mirror of
https://github.com/a2-4am/4cade.git
synced 2024-07-24 13:29:14 +00:00
74 lines
1.3 KiB
Plaintext
74 lines
1.3 KiB
Plaintext
|
;license:MIT
|
||
|
|
;(c) 2017-2018 by qkumba
|
||
|
|
|
||
|
|
FizzleHGR
|
||
|
|
;init RNG
|
||
|
|
|
||
|
|
ldx #1
|
||
|
|
stx @rnd1+1
|
||
|
|
dex
|
||
|
|
stx @rnd2+1
|
||
|
|
|
||
|
|
;iterate
|
||
|
|
|
||
|
|
@loop
|
||
|
|
ldy @rnd1+1
|
||
|
|
ldx @rnd2+1
|
||
|
|
lsr @rnd2+1
|
||
|
|
ror @rnd1+1
|
||
|
|
bcc +
|
||
|
|
|
||
|
|
;feedback polynomial forms #$100D for period of 8191
|
||
|
|
|
||
|
|
lda @rnd1+1
|
||
|
|
eor #$0d
|
||
|
|
sta @rnd1+1
|
||
|
|
lda @rnd2+1
|
||
|
|
eor #$10
|
||
|
|
sta @rnd2+1
|
||
|
|
|
||
|
|
;little hack to avoid missing offset zero
|
||
|
|
;screen hole at $xxFF is missed instead
|
||
|
|
|
||
|
|
+ tya
|
||
|
|
eor #$ff
|
||
|
|
sta $26
|
||
|
|
sta $3c
|
||
|
|
txa
|
||
|
|
|
||
|
|
;target page 1
|
||
|
|
|
||
|
|
ora #$20
|
||
|
|
sta $27
|
||
|
|
eor #$60
|
||
|
|
sta $3d
|
||
|
|
|
||
|
|
;copy pixel from other page to this page
|
||
|
|
|
||
|
|
ldy #0
|
||
|
|
lda ($3c),y
|
||
|
|
sta ($26),y
|
||
|
|
|
||
|
|
;check for keypress
|
||
|
|
|
||
|
|
lda $c000
|
||
|
|
bmi @exit
|
||
|
|
|
||
|
|
;and exit condition
|
||
|
|
|
||
|
|
@rnd2 lda #0
|
||
|
|
bne @loop
|
||
|
|
@rnd1 lda #0
|
||
|
|
cmp #1
|
||
|
|
bne @loop
|
||
|
|
|
||
|
|
;graphics mode
|
||
|
|
|
||
|
|
lda $c057
|
||
|
|
lda $c054
|
||
|
|
lda $c052
|
||
|
|
lda $c050
|
||
|
|
|
||
|
|
@exit
|
||
|
|
rts
|