ibm:ibm1130-lib:dmsr2v12:namcra_lst
NAMCRA
| Table Of Contents |
|---|
|
- namcra.lst
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"
ibm/ibm1130-lib/dmsr2v12/namcra_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator