ASMB,A,B,L     2000A-TIME SHARED BASIC--VERSION F *            *                  * *           *  SEPTEMBER 1, 1970 **            *                  * * * ALL CHANGES SINCE VERSION B ARE INDICATED BY THE CHARACTERS [C],* [E], OR [F] AT THE EXTREME RIGHT END OF THE LINE, ACCORDING TO* WHICH VERSION THE CHANGE APPEARED IN.  NOTE THAT THERE IS NO VER- * SION D. *       ORG 4001B       SUP * *  LINKAGE INFORMATION USED BY THE TSB LOADER AND THE *  MAG TAPE DUMP. *       DEF LIBRA     SYSTEM LIBRARY PROGRAM ORIGIN       DEF COM6      => SYSTEM LIBRARY DISC ADDRESSES      ABS TTY01-TTY00    LENGTH OF A TTY TABLE      DEF TTY00+?DISC    ADDRESS OF USER DISC ADDRESS       DEF TTY00+?MASK    ADDRESS OF USER MASK       DEF TTY00+?BHED    => START OF LOGICAL BUFFER       DEF TTY00+?BSTR    => END OF LOGICAL BUFFER       DEF TTY00+?BGIN    => START OF PHYSICAL BUFFER      DEF TTY00+?BEND    => END OF PHYSICAL BUFFER      DEF TTY00+?ID      ADDRESS OF ID-NAME       DEF LMSK      ADDRESS OF USER-DEPENDENT ITEMS       ABS USER-PROGB-1   LENGTH OF SWAP AREA      DEF USER      CORE ADDRESS OF SWAP AREA       DEF DATIM     ADDRESS OF HOUR OF YEAR       DEF DATIM+1   ADDRESS OF TENTHS OF HOUR       DEF YEAR      ADDRESS OF YEAR       DEF TSB       SYSTEM STARTING ADDRESS       DEF SCH53     OTA PHNSC       DEF SCH41     LIA PHNSC       DEF SCH1      RSS       DEF PHL       LAST PHONES INPUT       JSB POWIN,I   TO GO INTO LOC 4.       DEF TLTAB     TRACK LENGTH TABLE FOR SLEEP.       HED BASE PAGE       ORG 2       HLT 2         FOR SYSTEM      JMP *-1         PROTECTION      HLT 4,C       CHANGED BY LOADER.      HLT 5         PARITY ERROR.       CLC 6,C                                    [E]DMA   JSB ?ADIN,I MPX   JSB MPXDR,I   MULTIPLEXOR INTERRUPT LOCATION?SC   JSB T35DR,I   CONSOLE LINKCLOCK JSB CLKDR,I   CLOCKLINK LTEMP BSS 16        TEMPS USED BY NONRESIDENT FUNCS.OUTM1 BSS 1         TEMPS USED BY OUTCH ROUTINE.OUTM2 BSS 1 YEAR  BSS 1         A NUMBER FROM 0 TO 99 INDICATING THE YEAR.DATIM BSS 2         REPRESENTS TIME OF YEAR. FIRST*                            WORD CONTAINS HOUR OF YEAR. SECOND *                             IS # OF 100MS UNITS IN HR - *                             36000.MOVES BSS 1         SOURCE AND DESTINATIONMOVED BSS 1           FOR MOVEW ROUTINE.ID    BSS 1         USED FOR RESULTS OF GETID ROUTINE.MID   BSS 1 T35CP BSS 1         T35 BUFFER PNTR FOR LIBR.PROGS. T35LC BSS 1         RESULT OF T35CH ROUTINE.PBPTR BSS 1         POINTER TO END OF CURRENT PROGRAM TERR  BSS 1         A BIT FLAG INDICATING TAPE ERRORS CFLAG BSS 1         A BIT FLAG INDICATING COMPILEMODE       SPC 1 * THE FOLLOWING VARIABLES ARE USED BY THE MULTIPLEXOR DRIVER. * INBIT BSS 1         HOLDS MPX INPUT.MPXA  BSS 1         REGISTERS SAVED BYMPXB  BSS 1          MULTIPLEXOR DRIVER.MPXE  BSS 1 MPXT0 BSS 1         TEMPORARIES USED BY MPXT1 BSS 1          MULTIPLEXOR DRIVER.CPTR  BSS 1         =>CHARACTER BCNT  BSS 1         =>BIT COUNTER MASK  BSS 1         USER MASK BPNT  BSS 1         =>RUNNING BUFFER POINTERBSTR  BSS 1         =>START OF BUFFER BHED  BSS 1         =>START OF 1ST BUFFER BGIN  BSS 1         =>START OF PHYSICAL BUFFERBEND  BSS 1         =>END OF PHYSICAL BUFFER      SPC 1 * THE FOLLOWING ARE USED BY THE SCHEDULER *       SPC 1 TIMER BSS 1         POINTS TO CLOCK OF ACTIVE USER. SBHED BSS 1 SCHL  BSS 1 TTQ   BSS 1 SCHID BSS 1 SCHP  BSS 1 SCNT  BSS 1 SCHPR BSS 1 CTEMP BSS 1 * THE NEXT SET OF CARDS CONSTITUTE THE RESIDENT INFO ABOUT* DISC RESIDENT TABLES. THESE CARDS MUST BE ORIGINED AT 100B. * THEY ARE INITIALIZED BY THE VARIOUS LOADERS, AND THEIR* CONTENTS ARE WRITTEN ON DISC BY THE SLEEP ROUTINE.DIREC BSS 28        POINTERS TO DISC DIRECTORIES. *                                   THESE CONSIST OF 4 7-WORD *                                   ENTRIES, ONE FOR EACH DISC*                                   DIRECTORY. THE 7 WORDS ARE*                                   1)-#OF WDS. IN DIRECTORY; *                                   2)1ST 5 WDS OF DIRECTORY; *                                   3)DISC ADDRESS. IDLOC BSS 1         DISC ADDRESS OF ID TABLE. IDLEN BSS 1         -#OF WORDS IN IDTABLE.ADLOC BSS 1         DISC ADDRESS OF ADTABLE.ADLEN BSS 1         -#OF WORDS IN ADT.TRAX  BSS 16        TRACK AVAILABLE TABLES. ?TBL  BSS 4         SELECT CODES FOR DISCS. 0=>NONE.MAGSC BSS 1         MAGTAPE SELECT CODE--0IF NONE.PHSC  BSS 1         AUTODISCONNECT SC. 0 IF NONE. PHR   BSS 1 T35BF BSS 36        BUFFER FOR INPUT AND REPLIES. CRLF  OCT 6412      MUST FOLLOW T35BF * * * THE FOLLOWING VARIABLES ARE SYSTEM STATUS VARIABLES. SOME * OF THEM ARE BIT FLAGS, MEANING THAT THEY CONTAIN A* 1 BIT FLAG FOR EACH OF 16 USERS.* MPCOM NOP      BIT=1 FOR MPX MESSAGE TO SCHEDULER.PHL   BSS 1 PHN   BSS 1 PHO   OCT -1PHT   NOP HFLAG NOP           BIT =1 WHEN $HELLO IS RUNNING.MAIN  NOP           INDICATES USER IN CORE,0 IF NONELIB   NOP           INDICATES LIBRARY PROG. IN CORE PLEX  OCT -1        BIT=1 FOR FULLDUPLEX,0FOR HALF. ESCF  NOP           ESCF(I)=1 WHEN USER(I) HAS ESC'DABTST OCT -1        BIT=0 IF ABORT TRY. ENDSK NOP           =1 IF DISC BUSY, 0 IF NOT.INPTF NOP           BIT=1 WHEN INPUTTING CHAR.IOTOG DEC -1        BIT=1 FOR INPUT,0FOR OUTPUT.MPOUT DEC -1        OUTPUT TO MPX.TAPEF NOP           BIT=1 FOR USER IN TAPE MODE.TIMEF NOP           =1 WHEN CURRENT PROG IS TIMED.* POWIN DEF POW MPXDR DEF MPXNT T35DR DEF ?TT2CLKDR DEF CLKIN ?ADIN DEF DINTLIBRA EQU 37300B    256 WORDS FROM THE LOADER.#LIBI DEF LIBRA,I #LIB# DEF LIBRA DTRAX DEF TRAXSCHEN DEF SCHEQ SCHIN DEF SCHIQ     LINKAGE FOR INPUT REQUEST.DLTEM DEF LTEMP TTY35 DEF ?TT35 L5432 DEF LIBUS+5432L5440 DEF LIBUS+5440SCHLB DEF SCHLQ L128  DEF LIBUS+128 FUSS  DEF COM6+1    POINTER TO DISC ADDRESS OF FUSS.DMAS0 DEF TTY00+?MASK-TTY01+TTY00 P5440 DEC 5440DTTY0 DEF TTY00 DIRD0 DEF DIREC DIRD3 DEF DIREC+21* WORD  BSS 1         WORD COUNT TO DISC ROUTINE. LIA1  LIA 1 LIBD  DEF LIBUS LIBDI DEF LIBUS,I ASCBB ASC 1,T35CH DEF T35CQ READY DEF *+1       OCT 5122      LF-R      ASC 2,EADYASC00 ASC 1,00SCHOU DEF SCHOQ DISC  DEF LDISC MLINK DEF *+1       POINTS TO BASIC QUEUE ENTRY.      DEF *         LINK TO HEAD OF QUEUE.      OCT 77777     MAX. PRIORITY USED FOR Q INSERTSINF   EQU MLINK+2 OUTCH DEF #OUTC ALTMD OCT 175 B1777 OCT 1777BKSPC OCT 137 BUFLN EQU 50BLEN  ABS BUFLN+BUFLN DCOM6 DEF COM6DLADR DEF LADDR+3 LOGCT NOP           NUMBER OF ELEMENTS IN LOGGR LOGP1 DEF LOGGR+31  POINTERS TO FIRST AND LASTLOGP2 DEF LOGGR+31    ENTRIES IN LOGGRLOGBG DEF LOGGR     POINTS TO BEGINNING OF LOGGRLOGND DEF LOGGR+32  POINTS TO END OF LOGGRASCIN ASC 1,N ASCFF ASC 1,FFASCBA ASC 1, @ASC0B ASC 1,0 DCLC1 DEF CLC1DCLC2 DEF CLC2* TTY ENTRY FOR TTY35 T35CL NOP           PSEUDO CLOCK. T35RS NOP           RESTART ADDRESS T35ST NOP           STATUST35LK NOP           LINKT35PR NOP           PRIORITYT35LN DEF T35LK T35B2 ABS T35BF+T35BF  CHAR POINTER TO TTY35 BUFFER T35ND  ABS T35BF+T35BF+72  POINTS TO END OF BUFFERT35B1 DEF T35BF     POINTS TO WORD ADDRESS OF BUFFER* ***  CONSTANTS AND TEMPORARIES IN ASR-35 DRIVER.* T35F1 NOP           SYSTEMT35F2 NOP            CONSOLETOG   BSS 1           VARIABLES.TADR  BSS 1 TCNT  BSS 1 TBITS OCT 160000B120K OCT 120000B130K OCT 130000B160K OCT 160000TTA   BSS 1 TTB   BSS 1 TTE   BSS 1 ?ABP2 DEF CRLF* U5343 DEF USER+5343 ONEI  DEF 1,I DEH   DEF EHMLIBD ABS -LIBUS?ATBL DEF ?TBLPBUFF DEF PROGB+1 M36K  ABS -30000-6000 D36K  ABS 30000+6000ISZIP OCT 36000     BASIC ISZ CODEMBITS OCT 7001MBLEN ABS -BUFLN-BUFLNMBLN1 ABS -BUFLN-BUFLN+1MCOM2 ABS -COM2 MNEWN ABS -NEWIN-2RVRSL ASC 1, \SCOM1 DEF COM1SCOM5 DEF COM5-1* **  GENERAL USE CONSTANTS * M5440 DEC -5440 M1000 DEC -1000 M256  DEC -256M252  DEC -252M128  DEC -128M100  DEC -100M133B OCT -133M83   DEC -83 M74   DEC -74 M73   DEC -73 M72   DEC -72 D100  OCT -100D74   OCT -74 D72   OCT -72 M72B  EQU D72 D65   OCT -65 D62   OCT -62 M60B  OCT -60 D53   OCT -53 M41B  OCT -41       DEC -26       DEC -25,-24,-23,-22,-21,-20,-19,-18,-17,-16       DEC -15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4       DEC -3,-2,-1.     DEC 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16      DEC 17,18,19,20,21,22,23,24,25,26,27,28,29,30       DEC 31,32,33,34,35,36,37,38,39,40,41,42,43,44       DEC 45,46,47,48,49B63   OCT 63.58   DEC 58B73   OCT 73D60   DEC 60B77   OCT 77B100  OCT 100 .72   DEC 72?72   EQU .72 .74   DEC 74.75   DEC 75P85   DEC 85B133  OCT 133 .100  DEC 100 .105  DEC 105 B177  OCT 177 B200  OCT 200 .176  OCT 176 B377  OCT 377 B400  OCT 400 B776  OCT 776 B777  OCT 777 %ABOR EQU .+1 %INPT EQU .+2 %OUTW EQU .+3 %SYNT EQU .+4 * **  LANGUAGE PROCESSOR CONSTANTS AND ADDRESSES* TAPEA DEF TAPER                                  [E]SBJTB DEF #FSCSYNTA DEF SYNTX       DEF #SBCK D600  DEC 600       DEF #FRCR XECA  DEF XEC       DEF #FPOP LWAUS DEF USER+5440       DEF #VROP LW200 ABS -5440-USER+200      DEF #ARID STBAS DEF SYNTB-46B,I       DEF #PGIN MCBOP DEF MCBOS       DEF #TBSR MCREL DEF MRELS       DEF #GTPF ANOT  DEF NOT       DEF #LPCK STTYP DEF STYPS       DEF #RPCK AEND  DEF EOFOP       DEF #LTRMATIO DEF IOSTS       DEF #STOP ATHEN DEF THEN      DEF #CRST ASTEP DEF STEP      DEF #DGCK ATAB  DEF TAB       DEF #LTCK PDFNS DEF PRDFS       DEF #SBPU MATFN DEF MATFS       DEF #SYCK OF    ASC 1,OF      DEF #FINC TO    ASC 1,TO      DEF #NMCK FN    ASC 1,NF      DEF #MB10 ACCSA DEF ACCST       DEF #DB10 ACC5A DEF ACCS5       DEF #NRML SYN2A DEF SYNT2       DEF #PACK SER7A DEF SERR7       DEF #OVFL DSERR DEF DSERA       DEF #DLPR SERRA ABS -SERRS      DEF #FDPS RERRA ABS SERRS-RERRS       DEF #SSYM WERRA ABS RERRS-WERRS       DEF #ASYM ERSCA DEF ERSEC       DEF #DCMP APTR1 DEF SYMT6       DEF #PNST APTR2 DEF SYMT7       DEF #CUSP A.10  DEF .+10      DEF #STRI EXITA DEF EXIT      DEF #RSTO XEC1A DEF XEC1      DEF #GTST FRET  DEF FOR10       DEF #FORM XECBR DEF XECTB-46B,I       DEF #STST FOPBS DEF QUOTE-2       DEF #SBFX ARBAS DEF FOJT-12B,I      DEF #PSTR MIOEN DEF MIO7      DEF #FLOT MINP1 DEF EINP1       DEF #TRST MINP2 DEF EINP0+3       DEF #CMPR ENDIN DEF EIN12       DEF #PCHK FSCHA DEF FSCH      DEF #FTCH FINCA DEF FINCH       DEF #STDP NMBFA DEF NUMBF       DEF #FDAT LCALL DEF LIS10-1       DEF #FSCH B1000 OCT 1000      DEF #PSHS B2000 OCT 2000      DEF #ARIN B3000 OCT 3000      DEF #BNOP RPOP  OCT 10000       DEF #STTP RBOP  OCT 11000       DEF #OPCK LBOP  OCT 12000       DEF #RSCK LPOP  OCT 13000       DEF #FADUNPLC OCT 14000       DEF #FSBUNMNC OCT 15000       DEF #FMPMULOP OCT 22000       DEF #FDVEXPOP OCT 24000       DEF #UNPK DIMOP OCT 47000       DEF #FLUN DEFOP OCT 50000       DEF #IFIX REMOP OCT 51000       DEF #ENOT FOROP OCT 54000       DEF #NMOT NXTOP OCT 55000       DEF #GTDG ENDOP OCT 60000       DEF #OTLN DATOP OCT 62000       DEF #EDLM INPOP OCT 63000       DEF #STPT PRTOP OCT 65000       DEF #EXPFILOP OCT 70000       DEF #LOGTOOP  OCT 76000       DEF #CHEB OPMSK OCT 77000       DEF #IENT SMSK  OCT 77600       DEF #PWR2 INTFL OCT 100003      DEF #INCL PDFFL OCT 100017      DEF #GTCR TABCN OCT 100037      DEF #BKSP LENCN OCT 100337      DEF #OTCR OPDMK OCT 100777      DEF #OTIN UNNRM OCT 140000      DEF #MCOT HMASK OCT 174000      DEF #OTST OFOP  OCT 174003      DEF #SINI .2500 DEC 2500      DEF #BLDI TENTH OCT 63146       DEF #RDIM D1111 OCT -1111       DEF #VCHK MAXSN DEC -10000      DEF #SERR E     OCT 105       DEF #CHOU F     OCT 106       DEF #MOVE N     OCT 116       DEF #RECR LETOP OCT 71000       DEF #FILR .140  OCT 140       DEF #VLFI D133  OCT -133      DEF #RQST D577  OCT -577      DEF #FILS B4000 OCT 4000      DEF #GTTY PDFBS JMP PDFTB-1,I       DEF #WRBU FDT4A DEF FDAT4 * **  FUNCTION EXECUTION ENTRY ADDRESSES* PDFTB DEF ETAB      DEF ESIN      DEF ECOS      DEF ETAN      DEF EATN      DEF EEXP      DEF ELOG      DEF EABS      DEF ESQR      DEF EINT      DEF ERND      DEF ESGNLDVSR DEF DVSRS     'LEN' IS DONE IN A SPECIAL WAY      DEF ETYP      SPC 2 DVSRS DEC 10000       DEC 1000      DEC 100       DEC 10MNEG  OCT 100000      OCT 376 HALF  DEC 0.5 M64   EQU D100HIMSK EQU M256EOF   EQU .-1 EOR   EQU .-2 BIT15 EQU MNEGA000  EQU B2000 * **  ERROR JUMP TABLE* SERRS DEF SERR      REP 32      DEF SERRRERRS DEF SERR      REP 37      DEF SERRWERRS DEF SERR      REP 8       DEF SERR      HED USER AREA USE   DEF USERUSEI  DEF USER,IUSER  EQU * AREG  NOP BREG  NOP 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 FLOAT 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 UNPAK 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 JTD   EQU FSC-SBJTB+1 * **  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 40SBPTR BSS 1 SYMTB BSS 1 VALTB 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 64FLGBT EQU MNEGGFLAG EQU NUMOT PINTG EQU ERSEC SIGN  EQU LETCK MANT1 EQU SSYMT MANT2 EQU ASYMT EXP   EQU DCMPL EXPON EQU PRNST DPFLG EQU .PACK FFLAG EQU FORMX NMTMP EQU SETDP NMPTR EQU FDATA NUMBF EQU TEMP+3DIGCT 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 OT1   EQU INCAL OT2   EQU GETCR OT3   EQU BCKSP OT4   EQU REDIM DGCNT EQU STTOP SOURC EQU FILST DEST  EQU GTTYP TAP0  EQU MOVER TAP1  EQU SERRMVEND EQU SERRCU1   EQU CHOUF * **  SYNTAX INFORMATION TEMPORARIES* ERRCT EQU VALTB SBUFA EQU TEMP+5SYNTQ EQU VCHKSSTAK EQU TEMP+4MAXCR EQU .FADTABLE EQU .FSBLNGTH EQU .FMPSMBGN EQU .FDVSLENG EQU .EXPCOUNT EQU .CHEB TBLPT EQU .IENT TSPTR EQU .PWR2 SBT0  EQU .PACK * **  COMPILE INFORMATION TEMPORARIES * FLINK EQU FRCUR FILTB EQU FILRF STEND EQU ARRID SPTR  EQU FSC NSPTR EQU FPOPSTYPE EQU VAROP STMP1 EQU TEMPSTMP2 EQU TEMP+1VTMP1 EQU TEMPVTMP2 EQU TEMP+1VTMP3 EQU TEMP+2VTMP4 EQU TEMP+3* **  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 TEMPTEMP2 EQU LPCKTEMP3 EQU RPCKTEMP4 EQU LTR TEMP5 EQU SYMCK TEMP6 EQU STROP GTMP  EQU MOVER                                  [E]FVT   EQU EDELM EFN0  EQU NUMOT EFN1  EQU GETDG EFN2  EQU OUTLN EFN3  EQU PSHST INITF EQU MCOUT IFCNT EQU NUMOT MCNT  EQU MOVER INTMP EQU PCHKEOL   EQU VCHKEOPF  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 FSCHMMT0  EQU ATMPMMT1  EQU ATMP+1MMT2  EQU BTMPMMT3  EQU BTMP+1MMT4  EQU DTMPMMT5  EQU DTMP+1MMT6  EQU X2TMP MMT7  EQU X2TMP+1 MMT8  EQU OPCHK ID0   EQU WRBUF ID1   EQU FDATA RD0   EQU VCHKVT0   EQU RSCHK SCALR EQU XTEMP MAXE  EQU YTEMP TOL   EQU UTEMP PIVEL EQU PSTREST1  EQU .CHEB EST2  EQU .IENT EST3  EQU .PWR2 A1    EQU TEMP+5C1    EQU TEMP+6A2    EQU TEMP+7C2    EQU TEMP+8EXP2  EQU OVFLW FD0   EQU .FADTT1   EQU DIGCK TT2   EQU LETCK TT3   EQU TEMP+3TT4   EQU TEMP+4RQ1   EQU ERSEC+1                                [E]RQ2   EQU ERSEC+2                                [E]RQ3   EQU ERSEC+3                                [E]FBASE EQU FPOP                                   [E]EORFL EQU ERSEC+4                                [E]FILE# EQU FRCUR                                  [E]RCRD# EQU COMPR VL0   EQU WRBUF DADRR EQU ERSEC+5                                [E]FILT  EQU ERSEC+6                                [E]MPT   EQU RSCHK NQT   EQU OPCHK TNULL EQU .FMPTPRME EQU .FDVPS0   EQU REDIM PS1   EQU SINIT CP0   EQU .EXPCP1   EQU PSTRTRFCH EQU .FADTRS0  EQU .FSBRT0   EQU .CHEB RT1   EQU .IENT *                                                                [E]LBTMP EQU .LOGCTMP  EQU OPCHK PROGB EQU *-1 