mirror of
https://github.com/a2-4am/4cade.git
synced 2024-06-13 12:29:37 +00:00
43 lines
779 B
Plaintext
43 lines
779 B
Plaintext
!cpu 6502
|
|
!to "build/FX/DIAGONAL",plain
|
|
*=$6000
|
|
|
|
lda #$27
|
|
sta $FB
|
|
lda #$17
|
|
sta $FA
|
|
sta $FC
|
|
@loop lda $FA
|
|
bpl +
|
|
lda #$00
|
|
+ ldy $FB
|
|
jsr HGRBlockCopy
|
|
dec $FB
|
|
inc $FA
|
|
lda $FB
|
|
bmi +
|
|
lda $FA
|
|
cmp #$18
|
|
bne @loop
|
|
+ dec $FC
|
|
lda #$27
|
|
sta $FB
|
|
lda $FC
|
|
sta $FA
|
|
bpl @loop
|
|
lda $C000
|
|
bmi @exit
|
|
lda #$00
|
|
sta $FA
|
|
sec
|
|
sbc $FC
|
|
sta $FD
|
|
lda $FB
|
|
sec
|
|
sbc $FD
|
|
sta $FB
|
|
bpl @loop
|
|
@exit rts
|
|
|
|
!source "src/fx/fx.hgr.common.a"
|