A2osX/BIN/ACOS.S.KW.txt
2021-04-29 13:56:34 +02:00

187 lines
2.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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
lda #E.CSYN
sec
rts
*--------------------------------------
* IP exp THEN st1 ELSE st2
*--------------------------------------
KW.IF
lda #E.CSYN
sec
rts
*--------------------------------------
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
*--------------------------------------
.5 jsr EXP.Eval
bcs .99
lda EXP.TYPE
beq .6
jsr CODE.PULLYA
jsr CODE.FPRINTSTR
bra .7
.6 jsr CODE.PULLYA
jsr CODE.FPRINTINT
*--------------------------------------
.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