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