Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;D=X
- ;E=Y
- ;C=Method
- ; 0=test
- ; 1=on
- ; 2=invert
- ; 3=off
- srl d \ rra ;12
- srl d \ rra ;12
- srl d \ rra ;12
- ld b,a ;4
- ld a,d ;4
- ld d,0 ;7
- ld h,d \ ld l,e ;4
- add hl,de ;11
- add hl,de ;11
- add hl,hl ;11
- add hl,hl ;11
- ld e,a ;4
- add hl,de ;11
- ld de,(BufPtr) ;20
- add hl,de ;11
- inc b
- ld a,1
- rrca
- djnz $-1
- ld b,a
- and (hl)
- ld e,a
- ld a,b
- ld b,c
- djnz $+3
- or (hl)
- djnz $+5
- xor (hl)
- djnz $+4
- cpl
- and (hl)
- ld (hl),a
- ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement