ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u6modif.asm MODIF 2 | *************************************************** U6H00020 3 | *STATUS-VERSION 2, MODIFICATION LEVEL 12 * U6H00030 4 | * * U6H00040 5 | *FUNCTION/OPERATION- * U6H00050 6 | * *MODIF CAN PUT PATCHES IN SYSTEM PROGRAMS * U6H00060 7 | * (MON-CONTROL RECORD) AND BY PASSING CONTROL * U6H00070 8 | * TO DUP PERFORM DELETES AND STORES IN SYSTEM * U6H00080 9 | * LIBRARY ( SUB-CONTROL RECORD). THE MAINLINE* U6H00090 10 | * WITH THE LOGICAL FLOW OF A MODIFICATION IS * U6H00100 11 | * THE SUBROUTINE MO000, FROM THERE BRANCHES IS* U6H00110 12 | * MADE TO OTHER SUBROUTINS. THE INITIATION * U6H00120 13 | * PART IS FROM MO000 TO MO500. MODIF USES * U6H00130 14 | * DISKZ AND PRINCIPAL READER/PRINTER ACCORDING* U6H00140 15 | * TO SLET. * U6H00150 16 | * * MON-CONTROL RECORDS. UP TO 7FFF CARDS OF * U6H00160 17 | * THIS KIND CAN BE PROCESSED IN A MODIF-JOB.* U6H00170 18 | * MODIF REMAINS IN CORE. * U6H00180 19 | * * SUB-CONTROL RECORDS. ONLY 1 CARD OF THIS * U6H00190 20 | * KIND IS PERMITTED AND MUST BE THE LAST CON* U6H00200 21 | * TROL CARD IN A MODIF JOB. AFTER READING A * U6H00210 22 | * SUB-CARD EXTRACTING THE INFORMATION, * U6H00220 23 | * MODIF WRITES SUBROUTINES RY000,EO010,EO110* U6H00230 24 | * RF000,PB000 AND PU000 ON THE DISKSCTR WITH* U6H00240 25 | * SLET ID HEX 12. THEN PHASE 0 OF DUP IS * U6H00250 26 | * FETCHED AND CONTROL PASSED OVER TO DUP. * U6H00260 27 | * DUP READS AND PROCESSES DELETES AND STORES* U6H00270 28 | * AND ALSO READS THE // DEND-CARD AND PUTS * U6H00280 29 | * IT IN CARD BUFFER BEGINNING AT 4096-80. * U6H00290 30 | * THEN THAT PART OF MODIF PREVIOUSLY WRITTEN* U6H00300 31 | * TO DISK IS FETCHED AND A BRANCH IS MADE TO* U6H00310 32 | * THE FIRST WORD IN THIS PART. * U6H00320 33 | * * U6H00330 34 | *ENTRY POINTS- * U6H00340 35 | * * MO000-FOR EVERY NEW MODIF JOB. * U6H00350 36 | * BSC L MO000 * U6H00360 37 | * * RY000-REENTRY FROM DUP FOR TERMINATING * U6H00370 38 | * BSC L RY000 * U6H00380 39 | * * U6H00390 40 | *INPUT- * U6H00400 41 | * * A STREAM OF PATCH CONTROL- AND DATA CARDS * U6H00410 42 | * * #SYSC HAS THE CURRENT VERSION-MODIFICATION * U6H00420 43 | * * #MDF2=XXYY WHEN REENTRIED FROM DUP XX=NUMBER* U6H00430 44 | * OF PROCESSED DELETE/STORE-RECORDS, YY=NUMBER* U6H00440 45 | * OF ERRORS OCCURED * U6H00450 46 | * #MDF2=O NO ERRORS.ALL DCR,S PROCESSED * U6H00460 47 | * * U6H00470 48 | *OUTPUT- * U6H00480 49 | * * PATCHED SYSTEM PROGRAMS AND SYSTEM LIBRARY * U6H00490 50 | * * #SYSC UPDATED TO NEW VERSION/MOD-LEVEL * U6H00500 51 | * * #MDF1 OUTPUTS MODIF REENTRY ADRESS WHEN EXIT* U6H00510 52 | * TO DUP * U6H00520 53 | * * PATCH INFORMATION IS PRINTED ON THE 2-12 U6H00522 54 | * PRINCIPLE PRINTER IF SW 1 IS OFF. 2-12 U6H00524 55 | * * U6H00530 56 | *EXTERNAL REFERENCES- * U6H00540 57 | * * SUBROUTINES- * U6H00550 58 | * * DISKZ * U6H00560 59 | * * PRINCIPAL I/O * U6H00570 60 | * * COMMA/DCOM- * U6H00580 61 | * * $CH12 * U6H00590 62 | * * $CTSW * U6H00600 63 | * * $DBSY * U6H00610 64 | * * $IBSY * U6H00620 65 | * * $LAST * U6H00630 66 | * * $PRET 2-12 U6H00632 67 | * * $FPAD 2-12 U6H00634 68 | * * $NDUP * U6H00640 69 | * * $NXEQ * U6H00650 70 | * * $PBSY * U6H00660 71 | * * #MDF1 * U6H00670 72 | * * #MDF2 * U6H00680 73 | * * #PIOD * U6H00690 74 | * * #PPTR * U6H00700 75 | * * #SYSC * U6H00710 76 | *EXITS- * U6H00720 77 | * * NORMAL- * U6H00730 78 | * * TO SUPERVISOR AFTER TERMINATION * U6H00740 79 | * * TO DUP DURING SUB-CARD PROCESSING * U6H00750 80 | * * ERROR- * U6H00760 81 | * * TO SUPERVISOR IF CONSOLE SWITCH 0 IS ON * U6H00770 82 | * * * TO $PRET IF A DRIVE IS INDICATED THAT 2-12 U6H00772 83 | * HAS NOT BEEN SPECIFIED ON A JOB CARD 2-12 U6H00774 84 | * * U6H00780 85 | *TABLES/WORK AREAS-N/A * U6H00790 86 | * * U6H00800 87 | *ATTRIBUTES- * U6H00810 88 | * * RELOCATABLE * U6H00820 89 | * * U6H00830 90 | *NOTES-N/A * U6H00840 91 | *************************************************** U6H00850 INITIALIZATION 93 | * U6H00870 94 | * EQUATES U6H00880 95 | * U6H00890 0001 96 | $XR1 EQU 1 2-12 U6H00895 0006 97 | $CH12 EQU 6 U6H00900 0008 98 | LEVL0 EQU /8 U6H00910 000C 99 | $LEV4 EQU /C 2-2 U6H00930 000F 100 | $CTSW EQU /F U6H00940 0013 101 | $IBSY EQU /13 U6H00950 0028 102 | $PRET EQU /28 2-12 U6H00955 0033 103 | $LAST EQU /33 U6H00960 0034 104 | $NDUP EQU /34 U6H00970 0035 105 | $NXEQ EQU /35 U6H00980 0036 106 | $PBSY EQU /36 U6H00990 0095 107 | $FPAD EQU /95 2-12 U6H00995 00C4 108 | $I400 EQU /C4 2-2 U6H01000 00EE 109 | $DBSY EQU /EE U6H01010 00D4 110 | IBT40 EQU /D4 U6H01020 00F2 111 | DISKZ EQU /F2 DISKZ ENTRY ADDRESS U6H01030 112 | * CONSTANTS U6H01040 113 | * U6H01050 0000 7000 114 | GETIO DC /7000 DISKZ READ FUNCTION U6H01060 0001 032AR 115 | DC CDPTR-2 WORD COUNT ADDR. U6H01070 0002 7000 116 | GETCV DC /7000 DISKZ READ FUNCTION U6H01080 0003 03D8R 117 | DC CONVR-2 WORD COUNT ADDR. U6H01090 0004 008F 118 | ID8F0 DC /8F 2501 SLET ID U6H01110 0005 0091 119 | ID910 DC /91 1134 SLET ID U6H01120 0006 008E 120 | ID990 DC /8E CONS. PTR. SLET ID 212 U6H01130 0007 009A 121 | ID9A0 DC /9A PRINC. I/O SLET ID U6H01140 0008 009C 122 | ID9B0 DC /9C PRINC. CONV. SLET ID U6H01150 123 | * U6H01160 124 | * ROUTINE TO CLEAR LOW CORE BUFFERS U6H01170 125 | * U6H01180 0009 1000 126 | MO000 NOP U6H01190 000A 1000 127 | NOP U6H01200 000B 6500 0542 128 | LDX L1 1346 GET BUFFER WORD COUNT U6H01210 000D 10A0 129 | SLT 32 CLEAR A/Q U6H01220 000E DD00 01FAR 130 | MO010 STD L1 PRNTR-4 CLEAR INPUT BUFFERS U6H01230 0010 71FE 131 | MDX 1 -2 REDUCE COUNT U6H01240 0011 70FC 132 | MDX MO010 BACK TO CLEAR U6H01250 133 | * U6H01260 134 | * GET PRINCIPAL PRINT AND I/O ROUTINES U6H01270 135 | * U6H01280 0012 C0F3 136 | MO030 LD ID990 U6H01360 0013 4400 0842R 137 | BSI L SH000 GET PRINC. PRNT. ENTRY U6H01370 0015 4820 138 | BSC Z SKIP IF FOUND U6H01380 0016 702B 139 | MDX MO040 NO HIT DURING SEARCH U6H01390 0017 CA02 140 | LDD 2 2 GET WD. CNT. AND SECTOR U6H01400 0018 DC00 01FCR 141 | STD L PRNTR-2 STORE AHEAD OF BUFFER U6H01410 001A DC00 0B9AR 142 | STD L PRENT SAVE FOR DUP RE-ENTRY U6H01420 001C CC00 0B9CR 143 | LDD L DISKR GET DISKZ PARAMETERS U6H01430 001E 4400 00F2 144 | BSI L DISKZ READ IN PRINT ROUTINE U6H01440 0020 C400 00EE 145 | LD L $DBSY U6H01450 0022 4C20 0020R 146 | BSC L *-4,Z BRANCH IF BUSY U6H01460 147 | * U6H01470 0024 C0E2 148 | LD ID9A0 U6H01480 0025 4400 0842R 149 | BSI L SH000 GET PRINC. I/O ENTRY U6H01490 0027 4820 150 | BSC Z SKIP IF FOUND U6H01500 0028 7019 151 | MDX MO040 NO HIT DURING SEARCH U6H01510 0029 CA02 152 | LDD 2 2 GET WD. CNT. AND SECTOR U6H01520 002A DC00 032AR 153 | STD L CDPTR-2 STORE AHEAD OF BUFFER U6H01530 002C C8D3 154 | LDD GETIO GET DISKZ PARAMETERS U6H01540 002D 4400 00F2 155 | BSI L DISKZ READ IN I/O ROUTINE U6H01550 002F C400 00EE 156 | LD L $DBSY U6H01560 0031 4C20 002FR 157 | BSC L *-4,Z BRANCH IF BUSY U6H01570 158 | * U6H01580 159 | * ROUTINE TO SET PAPER TAPE INDICATOR U6H01590 160 | * AND SKIP READING IN CONVERSION RTNS. U6H01600 161 | * IF NOT NEEDED U6H01610 162 | * U6H01620 0033 C0D1 163 | MO035 LD ID910 U6H01630 0034 4400 0842R 164 | BSI L SH000 GET 1134 ENTRY U6H01640 0036 4820 165 | BSC Z SKIP IF FOUND U6H01650 0037 700A 166 | MDX MO040 NO HIT DURING SEARCH U6H01660 0038 C203 167 | LD 2 3 GET SECTOR ADDRESS U6H01670 0039 F400 032BR 168 | EOR L CDPTR-1 COMPARE TO I/O IN CORE U6H01680 003B 4C20 0044R 169 | BSC L MO050,Z NO BRANCH IF PT U6H01690 003D C0C2 170 | LD GETIO GET HEX CONSTANT U6H01700 003E 1003 171 | SLA 3 SHIFT TO /8000 U6H01710 003F D400 00A4R 172 | STO L PTIND SET INDICATOR NEGATIVE U6H01720 0041 7023 173 | MDX MO080 212 U6H01730 0042 4400 0B14R 174 | MO040 BSI L EO070 GO TO ERROR 7 ROUTINE U6H01740 175 | * U6H01750 176 | * GET CONVERSION ROUTINE U6H01760 177 | * U6H01770 0044 C0C3 178 | MO050 LD ID9B0 U6H01780 0045 4400 0842R 179 | BSI L SH000 GET CONVERSION ENTRY U6H01790 0047 4820 180 | BSC Z SKIP IF FOUND U6H01800 0048 70F9 181 | MDX MO040 NO HIT DURING SEARCH U6H01810 0049 CA02 182 | LDD 2 2 GET WD. CNT. AND SECTOR U6H01820 004A DC00 03D8R 183 | STD L CONVR-2 STORE AHEAD OF BUFFER U6H01830 004C C8B5 184 | LDD GETCV GET DISKZ PARAMETERS U6H01840 004D 4400 00F2 185 | BSI L DISKZ READ IN CONVERSION RTN. U6H01850 004F C400 00EE 186 | LD L $DBSY U6H01860 0051 4C20 004FR 187 | BSC L *-4,Z BRANCH IF BUSY U6H01870 188 | * U6H01880 189 | * ROUTINE TO SET 2501 INDICATOR AND U6H01890 190 | * COL. INTERRUPT ADDRESS U6H01900 191 | * U6H01910 0053 C400 00A1R 192 | MO060 LD L COLNT GET COL. INT. ADDR. U6H01920 0055 D400 0008 193 | STO L LEVL0 STORE IN INT. TV U6H01930 0057 C0AC 194 | LD ID8F0 U6H01940 0058 4400 0842R 195 | BSI L SH000 GET 2501 ENTRY U6H01950 005A 4820 196 | BSC Z SKIP IF FOUND U6H01960 005B 70E6 197 | MDX MO040 NO HIT DURING SEARCH U6H01970 005C C203 198 | LD 2 3 GET SECTOR ADDRESS U6H01980 005D F400 032BR 199 | EOR L CDPTR-1 COMPARE TO I/O IN CORE U6H01990 200 | * N BSC L MO080,Z NO BRANCH IF 2501 212 U6H02000 005F 4C20 0065R 201 | BSC L MO080,Z NO BRANCH IF 2501 212 BLKMODIF 0061 C09E 202 | LD GETIO GET HEX CONSTANT U6H02010 0062 180E 203 | SRA 14 SHIFT TO /0001 U6H02020 0063 D400 00A3R 204 | STO L CDIND SET 2501 INDICATOR ODD U6H02030 205 | * U6H02040 0065 C400 00A2R 206 | MO080 LD L IBTNT GET IBT-1 ADDRESS U6H02200 0067 D400 00D4 207 | STO L IBT40 STORE IN ILS04 U6H02210 0069 6700 00C4 208 | LDX L3 $I400 FORCES MODIF TO USE 2-2 U6H02220 006B 6F00 000C 209 | STX L3 $LEV4 *ILS04 IN RES. MONITOR 2-2 U6H02230 006D 73EF 210 | MDX 3 -17 FORCES MODIF TO USE 2-12 U6H02234 006E 6F00 000A 211 | STX L3 /A *ILS02 IN RES. MON 2-12 U6H02236 0070 6500 0280 212 | MO090 LDX L1 640 GET WORD COUNT U6H02330 0072 6200 213 | LDX 2 0 GET SECTOR ADDRESS U6H02340 0073 C400 00B4R 214 | LD L GET00 GET READ FUNCTION U6H02350 0075 4400 0BEDR 215 | BSI L R4000 READ CARID AND DCOM U6H02360 0077 C400 0606R 216 | LD L #SYSC GET VER. AND MOD. U6H02370 0079 D400 0B9FR 217 | STO L VMODH SAVE U6H02380 007B 4400 0C1CR 218 | BSI L PB000 CONVERT TO EBCDIC U6H02390 007D DC00 00C6R 219 | STD L VMNOP SAVE U6H02400 007F DC00 0BBER 220 | STD L RY920 STORE IN EXIT MSG. U6H02410 0081 C400 0617R 221 | LD L #PIOD GET PRINC. I/O IND. U6H02420 0083 D400 00A5R 222 | STO L PIODR SAVE U6H02430 0085 6600 00BER 223 | LDX L2 MSG1R GET SIGN-ON MSG. ADDR. U6H02460 0087 610A 224 | LDX 1 10 GET WORD COUNT U6H02470 0088 4400 0C61R 225 | BSI L PU000 PRINT SIGN-ON MSG. U6H02480 008A C400 00A5R 226 | MO100 LD L PIODR GET PRINC. I/O IND. U6H02490 008C 4828 227 | BSC +Z NO SKIP IF PT U6H02500 008D 7007 228 | MDX MO110 GO TO CHECK PTIND U6H02510 008E 4820 229 | BSC Z SKIP IF 1442 U6H02520 008F 700A 230 | MDX MO120 GO TO CHECK PRIND U6H02530 0090 C400 00A3R 231 | LD L CDIND GET CDIND U6H02540 0092 4820 232 | BSC Z SKIP IF 1442 U6H02550 0093 700A 233 | MDX MO140 TO IND. ERROR WAIT U6H02560 0094 7039 234 | MDX MO500 CONTINUE 212 U6H02570 0095 C400 00A4R 235 | MO110 LD L PTIND GET PTIND U6H02580 0097 4810 236 | BSC - SKIP IF PT U6H02590 0098 7005 237 | MDX MO140 TO IND. ERROR WAIT U6H02600 0099 7034 238 | MDX MO500 CONTINUE 212 U6H02610 009A C400 00A3R 239 | MO120 LD L CDIND GET CDIND U6H02620 009C 4830 240 | BSC -Z SKIP IF NOT 2501 212 U6H02630 009D 7030 241 | MDX MO500 CONTINUE 212 U6H02640 009E 4400 0B14R 242 | MO140 BSI L EO070 INDICATOR ERROR U6H02720 00A0 702D 243 | MDX MO500 U6H02730 CONSTANTS/TABLES/MESSAGES 245 | * U6H02750 246 | * CONSTANTS AND TABLES U6H02760 247 | * U6H02770 00A1 0333R 248 | COLNT DC CDPTR+7 COL. INT. ADDR. FOR 1442 U6H02780 00A2 0BA3R 249 | IBTNT DC IBTWD-1 IBT ADDRESS U6H02800 00A3 0000 250 | CDIND DC 0 ODD IF 2501 I/O U6H02810 00A4 0000 251 | PTIND DC 0 NEGATIVE IF PT I/O U6H02820 00A5 0000 252 | PIODR DC 0 U6H02840 00A6 0000 253 | PPTRR DC 0 U6H02850 00A7 0000 254 | PCHCT DC 0 TOTAL PATCH HEADERS U6H02860 00A8 0000 255 | PCHES DC 0 PATCH DATA RECORDS U6H02870 00A9 0000 256 | ABSXX DC 0 SET NON-ZERO FOR ABS CARD U6H02880 00AA 0000 257 | SUBXX DC 0 SET NON-ZERO FOR SUB CARD U6H02890 00AB 0000 258 | BHIND DC 0 SET ZERO FOR HEX U6H02900 00AC 0001 259 | DEC01 DC 1 U6H02910 00AD 0004 260 | DEC04 DC 4 U6H02920 00AE 0005 261 | DEC05 DC 5 U6H02930 00AF 0040 262 | H0040 DC /0040 U6H02940 00B0 0A00 263 | H0A00 DC /0A00 U6H02950 00B1 0F00 264 | H0F00 DC /0F00 U6H02960 00B2 5001 265 | H5001 DC /5001 ILLEGAL DISK OP CODE 2-12 U6H02965 00B3 0000 266 | CTR04 DC 0 WORD TO COUNT 4 U6H02970 00B4 7000 267 | GET00 DC /7000 U6H02980 00B5 0000 268 | DVDND DC 0 TEMP STORAGE FOR CARD COL. U6H02990 00B6 0000 269 | SLTID DC 0 SAVE SLET ID U6H03000 00B7 0FB0 270 | CBUFA DC CDBUF CARD BUFFER ADDR. U6H03010 00B8 271 | SNTRY BSS E 4 BUFFER FOR SLET ENTRY U6H03020 00BC C2C8 272 | BHXXX EBC .BH. U6H03030 273 | * U6H03040 274 | * MESSAGES U6H03050 275 | * U6H03060 00BE 276 | BSS E 0 U6H03070 00BE D4D6 C4C9 C640 C5E7 277 | MSG1R EBC .MODIF EXECUTION . U6H03080 C5C3 E4E3 C9D6 D540 | 00C6 278 | VMNOP BSS 2 U6H03090 00C8 D1D6 C240 C1C2 D6D9 279 | MSG06 EBC .JOB ABORTED . 2-12 U6H03096 E3C5 C440 | MAINLINE CODE 281 | * U6H03110 00CE 1000 282 | MO500 NOP U6H03120 00CF C0FE 283 | LD MO500 GET NOP INSTRUCTION U6H03130 00D0 D400 0177R 284 | STO L MO600 RESET DISK PATCH SWITCH U6H03140 00D2 4400 086AR 285 | BSI L R2000 READ A RECORD U6H03150 00D4 4400 088AR 286 | BSI L R5000 PRINT IT 2-2 U6H03160 00D6 4400 08D5R 287 | BSI L CH000 CHECK IT U6H03170 00D8 611A 288 | LDX 1 26 CARD COL. 26 IN IR-1 U6H03180 00D9 4400 09F1R 289 | BSI L PK000 GET EBCDIC IN A AND Q U6H03190 00DB 4400 09BCR 290 | BSI L C1000 CONVERT TO BINARY U6H03200 00DD D400 00A7R 291 | STO L PCHCT STORE PATCH COUNT U6H03210 00DF 6109 292 | MO510 LDX 1 9 CARD COL. 9 IN IR-1 U6H03220 00E0 4400 09F1R 293 | BSI L PK000 GET EBCDIC IN A AND Q U6H03230 00E2 4400 0913R 294 | BSI L CH100 CHECK IF TEMPORY FIX 2-2 U6H03240 295 | * *AND SET TPFIX 2-2 U6H03250 00E4 4400 09BCR 296 | BSI L C1000 CONVERT TO BINARY U6H03260 00E6 1804 297 | SRA 4 U6H03270 00E7 D400 0B9ER 298 | STO L CHGLV STORE CARD CHANGE LEV. U6H03280 00E9 C400 0BA2R 299 | LD L TPFIX GET TRMP FIX INDICATOR 2-2 U6H03290 00EB 4C18 0101R 300 | BZ MO518 BR IF SYSTEM UPDATE 2-2 U6H03300 00ED 4C04 00FAR 301 | BOD MO516 BR IF RESTRICTED FIX 2-2 U6H03310 00EF C400 0B9ER 302 | LD L CHGLV GET MOD LEVEL FOM CD 2-2 U6H03320 00F1 9400 0B9FR 303 | S L VMODH CHECK WITH SYST LEVEL 2-2 U6H03330 00F3 4C18 010DR 304 | BZ MO520 BR IF THE SAME 2-2 U6H03340 00F5 8400 00ACR 305 | A L DEC01 IS IT 1 HIGHER 2-2 U6H03350 00F7 4420 0B37R 306 | BSI L EO120,Z *BR IF NO 2-2 U6H03360 00F9 7013 307 | B MO520 *BR IF YES 2-2 U6H03370 00FA C400 0B9ER 308 | MO516 LD L CHGLV GET MOD LEVEL FROM CD 2-2 U6H03380 00FC 9400 0B9FR 309 | S L VMODH IS EQUAL TO SUSTEM 2-2 U6H03390 00FE 4420 0B40R 310 | BSI L EO130,Z *BR IF NO 2-2 U6H03400 0100 700C 311 | B MO520 *BR IF YES 2-2 U6H03410 0101 C400 0B9ER 312 | MO518 LD L CHGLV GET MOD LEVEL FROM CD 2-2 U6H03420 0103 9400 0B9FR 313 | S L VMODH SUBTRACT DISK VER/MOD IND. U6H03430 0105 4C18 010DR 314 | BSC L MO520,+- BRANCH IF CHGLV=VMNO U6H03440 0107 9400 00ACR 315 | S L DEC01 SUBTRACT 1 U6H03450 0109 4428 0AF3R 316 | BSI L EO050,Z+ BRANCH IF CHGLV TO LESS U6H03460 010B 4420 0A8ER 317 | BSI L EO040,Z BRANCH IF CHGLV TO HIGH U6H03470 010D C400 00AAR 318 | MO520 LD L SUBXX GET SUB INDICATOR U6H03480 010F 4C20 01B5R 319 | BSC L SR000,Z BRANCH ON SUB CARD U6H03490 320 | * 1 INSTRUCTION REMOVED 2-12 U6H03500 0111 610E 321 | MO530 LDX 1 14 CARD COL. 14 IN IR-1 U6H03510 0112 4400 09F1R 322 | BSI L PK000 GET EBCDIC IN A AND Q U6H03520 0114 4400 09BCR 323 | BSI L C1000 CONVERT TO BINARY U6H03530 0116 D400 00B6R 324 | STO L SLTID SAVE SLET ID U6H03540 0118 4C18 012ER 325 | BSC L MO550,+- BRANCH IF ABSOLUTE PATCH U6H03550 011A 1010 326 | SLA 16 CLEAR ACCUMULATOR U6H03560 011B D400 00A9R 327 | STO L ABSXX CLEAR ABS INDICATOR U6H03570 011D C400 00B6R 328 | LD L SLTID GET SLET ID FOR SEARCH U6H03580 011F 4400 0842R 329 | BSI L SH000 LOOK FOR SLET ENTRY U6H03590 0121 4420 0B1CR 330 | BSI L EO090,Z BRANCH IF NO HIT U6H03600 0123 CA00 331 | LDD 2 0 GET ID AND CORE ADDR. U6H03610 0124 18D0 332 | RTE 16 SWAP A AND Q U6H03620 0125 8400 0994R 333 | A L R3910 ADD 2 U6H03630 0127 18D0 334 | MO540 RTE 16 U6H03640 0128 DC00 00B8R 335 | STD L SNTRY SAVE U6H03650 012A CA02 336 | LDD 2 2 GET WD. CNT. AND SECTOR U6H03660 012B DC00 00BAR 337 | STD L SNTRY+2 SAVE U6H03670 012D 7021 338 | MDX MO560 U6H03680 012E C000 339 | MO550 LD * GET NON-ZERO U6H03690 012F D400 00A9R 340 | STO L ABSXX SET ABS INDICATOR U6H03700 0131 611F 341 | LDX 1 31 CARD COL. 31 IN IR-1 U6H03710 0132 4400 09F1R 342 | BSI L PK000 GET EBCDIC IN A AND Q U6H03720 0134 4400 09BCR 343 | BSI L C1000 CONVERT TO BINARY U6H03730 0136 D400 00BBR 344 | STO L SNTRY+3 SAVE SECTOR ADDR. U6H03740 0138 180C 345 | SRA 12 ISOLATE DRIVE CODE 2-12 U6H03741 0139 D400 0001 346 | STO L $XR1 *AND SAVE IN IR-1 2-12 U6H03742 013B C500 0095 347 | LD L1 $FPAD GET FILE PROTECT ADDR 2-12 U6H03745 013D 4C20 0144R 348 | BSC L MO555,Z *AND BR IF PRESENT 2-12 U6H03746 013F C400 00B2R 349 | LD L H5001 GET ILLEGAL CALL INDR 2-12 U6H03747 0141 4400 0028 350 | BSI L $PRET *AND BR TO DISPLAY 2-12 U6H03748 0143 706B 351 | MDX MO640 EXIT TO SUPERVISOR 2-12 U6H03749 0144 6124 352 | MO555 LDX 1 36 CD COL. 36 IN IR-1 2-12 U6H03750 0145 4400 09F1R 353 | BSI L PK000 GET EBCDIC IN A AND Q U6H03760 0147 4400 09BCR 354 | BSI L C1000 CONVERT TO BINARY U6H03770 0149 D400 00B9R 355 | STO L SNTRY+1 SAVE CORE ADDR. U6H03780 014B C400 0CB8R 356 | LD L CL950 GET FULL SECTOR COUNT U6H03790 014D D400 00BAR 357 | STO L SNTRY+2 STORE U6H03800 014F 6113 358 | MO560 LDX 1 19 CARD COL. 19 IN IR-1 U6H03810 0150 4400 09F1R 359 | BSI L PK000 GET EBCDIC IN A AND Q U6H03820 0152 4400 09BCR 360 | BSI L C1000 CONVERT TO BINARY U6H03830 0154 D400 00A8R 361 | STO L PCHES STORE NO. OF PCH. RECORDS U6H03840 0156 C400 09BAR 362 | LD L CE920 SET RECORD CNT TO FIRST2-2 U6H03850 0158 D400 09B9R 363 | STO L CE910 STORE IN CKSUM ROUTINE U6H03860 015A C400 00BCR 364 | LD L BHXXX GET B AND H CONSTANT U6H03870 015C 1008 365 | SLA 8 REMOVE B U6H03880 015D 1808 366 | SRA 8 SHIFT H U6H03910 015E F400 0FC4 367 | EOR L CDBUF+20 COMPARE TO CARD COL. 21 U6H03920 0160 4C20 0169R 368 | MO568 BSC L MO580,Z NO BRANCH ON H U6H03930 0162 D400 00ABR 369 | STO L BHIND SET BIN/HEX IND. ZERO U6H03940 0164 4400 086AR 370 | MO570 BSI L R2000 READ HEX DATA RECORD U6H03950 0166 4400 09FFR 371 | BSI L C2000 TEST VALIDITY AND CONVERT U6H03960 0168 700E 372 | MDX MO600 U6H03970 0169 C400 00BCR 373 | MO580 LD L BHXXX GET B AND H CONSTANT U6H03980 016B 1808 374 | SRA 8 SHIFT B U6H03990 016C F400 0FC4 375 | EOR L CDBUF+20 COMPARE TO CARD COL. 21 U6H04000 016E 4420 0A58R 376 | BSI L EO010,Z NO BRANCH ON B U6H04010 0170 C000 377 | LD * GET NON-ZERO U6H04020 0171 D400 00ABR 378 | STO L BHIND SET BIN/HEX IND. U6H04030 0173 4400 093CR 379 | MO590 BSI L R3000 READ BINARY RECORD U6H04040 0175 4400 0996R 380 | BSI L CE000 CHECK SUM U6H04050 0177 1000 381 | MO600 NOP NOP OR MDX MO610 U6H04060 0178 4400 0C7BR 382 | BSI L CL000 COMPUTE PATCH PARAMETERS U6H04070 017A 6580 0CB2R 383 | LDX I1 CL900 GET DISKZ WD. CNT. U6H04080 017C 6680 0CB3R 384 | LDX I2 CL900+1 GET DISKZ SECT. ADDR. U6H04090 017E C400 00B4R 385 | LD L GET00 GET DISKZ READ FUNCT. U6H04100 0180 4400 0BEDR 386 | BSI L R4000 READ SECTOR TO PATCH U6H04110 0182 4400 0CBAR 387 | BSI L CL500 PUT PATCH IN DISK BUFF. U6H04140 388 | * *PRINT PATCH INFO 2-12 U6H04142 389 | * *EXIT ON USER REQUEST 2-12 U6H04144 0184 6580 0CB2R 390 | LDX I1 CL900 GET DISKZ WD. CNT. U6H04170 0186 6680 0CB3R 391 | LDX I2 CL900+1 GET DISKZ SECT. ADDR. U6H04180 0188 C400 0C7AR 392 | LD L PU030 GET DISKZ WRITE FUNCTION U6H04190 018A 4400 0BEDR 393 | BSI L R4000 PCH. SECTOR TO PATCH U6H04200 018C 74FF 00A8R 394 | MO610 MDX L PCHES,-1 REDUCE PATCH COUNT U6H04210 018E 7013 395 | MDX MO620 SKIP THIS INST. IF PCHES=0 U6H04220 018F C400 00A7R 396 | LD L PCHCT GET PCH HEADER COUNT U6H04230 0191 9400 00ACR 397 | S L DEC01 REDUCE BY 1 U6H04240 0193 D400 00A7R 398 | STO L PCHCT SAVE 2-1 U6H04250 0195 4C18 01A7R 399 | BSC L MO630,+- BRANCH IF ZERO U6H04260 0197 4400 086AR 400 | MO615 BSI L R2000 READ A RECORD U6H04270 0199 4400 088AR 401 | BSI L R5000 PRINT IT 2-2 U6H04280 019B 4400 08D5R 402 | BSI L CH000 CHECK IT U6H04290 019D C400 00CER 403 | LD L MO500 LOAD ACC. WITH NOP U6H04300 019F D0D7 404 | STO MO600 SET PATCH SWITCH YES U6H04310 01A0 4C00 00DFR 405 | BSC L MO510 U6H04320 01A2 C400 00ABR 406 | MO620 LD L BHIND GET B/H IND. U6H04330 01A4 4820 407 | BSC Z SKIP ON HEX U6H04340 01A5 70CD 408 | MDX MO590 U6H04350 01A6 70BD 409 | MDX MO570 U6H04360 01A7 4400 086AR 410 | MO630 BSI L R2000 READ // DEND CARD U6H04370 01A9 6500 7000 411 | LDX L1 /7000 GET READ FUNCTION U6H04380 01AB 4400 0C09R 412 | BSI L R4500 READ DCOM TO DISK BUFFER U6H04390 01AD 4C00 0B71R 413 | BSC L RY100 TEST FOR // DEND. EXIT U6H04400 01AF 6106 414 | MO640 LDX 1 6 GET MESSAGE WD CNT 2-12 U6H04402 01B0 6600 00C8R 415 | LDX L2 MSG06 GET MESSAGE ADDR 2-12 U6H04404 01B2 4400 0C61R 416 | BSI L PU000 PRINT MESSAGE 2-12 U6H04406 01B4 6038 417 | EXIT EXIT TO SUPERVISOR 2-12 U6H04408 *SUB CARD PROCESSING 419 | * U6H04420 420 | * CODE TO STORE RE-ENTRY PHASE OF U6H04430 421 | * MODIF (PER SLET 18) ON DISK, SET U6H04440 422 | * UP DCOM, AND CALL DUP U6H04450 423 | * U6H04460 01B5 6113 424 | SR000 LDX 1 19 CARD COL. 19 IN IR-1 U6H04470 01B6 4400 09F1R 425 | BSI L PK000 GET EBCDIC IN A AND Q U6H04480 01B8 4400 09BCR 426 | BSI L C1000 CONVERT TO BINARY U6H04490 01BA 4418 0A58R 427 | BSI L EO010,+- BRANCH IF ZERO U6H04500 01BC D400 0BA0R 428 | STO L MDF10 SAVE DCR COUNT U6H04510 01BE 6500 7000 429 | SR010 LDX L1 /7000 GET READ FUNCTION U6H04520 01C0 4400 0C09R 430 | BSI L R4500 READ DCOM U6H04530 01C2 C400 0BA0R 431 | LD L MDF10 GET DCR COUNT U6H04540 01C4 D400 060BR 432 | STO L #MDF1 UPDATE DCOM U6H04550 01C6 C033 433 | LD SR940 LOAD DUP-REENTRY ADDRESS U6H04560 01C7 D400 060CR 434 | STO L #MDF2 SET MODIF RETURN FLAG U6H04570 01C9 6500 7001 435 | LDX L1 /7001 GET WRITE FUNCTION U6H04580 01CB 4400 0C09R 436 | BSI L R4500 WRITE DCOM U6H04590 437 | * U6H04600 01CD C828 438 | SR020 LDD SR920 U6H04610 01CE 4008 439 | BSI SR040 WRITE MODIF TO DISK U6H04620 01CF C828 440 | LDD SR930 U6H04630 01D0 4006 441 | BSI SR040 READ DUP FROM DISK U6H04640 01D1 7402 01F5R 442 | MDX L SR910,2 ADD 2 TO SLET CORE ADDR. U6H04650 01D3 1000 443 | SR030 NOP U6H04660 01D4 1000 444 | NOP U6H04670 01D5 4C80 01F5R 445 | BSC I SR910 TRANSFER TO DUP U6H04680 446 | * U6H04690 447 | * SUBROUTINE TO READ OR WRITE DISK U6H04700 448 | * PER SLET ENTRY. DISKZ RD/WR FUNCT. U6H04710 449 | * IN A AND SLET ID IN Q. U6H04720 450 | * U6H04730 01D7 0000 451 | SR040 DC 0 ENTRY LINK U6H04740 01D8 D81B 452 | STD SR900 SAVE FUNCTION AND ID U6H04750 453 | * 1 INSTRUCTION REMOVED 2-12 U6H04760 01D9 C01B 454 | LD SR910 GET SLET ID U6H04770 01DA 4400 0842R 455 | BSI L SH000 SEARCH FOR SLET ENTRY U6H04780 01DC 4820 456 | BSC Z SKIP ON HIT U6H04790 01DD 3000 457 | WAIT ERROR - NO ENTRY FOUND U6H04800 01DE C016 458 | LD SR910 REFRESH SLET ID U6H04810 01DF F019 459 | EOR SR930+1 COMPARE TO DUP SLET ID U6H04820 01E0 4C20 01E6R 460 | BSC L SR050,Z BRANCH IF MODIF ID U6H04830 01E2 C201 461 | LD 2 1 GET CORE ADDRESS U6H04840 01E3 D006 462 | STO SR070+1 U6H04850 01E4 D010 463 | STO SR910 PUT DISKZ PARAMETER U6H04860 01E5 7002 464 | MDX SR060 U6H04870 01E6 C013 465 | SR050 LD SR940 U6H04880 01E7 D00D 466 | STO SR910 U6H04890 01E8 CA02 467 | SR060 LDD 2 2 GET WORD CNT. AND SECTOR U6H04900 01E9 DC00 0B4ER 468 | SR070 STD L RY000-2 STORE WORD COUNT SCTR ADDR U6H04910 01EB C808 469 | LDD SR900 GET DISKZ FUNCTION U6H04920 01EC 4400 00F2 470 | BSI L DISKZ U6H04930 01EE C400 00EE 471 | LD L $DBSY U6H04940 01F0 4C20 01EER 472 | BSC L *-4,Z BRANCH IF BUSY U6H04950 01F2 4C80 01D7R 473 | BSC I SR040 RETURN TO MAINLINE U6H04960 01F4 474 | BSS E 0 U6H04970 01F4 0000 475 | SR900 DC *-* U6H04980 01F5 0B4ER 476 | SR910 DC RY000-2 U6H04990 01F6 7001 477 | SR920 DC /7001 U6H05000 01F7 0012 478 | DC /12 U6H05010 01F8 7000 479 | SR930 DC /7000 U6H05020 01F9 0001 480 | DC 1 U6H05030 01FA 0B4ER 481 | SR940 DC RY000-2 U6H05040 I/O AND BUFFERS 483 | * U6H05060 484 | * SYSTEM I/O AND CONVERSION ROUTINE U6H05070 485 | * AREAS AND BUFFERS. U6H05080 486 | * U6H05090 01FC 487 | BSS E 2 WORD COUNT AND SECT. ADR. U6H05100 01FE 488 | PRNTR BSS 300 AREA FOR PRINT ROUTINE U6H05110 489 | * U6H05120 032A 490 | BSS E 2 WORD COUNT AND SECT. ADR. U6H05130 032C 491 | CDPTR BSS 400 AREA FOR I/O-CONVERSION U6H05140 492 | * U6H05150 04BC 493 | BSS E 2 U6H05160 04BE 494 | DSKIN BSS 640 DISK INPUT BUFFER 2-12 U6H05170 073E 0000 495 | PRBUF DC *-* WD CNT FOR PR BUFFER 2-12 U6H05172 073F 496 | BSS 132 PRINT BUFFER 2-12 U6H05174 07C3 497 | BINBF BSS 108 U6H05180 498 | * U6H05190 499 | * EQUATES U6H05200 500 | * U6H05210 04BAR 501 | SLET0 EQU DSKIN-4 U6H05220 0606R 502 | #SYSC EQU DSKIN+320+8 U6H05230 060BR 503 | #MDF1 EQU DSKIN+320+13 U6H05240 060CR 504 | #MDF2 EQU DSKIN+320+14 U6H05250 0617R 505 | #PIOD EQU DSKIN+320+25 U6H05260 03DAR 506 | CONVR EQU CDPTR+174 2-5 U6H05280 507 | * U6H05290 READ/SEARCH-SLET 509 | * U6H05310 510 | * SUBROUTINE TO READ SLET INTO U6H05320 511 | * THE DISK BUFFER U6H05330 512 | * U6H05340 082F 0000 513 | R1000 DC 0 ENTRY LINK U6H05350 0830 6500 0280 514 | LDX L1 640 GET WORD COUNT 2-12 U6H05360 0832 6D00 04BCR 515 | STX L1 DSKIN-2 STORE U6H05370 0834 6500 0000 516 | R1050 LDX L1 *-* GET SECTOR ADDR 2-12 U6H05380 0836 6D00 04BDR 517 | STX L1 DSKIN-1 STORE U6H05390 0838 CC00 0C1AR 518 | LDD L R4950 GET DISKZ PARAMETERS U6H05400 083A 4400 00F2 519 | BSI L DISKZ READ SLET IN U6H05410 083C C400 00EE 520 | LD L $DBSY U6H05420 083E 4C20 083CR 521 | BSC L *-4,Z BRANCH IF BUSY U6H05430 0840 4C80 082FR 522 | BSC I R1000 RETURN TO MAINLINE U6H05440 523 | * U6H05450 524 | * SUBROUTINE TO SEARCH SLET FOR ID SET U6H05460 525 | * IN ACCUMULATOR. IF ID IS FOUND, THE U6H05470 526 | * CORE ADDRESS OF THE SLET ENTRY IS U6H05480 527 | * SET IN INDEX REG. 2 AND THE ACCUM. U6H05490 528 | * IS ZEROED OUT. IF THERE IS NO HIT U6H05500 529 | * THE ACCUM. RETAINS THE ID. U6H05510 530 | * U6H05520 0842 0000 531 | SH000 DC 0 ENTRY LINK U6H05530 0843 6600 0140 532 | LDX L2 320 SET POINTER 2-12 U6H05540 0845 D022 533 | STO SH900 SAVE ID U6H05550 0846 4818 534 | BSC +- SKIP ON NON-ZERO U6H05560 0847 3000 535 | WAIT ERROR - (ZERO ID) U6H05570 0848 6103 536 | LDX 1 3 SETUP 1ST SECTOR ADDR 2-12 U6H05572 0849 69EB 537 | STX 1 R1050+1 *OF SLET IN R1000 2-12 U6H05574 084A 40E4 538 | SH005 BSI R1000 READ A SLET SECTOR 2-12 U6H05576 084B C01C 539 | LD SH900 GET PHASE ID 2-12 U6H05578 084C F600 04BAR 540 | SH010 EOR L2 SLET0 COMPARE SLET TO ID U6H05580 084E 4C18 0860R 541 | BSC L SH030,+- BRANCH ON HIT U6H05590 0850 C017 542 | LD SH900 REFRESH ID U6H05600 0851 72FC 543 | MDX 2 -4 DECREMENT POINTER U6H05610 0852 70F9 544 | MDX SH010 BACK TO SEARCH SOME MORE U6H05620 0853 C0E1 545 | LD R1050+1 DETERMINE IF ALL SLET 2-12 U6H05622 0854 9014 546 | S SH905 *SECTORS SEARCHED 2-12 U6H05624 0855 4C28 085AR 547 | BSC L SH025,Z+ BR IF NOT 2-12 U6H05625 0857 C010 548 | LD SH900 NO HIT - GET ID U6H05630 0858 4C80 0842R 549 | SH020 BSC I SH000 RETURN TO MAINLINE U6H05640 085A 7401 0835R 550 | SH025 MDX L R1050+1,1 INCR SLET SECTOR ADDR 2-12 U6H05642 085C 1000 551 | NOP IN CASE OF SKIP 2-12 U6H05644 085D 6600 0140 552 | LDX L2 320 RESET POINTER 2-12 U6H05645 085F 70EA 553 | MDX SH005 BR TO CONTINUE SEARCH 2-12 U6H05646 0860 6A04 554 | SH030 STX 2 SH040+1 STORE IR-2 U6H05650 0861 C0EB 555 | LD SH010+1 GET SLET BASE ADDRESS U6H05660 0862 8002 556 | A SH040+1 ADD POINTER U6H05670 0863 D001 557 | STO SH040+1 STORE CORE ADDR. OF ENTRY U6H05680 0864 6600 0000 558 | SH040 LDX L2 *-* LOAD IR-2 WITH ENTRY ADR. U6H05690 0866 1010 559 | SLA 16 CLEAR ACCUMULATOR U6H05700 0867 70F0 560 | MDX SH020 U6H05710 0868 0000 561 | SH900 DC 0 ID SAVE WORD U6H05720 0869 0005 562 | SH905 DC 5 LAST SECTOR OF SLET 2-12 U6H05724 READ 564 | * U6H05740 565 | * SUBROUTINE TO READ NON-BINARY U6H05750 566 | * RECORDS (CARD OR PAPER TAPE) AND U6H05760 567 | * CONVERT TO UNPACKED EBCDIC IN U6H05770 568 | * THE MCRA BUFFER (CDBUF). U6H05780 569 | * U6H05790 086A 0000 570 | R2000 DC 0 ENTRY LINK U6H05800 086B C01D 571 | LD R2920 GET WORD COUNT U6H05810 086C D400 0FAF 572 | STO L CDBUF-1 STORE U6H05820 086E C400 0033 573 | LD L $LAST GET LAST CD. IND. U6H05830 0870 4C18 0875R 574 | BSC L R2010,+- NO BRANCH IF ON U6H05840 0872 C815 575 | LDD R2910 GET FEED PARAMETERS U6H05850 0873 4400 032DR 576 | BSI L CDPTR+1 FEED RECORD U6H05860 0875 C810 577 | R2010 LDD R2900 GET READ PARAMETERS U6H05870 0876 4400 032DR 578 | BSI L CDPTR+1 READ RECORD U6H05880 0878 C400 0013 579 | LD L $IBSY GET BUSY INDICATOR U6H05890 087A 4C20 0878R 580 | BSC L *-4,Z BRANCH IF BUSY U6H05900 087C C400 00A4R 581 | LD L PTIND GET PT INDICATOR U6H05910 087E 4C28 0883R 582 | BSC L R2020,+Z BRANCH IF PAPER TAPE U6H05920 0880 C006 583 | LD R2900+1 GET CONVERSION PARAM. U6H05930 0881 4400 03DBR 584 | BSI L CONVR+1 CONVERT CARD INPUT U6H05940 0883 4C80 086AR 585 | R2020 BSC I R2000 RETURN TO MAINLINE U6H05950 0886 586 | BSS E 0 U6H05960 0886 7002 587 | R2900 DC /7002 U6H05970 0887 0FAF 588 | DC CDBUF-1 U6H05980 0888 7003 589 | R2910 DC /7003 U6H05990 0889 0050 590 | R2920 DC 80 U6H06000 PRINT A *MON OR *SUB RECORD 592 | * SUBROUTINE TO PRINT THE CONTENTS 2-2 U6H06020 593 | * OF MCRA BUFFER. 2-2 U6H06030 594 | * 2-2 U6H06040 088A 0000 595 | R5000 DC *-* ENTRY POINT 2-2 U6H06050 088B C048 596 | LD R5970 GET WORD COUNT 2-2 U6H06060 088C D400 073ER 597 | STO L PRBUF *AND STORE 2-2 U6H06070 088E 6200 598 | LDX 2 0 SET POINTER 2-2 U6H06080 088F 61B0 599 | LDX 1 -80 SET POINTER 2-2 U6H06090 0890 C500 1000 600 | R5010 LD L1 CDBUF+80 GET FIRST OF TWO 2-2 U6H06100 0892 1008 601 | SLA 8 MOVE LEFT TO GET 2-2 U6H06110 0893 ED00 1001 602 | OR L1 CDBUF+81 *TWO EBCDIC PER WORD 2-2 U6H06120 0895 D600 073FR 603 | STO L2 PRBUF+1 STORE IN PRINT BUFFER 2-2 U6H06130 0897 7201 604 | MDX 2 1 INCREMENT POINTER 2-2 U6H06140 0898 7102 605 | MDX 1 2 INCREMENT POINTER 2-2 U6H06150 0899 70F6 606 | MDX R5010 CONTINUE PACKING 2-2 U6H06160 607 | * 2-2 U6H06170 089A C480 0006 608 | LD I $CH12 IS CHANNEL 12 SENSED 2-2 U6H06180 089C 4C20 08A9R 609 | BNZ R5030 *BR IF YES 2-2 U6H06190 089E C034 610 | R5020 LD R5960 GET SPACE ONE LINE 2-2 U6H06200 089F 4400 01FFR 611 | BSI L PRNTR+1 *CODE, AND SPACE 2-2 U6H06210 08A1 C81E 612 | LDD R5910 GET PRINT FUNCTION 2-2 U6H06220 08A2 4400 01FFR 613 | BSI L PRNTR+1 PRINT ONE LINE 2-2 U6H06230 08A4 7400 0036 614 | MDX L $PBSY,0 PRINTER BUSY 2-2 U6H06240 08A6 70FD 615 | MDX *-3 *YES GO BACK AND TEST 2-2 U6H06250 08A7 4C80 088AR 616 | BSC I R5000 *NO, RETURN 2-2 U6H06260 617 | * 2-2 U6H06270 08A9 C028 618 | R5030 LD R5950 GET HDNG SCTR ADDR 2-2 U6H06280 08AA D01A 619 | STO R5931 PUT IN HDNG I/O AREA 2-2 U6H06290 08AB C816 620 | LDD R5920 GET READ FUNCTION 2-2 U6H06300 08AC 4400 00F2 621 | BSI L DISKZ READ HDNG SCTR 2-2 U6H06310 08AE 7400 00EE 622 | MDX L $DBSY,0 READ COMPLETE 2-2 U6H06320 08B0 70FD 623 | MDX *-3 *NO, GET BACK AND TEST 2-2 U6H06330 624 | * 2-2 U6H06340 08B1 C012 625 | LD R5930 *YES, PUT WC OF HDNG 2-2 U6H06350 08B2 D012 626 | STO R5931 *BUFF IN HDNG I/O AREA 2-2 U6H06360 08B3 C81C 627 | LDD R5940 GET SKIP FUNCTION 2-2 U6H06370 08B4 4400 01FFR 628 | BSI L PRNTR+1 RESTORE 2-2 U6H06380 08B6 4400 01FFR 629 | BSI L PRNTR+1 PRINT HDNG 2-2 U6H06390 08B8 7400 0036 630 | MDX L $PBSY,0 PRINTER BUSY 2-2 U6H06400 08BA 70FD 631 | MDX *-3 *YES ,GO BACK AND TEST 2-2 U6H06410 08BB C017 632 | LD R5960 GET SPACE ONE LINE 2-2 U6H06420 08BC 4400 01FFR 633 | BSI L PRNTR+1 *FUNCTION AND PERFORM 2-2 U6H06430 08BE 70DF 634 | B R5020 GO TO PRINT A LINE 2-2 U6H06440 08C0 635 | BSS E 2-2 U6H06450 08C0 7001 636 | R5910 DC /7001 PRINT FUNCTION 2-2 U6H06460 08C1 073ER 637 | DC PRBUF BUFFER ADDR 2-2 U6H06470 08C2 7000 638 | R5920 DC /7000 READ DISK FUNCTION 2-2 U6H06480 08C3 08C4R 639 | DC R5930 ADDR OF WC 2-2 U6H06490 08C4 000A 640 | R5930 DC 10 WC OF HDNG BUFFER 2-2 U6H06500 08C5 0000 641 | R5931 DC *-* SCTR ADDR OR WC 2-2 U6H06510 08C6 642 | BSS 10 HDNG BUFFER 2-2 U6H06520 08D0 7000 643 | R5940 DC /7000 RESTORE FUNCTION 2-2 U6H06530 08D1 08C5R 644 | DC R5931 ADDR OF WC FOR HDNG BUF2-2 U6H06540 08D2 0007 645 | R5950 DC 7 HDNG SCTR ADDR 2-2 U6H06550 08D3 7002 646 | R5960 DC /7002 SPACE ONE LINE FUNCTION2-2 U6H06560 08D4 0028 647 | R5970 DC 40 PRINT BUFFER WORD CNT 2-2 U6H06570 CONTROL-RECORD-CHECK 649 | * U6H06590 650 | * SUBROUTINE TO CHECK RECORD IN U6H06600 651 | * MCRA BUFFER FOR VALIDITY U6H06610 652 | * U6H06620 08D5 0000 653 | CH000 DC 0 ENTRY LINK U6H06630 08D6 C400 000F 654 | LD L $CTSW GET MCR SWITCH U6H06640 08D8 4420 0B04R 655 | BSI L EO060,Z BRANCH IF MCR WAS READ U6H06650 08DA CC00 0FB0 656 | LDD L CDBUF GET FIRST 2 CHARACTERS U6H06660 08DC 1088 657 | SLT 8 U6H06670 08DD 1808 658 | SRA 8 PACK U6H06680 08DE 1088 659 | SLT 8 U6H06690 08DF F400 0908R 660 | EOR L CH910 COMPARE TO *M U6H06700 08E1 4820 661 | BSC Z SKIP IF OK U6H06710 08E2 700B 662 | MDX CH010 U6H06720 08E3 CC00 0FB2 663 | LDD L CDBUF+2 GET NEXT 2 CHARS. U6H06730 08E5 1088 664 | SLT 8 U6H06740 08E6 1808 665 | SRA 8 PACK U6H06750 08E7 1088 666 | SLT 8 U6H06760 08E8 F400 0909R 667 | EOR L CH910+1 COMPARE TO ON U6H06770 08EA 4820 668 | BSC Z SKIP IF OK U6H06780 08EB 7018 669 | MDX CH020 U6H06790 08EC 4C80 08D5R 670 | BSC I CH000 RETURN TO MAINLINE U6H06800 08EE CC00 0FB0 671 | CH010 LDD L CDBUF GET FIRST 2 CHARS. U6H06810 08F0 1088 672 | SLT 8 U6H06820 08F1 1808 673 | SRA 8 PACK U6H06830 08F2 1088 674 | SLT 8 U6H06840 08F3 F400 0906R 675 | EOR L CH900 COMPARE TO *S U6H06850 08F5 4820 676 | BSC Z SKIP IF OK U6H06860 08F6 700D 677 | MDX CH020 U6H06870 08F7 CC00 0FB2 678 | LDD L CDBUF+2 GET NEXT 2 CHARS. U6H06880 08F9 1088 679 | SLT 8 U6H06890 08FA 1808 680 | SRA 8 PACK U6H06900 08FB 1088 681 | SLT 8 U6H06910 08FC F400 0907R 682 | EOR L CH900+1 COMPARE TO UB U6H06920 08FE 4820 683 | BSC Z SKIP IF OK U6H06930 08FF 7004 684 | MDX CH020 U6H06940 0900 C000 685 | LD * GET NON-ZERO U6H06950 0901 D400 00AAR 686 | STO L SUBXX SET SUB INDICATOR U6H06960 0903 70E8 687 | MDX CH010-2 EXIT U6H06970 0904 4400 0A58R 688 | CH020 BSI L EO010 INVALID HEADER U6H06980 689 | * 2-2 U6H06990 690 | * CONSTANTS 2-2 U6H07000 691 | * 2-2 U6H07010 0906 5CE2 E4C2 692 | CH900 EBC .*SUB. U6H07020 0908 5CD4 D6D5 693 | CH910 EBC .*MON. U6H07030 090A 694 | CH920 BSS E 2 SAVE OF A AND Q REG 2-2 U6H07040 090C C700 695 | CH930 DC /C700 G IN EBCDIC 2-2 U6H07050 090D D900 696 | CH940 DC /D900 R IN EBCDIC 2-2 U6H07060 090E F000 697 | CH945 DC /F000 0 IN EBCDIC 2-2 U6H07070 090F 0000 698 | CH950 DC *-* TYPE PRESSENTLY PROC 2-2 U6H07080 0910 00F0 699 | CH960 DC /00F0 CONST FOR MASK IN ZERO 2-2 U6H07090 0911 0002 700 | CH970 DC 2 GENERAL TEMP FIX 2-2 U6H07100 0912 0001 701 | CH980 DC 1 RESTRICTED TEMP FIX 2-2 U6H07110 702 | * 2-2 U6H07120 703 | * THIS SUBROUTINE WILL CHECK 2-2 U6H07130 704 | * THE TYPE OF THE FIX. 2-2 U6H07140 705 | * IT WILL SET TPFIX=0 IF SYSTEM UPD 2-2 U6H07150 706 | * =1 IF RESTRICTED 2-2 U6H07160 707 | * =2 IF GENERAL. 2-2 U6H07170 708 | * IT ALSO CHECKS FOR CONSISTENCY 2-2 U6H07180 709 | * OF TYPE IN A JOB. 2-2 U6H07190 710 | * 2-2 U6H07200 0913 0000 711 | CH100 DC *-* 2-2 U6H07210 0914 D0F5 712 | STO CH920 SAVE A 2-2 U6H07220 0915 1088 713 | SLT 8 SEPARATE TEMP FIX AND 2-2 U6H07230 0916 1008 714 | SLA 8 *AND MOD LEVEL 2-2 U6H07240 0917 E8F8 715 | OR CH960 GET ZERO AT THE END 2-2 U6H07250 0918 D0F2 716 | STO CH920+1 2-2 U6H07260 0919 18D0 717 | XCH GET TEMP FIX INDIC 2-2 U6H07270 091A D0F4 718 | STO CH950 *AND SANE 2-2 U6H07280 091B 90F0 719 | S CH930 IS IT GENERAL TEMP FIX 2-2 U6H07290 091C 4C18 0930R 720 | BZ CH160 *BR IF YES 2-2 U6H07300 091E C0F0 721 | LD CH950 GET TEMP FIX INDIC 2-2 U6H07310 091F 90ED 722 | S CH940 IS IT RESTRICTED FIX 2-2 U6H07320 0920 4C18 0936R 723 | BZ CH170 *BR IF YES 2-2 U6H07330 0922 C0EC 724 | LD CH950 GET TEMP FIX 2-2 U6H07340 0923 90EA 725 | S CH945 IS IT SYSTEM UPDATE 2-2 U6H07350 0924 4420 0A58R 726 | BSI L EO010,Z *BR IF NOT 2-2 U6H07360 727 | * 2-2 U6H07370 728 | * SYSTEM UPDATE PROCESSING 2-2 U6H07380 729 | * 2-2 U6H07390 0926 8400 0BA2R 730 | A L TPFIX IS IT SAME TYPE 2-2 U6H07400 0928 4430 0B49R 731 | BSI L EO140,-Z BR IF NO 2-2 U6H07410 092A 1010 732 | SLA 16 GET SYSTEM UPDATE TYPE 2-2 U6H07420 733 | * 2-2 U6H07430 734 | * COMMON EXIT PROCESSING 2-2 U6H07440 735 | * 2-2 U6H07450 092B D400 0BA2R 736 | CH150 STO L TPFIX SET FIX TYPE 2-2 U6H07460 092D C8DC 737 | LDD CH920 RESTORE A AND Q 2-2 U6H07470 092E 4C80 0913R 738 | BSC I CH100 RETURN 2-2 U6H07480 739 | * 2-2 U6H07490 740 | * GENERAL FIX PROCESSING 2-2 U6H07500 741 | * 2-2 U6H07510 0930 C400 0BA2R 742 | CH160 LD L TPFIX GET PREVIOUS FIX INDIC 2-2 U6H07520 0932 4418 0B49R 743 | BSI L EO140,+- BR IF INCONSISTENT TYPE2-2 U6H07530 0934 C0DC 744 | LD CH970 GET GENERAL FIX TYPE 2-2 U6H07540 0935 70F5 745 | B CH150 2-2 U6H07550 746 | * 2-2 U6H07560 747 | * RESTRICTED FIX PROCESSING 2-2 U6H07570 748 | * 2-2 U6H07580 0936 C400 0BA2R 749 | CH170 LD L TPFIX GET PREVIOUS FIX INDIC 2-2 U6H07590 0938 4418 0B49R 750 | BSI L EO140,+- BR IF INCONSISTENT TYPE2-2 U6H07600 093A C0D7 751 | LD CH980 GET RESTRICTED FIX TYPE2-2 U6H07610 093B 70EF 752 | B CH150 2-2 U6H07620 BINARY-READ 754 | * U6H07640 755 | * SUBROUTINE TO READ BINARY RECORDS U6H07650 756 | * (CARDS OR PAPER TAPE) AND PACK U6H07660 757 | * INTO BINBF. U6H07670 758 | * U6H07680 093C 0000 759 | R3000 DC 0 ENTRY LINK U6H07690 093D C400 00A4R 760 | LD L PTIND GET PT INDICATOR U6H07700 093F 4C28 0964R 761 | BSC L R3030,+Z BRANCH IF PAPER TAPE U6H07710 0941 C0FF 762 | LD *-1 GET NEG. VALUE U6H07720 0942 D400 00A4R 763 | STO L PTIND SET IND. TO SUPRESS CONV. U6H07730 0944 4400 086AR 764 | BSI L R2000 READ A CARD U6H07740 0946 1010 765 | SLA 16 CLEAR ACCUMULATOR U6H07750 0947 D400 00A4R 766 | STO L PTIND RESET PT INDICATOR U6H07760 767 | * U6H07770 768 | * FOLLOWING CODE PACKS 72 CARD U6H07780 769 | * COLUMNS IN CDBUF TO 54 WORDS IN U6H07790 770 | * BINBF. U6H07800 771 | * U6H07810 0949 6102 772 | LDX 1 2 A AND Q CONTENTS U6H07820 094A 62CA 773 | LDX 2 -54 U6H07830 094B CD00 0FB0 774 | R3010 LDD L1 CDBUF 223X 333X U6H07840 094D 1804 775 | SRA 4 X223 333X U6H07850 094E 18D4 776 | RTE 20 3333 XX22 U6H07860 094F D600 07FBR 777 | STO L2 BINBF+56 U6H07870 0951 1088 778 | SLT 8 33XX 22XX U6H07880 0952 C500 0FAF 779 | LD L1 CDBUF-1 122X 22XX U6H07890 0954 1804 780 | SRA 4 X122 22XX U6H07900 0955 18D8 781 | RTE 24 2222 XXX1 U6H07910 0956 D600 07FAR 782 | STO L2 BINBF+55 U6H07920 0958 108C 783 | SLT 12 2XXX 1XXX U6H07930 0959 C500 0FAE 784 | LD L1 CDBUF-2 111X 1XXX U6H07940 095B 1804 785 | SRA 4 X111 1XXX U6H07950 095C 18DC 786 | RTE 28 1111 XXXX U6H07960 095D D600 07F9R 787 | STO L2 BINBF+54 U6H07970 095F 7104 788 | MDX 1 4 U6H07980 0960 7203 789 | MDX 2 3 U6H07990 0961 70E9 790 | MDX R3010 U6H08000 791 | * U6H08010 0962 4C80 093CR 792 | R3020 BSC I R3000 RETURN TO MAINLINE U6H08020 0964 C400 00ACR 793 | R3030 LD L DEC01 GET DECIMAL 1 U6H08030 0966 D400 07C2R 794 | STO L BINBF-1 STORE FRAME COUNT U6H08040 0968 C829 795 | R3040 LDD R3900 GET READ PARAMETERS U6H08050 0969 4400 032DR 796 | BSI L CDPTR+1 READ 1 FRAME U6H08060 096B C400 0013 797 | LD L $IBSY GET BUSY INDICATOR U6H08070 096D 4C20 096BR 798 | BSC L *-4,Z BRANCH IF BUSY U6H08080 096F C400 07C3R 799 | LD L BINBF GET WORD COUNT U6H08090 0971 1807 800 | SRA 7 DUBBLE WC AND SHIFT RIGHT U6H08100 0972 9022 801 | S R3920 SUBTRACT MAX. COUNT U6H08110 0973 4C30 0968R 802 | BSC L R3040,Z- BRANCH IF COUNT TOO HIGH U6H08120 0975 801F 803 | A R3920 RESTORE WC U6H08130 0976 D400 07C2R 804 | STO L BINBF-1 STORE FRAME COUNT U6H08140 805 | * U6H08150 0978 616C 806 | LDX 1 108 U6H08160 0979 10A0 807 | SLT 32 U6H08170 097A DD00 07C1R 808 | R3050 STD L1 BINBF-2 CLEAR BUFFER U6H08180 097C 71FE 809 | MDX 1 -2 U6H08190 097D 70FC 810 | MDX R3050 U6H08200 811 | * U6H08210 097E C813 812 | LDD R3900 GET READ PARAMETERS U6H08220 097F 4400 032DR 813 | BSI L CDPTR+1 READ RECORD U6H08230 0981 C400 0013 814 | LD L $IBSY GET BUSY INDICATOR U6H08240 0983 4C20 0981R 815 | BSC L *-4,Z BRANCH IF BUSY U6H08250 0985 6100 816 | LDX 1 0 U6H08260 0986 62CA 817 | LDX 2 -54 U6H08270 0987 CD00 07C3R 818 | R3060 LDD L1 BINBF GET UNPACKED FRAMES U6H08280 0989 1808 819 | SRA 8 PACK U6H08290 098A 1088 820 | SLT 8 SHIFT U6H08300 098B D600 07F9R 821 | STO L2 BINBF+54 STORE PACKED FRAMES U6H08310 098D 7102 822 | MDX 1 2 U6H08320 098E 7201 823 | MDX 2 1 U6H08330 098F 70F7 824 | MDX R3060 U6H08340 0990 70D1 825 | MDX R3020 EXIT U6H08350 0992 826 | BSS E 0 U6H08360 0992 7000 827 | R3900 DC /7000 U6H08370 0993 07C2R 828 | DC BINBF-1 U6H08380 0994 0002 829 | R3910 DC 2 U6H08390 0995 006C 830 | R3920 DC 108 U6H08400 CHECKSUM 832 | * U6H08420 833 | * SUBROUTINE TO EVALUATE CHECK SUM U6H08430 834 | * AND RECORD TYPE VALIDITY. RECORD U6H08440 835 | * COUNT FOR THE FIRST RECORD IS COMPUTED U6H08450 836 | * AS THE RESIDUE IN THE FIRST COMPUTED U6H08460 837 | * CHECKSUM. U6H08470 838 | * U6H08480 0996 0000 839 | CE000 DC 0 ENTRY LINK U6H08490 0997 C400 00B1R 840 | LD L H0F00 GET TYPE MASK U6H08500 0999 E400 07C5R 841 | AND L BINBF+2 GET TYPE U6H08510 099B F400 00B0R 842 | EOR L H0A00 COMPARE U6H08520 099D 4420 0A63R 843 | BSI L EO020,Z BRANCH IF NOT TYPE A U6H08530 099F C400 07C4R 844 | LD L BINBF+1 GET CHECK SUM U6H08540 09A1 4818 845 | BSC +- SKIP IF NON-ZERO U6H08550 09A2 700F 846 | MDX CE020 U6H08560 847 | * U6H08570 848 | * ROUTINE TO COMPUTE CHECK SUM U6H08580 849 | * U6H08590 09A3 61CA 850 | LDX 1 -54 U6H08600 09A4 1010 851 | SLA 16 CLEAR A U6H08610 09A5 8500 07F9R 852 | CE010 A L1 BINBF+54 ADD BINARY WORD U6H08620 09A7 4802 853 | BSC C SKIP ON NO CARRY U6H08630 09A8 800F 854 | A CE900 ADD ONE U6H08640 09A9 7101 855 | MDX 1 1 INCREMENT IR-1 U6H08650 09AA 70FA 856 | MDX CE010 CONTINUE FOR 54 WORDS U6H08660 09AB 7401 09B9R 857 | MDX L CE910,1 ADD 1 TO REC. COUNT U6H08670 09AD 7006 858 | MDX CE030 NOT FIRST CARD 2-2 U6H08680 09AE F00B 859 | EOR CE920 CONVERT TO POSITIV 2-2 U6H08690 09AF 8008 860 | A CE900 *NUMBER 2-2 U6H08700 09B0 D008 861 | STO CE910 FIRST CARD SET REC CNT 2-2 U6H08710 09B1 D009 862 | STO CE930 SAVE FIRST RECORD NUMB 2-2 U6H08720 09B2 4C80 0996R 863 | CE020 BSC I CE000 RETURN TO MAINLINE U6H08730 09B4 8004 864 | CE030 A CE910 ADD RECORD COUNT U6H08740 09B5 4420 0A63R 865 | BSI L EO020,Z BRANCH ON NON-ZERO U6H08750 09B7 70FA 866 | MDX CE020 BR TO RETURN 2-2 U6H08760 09B8 0001 867 | CE900 DC 1 U6H08770 09B9 FFFF 868 | CE910 DC -1 RECORD COUNT NEG FIRST 2-2 U6H08780 09BA FFFF 869 | CE920 DC /FFFF MASK 2-2 U6H08790 09BB 0000 870 | CE930 DC *-* NUMBER OF FIRST RECORD 2-2 U6H08800 SUBROUTINES MOVED 872 | ***********************************************2-12 U6H08820 873 | * SUBROUTINES CL000 AND CL500 MOVED 2-12 U6H08830 874 | ***********************************************2-12 U6H08840 875 | * 2-12 U6H08850 EBCDIC-BINARY-CONVERSION 877 | * U6H09580 878 | * SUBROUTINE TO CONVERT 4 PACKED U6H09590 879 | * EBCDIC CHARACTERS IN A AND Q TO U6H09600 880 | * A BINARY WORD IN THE ACCUMULATER. U6H09610 881 | * U6H09620 09BC 0000 882 | C1000 DC 0 ENTRY LINK U6H09630 09BD 692B 883 | STX 1 C1050+1 SAVE IR-1 U6H09640 09BE 6A2C 884 | STX 2 C1060+1 SAVE IR-2 U6H09650 09BF D400 0C5CR 885 | STO L PB901 SAVE 2 LEFT DIGITS U6H09660 09C1 1088 886 | SLT 8 SHIFT AND SPLIT DIGITS U6H09670 09C2 1008 887 | SLA 8 U6H09680 09C3 DC00 0C5ER 888 | STD L PB901+2 SAVE 2 RIGHT DIGITS U6H09690 09C5 C400 0C5CR 889 | LD L PB901 PICK UP 2 LEFT DIGITS U6H09700 09C7 1890 890 | SRT 16 SHIFT AND SPLIT DIGITS U6H09710 09C8 1088 891 | SLT 8 U6H09720 09C9 1008 892 | SLA 8 U6H09730 09CA DC00 0C5CR 893 | STD L PB901 SAVE 2 LEFT DIGITS U6H09740 09CC 6204 894 | LDX 2 4 U6H09750 09CD 6111 895 | C1010 LDX 1 17 U6H09760 09CE C500 0C4AR 896 | C1020 LD L1 PB900-2 GET TABLE VALUE U6H09770 09D0 1808 897 | SRA 8 U6H09780 09D1 1008 898 | SLA 8 U6H09790 09D2 F600 0C5BR 899 | EOR L2 PB901-1 COMPARE TO BUFFER U6H09800 09D4 4C18 09D9R 900 | BSC L C1030,+- BRANCH ON HIT U6H09810 09D6 71FF 901 | MDX 1 -1 U6H09820 09D7 70F6 902 | MDX C1020 CONTINUE SCAN U6H09830 09D8 7015 903 | MDX C1070 CHARACTER NOT FOUND U6H09840 09D9 C500 0C4AR 904 | C1030 LD L1 PB900-2 GET TABLE VALUE U6H09850 09DB 1008 905 | SLA 8 REMOVE EBCDIC U6H09860 09DC 1808 906 | SRA 8 U6H09870 09DD D600 0C5BR 907 | STO L2 PB901-1 STORE DEC. EQUIV. U6H09880 09DF 72FF 908 | MDX 2 -1 U6H09890 09E0 70EC 909 | MDX C1010 U6H09900 09E1 6204 910 | LDX 2 4 INITIALIZE IR-1 U6H09910 09E2 1884 911 | C1040 SRT 4 SHIFT DIGITS TO RIGHT U6H09920 09E3 C600 0C5BR 912 | LD L2 PB901-1 GET DECIMAL DIGITS U6H09930 09E5 72FF 913 | MDX 2 -1 U6H09940 09E6 70FB 914 | MDX C1040 U6H09950 09E7 108C 915 | SLT 12 POSITION DECIMAL VALUE U6H09960 09E8 6500 0000 916 | C1050 LDX L1 *-* RESTORE IR-1 U6H09970 09EA 6600 0000 917 | C1060 LDX L2 *-* RESTORE IR-2 U6H09980 09EC 4C80 09BCR 918 | BSC I C1000 RETURN TO MAINLINE U6H09990 09EE 4400 0A58R 919 | C1070 BSI L EO010 INVALID EBCDIC CHAR. U6H10000 PACKR 09F0 70F7 921 | MDX C1050 EXIT U6H10020 922 | * U6H10030 923 | * SUBROUTINE TO GET 4 UNPACKED EBCDIC U6H10040 924 | * CHARACTERS FROM THE MCRA BUFFER U6H10050 925 | * AND PACK THEM IN A AND Q. IR-1 U6H10060 926 | * MUST CONTAIN THE CARD COLUMN OF U6H10070 927 | * THE LOW ORDER DIGIT. U6H10080 928 | * U6H10090 09F1 0000 929 | PK000 DC 0 ENTRY LINK U6H10100 09F2 C500 0FAE 930 | LD L1 CDBUF-2 GET EBCDIC CHAR. 2 U6H10110 09F4 1008 931 | SLA 8 U6H10120 09F5 ED00 0FAF 932 | OR L1 CDBUF-1 GET EBCDIC CHAR. 1 U6H10130 09F7 18D0 933 | RTE 16 PUT 2 CHARS. IN Q U6H10140 09F8 C500 0FAC 934 | LD L1 CDBUF-4 GET EBCDIC CHAR. 4 U6H10150 09FA 1008 935 | SLA 8 U6H10160 09FB ED00 0FAD 936 | OR L1 CDBUF-3 GET EBCDIC CHAR. 3 U6H10170 09FD 4C80 09F1R 937 | BSC I PK000 RETURN TO MAINLINE U6H10180 HEXDATA-BINARY-CONVERSION 939 | * U6H10200 940 | * SUBROUTINE TO CONVERT HEX DATA CARD U6H10210 941 | * IN CDBUF TO BINARY RECORD IN BINBF U6H10220 942 | * AND CHECK ITS VALIDITY U6H10230 943 | * U6H10240 09FF 0000 944 | C2000 DC 0 ENTRY LINK U6H10250 945 | * U6H10260 946 | * FOLLOWING CODE SCANS FROM TOP OF U6H10270 947 | * MCRA BACK TO FIRST NON-BLANK CHAR. U6H10280 948 | * U6H10290 0A00 6148 949 | LDX 1 72 INITIALIZE IR-1 2-1 U6H10300 0A01 C400 00AFR 950 | C2010 LD L H0040 GET BLANK CHAR. U6H10310 0A03 F500 0FAF 951 | EOR L1 CDBUF-1 COMPARE TO INPUT BUFFER U6H10320 0A05 4C20 0A09R 952 | BSC L C2020,Z BRANCH IF NOT BLANK U6H10330 0A07 71FF 953 | MDX 1 -1 U6H10340 0A08 70F8 954 | MDX C2010 U6H10350 0A09 6D00 00B5R 955 | C2020 STX L1 DVDND SAVE CARD COL. U6H10360 956 | * U6H10370 0A0B 4400 0A34R 957 | BSI L TE000 TEST VALIDITY OF DATA U6H10380 0A0D 6104 958 | C2030 LDX 1 4 CARD COL. 4 IN IR-1 U6H10390 0A0E 4400 09F1R 959 | BSI L PK000 GET EBCDIC IN A AND Q U6H10400 0A10 4400 09BCR 960 | BSI L C1000 CONVERT TO BINARY U6H10410 0A12 D400 07C3R 961 | STO L BINBF STORE ADDRESS U6H10420 0A14 1010 962 | SLA 16 CLEAR ACCUMULATOR U6H10430 0A15 6108 963 | LDX 1 8 U6H10440 0A16 D500 07C3R 964 | C2040 STO L1 BINBF ZERO WORDS 2-9 U6H10450 0A18 71FF 965 | MDX 1 -1 U6H10460 0A19 70FC 966 | MDX C2040 U6H10470 0A1A C400 00B5R 967 | C2050 LD L DVDND GET LAST DATA CARD COL. U6H10480 0A1C 8400 00ACR 968 | A L DEC01 ADD ONE U6H10490 0A1E 1890 969 | SRT 16 POSITION DIVIDEND U6H10500 0A1F AC00 00AER 970 | D L DEC05 DIVIDE BY 5 U6H10510 0A21 9400 00ACR 971 | S L DEC01 SUBTRACT 1 U6H10520 0A23 EC00 00B0R 972 | OR L H0A00 ADD TYPE CODE U6H10530 0A25 D400 07C5R 973 | STO L BINBF+2 STORE TYPE AND COUNT U6H10540 0A27 620D 974 | LDX 2 13 MAX NUMBER HEX WORD 2-1 U6H10550 0A28 6145 975 | LDX 1 69 LAST ALLOWED COLUMN 2-1 U6H10560 0A29 4400 09F1R 976 | C2060 BSI L PK000 GET EBCDIC IN A AND Q U6H10570 0A2B 4400 09BCR 977 | BSI L C1000 CONVERT TO BINARY U6H10580 0A2D D600 07CBR 978 | STO L2 BINBF+8 STORE IN BIN BUFFER U6H10590 0A2F 71FB 979 | MDX 1 -5 U6H10600 0A30 72FF 980 | MDX 2 -1 U6H10610 0A31 70F7 981 | MDX C2060 U6H10620 0A32 4C80 09FFR 982 | BSC I C2000 RETURN TO MAINLINE U6H10630 HEXDATACARD-TEST 984 | * U6H10650 985 | * SUBROUTINE TO TEST HEX DATA CARD U6H10660 986 | * VALIDITY. 4 HEX FOLLOWED BY BLANK U6H10670 987 | * AND SO ON. IR-1 MUST CONTAIN U6H10680 988 | * THE CARD COL. OF LOW ORDER DIGIT. U6H10690 989 | * U6H10700 0A34 0000 990 | TE000 DC 0 ENTRY LINK U6H10710 0A35 6204 991 | TE010 LDX 2 4 U6H10720 0A36 6E00 00B3R 992 | STX L2 CTR04 SET TO COUNT 4 DIGITS U6H10730 0A38 6210 993 | TE020 LDX 2 16 SET IR-2 WITH TABLE COUNT U6H10740 0A39 C600 0C4BR 994 | TE030 LD L2 PB900-1 GET TABLE CHARACTER U6H10750 0A3B 1808 995 | SRA 8 U6H10760 0A3C F500 0FAF 996 | TE040 EOR L1 CDBUF-1 COMPARE TO INPUT DIGIT U6H10770 0A3E 4C18 0A44R 997 | BSC L TE050,+- BRANCH ON HIT U6H10780 0A40 72FF 998 | MDX 2 -1 DECR. TABLE POINTER U6H10790 0A41 70F7 999 | MDX TE030 U6H10800 0A42 4400 0A7FR 1000 | BSI L EO030 BRANCH IF NOT IN TABLE U6H10810 0A44 71FF 1001 | TE050 MDX 1 -1 MOVE ONE CARD COL. U6H10820 0A45 7005 1002 | MDX TE060 U6H10830 0A46 74FF 00B3R 1003 | MDX L CTR04,-1 LAST HEX CHAR. OF 4 2-1 U6H10840 0A48 700D 1004 | MDX TE070 NO U6H10850 0A49 4C80 0A34R 1005 | BSC I TE000 YES, BACK TO HXB00 U6H10860 0A4B 74FF 00B3R 1006 | TE060 MDX L CTR04,-1 SKIP ON 4 TH REDUCTION U6H10870 0A4D 70EA 1007 | MDX TE020 U6H10880 0A4E C400 00AFR 1008 | LD L H0040 GET HEX BLANK CHAR. U6H10890 0A50 F500 0FAF 1009 | EOR L1 CDBUF-1 COMPARE TO CARD COL. U6H10900 0A52 4420 0A7FR 1010 | BSI L EO030,Z BRANCH ON NON BLANK U6H10910 0A54 71FF 1011 | MDX 1 -1 MOVE ONE CARD COL. U6H10920 0A55 70DF 1012 | MDX TE010 U6H10930 0A56 4400 0A7FR 1013 | TE070 BSI L EO030 FIRST CHAR. A BLANK U6H10940 ERROR ROUTINES 1015 | * U6H10960 1016 | * ERROR ROUTINES U6H10970 1017 | * U6H10980 0A58 0000 1018 | EO010 DC 0 ENTRY LINK ERROR 1 U6H10990 0A59 10A0 1019 | SLT 32 CLEAR A AND Q U6H11000 0A5A 6101 1020 | LDX 1 1 GET ERROR NUMBER U6H11010 0A5B 404F 1021 | BSI EO005 PRINT ERROR MSG. U6H11020 0A5C 3000 1022 | WAIT U6H11030 0A5D 403D 1023 | BSI EO000 GET BIT SWITCH READING U6H11040 0A5E 4810 1024 | BSC - SKIP IF SWITCH 0 ON U6H11050 0A5F 7001 1025 | MDX EO011 U6H11060 0A60 7040 1026 | MDX EO003 EXIT TO SUP U6H11070 0A61 4C00 0197R 1027 | EO011 BSC L MO615 GO TO READ NEW HEADER U6H11080 1028 | * U6H11090 0A63 0000 1029 | EO020 DC 0 ENTRY LINK ERROR 2 U6H11100 0A64 18D0 1030 | RTE 16 SAVE CKSUM DIFFERENCE U6H11110 0A65 C400 09B9R 1031 | LD L CE910 GET RECORD COUNT +1 U6H11120 0A67 9400 09BBR 1032 | S L CE930 COMPUTE NUMBER OF 2-2 U6H11130 0A69 8400 09B8R 1033 | A L CE900 *PROCESSED RECORDS 2-2 U6H11140 0A6B 18D0 1034 | RTE 16 SWAP A AND Q U6H11150 0A6C 6102 1035 | LDX 1 2 GET ERROR NUMBER U6H11160 0A6D 403D 1036 | BSI EO005 PRINT ERROR MSG. U6H11170 0A6E 3000 1037 | WAIT U6H11180 0A6F 402B 1038 | BSI EO000 GET BIT SWITCH READING U6H11190 0A70 4804 1039 | BSC E NO SKIP IF 15 ON U6H11200 0A71 7003 1040 | MDX EO021 U6H11210 0A72 4810 1041 | BSC - SKIP IF SWITCH 0 ON U6H11220 0A73 7009 1042 | MDX EO022 U6H11230 0A74 702C 1043 | MDX EO003 EXIT TO SUP U6H11240 0A75 C400 09B9R 1044 | EO021 LD L CE910 2-7 U6H11242 0A77 9400 09B8R 1045 | S L CE900 2-7 U6H11244 0A79 D400 09B9R 1046 | STO L CE910 RESET RECORD COUNT 2-7 U6H11246 0A7B 4C00 0173R 1047 | BSC L MO590 REREAD BINARY RECORD 2-7 U6H11250 0A7D 4C00 0197R 1048 | EO022 BSC L MO615 GO TO READ NEW HEADER U6H11260 1049 | * U6H11270 0A7F 0000 1050 | EO030 DC 0 ENTRY LINK ERROR 3 U6H11280 0A80 10A0 1051 | SLT 32 CLEAR A AND Q U6H11290 0A81 6103 1052 | LDX 1 3 GET ERROR NUMBER U6H11300 0A82 4028 1053 | BSI EO005 PRINT ERROR MSG. U6H11310 0A83 3000 1054 | WAIT U6H11320 0A84 4016 1055 | BSI EO000 GET BIT SWITCH READING U6H11330 0A85 4804 1056 | BSC E NO SKIP IF 15 ON U6H11340 0A86 7003 1057 | MDX EO031 U6H11350 0A87 4810 1058 | BSC - SKIP IF SWITCH 0 ON U6H11360 0A88 7003 1059 | MDX EO032 U6H11370 0A89 7017 1060 | MDX EO003 EXIT TO SUP U6H11380 0A8A 4C00 0164R 1061 | EO031 BSC L MO570 RE-READ HEX RECORD U6H11390 0A8C 4C00 0197R 1062 | EO032 BSC L MO615 GO TO READ NEW HEADER U6H11400 1063 | * U6H11410 0A8E 0000 1064 | EO040 DC 0 ENTRY LINK ERROR 4 U6H11420 0A8F CC00 0B9ER 1065 | LDD L CHGLV GET CARD AND DISK LEVELS U6H11430 0A91 18D0 1066 | RTE 16 SWAP A AND Q U6H11440 0A92 6104 1067 | LDX 1 4 GET ERROR NUMBER U6H11450 0A93 4017 1068 | BSI EO005 PRINT ERROR MSG. U6H11460 0A94 3000 1069 | WAIT U6H11470 0A95 4005 1070 | BSI EO000 GET BIT SWITCH READING U6H11480 0A96 4810 1071 | BSC - SKIP IF SWITCH 0 ON U6H11490 0A97 7001 1072 | MDX EO041 U6H11500 0A98 6038 1073 | EXIT EXIT TO SUP U6H11510 0A99 4C00 0197R 1074 | EO041 BSC L MO615 GO READ NEW HEADER U6H11520 1075 | * U6H11530 1076 | * SUBROUTINE TO READ BIT SWITCHES U6H11540 1077 | * AND LOAD ACCUMULATOR WITH READING. U6H11550 1078 | * U6H11560 0A9B 0000 1079 | EO000 DC 0 ENTRY LINK U6H11570 0A9C 0853 1080 | XIO EO907 READ SWITCHES U6H11580 0A9D C002 1081 | LD EO002 GET READING U6H11590 0A9E 4C80 0A9BR 1082 | BSC I EO000 RETURN U6H11600 0AA0 1083 | BSS E 0 U6H11610 0AA0 0000 1084 | EO002 DC *-* BIT READING U6H11620 1085 | * U6H11630 1086 | * SET $NDUP AND $NXEQ SWITCHES - EXIT U6H11640 1087 | * U6H11650 0AA1 C0FF 1088 | EO003 LD *-1 GET NON-ZERO U6H11660 0AA2 D400 0034 1089 | STO L $NDUP SET NO DUP SW. U6H11670 0AA4 D400 0035 1090 | STO L $NXEQ SET NO XEQ. SW. U6H11680 0AA6 6038 1091 | EXIT EXIT TO SUP U6H11690 1092 | * U6H11700 1093 | * U6H11710 1094 | * SET NO READ SWITCH AND EXIT U6H11720 1095 | * U6H11730 0AA7 C0FF 1096 | EO004 LD *-1 GET NON-ZERO U6H11740 0AA8 D400 000F 1097 | STO L $CTSW SET SWITCH U6H11750 0AAA 6038 1098 | EXIT EXIT TO SUP U6H11760 1099 | * SUBROUTINE TO PRINT ERROR MESSAGES. U6H11770 1100 | * ERROR FLAGS ARE IN A AND Q. ERROR U6H11780 1101 | * NUMBER IS IN IR-1. U6H11790 1102 | * U6H11800 0AAB 0000 1103 | EO005 DC 0 ENTRY LINK U6H11810 0AAC 691C 1104 | STX 1 EO902 SAVE ERROR NUMBER U6H11820 0AAD D822 1105 | STD EO904 SAVE ERROR FLAGS U6H11830 0AAE 4400 0C1CR 1106 | BSI L PB000 CONVERT FLAG 1 U6H11840 0AB0 D81B 1107 | STD EO903 STORE EBCDIC U6H11850 0AB1 C01F 1108 | LD EO904+1 GET FLAG 2 U6H11860 0AB2 4400 0C1CR 1109 | BSI L PB000 CONVERT U6H11870 0AB4 D81B 1110 | STD EO904 STORE EBCDIC U6H11880 0AB5 C013 1111 | LD EO902 GET ERROR NUMBER U6H11890 0AB6 100C 1112 | SLA 12 MOVE BITS TO LEFT OF A U6H11900 0AB7 4400 0C1CR 1113 | BSI L PB000 CONVERT U6H11910 0AB9 18D8 1114 | RTE 24 SAVE VALUE U6H11920 0ABA C009 1115 | LD EO900 GET BLANK U6H11930 0ABB 18C8 1116 | RTE 8 POSITION VALUE U6H11940 0ABC D00C 1117 | STO EO902 STORE EBCDIC U6H11950 0ABD 6600 0AC6R 1118 | LDX L2 EO901 GET ERROR MSG. ADDRESS U6H11960 0ABF 610C 1119 | LDX 1 12 GET WORD COUNT U6H11970 0AC0 4400 0C61R 1120 | BSI L PU000 U6H11980 0AC2 4C80 0AABR 1121 | BSC I EO005 RETURN TO MAINLINE U6H11990 0AC4 4000 1122 | EO900 DC /4000 U6H12000 0AC6 1123 | BSS E 0 U6H12010 0AC6 C5D9 D9D6 D940 1124 | EO901 EBC .ERROR . U6H12020 0AC9 0000 1125 | EO902 DC *-* ERROR NUMBER U6H12030 0ACA 4040 4040 1126 | EBC . . BLANKS U6H12040 0ACC 1127 | EO903 BSS 2 ERROR FLAG 1 U6H12050 0ACE 4040 4040 1128 | EBC . . U6H12060 0AD0 1129 | EO904 BSS 2 ERROR FLAG 2 U6H12070 0AD2 1130 | BSS E 1 U6H12080 0AD3 0000 1131 | EO905 DC 0 PRINT WORD COUNT U6H12090 0AD4 1132 | EO906 BSS 28 PRINT BUFFER U6H12100 0AF0 0AA0R 1133 | EO907 DC EO002 IOCC TO READ SWITCHES U6H12110 0AF1 3A00 1134 | DC /3A00 U6H12120 0AF2 7014 1135 | EO908 MDX X MO610-MO600-1 NO PATCH SWITCH U6H12130 1136 | * U6H12140 0AF3 0000 1137 | EO050 DC 0 ENTRY LINK ERROR 5 U6H12150 0AF4 CC00 0B9ER 1138 | LDD L CHGLV GET CARD AND DISK LEVELS U6H12160 0AF6 18D0 1139 | RTE 16 SWAP A AND Q U6H12170 0AF7 6105 1140 | LDX 1 5 GET ERROR NUMBER U6H12180 0AF8 40B2 1141 | BSI EO005 PRINT ERROR MSG. U6H12190 0AF9 3000 1142 | WAIT U6H12200 0AFA 40A0 1143 | BSI EO000 GET BIT SWITCH READING U6H12210 0AFB 4828 1144 | BSC +Z SKIP IF SWITCH 0 OFF 2-7 U6H12220 0AFC 7004 1145 | MDX EO051 U6H12230 0AFD 4804 1146 | BSC E SKIP IF 15 OFF U6H12240 0AFE 7003 1147 | MDX EO052 U6H12250 0AFF 4C00 0197R 1148 | BSC L MO615 GO READ NEW HEADER U6H12260 0B01 6038 1149 | EO051 EXIT EXIT TO SUP U6H12270 0B02 4C00 010DR 1150 | EO052 BSC L MO520 CONTINUE EXECUTION U6H12280 1151 | * U6H12290 0B04 0000 1152 | EO060 DC 0 ENTRY LINK ERROR 6 U6H12300 0B05 1090 1153 | SLT 16 CLEAR Q U6H12310 0B06 C400 00A7R 1154 | LD L PCHCT GET PCH. HEADER COUNT 2-1 U6H12320 0B08 6106 1155 | LDX 1 6 GET ERROR NUMBER U6H12330 0B09 40A1 1156 | BSI EO005 PRINT ERROR MSG. U6H12340 0B0A 3000 1157 | WAIT U6H12350 0B0B 408F 1158 | BSI EO000 GET BIT SWITCH READING U6H12360 0B0C 4810 1159 | BSC - SKIP IF SWITCH 0 ON U6H12370 0B0D 7001 1160 | MDX EO061 U6H12380 0B0E 7098 1161 | MDX EO004 EXIT TO SUP U6H12390 0B0F 1010 1162 | EO061 SLA 16 RESET $CTSW 2-7 U6H12396 0B10 D400 000F 1163 | STO L $CTSW *INDICATOR 2-7 U6H12398 0B12 4C00 0197R 1164 | BSC L MO615 GO READ NEW HEADER U6H12400 1165 | * U6H12410 0B14 0000 1166 | EO070 DC 0 ENTRY LINK ERROR 7 U6H12420 0B15 18D0 1167 | RTE 16 SAVE A U6H12430 0B16 C0FD 1168 | LD EO070 GET RETURN ADDRESS U6H12440 0B17 18D0 1169 | RTE 16 SWAP A AND Q U6H12450 0B18 6107 1170 | LDX 1 7 GET ERROR NUMBER U6H12460 0B19 4091 1171 | BSI EO005 PRINT ERROR MSG. U6H12470 0B1A 3000 1172 | WAIT U6H12480 1173 | * REDUNDANT CODING REMOVED 2-7 U6H12490 0B1B 7085 1174 | MDX EO003 EXIT TO SUP U6H12520 1175 | * U6H12540 0B1C 0000 1176 | EO090 DC 0 ENTRY LINK ERROR 9 U6H12550 0B1D 18D0 1177 | RTE 16 SAVE SLET ID U6H12560 0B1E 1010 1178 | SLA 16 CLEAR A U6H12570 0B1F 18D0 1179 | RTE 16 SWAP A AND Q U6H12580 0B20 6109 1180 | LDX 1 9 GET ERROR NUMBER U6H12590 0B21 4089 1181 | BSI EO005 PRINT ERROR MSG. U6H12600 0B22 3000 1182 | WAIT U6H12610 0B23 C0CE 1183 | LD EO908 GET DISK SWITCH PATCH U6H12620 0B24 D400 0177R 1184 | STO L MO600 SET NO PATCH SWITCH U6H12630 0B26 4C80 0B1CR 1185 | BSC I EO090 RETURN TO MAINLINE U6H12640 1186 | * U6H12650 0B28 0000 1187 | EO100 DC 0 ENTRY LINK ERROR A U6H12660 0B29 8400 0CB5R 1188 | A L CL920 CALC. HI CORE SLET ADDR. U6H12670 0B2B 18D0 1189 | RTE 16 SAVE IN Q U6H12680 0B2C C400 0CB5R 1190 | LD L CL920 GET HI CORE PATCH ADDR. U6H12690 0B2E 610A 1191 | LDX 1 /A GET ERROR NUMBER U6H12700 0B2F 4400 0AABR 1192 | BSI L EO005 PRINT ERROR MSG. U6H12710 0B31 3000 1193 | WAIT U6H12720 0B32 C0BF 1194 | LD EO908 GET DISK SWITCH PATCH U6H12730 0B33 D400 0177R 1195 | STO L MO600 SET NO PATCH SWITCH U6H12740 0B35 4C00 018CR 1196 | BSC L MO610 RETURN TO MAINLINE U6H12750 1197 | * 2-2 U6H12760 0B37 0000 1198 | EO120 DC *-* ENTRY POINT ERROR C 2-2 U6H12770 0B38 CC00 0B9ER 1199 | LDD L CHGLV GET CARD AND DISK LEV 2-2 U6H12780 0B3A 18D0 1200 | XCH SWAP A AND Q 2-2 U6H12790 0B3B 610C 1201 | LDX 1 12 GET ERROR NUMBER 2-2 U6H12800 0B3C 4400 0AABR 1202 | BSI L EO005 PRINT ERROR MESSAGE 2-2 U6H12810 0B3E 3000 1203 | WAIT 2-2 U6H12820 0B3F 6038 1204 | EXIT TERMINATE MODIF JOB 2-2 U6H12830 1205 | * 2-2 U6H12840 0B40 0000 1206 | EO130 DC *-* ENTRY POINT ERROR D 2-2 U6H12850 0B41 CC00 0B9ER 1207 | LDD L CHGLV GET CARD AND DISK LEV 2-2 U6H12860 0B43 18D0 1208 | XCH SWAP A AND Q 2-2 U6H12870 0B44 610D 1209 | LDX 1 13 GET ERROR NUMBER 2-2 U6H12880 0B45 4400 0AABR 1210 | BSI L EO005 PRINT ERROR MESSAGE 2-2 U6H12890 0B47 3000 1211 | WAIT 2-2 U6H12900 0B48 6038 1212 | EXIT TERMINATE MODIF 2-2 U6H12910 1213 | * 2-2 U6H12920 0B49 0000 1214 | EO140 DC *-* ENTRY POINT ERROR E 2-2 U6H12930 0B4A 10A0 1215 | SLT 32 CLEAR A AND Q 2-2 U6H12940 0B4B 610E 1216 | LDX 1 14 GET ERROR NUMBER 2-2 U6H12950 0B4C 4400 0AABR 1217 | BSI L EO005 PRINT ERROR MESSAGE 2-2 U6H12960 0B4E 3000 1218 | WAIT 2-2 U6H12970 0B4F 6038 1219 | EXIT TERMINATE MODIF 2-2 U6H12980 DUP RE-ENTRY 1221 | * U6H13000 1222 | * THE CODE BEYOND THIS POINT OCCUPIES U6H13010 1223 | * 640 WORDS (2 SECTORS) AND IS LOCATED U6H13020 1224 | * JUST BELOW THE MCRA BUFFER. DUP U6H13030 1225 | * WILL RELOAD THIS SECTION OF MODIF U6H13040 1226 | * INTO CORE BEFORE TRANSFERRING U6H13050 1227 | * CONTROL TO THE FIRST INSTRUCTION U6H13060 1228 | * BEYOND THIS POINT. U6H13070 1229 | * U6H13080 1230 | * U6H13090 0B50 1231 | BSS E 0 U6H13100 0B50 C849 1232 | RY000 LDD PRENT GET WD. CNT. AND SECT. AD. U6H13110 0B51 DC00 01FCR 1233 | STD L PRNTR-2 STORE U6H13120 0B53 C848 1234 | LDD DISKR GET DISKZ PARAMETERS U6H13130 0B54 4400 00F2 1235 | BSI L DISKZ GET PRINC. PRINT ROUTINE U6H13140 0B56 6500 0BA3R 1236 | LDX L1 IBTWD-1 GET IBT ADDRESS U6H13170 0B58 6D00 00D4 1237 | STX L1 IBT40 STORE U6H13180 0B5A 6500 7000 1238 | LDX L1 /7000 GET READ FUNCTION U6H13190 0B5C 4400 0C09R 1239 | BSI L R4500 READ IN DCOM U6H13200 0B5E C400 060CR 1240 | LD L #MDF2 GET DCOM MDF2 IND. U6H13210 0B60 4820 1241 | BSC Z TEST FOR ZERO U6H13220 0B61 3000 1242 | WAIT ERROR - DUP SHOULD CLEAR U6H13230 0B62 C400 060BR 1243 | LD L #MDF1 GET DCOM MDF1 IND. U6H13240 0B64 1008 1244 | SLA 8 CHECK IF RIGHT HALF 2-7 U6H13241 0B65 4C10 0B6CR 1245 | BSC L RY050,- *OF MDF1 NEG. BRANCH 2-7 U6H13242 0B67 180F 1246 | SRA 15 *IF NO. 2-7 U6H13243 0B68 1008 1247 | SLA 8 IF YES, ADD ONE TO 2-7 U6H13244 0B69 8400 060BR 1248 | A L #MDF1 *LEFT HALF OF MDF1. 2-7 U6H13245 0B6B 7002 1249 | MDX *+2 2-7 U6H13246 0B6C C400 060BR 1250 | RY050 LD L #MDF1 2-7 U6H13247 0B6E D032 1251 | STO MDF20 SAVE U6H13250 0B6F 4420 0BD0R 1252 | BSI L EO080,Z BRANCH ON NON-ZERO U6H13260 1253 | * U6H13270 1254 | * U6H13280 1255 | * U6H13290 1256 | * EXIT ROUTINE U6H13300 1257 | * U6H13310 1258 | * ROUTINE TO TEST FOR A // DEND CARD U6H13320 1259 | * U6H13330 0B71 6107 1260 | RY100 LDX 1 7 U6H13340 0B72 C500 0FAF 1261 | RY110 LD L1 CDBUF-1 GET CARD CHARACTER U6H13350 0B74 F500 0BACR 1262 | EOR L1 RY900-1 COMPARE TO TABLE U6H13360 0B76 4420 0BDFR 1263 | BSI L EO110,Z BRANCH IF NON-ZERO U6H13370 0B78 71FF 1264 | MDX 1 -1 U6H13380 0B79 70F8 1265 | MDX RY110 U6H13390 0B7A C027 1266 | LD TPFIX GET TEMP FIX INDIC 2-2 U6H13400 0B7B 4C18 0B80R 1267 | BZ RY120 BR IF SYSTEM UPDATE 2-2 U6H13410 0B7D C400 0606R 1268 | LD L #SYSC OTHERWISE DO NOT UPDATE2-2 U6H13420 0B7F 7003 1269 | B RY125 *DCOM 2-2 U6H13430 0B80 C01D 1270 | RY120 LD CHGLV GET NEW CHANGE LEVEL U6H13440 0B81 D400 0606R 1271 | STO L #SYSC UPDATE DCOM U6H13450 0B83 4400 0C1CR 1272 | RY125 BSI L PB000 CONVERT TO EBCDIC 2-2 U6H13460 0B85 D838 1273 | STD RY920 STORE IN EXIT MSG. U6H13470 0B86 1010 1274 | SLA 16 CLEAR A U6H13480 0B87 D400 000F 1275 | STO L $CTSW RESET SUP NO READ SW. U6H13490 0B89 1010 1276 | RY130 SLA 16 CLEAR MODIF INDICATORS U6H13500 0B8A D400 060BR 1277 | STO L #MDF1 U6H13510 0B8C D400 060CR 1278 | STO L #MDF2 U6H13520 0B8E 6500 7001 1279 | LDX L1 /7001 GET WRITE FUNCTION U6H13530 0B90 4400 0C09R 1280 | BSI L R4500 WRITE DCOM ON DISK U6H13540 0B92 6600 0BB4R 1281 | LDX L2 RY910 GET EXIT MSG. ADDRESS U6H13550 0B94 610C 1282 | LDX 1 12 GET WORD COUNT U6H13560 0B95 4400 0C61R 1283 | BSI L PU000 U6H13570 0B97 1000 1284 | NOP U6H13580 0B98 1000 1285 | NOP END OF MODIF EXECUTION U6H13590 0B99 6038 1286 | EXIT RETURN CONTROL TO SUP U6H13600 1287 | * U6H13610 1288 | * CONSTANTS AND MESSAGES U6H13620 1289 | * U6H13630 0B9A 1290 | PRENT BSS E 2 PRINC PRNT SLET ENTRY U6H13640 0B9C 7000 1291 | DISKR DC /7000 DISKZ READ FUNCTION U6H13650 0B9D 01FCR 1292 | DC PRNTR-2 WORD COUNT ADDR. U6H13660 0B9E 0000 1293 | CHGLV DC 0 CHANGE LEVEL (IN CARD) U6H13670 0B9F 0000 1294 | VMODH DC 0 VERSION MOD NUMBER IN HEX U6H13680 0BA0 0000 1295 | MDF10 DC 0 NUMBER DCRS FROM *SUB-CARD U6H13690 0BA1 0000 1296 | MDF20 DC 0 LEFT HALF, ERROR COUNT 2-7 U6H13700 1297 | * RIGHT HALF, DCRS NOT 2-7 U6H13705 1298 | * *PROCESSED BY DUP 2-7 U6H13710 0BA2 FFFF 1299 | TPFIX DC -1 TEMP FIX INDICATOR 2-2 U6H13720 1300 | * *NEG=NOT YET SET 2-2 U6H13730 1301 | * *ZERO=SYSTEM UPDATE 2-2 U6H13740 1302 | * *ONE=RESTRICTED TEMP FI2-2 U6H13750 1303 | * *TWO=GENERAL TEMP FIX 2-2 U6H13760 0BA4 1304 | IBTWD BSS E 3 U6H13770 0BA7 0000 1305 | DC 0 1231 INT ENTRY U6H13780 0BA8 0202R 1306 | DC PRNTR+4 1403 INT ENTRY U6H13790 0BA9 0330R 1307 | DC CDPTR+4 2501 INT ENTRY U6H13800 0BAA 0330R 1308 | DC CDPTR+4 1442 INT ENTRY U6H13810 0BAB 0000 1309 | DC 0 KB/CP INT ENTRY U6H13820 0BAC 0330R 1310 | DC CDPTR+4 1134/1055 INT ENTRY U6H13830 0BAD 0061 1311 | RY900 DC /61 / U6H13840 0BAE 0061 1312 | DC /61 / U6H13850 0BAF 0040 1313 | DC /40 BLANK U6H13860 0BB0 00C4 1314 | DC /C4 D U6H13870 0BB1 00C5 1315 | DC /C5 E U6H13880 0BB2 00D5 1316 | DC /D5 N U6H13890 0BB3 00C4 1317 | DC /C4 D U6H13900 1318 | * U6H13910 1319 | * MESSAGES U6H13920 1320 | * U6H13930 0BB4 1321 | BSS E 0 U6H13940 0BB4 D4D6 C4C9 C640 C3D6 1322 | RY910 EBC .MODIF COMPLETED . 2-12 U6H13950 D4D7 D3C5 E3C5 C440 | 4040 4040 | 0BBE 1323 | RY920 BSS E 2 U6H13960 0BC0 C5D9 D9D6 D940 F840 1324 | RY930 EBC .ERROR 8 . U6H13970 4040 4040 | 0BC6 1325 | RY940 BSS E 2 U6H13980 0BC8 4040 4040 1326 | EBC . . U6H13990 0BCA 1327 | RY950 BSS 2 U6H14000 0BCC C5D9 D9D6 D940 C240 1328 | RY960 EBC .ERROR B . U6H14010 1329 | * U6H14020 1330 | * ERROR SUBROUTINES U6H14030 1331 | * U6H14040 0BD0 0000 1332 | EO080 DC 0 ENTRY LINK ERROR 8 U6H14050 0BD1 C0CE 1333 | LD MDF10 GET DCR COUNT U6H14060 0BD2 4049 1334 | BSI PB000 CONVERT TO EBCDIC U6H14070 0BD3 D8F6 1335 | STD RY950 SET UP FOR ERROR MSG. U6H14080 0BD4 C0CC 1336 | LD MDF20 GET DUP ERROR IND. U6H14090 0BD5 4046 1337 | BSI PB000 CONVERT TO EBCDIC U6H14100 0BD6 D8EF 1338 | STD RY940 SET UP FOR ERROR MSG. U6H14110 0BD7 6600 0BC0R 1339 | LDX L2 RY930 GET ERROR MSG. ADDRESS U6H14120 0BD9 610C 1340 | LDX 1 12 GET WORD COUNT U6H14130 0BDA 4400 0C61R 1341 | BSI L PU000 U6H14140 0BDC 3000 1342 | WAIT U6H14150 0BDD 4C80 0BD0R 1343 | BSC I EO080 RETURN U6H14160 1344 | * U6H14170 0BDF 0000 1345 | EO110 DC 0 ENTRY LINK ERROR B U6H14180 0BE0 6600 0BCCR 1346 | LDX L2 RY960 GET ERROR MSG. ADDR. U6H14190 0BE2 6104 1347 | LDX 1 4 GET WORD COUNT U6H14200 0BE3 4400 0C61R 1348 | BSI L PU000 U6H14210 0BE5 3000 1349 | WAIT U6H14220 0BE6 C0FF 1350 | LD *-1 GET NON- ZERO U6H14230 0BE7 D400 0034 1351 | STO L $NDUP SET NO DUP SW. U6H14240 0BE9 D400 0035 1352 | STO L $NXEQ SET NO XEQ. SW. U6H14250 0BEB 4C00 0B89R 1353 | BSC L RY130 TO EXIT ROUTINE U6H14260 GET/PUT 1355 | * U6H14280 1356 | * SUBROUTINE TO READ OR WRITE FROM U6H14290 1357 | * THE DISK BUFFER (UP TO 2 SECTORS). U6H14300 1358 | * DISKZ FUNCTION (READ OR WRITE) MUST U6H14310 1359 | * BE IN ACCUMULATOR, WORD COUNT IN U6H14320 1360 | * IR-1, AND SECTOR ADDRESS IN IR-2. U6H14330 1361 | * U6H14340 0BED 0000 1362 | R4000 DC 0 ENTRY LINK U6H14350 0BEE 6D00 04BCR 1363 | STX L1 DSKIN-2 STORE WORD COUNT U6H14360 0BF0 6E00 04BDR 1364 | STX L2 DSKIN-1 STORE SECTOR ADDRESS U6H14370 0BF2 18D0 1365 | RTE 16 SAVE ACCUM. U6H14380 0BF3 C027 1366 | LD R4950+1 GET ADDRESS OF WORD COUNT U6H14390 0BF4 18D0 1367 | RTE 16 BUILD DISKZ PARAMETERS U6H14400 0BF5 4400 00F2 1368 | R4010 BSI L DISKZ GET OR PUT U6H14410 0BF7 C400 00EE 1369 | LD L $DBSY U6H14420 0BF9 4C20 0BF7R 1370 | BSC L *-4,Z BRANCH IF BUSY U6H14430 0BFB 081C 1371 | R4020 XIO R4940 READ BIT SWITCHES U6H14440 0BFC C01A 1372 | LD R4930 GET BIT SWITCH KEY U6H14450 0BFD 1000 1373 | NOP EOR R4920 TO PRINT U6H14460 0BFE 4820 1374 | BSC Z SKIP IF EQUAL U6H14470 0BFF 7007 1375 | MDX R4040 U6H14480 0C00 4400 003F 0000 04AER 1376 | R4030 PDMP DSKIN-16,DSKIN+639,0 U6H14490 073DR | 0C05 1000 1377 | NOP U6H14500 0C06 3000 1378 | WAIT U6H14510 0C07 4C80 0BEDR 1379 | R4040 BSC I R4000 RETURN TO MAINLINE U6H14520 1380 | * U6H14530 1381 | * SPECIAL ENTRY TO READ OR WRITE DCOM. U6H14540 1382 | * DISKZ RD/WR FUNCTION MUST BE IN IR-1 U6H14550 1383 | * U6H14560 0C09 0000 1384 | R4500 DC 0 ENTRY LINK U6H14570 0C0A 6907 1385 | STX 1 R4900 STORE DISKZ FUNCTION U6H14580 0C0B C0FD 1386 | LD R4500 GET RETURN ADDRESS U6H14590 0C0C D0E0 1387 | STO R4000 STORE FOR EXIT U6H14600 0C0D C806 1388 | LDD R4910 GET DCOM PARAMETERS U6H14610 0C0E DC00 05FCR 1389 | STD L DSKIN+318 STORE IN DISK BUFFER U6H14620 0C10 C801 1390 | LDD R4900 GET DISKZ FUNCTION U6H14630 0C11 70E3 1391 | MDX R4010 U6H14640 0C12 1392 | R4900 BSS E 1 DISKZ FUNCTION U6H14650 0C13 05FCR 1393 | DC DSKIN+318 U6H14660 0C14 0140 1394 | R4910 DC 320 DCOM WORD COUNT U6H14670 0C15 0001 1395 | DC 1 DCOM SECTOR ADDR. U6H14680 0C16 1396 | R4920 BSS E 1 STORAGE FOR SWITCH READING U6H14690 0C17 AAAA 1397 | R4930 DC /AAAA KEY TO ALLOW PRINTING U6H14700 0C18 0C16R 1398 | R4940 DC R4920 IOCC FOR BIT SWITCHES U6H14710 0C19 3A00 1399 | DC /3A00 U6H14720 0C1A 7000 1400 | R4950 DC /7000 DISKZ READ FUNCTION U6H14730 0C1B 04BCR 1401 | DC DSKIN-2 ADDRESS OF WORD COUNT U6H14740 HEX-EBCDIC-CONVERSION 1403 | * U6H14760 1404 | * SUBROUTINE TO CONVERT WORD IN U6H14770 1405 | * ACCUMULATOR INTO 4 PACKED EBCDIC U6H14780 1406 | * CHARACTERS IN A AND Q. U6H14790 1407 | * U6H14800 0C1C 0000 1408 | PB000 DC 0 LINK ADDRESS U6H14810 0C1D 6928 1409 | STX 1 PB050+1 SAVE IR-1 2-12 U6H14812 0C1E 6A29 1410 | STX 2 PB060+1 SAVE IR-2 2-12 U6H14814 0C1F 18D0 1411 | RTE 16 U6H14820 0C20 6104 1412 | LDX 1 4 SET XR-1 TO COUNT 4 U6H14830 1413 | * U6H14840 0C21 18C4 1414 | PB010 RTE 4 HEX DIGIT IN HI 4 BITS U6H14850 0C22 E03D 1415 | AND PB902 MASK OUT LOW 12 BITS U6H14860 0C23 D500 0C5BR 1416 | STO L1 PB901-1 STORE IN 4 WORD BUFFER U6H14870 0C25 71FF 1417 | MDX 1 -1 DECREMENT XR-1 U6H14880 0C26 70FA 1418 | MDX PB010 U6H14890 1419 | * U6H14900 0C27 6104 1420 | LDX 1 4 SET XR-1 TO COUNT 4 U6H14910 0C28 6210 1421 | PB020 LDX 2 16 SET XR-2 TO COUNT 16 U6H14920 0C29 C600 0C4BR 1422 | PB030 LD L2 PB900-1 GET TABLE WORD U6H14930 0C2B 100C 1423 | SLA 12 U6H14940 0C2C F500 0C5BR 1424 | EOR L1 PB901-1 COMPARE TO BUFFER U6H14950 0C2E 4C18 0C33R 1425 | BSC L PB040,+- TEST FOR EQUAL U6H14960 0C30 72FF 1426 | MDX 2 -1 DECREMENT XR-2 U6H14970 0C31 70F7 1427 | MDX PB030 BACK TO LOOP2 U6H14980 0C32 3000 1428 | WAIT ERROR U6H14990 0C33 C600 0C4BR 1429 | PB040 LD L2 PB900-1 MATCH-GET TABLE WORD U6H15000 0C35 D500 0C5BR 1430 | STO L1 PB901-1 STORE IN BUFFER U6H15010 0C37 71FF 1431 | MDX 1 -1 DECREMENT XR-1 U6H15020 0C38 70EF 1432 | MDX PB020 BACK TO LOOP3 U6H15030 1433 | * U6H15040 1434 | * FOLLOWING CODE PUTS BUFFER U6H15050 1435 | * INTO A AND Q REGISTERS. U6H15060 1436 | * U6H15070 0C39 C023 1437 | LD PB901+1 U6H15080 0C3A 18D0 1438 | RTE 16 U6H15090 0C3B C020 1439 | LD PB901 U6H15100 0C3C 1808 1440 | SRA 8 U6H15110 0C3D 1088 1441 | SLT 8 U6H15120 0C3E D01D 1442 | STO PB901 U6H15130 0C3F C01F 1443 | LD PB901+3 U6H15140 0C40 18D0 1444 | RTE 16 U6H15150 0C41 C01C 1445 | LD PB901+2 U6H15160 0C42 1808 1446 | SRA 8 U6H15170 0C43 18C8 1447 | RTE 8 U6H15180 0C44 C017 1448 | LD PB901 U6H15190 1449 | * U6H15200 0C45 6500 0000 1450 | PB050 LDX L1 *-* RESTORE IR-1 2-12 U6H15202 0C47 6600 0000 1451 | PB060 LDX L2 *-* RESTORE IR-2 2-12 U6H15204 0C49 4C80 0C1CR 1452 | BSC I PB000 RETURN VIA LINK WORD U6H15210 1453 | * U6H15220 1454 | * TABLE EBCDIC (LEFT HALF) HEX (RIGHT HALF) U6H15230 1455 | * U6H15240 0C4B 4000 1456 | DC /4000 BLANK U6H15250 0C4C F000 1457 | PB900 DC /F000 0 U6H15260 0C4D F101 1458 | DC /F101 1 U6H15270 0C4E F202 1459 | DC /F202 2 U6H15280 0C4F F303 1460 | DC /F303 3 U6H15290 0C50 F404 1461 | DC /F404 4 U6H15300 0C51 F505 1462 | DC /F505 5 U6H15310 0C52 F606 1463 | DC /F606 6 U6H15320 0C53 F707 1464 | DC /F707 7 U6H15330 0C54 F808 1465 | DC /F808 8 U6H15340 0C55 F909 1466 | DC /F909 9 U6H15350 0C56 C10A 1467 | DC /C10A A U6H15360 0C57 C20B 1468 | DC /C20B B U6H15370 0C58 C30C 1469 | DC /C30C C U6H15380 0C59 C40D 1470 | DC /C40D D U6H15390 0C5A C50E 1471 | DC /C50E E U6H15400 0C5B C60F 1472 | DC /C60F F U6H15410 0C5C 1473 | PB901 BSS E 4 OUTPUT BUFFER U6H15420 0C60 F000 1474 | PB902 DC /F000 MASK WORD U6H15430 PRINT 1476 | * U6H15450 1477 | * SUBROUTINE TO PRINT MESSAGES. U6H15460 1478 | * WORD COUNT MUST BE IN IR-1 AND CORE U6H15470 1479 | * ADDRESS OF MESSAGE IN IR-2. MESSAGE U6H15480 1480 | * IS IN PACKED EBCDIC AND CONTAINS AN U6H15490 1481 | * EVEN NUMBER OF CHARACTERS. U6H15500 1482 | * U6H15510 0C61 0000 1483 | PU000 DC 0 ENTRY LINK U6H15520 0C62 6D00 0AD3R 1484 | STX L1 EO905 STORE WORD COUNT U6H15530 0C64 72FF 1485 | MDX 2 -1 SUBT. 1 FROM MESSAGE ADDR. U6H15540 0C65 1000 1486 | NOP U6H15550 0C66 6A01 1487 | STX 2 PU010+1 SET UP TRANSMIT ADDRESS U6H15560 0C67 C500 0000 1488 | PU010 LD L1 *-* GET CHARACTERS U6H15570 0C69 D500 0AD3R 1489 | STO L1 EO906-1 STORE IN PRINT BUFFER U6H15580 0C6B 71FF 1490 | MDX 1 -1 DECREMENT COUNT U6H15590 0C6C 70FA 1491 | MDX PU010 U6H15600 0C6D C80A 1492 | LDD PU020 GET SKIP FUNCTION U6H15610 0C6E C400 0C7AR 1493 | LD L PU030 GET PRINT FUNCTION U6H15620 0C70 4400 01FFR 1494 | BSI L PRNTR+1 TO PRINT ROUTINE U6H15630 0C72 C400 0036 1495 | LD L $PBSY TEST PRINTER BUSY U6H15640 0C74 4C20 0C72R 1496 | BSC L *-4,Z BRANCH IF BUSY U6H15650 0C76 4C80 0C61R 1497 | BSC I PU000 RETURN TO MAINLINE U6H15660 0C78 1498 | BSS E 0 U6H15670 0C78 7000 1499 | PU020 DC /7000 SKIP FUNCTION U6H15680 0C79 0AD3R 1500 | DC EO905 ADDRESS OF WORD COUNT U6H15690 0C7A 7001 1501 | PU030 DC /7001 U6H15700 CALCULATE/PERFORM-PATCHING/PRINT 1503 | * 2-12 U6H15720 1504 | * SUBROUTINE TO CALCULATE SECTOR 2-12 U6H15730 1505 | * PATCHING PARAMETERS,SETUP DISKZ 2-12 U6H15740 1506 | * PARAMETERS, AND PUT PATCH IN THE 2-12 U6H15750 1507 | * DISK BUFFER. THE TWO ENTRIES ARE2-12 U6H15760 1508 | * CL000 AND CL500 2-12 U6H15770 1509 | * ** CODE MOVED AND MODIFIED IN 2-12 U6H15772 1510 | * ** VERSION 2, MODIFICATION 12 2-12 U6H15774 1511 | * 2-12 U6H15780 0C7B 0000 1512 | CL000 DC 0 ENTRY LINK 2-12 U6H15790 0C7C C400 07C5R 1513 | LD L BINBF+2 GET WD CNT & TYPE 2-12 U6H15800 0C7E F400 00B0R 1514 | EOR L H0A00 REMOVE TYPE CODE 2-12 U6H15810 0C80 D033 1515 | STO CL910 STORE PATCH WD CNT 2-12 U6H15820 0C81 8400 07C3R 1516 | A L BINBF ADD PATCH CORE ADDR 2-12 U6H15830 0C83 9400 00ACR 1517 | S L DEC01 2-12 U6H15840 0C85 D02F 1518 | STO CL920 SAVE HI PATCH ADDR 2-12 U6H15850 1519 | * 2-12 U6H15860 1520 | * FOLLOWING CODE ROUNDS WORD COUNT 2-12 U6H15870 1521 | * OF SLET ENTRY TO FULL SECTORS. 2-12 U6H15880 1522 | * 2-12 U6H15885 0C86 1090 1523 | CL010 SLT 16 CLEAR Q 2-12 U6H15900 0C87 C400 00BAR 1524 | LD L SNTRY+2 GET WORD COUNT 2-12 U6H15910 0C89 18D0 1525 | RTE 16 SAVE TOTAL WD CNT 2-12 U6H15920 0C8A C400 00BBR 1526 | LD L SNTRY+3 GET SECTOR ADDR 2-12 U6H15930 0C8C 1001 1527 | SLA 1 SHIFT OUT BIT 0 INDR 2-12 U6H15940 0C8D 1801 1528 | SRA 1 *DEVICE NOT ON SYSTEM 2-12 U6H15950 0C8E 18D0 1529 | RTE 16 SWAP A & Q 2-12 U6H15960 0C8F D822 1530 | STD CL900 SAVE DISKZ PARAMS 2-12 U6H15970 1531 | * 2-12 U6H15980 0C90 8400 00B9R 1532 | A L SNTRY+1 ADD SLET CORE ADDR 2-12 U6H15990 0C92 9022 1533 | S CL920 CHECK PATCH LIMIT 2-12 U6H16000 0C93 4428 0B28R 1534 | BSI L EO100,+Z 2-12 U6H16010 0C95 C400 07C3R 1535 | LD L BINBF GET PATCH CORE ADDR 2-12 U6H16020 0C97 D400 0D33R 1536 | STO L CL983 2-12 U6H16025 0C99 9400 00B9R 1537 | S L SNTRY+1 SUBT. SLET CORE ADDR 2-12 U6H16030 0C9B D01A 1538 | STO CL930 SAVE ADDR DIFF 2-12 U6H16040 0C9C 901B 1539 | CL020 S CL950 SUBT. A FULL SECTOR 2-12 U6H16050 0C9D 4828 1540 | BSC +Z NO SKIP-PATCH IN SECTO2-12 U6H16060 0C9E 7003 1541 | MDX CL030 2-12 U6H16070 0C9F 7401 0CB3R 1542 | MDX L CL900+1,1 RAISE SECTOR ADDRESS 2-12 U6H16080 0CA1 70FA 1543 | MDX CL020 TEST AGAIN 2-12 U6H16090 0CA2 8015 1544 | CL030 A CL950 CORRECT ADJ. ADDR 2-12 U6H16100 0CA3 D013 1545 | STO CL940 SAVE ADJUSTED ADDR. 2-12 U6H16110 1546 | * 2-12 U6H16120 1547 | * FOLLOWING CODE CHECKS IF PATCH 2-12 U6H16130 1548 | * OVERLAPS INTO NEXT SECTOR. 2-12 U6H16140 1549 | * 2-12 U6H16150 0CA4 9013 1550 | S CL950 2-12 U6H16160 0CA5 800E 1551 | A CL910 ADD PATCH WORD COUNT 2-12 U6H16170 0CA6 4C08 0CADR 1552 | BSC L CL050,+ BRANCH FOR 1 SECTOR 2-12 U6H16180 1553 | * 2-12 U6H16190 0CA8 C00F 1554 | LD CL950 GET 2 SECTOR WD CNT 2-12 U6H16200 0CA9 1001 1555 | SLA 1 DOUBLE WD CNT 2-12 U6H16210 0CAA D007 1556 | CL040 STO CL900 STORE PARAMETER 2-12 U6H16220 0CAB 4C80 0C7BR 1557 | BSC I CL000 RETURN TO MAINLINE 2-12 U6H16230 0CAD C00A 1558 | CL050 LD CL950 GET 1 SECT.WD CNT 2-12 U6H16240 0CAE 70FB 1559 | MDX CL040 EXIT 2-12 U6H16250 0CAF 1000 1560 | NOP 2-12 U6H16260 0CB0 1000 1561 | NOP 2-12 U6H16270 1562 | * 2-12 U6H16280 0CB2 1563 | CL900 BSS E 2 STORE DISKZ PARAMS 2-12 U6H16290 0CB4 0000 1564 | CL910 DC 0 PATCH WD CNT 2-12 U6H16300 0CB5 0000 1565 | CL920 DC 0 HI PATCH CNT 2-12 U6H16310 0CB6 0000 1566 | CL930 DC 0 ADDR. DIFF. 2-12 U6H16320 0CB7 0000 1567 | CL940 DC 0 HOLDS ADJ. CORE ADDR 2-12 U6H16330 0CB8 0140 1568 | CL950 DC 320 2-12 U6H16340 0CB9 04BER 1569 | CL960 DC DSKIN DISK BUFFER ADDR 2-12 U6H16350 1570 | * 2-12 U6H16360 1571 | * ENTRY TO PRINT PATCH INFORMATION 2-12 U6H16370 1572 | * ON THE CONSOLE PRINTER AND PUT 212 U6H16380 1573 | * PATCH INTO BUFFER 2-12 U6H16390 1574 | * 2-12 U6H16400 1575 | * DATA ENTRY SWITCH SETTINGS 2-12 U6H16410 1576 | * INDICATE THE FOLLOWING- 2-12 U6H16420 1577 | * 1. DURING EXECUTION OF CL500- 2-12 U6H16430 1578 | * SW 1 ON = NO PRINT 2-12 U6H16440 1579 | * SW 1 OFF= PRINT PATCH INFO 2-12 U6H16450 1580 | * 2. AFTER THE PRINTING OF A 2-12 U6H16460 1581 | * MESSAGE AND DURING A WAIT- 2-12 U6H16470 1582 | * SW 0 OFF= EXECUTE PATCH 2-12 U6H16480 1583 | * SW 0 ON = ABORT MODIF JOB 2-12 U6H16490 1584 | * 2-12 U6H16500 0CBA 0000 1585 | CL500 DC *-* ENTRY LINK 2-12 U6H16510 1586 | * 2-12 U6H16520 1587 | * FOLLOWING CODE SETS UP PATCH 2-12 U6H16530 1588 | * INFORMATION WORDS AND CHECKS 2-12 U6H16540 1589 | * OPERATOR INDICATION (SW 1) OF 2-12 U6H16550 1590 | * WHETHER OR NOT PATCH INFO 2-12 U6H16560 1591 | * IS TO BE PRINTED. 2-12 U6H16570 1592 | * 2-12 U6H16580 0CBB 0872 1593 | XIO CL970 READ DATA SWITCHES 2-12 U6H16590 0CBC C073 1594 | LD CL980 GET VALUE IN SW'S 2-12 U6H16600 0CBD 1001 1595 | SLA 1 2-12 U6H16610 0CBE 4C28 0CC5R 1596 | BSC L CL505,Z+ NO PRINT IF SW 1 ON 2-12 U6H16620 0CC0 6112 1597 | LDX 1 18 GET MESSAGE WORD CNT 2-12 U6H16630 0CC1 6600 0D5CR 1598 | LDX L2 MSG01 GET MESSAGE ADDR 2-12 U6H16640 0CC3 4400 0C61R 1599 | BSI L PU000 PRINT PATCH HEADER 2-12 U6H16650 0CC5 C0ED 1600 | CL505 LD CL900+1 GET DISK ADDR 2-12 U6H16660 0CC6 D06A 1601 | STO CL981 2-12 U6H16670 0CC7 C0EF 1602 | LD CL940 GET REL DISP IN SECTOR2-12 U6H16680 0CC8 D069 1603 | STO CL982 2-12 U6H16690 0CC9 6100 1604 | LDX 1 0 SET DISP INTO PATCH 2-12 U6H16700 0CCA 6680 0CB4R 1605 | LDX I2 CL910 GET PATCH WD CNT 2-12 U6H16710 0CCC C0EA 1606 | LD CL940 GET REL PATCH ADDR 2-12 U6H16720 0CCD 80EB 1607 | A CL960 ADD DISK BUFF ADDR 2-12 U6H16730 0CCE D002 1608 | STO CL510+1 2-12 U6H16740 0CCF D00A 1609 | STO CL520+1 2-12 U6H16750 1610 | * 2-12 U6H16760 1611 | * FOLLOWING CODE PLACES PATCH IN 2-12 U6H16770 1612 | * DISK BUFFER,CONVERTS PATCH INFO 2-12 U6H16780 1613 | * WORDS TO PACKED EBCDIC, PLACES 2-12 U6H16790 1614 | * THE PATCH INFO IN THE PRINT 2-12 U6H16800 1615 | * BUFFER (MSG03), CHECKS OPERATOR 2-12 U6H16810 1616 | * INDICATION (SW 1) OF WHETHER OR 2-12 U6H16820 1617 | * NOT PATCH INFO IS TO PRINTED, 2-12 U6H16830 1618 | * AND PRINTS PATCH INFORMATION. 2-12 U6H16840 1619 | * 2-12 U6H16850 0CD0 C500 0000 1620 | CL510 LD L1 *-* GET OLD DATA 2-12 U6H16860 0CD2 4400 0C1CR 1621 | BSI L PB000 CONVERT TO PACKED EBC 2-12 U6H16870 0CD4 D06E 1622 | STO MSG03+13 SAVE IN PR BUFFER 2-12 U6H16880 0CD5 18D0 1623 | RTE 16 2-12 U6H16890 0CD6 D06D 1624 | STO MSG03+14 2-12 U6H16900 0CD7 C500 07CCR 1625 | LD L1 BINBF+9 GET PATCH DATA 2-12 U6H16910 0CD9 D500 0000 1626 | CL520 STO L1 *-* STORE IN DISK BUFFER 2-12 U6H16920 0CDB 4400 0C1CR 1627 | BSI L PB000 CONVERT TO PACKED EBC 2-12 U6H16930 0CDD D868 1628 | STD MSG03+16 SAVE IN PR BUFFER 2-12 U6H16940 0CDE 6928 1629 | STX 1 CL530+1 SAVE DISP INTO PATCH 2-12 U6H16950 0CDF 6A29 1630 | STX 2 CL540+1 SAVE PATCH WD CNT 2-12 U6H16960 0CE0 C050 1631 | LD CL981 GET DISK ADDR OF PATCH2-12 U6H16970 0CE1 4400 0C1CR 1632 | BSI L PB000 CONVERT TO PACKED EBC 2-12 U6H16980 0CE3 D856 1633 | STD MSG03+4 *+ SAVE IN PR BUFFER 2-12 U6H16990 0CE4 C04D 1634 | LD CL982 GET REL. DISP OF PATCH2-12 U6H17000 0CE5 4400 0C1CR 1635 | BSI L PB000 CONVERT TO PACKED EBC 2-12 U6H17010 0CE7 D055 1636 | STO MSG03+7 SAVE IN PR BUFFER 2-12 U6H17020 0CE8 18D0 1637 | RTE 16 2-12 U6H17030 0CE9 D054 1638 | STO MSG03+8 2-12 U6H17040 0CEA C048 1639 | LD CL983 GET CORE ADDR OF PATCH2-12 U6H17050 0CEB 4400 0C1CR 1640 | BSI L PB000 CONVERT TO PACKED EBC 2-12 U6H17060 0CED D852 1641 | STD MSG03+10 SAVE IN PR BUFFER 2-12 U6H17070 0CEE 083F 1642 | XIO CL970 READ DATA SWITCHES 2-12 U6H17080 0CEF C040 1643 | LD CL980 GET VALUE IN SW'S 2-12 U6H17090 0CF0 1001 1644 | SLA 1 2-12 U6H17100 0CF1 4C28 0CF8R 1645 | BSC L CL525,Z+ NO PRINT IF SW 1 ON 2-12 U6H17110 0CF3 6112 1646 | LDX 1 18 GET MESSAGE WD CNT 2-12 U6H17120 0CF4 6600 0D36R 1647 | LDX L2 MSG03 GET MESSAGE ADDR 2-12 U6H17130 0CF6 4400 0C61R 1648 | BSI L PU000 PRINT PATCH INFO 2-12 U6H17140 0CF8 7401 0D33R 1649 | CL525 MDX L CL983,+1 INCR PATCH CORE ADDR 2-12 U6H17150 0CFA 1000 1650 | NOP IN CASE OF SKIP 2-12 U6H17160 0CFB C036 1651 | LD CL982 GET REL DISP 2-12 U6H17170 0CFC 8037 1652 | A CL990 INCR BY +1 2-12 U6H17180 0CFD D034 1653 | STO CL982 2-12 U6H17190 0CFE 90B9 1654 | S CL950 DETERMINE IF PATCH IN 2-12 U6H17200 0CFF 4C28 0D06R 1655 | BSC L CL530,+Z *NEXT SECTOR-BR IF NO 2-12 U6H17210 0D01 1010 1656 | SLA 16 SET REL DISP = 0 2-12 U6H17220 0D02 D02F 1657 | STO CL982 2-12 U6H17230 0D03 C02D 1658 | LD CL981 GET DISK ADDR 2-12 U6H17240 0D04 802F 1659 | A CL990 INCR BY +1 2-12 U6H17250 0D05 D02B 1660 | STO CL981 2-12 U6H17260 0D06 6500 0000 1661 | CL530 LDX L1 *-* RESTORE PATCH DISP 2-12 U6H17270 0D08 6600 0000 1662 | CL540 LDX L2 *-* RESTORE PATCH WD CNT 2-12 U6H17280 0D0A 7101 1663 | MDX 1 +1 INCR DISP INTO PATCH 2-12 U6H17290 0D0B 1000 1664 | NOP IN CASE OF SKIP 2-12 U6H17300 0D0C 72FF 1665 | MDX 2 -1 DECR PATCH WD CNT 2-12 U6H17310 0D0D 70C2 1666 | MDX CL510 CONTINUE MAKING PATCH 2-12 U6H17320 0D0E C021 1667 | LD CL980 GET VALUE IN SW'S 2-12 U6H17330 0D0F 1001 1668 | SLA 1 2-12 U6H17340 0D10 4C28 0D2BR 1669 | BSC L CL560,Z+ BR TO EXIT IF SW 1 ON 2-12 U6H17350 1670 | * 2-12 U6H17360 1671 | * FOLLOWING CODE PRINTS MESSAGE TO 2-12 U6H17370 1672 | * OPERATOR, AND SKIPS 2 LINES ON 2-12 U6H17380 1673 | * THE PRINCIPLE PRINTER. 2-12 U6H17390 1674 | * 2-12 U6H17400 0D12 610A 1675 | LDX 1 10 GET MESSAGE WD CNT 2-12 U6H17410 0D13 6600 0D48R 1676 | LDX L2 MSG04 GET MESSAGE ADDR 2-12 U6H17420 0D15 4400 0C61R 1677 | BSI L PU000 PRINT MESSAGE 2-12 U6H17430 0D17 610A 1678 | LDX 1 10 GET MESSAGE WD CNT 2-12 U6H17440 0D18 6600 0D52R 1679 | LDX L2 MSG05 GET MESSAGE ADDR 2-12 U6H17450 0D1A 4400 0C61R 1680 | BSI L PU000 PRINT MESSAGE 2-12 U6H17460 0D1C 6102 1681 | LDX 1 2 GET LOOP COUNT 2-12 U6H17465 0D1D C017 1682 | CL550 LD CL995 GET SKIP PARAM 2-12 U6H17470 0D1E 4400 01FFR 1683 | BSI L PRNTR+1 SKIP A LINE 2-12 U6H17480 0D20 7400 0036 1684 | MDX L $PBSY,0 PRINTER BUSY 2-12 U6H17490 0D22 70FD 1685 | MDX *-3 *YES-GO BACK AND TEST 2-12 U6H17500 0D23 71FF 1686 | MDX 1 -1 DECR LOOP COUNT 2-12 U6H17510 0D24 70F8 1687 | MDX CL550 BR TO SKIP A LINE 2-12 U6H17520 1688 | * 2-12 U6H17550 1689 | * FOLLOWING CODE CHECKS OPERATOR 2-12 U6H17560 1690 | * INDICATION (SW 0) OF WHETHER OR 2-12 U6H17570 1691 | * NOT PATCH SHOULD BE EXECUTED. 2-12 U6H17580 1692 | * 2-12 U6H17590 0D25 1010 1693 | SLA 16 CLEAR ACC 2-12 U6H17600 0D26 3000 1694 | WAIT WAIT FOR OPERATOR 2-12 U6H17610 0D27 0806 1695 | XIO CL970 READ DATA SWITCHES 2-12 U6H17620 0D28 C007 1696 | LD CL980 GET DATA SW VALUE 2-12 U6H17630 0D29 4C28 018CR 1697 | BSC L MO610,+Z BR TO NEXT PATCH CARD 212 U6H17640 1698 | * IF SWITCH 0 IS ON 212 U6H17645 0D2B 4C80 0CBAR 1699 | CL560 BSC I CL500 RETURN TO MAINLINE 2-12 U6H17650 1700 | * 2-12 U6H17660 0D2E 1701 | BSS E 0 2-12 U6H17670 0D2E 0D30R 1702 | CL970 DC CL980 IOCC TO READ DATA 2-12 U6H17680 0D2F 3A00 1703 | DC /3A00 *SWITCHES 2-12 U6H17690 0D30 0000 1704 | CL980 DC *-* VALUE IN DATA SW'S 2-12 U6H17700 0D31 0000 1705 | CL981 DC *-* DISK ADDR OF PATCH 2-12 U6H17710 0D32 0000 1706 | CL982 DC *-* REL. DISP OF PATCH 2-12 U6H17720 0D33 0000 1707 | CL983 DC *-* CORE ADDR OF PATCH 2-12 U6H17730 0D34 0001 1708 | CL990 DC 1 USED TO INCR BY +1 2-12 U6H17740 0D35 7002 1709 | CL995 DC /7002 SKIP PARAMETER 2-12 U6H17750 0D36 1710 | BSS E 0 2-12 U6H17770 0D36 4040 4040 4040 4040 1711 | MSG03 EBC . . U6H17780 4040 4040 4040 4040 | 4040 4040 4040 4040 | 4040 4040 4040 4040 | 4040 4040 | 0D48 4040 4040 4040 E2E6 1712 | MSG04 EBC . SW 0 OFF=PATCH. 2-12 U6H17790 40F0 40D6 C6C6 7ED7 | C1E3 C3C8 | 0D52 4040 4040 4040 E2E6 1713 | MSG05 EBC . SW 0 ON =ABORT. 2-12 U6H17800 40F0 40D6 D540 7EC1 | C2D6 D9E3 | 0D5C 4040 4040 4040 4040 1714 | MSG01 EBC . DAAA REL-WD ADDR OLD NEW. U6H17805 C4C1 C1C1 40D9 C5D3 | 60E6 C440 C1C4 C4D9 | 4040 D6D3 C440 4040 | D5C5 E640 | 1715 | * 2-12 U6H17810 1716 | * 2-12 U6H17840 1717 | * THE CARD INPUT BUFFER OCCUPIES 2-12 U6H17850 1718 | * LOCATIONS /0FB0 TO /0FFF 2-12 U6H17860 1719 | * 2-12 U6H17870 0FB0 1720 | CDBUF EQU 4096-80 CARD BUFFER ADDR 2-12 U6H17880 0D6E 1721 | END MO000 END OF MODIF 2-12 U6H17890 There were no errors in this assembly Program transfer address = 0009 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #MDF1 060BR 503 432 1243 1248 1250 1277 #MDF2 060CR 504 434 1240 1278 #PIOD 0617R 505 221 #SYSC 0606R 502 216 1268 1271 $CH12 0006 97 608 $CTSW 000F 100 654 1097 1163 1275 $DBSY 00EE 109 145 156 186 471 520 622 1369 $FPAD 0095 107 347 $I400 00C4 108 208 $IBSY 0013 101 579 797 814 $LAST 0033 103 573 $LEV4 000C 99 209 $NDUP 0034 104 1089 1351 $NXEQ 0035 105 1090 1352 $PBSY 0036 106 614 630 1495 1684 $PRET 0028 102 350 $XR1 0001 96 346 ABSXX 00A9R 256 327 340 BHIND 00ABR 258 369 378 406 BHXXX 00BCR 272 364 373 BINBF 07C3R 497 777 782 787 794 799 804 808 818 821 828 841 844 852 961 964 973 978 1513 1516 1535 1625 C1000 09BCR 882 290 296 323 343 354 360 426 918 960 977 C1010 09CDR 895 909 C1020 09CER 896 902 C1030 09D9R 904 900 C1040 09E2R 911 914 C1050 09E8R 916 883 921 C1060 09EAR 917 884 C1070 09EER 919 903 C2000 09FFR 944 371 982 C2010 0A01R 950 954 C2020 0A09R 955 952 C2030 0A0DR 958 C2040 0A16R 964 966 C2050 0A1AR 967 C2060 0A29R 976 981 CBUFA 00B7R 270 CDBUF 0FB0 1720 270 367 375 572 588 600 602 656 663 671 678 774 779 784 930 932 934 936 951 996 1009 1261 CDIND 00A3R 250 204 231 239 CDPTR 032CR 491 115 153 168 199 248 506 576 578 796 813 1307 1308 1310 CE000 0996R 839 380 863 CE010 09A5R 852 856 CE020 09B2R 863 846 866 CE030 09B4R 864 858 CE900 09B8R 867 854 860 1033 1045 CE910 09B9R 868 363 857 861 864 1031 1044 1046 CE920 09BAR 869 362 859 CE930 09BBR 870 862 1032 CH000 08D5R 653 287 402 670 CH010 08EER 671 662 687 CH020 0904R 688 669 677 684 CH100 0913R 711 294 738 CH150 092BR 736 745 752 CH160 0930R 742 720 CH170 0936R 749 723 CH900 0906R 692 675 682 CH910 0908R 693 660 667 CH920 090AR 694 712 716 737 CH930 090CR 695 719 CH940 090DR 696 722 CH945 090ER 697 725 CH950 090FR 698 718 721 724 CH960 0910R 699 715 CH970 0911R 700 744 CH980 0912R 701 751 CHGLV 0B9ER 1293 298 302 308 312 1065 1138 1199 1207 1270 CL000 0C7BR 1512 382 1557 CL010 0C86R 1523 CL020 0C9CR 1539 1543 CL030 0CA2R 1544 1541 CL040 0CAAR 1556 1559 CL050 0CADR 1558 1552 CL500 0CBAR 1585 387 1699 CL505 0CC5R 1600 1596 CL510 0CD0R 1620 1608 1666 CL520 0CD9R 1626 1609 CL525 0CF8R 1649 1645 CL530 0D06R 1661 1629 1655 CL540 0D08R 1662 1630 CL550 0D1DR 1682 1687 CL560 0D2BR 1699 1669 CL900 0CB2R 1563 383 384 390 391 1530 1542 1556 1600 CL910 0CB4R 1564 1515 1551 1605 CL920 0CB5R 1565 1188 1190 1518 1533 CL930 0CB6R 1566 1538 CL940 0CB7R 1567 1545 1602 1606 CL950 0CB8R 1568 356 1539 1544 1550 1554 1558 1654 CL960 0CB9R 1569 1607 CL970 0D2ER 1702 1593 1642 1695 CL980 0D30R 1704 1594 1643 1667 1696 1702 CL981 0D31R 1705 1601 1631 1658 1660 CL982 0D32R 1706 1603 1634 1651 1653 1657 CL983 0D33R 1707 1536 1639 1649 CL990 0D34R 1708 1652 1659 CL995 0D35R 1709 1682 COLNT 00A1R 248 192 CONVR 03DAR 506 117 183 584 CTR04 00B3R 266 992 1003 1006 DEC01 00ACR 259 305 315 397 793 968 971 1517 DEC04 00ADR 260 DEC05 00AER 261 970 DISKR 0B9CR 1291 143 1234 DISKZ 00F2 111 144 155 185 470 519 621 1235 1368 DSKIN 04BER 494 501 502 503 504 505 515 517 1363 1364 1376 1389 1393 1401 1569 DVDND 00B5R 268 955 967 EO000 0A9BR 1079 1023 1038 1055 1070 1082 1143 1158 EO002 0AA0R 1084 1081 1133 EO003 0AA1R 1088 1026 1043 1060 1174 EO004 0AA7R 1096 1161 EO005 0AABR 1103 1021 1036 1053 1068 1121 1141 1156 1171 1181 1192 1202 1210 1217 EO010 0A58R 1018 376 427 688 726 919 EO011 0A61R 1027 1025 EO020 0A63R 1029 843 865 EO021 0A75R 1044 1040 EO022 0A7DR 1048 1042 EO030 0A7FR 1050 1000 1010 1013 EO031 0A8AR 1061 1057 EO032 0A8CR 1062 1059 EO040 0A8ER 1064 317 EO041 0A99R 1074 1072 EO050 0AF3R 1137 316 EO051 0B01R 1149 1145 EO052 0B02R 1150 1147 EO060 0B04R 1152 655 EO061 0B0FR 1162 1160 EO070 0B14R 1166 174 242 1168 EO080 0BD0R 1332 1252 1343 EO090 0B1CR 1176 330 1185 EO100 0B28R 1187 1534 EO110 0BDFR 1345 1263 EO120 0B37R 1198 306 EO130 0B40R 1206 310 EO140 0B49R 1214 731 743 750 EO900 0AC4R 1122 1115 EO901 0AC6R 1124 1118 EO902 0AC9R 1125 1104 1111 1117 EO903 0ACCR 1127 1107 EO904 0AD0R 1129 1105 1108 1110 EO905 0AD3R 1131 1484 1500 EO906 0AD4R 1132 1489 EO907 0AF0R 1133 1080 EO908 0AF2R 1135 1183 1194 GET00 00B4R 267 214 385 GETCV 0002R 116 184 GETIO 0000R 114 154 170 202 H0040 00AFR 262 950 1008 H0A00 00B0R 263 842 972 1514 H0F00 00B1R 264 840 H5001 00B2R 265 349 IBT40 00D4 110 207 1237 IBTNT 00A2R 249 206 IBTWD 0BA4R 1304 249 1236 ID8F0 0004R 118 194 ID910 0005R 119 163 ID990 0006R 120 136 ID9A0 0007R 121 148 ID9B0 0008R 122 178 LEVL0 0008 98 193 MDF10 0BA0R 1295 428 431 1333 MDF20 0BA1R 1296 1251 1336 MO000 0009R 126 1721 MO010 000ER 130 132 MO030 0012R 136 MO035 0033R 163 MO040 0042R 174 139 151 166 181 197 MO050 0044R 178 169 MO060 0053R 192 MO080 0065R 206 173 201 MO090 0070R 212 MO100 008AR 226 MO110 0095R 235 228 MO120 009AR 239 230 MO140 009ER 242 233 237 MO500 00CER 282 234 238 241 243 283 403 MO510 00DFR 292 405 MO516 00FAR 308 301 MO518 0101R 312 300 MO520 010DR 318 304 307 311 314 1150 MO530 0111R 321 MO540 0127R 334 MO550 012ER 339 325 MO555 0144R 352 348 MO560 014FR 358 338 MO568 0160R 368 MO570 0164R 370 409 1061 MO580 0169R 373 368 MO590 0173R 379 408 1047 MO600 0177R 381 284 372 404 1135 1184 1195 MO610 018CR 394 1135 1196 1697 MO615 0197R 400 1027 1048 1062 1074 1148 1164 MO620 01A2R 406 395 MO630 01A7R 410 399 MO640 01AFR 414 351 MSG01 0D5CR 1714 1598 MSG03 0D36R 1711 1622 1624 1628 1633 1636 1638 1641 1647 MSG04 0D48R 1712 1676 MSG05 0D52R 1713 1679 MSG06 00C8R 279 415 MSG1R 00BER 277 223 PB000 0C1CR 1408 218 1106 1109 1113 1272 1334 1337 1452 1621 1627 1632 1635 1640 PB010 0C21R 1414 1418 PB020 0C28R 1421 1432 PB030 0C29R 1422 1427 PB040 0C33R 1429 1425 PB050 0C45R 1450 1409 PB060 0C47R 1451 1410 PB900 0C4CR 1457 896 904 994 1422 1429 PB901 0C5CR 1473 885 888 889 893 899 907 912 1416 1424 1430 1437 1439 1442 1443 1445 1448 PB902 0C60R 1474 1415 PCHCT 00A7R 254 291 396 398 1154 PCHES 00A8R 255 361 394 PIODR 00A5R 252 222 226 PK000 09F1R 929 289 293 322 342 353 359 425 937 959 976 PPTRR 00A6R 253 PRBUF 073ER 495 597 603 637 PRENT 0B9AR 1290 142 1232 PRNTR 01FER 488 130 141 611 613 628 629 633 1233 1292 1306 1494 1683 PTIND 00A4R 251 172 235 581 760 763 766 PU000 0C61R 1483 225 416 1120 1283 1341 1348 1497 1599 1648 1677 1680 PU010 0C67R 1488 1487 1491 PU020 0C78R 1499 1492 PU030 0C7AR 1501 392 1493 R1000 082FR 513 522 538 R1050 0834R 516 537 545 550 R2000 086AR 570 285 370 400 410 585 764 R2010 0875R 577 574 R2020 0883R 585 582 R2900 0886R 587 577 583 R2910 0888R 589 575 R2920 0889R 590 571 R3000 093CR 759 379 792 R3010 094BR 774 790 R3020 0962R 792 825 R3030 0964R 793 761 R3040 0968R 795 802 R3050 097AR 808 810 R3060 0987R 818 824 R3900 0992R 827 795 812 R3910 0994R 829 333 R3920 0995R 830 801 803 R4000 0BEDR 1362 215 386 393 1379 1387 R4010 0BF5R 1368 1391 R4020 0BFBR 1371 R4030 0C00R 1376 R4040 0C07R 1379 1375 R4500 0C09R 1384 412 430 436 1239 1280 1386 R4900 0C12R 1392 1385 1390 R4910 0C14R 1394 1388 R4920 0C16R 1396 1398 R4930 0C17R 1397 1372 R4940 0C18R 1398 1371 R4950 0C1AR 1400 518 1366 R5000 088AR 595 286 401 616 R5010 0890R 600 606 R5020 089ER 610 634 R5030 08A9R 618 609 R5910 08C0R 636 612 R5920 08C2R 638 620 R5930 08C4R 640 625 639 R5931 08C5R 641 619 626 644 R5940 08D0R 643 627 R5950 08D2R 645 618 R5960 08D3R 646 610 632 R5970 08D4R 647 596 RY000 0B50R 1232 468 476 481 RY050 0B6CR 1250 1245 RY100 0B71R 1260 413 RY110 0B72R 1261 1265 RY120 0B80R 1270 1267 RY125 0B83R 1272 1269 RY130 0B89R 1276 1353 RY900 0BADR 1311 1262 RY910 0BB4R 1322 1281 RY920 0BBER 1323 220 1273 RY930 0BC0R 1324 1339 RY940 0BC6R 1325 1338 RY950 0BCAR 1327 1335 RY960 0BCCR 1328 1346 SH000 0842R 531 137 149 164 179 195 329 455 549 SH005 084AR 538 553 SH010 084CR 540 544 555 SH020 0858R 549 560 SH025 085AR 550 547 SH030 0860R 554 541 SH040 0864R 558 554 556 557 SH900 0868R 561 533 539 542 548 SH905 0869R 562 546 SLET0 04BAR 501 540 SLTID 00B6R 269 324 328 SNTRY 00B8R 271 335 337 344 355 357 1524 1526 1532 1537 SR000 01B5R 424 319 SR010 01BER 429 SR020 01CDR 438 SR030 01D3R 443 SR040 01D7R 451 439 441 473 SR050 01E6R 465 460 SR060 01E8R 467 464 SR070 01E9R 468 462 SR900 01F4R 475 452 469 SR910 01F5R 476 442 445 454 458 463 466 SR920 01F6R 477 438 SR930 01F8R 479 440 459 SR940 01FAR 481 433 465 SUBXX 00AAR 257 318 686 TE000 0A34R 990 957 1005 TE010 0A35R 991 1012 TE020 0A38R 993 1007 TE030 0A39R 994 999 TE040 0A3CR 996 TE050 0A44R 1001 997 TE060 0A4BR 1006 1002 TE070 0A56R 1013 1004 TPFIX 0BA2R 1299 299 730 736 742 749 1266 VMNOP 00C6R 278 219 VMODH 0B9FR 1294 217 303 309 313