45 lines
642 B
ArmAsm
45 lines
642 B
ArmAsm
|
|
//
|
|
// Well-known BASIC routine, described in:
|
|
//
|
|
// - [CM64] Compute's Mapping the Commodore 64 - page 212
|
|
//
|
|
// Prints the start-up messages
|
|
//
|
|
|
|
INITMSG:
|
|
|
|
// Print startup banner, up to 255 characters
|
|
ldx #$00
|
|
!:
|
|
lda startup_banner, x
|
|
beq !+ // 0 means end of banner
|
|
jsr JCHROUT
|
|
inx
|
|
bne !-
|
|
|
|
!:
|
|
// 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
|
|
sec
|
|
lda MEMSIZ+0
|
|
sbc TXTTAB+0
|
|
tax
|
|
lda MEMSIZ+1
|
|
sbc TXTTAB+1
|
|
|
|
jsr print_integer
|
|
jsr print_space
|
|
|
|
// Print rest of the start up message
|
|
ldx #34
|
|
jmp print_packed_message
|