JCSTORE

Table Of Contents
  • [00004] STORE- RESIDENT COMMA 2 AUG 67
  • [00124] CONCATENATED COMMON AREA (CATCO)
  • [00147] STORE- CATCO DUP SWITCHES
  • [00319] STORE–PROLOGUE
  • [00464] STORE–MASTER CONTROL
  • [00557] STORE–WS TO USER AREA OR FIXED AREA
  • [00676] STORE–GET WORKING STORAGE
  • [00767] STORE–WS TO UA/FXA CONSTANTS
  • [00849] STORE–PUT TO UA/FXA
  • [00889] STORE–CORE IMAGE CONTROL
  • [00932] STORE–UPDATE LET/FLET
  • [01051] STORE–UPDATE LET SECTOR HEADER
  • [01108] STORE–UPDATE LET/FLET CONSTANTS
  • [01137] STORE–GENERATE NEW LET/FLET SECTOR
  • [01195] STORE–MULTI ENTRY SUBPROGRAM
  • [01215] STORE–WRITE LET/FLET SECTOR
  • [01239] STORE–DATA OR CI LET UPDATE
  • [01296] STORE–MAKE ENTRY TO FLET
  • [01397] STORE–UPDATE DCOM
  • [01433] STORE–PRINT SIGN OFF MESSAGE
  • [01480] STORE–SIGN-OFF WORK AREA
  • [01494] STORE–I/O TO WS INITIALIZATION
  • [01588] STORE–IOWS READ DATA RECORDS
  • [01621] STORE–IOWS RECORD TYPE DECODING
  • [01641] STORE–TYPE A DATA RECORDS
  • [01701] STORE–IOWS CONSTANTS AND WORK AREA
  • [01838] STORE–WRITE PROGRAM TO WS
  • [01903] STORE–FINAL WRITE TO WS
  • [01918] STORE–TYPE F END OF PROG RECORD
  • [01982] STORE–SUBR TO MOVE 54 WORDS
  • [02009] STORE–STOREDATA I/O TO WS
  • [02148] STORE–STOREDATA I/O TO WS,UA, OR FXA
  • [02170] STORE–STOREMOD PROCESSING
  • [02274] STORE–STOREMOD CONSTANTS,WORK AREAS
jcstore.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:05 2020
 
Source File: \jcstore.asm 
STORE-    RESIDENT COMMA   2 AUG 67
 
                             2 |       ABS                                           J0300020
0005                         3 | $CIBA EQU     /5   ADDR OF CIB ON MASTER CARTRIDGE  J0300030
0006                         4 | $CH12 EQU     /6   CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0300040
0007                         5 | $COMN EQU     /7   WORD COUNT OF COMMON             J0300050
000E                         6 | $CORE EQU     /E   CORE SIZE,/1000=4K,/2000=8K,ETC) J0300060
000F                         7 | $CTSW EQU     /F   MCR SW,NON-ZERO=// RECD TRAPPED  J0300070
0010                         8 | $DADR EQU     /10  SCTR ADDR OF PROG TO BE FETCHED  J0300080
0011                         9 | $DABL EQU     /11  IOCC FOR SCA RESET (ODD ADDR)    J0300090
0012                        10 | $DREQ EQU     /12  INDR FOR REQUESTED V. DISK I/O   J0300100
0013                        11 | $IBSY EQU     /13  PRINC I/O BUSY INDR,NON-ZERO=BSY J0300110
0014                        12 | $HASH EQU     /14  WORK AREA FOR MONITOR PROGRAMS   J0300120
0028                        13 | $PRET EQU     /28  ADDR PREOPERATIVE ERROR TRAP     J0300130
002C                        14 | $IREQ EQU     /2C  ADDR OF INT REQUEST SUBROUTINE   J0300140
002D                        15 | $ULET EQU     /2D  ADDR OF LET, LOGICAL DRIVE 0     J0300150
0032                        16 | $IOCT EQU     /32  IOCS CTR,0=NO I/O IN PROGRESS    J0300160
0033                        17 | $LAST EQU     /33  LAST CD INDR,NON-ZERO=LAST CARD  J0300170
0034                        18 | $NDUP EQU     /34  INHIBIT DUP SW,NON-ZERO=NO DUP   J0300180
0035                        19 | $NXEQ EQU     /35  INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0300190
0036                        20 | $PBSY EQU     /36  PRINC PTR BUSY INDR,NON-ZERO=BSY J0300200
0037                        21 | $PGCT EQU     /37  PAGE NO. FOR PAGE HEADINGS       J0300210
0038                        22 | $EXIT EQU     /38  ADDR CALL EXIT ENTRY POINT       J0300220
0039                        23 | $LINK EQU     /39  ADDR CALL LINK ENTRY POINT       J0300230
003F                        24 | $DUMP EQU     /3F  ADDR OF CALL DUMP, ENTRY POINT   J0300240
0077                        25 | $DCDE EQU     /77  DRIVE CODE FOR CORE LOAD BLDR    J0300250
0078                        26 | $PHSE EQU     /78  NO. OF PHASE CURRENTLY IN CORE   J0300260
0079                        27 | $UFIO EQU     /79  ARM POSITION IN UNFORMATTED AREA J0300270
007A                        28 | $WSDR EQU     /7A  WORKING STORAGE DRIVE CODE       J0300280
007B                        29 | $WRD1 EQU     /7B  LOAD ADDR FOR CURR USER CORE LD  J0300290
007C                        30 | $KCSW EQU     /7C  INHIBIT INPUT/PRINT OVERLAP SW   J0300300
007D                        31 | $UFDR EQU     /7D  UNFORMATTED I/O DRIVE CODE       J0300310
007E                        32 | $CPTR EQU     /7E  CHANNEL 12 INDICATOR FOR CP      J0300320
007F                        33 | $1132 EQU     /7F  CHANNEL 12 INDICATOR FOR 1132    J0300330
0080                        34 | $1403 EQU     /80  CHANNEL 12 INDICATOR FOR 1403    J0300340
0081                        35 | $PST1 EQU     /81  ADDR POSTOP ERROR TRAP,LEVEL 1   J0300350
0085                        36 | $PST2 EQU     /85  ADDR POSTOP ERROR TRAP,LEVEL 2   J0300360
0089                        37 | $PST3 EQU     /89  ADDR POSTOP ERROR TRAP,LEVEL 3   J0300370
008D                        38 | $PST4 EQU     /8D  ADDR POSTOP ERROR TRAP,LEVEL 4   J0300380
0091                        39 | $STOP EQU     /91  ADDR PROGRAM STOP KEY TRAP       J0300390
0095                        40 | $FPAD EQU     /95  FILE PROTECT ADDR (ADJ),LOG DR 0 J0300400
009A                        41 | $CYLN EQU     /9A  ARM POSITION FOR LOGICAL DRIVE 0 J0300410
009F                        42 | $ACDE EQU     /9F  AREA CODE FOR LOGICAL DRIVE 0    J0300420
00A4                        43 | $DCYL EQU     /A4  1ST DEF CYL ADDR, LOGICAL DR 0   J0300430
00B3                        44 | $I200 EQU     /B3  ENTRY POINT TO ILS FOR LEVEL 2   J0300440
00B8                        45 | $I205 EQU     /B8                                   J0300450
00B9                        46 | $IBT2 EQU     $I205+1 ADDR OF IBT FOR LEVEL 2       J0300460
00C4                        47 | $I400 EQU     /C4  ENTRY POINT TO ILS FOR LEVEL 4   J0300470
00D3                        48 | $I405 EQU     /D3                                   J0300480
00D4                        49 | $IBT4 EQU     $I405+1 ADDR OF IBT FOR LEVEL 4       J0300490
00D5                        50 | $I410 EQU     /D5                                   J0300500
00EE                        51 | $DBSY EQU     /EE  DISK BUSY INDR,NON-ZERO=DK BUSY  J0300510
01CB                        52 | $BYSW EQU     /1CB BYPASS SW,NOP IF FETCHING SOCAL  J0300520
00F2                        53 | DZ000 EQU     /0F2 DISKZ ENTRY POINT                J0300530
01E0                        54 | $ZEND EQU     /1E0 ADDR 1+LAST WORD OF DISKZ        J0300540

 
7FA0                        56 | C     EQU     /7FA0     CATCO POINTER SET TO MIDDLE J0300560
                            57 | *************************************************** J0300570
                            58 | *                                                 * J0300580
                            59 | *  INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0300590
                            60 | *  FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT  * J0300600
                            61 | *  USING XR 1 FOR OTHER REASONS MUST RESTORE.     * J0300610
                            62 | *  ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0300620
                            63 | *  VALUE THAT INDICATES THEIR RELATIVE LOCATION   * J0300630
                            64 | *  FROM .C.                                       * J0300640
                            65 | *                                                 * J0300650
                            66 | *************************************************** J0300660
                            67 | *                                                 * J0300670
                            68 | *             CATCO DCOM IMAGE                    * J0300680
                            69 | *   EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0300690
                            70 | *                                                 * J0300700
                            71 | *************************************************** J0300710
FF84                        72 | #NAME EQU     4-/80     NAME OF PROGRAM             J0300720
FF86                        73 | #DBCT EQU     6-/80     DISK BLOCK COUNT OF PROGRAM J0300730
FF87                        74 | #FCNT EQU     7-/80     FILES SW,ZERO = NO FILES    J0300740
FF88                        75 | #SYSC EQU     8-/80     NON-ZERO,SYSTEM CARTRIDGE   J0300750
FF89                        76 | #JBSW EQU     9-/80     JOB SW,NON-ZERO='T' MODE    J0300760
FF8A                        77 | #CBSW EQU     10-/80    CLB SW,NON-ZERO=STORECI     J0300770
FF8B                        78 | #LCNT EQU     11-/80    NO. OF LOCALS               J0300780
FF8C                        79 | #MPSW EQU     12-/80    NON-ZERO, CORE MAP DESIRED  J0300790
FF8D                        80 | #MDF1 EQU     13-/80    NO. OF DUP CTRL RCDS        J0300800
FF8E                        81 | #MDF2 EQU     14-/80    ADDR OF MODIF BUFFER        J0300810
FF8F                        82 | #NCNT EQU     15-/80    NO. OF NOCALS               J0300820
FF90                        83 | #ENTY EQU     16-/80    RELATIVE ENTRY ADDR OF PROG J0300830
FF91                        84 | #RP67 EQU     17-/80    IF NON-ZERO,1442 MOD 6,7    J0300840
                            85 | *                                                   J0300850
                            86 | *   NEGATIVE VALUE REPRESENTS DEFAULT CONDITION   * J0300860
FF92                        87 | #TODR EQU     18-/80    DR CODE OF 'TO' DRIVE       J0300870
FF93                        88 | #FRDR EQU     19-/80    DR CODE OF 'FROM' DRIVE     J0300880
                            89 | *                                                 * J0300890
FF94                        90 | #FHOL EQU     20-/80    ADDR OF LARGEST FXA HOLE    J0300900
FF95                        91 | #FSZE EQU     21-/80    BLK CNT LARGEST HOLE IN FXA J0300910
FF96                        92 | #UHOL EQU     22-/80    ADDR OF LARGEST UA HOLE     J0300920
FF97                        93 | #USZE EQU     23-/80    BLK CNT LARGEST HOLE IN UA  J0300930
FF98                        94 | #DCSW EQU     24-/80    NON-ZERO=DUP CALL           J0300940
FF99                        95 | #PIOD EQU     25-/80    PRINC. I/O INDICATOR        J0300950
FF9A                        96 | #PPTR EQU     26-/80    PRINC. PRINTER INDICATOR    J0300960
FF9B                        97 | #CIAD EQU     27-/80    WD NO. SCTR 0,CIL ADDR      J0300970
FF9C                        98 | #ACIN EQU     28-/80    AVAILABLE CARTRIDGE INDR2-8 J0300980
FF9D                        99 | #GRPH EQU     29-/80    2250 INDICATOR          2-8 J0300990
FF9E                       100 | #GCNT EQU     30-/80    NO. G2250 RECORDS       2-8 J0301000
FF9F                       101 | #LOSW EQU     31-/80    LOCAL-CALLS-LOCAL INDR  2-8 J0301010
FFA0                       102 | #X3SW EQU     32-/80    SPECIAL ILS SWITCH      2-8 J0301020
FFA1                       103 | #ECNT EQU     33-/80    NO. OF EQUAT RCDS       2-8 J0301030
FFA3                       104 | #ANDU EQU     35-/80    END OF UA (ADJ) LOG DR 0-4  J0301040
FFA8                       105 | #BNDU EQU     40-/80    END OF UA (BASE) LOG DR 0-4 J0301050
FFAD                       106 | #FPAD EQU     45-/80    FILE PROTECT ADDR (BASE)    J0301060
FFB2                       107 | #PCID EQU     50-/80    CART ID, PHYS DR 0-4        J0301070
FFB7                       108 | #CIDN EQU     55-/80    CART ID, LOG DR 0-4         J0301080
FFBC                       109 | #CIBA EQU     60-/80    CIB ADDR, LOG DR 0-4        J0301090
FFC1                       110 | #SCRA EQU     65-/80    SCRA, LOG DR 0-4            J0301100
FFC6                       111 | #FMAT EQU     70-/80    WS FORMAT, LOG DR 0-4       J0301110
FFCB                       112 | #FLET EQU     75-/80    FLET ADDR, LOG DR 0-4       J0301120
FFD0                       113 | #ULET EQU     80-/80    LET ADDR, LOG DR 0-4        J0301130
FFD5                       114 | #WSCT EQU     85-/80    WS BLK CNT, LOG DR 0-4      J0301140
FFDA                       115 | #CSHN EQU     90-/80    CUSHION END SCTR ADDR, 0-4  J0301150
0001                       116 | #DCOM EQU     1         SCTR ADDR OF DCOM           J0301160
0007                       117 | #HDNG EQU     7         SCTR WITH PAGE HEADING      J0301170
0FB0                       118 | @SBFR EQU     /FB0                              2-8 J0301180
CONCATENATED COMMON AREA (CATCO)
 
                           120 | *************************************************** J0301200
                           121 | *                                                 * J0301210
                           122 | *             CATCO IOAR HDRS FOR DUP PHASES        J0301220
                           123 | *                                                 * J0301230
                           124 | *************************************************** J0301240
FFF0                       125 |       ORG     -/10                                  J0301250
FFF0                       126 | DCHDR BSS     2         DUP CONTROL            PH02 J0301260
FFF2                       127 | STHDR BSS     2         STORE                  PH03 J0301270
FFF4                       128 | FLHDR BSS     2         FILEQ                  PH04 J0301280
FFF6                       129 | DMHDR BSS     2         DUMP                   PH05 J0301290
FFF8                       130 | DLHDR BSS     2         DUMPLET                PH06 J0301300
FFFA                       131 | DTHDR BSS     2         DELETE                 PH07 J0301310
FFFC                       132 | DFHDR BSS     2         DEFINE                 PH08 J0301320
FFFE                       133 | DXHDR BSS     2         DUP EXIT               PH09 J0301330
0000                       134 | UCHDR BSS     2         DUP UPCOR              PH13 J0301340
0002                       135 | PIHDR BSS     2         PRINCIPAL I/O BLOCK    PH14 J0301350
0004                       136 | SIHDR BSS     2         PRINC I/O (W/O KB) BLK PH15 J0301360
0006                       137 | PTHDR BSS     2         PAPER TAPE I/O BLOCK   PH16 J0301370
0008                       138 | CIHDR BSS     2         CI PHASE READ BY CL BUILDER J0301380
000A                       139 | MUHDR BSS     2         MACRO UPDATE      PH206 2-8 J0301390
000C                       140 | D2HDR BSS     2         DUP CONTROL 2     PH205 2-8 J0301400
STORE-    CATCO DUP SWITCHES
 
                           142 | *************************************************** J0301420
                           143 | *                                                   J0301430
                           144 | *             CATCO DUP SWITCHES                  * J0301440
                           145 | *      WORDS USED FOR COMMUNICATION OF DATA         J0301450
                           146 | *   BETWEEN DUP ROUTINES.                           J0301460
                           147 | *                                                 * J0301470
                           148 | *      INITIALIZED TO ZERO BY  .REST. OF DUPCO    * J0301480
                           149 | *                                                   J0301490
                           150 | *************************************************** J0301500
000E                       151 | CL1   EQU     *                                     J0301510
000E                       152 | ASMSW BSS     1         NON ZERO IF DEFINE VOID ASM J0301520
000F                       153 | BITSW BSS     1         NON ZERO TO ALLOW MDUMP-S   J0301530
0010                       154 | BLKSW BSS     1         NON ZERO IF BYPASSING REC   J0301540
0011                       155 | CIERR BSS     1         ERROR NO DETECTED BY PH 17  J0301550
0012                       156 | CISW  BSS     1         NON ZERO IF STORE CI        J0301560
0013                       157 | CLBSW BSS     1         NON ZERO IF PRECI EXECUTED  J0301570
0014                       158 | CNTNO BSS     1         RECORD NO BEING PCHD OR RD  J0301580
                           159 | *                                                 * J0301590
                           160 | *   .DATSW. IS FILLED WITH THE CNT FIELD OF THE   * J0301600
                           161 | *   DUP CONTROL RECORD.                           * J0301610
                           162 | *   USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0301620
                           163 | *   USED FOR COUNT OF RECORDS TO READ AFTER A     * J0301630
                           164 | *   STORE CI DUP CONTROL RECORD.                  * J0301640
0015                       165 | DATSW BSS     1         RECORDS VALUE IN CNT FIELD  J0301650
0016                       166 | DBADR BSS     1         DB ADDR OF REFERENCED PROG  J0301660
0017                       167 | DELSW BSS     1         ADDR OF REQ LET ENTRY - 1   J0301670
0018                       168 | DFNSW BSS     1         NON ZERO IF DEFINE FXA      J0301680
0019                       169 | DKSAD BSS     1         DK SCTR ADDR W/O DR CODE    J0301690
001A                       170 | DUMPP BSS  E  2         LAST LIMITS FOR PRNTR DUMP  J0301700
001C                       171 | FORSW BSS     1         NON ZERO IF DEFINE VOID FOR J0301710
001D                       172 | FRWS  BSS     1         NON ZERO IF FROM FLD IS WS  J0301720
001E                       173 | FXSW  BSS     1         NON ZERO IF FIXED AREA REQD J0301730
001F                       174 | HOLSW BSS     1         NON ZERO IF NO CONV REQD    J0301740
0020                       175 | IOSW  BSS     1         NON ZERO IF IN/OUT REQD     J0301750
                           176 | *                                                 * J0301760
                           177 | *   DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0301770
                           178 | *       PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0301780
                           179 | *       NEG. VALUE REQUIRES PRINT OF FLET ONLY    * J0301790
0021                       180 | LETSW BSS     1         NON ZERO,PRINT LET OR FLET* J0301800
0022                       181 | LSTLF BSS     1         LAST LET/FLET SECT PROCESSD J0301810
0023                       182 | MODSW BSS     1         NON ZERO IF STORE MOD FUNC  J0301820
0024                       183 | NAMSW BSS     1         NON ZERO IF NAME IN LET/F   J0301830
0025                       184 | NEGSW BSS     1         NON ZERO IF SHRINKING FXA   J0301840
0026                       185 | PGMHL BSS     1         WORD COUNT OF THE PROG HDR  J0301850
0027                       186 | PRSW  BSS     1         NON ZERO IF PRINTING OUTPUT J0301860
0028                       187 | PTSW  BSS     1         NON ZERO IF PAPER TAPE REQD J0301870
0029                       188 | SKWDS BSS     1         WDS TO SEARCH IN L/F SECT   J0301880
002A                       189 | STCSW BSS     1         NON ZERO IF STORE DATA CI   J0301890
002B                       190 | STSW  BSS     1         NON ZERO IF STORE TYPE      J0301900
002C                       191 | TEMP1 BSS  E  1         1ST WD OF BINEB OUTPUT      J0301910
002D                       192 | TEMP2 BSS     1         2ND WD OF BINEB OUTPUT      J0301920
002E                       193 | TOWS  BSS     1         NON ZERO IF TO FIELD IS WS  J0301930
002F                       194 | T3MSW BSS     1         TYPE 3,4 SOCAL LEVEL CELL   J0301940
0030                       195 | UASW  BSS     1         NON ZERO IF USER AREA REQD  J0301950
0031                       196 | WSSW  BSS     1         NON ZERO IF WORK STG REQD   J0301960
0032                       197 | XEQSW BSS     1         NON ZERO IF NOT RET FR GET  J0301970
0033                       198 | EBCSW BSS     1         NON ZERO IF EBC DATA OP 2E2 J0301980
0034                       199 | HDNSW BSS     1         NON ZERO IF NAME IN HDR 2-8 J0301990
0035                       200 | RPGSW BSS     1         NON Z IF DEFINE VOID RPG2-8 J0302000
0036                       201 | DFLSW BSS     1         NON ZERO IF *DFILE      2-8 J0302010
0037                       202 |       BSS     1         RESERVED FOR ADDITION   2-8 J0302020
0037                       203 | CL2   EQU     *-1                                   J0302030
STORE-    CATCO DUP SWITCHES
 
                           205 | *************************************************** J0302050
                           206 | *                                                 * J0302060
                           207 | *             CATCO DUP SWITCHES                  * J0302070
                           208 | *  INITIALIZED BY DCTL AND NOT RESET BY .REST.    * J0302080
                           209 | *                                                 * J0302090
                           210 | *************************************************** J0302100
0038                       211 | IOREQ BSS     1         NON-ZERO,AUX I/O SET REQ    J0302110
0039                       212 | PH2   BSS     1         NON-ZERO IF DCTL IN CORE    J0302120
003A                       213 | PH3   BSS     1         NON-ZERO IF STORE IN CORE   J0302130
003B                       214 | PH4   BSS     1         NON-ZERO IF DUMP IN CORE    J0302140
                           215 | ************************************************2-8 J0302150
                           216 | *                                               2-8 J0302160
                           217 | *             CATCO SWITCH INITIALIZED TO ZERO  2-8 J0302170
                           218 | *   BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0302180
                           219 | *                                               2-8 J0302190
                           220 | ************************************************2-8 J0302200
003C                       221 | DUPCR BSS     1         NON ZERO IF DUP CTRL RCD2-8 J0302210
                           222 | *************************************************** J0302220
                           223 | *                                                 * J0302230
                           224 | *             CATCO DUP SWITCHES SET BY CCAT SUBR * J0302240
                           225 | *                                                 * J0302250
                           226 | *************************************************** J0302260
003D                       227 | ADDR2 BSS     1         KB INTERRUPT ADDRESS        J0302270
003E                       228 | KBREQ BSS     1         CONTENTS OF LOC 13          J0302280
                           229 | *      THE FOLLOWING SWITCH IS SET TO INDICATE THE  J0302290
                           230 | *       PRINCIPAL INPUT DEVICE                      J0302300
                           231 | *             -  IS PAPER TAPE                      J0302310
                           232 | *             0  IS CARD                            J0302320
                           233 | *             +  IS KEYBOARD                        J0302330
003F                       234 | INOUT BSS     1         PRINCIPAL INPUT SWITCH      J0302340
                           235 | *                                                   J0302350
0040                       236 | PTPON BSS     1         NON-ZERO IF PAPER TP ON SYS J0302360
                           237 | *************************************************** J0302370
                           238 | *                                                 * J0302380
                           239 | *             LEVEL 4 INTERRUPT BRANCH TABLE      * J0302390
                           240 | *             ADDRESSES. INITIALIZED BY CCAT,     * J0302400
                           241 | *             AND CARD/PAPER TAPE INTERFACES.     * J0302410
                           242 | *                                                 * J0302420
                           243 | *************************************************** J0302430
0049                       244 |       ORG     /0049                                 J0302440
0049                       245 | IBT   BSS     9         9 WD INTRPT BRANCH TABLE    J0302450
                           246 | *************************************************** J0302460
                           247 | *                                                 * J0302470
                           248 | *             CATCO I/O ADDRESSES REQUIRED BY DUP * J0302480
                           249 | *                                                 * J0302490
                           250 | *************************************************** J0302500
