A2osX/BIN/ACOS.S.KW.txt

213 lines
3.0 KiB
Plaintext
Raw Normal View History

2021-04-08 20:30:18 +00:00
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
2021-04-15 14:03:04 +00:00
*KW.END
2021-04-08 20:30:18 +00:00
KW.FILL
KW.FLAG
KW.FOR
KW.FREE
KW.GET
2021-04-10 17:17:40 +00:00
lda #E.CSYN
sec
2021-04-08 20:30:18 +00:00
rts
*--------------------------------------
2021-04-15 14:03:04 +00:00
KW.GOSUB lda #$20 JSR abs
bra KW.GOTO1
2021-04-10 17:17:40 +00:00
*--------------------------------------
2021-04-15 14:03:04 +00:00
KW.GOTO lda #$4C JMP abs
KW.GOTO1 jsr CODE.EmitByte
2021-04-10 17:17:40 +00:00
jsr CORE.GetNextCharNB
2021-04-08 20:30:18 +00:00
bcs .90
2021-04-15 14:03:04 +00:00
jsr CORE.GetLabel
2021-04-10 17:17:40 +00:00
bcc .1
2021-04-15 14:03:04 +00:00
jsr CORE.AddFWRef
bcs .99
2021-04-10 17:17:40 +00:00
2021-04-15 14:03:04 +00:00
.1 lda ZPADDR
2021-04-08 20:30:18 +00:00
jsr CODE.EmitByte
lda ZPADDR+1
clc
2021-04-10 17:17:40 +00:00
jmp CODE.EmitByte
2021-04-08 20:30:18 +00:00
.90 lda #E.CSYN
2021-04-15 14:03:04 +00:00
.99 rts
2021-04-08 20:30:18 +00:00
*--------------------------------------
KW.HOME
2021-04-15 20:52:08 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
* IP exp THEN st1 ELSE st2
*--------------------------------------
2021-04-08 20:30:18 +00:00
KW.IF
2021-04-15 20:52:08 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
2021-04-08 20:30:18 +00:00
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
2021-04-10 17:17:40 +00:00
lda #E.CSYN
sec
2021-04-08 20:30:18 +00:00
rts
*--------------------------------------
KW.PRINT stz hOut reset to hStdOut
* ldy #S.PS.hStdOut
* lda (pPS),y
* sta hOut Default to screen
2021-04-10 17:17:40 +00:00
2021-04-08 20:30:18 +00:00
.10 jsr CORE.GetNextCharNB
bcs .8
2021-04-10 17:17:40 +00:00
.11 jsr CORE.IsEndInst
2021-04-08 20:30:18 +00:00
bcs .8
2021-04-10 17:17:40 +00:00
stz bFlag put ending CR
2021-04-08 20:30:18 +00:00
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
2021-04-10 17:17:40 +00:00
tax
jsr CODE.PutChar
2021-04-08 20:30:18 +00:00
bra .10 go skip
.71 cmp #';'
bne .90
2021-04-10 17:17:40 +00:00
dec bFlag suppress ending CR
2021-04-08 20:30:18 +00:00
jsr CORE.GetNextCharNB skip ;
2021-04-10 17:17:40 +00:00
bcc .11
2021-04-08 20:30:18 +00:00
.8 bit bFlag
2021-04-10 17:17:40 +00:00
bmi .80
2021-04-08 20:30:18 +00:00
2021-04-10 17:17:40 +00:00
jsr CODE.FPRINTCRLF
2021-04-08 20:30:18 +00:00
.80 clc
rts
.90 lda #E.CSYN
sec
.99 rts
*--------------------------------------
KW.PUBLIC
KW.PUSH
KW.RAM
KW.RAM2
KW.READ
KW.READY
2021-04-10 17:17:40 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
2021-04-15 14:03:04 +00:00
KW.RETURN
* TODO : check context
KW.END lda #$60 RTS
2021-04-10 17:17:40 +00:00
clc
jmp CODE.EmitByte
*--------------------------------------
2021-04-08 20:30:18 +00:00
KW.REWIND
KW.RIPCO
KW.SET
KW.SETINT
KW.TEXT
KW.THEN
KW.TONE
KW.UPDATE
KW.USE
KW.WHENd
KW.WRITE
2021-04-10 17:17:40 +00:00
lda #E.CSYN
sec
2021-04-08 20:30:18 +00:00
rts
*--------------------------------------
MAN
SAVE usr/src/bin/acos.s.kw
LOAD usr/src/bin/acos.s
ASM