adapted to Kick Assembler, some documentation update

This commit is contained in:
FeralChild64 committed 2019-09-07 12:35:21 +02:00
1 parent ae23dbae7b
commit de27124b4f
198 files changed
+4181 -3976

No files matched your search

+24 -25
View File
@@ -1,31 +1,31 @@
;; BASIC Cold start entry point
;; Compute's Mapping the 64 p211
// BASIC Cold start entry point
// Compute's Mapping the 64 p211
basic_cold_start:
;; Setup BASIC vectors at $0300
;; Initialise interpretor
;; Print start up message
// Setup BASIC vectors at $0300
// Initialise interpretor
// Print start up message
;; Print coloured part of the message
;; ldy #>startup_message
;; lda #<startup_message
;; jsr print_string
// Print coloured part of the message
// ldy #>startup_message
// lda #<startup_message
// jsr print_string
jsr printf // XXX don't use printf, keep it for debug purposes only
jsr printf
; Used 217 bytes
startup_banner:
`TARGET_HOOK_BANNER
TARGET_HOOK_BANNER()
;; Print PAL/NTSC
ldx #30 ; NTSC
// Print PAL/NTSC
ldx #30 // NTSC
lda PALNTSC
beq +
ldx #31 ; PAL
*
beq !+
ldx #31 // PAL
!:
jsr print_packed_message
;; Work out free bytes, and display
// Work out free bytes, and display
jsr basic_do_new
lda basic_top_of_memory_ptr+0
sec
@@ -39,22 +39,21 @@ startup_banner:
lda #$20
jsr JCHROUT
;; Print the rest of the start up message
// Print the rest of the start up message
ldx #34
jsr print_packed_message
;; jump into warm start loop
// jump into warm start loop
jmp basic_warm_start
startup_message:
;; Clear the screen
startup_message: // XXX this is probably not needed anymore
// Clear the screen
.byte $93
;; Vertical bars in different colours
// Vertical bars in different colours
.byte $1C,$B4
.byte $9E,$B5
.byte $1E,$A1
;; <RVS><WHITE>MEGA<NORMAL>BASIC\r\r
// <RVS><WHITE>MEGA<NORMAL>BASIC\r\r
.byte $12,$05,$4D,$45,$47,$41,$92
.byte $42,$41,$53,$49,$43
.byte $20,$56,$32,$2e,$30,$2e,$30