mirror of
https://github.com/A2osX/A2osX.git
synced 2024-05-28 12:41:34 +00:00
201 lines
2.8 KiB
Plaintext
201 lines
2.8 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
KW.ADDINT
|
||
KW.APPEND
|
||
KW.BYTE
|
||
KW.CLEAR
|
||
KW.CLOCK
|
||
KW.CLOSE
|
||
KW.COPY
|
||
KW.CREATE
|
||
KW.ECHO
|
||
KW.EDIT
|
||
*KW.END
|
||
KW.FILL
|
||
KW.FLAG
|
||
KW.FOR
|
||
KW.FREE
|
||
KW.GET
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
KW.GOSUB lda #$20 JSR abs
|
||
bra KW.GOTO1
|
||
*--------------------------------------
|
||
KW.GOTO lda #$4C JMP abs
|
||
|
||
KW.GOTO1 jsr CODE.EmitByte
|
||
jsr CORE.GetNextCharNB
|
||
bcs .90
|
||
|
||
jsr CORE.GetLabel
|
||
bcc .1
|
||
|
||
jsr CORE.AddFWRef
|
||
bcs .99
|
||
|
||
.1 lda ZPADDR
|
||
jsr CODE.EmitByte
|
||
lda ZPADDR+1
|
||
clc
|
||
jmp CODE.EmitByte
|
||
|
||
.90 lda #E.CSYN
|
||
|
||
.99 rts
|
||
*--------------------------------------
|
||
KW.HOME
|
||
KW.IF
|
||
KW.INFO
|
||
KW.INPUT
|
||
KW.KILL
|
||
KW.LINK
|
||
KW.LOG
|
||
KW.MARK
|
||
KW.MODEM
|
||
KW.MOVE
|
||
KW.MSG
|
||
KW.NEXT
|
||
KW.NIBBLE
|
||
KW.NOT
|
||
KW.ON
|
||
KW.NOCAR
|
||
KW.OPEN
|
||
KW.POKE
|
||
KW.POP
|
||
KW.POSITION
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
KW.PRINT stz hOut reset to hStdOut
|
||
|
||
|
||
* ldy #S.PS.hStdOut
|
||
* lda (pPS),y
|
||
* sta hOut Default to screen
|
||
|
||
|
||
.10 jsr CORE.GetNextCharNB
|
||
bcs .8
|
||
|
||
.11 jsr CORE.IsEndInst
|
||
bcs .8
|
||
|
||
stz bFlag put ending CR
|
||
|
||
cmp #'"'
|
||
bne .5
|
||
|
||
ldy #0
|
||
|
||
.1 jsr CORE.GetNextChar
|
||
bcs .90
|
||
|
||
cmp #'"'
|
||
beq .2
|
||
|
||
sta (ZPConstBufPtr),y
|
||
iny
|
||
bne .1
|
||
|
||
.2 lda #0
|
||
sta (ZPConstBufPtr),y
|
||
iny
|
||
phy
|
||
|
||
>LDYA ZPConstBufPtr
|
||
jsr CODE.LDYAI
|
||
jsr CODE.FPRINTSTR
|
||
|
||
pla
|
||
clc
|
||
adc ZPConstBufPtr
|
||
sta ZPConstBufPtr
|
||
bcc .3
|
||
|
||
inc ZPConstBufPtr+1
|
||
|
||
.3 jsr CORE.GetNextCharNB skip "
|
||
bra .70
|
||
*--------------------------------------
|
||
.5 jsr EXP.Eval
|
||
bcs .99
|
||
|
||
jsr CODE.FPRINTL
|
||
|
||
.7 jsr CORE.GetCharNB
|
||
bcs .8
|
||
|
||
.70 jsr CORE.IsEndInst
|
||
bcs .8
|
||
|
||
cmp #','
|
||
bne .71
|
||
|
||
tax
|
||
jsr CODE.PutChar
|
||
|
||
bra .10 go skip
|
||
|
||
.71 cmp #';'
|
||
bne .90
|
||
|
||
dec bFlag suppress ending CR
|
||
|
||
jsr CORE.GetNextCharNB skip ;
|
||
bcc .11
|
||
|
||
.8 bit bFlag
|
||
bmi .80
|
||
|
||
jsr CODE.FPRINTCRLF
|
||
|
||
.80 clc
|
||
rts
|
||
|
||
.90 lda #E.CSYN
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
KW.PUBLIC
|
||
KW.PUSH
|
||
KW.RAM
|
||
KW.RAM2
|
||
KW.READ
|
||
KW.READY
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
KW.RETURN
|
||
* TODO : check context
|
||
|
||
KW.END lda #$60 RTS
|
||
|
||
clc
|
||
jmp CODE.EmitByte
|
||
*--------------------------------------
|
||
KW.REWIND
|
||
KW.RIPCO
|
||
KW.SET
|
||
KW.SETINT
|
||
KW.TEXT
|
||
KW.THEN
|
||
KW.TONE
|
||
KW.UPDATE
|
||
KW.USE
|
||
KW.WHENd
|
||
KW.WRITE
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/acos.s.kw
|
||
LOAD usr/src/bin/acos.s
|
||
ASM
|