mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-03 05:55:42 +00:00
46 lines
779 B
Plaintext
46 lines
779 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
CP.RUN >LDYA J.KEYWORDS,x
|
||
clc
|
||
jmp EmitJsrYA
|
||
*--------------------------------------
|
||
CP.IF jsr EmitPullA
|
||
jsr EmitPullA
|
||
|
||
lda #$AA TAX
|
||
jsr EmitByte
|
||
|
||
lda #$10 BPL
|
||
jsr EmitByte
|
||
|
||
lda #3 skip JMP abs
|
||
jsr EmitByte
|
||
|
||
lda #$4C JMP
|
||
jsr EmitByte
|
||
|
||
ldy RP
|
||
lda ZPCodePtr+1
|
||
sta (pData),y
|
||
dey
|
||
|
||
lda ZPCodePtr
|
||
sta (pData),y
|
||
dey
|
||
|
||
sta RP
|
||
|
||
lda #0
|
||
jsr EmitByte
|
||
jmp EmitByte
|
||
*--------------------------------------
|
||
CP.ELSE
|
||
*--------------------------------------
|
||
CP.ENDIF
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/forth.s.cp
|
||
LOAD usr/src/bin/forth.s
|
||
ASM
|