30 lines
492 B
NASM
30 lines
492 B
NASM
; ----------------- assembly instructions ----------------------------
|
|
|
|
|
|
TOPROM ; Top of Forth In ROM
|
|
|
|
lda #<ORIG ; $0400
|
|
sta $00
|
|
lda #>ORIG ; $0400
|
|
sta $01
|
|
lda #$00 ; start of Forth in ROM
|
|
sta $02
|
|
lda #$A6
|
|
sta $03
|
|
CopyROM lda ($02)
|
|
sta ($00)
|
|
inc $00
|
|
bne CopyR1
|
|
inc $01
|
|
CopyR1 inc $02
|
|
bne CopyR2
|
|
inc $03
|
|
CopyR2 sec
|
|
lda #<TOPROM
|
|
ldx #>TOPROM
|
|
sbc $02
|
|
txa
|
|
sbc $03
|
|
bcs CopyROM
|
|
JMP Enter ; Forth Cold Start
|