0052                       251 | P1442 BSS  E  2         SYS 1442 IOAR HEADER        J0302510
0054                       252 | PRPAR BSS     2         DEFAULT LIMITS TO PRINT     J0302520
0056                       253 | PHDUP BSS     1         LAST DUP PHASE IN CORE      J0302530
0057                       254 | CRBUF BSS     1         81 WD BFR FOR DUP CTRL RCDS J0302540
0058                       255 | DCADR BSS     1         ADDR FOR DUP CTRL IOAR HDR  J0302550
0059                       256 | HDBUF BSS     1         ADDR OF PAGE HEADING BFR    J0302560
005A                       257 | IOBLK BSS     1         ADDR OF DUP I/O PHASE       J0302570
005B                       258 | SDBUF BSS     1         STORE/DUMP BUFFER           J0302580
005C                       259 | LETAR BSS     1         ADDR OF LET SEARCH BUFFER   J0302590
005D                       260 | PEBUF BSS     1         41 WD BFR FOR PACKED EBCDIC J0302600
005E                       261 | THIS  BSS     1         ADDR OF DOUBLE BFR, BFR 1   J0302610
005F                       262 | NEXT  BSS     1         ADDR OF DOUBLE BFR, BFR 2   J0302620

 
00F2                       264 | DISKZ EQU     DZ000     DISKZ ENTRY POINT           J0302640
01DE                       265 | B     EQU     $ZEND-2                               J0302650
01DE                       266 | DMPLC EQU     B         IOAR CORE ADDR FOR DMPLT    J0302660
01DE                       267 | EXITC EQU     B         IOAR CORE ADDR FOR DEXIT    J0302670
01DE                       268 | MUPC  EQU     B         IOAR CORE ADDR FOR MUP  2-8 J0302680
11E0                       269 | DCTL  EQU     B+/1002   ENTRY ADDRESS OF DCTL       J0302690
11DE                       270 | DCTLC EQU     B+/1000   IOAR CORE ADDR FOR DCTL     J0302700
21DE                       271 | WSDC  EQU     B+/2000   IOAR CORE ADDR FOR STORE    J0302710
41DE                       272 | DUMPC EQU     B+/4000   IOAR CORE ADDR FOR DDUMP    J0302720
7DB0                       273 | DUPCO EQU     /7DB0     ADDR OF RESIDENT DUPCO      J0302730
7F1E                       274 | CATCO EQU     /7F20-2   ADDR OF DCOM IOAR HEADER    J0302740
                           275 | *                                                 * J0302750
                           276 | *  DUPCO ENTRY POINTS...USED WITH INDIRECT BSI    * J0302760
                           277 | *                                                 * J0302770
7DB0                       278 |       ORG     DUPCO                                 J0302780
7DB0                       279 | BINEB BSS     1         CONVERSION BINARY TO EBCDIC J0302790
7DB1                       280 | WRTDC BSS     1         WRITE DCOM(S) SUBROUTINE    J0302800
7DB2                       281 | ENTER BSS     1         SAVE XR-S AND CONDITIONS    J0302810
7DB3                       282 | GET   BSS     1         READ FROM DISK USING DISKZ  J0302820
7DB4                       283 | LEAVE BSS     1         HANDLES ALL EXITS FROM DUP  J0302830
7DB5                       284 | LINE  BSS     1         SPACES PRINTER 1 LINE       J0302840
7DB6                       285 | MASK  BSS     1         INHIBITS KB INT REQUEST     J0302850
7DB7                       286 | MDUMP BSS     1         PRINTS SELECTED CORE LOC-S  J0302860
7DB8                       287 | PAGE  BSS     1         SKIPS TO NEXT PAGE          J0302870
7DB9                       288 | PHID  BSS     1         RECORDS PHASE ID            J0302880
7DBA                       289 | PHIDM BSS     1         RECORDS PHASE AND MODIFIER  J0302890
7DBB                       290 | PRINT BSS     1         USE SYS PR SUBR TO PRINT    J0302900
7DBC                       291 | PUT   BSS     1         WRITES TO DISK USING DISKZ  J0302910
7DBD                       292 | REST  BSS     1         RESTORE CATCO,GO TO DCTL    J0302920
7DBE                       293 | RTURN BSS     1         RESTORE XR-S AND CONDITIONS J0302930
                           294 | *                                                 * J0302940
                           295 | *  INPUT/OUTPUT PARAMETERS , CORE ADDRESSES       * J0302950
                           296 | *                                                 * J0302960
7D91                       297 | BUF6  EQU     DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0302970
7C50                       298 | PRPNT EQU     BUF6-/141  IOAR ADDR FOR PRINC.PTR    J0302980
7A06                       299 | IOADR EQU     BUF6-/38B  START OF I/O INTERFACE     J0302990
7A0A                       300 | GETHO EQU     IOADR+4   ENTRY FOR READING HOLL TYPE J0303000
7A0B                       301 | GETBI EQU     IOADR+5   ENTRY FOR READING BINARY    J0303010
7A0C                       302 | PACKB EQU     IOADR+6   ENTRY TO PACK BINARY        J0303020
7A0D                       303 | PCHBI EQU     IOADR+7   ENTRY TO PUNCH BINARY       J0303030
79B5                       304 | BUF1  EQU     IOADR-/51 ADDR OF NEXT BUFFER         J0303040
7963                       305 | BUF2  EQU     BUF1-/52  ADDR OF THIS BUFFER         J0303050
7925                       306 | BUF3  EQU     BUF2-/3E  ADDR OF PACKED EBC BUFFER   J0303060
78D3                       307 | BUF4  EQU     BUF3-/52  ADDR OF CONTROL RCD BUFFER  J0303070
7782                       308 | BUF5  EQU     IOADR-/284    ADDR OF LET SCTR BFR    J0303080
0640                       309 | BUF7  EQU     BUF5-/7142   ADDR OF STORE/DUMP BFR   J0303090
STORE--PROLOGUE
 
                           311 | *************************************************** J0303110
                           312 | *STATUS - VERSION 2, MODIFICATION LEVEL 12        * J0303120
                           313 | *                                                 * J0303130
                           314 | *FUNCTION/OPERATION-                              * J0303140
                           315 | *   * THIS DUP MODULE STORES PROGRAMS OR DATA     * J0303150
                           316 | *     FROM CARDS,PAPER TAPE, OR WORKING STORAGE   * J0303160
                           317 | *     (OF ANY DRIVE) TO WORKING STORAGE,USER AREA * J0303170
                           318 | *     OR FIXED AREA OF ANY DRIVE.                 * J0303180
                           319 | *   * STORE RESIDES IN CORE THROUGHOUT THE STORE  * J0303190
                           320 | *     OPERATION WITH THE EXCEPTION OF A STORE     * J0303200
                           321 | *     CORE IMAGE. IN ADDITION, STORE WILL RESIDE  * J0303210
                           322 | *     IN CORE AT ALL TIMES THAT DUP IS IN CONTROL * J0303220
                           323 | *     IF CORE SIZE IS GREATER THAN 8K.            * J0303230
                           324 | *                                                 * J0303240
                           325 | *ENTRY POINTS-                                    * J0303250
                           326 | *   STORE-ENTER FROM DUP CONTROL EITHER AS THE    * J0303260
                           327 | *         RESULT OF A STORE CONTROL RECORD, OR    * J0303270
                           328 | *         THE COMPLETION OF A STORE CORE IMAGE    * J0303280
                           329 | *         BY DUP PHASE 17 WHICH RETURNS TO STORE  * J0303290
                           330 | *         BY WAY OF DUP CONTROL.                  * J0303300
                           331 | *                                                 * J0303310
                           332 | *INPUT-                                           * J0303320
                           333 | *   * CARDS OR PAPER TAPE IF STORING FROM CARD    * J0303330
                           334 | *     OR PAPER TAPE                               * J0303340
                           335 | *   * DISK WORKING STORAGE WHEN MOVING FROM       * J0303350
                           336 | *     WORKING STORAGE TO FIXED AREA WORKING       * J0303360
                           337 | *     STORAGE TO USER AREA ON A DIFFERENT DRIVE,  * J0303370
                           338 | *     OR WORKING STORAGE TO USER AREA ON THE      * J0303380
                           339 | *     SAME DRIVE WHERE DB ADJUSTMENT OF A DSF     * J0303390
                           340 | *     PROGRAM IS REQUIRED.                        * J0303400
                           341 | *   * DISK USER AREA TO GET USER AREA DB'S WHICH  * J0303410
                           342 | *     EXTEND PAST THE END OF THE LAST COMPLETE    * J0303420
                           343 | *     USER AREA SECTOR WHEN STORING A DSF PROGRAM * J0303430
                           344 | *     TO THE USER AREA.                           * J0303440
                           345 | *   * LET OF 'TO' DRIVE WHEN STORING TO THE       * J0303450
                           346 | *     USER AREA.                                  * J0303460
                           347 | *   * FLET OF 'TO' DRIVE WHEN STORING TO THE      * J0303470
                           348 | *     FIXED AREA.                                 * J0303480
                           349 | *                                                 * J0303490
                           350 | *OUTPUT-                                          * J0303500
                           351 | *   * WORKING STORAGE WHEN STORING FROM CARD OR   * J0303510
                           352 | *     PAPER TAPE.                                 * J0303520
                           353 | *   * USER AREA WHEN STORING TO A DRIVE WHICH IS  * J0303530
                           354 | *     NOT THE WORKING STORAGE DRIVE, OR IF        * J0303540
                           355 | *     STORING A DSF PROGRAM WHICH REQUIRES        * J0303550
                           356 | *     DB ADJUSTMENT.                              * J0303560
                           357 | *   * FIXED AREA IF STORING DATA OR STORING DATA  * J0303570
                           358 | *     CORE IMAGE.                                 * J0303580
                           359 | *   * LET OF 'TO' DRIVE WHEN STORING TO THE USER  * J0303590
                           360 | *     AREA.                                       * J0303600
                           361 | *   * FLET OF 'TO' DRIVE WHEN STORING TO THE      * J0303610
                           362 | *     FIXED AREA.                                 * J0303620
                           363 | *                                                 * J0303630
                           364 | *EXTERNAL REFERENCES-                             * J0303640
                           365 | *   SUBROUTINES-                                  * J0303650
                           366 | *      * PHID-ID OF STORE TO 'PHASE' IN COMMA     * J0303660
                           367 | *      * MASK-MASK KEYBOARD REQUEST               * J0303670
                           368 | *      * LEAVE-LINK TO DUP EXIT MODULE            * J0303680
                           369 | *      * PRINT-PRINT STORE SIGN-OFF MESSAGE       * J0303690
                           370 | *      * GET-READ DISK                            * J0303700
                           371 | *      * PUT-WRITE DISK                           * J0303710
                           372 | *      * GETBI-READ BINARY CARD OR PAPER TAPE     * J0303720
                           373 | *      * PACKB-PACK BINARY CARD OR PAPER TAPE     * J0303730
                           374 | *      * REST-EXIT AFTER PRINTING SIGN-OFF        * J0303740
                           375 | *   COMMA/DCOM-                                   * J0303750
                           376 | *      * $CORE                                    * J0303760
                           377 | *      * $IBSY                                    * J0303770
                           378 | *      * $WSDR                                    * J0303780
                           379 | *      * $FPAD                                    * J0303790
                           380 | *      * #NAME                                    * J0303800
                           381 | *      * #DBCT                                    * J0303810
                           382 | *      * #JBSW                                    * J0303820
                           383 | *      * #CBSW                                    * J0303830
                           384 | *      * #ENTY                                    * J0303840
                           385 | *      * #TODR                                    * J0303850
                           386 | *      * #FRDR                                    * J0303860
                           387 | *      * #FHOL                                    * J0303870
                           388 | *      * #FSZE                                    * J0303880
                           389 | *      * #UHOL                                    * J0303890
                           390 | *      * #USZE                                    * J0303900
                           391 | *      * #ANDU                                    * J0303910
                           392 | *      * #BNDU                                    * J0303920
                           393 | *      * #FPAD                                    * J0303930
                           394 | *      * #CIDN                                    * J0303940
                           395 | *      * #FMAT                                    * J0303950
                           396 | *      * #WSCT                                    * J0303960
                           397 | *                                                 * J0303970
                           398 | *EXITS-                                           * J0303980
                           399 | *   NORMAL-                                       * J0303990
                           400 | *      * EXIT TO REST IN DUP COMMON MODULE AFTER  * J0304000
                           401 | *        PRINTING SIGN-OFF MESSAGE.               * J0304010
                           402 | *      * EXIT TO LEAVE IN DUP COMMON MODULE WHEN  * J0304020
                           403 | *        STORING CORE IMAGE AND PROGRAM IS IN     * J0304030
                           404 | *        WORKING STORAGE IN DSF FORMAT. EXIT TO   * J0304040
                           405 | *        LEAVE IS WITH A CODE OF -3.              * J0304050
                           406 | *   ERROR-                                        * J0304060
                           407 | *      LEAVE-EXIT HERE WITH ERROR CODE FOR ERROR  * J0304070
                           408 | *            MESSAGE.                             * J0304080
                           409 | *                                                 * J0304090
                           410 | *TABLES/WORK AREAS                                * J0304100
                           411 | *      * CATCO SWITCHES AND VALUES SET BY DUP     * J0304110
                           412 | *        CONTROL-                                 * J0304120
                           413 | *           * TEMP1                               * J0304130
                           414 | *           * TEMP2                               * J0304140
                           415 | *           * CISW                                * J0304150
                           416 | *           * DATSW                               * J0304160
                           417 | *           * STCSW                               * J0304170
                           418 | *           * MODSW                               * J0304180
                           419 | *           * FXSW                                * J0304190
                           420 | *           * IOSW                                * J0304200
                           421 | *           * STSW                                * J0304210
                           422 | *           * PTSW                                * J0304220
                           423 | *           * UASW                                * J0304230
                           424 | *           * WSSW                                * J0304240
                           425 | *      * BUFFERS-                                 * J0304250
                           426 | *           * THIS (CARD OR PAPER TAPE)           * J0304260
                           427 | *           * NEXT (CARD OR PAPER TAPE)           * J0304270
                           428 | *           * LETAR-ONE SECTOR DISK BUFFER IF 4K  * J0304280
                           429 | *                   OTHERWISE SEVEN SECTOR BUFFER * J0304290
                           430 | *           * LETAR-ONE SECTOR BUFFER FOR LET     * J0304300
                           431 | *                   OR FLET                       * J0304310
                           432 | *                                                 * J0304320
                           433 | *ATTRIBUTES-                                      * J0304330
                           434 | *      SERIALLY REUSEABLE                         * J0304340
                           435 | *                                                 * J0304350
                           436 | *NOTES-                                           * J0304360
                           437 | *      * WHEN STORING FROM CARDS, DOUBLE BUFFER-  * J0304370
                           438 | *        ING IS USED TO MAINTAIN CARD READER      * J0304380
                           439 | *        RATED SPEED.                             * J0304390
                           440 | *      * WHEN STORING CORE IMAGE, EXIT IS MADE TO * J0304400
                           441 | *        LEAVE IN DUPCO WITH A CODE OF MINUS 3.   * J0304410
                           442 | *        LEAVE WILL GET DUP'S EXIT MODULE WHICH   * J0304420
                           443 | *        WILL SAVE UPCOR AND GET THE CLB. AFTER   * J0304430
                           444 | *        THE CORE LOAD IS BUILT, THE CLB WILL     * J0304440
                           445 | *        GET PHASE 17 OF DUP AND TRANSFER TO IT.  * J0304450
                           446 | *        PHASE 17 WILL COMPLETE THE STORECI       * J0304460
                           447 | *        EXCEPT FOR THE LET OR FLET UPDATION. IT  * J0304470
                           448 | *        WILL THEN RELOAD DUP UPCOR, AND EXIT TO  * J0304480
                           449 | *        REST IN DUPCO. AFTER REST HAS RELOADED   * J0304490
                           450 | *        DUP CONTROL, DUP CONTROL WILL LOAD STORE * J0304500
                           451 | *        AND RE-ENTER IT TO UPDATE LET OR FLET    * J0304510
                           452 | *        AND COMPLETE THE STORECI.                * J0304520
                           453 | *************************************************** J0304530
STORE--MASTER CONTROL
 
21DE                       455 |       ORG     WSDC      ORIGIN AT OVERLAY + 8K      J0304550
21DE 0000                  456 |       DC      *-*       SYS LDR FILLS IN WD CNT     J0304560
21DF 0003                  457 |       DC      3         PHASE ID OF STORE           J0304570
                           458 | *************************************************** J0304580
                           459 | *                                                 * J0304590
                           460 | *   THE FOLLOWING SUBMODULE OF STORE CONTROLS     * J0304600
                           461 | *   BRANCHING TO THE APPROPRIATE SUBMODULE FOR    * J0304610
                           462 | *   A PARTICULAR TYPE OF STORE OPERATION.         * J0304620
                           463 | *                                                 * J0304630
                           464 | *************************************************** J0304640
21E0 4480 7DB9             465 | ST000 BSI  I  PHID      INDICATE STORE IS IN CTRL   J0304650
21E2 0003                  466 |       DC      /0003     SLET PHASE ID OF STORE      J0304660
21E3 1010                  467 |       SLA     16                                    J0304670
21E4 D400 22C9             468 |       STO  L  DS950     CLEAR 1DUMY PADDING DB CNT  J0304680
21E6 C136                  469 |       LD    1 DFLSW     TEST DFILE SWITCH       2-8 J0304690
21E7 4C20 21FE             470 |       BSC  L  ST007,Z   BRANCH IF DFILE         2-8 J0304700
                           471 | *************************************************** J0304710
                           472 | *                                                 * J0304720
                           473 | *   DETERMINE IF INPUT FROM CARD/PAPT REQUIRED    * J0304730
                           474 | *                                                 * J0304740
                           475 | *************************************************** J0304750
21E9 C120                  476 |       LD    1 IOSW                                  J0304760
21EA 4C20 24E2             477 |       BSC  L  IOWS,Z    BRANCH IF CD/PAPT REQUIRED  J0304770
                           478 | *************************************************** J0304780
                           479 | *                                                 * J0304790
                           480 | *   DETERMINE IF OPERATION IS STORECI             * J0304800
                           481 | *                                                 * J0304810
                           482 | *************************************************** J0304820
21EC C112                  483 | ST020 LD    1 CISW                                  J0304830
21ED 4C20 2308             484 |       BSC  L  ST600,Z   BRANCH IF STORECI           J0304840
                           485 | *************************************************** J0304850
                           486 | *                                                 * J0304860
                           487 | *   DETERMINE IF STORE TO USER AREA OR FIXED AREA * J0304870
                           488 | *                                                 * J0304880
                           489 | *************************************************** J0304890
21EF C130                  490 |       LD    1 UASW                                  J0304900
21F0 E91E                  491 |       OR    1 FXSW                                  J0304910
21F1 4418 249A             492 |       BSI  L  SNOFF,+-  BRANCH IF STORE TO WS       J0304920
                           493 | *************************************************** J0304930
                           494 | *                                                 * J0304940
                           495 | *   DETERMINE IF FUNCTION IS STOREMOD             * J0304950
                           496 | *                                                 * J0304960
                           497 | *************************************************** J0304970
21F3 C123                  498 |       LD    1 MODSW                                 J0304980
21F4 4C20 26ED             499 |       BSC  L  ST700,Z   BRANCH IF STOREMOD          J0304990
                           500 | *                                                 * J0305000
21F6 6680 7F33             501 |       LDX  I2 #FRDR+C   SOURCE DR IS #FRDR          J0305010
                           502 | *                                                 * J0305020
                           503 | *************************************************** J0305030
                           504 | *                                                 * J0305040
                           505 | *   MOVE DB COUNT OF PROGRAM IN WS OF 'FROM' DR   * J0305050
                           506 | *   TO # DBCT IN DCOM. HOWEVER, DO NOT SET #DBCT  * J0305060
                           507 | *   IF FUNCTION IS STOREDATA.                     * J0305070
                           508 | *                                                 * J0305080
                           509 | *************************************************** J0305090
21F8 C115                  510 | ST004 LD    1 DATSW                                 J0305100
21F9 4C20 21FE             511 |       BSC  L  ST007,Z   BRANCH IF STOREDATA         J0305110
                           512 | *                                                 * J0305120
21FB C600 7F75             513 | ST005 LD   L2 #WSCT+C                               J0305130
21FD D186                  514 |       STO   1 #DBCT     DB COUNT OF PROG IN WS      J0305140
                           515 | *************************************************** J0305150
                           516 | *                                                 * J0305160
                           517 | *   DETERMINE IF PROGRAM OR DATA WILL FIT IN      * J0305170
                           518 | *   AVAILABLE USER AREA OR FIXED AREA HOLE.       * J0305180
                           519 | *                                                 * J0305190
                           520 | *************************************************** J0305200
21FE C11E                  521 | ST007 LD    1 FXSW                                  J0305210
21FF 4C20 2208             522 |       BSC  L  ST009,Z   BR IF STORE TO FIXED AREA   J0305220
                           523 | *************************************************** J0305230
                           524 | *                                                 * J0305240
                           525 | *   COMPARE DB@S OF PROGRAM OR DATA TO USER       * J0305250
                           526 | *   AREA HOLE SIZE.                               * J0305260
                           527 | *                                                 * J0305270
                           528 | *************************************************** J0305280
2201 C197                  529 |       LD    1 #USZE                                 J0305290
2202 9186                  530 | ST008 S     1 #DBCT                                 J0305300
2203 4C10 220A             531 |       BSC  L  ST010,-   BR IF HOLE SIZE OK          J0305310
2205 4480 7DB4             532 |       BSI  I  LEAVE     DUP ERROR MESSAGE           J0305320
2207 001F                  533 |       DC      31        DISK AREA EXCEEDED          J0305330
                           534 | *************************************************** J0305340
                           535 | *                                                 * J0305350
                           536 | *   COMPARE DB@S OF PROGRAM OR DATA TO FIXED      * J0305360
                           537 | *   AREA HOLE SIZE.                               * J0305370
                           538 | *                                                 * J0305380
                           539 | *************************************************** J0305390
2208 C195                  540 | ST009 LD    1 #FSZE                                 J0305400
2209 70F8                  541 |       MDX     ST008                                 J0305410
220A 4006                  542 | ST010 BSI     WD000     MOVE WS TO DESTINATION      J0305420
220B 4400 2319             543 | ST015 BSI  L  DOLET     UPDATE LET OR FLET          J0305430
220D 4400 247E             544 |       BSI  L  UPDCM     UPDATE DCOM                 J0305440
220F 4400 249A             545 |       BSI  L  SNOFF     PRINT SIGN-OFF MESSAGE      J0305450
STORE--WS TO USER AREA OR FIXED AREA
 
                           547 | *************************************************** J0305470
                           548 | *                                                 * J0305480
                           549 | *   INITIALIZATION TO MOVE PROGRAM FROM WORKING   * J0305490
                           550 | *   STORAGE TO USER AREA OR FIXED AREA.           * J0305500
                           551 | *                                                 * J0305510
                           552 | *************************************************** J0305520
2211 0000                  553 | WD000 DC      *-*       ENTRY POINT                 J0305530
2212 4480 7DB9             554 |       BSI  I  PHID      STEP PHASE ID OF STORE      J0305540
2214 2003                  555 |       DC      /2003     STEP ID FOR WS TO UA/FXA    J0305550
2215 6700 22AF             556 |       LDX  L3 DS900     XR3 POINTS TO CONSTANTS     J0305560
2217 1010                  557 |       SLA     16                                    J0305570
2218 D315                  558 |       STO   3 DS940-W   RESET 1ST TIME SWITCH       J0305580
2219 C400 000E             559 |       LD   L  $CORE                                 J0305590
221B 1004                  560 |       SLA     4         IF CORE SIZE IS             J0305600
221C C302                  561 |       LD    3 DS902-W   *4K, DISK BUFFER IS 2 SCTRS J0305610
221D 4C02 2220             562 |       BSC  L  DS010,C   BRANCH IF CORE IS 4K        J0305620
                           563 | *************************************************** J0305630
                           564 | *                                                 * J0305640
                           565 | *   CORE SIZE IS GT 4K. USE 7 SCTR BFR            * J0305650
                           566 | *                                                 * J0305660
                           567 | *************************************************** J0305670
221F C300                  568 |       LD    3 DS900-W                               J0305680
2220 D304                  569 | DS010 STO   3 DS904-W   WD CNT TO READ WS           J0305690
2221 D305                  570 |       STO   3 DS910-W   WD CNT TO WRITE UA          J0305700
2222 1890                  571 |       SRT     16                                    J0305710
2223 AB0A                  572 |       D     3 DS916-W   WD CNT DIVIVIDED BY 20 IS   J0305720
2224 D306                  573 |       STO   3 DS912-W   *DB CNT TO WRITE UA         J0305730
2225 D307                  574 |       STO   3 DS913-W   DB CNT TO READ WS           J0305740
                           575 | *                                                 * J0305750
2226 C304                  576 |       LD    3 DS904-W                               J0305760
2227 930B                  577 |       S     3 DS918-W   NUMBER OF SECTORS BY WHICH  J0305770
2228 1890                  578 |       SRT     16        *WS SCTR ADDR IS INCR, IS   J0305780
2229 1010                  579 |       SLA     16        *1 LESS THAN SCTRS READ.    J0305790
222A AB0B                  580 |       D     3 DS918-W                               J0305800
222B D313                  581 |       STO   3 DS936-W   WS SCTR ADDR INCREMENT      J0305810
222C 1004                  582 |       SLA     4                                     J0305820
222D D30D                  583 |       STO   3 DS923-W   WS DB COUNT DECREMENT       J0305830
                           584 | *                                                 * J0305840
222E C305                  585 |       LD    3 DS910-W   NUMBER OF SECTORS BY WHICH  J0305850
222F 1890                  586 |       SRT     16        *UA SCTR ADDR IS INCR, IS   J0305860
2230 1010                  587 |       SLA     16        *SAME AS UA SCTRS WRITTEN.  J0305870
2231 AB0B                  588 |       D     3 DS918-W                               J0305880
2232 D314                  589 |       STO   3 DS938-W   UA SCTR ADDR INCREMENT      J0305890
                           590 | *                                                 * J0305900
