mirror of
https://github.com/A2osX/A2osX.git
synced 2024-05-28 12:41:34 +00:00
165 lines
2.2 KiB
Plaintext
165 lines
2.2 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 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
|
||
|
||
ldx #RT.LEFTd.ID
|
||
jsr CODE.JSRRT
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.LEN jsr CORE.CheckOP
|
||
bcs .99
|
||
|
||
jsr EXP.Eval
|
||
bcs .99
|
||
|
||
lda EXP.TYPE
|
||
beq .90
|
||
|
||
jsr CORE.CheckCP
|
||
bcs .99
|
||
|
||
ldx #RT.LEN.ID
|
||
jsr CODE.JSRRT
|
||
|
||
stz EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.90 lda #E.TMISMATCH
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
FN.MIDd
|
||
FN.PDL
|
||
FN.PEEK
|
||
FN.RANDOM
|
||
FN.RIGHTd
|
||
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
|
||
|
||
ldx #RT.STRd.ID
|
||
jsr CODE.JSRRT
|
||
|
||
lda #'$'
|
||
sta EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.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
|
||
|
||
ldx #RT.VAL.ID
|
||
jsr CODE.JSRRT
|
||
|
||
stz EXP.TYPE
|
||
|
||
clc
|
||
rts
|
||
|
||
.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
|