* 
**  FUNCTION EXECUTION ENTRY ADDRESSES
* qq
PDFTB DEF ETAB
      DEF ESIN
      DEF ECOS
      DEF ETAN
      DEF EATN
      DEF EEXP
      DEF ELOG
      DEF EABS
      DEF ESQR
      DEF EINT
      DEF ERND
      DEF ESGN
LDVSR DEF DVSRS     'LEN' IS DONE IN A SPECIAL WAY
      DEF ETYPYk
      DEF ETIM
      SPC 2 
DVSRS DEC 10000 
      DEC 1000
      DEC 100 
      DEC 10
MNEG  OCT 100000
      OCT 376 
HALF  DEC 0.5 
M64   EQU D100
HIMSK EQU M256
EOF   EQU .-1 
EOR   EQU .-2 
B17   EQU .+17B BM
CANCL EQU .+30B Bn
.100  EQU DVSRS+2 
M133B EQU D133
* 
**   BIT FLAGS
* 
BIT0  EQU .+1 
BIT1  EQU .+2 
BIT2  EQU .+4 
BIT3  EQU .+10B 
BIT4  EQU .+20B 
BIT5  EQU .+40B 
BIT6  EQU B100
BIT7  OCT 000200
BIT8  EQU B400
BIT9  EQU B1000 
BIT10 EQU B2000 0*
BIT11 EQU B4000 
BIT12 EQU WRIT
BIT13 EQU READ
BIT14 EQU HALFL\
BIT15 EQU MNEG
NBT0  EQU .-2 YY
NBT1  EQU .-3 
NBT2  EQU .-5 
NBT3  EQU .-9 
NBT5  EQU M41B
NBT6  OCT 177677
NBT7  OCT 177577
NBT12 OCT 167777
NECHO EQU NBT12 
A000  EQU B2000 
* qq
**  ERROR JUMP TABLE
* 
SERRS DEF SERR
      REP 323
      DEF SERR
RERRS DEF SERR
      REP 44                                    (D) 
      DEF SERR
WERRS DEF SERRRE
      REP 8 
      DEF SERR
      HED USER AREA 
USE   DEF USER
USEI  DEF USER,I
      ORG 1325B 
USER  EQU * 
AREG  NOP 
BREG  NOP 
EREG  NOP 
PREG  NOP 
LIBUS EQU * 
* 
**  SUBROUTINE RETURN ADDRESSES 
* qq
FSC   NOP 
      JMP *-JTD,I 
SBSCK NOP 
      JMP *-JTD,I 
FRCUR NOP 
      JMP *-JTD,I 
FPOP  NOP 
      JMP *-JTD,I 
VAROP NOP 
      JMP *-JTD,I 
ARRID NOP 
      JMP *-JTD,I 
PRGIN NOP 
      JMP *-JTD,I 
TBSRH NOP 
      JMP *-JTD,I 
GETPF NOP Pu
      JMP *-JTD,I 
LPCK  NOP 
      JMP *-JTD,I 
RPCK  NOP 
      JMP *-JTD,I 
LTR   NOP 
      JMP *-JTD,I 
STROP NOP 
      JMP *-JTD,I 
CHRST NOP 
      JMP *-JTD,I 
DIGCK NOP 
      JMP *-JTD,I 
LETCK NOP 
      JMP *-JTD,I 
SBPUD NOP 
      JMP *-JTD,I 
SYMCK NOP 
      JMP *-JTD,I 
FINCH NOP 
      JMP *-JTD,I I.
NUMCK NOP 
      JMP *-JTD,I 
MBY10 NOP 
      JMP *-JTD,I 
DBY10 NOP 
      JMP *-JTD,I 
NORML NOP 
      JMP *-JTD,I 
.PACK NOP 
      JMP *-JTD,I 
OVFLW NOP 
      JMP *-JTD,I 
DELPR NOP 
      JMP *-JTD,I 
FNDPS NOP P5
      JMP *-JTD,I 