2233 C186                  591 |       LD    1 #DBCT                                 J0305910
2234 D308                  592 |       STO   3 DS914-W   SAVE DB CNT OF PROGRAM      J0305920
2235 830C                  593 |       A     3 DS922-W                               J0305930
2236 1804                  594 |       SRA     4                                     J0305940
2237 1004                  595 |       SLA     4         NUMBER OF SECTORS OF        J0305950
2238 D309                  596 |       STO   3 DS915-W   *WORKING STORAGE TO READ    J0305960
2239 C15C                  597 |       LD    1 LETAR                                 J0305970
223A E301                  598 |       AND   3 DS901-W                               J0305980
223B D303                  599 |       STO   3 DS903-W   DISK BUFFER CORE ADDRESS    J0305990
                           600 | *************************************************** J0306000
                           601 | *                                                 * J0306010
                           602 | *   DETERMINE NO. OF DB'S OF USER AREA IN EXCESS  * J0306020
                           603 | *   OF LAST COMPLETE UA SECTOR                    * J0306030
                           604 | *                                                 * J0306040
                           605 | *************************************************** J0306050
223C C196                  606 |       LD    1 #UHOL                                 J0306060
223D E30C                  607 |       AND   3 DS922-W   MASK SCTR OUT OF DB ADDR    J0306070
223E D30E                  608 |       STO   3 DS924-W   USER AREA DB'S              J0306080
223F A30A                  609 |       M     3 DS916-W                               J0306090
2240 1090                  610 |       SLT     16                                    J0306100
2241 D30F                  611 |       STO   3 DS926-W   USER AREA WORDS             J0306110
                           612 | *************************************************** J0306120
                           613 | *                                                 * J0306130
                           614 | *   DISPLACEMENT ADDR IN DISK BUFFER FOR READING  * J0306140
                           615 | *   WORKING STORAGE IS ADDR OF DISK BUFFER PLUS   * J0306150
                           616 | *   USER AREA WORDS.                              * J0306160
                           617 | *                                                 * J0306170
                           618 | *************************************************** J0306180
2242 8303                  619 |       A     3 DS903-W                               J0306190
2243 D310                  620 |       STO   3 DS930-W   ADJUSTED DK BFR ADDR        J0306200
                           621 | *                                                 * J0306210
2244 C600 0095             622 |       LD   L2 $FPAD                                 J0306220
2246 D311                  623 |       STO   3 DS932-W   INITIAL WS SCTR ADDR        J0306230
2247 C196                  624 |       LD    1 #UHOL                                 J0306240
2248 7400 7FB5             625 |       MDX  L  DATSW+C,0 SKIP IF DATSW NOT ON        J0306250
224A 7007                  626 |       MDX     DS015     GO CHECK FIXED AREA SW      J0306260
                           627 | *************************************************** J0306270
                           628 | *                                                 * J0306280
                           629 | *   SAVE DESTINATION DB ADDRESS                   * J0306290
                           630 | *                                                 * J0306300
                           631 | *************************************************** J0306310
224B D116                  632 | DS012 STO   1 DBADR     DESTINATION DB ADDR         J0306320
224C 1804                  633 |       SRA     4         SCTR ADDR OF DESTINATION    J0306330
224D 188C                  634 |       SRT     12                                    J0306340
                           635 | *                                                 * J0306350
224E C192                  636 |       LD    1 #TODR                                 J0306360
224F 108C                  637 |       SLT     12        ADD DRIVE CODE OF 'TO' DR   J0306370
2250 D312                  638 |       STO   3 DS934-W   INT DESTINATION SCTR ADDR   J0306380
2251 7009                  639 |       MDX     DS021                                 J0306390
                           640 | *                                                 * J0306400
2252 7400 7FBE             641 | DS015 MDX  L  FXSW+C,0  SKIP IF STORING TO UA       J0306410
2254 7004                  642 |       MDX     DS018                                 J0306420
                           643 | *                                                 * J0306430
2255 830C                  644 | DS016 A     3 DS922-W   ROUND UP UA DB ADDR TO      J0306440
2256 1804                  645 |       SRA     4         *DB ADDR OF EVEN            J0306450
2257 1004                  646 |       SLA     4         *SECTOR BOUNDARY.           J0306460
2258 70F2                  647 |       MDX     DS012                                 J0306470
                           648 | *                                                 * J0306480
2259 C194                  649 | DS018 LD    1 #FHOL     USE FXA HOLE ADDR AS        J0306490
225A 70F0                  650 |       MDX     DS012     *DESTINATION DB ADDR.       J0306500
                           651 | *                                                 * J0306510
225B C115                  652 | DS021 LD    1 DATSW                                 J0306520
225C 4C18 2268             653 |       BSC  L  DS020,+-  BRANCH IF NOT STOREDATA     J0306530
                           654 | *                                                 * J0306540
225E C319                  655 |       LD    3 DS949-W                               J0306550
225F 930E                  656 |       S     3 DS924-W                               J0306560
2260 D31A                  657 |       STO   3 DS950-W   NO. OF DB'S PADDING REQ     J0306570
2261 1010                  658 |       SLA     16                                    J0306580
2262 D30F                  659 |       STO   3 DS926-W   CLEAR DB ADJ TO ZERO        J0306590
2263 C303                  660 |       LD    3 DS903-W                               J0306600
2264 D310                  661 |       STO   3 DS930-W   DISK BUFFER CORE ADDRESS    J0306610
2265 C136                  662 |       LD    1 DFLSW     TEST DFILE SWITCH       2-8 J0306620
2266 4CA0 2211             663 |       BSC  I  WD000,Z   EXIT IF DFILE           2-8 J0306630
STORE--GET WORKING STORAGE
 
                           665 | *************************************************** J0306650
                           666 | *                                                 * J0306660
                           667 | *   READ PROGRAM FROM WORKING STORAGE             * J0306670
                           668 | *                                                 * J0306680
                           669 | *************************************************** J0306690
2268 6780 22BF             670 | DS020 LDX  I3 DS930     XR3 IS I/O HDR ADDR FOR GET J0306700
226A C055                  671 |       LD      DS932                                 J0306710
226B D301                  672 |       STO   3 +1        WS SECTOR ADDRESS           J0306720
                           673 | *                                                 * J0306730
226C C04B                  674 |       LD      DS915                                 J0306740
226D 9048                  675 |       S       DS913                                 J0306750
226E 4C30 2274             676 |       BSC  L  DS02X,-Z  BR IF MAX WS READ REQ       J0306760
                           677 | *                                                 * J0306770
2270 C047                  678 |       LD      DS915                                 J0306780
2271 A047                  679 |       M       DS916     CONVERT DB'S REMAINING      J0306790
2272 1090                  680 |       SLT     16        *TO WORD COUNT FOR THIS     J0306800
2273 7001                  681 |       MDX     DS02X+1   *WS READ.                   J0306810
2274 C03E                  682 | DS02X LD      DS904                                 J0306820
2275 D300                  683 |       STO   3 0         WD CNT TO READ WS           J0306830
                           684 | *                                                 * J0306840
2276 4480 7DB3             685 |       BSI  I  GET       READ WORKING STORAGE        J0306850
                           686 | *                                                 * J0306860
2278 C301                  687 |       LD    3 +1        INCR WS SCTR ADDR           J0306870
2279 8048                  688 |       A       DS936                                 J0306880
227A D045                  689 |       STO     DS932     NEW WS SCTR ADDR            J0306890
227B C03C                  690 |       LD      DS915                                 J0306900
227C 903F                  691 |       S       DS923                                 J0306910
227D D03A                  692 |       STO     DS915     WS DB'S STILL TO BE READ    J0306920
227E C115                  693 |       LD    1 DATSW                                 J0306930
227F 4C20 22A0             694 |       BSC  L  DS025,Z   BRANCH IF STOREDATA         J0306940
                           695 | *************************************************** J0306950
                           696 | *                                                 * J0306960
                           697 | *   DETERMINE IF THIS IS FIRST TIME WS HAS BEEN   * J0306970
                           698 | *   READ.                                         * J0306980
                           699 | *                                                 * J0306990
                           700 | *************************************************** J0307000
2281 7400 22C4             701 |       MDX  L  DS940,0   SKIP IF FIRST TIME          J0307010
2283 705D                  702 |       MDX     DS080     BRANCH IF NOT FIRST TIME    J0307020
                           703 | *                                                 * J0307030
2284 6680 22B2             704 |       LDX  I2 DS903                                 J0307040
2286 72C8                  705 |       MDX   2 -56       XR2 IS PT FOR MOV54 SUBR    J0307050
2287 C304                  706 |       LD    3 +4                                    J0307060
2288 E027                  707 |       AND     DS901     REMOVE OLD SUBTYPE      2-4 J0307070
2289 E92F                  708 |       OR    1 T3MSW                                 J0307080
228A D304                  709 |       STO   3 +4        INCLUDE SOCAL TYPE          J0307090
228B 1808                  710 |       SRA     8         SHIFT OUT PRECISION         J0307100
228C E02E                  711 |       AND     DS922     MASK OUT BITS 8-11          J0307110
228D D400 23A0             712 |       STO  L  DO911     SAVE PROG HDR TYPE WD       J0307120
228F 9036                  713 |       S       DS944                                 J0307130
2290 4C30 2295             714 |       BSC  L  DS022,-Z  BR IF PROG TYPE GT 4        J0307140
                           715 | *************************************************** J0307150
                           716 | *                                                 * J0307160
                           717 | *   PROGRAM HEADER LENGTH EQUALS THE CONTENTS OF  * J0307170
                           718 | *   PROGRAM HEADER WORD SIX PLUS 9.               * J0307180
                           719 | *                                                 * J0307190
                           720 | *************************************************** J0307200
2292 C307                  721 |       LD    3 +7                                    J0307210
2293 8033                  722 |       A       DS946                                 J0307220
2294 D126                  723 |       STO   1 PGMHL     LENGTH OF PROGRAM HEADER    J0307230
2295 C984                  724 | DS022 LDD   1 #NAME                                 J0307240
2296 D30B                  725 |       STO   3 +11       PRIME ENTRY POINT NAME      J0307250
2297 18D0                  726 |       RTE     16        *TO PROGRAM HEADER          J0307260
2298 D30C                  727 |       STO   3 +12       *WORDS 10-11.               J0307270
2299 C186                  728 | DS023 LD    1 #DBCT     GET DB COUNT OF PROGRAM 2-1 J0307280
229A D309                  729 |       STO   3 +9        AND STORE IN WD 8 OF HDR2-1 J0307290
229B C190                  730 |       LD    1 #ENTY     PRIME ENTRY POINT TO    2-1 J0307300
229C D30D                  731 |       STO   3 +13       *WD 12 OF HEADER        2-1 J0307310
                           732 | *                                               2-1 J0307320
229D 7301                  733 | DS024 MDX   3 +1        SAVE PROGRAM HEADER AT      J0307330
229E 4400 2647             734 |       BSI  L  MOV54     *DISK BUFFER - 56.          J0307340
22A0 74FF 22C4             735 | DS025 MDX  L  DS940,-1  SKIP IF FIRST TIME          J0307350
22A2 703E                  736 |       MDX     DS080     BRANCH IF NOT FIRST TIME    J0307360
22A3 C01C                  737 |       LD      DS932                                 J0307370
22A4 901C                  738 |       S       DS934     COMPARE DESTINATION SCTR    J0307380
22A5 901C                  739 |       S       DS936     *ADDR WITH WS SCTR ADDR     J0307390
22A6 4C20 22AB             740 |       BSC  L  DS027,Z   BR IF SCTR ADDR'S NOT SAME  J0307400
                           741 | *                                                 * J0307410
22A8 C01F                  742 |       LD      DS949     SCTR ADDR'S AGREE, WRITE    J0307420
22A9 D00D                  743 |       STO     DS914     *ONE SECTOR BEFORE EXITING  J0307430
22AA 7027                  744 |       MDX     DS070                                 J0307440
                           745 | *************************************************** J0307450
                           746 | *                                                 * J0307460
                           747 | *   DETERMINE IF PROG IN WORKING STORAGE REQUIRES * J0307470
                           748 | *   DB ADJUSTMENT TO BE STORED IN USER AREA.      * J0307480
                           749 | *                                                 * J0307490
                           750 | *************************************************** J0307500
22AB C012                  751 | DS027 LD      DS926                                 J0307510
22AC 4C20 22CA             752 |       BSC  L  DS060,Z   BR IF DB ADJUSTMENT REQ     J0307520
22AE 7023                  753 |       MDX     DS070     NO GET OF UA REQUIRED       J0307530
STORE--WS TO UA/FXA CONSTANTS
 
22AF 08C0                  755 | DS900 DC      /8C0      WD CNT FOR 7 SECTORS        J0307550
22B0 0FFF                  756 | DS901 DC      /0FFF     DK BFR CORE ADDRESS MASK    J0307560
22B1 0280                  757 | DS902 DC      /280      WD CNT FOR 2 SECTORS        J0307570
22B2 0000                  758 | DS903 DC      *-*       NON-ADJ DK BFR CORE ADDR    J0307580
22B3 0000                  759 | DS904 DC      *-*       WD CNT FOR READING WS       J0307590
22B4 0000                  760 | DS910 DC      *-*       WD CNT FOR WRITING UA/FXA   J0307600
22B5 0000                  761 | DS912 DC      *-*       DB CNT FOR WRITING UA/FXA   J0307610
22B6 0000                  762 | DS913 DC      *-*       DB CNT TO READ WS           J0307620
22B7 0000                  763 | DS914 DC      *-*       DB CNT OF PROG IN WS        J0307630
22B8 0000                  764 | DS915 DC      *-*       NO. OF WS DB'S TO BE READ   J0307640
22B9 0014                  765 | DS916 DC      20        WORDS PER DB                J0307650
22BA 0140                  766 | DS918 DC      /140      WORDS PER SECTOR            J0307660
22BB 000F                  767 | DS922 DC      /F        MASK SCTR ADDR FROM DB ADDR J0307670
22BC 0000                  768 | DS923 DC      *-*       WS DB COUNT DECREMENT       J0307680
22BD 0000                  769 | DS924 DC      *-*       USER AREA DB'S              J0307690
22BE 0000                  770 | DS926 DC      *-*       USER AREA WORDS             J0307700
22BF 0000                  771 | DS930 DC      *-*       ADJUSTED DISK BUFFER ADDR   J0307710
22C0 0000                  772 | DS932 DC      *-*       INITIAL WS SECTOR ADDR      J0307720
22C1 0000                  773 | DS934 DC      *-*       INITIAL UA/FXA SCTR ADDR    J0307730
22C2 0000                  774 | DS936 DC      *-*       NO. OF WS SECTORS TO READ   J0307740
22C3 0000                  775 | DS938 DC      *-*       NO) OF UA/FXA SCTRS TO WR   J0307750
22C4 0000                  776 | DS940 DC      0         LOOP CTRL SW--ZERO 1ST TIME J0307760
22C5 0001                  777 | DS942 DC      1         CONSTANT OF ONE             J0307770
22C6 0004                  778 | DS944 DC      4         CONSTANT                    J0307780
22C7 0009                  779 | DS946 DC      9         CONSTANT                    J0307790
22C8 0010                  780 | DS949 DC      16        CONSTANT                    J0307800
22C9 0000                  781 | DS950 DC      *-*       NO. OF DB'S PADDING REQ     J0307810
22AF                       782 | W     EQU     DS900     XR3 CONSTANT POINTER        J0307820
STORE--GET WORKING STORAGE
 
22CA 6780 22B2             784 | DS060 LDX  I3 DS903     XR3 IS ADDR TO GET UA DB'S  J0307840
22CC C0F4                  785 |       LD      DS934                                 J0307850
22CD 18D0                  786 |       RTE     16        SET-UP IOAR HDR TO READ     J0307860
22CE C0EF                  787 |       LD      DS926     *UA WDS REQ FOR ADJUSTMENT  J0307870
22CF DB00                  788 |       STD   3 0         UA ADJUSTMENT IOAR HDR      J0307880
                           789 | *                                                 * J0307890
22D0 4480 7DB3             790 |       BSI  I  GET       READ UA DB'S                J0307900
                           791 | *                                                 * J0307910
22D2 6780 22B2             792 | DS070 LDX  I3 DS903     XR3 IS IOAR HDR FOR PUT     J0307920
22D4 4016                  793 |       BSI     DS090                                 J0307930
                           794 | *************************************************** J0307940
                           795 | *                                                 * J0307950
                           796 | *   CHANGE WD CNT'S AND SCTR INCREMENTS FOR VALUES* J0307960
                           797 | *   NECESSARY FOR SUBSEQUENT TIMES THROUGH LOOP OF* J0307970
                           798 | *   READING WORKING STORAGE, AND WRITING TO THE   * J0307980
                           799 | *   USER AREA.                                    * J0307990
                           800 | *                                                 * J0308000
                           801 | *************************************************** J0308010
22D5 C0DE                  802 |       LD      DS910     SUBSEQUENT TIMES THRU LOOP, J0308020
22D6 90E3                  803 |       S       DS918     *WRITE ONE LESS SECTOR.     J0308030
22D7 D0DC                  804 |       STO     DS910     NEW WRITE TO UA WD CNT      J0308040
22D8 1890                  805 |       SRT     16                                    J0308050
22D9 A8DF                  806 |       D       DS916                                 J0308060
22DA D0DA                  807 |       STO     DS912     WRITE 16 LESS DB'S TO UA    J0308070
                           808 | *                                                 * J0308080
22DB C0E7                  809 |       LD      DS938     FOLLOWING TIMES THRU LOOP,  J0308090
22DC 90E8                  810 |       S       DS942     *ADD 1 LESS TO UA SCTR ADDR J0308100
22DD D0E5                  811 |       STO     DS938     NEW UA SCTR ADDR INCREMENT  J0308110
22DE 1010                  812 |       SLA     16                                    J0308120
22DF D0DD                  813 |       STO     DS924     CLEAR UA DB COUNT           J0308130
22E0 7005                  814 |       MDX     DS120     CHECK IF PROG ALL MOVED     J0308140
                           815 | *************************************************** J0308150
                           816 | *                                                 * J0308160
                           817 | *   BRANCH TO HERE AFTER READING OTHER THAN FIRST * J0308170
                           818 | *   BLOCK OF PROGRAM FROM WORKING STORAGE.        * J0308180
                           819 | *                                                 * J0308190
                           820 | *************************************************** J0308200
22E1 6780 22B2             821 | DS080 LDX  I3 DS903     BFR ADDR FOR PUT            J0308210
22E3 7700 0140             822 |       MDX  L3 +320      PUT FROM NXT SCTR IN BFR    J0308220
22E5 4005                  823 |       BSI     DS090                                 J0308230
                           824 | *************************************************** J0308240
                           825 | *                                                 * J0308250
                           826 | *   DETERMINE IF MOVE FROM WORKING STORAGE TO     * J0308260
                           827 | *   USER AREA IS COMPLETE.                        * J0308270
                           828 | *                                                 * J0308280
                           829 | *************************************************** J0308290
22E6 C0D0                  830 | DS120 LD      DS914                                 J0308300
22E7 4C98 2211             831 |       BSC  I  WD000,+-  BR (EXIT) IF MOVE COMPLETE  J0308310
22E9 4C00 2268             832 |       BSC  L  DS020                             2-2 J0308320
                           833 | *                                                 * J0308330
STORE--PUT TO UA/FXA
 
22EB 0000                  835 | DS090 DC      *-*                                   J0308350
22EC C0D4                  836 |       LD      DS934                                 J0308360
22ED D301                  837 |       STO   3 +1        UA SECTOR ADDRESS           J0308370
22EE C0C8                  838 |       LD      DS914     CHECK IF DB'S REMAINING     J0308380
22EF 80CD                  839 |       A       DS924     *GT DISK BUFFER SIZE.       J0308390
22F0 90C4                  840 |       S       DS912                                 J0308400
22F1 4C30 22FE             841 |       BSC  L  DS100,-Z  BR IF FULL WRITE REQUIRED   J0308410
                           842 | *************************************************** J0308420
                           843 | *                                                 * J0308430
                           844 | *   THIS IS THE LAST BLOCK TO WRITE TO THE UA     * J0308440
                           845 | *                                                 * J0308450
                           846 | *************************************************** J0308460
22F3 C0C3                  847 |       LD      DS914                                 J0308470
22F4 7400 7FB5             848 |       MDX  L  DATSW+C,0 SKIP IF NOT STOREDATA   2-2 J0308480
22F6 7001                  849 |       MDX     *+1       DO NOT ADD UA DB'S      2-2 J0308490
22F7 80C5                  850 |       A       DS924     INCLUDE UA DB'S, IF ANY     J0308500
22F8 A0C0                  851 |       M       DS916                                 J0308510
22F9 1090                  852 |       SLT     16                                    J0308520
22FA D300                  853 |       STO   3 0         WD CNT FOR LAST UA WRITE    J0308530
22FB 1010                  854 |       SLA     16                                    J0308540
22FC D0BA                  855 |       STO     DS914     CLEAR UA PROG DB CNT        J0308550
22FD 7003                  856 |       MDX     DS110                                 J0308560
                           857 | *************************************************** J0308570
                           858 | *                                                 * J0308580
                           859 | *   THIS BLOCK IS NOT THE LAST BLOCK TO BE        * J0308590
                           860 | *   WRITTEN TO THE USER AREA                        J0308600
                           861 | *                                                 * J0308610
                           862 | *************************************************** J0308620
22FE D0B8                  863 | DS100 STO     DS914     DB'S OF PROG TO BE WRITTEN  J0308630
22FF C0B4                  864 |       LD      DS910                                 J0308640
2300 D300                  865 |       STO   3 0         WD CNT TO WRITE TO UA       J0308650
                           866 | *                                                 * J0308660
2301 4480 7DBC             867 | DS110 BSI  I  PUT       WRITE TO USER AREA          J0308670
                           868 | *                                                 * J0308680
2303 C301                  869 |       LD    3 +1        INCR UA SECTOR ADDRESS      J0308690
2304 80BE                  870 |       A       DS938                                 J0308700
2305 D0BB                  871 |       STO     DS934     NEW UA SECTOR ADDRESS       J0308710
2306 4C80 22EB             872 |       BSC  I  DS090     EXIT WRITE TO UA/FXA SUBR   J0308720
STORE--CORE IMAGE CONTROL
 
                           874 | *************************************************** J0308740
                           875 | *                                                 * J0308750
                           876 | *   THIS SECTION OF STORE RETURNS TO DUP'S EXIT   * J0308760
                           877 | *   MODULE IF THE PROGRAM IN WORKING STORAGE HAS  * J0308770
                           878 | *   NOT YET BEEN CONVERTED TO CORE IMAGE. DUP EXIT* J0308780
                           879 | *   THEN CALLS THE CORE LOAD BUILDER. AFTER THE   * J0308790
                           880 | *   CORE LOAD HAS BEEN BUILT, THE CLB CALLS DUP'S * J0308800
                           881 | *   PRECI MODULE TO MOVE THE CORE IMAGE PROGRAM   * J0308810
                           882 | *   TO THE USER AREA, OR THE FIXED AREA. PRECI    * J0308820
                           883 | *   EXITS TO REST IN DUPCO, CAUSING DUP CONTROL   * J0308830
                           884 | *   TO RELOAD STORE. DUP CONTROL THEN PASSES      * J0308840
                           885 | *   CONTROL TO STORE SO THST LET/FLET AND DCOM    * J0308850
                           886 | *   UPDATION MAY BE ACCOMPLISHED.                 * J0308860
                           887 | *                                                 * J0308870
                           888 | *************************************************** J0308880
2308 C18A                  889 | ST600 LD    1 #CBSW                                 J0308890
2309 4C20 2310             890 |       BSC  L  ST610,Z   BR IF RETURNING FROM CLB    J0308900
                           891 | *                                                 * J0308910
230B 6C00 7F2A             892 |       STX  L0 #CBSW+C   SET CLB SWITCH NON-ZERO     J0308920
                           893 | *************************************************** J0308930
                           894 | *                                                 * J0308940
                           895 | *   PASS EXIT CODE TO INDICATE CLB IS REQUIRED    * J0308950
                           896 | *                                                 * J0308960
                           897 | *************************************************** J0308970
230D 4480 7DB4             898 |       BSI  I  LEAVE                                 J0308980
230F FFFD                  899 |       DC      -3        CODE INDICATES CLB REQUIRED J0308990
                           900 | *************************************************** J0309000
                           901 | *                                                 * J0309010
                           902 | *   CORE LOAD BUILDER HAS PROCESSED PROGRAM.      * J0309020
                           903 | *   LET/FLET AND DCOM UPDATION MAY BE PERFORMED   * J0309030
                           904 | *   IF ERRORS WERE NOT DETECTED BY THE CLB OR     * J0309040
                           905 | *   BY DUP'S PRECI MODULE.                        * J0309050
                           906 | *                                                 * J0309060
                           907 | *************************************************** J0309070
