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