d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Added LOS 4 and STS 4

Browse source
This commit is contained in:
ceriel 1991-04-19 13:09:30 +00:00
parent 7258ccc596
commit 80c49a6ea7
2 changed files with 25 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
mach/m68k2/libem/los.s
View file

@ -1,4 +1,5 @@
.define .los .define .los
.define .los4
.sect .text .sect .text
.sect .rom .sect .rom
.sect .data .sect .data
@ -10,6 +11,8 @@
.los: .los:
move.l (sp)+,a1 move.l (sp)+,a1
move.w (sp)+,d0 move.w (sp)+,d0
ext.l d0
9:
move.l (sp)+,a0 move.l (sp)+,a0
cmp #1,d0 cmp #1,d0
bne 1f bne 1f
@ -18,11 +21,20 @@
move.w d0,-(sp) move.w d0,-(sp)
bra 3f bra 3f
1: 1:
add d0,a0 add.l d0,a0
asr #1,d0 asr.l #1,d0
2: 2:
move -(a0),-(sp) move -(a0),-(sp)
sub #1,d0 sub.l #1,d0
bgt 2b bgt 2b
3: 3:
jmp (a1) jmp (a1)
! d0 : # bytes
! a0 : source address
.sect .text
.los4:
move.l (sp)+,a1
move.l (sp)+,d0
bra 9b
.align 2

13
mach/m68k2/libem/sts.s
View file

@ -1,4 +1,5 @@
.define .sts .define .sts
.define .sts4
.sect .text .sect .text
.sect .rom .sect .rom
.sect .data .sect .data
@ -10,17 +11,23 @@
.sts: .sts:
move.l (sp)+,a1 move.l (sp)+,a1
move.w (sp)+,d0 move.w (sp)+,d0
ext.l d0
9:
move.l (sp)+,a0 move.l (sp)+,a0
cmp #1,d0 cmp.l #1,d0
bne 1f bne 1f
move.w (sp)+,d0 move.w (sp)+,d0
move.b d0,(a0) move.b d0,(a0)
bra 3f bra 3f
1: 1:
asr #1,d0 asr.l #1,d0
2: 2:
move.w (sp)+,(a0)+ move.w (sp)+,(a0)+
sub #1,d0 sub.l #1,d0
bgt 2b bgt 2b
3: 3:
jmp (a1) jmp (a1)
.sts4:
move.l (sp)+,a1
move.l (sp)+,d0
bra 9b