2310 1010                  908 | ST610 SLA     16                                    J0309080
2311 D18A                  909 |       STO   1 #CBSW     CLEAR CLB SWITCH            J0309090
2312 C12C                  910 | ST620 LD    1 TEMP1                                 J0309100
2313 D0B5                  911 |       STO     DS950     NO. OF DB'S PADDING REQ     J0309110
2314 4004                  912 |       BSI     DOLET     UPDATE LET/FLET             J0309120
2315 4400 247E             913 |       BSI  L  UPDCM     UPDATE DCOM                 J0309130
2317 4400 249A             914 |       BSI  L  SNOFF     PRINT SIGN-OFF MESSAGE      J0309140
STORE--UPDATE LET/FLET
 
                           916 | *************************************************** J0309160
                           917 | *                                                 * J0309170
                           918 | *   THE FOLLOWING SUBMODULE OF STORE MAKES THE    * J0309180
                           919 | *   REQUIRED LET/FLET ENTRY FOR THE PROGRAM OR    * J0309190
                           920 | *   DATA BEING STORED, AND UPDATES THE LET/FLET   * J0309200
                           921 | *   SECTOR HEADER.                                * J0309210
                           922 | *                                                 * J0309220
                           923 | *************************************************** J0309230
2319 0000                  924 | DOLET DC      *-*       ENTRY POINT                 J0309240
231A 4480 7DB9             925 |       BSI  I  PHID      STEP PHASE ID OF STORE      J0309250
231C 3003                  926 |       DC      /3003     DOLET SUBMODULE ID          J0309260
231D 4480 7DB6             927 |       BSI  I  MASK      MASK OUT KB REQUEST         J0309270
231F 6680 7FFB             928 |       LDX  I2 SDBUF+C   XR2 IS STORE DK BFR ADDR    J0309280
                           929 | *                    ** ONE WORD SAVED HERE **  2-4 J0309290
2321 7600 0116             930 |       MDX  L2 322-44    ADJUST TO POINT TO 1ST OF   J0309300
2323 6E00 23A7             931 |       STX  L2 DO918     *PROG'S SECONDARY ENTRY PTS J0309310
2325 C112                  932 |       LD    1 CISW                                  J0309320
2326 E92A                  933 |       OR    1 STCSW                                 J0309330
2327 4C18 232C             934 |       BSC  L  DO005,+-  BR IF ENTRY NOT CORE IMAGE  J0309340
                           935 | *                                                 * J0309350
2329 C400 23AC             936 |       LD   L  DO934                                 J0309360
232B 7003                  937 |       MDX     DO008                                 J0309370
                           938 | *                                                 * J0309380
232C C115                  939 | DO005 LD    1 DATSW                                 J0309390
232D 4820                  940 |       BSC     Z         SKIP IF ENTRY NOT DATA      J0309400
232E C07E                  941 |       LD      DO935                                 J0309410
232F E984                  942 | DO008 OR    1 #NAME     PUT BITS INDICATING TYPE    J0309420
2330 D184                  943 |       STO   1 #NAME     *OF ENTRY INTO NAME.        J0309430
2331 C066                  944 |       LD      DO902                                 J0309440
2332 D067                  945 |       STO     DO904     SET LET/FLET WDS REQUIRED   J0309450
                           946 | *************************************************** J0309460
                           947 | *                                                 * J0309470
                           948 | *   COMPUTE WORDS REQUIRED FOR LET/FLET ENTRY     * J0309480
                           949 | *                                                 * J0309490
                           950 | *************************************************** J0309500
2333 C112                  951 |       LD    1 CISW                                  J0309510
2334 E915                  952 |       OR    1 DATSW                                 J0309520
2335 4C20 233E             953 |       BSC  L  DO015,Z   BR IF STORECI OR STOREDATA  J0309530
2337 C068                  954 |       LD      DO911                                 J0309540
2338 9060                  955 |       S       DO903                                 J0309550
2339 4C30 233E             956 |       BSC  L  DO015,-Z  BR IF PROG TYPE GT 4        J0309560
233B C126                  957 |       LD    1 PGMHL     WORDS REQUIRED FOR ENTRY    J0309570
233C 9059                  958 |       S       DO900     *IS 3 TIMES ENT POINT NAMES J0309580
233D D05C                  959 |       STO     DO904     LET/FLET ENT WORDS REQUIRED J0309590
                           960 | *************************************************** J0309600
                           961 | *                                                 * J0309610
                           962 | *   GET SECTOR OF LET/FLET TO WHICH ENTRY IS      * J0309620
                           963 | *   TO BE MADE.                                   * J0309630
                           964 | *                                                 * J0309640
                           965 | *************************************************** J0309650
233E 6680 7FB7             966 | DO015 LDX  I2 DELSW+C   XR2 IS LETAR ENTRY POINTER  J0309660
2340 6780 7FFC             967 |       LDX  I3 LETAR+C   XR3 POINTS TO LET SCTR HDR  J0309670
2342 C12B                  968 |       LD    1 STSW                                  J0309680
2343 18D0                  969 |       RTE     16                                    J0309690
2344 C063                  970 |       LD      DO920     SET-UP IOAR HDR TO READ     J0309700
2345 DB00                  971 |       STD   3 0         *LET/FLET SCTR.             J0309710
2346 4480 7DB3             972 |       BSI  I  GET       READ LET/FLET SECTOR        J0309720
2348 C11E                  973 |       LD    1 FXSW                                  J0309730
2349 4C20 2421             974 |       BSC  L  ST800,Z   BRANCH IF UPDATING FLET     J0309740
                           975 | *************************************************** J0309750
                           976 | *                                                 * J0309760
                           977 | *   DETERMINE IF WORDS AVAILABLE IN THIS LET/FLET * J0309770
                           978 | *   SECTOR SUFFICIENT FOR MAKING ENTRY            * J0309780
                           979 | *                                                 * J0309790
                           980 | *************************************************** J0309800
234B C203                  981 |       LD    2 +3                                    J0309810
234C D05E                  982 |       STO     DO923     DB SIZE OF WS               J0309820
                           983 | *************************************************** J0309830
                           984 | *                                                 * J0309840
                           985 | *   DETERMINE IF DSF PROGRAM                      * J0309850
                           986 | *                                                 * J0309860
                           987 | *************************************************** J0309870
234D C115                  988 |       LD    1 DATSW                                 J0309880
234E E912                  989 |       OR    1 CISW                                  J0309890
234F 4C20 23F0             990 |       BSC  L  DO100,Z   BRANCH IF NOT DSF PROGRAM   J0309900
                           991 | *                                                 * J0309910
2351 C305                  992 | DO020 LD    3 +5                                    J0309920
2352 8045                  993 |       A       DO902     INCR WDS AVAILABLE BY 3     J0309930
2353 9046                  994 |       S       DO904                                 J0309940
2354 4C10 2362             995 |       BSC  L  DO024,-   BR IF WDS AVAIL FOR ENT     J0309950
                           996 | *                                                 * J0309960
2356 C305                  997 |       LD    3 +5                                    J0309970
2357 8040                  998 |       A       DO902     LET SCTR COMPLETE. INCR     J0309980
2358 D305                  999 |       STO   3 +5        *WORDS AVAILABLE BY THREE   J0309990
                          1000 | *                                                 * J0310000
2359 C115                 1001 |       LD    1 DATSW                                 J0310010
235A E912                 1002 |       OR    1 CISW                                  J0310020
235B 4C20 2361            1003 |       BSC  L  DO022,Z   BR IF STORING DATA OR CI    J0310030
                          1004 | *                                                 * J0310040
235D 1010                 1005 |       SLA     16                                    J0310050
235E D201                 1006 |       STO   2 +1        CLEAR TERMINAL .1DUMY. ENT  J0310060
235F D202                 1007 |       STO   2 +2        *TO ZEROS IN COMPLETED LET  J0310070
2360 D203                 1008 |       STO   2 +3        *SECTOR                     J0310080
2361 404E                 1009 | DO022 BSI     DO040                                 J0310090
                          1010 | *************************************************** J0310100
                          1011 | *                                                 * J0310110
                          1012 | *   UPDATE LET SECTOR FOR DSF PROGRAM             * J0310120
                          1013 | *                                                 * J0310130
                          1014 | *************************************************** J0310140
2362 C984                 1015 | DO024 LDD   1 #NAME                                 J0310150
2363 D201                 1016 |       STO   2 +1        PRIME ENTRY POINT NAME OF   J0310160
2364 18D0                 1017 |       RTE     16        *PROG TO WORDS 1 AND 2      J0310170
2365 D202                 1018 |       STO   2 +2        *OF LET ENTRY.              J0310180
                          1019 | *                                                 * J0310190
2366 C186                 1020 |       LD    1 #DBCT                                 J0310200
2367 D203                 1021 |       STO   2 +3        PROG DB CNT IS WORD 3       J0310210
                          1022 | *************************************************** J0310220
                          1023 | *                                                 * J0310230
                          1024 | *   MOVE ANY SECONDARY ENTRY POINTS INTO LET      * J0310240
                          1025 | *                                                 * J0310250
                          1026 | *************************************************** J0310260
2368 C305                 1027 | DO025 LD    3 +5                                    J0310270
2369 902E                 1028 |       S       DO902     FOR EACH ENTRY MADE TO LET, J0310280
236A D305                 1029 |       STO   3 +5        *DECR WORDS AVAIL BY THREE  J0310290
                          1030 | *                                                 * J0310300
236B 74FD 239A            1031 |       MDX  L  DO904,-3  SKIP IF NO MORE ENT POINTS  J0310310
236D 706B                 1032 |       MDX     DO055                                 J0310320
STORE--UPDATE LET SECTOR HEADER
 
                          1034 | *************************************************** J0310340
                          1035 | *                                                 * J0310350
                          1036 | *   MODIFY NUMBER OF WORDS AVAILABLE              * J0310360
                          1037 | *                                                 * J0310370
                          1038 | *************************************************** J0310380
236E 6500 7FA0            1039 |       LDX  L1 C         XR1 IS CATCO POINTER        J0310390
2370 C305                 1040 |       LD    3 +5                                    J0310400
2371 4C10 2377            1041 |       BSC  L  DO030,-   BR IF WDS AVAIL NOT MINUS   J0310410
                          1042 | *************************************************** J0310420
                          1043 | *                                                 * J0310430
                          1044 | *   LET SECTOR IS FULL. SET WDS AVAILABLE TO ZERO,* J0310440
                          1045 | *   WRITE THIS SECTOR, PREPARE TO PUT .1DUMY.     * J0310450
                          1046 | *   ENTRY ON THE NEXT LET SECTOR.                 * J0310460
                          1047 | *                                                 * J0310470
                          1048 | *************************************************** J0310480
2373 1010                 1049 |       SLA     16                                    J0310490
2374 D305                 1050 |       STO   3 +5        SET WORDS AVAIL TO ZERO     J0310500
2375 403A                 1051 |       BSI     DO040                                 J0310510
2376 72FD                 1052 |       MDX   2 -3        ADJ XR2 TO MAKE .1DUMY. ENT J0310520
                          1053 | *************************************************** J0310530
                          1054 | *                                                 * J0310540
                          1055 | *   MAKE 1DUMY ENTRY TO TERMINATE LET SECTOR      * J0310550
                          1056 | *                                                 * J0310560
                          1057 | *************************************************** J0310570
2377 C824                 1058 | DO030 LDD     DO908                                 J0310580
2378 D204                 1059 |       STO   2 +4        INSER .1DUMY. IN SYSTEM     J0310590
2379 18D0                 1060 |       RTE     16        *INTO 2 WORDS FOLLOWING     J0310600
237A D205                 1061 |       STO   2 +5        *LAST LET ENTRY POINT       J0310610
                          1062 | *                                                 * J0310620
237B C400 22C9            1063 |       LD   L  DS950                                 J0310630
237D F01D                 1064 |       EOR     DO907                                 J0310640
237E 4C18 2382            1065 |       BSC  L  DO031,+-  BR IF NO PADDING REQUIRED   J0310650
                          1066 | *                                                 * J0310660
2380 C400 22C9            1067 |       LD   L  DS950     COMPUTE NEW END OF USER     J0310670
2382 8196                 1068 | DO031 A     1 #UHOL     *AREA DB ADDR               J0310680
2383 D196                 1069 |       STO   1 #UHOL                             2-1 J0310690
2384 8186                 1070 |       A     1 #DBCT                                 J0310700
2385 D024                 1071 |       STO     DO922     SAVE END OF UA DB ADDR      J0310710
2386 8010                 1072 |       A       DO901     COMPUTE NEW DB ADDRESS      J0310720
2387 1890                 1073 |       SRT     16        *FOR WORKING STORAGE ON     J0310730
2388 C192                 1074 |       LD    1 #TODR     *'TO' DRIVE. INCLUDE        J0310740
2389 108C                 1075 |       SLT     12        *ITS DRIVE CODE.            J0310750
238A 6580 7F32            1076 |       LDX  I1 #TODR+C   *'TO' DRIVE                 J0310760
238C D500 0095            1077 |       STO  L1 $FPAD     UPDATE FILE PROTECT TBL     J0310770
238E 6500 7FA0            1078 |       LDX  L1 C         XR1 IS CATCO POINTER        J0310780
2390 C01A                 1079 |       LD      DO923     DB SIZE OF WS IS            J0310790
2391 9186                 1080 |       S     1 #DBCT     *MAX DB ADDR LESS THE SUM   J0310800
2392 D206                 1081 |       STO   2 +6        *OF LAST WS AND PROG DB'S   J0310810
                          1082 | *************************************************** J0310820
                          1083 | *                                                   J0310830
                          1084 | *   OUTPUT LET SECTOR                               J0310840
                          1085 | *                                                   J0310850
                          1086 | *************************************************** J0310860
2393 4051                 1087 |       BSI     DO060     WRITE LET SECTOR            J0310870
2394 4C80 2319            1088 |       BSC  I  DOLET     BR (EXIT) LET/FLET UPDATE   J0310880
STORE--UPDATE LET/FLET CONSTANTS
 
2396 0009                 1090 | DO900 DC      9         CONSTANT                    J0310900
2397 000F                 1091 | DO901 DC      /F        MASK OUT BITS 0-11          J0310910
2398 0003                 1092 | DO902 DC      3         CONSTANT OF 3               J0310920
2399 0004                 1093 | DO903 DC      4         CHECK FOR PROG TYPE GT 4    J0310930
239A 0000                 1094 | DO904 DC      *-*       WDS REQUIRED FOR LET/FLET   J0310940
239B 0010                 1095 | DO907 DC      16        CONSTANT                    J0310950
239C                      1096 |       BSS  E  0                                     J0310960
239C 7112                 1097 | DO908 DC      /7112     1DUMY NAME CODE, WORD 1     J0310970
239D 4528                 1098 |       DC      /4528     1DUMY NAME CODE, WORD 2     J0310980
239E 0000                 1099 | DO909 DC      *-*       ENT POINT TEMP (WORD 1)     J0310990
239F 0000                 1100 |       DC      *-*       ENT POINT TEMP (WORD 2)     J0311000
23A0 0000                 1101 | DO911 DC      *-*       SAVE PROG TYPE FROM HDR     J0311010
23A1 0006                 1102 | DO912 DC      6         LIMIT CHECK FOR LET OVFLO   J0311020
23A2 0016                 1103 | DO913 DC      /16       CONSTANT                    J0311030
23A3 0001                 1104 | DO914 DC      1         CONSTANT OF 1               J0311040
23A4 0000                 1105 | DO915 DC      *-*       LET/FLET TYPE INDICATORS    J0311050
23A5 0138                 1106 | DO916 DC      312       MAX WDS AVAIL IN LET SCTR   J0311060
23A6 0000                 1107 | DO917 DC      *-*       SAVE DB FROM .1DUMY. ENT    J0311070
23A7 0000                 1108 | DO918 DC      *-*       PROG HDR PT, ENT POINTS     J0311080
23A8 0140                 1109 | DO920 DC      320       WORDS PER SECTOR            J0311090
23A9 6400                 1110 | DO921 DC      /6400     MAX WS DB ADDR              J0311100
23AA 0000                 1111 | DO922 DC      *-*       END OF USER AREA, DB ADDR   J0311110
23AB 0000                 1112 | DO923 DC      *-*       SAVE LAST WS SIZE           J0311120
23AC 8000                 1113 | DO934 DC      /8000     CORE IMAGE TYPE IND BITS    J0311130
23AD C000                 1114 | DO935 DC      /C000     DATA TYPE INDICATOR BITS    J0311140
23AE 0000                 1115 | DO938 DC      *-*       ENT POINT DB CNT TEMP       J0311150
23AF 0000                 1116 | DO940 DC      *-*       SAVE TYPE OF ENTRY      2-1 J0311160
STORE--GENERATE NEW LET/FLET SECTOR
 
                          1118 | *************************************************** J0311180
                          1119 | *                                                 * J0311190
                          1120 | *   CURRENT LET/FLET SECTOR IS FULL. WRITE THIS   * J0311200
                          1121 | *   SECTOR AND START ENTRIES ON NEXT SECTOR       * J0311210
                          1122 | *                                                 * J0311220
                          1123 | *************************************************** J0311230
23B0 0000                 1124 | DO040 DC      *-*       FULL LET SCTR SUBR          J0311240
                          1125 | *************************************************** J0311250
                          1126 | *                                                 * J0311260
                          1127 | *   CHECK FOR LET/FLET OVERFLOW                   * J0311270
                          1128 | *                                                 * J0311280
                          1129 | *************************************************** J0311290
23B1 7400 7FD0            1130 |       MDX  L  UASW+C,0  SKIP IF UPDATING FLET       J0311300
23B3 7009                 1131 |       MDX     DO046                                 J0311310
                          1132 | *                                                 * J0311320
23B4 C0ED                 1133 |       LD      DO913     MAX FLET SECTOR NO. IS /17  J0311330
23B5 7001                 1134 |       MDX     DO042                                 J0311340
                          1135 | *                                                 * J0311350
23B6 C0EA                 1136 | DO041 LD      DO912     MAX OF 8 SCTRS (0-7)        J0311360
23B7 9302                 1137 | DO042 S     3 +2                                    J0311370
23B8 4C10 23C5            1138 |       BSC  L  DO050,-   BR IF NO LET/FLET OVERFLOW  J0311380
                          1139 | *                                                 * J0311390
23BA 4480 7DB4            1140 |       BSI  I  LEAVE     DUP ERROR MESSAGE           J0311400
23BC 0021                 1141 |       DC      33        LET/FLET OVERFLOW MESSAGE   J0311410
                          1142 | *                                                 * J0311420
23BD C192                 1143 | DO046 LD    1 #TODR                                 J0311430
23BE 4C18 23B6            1144 |       BSC  L  DO041,+-  BR IF STORING TO DRIVE 0    J0311440
                          1145 | *                                                 * J0311450
23C0 C188                 1146 | DO048 LD    1 #SYSC     SYSTEM CARTRIDGE?       212 J0311460
23C1 4820                 1147 |       BSC     Z         NO, ALLOW 6 SECTORS     212 J0311462
23C2 70F3                 1148 |       MDX     DO041     YES, ALLOW 8 SECTORS    212 J0311464
23C3 C0D5                 1149 |       LD      DO903                             212 J0311466
23C4 70F2                 1150 |       MDX     DO042     *ON LOGICAL DR'S 1-4 (2-7). J0311470
                          1151 | *                                                 * J0311480
23C5 C306                 1152 | DO050 LD    3 +6                                    J0311490
23C6 D0DF                 1153 |       STO     DO917     SAVE CHAIN SCTR ADDR        J0311500
23C7 C301                 1154 |       LD    3 +1                                    J0311510
23C8 1004                 1155 |       SLA     4         GET RID OF DRIVE CODE   2-2 J0311520
23C9 1804                 1156 |       SRA     4                                 2-2 J0311530
23CA 80D8                 1157 |       A       DO914     UPDATE WORD 5 OF LET HDR    J0311540
23CB D306                 1158 |       STO   3 +6        SCTR ADDR OF NEXT LET SCTR  J0311550
23CC 4018                 1159 |       BSI     DO060     WRITE FULL LET SECTOR       J0311560
                          1160 | *                                                 * J0311570
23CD C302                 1161 |       LD    3 +2                                    J0311580
23CE 80D4                 1162 |       A       DO914                                 J0311590
23CF D302                 1163 |       STO   3 +2        SCTR NO. OF THIS LET SCTR   J0311600
                          1164 | *                                                 * J0311610
23D0 C0D4                 1165 |       LD      DO916                                 J0311620
23D1 D305                 1166 |       STO   3 +5        315 DECML WDS AVAILABLE     J0311630
                          1167 | *                                                 * J0311640
23D2 C0D3                 1168 |       LD      DO917                                 J0311650
23D3 D306                 1169 |       STO   3 +6        INDICATE LAST LET SCTR      J0311660
                          1170 | *                                                 * J0311670
23D4 6680 7FFC            1171 |       LDX  I2 LETAR+C   XR2 AFTER ADJUSTMENT POINTS J0311680
23D6 7206                 1172 |       MDX   2 +6        *ADDR FOR 1ST PROG ENT      J0311690
23D7 4C80 23B0            1173 |       BSC  I  DO040     EXIT FULL LET SCTR SUBR     J0311700
STORE--MULTI ENTRY SUBPROGRAM
 
                          1175 | *************************************************** J0311720
                          1176 | *                                                 * J0311730
                          1177 | *   INSERT MULTIPLE ENTRY POINTS INTO LET         * J0311740
                          1178 | *                                                 * J0311750
                          1179 | *************************************************** J0311760
23D9 6580 23A7            1180 | DO055 LDX  I1 DO918     XR1 IS PT FOR PROG HDR      J0311770
23DB C100                 1181 |       LD    1 0                                     J0311780
23DC D204                 1182 |       STO   2 +4                                    J0311790
23DD C101                 1183 |       LD    1 +1        MOVE SECONDARY ENTRY POINT  J0311800
23DE D205                 1184 |       STO   2 +5        *NAME TO LET                J0311810
                          1185 | *                                                 * J0311820
23DF 1010                 1186 |       SLA     16        WORD 3 OF ALL SECONDARY     J0311830
23E0 D206                 1187 |       STO   2 +6        *ENT POINTS IS ZERO         J0311840
                          1188 | *                                                 * J0311850
23E1 7203                 1189 |       MDX   2 +3                                    J0311860
23E2 7103                 1190 |       MDX   1 +3                                    J0311870
23E3 69C3                 1191 |       STX   1 DO918     UPDATE XR POINTERS FOR      J0311880
23E4 7083                 1192 |       MDX     DO025     *NEXT ENTRY POINT           J0311890
STORE--WRITE LET/FLET SECTOR
 
                          1194 | *************************************************** J0311910
                          1195 | *                                                 * J0311920
                          1196 | *   WRITE LET/FLET SECTOR TO DISK                 * J0311930
                          1197 | *                                                 * J0311940
                          1198 | *************************************************** J0311950
23E5 0000                 1199 | DO060 DC      *-*                                   J0311960
                          1200 | *************************************************** J0311970
                          1201 | *                                                 * J0311980
                          1202 | *   DETERMINE WD CNT FOR WRITING LET SECTOR. IF   * J0311990
                          1203 | *   WDS AVAILABLE EQUAL ZERO, WD CNT IS 320.      * J0312000
                          1204 | *   OTHERWISE WD CNT IS 320 MINUS WDS AVAILABLE.  * J0312010
                          1205 | *                                                 * J0312020
                          1206 | *************************************************** J0312030
23E6 C0C1                 1207 |       LD      DO920                                 J0312040
23E7 9305                 1208 |       S     3 +5                                    J0312050
23E8 D300                 1209 |       STO   3 0         WD CNT LESS THAN 320        J0312060
23E9 4480 7DBC            1210 | DO065 BSI  I  PUT       WRITE LET/FLET SECTOR       J0312070
                          1211 | *                                                 * J0312080
23EB C301                 1212 |       LD    3 +1                                    J0312090
23EC 80B6                 1213 |       A       DO914     UPDATE LET/FLET SCTR ADDR   J0312100
23ED D301                 1214 |       STO   3 +1        NEW LET/FLET SCTR ADDR      J0312110
23EE 4C80 23E5            1215 |       BSC  I  DO060                                 J0312120
STORE--DATA OR CI LET UPDATE
 
                          1217 | *************************************************** J0312140
                          1218 | *                                                 * J0312150
                          1219 | *   DETERMINE IF DATA OR CORE IMAGE ENTRIES TO    * J0312160
                          1220 | *   LET REQUIRE A 1DUMY ENTRY TO ACCOUNT FOR      * J0312170
                          1221 | *   DB'S OF PADDING IN USER AREA                  * J0312180
                          1222 | *                                                 * J0312190
                          1223 | *************************************************** J0312200
23F0 C400 22C9            1224 | DO100 LD   L  DS950                                 J0312210
23F2 F0A8                 1225 |       EOR     DO907                                 J0312220
23F3 4C18 2405            1226 |       BSC  L  DO120,+-  BR IF UA SCTR BOUNDARY  2-1 J0312230
                          1227 | *                                                 * J0312240
23F5 C400 22C9            1228 |       LD   L  DS950     WORD 3 OF LAST .1DUMY. IS   J0312250
23F7 D203                 1229 | DO110 STO   2 +3        *NO. OF DB'S OF PADDING.    J0312260
                          1230 | *                                                 * J0312270
23F8 C8A3                 1231 |       LDD     DO908     INSERT .1DYMY. PADDING      J0312280
23F9 D201                 1232 |       STO   2 +1        *ENTRY INTO LET.            J0312290
23FA 18D0                 1233 |       RTE     16                                    J0312300
23FB D202                 1234 |       STO   2 +2                                    J0312310
                          1235 | *                                                 * J0312320
