mirror of
https://github.com/david-schmidt/AII2048.git
synced 2024-06-01 09:41:34 +00:00
24 lines
510 B
NASM
24 lines
510 B
NASM
.include "prodos/prodosconst.i"
|
|
.include "prodos/prodosmacros.i"
|
|
.include "ascreen.asm"
|
|
|
|
.importzp CellTable, GameState, RestartLatch, P0ScoreBCD
|
|
|
|
InitScreen:
|
|
jsr HOME
|
|
jsr DisplayScoreMsg
|
|
rts
|
|
|
|
;---------------------------------------------------------
|
|
; READ_CHAR - Read a single character, no cursor
|
|
;---------------------------------------------------------
|
|
READ_CHAR:
|
|
lda $C000 ; Read keyboard
|
|
bit $c010
|
|
cmp #$a0
|
|
bne :+
|
|
pha
|
|
lda #$01
|
|
sta RestartLatch
|
|
pla
|
|
: rts |