Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-21 06:29:08 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-11-25 10:36:30 +01:00
parent 377b9b7654
commit a372872bb9
1 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
BIN/FORTH.S.CP.txt Normal file
View File

@ -0,0 +1,45 @@
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