23FC 7203                 1236 |       MDX   2 +3        INCR XR2 FOR NAME ENTRY     J0312330
23FD C305                 1237 |       LD    3 +5                                    J0312340
23FE 9099                 1238 |       S       DO902     BECAUSE .1DUMY. PADDING     J0312350
23FF D305                 1239 |       STO   3 +5        *REQ,DECR WDS AVAIL BY 3    J0312360
                          1240 | *                                                   J0312370
2400 C0AA                 1241 |       LD      DO923     REDUCE WS .1DUMY. BY        J0312380
2401 9200                 1242 |       S     2 0         *NUMBER OF DB'S OF PADDING  J0312390
2402 D0A8                 1243 |       STO     DO923     *REQ FOR DATA OF CORE IMAGE J0312400
2403 4C00 2351            1244 |       BSC  L  DO020                                 J0312410
                          1245 | *  THE FOLLOWING CODING IS MOVED FROM PATCH AREA2-3 J0312420
2405 C305                 1246 | DO120 LD    3 5         IS THIS THE FIRST ENTRY 2-1 J0312430
2406 909E                 1247 |       S       DO916     *TO STORE IN THIS LET   2-1 J0312440
2407 4C18 240E            1248 |       BSC  L  DO130,+-  *SECTOR? BRANCH IF YES  2-1 J0312450
2409 C2FE                 1249 |       LD    2 -2        CHECK TYPE OF PREVIOUS  2-1 J0312460
240A 180E                 1250 |       SRA     14        *ENTRY. NO DUMMY NEEDED 2-1 J0312470
240B 4C20 2351            1251 | DO125 BSC  L  DO020,Z   *IF NOT DSF. BRANCH     2-1 J0312480
                          1252 | *                       PREVIOUS ENTRY DSF TYPE 2-1 J0312490
240D 70E9                 1253 |       MDX     DO110     BR TO INSERT ZERO DUMMY 2-1 J0312500
                          1254 | *                                               2-1 J0312510
240E C12B                 1255 | DO130 LD    1 STSW      SET UP IOAR HEADER TO   2-1 J0312520
240F 9093                 1256 |       S       DO914     *READ PREVIOUS LET SCTR 2-1 J0312530
2410 18D0                 1257 |       RTE     16                                2-1 J0312540
2411 C096                 1258 |       LD      DO920                             2-1 J0312550
2412 DB00                 1259 |       STD   3 0                                 2-1 J0312560
2413 4480 7DB3            1260 |       BSI  I  GET       READ SECTOR             2-1 J0312570
2415 C700 013F            1261 |       LD   L3 319       CHECK TYPE OF LAST ENTRY2-1 J0312580
2417 180E                 1262 |       SRA     14        *IN PREVIOUS SECTOR     2-1 J0312590
2418 D096                 1263 |       STO     DO940     SAVE TYPE               2-1 J0312600
2419 C12B                 1264 |       LD    1 STSW                              2-1 J0312610
241A 18D0                 1265 |       RTE     16        SET UP IOAR HEADER TO   2-1 J0312620
241B C08C                 1266 |       LD      DO920     *READ AGAIN SECTOR      2-1 J0312630
241C DB00                 1267 |       STD   3 0         *WHERE NEW ENTRY IS     2-1 J0312640
241D 4480 7DB3            1268 |       BSI  I  GET       *TO BE STORED.          2-1 J0312650
241F C08F                 1269 |       LD      DO940     GET TYPE OF ENTRY       2-1 J0312660
2420 70EA                 1270 |       MDX     DO125     BR TO CHK IF DUMMY NEEDS2-1 J0312670
                          1271 | *                       *TO BE INSERTED         2-1 J0312680
STORE--MAKE ENTRY TO FLET
 
                          1273 | *************************************************** J0312700
                          1274 | *                                                 * J0312710
                          1275 | *   THIS SUBROUTINE IS USED WHEN STORING TO THE   * J0312720
                          1276 | *   FIXED AREA. IT ENTERS THE DATA OR PROGRAM     * J0312730
                          1277 | *   NAME IN THE APPROPRIATE FLET SECTOR.          * J0312740
                          1278 | *                                                 * J0312750
                          1279 | *************************************************** J0312760
2421 C195                 1280 | ST800 LD    1 #FSZE     COMPARE FXA DESTINATION     J0312770
2422 9186                 1281 |       S     1 #DBCT     *HOLE SIZE TO PROG SIZE     J0312780
2423 4C20 242F            1282 |       BSC  L  ST820,Z   BR IF FLET PUSHDOWN REQ     J0312790
                          1283 | *                                                 * J0312800
2425 C204                 1284 |       LD    2 +4                                    J0312810
2426 4C18 242F            1285 |       BSC  L  ST820,+-  BRANCH IF AT END OF FLET    J0312820
                          1286 | *                                                 * J0312830
2428 C984                 1287 |       LDD   1 #NAME                                 J0312840
2429 D201                 1288 |       STO   2 +1        PRIME ENTRY POINT NAME OF   J0312850
242A 18D0                 1289 |       RTE     16        *PROG TO WORDS 1 AND 2      J0312860
242B D202                 1290 |       STO   2 +2        *OF FLET ENTRY.             J0312870
                          1291 | *                                                 * J0312880
242C 40B8                 1292 | ST810 BSI     DO060     WRITE UPDATED FLET SECTOR   J0312890
242D 4C80 2319            1293 |       BSC  I  DOLET     EXIT LET/FLET UPDATE        J0312900
                          1294 | *************************************************** J0312910
                          1295 | *                                                 * J0312920
                          1296 | *   DB CNT OF ENTRY IS LESS THAN DB CNT OF        * J0312930
                          1297 | *   FIXED AREA HOLE.                              * J0312940
                          1298 | *                                                 * J0312950
                          1299 | *************************************************** J0312960
242F C203                 1300 | ST820 LD    2 +3                                    J0312970
2430 9186                 1301 |       S     1 #DBCT                                 J0312980
2431 D203                 1302 |       STO   2 +3        ADJ SIZE OF .1DUMY. ENTRY   J0312990
                          1303 | *                                                 * J0313000
2432 C984                 1304 |       LDD   1 #NAME     SAVE ENTRY POINT FOR        J0313010
2433 DC00 239E            1305 |       STD  L  DO909     *INSERTION AFTER FLET       J0313020
2435 C186                 1306 |       LD    1 #DBCT     *ENTRIES HAVE BEEN PUSHED   J0313030
2436 D400 23AE            1307 |       STO  L  DO938     *DOWN 3 WORDS.              J0313040
                          1308 | *                                                 * J0313050
2438 C305                 1309 |       LD    3 +5                                    J0313060
2439 9400 2398            1310 |       S    L  DO902                                 J0313070
243B D305                 1311 |       STO   3 +5        REDUCE WDS AVAIL BY 3       J0313080
                          1312 | *                                                 * J0313090
243C 6A06                 1313 | ST830 STX   2 ST840+1                               J0313100
243D C480 2445            1314 |       LD   I  ST850+1                               J0313110
243F 8007                 1315 |       A       ST860+1   COMPUTE NO. OF WORDS IN     J0313120
2440 9002                 1316 |       S       ST840+1   *FLET SECTOR TO BE MOVED    J0313130
2441 D001                 1317 |       STO     ST840+1   *DOWN 3 WORDS.              J0313140
                          1318 | *                                                 * J0313150
2442 6500 0000            1319 | ST840 LDX  L1 *-*       XR1 IS NO. OF WDS TO MOVE   J0313160
2444 6780 7FFC            1320 | ST850 LDX  I3 LETAR+C                               J0313170
2446 7700 0141            1321 | ST860 MDX  L3 321       XR3 IS ADDR TO START MOVE   J0313180
                          1322 | *                                                 * J0313190
2448 C300                 1323 | ST870 LD    3 0         MOVE EACH WORD TO           J0313200
2449 D303                 1324 |       STO   3 +3        *THE RIGHT 3 WORDS.         J0313210
244A 73FF                 1325 |       MDX   3 -1                                    J0313220
244B 71FF                 1326 |       MDX   1 -1        DECR LOOP COUNTER           J0313230
244C 70FB                 1327 |       MDX     ST870     CONT IF COUNT POSITIVE      J0313240
                          1328 | *                                                 * J0313250
244D 6500 7FA0            1329 |       LDX  L1 C         XR1 IS CATCO MIDPOINT       J0313260
244F 6780 7FFC            1330 |       LDX  I3 LETAR+C   XR3 IS FLET SCTR POINTER    J0313270
                          1331 | *                                                 * J0313280
2451 CC00 239E            1332 |       LDD  L  DO909     INSERT ENTRY POINT NAME     J0313290
2453 D201                 1333 |       STO   2 +1        *FROM TEMPORARY LOCATION    J0313300
2454 18D0                 1334 |       RTE     16                                    J0313310
2455 D202                 1335 |       STO   2 +2                                    J0313320
                          1336 | *                                                 * J0313330
2456 C400 23AE            1337 |       LD   L  DO938     INSERT ENTRY POINT DB COUNT J0313340
2458 D203                 1338 |       STO   2 +3        *PUSHED DOWN FROM LAST SCTR J0313350
                          1339 | *                                                 * J0313360
2459 C305                 1340 |       LD    3 +5        CHECK IF FLET SECTOR FULL   J0313370
245A 4C10 242C            1341 |       BSC  L  ST810,-   BR TO EXIT IF NOT FULL      J0313380
                          1342 | *                                                 * J0313390
245C 1010                 1343 |       SLA     16                                    J0313400
245D D305                 1344 |       STO   3 +5        SET WORDS AVAIL TO ZERO     J0313410
245E 4400 23B0            1345 |       BSI  L  DO040     WRAP UP FULL FLET SCTR      J0313420
                          1346 | *                                                 * J0313430
2460 C400 23A6            1347 |       LD   L  DO917                                 J0313440
2462 4C20 246D            1348 |       BSC  L  ST875,Z   GET NEXT FLET SECTOR        J0313450
                          1349 | *                                                 * J0313460
2464 CC00 239C            1350 |       LDD  L  DO908                                 J0313470
2466 D307                 1351 |       STO   3 +7        .1DUMY. WORD 1              J0313480
2467 18D0                 1352 |       RTE     16                                    J0313490
2468 D308                 1353 |       STO   3 +8        .1DUMY. WORD 2              J0313500
                          1354 | *                                                 * J0313510
2469 C700 0144            1355 |       LD   L3 +324                                  J0313520
246B D309                 1356 |       STO   3 +9        .1DUMY. DB COUNT            J0313530
246C 70BF                 1357 |       MDX     ST810                                 J0313540
                          1358 | *                                                 * J0313550
246D 4480 7DB3            1359 | ST875 BSI  I  GET       READ FLET SECTOR            J0313560
246F C305                 1360 |       LD    3 +5                                    J0313570
2470 9400 2398            1361 |       S    L  DO902                                 J0313580
2472 D305                 1362 |       STO   3 +5        REDUCE WDS AVAIL BY THREE   J0313590
                          1363 | *                                                 * J0313600
2473 7700 0141            1364 |       MDX  L3 321       XR3 POINTS AT END OF SECTOR J0313610
2475 C302                 1365 |       LD    3 +2                                    J0313620
2476 18D0                 1366 |       RTE     16        MOVE ENTRY POINT PUSHED     J0313630
2477 C301                 1367 |       LD    3 +1        *DOWN FROM LAST SECTOR TO   J0313640
2478 DC00 239E            1368 |       STD  L  DO909     *TEMPORARY LOCATION.        J0313650
247A C303                 1369 |       LD    3 +3                                    J0313660
247B D400 23AE            1370 |       STO  L  DO938                                 J0313670
247D 70BE                 1371 |       MDX     ST830     PUSH DOWN CURRENT FLET SCTR J0313680
STORE--UPDATE DCOM
 
                          1373 | *************************************************** J0313700
                          1374 | *                                                 * J0313710
                          1375 | *   UPDATE DCOM QUANTITIES COMMON TO 'JOB' AND    * J0313720
                          1376 | *   'JOB T'                                       * J0313730
                          1377 | *                                                 * J0313740
                          1378 | *************************************************** J0313750
247E 0000                 1379 | UPDCM DC      *-*       ENTRY POINT                 J0313760
247F 4480 7DB9            1380 |       BSI  I  PHID      MODIFY STORE PHASE ID       J0313770
2481 4003                 1381 |       DC      /4003     UPDCM SUBR MODIFICATION     J0313780
                          1382 | *                                                 * J0313790
2482 6680 7F32            1383 |       LDX  I2 #TODR+C   XR2 IS DESTINATION DR CODE  J0313800
                          1384 | *                                                 * J0313810
2484 C11E                 1385 |       LD    1 FXSW                                  J0313820
2485 4CA0 247E            1386 |       BSC  I  UPDCM,Z   NOT STORE TO UA EXIT UPDCM  J0313830
                          1387 | *                                                 * J0313840
2487 D600 7F75            1388 |       STO  L2 #WSCT+C   CLEAR WS DB COUNT           J0313850
                          1389 | *                                                 * J0313860
2489 C400 23AA            1390 | DO085 LD   L  DO922                                 J0313870
248B D600 7F43            1391 |       STO  L2 #ANDU+C   END OF UA, 'TO' DRIVE ADJ   J0313880
                          1392 | *************************************************** J0313890
                          1393 | *                                                 * J0313900
                          1394 | *   DETERMINE IF IN TEMPORARY JOB MODE            * J0313910
                          1395 | *                                                 * J0313920
                          1396 | *************************************************** J0313930
248D C189                 1397 |       LD    1 #JBSW                                 J0313940
248E 4CA0 247E            1398 |       BSC  I  UPDCM,Z   BR IF IN JOB 'T' MODE       J0313950
                          1399 | *                                                 * J0313960
2490 C400 23AA            1400 |       LD   L  DO922                                 J0313970
2492 D600 7F48            1401 |       STO  L2 #BNDU+C   END OF UA, 'TO' DRIVE, BASE J0313980
                          1402 | *                                                 * J0313990
2494 C600 0095            1403 |       LD   L2 $FPAD                                 J0314000
2496 D600 7F4D            1404 |       STO  L2 #FPAD+C   FILE PROTECT ADDR, 'TO' DR  J0314010
                          1405 | *                                                 * J0314020
2498 4C80 247E            1406 |       BSC  I  UPDCM     BR (EXIT) DCOM UPDATE       J0314030
STORE--PRINT SIGN OFF MESSAGE
 
                          1408 | *************************************************** J0314050
                          1409 | *                                                 * J0314060
                          1410 | *   FORMAT AND PRINT STORE SIGN OFF MESSAGE         J0314070
                          1411 | *                                                 * J0314080
                          1412 | * CART ID XXXX  DB ADDR AAAA   DB CNT LLLL        * J0314090
                          1413 | *                                                 * J0314100
                          1414 | *************************************************** J0314110
249A 0000                 1415 | SNOFF DC      *-*       ENTRY POINT                 J0314120
249B 4480 7DB9            1416 |       BSI  I  PHID      MODIFY STORE PHASE ID       J0314130
249D 6003                 1417 |       DC      /6003     SNOFF SUBR MODIFICATION     J0314140
                          1418 | *                                                 * J0314150
249E C192                 1419 |       LD    1 #TODR                                 J0314160
249F 100C                 1420 |       SLA     12                                    J0314170
24A0 D005                 1421 |       STO     SN002     DESTINATION DR CODE (0-3)   J0314180
24A1 6A06                 1422 |       STX   2 SN004+1   SAVE XR2                    J0314190
24A2 6700 7F1E            1423 |       LDX  L3 CATCO     XR3 POINTS TO DCOM IMAGE    J0314200
24A4 4480 7DB1            1424 |       BSI  I  WRTDC     WRITE DCOM                  J0314210
24A6 0000                 1425 | SN002 DC      *-*       DESTINATION DRIVE CODE      J0314220
24A7 6600 0000            1426 | SN004 LDX  L2 *-*       RESTORE XR2                 J0314230
24A9 C400 000E            1427 |       LD   L  $CORE                                 J0314240
24AB 1003                 1428 |       SLA     3                                     J0314250
24AC 4C18 24B4            1429 |       BSC  L  SN010,-+  BRANCH IF CORE SIZE GT 4K   J0314260
24AE 6700 7A06            1430 |       LDX  L3 IOADR                                 J0314270
24B0 C904                 1431 |       LDD   1 PIHDR+2                               J0314280
24B1 DB00                 1432 |       STD   3 0                                     J0314290
24B2 4480 7DB3            1433 |       BSI  I  GET       READ PRINC. I/O PHASE       J0314300
24B4 C600 7F57            1434 | SN010 LD   L2 #CIDN+C                               J0314310
24B6 4480 7DB0            1435 |       BSI  I  BINEB     CART ID FROM BIN TO HEX     J0314320
24B8 C92C                 1436 |       LDD   1 TEMP1                                 J0314330
24B9 D816                 1437 |       STD     DO926     CART ID TO SIGN OFF MESSAGE J0314340
                          1438 | *                                                 * J0314350
24BA C116                 1439 |       LD    1 DBADR                                 J0314360
24BB 4480 7DB0            1440 |       BSI  I  BINEB     CONVERT DB ADDR TO HEX      J0314370
24BD C92C                 1441 |       LDD   1 TEMP1                                 J0314380
24BE D819                 1442 |       STD     DO928     INSERT DB ADDR IN MESSAGE   J0314390
                          1443 | *                                                 * J0314400
24BF C186                 1444 |       LD    1 #DBCT     CONVERT DB CNT TO HEX       J0314410
24C0 4480 7DB0            1445 |       BSI  I  BINEB                                 J0314420
24C2 C92C                 1446 |       LDD   1 TEMP1                                 J0314430
24C3 D81C                 1447 |       STD     DO930     INSERT DB CNT IN MESSAGE    J0314440
                          1448 | *                                                 * J0314450
24C4 4480 7DBB            1449 |       BSI  I  PRINT     PRINT SIGN OFF MESSAGE      J0314460
24C6 24CB                 1450 |       DC      DO924     ADDR OF MESSAGE             J0314470
                          1451 | *                                                 * J0314480
24C7 4480 7DBD            1452 |       BSI  I  REST      EXIT--STORE COMPLETE        J0314490
STORE--SIGN-OFF WORK AREA
 
24CA                      1454 |       BSS  E  0                                     J0314510
24CA 0000                 1455 |       DC      0         WASTE ONE WORD              J0314520
24CB 0016                 1456 | DO924 DC      DO932-DO925    WD CNT OF SIGN OFF     J0314530
24CC C3C1 D9E3 40C9 C440  1457 | DO925 EBC     .CART ID .                            J0314540
24D0                      1458 | DO926 BSS     2         CART ID IN HEX              J0314550
24D2 4040 40C4 C240 C1C4  1459 |       EBC     .   DB ADDR  .                        J0314560
     C4D9 4040                 |
24D8                      1460 | DO928 BSS     2         DB ADDR OF PROG OR DATA     J0314570
24DA 4040 40C4 C240 C3D5  1461 |       EBC     .   DB CNT   .                        J0314580
     E340 4040                 |
24E0                      1462 | DO930 BSS     2         DB CNT OF PROG OR DATA      J0314590
24E2                      1463 | DO932 BES     0         GENERATE MESSAGE WD CNT     J0314600
STORE--I/O TO WS INITIALIZATION
 
                          1465 | *************************************************** J0314620
                          1466 | *                                                 * J0314630
                          1467 | * THE FOLLOWING SUBROUTINE IS USED BY STORE       * J0314640
                          1468 | * STOREDATA, AND STORECI TO TRANSMIT INFORMATION  * J0314650
                          1469 | * FROM CARD OR PAPER TAPE TO WORKING STORAGE      * J0314660
                          1470 | *                                                 * J0314670
                          1471 | *************************************************** J0314680
24E2 4480 7DB9            1472 | IOWS  BSI  I  PHID      MOD 1 OF PHASE ID OF STORE  J0314690
24E4 1003                 1473 |       DC      /1003     PHID PARAMETER              J0314700
24E5 6700 2573            1474 |       LDX  L3 IO150     XR3 POINTS TO CONSTANTS     J0314710
24E7 C115                 1475 |       LD    1 DATSW     CHECK IF STOREDATA          J0314720
24E8 E931                 1476 |       OR    1 WSSW      *OR TO WORKING STORAGE      J0314730
24E9 4C18 24EE            1477 |       BSC  L  IO010,+-  BR IF NOT STOREDATA         J0314740
                          1478 | *************************************************** J0314750
                          1479 | *                                                 * J0314760
                          1480 | * USE 'TO' DRIVE DEFINED ON DUP STORE CONTROL RCD * J0314770
                          1481 | *                                                 * J0314780
                          1482 | *************************************************** J0314790
24EB 6680 7F32            1483 |       LDX  I2 #TODR+C                               J0314800
24ED 7002                 1484 |       MDX     IO020                                 J0314810
                          1485 | *************************************************** J0314820
                          1486 | *                                                 * J0314830
                          1487 | * USE WS DRIVE DEFINED FOR 'JOB' AS 'TO' DRIVE    * J0314840
                          1488 | *                                                 * J0314850
                          1489 | *************************************************** J0314860
24EE 6680 007A            1490 | IO010 LDX  I2 $WSDR     ZERO WORKING STORAGE        J0314870
24F0 C600 0095            1491 | IO020 LD   L2 $FPAD                                 J0314880
24F2 D304                 1492 |       STO   3 IO180-I   SAVE WS ADDR OF THIS DRIVE  J0314890
24F3 D305                 1493 |       STO   3 IO190-I                               J0314900
24F4 1004                 1494 |       SLA     4                                     J0314910
24F5 D116                 1495 |       STO   1 DBADR     DB ADDR OF WORKING STORAGE  J0314920
24F6 6E00 257A            1496 |       STX  L2 IO210     SAVE DRIVE CD OF 'TO' DRIVE J0314930
                          1497 | *************************************************** J0314940
                          1498 | *                                                 * J0314950
                          1499 | * COMPUTE DISK BUFFER SIZE FOR I/O TO WS          * J0314960
                          1500 | *                                                 * J0314970
                          1501 | *************************************************** J0314980
24F8 C400 000E            1502 |       LD   L  $CORE     DETERMINE CORE SIZE         J0314990
24FA 1004                 1503 |       SLA     4                                     J0315000
24FB C31E                 1504 |       LD    3 IO375-I   1 SCTR IF CORE SIZE 4K      J0315010
24FC 4C02 24FF            1505 |       BSC  L  IO030,C   BRANCH IF CORE 4K           J0315020
                          1506 | *************************************************** J0315030
                          1507 | *                                                   J0315040
                          1508 | * CORE SIZE IS GT 4K                              * J0315050
                          1509 | *                                                 * J0315060
                          1510 | *************************************************** J0315070
24FE C300                 1511 |       LD    3 IO150-I   8 SCTR BFR IF GT 4K         J0315080
                          1512 | *                       ALLOW FOR ONE MORE CD THAN  J0315090
24FF D30D                 1513 | IO030 STO   3 IO240-I   AN INTEGRAL NO. OF SCTRS    J0315100
2500 1004                 1514 |       SLA     4                                     J0315110
2501 D30E                 1515 |       STO   3 IO245-I   SIZE OF BUFFER IN DB'S      J0315120
2502 1804                 1516 |       SRA     4                                     J0315130
                          1517 | *                                                   J0315140
2503 A309                 1518 |       M     3 IO230-I   MULTIPLY BY 320             J0315150
2504 1090                 1519 |       SLT     16        RESULT IS WD CNT OF I/O     J0315160
2505 D30F                 1520 |       STO   3 IO250-I   TO WS BUFFER                J0315170
STORE--I/O TO WS INITIALIZATION
 
2506 C15C                 1522 |       LD    1 LETAR                                 J0315190
2507 E301                 1523 |       AND   3 IO155-I                               J0315200
2508 D306                 1524 |       STO   3 IO200-I   ADDR OF WS BUFFER           J0315210
                          1525 | *                                                 * J0315220
2509 8126                 1526 |       A     1 PGMHL                                 J0315230
250A 831D                 1527 |       A     3 IO370-I                               J0315240
250B D310                 1528 |       STO   3 IO270-I   ADDR OF FIRST DATA HDR      J0315250
                          1529 | *************************************************** J0315260
                          1530 | *                                                 * J0315270
                          1531 | * TEST IF THIS IS STOREDATA (CDD OR PTD FORMAT)   * J0315280
                          1532 | *                                                 * J0315290
                          1533 | *************************************************** J0315300
250C C115                 1534 | IO040 LD    1 DATSW                                 J0315310
250D 4C20 2653            1535 |       BSC  L  IO480,Z   BRANCH IF STOREDATA         J0315320
                          1536 | *************************************************** J0315330
                          1537 | *                                                 * J0315340
                          1538 | *          FORM DISK PROGRAM HEADER               * J0315350
                          1539 | *          51 IS THE MAX LENGTH OF HEADER         * J0315360
                          1540 | *                                                 * J0315370
                          1541 | *************************************************** J0315380
