
      HED USER AREA 
USE   DEF USER
USEI  DEF USER,I
      ORG 1224B 
USER  EQU * 
AREG  DEC 3000      SYSTEM LEVEL CODE 
BREG  DEC 200       FEATURE LEVEL CODE
EREG  NOP 
PREG  NOP 
LIBUS EQU * 
* 
**  SUBROUTINE RETURN ADDRESSES 
* 
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 
      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 
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 
      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 
OUCHK 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 
      JMP *-JTD,I 
.FMP  NOP 
      JMP *-JTD,I 
.FDV  NOP 
      JMP *-JTD,I 
.FLUN NOP 
      JMP *-JTD,I 
IFIX  NOP 
      JMP *-JTD,I 
ENOUT NOP 
      JMP *-JTD,I 
NUMOT NOP 
      JMP *-JTD,I 
GETDG NOP 
      JMP *-JTD,I 
OUTLN NOP 
      JMP *-JTD,I 
EDELM NOP 
      JMP *-JTD,I 
SETPT NOP 
      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 
      JMP *-JTD,I 
BLDIN NOP 
      JMP *-JTD,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 
VLFIL NOP 
      JMP *-JTD,I 
RQSTR NOP 
      JMP *-JTD,I 
FILST NOP 
      JMP *-JTD,I 
GTTYP NOP 
      JMP *-JTD,I 
WRBUF NOP 
      JMP *-JTD,I 
ALCOM NOP 
      JMP *-JTD,I 
RSTPT NOP 
      JMP *-JTD,I 
FENCH NOP 
      JMP *-JTD,I 
MTG1  NOP 
      JMP *-JTD,I 
DTL1  NOP 
      JMP *-JTD,I 
ROUND NOP 
      JMP *-JTD,I 
OUTBL NOP 
      JMP *-JTD,I 
OUTCL NOP 
      JMP *-JTD,I 
DSRCH NOP 
      JMP *-JTD,I 
MCHAR NOP 
      JMP *-JTD,I 
EVEXP NOP 
      JMP *-JTD,I 
USTCK NOP 
      JMP *-JTD,I 
PFSRH NOP 
      JMP *-JTD,I 
FRMAT NOP 
      JMP *-JTD,I 
EPRUS NOP 
      JMP *-JTD,I 
STLCK NOP 
      JMP *-JTD,I 
LCDLP NOP 
      JMP *-JTD,I 
FCUC  NOP 
      JMP *-JTD,I 
EDABR NOP 
      JMP *-JTD,I 
JTD   EQU FSC-SBJTB+1 
* 
**  GENERAL USAGE INFORMATION 
* 
RNDX1 BSS 1         30-BIT RANDOM 
RNDX2 BSS 1          INTEGER. 
.LNUM BSS 1 
LNAME BSS 1 
CHRCT BSS 1 
BLANK OCT 40
SBPTR BSS 1 
SYMTB BSS 1 
VALTB BSS 1 
SPROG DEF PROGB+1 
VLFLG BSS 1 
FLSTS BSS 4 
FILPT BSS 1 
FILCT BSS 1 
USESN BSS 1 
NUMPT BSS 1 
ENOUF NOP 
ATIM  BSS 1 
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 
ERSEC BSS 64
CC    BSS 1 
CC1   BSS 1 
CC2   BSS 1 
CONTR BSS 1 
DP    BSS 1 
DPFLG BSS 1 
EDSTA BSS 1 
EFLAG BSS 1 
EST   BSS 1 
FFLG  BSS 1 
FSP   BSS 1 
IFSS  BSS 1 
IFSTR BSS 1 
NCH   BSS 1 
NUM1  BSS 1 
NUM2  BSS 1 
PC1   BSS 1 
PC2   BSS 1 
SAD   BSS 1 
SBD   BSS 1 
PMASK BSS 1 
RETCD BSS 1 
ASINP BSS 1 
DEFOP OCT 50000 
FOROP OCT 54000 
REPCT BSS 1 
OFLAG OCT 0 
      ORG USER+554B 
PROGB EQU *-1 
* 
**    POINTERS AND TEMPORARIES
* 
FLGBT EQU MNEG
GFLAG EQU NUMOT 
PINTG EQU ERSEC 
SIGN  EQU LETCK 
MANT1 EQU SSYMT 
MANT2 EQU ASYMT 
EXP   EQU DCMPL 
EXPON EQU PRNST 
FFLAG EQU FORMX 
NMTMP EQU SETDP 
NMPTR EQU FDATA 
NUMBF EQU TEMP+3
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
LT8   EQU FRMAT 
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
* 
ERRCT EQU VALTB 
SBUFA EQU TEMP+5
SYNTQ EQU VCHK
SSTAK EQU TEMP+4
MAXCR EQU .FAD
TABLE EQU .FSB
LNGTH EQU .FMP
SMBGN EQU .FDV
SLENG EQU .EXP
COUNT EQU .CHEB 
TBLPT EQU .IENT 
TSPTR EQU .PWR2 
SBT0  EQU .PACK 
CDFLG EQU .FLUN 
PFLAG EQU TEMP+6
* 
**  COMPILE INFORMATION TEMPORARIES 
* 
FLINK EQU FRCUR 
FILTB EQU FILRF 
STEND EQU ARRID 
SPTR  EQU FSC 
NSPTR EQU FPOP
STYPE EQU VAROP 
STMP1 EQU TEMP
STMP2 EQU TEMP+1
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
DCFLG EQU TEMP+6
INFST EQU FRMAT 
* 
**  EXECUTION INFORMATION TEMPORARIES 
* 
FCORE EQU SBSCK 
FCNTR EQU RECRF 
RTRNQ EQU VAROP 
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 TEMP
TEMP2 EQU LPCK
TEMP3 EQU RPCK
TEMP4 EQU LTR 
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 
RSPTR EQU NUMOT 
MCNT  EQU ALCOM                                  [B]
INTMP EQU PCHK
STRLN EQU FRMAT 
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 
A1    EQU TEMP+5
A2    EQU TEMP+6
C1    EQU TEMP+7
FD0   EQU .FAD
TT1   EQU DIGCK 
TT2   EQU LETCK 
TT3   EQU TEMP+3
TT4   EQU TEMP+4
RQ1   EQU ERSEC+1 
RQ2   EQU ERSEC+4 
RQ3   EQU ERSEC+2 
RQ4   EQU ERSEC+3 
RQ5   EQU ERSEC+5 
FBASE EQU FPOP
EORFL EQU ERSEC+6 
FILE# EQU FRCUR 
RCRD# EQU RSTPT 
VL0   EQU WRBUF 
DADRR EQU ERSEC+7 
FILT  EQU ERSEC+8 
MPT   EQU RSCHK 
NQT   EQU OPCHK 
TNULL EQU .FMP
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 
EC    EQU ERSEC 
FST   EQU ERSEC+1 
SFLG  EQU ERSEC+3 
EXPW  EQU ERSEC+4 
HB    EQU ERSEC+5   46 WORD BUFFER
HBP   EQU ERSEC+51
LCH   EQU ERSEC+52
NAD   EQU ERSEC+53
NBD   EQU ERSEC+54
NBLK  EQU ERSEC+55
NHBW  EQU ERSEC+56
NUMW1 EQU ERSEC+59
NUMW2 EQU ERSEC+60
SNFLG EQU ERSEC+61
TOTDG EQU ERSEC+62
DCTR  EQU ERSEC+63
ELCNT EQU VCHK
ORDNO EQU FRMAT 
ASBFP EQU STLCK 
ASTYP EQU REDIM 
