fix white AND THEN FIZZLE THE PICTURE

This commit is contained in:
Peter Ferrie 2020-11-18 10:24:26 -08:00
parent e96e8eb9cb
commit afdaabfded

View File

@ -22,6 +22,10 @@ addrs=$C0 ; [$40 bytes]
bne - bne -
txa txa
tay tay
clv
php
bit <knownrts ; set V flag
php
pha pha
pha pha
rts rts
@ -38,7 +42,9 @@ loop2 lda addrs, x
sta $C003 sta $C003
sta $C005 sta $C005
+ sta <dst+2 + sta <dst+2
lda #$FF op ora #$FF ; SMC
sta <src+2
src ora $FD00, y ; SMC
dst sta $FD00, y dst sta $FD00, y
sta $C002 sta $C002
sta $C004 sta $C004
@ -54,8 +60,19 @@ dst sta $FD00, y
bmi exit bmi exit
txa txa
bne loop1 bne loop1
exit lda #$FF ; last lousy byte (because LFSR never hits 0) lda #$49
sta op
lda #$60
sta op + 1
lda #$B9
sta <src
plp
bvs loop
!byte $a9
exit plp
bvs exit
lda $4000 ; last lousy byte (because LFSR never hits 0)
sta $2000 sta $2000
rts knownrts rts
} }
end end