250F 1010                 1542 |       SLA     16                                    J0315390
2510 D064                 1543 |       STO     IO160     CLEAR SUBR INDICATOR        J0315400
2511 6680 2579            1544 |       LDX  I2 IO200     XR2 POINTS TO WS BUFFER     J0315410
2513 7202                 1545 |       MDX   2 +2        ADJ PT FOR FIRST WORD       J0315420
2514 6780 7FFF            1546 |       LDX  I3 NEXT+C    POINT TO CD/PAPT BUFFER     J0315430
2516 C303                 1547 |       LD    3 +3                                    J0315440
2517 1808                 1548 |       SRA     8         DETERMINE IF PROG IS SUBR,  J0315450
2518 9077                 1549 |       S       IO370     *PROG TYPE GT TWO.          J0315460
2519 4830                 1550 |       BSC     -Z        SKIP IF MAINLINE PROG       J0315470
251A 685A                 1551 |       STX   0 IO160     SET SUBR INDICATOR          J0315480
251B C126                 1552 |       LD    1 PGMHL                                 J0315490
251C 9400 2396            1553 |       S    L  DO900     SET WORD 6 OF HEADER TO     J0315500
251E D306                 1554 |       STO   3 +6        *HEADER LENGTH MINUS 9.     J0315510
251F 4400 2647            1555 |       BSI  L  MOV54                                 J0315520
STORE--IOWS READ DATA RECORDS
 
                          1557 | *************************************************** J0315540
                          1558 | *                                                 * J0315550
                          1559 | * READ NON HEADER RECORDS                           J0315560
                          1560 | *                                                 * J0315570
                          1561 | *************************************************** J0315580
2521 6500 7FA0            1562 | IO060 LDX  L1 C         XR1 POINTS TO CATCO + /82   J0315590
2523 C95E                 1563 |       LDD   1 THIS      EXCHANGE CARD BUFFER        J0315600
2524 18D0                 1564 |       RTE     16        ADDRESSES TO DOUBLE         J0315610
2525 D95E                 1565 |       STD   1 THIS      BUFFER CARD READING         J0315620
2526 6780 7FFF            1566 |       LDX  I3 NEXT+C    XR3 IS NEXT BINARY RECORD   J0315630
2528 C128                 1567 |       LD    1 PTSW                                  J0315640
2529 4C20 2535            1568 |       BSC  L  IO067,Z   BR IF READING PAPER TAPE    J0315650
                          1569 | *                                                 * J0315660
252B C304                 1570 |       LD    3 +4        CHECK COLUMN 4 OF UNPACKED  J0315670
252C 180C                 1571 |       SRA     12        BFR FOR TYPE F END OF PROG  J0315680
252D F056                 1572 |       EOR     IO280                                 J0315690
252E 4C20 2535            1573 |       BSC  L  IO067,Z   BRANCH IF NOT TYPE 'F'      J0315700
2530 C400 0013            1574 | IO065 LD   L  $IBSY     WAIT FOR READ COMPLETE      J0315710
2532 4C20 2530            1575 |       BSC  L  IO065,Z   BRANCH IF READ NOT COMPLETE J0315720
2534 7002                 1576 |       MDX     IO070                                 J0315730
                          1577 | *                                                   J0315740
2535 4480 7A0B            1578 | IO067 BSI  I  GETBI     READ NEXT RECORD            J0315750
                          1579 | *                                                   J0315760
2537 4480 7A0C            1580 | IO070 BSI  I  PACKB     PACK CURRENT RECORD         J0315770
                          1581 | *                                                   J0315780
2539 6580 2583            1582 |       LDX  I1 IO270     1ST WD PAST PROGRAM HEADER  J0315790
253B 6780 7FFF            1583 |       LDX  I3 NEXT+C    XR3 POINTS TO PACKED BFR    J0315800
253D C303                 1584 |       LD    3 +3        PROGRAM TYPE AND PRECISION  J0315810
253E 1888                 1585 |       SRT     8         SHIFT OUT PRECISION         J0315820
253F E044                 1586 |       AND     IO280     MASK TYPES NOT 0-F          J0315830
2540 D044                 1587 |       STO     IO290     SAVE PROGRAM TYPE           J0315840
STORE--IOWS RECORD TYPE DECODING
 
2541 74F7 2585            1589 |       MDX  L  IO290,-9  TEST IF TYPE GTR THAN 9     J0315860
2543 7003                 1590 |       MDX     IO090     TYPE GTR THAN 9 IS OK       J0315870
                          1591 | *************************************************** J0315880
                          1592 | *                                                   J0315890
                          1593 | * TYPE IS LESS THAN 9, INDICATING DUP ERROR 4       J0315900
                          1594 | *                                                   J0315910
                          1595 | *************************************************** J0315920
2544 4480 7DB4            1596 | IO080 BSI  I  LEAVE     CALL DUP EXIT MODULE        J0315930
2546 001E                 1597 |       DC      30        INVALID RECORD TYPE         J0315940
                          1598 | *                                                   J0315950
2547 74FB 2585            1599 | IO090 MDX  L  IO290,-5                              J0315960
2549 7007                 1600 |       MDX     IO095     TYPE F  END OF PROGRAM      J0315970
254A 7403 2585            1601 |       MDX  L  IO290,+3                              J0315980
254C 7006                 1602 |       MDX     IO100     TYPE A (PROGRAM DATA)       J0315990
254D 7400 2585            1603 |       MDX  L  IO290,0                               J0316000
254F 70D1                 1604 |       MDX     IO060     TYPE C,D,E (LDR OVERLAYS)   J0316010
2550 70F3                 1605 |       MDX     IO080     ILLEGAL TYPE, DUP ERROR 4   J0316020
2551 4C00 2603            1606 | IO095 BSC  L  IO470     BR TO PROCESS END OF PROG   J0316030
STORE--TYPE A DATA RECORDS
 
                          1608 | *************************************************** J0316050
                          1609 | *                                                 * J0316060
                          1610 | * PROGRAM DATA RECORD PROCESSING                  * J0316070
                          1611 | *                                                 * J0316080
                          1612 | *************************************************** J0316090
2553 74FF 2586            1613 | IO100 MDX  L  IO300,-1  SKIP IF DATA HDR REQUIRED   J0316100
2555 7001                 1614 |       MDX     IO110     DATA HDR NOT REQUESTED      J0316110
2556 7006                 1615 |       MDX     IO120                                 J0316120
                          1616 | *************************************************** J0316130
                          1617 | *                                                 * J0316140
                          1618 | * CHECK FOR A SEQUENCE BREAK IN DATA              * J0316150
                          1619 | *                                                 * J0316160
                          1620 | *************************************************** J0316170
2557 C480 2587            1621 | IO110 LD   I  IO310     COMPARE LOCATION OF LAST    J0316180
2559 8030                 1622 |       A       IO320     DATA WORD MOVED TO BUFFER   J0316190
255A 9301                 1623 |       S     3 +1        WITH 1ST LOC OF THIS RECORD J0316200
255B 4C18 2564            1624 |       BSC  L  IO130,+-  BRANCH IF NO SEQ BREAK      J0316210
                          1625 | *************************************************** J0316220
                          1626 | *                                                 * J0316230
                          1627 | * DATA HEADER REQUIRED. FIRST WORD OF DATA HEADER * J0316240
                          1628 | * IS RELATIVE LOAD LOCATION OF FOLLOWING DATA.    * J0316250
                          1629 | *                                                 * J0316260
                          1630 | *************************************************** J0316270
255D C025                 1631 | IO120 LD      IO270                                 J0316280
255E D028                 1632 |       STO     IO310     SAVE ADDR OF DATA HEADER    J0316290
                          1633 | *                                                   J0316300
255F 10A0                 1634 |       SLT     32        SET IND WD CNT AND DISK     J0316310
2560 D829                 1635 |       STD     IO320     CNT FOR DATA HDR WD 2 ZERO. J0316320
                          1636 | *                                                   J0316330
2561 C301                 1637 |       LD    3 +1        RELATIVE LOAD LOCATION IS   J0316340
2562 D100                 1638 |       STO   1 0         WORD 1 OF DATA HEADER       J0316350
                          1639 | *                                                   J0316360
2563 6822                 1640 |       STX   0 IO300     SET SW FOR NO DATA HDR      J0316370
STORE--TYPE A DATA RECORDS
 
                          1642 | *************************************************** J0316390
                          1643 | *                                                 * J0316400
                          1644 | *       FILL IN DATA HEADER                       * J0316410
                          1645 | *       FILL IN ALL INDICATOR WORDS               * J0316420
                          1646 | *       FILL IN ALL DATA WORDS                    * J0316430
                          1647 | * IF WS BUFFER NOT EXCEEDED THEN READ NEXT CARD   * J0316440
                          1648 | *                                                 * J0316450
                          1649 | *************************************************** J0316460
2564 C303                 1650 | IO130 LD    3 +3                                    J0316470
2565 E026                 1651 |       AND     IO330     MASK TO GET DATA WD CNT     J0316480
2566 D026                 1652 |       STO     IO340     SAVE IN MODULO 8 COUNTER    J0316490
2567 8022                 1653 |       A       IO320     INCLUDE WITH TOTAL DISK     J0316500
2568 D021                 1654 |       STO     IO320     WDS FROM LAST DATA HDR      J0316510
                          1655 | *                                                   J0316520
2569 1010                 1656 |       SLA     16        SET COUNT OF BLOCKS OF      J0316530
256A D023                 1657 |       STO     IO350     8 WORDS TO ZERO             J0316540
                          1658 | *                                                   J0316550
256B 6901                 1659 |       STX   1 IO140+1                               J0316560
256C 6600 0000            1660 | IO140 LDX  L2 *-*       POINT XR2 TO 1ST IND WORD   J0316570
256E 7202                 1661 |       MDX   2 +2        AFTER DATA HEADER           J0316580
256F C01D                 1662 |       LD      IO340     CHK IF 1ST DATA CD HAS  2-7 J0316590
2570 4C18 259A            1663 |       BSC  L  IO415,+-  *NO DATA WDS,THEN BRANCH2-7 J0316600
2572 7021                 1664 |       MDX     IO410     BRANCH AROUND CONSTANTS     J0316610
STORE--IOWS CONSTANTS AND WORK AREA
 
2573 0008                 1666 | IO150 DC      8         CONSTANT OF 8               J0316630
2574 0FFF                 1667 | IO155 DC      /0FFF     WS BFR CORE ADDR MASK       J0316640
2575 0000                 1668 | IO160 DC      *-*       SUBR INDICATOR IF NZ        J0316650
2576 0014                 1669 | IO170 DC      20        CONSTANT 20                 J0316660
2577 0000                 1670 | IO180 DC      *-*       WS BFR SCTR ADDR            J0316670
2578 0000                 1671 | IO190 DC      *-*       INITIAL FILE PROTECT ADDR   J0316680
2579 0000                 1672 | IO200 DC      *-*       ADDR OF START OF WS BFR     J0316690
257A 0000                 1673 | IO210 DC      *-*       DRIVE CODE OF 'TO' DRIVE    J0316700
257B 0036                 1674 | IO220 DC      54        WD CNT FOR 1 CARD           J0316710
257C 0140                 1675 | IO230 DC      320       WD CNT OF 1 SECTOR          J0316720
257E                      1676 |       BSS  E  0                                2-10 J0316725
257E 0000                 1677 | IO235 DC      0                                2-10 J0316730
257F 010A                 1678 |       DC      266       CONSTANT(319-53)       2-10 J0316735
2580 0000                 1679 | IO240 DC      *-*       SCTRS IN I/O TO WS BUFFER   J0316740
2581 0000                 1680 | IO245 DC      *-*       SIZE OF DK BUFFER, DB'S     J0316750
2582 0000                 1681 | IO250 DC      *-*       WD CNT FOR NO. OF SCTRS     J0316760
2583 0000                 1682 | IO270 DC      *-*       ADDR OF DATA HDR            J0316770
2584 000F                 1683 | IO280 DC      /F        MASK FOR PROGRAM TYPE       J0316780
2585 0000                 1684 | IO290 DC      *-*       TYPE SAVED HERE             J0316790
2586 0000                 1685 | IO300 DC      *-*       ZERO IF DATA HDR REQ        J0316800
2587 0000                 1686 | IO310 DC      *-*       SAVE ADDR OF DATA HDR       J0316810
2588 0000                 1687 | IO315 DC      *-*       STOREDATA RECORD COUNT      J0316820
2589 0000                 1688 | IO316 DC      *-*       DB'S OF DATA STILL TO WRITE J0316830
                          1689 | *                                                   J0316840
258A                      1690 |       BSS  E  0                                     J0316850
258A 0000                 1691 | IO320 DC      *-*       CNT FOR DATA HDR WD 2       J0316860
258B 0000                 1692 |       DC      *-*       INDICATE WORD COUNT         J0316870
258C 00FF                 1693 | IO330 DC      /FF       MASK FOR RCD WD CNT         J0316880
258D 0000                 1694 | IO340 DC      *-*       MODULO 8 WD COUNTER         J0316890
258E 0000                 1695 | IO350 DC      *-*       CNT BLKS OF 8 WDS           J0316900
258F 0000                 1696 | IO360 DC      *-*       ADDR OF LAST IND WD         J0316910
2590 0002                 1697 | IO370 DC      2         CONSTANT 2                  J0316920
2591 0001                 1698 | IO375 DC      1         CONSTANT                    J0316930
2592 0000                 1699 | IO380 DC      *-*       TEMP STORAGE W/BFR OVFLO    J0316940
2593 0013                 1700 | IO390 DC      19        CONSTANT 19                 J0316950
2573                      1701 | I     EQU     IO150     IOWS POINTER FOR CONSTANTS  J0316960
STORE--TYPE A DATA RECORDS
 
                          1703 | *************************************************** J0316980
                          1704 | *                                                 * J0316990
                          1705 | * FILL IN INDICATOR WORDS                         * J0317000
                          1706 | *                                                 * J0317010
                          1707 | *************************************************** J0317020
2594 C304                 1708 | IO410 LD    3 +4                                    J0317030
2595 D200                 1709 |       STO   2 0         INDICATOR WD TO DISK BUFFER J0317040
2596 7401 258B            1710 |       MDX  L  IO320+1,1 INCR INDR WD COUNTER    2-7 J0317050
2598 7301                 1711 |       MDX   3 +1        STEP INPUT RECORD PT        J0317060
2599 7201                 1712 |       MDX   2 +1        STEP WS BFR POINTER     2-7 J0317070
259A 7401 258E            1713 | IO415 MDX  L  IO350,1   INCR NO. OF BLKS OF 8   2-7 J0317080
259C 7208                 1714 |       MDX   2 +8        STEP WS BFR POINTER     2-7 J0317090
259D 74F8 258D            1715 |       MDX  L  IO340,-8  DECR MODULO 8 WD COUNTER    J0317100
259F 70F4                 1716 |       MDX     IO410     REPEAT IF NOT LAST IND WORD J0317110
                          1717 | *                                                   J0317120
25A0 6780 7FFF            1718 |       LDX  I3 NEXT+C    RESET XR3 TO START OF INPUT J0317130
25A2 6AEC                 1719 |       STX   2 IO360     SAVE ADDR OF LAST IND WD    J0317140
                          1720 | *************************************************** J0317150
                          1721 | *                                                 * J0317160
                          1722 | * FILL IN DATA WORDS                              * J0317170
                          1723 | *                                                 * J0317180
                          1724 | *          DS978 IS THE NO. OF BLOCKS OF 8 WORDS  * J0317190
                          1725 | *          XR2 IS WORD COUNT                      * J0317200
                          1726 | *                                                 * J0317210
                          1727 | *************************************************** J0317220
25A3 6208                 1728 | IO420 LDX   2 +8        SET DATA WORD COUNT TO 8    J0317230
25A4 74FF 258E            1729 |       MDX  L  IO350,-1  DECR NO. OF BLOCKS OF 8     J0317240
25A6 7004                 1730 |       MDX     IO430     BRANCH TILL BLKS OF 8 IS 0  J0317250
25A7 7680 258D            1731 |       MDX  I2 IO340     ADJ WD CNT WITH MOD 8 CTR   J0317260
25A9 1010                 1732 |       SLA     16        ZERO DATA HDR SW TO         J0317270
25AA D0DB                 1733 |       STO     IO300     REQUIRE DATA BREAK          J0317280
                          1734 | *************************************************** J0317290
                          1735 | *                                                 * J0317300
                          1736 | * XR1 IS DISK BUFFER POINTER                      * J0317310
                          1737 | * XR2 IS LOOP CONTROL COUNTER                     * J0317320
                          1738 | * XR3 IS INPUT RECORD POINTER                     * J0317330
                          1739 | *                                                 * J0317340
                          1740 | *************************************************** J0317350
25AB C30A                 1741 | IO430 LD    3 +10       MOVE INPUT RECORD DATA      J0317360
25AC D103                 1742 |       STO   1 +3        WORD TO DISK BUFFER         J0317370
                          1743 | *                                                   J0317380
25AD 7301                 1744 |       MDX   3 +1        STEP INPUT RECORD POINTER   J0317390
25AE 7101                 1745 |       MDX   1 +1        STEP DISK BUFFER POINTER    J0317400
25AF 72FF                 1746 |       MDX   2 -1        DECR LOOP COUNTER           J0317410
                          1747 | *                                                   J0317420
25B0 70FA                 1748 |       MDX     IO430     REPEAT UNTIL XR2 IS ZERO    J0317430
STORE--TYPE A DATA RECORDS
 
                          1750 | *************************************************** J0317450
                          1751 | *                                                 * J0317460
                          1752 | * BLOCK OF 8 DATA WORDS MOVED                     * J0317470
                          1753 | *                                                 * J0317480
                          1754 | *************************************************** J0317490
25B1 7101                 1755 |       MDX   1 +1        STEP BFR PT PAST IND WORD   J0317500
                          1756 | *************************************************** J0317510
                          1757 | *                                                 * J0317520
                          1758 | * DETERMINE IF ALL INPUT WDS MOVED TO DISK BUFFER * J0317530
                          1759 | *                                                 * J0317540
                          1760 | *************************************************** J0317550
25B2 C0DB                 1761 |       LD      IO350                                 J0317560
25B3 4C20 25A3            1762 |       BSC  L  IO420,Z   BRANCH IF ALL WDS NOT MOVED J0317570
                          1763 | *************************************************** J0317580
                          1764 | *                                                 * J0317590
                          1765 | * FILL IN WORD COUNT IN LAST DATA HEADER. THIS    * J0317600
                          1766 | * COUNT IS THE NUMBER OF WORDS UP TO AND INCLUDING* J0317610
                          1767 | * THE NEXT DATA HEADER.                           * J0317620
                          1768 | *                                                 * J0317630
                          1769 | * THE LAST DATA HEADER HAS A WORD COUNT OF ZERO   * J0317640
                          1770 | *                                                 * J0317650
                          1771 | *************************************************** J0317660
25B5 6680 2587            1772 |       LDX  I2 IO310     XR2 IS ADDR OF DK DATA HDR  J0317670
25B7 C0D8                 1773 |       LD      IO370                                 J0317680
25B8 80D1                 1774 |       A       IO320     WORD CNT IS NO. OF IND WDS  J0317690
25B9 80D1                 1775 |       A       IO320+1   PLUS DATA WDS PLUS TWO.     J0317700
25BA D201                 1776 |       STO   2 +1        FILL IN 2ND WD OF DATA HDR  J0317710
                          1777 | *************************************************** J0317720
                          1778 | *                                                 * J0317730
                          1779 | * UPDATE DATA HEADER POINTER                      * J0317740
                          1780 | *                                                 * J0317750
                          1781 | *************************************************** J0317760
25BB C0D3                 1782 |       LD      IO360     ADDR OF NEXT DATA HDR       J0317770
25BC 80D0                 1783 |       A       IO340     EQUALS ADDR OF LAST IND WD  J0317780
25BD D0C5                 1784 |       STO     IO270     PLUS DATA WDS AFTER IT.     J0317790
25BE 4002                 1785 |       BSI     IO435                                 J0317800
25BF 4C00 2521            1786 |       BSC  L  IO060     BRANCH TO READ INPUT RCDS   J0317810
                          1787 | *************************************************** J0317820
                          1788 | *                                                 * J0317830
                          1789 | * CHECK IF WS BUFFER CAPACITY REACHED             * J0317840
                          1790 | *                                                 * J0317850
                          1791 | *************************************************** J0317860
25C1 0000                 1792 | IO435 DC      *-*       ENTRY POINT                 J0317870
25C2 6500 7FA0            1793 |       LDX  L1 C         XR1 IS CATCO MIDPOINT ADDR  J0317880
25C4 C0B4                 1794 |       LD      IO200                                 J0317890
25C5 80CA                 1795 |       A       IO370     ADDR OF BFR WORD 1          J0317900
25C6 80BB                 1796 |       A       IO250     COMPARE DISK BFR FULL ADDR  J0317910
25C7 90BB                 1797 |       S       IO270     TO ADDR OF NEW DATA HEADER  J0317920
25C8 4C90 25C1            1798 |       BSC  I  IO435,-   BR (EXIT) IF BFR NOT FULL   J0317930
STORE--WRITE PROGRAM TO WS
 
                          1800 | *************************************************** J0317950
                          1801 | *                                                 * J0317960
                          1802 | * WRITE TO WORKING STORAGE ON THE DISK IN BLOCKS  * J0317970
                          1803 | * OF SECTORS AS SPECIFIED IN DS958. DS958 IS      * J0317980
                          1804 | * CALCULATED AT EXECUTION TIME AND SHOULD BE      * J0317990
                          1805 | * TWO IF CORE SIZE IS 4K, OR EIGHT IF CORE SIZE   * J0318000
                          1806 | * IS GT 4K.                                       * J0318010
                          1807 | *                                                 * J0318020
                          1808 | *************************************************** J0318030
25CA 4004                 1809 |       BSI     IO440     WRITE WS BFR TO DISK        J0318040
                          1810 | *                                                   J0318050
25CB 1010                 1811 |       SLA     16        SET DATA HDR SW TO ZERO     J0318060
25CC D0B9                 1812 |       STO     IO300     TO FORCE A DATA BREAK       J0318070
25CD 4C80 25C1            1813 |       BSC  I  IO435     BR (EXIT)                   J0318080
                          1814 | *                                                   J0318090
25CF 0000                 1815 | IO440 DC      0                                     J0318100
25D0 6780 2579            1816 |       LDX  I3 IO200     XR3 POINTS TO IOAR HDR      J0318110
25D2 C0A4                 1817 |       LD      IO180                                 J0318120
25D3 18D0                 1818 |       RTE     16        SET-UP IOAR HDR TO WRITE    J0318130
25D4 C0AD                 1819 |       LD      IO250     WS BUFFER TO DISK           J0318140
25D5 DB00                 1820 |       STD   3 0                                     J0318150
25D6 4480 7DBC            1821 |       BSI  I  PUT       WRITE BUFFER TO WS          J0318160
                          1822 | *************************************************** J0318170
                          1823 | *                                                 * J0318180
                          1824 | * INCREMENT WS SECTOR ADDRESS                     * J0318190
                          1825 | *                                                 * J0318200
                          1826 | *************************************************** J0318210
25D8 C0B0                 1827 |       LD      IO316                                 J0318220
25D9 90A7                 1828 |       S       IO245                                 J0318230
25DA D0AE                 1829 |       STO     IO316     DB'S OF DATA REMAINING      J0318240
25DB C09B                 1830 |       LD      IO180     NEXT SECTOR ADDR EQUALS     J0318250
25DC 80A3                 1831 |       A       IO240     CURRENT SECTOR ADDR PLUS    J0318260
25DD D099                 1832 |       STO     IO180     NO. OF SCTRS WRITTEN        J0318270
                          1833 | *************************************************** J0318280
                          1834 | *                                                 * J0318290
                          1835 | * MOVE DISK BUFFER WORDS PAST LAST WORD WRITTEN   * J0318300
                          1836 | * TO WORKING STORAGE TO THE BEGINNING OF THE      * J0318310
                          1837 | * DISK BUFFER.                                    * J0318320
                          1838 | *                                                 * J0318330
                          1839 | *************************************************** J0318340
25DE 6580 2579            1840 |       LDX  I1 IO200     XR1 POINTS TO START OF BFR  J0318350
25E0 6680 2579            1841 |       LDX  I2 IO200                                 J0318360
25E2 7680 2582            1842 |       MDX  I2 IO250     XR2 POINTS TO END OF BFR    J0318370
25E4 6AAD                 1843 |       STX   2 IO380                                 J0318380
25E5 C09D                 1844 |       LD      IO270     NUMBER WORDS TO BE MOVED    J0318390
25E6 90AB                 1845 |       S       IO380     IS DATA HDR ADDR LESS       J0318400
25E7 80A8                 1846 |       A       IO370     *END OF BUFFER ADDR         J0318410
25E8 D0A9                 1847 |       STO     IO380     RESULT IS LOOP COUNTER      J0318420
STORE--WRITE PROGRAM TO WS
 
