mirror of https://github.com/A2osX/A2osX.git
215 lines
2.9 KiB
Plaintext
215 lines
2.9 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
FN.BYTE
|
||
FN.CHRd
|
||
FN.CLOCK
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
FN.DATEd ldx #RT.DATEd.ID
|
||
bra FN.TIMEd.1
|
||
|
||
FN.TIMEd ldx #RT.TIMEd.ID
|
||
|
||
FN.TIMEd.1 jsr CODE.JSRRT
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
FN.FLAG
|
||
FN.INFO
|
||
FN.INSTR
|
||
FN.KEY
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
FN.LEFTd ldx #RT.LEFTd.ID
|
||
bra FN.RIGHTd.1
|
||
|
||
FN.RIGHTd ldx #RT.RIGHTd.ID
|
||
|
||
FN.RIGHTd.1 phx
|
||
|
||
jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
beq .90
|
||
|
||
jsr CORE.CheckComma
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
bne .90
|
||
|
||
jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
plx
|
||
jsr CODE.JSRRT
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
|
||
.99 plx
|
||
rts
|
||
*--------------------------------------
|
||
FN.LEN jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
beq .90
|
||
|
||
jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
stz EXP.TYPE
|
||
|
||
ldx #RT.LEN.ID
|
||
clc
|
||
jmp CODE.JSRRT
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.MIDd jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval str
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
beq .90
|
||
|
||
jsr CORE.CheckComma
|
||
bcs .99
|
||
|
||
jsr EXP.Eval start
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
bne .90
|
||
|
||
jsr CORE.CheckComma
|
||
bcc .1
|
||
|
||
ldy #255
|
||
ldx #255
|
||
jsr CODE.PUSHYXI
|
||
bra .2
|
||
|
||
.1 jsr EXP.Eval len
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
bne .90
|
||
|
||
.2 jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
ldx #RT.MIDd.ID
|
||
jsr CODE.JSRRT
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.PDL
|
||
FN.PEEK
|
||
FN.RANDOM
|
||
FN.RNDd
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
FN.STRd jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
bne .90
|
||
|
||
jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
ldx #RT.STRd.ID
|
||
clc
|
||
jmp CODE.JSRRT
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.VAL jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
beq .90
|
||
|
||
jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
stz EXP.TYPE
|
||
|
||
ldx #RT.VAL.ID
|
||
* clc
|
||
jmp CODE.JSRRT
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.WHENd
|
||
*--------------------------------------
|
||
FN.WIDTH
|
||
lda #E.CSYN
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/acos.s.fn
|
||
LOAD usr/src/bin/acos.s
|
||
ASM
|