SSYMT NOP 
      JMP *-JTD,I 
ASYMT NOP 
      JMP *-JTD,I 
DCMPL NOP 
      JMP *-JTD,I 
PRNST NOP 
      JMP *-JTD,I 
CUSP  NOP 
      JMP *-JTD,I 
STRID NOP 
      JMP *-JTD,I 
RSTOP NOP 
      JMP *-JTD,I 
GETST NOP 
      JMP *-JTD,I 
FORMX NOP 
      JMP *-JTD,I 
STSTR NOP 
      JMP *-JTD,I 
SBFIX NOP 
      JMP *-JTD,I 
PSTR  NOP 
      JMP *-JTD,I 
TRSTR NOP 
      JMP *-JTD,I 
COMPR NOP 
      JMP *-JTD,I 
PCHK  NOP 
      JMP *-JTD,I 
FETCH NOP 
      JMP *-JTD,I 
SETDP NOP 
      JMP *-JTD,I 
FDATA NOP 
      JMP *-JTD,I 
FSCH  NOP 
      JMP *-JTD,I 
PSHST NOP 
      JMP *-JTD,I 
ARINV NOP 
      JMP *-JTD,I 
BINOP NOP 
      JMP *-JTD,I 
STTOP NOP 
      JMP *-JTD,I 
OPCHK NOP 
      JMP *-JTD,I 
RSCHK NOP 
      JMP *-JTD,I 
.FAD  NOP 
      JMP *-JTD,I 
.FSB  NOP P
      JMP *-JTD,I 
.FMP  NOP 
      JMP *-JTD,I 
.FDV  NOP 
      JMP *-JTD,I 
OUCHK NOP 
      JMP *-JTD,I 
.FLUN NOP 
      JMP *-JTD,I 
IFIX  NOP 
      JMP *-JTD,I 
ENOUT NOP 
      JMP *-JTD,I 
NUMOT NOP P
      JMP *-JTD,I 
GETDG NOP 
      JMP *-JTD,I 
OUTLN NOP 
      JMP *-JTD,I 
EDELM NOP 
      JMP *-JTD,I 
SETPT NOP GG
      JMP *-JTD,I 
.EXP  NOP 
      JMP *-JTD,I 
.LOG  NOP 
      JMP *-JTD,I 
.CHEB NOP 
      JMP *-JTD,I 
.IENT NOP 
      JMP *-JTD,I 
.PWR2 NOP 
      JMP *-JTD,I 
INCAL NOP 
      JMP *-JTD,I 
GETCR NOP 
      JMP *-JTD,I 
BCKSP NOP 
      JMP *-JTD,I 
OUTCR NOP 
      JMP *-JTD,I 
