inn and set must be word-orientated, not byte-orientated.
This commit is contained in:
parent
c422c4e130
commit
6dd1a052d3
2 changed files with 9 additions and 2 deletions
|
@ -18,8 +18,11 @@
|
||||||
asr.l #3,d2
|
asr.l #3,d2
|
||||||
cmp.l d0,d2
|
cmp.l d0,d2
|
||||||
bcc 1f
|
bcc 1f
|
||||||
|
bclr #0,d2
|
||||||
|
bclr #1,d2
|
||||||
add.l d2,a0
|
add.l d2,a0
|
||||||
btst d1,(a0)
|
move.l (a0),d2
|
||||||
|
btst d1,d2
|
||||||
beq 1f
|
beq 1f
|
||||||
move.l #1,d0
|
move.l #1,d0
|
||||||
bra 2f
|
bra 2f
|
||||||
|
|
|
@ -24,6 +24,10 @@
|
||||||
move.w #ESET,-(sp)
|
move.w #ESET,-(sp)
|
||||||
jsr .trp
|
jsr .trp
|
||||||
1:
|
1:
|
||||||
|
bclr #0,d2
|
||||||
|
bclr #1,d2
|
||||||
add.l d2,a1
|
add.l d2,a1
|
||||||
bset d1,(a1)
|
clr.l d2
|
||||||
|
bset d1,d2
|
||||||
|
move.l d2,(a1)
|
||||||
jmp (a0)
|
jmp (a0)
|
||||||
|
|
Loading…
Reference in a new issue