29 lines
411 B
ArmAsm
29 lines
411 B
ArmAsm
|
|
// XXX provide documentation and finish the implementation
|
|
|
|
INITMSG:
|
|
|
|
// Print PAL/NTSC
|
|
ldx #30 // NTSC
|
|
lda TVSFLG
|
|
beq !+
|
|
ldx #31 // PAL
|
|
!:
|
|
jsr print_packed_message
|
|
|
|
// Work out free bytes, display them
|
|
jsr basic_do_new
|
|
lda MEMSIZ+0
|
|
sec
|
|
sbc TXTTAB+0
|
|
tax
|
|
lda MEMSIZ+1
|
|
sbc TXTTAB+1
|
|
|
|
jsr print_integer
|
|
jsr print_space
|
|
|
|
// Print the rest of the start up message
|
|
ldx #34
|
|
jmp print_packed_message
|