25E9 C202                 1849 | IO450 LD    2 +2        MOVE OVERFLOW WORD TO       J0318440
25EA D102                 1850 |       STO   1 +2        BEGINNING OF BUFFER         J0318450
25EB 7101                 1851 |       MDX   1 +1        STEP START BFR POINTER      J0318460
25EC 7201                 1852 |       MDX   2 +1        STEP END BFR POINTER        J0318470
25ED 74FF 2592            1853 |       MDX  L  IO380,-1  DECR MOVE LOOP COUNTER      J0318480
25EF 70F9                 1854 |       MDX     IO450     CONT IF MORE WDS TO MOVE    J0318490
                          1855 | *                                                   J0318500
25F0 C092                 1856 |       LD      IO270     MOVE DATA HDR ADDR BACK     J0318510
25F1 9090                 1857 |       S       IO250     TO THREE LT ADDR OF NEXT    J0318520
25F2 D090                 1858 |       STO     IO270     AVAILABLE DATA WD           J0318530
                          1859 | *                                                   J0318540
25F3 6500 7FA0            1860 |       LDX  L1 C         XR1 IS CATCO MIDPOINT ADDR  J0318550
25F5 4C80 25CF            1861 |       BSC  I  IO440     EXIT WRITE TO WS SUBR       J0318560
STORE--FINAL WRITE TO WS
 
                          1863 | *************************************************** J0318580
                          1864 | *                                                 * J0318590
                          1865 | * WRITE REMAINDER OF DATA ON DISK                 * J0318600
                          1866 | *                                                 * J0318610
                          1867 | *************************************************** J0318620
25F7 0000                 1868 | IO460 DC      0                                     J0318630
25F8 C400 2578            1869 |       LD   L  IO190     CNVRT SCTR ADDR OF START2-4 J0318640
25FA 1004                 1870 |       SLA     4         OF PROGRAM IN WS TO ITS     J0318650
25FB D116                 1871 |       STO   1 DBADR     DISK BLOCK ADDRESS          J0318660
25FC 6780 2579            1872 |       LDX  I3 IO200     SET XR3 TO IOAR HDR         J0318670
25FE 4480 7DBC            1873 |       BSI  I  PUT       WRITE PARTIAL BFR TO DISK   J0318680
2600 C300                 1874 |       LD    3 0         PICKUP LAST WD CNT          J0318690
2601 4C80 25F7            1875 |       BSC  I  IO460     EXIT                        J0318700
STORE--TYPE F END OF PROG RECORD
 
                          1877 | *************************************************** J0318720
                          1878 | *                                                 * J0318730
                          1879 | * END OF PROGRAM RECORD PROCESSING                * J0318740
                          1880 | *                                                 * J0318750
                          1881 | *     XR1 IS ADDRESS OF CURRENT DATA HEADER       * J0318760
                          1882 | *     XR3 IS ADDRESS OF CURRENT PACKED INPUT RCD  * J0318770
                          1883 | *                                                 * J0318780
                          1884 | *************************************************** J0318790
2603 C400 2575            1885 | IO470 LD   L  IO160                                 J0318800
2605 4C20 260A            1886 |       BSC  L  IO475,Z   BR IF PROG IS SUBR          J0318810
2607 C304                 1887 |       LD    3 +4        RELATIVE EXEC ADDR IS       J0318820
2608 D400 7F30            1888 |       STO  L  #ENTY+C   *WORD 4 OF EOP RECORD       J0318830
                          1889 | *                                                   J0318840
260A C400 2577            1890 | IO475 LD   L  IO180     SCTR ADDR OF LAST WR TO WS  J0318850
260C 18D0                 1891 |       RTE     16                                    J0318860
260D C400 2583            1892 |       LD   L  IO270     COMPUTE WD CNT OF LAST      J0318870
260F 9400 2579            1893 |       S    L  IO200     *WRITE TO WORKING STORAGE   J0318880
2611 6680 2579            1894 |       LDX  I2 IO200                                 J0318890
2613 DA00                 1895 |       STD   2 0         SET-UP WD CNT AND SCTR ADDR J0318900
                          1896 | *                                                   J0318910
2614 C301                 1897 |       LD    3 +1        GENERATE EOP DATA HEADER    J0318920
2615 D100                 1898 |       STO   1 0         1ST WORD IS NEXT EVEN       J0318930
2616 1010                 1899 |       SLA     16        *LOCATION PAST PROGRAM      J0318940
2617 D101                 1900 |       STO   1 +1        2ND WORD IS ZERO            J0318950
2618 6500 7FA0            1901 |       LDX  L1 C         XR1 IS CATCO MIDPOINT ADDR  J0318960
261A 40DC                 1902 |       BSI     IO460     LAST WRITE TO WS            J0318970
                          1903 | *                                                   J0318980
261B 8400 2593            1904 |       A    L  IO390     ADJUST LAST WD CNT TO NEXT  J0318990
261D 1890                 1905 |       SRT     16        *DISK BLOCK. CONVERT WORDS  J0319000
261E AC00 2576            1906 |       D    L  IO170     *TO DK BLOCKS BY DIVIDING   J0319010
2620 1884                 1907 |       SRT     4         *BY TWENTY                  J0319020
                          1908 | *                                                   J0319030
2621 8400 2577            1909 |       A    L  IO180     LAST COMPLETE SCTR ADDR     J0319040
2623 9400 2578            1910 |       S    L  IO190     *LESS 1ST SCTR ADDR TIMES   J0319050
2625 1084                 1911 |       SLT     4         *SIXTEEN IS PROGRAM SIZE    J0319060
2626 6680 257A            1912 |       LDX  I2 IO210     *IN DK BLOCKS. ENTER IN     J0319070
2628 6E00 7F33            1913 |       STX  L2 #FRDR+C   SAVE DR CODE OF PROG IN WS  J0319080
262A D600 7F75            1914 |       STO  L2 #WSCT+C   *#WSCT TBL FOR 'TO' DRIVE   J0319090
262C D186                 1915 |       STO   1 #DBCT     SAVE DB CNT OF PROG OR DATA J0319100
262D 1010                 1916 |       SLA     16        FORMAT OF WORKING STORAGE   J0319110
262E D600 7F66            1917 |       STO  L2 #FMAT+C   *IS ZERO FOR DSF            J0319120
                          1918 | *************************************************** J0319130
                          1919 | *                                                 * J0319140
                          1920 | *   IF PROGRAM IS A MAINLINE, INSERT XEQ ADDR     * J0319150
                          1921 | *   FROM LAST RECORD INTO PROGRAM HEADER          * J0319160
                          1922 | *                                                 * J0319170
                          1923 | *************************************************** J0319180
2630 C400 2575            1924 |       LD   L  IO160                                 J0319190
2632 4C20 21EC            1925 |       BSC  L  ST020,Z   BR IF NOT A MAINLINE        J0319200
                          1926 | *                                                 * J0319210
2634 C400 2578            1927 |       LD   L  IO190                                 J0319220
2636 18D0                 1928 |       RTE     16        SET-UP DISK IOAR HDR        J0319230
2637 C400 257C            1929 |       LD   L  IO230     *TO READ 1ST SCTR OF        J0319240
2639 DB00                 1930 |       STD   3 0         *PROGRAM                    J0319250
                          1931 | *                                                 * J0319260
263A 4480 7DB3            1932 |       BSI  I  GET       READ 1ST SECTOR             J0319270
                          1933 | *                                                 * J0319280
263C C190                 1934 |       LD    1 #ENTY                                 J0319290
263D D30D                 1935 |       STO   3 +13       INSERT EXECUTION ADDRESS    J0319300
                          1936 | *                                                 * J0319310
263E 4480 7DBC            1937 |       BSI  I  PUT       WRITE 1ST SECTOR            J0319320
2640 4C00 21EC            1938 |       BSC  L  ST020     BR (EXIT) I/O TO WS         J0319330
STORE--SUBR TO MOVE 54 WORDS
 
                          1940 | *************************************************** J0319350
                          1941 | *                                                 * J0319360
                          1942 | * THIS SUBR MOVES 40 OR 54 WORDS FROM THE AREA    * J0319370
                          1943 | * SPECIFIED BY XR3 TO THE AREA SPECIFIED BY XR2   * J0319380
                          1944 | *                                                 * J0319390
                          1945 | *************************************************** J0319400
2642 0000                 1946 | MOV40 DC      0                                 2E2 J0319410
2643 6128                 1947 |       LDX   1 40        SET TO MOVE 40 WORDS FOR2E2 J0319420
2644 C0FD                 1948 |       LD      MOV40     *HANDLING OF EBCDIC DATA2E2 J0319430
2645 D001                 1949 |       STO     MOV54     SECURE RETURN           2E2 J0319440
2646 7002                 1950 |       MDX     MOVXX                             2E2 J0319450
                          1951 | *                                               2E2 J0319460
2647 0000                 1952 | MOV54 DC      0                                     J0319470
2648 6136                 1953 |       LDX   1 +54       SET TO MOVE 54 WORDS        J0319480
                          1954 | *                                                   J0319490
2649 C301                 1955 | MOVXX LD    3 +1                                    J0319500
264A D200                 1956 |       STO   2 0         MOVE WORDS 1-54             J0319510
                          1957 | *                                                   J0319520
264B 7201                 1958 |       MDX   2 +1        STEP TO NEXT INPUT WORD     J0319530
264C 7301                 1959 |       MDX   3 +1        STEP TO NEXT OUTPUT WORD    J0319540
264D 71FF                 1960 |       MDX   1 -1        DECR LOOP COUNTER           J0319550
264E 70FA                 1961 |       MDX     MOVXX     CONT TILL 54 WORDS MOVED    J0319560
                          1962 | *                                                   J0319570
264F 6500 7FA0            1963 |       LDX  L1 C         XR1 IS CATCO MIDPOINT ADDR  J0319580
2651 4C80 2647            1964 |       BSC  I  MOV54     RETURN                      J0319590
STORE--STOREDATA I/O TO WS
 
2653 6600 2573            1966 | IO480 LDX  L2 IO150     XR2 POINTS TO CONSTANTS     J0319610
2655 C131                 1967 |       LD    1 WSSW                                  J0319620
2656 4C20 2673            1968 |       BSC  L  IO485,Z   BR IF STOREDATA TO WS       J0319630
2658 C11E                 1969 |       LD    1 FXSW                                  J0319640
2659 4C20 2671            1970 |       BSC  L  IO484,Z   BR IF STOREDATA TO FXA      J0319650
                          1971 | *                                                 * J0319660
265B C196                 1972 |       LD    1 #UHOL     ROUND DB HOLE ADDRESS TO    J0319670
265C D400 22C9            1973 | IO482 STO  L  DS950     *DESTINATION SCTR DB ADDR.  J0319680
265E 8211                 1974 |       A     2 IO280-I                               J0319690
265F 1890                 1975 |       SRT     16                                    J0319700
2660 C207                 1976 |       LD    2 IO210-I   PUT DRIVE CODE OF 'TO'      J0319710
2661 108C                 1977 |       SLT     12        *DRIVE INTO DESTINATION     J0319720
2662 D204                 1978 |       STO   2 IO180-I   *SCTR ADDR.                 J0319730
2663 1004                 1979 |       SLA     4                                     J0319740
2664 D116                 1980 |       STO   1 DBADR     DB ADDR OF DESTINATION      J0319750
2665 C400 22C9            1981 |       LD   L  DS950     MASK OFF NO. OF DB'S FROM   J0319760
2667 E211                 1982 |       AND   2 IO280-I   *DB ADDR IN EXCESS OF LAST  J0319770
2668 D400 22C9            1983 |       STO  L  DS950     *COMPLETE SECTOR.           J0319780
266A C400 22C8            1984 |       LD   L  DS949     SUBTRACT NO. OF DB'S JUST   J0319790
266C 9400 22C9            1985 |       S    L  DS950     *OBTAINED FROM 16.          J0319800
266E D400 22C9            1986 |       STO  L  DS950     NO. OF DB'S OF PADDING REQ  J0319810
2670 7002                 1987 |       MDX     IO485                                 J0319820
                          1988 | *                                                 * J0319830
2671 C194                 1989 | IO484 LD    1 #FHOL     USE FXA HOLE DB ADDR        J0319840
2672 70E9                 1990 |       MDX     IO482                                 J0319850
                          1991 | *************************************************** J0319860
                          1992 | *                                                 * J0319870
                          1993 | *   DETERMINE DB CNT OF DATA TO BE STORED. 6 INPUT* J0319880
                          1994 | *   RECORDS ARE EQUIVALENT TO ONE SECTOR OF DATA  * J0319890
                          1995 | *   IF STOREDATA, 8 IF STOREDATAE OPERATION     2E2 J0319900
                          1996 | *                                                 * J0319910
                          1997 | *************************************************** J0319920
2673 C133                 1998 | IO485 LD    1 EBCSW     CK TO SEE IF STOREDATAE 2E2 J0319930
2674 4C18 267C            1999 |       BSC  L  IO486,+-  BRANCH IF NOT           2E2 J0319940
2676 C115                 2000 |       LD    1 DATSW     NO. OF DATA RCDS TO READ2E2 J0319950
2677 D215                 2001 |       STO   2 IO315-I                           2E2 J0319960
2678 8200                 2002 |       A     2 IO150-I   TO GET NO. OF SECTORS   2-3 J0319970
2679 921E                 2003 |       S     2 IO375-I   *REQUIRED, ADD 7        2-3 J0319980
267A 1803                 2004 |       SRA     3         *AND DIVIDE BY 8        2-3 J0319990
267B 7005                 2005 |       MDX     IO487     JOIN STOREDATA         2-10 J0320000
                          2006 | *                                               2E2 J0320010
267C C115                 2007 | IO486 LD    1 DATSW                                 J0320020
267D D215                 2008 |       STO   2 IO315-I   NO. OF DATA RECORDS TO READ J0320030
267E A208                 2009 |       M     2 IO220-I                               J0320040
                          2010 | *                       *NO. OF SCTRS REQUIRED 2-10 J0320050
267F 8A0B                 2011 |       AD    2 IO235-I   *FOR N CDS IS 54*N PLUS2-10 J0320060
                          2012 | * 1 INSTRUCTION REMOVED                        2-10 J0320070
2680 AA09                 2013 |       D     2 IO230-I   *BY 320.                    J0320080
                          2014 | *                                                 * J0320090
2681 1004                 2015 | IO487 SLA     4         CONVERT DATA SECTOR CNT2-10 J0320100
2682 D115                 2016 |       STO   1 DATSW     *TO DB COUNT.               J0320110
2683 D186                 2017 |       STO   1 #DBCT                                 J0320120
2684 D216                 2018 |       STO   2 IO316-I   DB'S OF DATA TO BE WRITTEN  J0320130
2685 C131                 2019 |       LD    1 WSSW                                  J0320140
2686 4C20 2693            2020 |       BSC  L  IO489,Z   BR IF STOREDATA TO WS       J0320150
2688 C197                 2021 |       LD    1 #USZE                                 J0320160
2689 7400 7FD0            2022 |       MDX  L  UASW+C,0  SKIP IF STORE TO FXA        J0320170
268B 7001                 2023 |       MDX     IO488                                 J0320180
                          2024 | *                                                 * J0320190
268C C195                 2025 |       LD    1 #FSZE                                 J0320200
268D 9186                 2026 | IO488 S     1 #DBCT                                 J0320210
268E 4C10 2693            2027 |       BSC  L  IO489,-   BR IF ROOM FOR STORE        J0320220
2690 4480 7DB4            2028 |       BSI  I  LEAVE     DUP ERROR EXIP. SOURCE      J0320230
2692 001F                 2029 |       DC      31        *EXCEEDS AVAIL DISK SPACE   J0320240
                          2030 | *************************************************** J0320250
                          2031 | *                                                 * J0320260
                          2032 | *   BEFORE ENTERING DOUBLE-BUFFERED MODE, DO      * J0320270
                          2033 | *   INITIAL READ. SPECIAL CODING FOR RJE        2E2 J0320280
                          2034 | *                                                 * J0320290
                          2035 | *************************************************** J0320300
2693 C133                 2036 | IO489 LD    1 EBCSW     CK TO SEE IF STOREDATAE 2E2 J0320310
2694 4C18 26A8            2037 |       BSC  L  IO491,+-  BRANCH IF NOT           2E2 J0320320
2696 4480 7A0A            2038 | IO490 BSI  I  GETHO     READ A RECORD           2E2 J0320330
2698 7400 0013            2039 |       MDX  L  $IBSY,0                           2E2 J0320340
269A 70FD                 2040 |       MDX     *-3       LOOP TILL READ IS COMPL 2E2 J0320350
269B 6680 2583            2041 |       LDX  I2 IO270     INITLZ INDEX REGISTERS  2E2 J0320360
269D 6780 7FFD            2042 |       LDX  I3 PEBUF+C   *TO MOVE                2E2 J0320370
269F 40A2                 2043 |       BSI     MOV40     MOVE 40 WORDS FROM PEBUF2E2 J0320380
26A0 6E00 2583            2044 |       STX  L2 IO270     STORE NEW ADDRESS       2E2 J0320390
26A2 4400 25C1            2045 |       BSI  L  IO435     CHECK BFR FULL          2E2 J0320400
26A4 74FF 2588            2046 |       MDX  L  IO315,-1  DECR RECORD COUNT       2E2 J0320410
26A6 70EF                 2047 |       MDX     IO490     READ NEXT RCD IF NOT DON2E2 J0320420
26A7 701F                 2048 |       MDX     IO496-5   BRANCH TO WRITE ON DISK 2E2 J0320430
                          2049 | *                       *BUT FIRST RESTORE XR2  2E2 J0320440
26A8 4480 7A0B            2050 | IO491 BSI  I  GETBI     READ 1ST RECORD         2E2 J0320450
26AA C128                 2051 |       LD    1 PTSW                                  J0320460
26AB 4C20 26E9            2052 |       BSC  L  IO500,Z   BR IF INPUT FROM PAPER TAPE J0320470
                          2053 | *                                                 * J0320480
26AD C128                 2054 | IO492 LD    1 PTSW                              2-3 J0320490
26AE 4C20 26A8            2055 |       BSC  L  IO491,Z   IF PT, GO READ NEXT RCD 2-3 J0320500
                          2056 | *                                               2-3 J0320510
26B0 C95E                 2057 |       LDD   1 THIS                                  J0320520
26B1 18D0                 2058 |       RTE     16                                    J0320530
26B2 D95E                 2059 |       STD   1 THIS      EXCHANGE BUFFER ADDRESSES   J0320540
                          2060 | *                                                 * J0320550
26B3 74FF 2588            2061 |       MDX  L  IO315,-1  DECR DATA RECORD COUNT  2-3 J0320560
26B5 7004                 2062 |       MDX     IO494     READ NEXT IF COUNT PLUS 2-3 J0320570
                          2063 | *                       TWO WORDS               2-3 J0320580
                          2064 | *                       *SAVED                  2-3 J0320590
                          2065 | *                                                 * J0320600
26B6 7400 0013            2066 | IO493 MDX  L  $IBSY,0   SKIP IF LAST READ COMPLETE  J0320610
26B8 70FD                 2067 |       MDX     IO493     LOOP TILL READ IS COMPLETE  J0320620
26B9 7002                 2068 |       MDX     IO495     GO PACK THIS RECORD         J0320630
                          2069 | *                                                 * J0320640
26BA 4480 7A0B            2070 | IO494 BSI  I  GETBI     READ NEXT DATA RECORD       J0320650
26BC 4480 7A0C            2071 | IO495 BSI  I  PACKB     PACK CURRENT RECORD         J0320660
                          2072 | *************************************************** J0320670
                          2073 | *                                                 * J0320680
                          2074 | *   MOVE PACKED BINARY RECORD TO DISK BUFFER      * J0320690
                          2075 | *                                                 * J0320700
                          2076 | *************************************************** J0320710
26BE 6680 2583            2077 |       LDX  I2 IO270     XR2 IS DK BFR POINTER       J0320720
26C0 6780 7FFF            2078 |       LDX  I3 NEXT+C    XR3 IS INPUT BFR POINTER    J0320730
26C2 4084                 2079 |       BSI     MOV54     MOVE INPUT BFR TO DK BFR    J0320740
26C3 6E00 2583            2080 |       STX  L2 IO270                                 J0320750
26C5 4400 25C1            2081 |       BSI  L  IO435     CHECK FOR DK BFR FULL       J0320760
                          2082 | *                                                 * J0320770
26C7 6600 2573            2083 |       LDX  L2 IO150     XR2 POINTS TO CONSTANTS     J0320780
26C9 C215                 2084 |       LD    2 IO315-I                               J0320790
26CA 4C30 26AD            2085 |       BSC  L  IO492,-Z  BR IF RECORD COUNT POSITIVE J0320800
                          2086 | *************************************************** J0320810
                          2087 | *                                                 * J0320820
                          2088 | *   ALL STOREDATA INPUT RECORDS HAVE BEEN READ    * J0320830
                          2089 | *   AND PROCESSED. WRITE REMAINDER OF DATA NOW    * J0320840
                          2090 | *   IN DISK BUFFER TO WS OR FIXED AREA.           * J0320850
                          2091 | *                                                 * J0320860
                          2092 | *************************************************** J0320870
26CC 6780 2579            2093 | IO496 LDX  I3 IO200     XR3 IS DK BFR IOAR ADDRESS  J0320880
26CE C216                 2094 |       LD    2 IO316-I                               J0320890
26CF 4C08 26D8            2095 |       BSC  L  IO498,+   BR IF ALL DB'S WRITTEN      J0320900
                          2096 | *                                                 * J0320910
26D1 A203                 2097 |       M     2 IO170-I   CONVERT DB'S TO WD COUNT    J0320920
26D2 1090                 2098 |       SLT     16                                    J0320930
26D3 D300                 2099 |       STO   3 0         WD CNT FOR LAST WRITE       J0320940
26D4 C204                 2100 |       LD    2 IO180-I                               J0320950
26D5 D301                 2101 |       STO   3 +1        SCTR ADDR FOR LAST WRITE    J0320960
26D6 4480 7DBC            2102 |       BSI  I  PUT       WRITE PARTIAL BFR TO DISK   J0320970
STORE--STOREDATA I/O TO WS,UA, OR FXA
 
                          2104 | *************************************************** J0320990
                          2105 | *                                                 * J0321000
                          2106 | *   DETERMINE IF STOREDATA TO USER OR FIXED AREA  * J0321010
                          2107 | *                                                 * J0321020
                          2108 | *************************************************** J0321030
26D8 6680 257A            2109 | IO498 LDX  I2 IO210     XR2 IS WS DRIVE CODE        J0321040
26DA C131                 2110 |       LD    1 WSSW                                  J0321050
26DB 4C18 220B            2111 |       BSC  L  ST015,+-  BR TO UPDATE LET/FLET       J0321060
26DD C186                 2112 |       LD    1 #DBCT                                 J0321070
26DE D600 7F75            2113 |       STO  L2 #WSCT+C   DB CNT OF DATA IN WS        J0321080
26E0 C400 2591            2114 |       LD   L  IO375     +1 FOR DDF FORMAT       2-5 J0321090
26E2 7400 7FCA            2115 |       MDX  L  STCSW+C,0 SKIP IF NOT STORECI     2-5 J0321100
26E4 C078                 2116 |       LD      ST904     -2 FOR DCI FORMAT       2-5 J0321110
26E5 D600 7F66            2117 | IO499 STO  L2 #FMAT+C   FORMAT PLUS FOR DATA        J0321120
26E7 4C00 21EC            2118 |       BSC  L  ST020     BR TO STORE MASTER CONTROL  J0321130
                          2119 | *                                                 * J0321140
26E9 C215                 2120 | IO500 LD    2 IO315-I                               J0321150
26EA 921E                 2121 |       S     2 IO375-I                               J0321160
26EB D215                 2122 |       STO   2 IO315-I   DECR DATA RECORD COUNT      J0321170
26EC 70C9                 2123 |       MDX     IO493     GO WAIT FOR READ COMPLETE   J0321180
STORE--STOREMOD PROCESSING
 
                          2125 | *************************************************** J0321200
                          2126 | *                                                 * J0321210
                          2127 | *   THIS STORE FUNCTION WILL REPLACE AN OLD       * J0321220
                          2128 | *   VERSION OF A PROGRAM OR DATA FILE IN WITH     * J0321230
                          2129 | *   A NEW VERSION, PROVIDED THE NEW VERSION IS    * J0321240
                          2130 | *   NOT LARGER.                                   * J0321250
                          2131 | *                                                 * J0321260
                          2132 | *************************************************** J0321270
26ED 4480 7DB9            2133 | ST700 BSI  I  PHID      MODIFY PHASE ID             J0321280
26EF 5003                 2134 |       DC      /5003     STOREMOD ID MODIFIER        J0321290
                          2135 | *                                                 * J0321300
26F0 6700 7782            2136 |       LDX  L3 BUF5      XR3 POINTS TO OUTPUT BFR    J0321310
26F2 6680 7F33            2137 |       LDX  I2 #FRDR+C   XR2 IS DR CODE OF SOURCE DR J0321320
26F4 C600 0095            2138 |       LD   L2 $FPAD                                 J0321330
26F6 D700 0143            2139 |       STO  L3 +323      SCTR ADDR OF WS SOURCE      J0321340
26F8 C600 7F75            2140 |       LD   L2 #WSCT+C   USE ACTUAL DB CNT      2-10 J0321342
26FA D063                 2141 |       STO     ST910     TOTAL DBS TO BE MOVED  2-10 J0321344
                          2142 | *                                                 * J0321350
