fujirun/working.s

58 lines
698 B
ArmAsm
Raw Normal View History

2017-07-19 00:30:28 +00:00
*= $6000
; os memory map
KEYBOARD = $c000
KBDSTROBE = $c010
CLRTEXT = $c050
SETTEXT = $c051
CLRMIXED = $c052
SETMIXED = $c053
TXTPAGE1 = $c054
TXTPAGE2 = $c055
CLRHIRES = $c056
SETHIRES = $c057
; defines
start nop
bit CLRTEXT ; start with HGR page 1, full screen
bit CLRMIXED
bit TXTPAGE1
bit SETHIRES
jsr clrscr
jsr init_game
jsr game_loop
forever
jmp forever
clrscr
lda #0
sta clr1+1
lda #$20
sta clr1+2
clr0
lda #$81
ldy #0
clr1
sta $ffff,y
iny
bne clr1
inc clr1+2
ldx clr1+2
cpx #$40
bcc clr1
rts
init_game nop
jsr rand_test
rts
game_loop nop
jmp game_loop
.include "rand.s"