40 lines
488 B
Plaintext
40 lines
488 B
Plaintext
.word $0801
|
|
.org $0801
|
|
|
|
.scope
|
|
.word _next, 10 ; Next line and current line number
|
|
.byte $9e," 2064",0 ; SYS 2064
|
|
_next: .word 0 ; End of program
|
|
.scend
|
|
|
|
.advance $0810
|
|
|
|
.require "kernal.oph"
|
|
|
|
.data zp
|
|
.org $0002
|
|
|
|
.text
|
|
|
|
.scope
|
|
; Cache BASIC's zero page at top of available RAM.
|
|
ldx #$7E
|
|
* lda $01, x
|
|
sta $CF81, x
|
|
dex
|
|
bne -
|
|
|
|
jsr _main
|
|
|
|
; Restore BASIC's zero page and return control.
|
|
|
|
ldx #$7E
|
|
* lda $CF81, x
|
|
sta $01, x
|
|
dex
|
|
bne -
|
|
rts
|
|
|
|
_main:
|
|
; Program follows...
|
|
.scend |