1
0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-16 05:05:11 +00:00
8bitworkshop/presets/apple2/hgrtest.a

24 lines
451 B
Plaintext
Raw Normal View History

2018-07-22 12:31:42 +00:00
processor 6502
seg program
org $803
.start
sta $c050 ; set graphics
sta $c052 ; no mixed mode
sta $c057 ; set hires
ldx #0
.loop inc $2000,x ; increment hgr byte
inx
bne .loop
lda .loop+2 ; increment hi byte of instruction
clc
adc #1
sta .loop+2 ; self-modifying code
2018-07-22 12:31:42 +00:00
cmp #$40
bne .loop
lda #$20 ; reset to $2000
sta .loop+2
jmp .start