26FB C116                 2143 |       LD    1 DBADR                                 J0321360
26FC 18D0                 2144 |       RTE     16        GET SCTR ADDR OF PROG OR    J0321370
26FD C192                 2145 |       LD    1 #TODR     *DATA FILE TO BE REPLACED   J0321380
26FE 108C                 2146 |       SLT     12                                    J0321390
26FF D301                 2147 |       STO   3 +1        STARTING SCTR ADDR          J0321400
                          2148 | *                                                 * J0321410
2700 100C                 2149 |       SLA     12                                    J0321420
2701 1084                 2150 |       SLT     4         COMPUTE RELATIVE WORD NO.   J0321430
2702 A058                 2151 |       M       ST900     *WITHIN THIS SCTR AT WHICH  J0321440
2703 18D0                 2152 |       RTE     16        *OLD VERSION BEGINS.        J0321450
2704 9057                 2153 |       S       ST902                                 J0321460
2705 D001                 2154 |       STO     ST710+1   RELATIVE WORD NO. (-320)    J0321470
                          2155 | *                                                 * J0321480
2706 6600 0000            2156 | ST710 LDX  L2 *-*       XR2 IS OUTPUT BFR DISP.     J0321490
2708 C053                 2157 |       LD      ST902                                 J0321500
2709 D300                 2158 |       STO   3 0         OUTPUT BFR WORD COUNT       J0321510
270A D700 0142            2159 |       STO  L3 +322      INPUT BFR WORD COUNT        J0321520
                          2160 | *                                                   J0321530
270C 4480 7DB3            2161 |       BSI  I  GET       GET INITIAL OUTPUT SECTOR   J0321540
                          2162 | *                       CODE REMOVED           2-10 J0321550
                          2163 | *                                              2-10 J0321560
270E C04C                 2164 |       LD      ST900                                 J0321570
270F D04F                 2165 |       STO     ST912     COUNT OF WORDS PER DB       J0321580
2710 7700 0142            2166 |       MDX  L3 +322      XR3 POINTS TO INPUT BFR     J0321590
                          2167 | *                                               2-3 J0321600
2712 4480 7DB3            2168 |       BSI  I  GET       READ FIRST INPUT SECTOR 2-3 J0321610
2714 6700 FEC0            2169 |       LDX  L3 -320      POINT TO WORD 1         2-3 J0321620
2716 C984                 2170 |       LDD   1 #NAME     GET NAME OF ENTRY       2-3 J0321630
2717 4C08 272A            2171 |       BSC  L  ST730,+   BRANCH IF NOT DSF       2-4 J0321640
2719 D700 7A0F            2172 |       STO  L3 BUF5+653  INSERT                  2-3 J0321650
271B 18D0                 2173 |       RTE     16        *      NAME             2-3 J0321660
271C D700 7A10            2174 |       STO  L3 BUF5+654  *           IN HEADER   2-3 J0321670
271E C700 7A08            2175 |       LD   L3 BUF5+646                          212 J0321673
2720 1004                 2176 |       SLA     4         REMOVE OLD SUBTYPE      212 J0321674
2721 1804                 2177 |       SRA     4         *                       212 J0321675
2722 E92F                 2178 |       OR    1 T3MSW     OR IN NEW SUBTYPE       212 J0321676
2723 D700 7A08            2179 |       STO  L3 BUF5+646  STORE BACK IN HDR       212 J0321677
2725 7004                 2180 |       MDX     ST730     GO TO MOVE PROGRAM      2-3 J0321680
                          2181 | *                                                 * J0321690
2726 4480 7DB3            2182 | ST720 BSI  I  GET       READ INPUT SECTOR           J0321700
2728 6700 FEC0            2183 |       LDX  L3 -320      SET XR3 TO ACCESS INPUT WD1 J0321710
                          2184 | *                                                 * J0321720
272A C700 7A06            2185 | ST730 LD   L3 BUF5+644  MOVE ONE WORD FROM INPUT    J0321730
272C D600 78C4            2186 |       STO  L2 BUF5+322  *BUFFER TO OUTPUT BUFFER    J0321740
                          2187 | *                                                 * J0321750
272E 7201                 2188 |       MDX   2 +1                                    J0321760
272F 7011                 2189 |       MDX     ST750     SKIP IF OUTPUT BFR FULL     J0321770
                          2190 | *                                                 * J0321780
2730 6B0D                 2191 |       STX   3 ST740+1   SAVE XR3                    J0321790
2731 6700 7782            2192 |       LDX  L3 BUF5                                  J0321800
2733 4480 7DBC            2193 |       BSI  I  PUT       WRITE OUTPUT SECTOR         J0321810
                          2194 | *                                                 * J0321820
2735 7401 7783            2195 |       MDX  L  BUF5+1,1  INCR OUTPUT SCTR ADDR       J0321830
2737 C026                 2196 |       LD      ST910     CHECK IF DB JUST DONE  2-10 J0321832
2738 9027                 2197 |       S       K1        *IS LAST ONE TO WRITE  2-10 J0321834
2739 4C18 273D            2198 |       BSC  L  ST740,+-  SKIP GET IF LAST DB    2-10 J0321836
273B 4480 7DB3            2199 |       BSI  I  GET       GET NEXT OUTPUT SECTOR      J0321840
                          2200 | *                                                 * J0321850
273D 6700 0000            2201 | ST740 LDX  L3 *-*       RELOAD XR3                  J0321860
273F 6600 FEC0            2202 |       LDX  L2 -320      RE-SET OUTPUT DISPLACEMENT  J0321870
                          2203 | *                                                 * J0321880
2741 74FF 275F            2204 | ST750 MDX  L  ST912,-1  SKIP IF DB COMPLETED        J0321890
2743 7010                 2205 |       MDX     ST770                                 J0321900
                          2206 | *                                                 * J0321910
2744 C016                 2207 |       LD      ST900                                 J0321920
2745 D019                 2208 |       STO     ST912     RESET COUNTER FOR NEXT DB   J0321930
2746 74FF 275E            2209 |       MDX  L  ST910,-1  SKIP IF END OF MOVE         J0321940
2748 700B                 2210 |       MDX     ST770                                 J0321950
                          2211 | *                                                 * J0321960
2749 7600 013F            2212 |       MDX  L2 319       SKIP TO OUTPUT LAST SECTOR  J0321970
274B 7004                 2213 |       MDX     ST760                                 J0321980
                          2214 | *                                                 * J0321990
274C 6700 7782            2215 |       LDX  L3 BUF5                                  J0322000
274E 4480 7DBC            2216 |       BSI  I  PUT       OUTPUT LAST FULL SECTOR     J0322010
                          2217 | *                                                 * J0322020
2750 6680 7F32            2218 | ST760 LDX  I2 #TODR+C   XR2 IS DR CODE OF OUTPUT DR J0322030
2752 4400 249A            2219 |       BSI  L  SNOFF     GO PRINT SIGN-OFF MESSAGE   J0322040
                          2220 | *                                                 * J0322050
2754 7301                 2221 | ST770 MDX   3 +1        SKIP IF END OF INPUT BFR    J0322060
2755 70D4                 2222 |       MDX     ST730                                 J0322070
                          2223 | *                                                 * J0322080
2756 7401 78C5            2224 |       MDX  L  BUF5+323,1     INCR INPUT SCTR ADDR   J0322090
2758 6700 78C4            2225 |       LDX  L3 BUF5+322  XR3 POINTS TO INPUT BFR     J0322100
275A 70CB                 2226 |       MDX     ST720                                 J0322110
STORE--STOREMOD CONSTANTS,WORK AREAS
 
275B 0014                 2228 | ST900 DC      20        CONSTANT                    J0322130
275C 0140                 2229 | ST902 DC      320       CONSTANT                    J0322140
275D FFFE                 2230 | ST904 DC      -2        CONSTANT                2-5 J0322150
275E 0000                 2231 | ST910 DC      *-*       COUNTER FOR TOTAL DB'S      J0322160
275F 0000                 2232 | ST912 DC      *-*       COUNTER FOR ONE DB          J0322170
2760 0001                 2233 | K1    DC      1         CONST TO CHECK LAST DB 2-10 J0322175
                          2234 | *             STORE PATCH AREA                  2-1 J0322180
                          2235 | *                                               2-1 J0322190
2761                      2236 |       BSS     BUF5-/5000-*-1 STORE PATCH AREA   2-8 J0322200
2781 FFFF                 2237 |       DC      /FFFF          END OF STORE P. A. 2-1 J0322210
2782                      2238 |       END     ST000                                 J0322220
 
There were no errors in this assembly
 
Program transfer address = 21E0
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
#ACIN FF9C    98
#ANDU FFA3   104 1391
#BNDU FFA8   105 1401
#CBSW FF8A    77  889  892  909
#CIAD FF9B    97
#CIBA FFBC   109
#CIDN FFB7   108 1434
#CSHN FFDA   115
#DBCT FF86    73  514  530  591  728 1020 1070 1080 1281 1301 1306 1444 1915
                 2017 2026 2112
#DCOM 0001   116
#DCSW FF98    94
#ECNT FFA1   103
#ENTY FF90    83  730 1888 1934
#FCNT FF87    74
#FHOL FF94    90  649 1989
#FLET FFCB   112
#FMAT FFC6   111 1917 2117
#FPAD FFAD   106 1404
#FRDR FF93    88  501 1913 2137
#FSZE FF95    91  540 1280 2025
#GCNT FF9E   100
#GRPH FF9D    99
#HDNG 0007   117
#JBSW FF89    76 1397
#LCNT FF8B    78
#LOSW FF9F   101
#MDF1 FF8D    80
#MDF2 FF8E    81
#MPSW FF8C    79
#NAME FF84    72  724  942  943 1015 1287 1304 2170
#NCNT FF8F    82
#PCID FFB2   107
#PIOD FF99    95
#PPTR FF9A    96
#RP67 FF91    84
#SCRA FFC1   110
#SYSC FF88    75 1146
#TODR FF92    87  636 1074 1076 1143 1383 1419 1483 2145 2218
#UHOL FF96    92  606  624 1068 1069 1972
#ULET FFD0   113
#USZE FF97    93  529 2021
#WSCT FFD5   114  513 1388 1914 2113 2140
#X3SW FFA0   102
$1132 007F    33
$1403 0080    34
$ACDE 009F    42
$BYSW 01CB    52
$CH12 0006     4
$CIBA 0005     3
$COMN 0007     5
$CORE 000E     6  559 1427 1502
$CPTR 007E    32
$CTSW 000F     7
$CYLN 009A    41
$DABL 0011     9
$DADR 0010     8
$DBSY 00EE    51
$DCDE 0077    25
$DCYL 00A4    43
$DREQ 0012    10
$DUMP 003F    24
$EXIT 0038    22
$FPAD 0095    40  622 1077 1403 1491 2138
$HASH 0014    12
$I200 00B3    44
$I205 00B8    45   46
$I400 00C4    47
$I405 00D3    48   49
$I410 00D5    50
$IBSY 0013    11 1574 2039 2066
$IBT2 00B9    46
$IBT4 00D4    49
$IOCT 0032    16
$IREQ 002C    14
$KCSW 007C    30
$LAST 0033    17
$LINK 0039    23
$NDUP 0034    18
$NXEQ 0035    19
$PBSY 0036    20
$PGCT 0037    21
$PHSE 0078    26
$PRET 0028    13
$PST1 0081    35
$PST2 0085    36
$PST3 0089    37
$PST4 008D    38
$STOP 0091    39
$UFDR 007D    31
$UFIO 0079    27
$ULET 002D    15
$WRD1 007B    29
$WSDR 007A    28 1490
$ZEND 01E0    54  265
'SBFR 0FB0   118
ADDR2 003D   227
ASMSW 000E   152
B     01DE   265  266  267  268  269  270  271  272
BINEB 7DB0   279 1435 1440 1445
BITSW 000F   153
BLKSW 0010   154
BUF1  79B5   304  305
BUF2  7963   305  306
BUF3  7925   306  307
BUF4  78D3   307
BUF5  7782   308  309 2136 2172 2174 2175 2179 2185 2186 2192 2195 2215 2224
                 2225 2236
BUF6  7D91   297  298  299
BUF7  0640   309
C     7FA0    56  501  513  625  641  848  892  928  966  967 1039 1076 1078
                 1130 1171 1320 1329 1330 1383 1388 1391 1401 1404 1434 1483
                 1546 1562 1566 1583 1718 1793 1860 1888 1901 1913 1914 1917
                 1963 2022 2042 2078 2113 2115 2117 2137 2140 2218
CATCO 7F1E   274 1423
CIERR 0011   155
CIHDR 0008   138
CISW  0012   156  483  932  951  989 1002
CL1   000E   151
CL2   0037   203
CLBSW 0013   157
CNTNO 0014   158
CRBUF 0057   254
D2HDR 000C   140
DATSW 0015   165  510  625  652  693  848  939  952  988 1001 1475 1534 2000
                 2007 2016
DBADR 0016   166  632 1439 1495 1871 1980 2143
DCADR 0058   255
DCHDR FFF0   126
DCTL  11E0   269
DCTLC 11DE   270
DELSW 0017   167  966
DFHDR FFFC   132
DFLSW 0036   201  469  662
DFNSW 0018   168
DISKZ 00F2   264
DKSAD 0019   169
DLHDR FFF8   130
DMHDR FFF6   129
DMPLC 01DE   266
DO005 232C   939  934
DO008 232F   942  937
DO015 233E   966  953  956
DO020 2351   992 1244 1251
DO022 2361  1009 1003
DO024 2362  1015  995
DO025 2368  1027 1192
DO030 2377  1058 1041
DO031 2382  1068 1065
DO040 23B0  1124 1009 1051 1173 1345
DO041 23B6  1136 1144 1148
DO042 23B7  1137 1134 1150
DO046 23BD  1143 1131
DO048 23C0  1146
DO050 23C5  1152 1138
DO055 23D9  1180 1032
DO060 23E5  1199 1087 1159 1215 1292
DO065 23E9  1210
DO085 2489  1390
DO100 23F0  1224  990
DO110 23F7  1229 1253
DO120 2405  1246 1226
DO125 240B  1251 1270
DO130 240E  1255 1248
DO900 2396  1090  958 1553
DO901 2397  1091 1072
DO902 2398  1092  944  993  998 1028 1238 1310 1361
DO903 2399  1093  955 1149
DO904 239A  1094  945  959  994 1031
DO907 239B  1095 1064 1225
DO908 239C  1097 1058 1231 1350
DO909 239E  1099 1305 1332 1368
DO911 23A0  1101  712  954
DO912 23A1  1102 1136
DO913 23A2  1103 1133
DO914 23A3  1104 1157 1162 1213 1256
DO915 23A4  1105
DO916 23A5  1106 1165 1247
DO917 23A6  1107 1153 1168 1347
DO918 23A7  1108  931 1180 1191
DO920 23A8  1109  970 1207 1258 1266
DO921 23A9  1110
DO922 23AA  1111 1071 1390 1400
DO923 23AB  1112  982 1079 1241 1243
DO924 24CB  1456 1450
DO925 24CC  1457 1456
DO926 24D0  1458 1437
DO928 24D8  1460 1442
DO930 24E0  1462 1447
DO932 24E2  1463 1456
DO934 23AC  1113  936
DO935 23AD  1114  941
DO938 23AE  1115 1307 1337 1370
DO940 23AF  1116 1263 1269
DOLET 2319   924  543  912 1088 1293
DS010 2220   569  562
DS012 224B   632  647  650
DS015 2252   641  626
DS016 2255   644
DS018 2259   649  642
DS020 2268   670  653  832
DS021 225B   652  639
DS022 2295   724  714
DS023 2299   728
DS024 229D   733
DS025 22A0   735  694
DS027 22AB   751  740
DS02X 2274   682  676  681
DS060 22CA   784  752
DS070 22D2   792  744  753
DS080 22E1   821  702  736
DS090 22EB   835  793  823  872
DS100 22FE   863  841
DS110 2301   867  856
DS120 22E6   830  814
DS900 22AF   755  556  568  782
DS901 22B0   756  598  707
DS902 22B1   757  561
DS903 22B2   758  599  619  660  704  784  792  821
DS904 22B3   759  569  576  682
DS910 22B4   760  570  585  802  804  864
DS912 22B5   761  573  807  840
DS913 22B6   762  574  675
DS914 22B7   763  592  743  830  838  847  855  863
DS915 22B8   764  596  674  678  690  692
DS916 22B9   765  572  609  679  806  851
DS918 22BA   766  577  580  588  803
DS922 22BB   767  593  607  644  711
DS923 22BC   768  583  691
DS924 22BD   769  608  656  813  839  850
DS926 22BE   770  611  659  751  787
DS930 22BF   771  620  661  670
DS932 22C0   772  623  671  689  737
DS934 22C1   773  638  738  785  836  871
DS936 22C2   774  581  688  739
DS938 22C3   775  589  809  811  870
DS940 22C4   776  558  701  735
DS942 22C5   777  810
DS944 22C6   778  713
DS946 22C7   779  722
DS949 22C8   780  655  742 1984
DS950 22C9   781  468  657  911 1063 1067 1224 1228 1973 1981 1983 1985 1986
DTHDR FFFA   131
DUMPC 41DE   272
DUMPP 001A   170
DUPCO 7DB0   273  278  297
DUPCR 003C   221
DXHDR FFFE   133
DZ000 00F2    53  264
EBCSW 0033   198 1998 2036
ENTER 7DB2   281
EXITC 01DE   267
FLHDR FFF4   128
FORSW 001C   171
FRWS  001D   172
FXSW  001E   173  491  521  641  973 1385 1969
GET   7DB3   282  685  790  972 1260 1268 1359 1433 1932 2161 2168 2182 2199
GETBI 7A0B   301 1578 2050 2070
GETHO 7A0A   300 2038
HDBUF 0059   256
HDNSW 0034   199
HOLSW 001F   174
I     2573  1701 1492 1493 1504 1511 1513 1515 1518 1520 1523 1524 1527 1528
                 1974 1976 1978 1982 2001 2002 2003 2008 2009 2011 2013 2018
                 2084 2094 2097 2100 2120 2121 2122
IBT   0049   245
INOUT 003F   234
IO010 24EE  1490 1477
IO020 24F0  1491 1484
IO030 24FF  1513 1505
IO040 250C  1534
IO060 2521  1562 1604 1786
IO065 2530  1574 1575
IO067 2535  1578 1568 1573
IO070 2537  1580 1576
IO080 2544  1596 1605
IO090 2547  1599 1590
IO095 2551  1606 1600
IO100 2553  1613 1602
IO110 2557  1621 1614
IO120 255D  1631 1615
IO130 2564  1650 1624
IO140 256C  1660 1659
IO150 2573  1666 1474 1511 1701 1966 2002 2083
IO155 2574  1667 1523
IO160 2575  1668 1543 1551 1885 1924
IO170 2576  1669 1906 2097
IO180 2577  1670 1492 1817 1830 1832 1890 1909 1978 2100
IO190 2578  1671 1493 1869 1910 1927
IO200 2579  1672 1524 1544 1794 1816 1840 1841 1872 1893 1894 2093
IO210 257A  1673 1496 1912 1976 2109
IO220 257B  1674 2009
IO230 257C  1675 1518 1929 2013
IO235 257E  1677 2011
IO240 2580  1679 1513 1831
IO245 2581  1680 1515 1828
IO250 2582  1681 1520 1796 1819 1842 1857
IO270 2583  1682 1528 1582 1631 1784 1797 1844 1856 1858 1892 2041 2044 2077
                 2080
IO280 2584  1683 1572 1586 1974 1982
IO290 2585  1684 1587 1589 1599 1601 1603
IO300 2586  1685 1613 1640 1733 1812
IO310 2587  1686 1621 1632 1772
IO315 2588  1687 2001 2008 2046 2061 2084 2120 2122
IO316 2589  1688 1827 1829 2018 2094
IO320 258A  1691 1622 1635 1653 1654 1710 1774 1775
IO330 258C  1693 1651
IO340 258D  1694 1652 1662 1715 1731 1783
IO350 258E  1695 1657 1713 1729 1761
IO360 258F  1696 1719 1782
IO370 2590  1697 1527 1549 1773 1795 1846
IO375 2591  1698 1504 2003 2114 2121
IO380 2592  1699 1843 1845 1847 1853
IO390 2593  1700 1904
IO410 2594  1708 1664 1716
IO415 259A  1713 1663
IO420 25A3  1728 1762
IO430 25AB  1741 1730 1748
IO435 25C1  1792 1785 1798 1813 2045 2081
IO440 25CF  1815 1809 1861
IO450 25E9  1849 1854
IO460 25F7  1868 1875 1902
IO470 2603  1885 1606
IO475 260A  1890 1886
IO480 2653  1966 1535
IO482 265C  1973 1990
IO484 2671  1989 1970
IO485 2673  1998 1968 1987
IO486 267C  2007 1999
IO487 2681  2015 2005
IO488 268D  2026 2023
IO489 2693  2036 2020 2027
IO490 2696  2038 2047
IO491 26A8  2050 2037 2055
IO492 26AD  2054 2085
IO493 26B6  2066 2067 2123
IO494 26BA  2070 2062
IO495 26BC  2071 2068
IO496 26CC  2093 2048
IO498 26D8  2109 2095
IO499 26E5  2117
IO500 26E9  2120 2052
IOADR 7A06   299  300  301  302  303  304  308 1430
IOBLK 005A   257
IOREQ 0038   211
IOSW  0020   175  476
IOWS  24E2  1472  477
K1    2760  2233 2197
KBREQ 003E   228
LEAVE 7DB4   283  532  898 1140 1596 2028
LETAR 005C   259  597  967 1171 1320 1330 1522
LETSW 0021   180
LINE  7DB5   284
LSTLF 0022   181
MASK  7DB6   285  927
MDUMP 7DB7   286
MODSW 0023   182  498
MOV40 2642  1946 1948 2043
MOV54 2647  1952  734 1555 1949 1964 2079
MOVXX 2649  1955 1950 1961
MUHDR 000A   139
MUPC  01DE   268
NAMSW 0024   183
NEGSW 0025   184
NEXT  005F   262 1546 1566 1583 1718 2078
P1442 0052   251
PACKB 7A0C   302 1580 2071
PAGE  7DB8   287
PCHBI 7A0D   303
PEBUF 005D   260 2042
PGMHL 0026   185  723  957 1526 1552
PH2   0039   212
PH3   003A   213
PH4   003B   214
PHDUP 0056   253
PHID  7DB9   288  465  554  925 1380 1416 1472 2133
PHIDM 7DBA   289
PIHDR 0002   135 1431
PRINT 7DBB   290 1449
PRPAR 0054   252
PRPNT 7C50   298
PRSW  0027   186
PTHDR 0006   137
PTPON 0040   236
PTSW  0028   187 1567 2051 2054
PUT   7DBC   291  867 1210 1821 1873 1937 2102 2193 2216
REST  7DBD   292 1452
RPGSW 0035   200
RTURN 7DBE   293
SDBUF 005B   258  928
SIHDR 0004   136
SKWDS 0029   188
SN002 24A6  1425 1421
SN004 24A7  1426 1422
SN010 24B4  1434 1429
SNOFF 249A  1415  492  545  914 2219
ST000 21E0   465 2238
ST004 21F8   510
ST005 21FB   513
ST007 21FE   521  470  511
ST008 2202   530  541
ST009 2208   540  522
ST010 220A   542  531
ST015 220B   543 2111
ST020 21EC   483 1925 1938 2118
ST600 2308   889  484
ST610 2310   908  890
ST620 2312   910
ST700 26ED  2133  499
ST710 2706  2156 2154
ST720 2726  2182 2226
ST730 272A  2185 2171 2180 2222
ST740 273D  2201 2191 2198
ST750 2741  2204 2189
ST760 2750  2218 2213
ST770 2754  2221 2205 2210
ST800 2421  1280  974
ST810 242C  1292 1341 1357
ST820 242F  1300 1282 1285
ST830 243C  1313 1371
ST840 2442  1319 1313 1316 1317
ST850 2444  1320 1314
ST860 2446  1321 1315
ST870 2448  1323 1327
ST875 246D  1359 1348
ST900 275B  2228 2151 2164 2207
ST902 275C  2229 2153 2157
ST904 275D  2230 2116
ST910 275E  2231 2141 2196 2209
ST912 275F  2232 2165 2204 2208
STCSW 002A   189  933 2115
STHDR FFF2   127
STSW  002B   190  968 1255 1264
T3MSW 002F   194  708 2178
TEMP1 002C   191  910 1436 1441 1446
TEMP2 002D   192
THIS  005E   261 1563 1565 2057 2059
TOWS  002E   193
UASW  0030   195  490 1130 2022
UCHDR 0000   134
UPDCM 247E  1379  544  913 1386 1398 1406
W     22AF   782  558  561  568  569  570  572  573  574  576  577  580  581
                  583  585  588  589  592  593  596  598  599  607  608  609
                  611  619  620  623  638  644  655  656  657  659  660  661
WD000 2211   553  542  663  831
WRTDC 7DB1   280 1424
WSDC  21DE   271  455
WSSW  0031   196 1476 1967 2019 2110
XEQSW 0032   197