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

Bug fix

Browse source
This commit is contained in:
ceriel 1986-07-25 14:17:23 +00:00
parent 37320faecc
commit c422c4e130
2 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mach/m68k4/libem/inn.s
View file

@ -15,13 +15,11 @@
move.l sp,a0 move.l sp,a0
add.l #4,a0 add.l #4,a0
move.l d1,d2 move.l d1,d2
asr.l #4,d2 asr.l #3,d2
!bchg.l #0,d2
cmp.l d0,d2 cmp.l d0,d2
bcc 1f bcc 1f
add.l d2,a0 add.l d2,a0
move.l (a0),d2 btst d1,(a0)
btst d1,d2 !eigenlijk .l
beq 1f beq 1f
move.l #1,d0 move.l #1,d0
bra 2f bra 2f
@ -30,5 +28,4 @@
2: 2:
move.l (sp)+,d1 move.l (sp)+,d1
add.l d1,sp add.l d1,sp
move.l a1,-(sp) jmp (a1)
rts

7
mach/m68k4/libem/set.s
View file

@ -18,15 +18,12 @@
bgt 1b bgt 1b
move.l sp,a1 ! set base move.l sp,a1 ! set base
move.l d1,d2 move.l d1,d2
asr.l #4,d2 asr.l #3,d2
!bchg #0,d2
cmp.l d0,d2 cmp.l d0,d2
bcs 1f bcs 1f
move.w #ESET,-(sp) move.w #ESET,-(sp)
jsr .trp jsr .trp
1: 1:
add.l d2,a1 add.l d2,a1
move.l (a1),d2 bset d1,(a1)
bset d1,d2
move.l d2,(a1)
jmp (a0) jmp (a0)