ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \namcra.asm SUPV PHASE 1 - MON CTRL RCD ANALYZER 2 | ABS N0100020 3 | *************************************************** N0100030 4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * N0100040 5 | * * N0100050 6 | *FUNCTION/OPERATION - * N0100060 7 | * * THE MONITOR CONTROL RECORD ANALYZER (MCRA) * N0100070 8 | * READS MONITOR CONTROL RECORDS FROM THE * N0100080 9 | * PRINCIPAL INPUT DEVICE OR FETCHES THE * N0100090 10 | * RECORD FROM THE SUPERVISOR BUFFER (@SBFR). * N0100100 11 | * * THE MCRA PRINTS THE MONITOR CONTROL RECORDS.* N0100110 12 | * * THE MCRA RECOGNIZES AND PROCESSES THE * N0100120 13 | * FOLLOWING MONITOR CONTROL RECORDS - * N0100130 14 | * * JOB FETCHES AND TRANSFERS TO * N0100140 15 | * SUPERVISOR PHASE 2 FOR JOB * N0100150 16 | * PROCESSING. * N0100160 17 | * * EJE RESTORES THE PAGE, PRINTS THE * N0100170 18 | * HEADING AND BRANCHES TO READ THE * N0100180 19 | * NEXT RECORD. * N0100190 20 | * * PAU WAITS FOR 'PROGRAM START' AND * N0100200 21 | * BRANCHES TO READ THE NEXT RECORD. * N0100210 22 | * * CPR CAUSES THE CONSLE PRINTER TO BE * N0100220 23 | * THE PRINCIPAL PRINT DEVICE AND * N0100230 24 | * BRANCHES TO READ THE NEXT RECORD. * N0100240 25 | * * TYP CAUSES THE KEYBOARD TO BE THE * N0100250 26 | * PRINCIPAL INPUT DEVICE AND * N0100260 27 | * BRANCHES TO READ THE NEXT RECORD. * N0100270 28 | * * TEN CAUSES THE PRINCIPAL INPUT DEVICE * N0100280 29 | * (NOT THE KEYBOARD) TO BE THE * N0100290 30 | * PRINCIPAL INPUT DEVICE AND * N0100300 31 | * BRANCHES TO READ THE NEXT RECORD. * N0100310 32 | * * XEQ FETCHES AND TRANSFERS TO * N0100320 33 | * SUPERVISOR PHASE 4 FOR XEQ * N0100330 34 | * PROCESSING. * N0100340 35 | * * DUP FETCHES AND TRANSFERS TO DISK * N0100350 36 | * UTILITY PROGRAM PHASE 0. * N0100360 37 | * * ASM FETCHES AND TRANSFERS TO ASSEMBLER* N0100370 38 | * PHASE 0. * N0100380 39 | * * FOR FETCHES AND TRANSFERS TO FORTRAN * N0100390 40 | * COMPILER PHASE 1. * N0100400 41 | * * RPG FETCHES AND TRANSFERS TO * N0100410 42 | * RPG COMPILER PHASE . * N0100420 43 | * * CEN RESTORES PRINCIPAL PRINT DEVICE TO* N0100430 44 | * STATUS BEFORE EXECUTION OF // CPR * N0100440 45 | * AND BRANCHES TO READ NEXT RECORD. * N0100450 46 | * * COB FETCHES AND TRANSFERS TO COBOL 2-9* N0100452 47 | * COMPILER PHASE 1. 2-9* N0100454 48 | * * N0100460 49 | *ENTRY POINTS - * N0100470 50 | * PROGRAM START - RA000 * N0100480 51 | * * N0100490 52 | *INPUT - * N0100500 53 | * THE INPUT IS THE ABOVE LISTED MONITOR * N0100510 54 | * CONTROL RECORDS. * N0100520 55 | * * N0100530 56 | *OUTPUT - * N0100540 57 | * THE MONITOR CONTROL RECORDS ARE PRINTED TO * N0100550 58 | * THE PRINCIPAL PRINT DEVICE. * N0100560 59 | * * N0100570 60 | *EXTERNAL REFERENCES * N0100580 61 | * * IN COMMA- * N0100590 62 | * $CH12 * N0100600 63 | * $CTSW * N0100610 64 | * $DBSY * N0100620 65 | * $FLSH * N0100630 66 | * $GRIN * N0100640 67 | * $HASH * N0100650 68 | * $IBSY * N0100660 69 | * $IBT4 * N0100670 70 | * $IOCT * N0100680 71 | * $KCSW * N0100690 72 | * $LEV0 * N0100700 73 | * $LEV1 * N0100710 74 | * $LINK * N0100720 75 | * $NDUP * N0100730 76 | * $NXEQ * N0100740 77 | * $PBSY * N0100750 78 | * $PHSE * N0100760 79 | * $PRET * N0100770 80 | * * SUBROUTINES - * N0100780 81 | * CONVT PRINCIPAL INPUT DEVICE CONVERSION * N0100790 82 | * SUBROUTINE. * N0100800 83 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0100810 84 | * INPUT PRINCIPAL INPUT DEVICE SUBROUTINE. * N0100820 85 | * OUTPT PRINCIPAL PRINT DEVICE SUBROUTINE. * N0100830 86 | * * N0100840 87 | *EXITS - * N0100850 88 | * * NORMAL - * N0100860 89 | * AN EXIT IS MADE TO ANOTHER PHASE OF THE * N0100870 90 | * SUPERVISOR TO CONTINUE PROCESSING OR TO THE * N0100880 91 | * FIRST PHASE OF ONE OF THE FOLLOWING SYSTEM * N0100890 92 | * PROGRAMS - * N0100900 93 | * * THE ASSEMBLER * N0100910 94 | * * THE DISK UTILITY PROGRAM * N0100920 95 | * * THE FORTRAN COMPILER * N0100930 96 | * * THE RPG COMPILER. * N0100940 97 | * * THE COBOL COMPILER. 2-9* N0100945 98 | * * ERROR - SEE NOTES. * N0100950 99 | * * N0100960 100 | *TABLES/WORK AREAS - * N0100970 101 | * * @SBFR AN 80 WORD BUFFER INTO WHICH MONITOR* N0100980 102 | * CONTROL RECORDS ARE READ. * N0100990 103 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0101000 104 | * COMMUNICATIONS AREA (DCOM) I/O. * N0101010 105 | * * N0101020 106 | *ATTRIBUTES - * N0101030 107 | * * ABSOLUTE. * N0101040 108 | * * REUSABLE. * N0101050 109 | * * N0101060 110 | *NOTES - * N0101070 111 | * * ALL I/O DEVICE ERRORS RESULT IN A WAIT AT * N0101080 112 | * $PRET WITH THE CONTENTS OF THE ACCUMULATOR * N0101090 113 | * INDICATING THE DEVICE AND TYPE OF ERROR. * N0101100 114 | * * ALL MONITOR CONTROL RECORD ANALYZER ERRORS * N0101110 115 | * ARE FLAGGED WITH A MESSAGE AND PROCESSING * N0101120 116 | * CONTINUES. * N0101130 117 | * * M 11 INVALID MONITOR CONTROL RECORD * N0101140 118 | * * M 12 EXECUTION SUPPRESSED * N0101150 119 | * * M 13 DUP SUPPRESSED * N0101160 120 | * * M 14 SYSTEM PROGRAM DETECTED MONITOR * N0101170 121 | * CONTROL RECORD * N0101180 122 | * * M 15 ILLEGAL CARTRIDGE ID * N0101190 123 | * * M 16 PROGRAM VOIDED * N0101200 124 | * * N0101210 125 | *************************************************** N0101220 SUPV PHASE 1 - MON CTRL RCD ANALYZER 127 | * N0101240 128 | * COMMA EQUATE STATEMENTS N0101250 129 | * N0101260 009F 130 | $ACDE EQU /9F TABLE OF AREA CODES N0101270 0006 131 | $CH12 EQU /06 CHANNEL 12 INDICATOR N0101280 0007 132 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) N0101290 000E 133 | $CORE EQU /0E CORE SIZE N0101300 000F 134 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH N0101310 0005 135 | $CIBA EQU /05 SCTR ADDR OF CIB N0101320 009A 136 | $CYLN EQU /9A ARM POSITION N0101330 0010 137 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED N0101340 00EE 138 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY N0101350 0077 139 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG N0101360 00A4 140 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS N0101370 0012 141 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O N0101380 003F 142 | $DUMP EQU /3F CALL DUMP ENTRY POINT N0101390 0038 143 | $EXIT EQU /38 CALL EXIT ENTRY POINT N0101400 0071 144 | $FLSH EQU /71 FLUSH JOB SWITCH N0101410 0095 145 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES N0101420 0063 146 | $GCOM EQU /63 G2250 SUBROUTINE INDICATOR 2G2 N0101430 0064 147 | $GRIN EQU /64 GRAPHICS INIT PROGRAM INDR 2G2 N0101440 0014 148 | $HASH EQU /14 WORK AREA N0101450 0013 149 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY N0101460 00D4 150 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 N0101470 0032 151 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS N0101480 002C 152 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE N0101490 00E6 153 | $I420 EQU /E6 FLUSH JOB ENTRY POINT 2-2 N0101500 007C 154 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED N0101510 0033 155 | $LAST EQU /33 LAST CARD INDICATOR N0101520 0008 156 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS 2-3 N0101530 0009 157 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS 2-3 N0101540 000A 158 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS 2-3 N0101550 000B 159 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS 2-3 N0101560 000C 160 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS 2-3 N0101570 000D 161 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS 2-3 N0101580 0039 162 | $LINK EQU /39 CALL LINK ENTRY POINT N0101590 0034 163 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO N0101600 0035 164 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO N0101610 0036 165 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY N0101620 0037 166 | $PGCT EQU /37 PAGE NO. FOR HEADINGS N0101630 0078 167 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE N0101640 0028 168 | $PRET EQU /28 IOCS SOFT ERROR TRAP N0101650 0081 169 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 N0101660 0085 170 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 N0101670 0089 171 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 N0101680 008D 172 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 N0101690 00EF 173 | $SNLT EQU /EF SENSE LIGHT INDICATOR N0101700 0091 174 | $STOP EQU /91 PROGRAM STOP KEY TRAP N0101710 00E0 175 | $SYSC EQU /E0 MODIFICATION LEVEL N0101720 007D 176 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O N0101730 0079 177 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. N0101740 002D 178 | $ULET EQU /2D TABLE OF LET ADDRESSES N0101750 007A 179 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE N0101760 007B 180 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD N0101770 01E0 181 | $ZEND EQU /1E0 END OF DISKZ SUBROUTINE 2-3 N0101780 007E 182 | $CPTR EQU /007E CONS PTR CH 12 INDR 212 N0101782 007F 183 | $1132 EQU /007F 1132 CHANNEL 12 INDR 212 N0101785 0080 184 | $1403 EQU /0080 1403 CHANNEL 12 INDR 212 N0101787 185 | * N0101790 186 | * GENERAL EQUATE STATEMENTS N0101800 187 | * N0101810 0000 188 | #IDAD EQU /0000 CART ID-DEF CYL SCTR ADDR N0101820 0002 189 | #RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR N0101830 0001 190 | #DCOM EQU /0001 DCOM SECTOR ADDRESS N0101840 0007 191 | #HDNG EQU /0007 DATE-PAGE COUNT SECTOR ADDR N0101850 000D 192 | @NMCR EQU 13 NO OF MONITR CNTRL RCDS 2-9 N0101860 000A 193 | @HDWC EQU 10 HEADING BUFFER WORD COUNT N0101870 0028 194 | @PBWC EQU 40 PACKED BUFFER WORD COUNT N0101880 0050 195 | @CCOL EQU 80 NO. OF CHARACTERS/RECORD N0101890 0140 196 | @SCTR EQU 320 NO. OF WORDS PER SECTOR N0101900 1000 197 | @MNCR EQU /1000 MINIMUM CORE SIZE N0101910 00D0 198 | @CSTR EQU /00D0 2-3 N0101920 0800 199 | @PROC EQU /0800 PROCESSING PHASES AREA N0101930 0FB0 200 | @SBFR EQU /0FB0 ADDRESS OF SUPV BUFFER N0101940 0E6E 201 | DCOM EQU @SBFR-@SCTR-2 SYSTEM DCOM I/O BUFFER N0101950 0D2C 202 | BUFFR EQU DCOM-@SCTR-2 COMMON DISK I/O BUFFER N0101960 00F2 203 | DZ000 EQU $DBSY+4 DISKZ ENTRY POINT N0101970 01E1 204 | OUTPT EQU $ZEND+1 PRINT SUBROUTINE ENTRY N0101980 0321 205 | INPUT EQU OUTPT+@SCTR INPUT SUBROUTINE ENTRY N0101990 206 | * N0102000 207 | * PHASE ID EQUATE STATEMENTS N0102010 208 | * N0102020 0001 209 | @DUPC EQU 1 N0102030 001F 210 | @FOR1 EQU 31 N0102040 006E 211 | @MCRA EQU 110 N0102050 006F 212 | @JOBP EQU 111 N0102060 0070 213 | @DELT EQU 112 N0102070 0071 214 | @XEQP EQU 113 N0102080 0072 215 | @SCRP EQU 114 N0102090 0078 216 | @CLB0 EQU 120 N0102100 008E 217 | @CPTR EQU 142 N0102110 0092 218 | @KBCP EQU 146 N0102120 0095 219 | @KBCV EQU 149 N0102130 0099 220 | @PRNT EQU 153 N0102140 009A 221 | @PINP EQU 154 N0102150 009B 222 | @PIDV EQU 155 N0102160 009C 223 | @CNVT EQU 156 N0102170 009D 224 | @CVRT EQU 157 N0102180 00B0 225 | @RG00 EQU 176 2-10 N0102190 00CF 226 | @ASM0 EQU 207 N0102200 0000 227 | @YYYY EQU 0 N0102210 0051 228 | @COB1 EQU 81 2-9 N0102220 229 | * N0102230 230 | * DCOM EQUATE STATEMENTS N0102240 231 | * N0102250 0E72 232 | #NAME EQU DCOM+4 NAME OF PROGRAM N0102260 0E74 233 | #DBCT EQU DCOM+6 DISK BLOCK COUNT OF PROGRAM N0102270 0E75 234 | #FCNT EQU DCOM+7 FILES INDICATOR N0102280 0E76 235 | #SYSC EQU DCOM+8 SYSTEM CARTRIDGE SWITCH N0102290 0E77 236 | #JBSW EQU DCOM+9 TEMPORARY JOB SWITCH N0102300 0E78 237 | #CBSW EQU DCOM+10 CLB SWITCH N0102310 0E79 238 | #LCNT EQU DCOM+11 LOCAL INDICATOR N0102320 0E7A 239 | #MPSW EQU DCOM+12 MAP SWITCH N0102330 0E7B 240 | #MDF1 EQU DCOM+13 NO. DUP CTRL RCDS (MODIF) N0102340 0E7C 241 | #MDF2 EQU DCOM+14 ADDR OF MODIF BUFFER N0102350 0E7D 242 | #NCNT EQU DCOM+15 NOCAL INDICATOR N0102360 0E7E 243 | #ENTY EQU DCOM+16 REL ENTRY ADDR OF PROGRAM N0102370 0E7F 244 | #RP67 EQU DCOM+17 1442-5 SWITCH N0102380 0E80 245 | #TODR EQU DCOM+18 -TO- WK STG DRIVE CODE N0102390 0E81 246 | #FRDR EQU DCOM+19 -FROM- WK STG DRIVE CODE N0102400 0E82 247 | #FHOL EQU DCOM+20 ADDR LARGEST HOLE IN FXA N0102410 0E83 248 | #FSZE EQU DCOM+21 BLK CNT LARGEST HOLE IN FXA N0102420 0E84 249 | #UHOL EQU DCOM+22 ADDR LARGEST HOLE IN UA N0102430 0E85 250 | #USZE EQU DCOM+23 BLK CNT LARGEST HOLE IN UA N0102440 0E86 251 | #DCSW EQU DCOM+24 DUP CALL SWITCH N0102450 0E87 252 | #PIOD EQU DCOM+25 PRINCIPAL I/O DEVICE INDIC N0102460 0E88 253 | #PPTR EQU DCOM+26 PRINC PRINT DEVICE INDIC N0102470 0E89 254 | #CIAD EQU DCOM+27 SCTR 0 LOC OF CIL SCTR ADDR N0102480 0E8A 255 | #ACIN EQU DCOM+28 AVAIL CARTRIDGE INDICATOR N0102490 0E8B 256 | #GRPH EQU DCOM+29 2250 INDICATOR 2-8 N0102500 0E8C 257 | #GCNT EQU DCOM+30 G2250 COUNT 2-8 N0102510 0E8D 258 | #LOSW EQU DCOM+31 LOCALS CALL LOCALS SW 2-2 N0102520 0E8E 259 | #X3SW EQU DCOM+32 SPECIAL ILS SWITCH 2-3 N0102530 0E8F 260 | #ECNT EQU DCOM+33 EQUAT COUNT 2-4 N0102540 0E91 261 | #ANDU EQU DCOM+35 END OF UA ADDRESS (ADJ) N0102550 0E96 262 | #BNDU EQU DCOM+40 END OF UA ADDRESS (BASE) N0102560 0E9B 263 | #FPAD EQU DCOM+45 FILE PROTECTED ADDRESS N0102570 0EA0 264 | #PCID EQU DCOM+50 AVAILABLE CARTRIDGE IDS N0102580 0EA5 265 | #CIDN EQU DCOM+55 CARTRIDGE ID N0102590 0EAA 266 | #CIBA EQU DCOM+60 SECTOR ADDRESS OF CIB N0102600 0EAF 267 | #SCRA EQU DCOM+65 SECTOR ADDRESS OF SCRA N0102610 0EB4 268 | #FMAT EQU DCOM+70 FORMAT OF PROGRAM IN WS N0102620 0EB9 269 | #FLET EQU DCOM+75 FLET SECTOR ADDRESS N0102630 0EBE 270 | #ULET EQU DCOM+80 LET SECTOR ADDRESS N0102640 0EC3 271 | #WSCT EQU DCOM+85 BLK CNT OF PROGRAM IN WS N0102650 0EC8 272 | #CSHN EQU DCOM+90 1+SCTR ADDR OF END OF CUSN. N0102660 SUPV PHASE 1 - MON CTRL RCD ANALYZER 04FE 274 | ORG 4*@SCTR-2 SUPV PH 1 (MCRA) I/O AREA N0102680 275 | * N0102690 276 | * PROVIDE PARAMETERS FOR SYSTEM LOADER N0102700 277 | * N0102710 04FE 02FE 278 | DC RA999-* WORD COUNT OF SUPV PHASE 1 N0102720 04FF FF92 279 | DC -@MCRA PHASE ID OF SUPV PHASE 1 N0102730 0500 0056 280 | DC PRINT-*+1 RLTV ADDR OF SLET TABLE N0102740 0501 0013 281 | DC @NMCR+6 NO. OF ITEMS IN SLET TABLE N0102750 0500 282 | ORG *-2 N0102760 SUPV PHASE 1 - MON CTRL RCD ANALYZER 0500 C400 0064 284 | RA000 LD L $GRIN FETCH GRAPHICS INDICATOR N0102780 0502 4C10 0508 285 | BSC L RA010,- TEST FOR AND N0102790 0504 4400 0039 221D 15C0 286 | LINK SGJP *BRANCH IF 'SGJP' N0102800 0508 4C08 050E 287 | RA010 BSC L RA020,+ TEST FOR AND N0102810 050A 4400 0039 0764 9540 288 | LINK GRIN *BRANCH IF 'GRIN' N0102820 289 | * N0102830 290 | * INITIALIZATION N0102840 291 | * N0102850 050E 616E 292 | RA020 LDX 1 @MCRA SET N0102860 050F 6D00 0078 293 | STX L1 $PHSE *SUPERVISOR PHASE 1 INDR N0102870 0511 1000 294 | NOP A WAIT MAY BE PATCHED HERE N0102880 0512 6500 054C 295 | LDX L1 TABLE-1 SET ADDRESS OF N0102890 0514 6D00 00D4 296 | STX L1 $IBT4 *ILSO4 INTERRUPT BRANCH TBL N0102900 297 | * N0102910 298 | * FETCH PRINCIPAL PRINT SUBROUTINE N0102920 299 | * N0102930 0516 C841 300 | RA040 LDD PRINT+2 FETCH WD CNT AND SCTR ADDR N0102940 0517 6100 301 | LDX 1 0 INDICATE PRINT SUBROUTINE N0102950 0518 4022 302 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0102960 0519 C037 303 | LD TABLE+4 STORE PRINT SUBR INTERRUPT N0102970 051A D400 0009 304 | STO L $LEV1 *ADDR TO LEVEL 1 BR ADDRESS N0102980 305 | * N0102990 306 | * FETCH PRINCIPAL INPUT SUBROUTINE N0103000 307 | * N0103010 051C 6500 057E 308 | RA060 LDX L1 IKBRD XR1 = KEYBRD SUBR SLET ADDR N0103020 051E C400 007C 309 | LD L $KCSW TEST FOR AND N0103030 0520 4C20 0656 310 | BSC L RA480,Z *BRANCH IF IN KEYBOARD MODE N0103040 0522 6500 0582 311 | LDX L1 PIDEV FETCH PRINCIPAL INPUT 2-6 N0103050 0524 4C00 0656 312 | BSC L RA480 *DEVICE OTHER THAN KB 2-6 N0103060 0526 C835 313 | RA070 LDD PINPT+2 FETCH WD CNT AND SCTR ADDR N0103070 0527 6101 314 | LDX 1 1 INDICATE INPUT SUBROUTINE N0103080 0528 4012 315 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0103090 0529 C029 316 | LD TABLE+6 STORE COLUMN INTERRUPT N0103100 052A 801E 317 | A RA903 *ENTRY ADDRESS N0103110 052B D400 0008 318 | STO L $LEV0 *TO LEVEL 0 BRANCH ADDRESS N0103120 052D 4074 319 | BSI RA100 BRANCH TO SET $KCSW N0103130 320 | * N0103140 321 | * FETCH CONVERSION SUBROUTINE N0103150 322 | * N0103160 052E C01C 323 | LD RA905 FETCH ADDR OF INPUT SUBR N0103170 052F 802C 324 | A PINPT+2 ADD INPUT SUBR WORD COUNT N0103180 0530 8018 325 | A RA903 MAKE N0103190 0531 1801 326 | SRA 1 *ADDRESS OF N0103200 0532 1001 327 | SLA 1 *CONVERSION SUBROUTINE N0103210 0533 D018 328 | STO RA906 *EVEN AND SAVE N0103220 0534 8014 329 | A RA903 CALCULATE AND STORE N0103230 0535 D400 06CA 330 | STO L CONVT *CONVERSION SUBR ENTRY ADDR N0103240 0537 C828 331 | LDD CNVRT+2 FETCH WD CNT AND SCTR ADDR N0103250 0538 6102 332 | LDX 1 2 INDICATE CONVERSION SUBR N0103260 0539 4001 333 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0103270 053A 707E 334 | MDX RA200 BRANCH TO CONTINUE N0103280 335 | * N0103290 336 | *************************************************** N0103300 337 | * N0103310 338 | * FETCH A SUBROUTINE INTO CORE N0103320 339 | * N0103330 053B 0000 340 | RA080 DC 0 ENTRY/RETURN ADDRESS N0103340 053C DD80 054A 341 | STD I1 RA904 ST WD CNT/SAD TO I/O AREA N0103350 053E C500 054A 342 | LD L1 RA904 FETCH ADDRESS OF I/O AREA N0103360 0540 1890 343 | SRT 16 SHIFT TO EXTENSION, ACC = 0 N0103370 0541 4400 00F2 344 | BSI L DZ000 BRANCH TO DISK READ N0103380 0543 7400 00EE 345 | RA090 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0103390 0545 70FD 346 | MDX RA090 BR TO TEST READ COMPLETE N0103400 0546 4C80 053B 347 | BSC I RA080 RETURN N0103410 348 | * N0103420 349 | * CONSTANTS AND WORK AREAS N0103430 350 | * N0103440 0548 351 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0103450 0548 0001 352 | RA901 DC 1 CONSTANT ONE N0103460 0549 0003 353 | RA903 DC 3 CONSTANT THREE N0103470 054A 01DE 354 | RA904 DC OUTPT-3 ADDR OF PRINT SUBR I/O AREA N0103480 054B 031E 355 | RA905 DC INPUT-3 ADDR OF INPUT SUBR I/O AREA N0103490 054C 0000 356 | RA906 DC *-* ADDR OF CNVRT SUBR I/O AREA N0103500 357 | * N0103510 358 | * INTERRUPT LEVEL 4 BRANCH TABLE N0103520 359 | * N0103530 054D 360 | TABLE BSS 3 RESERVED N0103540 0550 0000 361 | DC *-* 1231 OPT. MARK PAGE READER N0103550 0551 01E4 362 | DC OUTPT+3 1403 PRINTER N0103560 0552 0324 363 | DC INPUT+3 2501 CARD READER N0103570 0553 0324 364 | DC INPUT+3 1442 CARD READER/PUNCH N0103580 0554 0000 365 | DC *-* KEYBOARD/CONSOLE PRINTER N0103590 0555 0324 366 | DC INPUT+3 1134/1055 PAPT READER/PUNCH N0103600 367 | * N0103610 368 | * INTERNAL SLET INFORMATION N0103620 369 | * N0103630 0556 0099 370 | PRINT DC @PRNT PRINC PRINT SUBR PHASE ID N0103640 0557 371 | BSS 3 N0103650 372 | * N0103660 055A 009A 373 | PINPT DC @PINP PRINC INPUT SUBR PHASE ID N0103670 055B 374 | BSS 3 N0103680 375 | * N0103690 055E 009C 376 | CNVRT DC @CNVT PRINC CONVERSION SUBR PH ID N0103700 055F 377 | BSS 3 N0103710 378 | * N0103720 0562 0070 379 | SUPV3 DC @DELT SUPV PHASE 3 PHASE ID N0103730 0563 380 | BSS 3 N0103740 381 | * N0103750 0566 0072 382 | SUPV5 DC @SCRP SUPV PHASE 5 PHASE ID N0103760 0567 383 | BSS 3 N0103770 384 | * N0103780 056A 0078 385 | CLBP1 DC @CLB0 CORE LD BLDR PH 0 PHASE ID N0103790 056B 386 | BSS 3 N0103800 387 | * N0103810 056E 006F 388 | SUPV2 DC @JOBP SUPV PHASE 2 PHASE ID N0103820 056F 389 | BSS 3 N0103830 390 | * N0103840 0572 0095 391 | CKBRD DC @KBCV KYBRD CONVERSION SUBR PH ID N0103850 0573 392 | BSS 3 N0103860 393 | * N0103870 0576 009D 394 | CVRT DC @CVRT PRINC CONV (NOT KB) PH ID N0103880 0577 395 | BSS 3 N0103890 396 | * N0103900 057A 008E 397 | PCPAD DC @CPTR CONSOLE PRINTER SUBR PH ID N0103910 057B 398 | BSS 3 N0103920 399 | * N0103930 057E 0092 400 | IKBRD DC @KBCP KEYBOARD SUBR PHASE ID N0103940 057F 401 | BSS 3 N0103950 402 | * N0103960 0582 009B 403 | PIDEV DC @PIDV PRINC INPUT (NOT KB) PH ID N0103970 0583 404 | BSS 3 N0103980 405 | * N0103990 0586 0071 406 | SUPV4 DC @XEQP SUPV PHASE 4 PHASE ID N0104000 0587 407 | BSS 3 N0104010 408 | * N0104020 058A 0001 409 | DUPCO DC @DUPC DUP COMMON PHASE ID N0104030 058B 410 | BSS 3 N0104040 411 | * N0104050 058E 00CF 412 | PHS0 DC @ASM0 ASM PHASE 0 PHASE ID * N0104060 058F 413 | BSS 3 N0104070 414 | * N0104080 0592 001F 415 | FOR01 DC @FOR1 FORTRAN PHASE 1 PHASE ID N0104090 0593 416 | BSS 3 N0104100 417 | * N0104110 0596 00B0 418 | RPG00 DC @RG00 RPG PHASE 0 PHASE ID 2-10 N0104120 0597 419 | BSS 3 2-5 N0104130 420 | * N0104140 059A 0099 421 | SVPRT DC @PRNT SAVE PRINC PRT 2-8 N0104150 059B 0000 422 | DC 0 N0104160 059C 0000 423 | DC 0 N0104170 059D 0000 424 | DC 0 N0104180 425 | * N0104190 059E 0051 426 | COB01 DC @COB1 COBOL PHASE 1 PHASE ID 2-9 N0104200 059F 0000 427 | DC 0 N0104210 05A0 0000 428 | DC 0 N0104220 05A1 0000 429 | DC 0 N0104230 430 | * N0104240 431 | *************************************************** N0104250 432 | * N0104260 433 | * SET KEYBOARD-CONSOLE PRINTER SWITCH N0104270 434 | * N0104280 435 | * -, KEYBOARD ONLY UTILIZED N0104290 436 | * $KCSW = 0, CONSOLE PTR OR NEITHER UTILIZED N0104300 437 | * +, KEYBOARD AND CONSOLE PTR UTILIZED N0104310 438 | * N0104320 05A2 0000 439 | RA100 DC 0 ENTRY/RETURN ADDRESS N0104330 05A3 C0D9 440 | LD PCPAD+3 TEST IF CONSOLE PRINTER N0104340 05A4 90B4 441 | S PRINT+3 *IS PRINCIPAL PRINT DEVICE N0104350 05A5 4C20 05AD 442 | BSC L RA120,Z *AND BRANCH IF NOT N0104360 05A7 C0D9 443 | LD IKBRD+3 TEST IF KEYBOARD N0104370 05A8 90B4 444 | S PINPT+3 *IS PRINCIPAL INPUT DEVICE N0104380 05A9 4C20 05B4 445 | BSC L RA140,Z *AND BRANCH IF NOT N0104390 05AB C09C 446 | LD RA901 FETCH A POSITIVE NUMBER N0104400 05AC 7008 447 | MDX RA160 BRANCH TO SET SWITCH N0104410 05AD C0D3 448 | RA120 LD IKBRD+3 TEST IF KEYBOARD N0104420 05AE 90AE 449 | S PINPT+3 *IS PRINCIPAL INPUT DEVICE N0104430 05AF 4C20 05B4 450 | BSC L RA140,Z *AND BRANCH IF NOT N0104440 05B1 C400 0660 451 | LD L RA942 FETCH A NEGATIVE NUMBER N0104450 05B3 7001 452 | MDX RA160 BRANCH TO SET SWITCH N0104460 05B4 1810 453 | RA140 SRA 16 FETCH ZERO N0104470 05B5 D400 007C 454 | RA160 STO L $KCSW STORE TO KEYBRD-CNSL PTR SW N0104480 05B7 4C80 05A2 455 | BSC I RA100 RETURN N0104490 456 | * N0104500 457 | * TEST CONTROL RECORD INDICATOR N0104510 458 | * N0104520 459 | * +, RECORD TRAPPED BY SYSTEM PROGRAM N0104530 460 | * $CTSW = 0, NO RECORD TRAPPED N0104540 461 | * -, RECORD TRAPPED BY DUP (NO ERROR) N0104550 462 | * N0104560 05B9 C400 000F 463 | RA200 LD L $CTSW FETCH MON CTRL RCD INDR N0104570 05BB 4C28 05C6 464 | BSC L RA240,Z+ BR IF RCD TRAPPED IN BUFFER N0104580 05BD 4C08 05C4 465 | BSC L RA220,+ BRANCH IF NO RCD TRAPPED N0104590 05BF C400 06ED 466 | RA210 LD L RA990+3 FETCH ADDR OF MESSAGE M 14 N0104600 05C1 4400 06CD 467 | BSI L RA850 BRANCH TO PRINT THE MESSAGE N0104610 05C3 7002 468 | MDX RA240 BRANCH TO PACK SUPV BUFFER N0104620 469 | * N0104630 470 | * READ A MONITOR CONTROL RECORD N0104640 471 | * N0104650 05C4 4400 06A6 472 | RA220 BSI L RA800 BRANCH TO READ A RECORD N0104660 473 | * N0104670 474 | * PACK THE SUPV BUFFER (2 EBCDIC CHARS/WORD) N0104680 475 | * N0104690 05C6 1010 476 | RA240 SLA 16 SET N0104700 05C7 D400 000F 477 | STO L $CTSW *MON CTRL RCD INDR OFF N0104710 05C9 C03C 478 | LD RA932 SET N0104720 05CA D480 06C7 479 | STO I SBADR *PACKED BUFFER WORD COUNT N0104730 480 | * N0104740 05CC 6500 0FB0 481 | LDX L1 @SBFR XR1 = SUPV BUFFER ADDRESS N0104750 05CE 62D8 482 | LDX 2 -@PBWC XR2 = PACKED BUFFER WD CNT N0104760 05CF C100 483 | RA260 LD 1 0 FETCH A CHARACTER N0104770 05D0 1008 484 | SLA 8 SHIFT TO LEFT HALF OF WORD N0104780 05D1 E901 485 | OR 1 1 FETCH NEXT CHARACTER N0104790 05D2 D600 0FD8 486 | STO L2 @SBFR+@PBWC STORE TO BUFFER PACKED N0104800 05D4 7102 487 | MDX 1 2 INCRMENT BUFFER ADDRESS N0104810 05D5 7201 488 | MDX 2 1 DECR WORD CNT, SKIP IF ZERO N0104820 05D6 70F8 489 | MDX RA260 BRANCH TO PACK NEXT PAIR N0104830 490 | * N0104840 491 | * TEST FOR MONITOR CONTROL RECORD TYPE N0104850 492 | * N0104860 05D7 C400 0FB2 493 | RA300 LD L @SBFR+2 FETCH SECOND HALF OF NAME N0104870 05D9 1890 494 | SRT 16 *AND SHIFT TO EXTENSION N0104880 05DA C400 0FB1 495 | LD L @SBFR+1 FETCH FIRST HALF OF NAME N0104890 05DC D827 496 | STD RA930 *AND SAVE NAME N0104900 05DD 9029 497 | S RA933 TEST FOR AND N0104910 05DE 4C20 05E2 498 | BSC L RA340,Z *BR IF NOT A COMMENTS RCD N0104920 05E0 63F2 499 | LDX 3 -@NMCR-1 PT TO COMMENTS RCD RETURN NN0104930 05E1 700E 500 | MDX RA370 BRANCH TO PRINT COMMENT RCD N0104940 501 | * N0104950 05E2 6500 056E 502 | RA340 LDX L1 SUPV2 XR1 POINTS TO SLET N0104960 05E4 62E5 503 | LDX 2 -2*@NMCR-1 XR2 = NO. WDS IN NAME TBL N0104970 05E5 63F3 504 | LDX 3 -@NMCR XR3 = NO. MON CTRL NAMES N0104980 05E6 C81D 505 | RA360 LDD RA930 FETCH CONTROL NAME N0104990 05E7 9E00 0623 506 | SD L2 RA934+2*@NMCR+1 TEST FOR AND BRANCH N0105000 05E9 4C20 05F9 507 | BSC L RA390,Z *IF FIRST HALF NOT THE SAME N0105010 05EB 1090 508 | SLT 16 TEST FOR AND BRANCH IF N0105020 05EC 4C20 05F9 509 | BSC L RA390,Z *SECOND HALF NOT THE SAME N0105030 05EE 721A 510 | MDX 2 2*@NMCR SKIP IF NOT A 'JOB' RECORD N0105040 05EF 7007 511 | MDX RA380 BRANCH TO PROCESS 'JOB' RCD N0105050 05F0 7400 0071 512 | RA370 MDX L $FLSH,0 TEST FOR AND BRANCH TO READ N0105060 05F2 70D1 513 | MDX RA220 *NEXT RCD IF ABORT INDR ON N0105070 05F3 C400 06C7 514 | LD L SBADR FETCH ADDR OF SUPV BUFFER N0105080 05F5 4400 06CD 515 | BSI L RA850 BRANCH TO PRINT THE RECORD N0105090 05F7 4F80 0630 516 | RA380 BSC I3 RA936+@NMCR BRANCH TO PROCESS RCD N0105100 517 | * N0105110 05F9 7104 518 | RA390 MDX 1 4 INCREMENT SLET POINTER N0105120 05FA 7202 519 | MDX 2 2 INCREMENT NAME POINTER N0105130 05FB 7301 520 | MDX 3 1 INCR NAME CNT, SKIP IF ZERO N0105140 05FC 70E9 521 | MDX RA360 BRANCH TO TEST NEXT NAME N0105150 05FD C400 06C7 522 | LD L SBADR FETCH ADDR OF SUPV BUFFER N0105160 05FF 4400 06CD 523 | BSI L RA850 BRANCH TO PRINT THE RECORD N0105170 0601 6301 524 | LDX 3 1 POINT TO ERROR MESSAGE M 11 N0105180 0602 4400 06E4 525 | BSI L RA900 BRANCH TO PRINT THE MESSAGE N0105190 526 | * N0105200 527 | * CONSTANTS AND WORK AREAS N0105210 528 | * N0105220 0604 529 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0105230 0604 530 | RA930 BSS 2 CONTROL NAME N0105240 0606 0028 531 | RA932 DC @PBWC PACKED I/O BUFFER WORD CNT N0105250 532 | * N0105260 0607 405C 533 | RA933 EBC . *. COMMENTS CONTROL RECORD N0105270 0608 40D1 D6C2 534 | RA934 EBC . JOB. JOB CONTROL RECORD N0105280 060A 40C5 D1C5 535 | EBC . EJE. EJECT CONTROL RECORD N0105290 060C 40D7 C1E4 536 | EBC . PAU. PAUSE CONTROL RECORD N0105300 060E 40C3 D7D9 537 | EBC . CPR. CPRT CONTROL RECORD N0105310 0610 40E3 E8D7 538 | EBC . TYP. TYPE CONTROL RECORD N0105320 0612 40E3 C5D5 539 | EBC . TEN. TEND CONTROL RECORD N0105330 0614 40E7 C5D8 540 | EBC . XEQ. XEQ CONTROL RECORD N0105340 0616 40C4 E4D7 541 | EBC . DUP. DUP CONTROL RECORD N0105350 0618 40C1 E2D4 542 | EBC . ASM. ASM CONTROL RECORD N0105360 061A 40C6 D6D9 543 | EBC . FOR. FOR CONTROL RECORD N0105370 061C 40D9 D7C7 544 | EBC . RPG. RPG CONTROL RECORD 2-5 N0105380 061E 40C3 C5D5 545 | EBC . CEN. CEN CONTROL RECORD 2-8 N0105390 0620 40C3 D6C2 546 | EBC . COB. COB CONTROL RECORD 2-9 N0105400 547 | * N0105410 0622 05C4 548 | DC RA220 COMMENTS RECORD RETURN N0105420 0623 0670 549 | RA936 DC RA600 JOB PROCESSING N0105430 0624 063B 550 | DC RA440 EJECT PROCESSING N0105440 0625 064E 551 | DC RA460 PAUSE PROCESSING N0105450 0626 0630 552 | DC RA400 CPRNT PROCESSING N0105460 0627 0656 553 | DC RA480 TYPE PROCESSING N0105470 0628 0656 554 | DC RA480 TEND PROCESSING N0105480 0629 0661 555 | DC RA500 XEQ PROCESSING N0105490 062A 0667 556 | DC RA520 DUP PROCESSING N0105500 062B 066D 557 | DC RA560 ASM PROCESSING N0105510 062C 066D 558 | DC RA560 FOR PROCESSING N0105520 062D 066D 559 | DC RA560 RPG PROCESSING 2-5 N0105530 062E 0630 560 | DC RA400 CEN PROCESSING 2-8 N0105540 062F 066D 561 | DC RA560 COB PROCESSING 2-9 N0105550 562 | * N0105560 563 | * SET CONSOLE PRINTER AS PRINCIPAL PRINT DEVICE N0105570 564 | * N0105580 0630 C902 565 | RA400 LDD 1 2 STORE WD CNT/SCTR ADDR OF N0105590 0631 DC00 0558 566 | STD L PRINT+2 *CNSL PTR TO PRINC PR DEV N0105600 567 | * N0105610 0633 C82A 568 | LDD RA940 FETCH FUNC CODE/I/O AR ADDR N0105620 0634 4400 00F2 569 | BSI L DZ000 BR TO WRITE SUPV TO DISK N0105630 0636 7400 00EE 570 | RA420 MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0105640 0638 70FD 571 | MDX RA420 BR TO TEST WRITE COMPLETE N0105650 0639 4C00 0516 572 | BSC L RA040 BR TO FETCH CNSL PTR SUBR N0105660 573 | * N0105670 574 | * THE NEXT INSTRUCTION SHOULD NOT OCCUR AFTER N0105680 575 | * LOCATION /0500 + @SCTR - 2. N0105690 576 | * N0105700 577 | * EJECT THE PAGE N0105710 063B CC00 0558 578 | RA440 LDD L PRINT+2 IS CONSOLE PRINTER = 212 N0105720 063D 9C00 057C 579 | SD L PCPAD+2 *TO PRINCIPAL PRINTER? 212 N0105722 063F 4C20 0644 580 | BSC L RA442,Z NO, BRANCH 212 N0105724 0641 6C80 0006 581 | STX I $CH12 SET CHANNEL 12 INDICATOR212 N0105730 0643 7008 582 | B RA443 212 N0105737 0644 4400 0750 583 | RA442 BSI L RSTOR GO DO EJECT 212 N0105738 0646 7400 0036 584 | RA441 MDX L $PBSY,0 2-7 N0105740 0648 70FD 585 | MDX RA441 2-7 N0105750 0649 1010 586 | SLA 16 2-10 N0105754 064A D480 0006 587 | STO I $CH12 CLEAR CH 12 INDICATOR 2-10 N0105755 064C 4C00 05C4 588 | RA443 BSC L RA220 BR TO READ NEXT N0105760 589 | * N0105770 590 | * PAUSE UNTIL 'PROGRAM START' KEY PRESSED N0105780 591 | * N0105790 064E 7400 0032 592 | RA460 MDX L $IOCT,0 SKIP NEXT IF I/O COMPLETE N0105800 0650 70FD 593 | MDX RA460 BRANCH TO TEST I/O COMPLETE N0105810 0651 C00E 594 | LD RA942 FETCH DISPLAY WORD N0105820 0652 4400 0028 595 | BSI L $PRET BRANCH TO WAIT N0105830 0654 4C00 05C4 596 | BSC L RA220 BRANCH TO READ NEXT RECORD N0105840 597 | * N0105850 598 | * RESET PRINCIPAL INPUT DEVICE N0105860 599 | * N0105870 0656 C902 600 | RA480 LDD 1 2 STORE WORD CNT/SCTR ADDR N0105880 0657 DC00 055C 601 | STD L PINPT+2 *OF PRINCIPAL INPUT SUBR N0105890 0659 C9F6 602 | LDD 1 -10 STORE WORD CNT/SCTR ADDR N0105900 065A DC00 0560 603 | STD L CNVRT+2 *OF PRINC CONVERSION SUBR N0105910 065C 4C00 0526 604 | BSC L RA070 BR TO FETCH PRINC INPUT N0105920 605 | * N0105930 606 | * CONSTANTS AND WORK AREAS N0105940 607 | * N0105950 065E 608 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0105960 065E 0001 609 | RA940 DC /0001 WRITE FUNCTION CODE N0105970 065F 04FE 610 | DC RA000-2 SUPV PHASE 1 I/O AREA ADDR N0105980 0660 FFFF 611 | RA942 DC /FFFF 'PAUSE' DISPLAY/NEGATIVE NO N0105990 612 | * N0106000 613 | * PROCESS XEQ CONTROL RECORD N0106010 614 | * N0106020 0661 C400 0035 615 | RA500 LD L $NXEQ TEST NON-EXECUTE SWITCH N0106030 0663 4C18 0670 616 | BSC L RA600,+- *AND BRANCH IF OFF N0106040 0665 6302 617 | LDX 3 2 POINT TO ERROR MESSAGE M 12 N0106050 0666 407D 618 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106060 619 | * N0106070 620 | * PROCESS DUP CONTROL RECORD N0106080 621 | * N0106090 0667 C400 0034 622 | RA520 LD L $NDUP TEST NON-DUP SWITCH N0106100 0669 4C18 0670 623 | BSC L RA600,+- *AND BRANCH IF OFF N0106110 066B 6303 624 | LDX 3 3 POINT TO ERROR MESSAGE M 13 N0106120 066C 4077 625 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106130 626 | * N0106140 627 | * PROCESS ASM, FOR, RPG, AND COB CTRL RCDS 2-9 N0106150 628 | * N0106160 066D 1810 629 | RA560 SRA 16 SET 2-3 N0106170 066E D400 0034 630 | STO L $NDUP *NON-DUP SWITCH OFF 2-3 N0106180 631 | * N0106190 632 | * FETCH AND TRANSFER TO A NEW PHASE N0106200 633 | * N0106210 0670 C902 634 | RA600 LDD 1 2 FETCH WORD CNT/SCTR ADDRESS N0106220 0671 4C08 0690 635 | BSC L RA700,+ BRANCH IF WORD COUNT ZERO N0106230 0673 D80E 636 | STD RA660 STORE WORD CNT/SCTR ADDRESS N0106240 0674 C101 637 | LD 1 1 FETCH AND N0106250 0675 D00E 638 | STO RA680 *STORE I/O AREA ADDRESS N0106260 0676 6580 0684 639 | LDX I1 RA680 XR1 = I/O AREA ADDRESS N0106270 640 | * N0106280 641 | * MOVE 'FETCH' AND 'TRANSFER' INSTRUCTIONS N0106290 642 | * TO $HASH N0106300 643 | * N0106310 0678 62F2 644 | LDX 2 -@INST XR2 = WORD COUNT N0106320 0679 C600 0690 645 | RA640 LD L2 RA660+@INST FETCH AND STORE N0106330 067B D600 0022 646 | STO L2 $HASH+@INST *A WORD TO $HASH AREA N0106340 067D 7201 647 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0106350 067E 70FA 648 | MDX RA640 BRANCH TO FETCH NEXT WORD N0106360 067F 4C00 0017 649 | BSC L $HASH+3 BRANCH TO FETCH NEW PHASE N0106370 650 | * N0106380 651 | * THE FOLLOWING BLOCK IS MOVED TO THE $HASH N0106390 652 | * AREA TO FETCH AND TRANSFER TO A NEW PHASE N0106400 653 | * N0106410 0682 654 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0106420 0682 0000 655 | RA660 DC *-* PHASE WORD COUNT N0106430 0683 0000 656 | DC *-* PHASE SECTOR ADDRESS N0106440 0684 0000 657 | RA680 DC *-* PHASE I/O AREA ADDRESS N0106450 0685 C8FC 658 | LDD RA660 FETCH WD CNT AND SCTR ADDR N0106460 0686 D900 659 | STD 1 0 *AND STORE TO I/O AREA N0106470 0687 C0FC 660 | LD RA680 FETCH ADDRESS OF I/O AREA N0106480 0688 1890 661 | SRT 16 SHIFT TO EXT, ACC = 0 N0106490 0689 4400 00F2 662 | BSI L DZ000 BRANCH TO READ A PHASE N0106500 068B 7400 00EE 663 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0106510 068D 70FD 664 | MDX *-3 BR TO TEST READ COMPLETE N0106520 068E 4D00 0002 665 | BSC L1 2 BRANCH TO THE NEXT PHASE N0106530 666 | * N0106540 667 | * REQUESTED PROGRAM IS NOT AVAILABLE N0106550 668 | * N0106560 0690 C035 669 | RA700 LD RA980 SET N0106570 0691 D400 0034 670 | STO L $NDUP *NON-DUP SWITCH AND N0106580 0693 D400 0035 671 | STO L $NXEQ *NON-EXECUTE SWITCH ON N0106590 0695 6306 672 | LDX 3 6 POINT TO ERROR MESSAGE M 16 N0106600 0696 404D 673 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106610 674 | * N0106620 675 | * FETCH CORE IMAGE LOADER VIA CALL $LINK N0106630 676 | * N0106631 0697 C0C8 677 | RA740 LD RA942 SET FLAG -1 TO TELL CIL 2-9 N0106633 0698 D400 001B 678 | STO L $HASH+7 *$LNXQ SHOULD BE SET +1 2-9 N0106635 069A 7001 679 | MDX RA745 BR OVER POSSIBLE BSS WD 2-9 N0106638 069C 680 | BSS E 0 FORCE NEXT LOC EVEN 2-9 N0106640 069C 4400 0039 681 | RA745 BSI L $LINK BRANCH TO $LINK 2-9 N0106650 069E 682 | NAMEP BSS 2 MAINLINE NAME N0106670 683 | * N0106680 684 | * FETCH CORE LOAD BUILDER N0106690 685 | * N0106700 06A0 6500 056A 686 | RA760 LDX L1 CLBP1 XR1 PTS TO CLB PH 1 SLET N0106710 06A2 70CD 687 | MDX RA600 BRANCH TO FETCH CLB PH 1 N0106720 688 | * N0106730 689 | * CONSTANTS AND WORK AREAS N0106740 690 | * N0106750 000E 691 | @INST EQU RA700-RA660 WORD COUNT N0106760 06A3 0000 692 | NORCD DC *-* NO. OF SUPV CONTROL RECORDS N0106770 06A4 0000 693 | NINDR DC *-* MAINLINE NAME INDICATOR N0106780 06A5 0000 694 | JOBXQ DC *-* ZERO=EQUAT RCDS ONLY 2-4 N0106790 695 | * N0106800 696 | *************************************************** N0106810 697 | * N0106820 698 | * READ A RECORD AND CONVERT TO EBCDIC N0106830 699 | * N0106840 06A6 0000 700 | RA800 DC 0 ENTRY/RETURN ADDRESS N0106850 06A7 C023 701 | RA810 LD RA985 SET BUFFER WORD COUNT AT212 N0106920 06A8 D480 06C7 702 | STO I SBADR *BEGINNING OF SUPV BUFFER N0106930 06AA C81B 703 | LDD RA980 FETCH FUNC CODE/I/O AREA N0106940 06AB 4400 0321 704 | BSI L INPUT BRANCH TO READ A RECORD N0106950 06AD 7400 0013 705 | RA840 MDX L $IBSY,0 SKIP NEXT IF READ COMPLETE N0106960 06AF 70FD 706 | MDX RA840 BR TO TEST READ COMPLETE N0106970 06B0 C400 007C 707 | LD L $KCSW KEYBOARD UTILIZED? 212 N0106975 06B2 4C20 06BE 708 | BSC L RA845,Z BRANCH IF YES 212 N0106980 06B4 C400 0FB0 709 | LD L @SBFR READ 1ST COL IN RD BUF 212 N0106981 06B6 9015 710 | S RA986 SUB REP OF SLASH 212 N0106982 06B7 4820 711 | BSC Z SKIP IF IT IS A SLASH 212 N0106983 06B8 70EE 712 | MDX RA810 ELSE, LOOP 212 N0106984 06B9 C400 0FB1 713 | LD L @SBFR+1 CHECK SECOND COLUMN FOR 212 N0106985 06BB 9010 714 | S RA986 *A SLASH 212 N0106986 06BC 4820 715 | BSC Z SKIP IF SLASH 212 N0106987 06BD 70E9 716 | MDX RA810 ELSE LOOP 212 N0106988 06BE C008 717 | RA845 LD SBADR BR TO CONVERSION SUBR N0106990 06BF 4480 06CA 718 | BSI I CONVT *TO CONVERT RCD TO EBCDIC N0107000 719 | * N0107010 06C1 C400 000F 720 | LD L $CTSW TEST FOR AND RETURN IF RCD N0107020 06C3 4CA0 06A6 721 | BSC I RA800,Z *JUST READ A MON CTRL RCD N0107030 06C5 70E1 722 | MDX RA810 BRANCH TO READ NEXT RECORD N0107040 723 | * N0107050 724 | * CONSTANTS AND WORK AREAS N0107060 725 | * N0107070 06C6 726 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0107080 06C6 7002 727 | RA980 DC /7002 READ/SPACE A LINE FUNC CODE N0107090 06C7 0FAF 728 | SBADR DC @SBFR-1 ADDR OF SUPV BFR I/O AREA N0107100 06C8 7001 729 | RA982 DC /7001 PRINT FUNCTION CODE N0107110 06C9 0000 730 | RA983 DC *-* I/O AREA ADDRESS N0107120 06CA 0000 731 | CONVT DC *-* CONVERSION SUBR ENTRY ADDR N0107130 06CB 0050 732 | RA985 DC @CCOL SUPV BUFFER WORD COUNT N0107140 06CC 3000 733 | RA986 DC /3000 REPRESENTATION OF SLASH 212 N0107145 734 | * N0107150 735 | *************************************************** N0107160 736 | * N0107170 737 | * PRINT A MONITOR CONTROL RECORD OR MESSAGE N0107180 738 | * N0107190 06CD 0000 739 | RA850 DC 0 ENTRY/RETURN ADDRESS N0107200 06CE D0FA 740 | STO RA983 STORE I/O AREA ADDRESS N0107210 06CF C400 057D 741 | LD L PCPAD+3 TEST IF CP IS PRINC PR 2-8 N0107220 06D1 9400 0559 742 | S L PRINT+3 2-8 N0107230 06D3 4C18 06D9 743 | BSC L RA855,+- BRANCH IF CP PRINC PR 2-8 N0107240 06D5 C480 0006 744 | LD I $CH12 FETCH CHANNEL 12 INDICATOR N0107250 06D7 4420 0750 745 | BSI L RSTOR,Z BR TO RESTORE PAGE IF NON-Z N0107260 06D9 C0EC 746 | RA855 LD RA980 FETCH SPACE FUNCTION CODE N0107270 06DA 4400 01E1 747 | BSI L OUTPT BRANCH TO SPACE A LINE N0107280 06DC C8EB 748 | LDD RA982 FETCH FUNC CODE/I/O AR ADDR N0107290 06DD 4400 01E1 749 | BSI L OUTPT BRANCH TO PRINT A LINE N0107300 06DF 7400 0036 750 | RA860 MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE N0107310 06E1 70FD 751 | MDX RA860 BR TO TEST PRINT COMPLETE N0107320 06E2 4C80 06CD 752 | BSC I RA850 RETURN N0107330 753 | * N0107340 754 | *************************************************** N0107350 755 | * N0107360 756 | * PRINT THE ERROR MESSAGES N0107370 757 | * N0107380 06E4 0000 758 | RA900 DC 0 ENTRY/RETURN ADDRESS N0107390 06E5 C700 06E9 759 | LD L3 RA990-1 FETCH ADDR OF ERROR MESSAGE N0107400 06E7 40E5 760 | BSI RA850 BRANCH TO PRINT THE MESSAGE N0107410 06E8 4C00 05C4 761 | BSC L RA220 BRANCH TO READ NEXT RECORD N0107420 762 | * N0107430 763 | * ERROR MESSAGES N0107440 764 | * N0107450 06EA 06F0 765 | RA990 DC RA991 ADDRESS OF MESSAGE M 11 N0107460 06EB 0703 766 | DC RA992 ADDRESS OF MESSAGE M 12 N0107470 06EC 0711 767 | DC RA993 ADDRESS OF MESSAGE M 13 N0107480 06ED 071C 768 | DC RA994 ADDRESS OF MESSAGE M 14 N0107490 06EE 0737 769 | DC RA995 ADDRESS OF MESSAGE M 15 N0107500 06EF 0745 770 | DC RA996 ADDRESS OF MESSAGE M 16 N0107510 771 | * N0107520 06F0 0012 772 | RA991 DC RA992-* WORD COUNT OF MESSAGE M 11 N0107530 06F1 D440 F1F1 40C9 D5E5 773 | EBC .M 11 INVALID MONITOR CONTROL RECORD. N0107540 C1D3 C9C4 40D4 D6D5 | C9E3 D6D9 40C3 D6D5 | E3D9 D6D3 40D9 C5C3 | D6D9 C440 | 0703 000D 774 | RA992 DC RA993-* WORD COUNT OF MESSAGE M 12 N0107550 0704 D440 F1F2 40C5 E7C5 775 | EBC .M 12 EXECUTION SUPPRESSED. N0107560 C3E4 E3C9 D6D5 40E2 | E4D7 D7D9 C5E2 E2C5 | C440 | 0711 000A 776 | RA993 DC RA994-* WORD COUNT OF MESSAGE M 13 N0107570 0712 D440 F1F3 40C4 E4D7 777 | EBC .M 13 DUP SUPPRESSED. N0107580 40E2 E4D7 D7D9 C5E2 | E2C5 C440 | 071C 001A 778 | RA994 DC RA995-* WORD COUNT OF MESSAGE M 14 N0107590 071D D440 F1F4 40E2 E8E2 779 | EBC .M 14 SYSTEM PROGRAM DETECTED MONIT. N0107600 E3C5 D440 D7D9 D6C7 | D9C1 D440 C4C5 E3C5 | C3E3 C5C4 40D4 D6D5 | C9E3 | 072E D6D9 40C3 D6D5 E3D9 780 | EBC .OR CONTROL RECORD. N0107610 D6D3 40D9 C5C3 D6D9 | C440 | 0737 000D 781 | RA995 DC RA996-* WORD COUNT OF MESSAGE M 15 N0107620 0738 D440 F1F5 40C9 D3D3 782 | EBC .M 15 ILLEGAL CARTRIDGE ID. N0107630 C5C7 C1D3 40C3 C1D9 | E3D9 C9C4 C7C5 40C9 | C440 | 0745 000A 783 | RA996 DC RA997-* WORD COUNT OF MESSAGE M 16 N0107640 0746 D440 F1F6 40D7 D9D6 784 | EBC .M 16 PROGRAM VOIDED. N0107650 C7D9 C1D4 40E5 D6C9 | C4C5 C440 | 0750 785 | RA997 BSS 0 N0107660 786 | * N0107670 787 | *************************************************** N0107680 788 | * N0107690 789 | * RESTORE THE PAGE AND PRINT THE HEADING N0107700 790 | * N0107710 0750 0000 791 | RSTOR DC 0 ENTRY/RETURN ADDRESS N0107720 0751 C015 792 | LD RS903 FETCH HEADING SCTR ADDRESS N0107730 0752 D016 793 | STO RS905 *AND STORE TO HEADING BFR N0107740 0753 C012 794 | LD RS902 FETCH ADDR OF HEADING BFR N0107750 0754 1890 795 | SRT 16 SHIFT TO EXT, ACC = 0 N0107760 0755 4400 00F2 796 | BSI L DZ000 BRANCH TO READ HEADING SCTR N0107770 0757 7400 00EE 797 | RS100 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0107780 0759 70FD 798 | MDX RS100 BR TO TEST READ COMPLETE N0107790 799 | * N0107800 075A C00D 800 | LD RS904 FETCH HEADING WORD COUNT N0107810 075B D00D 801 | STO RS905 *AND STORE TO PRINT BUFFER N0107820 075C C807 802 | LDD RS900 FETCH FUNC CODE/I/O AR ADDR N0107830 075D 4400 01E1 803 | BSI L OUTPT BRANCH TO RESTORE PAGE N0107840 075F 4400 01E1 804 | BSI L OUTPT BRANCH TO PRINT HEADING N0107850 0761 4C80 0750 805 | BSC I RSTOR RETURN N0107860 806 | * N0107870 807 | * CONSTANTS AND WORK AREAS N0107880 808 | * N0107890 0764 809 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0107900 0764 7000 810 | RS900 DC /7000 RESTORE PAGE FUNCTION CODE N0107910 0765 0769 811 | RS901 DC RS905 ADDR OF HEADING PRINT BFR N0107920 0766 0768 812 | RS902 DC RS904 ADDR OF HEADING DISK BUFFER N0107930 0767 0007 813 | RS903 DC #HDNG HEADING SECTOR ADDRESS N0107940 0768 000A 814 | RS904 DC @HDWC HEADING DISK BUFFER WD CNT N0107950 0769 0000 815 | RS905 DC *-* SECTOR ADDRESS/WORD COUNT N0107960 076A 816 | RS906 BSS @HDWC HEADING BUFFER N0107970 817 | * N0107980 0774 0000 818 | RS908 DC /0000 READ FUNCTION CODE N0107990 0775 0E6C 819 | DC DCOM-2 ADDRESS OF DCOM I/O AREA N0108000 0776 0001 820 | RS910 DC /0001 WRITE FUNCTION CODE N0108010 0777 0E6C 821 | DC DCOM-2 ADDRESS OF DCOM I/O AREA N0108020 0778 0140 822 | RS912 DC @SCTR WORD COUNT OF DCOM I/O AREA N0108030 0779 0001 823 | DC #DCOM SECTOR ADDRESS OF DCOM N0108040 824 | * N0108050 825 | *************************************************** N0108060 826 | * N0108070 827 | * READ DCOM FROM DISK N0108080 828 | * N0108090 077A 0000 829 | RDCOM DC 0 ENTRY/RETURN ADDRESS N0108100 077B C0FE 830 | LD RDCOM FETCH AND N0108110 077C D005 831 | STO WDCOM *STORE RETURN ADDRESS N0108120 077D C8FA 832 | LDD RS912 FETCH AND N0108130 077E DC00 0E6C 833 | STD L DCOM-2 *STORE DCOM WORD COUNT N0108140 0780 C8F3 834 | LDD RS908 FETCH FUNC CODE/I/O AR ADDR N0108150 0781 7002 835 | MDX WD010 BRANCH TO READ DCOM N0108160 836 | * N0108170 837 | *************************************************** N0108180 838 | * N0108190 839 | * WRITE UPDATED DCOM TO DISK N0108200 840 | * N0108210 0782 0000 841 | WDCOM DC 0 ENTRY/RETURN ADDRESS N0108220 0783 C8F2 842 | LDD RS910 FETCH FUNC CODE/I/O AR ADDR N0108230 0784 4400 00F2 843 | WD010 BSI L DZ000 BRANCH TO READ OR WRITE N0108240 0786 7400 00EE 844 | WD020 MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE N0108250 0788 70FD 845 | MDX WD020 BRANCH TO TEST OP COMPLETE N0108260 0789 4C80 0782 846 | BSC I WDCOM RETURN N0108270 LABCK SUBR TO CONVERT TO NAME CODE 848 | * CONVERT NAME FROM UNPACKED FORM (1 CHARACTER/ N0108290 849 | * WORD TO COMPRESSED FORM (5 6-BIT CHARACTERS N0108300 850 | * TO 30 RIGHT JUSTIFIED BITS IN TWO WORDS.) IF N0108310 851 | * IS INVALID, PSEUDO-SKIP AND RETURN ZEROS N0108320 852 | * EQUIVALENT TO 5 BLANKS) IN ACCUMULATOR AND N0108330 853 | * EXTENTION. N0108340 854 | * N0108350 078B 0000 855 | LABCK DC 0 ENTRY/RETURN ADDRESS N0108360 078C C200 856 | LD 2 0 N0108370 078D 902E 857 | S LAB06 FIRST CHARACTER MUST NOT N0108380 078E 4C10 07A9 858 | BSC L LAB04,- *BE NUMERIC N0108390 0790 693C 859 | STX 1 LAB09+1 SAVE XR1 N0108400 0791 6B3D 860 | STX 3 LAB09+3 SAVE XR3 N0108410 0792 63FB 861 | LDX 3 -5 N0108420 0793 C200 862 | LD 2 0 N0108430 0794 9028 863 | S LAB06+1 N0108440 0795 4C18 07DE 864 | BSC L LAB12,+- BRANCH IF FIRST CHAR. BLANK N0108450 0797 6500 07AF 865 | LAB01 LDX L1 LAB05 N0108460 0799 C200 866 | LD 2 0 CHECK EACH CHARACTER FOR N0108470 079A 9022 867 | S LAB06+1 *BLANK N0108480 079B 4C18 07D2 868 | BSC L LAB10,+- N0108490 079D 9100 869 | LAB02 S 1 0 *AND VALID 8-BIT CHARACTER N0108500 079E 4C28 07A9 870 | BSC L LAB04,Z+ N0108510 07A0 9101 871 | S 1 1 N0108520 07A1 4C08 07A5 872 | BSC L LAB03,+ N0108530 07A3 7102 873 | MDX 1 2 N0108540 07A4 70F8 874 | MDX LAB02 N0108550 07A5 7201 875 | LAB03 MDX 2 1 INCREMENT POINTER N0108560 07A6 7301 876 | MDX 3 1 COUNT AND TEST CHARACTERS N0108570 07A7 70EF 877 | MDX LAB01 GO TEST NEXT CHARACTER N0108580 07A8 7016 878 | MDX LAB07 N0108590 07A9 6580 07CD 879 | LAB04 LDX I1 LAB09+1 LABEL ERROR N0108600 07AB 10A0 880 | SLT 32 RETURN BLANKS N0108610 07AC 7401 078B 881 | MDX L LABCK,1 PSEUDO-SKIP N0108620 07AE 701D 882 | MDX LAB09 N0108630 883 | * N0108640 07AF 001B 884 | LAB05 DC .$-. TABLE OF VALID CHARACTERS N0108650 07B0 0000 885 | DC .$-.$ (INCLUSIVE LIMITS) N0108660 886 | * DC .@-.$ A-I,J-R,S-Z,0-9,$,#,@ N0108670 887 | * CHANGED THESE LINES TO MATCH MICROFICHE KNITTEL 888 | * AS IT WAS IT DID NOT WORK KNITTEL 07B1 0020 889 | DC .#-.$ A-I,J-R,S-Z,0-9,$,#,@ KNITTEL 890 | * DC /0001 .@-.# APOSTR IS AT SIGN 2-8 N0108680 07B2 0001 891 | DC /0001 .'-.# APOSTR IS AT SIGN 2-8 KNITTEL 892 | * DC /0045 .A-.@ APOSTR IS AT SIGN 2-8 N0108690 07B3 0045 893 | DC /0045 .A-.' APOSTR IS AT SIGN 2-8 KNITTEL 07B4 0008 894 | DC .I-.A N0108700 07B5 0008 895 | DC .J-.I N0108710 07B6 0008 896 | DC .R-.J N0108720 07B7 0009 897 | DC .S-.R N0108730 07B8 0007 898 | DC .Z-.S N0108740 07B9 0007 899 | DC .0-.Z N0108750 07BA 0009 900 | DC .9-.0 N0108760 07BB 3F06 901 | DC /3FFF-.9 (FORCE END CHECK LOOP) N0108770 07BC 00F0 902 | LAB06 DC .0 N0108780 07BD 0040 903 | DC /0040 N0108790 07BE 003F 904 | DC /003F N0108800 905 | * N0108810 07BF 72FB 906 | LAB07 MDX 2 -5 LABEL IS VALID N0108820 07C0 63FB 907 | LDX 3 -5 COLLECT IT N0108830 07C1 10A0 908 | SLT 32 N0108840 07C2 D821 909 | LAB08 STD LAB13 N0108850 07C3 C200 910 | LD 2 0 N0108860 07C4 E0F9 911 | AND LAB06+2 N0108870 07C5 100A 912 | SLA 10 N0108880 07C6 E81D 913 | OR LAB13 N0108890 07C7 18DA 914 | RTE 32-6 N0108900 07C8 7201 915 | MDX 2 1 N0108910 07C9 7301 916 | MDX 3 1 N0108920 07CA 70F7 917 | MDX LAB08 N0108930 07CB 72FB 918 | MDX 2 -5 N0108940 07CC 6500 0000 919 | LAB09 LDX L1 *-* RESTORE XR1 N0108950 07CE 6700 0000 920 | LDX L3 *-* RESTORE XR3 N0108960 07D0 4C80 078B 921 | BSC I LABCK EXIT N0108970 07D2 C200 922 | LAB10 LD 2 0 CHECK LABEL FOR EMBEDDED N0108980 07D3 90E9 923 | S LAB06+1 *BLANKS N0108990 07D4 4C20 07A9 924 | BSC L LAB04,Z N0109000 07D6 7201 925 | MDX 2 1 N0109010 07D7 7301 926 | MDX 3 1 N0109020 07D8 70F9 927 | MDX LAB10 N0109030 07D9 70E5 928 | MDX LAB07 N0109040 929 | * N0109050 07DA C200 930 | LAB11 LD 2 0 N0109060 07DB 90E1 931 | S LAB06+1 N0109070 07DC 4C20 07A9 932 | BSC L LAB04,Z BRANCH IF CHAR. NOT BLANK N0109080 07DE 7201 933 | LAB12 MDX 2 1 N0109090 07DF 7301 934 | MDX 3 1 N0109100 07E0 70F9 935 | MDX LAB11 N0109110 07E1 10A0 936 | SLT 32 SET NAME CODE TO ZERO N0109120 07E2 70E9 937 | MDX LAB09 N0109130 938 | * N0109140 07E4 939 | LAB13 BSS E 2 N0109150 940 | * N0109160 941 | * N0109170 07E6 942 | BSS @PROC-LAB13-5 PATCH AREA N0109180 943 | * N0109190 944 | * N0109200 07FD 0000 945 | RA999 DC 0 END OF PHASE 1 - MCRA N0109210 SUPV PHASE 2 - JOB PROCESSING 947 | *************************************************** N0109230 948 | *STATUS - VERSION 2, MODIFICATION 10 * N0109240 949 | * * N0109250 950 | *FUNCTION/OPERATION - * N0109260 951 | * * RESTORE THE PAGE AND PRINT THE JOB RECORD. * N0109270 952 | * * CONVERT THE CARTRIDGE IDS TO BINARY AND * N0109280 953 | * CALL SYSUP TO UPDATE TABLES IN SYSTEM DCOM. * N0109290 954 | * * INITIALIZE THE HEADING SECTOR - * N0109300 955 | * * WORDS 0-3 CONTAIN 'PAGE 1' * N0109310 956 | * * WORDS 6-9 CONTAIN COLUMNS 51-58 OF THE * N0109320 957 | * JOB RECORD * N0109330 958 | * * WORDS 10-319 CONTAIN BLANKS. * N0109340 959 | * * INITIALIZE COMMA. * N0109350 960 | * * INITIALIZE DCOM. * N0109360 961 | * * PRINT THE SYSTEM VERSION AND MODIFICATION * N0109370 962 | * LEVEL AND THE ACTUAL AND CONFIGURED CORE * N0109380 963 | * SIZES. * N0109390 964 | * * N0109400 965 | *ENTRY POINTS - * N0109410 966 | * PROGRAM START - JB000 * N0109420 967 | * * N0109430 968 | *INPUT - N/A * N0109440 969 | * * N0109450 970 | *OUTPUT - * N0109460 971 | * * THE JOB CONTROL RECORD IS PRINTED. * N0109470 972 | * * THE SYSTEM VERSION AND MODIFICATION LEVEL * N0109480 973 | * ARE PRINTED. * N0109490 974 | * * THE ACTUAL AND CONFIGURED CORE SIZES ARE * N0109500 975 | * PRINTED. * N0109510 976 | * * N0109520 977 | *EXTERNAL REFERENCES - * N0109530 978 | * * IN COMMA - * N0109540 979 | * $CIBA * N0109550 980 | * $COMN * N0109560 981 | * $CORE * N0109570 982 | * $CTSW * N0109580 983 | * $DADR * N0109590 984 | * $DUMP * N0109600 985 | * $FLSH * N0109610 986 | * $I420 * N0109620 987 | * $IBSY * N0109630 988 | * $IOCT * N0109640 989 | * $IREQ * N0109650 990 | * $LEV5 * N0109660 991 | * $LINK * N0109670 992 | * $NDUP * N0109680 993 | * $NXEQ * N0109690 994 | * $PBSY * N0109700 995 | * $PGCT * N0109710 996 | * $PHSE * N0109720 997 | * $PRET * N0109730 998 | * $PST1 * N0109740 999 | * $PST2 * N0109750 1000 | * $PST3 * N0109760 1001 | * $PST4 * N0109770 1002 | * $SNLT * N0109780 1003 | * $STOP * N0109790 1004 | * $SYSC * N0109800 1005 | * $UFDR * N0109810 1006 | * $UFIO * N0109820 1007 | * $WRD1 * N0109830 1008 | * $WSDR * N0109840 1009 | * * IN DCOM - * N0109850 1010 | * #CBSW * N0109860 1011 | * #CIBA * N0109870 1012 | * #CIDN * N0109880 1013 | * #DBCT * N0109890 1014 | * #DCSW * N0109900 1015 | * #ECNT 2-4* N0109910 1016 | * #ENTY * N0109920 1017 | * #FCNT * N0109930 1018 | * #FHOL * N0109940 1019 | * #FMAT * N0109950 1020 | * #FRDR * N0109960 1021 | * #FSZE * N0109970 1022 | * #GCNT * N0109980 1023 | * #JBSW * N0109990 1024 | * #LCNT * N0110000 1025 | * #MDF1 * N0110010 1026 | * #MDF2 * N0110020 1027 | * #MPSW * N0110030 1028 | * #NAME * N0110040 1029 | * #NCNT * N0110050 1030 | * #TODR * N0110060 1031 | * #UHOL * N0110070 1032 | * #USZE * N0110080 1033 | * #WSCT * N0110090 1034 | * * IN MCRA - * N0110100 1035 | * NORCD 2-4* N0110110 1036 | * PIDEV * N0110120 1037 | * PINPT * N0110130 1038 | * RA600 * N0110140 1039 | * RA850 * N0110150 1040 | * RA900 * N0110160 1041 | * RSTOR * N0110170 1042 | * SBADR * N0110180 1043 | * SUPV3 * N0110190 1044 | * * SUBROUTINES - * N0110200 1045 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0110210 1046 | * * N0110220 1047 | *EXITS - * N0110230 1048 | * * NORMAL - * N0110240 1049 | * AN EXIT IS MADE TO SUPERVISOR PHASE 3 TO * N0110250 1050 | * DELETE TEMPORARY LET ENTRIES. * N0110260 1051 | * * ERROR - * N0110270 1052 | * AN EXIT IS MADE TO THE MCRA (PHASE 1) TO * N0110280 1053 | * PRINT THE ERROR MESSAGE AND ABORT THE JOB. * N0110290 1054 | * * N0110300 1055 | *TABLES/WORK AREAS - * N0110310 1056 | * * @SBFR AN 80 WORD BUFFER WHICH CONTAINS THE* N0110320 1057 | * JOB MONITOR CONTROL RECORD. * N0110330 1058 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0110340 1059 | * COMMUNICATIONS AREA (DCOM) I/O. * N0110350 1060 | * * BUFFR A 320 WORD BUFFER USED FOR HEADING * N0110360 1061 | * SECTOR INITIALIZATION AND RESIDENT * N0110370 1062 | * IMAGE SECTOR INPUT. * N0110380 1063 | * * N0110390 1064 | *ATTRIBUTES - * N0110400 1065 | * * ABSOLUTE. * N0110410 1066 | * * REUSABLE. * N0110420 1067 | * * N0110430 1068 | *NOTES - N/A * N0110440 1069 | * * N0110450 1070 | *************************************************** N0110460 SUPV PHASE 2 - JOB PROCESSING 07FE 1072 | ORG @PROC-2 PHASE 2 I/O AREA ADDRESS N0110480 1073 | * N0110490 *SBRKMET 6F 1074 | *SUP PHASE 2 - JOB PROCESSING V2M04 N0110500 07FE 052B 1075 | DC JB999-* WORD COUNT N0110510 07FF 006F 1076 | DC @JOBP PHASE ID N0110520 SUPV PHASE 2 - JOB PROCESSING 0800 616F 1078 | JB000 LDX 1 @JOBP SET N0110540 0801 6D00 0078 1079 | STX L1 $PHSE *SUPERVISOR PHASE 2 INDR N0110550 0803 1000 1080 | NOP A WAIT MAY BE PATCHED HERE N0110560 1081 | * N0110570 1082 | * SET TEMPORARY MODE SWITCH N0110580 1083 | * N0110590 0804 C400 0FB3 1084 | LD L @SBFR+3 FETCH COLUMNS 7-8 N0110600 0806 905E 1085 | S JB900 TEST FOR AND N0110610 0807 4C18 080B 1086 | BSC L JB040,+- *BRANCH IF 'T' IN COLUMN 8 N0110620 0809 1810 1087 | SRA 16 CLEAR ACCUMULATOR N0110630 080A 7001 1088 | MDX JB060 SKIP NEXT INSTRUCTION N0110640 080B C059 1089 | JB040 LD JB900 FETCH NON-ZERO N0110650 080C D059 1090 | JB060 STO JB901 SAVE THE JOB SWITCH N0110660 1091 | * N0110670 1092 | * FETCH AND CONVERT HEXADECIMAL CARTRIDGE IDS N0110680 1093 | * N0110690 080D 61F8 1094 | JB100 LDX 1 -8 CARTRIDGE ID COUNT TO XR1 N0110700 080E 6204 1095 | LDX 2 4 WD CNT OF FIRST ID-1 TO XR2 N0110710 1096 | * N0110720 080F 63FC 1097 | JB110 LDX 3 -4 CHARACTER COUNT TO XR3 N0110730 0810 7201 1098 | JB120 MDX 2 1 INCREMENT WORD COUNT N0110740 0811 C600 0FB0 1099 | LD L2 @SBFR FETCH TWO CHARACTERS OF ID N0110750 0813 1890 1100 | SRT 16 SHIFT CHARACTERS TO EXT N0110760 0814 1810 1101 | SRA 16 CLEAR ACCUMULATOR N0110770 0815 1088 1102 | SLT 8 FETCH LEFT HALF OF WORD N0110780 0816 D700 089A 1103 | STO L3 JB922+4 STORE TO CONVERSION SUBR N0110790 0818 7301 1104 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0110800 0819 7006 1105 | MDX JB130 BR TO FETCH RIGHT HALF N0110810 1106 | * N0110820 081A 4059 1107 | BSI JB200 BR TO CONVERSION SUBR N0110830 081B D500 086F 1108 | STO L1 JB902+8 STORE BINARY CARTRIDGE ID N0110840 081D 7101 1109 | MDX 1 1 INCREMENT CARTRIDGE ID CNT N0110850 081E 70F0 1110 | MDX JB110 BRANCH TO FETCH NEXT ID N0110860 081F 7010 1111 | MDX JB140 N0110870 1112 | * N0110880 0820 1810 1113 | JB130 SRA 16 CLEAR ACCUMULATOR N0110890 0821 1088 1114 | SLT 8 FETCH RIGHT HALF OF WORD N0110900 0822 D700 089A 1115 | STO L3 JB922+4 STORE TO CONVERSION SUBR N0110910 0824 7301 1116 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0110920 0825 70EA 1117 | MDX JB120 BR TO FETCH NEXT TWO CHAR N0110930 1118 | * N0110940 0826 404D 1119 | BSI JB200 BR TO CONVERSION SUBR N0110950 0827 D500 086F 1120 | STO L1 JB902+8 STORE BINARY CARTRIDGE ID N0110960 0829 7201 1121 | MDX 2 1 INCREMENT WORD COUNT N0110970 082A C600 0FB0 1122 | LD L2 @SBFR FETCH A CHARACTER N0110980 082C 1888 1123 | SRT 8 SHIFT TO EXTENTION N0110990 082D 63FC 1124 | LDX 3 -4 CHARACTER COUNT TO XR3 N0111000 082E 7101 1125 | MDX 1 1 INCR CART CNT, SKIP IF ZERO N0111010 082F 70F0 1126 | MDX JB130 BR TO STORE CHARACTER N0111020 1127 | * N0111030 0830 4400 09A0 1128 | JB140 BSI L SYSUP BRANCH TO UPDATE DCOM N0111040 0832 0867 1129 | DC JB902 ADDR OF CARTRIDGE ID TABLE N0111050 1130 | * N0111060 1131 | * DEFINE SECTOR ADDRESS OF CIB, DRIVE CODE OF N0111070 1132 | * WORKING STORAGE AND DRIVE CODE OF UNFORMATTED N0111080 1133 | * I/O N0111090 1134 | * N0111100 0833 6500 086C 1135 | LDX L1 CIBID ADDRESS OF FIRST ID TO XR1 N0111110 0835 63FD 1136 | LDX 3 -3 CARTRIDGE ID COUNT TO XR3 N0111120 1137 | * N0111130 0836 62FB 1138 | JB150 LDX 2 -5 ID LIST COUNT TO XR2 N0111140 0837 C100 1139 | LD 1 0 FETCH A CARTRIDGE ID N0111150 0838 4C18 0844 1140 | BSC L JB180,+- BRANCH IF BLANK N0111160 083A C600 0EAA 1141 | JB160 LD L2 #CIDN+5 FETCH CART ID FROM ID LIST N0111170 083C 4C18 0843 1142 | BSC L JB170,+- BRANCH IF BLANK N0111180 083E 9100 1143 | S 1 0 SUBTRACT THE CARTRIDGE ID N0111190 083F 4C18 0844 1144 | BSC L JB180,+- BRANCH IF THE IDS ARE EQUAL N0111200 0841 7201 1145 | MDX 2 1 INCR ID LIST CNT, SKIP IF Z N0111210 0842 70F7 1146 | MDX JB160 BR TO TEST NEXT IN ID LIST N0111220 1147 | * N0111230 0843 62FB 1148 | JB170 LDX 2 -5 RESET XR2 N0111240 1149 | * N0111250 0844 7205 1150 | JB180 MDX 2 5 SET XR2 POSITIVE N0111260 0845 1000 1151 | NOP N0111270 0846 6A2B 1152 | STX 2 JB905 *AND SAVE AS N0111280 0847 C02A 1153 | LD JB905 *THE DRIVE CODE N0111290 0848 D700 0872 1154 | STO L3 JB904+3 N0111300 1155 | * N0111310 084A 7101 1156 | MDX 1 1 INCR CARTRIDGE ID ADDRESS N0111320 084B 7301 1157 | MDX 3 1 INCR ID COUNT, SKIP IF ZERO N0111330 084C 70E9 1158 | MDX JB150 BRANCH TO FIND NEXT ID N0111340 1159 | * N0111350 084D 6580 086F 1160 | LDX I1 JB904 DRIVE CODE TO XR1 N0111360 084F C500 0EAA 1161 | LD L1 #CIBA FETCH SECTOR ADDRESS OF N0111370 0851 1004 1162 | SLA 4 CHECK IF CIB DLETED 2-6 N0111380 0852 4C18 0857 1163 | BSC L JB185,+- BR IF YES 2-6 N0111390 0854 C500 0EAA 1164 | LD L1 #CIBA 2-6 N0111400 0856 7002 1165 | MDX JB186 2-6 N0111410 0857 C400 0EAA 1166 | JB185 LD L #CIBA USE MASTER CIB IF 2-6 N0111420 1167 | * SPECIFIED CIB DELETED 2-6 N0111430 0859 D400 0005 1168 | JB186 STO L $CIBA *CIB AND STORE TO COMMA N0111440 085B C017 1169 | LD JB906 STORE WORD COUNT OF 2-4 N0111450 085C D400 0004 1170 | STO L $CIBA-1 *THE CIB TO COMMA 2-4 N0111460 085E C011 1171 | LD JB904+1 FETCH DRIVE CODE OF WORKING N0111470 085F D400 007A 1172 | STO L $WSDR *STORAGE AND STORE TO COMMA N0111480 0861 C00F 1173 | LD JB904+2 FETCH UNFORMATTED I/O DRIVE N0111490 0862 D400 007D 1174 | STO L $UFDR *CODE AND STORE TO COMMA N0111500 0864 703D 1175 | MDX JB600 CONTINUE N0111510 1176 | * N0111520 1177 | * CONSTANTS AND WORK AREAS N0111530 1178 | * N0111540 0865 40E3 1179 | JB900 EBC . T. EBCDIC BLANK - T N0111550 0866 0000 1180 | JB901 DC *-* NEW JOB SWITCH N0111560 0867 1181 | JB902 BSS 5 CARTRIDGE IDS (ID LIST) N0111570 086C 0000 1182 | CIBID DC *-* CARTRIDGE ID OF CIB N0111580 086D 0000 1183 | WSCID DC *-* CARTRIDGE ID OF WS N0111590 086E 0000 1184 | UNFIO DC *-* CARTRIDGE ID OF UNFMTED I/O N0111600 086F 0000 1185 | JB904 DC *-* DRIVE CODE OF CIB N0111610 0870 0000 1186 | DC *-* DRIVE CODE OF WS N0111620 0871 0000 1187 | DC *-* DRIVE CODE OF UNFMTED I/O N0111630 0872 0000 1188 | JB905 DC *-* TEMPORARY STORAGE N0111640 0873 0FFA 1189 | JB906 DC 4095-$CIBA WD COUNT OF CIB 2-4 N0111650 1190 | * N0111660 1191 | *************************************************** N0111670 1192 | * N0111680 1193 | * CONVERT FOUR HEXADECIMAL CHARACTERS N0111690 1194 | * TO A BINARY NUMBER N0111700 1195 | * N0111710 0874 0000 1196 | JB200 DC 0 ENTRY/RETURN ADDRESS N0111720 0875 10A0 1197 | SLT 32 CLEAR ACC AND EXT N0111730 0876 D81D 1198 | STD JB920 SET TEMPORARY SUM ZERO N0111740 0877 63FC 1199 | LDX 3 -4 CHARACTER COUNT TO XR3 N0111750 0878 C700 089A 1200 | JB220 LD L3 JB922+4 FETCH A CHARACTER N0111760 087A 9023 1201 | S JB926 SUBTRACT EBCDIC BLANK N0111770 087B 4C18 0886 1202 | BSC L JB240,+- BRANCH IF BLANK N0111780 087D 8020 1203 | A JB926 RESET N0111790 087E 9020 1204 | S JB927 TEST FOR ALPHABETIC/NUMERIC N0111800 087F 4C10 0886 1205 | BSC L JB240,- SKIP IF NUMERIC N0111810 0881 801E 1206 | A JB928 CONVERT ALPHA TO BINARY N0111820 0882 901E 1207 | S JB929 TEST FOR AND N0111830 0883 4C30 088F 1208 | BSC L JB260,Z- *BRANCH IF GREATER THAN F N0111840 0885 801B 1209 | A JB929 RESET N0111850 0886 A700 089E 1210 | JB240 M L3 JB924+4 MULTIPLY BY A POWER OF 16 N0111860 0888 880B 1211 | AD JB920 ADD IN PREVIOUS SUM N0111870 0889 D80A 1212 | STD JB920 SAVE NEW SUM N0111880 088A 7301 1213 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0111890 088B 70EC 1214 | MDX JB220 BR TO FETCH NEXT CHARACTER N0111900 088C 1090 1215 | SLT 16 SHIFT SUM TO ACCUMULATOR N0111910 088D 4C90 0874 1216 | BSC I JB200,- RETURN IF LEGAL N0111920 1217 | * N0111930 088F 6305 1218 | JB260 LDX 3 5 POINT TO ERROR MESSAGE M 15 N0111940 0890 D400 0071 1219 | JB280 STO L $FLSH SET ABORT JOB INDR ON N0111950 0892 4400 06E4 1220 | BSI L RA900 BRANCH TO PRINT THE MESSAGE N0111960 1221 | * N0111970 1222 | * CONSTANTS AND WORK AREA N0111980 1223 | * N0111990 0894 1224 | BSS E 0 N0112000 0894 0000 1225 | JB920 DC *-* TEMPORARY STORAGE FOR A N0112010 0895 0000 1226 | DC *-* *32 BIT BINARY NUMBER N0112020 0896 0000 1227 | JB922 DC *-* FOUR N0112030 0897 0000 1228 | DC *-* *HEXADECIMAL N0112040 0898 0000 1229 | DC *-* *CHARACTERS N0112050 0899 0000 1230 | DC *-* *OF CARTRIDGE ID N0112060 089A 1000 1231 | JB924 DC /1000 THIRD POWER OF 16 N0112070 089B 0100 1232 | DC /0100 SECOND POWER OF 16 N0112080 089C 0010 1233 | DC /0010 FIRST POWER OF 16 N0112090 089D 0001 1234 | DC /0001 ZERO POWER OF 16 N0112100 089E 0040 1235 | JB926 DC /0040 EBCDIC BLANK N0112110 089F 00F0 1236 | JB927 DC /00F0 ALPHA/NUMERIC TEST MASK N0112120 08A0 0039 1237 | JB928 DC /0039 ALPHA TO BINARY MASK N0112130 08A1 000F 1238 | JB929 DC /000F MAXIMUM ALLOWABLE CHARACTER N0112140 1239 | * N0112150 1240 | * MASTER CARTRIDGE MAY HAVE CHANGED N0112160 1241 | * UPDATE HEADING BUFFER AGAIN N0112170 1242 | * N0112180 1243 | * N0112190 1244 | * INITIALIZE COMMA N0112200 1245 | * N0112210 08A2 6142 1246 | JB600 LDX 1 X1 XR1 PTS TO MIDDLE OF COMMA N0112220 08A3 10A0 1247 | SLT 32 CLEAR ACC AND EXT N0112230 08A4 D1C5 1248 | STO 1 $COMN-X1 $COMN = 0 N0112240 08A5 D1CD 1249 | STO 1 $CTSW-X1 $CTSW = 0 N0112250 08A6 D1CE 1250 | STO 1 $DADR-X1 $DADR = 0 N0112260 08A7 D1FD 1251 | STO 1 $DUMP-X1 $DUMP = 0 N0112270 08A8 D12F 1252 | STO 1 $FLSH-X1 $FLSH = 0 N0112280 08A9 D1D1 1253 | STO 1 $IBSY-X1 $IBSY = 0 N0112290 08AA D1F0 1254 | STO 1 $IOCT-X1 $IOCT = 0 N0112300 08AB D1F7 1255 | STO 1 $LINK-X1 $LINK = 0 N0112310 08AC D1F2 1256 | STO 1 $NDUP-X1 $NDUP = 0 N0112320 08AD D1F3 1257 | STO 1 $NXEQ-X1 $NXEQ = 0 N0112330 08AE D1F4 1258 | STO 1 $PBSY-X1 $PBSY = 0 N0112340 08AF D1E6 1259 | STO 1 $PRET-X1 $PRET = 0 N0112350 08B0 D13F 1260 | STO 1 $PST1-X1 $PST1 = 0 N0112360 08B1 D143 1261 | STO 1 $PST2-X1 $PST2 = 0 N0112370 08B2 D147 1262 | STO 1 $PST3-X1 $PST3 = 0 N0112380 08B3 D14B 1263 | STO 1 $PST4-X1 $PST4 = 0 N0112390 08B4 D14F 1264 | STO 1 $STOP-X1 $STOP = 0 N0112400 08B5 D139 1265 | STO 1 $WRD1-X1 $WRD1 = 0 N0112410 08B6 D400 00EF 1266 | STO L $SNLT $SNLT = 0 N0112420 08B8 C04A 1267 | LD JB962 N0112430 08B9 D137 1268 | STO 1 $UFIO-X1 $UFIO = 1 N0112440 08BA C845 1269 | LDD JB960 RESET LEVEL 2 POST 2-2 N0112450 08BB D944 1270 | STD 1 $PST2+1-X1 *OPERATIVE ERROR TRAP 2-2 N0112460 08BC D1E7 1271 | STO 1 $PRET+1-X1 *AND PRE-OP ERROR TRAP2-4 N0112470 08BD C043 1272 | LD JB960+1 2-10 N0112472 08BE D1E8 1273 | STO 1 $PRET+2-X1 2-10 N0112474 08BF C042 1274 | LD JB960+2 2-10 N0112476 08C0 D1E9 1275 | STO 1 $PRET+3-X1 2-10 N0112478 08C1 C042 1276 | LD JB963 RESET INTERRUPT 2-2 N0112480 08C2 D1EA 1277 | STO 1 $IREQ-X1 *REQUEST KEY TRAP 2-2 N0112490 08C3 C041 1278 | LD JB964 RESET LEVEL 5 INTERRUPT 2-2 N0112500 08C4 D1CB 1279 | STO 1 $LEV5-X1 *ADDR TO STOP KEY TRAP 2-2 N0112510 1280 | * N0112520 08C5 C040 1281 | LD JB965 STORE SECTOR ADDRESS N0112530 08C6 D400 0D2B 1282 | STO L BUFFR-1 *OF RESIDENT IMAGE N0112540 08C8 4400 0992 1283 | BSI L JB850 BR TO FETCH RESIDENT IMAGE N0112550 08CA C400 0D34 1284 | LD L BUFFR+$CORE-6 FETCH AND STORE N0112560 08CC D400 000E 1285 | STO L $CORE *CONFIGURED CORE SIZE N0112570 1286 | * N0112580 1287 | * INITIALIZE DCOM N0112590 1288 | * N0112600 08CE 10A0 1289 | JB640 SLT 32 CLEAR ACC AND EXT N0112610 1290 | * N0112620 08CF 61FB 1291 | LDX 1 -5 WORD COUNT TO XR1 N0112630 08D0 D500 0EB9 1292 | JB660 STO L1 #FMAT+5 N0112640 08D2 D500 0EC8 1293 | STO L1 #WSCT+5 N0112650 08D4 7101 1294 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0112660 08D5 70FA 1295 | MDX JB660 BRANCH TO CLEAR NEXT WORD N0112670 1296 | * N0112680 08D6 6500 0E6E 1297 | LDX L1 DCOM N0112690 08D8 D904 1298 | STD 1 #NAME-DCOM N0112700 08D9 D106 1299 | STO 1 #DBCT-DCOM N0112710 08DA D107 1300 | STO 1 #FCNT-DCOM N0112720 08DB D10A 1301 | STO 1 #CBSW-DCOM N0112730 08DC D10B 1302 | STO 1 #LCNT-DCOM N0112740 08DD D10C 1303 | STO 1 #MPSW-DCOM N0112750 08DE D10D 1304 | STO 1 #MDF1-DCOM N0112760 08DF D10E 1305 | STO 1 #MDF2-DCOM N0112770 08E0 D10F 1306 | STO 1 #NCNT-DCOM N0112780 08E1 D11E 1307 | STO 1 #GCNT-DCOM 2G2 N0112790 08E2 D110 1308 | STO 1 #ENTY-DCOM N0112800 08E3 D112 1309 | STO 1 #TODR-DCOM N0112810 08E4 D113 1310 | STO 1 #FRDR-DCOM N0112820 08E5 D114 1311 | STO 1 #FHOL-DCOM N0112830 08E6 D115 1312 | STO 1 #FSZE-DCOM N0112840 08E7 D116 1313 | STO 1 #UHOL-DCOM N0112850 08E8 D117 1314 | STO 1 #USZE-DCOM N0112860 08E9 D118 1315 | STO 1 #DCSW-DCOM N0112870 08EA C400 0866 1316 | LD L JB901 SET N0112880 08EC D109 1317 | STO 1 #JBSW-DCOM *TEMPORARY MODE INDICATOR N0112890 1318 | * 2-4 N0112900 1319 | * SET NUMBER OF EQUATE RECORDS 2-4 N0112910 1320 | * 2-4 N0112920 08ED C400 0FCD 1321 | LD L @SBFR+29 FETCH COLUMNS 59-60 2-4 N0112930 08EF E017 1322 | AND JB966 SAVE NO. IN COLUMN 60 2-4 N0112940 08F0 A017 1323 | M JB967 MULTIPLY BY TEN 2-4 N0112950 08F1 1090 1324 | SLT 16 SHIFT PRODUCT TO 2-4 N0112960 08F2 D016 1325 | STO JB968 *ACCUMULATOR AND SAVE 2-4 N0112970 08F3 C400 0FCE 1326 | LD L @SBFR+30 FETCH COLUMNS 61-62 2-4 N0112980 08F5 1808 1327 | SRA 8 SHIFT OUT COLUMN 62 2-4 N0112990 08F6 E010 1328 | AND JB966 SAVE NO. IN COLUMN 61 2-4 N0113000 08F7 8011 1329 | A JB968 ADD TENS COLUMN 2-4 N0113010 08F8 D400 0E8F 1330 | STO L #ECNT SET NO OF EQUAT RCDS 2-4 N0113020 08FA D400 06A3 1331 | STO L NORCD *AND HERE TO 2-4 N0113030 08FC 1010 1332 | SLA 16 2-4 N0113040 08FD D400 06A5 1333 | STO L JOBXQ SET SW TO EQUATS ONLY 2-4 N0113050 08FF 700A 1334 | MDX JB700 BRANCH TO CONTINUE N0113060 1335 | * N0113070 1336 | * CONSTANTS AND WORK AREAS N0113080 1337 | * N0113090 0042 1338 | X1 EQU $DUMP+3 MIDDLE OF COMMA N0113100 0900 1339 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0113110 0900 3000 1340 | JB960 WAIT USED TO RESTORE LEVEL 2 N0113120 0901 4C80 0028 1341 | BSC I $PRET *POST+PRE OP ERROR TRAP2-10 N0113130 0903 0001 1342 | JB962 DC 1 CONSTANT ONE 2-10 N0113140 0904 00E6 1343 | JB963 DC $I420 ADDR OF FLUSH JOB ENTRY PT N0113150 0905 0091 1344 | JB964 DC $STOP ADDRESS OF STOP KEY TRAP N0113160 0906 0002 1345 | JB965 DC #RIAD ADDR OF RESIDENT IMAGE SCTR N0113170 0907 000F 1346 | JB966 DC /000F MASK 2-4 N0113180 0908 000A 1347 | JB967 DC 10 CONSTANT TEN 2-4 N0113190 0909 0000 1348 | JB968 DC *-* TEMPORY STORAGE 2-4 N0113200 1349 | * N0113210 1350 | * FETCH AND PRINT VERSION AND MOD LEVEL, N0113220 1351 | * ACTUAL AND CONFIGURED CORE SIZE N0113230 1352 | * N0113240 090A C400 00E0 1353 | JB700 LD L $SYSC FETCH VERSION AND MOD LEVEL N0113250 090C 1890 1354 | SRT 16 SHIFT TO EXTENSION N0113260 090D 1010 1355 | SLA 16 CONVERT N0113270 090E 1088 1356 | SLT 8 *VERSION TO EBCDIC N0113280 090F E83C 1357 | OR JB972 *AND STORE N0113290 0910 D03B 1358 | STO JB972 *TO I/O AREA N0113300 1359 | * N0113310 0911 1010 1360 | SLA 16 CONVERT N0113320 0912 1888 1361 | SRT 8 *MODIFICATION N0113330 0913 A848 1362 | D JB973 *LEVEL N0113340 0914 1088 1363 | SLT 8 *TO EBCDIC N0113350 0915 1808 1364 | SRA 8 *AND N0113360 0916 1088 1365 | SLT 8 *STORE TO N0113370 0917 E836 1366 | OR JB972+2 *I/O N0113380 0918 D035 1367 | STO JB972+2 *AREA N0113390 1368 | * N0113400 0919 C043 1369 | LD JB974 FETCH 32K N0113410 091A D400 7FFF 1370 | STO L 8*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113420 091C 1801 1371 | SRA 1 HALF N0113430 091D D400 3FFF 1372 | STO L 4*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113440 091F 1801 1373 | SRA 1 HALF N0113450 0920 D400 1FFF 1374 | STO L 2*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113460 0922 1801 1375 | SRA 1 HALF N0113470 0923 D400 0FFF 1376 | STO L 1*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113480 1377 | * N0113490 0925 C400 7FFF 1378 | LD L 8*@MNCR-1 FETCH, N0113500 0927 403B 1379 | BSI JB780 *CONVERT AND N0113510 0928 D02B 1380 | STO JB972+8 *STORE ACTUAL CORE SIZE N0113520 1381 | * N0113530 0929 C400 000E 1382 | LD L $CORE FETCH, N0113540 092B 4037 1383 | BSI JB780 *CONVERT AND N0113550 092C D02D 1384 | STO JB972+14 *STORE CONFIG CORE SIZE N0113560 1385 | * N0113570 092D C01C 1386 | LD JB970 FETCH ADDRESS OF I/O AREA N0113580 092E 4400 06CD 1387 | BSI L RA850 BRANCH TO PRINT LINE N0113590 1388 | * N0113600 1389 | * IF THE MASTER CARTRIDGE HAS CHANGED THE N0113610 1390 | * SLET INFORMATION FOR SUPV PHASE 3 MAY N0113620 1391 | * HAVE CHANGED ALSO. N0113630 1392 | * N0113640 0930 61FD 1393 | LDX 1 -3 XR1 = NO. OF SLET SECTORS N0113650 0931 7401 0D2B 1394 | JB720 MDX L BUFFR-1,1 INCREMENT SECTOR ADDRESS N0113660 0933 405E 1395 | BSI JB850 BRANCH TO READ THE SECTOR N0113670 0934 6600 FEC0 1396 | LDX L2 -@SCTR XR2 = SECTOR WORD COUNT N0113680 0936 C400 0562 1397 | JB740 LD L SUPV3 FETCH SUPV PHASE 3 PHASE ID N0113690 0938 9600 0E6C 1398 | S L2 BUFFR+@SCTR TEST FOR AND BRANCH N0113700 093A 4C18 0943 1399 | BSC L JB760,+- *IF MATCH FOUND IN SLET N0113710 093C 7204 1400 | MDX 2 4 DECR WORD CNT, SKIP IF ZERO N0113720 093D 70F8 1401 | MDX JB740 BR TO TEST NEXT PHASE ID N0113730 093E 7101 1402 | MDX 1 1 DECR SCTR CNT, SKIP IF ZERO N0113740 093F 70F1 1403 | MDX JB720 BR TO FETCH NEXT SLET SCTR N0113750 0940 6306 1404 | LDX 3 6 POINT TO ERROR MESSAGE M 16 N0113760 0941 4C00 0890 1405 | BSC L JB280 BRANCH TO PRINT THE MESSAGE N0113770 0943 6500 0562 1406 | JB760 LDX L1 SUPV3 XR1 PTS TO SUPV PH 3 SLET N0113780 0945 CE00 0E6E 1407 | LDD L2 BUFFR+@SCTR+2 FETCH AND STORE WORD N0113790 0947 D902 1408 | STD 1 2 *COUNT AND SECTOR ADDRESS N0113800 0948 4C00 0670 1409 | BSC L RA600 BRANCH TO FETCH PHASE 3 N0113810 1410 | * N0113820 1411 | * CONSTANTS AND WORK AREAS N0113830 1412 | * N0113840 094A 094B 1413 | JB970 DC JB971 ADDRESS OF I/O AREA N0113850 094B 0010 1414 | JB971 DC JB973-* WORD COUNT N0113860 094C E5F0 40D4 F0F0 4040 1415 | JB972 EBC .V0 M00 ACTUAL 00K CONFIG 00K . N0113870 40C1 C3E3 E4C1 D340 | F0F0 D240 40C3 D6D5 | C6C9 C740 F0F0 D240 | 095C 000A 1416 | JB973 DC 10 CONSTANT TEN N0113880 095D 8000 1417 | JB974 DC /8000 MAXIMUM CORE SIZE N0113890 095E 4040 1418 | JB975 EBC . . CORE SIZE = INVALID N0113900 095F 40F4 1419 | EBC . 4. CORE SIZE = 4K N0113910 0960 40F8 1420 | EBC . 8. CORE SIZE = 8K N0113920 0961 F1F6 1421 | EBC .16. CORE SIZE = 16K N0113930 0962 F3F2 1422 | EBC .32. CORE SIZE = 32K N0113940 1423 | * N0113950 1424 | *************************************************** N0113960 1425 | * N0113970 1426 | * CONVERT CORE SIZE TO EBCDIC N0113980 1427 | * N0113990 0963 0000 1428 | JB780 DC 0 ENTRY/RETURN ADDRESS N0114000 0964 6104 1429 | LDX 1 4 XR1 = CORE SIZE COUNT N0114010 0965 1140 1430 | SLCA 1 XR1 = NO. OF ZEROS SHIFTED N0114020 0966 C500 095E 1431 | LD L1 JB975 FETCH EBCDIC CORE SIZE N0114030 0968 4C80 0963 1432 | BSC I JB780 *AND RETURN N0114040 1433 | * N0114050 1434 | *************************************************** N0114060 1435 | * N0114070 1436 | * INITIALIZE THE HEADING BUFFER N0114080 1437 | * N0114090 096A 0000 1438 | JB800 DC 0 ENTRY/RETURN ADDRESS N0114100 096B 6600 FEC0 1439 | LDX L2 -@SCTR XR2 = SECTOR WORD COUNT N0114110 096D C01A 1440 | LD JB982 FETCH BLANK WORD N0114120 096E D600 0E6C 1441 | JB820 STO L2 BUFFR+@SCTR STORE TO HEADING BUFFER N0114130 0970 7201 1442 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0114140 0971 70FC 1443 | MDX JB820 BRANCH TO STORE NEXT WORD N0114150 1444 | * N0114160 0972 62FC 1445 | LDX 2 -4 XR2 = WORD COUNT N0114170 0973 C600 098D 1446 | JB840 LD L2 JB983+4 FETCH A WORD OF 'PAGE 1' N0114180 0975 D600 0D30 1447 | STO L2 BUFFR+4 *AND STORE TO HEADING BFR N0114190 0977 C600 0FCD 1448 | LD L2 @SBFR+29 FETCH A WORD OF HEADING N0114200 0979 D600 0D36 1449 | STO L2 BUFFR+10 *AND STORE TO HEADING BFR N0114210 097B 7201 1450 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0114220 097C 70F6 1451 | MDX JB840 BRANCH TO STORE NEXT WORD N0114230 1452 | * N0114240 097D C008 1453 | LD JB980 INITIALIZE N0114250 097E D400 0037 1454 | STO L $PGCT *PAGE COUNT N0114260 1455 | * N0114270 0980 C006 1456 | LD JB981 STORE HEADING N0114280 0981 D400 0D2B 1457 | STO L BUFFR-1 *SECTOR ADDRESS TO I/O AREA N0114290 0983 4013 1458 | BSI JB860 BRANCH TO WRITE HDNG SECTOR N0114300 0984 4C80 096A 1459 | BSC I JB800 RETURN N0114310 1460 | * N0114320 1461 | * CONSTANTS AND WORK AREAS N0114330 1462 | * N0114340 0986 0001 1463 | JB980 DC 1 INITIAL PAGE COUNT N0114350 0987 0007 1464 | JB981 DC #HDNG HEADING SECTOR ADDRESS N0114360 0988 4040 1465 | JB982 EBC . . EBCDIC BLANK - BLANK N0114370 0989 D7C1 C7C5 4040 40F1 1466 | JB983 EBC .PAGE 1. N0114380 098E 1467 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0114390 098E 0000 1468 | JB984 DC /0000 READ FUNCTION CODE N0114400 098F 0D2A 1469 | DC BUFFR-2 I/O BUFFER ADDRESS N0114410 0990 0001 1470 | JB986 DC /0001 WRITE FUNCTION CODE N0114420 0991 0D2A 1471 | DC BUFFR-2 I/O BUFFER ADDRESS N0114430 1472 | * N0114440 1473 | *************************************************** N0114450 1474 | * N0114460 1475 | * READ OR WRITE THE BUFFER N0114470 1476 | * N0114480 0992 0000 1477 | JB850 DC 0 READ ENTRY N0114490 0993 C0FE 1478 | LD JB850 FETCH RETURN ADDRESS N0114500 0994 D002 1479 | STO JB860 *AND STORE N0114510 0995 C8F8 1480 | LDD JB984 FETCH FUNC CODE/I/O AR ADDR N0114520 0996 7002 1481 | MDX JB870 BRANCH TO READ N0114530 1482 | * N0114540 0997 0000 1483 | JB860 DC 0 WRITE ENTRY/RETURN ADDRESS N0114550 0998 C8F7 1484 | LDD JB986 FETCH FUNC CODE/I/O AR ADDR N0114560 0999 4400 00F2 1485 | JB870 BSI L DZ000 BRANCH TO READ OR WRITE N0114570 099B 7400 00EE 1486 | JB880 MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE N0114580 099D 70FD 1487 | MDX JB880 BR TO TEST OP COMPLETE N0114590 099E 4C80 0997 1488 | BSC I JB860 RETURN N0114600 SYSUP - UPDATE SYSTEM DCOM 1490 | *************************************************** N0114620 1491 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * N0114630 1492 | * * N0114640 1493 | *FUNCTION/OPERATION - * N0114650 1494 | * * UPDATE THE AREA CODE ($ACDE) IN COMMA TO * N0114660 1495 | * REFLECT THE PHYSICAL DEFINITION OF EACH * N0114670 1496 | * REQUESTED LOGICAL DRIVE. * N0114680 1497 | * * UPDATE THE DEFECTIVE CYLINDER TABLE ($DCYL) * N0114690 1498 | * IN COMMA FROM THE DEFECTIVE CYLINDER TABLE * N0114700 1499 | * ON EACH REQUESTED CARTRIDGE. * N0114710 1500 | * * UPDATE THE SYSTEM CARTRIDGE DCOM FROM DCOM * N0114720 1501 | * OF EACH REQUESTED CARTRIDGE. THE TABLES * N0114730 1502 | * UPDATED ARE - * N0114740 1503 | * #ANDU * N0114750 1504 | * #BNDU * N0114760 1505 | * #FPAD * N0114770 1506 | * #CIDN * N0114780 1507 | * #CIBA * N0114790 1508 | * #SCRA * N0114800 1509 | * #FMAT * N0114810 1510 | * #FLET * N0114820 1511 | * #ULET * N0114830 1512 | * #WSCT * N0114840 1513 | * #CSHN * N0114850 1514 | * * ADDITIONALLY, $CIBA, $FPAD AND $ULET IN * N0114860 1515 | * COMMA AS WELL AS THE WORD COUNT AND SECTOR * N0114870 1516 | * ADDRESS OF THE CORE IMAGE LOADER STORED AT * N0114880 1517 | * THE END OF DISKZ ARE UPDATED. * N0114890 1518 | * * N0114900 1519 | *ENTRY POINTS - * N0114910 1520 | * SUBROUTINE ENTRY - SYSUP * N0114920 1521 | * * N0114930 1522 | *INPUT - * N0114940 1523 | * * THE ADDRESS OF A 5 WORD TABLE CONTAINING THE* N0114950 1524 | * REQUESTED CARTRIDGE IDS IN LOGICAL ORDER * N0114960 1525 | * IS THE ARGUMENT OF THE CALL. * N0114970 1526 | * * N0114980 1527 | *OUTPUT - * N0114990 1528 | * * THE REQUESTED CARTRIDGE IDS AND THEIR * N0115000 1529 | * LOGICAL AND PHYSICAL DEFINITION ARE PRINTED * N0115010 1530 | * ON THE PRINCIPAL PRINT DEVICE. * N0115020 1531 | * * N0115030 1532 | *EXTERNAL REFERENCES - * N0115040 1533 | * * IN COMMA - * N0115050 1534 | * $ACDE * N0115060 1535 | * $CIBA * N0115070 1536 | * $CYLN * N0115080 1537 | * $DBSY * N0115090 1538 | * $DCYL * N0115100 1539 | * $DUMP * N0115110 1540 | * $EXIT * N0115120 1541 | * $FLSH * N0115130 1542 | * $FPAD * N0115140 1543 | * $IBT4 * N0115150 1544 | * $IREQ * N0115160 1545 | * $LEV2 * N0115170 1546 | * $PBSY * N0115180 1547 | * $SYSC * N0115190 1548 | * $ULET * N0115200 1549 | * $ZEND * N0115210 1550 | * *IN DCOM - * N0115220 1551 | * #ACIN * N0115230 1552 | * #ANDU * N0115240 1553 | * #BNDU * N0115250 1554 | * #CIBA * N0115260 1555 | * #CIDN * N0115270 1556 | * #CSHN * N0115280 1557 | * #FLET * N0115290 1558 | * #FMAT * N0115300 1559 | * #FPAD * N0115310 1560 | * #PCID * N0115320 1561 | * #SCRA * N0115330 1562 | * #SYSC * N0115340 1563 | * #ULET * N0115350 1564 | * #WSCT * N0115360 1565 | * * IN MCRA - * N0115370 1566 | * RA850 * N0115380 1567 | * RDCOM * N0115390 1568 | * * SUBROUTINES - * N0115400 1569 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0115410 1570 | * OUTPT PRINCIPAL PRINT DEVICE SUBROUTINE. * N0115420 1571 | * * N0115430 1572 | *EXITS - * N0115440 1573 | * * NORMAL - * N0115450 1574 | * RETURN TO SUPERVISOR PHASE 2 AT CALL+3 TO * N0115460 1575 | * TO COMPLETE JOB PROCESSING. * N0115470 1576 | * * ERROR - * N0115480 1577 | * BRANCH TO MCRA TO ABORT JOB AFTER PRINTING * N0115490 1578 | * ERROR MESSAGE. (SEE NOTES.) * N0115500 1579 | * * N0115510 1580 | *TABLES/WORK AREAS - * N0115520 1581 | * * DCOM A 320 WORD BUFFER USED FOR SYSTEM * N0115530 1582 | * DCOM I/O. * N0115540 1583 | * * DCOMX A 320 WORD BUFFER USED FOR SATELLITE* N0115550 1584 | * DCOM INPUT. (EQUIVALENT TO 'BUFFR') * N0115560 1585 | * * N0115570 1586 | *ATTRIBUTES - * N0115580 1587 | * * ABSOLUTE. * N0115590 1588 | * * REUSABLE. * N0115600 1589 | * * N0115610 1590 | *NOTES - * N0115620 1591 | * * THE ERROR MESSAGES PRINTED FROM SYSUP ARE- * N0115630 1592 | * * XXXX IS NOT AN AVAILABLE CARTRIDGE ID * N0115640 1593 | * * XXXX IS A DUPLICATED SPECIFIED * N0115650 1594 | * CARTRIDGE ID * N0115660 1595 | * * XXXX IS A DUPLICATED AVAILABLE * N0115670 1596 | * CARTRIDGE ID * N0115680 1597 | * * XXXX IS NOT A SYSTEM CARTRIDGE * N0115690 1598 | * * N0115700 1599 | *************************************************** N0115710 SYSUP - UPDATE SYSTEM DCOM 1601 | * N0115730 1602 | * UPDATE THE SYSTEM DCOM FROM ALL N0115740 1603 | * REQUESTED CARTRIDGES N0115750 1604 | * N0115760 09A0 0000 1605 | SYSUP DC *-* ENTRY/RETURN ADDRESS N0115770 1606 | * N0115780 1607 | * INITIALIZE N0115790 1608 | * N0115800 09A1 6500 00A4 1609 | LDX L1 $DCYL INITIALIZE ADDRESS AT WHICH N0115810 09A3 6D00 0C9D 1610 | STX L1 SU620 *TO STORE DEF CYL ADDRESSES N0115820 09A5 C900 1611 | LDD 1 0 SAVE 2-8 N0115830 09A6 DC00 0BFE 1612 | STD L SU944 *DEFECTIVE 2-8 N0115840 09A8 C102 1613 | LD 1 2 *CYLINDER 2-8 N0115850 09A9 D400 0C00 1614 | STO L SU944+2 *TABLE 2-8 N0115860 09AB 1810 1615 | SRA 16 SET SYSTEM N0115870 09AC D400 0A4B 1616 | STO L SU919 *CARTRIDGE SWITCH OFF AND N0115880 09AE D400 0A46 1617 | STO L SU915 *AVAIL CART INDICATOR ZERO N0115890 09B0 C400 009F 1618 | LD L $ACDE SAVE N0115900 09B2 1890 1619 | SRT 16 *AREA CODE N0115910 09B3 C400 002C 1620 | LD L $IREQ *AND ADDRESS OF N0115920 09B5 DC00 0BFA 1621 | STD L SU936 *INTERRUPT REQUEST SUBR N0115930 09B7 C400 0BF9 1622 | LD L SU935 POINT INTERRUPT REQUEST N0115940 09B9 D400 002C 1623 | STO L $IREQ *ADDRESS TO SYSUP SUBR N0115950 1624 | * N0115960 1625 | * FETCH ID LIST N0115970 1626 | * N0115980 09BB C480 09A0 1627 | LD I SYSUP FETCH ADDRESS OF ID LIST N0115990 09BD 8400 0A48 1628 | A L SU916 INCREMENT ADDRESS BY 5 N0116000 09BF D002 1629 | STO SU010+1 STORE AS FETCH ADDRESS N0116010 1630 | * N0116020 09C0 61FB 1631 | LDX 1 -5 ID LIST COUNT TO XR1 N0116030 09C1 C500 0000 1632 | SU010 LD L1 *-* FETCH AN ID FROM USERS PROG N0116040 09C3 D500 0A2D 1633 | STO L1 SU902+5 STORE ID TO ID LIST N0116050 09C5 7101 1634 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO N0116060 09C6 70FA 1635 | MDX SU010 BRANCH TO FETCH NEXT ID N0116070 1636 | * N0116080 1637 | * FETCH DCOM FROM PREVIOUS SYSTEM CARTRIDGE N0116090 1638 | * N0116100 09C7 C060 1639 | SU030 LD SU902 FETCH 1ST ID OF ID LIST2-11 N0116110 09C8 4C20 09D1 1640 | BSC L SU040,Z BRANCH IF ID NON-BLANK N0116120 09CA 4400 077A 1641 | BSI L RDCOM BRANCH TO FETCH DCOM N0116130 09CC C400 0EA5 1642 | LD L #CIDN FETCH SYSTEM CARTRIDGE ID N0116140 09CE D059 1643 | STO SU902 STORE TO ID LIST N0116150 09CF D400 0A4B 1644 | STO L SU919 SET SYTEM CARTRIDGE SW ON N0116160 1645 | * N0116170 1646 | * CHECK FOR DUPLICATE CARTRIDGE IDS N0116180 1647 | * N0116190 09D1 10A0 1648 | SU040 SLT 32 CLEAR THE SWITCH N0116200 09D2 6200 1649 | LDX 2 0 ID LIST COUNT TO XR2 N0116210 09D3 C600 0A28 1650 | SU050 LD L2 SU902 FETCH A CARTRIDGE ID N0116220 09D5 4C18 09DC 1651 | BSC L SU070,+- BRANCH IF ID BLANK N0116230 09D7 4400 0C01 1652 | BSI L SU400 BR TO CK FOR A DUPLICATE ID N0116240 09D9 7201 1653 | MDX 2 1 INCREMENT ID COUNT N0116250 09DA 1000 1654 | NOP N0116260 09DB 70F7 1655 | MDX SU050 BRANCH TO CHECK NEXT ID N0116270 1656 | * N0116280 1657 | * FETCH CART LIST N0116290 1658 | * N0116300 09DC 61F5 1659 | SU070 LDX 1 -11 DRIVE COUNT TO XR1 2-11 N0116310 09DD 6200 1660 | LDX 2 0 DEF CYL ADDR COUNT TO XR2 N0116320 09DE C400 000A 1661 | LD L $LEV2 SAVE THE CONTENTS N0116330 09E0 D06E 1662 | STO SU923 *OP LOCATION 10 2-11 N0116340 1663 | * N0116350 09E1 C06C 1664 | SU080 LD SU922 RESET INTERRUPT 2-11 N0116360 09E2 D400 000A 1665 | STO L 10 *BRANCH ADDRESS N0116370 09E4 C500 0A5B 1666 | LD L1 SU924+11 FETCH AREA CODE 2-11 N0116380 09E6 D400 009F 1667 | STO L $ACDE STORE TO COMMA N0116390 09E8 E863 1668 | OR SU920 "OR" IN READ FUNCTION CODE N0116400 09E9 D057 1669 | STO SU910+1 STORE TO 2ND WORD OF IOCC N0116410 09EA E862 1670 | OR SU921 "OR" IN SENSE FUNCTION CODE N0116420 09EB D057 1671 | STO SU912+1 STORE TO 2ND WORD OF IOCC N0116430 09EC 0853 1672 | XIO SU910 INITIATE DISK READ N0116440 09ED 0854 1673 | XIO SU912 SENSE DISK N0116450 09EE 1003 1674 | SLA 3 SHIFT BUSY BIT TO 0-BIT N0116460 09EF 4C28 09FA 1675 | BSC L SU100,Z+ BRANCH IF DISK BUSY N0116470 1676 | * N0116480 1677 | * DISK NOT BUSY, NO CARTRIDGE AVAILABLE N0116490 1678 | * N0116500 09F1 1810 1679 | SRA 16 SET CART LIST N0116510 09F2 D500 0A39 1680 | STO L1 SU904+11 TO ZERO 2-11 N0116520 09F4 C051 1681 | LD SU915 FETCH AVAIL CART INDICATOR N0116530 09F5 7024 1682 | MDX SU120 BR TO INCREMENT DRIVE COUNT N0116540 1683 | * N0116550 1684 | * OPERATION COMPLETE INTERRUPT PROCESSING N0116560 1685 | * N0116570 09F6 0000 1686 | SU090 DC *-* N0116580 09F7 084A 1687 | XIO SU912 SENSE WITH RESET N0116590 09F8 4CC0 09F6 1688 | BOSC I SU090 CONTINUE N0116600 1689 | * N0116610 1690 | * CARTRIDGE AVAILABLE, FETCH CARTRIDGE ID AND N0116620 1691 | * DEFECTIVE CYLINDER ADDRESSES N0116630 1692 | * N0116640 09FA C0FB 1693 | SU100 LD SU090 LD INT. ENTRY POINT 2-11 N0116650 09FB 4818 1694 | BSC +- SKIP IF OP-COMPLETE 2-11 N0116652 09FC 70FD 1695 | MDX SU100 *OTHERWISE, LOOP 2-11 N0116654 09FD 1010 1696 | SLA 16 RESET INTERRUPT ENTRY 2-11 N0116656 09FE D0F7 1697 | STO SU090 *POINT TO ZERO 2-11 N0116658 09FF C04F 1698 | LD SU923 RESTORE CONTENTS N0116660 0A00 D400 000A 1699 | STO L 10 *OF LOCATION 10 N0116670 0A02 C042 1700 | LD SU914+1 SET ARM POSITION TO 2-11 N0116680 0A03 D400 009A 1701 | STO L $CYLN SECTOR ADDR JUST READ N0116690 0A05 C043 1702 | LD SU917 FETCH ADDRESS OF I/O AREA N0116700 0A06 1890 1703 | SRT 16 SHIFT TO EXT, ACC = 0 N0116710 0A07 4400 00F2 1704 | BSI L DZ000 BRANCH TO DISK READ N0116720 0A09 7400 00EE 1705 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0116730 0A0B 70FD 1706 | MDX *-3 BR TO TEST READ COMPLETE N0116740 1707 | * N0116750 0A0C C032 1708 | LD SU908+3 FETCH CART ID AND N0116760 0A0D D500 0A39 1709 | STO L1 SU904+11 *STORE TO CART LIST 2-11 N0116770 0A0F C02C 1710 | LD SU908 FETCH N0116780 0A10 D600 0A5B 1711 | STO L2 SU925 *AND N0116790 0A12 C02A 1712 | LD SU908+1 *STORE N0116800 0A13 D600 0A5C 1713 | STO L2 SU925+1 *DEFECTIVE N0116810 0A15 C028 1714 | LD SU908+2 *CYLINDER N0116820 0A16 D600 0A5D 1715 | STO L2 SU925+2 *ADDRESSES N0116830 0A18 C02D 1716 | LD SU915 FETCH AVAIL CART INDICATOR N0116840 0A19 E82D 1717 | OR SU915+1 MASK IN BIT FOR THIS DRIVE N0116850 1718 | * N0116860 0A1A 1001 1719 | SU120 SLA 1 SHIFT AND N0116870 0A1B D02A 1720 | STO SU915 *SAVE AVAIL CART INDICATOR N0116880 0A1C 7203 1721 | MDX 2 3 INCR DEF CYLIN ADDR COUNT N0116890 0A1D 1000 1722 | NOP N0116900 0A1E 7101 1723 | MDX 1 1 INCR DR COUNT, SKIP IF ZERO N0116910 0A1F 70C1 1724 | MDX SU080 N0116920 1725 | * N0116930 0A20 C02E 1726 | LD SU923 RESTORE CONTENTS N0116940 0A21 D400 000A 1727 | STO L $LEV2 *OF LOCATION 10 N0116950 1728 | * N0116960 1729 | * FIND FIRST CARTRIDGE ID OF ID LIST IN N0116970 1730 | * CART LIST N0116980 1731 | * N0116990 0A23 6100 1732 | LDX 1 0 ID LIST COUNT TO XR1 N0117000 0A24 4400 0B0C 1733 | BSI L SU279 BR TO FIND ID 2-11 N0117010 0A26 706E 1734 | MDX SU180 ON RETRN GO UPDTE DCOM 2-11 N0117020 1735 | * * AND COMMA 2-11 N0117030 1736 | * N0117140 1737 | * CONSTANTS AND WORK AREA N0117150 1738 | * N0117160 0D2C 1739 | DCOMX EQU BUFFR NON-SYS DCOM I/O AREA ADDR N0117170 0140 1740 | DSIZE EQU @SCTR WORD COUNT OF DCOM I/O AREA N0117180 0A28 1741 | BSS E 0 N0117190 0A28 1742 | SU902 BSS 5 ID LIST N0117200 0A2D 0000 1743 | DC 0 N0117210 0A2E 1744 | SU904 BSS 11 CART LIST-PHY DR ORDER 2-11 N0117220 0A39 FFFF 1745 | DC -1 N0117230 0A3A 0004 1746 | SU906 DC 4 WORD COUNT N0117240 0A3B 0000 1747 | SU907 DC #IDAD SECTOR ADDRESS 2-3 N0117250 0A3C 1748 | SU908 BSS 4 DEF CYL, CART ID I/O AREA N0117260 0A40 0A44 1749 | SU910 DC SU914 ADDRESS OF I/O AREA N0117270 0A41 0000 1750 | DC *-* SECOND WORD OF READ IOCC N0117280 0A42 0658 1751 | SU912 DC /658 MAXIMUM ARM POSITION N0117290 0A43 0000 1752 | DC *-* SECOND WORD OF SENSE IOCC N0117300 0A44 0001 1753 | SU914 DC 1 WORD COUNT N0117310 0A45 0000 1754 | DC *-* I/O AREA N0117320 0A46 0000 1755 | SU915 DC *-* AVAIL CARTRIDGE INDICATOR N0117330 0A47 0001 1756 | DC /0001 N0117340 0A48 0005 1757 | SU916 DC 5 MAXIMUM NUMBER OF DRIVES N0117350 0A49 0A3A 1758 | SU917 DC SU906 ADDR OF CART ID I/O AREA N0117360 0A4A 0D2A 1759 | SU918 DC DCOMX-2 ADDR OF DCOM I/O AREA N0117370 0A4B 0000 1760 | SU919 DC *-* SYSTEM CARTRIDGE SWITCH N0117380 0A4C 0600 1761 | SU920 DC /0600 READ FUNCTION CODE N0117390 0A4D 0701 1762 | SU921 DC /0701 SENSE FUNCTION CODE N0117400 0A4E 09F6 1763 | SU922 DC SU090 INTERRUPT SERVICE ADDRESS N0117410 0A4F 0000 1764 | SU923 DC *-* SAVE FOR LOCATION 10 N0117420 0A50 2000 1765 | SU924 DC /2000 AREA CODE FOR PHY DRIVE 0 N0117430 0A51 8800 1766 | DC /8800 AREA CODE FOR PHY DRIVE 1 N0117440 0A52 9000 1767 | DC /9000 AREA CODE FOR PHY DRIVE 2 N0117450 0A53 9800 1768 | DC /9800 AREA CODE FOR PHY DRIVE 3 N0117460 0A54 A000 1769 | DC /A000 AREA CODE FOR PHY DRIVE 4 N0117470 0A55 B000 1770 | DC /B000 AREA CODE-PHY DR 5 2-11 N0117471 0A56 B800 1771 | DC /B800 AREA CODE-PHY DR 6 2-11 N0117472 0A57 B810 1772 | DC /B810 AREA CODE-PHY DR 7 2-11 N0117473 0A58 B820 1773 | DC /B820 AREA CODE-PHY DR 8 2-11 N0117474 0A59 B830 1774 | DC /B830 AREA CODE-PHY DR 9 2-11 N0117476 0A5A B840 1775 | DC /B840 AREA CODE-PHY DR 10 2-11 N0117478 0A5B 1776 | SU925 BSS 33 DEF CYLINDER ADDRS 2-11 N0117480 0A7C 0A7D 1777 | SU926 DC SU928-1 ADDRESS OF PRINT AREA N0117490 0A7D 0017 1778 | DC 23 N0117500 0A7E D3D6 C740 C4D9 C9E5 1779 | SU928 EBC .LOG DRIVE CART SPEC CART AVAIL. N0117510 C540 4040 C3C1 D9E3 | 40E2 D7C5 C340 4040 | C3C1 D9E3 40C1 E5C1 | C9D3 | 0A8F 4040 D7C8 E840 C4D9 1780 | EBC . PHY DRIVE . N0117520 C9E5 C540 | 1781 | * N0117530 1782 | * READ SYSTEM CARTRIDGE DCOM N0117540 1783 | * N0117550 0A95 4400 0C8F 1784 | SU180 BSI L SU600 BR TO STORE $ACDE, DEF CYLS N0117560 0A97 C0E4 1785 | LD SU926 SET SWITCH N0117570 0A98 1890 1786 | SRT 16 *NON-ZERO N0117580 0A99 C600 0A2E 1787 | LD L2 SU904 FETCH CARTRIDGE ID N0117590 0A9B 4400 0C01 1788 | BSI L SU400 BR TO CK FOR DUPLICATE IDS N0117600 1789 | * N0117610 0A9D C0AD 1790 | LD SU919 BRANCH IF THE SYSTEM N0117620 0A9E 4C20 0AB5 1791 | BSC L SU220,Z *CARTRIDGE HAS NOT CHANGED N0117630 0AA0 4400 077A 1792 | BSI L RDCOM BRANCH TO FETCH DCOM N0117640 1793 | * N0117650 1794 | * UPDATE MODIFICATION LEVEL IN COMMA N0117660 1795 | * N0117670 0AA2 C400 0E76 1796 | LD L #SYSC FETCH MOD LEVEL FROM DCOM N0117680 0AA4 4C20 0AA9 1797 | BSC L SU190,Z BR IF A VALID SYS CARTRIDGE N0117690 0AA6 6204 1798 | LDX 2 4 POINT XR2 TO ERROR MESSAGE N0117700 0AA7 4C00 0B87 1799 | BSC L ERRUP+1 BRANCH TO PRINT THE MESSAGE N0117710 0AA9 D400 00E0 1800 | SU190 STO L $SYSC STORE MOD LEVEL TO COMMA N0117720 1801 | * N0117730 0AAB 6600 FEC0 1802 | LDX L2 -DSIZE SET DCOM WORD COUNT N0117740 0AAD C600 0FAE 1803 | SU200 LD L2 DCOM+DSIZE STORE SYSTEM DCOM N0117750 0AAF D600 0E6C 1804 | STO L2 DCOMX+DSIZE *TO NON-SYSTEM DCOM N0117760 0AB1 7201 1805 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0117770 0AB2 70FA 1806 | MDX SU200 BRANCH TO FETCH NEXT WORD N0117780 0AB3 4400 0C43 1807 | BSI L SU500 BRANCH TO UPDATE SYS DCOM N0117790 1808 | * N0117800 1809 | * SAVE THE CARTRIDGE IDS IN PHYSICAL ORDER IN N0117810 1810 | * DCOM N0117820 1811 | * N0117830 0AB5 62FB 1812 | SU220 LDX 2 -5 WORD COUNT TO XR2 N0117840 0AB6 C600 0A33 1813 | LD L2 SU904+5 FETCH A CARTRIDGE ID N0117850 0AB8 D600 0EA5 1814 | STO L2 #PCID+5 STORE TO DCOM N0117860 0ABA 7201 1815 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0117870 0ABB 70FA 1816 | MDX SU220+1 BRANCH TO FETCH NEXT ID N0117880 0ABC 6680 0CF1 1817 | LDX I2 SU977 FETCH THE CARTRIDGE ID N0117890 0ABE C500 0A28 1818 | LD L1 SU902 *THAT WAS ZEROED OUT N0117900 0AC0 72FC 1819 | MDX 2 -4 *CHECK IF PHY DR G.T.4 2-11 N0117902 0AC1 7004 1820 | MDX SU230 *BR IF YES 2-11 N0117904 0AC2 7204 1821 | MDX 2 4 *OTHERWISE RESTORE XR2 2-11 N0117906 0AC3 1000 1822 | NOP IN CASE OF SKIP 2-11 N0117908 0AC4 D600 0EA0 1823 | STO L2 #PCID *AND STORE ID TO DCOM 2-11 N0117910 0AC6 C400 0A46 1824 | SU230 LD L SU915 FETCH AVAIL CART IND. 2-11 N0117920 0AC8 1004 1825 | SLA 4 SHIFT TO LEFT 11 BITS 2-11 N0117930 0AC9 D400 0E8A 1826 | STO L #ACIN *AND STORE TO DCOM N0117940 1827 | * N0117950 1828 | * ZERO OUT TABLES IN COMMA AND DCOM N0117960 1829 | * N0117970 0ACB 62FC 1830 | LDX 2 -4 WORD COUNT TO XR2 N0117980 0ACC 1810 1831 | SRA 16 CLEAR ACCUMULATOR N0117990 0ACD D600 00A4 1832 | SU240 STO L2 $ACDE+5 SET N0118000 0ACF D600 009F 1833 | STO L2 $CYLN+5 *TO N0118010 0AD1 D600 0E96 1834 | STO L2 #ANDU+5 *ZERO N0118020 0AD3 D600 0E9B 1835 | STO L2 #BNDU+5 *ITEMS N0118030 0AD5 D600 0EA0 1836 | STO L2 #FPAD+5 *1-4 N0118040 0AD7 D600 0EAA 1837 | STO L2 #CIDN+5 *OF N0118050 0AD9 D600 0EAF 1838 | STO L2 #CIBA+5 *CARTRIDGE N0118060 0ADB D600 0EB4 1839 | STO L2 #SCRA+5 *DEPENDENT N0118070 0ADD D600 0EB9 1840 | STO L2 #FMAT+5 *TABLES N0118080 0ADF D600 0EBE 1841 | STO L2 #FLET+5 *IN N0118090 0AE1 D600 0EC3 1842 | STO L2 #ULET+5 *COMMA N0118100 0AE3 D600 0EC8 1843 | STO L2 #WSCT+5 *AND N0118110 0AE5 D600 0ECD 1844 | STO L2 #CSHN+5 *DCOM N0118120 0AE7 7201 1845 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0118130 0AE8 70E4 1846 | MDX SU240 BR TO ZERO OUT NEXT ITEM N0118140 1847 | * N0118150 0AE9 62F4 1848 | LDX 2 -12 WORD COUNT TO XR2 N0118160 1849 | * 1 INSTRUCTION REMOVED 2-11 N0118170 0AEA D600 00B3 1850 | SU260 STO L2 $DCYL+15 STORE TO $DCYL IN COMMA N0118180 0AEC 7201 1851 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0118190 0AED 70FC 1852 | MDX SU260 BR TO STORE NEXT DEF CYL N0118200 1853 | * N0118210 1854 | * INITLZ HDNG BFR, RESTORE, AND PR JOB RCD N0118220 1855 | * N0118230 0AEE 4400 096A 1856 | BSI L JB800 INITIALIZE HEADING BUFFER N0118240 0AF0 4400 0750 1857 | BSI L RSTOR SKIP TO NEW PAGE AND PR N0118250 0AF2 1010 1858 | SLA 16 2-5 N0118260 0AF3 D480 0006 1859 | STO I $CH12 2-5 N0118270 0AF5 C400 06C7 1860 | LD L SBADR *HDNG, PRINT N0118280 0AF7 4400 06CD 1861 | BSI L RA850 *JOB CNTRL RCD N0118290 1862 | * N0118300 1863 | * PRINT CARTRIDGE/DRIVE HEADING N0118310 1864 | * N0118320 0AF9 1010 1865 | SLA 16 2-5 N0118330 0AFA D480 0006 1866 | STO I $CH12 2-5 N0118340 0AFC C400 0A7C 1867 | LD L SU926 PRINT HEADING 2-11 N0118350 0AFE 4400 06CD 1868 | BSI L RA850 *FOR LIST OF CAR ID AND DR N0118360 1869 | * N0118370 1870 | * PRINT CARTRIDGE ID AND DRIVE N0118380 1871 | * N0118390 0B00 C400 0A7D 1872 | MORE LD L SU928-1 SET TO PRNT WHOLE LINE 2-11 N0118400 0B02 4400 0CAD 1873 | BSI L SU700 BRANCH TO PRINT A LINE N0118410 1874 | * N0118420 1875 | * INCREMENT LOGICAL DRIVE COUNT N0118430 1876 | * N0118440 0B04 7101 1877 | MDX 1 1 INCREMENT DRIVE COUNT N0118450 0B05 1000 1878 | NOP N0118460 0B06 C500 0A28 1879 | LD L1 SU902 FETCH NEXT ID FROM ID LIST N0118470 0B08 4C18 0B3B 1880 | BSC L NOMOR,+- BRANCH IF ID BLANK N0118480 0B0A 4001 1881 | BSI SU279 BR TO FIND ID 2-11 N0118485 0B0B 7015 1882 | MDX SU300 ON RETRN GO UPDTE DCOM 2-11 N0118486 1883 | * N0118490 1884 | * FIND CARTRIDGE ID IN CART LIST N0118500 1885 | * N0118510 0B0C 0000 1886 | SU279 DC *-* ENTRY/RETURN ADDRESS 2-11 N0118515 0B0D 6600 0A5B 1887 | LDX L2 SU925 FETCH AND SAVE ADDRESS OF N0118520 0B0F 6E00 0CAC 1888 | STX L2 SU960 *DEF CYL ADDRESSES N0118530 0B11 6200 1889 | LDX 2 0 CART LIST COUNT TO XR2 N0118540 0B12 C600 0A2E 1890 | SU280 LD L2 SU904 FETCH AN ID FROM CART LIST N0118550 0B14 4C28 0B80 1891 | BSC L SU390,+Z BR IF ID NEGATIVE 2-2 N0118560 0B16 4C08 0B1C 1892 | BSC L SU290,+ BRANCH IF ID BLANK N0118570 0B18 9500 0A28 1893 | S L1 SU902 SUBTRACT ID FROM ID LIST N0118580 0B1A 4C98 0B0C 1894 | BSC I SU279,+- BR IF IDS EQUAL 2-11 N0118590 0B1C 7201 1895 | SU290 MDX 2 1 INCREMENT CART LIST COUNT N0118600 0B1D 1000 1896 | NOP N0118610 0B1E 7403 0CAC 1897 | MDX L SU960,3 INCR ADDR OF DEF CYL ADDRS N0118620 0B20 70F1 1898 | MDX SU280 BRANCH TO TEST NEXT ID N0118630 1899 | * N0118640 0B21 4400 0C8F 1900 | SU300 BSI L SU600 BR TO STORE $ACDE, DEF CYLS N0118650 0B23 C001 1901 | LD *+1 SET SWITCH N0118660 0B24 1890 1902 | SRT 16 *NON-ZERO N0118670 0B25 C600 0A2E 1903 | LD L2 SU904 FETCH CARTRIDGE ID N0118680 0B27 4400 0C01 1904 | BSI L SU400 BR TO CK FOR DUPLICATE IDS N0118690 1905 | * N0118700 1906 | * READ NON-SYSTEM CARTRIDGE DCOM N0118710 1907 | * N0118720 0B29 C400 0CF0 1908 | LD L SU976 FETCH DRIVE NUMBER N0118730 0B2B 100C 1909 | SLA 12 SHIFT NUMBER TO BITS 0-3 N0118740 0B2C 8400 0E6D 1910 | A L DCOM-1 ADD SECTOR ADDRESS N0118750 0B2E D400 0D2B 1911 | STO L DCOMX-1 STORE TO DCOM I/O AREA N0118760 0B30 C400 0A4A 1912 | LD L SU918 FETCH ADDR OF DCOM I/O AREA N0118770 0B32 1890 1913 | SRT 16 SHIFT TO EXT, ACC = 0 N0118780 0B33 4400 00F2 1914 | BSI L DZ000 BRANCH TO DISK READ N0118790 0B35 7400 00EE 1915 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0118800 0B37 70FD 1916 | MDX *-3 BR TO TEST READ COMPLETE N0118810 1917 | * N0118820 0B38 4400 0C43 1918 | BSI L SU500 BRANCH TO UPDATE DCOM N0118830 0B3A 70C5 1919 | MDX MORE N0118840 1920 | * N0118850 1921 | * ALL REQUESTED CARTRIDGE IDS HAVE BEEN FOUND N0118860 1922 | * AND ALL COMMA AND DCOM TABLES HAVE BEEN N0118870 1923 | * UPDATED N0118880 1924 | * N0118890 0B3B 61F5 1925 | NOMOR LDX 1 -11 CART LIST COUNT TO XR2 2-11 N0118900 1926 | * N0118910 0B3C C500 0A39 1927 | SU310 LD L1 SU904+11 FETCH ID FR CART LIST 2-11 N0118920 0B3E 4C18 0B4A 1928 | BSC L SU320,+- BRANCH IF ID BLANK N0118930 1929 | * N0118940 0B40 6D00 0CF1 1930 | STX L1 SU977 SAVE XR1 AND CONVERT IT N0118950 0B42 740B 0CF1 1931 | MDX L SU977,11 *TO BE THE PHY DR NO. 2-11 N0118960 0B44 1000 1932 | NOP IN CASE OF SKIP N0118970 0B45 D400 0CF2 1933 | STO L SU978 STORE TO PRINT SUBR N0118980 0B47 1810 1934 | SRA 16 SET TO PRINT HALF LINE N0118990 0B48 4400 0CAD 1935 | BSI L SU700 BRANCH TO PRINT A LINE N0119000 1936 | * N0119010 0B4A 7101 1937 | SU320 MDX 1 1 INCR CART LIST CNT, SK IF Z N0119020 0B4B 70F0 1938 | MDX SU310 BRANCH TO FETCH NEXT ID N0119030 1939 | * N0119040 0B4C 61FB 1940 | LDX 1 -5 WORD COUNT TO XR1 N0119050 0B4D C500 0EC3 1941 | SU330 LD L1 #ULET+5 STORE LET SECTOR ADDRESS N0119060 0B4F D500 0032 1942 | STO L1 $ULET+5 *TO COMMA N0119070 0B51 C500 0EA0 1943 | LD L1 #FPAD+5 STORE FILE PROTECTED ADDR N0119080 0B53 D500 009A 1944 | STO L1 $FPAD+5 *TO COMMA N0119090 0B55 7101 1945 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0119100 0B56 70F6 1946 | MDX SU330 BRANCH TO FETCH NEXT WORD N0119110 1947 | * N0119120 1948 | * UPDATE $CIBA AND WD CNT/SCTR ADDR OF CIL 2-3 N0119130 1949 | * N0119140 0B57 C400 0EAA 1950 | LD L #CIBA SET SECTOR ADDRESS OF N0119150 0B59 D400 0005 1951 | STO L $CIBA *CIB IN COMMA N0119160 0B5B C400 0A3B 1952 | LD L SU907 FETCH AND STORE N0119170 0B5D D400 0D2B 1953 | STO L BUFFR-1 *ID SECTOR ADDRESS N0119180 0B5F C400 0A4A 1954 | LD L SU918 FETCH ADDRESS OF I/O AREA N0119190 0B61 1890 1955 | SRT 16 SHIFT TO EXT, ACC = 0 N0119200 0B62 4400 00F2 1956 | BSI L DZ000 BRANCH TO DISK READ N0119210 0B64 7400 00EE 1957 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0119220 0B66 70FD 1958 | MDX *-3 BR TO TEST READ COMPLETE N0119230 0B67 CC00 0E36 1959 | LDD L BUFFR+$ZEND-@CSTR-6 FETCH AND STORE N0119240 0B69 DC00 01DC 1960 | STD L $ZEND-4 *WD CNT/SCTR ADDRESS OF CIL N0119250 1961 | * N0119260 0B6B 4009 1962 | BSI SU380 BR TO TEST FOR INTRPT REQ N0119270 0B6C 7401 09A0 1963 | MDX L SYSUP,1 INCREMENT RETURN ADDRESS N0119280 0B6E 4C80 09A0 1964 | BSC I SYSUP RETURN N0119290 1965 | * N0119300 1966 | * TEMPORARY INTERRUPT REQUEST SUBROUTINE N0119310 1967 | * N0119320 0B70 0000 1968 | SU370 DC *-* ENTRY N0119330 0B71 0C00 0BFC 1969 | XIO L SU938 SENSE INTRPT REQ WITH RESET N0119340 0B73 4C00 00D5 1970 | BSC L $IBT4+1 BRANCH TO ILSO4 SUBR 2-2 N0119350 1971 | * N0119360 1972 | * TEST FOR THE OCCURANCE OF AN INTERRUPT N0119370 1973 | * REQUEST DURING SYSUP N0119380 1974 | * N0119390 1975 | * N0119400 0B75 0000 1976 | SU380 DC *-* ENTRY N0119410 0B76 C400 0BFA 1977 | LD L SU936 RESTORE ADDRESS OF N0119420 0B78 D400 002C 1978 | STO L $IREQ *INTERRUPT REQUEST SUBR N0119430 0B7A C0F5 1979 | LD SU370 TEST FOR AND RETURN IF N0119440 0B7B 4C98 0B75 1980 | BSC I SU380,+- *INTRPT REQ SUBR NOT ENTER N0119450 0B7D 4400 003F 1981 | BSI L $DUMP BRANCH TO PROCESS N0119460 0B7F FFFE 1982 | DC -2 *INTERRUPT REQUEST N0119470 1983 | * N0119480 1984 | * PRINT ERROR MESSAGES N0119490 1985 | * N0119500 0B80 807B 1986 | SU390 A SU938 CHECK IF ID = -1 2-11 N0119510 0B81 4C18 0B86 1987 | BSC L ERRUP,+- *IF YES DO NOT PR ID IN 2-2 N0119520 0B83 9078 1988 | S SU938 *ACC, IF NO ID IN ACC 2-2 N0119530 0B84 D500 0A28 1989 | STO L1 SU902 *SHOULD BE PRINTED 2-2 N0119540 0B86 6201 1990 | ERRUP LDX 2 1 POINT TO ERROR MESSAGE N0119550 1991 | * N0119560 0B87 C600 0BA0 1992 | LD L2 SU930 FETCH ADDR OF ERROR MESSAGE N0119570 0B89 8072 1993 | A SU938 INCREMENT AND 2-11 N0119580 0B8A D400 0D17 1994 | STO L SU984 *STORE TO CONVERSION SUBR N0119590 0B8C C500 0A28 1995 | LD L1 SU902 FETCH CARTRIDGE ID N0119600 0B8E 4400 0CF3 1996 | BSI L SU800 BRANCH TO CONVERT TO EBCDIC N0119610 0B90 C600 0BA0 1997 | LD L2 SU930 FETCH ADDR OF ERROR MESSAGE N0119620 0B92 4400 06CD 1998 | BSI L RA850 BRANCH TO PRINT THE MESSAGE N0119630 1999 | * N0119640 0B94 C066 2000 | LD SU937 RESTORE N0119650 0B95 D400 0071 2001 | STO L $FLSH SET FLUSH JOB SWITCH N0119670 0B97 C866 2002 | LDD SU944 RESTORE 2-8 N0119680 0B98 DC00 00A4 2003 | STD L $DCYL DEFECTIVE 2-8 N0119690 0B9A C065 2004 | LD SU944+2 *CYLINDER 2-8 N0119700 0B9B D400 00A6 2005 | STO L $DCYL+2 2-8 N0119710 0B9D 40D7 2006 | BSI SU380 BR TO TEST FOR INTRPT REQ N0119720 0B9E 6038 2007 | EXIT BR TO MCRA 2-11 N0119730 2008 | * N0119740 2009 | * CONSTANTS AND WORK AREA N0119750 2010 | * N0119760 0BA0 2011 | BSS E 0 N0119770 0BA0 7001 2012 | SU930 DC /7001 N0119780 0BA1 0BA5 2013 | DC SU931 N0119790 0BA2 0BB9 2014 | DC SU932 N0119800 0BA3 0BD1 2015 | DC SU933 N0119810 0BA4 0BE9 2016 | DC SU934 N0119820 0BA5 0013 2017 | SU931 DC 19 N0119830 0BA6 E7E7 E7E7 40C9 E240 2018 | EBC .XXXX IS NOT AN AVAILABLE CARTRIDGE. N0119840 D5D6 E340 C1D5 40C1 | E5C1 C9D3 C1C2 D3C5 | 40C3 C1D9 E3D9 C9C4 | C7C5 | 0BB7 40C9 C440 2019 | EBC . ID . N0119850 0BB9 0017 2020 | SU932 DC 23 N0119860 0BBA E7E7 E7E7 40C9 E240 2021 | EBC .XXXX IS A DUPLICATED SPECIFIED CAR. N0119870 C140 C4E4 D7D3 C9C3 | C1E3 C5C4 40E2 D7C5 | C3C9 C6C9 C5C4 40C3 | C1D9 | 0BCB E3D9 C9C4 C7C5 40C9 2022 | EBC .TRIDGE ID . N0119880 C440 4040 | 0BD1 0017 2023 | SU933 DC 23 N0119890 0BD2 E7E7 E7E7 40C9 E240 2024 | EBC .XXXX IS A DUPLICATED AVAILABLE CAR. N0119900 C140 C4E4 D7D3 C9C3 | C1E3 C5C4 40C1 E5C1 | C9D3 C1C2 D3C5 40C3 | C1D9 | 0BE3 E3D9 C9C4 C7C5 40C9 2025 | EBC .TRIDGE ID . N0119910 C440 4040 | 0BE9 000F 2026 | SU934 DC 15 N0119920 0BEA E7E7 E7E7 40C9 E240 2027 | EBC .XXXX IS NOT A SYSTEM CARTRIDGE. N0119930 D5D6 E340 C140 E2E8 | E2E3 C5D4 40C3 C1D9 | E3D9 C9C4 C7C5 | 0BF9 0B70 2028 | SU935 DC SU370 ADDR OF SYSUP INTRPT REQ N0119940 0BFA 0000 2029 | SU936 DC *-* ADDR OF NORMAL INTRPT REQ N0119950 0BFB 0000 2030 | SU937 DC *-* AREA CODE OF PREV SYS CART N0119960 0BFC 0001 2031 | SU938 DC 1 CONSTANT ONE N0119970 0BFD 0F01 2032 | SU939 DC /0F01 SENSE INTERRUPT WITH RESET N0119980 0BFE 2033 | SU944 BSS E 3 TEMP STORAGE FOR DEF CYL2-8 N0119990 UPDATE SYSTEM DCOM 2035 | * N0120010 2036 | * CHECK FOR DUPLICATE CARTRIDGE IDS N0120020 2037 | * N0120030 0C01 0000 2038 | SU400 DC *-* ENTRY/RETURN ADDRESS N0120040 2039 | * N0120050 0C02 D83B 2040 | STD SU940 SAVE CARTRIDGE ID AND SW N0120060 0C03 693C 2041 | STX 1 SU941 SAVE XR1 N0120070 0C04 6A3C 2042 | STX 2 SU942 SAVE XR2 N0120080 0C05 C039 2043 | LD SU940+1 FETCH SWITCH N0120100 0C06 4C20 0C13 2044 | BSC L SU440,Z BRANCH IF NON-ZERO N0120110 2045 | * N0120120 2046 | * CHECK ID LIST FOR DUPLICATE CARTRIDGE IDS N0120130 2047 | * N0120140 0C08 6205 2048 | SU420 LDX 2 5 ID LIST CNT TO XR2 2-11 N0120145 0C09 C600 0A27 2049 | LD L2 SU902-1 FETCH A CART ID 2-11 N0120150 0C0B 4C18 0C10 2050 | BSC L SU430,+- BRANCH IF ID BLANK N0120160 0C0D 9030 2051 | S SU940 TEST FOR AND N0120170 0C0E 4418 0C1E 2052 | BSI L SU460,+- *BRANCH IF IDENTICAL IDS N0120180 0C10 72FF 2053 | SU430 MDX 2 -1 DECR ID CNT,SKIP IF=0 2-11 N0120190 0C11 70F7 2054 | MDX SU420+1 BR TO TEST NEXT ID 2-11 N0120200 0C12 7021 2055 | MDX SU480 BRANCH TO RETURN N0120210 2056 | * N0120220 2057 | * CHECK CART LIST FOR DUPLICATE CARTRIDGE IDS N0120230 2058 | * N0120240 0C13 620B 2059 | SU440 LDX 2 11 CART LIST CNT TO XR2 2-11 N0120245 0C14 C600 0A2D 2060 | LD L2 SU904-1 FETCH A CART ID 2-11 N0120250 0C16 4C18 0C1B 2061 | BSC L SU450,+- BRANCH IF ID BLANK N0120260 0C18 9025 2062 | S SU940 TEST FOR AND N0120270 0C19 4418 0C1E 2063 | BSI L SU460,+- *BRANCH IF IDENTICAL IDS N0120280 0C1B 72FF 2064 | SU450 MDX 2 -1 DECR ID CNT,SKIP IF=0 2-11 N0120290 0C1C 70F7 2065 | MDX SU440+1 BR TO TEST NEXT ID 2-11 N0120300 0C1D 7016 2066 | MDX SU480 BRANCH TO RETURN N0120310 2067 | * N0120320 2068 | * CHECK IF IDENTICAL CARTRIDGE IDS THE SAME ID N0120330 2069 | * N0120340 0C1E 0000 2070 | SU460 DC *-* ENTRY/RETURN ADDRESS N0120350 0C1F 6A22 2071 | STX 2 SU943 SAVE COUNTER 2-11 N0120360 0C20 74FF 0C42 2072 | MDX L SU943,-1 ADJUST TO BE LIST PNTR 2-11 N0120370 0C22 1000 2073 | NOP IN CASE OF SKIP 2-11 N0120380 0C23 C01D 2074 | LD SU942 FETCH EXTERNAL COUNTER N0120390 0C24 901D 2075 | S SU943 TEST FOR AND N0120400 0C25 4C98 0C1E 2076 | BSC I SU460,+- *RETURN IF COUNTERS EQUAL N0120410 2077 | * N0120420 0C27 C017 2078 | LD SU940+1 FETCH SWITCH N0120430 0C28 4C20 0C2F 2079 | BSC L SU470,Z BRANCH IF NON-ZERO N0120440 0C2A 6580 0C41 2080 | LDX I1 SU942 POINT TO CARTRIDGE ID N0120450 0C2C 6202 2081 | LDX 2 2 POINT TO ERROR MESSAGE N0120460 0C2D 4C00 0B87 2082 | BSC L ERRUP+1 BRANCH TO PRINT THE MESSAGE N0120470 0C2F 6580 0C40 2083 | SU470 LDX I1 SU941 POINT TO CARTRIDGE ID N0120480 0C31 6203 2084 | LDX 2 3 POINT TO ERROR MESSAGE N0120490 0C32 4C00 0B87 2085 | BSC L ERRUP+1 BRANCH TO PRINT THE MESSAGE N0120500 2086 | * N0120510 2087 | * RESTORE AND RETURN N0120520 2088 | * N0120530 0C34 6580 0C40 2089 | SU480 LDX I1 SU941 RESTORE XR1 N0120540 0C36 6680 0C41 2090 | LDX I2 SU942 RESTORE XR2 N0120550 0C38 1810 2091 | SRA 16 SET CARTRIDGE ID N0120560 0C39 D600 0A2E 2092 | STO L2 SU904 *IN CART LIST BLANK N0120570 0C3B C802 2093 | LDD SU940 RESTORE ACC AND EXT N0120580 0C3C 4C80 0C01 2094 | BSC I SU400 RETURN N0120590 2095 | * N0120600 2096 | * WORK AREA N0120610 2097 | * N0120620 0C3E 0000 0000 2098 | SU940 DEC 0.0 CARTRIDGE ID AND SWITCH N0120630 0C40 0000 2099 | SU941 DC *-* SAVE FOR XR1 N0120640 0C41 0000 2100 | SU942 DC *-* SAVE FOR XR2 N0120650 0C42 0000 2101 | SU943 DC *-* TEMPORARY COUNTER N0120660 UPDATE SYSTEM DCOM 2103 | * N0120680 2104 | * UPDATE SYSTEM CARTRIDGE DCOM N0120690 2105 | * N0120700 0C43 0000 2106 | SU500 DC *-* ENTRY/RETURN ADDRESS N0120710 2107 | * N0120720 2108 | * FIND THE POSITION OF THE CARTRIDGE ID N0120730 2109 | * IN #CIDN OF DCOM N0120740 2110 | * N0120750 0C44 62FB 2111 | LDX 2 -5 #CIDN COUNT TO XR1 N0120760 0C45 C500 0A28 2112 | SU520 LD L1 SU902 FETCH CART ID FROM ID LIST N0120770 0C47 9600 0D68 2113 | S L2 DCOMX+60 SUBTRACT #CIDN N0120780 0C49 4C18 0C4F 2114 | BSC L SU540,+- BR IF THE TWO IDS ARE EQUAL N0120790 0C4B 7201 2115 | MDX 2 1 INCR #CIDN CNT, SKIP IF Z N0120800 0C4C 70F8 2116 | MDX SU520 BRANCH TO TEST NEXT CARID N0120810 0C4D 4C00 0B86 2117 | BSC L ERRUP BRANCH TO ERROR RETURN N0120820 2118 | * N0120830 2119 | * MOVE ITEMS FROM XR2 POSITION IN NON-SYSTEM N0120840 2120 | * DCOM TO XR1 POSITION IN SYSTEM DCOM N0120850 2121 | * N0120860 0C4F 7205 2122 | SU540 MDX 2 5 SET CARID COUNT POSITIVE N0120870 0C50 1000 2123 | NOP N0120880 0C51 693C 2124 | STX 1 SU950 STORE AS DRIVE CODE N0120890 0C52 C03B 2125 | LD SU950 FETCH DRIVE CODE TO ACC N0120900 0C53 100C 2126 | SLA 12 SHIFT DR CODE TO BITS 0-3 N0120910 0C54 D039 2127 | STO SU950 SAVE AS DRIVE CODE MASK N0120920 2128 | * N0120930 0C55 C600 0D4F 2129 | LD L2 DCOMX+35 FETCH ADDR OF END OF UA-ADJ N0120940 0C57 D500 0E91 2130 | STO L1 #ANDU STORE TO SYSTEM DCOM N0120950 2131 | * N0120960 0C59 C600 0D54 2132 | LD L2 DCOMX+40 FETCH ADDR OF END OF UA-BAS N0120970 0C5B D500 0E96 2133 | STO L1 #BNDU STORE TO SYSTEM DCOM N0120980 2134 | * N0120990 0C5D C600 0D59 2135 | LD L2 DCOMX+45 FETCH FILE PROTECT ADDRESS N0121000 0C5F 4028 2136 | BSI SU550 UPDATE DRIVE CODE N0121010 0C60 D500 0E9B 2137 | STO L1 #FPAD STORE TO SYSTEM DCOM N0121020 2138 | * N0121030 0C62 C600 0D63 2139 | LD L2 DCOMX+55 FETCH CARTRIDGE ID N0121040 0C64 D500 0EA5 2140 | STO L1 #CIDN STORE TO SYSTEM DCOM N0121050 2141 | * N0121060 0C66 C600 0D68 2142 | LD L2 DCOMX+60 FETCH SECTOR ADDRESS OF CIB N0121070 0C68 401F 2143 | BSI SU550 UPDATE DRIVE CODE N0121080 0C69 D500 0EAA 2144 | STO L1 #CIBA STORE TO SYSTEM DCOM N0121090 2145 | * N0121100 0C6B C600 0D6D 2146 | LD L2 DCOMX+65 FETCH SCTR ADDRESS OF SCRA N0121110 0C6D 401A 2147 | BSI SU550 UPDATE DRIVE CODE N0121120 0C6E D500 0EAF 2148 | STO L1 #SCRA STORE TO SYSTEM DCOM N0121130 2149 | * N0121140 0C70 C600 0D72 2150 | LD L2 DCOMX+70 FETCH FORMAT OF PROG IN WS N0121150 0C72 D500 0EB4 2151 | STO L1 #FMAT STORE TO SYSTEM DCOM N0121160 2152 | * N0121170 0C74 C600 0D77 2153 | LD L2 DCOMX+75 FETCH FLET SECTOR ADDRESS N0121180 0C76 4011 2154 | BSI SU550 UPDATE DRIVE CODE N0121190 0C77 D500 0EB9 2155 | STO L1 #FLET STORE TO SYSTEM DCOM N0121200 2156 | * N0121210 0C79 C600 0D7C 2157 | LD L2 DCOMX+80 FETCH LET SECTOR ADDRESS N0121220 0C7B 400C 2158 | BSI SU550 UPDATE DRIVE CODE N0121230 0C7C D500 0EBE 2159 | STO L1 #ULET STORE TO SYSTEM DCOM N0121240 2160 | * N0121250 0C7E C600 0D81 2161 | LD L2 DCOMX+85 FETCH BLK CNT OF PROG IN WS N0121260 0C80 D500 0EC3 2162 | STO L1 #WSCT STORE TO SYSTEM DCOM N0121270 2163 | * N0121280 0C82 C600 0D86 2164 | LD L2 DCOMX+90 FETCH SCTR ADDR OF CUSHION N0121290 0C84 D500 0EC8 2165 | STO L1 #CSHN STORE TO SYSTEM DCOM N0121300 2166 | * N0121310 0C86 4C80 0C43 2167 | BSC I SU500 RETURN N0121320 2168 | * N0121330 2169 | * UPDATE DRIVE CODE OF SECTOR ADDRESS N0121340 2170 | * N0121350 0C88 0000 2171 | SU550 DC *-* ENTRY/RETURN ADDRESS N0121360 0C89 1004 2172 | SLA 4 SHIFT OUT PRESENT DR CODE N0121370 0C8A 1804 2173 | SRA 4 SHIFT SECTOR ADDRESS BACK N0121380 0C8B E802 2174 | OR SU950 MASK IN NEW DRIVE CODE N0121390 0C8C 4C80 0C88 2175 | BSC I SU550 RETURN N0121400 2176 | * N0121410 0C8E 0000 2177 | SU950 DC *-* DRIVE CODE N0121420 SYSUP - UPDATE SYSTEM DCOM 2179 | * N0121440 2180 | * STORE AREA CODE AND DEFECTIVE CYLINDER N0121450 2181 | * ADDRESSES TO COMMA N0121460 2182 | * N0121470 0C8F 0000 2183 | SU600 DC *-* ENTRY/RETURN ADDRESS N0121480 2184 | * N0121490 0C90 695F 2185 | STX 1 SU976 SAVE LOG DR NO. 2-11 N0121500 0C91 6A5F 2186 | STX 2 SU977 SAVE PHY DR NO. 2-11 N0121510 0C92 C600 0A2E 2187 | LD L2 SU904 FETCH AND STORE N0121520 0C94 D400 0CF2 2188 | STO L SU978 *CART LIST ID TO PRINT SUBR N0121530 2189 | * N0121540 0C96 C600 0A50 2190 | LD L2 SU924 FETCH AREA CODE N0121550 0C98 D500 009F 2191 | STO L1 $ACDE STORE TO COMMA N0121560 2192 | * N0121570 0C9A 6580 0CAC 2193 | LDX I1 SU960 FETCH ADDR OF DEF CYL ADDR N0121580 0C9C 6600 0000 2194 | LDX L2 *-* FETCH ADDRESS IN COMMA AT N0121590 0C9D 2195 | SU620 EQU *-1 *WHICH TO STORE DEF CYL N0121600 0C9E C100 2196 | LD 1 0 STORE N0121610 0C9F D200 2197 | STO 2 0 *DEFECTIVE N0121620 0CA0 C101 2198 | LD 1 1 *CYLINDER N0121630 0CA1 D201 2199 | STO 2 1 *ADDRESSES N0121640 0CA2 C102 2200 | LD 1 2 *TO N0121650 0CA3 D202 2201 | STO 2 2 *COMMA N0121660 2202 | * N0121670 0CA4 7403 0C9D 2203 | MDX L SU620,3 INCR STORE ADDR OF DEF CYL N0121680 2204 | * 1 REDUNDANT INSTRUCTION REMOVED 2-11 N0121690 0CA6 6580 0CF0 2205 | LDX I1 SU976 RESTORE XR1 N0121700 0CA8 6680 0CF1 2206 | LDX I2 SU977 RESTORE XR2 N0121710 2207 | * N0121720 0CAA 4C80 0C8F 2208 | BSC I SU600 RETURN N0121730 2209 | * N0121740 0CAC 0000 2210 | SU960 DC *-* ADDR OF DEF CYL ADDRESSES N0121750 SYSUP - UPDATE SYSTEM DCOM 2212 | * N0121770 2213 | * PRINT LOG DRIVE, SPEC CART, AVAIL CART AND N0121780 2214 | * PHY DRIVE N0121790 2215 | * N0121800 0CAD 0000 2216 | SU700 DC *-* ENTRY/RETURN ADDRESS N0121810 2217 | * N0121820 0CAE 1890 2218 | SRT 16 LINE SWITCH TO EXTENTION N0121830 0CAF C027 2219 | LD SU971 FETCH AND STORE INITIAL N0121840 0CB0 D066 2220 | STO SU984 *PRINT AREA ADDRESS N0121850 2221 | * N0121860 2222 | * CLEAR THE PRINT AREA N0121870 2223 | * N0121880 0CB1 62EA 2224 | LDX 2 -22 WORD COUNT TO XR2 N0121890 0CB2 C03C 2225 | LD SU974 FETCH BLANK WORD N0121900 0CB3 D600 0CEF 2226 | SU710 STO L2 SU973+22 STORE TO PRINT AREA N0121910 0CB5 7201 2227 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0121920 0CB6 70FC 2228 | MDX SU710 BRANCH TO STORE NEXT WORD N0121930 2229 | * N0121940 0CB7 1090 2230 | SLT 16 LINE SWITCH TO ACCUMULATOR N0121950 0CB8 4C18 0CC4 2231 | BSC L SU720,+- BRANCH TO PRINT HALF LINE N0121960 2232 | * N0121970 2233 | * CONVERT AND STORE LOGICAL DRIVE N0121980 2234 | * N0121990 0CBA 7402 0D17 2235 | MDX L SU984,2 INCREMENT PRINT AREA ADDR N0122000 0CBC C033 2236 | LD SU976 FETCH LOGICAL DRIVE N0122010 0CBD 4035 2237 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 N0122020 2238 | * N0122030 2239 | * CONVERT AND STORE SPECIFIED CARTRIDGE ID N0122040 2240 | * N0122050 0CBE 7404 0D17 2241 | MDX L SU984,4 INCREMENT PRINT AREA ADDR N0122060 0CC0 C500 0A28 2242 | LD L1 SU902 FETCH SPEC CARTRIDGE ID N0122070 0CC2 4030 2243 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 N0122080 0CC3 7002 2244 | MDX SU740 N0122090 2245 | * N0122100 2246 | * CONVERT AND STORE AVAILABLE CARTRIDGE ID N0122110 2247 | * N0122120 0CC4 740A 0D17 2248 | SU720 MDX L SU984,10 INCREMENT PRINT AREA ADDR N0122130 2249 | * N0122140 0CC6 7404 0D17 2250 | SU740 MDX L SU984,4 INCREMENT PRINT AREA ADDR N0122150 0CC8 C029 2251 | LD SU978 FETCH AVAIL CARTRIDGE ID N0122160 0CC9 4029 2252 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 N0122170 2253 | * N0122180 2254 | * CONVERT AND STORE PHYSICAL DRIVE N0122190 2255 | * N0122200 0CCA 7404 0D17 2256 | MDX L SU984,4 INCREMENT PRINT AREA ADDR N0122210 0CCC C024 2257 | LD SU977 FETCH PHYSICAL DRIVE N0122220 0CCD 4025 2258 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 N0122230 2259 | * N0122240 2260 | * PRINT THE PRINT AREA N0122250 2261 | * N0122260 0CCE C807 2262 | LDD SU970 FETCH FUNC CODE/I/O AR ADDR N0122270 0CCF 4400 01E1 2263 | BSI L OUTPT BRANCH TO PRINT THE LINE N0122280 0CD1 7400 0036 2264 | MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE N0122290 0CD3 70FD 2265 | MDX *-3 BR TO TEST PRINT COMPLETE N0122300 2266 | * N0122310 0CD4 4C80 0CAD 2267 | BSC I SU700 RETURN N0122320 2268 | * N0122330 2269 | * CONSTANTS AND WORK AREA N0122340 2270 | * N0122350 0CD6 2271 | BSS E 0 N0122360 0CD6 7001 2272 | SU970 DC /7001 PRINT FUNCTION CODE N0122370 0CD7 0CD8 2273 | SU971 DC SU972 ADDRESS OF PRINT AREA N0122380 0CD8 0016 2274 | SU972 DC 22 WORD COUNT OF PRINT AREA N0122390 0CD9 2275 | SU973 BSS 22 PRINT AREA N0122400 0CEF 4040 2276 | SU974 DC /4040 EBCDIC BLANK WORD N0122410 0CF0 0000 2277 | SU976 DC *-* LOGICAL DRIVE N0122420 0CF1 0000 2278 | SU977 DC *-* PHYSICAL DRIVE N0122430 0CF2 0000 2279 | SU978 DC *-* AVAILABLE CARTRIDGE ID N0122440 SYSUP - UPDATE SYSTEM DCOM 2281 | *************************************************** N0122460 2282 | * THIS SUBROUTINE CONVERTS A 16 BIT BINARY NUMBER * N0122470 2283 | * TO FOUR EBCDIC VALUES THAT ARE THE EQUIVALENT IN* N0122480 2284 | * HEX. * N0122490 2285 | * INPUT - 16 BIT BINARY NUMBER IN ACCUMULATOR * N0122500 2286 | * OUTPUT - FOUR EBCDIC VALUES PACKED TWO PER WORD* N0122510 2287 | * AND STORED IN THE PRINT BUFFER * N0122520 2288 | * * N0122530 2289 | * XR1 AND XR2 ARE SAVED AND RESTORED * N0122540 2290 | *************************************************** N0122550 2291 | * N0122560 0CF3 0000 2292 | SU800 DC *-* ENTRY/RETURN ADDR 2-11 N0122570 2293 | * 2-11 N0122580 0CF4 1890 2294 | SRT 16 NUMBER TO EXT 2-11 N0122590 0CF5 6918 2295 | STX 1 SU890+1 SAVE XR1 2-11 N0122600 0CF6 6A19 2296 | STX 2 SU890+3 SAVE XR2 2-11 N0122610 0CF7 61FE 2297 | LDX 1 -2 SET OUTPUT WORD CNT 2-11 N0122620 2298 | * 2-11 N0122630 0CF8 62FE 2299 | SU820 LDX 2 -2 SET CHAR PER WORD CNT 2-11 N0122640 0CF9 D01C 2300 | STO SU983 STORE TEMPORARILY 2-11 N0122650 0CFA 1810 2301 | SRA 16 CLEAR ACC TO ZERO 2-11 N0122660 0CFB 1084 2302 | SLT 4 GET 4 BITS TO CONVT 2-11 N0122670 0CFC 9016 2303 | S SU980 SUB 9 TO CHK 0-9 OR A-F2-11 N0122680 0CFD 4808 2304 | BSC + SKIP IF A-F 2-11 N0122690 0CFE 8015 2305 | A SU981 ADD /0039 2-11 N0122700 0CFF 8015 2306 | A SU982 ADD /00C0 2-11 N0122710 0D00 1008 2307 | SLA 8 SHIFT TO LEFT OF WORD 2-11 N0122720 0D01 7201 2308 | MDX 2 1 DECRE CHAR PER WD CNT 2-11 N0122730 0D02 70F6 2309 | MDX SU820+1 CONT IF WD NOT FULL 2-11 N0122740 2310 | * 2-11 N0122750 0D03 1808 2311 | SRA 8 OTHERWISE, SHIFT JUST 2-11 N0122760 0D04 E811 2312 | OR SU983 *CNVTD WD TO RT,'OR'IN 2-11 N0122770 0D05 D480 0D17 2313 | STO I SU984 *1ST HALF,STO TO PRINT 2-11 N0122780 0D07 7401 0D17 2314 | MDX L SU984,1 INCRE PRINT AREA ADDR 2-11 N0122790 0D09 1810 2315 | SRA 16 SET TEMP STORE AREA 2-11 N0122800 0D0A D00B 2316 | STO SU983 *TO ZERO 2-11 N0122810 2317 | * 2-11 N0122820 0D0B 7101 2318 | MDX 1 1 DECRE OUTPUT WD COUNT 2-11 N0122830 0D0C 70EB 2319 | MDX SU820 IF TWO WORDS NOT OUTPUT2-11 N0122840 2320 | * *CONTINUE CONVERSION 2-11 N0122850 2321 | * 2-11 N0122860 0D0D 6500 0000 2322 | SU890 LDX L1 *-* *OTHERWISE, RESTORE 2-11 N0122870 0D0F 6600 0000 2323 | LDX L2 *-* *REGISTERS 2-11 N0122875 0D11 4C80 0CF3 2324 | BSC I SU800 *AND RETURN TO CONTINUE2-11 N0122880 2325 | * 2-11 N0122890 2326 | * CONSTANTS AND WORKAREA 2-11 N0122900 2327 | * 2-11 N0122910 0D13 0009 2328 | SU980 DC /0009 CONVERSION CONSTANTS 2-11 N0122920 0D14 0039 2329 | SU981 DC /0039 * 2-11 N0122930 0D15 00C0 2330 | SU982 DC /00C0 * 2-11 N0122940 0D16 0000 2331 | SU983 DC *-* TEMP STOR FOR CNVT CHAR2-11 N0122950 0D17 0000 2332 | SU984 DC *-* PRINT AREA ADDRESS 2-11 N0122960 2333 | * N0122970 2334 | * N0122980 0D18 2335 | BSS BUFFR-2-* PATCH AREA N0122990 2336 | * N0123000 2337 | * N0123010 0D2A 0140 2338 | JB999 DC @SCTR END OF PHASE 2 - JOB PROC N0123020 SUPV PHASE 3 - DELETE TEMPORARY LET 2340 | *************************************************** N0123040 2341 | *STATUS - VERSION 2, MODIFICATION 5 * N0123050 2342 | * * N0123060 2343 | *FUNCTION/OPERATION - * N0123070 2344 | * * DELETE ALL TEMPORARY LET ENTRIES FROM ALL * N0123080 2345 | * DISK CARTRIDGES DEFINED FOR THE JOB. * N0123090 2346 | * * N0123100 2347 | *ENTRY POINTS - * N0123110 2348 | * PROGRAM START - JB300-4 * N0123120 2349 | * * N0123130 2350 | *INPUT - N/A * N0123140 2351 | * * N0123150 2352 | *OUTPUT - N/A * N0123160 2353 | * * N0123170 2354 | *EXTERNAL REFERENCES - * N0123180 2355 | * * IN COMMA - * N0123190 2356 | * $DBSY * N0123200 2357 | * $EXIT * N0123210 2358 | * $FLSH * N0123220 2359 | * $PHSE * N0123230 2360 | * $ULET * N0123240 2361 | * * IN DCOM - * N0123250 2362 | * #ANDU * N0123260 2363 | * #BNDU * N0123270 2364 | * #CIDN * N0123280 2365 | * #ECNT 2-4* N0123290 2366 | * * IN MCRA - * N0123300 2367 | * RA900 * N0123310 2368 | * WDCOM * N0123320 2369 | * * SUBROUTINES - * N0123330 2370 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0123340 2371 | * * N0123350 2372 | *EXITS - * N0123360 2373 | * * NORMAL - * N0123370 2374 | * AN EXIT IS MADE TO SUPV PHASE 5 TO 2-4* N0123380 2375 | * PROCESS *EQUAT RECORDS IF THEY FOLLOW 2-4* N0123390 2376 | * THE JOB RECORD. OTHERWISE, AN EXIT IS 2-4* N0123400 2377 | * MADE TO THE MCRA (PHASE 1) TO READ THE 2-4* N0123410 2378 | * NEXT RECORD. 2-4* N0123420 2379 | * * ERROR - * N0123430 2380 | * AN EXIT IS MADE TO THE MCRA TO PRINT THE * N0123440 2381 | * ERROR MESSAGE AND ABORT THE JOB. * N0123450 2382 | * * N0123460 2383 | *TABLES/WORK AREAS - * N0123470 2384 | * * DCOM A 320 WORD BUFFER USED FOR SYSTEM * N0123480 2385 | * DISK COMMUNICATIONS AREA (DCOM) I/O.* N0123490 2386 | * * BUFFER A 320 WORD BUFFER USED FOR LET AND * N0123500 2387 | * SATELLITE DCOM I/O. * N0123510 2388 | * * JB936 AN 8 WORD TABLE USED TO STORE THE * N0123520 2389 | * SECTOR ADDRESSES OF SECTORS * N0123530 2390 | * CONTAINING TEMPORARY LET ITEMS. * N0123540 2391 | * * N0123550 2392 | *ATTRIBUTES - * N0123560 2393 | * * ABSOLUTE * N0123570 2394 | * * REUSABLE * N0123580 2395 | * * N0123590 2396 | *NOTES - N/A * N0123600 2397 | * * N0123610 2398 | *************************************************** N0123620 SUPV PHASE 3 - DELETE TEMPORARY LET 07FE 2400 | ORG @PROC-2 PHASE 3 I/O AREA ADDRESS N0123640 2401 | * N0123650 *SBRKMET 70 2402 | *SUP PHASE 3 - DELETE TEMPORARY LET V2M04 N0123660 07FE 0280 2403 | DC JB599-* WORD COUNT N0123670 07FF 0070 2404 | DC @DELT PHASE ID N0123680 SUPV PHASE 3 - DELETE TEMPORARY LET 0800 6170 2406 | LDX 1 @DELT SET N0123700 0801 6D00 0078 2407 | STX L1 $PHSE *SUPERVISOR PHASE 3 INDR N0123710 0803 1000 2408 | NOP A WAIT MAY BE PATCHED HERE N0123720 2409 | * N0123730 2410 | * DELETE TEMPORARY ITEMS FROM LET N0123740 2411 | * N0123750 0804 61FB 2412 | JB300 LDX 1 -5 SET CARTRIDGE COUNT TO XR1 N0123760 2413 | * N0123770 0805 C500 0E96 2414 | JB310 LD L1 #ANDU+5 FETCH ADJUSTED ADDRESS N0123780 0807 9500 0E9B 2415 | S L1 #BNDU+5 SUBTRACT BASE ADDRESS N0123790 0809 4C18 0924 2416 | BSC L JB500,+- BR IF ADJ AND BASE EQUAL N0123800 080B C500 0032 2417 | LD L1 $ULET+5 FETCH SECTOR ADDRESS OF LET N0123810 080D D400 0D2B 2418 | STO L BUFFR-1 STORE TO LET I/O AREA N0123820 080F C400 08C9 2419 | LD L JB943 FETCH ADDR OF LET I/O AREA N0123830 0811 1890 2420 | SRT 16 SHIFT TO EXT, ACC = 0 N0123840 0812 D400 08C6 2421 | STO L JB939 CLEAR BRANCH SWITCH N0123850 0814 4400 00F2 2422 | BSI L DZ000 BRANCH TO DISK READ N0123860 0816 7400 00EE 2423 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0123870 0818 70FD 2424 | MDX *-3 BR TO TEST READ COMPLETE N0123880 0819 C400 0D2D 2425 | LD L BUFFR+1 FETCH ADDR OF USER AREA N0123890 081B 1004 2426 | SLA 4 MULTIPLY BY SIXTEEN N0123900 081C D400 08B9 2427 | STO L JB933 INITIALIZE DB SUM N0123910 081E 9500 0E9B 2428 | S L1 #BNDU+5 TEST FOR 2-4 N0123920 0820 6600 FEC2 2429 | LDX L2 -318 *AND BRANCH IF 2-4 N0123930 0822 4C10 0843 2430 | BSC L JB340,- *EQUAL TO BASE ADDRESS 2-4 N0123940 2431 | * N0123950 0824 6600 FEC5 2432 | JB320 LDX L2 -315 WORD COUNT TO XR2 N0123960 0826 C400 08B9 2433 | JB330 LD L JB933 FETCH DB SUM N0123970 0828 8600 0E6E 2434 | A L2 BUFFR+322 ADD DB COUNT N0123980 082A D400 08B9 2435 | STO L JB933 STORE NEW DB SUM N0123990 082C 9500 0E9B 2436 | S L1 #BNDU+5 SUBTRACT BASE ADDRESS N0124000 082E 4C10 0843 2437 | BSC L JB340,- BR IF DB SUM EQ BASE ADDR N0124010 0830 7203 2438 | MDX 2 3 INCREMENT XR2, SKIP IF ZERO N0124020 0831 70F4 2439 | MDX JB330 BR TO FETCH NEXT DB COUNT N0124030 0832 C400 0D2B 2440 | LD L BUFFR-1 FETCH LET SECTOR ADDRESS N0124040 0834 E400 08B8 2441 | AND L JB932 MASK OUT ALL BUT DRIVE CODE N0124050 0836 EC00 0D30 2442 | OR L BUFFR+4 MASK IN NEXT LET SCTR ADDR N0124060 0838 D400 0D2B 2443 | STO L BUFFR-1 STORE TO LET I/O AREA N0124070 083A C400 08C9 2444 | LD L JB943 FETCH ADDR OF LET I/O AREA N0124080 083C 1890 2445 | SRT 16 SHIFT TO EXT, ACC = 0 N0124090 083D 4400 00F2 2446 | BSI L DZ000 BRANCH TO DISK READ N0124100 083F 7400 00EE 2447 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0124110 0841 70FD 2448 | MDX *-3 BR TO TEST READ COMPLETE N0124120 0842 70E1 2449 | MDX JB320 BRANCH TO CONTINUE SEARCH N0124130 2450 | * N0124140 2451 | * END OF PERMANENT LET FOUND N0124150 2452 | * SEARCH FOR END OF TEMPORARY LET N0124160 2453 | * N0124170 0843 6301 2454 | JB340 LDX 3 1 SET TEMP LET SECTORS COUNT N0124180 0844 C400 0D2B 2455 | LD L BUFFR-1 FETCH THIS LET SCTR ADDRESS N0124190 0846 D700 08BB 2456 | STO L3 JB936-1 SAVE FOR FUTURE REFERENCE N0124200 0848 7203 2457 | JB350 MDX 2 3 DECREMENT XR2, SKIP IF ZERO N0124210 0849 701A 2458 | MDX JB360 BR TO CALCULATE NEW DB SUM N0124220 084A C400 0D2B 2459 | JB355 LD L BUFFR-1 FETCH LET SECTOR ADDRESS N0124230 084C E400 08B8 2460 | AND L JB932 MASK OUT ALL BUT DRIVE CODE N0124240 084E EC00 0D30 2461 | OR L BUFFR+4 MASK IN NEXT LET SCTR ADDR N0124250 0850 D400 0D2B 2462 | STO L BUFFR-1 STORE TO LET I/O AREA N0124260 0852 C400 08C9 2463 | LD L JB943 FETCH ADDR OF LET I/O AREA N0124270 0854 1890 2464 | SRT 16 SHIFT TO EXT, ACC = 0 N0124280 0855 4400 00F2 2465 | BSI L DZ000 BRANCH TO DISK READ N0124290 0857 7400 00EE 2466 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0124300 0859 70FD 2467 | MDX *-3 BR TO TEST READ COMPLETE N0124310 085A 7301 2468 | MDX 3 1 INCREMENT TEMP LET SCTR CNT N0124320 085B C400 0D2B 2469 | LD L BUFFR-1 FETCH THIS LET SCTR ADDRESS N0124330 085D D700 08BB 2470 | STO L3 JB936-1 SAVE FOR FUTURE REFERENCE N0124340 085F 6600 FEC5 2471 | LDX L2 -315 WORD COUNT TO XR2 N0124350 0861 7400 08C6 2472 | MDX L JB939,0 SKIP IF BRANCH SWITCH ZERO N0124360 0863 700D 2473 | MDX JB365 BRANCH N0124370 2474 | * N0124380 0864 C054 2475 | JB360 LD JB933 FETCH DB SUM N0124390 0865 8600 0E6E 2476 | A L2 BUFFR+322 ADD DB COUNT N0124400 0867 D051 2477 | STO JB933 STORE NEW DB SUM N0124410 0868 9500 0E96 2478 | S L1 #ANDU+5 SUBTRACT ADJUSTED ADDRESS N0124420 086A 4C20 0848 2479 | BSC L JB350,Z BR IF DB SUM LT ADJ ADDRESS N0124430 2480 | * N0124440 2481 | * END OF TEMPORARY LET FOUND N0124450 2482 | * DELETE TEMPORARY ITEMS N0124460 2483 | * N0124470 086C 7203 2484 | JB363 MDX 2 3 POINT TO DUMMY ENTRY N0124480 086D 7003 2485 | MDX JB365 BRANCH IF IN SAME SECTOR N0124490 086E C049 2486 | LD JB932 SET BRANCH N0124500 086F D056 2487 | STO JB939 *SWITCH NON-ZERO N0124510 0870 70D9 2488 | MDX JB355 BRANCH TO READ NEXT SECTOR N0124520 0871 C400 0D30 2489 | JB365 LD L BUFFR+4 FETCH SCTR ADDR OF NEXT 2-5 N0124530 0873 D050 2490 | STO JB937 *LET/FLET AND SAVE 2-5 N0124540 0874 C600 0E6C 2491 | LD L2 BUFFR+320 SEARCH LET FOR 2-5 N0124550 0876 903F 2492 | S JB930 *LAST DUMMY ENTRY 2-5 N0124560 0877 4820 2493 | BSC Z SKIP IF FOUND 2-5 N0124570 0878 70F3 2494 | MDX JB363 BRANCH IF NOT FOUND 2-5 N0124580 0879 C600 0E6E 2495 | LD L2 BUFFR+322 FETCH SIZE OF WORKING STG N0124590 087B D03E 2496 | STO JB934 SAVE NEW SIZE OF WRK STG N0124600 087C C500 0E96 2497 | LD L1 #ANDU+5 FETCH ADJUSTED ADDRESS N0124610 087E D03C 2498 | STO JB934+1 SAVE NEW ADJUSTED ADDRESS N0124620 2499 | * N0124630 087F 7600 013E 2500 | MDX L2 318 RESET WORD COUNT POSITIVE N0124640 0881 1000 2501 | NOP N0124650 2502 | * N0124660 0882 1810 2503 | JB370 SRA 16 CLEAR ACCUMULATOR N0124670 0883 D600 0D2E 2504 | STO L2 BUFFR+2 SET FIRST HALF OF NAME ZERO N0124680 0885 D600 0D2F 2505 | STO L2 BUFFR+3 SET SECND HALF OF NAME ZERO N0124690 0887 D600 0D30 2506 | STO L2 BUFFR+4 SET DB COUNT ZERO N0124700 0889 72FD 2507 | MDX 2 -3 DECREMENT XR2, SKIP IF ZERO N0124710 088A 701D 2508 | MDX JB380 BR FOR NEW ADJ ADDR,WS SIZE N0124720 2509 | * N0124730 088B 62FB 2510 | LDX 2 -5 CLEAR N0124740 088C 1810 2511 | SRA 16 *FIRST N0124750 088D D600 0D31 2512 | JB375 STO L2 BUFFR+5 *FIVE N0124760 088F 7201 2513 | MDX 2 1 *WORDS N0124770 0890 70FC 2514 | MDX JB375 *OF SECTOR N0124780 0891 CC00 08C8 2515 | LDD L JB942 FETCH FUNC CODE/I/O AR ADDR N0124790 0893 4400 00F2 2516 | BSI L DZ000 BRANCH TO DISK WRITE N0124800 0895 7400 00EE 2517 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0124810 0897 70FD 2518 | MDX *-3 BR TO TEST WRITE COMPLETE N0124820 0898 73FF 2519 | MDX 3 -1 DECREMENT TEMP LET SCTR CNT N0124830 0899 1000 2520 | NOP N0124840 2521 | * N0124850 089A C700 08BB 2522 | LD L3 JB936-1 FETCH ADDR OF PREV LET SCTR N0124860 089C D400 0D2B 2523 | STO L BUFFR-1 STORE TO LET I/O AREA N0124870 089E C400 08C9 2524 | LD L JB943 FETCH ADDR OF LET I/O AREA N0124880 08A0 1890 2525 | SRT 16 SHIFT TO EXT, ACC = 0 N0124890 08A1 4400 00F2 2526 | BSI L DZ000 BRANCH TO DISK READ N0124900 08A3 7400 00EE 2527 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0124910 08A5 70FD 2528 | MDX *-3 BR TO TEST READ COMPLETE N0124920 08A6 6600 013B 2529 | LDX L2 315 WORD COUNT TO XR2 N0124930 2530 | * N0124940 08A8 C011 2531 | JB380 LD JB934 FETCH SIZE OF WRK STG N0124950 08A9 8600 0D30 2532 | A L2 BUFFR+4 ADD DB COUNT N0124960 08AB D00E 2533 | STO JB934 SAVE NEW SIZE OF WRK STG N0124970 08AC C00E 2534 | LD JB934+1 FETCH ADJUSTED ADDRESS N0124980 08AD 9600 0D30 2535 | S L2 BUFFR+4 SUBTRACT DB COUNT N0124990 08AF D00B 2536 | STO JB934+1 SAVE NEW ADJUSTED ADDRESS N0125000 08B0 9500 0E9B 2537 | S L1 #BNDU+5 SUBTRACT BASE ADDRESS N0125010 08B2 4C18 08CB 2538 | BSC L JB400,+- BR IF BASE AND ADJ EQUAL N0125020 08B4 70CD 2539 | MDX JB370 BRANCH TO TEST BASE AND ADJ N0125030 2540 | * N0125040 2541 | * CONSTANTS AND WORK AREA N0125050 2542 | * N0125060 08B6 2543 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0125070 08B6 7112 2544 | JB930 DC /7112 DUMMY PROGRAM NAME N0125080 08B7 4528 2545 | DC /4528 *IN NAME CODE N0125090 08B8 F000 2546 | JB932 DC /F000 MASK TO SAVE DRIVE CODE N0125100 08B9 0000 2547 | JB933 DC *-* DB SUM N0125110 08BA 0000 2548 | JB934 DC *-* SIZE OF WORKING STORAGE N0125120 08BB 0000 2549 | DC *-* ADDR OF ADJ END OF UA N0125130 08BC 2550 | JB936 BSS 8 TEMPORARY LET SECTOR ADDRS N0125140 08C4 0000 2551 | JB937 DC *-* SCTR ADDR OF NEXT LET/FLET N0125150 08C5 0000 2552 | JB938 DC *-* NO. OF WORDS AVAILABLE N0125160 08C6 0000 2553 | JB939 DC *-* BRANCH SWITCH N0125170 08C7 0140 2554 | JB940 DC @SCTR LET SECTOR WORD COUNT N0125180 08C8 0001 2555 | JB942 DC /0001 WRITE FUNCTION CODE N0125190 08C9 0D2A 2556 | JB943 DC BUFFR-2 DISK BUFFER I/O AREA ADDR N0125200 08CA 0002 2557 | JB944 DC 2 FIRST SLET SCTR ADDR-1 2-4 N0125210 2558 | * N0125220 2559 | * TEMPORARY ITEMS DELETED N0125230 2560 | * N0125240 08CB 6AF9 2561 | JB400 STX 2 JB938 STORE NO. OF WORDS USED N0125250 08CC C0DA 2562 | LD JB380-1 FETCH NO. OF WORDS (315) N0125260 08CD 90F7 2563 | S JB938 SUBTRACT NO. OF WORDS USED N0125270 08CE D0F6 2564 | STO JB938 SAVE NO. OF WORDS AVAILABLE N0125280 08CF 4C10 08E0 2565 | BSC L JB420,- BRANCH IF NOT NEGATIVE N0125290 2566 | * N0125300 08D1 C400 0D30 2567 | LD L BUFFR+4 FETCH ADDR OF NEXT LET SCTR N0125310 08D3 D400 0D2B 2568 | STO L BUFFR-1 STORE TO LET I/O AREA N0125320 08D5 C0F3 2569 | LD JB943 FETCH ADDR OF LET I/O AREA N0125330 08D6 1890 2570 | SRT 16 SHIFT TO EXT, ACC = 0 N0125340 08D7 4400 00F2 2571 | BSI L DZ000 BRANCH TO DISK READ N0125350 08D9 7400 00EE 2572 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0125360 08DB 70FD 2573 | MDX *-3 BR TO TEST READ COMPLETE N0125370 08DC 6600 0139 2574 | LDX L2 313 FETCH WORD COUNT TO XR2 N0125380 08DE 6AE6 2575 | STX 2 JB938 SAVE NO. OF WDS AVAILABLE N0125390 08DF 6203 2576 | LDX 2 3 WORK COUNT TO XR2 N0125400 2577 | * N0125410 08E0 C0D9 2578 | JB420 LD JB934 FETCH NEW SIZE OF WRK STG N0125420 08E1 D600 0D30 2579 | STO L2 BUFFR+4 STORE TO LET I/O AREA N0125430 08E3 C0D2 2580 | LD JB930 FETCH 1ST HALF DUMMY NAME N0125440 08E4 D600 0D2E 2581 | STO L2 BUFFR+2 STORE TO LET I/O AREA N0125450 08E6 C0D0 2582 | LD JB930+1 FETCH 2ND HALF DUMMY NAME N0125460 08E7 D600 0D2F 2583 | STO L2 BUFFR+3 STORE TO LET I/O AREA N0125470 08E9 C0DA 2584 | LD JB937 FETCH SCTR ADDR OF NEXT N0125480 08EA D400 0D30 2585 | STO L BUFFR+4 *LET/FLET, STORE TO LET I/O N0125490 08EC C0D8 2586 | LD JB938 FETCH NO. OF WDS AVAILABLE N0125500 08ED D400 0D2F 2587 | STO L BUFFR+3 *IN SCTR, STORE TO LET I/O N0125510 08EF C500 0E9B 2588 | LD L1 #BNDU+5 SET ADDR OF ADJ END OF UA N0125520 08F1 D500 0E96 2589 | STO L1 #ANDU+5 *EQUAL TO ADDR OF BASE END N0125530 2590 | * N0125540 08F3 CC00 08C8 2591 | LDD L JB942 FETCH FUNC CODE/I/O AR ADDR N0125550 08F5 4400 00F2 2592 | BSI L DZ000 BRANCH TO DISK WRITE N0125560 08F7 7400 00EE 2593 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0125570 08F9 70FD 2594 | MDX *-3 BR TO TEST WRITE COMPLETE N0125580 2595 | * N0125590 2596 | * UPDATE #ANDU ON THE SATELLITE CARTRIDGE N0125600 2597 | * N0125610 08FA C500 0032 2598 | LD L1 $ULET+5 FETCH LET SECTOR ADDRESS N0125620 08FC E0BB 2599 | AND JB932 MASK OUT ALL BUT DRIVE CODE N0125630 08FD 4C08 0924 2600 | BSC L JB500,+ BRANCH IF MASTER CARTRIDGE N0125640 08FF EC00 0E6D 2601 | OR L DCOM-1 MASK IN DCOM SECTOR ADDRESS N0125650 0901 D400 0D2B 2602 | STO L BUFFR-1 STORE TO DCOM I/O AREA N0125660 0903 C400 08C9 2603 | LD L JB943 FETCH ADDR OF DCOM I/O AREA N0125670 0905 1890 2604 | SRT 16 SHIFT TO EXT, ACC = 0 N0125680 0906 4400 00F2 2605 | BSI L DZ000 BRANCH TO DISK READ N0125690 0908 7400 00EE 2606 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0125700 090A 70FD 2607 | MDX *-3 BR TO TEST READ COMPLETE N0125710 2608 | * N0125720 090B 62FB 2609 | LDX 2 -5 CARTRIDGE COUNT TO XR2 N0125730 090C C500 0EAA 2610 | JB460 LD L1 #CIDN+5 FETCH ID OF SATELLITE CART N0125740 090E 9600 0D68 2611 | S L2 BUFFR+60 TEST FOR AND N0125750 0910 4C18 0919 2612 | BSC L JB480,+- *BRANCH IF IDS ARE THE SAME N0125760 0912 7201 2613 | MDX 2 1 INCR CART CNT, SKIP IF ZERO N0125770 0913 70F8 2614 | MDX JB460 BRANCH TO TEST NEXT ID N0125780 0914 D400 0071 2615 | STO L $FLSH SET ABORT JOB INDICATOR N0125790 0916 6305 2616 | LDX 3 5 POINT TO ERROR MESSAGE M 15 N0125800 0917 4400 06E4 2617 | BSI L RA900 BRANCH TO PRINT THE MESSAGE N0125810 0919 C600 0D59 2618 | JB480 LD L2 BUFFR+45 FETCH #BNDU AND N0125820 091B D600 0D54 2619 | STO L2 BUFFR+40 *STORE TO #ANDU N0125830 2620 | * N0125840 091D CC00 08C8 2621 | LDD L JB942 FETCH FUNC CODE/I/O AR ADDR N0125850 091F 4400 00F2 2622 | BSI L DZ000 BRANCH TO DISK WRITE N0125860 0921 7400 00EE 2623 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0125870 0923 70FD 2624 | MDX *-3 BR TO TEST WRITE COMPLETE N0125880 2625 | * N0125890 0924 7101 2626 | JB500 MDX 1 1 INCR CART CNT, SKIP IF ZERO N0125900 0925 7001 2627 | MDX *+1 N0125910 0926 7002 2628 | MDX *+2 N0125920 0927 4C00 0805 2629 | BSC L JB310 BR TO ADJUST NEXT CARTRIDGE N0125930 2630 | * N0125940 0929 4400 0782 2631 | BSI L WDCOM BRANCH TO WRITE DCOM N0125950 092B C400 0E8F 2632 | LD L #ECNT FETCH NO. OF EQUAT RCDS 2-4 N0125960 092D 4C08 0038 2633 | BSC L $EXIT,+ BR TO FETCH MCRA IF Z 2-4 N0125970 2634 | * 2-4 N0125980 2635 | * IF THE MASTER CARTRIDGE HAS CHANGED THE 2-4 N0125990 2636 | * SLET INFORMATION FOR SUPV PHASE 5 MAY 2-4 N0126000 2637 | * HAVE CHANGED ALSO. 2-4 N0126010 2638 | * 2-4 N0126020 092F 61FD 2639 | LDX 1 -3 XR1 = NO. OF SLET SCTRS 2-4 N0126030 0930 C400 08CA 2640 | LD L JB944 FETCH AND STORE 2-4 N0126040 0932 D400 0D2B 2641 | STO L BUFFR-1 *SLET SECTOR -1 2-4 N0126050 0934 7401 0D2B 2642 | JB520 MDX L BUFFR-1,1 INCREMENT SECTOR ADDR 2-4 N0126060 0936 C400 08C9 2643 | LD L JB943 FETCH I/O AREA ADDRESS 2-4 N0126070 0938 1890 2644 | SRT 16 SHIFT TO EXT, ACC = 0 2-4 N0126080 0939 4400 00F2 2645 | BSI L DZ000 BR TO READ A SLET SCTR 2-4 N0126090 093B 7400 00EE 2646 | JB540 MDX L $DBSY,0 SK NEXT IF RD COMPLETE 2-4 N0126100 093D 70FD 2647 | MDX JB540 BR TO TEST RD COMPLETE 2-4 N0126110 2648 | * 2-4 N0126120 093E 6600 FEC0 2649 | LDX L2 -@SCTR XR2 = SECTOR WORD COUNT 2-4 N0126130 0940 C400 0566 2650 | JB560 LD L SUPV5 FETCH SUPV PH 5 PH ID 2-4 N0126140 0942 9600 0E6C 2651 | S L2 BUFFR+@SCTR TEST FOR AND BRANCH 2-4 N0126150 0944 4C18 094F 2652 | BSC L JB580,+- *IF MATCH FOUND IN SLET 2-4 N0126160 0946 7204 2653 | MDX 2 4 DECR WD CNT, SK IF ZERO 2-4 N0126170 0947 70F8 2654 | MDX JB560 BR TO TEST NEXT PH ID 2-4 N0126180 0948 7101 2655 | MDX 1 1 DECR SCTR CNT, SK IF Z 2-4 N0126190 0949 70EA 2656 | MDX JB520 BR TO FETCH NEXT SLET 2-4 N0126200 094A D400 0071 2657 | STO L $FLSH SET ABORT JOB INDR ON 2-4 N0126210 094C 6306 2658 | LDX 3 6 POINT TO ERROR MSG M 16 2-4 N0126220 094D 4400 06E4 2659 | BSI L RA900 BR TO PRINT THE MESSAGE 2-4 N0126230 2660 | * 2-4 N0126240 094F 6500 0566 2661 | JB580 LDX L1 SUPV5 XR1 PTS TO PHASE 5 SLET 2-4 N0126250 0951 CE00 0E6E 2662 | LDD L2 BUFFR+@SCTR+2 FETCH AND STORE 2-4 N0126260 0953 D902 2663 | STD 1 2 *WD CNT AND SCTR ADDR 2-4 N0126270 0954 4C00 0670 2664 | BSC L RA600 BR TO FETCH PHASE 5 2-4 N0126280 2665 | * N0126290 2666 | * N0126300 0956 2667 | BSS @PROC+2*@SCTR-*-1 PATCH AREA 2-4 N0126310 2668 | * N0126320 2669 | * N0126330 0A7F 0000 2670 | JB599 DC 0 END OF PHASE 3 - DELETE T N0126340 SUPV PHASE 4 - XEQ PROCESSING 2672 | *************************************************** N0126360 2673 | *STATUS - VERSION 2, MODIFICATION 9 * N0126370 2674 | * * N0126380 2675 | *FUNCTION/OPERATION - * N0126390 2676 | * * UNPACK THE MAINLINE NAME IN COLUMNS 8-12 OF * N0126400 2677 | * THE XEQ RECORD AND CONVERT TO NAMECODE. * N0126410 2678 | * * SET THE CORE MAP INDICATOR. * N0126420 2679 | * * SET THE NUMBER OF SUPERVISOR CONTROL RECORDS* N0126430 2680 | * * SET THE REQUESTED DISK SUBROUTINE INDICATOR.* N0126440 2681 | * * CONVERT THE CARTRIDGE ID IN COLUMN 21-24 OF * N0126450 2682 | * THE XEQ RECORD TO BINARY. * N0126460 2683 | * * SET THE SPECIAL ILS INDICATOR. * N0126470 2684 | * * SET THE LOCALS-CALL-LOCALS INDICATOR. * N0126480 2685 | * * N0126490 2686 | *ENTRY POINTS - * N0126500 2687 | * PROGRAM START - XQ000 * N0126510 2688 | * * N0126520 2689 | *INPUT - N/A * N0126530 2690 | * * N0126540 2691 | *OUTPUT - N/A * N0126550 2692 | * * N0126560 2693 | *EXTERNAL REFERENCES - * N0126570 2694 | * * IN COMMA - * N0126580 2695 | * $COMN * N0126590 2696 | * $DADR * N0126600 2697 | * $DCDE * N0126610 2698 | * $DREQ * N0126620 2699 | * $FPAD * N0126630 2700 | * $NDUP * N0126640 2701 | * $NXEQ * N0126650 2702 | * $PHSE * N0126660 2703 | * $WSDR * N0126670 2704 | * * IN DCOM - * N0126680 2705 | * #CIDN * N0126690 2706 | * #DCSW * N0126700 2707 | * #FCNT * N0126710 2708 | * #GCNT * N0126720 2709 | * #LCNT * N0126730 2710 | * #LOSW * N0126740 2711 | * #MPSW * N0126750 2712 | * #NAME * N0126760 2713 | * #NCNT * N0126770 2714 | * #X3SW * N0126780 2715 | * * IN MCRA - * N0126790 2716 | * LABCK * N0126800 2717 | * NAMEP * N0126810 2718 | * NINDR * N0126820 2719 | * NORCD * N0126830 2720 | * RA220 * N0126840 2721 | * RA600 * N0126850 2722 | * RA740 * N0126860 2723 | * RA760 * N0126870 2724 | * RA850 * N0126880 2725 | * RDCOM * N0126890 2726 | * SUPV5 * N0126900 2727 | * WDCOM * N0126910 2728 | * * N0126920 2729 | *EXITS - * N0126930 2730 | * * NORMAL - * N0126940 2731 | * * FETCH SUPERVISOR PHASE 5 TO PROCESS THE * N0126950 2732 | * SUPERVISOR CONTROL RECORDS IF THEY * N0126960 2733 | * FOLLOW THE XEQ CONTROL RECORD. * N0126970 2734 | * * FETCH THE CORE LOAD BUILDER TO EXECUTE * N0126980 2735 | * THE PROGRAM IN WORKING STORAGE IF THE * N0126990 2736 | * PROGRAM NAME IS BLANK. * N0127000 2737 | * * FETCH THE CORE IMAGE LOADER WITH A CALL * N0127010 2738 | * LINK TO EXECUTE THE NAMED PROGRAM IN * N0127020 2739 | * THE USER AREA. * N0127030 2740 | * * ERROR - * N0127040 2741 | * * BRANCH TO THE MCRA TO READ THE NEXT * N0127050 2742 | * * N0127060 2743 | *TABLES/WORK AREAS - * N0127070 2744 | * * @SBFR AN 80 WORD BUFFER CONTAINING THE * N0127080 2745 | * XEQ MONITOR CONTROL RECORD. * N0127090 2746 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0127100 2747 | * COMMUNICATION AREA (DCOM) I/O. * N0127110 2748 | * * N0127120 2749 | *ATTRIBUTES - * N0127130 2750 | * * ABSOLUTE. * N0127140 2751 | * * REUSABLE. * N0127150 2752 | * * N0127160 2753 | *NOTES - * N0127170 2754 | * * THE ERROR MESSAGES PRINTED FROM PHASE 4 ARE-* N0127180 2755 | * * M 26 ILLEGAL NAME * N0127190 2756 | * * M 27 ILLEGAL CARTRIDGE ID * N0127200 2757 | * * M 29 ILLEGAL DISK ROUTINE REQUESTED * N0127210 2758 | * * M 31 REQUESTED W.S. DR NOT AVAIL * N0127220 2759 | * * N0127230 2760 | *************************************************** N0127240 SUPV PHASE 4 - XEQ PROCESSING 07FE 2762 | ORG @PROC-2 PHASE 4 I/O AREA ADDRESS N0127260 2763 | * N0127270 *SBRKMET 71 2764 | *SUP PHASE 4 - XEQ PROCESSING V2M04 N0127280 07FE 0280 2765 | DC XQ999-* WORD COUNT N0127290 07FF 0071 2766 | DC @XEQP PHASE ID N0127300 SUPV PHASE 4 - XEQ PROCESSING 0800 6171 2768 | XQ000 LDX 1 @XEQP SET N0127320 0801 6D00 0078 2769 | STX L1 $PHSE *SUPERVISOR PHASE 4 INDR N0127330 0803 1000 2770 | NOP A WAIT MAY BE PATCHED HERE N0127340 2771 | * N0127350 2772 | * FETCH DCOM (DISK COMMUNICATIONS AREA) N0127360 2773 | * N0127370 0804 4400 077A 2774 | BSI L RDCOM BRANCH TO FETCH DCOM N0127380 2775 | * N0127390 2776 | * UNPACK MAINLINE NAME AND CONVERT FROM EBCDIC N0127400 2777 | * TO NAME CODE N0127410 2778 | * N0127420 0806 6500 0FB0 2779 | LDX L1 @SBFR SUPV BUFFER ADDRESS TO XR1 N0127430 0808 62FA 2780 | LDX 2 -6 CHAR COUNT + 1 TO XR2 N0127440 0809 C103 2781 | LD 1 3 FETCH FIRST WORD OF NAME N0127450 080A 1888 2782 | SRT 8 SHIFT TO EXTENTION N0127460 080B 7006 2783 | MDX XQ020 CONVERT RIGHT HALF ONLY N0127470 080C C103 2784 | XQ010 LD 1 3 FETCH NEXT WORD OF NAME N0127480 080D 1890 2785 | SRT 16 SHIFT TO EXTENTION N0127490 080E 1810 2786 | SRA 16 CLEAR ACCUMULATOR N0127500 080F 1088 2787 | SLT 8 SHIFT LEFT HALF TO ACC N0127510 0810 D600 0857 2788 | STO L2 XQ900+5 STORE TO UNPACKED BUFFER N0127520 0812 1810 2789 | XQ020 SRA 16 CLEAR ACCUMULATOR N0127530 0813 1088 2790 | SLT 8 SHIFT RIGHT HALF TO ACC N0127540 0814 D600 0858 2791 | STO L2 XQ900+6 STORE TO UNPACKED BUFFER N0127550 0816 7101 2792 | MDX 1 1 INCREMENT SUPV BUFFER ADDR N0127560 0817 7202 2793 | MDX 2 2 INCR CHAR COUNT, SKIP IF 0 N0127570 0818 70F3 2794 | MDX XQ010 BR TO UNPACK NEXT WORD N0127580 2795 | * N0127590 0819 6600 0852 2796 | LDX L2 XQ900 UNPACKED BUFFER ADDR TO XR2 N0127600 081B 4400 078B 2797 | BSI L LABCK BR TO CONVERSION SUBROUTINE N0127610 081D 7003 2798 | MDX XQ025 BRANCH ON NORMAL RETURN N0127620 2799 | * N0127630 081E 6201 2800 | LDX 2 1 POINT TO ERROR MESSAGE M 26 N0127640 081F 4400 0918 2801 | BSI L XQERR BRANCH TO PRINT THE MESSAGE N0127650 2802 | * N0127660 0821 DC00 069E 2803 | XQ025 STD L NAMEP SAVE NAME IN NAME CODE N0127670 0823 DC00 0E72 2804 | STD L #NAME STORE TO DCOM N0127680 2805 | * N0127690 2806 | * SET #MPSW FOR A CORE MAP WHEN COLUMN 14 = L N0127700 2807 | * N0127710 0825 C400 0FB6 2808 | LD L @SBFR+6 FETCH COLUMNS 13-14 N0127720 0827 902F 2809 | S XQ901 TEST FOR EBCDIC L N0127730 0828 4C20 082C 2810 | BSC L XQ030,Z BR IF COLUMN 14 NOT AN L N0127740 082A C02C 2811 | LD XQ901 FETCH NON-ZERO N0127750 082B 7001 2812 | MDX *+1 BRANCH N0127760 082C 1810 2813 | XQ030 SRA 16 CLEAR ACCUMULATOR N0127770 082D D400 0E7A 2814 | STO L #MPSW STORE TO CORE MAP SWITCH N0127780 2815 | * N0127790 2816 | * FETCH NO. OF LOCAL,NOCAL,FILES AND G2250 RCDS N0127800 2817 | * N0127810 082F C400 0FB7 2818 | LD L @SBFR+7 FETCH COLUMNS 15-16 2-1 N0127820 0831 E400 0858 2819 | AND L XQ902 MASK OUT ALL BUT NUMBER 2-1 N0127830 0833 A025 2820 | XQ040 M XQ903 MULTIPLY BY TEN 2-1 N0127840 0834 1090 2821 | SLT 16 SHIFT PRODUCT TO ACC 2-1 N0127850 0835 D400 06A3 2822 | STO L NORCD SAVE N0127860 0837 C400 0FB8 2823 | LD L @SBFR+8 FETCH COLUMNS 17-18 N0127870 0839 1808 2824 | SRA 8 RIGHT JUSTIFY N0127880 083A E01D 2825 | AND XQ902 MASK OUT ALL BUT NUMBER N0127890 083B 8400 06A3 2826 | A L NORCD ADD TENS DIGIT N0127900 083D D400 06A3 2827 | STO L NORCD SAVE NO. OF SUPV CTRL RCDS N0127910 083F D400 06A5 2828 | STO L JOBXQ NON ZERO NO EQUATS ALLOW2-4 N0127920 2829 | * N0127930 2830 | * DETERMINE DESIRED DISK ROUTINE N0127940 2831 | * N0127950 0841 62FB 2832 | LDX 2 -5 N0127960 0842 C400 0FB9 2833 | XQ050 LD L @SBFR+9 FETCH COLUMNS 19-20 N0127970 0844 9600 085F 2834 | S L2 XQ905+5 SUBTRACT EBCDIC CODE N0127980 0846 4C18 084D 2835 | BSC L XQ060,+- BRANCH IF ZERO N0127990 0848 7201 2836 | MDX 2 1 INCREMENT XR2, SKIP IF ZERO N0128000 0849 70F8 2837 | MDX XQ050 BRANCH TO TRY AGAIN N0128010 084A 6203 2838 | LDX 2 3 POINT TO ERROR MESSAGE M 29 N0128020 084B 4400 0918 2839 | BSI L XQERR BRANCH TO PRINT THE MESSAGE N0128030 084D C600 0864 2840 | XQ060 LD L2 XQ906+5 FETCH CODE N0128040 084F D400 0012 2841 | STO L $DREQ SAVE DISK ROUTINE CODE N0128050 0851 7015 2842 | MDX XQ070 N0128060 2843 | * N0128070 2844 | * CONSTANTS AND WORK AREA N0128080 2845 | * N0128090 0852 2846 | XQ900 BSS 5 5 CHAR NAME IN EBCDIC N0128100 0857 40D3 2847 | XQ901 EBC . L. EBCDIC L N0128110 0858 000F 2848 | XQ902 DC /000F MASK N0128120 0859 000A 2849 | XQ903 DC 10 CONSTANT TEN N0128130 085A 4040 2850 | XQ905 EBC . . EBCDIC BLANK N0128140 085B F040 2851 | EBC .0 . EBCDIC ZERO N0128150 085C F140 2852 | EBC .1 . EBCDIC ONE N0128160 085D D540 2853 | EBC .N . EBCDIC N N0128170 085E E940 2854 | EBC .Z . EBCDIC Z N0128180 085F FFFF 2855 | XQ906 DC -1 DISKZ CODE N0128190 0860 0000 2856 | DC +0 DISK1 CODE N0128200 0861 0000 2857 | DC +0 DISK1 CODE N0128210 0862 0001 2858 | DC +1 DISKN CODE N0128220 0863 FFFF 2859 | DC -1 DISKZ CODE N0128230 0864 0000 2860 | XQ910 DC *-* ID OF PROGRAM CARTRIDGE N0128240 0865 005D 2861 | XQ911 DC /005D EBCDIC RIGHT PARENTHESIS N0128250 0866 0040 2862 | XQ912 DC /0040 EBCDIC BLANK N0128260 2863 | * N0128270 2864 | * FETCH AND CONVERT CARTRIDGE ID N0128280 2865 | * N0128290 0867 61FA 2866 | XQ070 LDX 1 -6 N0128300 0868 62FE 2867 | LDX 2 -2 N0128310 0869 6304 2868 | LDX 3 4 CHARACTER COUNT TO XR3 N0128320 086A 10A0 2869 | XQ075 SLT 32 CLEAR ACC AND EXT N0128330 086B C600 0FBC 2870 | LD L2 @SBFR+12 FETCH TWO CHAR OF CART ID N0128340 086D 1888 2871 | SRT 8 SEPARATE N0128350 086E 1008 2872 | SLA 8 *THE CHARACTERS N0128360 086F 18C8 2873 | RTE 8 *AND STORE TO N0128370 0870 DD00 0912 2874 | STD L1 XQ962+6 *CHARACTER STORAGE AREA N0128380 0872 90F3 2875 | S XQ912 TEST FOR AND N0128390 0873 4818 2876 | BSC +- *SKIP IF NOT A BLANK N0128400 0874 73FF 2877 | MDX 3 -1 DECREMENT CHARACTER COUNT N0128410 0875 1090 2878 | SLT 16 FETCH NEXT CHARACTER N0128420 0876 90EF 2879 | S XQ912 TEST FOR AND N0128430 0877 4818 2880 | BSC +- *SKIP IF NOT A BLANK N0128440 0878 73FF 2881 | MDX 3 -1 DECR CHAR CNT, SKIP IF ZERO N0128450 0879 7001 2882 | MDX *+1 N0128460 087A 700A 2883 | MDX XQ090 BR TO SET CARTRIDGE ID ZERO N0128470 087B 7102 2884 | MDX 1 2 INCREMENT CHARACTER COUNT N0128480 087C 7201 2885 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0128490 087D 70EC 2886 | MDX XQ075 BR TO SEPERATE NEXT WORD N0128500 2887 | * N0128510 087E 73FD 2888 | MDX 3 -3 DECR CHAR CNT, SK IF 1-2-3 N0128520 087F 7003 2889 | MDX XQ085 N0128530 2890 | * N0128540 0880 6202 2891 | XQ080 LDX 2 2 POINT TO ERROR MESSAGE M 27 N0128550 0881 4400 0918 2892 | BSI L XQERR BRANCH TO PRINT THE MESSAGE N0128560 2893 | * N0128570 0883 4400 08ED 2894 | XQ085 BSI L XQ600 BR TO CONVERT ID TO BIN 2-2 N0128580 0885 D0DE 2895 | XQ090 STO XQ910 STORE BINARY CART ID 2-2 N0128590 2896 | * 2-2 N0128600 0886 4C30 088C 2897 | BSC L XQ100,Z- BRANCH IF CART ID GIVEN 2-2 N0128610 0888 C400 007A 2898 | LD L $WSDR FETCH SYS W. S. DR NO. 2-2 N0128620 088A D046 2899 | STO XQ300+1 SAVE 2-2 N0128630 088B 7016 2900 | MDX XQ140 BR TO STORE TO COMMA 2-2 N0128640 2901 | * 2-2 N0128650 088C 61FB 2902 | XQ100 LDX 1 -5 CART ID COUNT TO XR1 2-2 N0128660 088D C500 0EAA 2903 | XQ110 LD L1 #CIDN+5 FETCH AN ID FROM DCOM 2-2 N0128670 088F 4C08 0896 2904 | BSC L XQ120,+ BRANCH IF ID BLANK 2-2 N0128680 0891 90D2 2905 | S XQ910 SUBTRACT PROG CART ID 2-2 N0128690 0892 4C18 089E 2906 | BSC L XQ130,+- BRANCH IF IDS ARE EQUAL 2-2 N0128700 0894 7101 2907 | MDX 1 1 INCR ID CNT, SK IF ZERO 2-2 N0128710 0895 70F7 2908 | MDX XQ110 BRANCH TO FETCH NEXT ID 2-2 N0128720 2909 | * 2-2 N0128730 0896 C000 2910 | XQ120 LD * SET 2-2 N0128740 0897 D400 0034 2911 | STO L $NDUP NO-DUP AND 2-2 N0128750 0899 D400 0035 2912 | STO L $NXEQ NO-EXECUTION INDICATORS 2-2 N0128760 089B 6204 2913 | LDX 2 4 POINT TO ERROR MSG M 31 2-2 N0128770 089C 4400 0918 2914 | BSI L XQERR BRANCH TO PRINT THE MSG 2-2 N0128780 2915 | * 2-2 N0128790 089E 7105 2916 | XQ130 MDX 1 5 SET XR1 POSITIVE 2-2 N0128800 089F 1000 2917 | NOP 2-2 N0128810 08A0 6930 2918 | STX 1 XQ300+1 PLACE 2-2 N0128820 08A1 C02F 2919 | LD XQ300+1 *DRIVE CODE 2-2 N0128830 08A2 100C 2920 | XQ140 SLA 12 *IN BITS 1 - 3 2-2 N0128840 08A3 D400 0077 2921 | STO L $DCDE *AND STORE TO COMMA 2-2 N0128850 2922 | * 2-2 N0128860 08A5 C400 0FBC 2923 | LD L @SBFR+12 FETCH COLUMN 26 2-2 N0128870 08A7 1008 2924 | SLA 8 SHIFT OUT LEFT HALF 2-2 N0128880 08A8 1808 2925 | SRA 8 AND RETURN 2-2 N0128890 08A9 F0BC 2926 | EOR XQ912 TEST FOR AND 2-2 N0128900 08AA 4C18 08AD 2927 | BSC L XQ150,+- BR IF COLUMN 26 BLANK 2-2 N0128910 08AC C0B5 2928 | LD XQ906+3 SET 2-2 N0128920 08AD D400 0E8D 2929 | XQ150 STO L #LOSW *LOCALS-CALL-LOCALS SW 2 2 N0128930 2930 | * 2-3 N0128940 2931 | * SET SPECIAL ILS SWITCH 2-3 N0128950 2932 | * 2-3 N0128960 08AF C400 0FBD 2933 | LD L @SBFR+13 FETCH COLUMNS 27 AND 28 2-3 N0128970 08B1 F0B4 2934 | EOR XQ912 TEST FOR BLNK IN COL 28 2-3 N0128980 08B2 1008 2935 | SLA 8 SHIFT OUT COLUMN 27 2-3 N0128990 08B3 4C18 08B6 2936 | BSC L XQ160,+- BR IF COLUMN 28 BLANK 2-3 N0129000 08B5 C0AC 2937 | LD XQ906+3 FETCH CONSTANT ONE 2-3 N0129010 08B6 D400 0E8E 2938 | XQ160 STO L #X3SW SET SPECIAL ILS SWITCH 2-3 N0129020 2939 | * N0129030 08B8 1810 2940 | SRA 16 CLEAR THE ACCUMULATOR N0129040 08B9 D400 0E79 2941 | STO L #LCNT SET LOCAL INDICATOR, N0129050 08BB D400 0E7D 2942 | STO L #NCNT *NOCAL INDICATOR, N0129060 08BD D400 0E75 2943 | STO L #FCNT *FILES INDICATOR, N0129070 08BF D400 0E86 2944 | STO L #DCSW *DUP-CALL-SWITCH AND N0129080 08C1 D400 0E8C 2945 | STO L #GCNT **G2250 COUNT OFF 2G2 N0129090 2946 | * N0129100 2947 | * WRITE THE NEW DCOM TO DISK N0129110 2948 | * N0129120 08C3 4400 0782 2949 | XQ200 BSI L WDCOM BRANCH TO WRITE DCOM N0129130 2950 | * N0129140 2951 | * TEST THE MAINLINE NAME N0129150 2952 | * N0129160 08C5 CC00 069E 2953 | LDD L NAMEP FETCH MAINLINE NAME N0129170 08C7 4C20 08D8 2954 | BSC L XQ400,Z BR IF FIRST HALF NON-BLANK N0129180 08C9 1090 2955 | SLT 16 SHIFT SECOND HALF TO ACC N0129190 08CA 4C20 08D8 2956 | BSC L XQ400,Z BR IF SECOND HALF NON-BLANK N0129200 2957 | * N0129210 2958 | * PROGRAM NAME BLANK N0129220 2959 | * PREPARE TO FETCH CORE LOAD BUILDER N0129230 2960 | * N0129240 08CC D400 0007 2961 | STO L $COMN SET COMMON WC ZERO 2-9 N0129245 08CE D400 06A4 2962 | STO L NINDR SET NAME INDICATOR ZERO N0129250 08D0 6600 0000 2963 | XQ300 LDX L2 *-* DRIVE NO. OF W. S. TO XR2 N0129260 08D2 C600 0095 2964 | LD L2 $FPAD FETCH W. S. SECTOR ADDRESS N0129270 08D4 1004 2965 | SLA 4 CONVERT TO BLOCK ADDRESS N0129280 08D5 D400 0010 2966 | STO L $DADR *AND STORE N0129290 08D7 7007 2967 | MDX XQ500 CONTINUE N0129300 2968 | * N0129310 2969 | * PROGRAM NAME NON-BLANK N0129320 2970 | * PREPARE TO FETCH CORE IMAGE LOADER N0129330 2971 | * N0129340 08D8 D400 06A4 2972 | XQ400 STO L NINDR SET NAME INDICATOR NON-ZERO N0129350 08DA 1010 2973 | SLA 16 SET N0129360 08DB D400 0007 2974 | STO L $COMN *LENGTH OF COMMON AND N0129370 08DD D400 0077 2975 | STO L $DCDE *PROG W. S. DRIVE NO. ZERO N0129380 2976 | * N0129390 2977 | * FETCH SUPV PHASE 5 IF SUPV CONTROL RECORDS N0129400 2978 | * N0129410 08DF C400 06A3 2979 | XQ500 LD L NORCD FETCH NO. OF SUPV CTRL RCDS N0129420 08E1 4C08 08E7 2980 | BSC L XQ520,+ BRANCH IF ZERO N0129430 08E3 6500 0566 2981 | LDX L1 SUPV5 XR1 PTS TO SUPV PH 5 SLET N0129440 08E5 4C00 0670 2982 | BSC L RA600 BRANCH TO FETCH PHASE 5 N0129450 2983 | * N0129460 08E7 C400 06A4 2984 | XQ520 LD L NINDR FETCH NAME INDICATOR N0129470 08E9 4C20 0697 2985 | BSC L RA740,Z BRANCH IF NAME NON-BLANK N0129480 08EB 4C00 06A0 2986 | BSC L RA760 BRANCH IF NAME BLANK N0129490 2987 | * N0129500 2988 | *************************************************** N0129510 2989 | * N0129520 2990 | * CONVERT CARTRIDGE ID TO BINARY N0129530 2991 | * N0129540 08ED 0000 2992 | XQ600 DC 0 ENTRY/RETURN ADDRESS N0129550 08EE 10A0 2993 | SLT 32 CLEAR N0129560 08EF D81A 2994 | STD XQ960 *TEMPORARY SUM N0129570 08F0 63FC 2995 | LDX 3 -4 XR3 = CHARACTER COUNT N0129580 08F1 C700 0910 2996 | XQ620 LD L3 XQ962+4 FETCH A CHARACTER N0129590 08F3 9020 2997 | S XQ966 SUBTRACT EBCDIC BLANK N0129600 08F4 4C18 08FF 2998 | BSC L XQ640,+- BRANCH IF BLANK N0129610 08F6 801D 2999 | A XQ966 RESET N0129620 08F7 901D 3000 | S XQ967 TEST FOR ALPHABETIC/NUMERIC N0129630 08F8 4C10 08FF 3001 | BSC L XQ640,- SKIP IF NUMERIC N0129640 08FA 801B 3002 | A XQ968 CONVERT ALPHA TO BINARY N0129650 08FB 901B 3003 | S XQ969 TEST FOR AND N0129660 08FC 4C30 0880 3004 | BSC L XQ080,Z- *BRANCH IF GREATER THAN 'F' N0129670 08FE 8018 3005 | A XQ969 RESET N0129680 08FF A700 0914 3006 | XQ640 M L3 XQ964+4 MULTIPLY BY POWER OF 16 N0129690 0901 8808 3007 | AD XQ960 ADD PREVIOUS SUM N0129700 0902 D807 3008 | STD XQ960 SAVE NEW SUM N0129710 0903 7301 3009 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0129720 0904 70EC 3010 | MDX XQ620 BR TO FETCH NEXT CHARACTER N0129730 0905 1090 3011 | SLT 16 SHIFT SUM TO ACCUMULATOR N0129740 0906 4C08 0880 3012 | BSC L XQ080,+ BRANCH IF ILLEGAL N0129750 0908 4C80 08ED 3013 | BSC I XQ600 RETURN N0129760 3014 | * N0129770 3015 | * CONSTANTS AND WORK AREAS N0129780 3016 | * N0129790 090A 3017 | XQ960 BSS E 2 32 BIT TEMPORARY SUM N0129800 090C 3018 | XQ962 BSS 4 4 CHARACTER CHARTIDGE ID N0129810 0910 1000 3019 | XQ964 DC /1000 THIRD POWER OF 16 N0129820 0911 0100 3020 | DC /0100 SECOND POWER OF 16 N0129830 0912 0010 3021 | DC /0010 FIRST POWER OF 16 N0129840 0913 0001 3022 | DC /0001 ZERO POWER OF 16 N0129850 0914 0040 3023 | XQ966 DC /0040 EBCDIC BLANK N0129860 0915 00F0 3024 | XQ967 DC /00F0 ALPHA/NUMERIC TEST MASK N0129870 0916 0039 3025 | XQ968 DC /0039 ALPHA TO BINARY MASK N0129880 0917 000F 3026 | XQ969 DC /000F MAXIMUM ALLOWABLE CHARACTER N0129890 3027 | * N0129900 3028 | *************************************************** N0129910 3029 | * N0129920 3030 | * PRINT THE ERROR MESSAGE N0129930 3031 | * N0129940 0918 0000 3032 | XQERR DC 0 ENTRY N0129950 0919 C000 3033 | LD * SET N0129960 091A D400 0035 3034 | STO L $NXEQ *NON-EXECUTE INDR ON N0129970 091C C600 0921 3035 | LD L2 XQ980-1 FETCH ADDR OF MESSAGE N0129980 091E 4400 06CD 3036 | BSI L RA850 BRANCH TO PRINT THE MESSAGE N0129990 0920 4C00 05C4 3037 | BSC L RA220 BRANCH TO READ NEXT RECORD N0130000 3038 | * N0130010 3039 | * ERROR MESSAGES N0130020 3040 | * N0130030 0922 0926 3041 | XQ980 DC XQ986 ADDRESS OF MESSAGE M 26 N0130040 0923 0930 3042 | DC XQ987 ADDRESS OF MESSAGE M 27 N0130050 0924 093E 3043 | DC XQ989 ADDRESS OF MESSAGE M 29 N0130060 0925 0951 3044 | DC XQ991 ADDRESS OF MESSAGE M 31 2-2 N0130070 3045 | * N0130080 0926 0009 3046 | XQ986 DC XQ987-* WORD COUNT N0130090 0927 D440 F2F6 40C9 D3D3 3047 | EBC .M 26 ILLEGAL NAME. N0130100 C5C7 C1D3 40D5 C1D4 | C540 | 0930 000D 3048 | XQ987 DC XQ989-* WORD COUNT N0130110 0931 D440 F2F7 40C9 D3D3 3049 | EBC .M 27 ILLEGAL CARTRIDGE ID. N0130120 C5C7 C1D3 40C3 C1D9 | E3D9 C9C4 C7C5 40C9 | C440 | 093E 0012 3050 | XQ989 DC XQ991-* WORD COUNT N0130130 093F D440 F2F9 40C9 D3D3 3051 | EBC .M 29 ILLEGAL DISK ROUTINE REQUESTED. N0130140 C5C7 C1D3 40C4 C9E2 | D240 D9D6 E4E3 C9D5 | C540 D9C5 D8E4 C5E2 | E3C5 C440 | 0951 0008 3052 | XQ991 DC XQ992-* WORD COUNT N0130150 0952 D440 F3F1 40D9 C5D8 3053 | EBC .M 31 REQUESTED W.S. DR NOT AVAIL. N0130160 E4C5 E2E3 C5C4 40E6 | 095A 3054 | XQ992 BSS 0 N0130170 3055 | * N0130180 3056 | * N0130190 095A 3057 | BSS @PROC+2*@SCTR-*-1 PATCH AREA N0130200 3058 | * N0130210 3059 | * N0130220 0A7F 0000 3060 | XQ999 DC 0 END OF PHASE 4 - XEQ PROC N0130230 SUPV PHASE 5 - SUPV CTRL RCD PROC 3062 | *************************************************** N0130250 3063 | *STATUS - VERSION 2, MODIFICATION 10 N0130260 3064 | * * N0130270 3065 | *FUNCTION/OPERATION - * N0130280 3066 | * * READ, PRINT AND PROCESS SUPERVISOR CONTROL * N0130290 3067 | * RECORDS AS FOLLOWS - * N0130300 3068 | * * LOCAL CONVERT EACH MAINLINE AND * N0130310 3069 | * SUBROUTINE NAME TO NAMECODE AND * N0130320 3070 | * STORE TO THE SCRA. * N0130330 3071 | * * NOCAL CONVERT EACH MAINLINE AND * N0130340 3072 | * SUBROUTINE NAME TO NAMECODE AND * N0130350 3073 | * STORE TO THE SCRA. * N0130360 3074 | * * FILES CONVERT EACH FILE NAME TO * N0130370 3075 | * NAMECODE AND EACH FILE NUMBER * N0130380 3076 | * AND CARTRIDGE ID TO BINARY AND * N0130390 3077 | * STORE TO THE SCRA. * N0130400 3078 | * * G2250 CONVERT THE MAINLINE NAME TO * N0130410 3079 | * NAMECODE AND STORE IT AND THE * N0130420 3080 | * REQUESTED SUBROUTINE NAMES TO * N0130430 3081 | * THE SCRA. * N0130440 3082 | * * EQUAT CONVERT SUBROUTINE NAMES TO 2-4* N0130450 3083 | * NAMECODE AND STORE TO THE 2-4* N0130460 3084 | * SCRA. 2-4* N0130470 3085 | * * N0130480 3086 | *ENTRY POINTS - * N0130490 3087 | * PROGRAM START - LF000 * N0130500 3088 | * * N0130510 3089 | *INPUT - * N0130520 3090 | * * SUPERVISOR CONTROL RECORDS ARE READ FROM * N0130530 3091 | * THE PRINCIPAL INPUT DEVICE. * N0130540 3092 | * * *LOCALMLNME,SUBR1,SUBR2,...,SUBRN * N0130550 3093 | * * *NOCALMLNME,SUBR1,SUBR2,...,SUBRN * N0130560 3094 | * * *FILES(NO1,NM1,CID1),...,(NON,NMN,CIDN) * N0130570 3095 | * * *G2250MLNME X X X X X * N0130580 3096 | * * *EQUAT(SUBR1,SUBR2),..,(SUBRM,SURBN) 2-4* N0130590 3097 | * #ECNT 2-4* N0130600 3098 | * * N0130610 3099 | *OUTPUT - * N0130620 3100 | * THE SUPERVISOR CONTROL RECORDS ARE PRINTED * N0130630 3101 | * FROM THE PRINCIPAL PRINT DEVICE. * N0130640 3102 | * * N0130650 3103 | *EXTERNAL REFERENCES - * N0130660 3104 | * * IN COMMA - * N0130670 3105 | * $DBSY * N0130680 3106 | * $GCOM * N0130690 3107 | * $IBSY * N0130700 3108 | * $NXEQ * N0130710 3109 | * $PHSE * N0130720 3110 | * * IN DCOM - * N0130730 3111 | * #FCNT * N0130740 3112 | * #GCNT * N0130750 3113 | * #LCNT * N0130760 3114 | * #NCNT * N0130770 3115 | * #SCRA * N0130780 3116 | * * IN MCRA - * N0130790 3117 | * LABCK * N0130800 3118 | * NINDR * N0130810 3119 | * NORCD * N0130820 3120 | * RA220 * N0130830 3121 | * RA740 * N0130840 3122 | * RA760 * N0130850 3123 | * RA850 * N0130860 3124 | * SBADR * N0130870 3125 | * WDCOM * N0130880 3126 | * * SUBROUTINES - * N0130890 3127 | * CONVT PRINCIPAL INPUT DEVICE CONVERSION * N0130900 3128 | * SUBROUTINE. * N0130910 3129 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0130920 3130 | * INPUT PRINCIPAL INPUT DEVICE SUBROUTINE. * N0130930 3131 | * * N0130940 3132 | *EXITS - * N0130950 3133 | * * NORMAL - * N0130960 3134 | * * FETCH THE CORE LOAD BUILDER TO EXECUTE * N0130970 3135 | * THE PROGRAM IN WORKING STORAGE IF THE * N0130980 3136 | * PROGRAM NAME IS BLANK. * N0130990 3137 | * * FETCH THE CORE IMAGE LOADER WITH A CALL * N0131000 3138 | * LINK TO EXECUTE THE NAMED PROGRAM IN * N0131010 3139 | * THE USER AREA. * N0131020 3140 | * * BRANCH TO FETCH THE MCRA IF 2-4* N0131030 3141 | * PROCESSING *EQUAT RECORDS. 2-4* N0131040 3142 | * * ERROR - * N0131050 3143 | * * BRANCH TO THE MCRA (PHASE 1) TO READ * N0131060 3144 | * THE NEXT RECORD AFTER PRINTING THE * N0131070 3145 | * ERROR MESSAGE. (SEE NOTES.) * N0131080 3146 | * * // CONTROL RECORD DETECTED RESULTS 2-8* N0131090 3147 | * IN A BRANCH TO MCRA AND ERROR MSG 14 2-8* N0131100 3148 | * IS PRINTED 2-8* N0131110 3149 | * * N0131120 3150 | *TABLES/WORK AREAS - * N0131130 3151 | * * @SBFR AN 80 WORD BUFFER INTO WHICH SUPER- * N0131140 3152 | * VISOR CONTROL RECORDS ARE READ. * N0131150 3153 | * * PBUFR A 40 WORD BUFFER FROM WHICH A * N0131160 3154 | * PACKED EBCDIC SUPERVISOR CONTROL * N0131170 3155 | * RECORD IS PRINTED. * N0131180 3156 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0131190 3157 | * COMMUNICATION AREA (DCOM) I/O. * N0131200 3158 | * * SCRAB A 640 WORD BUFFER USED TO BUILD AND * N0131210 3159 | * WRITE 2 SECTORS OF THE SCRA. * N0131220 3160 | * (EQUIVALENT TO 'BUFFR-320'). * N0131230 3161 | * * N0131240 3162 | *ATTRIBUTES - * N0131250 3163 | * * ABSOLUTE. * N0131260 3164 | * * REUSABLE. * N0131270 3165 | * * N0131280 3166 | *NOTES - * N0131290 3167 | * * THE ERROR MESSAGES PRINTED FROM PHASE 5 ARE-* N0131300 3168 | * * M 21 ABOVE RECORD NOT A SUPERVISOR * N0131310 3169 | * CONTROL RECORD * N0131320 3170 | * * M 22 SUPERVISOR CONTROL RECORDS * N0131330 3171 | * INCORRECTLY ORDERED * N0131340 3172 | * * M 23 INCORRECT CONTINUATION * N0131350 3173 | * * M 24 ILLEGAL CHARACTER IN RECORD * N0131360 3174 | * * M 25 ILLEGAL FILE NUMBER * N0131370 3175 | * * M 26 ILLEGAL NAME * N0131380 3176 | * * M 27 ILLEGAL CARTRIDGE ID * N0131390 3177 | * * M 28 SCRA BUFFER OVERFLOW * N0131400 3178 | * * M 30 INVALID CHAR IN G2250 OPTION COLUMN* N0131410 3179 | * * N0131420 3180 | *************************************************** N0131430 SUPV PHASE 5 - SUPV CTRL RCD PROC 07FE 3182 | ORG @PROC-2 PHASE 5 I/O AREA ADDRESS N0131450 3183 | * N0131460 *SBRKMET 72 3184 | *SUP PHASE 5 - SUPV CONTROL REC PROCESSING V2M04 N0131470 07FE 03EA 3185 | DC LF999-* WORD COUNT N0131480 07FF 0072 3186 | DC @SCRP PHASE ID N0131490 SUPV PHASE 5 - SUPV CTRL RCD PROC 0800 6172 3188 | LF000 LDX 1 @SCRP SET N0131510 0801 6D00 0078 3189 | STX L1 $PHSE *SUPERVISOR PHASE 5 INDR N0131520 0803 1000 3190 | NOP A WAIT MAY BE PATCHED HERE N0131530 0804 6700 0879 3191 | LDX L3 X35 SET XR3 TO POINT AT 2-4 N0131540 3192 | * *PHASE 5 COMMON AREA 2-4 N0131550 3193 | * N0131560 3194 | * INITIALIZE N0131570 3195 | * N0131580 0806 1810 3196 | SRA 16 SET TYPE N0131590 0807 D072 3197 | STO TYPE2 *OF LAST RECORD ZERO N0131600 0808 C400 0EAF 3198 | LD L #SCRA SET THE SECTOR ADDRESSES OF N0131610 080A D070 3199 | STO ASCRA *LOCALS, N0131620 080B 805D 3200 | A LF903+1 N0131630 080C D06F 3201 | STO ASCRA+1 *NOCALS, N0131640 080D 805B 3202 | A LF903+1 N0131650 080E D06E 3203 | STO ASCRA+2 *FILES, N0131660 080F 8059 3204 | A LF903+1 N0131670 0810 D06D 3205 | STO ASCRA+3 *G2250 AND N0131680 0811 8056 3206 | A LF903 2-4 N0131690 0812 D06C 3207 | STO ASCRA+4 *EQUAT AREAS OF SCRA 2-4 N0131700 3208 | * N0131710 3209 | * READ AND PRINT A RECORD N0131720 3210 | * N0131730 0813 4400 0B50 3211 | LF120 BSI L RR000 N0131740 3212 | * N0131750 3213 | * DETERMINE TYPE OF SUPERVISOR CONTROL RECORD N0131760 3214 | * N0131770 0815 4400 0ABD 3215 | LF130 BSI L DT000 N0131780 3216 | * N0131790 0817 C061 3217 | LD TYPE1 IF THIS RECORD OF SAME TYPE N0131800 0818 9061 3218 | S TYPE2 *AS LAST RECORD BRANCH TO N0131810 0819 4D98 0862 3219 | BSC I1 LF902-1,+- *PROCESS THE RECORD N0131820 3220 | * N0131830 081B 4400 0BBF 3221 | BSI L WR000 BRANCH TO WRITE THE SCRA N0131840 3222 | * N0131850 081D C580 085C 3223 | LD I1 LF900-1 FETCH INDICATOR N0131860 081F 4C20 0851 3224 | BSC L LF240,Z BRANCH IF INDICATOR ON N0131870 3225 | * N0131880 0821 C046 3226 | LD LF903 FETCH NON-ZERO N0131890 0822 D580 085C 3227 | STO I1 LF900-1 SET INDICATOR ON N0131900 0824 C054 3228 | LD TYPE1 SET TYPE OF N0131910 0825 D054 3229 | STO TYPE2 *LAST RECORD N0131920 0826 C500 087A 3230 | LD L1 ASCRA-1 FETCH THE SECTOR ADDRESS N0131930 0828 1890 3231 | SRT 16 *AND SHIFT TO EXTENSION N0131940 0829 C500 0872 3232 | LD L1 LF905-1 FETCH THE WORD COUNT 2-4 N0131950 082B DC00 0BEA 3233 | STD L SCRAB-2 *AND STORE TO SCRA I/O AREA N0131960 082D 4D80 0862 3234 | BSC I1 LF902-1 BRANCH TO PROCESS RECORD N0131970 3235 | * N0131980 3236 | * PREPARE TO READ NEXT SUPV CTRL RECORD N0131990 3237 | * N0132000 082F C052 3238 | LF140 LD WDCNT INCREMENT N0132010 0830 D400 0B93 3239 | STO L LWDCT SAVE ADDR OF LAST WORD CNT N0132020 0832 8480 0882 3240 | A I WDCNT *ADDRESS N0132030 0834 D04D 3241 | STO WDCNT *OF WORD COUNT N0132040 0835 7401 0AEC 3242 | MDX L BFCNT,1 INCREMENT BUFFER COUNT N0132050 0837 1000 3243 | NOP N0132060 0838 70DA 3244 | MDX LF120 BRANCH TO READ NEXT RECORD N0132070 3245 | * N0132080 3246 | * CLEAR THE SECTORS OF TYPES NOT SPECIFIED N0132090 3247 | * N0132100 0839 61FC 3248 | LF200 LDX 1 -4 TYPE COUNT TO XR1 2G2 N0132110 083A C580 0861 3249 | LD I1 LF900+4 FETCH INDICATOR 2G2 N0132120 083C 4C20 0847 3250 | BSC L LF220,Z BRANCH IF INDICATOR SET N0132130 083E C500 087F 3251 | LD L1 ASCRA+4 FETCH THE SECTOR ADDR 2G2 N0132140 0840 1890 3252 | SRT 16 *AND SHIFT TO EXTENSION N0132150 0841 C500 0877 3253 | LD L1 LF905+4 FETCH THE WORD COUNT 2-4 N0132160 0843 DC00 0BEA 3254 | STD L SCRAB-2 *AND STORE TO SCRA I/O AREA N0132170 0845 4400 0BBF 3255 | BSI L WR000 BRANCH TO CLEAR DISK N0132180 0847 7101 3256 | LF220 MDX 1 1 INCR TYPE CNT, SKIP IF ZERO N0132190 0848 70F1 3257 | MDX LF200+1 BRANCH TO TEST NEXT TYPE N0132200 3258 | * N0132210 3259 | * FETCH AND BRANCH TO CIL OR CLB N0132220 3260 | * N0132230 0849 4400 0782 3261 | BSI L WDCOM BRANCH TO WRITE DCOM N0132240 084B C400 06A4 3262 | LD L NINDR FETCH NAME INDICATOR N0132250 084D 4C20 0697 3263 | BSC L RA740,Z BRANCH IF NAME NON-BLANK N0132260 084F 4C00 06A0 3264 | BSC L RA760 BRANCH IF NAME BLANK N0132270 3265 | * N0132280 0851 6202 3266 | LF240 LDX 2 2 POINT TO ERROR MESSAGE M 22 N0132290 0852 4000 3267 | BSI LFERR BRANCH TO PRINT THE MESSAGE N0132300 3268 | * N0132310 3269 | * PRINT THE ERROR MESSAGE N0132320 3270 | * N0132330 0853 0000 3271 | LFERR DC 0 ENTRY N0132340 0854 C600 0869 3272 | LD L2 LF904-1 FETCH ADDR OF ERROR MESSAGE N0132350 0856 4400 06CD 3273 | BSI L RA850 BRANCH TO PRINT THE MESSAGE N0132360 0858 C00F 3274 | LD LF903 SET N0132370 0859 D400 0035 3275 | STO L $NXEQ *NON-EXECUTE SWITCH ON N0132380 085B 4C00 05C4 3276 | BSC L RA220 BRANCH TO READ NEXT RECORD N0132390 3277 | * N0132400 3278 | * CONSTANTS AND WORK AREA N0132410 3279 | * N0132420 085D 0E79 3280 | LF900 DC #LCNT ADDRESS OF LOCAL INDICATOR N0132430 085E 0E7D 3281 | DC #NCNT ADDRESS OF NOCAL INDICATOR N0132440 085F 0E75 3282 | DC #FCNT ADDRESS OF FILES INDICATOR N0132450 0860 0E8C 3283 | DC #GCNT ADDRESS OF G2250 INDR 2G2 N0132460 0861 0878 3284 | DC LF906 ADDRESS OF EQUAT INDR 2-4 N0132470 0862 7001 3285 | LF901 DC /7001 PRINT FUNCTION CODE N0132480 0863 0921 3286 | LF902 DC LC000 LOCAL-NOCAL PROCESSING ADDR N0132490 0864 0921 3287 | DC LC000 LOCAL-NOCAL PROCESSING ADDR N0132500 0865 0953 3288 | DC FR000 FILES PROCESSING ADDRESS N0132510 0866 0A02 3289 | DC GR000 G2250 PROCESSING ADDR 2G2 N0132520 0867 0A66 3290 | DC EQ000 EQUAT PROCESSING ADDR 2-4 N0132530 0868 0001 3291 | LF903 DC 1 CONSTANT ONE 2-4 N0132540 0869 0002 3292 | DC 2 CONSTANT TWO 2-4 N0132550 086A 0884 3293 | LF904 DC LF910 N0132560 086B 089E 3294 | DC LF920 N0132570 086C 08B9 3295 | DC LF930 N0132580 086D 08C8 3296 | DC LF940 N0132590 086E 08D9 3297 | DC LF950 N0132600 086F 08E6 3298 | DC LF960 N0132610 0870 08F0 3299 | DC LF970 N0132620 0871 08FE 3300 | DC LF980 N0132630 0872 090C 3301 | DC LF990 2G2 N0132640 0873 0280 3302 | LF905 DC 2*@SCTR LOCAL BUFFER WORD COUNT 2-4 N0132650 0874 0280 3303 | DC 2*@SCTR NOCAL BUFFER WORD COUNT 2-4 N0132660 0875 0280 3304 | DC 2*@SCTR FILES BUFFER WORD COUNT 2-4 N0132670 0876 0140 3305 | DC @SCTR G2250 BUFFER WORD COUNT 2-4 N0132680 0877 0140 3306 | DC @SCTR EQUAT BUFFER WORD COUNT2-10 N0132690 0878 0000 3307 | LF906 DC *-* EQUAT INDICATOR 2-4 N0132700 3308 | * N0132710 0879 3309 | X35 EQU * XR3 USED FOR SHORT INSTR2-4 N0132720 0879 0000 3310 | TYPE1 DC *-* TYPE CODE OF THIS RECORD N0132730 087A 0000 3311 | TYPE2 DC *-* TYPE CODE OF LAST RECORD N0132740 3312 | * 0 = NONE N0132750 3313 | * 1 = LOCAL N0132760 3314 | * 2 = NOCAL N0132770 3315 | * 3 = FILES N0132780 3316 | * 4 = G2250 2G2 N0132790 3317 | * 5 = EQUAT 2-4 N0132800 087B 0000 3318 | ASCRA DC *-* SCTR ADDR OF LOCAL SCRA N0132810 087C 0000 3319 | DC *-* SCTR ADDR OF NOCAL SCRA N0132820 087D 0000 3320 | DC *-* SCTR ADDR OF FILES SCRA N0132830 087E 0000 3321 | DC *-* SCTR ADDR OF G2250 SCTR 2G2 N0132840 087F 0000 3322 | DC *-* SCTR ADDR OF EQUAT SCRA 2-4 N0132850 0880 3323 | BSS E 0 N0132860 0880 0000 3324 | NAMEX DC *-* NAME IN NAME CODE N0132870 0881 0000 3325 | DC *-* *OR BINARY NUMBER N0132880 0882 0000 3326 | WDCNT DC *-* ADDRESS OF WORD COUNT N0132890 0883 0000 3327 | COLSW DC *-* COLUMN SWITCH- N0132900 3328 | * - = BLANK ENDED NAME N0132910 3329 | * 0 = FIRST COLUMN BLANK N0132920 3330 | * 1 = COMMA ENDED NAME N0132930 3331 | * 2 = RT PAREN ENDED NAME N0132940 3332 | * N0132950 3333 | * ERROR MESSAGES N0132960 3334 | * N0132970 0884 0019 3335 | LF910 DC LF920-* WORD COUNT N0132980 0885 D440 F2F1 40C1 C2D6 3336 | EBC .M 21 ABOVE RECORD NOT A SUPERVISOR. N0132990 E5C5 40D9 C5C3 D6D9 | C440 D5D6 E340 C140 | E2E4 D7C5 D9E5 C9E2 | D6D9 | 0896 40C3 D6D5 E3D9 D6D3 3337 | EBC . CONTROL RECORD. N0133000 40D9 C5C3 D6D9 C440 | 089E 001A 3338 | LF920 DC LF930-* WORD COUNT N0133010 089F D440 F2F2 40E2 E4D7 3339 | EBC .M 22 SUPERVISOR CONTROL RECORDS IN. N0133020 C5D9 E5C9 E2D6 D940 | C3D6 D5E3 D9D6 D340 | D9C5 C3D6 D9C4 E240 | C9D5 | 08B0 C3D6 D9D9 C5C3 E3D3 3340 | EBC .CORRECTLY ORDERED. N0133030 E840 D6D9 C4C5 D9C5 | C440 | 08B9 000E 3341 | LF930 DC LF940-* WORD COUNT N0133040 08BA D440 F2F3 40C9 D5C3 3342 | EBC .M 23 INCORRECT CONTINUATION. N0133050 D6D9 D9C5 C3E3 40C3 | D6D5 E3C9 D5E4 C1E3 | C9D6 D540 | 08C8 0010 3343 | LF940 DC LF950-* WORD COUNT N0133060 08C9 D440 F2F4 40C9 D3D3 3344 | EBC .M 24 ILLEGAL CHARACTER IN RECORD. N0133070 C5C7 C1D3 40C3 C8C1 | D9C1 C3E3 C5D9 40C9 | D540 D9C5 C3D6 D9C4 | 08D9 000C 3345 | LF950 DC LF960-* WORD COUNT N0133080 08DA D440 F2F5 40C9 D3D3 3346 | EBC .M 25 ILLEGAL FILE NUMBER. N0133090 C5C7 C1D3 40C6 C9D3 | C540 D5E4 D4C2 C5D9 | 08E6 0009 3347 | LF960 DC LF970-* WORD COUNT N0133100 08E7 D440 F2F6 40C9 D3D3 3348 | EBC .M 26 ILLEGAL NAME. N0133110 C5C7 C1D3 40D5 C1D4 | C540 | 08F0 000D 3349 | LF970 DC LF980-* WORD COUNT N0133120 08F1 D440 F2F7 40C9 D3D3 3350 | EBC .M 27 ILLEGAL CARTRIDGE ID. N0133130 C5C7 C1D3 40C3 C1D9 | E3D9 C9C4 C7C5 40C9 | C440 | 08FE 000D 3351 | LF980 DC LF990-* WORD COUNT N0133140 08FF D440 F2F8 40E2 C3D9 3352 | EBC .M 28 SCRA BUFFER OVERFLOW. N0133150 C140 C2E4 C6C6 C5D9 | 40D6 E5C5 D9C6 D3D6 | E640 | 090C 0014 3353 | LF990 DC LF995-* WORD COUNT N0133160 090D D440 F3F0 40C9 D5E5 3354 | EBC .M 30 INVALID CHAR IN G2250 OPTION . N0133170 C1D3 C9C4 40C3 C8C1 | D940 C9D5 40C7 F2F2 | F5F0 40D6 D7E3 C9D6 | D540 | 091E C3D6 D3E4 D4D5 3355 | EBC .COLUMN. N0133180 0921 3356 | LF995 BSS 0 N0133190 SUPV PHASE 5 - SUPV CTRL RCD PROC 3358 | * N0133210 3359 | * PROCESS LOCAL AND NOCAL RECORDS N0133220 3360 | * N0133230 0921 C030 3361 | LC000 LD LC900 INITIALIZE THE WORD N0133240 0922 D480 0882 3362 | STO I WDCNT *COUNT TO ONE N0133250 3363 | * N0133260 3364 | * INSPECT THE CONTENTS OF COLUMN 7 N0133270 3365 | * N0133280 0924 61B6 3366 | LDX 1 -74 POINT XR1 TO COLUMN 7 N0133290 0925 C500 1000 3367 | LD L1 @SBFR+80 FETCH COLUMN 7 N0133300 0927 907B 3368 | S FR902 TEST FOR AND N0133310 0928 4C20 0930 3369 | BSC L LC040,Z *BRANCH IF NOT A COMMA N0133320 3370 | * N0133330 3371 | * MAINLINE NAME NOT GIVEN N0133340 3372 | * N0133350 092A 10A0 3373 | SLT 32 SET MAINLINE N0133360 092B DB07 3374 | STD 3 NAMEX-X35 *NAME BLANK N0133370 092C C825 3375 | LDD LC900 SET EXT SW TO STORE 2 WORDS N0133380 092D 4400 0AEA 3376 | BSI L FB000 BR TO STORE NAME TO BUFFER N0133390 092F 7101 3377 | MDX 1 1 INCREMENT THE COLUMN COUNT N0133400 3378 | * N0133410 3379 | * MAINLINE NAME GIVEN N0133420 3380 | * N0133430 0930 4400 0B0C 3381 | LC040 BSI L FN000 BRANCH TO FETCH THE NAME N0133440 0932 7400 0883 3382 | MDX L COLSW,0 SK IF 1ST COL OF NAME BLANK N0133450 0934 7003 3383 | MDX LC080 N0133460 3384 | * N0133470 3385 | * FIRST CHARACTER OF NAME BLANK N0133480 3386 | * N0133490 0935 6204 3387 | LC060 LDX 2 4 POINT TO ERROR MESSAGE M 24 N0133500 0936 4400 0853 3388 | BSI L LFERR BRANCH TO PRINT THE MESSAGE N0133510 3389 | * N0133520 3390 | * STORE THE NAME TO THE SCRA I/O BUFFER N0133530 3391 | * N0133540 0938 C819 3392 | LC080 LDD LC900 SET EXT SW TO STORE 2 WORDS N0133550 0939 4400 0AEA 3393 | BSI L FB000 BRANCH TO STORE THE NAME N0133560 3394 | * N0133570 093B C30A 3395 | LD 3 COLSW-X35 FETCH THE COLUMN SWITCH N0133580 093C 4C08 082F 3396 | BSC L LF140,+ BRANCH IF NEXT COLUMN BLANK N0133590 093E 7101 3397 | MDX 1 1 INCR COL CNT, SKIP IF ZERO N0133600 093F 700C 3398 | MDX LC160 N0133610 3399 | * N0133620 3400 | * RECORD IS CONTINUED, READ CONTINUATION RECORD N0133630 3401 | * N0133640 0940 4400 0B50 3402 | LC120 BSI L RR000 BRANCH TO READ A RECORD N0133650 0942 4400 0ABD 3403 | BSI L DT000 BR TO DETERMINE TYPE OF RCD N0133660 0944 61B6 3404 | LDX 1 -74 POINT XR1 TO COLUMN 7 N0133670 0945 C300 3405 | LD 3 TYPE1-X35 IF THIS RECORD OF SAME TYPE N0133680 0946 9301 3406 | S 3 TYPE2-X35 *AS LAST RECORD BRANCH N0133690 0947 4C18 094C 3407 | BSC L LC160,+- *TO PROCESS THE RECORD N0133700 3408 | * N0133710 3409 | * THE RECORD JUST READ WAS NOT A CONTINUATION N0133720 3410 | * N0133730 0949 6203 3411 | LC140 LDX 2 3 POINT TO ERROR MESSAGE M 23 N0133740 094A 4400 0853 3412 | BSI L LFERR BRANCH TO PRINT THE MESSAGE N0133750 3413 | * N0133760 3414 | * TEST FOR END OF RECORD N0133770 3415 | * N0133780 094C C500 1000 3416 | LC160 LD L1 @SBFR+80 FETCH THE NEXT CHARACTER N0133790 094E 9053 3417 | S FR901 TEST FOR AND N0133800 094F 4C18 0940 3418 | BSC L LC120,+- *BRANCH IF BLANK N0133810 3419 | * N0133820 3420 | * FETCH A SUBROUTINE NAME N0133830 3421 | * N0133840 0951 70DE 3422 | LC180 MDX LC040 GO FETCH A MAME 2-8 N0133850 3423 | * N0133860 3424 | * CONSTANTS AND WORK AREA N0133870 3425 | * N0133880 0952 0001 3426 | LC900 DC 1 CONSTANT ONE N0133890 SUPV PHASE 5 - SUPV CTRL RCD PROC 3428 | * N0133930 3429 | * PROCESS FILES RECORDS N0133940 3430 | * N0133950 0953 C04D 3431 | FR000 LD FR900 INITIALIZE THE WORD N0133960 0954 D480 0882 3432 | STO I WDCNT *COUNT TO ONE N0133970 0956 61B6 3433 | FR010 LDX 1 -74 POINT XR1 TO COL 7 2-7 N0133980 0957 C500 1000 3434 | FR012 LD L1 @SBFR+80 FETCH CHAR 2-10 N0133990 0959 904A 3435 | S FR903 TEST FOR LEFT BRACKET 2-7 N0134000 095A 7101 3436 | MDX 1 1 INCREMENT COL COUNT 2-7 N0134010 095B 7003 3437 | MDX FR015 CONTINUE IF NOT ZERO 2-8 N0134020 095C 6203 3438 | FR069 LDX 2 3 POINT TO ERROR MSG M23 2-8 N0134030 095D 4400 0853 3439 | FR070 BSI L LFERR PRINT ERR MSG AND EXIT 2-8 N0134040 095F 4C18 0963 3440 | FR015 BSC L FR020,+- BR IF LEFT BRACKET 2-7 N0134050 0961 6201 3441 | LDX 2 1 POINT TO ERROR MSG M21 2-7 N0134060 0962 70FA 3442 | MDX FR070 BR TO PRINT ERROR MSG 2-7 N0134070 3443 | * N0134080 3444 | * FETCH AND STORE FILE NUMBER (DECIMAL) N0134090 3445 | * N0134100 0963 4400 09A5 3446 | FR020 BSI L FR100 BR TO FETCH AND CONVERT NO. N0134110 0965 10A0 3447 | SLT 32 SET EXT SW TO STORE 1 WORD N0134120 0966 4400 0AEA 3448 | BSI L FB000 BR TO STORE NO. TO I/O BUFR N0134130 3449 | * N0134140 3450 | * FETCH AND STORE FILE NAME N0134150 3451 | * N0134160 0968 C500 1000 3452 | LD L1 @SBFR+80 FETCH THE NEXT CHARACTER N0134170 096A 9038 3453 | S FR902 TEST FOR AND N0134180 096B 4C20 0973 3454 | BSC L FR030,Z *BRANCH IF NOT A COMMA N0134190 096D 10A0 3455 | SLT 32 SET FILE NAME N0134200 096E DB07 3456 | STD 3 NAMEX-X35 *BLANK N0134210 096F C831 3457 | LDD FR900 SET EXT SW TO STORE 2 WORDS N0134220 0970 4400 0AEA 3458 | BSI L FB000 BRANCH TO STORE FILE NAME N0134230 0972 700F 3459 | MDX FR040 BRANCH TO FETCH CART ID N0134240 3460 | * N0134250 0973 4400 0B0C 3461 | FR030 BSI L FN000 BR TO FETCH & CONVERT NAME N0134260 0975 C30A 3462 | LD 3 COLSW-X35 FETCH THE COLUMN SWITCH N0134270 0976 4C08 0935 3463 | BSC L LC060,+ BRANCH IF BLANK FORE OR AFT N0134280 0978 1890 3464 | SRT 16 SET EXT SW TO STORE 2 WORDS N0134290 0979 4400 0AEA 3465 | BSI L FB000 BRANCH TO STORE FILE NAME N0134300 3466 | * N0134310 3467 | * TEST FOR THE PRESENCE OF CARTRIDGE ID N0134320 3468 | * N0134330 097B C30A 3469 | LD 3 COLSW-X35 FETCH THE COLUMN SWITCH N0134340 097C 9024 3470 | S FR900 TEST FOR AND BRANCH N0134350 097D 4C08 0982 3471 | BSC L FR040,+ *IF NOT A RIGHT PARENTHESIS N0134360 097F 10A0 3472 | SLT 32 SET N0134370 0980 DB07 3473 | STD 3 NAMEX-X35 *CARTRIDGE ID BLANK N0134380 0981 7003 3474 | MDX FR060 BRANCH TO STORE CART ID N0134390 3475 | * N0134400 3476 | * FETCH AND STORE CARTRIDGE ID (HEXADECIMAL) N0134410 3477 | * N0134420 0982 4400 09CD 3478 | FR040 BSI L FR200 BRANCH TO FETCH CART ID N0134430 0984 10A0 3479 | SLT 32 SET EXT SW TO STORE 1 WORD N0134440 0985 4400 0AEA 3480 | FR060 BSI L FB000 BRANCH TO STORE CART ID N0134450 3481 | * N0134460 3482 | * TEST FOR END OF RECORD N0134470 3483 | * N0134480 0987 7101 3484 | MDX 1 1 INCR COL CNT, SKIP IF ZERO N0134490 0988 7001 3485 | MDX *+1 N0134500 0989 700E 3486 | MDX FR080 BR TO READ NEXT RCD N0134510 098A C500 1000 3487 | LD L1 @SBFR+80 FETCH THE NEXT CHARACTER N0134520 098C 9015 3488 | S FR901 TEST FOR AND N0134530 098D 4C18 0998 3489 | BSC L FR080,+- *BRANCH IF BLANK N0134540 098F 7101 3490 | MDX 1 1 INCR COL CNT, SKIP IF ZERO N0134550 0990 7001 3491 | MDX *+1 N0134560 0991 7006 3492 | MDX FR080 BR TO READ CONTINUATION RCD N0134570 0992 C500 1000 3493 | LD L1 @SBFR+80 FETCH THE NEXT CHARACTER N0134580 0994 900D 3494 | S FR901 TEST FOR AND N0134590 0995 4C18 0998 3495 | BSC L FR080,+- *BRANCH IF BLANK N0134600 0997 70BF 3496 | MDX FR012 BR TO GET NEXT FILE 2-8 N0134610 3497 | * N0134620 3498 | * RECORD IS CONTINUED, READ CONTINUATION RECORD N0134630 3499 | * N0134640 0998 4400 0B50 3500 | FR080 BSI L RR000 BRANCH TO READ A RECORD N0134650 099A 4400 0ABD 3501 | BSI L DT000 BR TO DETERMINE TYPE OF RCD N0134660 099C C300 3502 | LD 3 TYPE1-X35 IF THIS RECORD OF SAME TYPE N0134670 099D 9301 3503 | S 3 TYPE2-X35 *AS LAST RECORD BRANCH N0134680 099E 4C20 0815 3504 | BSC L LF130,Z BR TO PROCESS NEW RCD 2-7 N0134690 09A0 70B5 3505 | MDX FR010 BR TO PROCESS CONT RCD 2-7 N0134700 3506 | * N0134710 3507 | * CONSTANTS AND WORK AREA N0134720 3508 | * N0134730 09A1 0001 3509 | FR900 DC 1 CONSTANT ONE N0134740 09A2 0040 3510 | FR901 DC /0040 EBCDIC BLANK N0134750 09A3 006B 3511 | FR902 DC /006B EBCDIC COMMA N0134760 09A4 004D 3512 | FR903 DC /004D EBCDIC LEFT PARENTHESIS 2-7 N0134770 SUPV PHASE 5 - SUPV CTRL RCD PROC 3514 | * N0134790 3515 | * FETCH AND CONVERT FILE NUMBER N0134800 3516 | * N0134810 09A5 0000 3517 | FR100 DC *-* ENTRY/RETURN ADDRESS N0134820 3518 | * N0134830 09A6 C500 1000 3519 | LD L1 @SBFR+80 FETCH FIRST CHARACTER N0134840 09A8 9021 3520 | S FR910 MASK AND N0134850 09A9 4C28 09B7 3521 | BSC L FR170,Z+ *BRANCH IF NOT NUMERIC N0134860 09AB D307 3522 | STO 3 NAMEX-X35 INITIALIZE SUM N0134870 3523 | * N0134880 09AC 62FB 3524 | LDX 2 -5 CHARACTER COUNT TO XR2 N0134890 3525 | * N0134900 09AD 7101 3526 | FR120 MDX 1 1 INCR COL CNT, SKIP IF ZERO N0134910 09AE 7001 3527 | MDX FR160 N0134920 3528 | * N0134930 09AF 70AC 3529 | FR140 MDX FR069 BR TO PRINT ERROR MSG 2-7 N0134940 3530 | * N0134950 09B0 C500 1000 3531 | FR160 LD L1 @SBFR+80 FETCH THE NEXT CHARACTER N0134960 09B2 90F0 3532 | S FR902 TEST FOR AND N0134970 09B3 4C18 09C5 3533 | BSC L FR190,+- *BRANCH IF A COMMA N0134980 3534 | * N0134990 09B5 7201 3535 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO N0135000 09B6 7002 3536 | MDX FR180 BRANCH TO FETCH NEXT CHAR N0135010 3537 | * N0135020 09B7 6205 3538 | FR170 LDX 2 5 POINT TO ERROR MESSAGE M 25 N0135030 09B8 70A4 3539 | FR171 MDX FR070 BR TO PRINT ERROR MSG 2-7 N0135040 09B9 C500 1000 3540 | FR180 LD L1 @SBFR+80 FETCH THE CHARACTER AGAIN N0135050 09BB 900E 3541 | S FR910 MASK AND N0135060 09BC 4C28 09B7 3542 | BSC L FR170,Z+ *BRANCH IF NOT NUMERIC N0135070 09BE D00D 3543 | STO FR913 SAVE THE NUMBER N0135080 09BF C307 3544 | LD 3 NAMEX-X35 FETCH THE SUM N0135090 09C0 A00A 3545 | M FR912 MULTIPLY BY TEN N0135100 09C1 1090 3546 | SLT 16 SHIFT PRODUCT TO ACC N0135110 09C2 8009 3547 | A FR913 ADD THE NUMBER N0135120 09C3 D307 3548 | STO 3 NAMEX-X35 SAVE THE NEW SUM N0135130 09C4 70E8 3549 | MDX FR120 N0135140 3550 | * N0135150 09C5 7101 3551 | FR190 MDX 1 1 POINT TO COLUMN AFTER COMMA N0135160 09C6 7001 3552 | MDX *+1 SKIP N0135170 09C7 70E7 3553 | MDX FR140 BRANCH IF RECORD OVER-RUN N0135180 3554 | * N0135190 09C8 4C80 09A5 3555 | BSC I FR100 RETURN N0135200 3556 | * N0135210 3557 | * CONSTANTS AND WORK AREA N0135220 3558 | * N0135230 09CA 00F0 3559 | FR910 DC /00F0 NUMERIC MASK N0135240 09CB 000A 3560 | FR912 DC 10 CONSTANT TEN N0135250 09CC 0000 3561 | FR913 DC *-* TEMPORARY STORAGE N0135260 SUPV PHASE 5 - SUPV CTRL RCD PROC 3563 | * N0135280 3564 | * FETCH AND CONVERT CARTRIDGE ID N0135290 3565 | * N0135300 09CD 0000 3566 | FR200 DC *-* ENTRY/RETURN ADDRESS N0135310 3567 | * N0135320 09CE 1010 3568 | SLA 16 INITAILIZE N0135330 09CF D307 3569 | STO 3 NAMEX-X35 *THE CARTRIDGE ID N0135340 09D0 62FB 3570 | LDX 2 -5 CHARACTER COUNT TO XR2 N0135350 3571 | * N0135360 09D1 7101 3572 | FR210 MDX 1 1 INCR COL CNT, SKIP IF ZERO N0135370 09D2 7001 3573 | MDX FR230 N0135380 3574 | * N0135390 09D3 70DB 3575 | FR220 MDX FR140 BR TO PRINT ERROR MSG 2-7 N0135400 3576 | * N0135410 09D4 C500 1000 3577 | FR230 LD L1 @SBFR+80 FETCH A CHARACTER N0135420 09D6 9025 3578 | S FR920 TEST FOR AND BRANCH N0135430 09D7 4C18 09F7 3579 | BSC L FR270,+- *IF A RIGHT PARENTHESIS N0135440 3580 | * N0135450 09D9 7201 3581 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO N0135460 09DA 7002 3582 | MDX FR250 N0135470 3583 | * N0135480 09DB 6207 3584 | FR240 LDX 2 7 POINT TO ERROR MESSAGE M 27 N0135490 09DC 70DB 3585 | MDX FR171 BR TO PRINT ERROR MSG 2-7 N0135500 3586 | * N0135510 09DD C500 1000 3587 | FR250 LD L1 @SBFR+80 FETCH THE CHARACTER AGAIN N0135520 09DF 90EA 3588 | S FR910 TEST FOR AND N0135530 09E0 4C10 09F0 3589 | BSC L FR260,- *BRANCH IF NUMERIC N0135540 09E2 100C 3590 | SLA 12 CLEAR BIT N0135550 09E3 180C 3591 | SRA 12 *POSITIONS 0-11 N0135560 09E4 8018 3592 | A FR922 CONVERT TO ALPHABETIC N0135570 09E5 1884 3593 | SRT 4 SAVE BITS 12-15 N0135580 09E6 C500 1000 3594 | LD L1 @SBFR+80 FETCH CHARATER 2-10 N0135591 09E8 9017 3595 | S FR925 COMPARE TO EBC F 2-10 N0135592 09E9 4830 3596 | BSC -Z SKIP IF LESS OR EQUAL 2-10 N0135593 09EA 70F0 3597 | MDX FR240 BR TO PR ERR MSG 2-10 N0135594 09EB 8015 3598 | A FR926 ADD C6-C1 (EBC F AND A)2-10 N0135595 09EC 4828 3599 | BSC +Z SKIP IF IN RANGE 2-10 N0135596 09ED 70ED 3600 | MDX FR240 BR TO PR ERR MSG 2-10 N0135597 09EE 1010 3601 | SLA 16 CLEAR ACC 2-10 N0135598 09EF 1084 3602 | SLT 4 RETURN TO ACCUMULATOR N0135600 09F0 D00E 3603 | FR260 STO FR924 SAVE THE CHARACTER N0135610 09F1 C307 3604 | LD 3 NAMEX-X35 FETCH PREVIOUS SUM N0135620 09F2 A00B 3605 | M FR923 MULTIPLY BY SIXTEEN N0135630 09F3 1090 3606 | SLT 16 SHIFT PRODUCT TO ACC N0135640 09F4 800A 3607 | A FR924 ADD THE CHARACTER N0135650 09F5 D307 3608 | STO 3 NAMEX-X35 SAVE NEW SUM N0135660 09F6 70DA 3609 | MDX FR210 BR TO FETCH NEXT CHARACTER N0135670 3610 | * N0135680 09F7 C307 3611 | FR270 LD 3 NAMEX-X35 FETCH THE CARTRIDGE ID N0135690 09F8 4C28 09DB 3612 | BSC L FR240,Z+ BRANCH IF NEGATIVE N0135700 3613 | * N0135710 09FA 4C80 09CD 3614 | BSC I FR200 RETURN N0135720 3615 | * N0135730 3616 | * CONSTANTS AND WORK AREA N0135740 3617 | * N0135750 09FC 005D 3618 | FR920 DC /005D EBCDIC RIGHT PARENTHESIS N0135760 09FD 0009 3619 | FR922 DC /0009 ALPHABETIC MASK N0135770 09FE 0010 3620 | FR923 DC 16 CONSTANT SIXTEEN N0135780 09FF 0000 3621 | FR924 DC *-* TEMPORARY STORAGE N0135790 0A00 00C6 3622 | FR925 DC /C6 EBCDIC F 2-10 N0135792 0A01 0005 3623 | FR926 DC 5 /C6-/C1 2-10 N0135794 SUPV PHASE 5 - SUPV CTRL RCD PROC 2G2 3625 | * 2G2 N0135810 3626 | * PROCESS G2250 RECORD 2G2 N0135820 3627 | * 2G2 N0135830 0A02 C013 3628 | GR000 LD GR900 INITIALIZE THE WORD 2G2 N0135840 0A03 D480 0882 3629 | STO I WDCNT *COUNT TO ONE 2G2 N0135850 3630 | * 2G2 N0135860 3631 | * INSPECT CONTENTS OF COLUMN 7 2G2 N0135870 3632 | * 2G2 N0135880 0A05 61B6 3633 | LDX 1 -74 2G2 N0135890 0A06 C500 1000 3634 | LD L1 @SBFR+80 FETCH COLUMN 7 2G2 N0135900 0A08 900E 3635 | S GR902 TEST FOR AND 2G2 N0135910 0A09 4C20 0A0E 3636 | BSC L GR010,Z *BRANCH IF NON-BLANK 2G2 N0135920 3637 | * 2G2 N0135930 3638 | * MAINLINE NAME NOT GIVEN 2G2 N0135940 3639 | * 2G2 N0135950 0A0B 10A0 3640 | SLT 32 SET 2G2 N0135960 0A0C DB07 3641 | STD 3 NAMEX-X35 *MAINLINE NAME BLANK 2G2 N0135970 0A0D 7020 3642 | MDX GR020 2G2 N0135980 3643 | * 2G2 N0135990 3644 | * MAINLINE NAME GIVEN 2G2 N0136000 3645 | * 2G2 N0136010 0A0E 4400 0B0C 3646 | GR010 BSI L FN000 FETCH MAINLINE NAME 2G2 N0136020 0A10 7400 0883 3647 | MDX L COLSW,0 SKIP IF COLUMN 1 BLANK 2G2 N0136030 0A12 701B 3648 | MDX GR020 BRANCH TO STORE NAME 2G2 N0136040 0A13 6204 3649 | LDX 2 4 POINT TO ERROR MSG 24 2G2 N0136050 0A14 4400 0853 3650 | BSI L LFERR BRANCH TO PRINT THE MSG 2G2 N0136060 3651 | * 2G2 N0136070 3652 | * CONSTANTS AND WORK AREAS 2G2 N0136080 3653 | * 2G2 N0136090 0A16 0001 3654 | GR900 DC 1 CONSTANT ONE 2G2 N0136100 0A17 0040 3655 | GR902 DC /0040 EBCDIC BLANK 2G2 N0136110 0A18 3656 | BSS E 0 FORCE NEXT LOC EVEN 2G2 N0136120 0A18 070D 6500 3657 | GR905 DN GCOM GSP CONTROL ARRAY 2G2 N0136130 0A1A 070C 8059 3658 | GR906 DN GCHAR ALL CHARACTERS 2G2 N0136140 0A1C 0791 7159 3659 | GR907 DN GUPER UPPER CASE CHARS,NUM,SP 2G2 N0136150 0A1E 0789 7C36 3660 | GR908 DN GSP06 SCISSOR SUBROUTINE 2G2 N0136160 0A20 0095 3661 | GR909 DC /0095 EBCDIC N - BLANK 2G2 N0136170 0A21 00E4 3662 | GR910 DC /00E4 EBCDIC U 2G2 N0136180 0A22 0789 7C35 3663 | GR911 DN GSP05 EBBC PUSH UP SUBROUTINE 2G2 N0136190 0A24 0789 7C72 3664 | GR912 DN GSP12 LEVEL ENTITY SUPPORT 2G2 N0136200 0A26 0789 7C71 3665 | GR913 DN GSP11 INDEX ENTITY SEARCH 2G2 N0136210 3666 | * 2G2 N0136220 3667 | * STORE SUBROUTINE NAME TO SCRA BUFFER 2G2 N0136230 3668 | * 2G2 N0136240 0A28 0000 3669 | GR015 DC 0 ENTRY/RETURN ADDRESS 2G2 N0136250 0A29 DB07 3670 | STD 3 NAMEX-X35 STORE NAME 2G2 N0136260 0A2A 4400 0AEA 3671 | BSI L FB000 BR TO ST TO SCRA BUFFER 2G2 N0136270 0A2C 4C80 0A28 3672 | BSC I GR015 RETURN 2G2 N0136280 3673 | * 2G2 N0136290 3674 | * STORE MAINLINE NAME TO SCRA BUFFER 2G2 N0136300 3675 | * 2G2 N0136310 0A2E C8E7 3676 | GR020 LDD GR900 SET EXT TO STORE 2 WDS 2G2 N0136320 0A2F 4400 0AEA 3677 | BSI L FB000 STORE MAINLINE NAME 2G2 N0136330 0A31 C0E4 3678 | LD GR900 SET 2G2 N0136340 0A32 D400 0063 3679 | STO L $GCOM *GSP INDICATOR 2G2 N0136350 3680 | * 2G2 N0136360 3681 | * STORE GCOM (GSP COMMUNICATIONS SUBR) 2G2 N0136370 3682 | * TO SCRA RECORD 2G2 N0136380 3683 | * 2G2 N0136390 0A34 C8E3 3684 | LDD GR905 FETCH 'GCOM' AND 2G2 N0136400 0A35 40F2 3685 | BSI GR015 *BR TO STORE TO SCRA 2G2 N0136410 3686 | * 2G2 N0136420 3687 | * CHARACTER STROKE SUBROUTINE OPTION 2G2 N0136430 3688 | * 2G2 N0136440 0A36 C400 0FBC 3689 | LD L @SBFR+12 FETCH COLUMN 13 2G2 N0136450 0A38 90E8 3690 | S GR910 TEST FOR AND 2G2 N0136460 0A39 4C18 0A56 3691 | BSC L GR040,+- *BRANCH IF 'U' (GUPER) 2G2 N0136470 3692 | * 2G2 N0136480 0A3B C400 0FBC 3693 | LD L @SBFR+12 FETCH COLUMN 13 2G2 N0136490 0A3D 401A 3694 | BSI GR050 BR TO CK FOR BLANK OR N 2G2 N0136500 0A3E C8DB 3695 | LDD GR906 FETCH 'GCHAR' 2G2 N0136510 0A3F 40E8 3696 | GR025 BSI GR015 BR TO ST NAME TO SCRA 2G2 N0136520 3697 | * 2G2 N0136530 3698 | * LEVEL-CONTROLLED ENTITY DIRECT ENTRY 2G2 N0136540 3699 | * SUBROUTINE OPTION 2G2 N0136550 3700 | * 2G2 N0136560 0A40 C400 0FC4 3701 | LD L @SBFR+20 FETCH COLUMN 21 2G2 N0136570 0A42 4015 3702 | BSI GR050 BR TO CK FOR BLANK OR N 2G2 N0136580 0A43 C8E0 3703 | LDD GR912 FETCH 'GSP12' 2G2 N0136590 0A44 40E3 3704 | BSI GR015 BR TO ST NAME TO SCRA 2G2 N0136600 3705 | * 2G2 N0136610 3706 | * SCISSOR SUBROUTINE OPTION 2G2 N0136620 3707 | * 2G2 N0136630 0A45 C400 0FBE 3708 | LD L @SBFR+14 FETCH COLUMN 15 2G2 N0136640 0A47 4010 3709 | BSI GR050 BR TO CK FOR BLANK OR N 2G2 N0136650 0A48 C8D5 3710 | LDD GR908 FETCH 'GSP06' 2G2 N0136660 0A49 40DE 3711 | BSI GR015 BR TO ST NAME TO SCRA 2G2 N0136670 3712 | * 2G2 N0136680 3713 | * EBBC PUSH UP SUBROUTINE OPTION 2G2 N0136690 3714 | * 2G2 N0136700 0A4A C400 0FC0 3715 | LD L @SBFR+16 FETCH COLUMN 17 2G2 N0136710 0A4C 400B 3716 | BSI GR050 BR TO CK FOR BLANK OR N 2G2 N0136720 0A4D C8D4 3717 | LDD GR911 FETCH 'GSP05' 2G2 N0136730 0A4E 40D9 3718 | BSI GR015 BR TO ST NAME TO SCRA 2G2 N0136740 3719 | * 2G2 N0136750 3720 | * INDEX-CONTROLLED ENTITY SEARCH 2G2 N0136760 3721 | * SUBROUTINE OPTION 2G2 N0136770 3722 | * 2G2 N0136780 0A4F C400 0FC2 3723 | LD L @SBFR+18 FETCH COLUMN 19 2G2 N0136790 0A51 4006 3724 | BSI GR050 BR TO CK FOR BLANK OR N 2G2 N0136800 0A52 C8D3 3725 | LDD GR913 FETCH 'GSP11' 2G2 N0136810 0A53 40D4 3726 | BSI GR015 BR TO ST NAME TO SCRA 2G2 N0136820 3727 | * 2G2 N0136830 0A54 4C00 082F 3728 | BSC L LF140 BR TO FETCH NEXT RECORD 2G2 N0136840 3729 | * 2G2 N0136850 3730 | * UPPER CASE CHARACTERS, NUMERIC AND 2G2 N0136860 3731 | * SPECIAL CHARACTERS SUBROUTINE OPTION 2G2 N0136870 3732 | * 2G2 N0136880 0A56 C8C5 3733 | GR040 LDD GR907 FETCH 'GUPER' 2G2 N0136890 0A57 70E7 3734 | MDX GR025 BR TO STORE NAME 2G2 N0136900 3735 | * 2G2 N0136910 3736 | * CHECK A COLUMN FOR BLANK OR 'N' 2G2 N0136920 3737 | * 2G2 N0136930 0A58 0000 3738 | GR050 DC 0 ENTRY/RETURN ADDRESS 2G2 N0136940 0A59 90BD 3739 | S GR902 TEST FOR AND 2G2 N0136950 0A5A 4C98 0A58 3740 | BSC I GR050,+- *BRANCH IF COLUMN BLANK 2G2 N0136960 0A5C 90C3 3741 | S GR909 TEST FOR AND 2G2 N0136970 0A5D 4C20 0A63 3742 | BSC L GR060,Z *BR IF COLUMN NOT 'N' 2G2 N0136980 0A5F 7402 0A58 3743 | MDX L GR050,2 INCREMENT RETURN ADDR 2G2 N0136990 0A61 4C80 0A58 3744 | BSC I GR050 *AND RETURN 2G2 N0137000 3745 | * 2G2 N0137010 3746 | * INVALID CHARACTER DETECTED IN *G2250 2G2 N0137020 3747 | * OPTION COLUMN 2G2 N0137030 3748 | * 2G2 N0137040 0A63 6209 3749 | GR060 LDX 2 9 POINT TO ERROR MSG M 30 2G2 N0137050 0A64 4400 0853 3750 | BSI L LFERR BRANCH TO PRINT THE MSG 2G2 N0137060 SUPV PHASE 5 - SUPV CTRL RCD PROC 2-4 3752 | * 2-4 N0137080 3753 | * PROCESS EQUAT RECORDS 2-4 N0137090 3754 | * 2-4 N0137100 0A66 C04F 3755 | EQ000 LD EQ900 INITIALIZE 2-4 N0137110 0A67 D480 0882 3756 | STO I WDCNT *THE WORD COUNT TO ONE 2-4 N0137120 0A69 61B6 3757 | EQ010 LDX 1 -74 XR1 POINTS TO COLUMN 7 2-4 N0137130 3758 | * 2-4 N0137140 0A6A C500 1000 3759 | EQ020 LD L1 @SBFR+80 FETCH THE COLUMN 2-4 N0137150 0A6C 904B 3760 | S EQ902 TEST FOR AND 2-4 N0137160 0A6D 4C18 0AB1 3761 | BSC L EQ080,+- BRANCH IF BLANK 2-6 N0137170 0A6F C500 1000 3762 | LD L1 @SBFR+80 FETCH THE COLUMN AGAIN 2-4 N0137180 0A71 9047 3763 | S EQ903 TEST FOR AND BRANCH 2-4 N0137190 0A72 4C20 0AB1 3764 | BSC L EQ080,Z *IF NOT LEFT PAREN 2-4 N0137200 0A74 7101 3765 | MDX 1 1 INCREMENT COL POINTER 2-4 N0137210 0A75 7001 3766 | MDX EQ030 BRANCH TO FETCH NAME 2-4 N0137220 0A76 7038 3767 | MDX EQ070 BR TO PRINT MSG M 23 2-4 N0137230 3768 | * 2-4 N0137240 0A77 C043 3769 | EQ030 LD EQ905 INCREMENT 2-4 N0137250 0A78 803D 3770 | A EQ900 *THE 2-4 N0137260 0A79 D041 3771 | STO EQ905 *NUMBER OF PAIRS 2-4 N0137270 0A7A 9041 3772 | S EQ906 TEST FOR AND BRANCH 2-4 N0137280 0A7B 4C30 0AB3 3773 | BSC L EQ090,Z- *IF GREATER THAN TEN 2-4 N0137290 0A7D 4400 0B0C 3774 | BSI L FN000 FETCH 1ST NAME OF PAIR 2-4 N0137300 0A7F C30A 3775 | LD 3 COLSW-X35 TEST FOR AND 2-4 N0137310 0A80 4C18 0AAF 3776 | BSC L EQ070,+- *BRANCH IF NO NAME 2-4 N0137320 0A82 C833 3777 | LDD EQ900 SET EXT SW TO ST 2 WDS 2-4 N0137330 0A83 4400 0AEA 3778 | BSI L FB000 BRANCH TO STORE NAME 2-4 N0137340 0A85 C30A 3779 | LD 3 COLSW-X35 TEST FOR 2-4 N0137350 0A86 902F 3780 | S EQ900 *AND BRANCH IF NAME 2-4 N0137360 0A87 4C20 0AAF 3781 | BSC L EQ070,Z *NOT FOLLOWED BY COMMA 2-4 N0137370 0A89 7101 3782 | MDX 1 1 INCREMENT COL POINTER 2-4 N0137380 0A8A 7001 3783 | MDX EQ040 BRANCH TO FETCH NAME 2-4 N0137390 0A8B 7023 3784 | MDX EQ070 BR TO PRINT MSG M 23 2-4 N0137400 3785 | * 2-4 N0137410 0A8C 4400 0B0C 3786 | EQ040 BSI L FN000 FETCH 2ND NAME OF PAIR 2-4 N0137420 0A8E C30A 3787 | LD 3 COLSW-X35 TEST FOR AND 2-4 N0137430 0A8F 4C18 0AAF 3788 | BSC L EQ070,+- *BRANCH IF NO NAME 2-4 N0137440 0A91 C824 3789 | LDD EQ900 SET EXT SW TO ST 2 WDS 2-4 N0137450 0A92 4400 0AEA 3790 | BSI L FB000 BRANCH TO STORE NAME 2-4 N0137460 0A94 C30A 3791 | LD 3 COLSW-X35 TEST FOR 2-4 N0137470 0A95 9021 3792 | S EQ901 *AND BRANCH IF NAME NOT 2-4 N0137480 0A96 4C20 0AB1 3793 | BSC L EQ080,Z *FOLLOWED BY RT PAREN 2-4 N0137490 0A98 7101 3794 | MDX 1 1 INCREMENT COL POINTER 2-4 N0137500 0A99 7001 3795 | MDX EQ050 BRANCH TO CONTINUE 2-4 N0137510 0A9A 700C 3796 | MDX EQ060 BR TO FETCH NEXT RECORD 2-4 N0137520 3797 | * 2-4 N0137530 0A9B C500 1000 3798 | EQ050 LD L1 @SBFR+80 FETCH THE COLUMN 2-4 N0137540 0A9D 901A 3799 | S EQ902 TEST FOR AND 2-4 N0137550 0A9E 4C18 0AA7 3800 | BSC L EQ060,+- *BRANCH IF BLANK 2-4 N0137560 0AA0 C500 1000 3801 | LD L1 @SBFR+80 FETCH THE COLUMN AGAIN 2-4 N0137570 0AA2 9017 3802 | S EQ904 TEST FOR AND 2-4 N0137580 0AA3 4C20 0AB1 3803 | BSC L EQ080,Z *BRANCH IF NOT COMMA 2-4 N0137590 0AA5 7101 3804 | MDX 1 1 INCREMENT COL POINTER 2-4 N0137600 0AA6 70C3 3805 | MDX EQ020 BR TO PROC NEXT PAIR 2-4 N0137610 3806 | * 2-4 N0137620 0AA7 4400 0B50 3807 | EQ060 BSI L RR000 BRANCH TO READ A RECORD 2-4 N0137630 0AA9 4400 0ABD 3808 | BSI L DT000 BR TO DETERMINE TYPE 2-4 N0137640 0AAB C300 3809 | LD 3 TYPE1-X35 IF THIS RECORD OF SAME 2-4 N0137650 0AAC 9300 3810 | S 3 TYPE1-X35 *TYPE AS LAST RECORD 2-4 N0137660 0AAD 4C18 0A69 3811 | BSC L EQ010,+- *BRANCH TO PROCESS 2-4 N0137670 3812 | * 2-4 N0137680 3813 | * PRINT 'M 23 INCORRECT CONTINUATION' 2-4 N0137690 3814 | * 2-4 N0137700 0AAF 6203 3815 | EQ070 LDX 2 3 POINT TO ERROR MSG M 23 2-4 N0137710 0AB0 7003 3816 | MDX EQ100 BRANCH TO PRINT THE MSG 2-4 N0137720 3817 | * 2-4 N0137730 3818 | * PRINT 'M 24 ILLEGAL CHARACTER IN RECORD' 2-4 N0137740 3819 | * 2-4 N0137750 0AB1 6204 3820 | EQ080 LDX 2 4 POINT TO ERROR MSG M 24 2-4 N0137760 0AB2 7001 3821 | MDX EQ100 BRANCH TO PRINT THE MSG 2-4 N0137770 3822 | * 2-4 N0137780 3823 | * PRINT 'M 28 SCRA BUFFER OVERFLOW' 2-4 N0137790 3824 | * 2-4 N0137800 0AB3 6208 3825 | EQ090 LDX 2 8 POINT TO ERROR MSG M 28 2-4 N0137810 0AB4 4400 0853 3826 | EQ100 BSI L LFERR BRANCH TO PRINT THE MSG 2-4 N0137820 3827 | * 2-4 N0137830 3828 | * CONSTANTS AND WORK AREAS 2-4 N0137840 3829 | * 2-4 N0137850 0AB6 0001 3830 | EQ900 DC 1 CONSTANT ONE 2-4 N0137860 0AB7 0002 3831 | EQ901 DC 2 CONSTANT TWO 2-4 N0137870 0AB8 0040 3832 | EQ902 DC /0040 EBCDIC BLANK 2-4 N0137880 0AB9 004D 3833 | EQ903 DC /004D EBCDIC LEFT PARENTHESIS 2-4 N0137890 0ABA 006B 3834 | EQ904 DC /006B EBCDIC COMMA 2-4 N0137900 0ABB 0000 3835 | EQ905 DC *-* NUMBER OF PAIRS 2-4 N0137910 0ABC 0019 3836 | EQ906 DC 25 MAXIMUM NUMBER OF PAIRS 2-8 N0137920 SUPV PHASE 5 - SUPV CTRL RCD PROC 3838 | * N0137940 3839 | * DETERMINE TYPE OF SUPERVISOR CONTROL RECORD N0137950 3840 | * N0137960 0ABD 0000 3841 | DT000 DC *-* ENTRY/RETURN ADDRESS N0137970 3842 | * N0137980 0ABE 6101 3843 | LDX 1 1 TYPE COUNT TO XR1 N0137990 0ABF 62F6 3844 | LDX 2 -10 WORD COUNT TO XR2 2-4 N0138000 3845 | * N0138010 0AC0 CC00 0B96 3846 | DT020 LDD L PBUFR FETCH NAME FROM BUFFER N0138020 0AC2 9E00 0AEA 3847 | SD L2 DT900+10 SUBTRACT A SCR NAME 2-4 N0138030 0AC4 4C20 0AC9 3848 | BSC L DT040,Z BR IF FIRST HALF NOT EQUAL N0138040 0AC6 1090 3849 | SLT 16 SHIFT 2ND HALF DIFF TO ACC N0138050 0AC7 4C18 0ACF 3850 | BSC L DT060,+- BR IF SECOND HALF EQUAL N0138060 0AC9 7101 3851 | DT040 MDX 1 1 INCREMENT TYPE COUNT N0138070 0ACA 7202 3852 | MDX 2 2 INCR WORD CNT, SKIP IF ZERO N0138080 0ACB 70F4 3853 | MDX DT020 BRANCH TO TEST NEXT NAME N0138090 3854 | * N0138100 0ACC 6201 3855 | LDX 2 1 POINT TO ERROR MESSAGE M 21 N0138110 0ACD 4400 0853 3856 | DT050 BSI L LFERR BRANCH TO PRINT THE MESSAGE N0138120 3857 | * N0138130 0ACF 6D00 0879 3858 | DT060 STX L1 TYPE1 SAVE THE RECORD TYPE CODE N0138140 0AD1 C400 06A5 3859 | LD L JOBXQ IS EQUAT ALLOWED 2-4 N0138150 0AD3 4C20 0AD8 3860 | BSC L DT080,Z *BR IF NO 2-4 N0138160 0AD5 71FC 3861 | MDX 1 -4 IF TYPE1 IS EQUAT 2-4 N0138170 0AD6 7003 3862 | MDX DT100 *THEN BR TO RETURN 2-4 N0138180 0AD7 7006 3863 | MDX DT200 *OTHERWISE PRINT ERR MSG2-4 N0138190 3864 | * 2-4 N0138200 0AD8 71FC 3865 | DT080 MDX 1 -4 IF TYPE1 IS EQUAT 2-4 N0138210 0AD9 7004 3866 | MDX DT200 *THEN PRINT ERR MSG 2-4 N0138220 3867 | * 2-4 N0138230 0ADA 6580 0879 3868 | DT100 LDX I1 TYPE1 SET TO TYPE 2-4 N0138240 0ADC 4C80 0ABD 3869 | BSC I DT000 RETURN 2-4 N0138250 3870 | * 2-4 N0138260 0ADE 6202 3871 | DT200 LDX 2 2 POINT AT MESSAGE M22 2-4 N0138270 0ADF 70ED 3872 | MDX DT050 2-4 N0138280 3873 | * N0138290 3874 | * CONSTANTS AND WORK AREA N0138300 3875 | * N0138310 0AE0 3876 | BSS E 0 N0138320 0AE0 5CD3 D6C3 3877 | DT900 EBC .*LOC. N0138330 0AE2 5CD5 D6C3 3878 | EBC .*NOC. N0138340 0AE4 5CC6 C9D3 3879 | EBC .*FIL. N0138350 0AE6 5CC7 F2F2 3880 | EBC .*G22. 2G2 N0138360 0AE8 5CC5 D8E4 3881 | EBC .*EQU. 2-4 N0138370 SUPV PHASE 5 - SUPV CTRL RCD PROC 3883 | * N0138390 3884 | * STORE ONE OR TWO WORDS TO THE SCRA I/O BUFFER N0138400 3885 | * N0138410 0AEA 0000 3886 | FB000 DC *-* ENTRY/RETURN ADDRESS N0138420 3887 | * N0138430 0AEB 6600 0000 3888 | LDX L2 *-* BUFFER COUNT TO XR2 N0138440 0AEC 3889 | BFCNT EQU *-1 N0138450 0AED 7201 3890 | MDX 2 1 INCR BUFR CNT, SKIP IF ZERO N0138460 0AEE 7003 3891 | MDX FB040 BRANCH TO STORE WORD N0138470 3892 | * N0138480 3893 | * SCRA BUFFER FILLED N0138490 3894 | * N0138500 0AEF 6208 3895 | FB020 LDX 2 8 POINT TO ERROR MESSAGE M 28 N0138510 0AF0 4400 0853 3896 | BSI L LFERR BRANCH TO PRINT THE MESSAGE N0138520 3897 | * N0138530 3898 | * STORE A WORD N0138540 3899 | * N0138550 0AF2 C307 3900 | FB040 LD 3 NAMEX-X35 STORE A WORD TO N0138560 0AF3 D600 0E6C 3901 | STO L2 SCRAB+640 *THE SCRA I/O BUFFER N0138570 0AF5 C480 0882 3902 | LD I WDCNT INCREMENT N0138580 0AF7 8013 3903 | A FB900 THE N0138590 0AF8 D480 0882 3904 | STO I WDCNT WORD COUNT N0138600 3905 | * N0138610 0AFA 1090 3906 | SLT 16 SHIFT WORD SWITCH TO ACC N0138620 0AFB 4C18 0B08 3907 | BSC L FB060,+- BRANCH IF ONLY ONE WORD N0138630 3908 | * N0138640 3909 | * STORE THE SECOND WORD N0138650 3910 | * N0138660 0AFD 7201 3911 | MDX 2 1 INCR BUFR CNT, SKIP IF ZERO N0138670 0AFE 7001 3912 | MDX *+1 SKIP N0138680 0AFF 70EF 3913 | MDX FB020 BR TO FETCH ERROR MESSAGE N0138690 0B00 C308 3914 | LD 3 NAMEX-X35+1 STORE A WORD TO N0138700 0B01 D600 0E6C 3915 | STO L2 SCRAB+640 *THE SCRA I/O BUFFER N0138710 0B03 C480 0882 3916 | LD I WDCNT INCREMENT N0138720 0B05 8005 3917 | A FB900 THE N0138730 0B06 D480 0882 3918 | STO I WDCNT WORD COUNT N0138740 3919 | * N0138750 0B08 6AE3 3920 | FB060 STX 2 BFCNT SAVE BUFFER COUNT N0138760 0B09 4C80 0AEA 3921 | BSC I FB000 RETURN N0138770 3922 | * N0138780 3923 | * CONSTANTS AND WORK AREA N0138790 3924 | * N0138800 0B0B 0001 3925 | FB900 DC 1 CONSTANT ONE N0138810 SUPV PHASE 5 - SUPV CTRL RCD PROC 3927 | * N0138830 3928 | * FETCH A NAME AND CONVERT TO NAME CODE N0138840 3929 | * N0138850 0B0C 0000 3930 | FN000 DC *-* ENTRY/RETURN ADDRESS N0138860 3931 | * N0138870 3932 | * CLEAR THE NAME AREA N0138880 3933 | * N0138890 0B0D 62FB 3934 | LDX 2 -5 CHARACTER COUNT TO XR2 N0138900 0B0E C03E 3935 | LD FN901 FETCH EBCDIC BLANK N0138910 0B0F D600 0B4D 3936 | FN020 STO L2 FN900+5 STORE TO NAME AREA N0138920 0B11 7201 3937 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO N0138930 0B12 70FC 3938 | MDX FN020 BRANCH TO CLEAR NEXT WORD N0138940 3939 | * N0138950 3940 | * FETCH AND TEST THE FIRST CHARACTER N0138960 3941 | * N0138970 0B13 C500 1000 3942 | LD L1 @SBFR+80 FETCH FIRST CHARACTER N0138980 0B15 9037 3943 | S FN901 TEST FOR AND N0138990 0B16 4C20 0B1C 3944 | BSC L FN040,Z *BRANCH IF NOT BLANK N0139000 0B18 1810 3945 | SRA 16 ZERO INDICATES A N0139010 0B19 D30A 3946 | STO 3 COLSW-X35 *BLANK FIRST COLUMN N0139020 0B1A 4C80 0B0C 3947 | BSC I FN000 RETURN N0139030 3948 | * N0139040 3949 | * STORE THE CHARACTERS N0139050 3950 | * N0139060 0B1C 62FB 3951 | FN040 LDX 2 -5 CHARACTER COUNT TO XR2 N0139070 0B1D C031 3952 | LD FN903 SET UP EXTENSION N0139080 0B1E 1887 3953 | SRT 7 *FOR COLUMN SWITCH N0139090 3954 | * N0139100 0B1F C500 1000 3955 | FN060 LD L1 @SBFR+80 FETCH FIRST CHARACTER N0139110 0B21 D600 0B4D 3956 | STO L2 FN900+5 STORE CHAR TO CONVERT AREA N0139120 0B23 7101 3957 | MDX 1 1 INCR COL CNT, SKIP IF ZERO N0139130 0B24 7001 3958 | MDX *+1 SKIP N0139140 0B25 7014 3959 | MDX FN080 BRANCH IF END OF RECORD N0139150 3960 | * N0139160 0B26 C500 1000 3961 | LD L1 @SBFR+80 FETCH THE CHARACTER N0139170 0B28 9024 3962 | S FN901 TEST FOR AND N0139180 0B29 4C18 0B3A 3963 | BSC L FN080,+- *BRANCH IF A BLANK N0139190 3964 | * N0139200 0B2B C500 1000 3965 | LD L1 @SBFR+80 FETCH THE CHARACTER AGAIN N0139210 0B2D 9020 3966 | S FN902 TEST FOR AND N0139220 0B2E 4C18 0B3D 3967 | BSC L FN100+1,+- *BRANCH IF A COMMA N0139230 3968 | * N0139240 0B30 C500 1000 3969 | LD L1 @SBFR+80 FETCH THE CHARACTER AGAIN N0139250 0B32 901C 3970 | S FN903 TEST FOR AND N0139260 0B33 4C18 0B3C 3971 | BSC L FN100,+- *BRANCH IF A RIGHT PAREN N0139270 3972 | * N0139280 0B35 7201 3973 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO N0139290 0B36 70E8 3974 | MDX FN060 BRANCH TO STORE THE CHAR N0139300 3975 | * N0139310 3976 | * NAME LONGER THAN FIVE CHARACTERS N0139320 3977 | * N0139330 0B37 6206 3978 | FN070 LDX 2 6 POINT TO ERROR MESSAGE M 26 N0139340 0B38 4400 0853 3979 | BSI L LFERR BRANCH TO PRINT THE MESSAGE N0139350 3980 | * N0139360 3981 | * SET SWITCH INDICATING CHARACTER ENDING NAME N0139370 3982 | * N0139380 3983 | * N0139390 0B3A 1090 3984 | FN080 SLT 16 NEGATIVE INDICATES A BLANK N0139400 0B3B 7002 3985 | MDX FN120 N0139410 3986 | * N0139420 0B3C 1081 3987 | FN100 SLT 1 TWO INDICATES A LEFT PAREN N0139430 0B3D 1081 3988 | SLT 1 ONE INDICATES A COMMA N0139440 0B3E D30A 3989 | FN120 STO 3 COLSW-X35 N0139450 3990 | * N0139460 3991 | * CONVERT THE NAME TO NAME CODE N0139470 3992 | * N0139480 0B3F 6600 0B48 3993 | LDX L2 FN900 ADDR OF CHAR BUFFER TO XR2 N0139490 0B41 4400 078B 3994 | BSI L LABCK BRANCH TO CONVERSION SUBR N0139500 0B43 7001 3995 | MDX *+1 SKIP ON NORMAL RETURN N0139510 0B44 70F2 3996 | MDX FN070 BR TO PRINT ERROR MESSAGE N0139520 0B45 DB07 3997 | STD 3 NAMEX-X35 SAVE NAME N0139530 0B46 4C80 0B0C 3998 | BSC I FN000 RETURN N0139540 3999 | * N0139550 4000 | * CONSTANTS AND WORK AREA N0139560 4001 | * N0139570 0B48 4002 | FN900 BSS 5 CHARACTER BUFFER N0139580 0B4D 0040 4003 | FN901 DC /0040 EBCDIC BLANK N0139590 0B4E 006B 4004 | FN902 DC /006B EBCDIC COMMA N0139600 0B4F 005D 4005 | FN903 DC /005D EBCDIC RIGHT PARENTHESIS N0139610 SUPV PHASE 5 - SUPV CTRL RCD PROC 4007 | * N0139630 4008 | * READ AND PRINT A SUPERVISOR CONTROL RECORD N0139640 4009 | * N0139650 0B50 0000 4010 | RR000 DC *-* ENTRY/RETURN ADDRESS N0139660 4011 | * N0139670 0B51 7400 06A3 4012 | MDX L NORCD,0 SKIP IF RECORD COUNT ZERO N0139680 0B53 700A 4013 | MDX RR020 BRANCH TO READ RECORD N0139690 4014 | * N0139700 4015 | * ALL SUPERVISOR CONTROL RECORDS HAVE BEEN READ N0139710 4016 | * N0139720 0B54 4400 0BBF 4017 | BSI L WR000 BR TO WRITE BUFFER TO SCRA N0139730 0B56 C400 0BEB 4018 | LD L SCRAB-1 IF THE SECTOR JUST 2-4 N0139740 0B58 9400 087F 4019 | S L ASCRA+4 *WRITTEN WAS EQUAT 2-4 N0139750 0B5A 4C18 0038 4020 | BSC L $EXIT,+- *BR TO FETCH THE MCRA 2-4 N0139760 0B5C 4C00 0839 4021 | BSC L LF200 RETURN - ALL RCDS PROCESSED N0139770 4022 | * N0139780 4023 | * CLEAR THE SUPERVISOR BUFFER N0139790 4024 | * N0139800 0B5E 6250 4025 | RR020 LDX 2 80 SET THE N0139810 0B5F 6E00 0FAF 4026 | STX L2 @SBFR-1 *WORD COUNT TO EIGHTY N0139820 0B61 1810 4027 | SRA 16 CLEAR THE ACCUMULATOR N0139830 0B62 D600 0FAF 4028 | RR040 STO L2 @SBFR-1 STORE TO SUPERVISOR BUFFER N0139840 0B64 72FF 4029 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO N0139850 0B65 70FC 4030 | MDX RR040 BRANCH TO CLEAR NEXT WORD N0139860 4031 | * N0139870 4032 | * READ A RECORD N0139880 4033 | * N0139890 0B66 C400 06C7 4034 | RR050 LD L SBADR FETCH ADDR OF SUPV BUFFER N0139900 0B68 1890 4035 | SRT 16 SHIFT TO EXTENSION N0139910 0B69 C028 4036 | LD RR901 FETCH READ FUNCTION CODE N0139920 0B6A 4400 0321 4037 | BSI L INPUT BRANCH TO READ A RECORD N0139930 0B6C 7400 0013 4038 | MDX L $IBSY,0 SKIP NEXT IF READ COMPLETE N0139940 0B6E 70FD 4039 | MDX *-3 BR TO TEST READ COMPLETE N0139950 4040 | * N0139960 4041 | * CONVERT THE RECORD TO EBCDIC CODE N0139970 4042 | * N0139980 0B6F C400 06C7 4043 | LD L SBADR FETCH ADDR OF SUPV BUFFER N0139990 0B71 4480 06CA 4044 | BSI I CONVT BR TO CONVERT THE RECORD N0140000 4045 | * N0140010 4046 | * PACK THE BUFFER TO TWO EBCDIC CHARACTERS/WORD N0140020 4047 | * N0140030 0B73 61B0 4048 | LDX 1 -80 UNPACKED WORD COUNT TO XR1 N0140040 0B74 6200 4049 | LDX 2 0 PACKED WORD COUNT TO XR2 N0140050 0B75 C500 1000 4050 | RR060 LD L1 @SBFR+80 FETCH A CHARACTER N0140060 0B77 1008 4051 | SLA 8 SHIFT TO LEFT HALF OF WORD N0140070 0B78 ED00 1001 4052 | OR L1 @SBFR+81 MASK IN RIGHT HALF OF WD N0140080 0B7A D600 0B96 4053 | STO L2 PBUFR STORE TO PACKED BUFFER N0140090 0B7C 7201 4054 | MDX 2 1 INCREMENT PACKED BUFFER CNT N0140100 0B7D 7102 4055 | MDX 1 2 INCR UPKD CNT, SKIP IF ZERO N0140110 0B7E 70F6 4056 | MDX RR060 BR TO PACK NEXT TWO CHAR N0140120 4057 | * N0140130 4058 | * TEST IF RCD STARTS // 2-8 N0140140 4059 | * 2-8 N0140150 0B7F C016 4060 | LD PBUFR TEST IF RCD STARTS // 2-8 N0140160 0B80 903D 4061 | S RR903 2-8 N0140170 0B81 4C20 0B89 4062 | BSC L RR070,Z BRANCH IF NOT 2-8 N0140180 0B83 6C00 0035 4063 | STX L $NXEQ SET NON-XEQ SWITCH ON 2-8 N0140190 0B85 6C00 0034 4064 | STX L $NDUP SET NON-DUP SWITCH ON 2-8 N0140200 0B87 4C00 05BF 4065 | BSC L RA210 BRANCH TO MCRA 2-8 N0140210 4066 | * PRINT THE RECORD N0140220 4067 | * N0140230 0B89 C00A 4068 | RR070 LD PBADR FETCH ADDRESS OF I/O AREA N0140240 0B8A 4400 06CD 4069 | BSI L RA850 BRANCH TO PRINT THE RECORD N0140250 4070 | * N0140260 0B8C 74FF 06A3 4071 | MDX L NORCD,-1 DECREMENT THE NUMBER OF N0140270 0B8E 1000 4072 | NOP *SUPERVISOR CONTROL RECORDS N0140280 0B8F 4C80 0B50 4073 | BSC I RR000 RETURN N0140290 4074 | * N0140300 4075 | * CONSTANTS AND WORK AREA N0140310 4076 | * N0140320 0B91 7001 4077 | RR900 DC /7001 PRINT FUNCTION CODE N0140330 0B92 7002 4078 | RR901 DC /7002 READ FUNCTION CODE N0140340 0B93 0000 4079 | LWDCT DC *-* ADDR OF LAST WORD COUNT N0140360 0B94 4080 | BSS E 0 N0140370 0B94 0B95 4081 | PBADR DC PBUFR-1 ADDRESS OF PACKED BUFFER N0140380 0B95 0028 4082 | DC @PBWC WORD COUNT N0140390 0B96 4083 | PBUFR BSS @PBWC PACKED EBCDIC RECORD BUFFER N0140400 0BBE 6161 4084 | RR903 EBC .//. 2-8 N0140405 SUPV PHASE 5 - SUPV CTRL RCD PROC 4086 | * N0140420 4087 | * WRITE THE SCRA I/O BUFFER TO THE DISK N0140430 4088 | * N0140440 0BBF 0000 4089 | WR000 DC *-* ENTRY/RETURN ADDRESS N0140450 4090 | * N0140460 0BC0 C301 4091 | LD 3 TYPE2-X35 IF LAST RECORD TYPE NOT SET N0140470 0BC1 4C18 0BD3 4092 | BSC L WR040,+- *BRANCH TO CLEAR THE BUFFER N0140480 0BC3 9023 4093 | S WR903 TEST FOR AND N0140490 0BC4 4C10 0BCB 4094 | BSC L WR020,- *BRANCH IF LAST WAS FILES N0140500 4095 | * N0140510 4096 | * WRITE THE BUFFER N0140520 4097 | * N0140530 0BC6 C480 0B93 4098 | LD I LWDCT FETCH LAST WORD COUNT N0140540 0BC8 E81D 4099 | OR WR902 -OR- IN NEGATIVE SIGN BIT N0140550 0BC9 D480 0B93 4100 | STO I LWDCT RESTORE LAST WORD COUNT N0140560 0BCB C019 4101 | WR020 LD WR901 FETCH ADDR OF SCRA BUFFER N0140570 0BCC 1890 4102 | SRT 16 SHIFT TO EXTENSION N0140580 0BCD C016 4103 | LD WR900 FETCH WRITE FUNCTION CODE N0140590 0BCE 4400 00F2 4104 | BSI L DZ000 BRANCH TO DISK WRITE N0140600 0BD0 7400 00EE 4105 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0140610 0BD2 70FD 4106 | MDX *-3 BR TO TEST WRITE COMPLETE N0140620 4107 | * N0140630 4108 | * CLEAR THE SCRA BUFFER N0140640 4109 | * N0140650 0BD3 6600 FD80 4110 | WR040 LDX L2 -640 WORD COUNT TO XR2 N0140660 0BD5 1810 4111 | SRA 16 CLEAR THE ACCUMULATOR N0140670 0BD6 D600 0E6C 4112 | WR060 STO L2 SCRAB+640 STORE THE SCRA BUFFER N0140680 0BD8 7201 4113 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0140690 0BD9 70FC 4114 | MDX WR060 BRANCH TO CLEAR NEXT WORD N0140700 4115 | * N0140710 0BDA 6600 0BEC 4116 | LDX L2 SCRAB INITIALIZE THE ADDRESS OF N0140720 0BDC 6E00 0882 4117 | STX L2 WDCNT *THE WD CNT OF THE BUFFER N0140730 0BDE C0F5 4118 | LD WR040+1 INITIALIZE THE N0140740 0BDF D400 0AEC 4119 | STO L BFCNT *BUFFER COUNT N0140750 0BE1 4C80 0BBF 4120 | WR080 BSC I WR000 RETURN N0140760 4121 | * N0140770 4122 | * CONSTANTS AND WORK AREA N0140780 4123 | * N0140790 0BE4 4124 | BSS E 0 N0140800 0BE4 0001 4125 | WR900 DC /0001 WRITE FUNCTION CODE N0140810 0BE5 0BEA 4126 | WR901 DC SCRAB-2 ADDRESS OF SCRA I/O BUFFER N0140820 0BE6 8000 4127 | WR902 DC /8000 NEGATIVE SIGN BIT N0140830 0BE7 0003 4128 | WR903 DC 3 CONSTANT THREE N0140840 0BEC 4129 | SCRAB EQU BUFFR-@SCTR SUPV CONTROL RECORD BFR N0140850 4130 | * N0140860 4131 | * N0140870 0BE8 4132 | BSS SCRAB-2-*-1 PATCH AREA 2-4 N0140880 4133 | * N0140890 4134 | * N0140900 0BE9 0000 4135 | LF999 DC 0 END OF PHASE 5 - SCRA PROC N0140910 0BEA 4136 | END RA000 N0140920 There were no errors in this assembly Program transfer address = 0500 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN 0E8A 255 1826 #ANDU 0E91 261 1834 2130 2414 2478 2497 2589 #BNDU 0E96 262 1835 2133 2415 2428 2436 2537 2588 #CBSW 0E78 237 1301 #CIAD 0E89 254 #CIBA 0EAA 266 1161 1164 1166 1838 1950 2144 #CIDN 0EA5 265 1141 1642 1837 2140 2610 2903 #CSHN 0EC8 272 1844 2165 #DBCT 0E74 233 1299 #DCOM 0001 190 823 #DCSW 0E86 251 1315 2944 #ECNT 0E8F 260 1330 2632 #ENTY 0E7E 243 1308 #FCNT 0E75 234 1300 2943 3282 #FHOL 0E82 247 1311 #FLET 0EB9 269 1841 2155 #FMAT 0EB4 268 1292 1840 2151 #FPAD 0E9B 263 1836 1943 2137 #FRDR 0E81 246 1310 #FSZE 0E83 248 1312 #GCNT 0E8C 257 1307 2945 3283 #GRPH 0E8B 256 #HDNG 0007 191 813 1464 #IDAD 0000 188 1747 #JBSW 0E77 236 1317 #LCNT 0E79 238 1302 2941 3280 #LOSW 0E8D 258 2929 #MDF1 0E7B 240 1304 #MDF2 0E7C 241 1305 #MPSW 0E7A 239 1303 2814 #NAME 0E72 232 1298 2804 #NCNT 0E7D 242 1306 2942 3281 #PCID 0EA0 264 1814 1823 #PIOD 0E87 252 #PPTR 0E88 253 #RIAD 0002 189 1345 #RP67 0E7F 244 #SCRA 0EAF 267 1839 2148 3198 #SYSC 0E76 235 1796 #TODR 0E80 245 1309 #UHOL 0E84 249 1313 #ULET 0EBE 270 1842 1941 2159 #USZE 0E85 250 1314 #WSCT 0EC3 271 1293 1843 2162 #X3SW 0E8E 259 2938 $1132 007F 183 $1403 0080 184 $ACDE 009F 130 1618 1667 1832 2191 $CH12 0006 131 581 587 744 1859 1866 $CIBA 0005 135 1168 1170 1189 1951 $COMN 0007 132 1248 2961 2974 $CORE 000E 133 1284 1285 1382 $CPTR 007E 182 $CTSW 000F 134 463 477 720 1249 $CYLN 009A 136 1701 1833 $DADR 0010 137 1250 2966 $DBSY 00EE 138 203 345 570 663 797 844 1486 1705 1915 1957 2423 2447 2466 2517 2527 2572 2593 2606 2623 2646 4105 $DCDE 0077 139 2921 2975 $DCYL 00A4 140 1609 1850 2003 2005 $DREQ 0012 141 2841 $DUMP 003F 142 1251 1338 1981 $EXIT 0038 143 2633 4020 $FLSH 0071 144 512 1219 1252 2001 2615 2657 $FPAD 0095 145 1944 2964 $GCOM 0063 146 3679 $GRIN 0064 147 284 $HASH 0014 148 646 649 678 $I420 00E6 153 1343 $IBSY 0013 149 705 1253 4038 $IBT4 00D4 150 296 1970 $IOCT 0032 151 592 1254 $IREQ 002C 152 1277 1620 1623 1978 $KCSW 007C 154 309 454 707 $LAST 0033 155 $LEV0 0008 156 318 $LEV1 0009 157 304 $LEV2 000A 158 1661 1727 $LEV3 000B 159 $LEV4 000C 160 $LEV5 000D 161 1279 $LINK 0039 162 286 288 681 1255 $NDUP 0034 163 622 630 670 1256 2911 4064 $NXEQ 0035 164 615 671 1257 2912 3034 3275 4063 $PBSY 0036 165 584 750 1258 2264 $PGCT 0037 166 1454 $PHSE 0078 167 293 1079 2407 2769 3189 $PRET 0028 168 595 1259 1271 1273 1275 1341 $PST1 0081 169 1260 $PST2 0085 170 1261 1270 $PST3 0089 171 1262 $PST4 008D 172 1263 $SNLT 00EF 173 1266 $STOP 0091 174 1264 1344 $SYSC 00E0 175 1353 1800 $UFDR 007D 176 1174 $UFIO 0079 177 1268 $ULET 002D 178 1942 2417 2598 $WRD1 007B 180 1265 $WSDR 007A 179 1172 2898 $ZEND 01E0 181 204 1959 1960 'ASM0 00CF 226 412 'CCOL 0050 195 732 'CLB0 0078 216 385 'CNVT 009C 223 376 'COB1 0051 228 426 'CPTR 008E 217 397 'CSTR 00D0 198 1959 'CVRT 009D 224 394 'DELT 0070 213 379 2404 2406 'DUPC 0001 209 409 'FOR1 001F 210 415 'HDWC 000A 193 814 816 'INST 000E 691 644 645 646 'JOBP 006F 212 388 1076 1078 'KBCP 0092 218 400 'KBCV 0095 219 391 'MCRA 006E 211 279 292 'MNCR 1000 197 1370 1372 1374 1376 1378 'NMCR 000D 192 281 499 503 504 506 510 516 'PBWC 0028 194 482 486 531 4082 4083 'PIDV 009B 222 403 'PINP 009A 221 373 'PRNT 0099 220 370 421 'PROC 0800 199 942 1072 2400 2667 2762 3057 3182 'RG00 00B0 225 418 'SBFR 0FB0 200 201 481 486 493 495 709 713 728 1084 1099 1122 1321 1326 1448 2779 2808 2818 2823 2833 2870 2923 2933 3367 3416 3434 3452 3487 3493 3519 3531 3540 3577 3587 3594 3634 3689 3693 3701 3708 3715 3723 3759 3762 3798 3801 3942 3955 3961 3965 3969 4026 4028 4050 4052 'SCRP 0072 215 382 3186 3188 'SCTR 0140 196 201 202 205 274 822 1396 1398 1407 1439 1441 1740 2338 2554 2649 2651 2662 2667 3057 3302 3303 3304 3305 3306 4129 'XEQP 0071 214 406 2766 2768 'YYYY 0000 227 ASCRA 087B 3318 3199 3201 3203 3205 3207 3230 3251 4019 BFCNT 0AEC 3889 3242 3920 4119 BUFFR 0D2C 202 1282 1284 1394 1398 1407 1441 1447 1449 1457 1469 1471 1739 1953 1959 2335 2418 2425 2434 2440 2442 2443 2455 2459 2461 2462 2469 2476 2489 2491 2495 2504 2505 2506 2512 2523 2532 2535 2556 2567 2568 2579 2581 2583 2585 2587 2602 2611 2618 2619 2641 2642 2651 2662 4129 CIBID 086C 1182 1135 CKBRD 0572 391 CLBP1 056A 385 686 CNVRT 055E 376 331 603 COB01 059E 426 COLSW 0883 3327 3382 3395 3462 3469 3647 3775 3779 3787 3791 3946 3989 CONVT 06CA 731 330 718 4044 CVRT 0576 394 DCOM 0E6E 201 202 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 819 821 833 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1317 1803 1910 2601 DCOMX 0D2C 1739 1759 1804 1911 2113 2129 2132 2135 2139 2142 2146 2150 2153 2157 2161 2164 DSIZE 0140 1740 1802 1803 1804 DT000 0ABD 3841 3215 3403 3501 3808 3869 DT020 0AC0 3846 3853 DT040 0AC9 3851 3848 DT050 0ACD 3856 3872 DT060 0ACF 3858 3850 DT080 0AD8 3865 3860 DT100 0ADA 3868 3862 DT200 0ADE 3871 3863 3866 DT900 0AE0 3877 3847 DUPCO 058A 409 DZ000 00F2 203 344 569 662 796 843 1485 1704 1914 1956 2422 2446 2465 2516 2526 2571 2592 2605 2622 2645 4104 EQ000 0A66 3755 3290 EQ010 0A69 3757 3811 EQ020 0A6A 3759 3805 EQ030 0A77 3769 3766 EQ040 0A8C 3786 3783 EQ050 0A9B 3798 3795 EQ060 0AA7 3807 3796 3800 EQ070 0AAF 3815 3767 3776 3781 3784 3788 EQ080 0AB1 3820 3761 3764 3793 3803 EQ090 0AB3 3825 3773 EQ100 0AB4 3826 3816 3821 EQ900 0AB6 3830 3755 3770 3777 3780 3789 EQ901 0AB7 3831 3792 EQ902 0AB8 3832 3760 3799 EQ903 0AB9 3833 3763 EQ904 0ABA 3834 3802 EQ905 0ABB 3835 3769 3771 EQ906 0ABC 3836 3772 ERRUP 0B86 1990 1799 1987 2082 2085 2117 FB000 0AEA 3886 3376 3393 3448 3458 3465 3480 3671 3677 3778 3790 3921 FB020 0AEF 3895 3913 FB040 0AF2 3900 3891 FB060 0B08 3920 3907 FB900 0B0B 3925 3903 3917 FN000 0B0C 3930 3381 3461 3646 3774 3786 3947 3998 FN020 0B0F 3936 3938 FN040 0B1C 3951 3944 FN060 0B1F 3955 3974 FN070 0B37 3978 3996 FN080 0B3A 3984 3959 3963 FN100 0B3C 3987 3967 3971 FN120 0B3E 3989 3985 FN900 0B48 4002 3936 3956 3993 FN901 0B4D 4003 3935 3943 3962 FN902 0B4E 4004 3966 FN903 0B4F 4005 3952 3970 FOR01 0592 415 FR000 0953 3431 3288 FR010 0956 3433 3505 FR012 0957 3434 3496 FR015 095F 3440 3437 FR020 0963 3446 3440 FR030 0973 3461 3454 FR040 0982 3478 3459 3471 FR060 0985 3480 3474 FR069 095C 3438 3529 FR070 095D 3439 3442 3539 FR080 0998 3500 3486 3489 3492 3495 FR100 09A5 3517 3446 3555 FR120 09AD 3526 3549 FR140 09AF 3529 3553 3575 FR160 09B0 3531 3527 FR170 09B7 3538 3521 3542 FR171 09B8 3539 3585 FR180 09B9 3540 3536 FR190 09C5 3551 3533 FR200 09CD 3566 3478 3614 FR210 09D1 3572 3609 FR220 09D3 3575 FR230 09D4 3577 3573 FR240 09DB 3584 3597 3600 3612 FR250 09DD 3587 3582 FR260 09F0 3603 3589 FR270 09F7 3611 3579 FR900 09A1 3509 3431 3457 3470 FR901 09A2 3510 3417 3488 3494 FR902 09A3 3511 3368 3453 3532 FR903 09A4 3512 3435 FR910 09CA 3559 3520 3541 3588 FR912 09CB 3560 3545 FR913 09CC 3561 3543 3547 FR920 09FC 3618 3578 FR922 09FD 3619 3592 FR923 09FE 3620 3605 FR924 09FF 3621 3603 3607 FR925 0A00 3622 3595 FR926 0A01 3623 3598 GR000 0A02 3628 3289 GR010 0A0E 3646 3636 GR015 0A28 3669 3672 3685 3696 3704 3711 3718 3726 GR020 0A2E 3676 3642 3648 GR025 0A3F 3696 3734 GR040 0A56 3733 3691 GR050 0A58 3738 3694 3702 3709 3716 3724 3740 3743 3744 GR060 0A63 3749 3742 GR900 0A16 3654 3628 3676 3678 GR902 0A17 3655 3635 3739 GR905 0A18 3657 3684 GR906 0A1A 3658 3695 GR907 0A1C 3659 3733 GR908 0A1E 3660 3710 GR909 0A20 3661 3741 GR910 0A21 3662 3690 GR911 0A22 3663 3717 GR912 0A24 3664 3703 GR913 0A26 3665 3725 IKBRD 057E 400 308 443 448 INPUT 0321 205 355 363 364 366 704 4037 JB000 0800 1078 JB040 080B 1089 1086 JB060 080C 1090 1088 JB100 080D 1094 JB110 080F 1097 1110 JB120 0810 1098 1117 JB130 0820 1113 1105 1126 JB140 0830 1128 1111 JB150 0836 1138 1158 JB160 083A 1141 1146 JB170 0843 1148 1142 JB180 0844 1150 1140 1144 JB185 0857 1166 1163 JB186 0859 1168 1165 JB200 0874 1196 1107 1119 1216 JB220 0878 1200 1214 JB240 0886 1210 1202 1205 JB260 088F 1218 1208 JB280 0890 1219 1405 JB300 0804 2412 JB310 0805 2414 2629 JB320 0824 2432 2449 JB330 0826 2433 2439 JB340 0843 2454 2430 2437 JB350 0848 2457 2479 JB355 084A 2459 2488 JB360 0864 2475 2458 JB363 086C 2484 2494 JB365 0871 2489 2473 2485 JB370 0882 2503 2539 JB375 088D 2512 2514 JB380 08A8 2531 2508 2562 JB400 08CB 2561 2538 JB420 08E0 2578 2565 JB460 090C 2610 2614 JB480 0919 2618 2612 JB500 0924 2626 2416 2600 JB520 0934 2642 2656 JB540 093B 2646 2647 JB560 0940 2650 2654 JB580 094F 2661 2652 JB599 0A7F 2670 2403 JB600 08A2 1246 1175 JB640 08CE 1289 JB660 08D0 1292 1295 JB700 090A 1353 1334 JB720 0931 1394 1403 JB740 0936 1397 1401 JB760 0943 1406 1399 JB780 0963 1428 1379 1383 1432 JB800 096A 1438 1459 1856 JB820 096E 1441 1443 JB840 0973 1446 1451 JB850 0992 1477 1283 1395 1478 JB860 0997 1483 1458 1479 1488 JB870 0999 1485 1481 JB880 099B 1486 1487 JB900 0865 1179 1085 1089 JB901 0866 1180 1090 1316 JB902 0867 1181 1108 1120 1129 JB904 086F 1185 1154 1160 1171 1173 JB905 0872 1188 1152 1153 JB906 0873 1189 1169 JB920 0894 1225 1198 1211 1212 JB922 0896 1227 1103 1115 1200 JB924 089A 1231 1210 JB926 089E 1235 1201 1203 JB927 089F 1236 1204 JB928 08A0 1237 1206 JB929 08A1 1238 1207 1209 JB930 08B6 2544 2492 2580 2582 JB932 08B8 2546 2441 2460 2486 2599 JB933 08B9 2547 2427 2433 2435 2475 2477 JB934 08BA 2548 2496 2498 2531 2533 2534 2536 2578 JB936 08BC 2550 2456 2470 2522 JB937 08C4 2551 2490 2584 JB938 08C5 2552 2561 2563 2564 2575 2586 JB939 08C6 2553 2421 2472 2487 JB940 08C7 2554 JB942 08C8 2555 2515 2591 2621 JB943 08C9 2556 2419 2444 2463 2524 2569 2603 2643 JB944 08CA 2557 2640 JB960 0900 1340 1269 1272 1274 JB962 0903 1342 1267 JB963 0904 1343 1276 JB964 0905 1344 1278 JB965 0906 1345 1281 JB966 0907 1346 1322 1328 JB967 0908 1347 1323 JB968 0909 1348 1325 1329 JB970 094A 1413 1386 JB971 094B 1414 1413 JB972 094C 1415 1357 1358 1366 1367 1380 1384 JB973 095C 1416 1362 1414 JB974 095D 1417 1369 JB975 095E 1418 1431 JB980 0986 1463 1453 JB981 0987 1464 1456 JB982 0988 1465 1440 JB983 0989 1466 1446 JB984 098E 1468 1480 JB986 0990 1470 1484 JB999 0D2A 2338 1075 JOBXQ 06A5 694 1333 2828 3859 LAB01 0797 865 877 LAB02 079D 869 874 LAB03 07A5 875 872 LAB04 07A9 879 858 870 924 932 LAB05 07AF 884 865 LAB06 07BC 902 857 863 867 911 923 931 LAB07 07BF 906 878 928 LAB08 07C2 909 917 LAB09 07CC 919 859 860 879 882 937 LAB10 07D2 922 868 927 LAB11 07DA 930 935 LAB12 07DE 933 864 LAB13 07E4 939 909 913 942 LABCK 078B 855 881 921 2797 3994 LC000 0921 3361 3286 3287 LC040 0930 3381 3369 3422 LC060 0935 3387 3463 LC080 0938 3392 3383 LC120 0940 3402 3418 LC140 0949 3411 LC160 094C 3416 3398 3407 LC180 0951 3422 LC900 0952 3426 3361 3375 3392 LF000 0800 3188 LF120 0813 3211 3244 LF130 0815 3215 3504 LF140 082F 3238 3396 3728 LF200 0839 3248 3257 4021 LF220 0847 3256 3250 LF240 0851 3266 3224 LF900 085D 3280 3223 3227 3249 LF901 0862 3285 LF902 0863 3286 3219 3234 LF903 0868 3291 3200 3202 3204 3206 3226 3274 LF904 086A 3293 3272 LF905 0873 3302 3232 3253 LF906 0878 3307 3284 LF910 0884 3335 3293 LF920 089E 3338 3294 3335 LF930 08B9 3341 3295 3338 LF940 08C8 3343 3296 3341 LF950 08D9 3345 3297 3343 LF960 08E6 3347 3298 3345 LF970 08F0 3349 3299 3347 LF980 08FE 3351 3300 3349 LF990 090C 3353 3301 3351 LF995 0921 3356 3353 LF999 0BE9 4135 3185 LFERR 0853 3271 3267 3388 3412 3439 3650 3750 3826 3856 3896 3979 LWDCT 0B93 4079 3239 4098 4100 MORE 0B00 1872 1919 NAMEP 069E 682 2803 2953 NAMEX 0880 3324 3374 3456 3473 3522 3544 3548 3569 3604 3608 3611 3641 3670 3900 3914 3997 NINDR 06A4 693 2962 2972 2984 3262 NOMOR 0B3B 1925 1880 NORCD 06A3 692 1331 2822 2826 2827 2979 4012 4071 OUTPT 01E1 204 205 354 362 747 749 803 804 2263 PBADR 0B94 4081 4068 PBUFR 0B96 4083 3846 4053 4060 4081 PCPAD 057A 397 440 579 741 PHS0 058E 412 PIDEV 0582 403 311 PINPT 055A 373 313 324 444 449 601 PRINT 0556 370 280 300 441 566 578 742 RA000 0500 284 610 4136 RA010 0508 287 285 RA020 050E 292 287 RA040 0516 300 572 RA060 051C 308 RA070 0526 313 604 RA080 053B 340 302 315 333 347 RA090 0543 345 346 RA100 05A2 439 319 455 RA120 05AD 448 442 RA140 05B4 453 445 450 RA160 05B5 454 447 452 RA200 05B9 463 334 RA210 05BF 466 4065 RA220 05C4 472 465 513 548 588 596 761 3037 3276 RA240 05C6 476 464 468 RA260 05CF 483 489 RA300 05D7 493 RA340 05E2 502 498 RA360 05E6 505 521 RA370 05F0 512 500 RA380 05F7 516 511 RA390 05F9 518 507 509 RA400 0630 565 552 560 RA420 0636 570 571 RA440 063B 578 550 RA441 0646 584 585 RA442 0644 583 580 RA443 064C 588 582 RA460 064E 592 551 593 RA480 0656 600 310 312 553 554 RA500 0661 615 555 RA520 0667 622 556 RA560 066D 629 557 558 559 561 RA600 0670 634 549 616 623 687 1409 2664 2982 RA640 0679 645 648 RA660 0682 655 636 645 658 691 RA680 0684 657 638 639 660 RA700 0690 669 635 691 RA740 0697 677 2985 3263 RA745 069C 681 679 RA760 06A0 686 2986 3264 RA800 06A6 700 472 721 RA810 06A7 701 712 716 722 RA840 06AD 705 706 RA845 06BE 717 708 RA850 06CD 739 467 515 523 752 760 1387 1861 1868 1998 3036 3273 4069 RA855 06D9 746 743 RA860 06DF 750 751 RA900 06E4 758 525 618 625 673 1220 2617 2659 RA901 0548 352 446 RA903 0549 353 317 325 329 RA904 054A 354 341 342 RA905 054B 355 323 RA906 054C 356 328 RA930 0604 530 496 505 RA932 0606 531 478 RA933 0607 533 497 RA934 0608 534 506 RA936 0623 549 516 RA940 065E 609 568 RA942 0660 611 451 594 677 RA980 06C6 727 669 703 746 RA982 06C8 729 748 RA983 06C9 730 740 RA985 06CB 732 701 RA986 06CC 733 710 714 RA990 06EA 765 466 759 RA991 06F0 772 765 RA992 0703 774 766 772 RA993 0711 776 767 774 RA994 071C 778 768 776 RA995 0737 781 769 778 RA996 0745 783 770 781 RA997 0750 785 783 RA999 07FD 945 278 RDCOM 077A 829 830 1641 1792 2774 RPG00 0596 418 RR000 0B50 4010 3211 3402 3500 3807 4073 RR020 0B5E 4025 4013 RR040 0B62 4028 4030 RR050 0B66 4034 RR060 0B75 4050 4056 RR070 0B89 4068 4062 RR900 0B91 4077 RR901 0B92 4078 4036 RR903 0BBE 4084 4061 RS100 0757 797 798 RS900 0764 810 802 RS901 0765 811 RS902 0766 812 794 RS903 0767 813 792 RS904 0768 814 800 812 RS905 0769 815 793 801 811 RS906 076A 816 RS908 0774 818 834 RS910 0776 820 842 RS912 0778 822 832 RSTOR 0750 791 583 745 805 1857 SBADR 06C7 728 479 514 522 702 717 1860 4034 4043 SCRAB 0BEC 4129 3233 3254 3901 3915 4018 4112 4116 4126 4132 SU010 09C1 1632 1629 1635 SU030 09C7 1639 SU040 09D1 1648 1640 SU050 09D3 1650 1655 SU070 09DC 1659 1651 SU080 09E1 1664 1724 SU090 09F6 1686 1688 1693 1697 1763 SU100 09FA 1693 1675 1695 SU120 0A1A 1719 1682 SU180 0A95 1784 1734 SU190 0AA9 1800 1797 SU200 0AAD 1803 1806 SU220 0AB5 1812 1791 1816 SU230 0AC6 1824 1820 SU240 0ACD 1832 1846 SU260 0AEA 1850 1852 SU279 0B0C 1886 1733 1881 1894 SU280 0B12 1890 1898 SU290 0B1C 1895 1892 SU300 0B21 1900 1882 SU310 0B3C 1927 1938 SU320 0B4A 1937 1928 SU330 0B4D 1941 1946 SU370 0B70 1968 1979 2028 SU380 0B75 1976 1962 1980 2006 SU390 0B80 1986 1891 SU400 0C01 2038 1652 1788 1904 2094 SU420 0C08 2048 2054 SU430 0C10 2053 2050 SU440 0C13 2059 2044 2065 SU450 0C1B 2064 2061 SU460 0C1E 2070 2052 2063 2076 SU470 0C2F 2083 2079 SU480 0C34 2089 2055 2066 SU500 0C43 2106 1807 1918 2167 SU520 0C45 2112 2116 SU540 0C4F 2122 2114 SU550 0C88 2171 2136 2143 2147 2154 2158 2175 SU600 0C8F 2183 1784 1900 2208 SU620 0C9D 2195 1610 2203 SU700 0CAD 2216 1873 1935 2267 SU710 0CB3 2226 2228 SU720 0CC4 2248 2231 SU740 0CC6 2250 2244 SU800 0CF3 2292 1996 2237 2243 2252 2258 2324 SU820 0CF8 2299 2309 2319 SU890 0D0D 2322 2295 2296 SU902 0A28 1742 1633 1639 1643 1650 1818 1879 1893 1989 1995 2049 2112 2242 SU904 0A2E 1744 1680 1709 1787 1813 1890 1903 1927 2060 2092 2187 SU906 0A3A 1746 1758 SU907 0A3B 1747 1952 SU908 0A3C 1748 1708 1710 1712 1714 SU910 0A40 1749 1669 1672 SU912 0A42 1751 1671 1673 1687 SU914 0A44 1753 1700 1749 SU915 0A46 1755 1617 1681 1716 1717 1720 1824 SU916 0A48 1757 1628 SU917 0A49 1758 1702 SU918 0A4A 1759 1912 1954 SU919 0A4B 1760 1616 1644 1790 SU920 0A4C 1761 1668 SU921 0A4D 1762 1670 SU922 0A4E 1763 1664 SU923 0A4F 1764 1662 1698 1726 SU924 0A50 1765 1666 2190 SU925 0A5B 1776 1711 1713 1715 1887 SU926 0A7C 1777 1785 1867 SU928 0A7E 1779 1777 1872 SU930 0BA0 2012 1992 1997 SU931 0BA5 2017 2013 SU932 0BB9 2020 2014 SU933 0BD1 2023 2015 SU934 0BE9 2026 2016 SU935 0BF9 2028 1622 SU936 0BFA 2029 1621 1977 SU937 0BFB 2030 2000 SU938 0BFC 2031 1969 1986 1988 1993 SU939 0BFD 2032 SU940 0C3E 2098 2040 2043 2051 2062 2078 2093 SU941 0C40 2099 2041 2083 2089 SU942 0C41 2100 2042 2074 2080 2090 SU943 0C42 2101 2071 2072 2075 SU944 0BFE 2033 1612 1614 2002 2004 SU950 0C8E 2177 2124 2125 2127 2174 SU960 0CAC 2210 1888 1897 2193 SU970 0CD6 2272 2262 SU971 0CD7 2273 2219 SU972 0CD8 2274 2273 SU973 0CD9 2275 2226 SU974 0CEF 2276 2225 SU976 0CF0 2277 1908 2185 2205 2236 SU977 0CF1 2278 1817 1930 1931 2186 2206 2257 SU978 0CF2 2279 1933 2188 2251 SU980 0D13 2328 2303 SU981 0D14 2329 2305 SU982 0D15 2330 2306 SU983 0D16 2331 2300 2312 2316 SU984 0D17 2332 1994 2220 2235 2241 2248 2250 2256 2313 2314 SUPV2 056E 388 502 SUPV3 0562 379 1397 1406 SUPV4 0586 406 SUPV5 0566 382 2650 2661 2981 SVPRT 059A 421 SYSUP 09A0 1605 1128 1627 1963 1964 TABLE 054D 360 295 303 316 TYPE1 0879 3310 3217 3228 3405 3502 3809 3810 3858 3868 TYPE2 087A 3311 3197 3218 3229 3406 3503 4091 UNFIO 086E 1184 WD010 0784 843 835 WD020 0786 844 845 WDCNT 0882 3326 3238 3240 3241 3362 3432 3629 3756 3902 3904 3916 3918 4117 WDCOM 0782 841 831 846 2631 2949 3261 WR000 0BBF 4089 3221 3255 4017 4120 WR020 0BCB 4101 4094 WR040 0BD3 4110 4092 4118 WR060 0BD6 4112 4114 WR080 0BE1 4120 WR900 0BE4 4125 4103 WR901 0BE5 4126 4101 WR902 0BE6 4127 4099 WR903 0BE7 4128 4093 WSCID 086D 1183 X1 0042 1338 1246 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1268 1270 1271 1273 1275 1277 1279 X35 0879 3309 3191 3374 3395 3405 3406 3456 3462 3469 3473 3502 3503 3522 3544 3548 3569 3604 3608 3611 3641 3670 3775 3779 3787 3791 3809 3810 3900 3914 3946 3989 3997 4091 XQ000 0800 2768 XQ010 080C 2784 2794 XQ020 0812 2789 2783 XQ025 0821 2803 2798 XQ030 082C 2813 2810 XQ040 0833 2820 XQ050 0842 2833 2837 XQ060 084D 2840 2835 XQ070 0867 2866 2842 XQ075 086A 2869 2886 XQ080 0880 2891 3004 3012 XQ085 0883 2894 2889 XQ090 0885 2895 2883 XQ100 088C 2902 2897 XQ110 088D 2903 2908 XQ120 0896 2910 2904 XQ130 089E 2916 2906 XQ140 08A2 2920 2900 XQ150 08AD 2929 2927 XQ160 08B6 2938 2936 XQ200 08C3 2949 XQ300 08D0 2963 2899 2918 2919 XQ400 08D8 2972 2954 2956 XQ500 08DF 2979 2967 XQ520 08E7 2984 2980 XQ600 08ED 2992 2894 3013 XQ620 08F1 2996 3010 XQ640 08FF 3006 2998 3001 XQ900 0852 2846 2788 2791 2796 XQ901 0857 2847 2809 2811 XQ902 0858 2848 2819 2825 XQ903 0859 2849 2820 XQ905 085A 2850 2834 XQ906 085F 2855 2840 2928 2937 XQ910 0864 2860 2895 2905 XQ911 0865 2861 XQ912 0866 2862 2875 2879 2926 2934 XQ960 090A 3017 2994 3007 3008 XQ962 090C 3018 2874 2996 XQ964 0910 3019 3006 XQ966 0914 3023 2997 2999 XQ967 0915 3024 3000 XQ968 0916 3025 3002 XQ969 0917 3026 3003 3005 XQ980 0922 3041 3035 XQ986 0926 3046 3041 XQ987 0930 3048 3042 3046 XQ989 093E 3050 3043 3048 XQ991 0951 3052 3044 3050 XQ992 095A 3054 3052 XQ999 0A7F 3060 2765 XQERR 0918 3032 2801 2839 2892 2914