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