           SYSTEM   SIG7FD                                              SYST0010
           SYSTEM   BPM
           REF      Q:POOL
CALL       CNAME                                                        SYST2000
           PROC                                                         SYST2000
           LOCAL    I,J                                                 SYST2000
I          SET      NUM(AF)                                             SYST2000
           DO       AFA(1)
LF(1)      GEN,16,16 X'6A7C',AF(1)
           ELSE
LF(1)      BAL,X7   AF(1)                                               SYST2000
           FIN
           DO1      I>1                                                 SYST2000
           B        %+I                                                 SYST2000
I          SET      I-1                                                 SYST2000
           DO1      I>0                                                 SYST2000
LF(2)      EQU      %                                                   SYST2000
J          DO       I                                                   SYST2000
           GEN,1,31 AFA(J+1),AF(J+1)                                    SYST2000
           FIN
           PEND                                                         SYST2000
SAVE       CNAME
           PROC
           LOCAL    I,J
I          SET      NUM(AF)
LF       B        %+(I+3)
           PLW,X7   *X6
J          DO       I
           PLW,AF(J) *X6
           FIN
           B        0,X7
J          DO       I
           PSW,AF(I-(J-1)) *X6
           FIN
           PSW,X7   *X6
           PEND
RETURN     CNAME                                                        SYST2250
           PROC                                                         SYST2250
           DO       NUM(AF)>1                                           SYST2250
           ERROR,0,1 'EXTRA FIELD(WARNING ONLY)'                        SYST2250
           FIN                                                          SYST2250
           DO       NUM(AF)>0                                           SYST2250
LF         B        AF(1)+1                                             SYST2250
           ELSE                                                         SYST2250
           ERROR,7,1 'RETURN SYMBOL MISSING'                            SYST2250
           FIN                                                          SYST2250
           PEND                                                         SYST2250
