2014-11-09 11:32:11 +00:00
|
|
|
;
|
|
|
|
|
; 2010-11-14, Ullrich von Bassewitz
|
2016-03-18 15:28:56 +00:00
|
|
|
; 2016-03-17, Greg King
|
2014-11-09 11:32:11 +00:00
|
|
|
;
|
|
|
|
|
; This module supplies a small BASIC stub program that uses CALL
|
|
|
|
|
; to jump to the machine-language code that follows it.
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
; The following symbol is used by the linker config. file
|
|
|
|
|
; to force this module to be included into the output file.
|
|
|
|
|
.export __BASHDR__:abs = 1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.segment "BASHDR"
|
|
|
|
|
|
|
|
|
|
.addr Next
|
|
|
|
|
.word .version ; Line number
|
|
|
|
|
.byte $BF,'#' ; CALL token, mark number as hexadecimal
|
|
|
|
|
.byte <(Start >> 8 ) + '0' + (Start >> 8 > $09) * $07
|
|
|
|
|
.byte <(Start >> 4 & $0F) + '0' + (Start >> 4 & $0F > $09) * $07
|
|
|
|
|
.byte <(Start & $0F) + '0' + (Start & $0F > $09) * $07
|
|
|
|
|
.byte $00 ; End of BASIC line
|
|
|
|
|
Next: .addr $0000 ; BASIC program end marker
|
|
|
|
|
Start:
|
2016-03-18 15:28:56 +00:00
|
|
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
; This padding is needed by a bug in the ROM.
|
|
|
|
|
; (The CLOAD command starts BASIC's variables table on top of the last byte
|
|
|
|
|
; that was loaded [instead of at the next address].)
|
|
|
|
|
|
|
|
|
|
.segment "BASTAIL"
|
|
|
|
|
|
|
|
|
|
.byte 0
|
