ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \psbmup.asm MUP - RESIDENT MONITOR 2 | ABS PS100020 0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE PS100030 0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 PS100040 0007 5 | $COMN EQU /7 WORD COUNT OF COMMON PS100050 000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC. PS100060 000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED PS100070 0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED PS100080 0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) PS100090 0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O PS100100 0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY PS100110 0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS PS100120 0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP PS100130 002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE PS100140 002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 PS100150 0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS PS100160 0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD PS100170 0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP PS100180 0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEC PS100190 0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY PS100200 0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS PS100210 0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT PS100220 0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT PS100230 003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT PS100240 0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR PS100250 0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE PS100260 0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA PS100270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE PS100280 007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD PS100290 007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW PS100300 007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE PS100310 007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP PS100320 007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 PS100330 0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 PS100340 0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 PS100350 0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 PS100360 0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 PS100370 008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 PS100380 0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP PS100390 0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 PS100400 009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 PS100410 009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 PS100420 00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 PS100430 00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 PS100440 00B8 45 | $I205 EQU /B8 PS100450 00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 PS100460 00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 PS100470 00D3 48 | $I405 EQU /D3 PS100480 00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 PS100490 00D5 50 | $I410 EQU /D5 PS100500 00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY PS100510 01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL PS100520 00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT PS100530 01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ PS100540 7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE PS100560 57 | *************************************************** PS100570 58 | * * PS100580 59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * PS100590 60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * PS100600 61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * PS100610 62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * PS100620 63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * PS100630 64 | * FROM .C. * PS100640 65 | * * PS100650 66 | *************************************************** PS100660 67 | * * PS100670 68 | * CATCO DCOM IMAGE * PS100680 69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * PS100690 70 | * * PS100700 71 | *************************************************** PS100710 FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM PS100720 FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM PS100730 FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES PS100740 FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE PS100750 FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE PS100760 FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI PS100770 FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS PS100780 FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED PS100790 FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS PS100800 FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER PS100810 FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS PS100820 FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG PS100830 FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 PS100840 85 | * PS100850 86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * PS100860 FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE PS100870 FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE PS100880 89 | * * PS100890 FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE PS100900 FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA PS100910 FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE PS100920 FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA PS100930 FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL PS100940 FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR PS100950 FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR PS100960 FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR PS100970 FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR PS100980 FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR PS100990 FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS PS101000 FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR PS101010 FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH PS101020 FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RECORDS PS101030 FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 PS101040 FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 PS101050 FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) PS101060 FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 PS101070 FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 PS101080 FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 PS101090 FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 PS101100 FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 PS101110 FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 PS101120 FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 PS101130 FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 PS101140 FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 PS101150 0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM PS101160 0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING PS101170 0FB0 118 | @SBFR EQU /FB0 PS101180 CONCATENATED COMMON AREA (CATCO) 120 | *************************************************** PS101200 121 | * * PS101210 122 | * CATCO IOAR HDRS FOR DUP PHASES PS101220 123 | * * PS101230 124 | *************************************************** PS101240 FFF0 125 | ORG -/10 PS101250 FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 PS101260 FFF2 127 | STHDR BSS 2 STORE PH03 PS101270 FFF4 128 | FLHDR BSS 2 FILEQ PH04 PS101280 FFF6 129 | DMHDR BSS 2 DUMP PH05 PS101290 FFF8 130 | DLHDR BSS 2 DUMPLET PH06 PS101300 FFFA 131 | DTHDR BSS 2 DELETE PH07 PS101310 FFFC 132 | DFHDR BSS 2 DEFINE PH08 PS101320 FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 PS101330 0000 134 | UCHDR BSS 2 DUP UPCOR PH13 PS101340 0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 PS101350 0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 PS101360 0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 PS101370 0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER PS101380 000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 PS101390 000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 PS101400 MUP - CATCO DUP SWITCHES 142 | *************************************************** PS101420 143 | * PS101430 144 | * CATCO DUP SWITCHES * PS101440 145 | * WORDS USED FOR COMMUNICATION OF DATA PS101450 146 | * BETWEEN DUP ROUTINES. PS101460 147 | * * PS101470 148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * PS101480 149 | * PS101490 150 | *************************************************** PS101500 000E 151 | CL1 EQU * PS101510 000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM PS101520 000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S PS101530 0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC PS101540 0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 PS101550 0012 156 | CISW BSS 1 NON ZERO IF STORE CI PS101560 0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED PS101570 0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD PS101580 159 | * * PS101590 160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * PS101600 161 | * DUP CONTROL RECORD. * PS101610 162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * PS101620 163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * PS101630 164 | * STORE CI DUP CONTROL RECORD. * PS101640 0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD PS101650 0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG PS101660 0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 PS101670 0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA PS101680 0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE PS101690 001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP PS101700 001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR PS101710 001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS PS101720 001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD PS101730 001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD PS101740 0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD PS101750 176 | * * PS101760 177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * PS101770 178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* PS101780 179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * PS101790 0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* PS101800 0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD PS101810 0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC PS101820 0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F PS101830 0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA PS101840 0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR PS101850 0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT PS101860 0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD PS101870 0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT PS101880 002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI PS101890 002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE PS101900 002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT PS101910 002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT PS101920 002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS PS101930 002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL PS101940 0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD PS101950 0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD PS101960 0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET PS101970 0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 PS101980 0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR PS101990 0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG PS102000 0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE PS102010 0037 202 | BSS 1 RESERVED FOR ADDITION PS102020 0037 203 | CL2 EQU *-1 PS102030 MUP - CATCO DUP SWITCHES 205 | *************************************************** PS102050 206 | * * PS102060 207 | * CATCO DUP SWITCHES * PS102070 208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * PS102080 209 | * * PS102090 210 | *************************************************** PS102100 0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ PS102110 0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE PS102120 003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE PS102130 003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE PS102140 215 | *************************************************** PS102150 216 | * * PS102160 217 | * CATCO SWITCH INITIALIZED TO ZERO * PS102170 218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM * PS102180 219 | * * PS102190 220 | *************************************************** PS102200 003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD PS102210 222 | *************************************************** PS102220 223 | * * PS102230 224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * PS102240 225 | * * PS102250 226 | *************************************************** PS102260 003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS PS102270 003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 PS102280 229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE PS102290 230 | * PRINCIPAL INPUT DEVICE PS102300 231 | * - IS PAPER TAPE PS102310 232 | * 0 IS CARD PS102320 233 | * + IS KEYBOARD PS102330 003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH PS102340 235 | * PS102350 0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS PS102360 237 | *************************************************** PS102370 238 | * * PS102380 239 | * LEVEL 4 INTERRUPT BRANCH TABLE * PS102390 240 | * ADDRESSES. INITIALIZED BY CCAT, * PS102400 241 | * AND CARD/PAPER TAPE INTERFACES. * PS102410 242 | * * PS102420 243 | *************************************************** PS102430 0049 244 | ORG /0049 PS102440 0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE PS102450 246 | *************************************************** PS102460 247 | * * PS102470 248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * PS102480 249 | * * PS102490 250 | *************************************************** PS102500 0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER PS102510 0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT PS102520 0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE PS102530 0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS PS102540 0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR PS102550 0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR PS102560 005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE PS102570 005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER PS102580 005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER PS102590 005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC PS102600 005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 PS102610 005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 PS102620 00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT PS102640 01DE 265 | B EQU $ZEND-2 PS102650 01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT PS102660 01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT PS102670 11E0 268 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL PS102680 11DE 269 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL PS102690 21DE 270 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE PS102700 41DE 271 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP PS102710 7DB0 272 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO PS102720 7F1E 273 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER PS102730 274 | * * PS102740 275 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * PS102750 276 | * * PS102760 7DB0 277 | ORG DUPCO PS102770 7DB0 278 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC PS102780 7DB1 279 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE PS102790 7DB2 280 | ENTER BSS 1 SAVE XR-S AND CONDITIONS PS102800 7DB3 281 | GET BSS 1 READ FROM DISK USING DISKZ PS102810 7DB4 282 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP PS102820 7DB5 283 | LINE BSS 1 SPACES PRINTER 1 LINE PS102830 7DB6 284 | MASK BSS 1 INHIBITS KB INT REQUEST PS102840 7DB7 285 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S PS102850 7DB8 286 | PAGE BSS 1 SKIPS TO NEXT PAGE PS102860 7DB9 287 | PHID BSS 1 RECORDS PHASE ID PS102870 7DBA 288 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER PS102880 7DBB 289 | PRINT BSS 1 USE SYS PR SUBR TO PRINT PS102890 7DBC 290 | PUT BSS 1 WRITES TO DISK USING DISKZ PS102900 7DBD 291 | REST BSS 1 RESTORE CATCO,GO TO DCTL PS102910 7DBE 292 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS PS102920 293 | * * PS102930 294 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * PS102940 295 | * * PS102950 7D91 296 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER PS102960 7C50 297 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR PS102970 7A06 298 | IOADR EQU BUF6-/38B START OF I/O INTERFACE PS102980 7A0A 299 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE PS102990 7A0B 300 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY PS103000 7A0C 301 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY PS103010 7A0D 302 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY PS103020 79B5 303 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER PS103030 7963 304 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER PS103040 7925 305 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER PS103050 78D3 306 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER PS103060 7782 307 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR PS103070 0640 308 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR PS103080 MACRO UPDATE PROGRAM PROLOGUE 310 | *************************************************** PS103100 311 | *STATUS - VERSION 2, MODIFICATION 12 * PS103110 312 | * * PS103120 313 | *FUNCTION/OPERATION - * PS103130 314 | * * THIS DUP MODULE PROVIDES MACRO LIBRARY * PS103140 315 | * UPDATE AND MAINTENANCE FACILITIES. IT * PS103150 316 | * PERFORMS MACRO LIBRARY INITIALIZATION, * PS103160 317 | * PHYSICAL OR LOGICAL MACRO LIBRARY JOINING, * PS103170 318 | * AND PROVIDES THE ABILITY TO ADD, PURGE, * PS103180 319 | * RENAME, PUNCH, AND UPDATE MACROS. * PS103190 320 | * * THIS MODULE IS READ INTO CORE WHEN AN * PS103200 321 | * *MACRO UPDATE DUP CONTROL RECORD IS READ IF * PS103210 322 | * CORE SIZE IS 8K OR GREATER. * PS103220 323 | * * THE PARTICULAR FUNCTIONS TO BE PERFORMED * PS103230 324 | * ARE INDICATED BY MEANS OF THE MUP CONTROL * PS103240 325 | * RECORDS WHICH FOLLOW THE *MACRO UPDATE DUP * PS103250 326 | *CONTROL RECORD. * PS103260 327 | * * PS103270 328 | *ENTRY POINTS - * PS103280 329 | * PROGRAM START - MUP * PS103290 330 | * * PS103300 331 | *INPUT - * PS103310 332 | * * MUP CONTROL RECORDS * PS103320 333 | * * MACRO DEFINITION SOURCE TEXT IF MACRO TEXT * PS103330 334 | * IS TO BE ADDED TO A MACRO LIBRARY * PS103340 335 | * * DISK MACRO LIBRARIES IN USER OR FIXED AREA * PS103350 336 | * * DISK WORKING STORAGE IF LIBRARY SPILL HAS * PS103360 337 | * OCCURED * PS103370 338 | * * PS103380 339 | *OUTPUT - * PS103390 340 | * * THE MACRO LIBRARIES IN THE USER OR FIXED * PS103400 341 | * AREAS ARE UPDATED AS REQUESTED * PS103410 342 | * * MUP CONTROL STATEMENTS AND ANY ERROR * PS103420 343 | * MESSAGES ARE PRINTED ON THE PRINCIPAL * PS103430 344 | * PRINTER * PS103440 345 | * * MACRO HEADERS, WITH OR WITHOUT MACRO SOURCE * PS103450 346 | * TEXT IS PRINTED ON THE PRINCIPAL PRINTER * PS103460 347 | * UNDER CONTROL OF MUP CONTROL RECORDS * PS103470 348 | * * MACROS ARE PUNCHED IF REQUESTED BY MUP * PS103480 349 | * CONTROL RECORDS * PS103490 350 | * * DISK WORKING STORAGE IS USED TO HOLD * PS103500 351 | * LIBRARY SPILL WHEN NEEDED * PS103510 352 | * * PS103520 353 | *EXTERNAL REFERENCES - * PS103530 354 | * SUBROUTINES - * PS103540 355 | * *ENTER - SAVE XR-S A AND Q REGS, STATUS * PS103550 356 | * *RTURN - RESTORE XR-S, A AND Q REGS, STATUS * PS103560 357 | * *GET - READ FROM DISK * PS103570 358 | * - READ LET/FLET IN LIBRARY SEARCH * PS103580 359 | * - READ MACRO LIBRARY SECTORS * PS103590 360 | * - READ WORKING STORAGE IF SPILL * PS103600 361 | * *GETHO - READ MUP CONTROL RECORDS, CONVERT * PS103610 362 | * TO EBCDIC IN CRBUF * PS103620 363 | * *LEAVE - EXIT FROM DUP-SUPERVISOR CNTL RCD RD* PS103630 364 | * *LINE - SPACE 1 LINE ON PRINCIPAL PRINTER * PS103640 365 | * *MASK - PREVENT INTERRUPT REQUEST DURING RUN* PS103650 366 | * *PAGE - RESTORE PAPER * PS103660 367 | * *PCHBI - PUNCH MACRO SOURCE TEXT * PS103670 368 | * *PHID - RECORD PHASE ID * PS103680 369 | * *PRINT - TO PRINT MUP CONTROL RECORDS, ERROR * PS103690 370 | * MESSAGES, MACRO HEADERS AND TEXT * PS103700 371 | * *REST - TO RETURN TO DUP CONTROL * PS103710 372 | * COMMUNICATION AREAS - * PS103720 373 | * *LET/FLET - USED TO LOCATE MACRO LIBRARIES * PS103730 374 | * *COMMA - * PS103740 375 | * $CTSW * PS103750 376 | * $FPAD * PS103760 377 | * $IBSY * PS103770 378 | * $PBSY * PS103780 379 | * $PRET * PS103790 380 | * $ULET * PS103800 381 | * $WSDR * PS103810 382 | * *DCOM - * PS103820 383 | * #PIOD * PS103830 384 | * #RP67 * PS103840 385 | * * PS103850 386 | *EXITS - * PS103860 387 | * NORMAL - * PS103870 388 | * ENDUP MUP CONTROL RECORD RECOGNIZED. EXIT * PS103880 389 | * THROUGH REST DUPCO SUBROUTINE * PS103890 390 | * ERROR - * PS103900 391 | * MONITOR OR DUP CONTROL RECORD READ. * PS103910 392 | * MONITOR CONTROL RECORD CAUSES EXIT THRU LEAVE* PS103920 393 | * SUBROUTINE IN DUPCO. * PS103930 394 | * DUP CONTROL RECORD (* IN COL 1) IS PASSED TO * PS103940 395 | * DUP CONTROL FOR ANALYSIS BY SETTING DUPCR * PS103950 396 | * SWITCH NON-ZERO AND EXITING VIA REST IN DUPCO* PS103960 397 | * * PS103970 398 | *TABLES/WORK AREAS - * PS103980 399 | * *CATCO - CONCATENATED COMMON AREA OF DUPCO * PS103990 400 | * *CRBUF - ADDR OF INPUT BFR FOR CONTROL RCDS * PS104000 401 | * *LETAR - ADDR OF AREA USED TO SEARCH EACH * PS104010 402 | * SECTOR OF EACH LET/FLET * PS104020 403 | * *NEXT - ADDR OF UNPACKED HOLLERITH RECORDS * PS104030 404 | * DURING CARD PUNCHING OPERATION * PS104040 405 | * *PARNO - FIRST WORD OF 142 WORD AREA USED TO * PS104050 406 | * HOLD NAME STATEMENT PARAMETERS FOR * PS104060 407 | * CONVERSION TO DISK MACRO PROTOTYPE * PS104070 408 | * FORMAT AND BACK * PS104080 409 | * *THIS - ADDR OF AREA USED TO CHECK CARD FOR * PS104090 410 | * NON-BLANKS BEFORE PUNCHING IT IF * PS104100 411 | * 1442-6 OR -7 PRESENT * PS104110 412 | * * PS104120 413 | *ATTRIBUTES - * PS104130 414 | * NON-REUSABLE * PS104140 415 | * * PS104150 416 | *NOTES - * PS104160 417 | * *MOST CONSTANTS, WORK AREAS, AND SWITCHES ARE * PS104170 418 | * GROUPED TOGETHER AND MAY BE ADDRESSED WITH A * PS104180 419 | * SHORT INSTRUCTION USING INDEX 3. INDEX 3 * PS104190 420 | * POINTS TO LOCATION D. LONG INSTRUCTIONS CAN * PS104200 421 | * BE USED WHEN NEEDED (EG. INDEX 3 IS POINTING * PS104210 422 | * ELSEWHERE). LABELS FOR LONG ADDRESSING HAVE * PS104220 423 | * AN X APPENDED. * PS104230 424 | * *THE FIRST 142 WORDS OF THE PHASE ARE OVERLAID* PS104240 425 | * WITH THE NAME STATEMENT PARAMETER AREA. THE * PS104250 426 | * OVERLAID CODING IS EXECUTED ONLY ONCE, DURING* PS104260 427 | * MUP INITIALIZATION. * PS104270 428 | * *MUP HAS 1 WAIT - WHEN A NON-BLANK CARD IS * PS104280 429 | * FOUND DURING PUNCHING ON 1442-6 OR -7. * PS104290 430 | * *MUP USES 2 OUTPUT DISK BUFFERS, KOUT AND * PS104300 431 | * KNOUT. ALTERNATE OUTPUT DISK BUFFERING IS * PS104310 432 | * USED. THE UNUSED BUFFER IS USED WHENEVER A * PS104320 433 | * MISC DISK READ/WRITE IS NEEDED (SUCH AS SPILL* PS104330 434 | * TO WORKING STORAGE). * PS104340 435 | * * PS104350 436 | *************************************************** PS104360 MUP INITIALIZATION & CONTROL ROUTINE 01DE 438 | ORG B PS104380 008D 439 | NMS EQU 141 NAME LIST AREA PS104390 440 | * INITIALIZATION ROUTINE * PS104400 441 | * CODE TO LABEL MUP08 IS PS104410 442 | * INITIALIZATION AND IS ENTERED ONLY PS104420 443 | * ONCE FOR THE PROGRAM. LOCATION MUP PS104430 444 | * IS THE START OF THE PROGRAM PS104440 01DE 0000 445 | DC *-* SYSTEM LDR FILLS IN WORD CT PS104450 01DF 00CE 446 | DC /00CE SLET PHASE ID PS104460 01E0 7002 447 | MUP MDX MUP01 PS104470 01E1 0000 448 | PARNO DC *-* NO. OF NAME PARAMETERS PS104480 01E2 0000 449 | PBUFF DC *-* PS104490 01E3 450 | MUP01 EQU * PS104500 451 | * PS104510 01E3 4480 7DB9 452 | BSI I PHID IDENTIFY MUP PHASE PS104520 01E5 00CE 453 | DC /00CE * PS104530 454 | * PS104540 01E6 6500 7FA0 455 | LDX L1 C RESTORE CATCO POINTER PS104550 456 | * PS104560 01E8 C000 457 | LD * TURN ON SW TO MAKE CD READ PS104570 01E9 D133 458 | STO 1 EBCSW *ROUTINE CONVERT TO PACKED PS104580 459 | * *EBC PS104590 01EA 6700 1178 460 | LDX L3 D SET PTR TO CONSTANT AREA PS104600 461 | * PS104610 01EC 1010 462 | MUP05 SLA 16 SET SWITCH TO INDICATE PS104620 01ED D139 463 | STO 1 PH2 *DCTL NOT IN CORE PS104630 464 | * PS104640 01EE 4400 07D1 465 | BSI L PTINT INITIALIZE PRINT ROUTINE PS104650 466 | * PS104660 01F0 C15C 467 | LD 1 LETAR SAVE ADDR OF LET/FLET PS104670 01F1 D400 0E19 468 | STO L LET *SEARCH BUFFER PS104680 469 | * PS104690 01F3 C346 470 | LD 3 D320 SET SECTOR WORD COUNT INTO PS104700 01F4 D580 005C 471 | STO I1 LETAR *LET/FLET SEARCH BUFFER PS104710 472 | * PS104720 01F6 C400 007A 473 | LD L $WSDR GET WORKING STORAGE DRIVE PS104730 01F8 180C 474 | SRA 12 *NUMBER, RIGHT JUSTIFY PS104740 01F9 D400 1187 475 | STO L TEMP3 INDEX TO GET FILE PROTECT PS104750 01FB 6680 1187 476 | LDX I2 TEMP3 *ADDR OF CARTRIDGE TO BE PS104760 01FD C600 0095 477 | LD L2 $FPAD *USED PS104770 01FF 1004 478 | SLA 4 ELIMINATE DRIVE CODE PS104780 0200 1804 479 | SRA 4 * PS104790 0201 D313 480 | STO 3 WORKS SAVE FPAD PS104800 0202 C34A 481 | LD 3 D1600 LOAD DISK CAPACITY PS104810 0203 9313 482 | S 3 WORKS SUBTRACT FPAD PS104820 0204 D3E0 483 | STO 3 ESPL SET SPILL AREA SIZE PS104830 0205 C400 1187 484 | LD L TEMP3 GET DRIVE CODE PS104840 0207 100C 485 | SLA 12 LEFT JUSTIFY PS104850 0208 EB13 486 | OR 3 WORKS FORM WS SECTOR ADDR WITH PS104860 0209 D313 487 | STO 3 WORKS *LOGICAL DRIVE CODE PS104870 488 | * PS104880 020A C34B 489 | LD 3 UPLIM CALCULATE AVAILABLE CORE PS104890 020B 93E5 490 | S 3 INLC PS104900 020C 1890 491 | MUP02 SRT 16 PS104910 020D AB47 492 | D 3 D322 COMPUTE NUM. BUF IN FCOR PS104920 020E D315 493 | STO 3 X OF INPUT BUFFERS PS104930 494 | * PS104940 020F 6600 13BC 495 | LDX L2 KOUT PS104950 0211 6580 118D 496 | LDX I1 XX LOAD WITH TOTAL PS104960 0213 7102 497 | MDX 1 2 NUMBER OF BUFFERS PS104970 0214 C346 498 | MUP04 LD 3 D320 SET WORD COUNTS INTO PS104980 0215 D200 499 | STO 2 0 EACH BUFFER AREA TO BE PS104990 0216 7600 0142 500 | MDX L2 322 PROCESSED PS105000 0218 71FF 501 | MDX 1 -1 LOOP TO INTIALIZE NEXT PS105010 0219 70FA 502 | MDX MUP04 IF NOT DONE PS105020 021A 6E00 1145 503 | STX L2 BENDX SET BUFFER END POINTER PS105030 504 | * PS105040 021C 4400 085E 505 | BSI L RPAGE EJECT PAGE PS105050 506 | * * PS105060 021E 6500 7FA0 507 | LDX L1 C RESTORE CATCO POINTER PS105070 0220 4480 7DB6 508 | BSI I MASK MASK INTERRUPT REQUESTS PS105080 509 | * *DURING MUP OPERATION PS105090 0222 704C 510 | MDX MUP09 PS105100 0223 511 | BSS NMS-*+PARNO PS105110 512 | * PS105120 513 | *************************************************** PS105130 514 | * * PS105140 515 | * THE CODING AND AREA UP TO THIS POINT ARE * PS105150 516 | * OVERLAID BY THE NAME LIST AREA WHEN A NAME * PS105160 517 | * STATEMENT IS PROCESSED * PS105170 518 | * * PS105180 519 | *************************************************** PS105190 026E 7079 520 | MUP08 MDX MUPX3 UPDATE ERROR PS105200 026F 4400 086C 521 | MUP09 BSI L RDCRD READ A CARD PS105210 522 | * PS105220 0271 1010 523 | SLA 16 PS105230 0272 D30A 524 | STO 3 SKSW CLEAR SKIP SWITCH PS105240 525 | * PS105250 0273 C3B2 526 | MUP11 LD 3 LNAM PICK UP LIB NAME PS105260 0274 4C18 029C 527 | BSC L MUP10,+- BRANCH IF NONE PS105270 0276 6500 11D0 528 | LDX L1 SAREA POINT TO COL 1 PS105280 0278 6208 529 | LDX 2 8 SET TO TABLE LENGTH PS105290 0279 4400 068E 530 | BSI L MCCSN GO TO SCAN FOR L OR B PS105300 027B 00D3 531 | DC .L LIB PS105310 027C 028A 532 | DC MUP9B PS105320 027D 00C2 533 | DC .B BUILD PS105330 027E 028A 534 | DC MUP9B PS105340 027F 00D1 535 | DC .J JOIN PS105350 0280 0284 536 | DC MUP9A PS105360 0281 00C5 537 | DC .E ENDUP PS105370 0282 028A 538 | DC MUP9B PS105380 0283 7018 539 | MDX MUP10 NO, SKIP FLUSH PS105390 540 | * PS105400 0284 1010 541 | MUP9A SLA 16 YES, SET JOIN SW PS105410 0285 D3E8 542 | STO 3 JSW PS105420 0286 D3E9 543 | STO 3 J1SW *AND JOIN1 SWITCH PS105430 544 | * PS105440 0287 C301 545 | LD 3 PSW PS105450 0288 4420 0C4D 546 | BSI L NMTST,Z PS105460 028A C301 547 | MUP9B LD 3 PSW TEST FOR SELECT P PS105470 028B D302 548 | STO 3 PSWSV SAVE SELECT P SETTING PS105480 028C 4C18 0292 549 | BSC L MUP9C,+- BRANCH IF NOT PS105490 028E C3FB 550 | LD 3 NMSW TEST IF NAME STATEMENT USED PS105500 028F 4C20 0292 551 | BSC L MUP9C,Z BRANCH IF SO PS105510 0291 D301 552 | STO 3 PSW OTHERWISE, RESET SELECT P PS105520 0292 C342 553 | MUP9C LD 3 X00FF PS105530 0293 D3EE 554 | STO 3 LPSW SET 2ND PASS FLAG PS105540 0294 D3ED 555 | STO 3 LNRS SET LIB NAME RESET SW PS105550 0295 4400 0B97 556 | BSI L UPDAT FLUSH CURRENT LIBRARY PS105560 0297 7000 557 | MDX * ALLOW FOR UPDAT RETURN PS105570 0298 C302 558 | LD 3 PSWSV GET SAVED PSW VALUE PS105580 0299 D301 559 | STO 3 PSW RESTORE PSW PS105590 029A D3ED 560 | STO 3 LNRS CLEAR LIB NAME RESET SW PS105600 029B D3D1 561 | STO 3 CCSW CLEAR CONCATENATE SW PS105610 562 | * PS105620 029C 6500 11D0 563 | MUP10 LDX L1 SAREA POINT TO COLUMN 1 PS105630 029E C100 564 | LD 1 0 FOR BLANK PS105640 029F F328 565 | EOR 3 BLAN PS105650 02A0 4C18 026F 566 | MUP12 BSC L MUP09,+- BRANCH YES TO SKIP CARD PS105660 567 | * PS105670 02A2 7401 1217 568 | MDX L SAREA+71,1 FORCE SCAN TERM. AT COL 72 PS105680 02A4 7101 569 | MUP14 MDX 1 1 BUMP POINTER PS105690 02A5 6202 570 | LDX 2 2 PS105700 571 | * PS105710 02A6 4400 068E 572 | BSI L MCCSN ENTER BASIC SCAN PS105720 02A8 0040 573 | DC . CHECK FOR BLANK PS105730 02A9 02AB 574 | DC MUP16 PS105740 02AA 70F9 575 | MDX MUP14 NO RETURN TO SCAN PS105750 576 | * PS105760 02AB 7101 577 | MUP16 MDX 1 1 BUMP POINTER PS105770 02AC 6202 578 | LDX X2 MUP15-MP16A SET AND PS105780 02AD 4400 068E 579 | BSI L MCCSN *ENTER BASIC SCAN PS105790 02AF 0040 580 | MP16A DC . CHECK FOR BLANK PS105800 02B0 02AB 581 | DC MUP16 YES-RE-ENTER,ELSE EXIT PS105810 582 | * PS105820 02B1 74FF 1217 583 | MUP15 MDX L SAREA+71,-1 RESTORE CHARACTER PS105830 02B3 6D00 117F 584 | MUP17 STX L1 RPTX SET RPT EQUAL NEXT NON 0 PS105840 585 | * PS105850 02B5 4400 0865 586 | BSI L CRPRT PRINT CONTROL RECORD PS105860 587 | * PS105870 02B7 6500 11D0 588 | MUP19 LDX L1 SAREA PS105880 02B9 6229 589 | LDX X2 MUPX2-MUPX1 SET AND ENTER BASIC PS105890 02BA 4400 068E 590 | BSI L MCCSN SCAN TO CHECK CONTROL PS105900 02BC 591 | MUPX1 EQU * PS105910 02BC 80D3 592 | DC .L+/8000 LIB PS105920 02BD 0AE3 593 | DC LIB PS105930 02BE 026F 594 | DC MUP09 PS105940 595 | * PS105950 02BF 80E4 596 | DC .U+/8000 UPDATE PS105960 02C0 0B97 597 | DC UPDAT PS105970 02C1 026E 598 | DC MUP08 PS105980 599 | * PS105990 02C2 80C9 600 | DC .I+/8000 INSERT PS106000 02C3 0399 601 | DC INSRT PS106010 02C4 0273 602 | DC MUP11 PS106020 603 | * PS106030 02C5 80C4 604 | DC .D+/8000 DELETE PS106040 02C6 0459 605 | DC DELET PS106050 02C7 0273 606 | DC MUP11 PS106060 607 | * PS106070 02C8 80C1 608 | DC .A+/8000 ADD PS106080 02C9 0C6A 609 | DC ADD PS106090 02CA 0273 610 | DC MUP11 PS106100 611 | * PS106110 02CB 80D6 612 | DC .O+/8000 OUTPUT PS106120 02CC 0C95 613 | DC OUTPT PS106130 02CD 026F 614 | DC MUP09 PS106140 615 | * PS106150 02CE 80D9 616 | DC .R+/8000 RENAME PS106160 02CF 0D20 617 | DC RENAM PS106170 02D0 026F 618 | DC MUP09 PS106180 619 | * PS106190 02D1 80D7 620 | DC .P+/8000 PURGE PS106200 02D2 0B7A 621 | DC PURGE PS106210 02D3 026F 622 | DC MUP09 PS106220 623 | * PS106230 02D4 80E2 624 | DC .S+/8000 SELECT PS106240 02D5 0A4F 625 | DC SEL F PS106250 02D6 026F 626 | DC MUP09 PS106260 627 | * PS106270 02D7 80C2 628 | DC .B+/8000 BUILD PS106280 02D8 0A7F 629 | DC BUILD PS106290 02D9 026F 630 | DC MUP09 PS106300 631 | * PS106310 02DA 80D1 632 | DC .J+/8000 JOIN PS106320 02DB 0A94 633 | DC JOIN PS106330 02DC 026F 634 | DC MUP09 PS106340 635 | * PS106350 02DD 80C3 636 | DC .C+/8000 CONCATENATE PS106360 02DE 0AA5 637 | DC CONC PS106370 02DF 026F 638 | DC MUP09 PS106380 639 | * PS106390 02E0 80D5 640 | DC .N+/8000 NAME PS106400 02E1 02EB 641 | DC NAME PS106410 02E2 0273 642 | DC MUP11 PS106420 643 | * PS106430 02E3 00C5 644 | DC .E ENDUP PS106440 02E4 0EB1 645 | DC END5 PS106450 646 | * PS106460 02E5 4380 647 | MUPX2 BSI 3 EPRT PRINT MESSAGE PS106470 02E6 1045 648 | DC EM5 ILLEGAL REQUEST PS106480 02E7 7087 649 | MDX MUP09 READ NEXT CARD PS106490 650 | * PS106500 02E8 4380 651 | MUPX3 BSI 3 EPRT PRINT MACRO NOT FOUND PS106510 02E9 108C 652 | DC EM11 *MESSAGE PS106520 02EA 7084 653 | MDX MUP09 READ NEXT CONTROL RECORD PS106530 NAME ROUTINE 05 655 | *************************************************** PS106550 656 | * NAME ROUTINE, BUILDS PARAMETER LIST * PS106560 657 | * TO IDENTIFY SYMBOLIC PARAMETERS FOR * PS106570 658 | * INSERT. READS NEXT STATEMENT, IF * PS106580 659 | * NAME,IT CAUSES CONTINUATION OF * PS106590 660 | * PREVIOUS STATEMENTS * PS106600 661 | *************************************************** PS106610 02EB 0000 662 | NAME DC *-* ENTRY POINT PS106620 02EC C101 663 | LD 1 1 TEST COL 2 FOR A PS106630 02ED F331 664 | EOR 3 CA * PS106640 02EE 4C20 02E5 665 | BSC L MUPX2,Z ILLEGAL REQUEST IF NOT PS106650 666 | * PS106660 02F0 6580 117F 667 | LDX I1 RPTX PICK UP NAME POINTER PS106670 02F2 71FF 668 | MDX 1 -1 POINT TO CHAR BACK PS106680 02F3 6976 669 | STX 1 NAM01 SAVE PS106690 02F4 4C00 02F6 670 | BSC L * MODIFIED,SWITCH FOR NEXT PS106700 671 | * PS106710 02F6 1010 672 | NAMEZ SLA 16 CLEAR COUNTS PS106720 02F7 D400 01E1 673 | STO L PARNO NO. OF PARAMETERS PS106730 02F9 D400 01E2 674 | STO L PBUFF TOTAL CHARACTERS PS106740 02FB C101 675 | LD 1 1 CHECK IF BLANK NAME PS106750 02FC F328 676 | EOR 3 BLAN *STATEMENT,NO CONTINUE PS106760 02FD 4C18 0373 677 | BSC L NAM06,+- YES,BRANCH TO EXIT PS106770 02FF 1010 678 | NAM0X SLA 16 PS106780 0300 D3F6 679 | STO 3 NAMC PS106790 0301 D400 11D0 680 | STO L SAREA PS106800 0303 6929 681 | NAM0 STX 1 NAM02 PS106810 0304 1010 682 | SLA 16 CLEAR CHARACTER COUNT PS106820 0305 D3F2 683 | STO 3 MCHA * PS106830 0306 C101 684 | LD 1 1 TEST IF 1ST CHAR AMPERSAND PS106840 0307 F32E 685 | EOR 3 CAMP PS106850 0308 D400 0394 686 | STO L NMSIX SET VALID CHARACTER COUNT PS106860 030A 4C20 030E 687 | BSC L NAM0T,Z NO, CONTINUE PS106870 030C 7101 688 | MDX 1 1 BUMP CHARACTER POINTER PS106880 030D 7018 689 | MDX NAM04 GO TO STORE AMPERSAND PS106890 690 | * PS106900 030E C101 691 | NAM0T LD 1 1 TEST IF 1ST CHAR NUMERIC PS106910 030F 933C 692 | S 3 F0 PS106920 0310 4C28 0314 693 | BSC L NAM00,+Z SKIP ERROR FUNCTION PS106930 0312 7101 694 | NAM0Y MDX 1 1 NUMERIC, POINT TO 1ST CHAR PS106940 0313 7075 695 | MDX NMERR GO TO ERROR PS106950 696 | * PS106960 0314 7101 697 | NAM00 MDX 1 1 POINT TO FIRST CHAR PS106970 0315 620A 698 | LDX X2 NAM3A-NAM03 SET TO ENTER SYNTAX PS106980 0316 4400 068E 699 | BSI L MCCSN *SCAN ROUTINE PS106990 0318 005B 700 | NAM03 DC .$ DOLLAR SIGN PS107000 0319 0326 701 | DC NAM04 PS107010 031A 007B 702 | DC .# POUND SIGN PS107020 031B 0326 703 | DC NAM04 PS107030 031C 007C 704 | DC /007C AT SIGN PS107040 031D 0326 705 | DC NAM04 PS107050 031E 006B 706 | DC ., COMMA PS107060 031F 032B 707 | DC NAMCM 0 PS107070 0320 0040 708 | DC . BLANK PS107080 0321 033C 709 | DC NAMBL 0 PS107090 0322 C100 710 | NAM3A LD 1 0 TEST IF ALPHANUMERIC PS107100 0323 9330 711 | S 3 X00C0 PS107110 0324 4C08 0389 712 | BSC L NMERR,+ NO, GO TO ERROR PS107120 0326 7401 116A 713 | NAM04 MDX L MCHAX,1 BUMP CHAR. COUNT PS107130 0328 7401 11D0 714 | MDX L SAREA,1 BUMP PARA CHARS PS107140 032A 70E9 715 | MDX NAM00 LOOP TO NEXT PS107150 716 | * PS107160 717 | *************************************************** PS107170 718 | * PROCESS COMMA TERMINATOR PS107180 719 | *************************************************** PS107190 032B C3F2 720 | NAMCM LD 3 MCHA FETCH CHARACTER COUNT PS107200 032C D400 0000 721 | STO L *-* STORE IN IMAGE PS107210 032D 722 | NAM02 EQU *-1 PS107220 032E 7400 0394 723 | MDX L NMSIX,0 SEE IF 5 OR 6 CHARS VALID PS107230 0330 7001 724 | MDX NAM2A PS107240 0331 9316 725 | S 3 ONE 6, SET FOR TEST PS107250 0332 931E 726 | NAM2A S 3 L5 TEST IF VALID PARAMETER PS107260 0333 4C30 0388 727 | BSC L NMER1,-Z NO, GO TO ERROR PS107270 0335 C100 728 | LD 1 0 NEXT COLUMN BLANK? PS107280 0336 F328 729 | EOR 3 BLAN PS107290 0337 4C18 0312 730 | BSC L NAM0Y,+- YES, GO TO ERROR PS107300 0339 7401 116E 731 | MDX L NAMCX,1 BUMP COUNT PS107310 033B 70C7 732 | MDX NAM0 LOOP FOR NEXT NAME PS107320 733 | * PS107330 734 | *************************************************** PS107340 735 | * PROCESS BLANK TERMINATOR PS107350 736 | *************************************************** PS107360 033C C3F2 737 | NAMBL LD 3 MCHA FETCH CHARACTER COUNT PS107370 033D 7401 116E 738 | MDX L NAMCX,1 BUMP COUNT PS107380 033F D480 032D 739 | STO I NAM02 SAVE IN CARD IMAGE PS107390 0341 7400 0394 740 | MDX L NMSIX,0 SEE IF 5 OR 6 CHARS VALID PS107400 0343 7001 741 | MDX NMBL0 PS107410 0344 9316 742 | S 3 ONE 6, SET FOR TEST PS107420 0345 931E 743 | NMBL0 S 3 L5 TEST IF VALID PARAMETER PS107430 0346 4C30 0388 744 | BSC L NMER1,-Z NO, GO TO ERROR PS107440 0348 6680 0398 745 | LDX I2 PBUF BUFFER START, THIS IMAGE0 PS107450 034A 694C 746 | STX 1 NAMSV SAVE COLUMN NUMBER PS107460 034B 7101 747 | NMBL1 MDX 1 1 BUMP COLUMN POINTER PS107470 034C 6948 748 | STX 1 NMTMP PREPARE TO LOAD PS107480 034D C047 749 | LD NMTMP GET NEXT CHAR ADDRESS PS107490 034E 9047 750 | S NMEND ARE WE PAST COLUMN 72 PS107500 034F 4C30 0358 751 | BSC L NMBL2,-Z YES, TERMINATE BLANK TEST PS107510 0351 C100 752 | LD 1 0 NO, GET NEXT CHARACTER PS107520 0352 F328 753 | EOR 3 BLAN TEST FOR BLANK PS107530 0353 4C18 034B 754 | BSC L NMBL1,+- YES, GO TEST SOME MORE PS107540 0355 6580 0397 755 | LDX I1 NAMSV NO, SET XR1 FOR ERROR PS107550 0357 7031 756 | MDX NMERR GO TO ERROR PS107560 757 | * PS107570 0358 6500 01E2 758 | NMBL2 LDX L1 PBUFF PS107580 035A C3F6 759 | LD 3 NAMC UPDATE NUMBER OF PARAMS PS107600 035B 81FF 760 | A 1 -1 SPECIFIED BY THIS PS107610 035C D1FF 761 | STO 1 -1 NAME SEQUENCE PS107620 035D 9322 762 | S 3 D20 TEST IF MORE THAN 20 PARAM PS107630 035E 4C08 0363 763 | BSC L NMBL3,+ NO, SKIP ERROR FUNCTION PS107640 0360 4380 764 | BSI 3 EPRT YES, PRINT INVALID PARAM PS107650 0361 10EB 765 | DC EM17 PS107660 0362 7028 766 | MDX NMEXT AND EXIT PS107670 767 | * PS107680 0363 C3F6 768 | NMBL3 LD 3 NAMC COMPUTE NO OF CHARS THIS PS107690 0364 8400 11D0 769 | A L SAREA *STATEMENT FOR MOVE PS107700 0366 D3F6 770 | STO 3 NAMC PS107710 0367 8100 771 | A 1 0 UPDATE TOTAL NUMBER CHAR PS107720 0368 D100 772 | STO 1 0 *THIS NAME SEQUENCE PS107730 0369 6500 0000 773 | LDX L1 *-* PICK UP STARTING POINT PS107740 036A 774 | NAM01 EQU *-1 0 PS107750 036B C100 775 | NAM05 LD 1 0 MOVE LOOP-MOVE FROM PS107760 036C D201 776 | STO 2 1 *IMAGE AREA TO PARAM PS107770 036D 7201 777 | MDX 2 1 *BUFFER AREA PS107780 036E 7101 778 | MDX 1 1 *0 PS107790 036F 74FF 116E 779 | MDX L NAMCX,-1 *0 PS107800 0371 70F9 780 | MDX NAM05 *0 PS107810 0372 6A25 781 | STX 2 PBUF SET PBUFF POINTER PS107820 0373 782 | NAM06 EQU * PS107830 0373 4400 086C 783 | BSI L RDCRD READ NEXT CARD PS107840 0375 C400 11D0 784 | LD L SAREA FERCH FIRST CHAR PS107850 0377 F336 785 | EOR 3 CN CHECK FOR N PS107860 0378 4C18 0385 786 | BSC L NAMA,+- BRANCH IF YES PS107870 037A 6600 01E2 787 | LDX L2 PBUFF NO-INITIALIZE ROUTINE PS107880 037C 6500 02F6 788 | LDX L1 NAMEZ FOR NEXT NAME CARD PS107890 037E 6A19 789 | STX 2 PBUF PS107900 037F 6C00 1173 790 | STX L NMSWX SET NAME SWITCH PS107910 0381 6D00 02F5 791 | NAMB STX L1 NAMEZ-1 PS107920 0383 4C80 02EB 792 | BSC I NAME EXIT TO CALLING ROUTINE PS107930 0385 6500 02FF 793 | NAMA LDX L1 NAM0X SET FOR NEXT ENTRY PS107940 0387 70F9 794 | MDX NAMB GO TO EXIT PS107950 795 | *************************************************** PS107960 796 | * ERROR ROUTINE PS107970 797 | *************************************************** PS107980 0388 71FF 798 | NMER1 MDX 1 -1 POINT TO LAST CHAR IN NAME PS107990 0389 4400 0EE5 799 | NMERR BSI L CVDEC GO FIND INVALID SUBFIELD PS108000 038B 6600 01E2 800 | NMEXT LDX L2 PBUFF REINITIALIZE NAME ROUTINE PS108010 038D 6A0A 801 | STX 2 PBUF *FOR NEXT ENTRY PS108020 038E 6500 02F6 802 | LDX L1 NAMEZ * PS108030 0390 6D00 02F5 803 | STX L1 NAMEZ-1 * PS108040 0392 4400 0E44 804 | BSI L FLUSH FLUSH TO LIB OR BUILD PS108050 805 | * PS108060 806 | *************************************************** PS108070 807 | * LOCAL CONSTANTS AND BUFFER PS108080 808 | *************************************************** PS108090 809 | * PS108100 0394 0000 810 | NMSIX DC *-* 0 IF SIX CHARACTERS VALID PS108110 0395 0000 811 | NMTMP DC *-* XR1 STORAGE PS108120 0396 1217 812 | NMEND DC SAREA+71 POINTS TO COLUMN 72 PS108130 0397 0000 813 | NAMSV DC *-* COLUMN NUMBER STORAGE PS108140 0398 01E2 814 | PBUF DC PBUFF PS108150 INSERT ROUTINE 1130 MACRO UPDATE 816 | *************************************************** PS108170 817 | * INSERT ROUTINE,SCAN INSERT STATEMENT* PS108180 818 | * FOR INSERTION POINT. READS SOURCE * PS108190 819 | * AND GOES TO DEFIN ROUTINE FOR PACKING PS108200 820 | * TO MACRO PROTOTYPE FORMAT. ENTER WITH PS108210 821 | * BSI INSRT . INDEX 3 IS EXPECTED TO * PS108220 822 | * POINT TO CONSTANT AREA, CDNO IS * PS108230 823 | * EXPECTED TO BE ZERO. * PS108240 824 | *************************************************** PS108250 825 | * PS108260 0399 0000 826 | INSRT DC *-* ENTRY POINT PS108270 039A C101 827 | LD 1 1 TEST COL 2 FOR N PS108280 039B F336 828 | EOR 3 CN * PS108290 039C 4C20 02E5 829 | BSC L MUPX2,Z NO, ILLEGAL REQUEST PS108300 039E 4400 0C4D 830 | BSI L NMTST TEST IF NAME STATEMENT READ PS108310 03A0 6C00 115C 831 | STX L INDLX SET INSERT/DELETE SWITCH PS108320 03A2 404D 832 | BSI SCAN GO SCAN FOR INSERT NO PS108330 03A3 403D 833 | BSI PASS LOCATE INSERT POINT PS108340 03A4 7003 834 | MDX INSRN BRANCH TO INSERT NEXT PS108350 835 | * PS108360 836 | *************************************************** PS108370 837 | * READ NEXT CARD, CHECK FOR SOURCE CARD PS108380 838 | * IF IT IS, GO TO DEFIN ROUTINE. PS108390 839 | *************************************************** PS108400 840 | * PS108410 03A5 0000 841 | INSRX DC *-* SUBROUTINE ENTRY TO INSRN PS108420 03A6 C0FE 842 | LD *-2 PS108430 03A7 D0F1 843 | STO INSRT BUILD RETURN THRU INSRT PS108440 03A8 4400 086C 844 | INSRN BSI L RDCRD LINK TO READ ROUTINE PS108450 03AA 7400 000F 845 | MDX L $CTSW,0 MONITOR CONTROL RECORD READ PS108460 03AC 702A 846 | MDX INR20 BRANCH IF YES PS108470 03AD 7400 7FDC 847 | MDX L DUPCR+C,0 DUP CONTROL RECORD READ PS108480 03AF 7027 848 | MDX INR20 BRANCH IF YES PS108490 03B0 6500 11D0 849 | LDX L1 SAREA CARD AREA POINTER PS108500 03B2 6213 850 | LDX 2 19 PS108510 03B3 C100 851 | LD 1 0 SCAN TWENTY COLUMNS PS108520 03B4 E901 852 | INR02 OR 1 1 *AND OR TOGETHER PS108530 03B5 7101 853 | MDX 1 1 TEST RESULT FOR PS108540 03B6 72FF 854 | MDX 2 -1 *BLANK TO SEE IF ALL PS108550 03B7 70FC 855 | MDX INR02 *ARE BLANK. PS108560 03B8 F328 856 | EOR 3 BLAN PS108570 03B9 4C20 03C0 857 | BSC L INR05,Z BRANCH IF NOT ALL BLANK PS108580 858 | * PS108590 03BB C3E0 859 | LD 3 ESPL ALL BLANK, TEST WORKING PS108600 03BC 4C08 05E2 860 | BSC L PUTTO,+ *STORAGE - BRANCH IF NONE PS108610 03BE 4400 047D 861 | BSI L DEFIN PROCESS MACRO SOURCE TEXT PS108620 862 | * PS108630 03C0 C3E4 863 | INR05 LD 3 INDL TEST INSERT/DELETE SWITCH PS108640 03C1 4C18 03D5 864 | BSC L INR10,+- IF 0, NORMAL EXIT PS108650 865 | * PS108660 03C3 6500 11D0 866 | LDX L1 SAREA POINT TO COL 1 PS108670 03C5 6206 867 | LDX 2 6 SET TO TABLE LENGTH 212 PS108680 03C6 4400 068E 868 | BSI L MCCSN GO TO SCAN PS108690 03C8 00C9 869 | DC .I INSERT PS108700 03C9 03D5 870 | DC INR10 SKIP MACRO END PS108710 03CA 00C4 871 | DC .D DELETE PS108720 03CB 03D5 872 | DC INR10 SKIP MACRO END PS108730 03CC 00C5 873 | DC .E ENDUP 212 PS108735 03CD 03D0 874 | DC INR07 SKIP ERROR MESSAGE 212 PS108740 03CE 4380 875 | BSI 3 EPRT GO PRINT D102 MESSAGE 212 PS108744 03CF 1045 876 | DC EM5 ADDRESS OF MESSAGE 212 PS108746 03D0 C341 877 | INR07 LD 3 X00FE PUNCH IN 1-20, END INSER212 PS108750 03D1 4400 08E4 878 | BSI L MOVE MOVE REST OF MACRO PS108760 03D3 1010 879 | SLA 16 CLEAR ACCUM PS108770 03D4 D3E4 880 | STO 3 INDL CLEAR INSERT/DELETE SWITCH PS108780 03D5 4C80 0399 881 | INR10 BSC I INSRT RETURN TO CALLER PS108790 882 | * PS108800 03D7 C3E4 883 | INR20 LD 3 INDL TEST IF INSERTION PS108810 03D8 4C18 03D5 884 | BSC L INR10,+- BRANCH IF NOT PS108820 03DA C341 885 | LD 3 X00FE MOVE THE REST OF THE PS108830 03DB 4400 08E4 886 | BSI L MOVE *MACRO PS108840 03DD 1010 887 | SLA 16 RESET INSERT/DELETE PS108850 03DE D3E4 888 | STO 3 INDL *SWITCH PS108860 03DF 4C00 0EA2 889 | BSC L ENDUP EXIT MUP PS108870 891 | *************************************************** PS108890 892 | * PASS ROUTINE. MOVES CARDS UNTIL THE * PS108900 893 | * CARD NUMBER IN ARG1 HAS BEEN REACHED* PS108910 894 | * PASS EXITS THROUGH INSRT IF AN * PS108920 895 | * FE IS ENCOUNTERED FIRST * PS108930 896 | *************************************************** PS108940 03E1 0000 897 | PASS DC *-* PS108950 03E2 C3B4 898 | LD 3 MNAM PS108960 03E3 4C18 02E5 899 | BSC L MUPX2,+- ERROR IF NOT AT HDR PS108970 03E5 C3D6 900 | LD 3 CRDN PS108980 03E6 93CA 901 | S 3 ARG1 WAS DESIRED CARDS REACHED PS108990 03E7 4C98 03E1 902 | BSC I PASS,+- EXIT IF SO PS109000 903 | * PS109010 03E9 C340 904 | LD 3 FD PS109020 03EA 4400 08E4 905 | BSI L MOVE MOVE CURRENT CARD PS109030 03EC C3F3 906 | LD 3 MHSW PS109040 03ED 4C20 041E 907 | BSC L SCAN2,Z ERROR IF END OF MACRO PS109050 03EF 70F2 908 | MDX PASS+1 TRY AGAIN PS109060 910 | *************************************************** PS109080 911 | *CONTROL CARD SCAN ROUTINE. ENTER WITH BSI SCAN * PS109090 912 | * INDEX 3 IS EXPECTED TO POINT TO * PS109100 913 | * CONSTANT AREA * PS109110 914 | * RPT POINTS TO THE FIRST CHARACTER * PS109120 915 | * TO BE SCANNED. * PS109130 916 | * NUMBER WITH COMMA TERMINATOR IS PUT * PS109140 917 | * IN ARG1, NUMBER WITH BLANK TERMINATOR PS109150 918 | * IS PUT IN ARG2. ON EXIT INDEX 1 PS109160 919 | * POINTS TO LAST NUMBER, INDEX 2 LOST. PS109170 920 | *************************************************** PS109180 921 | * PS109190 03F0 0000 922 | SCAN DC *-* ENTRY POINT PS109200 03F1 6580 117F 923 | LDX I1 RPTX POINT TO CARD PARAMETER PS109210 03F3 4058 924 | BSI PARTS GO CHECK PARAM VALIDITY PS109220 03F4 681A 925 | STX 0 ARGSW SET ARG SWITCH PS109230 03F5 2000 926 | SCAN0 LDS 0 SET COUNT TO ZERO, LOW PS109240 03F6 283D 927 | STS X2CNT BYTE ONLY,MUST BE 5 OR LES PS109250 928 | * PS109260 03F7 6204 929 | SCAN1 LDX 2 4 COUNT OF WORDS IN LIST PS109270 03F8 4400 068E 930 | BSI L MCCSN GO TO SCAN PS109280 03FA 0040 931 | DC . BLANK PS109290 03FB 0410 932 | DC SCANN EXIT FOR BLANK PS109300 03FC 006B 933 | DC ., COMMA PS109310 03FD 0402 934 | DC SCANC EXIT FOR COMMA PS109320 935 | * PS109330 03FE 7101 936 | MDX 1 1 NO TERMINATOR, BUMP AND PS109340 03FF 7401 0434 937 | MDX L X2CNT,1 *SCAN FOR NEXT PS109350 0401 70F5 938 | MDX SCAN1 PS109360 939 | *************************************************** PS109370 940 | * PROCESS COMMA TERMINATOR PS109380 941 | *************************************************** PS109390 0402 6908 942 | SCANC STX 1 SCNC1+1 SAVE POINTER PS109400 0403 C3DA 943 | LD 3 DELT INSERT OR DELETE? PS109410 0404 4C18 0452 944 | BSC L PART2,+- INSERT, GO TO ERROR RTN PS109420 0406 1010 945 | SLA 16 PS109430 0407 D007 946 | STO ARGSW CLEAR ARG SWITCH PS109440 0408 402A 947 | BSI SCONV GO TO CONVERT ROUTINE PS109450 0409 D3CA 948 | STO 3 ARG1 STORE FIRST NUMBER PS109460 040A 6500 0000 949 | SCNC1 LDX L1 *-* RESTORE POINTER AND RETURN PS109470 040C 7101 950 | MDX 1 1 *TO SCAN FOR NEXT PS109480 040D 403E 951 | BSI PARTS GO CHECK PARAM VALIDITY PS109490 040E 70E6 952 | MDX SCAN0 PS109500 040F 0000 953 | ARGSW DC *-* PS109510 954 | *************************************************** PS109520 955 | * ROUTINE TO PROCESS BLANK TERMINATOR PS109530 956 | *************************************************** PS109540 0410 4022 957 | SCANN BSI SCONV GO TO CONVERT PS109550 0411 D3CB 958 | STO 3 ARG2 STORE LAST NUMBER PS109560 0412 7400 040F 959 | MDX L ARGSW,0 PS109570 0414 D3CA 960 | STO 3 ARG1 ARG1 = ARG2 IF ONE PARAM PS109580 0415 93CA 961 | S 3 ARG1 TEST FOR 1 GREATER THAN 2 PS109590 0416 4C28 042F 962 | BSC L SCAN3,+Z YES, GO TO ERROR RTN PS109600 0418 C3D6 963 | LD 3 CRDN GET CURRENT INPUT POS PS109610 0419 4C98 03F0 964 | BSC I SCAN,+- IF ZERO, SKIP BACK TEST PS109620 041B 93CA 965 | S 3 ARG1 TEST IF INS/DEL BACK PS109630 041C 4CA8 03F0 966 | BSC I SCAN,+Z NO, OK TO EXIT PS109640 041E 4380 967 | SCAN2 BSI 3 EPRT YES, PRINT SEQ NOT FOUND PS109650 041F 100E 968 | DC EM1 PS109660 0420 1010 969 | SLA 16 RESET PS109670 0421 D3E4 970 | STO 3 INDL *INSERT/DELETE SWITCH, PS109680 0422 D3DA 971 | STO 3 DELT *DELETE SWITCH, PS109690 0423 7400 1182 972 | MDX L SKSWX,0 TEST SKIP SWITCH PS109700 0425 7001 973 | MDX SCAN4 BRANCH IF SET PS109710 0426 702D 974 | MDX PART3 GO FLUSH TO NEXT CTRL CD PS109720 0427 D30A 975 | SCAN4 STO 3 SKSW RESET SKIP SWITCH PS109730 0428 D3F3 976 | STO 3 MHSW RESET HEADER MOVE SWITCH PS109740 0429 C341 977 | LD 3 X00FE INDICATE /FE IS TO BE PS109750 042A D3E1 978 | STO 3 FESW *FORCED OUT PS109760 042B D3E4 979 | STO 3 INDL FAKE INSERT TO FORCE PRINT PS109770 042C 4400 08E4 980 | BSI L MOVE PLACE /FE PS109780 042E 7025 981 | MDX PART3 GO READ NEXT CONTROL RECORD PS109810 982 | * PS109820 042F 6580 040B 983 | SCAN3 LDX I1 SCNC1+1 SET XR1 FOR ERR MSG PS109830 0431 7101 984 | MDX 1 1 BUMP TO CORRECT PS109840 0432 701F 985 | MDX PART2 GO TO ERROR RTN PS109850 986 | * PS109860 987 | *************************************************** PS109870 988 | * CONVERSION ROUTINE. CONVERTS EBC * PS109880 989 | * NUMBER,POINTED TO LOW ORDER DIGIT BY* PS109890 990 | * INDEX1-1, TO BINARY. RETURNS WITH * PS109900 991 | * NUMBER IN ACCUMULATOR. * PS109910 992 | *************************************************** PS109920 993 | * PS109930 0433 0000 994 | SCONV DC *-* ENTRY POINT PS109940 0434 6200 995 | X2CNT LDX 2 0 COUNT SET ABOVE PS109950 0435 6A05 996 | STX 2 X21CT SAVE 2 FOR FUTURE USE PS109960 0436 C1FF 997 | CNV0 LD 1 -1 FETCH LOW DIGIT PS109970 0437 72FF 998 | MDX 2 -1 DECREMENT COUNT, IF 1,SKIP PS109980 0438 7010 999 | MDX CNV1 ELSE BRANCH TO CNV1 PS109990 0439 E321 1000 | AND 3 H0F MASK OF ZONE BITS PS110000 043A 6600 0000 1001 | LDX L2 *-* RESTORE COUNT PS110010 043B 1002 | X21CT EQU *-1 PS110020 043C D30E 1003 | CNV2 STO 3 TEMP SAVE ACC PS110030 043D 72FF 1004 | MDX 2 -1 DECREMENT COUNT,SKIP IF 1 PS110040 043E 7002 1005 | MDX *+2 BRANCH IF NO SKIP PS110050 043F 4C80 0433 1006 | BSC I SCONV EXIT ROUTINE PS110060 0441 1002 1007 | SLA 2 ACC TIMES 4 PS110070 0442 830E 1008 | A 3 TEMP *+ ACC IS ACC TIMES 5 PS110080 0443 1001 1009 | SLA 1 TIMES 2 EQUALS ACC X 10 PS110090 0444 D30E 1010 | STO 3 TEMP STORE PS110100 0445 1010 1011 | SLA 16 CLEAR ACC PS110110 0446 1084 1012 | SLT 4 SHIF IN NEXT PS110120 0447 830E 1013 | A 3 TEMP ADD TEMP AND CONTINUE PS110130 0448 70F3 1014 | MDX CNV2 *CONVERSION PS110140 0449 1884 1015 | CNV1 SRT 4 SHIFT TO Q REGISTER PS110150 044A 71FF 1016 | MDX 1 -1 DECREMENT COUNT, FINISH PS110160 044B 70EA 1017 | MDX CNV0 *PACKING NUMBER PS110170 044C 0000 1018 | PARTS DC *-* VALIDITY CHECK ROUTINE PS110180 044D C100 1019 | LD 1 0 GET 1ST CHAR PS110190 044E 1804 1020 | SRA 4 CLEAR NUMERIC PS110200 044F F321 1021 | EOR 3 H0F TEST FOR F ZONE PS110210 0450 4C98 044C 1022 | BSC I PARTS,+- YES, RETURN PS110220 0452 4400 0EE5 1023 | PART2 BSI L CVDEC NO, GO CONVERT COL NO PS110230 0454 1010 1024 | PART3 SLA 16 RESET PS110240 0455 D3E4 1025 | STO 3 INDL *INSERT/DELETE PS110250 0456 D3DA 1026 | STO 3 DELT *AND DELETE SWITCH PS110260 0457 4C00 026F 1027 | BSC L MUP09 READ NEXT COMTROL RECORD PS110270 DELETE ROUTINE 1130 MACRO UPDATE 1029 | *************************************************** PS110290 1030 | * THIS ROUTINE PERFORMS THE DELETION PS110300 1031 | * OF SELECTED STATEMENTS FROM THE PS110310 1032 | * SOURCE LIBRARY. ENTRY IS BSI DELET PS110320 1033 | * INDEX 3 MUST POINT TO CONSTANT PS110330 1034 | * AREA. DELETE STATEMENT IS PS110340 1035 | * SCANNED FOR RANGE OF STATEMENTS TO PS110350 1036 | * BE DELETED. DELETION IS PERFORMED. PS110360 1037 | * ON EXIT CONTROL IS PASSED TO THE PS110370 1038 | * INSERT CARD READ ROUTINE FOR PS110380 1039 | * POSSIBLE INSERTION. INSERT PS110390 1040 | *************************************************** PS110400 0459 0000 1041 | DELET DC *-* ENTRY POINT PS110410 045A C101 1042 | LD 1 1 TEST COL 2 FOR E PS110420 045B F333 1043 | EOR 3 CE * PS110430 045C 4C20 02E5 1044 | BSC L MUPX2,Z ILLEGAL REQUEST IF NOT PS110440 1045 | * PS110450 045E 4400 0C4D 1046 | BSI L NMTST TEST IF NAME STATEMENT READ PS110460 1047 | * PS110470 0460 C0F8 1048 | LD DELET SET UP EXIT FROM INSERT PS110480 0461 D400 0399 1049 | STO L INSRT PS110490 0463 D3DA 1050 | STO 3 DELT SET DELET SWITCH PS110500 1051 | * PS110510 0464 C307 1052 | LD 3 RPT SAVE COL POINTER PS110520 0465 D014 1053 | STO DELT2+1 IN CASE OF ERROR PS110530 1054 | * PS110540 0466 6C00 115C 1055 | STX L INDLX SET INSERT/DELETE SWITCH PS110550 1056 | * PS110560 0468 4087 1057 | BSI SCAN SCAN FOR SKIP RANGE PS110570 0469 C3CA 1058 | LD 3 ARG1 PS110580 046A 4C18 0479 1059 | BSC L DELT2,+- IF ZERO, GO TO ERROR RTN PS110590 046C 9316 1060 | S 3 X0001 PS110600 046D D3CA 1061 | STO 3 ARG1 POSITION TO FIRST CARD PS110610 046E 4400 03E1 1062 | BSI L PASS *TO BE DELETED PS110620 1063 | * PS110630 0470 C3CB 1064 | LD 3 ARG2 PS110640 0471 D30A 1065 | STO 3 SKSW SET TO AVOID STORE PS110650 0472 D3CA 1066 | STO 3 ARG1 PS110660 1067 | * PS110670 0473 4400 03E1 1068 | BSI L PASS DELETE AS REQUESTED PS110680 0475 D30A 1069 | STO 3 SKSW CLEAR SKIP SWITCH PS110690 0476 D3DA 1070 | STO 3 DELT RESET DELET SW PS110700 0477 4C00 03A8 1071 | BSC L INSRN INSERTS MAY BE PRESENT PS110710 1072 | * PS110720 0479 6500 0000 1073 | DELT2 LDX L1 *-* DELETE 0, SET FOR ERROR PS110730 047B D3DA 1074 | STO 3 DELT RESET DELETE SW PS110740 047C 70D5 1075 | MDX PART2 GO TO ERROR RTN PS110750 DEFIN ROUTINE FOR NEW CODE INSERT 1077 | *************************************************** PS110770 1078 | * ROUTINE FOR CONVERTING CARD IMAGE TO PS110780 1079 | * MACRO PROTOTYPE FORM. ENTRY IS PS110790 1080 | * BSI DEFIN PS110800 1081 | * XR3 MUST POINT TO CONSTANT AREA PS110810 1082 | * XR1 AND XR2 ARE DESTROYED PS110820 1083 | * CARD IMAGE,IN EBCDIC ASSUMED IN SAREA PS110830 1084 | *************************************************** PS110840 047D 0000 1085 | DEFIN DC *-* ENTRY POINT PS110850 047E 4048 1086 | BSI EOC COMPUTE LOGICAL CARD END PS110860 047F 6500 11E4 1087 | LDX L1 SAREA+20 XR1 POINTS TO START OF PS110870 0481 C100 1088 | LD 1 0 *STATEMENT.GET FIRST PS110880 0482 F32A 1089 | EOR 3 ASTK CHECK FOR ASTK. PS110890 0483 D3CC 1090 | STO 3 ASSW SET SWITCH,0 IF YES PS110900 0484 4C18 04F3 1091 | BSC L EBC,+- IF 0 SKIP OP CODE CHECK PS110910 1092 | * PS110920 1093 | *************************************************** PS110930 1094 | * PACK AND CHECK OP FOR DMES OR EBC PS110940 1095 | *************************************************** PS110950 0486 C108 1096 | LD 1 8 FETCH 3RD CHAR. PS110960 0487 1008 1097 | SLA 8 PACK WITH PS110970 0488 E909 1098 | OR 1 9 *4TH CHAR. PS110980 0489 18D0 1099 | RTE 16 SAVE BOTH IN Q REGISTER PS110990 048A C106 1100 | LD 1 6 FETCH FIRST CHAR PS111000 048B 1008 1101 | SLA 8 PACK WITH PS111010 048C E907 1102 | OR 1 7 *2 ND. OP NOW IN A AND Q PS111020 048D DBB6 1103 | STD 3 OPCD SAVE OP CODE PS111030 1104 | * PS111040 048E 621B 1105 | LDX X2 SPTRT-SPOP SET XR2 TO TABLE LENGTH PS111050 048F C600 04D6 1106 | DEF01 LD L2 SPOP-2 FETCH SECOND PS111060 0491 18D0 1107 | RTE 16 *AND PS111070 0492 C600 04D5 1108 | LD L2 SPOP-3 *FIRST WD OF NAME AND PS111080 0494 9BB6 1109 | SD 3 OPCD COMPARE PS111090 0495 4818 1110 | BSC +- IF FIRS TWO CHARACTERS PS111100 0496 18D0 1111 | RTE 16 *EQUAL, SWAP A AND Q PS111110 0497 4E98 04D7 1112 | BSC I2 SPOP-1,+- FOUND-EXIT AS REQUIRED PS111120 1113 | * PS111130 0499 72FD 1114 | DEF02 MDX 2 -3 ELSE LOOP THRU TABLE PS111140 049A 70F4 1115 | MDX DEF01 PS111150 1116 | * PS111160 1117 | *************************************************** PS111170 1118 | * DRIVER FOR DEF SCAN,GET,PUT AND MOVE PS111180 1119 | *************************************************** PS111190 049B CBB8 1120 | DEF03 LDD 3 OPT SAVE CURRENT PUT SETTING PS111200 049C DBAC 1121 | STD 3 DTMP PS111210 049D CBBA 1122 | LDD 3 OPTD INITIALIZE TO PROTP AREA PS111220 049E DBB8 1123 | STD 3 OPT PS111230 1124 | * PS111240 049F 4059 1125 | BSI SCDEF GO TO PROCESS STATEMENT PS111250 1126 | * PS111260 04A0 CBB0 1127 | LDD 3 IPT SAVE CURRENT GET SETTING PS111270 04A1 DBAA 1128 | STD 3 DTMG PS111280 04A2 CBAE 1129 | LDD 3 GTST INITIALIZE FOR MOVE FROM PS111290 04A3 DBB0 1130 | STD 3 IPT *PROTOTYPE AREA PS111300 04A4 CBAC 1131 | LDD 3 DTMP RESTORE PUT SETTING PS111310 04A5 DBB8 1132 | STD 3 OPT PS111320 04A6 C3C8 1133 | LD 3 ADSW IS THIS AN ADD? 212 PS111322 04A7 4C20 04AF 1134 | BSC L DEF04,Z YES, BRANCH. 212 PS111324 04A9 C301 1135 | LD 3 PSW SELECT P? 212 PS111330 04AA EBE7 1136 | OR 3 ISW INSERT? 212 PS111334 04AB 4C18 04AF 1137 | BSC L DEF04,+- NO, BRANCH 212 PS111335 04AD 4400 07D1 1138 | BSI L PTINT YES, CLEAR PRINT BUFFER 212 PS111340 04AF C339 1139 | DEF04 LD 3 HE740 LOAD X FOR PRINT BUFFER 212 PS111345 04B0 D400 07EE 1140 | STO L PAREA+9 PS111350 04B2 C0FF 1141 | LD *-1 NEGATIVE NUMBER 212 PS111355 04B3 D400 08C4 1142 | STO L GET1 212 PS111360 04B5 C340 1143 | LD 3 FD SET END OF CARD FLAG PS111370 04B6 D30D 1144 | STO 3 SSW INHIBIT CRDN UPDATE PS111380 04B7 4400 08E4 1145 | BSI L MOVE GO TO MOVE NEW STATEMENT PS111390 1146 | * PS111400 04B9 1010 1147 | SLA 16 PS111410 04BA D30D 1148 | STO 3 SSW CLEAR SEQ UPDATE SWITCH PS111420 1149 | * PS111430 04BB CBAA 1150 | LDD 3 DTMG RESTORE GET SETTING PS111440 04BC DBB0 1151 | STD 3 IPT PS111450 04BD 4C00 03A8 1152 | BSC L INSRN GO TO READ NEXT CARD PS111460 1153 | * PS111470 1154 | *************************************************** PS111480 1155 | * PROCESS MAC AND SMAC OP CODES BY * PS111490 1156 | * INCREMENTING NEST COUNT. * PS111500 1157 | *************************************************** PS111510 1158 | * PS111520 04BF 7401 1174 1159 | MAC MDX L NSTSX,1 01 PS111530 04C1 70D9 1160 | MDX DEF03 01 PS111540 1161 | *************************************************** PS111550 1162 | * PROCESS MEND STATEMENT. DECREMENT * PS111560 1163 | * COUNT IF NON ZERO. * PS111570 1164 | *************************************************** PS111580 1165 | * PS111590 04C2 C3FC 1166 | MEND LD 3 NSTS FETCH NEST SWITCH PS111600 04C3 4820 1167 | BSC Z TEST FOR ZERO PS111610 04C4 9316 1168 | S 3 C1 NO-DECREMENT BY ONE PS111620 04C5 D3FC 1169 | STO 3 NSTS RESET AND EXIT PS111630 04C6 70D4 1170 | MDX DEF03 *01 PS111640 1172 | *************************************************** PS111660 1173 | * END OF LOGICAL CARD ROUTINE. SCANS * PS111670 1174 | * FROM COL.71 TO LEFT FOR FIRST NON- * PS111680 1175 | * BLANK. SET COL 72 TO BLANK. ENTRY IS* PS111690 1176 | * BSI EOC * PS111700 1177 | * XR1 AND XR2 ARE DESTROYED * PS111710 1178 | * XR3 POINTS TO CONSTANT AREA * PS111720 1179 | * ON RETURN XR2 IS THE COUNT OF * PS111730 1180 | * CHARACTERS FOR THIS CARD, XR1 * PS111740 1181 | * POINTS TO LAST NON BLANK ON CARD * PS111750 1182 | *************************************************** PS111760 04C7 0000 1183 | EOC DC *-* ENTRY POINT PS111770 04C8 6233 1184 | LDX 2 51 SET MAX COUNT PS111780 04C9 6500 1216 1185 | LDX L1 SAREA+70 POINT TO COLUMN 71 PS111790 04CB C328 1186 | EOC1 LD 3 BLAN FETCH BLANK PS111800 04CC D101 1187 | STO 1 1 STORE IN LAST CHECKED(COL PS111810 04CD F100 1188 | EOR 1 0 *72 FIRST).CHECK THIS PS111820 04CE 4C20 04D3 1189 | BSC L EOC2,Z IF NON-BLANK BRANCH PS111830 04D0 71FF 1190 | MDX 1 -1 IF BLANK LOOP TILL NON PS111840 04D1 72FF 1191 | MDX 2 -1 *BLANK FOUND OR COUNT PS111850 04D2 70F8 1192 | MDX EOC1 *EXHAUSTED PS111860 04D3 6D00 1154 1193 | EOC2 STX L1 ECDX SAVE POINTER AND PS111870 04D5 4C80 04C7 1194 | BSC I EOC *EXIT ROUTINE PS111880 1196 | *************************************************** PS111900 1197 | * SPECIAL OP CODE TABLE. CONTAINS OPS * PS111910 1198 | * REQUIRING SPECIAL HANDLING. * PS111920 1200 | *************************************************** PS111940 04D8 1201 | SPOP BSS E 0 PS111950 04D8 C5C2 C340 1202 | EBC .EBC . PS111960 04DA 04F3 1203 | DC EBC PS111970 04DB C4D4 C5E2 1204 | EBC .DMES. PS111980 04DD 04F3 1205 | DC EBC PS111990 04DE C8C4 D5C7 1206 | EBC .HDNG. PS112000 04E0 04F3 1207 | DC EBC PS112010 04E1 D7E4 D9C7 1208 | EBC .PURG. PS112020 04E3 04F3 1209 | DC EBC PS112030 04E4 E2D4 C1C3 1210 | EBC .SMAC. PS112040 04E6 04BF 1211 | DC MAC PS112050 04E7 D4C1 C340 1212 | EBC .MAC . PS112060 04E9 04BF 1213 | DC MAC PS112070 04EA D4C5 D5C4 1214 | EBC .MEND. PS112080 04EC 04C2 1215 | DC MEND PS112090 04ED C4C5 C340 1216 | EBC .DEC . PS112100 04EF 04F6 1217 | DC DEC PS112110 04F0 E7C6 D3C3 1218 | EBC .XFLC. PS112120 04F2 04F6 1219 | DC DEC PS112130 04F3 1220 | SPTRT EQU * PS112140 1222 | *************************************************** PS112160 1223 | * SET EBC SWITCH PS112170 1224 | *************************************************** PS112180 04F3 1225 | EBC EQU * PS112190 04F3 6C00 114C 1226 | STX L0 COMX SET SWTICH NON ZERO PS112200 04F5 70A5 1227 | MDX DEF03 EXIT PS112210 1228 | * PS112220 04F6 6C00 05E9 1229 | DEC STX L DECSW SET DEC-XFLC SWITCH NON-0 PS112230 04F8 70A2 1230 | MDX DEF03 PS112240 1232 | *************************************************** PS112260 1233 | * THIS ROUTINE SCANS THE SOURCE TO BE PS112270 1234 | * INSERTED,BUILDS PROTOTYPE IMAGE FOR PS112280 1235 | * INSERTION INTO A MACRO. PS112290 1236 | * ENTRY TO ROUTINE IS BSI SCDEF PS112300 1237 | * INDEX 3 IS EXPECTED TO POINT TO PS112310 1238 | * CONSTANT AREA. XR2 HAS COL. COUNT.XR1 PS112320 1239 | * IS LOST. XR1 IS USED AS A POINTER PS112330 1240 | * TO CARD AREA. XR2 IS SCRATCH REGISTER PS112340 1241 | * ON EXIT, PROTOTYPE FORM OF CARD IMAGE PS112350 1242 | * IS IN PTBUF PS112360 1243 | *************************************************** PS112370 04F9 0000 1244 | SCDEF DC *-* ENTRY POINT PS112380 04FA 6A3B 1245 | STX 2 COUNT SAVE COUNT AND PS112390 04FB 6A37 1246 | STX 2 EXIT+1 FOR EXIT RESTORE PS112400 1247 | * PS112410 04FC 6206 1248 | LDX 2 6 SET FIELD TALLY COUNT PS112420 04FD 6E00 0595 1249 | STX L2 FLDCT PS112430 1250 | * PS112431 04FF 6500 11E4 1251 | LDX L1 SAREA+20 SET XR1 TO COLUMN 21 2-11 PS112441 1252 | * PS112460 0501 1010 1253 | DEFX SLA 16 CLEAR CHARACTER COUNT PS112470 0502 D3F2 1254 | STO 3 MCHA PS112480 1255 | * PS112490 0503 6D00 0539 1256 | DEFX6 STX L1 DEFX9 SAVE CURRENT POINTER PS112500 1257 | * PS112510 0505 6216 1258 | DEFX0 LDX X2 DEFX2-DEFX1 SET XR2 TO TABLE SIZE PS112520 0506 4400 068E 1259 | BSI L MCCSN ENTER BASIC SCAN PS112530 1260 | *************************************************** PS112540 1261 | * THE FOLLOWING IS A LIST OF TERMINATOR PS112550 1262 | * AND THEIR RESPECTIVE BRANCH POINTS. PS112560 1263 | *************************************************** PS112570 0508 0040 1264 | DEFX1 DC . BLANK PS112580 0509 0548 1265 | DC DEFT1 GO TO DEFT1 PS112590 1266 | * PS112600 050A 006B 1267 | DC ., COMMA PS112610 050B 05E5 1268 | DC DEFT2 GO TO DEFT2 PS112620 1269 | * PS112630 050C 004B 1270 | DC .. PERIOD PS112640 050D 05EA 1271 | DC DEFT3 GO TO DEFT3 PS112650 1272 | * PS112660 050E 0061 1273 | DC ./ SLASH PS112670 050F 05E5 1274 | DC DEFT2 GO TO DEFT2 PS112680 1275 | * PS112690 0510 004E 1276 | DC /4E PLUS PS112700 0511 05E5 1277 | DC DEFT2 GO TO DEFT2 PS112710 1278 | * PS112720 0512 0050 1279 | DC /50 AMPERSAND (026 PLUS) PS112730 0513 0627 1280 | DC DEFAM PS112740 1281 | * PS112750 0514 005C 1282 | DC .* * PS112760 0515 05E5 1283 | DC DEFT2 GO TO DEFT2 PS112770 1284 | * PS112780 0516 0060 1285 | DC /60 MINUS PS112790 0517 05E5 1286 | DC DEFT2 GO TO DEFT2 PS112800 1287 | * PS112810 0518 005D 1288 | DC /5D LEFT PAREN PS112820 0519 05FD 1289 | DC DEFT5 GO TO DEFT5 PS112830 1290 | * PS112840 051A 004D 1291 | DC /4D RIGHT PAREN PS112850 051B 0603 1292 | DC DEFT6 GO TO DEFT6 PS112860 1293 | * PS112870 051C 007D 1294 | DC /7D APOSTROPHIE PS112880 051D 060A 1295 | DC DEFT7 GO TO DEFT7 PS112890 1296 | *************************************************** PS112900 1297 | * TABLE END PS112910 1298 | *************************************************** PS112920 051E 1299 | DEFX2 EQU * PS112930 051E 7401 116A 1300 | DEFX3 MDX L MCHAX,1 INCREMENT CHARACTER COUNT PS112940 0520 7101 1301 | DEFX4 MDX 1 1 INCREMENT COLUMN POINTER PS112950 0521 6D00 05B8 1302 | STX L1 DFTSV SAVE POINTER PS112960 1303 | * PS112970 0523 C3CC 1304 | LD 3 ASSW TEST FOR COMMENTS CARD PS112980 0524 4C18 0505 1305 | BSC L DEFX0,+- YES, SKIP COL 32 TEST PS112990 1306 | * PS113000 0526 C400 05B8 1307 | LD L DFTSV CHECK IF AT COLUMN 32 PS113010 0528 93D8 1308 | S 3 C32 * PS113020 0529 4C20 0505 1309 | BSC L DEFX0,Z NO,BRANCH TO CONTINUE PS113030 1310 | * PS113040 052B 406B 1311 | BSI STRNG YES, GO TO PLACE STRING PS113050 052C C328 1312 | LD 3 BLAN SET BLANK AS OP FIELD PS113060 052D 7049 1313 | MDX DFT18+1 TERMINATOR AND BRANCH PS113070 1314 | * PS113080 052E 7101 1315 | DFX10 MDX 1 1 INCREMENT POINTER R PS113090 052F 4400 05BB 1316 | DEFX5 BSI L PUTT GO TO PLACE CHARACTER PS113100 0531 70D1 1317 | MDX DEFX6 CONTINUE TO SCA PS113110 1318 | * PS113120 0532 6600 0000 1319 | EXIT LDX L2 *-* RESTOR XR2 PS113130 0534 4C80 04F9 1320 | BSC I SCDEF RETURN TO CALLING ROUTINE PS113140 0536 0000 1321 | COUNT DC *-* CHARACTER COUNT PS113150 1322 | *************************************************** PS113160 1323 | * ROUTINE TO PLACE STRING IF NOT A PS113170 1324 | * PARAMETER PS113180 1325 | *************************************************** PS113190 0537 0000 1326 | DEFX8 DC *-* PS113200 0538 6500 0000 1327 | LDX L1 *-* PICK UP START POINTER PS113210 0539 1328 | DEFX9 EQU *-1 PS113220 053A C100 1329 | DEFX7 LD 1 0 FETCH NEXT CHARACTER PS113230 053B D3D3 1330 | STO 3 CHAR PS113240 053C 4400 05BB 1331 | BSI L PUTT GO PLACE CHARACTER PS113250 053E 7101 1332 | MDX 1 1 INCREMENT POINTER PS113260 053F C3F2 1333 | LD 3 MCHA REDUCE COUNT PS113270 0540 9316 1334 | S 3 ONE LOOP IF NOT COMPLETE PS113280 0541 D3F2 1335 | STO 3 MCHA SAVE NEW COUNT PS113290 0542 4C98 0537 1336 | BSC I DEFX8,+- PS113300 0544 70F5 1337 | MDX DEFX7 EXIT ROUTINE PS113310 0545 07F2 1338 | BUFAD DC PAREA+13 START OF CARD IMAGE 2-11 PS113312 0546 004B 1339 | PAR4B DC /004B HEX PERIOD 212 PS113314 0547 11E4 1340 | ADDR1 DC SAREA+20 ADDRESS OF COL 21 2-11 PS113316 1342 | *************************************************** PS113324 1343 | * * PS113330 1344 | *ROUTINE FOR PROCESSING BLANK TERMINATOR. ENTERED* PS113335 1345 | * FROM SCAN VIA SYNTAX TABLE IN CALLING * PS113340 1346 | * SEQUENCE. * PS113345 1347 | * * PS113350 1348 | *************************************************** PS113360 0548 1350 | DEFT1 EQU * PS113370 0548 4400 0597 1351 | BSI L STRNG CHECK FOR PARAMETER PS113380 054A C3CC 1352 | LD 3 ASSW PS113390 054B 4C18 055A 1353 | BSC L DFT15,+- BRANCH IF COMMENTS CARD PS113400 054D 74FF 0595 1354 | DFT11 MDX L FLDCT,-1 DEC AND TEST FIELD COUNT PS113410 054F 7026 1355 | MDX DFT18 ELSE DO STEP 8 (DFT18) PS113420 0550 7400 1153 1356 | DFT12 MDX L EBCSX,0 IF EBC OR DMES STATEMENT PS113430 0552 7007 1357 | MDX DFT15 *PASS BLANK PS113440 0553 7400 1168 1358 | DFT13 MDX L LPCTX,0 IF WITHIN PARENTHESIS PS113450 0555 7004 1359 | MDX DFT15 *PASS BLANKS PS113460 0556 7400 114F 1360 | DFT14 MDX L CSWX,0 IF COMMENTS ARE TO BE PS113470 0558 7001 1361 | MDX DFT15 *CARRIED, PASS BLANKS PS113480 0559 7015 1362 | MDX DFT17 ELSE, GO TO STEP 7*DFT17 PS113490 1363 | * PS113500 055A C3DC 1364 | DFT15 LD 3 ECD COMPARE CURRENT POSITION PS113510 055B 905C 1365 | S DFTSV *WITH END OF CARD PS113520 055C 4C08 056F 1366 | BSC L DFT17,+ IF AT END, BRANCH PS113530 055E C316 1367 | LD 3 X0001 SET FIELD COUNT TO 1 PS113540 055F D035 1368 | STO FLDCT FOR OPERAND FIELD PS113550 0560 1010 1369 | DFT16 SLA 16 ELSE, CLEAR CHARACTER PS113560 0561 D3F2 1370 | STO 3 MCHA *COUNT, FETCH CHARACTER PS113570 0562 1371 | DF16B EQU * * PS113580 0562 C100 1372 | LD 1 0 *AND RETURN PS113590 0563 D3D3 1373 | STO 3 CHAR *06 PS113600 0564 70C9 1374 | MDX DFX10 *TO CONTINUE PROCESS PS113610 1375 | * PS113620 0565 4C18 0585 1376 | DF16A BSC L FT-2,+- IF ZERO,BRANCH TO DO PUT PS113630 0567 931B 1377 | S 3 C2 TEST FOR COLUMN 34 PS113640 0568 4C20 0587 1378 | BSC L FT,Z BRANCH IF NO PS113650 056A D3F2 1379 | STO 3 MCHA CLEAR CHARACTER COUNT PS113660 056B 7101 1380 | MDX 1 1 INCREMENT POINTER TO SKIP PS113670 056C C316 1381 | LD 3 X0001 SET FIELD COUNT TO 1 PS113680 056D D027 1382 | STO FLDCT FOR OPERAND FIELD PS113690 056E 7094 1383 | MDX DEFX6 CONTINUE SCAN PS113700 1384 | * PS113710 056F C340 1385 | DFT17 LD 3 FD SET END OF CARD INDICATOR PS113720 0570 D3D3 1386 | STO 3 CHAR *INTO PROTOTYPE PS113730 1387 | * PS113740 0571 1010 1388 | SLA 16 CLEAR EBC-DMES COMMENT PS113750 0572 D3D4 1389 | STO 3 COM *TYPE SWTICH PS113760 0573 D3DB 1390 | STO 3 EBCS *01 PS113770 1391 | * PS113780 0574 4046 1392 | BSI PUTT GO TO PLACE CHAR PS113790 0575 70BC 1393 | MDX EXIT EXIT SCANNER ROUTINE PS113800 1394 | * PS113810 0576 C100 1395 | DFT18 LD 1 0 FETCH TERMINATOR PS113820 0577 D3D3 1396 | STO 3 CHAR *AND SAVE FOR ENTRY TO PUT PS113830 1397 | * PS113840 0578 C03F 1398 | DF18A LD DFTSV PS113850 0579 93D8 1399 | S 3 C32 32 OR BEYOND (33 OR PS113860 057A 4C10 0565 1400 | BSC L DF16A,- *34)PLACE BLANK PS113870 057C 831E 1401 | A 3 L5 ELSE IF 27 OR GREATER PS113880 057D 4C10 0582 1402 | BSC L DFT8X,- *BRANCH TO SET TO COLUMN 32 PS113890 057F 6500 11EA 1403 | LDX L1 SAREA+26 SET TO COLUMN 27 PS113900 0581 7010 1404 | MDX DFT8Y PS113910 1405 | * PS113920 0582 6500 11EF 1406 | DFT8X LDX L1 SAREA+31 SET TO COLUMN 32 PS113930 0584 C3D4 1407 | LD 3 COM SET EBC SWTICH PS113940 0585 D3DB 1408 | STO 3 EBCS PS113950 0586 4034 1409 | BSI PUTT GO TO PLACE CHAR PS113960 0587 69B1 1410 | FT STX 1 DEFX9 SET CURRENT POSITION PS113970 0588 C100 1411 | LD 1 0 TEST FOR SLASH PS113980 0589 F32C 1412 | EOR 3 SLSH IF YES, GO TO / PROCESS PS113990 058A 4C18 05E5 1413 | BSC L DEFT2,+- *ROUTINE PS114000 058C C316 1414 | LD 3 ONE SET CHARACTER COUNT = 1 PS114010 058D D3F2 1415 | STO 3 MCHA *TO PROCESS FLAG OR TAG PS114020 058E 4008 1416 | BSI STRNG *FIELDS PS114030 058F 7101 1417 | MDX 1 1 BUMP POINTER PS114040 0590 6927 1418 | STX 1 DFTSV SET FOR TEST AT DFT18A PS114050 0591 70E6 1419 | MDX DF18A BRANCH TO TEST PS114060 1420 | * PS114070 0592 1010 1421 | DFT8Y SLA 16 CLEAR CHARACTER COUNT PS114080 0593 D3F2 1422 | STO 3 MCHA *SWITCH AND RETURN PS114090 0594 709A 1423 | MDX DEFX5 PS114100 1424 | * PS114110 0595 0000 1425 | FLDCT DC *-* FIELD COUNT PS114120 0596 70C9 1426 | DFT8Z MDX DFT16 212 PS114130 0597 0000 1427 | STRNG DC *-* ENTRY PS114140 0598 691F 1428 | STX 1 DFTSV SAVE X1 PS114150 0599 C3F2 1429 | STNG1 LD 3 MCHA IF MCHA=0, NO STRING PS114160 059A 4C18 05B7 1430 | BSC L STNG4,+- *PRESENT, EXIT PS114170 059C 6580 0539 1431 | LDX I1 DEFX9 SET X1 AS POINTER PS114180 059E 4400 0639 1432 | BSI L PCHEK CHECK FOR PARAMETER PS114190 05A0 4C30 05B2 1433 | BSC L STNG3,-Z YES, PROCESS PARAMETER PS114200 05A2 C3C9 1434 | STG11 LD 3 AMPS NO, TEST IF AMPERSAND PS114215 05A3 4C18 05B0 1435 | BSC L STNG2,+- NO, GO PLACE STRING PS114220 05A5 C32E 1436 | LD 3 CAMP YES, GET AMPERSAND PS114230 05A6 D3D3 1437 | STO 3 CHAR *AND PS114240 05A7 4013 1438 | BSI PUTT *PUT IN PLACE PS114250 05A8 74FF 116A 1439 | MDX L MCHAX,-1 DECREMENT COUNT PS114260 05AA 1000 1440 | NOP ALLOW FOR SKIP PS114270 05AB 7401 0539 1441 | MDX L DEFX9,1 POINT TO NEXT CHARACTER PS114280 05AD 1010 1442 | SLA 16 CLEAR AMPERSAND SWITCH PS114290 05AE D3C9 1443 | STO 3 AMPS * PS114300 05AF 70E9 1444 | MDX STNG1 TEST WITHOUT AMPERSAND PS114310 1445 | * PS114320 05B0 4400 0537 1446 | STNG2 BSI L DEFX8 GO PLACE STRING PS114330 05B2 D3D3 1447 | STNG3 STO 3 CHAR STORE PARAM NO. OR ZERO PS114340 05B3 4420 05BB 1448 | BSI L PUTT,Z PLACE PARAMETER NO. PS114350 05B5 1010 1449 | SLA 16 CLEAR AMPERSAND SWITCH PS114360 05B6 D3C9 1450 | STO 3 AMPS * PS114370 05B7 6500 0000 1451 | STNG4 LDX L1 *-* RESTORE XR1 PS114380 05B8 1452 | DFTSV EQU *-1 PS114390 05B9 4C80 0597 1453 | BSC I STRNG EXIT PS114400 1454 | * PS114410 1455 | *************************************************** PS114420 1456 | * ROUTINE TO CALL PUTCH AND UPDATE * PS114430 1457 | * LIBRARY AND SECTOR BALANCE COUNTS * PS114440 1458 | * FOR OVERFLOW PROTECTION * PS114450 1459 | *************************************************** PS114460 05BB 0000 1460 | PUTT DC *-* ENTRY PS114470 05BC 4400 08C9 1461 | BSI L PUTCH PUT CHARACTER PS114480 05BE 74FF 1181 1462 | MDX L SBALX,-1 DECREMEN SECTOR BALANCE PS114490 05C0 7008 1463 | MDX PUTTX NO SKIP, BRANCH TO EXIT PS114500 05C1 C3EA 1464 | LD 3 LBAL FETCH SECTOR BALANCE AND PS114510 05C2 9316 1465 | S 3 C1 *DECREMENT PS114520 05C3 4C18 05CB 1466 | BSC L PUTTY,+- TEST OVERFLOW, BR IF 0 PS114530 05C5 D3EA 1467 | STO 3 LBAL SAVE PS114540 05C6 C349 1468 | LD 3 D640 PS114550 05C7 931B 1469 | S 3 C2 PS114560 05C8 D309 1470 | STO 3 SBAL PS114570 05C9 4C80 05BB 1471 | PUTTX BSC I PUTT EXIT PS114580 1472 | * PS114590 05CB C3C8 1473 | PUTTY LD 3 ADSW TEST FOR ADD PS114600 05CC 4CA0 05BB 1474 | BSC I PUTT,Z YES, RETURN PS114610 05CE CBAC 1475 | LDD 3 DTMP RESTORE OPT FOR PS114620 05CF DBB8 1476 | STD 3 OPT PUT TO PLACE IN OUTPUT PS114630 05D0 D3EE 1477 | STO 3 LPSW SET FOR LIBRARY FLUSH PS114640 05D1 D3ED 1478 | STO 3 LNRS SET LIB NAME RESET SW PS114650 05D2 C30B 1479 | LD 3 SPOV TEST IF SPILL OVERFLOW PS114660 05D3 4C20 05E2 1480 | BSC L PUTTO,Z YES, GO TO SPILL MSG PS114670 05D5 4380 1481 | BSI 3 EPRT PRINT OVERFLOW MESSAGE PS114680 05D6 101F 1482 | DC EM2 PS114690 1483 | * PS114700 05D7 C341 1484 | PUTTZ LD 3 X00FE MOVE OUT CURRENT MACRO PS114710 05D8 4400 08E4 1485 | BSI L MOVE * PS114720 05DA 1010 1486 | SLA 16 RESET INSERT/DELETE SWITCH PS114730 05DB D3E4 1487 | STO 3 INDL * PS114740 05DC 4400 0B97 1488 | BSI L UPDAT FLUSH CURRENT LIBRARY PS114750 05DE D3ED 1489 | STO 3 LNRS RESET LIB NAME RESET SW PS114760 05DF D30B 1490 | STO 3 SPOV RESET SPILL OVERFLOW SWITCH PS114770 05E0 4C00 09D7 1491 | BSC L B071 GO RESET ADD & FLUSH CDS PS114780 1492 | * PS114790 05E2 4380 1493 | PUTTO BSI 3 EPRT PRINT SPILL OVERFLOW MSG PS114800 05E3 102B 1494 | DC EM3 PS114810 05E4 70F2 1495 | MDX PUTTZ GO FLUSH LIBRARY PS114820 1496 | * PS114830 1497 | *************************************************** PS114840 1498 | * PROCESS GENERAL TERMINATORS AS PS114850 1499 | * FOLLOWS , + - * - / PS114860 1500 | *************************************************** PS114870 05E5 1501 | DEFT2 EQU * PS114880 05E5 4400 0597 1502 | BSI L STRNG CHECK FOR PARAMETER PS114890 05E7 4C00 0560 1503 | BSC L DFT16 PS114900 1505 | *************************************************** PS114920 1506 | * PROCESS PERIOD TERMINATOR. ACTS AS * PS114930 1507 | * A GENERAL CONCATENATOR * PS114940 1508 | *************************************************** PS114950 05E9 0000 1509 | DECSW DC *-* NON-ZERO IF DEC OR XFLC PS114960 05EA 7400 116A 1511 | DEFT3 MDX L MCHAX,0 IF 0, NO CONCATENATION 212 PS114987 05EC 7001 1512 | MDX DFT32 PROCESS AS CONCATENATOR PS114989 05ED 70A8 1513 | MDX DFT8Z 212 PS114992 05EE 7400 1153 1514 | DFT32 MDX L EBCSX,0 212 PS115025 05F0 70F4 1515 | MDX DEFT2 YES-BRANCH PS115030 05F1 C0F7 1516 | LD DECSW NO, TEST IF DEC OR XFLC PS115040 05F2 4C18 05F8 1517 | BSC L DFT33,+- NO, TREAT AS CONCATENATOR PS115050 05F4 1010 1518 | DFT43 SLA 16 YES CLEAR DEC-XFLC SWITCH PS115060 05F5 D0F3 1519 | STO DECSW * PS115070 05F6 4C00 051E 1520 | BSC L DEFX3 TREAT AS ANY OTHER CHAR PS115080 05F8 4400 0597 1521 | DFT33 BSI L STRNG CHECK FOR PARAMETER PS115090 05FA 7101 1522 | MDX 1 1 INCREMENT POINTER 2-11 PS115106 05FB 4C00 0501 1523 | BSC L DEFX CONTINUE SCAN TO NEXT PS115110 1524 | * PS115120 1525 | *************************************************** PS115130 1526 | * SCAN ROUTINE * PS115140 1527 | * ROUTINE TO PROCESS LEFT PAREN TERM. * PS115150 1528 | * ENTERED FROM SCAN (MCCSN) VIA SYNTAX* PS115160 1529 | * TABLE IN CALLING SEQUENCE * PS115170 1530 | *************************************************** PS115180 05FD 7400 1153 1531 | DEFT5 MDX L EBCSX,0 IF EBC OR DMES, EXIT TO PS115190 05FF 7002 1532 | MDX *+2 PROCESS AS STANDARD TERM. PS115200 0600 7401 1168 1533 | MDX L LPCTX,1 BUMP LEFT PAREN COUNT PS115210 0602 70E2 1534 | DFT53 MDX DEFT2 PS115220 1536 | *************************************************** PS115240 1537 | * ROUTINE TO PROCESS RIGHT PAREN. SAME* PS115250 1538 | * AS DEFT5 EXCEPT LEFT PAREN COUNT IS * PS115260 1539 | * DECREMENTED * PS115270 1540 | *************************************************** PS115280 0603 7400 1153 1541 | DEFT6 MDX L EBCSX,0 CHECK FOR EBC OR DMES, IF PS115290 0605 7003 1542 | MDX *+3 *NO, SKIP. ELSE EXIT PS115300 0606 74FF 1168 1543 | MDX L LPCTX,-1 DECREMENT PAREN COUNT PS115310 0608 7000 1544 | MDX * MAY SKIP PS115320 0609 70F8 1545 | MDX DFT53 RETURN TO PROCESS AS PS115330 1546 | * NORMAL TERMINATOR PS115340 1548 | *************************************************** PS115360 1549 | * ROUTINE TO PROCESS APOSTROPHIE * PS115370 1550 | * IF AN EBC OR DMES, PASS CHARACTER. * PS115380 1551 | * IF NOT SET PROPER NAME GENERATION * PS115390 1552 | * FLAG. FC IF MCHA IS 0, FB IF NOT * PS115400 1553 | *************************************************** PS115410 060A C3DB 1554 | DEFT7 LD 3 EBCS IF EBC SWITCH OR 2PS115420 060B EBFC 1555 | OR 3 NSTS *NEST SWITCH ARE NON-ZERO01 PS115430 060C 4C20 0613 1556 | BSC L DFT71,Z BRANCH TO PASS QUOTE PS115440 060E C33F 1557 | LD 3 FC NO EBC OR DMES, TEST MCHA PS115450 060F 7400 116A 1558 | MDX L MCHAX,0 IF SKIP USE FC PS115460 0611 9316 1559 | S 3 ONE NO-MAKE FB PS115470 0612 D100 1560 | STO 1 0 SAVE CHARACTER AND PS115480 0613 1561 | DFT71 EQU * PS115490 0613 C3F2 1562 | LD 3 MCHA IF MCHA 0, BRANCH PS115500 0614 4C18 0562 1563 | BSC L DF16B,+- PS115510 0616 4400 0597 1564 | BSI L STRNG CHECK FOR PARAMETER PS115520 0618 1010 1565 | SLA 16 CLEAR MCHA PS115530 0619 D3F2 1566 | STO 3 MCHA PS115540 061A C3DB 1567 | LD 3 EBCS IF EBC,DMES OR NESTED PS115550 061B EBFC 1568 | OR 3 NSTS DEFINITION, BRANCH TO PS115560 061C 4C20 0562 1569 | BSC L DF16B,Z PASS QUOTE PS115570 061E C400 0595 1570 | LD L FLDCT REDUCE FIELD SIZE PS115580 0620 9316 1571 | S 3 ONE PS115590 0621 4C18 0562 1572 | BSC L DF16B,+- IF LAST FIELD,PROCESS PS115600 0623 D400 0595 1573 | STO L FLDCT ELSE STORE AND RETURN TO PS115610 0625 4C00 0576 1574 | BSC L DFT18 *SET FIELD PS115620 1576 | *************************************************** PS115640 1577 | * PROCESS AMPERSAND PS115650 1578 | *************************************************** PS115660 0627 C3F2 1579 | DEFAM LD 3 MCHA TEST IF CHARACTER COUNT=0 PS115670 0628 4420 0597 1580 | BSI L STRNG,Z NO, GO TO PROCESS STRING PS115680 062A C316 1581 | LD 3 ONE PS115690 062B D3C9 1582 | STO 3 AMPS AMPERSAND SWITCH PS115700 062C D3F2 1583 | STO 3 MCHA CHARACTER COUNT PS115710 062D 6D00 0539 1584 | STX L1 DEFX9 SAVE STARTING ADDRESS PS115720 062F 7101 1585 | MDX 1 1 POINT TO NEXT CHARACTER PS115730 0630 4C00 0505 1586 | BSC L DEFX0 PS115740 0632 1010 1587 | DFAM1 SLA 16 CLEAR MCHA PS115750 0633 D3F2 1588 | STO 3 MCHA PS115760 0634 6D00 0539 1589 | STX L1 DEFX9 STORE POINTER PS115770 0636 4C00 051E 1590 | BSC L DEFX3 RETURN TO SCAN PS115780 PCHEK 1592 | *************************************************** PS115800 1593 | * PARAMETER CHECK ROUTINE PS115810 1594 | *************************************************** PS115820 0638 0000 1595 | PNUM DC *-* PS115830 0639 0000 1596 | PCHEK DC *-* ENTRY PS115840 063A 691B 1597 | STX 1 PCSV1 SAVE INDEX PS115850 063B 6A1C 1598 | STX 2 PCSV2 *REGISTERS PS115860 1599 | * PS115870 063C 6201 1600 | LDX 2 1 SET COUNT TO 1 PS115880 063D 6AFA 1601 | STX 2 PNUM PS115890 063E 6600 01E3 1602 | LDX L2 PBUFF+1 SETUP XR2 AS A POINTER PS115900 0640 C2FF 1603 | LD 2 -1 PS115910 0641 4C08 0655 1604 | PC00 BSC L PCEXT,+ IF COUNT ZERO OR -,EXIT PS115920 0643 9200 1605 | S 2 0 SUBTRACT NO. CHAR THIS PS115930 0644 18D0 1606 | RTE 16 *PARAMETER AND STORE IN Q PS115940 0645 C200 1607 | LD 2 0 FETCH COUNT THIS PARA PS115950 0646 D3F6 1608 | STO 3 NAMC SAVE PS115960 0647 93F2 1609 | S 3 MCHA COMPARE WITH MCHA PS115970 0648 7201 1610 | MDX 2 1 BUMP POINTER PS115980 0649 4C20 065B 1611 | BSC L PC03,Z IF NOT EQUAL BRANCH PS115990 064B C200 1612 | PC01 LD 2 0 ELSE COMPARE CHARACTERS PS116000 064C 9100 1613 | S 1 0 PS116010 064D 4C20 065B 1614 | BSC L PC03,Z BRANCH NO COMPARE PS116020 064F 7201 1615 | MDX 2 1 BUMP BOTH PS116030 0650 7101 1616 | MDX 1 1 *POINTERS PS116040 0651 74FF 116E 1617 | MDX L NAMCX,-1 DECREMENT COUNT PS116050 0653 70F7 1618 | MDX PC01 LOOP PS116060 0654 C0E3 1619 | LD PNUM PICK UP PARA NUMBER PS116070 0655 6500 0000 1620 | PCEXT LDX L1 *-* RESTORE REGISTERS PS116080 0656 1621 | PCSV1 EQU *-1 PS116090 0657 6600 0000 1622 | LDX L2 *-* PS116100 0658 1623 | PCSV2 EQU *-1 PS116110 0659 4C80 0639 1624 | BSC I PCHEK AND EXIT ROUTINE PS116120 065B 7401 0638 1625 | PC03 MDX L PNUM,1 INCREMENT PARA NUM PS116130 065D 7680 116E 1626 | MDX I2 NAMCX INCREMENT POINTER PS116140 065F 18D0 1627 | RTE 16 LOAD ACC FROM Q PS116150 0660 9316 1628 | S 3 ONE DECREMENT TO ACCT FOR CNT PS116160 0661 6580 0656 1629 | LDX I1 PCSV1 REFRESH XR1 PS116170 0663 70DD 1630 | MDX PC00 LOOP BACK TO TEST NEXT PS116180 MACRO NAME SCAN 1632 | *************************************************** PS116200 1633 | * MSNSC CHECKS FOR VALID MACRO NAMES * PS116210 1634 | * IN ADD, PURGE, OUTPUT, RENAME, AND * PS116220 1635 | * UPDATE CONTROL STATEMENTS. THE 1ST * PS116230 1636 | * NON-BLANK COL MUST BE A QUOTE, NAME * PS116240 1637 | * CHAR'S CANNOT BE PERIOD, COMMA, LEFT* PS116250 1638 | * OR RIGHT PARENTHESIS, AND THE NAME * PS116260 1639 | * MUST END WITH A QUOTE. * PS116270 1640 | *************************************************** PS116280 0664 0000 1641 | MSNSC DC *-* ENTRY POINT PS116290 0665 6580 117F 1642 | LDX I1 RPTX XR1 = ADDR OF 1ST NONBLANK PS116300 0667 C100 1643 | LD 1 0 GET FIRST CHARACTER PS116310 0668 F32D 1644 | EOR 3 QUOT TEST FOR QUOTE PS116320 0669 4C20 0689 1645 | BSC L MSNER,Z NOT QUOTE, ERROR PS116330 066B 7101 1646 | MDX 1 1 BUMP TO NEXT CHARACTER PS116340 066C C100 1647 | LD 1 0 TEST FOR QUOTE PS116350 066D F32D 1648 | EOR 3 QUOT * PS116360 066E 4C18 0689 1649 | BSC L MSNER,+- ERROR IF QUOTE ('') PS116370 0670 C31E 1650 | LD 3 L5 SET FIELD LENGTH PS116380 0671 D01B 1651 | STO MSNCT * PS116390 0672 620A 1652 | MSNLP LDX 2 10 SET TABLE LENGTH PS116400 0673 4400 068E 1653 | BSI L MCCSN SCAN A CHARACTER PS116410 0675 004B 1654 | DC .. PERIOD PS116420 0676 0689 1655 | DC MSNER *IS AN ERROR PS116430 1656 | * PS116440 0677 006B 1657 | DC ., COMMA PS116450 0678 0689 1658 | DC MSNER *IS AN ERROR PS116460 1659 | * PS116470 0679 004D 1660 | DC .( LEFT PARENTHESIS PS116480 067A 0689 1661 | DC MSNER *IS AN ERROR PS116490 1662 | * PS116500 067B 005D 1663 | DC .) RIGHT PARENTHESIS PS116510 067C 0689 1664 | DC MSNER *IS AN ERROR PS116520 1665 | * PS116530 067D 007D 1666 | DC .' QUOTE PS116540 067E 0687 1667 | DC MSNRT *IS ONLY VALID TERMINATOR PS116550 1668 | * PS116560 067F 7101 1669 | MDX 1 1 BUMP CHARACTER POINTER PS116570 0680 74FF 068D 1670 | MDX L MSNCT,-1 DECREMENT CHARACTER COUNT PS116580 0682 70EF 1671 | MDX MSNLP CONTINUE SCAN PS116590 0683 C100 1672 | LD 1 0 TEST FOR TRAILING QUOTE PS116600 0684 F32D 1673 | EOR 3 QUOT * PS116610 0685 4C20 0689 1674 | BSC L MSNER,Z ERROR IF NOT PS116620 0687 4C80 0664 1675 | MSNRT BSC I MSNSC RETURN PS116630 1676 | * PS116640 0689 4380 1677 | MSNER BSI 3 EPRT PRINT INVALID NAME PS116650 068A 10D1 1678 | DC EM15 *MESSAGE PS116660 068B 4C00 026F 1679 | BSC L MUP09 READ NEXT CONTROL STATEMENT PS116670 068D 0000 1680 | MSNCT DC *-* CHARACTER COUNT PS116680 BASIC SCAN ROUTINE 1682 | *************************************************** PS116700 1683 | * BASIC SCAN ROUTINE * PS116710 1684 | * TO ENTER-XR1 POINTS TO CHARACTER* PS116720 1685 | * XR2 NO OF WORDS IN * PS116730 1686 | * SYNTAX LIST * PS116740 1687 | * BSI MCCSW * PS116750 1688 | * DC TERM1 * PS116760 1689 | * DC ADDR1 SYNTAX LIST * PS116770 1690 | * DC TERM2 * PS116780 1691 | * DC ADDR2 * PS116790 1692 | * 0 BIT ON IN TERM INDICATES SUBROUTINE PS116800 1693 | * LINKAGE IS TO BE BUILT - CALLED * PS116810 1694 | * SUBROUTINE RETURNS TO THE ADDRESS 2 * PS116820 1695 | * WORDS BEYOND ENTRY POINT ADDRESSS. * PS116830 1696 | *************************************************** PS116840 068E 0000 1698 | MCCSN DC *-* PS116860 068F 6A0D 1699 | STX 2 MCSN2 SET UP COUNT PS116870 0690 6680 068E 1700 | LDX I2 MCCSN FETCH CALLING LIST POINTER PS116880 0692 C100 1701 | MCSN1 LD 1 0 CHECK CHARACTER PS116890 0693 F200 1702 | EOR 2 0 AGAINST LIST PS116900 0694 4C28 069E 1703 | BSC L SUBSN,+Z IF MINUS, SUBROUTINE CALL PS116910 0696 4E98 0001 1704 | BSC I2 1,+- IF EQUAL, EXIT VIA LIST PS116920 0698 1705 | MCSN3 EQU * PS116930 0698 7202 1706 | MDX 2 2 STEP THROUGH LIST PS116940 0699 74FE 069D 1707 | MDX L MCSN2,-2 DECREMENT COUNT PS116950 069B 70F6 1708 | MDX MCSN1 LIST NOT DONE, LOOP BACK PS116960 069C 4E00 0000 1709 | BSC L2 0 RETURN TO CALLING ROUTINE PS116970 1710 | * PS116980 069D 1711 | MCSN2 EQU *-1 FOUND, EXIT PS116990 069E 7201 1712 | SUBSN MDX 2 1 ACCOUNT FOR EXTRA WORD PS117000 069F 74FF 069D 1713 | MDX L MCSN2,-1 *IN CALLING SEQUENCE PS117010 06A1 E342 1714 | AND 3 X00FF MASK OUT FLAGS PS117020 06A2 4C20 0698 1715 | BSC L MCSN3,Z IF NOT EQUAL, BRANCH PS117030 06A4 6A02 1716 | STX 2 *+2 SAVE ENTRY POINT INDEX PS117040 06A5 C201 1717 | LD 2 1 GET RETURN POINT PS117050 06A6 6680 0000 1718 | LDX I2 *-* ENTRY POINT TO INDEX PS117060 06A8 D200 1719 | STO 2 0 SET RETURN FOR CALLEE PS117070 06A9 4E00 0001 1720 | BSC L2 1 ENTER CALLEE PS117080 PRINT ROUTINES 1722 | *************************************************** PS117100 1723 | * ROUTINE TO FORMAT PRINTING OF PS117110 1724 | * PROTOTYPE STATEMENTS. PS117120 1725 | * ENTRY- BSI PRNTC XR3 IS EXPECTED TO PS117130 1726 | * POINT TO CONSTANT AREA. USES PRINT. PS117140 1727 | *************************************************** PS117150 06AB 0000 1728 | PRNTC DC *-* ENTRY POINT PS117160 06AC D3D3 1729 | STO 3 CHAR SAVE INPUT CHARACTER PS117170 06AD 7400 1182 1730 | MDX L SKSWX,0 PS117180 06AF 7023 1731 | MDX SVX1 PS117190 06B0 6A20 1732 | STX 2 SVX2+1 PS117200 06B1 C3E3 1733 | LD 3 IND PS117210 06B2 4C20 06BC 1734 | BSC L PTC1,Z TO PRINT IF NOT FIRST TIME PS117220 06B4 C400 0545 1735 | LD L BUFAD LOAD POINTER FOR CARD 212 PS117224 06B6 D3D5 1736 | STO 3 CPP AND STORE 212 PS117226 06B7 7401 115B 1737 | MDX L INDX,1 UPDATE FIELD INDICATOR PS117230 06B9 C3D3 1738 | LD 3 CHAR PS117240 06BA F32A 1739 | EOR 3 ASTK PS117250 06BB D3CC 1740 | STO 3 ASSW SET SW=0 IF ASTERISK PS117260 06BC C3D3 1741 | PTC1 LD 3 CHAR LOAD CHARACTER 212 PS117276 06BD 43A2 1742 | BSI 3 PRNT PLACE CHARACTER PS117280 06BE C3CC 1743 | PTC2 LD 3 ASSW LOAD ASTERISK SWITCH 2-11 PS117290 06BF 4C18 06D0 1744 | BSC L SVX2,+- AND TEST PS117300 06C1 C3D3 1745 | LD 3 CHAR PS117310 06C2 F328 1746 | EOR 3 BLAN IS IT BLANK PS117320 06C3 4C18 06D5 1747 | BSC L CHEK,+- YES, BRANCH PS117330 06C5 C3E3 1748 | LD 3 IND NO, FETCH INDICATOR PS117340 06C6 931C 1749 | S 3 L3 IS IT 3 OR GREATER PS117350 06C7 4C10 06D5 1750 | BSC L CHEK,- YES, BRANCH PS117360 06C9 C3D3 1751 | LD 3 CHAR PS117370 06CA 933E 1752 | S 3 FB IS CHARACTER FB PS117380 06CB 4C18 06D5 1753 | BSC L CHEK,+- YES, BRANCH PS117390 06CD 7002 1754 | MDX SVX2 EXIT IF COMMENTS CARD PS117400 1755 | * PS117410 1756 | *************************************************** PS117420 1757 | * ROUTINE TO SET INDICATOR AND EXIT * PS117430 1758 | * VIA PRINT * PS117440 1759 | *************************************************** PS117450 06CE 7401 115B 1760 | SETI MDX L INDX,1 UPDATE FIELD INDICATOR PS117460 06D0 6600 0000 1761 | SVX2 LDX L2 *-* RESTORE XR2 PS117470 06D2 C3D3 1762 | LD 3 CHAR FETCH CHARACTER PS117480 06D3 4C80 06AB 1763 | SVX1 BSC I PRNTC EXIT PS117490 1764 | * CHECK ROUTINE PS117500 06D5 C3E3 1765 | CHEK LD 3 IND FETCH INDICATOR PS117510 06D6 6600 06DA 1766 | LDX L2 BRCH COMPUTE BRANCH TABLE PS117520 06D8 D001 1767 | STO *+1 *LOCATION AND EXECUTE PS117530 06D9 4E80 0000 1768 | BSC I2 *-* *BRANCH PS117540 06DA 1769 | BRCH EQU *-1 PS117550 06DB 06E0 1770 | DC IND1 PS117560 06DC 06E5 1771 | DC IND2 PS117570 06DD 06CE 1772 | DC SETI PS117580 06DE 06EA 1773 | DC IND4 PS117590 06DF 06D0 1774 | DC SVX2 PS117600 06E0 6206 1775 | IND1 LDX 2 6 POINT TO POSITION 27 PS117610 06E1 C0FF 1776 | LD *-1 212 PS117612 06E2 D400 08C4 1777 | STO L GET1 SET PARM FOUND SWITCH 212 PS117614 06E4 700B 1778 | MDX SETIX+1 * PS117620 06E5 6209 1779 | IND2 LDX 2 9 PS117630 06E6 C0FF 1780 | LD *-1 212 PS117632 06E7 D400 08C4 1781 | STO L GET1 SET PARM FOUND SWITCH 212 PS117634 06E9 7005 1782 | MDX SETIX PS117640 06EA 1783 | IND4 EQU * PS117650 06EA 620A 1784 | LDX 2 10 POINT TO POSITION 35 PS117660 06EB C0FF 1785 | LD *-1 212 PS117662 06EC D400 08C4 1786 | STO L GET1 SET PARM FOUND SWITCH 212 PS117664 06EE 7001 1787 | MDX SETIX+1 * PS117670 06EF 1010 1788 | SETIX SLA 16 PS117680 06F0 D303 1789 | STO 3 PRTSW POSITION LEFT OR RIGHT CHAR PS117690 06F1 C305 1790 | LD 3 P9RT SET UP PRINT POSITION PS117700 06F2 6A03 1791 | STX 2 P9SVP *POINTER BASED ON PS117710 06F3 8002 1792 | A P9SVP *COUNT IN XR2 PS117720 06F4 D3D5 1793 | STO 3 CPP PS117730 06F5 70D8 1794 | MDX SETI PS117740 06F6 0000 1795 | P9SVP DC *-* PS117750 1796 | * PS117760 PRNTN 1798 | *************************************************** PS117780 1799 | * * PS117790 1800 | *PRNTN - THIS ENTRY FETCHES THE SEQUENCE NUMBER, * PS117800 1801 | * CONVERTS IT TO EBCDIC, AND PLACES IT IN THE * PS117810 1802 | * PRINT BUFFER. * PS117815 1803 | * * PS117820 1804 | *************************************************** PS117830 1805 | * PS117840 06F7 0000 1806 | PRNTN DC *-* ENTRY POINT PS117850 06F8 6A0E 1807 | STX 2 PRTN2+1 SAVE INDEX 2 PS117870 06F9 C3D2 1808 | LD 3 CDNO LOAD CARD NUMBER 2-11 PS117878 06FA 6205 1809 | LDX 2 5 PS117880 06FB 18D0 1810 | RTE 16 ACC TO Q PS117890 06FC 1010 1811 | PRTN1 SLA 16 CLEAR ACC PS117900 06FD AE00 118D 1812 | D L2 L1-1 DIVIDE BY TABLE TO CONVT. PS117910 06FF DBB6 1813 | STD 3 OPCD SAVE Q PS117920 0700 EB3C 1814 | OR 3 F0 FORM EBCDIC DIGIT IN ACC PS117930 0701 4400 081F 1815 | BSI L P9MVE GO TO CONVERT,STASH,PRINT PS117940 0703 CBB6 1816 | LDD 3 OPCD RESTORE Q REGISTER PS117950 0704 72FF 1817 | MDX 2 -1 LOOP TILL 5 CHARACTERS PS117960 0705 70F6 1818 | MDX PRTN1 *HAVE BEEN CONVERTED PS117970 0706 6600 0000 1819 | PRTN2 LDX L2 *-* RESTORE INDEX 2 PS118020 0708 4C80 06F7 1820 | BSC I PRNTN RETURN PS118030 1821 | * PS118040 PRIN1 1823 | *************************************************** PS118060 1824 | * * PS118070 1825 | *PRIN1 - THIS IS THE MAIN PRINT ENTRY POINT. ENTER* PS118080 1826 | * WITH AN EBCDIC CHARACTER IN THE ACCUMULATOR. * PS118090 1827 | * ON RETURN, THE ACCUMULATOR AND INDEX REGISTERS* PS118100 1828 | * ARE RESTORED. INDEX REGISTER 3 IS EXPECTED TO* PS118110 1829 | * POINT TO THE CONSTANT AREA. A CHARACTER IS * PS118120 1830 | * PLACED IN THE PRINT BUFFER. THESE CHARACTERS * PS118130 1831 | * ARE TREATED AS FOLLOWS: FB AND FC ARE APOS- * PS118140 1832 | * TROPHES, FD CAUSES A LINE TO BE PRINTED, AND * PS118150 1833 | * FE CAUSES A MACRO END OR LIBRARY END MESSAGE * PS118160 1834 | * TO BE PRINTED. * PS118170 1835 | * * PS118175 1836 | *************************************************** PS118180 1837 | * PS118190 070A 0000 1838 | PRIN1 DC *-* ENTRY PS118200 070B 4C98 070A 1839 | BSC I PRIN1,+- EXIT PRINT ROUTINE IF ZERO PS118210 070D D3D3 1840 | STO 3 CHAR PS118220 070E 1886 1841 | SRT 6 PS118230 070F 4C18 072A 1842 | BSC L PSUB,+- BRANCH IF PARAMETER PS118240 0711 C3D3 1843 | LD 3 CHAR PS118250 0712 933D 1844 | S 3 FA TEST IF GREATER THAN FA PS118260 0713 4C28 0726 1845 | BSC L PRNT1,+Z BRANCH IF NOT PS118270 0715 931C 1846 | S 3 L3 TEST IF LESS THAN FD. PS118280 0716 4C28 0724 1847 | BSC L PRNT2,+Z BRANCH IF YES. PS118290 0718 4C20 07AA 1848 | BSC L PRNT3,Z BRANCH IF GREATER THAN FD. PS118300 071A 6700 1178 1849 | PRTND LDX L3 D RESET INDEX 3 TO CON AREA PS118310 071C C328 1850 | LD 3 BLAN PLACE BLANK TO INSURE PS118320 071D 4400 081F 1851 | BSI L P9MVE *FULL WORD PS118330 071F 4400 0842 1852 | BSI L TV3 GO TO PRINT ROUTINE PS118340 0721 C3D3 1853 | PRNTX LD 3 CHAR FETCH CHARACTER AND EXIT PS118350 0722 4C80 070A 1854 | BSC I PRIN1 *TO CALLING PROGRAM. PS118360 1856 | *************************************************** PS118380 1857 | * SET FB AND FC TO QUOTE PS118390 1858 | *************************************************** PS118400 1859 | * PS118410 0724 C32D 1860 | PRNT2 LD 3 QUOT PS118420 0725 7001 1861 | MDX PRNT1+1 PS118430 1862 | * PS118440 1863 | *************************************************** PS118450 1864 | * GO TO PLACE INTO PRINT BUFFER. * PS118460 1865 | *************************************************** PS118470 1866 | * PS118480 0726 C3D3 1867 | PRNT1 LD 3 CHAR PS118490 0727 4400 081F 1868 | BSI L P9MVE BRANCH TO CONVERT PS118500 0729 70F7 1869 | MDX PRNTX PS118510 1870 | * PS118520 072A 1871 | PSUB EQU * PS118530 072A C400 01E2 1872 | LD L PBUFF IF PBUFF NON ZERO,GO TO PS118540 072C 4420 075D 1873 | BSI L STGIN,Z *CHECK FOR PARAMETER STRING PS118550 072E C3C8 1874 | PSUBX LD 3 ADSW TEST IF ADD OR INSERT PS118560 072F 4C20 0734 1875 | BSC L PSUBY,Z YES, SKIP OUTPUT TEST PS118570 0731 C3FE 1876 | LD 3 OPSW TEST FOR OUTPUT PS118580 0732 4C20 0D19 1877 | BSC L OUT35,Z ABORT OUTPUT IF SO PS118590 0734 6C00 1169 1878 | PSUBY STX L LSWX SET LIST ERROR SWITCH PS118600 0736 C32C 1879 | LD 3 SLSH PS118610 0737 4400 081F 1880 | BSI L P9MVE OUTPUT FIRST / PS118620 0739 C32C 1881 | LD 3 SLSH PS118630 073A 4400 081F 1882 | BSI L P9MVE OUTPUT SECOND / PS118640 073C C3D3 1883 | LD 3 CHAR PS118650 073D 9317 1884 | S 3 L10 IS NUMBER LESS THAN 10 PS118660 073E 4C10 0745 1885 | BSC L PSUB2,- NO BRANCH PS118670 0740 8317 1886 | A 3 L10 YES, REFRESH PS118680 0741 EB3C 1887 | PSUB1 OR 3 F0 MAKE EBCDIC FORM PS118690 0742 4400 081F 1888 | BSI L P9MVE *AND OUTPUT PS118700 0744 70DC 1889 | MDX PRNTX EXIT PS118710 0745 D30E 1890 | PSUB2 STO 3 TEMP SAVE RESIDUE PS118720 0746 C316 1891 | LD 3 ONE FETCH 1 PS118730 0747 D3F2 1892 | STO 3 MCHA HIGH DIGIT AT LEAST ONE PS118740 0748 C30E 1893 | LD 3 TEMP FETCH RESIDUE PS118750 0749 9317 1894 | PSUB3 S 3 L10 LESS 10 PS118760 074A 4C28 0750 1895 | BSC L PSUB4,+Z IF MINUS, DONE-EXIT LOOP PS118770 074C D30E 1896 | STO 3 TEMP SAVE RESIDUE IF + OR 0 PS118780 074D 7401 116A 1897 | MDX L MCHAX,1 BUMP HIGH DIGIT PS118790 074F 70F9 1898 | MDX PSUB3 LOOP FOR NEXT PS118800 0750 C3F2 1899 | PSUB4 LD 3 MCHA FETCH HIGH DIGIT AND PS118810 0751 EB3C 1900 | OR 3 F0 *FORM EBCDIC CHARACTER PS118820 0752 4400 081F 1901 | BSI L P9MVE OUTPUT PS118830 0754 C30E 1902 | LD 3 TEMP FETCH RESIDUE PS118840 0755 70EB 1903 | MDX PSUB1 GO TO OUTPUT AND EXIT PS118850 0756 0000 1904 | TEST DC *-* ENTRY POINT 212 PS118851 0757 D077 1905 | STO TEMPS SAVE FOR LATER USE 212 PS118852 0758 9075 1906 | S C1HEX TEST FOR A-Z OR 0-9 212 PS118860 0759 4828 1907 | BSC +Z INSERT PERIOD IF YES 212 PS118870 075A 7041 1908 | MDX STX02 CONTINUE 212 PS118871 075B 4C80 0756 1909 | BSC I TEST RETURN 212 PS118872 1910 | *************************************************** PS118879 1911 | * * PS118880 1912 | * NAME STATEMENT. PS118890 1913 | *ROUTINE TO SUBSTITUTE CHARACTER STRING FOR PARAM-* PS118900 1914 | * ETER AS SPECIFIED BY A NAME STATEMENT. * PS118903 1915 | * * PS118904 1916 | *************************************************** PS118905 075D 0000 1918 | STGIN DC *-* ENTRY POINT PS118910 075E 6600 01E2 1919 | LDX L2 PBUFF SET POINTER PS118920 0760 C3D3 1920 | LD 3 CHAR PS118930 0761 D30E 1921 | STO 3 TEMP PS118940 0762 C2FF 1922 | LD 2 -1 NO. OF PARAMETERS PS118950 0763 93D3 1923 | S 3 CHAR IF CURRENT EXCEEDS NO. PS118960 0764 4CA8 075D 1924 | BSC I STGIN,+Z *SPECIFIED BY NAME, EXIT PS118970 0766 7201 1925 | STG01 MDX 2 1 STEP TO STRING COUNT PS118980 0767 C200 1926 | LD 2 0 FETCH COUNT AND SAVE AS PS118990 0768 D03F 1927 | STO STGCT *INDEX VALUE PS119000 0769 74FF 1186 1928 | MDX L TEMPX,-1 DECREMENT CURRENT, WHEN PS119010 076B 703B 1929 | MDX STG03 *ZERO SKIP TO PROC.,OR LOOP PS119020 076C 4C98 075D 1930 | BSC I STGIN,+- IF COUNT=0 EXIT PS119030 076E C3E3 1931 | LD 3 IND GET FIELD COUNT PS119040 076F 931C 1932 | S 3 X0003 TEST FOR 3 OR GREATER PS119050 0770 4C28 0779 1933 | BSC L STG04,+Z NO, SKIP FURTHER TEST 212 PS119060 0772 9316 1934 | S 3 X0001 YES, IS IT 3-4 (FLAG-TAG) PS119070 0773 4C30 0779 1935 | BP STG04 NO, SKIP FURTHER TEST 212 PS119080 0775 C200 1936 | LD 2 0 FLAG/TAG, TEST STRING COUNT PS119090 0776 9316 1937 | S 3 X0001 * PS119100 0777 4C20 072E 1938 | BSC L PSUBX,Z GREATER THAN 1, DONT USE PS119110 0779 6A23 1939 | STG04 STX 2 STX02+1 SAVE XR2 212 PS119111 077A 6680 114D 1940 | LDX I2 CPPX POINT TO OUTPUT BUFFER 212 PS119112 077C 7400 117B 1941 | MDX L PTSWX,0 CHAR IN PREV WORD, SKIP 212 PS119113 077E 700A 1942 | MDX STG05 SAVE WORD - BRANCH 212 PS119114 077F C2FF 1943 | LD 2 -1 PICK UP PREVIOUS 212 PS119115 0780 1008 1944 | SLA 8 ISOLATE 212 PS119116 0781 1808 1945 | SRA 8 *CHARACTER 212 PS119117 0782 40D3 1946 | BSI TEST TEST FOR ALPHANUMERIC 212 PS119118 0783 C04C 1947 | LD CN4B LOAD EBCDIC PERIOD 212 PS119119 0784 1008 1948 | SLA 8 SHIFT INTO POSITION 212 PS119120 0785 D200 1949 | STO 2 0 SAVE IN OUTPUT BUFFER 212 PS119121 0786 C000 1950 | LD * RESET PRINT 212 PS119122 0787 D303 1951 | STO 3 PRTSW *SWITCH 212 PS119123 0788 7013 1952 | MDX STX02 RESTORE XR2 212 PS119124 0789 C200 1953 | STG05 LD 2 0 LOAD PREV CHAR 212 PS119125 078A 1808 1954 | SRA 8 ISOLATE IT 212 PS119126 078B 40CA 1955 | BSI TEST TEST FOR ALPHANUMERIC 212 PS119127 078C C200 1956 | LD 2 0 LOAD PREV CHAR 212 PS119128 078D 1808 1957 | SRA 8 ISOLATE INTO 212 PS119129 078E 1008 1958 | SLA 8 *LEFT 8 BITS 212 PS119130 078F E840 1959 | OR CN4B OR WITH EBCDIC PERIOD 212 PS119131 0790 D200 1960 | STO 2 0 RESTORE IN OUTPUT BUFFER212 PS119132 0791 7401 114D 1961 | MDX L CPPX,1 INCREMENT OUTPUT POINTER212 PS119133 0793 C3D5 1962 | LD 3 CPP LOAD POINTER 212 PS119134 0794 9300 1963 | S 3 PLOC TEST FOR END 212 PS119135 0795 9323 1964 | S 3 D40 *OF LINE 212 PS119136 0796 4830 1965 | BSC Z- SKIP IF NOT 212 PS119137 0797 9316 1966 | S 3 ONE SUBTRACT ONE 212 PS119138 0798 8323 1967 | A 3 D40 RESTORE CHAR COUNG 212 PS119139 0799 D04A 1968 | STO PAREA-1 STORE IN WD COUNT 212 PS119140 079A 1010 1969 | SLA 16 RESET HI/LO 212 PS119141 079B D303 1970 | STO 3 PRTSW SWITCH 212 PS119142 079C 6600 0000 1971 | STX02 LDX L2 *-* RESTORE XR2 212 PS119143 079E C201 1972 | STG02 LD 2 1 FETCH CHAR 212 PS119145 079F 4400 081F 1973 | BSI L P9MVE *AND PLACE 212 PS119146 07A1 7201 1974 | MDX 2 1 MODIFY POINTER 212 PS119147 07A2 74FF 07A8 1975 | MDX L STGCT,-1 *AND COUNT PS119150 07A4 70F9 1976 | MDX STG02 LOOP TILL DONE PS119160 07A5 4C00 0721 1977 | BSC L PRNTX EXIT ROUTINE PS119170 07A7 7600 0000 1978 | STG03 MDX L2 *-* BUMP POINTER PAST THIS PS119180 07A8 1979 | STGCT EQU *-1 *PARAMETER AND LOOP PS119190 07A9 70BC 1980 | MDX STG01 *TO PROCESS NEXT PS119200 1981 | *************************************************** PS119210 1982 | * PRINT END MESSAGE FOR FE PS119220 1983 | *************************************************** PS119230 07AA 1984 | PRNT3 EQU * PS119240 07AA C3A2 1985 | LD 3 PRNT PS119250 07AB D01F 1986 | STO P3SV SAVE PRINT EXIT PS119260 07AC C400 07F1 1987 | LD L PAREA+12 TEST FOR LIB END. IF SO PS119270 1988 | * PRINT POS 22 IS BLANK. IF PS119280 1989 | * NOT, ITS NUMERIC. PS119290 07AE F352 1990 | EOR 3 X4000 TEST FOR BLANK PS119300 07AF 1808 1991 | SRA 8 IGNORE RIGHT 8 BITS PS119310 07B0 4C20 07BF 1992 | BSC L PRNT4,Z BRANCH IF NOT PS119320 07B2 C3C8 1993 | PMES2 LD 3 ADSW TEST FOR ADD PS119330 07B3 4C20 07CC 1994 | BSC L PRNT6,Z IF SO, SKIP LIB END PRINT PS119340 07B5 C3E8 1995 | LD 3 JSW TEST FOR JOIN PS119350 07B6 4C18 07CC 1996 | BSC L PRNT6,+- IF SO, SKIP LIB END PRINT PS119360 07B8 1010 1997 | SLA 16 PS119370 07B9 D034 1998 | STO PAREA+9 CLEAR INSERT X IF THERE PS119380 07BA 6C00 117C 1999 | STX L P21X PRINT IN POSITION 21 PS119390 07BC 4380 2000 | BSI 3 EPRT PRINT LIBRARY END MESSAGE PS119400 07BD 0816 2001 | DC MESS2 PS119410 07BE 7009 2002 | MDX PRNT5 SKIP MACRO END PS119420 07BF 6C00 117C 2003 | PRNT4 STX L P21X PRINT IN POSITION 21 PS119430 07C1 6500 07F2 2004 | LDX L1 PAREA+13 RESET PRINT POSITION TO PS119440 07C3 6D00 114D 2005 | STX L1 CPPX *POSITION 27 PS119450 07C5 D303 2006 | STO 3 PRTSW SET PRINT SWITCH NON-ZERO PS119460 07C6 4380 2007 | BSI 3 EPRT PRINT MACRO END MESSAGE PS119470 07C7 080E 2008 | DC MESS PS119480 07C8 C341 2009 | PRNT5 LD 3 X00FE PS119490 07C9 D3D3 2010 | STO 3 CHAR RESTORE FE PS119500 07CA 4C00 0000 2011 | BSC L *-* EXIT PRINT ROUTINE PS119510 07CB 2012 | P3SV EQU *-1 PRINT EXIT SAVE PS119520 07CC 4004 2013 | PRNT6 BSI PTINT REINITIALIZE PRINT PS119530 07CD 70FA 2014 | MDX PRNT5 RETURN PS119540 07CE 00C1 2015 | C1HEX DC /C1 EBCDIC 'A' 212 PS119544 07CF 0000 2016 | TEMPS DC *-* TEMPORARY SAVE 212 PS119545 07D0 004B 2017 | CN4B DC /4B PERIOD CONSTANT 212 PS119548 PTINT 2019 | *************************************************** PS119560 2020 | * SUBROUTINE TO RE-INITIALIZE PRINT PS119570 2021 | * ROUTINE. RESETS COUNT AND POINTER, PS119580 2022 | *************************************************** PS119590 07D1 0000 2023 | PTINT DC *-* ENTRY POINT PS119600 07D2 1010 2024 | SLA 16 CLEAR PS119610 07D3 D303 2025 | STO 3 PRTSW *POSITION SWITCH AND PS119620 07D4 D3E3 2026 | STO 3 IND *CLEAR POSIT. INDICATOR PS119630 07D5 C34C 2027 | LD 3 H4040 LOAD EBCDIC BLANKS PS119640 07D6 632A 2028 | LDX 3 42 CLEAR PRINT FPS119650 07D7 D700 07E3 2029 | PTCL STO L3 PAREA-2 *BUFFER PS119660 07D9 73FF 2030 | MDX 3 -1 * PS119670 07DA 70FC 2031 | MDX PTCL * PS119680 07DB 6700 1178 2032 | LDX L3 D RESTORE XR3 PS119690 07DD C305 2033 | LD 3 P9RT SET POINTER TO POINT PS119700 07DE D3D5 2034 | STO 3 CPP *TO PAREA PS119710 07DF D3CC 2035 | STO 3 ASSW RESET * SWITCH PS119720 07E0 C312 2036 | LD 3 TV4P SET ADDRESS IN PRINT PS119730 07E1 D06B 2037 | STO TV4 *CALLING SEQUENCE PS119740 07E2 4C80 07D1 2038 | BSC I PTINT EXIT ROUTINE PS119750 07E4 0000 2039 | DC *-* PS119760 07E5 2040 | PAREA BSS 41 PS119770 2041 | * PS119780 2042 | *************************************************** PS119790 2043 | * MACRO FND MESSAGE, PRINTED WHEN AN PS119800 2044 | * FE IS ENCOUNTERED PS119810 2045 | *************************************************** PS119820 2046 | * PS119830 080E 5C5C 40D4 C1C3 D9D6 2047 | MESS EBC .** MACRO END *. PS119840 40C5 D5C4 405C | 0815 5CFD 2048 | DC /5CFD * AND /FD (PRINT TERMINATOR PS119850 2049 | *************************************************** PS119860 2050 | * LIBRARY END MESSAGE. PRINTED WHEN * PS119870 2051 | * FE IS ENCOUNTERED AND PRINT POS 22 * PS119880 2052 | * IS BLANK. * PS119890 2053 | *************************************************** PS119900 0816 5C5C 40D3 C9C2 D9C1 2054 | MESS2 EBC .** LIBRARY END *. PS119910 D9E8 40C5 D5C4 405C | 081E 5CFD 2055 | DC /5CFD * AND /FD (PRINT TERMINATOR PS119920 2056 | * PS119930 081F 0000 2057 | P9MVE DC *-* PS119940 0820 6A1E 2058 | STX 2 XR2 PS119950 0821 6680 114D 2059 | LDX I2 CPPX PTR TO CURRENT PRINT POS PS119960 0823 7400 117B 2060 | MDX L PTSWX,0 PS119970 0825 7004 2061 | MDX PMVE1 LO ORDER CHARACTER PS119980 0826 1008 2062 | SLA 8 POSITION TO HI ORDER PS119990 0827 D200 2063 | STO 2 0 PLACE PS120000 0828 C328 2064 | LD 3 BLAN NON-ZERO FOR PTSW PS120010 0829 7013 2065 | MDX PMVEX PS120020 082A EA00 2066 | PMVE1 OR 2 0 BRING IN HI ORDER PS120030 082B D200 2067 | STO 2 0 PLACE HI AND LO PS120040 082C C3D5 2068 | LD 3 CPP PS120050 082D 8316 2069 | A 3 ONE PS120060 082E D3D5 2070 | STO 3 CPP UPDATE PRINT POSITION PS120070 082F 9300 2071 | S 3 PLOC PS120080 0830 9323 2072 | S 3 D40 PS120090 0831 4830 2073 | BSC -Z SKIP IF NOT END OF LINE PS120100 0832 9316 2074 | S 3 ONE BACK UP PS120110 0833 8323 2075 | A 3 D40 PS120120 0834 D0AF 2076 | STO PAREA-1 UPDATE PRINT CHAR COUNT PS120130 0835 C0B8 2077 | LD PAREA+9 LOAD COLUMN 9 OF PRBUF 2-11 PS120131 0836 F339 2078 | EOR 3 HE740 EOR WITH 'X' 2-11 PS120132 0837 1808 2079 | SRA 8 SHIFT RIGHT 8 BITS 2-11 PS120133 0838 4C20 083C 2080 | BSC L PMVE2,Z NOT ZERO, SKIP 2-11 PS120134 083A C324 2081 | LD 3 X0029 LOAD CONSTANT OF 41 2-12 PS120135 083B D0A8 2082 | STO PAREA-1 STORE LENGTH OF BUFFER 2-12 PS120136 083C 1010 2083 | PMVE2 SLA 16 ZERO FOR PTSW PS120140 083D D303 2084 | PMVEX STO 3 PRTSW SET HI/LO SWITCH PS120150 083E 6600 0000 2085 | LDX L2 *-* RESTORE INDEX REG 2 PS120160 083F 2086 | XR2 EQU *-1 PS120170 0840 4C80 081F 2087 | BSC I P9MVE EXIT PS120180 TV3 LINK TO PRINT ROUTINE 2089 | *************************************************** PS120200 2090 | * LINK TO SYSTEM PRINT INTERFACE. * PS120210 2091 | *************************************************** PS120220 2092 | * PS120230 0842 0000 2093 | TV3 DC *-* PS120240 0843 C400 1176 2094 | LD L OPSWX OUTPUT SWITCH PS120250 0845 4C18 084B 2095 | BSC L TV35,+- PRINT IF NOT DOING OUTPUT PS120260 0847 C400 1164 2096 | LD L LF50X IF OUTPUT, TEST TEMPORARY PS120270 0849 4C98 0842 2097 | BSC I TV3,+- *PRINT SW - EXIT IF OFF PS120280 084B 2098 | TV35 EQU * PS120290 084B 4480 7DBB 2099 | BSI I PRINT PRINT FROM PAREA PS120300 084D 2100 | TV4 EQU * PS120310 084D 07E4 2101 | DC PAREA-1 PS120320 084E 6700 1178 2102 | LDX L3 D RESTORE INDEX 3 PS120330 0850 C3FE 2103 | LD 3 OPSW TEST IF OUTPUT PS120340 0851 4CA0 0842 2104 | BSC I TV3,Z SKIP INITIALIZATION IF SO PS120350 0853 4400 07D1 2105 | BSI L PTINT RE-INITIALIZE PRINT ROUT PS120360 0855 4C80 0842 2106 | BSC I TV3 PS120370 2107 | * PS120380 2108 | * PS120390 2109 | * PS120400 0857 0000 2110 | SPACE DC *-* SPACE 1 LINE PS120410 0858 4480 7DB5 2111 | BSI I LINE TO LINE SPACE ROUTINE PS120420 085A 6700 1178 2112 | LDX L3 D RESTORE INDEX 3 PS120430 085C 4C80 0857 2113 | BSC I SPACE PS120440 2114 | * PS120450 085E 0000 2115 | RPAGE DC *-* PS120460 085F 4480 7DB8 2116 | BSI I PAGE TO PAGE RESTORE ROUTINE PS120470 0861 6700 1178 2117 | LDX L3 D RESTORE INDEX 3 PS120480 0863 4C80 085E 2118 | BSC I RPAGE PS120490 CRPRT 2120 | *************************************************** PS120510 2121 | * THIS ROUTINE PRINTS THE CONTROL * PS120520 2122 | * RECORD IN SAREA * PS120530 2123 | *************************************************** PS120540 2124 | * PS120550 0865 0000 2125 | CRPRT DC *-* PS120560 0866 C300 2126 | LD 3 PLOC RESET PRINT POSITION TO PS120570 0867 D3D5 2127 | STO 3 CPP *POSITION 1 PS120580 0868 4380 2128 | BSI 3 EPRT LINK TO PRINT ROUTINE PS120590 0869 11D0 2129 | DC SAREA * PS120600 086A 4C80 0865 2130 | BSC I CRPRT RETURN PS120610 PRINCIPAL INPUT READ ROUTINE 2132 | *************************************************** PS120630 2133 | * RDCRD READS A RECORD FROM THE * PS120640 2134 | * PRINCIPAL INPUT DEVICE. CHECKS FOR * PS120650 2135 | * MONITOR OR DUP CONTROL RECORD. IF * PS120660 2136 | * SO, THE MUP RUN IS TERMINATED UNLESS* PS120670 2137 | * ADD OR INSERT IS BEING DONE (THESE * PS120680 2138 | * REQUIRE HOUSEKEEPING BEFORE EXIT). * PS120690 2139 | * IF NOT // OR *, RECORD IS MOVED INTO* PS120700 2140 | * SAREA BUFFER. * PS120710 2141 | *************************************************** PS120720 086C 0000 2142 | RDCRD DC *-* CARD READ ENTRY POINT PS120730 086D 4480 7A0A 2143 | BSI I GETHO USE DUPCO READ ROUTINE PS120740 086F 7400 000F 2144 | MDX L $CTSW,0 TEST FOR MON CTL REC RD PS120750 0871 7020 2145 | MDX RD020 PS120760 2146 | * PS120770 0872 6500 7FA0 2147 | LDX L1 C RESTORE CATCO POINTER PS120780 0874 C157 2148 | LD 1 CRBUF GET INPUT BUFFER ADDRESS PS120790 0875 D400 1188 2149 | STO L TEMP4 SAVE IT PS120800 0877 6580 1188 2150 | LDX I1 TEMP4 PUT INTO INDEX REGISTER PS120810 0879 C101 2151 | LD 1 1 GET COLUMN 1 PS120820 087A F32A 2152 | EOR 3 ASTK TEST FOR * PS120830 087B 4818 2153 | BSC +- SKIP IF NOT * PS120840 087C 701D 2154 | MDX RD030 FOUND *, SET SWITCH PS120850 2155 | * PS120860 087D 6250 2156 | LDX 2 80 LOAD AMOUNT OF DATA MOVED PS120870 087E 7150 2157 | MDX 1 80 LOCATE LAST CARD COLUMN PS120880 087F C100 2158 | CNTIN LD 1 0 MOVE A WORD TO THE MUP PS120890 0880 D600 11CF 2159 | STO L2 SAREA-1 *INPUT BUFFER PS120900 0882 71FF 2160 | MDX 1 -1 DECREMENT ADDRESSES PS120910 0883 72FF 2161 | MDX 2 -1 *AND SKIP WHEN MOVE DONE PS120920 0884 70FA 2162 | MDX CNTIN * PS120930 2163 | * PS120940 0885 6580 7FF7 2164 | LDX I1 CRBUF+C GET BUFFER ADDRESS PS120950 0887 C101 2165 | LD 1 1 GET COLUMN 1 PS120960 0888 F32B 2166 | EOR 3 DOT TEST FOR . (COMMENT) PS120970 0889 4C20 0890 2167 | BSC L RD010,Z BRANCH IF NO PS120980 088B C3E2 2168 | LD 3 FLSW TEST FLUSH SWITCH PS120990 088C 4820 2169 | BSC Z NOT SET, SKIP TO PRINT PS121000 088D 7002 2170 | MDX RD010 SET, RETURN PS121010 088E 40D6 2171 | BSI CRPRT PRINT COMMENT PS121020 088F 70DD 2172 | MDX RDCRD+1 READ NEXT CONTROL RECORD PS121030 0890 4C80 086C 2173 | RD010 BSC I RDCRD RETURN PS121040 2174 | *************************************************** PS121050 2175 | * MONITOR CONTROL RECORD READ PS121060 2176 | *************************************************** PS121070 0892 C3E4 2177 | RD020 LD 3 INDL TEST IF DOING INSERT PS121080 0893 4CA0 086C 2178 | BSC I RDCRD,Z EXIT IF SO PS121090 0895 C3C8 2179 | LD 3 ADSW TEST IF DOING ADD PS121100 0896 4CA0 086C 2180 | BSC I RDCRD,Z EXIT IF SO PS121110 0898 4C00 0EA2 2181 | BSC L ENDUP OTHERWISE, END MUP RUN NOW PS121120 2182 | *************************************************** PS121130 2183 | * DUP CONTROL RECORD READ PS121140 2184 | *************************************************** PS121150 089A 6C00 7FDC 2185 | RD030 STX L DUPCR+C INDICATE DUP CONTROL RECORD PS121160 2186 | * *READ PS121170 089C 70F5 2187 | MDX RD020 TEST CONDITIONS PS121180 GETCH 2189 | *************************************************** PS121200 2190 | * GETCH PICKS UP THE NEXT INPUT CHARACTER PS121210 2191 | * VIA IPT AND GETS THE NEXT BUFFER IF PS121220 2192 | * NECESSARY. ON EXIT, IPT POINTS TO THE PS121230 2193 | * NEXT INPUT CHARACTER AND CHAR HOLDS PS121240 2194 | * THE CHARACTER GOTTEN. PS121250 2195 | *************************************************** PS121260 089D 0000 2196 | GETCH DC *-* PS121270 089E C3B0 2197 | LD 3 IPT PS121280 089F 93CF 2198 | S 3 CBUF PS121290 08A0 9347 2199 | S 3 C322 TEST IF BUFFER EMPTY PS121300 08A1 4418 095D 2200 | BSI L NXTBF,+- GET NEXT BUFFER IF SO PS121310 08A3 C480 1128 2201 | LD I IPTX PICK UP NEXT CHAR PS121320 08A5 7400 1129 2202 | MDX L ICSWX,0 TEST FOR HI ORDER PS121330 08A7 1008 2203 | SLA 8 NO, SHIFT IT THERE PS121340 08A8 1808 2204 | SRA 8 SHIFT TO LO ORDER PS121350 08A9 D3D3 2205 | STO 3 CHAR SAVE IT PS121360 08AA 901C 2206 | S GET4 ALPHAMERIC OR GREATER? 212 PS121361 08AB 4C28 08B9 2207 | BN GTCH1 NO 212 PS121362 08AD C3D3 2208 | LD 3 CHAR RELOAD CHARACTER 212 PS121363 08AE 9019 2209 | S GET5 ALPHAMERIC? 212 PS121364 08AF 4C10 08B9 2210 | BNN GTCH1 NO 212 PS121365 08B1 C012 2211 | LD GET1 PARAM LAST FOUND 212 PS121366 08B2 4C20 08B9 2212 | BNZ GTCH1 NO, CONTINUE 212 PS121367 08B4 C0FF 2213 | LD *-1 YES 212 PS121368 08B5 D00E 2214 | STO GET1 *RESET SWITCH 212 PS121369 08B6 C00F 2215 | LD GET3 LOAD PERIOD 212 PS121370 08B7 4400 081F 2216 | BSI L P9MVE 212 PS121371 08B9 C3D3 2217 | GTCH1 LD 3 CHAR RELOAD CHARACTER 212 PS121372 08BA E00A 2218 | AND GET2 CHECK FOR PARAMETER 212 PS121373 08BB D008 2219 | STO GET1 SAVE RESULT IN INDICATOR212 PS121374 08BC C3B0 2220 | LD 3 IPT PS121375 08BD 83B1 2221 | A 3 ICSW PS121380 08BE D3B0 2222 | STO 3 IPT UPDATE IPT, IF NECESSARY PS121390 08BF C3B1 2223 | LD 3 ICSW PS121400 08C0 F316 2224 | EOR 3 X0001 PS121410 08C1 D3B1 2225 | STO 3 ICSW FLIP ALIGNMENT SWITCH PS121420 08C2 4C80 089D 2226 | GTCH2 BSC I GETCH EXIT PS121430 08C4 00F0 2227 | GET1 DC /00F0 212 PS121432 08C5 00F0 2228 | GET2 DC /00F0 212 PS121434 08C6 004B 2229 | GET3 DC /004B PERIOD- 212 PS121436 08C7 00C1 2230 | GET4 DC /00C1 212 PS121437 08C8 00FA 2231 | GET5 DC /00FA 212 PS121438 PUTCH 2234 | *************************************************** PS121460 2235 | * PUTCH STORES THE DESIGNATED CHARACTER PS121470 2236 | * IN THE OUTPUT BUFFER, UPDATES THE PS121480 2237 | * OUTPUT POINTER, AND WRITES THE BUFFER PS121490 2238 | * IF NECESSARY. INPUT IS IN CHAR. PS121500 2239 | *************************************************** PS121510 08C9 0000 2240 | PUTCH DC *-* PS121520 08CA 7400 1182 2241 | MDX L SKSWX,0 PS121530 08CC 7015 2242 | MDX PUT5 EXIT IF SKIP MODE PS121540 08CD C3B8 2243 | LD 3 OPT PS121550 08CE 93BC 2244 | S 3 OUT PS121560 08CF 9347 2245 | S 3 C322 PS121570 08D0 4418 09A2 2246 | BSI L BFOUT,+- FLUSH BUFFER IF FULL PS121580 08D2 C480 1130 2247 | LD I OPTX PS121590 08D4 1898 2248 | SRT 24 POSITION POSSIBLE HI CHAR PS121600 08D5 C3D3 2249 | LD 3 CHAR NEW CHAR PS121610 08D6 1008 2250 | SLA 8 OK IF HI PS121620 08D7 7400 1131 2251 | MDX L OCSWX,0 TEST, SKIP IF HI PS121630 08D9 18C8 2252 | RTE 8 SHIFT IN HI, NEW IS LO PS121640 08DA D480 1130 2253 | STO I OPTX STORE RESULT PS121650 08DC C3B8 2254 | LD 3 OPT PS121660 08DD 83B9 2255 | A 3 OCSW PS121670 08DE D3B8 2256 | STO 3 OPT UPDATE OPT, IF NECESSARY PS121680 08DF C3B9 2257 | LD 3 OCSW PS121690 08E0 F316 2258 | EOR 3 ONE PS121700 08E1 D3B9 2259 | STO 3 OCSW FLIP HI/LO SWITCH PS121710 08E2 4C80 08C9 2260 | PUT5 BSC I PUTCH RETURN PS121720 MOVE 2263 | *************************************************** PS121750 2264 | * MOVE TRANSFERS CHARACTERS FROM INPUT PS121760 2265 | * TO OUTPUT AS DESIGNATED BY IPT AND PS121770 2266 | * OPT. IF THE SKIP SWITCH, SKSW, IS SET PS121780 2267 | * TRANSFER IS SUPPRESSED. CARDS ARE * PS121790 2268 | * PRINTED IF REQUESTED. TRANSFER IS * PS121800 2269 | * TERMINATED WHEN THE SUPPLIED OR A * PS121810 2270 | * HIGER TERMINATOR IS REACHED. THE * PS121820 2271 | * OUTPUT CARD NUMBER IS UPDATED. * PS121830 2272 | * *INPUT PARAMETERS * PS121840 2273 | * /00FE IN ACC. CAUSES MACRO * PS121850 2274 | * PROTOTYPE TO BE MOVED. * PS121860 2275 | * /00FD IN ACC. CAUSES 1 MACRO * PS121870 2276 | * STATEMENT TO BE MOVED. * PS121880 2277 | *************************************************** PS121890 08E4 0000 2278 | MOVE DC *-* PS121900 08E5 D311 2279 | STO 3 TERM SAVE TERMINATOR PS121910 08E6 C3F3 2280 | LD 3 MHSW PS121920 08E7 4CA0 08E4 2281 | BSC I MOVE,Z EXIT IF HDR MOVE NEEDED PS121930 2282 | * PS121940 08E9 C341 2283 | LD 3 X00FE PS121950 08EA D3D3 2284 | STO 3 CHAR SET /FE AS NEXT CHAR PS121960 08EB 7400 1185 2285 | MV2 MDX L SSWX,0 PS121970 08ED 7002 2286 | MDX MV1 BRANCH IF NO SEQ NUMBERS PS121980 08EE 7401 114E 2287 | MDX L CRDNX,1 UPDATE INPUT CARD NUMBER PS121990 08F0 7400 1176 2288 | MV1 MDX L OPSWX,0 SKIP IF NOT DOING OUTPUT PS122000 08F2 7003 2289 | MDX MV10 BRANCH IF DOING OUTPUT PS122010 08F3 7400 1182 2290 | MDX L SKSWX,0 PS122020 08F5 7005 2291 | MDX MV3 BRANCH IF NOT PUTTING PS122030 08F6 7401 114A 2292 | MV10 MDX L CDNOX,1 UPDATE OUTPUT CARD NUMBER PS122040 08F8 404E 2293 | BSI PTST CHECK IF PRINT REQUIRED PS122050 08F9 4420 06F7 2294 | BSI L PRNTN,Z PRINT SEQ NO. IF REQUIRED PS122060 08FB 2295 | MV3 EQU * PS122070 08FB 7400 1159 2296 | MDX L FESWX,0 TEST IF FE NEEDED PS122080 08FD 700D 2297 | MDX MV7 BRANCH IF SO PS122090 08FE 4400 089D 2298 | MV5 BSI L GETCH GET NEXT CHARACTER PS122100 0900 C316 2299 | LD 3 X0001 SET TO BUMP BALANCE PS122110 0901 7400 1182 2300 | MDX L SKSWX,0 *COUNT IF NOT PUTTING PS122120 0903 4050 2301 | BSI INSBL PS122130 0904 C3D3 2302 | LD 3 CHAR PS122140 0905 F342 2303 | EOR 3 X00FF PS122150 0906 4C20 090D 2304 | BSC L MV8,Z IF NOT END OF INPUT BUFFER PS122160 0908 4400 095D 2305 | BSI L NXTBF GET NEXT BUFFER PS122170 090A 70F3 2306 | MDX MV5 TRY AGAIN PS122180 2307 | * PS122190 090B 1010 2308 | MV7 SLA 16 PS122200 090C D3E1 2309 | STO 3 FESW CLEAR FE NEEDED SWITCH PS122210 2310 | * PS122220 090D C3D3 2311 | MV8 LD 3 CHAR PS122230 090E 4420 08C9 2312 | BSI L PUTCH,Z PUT CHARACTER IF NONZERO PS122240 0910 4036 2313 | BSI PTST CHECK IF PRINT REQUIRED PS122250 0911 4C18 0916 2314 | BSC L MV9,+- PS122260 0913 C3D3 2315 | LD 3 CHAR PS122270 0914 4400 06AB 2316 | BSI L PRNTC PRINT, PROTOTYPE MODE PS122280 2317 | * PS122290 0916 C3D3 2318 | MV9 LD 3 CHAR PS122300 0917 F341 2319 | EOR 3 X00FE PS122310 0918 4C20 093B 2320 | BSC L MV18,Z BRANCH IF NOT END OF MACRO PS122320 091A 7400 1182 2321 | MDX L SKSWX,0 TEST IF SKIP SW SET PS122330 091C 7011 2322 | MDX MV14 BRANCH IF SO (/FE PURGED) PS122340 091D D3D3 2323 | STO 3 CHAR PS122350 091E 4400 08C9 2324 | BSI L PUTCH PUT 00 PS122360 0920 1010 2325 | SLA 16 PS122370 0921 D3B9 2326 | STO 3 OCSW SET TO WORD BOUNDARY PS122380 0922 D3D2 2327 | STO 3 CDNO RESET CARD NUMBER PS122390 2328 | * PS122400 0923 C3BC 2329 | LD 3 OUT PS122410 0924 8345 2330 | A 3 C317 SEE IF ROOM PS122420 0925 93B8 2331 | S 3 OPT *FOR MACRO HEADER PS122430 0926 4C10 092E 2332 | BSC L MV14,- BRANCH IF OK PS122440 0928 C342 2333 | LD 3 X00FF PS122450 0929 D3D3 2334 | STO 3 CHAR PS122460 092A 4400 08C9 2335 | BSI L PUTCH PUT BUFFER TRUNCATOR PS122470 092C 4400 09A2 2336 | BSI L BFOUT FORCE OUT BUFFER PS122480 092E C341 2337 | MV14 LD 3 X00FE PS122490 092F D3F3 2338 | STO 3 MHSW SET HDR MOVE NEEDED PS122500 0930 9311 2339 | MV15 S 3 TERM PS122510 0931 4C98 08E4 2340 | BSC I MOVE,+- EXIT IF TERMINATOR OK PS122520 0933 C341 2341 | MV16 LD 3 X00FE PS122530 0934 D311 2342 | STO 3 TERM SET TERM TO /FE PS122540 0935 70FA 2343 | MDX MV15 PS122550 2344 | * PS122560 0936 C3D3 2345 | MV17 LD 3 CHAR GET CHARACTER PS122570 0937 F311 2346 | EOR 3 TERM PS122580 0938 4C98 08E4 2347 | BSC I MOVE,+- EXIT IF TERMINATOR REACHED PS122590 093A 70B0 2348 | MDX MV2 OTHERWISE, CONTINUE MOVE PS122600 2349 | * PS122610 093B C3D3 2350 | MV18 LD 3 CHAR GET CHARACTER PS122620 093C F340 2351 | EOR 3 X00FD PS122630 093D 4C20 08FE 2352 | BSC L MV5,Z BRANCH IF NOT END OF CARD PS122640 093F C3F1 2353 | LD 3 LSW TEST IF LIST ERROR PS122650 0940 4C18 0936 2354 | BSC L MV17,+- NO, SKIP ERROR MESSAGE PS122660 0942 4380 2355 | BSI 3 EPRT YES, PRINT INVALID PS122670 0943 10EB 2356 | DC EM17 *PARAMETER MESSAGE PS122680 0944 1010 2357 | SLA 16 CLEAR LIST ERROR SWITCH PS122690 0945 D3F1 2358 | STO 3 LSW * PS122700 0946 70EF 2359 | MDX MV17 END OF RECORD PS122710 2361 | *************************************************** PS122730 2362 | * CHECK IF PRINT REQUIRED. IF PSW IS * PS122740 2363 | * SET, PRINTING WILL ALWAYS BE DONE. * PS122750 2364 | * IF ISW IS SET, PRINTING WILL BE DONE* PS122760 2365 | * IF AN INSERT, DELETE OR ADD IS * PS122770 2366 | * BEING PROCESSED. * PS122780 2367 | *************************************************** PS122790 0947 0000 2368 | PTST DC *-* ENTRY POINT PS122800 0948 C301 2369 | LD 3 PSW SELECT P? PS122810 0949 4CA0 0947 2370 | BSC I PTST,Z PRINT IF YES PS122820 094B C3E7 2371 | LD 3 ISW NOT P, SELECT I? PS122830 094C 4C98 0947 2372 | BSC I PTST,+- NOT P OR I, SUPPRESS PRINT PS122840 094E C3E4 2373 | LD 3 INDL SEL I, INSERT OR DELETE? PS122850 094F 4CA0 0947 2374 | BSC I PTST,Z YES, PRINT PS122860 0951 C30D 2375 | LD 3 SSW NO, ARE WE DOING ADD PS122870 0952 4C80 0947 2376 | BSC I PTST YES, PRINT -- NO, SUPPRESS PS122880 2377 | *************************************************** PS122890 2378 | * INSBL ROUTINE. ENTER WITH COUNT * PS122900 2379 | * IN ACC. INCREMENTS * PS122910 2380 | * SECTOR BALANCE BY * PS122920 2381 | * THAT MANY BYTES * PS122930 2382 | *************************************************** PS122940 0954 0000 2383 | INSBL DC *-* ENTRY PS122950 0955 8309 2384 | A 3 SBAL ADD PREVIOUS SECTOR PS122960 0956 D309 2385 | INSB1 STO 3 SBAL *BALANCE AND STORE PS122970 0957 9349 2386 | S 3 D640 SUB 2*320 FOR BYTES/SECT PS122980 0958 4CA8 0954 2387 | BSC I INSBL,Z+ IF - EXIT PS122990 095A 7401 1162 2388 | MDX L LBALX,+1 ELSE BUMP LIB BALENCE BY PS123000 095C 70F9 2389 | MDX INSB1 *ONE AND LOOP PS123010 NXTBF 2391 | *************************************************** PS123030 2392 | * NXTBF GETS THE NEXT INPUT BUFFER FROM PS123040 2393 | * THE LIBRARY, OR FROM THE SPILL AREA * PS123050 2394 | * IF SPILL HAS OCCURRED. IT EXITS WITH* PS123060 2395 | * IPT POINTING TO THE NEXT BUFFER PAST* PS123070 2396 | * THE CHAIN WORD, AND NMAC CONTAINING * PS123080 2397 | * THE CHAIN WORD POINTER * PS123090 2398 | *************************************************** PS123100 095D 0000 2399 | NXTBF DC *-* PS123110 095E 6580 1147 2400 | LDX I1 CBUFX POINT TO CURRENT BUFFER PS123120 0960 6D00 117E 2401 | STX L1 RADDR SET BUFF AD. FOR READ 2-11 PS123125 0962 C3CF 2402 | LD 3 CBUF PS123130 0963 8347 2403 | A 3 C322 PS123140 0964 D3CF 2404 | NB1 STO 3 CBUF SET BUFFER POINTER PS123150 0965 F3CD 2405 | EOR 3 BEND TEST FOR END OF BUFFER LIST PS123160 0966 4C20 096B 2406 | BSC L NB2,Z BRANCH IF NOT PS123170 0968 D3E6 2407 | STO 3 INSW SET CYCLE SWITCH PS123180 0969 C3E5 2408 | LD 3 INLC POINT TO FIRST BUFFER PS123190 096A 70F9 2409 | MDX NB1 PS123200 096B C30C 2410 | NB2 LD 3 SPSW PS123210 096C 4C18 0994 2411 | BSC L NB12,+- BRANCH IF NO SPILL PS123220 2412 | *************************************************** PS123230 2413 | * READ FROM SPILL AREA * PS123240 2414 | *************************************************** PS123250 096E C3C6 2415 | LD 3 SPL1 PS123260 096F 8313 2416 | A 3 WORKS CALCULATE ACTUAL DISK ADDR PS123270 0970 D101 2417 | STO 1 1 SET BUFFER SA TO READ SPIL PS123280 0971 9313 2418 | S 3 WORKS RESET ADDRESS PS123290 0972 8316 2419 | A 3 C1 PS123300 0973 D3C6 2420 | STO 3 SPL1 UPDATE SPILL POINTER PS123310 0974 93E0 2421 | S 3 ESPL PS123320 0975 4818 2422 | BSC +- SKIP IF MORE SPILL AREA PS123330 0976 D3C6 2423 | STO 3 SPL1 RESET TO 1ST SECTOR PS123340 0977 C3C6 2424 | LD 3 SPL1 PS123350 0978 93C7 2425 | S 3 SPLN PS123360 0979 4C20 097E 2426 | BSC L NB5,Z BRANCH IF NOT LAST SPILL PS123370 097B D3C6 2427 | STO 3 SPL1 PS123380 097C D3C7 2428 | STO 3 SPLN PS123390 097D D30C 2429 | STO 3 SPSW RESET SPILL POINTERS PS123400 097E 2430 | NB5 EQU * PS123410 097E 2431 | NB10 EQU * PS123420 097E 4480 7DB2 2432 | BSI I ENTER SAVE ALL STATUS PS123440 0980 6780 117E 2433 | LDX I3 RADDR PS123450 0982 4480 7DB3 2434 | BSI I GET READ A DISK SECTOR PS123460 0984 4480 7DBE 2435 | BSI I RTURN RESTORE STATUS PS123470 0986 6700 1178 2436 | LDX L3 D RESTORE INDEX 3 PS123480 0988 2437 | NB9 EQU * PS123490 0988 C3CF 2438 | NB7 LD 3 CBUF PS123500 0989 831C 2439 | A 3 C3 PS123510 098A D3B0 2440 | STO 3 IPT POINT IPT PAST CHAIN WORD PS123520 098B 1010 2441 | SLA 16 PS123530 098C D3B1 2442 | STO 3 ICSW SET TO WORD BOUNDARY PS123540 098D 6580 1128 2443 | LDX I1 IPTX PS123550 098F C1FF 2444 | LD 1 -1 PS123560 0990 E348 2445 | AND 3 X01FF PS123570 0991 D3F9 2446 | STO 3 NMAC POINT NMAC TO NEXT MACRO PS123580 0992 4C80 095D 2447 | BSC I NXTBF EXIT PS123590 2448 | *************************************************** PS123600 2449 | * READ FROM LIBRARY AREA * PS123610 2450 | *************************************************** PS123620 0994 D102 2451 | NB12 STO 1 2 CLEAR CHAIN WORD, LAST BUF PS123630 0995 7400 1155 2452 | MDX L ENSWX,0 PS123640 0997 70F0 2453 | MDX NB9 PS123650 0998 C3F8 2454 | LD 3 NIN PS123660 0999 D101 2455 | STO 1 1 PS123670 099A 8316 2456 | A 3 C1 PS123680 099B D3F8 2457 | STO 3 NIN UPDATE NEXT IN POINTER PS123690 099C 93BF 2458 | S 3 ELIB PS123700 099D 4C20 097E 2459 | BSC L NB10,Z TO READ IF NOT LAST PS123710 099F 6C00 1155 2460 | STX L ENSWX SET END SWITCH PS123720 09A1 70DC 2461 | MDX NB10 TO READ PS123730 BFOUT 2464 | *************************************************** PS123760 2465 | * BFOUT EMPTIES THE CURRENT OUTPUT * PS123770 2466 | * BUFFER TO THE LIB BEING PROCESSED, * PS123780 2467 | * SPILLING AN INPUT SECTOR TO WORKING * PS123790 2468 | * STORAGE IF NECESSARY. IT RETURNS * PS123800 2469 | * POINTING TO THE NEXT OUTPUT BUFFER * PS123810 2470 | * VIA OPT, PAST THE CHAIN WORD POINTED* PS123820 2471 | * TO VIA LMAC. * PS123830 2472 | *************************************************** PS123840 09A2 0000 2473 | BFOUT DC *-* PS123850 09A3 C3BC 2474 | LD 3 OUT PS123860 09A4 831C 2475 | A 3 X0003 PS123870 09A5 93B8 2476 | S 3 OPT PS123880 09A6 4C18 0A00 2477 | BSC L BO9,+- EXIT IF BUFFER EMPTY PS123890 09A8 6680 1134 2478 | LDX I2 OUTX CURRENT OUTPUT BUFFER PTR PS123900 09AA C3FD 2479 | LD 3 OLIB PS123910 09AB 9201 2480 | S 2 1 PS123920 09AC 4C20 09E9 2481 | BSC L BO2,Z BRANCH IF NOT LIB END PS123930 2482 | *************************************************** PS123940 2483 | * LIBRARY OVERFLOW ROUTINE * PS123950 2484 | *************************************************** PS123960 09AE C3DF 2485 | LD 3 ESEC GET SECTOR WITH OLD END PS123970 09AF 6680 1134 2486 | LDX I2 OUTX *OF LIBRARY PS123980 09B1 D201 2487 | STO 2 1 PLACE IT IN DISK BUFFER PS123990 09B2 4480 7DB2 2488 | BSI I ENTER SAVE ALL STATUS PS124000 09B4 6780 1134 2489 | LDX I3 OUTX GET BUFFER ADDRESS PS124010 09B6 4480 7DB3 2490 | BSI I GET READ LAST LIBRARY SECTOR PS124020 09B8 4480 7DBE 2491 | BSI I RTURN RESTORE STATUS PS124030 2492 | * PS124040 09BA C3BC 2493 | LD 3 OUT GET BUFFER POINTER PS124050 09BB 83DE 2494 | A 3 EPTR ADD DISPLACEMENT PS124060 2495 | * PS124070 09BC D001 2496 | STO *+1 PLACE IN INDEX REGISTER PS124080 09BD 6600 0000 2497 | LDX L2 *-* * PS124090 2498 | * PS124100 2499 | * PS124110 09BF C356 2500 | LD 3 XFE00 STORE END OF LIBRARY PS124120 09C0 D2FC 2501 | STO 2 -4 *INDICATOR PS124130 09C1 C3D0 2502 | LD 3 CCSA GET CONCATENATE SCTR ADDR PS124140 2503 | * PS124150 09C2 D2FD 2504 | STO 2 -3 PS124160 09C3 CBA8 2505 | LDD 3 CLIB PLACE CONCATENATED PS124170 09C4 D2FE 2506 | STO 2 -2 *LIBRARY'S NAME IN PS124180 09C5 18D0 2507 | RTE 16 *END OF LIBRARY HEADER PS124190 09C6 D2FF 2508 | STO 2 -1 * PS124200 2509 | * PS124210 09C7 C3BC 2510 | BO5 LD 3 OUT SET UP BUFFER ADDRESS PS124220 09C8 D400 118C 2511 | STO L WADDR *FOR REWRITE PS124230 09CA 831C 2512 | A 3 X0003 PS124240 09CB D3B8 2513 | STO 3 OPT RESET OPT TO 1ST OUTPUT WD PS124250 09CC 9316 2514 | S 3 X0001 PS124260 09CD D3EF 2515 | STO 3 LMAC POINT LMAC TO CHAIN WORD PS124270 09CE 4038 2516 | BSI BO8 REWRITE SECTOR PS124280 09CF 2517 | BO7 EQU * PS124290 09CF 4380 2518 | BSI 3 EPRT PS124300 09D0 101F 2519 | DC EM2 LIBRARY OVERFLOW PS124310 09D1 C3C8 2520 | LD 3 ADSW TEST IF ADD OPERATION PS124320 09D2 4C20 09E1 2521 | BSC L BO75,Z BRANCH IF SET PS124330 09D4 C3E4 2522 | LD 3 INDL TEST INSERT/DELETE SWITCH PS124340 09D5 4C20 09E1 2523 | BSC L BO75,Z BRANCH IF SET PS124350 09D7 1010 2524 | B071 SLA 16 TURN OFF ADD SWITCH PS124360 09D8 D3C8 2525 | STO 3 ADSW * PS124370 09D9 D3B2 2526 | STO 3 LNAM CLEAR LIBRARY NAME PS124380 09DA D3E4 2527 | STO 3 INDL RESET INSERT/DELET SW PS124390 09DB 6C00 1160 2528 | STX L JSWX RESET JOIN SWITCH PS124400 09DD 6C00 1161 2529 | STX L J1SWX RESET 1ST JOIN FLUSH SWITCH PS124410 09DF 4400 0E44 2530 | BSI L FLUSH GET NEXT LIB OR BUILD PS124420 2531 | * PS124430 09E1 1010 2532 | BO75 SLA 16 TURN OFF ADD SWITCH PS124440 09E2 D3C8 2533 | STO 3 ADSW * PS124450 09E3 D3E4 2534 | STO 3 INDL CLEAR INSERT/DELETE SWITCH PS124460 09E4 D3B2 2535 | STO 3 LNAM CLEAR LIBRARY NAME PS124470 09E5 4400 0C5F 2536 | BSI L CTTST TEST IF CONTROL STMT READ PS124480 09E7 4C00 0E49 2537 | BSC L FL008 GO TO ANALYSE RCD IN BRF PS124490 2538 | *************************************************** PS124500 2539 | * TEST IF SPILL REQUIRED * PS124510 2540 | *************************************************** PS124520 09E9 C201 2541 | BO2 LD 2 1 SA PS124530 09EA 7400 1140 2542 | MDX L ADSWX,0 TEST IF ADD BEING DONE PS124540 09EC 7004 2543 | MDX BO3 SKIP SPILL TEST IF SO PS124550 09ED 93F8 2544 | S 3 NIN COMPARE TO NEXT INPUT SA PS124560 09EE 83DD 2545 | A 3 ENSW NO SPILL IF NO MORE INPUT PS124570 09EF 4C18 0A14 2546 | BSC L BO11,+- TO SPILL IF EQUAL PS124580 2547 | *************************************************** PS124590 2548 | * WRITE TO LIBRARY AREA * PS124600 2549 | *************************************************** PS124610 09F1 CBBC 2550 | BO3 LDD 3 OUT PS124620 09F2 D400 118C 2551 | STO L WADDR SET BUFFER ADDR FOR WRITE PS124630 09F4 18D0 2552 | RTE 16 PS124640 09F5 DBBC 2553 | STD 3 OUT FLIP NOUT, OUT PS124650 09F6 831C 2554 | A 3 X0003 PS124660 09F7 D3B8 2555 | STO 3 OPT POINT TO NEXT OUTPUT WORD PS124670 09F8 9316 2556 | S 3 X0001 PS124680 09F9 D3EF 2557 | STO 3 LMAC POINT LMAC TO CHAIN WORD PS124690 09FA C201 2558 | LD 2 1 PS124700 09FB 400B 2559 | BSI BO8 WRITE BUFFER PS124710 09FC 8316 2560 | A 3 X0001 PS124720 09FD 6680 1134 2561 | LDX I2 OUTX PS124730 09FF D201 2562 | STO 2 1 SET SA FOR NEXT BUFFER PS124740 0A00 1010 2563 | BO9 SLA 16 CLEAR ACCUMULATOR PS124750 0A01 D480 1167 2564 | STO I LMACX CLEAR CHAIN WORD PS124760 0A03 1010 2565 | SLA 16 PS124770 0A04 D3B9 2566 | STO 3 OCSW SET FOR HI CHAR ON OUTPUT PS124780 0A05 4C80 09A2 2567 | BSC I BFOUT EXIT PS124790 0A07 0000 2568 | BO8 DC *-* PS124800 0A08 4480 7DB2 2569 | BSI I ENTER SAVE ALL STATUS PS124810 0A0A 6780 118C 2570 | LDX I3 WADDR WRITE LIBRARY OUTPUT PS124820 0A0C 4480 7DBC 2571 | BSI I PUT *SECTOR PS124830 0A0E 4480 7DBE 2572 | BSI I RTURN RESTORE STATUS PS124840 0A10 6700 1178 2573 | LDX L3 D RESTORE INDEX 3 PS124850 0A12 4C80 0A07 2574 | BSC I BO8 EXIT PS124860 2575 | *************************************************** PS124870 2576 | * WRITE TO SPILL AREA IN WORKING STORAGE * PS124880 2577 | *************************************************** PS124890 0A14 C3F8 2578 | BO11 LD 3 NIN PS124900 0A15 6580 1135 2579 | LDX I1 NOUTX PS124910 0A17 D101 2580 | STO 1 1 SET SPILL READ ADDRESS PS124920 0A18 8316 2581 | A 3 X0001 PS124930 0A19 D3F8 2582 | STO 3 NIN UPDATE NEXT IN POINTER PS124940 0A1A 4480 7DB2 2583 | BSI I ENTER SAVE ALL STATUS PS124950 0A1C 6780 1135 2584 | LDX I3 NOUTX READ A SECTOR INTO THE PS124960 0A1E 4480 7DB3 2585 | BSI I GET *SPILL BUFFER PS124970 0A20 4480 7DBE 2586 | BSI I RTURN RESTORE STATUS PS124980 0A22 6700 1178 2587 | LDX L3 D RESTORE INDEX 3 PS124990 0A24 C3C7 2588 | BO13 LD 3 SPLN PS125000 0A25 8313 2589 | A 3 WORKS ADD WORKING STORAGE ADDR PS125010 0A26 D101 2590 | STO 1 1 PS125020 0A27 9313 2591 | S 3 WORKS RESET SECTOR ADDRESS PS125030 0A28 8316 2592 | A 3 X0001 PS125040 0A29 D30C 2593 | STO 3 SPSW SET SPILL SWITCH PS125050 0A2A D3C7 2594 | STO 3 SPLN UPDATE NEXT SPILL POINTER PS125060 0A2B 93E0 2595 | S 3 ESPL PS125070 0A2C 4818 2596 | BSC +- SKIP IF NOT SPILL AREA END PS125080 0A2D D3C7 2597 | STO 3 SPLN RESET PS125090 0A2E C30B 2598 | LD 3 SPOV TEST IF DOING OVFLO FLUSH PS125100 0A2F 4C20 0A3F 2599 | BSC L BO15,Z YES, SKIP OVERFLOW TEST PS125110 0A31 C3C7 2600 | LD 3 SPLN NEXT OUTPUT SECTOR PS125120 0A32 93C6 2601 | S 3 SPL1 NEXT INPUT SECTOR PS125130 0A33 4C08 0A3C 2602 | BSC L BO14,+ BRANCH IF INPUT LARGER PS125140 0A35 C3E0 2603 | LD 3 ESPL OUT LARGER, GET SPILL END PS125150 0A36 93C7 2604 | S 3 SPLN LESS NEXT OUT PS125160 0A37 83C6 2605 | A 3 SPL1 PLUS NEXT IN PS125170 0A38 931B 2606 | S 3 X0002 MINUS 2 PS125180 0A39 4C08 0A4A 2607 | BSC L BO16,+ 2 OR LESS LEFT, SET END PS125190 0A3B 7003 2608 | MDX BO15 MORE THAN 2 LEFT, CONTINUE PS125200 0A3C 831B 2609 | BO14 A 3 X0002 TEST IF MORE THAN 2 LEFT PS125210 0A3D 4C10 0A4A 2610 | BSC L BO16,- NO, SET TO END INSERT PS125220 0A3F 4480 7DB2 2611 | BO15 BSI I ENTER SAVE ALL STATUS PS125230 0A41 6780 1135 2612 | LDX I3 NOUTX PS125240 0A43 4480 7DBC 2613 | BSI I PUT *SECTOR PS125250 0A45 4480 7DBE 2614 | BSI I RTURN RESTORE STATUS PS125260 0A47 6700 1178 2615 | LDX L3 D RESTORE INDEX 3 PS125270 0A49 70A7 2616 | MDX BO3 TO WRITE OUTPUT BUFFER PS125280 0A4A 6C00 1183 2617 | BO16 STX L SPOVX SET SPILL OVERFLOW SWITCH PS125290 0A4C C316 2618 | LD 3 X0001 SET LIB SECTOR BAL TO 1 PS125300 0A4D D3EA 2619 | STO 3 LBAL PS125310 0A4E 70F0 2620 | MDX BO15 CONTINUE PS125320 SELECT 2623 | *************************************************** PS125350 2624 | * SELECT SETS SWITCHES AFFECTING COMMENTS,* PS125360 2625 | * PRINT CONTROL, ETC. BASED ON USER PS125370 2626 | * REQUEST. PARAMETERS NOT SPECIFIED ARE PS125380 2627 | * SET ZERO, EXCEPT IN OVERRIDE CASES. PS125390 2628 | *************************************************** PS125400 0A4F 0000 2629 | SEL DC *-* ENTRY POINT PS125410 0A50 1010 2630 | SLA 16 TO CLEAR SWITCHES PS125420 0A51 D3D7 2631 | STO 3 CSW COMMENTS PS125430 0A52 D301 2632 | STO 3 PSW FULL PRINT PS125440 0A53 D3F5 2633 | STO 3 MSW MACRO HEADER PRINT PS125450 0A54 D3E7 2634 | STO 3 ISW INSERT PRINT PS125460 0A55 D3FC 2635 | STO 3 NSTS NEST LEVEL PS125470 0A56 6580 117F 2636 | LDX I1 RPTX POINT TO FIRST PARAM PS125480 0A58 620E 2637 | CTL3 LDX X2 CTL2-CTL1 PARAM LIST LENGTH PS125490 0A59 4400 068E 2638 | BSI L MCCSN SCAN FOR PARAM PS125500 0A5B 006B 2639 | CTL1 DC ., PS125510 0A5C 0A71 2640 | DC CTL4 PS125520 0A5D 0040 2641 | DC . PS125530 0A5E 0A7A 2642 | DC CTLX PS125540 0A5F 00C3 2643 | DC .C PS125550 0A60 0A6F 2644 | DC CTLC PS125560 0A61 00D7 2645 | DC .P PS125570 0A62 0A73 2646 | DC CTLP PS125580 0A63 00D4 2647 | DC .M PS125590 0A64 0A77 2648 | DC CTLM PS125600 0A65 00C9 2649 | DC .I PS125610 0A66 0A75 2650 | DC CTLI PS125620 0A67 00D5 2651 | DC .N PS125630 0A68 0A6C 2652 | DC CTLN PS125640 0A69 4400 0EE5 2653 | CTL2 BSI L CVDEC CONVERT COL NO TO DEC PS125650 0A6B 7005 2654 | MDX CTL4 PS125660 0A6C 7401 1174 2655 | CTLN MDX L NSTSX,1 INCREMENT NEST LEVEL PS125670 0A6E 7002 2656 | MDX CTL4 PS125680 0A6F 6C00 114F 2657 | CTLC STX L CSWX SET COMMENTS SWITCH PS125690 0A71 7101 2658 | CTL4 MDX 1 1 POINT TO NEXT PS125700 0A72 70E5 2659 | MDX CTL3 SCAN NEXT PS125710 2660 | * PS125720 0A73 6C00 1179 2661 | CTLP STX L PSWX SET FULL PRINT SWITCH PS125730 0A75 6C00 115F 2662 | CTLI STX L ISWX SET INSERT PRINT SWITCH PS125740 0A77 6C00 116D 2663 | CTLM STX L MSWX SET MACRO HDR PRINT SWITCH PS125750 0A79 70F7 2664 | MDX CTL4 TO PREPARE FOR NEXT PS125760 2665 | * PS125770 0A7A C3E2 2666 | CTLX LD 3 FLSW TEST IF IN FLUSH MODE PS125780 0A7B 4C20 0E47 2667 | BSC L FL005,Z BRANCH IF SO PS125790 0A7D 4C80 0A4F 2668 | BSC I SEL OTHERWISE, NORMAL RETURN PS125800 BUILD 2670 | *************************************************** PS125820 2671 | * BUILD GENERATES A NEW LIBRARY PS125830 2672 | *************************************************** PS125840 0A7F 0000 2673 | BUILD DC *-* PS125850 0A80 C101 2674 | LD 1 1 TEST COL 2 FOR U PS125860 0A81 F338 2675 | EOR 3 CU * PS125870 0A82 4C20 02E5 2676 | BSC L MUPX2,Z ILLEGAL REQUEST IF NOT PS125880 0A84 C102 2677 | LD 1 2 TEST COL 3 FOR I PS125890 0A85 F334 2678 | EOR 3 CI * PS125900 0A86 4C20 02E5 2679 | BSC L MUPX2,Z ILLEGAL REQUEST IF NOT PS125910 0A88 C316 2680 | LD 3 ONE PS125920 0A89 D3CE 2681 | STO 3 BSW SET BUILD SWITCH PS125930 0A8A 4400 0AE3 2682 | BSI L LIB INITIALIZE FOR NEW LIB PS125940 0A8C C356 2683 | LD 3 XFE00 PS125950 0A8D D104 2684 | STO 1 4 SET LIB END HEADER PS125960 0A8E 1006 2685 | SLA 6 PS125970 0A8F 1001 2686 | SLA 1 PS125980 0A90 D105 2687 | STO 1 5 AND CONCATENATE WORD PS125990 0A91 D3D1 2688 | STO 3 CCSW CLEAR CONCATENATE SWITCH PS126000 0A92 4C80 0A7F 2689 | BSC I BUILD EXIT PS126010 JOIN 2691 | *************************************************** PS126030 2692 | * JOIN ATTACHES NAMED LIB TO CURRENT PS126040 2693 | *************************************************** PS126050 0A94 0000 2694 | JOIN DC *-* PS126060 0A95 C3EB 2695 | LD 3 LBSW LIB OR BUILD BEFORE? PS126070 0A96 4C18 0C38 2696 | BSC L ERR4,+- ERROR IF NO LIB OR BUILD PS126080 0A98 1010 2697 | SLA 16 PS126090 0A99 D3E8 2698 | STO 3 JSW SET SW FOR LIB PS126100 0A9A 4048 2699 | BSI LIB SET UP FOR NEW LIB PS126110 0A9B C356 2700 | LD 3 XFE00 PS126120 0A9C D3D1 2701 | STO 3 CCSW SET CONCATENATE SWITCH PS126130 0A9D D3E9 2702 | STO 3 J1SW RESET JOIN1 SWITCH PS126140 0A9E D3EE 2703 | STO 3 LPSW SET SECOND PASS FLAG PS126150 0A9F 4400 0B97 2704 | BSI L UPDAT COMPLETE JOIN OPERATION PS126160 0AA1 6C00 1160 2705 | JOIN2 STX L JSWX RESET JOIN SWITCH PS126170 0AA3 4C80 0A94 2706 | BSC I JOIN EXIT PS126180 CONCATENATE 2708 | *************************************************** PS126200 2709 | * CONCATENATE LOGICALLY LINKS NAMED PS126210 2710 | * LIB TO CURRENT LIB PS126220 2711 | *************************************************** PS126230 0AA5 0000 2712 | CONC DC *-* PS126240 0AA6 C3B2 2713 | LD 3 LNAM TEST IF CURRENT LIBRARY PS126250 0AA7 4C18 0C38 2714 | BSC L ERR4,+- ERROR MSG AND FLUSH IF NOT PS126260 0AA9 C480 117F 2715 | LD I RPTX PICK UP FIRST CHAR PS126270 0AAB F32D 2716 | EOR 3 QUOT PS126280 0AAC 4C18 0AB4 2717 | BSC L CONC1,+- BRANCH IF NAME PS126290 0AAE 702B 2718 | MDX CONC3 ERROR PS126300 2719 | * PS126310 0AAF D3D0 2720 | CONC2 STO 3 CCSA SET CONCATENATE SA PS126320 0AB0 6C00 1149 2721 | STX L CCSWX *AND SWITCH PS126330 0AB2 4C80 0AA5 2722 | CONC4 BSC I CONC EXIT PS126340 2723 | * PS126350 0AB4 7401 117F 2724 | CONC1 MDX L RPTX,1 POINT TO 1ST PAST BELIMITER PS126360 0AB6 C480 117F 2725 | LD I RPTX GET 1ST PAST DELIMITER PS126370 0AB8 F33C 2726 | EOR 3 F0 TEST FOR 0 PS126380 0AB9 4818 2727 | BSC +- SKIP IF NOT PS126390 0ABA 70F4 2728 | MDX CONC2 RESET CONCATENATE PS126400 0ABB 4400 0D5A 2729 | BSI L LFSRH SEARCH LET/FLET PS126410 0ABD 701C 2730 | MDX CONC3 INVALID NAME ERROR PS126420 0ABE 7021 2731 | MDX CONC9 NOT FOUND ERROR PS126430 0ABF 6580 1135 2732 | LDX I1 NOUTX GET UNUSED OUTPUT BFR ADDR PS126440 0AC1 D101 2733 | STO 1 1 PLACE SECTOR ADDRESS PS126450 0AC2 4480 7DB2 2734 | BSI I ENTER SAVE ALL STATUS PS126460 0AC4 6780 1135 2735 | LDX I3 NOUTX GET INPUT BUFFER ADDRESS PS126470 0AC6 4480 7DB3 2736 | BSI I GET READ 1ST LIBRARY SECTOR PS126480 0AC8 4480 7DBE 2737 | BSI I RTURN RESTORE STATUS PS126490 0ACA C102 2738 | LD 1 2 GET 1ST WORD OF SECTOR PS126500 0ACB F31E 2739 | EOR 3 L5 TEST FOR /0005 PS126510 0ACC 4C20 0ADD 2740 | BSC L CONC8,Z ERROR IF NOT PS126520 0ACE C106 2741 | LD 1 6 GET SECOND LIBRARY NAME WD PS126530 0ACF 18D0 2742 | RTE 16 PUT IN EXTENSION PS126540 0AD0 C105 2743 | LD 1 5 GET FIRST LIBRARY NAME WORD PS126550 0AD1 9BB2 2744 | SD 3 LNAM COMPARE TO SPECIFIED NAME PS126560 0AD2 4818 2745 | BSC +- SKIP IF ERROR PS126570 0AD3 18D0 2746 | RTE 16 TEST REST OF NAME PS126580 0AD4 4C20 0ADD 2747 | BSC L CONC8,Z BRANCH IF ERROR PS126590 0AD6 CBB2 2748 | LDD 3 LNAM GET LIBRARY NAME PS126600 0AD7 DBA8 2749 | STD 3 CLIB SAVE CONCATENATED LIB NAME PS126610 0AD8 C101 2750 | LD 1 1 LIBRARY OK, GET SCTR ADDR PS126620 0AD9 70D5 2751 | MDX CONC2 STORE AND EXIT PS126630 2752 | * PS126640 0ADA 4380 2753 | CONC3 BSI 3 EPRT PS126650 0ADB 10D1 2754 | DC EM15 PRINT INVALID NAME MESSAGE PS126660 0ADC 70D5 2755 | MDX CONC4 EXIT PS126670 2756 | * PS126680 0ADD 4380 2757 | CONC8 BSI 3 EPRT PRINT LIBRARY NOT PS126690 0ADE 10DB 2758 | DC EM16 *INITIALIZED PS126700 0ADF 70D2 2759 | MDX CONC4 *AND EXIT PS126710 2760 | * PS126720 0AE0 4380 2761 | CONC9 BSI 3 EPRT PRINT NOT FOUND PS126730 0AE1 105A 2762 | DC EM7 * PS126740 0AE2 70CF 2763 | MDX CONC4 EXIT PS126750 LIB 2765 | *************************************************** PS126770 2766 | * LIB INITIALIZES TO OPERATE ON THE * PS126780 2767 | * NAMED LIBRARY. IT CALLS THE LET/FLET* PS126790 2768 | * SEARCH ROUTINE TO FIND THE LIBRARY * PS126800 2769 | * SECTOR ADDRESS AND COUNT.USED BY JOIN PS126810 2770 | * BUILD ROUTINES. * PS126820 2771 | *************************************************** PS126830 0AE3 0000 2772 | LIB DC *-* PS126840 0AE4 C3E8 2773 | LD 3 JSW TEST FOR JOIN PS126850 0AE5 4C18 0AEC 2774 | BSC L LIB1,+- YES, SKIP NAME SW RESET PS126860 0AE7 1010 2775 | SLA 16 CLEAR NAME SWITCH PS126870 0AE8 D3FB 2776 | STO 3 NMSW PS126880 0AE9 D400 01E2 2777 | STO L PBUFF SET PARAM NUMBER TO ZERO PS126890 0AEB D3EB 2778 | STO 3 LBSW RESET LIB,BUILD SWITCH PS126900 0AEC C480 117F 2779 | LIB1 LD I RPTX PS126910 0AEE F32D 2780 | EOR 3 QUOT PS126920 0AEF 4C18 0AFC 2781 | BSC L LIB5,+- BRANCH IF NAME PS126930 0AF1 4380 2782 | ERR7 BSI 3 EPRT PS126940 0AF2 10D1 2783 | DC EM15 PRINT INVALID NAME FOUND PS126950 0AF3 2784 | ERR75 EQU * PS126960 0AF3 1010 2785 | LIB7 SLA 16 PS126970 0AF4 D3B2 2786 | STO 3 LNAM CLEAR LIB NAME PS126980 0AF5 D3CE 2787 | LIB3 STO 3 BSW CLEAR BUILD SWITCH PS126990 0AF6 6C00 1160 2788 | STX L JSWX CLEAR JOIN SWITCH PS127000 0AF8 4400 0E44 2789 | BSI L FLUSH FLUSH INPUT RECORDS UNTIL PS127010 0AFA 4C00 0273 2790 | BSC L MUP11 *LIB, BUILD, OR ENDUP PS127020 0AFC 2791 | LIB5 EQU * PS127030 0AFC 7401 117F 2792 | MDX L RPTX,1 POINT TO 1ST PAST ' PS127040 0AFE 4400 0D5A 2793 | BSI L LFSRH SEARCH LET/FLET FOR LIB PS127050 0B00 70F0 2794 | MDX ERR7 INVALID NAME PS127060 0B01 7047 2795 | MDX ERR8 NOT FOUND PS127070 0B02 D3BE 2796 | STO 3 SLIB SET LIB START PS127080 0B03 18D0 2797 | RTE 16 PS127090 0B04 83BE 2798 | A 3 SLIB CALCULATE LIBRARY END PS127100 0B05 D3BF 2799 | LIB6 STO 3 ELIB SET LIB END PS127110 0B06 C3F7 2800 | LD 3 NDDF TEST IF NON-DDF ENTRY FOUND PS127120 0B07 4C18 0B0D 2801 | BSC L LIB4,+- BRANCH IF DDF ENTRY PS127130 0B09 C3CE 2802 | LD 3 BSW TEST IF BUILD OPERATION PS127140 0B0A 4C20 0B4C 2803 | BSC L ERR16,Z BRANCH IF SO PS127150 0B0C 703C 2804 | MDX ERR8 OTHERWISE, PRINT LIB NOT FD PS127160 0B0D 6C00 1163 2805 | LIB4 STX L LBSWX SET LIB,BUILD SWITCH PS127170 0B0F CBBE 2806 | LDD 3 SLIB LIB START AND END PS127180 0B10 7400 1160 2807 | MDX L JSWX,0 PS127190 0B12 DBC0 2808 | STD 3 SLS SAVE IF NOT FROM JOIN PS127200 0B13 C3C1 2809 | LD 3 ELS PS127210 0B14 D3FD 2810 | STO 3 OLIB SET OUTPUT LIB END PS127220 0B15 404D 2811 | BSI INIT SET UP TO PROCESS LIB PS127230 0B16 6580 1128 2812 | LDX I1 IPTX POINT TO FIRST HEADER PS127240 0B18 C1FF 2813 | LD 1 -1 PICK UP CHAIN WORD PS127250 0B19 7400 1146 2814 | MDX L BSWX,0 CHECK IF BUILDING A LIB PS127260 0B1B C31E 2815 | LD 3 L5 GET CHAIN WORD IF SO PS127270 0B1C D1FF 2816 | STO 1 -1 SET CHAIN WORD PS127280 0B1D D3F9 2817 | STO 3 NMAC SET NEXT MACRO PTR PS127290 0B1E 7400 1146 2818 | MDX L BSWX,0 TEST IF BUILD PS127300 0B20 7012 2819 | MDX LIB8 BRANCH IF YES PS127310 0B21 931E 2820 | S 3 L5 TEST FOR LIB START PS127320 0B22 4C20 0B4C 2821 | BSC L ERR16,Z ERROR IF NOT LIBRARY START PS127330 0B24 C103 2822 | LD 1 3 PICK UP LIB NAME FROM PS127340 0B25 18D0 2823 | RTE 16 SECTOR ( LIBRARY HEADER) PS127350 0B26 C102 2824 | LD 1 2 * PS127360 0B27 9BB2 2825 | SD 3 LNAM COMPARE WITH SPECIFIED PS127370 0B28 4818 2826 | BSC +- *LIBRARY NAME PS127380 0B29 18D0 2827 | RTE 16 PS127390 0B2A 4C20 0B4C 2828 | BSC L ERR16,Z ERROR IF UNEQUAL COMPARERT PS127400 0B2C C3E8 2829 | LD 3 JSW TEST FOR JOIN MODE PS127410 0B2D 4C20 0B3B 2830 | BSC L LIB9,Z BRANCH IF NOT JOIN PS127420 0B2F 7404 1128 2831 | MDX L IPTX,4 ELSE POINT PAST HEADER PS127430 0B31 4C80 0AE3 2832 | BSC I LIB EXIT PS127440 0B33 D101 2833 | LIB8 STO 1 1 STORE END POINTER FOR BUILD PS127450 0B34 CBB2 2834 | LDD 3 LNAM PICK UP PACKED NAME PS127460 0B35 D102 2835 | STO 1 2 *AND STORE AS PART OF PS127470 0B36 18D0 2836 | RTE 16 *LIBRARY HEADER PS127480 0B37 D103 2837 | STO 1 3 PS127490 0B38 C3C0 2838 | LD 3 SLS STORE SA OF END OF LIB PS127500 0B39 93BE 2839 | S 3 SLIB *RELATIVE TO LIBR BEG 2-10 PS127505 0B3A D100 2840 | STO 1 0 *IN LIBRARY HEADER PS127510 0B3B 2841 | LIB9 EQU * PS127520 2842 | * PS127530 0B3B C346 2843 | LD 3 D320 COMPUTE SECTOR AND PS127540 0B3C 9101 2844 | S 1 1 *LIBRARY BALANCE COUNT PS127550 0B3D 931D 2845 | S 3 C4 PS127560 0B3E 1001 2846 | SLA 1 FOR POSSIBLE INSERTS PS127570 0B3F D309 2847 | STO 3 SBAL PS127580 0B40 C3C1 2848 | LD 3 ELS PS127590 0B41 93BE 2849 | S 3 SLIB SUBTRACT LIBR BEGIN 2-10 PS127595 0B42 9100 2850 | S 1 0 PS127600 0B43 D3EA 2851 | STO 3 LBAL PS127610 0B44 400A 2852 | BSI MVDUM GO MOVE POINTERS PS127620 0B45 1010 2853 | SLA 16 PS127630 0B46 D3CE 2854 | STO 3 BSW CLEAR BUILD SWITCH PS127640 0B47 4C80 0AE3 2855 | BSC I LIB EXIT PS127650 0B49 4380 2856 | ERR8 BSI 3 EPRT PRINT LIBRARY NOT FOUND PS127660 0B4A 105A 2857 | DC EM7 * PS127670 0B4B 70A7 2858 | MDX ERR75 PS127680 0B4C 4380 2859 | ERR16 BSI 3 EPRT PRINT LIBRARY NOT PS127690 0B4D 10DB 2860 | DC EM16 *INITIALIZED MESSAGE PS127700 0B4E 70A4 2861 | MDX ERR75 PS127710 MVDUM 0B4F 0000 2863 | MVDUM DC *-* ENTRY POINT PS127730 0B50 6A0F 2864 | STX 2 MVDX+1 SAVE XR2 PS127740 0B51 6680 1134 2865 | LDX I2 OUTX OUTPUT BUFFER POINTER PS127750 0B53 C1FF 2866 | LD 1 -1 MOVE CHAIN WORD PS127760 0B54 D202 2867 | STO 2 2 *TO OUTPUT BUFFER PS127770 0B55 C100 2868 | LD 1 0 MOVE SECTOR ADDRESS PS127780 0B56 D203 2869 | STO 2 3 * PS127790 0B57 C101 2870 | LD 1 1 MOVE FE POINTER PS127800 0B58 D204 2871 | STO 2 4 * PS127810 0B59 C102 2872 | LD 1 2 MOVE 1ST WORD OF NAME PS127820 0B5A D205 2873 | STO 2 5 * PS127830 0B5B C103 2874 | LD 1 3 MOVE 2ND WORD OF NAME PS127840 0B5C D206 2875 | STO 2 6 * PS127850 0B5D 7404 1130 2876 | MDX L OPTX,+4 BUMP OPT PS127860 0B5F 6600 0000 2877 | MVDX LDX L2 *-* RESTORE XR2 PS127870 0B61 4C80 0B4F 2878 | BSC I MVDUM RETURN TO CALLER PS127880 INIT 2881 | *************************************************** PS127910 2882 | * INIT SETS UP TO START LIBRARY PROCESS PS127920 2883 | *************************************************** PS127930 0B63 0000 2884 | INIT DC *-* PS127940 0B64 C3BE 2885 | LD 3 SLIB PS127950 0B65 D3F8 2886 | STO 3 NIN TO START AT LIB START PS127960 0B66 6580 1134 2887 | LDX I1 OUTX POINT TO CURRENT OUTPUT BUF PS127970 0B68 7400 1160 2888 | MDX L JSWX,0 SKIP IF IN JOIN MODE PS127980 0B6A D101 2889 | STO 1 1 SET SA TO LIB START PS127990 0B6B C3CE 2890 | LD 3 BSW SET NO INPUT SW IF BUILD, PS128000 0B6C D3DD 2891 | STO 3 ENSW ELSE CLEAR IT PS128010 0B6D 10A0 2892 | SLT 32 PS128020 0B6E DBC6 2893 | STD 3 SPL1 CLEAR SPL1, SPLN PS128030 0B6F D30C 2894 | STO 3 SPSW *AND SPILL SWITCH PS128040 0B70 C3E5 2895 | LD 3 INLC PS128050 0B71 D3CF 2896 | STO 3 CBUF POINT TO 1ST INPUT BUFFER PS128060 0B72 D3F3 2897 | STO 3 MHSW CLEAR HDR MOVE HEEDED SW PS128070 0B73 D3E6 2898 | STO 3 INSW SET INIT SWITCH PS128080 0B74 4400 095D 2899 | IN4 BSI L NXTBF PS128090 0B76 C3E6 2900 | LD 3 INSW PS128100 0B77 4C98 0B63 2901 | BSC I INIT,+- PS128110 0B79 70FA 2902 | MDX IN4 PS128120 PURGE 2905 | *************************************************** PS128150 2906 | * PURGE DELETES THE SPECIFIED MACRO * PS128160 2907 | * FROM THE LIBRARY. UPDAT IS USED FOR * PS128170 2908 | * POSITIONING. * PS128180 2909 | *************************************************** PS128190 0B7A 0000 2911 | PURGE DC *-* PS128210 0B7B C101 2912 | LD 1 1 TEST COL 2 FOR U PS128220 0B7C F338 2913 | EOR 3 CU * PS128230 0B7D 4C20 02E5 2914 | BSC L MUPX2,Z NO, ILLEGAL REQUEST PS128240 0B7F C102 2915 | LD 1 2 TEST COL 2 FOR R PS128250 0B80 F337 2916 | EOR 3 CR * PS128260 0B81 4C20 02E5 2917 | BSC L MUPX2,Z NO, ILLEGAL REQUEST PS128270 0B83 1010 2918 | SLA 16 CLEAR TO PURGE MACRO PS128280 0B84 D3F4 2919 | STO 3 MPSW AND ACCOUNT FOR SPACE PS128290 0B85 4400 0B97 2920 | BSI L UPDAT POSITION TO DESIRED MACRO PS128300 0B87 700B 2921 | MDX PG000 HDR NOT FOUND---ERROR PS128310 0B88 6C00 117C 2922 | STX L P21X FORCE PRINTING IN POS 21 PS128320 0B8A 4380 2923 | BSI 3 EPRT PS128330 0B8B 1076 2924 | DC EM9 PRINT PURGED MESSAGE PS128340 0B8C C3FF 2925 | LD 3 PGSW PS128350 0B8D D3EF 2926 | STO 3 LMAC PS128360 0B8E D3F3 2927 | STO 3 MHSW FORCE HEADER MOVE NEXT PS128370 0B8F 74FC 1130 2928 | MDX L OPTX,-4 PS128380 0B91 4C80 0B7A 2929 | BSC I PURGE EXIT PS128390 2930 | * PS128400 0B93 4380 2931 | PG000 BSI 3 EPRT PRINT MACRO NOT FOUND PS128410 0B94 108C 2932 | DC EM11 *MESSAGE PS128420 0B95 4C00 026F 2933 | BSC L MUP09 READ NEXT RECORD PS128430 UPDAT 2936 | ************************************************** PS128460 2937 | * UPDAT POSITIONS TO THE REQUESTED PS128470 2938 | * MACRO FOR FURTHER PROCESSING. IF NOT PS128480 2939 | * FOUND, UPDAT RETURNS TO THE CALL PS128490 2940 | * LOCATION+1, ELSE TO THE CALL LOCATIO PS128500 2941 | * +2. THE LIBRARY MAY BE FLUSHED BY PS128510 2942 | * SETTING LPSW NONZERO ON ENTRY. PS128520 2943 | * ADD, PURGE, AND REDEF USE UPDAT FOR PS128530 2944 | * POSITIONING. PS128540 2945 | ************************************************** PS128550 0B97 0000 2946 | UPDAT DC *-* PS128560 0B98 C3B2 2947 | LD 3 LNAM PS128570 0B99 4C18 0C38 2948 | BSC L ERR4,+- ERROR IF NO LIB SPECIFIED PS128580 0B9B C301 2949 | LD 3 PSW TEST FOR SELECT P PS128590 0B9C 4C18 0BA0 2950 | BSC L UP1,+- NO, SKIP NAME TEST PS128600 0B9E 4400 0C4D 2951 | BSI L NMTST YES, GO TEST FOR NAME PS128610 0BA0 C3EE 2952 | UP1 LD 3 LPSW TEST IF LIB FLUSH DESIRED PS128620 0BA1 D3C2 2953 | STO 3 SNAM PS128630 0BA2 4C20 0BBC 2954 | BSC L UP11,Z BRANCH IF YES PS128640 0BA4 4400 0F4D 2955 | BSI L PKNM PACK REQUESTED NAME PS128650 0BA6 C341 2956 | UP9 LD 3 X00FE PS128660 0BA7 4400 08E4 2957 | BSI L MOVE MOVE OUT CURRENT MACRO PS128670 0BA9 4400 0F80 2958 | BSI L MHDR MOVE HEADER PS128680 0BAB CBB4 2959 | LDD 3 MNAM COMPARE CURRENT MACRO PS128690 0BAC 9BC2 2960 | SD 3 SNAM *TO DESIRED MACRO PS128700 0BAD 4C20 0BBC 2961 | BSC L UP11,Z BRANCH IF NO MATCH PS128710 0BAF 18D0 2962 | RTE 16 TEST WORDS 3,4 PS128720 0BB0 4C20 0BBC 2963 | BSC L UP11,Z BRANCH IF DIFFERENT PS128730 0BB2 C3C5 2964 | LD 3 MN2 PS128740 0BB3 F3C4 2965 | EOR 3 SN2 PS128750 0BB4 1808 2966 | SRA 8 IGNORE LAST CHARACTER PS128760 0BB5 4C20 0BBC 2967 | BSC L UP11,Z BRANCH IF NO MATCH PS128770 0BB7 7401 0B97 2968 | MDX L UPDAT,1 SET FOUND RETURN PS128780 0BB9 2969 | UP10 EQU * PS128790 0BB9 D3EE 2970 | STO 3 LPSW CLEAR LOOP SWITCH PS128800 0BBA 4C80 0B97 2971 | BSC I UPDAT RETURN PS128810 2972 | * PS128820 0BBC C3B4 2973 | UP11 LD 3 MNAM PS128830 0BBD F356 2974 | EOR 3 XFE00 TEST FOR LIB END PS128840 0BBE 4C20 0BA6 2975 | BSC L UP9,Z BRANCH IF NOT PS128850 0BC0 D3B4 2976 | STO 3 MNAM CLEAR MNAM FOR REENTRY PS128860 0BC1 4400 0C3F 2977 | BSI L ETEST TEST FOR LIBRARY END PS128870 0BC3 6580 1130 2978 | UP7 LDX I1 OPTX POINT TO OUTPUT PS128880 0BC5 C3C8 2979 | LD 3 ADSW TEST FOR ADD PS128890 0BC6 4C20 0BCB 2980 | BSC L UP5,Z YES, BRANCH PS128900 0BC8 C3E9 2981 | LD 3 J1SW TEST IF 1ST JOIN FLUSH PS128910 0BC9 4C20 0BD6 2982 | BSC L UP6,Z BRANCH IF NOT PS128920 0BCB C3D1 2983 | UP5 LD 3 CCSW TEST FOR CONCATENATE SET PS128930 0BCC 4C20 0BD6 2984 | BSC L UP6,Z BRANCH IF SO PS128940 0BCE 6580 1130 2985 | LDX I1 OPTX GET OUTPUT POINTER PS128950 0BD0 C1FD 2986 | LD 1 -3 PICK UP CONCATENATOR PS128960 0BD1 D3D0 2987 | STO 3 CCSA SAVE CONCATENATE SCTR ADDR PS128970 0BD2 C1FF 2988 | LD 1 -1 GET CONCATENATED PS128980 0BD3 1890 2989 | SRT 16 *LIBRARY NAME PS128990 0BD4 C1FE 2990 | LD 1 -2 * PS129000 0BD5 DBA8 2991 | STD 3 CLIB SAVE IT PS129010 0BD6 C3C8 2992 | UP6 LD 3 ADSW TEST ADD SWITCH PS129020 0BD7 4C20 0BDD 2993 | BSC L UP8,Z BRANCH IF ADD BEING DONE PS129030 0BD9 C3E8 2994 | LD 3 JSW TEST JOIN SW PS129040 0BDA 4C18 0BDD 2995 | BSC L UP8,+- BRANCH IF JOIN BEING DONE PS129050 0BDC 700A 2996 | MDX UP15 PS129060 2997 | * PS129070 0BDD 74FC 1130 2998 | UP8 MDX L OPTX,-4 BACK OVER OUTPUT HEADER PS129080 0BDF C3FA 2999 | LD 3 NMCSV BACK OVER INPUT HEADER PS129090 0BE0 D3F9 3000 | STO 3 NMAC PS129100 0BE1 D3F3 3001 | STO 3 MHSW SET HEADER MOVE SWITCH PS129110 0BE2 1010 3002 | SLA 16 CLEAR ACCUMULATOR PS129120 0BE3 70D5 3003 | MDX UP10 AND GO TO EXIT PS129130 3004 | * PS129140 0BE4 C400 100D 3005 | UP16 LD L HTEMP GET SAVED CONCAT WORD 2 PS129150 0BE6 7008 3006 | MDX UP17 GO STORE IT PS129160 3007 | * PS129170 0BE7 C3D1 3008 | UP15 LD 3 CCSW TEST CONCATENATE SWITCH PS129180 0BE8 4C18 0BE4 3009 | BSC L UP16,+- BRANCH IF NOT SET PS129190 0BEA C3D0 3010 | LD 3 CCSA GET SECTOR ADDRESS PS129200 0BEB D1FD 3011 | STO 1 -3 STORE CONCATENATOR PS129210 0BEC CBA8 3012 | LDD 3 CLIB GET CONCATENATED LIB NAME PS129220 0BED D1FE 3013 | STO 1 -2 PLACE INTO END OF PS129230 0BEE 18D0 3014 | RTE 16 *LIBRARY HEADER PS129240 0BEF D1FF 3015 | UP17 STO 1 -1 * PS129250 0BF0 C3F5 3016 | LD 3 MSW CHECK HEADER PRINT SWITCH PS129260 0BF1 4C18 0BF8 3017 | BSC L UP12,+- BYPASS PRINT IF NOT SET PS129270 0BF3 C1FD 3018 | LD 1 -3 PICK UP CONCATENATOR PS129280 0BF4 4400 0FAD 3019 | BSI L PHEX PUT IT IN PRINT BUFFER PS129290 0BF6 C340 3020 | LD 3 X00FD PS129300 0BF7 43A2 3021 | BSI 3 PRNT PRINT LINE PS129310 0BF8 3022 | UP12 EQU * PS129320 0BF8 4400 09A2 3023 | BSI L BFOUT FORCE OUT LAST BUFFER PS129330 0BFA C3BD 3024 | LD 3 NOUT ADDR OF FREE OUTPUT BUFFER PS129340 0BFB 8316 3025 | A 3 C1 POINT TO SAD WD PS129350 0BFC D041 3026 | STO UP20 SAVE POINTER PS129360 0BFD C3C0 3027 | LD 3 SLS =STARTING SAD PS129370 0BFE D480 0C3E 3028 | STO I UP20 PUT SAD INTO I/O BUFFER PS129380 0C00 C3BD 3029 | LD 3 NOUT GET ADDR OF READ-IN BFR PS129390 0C01 D400 117E 3030 | STO L RADDR SAVE BUFFER ADDRESS PS129400 0C03 4480 7DB2 3031 | BSI I ENTER SAVE ALL STATUS PS129410 0C05 6780 117E 3032 | LDX I3 RADDR GET BUFFER ADDRESS PS129420 0C07 4480 7DB3 3033 | BSI I GET READ DISK SECTOR PS129430 0C09 4480 7DBE 3034 | BSI I RTURN RESTORE STATUS PS129440 0C0B 6700 1178 3035 | LDX L3 D PS129450 0C0D C3DF 3036 | LD 3 ESEC =LIBRARY END SAD PS129460 0C0E 6680 1135 3037 | LDX I2 NOUTX SET XR2 TO OUTPUT BUFFER PS129470 0C10 9201 3038 | S 2 1 SUBTRACT BEGIN SCRT AD 2-11 PS129475 0C11 D203 3039 | STO 2 3 PUT IN LIB END S/A PS129480 0C12 C3DE 3040 | LD 3 EPTR FE POINTER PS129490 0C13 931B 3041 | S 3 X0002 ALLOW FOR W/C, S/A AND PS129500 0C14 931D 3042 | S 3 X0004 NAME AND POINTERS PS129510 0C15 D204 3043 | STO 2 4 PUT IN OUTPUT BUFFER PS129520 0C16 C3BD 3044 | LD 3 NOUT =I/O AREA ADDRESS PS129530 0C17 D400 118C 3045 | STO L WADDR PS129540 0C19 4480 7DB2 3046 | BSI I ENTER PS129550 0C1B 6780 118C 3047 | LDX I3 WADDR PS129560 0C1D 4480 7DBC 3048 | BSI I PUT PS129570 0C1F 6700 1178 3049 | LDX L3 D PS129580 0C21 C3EE 3050 | UP14 LD 3 LPSW PS129590 0C22 4C18 0C2B 3051 | BSC L UP13,+- BRANCH IF FIRST PASS PS129600 0C24 C3ED 3052 | LD 3 LNRS TEST LIB NAME RESET SW PS129610 0C25 4C18 0C2A 3053 | BSC L UP14A,+- NOT SET, SKIP PS129620 0C27 1010 3054 | SLA 16 PS129630 0C28 D3B2 3055 | STO 3 LNAM CLEAR LIB NAME PS129640 0C29 708F 3056 | MDX UP10 TO NOT FOUND RETURN PS129650 0C2A D3C2 3057 | UP14A STO 3 SNAM CLEAR HEADER PS129660 0C2B 3058 | UP13 EQU * PS129670 0C2B 7401 1166 3059 | MDX L LPSWX,1 SET SECOND PASS SWITCH PS129680 0C2D CBC0 3060 | LDD 3 SLS PS129690 0C2E DBBE 3061 | STD 3 SLIB SET START, END FOR RECYCL PS129700 0C2F 4400 0B63 3062 | BSI L INIT RESET FOR SECOND PASS PS129710 0C31 4400 0B4F 3063 | BSI L MVDUM GO MOVE POINTERS PS129720 0C33 C3C2 3064 | LD 3 SNAM IF NO HDR SPECIFIED PS129730 0C34 4C18 0BB9 3065 | BSC L UP10,+- *TAKE NOT FOUND EXIT PS129740 0C36 4C00 0BA6 3066 | BSC L UP9 TEST FIRST MACRO PS129750 0C38 4380 3067 | ERR4 BSI 3 EPRT PS129760 0C39 1036 3068 | DC EM4 PRINT LIB NOT SPECIFIED PS129770 0C3A 4400 0E44 3069 | BSI L FLUSH PS129780 0C3C 4C00 0273 3070 | BSC L MUP11 PS129790 0C3E 0000 3071 | UP20 DC *-* TEMP SAVE WORD PS129800 ETEST 3073 | ************************************************** PS129820 3074 | * TEST THAT THE CURRENT BUFFER WILL * PS129830 3075 | * FIT INTO THE LIBRARY. IF SO, UPDATE * PS129840 3076 | * THE END OF PHYSICAL LIBRARY SECTOR * PS129850 3077 | * ADDRESS AND DISPLACEMENT. IF NOT * PS129860 3078 | * LIBRARY OVERFLOW HAS OCCURED. * PS129870 3079 | ************************************************** PS129880 0C3F 0000 3080 | ETEST DC *-* PS129890 0C40 6580 1134 3081 | LDX I1 OUTX GET END OF LIBRARY+1 PS129900 0C42 C3FD 3082 | LD 3 OLIB *SECTOR ADDRESS PS129910 0C43 9101 3083 | S 1 1 COMPARE TO CURRENT SCTR PS129920 0C44 4418 09A2 3084 | BSI L BFOUT,+- *ADDR-BR IF OVERFLOW PS129930 0C46 C101 3085 | LD 1 1 GET CURRENT SECTOR ADDR PS129940 0C47 D3DF 3086 | STO 3 ESEC SAVE IT PS129950 0C48 C3B8 3087 | LD 3 OPT GET POINTER TO END OF PS129960 0C49 93BC 3088 | S 3 OUT *LIBRARY.FIND DISPLACEMENT PS129970 0C4A D3DE 3089 | STO 3 EPTR *HEADER AND SAVE IT PS129980 0C4B 4C80 0C3F 3090 | BSC I ETEST RETURN PS129990 3091 | *************************************************** PS130000 3092 | * TESTS THAT A NAME STATEMENT HAS BEEN* PS130010 3093 | * PROCESSED SINCE LAST LIB OR BUILD * PS130020 3094 | * FLUSHES LIBRARY IF NOT. * PS130030 3095 | *************************************************** PS130040 0C4D 0000 3096 | NMTST DC *-* ENTRY POINT PS130050 0C4E C3FB 3097 | LD 3 NMSW GET NAME SWITCH PS130060 0C4F 4CA0 0C4D 3098 | BSC I NMTST,Z SET, RETURN TO CALLER PS130070 0C51 C3E8 3099 | LD 3 JSW TEST IF JOIN PS130080 0C52 4C20 0C59 3100 | BSC L NMTS2,Z BRANCH IF NOT PS130090 0C54 C342 3101 | LD 3 X00FF RESET JOIN SWITCHES PS130100 0C55 D3E8 3102 | STO 3 JSW * PS130110 0C56 D3E9 3103 | STO 3 J1SW * PS130120 0C57 4400 0865 3104 | BSI L CRPRT PRINT CONTROL RECORD PS130130 0C59 4380 3105 | NMTS2 BSI 3 EPRT PRINT ERROR MESSAGE PS130140 0C5A 10C1 3106 | DC EM14 PS130150 0C5B 4400 0E44 3107 | BSI L FLUSH PS130160 0C5D 4C00 0273 3108 | BSC L MUP11 PS130170 3109 | * PS130180 3110 | *************************************************** PS130190 3111 | * EXITS VIA ENDUP IF MONITOR OR DUP * PS130200 3112 | * CONTROL RECORD HAS BEEN READ.RETURNS* PS130210 3113 | * IF NOT. * PS130220 3114 | *************************************************** PS130230 0C5F 0000 3115 | CTTST DC *-* PS130240 0C60 7400 000F 3116 | MDX L $CTSW,0 MONITOR CONTROL RECORD READ PS130250 0C62 7005 3117 | MDX CT010 BRANCH IF YES PS130260 0C63 7400 7FDC 3118 | MDX L DUPCR+C,0 DUP CONTROL RECORD READ PS130270 0C65 7002 3119 | MDX CT010 BRANCH IF YES PS130280 0C66 4C80 0C5F 3120 | BSC I CTTST RETURN IF NEITHER PS130290 0C68 4C00 0EA2 3121 | CT010 BSC L ENDUP CONTROL RECORD READ, EXIT PS130300 ADD 3123 | *************************************************** PS130320 3124 | * ADD POSITIONS TO END OF LIBRARY * PS130330 3125 | * THEN INSERTS THE NEW HEADER. FESW IS* PS130340 3126 | * SET TO ASSURE THAT AN END OF MACRO * PS130350 3127 | * FLAG IS INSERTED AT THE END OF THE * PS130360 3128 | * ADDITIONS, AND THAT NO MOVES ARE * PS130370 3129 | * ATTEMTED. MHSW IS SET TO INHIBIT * PS130380 3130 | * MOVING OF THE NEXT HEADER WHEN ADD * PS130390 3131 | * IS POSITIONING TO END OF MACRO. * PS130400 3132 | *************************************************** PS130410 0C6A 0000 3134 | ADD DC *-* PS130430 0C6B C101 3135 | LD 1 1 TEST COL 2 FOR D PS130440 0C6C F332 3136 | EOR 3 CD * PS130450 0C6D 4C20 02E5 3137 | BSC L MUPX2,Z ILLEGAL REQUEST IF NOT PS130460 0C6F C3B2 3138 | LD 3 LNAM PS130470 0C70 4418 0B97 3139 | BSI L UPDAT,+- ERROR IF LIB PS130480 0C72 4C18 0C38 3140 | BSC L ERR4,+- *NOT SPECIFIED PS130490 0C74 40D8 3141 | BSI NMTST GO TEST FOR NAME PS130500 0C75 4400 0664 3142 | BSI L MSNSC TEST FOR VALID MACRO NAME PS130510 0C77 C000 3143 | LD * TF PS130520 0C78 D3C8 3144 | STO 3 ADSW INDICATE ADD IS BEING DONE PS130530 0C79 D3EE 3145 | STO 3 LPSW POSITION TO END OF PS130540 0C7A 4400 0B97 3146 | BSI L UPDAT *LIBRARY PS130550 0C7C 4400 0F4D 3147 | BSI L PKNM CONDENSE HDR PS130560 0C7E 6500 113A 3148 | LDX L1 SNAMX PS130570 0C80 4400 0FDD 3149 | BSI L HOUT MOVE IT TO OUTPUT BUFFER PS130580 0C82 4400 03A5 3150 | BSI L INSRX PROCESS ADD TEXT CARDS PS130590 0C84 C341 3151 | LD 3 X00FE FE FOR MOVE PS130600 0C85 D3E1 3152 | STO 3 FESW FORCE FE TO OUTPUT PS130610 0C86 D3E4 3153 | STO 3 INDL FAKE INSERT TO FORCE PRINT PS130620 0C87 4400 08E4 3154 | BSI L MOVE MOVE FE, NEXT HEADER PS130630 0C89 7404 1130 3155 | MDX L OPTX,4 POSITION AS IF HDR MOVED PS130640 0C8B 4400 0C3F 3156 | BSI L ETEST TEST IF ADDITION WILL FIT PS130650 0C8D 74FC 1130 3157 | MDX L OPTX,-4 RESET OUTPUT POINTER PS130660 0C8F 1010 3158 | SLA 16 RESET INSERT/DELETE SW PS130670 0C90 D3E4 3159 | STO 3 INDL $F PS130680 0C91 D3C8 3160 | STO 3 ADSW * PS130690 0C92 40CC 3161 | BSI CTTST TEST IF CONTROL STMT READ PS130700 0C93 4C80 0C6A 3162 | BSC I ADD RETURN PS130710 OUTPUT 3164 | *************************************************** PS130730 3165 | * OUTPUT PUNCHES INTO CARDS THE MACRO * PS130740 3166 | * PROTOTYPE NAMED.MVADD AND PUNCH ARE * PS130750 3167 | * CALLED TO PUNCH THE ADD CARD. THE * PS130760 3168 | * TEXT PRINT SWITCH (PSW) IS THEN SET * PS130770 3169 | * TO FORCE FORMATTING OF PROTOTYPE * PS130780 3170 | * STATEMENTS. THE STATEMENTS ARE THEN * PS130790 3171 | * MOVED TO AND PUNCHED FROM SAREA VIA * PS130800 3172 | * SLAP AND PUNCH. * PS130810 3173 | *************************************************** PS130820 0C95 0000 3174 | OUTPT DC *-* ENTRY/EXIT PS130830 0C96 6500 7FA0 3175 | LDX L1 C RESTORE CATCO POINTER PS130840 0C98 C199 3176 | LD 1 #PIOD TEST PRINCIPAL I/O DEVICE PS130850 0C99 4C28 02E5 3177 | BSC L MUPX2,+Z BR IF PAPER TAPE - ERROR PS130860 0C9B C3B2 3178 | LD 3 LNAM IS THERE A CURRENT LIBRARY PS130870 0C9C 4820 3179 | BSC Z NO, GO TO UPDAT FOR ERROR PS130880 0C9D 40AF 3180 | BSI NMTST YES, TEST IF NAME PROCESSED PS130890 3181 | * PS130900 0C9E 4400 0B97 3182 | BSI L UPDAT POSITION TO DESIRED MACRO PS130910 0CA0 7061 3183 | MDX OUT29 MACRO NOT FOUND PS130920 0CA1 6500 7FA0 3184 | LDX L1 C RESTORE CATCO POINTER PS130930 0CA3 C904 3185 | LDD 1 PIHDR+2 PRINCIPAL I/O HEADER PS130940 0CA4 6700 7A06 3186 | LDX L3 IOADR POINT TO CORE ADDRESS PS130950 0CA6 DB00 3187 | STD 3 0 PLACE HEADER PS130960 0CA7 7400 0013 3188 | MDX L $IBSY,0 WAIT UNTIL ALL I/O PS130970 0CA9 70FD 3189 | MDX *-3 *COMPLETE PS130980 0CAA 4480 7DB3 3190 | BSI I GET GET SUBROUTINE PS130990 0CAC 6C00 7FD8 3191 | STX L IOREQ+C INDICATE CARD ROUTINE READ PS131000 0CAE 6700 1178 3192 | LDX L3 D RESTORE CONSTANT POINTER PS131010 0CB0 6500 7FA0 3193 | LDX L1 C GET CATCO POINTER PS131020 0CB2 C15E 3194 | LD 1 THIS CHECK ORDER OF THIS AND PS131030 0CB3 915F 3195 | S 1 NEXT *NEXT PS131040 0CB4 4C10 0CB9 3196 | BSC L OUT01,- BRANCH IF IN ORDER PS131050 0CB6 C95E 3197 | LDD 1 THIS SWITCH THIS AND NEXT PS131060 0CB7 18D0 3198 | RTE 16 * PS131070 0CB8 D95E 3199 | STD 1 THIS * PS131080 3200 | * PS131090 0CB9 C329 3201 | OUT01 LD 3 D0080 PLACE WORD COUNTS IN PS131100 0CBA D480 7FFE 3202 | STO I THIS+C *BUFFER PS131110 0CBC D480 7FFF 3203 | STO I NEXT+C * PS131120 0CBE 6580 7FFF 3204 | LDX I1 NEXT+C CLEAR BUFFER TO ZEROS PS131130 0CC0 6250 3205 | LDX 2 80 FIND BUFFER END PS131140 0CC1 1010 3206 | SLA 16 CLEAR ACC TO 0 PS131150 0CC2 D101 3207 | OUT02 STO 1 1 CLEAR A WORD PS131160 0CC3 7101 3208 | MDX 1 1 FIND NEXT WORD PS131170 0CC4 72FF 3209 | MDX 2 -1 DECREMENT COUNT PS131180 0CC5 70FC 3210 | MDX OUT02 CONTINUE UNTIL DONE PS131190 3211 | * PS131200 0CC6 6150 3212 | LDX 1 80 CLEAR SAREA TO EBCDIC PS131210 0CC7 C328 3213 | LD 3 BLAN BLANKS PS131220 0CC8 D500 11CF 3214 | OUT03 STO L1 SAREA-1 * PS131230 0CCA 71FF 3215 | MDX 1 -1 * PS131240 0CCB 70FC 3216 | MDX OUT03 * PS131250 0CCC 6500 7FA0 3217 | LDX L1 C GET CATCO POINTER PS131260 0CCE C191 3218 | LD 1 #RP67 TEST PUNCH DEVICE PS131270 0CCF 4C08 0CDF 3219 | BSC L OUT05,+ BRANCH IF 1442-5 PS131280 3220 | *************************************************** PS131290 3221 | * GET 1442/1442 DEVICE ROUTINE PS131300 3222 | *************************************************** PS131310 0CD1 6780 7A08 3223 | LDX I3 IOADR+2 GET CORE ADDRESS PS131320 0CD3 73FD 3224 | MDX 3 -3 * PS131330 0CD4 C952 3225 | LDD 1 P1442 GET IOAR HEADER PS131340 0CD5 DB00 3226 | STD 3 0 PUT IN CORE ADDRESS PS131350 0CD6 4480 7DB3 3227 | BSI I GET GET MODULE PS131360 0CD8 6700 1178 3228 | LDX L3 D RESTORE POINTER PS131370 3229 | * PS131380 0CDA 4480 7A0B 3230 | OUT04 BSI I GETBI READ A CARD PS131390 0CDC 4400 0D3B 3231 | BSI L BLTST TEST IT FOR NONBLANKS PS131400 0CDE 70FB 3232 | MDX OUT04 READ AGAIN IF NOT BLANK PS131410 3233 | * PS131420 0CDF 4400 0E1A 3234 | OUT05 BSI L MVADD SET UP THE ADD CARD PS131430 0CE1 4400 0EC9 3235 | BSI L PUNCH PUNCH THE ADD CARD PS131440 0CE3 C301 3236 | LD 3 PSW SELECT P INDICATOR PS131450 0CE4 D3EC 3237 | STO 3 LF500 TEMPORARILY SAVE IT PS131460 0CE5 C0AF 3238 | LD OUTPT GET A NON-0 VALUE INACC PS131470 0CE6 D301 3239 | STO 3 PSW FORCE SELECT P PS131480 0CE7 D3FE 3240 | STO 3 OPSW SET OUTPUT SWITCH PS131490 0CE8 6500 7FA0 3241 | OUT10 LDX L1 C GET CATCO POINTER PS131500 0CEA C191 3242 | LD 1 #RP67 TEST PUNCH DEVICE PS131510 0CEB 4C08 0CF2 3243 | BSC L OUT15,+ BRANCH IF 1442-5 PS131520 0CED 4480 7A0B 3244 | OUT12 BSI I GETBI READ A CARD PS131530 0CEF 4400 0D3B 3245 | BSI L BLTST TEST IT FOR NONBLANKS PS131540 0CF1 70FB 3246 | MDX OUT12 READ AGAIN IF NOT BLANK PS131550 3247 | * PS131560 0CF2 C340 3248 | OUT15 LD 3 FD GET NEXT STMNT INDICATOR PS131570 0CF3 4400 08E4 3249 | BSI L MOVE PUT NEXT CARD INTO PAREA PS131580 3250 | * PS131590 0CF5 6150 3251 | LDX 1 80 CLEAR SAREA TO EBCDIC PS131600 0CF6 C328 3252 | LD 3 BLAN *BLANKS PS131610 0CF7 D500 11CF 3253 | OUT17 STO L1 SAREA-1 * PS131620 0CF9 71FF 3254 | MDX 1 -1 * PS131630 0CFA 70FC 3255 | MDX OUT17 * PS131640 3256 | * PS131650 0CFB 4400 0E5C 3257 | BSI L SLAP SLAP CARD INTO SAREA PS131660 3258 | * PS131670 0CFD 4400 0EC9 3259 | BSI L PUNCH PUNCH IT PS131680 0CFF 4400 07D1 3260 | OUT20 BSI L PTINT INITIALIZE PRINT ROUTINE PS131690 0D01 70E6 3261 | MDX OUT10 LOOP UNTIL MACRO PUNCHED PS131700 0D02 7012 3262 | OUT29 MDX OUT30 MACRO NOT FOUND PS131710 3263 | * PS131720 0D03 1010 3264 | OUT25 SLA 16 PS131730 0D04 D3FE 3265 | STO 3 OPSW RESET OUTPUT SW UPON EXIT PS131740 0D05 4400 07D1 3266 | BSI L PTINT INITAIALIZE PRINT ROUTINE PS131750 0D07 C3EC 3267 | LD 3 LF500 = SAVED WORD PS131760 0D08 6500 7FA0 3268 | LDX L1 C RESTORE CATCO POINTER PS131770 0D0A D301 3269 | STO 3 PSW RESTORE SELECT P STATUS PS131780 3270 | *************************************************** PS131790 3271 | * RESTORE PRINCIPAL I/O MODULE PS131800 3272 | *************************************************** PS131810 0D0B 6700 7A06 3273 | LDX L3 IOADR RELOAD PRINCIPAL I/O BLOCK PS131820 0D0D C902 3274 | LDD 1 PIHDR * PS131830 0D0E DB00 3275 | STD 3 0 PS131840 0D0F 4480 7DB3 3276 | BSI I GET RESTORE PRINCIPAL I/O PS131850 0D11 6700 1178 3277 | LDX L3 D RESTORE POINTER PS131860 3278 | * PS131870 0D13 4C80 0C95 3279 | BSC I OUTPT EXIT OUTPUT PROCESSING PS131880 3280 | * PS131890 0D15 4380 3281 | OUT30 BSI 3 EPRT PRINT MACRO NOT FOUND PS131900 0D16 108C 3282 | DC EM11 *MESSAGE PS131910 0D17 4C00 026F 3283 | BSC L MUP09 READ NEXT CONTROL RECORD PS131920 0D19 1010 3284 | OUT35 SLA 16 CLEAR OUTPUT SWITCH PS131930 0D1A D3FE 3285 | STO 3 OPSW * PS131940 0D1B 4400 07D1 3286 | BSI L PTINT INITIALIZE PRINT ROUTINE PS131950 0D1D 4380 3287 | BSI 3 EPRT PRINT INVALID PARAMETER PS131960 0D1E 10EB 3288 | DC EM17 *MESSAGE PS131970 0D1F 70E3 3289 | MDX OUT25 ABORT OUTPUT OPERATION PS131980 RENAME 3291 | *************************************************** PS132000 3292 | * RENAME USES UPDAT TO POSITION TO THE* PS132010 3293 | * DESIRED MACRO, THEN CHANGES ITS NAME* PS132020 3294 | * AS REQUESTED. * PS132030 3295 | *************************************************** PS132040 0D20 0000 3296 | RENAM DC *-* PS132050 0D21 4400 0B97 3297 | BSI L UPDAT POSITION TO DESIRED MACRO PS132060 0D23 7014 3298 | MDX REDX1 ERROR IF NOT FOUND PS132070 0D24 4400 0F4D 3299 | BSI L PKNM PACK MACRO NAME PS132080 0D26 6C00 117C 3300 | STX L P21X FORCE PRINTING IN POS 21 PS132090 0D28 4380 3301 | BSI 3 EPRT PS132100 0D29 1080 3302 | DC EM10 PRINT REDEF MESSAGE PS132110 0D2A 74FC 1130 3303 | MDX L OPTX,-4 BACK OVER HEADER PS132120 0D2C 6500 113A 3304 | LDX L1 SNAMX PS132130 0D2E C3F5 3305 | LD 3 MSW SAVE SETTING OF HDR PRT SW PS132140 0D2F D00A 3306 | STO MSAVE * PS132150 0D30 6C00 116D 3307 | STX L MSWX SET HEADER PRINT SWITCH ON PS132160 0D32 4400 0FDD 3308 | BSI L HOUT MOVE HEADER OVER OLD ONE PS132170 0D34 C005 3309 | LD MSAVE RESTORE HEADER PRINT PS132180 0D35 D3F5 3310 | STO 3 MSW *SWITCH PS132190 0D36 4C80 0D20 3311 | BSC I RENAM RETURN PS132200 0D38 4C00 02E8 3312 | REDX1 BSC L MUPX3 PRINT MACRO NOT FOUND MSG PS132210 0D3A 0000 3313 | MSAVE DC *-* SAVES MSW SETTING PS132220 BLTST $F 3315 | *************************************************** PS132240 3316 | * BLTST CHECKS THAT A CARD TO BE * PS132250 3317 | * PUNCHED ON A 1442-6 OR -7 IS BLANK. * PS132260 3318 | * IF NON-BLANK,PRINT ERROR MESSAGE AND* PS132270 3319 | * RETURN DIRECTLY. * PS132280 3320 | * IF BLANK, RETURN TO 1 BEYOND DIRECT.* PS132290 3321 | *************************************************** PS132300 0D3B 0000 3322 | BLTST DC *-* ENTRY/EXIT PS132310 0D3C 6580 7FFE 3323 | LDX I1 THIS+C POINT TO CARD BUFFER PS132320 0D3E 7400 0013 3324 | MDX L $IBSY,0 WAIT UNTIL CARD IS PS132330 0D40 70FD 3325 | MDX *-3 *COMPLETELY READ PS132340 0D41 6250 3326 | LDX 2 80 INITIALIZE LOOP COUNTER PS132350 0D42 C101 3327 | BL000 LD 1 1 GET A COLUMN PS132360 0D43 4C20 0D4C 3328 | BSC L NTBLK,Z BRANCH IF NOT BLANK PS132370 3329 | * PS132380 0D45 7101 3330 | MDX 1 1 BUMP COLUMN POINTER PS132390 0D46 72FF 3331 | MDX 2 -1 DECREMENT LOOP COUNTER PS132400 0D47 70FA 3332 | MDX BL000 LOOP UNTIL 80 ARE CHECKED PS132410 0D48 7401 0D3B 3333 | MDX L BLTST,1 SET BLANK CARD RETURN PS132420 0D4A 4C80 0D3B 3334 | BSC I BLTST EXIT PS132430 3335 | * PS132440 0D4C 3336 | NTBLK EQU * PS132450 0D4C 1010 3337 | SLA 16 CLEAR OUTPUT SWITCH FOR PS132460 0D4D D3FE 3338 | STO 3 OPSW *ERROR MESSAGE PRINT PS132470 0D4E 4380 3339 | BSI 3 EPRT CALL PRINT ROUTINE PS132480 0D4F 10AA 3340 | DC EM13 NEED BLANK CARDS MESSAGE PS132490 0D50 1090 3341 | SLT 16 CLEAR EXTENSION PS132500 0D51 7400 0036 3342 | MDX L $PBSY,0 WAIT FOR PRINT COMPLETE PS132510 0D53 70FD 3343 | MDX *-3 * PS132520 0D54 C351 3344 | LD 3 X100F GET WAIT CODE PS132530 0D55 D3FE 3345 | STO 3 OPSW SET OUTPUT SWITCH BACK ON PS132540 0D56 4400 0028 3346 | BSI L $PRET WAIT PS132550 0D58 4C80 0D3B 3347 | BSC I BLTST RETURN PS132560 LET/FLET SEARCH 3349 | * PS132580 3350 | *************************************************** PS132590 3351 | * * PS132600 3352 | * LET/FLET SEARCHES FOR FILES * PS132610 3353 | * * PS132620 3354 | *************************************************** PS132630 3355 | * PS132640 3356 | * PS132650 3357 | * CHECK FILE NAME FOR VALIDITY PS132660 0D5A 0000 3358 | LFSRH DC *-* LET/FLET SEARCH PS132670 0D5B 1010 3359 | SLA 16 RESET NON-DDF ENTRY FOUND PS132680 0D5C D3F7 3360 | STO 3 NDDF *SWITCH PS132690 3361 | * PS132700 0D5D 6F00 1180 3362 | STX L3 SAVE3 SAVE XR3 PS132710 0D5F 6580 117F 3363 | LDX I1 RPTX SET POINTER TO LIB NAME PS132720 0D61 6206 3364 | LDX 2 6 SET LOOP LIMIT PS132730 0D62 C100 3365 | SR005 LD 1 0 LOAD CHARACTER PS132740 0D63 F32D 3366 | EOR 3 QUOT TEST FOR QUOT MARK PS132750 0D64 4C18 0D6A 3367 | BSC L SR045,+- BRANCH IF FOUND PS132760 0D66 7101 3368 | MDX 1 1 INCREMENT INPUT POINTER PS132770 0D67 72FF 3369 | MDX 2 -1 DECREMENT LENGTH LIMIT PS132780 0D68 70F9 3370 | MDX SR005 LOOP IF NOT ERROR PS132790 0D69 7020 3371 | MDX SR010 ERROR EXIT PS132800 0D6A C328 3372 | SR045 LD 3 BLAN QUOT FOUND - BLANK IT OUT PS132810 0D6B D100 3373 | BLKIT STO 1 0 * PS132820 0D6C 7101 3374 | MDX 1 1 BLANK OUT NAME FROM POINT PS132830 0D6D 72FF 3375 | MDX 2 -1 *WHERE QUOT FOUND TO MAX PS132840 0D6E 70FC 3376 | MDX BLKIT *POSSIBLE LENGTH PS132850 0D6F 6580 117F 3377 | LDX I1 RPTX POINT TO DATA NAME PS132860 0D71 C100 3378 | LD 1 0 FIRST CHAR MUST BE PS132870 0D72 9400 0E0D 3379 | S L SR900 *NONNUMERIC PS132880 0D74 4C10 0D8A 3380 | BSC L SR010,- BR-FIRST CHAR IS NUMERIC PS132890 3381 | * PS132900 0D76 63FB 3382 | LDX 3 -5 SET CHAR CNT PS132910 0D77 6600 0DFF 3383 | SR050 LDX L2 SR901 SET TABLE ADDR PS132920 3384 | * PS132930 0D79 C100 3385 | LD 1 0 CHECK FOR BLANK COL PS132940 0D7A 9400 0E0E 3386 | S L SR902 PS132950 0D7C 4C18 0D8B 3387 | BSC L SR020,+- BR-COL IS BLANK PS132960 3388 | * PS132970 0D7E 9200 3389 | SR040 S 2 0 CHECK FOR VALID 8-BIT CHAR PS132980 0D7F 4C28 0D8A 3390 | BSC L SR010,+Z BR-NOT IN CHAR RANGE PS132990 0D81 9201 3391 | S 2 1 PS133000 0D82 4C08 0D86 3392 | BSC L SR030,+ BR-CHAR IS VALID PS133010 0D84 7202 3393 | MDX 2 2 PS133020 0D85 70F8 3394 | MDX SR040 CONT CHAR CHECK PS133030 3395 | * PS133040 0D86 7101 3396 | SR030 MDX 1 1 INCR I/P PT PS133050 0D87 7301 3397 | MDX 3 1 INCR CHAR CNT PS133060 0D88 70EE 3398 | MDX SR050 CONT NAME CHECK-NEXT CHAR PS133070 0D89 700D 3399 | MDX SR060 LABEL VALID-GO PACK,SEARCH PS133080 3400 | * PS133090 0D8A 3401 | SR010 EQU * PS133100 0D8A 7057 3402 | MDX SR135 ERROR EXIT PS133110 3403 | * PS133120 0D8B C100 3404 | SR020 LD 1 0 CHECK FOR EMBEDDED BLANKS PS133130 0D8C 9400 0E0E 3405 | S L SR902 PS133140 0D8E 4C20 0D8A 3406 | BSC L SR010,Z BR-EMBEDDED BLANK ERROR PS133150 0D90 7101 3407 | MDX 1 1 PS133160 0D91 7301 3408 | MDX 3 1 INCR CHAR CNT PS133170 0D92 70F8 3409 | MDX SR020 CONT BLANK CHECK PS133180 3410 | * PS133190 0D93 C1FB 3411 | LD 1 -5 CHECK FOR BLANK NAME FIELD PS133200 0D94 9079 3412 | S SR902 PS133210 0D95 4C18 0D8A 3413 | BSC L SR010,+- BR-FILE NAME BLANK PS133220 3414 | * PS133230 3415 | *************************************************** PS133240 3416 | * * PS133250 3417 | * PACK FILE NAME * PS133260 3418 | * * PS133270 3419 | *************************************************** PS133280 0D97 71FB 3420 | SR060 MDX 1 -5 NAME IS VALID PS133290 0D98 63FB 3421 | LDX 3 -5 PACK NAME PS133300 0D99 10A0 3422 | SLT 32 CLEAR REGISTERS PS133310 3423 | * PS133320 0D9A D877 3424 | SR070 STD SR908 CLEAR NAME SAVE AREA PS133330 0D9B C100 3425 | LD 1 0 RETRIEVE CHAR PS133340 0D9C E072 3426 | AND SR903 PREPARE 6 BITS FOR PACK PS133350 0D9D 100A 3427 | SLA 10 PS133360 0D9E E873 3428 | OR SR908 ADD 6 BIT CHAR TO PACK NAME PS133370 0D9F 18DA 3429 | RTE 32-6 PS133380 0DA0 7101 3430 | MDX 1 1 INCR I/O PT PS133390 0DA1 7301 3431 | MDX 3 1 INCR CHAR CNT PS133400 0DA2 70F7 3432 | MDX SR070 CONT NAME PACK PS133410 3433 | * PS133420 0DA3 E86C 3434 | OR SR904 OR ON DDF INDR TO NAME PS133430 0DA4 D86D 3435 | STD SR908 SAVE FILE NAME PS133440 0DA5 DC00 112A 3436 | STD L LNAMX SAVE LIBRARY NAME PS133450 3437 | * PS133460 3438 | *************************************************** PS133470 3439 | * * PS133480 3440 | * PERFORM LET/FLET SEARCH * PS133490 3441 | * * PS133500 3442 | *************************************************** PS133510 0DA7 6680 0E19 3443 | LDX I2 LET SET DISK BUFFER POINTER PS133520 0DA9 7202 3444 | MDX 2 2 REG 2 PT TO I/O AREA PS133530 3445 | * PS133540 0DAA 61FA 3446 | SR090 LDX 1 -@MXDR-1 SET REG 1 TO MAX DR CNT PS133550 0DAB C500 0033 3447 | LD L1 $ULET+@MXDR+1 FETCH ADDR OF LET PS133560 0DAD 7101 3448 | MDX 1 1 SKIP IF ALL DRIVES SEARCHED PS133570 0DAE 7001 3449 | MDX *+1 *BRANCH OTHERWISE PS133580 3450 | * PS133590 3451 | * TAKE ERROR EXIT PS133600 3452 | * PS133610 0DAF 7036 3453 | MDX SR138 SET UP NOT FOUND RETURN PS133620 3454 | * PS133630 0DB0 4818 3455 | BSC +- SKIP IF DR BEING USED, PS133640 0DB1 7034 3456 | MDX SR138 *ERROR OTHERWISE PS133650 0DB2 D2FF 3457 | SR140 STO 2 -1 PUT SCTR ADDR IN I/O AREA PS133660 3458 | * PS133670 0DB3 6780 0E19 3459 | LDX I3 LET PS133680 0DB5 4480 7DB2 3460 | BSI I ENTER SAVE ALL STATUS PS133690 0DB7 4480 7DB3 3461 | BSI I GET READ A SECTOR PS133700 0DB9 4480 7DBE 3462 | BSI I RTURN RESTORE STATUS PS133710 3463 | * PS133720 0DBB C200 3464 | LD 2 @SCTN FETCH LET/FLET SCTR NO. PS133730 0DBC 4818 3465 | BSC +- SKIP,NOT FIRST LET SCTR PS133740 0DBD 7003 3466 | MDX SR100 *BRANCH OTHERWISE PS133750 3467 | * PS133760 0DBE 9058 3468 | S SR906 PS133770 0DBF 4820 3469 | BSC Z SKIP IF 1ST SCTR FLET PS133780 0DC0 7003 3470 | MDX SR110 BR,NOT 1ST SCTR LET FLET PS133790 3471 | * PS133800 0DC1 C201 3472 | SR100 LD 2 @UAFX INITIALIZE BLK ADDR ACC PS133810 0DC2 1004 3473 | SLA 4 *TO ADDR 1ST PROGRAM PS133820 0DC3 D050 3474 | STO SR905 *STORED IN LET/FLET PS133830 3475 | * PS133840 0DC4 C051 3476 | SR110 LD SR907 COMPUTE NO. WDS IN CURRENT PS133850 0DC5 9203 3477 | S 2 @WDSA *LET/FLET SECTOR PS133860 0DC6 D04E 3478 | STO SR909 PS133870 3479 | * PS133880 0DC7 C207 3480 | SR130 LD 2 @BLCT+@LFHD SAVE BLK CNT OF CURRENT PS133890 0DC8 D043 3481 | STO SR910 *LET/FLET ENTRY PS133900 3482 | * PS133910 3483 | * COMPARE FILE NAME TO ENTRY NAME PS133920 3484 | * PS133930 3485 | * PS133940 0DC9 C206 3486 | LD 2 @LFNM+1+@LFHD FETCH 2ND WD-ENT NAME PS133950 0DCA 9048 3487 | S SR908+1 PS133960 0DCB 4820 3488 | BSC Z SKIP IF NAMES MATCH, PS133970 0DCC 701D 3489 | MDX SR120 *BRANCH OTHERWISE PS133980 3490 | * PS133990 0DCD C205 3491 | LD 2 @LFNM+@LFHD GET 1ST WORD OF ENTRY PS134000 0DCE F043 3492 | EOR SR908 COMPARE TO NAME SOUGHT PS134010 0DCF 4C18 0DD6 3493 | BSC L SR132,+- BRANCH IF WORDS MATCH PS134020 0DD1 1002 3494 | SLA 2 TEST FOR NON DDF MATCH PS134030 0DD2 4C20 0DEA 3495 | BSC L SR120,Z BRANCH IF NOT PS134040 0DD4 6C00 116F 3496 | STX L NDDFX SET NON-DDF ENTRY SWITCH PS134050 3497 | * PS134060 3498 | * RETURN SCTR ADDR AND BLK CNT FOR FILE PS134070 3499 | * PS134080 0DD6 3500 | SR132 EQU * PS134090 0DD6 C207 3501 | LD 2 @LFNM+2+@LFHD FETCH BLK CNT OF FILE PS134100 0DD7 1890 3502 | SRT 16 *AND PUT IN EXTENSION REG PS134110 0DD8 1004 3503 | SLA 4 ELIMINATE POSSIBLE SIGN PS134120 0DD9 1884 3504 | SRT 4 CONVERT TO SECTOR ADDR PS134130 3505 | * PS134140 0DDA C039 3506 | LD SR905 FETCH BLK ADDR OF FILE PS134150 0DDB 1804 3507 | SRA 4 CONVERT TO SCTR ADDR PS134160 0DDC D037 3508 | STO SR905 SAVE SCTR ADDR PS134170 0DDD C301 3509 | LD 3 1 GET CURRENT DRIVE CODE PS134180 0DDE E00A 3510 | AND SR912 PS134190 0DDF E834 3511 | OR SR905 ADD SECTOR ADDR PS134200 0DE0 7402 0D5A 3512 | MDX L LFSRH,2 SET UP FOUND RETURN PS134210 0DE2 6780 1180 3513 | SR135 LDX I3 SAVE3 RESTORE XR3 PS134220 0DE4 4C80 0D5A 3514 | BSC I LFSRH RETURN PS134230 0DE6 7401 0D5A 3515 | SR138 MDX L LFSRH,1 SET UP NOT FOUND RETURN PS134240 0DE8 70F9 3516 | MDX SR135 EXIT PS134250 3517 | * PS134260 3518 | * CONTINUE SEARCH,NO MATCH FOUND PS134270 3519 | * PS134280 0DE9 F000 3520 | SR912 DC /F000 PS134290 0DEA C029 3521 | SR120 LD SR905 COMPUTE ACCUMULATED BLK PS134300 0DEB 8020 3522 | A SR910 *ADDR AND PS134310 0DEC D027 3523 | STO SR905 *SAVE PS134320 3524 | * PS134330 0DED 7203 3525 | MDX 2 @LFEN PT TO NEXT LET/FLET ENTRY PS134340 0DEE C026 3526 | LD SR909 PS134350 0DEF 9400 0E18 3527 | S L D3 DECREMENT LET/FLET COUNT PS134360 0DF1 D023 3528 | STO SR909 PS134370 0DF2 4820 3529 | BSC Z SKIP WHEN SCTR SEARCHED, PS134380 0DF3 70D3 3530 | MDX SR130 *BRANCH OTHERWISE PS134390 3531 | * PS134400 3532 | * PREPARE TO READ DOWN A NEW LET/FLET SCTR PS134410 3533 | * PS134420 0DF4 6680 0E19 3534 | LDX I2 LET BFR ADDR TO INDEX 2 PS134430 0DF6 7202 3535 | MDX 2 2 * PS134440 0DF7 C204 3536 | LD 2 @NEXT PS134450 0DF8 4818 3537 | BSC +- SKIP UNLESS LAST LET/FLET PS134460 0DF9 70B1 3538 | MDX SR090+1 BR TO INITIALIZE NEW DR PS134470 3539 | * PS134480 0DFA C2FF 3540 | LD 2 -1 FETCH CURR SCTR ADDR PS134490 0DFB E0ED 3541 | AND SR912 AND OUT SCTR ADDR PS134500 0DFC EA04 3542 | OR 2 @NEXT OR IN NEW SCTR ADDR PS134510 0DFD 70B4 3543 | MDX SR140 BRANCH TO CONTINUE PS134520 3544 | *************************************************** PS134530 3545 | * * PS134540 3546 | * LET/FLET SEARCH CONSTANTS * PS134550 3547 | * * PS134560 3548 | *************************************************** PS134570 0DFE 0007 3549 | DC .Z-.S PS134580 0000 3550 | @LFNM EQU 0 RLTV ADDR OF LET/FLET NAME PS134590 0002 3551 | @BLCT EQU 2 DISP TO BLK CNT PS134600 0000 3552 | @LENM EQU 0 DISP TO NAME PS134610 0003 3553 | @LFEN EQU 3 LNG OF LET/FLET ENT PS134620 0004 3554 | @NEXT EQU 4 DISP TO NEXT SCTR ADDR PS134630 0DFF 001B 3555 | SR901 DC .$-. CHARS BELOW $ ARE INVALID PS134640 0E00 0000 3556 | DC .$-.$ $ IS VALID CHARACTER PS134650 0E01 0020 3557 | DC .#-.$ CHARS BETWEEN $,# INVALID PS134660 0E02 0001 3558 | DC /0001 NEXT 2 CHARS # , AT SIGN) O PS134670 0E03 0045 3559 | DC /0045 CHARS BETWEEN AT SIGN, A IN PS134680 0E04 0008 3560 | DC .I-.A CHARS A TRU I OK PS134690 0E05 0008 3561 | DC .J-.I CHARS BETWEEN I, J INVALID PS134700 0E06 0008 3562 | DC .R-.J CHARS J THRU R OK PS134710 0E07 0009 3563 | DC .S-.R CHARS BETWEEN R, S INVALID PS134720 0E08 0007 3564 | DC .Z-.S CHARS S THRU Z OK PS134730 0E09 0007 3565 | DC .0-.Z CHARS BETWEEN Z, 0 INV PS134740 0E0A 0009 3566 | DC .9-.0 CHARS 0 THRU 9 OK PS134750 0E0B 3F06 3567 | DC /3FFF-.9 (FORCE END CHECK LOOP) PS134760 0E0C 0000 3568 | SR910 DC *-* BLK CNT OF CURR LET ENT PS134770 0E0D 00F0 3569 | SR900 DC .0 EBC 0 PS134780 0E0E 0040 3570 | SR902 DC . EBC BLANK PS134790 0E0F 003F 3571 | SR903 DC /3F USED TO SAVE BITS 10-15 PS134800 0E10 C000 3572 | SR904 DC /C000 DISK DATA FMT INDR PS134810 0E12 3573 | SR908 BSS E 2 SAVE ADDR FOR PACKED NAME E PS134820 0005 3574 | @MXDR EQU 5 MAX NO. OF DISK DRIVES PS134830 0E14 0000 3575 | SR905 DC *-* CURRENT BLOCK ADDR PS134840 0000 3576 | @SCTN EQU 0 DISP TO SCTR NO. PS134850 0E15 0000 3577 | SR909 DC *-* NO. WDS LEFT FOR COMPARISON PS134860 0003 3578 | @WDSA EQU 3 DISP TO NO. WDS OF SCTR PS134870 0005 3579 | @LFHD EQU 5 LNG OF SCTR HEADER PS134880 0E16 013B 3580 | SR907 DC 320-@LFHD NO. WDS PER LET/FLET SCTR PS134890 0001 3581 | @UAFX EQU 1 DISP TO SCTR ADDR,USER AREA PS134900 0E17 0010 3582 | SR906 DC 16 NO. OF 1ST SCTR IN FLET PS134910 0E18 0003 3583 | D3 DC 3 DECIMAL CONSTANT 3 PS134920 0E19 0000 3584 | LET DC *-* ADDR OF LET/FLET BUFFER PS134930 MVADD 3586 | * MVADD FORMATS THE ADD CARD WHEN * PS134950 3587 | * OUTPUTING A MACRO PROTOTYPE * PS134960 0E1A 0000 3588 | MVADD DC *-* ENTRY/EXIT PS134970 0E1B CBB4 3589 | LDD 3 MNAM FIRST 2 WDS OF MACRO NAME PS134980 0E1C D018 3590 | STO MVA50+3 STORE INTO EBC STMNT PS134990 0E1D 18D0 3591 | RTE 16 2ND WD TO ACCUMULATOR PS135000 0E1E D017 3592 | STO MVA50+4 STORE INTO EBC STMNT PS135010 0E1F C3C5 3593 | LD 3 MN2 3RD WD OF MACRO NAME PS135020 0E20 E010 3594 | AND HFF00 KEEP ONLY 5TH CHAR PS135030 0E21 EB2D 3595 | OR 3 QUOT OR IN TRAILING QUOTE PS135040 0E22 D014 3596 | STO MVA50+5 ADD STMNT READY - UNPACK PS135050 0E23 6106 3597 | LDX 1 6 INITIALIZE LOOP COUNTER PS135060 0E24 6600 0E32 3598 | LDX L2 MVA50 POINT TO PACKED TEXT PS135070 0E26 6700 11D0 3599 | LDX L3 SAREA POINT TO CARD BUFFER PS135080 0E28 400F 3600 | MVA10 BSI MVA30 UNPACK AND STORE TEXT PS135090 0E29 7201 3601 | MDX 2 1 BUMP FROM POINTER PS135100 0E2A 7302 3602 | MDX 3 2 BUMP TO POINTER PS135110 0E2B 71FF 3603 | MDX 1 -1 DECREMENT MOVE COUNTER PS135120 0E2C 70FB 3604 | MDX MVA10 COMPLETE MOVE PS135130 0E2D 6700 1178 3605 | LDX L3 D POINT TO CONSTANT AREA PS135140 0E2F 4C80 0E1A 3606 | BSC I MVADD EXIT PS135150 3607 | * PS135160 0E31 FF00 3608 | HFF00 DC /FF00 HIGH BYTE MASK PS135170 0E32 3609 | BSS E 0 ASSURE EVEN ADDRESS PS135180 0E32 C1C4 C440 407D 4040 3610 | MVA50 EBC .ADD ' . PS135190 4040 | 0E37 0000 3611 | DC *-* CHAR 5 AND TRAILING QUOTE PS135200 3612 | * PS135210 0E38 0000 3613 | MVA30 DC *-* ENTRY/EXIT PS135220 0E39 C200 3614 | LD 2 0 CH1 CH2 X X PS135230 0E3A 1888 3615 | SRT 8 0 CH1 CH2 X PS135240 0E3B 1008 3616 | SLA 8 CH1 0 CH2 X PS135250 0E3C 1888 3617 | SRT 8 0 CH1 0 CH2 PS135260 0E3D E400 11BA 3618 | AND L HXFF FIRST 8 BITS MUST BE ZERO PS135270 0E3F D300 3619 | STO 3 0 STORE 1ST CHAR PS135280 0E40 18D0 3620 | RTE 16 GET 2ND PS135290 0E41 D301 3621 | STO 3 1 STORE 2ND CHAR PS135300 0E42 4C80 0E38 3622 | BSC I MVA30 EXIT PS135310 FLUSH 3624 | *************************************************** PS135330 3625 | * FLUSH READS INPUT RECORDS * PS135340 3626 | * UNTIL A LIB,BUILD,ENDUP OR MONITOR * PS135350 3627 | * OR DUP CONTROL RECORD IS READ * PS135360 3628 | * SELECT RECORDS ARE PROCESSED * PS135370 3629 | * NORMALLY. * PS135380 3630 | *************************************************** PS135390 0E44 0000 3631 | FLUSH DC *-* ENTRY POINT PS135400 0E45 6C00 115A 3632 | STX L FLSWX SET FLUSH SWITCH PS135410 0E47 4400 086C 3633 | FL005 BSI L RDCRD READ A RECORD PS135420 0E49 3634 | FL008 EQU * PS135430 0E49 6208 3635 | LDX 2 8 INITIALIZE FOR CHARACTER PS135440 0E4A 6500 11D0 3636 | LDX L1 SAREA *SCAN PS135450 0E4C 4400 068E 3637 | BSI L MCCSN ENTER SCAN PS135460 0E4E 00D3 3638 | DC .L LIB PS135470 0E4F 0E57 3639 | DC FEXIT EXIT FLUSH IF LIB PS135480 0E50 00C2 3640 | DC .B BUILD PS135490 0E51 0E57 3641 | DC FEXIT EXIT FLUSH IF BUILD PS135500 0E52 00C5 3642 | DC .E ENDUP PS135510 0E53 0E57 3643 | DC FEXIT EXIT FLUSH IF ENDUP PS135520 0E54 00E2 3644 | DC .S SELECT PS135530 0E55 029C 3645 | DC MUP10 PERFORM SELECT FUNCTION PS135540 0E56 70F0 3646 | MDX FL005 CONTINUE FLUSH PS135550 3647 | * PS135560 0E57 1010 3648 | FEXIT SLA 16 CLEAR FLUSH SWITCH PS135570 0E58 D3E2 3649 | STO 3 FLSW * PS135580 0E59 D3EE 3650 | STO 3 LPSW RESET LIB WRITEBACK SWITCH PS135590 0E5A 4C00 0273 3651 | BSC L MUP11 GO TO PROCESS RECORD PS135600 SLAP $F 3653 | *************************************************** PS135620 3654 | *************************************************** PS135630 0E5C 0000 3655 | SLAP DC *-* ENTRY/EXIT PS135640 0E5D C400 07F2 3656 | LD L PAREA+13 GET CC 21 (PRINT BFR) PS135650 0E5F 1008 3657 | SLA 8 REMOVE LEFT 9 BITS PS135660 0E60 1808 3658 | SRA 8 * PS135670 0E61 D400 11E4 3659 | STO L SAREA+20 PUT IN CARD BUFFER PS135680 0E63 611A 3660 | LDX 1 26 INITIALIZE MOVE COUNTER PS135690 0E64 6600 07F3 3661 | LDX L2 PAREA+14 POINT TO CC 22 (PRINT BFR) PS135700 0E66 6700 11E5 3662 | LDX L3 SAREA+21 POINT TO CC 22 PS135710 0E68 40CF 3663 | SLAP1 BSI MVA30 UNPACK AND STORE TEXT PS135720 0E69 7201 3664 | MDX 2 1 BUMP 'FROM' POINTER PS135730 0E6A 7302 3665 | MDX 3 2 BUMP 'TO' POINTER PS135740 0E6B 71FF 3666 | MDX 1 -1 DECREMENT MOVE COUNTER PS135750 0E6C 70FB 3667 | MDX SLAP1 COMPLETE MOVE PS135760 0E6D 6780 11CF 3668 | LDX I3 SAREA-1 GET WORD COUNT PS135770 0E6F C700 11CF 3669 | SLAP2 LD L3 SAREA-1 GET A COLUMN PS135780 0E71 4C18 0E9D 3670 | BSC L SLAP4,+- BRANCH IF COLUMN = ZERO PS135790 0E73 73FF 3671 | SLAP3 MDX 3 -1 DECREMENT LOOP COUNTER PS135800 0E74 70FA 3672 | MDX SLAP2 LOOP UNTIL CHECK IS DONE PS135810 3673 | * PS135820 3674 | *************************************************** PS135830 3675 | * MOVE ID AND SEQUENCE NUMBER TO BFR PS135840 3676 | *************************************************** PS135850 3677 | * PS135860 0E75 6600 113A 3678 | LDX L2 SNAMX POINT XR2 TO MACRO NAME PS135870 0E77 6700 1218 3679 | LDX L3 SAREA+72 POINT XR3 TO COL 73 PS135880 0E79 40BE 3680 | BSI MVA30 UNPACK AND STORE PS135890 0E7A 7201 3681 | MDX 2 1 POINT TO 2ND WORD OF NAME PS135900 0E7B 7302 3682 | MDX 3 2 POINT TO COL 75 PS135910 0E7C 40BB 3683 | BSI MVA30 UNPACK AND STORE PS135920 0E7D 6600 07EF 3684 | LDX L2 PAREA+10 POINT TO SEQ NUMBER PS135930 0E7F 7301 3685 | MDX 3 1 POIN TO COL 76 PS135940 0E80 40B7 3686 | BSI MVA30 UNPACK AND STORE PS135950 0E81 7201 3687 | MDX 2 1 POINT TO 2ND WORD OF NO. PS135960 0E82 7302 3688 | MDX 3 2 POINT TO COL 77 PS135970 0E83 40B4 3689 | BSI MVA30 UNPACK AND STORE PS135980 0E84 C400 07F1 3690 | LD L PAREA+12 GET LAST DIGIT OF NUMBER PS135990 0E86 1808 3691 | SRA 8 RIGHT JUSTIFY PS136000 0E87 D400 121F 3692 | STO L SAREA+79 PUT IN PUNCH BUFFER PS136010 0E89 6700 1178 3693 | LDX L3 D POINT TO CONSTANT AREA PS136020 3694 | * PS136030 0E8B 6500 11CF 3695 | LDX L1 SAREA-1 POINT TO CARD BUFFER PS136040 0E8D C121 3696 | LD 1 33 GET CC 33 PS136050 0E8E F328 3697 | EOR 3 BLAN TEST FOR A BLANK PS136060 0E8F 4C20 0E9B 3698 | BSC L SLAP5,Z NORMAL EXIT IF NOT BLANK PS136070 0E91 C122 3699 | LD 1 34 GET CC 34 PS136080 0E92 F32A 3700 | EOR 3 ASTK TEST FOR AN ASTERISK PS136090 0E93 4C20 0E9B 3701 | BSC L SLAP5,Z NORMAL EXIT IF NOT * PS136100 0E95 C123 3702 | LD 1 35 GET CC 35 PS136110 0E96 F32A 3703 | EOR 3 ASTK TEST FOR AN ASTERISK PS136120 0E97 4C20 0E9B 3704 | BSC L SLAP5,Z NORMAL EXIT IF NOT * PS136130 3705 | *************************************************** PS136140 3706 | * * PS136150 3707 | * IF EXIT TO SLAP5 WAS NOT TAKEN, THEN* PS136160 3708 | * ALL CARDS HAVE BEEN PUNCHED. BRANCH * PS136170 3709 | * BACK TO OUTPUT CODE. * PS136180 3710 | *************************************************** PS136190 0E99 4C00 0D03 3711 | BSC L OUT25 END OF OUTPUT PS136200 3712 | * PS136210 0E9B 4C80 0E5C 3713 | SLAP5 BSC I SLAP EXIT PS136220 0E9D C400 11A0 3714 | SLAP4 LD L BLANX GET EBCDIC BLANK PS136230 0E9F D700 11CF 3715 | STO L3 SAREA-1 CHANGE /0000 TO /0040 PS136240 0EA1 70D1 3716 | MDX SLAP3 CONTINUE /0000 CHECK PS136250 3717 | * PS136260 ENDUP 3720 | *************************************************** PS136290 3721 | * ENDUP TERMINATES THE MUP RUN. IT * PS136300 3722 | * WRITES BACK THE CURRENT LIBRARY IF * PS136310 3723 | * THERE IS ONE USING UPDAT,THEN PRINTS* PS136320 3724 | * THE SIGN-OFF MESSAGE AND RETURNS TO * PS136330 3725 | * DUP CONTROL. * PS136340 3726 | *************************************************** PS136350 0EA2 3727 | ENDUP EQU * PS136360 0EA2 C3B2 3728 | LD 3 LNAM TEST IF CURRENT LIBRARY PS136370 0EA3 4C18 0EB1 3729 | BSC L END5,+- BRANCH IF NONE PS136380 0EA5 C301 3730 | LD 3 PSW TEST FOR SELECT P PS136390 0EA6 4C18 0EAB 3731 | BSC L END02,+- NO, SKIP NAME TEST PS136400 0EA8 C3FB 3732 | LD 3 NMSW SELECT P, TEST FOR NAME PS136410 0EA9 4818 3733 | BSC +- SKIP IF NAME OK PS136420 0EAA D301 3734 | STO 3 PSW NO NAME, RESET SELECT P PS136430 0EAB C342 3735 | END02 LD 3 X00FF SET LIBRARY WRITE BACK PS136440 0EAC D3EE 3736 | STO 3 LPSW *SWITCH PS136450 0EAD D3ED 3737 | STO 3 LNRS SET LIBRARY NAME RESET SW PS136460 0EAE 4400 0B97 3738 | BSI L UPDAT WRITE BACK CURRENT LIBRARY PS136470 0EB0 1000 3739 | NOP ALLOW FOR UPDAT RETURN PS136480 0EB1 7400 000F 3740 | END5 MDX L $CTSW,0 TEST FOR MONITOR CONTROL PS136490 0EB3 7009 3741 | MDX END07 *RECORD READ - BR IF SO PS136500 3742 | * PS136510 0EB4 7400 7FDC 3743 | MDX L DUPCR+C,0 TEST FOR DUP CONTROL RECORD PS136520 0EB6 700F 3744 | MDX END09 BRANCH IF SO PS136530 3745 | *************************************************** PS136540 3746 | * NORMAL EXIT * PS136550 3747 | *************************************************** PS136560 0EB7 6C00 117C 3748 | END06 STX L P21X FORCE PRINTING IN POS 21 PS136570 0EB9 4380 3749 | BSI 3 EPRT PRINT END OF MUP RUN PS136580 0EBA 1051 3750 | DC EM6 *MESSAGE PS136590 0EBB 4480 7DBD 3751 | BSI I REST EXIT TO DUP CONTROL PS136600 3752 | *************************************************** PS136610 3753 | * EXIT IF MONITOR CONTROL RECORD READ * PS136620 3754 | *************************************************** PS136630 0EBD 4380 3755 | END07 BSI 3 EPRT PRINT CONTROL RECORD READ PS136640 0EBE 1067 3756 | DC EM8 *MESSAGE PS136650 0EBF 6C00 117C 3757 | STX L P21X FORCE PRINTING IN POS 21 PS136660 0EC1 4380 3758 | BSI 3 EPRT PRINT END OF MUP RUN PS136670 0EC2 1051 3759 | DC EM6 *MESSAGE PS136680 0EC3 4480 7DB4 3760 | BSI I LEAVE RETURN TO SUPERVISOR PS136690 0EC5 0000 3761 | DC 0 INDICATE CONTROL RECORD PS136700 3762 | * *READ PS136710 3763 | *************************************************** PS136720 3764 | * EXIT IF DUP CONTROL RECORD READ * PS136730 3765 | *************************************************** PS136740 0EC6 4380 3766 | END09 BSI 3 EPRT PRINT CONTROL RECORD READ PS136750 0EC7 1067 3767 | DC EM8 *MESSAGE PS136760 0EC8 70EE 3768 | MDX END06 RETURN TO DUP CONTROL PS136770 PUNCH 3770 | *************************************************** PS136790 3771 | * PUNCH USES EBH TO CONVERT THE 80- * PS136800 3772 | * CHARACTER UNPACKED RECORD IN SAREA * PS136810 3773 | * TO HOLLERITH CODE IN THE BUFFER * PS136820 3774 | * ADDRESSED BY NEXT. * PS136830 3775 | *************************************************** PS136840 0EC9 0000 3776 | PUNCH DC *-* ENTRY POINT PS136850 0ECA 6580 7FFF 3777 | LDX I1 NEXT+C GET BUFFER ADDRESS PS136860 0ECC 6350 3778 | LDX 3 80 INITIALIZE WORD COUNT PS136870 0ECD C700 11CF 3779 | PUN00 LD L3 SAREA-1 GET A COLUMN PS136880 0ECF 4400 0EFE 3780 | BSI L EBH EBCDIC TO HOLLERITH SUBR PS136890 0ED1 D500 0050 3781 | STO L1 80 STORE CONVERTED COLUMN PS136900 0ED3 71FF 3782 | MDX 1 -1 DECREMENT OUTPUT ADDRESS PS136910 0ED4 73FF 3783 | MDX 3 -1 DECREMENT LOOP COUNTER PS136920 0ED5 70F7 3784 | MDX PUN00 LOOP UNTIL DONE PS136930 0ED6 6580 7FFF 3785 | LDX I1 NEXT+C GET BUFFER ADDRESS PS136940 0ED8 C150 3786 | LD 1 80 GET COLUMN 80 PS136950 0ED9 EC00 1197 3787 | OR L H0008 PLACE PUNCH STOP BIT PS136960 0EDB D150 3788 | STO 1 80 * PS136970 0EDC 6700 1178 3789 | LDX L3 D RESET CONSTANT AREA POINTER PS136980 0EDE 4480 7A0D 3790 | PUN05 BSI I PCHBI PUNCH A RECORD PS136990 0EE0 7400 0013 3791 | MDX L $IBSY,0 WAIT FOR PUNCH COMPLETE PS137000 0EE2 70FD 3792 | MDX *-3 * PS137010 0EE3 4C80 0EC9 3793 | BSC I PUNCH RETURN PS137020 CVDEC 3795 | *************************************************** PS137040 3796 | * CVDEC CONVERTS THE ADDRESS IN XR1 TO* PS137050 3797 | * A COLUMN NUMBER, PUTS THE COL NO * PS137060 3798 | * INTO THE INVALID SUBFIELD MESSAGE * PS137070 3799 | * AND PRINTS THE MESSAGE. THE NUMBER * PS137080 3800 | * MUST BE LESS THAN 100 DECIMAL. * PS137090 3801 | *************************************************** PS137100 3802 | * PS137110 0EE5 0000 3803 | CVDEC DC *-* ENTRY POINT PS137120 0EE6 1010 3804 | SLA 16 CLEAR 10'S COUNTER PS137130 0EE7 D3D9 3805 | STO 3 DEC10 PS137140 0EE8 6914 3806 | STX 1 COTMP PUT COLUMN ADDRESS PS137150 0EE9 C013 3807 | LD COTMP *INTO THE ACCUMULATOR PS137160 0EEA 934D 3808 | S 3 ADCON SUBTRACT BFR STARTING ADDR PS137170 0EEB 9320 3809 | CVD10 S 3 D0010 SUBTRACT 10 PS137180 0EEC 4C28 0EF1 3810 | BSC L CVD20,+Z BRANCH IF NEG RESULT PS137190 0EEE 7401 1151 3811 | MDX L DC10X,+1 INCREMENT 10'S COUNTER PS137200 0EF0 70FA 3812 | MDX CVD10 LOOP PS137210 0EF1 8320 3813 | CVD20 A 3 D0010 ADD 10 BACK IN PS137220 0EF2 EB3C 3814 | OR 3 F0 FORM EBCDIC CHARACTER PS137230 0EF3 1888 3815 | SRT 8 PUT IN EXTENSION PS137240 0EF4 C3D9 3816 | LD 3 DEC10 GET 10'S VALUE PS137250 0EF5 EB3C 3817 | OR 3 F0 FORM EBCDIC CHARACTER PS137260 0EF6 1088 3818 | SLT 8 PACK CHARACTERS PS137270 0EF7 D400 10A6 3819 | STO L EM12+14 PUT COL NO IN ERROR MESS PS137280 0EF9 4380 3820 | BSI 3 EPRT PRINT INVALID SUBFIELD MSG PS137290 0EFA 1098 3821 | DC EM12 * PS137300 0EFB 4C80 0EE5 3822 | BSC I CVDEC RETURN PS137310 0EFD 0000 3823 | COTMP DC *-* TEMP STORAGE PS137320 EBCDIC TO HOLLERITH SUBROUTINE 3825 | *************************************************** PS137340 3826 | * INPUT PARAMETER - EBCDIC CHAR IN ACC* PS137350 3827 | * OUTPUT PARAMETER - HOLL. CHAR IN ACC* PS137360 3828 | *************************************************** PS137370 0EFE 0000 3829 | EBH DC *-* ENTRY/EXIT PS137380 0EFF D021 3830 | STO EBH10 SAVE INPUT CHARACTER PS137390 0F00 691B 3831 | STX 1 EBHXT+1 SAVE XR1 PS137400 0F01 6A1C 3832 | STX 2 EBHXT+3 SAVE XR2 PS137410 0F02 6500 0F24 3833 | LDX L1 EBH50 POINT TO SPECIAL CHAR TBL PS137420 0F04 620F 3834 | LDX 2 15 NO. OF CHARS TO CHECK PS137430 0F05 C01B 3835 | EBH00 LD EBH10 INPUT CHARACTER PS137440 0F06 F100 3836 | EOR 1 0 COMPARE WITH TBL ENTRY PS137450 0F07 4C18 0F22 3837 | BSC L EBH30,+- BRANCH IF CHAR FOUND PS137460 0F09 7102 3838 | MDX 1 2 POINT TO NEXT TBL ENTRY PS137470 0F0A 72FF 3839 | MDX 2 -1 DECREMENT LOOP COUNTER PS137480 0F0B 70F9 3840 | MDX EBH00 LOOP UNTIL TBL SCANNED PS137490 0F0C 6600 0F42 3841 | LDX L2 EBHT POINT TO TABLE PS137500 0F0E C012 3842 | LD EBH10 RESTORE INPUT CHARACTER PS137510 0F0F 9200 3843 | EBHA S 2 0 FIND ZONE GROUP PS137520 0F10 D007 3844 | STO EBHB+1 STORE NUMERIC VALUE PS137530 0F11 7202 3845 | MDX 2 2 BUMP TABLE POINTER PS137540 0F12 4828 3846 | BSC +Z SKIP IF FOUND PS137550 0F13 70FB 3847 | MDX EBHA LOOP PS137560 0F14 C2FF 3848 | LD 2 -1 GET VALUE PS137570 0F15 D036 3849 | STO EBHC STORE IN SAVE AREA PS137580 0F16 C02E 3850 | LD EBHT+3 =/2000 PS137590 0F17 6600 0000 3851 | EBHB LDX L2 *-* NUMERIC VALUE PS137600 0F19 1A00 3852 | SRA 2 0 GENERATE NUMERIC PUNCH PS137610 0F1A E831 3853 | OR EBHC COMBINE WITH ZONE PUNCH PS137620 0F1B 6500 0000 3854 | EBHXT LDX L1 *-* RESTORE XR1 PS137630 0F1D 6600 0000 3855 | LDX L2 *-* RESTORE XR2 PS137640 0F1F 4C80 0EFE 3856 | BSC I EBH EXIT PS137650 3857 | * PS137660 0F21 0000 3858 | EBH10 DC *-* SAVED INPUT CHARACTER PS137670 3859 | * PS137680 0F22 C101 3860 | EBH30 LD 1 1 GET HOLLERITH EQUIVALENT PS137690 0F23 70F7 3861 | MDX EBHXT EXIT PS137700 EBCDIC TO HOLLERITH SUBROUTINE 3863 | *************************************************** PS137720 3864 | *************************************************** PS137730 0F24 004B 3865 | EBH50 DC .. EBCDIC PERIOD PS137740 0F25 8420 3866 | DC /8420 HOLLERITH PERIOD PS137750 0F26 004D 3867 | DC .( EBCDIC LEFT PAREN PS137760 0F27 8120 3868 | DC /8120 HOLLERITH LEFT PAREN PS137770 0F28 0040 3869 | DC . EBCDIC BLANK PS137780 0F29 0000 3870 | DC /0000 HOLLERITH BLANK PS137790 0F2A 004E 3871 | DC .+ EBCDIC PLUS PS137800 0F2B 80A0 3872 | DC /80A0 HOLLERITH PLUS PS137810 0F2C 0050 3873 | DC /0050 EBCDIC AMPERSAND PS137820 0F2D 8000 3874 | DC /8000 HOLLERITH AMPERSAND PS137830 0F2E 005B 3875 | DC .$ EBCDIC DOLLAR SIGN PS137840 0F2F 4420 3876 | DC /4420 HOLLERITH DOLLAR SIGN PS137850 0F30 005C 3877 | DC .* EBCDIC ASTERISK PS137860 0F31 4220 3878 | DC /4220 HOLLERITH ASTERISK PS137870 0F32 005D 3879 | DC .) EBCDIC RIGHT PAREN PS137880 0F33 4120 3880 | DC /4120 HOLLERITH RIGHT PAREN PS137890 0F34 005E 3881 | DC .; EBCDIC SEMICOLON PS137900 0F35 40A0 3882 | DC /40A0 HOLLERITH SEMICOLON PS137910 0F36 0060 3883 | DC .- EBCDIC MINUS PS137920 0F37 4000 3884 | DC /4000 HOLLERITH MINUS PS137930 0F38 0061 3885 | DC ./ EBCDIC SLASH PS137940 0F39 3000 3886 | DC /3000 HOLLERITH SLASH PS137950 0F3A 006B 3887 | DC ., EBCDIC COMMA PS137960 0F3B 2420 3888 | DC /2420 HOLLERITH COMMA PS137970 0F3C 007B 3889 | DC .# EBCDIC POUND PS137980 0F3D 0420 3890 | DC /0420 HOLLERITH POUND PS137990 0F3E 007C 3891 | DC /007C EBCDIC AT SIGN PS138000 0F3F 0220 3892 | DC /0220 HOLLERITH AT PS138010 0F40 007D 3893 | DC .' EBCDIC QUOTE PS138020 0F41 0120 3894 | DC /0120 HOLLERITH QUOTE PS138030 3895 | * PS138040 0F42 00F0 3896 | EBHT DC .0 0-9 NO ZONE PS138050 0F43 0000 3897 | DC 0 HOLLERITH - NO ZONE PS138060 0F44 FFF0 3898 | DC .S-2-.0 S-Z 0 ZONE PS138070 0F45 2000 3899 | DC /2000 HOLLERITH - 0 ZONE PS138080 0F46 FFF0 3900 | DC .J-1-.S+2 J-R 11 ZONE PS138090 0F47 4000 3901 | DC /4000 HOLLERITH - 11 ZONE PS138100 0F48 FFF0 3902 | DC .A-.J A-I 12 ZONE PS138110 0F49 8000 3903 | DC /8000 HOLLERITH - 12 ZONE PS138120 0F4A FF78 3904 | DC /FF78 AT OR NUMBER SIGN PS138130 0F4B 0020 3905 | DC /0020 CONSTANT PS138140 0F4C 0000 3906 | EBHC DC *-* COLUMN SAVE BUFFER PS138150 PKNM 3908 | *************************************************** PS138170 3909 | * PKNM PACKS THE NAME POINTED TO BY RPT PS138180 3910 | * INTO A TWO CHARACTER PER WORD FORMAT, PS138190 3911 | * AND LEAVES THE RESULT IN SNAM, PS138200 3912 | * SNAM+1 AND SN2 LEFT JUSTIFIED WITH PS138210 3913 | * BLANK FILL TO THE RIGHT PS138220 3914 | *************************************************** PS138230 0F4D 0000 3915 | PKNM DC *-* PS138240 0F4E 4400 0664 3916 | BSI L MSNSC TEST FOR VALID MACRO NAME PS138250 0F50 6580 117F 3917 | LDX I1 RPTX POINT TO NAME ARG PS138260 0F52 6A14 3918 | STX 2 PKEX+1 SAVE INDEX 2 PS138270 0F53 10A0 3919 | SLT 32 PS138280 0F54 DBC2 3920 | STD 3 SNAM CLEAR RESLUT AREA PS138290 0F55 7101 3921 | MDX 1 1 POINT TO NEXT PS138300 0F56 C31E 3922 | LD 3 L5 PS138310 0F57 D30E 3923 | STO 3 TEMP SET LOOP COUNT PS138320 0F58 6600 113A 3924 | LDX L2 SNAMX PS138330 0F5A 4017 3925 | PK2 BSI PKC GET NEXT CHAR PS138340 0F5B 1008 3926 | SLA 8 POSITION IT PS138350 0F5C D200 3927 | STO 2 0 SAVE IT PS138360 0F5D 4014 3928 | BSI PKC LO ORDER PS138370 0F5E F200 3929 | EOR 2 0 PACK WITH HI ORDER PS138380 0F5F 74FF 1186 3930 | MDX L TEMPX,-1 SKIP IF SIXTH CHARACTER PS138390 0F61 D200 3931 | STO 2 0 STORE WORD PS138400 0F62 7201 3932 | MDX 2 1 POINT TO NEXT WORD PS138410 0F63 74FF 1186 3933 | MDX L TEMPX,-1 TEST IF DONE PS138420 0F65 70F4 3934 | MDX PK2 LOOP FOR NEXT WORD PS138430 0F66 6600 0000 3935 | PKEX LDX L2 *-* RESTORE INDEX 2 PS138440 0F68 7101 3936 | PK3 MDX 1 1 ONE BEYOND LAST CHAR PS138450 0F69 C1FF 3937 | LD 1 -1 PS138460 0F6A F328 3938 | EOR 3 X0040 PS138470 0F6B 4820 3939 | BSC Z SKIP IF IT WAS A BLANK PS138480 0F6C F325 3940 | EOR 3 X002B PS138490 0F6D 6D00 117F 3941 | STX L1 RPTX UPDATE RPT PS138500 0F6F 4C98 0F4D 3942 | BSC I PKNM,+- EXIT IF BLANK OR COMMA PS138510 0F71 70F6 3943 | MDX PK3 LOOP TO TEST NEXT PS138520 0F72 0000 3944 | PKC DC *-* PS138530 0F73 C100 3945 | LD 1 0 PICK UP CHAR PS138540 0F74 F32D 3946 | EOR 3 QUOT TEST FOR QUOTE PS138550 0F75 4C18 0F79 3947 | BSC L PKC1,+- BRANCH IF SO PS138560 0F77 7101 3948 | MDX 1 1 POINT TO NEXT PS138570 0F78 F327 3949 | EOR 3 X003D RESTORE CHAR, EXCEPT 1 BIT PS138580 0F79 F328 3950 | PKC1 EOR 3 BLAN MAKE BLANK OR RESTORE CHAR PS138590 0F7A 4C80 0F72 3951 | BSC I PKC EXIT PS138600 0F7C 4380 3952 | PK4 BSI 3 EPRT PRINT MACRO NOT FOUND MESS PS138610 0F7D 108C 3953 | DC EM11 TF PS138620 0F7E 4C00 026F 3954 | PK5 BSC L MUP09 GO TO READ CTRL CD PS138630 MHDR 3957 | *************************************************** PS138660 3958 | * MHDR SKIPS TO THE NEXT MACRO IGNORING PS138670 3959 | * INTERVENING TEXT AND PURGED MACROS. PS138680 3960 | * IT THEN UPDATES THE POINTER TO NEXT PS138690 3961 | * MACRO, FILLS IN THE CHAIN WORD IN THE PS138700 3962 | * OUTPUT BUFFER, AND TRANSFERS THE PS138710 3963 | * MACRO HEADER TO THE OUTPUT BUFFER. PS138720 3964 | *************************************************** PS138730 0F80 0000 3966 | MHDR DC *-* PS138750 0F81 7400 116C 3967 | MH1 MDX L MPSWX,0 PS138760 0F83 700C 3968 | MDX MH11 PS138770 0F84 C3B0 3969 | LD 3 IPT CALCULATE PS138780 0F85 831E 3970 | A 3 L5 *IPT-CBUF+5 PS138790 0F86 93CF 3971 | S 3 CBUF * PS138800 0F87 D024 3972 | STO MTEMP *AND SAVE PS138810 0F88 C3EF 3973 | LD 3 LMAC PICK UP LMAC AND PS138820 0F89 9022 3974 | S MTEMP *SUBTRACT PS138830 0F8A 4808 3975 | BSC + TEST,SKIP IF PLUS PS138840 0F8B C020 3976 | LD MTEMP - OR Z SET ACC TO IPT PS138850 0F8C 8316 3977 | A 3 C1 YES, AND ONE MORE PS138860 0F8D 1001 3978 | SLA 1 MULTIPLY AND PS138870 0F8E 4400 0954 3979 | BSI L INSBL *CALL INSBL TO UPDATE PS138880 0F90 C3F9 3980 | MH11 LD 3 NMAC PS138890 0F91 D3FA 3981 | STO 3 NMCSV PS138900 0F92 4C20 0F97 3982 | BSC L MH2,Z BRANCH IF IN THIS BUFFER PS138910 0F94 4400 095D 3983 | BSI L NXTBF GET NEXT BUFFER PS138920 0F96 70EA 3984 | MDX MH1 TRY AGAIN PS138930 0F97 83CF 3985 | MH2 A 3 CBUF PS138940 0F98 831E 3986 | A 3 L5 PS138950 0F99 8316 3987 | A 3 C1 PS138960 0F9A D3B0 3988 | STO 3 IPT POINT TO NEW MACRO PS138970 0F9B 1010 3989 | SLA 16 PS138980 0F9C D3B1 3990 | STO 3 ICSW POINT TO 1ST CHAR OF WORD PS138990 0F9D 6580 1128 3991 | LDX I1 IPTX PS139000 0F9F C1FF 3992 | LD 1 -1 PS139010 0FA0 E348 3993 | AND 3 X01FF MASK OUT FLAGS PS139020 0FA1 D3F9 3994 | STO 3 NMAC SET NEXT MACRO POINTER PS139030 0FA2 71FD 3995 | MDX 1 -3 PS139040 0FA3 71FF 3996 | MDX 1 -1 PS139050 0FA4 C100 3997 | LD 1 0 TEST IF MACRO PURGED PS139060 0FA5 D3F4 3998 | STO 3 MPSW PS139070 0FA6 4C18 0F81 3999 | BSC L MH1,+- GET NEXT MACRO IF SO PS139080 0FA8 4400 0FDD 4000 | BSI L HOUT MOVE HEADER TO OUTPUT PS139090 0FAA 4C80 0F80 4001 | BSC I MHDR RETURN PS139100 0FAC 0000 4002 | MTEMP DC *-* PS139110 PHEX 4005 | *************************************************** PS139140 4006 | * PHEX CONVERTS THE NUMBER IN THE * PS139150 4007 | * ACCUMULATOR TO HEX, AND PRINTS IT. * PS139160 4008 | * INDEX 1 IS NOT SAVED. * PS139170 4009 | *************************************************** PS139180 0FAD 0000 4010 | PHEX DC *-* PS139190 0FAE 18D0 4011 | RTE 16 POSITION NUMBER PS139200 0FAF 6104 4012 | LDX 1 4 SET COUNT TO FOUR PS139210 0FB0 1010 4013 | PHEX1 SLA 16 PS139220 0FB1 1084 4014 | SLT 4 MOVE IN NEXT DIGIT PS139230 0FB2 DBAC 4015 | STD 3 DTMP SAVE SHIFTED NUMBER PS139240 0FB3 9317 4016 | S 3 C10 PS139250 0FB4 4810 4017 | BSC - SKIP IF DIGIT PS139260 0FB5 9326 4018 | S 3 X0039 ADJUST FOR A THUR F PS139270 0FB6 833D 4019 | A 3 X00FA BUILD EBCDIC DIGIT PS139280 0FB7 43A2 4020 | BSI 3 PRNT PRINT IT PS139290 0FB8 CBAC 4021 | LDD 3 DTMP PICK UP FOR NEXT PS139300 0FB9 71FF 4022 | MDX 1 -1 SKIP IF DONE PS139310 0FBA 70F5 4023 | MDX PHEX1 LOOP IF NOT PS139320 0FBB 4C80 0FAD 4024 | BSC I PHEX RETURN PS139330 PHDR 4027 | *************************************************** PS139360 4028 | * PHDR PRINTS A MACRO HEADER USING THE* PS139370 4029 | * FOLLOWING FORMAT * PS139380 4030 | * * PS139390 4031 | * XXXX YYY AAAA * PS139400 4032 | * * PS139410 4033 | * WHERE XXXX IS THE SECTOR NUMBER IN * PS139420 4034 | * HEX, OBTAINED FROM THE CURRENT OUTPUT PS139430 4035 | * BUFFER SH, YYY IS THE MACRO HEADER PS139440 4036 | * DISPLACEMENT IN HEX, OBTAINED THRU PS139450 4037 | * LMAC, AND AAAA IS THE BCD MACRO HDR PS139460 4038 | *************************************************** PS139470 0FBD 0000 4039 | PHDR DC *-* PS139480 0FBE 6916 4040 | STX 1 PHSV+1 SAVE INDEX 1 PS139490 0FBF 4400 07D1 4041 | BSI L PTINT CLEAR PRINT BUFFER 212 PS139495 0FC1 6580 1134 4042 | LDX I1 OUTX PS139500 0FC3 C101 4043 | LD 1 1 PICK UP SECTOR ADDRESS PS139510 0FC4 4400 0FAD 4044 | BSI L PHEX CONVERT TO HEX AND PRINT PS139520 0FC6 C328 4045 | LD 3 X0040 BLANK PS139530 0FC7 43A2 4046 | BSI 3 PRNT PRINT BLANK PS139540 0FC8 C480 1167 4047 | LD I LMACX DISPLACEMENT PS139550 0FCA 4400 0FAD 4048 | BSI L PHEX CONVERT TO HEX AND PRINT PS139560 0FCC CBB4 4049 | LDD 3 MNAM PS139570 0FCD D80C 4050 | STD HDPR+1 PS139580 0FCE C3C5 4051 | LD 3 MN2 PS139590 0FCF D00C 4052 | STO HDPR+3 SET UP NAME FOR PRINTING PS139600 0FD0 6C00 117C 4053 | STX L P21X PRINT IN POSITION 21 PS139610 0FD2 4380 4054 | BSI 3 EPRT PRINT IT PS139620 0FD3 0FD9 4055 | DC HDPR PS139630 0FD4 6500 0000 4056 | PHSV LDX L1 *-* RESTORE INDEX 1 PS139640 0FD6 4C80 0FBD 4057 | BSC I PHDR EXIT PS139650 0FD7 4058 | ORG *-1 PS139660 0FD8 4059 | BSS E 1 PS139670 0FD9 0040 4060 | HDPR DC /0040 BLANK PS139680 0FDA 0000 4061 | DC *-* FIRST WORD OF NAME PS139690 0FDB 0000 4062 | DC *-* SECOND PS139700 0FDC 0000 4063 | DC *-* THIRD PLUS FD PS139710 HOUT 4066 | *************************************************** PS139740 4067 | * HOUT MOVES THE HEADER POINTER TO BY * PS139750 4068 | * INDEX 1 TO THE OUTPUT BUFFER, AND * PS139760 4069 | * UPDATES THE OUTPUT CHAINS AND OPT. * PS139770 4070 | * IF REQUIRED, IT PRINTS THE MACRO * PS139780 4071 | * HEADER MOVED. * PS139790 4072 | *************************************************** PS139800 0FDD 0000 4073 | HOUT DC *-* PS139810 0FDE 6680 1130 4074 | LDX I2 OPTX POINT TO OUTPUT PS139820 0FE0 C100 4075 | LD 1 0 PS139830 0FE1 D3B4 4076 | STO 3 MNAM SAVE PS139840 0FE2 D200 4077 | STO 2 0 PS139850 0FE3 C101 4078 | LD 1 1 MACRO PS139860 0FE4 D3B5 4079 | STO 3 MNAM+1 NAME PS139870 0FE5 D201 4080 | STO 2 1 PS139880 0FE6 C102 4081 | LD 1 2 PS139890 0FE7 D202 4082 | STO 2 2 PS139900 0FE8 EB42 4083 | OR 3 X00FF PS139910 0FE9 F31B 4084 | EOR 3 C2 PS139920 0FEA D3C5 4085 | STO 3 MN2 FIFTH CHAR PLUS FD PS139930 0FEB C3B8 4086 | LD 3 OPT PS139940 0FEC 93BC 4087 | S 3 OUT PS139950 0FED 931B 4088 | S 3 C2 PS139960 0FEE EC80 1167 4089 | OR I LMACX CARRY OVER FLAGS PS139970 0FF0 D480 1167 4090 | STO I LMACX BUILD NEW OUTPUT CHAIN PS139980 0FF2 C103 4091 | LD 1 3 SAVES 1ST WORD PAST HEADER PS139990 0FF3 D019 4092 | STO HTEMP *FOR POSSIBLE CONCATENATION PS140000 0FF4 C3F5 4093 | LD 3 MSW TEST MACRO HDR PRINT SW PS140010 0FF5 4420 0FBD 4094 | BSI L PHDR,Z PRINT HEADER IF REQUIRED PS140020 0FF7 1010 4095 | SLA 16 PS140030 0FF8 D3D6 4096 | STO 3 CRDN CLEAR INPUT CARD NUMBER PS140040 0FF9 D3D2 4097 | STO 3 CDNO CLEAR OUTPUT CARD NUMBER PS140050 0FFA D3F3 4098 | STO 3 MHSW CLEAR HDR MOVE NEEDED SW PS140060 0FFB D203 4099 | STO 2 3 CLEAR OUTPUT CHAIN WORD PS140070 0FFC C3EF 4100 | LD 3 LMAC PS140080 0FFD D3FF 4101 | STO 3 PGSW SAVE LAST LMAC PS140090 0FFE C3B8 4102 | LD 3 OPT TF PS140100 0FFF 831C 4103 | A 3 C3 TF PS140110 1000 D3EF 4104 | STO 3 LMAC POINT TO NEW HEADER PS140120 1001 7404 1130 4105 | MDX L OPTX,+4 UPDATE OUTPUT POINTER PS140130 1003 4C80 0FDD 4106 | BSC I HOUT RETURN PS140140 1005 0000 4107 | HSV DC *-* PS140150 1006 C3B8 4108 | LD 3 OPT PS140160 1007 831C 4109 | A 3 C3 PS140170 1008 D3EF 4110 | STO 3 LMAC POINT TO NEW HEADER PS140180 1009 7404 1130 4111 | MDX L OPTX,4 UPDATE OUTPUT POINTER PS140190 100B 4C80 1005 4112 | BSC I HSV EXIT PS140200 4113 | * PS140210 100D 0000 4114 | HTEMP DC *-* SAVES 1ST WD PAST HEADER PS140220 EPRT 4118 | *************************************************** PS140260 4119 | * TABLE OF ERROR MESSAGES PROCESSED PS140270 4120 | * BY EPRT PS140280 4121 | *************************************************** PS140290 4122 | * PS140300 100E 4123 | EM1 EQU * PS140310 100E C4F1 F0F5 4040 40E2 4124 | EBC .D105 SEQUENCE NUMBER NOT FOUND. PS140320 C5D8 E4C5 D5C3 C540 | D5E4 D4C2 C5D9 40D5 | D6E3 40C6 D6E4 D5C4 | 101E FD00 4125 | DC /FD00 PS140330 101F 4126 | EM2 EQU * PS140340 101F C4F1 F0F3 4040 40D3 4127 | EBC .D103 LIBRARY OVERFLO. PS140350 C9C2 D9C1 D9E8 40D6 | E5C5 D9C6 D3D6 | 102A E6FD 4128 | DC /E6FD PS140360 102B 4129 | EM3 EQU * PS140370 102B C4F1 F0F7 4040 40E2 4130 | EBC .D107 SPILL OVERFLO. PS140380 D7C9 D3D3 40D6 E5C5 | D9C6 D3D6 | 1035 E6FD 4131 | DC /E6FD PS140390 1036 4132 | EM4 EQU * PS140400 1036 C4F1 F0F6 4040 40D3 4133 | EBC .D106 LIBRARY NOT SPECIFIED. PS140410 C9C2 D9C1 D9E8 40D5 | D6E3 40E2 D7C5 C3C9 | C6C9 C5C4 | 1044 FD00 4134 | DC /FD00 PS140420 1045 4135 | EM5 EQU * PS140430 1045 C4F1 F0F2 4040 40C9 4136 | EBC .D102 ILLEGAL REQUEST. PS140440 D3D3 C5C7 C1D3 40D9 | C5D8 E4C5 E2E3 | 1050 FD00 4137 | DC /FD00 PS140450 1051 4138 | EM6 EQU * PS140460 1051 E4D7 C4C1 E3C5 40C3 4139 | EBC .UPDATE COMPLETED. PS140470 D6D4 D7D3 C5E3 C5C4 | 1059 FD00 4140 | DC /FD00 PS140480 105A 4141 | EQU * PS140490 105A 4142 | EM7 EQU * PS140500 105A C4F1 F0F0 4040 40D3 4143 | EBC .D100 LIBRARY NOT FOUND. PS140510 C9C2 D9C1 D9E8 40D5 | D6E3 40C6 D6E4 D5C4 | 1066 FD00 4144 | DC /FD00 PS140520 1067 4145 | EM8 EQU * PS140530 1067 C4F1 F0F8 4040 40C3 4146 | EBC .D108 CONTROL STATEMENT REA. PS140540 D6D5 E3D9 D6D3 40E2 | E3C1 E3C5 D4C5 D5E3 | 40D9 C5C1 | 1075 C4FD 4147 | DC /C4FD PS140550 1076 4148 | EM9 EQU * PS140560 1076 C1C2 D6E5 C540 D4C1 4149 | EBC .ABOVE MACRO PURGED. PS140570 C3D9 D640 D7E4 D9C7 | C5C4 | 107F FD00 4150 | DC /FD00 PS140580 1080 4151 | EM10 EQU * PS140590 1080 C1C2 D6E5 C540 D4C1 4152 | EBC .ABOVE MACRO RENAMED AS. PS140600 C3D9 D640 D9C5 D5C1 | D4C5 C440 C1E2 | 108B FD00 4153 | DC /FD00 PS140610 108C 4154 | EM11 EQU * PS140620 108C C4F1 F0F4 4040 40D4 4155 | EBC .D104 MACRO NOT FOUND. PS140630 C1C3 D9D6 40D5 D6E3 | 40C6 D6E4 D5C4 | 1097 FD00 4156 | DC /FD00 PS140640 1098 4157 | EM12 EQU * PS140650 1098 C4F1 F0F1 4040 40C9 4158 | EBC .D101 INVALID SUBFIELD COL XX . PS140660 D5E5 C1D3 C9C4 40E2 | E4C2 C6C9 C5D3 C440 | C3D6 D340 E7E7 4040 | 4040 | 10A9 FD00 4159 | DC /FD00 PS140670 10AA 4160 | EM13 EQU * PS140680 10AA C4F1 F1F2 4040 40D5 4161 | EBC .D112 NONBLANK CARD FOUND ENTER. PS140690 D6D5 C2D3 C1D5 D240 | C3C1 D9C4 40C6 D6E4 | D5C4 40C5 D5E3 C5D9 | 10BA 40C2 D3C1 D5D2 40C3 4162 | EBC . BLANK CARDS. PS140700 C1D9 C4E2 | 10C0 FD00 4163 | DC /FD00 PS140710 10C1 4164 | EM14 EQU * PS140720 10C1 C4F1 F0F9 4040 40D5 4165 | EBC .D109 NAME STATEMENT NOT FOUN. PS140730 C1D4 C540 E2E3 C1E3 | C5D4 C5D5 E340 D5D6 | E340 C6D6 E4D5 | 10D0 C4FD 4166 | DC /C4FD PS140740 10D1 4167 | EM15 EQU * PS140750 10D1 C4F1 F1F0 4040 40C9 4168 | EBC .D110 INVALID NAM. PS140760 D5E5 C1D3 C9C4 40D5 | C1D4 | 10DA C5FD 4169 | DC /C5FD PS140770 10DB 4170 | EM16 EQU * PS140780 10DB C4F1 F1F6 4040 40D3 4171 | EBC .D116 LIBRARY NOT INITIALIZED. PS140790 C9C2 D9C1 D9E8 40D5 | D6E3 40C9 D5C9 E3C9 | C1D3 C9E9 C5C4 | 10EA FD00 4172 | DC /FD00 PS140800 10EB 4173 | EM17 EQU * PS140810 10EB C4F1 F1F7 4040 40C9 4174 | EBC .D117 INVALID PARAMETER. PS140820 D5E5 C1D3 C9C4 40D7 | C1D9 C1D4 C5E3 C5D9 | 10F7 FD00 4175 | DC /FD00 PS140830 EPRT PROCESSING 1178 4178 | D EQU *+128 CONSTANT AREA REFERENCE PS140860 4179 | *************************************************** PS140862 4180 | * ERROR MESSAGE PRINT ROUTINE - ALSO * PS140863 4181 | * USED TO PRINT MUP CONTROL RECORDS * PS140864 4182 | * AND MACRO HEADERS. * PS140865 4183 | *************************************************** PS140866 FF80 4184 | EPRT EQU *-D PS140870 10F8 0000 4185 | EPRTX DC *-* ERROR ROUTINE ENTRY POINT PS140880 10F9 C380 4186 | LD 3 EPRT PS140890 10FA D009 4187 | STO EPRT2+1 SET AREA POINTER INDEX PS140900 10FB 8316 4188 | A 3 ONE PS140910 10FC D380 4189 | STO 3 EPRT SET EXIT PS140920 10FD 6917 4190 | STX 1 EPEX+1 PS140930 10FE C304 4191 | LD 3 P21 TEST IF PRINTING IN PRINT PS140940 10FF 4C20 1103 4192 | BSC L EPRT2,Z *POSITION 21 WANTED PS140950 1101 C300 4193 | LD 3 PLOC FORCE PRINTING TO START AT PS140960 1102 D3D5 4194 | STO 3 CPP *1ST PRINT POSITION PS140970 1103 6580 0000 4195 | EPRT2 LDX I1 *-* AREA INDEX PS140980 1105 1010 4196 | SLA 16 RESET PRINT POSITION 21 PS140990 1106 D304 4197 | STO 3 P21 *SWITCH PS141000 1107 C100 4198 | EPRT1 LD 1 0 PS141010 1108 1808 4199 | SRA 8 PS141020 1109 4005 4200 | BSI EPS PRINT LEFT CHARACTER PS141030 110A C100 4201 | LD 1 0 PS141040 110B E342 4202 | AND 3 X00FF PS141050 110C 4002 4203 | BSI EPS PRINT RIGHT CHARACTER PS141060 110D 7101 4204 | MDX 1 1 POINT TO NEXT WORD PS141070 110E 70F8 4205 | MDX EPRT1 LOOP PS141080 110F 0000 4206 | EPS DC *-* PS141090 1110 43A2 4207 | BSI 3 PRNT PRINT CHARACTER PS141100 1111 9340 4208 | S 3 X00FD PS141110 1112 4CA8 110F 4209 | BSC I EPS,+Z RETURN IF MORE PS141120 1114 6500 0000 4210 | EPEX LDX L1 *-* RESTORE INDEX 1 PS141130 1116 4C88 10F8 4211 | BSC I EPRTX,+ PS141140 1118 4C00 0FD4 4212 | BSC L PHSV PS141150 FFA2 4213 | PRNT EQU *-D PS141160 111A 0000 4214 | PRNTY DC *-* PS141170 111B 4400 070A 4215 | BSI L PRIN1 CALL PRINT PS141180 111D 4C80 111A 4216 | BSC I PRNTY EXIT PS141190 DOUBLE WORD STORAGE 1120 4218 | BSS E 0 PS141210 FFA8 4219 | CLIB EQU *-D NAME OF CONCATENATED PS141220 1120 0000 4220 | CLIBX DC *-* *LIBRARY IN NAME CODE PS141230 1121 0000 4221 | DC *-* * PS141240 FFAA 4222 | DTMG EQU *-D SAVES CONTENTS OF IPT,ICSW PS141250 1122 0000 4223 | DTMGX DC *-* *DURING PROCESSING OF PS141260 1123 0000 4224 | DC *-* *MACRO TEXT PS141270 FFAC 4225 | DTMP EQU *-D SAVES CONTENTS OF OPT, OCSW PS141280 1124 0000 4226 | DTMPX DC *-* *DURING PROCESSING OF PS141290 1125 0000 4227 | DC *-* *MACRO TEXT PS141300 FFAE 4228 | GTST EQU *-D POINTER TO PROTOTYPE AREA PS141310 1126 11D0 4229 | GTSTX DC PTBUF *FOR PROCESSING MACRO PS141320 1127 0000 4230 | DC *-* *SOURCE TEXT PS141330 FFB0 4231 | IPT EQU *-D CORE POINTER TO WORD PS141340 1128 0000 4232 | IPTX DC *-* *HOLDING NEXT INPUT CHAR PS141350 FFB1 4233 | ICSW EQU *-D INPUT CHAR BYTE POINTER PS141360 1129 0000 4234 | ICSWX DC *-* 0=LEFT,NONZERO=RIGHT BYTE PS141370 FFB2 4235 | LNAM EQU *-D NAME OF LIBRARY FOUND IN PS141380 112A 0000 4236 | LNAMX DC *-* *LET/FLET (NAME CODE) PS141390 112B 0000 4237 | DC *-* * PS141400 FFB4 4238 | MNAM EQU *-D FIRST 4 CHARACTERS OF PS141410 112C 0000 4239 | MNAMX DC *-* *CURRENT MACRO NAME PS141420 112D 0000 4240 | DC *-* * PS141430 FFB6 4241 | OPCD EQU *-D HOLDS OP CODE OF SOURCE PS141440 112E 0000 4242 | OPCDX DC *-* RECORD BEING PROCESSED PS141450 112F 0000 4243 | DC *-* * PS141460 FFB8 4244 | OPT EQU *-D CORE POINTER TO WORD PS141470 1130 13BF 4245 | OPTX DC KOUT+3 *HOLDING NEXT OUTPUT CHAR PS141480 FFB9 4246 | OCSW EQU *-D OUTPUT CHAR BYTE POINTER PS141490 1131 0000 4247 | OCSWX DC *-* 0=LEFT,NONZERO=RIGHT BYTE PS141500 FFBA 4248 | OPTD EQU *-D POINTER TO PROTOTYPE AREA PS141510 1132 11D0 4249 | OPTDX DC PTBUF *FOR PROCESSING MACRO PS141520 1133 0000 4250 | DC *-* *SOURCE TEXT PS141530 FFBC 4251 | OUT EQU *-D POINTER TO CURRENT OUTPUT PS141540 1134 13BC 4252 | OUTX DC KOUT *BUFFER PS141550 FFBD 4253 | NOUT EQU *-D POINTER TO CURRENT UNUSED PS141560 1135 14FE 4254 | NOUTX DC KNOUT *OUTPUT BUFFER PS141570 FFBE 4255 | SLIB EQU *-D FIRST SECTOR ADDR OF PS141580 1136 0000 4256 | SLIBX DC *-* *CURRENT LIBRARY PS141590 FFBF 4257 | ELIB EQU *-D LAST SECTOR OF CURRENT PS141600 1137 7FFF 4258 | ELIBX DC /7FFF *LIBRARY + 1 PS141610 FFC0 4259 | SLS EQU *-D LIB START SAVE PS141620 1138 0000 4260 | SLSX DC *-* * PS141630 FFC1 4261 | ELS EQU *-D LIB END SAVE PS141640 1139 0000 4262 | ELSX DC *-* * PS141650 FFC2 4263 | SNAM EQU *-D NAME OF MACRO BEING SOUGHT PS141660 113A FFFF 4264 | SNAMX DC -1 * PS141670 113B FFFF 4265 | DC -1 VALUE-FFF FFF PS141680 FFC4 4266 | SN2 EQU *-D PS141690 113C 0000 4267 | DC *-* EXTENSION OF SNAM PS141700 FFC5 4268 | MN2 EQU *-D PS141710 113D 0000 4269 | DC *-* EXTENSION OF MNAM PS141720 FFC6 4270 | SPL1 EQU *-D NEXT INPUT SPILL SECTOR PS141730 113E 0000 4271 | SPL1X DC *-* *(RELATIVE TO START OF WS) PS141740 FFC7 4272 | SPLN EQU *-D NEXT OUTPUT SPILL SECTOR PS141750 113F 0000 4273 | SPLNX DC *-* *(RELATICE TO START OF WS) PS141760 SINGLE WORD STORAGE FFC8 4275 | ADSW EQU *-D ADD SWITCH - SET ON PS141780 1140 0000 4276 | ADSWX DC *-* *(NON-ZERO) DURING ADD PS141790 FFC9 4277 | AMPS EQU *-D AMPERSAND SWITCH PS141800 1141 0000 4278 | AMPSX DC *-* * PS141810 FFCA 4279 | ARG1 EQU *-D HOLDS FIRST PARAMETER ON PS141820 1142 0000 4280 | ARG1X DC *-* *DELETE STATEMENT PS141830 FFCB 4281 | ARG2 EQU *-D HOLDS SECOND PARAMETER PS141840 1143 0000 4282 | ARG2X DC *-* *ON DELETE STATEMENT PS141850 FFCC 4283 | ASSW EQU *-D ASTERISK SWITCH - SET=0 IF PS141860 1144 0000 4284 | ASSWX DC *-* *COMMENT (* IN COL 21) PS141870 FFCD 4285 | BEND EQU *-D BUFFER END - SET TO LAST PS141880 1145 0000 4286 | BENDX DC *-* *(ONLY) INPUT BUFFER + 322 PS141890 FFCE 4287 | BSW EQU *-D BUILD SWITCH - SET NONZERO PS141900 1146 0000 4288 | BSWX DC *-* *DURING BUILD OPERATION PS141910 FFCF 4289 | CBUF EQU *-D POINTER TO CURRENT INPUT PS141920 1147 0000 4290 | CBUFX DC *-* *BUFFER PS141930 FFD0 4291 | CCSA EQU *-D CONCATENATE SECTOR ADDRESS PS141940 1148 0000 4292 | CCSAX DC *-* * PS141950 FFD1 4293 | CCSW EQU *-D CONCATENATE SWITCH - SET PS141960 1149 0000 4294 | CCSWX DC *-* *IF CONCATENATE IN EFFECT PS141970 FFD2 4295 | CDNO EQU *-D OUTPUT RECORD NUMBER PS141980 114A 0000 4296 | CDNOX DC *-* * PS141990 FFD3 4297 | CHAR EQU *-D HOLDS CURRENT INPUT OR PS142000 114B 0000 4298 | CHARX DC *-* *OUTPUT CHARACTER PS142010 FFD4 4299 | COM EQU *-D SET - TREAT MACRO TEXT AS PS142020 114C 0000 4300 | COMX DC *-* *A COMMENT PS142030 FFD5 4301 | CPP EQU *-D CURRENT PRINT POSITION PS142040 114D 0000 4302 | CPPX DC *-* * PS142050 FFD6 4303 | CRDN EQU *-D INPUT RECORD NUMBER PS142060 114E 0000 4304 | CRDNX DC *-* * PS142070 FFD7 4305 | CSW EQU *-D COMMENTS INCLUSION SWITCH PS142080 114F 0000 4306 | CSWX DC *-* SET IF C PARAMETER ON SEL. PS142090 FFD8 4307 | C32 EQU *-D CONSTANT POINTER TO COL. 32 PS142100 1150 11EF 4308 | C32X DC SAREA+31 * PS142110 FFD9 4309 | DEC10 EQU *-D BAD COLUMN 10'S COUNTER PS142120 1151 0000 4310 | DC10X DC *-* * PS142130 FFDA 4311 | DELT EQU *-D DELET SWITCH PS142140 1152 0000 4312 | DELTX DC *-* * PS142150 FFDB 4313 | EBCS EQU *-D EBCDIC SWITCH - IF SET, PS142160 1153 0000 4314 | EBCSX DC *-* *LEAVE SOURCE TEXT IN EBC PS142170 FFDC 4315 | ECD EQU *-D LOGICAL END OF RECORD PS142180 1154 0000 4316 | ECDX DC *-* * PS142190 FFDD 4317 | ENSW EQU *-D END SWITCH - SET IF NO PS142200 1155 0000 4318 | ENSWX DC *-* *MORE INPUT SECTORS IN LIB PS142210 FFDE 4319 | EPTR EQU *-D HOLDS ADDRESS OF LAST PS142220 1156 0000 4320 | EPTRX DC *-* *SECTOR USED IN LIBRARY PS142230 FFDF 4321 | ESEC EQU *-D LAST SECTOR USED BY PS142240 1157 0000 4322 | ESECX DC *-* *CURRENT LIBRARY PS142250 FFE0 4323 | ESPL EQU *-D NUMBER OF SECTORS OF PS142260 1158 0000 4324 | ESPLX DC *-* *AVAILABLE WORKING STORAGE PS142270 FFE1 4325 | FESW EQU *-D SET BY ADD TO FORCE MOVE PS142280 1159 0000 4326 | FESWX DC *-* *TO PUT A /FE OUT PS142290 FFE2 4327 | FLSW EQU *-D FLUSH SWITCH PS142300 115A 0000 4328 | FLSWX DC *-* * PS142310 FFE3 4329 | IND EQU *-D FIELD POSITION INDICATOR PS142320 115B 0000 4330 | INDX DC *-* * PS142330 FFE4 4331 | INDL EQU *-D PS142340 115C 0000 4332 | INDLX DC *-* INSERT/DELETE SWITCH PS142350 FFE5 4333 | INLC EQU *-D CONSTANT - POINTER TO 1ST PS142360 115D 1640 4334 | INLCX DC IN1 *(ONLY) INPUT BUFFER PS142370 FFE6 4335 | INSW EQU *-D INIT SW - SET ON TO FORCE PS142380 115E 115F 4336 | INSWX DC * *FILLING OF INPUT BUFFER (S PS142390 FFE7 4337 | ISW EQU *-D PS142400 115F 1160 4338 | ISWX DC * INSERT PRINT SWITCH PS142410 FFE8 4339 | JSW EQU *-D JOIN SW - SET ON (0) PS142420 1160 1161 4340 | JSWX DC * *DURING LIBRARY JOINING PS142430 FFE9 4341 | J1SW EQU *-D JOIN1 SW-SET ON (ZERO) PS142440 1161 1162 4342 | J1SWX DC * FOR 1ST JOIN FLUSH PS142450 FFEA 4343 | LBAL EQU *-D PS142460 1162 0000 4344 | LBALX DC *-* LIBRARY BALANCE COUNT PS142470 FFEB 4345 | LBSW EQU *-D LIB OR BUILD SWITCH PS142480 1163 0000 4346 | LBSWX DC *-* * PS142490 FFEC 4347 | LF500 EQU *-D WORK WORD PS142500 1164 0000 4348 | LF50X DC *-* * PS142510 FFED 4349 | LNRS EQU *-D LIB NAME RESET SWITCH PS142520 1165 0000 4350 | LNRSX DC *-* * PS142530 FFEE 4351 | LPSW EQU *-D LAST PASS SWITCH - SET ON PS142540 1166 0000 4352 | LPSWX DC *-* *IF LIB WRITEBACK DESIRED PS142550 FFEF 4353 | LMAC EQU *-D CORE POINTER TO CHAIN WORD PS142560 1167 13BE 4354 | LMACX DC KOUT+2 *OF LAST MACRO HEADER PS142570 FFF0 4355 | LPCT EQU *-D INCREMENTED (DECREMENTED) PS142580 1168 0000 4356 | LPCTX DC *-* *IF LEFT (RIGHT) PAREN. PS142590 FFF1 4357 | LSW EQU *-D LIST ERROR SWITCH PS142600 1169 0000 4358 | LSWX DC *-* * PS142610 FFF2 4359 | MCHA EQU *-D NUMBER OF CHARACTERS IN THE PS142620 116A 0000 4360 | MCHAX DC *-* *CURRENT CHARACTER STRING PS142630 FFF3 4361 | MHSW EQU *-D HEADER MOVE SWITCH - SET PS142640 116B 116C 4362 | MHSWX DC * *IF MACRO HDR MOVE NEEDED PS142650 FFF4 4363 | MPSW EQU *-D PS142660 116C 116D 4364 | MPSWX DC * MACRO PURGE SWITCH PS142670 FFF5 4365 | MSW EQU *-D MACRO HEADER PRINT SWITCH PS142680 116D 116E 4366 | MSWX DC * (ON INITIALLY - DEFAULT) PS142690 FFF6 4367 | NAMC EQU *-D NAME ROUTINE WORK WORD PS142700 116E 0000 4368 | NAMCX DC *-* * PS142710 FFF7 4369 | NDDF EQU *-D INDICATES NON-DDF ENTRY PS142720 116F 0000 4370 | NDDFX DC *-* *MATCH FOUND IN LET/FLET PS142730 FFF8 4371 | NIN EQU *-D HOLDS NEXT INPUT SECTOR PS142740 1170 0000 4372 | NINX DC *-* *OF LIBRART PS142750 FFF9 4373 | NMAC EQU *-D DISPLACEMENT FROM SECTOR PS142760 1171 0000 4374 | NMACX DC *-* *START TO NEXT MACRO HDR PS142770 FFFA 4375 | NMCSV EQU *-D SAVE LAST HEADER IN LOC PS142780 1172 0000 4376 | NMCSX DC *-* * PS142790 FFFB 4377 | NMSW EQU *-D NAME SWITCH PS142800 1173 0000 4378 | NMSWX DC *-* * PS142810 FFFC 4379 | NSTS EQU *-D MACRO NEST SWITCH PS142820 1174 0000 4380 | NSTSX DC *-* * PS142830 FFFD 4381 | OLIB EQU *-D LAST OUTPUT SECTOR OF PS142840 1175 0000 4382 | OLIBX DC *-* *CURRENT LIBRARY + 1 PS142850 FFFE 4383 | OPSW EQU *-D OUTPUT SWITCH - SET ON PS142860 1176 0000 4384 | OPSWX DC *-* *DURING OUTPUT PROCESSING PS142870 FFFF 4385 | PGSW EQU *-D PS142880 1177 0000 4386 | PGSWX DC *-* HEADER PURGE SWITCH PS142890 0000 4387 | PLOC EQU *-D PRINT LOCATION PS142900 1178 07E5 4388 | PLOCX DC PAREA * PS142910 0001 4389 | PSW EQU *-D PS142920 1179 0000 4390 | PSWX DC *-* SELECT P INDICATOR PS142930 0002 4391 | PSWSV EQU *-D SAVES SELECT P SWITCH (PSW) PS142940 117A 0000 4392 | PSSVX DC *-* *DURING LIBRARY FLUSH PS142950 0003 4393 | PRTSW EQU *-D PRINT HALFWORD POINTER PS142960 117B 0000 4394 | PTSWX DC *-* 0=LEFT,NONZERO=RIGHT BYTE PS142970 0004 4395 | P21 EQU *-D ERROR MESSAGE PRINT IN PS142980 117C 0000 4396 | P21X DC *-* *PRINT POSITION 21 SWITCH PS142990 0005 4397 | P9RT EQU *-D CONSTANT - POINTER TO PRINT PS143000 117D 07EF 4398 | P9RTX DC PAREA+10 *POSITION 21 PS143010 117E 0000 4399 | RADDR DC *-* HOLDS DISK READ ADDRESS PS143020 0007 4400 | RPT EQU *-D SET TO ADDRESS OF FIRST PS143030 117F 0000 4401 | RPTX DC *-* *CHARACTER OF OPERAND PS143040 1180 0000 4402 | SAVE3 DC *-* SAVES XR3 PS143050 0009 4403 | SBAL EQU *-D PS143060 1181 0000 4404 | SBALX DC *-* SECTOR BALANCE COUNT PS143070 000A 4405 | SKSW EQU *-D SKIP SW - PREVENTS DATA PS143080 1182 0000 4406 | SKSWX DC *-* *MOVEMENT TO OUTPUT DSK BFR PS143090 000B 4407 | SPOV EQU *-D SPILL OVERFLOW SWITCH PS143100 1183 0000 4408 | SPOVX DC *-* * PS143110 000C 4409 | SPSW EQU *-D SPILL SWITCH - SET IF SPILL PS143120 1184 0000 4410 | SPSWX DC *-* *TO WORKING STORAGE OCCURS PS143130 000D 4411 | SSW EQU *-D IF SET PREVENTS MOVE SUBR PS143140 1185 0000 4412 | SSWX DC *-* *FROM UPDATING INPUT SEQ NO PS143150 000E 4413 | TEMP EQU *-D WORK WORD PS143160 1186 0000 4414 | TEMPX DC *-* * PS143170 1187 0000 4415 | TEMP3 DC *-* WORK WORD PS143180 1188 0000 4416 | TEMP4 DC *-* WORK WORD PS143190 0011 4417 | TERM EQU *-D HOLDS TERMINATOR USED TO PS143200 1189 0000 4418 | TERMX DC *-* *CONTROL MOVE SUBR ACTION PS143210 0012 4419 | TV4P EQU *-D CONSTANT - PRINT ROUTINE PS143220 118A 07E4 4420 | TV4PX DC PAREA-1 *CALLING SEQUENCE ADDR PS143230 0013 4421 | WORKS EQU *-D WORK. STOR. STARTING ADDR PS143240 118B 0000 4422 | DC *-* *WITH LOGICAL DRIVE CODE PS143250 118C 0000 4423 | WADDR DC *-* SECTOR WRITE ADDRESS PS143260 0015 4424 | X EQU *-D NUMBER OF INPUT DISK PS143270 118D 0000 4425 | XX DC *-* *BUFFERS (1) PS143280 CONSTANT STORAGE 4427 | *************************************************** PS143300 4428 | * THE FOLLOWING CONSTANTS TO D10T MUST PS143310 4429 | * REMAIN IN THIS ORDER AS THEY PS143320 4430 | * COMPRISE A CONVERSION TABLE. PS143330 4431 | *************************************************** PS143340 118E 4432 | L1 EQU * START OF CONVERSION TABLE PS143350 0016 4433 | X0001 EQU *-D CONSTANT 1 PS143360 118E 0001 4434 | C1X DC 1 * PS143370 0016 4435 | C1 EQU X0001 * PS143380 0016 4436 | ONE EQU X0001 * PS143390 0017 4437 | C10 EQU *-D CONSTANT 10 PS143400 118F 000A 4438 | DC 10 * PS143410 0017 4439 | L10 EQU C10 * PS143420 1190 0064 4440 | DC 100 CONSTANT 100 PS143430 1191 03E8 4441 | DC 1000 CONSTANT 1000 PS143440 1192 2710 4442 | D10T DC 10000 CONSTANT 10000 PS143450 4443 | ****************** END OF CONVERSION TABLE ****** PS143454 001B 4444 | X0002 EQU *-D PS143460 1193 0002 4445 | DC /2 PS143470 001B 4446 | C2 EQU X0002 PS143480 001C 4447 | X0003 EQU *-D PS143490 1194 0003 4448 | DC /3 PS143500 001C 4449 | L3 EQU X0003 PS143510 001C 4450 | C3 EQU X0003 PS143520 001D 4451 | X0004 EQU *-D PS143530 1195 0004 4452 | DC 4 PS143540 001D 4453 | C4 EQU X0004 PS143550 001E 4454 | L5 EQU *-D PS143560 1196 0005 4455 | L5X DC 5 PS143570 1197 0008 4456 | H0008 DC /0008 PS143580 0020 4457 | D0010 EQU *-D PS143590 1198 000A 4458 | DC 10 CONSTANT 10 PS143600 0021 4459 | H0F EQU *-D PS143610 1199 000F 4460 | H0FX DC /F PS143620 0022 4461 | D20 EQU *-D DECIMAL 20 PS143630 119A 0014 4462 | DC 20 PS143640 0023 4463 | D40 EQU *-D PS143650 119B 0028 4464 | DC 40 PS143660 0024 4465 | X0029 EQU *-D PS143670 119C 0029 4466 | DC /0029 PS143680 0025 4467 | X002B EQU *-D PS143690 119D 002B 4468 | DC /2B PS143700 0025 4469 | X2B EQU X002B PS143710 0026 4470 | X0039 EQU *-D PS143720 119E 0039 4471 | DC /39 PS143730 0027 4472 | X003D EQU *-D PS143740 119F 003D 4473 | DC /003D PS143750 0028 4474 | BLAN EQU *-D PS143760 11A0 0040 4475 | BLANX DC /40 EBCDIC BLANK PS143770 0028 4476 | X0040 EQU BLAN PS143780 0029 4477 | D0080 EQU *-D PS143790 11A1 0050 4478 | DC 80 PS143800 002A 4479 | ASTK EQU *-D PS143810 11A2 005C 4480 | ASTKX DC .* PS143820 002B 4481 | DOT EQU *-D COMMENT DESIGNATION PS143830 11A3 004B 4482 | DOTX DC .. * PS143840 002C 4483 | SLSH EQU *-D PS143850 11A4 0061 4484 | SHSHX DC ./ PS143860 002D 4485 | QUOT EQU *-D PS143870 11A5 007D 4486 | QUOTX DC /7D PS143880 002E 4487 | CAMP EQU *-D EBCDIC AMPERSAND PS143890 11A6 0050 4488 | CAMPX DC /0050 PS143900 002F 4489 | X0085 EQU *-D PS143910 11A7 0085 4490 | DC /85 PS143920 0030 4491 | X00C0 EQU *-D PS143930 11A8 00C0 4492 | DC /00C0 PS143940 0031 4493 | CA EQU *-D EBCDIC A PS143950 11A9 00C1 4494 | CAX DC .A PS143960 0032 4495 | DCONT EQU *-D PS143970 0032 4496 | CD EQU DCONT PS143980 11AA 00C4 4497 | DC .D EBCDIC D PS143990 0033 4498 | CE EQU *-D EBCDIC E PS144000 11AB 00C5 4499 | CEX DC .E PS144010 0034 4500 | CI EQU *-D EBCDIC I PS144020 11AC 00C9 4501 | CIX DC .I PS144030 0035 4502 | MCONT EQU *-D PS144040 11AD 00D4 4503 | DC .M EBCDIC M PS144050 0036 4504 | CN EQU *-D PS144060 11AE 00D5 4505 | CNX DC .N PS144070 0037 4506 | CR EQU *-D EBCDIC R PS144080 11AF 00D9 4507 | CRX DC .R PS144090 0038 4508 | CU EQU *-D EBCDIC U PS144100 11B0 00E4 4509 | CUX DC .U PS144110 0039 4510 | HE740 EQU *-D PS144120 11B1 E740 4511 | DC /E740 EBCDIC X AND BLANK PS144130 003A 4512 | SCONT EQU *-D PS144140 11B2 00E2 4513 | DC .S EBCDIC S PS144150 003B 4514 | H00EF EQU *-D CONVERSION TABLE ENTRY PS144160 11B3 00EF 4515 | HEFX DC /00EF *REPLACEMENT PS144170 003C 4516 | F0 EQU *-D PS144180 11B4 00F0 4517 | F0X DC /F0 PS144190 003D 4518 | FA EQU *-D PS144200 11B5 00FA 4519 | FAX DC /FA PS144210 003D 4520 | X00FA EQU FA PS144220 003E 4521 | FB EQU *-D PS144230 11B6 00FB 4522 | FBX DC /FB PS144240 003F 4523 | FC EQU *-D PS144250 11B7 00FC 4524 | DC /FC PS144260 0040 4525 | FD EQU *-D PS144270 11B8 00FD 4526 | FDX DC /FD PS144280 0040 4527 | X00FD EQU FD PS144290 0041 4528 | X00FE EQU *-D PS144300 11B9 00FE 4529 | DC /00FE PS144310 0042 4530 | X00FF EQU *-D PS144320 11BA 00FF 4531 | HXFF DC /00FF PS144330 0043 4532 | C314 EQU *-D PS144340 11BB 013A 4533 | DC 314 PS144350 0044 4534 | C316 EQU *-D PS144360 11BC 013C 4535 | DC 316 PS144370 0045 4536 | C317 EQU *-D PS144380 11BD 013D 4537 | DC 317 PS144390 0046 4538 | D320 EQU *-D PS144400 11BE 0140 4539 | D320X DC 320 PS144410 0046 4540 | C320 EQU D320 PS144420 0047 4541 | D322 EQU *-D PS144430 11BF 0142 4542 | D322X DC 322 PS144440 0047 4543 | C322 EQU D322 PS144450 0048 4544 | X01FF EQU *-D PS144460 11C0 01FF 4545 | DC /01FF PS144470 0049 4546 | D640 EQU *-D PS144480 11C1 0280 4547 | D640X DC 640 PS144490 004A 4548 | D1600 EQU *-D PS144500 11C2 0640 4549 | DC 1600 PS144510 004B 4550 | UPLIM EQU *-D PS144520 11C3 1782 4551 | DC BUF5-/6000 INPUT BFR ALLOCATION LIM PS144530 004C 4552 | H4040 EQU *-D EBCDIC BLANKS PS144540 11C4 4040 4553 | DC /4040 * PS144550 004D 4554 | ADCON EQU *-D PS144560 11C5 11CF 4555 | DC SAREA-1 INPUT BUFFER - 1 PS144570 004E 4556 | X1000 EQU *-D PS144580 11C6 1000 4557 | DC /1000 PS144590 11C8 4558 | BSS E 0 PS144600 0050 4559 | X1001 EQU *-D PS144610 11C8 1001 4560 | DC /1001 PS144620 0051 4561 | X100F EQU *-D PS144630 11C9 100F 4562 | DC /100F PS144640 0052 4563 | X4000 EQU *-D PS144650 11CA 4000 4564 | DC /4000 PS144660 0053 4565 | X8000 EQU *-D PS144670 11CB 8000 4566 | DC /8000 PS144680 0054 4567 | X8001 EQU *-D PS144690 11CC 8001 4568 | DC /8001 PS144700 0055 4569 | X8005 EQU *-D G PS144710 11CD 8005 4570 | DC /8005 G PS144720 0056 4571 | XFE00 EQU *-D PS144730 11CE FE00 4572 | DC /FE00 PS144740 BUFFERS 11CF 0050 4574 | DC 80 PS144760 11D0 4575 | SAREA BSS 80 PS144770 1220 FD00 4576 | DC /FD00 PS144780 11D0 4577 | PTBUF EQU SAREA PS144790 4578 | *************************************************** PS144800 4579 | *************************************************** PS144810 13BC 4580 | PTCH EQU BUF5-/6000-/03C6 ALLOW 3 DISK BFRS PS144820 1221 4581 | PATCH BSS PTCH-* PS144830 4582 | *************************************************** PS144840 4583 | *************************************************** PS144850 13BC 4584 | BSS E 0 ALIGN BFRS ON EVEN BOUNDARY PS144860 13BC 0000 4585 | KOUT DC *-* PS144870 13BD 0000 4586 | DC *-* PS144880 13BE 0000 4587 | DC *-* PS144890 EQUATES 14FE 4589 | KNOUT EQU KOUT+322 PS144910 1640 4590 | IN1 EQU KNOUT+322 FIRST INPUT BUFFER LOCATION PS144920 13BF 4591 | END MUP PS144930 There were no errors in this assembly Program transfer address = 01E0 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN FF9C 98 #ANDU FFA3 104 #BNDU FFA8 105 #CBSW FF8A 77 #CIAD FF9B 97 #CIBA FFBC 109 #CIDN FFB7 108 #CSHN FFDA 115 #DBCT FF86 73 #DCOM 0001 116 #DCSW FF98 94 #ECNT FFA1 103 #ENTY FF90 83 #FCNT FF87 74 #FHOL FF94 90 #FLET FFCB 112 #FMAT FFC6 111 #FPAD FFAD 106 #FRDR FF93 88 #FSZE FF95 91 #GCNT FF9E 100 #GRPH FF9D 99 #HDNG 0007 117 #JBSW FF89 76 #LCNT FF8B 78 #LOSW FF9F 101 #MDF1 FF8D 80 #MDF2 FF8E 81 #MPSW FF8C 79 #NAME FF84 72 #NCNT FF8F 82 #PCID FFB2 107 #PIOD FF99 95 3176 #PPTR FF9A 96 #RP67 FF91 84 3218 3242 #SCRA FFC1 110 #SYSC FF88 75 #TODR FF92 87 #UHOL FF96 92 #ULET FFD0 113 #USZE FF97 93 #WSCT FFD5 114 #X3SW FFA0 102 $1132 007F 33 $1403 0080 34 $ACDE 009F 42 $BYSW 01CB 52 $CH12 0006 4 $CIBA 0005 3 $COMN 0007 5 $CORE 000E 6 $CPTR 007E 32 $CTSW 000F 7 845 2144 3116 3740 $CYLN 009A 41 $DABL 0011 9 $DADR 0010 8 $DBSY 00EE 51 $DCDE 0077 25 $DCYL 00A4 43 $DREQ 0012 10 $DUMP 003F 24 $EXIT 0038 22 $FPAD 0095 40 477 $HASH 0014 12 $I200 00B3 44 $I205 00B8 45 46 $I400 00C4 47 $I405 00D3 48 49 $I410 00D5 50 $IBSY 0013 11 3188 3324 3791 $IBT2 00B9 46 $IBT4 00D4 49 $IOCT 0032 16 $IREQ 002C 14 $KCSW 007C 30 $LAST 0033 17 $LINK 0039 23 $NDUP 0034 18 $NXEQ 0035 19 $PBSY 0036 20 3342 $PGCT 0037 21 $PHSE 0078 26 $PRET 0028 13 3346 $PST1 0081 35 $PST2 0085 36 $PST3 0089 37 $PST4 008D 38 $STOP 0091 39 $UFDR 007D 31 $UFIO 0079 27 $ULET 002D 15 3447 $WRD1 007B 29 $WSDR 007A 28 473 $ZEND 01E0 54 265 'BLCT 0002 3551 3480 'LENM 0000 3552 'LFEN 0003 3553 3525 'LFHD 0005 3579 3480 3486 3491 3501 3580 'LFNM 0000 3550 3486 3491 3501 'MXDR 0005 3574 3446 3447 'NEXT 0004 3554 3536 3542 'SBFR 0FB0 118 'SCTN 0000 3576 3464 'UAFX 0001 3581 3472 'WDSA 0003 3578 3477 ADCON 004D 4554 3808 ADD 0C6A 3134 609 3162 ADDR1 0547 1340 ADDR2 003D 227 ADSW FFC8 4275 1133 1473 1874 1993 2179 2520 2525 2533 2979 2992 3144 3160 ADSWX 1140 4276 2542 AMPS FFC9 4277 1434 1443 1450 1582 AMPSX 1141 4278 ARG1 FFCA 4279 901 948 960 961 965 1058 1061 1066 ARG1X 1142 4280 ARG2 FFCB 4281 958 1064 ARG2X 1143 4282 ARGSW 040F 953 925 946 959 ASMSW 000E 152 ASSW FFCC 4283 1090 1304 1352 1740 1743 2035 ASSWX 1144 4284 ASTK 002A 4479 1089 1739 2152 3700 3703 ASTKX 11A2 4480 B 01DE 265 266 267 268 269 270 271 438 B071 09D7 2524 1491 BEND FFCD 4285 2405 BENDX 1145 4286 503 BFOUT 09A2 2473 2246 2336 2567 3023 3084 BINEB 7DB0 278 BITSW 000F 153 BL000 0D42 3327 3332 BLAN 0028 4474 565 676 729 753 856 1186 1312 1746 1850 2064 3213 3252 3372 3697 3950 4476 BLANX 11A0 4475 3714 BLKIT 0D6B 3373 3376 BLKSW 0010 154 BLTST 0D3B 3322 3231 3245 3333 3334 3347 BO11 0A14 2578 2546 BO13 0A24 2588 BO14 0A3C 2609 2602 BO15 0A3F 2611 2599 2608 2620 BO16 0A4A 2617 2607 2610 BO2 09E9 2541 2481 BO3 09F1 2550 2543 2616 BO5 09C7 2510 BO7 09CF 2517 BO75 09E1 2532 2521 2523 BO8 0A07 2568 2516 2559 2574 BO9 0A00 2563 2477 BRCH 06DA 1769 1766 BSW FFCE 4287 2681 2787 2802 2854 2890 BSWX 1146 4288 2814 2818 BUF1 79B5 303 304 BUF2 7963 304 305 BUF3 7925 305 306 BUF4 78D3 306 BUF5 7782 307 308 4551 4580 BUF6 7D91 296 297 298 BUF7 0640 308 BUFAD 0545 1338 1735 BUILD 0A7F 2673 629 2689 C 7FA0 56 455 507 847 2147 2164 2185 3118 3175 3184 3191 3193 3202 3203 3204 3217 3241 3268 3323 3743 3777 3785 C1 0016 4435 1168 1465 2419 2456 3025 3977 3987 C10 0017 4437 4016 4439 C1HEX 07CE 2015 1906 C1X 118E 4434 C2 001B 4446 1377 1469 4084 4088 C3 001C 4450 2439 4103 4109 C314 0043 4532 C316 0044 4534 C317 0045 4536 2330 C32 FFD8 4307 1308 1399 C320 0046 4540 C322 0047 4543 2199 2245 2403 C32X 1150 4308 C4 001D 4453 2845 CA 0031 4493 664 CAMP 002E 4487 685 1436 CAMPX 11A6 4488 CATCO 7F1E 273 CAX 11A9 4494 CBUF FFCF 4289 2198 2402 2404 2438 2896 3971 3985 CBUFX 1147 4290 2400 CCSA FFD0 4291 2502 2720 2987 3010 CCSAX 1148 4292 CCSW FFD1 4293 561 2688 2701 2983 3008 CCSWX 1149 4294 2721 CD 0032 4496 3136 CDNO FFD2 4295 1808 2327 4097 CDNOX 114A 4296 2292 CE 0033 4498 1043 CEX 11AB 4499 CHAR FFD3 4297 1330 1373 1386 1396 1437 1447 1729 1738 1741 1745 1751 1762 1840 1843 1853 1867 1883 1920 1923 2010 2205 2208 2217 2249 2284 2302 2311 2315 2318 2323 2334 2345 2350 CHARX 114B 4298 CHEK 06D5 1765 1747 1750 1753 CI 0034 4500 2678 CIERR 0011 155 CIHDR 0008 138 CISW 0012 156 CIX 11AC 4501 CL1 000E 151 CL2 0037 203 CLBSW 0013 157 CLIB FFA8 4219 2505 2749 2991 3012 CLIBX 1120 4220 CN 0036 4504 785 828 CN4B 07D0 2017 1947 1959 CNTIN 087F 2158 2162 CNTNO 0014 158 CNV0 0436 997 1017 CNV1 0449 1015 999 CNV2 043C 1003 1014 CNX 11AE 4505 COM FFD4 4299 1389 1407 COMX 114C 4300 1226 CONC 0AA5 2712 637 2722 CONC1 0AB4 2724 2717 CONC2 0AAF 2720 2728 2751 CONC3 0ADA 2753 2718 2730 CONC4 0AB2 2722 2755 2759 2763 CONC8 0ADD 2757 2740 2747 CONC9 0AE0 2761 2731 COTMP 0EFD 3823 3806 3807 COUNT 0536 1321 1245 CPP FFD5 4301 1736 1793 1962 2034 2068 2070 2127 4194 CPPX 114D 4302 1940 1961 2005 2059 CR 0037 4506 2916 CRBUF 0057 254 2148 2164 CRDN FFD6 4303 900 963 4096 CRDNX 114E 4304 2287 CRPRT 0865 2125 586 2130 2171 3104 CRX 11AF 4507 CSW FFD7 4305 2631 CSWX 114F 4306 1360 2657 CT010 0C68 3121 3117 3119 CTL1 0A5B 2639 2637 CTL2 0A69 2653 2637 CTL3 0A58 2637 2659 CTL4 0A71 2658 2640 2654 2656 2664 CTLC 0A6F 2657 2644 CTLI 0A75 2662 2650 CTLM 0A77 2663 2648 CTLN 0A6C 2655 2652 CTLP 0A73 2661 2646 CTLX 0A7A 2666 2642 CTTST 0C5F 3115 2536 3120 3161 CU 0038 4508 2675 2913 CUX 11B0 4509 CVD10 0EEB 3809 3812 CVD20 0EF1 3813 3810 CVDEC 0EE5 3803 799 1023 2653 3822 D 1178 4178 460 1849 2032 2102 2112 2117 2436 2573 2587 2615 3035 3049 3192 3228 3277 3605 3693 3789 4184 4213 4219 4222 4225 4228 4231 4233 4235 4238 4241 4244 4246 4248 4251 4253 4255 4257 4259 4261 4263 4266 4268 4270 4272 4275 4277 4279 4281 4283 4285 4287 4289 4291 4293 4295 4297 4299 4301 4303 4305 4307 4309 4311 4313 4315 4317 4319 4321 4323 4325 4327 4329 4331 4333 4335 4337 4339 4341 4343 4345 4347 4349 4351 4353 4355 4357 4359 4361 4363 4365 4367 4369 4371 4373 4375 4377 4379 4381 4383 4385 4387 4389 4391 4393 4395 4397 4400 4403 4405 4407 4409 4411 4413 4417 4419 4421 4424 4433 4437 4444 4447 4451 4454 4457 4459 4461 4463 4465 4467 4470 4472 4474 4477 4479 4481 4483 4485 4487 4489 4491 4493 4495 4498 4500 4502 4504 4506 4508 4510 4512 4514 4516 4518 4521 4523 4525 4528 4530 4532 4534 4536 4538 4541 4544 4546 4548 4550 4552 4554 4556 4559 4561 4563 4565 4567 4569 4571 D0010 0020 4457 3809 3813 D0080 0029 4477 3201 D10T 1192 4442 D1600 004A 4548 481 D20 0022 4461 762 D2HDR 000C 140 D3 0E18 3583 3527 D320 0046 4538 470 498 2843 4540 D320X 11BE 4539 D322 0047 4541 492 4543 D322X 11BF 4542 D40 0023 4463 1964 1967 2072 2075 D640 0049 4546 1468 2386 D640X 11C1 4547 DATSW 0015 165 DBADR 0016 166 DC10X 1151 4310 3811 DCADR 0058 255 DCHDR FFF0 126 DCONT 0032 4495 4496 DCTL 11E0 268 DCTLC 11DE 269 DEC 04F6 1229 1217 1219 DEC10 FFD9 4309 3805 3816 DECSW 05E9 1509 1229 1516 1519 DEF01 048F 1106 1115 DEF02 0499 1114 DEF03 049B 1120 1160 1170 1227 1230 DEF04 04AF 1139 1134 1137 DEFAM 0627 1579 1280 DEFIN 047D 1085 861 DEFT1 0548 1350 1265 DEFT2 05E5 1501 1268 1274 1277 1283 1286 1413 1515 1534 DEFT3 05EA 1511 1271 DEFT5 05FD 1531 1289 DEFT6 0603 1541 1292 DEFT7 060A 1554 1295 DEFX 0501 1253 1523 DEFX0 0505 1258 1305 1309 1586 DEFX1 0508 1264 1258 DEFX2 051E 1299 1258 DEFX3 051E 1300 1520 1590 DEFX4 0520 1301 DEFX5 052F 1316 1423 DEFX6 0503 1256 1317 1383 DEFX7 053A 1329 1337 DEFX8 0537 1326 1336 1446 DEFX9 0539 1328 1256 1410 1431 1441 1584 1589 DELET 0459 1041 605 1048 DELSW 0017 167 DELT FFDA 4311 943 971 1026 1050 1070 1074 DELT2 0479 1073 1053 1059 DELTX 1152 4312 DF16A 0565 1376 1400 DF16B 0562 1371 1563 1569 1572 DF18A 0578 1398 1419 DFAM1 0632 1587 DFHDR FFFC 132 DFLSW 0036 201 DFNSW 0018 168 DFT11 054D 1354 DFT12 0550 1356 DFT13 0553 1358 DFT14 0556 1360 DFT15 055A 1364 1353 1357 1359 1361 DFT16 0560 1369 1426 1503 DFT17 056F 1385 1362 1366 DFT18 0576 1395 1313 1355 1574 DFT32 05EE 1514 1512 DFT33 05F8 1521 1517 DFT43 05F4 1518 DFT53 0602 1534 1545 DFT71 0613 1561 1556 DFT8X 0582 1406 1402 DFT8Y 0592 1421 1404 DFT8Z 0596 1426 1513 DFTSV 05B8 1452 1302 1307 1365 1398 1418 1428 DFX10 052E 1315 1374 DISKZ 00F2 264 DKSAD 0019 169 DLHDR FFF8 130 DMHDR FFF6 129 DMPLC 01DE 266 DOT 002B 4481 2166 DOTX 11A3 4482 DTHDR FFFA 131 DTMG FFAA 4222 1128 1150 DTMGX 1122 4223 DTMP FFAC 4225 1121 1131 1475 4015 4021 DTMPX 1124 4226 DUMPC 41DE 271 DUMPP 001A 170 DUPCO 7DB0 272 277 296 DUPCR 003C 221 847 2185 3118 3743 DXHDR FFFE 133 DZ000 00F2 53 264 EBC 04F3 1225 1091 1203 1205 1207 1209 EBCS FFDB 4313 1390 1408 1554 1567 EBCSW 0033 198 458 EBCSX 1153 4314 1356 1514 1531 1541 EBH 0EFE 3829 3780 3856 EBH00 0F05 3835 3840 EBH10 0F21 3858 3830 3835 3842 EBH30 0F22 3860 3837 EBH50 0F24 3865 3833 EBHA 0F0F 3843 3847 EBHB 0F17 3851 3844 EBHC 0F4C 3906 3849 3853 EBHT 0F42 3896 3841 3850 EBHXT 0F1B 3854 3831 3832 3861 ECD FFDC 4315 1364 ECDX 1154 4316 1193 ELIB FFBF 4257 2458 2799 ELIBX 1137 4258 ELS FFC1 4261 2809 2848 ELSX 1139 4262 EM1 100E 4123 968 EM10 1080 4151 3302 EM11 108C 4154 652 2932 3282 3953 EM12 1098 4157 3819 3821 EM13 10AA 4160 3340 EM14 10C1 4164 3106 EM15 10D1 4167 1678 2754 2783 EM16 10DB 4170 2758 2860 EM17 10EB 4173 765 2356 3288 EM2 101F 4126 1482 2519 EM3 102B 4129 1494 EM4 1036 4132 3068 EM5 1045 4135 648 876 EM6 1051 4138 3750 3759 EM7 105A 4142 2762 2857 EM8 1067 4145 3756 3767 EM9 1076 4148 2924 END02 0EAB 3735 3731 END06 0EB7 3748 3768 END07 0EBD 3755 3741 END09 0EC6 3766 3744 END5 0EB1 3740 645 3729 ENDUP 0EA2 3727 889 2181 3121 ENSW FFDD 4317 2545 2891 ENSWX 1155 4318 2452 2460 ENTER 7DB2 280 2432 2488 2569 2583 2611 2734 3031 3046 3460 EOC 04C7 1183 1086 1194 EOC1 04CB 1186 1192 EOC2 04D3 1193 1189 EPEX 1114 4210 4190 EPRT FF80 4184 647 651 764 875 967 1481 1493 1677 2000 2007 2128 2355 2518 2753 2757 2761 2782 2856 2859 2923 2931 3067 3105 3281 3287 3301 3339 3749 3755 3758 3766 3820 3952 4054 4186 4189 EPRT1 1107 4198 4205 EPRT2 1103 4195 4187 4192 EPRTX 10F8 4185 4211 EPS 110F 4206 4200 4203 4209 EPTR FFDE 4319 2494 3040 3089 EPTRX 1156 4320 ERR16 0B4C 2859 2803 2821 2828 ERR4 0C38 3067 2696 2714 2948 3140 ERR7 0AF1 2782 2794 ERR75 0AF3 2784 2858 2861 ERR8 0B49 2856 2795 2804 ESEC FFDF 4321 2485 3036 3086 ESECX 1157 4322 ESPL FFE0 4323 483 859 2421 2595 2603 ESPLX 1158 4324 ETEST 0C3F 3080 2977 3090 3156 EXIT 0532 1319 1246 1393 EXITC 01DE 267 F0 003C 4516 692 1814 1887 1900 2726 3814 3817 F0X 11B4 4517 FA 003D 4518 1844 4520 FAX 11B5 4519 FB 003E 4521 1752 FBX 11B6 4522 FC 003F 4523 1557 FD 0040 4525 904 1143 1385 3248 4527 FDX 11B8 4526 FESW FFE1 4325 978 2309 3152 FESWX 1159 4326 2296 FEXIT 0E57 3648 3639 3641 3643 FL005 0E47 3633 2667 3646 FL008 0E49 3634 2537 FLDCT 0595 1425 1249 1354 1368 1382 1570 1573 FLHDR FFF4 128 FLSW FFE2 4327 2168 2666 3649 FLSWX 115A 4328 3632 FLUSH 0E44 3631 804 2530 2789 3069 3107 FORSW 001C 171 FRWS 001D 172 FT 0587 1410 1376 1378 FXSW 001E 173 GET 7DB3 281 2434 2490 2585 2736 3033 3190 3227 3276 3461 GET1 08C4 2227 1142 1777 1781 1786 2211 2214 2219 GET2 08C5 2228 2218 GET3 08C6 2229 2215 GET4 08C7 2230 2206 GET5 08C8 2231 2209 GETBI 7A0B 300 3230 3244 GETCH 089D 2196 2226 2298 GETHO 7A0A 299 2143 GTCH1 08B9 2217 2207 2210 2212 GTCH2 08C2 2226 GTST FFAE 4228 1129 GTSTX 1126 4229 H0008 1197 4456 3787 H00EF 003B 4514 H0F 0021 4459 1000 1021 H0FX 1199 4460 H4040 004C 4552 2027 HDBUF 0059 256 HDNSW 0034 199 HDPR 0FD9 4060 4050 4052 4055 HE740 0039 4510 1139 2078 HEFX 11B3 4515 HFF00 0E31 3608 3594 HOLSW 001F 174 HOUT 0FDD 4073 3149 3308 4000 4106 HSV 1005 4107 4112 HTEMP 100D 4114 3005 4092 HXFF 11BA 4531 3618 IBT 0049 245 ICSW FFB1 4233 2221 2223 2225 2442 3990 ICSWX 1129 4234 2202 IN1 1640 4590 4334 IN4 0B74 2899 2902 IND FFE3 4329 1733 1748 1765 1931 2026 IND1 06E0 1775 1770 IND2 06E5 1779 1771 IND4 06EA 1783 1773 INDL FFE4 4331 863 880 883 888 970 979 1025 1487 2177 2373 2522 2527 2534 3153 3159 INDLX 115C 4332 831 1055 INDX 115B 4330 1737 1760 INIT 0B63 2884 2811 2901 3062 INLC FFE5 4333 490 2408 2895 INLCX 115D 4334 INOUT 003F 234 INR02 03B4 852 855 INR05 03C0 863 857 INR07 03D0 877 874 INR10 03D5 881 864 870 872 884 INR20 03D7 883 846 848 INSB1 0956 2385 2389 INSBL 0954 2383 2301 2387 3979 INSRN 03A8 844 834 1071 1152 INSRT 0399 826 601 843 881 1049 INSRX 03A5 841 3150 INSW FFE6 4335 2407 2898 2900 INSWX 115E 4336 IOADR 7A06 298 299 300 301 302 303 307 3186 3223 3273 IOBLK 005A 257 IOREQ 0038 211 3191 IOSW 0020 175 IPT FFB0 4231 1127 1130 1151 2197 2220 2222 2440 3969 3988 IPTX 1128 4232 2201 2443 2812 2831 3991 ISW FFE7 4337 1136 2371 2634 ISWX 115F 4338 2662 J1SW FFE9 4341 543 2702 2981 3103 J1SWX 1161 4342 2529 JOIN 0A94 2694 633 2706 JOIN2 0AA1 2705 JSW FFE8 4339 542 1995 2698 2773 2829 2994 3099 3102 JSWX 1160 4340 2528 2705 2788 2807 2888 KBREQ 003E 228 KNOUT 14FE 4589 4254 4590 KOUT 13BC 4585 495 4245 4252 4354 4589 L1 118E 4432 1812 L10 0017 4439 1884 1886 1894 L3 001C 4449 1749 1846 L5 001E 4454 726 743 1401 1650 2739 2815 2820 3922 3970 3986 L5X 1196 4455 LBAL FFEA 4343 1464 1467 2619 2851 LBALX 1162 4344 2388 LBSW FFEB 4345 2695 2778 LBSWX 1163 4346 2805 LEAVE 7DB4 282 3760 LET 0E19 3584 468 3443 3459 3534 LETAR 005C 259 467 471 LETSW 0021 180 LF500 FFEC 4347 3237 3267 LF50X 1164 4348 2096 LFSRH 0D5A 3358 2729 2793 3512 3514 3515 LIB 0AE3 2772 593 2682 2699 2832 2855 LIB1 0AEC 2779 2774 LIB3 0AF5 2787 LIB4 0B0D 2805 2801 LIB5 0AFC 2791 2781 LIB6 0B05 2799 LIB7 0AF3 2785 LIB8 0B33 2833 2819 LIB9 0B3B 2841 2830 LINE 7DB5 283 2111 LMAC FFEF 4353 2515 2557 2926 3973 4100 4104 4110 LMACX 1167 4354 2564 4047 4089 4090 LNAM FFB2 4235 526 2526 2535 2713 2744 2748 2786 2825 2834 2947 3055 3138 3178 3728 LNAMX 112A 4236 3436 LNRS FFED 4349 555 560 1478 1489 3052 3737 LNRSX 1165 4350 LPCT FFF0 4355 LPCTX 1168 4356 1358 1533 1543 LPSW FFEE 4351 554 1477 2703 2952 2970 3050 3145 3650 3736 LPSWX 1166 4352 3059 LSTLF 0022 181 LSW FFF1 4357 2353 2358 LSWX 1169 4358 1878 MAC 04BF 1159 1211 1213 MASK 7DB6 284 508 MCCSN 068E 1698 530 572 579 590 699 868 930 1259 1653 1700 2638 3637 MCHA FFF2 4359 683 720 737 1254 1333 1335 1370 1379 1415 1422 1429 1562 1566 1579 1583 1588 1609 1892 1899 MCHAX 116A 4360 713 1300 1439 1511 1558 1897 MCONT 0035 4502 MCSN1 0692 1701 1708 MCSN2 069D 1711 1699 1707 1713 MCSN3 0698 1705 1715 MDUMP 7DB7 285 MEND 04C2 1166 1215 MESS 080E 2047 2008 MESS2 0816 2054 2001 MH1 0F81 3967 3984 3999 MH11 0F90 3980 3968 MH2 0F97 3985 3982 MHDR 0F80 3966 2958 4001 MHSW FFF3 4361 906 976 2280 2338 2897 2927 3001 4098 MHSWX 116B 4362 MN2 FFC5 4268 2964 3593 4051 4085 MNAM FFB4 4238 898 2959 2973 2976 3589 4049 4076 4079 MNAMX 112C 4239 MODSW 0023 182 MOVE 08E4 2278 878 886 905 980 1145 1485 2281 2340 2347 2957 3154 3249 MP16A 02AF 580 578 MPSW FFF4 4363 2919 3998 MPSWX 116C 4364 3967 MSAVE 0D3A 3313 3306 3309 MSNCT 068D 1680 1651 1670 MSNER 0689 1677 1645 1649 1655 1658 1661 1664 1674 MSNLP 0672 1652 1671 MSNRT 0687 1675 1667 MSNSC 0664 1641 1675 3142 3916 MSW FFF5 4365 2633 3016 3305 3310 4093 MSWX 116D 4366 2663 3307 MTEMP 0FAC 4002 3972 3974 3976 MUHDR 000A 139 MUP 01E0 447 4591 MUP01 01E3 450 447 MUP02 020C 491 MUP04 0214 498 502 MUP05 01EC 462 MUP08 026E 520 598 MUP09 026F 521 510 566 594 614 618 622 626 630 634 638 649 653 1027 1679 2933 3283 3954 MUP10 029C 563 527 539 3645 MUP11 0273 526 602 606 610 642 2790 3070 3108 3651 MUP12 02A0 566 MUP14 02A4 569 575 MUP15 02B1 583 578 MUP16 02AB 577 574 581 MUP17 02B3 584 MUP19 02B7 588 MUP9A 0284 541 536 MUP9B 028A 547 532 534 538 MUP9C 0292 553 549 551 MUPX1 02BC 591 589 MUPX2 02E5 647 589 665 829 899 1044 2676 2679 2914 2917 3137 3177 MUPX3 02E8 651 520 3312 MV1 08F0 2288 2286 MV10 08F6 2292 2289 MV14 092E 2337 2322 2332 MV15 0930 2339 2343 MV16 0933 2341 MV17 0936 2345 2354 2359 MV18 093B 2350 2320 MV2 08EB 2285 2348 MV3 08FB 2295 2291 MV5 08FE 2298 2306 2352 MV7 090B 2308 2297 MV8 090D 2311 2304 MV9 0916 2318 2314 MVA10 0E28 3600 3604 MVA30 0E38 3613 3600 3622 3663 3680 3683 3686 3689 MVA50 0E32 3610 3590 3592 3596 3598 MVADD 0E1A 3588 3234 3606 MVDUM 0B4F 2863 2852 2878 3063 MVDX 0B5F 2877 2864 NAM0 0303 681 732 NAM00 0314 697 693 715 NAM01 036A 774 669 NAM02 032D 722 681 739 NAM03 0318 700 698 NAM04 0326 713 689 701 703 705 NAM05 036B 775 780 NAM06 0373 782 677 NAM0T 030E 691 687 NAM0X 02FF 678 793 NAM0Y 0312 694 730 NAM2A 0332 726 724 NAM3A 0322 710 698 NAMA 0385 793 786 NAMB 0381 791 794 NAMBL 033C 737 709 NAMC FFF6 4367 679 759 768 770 1608 NAMCM 032B 720 707 NAMCX 116E 4368 731 738 779 1617 1626 NAME 02EB 662 641 792 NAMEZ 02F6 672 788 791 802 803 NAMSV 0397 813 746 755 NAMSW 0024 183 NB1 0964 2404 2409 NB10 097E 2431 2459 2461 NB12 0994 2451 2411 NB2 096B 2410 2406 NB5 097E 2430 2426 NB7 0988 2438 NB9 0988 2437 2453 NDDF FFF7 4369 2800 3360 NDDFX 116F 4370 3496 NEGSW 0025 184 NEXT 005F 262 3195 3203 3204 3777 3785 NIN FFF8 4371 2454 2457 2544 2578 2582 2886 NINX 1170 4372 NMAC FFF9 4373 2446 2817 3000 3980 3994 NMACX 1171 4374 NMBL0 0345 743 741 NMBL1 034B 747 754 NMBL2 0358 758 751 NMBL3 0363 768 763 NMCSV FFFA 4375 2999 3981 NMCSX 1172 4376 NMEND 0396 812 750 NMER1 0388 798 727 744 NMERR 0389 799 695 712 756 NMEXT 038B 800 766 NMS 008D 439 511 NMSIX 0394 810 686 723 740 NMSW FFFB 4377 550 2776 3097 3732 NMSWX 1173 4378 790 NMTMP 0395 811 748 749 NMTS2 0C59 3105 3100 NMTST 0C4D 3096 546 830 1046 2951 3098 3141 3180 NOUT FFBD 4253 3024 3029 3044 NOUTX 1135 4254 2579 2584 2612 2732 2735 3037 NSTS FFFC 4379 1166 1169 1555 1568 2635 NSTSX 1174 4380 1159 2655 NTBLK 0D4C 3336 3328 NXTBF 095D 2399 2200 2305 2447 2899 3983 OCSW FFB9 4246 2255 2257 2259 2326 2566 OCSWX 1131 4247 2251 OLIB FFFD 4381 2479 2810 3082 OLIBX 1175 4382 ONE 0016 4436 725 742 1334 1414 1559 1571 1581 1628 1891 1966 2069 2074 2258 2680 4188 OPCD FFB6 4241 1103 1109 1813 1816 OPCDX 112E 4242 OPSW FFFE 4383 1876 2103 3240 3265 3285 3338 3345 OPSWX 1176 4384 2094 2288 OPT FFB8 4244 1120 1123 1132 1476 2243 2254 2256 2331 2476 2513 2555 3087 4086 4102 4108 OPTD FFBA 4248 1122 OPTDX 1132 4249 OPTX 1130 4245 2247 2253 2876 2928 2978 2985 2998 3155 3157 3303 4074 4105 4111 OUT FFBC 4251 2244 2329 2474 2493 2510 2550 2553 3088 4087 OUT01 0CB9 3201 3196 OUT02 0CC2 3207 3210 OUT03 0CC8 3214 3216 OUT04 0CDA 3230 3232 OUT05 0CDF 3234 3219 OUT10 0CE8 3241 3261 OUT12 0CED 3244 3246 OUT15 0CF2 3248 3243 OUT17 0CF7 3253 3255 OUT20 0CFF 3260 OUT25 0D03 3264 3289 3711 OUT29 0D02 3262 3183 OUT30 0D15 3281 3262 OUT35 0D19 3284 1877 OUTPT 0C95 3174 613 3238 3279 OUTX 1134 4252 2478 2486 2489 2561 2865 2887 3081 4042 P1442 0052 251 3225 P21 0004 4395 4191 4197 P21X 117C 4396 1999 2003 2922 3300 3748 3757 4053 P3SV 07CB 2012 1986 P9MVE 081F 2057 1815 1851 1868 1880 1882 1888 1901 1973 2087 2216 P9RT 0005 4397 1790 2033 P9RTX 117D 4398 P9SVP 06F6 1795 1791 1792 PACKB 7A0C 301 PAGE 7DB8 286 2116 PAR4B 0546 1339 PAREA 07E5 2040 1140 1338 1968 1987 1998 2004 2029 2076 2077 2082 2101 3656 3661 3684 3690 4388 4398 4420 PARNO 01E1 448 511 673 PART2 0452 1023 944 985 1075 PART3 0454 1024 974 981 PARTS 044C 1018 924 951 1022 PASS 03E1 897 833 902 908 1062 1068 PATCH 1221 4581 PBUF 0398 814 745 781 789 801 PBUFF 01E2 449 674 758 787 800 814 1602 1872 1919 2777 PC00 0641 1604 1630 PC01 064B 1612 1618 PC03 065B 1625 1611 1614 PCEXT 0655 1620 1604 PCHBI 7A0D 302 3790 PCHEK 0639 1596 1432 1624 PCSV1 0656 1621 1597 1629 PCSV2 0658 1623 1598 PEBUF 005D 260 PG000 0B93 2931 2921 PGMHL 0026 185 PGSW FFFF 4385 2925 4101 PGSWX 1177 4386 PH2 0039 212 463 PH3 003A 213 PH4 003B 214 PHDR 0FBD 4039 4057 4094 PHDUP 0056 253 PHEX 0FAD 4010 3019 4024 4044 4048 PHEX1 0FB0 4013 4023 PHID 7DB9 287 452 PHIDM 7DBA 288 PHSV 0FD4 4056 4040 4212 PIHDR 0002 135 3185 3274 PK2 0F5A 3925 3934 PK3 0F68 3936 3943 PK4 0F7C 3952 PK5 0F7E 3954 PKC 0F72 3944 3925 3928 3951 PKC1 0F79 3950 3947 PKEX 0F66 3935 3918 PKNM 0F4D 3915 2955 3147 3299 3942 PLOC 0000 4387 1963 2071 2126 4193 PLOCX 1178 4388 PMES2 07B2 1993 PMVE1 082A 2066 2061 PMVE2 083C 2083 2080 PMVEX 083D 2084 2065 PNUM 0638 1595 1601 1619 1625 PRIN1 070A 1838 1839 1854 4215 PRINT 7DBB 289 2099 PRNT FFA2 4213 1742 1985 3021 4020 4046 4207 PRNT1 0726 1867 1845 1861 PRNT2 0724 1860 1847 PRNT3 07AA 1984 1848 PRNT4 07BF 2003 1992 PRNT5 07C8 2009 2002 2014 PRNT6 07CC 2013 1994 1996 PRNTC 06AB 1728 1763 2316 PRNTN 06F7 1806 1820 2294 PRNTX 0721 1853 1869 1889 1977 PRNTY 111A 4214 4216 PRPAR 0054 252 PRPNT 7C50 297 PRSW 0027 186 PRTN1 06FC 1811 1818 PRTN2 0706 1819 1807 PRTND 071A 1849 PRTSW 0003 4393 1789 1951 1970 2006 2025 2084 PSSVX 117A 4392 PSUB 072A 1871 1842 PSUB1 0741 1887 1903 PSUB2 0745 1890 1885 PSUB3 0749 1894 1898 PSUB4 0750 1899 1895 PSUBX 072E 1874 1938 PSUBY 0734 1878 1875 PSW 0001 4389 545 547 552 559 1135 2369 2632 2949 3236 3239 3269 3730 3734 PSWSV 0002 4391 548 558 PSWX 1179 4390 2661 PTBUF 11D0 4577 4229 4249 PTC1 06BC 1741 1734 PTC2 06BE 1743 PTCH 13BC 4580 4581 PTCL 07D7 2029 2031 PTHDR 0006 137 PTINT 07D1 2023 465 1138 2013 2038 2105 3260 3266 3286 4041 PTPON 0040 236 PTST 0947 2368 2293 2313 2370 2372 2374 2376 PTSW 0028 187 PTSWX 117B 4394 1941 2060 PUN00 0ECD 3779 3784 PUN05 0EDE 3790 PUNCH 0EC9 3776 3235 3259 3793 PURGE 0B7A 2911 621 2929 PUT 7DBC 290 2571 2613 3048 PUT5 08E2 2260 2242 PUTCH 08C9 2240 1461 2260 2312 2324 2335 PUTT 05BB 1460 1316 1331 1392 1409 1438 1448 1471 1474 PUTTO 05E2 1493 860 1480 PUTTX 05C9 1471 1463 PUTTY 05CB 1473 1466 PUTTZ 05D7 1484 1495 QUOT 002D 4485 1644 1648 1673 1860 2716 2780 3366 3595 3946 QUOTX 11A5 4486 RADDR 117E 4399 2401 2433 3030 3032 RD010 0890 2173 2167 2170 RD020 0892 2177 2145 2187 RD030 089A 2185 2154 RDCRD 086C 2142 521 783 844 2172 2173 2178 2180 3633 REDX1 0D38 3312 3298 RENAM 0D20 3296 617 3311 REST 7DBD 291 3751 RPAGE 085E 2115 505 2118 RPGSW 0035 200 RPT 0007 4400 1052 RPTX 117F 4401 584 667 923 1642 2636 2715 2724 2725 2779 2792 3363 3377 3917 3941 RTURN 7DBE 292 2435 2491 2572 2586 2614 2737 3034 3462 SAREA 11D0 4575 528 563 568 583 588 680 714 769 784 812 849 866 1087 1185 1251 1340 1403 1406 2129 2159 3214 3253 3599 3636 3659 3662 3668 3669 3679 3692 3695 3715 3779 4308 4555 4577 SAVE3 1180 4402 3362 3513 SBAL 0009 4403 1470 2384 2385 2847 SBALX 1181 4404 1462 SCAN 03F0 922 832 964 966 1057 SCAN0 03F5 926 952 SCAN1 03F7 929 938 SCAN2 041E 967 907 SCAN3 042F 983 962 SCAN4 0427 975 973 SCANC 0402 942 934 SCANN 0410 957 932 SCDEF 04F9 1244 1125 1320 SCNC1 040A 949 942 983 SCONT 003A 4512 SCONV 0433 994 947 957 1006 SDBUF 005B 258 SEL 0A4F 2629 625 2668 SETI 06CE 1760 1772 1794 SETIX 06EF 1788 1778 1782 1787 SHSHX 11A4 4484 SIHDR 0004 136 SKSW 000A 4405 524 975 1065 1069 SKSWX 1182 4406 972 1730 2241 2290 2300 2321 SKWDS 0029 188 SLAP 0E5C 3655 3257 3713 SLAP1 0E68 3663 3667 SLAP2 0E6F 3669 3672 SLAP3 0E73 3671 3716 SLAP4 0E9D 3714 3670 SLAP5 0E9B 3713 3698 3701 3704 SLIB FFBE 4255 2796 2798 2806 2839 2849 2885 3061 SLIBX 1136 4256 SLS FFC0 4259 2808 2838 3027 3060 SLSH 002C 4483 1412 1879 1881 SLSX 1138 4260 SN2 FFC4 4266 2965 SNAM FFC2 4263 2953 2960 3057 3064 3920 SNAMX 113A 4264 3148 3304 3678 3924 SPACE 0857 2110 2113 SPL1 FFC6 4270 2415 2420 2423 2424 2427 2601 2605 2893 SPL1X 113E 4271 SPLN FFC7 4272 2425 2428 2588 2594 2597 2600 2604 SPLNX 113F 4273 SPOP 04D8 1201 1105 1106 1108 1112 SPOV 000B 4407 1479 1490 2598 SPOVX 1183 4408 2617 SPSW 000C 4409 2410 2429 2593 2894 SPSWX 1184 4410 SPTRT 04F3 1220 1105 SR005 0D62 3365 3370 SR010 0D8A 3401 3371 3380 3390 3406 3413 SR020 0D8B 3404 3387 3409 SR030 0D86 3396 3392 SR040 0D7E 3389 3394 SR045 0D6A 3372 3367 SR050 0D77 3383 3398 SR060 0D97 3420 3399 SR070 0D9A 3424 3432 SR090 0DAA 3446 3538 SR100 0DC1 3472 3466 SR110 0DC4 3476 3470 SR120 0DEA 3521 3489 3495 SR130 0DC7 3480 3530 SR132 0DD6 3500 3493 SR135 0DE2 3513 3402 3516 SR138 0DE6 3515 3453 3456 SR140 0DB2 3457 3543 SR900 0E0D 3569 3379 SR901 0DFF 3555 3383 SR902 0E0E 3570 3386 3405 3412 SR903 0E0F 3571 3426 SR904 0E10 3572 3434 SR905 0E14 3575 3474 3506 3508 3511 3521 3523 SR906 0E17 3582 3468 SR907 0E16 3580 3476 SR908 0E12 3573 3424 3428 3435 3487 3492 SR909 0E15 3577 3478 3526 3528 SR910 0E0C 3568 3481 3522 SR912 0DE9 3520 3510 3541 SSW 000D 4411 1144 1148 2375 SSWX 1185 4412 2285 STCSW 002A 189 STG01 0766 1925 1980 STG02 079E 1972 1976 STG03 07A7 1978 1929 STG04 0779 1939 1933 1935 STG05 0789 1953 1942 STG11 05A2 1434 STGCT 07A8 1979 1927 1975 STGIN 075D 1918 1873 1924 1930 STHDR FFF2 127 STNG1 0599 1429 1444 STNG2 05B0 1446 1435 STNG3 05B2 1447 1433 STNG4 05B7 1451 1430 STRNG 0597 1427 1311 1351 1416 1453 1502 1521 1564 1580 STSW 002B 190 STX02 079C 1971 1908 1939 1952 SUBSN 069E 1712 1703 SVX1 06D3 1763 1731 SVX2 06D0 1761 1732 1744 1754 1774 T3MSW 002F 194 TEMP 000E 4413 1003 1008 1010 1013 1890 1893 1896 1902 1921 3923 TEMP1 002C 191 TEMP2 002D 192 TEMP3 1187 4415 475 476 484 TEMP4 1188 4416 2149 2150 TEMPS 07CF 2016 1905 TEMPX 1186 4414 1928 3930 3933 TERM 0011 4417 2279 2339 2342 2346 TERMX 1189 4418 TEST 0756 1904 1909 1946 1955 THIS 005E 261 3194 3197 3199 3202 3323 TOWS 002E 193 TV3 0842 2093 1852 2097 2104 2106 TV35 084B 2098 2095 TV4 084D 2100 2037 TV4P 0012 4419 2036 TV4PX 118A 4420 UASW 0030 195 UCHDR 0000 134 UP1 0BA0 2952 2950 UP10 0BB9 2969 3003 3056 3065 UP11 0BBC 2973 2954 2961 2963 2967 UP12 0BF8 3022 3017 UP13 0C2B 3058 3051 UP14 0C21 3050 UP14A 0C2A 3057 3053 UP15 0BE7 3008 2996 UP16 0BE4 3005 3009 UP17 0BEF 3015 3006 UP20 0C3E 3071 3026 3028 UP5 0BCB 2983 2980 UP6 0BD6 2992 2982 2984 UP7 0BC3 2978 UP8 0BDD 2998 2993 2995 UP9 0BA6 2956 2975 3066 UPDAT 0B97 2946 556 597 1488 2704 2920 2968 2971 3139 3146 3182 3297 3738 UPLIM 004B 4550 489 WADDR 118C 4423 2511 2551 2570 3045 3047 WORKS 0013 4421 480 482 486 487 2416 2418 2589 2591 WRTDC 7DB1 279 WSDC 21DE 270 WSSW 0031 196 X 0015 4424 493 X0001 0016 4433 1060 1367 1381 1934 1937 2224 2299 2514 2556 2560 2581 2592 2618 4435 4436 X0002 001B 4444 2606 2609 3041 4446 X0003 001C 4447 1932 2475 2512 2554 4449 4450 X0004 001D 4451 3042 4453 X0029 0024 4465 2081 X002B 0025 4467 3940 4469 X0039 0026 4470 4018 X003D 0027 4472 3949 X0040 0028 4476 3938 4045 X0085 002F 4489 X00C0 0030 4491 711 X00FA 003D 4520 4019 X00FD 0040 4527 2351 3020 4208 X00FE 0041 4528 877 885 977 1484 2009 2283 2319 2337 2341 2956 3151 X00FF 0042 4530 553 1714 2303 2333 3101 3735 4083 4202 X01FF 0048 4544 2445 3993 X1000 004E 4556 X1001 0050 4559 X100F 0051 4561 3344 X21CT 043B 1002 996 X2B 0025 4469 X2CNT 0434 995 927 937 X4000 0052 4563 1990 X8000 0053 4565 X8001 0054 4567 X8005 0055 4569 XEQSW 0032 197 XFE00 0056 4571 2500 2683 2700 2974 XR2 083F 2086 2058 XX 118D 4425 496