XOS        EQU     0
UTS        EQU     1
Q:CLSD     EQU     36        TRANSFER VECTOR FOR PUBLIC LIBRARY
Q:CLST     EQU     33
Q:CLSTAT   EQU     44
Q:CTJ      EQU     57
Q:DATE     EQU     42
Q:DEQ      EQU     58
Q:ENQ      EQU     59
Q:FSP      EQU     41
Q:GCP      EQU     49
Q:GSP      EQU     40
Q:JRNL     EQU     32
Q:JWAIT    EQU     34
Q:OFIL     EQU     35
Q:OPNT     EQU     31
Q:OPSTAT   EQU     43
Q:OTEST  EQU      73
Q:OTJ      EQU     60
Q:RDTJ     EQU     61
Q:READ     EQU     37
Q:RWRIT    EQU     47
Q:RWTJ     EQU     62
Q:SCLSE    EQU     46
Q:SLINK    EQU     50
Q:SMDCB    EQU     55
Q:SOPEN    EQU     51
Q:SPAR     EQU     54
Q:SREAD    EQU     52
Q:SRLS     EQU     56
Q:STATS    EQU     29        SAME AS QSSTATS
Q:SWRT     EQU     53
Q:TRACE    EQU     30        SAME AS QSTRACE
Q:WAIT     EQU     39
Q:WATJ     EQU     63
Q:WRIT     EQU     38
Q:WRSTAT   EQU     45
Q:WRTJ     EQU     64
QCABLKSIZ  EQU     22        SIZE OF AREA BLOCK IN WORDS
QCABT      EQU     20        ADDR OF Q:ERR IN MODULE Q:ITFC
QCABT1     EQU     21        NONZERO IF FATAL ERROR HAS OCCURRED
QCACT      EQU     158       BUFFER ACTIVITY TABLE
QCAREA     EQU     157       ADDR OF AREA BLOCK FOR PAGE IN CURRENT BUFF
QCAREATBL  EQU     24        ADDR OF AREA TABLE PLUS 1 IS TBL COUNT
QCATBLSIZ  EQU     4
QCAUTH     EQU     214       NONZERO IF Q:AUTH HAS DETECTED BAD AUTHORIT
QCAUTH1    EQU     178       RETRIEVE AUTHORITY BITS FROM PASSWORD DEF
QCAUTH2    EQU     186       UPDATE AUTHORITY BITS FROM PASSWORD DEF
QCBFTBL    EQU     194       WORD ADDRESSES OF DATA BUFFERS
QCBNBR     EQU     215       NUMBER OF CURRENT DATA BUFFER
QCBSPACE   EQU     241       BEGINNING ADDR OF ACQUIRED BUFFER SPACE
QCBUF      EQU     216       WORD LOC OF CURRENT DATA BUFFER
QCCHTBL    EQU     229      ZERO IF 4 BYTE SET POINTER 1 IF 3
QCDCBCHN   EQU     72         ADDR OF DCB CHAIN IN JIT
QCDSW      EQU     79        NONZERO IF CURRENT GRP OF FILE HAS DSWITCH
QCEMTY     EQU     217       NUMBER OF EMPTY BUFFER
QCEXUPD    EQU     282       NBR OF AREAS OPEN EXUPD OR CREATE
QCFDR      EQU     15        WORD ADDRESS OF FILE DEFINITION (QFD)
QCGDR      EQU     218       WORD ADDR OF GRP DEF FOR CURRENT OF FILE
QCGRP      EQU     219       RELATIVE WORD POSITION OF CURR GRP IN BUFF
QCINDXHD   EQU     12        SIZE OF INDEX PAGE HEADER IN BYTES
QCJRNL     EQU     17        ADDR OF JOURNAL DCB
QCJRNL1    EQU     220       NONZERO IF JOURNAL SHOULD BE WRITTEN
QCJRNL2    EQU     221       NONZERO AFTER JOURNAL IS CLOSED
QCJRNL3    EQU     222       NONZERO IF JOURNAL IS OPEN
QCLKADR    EQU     69        LOCK ADR SET BY DMSLOCK
QCNAREA    EQU     280       NUMBER OF AREAS IN USERS SUBSCHEMA
QCNBUF     EQU     223       NUMBER OF DATA BUFFERS ASSIGNED
QCOPEN     EQU     18        NONZERO IF FILE IS CURRENTLY OPENED
QCPGSZ     EQU     226       SIZE OF DATA PAGE IN WORDS
QCPSWD     EQU     224       TWO WORD AREA TO SAVE USERS PASSWORD
QCRCSZ     EQU     227       SIZE OF REF-CODE IN BYTES
QCSCHADR   EQU     16        ADDR OF SCHEMA DCB
QCSHDAR    EQU     283       NBR OF AREAS OPEN SHARED
QCSTATADR  EQU     28        ADDR OF F:STAT DCB
QCTID      EQU     71        TRANSACTION ID
QCTJADR    EQU     70        TRANS JRNL DCB ADDRESS
QCTJOPN    EQU     284       NONZERO IF TRANSIENT JRNL IS OPEN
QCTYP      EQU     80        SYN OF GROUP THAT IS CURRENT OF FILE
QSADLT     EQU     2         Q:ASC DETAIL DEFINITION STACK POINTER
QSADLTR    EQU     4         REFRESHER FOR QSADLT
QSAFTR     EQU     66        SEQUENCE NUMBER FOR JOURNAL AFTER IMAGES
QSAMLT     EQU     6         Q:ASC MASTER DEFINITION STACK POINTER
QSAMLTR    EQU     8         REFRESHER FOR QSAMLT
QSASC1     EQU     156       INDICATOR THAT Q:ASC HAS FOUND CURRENT MSTR
QSASC2     EQU     258       LOCATION OF Q:ASC CURRENT GROUP DEFINITION
QSASC3     EQU     259       Q:ASC HIERARCHY COUNT
QSASC4     EQU     260       LOCATION OF Q:ASC CURRENT DETAIL DEFINITION
QSBEFR     EQU     65        SEQUENCE NUMBER FOR JOURNAL BEFORE IMAGES
QSBFCB     EQU     261       BYTE ADDRESS OF USERS CCB
QSBIC      EQU     262       PAGE NUMBER ARGUMENT FOR Q:BIC
QSBIC1     EQU     85        NONZERO IF Q:BIC IS CALLED BY Q:BEFR
QSBIDX     EQU     242       REF-CODE FOR NEW INDEX ENTRY TO BE BUILT
QSBIDX1    EQU     243       PAGE NBR OF INDEX PAGE TO BE UPDATED
QSBIDX2    EQU     244       ENTRY IN INDEX PAGE TO BE UPDATED
QSBIDX3    EQU     256       ISAM DEF ADDRESS FOR Q:BIDX
QSBPOOL    EQU     14        LOCATION OF 3 DATA BUFFERS IN ASSEMBLY
QSCADR     EQU     263       GROUP SIZE INDICATOR FOR Q:CADR
QSCALC     EQU     264       PAGE NUMBER RESULT OF Q:CALC HASHING
QSCALC1    EQU     265       GROUPS RANGE WIDTH FOR Q:CALC
QSCHKS     EQU     86        NONZERO IF Q:CHKS IS CALLED BY Q:CHKS1
QSCHKS1    EQU     87        STORAGE FOR Q:CHKPG
QSCKPT     EQU     84        NONZERO IF Q:CLOS IS CALLED BY Q:CKPT
QSDBEX     EQU     67        NONZERO IF DBM OPERATING OR WAS INTERRUPTED
QSDBSTAT   EQU     257       NONZERO IF STATISTICS ARE REQUIRED
QSDCHK     EQU     252       QID STORAGE FOR Q:DCHK
QSDCHK1    EQU     253       CHK DEF STORAGE FOR Q:DCHK
QSDELT     EQU     266       NONZERO IF Q:DLTE DIDNT DELINK ALL CHAINS
QSDELT1    EQU     267       BYTE ADDR OF GROUP Q:DLTE IS DELETING
QSDELT2    EQU     268       BUFFER NUMBER OF GROUP Q:DLTE IS DELETING
QSDELT3    EQU     88        NONZERO IF IN PHYSICAL DELETION PROCESS
QSDELT4    EQU     81        DELETE AUTO SWITCH FOR Q:DLTE
QSDETLT    EQU     10        Q:TLNK DETAIL DEFINITION STACK POINTER
QSDLNK     EQU     89        INHIBIT INDICATOR FOR Q:TYPX BY Q:DLNK
QSDLNK1    EQU     269       LOCATION OF DETAIL DEF TO BE DELINKED
QSDLNK2    EQU     270       LOCATION OF MASTER DEF FOR QSDLNK1 DETAIL
QSDLNK3    EQU     82        DELINK MANUAL MEMBER SWITCH FOR Q:DLNK
QSDLSTR    EQU     12        REFRESHER FOR QSDETLT
QSFDP      EQU     26        INDICATOR OF FDP USE OF DATABASE MANAGER
QSFIDX     EQU     83        NONZERO IF Q:IDXS IS FINDING FIRST OR LAST
QSFIND     EQU     271       USERS ARG OF GROUP OR CHAIN TBL FOR Q:FIND
QSFLSH     EQU     272       ADDR OF AREA BLOCK USED BY Q:FLSH
QSFLSH1    EQU     273       TEMP STORAGE FOR Q:FLSH
QSFRTN     EQU     22        NONZERO IF CALL TO DBM IS FROM FORTRAN
QSFWD      EQU     90        NONZERO IF CHAIN PROCESSING IS FORWARD
QSFWD1     EQU     274       LOC OF MASTER DEFINITION FOR Q:FWD
QSFWD2     EQU     275       REF-CODE OF GROUP Q:FWD HAS RETRIEVED
QSFWD3     EQU     276       LOC OF DETAIL DEF IF Q:FWD RETRIEVED DETAIL
QSGDET     EQU     91        NONZERO IF Q:GDET IS SEARCHING FOR INSERT
QSGDET1    EQU     277       X3 STORAGE FOR Q:GDET
QSGDET2    EQU     278       X2 STORAGE FOR Q:GDET
QSGDET3    EQU     279       Q:GDET STORAGE FOR FILE INCREMENT OF ITEM
QSGDET4    EQU    286        Q:GDET STORAGE FOR CONDITION CODES
QSGDET5    EQU     92        SIGN OF ITEM IN Q:GDET NUMERIC COMPARE
QSGETE     EQU     93        NONZERO IF GET030 FOUND A GRP FOR Q:GETE
QSGETE1    EQU     94        X7 STORAGE FOR GET030 WITHIN Q:GETE
QSGIDX     EQU     245       REF-CODE FOR PAGE SET HEADER FROM Q:GIDX
QSGIDX1    EQU     246       NON-ZERO IF INDEX KEYS ARE HIGHEST IN AREA
QSGIDX2    EQU     247       ADDR OF AREA BLOCK FOR REF-CODE IN QSGIDX
QSGIDX3    EQU     248       ADDR OF INDEX DEF FOR Q:GIDX
QSGIDX4    EQU     249       ADDR OF DETAIL DEF FOR PAGE SET
QSGIDX5    EQU     250       ADDR OF CONTROL DEF FOR PAGE SET
QSHEAD     EQU     95        ARGUMENT FROM Q:HEAD TO Q:MOVE
QSHEAD1    EQU     96        Q:HEAD STORAGE FOR QCBUF
QSHEAD2    EQU     97        Q:HEAD STORAGE FOR QCGRP
QSHEAD3    EQU     98        Q:HEAD STORAGE FOR QCGDR
QSIDXS     EQU     251       PAGE 1 LINE ZERO CONSTANT
QSINDX     EQU     99        REF CODE OF DATA GRP FOR CURRENT INDEX GRP
QSINV      EQU     228       WORD ADDRESS OF INVENTORY BUFFER
QSINV1     EQU     102       DATA PAGE NBR ARGUMENT FOR Q:INV
QSINV2     EQU     100       LOC OF SPACE AVAIL IN INVENTORY BUFFER
QSINV3     EQU     103       PAGE NUMBER OF INVENTORY PAGE IN INV BUFFER
QSINV4     EQU     104       NUMBER OF NEXT INVENTORY PAGE TO READ
QSINV5     EQU     105       AREA BLOCK ADDR FOR Q:INV
QSIOS      EQU     106       BUFFER ADDR FOR READ/WRITE RANDOM FILE
QSIOS1     EQU     107       RELATIVE GRANULE NBR FOR READ/WRITE RANDOM
QSIOS2     EQU     108       BYTE COUNT FOR READ/WRITE RANDOM FILE
QSIOS3     EQU     109       BUFFER ADDR FOR JOURNAL TAPE WRITE
QSIRCD     EQU     110       REF CODE OF CURRENT INDEX GROUP
QSLINK     EQU     111       POSITION ARG FOR INTERNAL SUBROUTINE LNK100
QSLINK1    EQU     112       X7 STORAGE FOR LNK100 ROUTINE WITHIN Q:LINK
QSLINK2    EQU     113       LOC OF CURRENT MASTER DEF FOR Q:LINK
QSLINK3    EQU     114       LOC OF CHAIN TABLE FOR Q:LINK
QSLINK4    EQU     115       CURRENT BUFFER LOC FOR LNK100
QSLINK5    EQU     116       CURRENT BUFFER LOC FOR LNK100
QSLINK6    EQU     117       CURRENT GROUP POSITION FOR LNK100
QSLINK7    EQU     118       CURRENT BUFFER NUMBER FOR LNK100
QSMDFY     EQU     119       X7 STORAGE FOR Q:MDFY
QSMDFY1    EQU    287        NONZERO Q:MDFY IS IN MODIFICATION PHASE
QSMNO      EQU     120       BASE DATA PAGE NUMBER FOR Q:MNO
QSMNO1     EQU     121       CURRENT DATA PAGE Q:MNO IS SCANNING
QSMNO2     EQU     122       PAGE RANGE MINIMUM FOR Q:MNO
QSMNO3     EQU     123       PAGE RANGE MAXIMUM FOR Q:MNO
QSMNO4     EQU     124       TOTAL PAGES IN FILE FOR Q:MNO
QSMNO5     EQU     125       WIDTH OF PAGE RANGE FOR Q:MNO
QSMOV      EQU     126       X7 STORAGE FOR Q:MOVE
QSMRAC     EQU    288        REF-CODE ARGUMENT FOR Q:MRAC
QSMRAC1    EQU    289        ADDR OF PREVIOUS AREA TBL ENTRY
QSMRAC2    EQU    290        ADDR OF PREVIOUS QGD
QSOPEN     EQU     19        INDICATOR THAT DATABASE FILE WAS OPENED
QSOPEN1    EQU     127       USERS OPEN MODE SAVED BY Q:OPEN
QSORT      EQU     128       NONZERO IF THERE IS A SORTD FILE IN FINDSEQ
QSORT1     EQU     254       DCB ADDRESS FOR OUTPUT FILE TO SORT
QSORT2     EQU     255       DCB ADDRESS FOR INPUT FILE FROM SORT (XOS)
QSPACK1    EQU     129       SOURCE BYTE ADDRESS FOR Q:PACK
QSPACK2    EQU     130       DESTINATION BYTE ADDRESS FOR Q:PACK
QSPACK3    EQU     131       NUMBER OF BYTES TO MOVE FOR Q:PACK
QSPAGE     EQU     132       ADDRESS OF COMMON PAGE FOR SORT IN FINDSEQ
QSPBUF     EQU     230       BUFFER FOR Q:MNO TO BUILD LINE FLAGS
QSRLNK     EQU     238       REF-CODE OF OBJ GROUP FOR Q:RLNK
QSRLNK1    EQU     239       DETAIL DEF ADDRESS FOR Q:RLNK
QSRLNK2    EQU     240       ERROR CODE IN Q:RLNK
QSRLSFG    EQU     285       NONZERO IF CLOS CALLED BY Q:RLSE
QSRUND     EQU     133       LOC OF MASTER DEF FOR Q:RUND
QSRUND1    EQU     134       REF-CODE OF CURRENT GRP AT ENTRY OF Q:RUND
QSSCHN     EQU     136       4 WORDS OF STORAGE FOR CALCHAIN TABLE
QSSCHSIZ   EQU     135       NBR OF PAGES REQUIRED FOR IN-OCRE SCHEMA
QSSTATS    EQU     29        ADDR OF PROCEDURAL STATS ROUTINE
QSSYN      EQU     144       SYN OF LAST INDEX USED IN FINDX LOOP
QSSYN1     EQU     77        SYN OF LAST INDEX USED IN FINDSEQ LOOP
QSTACK     EQU     0         REGISTER STORAGE STACK POINTER
QSTEMP     EQU     140       TEMPORARY STORAGE ALL ROUTINES
QSTLNK     EQU     145       REF-CODE OF GROUP TO BE LINKED BY Q:TLNK
QSTLNK1    EQU     78        NONZERO IF ERROR OCCURRED DURING Q:TLNK
QSTLNK2    EQU     146       NUMBER OF CHAINS PROCESSED BY Q:TLNK
QSTLNK3    EQU     147       NUMBER OF CHAINS LEFT TO PROCESS BY Q:TLNK
QSTLNK4    EQU     148       TEMPORARY ERROR CODE STORAGE FOR Q:TLNK
QSTOR1     EQU     149       LOC OF GROUP DEF FOR GROUP TO BE INSERTED
QSTRACE    EQU     30        ADDR OF PROCEDURAL TRACE ROUTINE
QSTRAP     EQU     23        ADDR OF USERS ERROR RETURN TABLE
QSTYPX     EQU     150       REF-CODE ARG FOR Q:TYPX
QSTYPX1    EQU     151       STORAGE FOR REF-CODE OF CHAIN MASTER Q:TYPX
QSUDCH     EQU     152       REF-CODE ARG FOR Q:UDCH
QSUFCB     EQU     153       REF-CODE ARG FOR Q:UFCB
QSUPDC     EQU     154       REF-CODE ARG FOR Q:UPDC
QSUPDC1    EQU     155       X2 STORAGE FOR Q:UPDC
QSWFCB     EQU     27        WORD ADDRESS OF USERS CCB
QSXCON     EQU     68        NONZERO IF EXT CTL-PREVIOUS ADR OR -1
QL2        EQU     Q:POOL+64
QL3        EQU      Q:POOL    ASSIGNMENT OF HEX CONSTANTS IN Q:POOL
QL4        EQU      Q:POOL+1
QL8        EQU      Q:POOL+2
QLA        EQU      Q:POOL+3
QLC        EQU      Q:POOL+4
QL01       EQU      Q:POOL+5
QL02       EQU      Q:POOL+6
QL04       EQU      Q:POOL+7
QL08       EQU      Q:POOL+8
QL09       EQU      Q:POOL+58
QL0D       EQU      Q:POOL+9
QL0F       EQU      Q:POOL+60
QL11       EQU      Q:POOL+10
QL14       EQU      Q:POOL+11
QL15       EQU      Q:POOL+12
QLFF       EQU      Q:POOL+13
QL001      EQU      Q:POOL+14
QL002      EQU      Q:POOL+15
QL003      EQU      Q:POOL+16
QL004      EQU      Q:POOL+17
QL006      EQU      Q:POOL+18
QL007      EQU      Q:POOL+19
QL008      EQU      Q:POOL+20
QL00F      EQU      Q:POOL+21
QLFF8      EQU      Q:POOL+57
QLFFC      EQU      Q:POOL+22
QLFFF      EQU      Q:POOL+23
QL0002     EQU      Q:POOL+61
QL0004     EQU      Q:POOL+56
QL0006     EQU      Q:POOL+59
QL0008     EQU      Q:POOL+24
QR1        EQU      Q:POOL+25
QR2        EQU      Q:POOL+26
QR3        EQU      Q:POOL+27
QR4        EQU      Q:POOL+28
QR7        EQU      Q:POOL+62
QR8        EQU      Q:POOL+29
QRA        EQU      Q:POOL+30
QRF        EQU      Q:POOL+31
QR14       EQU      Q:POOL+32
QR20       EQU      Q:POOL+33
QR30       EQU      Q:POOL+34
QR40       EQU      Q:POOL+35
QR64       EQU      Q:POOL+36
QRC7       EQU      Q:POOL+37
QRF0       EQU      Q:POOL+38
QRFD       EQU      Q:POOL+63
QRFF       EQU      Q:POOL+39
QR100      EQU      Q:POOL+40
QR1FF      EQU      Q:POOL+41
QR200      EQU      Q:POOL+42
QR3FF      EQU      Q:POOL+43
QRFFF      EQU      Q:POOL+44
QR1FFF     EQU      Q:POOL+45
QR2000     EQU      Q:POOL+46
QR7FFF     EQU      Q:POOL+47
QRFFFF     EQU      Q:POOL+48
QR1FFFF    EQU      Q:POOL+49
QR3FFFF    EQU      Q:POOL+50
QR7FFFF    EQU      Q:POOL+51
QRFFFFF    EQU      Q:POOL+52
QRFFFFFF   EQU      Q:POOL+53
QRFFFFFDFF EQU      Q:POOL+54
QRFBFFFFFF EQU     Q:POOL+65
Q40404040  EQU      Q:POOL+55
QCMAST     EQU      0       OFFSET TO CHAIN TABLES
QCPROR     EQU      4
QCCURR     EQU      8
QCNEXT     EQU      12
QCKEYR     EQU      16
QFDREF     EQU      0        ASSIGNMENT OF CELLS WITHIN USERS CCB
QFPAGE     EQU      1
QFFREF     EQU      4
QFLREF     EQU      5
QFGTYP     EQU      6
QFERCD     EQU      7
QFEGRP     EQU      8
QFEREF     EQU      9
QFPSWD     EQU      10
QFAREA     EQU      12
QE001      EQU     1         ASSIGNMENT OF ERROR CODES
QE002      EQU     2
QE003      EQU     3
QE004      EQU     4
QE005      EQU     5
QE006      EQU     6
QE007      EQU     7
QE008      EQU     8
QE009      EQU     9
QE010      EQU     10
QE011      EQU     11
QE012      EQU     12
QE013      EQU     13
QE014      EQU     14
QE015      EQU     15
QE016      EQU     16
QE017      EQU     17
QE018      EQU     18
QE019      EQU     19
QE020      EQU     20
QE021      EQU     21
QE022      EQU     22
QE023      EQU     23
QE030      EQU     30
QE031      EQU     31
QE032      EQU     32
QE033      EQU     33
QE034      EQU     34
QE035      EQU     35
QE036      EQU     36
QE037      EQU     37
QE038      EQU     38
QE039      EQU     39
QE040      EQU     40
QE041      EQU     41
QE042      EQU     42
QE043      EQU     43
QE044      EQU     44
QE045      EQU     45
QE046      EQU     46
QE047      EQU     47
QE048      EQU     48
QE049      EQU     49
QE050      EQU     50
QE051      EQU     51
QE052      EQU     52
QE053      EQU     53
QE054      EQU     54
QE061      EQU     61
QE062      EQU     62
QE063      EQU     63
QE064      EQU     64
QE065      EQU     65
QE066      EQU     66
QE067      EQU     67
QE068      EQU     68
QE069      EQU     69
QE070      EQU     70
QE071      EQU     71
QE072      EQU     72
QE073      EQU     73
QE074      EQU     74
QE075      EQU     75
QE076      EQU     76
QE077      EQU     77
QE078      EQU     78
QE079      EQU     79
QE080      EQU     80
QE081      EQU     81
QE082      EQU     82
QE083      EQU     83
QE084      EQU     84
QE085      EQU     85
QE086      EQU     86
QE087      EQU     87
QE088      EQU     88
QE089      EQU     89
QE090      EQU     90
QE091      EQU     91
QE092      EQU     92
QE093      EQU     93
QE094      EQU     94
QE095      EQU     95
QE096      EQU     96
QE097      EQU     97
QE098      EQU     98
QE099      EQU     99
QE100      EQU     100
QE101      EQU     101
QE102      EQU     102
QE103      EQU     103
QE104      EQU     104
QE105      EQU     105
QE121      EQU     121
QE122      EQU     122
QE123      EQU     123
QE124      EQU     124
QE125      EQU     125
QE126      EQU     126
QE127      EQU     127
QE128      EQU     128
QE129      EQU     129
QE130      EQU     130
QE131      EQU     131
QE132      EQU     132
QE133      EQU     133
QE134      EQU     134
QE135      EQU     135
QE136      EQU     136
QE137      EQU     137
QE138      EQU     138
QE139      EQU     139
QE140      EQU     140
X1         EQU      1        ASSIGNMENT OF GENERAL REGISTERS
X2         EQU      2                                                   SYST1750
X3         EQU      3                                                   SYST1750
X4         EQU      4                                                   SYST1750
X5         EQU      5                                                   SYST1750
X6         EQU      6                                                   SYST1750
X7         EQU      7                                                   SYST1750
X8         EQU      8                                                   SYST1750
X9         EQU      9                                                   SYST1750
X10        EQU      10                                                  SYST1750
X11        EQU      11                                                  SYST1750
X12        EQU      12                                                  SYST1750
X13        EQU      13                                                  SYST1750
A          EQU      14                                                  SYST2000
Q          EQU      15                                                  SYST2000
           END
