Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 2DCA 1.02 2DCA 2.01
- ;-----------------------------------------------------
- firstiter: ;
- ld d,(ix-12) ; ld h,quadLUTB
- ld e,(ix+12) ; pop de
- ld c,(ix+00) ; ld a,e
- ld a,(ix-13) ; ex af,af'
- rrca ; ld a,e
- ld a,d ; and %01000010
- rra ; ld L,a
- and 11101110b ; inc h
- ld l,a ; ld a,(hl)
- ld b,(hl) ; dec h
- ld a,(ix+11) ; ld L,c
- rrca ; add a,(hl)
- ld a,e ; inc h
- rra ; ld L,d
- and 11101110b ; add a,(hl)
- ld l,a ; ld b,(ix+63)
- ld a,(hl) ; ld L,b
- ex af,af' ; add a,(hl)
- ld a,(ix-01) ; exx
- rrca ; ld L,a
- ld a,c ; ex af,af'
- rra ; ld b,a
- and 10101010b ; and (hl)
- ld l,a ; dec h
- ld a,c ; or (hl)
- ex af,af' ; inc h
- add a,(hl) ; and %10000001
- add a,b ; ld c,a
- exx ; exx
- ld l,a ; ;centeriter 2:
- ex af,af' ; ld a,e
- ld b,a ; and %01011010
- and (hl) \ dec h ; ld L,a
- or (hl) \ inc h ; inc h
- and 10001000b ; ld a,(hl)
- ld c,a ; ld L,d
- exx ; add a,(hl)
- centeriter: ; ld L,b
- ld a,d ; add a,(hl)
- and 11101110b ; exx
- ld l,a ; ld l,a
- ld b,(hl) ; ld a,b
- ld a,e ; and (hl)
- and 11101110b ; dec h
- ld l,a ; or (hl)
- ld a,(hl) ; inc h
- ex af,af' ; and %00100100
- ld a,c ; or c
- and 10101010b ; ld c,a
- ld l,a ; exx
- ex af,af' ; ;center-left 3:
- add a,(hl) ; ld a,e
- add a,b ; and %10110100
- exx ; ld L,a
- ld l,a ; inc h
- ld a,b ; ld a,(hl)
- and (hl) \ dec h ; ld L,d
- or (hl) \ inc h ; add a,(hl)
- and 01000100b ; ld L,b
- or c ; add a,(hl)
- ld c,a ; exx
- exx ; ld l,a
- ld a,d ; ld a,b
- and 01110111b ; and (hl)
- ld l,a ; dec h
- ld b,(hl) ; or (hl)
- ld a,e ; inc h
- and 01110111b ; and %01001000
- ld l,a ; or c
- ld a,(hl) ; ld c,a
- ex af,af' ; exx
- ld a,c ; ;center-right 4
- and 01010101b ; ld a,e
- ld l,a ; and %00101101
- ex af,af' ; ld L,a
- add a,(hl) ; inc h
- add a,b ; ld a,(hl)
- exx ; ld L,d
- ld l,a ; add a,(hl)
- ld a,b ; ld L,b
- and (hl) \ dec h ; add a,(hl)
- or (hl) \ inc h ; exx
- and 00100010b ; ld l,a
- or c ; ld a,b
- ld c,a ; and (hl)
- exx ; dec h
- fourthiter: ; or (hl)
- ld a,(ix-11) ; inc h
- rlca ; and %00010010
- ld a,d ; or c
- rla ; ld (de),a
- and 01110111b ; inc de
- ld l,a ; exx
- ld d,(hl) ; inc ix
- ld a,(ix+13) ;
- rlca ;
- ld a,e ;
- rla ;
- and 01110111b ;
- ld l,a ;
- ld e,(hl) ;
- ld a,(ix+01) ;
- rlca ;
- ld a,c ;
- rla ;
- and 01010101b ;
- ld l,a ;
- ld a,(hl) ;
- add a,e ;
- add a,d ;
- exx ;
- ld l,a ;
- ld a,b ;
- and (hl) \ dec h ;
- or (hl) \ inc h ;
- and 00010001b ;
- or c ;
- ld (iy+0),a ;
- exx ;
- inc ix ;
- inc iy ;
Add Comment
Please, Sign In to add comment