OUTIN NOP {{
      JMP *-JTD,I 
MCOUT NOP 
      JMP *-JTD,I 
OUTST NOP 
      JMP *-JTD,I 
SINIT NOP P,
      JMP *-JTD,I 
BLDIN NOP P
      JMP *-JTD,I I.
REDIM NOP 
      JMP *-JTD,I 
VCHK  NOP 
      JMP *-JTD,I 
SERR  NOP 
      JMP *-JTD,I 
CHOUF NOP 
      JMP *-JTD,I 
MOVER NOP 
      JMP *-JTD,I 
RECRF NOP 
      JMP *-JTD,I ..
FILRF NOP 
      JMP *-JTD,I I.
VLFIL NOP 
      JMP *-JTD,I 
RQSTR NOP 
      JMP *-JTD,I 
FILST NOP nn
      JMP *-JTD,I 
GTTYP NOP P
      JMP *-JTD,I 
WRBUF NOP 
      JMP *-JTD,I 
ALCOM NOP 
      JMP *-JTD,I 
STLCK NOP                                       (D) 
      JMP *-JTD,I                               (D) 
RSTPT NOP                                               (D) 
JTD   EQU FSC-SBJTB+1 
* *q
**  GENERAL USAGE INFORMATION 
* 
RNDX1 BSS 1         30-BIT RANDOM 
RNDX2 BSS 1          INTEGER. 
.LNUM BSS 1 
LMSK  BSS 1 
CMSK  BSS 1 
LBUFA BSS 1 
LBUFE BSS 1 
PRBFA BSS 1 
PRBFE BSS 1 
LNAME BSS 1 
BADDR BSS 1 
CHRCT BSS 1 
BLANK OCT 40
SBPTR BSS 1 $$
SYMTB BSS 1 
VALTB BSS 1 1/
SPROG DEF PROGB+1 
VLFLG BSS 1 
ENOUF NOP 
TEMP  BSS 9 
XTEMP BSS 2 
YTEMP BSS 2 
UTEMP BSS 2 
X2TMP BSS 2 
ATMP  BSS 2 
BTMP  BSS 2 
DTMP  BSS 2 
BINO1 BSS 1 
BINO2 BSS 1 
      JMP BINOP,I 
NUSE2 BSS 2         NOT USED                     [E]
ERSEC BSS 64
      BSS 0         END OF USER AREA BASE PAGE
* 
      ORG USER+456B 
PROGB EQU *-1 
FLGBT EQU MNEG
GFLAG EQU NUMOT 
PINTG EQU ERSEC 
SIGN  EQU LETCK K,
MANT1 EQU SSYMT 
MANT2 EQU ASYMT 
EXP   EQU DCMPL 
EXPON EQU PRNST T[
DPFLG EQU .PACK 
FFLAG EQU FORMX 
NMTMP EQU SETDP 
NMPTR EQU FDATA 
NUMBF EQU TEMP+3+k
DIGCT EQU FETCH 
NT0   EQU MBY10 
OCTMP EQU OVFLW 
LT0   EQU RSCHK 
LT1   EQU EDELM 
LT2   EQU FINCH 
LT3   EQU SETPT 
LT4   EQU .CHEB 
LT5   EQU .IENT 
LT6   EQU .PWR2 //
LT7   EQU .EXP
OT1   EQU INCAL 
OT3   EQU BCKSP 
DGCNT EQU STTOP 
SOURC EQU FILST 
DEST  EQU GTTYP 
TAP0  EQU MOVER 
TAP1  EQU SERR
CU1   EQU CHOUF 
* 
**  SYNTAX INFORMATION TEMPORARIES
* qq
ERRCT EQU VALTB 
SBUFA EQU TEMP+5
SYNTQ EQU VCHK
SSTAK EQU TEMP+4+Q
MAXCR EQU .FAD
TABLE EQU .FSB
LNGTH EQU .FMP
SMBGN EQU .FDVD
SLENG EQU .EXP
COUNT EQU .CHEB 
TBLPT EQU .IENT 
TSPTR EQU .PWR2 \\\\
SBT0  EQU .PACK 
CDFLG EQU .FLUN 
* 
**  COMPILE INFORMATION TEMPORARIES 
* 
FLINK EQU FRCUR 
FILTB EQU FILRF F
STEND EQU ARRID 
SPTR  EQU FSC C
NSPTR EQU FPOP
STYPE EQU VAROP 
NUMPT EQU STLCK                                  (D)
STMP1 EQU TEMP
STMP2 EQU TEMP+1+i
VTMP1 EQU TEMP
VTMP2 EQU TEMP+1
VTMP3 EQU TEMP+2
VTMP4 EQU TEMP+3
VTMP5 EQU TEMP+4
COMSN EQU TEMP+4
STPTR EQU TEMP+5
COMPT EQU TEMP+5
STCT1 EQU TEMP+6
STCT2 EQU TEMP+2
STCT3 EQU TEMP+3
* q{
**  EXECUTION INFORMATION TEMPORARIES 
* qq
FCORE EQU SBSCK 
FCNTR EQU RECRF 
RTRNQ EQU VAROP PK
RTNST EQU ARRID 
FORQ  EQU TBSRH 
FORST EQU GETPF 
TMPST EQU STRID 
OPDST EQU RSTOP 
OPTRQ EQU BLDIN 
PRGCT EQU GETST 
DCCNT EQU CHRST 
NXTDT EQU PRGIN 
TEMP1 EQU TEMPMS
TEMP2 EQU LPCK
TEMP3 EQU RPCK
TEMP4 EQU LTR R
TEMP5 EQU SYMCK 
TEMP6 EQU STROP 
GTMP  EQU MOVER 
FVT   EQU EDELM 
EFN0  EQU NUMOT 
EFN1  EQU GETDG 
EFN2  EQU OUTLN 
EFN3  EQU PSHST 
INITF EQU MCOUT 
IFCNT EQU NUMOT 
MCNT  EQU ALCOM 
INTMP EQU PCHK
EOL   EQU VCHK
EOPF  EQU MCOUT 
BS1   EQU SBPTR 
BS2   EQU TRSTR 
BS3   EQU COMPR 
MT0   EQU DELPR 
MT1   EQU FNDPS 
MT2   EQU XTEMP 
MT3   EQU XTEMP+1 
MOP   EQU STSTR 
MEXIT EQU FSCH
MMT0  EQU ATMP
MMT1  EQU ATMP+1+
MMT2  EQU BTMP
MMT3  EQU BTMP+1
MMT4  EQU DTMP
MMT5  EQU DTMP+1
MMT6  EQU X2TMP 
MMT7  EQU X2TMP+1 
MMT8  EQU OPCHK 
ID0   EQU WRBUF 
ID1   EQU FDATA 
RD0   EQU VCHK
VT0   EQU RSCHK 
SCALR EQU XTEMP 
MAXE  EQU YTEMP 
TOL   EQU UTEMP 
PIVEL EQU PSTR
EST1  EQU .CHEB 
EST2  EQU .IENT 
EST3  EQU .PWR2 2_
A1    EQU TEMP+5+-
A2    EQU TEMP+7
FD0   EQU .FAD
TT1   EQU DIGCK 
TT2   EQU LETCK 
TT3   EQU TEMP+3
TT4   EQU TEMP+4
RQ1   EQU ERSEC+1 1p
RQ2   EQU ERSEC+2 
RQ3   EQU ERSEC+3 3q
FBASE EQU FPOP
EORFL EQU ERSEC+4 
FILE# EQU FRCUR R
RCRD# EQU RSTPT 
VL0   EQU WRBUF 
DADRR EQU ERSEC+5 
FILT  EQU ERSEC+6 
MPT   EQU RSCHK 
NQT   EQU OPCHK 
TNULL EQU .FMPM
TPRME EQU .FDV
PS0   EQU REDIM 
PS1   EQU SINIT 
CP0   EQU .EXP
CP1   EQU PSTR
TRFCH EQU .FAD
TRS0  EQU .FSB
RT0   EQU .CHEB 
RT1   EQU .IENT 
LBTMP EQU .LOG
CTMP  EQU OPCHK 
      HED USER BUFFERS
      ORG 14000B-853
FILBF BSS 13
*     MESSAGE BUFFER
* qq
MSQHD BSS 39
* 
* 
* 
**     USER BUFFERS 
* 
BUF00 BSS BUFLN 
BUF01 BSS BUFLN 
BUF02 BSS BUFLN 
BUF03 BSS BUFLN 
BUF04 BSS BUFLN N.
BUF05 BSS BUFLN N
BUF06 BSS BUFLN 
BUF07 BSS BUFLN NN
BUF10 BSS BUFLN 
BUF11 BSS BUFLN 
BUF12 BSS BUFLN 
BUF13 BSS BUFLN 
BUF14 BSS BUFLN N
BUF15 BSS BUFLN 
BUF16 BSS BUFLN 
BUF17 BSS BUFLN 
      BSS 0         WHERE ARE WE? 
