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
