A2osX/BIN/ACOS.S.FN.txt

215 lines
2.9 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
*--------------------------------------
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