ibm:ibm1130-lib:dmsr2v12:ptmasmbl_lst
PTMASMBL
| Table Of Contents |
|---|
|
- ptmasmbl.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \ptmasmbl.asm 1 | ABS PTM00005 ***PHASE 0 (ASSEMBLER LOADER)*** 3 | *************************************************** PTM00015 4 | * * PTM00020 5 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM00025 6 | * * PTM00030 7 | *FUNCTION/OPERATION- * PTM00035 8 | * *THE DISK IOAR HEADER INFORMATION OF THE * PTM00040 9 | * PRINCIPAL I/O, PRINCIPAL PRINTER, AND THE * PTM00045 10 | * ASSOCIATED CONVERSION SUBROUTINES ARE * PTM00050 11 | * INITIALIZED IN THE ASSEMBLER PROGRAMER'S * PTM00055 12 | * COMMUNICATION AREA (ASCOM), AND THE SUBROUTIN* PTM00060 13 | * ARE FETCHED INTO CORE. * PTM00065 14 | * *PHASE 9 IS LOADED INTO CORE, AND THE DISK * PTM00070 15 | * IOAR HEADER INFORMATION FOR THE PRINCIPAL * PTM00075 16 | * OVERLAY PHASES IS INITIALIZED WITHIN PHASE 9 * PTM00080 17 | * *PHASE 0 ALSO INITIALIZES THE SECTOR ADDRESSES* PTM00085 18 | * AND WORD COUNTS OF THE VARIOUS BUFFERS * PTM00090 19 | * UTILIZED BY THE ASSEMBLER PROGRAM. * PTM00095 20 | * *THE BOUNDARY CONDITIONS FOR THE SYSTEM SYMBOL* PTM00100 21 | * TABLE ARE ESTABLISHED AND THE DISK IOAR * PTM00105 22 | * HEADER INFORMATION FOR THE SYMBOL TABLE * PTM00110 23 | * OVERFLOW IS SET UP IN ASCOM. * PTM00115 24 | * *THE SWITCHES $NDUP AND $NXEQ IN (COMMA) ARE * PTM00120 25 | * SET NON-ZERO TO PREVENT EXECUTION AND DUP * PTM00125 26 | * FUNCTIONS IN THE EVENT THE ASSEMBLY IS * PTM00130 27 | * TERMINATED BEFORE COMPLETION. * PTM00135 28 | * *PHASE 0 THEN FETCHES PHASE 1 INTO THE * PTM00140 29 | * OVERLAY AREA AND TRANSFERS CONTROL TO IT. * PTM00145 30 | * *A MASTER OVERLAY CONTROL SUBROUTINE (P0130), * PTM00150 31 | * THE SUBROUTINE INTERFACING WITH DISKZ (DISK1)* PTM00155 32 | * AND AN INDEX REGISTER RESTORING SUBROUTINE * PTM00160 33 | * (STXRS AND LDXRS) ARE PART OF PHASE 0 AND * PTM00165 34 | * REMAIN IN CORE DURING THE ENTIRE * PTM00170 35 | * ASSEMBLY. THE REST OF PHASE 0 IS OVERLAID * PTM00175 36 | * BY PHASE 1. * PTM00180 37 | * * PTM00185 38 | *ENTRY POINTS- * PTM00190 39 | * * P0000 - ENTRY FROM SUPERVISOR * PTM00195 40 | * * PTM00200 41 | *INPUT-N/A * PTM00205 42 | * * PTM00210 43 | *OUTPUT- N/A * PTM00215 44 | * * PTM00220 45 | *EXTERNAL RERERENCES- * PTM00225 46 | * *SUBROUTINES- * PTM00230 47 | * * DISKZ * PTM00235 48 | * * GETS5 * PTM00240 49 | * * GETER * PTM00245 50 | * * INT1 * PTM00250 51 | * * LDXRS * PTM00255 52 | * *ASMCM- * PTM00260 53 | * * MCOM3 * PTM00265 54 | * * PRINCIPAL I/O SUBROUTINE * PTM00270 55 | * *DCOM/COMMA- * PTM00275 56 | * $CTSW * PTM00280 57 | * $DBSY * PTM00285 58 | * DZ000 PTM00290 59 | * $FPAD * PTM00295 60 | * $IBT4 * PTM00300 61 | * $KCSW * PTM00305 62 | * $NDUP * PTM00310 63 | * $NXEQ * PTM00315 64 | * $PHSE * PTM00320 65 | * $PST4 * PTM00325 66 | * $WSDR * PTM00330 67 | * * PTM00335 68 | *EXITS- * PTM00340 69 | * *NORMAL - MASTER OVERLAY CONTROL SUBROUTINE * PTM00345 70 | * *ERROR - NONE * PTM00350 71 | * * PTM00355 72 | *TABLES/WORK AREAS- N/A * PTM00360 73 | * * PTM00365 74 | *ATTRIBUTES-REUSABLE * PTM00370 75 | * * PTM00375 76 | *NOTES-N/A * PTM00380 77 | * * PTM00385 78 | *************************************************** PTM00390 79 | *************************************************** PTM00395 80 | * * PTM00400 81 | * RESIDENT MONITOR COMMUNICATION * PTM00405 82 | * * PTM00410 83 | *************************************************** PTM00415 0000 84 | BUMP# EQU 0 2-11 PTM00417 0006 85 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 PTM00420 000E 86 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) PTM00425 000F 87 | $CTSW EQU 15 CONTROL RECORD TRAP PTM00430 00EE 88 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY PTM00435 00F2 89 | DZ000 EQU /0F2 DISKZ ENTRY POINT PTM00440 0136 90 | PIOSZ EQU 310 PRINC PRNT RTN SIZE 212 PTM00442 003F 91 | $DUMP EQU /3F ADDR CALL DUMP ENTRY POINT PTM00445 0038 92 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT PTM00450 0095 93 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 PTM00455 00D3 94 | $I405 EQU /D3 PTM00460 00D4 95 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 PTM00465 0013 96 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY PTM00470 002C 97 | $IREQ EQU /2C INTRPT REQ BR ADDR PTM00475 00D5 98 | $1410 EQU /D5 ILS04 KB INTRPT ADDR PTM00480 007C 99 | $KCSW EQU /7C KB = + OR - PTM00485 0039 100 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT PTM00490 0033 101 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD PTM00495 03A2 102 | $NEND EQU /3A2 ADDR OF END OF DISKN 2-8 PTM00500 0034 103 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP PTM00505 0035 104 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ PTM00510 0036 105 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY PTM00515 0078 106 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE PTM00520 008D 107 | $PST4 EQU /8D PTM00525 0028 108 | $PRET EQU /28 PREOPERATIVE ERROR TRAP PTM00530 007A 109 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE PTM00535 002D 110 | $ULET EQU /2D ADDR OF LET SCTR ADDR TA2-8 PTM00540 005A 111 | #ENSW EQU 90 NO. ENTRY PTS-1, LOGICAL DR 0 PTM00545 0046 112 | #FMAT EQU 70 FORMAT OF PROG IN WS,LOG DRIVE 0 PTM00550 0007 113 | #HDNG EQU 7 SCTR ADDR OF PAGE HDNG 2-8 PTM00555 0055 114 | #WSCT EQU 85 BLK CNT OF PROG IN WS,LOG DR 0 PTM00560 0010 115 | #ENTY EQU 16 RELATIVE ENTRY ADDR OF PROGRAM PTM00565 0004 116 | #NAME EQU 4 NAME OF PROGRAM PTM00570 0011 117 | #RP67 EQU 17 1442-5 SW,0=1442-5 ON SYST PTM00575 001E 118 | @HWCT EQU /1E CORE IMAGE HDR WD CNT PTM00580 0011 119 | @RP67 EQU 17 1442-5 SWTCH, 0=MOD 5 ON SYSTEM PTM00585 0002 120 | @BLCT EQU 2 DISP TO BLK CNT 2-8 PTM00590 0003 121 | @LFEN EQU 3 LNG OF LET/FLET ENT 2-8 PTM00595 0004 122 | @NEXT EQU 4 DISP TO NEXT SCTR ADDR 2-8 PTM00600 0005 123 | @MXDR EQU 5 MAX NO. OF DISK DRIVES 2-8 PTM00605 0000 124 | @SCTN EQU 0 DISP TO SCTR NO. 2-8 PTM00610 0003 125 | @WDSA EQU 3 DISP TO NO. WDS OF SCTR 2-8 PTM00615 0005 126 | @LFHD EQU 5 LNG OF SCTR HEADER 2-8 PTM00620 0001 127 | @UAFX EQU 1 DISP TO SCTR ADDR,USER A2-8 PTM00625 0000 128 | @LFNM EQU 0 DISP TO LET/FLET NAME 2-8 PTM00630 01E0 129 | ORG /1E0 PTM00635 01E0 026A 130 | DC P0800-P0000 WD CNT PHASE 0 PTM00640 01E1 FF31 131 | DC -/CF IND. ID'S TO BE FILLED 2-8 PTM00645 01E2 01FE 132 | PHS00 DC P0700-PHS00 ADDR OF ID TABLE PTM00650 01E3 001B 133 | DC 27 NO. PH ID'S TO BE FILLED2-8 PTM00655 01E2 134 | ORG *-2 PTM00660 135 | * PTM00665 136 | * THIS PHASE IS READ INTO CORE WHEN THE PTM00670 137 | * SUPERVISOR RECOGNIZES A // ASM RECORD, PTM00675 138 | * WITH EXECUTION BEGINNING AT P0000. PTM00680 139 | * THIS PHASE CONTAINS THE PTM00685 140 | * MASTER DISK OVERLAY CONTROL WHICH REMAINS PTM00690 141 | * IN CORE THROUGHOUT THE ASSEMBLY. PTM00695 142 | * THE SECTION OF THIS PHASE WHICH BEGINS PTM00700 143 | * AT P0210 IS OVERLAYED BY PHASE 9. THIS PTM00705 144 | * SECTION IS PRIMARILY CONCERNED WITH LOADING PTM00710 145 | * OTHER SECTIONS OF THE ASSEMBLER WHICH PTM00715 146 | * ALWAYS REMAIN IN CORE. THE LAST FUNCTION PTM00720 147 | * PERFORMED BY THIS PHASE IS TO READ PHASE 1 PTM00725 148 | * INTO THE OVERLAY AREA, AND TO THEN PTM00730 149 | * TRANSFER CONTROL TO IT. PTM00735 150 | * PTM00740 01E2 C004 151 | P0000 LD P0005 SET-UP PHASE CELL TO IND. PTM00745 01E3 D400 0078 152 | STO L $PHSE ASM PHASE 0 IS IN CONTROL PTM00750 01E5 4C00 0286 153 | BSC L P0210 BRANCH PAST ASM COMMA PTM00755 154 | * PTM00760 01E7 00CF 155 | P0005 DC /CF SLET ID OF ASM PHASE 0 2-8 PTM00765 156 | *************************************************** PTM00770 157 | * PTM00775 158 | * ASM COMMUNICATION AREA (COMMA) PTM00780 159 | * PTM00785 160 | *************************************************** PTM00790 01E8 161 | BSS E 0 ADJUST FOR EVEN LOCATION PTM00795 0001 162 | DCOMM EQU 1 SCTR ADDR OF DCOM (CONSTANT) PTM00800 01E8 163 | ASSAD EQU * PHS 0 WD CNT AND SCTR ADDR PTM00805 01EA 164 | PRINT EQU ASSAD+2 SYS PRINT WD CNT, SCTR ADDR PTM00810 01EC 165 | PINPT EQU PRINT+2 SYS INPUT WD CNT, SCTR ADDR PTM00815 01EE 166 | PCPAD EQU PINPT+2 SYS CP WD CNT, SCTR ADDR PTM00820 01F0 167 | I2501 EQU PCPAD+2 SYS 2501 WD CNT, SCTR ADDR PTM00825 01F2 168 | I1442 EQU I2501+2 SYS 1442 WD CNT, SCTR ADDR PTM00830 01F4 169 | I1134 EQU I1442+2 SYS 1134 WD CNT, SCTR ADDR PTM00835 01F6 170 | IKBRD EQU I1134+2 SYS KYBD WD CNT, SCTR ADDR PTM00840 01F8 171 | CNVRT EQU IKBRD+2 SYS CNVRT WD CNT, SCTR ADDR PTM00845 01FA 172 | NAMEP EQU CNVRT+2 NAME OF PROGRAM/CORE LOAD PTM00850 01FC 173 | RELEP EQU NAMEP+2 REL ENTRY ADDR OF PROGRAM PTM00855 01FD 174 | WSCNT EQU RELEP+1 BLK CT OF PROG IN WK STG PTM00860 01FE 175 | FRMAT EQU WSCNT+1 FORMAT OF PROG IN WK STG PTM00865 01FF 176 | CVADR EQU FRMAT+1 CONVERT ENTRY POINT PTM00870 0200 177 | OFLOW EQU CVADR+1 OVERFLOW SCTR--CNT AND ADDR PTM00875 0202 178 | SAVSW EQU OFLOW+2 SAVE SYMBOL TABLE SWITCH PTM00880 0203 179 | FILE EQU SAVSW+1 NO. OF FILES DEFINED PTM00885 0204 180 | TXQSW EQU FILE+1 TEMPORARY NOXEQ SWITCH PTM00890 0205 181 | TDPSW EQU TXQSW+1 TEMPORARY NODUP SWITCH PTM00895 0206 182 | IPTKB EQU TDPSW+1 PT/KB INPUT SWTCH PTM00900 0207 183 | ICD25 EQU IPTKB+1 2501 CD INPUT SWTCH PTM00905 0208 184 | STOPT EQU ICD25+1 SYM TBL OUTPUT OPTIONS PTM00910 0209 185 | CTSYM EQU STOPT+1 NO. OF SYMBOLS IN ASSEMBLY PTM00915 020A 186 | LDKOP EQU CTSYM+1 LIST DECK OPTION PTM00920 020B 187 | LSTOP EQU LDKOP+1 LIST OPTION PTM00925 020C 188 | PSMDE EQU LSTOP+1 ONE OR TWO INPUT PASSES PTM00930 020D 189 | PASS EQU PSMDE+1 PASS SWITCH (PASS 1=0) PTM00935 020E 190 | SCOMN EQU PASS+1 SIZE OF COMMON DEFINED PTM00940 020F 191 | SCRA EQU SCOMN+1 SIZE OF WORKING STORAGE PTM00945 0210 192 | SCRA2 EQU SCRA+1 RESTORE FOR SCRA PTM00950 0211 193 | WSSZE EQU SCRA2+1 DSF OUTPUT DISP. IN W.S. PTM00955 0212 194 | THRT2 EQU WSSZE+1 NO. OF OV'FLO SCTRS DEFINED PTM00960 0213 195 | ADCOW EQU THRT2+1 LOC'N ASSIGN. CTR (L.A.C.) PTM00965 0214 196 | MVCNT EQU ADCOW+1 DSF BFR OVERFLOW COUNT PTM00970 0215 197 | ADCW2 EQU MVCNT+1 SECONDARY ADDRESS COUNTER PTM00975 0216 198 | ERCNT EQU ADCW2+1 NO. OF ASSEMBLY ERRORS PTM00980 0217 199 | ENDST EQU ERCNT+1 END OF SYMBOL TBL ADDRESS PTM00985 0218 200 | HIEND EQU ENDST+1 CURRENT HI END OF SYM TBL PTM00990 0219 201 | LOEND EQU HIEND+1 CURRENT LOW END OF SYM TBL PTM00995 021A 202 | OFCNT EQU LOEND+1 OVERFLOW SCTRS REQUIRED PTM01000 021B 203 | TLIST EQU OFCNT+1 TEMPORARY LIST SWITCH PTM01005 021C 204 | LABVL EQU TLIST+1 LABEL ADDRESS VALUE PTM01010 021D 205 | LABRL EQU LABVL+1 LABEL RELOCATION VALUE PTM01015 021E 206 | INTL1 EQU LABRL+1 INTRPT LEVEL NUMBER(S) PTM01020 0220 207 | ENTSW EQU INTL1+2 ENT(S) USED IN ASSEMBLY PTM01025 0221 208 | ISSSW EQU ENTSW+1 ISS USED IN ASSEMBLY PTM01030 0222 209 | ILSSW EQU ISSSW+1 ILS USED IN ASSEMBLY PTM01035 0223 210 | LBRSW EQU ILSSW+1 LIBR USED IN ASSEMBLY PTM01040 0224 211 | EPRSW EQU LBRSW+1 EPR USED IN ASSEMBLY PTM01045 0225 212 | SPRSW EQU EPRSW+1 SPR USED IN ASSEMBLY PTM01050 0226 213 | HDLTH EQU SPRSW+1 LENGTH OF PROGRAM HEADER PTM01055 0227 214 | ENTCT EQU HDLTH+1 NO. OF ENT'S USED PTM01060 0228 215 | NLVLS EQU ENTCT+1 INTRPT LEVELS FOR ISS SUBR PTM01065 0229 216 | ADJSA EQU NLVLS+1 WS & OVERFLOW SCTR ADDR PTM01070 022A 217 | DSBUF EQU ADJSA+1 DSF PRGM HDR ENTRY PTS PTM01075 022B 218 | DHPTR EQU DSBUF+1 DATA HEADER POINTER PTM01080 022C 219 | ISSNO EQU DHPTR+1 ISS NUMBER PTM01085 022D 220 | DFXR1 EQU ISSNO+1 XR1 ADDR FOR DSF OUTPUT PTM01090 022E 221 | DFXR2 EQU DFXR1+1 XR2 ADDR FOR DSF OUTPUT PTM01095 022F 222 | DFXR3 EQU DFXR2+1 SHIFT CNT FOR INDIC BITS PTM01100 0230 223 | ENDAD EQU DFXR3+1 END ADDR OF DSF BFR PTM01105 0231 224 | STADR EQU ENDAD+1 STARTING ADDR OF DSF BUFFER PTM01110 0232 225 | DSADR EQU STADR+1 ADDR OF DSF BUFR SCTR ADDR PTM01115 0233 226 | OFSAD EQU DSADR+1 SYM TBL OFLOW SCTR ADDR PTM01120 0234 227 | DSFWR EQU OFSAD+1 DSK DISKZ WRITE FUNC PTM01125 0236 228 | RDTHD EQU DSFWR+2 REDUNDANT DATA HDR SWITCH PTM01130 0237 229 | HTYPE EQU RDTHD+1 PROGRAM TYPE (HEADER WD 3) PTM01135 0238 230 | RDBFR EQU HTYPE+1 I/O BUFFER ADDRESSES PTM01140 023A 231 | TRWRD EQU RDBFR+2 DATA WD & RELOC. BITS PTM01145 023C 232 | SYMBF EQU TRWRD+2 SYMBOL (NAME) IN NAME CODE PTM01150 023E 233 | VALUE EQU SYMBF+2 VALUE OF OPERAND EXPRESSION PTM01155 023F 234 | RLCSW EQU VALUE+1 INTERNAL RELOC. SWITCH PTM01160 0240 235 | RELSW EQU RLCSW+1 RELOC. VALUE OF EXPRESSION PTM01165 0241 236 | RLCNT EQU RELSW+1 RELOCATION COUNT PTM01170 0242 237 | ELMNT EQU RLCNT+1 VALUE OF EXPRESSION ELEMENT PTM01175 0243 238 | TRLSW EQU ELMNT+1 TERM RELOC. VALUE PTM01180 0240 239 | A EQU RELSW SCAN OUTPUT POINTER PTM01185 0244 240 | RLMDE EQU TRLSW+1 RELOC. MODE OF ASSEMBLY PTM01190 0245 241 | OPCNT EQU RLMDE+1 OP CODE & CTRL INDICATORS PTM01195 0246 242 | SMSEC EQU OPCNT+1 SYST MACRO LIBRARY ADDR 2-8 PTM01200 0247 243 | SYSLM EQU SMSEC+1 GENERATED NAME CTR 2-8 PTM01205 0248 244 | SKLTN EQU SYSLM+1 MACRO SK SCTR CNT 2-8 PTM01210 0249 245 | PARAM EQU SKLTN+1 PARAM SPILL SCTR CNT 2-8 PTM01215 024A 246 | MCOM0 EQU PARAM+1 PBUFF POSITION PT 2-8 PTM01220 024B 247 | MCOM1 EQU MCOM0+1 PROTOTYPE WD CNT 2-8 PTM01225 024C 248 | MCOM2 EQU MCOM1+1 MACRO NAME 2-8 PTM01230 024D 249 | MCOM3 EQU MCOM2+1 MACRO NAME 2-8 PTM01235 024E 250 | MCOM4 EQU MCOM3+1 MACRO PH 2 END RCD SW 2-8 PTM01240 024F 251 | MCOM5 EQU MCOM4+1 WARNING CNT 2-8 PTM01245 0250 252 | MCOM6 EQU MCOM5+1 GENERATED NAME SW 2-8 PTM01250 0251 253 | MCOM7 EQU MCOM6+1 START ADDR OF W.S. 2-8 PTM01255 0252 254 | MCOM8 EQU MCOM7+1 MACRO PH 2 SAVE AREA 2-8 PTM01260 0253 255 | MCOM9 EQU MCOM8+1 MACRO PH 2 SAVE AREA 2-8 PTM01265 0254 256 | RDMDE EQU MCOM9+1 STATEMENT NO.-1 2-8 PTM01270 0255 257 | MCGEN EQU RDMDE+1 END DISK ADDR OF DSF 2-8 PTM01275 0256 258 | SMAC0 EQU MCGEN+1 LIBRARY SCTR ADDR 2-8 PTM01280 0257 259 | COMSW EQU SMAC0+1 MACRO COMMENTS SW 2-8 PTM01285 0258 260 | MCDEF EQU COMSW+1 TEMP MACRO DEFINITION SW2-8 PTM01290 0259 261 | LOGC0 EQU MCDEF+1 LOGICAL CONCATENATION SW2-8 PTM01295 025A 262 | TBLCT EQU LOGC0+1 OP CODE TABLE COUNT. 2-11 PTM01297 025B 263 | AC990 EQU TBLCT+1 END OF ASM COMMA 2-8 PTM01300 0219 264 | ASMCM EQU LOEND ASM COMMA POINTER 2-8 PTM01305 0219 265 | X3 EQU ASMCM PTM01310 0073 266 | ASMCL EQU AC990-ASSAD PTM01315 0254 267 | P2MEC EQU RDMDE TWO PASS MODE ERR SW 2-8 PTM01320 268 | * PTM01325 01E8 269 | BSS AC990-ASSAD PTM01330 270 | * PTM01335 025B 0000 271 | P94XX DC 0 SAVE INDEX REGISTERS 1,3 PTM01340 025C 6904 272 | STX 1 P94ZZ+1 PTM01345 025D 4C80 025B 273 | BSC I P94XX PTM01350 025F 0000 274 | P94YY DC 0 RELOAD REGISTERS 1,3 PTM01355 0260 6500 0000 275 | P94ZZ LDX L1 *-* PTM01360 0262 6700 0219 276 | LDX L3 ASMCM XR3 = ASM COMMA PTM01365 0264 4C80 025F 277 | BSC I P94YY PTM01370 278 | * 2-8 PTM01375 279 | * ASM INTERRUPT BRANCH TABLE 2-8 PTM01380 280 | * 2-8 PTM01385 0266 008D 281 | DC $PST4 IBT-1 PTM01390 0267 008D 282 | IBT DC $PST4 RESERVED FOR FUTURE USE PTM01395 0268 008D 283 | DC $PST4 RESERVED FOR FUTURE USE PTM01400 0269 008D 284 | DC $PST4 RESERVED FOR FUTURE USE PTM01405 026A 008D 285 | DC $PST4 1231 INTRPT ADDR PTM01410 026B 008D 286 | DC $PST4 1403 INTRPT ADDR PTM01415 026C 008D 287 | DC $PST4 2501 INTRPT ADDR PTM01420 026D 008D 288 | DC $PST4 1442 INTRPT ADDR PTM01425 026E 008D 289 | DC $PST4 KB/CP INTRPT ADDR PTM01430 026F 008D 290 | DC $PST4 1134/1055 INTRPT ADDR PTM01435 MASTER OVLAY CTRL & DISKZ INTERFACE 292 | * PTM01445 293 | * MASTER OVERLAY CONTROL PTM01450 294 | * PTM01455 295 | * USES DISKZ TO READ PHASE OVERLAYS INTO PTM01460 296 | * THE ASSEMBLER OVERLAY AREA. THE WORD COUNT PTM01465 297 | * AND SCTR ADDR OF THE OVERLAY, AS WELL AS THE PTM01470 298 | * EXECUTE ADDRESS AT P0140+1 ARE INITIALIZED PTM01475 299 | * FOR EACH OVERLAY FROM WITHIN PHASE 9. PTM01480 300 | * EXECUTION OF AN OVERLAY DOES NOT BEGIN UNTIL PTM01485 301 | * THE DISK READ OF THE OVERLAY IS COMPLETE. PTM01490 302 | * PTM01495 0270 C80D 303 | P0130 LDD P0170 SET-UP TO READ OVERLAY PTM01500 304 | * * PTM01505 0271 435C 305 | BSI 3 DISK1-X3 READ THE OVERLAY PTM01510 306 | * 2-8 PTM01515 307 | * ADDR AT P0140+1 DYNAMICALLY MODIFIED 2-8 PTM01520 308 | * 2-8 PTM01525 0272 4C00 0282 309 | P0140 BSC L OVLAY+2 TRANS TO THE OVERLAY PTM01530 0274 4C00 0000 310 | P0150 BSC L *-* DISK READ/WRITE WITH TEST PTM01535 0276 4400 00F2 311 | BSI L DZ000 READ OR WRITE WITH DISKZ PTM01540 0278 7400 00EE 312 | P0160 MDX L $DBSY,0 TEST DISK BUSY INDICATOR PTM01545 027A 70FD 313 | MDX P0160 DO NOT SKIP IF BUSY PTM01550 027B 70F8 314 | MDX P0150 EXIT WAIT IF NOT BUSY PTM01555 315 | * PTM01560 316 | * CONSTANTS PTM01565 317 | * PTM01570 027C 0000 318 | P2MWC DC *-* TWO PASS MODE WARN CNT 2-8 PTM01575 027D 0002 319 | CON2 DC 2 SYM LNGTH USED BY PH 92/11 PTM01576 027E 320 | BSS E 0 PTM01580 027E 7000 321 | P0170 DC /7000 DISK READ FUNCTION CODE PTM01585 027F 0280 322 | P0180 DC P0190 I/O AREA FOR OVERLAYS PTM01590 0280 0000 323 | P0190 DC *-* WD CNT OF OVERLAY PTM01595 0281 0000 324 | P0200 DC *-* SCTR ADDR OF OVERLAY PTM01600 0282 325 | P0195 BSS E 2 TEMP STORAGE 2-8 PTM01605 326 | * * PTM01610 025B 327 | STXRS EQU P94XX ADDR OF SAV XR'S RTN PTM01615 025F 328 | LDXRS EQU P94YY ADDR OF RESTO XR'S RTN PTM01620 0275 329 | DISK1 EQU P0150+1 DISKZ INTERFACE PTM01625 0280 330 | OVLAY EQU P0190 OVERLAY IOAR HEADER PTM01630 ** OVERLAID SECTION OF PHASE 0 ** 0284 098A 332 | P0208 DC P11AA INT1 HDR ADDR 2-8 PTM01640 0285 0200 333 | P0209 DC /0200 INITIAL TYPE SETTING PTM01645 334 | * PTM01650 0286 C05D 335 | P0210 LD ADDR PTM01655 0287 D400 00D4 336 | STO L $IBT4 SET UP IBT ADDR IN ILS04 PTM01660 337 | * PTM01665 0289 6600 01E8 338 | LDX L2 ASSAD XR2 = START OF ASM COMMA PTM01670 028B 6373 339 | LDX 3 ASMCL NO. OF ENTRIES TO BE ZEROED PTM01675 028C 1010 340 | SLA 16 PTM01680 028D D200 341 | P0230 STO 2 0 CLEAR ASM COMMA TO ZEROS PTM01685 028E 7201 342 | MDX 2 +1 PTM01690 028F 73FF 343 | MDX 3 -1 PTM01695 0290 70FC 344 | MDX P0230 PTM01700 345 | * PTM01705 0291 728D 346 | MDX 2 -ASMCL SET XR2 TO 1ST ASMCM ENTRY PTM01710 347 | * SET STANDARD OP CODE TABLE LENGTH 2-11 PTM01712 348 | * 2-11 PTM01713 0292 6700 FF22 349 | LDX L3 P9178-P9180 OP CODE TABLE LENGTH 2-11 PTM01714 0294 6F00 025A 350 | STX L3 TBLCT SAVE COUNT 2-11 PTM01715 0296 63DE 351 | LDX 3 -34 SLET TABLE LENGTH PTM01716 352 | * * PTM01720 0297 CF00 0448 353 | P0240 LDD L3 P0700+104 FETCH WD CNT+SCTR ADDR 2-8 PTM01725 0299 DA00 354 | STD 2 0 SAVE IN COMMA PTM01730 029A 7202 355 | MDX 2 2 INCRE COMMA POINTER PTM01735 029B 7304 356 | MDX 3 +4 INCRE TABLE POINTER PTM01740 029C 70FA 357 | MDX P0240 LOOP TIL TRANS COMPLETE PTM01745 358 | * * PTM01750 029D 6700 0219 359 | LDX L3 ASMCM XR3 = ADDR OF ASM COMMA PTM01755 029F C400 0035 360 | LD L $NXEQ SAVE VALUES IN NODUP AND PTM01760 02A1 D3EB 361 | STO 3 TXQSW-X3 NOXEQ FOR LATER SYSTEM PTM01765 02A2 C400 0034 362 | LD L $NDUP COMMUNICATION. SET NODUP PTM01770 02A4 D3EC 363 | STO 3 TDPSW-X3 AND NOXEQ TO PREVENT PTM01775 02A5 6C00 0035 364 | STX L0 $NXEQ EXECUTION AND DUP FUNCTION PTM01780 02A7 6C00 0034 365 | STX L0 $NDUP IF ASM IS TERMINATED. PTM01785 366 | * PTM01790 02A9 C0DB 367 | LD P0209 PTM01795 02AA D31E 368 | STO 3 HTYPE-X3 INITIAL TYPE TO 2 PTM01800 02AB 7403 0226 369 | MDX L HDLTH,+3 INITIAL HDR LENGTH TO 3 PTM01805 370 | * * PTM01810 02AD CC00 0422 371 | LDD L P0700+66 FETCH WD CNT+SCTR ADDR 2-8 PTM01815 02AF DC00 0458 372 | P0260 STD L P9000-2 2-8 PTM01820 02B1 CC00 044A 373 | LDD L P0700+106 SAVE IOAR HDR OF MACRO 2-8 PTM01825 02B3 D8CE 374 | STD P0195 *PH 3B TEMPORARILY 2-8 PTM01830 02B4 C0FB 375 | LD P0260+1 HDR ADDR TO Q PTM01835 02B5 18D0 376 | RTE 16 PTM01840 02B6 C0C7 377 | LD P0170 RD FUNC CODE TO ACC PTM01845 02B7 435C 378 | BSI 3 DISK1-X3 GO TO LOAD PHASE 9 PTM01850 379 | * PTM01855 02B8 CC00 040E 380 | LDD L P0700+46 FETCH WD CNT+SCTR ADDR 2-8 PTM01860 02BA DC80 0284 381 | STD I P0208 2-8 PTM01865 02BC C0C7 382 | LD P0208 FETCH INT1 HDR ADDR 2-8 PTM01870 02BD 18D0 383 | RTE 16 PTM01875 02BE C0BF 384 | LD P0170 PTM01880 02BF 435C 385 | BSI 3 DISK1-X3 PTM01885 386 | * * PTM01890 02C0 C026 387 | LD P0448 COMPUTE ADDR OF TABLE 2-8 PTM01895 02C1 9023 388 | S K19 *WITHIN PHASE 9 2-8 PTM01900 02C2 D005 389 | STO P0265+3 PTM01905 02C3 6200 390 | LDX 2 0 PTM01910 02C4 61E0 391 | LDX 1 -32 2-8 PTM01915 02C5 CD00 0406 392 | P0265 LDD L1 P0700+38 FETCH WD CNT & SCTR ADR 2-8 PTM01920 02C7 DE00 0000 393 | STD L2 *-* SAVE IN PHASE 9 PTM01925 02C9 7202 394 | MDX 2 +2 PTM01930 02CA 7104 395 | MDX 1 +4 PTM01935 02CB 70F9 396 | MDX P0265 LOOP TIL TRANS COMPLETE PTM01940 397 | * * PTM01945 02CC C015 398 | LD P0552 2-8 PTM01950 02CD 9400 03C8 399 | S L P0566 PTM01955 02CF D005 400 | STO P0266+1 PTM01960 02D0 6200 401 | LDX 2 0 PTM01965 02D1 63F0 402 | LDX 3 -16 PTM01970 02D2 CF00 0422 403 | LDD L3 P0700+66 FETCH WD CNT+SCTR ADDR 2-8 PTM01975 02D4 DE00 0000 404 | P0266 STD L2 *-* PTM01980 02D6 7202 405 | MDX 2 +2 PTM01985 02D7 7304 406 | MDX 3 +4 PTM01990 02D8 70F9 407 | MDX P0266-2 PTM01995 02D9 6700 0219 408 | LDX L3 ASMCM PTM02000 02DB C00A 409 | LD P0446 SET-UP ENTCT TO PTM02005 02DC D30E 410 | STO 3 ENTCT-X3 ALLOW 14 ENT'S PTM02010 02DD 1001 411 | SLA 1 INITLZ RELOC. MODE FOR PTM02015 02DE D32B 412 | STO 3 RLMDE-X3 RELOCATABLE ASSEMBLIES PTM02020 02DF 7008 413 | MDX P0320 PTM02025 414 | * PTM02030 415 | * CONSTANTS PTM02035 416 | * PTM02040 02E0 0003 417 | P0550 DC 3 PTM02045 02E1 0001 418 | P0551 DC 1 2-3 PTM02050 02E2 079C 419 | P0552 DC GETER ERMSG PH FETCH SUBR ADDR2-8 PTM02055 02E3 0006 420 | P0556 DC +6 CONSTANT 6 PTM02060 02E4 0266 421 | ADDR DC IBT-1 ADDR OF ILS04 INTERPT BR PTM02065 02E5 0013 422 | K19 DC 19 CONSTANT 19 2-8 PTM02070 02E6 2000 423 | P0446 DC /2000 ALLOWS 14 ENT'S PTM02075 02E7 04C1 424 | P0448 DC GETS5 PH 5 ADDR 2-8 PTM02080 425 | * * PTM02085 02E8 C400 007C 426 | P0320 LD L $KCSW PTM02090 02EA 4C18 02EF 427 | BSC L P0330-1,+- BR IF NOT KB I/O PTM02095 02EC CC00 01F6 428 | LDD L IKBRD FETCH WD CNT+SCTR ADR 2G2 PTM02100 02EE DBD3 429 | STD 3 PINPT-X3 OF KB RTN PTM02105 02EF CBD3 430 | LDD 3 PINPT-X3 PTM02110 02F0 DC80 045B 431 | P0330 STD I RP000 INITIAL SYS I/O AREA PTM02115 02F2 C400 045B 432 | LD L RP000 PTM02120 02F4 83D3 433 | A 3 PINPT-X3 BUILD ADDR FOR CONVERT PTM02125 02F5 4804 434 | BSC E SKIP IF EVEN ADDRESS 2-3 PTM02130 02F6 80EA 435 | A P0551 MAKE ADDRESS EVEN 2-3 PTM02135 02F7 8400 03C2 436 | A L P0540 ROUTINE BASED ON LENGTH PTM02140 02F9 D3E6 437 | STO 3 CVADR-X3 OF THE PRINC. INPUT ROUTINE PTM02145 02FA C400 045B 438 | LD L RP000 LOAD ADDR FOR I/O DEVICE PTM02150 02FC 18D0 439 | RTE 16 AREA AND DISKZ READ CODE PTM02155 02FD C080 440 | LD P0170 INTO ACC AND EXTENSION PTM02160 02FE 435C 441 | BSI 3 DISK1-X3 READ I/O DEVICE ROUTINE PTM02165 442 | * PTM02170 02FF 6580 02E4 443 | LDX I1 ADDR FETCH ADDR OF ILS04 IBT PTM02175 0301 C400 045B 444 | P0334 LD L RP000 INITLZ 2501,1442,1134/1055 PTM02180 0303 80DF 445 | A P0556 ENTRIES IN ILS04 BRANCH PTM02185 0304 D106 446 | STO 1 +6 TABLE FOR INPUT+4 PTM02190 0305 D107 447 | STO 1 +7 PTM02195 0306 D109 448 | STO 1 +9 PTM02200 449 | * * PTM02205 0307 80D8 450 | A P0550 INITLZ 1442 COL. INTRPTS PTM02210 0308 D400 0008 451 | STO L 8 FOR INPUT+7 PTM02215 452 | * PTM02220 030A C3DC 453 | LD 3 I1134+1-X3 DETERMINE IF SYST I/O 2-10 PTM02225 030B F3D4 454 | EOR 3 PINPT+1-X3 IS PAPER TAPE. 2-10 PTM02230 030C 4818 455 | BSC +- SKIP IF NOT PAPER TAPE PTM02235 030D 7004 456 | MDX FIX GO TO SET PT INPUT SWTCH PTM02240 030E C3DE 457 | LD 3 IKBRD+1-X3 DETERMINE IF SYST I/O 2-10 PTM02245 030F F3D4 458 | EOR 3 PINPT+1-X3 IS KEYBOARD 2-10 PTM02250 0310 4820 459 | BSC Z SKIP IF KEYBOARD PTM02255 0311 7004 460 | MDX P0360 GO GET CONVERT ROUTINE PTM02260 461 | * PTM02265 0312 6C00 0206 462 | FIX STX L0 IPTKB SET PT/KB INPUT SWTCH PTM02270 0314 CBDF 463 | P0354 LDD 3 CNVRT-X3 CNVRT'S WD CNT, SCTR ADDR PTM02275 0315 7003 464 | MDX P0370 PTM02280 465 | * PTM02285 0316 CC00 0406 466 | P0360 LDD L P0700+38 SET UP IOAR HDR INFO 2-8 PTM02290 0318 DBDF 467 | STD 3 CNVRT-X3 SAVE CONVERSION WD CNT 2-11 PTM02292 0319 DC80 01FF 468 | P0370 STD I CVADR INITLZ TO READ CONVERT PTM02295 031B C3E6 469 | LD 3 CVADR-X3 FETCH I/O AREA FOR DISKZ PTM02300 031C 18D0 470 | RTE 16 READ CODE IN ACC AND EXT PTM02305 031D C400 03CA 471 | LD L P0580 2G2 PTM02310 031F 435C 472 | BSI 3 DISK1-X3 READ ASSEMBLED CONVERT PTM02315 0320 7403 01FF 473 | MDX L CVADR,+3 FIX CONVERT ENTRY POINT PTM02320 474 | * PTM02325 0322 C3D8 475 | LD 3 I2501+1-X3 2-10 PTM02330 0323 F3D4 476 | EOR 3 PINPT+1-X3 CHECK FOR 2501 INPUT 2-10 PTM02335 0324 4C20 0328 477 | BSC L P0380-1,Z BR IF NOT 2501 PTM02340 0326 6C00 0207 478 | STX L0 ICD25 SET 2501 INPUT SWTCH PTM02345 0328 CBD1 479 | LDD 3 PRINT-X3 PRINT'S WD CNT, SCTR ADDR PTM02350 0329 DC80 045C 480 | P0380 STD I PR000 SET-UP TO RD SYS PRINT PTM02355 032B C400 045C 481 | LD L PR000 LD I/O AREA ADDR PTM02360 032D 18D0 482 | RTE 16 DISKZ READ CODE INTO THE PTM02365 032E C400 03CA 483 | LD L P0580 ACC AND EXTENSION 2G2 PTM02370 0330 435C 484 | BSI 3 DISK1-X3 READ SYSTEM PRINT ROUT PTM02375 0331 C400 045C 485 | LD L PR000 INITIAL 1403 ENTRY PTM02380 0333 80AF 486 | A P0556 IN ILS04 BRANCH TABLE AND PTM02385 0334 D105 487 | STO 1 +5 LEVEL 1 INTERRUPTS PTM02390 0335 D400 0009 488 | STO L 9 FOR PRINT+4 PTM02395 489 | * PTM02400 0337 C400 03BE 490 | LD L P0470 SET-UP WORD COUNT FOR PTM02405 0339 D480 03BB 491 | STO I P0462 ALL I/O BUFFERS FOR 80, 2-8 PTM02410 033B D480 03BD 492 | STO I P0464 AND ALL PRINT BUFFERS 2-8 PTM02415 033D 1801 493 | SRA 1 FOR 40. PTM02420 033E D400 0AA5 494 | STO L PRBFR 2-8 PTM02425 495 | * 2G2 PTM02430 0340 C400 000E 496 | LD L $CORE CHECK IF SYSTEM CORE 2G2 PTM02435 0342 9400 03C9 497 | S L P0570 SIZE GREATER THAN 4K 2G2 PTM02440 0344 4C08 035E 498 | BSC L P0397,+ BRANCH IF NO 2G2 PTM02445 499 | * 2G2 PTM02450 0346 CC00 040A 500 | LDD L P0700+42 SET UP IOAR HDR INFO 2-8 PTM02455 501 | * THE ABSOLUTE ADDRESS IN THE 2G2 PTM02460 502 | * FOLLOWING STO INSTR IS DEPENDENT 2G2 PTM02465 503 | * ON THE PHASE 13 LOAD ADDRESS 2G2 PTM02470 0348 DC00 0ECA 504 | P0390 STD L GRAPH+BUMP# 2-11 PTM02475 034A C0FE 505 | LD P0390+1 2G2 PTM02480 034B 18D0 506 | RTE 16 2G2 PTM02485 034C C400 03CA 507 | LD L P0580 2G2 PTM02490 034E 435C 508 | BSI 3 DISK1-X3 LOAD PHASE 13 2-11 PTM02495 509 | * 2G2 PTM02500 034F C097 510 | LD P0448 COMPUTE ADDR OF 2-8 PTM02505 0350 9071 511 | S P0540 *WORD IN PHASE 9 2-8 PTM02510 0351 D003 512 | STO P0392+1 2G2 PTM02515 0352 C0F6 513 | LD P0390+1 STORE ENTRY POINT OF 2G2 PTM02520 0353 806E 514 | A P0540 PHASE 13 IN PHASE 9 2G2 PTM02525 0354 D400 0000 515 | P0392 STO L *-* 2G2 PTM02530 516 | * 2G2 PTM02535 0356 CC00 0282 517 | LDD L P0195 INITLZ I/O HDR OF LOAD 2-8 PTM02540 0358 DC00 12F4 518 | P0393 STD L PDEND+104 *MACRO PH 3B TO CORE 2-8 PTM02545 035A C05E 519 | LD P0460 GET I/O AREA ADDR 2-8 PTM02550 035B 18D0 520 | RTE 16 2-8 PTM02555 035C C06D 521 | LD P0580 GET DK READ FUNC CODE 2-8 PTM02560 035D 435C 522 | BSI 3 DISK1-X3 LOAD MACRO PH 3B 2-8 PTM02565 523 | * 2-8 PTM02570 035E C400 000E 524 | P0397 LD L $CORE INITLZ VALUE FOR LOW 2-8 PTM02585 0360 8061 525 | A P0540 *END ADDR OF SYMBOL 2-8 PTM02590 0361 D300 526 | STO 3 LOEND-X3 TABLE IS CORE+2, AND FOR PTM02595 0362 9400 02E0 527 | S L P0550 THE HIGH END ADDR, 2G2 PTM02600 0364 D3FF 528 | STO 3 HIEND-X3 IS CORE-1. PTM02605 0365 C400 000E 529 | LD L $CORE CHECK IF SYSTEM CORE 2G2 PTM02610 0367 9061 530 | S P0570 SIZE GREATER THAN 4K 2G2 PTM02615 0368 4C08 036E 531 | BSC L P0398,+ BRANCH IF NO 2G2 PTM02620 036A C3FF 532 | LD 3 HIEND-X3 COMPUTE SYMBOL TABLE 2G2 PTM02625 036B 90DD 533 | S P0390+1 SIZE 2G2 PTM02630 534 | * ADJUST SYMBOL TBL SIZE 2-8 PTM02640 036C 904D 535 | S P0461 *FOR MACRO PROCESSOR 2-8 PTM02645 036D 7005 536 | MDX P0399 2-8 PTM02650 036E C3FF 537 | P0398 LD 3 HIEND-X3 COMPUTE SYMBOL TBL 2-8 PTM02655 036F 9400 045C 538 | S L PR000 *SIZE 2-8 PTM02660 0371 93D1 539 | S 3 PRINT-X3 2G2 PTM02665 0372 9050 540 | S P0541 2-11 PTM02670 0373 4804 541 | P0399 BSC E SKIP IF RESULT EVEN 2-11 PTM02675 0374 904F 542 | S P0542 ADJUST TO EVEN PTM02680 0375 D050 543 | P0400 STO P0560 SAVE TEMPORARILY PTM02685 0376 18D0 544 | RTE 16 PTM02690 0377 1010 545 | SLA 16 PTM02695 0378 A84C 546 | D P0543 COMPUTE NO. OF ENTRIES PTM02700 0379 18D0 547 | RTE 16 CHECK FOR EVEN NO. PTM02705 037A 4C18 037F 548 | BSC L FOUND,+- BR IF EVEN PTM02710 037C C049 549 | LD P0560 OTHERWISE, DECRE TOTAL PTM02715 037D 9044 550 | S P0540 BY TWO. PTM02720 037E 70F6 551 | MDX P0400 LOOP TO TRY AGAIN PTM02725 552 | * * PTM02730 037F C400 000E 553 | FOUND LD L $CORE FETCH CORE SIZE PTM02735 0381 9044 554 | S P0560 PTM02740 0382 D3FE 555 | STO 3 ENDST-X3 INITIAL END SYM TBL ADDR PTM02745 0383 903E 556 | S P0540 PTM02750 0384 D005 557 | STO P0410+1 TO INITLZ LDX INST. PTM02755 0385 6680 007A 558 | LDX I2 $WSDR PTM02760 0387 C600 0095 559 | LD L2 $FPAD FETCH APPROP FILE PROTECT PTM02765 0389 6600 0000 560 | P0410 LDX L2 *-* ADDR OF THE TEMP DRIVE PTM02770 038B D310 561 | STO 3 ADJSA-X3 SAVE IN TEMP W.S. SIZE PTM02775 038C D338 562 | STO 3 MCOM7-X3 SAVE W.S. START ADDR 2-8 PTM02780 038D D201 563 | STO 2 +1 INITLZ SYMBOL TABLE OVRFLO PTM02785 038E 6500 0AD2 564 | LDX L1 BUFI SCTR ADDR AND 2-8 PTM02790 0390 6700 0C16 565 | LDX L3 DFBUF THE DISK OUTPUT 2-8 PTM02795 0392 D101 566 | STO 1 +1 BUFFERS SCTR ADDR. PTM02800 0393 D301 567 | STO 3 +1 PTM02805 568 | * PTM02810 0394 C032 569 | LD P0565 SET WORD COUNT FOR 320 FOR PTM02815 0395 D200 570 | STO 2 0 SYMBOL TABLE OVERFLOW AND PTM02820 0396 D100 571 | STO 1 0 BOTH DISK OUTPUT BUFFERS PTM02825 0397 D300 572 | STO 3 0 PTM02830 573 | * * PTM02835 0398 6E00 0201 574 | STX L2 OFLOW+1 INITLZ SYM TBL OVERFLOW PTM02840 039A 7201 575 | MDX 2 +1 PTM02845 039B 6E00 0233 576 | STX L2 OFSAD PTM02850 039D 4400 025F 577 | BSI L LDXRS GO TO RESET XR1 & XR3 PTM02855 039F C02A 578 | LD P0580 DISKZ READ/WRITE COMMAND PTM02860 03A0 D3E7 579 | STO 3 OFLOW-X3 PTM02865 580 | * PTM02870 03A1 C01E 581 | LD P0510 COMPUTE SIZE OF PTM02875 03A2 9310 582 | S 3 ADJSA-X3 WORKING STORAGE PTM02880 03A3 E01D 583 | AND P0520 MASK OUT NEG. DRIVE CODE PTM02885 03A4 D3F8 584 | STO 3 WSSZE-X3 SAVE SIZE IN ASM COMMA PTM02890 585 | * PTM02895 03A5 C017 586 | LD P0464 2-8 PTM02900 03A6 18D0 587 | RTE 16 SET I/O BFR ADDRESSES IN PTM02905 03A7 C013 588 | LD P0462 COMMA TO FACILITATE 2-8 PTM02910 03A8 DB1F 589 | STD 3 RDBFR-X3 DOUBLE BUFFERING PTM02915 03A9 C012 590 | LD P0450 SET BLANK FOR 2-8 PTM02920 03AA D400 0A52 591 | STO L IOBF1+81 *POSSIBLE CROSS- 2-8 PTM02925 03AC D400 0AA4 592 | STO L IOBF2+81 *REFERENCED LISTING 2-8 PTM02930 593 | * PTM02935 03AE 6680 045B 594 | LDX I2 RP000 PTM02940 03B0 C320 595 | LD 3 RDBFR+1-X3 SET UP TO READ THE PTM02945 03B1 18D0 596 | RTE 16 FIRST RECORD PTM02950 03B2 C00C 597 | LD P0480 PTM02955 03B3 4203 598 | BSI 2 +3 GO TO READ IT PTM02960 03B4 C82D 599 | LDD P0700+2 WD CNT AND SCTR ADR OF 2G2 PTM02965 03B5 DC00 0280 600 | STD L P0190 PH. 1 TO OVRLAY HDR PTM02970 601 | * * PTM02975 03B7 4C00 0270 602 | BSC L P0130 GO TO LOAD PHASE 1 PTM02980 603 | * PTM02985 604 | * CONSTANTS AND SAVE AREAS PTM02990 605 | * PTM02995 03B9 12F4 606 | P0460 DC PDEND+104 I/O AREA ADDR 2-8 PTM03005 03BA 06AA 607 | P0461 DC M3BZ-GRAPH+1 WD CNT OF MACRO AREA2-11 PTM03010 0062 608 | INTBF EQU 98 MAX SIZE OF INT1,2 AND 10A 2-11 PTM03012 03BB 0A01 609 | P0462 DC IOBF1 ADDR READ/PUNCH BFR 1 2-8 PTM03015 03BC 0040 610 | P0450 DC . EBCDIC BLANK 2-8 PTM03020 03BD 0A53 611 | P0464 DC IOBF2 ADDR READ/PUNCH BFR 2 2-8 PTM03025 03BE 612 | BSS E 0 PTM03030 03BE 0050 613 | P0470 DC 80 WORD COUNT FOR BUFFERS PTM03035 03BF 7002 614 | P0480 DC /7002 READ WITH CONVERSION CODE PTM03040 03C0 0640 615 | P0510 DC 1600 LAST SCTR ADDR + 1 PTM03045 03C1 0FFF 616 | P0520 DC /0FFF NEG. DRIVE CODE MASK PTM03050 03C2 0002 617 | P0540 DC 2 ADD TO CONVERT SCTR ADDR PTM03055 03C3 0004 618 | P0541 DC 4 CONSTANT 4 PTM03060 03C4 0001 619 | P0542 DC 1 CONSTANT 1 PTM03065 03C5 0003 620 | P0543 DC 3 CONSTANT 3 PTM03070 03C6 0000 621 | P0560 DC 0 TEMP STORAGE PTM03075 03C7 0140 622 | P0565 DC 320 DISK BUFFER WD CNT PTM03080 03C8 0008 623 | P0566 DC 8 CONSTANT 8 PTM03085 03C9 1000 624 | P0570 DC /1000 2G2 PTM03090 625 | * PTM03095 03CA 7000 626 | P0580 DC /7000 DISK READ CODE PTM03100 627 | * PTM03105 628 | * 2G2 PTM03110 03CB 629 | PATCH BSS 21 PATCH AREA 2-3 PTM03115 630 | * PTM03120 631 | * PHASE 0 SLET TABLE PTM03125 632 | * PTM03130 03E0 633 | BSS E 0 PTM03135 03E0 00D5 634 | P0700 DC /D5 SLET ID OF PHASE 1 2-8 PTM03140 03E1 635 | BSS 3 PTM03145 03E4 00DD 636 | DC /DD SLET ID OF PHASE 5 2-8 PTM03150 03E5 637 | BSS 3 PTM03155 03E8 00DE 638 | DC /DE SLET ID OF PHASE 6 2-8 PTM03160 03E9 639 | BSS 3 PTM03165 03EC 00DF 640 | DC /DF SLET ID OF PHASE 7 2-8 PTM03170 03ED 641 | BSS 3 PTM03175 03F0 00E1 642 | DC /E1 SLET ID OF PHASE 8 2-8 PTM03180 03F1 643 | BSS 3 PTM03185 03F4 00E2 644 | DC /E2 SLET ID OF PHASE 8A 2-8 PTM03190 03F5 645 | BSS 3 PTM03195 03F8 00D3 646 | DC /D3 SLET ID OF PHASE 12 2-8 PTM03200 03F9 647 | BSS 3 PTM03205 03FC 00DA 648 | DC /DA SLET ID OF PHASE 2 2-8 PTM03210 03FD 649 | BSS 3 PTM03215 0400 00E9 650 | DC /E9 SLET ID OF MACRO PH 1 2-8 PTM03220 0401 651 | BSS 3 2-8 PTM03225 0404 00D0 652 | DC /D0 SLET ID OF ASM CONV SUBR2-8 PTM03230 0405 653 | BSS 3 PTM03235 0408 00E6 654 | DC /E6 SLET ID OF PHASE 13 2-8 PTM03240 0409 655 | BSS 3 PTM03245 040C 00E4 656 | DC /E4 SLET ID OF INT2 2-8 PTM03250 040D 657 | BSS 3 PTM03255 0410 00E3 658 | DC /E3 SLET ID OF PNCH CNVRT 2-8 PTM03260 0411 659 | BSS 3 PTM03265 0414 00D4 660 | DC /D4 SLET ID OF ERMSG 2-8 PTM03270 0415 661 | BSS 3 PTM03275 0418 00D9 662 | DC /D9 SLET ID OF PHASE 4 2-8 PTM03280 0419 663 | BSS 3 PTM03285 041C 00E5 664 | DC /E5 SLET ID OF PHASE 10A 2-8 PTM03290 041D 665 | BSS 3 PTM03295 0420 00DC 666 | DC /DC SLET ID OF PHASE 9 2-8 PTM03300 0421 667 | BSS 3 PTM03305 0424 00CF 668 | DC /CF SLET ID OF PHASE 0 2-8 PTM03310 0425 669 | BSS 3 PTM03315 0428 0099 670 | DC 153 SLET ID OF PRIN PRINT 2G2 PTM03320 0429 671 | BSS 3 PTM03325 042C 009A 672 | DC 154 SLET ID OF PRIN INPUT 2G2 PTM03330 042D 673 | BSS 3 PTM03335 0430 008E 674 | DC 142 SLET ID OF CONSOLE PRT 2G2 PTM03340 0431 675 | BSS 3 PTM03345 0434 008F 676 | DC 143 SLET ID OF 2501 2G2 PTM03350 0435 677 | BSS 3 PTM03355 0438 0090 678 | DC 144 SLET ID OF 1442 2G2 PTM03360 0439 679 | BSS 3 PTM03365 043C 0091 680 | DC 145 SLET ID OF 1134 2G2 PTM03370 043D 681 | BSS 3 PTM03375 0440 0092 682 | DC 146 SLET ID OF KEYBOARD 2G2 PTM03380 0441 683 | BSS 3 2G2 PTM03385 0444 0095 684 | DC 149 SLET ID OF KP/PT CNV RT 2G2 PTM03390 0445 685 | BSS 3 2G2 PTM03395 0448 00F1 686 | DC /F1 SLET ID OF MACRO PH 3B 2-8 PTM03400 0449 687 | BSS 3 2-8 PTM03405 044C 0000 688 | P0800 DC 0 PTM03410 *SBRKSLS D0 689 | ASM CARD CONVERSION PHASE V2M08 PTM03415 ***ASM CARD CONVERSION*** 691 | *************************************************** PTM03425 692 | * * PTM03430 693 | *STATUS-VERSION 2, MODIFICATION 8 * PTM03435 694 | * * PTM03440 695 | *FUNCTION/OPERATION- * PTM03445 696 | * THIS ROUTINE CONVERTS IBM CARD CODE * PTM03450 697 | * * PTM03455 698 | *ENTRY POINTS- * PTM03460 699 | * *SP000+1 - ENTRY FROM PHASE 1,9 * PTM03465 700 | * * PTM03470 701 | *INPUT- * PTM03475 702 | * *A BUFFER FOR CONVERSION * PTM03480 703 | * * PTM03485 704 | *OUTPUT * PTM03490 705 | * *A CONVERTED BUFFER * PTM03495 706 | * * PTM03500 707 | *EXTERNAL RERERENCES- * PTM03505 708 | * *SUBROUTINES- NONE * PTM03510 709 | * *DCOM/COMMA-NONE 2-8* PTM03515 710 | * * PTM03520 711 | *EXITS- * PTM03525 712 | * *NORMAL - TO THE CALLER * PTM03530 713 | * * ERROR - NONE * PTM03535 714 | * * PTM03540 715 | *TABLES/WORK AREAS- * PTM03545 716 | * * EBCDIC CHARACTER TABLE * PTM03550 717 | * * PTM03555 718 | *ATTRIBUTES-REUSABLE * PTM03560 719 | * * PTM03565 720 | *NOTES-N/A * PTM03570 721 | * * PTM03575 722 | *************************************************** PTM03580 01E8 723 | ORG /1E8 2-8 PTM03585 724 | * PTM03590 725 | * PTM03595 01E8 00BB 726 | DC SP990-SP000+1 WD CNT CD CNVRT PTM03600 01E9 00D0 727 | DC /D0 PH ID OF CD CNVRT 2-8 PTM03605 01EA 4C00 0000 728 | SP000 BSC L *-* EXIT/ENTRY PTM03610 01EC 282E 729 | STS SP074 SAVE STATUS INDICATORS PTM03615 01ED 692A 730 | STX 1 SP070+1 SAVE XR1 PTM03620 01EE 6A2B 731 | STX 2 SP072+1 SAVE XR 2 PTM03625 01EF D003 732 | STO SP020+1 INITIALIZE LOAD AND STORE PTM03630 01F0 D023 733 | STO SP060+1 WITH ADDRESS OF I/O AREA. PTM03635 01F1 6250 734 | LDX 2 80 XR 2 = COLUMN COUNT PTM03640 01F2 C600 0000 735 | SP020 LD L2 *-* FETCH HOLLERITH CARD COLUMN PTM03645 01F4 D028 736 | STO SP090 SAVE FOR LATER RELOAD PTM03650 01F5 1886 737 | SRT 6 PACK 12,11,0 ROWS NEXT TO PTM03655 01F6 1807 738 | SRA 7 8,9 ROWS AND STORE PTM03660 01F7 1883 739 | SRT 3 IN Q REGISTER. PTM03665 01F8 C024 740 | LD SP090 RELOAD COLUMN IN ACC PTM03670 741 | * PTM03675 742 | * DETERMINE WHICH ROWS OF ROWS 1-7 ARE PUNCHED PTM03680 743 | * PTM03685 01F9 610A 744 | LDX 1 10 PTM03690 01FA E023 745 | AND SP100 ZERO ALL ROWS EXCEPT 1-7 PTM03695 01FB 1140 746 | SLCA 1 0 PTM03700 01FC 1001 747 | SLA 1 IS MULTIPLE PUNCH IN 1-7 PTM03705 01FD 4818 748 | BSC +- PTM03710 01FE 7002 749 | MDX SP030 NO MULTIPLE PUNCHES PTM03715 01FF C020 750 | LD SP120 USE AMPERSAND (ASM--FF) PTM03720 0200 7012 751 | MDX SP060 TO INDICATE INVALID PUNCH PTM03725 752 | * PTM03730 753 | * COLUMN CONTAINS VALID PUNCH PTM03735 754 | * PTM03740 0201 691B 755 | SP030 STX 1 SP090 XR1 = 0 IF NO 1-7 PUNCH, PTM03745 0202 C01A 756 | LD SP090 = 1 IF 7 PUNCH, PTM03750 0203 1084 757 | SLT 4 = 7 IF 1 PUNCH PTM03755 0204 D008 758 | STO SP050+1 ADD 12,11,0,AND 8 ROWS PTM03760 0205 D017 759 | STO SP090 PTM03765 0206 6808 760 | STX 0 SP052+1 BUILD ADDRESS FOR PTM03770 0207 C007 761 | SP040 LD SP052+1 INDEXED LOAD INST AT SP052 PTM03775 0208 8016 762 | A SP110 PTM03780 0209 D005 763 | STO SP052+1 PTM03785 020A C012 764 | LD SP090 PTM03790 020B 1091 765 | SLT 17 STORE 9 ROW IN CARRY PTM03795 020C 6500 0000 766 | SP050 LDX L1 *-* XR1 = TABLE LOOK-UP ADDRESS PTM03800 020E C500 0000 767 | SP052 LD L1 *-* LOAD TABLE ENTRY PTM03805 768 | * PTM03810 769 | * IF 9 PUNCH, USE RIGHT HALF OF ENTRY PTM03815 770 | * PTM03820 0210 4802 771 | BSC C IF CARRY SET PTM03825 0211 1008 772 | SLA 8 USE RIGHT-HALF, OTHERWISE PTM03830 0212 1808 773 | SRA 8 USE LEFT-HALF OF ENTRY PTM03835 0213 D600 0000 774 | SP060 STO L2 *-* STORE CHAR IN BUFFER PTM03840 0215 72FF 775 | MDX 2 -1 CHANGE COLUMN POINTER PTM03845 0216 70DB 776 | MDX SP020 TO CONVERT NEXT COLUMN PTM03850 0217 6500 0000 777 | SP070 LDX L1 *-* RELOAD XR 1 PTM03855 0219 6600 0000 778 | SP072 LDX L2 *-* RELOAD XR 2 PTM03860 021B 2000 779 | SP074 LDS 0 RELOAD STATUS INDICATORS PTM03865 021C 70CD 780 | MDX SP000 GO TO EXIT PTM03870 781 | * PTM03875 782 | * CONSTANTS (OTHER THAN TABLE) USED BY ROUTINE PTM03880 783 | * PTM03885 021D 0000 784 | SP090 DC *-* TEMPORARY STORE FOR COLUMN PTM03890 021E 1FC0 785 | SP100 DC /1FC0 MASK OUT ALL ROWS BUT 1-7 PTM03895 021F 001A 786 | SP110 DC SP130-SP040 DISP. TO BUILD SP052 PTM03900 0220 00EF 787 | SP120 DC /EF ILLEGAL CHAR TO AMPERSAN2-8 PTM03905 788 | * PTM03910 789 | * PTM03915 790 | * PTM03920 791 | * EBCDIC CHARACTER TABLE - BASED ON PTM03925 792 | * PACKED HOL ( 1-7 ROW COMPLEMENT, 12, PTM03930 793 | * 11,0,8 ROWS ... RIGHT CHAR IF 9 ROW) PTM03935 794 | * PTM03940 795 | * EBCDIC,HOL ROW PUNCHES, LEFT,RIGHT PTM03945 796 | * PTM03950 0221 40F9 797 | SP130 DC /40F9 BLANK,(9) BLANK 9 PTM03955 0222 F838 798 | DC /F838 8,(9) 8 PTM03960 0223 F0E9 799 | DC /F0E9 0,(9) ZERO Z PTM03965 0224 E828 800 | DC /E828 0,8,(9) Y PTM03970 0225 60D9 801 | DC /60D9 11,(9) DASH R PTM03975 0226 D818 802 | DC /D818 11,8,(9) Q PTM03980 0227 D0A9 803 | DC /D0A9 11,0,(9) PTM03985 0228 A868 804 | DC /A868 11,0,8,(9) PTM03990 805 | * PTM03995 0229 50C9 806 | DC /50C9 12,(9) PLUS I PTM04000 022A C808 807 | DC /C808 12,8,(9) H PTM04005 022B C089 808 | DC /C089 12,0,(9) PTM04010 022C 8848 809 | DC /8848 12,0,8,(9) PTM04015 022D 6A99 810 | DC /6A99 12,11,(9) PTM04020 022E 9858 811 | DC /9858 12,11,8,(9) PTM04025 022F 70B9 812 | DC /70B9 12,11,0,(9) PTM04030 0230 B878 813 | DC /B878 12,11,0,8,(9) PTM04035 814 | * PTM04040 0231 F737 815 | DC /F737 7,(9) 7 EOT PTM04045 0232 7F3F 816 | DC /7F3F 7,8,(9) PTM04050 0233 E727 817 | DC /E727 7,0,(9) X PRE PTM04055 0234 6F2F 818 | DC /6F2F 7,0,8,(9) PTM04060 0235 D717 819 | DC /D717 7,11,(9) P IDL PTM04065 0236 5F1F 820 | DC /5F1F 7,11,8,(9) PTM04070 0237 A767 821 | DC /A767 7,11,0,(9) PTM04075 0238 AFEF 822 | DC /AFEF 7,11,0,8,(9) PTM04080 0239 C707 823 | DC /C707 7,12,(9) G DEL PTM04085 023A 4F0F 824 | DC /4F0F 7,12,8,(9) PTM04090 023B 8747 825 | DC /8747 7,12,0,(9) PTM04095 023C 8FCF 826 | DC /8FCF 7,12,0,8,(9) PTM04100 023D 9757 827 | DC /9757 7,12,11,(9) PTM04105 023E 9FDF 828 | DC /9FDF 7,12,11,8,(9) PTM04110 023F B777 829 | DC /B777 7,12,11,0,(9) PTM04115 0240 BFFF 830 | DC /BFFF 7,12,11,0,8,(9) PTM04120 831 | * PTM04125 0241 F636 832 | DC /F636 6,(9) 6 UC PTM04130 0242 7E3E 833 | DC /7E3E 6,8,(9) EQUAL PTM04135 0243 E626 834 | DC /E626 6,0,(9) W EOB PTM04140 0244 6E2E 835 | DC /6E2E 6,0,8,(9) PTM04145 0245 D616 836 | DC /D616 6,11,(9) O BS PTM04150 0246 5E1E 837 | DC /5E1E 6,11,8,(9) PTM04155 0247 A666 838 | DC /A666 6,11,0,(9) PTM04160 0248 AEEE 839 | DC /AEEE 6,11,0,8,(9) PTM04165 0249 C606 840 | DC /C606 6,12,(9) F LC PTM04170 024A 4E0E 841 | DC /4E0E 6,12,8,(9) PLUS PTM04175 024B 8646 842 | DC /8646 6,12,0,(9) PTM04180 024C 8ECE 843 | DC /8ECE 6,12,0,8,(9) PTM04185 024D 9656 844 | DC /9656 6,12,11,(9) PTM04190 024E 9EDE 845 | DC /9EDE 6,12,11,8,(9) PTM04195 024F B676 846 | DC /B676 6,12,11,0,(9) PTM04200 0250 BEFE 847 | DC /BEFE 6,12,11,0,8,(9) PTM04205 848 | * PTM04210 0251 F535 849 | DC /F535 5,(9) 5 RS PTM04215 0252 7D3D 850 | DC /7D3D 5,8,(9) PTM04220 0253 E525 851 | DC /E525 5,0,(9) V LF PTM04225 0254 6D2D 852 | DC /6D2D 5,0,8,(9) PTM04230 0255 D515 853 | DC /D515 5,11,(9) N NL PTM04235 0256 5D1D 854 | DC /5D1D 5,11,8,(9) ) PTM04240 0257 A565 855 | DC /A565 5,11,0,(9) PTM04245 0258 ADED 856 | DC /ADED 5,11,0,8,(9) PTM04250 0259 C505 857 | DC /C505 5,12,(9) E HT PTM04255 025A 4D0D 858 | DC /4D0D 5,12,8,(9) ( PTM04260 025B 8545 859 | DC /8545 5,12,0,(9) PTM04265 025C 8DCD 860 | DC /8DCD 5,12,0,8,(9) PTM04270 025D 9555 861 | DC /9555 5,12,11,(9) PTM04275 025E 9DDD 862 | DC /9DDD 5,12,11,8,(9) PTM04280 025F B575 863 | DC /B575 5,12,11,0,(9) PTM04285 0260 BDFD 864 | DC /BDFD 5,12,11,0,8,(9) PTM04290 865 | * PTM04295 0261 F434 866 | DC /F434 4,(9) 4 PN 2-7 PTM04300 0262 7C3C 867 | DC /7C3C 4,8,(9) APOSTROPHE PTM04305 0263 E424 868 | DC /E424 4,0,(9) U BYP PTM04310 0264 6C2C 869 | DC /6C2C 4,0,8,(9) % PTM04315 0265 D414 870 | DC /D414 4,11,(9) M RES PTM04320 0266 5C1C 871 | DC /5C1C 4,11,8,(9) * PTM04325 0267 A464 872 | DC /A464 4,11,0,(9) PTM04330 0268 ACEC 873 | DC /ACEC 4,11,0,8,(9) PTM04335 0269 C404 874 | DC /C404 4,12,(9) D PF PTM04340 875 | * PTM04345 026A 4C0C 876 | DC /4C0C 4,12,8,(9) < PTM04350 026B 8444 877 | DC /8444 4,12,0,(9) PTM04355 026C 8CCC 878 | DC /8CCC 4,12,0,8,(9) PTM04360 026D 9454 879 | DC /9454 4,12,11,(9) PTM04365 026E 9CDC 880 | DC /9CDC 4,12,11,8,(9) PTM04370 026F B474 881 | DC /B474 4,12,11,0,(9) PTM04375 0270 BCFC 882 | DC /BCFC 4,12,11,0,8,(9) PTM04380 883 | * PTM04385 0271 F333 884 | DC /F333 3,(9) 3 PTM04390 885 | * PTM04395 0272 7B3B 886 | DC /7B3B 3,8,(9) = PTM04400 0273 E323 887 | DC /E323 3,0,(9) T PTM04405 0274 6B2B 888 | DC /6B2B 3,0,8,(9) COMMA PTM04410 0275 D313 889 | DC /D313 3,11,(9) L PTM04415 0276 5B1B 890 | DC /5B1B 3,11,8,(9) / PTM04420 0277 A363 891 | DC /A363 3,11,0,(9) PTM04425 0278 ABEB 892 | DC /ABEB 3,11,0,8,(9) PTM04430 0279 C303 893 | DC /C303 3,12,(9) C PTM04435 027A 4B0B 894 | DC /4B0B 3,12,8,(9) . PTM04440 027B 8343 895 | DC /8343 3,12,0,(9) PTM04445 027C 8BCB 896 | DC /8BCB 3,12,0,8,(9) PTM04450 027D 9353 897 | DC /9353 3,12,11,(9) PTM04455 027E 9BDB 898 | DC /9BDB 3,12,11,8,(9) PTM04460 027F B373 899 | DC /B373 3,12,11,0,(9) PTM04465 0280 BBFB 900 | DC /BBFB 3,12,11,0,8,(9) PTM04470 901 | * PTM04475 0281 F232 902 | DC /F232 2,(9) Z PTM04480 0282 7A3A 903 | DC /7A3A 2,8,(9) PTM04485 0283 E222 904 | DC /E222 2,0,(9) S PTM04490 0284 E02A 905 | DC /E02A 2,0,8,(9) PTM04495 0285 D212 906 | DC /D212 2,11,(9) K PTM04500 0286 5A1A 907 | DC /5A1A 2,11,8,(9) PTM04505 0287 A262 908 | DC /A262 2,11,0,(9) PTM04510 0288 AAEA 909 | DC /AAEA 2,11,0,8,(9) PTM04515 0289 C202 910 | DC /C202 2,12,(9) B PTM04520 028A 4A0A 911 | DC /4A0A 2,12,8,(9) PTM04525 028B 8242 912 | DC /8242 2,12,0,(9) PTM04530 028C 8ACA 913 | DC /8ACA 2,12,0,8,(9) PTM04535 028D 9252 914 | DC /9252 2,12,11,(9) PTM04540 028E 9ADA 915 | DC /9ADA 2,12,11,8,(9) PTM04545 028F B272 916 | DC /B272 2,12,11,0,(9) PTM04550 0290 BAFA 917 | DC /BAFA 2,12,11,0,8,(9) PTM04555 918 | * PTM04560 0291 F131 919 | DC /F131 1,(9) 1 PTM04565 0292 7939 920 | DC /7939 1,8,(9) PTM04570 0293 6121 921 | DC /6121 1,0,(9) SLASH PTM04575 0294 6929 922 | DC /6929 1,0,8,(9) PTM04580 0295 D111 923 | DC /D111 1,11,(9) J PTM04585 0296 5919 924 | DC /5919 1,11,8,(9) PTM04590 0297 A1E1 925 | DC /A1E1 1,11,0,(9) PTM04595 0298 A020 926 | DC /A020 1,11,0,8,(9) PTM04600 0299 C101 927 | DC /C101 1,12,(9) A PTM04605 029A 4909 928 | DC /4909 1,12,8,(9) PTM04610 029B 8141 929 | DC /8141 1,12,0,(9) PTM04615 029C 8000 930 | DC /8000 1,12,0,8,(9) NUL PTM04620 029D 9151 931 | DC /9151 1,12,11,(9) PTM04625 029E 9010 932 | DC /9010 1,12,11,8,(9) PTM04630 029F B171 933 | DC /B171 1,12,11,0,(9) PTM04635 02A0 B030 934 | DC /B030 1,12,11,0,8,(9) PTM04640 935 | * PTM04645 936 | * PTM04650 937 | * PTM04655 02A1 938 | BSS 3 PTM04660 02A4 FFFF 939 | SP990 DC /FFFF ALLOW 4 WORD PATCH AREA PTM04665 *SBRKSLS D1 940 | ASM DSF OUTPUT PHASE V2M08 PTM04670 *** PHASE 10 DSF SUBROUTINES *** 942 | *************************************************** PTM04680 943 | * * PTM04685 944 | *STATUS-VERSION 2, MODIFICATION 8 * PTM04690 945 | * * PTM04695 946 | *FUNCTION/OPERATION- * PTM04700 947 | * * PTM04705 948 | *ENTRY POINTS- * PTM04710 949 | * *SA000+1 - ENTRY FROM DFOUT OR PHASE 12 * PTM04715 950 | * *SA010+1 - ENTRY FROM DFOUT OR PHASE 12 * PTM04720 951 | * * PTM04725 952 | *INPUT-N/A * PTM04730 953 | * * PTM04735 954 | *OUTPUT * PTM04740 955 | * *THE DATA HEADERS AND SECTORS * PTM04745 956 | * *INTERMEDIATE OUTPUT * PTM04750 957 | * * PTM04755 958 | *EXTERNAL RERERENCES- * PTM04760 959 | * *SUBROUTINES- * PTM04765 960 | * * DISK1 * PTM04770 961 | * * LDXRS * PTM04775 962 | * *DCOM/COMMA-NONE 2-8* PTM04780 963 | * * PTM04785 964 | *EXITS- * PTM04790 965 | * *NORMAL - TO THE CALLER * PTM04795 966 | * * ERROR - NONE * PTM04800 967 | * * PTM04805 968 | *TABLES/WORK AREAS- N/A * PTM04810 969 | * * PTM04815 970 | *ATTRIBUTES-REUSABLE * PTM04820 971 | * * PTM04825 972 | *NOTES-N/A * PTM04830 973 | * * PTM04835 974 | *************************************************** PTM04840 01E8 975 | ORG /1E8 2-8 PTM04845 976 | * PTM04850 01E8 005F 977 | DC SA130-SA000 WD CNT OF PHASE 10 PTM04855 01E9 00D1 978 | DC /D1 SLET ID OF PH 10 2-8 PTM04860 979 | *************************************************** PTM04865 980 | * DTHDR * PTM04870 981 | * DTHDR ENTERS A DATA HEADER INTO THE OBJECT * PTM04875 982 | * PROGRAM OUTPUT IN DSF WHEN REQUIRED. THE * PTM04880 983 | * PROGRAM WORD COUNT, WRDCT, IS INCREMENTED BY 2* PTM04885 984 | * FOR EACH ENTRY TO SUBROUTINE SINCE EACH DATA * PTM04890 985 | * HEADER IS TWO WORDS LONG. THE NUMBER OF WORDS* PTM04895 986 | * TO, AND INCLUDING, EACH NEW DATA HEADER IS * PTM04900 987 | * STORED IN WORD 2 OF THE LAST DATA HEADER. * PTM04905 988 | *************************************************** PTM04910 01EA 4C00 0000 989 | SA000 BSC L *-* ENTRY POINT DATA HDR GENERATION PTM04915 01EC C31D 990 | LD 3 RDTHD-X3 PTM04920 01ED 4820 991 | BSC Z SKIP IF HDR NEEDED PTM04925 01EE 7001 992 | MDX SA002 BR TO ADJST ADDR CNTRS PTM04930 01EF 7005 993 | MDX SA005 BR TO GENERATE DATA HDR PTM04935 01F0 C3FA 994 | SA002 LD 3 ADCOW-X3 NO DATA HDR NEEDED PTM04940 01F1 D3FC 995 | STO 3 ADCW2-X3 PTM04945 01F2 D480 022B 996 | STO I DHPTR PTM04950 01F4 70F5 997 | MDX SA000 BR TO EXIT PTM04955 01F5 C314 998 | SA005 LD 3 DFXR1-X3 COMPUTE NO OF WORDS IN PTM04960 01F6 9312 999 | S 3 DHPTR-X3 DATA BLOCK JUST COMPLETED, PTM04965 1000 | * 2/11 PTM04970 01F7 7401 022B 1001 | MDX L DHPTR,1 THE DATA HEADER NOW BEING PTM04975 1002 | * 2/11 PTM04980 01F9 D480 022B 1003 | STO I DHPTR 2ND WORD OF LAST DATA HDR. PTM04985 1004 | * PTM04990 01FB C3FA 1005 | LD 3 ADCOW-X3 SET SECONDARY L.A.C. EQUAL PTM04995 01FC D3FC 1006 | STO 3 ADCW2-X3 TO MAIN L.A.C. OF ASSEMBLER PTM05000 1007 | * PTM05005 1008 | * THE L.A.C. VALUE IS ALSO PLACED PTM05010 1009 | * IN WORD 1 OF NEW DATA HEADER PTM05015 1010 | * PTM05020 01FD D480 022D 1011 | STO I DFXR1 PTM05025 1012 | * PTM05030 01FF C314 1013 | LD 3 DFXR1-X3 DATA HDR PTR ADDR IS EQUAL PTM05035 0200 D312 1014 | STO 3 DHPTR-X3 TO BUFFER ADDR OF LAST WD PTM05040 1015 | * PTM05045 0201 7402 022D 1016 | MDX L DFXR1,2 RESET XR POINTERS USED BY PTM05050 0203 C314 1017 | LD 3 DFXR1-X3 DFOUT SUBR FOR NEW BLOCK PTM05055 0204 9040 1018 | S SA090 OF EIGHT DATA WORDS. PTM05060 0205 D315 1019 | STO 3 DFXR2-X3 XR2 (ADDR) = XR1(ADDR)-9 PTM05065 0206 1010 1020 | SLA 16 PTM05070 0207 D316 1021 | STO 3 DFXR3-X3 XR3 = 0 PTM05075 1022 | * PTM05080 0208 7401 0214 1023 | MDX L MVCNT,1 INCR BUFFER OVRFLO WD CNT PTM05085 020A 1000 1024 | NOP (MAY SKIP) PTM05090 020B 70DE 1025 | MDX SA000 EXIT DATA HEADER SUBR PTM05095 1026 | * PTM05100 1028 | *************************************************** PTM05105 1029 | * WRDFO * PTM05110 1030 | * THIS SUBROUTINE WRITES ONE SECTOR OF DSF * PTM05115 1031 | * OUTPUT WHEN THE DSF OUTPUT BUFFER IS FULL. * PTM05120 1032 | * AFTER THE SECTOR IS WRITTEN, THOSE WORDS PAST * PTM05125 1033 | * THE 320TH WORD OF THE BUFFER ARE MOVED BACK TO* PTM05130 1034 | * THE BEGINNING OF THE BUFFER. * PTM05135 1035 | * IN THE EVENT THE BUFFER IS NOT FULL AND WRDFO * PTM05140 1036 | * IS ENTERED FROM PHASE 12 END STATEMENT * PTM05145 1037 | * PROCESSING, THE DSF BUFFER IS WRITTEN TO * PTM05150 1038 | * WORKING STORAGE. * PTM05155 1039 | *************************************************** PTM05160 020C 4C00 0000 1040 | SA010 BSC L *-* WRITE DSF OUTPUT ENTRY POINT PTM05165 1041 | * PTM05170 020E C314 1042 | LD 3 DFXR1-X3 CHECK FOR OUTPUT POINTER PTM05175 020F 9317 1043 | S 3 ENDAD-X3 PAST 320TH WORD OF BUFFER PTM05180 0210 D3FB 1044 | STO 3 MVCNT-X3 SAVE RESULT PTM05185 0211 4810 1045 | BSC - 2/11 PTM05190 0212 7005 1046 | MDX SA020 OUTPUT BFR IF PLUS PTM05195 1047 | * PTM05200 1048 | * IF BUFFER IS NOT FULL, BUT WRDFO PTM05205 1049 | * WAS ENTERED FROM PHASE 12 (END PTM05210 1050 | * STATEMENT PROCESSING), WRITE PTM05215 1051 | * DSF BUFFER TO WORKING STORAGE. PTM05220 1052 | * PTM05225 0213 C32C 1053 | LD 3 OPCNT-X3 OP CODE CONTROL WD = 5 PTM05230 0214 F031 1054 | EOR SA100 IF END STATEMENT. PTM05235 0215 4820 1055 | BSC Z SKIP IF END PTM05240 0216 70F5 1056 | MDX SA010 NOT END STMNT, EXIT PTM05245 0217 7003 1057 | MDX SA030 PTM05250 1058 | * PTM05255 0218 40D2 1059 | SA020 BSI SA000+1 GENERATE DATA HEADER PTM05260 0219 6C00 0236 1060 | STX L0 RDTHD NO REDUNDANT DATA HEADERS PTM05265 021B CB1B 1061 | SA030 LDD 3 DSFWR-X3 PTM05270 021C 435C 1062 | BSI 3 DISK1-X3 WRITE DSF OUTPUT SECTOR PTM05275 021D C480 0232 1063 | LD I DSADR PTM05280 021F 8027 1064 | A SA110 INCREMENT DSF BUFFER PTM05285 0220 D480 0232 1065 | STO I DSADR SCTR ADDR BY 1. PTM05290 0222 74FF 020F 1066 | MDX L SCRA,-1 DECREMENT W.S. SCTRS PTM05295 0224 1000 1067 | NOP (MAY SKIP) PTM05300 1068 | * PTM05305 0225 C3FB 1069 | LD 3 MVCNT-X3 USE NO. OF WORDS PAST END PTM05310 0226 D005 1070 | STO SA040+1 OF BUFFER AS A LOOP COUNTER PTM05315 0227 6580 0231 1071 | LDX I1 STADR XR1 = START OF DSF BUFFER PTM05320 0229 6680 0230 1072 | LDX I2 ENDAD XR2 = END OF DSF BUFFER PTM05325 022B 6700 0000 1073 | SA040 LDX L3 *-* XR3 = LOOP CTR FOR MOVE PTM05330 022D 4828 1074 | BSC +Z SKIP NOT END 2/11 PTM05335 022E 7013 1075 | MDX SA065 END BRANCH TO END 2/11 PTM05336 022F 4808 1076 | BSC + 2/11 PTM05340 0230 7006 1077 | MDX SA060 2/11 PTM05341 1078 | * PTM05345 0231 C200 1079 | SA050 LD 2 0 PTM05350 0232 D100 1080 | STO 1 0 THIS LOOP MOVES THOSE PTM05355 0233 7101 1081 | MDX 1 +1 WORDS WHICH HAVE OVERFLOWED PTM05360 0234 7201 1082 | MDX 2 +1 THE DSF BUFFER BACK TO PTM05365 0235 73FF 1083 | MDX 3 -1 THE BEGINNING OF THE BUFFER PTM05370 0236 70FA 1084 | MDX SA050 PTM05375 1085 | * PTM05380 0237 71F8 1086 | SA060 MDX 1 -8 RESET XR1 AND XR2 TO PTM05385 0238 6D00 022E 1087 | STX L1 DFXR2 CONTINUE DATA OUTPUT PTM05390 023A 7109 1088 | MDX 1 +9 AT BEGINNING OF DSF BUFFER PTM05395 023B 6D00 022D 1089 | STX L1 DFXR1 PTM05400 023D C400 022B 1090 | LD L DHPTR PTM05405 023F 9008 1091 | S SA120 MOVE DATA HEADER POINTER PTM05410 0240 D400 022B 1092 | STO L DHPTR ADDR BACK TO START OF BFR PTM05415 0242 4400 025F 1093 | SA065 BSI L LDXRS RELOAD REGISTERS 1,3 PTM05420 1094 | * * PTM05425 0244 70C7 1095 | MDX SA010 EXIT WRITE DSF SUBR PTM05430 1096 | * PTM05435 1097 | * PHASE 10 CONSTANTS PTM05440 1098 | * PTM05445 1099 | * 2-11 PTM05450 0245 0009 1100 | SA090 DC 9 ADJUST XR1 ADDR TO XR2 ADDR PTM05455 0246 0006 1101 | SA100 DC 6 OP CODE CONTROL FOR END INST.2-8 PTM05460 0247 0001 1102 | SA110 DC 1 UPDATE DSF BFR SCTR ADDR PTM05465 0248 0140 1103 | SA120 DC 320 UPDATE DATA HDR POINTER ADDR PTM05470 1104 | * 2-11 PTM05471 1105 | * NOTE - IF THIS PHASE IS INCREASED, A 2-11 PTM05472 1106 | * BSS MAY HAVE TO BE ADDED BEFORE P9380 2-11 PTM05473 1107 | * TO ALLOW FOR THE INCREASED SIZE. 2-11 PTM05474 1108 | * 2-11 PTM05475 0249 1109 | SA130 EQU * END OF PHASE 10 2-11 PTM05476 *SBRKSLS D2 1110 | ASM INTERMEDIATE INPUT PHASE V2M08 PTM05480 *** PHASE 11 INTERMED. INPUT *** 1112 | *************************************************** PTM05490 1113 | * * PTM05495 1114 | *STATUS-VERSION 2, MODIFICATION 8 * PTM05500 1115 | * * PTM05505 1116 | *FUNCTION/OPERATION- * PTM05510 1117 | * * PTM05515 1118 | *ENTRY POINTS- * PTM05520 1119 | * *SB000+1 - ENTRY FROM DLDLBL OR PHASE 12 * PTM05525 1120 | * * PTM05530 1121 | *INPUT-N/A * PTM05535 1122 | * * PTM05540 1123 | *OUTPUT * PTM05545 1124 | * *A SOURCE STATEMENT TO THE INPUT BUFFER * PTM05550 1125 | * * PTM05555 1126 | *EXTERNAL RERERENCES- * PTM05560 1127 | * *SUBROUTINES- * PTM05565 1128 | * * LDXRS * PTM05570 1129 | * *DCOM/COMMA- * PTM05575 1130 | * $PHSE * PTM05580 1131 | * * PTM05585 1132 | *EXITS- * PTM05590 1133 | * *NORMAL - TO PHASE 9 * PTM05595 1134 | * * ERROR - NONE * PTM05600 1135 | * * PTM05605 1136 | *TABLES/WORK AREAS- N/A * PTM05610 1137 | * * PTM05615 1138 | *ATTRIBUTES-REUSABLE * PTM05620 1139 | * * PTM05625 1140 | *NOTES-N/A * PTM05630 1141 | * * PTM05635 1142 | *************************************************** PTM05640 01E8 1143 | ORG /01E8+BUMP# 2-11 PTM05645 1144 | * PTM05650 01E8 005E 1145 | DC SB080-SB000 WORD COUNT, PHASE 11 PTM05655 01E9 00D2 1146 | DC /D2 SLET ID OF PH 11 2-8 PTM05660 01EA 4C00 0000 1147 | SB000 BSC L *-* ENTRY POINT (INT2) PTM05665 01EC C04F 1148 | LD SB065 INDICATE THAT PHASE 11 PTM05670 01ED D400 0078 1149 | STO L $PHSE OF ASSEMBLER IS IN CONTROL PTM05675 1150 | * 2-11 PTM05680 1151 | * 2-11 PTM05685 1152 | * 2-11 PTM05690 1153 | * 2-11 PTM05695 1154 | * 2-11 PTM05700 1155 | * 2-11 PTM05705 1156 | * 2-11 PTM05710 1157 | * 2-11 PTM05715 1158 | * 2-11 PTM05720 1159 | * 2-11 PTM05725 1160 | * 2-11 PTM05730 1161 | * 2-11 PTM05735 1162 | * 2-11 PTM05740 1163 | * 2-11 PTM05745 01EF 6250 1164 | LDX 2 +80 PTM05750 01F0 C047 1165 | LD SB055 CLEAR 80 WORD INPUT BUFFER PTM05755 01F1 D101 1166 | SB005 STO 1 +1 TO EBCDIC BLANKS. PTM05760 01F2 7101 1167 | MDX 1 +1 PTM05765 01F3 72FF 1168 | MDX 2 -1 PTM05770 01F4 70FC 1169 | MDX SB005 PTM05775 1170 | * PTM05780 01F5 4346 1171 | BSI 3 LDXRS-X3 RELOAD REGISTERS 1,3 PTM05785 01F6 6680 0923 1172 | SB010 LDX I2 PRFIX ADDR OF BUFFER TO XR2 2-11 PTM05790 01F8 402F 1173 | BSI SB040+1 CHECK IF INT.I/O BUFR FULL PTM05795 01F9 7115 1174 | MDX 1 +21 XR1 POINTS TO COL. 21 PTM05800 01FA C200 1175 | LD 2 0 USE CONTENTS OF PREFIX WD PTM05805 01FB D001 1176 | STO SB015+1 AS UNPACK LOOP COUNTER PTM05810 01FC 6700 0000 1177 | SB015 LDX L3 *-* XR3 = STATEMENT CHAR COUNT PTM05815 01FE 73FF 1178 | MDX 3 -1 SET TO PREFIX WD - 1 PTM05820 01FF 1000 1179 | NOP MIGHT SKIP PTM05825 0200 7201 1180 | MDX 2 1 BUMP PAST COUNTER WORD 2-11 PTM05830 0201 4026 1181 | BSI SB040+1 TEST IF BUFFER EMPTY 2-11 PTM05831 0202 C200 1182 | LD 2 0 1ST WORD OF BUFFER 2-11 PTM05832 0203 18C8 1183 | RTE 8 SAVE ONLY FIRST WORD 2-11 PTM05833 0204 9033 1184 | S SB055 TEST IF BLANK 2-11 PTM05834 0205 4818 1185 | BSC +- SKIP IF LABEL FOUND 2-11 PTM05835 0206 7105 1186 | MDX 1 5 ADJUST FOR NO LABEL 2-11 PTM05836 0207 4020 1187 | SB020 BSI SB040+1 TEST IF EMPTY BUFFER 2-11 PTM05837 0208 C200 1188 | LD 2 0 GET TWO CHARACTERS 2-11 PTM05840 0209 18C8 1189 | RTE 8 SPLIT THEM APART 2-11 PTM05841 020A D100 1190 | STO 1 0 SET IN INPUT BUFFER 2-11 PTM05842 020B 1008 1191 | SLA 8 GET NEXT CHARACTER 2-11 PTM05843 020C 1088 1192 | SLT 8 TO A REG 2-11 PTM05844 020D D101 1193 | STO 1 1 SET IN INPUT AREA 2-11 PTM05845 020E 7102 1194 | MDX 1 +2 NEXT TWO COLUMNS PTM05870 020F 7201 1195 | MDX 2 +1 NEXT BUFFER WORD PTM05875 0210 73FF 1196 | MDX 3 -1 DECREMENT LOOP COUNTER PTM05880 0211 70F5 1197 | MDX SB020 CONTINUE WITH NEXT WORD PTM05885 1198 | * PTM05890 1199 | * STATEMENT IS NOW IN INPUT BUFFER PTM05895 1200 | * PTM05900 0212 6E00 0923 1201 | STX L2 PRFIX SAVE BUFFER POINTER 2-11 PTM05905 0214 4400 025F 1202 | SB030 BSI L LDXRS RELOAD REGISTERS 1,3 PTM05910 0216 623B 1203 | LDX 2 59 SCAN FOR MACRO INDICATO2-11 PTM05911 0217 C114 1204 | SB025 LD 1 20 START AT COL 21 END 2-11 PTM05912 0218 F020 1205 | EOR SB056 = PLUSI INDICATOR 2-11 PTM05913 0219 4818 1206 | BSC +- SKIP IF NOT MACRO YET 2-11 PTM05914 021A 7007 1207 | MDX SB027 BRANCH IF INDICATOR FOU2-11 PTM05915 021B 7101 1208 | MDX 1 1 ADVANCE COL POINTER 2-11 PTM05916 021C 72FF 1209 | MDX 2 -1 DECR COUNT TO DO 2-11 PTM05917 021D 70F9 1210 | MDX SB025 SEARCH FOR MORE 2-11 PTM05918 021E C019 1211 | LD SB055 GET A BLANK FOR COL 20 2-11 PTM05919 021F 4346 1212 | SB026 BSI 3 LDXRS-X3 RESTORE XR 1 2-11 PTM05920 0220 D114 1213 | STO 1 20 SET INDICATOR IN COL 202-11 PTM05921 0221 70C8 1214 | MDX SB000 EXIT (INT2) 2-11 PTM05922 1215 | * 2-11 PTM05923 0222 C015 1216 | SB027 LD SB055 REPLACE CHAR WITH BLANK2-11 PTM05924 0223 D114 1217 | STO 1 20 2-11 PTM05925 0224 C015 1218 | LD SB057 PLACE A PLUS IN COL 20 2-11 PTM05926 0225 70F9 1219 | MDX SB026 2-11 PTM05927 1220 | * 2-11 PTM05928 0226 10A0 1221 | SLT 32 CLEAR A AND Q 2-11 PTM05929 0227 4C00 0000 1222 | SB040 BSC L *-* BUFFER FULL TEST PTM05930 0229 6E00 0923 1223 | STX L2 PRFIX COMPARE CURRENT BUFFER 2-11 PTM05935 022B C400 0923 1224 | LD L PRFIX FETCH CURRENT WORD ADDR2-11 PTM05940 022D 900D 1225 | S SB060 BUFFER ADDR CONSTANT PTM05945 022E 4820 1226 | SB045 BSC Z PTM05950 022F 70F6 1227 | MDX SB040-1 EXIT IF NOT EQUAL 2-11 PTM05955 0230 C80D 1228 | LDD SB070 SET-UP TO USE DISKZ TO PTM05960 0231 7401 0AD3 1229 | SB046 MDX L BUFI+1,1 SECTR ADDR + 1 2-11 PTM05965 0233 4400 0275 1230 | BSI L DISK1 READ NEXT INT. I/O SCTR PTM05970 0235 7600 FEC0 1231 | MDX L2 -320 MOVE BUFFER WORD PTR TO PTM05975 0237 70F1 1232 | MDX SB040+2 FORCE EXIT 2-11 PTM05985 1233 | * PTM05990 1234 | * CONSTANTS PTM05995 1235 | * PTM06000 0238 0040 1236 | SB055 DC . EBCDIC BLANK PTM06015 0239 0041 1237 | SB056 DC /0041 MACRO STATEMENT INDICAT2-11 PTM06017 023A 004E 1238 | SB057 DC .+ EBCDIC PLUS FOR MACRO S2-11 PTM06018 023B 0C14 1239 | SB060 DC BUFI+322 END OF BUFFER ADDRESS 2-11 PTM06020 023C 00D2 1240 | SB065 DC /D2 SLET ID OF PH 11 2-8 PTM06025 023E 1241 | BSS E 0 MAKE NEXT LOCATION EVEN PTM06030 023E 7000 1242 | SB070 DC /7000 DISKZ READ CODE PTM06035 023F 0AD2 1243 | DC BUFI DISK I/O AREA ADDR 2-11 PTM06042 0240 1244 | BSS INTBF-*+SB000-4 PATCH AREA 2-11 PTM06044 0248 0000 1245 | SB080 DC 0 END OF PHASE 11 (INT2) 2-11 PTM06045 *SBRKSLS D3 1246 | ASM END STATEMENT PHASE V2M08 PTM06050 PHASE 12 VERSION 2 - END STMNT 1248 | *************************************************** PTM06060 1249 | * * PTM06065 1250 | *STATUS - VERSION 2, MODIFICATION 12 * PTM06070 1251 | * * PTM06075 1252 | *FUNCTION/OPERATION- * PTM06080 1253 | * *PHASE 11 IS FETCHED INTO CORE IN PASS 1 * PTM06085 1254 | * DURING PHASE 12 END STATEMENT PROCESSING IF * PTM06090 1255 | * THE ASSEMBLY IS IN ONE-PASS MODE. * PTM06095 1256 | * *THE SOURCE STATEMENTS SAVED IN PASS 1 ARE * PTM06100 1257 | * READ BACK ONTO CORE IN PASS 2 IN SUCH A WAY * PTM06105 1258 | * THAT THEY ARE INDISTINGUISHABLE FROM * PTM06110 1259 | * STATEMENTS READ FROM THE PRINCIPAL I/O * PTM06115 1260 | * DEVICE. * PTM06120 1261 | * *THE SOURCE STATEMENTS ARE READ, ONE SECTOR AT* PTM06125 1262 | * A TIME, INTO THE FIRST DISK BUFFER (BUFI). * PTM06130 1263 | * *PHASE 11 PROCESSES THE RECORDS, ONE STATEMENT* PTM06135 1264 | * AT A TIME, AND SAVES THE UNPACKED STATEMENT * PTM06140 1265 | * IN THE INPUT BUFFER. * PTM06145 1266 | * *IN PASS 1, * PTM06150 1267 | * *PHASE 12 BUILDS THE PROGRAM HEADER * PTM06155 1268 | * RECORD IN THE DSF BUFFER. * PTM06160 1269 | * *SEVERAL COUNTERS ARE REINITIALIZED IN * PTM06165 1270 | * ASCOM AND THE BUFFER POINTERS ARE RESET * PTM06170 1271 | * FOR DSF OUTPUT. * PTM06175 1272 | * *PHASE 10 IS FETCHED INTO CORE AND A * PTM06180 1273 | * CHECK IS MADE ON THE PASS MODE. * PTM06185 1274 | * *IF THE ASSEMBLY IS IN TWO-PASS MODE, * PTM06190 1275 | * PHASE 1 IS FETCHED AND CONTROL IS * PTM06195 1276 | * PASSED TO IT. * PTM06200 1277 | * *IF THE ASSEMBLY IS IN ONE-PASS MODE, THE* PTM06205 1278 | * END STATEMENT IS SAVED IN THE * PTM06210 1279 | * INTERMEDIATE I/O BUFFER AND THE BUFFER * PTM06215 1280 | * IS WRITTEN TO THE DISK. PHASE 11 IS * PTM06220 1281 | * FETCHED INTO CORE AND THE FIRST SECTOR * PTM06225 1282 | * OF INTERMEDIATE I/O IS READ INTO THE * PTM06230 1283 | * FIRST DISK BUFFER (BUFI). * PTM06235 1284 | * *A BRANCH IS THEN MADE TO PHASE 11 TO * PTM06240 1285 | * TRANSFER THE FIRST STATEMENT FROM THE * PTM06245 1286 | * INTERMEDIATE I/O BUFFER TO THE SOURCE * PTM06250 1287 | * INPUT BUFFER. * PTM06255 1288 | * *PHASE 1 IS THEN FETCHED ONTO CORE AND * PTM06260 1289 | * CONTROL IS TRANSFERRED TO IT. * PTM06265 1290 | * *IN PASS 2, * PTM06270 1291 | * *PHASE 12 BRANCHES TO DTHDR TO BUILD THE * PTM06275 1292 | * END-OF-PROGRAM DATA HEADER. * PTM06280 1293 | * *IF THE SOURCE PROGRAM HAS AN ENTRY * PTM06285 1294 | * POINT, AND EXECUTION ADDRESS OF ZERO IS * PTM06290 1295 | * SAVED IN ASCOM AND IN THE SOURCE * PTM06295 1296 | * STATEMENT BUFFER. IF THE SOURCE PROGRAM* PTM06300 1297 | * DOES NOT HAVE AN ENTRY POINT, A BRANCH * PTM06305 1298 | * IS MADE TO THE SCAN ROUTINE TO EVALUATE * PTM06310 1299 | * THE EXCUTION ADDRESS, I.E., THE END * PTM06315 1300 | * STATEMENT OPERAND. THIS ADDRESS IS * PTM06320 1301 | * SAVED IN ASCOM AND IN THE SOURCE * PTM06325 1302 | * STATEMENT BUFFER. * PTM06330 1303 | * *THE LAST SECTOR OF DSF OUTPUT IS WRITTEN* PTM06335 1304 | * TO THE DISK AND THE DISK BLOCK COUNT OF * PTM06340 1305 | * THE PROGRAM IS SAVED IN ASCOM. * PTM06345 1306 | * *PHASE 12 THEN FETCHES PHASE 3 TRANSFERS * PTM06350 1307 | * CONTROL TO IT. * PTM06355 1308 | * * PTM06360 1309 | *ENTRY POINTS- * PTM06365 1310 | * * SC010 - ENTRY FROM PHASE 9 * PTM06370 1311 | * * PTM06375 1312 | *INPUT-N/A * PTM06380 1313 | * * PTM06385 1314 | *OUTPUT * PTM06390 1315 | * * THE CONSTRUCTED OP CODE FOR THE END * PTM06395 1316 | * STATEMENT * PTM06400 1317 | * * PTM06405 1318 | *EXTERNAL RERERENCES- * PTM06410 1319 | * *SUBROUTINES- * PTM06415 1320 | * * B4HEX * PTM06420 1321 | * * DISK1 * PTM06425 1322 | * * DTHDR * PTM06430 1323 | * * ERFLG * PTM06435 1324 | * * GETS5 * PTM06440 1325 | * * GETS6 * PTM06445 1326 | * * GETS7 * PTM06450 1327 | * * GETS8 * PTM06455 1328 | * * GTS8A * PTM06460 1329 | * * LDXRS * PTM06465 1330 | * * P9MVE * PTM06470 1331 | * * SCAN * PTM06475 1332 | * * WRDFO * PTM06480 1333 | * *DCOM/COMMA- * PTM06485 1334 | * $IBSY * PTM06490 1335 | * $PHSE * PTM06495 1336 | * #HDNG * PTM06500 1337 | * * PTM06505 1338 | *EXITS- * PTM06510 1339 | * *NORMAL - MASTER OVERLAY CONTROL SUBROUTINE * PTM06515 1340 | * *ERROR - ERFLG SUBROUTINE * PTM06520 1341 | * * PTM06525 1342 | *TABLES/WORK AREAS- N/A * PTM06530 1343 | * * PTM06535 1344 | *ATTRIBUTES-REUSABLE * PTM06540 1345 | * * PTM06545 1346 | *NOTES-N/A * PTM06550 1347 | * * PTM06555 1348 | *************************************************** PTM06560 1349 | * PTM06565 0280 1350 | ORG OVLAY PTM06570 0280 01D4 1351 | DC SC180-SC000 WD CNT OF PHASE 12 PTM06575 0281 FF2D 1352 | DC -/D3 SLET ID OF PH 12 2-8 PTM06580 0282 01A0 1353 | PHS12 DC SC170-PHS12 ADDR OF ID TABLE PTM06585 0283 0006 1354 | DC 6 NO. OF ID'S TO BE FILLED2-8 PTM06590 0282 1355 | ORG *-2 PTM06595 0282 4C00 04C1 1356 | SC000 BSC L GETS5 FETCH PHASE 5 2-8 PTM06600 0284 4C00 04C3 1357 | BSC L GETS6 FETCH PHASE 6 2-8 PTM06605 0286 4C00 04C5 1358 | BSC L GETS7 FETCH PHASE 7 2-8 PTM06610 0288 4C00 04CA 1359 | BSC L GETS8 FETCH PHASE 8 2-8 PTM06615 028A 4C00 04CC 1360 | BSC L GTS8A FETCH PHASE 8A 2-8 PTM06620 028C 4C00 0292 1361 | BSC L SC010 BR TO PHASE 12 (IN CORE) PTM06625 028E 4C00 04C7 1362 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM06630 1363 | * * PTM06635 0290 0290 1364 | PH2AD DC OVLAY+16 PH 2 XEQ ADDR 2-8 PTM06640 0291 00D3 1365 | DC /D3 SLET ID OF PH 12 2-8 PTM06645 0292 C0FE 1366 | SC010 LD *-2 PTM06650 0293 D400 0078 1367 | STO L $PHSE SET PHASE ID IN RES MON PTM06655 0295 C3F4 1368 | LD 3 PASS-X3 DETM ASM PASS PTM06660 0296 4C20 037E 1369 | BSC L SC100,Z BR IF SECOND PTM06665 1370 | * * PTM06670 0298 D3FD 1371 | STO 3 ERCNT-X3 SWTCHS PTM06675 0299 D3FA 1372 | STO 3 ADCOW-X3 TO PTM06680 029A D32C 1373 | STO 3 OPCNT-X3 ZERO PTM06685 029B D336 1374 | STO 3 MCOM5-X3 2-8 PTM06690 029C D337 1375 | STO 3 MCOM6-X3 REST. GEN. LBL. CNTR 2/11 PTM06691 029D C0F2 1376 | LD PH2AD PTM06695 029E D400 04A7 1377 | STO L OPVND RESET GET 2 ADDR IN PH 92-8 PTM06700 02A0 C301 1378 | LD 3 OFCNT-X3 PTM06705 02A1 4C18 02AB 1379 | BSC L SC015,+- PTM06710 02A3 C400 036B 1380 | LD L WRTBF PTM06715 02A5 D3E7 1381 | STO 3 OFLOW-X3 PTM06720 02A6 CBE7 1382 | LDD 3 OFLOW-X3 PTM06725 02A7 435C 1383 | BSI 3 DISK1-X3 PTM06730 02A8 C400 036A 1384 | LD L SC950 2-8 PTM06735 02AA D3E7 1385 | STO 3 OFLOW-X3 PTM06740 02AB 6680 0231 1386 | SC015 LDX I2 STADR PTM06745 02AD 6133 1387 | LDX 1 51 PTM06750 02AE 1010 1388 | SLA 16 PTM06755 02AF D200 1389 | SC020 STO 2 0 CLEAR FIRST 51 PTM06760 02B0 7201 1390 | MDX 2 1 WORDS OF HEADER PTM06765 02B1 71FF 1391 | MDX 1 -1 TO ZERO PTM06770 02B2 70FC 1392 | MDX SC020 PTM06775 1393 | * * PTM06780 02B3 72D6 1394 | MDX 2 -42 SET XR2 TO BFR+9 PTM06785 02B4 C31E 1395 | LD 3 HTYPE-X3 FETCH PROG TYPE (W/PREC), PTM06790 02B5 D2F9 1396 | STO 2 -7 HEADER LENGTH, AND PTM06795 02B6 C3EA 1397 | LD 3 FILE-X3 NUMBER OF FILES DEFINED PTM06800 02B7 D2FF 1398 | STO 2 -1 FROM ASM COMMA AND PTM06805 1399 | * * PTM06810 02B8 C309 1400 | LD 3 ILSSW-X3 PTM06815 02B9 EB08 1401 | OR 3 ISSSW-X3 PTM06820 02BA 4C18 02D7 1402 | BSC L SC040,+- BR IF NOT ISS OR ILS PTM06825 02BC 9309 1403 | S 3 ILSSW-X3 PTM06830 02BD 4C20 02C2 1404 | BSC L SC030,Z BR IF ISS PTM06835 1405 | * * PTM06840 02BF C313 1406 | LD 3 ISSNO-X3 INTRPT,LEVEL NUMBER PTM06845 02C0 D203 1407 | STO 2 +3 TO WRD 13 OF HEADER REC PTM06850 02C1 7015 1408 | MDX SC040 BR TO FINISH THE HEADER PTM06855 1409 | * * PTM06860 02C2 C313 1410 | SC030 LD 3 ISSNO-X3 MOVE ISS NO. PTM06865 02C3 D204 1411 | STO 2 +4 AND NO. LEVELS PTM06870 02C4 8400 037D 1412 | A L H0032 PTM06875 02C6 D203 1413 | STO 2 +3 ISS NO. + 50 TO WRD. 13 PTM06880 02C7 C30F 1414 | LD 3 NLVLS-X3 REQUIRED TO WORDS PTM06885 02C8 D205 1415 | STO 2 +5 14-15 OF HEADER RECORD PTM06890 02C9 D001 1416 | STO *+1 PTM06895 02CA 6500 0000 1417 | LDX L1 *-* NO. OF LEVELS TO XR1 PTM06900 1418 | * * PTM06905 02CC C305 1419 | LD 3 INTL1-X3 MOVE INT LEV 1 PTM06910 02CD D206 1420 | STO 2 +6 TO WRD 16 PTM06915 02CE 7401 0226 1421 | MDX L HDLTH,+1 INCRE HEADER LENGTH PTM06920 02D0 71FF 1422 | MDX 1 -1 IS LEV 2 REQUIRED PTM06925 02D1 7001 1423 | MDX *+1 YES, SKIP PTM06930 02D2 7004 1424 | MDX SC040 NO, BR TO CONTINUE PTM06935 02D3 C306 1425 | LD 3 INTL1+1-X3 MOVE INT LEV 2 PTM06940 02D4 D207 1426 | STO 2 +7 TO WRD 17 PTM06945 02D5 7401 0226 1427 | MDX L HDLTH,+1 INCRE HEADER LENGTH PTM06950 1428 | * * PTM06955 02D7 C3F5 1429 | SC040 LD 3 SCOMN-X3 MOVE THE SIZE OF PTM06960 02D8 D2FB 1430 | STO 2 -5 COMMON TO WRD 5 PTM06965 02D9 C30D 1431 | LD 3 HDLTH-X3 PTM06970 02DA D2FC 1432 | STO 2 -4 SET UP HDR LENGTH IN HDR PTM06975 02DB 6A0B 1433 | STX 2 SC043+1 SAVE XR2 PTM06980 02DC C307 1434 | LD 3 ENTSW-X3 PTM06985 02DD EB09 1435 | OR 3 ILSSW-X3 PTM06990 02DE EB08 1436 | OR 3 ISSSW-X3 CHECK FOR AN ENTRY POINT PTM06995 02DF 4C20 02E9 1437 | BSC L SC043+3,Z BR IF ENTRY POINT PRESENT PTM07000 1438 | * * PTM07005 02E1 4346 1439 | BSI 3 LDXRS-X3 GO RELOAD XR1 PTM07010 02E2 7123 1440 | MDX 1 +35 POINT TO CC 35 PTM07015 02E3 4400 04E1 1441 | BSI L SCAN BR TO SCAN XEQ ADDR 2-8 PTM07020 02E5 C325 1442 | LD 3 VALUE-X3 PTM07025 02E6 6600 0000 1443 | SC043 LDX L2 *-* RESTO XR2 PTM07030 02E8 D202 1444 | STO 2 +2 XEQ ADDR TO HDR PTM07035 1445 | * * PTM07040 02E9 C318 1446 | LD 3 STADR-X3 PTM07045 02EA 830D 1447 | A 3 HDLTH-X3 ADJUST THE OUTPUT PTM07050 02EB 807D 1448 | A NINE BFR POINTER AND PTM07055 02EC D312 1449 | STO 3 DHPTR-X3 SAVE IT IN COMMA PTM07060 1450 | * * PTM07065 02ED 807A 1451 | A TWO PTM07070 02EE D314 1452 | STO 3 DFXR1-X3 SET BFR POINTERS PTM07075 02EF 9079 1453 | S NINE IN COMMA FOR PTM07080 02F0 D315 1454 | STO 3 DFXR2-X3 DSF OUTPUT PTM07085 1455 | * * PTM07090 02F1 6208 1456 | LDX 2 8 SET TO CLEAR 8 SWTCHS PTM07095 02F2 10A0 1457 | SLT 32 PTM07100 02F3 DE00 021C 1458 | SC045 STD L2 INTL1-2 CLEAR TO ZERO (REINITIAL) PTM07105 02F5 72FE 1459 | MDX 2 -2 THE HDR INFO SWTCHS IN PTM07110 02F6 70FC 1460 | MDX SC045 COMMA. PTM07115 02F7 C078 1461 | LD H2000 PTM07120 02F8 D30E 1462 | STO 3 ENTCT-X3 REINITIAL ENT CNT PTM07125 1463 | * * PTM07130 02F9 CC00 042C 1464 | LDD L SC170+10 WD CNT & SCTR ADDR OF PTM07135 02FB DC80 0362 1465 | STD I SC900 PHASE 10 TO BFR HDR 2-8 PTM07140 02FD C064 1466 | LD SC900 PH 10 ADDR IN ACC 2-8 PTM07145 02FE 18D0 1467 | RTE 16 IN Q AND BFR HEADER PTM07150 02FF C06A 1468 | LD SC950 SET UP READ FUNCTION 2-8 PTM07155 0300 435C 1469 | BSI 3 DISK1-X3 GO TO LOAD PHASE 10 PTM07160 1470 | * * PTM07165 0301 C302 1471 | LD 3 TLIST-X3 PTM07170 0302 D3F2 1472 | STO 3 LSTOP-X3 RESTO ORIG LIST CONDITION PTM07175 0303 C310 1473 | LD 3 ADJSA-X3 PTM07180 0304 D480 0232 1474 | STO I DSADR ADJUST WD SA FOR DSF BFR PTM07185 1475 | * * PTM07190 0306 C3F3 1476 | LD 3 PSMDE-X3 CHECK PASS MODE PTM07195 0307 4C20 032E 1477 | BSC L SC050,Z BR IF TWO PTM07200 0309 4346 1478 | BSI 3 LDXRS-X3 GO TO RESTO XR1 + 3 PTM07205 1479 | * * PTM07210 030A 4400 098C 1480 | BSI L INT1 SAV END STMNT IN INT. BFR2-8PTM07215 1481 | * * PTM07220 030C C056 1482 | LD SC910 SET UP FUNC & I/O BFR 2-8 PTM07225 030D 18D0 1483 | RTE 16 PTM07230 030E C05C 1484 | LD WRTBF PTM07235 1485 | * * PTM07240 030F 435C 1486 | BSI 3 DISK1-X3 GO TO WRT CURR BFR TO DISK PTM07245 1487 | * * PTM07250 0310 CC00 0430 1488 | LDD L SC170+14 WD CNT & SCTR ADDR OF PTM07255 0312 DC80 0364 1489 | STD I SC920 PHASE 11 TO BFR HDR 2-8 PTM07260 0314 C04F 1490 | LD SC920 I/O ADDR 2-8 PTM07265 0315 18D0 1491 | RTE 16 SET UP READ FUNC PTM07270 0316 C053 1492 | LD SC950 2-8 PTM07275 0317 435C 1493 | BSI 3 DISK1-X3 GO TO LOAD PHASE 11 PTM07280 0318 C049 1494 | LD SC900 FETCH ADDR OF PREFIX ADDR2-8PTM07285 0319 904D 1495 | S ONE PTM07290 031A D005 1496 | STO SC047+1 PTM07295 1497 | * * PTM07300 031B C047 1498 | LD SC910 I/O BFR ADDR TO ACC 2-8 PTM07305 031C 804A 1499 | A ONE PTM07310 031D D009 1500 | STO SC048+1 PTM07315 031E 8048 1501 | A ONE PTM07320 031F D400 0000 1502 | SC047 STO L *-* PTM07325 0321 C480 0327 1503 | LD I SC048+1 SAVE END SCTR ADDR 2-8 PTM07330 0323 D400 0255 1504 | STO L MCGEN *INTERM I/P 2-8 PTM07335 0325 C310 1505 | LD 3 ADJSA-X3 ADDR TO INTERM PTM07340 0326 D400 0000 1506 | SC048 STO L *-* PTM07345 1507 | * * PTM07350 0328 C03A 1508 | LD SC910 I/O BFR ADDR TO ACC 2-8 PTM07355 0329 18D0 1509 | RTE 16 TO Q PTM07360 032A C03F 1510 | LD SC950 READ FUNC CODE 2-8 PTM07365 032B 435C 1511 | BSI 3 DISK1-X3 GO TO RD FIRST SCTR PTM07370 1512 | * * PTM07375 032C 4400 098D 1513 | BSI L INT2 1ST STMNT TO SOURCE BFR 2-8 PTM07380 1514 | * * PTM07385 032E CC00 0424 1515 | SC050 LDD L SC170+2 WD CNT & SCTR ADDR OF PH. 1 PTM07390 0330 DB67 1516 | STD 3 OVLAY-X3 PTM07395 0331 C03D 1517 | LD OVRAD SET UP OVERLAY ADDR PTM07400 0332 D35A 1518 | STO 3 P0140+1-X3 IN PHASE 0 PTM07405 0333 6320 1519 | LDX 3 +32 LOOP CNTR PTM07410 0334 6680 0365 1520 | LDX I2 SC930 ADDR OF HDNG BFR 2-8 PTM07415 0336 C83D 1521 | LDD PCKBL PTM07420 0337 DA01 1522 | SC051 STD 2 +1 CLEAR THE HDNG BFR PTM07425 0338 7202 1523 | MDX 2 +2 TO BLANKS. PTM07430 0339 73FE 1524 | MDX 3 -2 DECRE LOOP CNTR PTM07435 033A 70FC 1525 | MDX SC051 LOOP TIL COMPLETE PTM07440 033B D201 1526 | STO 2 +1 BLANK LAST WORD OF BFR PTM07445 1527 | * * PTM07450 033C C400 020A 1528 | LD L LDKOP CHECK LIST DECK SWTCH PTM07455 033E 4C18 034B 1529 | BSC L SC060,+- BR IF OFF PTM07460 0340 6780 041C 1530 | LDX I3 SC940 FETCH ADDR OF RDCRD SUBR2-8 PTM07465 0342 7342 1531 | MDX 3 +66 PT TO XCH BFR CODE 2-8 PTM07470 0343 C832 1532 | LDD TSTIB MODIFY CODING TO PTM07475 0344 DB00 1533 | STD 3 0 LOOP ON $IBSY UNTIL PTM07480 0345 C832 1534 | LDD TSTIB+2 NEXT RCRD IS IN CORE. PTM07485 0346 DB02 1535 | STD 3 +2 PTM07490 1536 | * * PTM07495 0347 C400 0238 1537 | LD L RDBFR PREVENT DOUBLE BUFFERING PTM07500 0349 D400 0239 1538 | STO L RDBFR+1 PTM07505 1539 | * * PTM07510 034B 4400 025F 1540 | SC060 BSI L LDXRS RESTO XR1 & XR3 PTM07515 034D C017 1541 | LD SC930 2-8 PTM07520 034E 9018 1542 | S ONE INITIAL IOAR ADDR FOR PTM07525 034F D002 1543 | STO *+2 DISK READ OF PAGE NUMBER PTM07530 0350 C821 1544 | LDD PGHDR PTM07535 0351 DC00 0000 1545 | STD L *-* SET TO READ #HDNG PTM07540 0352 1546 | SC065 EQU *-1 2-8 PTM07545 0353 C0FE 1547 | LD *-2 PTM07550 0354 18D0 1548 | RTE 16 PTM07555 0355 C014 1549 | LD SC950 2-8 PTM07560 0356 435C 1550 | BSI 3 DISK1-X3 BR TO READ THE PAGE HDR PTM07565 1551 | * PTM07570 0357 C00E 1552 | LD HDCNT SET PAGE HEADER PTM07575 0358 D480 0352 1553 | STO I SC065 SET DK WRITE WD CNT 2-8 PTM07580 1554 | * * PTM07585 035A C0F7 1555 | LD SC065 SET TO WRITE HDNG 2-8 PTM07590 035B 18D0 1556 | RTE 16 2-8 PTM07595 035C C00E 1557 | LD WRTBF 2-8 PTM07600 035D 435C 1558 | BSI 3 DISK1-X3 INITIALIZE DK HDNG 2-8 PTM07605 035E 7401 020D 1559 | MDX L PASS,+1 SET TO PASS 2 PTM07610 0360 4C00 0270 1560 | BSC L P0130 LOAD AND TRANS TO PHASE 1 PTM07615 1561 | * * PTM07620 1562 | * FOLLOWING IS A TABLE OF CONSTANTS * PTM07625 1563 | * USED BY PHASE 12 IN BOTH PASSES * PTM07630 1564 | * * PTM07635 0362 0924 1565 | SC900 DC P10AA PHASE 10 I/O AREA ADDR 2-8 PTM07640 0363 0AD2 1566 | SC910 DC BUFI ADDR DISK BFR 1 2-8 PTM07645 0364 098A 1567 | SC920 DC P11AA PHASE 11 I/O AREA ADDR 2-8 PTM07650 0365 0AA7 1568 | SC930 DC HDGBF PAGE HEADING BFR ADDR 2-8 PTM07655 0366 0021 1569 | HDCNT DC 33 PAGE HDR WORD CNT PTM07660 0367 0001 1570 | ONE DC 1 CONSTANT 1 PTM07665 0368 0002 1571 | TWO DC 2 CONSTANT 2 PTM07670 0369 0009 1572 | NINE DC 9 CONSTANT 9 PTM07675 036A 7000 1573 | SC950 DC /7000 RD FUNC CODE 2-8 PTM07680 036B 7001 1574 | WRTBF DC /7001 WRT FUNC CODE PTM07685 036C 00E2 1575 | SYNER DC .S RT JUSTIFIED EBC S PTM07690 036D 00D9 1576 | RLCER DC .R RT JUSTIFIED EBC R PTM07695 036E 0040 1577 | SC955 DC /0040 EBC BLANK 2-8 PTM07700 036F 0282 1578 | OVRAD DC OVLAY+2 PTM07705 0370 2000 1579 | H2000 DC /2000 INITIAL SETTING OF ENTCT PTM07710 0371 045E 1580 | ADDRP DC STRT9+1 IOAR ADDR FOR PNCH CONV PTM07715 0372 1581 | BSS E 0 PTM07720 0372 000A 1582 | PGHDR DC 10 WD CNT AND PTM07725 0373 0007 1583 | DC #HDNG SCTR ADDR OF PAGE HDNG. PTM07730 0374 4040 1584 | PCKBL DC /4040 TWO WORDS OF PTM07735 0375 4040 1585 | DC /4040 PCKED EBC BLNKS. PTM07740 0376 7400 0013 1586 | TSTIB MDX L $IBSY,0 THIS CHECK OF $IBSY IS PTM07745 0378 70FD 1587 | MDX *-3 TRANSFERED TO PH. 9 IF PTM07750 0379 1000 1588 | NOP A LIST DECK IS REQ. PTM07755 037A 0001 1589 | SCONE DC 1 CONSTANT ONE PTM07760 037B 0014 1590 | TWNTY DC 20 CONSTANT 20 PTM07765 037C 0013 1591 | H0013 DC /0013 CONSTANT 19 PTM07770 037D 0032 1592 | H0032 DC /32 CONSTANT 50 FOR ISS NO. PTM07775 1593 | * * PTM07780 1594 | * * PTM07785 037E C3F4 1595 | SC100 LD 3 PASS-X3 2-8 PTM07790 037F 4C28 0410 1596 | BSC L SC165,+Z BR-CROSS REFERENCE PASS 2-8 PTM07795 0381 C3FA 1597 | LD 3 ADCOW-X3 2-8 PTM07800 0382 4804 1598 | BSC E SET THE LOCATION PTM07805 0383 80E3 1599 | A ONE ASSIGN. CNTR TO PTM07810 0384 D3FA 1600 | STO 3 ADCOW-X3 NEXT EVEN ADDR PTM07815 0385 C400 000E 1601 | LD L $CORE 2-9 PTM07820 0387 9400 0420 1602 | S L SC965 2-9 PTM07825 0389 4C18 038E 1603 | BSC L SC105,+- BR-4K CORE 2-9 PTM07830 038B C3FA 1604 | LD 3 ADCOW-X3 SAVE ADCOW FOR XREF 2-9 PTM07835 038C D400 155A 1605 | STO L XADCO 2-9 PTM07840 038E 4346 1606 | SC105 BSI 3 LDXRS-X3 RESTORE XR1 AND XR3 2-9 PTM07845 038F 7101 1607 | MDX 1 +1 POINT TO CC1 PTM07850 0390 4400 06FA 1608 | BSI L B4HEX CONVERT LOC 2-8 PTM07855 1609 | * XR1 POINTS TO CC 5 * PTM07860 0392 4400 0927 1610 | BSI L DTHDR WRITE THE LAST 2-8 PTM07865 0394 C312 1611 | LD 3 DHPTR-X3 DATA HEADER AND PTM07870 0395 D314 1612 | STO 3 DFXR1-X3 *FORCE A ZERO AS WD CNT PTM07875 0396 1010 1613 | SLA 16 CLEAR THE REDUNDANT 2-2 PTM07880 0397 D31D 1614 | STO 3 RDTHD-X3 *HEADER SWITCH 2-2 PTM07885 0398 4400 0927 1615 | SC106 BSI L DTHDR DATA HEADER 2-8 PTM07890 1616 | * * PTM07895 039A C307 1617 | LD 3 ENTSW-X3 PTM07900 039B EB09 1618 | OR 3 ILSSW-X3 PTM07905 039C EB08 1619 | OR 3 ISSSW-X3 DOES PROG HAVE AN ENT PT PTM07910 039D 4C20 03BA 1620 | BSC L SC140,Z BR IF YES PTM07915 039F 711E 1621 | MDX 1 +30 POINT TO CC 35 PTM07920 03A0 C100 1622 | LD 1 0 CHECK THE OPERAND PTM07925 03A1 90CC 1623 | S SC955 FIELD FOR AN XEQ ADDR 2-8 PTM07930 03A2 4C20 03A6 1624 | BSC L SC110,Z GO TO CONT IF ADDR PRESENT PTM07935 1625 | * * PTM07940 03A4 C0C7 1626 | LD SYNER INDICATE SYNTAX ERROR PTM07945 03A5 700A 1627 | MDX SC120 GO TO SET XEQ ADDR TO ZERO PTM07950 1628 | * * PTM07955 03A6 4400 04E1 1629 | SC110 BSI L SCAN GO TO FETCH XEQ ADDR 2-8 PTM07960 03A8 4400 025F 1630 | BSI L LDXRS RESET XR3 PTM07965 1631 | * * PTM07970 03AA C32B 1632 | LD 3 RLMDE-X3 PTM07975 03AB 188E 1633 | SRT 14 PTM07980 03AC F327 1634 | EOR 3 RELSW-X3 CHECK THAT MODES AGREE PTM07985 03AD 4C18 03B4 1635 | BSC L SC130,+- BR IF YES PTM07990 1636 | * * PTM07995 03AF C0BD 1637 | LD RLCER SET RELOC ER FLAG PTM08000 03B0 4400 0701 1638 | SC120 BSI L ERFLG BR TO ERROR SUBR 2-8 PTM08005 1639 | * * PTM08010 03B2 1010 1640 | SLA 16 PTM08015 03B3 7001 1641 | MDX SC130+1 GO TO SET XEQ ADDR TO ZERO PTM08020 1642 | * * PTM08025 03B4 C325 1643 | SC130 LD 3 VALUE-X3 PTM08030 03B5 D3E3 1644 | STO 3 RELEP-X3 SAVE XEQ ADDR PTM08035 03B6 4346 1645 | BSI 3 LDXRS-X3 RESET XR1 2-6 PTM08040 03B7 7109 1646 | MDX 1 9 INCRE BFR PT BY 9 PTM08045 03B8 4400 06FA 1647 | BSI L B4HEX GO TO CVRT BINARY TO HEX2-8 PTM08050 1648 | * * PTM08055 03BA C3F2 1649 | SC140 LD 3 LSTOP-X3 CHECK LIST OP SWTCH PTM08060 03BB 4C18 03D1 1650 | BSC L SC150,+- BR IF OFF PTM08065 03BD 6580 0238 1651 | LDX I1 RDBFR RESTORE XR1 2-8 PTM08070 03BF C121 1652 | LD 1 +33 TEST FOR WARNING FLAG 2-8 PTM08075 03C0 F0AD 1653 | EOR SC955 2-8 PTM08080 03C1 4C18 03CF 1654 | BSC L SC145,+- BR-NO WARNING FLAG 2-8 PTM08085 03C3 C0AA 1655 | LD SC955 RESET COL 33 TO BLANK 2-8 PTM08090 03C4 D121 1656 | STO 1 +33 2-8 PTM08095 03C5 C007 1657 | LD SC146 SET RETURN ADDR 2-8 PTM08100 03C6 D400 0701 1658 | STO L P9202 2-8 PTM08105 03C8 7439 070E 1659 | MDX L ERADD,MCOM5-ERCNT PT TO WARN CNT 2-8 PTM08110 03CA C003 1660 | LD SC147 2-8 PTM08115 03CB 4C00 0706 1661 | BSC L FLGCO JOIN ERFLG SUBR 2-8 PTM08120 03CD 03CF 1662 | SC146 DC SC145 RETURN ADDR 2-8 PTM08125 03CE 00D8 1663 | SC147 DC .Q EBCDIC Q 2-8 PTM08130 03CF 4400 0802 1664 | SC145 BSI L P9MVE GO TO PRINT RCD 2-8 PTM08135 1665 | * * PTM08140 03D1 C862 1666 | SC150 LDD SC170+18 PTM08145 03D2 DC00 045E 1667 | STD L STRT9+1 SET UP DISK IOAR HDR INFO PTM08150 03D4 C09C 1668 | LD ADDRP PTM08155 03D5 18D0 1669 | RTE 16 PTM08160 03D6 C093 1670 | LD SC950 2-8 PTM08165 03D7 435C 1671 | BSI 3 DISK1-X3 PTM08170 03D8 4346 1672 | BSI 3 LDXRS-X3 RESTORE XR1 AND XR3 2-8 PTM08175 03D9 C480 0232 1673 | LD I DSADR SET XREF OVERFLOW 2-8 PTM08180 03DB D33C 1674 | STO 3 MCGEN-X3 *SCTR ADDR 2-8 PTM08185 03DC C3F1 1675 | LD 3 LDKOP-X3 CHK LIST DECK OP SWTCH PTM08190 03DD 4C18 03E1 1676 | BSC L SC160,+- BR IF OFF PTM08195 1677 | * * PTM08200 03DF 4400 0471 1678 | BSI L STRT9+20 BR TO PUNCH CONVERT 2-8 PTM08205 1679 | * * PTM08210 1680 | * * PTM08215 03E1 6C00 0236 1681 | SC160 STX L0 RDTHD IND NO DATA HDR NEEDED PTM08220 03E3 4400 0949 1682 | BSI L WRDFO WR LAST SCTR TO DISK 2-8 PTM08225 03E5 C3FB 1683 | LD 3 MVCNT-X3 HAS ALL BEEN WRITEN PTM08230 03E6 4410 0949 1684 | BSI L WRDFO,- NO, BRANCH TO WRITE END 212 PTM08235 1685 | * 2-9 PTM08240 03E8 C400 000E 1686 | LD L $CORE 2-9 PTM08245 03EA 9035 1687 | S SC965 2-9 PTM08250 03EB 4C18 03EF 1688 | BSC L SC161,+- BR-4K CORE 2-9 PTM08255 03ED C033 1689 | LD SC970 SET ADDR AT SC162 2-9 PTM08260 03EE D005 1690 | STO SC162 *TO XADJS 2-9 PTM08265 03EF C480 0232 1691 | SC161 LD I DSADR 2-9 PTM08270 03F1 D400 0255 1692 | STO L MCGEN TEMP HOLD FOR XREF 2-10 PTM08275 03F3 9400 0229 1693 | S L ADJSA THE SCTR SIZE OF PGM 2-9 PTM08280 03F4 1694 | SC162 EQU *-1 2-9 PTM08285 03F5 9084 1695 | S SCONE DECRE BY ONE PTM08290 03F6 1004 1696 | SLA 4 MULT BY 16 (DB CNT) PTM08295 03F7 D3E4 1697 | STO 3 WSCNT-X3 SAVE IN ASM COMMA PTM08300 03F8 C314 1698 | LD 3 DFXR1-X3 PTM08305 03F9 9318 1699 | S 3 STADR-X3 COMPUTE WD CNT OF PTM08310 03FA 8081 1700 | A H0013 REMAINING PORTION. PTM08315 03FB 18D0 1701 | RTE 16 MOVE DIVIDEND TO EXT PTM08320 03FC 1010 1702 | SLA 16 CLEAR ACC PTM08325 03FD AC00 037B 1703 | D L TWNTY PTM08330 03FF 83E4 1704 | A 3 WSCNT-X3 PTM08335 0400 D3E4 1705 | STO 3 WSCNT-X3 SAVE DB CNT IN ASCOM PTM08340 1706 | * * PTM08345 0401 C400 036F 1707 | LD L OVRAD PTM08350 0403 D35A 1708 | STO 3 P0140+1-X3 RESET OVLAY XEQ ADDR PTM08355 0404 C823 1709 | LDD SC170+6 WD CNT & SCTR ADDR OF PH. 3 PTM08360 0405 DC80 041C 1710 | STD I SC940 2-8 PTM08365 0407 C014 1711 | LD SC940 2-8 PTM08370 0408 18D0 1712 | RTE 16 PTM08375 0409 C400 036A 1713 | LD L SC950 2-8 PTM08380 040B 435C 1714 | BSI 3 DISK1-X3 PTM08385 040C 7402 041C 1715 | MDX L SC940,+2 2-8 PTM08390 040E 4C80 041C 1716 | BSC I SC940 PTM08395 0410 6580 0238 1717 | SC165 LDX I1 RDBFR SET I/P PT FOR SCAN 2-8 PTM08400 0412 7123 1718 | MDX 1 +35 2-8 PTM08405 0413 4400 04E1 1719 | BSI L SCAN PLACE SYMB TBL ENTRY 2-8 PTM08410 0415 C822 1720 | LDD SC175+2 GET WD CNT,SCTR ADDR 2-8 PTM08415 0416 DC00 0ECA 1721 | STD L G4000-2 SET DISK READ HEADER 2-8 PTM08420 0418 C805 1722 | LDD SC960 2-8 PTM08425 0419 435C 1723 | BSI 3 DISK1-X3 LD XREF PART 3 TO CORE 2-8 PTM08430 041A 4C00 0F82 1724 | BSC L XR100 XEQ XREF PART 3 2-8 PTM08435 1725 | * PTM08440 1726 | * CONSTANTS PTM08445 1727 | * PTM08450 041C 07A8 1728 | SC940 DC RDCRD ADDR READ RCD SUBR 2-8 PTM08455 041E 1729 | BSS E 0 PTM08460 041E 7000 1730 | SC960 DC /7000 DK READ FUNC CODE 2-8 PTM08465 041F 0ECA 1731 | DC G4000-2 I/O AREA ADDR 2-8 PTM08470 0420 1000 1732 | SC965 DC /1000 4K CORE CHECK CONSTANT 2-9 PTM08475 0421 1555 1733 | SC970 DC XADJS ALTERNATE ADJSA 2-9 PTM08480 1734 | * PTM08485 1735 | * PHASE 12 SLET TABLE PTM08490 1736 | * PTM08495 0422 00D5 1737 | SC170 DC /D5 SLET ID OF PH 1 2-8 PTM08500 0423 1738 | BSS 3 PTM08505 0426 00D8 1739 | DC /D8 SLET ID OF PH 3 2-8 PTM08510 0427 1740 | BSS 3 PTM08515 042A 00D1 1741 | DC /D1 SLET ID OF PH 10 2-8 PTM08520 042B 1742 | BSS 3 PTM08525 042E 00D2 1743 | DC /D2 SLET ID OF PH 11 2-8 PTM08530 042F 1744 | BSS 3 PTM08535 0432 00E3 1745 | DC /E3 SLET ID OF PNCH CNVRT 2-8 PTM08540 0433 1746 | BSS 2 PTM08545 0435 0000 1747 | DC 0 END PRG WITH A CONSTANT PTM08550 0436 00F6 1748 | SC175 DC /F6 SLET ID OF XREF PART 3 2-8 PTM08555 0437 1749 | BSS 3 2-8 PTM08560 043A 1750 | BSS /0456-* PATCH 2/11 PTM08565 0456 0000 1751 | SC180 DC 0 PTM08570 *SBRKSLS D4 1752 | ASM ASSEMBLY ERROR PHASE V2M08 PTM08575 *** ASM ERROR MESSAGES *** 1754 | *************************************************** PTM08585 1755 | * * PTM08590 1756 | *STATUS - VERSION 2, MODIFICATION 11 * PTM08595 1757 | * * PTM08600 1758 | *FUNCTION/OPERATION- * PTM08605 1759 | * *ERMSG IS CALLED BY THE GETER SUBROUTINE * PTM08610 1760 | * WITHIN PHASE 9 WHEN AN ERROR OCCURS DURING * PTM08615 1761 | * THE ASSEMBLY PROCESS. * PTM08620 1762 | * *IT IS LOADED INTO THE FIRST DISK BUFFER * PTM08625 1763 | * (BUFI). * PTM08630 1764 | * *A LIST OF ERROR MESSAGES IS CONTAINED WITHIN * PTM08635 1765 | * ERMSG. THIS LIST IS REFERENCED BY INDEX * PTM08640 1766 | * REGISTER 2, WHICH CONTAINS THE APPROPRIATE * PTM08645 1767 | * ERROR CODE AT THE TIME OF ENTRY TO ERMSG. * PTM08650 1768 | * *THE I/O HEADER INFORMATION IS SET UP AND A * PTM08655 1769 | * BRANCH IS MADE TO THE PRINCIPAL PRINT * PTM08660 1770 | * SUBROUTINE TO PRINT THE ERROR MESSAGE. * PTM08665 1771 | * *CONTROL IS THEN RETURNED TO GETER. * PTM08670 1772 | * * PTM08675 1773 | *ENTRY POINTS- * PTM08680 1774 | * *EM000+1 - ENTRY FROM GETER * PTM08685 1775 | * * PTM08690 1776 | *INPUT- * PTM08695 1777 | * *ERROR MESSAGE NUMBER * PTM08700 1778 | * * PTM08705 1779 | *OUTPUT- * PTM08710 1780 | * *PRINTED ERROR MESSAGE * PTM08715 1781 | * * PTM08720 1782 | *EXTERNAL RERERENCES- * PTM08725 1783 | * *SUBROUTINES- NONE * PTM08730 1784 | * *DCOM/COMMA- * PTM08735 1785 | * $PHSE * PTM08740 1786 | * * PTM08745 1787 | *EXITS- * PTM08750 1788 | * *NORMAL- GETER SUBROUTINE * PTM08755 1789 | * * ERROR - NONE * PTM08760 1790 | * * PTM08765 1791 | *TABLES/WORK AREAS- * PTM08770 1792 | * * THE PRINTED ERROR MESSAGES ARE * PTM08775 1793 | * CONTAINED WITHIN THIS SUBROUTINE. * PTM08780 1794 | * * PTM08785 1795 | *ATTRIBUTES - RELOCATABLE * PTM08790 1796 | * * PTM08795 1797 | *NOTES - THIS PHASE LOADS TO ADDRESS P9466 WHICH * PTM08800 1798 | * MAY NOT AGREE WITH ASSEMBLY ADDRESSES. * PTM08802 1799 | * * PTM08805 1800 | *************************************************** PTM08810 0AD0 1801 | ORG /0AD0 ABS ORIGIN AT BUFI 2-11 PTM08815 1802 | * PTM08820 0AD0 012E 1803 | DC EM900-EM000 WD CNT OF ERR MSG RTN PTM08825 0AD1 FF2C 1804 | DC -/D4 SLET ID OF ERMSG 2-8 PTM08830 0AD2 0032 1805 | EM999 DC EM014-EM999 SLET TBL DISP 2-8 PTM08835 0AD3 0001 1806 | DC 1 NO. ID'S TO BE FILLED 2-8 PTM08840 0AD2 1807 | ORG *-2 2-8 PTM08845 1808 | * * PTM08850 0AD2 4C00 0000 1809 | EM000 BSC L *-* ENTRY PTM08855 0AD4 C02C 1810 | LD @AERM PTM08860 0AD5 D400 0078 1811 | STO L $PHSE IDENTIFY ASM PHASE PTM08865 1812 | * * PTM08870 0AD7 72FF 1813 | MDX 2 -1 DECRE MESSAGE POINTER PTM08875 0AD8 1000 1814 | NOP MAY SKIP PTM08880 0AD9 682F 1815 | STX EM016 PTM08890 0ADA C02E 1816 | EM005 LD EM016 COMPUTE THE TBL ADDRESS PTM08895 0ADB 802C 1817 | A EM015 PTM08900 0ADC D007 1818 | STO EM008+1 SAVE IN IN-LINE CODING PTM08905 0ADD C02B 1819 | LD EM016 SAVE DISPLACEMENT FROM 2-11 PTM08906 0ADE 9037 1820 | S EM035 * ASSEMBLY VALUES 2-11 PTM08907 0ADF D036 1821 | STO EM035 2-11 PTM08908 0AE0 1010 1822 | SLA 16 PTM08910 0AE1 D400 000F 1823 | STO L $CTSW PTM08915 0AE3 C600 0000 1824 | EM008 LD L2 *-* FETCH MESSAGE ADDRESS PTM08920 0AE5 8030 1825 | A EM035 =TRUE MESSAGE ADDRESS 2-11 PTM08922 0AE6 18D0 1826 | RTE 16 PTM08925 0AE7 C022 1827 | LD EM020 PRINT FUNC CODE PTM08930 0AE8 4400 0D97 1828 | BSI L P9472+3 PRINT ERROR MESSAGE 2-11 PTM08935 1829 | * * PTM08945 0AEA 7400 0036 1830 | EM010 MDX L $PBSY,0 CHECK FOR PRINTER BUSY 2-11 PTM08950 0AEC 70FD 1831 | MDX EM010 LOOP TIL NOT BUSY PTM08960 1832 | * * PTM08965 0AED 6A1B 1833 | STX 2 EM016 SAVE ERROR NUMBER 2-11 PTM08970 0AEE C01A 1834 | LD EM016 2-11 PTM08975 0AEF 900F 1835 | S EM003 TEST FOR A04 2-8 PTM08980 0AF0 4818 1836 | BSC +- SKIP IF NOT A04 2-11 PTM08985 0AF1 70E0 1837 | MDX EM000 RETURN ON A04 2-11 PTM08987 0AF2 900D 1838 | S EM002 TEST FOR A06 2-8 PTM08990 0AF3 4818 1839 | BSC +- SKIP IF NOT A06 2-11 PTM08995 0AF4 70DD 1840 | MDX EM000 RETURN ON A06 2-11 PTM08997 0AF5 C810 1841 | LDD EM014+2 SET OVLAY HDR 2-8 PTM09000 0AF6 DC00 0280 1842 | STD L OVLAY *TO LD PH 4 2-8 PTM09005 0AF8 C009 1843 | LD EM013 SET OVLAY XEQ ADDR 2-8 PTM09010 0AF9 D400 0273 1844 | STO L P0140+1 *TO EXIT ASM 2-8 PTM09015 0AFB 6700 0219 1845 | LDX L3 ASMCM RESTORE XR3 2-8 PTM09020 0AFD 4C00 0270 1846 | BSC L P0130 LD AND XEQ ASM EXIT 2-8 PTM09025 1847 | * PTM09030 1848 | * CONSTANTS PTM09035 1849 | * * PTM09040 0AFF 0003 1850 | EM003 DC 3 CONSTANT 3 2-8 PTM09045 0B00 0002 1851 | EM002 DC 2 CONSTANT 2 2-8 PTM09050 0B01 00D4 1852 | @AERM DC /D4 SLET ID OF ERMSG 2-10 PTM09055 0B02 038E 1853 | EM013 DC P4800 ASM EXIT ADDR 2-8 PTM09060 0B04 1854 | BSS E 0 FORCE EVEN ADDR 2-8 PTM09065 0B04 00D9 1855 | EM014 DC /D9 SLET ID OF PHASE 9 2-8 PTM09070 0B05 1856 | BSS 3 2-8 PTM09075 0B08 0031 1857 | EM015 DC EM030-EM005 ADDR DISPLACEMENT PTM09080 0B09 0000 1858 | EM016 DC 0 TEMP STORAGE PTM09085 0B0A 7001 1859 | EM020 DC /7001 PRINT FUNC CODE PTM09090 0B0B 0B17 1860 | EM030 DC EM040 IOAR HDR ADDR OF MSG #1 PTM09095 0B0C 0B32 1861 | DC EM050 IOAR HDR ADDR OF MSG #2 PTM09100 0B0D 0B4C 1862 | DC EM060 IOAR HDR ADDR OF MSG #3 PTM09105 0B0E 0B5C 1863 | DC EM070 IOAR HDR ADDR OF MSG #4 PTM09110 0B0F 0B70 1864 | DC EM080 IOAR HDR ADDR OF MSG #5 PTM09115 0B10 0B72 1865 | DC EM090 IOAR HDR ADDR OF MSG #6 PTM09120 0B11 0B80 1866 | DC EM100 IOAR HDR ADDR OF MSG #7 PTM09125 0B12 0B94 1867 | DC EM110 IOAR HDR ADDR OF MSG #8 2-8 PTM09130 0B13 0BAE 1868 | DC EM120 IOAR HDR ADDR OF MSG #9 2-8 PTM09135 0B14 0BCA 1869 | DC EM130 IOAR HDR ADDR OF MSG #102-8 PTM09140 0B15 0BE4 1870 | DC EM140 IOAR HDR ADDR OF MSG #112-8 PTM09145 1871 | * PTM09150 0B16 1872 | BSS E 0 WORD CNT TO ODD LOCN 2-11 PTM09152 0B16 0ADA 1873 | EM035 DC EM005 DISP FROM ASSM.LOCNS 2-11 PTM09155 0B17 001A 1874 | EM040 DC EM050-EM040-1 WD CNT OF MSG #1 PTM09160 0B18 4040 1875 | EBC . . PTM09165 0B19 C140 1876 | EBC .A . PTM09170 0B1A F0F1 1877 | EBC .01. PTM09175 0B1B 40D4 1878 | EBC . M. PTM09180 0B1C C9D5 1879 | EBC .IN. PTM09185 0B1D C9D4 1880 | EBC .IM. PTM09190 0B1E E4D4 1881 | EBC .UM. PTM09195 0B1F 40E6 1882 | EBC . W. PTM09200 1883 | EBC ..S. PTM09205 1884 | EBC .. . PTM09210 0B20 D5D6 1885 | EBC .NO. PTM09215 0B21 E340 1886 | EBC .T . PTM09220 0B22 C1E5 1887 | EBC .AV. PTM09225 0B23 C1C9 1888 | EBC .AI. PTM09230 0B24 D3C1 1889 | EBC .LA. PTM09235 0B25 C2D3 1890 | EBC .BL. PTM09240 0B26 C560 1891 | EBC .E-. PTM09245 0B27 60C1 1892 | EBC .-A. PTM09250 0B28 E2E2 1893 | EBC .SS. PTM09255 0B29 C5D4 1894 | EBC .EM. PTM09260 0B2A C2D3 1895 | EBC .BL. PTM09265 0B2B E840 1896 | EBC .Y . PTM09270 0B2C E3C5 1897 | EBC .TE. PTM09275 0B2D D9D4 1898 | EBC .RM. PTM09280 0B2E C9D5 1899 | EBC .IN. PTM09285 0B2F C1E3 1900 | EBC .AT. PTM09290 0B30 C5C4 1901 | EBC .ED. PTM09295 1902 | EBC .. . PTM09300 0B31 4040 1903 | EBC . . PTM09305 0B32 0019 1904 | EM050 DC EM060-EM050-1 WD CNT OF MSG #2 PTM09310 0B33 4040 1905 | EBC . . PTM09315 0B34 C140 1906 | EBC .A . PTM09320 0B35 F0F2 1907 | EBC .02. PTM09325 0B36 40E2 1908 | EBC . S. PTM09330 0B37 E8D4 1909 | EBC .YM. PTM09335 0B38 C2D6 1910 | EBC .BO. PTM09340 0B39 D340 1911 | EBC .L . PTM09345 0B3A E3C1 1912 | EBC .TA. PTM09350 0B3B C2D3 1913 | EBC .BL. PTM09355 0B3C C540 1914 | EBC .E . PTM09360 0B3D D6E5 1915 | EBC .OV. PTM09365 0B3E C5D9 1916 | EBC .ER. PTM09370 0B3F C6D3 1917 | EBC .FL. PTM09375 0B40 D6E6 1918 | EBC .OW. PTM09380 0B41 6060 1919 | EBC .--. PTM09385 0B42 C1E2 1920 | EBC .AS. PTM09390 0B43 E2C5 1921 | EBC .SE. PTM09395 0B44 D4C2 1922 | EBC .MB. PTM09400 0B45 D3E8 1923 | EBC .LY. PTM09405 0B46 40E3 1924 | EBC . T. PTM09410 0B47 C5D9 1925 | EBC .ER. PTM09415 0B48 D4C9 1926 | EBC .MI. PTM09420 0B49 D5C1 1927 | EBC .NA. PTM09425 0B4A E3C5 1928 | EBC .TE. PTM09430 0B4B C440 1929 | EBC .D.. PTM09435 1930 | * * PTM09440 0B4C 000F 1931 | EM060 DC EM070-EM060-1 WD CNT OF MSG #3 PTM09445 0B4D 4040 1932 | EBC . . PTM09450 0B4E C140 1933 | EBC .A . PTM09455 0B4F F0F3 1934 | EBC .03. PTM09460 0B50 40C4 1935 | EBC . D. PTM09465 0B51 C9E2 1936 | EBC .IS. PTM09470 0B52 D240 1937 | EBC .K . PTM09475 0B53 D6E4 1938 | EBC .OU. PTM09480 0B54 E3D7 1939 | EBC .TP. PTM09485 0B55 E4E3 1940 | EBC .UT. PTM09490 0B56 40C5 1941 | EBC . E. PTM09495 0B57 E7C3 1942 | EBC .XC. PTM09500 0B58 C5C5 1943 | EBC .EE. PTM09505 0B59 C4E2 1944 | EBC .DS. PTM09510 0B5A 40E6 1945 | EBC . W. PTM09515 1946 | EBC ..S. PTM09520 1947 | EBC .. . PTM09525 0B5B 4040 1948 | EBC . . PTM09530 1949 | * * PTM09535 0B5C 0013 1950 | EM070 DC EM080-EM070-1 WD CNT OF MSG #4 PTM09540 0B5D 4040 1951 | EBC . . PTM09545 0B5E C140 1952 | EBC .A . PTM09550 0B5F F0F4 1953 | EBC .04. PTM09555 0B60 4040 1954 | EBC . . PTM09560 0B61 E2C1 1955 | EBC .SA. PTM09565 0B62 E5C5 1956 | EBC .VE. PTM09570 0B63 40E2 1957 | EBC . S. PTM09575 0B64 E8D4 1958 | EBC .YM. PTM09580 0B65 C2D6 1959 | EBC .BO. PTM09585 0B66 D340 1960 | EBC .L . PTM09590 0B67 E3C1 1961 | EBC .TA. PTM09595 0B68 C2D3 1962 | EBC .BL. PTM09600 0B69 C540 1963 | EBC .E . PTM09605 0B6A C9D5 1964 | EBC .IN. PTM09610 0B6B C8C9 1965 | EBC .HI. PTM09615 0B6C C2C9 1966 | EBC .BI. PTM09620 0B6D E3C5 1967 | EBC .TE. PTM09625 0B6E C440 1968 | EBC .D . PTM09630 0B6F 4040 1969 | EBC . . PTM09635 1970 | * * PTM09640 0B70 0001 1971 | EM080 DC EM090-EM080-1 WD CNT OF MSG #5 PTM09645 0B71 4040 1972 | EBC . . PTM09650 1973 | * * PTM09655 0B72 000D 1974 | EM090 DC EM100-EM090-1 WD CNT OF MSG #6 PTM09660 0B73 4040 1975 | EBC . . PTM09665 0B74 C140 1976 | EBC .A . PTM09670 0B75 F0F6 1977 | EBC .06. PTM09675 0B76 40D3 1978 | EBC . L. PTM09680 0B77 D6C1 1979 | EBC .OA. PTM09685 0B78 C440 1980 | EBC .D . PTM09690 0B79 C2D3 1981 | EBC .BL. PTM09695 0B7A C1D5 1982 | EBC .AN. PTM09700 0B7B D240 1983 | EBC .K . PTM09705 0B7C C3C1 1984 | EBC .CA. PTM09710 0B7D D9C4 1985 | EBC .RD. PTM09715 0B7E E240 1986 | EBC .S . PTM09720 0B7F 4040 1987 | EBC . . PTM09725 1988 | * * PTM09730 0B80 0013 1989 | EM100 DC EM110-EM100-1 WD CNT OF MSG # 7 2-8 PTM09735 0B81 4040 1990 | EBC . . PTM09740 0B82 4040 1991 | EBC . . PTM09745 0B83 C1F2 1992 | EBC .A2. 2-8 PTM09750 0B84 F140 1993 | EBC .1 . 2-8 PTM09755 0B85 5CD3 1994 | EBC .*L. PTM09760 0B86 C5E5 1995 | EBC .EV. PTM09765 0B87 C5D3 1996 | EBC .EL. PTM09770 0B88 40C3 1997 | EBC . C. PTM09775 0B89 D6D5 1998 | EBC .ON. PTM09780 0B8A E3D9 1999 | EBC .TR. PTM09785 0B8B D6D3 2000 | EBC .OL. PTM09790 0B8C 40E2 2001 | EBC . S. 2-8 PTM09795 0B8D E3D4 2002 | EBC .TM. 2-8 PTM09800 0B8E D5E3 2003 | EBC .NT. 2-8 PTM09805 0B8F 4040 2004 | EBC . . 2-8 PTM09810 0B90 D4C9 2005 | EBC .MI. PTM09815 0B91 E2E2 2006 | EBC .SS. PTM09820 0B92 C9D5 2007 | EBC .IN. PTM09825 0B93 C740 2008 | EBC .G.. PTM09830 0B94 0019 2009 | EM110 DC EM120-EM110-1 WD CNT OF MSG # 8 2-8 PTM09835 0B95 4040 2010 | EBC . . 2-8 PTM09840 0B96 C140 2011 | EBC .A . 2-8 PTM09845 0B97 F1F0 2012 | EBC .10. 2-8 PTM09850 0B98 40D4 2013 | EBC . M. 2-8 PTM09855 0B99 C1C3 2014 | EBC .AC. 2-8 PTM09860 0B9A D9D6 2015 | EBC .RO. 2-8 PTM09865 0B9B 40C1 2016 | EBC . A. 2-8 PTM09870 0B9C D9C5 2017 | EBC .RE. 2-8 PTM09875 0B9D C140 2018 | EBC .A . 2-8 PTM09880 0B9E D6E5 2019 | EBC .OV. 2-8 PTM09885 0B9F C5D9 2020 | EBC .ER. 2-8 PTM09890 0BA0 C6D3 2021 | EBC .FL. 2-8 PTM09895 0BA1 D6E6 2022 | EBC .OW. 2-8 PTM09900 0BA2 6060 2023 | EBC .--. 2-8 PTM09905 0BA3 C1E2 2024 | EBC .AS. 2-8 PTM09910 0BA4 E2C5 2025 | EBC .SE. 2-8 PTM09915 0BA5 D4C2 2026 | EBC .MB. 2-8 PTM09920 0BA6 D3E8 2027 | EBC .LY. 2-8 PTM09925 0BA7 40E3 2028 | EBC . T. 2-8 PTM09930 0BA8 C5D9 2029 | EBC .ER. 2-8 PTM09935 0BA9 D4C9 2030 | EBC .MI. 2-8 PTM09940 0BAA D5C1 2031 | EBC .NA. 2-8 PTM09945 0BAB E3C5 2032 | EBC .TE. 2-8 PTM09950 0BAC C440 2033 | EBC .D . 2-8 PTM09955 0BAD 4040 2034 | EBC . . 2-8 PTM09960 0BAE 001B 2035 | EM120 DC EM130-EM120-1 WD CNT OF MSG #9 2-8 PTM09965 0BAF 4040 2036 | EBC . . 2-8 PTM09970 0BB0 C140 2037 | EBC .A . 2-8 PTM09975 0BB1 F0F9 2038 | EBC .09. 2-8 PTM09980 0BB2 40D7 2039 | EBC . P. 2-8 PTM09985 0BB3 C1D9 2040 | EBC .AR. 2-8 PTM09990 0BB4 C1D4 2041 | EBC .AM. 2-8 PTM09995 0BB5 C5E3 2042 | EBC .ET. 2-8 PTM10000 0BB6 C5D9 2043 | EBC .ER. 2-8 PTM10005 0BB7 40D3 2044 | EBC . L. 2-8 PTM10010 0BB8 C9E2 2045 | EBC .IS. 2-8 PTM10015 0BB9 E340 2046 | EBC .T . 2-8 PTM10020 0BBA D6E5 2047 | EBC .OV. 2-8 PTM10025 0BBB C5D9 2048 | EBC .ER. 2-8 PTM10030 0BBC C6D3 2049 | EBC .FL. 2-8 PTM10035 0BBD D6E6 2050 | EBC .OW. 2-8 PTM10040 0BBE 6060 2051 | EBC .--. 2-8 PTM10045 0BBF C1E2 2052 | EBC .AS. 2-8 PTM10050 0BC0 E2C5 2053 | EBC .SE. 2-8 PTM10055 0BC1 D4C2 2054 | EBC .MB. 2-8 PTM10060 0BC2 D3E8 2055 | EBC .LY. 2-8 PTM10065 0BC3 40E3 2056 | EBC . T. 2-8 PTM10070 0BC4 C5D9 2057 | EBC .ER. 2-8 PTM10075 0BC5 D4C9 2058 | EBC .MI. 2-8 PTM10080 0BC6 D5C1 2059 | EBC .NA. 2-8 PTM10085 0BC7 E3C5 2060 | EBC .TE. 2-8 PTM10090 0BC8 C440 2061 | EBC .D . 2-8 PTM10095 0BC9 4040 2062 | EBC . . 2-8 PTM10100 0BCA 0019 2063 | EM130 DC EM140-EM130-1 WD CNT OF MSG #10 2-8 PTM10105 0BCB 4040 2064 | EBC . . 2-8 PTM10110 0BCC C140 2065 | EBC .A . 2-8 PTM10115 0BCD F1F2 2066 | EBC .12. 2-8 PTM10120 0BCE 40D5 2067 | EBC . N. 2-8 PTM10125 0BCF C5E2 2068 | EBC .ES. 2-8 PTM10130 0BD0 E340 2069 | EBC .T . 2-8 PTM10135 0BD1 D3C5 2070 | EBC .LE. 2-8 PTM10140 0BD2 E5C5 2071 | EBC .VE. 2-8 PTM10145 0BD3 D340 2072 | EBC .L . 2-8 PTM10150 0BD4 C5E7 2073 | EBC .EX. 2-8 PTM10155 0BD5 C3C5 2074 | EBC .CE. 2-8 PTM10160 0BD6 C5C4 2075 | EBC .ED. 2-8 PTM10165 0BD7 E240 2076 | EBC .S . 2-8 PTM10170 0BD8 F2F0 2077 | EBC .20. 2-8 PTM10175 0BD9 6060 2078 | EBC .--. 2-8 PTM10180 0BDA C1E2 2079 | EBC .AS. 2-8 PTM10185 0BDB E2C5 2080 | EBC .SE. 2-8 PTM10190 0BDC D4C2 2081 | EBC .MB. 2-8 PTM10195 0BDD D3E8 2082 | EBC .LY. 2-8 PTM10200 0BDE 40E3 2083 | EBC . T. 2-8 PTM10205 0BDF C5D9 2084 | EBC .ER. 2-8 PTM10210 0BE0 D4C9 2085 | EBC .MI. 2-8 PTM10215 0BE1 D5C1 2086 | EBC .NA. 2-8 PTM10220 0BE2 E3C5 2087 | EBC .TE. 2-8 PTM10225 0BE3 C440 2088 | EBC .D . 2-8 PTM10230 0BE4 001B 2089 | EM140 DC EM150-EM140-1 WD CNT OF MSG #11 2-8 PTM10235 0BE5 4040 2090 | EBC . . 2-8 PTM10240 0BE6 C140 2091 | EBC .A . 2-8 PTM10245 0BE7 F2F2 2092 | EBC .22. 2-8 PTM10250 0BE8 40C9 2093 | EBC . I. 2-8 PTM10255 0BE9 D5E5 2094 | EBC .NV. 2-8 PTM10260 0BEA C1D3 2095 | EBC .AL. 2-8 PTM10265 0BEB C9C4 2096 | EBC .ID. 2-8 PTM10270 0BEC 40D3 2097 | EBC . L. 2-8 PTM10275 0BED C9E2 2098 | EBC .IS. 2-8 PTM10280 0BEE E340 2099 | EBC .T . 2-8 PTM10285 0BEF C4C5 2100 | EBC .DE. 2-8 PTM10290 0BF0 C3D2 2101 | EBC .CK. 2-8 PTM10295 0BF1 40D6 2102 | EBC . O. 2-8 PTM10300 0BF2 D7E3 2103 | EBC .PT. 2-8 PTM10305 0BF3 C9D6 2104 | EBC .IO. 2-8 PTM10310 0BF4 D560 2105 | EBC .N-. 2-8 PTM10315 0BF5 60C1 2106 | EBC .-A. 2-8 PTM10320 0BF6 E2E2 2107 | EBC .SS. 2-8 PTM10325 0BF7 C5D4 2108 | EBC .EM. 2-8 PTM10330 0BF8 C2D3 2109 | EBC .BL. 2-8 PTM10335 0BF9 E840 2110 | EBC .Y . 2-8 PTM10340 0BFA E3C5 2111 | EBC .TE. 2-8 PTM10345 0BFB D9D4 2112 | EBC .RM. 2-8 PTM10350 0BFC C9D5 2113 | EBC .IN. 2-8 PTM10355 0BFD C1E3 2114 | EBC .AT. 2-8 PTM10360 0BFE C5C4 2115 | EBC .ED. 2-8 PTM10365 0BFF 4040 2116 | EBC . . 2-8 PTM10370 0C00 2117 | EM150 EQU * 2-8 PTM10375 2118 | *************************************************** PTM10380 2119 | * NOTE - THIS PHASE CANNOT OVERLAY * PTM10385 2120 | * THE INPUT I/O AND CONVERSION SUBRS * PTM10390 2121 | *************************************************** PTM10395 0C00 2122 | EM900 BSS 325-*+EM000-1 PATCH AREA 2-11 PTM10400 0C16 0000 2123 | DC 0 END OF ERMSG PHASE 2-8 PTM10405 *SBRKSLS D5 2124 | ASM CONTROL CARDS I V2M08 PTM10410 PHASE 1 CONTROL RECORDS 12/07/66 2126 | *************************************************** PTM10420 2127 | * * PTM10425 2128 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM10430 2129 | * * PTM10435 2130 | *FUNCTION/OPERATION- * PTM10440 2131 | * *IN PASS 1 PHASE 1 READS, ANALYZES, AND LISTS * PTM10445 2132 | * THE ASSEMBLER CONTROL RECORDS. AS EACH * PTM10450 2133 | * CONTROL RECORD IS ANALYZED, THE VARIOUS * PTM10455 2134 | * OPTIONS SPECIFIED BY THE CONTROL RECORD ARE * PTM10460 2135 | * INDICATED IN THE ASSEMBLER PROGRAM'S * PTM10465 2136 | * COMMUNICATIONS AREA (ASCOM), AND THE CONTROL * PTM10470 2137 | * RECORD IS LISTED ON THE PRINCIPAL PRINT * PTM10475 2138 | * DEVICE. * PTM10480 2139 | * *WHEN THE FIRST NON-CONTROL TYPE RECORD IS * PTM10485 2140 | * ENCOUNTERED,PHASE 1 TRANSFERS TO THE MASTER * PTM10490 2141 | * OVERLAY CONTROL SUBROUTINE TO FETCH PHASE 1A * PTM10495 2142 | * AND TRANSFER CONTROL TO IT. * PTM10500 2143 | * *IN PASS 2 OF A ONE-PASS MODE ASSEMBLY, PHASE * PTM10505 2144 | * 1 IMMEDIATELY TRANSFERS TO MASTER OVERLAY * PTM10510 2145 | * CONTROL SUBROUTINE TO FETCH PHASE 1A AND * PTM10515 2146 | * TRANSFER CONTROL TO IT. * PTM10520 2147 | * *IN PASS 2 OF A TWO-PASS MODE ASSEMBLY PHASE 1* PTM10525 2148 | * READS AND BYPASSES SOURCE INPUT RECORDS UNTIL* PTM10530 2149 | * A NON-CONTROL TYPE RECORD IS ENCOUNTERED. * PTM10535 2150 | * PHASE 1 THEN TRANSFERS TO THE MASTER OVERLAY * PTM10540 2151 | * CONTROL SUBROUTINE TO FETCH PHASE 1A AND * PTM10545 2152 | * TRANSFER CONTROL TO IT. * PTM10550 2153 | * * PTM10555 2154 | *ENTRY POINTS- * PTM10560 2155 | * * P1000 - ENTRY FROM PHASE 0 * PTM10565 2156 | * * PTM10570 2157 | *INPUT-N/A * PTM10575 2158 | * * PTM10580 2159 | *OUTPUT- * PTM10585 2160 | * * PRINTED CONTROL RECORDS * PTM10590 2161 | * * PTM10595 2162 | *EXTERNAL RERERENCES- * PTM10600 2163 | * *SUBROUTINES- * PTM10605 2164 | * * DISK1 * PTM10610 2165 | * * LDXRS * PTM10615 2166 | * * P9MVE * PTM10620 2167 | * * RDCRD * PTM10625 2168 | * * PRINCIPAL PRINT SUBROUTINE * PTM10630 2169 | * * PRINCIPAL I/O SUBROUTINE * PTM10635 2170 | * * INPUT CONVERSION SUBROUTINE * PTM10640 2171 | * *DCOM/COMMA- * PTM10645 2172 | * $CORE * PTM10650 2173 | * $PHSE * PTM10655 2174 | * PARAM * PTM10660 2175 | * SKLTN * PTM10665 2176 | * * PTM10670 2177 | *EXITS- * PTM10675 2178 | * *NORMAL - MASTER OVERLAY CONTROL SUBROUTINE * PTM10680 2179 | * *ERROR - NONE * PTM10685 2180 | * * PTM10690 2181 | *TABLES/WORK AREAS- N/A * PTM10695 2182 | * * PTM10700 2183 | *ATTRIBUTES-REUSABLE * PTM10705 2184 | * * PTM10710 2185 | *NOTES-N/A * PTM10715 2186 | * * PTM10720 2187 | *************************************************** PTM10725 2188 | * PTM10730 0280 2189 | ORG OVLAY PTM10735 0280 01D5 2190 | DC P1570-P1000 WORD COUNT PHASE 1 PTM10740 0281 FF2B 2191 | DC -/D5 SLET ID OF PHASE 1 2-8 PTM10745 0282 01B8 2192 | PHS01 DC P1560-PHS01 ADDR OF ID TABLE PTM10750 0283 0003 2193 | DC 3 NO. OF ID'S TO BE FILLED2-8 PTM10755 0282 2194 | ORG *-2 PTM10760 0282 2195 | P1000 EQU * PTM10765 0282 C3F4 2196 | LD 3 PASS-X3 DETRM PASS PTM10770 0283 4C18 0293 2197 | BSC L P1002,+- BR TO CONT PH. 1 IF FIRST PTM10775 0285 4C28 042F 2198 | BSC L P1550,+Z *CESSING IF XREF PASS 2-8 PTM10780 0287 C3F3 2199 | LD 3 PSMDE-X3 IF SECOND, DETRM MODE PTM10785 0288 4C18 042F 2200 | BSC L P1550,+- BR TO EXIT IF ONE PASS MD. PTM10790 028A C3F1 2201 | LD 3 LDKOP-X3 CHECK FOR LIST DECK PTM10795 028B 4C20 0293 2202 | BSC L P1002,Z SKIP FIRST READ IF LIST PTM10800 2203 | * * PTM10805 028D 6680 045B 2204 | LDX I2 RP000 SET TO READ A CARD PTM10810 028F C320 2205 | LD 3 RDBFR+1-X3 PTM10815 0290 18D0 2206 | RTE 16 INITIAL DBL BUFFERING PTM10820 0291 C032 2207 | LD P1132 BY READIND THE FIRST PTM10825 0292 4203 2208 | BSI 2 +3 RECORD PTM10830 2209 | * * PTM10835 0293 C400 0036 2210 | P1002 LD L $PBSY CHECK IF PRINTER BUSY 2-2 PTM10840 0295 4820 2211 | BSC Z SKIP IF NOT BUSY 2-2 PTM10845 0296 70FC 2212 | MDX *-4 LOOP TILL NOT BUSY 2-2 PTM10850 0297 C480 0006 2213 | LD I $CH12 IS CHANNEL 12 ON" 212 PTM10855 0299 4420 0723 2214 | BSI L GTHDG,Z YES, GO PRINT HEADING 212 PTM10857 029B 4400 07A8 2215 | BSI L RDCRD READ NEXT RECORD 2-8 PTM10860 029D C31F 2216 | LD 3 RDBFR-X3 SET UP TO CONVERT PTM10865 029E 4480 01FF 2217 | BSI I CVADR CONVERT RECORD IN BUFFER PTM10870 2218 | * PTM10875 2219 | * ASTERISK IN 1ST POSITION PTM10880 2220 | * INDICATES A CONTROL RECORD PTM10885 2221 | * PTM10890 02A0 4400 025F 2222 | P1004 BSI L LDXRS GO RESTO XR1 PTM10895 02A2 6680 02F7 2223 | P1010 LDX I2 P1130 XR2 IS STRING LENGTH PTM10900 02A4 6780 02EA 2224 | P1020 LDX I3 P1120 XR3 IS STRING ADDR PTM10905 02A6 C101 2225 | LD 1 +1 CHECK POSITION ONE OF PTM10910 02A7 9040 2226 | S P1110 BUFFER FOR AN ASTERISK PTM10915 02A8 4C20 042F 2227 | BSC L P1550,Z BRANCH IF NOT ASTERISK PTM10920 02AA C400 020D 2228 | LD L PASS CHECK FOR PASS 2 PTM10925 02AC 4818 2229 | BSC +- SKIP IF PASS 2 PTM10930 02AD 7003 2230 | MDX P1030 SKIP IF PASS 1 TO CONTINUE PTM10935 02AE 4400 025F 2231 | BSI L LDXRS RESTO XR1 & XR3 PTM10940 02B0 70E2 2232 | MDX P1002 BR TO RD NEXT RCD PTM10945 02B1 C102 2233 | P1030 LD 1 +2 PTM10950 02B2 9036 2234 | S P1111 IGNORE BLANKS IN INPUT PTM10955 02B3 4C20 02BB 2235 | BSC L P1040,Z BRANCH IF NOT BLANK PTM10960 02B5 74FF 02E6 2236 | MDX L P1090,-1 DECREMENT MAX LENGTH CNTR PTM10965 02B7 7001 2237 | MDX P1032 PTM10970 02B8 7019 2238 | MDX P1050 AFTER 71 CHARS, RECORD IS PTM10975 02B9 7101 2239 | P1032 MDX 1 +1 NOT ANY CONTROL RECORD PTM10980 02BA 70F6 2240 | MDX P1030 COMPARE NEXT INPUT CHAR PTM10985 2241 | * PTM10990 02BB C102 2242 | P1040 LD 1 +2 A NON-BLANK INPUT CHAR MUST PTM10995 02BC 9300 2243 | S 3 0 MATCH CURRENT STRING CHAR PTM11000 02BD 4C20 02D2 2244 | BSC L P1050,Z BRANCH IF NO MATCH PTM11005 02BF 74FF 02E6 2245 | MDX L P1090,-1 DECREMENT MAX LENGTH CNTR PTM11010 02C1 7003 2246 | MDX P1042 GO ON TO NEXT CHAR PTM11015 02C2 4C00 041F 2247 | BSC L P1530 BRANCH IF 71 CHARS CHECKED PTM11020 2248 | * PTM11025 02C4 7000 2249 | P1132 DC /7000 DISKZ READ CODE PTM11030 02C5 7101 2250 | P1042 MDX 1 +1 NEXT INPUT CHAR PTM11035 02C6 7301 2251 | MDX 3 +1 NEXT STRING CHAR PTM11040 02C7 72FF 2252 | MDX 2 -1 DECREMENT STRING LENGTH PTM11045 02C8 70E8 2253 | MDX P1030 BRANCH IF MORE STRING CHARS PTM11050 02C9 C102 2254 | LD 1 +2 IF ENTIRE STRING COMPARED, PTM11055 02CA 901E 2255 | S P1111 NXT INPUT CHAR MUST BE BLNK PTM11060 02CB 4C20 041F 2256 | BSC L P1530,Z BRANCH IF NOT BLANK PTM11065 02CD 6B03 2257 | STX 3 P1046+1 STORE INDIRECT BRANCH ADDR PTM11070 02CE 6700 0219 2258 | P1044 LDX L3 ASMCM XR3 POINTS TO ASM COMMA PTM11075 02D0 4C80 0000 2259 | P1046 BSC I *-* BRANCH TO PROPER SECTION PTM11080 2260 | * PTM11085 02D2 7401 02A3 2261 | P1050 MDX L P1010+1,1 UPDATE TO COMPARE PTM11090 02D4 7401 02A5 2262 | MDX L P1020+1,1 INPUT RECORD AGAINST PTM11095 02D6 C010 2263 | LD P1100 RESET MAX LENGTH PTM11100 02D7 D00E 2264 | STO P1090 COUNTER FOR 71 CHARS PTM11105 02D8 C480 02A3 2265 | LD I P1010+1 NEXT CONTROL RECORD STRING PTM11110 02DA 4C18 041F 2266 | BSC L P1530,+- BRANCH IF NO MORE STRINGS PTM11115 02DC 70C3 2267 | MDX P1004 BRANCH TO CHECK NEXT STRING PTM11120 2268 | * PTM11125 02DD C006 2269 | P1060 LD P1070 RESET ADDRESSES TO COMPARE PTM11130 02DE D0C4 2270 | STO P1010+1 A NEW INPUT RECORD AGAINST PTM11135 02DF C005 2271 | LD P1080 ALL STRINGS, BEGINNING WITH PTM11140 02E0 D0C4 2272 | STO P1020+1 THE 1ST CONTROL RCRD STRING PTM11145 02E1 C005 2273 | LD P1100 RESET MAX LENGTH PTM11150 02E2 D003 2274 | STO P1090 COUNTER FOR 71 CHARS PTM11155 02E3 70AF 2275 | MDX P1002 BRANCH TO READ NEXT RCD PTM11160 2276 | * PTM11165 2277 | * CONSTANTS PTM11170 2278 | * PTM11175 02E4 02F7 2279 | P1070 DC P1130 ADDR OF STRING LENGTH TABLE PTM11180 02E5 02EA 2280 | P1080 DC P1120 STRING STARTING ADDR TABLE PTM11185 02E6 0047 2281 | P1090 DC 71 MAX LENGTH COUNTER PTM11190 02E7 0047 2282 | P1100 DC 71 RESTORE OF MAX LENGTH CNTR PTM11195 02E8 005C 2283 | P1110 DC .* EBCDIC ASTERISK PTM11200 02E9 0040 2284 | P1111 DC . EBCDIC BLANK PTM11205 02EA 0305 2285 | P1120 DC P1140 ADDR OF START OF STRING 1 PTM11210 02EB 0316 2286 | DC P1150 ADDR OF START OF STRING 2 PTM11215 02EC 0327 2287 | DC P1160 ADDR OF START OF STRING 3 PTM11220 02ED 0333 2288 | DC P1170 ADDR OF START OF STRING 4 PTM11225 02EE 033D 2289 | DC P1180 ADDR OF START OF STRING 5 PTM11230 02EF 0346 2290 | DC P1190 ADDR OF START OF STRING 6 PTM11235 02F0 034B 2291 | DC P1200 ADDR OF START OF STRING 7 PTM11240 02F1 035B 2292 | DC P1210 ADDR OF START OF STRING 8 PTM11245 02F2 036D 2293 | DC P1220 ADDR OF START OF STRING 9 PTM11250 02F3 0373 2294 | DC P1240 ADDR OF START OF STRING 10 PTM11255 02F4 037A 2295 | DC P1242 ADDR OF START OF STRING 11 PTM11260 02F5 038A 2296 | DC P1245 START ADDR OF STRING 12 2-8 PTM11265 02F6 0391 2297 | DC P1246 START ADDR OF STRING 13 2-8 PTM11270 2298 | * PTM11275 02F7 0010 2299 | P1130 DC 16 LENGTH OF PRINT SYM TBL PTM11280 02F8 0010 2300 | DC 16 LENGTH OF PUNCH SYM TBL PTM11285 02F9 000B 2301 | DC 11 LENGTH OF TWO PASS MODE PTM11290 02FA 0009 2302 | DC 9 LENGTH OF LIST DECK E PTM11295 02FB 0008 2303 | DC 8 LENGTH OF LIST DECK PTM11300 02FC 0004 2304 | DC 4 LENGTH OF LIST PTM11305 02FD 000F 2305 | DC 15 LENGTH OF SAVE SYM TBL PTM11310 02FE 0011 2306 | DC 17 LENGTH OF SYSTEM SYM TBL PTM11315 02FF 0005 2307 | DC 5 LENGTH OF LEVEL PTM11320 0300 0006 2308 | DC 6 LENGTH OF COMMON PTM11325 0301 000F 2309 | DC 15 LENGTH OF OVERFLOW SECTORS PTM11330 0302 0006 2310 | DC 6 LENGTH OF MACLIB 2-8 PTM11335 0303 0004 2311 | DC 4 LENGTH OF XREF 2-8 PTM11340 0304 0000 2312 | DC 0 ZERO FORCES END OF COMPARES PTM11345 2313 | * PTM11350 2314 | * COMMENTS TO THE RIGHT OF THE PTM11355 2315 | * FOLLOWING CONSTANTS GIVE THE LITERAL PTM11360 2316 | * STRING CHARACTER IN EBCDIC PTM11365 2317 | * AS IT APPEARS WHILE BEING COMPARED PTM11370 2318 | * TO THE INPUT RECORD PTM11375 2319 | * PTM11380 0305 00D7 2320 | P1140 DC .P P PTM11385 0306 00D9 2321 | DC .R R PTM11390 0307 00C9 2322 | DC .I I PTM11395 0308 00D5 2323 | DC .N N PTM11400 0309 00E3 2324 | DC .T T PTM11405 030A 00E2 2325 | DC .S S PTM11410 030B 00E8 2326 | DC .Y Y PTM11415 030C 00D4 2327 | DC .M M PTM11420 030D 00C2 2328 | DC .B B PTM11425 030E 00D6 2329 | DC .O O PTM11430 030F 00D3 2330 | DC .L L PTM11435 0310 00E3 2331 | DC .T T PTM11440 0311 00C1 2332 | DC .A A PTM11445 0312 00C2 2333 | DC .B B PTM11450 0313 00D3 2334 | DC .L L PTM11455 0314 00C5 2335 | DC .E E PTM11460 0315 03CB 2336 | DC P1330 START 'PRINT SYM TBL' PTM11465 0316 00D7 2337 | P1150 DC .P P PTM11470 0317 00E4 2338 | DC .U U PTM11475 0318 00D5 2339 | DC .N N PTM11480 0319 00C3 2340 | DC .C C PTM11485 031A 00C8 2341 | DC .H H PTM11490 031B 00E2 2342 | DC .S S PTM11495 031C 00E8 2343 | DC .Y Y PTM11500 031D 00D4 2344 | DC .M M PTM11505 031E 00C2 2345 | DC .B B PTM11510 031F 00D6 2346 | DC .O O PTM11515 0320 00D3 2347 | DC .L L PTM11520 0321 00E3 2348 | DC .T T PTM11525 0322 00C1 2349 | DC .A A PTM11530 0323 00C2 2350 | DC .B B PTM11535 0324 00D3 2351 | DC .L L PTM11540 0325 00C5 2352 | DC .E E PTM11545 0326 03D4 2353 | DC P1350 START 'PUNCH SYM TBL' PTM11550 0327 00E3 2354 | P1160 DC .T T PTM11555 0328 00E6 2355 | DC .W W PTM11560 0329 00D6 2356 | DC .O O PTM11565 032A 00D7 2357 | DC .P P PTM11570 032B 00C1 2358 | DC .A A PTM11575 032C 00E2 2359 | DC .S S PTM11580 032D 00E2 2360 | DC .S S PTM11585 032E 00D4 2361 | DC .M M PTM11590 032F 00D6 2362 | DC .O O PTM11595 0330 00C4 2363 | DC .D D PTM11600 0331 00C5 2364 | DC .E E PTM11605 0332 03D9 2365 | DC P1360 START 'TWO PASS MODE' PTM11610 0333 00D3 2366 | P1170 DC .L L PTM11615 0334 00C9 2367 | DC .I I PTM11620 0335 00E2 2368 | DC .S S PTM11625 0336 00E3 2369 | DC .T T PTM11630 0337 00C4 2370 | DC .D D PTM11635 0338 00C5 2371 | DC .E E PTM11640 0339 00C3 2372 | DC .C C PTM11645 033A 00D2 2373 | DC .K K PTM11650 033B 00C5 2374 | DC .E E PTM11655 033C 03EA 2375 | DC P1380 START 'LIST DECK E' PTM11660 033D 00D3 2376 | P1180 DC .L L PTM11665 033E 00C9 2377 | DC .I I PTM11670 033F 00E2 2378 | DC .S S PTM11675 0340 00E3 2379 | DC .T T PTM11680 0341 00C4 2380 | DC .D D PTM11685 0342 00C5 2381 | DC .E E PTM11690 0343 00C3 2382 | DC .C C PTM11695 0344 00D2 2383 | DC .K K PTM11700 0345 03DF 2384 | DC P1370 START 'LIST DECK' PTM11705 0346 00D3 2385 | P1190 DC .L L PTM11710 0347 00C9 2386 | DC .I I PTM11715 0348 00E2 2387 | DC .S S PTM11720 0349 00E3 2388 | DC .T T PTM11725 034A 03CF 2389 | DC P1340 START 'LIST' PTM11730 034B 00E2 2390 | P1200 DC .S S PTM11735 034C 00C1 2391 | DC .A A PTM11740 034D 00E5 2392 | DC .V V PTM11745 034E 00C5 2393 | DC .E E PTM11750 034F 00E2 2394 | DC .S S PTM11755 0350 00E8 2395 | DC .Y Y PTM11760 0351 00D4 2396 | DC .M M PTM11765 0352 00C2 2397 | DC .B B PTM11770 0353 00D6 2398 | DC .O O PTM11775 0354 00D3 2399 | DC .L L PTM11780 0355 00E3 2400 | DC .T T PTM11785 0356 00C1 2401 | DC .A A PTM11790 0357 00C2 2402 | DC .B B PTM11795 0358 00D3 2403 | DC .L L PTM11800 0359 00C5 2404 | DC .E E PTM11805 035A 03EC 2405 | DC P1390 START 'SAVE SYM TBL' PTM11810 035B 00E2 2406 | P1210 DC .S S PTM11815 035C 00E8 2407 | DC .Y Y PTM11820 035D 00E2 2408 | DC .S S PTM11825 035E 00E3 2409 | DC .T T PTM11830 035F 00C5 2410 | DC .E E PTM11835 0360 00D4 2411 | DC .M M PTM11840 0361 00E2 2412 | DC .S S PTM11845 0362 00E8 2413 | DC .Y Y PTM11850 0363 00D4 2414 | DC .M M PTM11855 0364 00C2 2415 | DC .B B PTM11860 0365 00D6 2416 | DC .O O PTM11865 0366 00D3 2417 | DC .L L PTM11870 0367 00E3 2418 | DC .T T PTM11875 0368 00C1 2419 | DC .A A PTM11880 0369 00C2 2420 | DC .B B PTM11885 036A 00D3 2421 | DC .L L PTM11890 036B 00C5 2422 | DC .E E PTM11895 036C 03EF 2423 | DC P1400 START 'SYSTEM SYM TBL' PTM11900 036D 00D3 2424 | P1220 DC .L L PTM11905 036E 00C5 2425 | DC .E E PTM11910 036F 00E5 2426 | DC .V V PTM11915 0370 00C5 2427 | DC .E E PTM11920 0371 00D3 2428 | DC .L L PTM11925 0372 039F 2429 | DC P1270 START 'LEVEL' PTM11930 0373 00C3 2430 | P1240 DC .C C PTM11935 0374 00D6 2431 | DC .O O PTM11940 0375 00D4 2432 | DC .M M PTM11945 0376 00D4 2433 | DC .M M PTM11950 0377 00D6 2434 | DC .O O PTM11955 0378 00D5 2435 | DC .N N PTM11960 0379 0397 2436 | DC P1250 START 'COMMON' PTM11965 037A 00D6 2437 | P1242 DC .O O PTM11970 037B 00E5 2438 | DC .V V PTM11975 037C 00C5 2439 | DC .E E PTM11980 037D 00D9 2440 | DC .R R PTM11985 037E 00C6 2441 | DC .F F PTM11990 037F 00D3 2442 | DC .L L PTM11995 0380 00D6 2443 | DC .O O PTM12000 0381 00E6 2444 | DC .W W PTM12005 0382 00E2 2445 | DC .S S PTM12010 0383 00C5 2446 | DC .E E PTM12015 0384 00C3 2447 | DC .C C PTM12020 0385 00E3 2448 | DC .T T PTM12025 0386 00D6 2449 | DC .O O PTM12030 0387 00D9 2450 | DC .R R PTM12035 0388 00E2 2451 | DC .S S PTM12040 0389 0405 2452 | DC P1460 START 'OVERFLOW SECTORS' PTM12045 038A 00D4 2453 | P1245 DC .M M 2-8 PTM12050 038B 00C1 2454 | DC .A A 2-8 PTM12055 038C 00C3 2455 | DC .C C 2-8 PTM12060 038D 00D3 2456 | DC .L L 2-8 PTM12065 038E 00C9 2457 | DC .I I 2-8 PTM12070 038F 00C2 2458 | DC .B B 2-8 PTM12075 0390 042B 2459 | DC P1545 START 'MACLIB' 2-8 PTM12080 0391 00E7 2460 | P1246 DC .X X 2-8 PTM12085 0392 00D9 2461 | DC .R R 2-8 PTM12090 0393 00C5 2462 | DC .E E 2-8 PTM12095 0394 00C6 2463 | DC .F F 2-8 PTM12100 0395 0447 2464 | DC P1569 START 'XREF' 2-8 PTM12105 2465 | * 2-8 PTM12110 2466 | * 'COMMON' PTM12115 2467 | * PTM12120 0396 0002 2468 | P1286 DC 2 NO. OF LEVELS ALLOWED 2-10 PTM12125 0397 4018 2469 | P1250 BSI P1280 COMPUTE SIZE OF COMMON PTM12130 0398 D3F5 2470 | STO 3 SCOMN-X3 SAVE IN ASM COMMA PTM12135 0399 4810 2471 | BSC - SKIP IF SIZE NEGATIVE PTM12140 039A 7014 2472 | MDX P1275 GO TO CONTROL RCRD COMMON PTM12145 039B E02E 2473 | AND P1321 MASK OUT SIGN BIT PTM12150 039C D3F5 2474 | STO 3 SCOMN-X3 SAVE POSITIVE RESULT PTM12155 039D 4C00 041F 2475 | BSC L P1530 GO TO CNTRL RCD ERR RTN PTM12160 2476 | * PTM12165 2477 | * 'LEVEL' PTM12170 2478 | * PTM12175 039F 4010 2479 | P1270 BSI P1280 COMPUTE INTRPT LEVEL NO. PTM12180 03A0 9028 2480 | S P1310 HIGHEST LEVEL IS 5 2-10 PTM12185 03A1 4C30 041F 2481 | BSC L P1530,-Z BRANCH TO ERR IF HIGHER2-10 PTM12190 03A3 C400 0228 2482 | LD L NLVLS NO. OF INT LEVELS 2-10 PTM12195 03A5 90F0 2483 | S P1286 *MUST NOT BE GREATER 2-10 PTM12200 03A6 4C10 041F 2484 | BSC L P1530,- *THAN TWO. BR IF ERR 2-10 PTM12205 03A8 C2FE 2485 | LD 2 VALUE-A SAVE INTRPT LEVEL NO. PTM12210 03A9 6680 0228 2486 | LDX I2 NLVLS STORE LEV NO IN 2-10 PTM12215 03AB D600 021E 2487 | STO L2 INTL1 *COMMA 2-10 PTM12220 03AD 7401 0228 2488 | MDX L NLVLS,+1 INCREMENT NO OF INT LEV2-10 PTM12225 03AF 706B 2489 | P1275 MDX P1520 GO TO CONTROL RCRD COMMON PTM12230 2490 | * PTM12235 03B0 0000 2491 | P1280 DC 0 DECIMAL TO BINARY ENTRY PT PTM12240 03B1 C013 2492 | LD P1290 MODIFY OPERAND SCAN IN PTM12245 03B2 D400 052B 2493 | STO L FERR1 PHASE 9 TO CAUSE ALL 2-8 PTM12250 03B4 C012 2494 | LD P1288 *OPND ERRORS TO RETURN 2-8 PTM12255 03B5 D400 052C 2495 | STO L FERR2 HERE WITH ERR CNT = 0 2-8 PTM12260 03B7 7103 2496 | MDX 1 +3 DO NOT ENTER SCAN ROUTINE PTM12265 03B8 4400 04E1 2497 | P1284 BSI L SCAN CVRT NO. TO BINARY 2-8 PTM12270 03BA D06E 2498 | STO P1440 SAVE ACC 2-3 PTM12275 2499 | * 2-3 PTM12280 03BB C03D 2500 | LD P1412 LOAD 1ST WD OF BSI L 2-3 PTM12285 03BC D400 052B 2501 | STO L FERR1 SET UP 1ST HALF OF INST 2-8 PTM12290 03BE C009 2502 | LD P1289 FETCH ADDR 2-8 PTM12295 03BF D400 052C 2503 | STO L FERR2 SET UP 2ND HALF 2-8 PTM12300 03C1 C067 2504 | LD P1440 RESTORE ACC 2-3 PTM12305 2505 | * 2-3 PTM12310 03C2 4C20 041F 2506 | BSC L P1530,Z BRANCH IF NOT Z (BAD NO.) PTM12315 03C4 C2FE 2507 | LD 2 VALUE-A EXIT WITH VALUE IN ACC PTM12320 03C5 4C80 03B0 2508 | P1290 BSC I P1280 EXIT SUBROUTINE PTM12325 2509 | * ABOVE INSTR USED AS CONSTANT /4C80 PTM12330 2510 | * PTM12335 2511 | * CONSTANTS PTM12340 2512 | * PTM12345 03C7 04E1 2513 | P1288 DC SCAN SCAN SUBR ENTRY PT 2-8 PTM12350 03C8 0701 2514 | P1289 DC ERFLG ERROR FLAG SUBR ENTRY 2-8 PTM12355 03C9 0005 2515 | P1310 DC 5 MAX NO. FOR 1130 INTRPT LVL PTM12360 03CA 7FFF 2516 | P1321 DC /7FFF MASK-THE-SIGN-BIT CONSTANT PTM12365 2517 | * PTM12370 2518 | * 'PRINT SYMBOL TABLE' PTM12375 2519 | * PTM12380 03CB C05B 2520 | P1330 LD P1500 PTM12385 03CC EBEF 2521 | P1331 OR 3 STOPT-X3 SET SYM TBL OPTION SW PTM12390 03CD D3EF 2522 | STO 3 STOPT-X3 EQUAL TO 8000 PTM12395 03CE 704C 2523 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12400 2524 | * PTM12405 2525 | * 'LIST' PTM12410 2526 | * PTM12415 03CF C057 2527 | P1340 LD P1500 SET LIST OPTION PTM12420 03D0 EBF2 2528 | OR 3 LSTOP-X3 2-8 PTM12425 03D1 D3F2 2529 | STO 3 LSTOP-X3 SW EQUAL TO 8000 PTM12430 03D2 D302 2530 | STO 3 TLIST-X3 SAVE ORIG COND IN TEMP PTM12435 03D3 7047 2531 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12440 2532 | * PTM12445 2533 | * 'PUNCH SYMBOL TABLE' PTM12450 2534 | * PTM12455 03D4 C3ED 2535 | P1350 LD 3 IPTKB-X3 CHECK FOR PT/KB INPUT PTM12460 03D5 4C20 041F 2536 | BSC L P1530,Z BR TO FLAG AS ERROR PTM12465 03D7 C050 2537 | LD P1510 SET SYM TBL OPION SW=0001 PTM12470 03D8 70F3 2538 | MDX P1331 BRANCH TO OR TO PRNT OPTION PTM12475 2539 | * PTM12480 2540 | * 'TWO PASS MODE' PTM12485 2541 | * PTM12490 03D9 C3ED 2542 | P1360 LD 3 IPTKB-X3 CHECK INPUT DEVICE PTM12495 03DA 4C20 041F 2543 | BSC L P1530,Z ERROR IF PT/KB -BRANCH PTM12500 03DC C04A 2544 | LD P1500 OTHERWISE, MODE SWTCH=8000 PTM12505 03DD D3F3 2545 | STO 3 PSMDE-X3 PTM12510 03DE 703C 2546 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12515 2547 | * PTM12520 2548 | * 'LIST DECK' PTM12525 2549 | * PTM12530 03DF C047 2550 | P1370 LD P1500 SET LIST DECK SW = 8000 PTM12535 03E0 18D0 2551 | P1371 RTE 16 ACC TO EXTENSION PTM12540 2552 | * * PTM12545 03E1 C3EE 2553 | LD 3 ICD25-X3 IS INPUT FROM 2501 PTM12550 03E2 4C20 041F 2554 | BSC L P1530,Z YES, BR TO IND ERROR PTM12555 03E4 C3ED 2555 | LD 3 IPTKB-X3 NO, IS INPUT FROM PT/KB PTM12560 03E5 4C20 041F 2556 | BSC L P1530,Z YES, BR TO IND ERROR PTM12565 03E7 18D0 2557 | RTE 16 RETURN OPTION CODE TO ACC PTM12570 03E8 D3F1 2558 | STO 3 LDKOP-X3 AND SET LIST DECK SW PTM12575 03E9 7031 2559 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12580 2560 | * PTM12585 2561 | * 'LIST DECK E' PTM12590 2562 | * PTM12595 03EA C03D 2563 | P1380 LD P1510 SET LIST DECK SW = 0001 PTM12600 03EB 70F4 2564 | MDX P1371 BRANCH TO CHECK IF OK PTM12605 2565 | * PTM12610 2566 | * 'SAVE SYMBOL TABLE' PTM12615 2567 | * PTM12620 03EC 6C00 0202 2568 | P1390 STX L SAVSW SET SAVSW ON (NZ) PTM12625 03EE 702C 2569 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12630 2570 | * PTM12635 2571 | * 'SYSTEM SYMBOL TABLE' PTM12640 2572 | * PTM12645 03EF C400 000E 2573 | P1400 LD L $CORE SYSTEM SYMBOL TAKES PTM12650 03F1 9038 2574 | S P1420 376 WORDS ON THE DISK. PTM12655 03F2 D044 2575 | STO P1451 COMPUTE THE CORE ADDR TO PTM12660 03F3 D001 2576 | STO P1410+1 SET-UP THE WORD COUNT AND PTM12665 03F4 6600 0000 2577 | P1410 LDX L2 *-* SCTR ADDR OF THE SYSTEM PTM12670 03F6 C849 2578 | LDD P1565+2 SYMBOL TABLE. PTM12675 03F7 DA00 2579 | STD 2 0 PTM12680 03F8 C83D 2580 | LDD P1450 PTM12685 03F9 4400 0275 2581 | P1412 BSI L DISK1 READ THE SYSTEM TABLE PTM12690 2582 | * ABOVE INSTR USED AS CONSTANT /4400 PTM12695 03FB C202 2583 | LD 2 +2 FIRST WORD OF TABLE IS THE PTM12700 03FC D3F0 2584 | STO 3 CTSYM-X3 NO. OF SYMBOLS IN THE ABLE PTM12705 03FD C400 000E 2585 | LD L $CORE LOAD UPPER CORE LIMIT 212 PTM12710 03FF 93F0 2586 | S 3 CTSYM-X3 MINUS NO. ENTRIES 212 PTM12715 0400 93F0 2587 | S 3 CTSYM-X3 MINUS NO. ENTRIES 212 PTM12720 0401 93F0 2588 | S 3 CTSYM-X3 MINUS NO. ENTRIES 212 PTM12725 0402 8093 2589 | A P1286 ADD 2 212 PTM12730 0403 D300 2590 | STO 3 LOEND-X3 PTM12735 0404 7016 2591 | MDX P1520 GO TO CONTROL RCRD COMMON PTM12740 2592 | * PTM12745 2593 | * 'OVERFLOW SECTORS' PTM12750 2594 | * PTM12755 0405 C032 2595 | P1460 LD P1452 MODIFY SCAN TO PROCESS 2-8 PTM12760 0406 D400 0597 2596 | STO L P9114 *COMMA AS BLANK 2-8 PTM12765 0408 40A7 2597 | BSI P1280 COMPUTE NO. OF OVERFLOW 2-8 PTM12770 0409 801E 2598 | A P1510 PTM12775 040A D3F9 2599 | STO 3 THRT2-X3 SECTORS, SAVE IN ASM COMMA PTM12780 040B 903A 2600 | S P1470 CHECK IF NO. GTR THAN 32 PTM12785 040C 4C08 0410 2601 | BSC L P1465,+ BR IT NOT GTR THAN 32 2-8 PTM12790 040E C037 2602 | LD P1470 IF GTR THAN 32, SET THE PTM12795 040F D3F9 2603 | STO 3 THRT2-X3 OVFLO SCTRS = 32 2-8 PTM12800 0410 71FD 2604 | P1465 MDX 1 -3 ADJUST XR1 FOR NEXT FLD 2-8 PTM12805 0411 409E 2605 | BSI P1280 PARAMETER SPILL SCAN 2-8 PTM12810 0412 83F9 2606 | A 3 THRT2-X3 2-8 PTM12815 0413 D330 2607 | STO 3 PARAM-X3 2-8 PTM12820 0414 71FD 2608 | MDX 1 -3 ADJUST XR1 FOR NEXT FLD 2-8 PTM12825 0415 409A 2609 | BSI P1280 SCAN FOR MACRO SK SIZE 2-8 PTM12830 0416 8330 2610 | A 3 PARAM-X3 2-8 PTM12835 0417 D32F 2611 | STO 3 SKLTN-X3 2-8 PTM12840 0418 C020 2612 | LD P1453 RESTORE SCAN TO PROCESS 2-8 PTM12845 0419 D400 0597 2613 | STO L P9114 *COMMA NORMALLY 2-8 PTM12850 2614 | * PTM12855 2615 | * CONTROL RCRD COMMON PTM12860 2616 | * PTM12865 041B 4400 0802 2617 | P1520 BSI L P9MVE MOVE I/P TO PRINT BFR 2-8 PTM12870 041D 4C00 02DD 2618 | BSC L P1060 BRANCH AND INITLZ PTM12875 2619 | * PTM12880 2620 | * RECORD IN INPUT BUFFER WAS PTM12885 2621 | * NOT RECOGNIZABLE AS AN PTM12890 2622 | * ASM CONTROL RECORD. PTM12895 2623 | * PTM12900 041F C824 2624 | P1530 LDD P1567+2 SET I/O AREA HDR 2-8 PTM12905 0420 6700 0219 2625 | LDX L3 ASMCM RESTORE XR3 2-8 PTM12910 0422 DB67 2626 | STD 3 OVLAY-X3 2-8 PTM12915 0423 CB65 2627 | LDD 3 P0170-X3 PREPARE TO 2-8 PTM12920 0424 435C 2628 | BSI 3 DISK1-X3 READ PH 1B INTO CORE 2-8 PTM12925 0425 6400 02AD 2629 | LDX L0 B1150 BR FOR A07 ERROR MSG 2-8 PTM12930 2630 | * PTM12935 2631 | * CONSTANTS PTM12940 2632 | * PTM12945 0427 8000 2633 | P1500 DC /8000 2-8 PTM12950 0428 0001 2634 | P1510 DC /0001 2-8 PTM12955 0429 0000 2635 | P1440 DC *-* TEMP STORAGE FOR LOW END2-8 PTM12960 042A 0130 2636 | P1420 DC 3*100+4 WD CNT OF SYS SYM TBL 2-8 PTM12965 2637 | * 2-8 PTM12970 2638 | * 'MACLIB' 2-8 PTM12975 2639 | * 2-8 PTM12980 042B C818 2640 | P1545 LDD P1567+2 INITLZ MACLIB OVLY 2-8 PTM12985 042C DC00 0280 2641 | STD L OVLAY 2-8 PTM12990 042E 7003 2642 | MDX P1552 LD AND GO TO PH 1B 2-8 PTM12995 042F C80C 2643 | P1550 LDD P1560+2 WD CNT & SCTR ADDR 2-8 PTM13000 0430 DC00 0280 2644 | STD L OVLAY 2-8 PTM13005 0432 2645 | P1552 EQU * 2-8 PTM13010 0432 4400 025F 2646 | BSI L LDXRS GO TO RESTO XR1 & 3 PTM13015 0434 4C00 0270 2647 | BSC L P0130 BRANCH TO READ PHASE 1A PTM13020 2648 | * PTM13025 2649 | * CONSTANTS PTM13030 2650 | * PTM13035 0436 2651 | BSS E 0 MAKE NEXT LOCATION EVEN PTM13040 0436 7000 2652 | P1450 DC /7000 DISKZ READ CODE 2-8 PTM13045 0437 0000 2653 | P1451 DC *-* INITLZ TO SYS TBL I/O ADDR PTM13050 0438 7005 2654 | P1452 MDX X P9116-P9114-1 2-8 PTM13055 0439 6680 2655 | P1453 DC /6680 LDX I2 2-8 PTM13060 043A 00D6 2656 | P1560 DC /D6 SLET ID OF 1A 2-8 PTM13065 043B 2657 | BSS 3 PTM13070 043E 00D7 2658 | P1565 DC /D7 SLET ID OF SYS SYMB TBL 2-8 PTM13075 043F 2659 | BSS 3 PTM13080 0442 00E8 2660 | P1567 DC /E8 SLET ID OF PHASE 1B 2-8 PTM13085 0443 2661 | BSS 3 2-8 PTM13090 0446 0020 2662 | P1470 DC 32 MAX NO. OF OVFLO SCTRS 2-8 PTM13095 2663 | * 2-8 PTM13100 2664 | * 'XREF' 2-8 PTM13105 2665 | * 2-8 PTM13110 0447 C003 2666 | P1569 LD P9171 SET BRANCH ADDR 2-8 PTM13115 0448 D400 0273 2667 | STO L P0140+1 2-8 PTM13120 044A 70E0 2668 | MDX P1545 LOAD PHASE 1B 2-8 PTM13125 044B 03DB 2669 | P9171 DC B1300 2-8 PTM13130 044C 2670 | BSS /0457-* PATCH AREA 2-10 PTM13135 0457 0003 2671 | P1570 DC 3 END PHASE,CONSTANT 3 2-8 PTM13140 *SBRKSLS D6 2672 | ASM CONTROL CARDS 2 V2M08 PTM13145 PHASE 1A CONTROL RECORDS II 2674 | *************************************************** PTM13155 2675 | * * PTM13160 2676 | *STATUS - VERSION 2, MODIFICATION 11 * PTM13165 2677 | * * PTM13170 2678 | *FUNCTION/OPERATION- * PTM13175 2679 | * *IN PASS 1, PHASE 1A DETERMINES THE CORE * PTM13180 2680 | * ADDRESS OF THE DSF BUFFER AND INITIALIZES ITS* PTM13185 2681 | * IOAR HEADER INFORMATION IN THE ASSEMBLER * PTM13190 2682 | * PROGRAM'S COMMUNICATIONS AREA (ASCOM). * PTM13195 2683 | * *IF THE PRINCIPAL INPUT DEVICE IS THE 1134 * PTM13200 2684 | * PAPET TAPE READER, THE CURRENT RECORD IS * PTM13205 2685 | * MOVED OVER 20 POSITIONS TO THE RIGHT AND THE * PTM13210 2686 | * READ-IN ADDRESS IS SET FOR POSITION 21 OF THE* PTM13215 2687 | * I/O AREA. * PTM13220 2688 | * *A CHECK IS MADE TO DETERMINE IF THE SIZE OF * PTM13225 2689 | * WORKING STORAGE IS GREATER THAN OR EQUAL TO * PTM13230 2690 | * ONE PLUS THE NUMBER OF OVERFLOW SECTORS * PTM13235 2691 | * ASSIGNED (MAXIMUM NUMBER OF ASSIGNED OVERFLOW* PTM13240 2692 | * SECTORS EQUALS 32). * PTM13245 2693 | * *PHASE 1A THEN TRANSFERS CONTROL TO THE MASTER* PTM13250 2694 | * OVERLAY CONTROL SUBROUTINE TO FETCH PHASE 2 * PTM13255 2695 | * AND TRANSFER CONTROL TO IT. * PTM13260 2696 | * *IN PASS 2 OF A ONE-PASS MODE ASSEMBLY, AN * PTM13265 2697 | * IMMEDIATE TRANSFER IS MADE TO THE MASTER * PTM13270 2698 | * OVERLAY CONTROL SUBROUTINE TO FETCH PHASE 2 * PTM13275 2699 | * AND TRANSFER CONTROL TO IT. * PTM13280 2700 | * *IN PASS 2 OF A TWO-PASS MODE ASSEMBLY, THE * PTM13285 2701 | * PASS 1 PROCESSING IS DUPLICATED, EXCEPT FOR * PTM13290 2702 | * THE ERROR CHECK ON THE SIZE OF WORKING * PTM13295 2703 | * STORAGE. * PTM13300 2704 | * * PTM13305 2705 | *ENTRY POINTS- * PTM13310 2706 | * * A1000 - ENTRY FROM PHASE 1 * PTM13315 2707 | * * PTM13320 2708 | *INPUT-N/A * PTM13325 2709 | * * PTM13330 2710 | *OUTPUT- N/A * PTM13335 2711 | * * PTM13340 2712 | *EXTERNAL RERERENCES- * PTM13345 2713 | * *SUBROUTINES- * PTM13350 2714 | * * GETER * PTM13355 2715 | * * LDXRS * PTM13360 2716 | * *DCOM/COMMA- * PTM13365 2717 | * $EXIT * PTM13370 2718 | * $IBSY * PTM13375 2719 | * $PHSE * PTM13380 2720 | * SKLTN * PTM13385 2721 | * * PTM13390 2722 | *EXITS- * PTM13395 2723 | * *NORMAL - MASTER OVERLAY CONTROL SUBROUTINE * PTM13400 2724 | * *ERROR - GETER * PTM13405 2725 | * * PTM13410 2726 | *TABLES/WORK AREAS- N/A * PTM13415 2727 | * * PTM13420 2728 | *ATTRIBUTES-REUSABLE * PTM13425 2729 | * * PTM13430 2730 | *NOTES-N/A * PTM13435 2731 | * * PTM13440 2732 | *************************************************** PTM13445 2733 | * PTM13450 0280 2734 | ORG OVLAY PTM13455 0280 0112 2735 | DC A1070-A1000 WORD COUNT OF PH. 1A PTM13460 0281 FF2A 2736 | DC -/D6 SLET ID OF PHASE 1A 2-8 PTM13465 0282 0104 2737 | PHS1A DC A1065-PHS1A ADDR OF ID TABLE PTM13470 0283 0001 2738 | DC 1 NO. OF ID'S TO BE FILLED PTM13475 0282 2739 | ORG *-2 PTM13480 0282 C400 037B 2740 | A1000 LD L A1040 INDICATE THAT PHASE 1A PTM13485 0284 D400 0078 2741 | STO L $PHSE OF ASM IS IN CONTROL PTM13490 0286 1010 2742 | SLA 16 CLEAR SPECIAL LIST 2-8 PTM13495 0287 D400 07A7 2743 | STO L P9YYY *PRINT SWITCH 2-8 PTM13500 0289 C400 000E 2744 | LD L $CORE 2-8 PTM13505 028B 9400 037C 2745 | S L A1041 2-8 PTM13510 028D D074 2746 | STO TEMP2 SAVE DIFFERENCE BETWEEN2-11 PTM13512 2747 | * 4K AND CORE SIZE 2-11 PTM13513 028E 4C18 02AD 2748 | BSC L A1004,+- BR IF 4K CORE 2-8 PTM13515 0290 C3F3 2749 | LD 3 PSMDE-X3 DETERMINE PASS MODE 2-8 PTM13520 0291 4C18 0298 2750 | BSC L A1002,+- BR IF ONE 2-8 PTM13525 0293 C3F2 2751 | LD 3 LSTOP-X3 RESET XREF SW 2-8 PTM13530 0294 E06B 2752 | AND A1039 2-8 PTM13535 0295 D3F2 2753 | STO 3 LSTOP-X3 2-8 PTM13540 0296 D302 2754 | STO 3 TLIST-X3 2-8 PTM13545 0297 7015 2755 | MDX A1004 CONT PHASE 1A 2-8 PTM13550 2756 | * 2-8 PTM13555 0298 C3F4 2757 | A1002 LD 3 PASS-X3 DETERMINE ASM PASS 2-8 PTM13560 0299 4C08 02AD 2758 | BSC L A1004,+ BR IF FIRST PASS 2-8 PTM13565 029B C065 2759 | LD A1038 MODIFY P9MVE SUBR FOR 2-8 PTM13570 029C D400 081C 2760 | STO L PACK-1 *CROSS-REFERENCE 2-8 PTM13575 029E C865 2761 | LDD A1037 MODIFY P9MVE SUBR FOR 2-8 PTM13580 029F D400 0826 2762 | STO L PACK0 *CROSS-REFERENCE 2-8 PTM13585 02A1 1090 2763 | SLT 16 2-8 PTM13590 02A2 D400 0827 2764 | STO L PACK0+1 2-8 PTM13595 02A4 74E0 0776 2765 | MDX L P9233,-32 MODIFY IN LDLBL TO BR 2-10 PTM13600 02A6 C05F 2766 | LD A1029 *TO UPDATE ST NO UNCOND2-10 PTM13605 02A7 D400 0777 2767 | STO L P9233+1 *AND THEN TEST ON LIST 2-10 PTM13610 02A9 7403 0AA5 2768 | MDX L PRBFR,3 ADJUST O/P BFR FOR XREF 2-8 PTM13615 02AB C31E 2769 | LD 3 HTYPE-X3 SAVE HDR TYPE FOR 2-8 PTM13620 02AC D363 2770 | STO 3 P2MWC-X3 *PASS 3 2-8 PTM13625 2771 | * 2-8 PTM13630 02AD C3F3 2772 | A1004 LD 3 PSMDE-X3 DETERMINE PASS MODE 2-8 PTM13635 02AE 4C20 02F0 2773 | BSC L A1035,Z BR IF TWO 2-8 PTM13640 02B0 C3F4 2774 | LD 3 PASS-X3 DETRM ASM PASS PTM13645 02B1 4C20 034B 2775 | BSC L A1020,Z BR IF 2ND PASS 2-8 PTM13650 02B3 6600 0C16 2776 | LDX L2 DFBUF SET DSF BFR TO DSBUF 2-8 PTM13655 02B5 7400 0302 2777 | A1033 MDX L TEMP2,0 CORE SIZE 4K? 2-11 PTM13657 02B7 7001 2778 | MDX *+1 NO, CONTINUE. 2-11 PTM13658 02B8 701B 2779 | MDX A1005 SKIP MACRO PROC.INIT. 2-11 PTM13659 02B9 C3F9 2780 | LD 3 THRT2-X3 LOAD NO.OVFL.SCTRS. 2-11 PTM13660 02BA 8338 2781 | A 3 MCOM7-X3 2-8 PTM13665 02BB D400 12F6 2782 | STO L PBASE SET SCTR POINTERS 2-8 PTM13670 02BD D400 128F 2783 | STO L PBUFF+1 *FOR MACRO PROCESSOR 2-8 PTM13675 02BF C330 2784 | LD 3 PARAM-X3 *PARAMETER SPILL 2-8 PTM13680 02C0 8338 2785 | A 3 MCOM7-X3 2-8 PTM13685 02C1 D330 2786 | STO 3 PARAM-X3 2-8 PTM13690 02C2 9400 037F 2787 | S L A1060 2-8 PTM13695 02C4 D400 12F7 2788 | STO L PLAST 2-8 PTM13700 02C6 C400 037F 2789 | LD L A1060 SET PBUFF BACKWARDS 2-8 PTM13705 02C8 D400 1291 2790 | STO L PBUFF+3 *POINTER 2-8 PTM13710 02CA C400 12F6 2791 | LD L PBASE 2-8 PTM13715 02CC 9400 12F7 2792 | S L PLAST 2-8 PTM13720 02CE 4C08 02D4 2793 | BSC L A1005,+ IF NO OVERFLOW SECTORS 2-8 PTM13725 02D0 C400 12F6 2794 | LD L PBASE *FOR PARAM SPILL 2-8 PTM13730 02D2 D400 12F7 2795 | STO L PLAST *INDICATE 2-8 PTM13735 02D4 6E00 0235 2796 | A1005 STX L2 DSFWR+1 2-8 PTM13740 02D6 C400 0380 2797 | LD L A7001 WRITE FUNC CODE TO ASMCM PTM13745 02D8 D31B 2798 | STO 3 DSFWR-X3 PTM13750 02D9 7201 2799 | MDX 2 +1 PTM13755 02DA 6E00 0232 2800 | STX L2 DSADR SET DSF SCTR ADDR IN ACOM PTM13760 02DC 7201 2801 | MDX 2 +1 PTM13765 02DD 6E00 0231 2802 | STX L2 STADR STARTING ADDR OF DSF BFR PTM13770 02DF 7209 2803 | MDX 2 +9 2-10 PTM13775 02E0 6E00 022A 2804 | STX L2 DSBUF DSF PROG HDR POINTER 2-10 PTM13780 02E2 72FC 2805 | A1032 MDX 2 -4 2-10 PTM13785 02E3 6E00 022E 2806 | STX L2 DFXR2 XR2 ADDR FOR DSF OUTPUT2-10 PTM13790 02E5 7207 2807 | MDX 2 +7 2-10 PTM13795 02E6 6E00 022B 2808 | STX L2 DHPTR DATA HEADER POINTER PTM13800 02E8 7202 2809 | MDX 2 +2 PTM13805 02E9 6E00 022D 2810 | STX L2 DFXR1 XR1 ADDR FOR DSF OUTPUT PTM13810 02EB 7600 0132 2811 | A1031 MDX L2 +306 2-10 PTM13815 02ED 6E00 0230 2812 | STX L2 ENDAD END ADDR OF DSF BFR PTM13820 02EF 7017 2813 | MDX A1036 SKIP TO DETRM DEVICE PTM13825 02F0 6600 0AD2 2814 | A1035 LDX L2 BUFI SET DSF BFR TO BUFI 2-8 PTM13830 02F2 C3F4 2815 | LD 3 PASS-X3 CHECK WHICH PASS 2-10 PTM13835 02F3 4C18 02B5 2816 | BSC L A1033,+- BRANCH IF FIRST PASS 2-10 PTM13840 02F5 C315 2817 | LD 3 DFXR2-X3 CALCULATE ACTUAL DIS- 2-10 PTM13845 02F6 9311 2818 | S 3 DSBUF-X3 *PLACEMENT OF POINTERS 2-10 PTM13850 02F7 1008 2819 | SLA 8 *USED AT DSF-OUTPUT 2-10 PTM13855 02F8 1808 2820 | SRA 8 *AND 2-10 PTM13860 02F9 E805 2821 | OR A1034 *MODIFY THE 2-10 PTM13865 02FA D0E7 2822 | STO A1032 *ABOVE REINITIALIZATION2-10 PTM13870 02FB C317 2823 | LD 3 ENDAD-X3 *CODE 2-10 PTM13875 02FC 9314 2824 | S 3 DFXR1-X3 *ACCORDINGLY, 2-10 PTM13880 02FD D0EE 2825 | STO A1031+1 *IF NECESSARY 2-10 PTM13885 02FE 70D5 2826 | MDX A1005 BR FOR REINIT AT SEC PS2-10 PTM13890 2827 | * PTM13895 2828 | * CONSTANTS PTM13900 2829 | * * PTM13905 02FF 7200 2830 | A1034 DC /7200 MDX - MASK 2-10 PTM13910 0300 8001 2831 | A1039 DC /8001 2-8 PTM13915 0301 6308 2832 | A1038 LDX 3 8 XREF P9MVE INST 2-8 PTM13920 0302 0000 2833 | TEMP2 DC *-* STORAGE FOR DIFFERENCE 2-11 PTM13922 2834 | * BETWEEN 4K AND CORE SIZ2-11 PTM13923 0304 2835 | BSS E 0 FORCE EVEN ADDR 2-8 PTM13925 0304 4C00 1530 2836 | A1037 BSC L X9MVE XREF P9MVE INST 2-8 PTM13930 0306 155E 2837 | A1029 DC IN+1 2-10 PTM13935 2838 | * PTM13940 0307 C3ED 2839 | A1036 LD 3 IPTKB-X3 IS INPUT FROM PT/KB PTM13945 0308 4C18 0329 2840 | BSC L A1010,+- NO, BRANCH PTM13950 2841 | * * PTM13955 030A C400 045B 2842 | LD L RP000 FETCH CORE ADDR OF KB/PT PTM13960 030C 8070 2843 | A A1042 INCRE TO IOAR CONSTANT PTM13965 030D D002 2844 | STO A1011+1 PTM13970 030E C06F 2845 | LD A1044 PTM13975 030F D400 0000 2846 | A1011 STO L *-* CHANGE CONSTANT WITHIN RTN PTM13980 0311 623C 2847 | LDX 2 +60 PTM13985 0312 6E80 0238 2848 | STX I2 RDBFR SET INPUT BFR PTM13990 0314 6E80 0239 2849 | STX I2 RDBFR+1 WD CNT TO 60 PTM13995 0316 6302 2850 | LDX 3 2 SET LOOP CNTR PTM14000 0317 C13C 2851 | A1008 LD 1 +60 NON-BLANK MEANS KB OR PT PTM14005 0318 D150 2852 | STO 1 +80 INPUT. PTM14010 0319 C400 0385 2853 | LD L A1056+1 MOVE FIRST 60 CHARACTERS PTM14015 031B D13C 2854 | STO 1 +60 OVER 20 POSITIONS AND PTM14020 031C 71FF 2855 | MDX 1 -1 FILL FIRST 20 WITH BLANKS PTM14025 031D 72FF 2856 | MDX 2 -1 PTM14030 031E 70F8 2857 | MDX A1008 LOOP PTM14035 031F 7400 0013 2858 | MDX L $IBSY,0 CHECK INPUT BUSY IND PTM14040 0321 70FD 2859 | MDX *-3 LOOP TIL NOT BUSY PTM14045 0322 6580 0239 2860 | LDX I1 RDBFR+1 POINT TO OTHER BFR PTM14050 0324 623C 2861 | LDX 2 +60 SET TO MOVE ENTIRE RCD PTM14055 0325 73FF 2862 | MDX 3 -1 DECRE LOOP CNTR PTM14060 0326 70F0 2863 | MDX A1008 BR TO MOVE OTHER RCD PTM14065 0327 4400 025F 2864 | BSI L LDXRS GO RESTO XR1 & XR3 PTM14070 0329 C3F4 2865 | A1010 LD 3 PASS-X3 CHECK IF PASS 2 PTM14075 032A 4C20 0342 2866 | BSC L A1015,Z BRANCH IF PASS 2 PTM14080 032C C3F8 2867 | LD 3 WSSZE-X3 IF PASS 1, THE SIZE OF WORK PTM14085 032D 932F 2868 | S 3 SKLTN-X3 *STORAGE MUST BE GTE 2-8 PTM14090 032E 9050 2869 | S A1060 1 + NO. OF OVERFLOW SECTORS PTM14095 032F 4C08 0377 2870 | BSC L A1030,+ BRANCH IF WORK STORAGE LESS PTM14100 0331 D3F6 2871 | STO 3 SCRA-X3 SAVE AS NO. OF SECTORS WHEN PTM14105 0332 D3F7 2872 | STO 3 SCRA2-X3 OUTPUTTING TO DISK PTM14110 0333 C32F 2873 | LD 3 SKLTN-X3 NO. OVERFLOW SCTRS EQ 2-8 PTM14115 0334 D3F8 2874 | STO 3 WSSZE-X3 DISPLACEMENT FOR OTHER PTM14120 2875 | * * PTM14125 0335 8310 2876 | A 3 ADJSA-X3 DISK OUTPUTS. ADJUST PTM14130 0336 D310 2877 | STO 3 ADJSA-X3 WS ADDR BY OVERFLOW. PTM14135 0337 6500 0AD2 2878 | LDX L1 BUFI 2-8 PTM14140 0339 6600 0C16 2879 | LDX L2 DFBUF 2-8 PTM14145 2880 | * * PTM14150 033B C3F8 2881 | LD 3 WSSZE-X3 SET DISPLACEMENT FOR PTM14155 033C 8101 2882 | A 1 +1 DISK OUTPUTS TO WORK PTM14160 033D D101 2883 | STO 1 +1 STORAGE PTM14165 033E C3F8 2884 | LD 3 WSSZE-X3 PTM14170 033F 8201 2885 | A 2 +1 PTM14175 0340 D201 2886 | STO 2 +1 PTM14180 0341 7009 2887 | MDX A1020 PTM14185 2888 | * * PTM14190 0342 C3D1 2889 | A1015 LD 3 PRINT-X3 PTM14195 0343 F3D5 2890 | EOR 3 PCPAD-X3 DETRM PRINC PRINT PTM14200 0344 4C20 034B 2891 | BSC L A1020,Z BR IF NOT CONSOLE PRT PTM14205 2892 | * * PTM14210 0346 C400 0AA5 2893 | LD L PRBFR FOR THE CONSOLE PRINT, 2-8 PTM14215 0348 9039 2894 | S A1050 ADJUST THE WD CNT'S PTM14220 0349 D400 0AA5 2895 | STO L PRBFR OF THE PRNT BFRS 2-8 PTM14225 034B C301 2896 | A1020 LD 3 OFCNT-X3 2-8 PTM14230 034C 4C08 0352 2897 | BSC L A1022,+ BR-NO SYMBOL TBL OVFLO 2-8 PTM14235 034E C3F2 2898 | LD 3 LSTOP-X3 RESET XREF SW 2-8 PTM14240 034F E0B0 2899 | AND A1039 2-8 PTM14245 0350 D3F2 2900 | STO 3 LSTOP-X3 2-8 PTM14250 0351 D302 2901 | STO 3 TLIST-X3 2-8 PTM14255 2902 | * 2-8 PTM14265 0352 C3F4 2903 | A1022 LD 3 PASS-X3 DETERMINE ASM PASS 2-8 PTM14270 0353 4C08 036D 2904 | BSC L A1027,+ BR-PASS ONE 2-8 PTM14275 0355 C400 000E 2905 | LD L $CORE 2-8 PTM14280 0357 9024 2906 | S A1041 2-8 PTM14285 0358 4C18 036D 2907 | BSC L A1027,+- BR-4K CORE PTM14290 035A C310 2908 | LD 3 ADJSA-X3 SET ALTERNATE ADJSA 2-9 PTM14295 035B D400 1555 2909 | STO L XADJS 2-9 PTM14300 035D C3F3 2910 | LD 3 PSMDE-X3 2-8 PTM14305 035E 4C20 036D 2911 | BSC L A1027,Z BR-TWO PASS MODE 2-8 PTM14310 0360 C3F2 2912 | LD 3 LSTOP-X3 2-8 PTM14315 0361 E018 2913 | AND H1AC0 2-8 PTM14320 0362 F017 2914 | EOR H1AC0 TEST FOR XREF 2-8 PTM14325 0363 4C20 0374 2915 | BSC L A1028,Z BR, NO XREF SPECIFIED 2-11 PTM14330 0365 C33C 2916 | LD 3 MCGEN-X3 SET DSF SCTR,DO 2-8 PTM14335 0366 8018 2917 | A A1060 *NOT OVLAY INTERM I/P 2-8 PTM14340 0367 D480 0232 2918 | STO I DSADR 2-8 PTM14345 0369 D400 1555 2919 | STO L XADJS SAVE FOR ASM EXIT 2-8 PTM14350 036B 9338 2920 | S 3 MCOM7-X3 2-8 PTM14355 036C D3F8 2921 | STO 3 WSSZE-X3 SET W.S. ADDR 2-8 PTM14360 036D C81A 2922 | A1027 LDD A1065+2 FETCH WD CNT,SCTR ADDR 2-8 PTM14365 036E DB67 2923 | STD 3 OVLAY-X3 2-8 PTM14370 036F 740E 0273 2924 | MDX L P0140+1,+14 INCR OVERLAY ADDR 2-8 PTM14375 2925 | * * PTM14380 0371 4346 2926 | BSI 3 LDXRS-X3 GO TO RESTO XR1 & 3 PTM14385 0372 4C00 0270 2927 | BSC L P0130 BRANCH TO READ PHASE 2 PTM14390 2928 | * PTM14395 0374 C3F7 2929 | A1028 LD 3 SCRA2-X3 SET UP NO. WS SCTRS 2-11 PTM14396 0375 D3F6 2930 | STO 3 SCRA-X3 *FOR SECOND PASS 2-11 PTM14397 0376 70F6 2931 | MDX A1027 2-11 PTM14398 0377 6201 2932 | A1030 LDX 2 +1 ERROR 'A 01' PTM14400 0378 4400 079C 2933 | BSI L GETER PRINT ERROR MESSAGE 2-8 PTM14405 2934 | * PTM14410 2935 | * CONSTANTS PTM14415 2936 | * PTM14420 037A C000 2937 | H1AC0 DC /C000 XREF CONSTANT 2-8 PTM14425 037B 00D6 2938 | A1040 DC /D6 SLET ID OF PHASE 1A 2-8 PTM14430 037C 1000 2939 | A1041 DC /1000 4K CORE CHECK CONSTANT 2-8 PTM14435 037D 000A 2940 | A1042 DC 10 CONSTANT 10 PTM14440 037E 0015 2941 | A1044 DC 21 CONSTANT 21 PTM14445 037F 0001 2942 | A1060 DC 1 PTM14450 0380 7001 2943 | A7001 DC /7001 WRITE FUNCTION CODE PTM14455 0382 2944 | BSS E 0 MAKE NEXT LOCATION EVEN PTM14460 0382 0004 2945 | A1050 DC 4 BFR WD CNT MODIFIER PTM14465 0383 000E 2946 | A1055 DC 14 BFR WD CNT MODIFIER PTM14470 0384 0000 2947 | A1056 DC 0 HOLLERITH BLANK PTM14475 0385 0040 2948 | DC /0040 EBC BLANK PTM14480 0386 00DA 2949 | A1065 DC /DA SLET ID OF PHASE 2 2-8 PTM14485 0387 2950 | BSS 3 PTM14490 038A 2951 | BSS /0394-* PHASE 1A PATCH AREA 2-10 PTM14495 0394 0000 2952 | A1070 DC 0 PTM14500 *SBRKSLS D7 2953 | ASM DUMMY SYST SYMBOL TBL V2M08 PTM14505 ASM DUMMY PHASE 2955 | *************************************************** PTM14515 2956 | * * PTM14520 2957 | *STATUS - VERSION 2, MODIFICATION 8 * PTM14525 2958 | * * PTM14530 2959 | *FUNCTION-THIS PHASE IS INCLUDED ONLY TO ALLOCATE * PTM14535 2960 | * DISK STORAGE FOR THE SYSTEM SYMBOL TABLE. PTM14540 2961 | * * PTM14545 2962 | *ENTRY POINTS-NONE * PTM14550 2963 | * * PTM14555 2964 | *EXITS-NONE * PTM14560 2965 | * * PTM14565 2966 | *TABLES/WORK AREAS-N/A * PTM14570 2967 | * * PTM14575 2968 | *ATTRIBUTES-N/A * PTM14580 2969 | * * PTM14585 2970 | *************************************************** PTM14590 ASM DUMMY PHASE 0000 2972 | ORG 0 PTM14600 0000 0001 2973 | DC 1 WORD COUNT PTM14605 0001 00D7 2974 | DC @ASYM PHASE ID PTM14610 0002 2975 | BSS /12E PTM14615 0130 0000 2976 | DC 0 DUMMY PHASE DATA PTM14620 0131 FFFF 2977 | DC /FFFF END-OF-PHASE INDICATOR PTM14625 00D7 2978 | @ASYM EQU /D7 ASM PHASE ID 2-8 PTM14630 *SBRKSLS D8 2979 | ASM SYMBOL TABLE OPTIONS PHASE V2M08 PTM14635 ***PHASE 3 - SYMBOL TABLE OPTIONS*** 2981 | *************************************************** PTM14645 2982 | * * PTM14650 2983 | *STATUS - VERSION 2, MODIFICATION 11 * PTM14655 2984 | * * PTM14660 2985 | *FUNCTION/OPERATION- * PTM14665 2986 | * *PHASE 3 IS CALLED INTO CORE AS PART 1 OF THE * PTM14670 2987 | * ASSEMBLER PROGRAM'S EXIT TO THE SUPERVISOR. * PTM14675 2988 | * *IF A REQUEST HAS BEEN MADE BY CONTROL RECORD * PTM14680 2989 | * THAT THE SYMBOL TABLE BE SAVED, THE FOLLOWING* PTM14685 2990 | * CHECKS ARE MADE- * PTM14690 2991 | * *DETERMINE THAT THE RELOCATION MODE OF * PTM14695 2992 | * THE ASSEMBLE IS ABSOLUTE. * PTM14700 2993 | * *DETERMINE THAT NO ERRORS OCCURRED IN THE* PTM14705 2994 | * ASSEMBLY. * PTM14710 2995 | * *DETERMINE THAT NO MORE THAN ONE HUNDRED * PTM14715 2996 | * SYMBOLS WERE UTILIZED. * PTM14720 2997 | * IF THESE CONDITIONS ARE MET, THE SYMBOL TABLE* PTM14725 2998 | * IS WRITTEN TO THE DISK IN THE SYSTEM SYMBOL * PTM14730 2999 | * TABLE SECTOR WITHIN THE ASSEMBLER PROGRAM. * PTM14735 3000 | * IF THESE CONDITIONS ARE NOT MET, AN ERROR * PTM14740 3001 | * MESSAGE IS PRINTED AND THE SYMBOL TABLE IS * PTM14745 3002 | * NOT SAVED. * PTM14750 3003 | * *PHASE 3 ALSO PERFORMS THE PRINTING AND * PTM14755 3004 | * PUNCHING OF THE SYMBOL TABLE, AS REQUESTED BY* PTM14760 3005 | * THE USER ON CONTROL RECORDS. * PTM14765 3006 | * *AT THE COMPLETION OF THE SYMBOL TABLE OPTIONS* PTM14770 3007 | * PROCESSING, PHASE 4 IS FETCHED INTO CORE AND * PTM14775 3008 | * CONTROL IS TRANSFERRED TO IT. * PTM14780 3009 | * * PTM14785 3010 | *ENTRY POINTS- * PTM14790 3011 | * *P3001 - ENTRY FROM PHASE 12 * PTM14795 3012 | * * PTM14800 3013 | *INPUT-N/A * PTM14805 3014 | * * PTM14810 3015 | *OUTPUT * PTM14815 3016 | * *THE SYMBOL TABLE IF REQUESTED * PTM14820 3017 | * * PTM14825 3018 | *EXTERNAL RERERENCES- * PTM14830 3019 | * *SUBROUTINES- * PTM14835 3020 | * * DISK1 * PTM14840 3021 | * * GETER * PTM14845 3022 | * * GTHDG * PTM14850 3023 | * * LDXRS * PTM14855 3024 | * * STRT9 * PTM14860 3025 | * * STXRS * PTM14865 3026 | * * PRINCIPAL PRINT SUBROUTINE * PTM14870 3027 | * * PUNCH CONVERSION SUBROUTINE * PTM14875 3028 | * *1442 SYSTEM DEVICE SUBROUTINE * PTM14880 3029 | * *DCOM/COMMA- * PTM14885 3030 | * $CH12 * PTM14890 3031 | * $CORE * PTM14895 3032 | * $IBSY * PTM14900 3033 | * $PRET * PTM14905 3034 | * $PBSY * PTM14910 3035 | * $PHSE * PTM14915 3036 | * @RP67 * PTM14920 3037 | * * PTM14925 3038 | *EXITS- * PTM14930 3039 | * *NORMAL - MASTER OVERLAY CONTROL SUBROUTINE * PTM14935 3040 | * *ERROR - GETER SUBROUTINE * PTM14940 3041 | * * PTM14945 3042 | *TABLES/WORK AREAS- N/A * PTM14950 3043 | * * PTM14955 3044 | *ATTRIBUTES-REUSABLE * PTM14960 3045 | * * PTM14965 3046 | *NOTES - ASSURE THAT THIS PHASE IS ORG'D TO SAME * PTM14970 3047 | * LOCATION AS RDCRD ROUTINE IN PHASE 9, * PTM14972 3048 | * * PTM14975 3049 | *************************************************** PTM14980 3050 | * PTM14985 07A8 3051 | ORG /07A8 ABS ORIGIN AT RDCRD 2-11 PTM14990 07A8 0253 3052 | DC P3900-P3001 WD CNT PHASE 3 PTM14995 07A9 FF28 3053 | DC -/D8 SLET ID OF PHASE 3 2-8 PTM15000 07AA 01EE 3054 | PHS03 DC P3800-PHS03 ID TABLE ADDR PTM15005 07AB 0003 3055 | DC 3 NO. OF ID'S TO BE FILLED2-8 PTM15010 07AA 3056 | ORG *-2 PTM15015 3057 | * PTM15020 3058 | * * PTM15025 07AA C030 3059 | P3001 LD PH3ID PTM15030 07AB D400 0078 3060 | STO L $PHSE IDENTIFY THE PHASE PTM15035 07AD 74FE 0219 3061 | MDX L LOEND,-2 POINT TO FIRST ENTRY PTM15040 07AF C480 0233 3062 | LD I OFSAD FETCH OVFLO SCTR ADDR PTM15045 07B1 9301 3063 | S 3 OFCNT-X3 PTM15050 07B2 D480 0233 3064 | STO I OFSAD SET ADDR = 1ST OVFLO SCTR PTM15055 07B4 C301 3065 | LD 3 OFCNT-X3 PTM15060 07B5 4C18 07BA 3066 | BSC L *+3,+- BR IF NO OVERFLOW PTM15065 07B7 802A 3067 | A P3920 OTHERWISE, SAVE NO. +1 PTM15070 07B8 D400 0965 3068 | STO L SAVCT PTM15075 07BA C3E9 3069 | LD 3 SAVSW-X3 CHK 'SAV SYM TBL' SWTCH PTM15080 07BB 4C18 07EA 3070 | BSC L P3300,+- BR IF OFF (NO SAVE REQ) PTM15085 3071 | * * PTM15090 07BD C32B 3072 | LD 3 RLMDE-X3 CHECK ASSEMBLY MODE PTM15095 07BE 4C20 07E7 3073 | BSC L P3200,Z BR (ERROR) IF MODE NOT ABS PTM15100 3074 | * * PTM15105 07C0 C3FD 3075 | LD 3 ERCNT-X3 CHECK FOR ASSEMBLY ERRORS PTM15110 07C1 4C20 07E7 3076 | BSC L P3200,Z BR (ERROR) IF ANY OCCURRED PTM15115 3077 | * * PTM15120 07C3 C3F0 3078 | LD 3 CTSYM-X3 PTM15125 07C4 9018 3079 | S P3910 CHECK CNT OF SYMBOLS PTM15130 07C5 4C30 07E7 3080 | BSC L P3200,-Z BR (ERROR) IF OVER 100 PTM15135 3081 | * * PTM15140 07C7 C400 000E 3082 | LD L $CORE PTM15145 07C9 9014 3083 | S P3915 PTM15150 07CA D003 3084 | STO P3003+1 SET UP CORE ADDR OF TBL PTM15155 07CB D400 0863 3085 | STO L PTFNC+1 PTM15160 07CD 6600 0000 3086 | P3003 LDX L2 *-* POINT XR2 TO TBL PTM15165 07CF C3F0 3087 | LD 3 CTSYM-X3 FETCH SYMBOL COUNT PTM15170 07D0 D202 3088 | STO 2 +2 1ST WRD OF SCTR IS CNT PTM15175 07D1 CC00 099E 3089 | LDD L P3800+6 FETCH WD CNT & SCTR ADDR PTM15180 07D3 DA00 3090 | STD 2 0 SET UP DISK IOAR HDR PTM15185 07D4 18D0 3091 | RTE 16 PTM15190 07D5 CC00 0862 3092 | LDD L PTFNC PTM15195 07D7 435C 3093 | BSI 3 DISK1-X3 BR TO SAVE SYMBOL TBL PTM15200 07D8 7011 3094 | MDX P3300 BR TO CHECK OTHER OPTIONS PTM15205 3095 | * * PTM15210 3096 | * CONSTANTS PTM15215 3097 | * PTM15220 07D9 003C 3098 | D0060 DC 60 LINE PRINT WD CNT PTM15225 07DA 0008 3099 | D0008 DC 8 CONSTANT 8 PTM15230 07DB 00D8 3100 | PH3ID DC /D8 SLET ID OF PHASE 3 2-8 PTM15235 07DC 000B 3101 | ELEVN DC 11 CONSTANT ELEVEN PTM15240 07DD 0064 3102 | P3910 DC 100 CONSTANT ONE HUNDRED PTM15245 07DE 0130 3103 | P3915 DC /130 SYM TBL WD CNT PTM15250 07E0 3104 | BSS E 0 FORCE EVEN ADDR 2-8 PTM15255 07E0 7001 3105 | P3918 DC /7001 DK WRITE FUNC CODE 2-8 PTM15260 07E1 0AA6 3106 | DC PRBFR+1 I/O AREA ADDR 2-8 PTM15265 07E2 0001 3107 | P3920 DC 1 CONSTANT ONE PTM15270 07E3 0AA7 3108 | P3925 DC HDGBF ADDR PAGE HEADING BFR 2-8 PTM15275 07E4 3109 | BSS E 0 FORCE EVEN ADDR 2-8 PTM15280 07E4 0012 3110 | P3926 DC 18 WORD COUNT OF PAGE HD 2/11 PTM15285 07E5 0007 3111 | DC #HDNG SCTR ADDR PAGE HDNG 2-8 PTM15290 07E6 0021 3112 | P3927 DC 33 WD CNT PAGE HDNG 2-8 PTM15295 3113 | * PTM15300 07E7 6204 3114 | P3200 LDX 2 +4 INDICATE ASM ERROR 'A 04' PTM15305 07E8 4400 079C 3115 | BSI L GETER GO TO PRINT ERR MSG 2-8 PTM15310 3116 | * * PTM15315 07EA C3EF 3117 | P3300 LD 3 STOPT-X3 CHECK FOR PRNT/PUNCH REQ PTM15320 07EB 4C18 0988 3118 | BSC L P3000,+- EXIT IF NEITHER REQ PTM15325 07ED 4C10 0815 3119 | BSC L NOPRT,- SKIP HDNG IF NO PRINT REQ PTM15330 07EF 7400 0036 3120 | MDX L $PBSY,0 LOOP ON PRINT BUSY 2-11 PTM15332 07F1 70FD 3121 | MDX *-3 2-11 PTM15333 07F2 C8F1 3122 | LDD P3926 SET I/O AREA ADDR TO 2-8 PTM15335 07F3 DC80 07E1 3123 | STD I P3918+1 *INITIALZ PAGE HDNG 2-8 PTM15340 07F5 C8EA 3124 | LDD P3918 PREPARE TO READ PAGE 2-8 PTM15345 07F6 90EB 3125 | S P3920 *HDNG 2-8 PTM15350 07F7 435C 3126 | BSI 3 DISK1-X3 READ PAGE HDNG 2-8 PTM15355 07F8 C0EA 3127 | LD P3925 2-8 PTM15360 07F9 80E2 3128 | A ELEVN PTM15365 07FA D006 3129 | STO FILBF+1 FETCH HDNG BFR ADDR PTM15370 07FB 80DE 3130 | A D0008 PTM15375 07FC D00E 3131 | STO BLKBF+1 PTM15380 07FD 6208 3132 | LDX 2 +8 LOOP CNTR PTM15385 07FE CE00 09A2 3133 | LDD L2 STHDR-2 FETCH SYM TBL HDR PTM15390 0800 DE00 0000 3134 | FILBF STD L2 *-* SET UP IN HDNG BFR PTM15395 0802 72FE 3135 | MDX 2 -2 DECRE LOOP CNTR PTM15400 0803 70FA 3136 | MDX FILBF-2 LOOP TIL COMPLETE PTM15405 0804 C400 09A4 3137 | LD L STHDR 2-8 PTM15410 0806 D400 0AB3 3138 | STO L HDGBF+12 2-8 PTM15415 3139 | * * PTM15420 0808 620E 3140 | LDX 2 +14 LOOP CNTR PTM15425 0809 C85A 3141 | LDD BLNKS PTM15430 080A DE00 0000 3142 | BLKBF STD L2 *-* BLANK THE REST OF THE BFR PTM15435 080C 72FE 3143 | MDX 2 -2 PTM15440 080D 70FC 3144 | MDX BLKBF PTM15445 080E C0D7 3145 | LD P3927 SET EXPANDED WD CNT 2-8 PTM15450 080F D480 07E1 3146 | STO I P3918+1 2-8 PTM15455 0811 C8CE 3147 | LDD P3918 2-8 PTM15460 0812 435C 3148 | BSI 3 DISK1-X3 WRITE PAGE HDNG TO DK 2-8 PTM15465 0813 4400 0723 3149 | BSI L GTHDG RESTORE PAGE & PR HDNG 2-8 PTM15470 3150 | * * PTM15475 0815 C3EF 3151 | NOPRT LD 3 STOPT-X3 PTM15480 0816 1001 3152 | SLA 1 SHIFT OUT PRINT REQ PTM15485 0817 4C08 0821 3153 | BSC L XCHBF,+ SKIP 1442 RD IF NO PNCH PTM15490 0819 CBD9 3154 | LDD 3 I1442-X3 FETCH WD CNT & SCTR ADDR PTM15495 081A DC80 045B 3155 | STD I RP000 SET UP DISK IOAR HDR INFO PTM15500 081C C400 045B 3156 | LD L RP000 IOAR ADDR PTM15505 081E 18D0 3157 | RTE 16 PTM15510 081F C04A 3158 | LD P3985 READ FUNC CODE 2-8 PTM15515 0820 435C 3159 | BSI 3 DISK1-X3 GO LOAD THE 1442 RTN PTM15520 3160 | * * PTM15525 0821 C846 3161 | XCHBF LDD P3930 FETCH BFR ADDRESSES 2-8 PTM15530 0822 DB1F 3162 | STD 3 RDBFR-X3 CASE DBL BFRING INHIBITED. PTM15535 0823 6580 0238 3163 | LDX I1 RDBFR PTM15540 0825 4342 3164 | BSI 3 STXRS-X3 GO INITIAL LDXRS RTN PTM15545 0826 C0B2 3165 | LD D0060 FETCH PRINT WD CNT PTM15550 0827 D100 3166 | STO 1 0 SET NEW WD CNT IN BFR PTM15555 3167 | * * PTM15560 0828 C83D 3168 | LDD DCOMA PTM15565 0829 DC80 086B 3169 | STD I P3935 SET UP DISK IOAR HDR INF02-9PTM15570 082B C03F 3170 | LD P3935 IOAR ADDR 2-8 PTM15575 082C 18D0 3171 | RTE 16 PTM15580 082D C03C 3172 | LD P3985 READ FUNC CODE 2-8 PTM15585 082E 435C 3173 | BSI 3 DISK1-X3 GO TO LOAD DCOM PTM15590 3174 | * * PTM15595 082F C3FF 3175 | P3330 LD 3 HIEND-X3 PTM15600 0830 9300 3176 | S 3 LOEND-X3 COMPUTE SIZE OF SYM TBL PTM15605 0831 80B0 3177 | A P3920 PTM15610 0832 18D0 3178 | RTE 16 PTM15615 0833 1010 3179 | SLA 16 PTM15620 0834 A822 3180 | D THREE COMPUTE NUMBER OF PTM15625 0835 D022 3181 | STO ENTRE ENTRIES IN TBL. PTM15630 3182 | * PTM15635 0836 18D0 3183 | RTE 16 PTM15640 0837 1010 3184 | SLA 16 PTM15645 0838 A81D 3185 | D KFIVE SET CNTR TO PRINT 5 PTM15650 0839 D01B 3186 | STO LINCT ENTRIES PER LINE. PTM15655 083A 4C18 084E 3187 | BSC L P333X,+- BR IF LESS THAN 1 FUL LINE PTM15660 083C 18D0 3188 | RTE 16 PTM15665 083D D01B 3189 | STO EXTRA SAVE LEFT-OVER ENTRIES PTM15670 083E 7405 085D 3190 | MDX L CNTR1,+5 SET FORMAT 5 ENTRIES PTM15675 0840 4346 3191 | RESTO BSI 3 LDXRS-X3 GO RESTO XR1 PTM15680 0841 6302 3192 | LDX 3 +2 SET TO CLEAR TWO BFR'S PTM15685 0842 6228 3193 | LDX 2 40 SET UP LOOP CNTR PTM15690 0843 C820 3194 | LDD BLNKS PTM15695 0844 D901 3195 | P3332 STD 1 +1 FILL THE INPUT 2-8 PTM15700 0845 7102 3196 | MDX 1 +2 BUFFER WITH BLANKS PTM15705 0846 72FF 3197 | MDX 2 -1 PTM15710 0847 70FC 3198 | MDX P3332 LOOP TIL CLEARED 2-8 PTM15715 0848 73FF 3199 | MDX 3 -1 DECRE LOOP CNTR PTM15720 0849 7001 3200 | MDX *+1 SKIP TO SET FOR NEXT BFR PTM15725 084A 7021 3201 | MDX P3335 BR TO CONTINUE PTM15730 3202 | * * PTM15735 084B 6580 0239 3203 | LDX I1 RDBFR+1 POINT TO SECOND BFR PTM15740 084D 70F4 3204 | MDX P3332-2 LOOP TO CLEAR NEXT BFR 2-8 PTM15745 3205 | * * PTM15750 084E 7401 0855 3206 | P333X MDX L LINCT,+1 SET TO PRINT ONE LINE PTM15755 0850 18D0 3207 | RTE 16 PTM15760 0851 4C18 0988 3208 | BSC L P3000,+- EXIT IF NO SYMBOLS DEFINED PTM15765 0853 D009 3209 | STO CNTR1 SET NO. OF ENTRIES PTM15770 0854 70EB 3210 | MDX RESTO PTM15775 3211 | * * PTM15780 3212 | * CONSTANTS PTM15785 3213 | * PTM15790 0855 0000 3214 | LINCT DC 0 LINE CNT PTM15795 0856 0005 3215 | KFIVE DC 5 CONSTANT 5 PTM15800 0857 0003 3216 | THREE DC 3 CONSTANT 3 PTM15805 0858 0000 3217 | ENTRE DC 0 SAVE NO. OF ENTRIES PTM15810 0859 0000 3218 | EXTRA DC 0 SAVE NO. LEFT OVER PTM15815 085A 00D4 3219 | EBCM DC .M EBC 'M' PTM15820 085B 00C1 3220 | EBCA DC .A EBC 'A' PTM15825 085C 0000 3221 | P3334 DC *-* TEMP STORAGE AREA 2-8 PTM15830 085D 0000 3222 | CNTR1 DC 0 ENTRY CNTR PTM15835 085E 000A 3223 | P3980 DC 10 CONSTANT TEN PTM15840 085F FFC7 3224 | DC .A-.0-10 CONSTANT 'C1-F0-TEN' PTM15845 0860 00FA 3225 | DC .0+10 CONSTANT 'F0+TEN' PTM15850 3226 | * * PTM15855 0862 3227 | BSS E 0 PTM15860 0862 7001 3228 | PTFNC DC /7001 WRITE FUNC CODE PTM15865 0863 0000 3229 | DC *-* SYS SYM TBL ADDR PTM15870 0864 4040 3230 | BLNKS DC /4040 PACKED EBC BLANKS PTM15875 0865 4040 3231 | DC /4040 PACKED EBC BLANKS PTM15880 0866 0014 3232 | DCOMA DC 20 WD CNT AND PTM15885 0867 0001 3233 | DC DCOMM SCTR ADDR OF DCOMM PTM15890 0868 0A01 3234 | P3930 DC IOBF1 ADDR READ/PUNCH BFR 1 2-8 PTM15895 0869 0A53 3235 | DC IOBF2 ADDR READ/PUNCH BFR 2 2-8 PTM15900 086A 7000 3236 | P3985 DC /7000 READ FUNCTION CODE 2-8 PTM15905 086B 0AD4 3237 | P3935 DC DCBUF DCOMM BUFFER 2/11 PTM15910 3238 | * * PTM15915 086C 4400 025F 3239 | P3335 BSI L LDXRS GO RESTO XR1 AND XR3 PTM15920 086E 6680 0218 3240 | LDX I2 HIEND SET SYM TBL POINTER PTM15925 0870 6780 085D 3241 | CNVR3 LDX I3 CNTR1 INITIALIZE LOOP CNTR PTM15930 0872 6B56 3242 | STX 3 RESET+1 SAVE LOOP CNTR PTM15935 3243 | * * PTM15940 0873 C2FF 3244 | LOOP1 LD 2 -1 FETCH FIRST WORD OF NAME PTM15945 0874 18D0 3245 | RTE 16 SAVE IN EXT PTM15950 0875 C0EE 3246 | LD BLNKS PTM15955 0876 D101 3247 | STO 1 +1 INITIAL TO BLNKS PTM15960 0877 1010 3248 | SLA 16 PTM15965 0878 1081 3249 | SLT 1 SHIFT IN IND. BIT PTM15970 0879 4C18 0880 3250 | BSC L CHEKR,+- BR IF NOT MULT DEFINED PTM15975 087B C0DE 3251 | LD EBCM OTHERWISE, PUT AN PTM15980 087C 1008 3252 | SLA 8 LEFT JUSTIFY PTM15985 087D E901 3253 | OR 1 +1 PTM15990 087E D101 3254 | STO 1 +1 EBC 'M' IN BFR. PTM15995 087F 1010 3255 | SLA 16 PTM16000 0880 1081 3256 | CHEKR SLT 1 CHECK RELOCATION MODE PTM16005 0881 4C20 088A 3257 | BSC L CONVR-1,Z BR IF RELOCATABLE PTM16010 0883 C400 0244 3258 | LD L RLMDE CHECK RELOC. MODE OF ASM PTM16015 0885 4C18 088A 3259 | BSC L CONVR-1,+- BR IF ABSOLUTE PTM16020 0887 C0D3 3260 | LD EBCA OTHERWISE, PUT AN PTM16025 0888 E901 3261 | OR 1 +1 PTM16030 0889 D101 3262 | STO 1 +1 SET UP IN OUTPUT BFR PTM16035 088A 7102 3263 | MDX 1 +2 INCRE OUTPUT POINTER PTM16040 3264 | * * PTM16045 3265 | *************************************************** PTM16050 3266 | * * PTM16055 3267 | * THIS BLOCK OF CODING SETS UP 5 ENTRIES * PTM16060 3268 | * OF THE SYMBOL TBL IN THE INPUT BFR * PTM16065 3269 | * * PTM16070 3270 | *************************************************** PTM16075 088B C200 3271 | CONVR LD 2 0 2ND WORD OF NAME PTM16080 088C 18D0 3272 | RTE 16 PTM16085 088D C2FF 3273 | LD 2 -1 1ST WORD OF NAME PTM16090 088E 4400 0972 3274 | BSI L CONNC BR TO CONVERT IT PTM16095 3275 | * * PTM16100 0890 6A17 3276 | STX 2 SAVR2+1 SAVE XR2 PTM16105 3277 | * * PTM16110 0891 C2FE 3278 | LD 2 -2 FETCH LABEL VALUE PTM16115 0892 6204 3279 | LDX 2 +4 SET TO CONVERT TO 4 CHAR PTM16120 0893 18D0 3280 | RTE 16 SHIFT TO Q PTM16125 0894 6302 3281 | LDX 3 +2 SET LEFT-RIGHT IND PTM16130 0895 1010 3282 | P3350 SLA 16 CLEAR ACC PTM16135 0896 1084 3283 | SLT 4 SHIFT IN FIRST CHAR PTM16140 0897 90C6 3284 | S P3980 PTM16145 0898 4810 3285 | BSC - PTM16150 0899 80C5 3286 | A P3980+1 =.A-.0-10 PTM16155 089A 80C5 3287 | A P3980+2 =.0+10 PTM16160 089B 73FF 3288 | MDX 3 -1 DECRE LFT/RT IND PTM16165 089C 7006 3289 | MDX P3360 SKIP TO HANDLE LEFT PTM16170 089D E8BE 3290 | OR P3334 OR RT WITH LEFT 2-8 PTM16175 089E D100 3291 | STO 1 0 OUTPUT WORD PTM16180 089F 7101 3292 | MDX 1 +1 INCRE OUTPUT POINTER PTM16185 08A0 72FF 3293 | MDX 2 -1 DECRE CHAR CNTR PTM16190 08A1 70F2 3294 | MDX P3350-1 LOOP TIL COMPLETE PTM16195 3295 | * * PTM16200 08A2 7004 3296 | MDX SAVR2 BR TO RESTO XR2 & XR3 PTM16205 3297 | * * PTM16210 08A3 1008 3298 | P3360 SLA 8 LEFT-JUSTIFY PTM16215 08A4 D0B7 3299 | STO P3334 SAVE TEMPORARILY 2-8 PTM16220 08A5 72FF 3300 | MDX 2 -1 DECRE CHAR CNTR PTM16225 08A6 70EE 3301 | MDX P3350 BR TO CONTINUE CONVERSION PTM16230 3302 | * * PTM16235 08A7 6600 0000 3303 | SAVR2 LDX L2 *-* RESTO XR2 PTM16240 08A9 72FD 3304 | MDX 2 -3 DECRE SYM TBL POINTER PTM16245 08AA 74FF 085D 3305 | MDX L CNTR1,-1 DECRE LOOP CNTR PTM16250 08AC 70C6 3306 | MDX LOOP1 LOOP TO SET UP NEXT ENTRY PTM16255 3307 | * * PTM16260 08AD 4400 025F 3308 | BSI L LDXRS GO TO RESTO XR1 & XR3 PTM16265 3309 | * * PTM16270 08AF C3EF 3310 | LD 3 STOPT-X3 PTM16275 08B0 4C10 08C3 3311 | BSC L PUNCH-1,- BR IF NO PRNT REG PTM16280 08B2 7403 045C 3312 | MDX L PR000,+3 INCRE TO ENTRY POINT PTM16285 08B4 C31F 3313 | LD 3 RDBFR-X3 I/O AREA ADDR PTM16290 08B5 18D0 3314 | RTE 16 PTM16295 08B6 C0AB 3315 | LD PTFNC WRITE FNC CODE TO ACC PTM16300 08B7 4480 045C 3316 | BSI I PR000 GO TO PRINT A LINE PTM16305 08B9 74FD 045C 3317 | MDX L PR000,-3 PTM16310 08BB C400 0036 3318 | LD L $PBSY TEST PRINTER BUSY PTM16315 08BD 4C20 08BB 3319 | BSC L *-4,Z LOOP TIL PTNTR NOT BUSY PTM16320 08BF C480 0006 3320 | LD I $CH12 CHECK CHANNEL 12 PTM16325 08C1 4420 0723 3321 | BSI L GTHDG,Z IF ON,BR TO PRNT HDNG 2-8 PTM16330 08C3 6A77 3322 | STX 2 P3SV2+1 SAVE XR2 PTM16335 3323 | * * PTM16340 08C4 C3EF 3324 | PUNCH LD 3 STOPT-X3 PTM16345 08C5 100F 3325 | SLA 15 PTM16350 08C6 4C10 0927 3326 | BSC L P3367,- BR IF NO PUNCH REQ 2-8 PTM16355 3327 | * * PTM16360 3328 | * THIS MODULE HANDLES THE PUNCHING OF THE * PTM16365 3329 | * SYMBOL TABLE - ONE SYMBOL PER CARD * PTM16370 3330 | * * PTM16375 08C8 6600 0000 3331 | RESET LDX L2 *-* PTM16380 08CA 6A92 3332 | STX 2 CNTR1 INITIAL LOOP CNTR PTM16385 08CB 6600 0AD4 3333 | LDX L2 DCBUF DCOMM POINTER 2/11 PTM16390 08CD 7202 3334 | MDX 2 +2 PTM16395 08CE C211 3335 | LD 2 #RP67 CHECK 1442 SWTCH PTM16400 08CF 4C20 08D4 3336 | BSC L MOD67,Z BR IF MOD 6/7 PRESENT PTM16405 08D1 C400 0964 3337 | LD L BRNCH SET TO SKIP READING PTM16410 08D3 D000 3338 | STO MOD67 FOR A BLANK CARD. PTM16415 3339 | * * PTM16420 08D4 C400 0239 3340 | MOD67 LD L RDBFR+1 BFR ADDR PTM16425 08D6 18D0 3341 | RTE 16 PTM16430 08D7 C092 3342 | LD P3985 2-8 PTM16435 08D8 7403 045B 3343 | MDX L RP000,+3 PTM16440 08DA 4480 045B 3344 | BSI I RP000 BR TO 1442 RTN PTM16445 08DC 74FD 045B 3345 | MDX L RP000,-3 PTM16450 3346 | * * PTM16455 08DE 7400 0013 3347 | MDX L $IBSY,0 TEST READER BUSY PTM16460 08E0 70FD 3348 | MDX *-3 LOOP TIL NOT BUSY PTM16465 08E1 6350 3349 | LDX 3 +80 LOOP CNTR PTM16470 08E2 6680 0239 3350 | LDX I2 RDBFR+1 BFR PNTR PTM16475 08E4 C201 3351 | RDBLK LD 2 +1 SCAN FOR ZERO'S PTM16480 08E5 4C20 093E 3352 | BSC L ERROR,Z BR TO ERR IF NON-ZERO PTM16485 08E7 7201 3353 | MDX 2 +1 INCRE BFR PNTR PTM16490 08E8 73FF 3354 | MDX 3 -1 DECRE LOOP CNTR PTM16495 08E9 70FA 3355 | MDX RDBLK LOOP TIL 80 CC CHECKED PTM16500 3356 | * * PTM16505 08EA 6680 0239 3357 | MOVE1 LDX I2 RDBFR+1 SET PNCH BFR POINTER PTM16510 08EC 7215 3358 | MDX 2 +21 POINT TO CC 21 PTM16515 08ED 7102 3359 | MDX 1 +2 INCRE INPUT POINTER PTM16520 08EE C100 3360 | LD 1 0 FETCH NAME FROM PRNT PTM16525 08EF 1008 3361 | SLA 8 BFR AND UNPACK IT PTM16530 08F0 1808 3362 | SRA 8 PTM16535 08F1 4400 09DF 3363 | BSI L CHNGE BR TO CHECK IF ' OR = 2-7 PTM16540 08F3 D200 3364 | STO 2 0 OUTPUT FIRST CHAR PTM16545 08F4 6302 3365 | LDX 3 +2 SET LOOP PNTR PTM16550 08F5 C101 3366 | NAME1 LD 1 +1 PTM16555 08F6 18D0 3367 | RTE 16 PTM16560 08F7 1010 3368 | SLA 16 PTM16565 08F8 1088 3369 | SLT 8 PTM16570 08F9 4400 09DF 3370 | BSI L CHNGE BR TO CHECK IF ' OR = 2-7 PTM16575 08FB D201 3371 | STO 2 +1 OUTPUT SECOND CHAR PTM16580 08FC 1010 3372 | SLA 16 PTM16585 08FD 1088 3373 | SLT 8 PTM16590 08FE 4400 09DF 3374 | BSI L CHNGE BR TO CHECK IF ' OR = 2-7 PTM16595 0900 D202 3375 | STO 2 +2 OUTPUT THIRD CHAR PTM16600 0901 7101 3376 | MDX 1 +1 INCRE PRNT BFR PNTR PTM16605 0902 7202 3377 | MDX 2 +2 INCRE PNCH BFR PNTR PTM16610 0903 73FF 3378 | MDX 3 -1 DECRE LOOP CNTR PTM16615 0904 70F0 3379 | MDX NAME1 BR TO OUTPUT REST OF NAME PTM16620 3380 | * * PTM16625 0905 7202 3381 | MDX 2 +2 POINT TO CC 27 PTM16630 0906 C867 3382 | LDD P3EQU PTM16635 0907 DA00 3383 | STD 2 0 PTM16640 0908 C067 3384 | LD P3EQU+2 PTM16645 0909 D202 3385 | STO 2 +2 SET UP 'EQU' IN CC 27-29 PTM16650 3386 | * * PTM16655 090A 6302 3387 | LDX 3 +2 SET LOOP CNTR PTM16660 090B 7102 3388 | MDX 1 +2 INCRE INPUT POINTER PTM16665 090C C100 3389 | MVALU LD 1 0 FETCH VALUE PTM16670 090D 18D0 3390 | RTE 16 PTM16675 090E 1010 3391 | SLA 16 PTM16680 090F 1088 3392 | SLT 8 PTM16685 0910 D209 3393 | STO 2 +9 OUTPUT HEX VALUE PTM16690 0911 1010 3394 | SLA 16 IN CC 36-39 PTM16695 0912 1088 3395 | SLT 8 PTM16700 0913 D20A 3396 | STO 2 +10 PTM16705 0914 7202 3397 | MDX 2 +2 INCRE PNCH BFR PNTR PTM16710 0915 7101 3398 | MDX 1 +1 INCRE PRNT BFR PNTR PTM16715 0916 73FF 3399 | MDX 3 -1 DECRE LOOP CNTR PTM16720 3400 | * * PTM16725 0917 70F4 3401 | MDX MVALU LOOP TO CONT OUTPUT PTM16730 3402 | * * PTM16735 0918 C04F 3403 | LD EBCSL PTM16740 0919 D204 3404 | STO 2 +4 SET A SLASH IN CC 35 PTM16745 091A 6906 3405 | STX 1 P3365+1 SAVE XR1 2-8 PTM16750 091B 6580 0239 3406 | LDX I1 RDBFR+1 POINT TO PNCH BFR PTM16755 091D 1010 3407 | SLA 16 IND SYM TBL CNVR PTM16760 091E 4400 0471 3408 | BSI L STRT9+20 BR TO PUNCH CONVERT 2-8 PTM16765 0920 6500 0000 3409 | P3365 LDX L1 *-* RESTO XR1 2-8 PTM16770 0922 74FF 085D 3410 | SAVE3 MDX L CNTR1,-1 DECRE LOOP CNTR PTM16775 0924 70AF 3411 | MDX MOD67 LOOP TIL 5 CARDS PNCHED PTM16780 3412 | * * PTM16785 0925 4400 025F 3413 | BSI L LDXRS PTM16790 3414 | * * PTM16795 0927 7405 085D 3415 | P3367 MDX L CNTR1,+5 RESET LOOP CNTR 2-8 PTM16800 0929 1000 3416 | NOP (MAY SKIP) 2-8 PTM16805 092A 74FF 0855 3417 | MDX L LINCT,-1 DECRE LINE CNTR PTM16810 092C 700D 3418 | MDX P3SV2 BR TO CNVRT NEXT LINE PTM16815 092D C400 0859 3419 | LD L EXTRA PTM16820 092F 4C18 0947 3420 | BSC L CHKOV,+- BR IF LAST LINE COMP. PTM16825 0931 D400 085D 3421 | STO L CNTR1 OTHERWISE, INITIAL LINE PTM16830 0933 A033 3422 | M H0008 COMPUTE NEW WD CNT PTM16835 0934 18D0 3423 | RTE 16 PTM16840 0935 D480 0238 3424 | STO I RDBFR SET UP IN OUTPUT BFR PTM16845 0937 1010 3425 | SLA 16 CNTR AND CLEAR LAST PTM16850 0938 D400 0859 3426 | STO L EXTRA LINE IND. PTM16855 093A 6600 0000 3427 | P3SV2 LDX L2 *-* RESTO SYM TBL POINTER PTM16860 093C 4C00 0870 3428 | BSC L CNVR3 BR TO CNVRT LAST LINE PTM16865 093E 6206 3429 | ERROR LDX 2 +6 SET MESSAGE PNTR PTM16870 093F 4400 079C 3430 | BSI L GETER BR TO PRINT MESSAGE 2-8 PTM16875 0941 C027 3431 | LD P3ERR IND 1442 NEEDS BLNK CARDS PTM16880 0942 4400 0028 3432 | BSI L $PRET BR TO SYSTEM WAIT PTM16885 0944 6600 0AD4 3433 | LDX L2 DCBUF DCOMM POINTER 2/11 PTM16890 0946 708D 3434 | MDX MOD67 BR TO READ FOR BLANKS PTM16895 3435 | * PTM16900 0947 4400 025F 3436 | CHKOV BSI L LDXRS GO RESTO XR1 & XR3 PTM16905 0949 C01B 3437 | LD SAVCT PTM16910 094A 901B 3438 | S P3701 DECRE NO. OF OVFLO SCTRS PTM16915 094B D019 3439 | STO SAVCT PTM16920 094C 4C18 0988 3440 | BSC L P3000,+- BR TO EXIT IF NO MORE SCTR PTM16925 094E CBE7 3441 | LDD 3 OFLOW-X3 PTM16930 094F C400 086A 3442 | LD L P3985 2-8 PTM16935 0951 435C 3443 | BSI 3 DISK1-X3 BR TO READ OVFLOW SCTR PTM16940 3444 | * * PTM16945 0952 C013 3445 | LD P3701 PTM16950 0953 8480 0233 3446 | A I OFSAD PTM16955 0955 D480 0233 3447 | STO I OFSAD INCRE OVFLO SCTR ADDR PTM16960 3448 | * PTM16965 0957 C013 3449 | LD D0021 PTM16970 0958 D400 0855 3450 | STO L LINCT INITIAL LINE CNT PTM16975 095A 7401 0859 3451 | MDX L EXTRA,+1 INITIAL EXTRA CNT TO 1 PTM16980 095C C31A 3452 | LD 3 OFSAD-X3 FETCH ADDR OF SCTR ADDR PTM16985 095D 800E 3453 | A D0318 INCRE TO END OF SCTR PTM16990 095E D3FF 3454 | STO 3 HIEND-X3 RESET HIEND POINTER PTM16995 095F C00A 3455 | LD P3K60 PTM17000 0960 D480 0238 3456 | STO I RDBFR RESET WD CNT TO 60 PTM17005 0962 4C00 0840 3457 | BSC L RESTO BR TO OUTPUT OVFLO SCTR PTM17010 3458 | * PTM17015 3459 | * CONSTANTS PTM17020 3460 | * PTM17025 0964 7015 3461 | BRNCH MDX X MOVE1-MOD67-1 BR TO SKIP READ BLANKS PTM17030 0965 0001 3462 | SAVCT DC 1 NO. OF OVFLO SCTRS +1 PTM17035 0966 0001 3463 | P3701 DC 1 CONSTANT ONE PTM17040 0967 0008 3464 | H0008 DC /0008 CONSTANT 8 PTM17045 0968 0061 3465 | EBCSL DC ./ EBCDIC CODE FOR A SLASH PTM17050 0969 100F 3466 | P3ERR DC /100F 1442 NOT READY PTM17055 096A 003C 3467 | P3K60 DC 60 PRINT BFR WD CNT 2-2 PTM17060 096B 0015 3468 | D0021 DC 21 NO. SYM IN OVFLO/5 PTM17065 096C 013E 3469 | D0318 DC 318 CONSTANT TO RESET HIEND PTM17070 096D 0020 3470 | H0020 DC /0020 CONSTANT FOR CHECKING 2-2 PTM17075 096E 3471 | BSS E 0 PTM17080 096E 00C5 3472 | P3EQU DC .E EBCDIC E PTM17085 096F 00D8 3473 | DC .Q EBCDIC Q PTM17090 0970 00E4 3474 | DC .U EBCDIC U PTM17095 0971 C0C0 3475 | M2902 DC /C0C0 MASKING CONSTANT PTM17100 3476 | * PTM17105 3477 | * CONVERT SUBROUTINE NAME FROM NAME CODE TO PACKED PTM17110 3478 | * EBCDIC AND STORE IT IN THE PRINT BUFFER PTM17115 3479 | * * PTM17120 0972 0000 3480 | CONNC DC *-* ENTRY POINT PTM17125 0973 D824 3481 | STD P3800 SAVE NAME PTM17130 0974 1888 3482 | SRT 8 PTM17135 0975 4037 3483 | BSI CK$#@ CHECK FOR NON-LETTER 2-2 PTM17140 0976 D100 3484 | STO 1 0 STORE FIRST CHAR PTM17145 0977 1010 3485 | SLA 16 PTM17150 0978 1086 3486 | SLT 6 PTM17155 0979 1002 3487 | SLA 2 PTM17160 097A 1086 3488 | SLT 6 PTM17165 097B 4031 3489 | BSI CK$#@ CHECK FOR NON-LETTER 2-2 PTM17170 097C D101 3490 | STO 1 +1 STORE 2ND & 3RD CHAR PTM17175 097D C81A 3491 | LDD P3800 PTM17180 097E 1084 3492 | SLT 4 PTM17185 097F 1010 3493 | SLA 16 PTM17190 0980 1086 3494 | SLT 6 PTM17195 0981 1002 3495 | SLA 2 PTM17200 0982 1086 3496 | SLT 6 PTM17205 0983 4029 3497 | BSI CK$#@ CHECK FOR NON-LETTER 2-2 PTM17210 0984 D102 3498 | STO 1 +2 STORE 4TH & 5TH CHAR PTM17215 0985 7104 3499 | MDX 1 +4 INCRE OUTPUT POINTER PTM17220 0986 4C80 0972 3500 | BSC I CONNC RETURN PTM17225 3501 | * PTM17230 0988 C3F2 3502 | P3000 LD 3 LSTOP-X3 2-8 PTM17235 0989 E00D 3503 | AND X3R10 2-8 PTM17240 098A 4C18 0993 3504 | BSC L X3R20,+- BR IF XREF NOT SPECIFIED2-8 PTM17245 098C C815 3505 | LDD X3R30+2 FETCH XREF PHASE 2-8 PTM17250 098D DC00 0280 3506 | STD L OVLAY 2-8 PTM17255 098F C01C 3507 | LD XRBRR SET XREF BR ADDR 2-8 PTM17260 0990 D35A 3508 | STO 3 P0140+1-X3 2-8 PTM17265 0991 4C00 0270 3509 | BSC L P0130 BR TO XREF PHASE 2-8 PTM17270 3510 | * 2-8 PTM17275 0993 C806 3511 | X3R20 LDD P3800+2 PH. 4 WD CNT & SCTR ADDR PTM17280 0994 DB67 3512 | STD 3 OVLAY-X3 TO OVERLAY AREA PTM17285 0995 4C00 0270 3513 | BSC L P0130 LOAD & TRANS TO PH. 4 PTM17290 3514 | * PTM17295 3515 | * CONSTANTS PTM17300 3516 | * PTM17305 0997 4000 3517 | X3R10 DC /4000 XREF SW CHECK CONSTANT 2-8 PTM17310 0998 3518 | BSS E 0 FORCE EVEN ADDR 2-8 PTM17315 0998 00D9 3519 | P3800 DC /D9 SLET ID OF PHASE 4 2-8 PTM17320 0999 3520 | BSS 3 PTM17325 099C 00D7 3521 | DC /D7 SLET ID OF SYS SYMB TBL 2-8 PTM17330 099D 3522 | BSS 3 PTM17335 09A0 00F2 3523 | X3R30 DC /F2 SLET ID OF XREF PART 1 2-8 PTM17340 09A1 3524 | BSS 3 2-8 PTM17345 09A4 4040 3525 | STHDR EBC . . PTM17350 09A5 5CE2 3526 | EBC .*S. PTM17355 09A6 E8D4 3527 | EBC .YM. PTM17360 09A7 C2D6 3528 | EBC .BO. PTM17365 09A8 D340 3529 | EBC .L . PTM17370 09A9 E3C1 3530 | EBC .TA. PTM17375 09AA C2D3 3531 | EBC .BL. PTM17380 09AB C55C 3532 | EBC .E*. PTM17385 09AC 02F5 3533 | XRBRR DC XR000 XREF BR ADDR 2-8 PTM17390 3534 | * PTM17395 3535 | * PHASE 3 PATCH AREA 2-2 PTM17400 3536 | * 2-2 PTM17405 3537 | * APAR N5072 2-2 PTM17410 3538 | * 2-2 PTM17415 09AD 0000 3539 | CK$#@ DC *-* RECORD RETURN ADDRESS 2-2 PTM17420 09AE E8C2 3540 | OR M2902 EBCDIC MASK 2-2 PTM17425 09AF D01A 3541 | STO P3880 SAVE TENTATIVE EBC CHAR 2-8 PTM17430 09B0 6300 3542 | LDX 3 0 INITLZ POINTER 2-2 PTM17435 09B1 1808 3543 | CHAR1 SRA 8 FIRST CHAR TO POSITION 2-2 PTM17440 3544 | * 2-2 PTM17445 09B2 E028 3545 | CHAR2 AND H007F MASK OUT FIRST BIT 2-2 PTM17450 09B3 9028 3546 | CK$ S H005B CHECK FOR $ 2-2 PTM17455 09B4 4C20 09B9 3547 | BSC L CK#,Z BR IF NOT FOUND 2-2 PTM17460 09B6 C025 3548 | LD H005B LOAD EBCDIC FOR $ 2-2 PTM17465 09B7 4F00 09C5 3549 | BSC L3 REPLC GO TO REPLACE CHAR 2-2 PTM17470 09B9 90B3 3550 | CK# S H0020 CHECK FOR # 2-2 PTM17475 09BA 4C20 09BF 3551 | BSC L CK@,Z BR IF NOT FOUND 2-2 PTM17480 09BC C020 3552 | LD H007E LOAD EBCDIC FOR = 2-2 PTM17485 09BD 4F00 09C5 3553 | BSC L3 REPLC GO TO REPLACE CHAR 2-2 PTM17490 09BF 90A6 3554 | CK@ S P3701 CHECK FOR @ 2-2 PTM17495 09C0 4F20 09CE 3555 | BSC L3 LETTR,Z BR IF NOT FOUND 2-2 PTM17500 09C2 C01B 3556 | LD H007D LOAD EBCDIC FOR ' 2-2 PTM17505 09C3 4F00 09C5 3557 | BSC L3 REPLC GO TO REPLACE CHAR 2-2 PTM17510 3558 | * 2-2 PTM17515 09C5 1008 3559 | REPLC SLA 8 PLACE FIRST CHAR IN 2-2 PTM17520 09C6 D004 3560 | STO RSLT *RESULT WORD 2-2 PTM17525 09C7 7307 3561 | MDX 3 7 MOVE POINTER 2-2 PTM17530 09C8 C001 3562 | LD P3880 GO TO PROCESS SECOND 2-8 PTM17535 09C9 70E8 3563 | MDX CHAR2 *CHARACTER 2-2 PTM17540 3564 | * 2-2 PTM17545 09CA 0000 3565 | P3880 DC *-* TENTATIVE EBCDIC CHAR 2-8 PTM17550 09CB 0000 3566 | RSLT DC *-* TWO EBCDIC CHAR OF NAME 2-2 PTM17555 3567 | * 2-2 PTM17560 09CC E8FE 3568 | RPLC3 OR RSLT PLACE SECOND CHAR IN 2-2 PTM17565 09CD 700B 3569 | MDX RTURN *RESULT AND RETURN 2-2 PTM17570 3570 | * 2-2 PTM17575 09CE C0FB 3571 | LETTR LD P3880 GET FIRST CHARACTER, 2-8 PTM17580 09CF 1808 3572 | SRA 8 *UNCHANGED 2-2 PTM17585 09D0 1008 3573 | SLA 8 2-2 PTM17590 09D1 D0F9 3574 | STO RSLT PLACE IN RESULT 2-2 PTM17595 09D2 7307 3575 | MDX 3 7 MOVE POINTER 2-2 PTM17600 09D3 C0F6 3576 | LD P3880 GO TO PROCESS SECOND 2-8 PTM17605 09D4 70DD 3577 | MDX CHAR2 *CHARACTER 2-2 PTM17610 3578 | * 2-2 PTM17615 09D5 C0F4 3579 | LTTR3 LD P3880 GET SECOND CHARACTER, 2-8 PTM17620 09D6 1008 3580 | SLA 8 *UNCHANGED 2-2 PTM17625 09D7 1808 3581 | SRA 8 2-2 PTM17630 09D8 E8F2 3582 | OR RSLT FORM RESULT 2-2 PTM17635 3583 | * 2-2 PTM17640 09D9 4C80 09AD 3584 | RTURN BSC I CK$#@ RETURN TO CONNC ROUTINE 2-2 PTM17645 3585 | * 2-2 PTM17650 3586 | * CONSTANTS PTM17655 3587 | * PTM17660 09DB 007F 3588 | H007F DC /007F MASK TO CHECK FOR $,#,@ 2-2 PTM17665 09DC 005B 3589 | H005B DC /005B EBCDIC FOR $ 2-2 PTM17670 09DD 007E 3590 | H007E DC /007E EBCDIC FOR = 2-2 PTM17675 09DE 007D 3591 | H007D DC /007D EBCDIC FOR ' 2-2 PTM17680 3592 | * 2-2 PTM17685 3593 | * 2-2 PTM17690 09DF 0000 3594 | CHNGE DC *-* RETURN ADDRESS 2-7 PTM17695 09E0 D00F 3595 | STO SAVE SAVE CHAR 2-7 PTM17700 09E1 F0FC 3596 | EOR H007D CHECK FOR ' 2-7 PTM17705 09E2 4C20 09E7 3597 | BSC L LAB1,Z BRANCH IF NOT ' 2-7 PTM17710 09E4 C00C 3598 | LD H007C CHANGE ' INTO AT-SIGN 2-7 PTM17715 09E5 4C80 09DF 3599 | BSC I CHNGE RETURN TO PRINTING 2-7 PTM17720 09E7 C008 3600 | LAB1 LD SAVE GET CHAR 2-7 PTM17725 09E8 F0F4 3601 | EOR H007E CHECK FOR = 2-7 PTM17730 09E9 4C20 09EE 3602 | BSC L LAB2,Z BR IF NOT = 2-7 PTM17735 09EB C006 3603 | LD H007B CHANGE = INTO POUND-SIGN2-7 PTM17740 09EC 4C80 09DF 3604 | LAB3 BSC I CHNGE RETURN TO PRINTING 2-7 PTM17745 09EE C001 3605 | LAB2 LD SAVE GET CHAR 2-7 PTM17750 09EF 70FC 3606 | MDX LAB3 RETURN TO PRINTING 2-7 PTM17755 3607 | * 2-7 PTM17760 09F0 0000 3608 | SAVE DC *-* TEMP SAVE AREA 2-7 PTM17765 09F1 007C 3609 | H007C DC /007C EBCDIC FOR AT-SIGN 2-7 PTM17770 09F2 007B 3610 | H007B DC /007B EBCDIC FOR POUND-SIGN 2-7 PTM17775 3611 | * 2-7 PTM17780 3612 | * 2-7 PTM17785 3613 | * ADDITIONAL PATCH CAN BE OBTAINED 2-8 PTM17790 3614 | * *BY USING THE OVERLAY AREA--- 2-8 PTM17795 3615 | * *CURRENTLY UNUSED BY PHASE 3 2-8 PTM17800 09F3 3616 | BSS 10 PATCH AREA 2-8 PTM17805 3617 | * 2-7 PTM17810 09FD 0000 3618 | P3900 DC 0 END OF PHASE 3 2-7 PTM17815 *SBRKSLS D9 3619 | ASM EXIT PHASE V2M08 PTM17820 ***PHASE 4 - ASM EXIT*** 3621 | *************************************************** PTM17830 3622 | * * PTM17835 3623 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM17840 3624 | * * PTM17845 3625 | *FUNCTION/OPERATION- * PTM17850 3626 | * *PHASE 4 PERFORMS THE FINAL PROCESSING FOR THE* PTM17855 3627 | * ASSEMBLER PROGRAM AND IS CALLED INTO CORE BY * PTM17860 3628 | * PHASE 3. * PTM17865 3629 | * *IF OVERFLOW SECTORS WERE SPECIFIED BY THE * PTM17870 3630 | * USER ON CONTROL RECORDS, AND IF THEY WERE * PTM17875 3631 | * NECESSARY IN ASSEMBLING THE PROGRAM, THE * PTM17880 3632 | * OBJECT PROGRAM, WHICH IS RESIDING ON THE * PTM17885 3633 | * DISK, IS MOVED BACK TO THE SECTOR BOUNDARY AT* PTM17890 3634 | * THE START OF WORKING STORAGE. * PTM17895 3635 | * *PHASE 4 UPDATES DCOM ON ALL READY DRIVES WITH* PTM17900 3636 | * THE PROGRAM NAME, THE EXECUTION ADDRESS, THE * PTM17905 3637 | * FORMAT, AND THE LENGTH OF THE PROGRAM JUST * PTM17910 3638 | * ASSEMBLED. * PTM17915 3639 | * *THE LAST RECORD READ BY THE ASSEMBLER, THE * PTM17920 3640 | * RECORD FOLLOWING THE END STATEMENT, IS * PTM17925 3641 | * CONVERTED AND MOVED TO THE SUPERVISOR'S * PTM17930 3642 | * CONTROL RECORD BUFFER. * PTM17935 3643 | * *IN TERMINATING THE ASSEMBLY, PHASE 4 PRINTS * PTM17940 3644 | * FOUR SIGN-OFF MESSAGES- * PTM17945 3645 | * *THE NUMBER OF ERRORS IN THE ABOVE * PTM17950 3646 | * ASSEMBLY * PTM17955 3647 | * *THE NUMBER OF SYMBOLS DEFINED * PTM17960 3648 | * *THE NUMBER OF OVERFLOW SECTORS SPECIFIED* PTM17965 3649 | * *THE NUMBER OF OVERFLOW SECTORS REQUIRED * PTM17970 3650 | * *IN ADDITION, MESSAGES ARE PRINTED IF * PTM17975 3651 | * ERRONEOUS ORG, BSS, BES, OR EQU STATEMENTS * PTM17980 3652 | * WERE ENCOUNTERED, A MONITOR CONTROL RECORD * PTM17985 3653 | * WAS DETECTED, OR AN * LEVEL RECORD WAS * PTM17990 3654 | * MISSING. * PTM17995 3655 | * *PHASE 4 THEN EXITS TO THE SKELETON SUPERVISOR* PTM18000 3656 | * AT THE $EXIT ENTRY POINT. * PTM18005 3657 | * * PTM18010 3658 | *ENTRY POINTS- * PTM18015 3659 | * * P4000 - ENTRY FROM PHASE 3 OR PHASE 9 * PTM18020 3660 | * * PTM18025 3661 | *INPUT-N/A * PTM18030 3662 | * * PTM18035 3663 | *OUTPUT * PTM18040 3664 | * *UPDATED DCOM'S * PTM18045 3665 | * *PRINTED SIGN OFF MESSAGES * PTM18050 3666 | * * PTM18055 3667 | *EXTERNAL RERERENCES- * PTM18060 3668 | * *SUBROUTINES- * PTM18065 3669 | * * DISK1 * PTM18070 3670 | * * GETER * PTM18075 3671 | * * GTHDG * PTM18080 3672 | * *DCOM/COMMA- * PTM18085 3673 | * $CH12 * PTM18090 3674 | * $CTSW * PTM18095 3675 | * $EXIT * PTM18100 3676 | * $1410 * PTM18105 3677 | * $IREQ * PTM18110 3678 | * $NDUP * PTM18115 3679 | * $NXEQ * PTM18120 3680 | * $PBSY * PTM18125 3681 | * $WSDR * PTM18130 3682 | * #ENTY * PTM18135 3683 | * #FMAT * PTM18140 3684 | * #NAME * PTM18145 3685 | * #WSCT * PTM18150 3686 | * * PTM18155 3687 | *EXITS- * PTM18160 3688 | * *NORMAL - THE SUPERVISOR * PTM18165 3689 | * *ERROR - GETER SUBROUTINE * PTM18170 3690 | * * PTM18175 3691 | *TABLES/WORK AREAS- N/A * PTM18180 3692 | * * PTM18185 3693 | *ATTRIBUTES-REUSABLE * PTM18190 3694 | * * PTM18195 3695 | *NOTES-N/A * PTM18200 3696 | * * PTM18205 3697 | *************************************************** PTM18210 3698 | * PTM18215 0280 3699 | ORG OVLAY PTM18220 0280 01D6 3700 | DC P4900-P4000 PHASE 4 WD CNT PTM18225 0281 00D9 3701 | DC /D9 SLET ID OF PHASE 4 2-8 PTM18230 0282 6500 03AA 3702 | P4000 LDX L1 X1 XR1 POINTS TO CONSTANTS 2-3 PTM18235 0284 C0B0 3703 | LD DSFWR+1 SET UP BFR 2-10 PTM18240 0285 D105 3704 | STO 1 HDWRT+1-X1 ADDR FOR PRG MOVE PTM18245 0286 D107 3705 | STO 1 HDRRD+1-X1 PTM18250 3706 | * PTM18255 0287 C400 045C 3707 | LD L PR000 PTM18260 0289 8114 3708 | A 1 P4870-X1 COMPUTE AND SAVE 2-8 PTM18265 028A D113 3709 | STO 1 PTENT-X1 PRT RTN ENTRY ADDR PTM18270 3710 | * PTM18275 028B C400 000F 3711 | LD L $CTSW CHECK FOR CTL RCRD PTM18280 028D 4C18 02A1 3712 | BSC L P4001,+- BR IF NORMAL ASM EXIT 2-1 PTM18285 3713 | * PTM18290 3714 | * THE FOLLOWING CODE MOVES A DETECTED MCR 2-6 PTM18295 3715 | * FROM COL 21 TO COL 1 IF INPUT IS KB OR PT 2-6 PTM18300 3716 | * PTM18305 028F C3ED 3717 | LD 3 IPTKB-X3 CHK TO SEE IF PT-KB I/P 2-6 PTM18310 0290 4C18 0344 3718 | BSC L SUPBF,+- BRANCH IF NOT 2-6 PTM18315 0292 613C 3719 | LDX 1 60 INITLZ FOR MOVING A 2-6 PTM18320 0293 6680 0239 3720 | LDX I2 RDBFR+1 *MON CTRL RCD WITHIN BFR2-6 PTM18325 0295 7201 3721 | MVRCD MDX 2 1 POINT AT COL 1 2-6 PTM18330 0296 C214 3722 | LD 2 20 GET WD TO MOVE 2-6 PTM18335 0297 D200 3723 | STO 2 0 PLACE 20 POS LEFT 2-6 PTM18340 0298 71FF 3724 | MDX 1 -1 DECREASE COUNTER 2-6 PTM18345 0299 70FB 3725 | MDX MVRCD MOVE ALL 60 CHAR 2-6 PTM18350 029A 6114 3726 | LDX 1 20 SET COUNTER TO PUT 2-6 PTM18355 029B 7301 3727 | BLNKZ MDX 3 1 *BLANKS IN REST OF RCD 2-8 PTM18360 029C D300 3728 | STO 3 0 STORE BLANK (FROM C 60) 2-6 PTM18365 029D 71FF 3729 | MDX 1 -1 COUNT DOWN 2-6 PTM18370 029E 70FC 3730 | MDX BLNKZ GO BACK TIL BFR FULL 2-8 PTM18375 029F 4C00 0344 3731 | BSC L SUPBF GO TO MOVE RECORD 2-3 PTM18380 3732 | * 2-3 PTM18385 02A1 C480 0232 3733 | P4001 LD I DSADR SAVE CONTENTS OF DSADR 2-3 PTM18390 02A3 D11B 3734 | STO 1 P4890-X1 2-8 PTM18395 02A4 C310 3735 | LD 3 ADJSA-X3 SCTR ADDR OF PROGRAM 2-1 PTM18400 02A5 D480 0232 3736 | STO I DSADR SET TO READ FIRST 2-1 PTM18405 02A7 C400 03B2 3737 | LD L H0140 PUT WD CNT OF FIRST SCT2-10 PTM18410 02A9 D480 0235 3738 | STO I DSFWR+1 *IN DISK BUFFER 2-10 PTM18415 02AB C906 3739 | LDD 1 HDRRD-X1 *SECTOR OF PROGRAM 2-1 PTM18420 02AC 435C 3740 | BSI 3 DISK1-X3 GO TO READ 2-1 PTM18425 02AD 6680 0231 3741 | LDX I2 STADR POINT TO BUFFER 2-1 PTM18430 02AF C3FA 3742 | LD 3 ADCOW-X3 GET TERMINAL ADDR 2-1 PTM18435 02B0 D203 3743 | STO 2 +3 TO 4TH WD OF HDR 2-1 PTM18440 02B1 C904 3744 | LDD 1 HDWRT-X1 SET TO WRITE FIRST 2-1 PTM18445 02B2 435C 3745 | BSI 3 DISK1-X3 *SECTOR BACK TO DISK 2-1 PTM18450 02B3 C11B 3746 | LD 1 P4890-X1 2-8 PTM18455 02B4 D480 0232 3747 | STO I DSADR RESTORE DSADR 2-3 PTM18460 02B6 C400 1555 3748 | LD L XADJS LOAD SCTR ADDR START 212 PTM18462 02B8 D310 3749 | STO 3 ADJSA-X3 STORE IN ASM. INDR 212 PTM18465 02B9 7402 03BC 3750 | P4002 MDX L COUNT,+2 INITIAL CNTR TO TWO PTM18470 02BB C302 3751 | LD 3 TLIST-X3 LOAD AUX. LIST INDR 212 PTM18475 02BC E101 3752 | AND 1 HC000-X1 2-8 PTM18480 02BD F101 3753 | EOR 1 HC000-X1 2-8 PTM18485 02BE 4C18 02C5 3754 | BSC L P4003,+- BR-MOVE DSF IF XREF 2-8 PTM18490 02C0 C32F 3755 | LD 3 SKLTN-X3 CHK FOR OVFLO SCTRS 2-8 PTM18495 02C1 8301 3756 | A 3 OFCNT-X3 PTM18500 02C2 9100 3757 | S 1 P4850-X1 2-8 PTM18505 02C3 4808 3758 | BSC + SKIP IF SCTRS ASSIGNED PTM18510 02C4 7020 3759 | MDX PTMES BR IF ZERO PTM18515 3760 | * PTM18520 02C5 C3F9 3761 | P4003 LD 3 THRT2-X3 CHK SYMB TBL OVFLO SCTRS2-8 PTM18525 02C6 8301 3762 | A 3 OFCNT-X3 2-8 PTM18530 02C7 9100 3763 | S 1 P4850-X1 2-8 PTM18535 02C8 4C08 02CD 3764 | BSC L P4004,+ BR-NO SYMB TBL OVFLO 2-8 PTM18540 02CA 18D0 3765 | RTE 16 SAVE IN Q PTM18545 02CB C301 3766 | LD 3 OFCNT-X3 CHK NO. OF SCTRS NEEDED PTM18550 02CC D902 3767 | STD 1 OVFLO-X1 SAVE NO. ASSIGN & NO. NEED PTM18555 02CD C480 0232 3768 | P4004 LD I DSADR FETCH PRESENT SCTR ADDR PTM18560 02CF 9310 3769 | S 3 ADJSA-X3 PTM18565 02D0 8100 3770 | A 1 P4850-X1 COMPUTE THE 2-8 PTM18570 02D1 D10C 3771 | STO 1 PRGSZ-X1 SIZE OF PRG PLUS ONE PTM18575 02D2 C338 3772 | LD 3 MCOM7-X3 2-8 PTM18580 02D3 D110 3773 | STO 1 PWSAD-X1 PERM.WS SCTR ADDR PTM18585 02D4 C310 3774 | LOOP LD 3 ADJSA-X3 SCTR ADDR OF PRG PTM18590 02D5 D480 0232 3775 | STO I DSADR SET TO MOVE PRG PTM18595 02D7 C906 3776 | LDD 1 HDRRD-X1 PTM18600 02D8 435C 3777 | BSI 3 DISK1-X3 GO TO RD PRG PTM18605 3778 | * PTM18610 02D9 C110 3779 | LD 1 PWSAD-X1 PTM18615 02DA D480 0232 3780 | STO I DSADR SWTCH SCTR ADDR PTM18620 02DC C904 3781 | LDD 1 HDWRT-X1 PTM18625 02DD 435C 3782 | BSI 3 DISK1-X3 GO TO WRT PRG PTM18630 02DE 7401 03BA 3783 | MDX L PWSAD,+1 INCRE WRT SCTR ADDR PTM18635 02E0 7401 0229 3784 | MDX L ADJSA,+1 INCRE RD SCTR ADDR PTM18640 02E2 74FF 03B6 3785 | MDX L PRGSZ,-1 DECRE PRG SIZE PTM18645 02E4 70EF 3786 | MDX LOOP LOOP TIL PRG MOVED PTM18650 3787 | * PTM18655 3788 | * PTM18660 02E5 6500 041A 3789 | PTMES LDX L1 CNT3 OUTPUT ADDR PTM18665 02E7 C400 03AD 3790 | LD L OVFLO+1 BINARY NUMBER PTM18670 02E9 4400 03C7 3791 | BSI L BIDEC GO CONV AND PACK PTM18675 02EB 6500 042C 3792 | LDX L1 CNT4 OUTPUT ADDRESS PTM18680 3793 | * PTM18685 02ED C400 03AC 3794 | LD L OVFLO PTM18690 02EF 4400 03C7 3795 | BSI L BIDEC GO CONV AND PACK PTM18695 3796 | * * PTM18700 02F1 C400 03BF 3797 | LD L SPACE PTM18705 02F3 4480 03BD 3798 | BSI I PTENT BR TO SPACE A LINE PTM18710 3799 | * PTM18715 02F5 4400 03E1 3800 | BSI L CHK12 GO CHECK CHANNEL 12 PTM18720 02F7 C04A 3801 | LD MESS3 PTM18725 02F8 18D0 3802 | RTE 16 PTM18730 02F9 C400 03AE 3803 | LD L HDWRT PTM18735 02FB 4480 03BD 3804 | BSI I PTENT GO PRINT 3RD MESSAGE PTM18740 3805 | * PTM18745 02FD 4400 03E1 3806 | BSI L CHK12 GO CHECK CHANNEL 12 PTM18750 02FF C400 03C2 3807 | LD L MESS4 PTM18755 0301 18D0 3808 | RTE 16 PTM18760 0302 C400 03AE 3809 | LD L HDWRT PTM18765 0304 4480 03BD 3810 | BSI I PTENT GO PRINT 4TH MESSAGE PTM18770 3811 | * PTM18775 0306 CBEB 3812 | RDCOM LDD 3 TXQSW-X3 PTM18780 0307 18D0 3813 | RTE 16 STORE XEQ & DUP PTM18785 0308 DC00 0034 3814 | STD L $NDUP SWITCHES IN DUP PTM18790 3815 | * PTM18795 3816 | * * PTM18800 030A C400 002C 3817 | LD L $IREQ PTM18805 030C D400 03C5 3818 | STO L P4890 SAVE IREQ ADDR 2-8 PTM18810 030E C400 03C0 3819 | LD L INTAD PTM18815 0310 D400 002C 3820 | STO L $IREQ INSERT MASK ADDR PTM18820 3821 | * * PTM18825 0312 CC00 03B2 3822 | ADJST LDD L DCOM DCOM WD CNT & SCTR ADDR PTM18830 0314 DC80 0235 3823 | STD I DSFWR+1 TO DSF BFR HDR 2-6 PTM18835 0316 CC00 03B0 3824 | LDD L HDRRD PTM18840 0318 435C 3825 | BSI 3 DISK1-X3 GO LOAD DCOM PTM18845 3826 | * PTM18850 0319 6680 0235 3827 | LDX I2 DSFWR+1 XR2 PTS AT DCOM 2-6 PTM18855 031B 7202 3828 | MDX 2 +2 INCRE PNTR TO DATA AREA PTM18860 031C CBE1 3829 | LDD 3 NAMEP-X3 PTM18865 031D DA04 3830 | STD 2 #NAME RESTORE DCOM SWITCHES PTM18870 031E C3E3 3831 | LD 3 RELEP-X3 TO DCOM PTM18875 031F D210 3832 | STO 2 #ENTY PTM18880 3833 | * PTM18885 0320 7680 007A 3834 | MDX I2 $WSDR INCRE POINTER BY DRIVE PTM18890 0322 C3E4 3835 | LD 3 WSCNT-X3 PTM18895 0323 D255 3836 | STO 2 #WSCT BLK CNT OF PRG PTM18900 0324 1010 3837 | SLA 16 PTM18905 0325 D246 3838 | STO 2 #FMAT INDICATE DSF FORMAT PTM18910 3839 | * PTM18915 0326 CC00 03AE 3840 | LDD L HDWRT PTM18920 0328 435C 3841 | BSI 3 DISK1-X3 GO WRT DCOM BACK TO DISK PTM18925 3842 | * PTM18930 0329 74FF 03BC 3843 | MDX L COUNT,-1 DECRE COUNTER PTM18935 032B 7001 3844 | MDX *+1 SKIP TO UPDATE 2ND DCOM PTM18940 032C 7017 3845 | MDX SUPBF BR TO MOVE LAST RCD PTM18945 3846 | * PTM18950 032D C400 007A 3847 | LD L $WSDR FETCH LOG DRIVE CODE PTM18955 032F 100C 3848 | SLA 12 LEFT JUSTIFY PTM18960 0330 EC00 03B3 3849 | OR L DCOM+1 PTM18965 0332 D400 03B3 3850 | STO L DCOM+1 RESET SCTR ADDR OF DCOM PTM18970 3851 | * PTM18975 0334 6500 040E 3852 | LDX L1 CNT2 OUTPUT ADDR PTM18980 0336 C400 0209 3853 | LD L CTSYM BINARY NUMBER PTM18985 0338 4400 03C7 3854 | BSI L BIDEC GO CONV AND PACK PTM18990 033A 4400 03E1 3855 | BSI L CHK12 GO CHECK CH. 12 PTM18995 3856 | * PTM19000 033C C006 3857 | LD MESS2 PTM19005 033D 18D0 3858 | RTE 16 PTM19010 033E C06F 3859 | LD HDWRT PTM19015 033F 4480 03BD 3860 | BSI I PTENT GO PRINT 2ND MESSAGE PTM19020 3861 | * PTM19025 0341 70D0 3862 | MDX ADJST GO TO UPDATE PTM19030 3863 | * PTM19035 3864 | * CONSTANTS PTM19040 3865 | * PTM19045 0342 0417 3866 | MESS3 DC MSG3 MESSAGE 3 ADDR 2-8 PTM19050 0343 040B 3867 | MESS2 DC MSG2 MESSAGE 2 ADDR 2-8 PTM19055 3868 | * PTM19060 0344 6150 3869 | SUPBF LDX 1 +80 SET TO MOVE 80 WRDS PTM19065 0345 6680 0239 3870 | LDX I2 RDBFR+1 OF RECORD TO THE PTM19070 0347 6700 0FB0 3871 | LDX L3 /0FB0 PTM19075 3872 | * PTM19080 0349 7201 3873 | MDX 2 +1 SUP BFR PTM19085 034A C200 3874 | MOVE LD 2 0 MOVE THE RECORD PTM19090 034B D300 3875 | STO 3 0 PTM19095 034C 7301 3876 | MDX 3 +1 INCRE OUTPUT PNTR PTM19100 034D 71FF 3877 | MDX 1 -1 PTM19105 034E 70FA 3878 | MDX MOVE-1 LOOP TIL MOVE COMPLETE PTM19110 034F C400 000F 3879 | LD L $CTSW SEE IF MCR DETECTED 2-3 PTM19115 0351 4C20 038E 3880 | BSC L P4800,Z BRANCH TO EXIT IF YES 2-3 PTM19120 0353 6700 0219 3881 | LDX L3 ASMCM RESTORE XR3 2-8 PTM19125 3882 | * PTM19130 0355 6500 03EE 3883 | LDX L1 CNT1 OUTPUT ADDR PTM19135 0357 C3FD 3884 | LD 3 ERCNT-X3 ERROR CNT 2-8 PTM19140 0358 7400 020C 3885 | MDX L PSMDE,0 2-8 PTM19145 035A 833B 3886 | A 3 P2MEC-X3 2-8 PTM19150 035B 4820 3887 | BSC Z SKIP CONV IF NO ERRORS PTM19155 035C 406A 3888 | BSI BIDEC PTM19160 035D 6500 03F7 3889 | LDX L1 CNT01 OUTPUT ADDR 2-8 PTM19165 035F C336 3890 | LD 3 MCOM5-X3 FETCH WARNING CNT 2-8 PTM19170 0360 7400 020C 3891 | MDX L PSMDE,0 2-8 PTM19175 0362 8363 3892 | A 3 P2MWC-X3 2-8 PTM19180 0363 4820 3893 | BSC Z SKIP IF NO WARNINGS 2-8 PTM19185 0364 4062 3894 | BSI BIDEC CONVERT WARNING CNT 2-8 PTM19190 3895 | * PTM19195 0365 407B 3896 | BSI CHK12 GO CHECK CHANNEL 12 2-10 PTM19200 0366 C05A 3897 | LD MESS1 PTM19205 0367 18D0 3898 | RTE 16 PTM19210 0368 C045 3899 | LD HDWRT PTM19215 0369 4480 03BD 3900 | BSI I PTENT GO PRINT 1ST MESSAGE PTM19220 3901 | * * PTM19225 036B C059 3902 | LD P4890 2-8 PTM19230 036C D400 002C 3903 | STO L $IREQ RESTO ORIG SETTING PTM19235 036E C045 3904 | LD DMPRQ DID INTRPT REQ OCCUR PTM19240 036F 4CA0 002C 3905 | BSC I $IREQ,Z YES, BR TO SERVICE PTM19245 0371 1010 3906 | SLA 16 PTM19250 0372 D041 3907 | STO DMPRQ CLEAR SWTCH PTM19255 3908 | * PTM19260 0373 6500 0440 3909 | LDX L1 CNT5 OUTPUT ADDR PTM19265 0375 C400 045A 3910 | LD L ERPTR CHK PHASE 2 ERROR CNTR PTM19270 0377 4C18 0382 3911 | BSC L CKLEV,+- BR IF NO ORG/BSS/EQU ERROR PTM19275 0379 404D 3912 | BSI BIDEC GO CNVRT NUMBER PTM19280 3913 | * * PTM19285 037A 4066 3914 | BSI CHK12 BR TO CHECK CHAN. 12 IND. PTM19290 037B C047 3915 | LD MESS5 MESSAGE ADDR PTM19295 037C 18D0 3916 | RTE 16 PTM19300 037D C030 3917 | LD HDWRT WRT FUNC CODE PTM19305 037E DC00 0034 3918 | STD L $NDUP PREVENT XEQ & DUP PTM19310 0380 4480 03BD 3919 | BSI I PTENT GO PRINT THE MESSAGE PTM19315 3920 | * * PTM19320 0382 C308 3921 | CKLEV LD 3 ISSSW-X3 WAS PRG AN ISS 2-8 PTM19325 0383 4C18 038E 3922 | BSC L P4800,+- NO, BR PTM19330 0385 C30F 3923 | LD 3 NLVLS-X3 YES,CHECK *LEVEL RCD 2-8 PTM19335 0386 4C20 038E 3924 | BSC L P4800,Z OK, BR TO EXIT PTM19340 0388 6207 3925 | LDX 2 +7 NO * LEVEL RCRD PTM19345 0389 4400 079C 3926 | BSI L GETER BR TO PRINT ERR MSG 2-8 PTM19350 038B C826 3927 | LDD DCOM PTM19355 038C DC00 0034 3928 | STD L $NDUP PREVENT DUP & XEQ FUNCTION PTM19360 3929 | * * PTM19365 3930 | * RESTORE PAGE HDNG SCTR TO BLANKS 2-8 PTM19370 038E C819 3931 | P4800 LDD P4893 SET I/O AREA HDR 2-8 PTM19375 038F DC00 0AD2 3932 | STD L BUFI *FOR PAGE HDNG RESTORE 2-8 PTM19380 0391 C814 3933 | LDD P4892 READ FIRST 10 WORDS 2-8 PTM19385 0392 4400 0275 3934 | BSI L DISK1 *OF PAGE HDNG SCTR 2-8 PTM19390 0394 6600 FECA 3935 | LDX L2 -310 SET LOOP CTR 2-8 PTM19395 0396 C02F 3936 | LD P4891 FETCH DOUBLE BLANK 2-8 PTM19400 0397 D600 0C14 3937 | P4801 STO L2 BUFI+322 FILL DISK BFR 2-8 PTM19405 0399 7201 3938 | MDX 2 1 INCR LOOP CTRL 2-8 PTM19410 039A 70FC 3939 | MDX P4801 CONT TO FILL BFR 2-8 PTM19415 039B 7401 03A6 3940 | MDX L P4892,1 INCR FUNC CODE TO WRITE 2-8 PTM19420 039D C808 3941 | LDD P4892 2-8 PTM19425 039E 4400 0275 3942 | BSI L DISK1 WRITE PAGE HDR TO DISK 2-8 PTM19430 03A0 7400 0036 3943 | MDX L $PBSY,0 TEST PRINTER BUSY 2-8 PTM19435 03A2 70FD 3944 | MDX *-3 LOOP TIL NOT BUSY PTM19440 03A3 2000 3945 | LDS 0 SET OVFLO & CARRY TO ZERO PTM19445 03A4 6038 3946 | LDX 0 $EXIT EXIT THE ASM TO THE SUP PTM19450 3947 | * 2-8 PTM19455 3948 | * CONSTANTS 2-8 PTM19460 3949 | * 2-8 PTM19465 03A6 3950 | BSS E 0 FORCE EVEN ADDR 2-8 PTM19470 03A6 7000 3951 | P4892 DC /7000 DK READ FUNC CODE 2-8 PTM19475 03A7 0AD2 3952 | DC BUFI I/O AREA ADDR 2-8 PTM19480 03A8 0140 3953 | P4893 DC 320 PAGE HDNG WD CNT 2-8 PTM19485 03A9 0007 3954 | DC 7 PAGE HDNG SCTR ADDR 2-8 PTM19490 03AA 3955 | X1 EQU * POINTER FOR IDX REG 1 2-3 PTM19495 03AA 0001 3956 | P4850 DC 1 CONSTANT 1 2-8 PTM19500 03AB C000 3957 | HC000 DC /C000 XREF CONSTANT 2-8 PTM19505 03AC 3958 | BSS E 0 PTM19510 03AC 0000 3959 | OVFLO DC 0 NO. OF OVFLO SCTRS NEEDED PTM19515 03AD 0000 3960 | DC 0 NO. OF OVFLO SCTRS ASSIGN PTM19520 03AE 7001 3961 | HDWRT DC /7001 PTM19525 03AF 0000 3962 | DC *-* PTM19530 03B0 7000 3963 | HDRRD DC /7000 PTM19535 03B1 0000 3964 | DC *-* PTM19540 03B2 0140 3965 | DCOM DC 320 DCOM WD CNT PTM19545 03B3 0001 3966 | DC DCOMM DCOM SCTR ADDR PTM19550 03B2 3967 | H0140 EQU DCOM 2-10 PTM19555 03B4 0000 3968 | DMPRQ DC 0 INTRPT REQ SWTCH PTM19560 03B5 0F01 3969 | DC /0F01 IOCC WORD FOR KEYBOARD PTM19565 03B4 3970 | RSTKB EQU DMPRQ PTM19570 03B6 0000 3971 | PRGSZ DC 0 SIZE OF PRG PTM19575 03B7 0000 3972 | P4860 DC *-* THESE THREE WORDS 2-8 PTM19580 03B8 0000 3973 | DC 0 ARE USED BY BIDEC PTM19585 03B9 0000 3974 | DC 0 FOR TEMP STORAGE PTM19590 03BA 0000 3975 | PWSAD DC 0 PERM. WS ADDR PTM19595 03BB 000A 3976 | TEN DC 10 CONSTANT 10 PTM19600 03BC 0000 3977 | COUNT DC 0 PTM19605 03BD 0000 3978 | PTENT DC 0 PRINT RTN ENTRY ADDR PTM19610 03BE 0003 3979 | P4870 DC 3 CONSTANT 3 2-8 PTM19615 03BF 7002 3980 | SPACE DC /7002 FUNC CODE TO SPACE PTM19620 03C0 03DC 3981 | INTAD DC INREQ ADDR OF RTN TO HAND INTRPT PTM19625 03C1 03EB 3982 | MESS1 DC MSG1 MESSAGE 1 ADDR PTM19630 03C2 0429 3983 | MESS4 DC MSG4 MESSAGE 4 ADDR PTM19635 03C3 043B 3984 | MESS5 DC MSG5 MESSAGE 5 ADDR PTM19640 3985 | * MESSAGE 6 REMOVED 2-3 PTM19645 03C4 00F0 3986 | EBCF0 DC .0 EBCDIC ZERO PTM19650 03C5 0000 3987 | P4890 DC *-* TEMP STORAGE AREA 2-8 PTM19655 03C6 4040 3988 | P4891 DC /4040 DOUBLE EBCDIC BLANK 2-10 PTM19660 3989 | * PTM19665 3990 | * PTM19670 03C7 0000 3991 | BIDEC DC 0 BIN TO DEC CONV PTM19675 03C8 6203 3992 | LDX 2 +3 SET PRECISION TO 3 PTM19680 3993 | * PTM19685 3994 | * PTM19690 03C9 1890 3995 | SRT 16 CONVERT PTM19695 03CA A8F0 3996 | LOOP2 D TEN PTM19700 03CB 18D0 3997 | RTE 16 REMAINDER TO ACC PTM19705 03CC E8F7 3998 | OR EBCF0 PTM19710 03CD D600 03B6 3999 | STO L2 P4860-1 2-8 PTM19715 03CF 1010 4000 | SLA 16 CLEAR OUT LAST CHAR PTM19720 03D0 72FF 4001 | MDX 2 -1 DECRE XR2 PTM19725 03D1 70F8 4002 | MDX LOOP2 LOOP TIL COMP. PTM19730 4003 | * PTM19735 03D2 C8E5 4004 | LDD P4860+1 FETCH FIRST 2 CHAR 2-8 PTM19740 03D3 1088 4005 | SLT 8 PTM19745 03D4 1808 4006 | SRA 8 PTM19750 03D5 1088 4007 | SLT 8 PACK TO ONE WRD PTM19755 03D6 D100 4008 | STO 1 0 OUTPUT PTM19760 03D7 C0DF 4009 | LD P4860 FETCH THIRD WD 2-8 PTM19765 03D8 E9FF 4010 | OR 1 -1 OR IN A BLANK PTM19770 03D9 D1FF 4011 | STO 1 -1 OUTPUT PTM19775 4012 | * PTM19780 03DA 4C80 03C7 4013 | BSC I BIDEC EXIT BIDEC PTM19785 4014 | * PTM19790 03DC 0000 4015 | INREQ DC 0 ENTRY POINT PTM19795 03DD 68D6 4016 | STX DMPRQ IND THAT REQ OCCURRED PTM19800 03DE 08D5 4017 | XIO RSTKB TURN OFF INTRPT PTM19805 03DF 4C00 00D5 4018 | BSC L $1410 RETURN TO ILS04 PTM19810 4019 | * * PTM19815 03E1 0000 4020 | CHK12 DC *-* ENTRY PTM19820 03E2 C480 0006 4021 | LD I $CH12 FETCH CH. 12 IND PTM19825 03E4 4C98 03E1 4022 | BSC I CHK12,+- RETURN IF OFF PTM19830 03E6 4400 0723 4023 | BSI L GTHDG BR TO RESTO THE PAGE 2-8 PTM19835 03E8 4C80 03E1 4024 | BSC I CHK12 RETURN PTM19840 4025 | * PTM19845 4026 | * CONSTANTS PTM19850 4027 | * PTM19855 03EA 4028 | BSS E 1 PTM19860 03EB 0020 4029 | MSG1 DC END1-MSG1+1 MSG WD CNT PTM19865 03EC 4040 4030 | EBC . . PTM19870 03ED 4040 4031 | EBC . . PTM19875 03EE D5D6 4032 | CNT1 EBC .NO. PTM19880 03EF 40C5 4033 | EBC . E. PTM19885 03F0 D9D9 4034 | EBC .RR. PTM19890 03F1 D6D9 4035 | EBC .OR. PTM19895 03F2 4DE2 4036 | EBC .(S. PTM19900 03F3 5D40 4037 | EBC .) . PTM19905 03F4 C1D5 4038 | EBC .AN. 2-8 PTM19910 03F5 C440 4039 | EBC .D . 2-8 PTM19915 03F6 4040 4040 | EBC . . 2-8 PTM19920 03F7 D5D6 4041 | CNT01 EBC .NO. 2-8 PTM19925 03F8 40E6 4042 | EBC . W. 2-8 PTM19930 03F9 C1D9 4043 | EBC .AR. 2-8 PTM19935 03FA D5C9 4044 | EBC .NI. 2-8 PTM19940 03FB D5C7 4045 | EBC .NG. 2-8 PTM19945 03FC 4DE2 4046 | EBC .(S. 2-8 PTM19950 03FD 5D40 4047 | EBC .) . 2-8 PTM19955 03FE 40C6 4048 | EBC . F. 2-8 PTM19960 03FF D3C1 4049 | EBC .LA. PTM19965 0400 C7C7 4050 | EBC .GG. PTM19970 0401 C5C4 4051 | EBC .ED. PTM19975 0402 40C9 4052 | EBC . I. PTM19980 0403 D540 4053 | EBC .N . PTM19985 0404 C1C2 4054 | EBC .AB. PTM19990 0405 D6E5 4055 | EBC .OV. PTM19995 0406 C540 4056 | EBC .E . PTM20000 0407 C1E2 4057 | EBC .AS. PTM20005 0408 E2C5 4058 | EBC .SE. PTM20010 0409 D4C2 4059 | EBC .MB. PTM20015 040A D3E8 4060 | END1 EBC .LY. PTM20020 040B 000C 4061 | MSG2 DC END2-MSG2+1 MSG WD CNT PTM20025 040C 4040 4062 | EBC . . PTM20030 040D 40F0 4063 | EBC . 0. PTM20035 040E F0F0 4064 | CNT2 EBC .00. PTM20040 040F 40E2 4065 | EBC . S. PTM20045 0410 E8D4 4066 | EBC .YM. PTM20050 0411 C2D6 4067 | EBC .BO. PTM20055 0412 D3E2 4068 | EBC .LS. PTM20060 0413 40C4 4069 | EBC . D. PTM20065 0414 C5C6 4070 | EBC .EF. PTM20070 0415 C9D5 4071 | EBC .IN. PTM20075 0416 C5C4 4072 | END2 EBC .ED. PTM20080 0417 0012 4073 | MSG3 DC END3-MSG3+1 MSG WD CNT PTM20085 0418 4040 4074 | EBC . . PTM20090 0419 40F0 4075 | EBC . 0. PTM20095 041A F0F0 4076 | CNT3 EBC .00. PTM20100 041B 40D6 4077 | EBC . O. PTM20105 041C E5C5 4078 | EBC .VE. PTM20110 041D D9C6 4079 | EBC .RF. PTM20115 041E D3D6 4080 | EBC .LO. PTM20120 041F E640 4081 | EBC .W . PTM20125 0420 E2C5 4082 | EBC .SE. PTM20130 0421 C3E3 4083 | EBC .CT. PTM20135 0422 D6D9 4084 | EBC .OR. PTM20140 0423 E240 4085 | EBC .S . PTM20145 0424 E2D7 4086 | EBC .SP. PTM20150 0425 C5C3 4087 | EBC .EC. PTM20155 0426 C9C6 4088 | EBC .IF. PTM20160 0427 C9C5 4089 | EBC .IE. PTM20165 0428 C440 4090 | END3 EBC .D . PTM20170 0429 0011 4091 | MSG4 DC END4-MSG4+1 MSG WD CNT PTM20175 042A 4040 4092 | EBC . . PTM20180 042B 40F0 4093 | EBC . 0. PTM20185 042C F0F0 4094 | CNT4 EBC .00. PTM20190 042D 40D6 4095 | EBC . O. PTM20195 042E E5C5 4096 | EBC .VE. PTM20200 042F D9C6 4097 | EBC .RF. PTM20205 0430 D3D6 4098 | EBC .LO. PTM20210 0431 E640 4099 | EBC .W . PTM20215 0432 E2C5 4100 | EBC .SE. PTM20220 0433 C3E3 4101 | EBC .CT. PTM20225 0434 D6D9 4102 | EBC .OR. PTM20230 0435 E240 4103 | EBC .S . PTM20235 0436 D9C5 4104 | EBC .RE. PTM20240 0437 D8E4 4105 | EBC .QU. PTM20245 0438 C9D9 4106 | EBC .IR. PTM20250 0439 C5C4 4107 | END4 EBC .ED. PTM20255 043A 4040 4108 | EBC . . PTM20260 043B 0018 4109 | MSG5 DC END5-MSG5+1 WD CNT OF 5TH MSG PTM20265 043C 4040 4110 | EBC . . PTM20270 043D 40C1 4111 | EBC . A. PTM20275 043E F0F5 4112 | EBC .05. PTM20280 043F 40F0 4113 | EBC . 0. PTM20285 0440 F0F0 4114 | CNT5 EBC .00. PTM20290 0441 40C5 4115 | EBC . E. PTM20295 0442 D9D9 4116 | EBC .RR. PTM20300 0443 D6D5 4117 | EBC .ON. PTM20305 0444 C5D6 4118 | EBC .EO. PTM20310 0445 E4E2 4119 | EBC .US. PTM20315 0446 40D6 4120 | EBC . O. PTM20320 0447 D9C7 4121 | EBC .RG. PTM20325 0448 6BC2 4122 | EBC .,B. PTM20330 0449 E2E2 4123 | EBC .SS. PTM20335 044A 6BD6 4124 | EBC .,O. PTM20340 044B D940 4125 | EBC .R . PTM20345 044C C5D8 4126 | EBC .EQ. PTM20350 044D E440 4127 | EBC .U . PTM20355 044E E2E3 4128 | EBC .ST. PTM20360 044F C1E3 4129 | EBC .AT. PTM20365 0450 C5D4 4130 | EBC .EM. PTM20370 0451 C5D5 4131 | EBC .EN. PTM20375 0452 E3E2 4132 | END5 EBC .TS. 212 PTM20380 0453 4133 | P4899 BSS /0458-* PATCH AREA 212 PTM20385 4134 | * 2-8 PTM20430 4135 | *MORE PATCH AREA CAN BE OBTAINED FOR THIS 212 PTM20435 4136 | * *PHASE BY LOADING THE SIGN-OFF MESSAGES 2-8 PTM20440 4137 | * *UPON ENTRY TO PH 4 OVER PH 9 BEGINNING 2-8 PTM20445 4138 | * *AT RDCRD 2-8 PTM20450 0458 0000 4139 | P4900 DC 0 END PHASE 4 PTM20455 4140 | * NOTICE - ABOVE STATEMENT CANNOT OVERLAY PH 9 2-8 PTM20460 *SBRKSLS DA 4141 | ASM PROG HEADER MNEMONICS PH V2M08 PTM20465 PHASE 2 PROGRAM HEADER MNEMONICS 4143 | *************************************************** PTM20475 4144 | * * PTM20480 4145 | *STATUS-VERSION 2, MODIFICATION 9 * PTM20485 4146 | * * PTM20490 4147 | *FUNCTION/OPERATION- * PTM20495 4148 | * *PHASE 2 HANDLES THE PROCESSING OF ALL ENT, * PTM20500 4149 | * ISS, LIBR, ABS, EPR, SPR, ILS, AND FILE * PTM20505 4150 | * STATEMENTS. * PTM20510 4151 | * *DEPENDING ON THE OP CODE, AN INDIRECT BRANCH * PTM20515 4152 | * IS MADE THROUGH A TABLE TO THE MODULE * PTM20520 4153 | * PREPARED TO PROCESS THAT OP CODE. * PTM20525 4154 | * *AS EACH PARTICULAR HEADER MNEMONIC IS * PTM20530 4155 | * PROCESSED, THE NECESSARY INDICATORS ARE SET * PTM20535 4156 | * IN THE ASSEMBLER PROGRAM'S COMMUNICATIONS * PTM20540 4157 | * AREA (ASCOM). * PTM20545 4158 | * *THE ORDERING AND COMPATIBILITY OF THE VARIOUS* PTM20550 4159 | * HEADER MNEMONICS IS CHECKED, AND THE PROGRAM * PTM20555 4160 | * HEADER RECORD INFORMATION IS BUILT AND SAVED * PTM20560 4161 | * IN ASCOM. * PTM20565 4162 | * *IF THE RECORD BEING PROCESSED IS A FILE * PTM20570 4163 | * STATEMENT, A TRANSFER IS MADE TO A FLIPPER * PTM20575 4164 | * ROUTINE WHICH FETCHES PHASE 2A AND TRANSFERS * PTM20580 4165 | * CONTROL TO IT. WHEN PHASE 2A COMPLETES THE * PTM20585 4166 | * FILE STATEMENT PROCESSING, IT RETURNS TO THE * PTM20590 4167 | * FLIPPER ROUTINE, WHICH, IN TURN, FETCHES THE * PTM20595 4168 | * OVERLAID PROTION OF PHASE 2 AND TRANSFERS * PTM20600 4169 | * CONTROL TO THE OP CODE SEARCH. * PTM20605 4170 | * *WHEN THE PHASE 2 PROCESSING OF A PARTICULAR * PTM20610 4171 | * HEADER MNEMONIC IS COMPLETED, A BRANCH IS * PTM20615 4172 | * MADE TO PALBL TO GET THE NEXT RECORD. * PTM20620 4173 | * * PTM20625 4174 | *ENTRY POINTS- * PTM20630 4175 | * *P2010 - ENTRY FROM PHASE 1A * PTM20635 4176 | * * PTM20640 4177 | *INPUT-N/A * PTM20645 4178 | * * PTM20650 4179 | *OUTPUT * PTM20655 4180 | * * THE CONSTRUCTED OP CODE FOR THE MNEMONIC * PTM20660 4181 | * BEING PROCESSED * PTM20665 4182 | * * PTM20670 4183 | *EXTERNAL RERERENCES- * PTM20675 4184 | * *SUBROUTINES- * PTM20680 4185 | * * B4HEX * PTM20685 4186 | * * DISK1 * PTM20690 4187 | * * ERFLG * PTM20695 4188 | * * GETS5 * PTM20700 4189 | * * LDLBL * PTM20705 4190 | * * LDXRS * PTM20710 4191 | * * PALBL * PTM20715 4192 | * * SCAN * PTM20720 4193 | * * STRT9 * PTM20725 4194 | * *DCOM/COMMA- * PTM20730 4195 | * @HWCT * PTM20735 4196 | * $NEND * PTM20740 4197 | * $PHSE * PTM20745 4198 | * * PTM20750 4199 | *EXITS- * PTM20755 4200 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM20760 4201 | * *ERROR - ERFLG SUBROUTINE * PTM20765 4202 | * * PTM20770 4203 | *TABLES/WORK AREAS- N/A * PTM20775 4204 | * * PTM20780 4205 | *ATTRIBUTES-REUSABLE * PTM20785 4206 | * * PTM20790 4207 | *NOTES-N/A * PTM20795 4208 | * * PTM20800 4209 | *************************************************** PTM20805 4210 | * PTM20810 0280 4211 | ORG OVLAY PTM20815 0280 019F 4212 | DC P2470-P2001 WD LNG PH 2 2-8 PTM20820 0281 FF26 4213 | DC -/DA SLET ID OF PHASE 2 2-8 PTM20825 0282 0148 4214 | PHS02 DC P2370-PHS02 ID TABLE ADDR PTM20830 0283 0001 4215 | DC 1 NO. OF ID'S TO BE FILLED PTM20835 0282 4216 | ORG *-2 PTM20840 0282 4C00 04C1 4217 | P2001 BSC L GETS5 2-8 PTM20845 0284 4C00 04C3 4218 | BSC L GETS6 2-8 PTM20850 0286 4C00 04C5 4219 | BSC L GETS7 2-8 PTM20855 0288 4C00 04CA 4220 | BSC L GETS8 2-8 PTM20860 028A 4C00 04CC 4221 | BSC L GTS8A 2-8 PTM20865 028C 4C00 04CE 4222 | BSC L GTS12 2-8 PTM20870 028E 4C00 04C7 4223 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM20875 4224 | * BEGIN EXECUTION---PHASE 2 PTM20880 0290 4C00 0292 4225 | P2010 BSC L * BR AHEAD PTM20885 0292 C00F 4226 | LD P2027 MODIFY ENTRY BR PTM20890 0293 D0FD 4227 | STO P2010+1 TO SKIP OP CD SEARCH PTM20895 4228 | * PTM20900 0294 4346 4229 | BSI 3 LDXRS-X3 GO TO RESTO XR1 & 3 PTM20905 0295 4C00 045D 4230 | BSC L STRT9 GO TO OP CD SEARCH PTM20910 4231 | * PTM20915 0297 C009 4232 | P2012 LD P2025 INDICATE THAT PHASE 2 PTM20920 0298 D400 0078 4233 | STO L $PHSE OF ASM IS IN CONTROL PTM20925 4234 | * * PTM20930 029A C32C 4235 | P2015 LD 3 OPCNT-X3 DETRM OP CODE PTM20935 029B 180C 4236 | SRA 12 PTM20940 029C D001 4237 | STO P2020+1 PTM20945 029D 6600 0000 4238 | P2020 LDX L2 *-* PTM20950 029F 4E80 02A3 4239 | BSC I2 P2030 PTM20955 4240 | * PTM20960 4241 | * CONSTANTS PTM20965 4242 | * PTM20970 02A1 00DA 4243 | P2025 DC /DA SLET ID OF PHASE 2 2-8 PTM20975 02A2 0297 4244 | P2027 DC P2012 ENTRY ADDR FROM PH. 9 PTM20980 02A3 02AD 4245 | P2030 DC P2050 PTM20985 02A4 02CD 4246 | DC P2090 PTM20990 02A5 02F6 4247 | DC P2170 PTM20995 02A6 0318 4248 | DC P2200 PTM21000 02A7 0327 4249 | DC P2210 PTM21005 02A8 0330 4250 | DC P2220 PTM21010 02A9 03AB 4251 | DC P2340 PTM21015 02AA 03EB 4252 | DC P2380 FILES STATEMENT PTM21020 4253 | * PTM21025 02AB 4C00 0339 4254 | P2040 BSC L P2225 GO TO RD NEXT RCD 2-8 PTM21030 4255 | * * PTM21035 02AD C32B 4256 | P2050 LD 3 RLMDE-X3 PTM21040 02AE 4C20 02B5 4257 | BSC L P2080,Z REL. MODE = RELOC. PTM21045 02B0 C003 4258 | P2060 LD P2070 =.O NO, OP CODE ERROR PTM21050 02B1 4400 0701 4259 | P2061 BSI L ERFLG 2-8 PTM21055 02B3 70F7 4260 | MDX P2040 PTM21060 02B4 00D6 4261 | P2070 DC .O PTM21065 02B5 C308 4262 | P2080 LD 3 ISSSW-X3 PRECEDED BY ISS PTM21070 02B6 EB09 4263 | OR 3 ILSSW-X3 OR ILS STATEMENT PTM21075 02B7 4C20 02B0 4264 | BSC L P2060,Z YES, OP CODE ER PTM21080 02B9 C30E 4265 | LD 3 ENTCT-X3 ENTCT = 14 PTM21085 02BA 4C18 02B0 4266 | BSC L P2060,+- YES, OP CODE ER PTM21090 02BC 1801 4267 | SRA 1 PTM21095 02BD D30E 4268 | STO 3 ENTCT-X3 PTM21100 02BE C307 4269 | LD 3 ENTSW-X3 CHECK FOR 1ST ENT PTM21105 02BF 4C18 02C4 4270 | BSC L P2085,+- BR IF FIRST ENT PTM21110 02C1 7403 0226 4271 | MDX L HDLTH,+3 INCRE HDR LENGTH PTM21115 02C3 7005 4272 | MDX P2086 BR TO CHECK PASS PTM21120 02C4 6C00 0220 4273 | P2085 STX L0 ENTSW SET ENT SWTCH ON PTM21125 02C6 C31E 4274 | LD 3 HTYPE-X3 PTM21130 02C7 8048 4275 | A P2172 INCRE TYPE BY 2 FOR ENT PTM21135 02C8 D31E 4276 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21140 02C9 C3F4 4277 | P2086 LD 3 PASS-X3 END OF ENT IF PASS 1 PTM21145 02CA 4420 033E 4278 | BSI L P2260,Z IF PASS 2 COLLECT PTM21150 02CC 70E6 4279 | MDX P2070-1 NAME AND REL. ADDRS. PTM21155 02CD C32B 4280 | P2090 LD 3 RLMDE-X3 IS REL. MODE = RELOCATABLE PTM21160 02CE 4C18 02B0 4281 | BSC L P2060,+- NO, OP CODE ERROR PTM21165 02D0 C307 4282 | LD 3 ENTSW-X3 NO ENT.S AND ONLY ONE ISS PTM21170 02D1 EB08 4283 | OR 3 ISSSW-X3 ALLOWED IN ISS ASSEMBLY PTM21175 02D2 EB09 4284 | OR 3 ILSSW-X3 NO ILS ALLOWED PTM21180 02D3 4C20 02B0 4285 | BSC L P2060,Z IN ISS ASSEMBLY. PTM21185 02D5 6C00 0221 4286 | STX L0 ISSSW PTM21190 02D7 4400 03CE 4287 | BSI L P2120 ISS-ILS COMMON SBRTN. PTM21195 02D9 4C30 02E1 4288 | BSC L *+6,-Z PTM21200 02DB C400 03E9 4289 | P2100 LD L P2161 =.S WHEN EVALUATING THE PTM21205 02DD 4400 0701 4290 | BSI L ERFLG *ISS NO. 2-8 PTM21210 02DF 1010 4291 | SLA 16 SET ISS NO. = 0 PTM21215 02E0 7007 4292 | MDX P2110 PTM21220 02E1 C2FE 4293 | LD 2 VALUE-A PTM21225 02E2 4C18 02DB 4294 | BSC L P2100,+- ISS NO. MUST BE 1 - 8. PTM21230 02E4 9010 4295 | S P2130 PTM21235 02E5 4C30 02DB 4296 | BSC L P2100,-Z PTM21240 02E7 C2FE 4297 | LD 2 VALUE-A STORE ISS NO. FOR PTM21245 02E8 D313 4298 | P2110 STO 3 ISSNO-X3 WORD 14 OF HEADER. PTM21250 02E9 7403 0226 4299 | MDX L HDLTH,+3 INITIAL HDR LNG BY 3 PTM21255 02EB C31E 4300 | LD 3 HTYPE-X3 PTM21260 02EC 8024 4301 | A P2174 INCRE TYPE BY 4 FOR ISS PTM21265 02ED D31E 4302 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21270 4303 | * * PTM21275 02EE C3F4 4304 | LD 3 PASS-X3 END OF ISS IF PASS 1 PTM21280 02EF 4C18 02AB 4305 | BSC L P2040,+- PTM21285 02F1 4346 4306 | BSI 3 LDXRS-X3 PTM21290 02F2 7123 4307 | MDX 1 +35 SET SCAN PTR FOR COLUMN 35 PTM21295 02F3 404A 4308 | BSI P2260 IF PASS 2 COLLECT NAME PTM21300 02F4 70D7 4309 | MDX P2090-1 PTM21305 02F5 0014 4310 | P2130 DC 20 MAXIMUM ISS NO. PTM21310 02F6 C32B 4311 | P2170 LD 3 RLMDE-X3 LIBR NOT PERMITTED IN PTM21315 02F7 4C18 02B0 4312 | BSC L P2060,+- ABSOLUTE ASSEMBLY. PTM21320 02F9 C309 4313 | LD 3 ILSSW-X3 ILS STATEMENT NOT PTM21325 02FA EB08 4314 | OR 3 ISSSW-X3 PERMITTED - ISS/ENT PTM21330 02FB EB07 4315 | OR 3 ENTSW-X3 COMING FIRST NOT PTM21335 02FC 4C20 02B0 4316 | BSC L P2060,Z PERMITTED WITH LIBR PTM21340 02FE 6C00 0223 4317 | STX L0 LBRSW SET LBRSW ON (NZ) PTM21345 4318 | * * PTM21350 0300 C3F4 4319 | LD 3 PASS-X3 IF PASS 1, NO MORE LIBR PTM21355 0301 4C18 030C 4320 | BSC L P2171,+- PROCESSING. PTM21360 0303 C31E 4321 | LD 3 HTYPE-X3 PTM21365 0304 1808 4322 | SRA 8 LIBR ONLY ALLOWED FOR PTM21370 0305 900E 4323 | S P2180 TYPE 3 (1 WORD CALL ENT PTM21375 0306 4C18 02CC 4324 | BSC L P2090-1,+- SUBROUTINE) OR TYPE 5 PTM21380 0308 900C 4325 | S P2190 (1 WORD CALL ISS SBRTN) PTM21385 0309 4C20 02B0 4326 | BSC L P2060,Z ANY OTHER TYPE WITH LIBR PTM21390 030B 70C0 4327 | MDX P2090-1 IS AN OP CODE ERROR. PTM21395 030C C31E 4328 | P2171 LD 3 HTYPE-X3 PTM21400 030D 9004 4329 | S P2176 DECRE TYPE BY 1 PTM21405 030E D31E 4330 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21410 030F 70BC 4331 | MDX P2090-1 BR TO EXIT PTM21415 4332 | * PTM21420 4333 | * CONSTANTS PTM21425 4334 | * PTM21430 0310 0200 4335 | P2172 DC /0200 ENT TYPE MODIFIER PTM21435 0311 0400 4336 | P2174 DC /0400 ISS TYPE MODIFIER PTM21440 0312 0100 4337 | P2176 DC /0100 ABS TYPE MODIFIER PTM21445 0313 0500 4338 | P2178 DC /0500 ILS TYPE MODIFIER PTM21450 0314 0003 4339 | P2180 DC /3 PTM21455 0315 0002 4340 | P2190 DC /2 PTM21460 0316 0001 4341 | P2195 DC 1 PTM21465 0317 1000 4342 | P2196 DC /1000 ENT COUNT FIRST TIME 2-9 PTM21470 4343 | * PTM21475 0318 C308 4344 | P2200 LD 3 ISSSW-X3 NO ISS OR ENT'S ALLOWED PTM21480 0319 EB07 4345 | OR 3 ENTSW-X3 IN AN ABSOLUTE ASSEMBLY. PTM21485 031A EB09 4346 | OR 3 ILSSW-X3 ILS NOT ALLOWED PTM21490 031B EB0A 4347 | OR 3 LBRSW-X3 PTM21495 031C 4C20 02B0 4348 | BSC L P2060,Z PTM21500 031E 1010 4349 | SLA 16 RLMDE=0 FOR ABS ASSEMBLY PTM21505 031F D32B 4350 | STO 3 RLMDE-X3 PTM21510 0320 C01C 4351 | LD P2250 SET ADDRESS COUNTER = PTM21515 0321 D3FA 4352 | STO 3 ADCOW-X3 LOWEST LOADABLE LOCATION PTM21520 0322 D3FC 4353 | STO 3 ADCW2-X3 PTM21525 4354 | * * PTM21530 0323 C31E 4355 | LD 3 HTYPE-X3 PTM21535 0324 90ED 4356 | S P2176 DECRE TYPE BY 1 PTM21540 0325 D31E 4357 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21545 0326 70A5 4358 | MDX P2090-1 PTM21550 0327 C30C 4359 | P2210 LD 3 SPRSW-X3 ONLY ONE TYPE PREC. PTM21555 0328 4C20 02B0 4360 | BSC L P2060,Z MAY BE SPECIFIED PTM21560 032A 6C00 0224 4361 | STX L0 EPRSW SET EPRSW ON (NZ) PTM21565 032C C0E8 4362 | LD P2190 IND PREC OF 2 PTM21570 032D EB1E 4363 | OR 3 HTYPE-X3 WITH THE TYPE PTM21575 032E D31E 4364 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21580 032F 70F6 4365 | MDX P2210-1 PTM21585 0330 C30B 4366 | P2220 LD 3 EPRSW-X3 ONLY ONE TYPE PREC. PTM21590 0331 4C20 02B0 4367 | BSC L P2060,Z MAY BE SPECIFIED PTM21595 0333 6C00 0225 4368 | STX L0 SPRSW SET SPRSW ON (NZ) PTM21600 0335 C0E0 4369 | LD P2195 IND PREC OF 1 PTM21605 0336 EB1E 4370 | OR 3 HTYPE-X3 WITH THE TYPE PTM21610 0337 D31E 4371 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM21615 0338 70F6 4372 | MDX P2220-1 PTM21620 0339 4400 074B 4373 | P2225 BSI L PALBL RD NEXT RCD 2-8 PTM21625 033B 4C00 045D 4374 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM21630 4375 | * PTM21635 4376 | * CONSTANTS PTM21640 4377 | * PTM21645 033D 03C0 4378 | P2250 DC $NEND+@HWCT LOAD ADDR - DEFAULT ABS PTM21650 4379 | * PTM21655 033E 0000 4380 | P2260 DC 0 ENTRY PTM21660 033F 6600 057A 4381 | LDX L2 GNRT1 SAVE LONG INST 2-8 PTM21665 0341 C2FF 4382 | LD 2 -1 *IN THE SCAN ROUTINE 2-6 PTM21670 0342 D064 4383 | STO P2310 *THAT IS TO BE 2-6 PTM21675 0343 C200 4384 | LD 2 0 *MODIFIED 2-6 PTM21680 0344 D063 4385 | STO P2311 2-6 PTM21685 0345 C400 052B 4386 | LD L FERR1 CHANGE BSC INST IN 2-8 PTM21690 0347 D2FF 4387 | STO 2 -1 *SCAN RTN TO BSI INSTR 2-6 PTM21695 0348 C400 052C 4388 | LD L FERR2 CHANGE ADDR 2-8 PTM21700 034A D200 4389 | STO 2 0 *TO ERFLG ROUTINE 2-6 PTM21705 034B C05A 4390 | LD P2300 DO NOT ALLOW LEADING PLUS, PTM21710 034C D400 051B 4391 | STO L NOP1 MINUS,COMMA,OR BLANK. 2-8 PTM21715 034E 4400 04E1 4392 | BSI L SCAN 2-8 PTM21720 0350 6600 057A 4393 | LDX L2 GNRT1 XR2 PTS TO INST IN SCAN 2-8 PTM21725 0352 C054 4394 | LD P2310 RESTORE INSTR 2-6 PTM21730 0353 D2FF 4395 | STO 2 -1 *IN SCAN RTN 2-6 PTM21735 0354 C053 4396 | LD P2311 *THAT WAS 2-6 PTM21740 0355 D200 4397 | STO 2 0 *MODIFIED 2-6 PTM21745 0356 6600 0240 4398 | LDX L2 A RESTORE XR2 2-6 PTM21750 0358 C050 4399 | LD P2320 PTM21755 0359 D400 051B 4400 | STO L NOP1 2-8 PTM21760 035B C204 4401 | LD 2 RLMDE-A PTM21765 035C 180E 4402 | SRA 14 ENTRY ADDRESS MUST PTM21770 035D F200 4403 | EOR 2 RELSW-A BE RELOCATABLE. PTM21775 035E 4C18 0363 4404 | BSC L P2278,+- PTM21780 0360 C049 4405 | LD P2330 =.R RELOCATION ERROR PTM21785 0361 4C00 02B1 4406 | BSC L P2061 PTM21790 0363 C308 4407 | P2278 LD 3 ISSSW-X3 IS THIS AN ISS STMNT 2-9 PTM21795 0364 4C20 0383 4408 | BSC L P2268,Z BRANCH IF YES 2-9 PTM21800 0366 6680 022A 4409 | LDX I2 DSBUF SET XR2 TO WD 10 OF DSF BFR PTM21805 0368 C30E 4410 | LD 3 ENTCT-X3 GET NO OF ENT'S 2-9 PTM21810 0369 90AD 4411 | S P2196 IS THIS FIRST ENT 2-9 PTM21815 036A 4C18 0385 4412 | BSC L P2280,+- BRANCH IF YES 2-9 PTM21820 036C C30E 4413 | LD 3 ENTCT-X3 IF NOT - START CHECKING 2-9 PTM21825 036D 610D 4414 | LDX 1 13 *IF NAME ALREADY ENTERED2-9 PTM21830 036E 4820 4415 | BSC Z SKIP IF 14TH ENT IS TO 2-9 PTM21835 036F 71FF 4416 | P2262 MDX 1 -1 *BE PROCESSED 2-9 PTM21840 0370 1000 4417 | NOP NOP TO AVOID SKIPPING 2-9 PTM21845 0371 1801 4418 | SRA 1 DECREMENT ENT COUNT 2-9 PTM21850 0372 4820 4419 | BSC Z START BACK CHECKING 2-9 PTM21855 0373 70FB 4420 | MDX P2262 CONT DECR COUNT 2-9 PTM21860 0374 CB23 4421 | P2264 LDD 3 SYMBF-X3 GET ENT NAME 2-9 PTM21865 0375 92FD 4422 | S 2 -3 COMP WITH ENTERED NAMES 2-9 PTM21870 0376 4C20 0380 4423 | BSC L P2266,Z BR IF NO MATCH FRST HALF2-9 PTM21875 0378 18D0 4424 | RTE 16 PUT SECOND HALF IN ACC 2-9 PTM21880 0379 92FE 4425 | S 2 -2 COMP WITH SECOND WORD 2-9 PTM21885 037A 4C20 0380 4426 | BSC L P2266,Z BR IF NO MATCH SECND WRD2-9 PTM21890 037C C06C 4427 | LD P2161 SET UP ERROR FLAG S 2-9 PTM21895 037D 4400 0701 4428 | BSI L ERFLG *IF NAME ENTERED BEFORE 2-9 PTM21900 037F 7003 4429 | MDX P2268 CONT BUILDING DSF HEAD. 2-9 PTM21905 0380 72FD 4430 | P2266 MDX 2 -3 DECREMENT HEADERPOINTER 2-9 PTM21910 0381 71FF 4431 | MDX 1 -1 DECREMENT ENT COUNT 2-9 PTM21915 0382 70F1 4432 | MDX P2264 BRANCH CHECK NEXT NAME 2-9 PTM21920 0383 6680 022A 4433 | P2268 LDX I2 DSBUF RESET POINTER TO DSFHEAD2-9 PTM21925 0385 CB23 4434 | P2280 LDD 3 SYMBF-X3 GET ENT NAME 2-9 PTM21930 0386 D200 4435 | STO 2 0 PUT IN DSF HEADER 2-9 PTM21935 0387 18D0 4436 | RTE 16 OUTPUT NAME AND EQUIV 2-9 PTM21940 0388 D201 4437 | STO 2 +1 TO PROGRAM HEADER 2-9 PTM21945 0389 C325 4438 | LD 3 VALUE-X3 OUTPUT REL.ADDRESS OF 2-9 PTM21950 038A D202 4439 | STO 2 +2 RELATIVE ENTRY PT. ADDRESS PTM21955 038B 7203 4440 | MDX 2 +3 UPDATE BUFFER ADDRESS FOR PTM21960 038C 4346 4441 | BSI 3 LDXRS-X3 GO TO RESTO XR1 & XR3 PTM21965 038D 7101 4442 | MDX 1 1 SET TO CC 1 PTM21970 038E 6E00 022A 4443 | STX L2 DSBUF NEXT ENTRY PT. PTM21975 0390 4400 06FA 4444 | BSI L B4HEX O/P ENTRY PT ADDR 2-8 PTM21980 0392 7104 4445 | MDX 1 +4 TO CC 1-4. PTM21985 0393 CC00 023C 4446 | LDD L SYMBF PTM21990 0395 4400 06FA 4447 | BSI L B4HEX O/P ENTRY PT NAME TO 2-8 PTM21995 0397 CC00 023C 4448 | LDD L SYMBF CC 9-16. PTM22000 0399 18D0 4449 | RTE 16 PTM22005 039A 4400 06FA 4450 | BSI L B4HEX 2-8 PTM22010 039C C30E 4451 | LD 3 ENTCT-X3 PTM22015 039D 180C 4452 | SRA 12 PTM22020 039E 4C98 033E 4453 | BSC I P2260,+- PTM22025 03A0 CB23 4454 | LDD 3 SYMBF-X3 INSERT FIRST ENTRY PT PTM22030 03A1 DBE1 4455 | STD 3 NAMEP-X3 (NAME AND ADDRESS) IN PTM22035 03A2 C325 4456 | LD 3 VALUE-X3 COMMA FOR DUP. PTM22040 03A3 D3E3 4457 | STO 3 RELEP-X3 PTM22045 03A4 4C80 033E 4458 | BSC I P2260 EXIT PTM22050 4459 | * PTM22055 4460 | * CONSTANTS PTM22060 4461 | * PTM22065 03A6 1080 4462 | P2300 SLT 0 PTM22070 03A7 0000 4463 | P2310 DC *-* TEMPORARY STORAGE PTM22075 03A8 0000 4464 | P2311 DC *-* 2ND WD TEMP STORAGE 2-6 PTM22080 03A9 1880 4465 | P2320 SRT 0 PTM22085 03AA 00D9 4466 | P2330 DC .R PTM22090 4467 | * PTM22095 03AB C32B 4468 | P2340 LD 3 RLMDE-X3 ILS NOT ALLOWED PTM22100 03AC 4C18 02B0 4469 | BSC L P2060,+- WITH ABS PTM22105 03AE C307 4470 | LD 3 ENTSW-X3 ILS NOT ALLOWED WITH ENT, PTM22110 03AF EB08 4471 | OR 3 ISSSW-X3 ISS, PTM22115 03B0 EB0A 4472 | OR 3 LBRSW-X3 LIBR, PTM22120 03B1 EB09 4473 | OR 3 ILSSW-X3 OR ANOTHER ILS. PTM22125 03B2 4C20 02B0 4474 | BSC L P2060,Z OP CODE ERROR IF NON-ZERO PTM22130 03B4 6C00 0222 4475 | STX L0 ILSSW SET NON-ZERO PTM22135 4476 | * * PTM22140 03B6 7401 0226 4477 | MDX L HDLTH,+1 INCRE HDR LENGTH PTM22145 03B8 C31E 4478 | LD 3 HTYPE-X3 PTM22150 03B9 8400 0313 4479 | A L P2178 INCRE TYPE BY 5 FOR ILS PTM22155 03BB D31E 4480 | STO 3 HTYPE-X3 RESTO ADJUSTED TYPE TO COM PTM22160 4481 | * * PTM22165 03BC 4400 03CE 4482 | BSI L P2120 COMPUTE LEVEL NO. 32-33 PTM22170 03BE D313 4483 | STO 3 ISSNO-X3 SAVE LEVEL NUMBER PTM22175 03BF 9007 4484 | S P2350 COMPARE WITH 5 PTM22180 03C0 4C08 02AB 4485 | BSC L P2040,+ OK IF NOT PLUS PTM22185 03C2 C005 4486 | LD P2360 EBCDIC S PTM22190 03C3 4400 0701 4487 | BSI L ERFLG SYNTAX ERR 2-8 PTM22195 03C5 4C00 02AB 4488 | BSC L P2040 GET NEXT RECORD PTM22200 4489 | * PTM22205 4490 | * CONSTANTS PTM22210 4491 | * PTM22215 03C7 0005 4492 | P2350 DC 5 PTM22220 03C8 00E2 4493 | P2360 DC .S PTM22225 03C9 4C80 4494 | P2230 DC /4C80 2-9 PTM22230 4495 | * PTM22235 03CA 4496 | BSS E 0 PTM22240 03CA 00DB 4497 | P2370 DC /DB SLET ID OF PHASE 2A 2-8 PTM22245 03CB 4498 | BSS 3 PTM22250 4499 | * PTM22255 4500 | *************************************************** PTM22260 4501 | * * PTM22265 4502 | * THIS SUBR LOADS AND TRANS TO PH. 2A FOR * PTM22270 4503 | * FILES PROCESSING. THIS SUBR IS THE RESIDENT * PTM22275 4504 | * COMMUNICATIONS BETWEEN PH.2 AND 2A. * PTM22280 4505 | * * PTM22285 4506 | *************************************************** PTM22290 03CE 0000 4507 | P2120 DC 0 PTM22295 03CF C0F9 4508 | LD P2230 SET-UP SCAN TO ALLOW PTM22300 03D0 D400 052B 4509 | STO L FERR1 ONLY NUMERIC OPERAND 2-8 PTM22305 03D2 C012 4510 | LD P2135 2-8 PTM22310 03D3 D400 052C 4511 | STO L FERR2 2-8 PTM22315 03D5 71FD 4512 | MDX 1 -3 START AT COLUMN 32, PTM22320 03D6 C100 4513 | LD 1 0 OR CC 33 IF CC 32 PTM22325 03D7 9010 4514 | S P2160 =. IS BLANK. PTM22330 03D8 4818 4515 | BSC +- PTM22335 03D9 7101 4516 | MDX 1 +1 PTM22340 03DA 4400 04E1 4517 | BSI L SCAN EVALUATE ISS NO. 2-8 PTM22345 03DC C00A 4518 | LD P2140 PTM22350 03DD D400 052B 4519 | STO L FERR1 RESET SCAN TO NORMAL 2-8 PTM22355 03DF C006 4520 | LD P2137 *STATUS 2-8 PTM22360 03E0 D400 052C 4521 | STO L FERR2 2-8 PTM22365 03E2 C2FE 4522 | LD 2 VALUE-A RETURN WITH NO. IN ACC PTM22370 03E3 4C80 03CE 4523 | BSC I P2120 PTM22375 4524 | * PTM22380 4525 | * CONSTANTS PTM22385 4526 | * PTM22390 03E5 04E1 4527 | P2135 DC SCAN ADDR OF SCAN SUBR 2-8 PTM22395 03E6 0701 4528 | P2137 DC ERFLG ADDR ERROR FLAG SUBR 2-8 PTM22400 03E7 4400 4529 | P2140 DC /4400 PTM22405 03E8 0040 4530 | P2160 DC . PTM22410 03E9 00E2 4531 | P2161 DC .S PTM22415 03EA 0003 4532 | DC 3 PTM22420 4533 | * PTM22425 03EB C8E0 4534 | P2380 LDD P2370+2 SET PH. 2A WD CNT AND SCTR PTM22430 03EC DC00 0282 4535 | STD L OVLAY+2 ADDR IN I/O HDR AREA PTM22435 03EE C0FE 4536 | LD *-2 PTM22440 03EF 18D0 4537 | RTE 16 PTM22445 03F0 C009 4538 | LD HDRP2 PTM22450 03F1 435C 4539 | BSI 3 DISK1-X3 GO TO LOAD PH. 2A PTM22455 4540 | * PTM22460 03F2 4400 0284 4541 | BSI L OVLAY+4 TRANS TO PHASE 2A PTM22465 4542 | * PTM22470 03F4 C805 4543 | P2390 LDD HDRP2 PH. 2 HDR INFO PTM22475 03F5 435C 4544 | BSI 3 DISK1-X3 GO TO LOAD PH. 2 PTM22480 4545 | * * PTM22485 03F6 4400 073A 4546 | BSI L LDLBL GET NEXT RCD 2-8 PTM22490 03F8 4C00 045D 4547 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM22495 4548 | * * PTM22500 03FA 4549 | BSS E 0 PTM22505 03FA 7000 4550 | HDRP2 DC /7000 READ FUNC CODE PTM22510 03FB 0280 4551 | DC OVLAY PH. 2 I/O 1R51 HDR ADDR PTM22515 03FC 4552 | BSS /0421-* PHASE 2 PATCH AREA 2-9 PTM22520 0421 0000 4553 | P2470 DC 0 PTM22525 *SBRKSLS DB 4554 | ASM FILE STATEMENT PHASE V2M08 PTM22530 ***PHASE 2A - FILES PROCESSING*** 4556 | *************************************************** PTM22540 4557 | * * PTM22545 4558 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM22550 4559 | * * PTM22555 4560 | *FUNCTION/OPERATION- * PTM22560 4561 | * *PHASE 2A IS LOADED BY A FLIPPER ROUTINE * PTM22565 4562 | * WITHIN PHASE 2 AND OVERLAYS PART OF PHASE 2. * PTM22570 4563 | * *PHASE 2A OBTAINS THE FILE INFORMATION FROM * PTM22575 4564 | * THE FILE STATEMENT AND BUILDS THE 7-WORD * PTM22580 4565 | * DEFINE FILE TABLE. * PTM22585 4566 | * * PTM22590 4567 | *ENTRY POINTS- * PTM22595 4568 | * * P2000 - ENTRY FROM PHASE 2 * PTM22600 4569 | * * PTM22605 4570 | *INPUT-N/A * PTM22610 4571 | * * PTM22615 4572 | *OUTPUT * PTM22620 4573 | * * THE CONSTRUCTED FILE TABLE * PTM22625 4574 | * * PTM22630 4575 | *EXTERNAL RERERENCES- * PTM22635 4576 | * *SUBROUTINES- * PTM22640 4577 | * * DFOUT * PTM22645 4578 | * * ERFLG * PTM22650 4579 | * * LDXRS * PTM22655 4580 | * * SCAN * PTM22660 4581 | * *DCOM/COMMA- * PTM22665 4582 | * $PHSE * PTM22670 4583 | * * PTM22675 4584 | *EXITS- * PTM22680 4585 | * *NORMAL - PHASE 2 FLIPPER SUBROUTINE * PTM22685 4586 | * *ERROR - ERFLG SUBROUTINE * PTM22690 4587 | * * PTM22695 4588 | *TABLES/WORK AREAS- N/A * PTM22700 4589 | * * PTM22705 4590 | *ATTRIBUTES-REUSABLE * PTM22710 4591 | * * PTM22715 4592 | *NOTES-N/A * PTM22720 4593 | * * PTM22725 4594 | *************************************************** PTM22730 4595 | * PTM22735 0282 4596 | ORG OVLAY+2 PTM22740 4597 | * PTM22745 4598 | * THE FOLLOWING SECTION OF PHASE 2 PTM22750 4599 | * PROCESSES FILE STATEMENTS. PTM22755 0282 00A2 4600 | DC P2A99-P2000 WD CNT OF PHASE 2A PTM22760 0283 00DB 4601 | DC /DB SLET ID OF PHASE 2A 2-8 PTM22765 0284 0000 4602 | P2000 DC 0 ENTRY PTM22770 0285 C018 4603 | LD P2077 2-8 PTM22775 0286 D400 0078 4604 | STO L $PHSE SET ID IN COMMA PTM22780 4605 | * PTM22785 0288 C307 4606 | LD 3 ENTSW-X3 PTM22800 0289 EB08 4607 | OR 3 ISSSW-X3 FILE STATEMENT CANNOT BE PTM22805 028A EB09 4608 | OR 3 ILSSW-X3 PRECEEDED BY AN ENT,ISS, PTM22810 028B EB0A 4609 | OR 3 LBRSW-X3 ILS, OR LIBR STATEMENT PTM22815 028C 4C20 0298 4610 | BSC L P2065,Z BRANCH IF SO PRECEDED 2-8 PTM22820 028E 7401 0203 4611 | MDX L FILE,+1 INCREMENT FILE COUNTER PTM22825 0290 C3F4 4612 | LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM22830 0291 4C20 029F 4613 | BSC L P2385,Z BRANCH IF PASS 2 2-8 PTM22835 4614 | * PTM22840 4615 | * FILE INSTRUCTION, PASS 1 PTM22845 4616 | * PTM22850 0293 7407 0213 4617 | MDX L ADCOW,+7 LEAVE ROOM FOR FILE TABLE PTM22855 0295 1000 4618 | NOP (MAY SKIP) PTM22860 4619 | * * PTM22865 0296 4C80 0284 4620 | P2376 BSC I P2000 EXIT PH. 2A PTM22870 4621 | * PTM22875 0298 C004 4622 | P2065 LD P2075 ERROR FLAG 2-8 PTM22880 0299 4400 0701 4623 | BSI L ERFLG GO TO ERR SUBR 2-8 PTM22885 029B 70FA 4624 | MDX P2376 GO TO EXIT PTM22890 4625 | * PTM22895 4626 | * CONSTANTS PTM22900 4627 | * PTM22905 029C 00E2 4628 | P2365 DC .S EBCDIC S 2-8 PTM22910 029D 00D6 4629 | P2075 DC .O EBCDIC O 2-8 PTM22915 029E 00DB 4630 | P2077 DC /DB SLET ID OF PHASE 2A 2-8 PTM22920 4631 | * PTM22925 4632 | * PTM22930 029F C060 4633 | P2385 LD P2475 2-8 PTM22935 02A0 D1FD 4634 | STO 1 -3 SET FORMAT TO LONG PTM22940 02A1 4061 4635 | BSI P2125 GET FILE NUMBER 2-8 PTM22945 02A2 D321 4636 | STO 3 TRWRD-X3 OUTPUT FILE NUMBER AS PTM22950 02A3 4400 0883 4637 | BSI L DFOUT FIRST WD OF FILE TABLE 2-8 PTM22955 02A5 7401 0213 4638 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM22960 02A7 1000 4639 | NOP (MAY SKIP) PTM22965 4640 | * * PTM22970 02A8 405A 4641 | P2395 BSI P2125 GET NO. OF RCDS IN FILE 2-8 PTM22975 02A9 D050 4642 | STO P2430 STORE IN TEMPORARY PTM22980 02AA D321 4643 | STO 3 TRWRD-X3 OUTPUT NO. OF RECORDS AS PTM22985 02AB 4400 0883 4644 | BSI L DFOUT 2ND WD OF FILE TABLE 2-8 PTM22990 02AD 7401 0213 4645 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM22995 02AF 1000 4646 | NOP (MAY SKIP) PTM23000 4647 | * PTM23005 02B0 4052 4648 | P2095 BSI P2125 GET RCD LNG (WORDS) 2-8 PTM23010 02B1 D049 4649 | STO P2430+1 STORE IN TEMPORARY, PTM23015 02B2 D321 4650 | STO 3 TRWRD-X3 OUTPUT RECORD LENGTH AS PTM23020 02B3 4400 0883 4651 | BSI L DFOUT 3RD WD OF FILE TABLE 2-8 PTM23025 02B5 7401 0213 4652 | MDX L ADCOW,+1 INCREMENT ADDR CTR PTM23030 02B7 1000 4653 | NOP (MAY SKIP) PTM23035 4654 | * PTM23040 02B8 C100 4655 | LD 1 0 NEXT INPUT CHARACTER AFTER PTM23045 02B9 9042 4656 | S P2440 RECORD LENGTH MUST BE PTM23050 02BA 4C18 02BF 4657 | BSC L P2400,+- EBCDIC U. BRANCH IF OK PTM23055 4658 | * PTM23060 4659 | * IF NOT AN EBCDIC U, FLAG AS SYNTAX ER PTM23065 4660 | * PTM23070 02BC C0DF 4661 | LD P2365 INSERT EBC S INTO POS 2-8 PTM23075 02BD 4400 0701 4662 | BSI L ERFLG 18 OF INPUT BFR 2-8 PTM23080 4663 | * PTM23085 02BF 7102 4664 | P2400 MDX 1 +2 POINT TO NEXT CC PTM23090 02C0 4400 04E1 4665 | BSI L SCAN GET VALUE OF ASSOC. VAR 2-8 PTM23095 02C2 C327 4666 | LD 3 RELSW-X3 2-7 PTM23100 02C3 100E 4667 | SLA 14 SET UP RELOC INDR BIT 2-7 PTM23105 02C4 18D0 4668 | RTE 16 PTM23110 02C5 C325 4669 | LD 3 VALUE-X3 PTM23115 02C6 DB21 4670 | STD 3 TRWRD-X3 AS FOURTH WD OF TABLE PTM23120 02C7 4400 0883 4671 | BSI L DFOUT 2-8 PTM23125 02C9 7401 0213 4672 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM23130 02CB 1000 4673 | NOP (MAY SKIP) PTM23135 4674 | * PTM23140 02CC 1010 4675 | SLA 16 OUTPUT ZERO AS FIFTH WORD PTM23145 02CD D321 4676 | STO 3 TRWRD-X3 OF FILE TABLE. SET TO SCTR PTM23150 02CE 4400 0883 4677 | BSI L DFOUT ADDR BY CORE LD BUILDER 2-8 PTM23155 02D0 7401 0213 4678 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM23160 02D2 1000 4679 | NOP (MAY SKIP) PTM23165 4680 | * PTM23170 4681 | * COMPUTE NO. OF RECORDS PER SECTOR PTM23175 4682 | * PTM23180 02D3 C029 4683 | LD P2450 NO. OF RECORDS PER SECTOR PTM23185 02D4 1890 4684 | SRT 16 EQUALS INTEGER QUOTIENT OF PTM23190 02D5 1010 4685 | SLA 16 320 DIVIDED BY RECORD PTM23195 02D6 A824 4686 | D P2430+1 LENGTH IN WORDS PTM23200 02D7 D023 4687 | STO P2430+1 STORE IN TEMPORARY PTM23205 02D8 D321 4688 | STO 3 TRWRD-X3 OUTPUT RECORDS/SCTR AS PTM23210 02D9 4400 0883 4689 | BSI L DFOUT 6TH WD OF FILE TABLE 2-8 PTM23215 02DB 7401 0213 4690 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM23220 02DD 1000 4691 | NOP (MAY SKIP) PTM23225 4692 | * PTM23230 4693 | * COMPUTE LENGTH OF FILE IN DISK BLOCKS PTM23235 4694 | * PTM23240 02DE C01B 4695 | LD P2430 LENGTH OF FILE IN DISK PTM23245 02DF 188C 4696 | SRT 12 BLOCK EQUALS THE QUO- 2-7 PTM23250 02E0 1000 4697 | NOP *TIENT OF NO. OF RECORDS2-7 PTM23255 02E1 A819 4698 | D P2430+1 DIVIDED BY RECORDS/SCTR PTM23260 02E2 D321 4699 | STO 3 TRWRD-X3 OUTPUT DISK BLOCK LENGTH AS PTM23265 02E3 18D0 4700 | RTE 16 CHECK REMAINDER PTM23270 02E4 4820 4701 | BSC Z SKIP IF ZERO PTM23275 02E5 C01C 4702 | LD P2484 ADD ONE TO DB PTM23280 02E6 8321 4703 | A 3 TRWRD-X3 COUNT. PTM23285 02E7 D321 4704 | STO 3 TRWRD-X3 PTM23290 02E8 903C 4705 | S P2490 CHECK FOR LENGTH OF FILE2-7 PTM23295 02E9 4C30 02F4 4706 | BSC L P2415,-Z BRANCH IF TOO LONG 2-9 PTM23300 02EB 4400 0883 4707 | P2405 BSI L DFOUT 7TH WORD OF FILE TABLE 2-9 PTM23305 02ED 7401 0213 4708 | MDX L ADCOW,+1 INCREMENT ADDR CTR BY 1 PTM23310 02EF 1000 4709 | NOP (MAY SKIP) PTM23315 4710 | * PTM23320 02F0 4346 4711 | BSI 3 LDXRS-X3 GO RESTO XR1 & XR3 PTM23325 02F1 C00F 4712 | LD P2480 PTM23330 02F2 D120 4713 | STO 1 +32 RESET BLANK TO FORMAT PTM23335 02F3 70A2 4714 | P2410 MDX P2376 GO TO EXIT PTM23340 4715 | * 2-9 PTM23345 02F4 C0A7 4716 | P2415 LD P2365 INSERT EBC S INTO 2-9 PTM23350 02F5 4400 0701 4717 | BSI L ERFLG *ERROR FLAG COLUMNS 2-9 PTM23355 02F7 70F3 4718 | MDX P2405 BRANCH TO OUTPUT WD 7 2-9 PTM23360 4719 | * PTM23365 4720 | * CONSTANTS PTM23370 4721 | * PTM23375 02F8 004D 4722 | P2420 DC /4D 029 LEFT PARENTHESES PTM23380 02F9 0000 4723 | DC .%-/4D 026 LEFT PARENTHESES PTM23385 02FA 4724 | P2430 BSS 2 TEMPORARY STORAGE PTM23390 02FC 00E4 4725 | P2440 DC .U EBCDIC U PTM23395 02FD 0140 4726 | P2450 DC 320 WORDS PER SECTOR (CONSTANT) PTM23400 02FE 005D 4727 | P2460 DC /5D 029 RIGHT PARENTHESES PTM23405 02FF 0000 4728 | DC .<-/5D 026 RIGHT PARENTHESES PTM23410 0300 00D3 4729 | P2475 DC .L EBCDIC L 2-8 PTM23415 0301 0040 4730 | P2480 DC . EBCDIC BLANK PTM23420 0302 0001 4731 | P2484 DC 1 CONSTANT ONE PTM23425 4732 | *************************************************** PTM23430 4733 | * SCAN INTERFACE TO ALLOW ONLY NUMERIC OPERAND * PTM23435 4734 | *************************************************** PTM23440 0303 0000 4735 | P2125 DC *-* ENTRY 2-8 PTM23445 0304 C013 4736 | LD P2231 SET UP SCAN TO ALLOW 2-8 PTM23450 0305 D400 052B 4737 | STO L FERR1 ONLY NUMERIC OPERAND 2-8 PTM23455 0307 C00D 4738 | LD P2131 2-8 PTM23460 0308 D400 052C 4739 | STO L FERR2 2-8 PTM23465 030A 4400 04E1 4740 | BSI L SCAN EVALUATE FILE 2-8 PTM23470 030C C00A 4741 | LD P2141 2-8 PTM23475 030D D400 052B 4742 | STO L FERR1 RESET SCAN TO 2-8 PTM23480 030F C006 4743 | LD P2136 *NORMAL STATUS 2-8 PTM23485 0310 D400 052C 4744 | STO L FERR2 2-8 PTM23490 0312 C325 4745 | LD 3 VALUE-X3 PTM23495 0313 4C80 0303 4746 | BSC I P2125 RETURN TO CALLER 2-8 PTM23500 4747 | * PTM23505 0315 04E1 4748 | P2131 DC SCAN ADDR SCAN SUBR 2-8 PTM23510 0316 0701 4749 | P2136 DC ERFLG ADDR ERR FLAG SUBR 2-8 PTM23515 0317 4400 4750 | P2141 DC /4400 CONSTANT 'BSI' 2-8 PTM23520 0318 4C80 4751 | P2231 DC /4C80 CONSTANT 'BSC I' 2-8 PTM23525 0319 4752 | BSS 12 PHASE 2A PATCH AREA 2-9 PTM23530 0325 6400 4753 | P2490 DC /6400 LIMIT OF FILE LENGTH 2-7 PTM23535 0326 0000 4754 | P2A99 DC 0 PTM23540 *SBRKSLS DC 4755 | ASM COMMON SUBROUTINES,ASCOM V2M08 PTM23545 *** PHASE 9 COMMON SUBROUTINES *** 4757 | *************************************************** PTM23555 4758 | * * PTM23560 4759 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM23565 4760 | * * PTM23570 4761 | *FUNCTION/OPERATION- * PTM23575 4762 | * *PHASE 9 CONSISTS OF SUBROUTINES THAT ARE * PTM23580 4763 | * COMMON TO ALL PHASES IN THE ASSEMBLER. * PTM23585 4764 | * *THE PHASE 9 COMMUNICATIONS AREA (PHSCO) * PTM23590 4765 | * CONSISTS OF THE ENTRY ADDRESSES OF THE * PTM23595 4766 | * COMMON SUBROUTINES. * PTM23600 4767 | * *PHASE 9 REMAINS RESIDENT IN CORE DURING THE * PTM23605 4768 | * ENTIRE ASSEMBLY PROCESS, ALTHOUGH A FEW * PTM23610 4769 | * SUBROUTINES WITHIN PHASE 9 ARE OVERLAID. * PTM23615 4770 | * * PTM23620 4771 | *ENTRY POINTS- * PTM23625 4772 | * * STRT9 - OP CODE SEARCH SUBR * PTM23630 4773 | * * GETS5 - FETCH PHASE 5 * PTM23635 4774 | * * GETS6 - FETCH PHASE 6 * PTM23640 4775 | * * GETS7 - FETCH PHASE 7 * PTM23645 4776 | * * GETS8 - FETCH PHASE 8 * PTM23650 4777 | * * GTS8A - FETCH PHASE 8A * PTM23655 4778 | * * GTS12 - FETCH PHASE 12 * PTM23660 4779 | * * GETS2 - FETCH PHASE 2 * PTM23665 4780 | * * SCAN - SCAN THE OPERAND FIELD SUBR * PTM23670 4781 | * * BTHEX - BINARY TO HEX (1-3) SUBR * PTM23675 4782 | * * B4HEX - BINARY TO HEX (4) SUBR * PTM23680 4783 | * * ERFLG - ERROR FLAGGING SUBR * PTM23685 4784 | * * GTHDG - RESTO PAGE & PRNT HDNG SUBR * PTM23690 4785 | * * LDLBL - COLLECT & CHECK LABEL-GET NEXT RCD * PTM23695 4786 | * * PALBL - IGNOR LABLE - GET NEXT RECORD * PTM23700 4787 | * * GETER - FETCH THE ERROR SUBR * PTM23705 4788 | * * RDCRD - READ A RECORD SUBR * PTM23710 4789 | * * P9MVE - MOVE RCRD FROM I/O TO PRNT BFR SUBR * PTM23715 4790 | * * DFOUT - DSF OUTPUT SUBR * PTM23720 4791 | * * DTHDR - GENERATE A DATA HDR SUBR * PTM23725 4792 | * * WRDFO - CHECK FOR, & WRITE, FULL DSF BRR SUBR PTM23730 4793 | * * INT1 - INTERMEDIATE OUTPUT SUBR * PTM23735 4794 | * * INT2 - INTERMEDIATE INPUT(1 PASS MODE) SUBR * PTM23740 4795 | * * PTM23745 4796 | *INPUT-N/A * PTM23750 4797 | * * PTM23755 4798 | *OUTPUT * PTM23760 4799 | * *VARIES WITH EACH SUBROUTINE * PTM23765 4800 | * * PTM23770 4801 | *EXTERNAL RERERENCES- * PTM23775 4802 | * *SUBROUTINES- * PTM23780 4803 | * * DISK1 * PTM23785 4804 | * * DTHDR * PTM23790 4805 | * * LDXRS * PTM23795 4806 | * * STXRS * PTM23800 4807 | * * WRDFO * PTM23805 4808 | * * PRINCIPAL PRINT SUBROUTINE * PTM23810 4809 | * * PRINCIPAL I/O SUBROUTINE * PTM23815 4810 | * * INPUT CONVERSION SUBROUTINE * PTM23820 4811 | * * PUNCH CONVERSION SUBROUTINE * PTM23825 4812 | * * ERROR MESSAGE SUBROUTINE * PTM23830 4813 | * *DCOM/COMMA- * PTM23835 4814 | * $CH12 * PTM23840 4815 | * $CORE * PTM23845 4816 | * $CTSW * PTM23850 4817 | * $EXIT * PTM23855 4818 | * $IBSY * PTM23860 4819 | * $LAST * PTM23865 4820 | * $PRET * PTM23870 4821 | * $PBSY * PTM23875 4822 | * $PHSE * PTM23880 4823 | * * PTM23885 4824 | *EXITS- * PTM23890 4825 | * *NORMAL - EACH SUBROUTINE RETURNS TO THE * PTM23895 4826 | * CALLER EXCEPT LDLBL WHICH BRANCHES * PTM23900 4827 | * TO STRT9. * PTM23905 4828 | * * ERROR- VARIES WITH EACH SUBROUTINE * PTM23910 4829 | * * PTM23915 4830 | *TABLES/WORK AREAS- * PTM23920 4831 | * * HDGBF * PTM23925 4832 | * * IOBF1 * PTM23930 4833 | * * IOBF2 * PTM23935 4834 | * * PRBFR * PTM23940 4835 | * * BUFI * PTM23945 4836 | * * DFBUF * PTM23950 4837 | * * PTM23955 4838 | *ATTRIBUTES-REUSABLE * PTM23960 4839 | * * PTM23965 4840 | *NOTES- * PTM23970 4841 | * * THE FUNCTION OF EACH SUBROUTINE IN * PTM23975 4842 | * * PHASE 9 IS DISCUSSED IN A DISCRIPTION * PTM23980 4843 | * * THAT PRECEDES EACH SUBROUTINE * PTM23985 4844 | * * PATCH AREA CAN BE OBTAINED FOR PHASE 9 2-8* PTM23990 4845 | * * BY JUDICIOUSLY LIFTING ERFLG OUT OF PH 2-8* PTM23995 4846 | * * 9,PLACING IT IN THE DIVISION OPERATOR 2-8* PTM24000 4847 | * * PHASE AND CAUSING A FLIP-FLOP TO 2-8* PTM24005 4848 | * * OCCUR JUST AS THE DIVISION OPERATOR PH 2-8* PTM24010 4849 | * * NOW OPERATES. BEWARE OF Q-FLAGGING 2-8* PTM24015 4850 | * * DYNAMIC MODIFICATION OF ERFLG SUBR 2-8* PTM24020 4851 | * * * PTM24025 4852 | *************************************************** PTM24030 4853 | * PTM24035 0458 4854 | ORG OVLAY+/1D8 2-8 PTM24040 0458 05A7 4855 | DC P9451-P9000 WD CNT OF PHASE 9 PTM24045 0459 FF24 4856 | DC -/DC SLET ID OF PHASE 9 2-8 PTM24050 045A 0596 4857 | DC DVSTR-*+1 DISP TO SLET TBL 2-8 PTM24055 045B 0001 4858 | DC 1 NO. ID'S TO BE FILLED 2-8 PTM24060 045A 4859 | ORG *-2 PTM24065 4860 | * PTM24070 4861 | * SECTION 9. NON-OVERLAYED MAINLINE. PTM24075 4862 | * PTM24080 045A 4863 | P9000 EQU * START OF PHASE 9 PTM24085 4864 | * PTM24090 045A 0000 4865 | ERPTR DC *-* PH 5 ERROR CTR 2-8 PTM24095 4866 | *************************************************** PTM24100 4867 | * **TAKE NOTE,TAKE NOTE** 2-8* PTM24105 4868 | * THE MACRO DEFINITION PHASES OVERLAY 2-8* PTM24110 4869 | * PHASE 9 BEGINNING AT ERPTR AND ENDING 2-8* PTM24115 4870 | * AT LDLBL 2-8* PTM24120 4871 | *************************************************** PTM24125 045B 0C18 4872 | RP000 DC P9468 END OF DISK BFR 1 2-8 PTM24130 045C 0D94 4873 | PR000 DC P9472 END OF DISK BFR 2 2-8 PTM24135 ** OP CODE SEARCH ** 4875 | *************************************************** PTM24145 4876 | * STRT9 * PTM24150 4877 | * THE OP CODE OBTAINED FROM THE INPUT RECORD IS * PTM24155 4878 | * PACKED AND SAVED IN OPCNT IN ASCOM. ALL * PTM24160 4879 | * POSSIBLE OP CODES ARE RESIDENT IN A TABLE, * PTM24165 4880 | * WHICH HAS FOR EACH OP CODE A TWO-WORD * PTM24170 4881 | * INDICATOR FOLLOWING BY A CORRESPONDING ONE- * PTM24175 4882 | * WORD MACHINE LANGUAGE MNEMONIC. THE OP CODE * PTM24180 4883 | * SEARCH IS PERFORMED BY MEANS OF A TABLE * PTM24185 4884 | * LOOKUP. WHEN A MATCH IS FOUND, THE * PTM24190 4885 | * CORRESPONDING MACHINE LANGUAGE MNEMONIC IS * PTM24195 4886 | * PICKED UP AND SAVED IN OPCNT. BITS 13-15 OF * PTM24200 4887 | * OPCNT FORM A BRANCH TABLE DISPLACEMENT. USING* PTM24205 4888 | * THIS DISPLACEMENT, AN INDIRECT BRANCH IS TAKEN* PTM24210 4889 | * THRU THE TABLE TO THE OVERLAY PREPARED TO * PTM24215 4890 | * PROCESS THIS OP CODE. IF THE OVERLAY IS IN * PTM24220 4891 | * CORE, EXECUTION PROCEEDS. IF IT IS NOT, A * PTM24225 4892 | * RETURN IS MADE TO THE OP CODE SEARCH. THE * PTM24230 4893 | * DISK IOAR HEADER INFORMATION FOR THE OVERLAY * PTM24235 4894 | * PHASE REQUIRED IS SET UP AND A TRANSFER IS * PTM24240 4895 | * MADE TO THE MASTER OVERLAY CONTROL SUBROUTINE * PTM24245 4896 | * (PHASE 0), WHICH FETCHES THE OVERLAY PHASE * PTM24250 4897 | * REQUIRED INTO CORE. CONTROL IS THEN PASSED TO* PTM24255 4898 | * THE OVERLAY AND STATEMENT PROCESSING * PTM24260 4899 | * CONTINUES. * PTM24265 4900 | *************************************************** PTM24270 045D 4901 | STRT9 EQU * 1ST EXECUTABLE INST PTM24275 4902 | * PTM24280 045D C115 4903 | P9026 LD 1 +21 CHECK COLUMN 21 FOR AN PTM24285 045E 904B 4904 | S P9036+1 ASTERISK (COMMENTS RECORD) PTM24290 045F 4C20 0464 4905 | BSC L *+3,Z BRANCH IF NOT ASTERISK PTM24295 0461 4400 074B 4906 | BSI L P9224 GO TO LDLBL ROUTINE PTM24300 0463 70F9 4907 | MDX P9026 PROCESS NEXT RECORD PTM24305 0464 C11E 4908 | LD 1 30 PTM24310 0465 18C8 4909 | RTE 8 PACK AND SAVE OP CODE. PTM24315 0466 C11D 4910 | LD 1 29 PTM24320 0467 18C8 4911 | RTE 8 PTM24325 0468 C11B 4912 | LD 1 27 PTM24330 0469 1008 4913 | SLA 8 PTM24335 046A E91C 4914 | OR 1 28 PTM24340 046B D840 4915 | STD P9040 PTM24345 046C DB23 4916 | STD 3 SYMBF-X3 2G2 PTM24350 046D C32B 4917 | LD 3 RLMDE-X3 SAVE RELOC. MODE IN LABEL PTM24355 046E D304 4918 | STO 3 LABRL-X3 RELOCATION INDICATOR PTM24360 046F C3FA 4919 | LD 3 ADCOW-X3 SAVE ADDR COUNTER IN PTM24365 0470 D303 4920 | STO 3 LABVL-X3 LABEL VALUE PTM24370 4921 | * OP CODE LOOKUP PTM24375 0471 C11F 4922 | LD 1 +31 2-8 PTM24380 0472 904D 4923 | S P9541 TEST FOR 5 CHAR OP CODE 2-8 PTM24385 0473 4C20 0489 4924 | BSC L P9031+2,Z GO CHECK 5 CHAR 2-11 PTM24390 0475 6680 025A 4925 | LDX I2 TBLCT OP CODE TABLE LENGTH 2-11 PTM24395 0477 4926 | MASM EQU * 2-11 PTM24397 0477 6700 060D 4927 | LDX L3 P9178 PTM24400 0479 C301 4928 | P9030 LD 3 1 CHECK OP CODE PTM24405 047A 18D0 4929 | RTE 16 *AGAINST TABLE PTM24410 047B C300 4930 | LD 3 0 PTM24415 047C 982F 4931 | SD P9040 PTM24420 047D 4818 4932 | BSC +- PTM24425 047E 18D0 4933 | RTE 16 PTM24430 047F 4C18 0490 4934 | BSC L P9034,+- PTM24435 0481 7303 4935 | MDX 3 3 PTM24440 0482 7203 4936 | MDX 2 3 PTM24445 0483 70F5 4937 | MDX P9030 PTM24450 0484 7401 04D1 4938 | MDX L P9055,1 2-8 PTM24455 0486 7043 4939 | MDX P9048 BR TO LOAD PHASE 8 2G2 PTM24460 0487 74FF 04D1 4940 | P9031 MDX L P9055,-1 2-8 PTM24465 0489 C035 4941 | LD P9540 CHK IF PH 13 IN CORE 2G2 PTM24470 048A 4CB0 04BF 4942 | BSC I P9540,Z- BRANCH IF YES 2G2 PTM24475 048C C031 4943 | P9032 LD P9039 INVAL OP CODE OR MACRO 2-8 PTM24480 048D D32C 4944 | STO 3 OPCNT-X3 SAVE 3RD WORD OF OP CODE2-8 PTM24485 048E 6208 4945 | LDX 2 +8 SET TO BR TO MACRO PH 1 2-8 PTM24490 048F 700E 4946 | MDX P9M34 BR TO MACRO PH 1 2-8 PTM24495 0490 C302 4947 | P9034 LD 3 2 PTM24500 0491 4400 025F 4948 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM24505 0493 D32C 4949 | STO 3 OPCNT-X3 SAVE 3RD OP CODE WORD PTM24510 0494 C32C 4950 | P9S34 LD 3 OPCNT-X3 BRANCH HERE AFTER OVERLAY PTM24515 0495 7123 4951 | MDX 1 +35 XR 1 POINTS TO COL. 35 PTM24520 0496 E014 4952 | AND P9038 IF OP CODE IS A CONDITIONAL PTM24525 0497 4CA0 04A1 4953 | BSC I P9035+1,Z BRANCH, GO TO PHASE 6 PTM24530 0499 C32C 4954 | LD 3 OPCNT-X3 IF NOT, USE BITS 13-15 PTM24535 049A E00E 4955 | AND P9036 OF OP CONTROL TO FORM PTM24540 049B D001 4956 | STO *+1 TRANSFER TBL DISPLACEMENT PTM24545 049C 6600 0000 4957 | LDX L2 *-* PTM24550 049E 4E80 04A0 4958 | P9M34 BSC I2 P9035 BRANCH THRU BRANCH TABLE PTM24555 4959 | * PTM24560 4960 | * TRANSFER VECTOR TO INDIVIDUAL PTM24565 4961 | * ROUTINES FOR OP TYPES. PTM24570 4962 | * PTM24575 04A0 0282 4963 | P9035 DC OVLAY+2 +0 ORG,BSS,EQU, HDNG PTM24580 04A1 0284 4964 | DC OVLAY+4 +1 IMPERATIVES, DC'S PTM24585 04A2 0286 4965 | DC OVLAY+6 +2 DEC,XFLC PTM24590 04A3 0288 4966 | DC OVLAY+8 +3 LIBF,CALL,DSA,..., EBC PTM24595 04A4 028A 4967 | DC OVLAY+10 +4 DMES,LIST, DUMP PTM24600 04A5 0284 4968 | DC OVLAY+4 +5 SHIFTS,LDX,LDS PTM24605 04A6 028C 4969 | DC OVLAY+12 +6 END 2-8 PTM24610 04A7 0290 4970 | DC OVLAY+16 +7 LIBR,ENT,ABS,ISS,ILS2-8 PTM24615 04A8 028E 4971 | DC OVLAY+14 +8 MACRO,SPECIAL OPS 2-8 PTM24620 04A9 0007 4972 | P9036 DC 7 OP CONTROL MASK, BITS 13-15 PTM24625 04AA 005C 4973 | DC .* PTM24630 04AB 0400 4974 | P9038 DC /0400 CONDITIONAL BRANCH MASK PTM24635 04AC 4975 | P9040 BSS E 2 PTM24640 04AE 4976 | P9041 BSS 2 WD CNT & SCTR AD -PH. 5 PTM24645 04B0 4977 | BSS 2 WD CNT & SCTR AD -PH. 6 PTM24650 04B2 4978 | BSS 2 WD CNT & SCTR AD -PH. 7 PTM24655 04B4 4979 | BSS 2 WD CNT & SCTR AD -PH. 8 PTM24660 04B6 4980 | BSS 2 WD CNT & SCTR AD -PH. 8A PTM24665 04B8 4981 | BSS 2 WD CNT & SCTR AD -PH. 12 PTM24670 04BA 4982 | BSS 2 WD CNT & SCTR AD -PH. 2 PTM24675 04BC 4983 | BSS 2 WD CNT & SCTR ADDR-PH M12-8 PTM24680 04BE 8008 4984 | P9039 DC /8008 INVAL OP CODE OR MACRO 2-8 PTM24685 04BF 0000 4985 | P9540 DC *-* PHASE 13 ADDRESS 2G2 PTM24690 04C0 0040 4986 | P9541 DC /40 EBCDIC BLANK 2-8 PTM24695 4987 | * PTM24700 04C1 6300 4988 | P9042 LDX 3 0 GET PHASE 5 PTM24705 04C2 700E 4989 | MDX P9054 PTM24710 04C3 6302 4990 | P9044 LDX 3 2 GET PHASE 6 PTM24715 04C4 700C 4991 | MDX P9054 PTM24720 04C5 6304 4992 | P9046 LDX 3 4 GET PHASE 7 PTM24725 04C6 700A 4993 | MDX P9054 PTM24730 04C7 630E 4994 | P9047 LDX 3 14 GET MACRO PH 1 2-8 PTM24735 04C8 C017 4995 | LD P9057 SET OVERLAY XEQ ADDR 2-8 PTM24740 04C9 7008 4996 | MDX P9054+1 2-8 PTM24745 04CA 6306 4997 | P9048 LDX 3 6 GET PHASE 8 PTM24750 04CB 7005 4998 | MDX P9054 PTM24755 04CC 6308 4999 | P9050 LDX 3 8 GET PHASE 8A PTM24760 04CD 7003 5000 | MDX P9054 PTM24765 04CE 630A 5001 | P9052 LDX 3 10 GET PHASE 12 PTM24770 04CF 7001 5002 | MDX P9054 PTM24775 04D0 630C 5003 | P9053 LDX 3 12 GET PHASE 2 PTM24780 04D1 5004 | P9054 EQU * 2-8 PTM24785 04D1 C00C 5005 | P9055 LD P9056 SET OVERLAY XEQ ADDR 2-8 PTM24790 04D2 D400 0273 5006 | STO L P0140+1 2-8 PTM24795 04D4 7700 04AE 5007 | MDX L3 P9041 2-8 PTM24800 04D6 6600 0280 5008 | LDX L2 OVLAY XR2 = OVERLAY I/O AREA PTM24805 04D8 CB00 5009 | LDD 3 0 FETCH WD CNT & SCTR ADDR PTM24810 04D9 DA00 5010 | STD 2 0 AND SET INTO OVERLAY HDR PTM24815 04DA 4400 025F 5011 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM24820 04DC 4C00 0270 5012 | BSC L P0130 BR TO MASTER OVLAY CNTRL PTM24825 5013 | * PTM24830 5014 | * CONSTANTS PTM24835 5015 | * PTM24840 04DE 0494 5016 | P9056 DC P9S34 PTM24845 04DF 0487 5017 | DC P9031 2G2 PTM24850 04E0 048C 5018 | P9057 DC P9032 2-8 PTM24855 ** SCAN THE OPERAND FIELD ** 5020 | *************************************************** PTM24865 5021 | * SCAN * PTM24870 5022 | * THE SCAN ROUTINE COLLECTS THE ELEMENTS OF THE * PTM24875 5023 | * OPERAND FIELD, CHARACTER-BY-CHARACTER, * PTM24880 5024 | * PERFORMS ANY ARITHMETIC FUNCTIONS NECESSARY, * PTM24885 5025 | * AND EVALUATES TO OPERAND. * PTM24890 5026 | *************************************************** PTM24895 04E1 0000 5027 | P9060 DC 0 ENTRY--LINK WORD PTM24900 04E2 62FA 5028 | LDX 2 -6 PTM24905 04E3 10A0 5029 | SLT 32 PTM24910 04E4 D600 0244 5030 | STO L2 VALUE+6 CLEAR BUFFERS AND SWITCHES PTM24915 04E6 7201 5031 | MDX 2 1 PTM24920 04E7 70FC 5032 | MDX *-4 PTM24925 04E8 DB23 5033 | STD 3 SYMBF-X3 CLEAR SYMBOL BUFFER PTM24930 04E9 C06F 5034 | LD P9090 PTM24935 04EA D400 05E8 5035 | STO L P9164 PTM24940 04EC C02E 5036 | LD P9068 PTM24945 04ED D01D 5037 | STO P9064 PTM24950 04EE D400 05E6 5038 | STO L P9162 PTM24955 04F0 180C 5039 | SRA 12 (=1) PTM24960 04F1 D400 05B1 5040 | STO L P9142 PTM24965 04F3 D400 05B2 5041 | STO L P9144 PTM24970 04F5 C100 5042 | P9062 LD 1 0 CHECK FOR SPECIAL CHAR. PTM24975 04F6 904B 5043 | S P9080 BLANK PTM24980 04F7 4C18 059D 5044 | BSC L P9116,+- PTM24985 04F9 9019 5045 | S P9066 COMMA PTM24990 5046 | * PTM24995 5047 | * CHECK FOR 029 OR 026 LEFT OR RIGHT PTM25000 5048 | * PARENTHESES, AND FOR COMMA PTM25005 5049 | * PTM25010 04FA 4C18 0597 5050 | BSC L P9114,+- DETECTED, BRANCH ON ZERO PTM25015 04FC 9017 5051 | S P9066+1 PLUS (12-6-8) PTM25020 04FD 4C18 0590 5052 | BSC L P9110,+- PTM25025 04FF 9015 5053 | S P9066+2 PLUS (12) PTM25030 0500 4C18 0590 5054 | BSC L P9110,+- PTM25035 0502 9013 5055 | S P9066+3 MINUS PTM25040 0503 4C18 0594 5056 | BSC L P9112,+- PTM25045 0505 9013 5057 | S P9066+6 ASTERISK PTM25050 0506 4C18 0585 5058 | BSC L P9106,+- ADDRESS COUNTER OR MULTIPL PTM25055 0508 900E 5059 | S P9066+4 CHECK FOR SLASH 2-8 PTM25060 0509 4C18 055A 5060 | BSC L P9092,+- BR-PROC AS HEX INDR 2-8 PTM25065 050B 0000 5061 | P9064 DC 0 CONTINUE OR BRANCH PTM25070 050C 900B 5062 | S P9066+5 PERIOD PTM25075 050D 4C18 057E 5063 | BSC L P9102,+- CHARACTER VALUE PTM25080 050F 900A 5064 | S P9066+7 ZERO CHARACTER PTM25085 0510 4C10 0554 5065 | BSC L P9088,- DECIMAL INTEGER PTM25090 0512 7024 5066 | MDX P9078 SYMBOL PTM25095 5067 | * PTM25100 5068 | * CONSTANTS PTM25105 5069 | * PTM25110 0513 002B 5070 | P9066 DC .,-. COMMA PTM25115 0514 FFE3 5071 | DC /4E-., PLUS(12-6-8) PTM25120 0515 0002 5072 | DC /50-/4E AMPERSAND(12) PTM25125 0516 0010 5073 | DC .--/50 MINUS PTM25130 0517 0005 5074 | DC ./-.* SLASH PTM25135 0518 FFEA 5075 | DC /4B-./ PERIOD PTM25140 0519 FFFC 5076 | DC .*-.- ASTERISK PTM25145 051A 00A5 5077 | DC .0-/4B ZERO PTM25150 051B 1880 5078 | P9068 SRT 0 PTM25155 5079 | * THIS ROUTINE MOVES XR1 PTM25160 5080 | * (THE SCAN INPUT POINTER) TO THE PTM25165 5081 | * NEXT BLANK OR ONE PAST THE NEXT PTM25170 5082 | * COMMA. PTM25175 051C FFE0 5083 | DC /4B-., PTM25180 051D 0000 5084 | P9070 DC 0 ENTRY PTM25185 051E C100 5085 | LD 1 0 PTM25190 051F 9022 5086 | S P9080 COMPARE BLANK PTM25195 0520 4C98 051D 5087 | BSC I P9070,+- RETURN--BLANK PTM25200 0522 7101 5088 | MDX 1 1 INCREMENT XR1 PTM25205 0523 90EF 5089 | S P9066 PTM25210 0524 4C98 051D 5090 | BSC I P9070,+- EXIT IF EQUAL PTM25215 0526 90F5 5091 | S P9070-1 COMPARE PERIOD PTM25220 0527 4818 5092 | BSC +- PTM25225 0528 7101 5093 | MDX 1 1 SKIP CHARACTER VALUE PTM25230 0529 70F4 5094 | MDX P9070+1 PTM25235 5095 | * PTM25240 5096 | * FORMAT ERROR(SYNTAX ERROR) PTM25245 052A C00B 5097 | P9072 LD P9076 PTM25250 052B 4400 0701 5098 | BSI L P9202 PTM25255 052D 10A0 5099 | SLT 32 PTM25260 052E D325 5100 | STO 3 VALUE-X3 SET EXPRESSION VALUE AND PTM25265 052F D327 5101 | STO 3 RELSW-X3 RELOCATION = ZERO. PTM25270 0530 DB23 5102 | STD 3 SYMBF-X3 PTM25275 0531 6600 0240 5103 | P9074 LDX L2 A SET PTR TO RETURN VALUES PTM25280 0533 40E9 5104 | BSI P9070 SKIP PAST COMMA OR PTM25285 0534 4C80 04E1 5105 | BSC I P9060 TO BLANK. RETURN PTM25290 0536 00E2 5106 | P9076 DC .S PTM25295 5107 | * INITIALIZE TO COLLECT SYMBOL. PTM25300 0537 C014 5108 | P9078 LD P9086 SYMBOL PTM25305 0538 D0D2 5109 | STO P9064 SYMBOL PTM25310 0539 C808 5110 | LDD P9080 PTM25315 053A D809 5111 | STD P9082 CLEAR 5 WORD PTM25320 053B D80A 5112 | STD P9082+2 CHARACTER BUFFER PTM25325 053C D00B 5113 | STO P9082+4 PTM25330 053D 62FA 5114 | LDX 2 -6 MAX SYMBOL CHAR COUNT PTM25335 053E 6A0B 5115 | STX 2 P9083 INITLZ COUNTER PTM25340 053F 6600 0544 5116 | LDX L2 P9082 XR2 = SYMBOL CHAR BUFFER PTM25345 0541 70B3 5117 | MDX P9062 PTM25350 5118 | * PTM25355 5119 | * CONSTANTS AND SAVE AREA PTM25360 5120 | * PTM25365 0542 5121 | BSS E 0 ADJUST TO EVEN LOCATION PTM25370 0542 0040 5122 | P9080 DC . PTM25375 0543 0040 5123 | DC . PTM25380 0544 5124 | P9082 BSS 6 PTM25385 054A 0000 5125 | P9083 DC 0 SYMBOL CHAR COUNTER PTM25390 054B 9400 5126 | P9084 DC /9400 PTM25395 5127 | * PTM25400 5128 | * COLLECT SYMBOL PTM25405 5129 | * PTM25410 054C 7041 5130 | P9086 MDX X P9086-P9064 PTM25415 054D C100 5131 | LD 1 0 PTM25420 054E D200 5132 | STO 2 0 PTM25425 054F 7201 5133 | MDX 2 1 PTM25430 0550 7401 054A 5134 | MDX L P9083,+1 CHECK FOR MORE THAN PTM25435 0552 7028 5135 | MDX P9100+2 5 CHARACTERS PTM25440 0553 70D6 5136 | MDX P9072 PTM25445 5137 | * INITIALIZE TO COLLECT PTM25450 5138 | * DECIMAL INTEGER PTM25455 0554 C00C 5139 | P9088 LD P9094 DECIMAL BASE PTM25460 0555 D05A 5140 | STO P9128 PTM25465 0556 C00F 5141 | LD P9098 PTM25470 0557 D0B3 5142 | STO P9064 PTM25475 0558 700E 5143 | MDX P9098+1 PTM25480 0559 8400 5144 | P9090 DC /8400 PTM25485 5145 | * INITIALIZE TO COLLECT PTM25490 5146 | * HEXADECIMAL INTEGER PTM25495 055A C0B0 5147 | P9092 LD P9064 NOP OR BRANCH 2-8 PTM25500 055B 1001 5148 | SLA 1 2-8 PTM25505 055C 4C28 09F4 5149 | BSC L DIV00,+Z BR IF DIVISION OPTR 2-8 PTM25510 055E C003 5150 | LD P9096 HEX BASE PTM25515 055F 7101 5151 | MDX 1 1 PTM25520 0560 70F4 5152 | MDX P9088+1 PTM25525 0561 000A 5153 | P9094 DC 10 PTM25530 0562 0010 5154 | P9096 DC 16 PTM25535 5155 | * COLLECT DECIMAL OR PTM25540 5156 | * HEXADECIMAL INTEGER PTM25545 0563 00F0 5157 | DC .0 PTM25550 0564 FFD1 5158 | DC .A-.0 PTM25555 0565 0000 5159 | DC 0 PTM25560 0566 705B 5160 | P9098 MDX X P9098-P9064 PTM25565 0567 C100 5161 | LD 1 0 PTM25570 0568 90FA 5162 | S P9096+1 =.0 PTM25575 0569 4C10 056F 5163 | BSC L *+4,- PTM25580 056B 90F8 5164 | S P9096+2 =.A-.0 PTM25585 056C 4C28 052A 5165 | BSC L P9072,+Z PTM25590 056E 80F2 5166 | A P9094 CONVERT CHAR. TO PTM25595 056F D0F5 5167 | STO P9096+3 INTEGER VALUE. PTM25600 0570 903F 5168 | S P9128 PTM25605 0571 4C10 052A 5169 | BSC L P9072,- ILLEGAL CHARACTER PTM25610 0573 C03C 5170 | LD P9128 PTM25615 0574 A329 5171 | M 3 ELMNT-X3 MULTIPLY PREVIOUSLY PTM25620 0575 1090 5172 | SLT 16 ACCUMULATED INTEGER PTM25625 0576 80EE 5173 | A P9096+3 BY RADIX(10 OR 16). PTM25630 0577 D329 5174 | STO 3 ELMNT-X3 ADD NEWEST DIGIT VALUE PTM25635 0578 C0BD 5175 | LD P9076 GET ERROR CODE S 2-6 PTM25640 0579 4C00 057B 5176 | P9100 BSC L * SWITCH-SINGLE SYMBOL MODE. PTM25645 057B 7101 5177 | MDX 1 1 PTM25650 057C 4C00 04F5 5178 | BSC L P9062 PTM25655 5179 | * COLLECT CHARACTER VALUE PTM25660 057E 7101 5180 | P9102 MDX 1 1 PTM25665 057F C100 5181 | LD 1 0 PTM25670 0580 D329 5182 | STO 3 ELMNT-X3 ELEMENT = CHAR VALUE PTM25675 0581 C002 5183 | LD P9104 NEXT CHAR. MUST BE PTM25680 0582 D088 5184 | STO P9064 OPERATOR PTM25685 0583 70F5 5185 | MDX P9100 PTM25690 0584 701E 5186 | P9104 MDX X P9072-P9064-1 PTM25695 5187 | * PROCESS OPERATORS PTM25700 0585 C085 5188 | P9106 LD P9064 CHECK TYPE CODE 2-8 PTM25705 0586 1001 5189 | SLA 1 PTM25710 0587 4C10 05A4 5190 | BSC L P9118,- PROCESS AS ELEMENT IF BRNC PTM25715 0589 C005 5191 | LD P9108 =MDX X CLRES+5-COL3-1 PTM25720 058A D05B 5192 | STO P9162 PTM25725 058B 4028 5193 | BSI P9154 PROCESS AS OPERATOR. PTM25730 058C C026 5194 | LD P9150 PTM25735 058D D058 5195 | STO P9162 PTM25740 058E 70EA 5196 | MDX P9100 PTM25745 058F 7016 5197 | P9108 MDX X P9166+5-P9162-1 PTM25750 0590 4023 5198 | P9110 BSI P9154 PTM25755 0591 C0C7 5199 | LD P9090 PTM25760 0592 D055 5200 | STO P9164 PTM25765 0593 70E5 5201 | MDX P9100 PTM25770 0594 401F 5202 | P9112 BSI P9154 PTM25775 0595 C0B5 5203 | LD P9084 PTM25780 0596 70FB 5204 | MDX P9110+2 PTM25785 5205 | * PROCESS TERMINATION CHARACTERS PTM25790 0597 6680 0238 5206 | P9114 LDX I2 RDBFR XR2 = INPUT BFR - 1 PTM25795 0599 9220 5207 | S 2 +32 CHECK FOR COMMA PTM25800 059A 100D 5208 | SLA 13 PTM25805 059B 4C10 052A 5209 | BSC L P9072,- PTM25810 059D 4016 5210 | P9116 BSI P9154 PTM25815 059E C328 5211 | LD 3 RLCNT-X3 STORE RELOCATION PTM25820 059F D327 5212 | STO 3 RELSW-X3 INDICATOR PTM25825 05A0 1881 5213 | SRT 1 AND TEST FOR PTM25830 05A1 4C18 0531 5214 | BSC L P9074,+- RELOCATION ERROR PTM25835 05A3 7004 5215 | MDX P9120 PTM25840 5216 | * DECODE ASTERISK VALUE PTM25845 5217 | * AS LOCATION COUNTER PTM25850 05A4 C32B 5218 | P9118 LD 3 RLMDE-X3 SAVE RELOC. MODE (4000) PTM25855 05A5 D326 5219 | STO 3 RLCSW-X3 IN INTERNAL RELOC. SWITCH PTM25860 05A6 C3FA 5220 | LD 3 ADCOW-X3 ADDR COUNTER TO ACC PTM25865 05A7 70D8 5221 | MDX P9102+2 PTM25870 05A8 C001 5222 | P9120 LD P9122 RELOCATION ERROR PTM25875 05A9 7081 5223 | MDX P9072+1 PTM25880 05AA 00D9 5224 | P9122 DC .R PTM25885 05AB C003 5225 | P9124 LD P9126 PTM25890 05AC 6580 05CE 5226 | LDX I1 SAVR1+1 RESTORE XR1 2-8 PTM25895 05AE 70FA 5227 | MDX P9120+1 2-8 PTM25900 5228 | * PTM25905 05AF 00E4 5229 | P9126 DC .U PTM25910 05B0 0000 5230 | P9128 DC 0 NUMBER BASE FOR INTEGERS PTM25915 05B1 0000 5231 | P9142 DC 0 BUFFER PTM25920 05B2 0001 5232 | P9144 DC 1 TERM RELOCATION FACTOR PTM25925 05B3 1080 5233 | P9150 SLT 0 PTM25930 5234 | * THIS ROUTINE COLLECTS AND PTM25935 5235 | * ADDS OR SUBTRACTS DATA PTM25940 5236 | * INTO VALUE. ALSO RESETS SCAN TO PTM25945 5237 | * START AT A NEW QUANTITY. PTM25950 05B4 0000 5238 | P9154 DC 0 LINK WORD PTM25955 05B5 C400 050B 5239 | LD L P9064 PTM25960 05B7 90FB 5240 | S P9150 SYNTAX ERROR IF TWO PTM25965 05B8 4C18 052A 5241 | BSC L P9072,+- ADJACENT OPERATORS PTM25970 05BA C400 050B 5242 | LD L P9064 PTM25975 05BC 908F 5243 | S P9086 CALL SYMBOL LOOK-UP PTM25980 05BD 4C20 05D6 5244 | BSC L P9158-1,Z ROUTINE IF SYMBOL PTM25985 05BF 690E 5245 | STX 1 SAVR1+1 SAVE XR1 PTM25990 05C0 6500 0544 5246 | LDX L1 P9082 COLLECTED PTM25995 05C2 4400 083D 5247 | BSI L P9252 CHECK AND COMPRESS PTM26000 05C4 7002 5248 | MDX *+2 LABEL OR SYMBOL PTM26005 05C5 4C00 052A 5249 | BSC L P9072 PTM26010 05C7 DB23 5250 | STD 3 SYMBF-X3 STORE PACKED SYMBOL PTM26015 05C8 4C00 05CA 5251 | P9156 BSC L * PTM26020 05CA 4400 08C6 5252 | BSI L P9300 PTM26025 05CC 70DE 5253 | MDX P9124 UNDEFINED SYMBOL PTM26030 05CD 6500 0000 5254 | SAVR1 LDX L1 *-* RESTO XR1 TO PRE-SEARCH PTM26035 05CF D329 5255 | STO 3 ELMNT-X3 VALUE TO ELEMENT VALUE PTM26040 05D0 C03B 5256 | LD P9176 MASK OFF RELOC. BIT. PTM26045 05D1 E32B 5257 | AND 3 RLMDE-X3 RLCSW = 0 IF ELEMENT IS PTM26050 05D2 D326 5258 | STO 3 RLCSW-X3 ABSOLUTE. ZERO IF RELOC. PTM26055 05D3 C038 5259 | LD P9176 PTM26060 05D4 4C28 0605 5260 | BSC L P9168,+Z MULTIPLE DEFINITION. PTM26065 05D6 C329 5261 | LD 3 ELMNT-X3 UPDATE PARTIAL PRODUCT PTM26070 05D7 A0D9 5262 | P9158 M P9142 IN TERM, AND TERM PTM26075 05D8 18D0 5263 | RTE 16 RELOCATION FACTOR IN RTERM. PTM26080 05D9 D0D7 5264 | STO P9142 PTM26085 05DA C326 5265 | LD 3 RLCSW-X3 CHECK IF ELEMENT RELOC. PTM26090 05DB 4C20 05E2 5266 | BSC L P9160,Z BRANCH IF RELOC. PTM26095 05DD C0D4 5267 | LD P9144 RTERM IS PRODUCT OF ALL PTM26100 05DE A329 5268 | M 3 ELMNT-X3 ABSOLUTE ELEMENTS PTM26105 05DF 18D0 5269 | RTE 16 PTM26110 05E0 D0D1 5270 | STO P9144 PTM26115 05E1 7004 5271 | MDX P9162 PTM26120 05E2 F32A 5272 | P9160 EOR 3 TRLSW-X3 CHECK FOR RELOC. ERROR PTM26125 05E3 4C18 05A8 5273 | BSC L P9120,+- BRANCH IF RELOC. ERROR PTM26130 05E5 D32A 5274 | STO 3 TRLSW-X3 INDICATE RELOC. ELEMENT PTM26135 05E6 1080 5275 | P9162 SLT 0 MOD. TO MDX IF * OPERATOR. PTM26140 05E7 C325 5276 | LD 3 VALUE-X3 CURRENT EXPRESSION VALUE PTM26145 05E8 8400 05B1 5277 | P9164 A L P9142 ADD OR SUBTRACT PTM26150 05EA D325 5278 | STO 3 VALUE-X3 NEW EXPRESSION VALUE PTM26155 05EB C32A 5279 | LD 3 TRLSW-X3 UPDATE RELOCATION PTM26160 05EC 4C18 05F8 5280 | BSC L P9166,+- COUNT BY +RF + REL. TERM PTM26165 05EE C0F9 5281 | LD P9164 -RF - REL. TERM PTM26170 05EF 9400 0559 5282 | S L P9090 0 ABS. TERM PTM26175 05F1 4820 5283 | BSC Z PTM26180 05F2 C017 5284 | LD P9172 PTM26185 05F3 8017 5285 | A P9174 PTM26190 05F4 A0BD 5286 | M P9144 PTM26195 05F5 18D0 5287 | RTE 16 PTM26200 05F6 8328 5288 | A 3 RLCNT-X3 PTM26205 05F7 D328 5289 | STO 3 RLCNT-X3 PTM26210 05F8 C012 5290 | P9166 LD P9174 RESET SCAN FOR NEXT TERM. PTM26215 05F9 D0B7 5291 | STO P9142 PTM26220 05FA D0B7 5292 | STO P9144 PTM26225 05FB 1801 5293 | SRA 1 (=0) PTM26230 05FC D32A 5294 | STO 3 TRLSW-X3 PTM26235 05FD C0B5 5295 | LD P9150 RESTORE SCAN FOR PTM26240 05FE D400 050B 5296 | STO L P9064 NEXT ELEMENT PTM26245 0600 1010 5297 | SLA 16 PTM26250 0601 D329 5298 | STO 3 ELMNT-X3 PTM26255 0602 D326 5299 | STO 3 RLCSW-X3 PTM26260 0603 4C80 05B4 5300 | BSC I P9154 PTM26265 0605 C803 5301 | P9168 LDD P9170 MULT. DEFINITION ERROR PTM26270 0606 4400 0701 5302 | BSI L P9202 PTM26275 0608 70CD 5303 | MDX P9158-1 USE FIRST VALUE PTM26280 5304 | * PTM26285 0609 00D4 5305 | P9170 DC .M PTM26290 060A FFFE 5306 | P9172 DC -2 PTM26295 060B 0001 5307 | P9174 DC 1 PTM26300 060C 0000 5308 | P9176 DC 0 PTM26305 ** TABLE OF OP CODES ** 5310 | * OP CODE TABLE PTM26315 5311 | * MACHINE INSTRUCTIONS. PTM26320 060D C140 4040 5312 | P9178 EBC .A . PTM26325 060F 8001 5313 | DC /8001 PTM26330 0610 C1C4 4040 5314 | EBC .AD . PTM26335 0612 8801 5315 | DC /8801 PTM26340 0613 C1D5 C440 5316 | EBC .AND . PTM26345 0615 E001 5317 | DC /E001 PTM26350 0616 C240 4040 5318 | EBC .B . IF SHORT, OP CODE = 70 PTM26355 0618 FFF9 5319 | DC /FFF9 IF LONG, OP CODE = 4C PTM26360 0619 C2C3 4040 5320 | EBC .BC . PTM26365 061B 4C02 5321 | DC /4C02 BR ON CARRY PTM26370 061C C2D5 4040 5322 | EBC .BN . PTM26375 061E 4C28 5323 | DC /4C28 BR ON NEGATIVE PTM26380 061F C2D5 D540 5324 | EBC .BNN . PTM26385 0621 4C10 5325 | DC /4C10 BR ON NOT NEGATIVE PTM26390 0622 C2D5 D740 5326 | EBC .BNP . PTM26395 0624 4C08 5327 | DC /4C08 BR ON NOT POSITIVE PTM26400 0625 C2D5 E940 5328 | EBC .BNZ . PTM26405 0627 4C20 5329 | DC /4C20 BR ON NOT ZERO PTM26410 0628 C2D6 4040 5330 | EBC .BO . PTM26415 062A 4C01 5331 | DC /4C01 BR ON OVERFLOW PTM26420 062B C2D6 E2C3 5332 | EBC .BOSC. PTM26425 062D 4949 5333 | DC /4949 (BOSC) PTM26430 062E C2D6 C440 5334 | EBC .BOD . PTM26435 0630 4C04 5335 | DC /4C04 BR ON ODD PTM26440 0631 C2D7 4040 5336 | EBC .BP . PTM26445 0633 4C30 5337 | DC /4C30 BR ON POSITIVE PTM26450 0634 C2E2 C340 5338 | EBC .BSC . PTM26455 0636 4909 5339 | DC /4909 (BSC) PTM26460 0637 C2E2 C940 5340 | EBC .BSI . PTM26465 0639 4101 5341 | DC /4101 (BSI) PTM26470 063A C2E9 4040 5342 | EBC .BZ . PTM26475 063C 4C18 5343 | DC /4C18 BR ON ZERO PTM26480 063D E2D2 D740 5344 | EBC .SKP . 2-8 PTM26485 063F 4829 5345 | DC /4829 (SKP) 2-8 PTM26490 0640 C440 4040 5346 | EBC .D . PTM26495 0642 A801 5347 | DC /A801 PTM26500 0643 C5D6 D940 5348 | EBC .EOR . PTM26505 0645 F001 5349 | DC /F001 PTM26510 0646 D3C4 4040 5350 | EBC .LD . PTM26515 0648 C001 5351 | DC /C001 PTM26520 0649 D3C4 C440 5352 | EBC .LDD . PTM26525 064B C801 5353 | DC /C801 PTM26530 064C D3C4 E240 5354 | EBC .LDS . PTM26535 064E 2025 5355 | DC /2025 (LDS) PTM26540 064F D3C4 E740 5356 | EBC .LDX . PTM26545 0651 6005 5357 | DC /6005 (LDX) PTM26550 0652 D4C4 D440 5358 | EBC .MDM . PTM26555 0654 7401 5359 | DC /7401 MODIFY MEMORY PTM26560 0655 D4C4 E740 5360 | EBC .MDX . PTM26565 0657 7001 5361 | DC /7001 PTM26570 0658 D440 4040 5362 | EBC .M . PTM26575 065A A001 5363 | DC /A001 PTM26580 065B D5D6 D740 5364 | EBC .NOP . PTM26585 065D 1201 5365 | DC /1201 (NOP) PTM26590 065E D6D9 4040 5366 | EBC .OR . PTM26595 0660 E801 5367 | DC /E801 PTM26600 0661 D9E3 C540 5368 | EBC .RTE . PTM26605 0663 18E5 5369 | DC /18E5 (RTE) PTM26610 0664 E240 4040 5370 | EBC .S . PTM26615 0666 9001 5371 | DC /9001 PTM26620 0667 E2C4 4040 5372 | EBC .SD . PTM26625 0669 9801 5373 | DC /9801 PTM26630 066A E2D3 C140 5374 | EBC .SLA . PTM26635 066C 1025 5375 | DC /1025 (SLA) PTM26640 066D E2D3 C340 5376 | EBC .SLC . PTM26645 066F 10E5 5377 | DC /10E5 (SLC) PTM26650 0670 E2D3 C3C1 5378 | EBC .SLCA. PTM26655 0672 1065 5379 | DC /1065 (SLCA) PTM26660 0673 E2D3 E340 5380 | EBC .SLT . PTM26665 0675 10A5 5381 | DC /10A5 (SLT) PTM26670 0676 E2D9 C140 5382 | EBC .SRA . PTM26675 0678 1825 5383 | DC /1825 (SRA) PTM26680 0679 E2D9 E340 5384 | EBC .SRT . PTM26685 067B 18A5 5385 | DC /18A5 (SRT) PTM26690 067C E2E3 C440 5386 | EBC .STD . PTM26695 067E D801 5387 | DC /D801 PTM26700 067F E2E3 D640 5388 | EBC .STO . PTM26705 0681 D001 5389 | DC /D001 PTM26710 0682 E2E3 E240 5390 | EBC .STS . PTM26715 0684 2801 5391 | DC /2801 PTM26720 0685 E2E3 E740 5392 | EBC .STX . PTM26725 0687 6811 5393 | DC /6811 (STX) PTM26730 0688 E6C1 C9E3 5394 | EBC .WAIT. PTM26735 068A 3005 5395 | DC /3005 WAIT 2-11 PTM26740 068B E7C3 C840 5396 | EBC .XCH . PTM26745 068D 1AD1 5397 | DC /1AD1 (XCH) PTM26750 068E E7C9 D640 5398 | EBC .XIO . PTM26755 0690 0801 5399 | DC /0801 PTM26760 5400 | * PSEUDO-OPERATIONS. PTM26765 0691 D6D9 C740 5401 | EBC .ORG . PTM26770 0693 1000 5402 | DC /1000 ORG PTM26775 0694 C2E2 E240 5403 | EBC .BSS . PTM26780 0696 2000 5404 | DC /2000 BSS PTM26785 0697 C2C5 E240 5405 | EBC .BES . PTM26790 0699 3000 5406 | DC /3000 BES PTM26795 069A C5D8 E440 5407 | EBC .EQU . PTM26800 069C 4000 5408 | DC /4000 EQU PTM26805 069D C8C4 D5C7 5409 | EBC .HDNG. PTM26810 069F 0000 5410 | DC /0000 HDNG PTM26815 06A0 C4C3 4040 5411 | EBC .DC . PTM26820 06A2 0001 5412 | DC /0001 PTM26825 06A3 C4C5 C340 5413 | EBC .DEC . PTM26830 06A5 0002 5414 | DC /0002 PTM26835 06A6 E7C6 D3C3 5415 | EBC .XFLC. PTM26840 06A8 1002 5416 | DC /1002 PTM26845 06A9 D3C9 C2C6 5417 | EBC .LIBF. PTM26850 06AB 0003 5418 | DC /0003 PTM26855 06AC C3C1 D3D3 5419 | EBC .CALL. PTM26860 06AE 1003 5420 | DC /1003 PTM26865 06AF C4E2 C140 5421 | EBC .DSA . PTM26870 06B1 2003 5422 | DC /2003 PTM26875 06B2 D3C9 D5D2 5423 | EBC .LINK. PTM26880 06B4 3003 5424 | DC /3003 PTM26885 06B5 C5E7 C9E3 5425 | EBC .EXIT. PTM26890 06B7 4003 5426 | DC /4003 PTM26895 06B8 C5C2 C340 5427 | EBC .EBC . PTM26900 06BA 5003 5428 | DC /5003 PTM26905 06BB C4D5 4040 5429 | EBC .DN . PTM26910 06BD 6003 5430 | DC /6003 PTM26915 06BE C4D4 C5E2 5431 | DMESM EBC .DMES. 2-10 PTM26920 06C0 0004 5432 | DC /0004 PTM26925 06C1 D3C9 E2E3 5433 | EBC .LIST. PTM26930 06C3 5000 5434 | DC /5000 LIST PTM26935 06C4 C4E4 D4D7 5435 | EBC .DUMP. PTM26940 06C6 8000 5436 | DC /8000 DUMP PTM26945 06C7 D7C4 D4D7 5437 | EBC .PDMP. PTM26950 06C9 9000 5438 | DC /9000 PDUMP PTM26955 06CA C5D1 C3E3 5439 | EBC .EJCT. PTM26960 06CC 7000 5440 | DC /7000 EJECT PTM26965 06CD E2D7 C1C3 5441 | EBC .SPAC. PTM26970 06CF 6000 5442 | DC /6000 SPACE PTM26975 06D0 C5D5 C440 5443 | EBC .END . PTM26980 06D2 0006 5444 | DC /0006 END 2-8 PTM26985 06D3 C5D5 E340 5445 | EBC .ENT . PTM26990 06D5 0007 5446 | DC /0007 ENT 2-8 PTM26995 06D6 C9E2 E240 5447 | EBC .ISS . PTM27000 06D8 1007 5448 | DC /1007 ISS 2-8 PTM27005 06D9 D3C9 C2D9 5449 | EBC .LIBR. PTM27010 06DB 2007 5450 | DC /2007 LIBR 2-8 PTM27015 06DC C1C2 E240 5451 | EBC .ABS . PTM27020 06DE 3007 5452 | DC /3007 ABS 2-8 PTM27025 06DF C5D7 D940 5453 | EBC .EPR . PTM27030 06E1 4007 5454 | DC /4007 EPR 2-8 PTM27035 06E2 E2D7 D940 5455 | EBC .SPR . PTM27040 06E4 5007 5456 | DC /5007 SPR 2-8 PTM27045 06E5 C9D3 E240 5457 | EBC .ILS . PTM27050 06E7 6007 5458 | DC /6007 ILS 2-8 PTM27055 06E8 C6C9 D3C5 5459 | EBC .FILE. PTM27060 06EA 7007 5460 | DC /7007 FILE 2-8 PTM27065 06EB 000A 5461 | P9180 DC 10 CONSTANT 10 2-8 PTM27070 ** BINARY TO HEX (1-3 AND 4) SUBR ** 5463 | *************************************************** PTM27080 5464 | * BTHEX * PTM27085 5465 | * BTHEX IS A BINARY-HEXADECIMAL CONVERSION * PTM27090 5466 | * SUBROUTINE. THE BINARY DATA IS ENTERED IN THE* PTM27095 5467 | * ACCUMULATOR LEFT-JUSTIFIED, AND THE * PTM27100 5468 | * HEXADECIMAL OUTPUT IS STORED BY INDEX REGISTER* PTM27105 5469 | * 1. THE NUMBER OF CHARACTERS TO BE CONVERTED * PTM27110 5470 | * IS IN INDEX REGISTER 2. * PTM27115 5471 | *************************************************** PTM27120 06EC 0000 5472 | P9194 DC 0 PTM27125 06ED 18D0 5473 | RTE 16 PTM27130 06EE 1010 5474 | P9196 SLA 16 CLEAR A PTM27135 06EF 1084 5475 | SLT 4 4 BITS TO MAKE ONE CHAR. PTM27140 06F0 90FA 5476 | S P9180 2-8 PTM27145 06F1 4810 5477 | BSC - PTM27150 06F2 800C 5478 | A P9200+1 =.A-.0-10 PTM27155 06F3 800C 5479 | A P9200+2 =.0+10 PTM27160 06F4 D100 5480 | STO 1 0 STORE HEX CHARACTER. PTM27165 06F5 7101 5481 | MDX 1 +1 INCREMENT OUTPUT POINTER. PTM27170 06F6 72FF 5482 | MDX 2 -1 COUNT AND TEST PTM27175 06F7 70F6 5483 | MDX P9196 PTM27180 06F8 4C80 06EC 5484 | BSC I P9194 RETURN. PTM27185 5485 | *************************************************** PTM27190 5486 | * B4HEX * PTM27195 5487 | * THE B4HEX SUBROUTINE IS ENTERED WHEN FOUR * PTM27200 5488 | * HEXADECIMAL OUTPUT CHARACTERS ARE DESIRED. * PTM27205 5489 | * INDEX REGISTER 2 IS SET TO FOUR AND A BRANCH * PTM27210 5490 | * IS MADE TO BTHEX. * PTM27215 5491 | *************************************************** PTM27220 06FA 0000 5492 | P9198 DC 0 ENTRY PTM27225 06FB 6204 5493 | LDX 2 4 PTM27230 06FC 40EF 5494 | BSI P9194 PTM27235 06FD 4C80 06FA 5495 | BSC I P9198 RETURN PTM27240 06FE 5496 | P9200 EQU *-1 2-8 PTM27245 06FF FFC7 5497 | DC .A-.0-10 PTM27250 0700 00FA 5498 | DC .0+10 PTM27255 ** ERROR FLAGGING SUBR ** 5500 | * ERROR FLAG ROUTINE. PTM27265 5501 | * THIS ROUTINE PLACES THE ERROR PTM27270 5502 | * CHARACTER IN THE A-REGISTER INTO PTM27275 5503 | * COLUMN 18 OR 19. PTM27280 5504 | *THIS SUBROUTINE IS MODIFIED BY XREF PART 1 2-8 PTM27285 0701 0000 5505 | P9202 DC 0 ENTRY PTM27290 0702 6700 0216 5506 | LDX L3 ERCNT XR3 PT TO ASM COMMA 2-8 PTM27295 0703 5507 | P9213 EQU *-1 2-8 PTM27300 0704 D3EE 5508 | STO 3 TXQSW-ERCNT PREVENT XEQ AND DUP 2-8 PTM27305 0705 D3EF 5509 | STO 3 TDPSW-ERCNT 2-8 PTM27310 0706 D0F3 5510 | FLGCO STO P9198 SAVE FLAG 2-8 PTM27315 0707 6911 5511 | STX 1 P9204+1 SAVE XR1 2-8 PTM27320 0708 4400 025F 5512 | BSI L LDXRS RESTORE XR1 AND XR3 2-8 PTM27325 070A 9112 5513 | S 1 +18 PTM27330 070B 4C18 0716 5514 | BSC L P9203,+- DO NOT FLAG SAME ERROR PTM27335 070D 7401 0216 5515 | MDX L ERCNT,+1 INCRE CNT OF ERRORS PTM27340 070E 5516 | ERADD EQU *-1 2-8 PTM27345 070F 1000 5517 | NOP 2-8 PTM27350 0710 C112 5518 | LD 1 +18 TWICE. PTM27355 0711 907A 5519 | S P9244+1 CHK FOR COL 18 BLANK 2-8 PTM27360 0712 4820 5520 | BSC Z SKIP IF COL 18 BLANK 2-3 PTM27365 0713 7101 5521 | MDX 1 +1 SET POINTER FOR COL 19 2-3 PTM27370 0714 C0E5 5522 | LD P9198 FETCH ERROR FLAG 2-8 PTM27375 0715 D112 5523 | STO 1 +18 STORE IN C18 OR C19 2-3 PTM27380 0716 C0EC 5524 | P9203 LD P9213 RESTORE ERFLG SUBR 2-8 PTM27385 0717 D0F6 5525 | STO ERADD 2-8 PTM27390 0718 6500 0000 5526 | P9204 LDX L1 *-* RESTORE XR1 2-8 PTM27395 071A 4C80 0701 5527 | BSC I P9202 RETURN 2-3 PTM27400 5528 | * 2-3 PTM27405 5529 | * CONSTANTS PTM27410 5530 | * * PTM27415 071C 5531 | BSS E 0 MAKE NEXT LOCATION EVEN PTM27420 071C 7000 5532 | P9210 DC /7000 PRINT LINE CODE PTM27425 071D 0AA7 5533 | DC HDGBF ADDR OF PAGE HDNG BFR 2-8 PTM27430 071E 0021 5534 | P9211 DC 33 PAGE HDNG WD CNT 2-8 PTM27435 071F 0007 5535 | DC #HDNG PAGE HDNG SCTR ADDR 2-8 PTM27440 0720 7000 5536 | P9212 DC /7000 DK READ FUNC CODE 2-8 PTM27445 0721 0AA6 5537 | DC PRBFR+1 ADDR-1 OF PAGE HDNG BFR 2-8 PTM27450 0722 7002 5538 | P9215 DC /7002 FUNC CODE TO SPACE 2-8 PTM27455 5539 | * PTM27460 ** PAGE HEADING SUBR ** 5541 | *************************************************** PTM27470 5542 | * GTHDG * PTM27475 5543 | * GTHDG IS THE NEW PAGE SUBROUTINE. BRANCHES * PTM27480 5544 | * ARE MADE TO THE PRINCIPAL PRINT SUBROUTINE TO * PTM27485 5545 | * SKIP TO CHANNEL 1, AND PRINT THE HDNG. * PTM27490 5546 | *************************************************** PTM27495 0723 0000 5547 | P9216 DC 0 NEW PAGE SUBROUTINE PTM27500 0724 C400 0036 5548 | LD L $PBSY 2-8 PTM27505 0726 4C30 0724 5549 | BSC L *-4,Z- BR-PRINT BFR BUSY 2-8 PTM27510 0728 C8F5 5550 | LDD P9211 SET DK READ HDR FOR DK 2-8 PTM27515 0729 DC80 0721 5551 | STD I P9212+1 *READ OF PAGE HDNG 2-8 PTM27520 072B C8F4 5552 | LDD P9212 FETCH I/O AREA HDR 2-8 PTM27525 072C 435C 5553 | BSI 3 DISK1-X3 *OF PAGE HDNG 2-8 PTM27530 072D C0F0 5554 | LD P9211 SET WD CNT OF PAGE HDNG 2-8 PTM27535 072E D480 071D 5555 | STO I P9210+1 2-8 PTM27540 0730 C8EB 5556 | P9219 LDD P9210 GO TO PRINT ROUTINE TO PTM27545 0731 4400 0D97 5557 | BSI L P9472+3 SKIP TO CHANNEL 1. PTM27550 0733 4400 0D97 5558 | BSI L P9472+3 RETURN TO PRINT HDNG PTM27555 0735 C0EC 5559 | LD P9215 SPACE FUNC CODE PTM27560 0736 4400 0D97 5560 | BSI L P9472+3 RETURN TO SPACE A LINE PTM27565 0738 4C80 0723 5561 | BSC I P9216 EXIT NEW PAGE ROUTINE PTM27570 ** LOAD LABEL SUBR ** 5563 | *************************************************** PTM27580 5564 | * LDLBL * PTM27585 5565 | * THE LDLBL SUBROUTINE SCANS THE LABEL FIELD OF * PTM27590 5566 | * THE STATEMENT. THE LABEL IS SAVED IN NAME * PTM27595 5567 | * CODE IN SYMBF IN ASCOM. IF THE LABEL WAS * PTM27600 5568 | * INVALID, OR IF THERE WAS NO LABEL, BLANKS ARE * PTM27605 5569 | * PLACED IN SYMBF. * PTM27610 5570 | * IN PASS 1, VALID LABELS ARE ADDED TO THE * PTM27615 5571 | * SYMBOL TABLE IF THEY DO NOT ALREADY APPEAR * PTM27620 5572 | * THERE. THE RECORD IS SAVED IN THE * PTM27625 5573 | * INTERMEDIATE OUTPUT BUFFER BY INT1 AND A * PTM27630 5574 | * BRANCH IS MADE TO READ THE NEXT RECORD(RDCRD).* PTM27635 5575 | * WHEN THE NEXT RECORD IS IN CORE, A BRANCH IS * PTM27640 5576 | * MADE TO LAST TO CHECK THE LAST CARD. UPON * PTM27645 5577 | * RETURNING FROM LAST, A BRANCH IS MADE TO THE * PTM27650 5578 | * PRINCIPAL CONVERSION ROUTINE (DVADR), AND * PTM27655 5579 | * CONTROL IS RETURNED TO THE CALLER. * PTM27660 5580 | * IN PASS 2, THE RECORD IS LISTED, IF A LISTING * PTM27665 5581 | * HAS BEEN REQUESTED. THE NEXT RECORD IS * PTM27670 5582 | * FETCHED AND CONTROL IS RETURNED TO THE CALLER.* PTM27675 5583 | *************************************************** PTM27680 5584 | *************************************************** PTM27685 5585 | * PALBL * PTM27690 5586 | * THE PALBL SUBROUTINE IS A SECONDARY ENTRY TO * PTM27695 5587 | * THE LDLBL SUBROUTINE. PALBL IS ENTERED WHEN A* PTM27700 5588 | * LABEL IS NOT PERMITTED ON A STATEMENT BEING * PTM27705 5589 | * PROCESSED. * PTM27710 5590 | *************************************************** PTM27715 073A 0000 5591 | P9220 DC 0 PTM27720 073B 4346 5592 | BSI 3 LDXRS-X3 GO RESTO XR1 & 3 PTM27725 073C 7115 5593 | MDX 1 +21 XR1 POINTS TO COL. 21 PTM27730 073D 4400 083D 5594 | BSI L P9252 CHECK AND COLLECT LABEL PTM27735 073F 7003 5595 | MDX *+3 PTM27740 0740 C04A 5596 | LD P9244 =.L PTM27745 0741 40BF 5597 | BSI P9202 LABEL ERROR PTM27750 0742 7004 5598 | MDX P9222 PTM27755 5599 | *THE FOLLOWING TWO WORDS ARE MODIFIED 2-8 PTM27760 5600 | *DURING PASS 3 OF XREF BY XREF PART 1 2-8 PTM27765 0743 DB23 5601 | P9221 STD 3 SYMBF-X3 SAVE LABEL IN NAME FORMAT PTM27770 0744 C3F4 5602 | LD 3 PASS-X3 CHECK IF PASS 1 PTM27775 0745 4C18 0926 5603 | BSC L P9352,+- BR IF PASS 1 TO SYM TBL ADD PTM27780 0747 C303 5604 | P9222 LD 3 LABVL-X3 LABEL VALUE TO ACC PTM27785 0748 7101 5605 | MDX 1 +1 XR1 POINTS TO COL. 1 PTM27790 0749 40B0 5606 | BSI P9198 HEX TO CC 1-4. PTM27795 074A 7003 5607 | MDX P9226 PTM27800 074B 0000 5608 | P9224 DC 0 ENTER HERE WHEN LABEL PTM27805 074C C0FE 5609 | LD P9224 SET RETURN ADDR 2-8 PTM27810 074D D0EC 5610 | STO P9220 2-8 PTM27815 5611 | *THE FOLLOWING TWO WORDS ARE MODIFIED BY 2-8 PTM27820 5612 | *XREF PART 1 FOR PASS 3 PROCESSING 2-8 PTM27825 074E 4346 5613 | P9226 BSI 3 LDXRS-X3 GO RESET XR1 PTM27830 074F C3F6 5614 | LD 3 SCRA-X3 CHECK IF ANY W.S. AVAILABLE PTM27835 0750 4C20 0755 5615 | BSC L P9228,Z BRANCH IF W.S. STILL LEFT PTM27840 0752 6203 5616 | LDX 2 +3 USE ERROR SUBR TO PRINT 2-7 PTM27845 0753 4048 5617 | BSI P9246 ASM ERROR 'A 03 ' PTM27850 0754 6038 5618 | P9227 LDX 0 $EXIT EXIT ASM TO SUPERVISOR PTM27855 5619 | * * PTM27860 0755 C3F4 5620 | P9228 LD 3 PASS-X3 CHECK IF PASS 1 PTM27865 0756 4C20 0767 5621 | BSC L P9232,Z BRANCH IF PASS 2 PTM27870 0758 C3F3 5622 | LD 3 PSMDE-X3 CHECK IF ONE PASS MODE PTM27875 0759 4418 098C 5623 | BSI L P9382,+- GO TO INTERMED. I/O IF ONE PTM27880 075B 404C 5624 | P9230 BSI P9ZZZ GET NEXT RECORD PTM27885 075C C31F 5625 | LD 3 RDBFR-X3 USE ASM CONVERT PTM27890 075D 4480 01FF 5626 | BSI I CVADR TO CONVERT LAST RECORD PTM27895 075F C115 5627 | LD 1 +21 2-8 PTM27900 0760 F02C 5628 | EOR P9AST 2-8 PTM27905 0761 4C18 0765 5629 | BSC L *+2,+- BR-COMMENTS RCD 2-8 PTM27910 0763 C028 5630 | LD P9244+1 SET COL 34 TO BLANK 2-8 PTM27915 0764 D122 5631 | STO 1 +34 *UNCONDITIONALLY 2-8 PTM27920 5632 | * 2-7 PTM27925 0765 4C80 073A 5633 | P9231 BSC I P9220 EXIT LDLBL SUBR 2-8 PTM27930 0767 C480 0006 5634 | P9232 LD I $CH12 IF CHANNEL 12, RESTO PAGE PTM27935 0769 4820 5635 | BSC Z PRINT HEADING. SKIP NOT 12 PTM27940 076A 40B8 5636 | BSI P9216 PTM27945 076B C03B 5637 | LD P9YYY CHECK SPECIAL LIST SWTCH PTM27950 076C 4818 5638 | BSC +- BR IF ON PTM27955 076D 7003 5639 | MDX *+3 GO TO CHECK LSTOP PTM27960 076E 1010 5640 | SLA 16 PTM27965 076F D037 5641 | STO P9YYY CLEAR SPECIAL SWTCH PTM27970 0770 7003 5642 | MDX *+3 BR TO CHECK FOR ERRORS PTM27975 0771 C3F2 5643 | LD 3 LSTOP-X3 NO LISTING IF ZERO PTM27980 0772 4C20 0776 5644 | P9LST BSC L P9233,Z BR IF LISTING SPECIFIED PTM27985 0774 C112 5645 | LD 1 +18 IF ANY ERRORS, (COL 18 PTM27990 0775 9016 5646 | S P9244+1 NOT BLANK) LIST THIS PTM27995 0776 4420 0802 5647 | P9233 BSI L P9250,Z STATEMENT UNCONDITIONALLY PTM28000 0778 C3F3 5648 | P9234 LD 3 PSMDE-X3 CHECK IF TWO PASS MODE PTM28005 0779 4C20 077E 5649 | BSC L P9236,Z BRANCH IF TWO PASS MODE PTM28010 077B 4400 098D 5650 | BSI L P9382+1 GET NEXT RCRD FROM INT. I/O PTM28015 077D 70E7 5651 | MDX P9231 EXIT PTM28020 077E C3F1 5652 | P9236 LD 3 LDKOP-X3 CHECK LIST DECK SW PTM28025 077F 4C18 075B 5653 | BSC L P9230,+- BRANCH IF NO LIST DECK PTM28030 0781 C812 5654 | LDD P9245+6 PTM28035 0782 DB67 5655 | P9237 STD 3 OVLAY-X3 2-8 PTM28040 0783 C07C 5656 | LD PNC10 2-8 PTM28045 0784 18D0 5657 | RTE 16 PTM28050 0785 C00A 5658 | LD P9245+2 PTM28055 0786 435C 5659 | BSI 3 DISK1-X3 GO TO LOAD PNCH RTN PTM28060 5660 | * * PTM28065 0787 4346 5661 | BSI 3 LDXRS-X3 GO RESTO XR1 PTM28070 0788 C3F1 5662 | LD 3 LDKOP-X3 GET LIST DECK SW 2-8 PTM28075 0789 437A 5663 | BSI 3 OVLAY+19-X3 BR TO PUNCH CONVERT 2-8 PTM28080 078A 70D0 5664 | MDX P9230 EXIT PTM28085 5665 | * PTM28090 5666 | * CONSTANTS PTM28095 5667 | * PTM28100 078B 00D3 5668 | P9244 DC .L PTM28105 078C 0040 5669 | DC . PTM28110 078D 005C 5670 | P9AST DC .* EBCDIC ASTERISK 2-8 PTM28115 078E 5671 | BSS E 0 MAKE NEXT LOCATION EVEN PTM28120 078E 7001 5672 | P9245 DC /7001 SYS I/O PUNCH CODE PTM28125 078F 7003 5673 | H7003 DC /7003 FEED CODE 2-8 PTM28130 0790 7000 5674 | DC /7000 DISKZ READ CODE PTM28135 0791 0AD2 5675 | DC P9466 ADDR FOR ERROR MESSAGES PTM28140 0792 7002 5676 | DC /7002 SYS I/O READ CODE PTM28145 0793 0A01 5677 | DC P9460 INITIAL INPUT BFR PTM28150 0794 0000 5678 | DC *-* WD CNT & PTM28155 0795 0000 5679 | DC *-* SCTR ADDR OF PNCH CNVRT PTM28160 0796 0000 5680 | DC *-* WD CNT & PTM28165 0797 0000 5681 | DC *-* SCTR ADDR OF ERMSG PTM28170 0798 0000 5682 | DC *-* WD CNT & PTM28175 0799 0000 5683 | DC *-* SCTR ADDR OF PHASE 4 PTM28180 079A 0000 5684 | DC *-* WD CNT & PTM28185 079B 0000 5685 | DC *-* SCTR ADDR OF PHASE 10 A PTM28190 5686 | * * PTM28195 ** FETCH ERROR MESSAGE SUBR ** 5688 | *************************************************** PTM28205 5689 | * GETER * PTM28210 5690 | * A BRANCH IS MADE TO GETER WHEN AN ERROR OCCURS* PTM28215 5691 | * DURING THE ASSEMBLY. GETER FETCHES THE ERROR * PTM28220 5692 | * MESSAGE PHASE (ERMSG) INTO THE FIRST DISK * PTM28225 5693 | * BUFFER (BUFI). * PTM28230 5694 | *************************************************** PTM28235 079C 0000 5695 | P9246 DC 0 PTM28240 079D C8F8 5696 | LDD P9245+8 FETCH IOAR HDR INFO PTM28245 079E DC00 0AD2 5697 | STD L P9466 SAVE IN IOAR HDR PTM28250 07A0 C8EF 5698 | LDD P9245+2 READ ERROR MESSAGE ROUTINE PTM28255 07A1 4400 0275 5699 | BSI L DISK1 INTO BUFI DISK BUFFER PTM28260 5700 | * * PTM28265 07A3 4400 0AD5 5701 | BSI L P9466+3 GO TO PRINT ERROR MESSAGE PTM28270 07A5 4C80 079C 5702 | BSC I P9246 PTM28275 07A7 0000 5703 | P9YYY DC 0 LAST CARD SUBROUTINE PTM28280 ** READ A RECORD INTERFACING ** 5705 | *************************************************** PTM28290 5706 | * RDCRD * PTM28295 5707 | * RDCRD IS THE INTERFACE SUBROUTINE FOR THE * PTM28300 5708 | * PRINCIPAL INPUT SUBROUTINE. THE INPUT BUFFER * PTM28305 5709 | * IS CLEARED TO EBCDIC BLANKS, THE INPUT BUFFER * PTM28310 5710 | * ADDRESSES IN ASCOM ARE EXCHANGED, AND A BRANCH* PTM28315 5711 | * IS MADE TO THE PRINCIPAL INPUT SUBROUTINE TO * PTM28320 5712 | * READ A RECORD. INDEX REGISTER 1 IS SET TO * PTM28325 5713 | * POINT AT THE CURRENT INPUT BUFFER AND CONTROL * PTM28330 5714 | * IS TRANSFERRED BACK TO THE CALLER. * PTM28335 5715 | * IF THE RECORD PREVIOUSLY READ WAS A CONTROL * PTM28340 5716 | * RECORD, PHASE 3 IS FETCHED INTO CORE AND * PTM28345 5717 | * CONTROL IS TRANSFERRED TO IT. * PTM28350 5718 | *************************************************** PTM28355 5719 | *************************************************** PTM28360 5720 | * **TAKE NOTE,TAKE NOTE** 2-8* PTM28365 5721 | * THIS SUBROUTINE IS OVERLAID BY MACRO 2-8* PTM28370 5722 | * PHASE 3 AND/OR XREF PART 2A 2-8* PTM28375 5723 | *************************************************** PTM28380 07A8 0000 5724 | P9ZZZ DC *-* ENTER READ CARD SUBR PTM28385 07A9 4C00 07AB 5725 | BSC L * RESET BY MACRO EXPANDER 2-8 PTM28390 07AB 6580 0238 5726 | LDX I1 RDBFR PTM28395 07AD 6250 5727 | LDX 2 80 PTM28400 07AE C0DD 5728 | LD P9244+1 PTM28405 07AF D101 5729 | P9ZZ8 STO 1 +1 CLEAR NEXT 80 CHARACTER PTM28410 07B0 7101 5730 | MDX 1 +1 INPUT BUFFER TO EBCDIC PTM28415 07B1 72FF 5731 | MDX 2 -1 BLANKS BEFORE READING. PTM28420 07B2 70FC 5732 | MDX P9ZZ8 PTM28425 07B3 C213 5733 | P9ZZ1 LD 2 $IBSY WAIT FOR NOT BUSY 2-8 PTM28430 07B4 4C20 07B3 5734 | BSC L P9ZZ1,Z BRANCH UNTIL NOT BUSY PTM28435 07B6 C20F 5735 | LD 2 $CTSW CHECK FOR A // RCD 2-8 PTM28440 07B7 4C20 07F5 5736 | BSC L P9ZZ2,Z BR IF CNTRL RCD DETECTED PTM28445 07B9 7001 5737 | MDX PZZZ3 2-8 PTM28450 07BA 4040 5738 | P9BLK DC /4040 EBC CODE FOR DOUBLE BLK 2-8 PTM28455 5739 | *************************************************** PTM28460 5740 | * * PTM28465 5741 | * THIS MODULE CHECKS FOR THE END STMNT AND * PTM28470 5742 | * TERMINATES READING WHEN THE 'END' IS DETECTED. * PTM28475 5743 | * * PTM28480 5744 | *************************************************** PTM28485 07BB 6580 0239 5745 | PZZZ3 LDX I1 RDBFR+1 SET BFR POINTER 2-8 PTM28490 07BD C115 5746 | LD 1 +21 CHECK FOR COMMENT CARD PTM28495 07BE 9020 5747 | S P9KHL =HOLL * PTM28500 07BF 4C18 07E7 5748 | BSC L P9ZOK,+- BR IF * IN CC 21 PTM28505 07C1 9021 5749 | S P9KEB =EBC * PTM28510 07C2 4C18 07E7 5750 | BSC L P9ZOK,+- BR IF * IN CC 21 PTM28515 5751 | * * PTM28520 07C4 C11E 5752 | LD 1 +30 CHECK FOR 5 CHAR OP CODE2-8 PTM28525 07C5 1008 5753 | SLA 8 CC 30,31 MUST BE BLANK 2-8 PTM28530 07C6 E91F 5754 | OR 1 +31 2-8 PTM28535 07C7 90F2 5755 | S P9BLK =EBC DOUBLE BLANK 2-8 PTM28540 07C8 4C18 07CD 5756 | BSC L P9ZZO,+- BR IF CC 30,31 BLANK 2-8 PTM28545 07CA 80EF 5757 | A P9BLK =HOLL DOUBLE BLANK 2-8 PTM28550 07CB 4C20 07E7 5758 | BSC L P9ZOK,Z BR CC 30,31 NONBLANK 2-8 PTM28555 07CD 5759 | P9ZZO EQU * 2-8 PTM28560 07CD C91B 5760 | LDD 1 +27 OTHERWISE, CHECK FOR END PTM28565 07CE 9811 5761 | SD P9KHL+1 =HOLL 'E' PTM28570 07CF 4C18 07D4 5762 | BSC L P9RTE,+- BR IF 'E' IN CC 27 PTM28575 07D1 9812 5763 | SD P9KEB+1 =EBC 'E' PTM28580 07D2 4C20 07E7 5764 | BSC L P9ZOK,Z BR IF NOT END STMNT PTM28585 5765 | * * PTM28590 07D4 18D0 5766 | P9RTE RTE 16 CHECK CC 28 PTM28595 07D5 4C20 07E7 5767 | BSC L P9ZOK,Z BR IF NOT END STMNT PTM28600 07D7 C11D 5768 | P9LDD LD 1 +29 CHECK FOR 'ND' PTM28605 07D8 9009 5769 | S P9KHL+3 =HOLL 'ND' PTM28610 07D9 4C18 07EA 5770 | BSC L P9ZZS,+- BR IF 'N' IN CC 28 PTM28615 07DB 900A 5771 | S P9KEB+3 =EBC 'ND' PTM28620 07DC 4C20 07E7 5772 | BSC L P9ZOK,Z BR IF NOT END STMNT PTM28625 07DE 700B 5773 | MDX P9ZZS SKIP TO PROCESS END STMNT PTM28630 5774 | * PTM28635 5775 | * NOTICE - TBL BELOW MUST BEGIN AT ODD ADDR 2-8 PTM28640 5776 | * PTM28645 07DF 005C 5777 | P9KHL DC /5C EBC CODE FOR * PTM28650 07E0 00C5 5778 | DC /C5 EBC CODE FOR E PTM28655 07E1 00D5 5779 | DC /D5 EBC CODE FOR N PTM28660 07E2 00C4 5780 | DC /C4 EBC CODE FOR D PTM28665 07E3 41C4 5781 | P9KEB DC /4220-/5C HOLLERITH CODE FOR * PTM28670 07E4 803B 5782 | DC /8100-/C5 HOLLERITH CODE FOR E PTM28675 07E5 402B 5783 | DC /4100-/D5 HOLLERITH CODE FOR N PTM28680 07E6 813C 5784 | DC /8200-/C4 HOLLERITH CODE FOR D PTM28685 5785 | * * PTM28690 07E7 C8AA 5786 | P9ZOK LDD P9245+4 SET-UP TO READ NEXT RCRD PTM28695 07E8 4400 0C1B 5787 | BSI L P9468+3 SYSTEM I/O STARTS NEXT RCRD PTM28700 07EA CB1F 5788 | P9ZZS LDD 3 RDBFR-X3 EXCHANGE I/O PTM28705 07EB 18D0 5789 | RTE 16 BUFFER ADDRESSES PTM28710 07EC D0A6 5790 | STO P9245+5 INITLZ READ COMMAND ADDR PTM28715 07ED DB1F 5791 | STD 3 RDBFR-X3 PTM28720 07EE 6580 0238 5792 | LDX I1 RDBFR XR1 POINS TO CURRENT BFR PTM28725 07F0 4342 5793 | BSI 3 STXRS-X3 SAVE INDEX REGISTER 1 PTM28730 07F1 C400 000F 5794 | LD L $CTSW IF *LIST DECK OPTION IS 2-9 PTM28735 5795 | * *USED,// CARD MUST BE 2-9 PTM28740 5796 | * *CHECKED FOR HERE 2-9 PTM28745 07F3 4C98 07A8 5797 | BSC I P9ZZZ,+- EXIT READ IF SW NOT SET 2-9 PTM28750 5798 | * PTM28755 07F5 C8A2 5799 | P9ZZ2 LDD P9245+10 HDR INFO FOR PHASE 4 PTM28760 07F6 DB67 5800 | STD 3 OVLAY-X3 TRAP // RCRD TO SUP PTM28765 07F7 C009 5801 | LD P9ZZ6 INITLZ OVERLAY EXECUTION PTM28770 07F8 D35A 5802 | STO 3 P0140+1-X3 BRANCH IN PHASE 0. PTM28775 07F9 C320 5803 | LD 3 RDBFR+1-X3 ADDR OF LAST RCRD PTM28780 07FA 4480 01FF 5804 | BSI I CVADR GO TO CNVRT LAST RCD PTM28785 07FC C83B 5805 | LDD POS GET TWO POS NUMBERS 2-6 PTM28790 07FD DBEB 5806 | STD 3 TXQSW-X3 SET TEMP NON-DUP,NON-XEQ SW PTM28795 07FE 4C00 0270 5807 | P9ZZ5 BSC L P0130 BR TO MASTER OVLAY CNTRL PTM28800 5808 | * PTM28805 5809 | * PTM28810 0800 0280 5810 | PNC10 DC OVLAY PUNCH CNVRT ADDR 2-8 PTM28815 0801 0282 5811 | P9ZZ6 DC OVLAY+2 PHASE 3 CORE ADDR PTM28820 ** MOVE I/O BFR TO PRNT BFR ** 5813 | *************************************************** PTM28830 5814 | * P9MVE * PTM28835 5815 | * THE P9MVE SUBROUTINE MOVES THE INPUT RECORD * PTM28840 5816 | * FROM THE INPUT BUFFER TO THE PRINT BUFFER. AS* PTM28845 5817 | * IT MOVES THE RECORD, EACH CHARACTER IS CHECKED* PTM28850 5818 | * FOR VALIDITY. AT THE COMPLETION OF THE MOVE, * PTM28855 5819 | * A BRANCH IS MADE TO THE PRINCIPAL PRINT * PTM28860 5820 | * SUBROUTINE TO LIST THE RECORD AND CONTROL IS * PTM28865 5821 | * RETURNED TO THE CALLER. * PTM28870 5822 | * THIS SUBROUTINE IS DYNAMICALLY MODIFIED * PTM28875 5823 | * BY ASM PHASE 1A AND THE XREF INTERFACE * PTM28880 5824 | * SUBR X9MVE,SEE MACRO PHASE 3B. THIS * PTM28885 5825 | * MODIFICATION ONLY OCCURS IF STMNT * PTM28890 5826 | * NUMBERING IS ALLOWED. * PTM28895 5827 | *************************************************** PTM28900 0802 0000 5828 | P9250 DC 0 INPUT BUFFR TO PRINT BUFFR PTM28905 0803 4346 5829 | BSI 3 LDXRS-X3 GO TO RESTO XR1 & 3 PTM28910 0804 4C00 0806 5830 | MAFBR BSC L * MODIFIED IF 8 K OR + 2-8 PTM28915 0806 C400 0036 5831 | LD L $PBSY DO NOT MOVE RECORD TO PRIN PTM28920 0808 4C30 0806 5832 | BSC L *-4,-Z BFR IF PRINTER IS BUSY PTM28925 5833 | * * PTM28930 080A 633C 5834 | LDX 3 +60 SET TO SCAN 21 TO 80 PTM28935 080B 7114 5835 | MDX 1 20 SKIP FIRST 20 COLUMNS PTM28940 080C 6206 5836 | LDX 2 6 SET TO CHECK FOR SIX CHARS PTM28945 080D C600 0833 5837 | CHKON LD L2 XCHTB-1 FETCH TABLE CHAR PTM28950 080F 18C8 5838 | RTE 8 SAVE THE SUBSTITUTE CODE PTM28955 0810 F101 5839 | EOR 1 1 COMPARE WITH INPUT CHAR PTM28960 0811 4C18 0830 5840 | BSC L XCHCD,+- BR IF MATCH FOUND PTM28965 0813 10A0 5841 | SLT 32 CLEAR ACC & EXT PTM28970 0814 72FF 5842 | MDX 2 -1 SET TO CHECK NEXT TBL CHAR PTM28975 0815 70F7 5843 | MDX CHKON CONTINUE CHECKING PTM28980 5844 | * * PTM28985 0816 7101 5845 | NEXT MDX 1 +1 INCRE INPUT POINTER PTM28990 0817 73FF 5846 | MDX 3 -1 DECRE LOOP CNTR PTM28995 0818 70F3 5847 | MDX CHKON-1 BR TO SCAN NEXT INPUT CHAR PTM29000 5848 | * * PTM29005 0819 71B0 5849 | MDX 1 -80 RESET POINTER TO WD CNT PTM29010 5850 | * * PTM29015 081A 6600 0AA5 5851 | LDX L2 PRBFR POINT XR2 TO PRNT BFR 2-8 PTM29020 081C 6328 5852 | LDX 3 40 SET TO PACK ENTIRE BFR PTM29025 5853 | * * PTM29030 081D C901 5854 | PACK LDD 1 +1 FETCH 2 INPUT CHARS. PTM29035 081E 1088 5855 | SLT 8 PTM29040 081F 1808 5856 | SRA 8 PTM29045 0820 1088 5857 | SLT 8 APCK THEM INTO ONE WORD PTM29050 0821 D201 5858 | STO 2 +1 OUTPUT WORD TO PRINT BFR PTM29055 0822 7201 5859 | MDX 2 +1 INCRE PRNT BFR POINTER PTM29060 0823 7102 5860 | MDX 1 +2 INCRE INPUT POINTER PTM29065 0824 73FF 5861 | MDX 3 -1 DECRE CHAR CNT PTM29070 0825 70F7 5862 | MDX PACK LOOP TIL PACKING COMPLETE PTM29075 5863 | * * PTM29080 0826 C015 5864 | PACK0 LD P9251 PUT I/O WRITE CODE AND 2-8 PTM29085 0827 18D0 5865 | RTE 16 PRINTER I/O AREA ADDR IN PTM29090 0828 C400 078E 5866 | PACK1 LD L P9245 ACC AND EXTENSION PTM29095 082A 4400 0D97 5867 | BSI L P9472+3 PRINT A LINE PTM29100 082C 4400 025F 5868 | BSI L LDXRS PTM29105 082E 4C80 0802 5869 | BSC I P9250 EXIT MOVE SUBROUTINE PTM29110 5870 | * * PTM29115 0830 1010 5871 | XCHCD SLA 16 CLEAR OUT THE BAD CODE PTM29120 0831 1088 5872 | SLT 8 FETCH ITS SUBSTITUTE PTM29125 0832 D101 5873 | STO 1 1 REPLACE IN INPUT BFR PTM29130 0833 70E2 5874 | MDX NEXT RETURN TO CONTINUE SCAN PTM29135 5875 | * * PTM29140 0834 5876 | BSS E 0 PTM29145 0834 EF50 5877 | XCHTB DC /EF50 ILLEGAL CHAR TO AMPERSAN2-8 PTM29150 0835 504E 5878 | DC /504E AMPERSAND TO PLUS SIGN PTM29155 0836 7B7E 5879 | DC /7B7E POIND TO EQUAL SIGN PTM29160 0837 7C7D 5880 | DC /7C7D AT TO APOSTROPHE PTM29165 0838 6C4D 5881 | POS DC /6C4D PERCENT TO LEFT PAREN. PTM29170 0839 4C5D 5882 | DC /4C5D LESS THAN TO RIGHT PAREN. PTM29175 5883 | * ABOVE TWO WDS USED AS TWO POS NUMBERS 2-6 PTM29180 083A 5884 | P9274 BSS E 2 2-8 PTM29185 083C 0AA5 5885 | P9251 DC PRBFR 2-8 PTM29190 5886 | * * PTM29195 5887 | * CONVERT LABEL FROM UNPACKED FORM PTM29200 5888 | * (1 CH/WD) TO COMPRESSED FORM(5 6-BIT PTM29205 5889 | * CHAR. TO 30 BITS RJ IN TWO WORDS). PTM29210 5890 | * CHECK LABEL FOR VALIDITY. IF LABEL PTM29215 5891 | * IS INVALID, PSEUDO-SKIP AND RETURN PTM29220 5892 | * ZEROES(EQUIVALENT TO 5 BLANKS). PTM29225 5893 | * XR2 POINTS TO FIRST CHAR. OF INPUT. PTM29230 083D 0000 5894 | P9252 DC 0 ENTRY PTM29235 083E 6918 5895 | STX 1 P9260+1 SAVE XR1 212 PTM29237 083F C100 5896 | LD 1 0 PTM29240 0840 9027 5897 | S P9264 =.0 FIRST CHAR. MUST NOT PTM29245 0841 4C10 0856 5898 | BSC L P9260,- BE NUMERIC. PTM29250 0843 63FB 5899 | LDX 3 -5 PTM29255 0844 6600 085B 5900 | P9254 LDX L2 P9262 PTM29260 0846 C100 5901 | LD 1 0 CHECK EACH CHARACTER PTM29265 0847 9021 5902 | S P9264+1 =. FOR BLANK PTM29270 0848 4C18 087B 5903 | BSC L P9272,+- PTM29275 084A 9200 5904 | P9256 S 2 0 AND VALID 8-BIT CHAR. PTM29280 084B 4C28 0856 5905 | BSC L P9260,+Z A-Z,0-9,/,#,. PTM29285 084D 9201 5906 | S 2 +1 PTM29290 084E 4C08 0852 5907 | BSC L P9258,+ PTM29295 0850 7202 5908 | MDX 2 +2 PTM29300 0851 70F8 5909 | MDX P9256 PTM29305 0852 7101 5910 | P9258 MDX 1 +1 INCREMENT INPUT POINTER PTM29310 0853 7301 5911 | MDX 3 1 COUNT AND TEST CHARACTERS PTM29315 0854 70EF 5912 | MDX P9254 GO TO TEST NEXT CHARACTER PTM29320 0855 7015 5913 | MDX P9266 PTM29325 0856 6500 0000 5914 | P9260 LDX L1 *-* RESTORE XR1 TO COL 21 212 PTM29330 0858 7401 083D 5915 | MDX L P9252,1 PSEUDO-SKIP PTM29335 085A 7011 5916 | MDX P9266+1 BRANCH TO SAVE LABEL 212 PTM29340 085B 001B 5917 | P9262 DC .$-. TABLE OF VALID CHARACTERS PTM29345 085C 0000 5918 | DC .$-.$ (INCLUSIVE LIMITS) PTM29350 085D 0020 5919 | DC .#-.$ A-I,J-R,S-Z,0-9,$,#,@ PTM29355 085E 0001 5920 | DC 1 .'-.# APOSTR IS AT-SIGN 2-7 PTM29360 085F 0045 5921 | DC /0045 .A-.' APOSTR IS AT-SIGN 2-7 PTM29365 0860 0008 5922 | DC .I-.A PTM29370 0861 0008 5923 | DC .J-.I PTM29375 0862 0008 5924 | DC .R-.J PTM29380 0863 0009 5925 | DC .S-.R PTM29385 0864 0007 5926 | DC .Z-.S PTM29390 0865 0007 5927 | DC .0-.Z PTM29395 0866 0009 5928 | DC .9-.0 PTM29400 0867 3F06 5929 | DC /3FFF-.9 (FORCE END CHECK LOOP). PTM29405 0868 00F0 5930 | P9264 DC .0 PTM29410 0869 0040 5931 | DC . PTM29415 086A 003F 5932 | DC /3F PTM29420 5933 | * PTM29425 5934 | * SUBROUTINE TO COLLECT LABEL PTM29430 5935 | * PTM29435 086B 71FB 5936 | P9266 MDX 1 -5 LABEL IS VALID. PTM29440 086C 63FB 5937 | LDX 3 -5 COLLECT IT. PTM29445 086D 10A0 5938 | SLT 32 PTM29450 086E D8CB 5939 | P9268 STD P9274 PTM29455 086F C100 5940 | LD 1 0 PTM29460 0870 E0F9 5941 | AND P9264+2 =/3F PTM29465 0871 100A 5942 | SLA 10 PTM29470 0872 E8C7 5943 | OR P9274 PTM29475 0873 18DA 5944 | RTE 32-6 PTM29480 0874 7101 5945 | MDX 1 +1 PTM29485 0875 7301 5946 | MDX 3 1 PTM29490 0876 70F7 5947 | MDX P9268 PTM29495 0877 4400 025F 5948 | P9270 BSI L LDXRS RELOAD REGISTERS 1,3 PTM29500 0879 4C80 083D 5949 | BSC I P9252 EXIT. PTM29505 087B C100 5950 | P9272 LD 1 0 CHECK LABEL FOR PTM29510 087C 90EC 5951 | S P9264+1 =. EMBEDDED BLANKS. PTM29515 087D 4C20 0856 5952 | BSC L P9260,Z PTM29520 087F 7101 5953 | MDX 1 1 PTM29525 0880 7301 5954 | MDX 3 1 PTM29530 0881 70F9 5955 | MDX P9272 PTM29535 0882 70E8 5956 | MDX P9266 PTM29540 ** DSF OUTPUT SUBR ** 5958 | * THIS ROUTINE OUTPUTS DATA WORDS PTM29550 5959 | * AND RELOCATION INDICATOR BITS PTM29555 5960 | * IN SYSTEM DISK FORMAT. ONE WORD PTM29560 5961 | * OF INDICATOR BITS NORMALLY PRECEDES PTM29565 5962 | * EIGHT DATA WORDS. PTM29570 5963 | *THIS SUBROUTINE IS MADE INOPERATIVE FOR 2-8 PTM29575 5964 | *PASS THREE PROCESSING AND OVERLAID BY XREF 2C 2-8 PTM29580 0883 0000 5965 | P9276 DC 0 ENTRY POINT PTM29585 0884 6939 5966 | STX 1 P9289+1 PTM29590 0885 6A3A 5967 | STX 2 P9291+1 SAVE THE INDEX REGISTERS PTM29595 0886 C03E 5968 | LD P9294 PTM29600 0887 4C20 088D 5969 | BSC L P9278,Z IF DATA HAS BEEN OUTPUT PTM29605 0889 C3FA 5970 | LD 3 ADCOW-X3 BEFORE, COMPARE COUNTERS. PTM29610 088A D480 022B 5971 | STO I DHPTR IF NOT, STORE DATA ADDRESS PTM29615 088C D3FC 5972 | STO 3 ADCW2-X3 IN WORD 1 OF CURRENT DATA PTM29620 088D C3FA 5973 | P9278 LD 3 ADCOW-X3 HEADER. IF TWO COUNTERS PTM29625 088E 93FC 5974 | S 3 ADCW2-X3 DO NOT AGREE, GENERATE PTM29630 088F 4420 0927 5975 | BSI L DTHDR,Z *A DATA HDR 2-8 PTM29635 0891 6580 022D 5976 | P9282 LDX I1 DFXR1 PTM29640 0893 6680 022E 5977 | LDX I2 DFXR2 PTM29645 0895 C316 5978 | LD 3 DFXR3-X3 IF NEW DATA BLOCK SHOULD PTM29650 0896 4C20 089D 5979 | BSC L P9286,Z BE STARTED, STORE ZERO IN PTM29655 0898 D209 5980 | STO 2 9 NEXT INDICATOR BITS WORD, PTM29660 0899 C029 5981 | LD P9292 RESET SHIFT COUNT TO 16, PTM29665 089A D316 5982 | STO 3 DFXR3-X3 RESET XR1 AND XR2 PTM29670 089B 7101 5983 | MDX 1 +1 PTM29675 089C 7209 5984 | MDX 2 +9 PTM29680 089D CB21 5985 | P9286 LDD 3 TRWRD-X3 FETCH OUTPUT WORD & REL.BIT PTM29685 089E 6780 022F 5986 | LDX I3 DFXR3 XR3 = SHIFT COUNT PTM29690 08A0 D100 5987 | STO 1 0 STORE DATA WORD PTM29695 08A1 7101 5988 | MDX 1 +1 PTM29700 08A2 1010 5989 | SLA 16 CLEAR A PTM29705 08A3 1380 5990 | SLT 3 0 VARIABLE SHIFT OF INDICATOR PTM29710 08A4 EA00 5991 | OR 2 0 BITS FOR THIS DATA WORD. PTM29715 08A5 D200 5992 | STO 2 0 PTM29720 08A6 73FE 5993 | MDX 3 -2 DECREMENT SHIFT COUNT PTM29725 08A7 1000 5994 | NOP (MAY SKIP) PTM29730 08A8 681C 5995 | STX P9294 DATA OUTPUT. SW = NON-ZERO PTM29735 08A9 6D00 022D 5996 | STX L1 DFXR1 SAVE DATA WD POINTER PTM29740 08AB 6E00 022E 5997 | STX L2 DFXR2 SAVE INDICATOR BITS POINTER PTM29745 08AD 6F00 022F 5998 | STX L3 DFXR3 SAVE NEXT SHIFT COUNT PTM29750 08AF 4400 025F 5999 | BSI L LDXRS PTM29755 08B1 C322 6000 | LD 3 TRWRD+1-X3 IF ENTRY FOR FIRST PTM29760 08B2 F011 6001 | EOR P9292+1 WORD OF ONE WORD PTM29765 08B3 4C18 08B8 6002 | BSC L P9288,+- CALL DO NOT UPDATE PTM29770 08B5 7401 0215 6003 | MDX L ADCW2,1 INTERNAL COUNTER. PTM29775 08B7 1000 6004 | NOP (MAY SKIP) PTM29780 08B8 10A0 6005 | P9288 SLT 32 CLEAR A & Q PTM29785 08B9 DB21 6006 | STD 3 TRWRD-X3 CLEAR OUTPUT WORD BUFFER PTM29790 08BA D31D 6007 | STO 3 RDTHD-X3 CLEAR NEW SCTR HDR SWTCH PTM29795 08BB 4400 0949 6008 | BSI L WRDFO CHECK IF DSF BFR FULL 2-8 PTM29800 08BD 6500 0000 6009 | P9289 LDX L1 *-* RESTO XR1 PTM29805 08BF 6600 0000 6010 | P9291 LDX L2 *-* RESTO XR2 PTM29810 08C1 4C80 0883 6011 | P9290 BSC I P9276 PTM29815 6012 | * PTM29820 08C3 0010 6013 | P9292 DC +16 INITIAL IND. BITS SHIFT CNT PTM29825 08C4 8000 6014 | DC /8000 PTM29830 08C5 0000 6015 | P9294 DC 0 PTM29835 6016 | * 2-4 PTM29840 0042 6017 | CHEC1 EQU P9294-P9276 -CHECK WORD- 2-4 PTM29845 6018 | * LABEL 'CHECK' SHOULD HAVE THE 2-4 PTM29850 6019 | * COMPUTED VALUE 0042. IF NOT, 2-4 PTM29855 6020 | * TWO REFERENCES IN PHASE 5 MUST 2-4 PTM29860 6021 | * BE CHANGED TO THE NEW VALUE. 2-4 PTM29865 6022 | * 2-4 PTM29870 ** SEARCH THE SYMBOL TABLE ** 08C6 0000 6024 | P9300 DC 0 PTM29880 6025 | *THIS SUBROUTINE IS MODIFIED HERE DURING 2-8 PTM29885 6026 | *PASS THREE BY XREF PART 1 TO INTERFACE TO 2-8 PTM29890 6027 | *XREF 2,2A,2B AND BUILD THE XREF TABLE 2-8 PTM29895 08C7 401B 6028 | BSI P9324 SEARCH IN CORE TBL PTM29900 08C8 7001 6029 | MDX *+1 NOT FOUND PTM29905 08C9 7013 6030 | MDX P9302 FOUND - BR TO EXIT PTM29910 08CA C301 6031 | P9301 LD 3 OFCNT-X3 CHECK FOR OVERFLOW TO DISK PTM29915 08CB 4C18 08E0 6032 | BSC L P9303,+- BR IF NO OVERFLOW PTM29920 08CD C400 098C 6033 | LD L PAAID TEST IF 10A IS IN CORE 2-11 PTM29921 08CF 904A 6034 | S P9442 2-11 PTM29922 08D0 4C18 08DA 6035 | BSC L P93A1,+- BR IF 10A IS IN CORE 2-11 PTM29923 08D2 CC00 079A 6036 | LDD L P9245+12 OTHERWISE, LOAD PTM29925 08D4 DC00 098A 6037 | STD L P9380 PHASE 10 A TO SEARCH PTM29930 08D5 6038 | P93B1 EQU *-1 OVERFOW SECTORS 2-11 PTM29935 08D6 C0FE 6039 | LD P93B1 2-11 PTM29937 08D7 18D0 6040 | RTE 16 PTM29940 08D8 C049 6041 | LD P9346+1 2-8 PTM29945 08D9 435C 6042 | BSI 3 DISK1-X3 BR TO READ PHASE 10 A PTM29950 6043 | * * PTM29955 08DA 4400 098D 6044 | P93A1 BSI L PAA00 BRANCH TO PHASE 10A 2-11 PTM29960 08DC 7003 6045 | MDX P9303 BR TO EXIT PTM29965 08DD 7401 08C6 6046 | P9302 MDX L P9300,+1 INCRE RET ADDR PTM29970 08DF C03E 6047 | LD P9321 VALUE TO ACC PTM29975 08E0 4346 6048 | P9303 BSI 3 LDXRS-X3 GO RESTO XR1 PTM29980 08E1 4C80 08C6 6049 | BSC I P9300 EXIT PTM29985 6050 | * * PTM29990 08E3 0000 6051 | P9324 DC 0 ENTRY POINT PTM29995 08E4 C300 6052 | LD 3 LOEND-X3 PTM30000 08E5 9035 6053 | S P9316 BEGIN FORMING NEW PTM30005 08E6 D030 6054 | STO P9430 SEARCH ADDRESS. PTM30010 08E7 C3FF 6055 | LD 3 HIEND-X3 PTM30015 08E8 8032 6056 | A P9316 PTM30020 08E9 D02E 6057 | STO P9432 PTM30025 08EA C02D 6058 | P9326 LD P9432 PTM30030 08EB 902B 6059 | S P9430 PTM30035 6060 | *THE FOLLOWING 3 LINES OF CODE ARE MODIFIED IN 2-8 PTM30040 6061 | *PASS THREE TO HANDLE 4 WORD ENTRIES 2-8 PTM30045 08EC F02F 6062 | P9327 EOR P9318 =1 PTM30050 08ED 902E 6063 | S P9318 =1 PTM30055 08EE 1801 6064 | SRA 1 DIVIDE DIFFERENCE BY 2. PTM30060 08EF 4C88 08E3 6065 | BSC I P9324,+ GO SET MULT DEFINE 2/11 PTM30065 08F1 D004 6066 | STO P9328+1 EXITS IF SYMBOL NOT PTM30070 08F2 C025 6067 | LD P9432 FOUND. PTM30075 08F3 9002 6068 | S P9328+1 PTM30080 08F4 D001 6069 | STO P9328+1 PTM30085 08F5 6500 0000 6070 | P9328 LDX L1 *-* PTM30090 08F7 C100 6071 | LD 1 0 PTM30095 08F8 18D0 6072 | RTE 16 WITH TABLE ENTRY. PTM30100 08F9 C1FF 6073 | LD 1 -1 COMPARE NEW SYMBOL PTM30105 08FA E025 6074 | AND P9322 MASK OFF BITS 0-1. PTM30110 08FB 9B23 6075 | SD 3 SYMBF-X3 PTM30115 08FC 4C20 090D 6076 | BSC L P9330,Z PTM30120 08FE 18D0 6077 | RTE 16 FIRST HALF EQUAL. PTM30125 08FF 4C20 090D 6078 | BSC L P9330,Z PTM30130 0901 C01D 6079 | LD P9428 COMPARE EQUAL. IF SRCH ON PTM30135 0902 4C20 0913 6080 | BSC L P9334,Z STADD, MULTIPLY DEFINED. PTM30140 0904 C1FF 6081 | LD 1 -1 SAVE MULTIPLE DEFINITION PTM30145 0905 D400 060C 6082 | STO L P9176 AND RELOCATION BITS. PTM30150 0907 C1FE 6083 | LD 1 -2 PTM30155 0908 D015 6084 | STO P9321 SAVE VALUE PTM30160 0909 7401 08E3 6085 | P9329 MDX L P9324,+1 BUMP RETURN 2/11 PTM30165 6086 | * 2/11 PTM30170 6087 | * 2/11 PTM30175 090B 4C80 08E3 6088 | BSC I P9324 LOAD VALUE,INCR. RETURN. PTM30180 090D 4C02 0911 6089 | P9330 BSC L P9332,C IF SYMBOL GREATER, SET PTM30185 090F 6907 6090 | STX 1 P9430 HI=(XR1). IF SYMBOL 2-8 PTM30190 0910 70D9 6091 | MDX P9326 LESS SET LOW =(XR1). PTM30195 0911 6906 6092 | P9332 STX 1 P9432 2-8 PTM30200 0912 70D7 6093 | MDX P9326 PTM30205 0913 C1FF 6094 | P9334 LD 1 -1 MASK MULTIPLE PTM30210 0914 E808 6095 | OR P9320 /4000 DEFINITION BIT PTM30215 0915 D1FF 6096 | STO 1 -1 TO VALUE. PTM30220 0916 70F2 6097 | MDX P9329 RETURN 2/11 PTM30225 6098 | * PTM30230 0917 0000 6099 | P9430 DC 0 PTM30235 0918 0000 6100 | P9432 DC 0 PTM30240 0919 013B 6101 | P9438 DC 315 PTM30245 091A 00E5 6102 | P9442 DC /E5 PHASE ID OF 10A 2-11 PTM30247 6103 | * PTM30250 091B 0003 6104 | P9316 DC 3 PTM30255 091C 0001 6105 | P9318 DC 1 PTM30260 091D 8000 6106 | P9320 DC /8000 PTM30265 091E 0000 6107 | P9321 DC 0 TEMP STORAGE FOR VALUE PTM30270 091F 0000 6108 | P9428 DC 0 SYM TBL ADD SWTCH PTM30275 0920 6109 | BSS E 0 LOCATE PRFIX AT P10AA-1 PTM30280 0920 3FFF 6110 | P9322 DC /3FFF PTM30285 0921 7001 6111 | P9346 DC /7001 DISKZ WRITE CODE PTM30290 0922 7000 6112 | DC /7000 DISKZ READ CODE PTM30295 0923 0AD4 6113 | PRFIX DC P9466+2 ADDR OF CURRENT PREFIX WD PTM30300 6114 | * PTM30305 ** ADD A SYMBOL TO THE SYMBOL TABLE * 0924 6116 | BSS E 0 ADJUST TO EVEN LOCATION PTM30315 6117 | *THIS SUBROUTINE IS OVERLAID BY XREF PART 2B 2-8 PTM30320 6118 | *DURING PASS THREE PROCESSING 2-8 PTM30325 0924 005F 6119 | P9350 DC SA130-SA000 WORD CNT PHASE 10 2-11 PTM30330 0925 0003 6120 | DC +3 RELATIVE SCTR ADDR OF PHASE 10 PTM30335 6121 | * PTM30340 0926 CB23 6122 | P9352 LDD 3 SYMBF-X3 PTM30345 0927 4C20 092C 6123 | BSC L P9354,Z PTM30350 0929 18D0 6124 | RTE 16 IF LABEL FIELD IS BLANK, PTM30355 092A 4C18 0944 6125 | BSC L P9358,+- EXIT. PTM30360 092C D0F2 6126 | P9354 STO P9428 SET SW TO INDICATE ADD ENT. PTM30365 092D 40B5 6127 | BSI P9324 SEARCH IN-CORE TABLE FIRST PTM30370 092E 7001 6128 | MDX *+1 PTM30375 092F 7014 6129 | MDX P9358 MULTIPLE DEFINITION PTM30380 0930 C0E6 6130 | LD P9430 PTM30385 0931 D054 6131 | STO P9374 SAVE LOW ADDR PTM30390 0932 C301 6132 | LD 3 OFCNT-X3 IF NO TABLE OVERFLOW, PTM30395 0933 4C18 094B 6133 | BSC L P9362,+- ADD SYMBOL TO TABLE. PTM30400 6134 | * PTM30405 6135 | * ENTER TABLE OVERFLOW MODE. PTM30410 6136 | * WRITE PARTIAL SECTOR OUT ON DISK, PTM30415 6137 | * SEARCH ALL SECTORS OF TABLE OVERFLOW PTM30420 6138 | * TO DETECT A MULTIPLE DEFINITION PTM30425 6139 | * CONDITION. IF NOT MULTIPLY DEFINED, PTM30430 6140 | * RESTORE PARTIAL SECTOR AND ADD NEW PTM30435 6141 | * SYMBOL. IF MULTIPLY DEFINED, RESTORE PTM30440 6142 | * PARTIAL SECTOR AND EXIT. PTM30445 6143 | * PTM30450 6144 | * * PTM30455 0935 C056 6145 | LD PAAID TEST IF 10A IS IN CORE 2-11 PTM30456 0936 90E3 6146 | S P9442 2-11 PTM30457 0937 4C18 0940 6147 | BSC L P9356,+- BRANCH IF YES 2-11 PTM30458 0939 CC00 079A 6148 | LDD L P9245+12 FETCH PH. 10 A HDR INFO PTM30460 093B D84E 6149 | STD P9380 SET UP IOAR HDR 2-11 PTM30465 093C C098 6150 | LD P93B1 2-11 PTM30470 093D 18D0 6151 | RTE 16 PTM30475 093E C0E3 6152 | LD P9346+1 2-8 PTM30480 093F 435C 6153 | BSI 3 DISK1-X3 BR TO READ PHASE 10 A PTM30485 6154 | * * PTM30490 0940 404C 6155 | P9356 BSI PAA00 BR. TO PHASE 10A 2-11 PTM30495 0941 7007 6156 | MDX P9360 NOT FOUND PTM30500 0942 C043 6157 | LD P9374 PTM30505 0943 D0D3 6158 | STO P9430 PTM30510 0944 4346 6159 | P9358 BSI 3 LDXRS-X3 PTM30515 0945 1010 6160 | SLA 16 CLEAR ADD SYM SW 2/11 PTM30516 0946 D0D8 6161 | STO P9428 2/11 PTM30517 0947 4C00 0747 6162 | BSC L P9222 EXIT TO LDLBL ROUTINE PTM30520 0949 C03C 6163 | P9360 LD P9374 PTM30525 094A D0CC 6164 | STO P9430 PTM30530 094B 6580 0917 6165 | P9362 LDX I1 P9430 PTM30535 094D C300 6166 | LD 3 LOEND-X3 PTM30540 094E 90C8 6167 | S P9430 PTM30545 094F 90CB 6168 | S P9372 =3 PTM30550 0950 4C18 095C 6169 | BSC L P9366,+- PTM30555 0952 D001 6170 | STO *+1 IF LABEL WAS NOT IN TABLE, PTM30560 0953 6600 0000 6171 | LDX L2 *-* PUSH DOWN ALL ENTRIES PTM30565 0955 6780 0219 6172 | LDX I3 LOEND 3 WORDS TO ENTER NEW LABEL PTM30570 0957 C3FE 6173 | P9364 LD 3 -2 PTM30575 0958 D3FB 6174 | STO 3 -5 PTM30580 0959 7301 6175 | MDX 3 +1 PTM30585 095A 7201 6176 | MDX 2 +1 PTM30590 095B 70FB 6177 | MDX P9364 PTM30595 095C 6700 0219 6178 | P9366 LDX L3 X3 RELOAD XR3 TO ASM COMMA PTM30600 095E CB23 6179 | LDD 3 SYMBF-X3 LOAD SYMBOL (NAME CODE) PTM30605 095F EB04 6180 | OR 3 LABRL-X3 INSERT RELOCATION BIT PTM30610 0960 D1FF 6181 | STO 1 -1 PTM30615 0961 18D0 6182 | RTE 16 PTM30620 0962 D100 6183 | STO 1 0 PTM30625 0963 C303 6184 | LD 3 LABVL-X3 PTM30630 0964 D1FE 6185 | STO 1 -2 PTM30635 0965 7401 0209 6186 | MDX L CTSYM,+1 COUNT SYMBOLS IN TABLE PTM30640 0967 C300 6187 | LD 3 LOEND-X3 PTM30645 0968 90B2 6188 | S P9372 =3 PTM30650 0969 D300 6189 | STO 3 LOEND-X3 NEW LOW END OF SYMBOL TABLE PTM30655 096A 90B0 6190 | S P9372 =3 PTM30660 096B 93FE 6191 | S 3 ENDST-X3 IS TABLE FULL PTM30665 096C 4C10 0944 6192 | BSC L P9358,- NO, EXIT PTM30670 6193 | * * PTM30675 096E 74FF 0212 6194 | MDX L THRT2,-1 DECRE OVFLO SCTRS CNTR PTM30680 0970 7003 6195 | MDX P9367 OVFLO CYLINDERS NOT FULL PTM30685 0971 6202 6196 | LDX 2 +2 IF FULL, IND ERROR 'A 02' PTM30690 0972 4400 079C 6197 | BSI L P9246 FETCH ERROR RTN PTM30695 0974 C0AC 6198 | P9367 LD P9346 WRITE FUNC CODE PTM30700 0975 D3E7 6199 | STO 3 OFLOW-X3 PTM30705 0976 CBE7 6200 | LDD 3 OFLOW-X3 PTM30710 0977 435C 6201 | BSI 3 DISK1-X3 BR TO WRITE SCTR PTM30715 0978 C0A9 6202 | LD P9346+1 RESET CNTRL WRD PTM30720 0979 D3E7 6203 | STO 3 OFLOW-X3 TO READ PTM30725 097A 7401 021A 6204 | MDX L OFCNT,+1 ONE MORE OVERFLOW SECTOR PTM30730 097C C480 0233 6205 | P9368 LD I OFSAD INCREMENT SCTR ADDR PTM30735 097E 809D 6206 | A P9318 OF SYMBOL TABLE OVERFLOW PTM30740 097F D480 0233 6207 | STO I OFSAD BY 1. PTM30745 0981 C3FE 6208 | LD 3 ENDST-X3 PTM30750 0982 8004 6209 | A P9436 PTM30755 0983 8004 6210 | A P9440 RESET TABLE LIMIT TO ALLOW PTM30760 0984 D300 6211 | STO 3 LOEND-X3 MORE SYMBOLS. PTM30765 0985 70BE 6212 | MDX P9358 PTM30770 091B 6213 | P9372 EQU P9316 2-8 PTM30775 0986 0000 6214 | P9374 DC 0 PTM30780 0987 0002 6215 | P9436 DC 2 PTM30785 0988 013E 6216 | P9440 DC 318 PTM30790 0926 6217 | P9378 EQU P9352 PTM30795 098A 6218 | BSS E 0 2-11 PTM30800 098A 0000 6219 | P9380 DC *-* WD CNT PHASE 11 PTM30805 098B 0004 6220 | DC +4 RELATIVE SCTR ADDR OF PHASE 11 PTM30810 098C 6221 | BSS INTBF ALLOCATE ROOM FOR INT1 2-11 PTM30815 6222 | * 2-2 PTM30820 6223 | * 2-2 PTM30825 09EE 0282 6224 | DVADR DC DIVSN DIVISION OP BR ADDR 2-8 PTM30830 09EF 0000 6225 | OSAVE DC *-* SAVE OVFL COUNT 2/11 PTM30831 09F0 6226 | BSS E 0 FORCE EVEN ADDR 2-8 PTM30835 09F0 00E7 6227 | DVSTR DC /E7 SLET ID OF DIVISION OP 2-8 PTM30840 09F0 6228 | DVSKY EQU *-1 SAVE SCTR ADDR ,WD CNT 2-8 PTM30845 09F1 6229 | BSS 3 2-8 PTM30850 09F4 CB67 6230 | DIV00 LDD 3 OVLAY-X3 SAVE SCTR ADDR 2-8 PTM30855 09F5 D8FA 6231 | STD DVSKY 2-8 PTM30860 09F6 CB65 6232 | LDD 3 P0170-X3 SET DK WRITE PARAM 2-8 PTM30865 09F7 8008 6233 | A PA901 ADD ONE 2-8 PTM30870 09F8 435C 6234 | BSI 3 DISK1-X3 SAVE SCTR TO DISK 2-8 PTM30875 09F9 C8F8 6235 | LDD DVSTR+2 2-8 PTM30880 09FA DB67 6236 | STD 3 OVLAY-X3 SET SCTR ADDR 2-8 PTM30885 09FB C0F2 6237 | LD DVADR SET BR ADDR FOR DIVIDE 2-8 PTM30890 09FC D35A 6238 | STO 3 P0140+1-X3 2-8 PTM30895 09FD 4C00 0270 6239 | BSC L P0130 GO TO MASTER OVLAY SUBR 2-8 PTM30900 0A00 6240 | BSS E 0 RD/PCH BUFFER ON ODD 2-11 PTM30903 0A00 0001 6241 | PA901 DC 1 CONSTANT 1 2-8 PTM30905 0A01 6242 | P9451 EQU * 2-8 PTM30910 6243 | *************************************************** PTM30915 6244 | * * PTM30916 6245 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM30917 6246 | * * PTM30918 6247 | * INT1 * PTM30920 6248 | * INT1 IS THE SUBROUTINE USED IN PASS 1 TO PACK * PTM30925 6249 | * THE INPUT RECORD INTO TWO EBCDIC CHARACTERS * PTM30930 6250 | * PER WORD AND SAVE IT IN THE INTERMEDIATE * PTM30935 6251 | * OUTPUT BUFFER. INT1 IS OVERLAID BY PHASE 11 * PTM30940 6252 | * FOR PASS 2 PROCESSING. INT2 IS THE ENTRY * PTM30945 6253 | * ADDRESS FOR PHASE 11 DURING PASS 2. * PTM30950 6254 | *THIS PHASE IS ASSEMBLED OUT OF THE NORMAL 2-8 PTM30955 6255 | *PHASE ID SEQUENCE -- IT MUST BE PHYSICALLY 2-8 PTM30960 6256 | *MOVED TO PERFORM SYSTEM LOAD FUNCTIONS. 2-8 PTM30965 6257 | *************************************************** PTM30970 6258 | * PTM30975 098A 6259 | ORG P9380 PTM30980 *SBRKSLS E4 6260 | *ASM INTERMEDIATE I/O V2M08 PTM30985 098A 005E 6261 | DC P9INT-P9382 PTM30990 098B 00E4 6262 | DC /E4 SLET ID OF INT1 2-8 PTM30995 098C 0000 6263 | P9382 DC 0 ENTRY POINT PTM30996 098D 7115 6264 | MDX 1 21 PTM30997 098E C100 6265 | LD 1 0 LOAD COL 21 PTM30998 098F 9056 6266 | S P9412 CHECK FOR BLANK * PTM30999 0990 4C20 099D 6267 | BSC L P9384,Z NON-BLANK, BRANCH * PTM31000 0992 E901 6268 | OR 1 1 OR WITH 2ND CHARACTER 212 PTM31001 0993 E902 6269 | OR 1 2 OR WITH 3RD CHARACTER 212 PTM31002 0994 E903 6270 | OR 1 3 OR WITH 4TH CHARACTER 212 PTM31003 0995 E904 6271 | OR 1 4 OR WITH 5TH CHARACTER 212 PTM31004 0996 904F 6272 | S P9412 BY SUBTRACTING BLANK 2-11 PTM31005 0997 D100 6273 | STO 1 0 SET COL 21 NON-BLANK 2-11 PTM31006 0998 4C20 099D 6274 | BSC L P9384,Z BR IF LABEL 212 PTM31007 099A 7105 6275 | MDX 1 5 POINT PAST LABEL 212 PTM31010 099B C04A 6276 | LD P9412 LOAD BLANK 212 PTM31012 099C D100 6277 | STO 1 0 *AND STORE IN COL. 26 212 PTM31014 099D 904A 6278 | P9384 S P9412+2 TEST FOR ASTERISK 212 PTM31016 099E EBF2 6279 | OR 3 LSTOP-X3 NO LIST, SKIP RECORD 212 PTM31017 099F 4818 6280 | BSC +- SKIP IF RCRD TO BE SAVED PTM31020 09A0 702B 6281 | MDX P9398 BRANCH TO EXIT PTM31025 6282 | * PTM31030 09A1 6680 0923 6283 | LDX I2 PRFIX XR2 = ADDR OF PREFIX WD PTM31040 09A3 402C 6284 | BSI P9400 CHECK FOR BUFFER FULL PTM31045 09A4 6916 6285 | STX 1 P9393+1 ADDR OF LEFT END COLUMN PTM31060 09A5 4346 6286 | BSI 3 LDXRS-X3 RESTORE XR1 2-11 PTM31063 09A6 7151 6287 | MDX 1 81 POINT TO COLUMN 81 2-11 PTM31065 09A7 633C 6288 | LDX 3 +60 MAX. BLANK COLS. 21-80 PTM31070 6289 | * PTM31075 6290 | * SCAN FROM COLUMN 80 LEFT-WARD FOR PTM31080 6291 | * THE FIRST NON-BLANK COLUMN. A PTM31085 6292 | * NON-BLANK COLUMN MUST OCCUR BETWEEN PTM31090 6293 | * COLUMNS 21-80, OR THE STATEMENT PTM31095 6294 | * IS NOT PACKED FOR DISK OUTPUT. PTM31100 6295 | * PTM31105 09A8 C1FF 6296 | P9390 LD 1 -1 CHECK STMT CHARACTER 2-11 PTM31110 09A9 F03C 6297 | EOR P9412 FOR A NON-BLANK. PTM31115 09AA 4C20 09B2 6298 | BSC L P9392,Z BRANCH IF COLUMN NOT BLANK PTM31120 09AC 71FF 6299 | MDX 1 -1 DECREMENT INPUT POINTER, PTM31125 09AD 73FF 6300 | MDX 3 -1 DECREMENT LENGTH COUNTER, PTM31130 09AE 70F9 6301 | MDX P9390 AND CHECK NEXT COLUMN. PTM31135 09AF 6302 6302 | LDX 3 2 INITLZ TO 2 COLUMNS 2-1 PTM31145 09B0 C039 6303 | LD P9INT GET CONSTANT 2 2-1 PTM31150 09B1 700C 6304 | MDX P9394+2 *WITH PREFIX OF 2 2-1 PTM31160 6305 | * PTM31165 09B2 690A 6306 | P9392 STX 1 P9394+1 FIRST BLANK COLUMN 2-11 PTM31175 09B3 C009 6307 | LD P9394+1 COMPUTE NO. OF COLUMNS PTM31180 09B4 9006 6308 | S P9393+1 BETWEEN LEFT AND RIGHT ENDS PTM31185 09B5 4804 6309 | BSC E IF ODD NO. OF COLUMNS, PTM31190 09B6 8030 6310 | A P9412+1 ADD 1 TO MAKE NO. EVEN PTM31195 09B7 D005 6311 | STO P9394+1 INITLZ LOOP COUNTER PTM31200 09B8 1801 6312 | SRA 1 WORDS = CHAR/2 PTM31205 09B9 802D 6313 | A P9412+1 = TOTAL NO WORDS TO 2-11 PTM31210 09BA 6500 0000 6314 | P9393 LDX L1 *-* INITLZ TO LEFT COLUMN ADDR PTM31220 09BC 6700 0000 6315 | P9394 LDX L3 *-* INITLZ TO NO. OF COLUMNS PTM31225 09BE D200 6316 | STO 2 0 STORE PREFIX WORD 212 PTM31227 09BF 7201 6317 | MDX 2 +1 1 WORD PAST CONTROL WORD PTM31230 6318 | * PTM31235 09C0 400F 6319 | P9396 BSI P9400 CHECK FOR BUFFER FULL PTM31240 09C1 C101 6320 | LD 1 +1 PTM31245 09C2 18C8 6321 | RTE 8 PACK INPUT CHARACTERS, PTM31250 09C3 C100 6322 | LD 1 0 TWO EBCDIC CHARACTERS PER PTM31255 09C4 1088 6323 | SLT 8 WORD, AND INSERT IN PTM31260 09C5 D200 6324 | STO 2 0 INTERMEDIATE I/O BUFFER. PTM31265 09C6 7102 6325 | MDX 1 +2 NEXT TWO INPUT CHARACTERS PTM31270 09C7 7201 6326 | MDX 2 +1 NEXT BUFFER WORD PTM31275 09C8 73FE 6327 | MDX 3 -2 LOOP COUNT - 2 PTM31280 09C9 70F6 6328 | MDX P9396 REPEAT IF COUNT NOT ZERO PTM31285 6329 | * PTM31290 09CA 6E00 0923 6330 | STX L2 PRFIX SAVE ADDR OF NEXT PRFIX WD PTM31295 09CC 4400 025F 6331 | P9398 BSI L LDXRS RELOAD REGISTERS 1,3 PTM31300 09CE 4C80 098C 6332 | BSC I P9382 EXIT (INT1) PTM31305 6333 | * PTM31310 09D0 0000 6334 | P9400 DC 0 BUFFER FULL ROUTINE PTM31315 09D1 6AE9 6335 | P9401 STX 2 P9393+1 CONPARE ADDR FOR CURR 2-11 PTM31320 09D2 C0E8 6336 | LD P9393+1 BUFFER WITH 2-11 PTM31325 09D3 9015 6337 | S P9408 END OF BUFFER ADDR. PTM31330 09D4 4CA0 09D0 6338 | P9402 BSC I P9400,Z BRANCH (EXIT) IF NOT EQUAL PTM31335 09D6 C80D 6339 | LDD P9406 SET-UP TO USE DISKZ TO PTM31340 09D7 4400 0275 6340 | BSI L DISK1 WRITE INTERMED. I/O SECTOR PTM31345 09D9 7401 0AD3 6341 | MDX L P9466+1,+1 NEXT SCTR ADDRESS PTM31350 09DB 74FF 020F 6342 | MDX L SCRA,-1 ONE LESS WORK STORAGE SCTR PTM31355 09DD 7003 6343 | MDX P9404 (BRANCH IF SCRA NOT ZERO) PTM31360 09DE 6203 6344 | LDX 2 +3 IND ERROR 'A 03' PTM31365 09DF 4400 079C 6345 | BSI L P9246 DISK OUTPUT EXCEEDS W.S. PTM31370 6346 | * PTM31375 09E1 7600 FEC0 6347 | P9404 MDX L2 -320 DECREMENT XR2 FOR NEXT SCTR PTM31380 09E3 70ED 6348 | MDX P9401 RESET PREFIX WD ADDR 2-6 PTM31385 6349 | * PTM31390 6350 | * INT1 CONSTANTS PTM31395 6351 | * PTM31400 09E4 6352 | BSS E 0 MAKE NEXT LOCATION EVEN PTM31410 09E4 7001 6353 | P9406 DC /7001 DISKZ WRITE CODE PTM31415 09E5 0AD2 6354 | DC P9466 ADDR FOR DISK WRITE PTM31420 09E6 0040 6355 | P9412 DC . EBCDIC BLANK PTM31425 09E7 0001 6356 | DC 1 CONSTANT PTM31430 09E8 001C 6357 | DC .*-. EBCDIC ASTERISK-BLANK 2-11 PTM31435 09E9 0C14 6358 | P9408 DC P9466+322 END OF BUFR ADDR 2-8 PTM31436 09EA 6359 | BSS INTBF-*+P9382-4 PATCH AREA 2-11 PTM31437 09EA 0002 6360 | P9INT DC 2 CONSTANT 2, ENDS PHASE 2-1 PTM31440 6361 | *************************************************** PTM31445 6362 | * PHASE 10A IS FETCHED INTO CORE STORAGE WHENEVER* PTM31450 6363 | * NECESSARY TO HANDLE SYMBOL TABLE OVERFLOW. WHEN* PTM31455 6364 | * A SYMBOL IS TO BE ADDED TO AN OVERFLOW SECTOR * PTM31460 6365 | * IN PASS 1, OR WHEN THE OVERFLOW SECTORS ARE TO * PTM31465 6366 | * BE SEARCHED FOR A SYMBOL IN PASS 2, PHASE 10A * PTM31470 6367 | * IS CALLED. PHASE 10A OVERLAYS THE INT1 SUBR IN * PTM31475 6368 | * PHASE 9 WHEN CALLED DURING PASS 1. IT OVERLAYS * PTM31480 6369 | * PHASE 11 (THE INT2 SUBR) WHEN CALLED IN PASS 2 * PTM31485 6370 | * OF AN ASSEMBLY IN ONE-PASS MODE. * PTM31490 6371 | *************************************************** PTM31495 6372 | * PTM31500 098A 6373 | ORG P9380 PTM31505 *SBRKSLS E5 6374 | *ASM SYMBOL TABLE OVERFLOW V2M08 PTM31510 098A 0059 6375 | DC P9455-PAA00 2/11 PTM31515 098B FF1B 6376 | DC -/E5 SLET ID OF PHASE 10A 2-8 PTM31520 098C 0052 6377 | DC PA200-*+1 LOCATE TABLES 2-11 PTM31525 098D 0002 6378 | DC 2 NO. OF ID'S TO BE FILLED PTM31530 098C 6379 | ORG *-2 PTM31535 6380 | *THIS PHASE IS ASSEMBLED OUT OF THE NORMAL 2-8 PTM31540 6381 | *PHASE ID SEQUENCE -- IT MUST BE PHYSICALLY 2-8 PTM31545 6382 | *MOVED TO PERFORM SYSTEM LOAD FUNCTIONS. 2-8 PTM31550 098C 00E5 6383 | PAAID DC /E5 PHASE ID THIS PHASE 2-11 PTM31553 098D 0000 6384 | PAA00 DC *-* PHASE 10 A ENTRY PTM31555 6385 | * 2/11 PTM31560 6386 | * 2/11 PTM31565 098E 4049 6387 | BSI P9344 SAVE A PARTIAL SCTR PTM31570 098F 4036 6388 | BSI P9342 INITIALIZE OVFLO SRCH PTM31575 0990 CBE7 6389 | PA010 LDD 3 OFLOW-X3 PTM31580 0991 435C 6390 | BSI 3 DISK1-X3 PTM31585 0992 4400 08E3 6391 | BSI L P9324 SEARCH OVFLO SCTR PTM31590 0994 7018 6392 | MDX PA050 NOT FOUND - BRANCH PTM31595 0995 7401 098D 6393 | MDX L PAA00,+1 INCRE RET ADDR PTM31600 0997 C087 6394 | LD P9428 WAS SYMBOL TO BE ADDED PTM31605 0998 4C18 099B 6395 | BSC L PA020,+- NO, BR TO RESTO SCTR PTM31610 6396 | * * PTM31615 099A 403D 6397 | BSI P9344 WRITE MULT. DEFINED SCTR PTM31620 099B 4019 6398 | PA020 BSI P9340 RESTO PARTIAL SCTR PTM31625 6399 | * * PTM31630 099C C0F0 6400 | PA025 LD PAA00 PTM31635 099D D04F 6401 | STO PA300+1 SAVE RET ADDR PTM31640 099E C3F3 6402 | LD 3 PSMDE-X3 BYPASS REST IF 2PASS 2-11 PTM31642 099F 4CA0 098D 6403 | BSC I PAA00,Z EXIT IF TWO PASS MODE 2-11 PTM31643 09A1 C3F4 6404 | LD 3 PASS-X3 DETRM ASM PASS PTM31645 09A2 4C18 09AB 6405 | BSC L PA040,+- BR IF PASS 1 PTM31650 09A4 C83B 6406 | LDD PA200+2 PHASE 11 HDR INFO PTM31655 09A5 D8E4 6407 | PA030 STD P9380 SET UP DISK IOAR HDR PTM31660 09A6 C03F 6408 | LD P9455 2-8 PTM31665 09A7 18D0 6409 | RTE 16 PTM31670 09A8 C400 0922 6410 | LD L P9346+1 PTM31675 09AA 7040 6411 | MDX PA290 BR TO OVLAY PHASE 10 A PTM31680 6412 | * * PTM31685 09AB C838 6413 | PA040 LDD PA200+6 INT1 HDR INFO PTM31690 09AC 70F8 6414 | MDX PA030 BR TO RE-LOAD INT PTM31695 6415 | * * PTM31700 09AD C480 0233 6416 | PA050 LD I OFSAD 2-2 PTM31705 09AF 8050 6417 | A PA901 ADD ONE 2-8 PTM31710 09B0 D480 0233 6418 | STO I OFSAD STORE NEW ADDR 2-8 PTM31715 09B2 72FF 6419 | MDX 2 -1 DECR LOOP CTR 2-8 PTM31720 09B3 70DC 6420 | MDX PA010 BR-CTR NOT ZERO 2-8 PTM31725 09B4 70E6 6421 | MDX PA020 BR-CTR ZERO 2-8 PTM31730 6422 | * 2-2 PTM31735 6423 | * * PTM31740 6424 | * PTM31745 6425 | * RESTORE TABLE STATUS PTM31750 6426 | * PTM31755 09B5 0000 6427 | P9340 DC 0 PTM31760 09B6 6A38 6428 | STX 2 OSAVE COUNT TO PARTIAL 2/11 PTM31765 09B7 C480 0233 6429 | LD I OFSAD 2-8 PTM31770 09B9 8035 6430 | A OSAVE INCR SECTOR ADDR 2/11 PTM31775 6431 | * 2-2 PTM31780 09BA D480 0233 6432 | STO I OFSAD PARTIAL SCTR FROM THIS ADDR PTM31785 09BC CBE7 6433 | LDD 3 OFLOW-X3 PTM31790 09BD 435C 6434 | BSI 3 DISK1-X3 BR TO READ SCTR PTM31795 09BE C01F 6435 | LD P9348 PTM31800 09BF D300 6436 | STO 3 LOEND-X3 RESET LOW END ADDR PTM31805 09C0 C400 000E 6437 | LD L $CORE RESET HIGH END ADDR PTM31810 09C2 903D 6438 | S PA901 AT CORE SIZE - 1 2-11 PTM31815 09C3 D3FF 6439 | STO 3 HIEND-X3 PTM31820 09C4 4C80 09B5 6440 | BSC I P9340 PTM31825 09C6 0000 6441 | P9342 DC 0 PTM31830 09C7 C300 6442 | LD 3 LOEND-X3 SAVE LOW END ADDR PTM31835 09C8 D015 6443 | STO P9348 PTM31840 09C9 C480 0233 6444 | LD I OFSAD FORM SCTR ADDR OF PTM31845 09CB 9301 6445 | S 3 OFCNT-X3 FIRST OVERFLOW SCTR TO PTM31850 09CC D480 0233 6446 | STO I OFSAD SEARCH ALL OVERFLOW SCTR'S PTM31855 09CE C3FE 6447 | LD 3 ENDST-X3 FORM NEW LOW END AND PTM31860 09CF 8364 6448 | A 3 CON2-X3 HIGH END ADDR 2/11 PTM31865 09D0 D300 6449 | STO 3 LOEND-X3 SEARCHING OVERFLOW SCTR PTM31870 09D1 8400 0919 6450 | A L P9438 BUFFER OF THE SYMBOL TABLE PTM31875 09D3 D3FF 6451 | STO 3 HIEND-X3 PTM31880 09D4 6680 021A 6452 | LDX I2 OFCNT PTM31885 09D6 4C80 09C6 6453 | BSC I P9342 PTM31890 6454 | * PTM31895 6455 | * WRITE SECTOR OF OVERFLOW PTM31900 6456 | * PTM31905 09D8 0000 6457 | P9344 DC 0 PTM31910 09D9 CBE7 6458 | LDD 3 OFLOW-X3 PTM31925 09DA 8025 6459 | A PA901 CAUSE WRITE 2-11 PTM31927 09DB 435C 6460 | BSI 3 DISK1-X3 BR TO WRITE THE SCTR PTM31930 09DC 4C80 09D8 6461 | BSC I P9344 PTM31945 6462 | * PTM31950 09DE 6463 | BSS E 0 PTM31955 09DE 00D2 6464 | PA200 DC /D2 SLET ID OF PHASE 11 2-8 PTM31960 09DE 6465 | P9348 EQU PA200 TEMP SAVE AREA 2-8 PTM31965 09DF 6466 | BSS 3 PTM31970 09E2 00E4 6467 | DC /E4 SLET ID OF INT1 2-8 PTM31975 09E3 6468 | BSS 3 PTM31980 09E6 098A 6469 | P9455 DC P11AA PH 11 I/O AREA 2-11 PTM31985 09E7 6470 | BSS INTBF-*+PAAID-3 PATCH AREA 2-11 PTM31987 09EB 435C 6471 | PA290 BSI 3 DISK1-X3 BR TO DISK RTN PTM31990 09EC 4C00 0000 6472 | PA300 BSC L *-* RETURN TO CALLER PTM31995 6473 | * 2/11 PTM32000 0A01 6474 | P9460 EQU P9451 RD/PNCH BUFFER 1 2-11 PTM32010 0A53 6475 | P9462 EQU P9460+82 RD/PNCH BFR 2 PTM32015 0AA5 6476 | P9464 EQU P9462+82 PRINT BFR PTM32020 0AD2 6477 | P9466 EQU P9464+45 PRINT BFR 2-8 PTM32025 6478 | *************************************************** PTM32030 6479 | * **TAKE NOTE,TAKE NOTE** 2-8* PTM32035 6480 | * CODE BEGINNING AT P9468 IS OVERLAID 2-8* PTM32040 6481 | * BY THE MACRO EXPANDER - MACRO PHASES 2-8* PTM32045 6482 | * 3,3A AND 3B. 2-8* PTM32050 6483 | *************************************************** PTM32055 6484 | * NOTE -- P9468 MUST BE AT AN EVEN ADDRESS 1 2-11 PTM32058 0C18 6485 | P9468 EQU P9466+326 END OF DISK BUFFER 1 2-11 PTM32060 0C16 6486 | P9470 EQU P9468-2 DISK BFR 2 PTM32065 0D94 6487 | P9472 EQU P9468+380 PRINT RTN PTM32070 0ECA 6488 | GRAPH EQU P9472+PIOSZ START OF GRAPH PHASE2-11 PTM32072 048C 6489 | OPERR EQU P9032 OP CODE ERROR 2-8 PTM32075 0494 6490 | OPOK2 EQU P9034+4 PH FLIPPER ENTRY PT 2-8 PTM32080 04A7 6491 | OPVND EQU P9036-2 OP CODE TV END 2-8 PTM32085 04C1 6492 | GETS5 EQU P9042 FETCH PH 5 2-8 PTM32090 04C3 6493 | GETS6 EQU P9044 FETCH PH 6 2-8 PTM32095 04C5 6494 | GETS7 EQU P9046 FETCH PH 7 2-8 PTM32100 04CA 6495 | GETS8 EQU P9048 FETCH PH 8 2-8 PTM32105 04CC 6496 | GTS8A EQU P9050 FETCH PH 8A 2-8 PTM32110 04CE 6497 | GTS12 EQU P9052 FETCH PH 12 2-8 PTM32115 04D0 6498 | GETS2 EQU P9053 FETCH PH 2 2-8 PTM32120 04E1 6499 | SCAN EQU P9060 SCAN SUBR ENTRY PT 2-8 PTM32125 051B 6500 | NOP1 EQU P9068 SCAN MODIFIER NO. 1 2-8 PTM32130 052B 6501 | FERR1 EQU P9072+1 SCAN MODIFIER NO. 2 2-8 PTM32135 052C 6502 | FERR2 EQU P9072+2 SCAN MODIFIER NO. 3 2-8 PTM32140 057A 6503 | GNRT1 EQU P9100+1 SCAN MODIFIER NO. 4 2-8 PTM32145 05C9 6504 | SYDF1 EQU P9156+1 SCAN MODIFIER NO. 5 2-8 PTM32150 0603 6505 | COLXT EQU P9168-2 SCAN MODIFIER NO. 6 2-8 PTM32155 06EC 6506 | BTHEX EQU P9194 BINARY-HEX (1-3) SUBR 2-8 PTM32160 06FA 6507 | B4HEX EQU P9198 BINARY-HEX (4) SUBR 2-8 PTM32165 0701 6508 | ERFLG EQU P9202 ERROR FLAG SUBR 2-8 PTM32170 0723 6509 | GTHDG EQU P9216 PAGE HEADING SUBR 2-8 PTM32175 073A 6510 | LDLBL EQU P9220 LOAD LABEL SUBR 2-8 PTM32180 074B 6511 | PALBL EQU P9224 LD LBL SECONDARY ENT PT 2-8 PTM32185 079C 6512 | GETER EQU P9246 GET ERR MSG PH ENT 2-8 PTM32190 07A7 6513 | LAST EQU P9YYY LAST CD TEST ENT PT 2-8 PTM32195 07A8 6514 | RDCRD EQU P9ZZZ READ RCD ENT PT 2-8 PTM32200 0802 6515 | P9MVE EQU P9250 I/O BFR TO PRINT BFR 2-8 PTM32205 0883 6516 | DFOUT EQU P9276 DSF O/P SUBR 2-8 PTM32210 0924 6517 | P10AA EQU P9350 PH 10 I/O AREA 2-8 PTM32215 0927 6518 | DTHDR EQU P9350+3 DATA HDR SUBR ENT 2-8 PTM32220 0949 6519 | WRDFO EQU SA010-SA000+P10AA+3 2/11 PTM32225 098A 6520 | P11AA EQU P9380 PH 11 I/O AREA 2-8 PTM32230 098C 6521 | INT1 EQU P9382 INTMD O/P ENT PT 2-8 PTM32235 098D 6522 | INT2 EQU P9382+1 INTMD I/P ENT PT 2-8 PTM32240 0AA7 6523 | HDGBF EQU P9464+2 PAGE HDNG BFR 2-8 PTM32245 0A01 6524 | IOBF1 EQU P9460 RD/PNCH BFR 1 2-8 PTM32250 0A53 6525 | IOBF2 EQU P9462 RD/PNCH BFR 2 2-8 PTM32255 0AA5 6526 | PRBFR EQU P9464 PRINT BFR 2-8 PTM32260 0AD2 6527 | BUFI EQU P9466 DISK BFR 1 2-8 PTM32265 0AD4 6528 | DCBUF EQU BUFI+2 DCOMM BUFFER 2/11 PTM32266 04C7 6529 | GTS13 EQU P9047 FETCH MACRO PH 1 2-8 PTM32270 0C16 6530 | DFBUF EQU P9470 DISK BFR 2 2-8 PTM32275 *SBRKSLS DD 6531 | ASM PROG CONTROL MNEMONICS PH V2M08 PTM32280 ***PHASE 5 PROGRAM CONTROL*** 6533 | *************************************************** PTM32290 6534 | * * PTM32295 6535 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM32300 6536 | * * PTM32305 6537 | *FUNCTION/OPERATION- * PTM32310 6538 | * *PHASE 5 IS CALLED INTO CORE TO PROCESS HDNG, * PTM32315 6539 | * ORG, BSS, BES, EQU, LIST, EJCT, SPAC, DUMP, * PTM32320 6540 | * OR PDMP STATEMENTS. * PTM32325 6541 | * *DEPENDING ON THE OP CODE, AN INDIRECT BRANCH * PTM32330 6542 | * IS MADE THROUGH A TABLE TO THE MODULE * PTM32335 6543 | * PREPARED TO PROCESS THAT OP CODE. * PTM32340 6544 | * *PHASE 5 UTILIZES THE SCAN ROUTINE WITHIN * PTM32345 6545 | * PHASE 9 TO EVALUATE THE OPERANDS AND CHECK TO* PTM32350 6546 | * SEE THAT THE OPERAND SYMBOLS HAVE BEEN * PTM32355 6547 | * PREVIOUSLY DEFINED. * PTM32360 6548 | * *IN PASS 2 PROCESSING OF THE HDNG STATEMENT, A* PTM32365 6549 | * CHECK IS MADE ON THE LIST OPTIONS SWITCH. IF* PTM32370 6550 | * A LISTING HAS BEEN REQUESTED, THE HEADING ON * PTM32375 6551 | * THE HDNG STATEMENT IS MOVED INTO THE HEADING * PTM32380 6552 | * BUFFER AND A BRANCH IS MADE TO GTHDG WITHIN * PTM32385 6553 | * PHASE 9 TO PRINT THE HEADING. * PTM32390 6554 | * *THE LIST MNEMONIC CAUSES THE OPERAND FIELD TO* PTM32395 6555 | * BE SCANNED FOR THE 'ON', 'OFF', OR BLANK * PTM32400 6556 | * SPECIFICATION. THE SPECIFIED LIST CONDITION * PTM32405 6557 | * IS INDICATED AT LSTOP IN ASCOM. * PTM32410 6558 | * *THE EJCT AND SPAC MNEMONICS GENERATE NO * PTM32415 6559 | * OBJECT CODING. THE ASSEMBLER PROGRAM * PTM32420 6560 | * BRANCHES TO THE PRINCIPAL PRINT SUBROUTINE * PTM32425 6561 | * TO RESTORE THE PAGE OR SPACE THE REQUESTED * PTM32430 6562 | * NUMBER OF LINES RESPECTIVELY, ON THE ASSEMBLY* PTM32435 6563 | * LISTING. * PTM32440 6564 | * *THE DUMP AND PDMP MNEMONICS CAUSE A LONG BSI * PTM32445 6565 | * TO THE $DUMP ENTRY POINT IN THE SKELETON * PTM32450 6566 | * SUPERVISOR, FOLLOWED BY THE PARAMETERS, TO BE* PTM32455 6567 | * GENERATED. FOR THE DUMP MNEMONIC, AN EXIT * PTM32460 6568 | * IS ALSO GENERATED. * PTM32465 6569 | * * PTM32470 6570 | *ENTRY POINTS- * PTM32475 6571 | * *P5010 - ENTRY FROM PHASE 9 * PTM32480 6572 | * * PTM32485 6573 | *INPUT-N/A * PTM32490 6574 | * * PTM32495 6575 | *OUTPUT * PTM32500 6576 | * * THE CONSTRUCTED OP CODE FOR THE MNEMONIC * PTM32505 6577 | * BEING PROCESSED * PTM32510 6578 | * * PTM32515 6579 | *EXTERNAL RERERENCES- * PTM32520 6580 | * *SUBROUTINES- * PTM32525 6581 | * * B4HEX * PTM32530 6582 | * * DFOUT * PTM32535 6583 | * * ERFLG * PTM32540 6584 | * * GETS6 * PTM32545 6585 | * * GETS7 * PTM32550 6586 | * * GETS8 * PTM32555 6587 | * * GTS8A * PTM32560 6588 | * * GTS12 * PTM32565 6589 | * * GETS2 * PTM32570 6590 | * * LDLBL * PTM32575 6591 | * * LDXRS * PTM32580 6592 | * * PALBL * PTM32585 6593 | * * P9MVE * PTM32590 6594 | * * SCAN * PTM32595 6595 | * * PRINCIPAL PRINT SUBROUTINE * PTM32600 6596 | * *DCOM/COMMA- * PTM32605 6597 | * $CORE * PTM32610 6598 | * $DUMP * PTM32615 6599 | * $EXIT * PTM32620 6600 | * $PHSE * PTM32625 6601 | * * PTM32630 6602 | *EXITS- * PTM32635 6603 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM32640 6604 | * *ERROR - ERFLG SUBROUTINE * PTM32645 6605 | * * PTM32650 6606 | *TABLES/WORK AREAS- N/A * PTM32655 6607 | * * PTM32660 6608 | *ATTRIBUTES-REUSABLE * PTM32665 6609 | * * PTM32670 6610 | *NOTES-N/A * PTM32675 6611 | * * PTM32680 6612 | *************************************************** PTM32685 6613 | * PTM32690 0280 6614 | ORG OVLAY PTM32695 0280 01D4 6615 | DC P5390-P5000 PTM32700 0281 00DD 6616 | DC /DD SLET ID OF PHASE 5 2-8 PTM32705 6617 | * PTM32710 0282 4C00 0292 6618 | P5000 BSC L P5010 START PH. 5 EXECUTION PTM32715 0284 4C00 04C3 6619 | BSC L GETS6 2-8 PTM32720 0286 4C00 04C5 6620 | BSC L GETS7 2-8 PTM32725 0288 4C00 04CA 6621 | BSC L GETS8 2-8 PTM32730 028A 4C00 04CC 6622 | BSC L GTS8A 2-8 PTM32735 028C 4C00 04CE 6623 | BSC L GTS12 2-8 PTM32740 028E 4C00 04C7 6624 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM32745 0290 4C00 04D0 6625 | BSC L GETS2 2-8 PTM32750 6626 | * PTM32755 0292 C025 6627 | P5010 LD P5040 INDICATE THAT PHASE 5 OF PTM32760 0293 D400 0078 6628 | STO L $PHSE ASSEMBLER IS IN CONTROL PTM32765 0295 C32C 6629 | LD 3 OPCNT-X3 CHECK FOR HDNG RECORD PTM32770 0296 4C18 035D 6630 | P5012 BSC L P5340,+- BRANCH IF OP CODE IS HDNG PTM32775 6631 | * ABOVE INSTR ALSO USED AS A CONSTANT /4C18 2-4 PTM32780 0298 180C 6632 | SRA 12 USE BITS 0-3 TO FORM PTM32785 0299 D012 6633 | STO P5020+1 TV TABLE DISPLACEMENT PTM32790 029A C011 6634 | LD P5020+1 CHECK FOR ORG STATEMENT 212 PTM32807 029B 906D 6635 | S P5123 212 PTM32808 029C 4820 6636 | BSC Z SKIP IF ORG 212 PTM32809 029D 700A 6637 | MDX P5015 ELSE PROHIBIT PH 2 OPS 212 PTM32810 029E C32B 6638 | LD 3 RLMDE-X3 IF ABS ASM 212 PTM32811 029F 4818 6639 | BSC +- *CONTINUE PROCESSING 212 PTM32812 02A0 700A 6640 | MDX P5020 *AT 'P5020' 212 PTM32814 02A1 C00A 6641 | LD P5020+1 PTM32815 02A2 9017 6642 | S P5045 PTM32816 02A3 4C28 02A8 6643 | BSC L P5015,+Z PTM32817 02A5 9013 6644 | S P5042 PTM32818 02A6 4C08 02AB 6645 | BSC L P5020,+ PTM32819 02A8 C012 6646 | P5015 LD P5047 PREVENT FURTHER PTM32820 02A9 D400 04A7 6647 | STO L OPVND *PH. 2 MNEMONICS PTM32822 02AB 6600 0000 6648 | P5020 LDX L2 *-* XR2 = TV TABLE DISPLACEMENT PTM32825 02AD 4E80 02AE 6649 | BSC I2 P5030-1 BR TO PH. 5 SUBSECTION PTM32830 6650 | * PTM32835 6651 | * CONSTANTS AND OP CODE BRANCH TBL PTM32840 6652 | * PTM32845 02AF 02BC 6653 | P5030 DC P5050 PROCESS ORG PTM32850 02B0 02D1 6654 | DC P5080 PROCESS BSS PTM32855 02B1 02D1 6655 | DC P5080 PROCESS BES PTM32860 02B2 0322 6656 | DC P5200 PROCESS EQU PTM32865 02B3 0399 6657 | DC P5400 PROCESS LIST PTM32870 02B4 03C7 6658 | DC P5500 PROCESS SPACE PTM32875 02B5 03F1 6659 | DC P5600 PROCESS EJECT PTM32880 02B6 03F5 6660 | DC P5700 PROCESS DUMP PTM32885 02B7 0433 6661 | DC P5800 PROCESS PDUMP PTM32890 02B8 00DD 6662 | P5040 DC /DD SLET ID OF PHASE 5 2-8 PTM32895 02B9 0002 6663 | P5042 DC 2 CONSTANT 2 PTM32900 02BA 0005 6664 | P5045 DC 5 CONSTANT 5 PTM32905 02BB 048C 6665 | P5047 DC OPERR OP CODE ERR SUBR ADDR 2-8 PTM32910 6666 | * PTM32915 02BC 4400 04E1 6667 | P5050 BSI L SCAN EVALUATE OPERAND 2-8 PTM32920 02BE 4400 025F 6668 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM32925 02C0 C0D5 6669 | LD P5012 PTM32930 02C1 D055 6670 | STO P5170 PTM32935 02C2 4047 6671 | BSI P5140 PTM32940 02C3 C112 6672 | LD 1 +18 IF ANY ERROR OCCURRED PTM32945 02C4 900A 6673 | S P5060 IN SCAN, CC 18 WILL NOT PTM32950 02C5 4C18 02CA 6674 | BSC L P5055,+- BE BLANK. PTM32955 02C7 9008 6675 | S P5061 =.M-. IF ERROR IS MULT. PTM32960 02C8 4C20 0303 6676 | BSC L P5110,Z DEF.,USE 1ST VALUE. PTM32965 02CA C325 6677 | P5055 LD 3 VALUE-X3 ORG OK, PTM32970 02CB D3FA 6678 | STO 3 ADCOW-X3 RESET ADDRESS COUNTER PTM32975 02CC 903C 6679 | S P5123 ADJUST ADDR CNTRS TO PTM32980 02CD D3FC 6680 | STO 3 ADCW2-X3 FORCE A DATA BREAK. PTM32985 02CE 7034 6681 | MDX P5110 BR TO EXIT PTM32990 02CF 0040 6682 | P5060 DC . PTM32995 02D0 0094 6683 | P5061 DC .M-. CONSTANT PTM33000 6684 | * * PTM33005 02D1 C1FD 6685 | P5080 LD 1 -3 COL. 32 ASSIGN NEXT EVEN PTM33010 02D2 9035 6686 | S P5122 =.E LOCATION IF E IN PTM33015 02D3 4C20 02D9 6687 | P5082 BSC L P5090,Z FORMAT CODE. PTM33020 6688 | * ABOVE INSTR ALSO USED AS A CONSTANT /4C20 2-4 PTM33025 02D5 C3FA 6689 | LD 3 ADCOW-X3 PTM33030 02D6 4804 6690 | BSC E PTM33035 02D7 8031 6691 | A P5123 =1 SET LABEL VALUE TO PTM33040 02D8 D303 6692 | STO 3 LABVL-X3 LEFT-MOST LOCATION. PTM33045 02D9 4400 04E1 6693 | P5090 BSI L SCAN SCAN LNG OPERAND ONLY 2-8 PTM33050 02DB 4400 025F 6694 | BSI L LDXRS RELOAD REGISTERS PTM33055 02DD C0F5 6695 | LD P5082 PREVIOUS SYMBOLS MAY BE PTM33060 02DE D038 6696 | STO P5170 REFERENCED. PTM33065 02DF 402A 6697 | BSI P5140 PTM33070 02E0 C3F4 6698 | LD 3 PASS-X3 2-4 PTM33075 02E1 4C08 02EE 6699 | BSC L P5095,+ BR IF PASS 1 OR 3 2-8 PTM33080 02E3 6600 0883 6700 | LDX L2 DFOUT PT TO DSF O/P SUBR 2-8 PTM33085 02E5 C242 6701 | LD 2 /42 GET INDICATOR WORD 2-4 PTM33090 02E6 4C20 02EE 6702 | BSC L P5095,Z BR IF BSS NOT FIRST 2-4 PTM33095 02E8 C3FA 6703 | LD 3 ADCOW-X3 INITLZ TO FORCE AN EXTRA2-4 PTM33100 02E9 D480 022B 6704 | STO I DHPTR *DATA HEADER IF PROGRAM 2-4 PTM33105 02EB D3FC 6705 | STO 3 ADCW2-X3 *STARTS WITH BSS STMNT 2-4 PTM33110 02EC C000 6706 | LD * 2-4 PTM33115 02ED D242 6707 | STO 2 /42 SET INDICATOR NOT ZERO 2-4 PTM33120 6708 | * 2-4 PTM33125 6709 | * CHANGE DISP /42 IF DFOUT SUBR IN PH 9 IS CHANGED* PTM33130 6710 | * 2-4 PTM33135 02EE C325 6711 | P5095 LD 3 VALUE-X3 INCREMENT ADDR COUNTER PTM33140 02EF 4C10 02F7 6712 | BSC L P5097,- FALL THRU IF NEG EXPR 2-6 PTM33145 02F1 C400 03A4 6713 | LD L P5409 INDICATE AN S FOR SYNTAX2-6 PTM33150 02F3 4400 0701 6714 | BSI L ERFLG *ERROR IF NEGATIVE 2-8 PTM33155 02F5 1010 6715 | SLA 16 SET VALUE ZERO, 2-6 PTM33160 02F6 D325 6716 | STO 3 VALUE-X3 FOR OUTPUT 2-6 PTM33165 02F7 8303 6717 | P5097 A 3 LABVL-X3 BY SPECIFIED AMOUNT PTM33170 02F8 D3FA 6718 | STO 3 ADCOW-X3 PTM33175 02F9 C32C 6719 | LD 3 OPCNT-X3 IF A BES (OP CONTROL), SET PTM33180 02FA 1003 6720 | SLA 3 LABEL VALUE TO PTM33185 02FB 4C10 02FF 6721 | BSC L P5100,- RIGHT-MOST LOCATION PTM33190 02FD C3FA 6722 | LD 3 ADCOW-X3 PLUS ONE. PTM33195 02FE D303 6723 | STO 3 LABVL-X3 PTM33200 02FF C325 6724 | P5100 LD 3 VALUE-X3 NO. OF WORDS RESERVED TO PTM33205 0300 7109 6725 | MDX 1 +9 COLS. 9-12 IN HEXADECIMAL PTM33210 0301 4400 06FA 6726 | BSI L B4HEX 2-8 PTM33215 0303 4C00 0344 6727 | P5110 BSC L P5240 GO GET NEXT RCD 2-8 PTM33220 6728 | * PTM33225 0306 6729 | BSS E 0 2-4 PTM33230 0306 00D9 6730 | P5120 DC .R PTM33235 0307 00E4 6731 | P5121 DC .U PTM33240 0308 00C5 6732 | P5122 DC .E PTM33245 0309 0001 6733 | P5123 DC 1 PTM33250 6734 | * COMMON SUBROUTINE BSS-ORG PTM33255 030A 0000 6735 | P5140 DC 0 PTM33260 030B C112 6736 | LD 1 +18 PTM33265 030C 90C2 6737 | S P5060 IF ANY ERROR, COL. 18 PTM33270 030D 4C18 0312 6738 | BSC L P5160,+- PTM33275 030F C3F4 6739 | P5150 LD 3 PASS-X3 PTM33280 0310 4818 6740 | BSC +- PTM33285 0311 403B 6741 | BSI P5250 ADD INTERNAL NO. TO TABLE PTM33290 0312 C32B 6742 | P5160 LD 3 RLMDE-X3 NO RELOCATION ERROR PTM33295 0313 180E 6743 | SRA 14 IF ABSOLUTE ASSEMBLY. PTM33300 0314 4C18 031F 6744 | BSC L P5180,+- IF ORIGIN, OPERAND MUST PTM33305 0316 F327 6745 | EOR 3 RELSW-X3 BE RELOCATABLE. IF BSS, PTM33310 0317 4C18 031F 6746 | P5170 BSC L P5180,+- OPERAND MUST BE ABSOLUTE. PTM33315 0319 C8EC 6747 | LDD P5120 =.R PTM33320 031A 4400 0701 6748 | BSI L ERFLG RELOCATION ERR 2-8 PTM33325 031C 1010 6749 | SLA 16 PTM33330 031D D325 6750 | STO 3 VALUE-X3 SET OPERAND VALUE AND PTM33335 031E D327 6751 | STO 3 RELSW-X3 RELOC. SWITCH = 0. PTM33340 031F 4C80 030A 6752 | P5180 BSC I P5140 PTM33345 0321 70F0 6753 | MDX P5160 PTM33350 6754 | * EQUATE PSEUDO-OP MAIN SECTION. PTM33355 0322 4400 04E1 6755 | P5200 BSI L SCAN EVALUATE OPERAND 2-8 PTM33360 6756 | * PTM33365 6757 | * USE ONLY PREVIOUSLY DEFINED SYMBOLS PTM33370 6758 | * PTM33375 0324 4400 025F 6759 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM33380 0326 C325 6760 | LD 3 VALUE-X3 SET LABEL VALUE EQUAL PTM33385 0327 D303 6761 | STO 3 LABVL-X3 *TO THE OPERAND VALUE 2-11 PTM33387 0328 C115 6762 | LD 1 21 TEST IF LABEL 2-11 PTM33390 0329 9020 6763 | S P5246 BLANK 2-11 PTM33391 032A 4C20 0335 6764 | BSC L P5205,Z BRANCH IF NOT BLANK 2-11 PTM33392 032C C01E 6765 | LD P5247 RETURN ADDRESS 2-11 PTM33393 032D D400 0701 6766 | STO L ERFLG 2-11 PTM33394 032F 1810 6767 | SRA 16 CLEAR SWITCH 2-11 PTM33395 0330 7439 070E 6768 | MDX L ERADD,MCOM5-ERCNT CHANG INSTR 2-11 PTM33396 0332 C019 6769 | LD P5248 GET Q FLAG 2-11 PTM33397 0333 4C00 0706 6770 | BSC L FLGCO GOSET FLAG 2-11 PTM33398 0335 C3F4 6771 | P5205 LD 3 PASS-X3 TEST PASS 2-11 PTM33399 0336 4C20 0344 6772 | BSC L P5240,Z BR IF PASS 2 PTM33400 0338 C112 6773 | LD 1 +18 CHECK IF ANY UNDEFINED PTM33405 0339 90CD 6774 | S P5121 SYMBOLS IN THE OPERAND PTM33410 033A 4C18 0340 6775 | BSC L P5220,+- BRANCH IF ANY UNDEFINED PTM33415 033C C327 6776 | P5210 LD 3 RELSW-X3 MOVE LABEL VALUE AND PTM33420 033D 100E 6777 | SLA 14 RELOCATION BIT TO PTM33425 033E D304 6778 | STO 3 LABRL-X3 LDLBLROUTINE PTM33430 033F 7004 6779 | MDX P5240 PTM33435 0340 400C 6780 | P5220 BSI P5250 OPERAND UNDEFINED DURING PTM33440 0341 70FA 6781 | MDX P5210 PASS 1. PTM33445 0342 4400 0701 6782 | BSI L ERFLG 2-8 PTM33450 0344 4400 073A 6783 | P5240 BSI L LDLBL LD LABEL,GET NEXT RCD 2-8 PTM33455 0346 7020 6784 | MDX P5350+2 GO GET NEXT RECORD 2-11 PTM33460 0347 6C00 07A7 6785 | P5245 STX L P9YYY DO NOT LIST 2-8 PTM33465 0349 70FA 6786 | MDX P5240 2-8 PTM33470 034A 0040 6787 | P5246 DC . BLANK 2-11 PTM33471 034B 0335 6788 | P5247 DC P5205 RETURN ADDRESS 2-11 PTM33472 034C 00D8 6789 | P5248 DC .Q WARNING 2-11 PTM33473 6790 | * IN EQU,ORG,BSS,AND BES, OPERAND PTM33475 6791 | * SYMBOLS MUST BE PREVIOUSLY DEFINED. PTM33480 6792 | * ERROR IS SENT TO ERFLG. PTM33485 034D 0000 6793 | P5250 DC 0 PTM33490 034E 7401 045A 6794 | MDX L ERPTR,+1 PTM33495 0350 4346 6795 | BSI 3 LDXRS-X3 PTM33500 0351 7101 6796 | MDX 1 +1 PTM33505 0352 C3FA 6797 | LD 3 ADCOW-X3 PTM33510 0353 4400 06FA 6798 | BSI L B4HEX 2-8 PTM33515 0355 4400 0802 6799 | BSI L P9MVE 2-8 PTM33520 0357 4C80 034D 6800 | BSC I P5250 PTM33525 6801 | * PTM33530 0359 0000 6802 | P5310 DC 0 PTM33535 035A 0000 6803 | P5320 DC 0 PTM33540 035B 0000 6804 | P5330 DC 0 TABLE FULL INDICATOR PTM33545 035C 7001 6805 | P5335 DC /7001 DISK WRITE FUNC CODE 2-8 PTM33550 6806 | * PTM33555 035D C3F4 6807 | P5340 LD 3 PASS-X3 2-8 PTM33560 035E E066 6808 | AND P5455 2-8 PTM33565 035F F065 6809 | EOR P5455 2-8 PTM33570 0360 4C18 0369 6810 | BSC L P5355,+- BYPASS DURING PASS 3 2-8 PTM33575 0362 C3F4 6811 | LD 3 PASS-X3 CHK FOR PASS TWO 2-8 PTM33580 0363 4C20 036C 6812 | BSC L P5360,Z BRANCH IF PASS TWO PTM33585 0365 4400 074B 6813 | P5350 BSI L PALBL GET NEXT RCD 2-8 PTM33590 0367 4C00 045D 6814 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM33595 0369 6C00 07A7 6815 | P5355 STX L P9YYY DO NOT LIST 2-8 PTM33600 036B 70F9 6816 | MDX P5350 2-8 PTM33605 6817 | * PTM33610 036C C3F2 6818 | P5360 LD 3 LSTOP-X3 SAVE CONTENTS OF PTM33615 036D 4C18 0365 6819 | BSC L P5350,+- BRANCH IF NO LISTING PTM33620 036F C400 0036 6820 | LD L $PBSY 2-8 PTM33625 0371 4C30 036F 6821 | BSC L *-4,Z- BR-PRINT BFR BUSY 2-8 PTM33630 0373 CC00 071E 6822 | LDD L P9211 PREPARE TO 2-8 PTM33635 0375 DC80 0721 6823 | STD I P9212+1 2-8 PTM33640 0377 CC00 0720 6824 | LDD L P9212 2-8 PTM33645 0379 435C 6825 | BSI 3 DISK1-X3 *READ PAGE HDNG 2-8 PTM33650 037A 6212 6826 | LDX 2 +18 LOOP CTR TO CENTER HEADING PTM33655 037B 6700 0AA7 6827 | LDX L3 HDGBF XR3 = ADDR HEADING BFR 2-9 PTM33660 037D C900 6828 | P5370 LDD 1 0 PTM33665 037E 1088 6829 | SLT 8 PACK TWO COLUMNS OF INPUT PTM33670 037F 1808 6830 | SRA 8 BUFFER INTO ONE WORD AND PTM33675 0380 1088 6831 | SLT 8 MOVE INTO (CENTERED) THE PTM33680 0381 D30F 6832 | STO 3 +15 HEADING BUFFER. PTM33685 0382 7102 6833 | MDX 1 +2 NEXT TWO INPUT CHARACTERS PTM33690 0383 7301 6834 | MDX 3 +1 NEXT HEADING BUFFER WORD PTM33695 0384 72FF 6835 | MDX 2 -1 DECREMENT LOOP COUNTER, PTM33700 0385 70F7 6836 | MDX P5370 AND CONTINUE MOVING. PTM33705 0386 C100 6837 | LD 1 0 FETCH LAST WORD OF HDNG PTM33710 0387 1088 6838 | SLT 8 LEFT JUSTIFY PTM33715 0388 E837 6839 | OR P5450 PTM33720 0389 D30F 6840 | STO 3 +15 OUTPUT LAST WORD PTM33725 038A 4400 025F 6841 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM33730 038C 6C00 07A7 6842 | STX L LAST DO NOT LIST HDNG STMNT 2-8 PTM33735 038E C400 0721 6843 | LD L P9212+1 PREPARE TO 2-8 PTM33740 0390 18D0 6844 | RTE 16 2-8 PTM33745 0391 C0CA 6845 | LD P5335 2-8 PTM33750 0392 435C 6846 | BSI 3 DISK1-X3 *WRITE PAGE HDNG 2-8 PTM33755 0393 4400 0723 6847 | BSI L GTHDG 2-8 PTM33760 0395 1010 6848 | SLA 16 ZERO PRINCIPAL PRINTER 212 PTM33762 0396 D480 0006 6849 | STO I $CH12 *CHANNEL 12 212 PTM33764 0398 70CC 6850 | MDX P5350 GO GET NEXT RECORD 2-11 PTM33765 6851 | * PTM33775 0399 C100 6852 | P5400 LD 1 0 FETCH CC 35 PTM33780 039A 9025 6853 | S P5450 IS IT BLANK PTM33785 039B 4C18 03B7 6854 | BSC L P5430,+- YES, BR TO RESTO ORIG COND PTM33790 039D 9023 6855 | S P5451 CHECK FOR AN 'O' PTM33795 039E 4C18 03A5 6856 | BSC L P5410,+- BR IF AN 'O' PRESENT PTM33800 03A0 C003 6857 | P5405 LD P5409 =S. PTM33805 03A1 4400 0701 6858 | BSI L ERFLG BR TO SET ERR INDR 2-8 PTM33810 03A3 70C1 6859 | P5406 MDX P5350 GO TO EXIT PH5 2-10 PTM33815 6860 | * * PTM33820 03A4 00E2 6861 | P5409 DC .S EBC 'S' PTM33825 03A5 C101 6862 | P5410 LD 1 +1 PTM33830 03A6 901B 6863 | S P5452 CHECK FOR AN 'N' PTM33835 03A7 4C18 03B3 6864 | BSC L P5420,+- BR TO TURN TLIST ON PTM33840 03A9 9019 6865 | S P5453 CHECK FOR AN 'F' PTM33845 03AA 4820 6866 | BSC Z SKIP IF 'F' IN CC 36 PTM33850 03AB 70F4 6867 | MDX P5405 BR TO IND ERROR PTM33855 03AC C102 6868 | LD 1 +2 CHECK CC 37 FOR AN 'F' PTM33860 03AD 9016 6869 | S P5454 PTM33865 03AE 4820 6870 | BSC Z SKIP IF OK PTM33870 03AF 70F0 6871 | MDX P5405 BR TO IND ERROR PTM33875 03B0 1010 6872 | SLA 16 CLEAR ACC TO IND NO LIST PTM33880 03B1 7103 6873 | MDX 1 +3 SET TO CHK CC 38 FOR BLNK PTM33885 03B2 7005 6874 | MDX P5431 BR TO TEST TERM CHAR PTM33890 6875 | * * PTM33895 03B3 C012 6876 | P5420 LD P5456 SET TO IND LIST 2-8 PTM33900 03B4 EB02 6877 | OR 3 TLIST-X3 2-8 PTM33905 03B5 7102 6878 | MDX 1 +2 SET TO CHK CC 37 FOR BLNK PTM33910 03B6 7001 6879 | MDX P5431 BR TO TEST TERM CHAR PTM33915 6880 | * * PTM33920 03B7 C302 6881 | P5430 LD 3 TLIST-X3 PTM33925 03B8 D3F2 6882 | P5431 STO 3 LSTOP-X3 SET LIST OPTION SWTCH PTM33930 03B9 6C00 07A7 6883 | STX L LAST SET TO SKIP PRINT LIST 2-8 PTM33935 03BB C100 6884 | LD 1 0 CHECK FOR TERM. CHAR PTM33940 03BC 9003 6885 | S P5450 MUST BE A BLANK PTM33945 03BD 4C20 03A0 6886 | BSC L P5405,Z BR TO ERROR IF NOT PTM33950 03BF 70E3 6887 | P5435 MDX P5406 BR TO EXIT PTM33955 6888 | * * PTM33960 03C0 0040 6889 | P5450 DC . EBC BLANK PTM33965 03C1 0096 6890 | P5451 DC .O-. EBC 'O' MINUS BLANK PTM33970 03C2 00D5 6891 | P5452 DC .N EBC 'N' PTM33975 03C3 FFF1 6892 | P5453 DC .F-.N EBC 'F' MINUS 'N' PTM33980 03C4 00C6 6893 | P5454 DC .F EBC 'F' PTM33985 03C5 C000 6894 | P5455 DC /C000 XREF CONSTANT PTM33990 03C6 8000 6895 | P5456 DC /8000 LIST CONSTANT 2-8 PTM33995 6896 | * * PTM34000 03C7 4019 6897 | P5500 BSI P5540 TEST PASS 2-11 PTM34005 03C8 4400 04E1 6898 | BSI L SCAN BR TO EVALUATE THE 2-8 PTM34040 03CA C325 6899 | LD 3 VALUE-X3 OPERAND. PTM34045 03CB D001 6900 | STO *+1 PTM34050 03CC 6600 0000 6901 | LDX L2 *-* SET LOOP CNTR FOR SPACING PTM34055 03CE 4C08 0344 6902 | BSC L P5240,+ EXIT IF OPERAND = NEG/ZERO PTM34060 03D0 C480 0006 6903 | P5510 LD I $CH12 CHECK FOR CHANNEL 12 PTM34065 03D2 4C18 03D6 6904 | BSC L *+2,+- SKIP IF OFF PTM34070 03D4 4400 0723 6905 | BSI L GTHDG IF ON,BR TO RESTO PAGE 2-8 PTM34075 03D6 C009 6906 | LD P5520 FUNC CODE FOR SPACE PTM34080 03D7 7403 045C 6907 | MDX L PR000,+3 INCRE ENTRY ADDR PTM34085 03D9 4480 045C 6908 | BSI I PR000 BR TO SPACE A LINE PTM34090 03DB 74FD 045C 6909 | MDX L PR000,-3 PTM34095 03DD 72FF 6910 | MDX 2 -1 DECRE LOOP CNTR PTM34100 03DE 70F1 6911 | MDX P5510 LOOP TIL SPACING COMPLETE PTM34105 03DF 70DF 6912 | MDX P5435 BR TO EXIT PTM34110 6913 | * * PTM34115 03E0 7002 6914 | P5520 DC /7002 FUNC CODE FOR SPACE PTM34120 6915 | * * PTM34125 03E1 0000 6916 | P5540 DC *-* ENTRY 2-11 PTM34135 03E2 C3F4 6917 | LD 3 PASS-X3 CHECK PASS 2-11 PTM34136 03E3 4C18 0365 6918 | BSC L P5350,+- EXIT 2-11 PTM34138 03E5 E0DF 6919 | AND P5455 XREF FLAG 2-11 PTM34140 03E6 F0DE 6920 | EOR P5455 212 PTM34142 03E7 4C18 0347 6921 | BSC L P5245,+- EXIT 2-11 PTM34144 03E9 E0DB 6922 | AND P5455 2-8 PTM34145 03EA C3F2 6923 | LD 3 LSTOP-X3 TEST IF LIST REQUIRED 2-11 PTM34146 03EB 4C18 0344 6924 | BSC L P5240,+- BRANCH NO 2-11 PTM34148 03ED 6C00 07A7 6925 | STX L LAST SKIP TO PRINT LIST 2-11 PTM34150 03EF 4C80 03E1 6926 | BSC I P5540 RETURN 2-11 PTM34155 03F1 40EF 6927 | P5600 BSI P5540 GO TEST PASS 2-11 PTM34160 03F2 4400 0723 6928 | BSI L GTHDG PRINT HEADING 2-8 PTM34165 03F4 70CA 6929 | MDX P5435 BR TO EXIT PTM34170 6930 | * * PTM34175 6931 | * * PTM34180 03F5 C02D 6932 | P5700 LD P5740 SET LOOP CNTR TO PTM34185 03F6 D01C 6933 | STO P5720+1 INCLUDE THE SUP EXIT PTM34190 03F7 C3F4 6934 | LD 3 PASS-X3 CHECK ASM PASS PTM34195 03F8 4820 6935 | BSC Z SKIP IF FIRST PTM34200 03F9 7004 6936 | MDX P5710 BR TO OUTPUT DSF PTM34205 03FA 7406 0213 6937 | MDX L ADCOW,+6 INCRE ADDR CNTR PTM34210 03FC 1000 6938 | NOP PTM34215 03FD 703D 6939 | MDX P5950 BR TO EXIT 2-10 PTM34220 6940 | * * PTM34225 03FE C033 6941 | P5710 LD P5760 PTM34230 03FF D1FD 6942 | STO 1 -3 SET UP A TEMP 'L' PTM34235 0400 4400 04E1 6943 | BSI L SCAN BR TO EVALUATE LOW LIMIT2-8 PTM34240 0402 C327 6944 | LD 3 RELSW-X3 FETCH RELOC VALUE OF PTM34245 0403 100E 6945 | SLA 14 THE LOW LIMIT PTM34250 0404 18D0 6946 | RTE 16 PTM34255 0405 C325 6947 | LD 3 VALUE-X3 PTM34260 0406 D825 6948 | STD P5750+6 SAVE LOW LIMIT & RELOC IND PTM34265 6949 | * PTM34270 0407 4400 04E1 6950 | BSI L SCAN HI LIMIT2-8 PTM34275 0409 C327 6951 | LD 3 RELSW-X3 FETCH RELOC VALUE OF PTM34280 040A 100E 6952 | SLA 14 THE HIGH LIMIT PTM34285 040B 18D0 6953 | RTE 16 PTM34290 040C C325 6954 | LD 3 VALUE-X3 PTM34295 6955 | * IF UPPER LIMIT NOT SPEC 2-6 PTM34300 6956 | * *ZERO MEANS ALL OF CORE 2-6 PTM34305 040D D820 6957 | STD P5750+8 SAVE HIGH LIMIT & REL. IND PTM34310 6958 | * PTM34315 040E 4400 04E1 6959 | BSI L SCAN BR TO EVALUATE FORMAT 2-8 PTM34320 0410 C325 6960 | LD 3 VALUE-X3 PTM34325 0411 D018 6961 | STO P5750+4 SAVE THE FORMAT PTM34330 6962 | * * PTM34335 0412 6600 0000 6963 | P5720 LDX L2 *-* INITIAL LOOP CNTR PTM34340 0414 6100 6964 | LDX 1 0 SET POINTER TO ZERO PTM34345 0415 CD00 0426 6965 | P5730 LDD L1 P5750 FETCH GENERATED CODE PTM34350 0417 DB21 6966 | STD 3 TRWRD-X3 SAVE FOR DFOUT RTN. PTM34355 0418 4400 0883 6967 | BSI L DFOUT O/P TO DSF BFR 2-8 PTM34360 041A 7102 6968 | MDX 1 +2 INCRE TBL POINTER PTM34365 041B 7401 0213 6969 | MDX L ADCOW,+1 INCRE THE ADDR CNTR PTM34370 041D 72FF 6970 | MDX 2 -1 DECRE LOOP CNTR PTM34375 041E 70F6 6971 | MDX P5730 LOOP TIL OUTPUT COMPLETE PTM34380 6972 | * * PTM34385 041F 4346 6973 | BSI 3 LDXRS-X3 GO RESTO XR1 PTM34390 0420 C09F 6974 | LD P5450 PTM34395 0421 D120 6975 | STO 1 +32 RESTO ORIG BLANK PTM34400 0422 7018 6976 | MDX P5950 BR TO EXIT 2-10 PTM34405 6977 | * * PTM34410 0423 0006 6978 | P5740 DC 6 CONSTANT 6 PTM34415 0424 0005 6979 | P5741 DC 5 CONSTANT 5 2-4 PTM34420 0426 6980 | BSS E 0 PTM34425 0426 4400 0000 6981 | P5750 BSI L 0 LONG BSI & IND WORD PTM34430 0428 003F 6982 | DC $DUMP ADDR OF SYSTEM DUMP PTM34435 0429 0000 6983 | DC 0 IND WORD PTM34440 042A 0000 6984 | DC *-* FORMAT PTM34445 042B 0000 6985 | DC 0 IND WORD PTM34450 042C 0000 6986 | DC *-* LOW LIMIT PTM34455 042D 0000 6987 | DC 0 IND WORD PTM34460 042E 0000 6988 | DC *-* HIGH LIMIT PTM34465 042F 0000 6989 | DC 0 IND WORD PTM34470 0430 6038 6990 | LDX 0 $EXIT EXIT TO THE SUPV. PTM34475 0431 0000 6991 | DC 0 IND WORD PTM34480 6992 | * * PTM34485 0432 00D3 6993 | P5760 DC .L EBC 'L' PTM34490 0433 C0F0 6994 | P5800 LD P5741 PTM34495 0434 D0DE 6995 | STO P5720+1 INITIAL LOOP CNTR TO 5 PTM34500 0435 C3F4 6996 | LD 3 PASS-X3 CHECK ASM PASS PTM34505 0436 4820 6997 | BSC Z SKIP IF FIRST PTM34510 0437 70C6 6998 | MDX P5710 BR TO OUTPUT DSF PTM34515 0438 7405 0213 6999 | MDX L ADCOW,+5 INCRE THE ADDR CNTR PTM34520 043A 1000 7000 | NOP PTM34525 043B 4C00 0344 7001 | P5950 BSC L P5240 BR TO EXIT 2-11 PTM34530 043D 7002 | BSS /0456-* PATCH AREA 2-11 PTM34535 0456 0000 7003 | P5390 DC 0 PTM34580 *SBRKSLS DE 7004 | ASM IMPERATIVE STATEMENTS PH V2M08 PTM34585 *** PHASE 6 IMPERATIVE INST *** 7006 | *************************************************** PTM34595 7007 | * * PTM34600 7008 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM34605 7009 | * * PTM34610 7010 | *FUNCTION/OPERATION- * PTM34615 7011 | * *IN PROCESSING THE IMPERATIVE INSTRUCTIONS * PTM34620 7012 | * HANDLED BY PHASE 6, THE FORMAT FIELD IS * PTM34625 7013 | * SCANNED, THE TAG FIELD IS SCANNED, AND THE * PTM34630 7014 | * APPROPRIATE OBJECT OUTPUT IS GENERATED. * PTM34635 7015 | * *THE OPERANDS ARE SCANNED AND EVALUATED, THE * PTM34640 7016 | * RECORD IS CONVERTED BY THE B4HEX ROUTINE AND * PTM34645 7017 | * THE FINAL OBJECT OUTPUT IS SET UP BY DFOUT IN* PTM34650 7018 | * THE DSF BUFFER. * PTM34655 7019 | * * PTM34660 7020 | *ENTRY POINTS- * PTM34665 7021 | * * INSTA - ENTRY FROM PHASE 9 * PTM34670 7022 | * * PTM34675 7023 | *INPUT-N/A * PTM34680 7024 | * * PTM34685 7025 | *OUTPUT * PTM34690 7026 | * * THE CONSTRUCTED OP CODE FOR THE MNEMONIC * PTM34695 7027 | * BEING PROCESSED * PTM34700 7028 | * * PTM34705 7029 | *EXTERNAL RERERENCES- * PTM34710 7030 | * *SUBROUTINES- * PTM34715 7031 | * * B4HEX * PTM34720 7032 | * * DFOUT * PTM34725 7033 | * * ERFLG * PTM34730 7034 | * * GETS5 * PTM34735 7035 | * * GETS7 * PTM34740 7036 | * * GETS8 * PTM34745 7037 | * * GTS8A * PTM34750 7038 | * * GTS12 * PTM34755 7039 | * * LDLBL * PTM34760 7040 | * * LDXRS * PTM34765 7041 | * * SCAN * PTM34770 7042 | * *DCOM/COMMA- * PTM34775 7043 | * $PHSE * PTM34780 7044 | * * PTM34785 7045 | *EXITS- * PTM34790 7046 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM34795 7047 | * *ERROR - ERFLG SUBROUTINE * PTM34800 7048 | * * PTM34805 7049 | *TABLES/WORK AREAS- N/A * PTM34810 7050 | * * PTM34815 7051 | *ATTRIBUTES-REUSABLE * PTM34820 7052 | * * PTM34825 7053 | *NOTES-N/A * PTM34830 7054 | * * PTM34835 7055 | *************************************************** PTM34840 7056 | * PTM34845 0280 7057 | ORG OVLAY PTM34850 0280 01D5 7058 | DC S6Z-S6A WORD COUNT PHASE 6 PTM34855 0281 00DE 7059 | DC /DE SLET ID OF PHASE 6 2-8 PTM34860 7060 | * PTM34865 0282 4C00 04C1 7061 | S6A BSC L GETS5 FETCH PH 5 2-8 PTM34870 0284 4C00 0290 7062 | BSC L INSTA BEGIN EXECUTION,PHASE 6 PTM34875 0286 4C00 04C5 7063 | BSC L GETS7 2-8 PTM34880 0288 4C00 04CA 7064 | BSC L GETS8 FETCH PH 8 2-8 PTM34885 028A 4C00 04CC 7065 | BSC L GTS8A 2-8 PTM34890 028C 4C00 04CE 7066 | BSC L GTS12 2-8 PTM34895 028E 4C00 04C7 7067 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM34900 7068 | * PTM34905 0290 C02A 7069 | INSTA LD S6008 INDICATE THAT PHASE 6 PTM34910 0291 D400 0078 7070 | STO L $PHSE OF ASM IS IN CONTROL PTM34915 0293 6600 0389 7071 | LDX L2 SPCN XR2 = ADDR OF PH 6 CNST'S PTM34920 0295 C024 7072 | LD S6006 DO NOT ALLOW FURTHER 2-8 PTM34925 0296 D400 04A7 7073 | STO L OPVND *PH 2 MNEMOVICS 2-8 PTM34930 0298 C32C 7074 | LD 3 OPCNT-X3 MASK OUT BIT 15 OF OPCNT PTM34935 0299 D215 7075 | STO 2 +21 SAVE OP CODE PTM34940 029A E022 7076 | AND S6025 CHECK IF OP CODE 'DC' PTM34945 029B 4C18 0417 7077 | BSC L DC,+- BRANCH IF MNEMONIC IS 'DC' PTM34950 029D D32C 7078 | STO 3 OPCNT-X3 SAVE WITHOUT BIT 15 PTM34955 029E F01D 7079 | EOR S6020 CHECK IF MNEMONIC IS 'B' PTM34960 029F 4C18 02AC 7080 | BSC L S6000,+- BRANCH IF 'B' PTM34965 02A1 C32C 7081 | LD 3 OPCNT-X3 PTM34970 02A2 180A 7082 | SRA 10 IF INSTR VALID IN LONG PTM34975 02A3 4C04 03CA 7083 | BSC L LINCK,E FORM ONLY, BRANCH PTM34980 02A5 C32C 7084 | LD 3 OPCNT-X3 CHECK FOR OPCNT BIT 6 PTM34985 02A6 E019 7085 | AND S6050 (NO OPERAND REQUIRED) PTM34990 02A7 4C18 02C5 7086 | BSC L S6060,+- BRANCH IF OPERAND REQ. PTM34995 02A9 F32C 7087 | EOR 3 OPCNT-X3 'EOR' OUT BIT 6 OF OPCNT PTM35000 7088 | * PTM35005 02AA D215 7089 | STO 2 +21 SAVE IN INSTR BFR PTM35010 02AB 7068 7090 | MDX SINST GO TO PROCESS AS SHORT PTM35015 7091 | * MNEMONIC OP CODE = 'B' PTM35020 7092 | * PTM35025 02AC 91FD 7093 | S6000 S 1 -3 CHECK FORMAT FIELD FOR PTM35030 02AD 100D 7094 | SLA 13 LONG OR SHORT BRANCH PTM35035 02AE 4C28 02C1 7095 | BSC L S6055,+Z BRANCH IF FORMAT 'L' OR 'I' PTM35040 02B0 C00D 7096 | LD S6030 BRANCH IS SHORT, SET PTM35045 02B1 D32C 7097 | STO 3 OPCNT-X3 OPCNT = 7000 (MDX) PTM35050 02B2 D215 7098 | S6005 STO 2 +21 INITLZ INST BUFFER PTM35055 7099 | * PTM35060 02B3 C1FE 7100 | LD 1 -2 CHECK IF TAG PTM35065 02B4 F200 7101 | EOR 2 0 FIELD IS BLANK PTM35070 02B5 4C18 0314 7102 | BSC L SINST,+- BRANCH IF BLANK PTM35075 02B7 C0FE 7103 | LD *-2 PLACE ADDRESS SINST 2-6 PTM35080 02B8 D011 7104 | STO TAGCK *IN RETURN SLOT TAGCK 2-6 PTM35085 02B9 7034 7105 | MDX S6070 TAG ERROR IF NOT BLANK PTM35090 7106 | * PTM35095 02BA 048C 7107 | S6006 DC OPERR OP CODE ERR SUBR ADDR 2-8 PTM35100 02BB 00DE 7108 | S6008 DC /DE SLET ID OF PHASE 6 2-8 PTM35105 02BC FFF8 7109 | S6020 DC /FFF8 MASK OPCNT FOR 'DC' + 'B' PTM35110 02BD FFFE 7110 | S6025 DC /FFFE MASK OPCNT FOR DC PTM35115 02BE 7000 7111 | S6030 DC /7000 MDX OP CODE PTM35120 02BF 4C00 7112 | S6040 DC /4C00 BSC WITH LONG BIT PTM35125 02C0 0200 7113 | S6050 DC /0200 MASK FOR NOP,XCH, WAIT PTM35130 7114 | * PTM35135 02C1 C0FD 7115 | S6055 LD S6040 SET OPCNT = 4C00 (BSC LONG) PTM35140 02C2 D215 7116 | STO 2 +21 FOR 'B' WITH 'L' OR 'I' PTM35145 02C3 4C00 03CA 7117 | BSC L LINCK BR TO PROCESS 'BSC L' PTM35150 02C5 C32C 7118 | S6060 LD 3 OPCNT-X3 MASK BITS 0-5,8,9 FROM PTM35155 02C6 E205 7119 | AND 2 +5 OPCNT AND INITLZ PTM35160 02C7 D215 7120 | STO 2 +21 THE INST BUFFER PTM35165 02C8 4001 7121 | BSI TAGCK BR TO CHECK TAG FIELD PTM35170 02C9 7030 7122 | MDX INST2 BR TO CHECK FORMAT PTM35175 02CA 0000 7123 | TAGCK DC *-* TAG FIELD CHECK RTN ENTRY PTM35180 02CB C1FE 7124 | LD 1 -2 CHECK TAG COLUMN PTM35185 02CC 9200 7125 | S 2 0 FOR A BLANK PTM35190 02CD 4C18 02F8 7126 | BSC L INST2-2,+- BR AND IGNOR BLANK TAG PTM35195 02CF 9208 7127 | S 2 +8 COMPARE TAG WITH '3' PTM35200 02D0 4C30 02EE 7128 | BSC L S6070,-Z BRANCH IF LARGER THAN '3' PTM35205 02D2 9209 7129 | S 2 +9 COMPARE TAG WITH '0' PTM35210 02D3 4C10 02F5 7130 | BSC L S6080,- BRANCH IF LARGER THAN '0' PTM35215 02D5 C812 7131 | LDD SYMTG FETCH PACKED BLANKS 2-8 PTM35220 02D6 C1FE 7132 | LD 1 -2 ADD SYMBOLIC TAG CHAR 2-8 PTM35225 02D7 100A 7133 | SLA 10 *TO PACKED BLANKS 2-8 PTM35230 02D8 1802 7134 | SRA 2 *TO FORM SYMBOL NAME 2-8 PTM35235 02D9 E80E 7135 | OR SYMTG 2-8 PTM35240 02DA DB23 7136 | STD 3 SYMBF-X3 *SET SYMBOL NAME 2-8 PTM35245 02DB 4400 08C6 7137 | BSI L P9300 SEARCH FOR SYMBOLIC TAG 2-8 PTM35250 02DD 700D 7138 | MDX SYMT1 SYMBOL NOT FOUND 2-8 PTM35255 02DE 7139 | SYMT2 EQU * SYMBOL FOUND-VALUE IN A 2-8 PTM35260 02DE 4C28 02EB 7140 | BSC L SYMT1,Z+ BR IF VALUE NEGATIVE 2-8 PTM35265 02E0 9009 7141 | S SYMT4 2-8 PTM35270 02E1 4C30 02EB 7142 | BSC L SYMT1,Z- BR IF VALUE ABOVE 3 2-8 PTM35275 02E3 7123 7143 | MDX 1 +35 RESET XR1 TO COL 35 2-8 PTM35280 02E4 6600 0389 7144 | LDX L2 SPCN RESET XR2 2-8 PTM35285 02E6 8003 7145 | A SYMT4 2-8 PTM35290 02E7 700D 7146 | MDX S6080 BR TO INSERT TAG IN INST2-8 PTM35295 7147 | * PTM35300 02E8 7148 | BSS E 0 FORCE EVEN ADDR 2-8 PTM35305 02E8 0000 7149 | SYMTG DC 0 SYMBOL BFR FOR 2-8 PTM35310 02E9 0000 7150 | DC 0 *SYMBOLIC TAG 2-8 PTM35315 02EA 0003 7151 | SYMT4 DC 3 CONSTANT 3 2-8 PTM35320 7152 | * PTM35325 02EB 7123 7153 | SYMT1 MDX 1 +35 RESET XR1 TO COL 35 2-8 PTM35330 02EC 6600 0389 7154 | LDX L2 SPCN RESET XR2 2-8 PTM35335 02EE C3F4 7155 | S6070 LD 3 PASS-X3 IF PASS 1, 212 PTM35336 02EF 4C18 02F4 7156 | BSC L S6075,+- *SKIP TAG ERROR 212 PTM35337 02F1 C20A 7157 | LD 2 +10 TAG EROR, INSERT 'T' IN PTM35340 02F2 4400 0701 7158 | BSI L ERFLG ERR FLAG FLD OF LISTING 2-8 PTM35345 02F4 1008 7159 | S6075 SLA 8 CLEAR TAG BITS TO ZERON PTM35350 02F5 1008 7160 | S6080 SLA 8 SHIFT TAG BITS TO BITS 6,7 PTM35355 02F6 EA15 7161 | OR 2 +21 OF ACC AND INSERT PTM35360 02F7 D215 7162 | STO 2 +21 IN THE INST BUFFER PTM35365 02F8 4C80 02CA 7163 | BSC I TAGCK RETURN PTM35370 02FA C1FD 7164 | INST2 LD 1 -3 CHECK FORMAT PTM35375 02FB 9200 7165 | S 2 0 CHECK IF BLANK PTM35380 02FC 4C18 0314 7166 | BSC L SINST,+- BRANCH TO SHORT PTM35385 02FE 920B 7167 | S 2 +11 CHECK IF 'X' FORMAT PTM35390 02FF 4C18 0314 7168 | BSC L SINST,+- BRANCH TO SHORT IF 'X' PTM35395 0301 C32C 7169 | LD 3 OPCNT-X3 IF LONG, INSTRUCTION MUST PTM35400 0302 1805 7170 | SRA 5 BE VALID IN LONG FORM PTM35405 0303 4C04 0311 7171 | BSC L FCER,E BRANCH IF ONLY SHORT VALID PTM35410 0305 C1FD 7172 | FFTST LD 1 -3 CHECK FORMAT FIELD 2-10 PTM35415 0306 9206 7173 | S 2 +6 FOR 'L' (LONG) PTM35420 0307 4C18 03E2 7174 | BSC L LINST,+- BRANCH TO LONG IF 'L' PTM35425 0309 9207 7175 | S 2 +7 CHECK IF 'I' (INDIRECT) PTM35430 030A 4C18 03D6 7176 | BSC L IINST,+- BRANCH TO INDIRECT IF 'I' PTM35435 030C C213 7177 | LD 2 +19 FORMAT ERROR. INSERT 'F' IN PTM35440 030D 4400 0701 7178 | BSI L ERFLG ERR FLAG FLD OF LISTING 2-8 PTM35445 030F 4C00 03E2 7179 | BSC L LINST PROCESS AS LONG INST. PTM35450 7180 | * PTM35455 0311 C213 7181 | FCER LD 2 +19 FORMAT ERROR. INSERT 'F' IN PTM35460 0312 4400 0701 7182 | BSI L ERFLG ERR FLAG FLD OF LISTING 2-8 PTM35465 7183 | * PTM35470 0314 C3F4 7184 | SINST LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM35475 0315 4C20 031B 7185 | BSC L SI2ND,Z BRANCH IF PASS TWO PTM35480 0317 7401 0213 7186 | S6091 MDX L ADCOW,1 INCREMENT ADDR CTR BY ONE PTM35485 0319 1000 7187 | NOP (MAY SKIP) PTM35490 031A 7055 7188 | MDX INSXT GO TO INST EXIT PTM35495 7189 | * PTM35500 031B C32C 7190 | SI2ND LD 3 OPCNT-X3 CHECK IF NOP,XCH,OR WAIT, PTM35505 031C E0A3 7191 | AND S6050 WHERE NO OPERAND REQ. PTM35510 031D 4C20 035F 7192 | BSC L S6100,Z BRANCH IF NO OPERAND REQ. PTM35515 031F C3FA 7193 | LD 3 ADCOW-X3 SAVE ADDR CTR SO THAT PTM35520 0320 D067 7194 | STO ITEMP+2 CTR MAY BE INCREMENTED TO PTM35525 0321 7401 0213 7195 | MDX L ADCOW,1 LABEL VALUE PLUS 1 PTM35530 0323 1000 7196 | NOP (MAY SKIP) PTM35535 0324 C32C 7197 | LD 3 OPCNT-X3 CHECK IF THIS OP CODE PTM35540 0325 1803 7198 | SRA 3 TAKES A CONDITIONAL SCAN PTM35545 0326 4C04 03A8 7199 | S6099 BSC L SPOND,E BR IF CONDITIONAL INST 2-8 PTM35550 0328 4400 04E1 7200 | BSI L SCAN EVALUATE OPERAND 2-8 PTM35555 032A 4400 025F 7201 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM35560 032C 6600 0389 7202 | LDX L2 SPCN XR2 = PHASE 6 CONSTANTS PTM35565 032E 7123 7203 | MDX 1 +35 POINT TO CC 35 PTM35570 032F C1FD 7204 | LD 1 -3 CHECK FORMAT FIELD PTM35575 0330 9200 7205 | S 2 0 FOR BLANK. PTM35580 0331 4C20 0349 7206 | BSC L NOMOD,Z BR IF FORMAT NOT BLANK PTM35585 0333 C06A 7207 | LD INSBF CHECK FORMAT IND PTM35590 0334 180A 7208 | SRA 10 IN INSTR. BFR PTM35595 0335 4C04 0349 7209 | BSC L NOMOD,E BR IF NOT BLANK PTM35600 0337 C32C 7210 | LD 3 OPCNT-X3 CHECK IF OP CODE IS STX PTM35605 0338 100B 7211 | SLA 11 PTM35610 0339 4C28 0342 7212 | BSC L MOD,+Z BRANCH IF STX PTM35615 033B 1002 7213 | SLA 2 CHECK IF LDS,LDX, OR SHIFT PTM35620 033C 4C28 0349 7214 | BSC L NOMOD,+Z BRANCH IF ONE OF ABOVE PTM35625 033E C215 7215 | LD 2 +21 CHECK IF INST PTM35630 033F E20C 7216 | AND 2 +12 IS INDEXED (NO MODIF.) PTM35635 0340 4C20 0349 7217 | BSC L NOMOD,Z BRANCH IF INDEXED PTM35640 0342 C325 7218 | MOD LD 3 VALUE-X3 MODIFY VALUE OF OPERAND PTM35645 0343 93FA 7219 | S 3 ADCOW-X3 BY SUBTRACTING ADDR PTM35650 0344 D325 7220 | STO 3 VALUE-X3 COUNTER FROM IT. PTM35655 0345 C32B 7221 | LD 3 RLMDE-X3 COMPARE RELOC. MODE OF PTM35660 0346 180E 7222 | SRA 14 ASSEMBLY WITH RELOC. VALUE PTM35665 0347 F327 7223 | EOR 3 RELSW-X3 OF OPERAND. IF RELOC. ASM, PTM35670 0348 D327 7224 | STO 3 RELSW-X3 RELOC. VALUE MUST BE 0. PTM35675 0349 C327 7225 | NOMOD LD 3 RELSW-X3 CHECK FOR RELOC. OPERAND PTM35680 034A 4C18 0350 7226 | BSC L S6092,+- BRANCH IF RELOC. NON-ZERO PTM35685 034C C20D 7227 | LD 2 +13 RELOC. ERROR INSERT 'R' IN PTM35690 034D 4400 0701 7228 | NOMO2 BSI L ERFLG ERR FLAG FLD OF LISTING 2-8 PTM35695 034F 700D 7229 | MDX S6098 PTM35700 0350 C325 7230 | S6092 LD 3 VALUE-X3 DISPLACEMENT MUST BE IN PTM35705 0351 1807 7231 | SRA 7 THE RANGE +127 TO -128 PTM35710 0352 4C18 0359 7232 | BSC L S6094,+- BRANCH IF ZERO TO +127 PTM35715 0354 F214 7233 | EOR 2 +20 PTM35720 0355 4C18 0359 7234 | BSC L S6094,+- BRANCH IF -1 TO -128 PTM35725 0357 C20E 7235 | LD 2 +14 ADDR ERROR INSERT 'A' IN PTM35730 0358 70F4 7236 | MDX NOMO2 ERROR FLAG FIELD OF LISTING PTM35735 7237 | * PTM35740 0359 C325 7238 | S6094 LD 3 VALUE-X3 USE BITS 8-15 OF OPERAND PTM35745 035A E20F 7239 | AND 2 +15 VALUE AS INST DISPLACEMENT PTM35750 035B EA15 7240 | INST3 OR 2 +21 'OR' DISPLACEMENT INTO PTM35755 035C D215 7241 | STO 2 +21 BITS 8-15 OF INST BUFFER PTM35760 035D C02A 7242 | S6098 LD ITEMP+2 RESTORE ADDR CTR TO PTM35765 035E D3FA 7243 | STO 3 ADCOW-X3 PRE-SCAN VALUE PTM35770 035F 71E6 7244 | S6100 MDX 1 -26 XR1 POINTS TO COL. 9 PTM35775 0360 C210 7245 | LD 2 +16 INSERT '0' INTO INST WORD 1 PTM35780 0361 D1FD 7246 | STO 1 -3 RELOC. INDICATOR (COL. 6) PTM35785 0362 C215 7247 | LD 2 +21 PTM35790 0363 D321 7248 | STO 3 TRWRD-X3 OUTPUT INST WORD 1 IN HEX PTM35795 0364 D01D 7249 | STO QMDX2 2-8 PTM35800 0365 4400 06FA 7250 | BSI L B4HEX *TO COLS. 9-12,AND IN 2-8 PTM35805 0367 4400 0883 7251 | BSI L DFOUT *BINARY TO DSF O/P 2-8 PTM35810 0369 7401 0213 7252 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM35815 036B 1000 7253 | NOP (MAY SKIP) PTM35820 036C C031 7254 | LD INSBF IF LONG BIT (BIT 5) OF INST PTM35825 036D 180A 7255 | SRA 10 BUFFER IS INCLUDED, PTM35830 036E 4C04 0405 7256 | BSC L LI3RD,E BRANCH TO OUTPUT WORD 2 PTM35835 7257 | * PTM35840 0370 C011 7258 | INSXT LD QMDX2 2-8 PTM35845 0371 F013 7259 | EOR H7400 2-8 PTM35850 0372 4C18 0378 7260 | BSC L QMDXF,+- BR-MDM INST 2-8 PTM35855 0374 4400 073A 7261 | INSX1 BSI L LDLBL LD LABEL,GET NEXT RCD 2-8 PTM35860 0376 4C00 045D 7262 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM35865 0378 C00B 7263 | QMDXF LD QMDX0 SET ERFLG RETURN ADDR 2-8 PTM35870 0379 D400 0701 7264 | STO L P9202 2-8 PTM35875 037B 1010 7265 | SLA 16 RESET 2-10 PTM35880 037C D005 7266 | STO QMDX2 *MDX SWITCH 2-10 PTM35885 037D 7439 070E 7267 | MDX L ERADD,MCOM5-ERCNT PT TO WARN CNT 2-8 PTM35890 037F C003 7268 | LD QMDX1 FETCH Q FLAG 2-8 PTM35895 0380 4C00 0706 7269 | BSC L FLGCO JOIN ERFLG SUBR 2-8 PTM35900 0382 0000 7270 | QMDX2 DC *-* TEMP STORAGE 2-8 PTM35905 0383 00D8 7271 | QMDX1 DC .Q EBCDIC Q 2-8 PTM35910 0384 0374 7272 | QMDX0 DC INSX1 Q FLAG RETURN ADDR 2-8 PTM35915 0385 7400 7273 | H7400 DC /7400 MDM CONSTANT 2-8 PTM35920 0386 7274 | ITEMP BSS E 2 PTM35925 0388 0000 7275 | DC 0 PTM35930 0389 0040 7276 | SPCN DC . EBCDIC BLANK PTM35935 038A 0001 7277 | DC 1 CONSTANT 1 PTM35940 038B 00C3 7278 | DC .C EBCDIC C PTM35945 038C 0050 7279 | DC /50 AMPERSAND PTM35950 038D FFFE 7280 | DC /4E-/50 EBCDIC + PTM35955 038E F8C0 7281 | DC /F8C0 PTM35960 038F 00D3 7282 | DC .L EBCDIC L PTM35965 0390 FFF6 7283 | DC .I-.L EBCDIC I PTM35970 0391 00B3 7284 | DC .3-. CONSTANT EBCDIC 3 PTM35975 0392 FFFD 7285 | DC .0-.3 EBCDIC 0 PTM35980 0393 00E3 7286 | DC .T EBCDIC T PTM35985 0394 00A7 7287 | DC .X-. CONSTANT EBCDIC X PTM35990 0395 0300 7288 | DC /0300 PTM35995 0396 00D9 7289 | DC .R EBCDIC R PTM36000 0397 00C1 7290 | DC .A EBCDIC A PTM36005 0398 00FF 7291 | DC /00FF PTM36010 0399 00F0 7292 | DC .0 EBCDIC 0 PTM36015 039A 0080 7293 | DC /0080 PTM36020 039B 0400 7294 | DC /0400 PTM36025 039C 00C6 7295 | DC .F EBCDIC F PTM36030 039D 01FF 7296 | DC /01FF PTM36035 039E 0000 7297 | INSBF DC 0 INSTRUCTION BUFFER PTM36040 039F 0013 7298 | DC .O-.C O 15 CONDITION PTM36045 03A0 FFFE 7299 | DC .C-.E C 14 CODE PTM36050 03A1 0077 7300 | DC .E-/4E E 13 CHARACTERS. PTM36055 03A2 FFEE 7301 | DC /4E-.- PLUS 12 PTM36060 03A3 FF77 7302 | DC .--.Z - 11 PTM36065 03A4 0099 7303 | SPTAB DC .Z-/50 Z 10 PTM36070 03A5 00C9 7304 | DC .I EBC 'I' PTM36075 03A6 7400 7305 | DC /7400 OP CODE FOR 'MDM' PTM36080 03A7 0000 7306 | DC 0 SAVE 'MDM' FORMAT PTM36085 7307 | * PTM36090 03A8 1090 7308 | SPOND SLT 16 INITLZ EXTENSION TO ZERO PTM36095 03A9 6600 0389 7309 | LDX L2 SPCN RESET PHASE 6 POINTER PTM36100 03AB 6306 7310 | LDX 3 +6 CONDITION CODE LOOP CTR PTM36105 03AC C100 7311 | LD 1 0 COMPARE OPERAND PTM36110 03AD F200 7312 | EOR 2 0 CHAR TO BLANK PTM36115 03AE 4C18 03C5 7313 | BSC L SPOUT,+- BRANCH IF CHAR BLANK PTM36120 03B0 C100 7314 | LD 1 0 PTM36125 03B1 7101 7315 | MDX 1 +1 INCREMENT PTR TO NEXT COL. PTM36130 03B2 9203 7316 | S 2 +3 COMPARE CHAR TO AMPERSAND PTM36135 03B3 4818 7317 | BSC +- SKIP IF NOT AMPERSAND PTM36140 03B4 C204 7318 | LD 2 +4 CORRECT AMPERSAND TO PLUS PTM36145 03B5 9700 039E 7319 | SPLP S L3 SPTAB-6 COMPARE CHAR TO TABLE CHAR PTM36150 03B7 4C20 03BF 7320 | BSC L S6120,Z BRANCH IF NOT EQUAL PTM36155 03B9 1091 7321 | SLT 17 BRING CONDITION CODE MASK PTM36160 03BA 1BC0 7322 | RTE 3 0 FROM EXTENSION INTO PROPER PTM36165 03BB EA01 7323 | OR 2 +1 POSITION IN ACC TO INSERT PTM36170 03BC 1380 7324 | SLT 3 0 THE CURRENT CONDITION CODE PTM36175 03BD 18D1 7325 | RTE 17 BIT, AND RETURN MASK TO PTM36180 03BE 70EA 7326 | MDX SPOND+1 THE EXTENSION REGISTER. PTM36185 03BF 73FF 7327 | S6120 MDX 3 -1 DECREMENT LOOP CTR, PTM36190 03C0 70F4 7328 | MDX SPLP CONTINUE IF POSITIVE PTM36195 03C1 C202 7329 | LD 2 +2 CONDITION CODE ERROR. 'C' PTM36200 03C2 4400 0701 7330 | BSI L ERFLG *TO ERROR FLAG FLD 2-8 PTM36205 03C4 10A0 7331 | SLT 32 RETURN CONDITION BITS = 0 PTM36210 03C5 18D0 7332 | SPOUT RTE 16 CONDITION BITS TO ACC 10-15 PTM36215 03C6 4400 025F 7333 | BSI L LDXRS GO TO RESTO XR1 & 3 PTM36220 03C8 7123 7334 | MDX 1 35 PTM36225 03C9 7091 7335 | MDX INST3 INSERT IN INST BUFFER PTM36230 7336 | * PTM36235 7337 | * PROCESS INDIRECT INSTRUCTION. PTM36240 7338 | * PTM36245 7339 | * * PTM36250 03CA C32C 7340 | LINCK LD 3 OPCNT-X3 PTM36255 03CB E217 7341 | AND 2 +23 PTM36260 03CC F21D 7342 | EOR 2 +29 IS OP CODE AN 'MDM' PTM36265 03CD 4C18 0438 7343 | BSC L CHKFT,+- YES, BR TO CHECK TAG & FMT PTM36270 7344 | * * PTM36275 03CF 4400 02CA 7345 | BSI L TAGCK BR TO CHECK TAG FIELD PTM36280 03D1 C1FD 7346 | LD 1 -3 CHECK FORMAT FIELD PTM36285 03D2 9200 7347 | S 2 *FOR EBCDIC BLANK 2-10 PTM36290 03D3 4C20 0305 7348 | BSC L FFTST,Z BR IF NOT BLANK 2-10 PTM36295 03D5 700C 7349 | MDX LINST BR TO TREAT AS LONG PTM36300 03D6 C215 7350 | IINST LD 2 +21 GET OP CODE 2-1 PTM36305 03D7 F400 02BE 7351 | EOR L S6030 CHECK IF MDX W/O TAG 2-1 PTM36310 03D9 4C20 03DF 7352 | BSC L *+4,Z BRANCH IF NOT 2-1 PTM36315 03DB C213 7353 | LD 2 +19 ERROR IF INDIRECT 'MDX'2-1 PTM36320 03DC 4400 0701 7354 | BSI L ERFLG *WITHOUT IDX REG SPEC 2-8 PTM36325 03DE 7003 7355 | MDX LINST BRANCH TO TREAT AS LONG2-1 PTM36330 03DF C215 7356 | LD 2 +21 INSERT INDIRECT ADDRESS2-1 PTM36335 03E0 EA11 7357 | OR 2 +17 BIT (BIT 8) INTO PTM36340 03E1 D215 7358 | STO 2 +21 INST BUFFER PTM36345 7359 | * PTM36350 7360 | * PROCESS LONG FORM INSTRUCTION. PTM36355 7361 | * PTM36360 03E2 C3F4 7362 | LINST LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM36365 03E3 4C20 03E9 7363 | BSC L LI2ND,Z BRANCH IF PASS 2 PTM36370 03E5 7401 0213 7364 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM36375 03E7 1000 7365 | NOP (MAY SKIP) PTM36380 03E8 7031 7366 | MDX S6300 BR TO EXIT PTM36385 7367 | * PTM36390 03E9 C215 7368 | LI2ND LD 2 +21 INSERT LONG FORMAT PTM36395 03EA EA12 7369 | OR 2 +18 BIT (BIT 5) INTO PTM36400 03EB D215 7370 | STO 2 +21 INST BUFFER PTM36405 03EC C3FA 7371 | LD 3 ADCOW-X3 SAVE ADDR CTR PTM36410 03ED D09A 7372 | STO ITEMP+2 BEFORE GOING TO SCAN PTM36415 03EE 7402 0213 7373 | MDX L ADCOW,2 INCREMENT ADDR CTR TO PTM36420 03F0 1000 7374 | NOP VALUE OF NEXT LABEL PTM36425 03F1 4400 04E1 7375 | BSI L SCAN EVALUATE OPERAND 2-8 PTM36430 03F3 690A 7376 | STX 1 S6200+1 SAVE XR1 FOR 2ND OPERAND PTM36435 03F4 4400 025F 7377 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM36440 03F6 C327 7378 | LD 3 RELSW-X3 OUTPUT '0' (ABS), PTM36445 03F7 80A1 7379 | A SPCN+16 OR '1' (RELOC) TO PTM36450 03F8 D107 7380 | STO 1 +7 COLUMN 7 PTM36455 03F9 100E 7381 | SLA 14 PTM36460 03FA 18D0 7382 | RTE 16 PTM36465 03FB C325 7383 | LD 3 VALUE-X3 SAVE WORD 2 OF INST FOR PTM36470 03FC D889 7384 | STD ITEMP OUTPUT BELOW. PTM36475 03FD 6500 0000 7385 | S6200 LDX L1 *-* RELOAD FOR 2ND OPERAND PTM36480 03FF C32C 7386 | LD 3 OPCNT-X3 PTM36485 0400 1808 7387 | SRA 8 IF BIT 7 OF OPCNT IS A 1, PTM36490 0401 4C04 03A8 7388 | BSC L SPOND,E BRANCH IF CONDITIONAL PTM36495 0403 4C00 0328 7389 | BSC L S6099+2 BR IF 2ND OPERAND SCAN 2-8 PTM36500 7390 | * PTM36505 0405 CC00 0386 7391 | LI3RD LDD L ITEMP OUTPUT WORD 2 OF INST PTM36510 0407 DB21 7392 | STD 3 TRWRD-X3 IN HEX TO COLS. 13-16, PTM36515 0408 4400 06FA 7393 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM36520 040A 4400 0883 7394 | BSI L DFOUT *DSF O/P 2-8 PTM36525 040C 7401 0213 7395 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM36530 040E 1000 7396 | NOP (MAY SKIP) PTM36535 040F C32C 7397 | LD 3 OPCNT-X3 PTM36540 0410 E217 7398 | AND 2 +23 2-1 PTM36545 0411 F21D 7399 | EOR 2 +29 CHECK FOR 'MDM' PTM36550 0412 4C20 0370 7400 | LIEXT BSC L INSXT,Z GO TO EXIT IF NOT 'MDM' PTM36555 0414 C21E 7401 | LD 2 +30 OTHERWISE, RESTO PTM36560 0415 D10F 7402 | STO 1 +15 ORIG FORMAT PTM36565 0416 70FB 7403 | MDX LIEXT BR TO EXIT PTM36570 7404 | * * PTM36575 0417 C3F4 7405 | DC LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM36580 0418 4C20 041F 7406 | BSC L DC2ND,Z BRANCH IF PASS 2 PTM36585 041A 7401 0213 7407 | S6300 MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM36590 041C 1000 7408 | NOP (MAY SKIP) PTM36595 041D 4C00 0370 7409 | BSC L INSXT BR TO EXIT 2-8 PTM36600 7410 | * PTM36605 041F C3FA 7411 | DC2ND LD 3 ADCOW-X3 SAVE LOC'N ASSIGNMENT CTR PTM36610 0420 D016 7412 | STO DCCN+1 BEFORE ENTERING SCAN PTM36615 0421 7401 0213 7413 | MDX L ADCOW,1 INCREMENT ADDR CTR TO PTM36620 0423 1000 7414 | NOP NEXT LABEL VALUE PTM36625 0424 4400 04E1 7415 | BSI L SCAN EVALUATE OPERAND 2-8 PTM36630 0426 4346 7416 | BSI 3 LDXRS-X3 GO RELOAD XR1 PTM36635 0427 C00F 7417 | LD DCCN+1 RESET ADDR CTR TO PTM36640 0428 D3FA 7418 | STO 3 ADCOW-X3 PRE-SCAN VALUE PTM36645 0429 7109 7419 | MDX 1 +9 XR1 POINTS TO COL. 9 PTM36650 042A C327 7420 | LD 3 RELSW-X3 OUTPUT '0' (ABS), OR PTM36655 042B 800A 7421 | A DCCN '1' (RELOC) PTM36660 042C D1FD 7422 | STO 1 -3 COL. 6 PTM36665 042D 100E 7423 | SLA 14 PTM36670 042E 18D0 7424 | RTE 16 PTM36675 042F C325 7425 | LD 3 VALUE-X3 OUTPUT VALUE OF CONSTANT PTM36680 0430 DB21 7426 | STD 3 TRWRD-X3 IN HEX TO COLS. 9-12, PTM36685 0431 4400 06FA 7427 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM36690 0433 4400 0883 7428 | BSI L DFOUT *DSF O/P 2-8 PTM36695 0435 70E4 7429 | MDX S6300 PTM36700 7430 | * PTM36705 0436 00F0 7431 | DCCN DC .0 EBCDIC ZERO PTM36710 0437 0000 7432 | DC *-* SAVE LOC'N ASSIGNMENT CTR PTM36715 7433 | * PTM36720 0438 C21D 7434 | CHKFT LD 2 +29 PTM36725 0439 D215 7435 | STO 2 +21 SAVE OP CODE IN INSBF PTM36730 043A C3F4 7436 | LD 3 PASS-X3 2-1 PTM36735 043B 4C18 03E5 7437 | BSC L LINST+3,+- BRANCH OUT IF PASS 1 2-1 PTM36740 043D C1FD 7438 | LD 1 -3 PTM36745 043E 921C 7439 | S 2 +28 HAS AN 'I' BEEN SPECIFIED PTM36750 043F 4C18 0449 7440 | BSC L MDMER,+- YES, BR TO ERROR PTM36755 0441 C1FD 7441 | LD 1 -3 PTM36760 0442 D21E 7442 | STO 2 +30 SAVE 'MDM' FORMAT PTM36765 0443 C206 7443 | LD 2 +6 PTM36770 0444 D1FD 7444 | STO 1 -3 SET FORMAT TO LONG PTM36775 0445 C1FE 7445 | LD 1 -2 NO, IS THIS INSTR INDEXED PTM36780 0446 9200 7446 | S 2 0 = BLANK PTM36785 0447 4818 7447 | BSC +- YES, BR TO ERROR PTM36790 0448 7099 7448 | MDX LINST NO, BR TO LONG INSTR PTM36795 0449 C213 7449 | MDMER LD 2 +19 FORMAT ERROR PTM36800 044A 4400 0701 7450 | BSI L ERFLG BR TO FLAG ERROR 2-8 PTM36805 044C 7095 7451 | MDX LINST BR TO LONG INSTR PTM36810 7452 | * * PTM36815 044D 7453 | BSS /0457-* PATCH AREA 2-10 PTM36820 0457 0000 7454 | S6Z DC 0 PTM36825 *SBRKSLS DF 7455 | ASM DECML,XFLC PROCESSING PH V2M08 PTM36830 *** PHASE 7 REAL CONSTANTS *** 7457 | *************************************************** PTM36840 7458 | * * PTM36845 7459 | *STATUS-VERSION 2, MODIFICATION 9 * PTM36850 7460 | * * PTM36855 7461 | *FUNCTION/OPERATION- * PTM36860 7462 | * *THE TWO MNEMONICS PROCESSED BY PHASE 7 ARE * PTM36865 7463 | * XFLC AND DEC. * PTM36870 7464 | * *IN PASS 1, THE ONLY PROCESSING INVOLVED IS * PTM36875 7465 | * THE APPROPRIATE MODIFICATION OF THE LOCATION * PTM36880 7466 | * ASSIGNMENT COUNTER. * PTM36885 7467 | * *IN PASS 2, CONVERSION OF THE DECIMAL DATA * PTM36890 7468 | * OCCURS. PHASE 7 TRANSFERS CONTROL TO A * PTM36895 7469 | * FLIPPER ROUTINE THAT FETCHES PHASE 7A AND * PTM36900 7470 | * TRANSFERS CONTROL TO IT. WHEN PHASE 7A HAS * PTM36905 7471 | * COMPLETED THE DECIMAL DATA CONVERSION, IT * PTM36910 7472 | * RETURNS TO THE FLIPPER ROUTINE, WHICH FETCHES* PTM36915 7473 | * TO OVERLAID PORTION OF PHASE 7. * PTM36920 7474 | * *PHASE 7 THEN SETS UP THE CONVERTED NUMBER * PTM36925 7475 | * INTO THE APPROPRIATE FLOATING, FIXED, OR * PTM36930 7476 | * DECIMAL FORMAT. * PTM36935 7477 | * * PTM36940 7478 | *ENTRY POINTS- * PTM36945 7479 | * * S7000 - ENTRY FROM PHASE 9 * PTM36950 7480 | * * PTM36955 7481 | *INPUT-N/A * PTM36960 7482 | * * PTM36965 7483 | *OUTPUT * PTM36970 7484 | * * THE CONSTRUCTED OP CODE FOR THE MNEMONIC * PTM36975 7485 | * BEING PROCESSED * PTM36980 7486 | * * PTM36985 7487 | *EXTERNAL RERERENCES- * PTM36990 7488 | * *SUBROUTINES- * PTM36995 7489 | * * B4HEX * PTM37000 7490 | * * DISK1 * PTM37005 7491 | * * DFOUT * PTM37010 7492 | * * ERFLG * PTM37015 7493 | * * GETS5 * PTM37020 7494 | * * GETS6 * PTM37025 7495 | * * GETS8 * PTM37030 7496 | * * GTS8A * PTM37035 7497 | * * GTS12 * PTM37040 7498 | * * LDLBL * PTM37045 7499 | * * LDXRS * PTM37050 7500 | * * SCAN * PTM37055 7501 | * *DCOM/COMMA- * PTM37060 7502 | * $PHSE * PTM37065 7503 | * * PTM37070 7504 | *EXITS- * PTM37075 7505 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM37080 7506 | * *ERROR - ERFLG SUBROUTINE * PTM37085 7507 | * * PTM37090 7508 | *TABLES/WORK AREAS- * PTM37095 7509 | * * DATA CONVERSION INFORMATION IS STORED * PTM37100 7510 | * IN A TABLE AT THE END OF PHASE 7. * PTM37105 7511 | * * PTM37110 7512 | *ATTRIBUTES-REUSABLE * PTM37115 7513 | * * PTM37120 7514 | *NOTES-N/A * PTM37125 7515 | * * PTM37130 7516 | *************************************************** PTM37135 7517 | * PTM37140 0280 7518 | ORG OVLAY PTM37145 0280 017B 7519 | DC FLONE-S7A+1 WD CNT OF PHASE 7 PTM37150 0281 FF21 7520 | DC -/DF SLET ID OF PHASE 7 2-8 PTM37155 0282 00B6 7521 | PHS07 DC HDR7A-PHS07 ID TABLE ADDR PTM37160 0283 0001 7522 | DC 1 NO. OF ID'S TO BE FILLED PTM37165 0282 7523 | ORG *-2 PTM37170 7524 | * PTM37175 0282 4C00 04C1 7525 | S7A BSC L GETS5 FETCH PH 5 2-8 PTM37180 0284 4C00 04C3 7526 | BSC L GETS6 2-8 PTM37185 0286 4C00 0290 7527 | BSC L S7000 BEGIN EXECUTION, PH. 7 PTM37190 0288 4C00 04CA 7528 | BSC L GETS8 2-8 PTM37195 028A 4C00 04CC 7529 | BSC L GTS8A 2-8 PTM37200 028C 4C00 04CE 7530 | BSC L GTS12 2-8 PTM37205 028E 4C00 04C7 7531 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM37210 7532 | * PTM37215 0290 C017 7533 | S7000 LD S7010 INDICATE THAT PHASE 7 OF PTM37220 0291 D400 0078 7534 | STO L $PHSE ASSEMBLER IS IN CONTROL PTM37225 0293 C063 7535 | LD ADOPR PREVENT FURTHER 2-9 PTM37230 0294 D400 04A7 7536 | STO L OPVND *PH 2 MNEMONICS 2-8 PTM37235 0296 C32C 7537 | LD 3 OPCNT-X3 CHECK OPCNT TO DETERMINE PTM37240 0297 180C 7538 | SRA 12 IF MNEMONICS IS 'XFLC' PTM37245 0298 4C04 0302 7539 | BSC L XFLC,E BRANCH IF 'XFLC' PTM37250 029A C3FA 7540 | LD 3 ADCOW-X3 PTM37255 029B 4C04 02A5 7541 | BSC L ADJCT,E IF ADDRESS COUNTER ODD, PTM37260 029D D303 7542 | STOLB STO 3 LABVL-X3 ADD ONE TO MAKE IT EVEN PTM37265 029E C3F4 7543 | LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM37270 029F 4C20 02A9 7544 | BSC L DECIN,Z BRANCH IF PASS 2 PTM37275 02A1 7402 0213 7545 | MDX L ADCOW,2 INCREMENT ADDR CTR BY 2 PTM37280 02A3 1000 7546 | NOP (MAY SKIP) PTM37285 02A4 7051 7547 | MDX S7030 EXIT DEC,XFLC PROCESSING PTM37290 7548 | * PTM37295 02A5 8055 7549 | ADJCT A DECCN =1 MAKE ADCOW EVEN. PTM37300 02A6 D3FA 7550 | STO 3 ADCOW-X3 PTM37305 02A7 70F5 7551 | MDX STOLB PTM37310 02A8 00DF 7552 | S7010 DC /DF SLET ID OF PHASE 7 2-8 PTM37315 02A9 4400 03C1 7553 | DECIN BSI L FLIP1 GO LOAD DEC OP SCAN PTM37320 02AB 6600 03E0 7554 | LDX L2 F PTM37325 02AD C204 7555 | LD 2 FLNIS-F (USE POINTER SET BY FLOTD) PTM37330 02AE 4C20 02B3 7556 | BSC L DECA,Z TREAT INTEGER AS PTM37335 02B0 C04C 7557 | LD DECCN+2 =31 FIXED POINT(B=31). PTM37340 02B1 D2FC 7558 | STO 2 FLB2-F PTM37345 02B2 7015 7559 | MDX DEFXP PTM37350 02B3 C2FD 7560 | DECA LD 2 FLBSW-F GO TO FIXED POINT RTN. PTM37355 02B4 4C20 02C8 7561 | BSC L DEFXP,Z IF B-VALUE SPECIFIED. PTM37360 7562 | * FLOATING POINT SECTION OF DEC. PTM37365 02B6 2000 7563 | LDS 0 CLEAR EXPONENT BITS. PTM37370 02B7 2A01 7564 | STS 2 FLBMN+1-F PTM37375 02B8 10A0 7565 | SLT 32 CONVERT MAGNITUDE & SIGN PTM37380 02B9 9A00 7566 | SD 2 FLBMN-F TO COMPLEMENT FORM. PTM37385 02BA 4C20 02C0 7567 | BSC L NOTZ,Z BR IF NOT ZERO PTM37390 02BC 18D0 7568 | RTE 16 CHECK WORD TWO PTM37395 02BD 4818 7569 | BSC +- SKIP IF NOT ZERO PTM37400 02BE 7003 7570 | MDX *+3 BR ON ZERO VALUE PTM37405 02BF 18D0 7571 | RTE 16 PTM37410 02C0 F03D 7572 | NOTZ EOR DECCN+3 =/8000 PTM37415 02C1 4810 7573 | BSC - PTM37420 02C2 CA00 7574 | LDD 2 FLBMN-F PTM37425 02C3 18D0 7575 | RTE 16 PTM37430 02C4 EAFF 7576 | OR 2 FLBCH-F PTM37435 02C5 18D0 7577 | RTE 16 PTM37440 02C6 D839 7578 | STD DECBF PTM37445 02C7 7016 7579 | MDX DEOUT PTM37450 7580 | * PTM37455 7581 | * FIXED POINT SECTION OF DEC. PTM37460 7582 | * PTM37465 02C8 C036 7583 | DEFXP LD DECCN+4 =128 PTM37470 02C9 92FF 7584 | S 2 FLBCH-F COMPUTE SHIFT COUNT, PTM37475 02CA 82FC 7585 | A 2 FLB2-F SC=128-FLBCH+FLB2. PTM37480 02CB 4C28 032B 7586 | BSC L FLERR,+Z ERROR IF SC MINUS (LOSS PTM37485 02CD D001 7587 | STO *+1 OF SIGNIFICANT BITS OFF PTM37490 02CE 6700 0000 7588 | LDX L3 *-* LEFT). PTM37495 02D0 902C 7589 | S DECCN+2 =31 PTM37500 02D1 4C30 032E 7590 | BSC L FLZER,-Z ZERO IF SC MORE THAN 31. PTM37505 02D3 CA00 7591 | LDD 2 FLBMN-F TEST SIGN OF CONSTANT. PTM37510 02D4 4C28 02D8 7592 | BSC L *+2,+Z IF PLUS, SHIFT BY SC, PTM37515 02D6 1B80 7593 | SRT 3 0 GO TO OUTPUT SECTION. PTM37520 02D7 7005 7594 | MDX DECB PTM37525 02D8 E020 7595 | AND K7FFF =/7FFF PTM37530 02D9 1B80 7596 | SRT 3 0 IF MINUS,REMOVE SIGN BIT, PTM37535 02DA D825 7597 | STD DECBF SHIFT RIGHT BY SC, PTM37540 02DB 10A0 7598 | SLT 32 CONVERT TO 2.S COMPLEMENT PTM37545 02DC 9823 7599 | SD DECBF PTM37550 02DD D822 7600 | DECB STD DECBF PTM37555 7601 | * PTM37560 7602 | * OUTPUT SECTION OF DEC. PTM37565 7603 | * PTM37570 02DE 4400 025F 7604 | DEOUT BSI L LDXRS RELOAD REGISTER 1,3 PTM37575 02E0 C017 7605 | LD KF0 PLACE RELOCATION PTM37580 02E1 7109 7606 | MDX 1 +9 CODES (ABS) AND PTM37585 02E2 D1FD 7607 | STO 1 -3 2 CONSTANT WORDS PTM37590 02E3 D1FE 7608 | STO 1 -2 INTO HEX OUTPUT. PTM37595 02E4 C01B 7609 | S7020 LD DECBF OUTPUT 2 WORDS OF PTM37600 02E5 D321 7610 | STO 3 TRWRD-X3 CONSTANT IN BINARY TO PTM37605 02E6 4400 06FA 7611 | BSI L B4HEX *DSF OUTPUT 2-8 PTM37610 02E8 4400 0883 7612 | BSI L DFOUT 2-8 PTM37615 02EA 7401 0213 7613 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM37620 02EC 1000 7614 | NOP (MAY SKIP) PTM37625 02ED C013 7615 | LD DECBF+1 PTM37630 02EE D321 7616 | STO 3 TRWRD-X3 OUTPUT WORD 2 OF CONSTANT PTM37635 02EF 4400 06FA 7617 | BSI L B4HEX *IN HEX,AND IN BINARY TO2-8 PTM37640 02F1 4400 0883 7618 | BSI L DFOUT *DSF OUTPUT 2-8 PTM37645 02F3 7401 0213 7619 | MDX L ADCOW,1 INCREMENT ADDRESS COUNTER PTM37650 02F5 1000 7620 | NOP (MAY SKIP) PTM37655 02F6 7030 7621 | S7030 MDX S7040 GO GET NEXT RCD 2-8 PTM37660 7622 | * PTM37665 02F7 048C 7623 | ADOPR DC OPERR OP CODE ERR SUBR ADDR 2-9 PTM37670 02F8 00F0 7624 | KF0 DC .0 EBCDIC ZERO PTM37675 02F9 7FFF 7625 | K7FFF DC /7FFF MASK OUT BIT ZERO PTM37680 02FA 00E2 7626 | KS DC .S EBCDIC S PTM37685 7627 | * PTM37690 02FB 0001 7628 | DECCN DC 1 PTM37695 02FC 0002 7629 | DC 2 PTM37700 02FD 001F 7630 | DC 31 PTM37705 02FE 8000 7631 | DC /8000 PTM37710 02FF 0080 7632 | DC 128 PTM37715 0300 7633 | DECBF BSS E 2 PTM37720 7634 | * PTM37725 7635 | * XFLC PSEUDO-OP MAIN SECTION. PTM37730 7636 | * PTM37735 0302 C3F4 7637 | XFLC LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM37740 0303 4C20 0309 7638 | BSC L XFLIN,Z BRANCH IF PASS 2 PTM37745 0305 7403 0213 7639 | MDX L ADCOW,3 PTM37750 0307 1000 7640 | NOP (MAY SKIP) PTM37755 0308 70ED 7641 | MDX S7030 PTM37760 7642 | * PTM37765 0309 4400 03C1 7643 | XFLIN BSI L FLIP1 GO LOAD DEC OP SCAN PTM37770 7644 | * PTM37775 030B 6600 03E0 7645 | LDX L2 F PTM37780 030D 4400 025F 7646 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM37785 030F 7106 7647 | MDX 1 +6 XR1 POINTS TO COL. 6 PTM37790 0310 C2FD 7648 | LD 2 FLBSW-F B-SPECIFICATION ILLEGAL PTM37795 0311 4C20 032B 7649 | BSC L FLERR,Z IN XFLC OPERAND. PTM37800 0313 10A0 7650 | SLT 32 CONVERT MAGNITUDE & SIGN PTM37805 0314 9A00 7651 | SD 2 FLBMN-F TO COMPLEMENT FORM. PTM37810 0315 4820 7652 | BSC Z PTM37815 0316 F0E7 7653 | EOR DECCN+3 =/8000 PTM37820 0317 4810 7654 | BSC - PTM37825 0318 CA00 7655 | LDD 2 FLBMN-F PTM37830 0319 D8E6 7656 | STD DECBF PTM37835 031A C2FF 7657 | LD 2 FLBCH-F ASSEMBLE BINARY CHAR. IN PTM37840 031B D321 7658 | STO 3 TRWRD-X3 OUTPUT WORD 1 OF XFLC. PTM37845 031C 1008 7659 | SLA 8 AND IN HEX OUTPUT FIELD. PTM37850 031D 6202 7660 | LDX 2 2 PTM37855 031E 4400 06EC 7661 | BSI L BTHEX OUTPUT CHARACTERISTIC IN2-8 PTM37860 0320 4400 0883 7662 | BSI L DFOUT *HEX,AND IN BINARY 2-8 PTM37865 0322 7101 7663 | MDX 1 +1 INCRE POINTER TO CC 9 PTM37870 0323 7401 0213 7664 | MDX L ADCOW,1 INCREMENT ADDRESS COUNTER. PTM37875 0325 1000 7665 | NOP (MAY SKIP) PTM37880 0326 70BD 7666 | MDX S7020 PTM37885 7667 | * PTM37890 0327 4400 073A 7668 | S7040 BSI L LDLBL GET NEXT RCD 2-8 PTM37895 0329 4C00 045D 7669 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM37900 7670 | * PTM37905 032B C0CE 7671 | FLERR LD KS INDICATE SYNTAX ERROR PTM37910 032C 4400 0701 7672 | BSI L ERFLG GO TO ERROR SUBR 2-8 PTM37915 7673 | * PTM37920 032E 10A0 7674 | FLZER SLT 32 CLEAR A & Q PTM37925 032F D2FF 7675 | STO 2 FLBCH-F CLEAR THE SWITCHES PTM37930 0330 DA00 7676 | STD 2 FLBMN-F AND INDICATORS PTM37935 0331 D2FC 7677 | STO 2 FLB2-F BEFORE EXITING PTM37940 0332 D2FD 7678 | STO 2 FLBSW-F PTM37945 0333 C0FF 7679 | LD *-1 PTM37950 0334 D204 7680 | STO 2 FLNIS-F PTM37955 0335 4400 025F 7681 | BSI L LDXRS RESTO XR3 PTM37960 0337 70BE 7682 | MDX S7030 EXIT PTM37965 7683 | * PTM37970 0338 7684 | BSS E 0 PTM37975 0338 00E0 7685 | HDR7A DC /E0 SLET ID OF PHASE 7A 2-8 PTM37980 0339 7686 | BSS 3 PTM37985 03C1 7687 | S7990 BES 133 LOCATE BFR AT /03C1 FOR 7A PTM37990 7688 | * * PTM37995 03C1 0000 7689 | FLIP1 DC 0 ENTRY TO LOAD 7A PTM38000 03C2 CC00 033A 7690 | LDD L HDR7A+2 WD CNT & SCTR ADDR OF PTM38005 03C4 DC00 0282 7691 | STD L OVLAY+2 PH. 7A TO OVRLAY AREA PTM38010 7692 | * PTM38015 03C6 C0FE 7693 | LD *-2 PTM38020 03C7 18D0 7694 | RTE 16 RD FUNC AND I/O ADDR PTM38025 03C8 C005 7695 | LD RDFNC TO ACC & EXT PTM38030 03C9 435C 7696 | BSI 3 DISK1-X3 GO TO LOAD PH 7A PTM38035 7697 | * PTM38040 03CA 6600 03D0 7698 | LDX L2 FLIP2 PT XR1 TO RESIDENT FLIP PTM38045 03CC 4C00 0284 7699 | BSC L OVLAY+4 TRANS TO PH. 7A PTM38050 7700 | * PTM38055 03CE 7000 7701 | RDFNC DC /7000 FUNC CODE TO READ PTM38060 03CF 0280 7702 | HDR7 DC OVLAY PH. 7 HDR ADDR PTM38065 7703 | * PTM38070 03D0 C0FE 7704 | FLIP2 LD HDR7 PTM38075 03D1 18D0 7705 | RTE 16 RD FUNC AND I/O ADDR PTM38080 03D2 C0FB 7706 | LD RDFNC TO ACC & EXT PTM38085 03D3 74BA 0280 7707 | MDX L OVLAY,-70 DECR PH 7 WD CNT 2-8 PTM38090 03D5 435C 7708 | BSI 3 DISK1-X3 GO TO LOAD PH. 7 PTM38095 03D6 7446 0280 7709 | MDX L OVLAY,+70 RESTORE WD CNT PH 7 2-8 PTM38100 7710 | * PTM38105 03D8 4C80 03C1 7711 | BSC I FLIP1 RETURN TO PH. 7 PTM38110 7712 | * PTM38115 7713 | * * PTM38120 03DA 7714 | BSS E 1 MAKE 1ST WD ODD PTM38125 03DB 7715 | FLE10 BSS 1 PTM38130 03DC 7716 | FLB2 BSS 1 PTM38135 03DD 7717 | FLBSW BSS 1 PTM38140 03DE 7718 | FLSGN BSS 1 PTM38145 03DF 7719 | FLBCH BSS 1 PTM38150 03E0 7720 | FLBMN BSS E 2 PTM38155 03E0 7721 | F EQU FLBMN PTM38160 03E2 7722 | MCAR BSS E 2 PTM38165 03E4 7723 | FLNIS BSS 1 PTM38170 03E5 7724 | BUF5 BSS 5 PTM38175 03EA 7725 | BSS /03FC-* PATCH AREA 2-9 PTM38180 03FC 0000 7726 | FLONE DC 0 PTM38185 03FD 0001 7727 | DC 1 PTM38190 *SBRKSLS E0 7728 | ASM DECIMAL CONVERSION PH V2M08 PTM38195 ***PHASE 7A - DECIMAL CONV*** 7730 | *************************************************** PTM38205 7731 | * * PTM38210 7732 | *STATUS-VERSION 2, MODIFICATION 8 * PTM38215 7733 | * * PTM38220 7734 | *FUNCTION/OPERATION- * PTM38225 7735 | * *WHEN PHASE 7A IS ENTERED, INDEX REGISTER 1 IS* PTM38230 7736 | * POINTING AT THE INPUT STRING, AND INDEX * PTM38235 7737 | * REGISTER 2 IS POINTING AT THE FLIPPER * PTM38240 7738 | * ROUTINE. * PTM38245 7739 | * *PHASE 7A CONVERTS THE MANTISSA OF A DECIMAL * PTM38250 7740 | * INTEGER, A FIXED, OR A FLOATING POINT NUMBER * PTM38255 7741 | * TO THE BINARY EQUIVALENT. * PTM38260 7742 | * *PHASE 7A CONTAINS A SCANNING PROCESS WHICH * PTM38265 7743 | * CONVERTS THE OPERAND TO ITS BINARY EQUIVALENT* PTM38270 7744 | * AND A POST-SCANNING PROCESS WHICH CONVERTS * PTM38275 7745 | * FROM POWERS OF 10 TO POWERS OF 2. * PTM38280 7746 | * *THE CONVERTED DECIMAL DATA IS SAVED IN A * PTM38285 7747 | * BUFFER WHICH IS PART OF THE FLIPPER ROUTINE. * PTM38290 7748 | * * PTM38295 7749 | *ENTRY POINTS- * PTM38300 7750 | * *FLOTD - ENTRY FROM PHASE 7 * PTM38305 7751 | * * PTM38310 7752 | *INPUT- * PTM38315 7753 | * * ADDRESS OF DATA TABLE * PTM38320 7754 | * * RETURN ADDRESS OF PHASE 7 FLIPPER * PTM38325 7755 | * * PTM38330 7756 | *OUTPUT- * PTM38335 7757 | * * CONVERTED DECIMAL DATA * PTM38340 7758 | * * PTM38345 7759 | *EXTERNAL RERERENCES- * PTM38350 7760 | * *SUBROUTINES- * PTM38355 7761 | * * B4HEX * PTM38360 7762 | * * DFOUT * PTM38365 7763 | * * ERFLG * PTM38370 7764 | * *DCOM/COMMA- * PTM38375 7765 | * $PHSE * PTM38380 7766 | * * PTM38385 7767 | *EXITS- * PTM38390 7768 | * * NORMAL - PHASE 7 FLIPPER SUBROUTINE * PTM38395 7769 | * * ERROR - NONE * PTM38400 7770 | * * PTM38405 7771 | *TABLES/WORK AREAS- * PTM38410 7772 | * * DATA CONVERSION INFORMATION IS STORED * PTM38415 7773 | * AT THE END OF PHASE 7. * PTM38420 7774 | * * PTM38425 7775 | *ATTRIBUTES-REUSABLE * PTM38430 7776 | * * PTM38435 7777 | *NOTES-N/A * PTM38440 7778 | * * PTM38445 7779 | *************************************************** PTM38450 7780 | * PTM38455 0282 7781 | ORG OVLAY+2 PTM38460 7782 | * BASIC DECIMAL CONVERSION ROUTINE PTM38465 7783 | * XR1 POINTS AT INPUT STRING PTM38470 7784 | * RETURNS NORMAL MANTISSA(MAG+SGN) PTM38475 7785 | * IN FLBMN. RETURNS BINARY EXP IN PTM38480 7786 | * EXCESS 128 CODE IN FLBCH. PTM38485 7787 | * IF B-VAL. SPEC, RETURNED IN FLB2 AND PTM38490 7788 | * FLBSW SET NON-ZERO PTM38495 7789 | * IF DEC. POINT OR E SPEC., OR B-VAL. PTM38500 7790 | * SPEC., FLNIS IS SET TO NON.ZERO. PTM38505 7791 | * PTM38510 0282 0126 7792 | DC S7Z-FLOTD WD CNT OF PH. 7A PTM38515 0283 00E0 7793 | DC /E0 SLET ID OF PHASE 7A 2-8 PTM38520 0284 6E00 0342 7794 | FLOTD STX L2 BYBY+1 SAVE FLIP2 EXIT ADDR PTM38525 0286 C027 7795 | LD ID IDENTIFY THE PHASE PTM38530 0287 D400 0078 7796 | STO L $PHSE IN COMMA PTM38535 0289 10A0 7797 | SLT 32 CLEAR AQ PTM38540 028A 62F1 7798 | LDX 2 -15 PTM38545 028B D600 03EA 7799 | STO L2 TABPT+15 RESET SWITCHES AND PTM38550 028D 7201 7800 | MDX 2 1 BUFFERS TO ZERO. PTM38555 028E 70FC 7801 | MDX *-4 PTM38560 028F C059 7802 | LD FLCN =SLT 0 PTM38565 0290 D014 7803 | STO FLLP2 PTM38570 0291 C100 7804 | LD 1 0 ANALYZE SIGN PTM38575 0292 9057 7805 | S FLCN+1 =.PLUS(12-8-6) PTM38580 0293 4C18 029E 7806 | BSC L FL1,+- PTM38585 0295 9055 7807 | S FLCN+2 =AMPERSAND(12)-PLUS PTM38590 0296 4C18 029E 7808 | BSC L FL1,+- PTM38595 0298 9053 7809 | S FLCN+3 =.--.AMPERSAND PTM38600 0299 4C20 029F 7810 | BSC L *+4,Z PTM38605 029B C051 7811 | LD FLCN+4 =/8000 PTM38610 029C D400 03DE 7812 | STO L TABPT+3 PTM38615 029E 7101 7813 | FL1 MDX 1 +1 PTM38620 029F 6300 7814 | LDX 3 0 RESET DEC PT. CNT PTM38625 02A0 C100 7815 | FLLP LD 1 0 COLLECT MANTISSA PTM38630 02A1 7101 7816 | MDX 1 +1 DIGITS. PTM38635 02A2 904B 7817 | S FLCN+5 =.0 PTM38640 02A3 4C28 02AF 7818 | BSC L FLSSC,+Z DETECT SPECIAL CHAR. PTM38645 02A5 1080 7819 | FLLP2 SLT 0 CHANGE TO MDX 3 -1 BY . PTM38650 02A6 1080 7820 | SLT 0 MAY SKIP PTM38655 02A7 D400 03E3 7821 | STO L TABPT+8 PTM38660 02A9 4400 0358 7822 | BSI L MPY COMPUTE BINARY PTM38665 02AB 4C20 036C 7823 | BSC L FL000,Z MANTISSA 2-8 PTM38670 02AD 70F2 7824 | MDX FLLP PTM38675 7825 | * PTM38680 02AE 00E0 7826 | ID DC /E0 SLET ID OF PHASE 7A 2-8 PTM38685 7827 | * PTM38690 7828 | * ANALYZE SPECIAL CHAR PTM38695 02AF 903F 7829 | FLSSC S FLCN+6 =.E-.0 E PTM38700 02B0 4C18 02C1 7830 | BSC L FLESC,+- PTM38705 02B2 903D 7831 | S FLCN+7 =.B-.E B PTM38710 02B3 4C18 02E2 7832 | BSC L FLBSC,+- PTM38715 02B5 903B 7833 | S FLCN+8 =..-.B . PTM38720 02B6 4C20 02BD 7834 | BSC L *+5,Z PTM38725 02B8 C039 7835 | LD FLCN+9 =MDX 3 -1 PTM38730 02B9 D0EB 7836 | STO FLLP2 PTM38735 02BA D400 03E4 7837 | STO L TABPT+9 PTM38740 02BC 70E3 7838 | MDX FLLP PTM38745 02BD 9035 7839 | S FLCN+10 =. -.. BLANK PTM38750 02BE 4C20 036C 7840 | BSC L FL000,Z 2-8 PTM38755 02C0 703E 7841 | MDX FLFIN PTM38760 7842 | * PTM38765 7843 | * SCAN FOR E AND B SPECIFICATIONS PTM38770 7844 | * PTM38775 02C1 C032 7845 | FLESC LD FLCN+11 =FLE10 PTM38780 02C2 D018 7846 | STO FL3+1 PTM38785 02C3 D400 03E4 7847 | STO L TABPT+9 PTM38790 02C5 C036 7848 | LD FLCN+19 =A FLEBF-FL4-1 PTM38795 02C6 D017 7849 | STO FL4 PTM38800 02C7 C100 7850 | LD 1 0 PTM38805 02C8 9021 7851 | S FLCN+1 =.PLUS(12-6-8) PTM38810 02C9 4C18 02D3 7852 | BSC L FL2,+- SCAN E OR B SIGN PTM38815 02CB 901F 7853 | S FLCN+2 =.AMPERSAND(12)-.PLUS PTM38820 02CC 4C18 02D3 7854 | BSC L FL2,+- PTM38825 02CE 901D 7855 | S FLCN+3 =.--.AMPERSAND PTM38830 02CF 4C20 02D4 7856 | BSC L *+3,Z PTM38835 02D1 C023 7857 | LD FLCN+12 =S FLEBF-FL4-1 PTM38840 02D2 D00B 7858 | STO FL4 PTM38845 02D3 7101 7859 | FL2 MDX 1 1 PTM38850 02D4 C100 7860 | LD 1 0 PTM38855 02D5 7101 7861 | MDX 1 1 PTM38860 02D6 9017 7862 | S FLCN+5 =.0 PTM38865 02D7 4C28 02AF 7863 | BSC L FLSSC,+Z PTM38870 02D9 D00E 7864 | STO FLEBF PTM38875 02DA C400 0000 7865 | FL3 LD L *-* PTM38880 02DC A01C 7866 | M FLCN+16 =10 PTM38885 02DD 1090 7867 | SLT 16 PTM38890 02DE 8009 7868 | FL4 A FLEBF PTM38895 02DF D480 02DB 7869 | STO I *-6 PTM38900 02E1 70F2 7870 | MDX FL2+1 PTM38905 7871 | * PTM38910 7872 | * B ENTRY PTM38915 7873 | * PTM38920 02E2 C006 7874 | FLBSC LD FLCN SET B SWITCH PTM38925 02E3 D400 03DD 7875 | STO L TABPT+2 PTM38930 02E5 C010 7876 | LD FLCN+13 =FLB2 PTM38935 02E6 D0F4 7877 | STO FL3+1 PTM38940 02E7 70DB 7878 | MDX FLESC+2 PTM38945 7879 | * PTM38950 02E8 0000 7880 | FLEBF DC 0 TEMP STG PTM38955 02E9 1080 7881 | FLCN SLT 0 PTM38960 02EA 004E 7882 | DC /4E (PLUS) PTM38965 02EB 0002 7883 | DC /50-/4E (AMPERSAND-PLUS) PTM38970 02EC 0010 7884 | DC +.--/50 (MINUS-AMPERSAND) PTM38975 02ED 8000 7885 | DC /8000 PTM38980 02EE 00F0 7886 | DC .0 EBCDIC 0 PTM38985 02EF FFD5 7887 | DC .E-.0 EBCDIC E PTM38990 02F0 FFFD 7888 | DC .B-.E EBCDIC B PTM38995 02F1 FF89 7889 | DC ..-.B EBCDIC PERIOD PTM39000 02F2 73FF 7890 | MDX 3 -1 PTM39005 02F3 FFF5 7891 | DC . -.. EBCDIC BLANK PTM39010 02F4 03DB 7892 | DC TABPT PTM39015 02F5 9009 7893 | S X FLEBF-FL4-1 PTM39020 02F6 03DC 7894 | DC TABPT+1 PTM39025 02F7 0001 7895 | DC 1 CONSTANT 1 PTM39030 02F8 0100 7896 | DC 256 CONSTANT 256 PTM39035 02F9 000A 7897 | DC 10 CONSTANT 10 PTM39040 02FA 0005 7898 | DC 5 CONSTANT 5 PTM39045 02FB 00E2 7899 | DC .S EBCDIC S PTM39050 02FC 8009 7900 | A X FLEBF-FL4-1 PTM39055 02FD 7FFF 7901 | DC /7FFF PTM39060 02FE FFFB 7902 | DC -5 PTM39065 7903 | * PTM39070 7904 | * POST-SCAN PROCESSING PTM39075 7905 | * PTM39080 02FF 7780 03DB 7906 | FLFIN MDX I3 TABPT COMPUTE POWER OF 10 MODIF. PTM39085 0301 1080 7907 | SLT 0 MAY SKIP PTM39090 0302 6F00 03DB 7908 | STX L3 TABPT PTM39095 0304 6700 00C0 7909 | LDX L3 64+128 INITIAL BINARY EXPONENT. PTM39100 0306 62FB 7910 | LDX 2 -5 CHECK FOR ZERO MANTISSA PTM39105 0307 C600 03EA 7911 | LD L2 TABPT+15 PTM39110 0309 4C20 030E 7912 | BSC L *+3,Z PTM39115 030B 7201 7913 | MDX 2 +1 PTM39120 030C 70FA 7914 | MDX *-6 PTM39125 030D 7061 7915 | MDX FL010 FLOATING ZERO SPECIFIED 2-8 PTM39130 030E C400 03E5 7916 | FLFNL LD L TABPT+10 SHIFT RIGHT UNTIL PTM39135 0310 4C18 0316 7917 | BSC L *+4,+- LEFT WORD ZERO. PTM39140 0312 4069 7918 | BSI SRT PTM39145 0313 7301 7919 | MDX 3 +1 UPDATE BINARY EXPONENT PTM39150 0314 1080 7920 | SLT 0 MAY SKIP PTM39155 0315 70F8 7921 | MDX FLFNL PTM39160 0316 C400 03E6 7922 | FLFNX LD L TABPT+11 SHIFT LEFT(NORMALIZE) PTM39165 0318 4C28 031E 7923 | BSC L *+4,+Z MANTISSA PTM39170 031A 406E 7924 | BSI SLT PTM39175 031B 73FF 7925 | MDX 3 -1 UPDATE BINARY EXPONENT PTM39180 031C 1080 7926 | SLT 0 MAY SKIP PTM39185 031D 70F8 7927 | MDX FLFNX PTM39190 7928 | * ADJUST MANTISSA AND EXP BY PTM39195 7929 | * POWER OF 10 (E+.) MOD. PTM39200 031E C400 03DB 7930 | LD L TABPT PTM39205 0320 4C08 0327 7931 | BSC L *+5,+ PTM39210 0322 90D4 7932 | S FLCN+14 =1 PTM39215 0323 D400 03DB 7933 | STO L TABPT PTM39220 0325 4032 7934 | BSI MPY MULTIPLY IF EXP(10) PTM39225 0326 70E7 7935 | MDX FLFNL IS POSITIVE PTM39230 0327 4C10 032E 7936 | BSC L FLFEX,- EXIT IF EXP(10) IS ZERO PTM39235 0329 80CD 7937 | A FLCN+14 =1 PTM39240 032A D400 03DB 7938 | STO L TABPT PTM39245 032C 4016 7939 | BSI DIV DIVIDE IF EXP(10) PTM39250 032D 70E0 7940 | MDX FLFNL NEGATIVE PTM39255 7941 | * ASSEMBLE SIGNED MANTISSA AND PTM39260 7942 | * BINARY CHAR. FOR TRANSMISSION PTM39265 032E CC00 03E6 7943 | FLFEX LDD L TABPT+11 PTM39270 0330 6F00 03DF 7944 | STX L3 TABPT+4 PTM39275 0332 1881 7945 | SRT 1 PTM39280 0333 E0C9 7946 | AND FLCN+20 =/7FFF PTM39285 0334 EC00 03DE 7947 | OR L TABPT+3 PTM39290 0336 DC00 03E0 7948 | STD L TABPT+5 PTM39295 0338 C400 03DF 7949 | LD L TABPT+4 PTM39300 033A 4C28 036C 7950 | BSC L FL000,+Z CHECK FOR EXPONENT 2-8 PTM39305 033C 90BB 7951 | S FLCN+15 =256 OVERFLOW AND PTM39310 033D 4C10 036C 7952 | BSC L FL000,- *UNDERFLOW 2-8 PTM39315 033F 4400 025F 7953 | BSI L LDXRS GO RESTO XR1 & XR3 PTM39320 0341 4C00 0000 7954 | BYBY BSC L *-* GO RESTO PHASE 7 PTM39325 7955 | * SUBROUTINE TO DIVIDE 5-PRECISION PTM39330 7956 | * NUMBER IN BUF5 BY 10 PTM39335 0343 0000 7957 | DIV DC 0 ENTRY PTM39340 0344 10A0 7958 | SLT 32 CLEAR AQ PTM39345 0345 62FB 7959 | LDX 2 -5 PTM39350 0346 C600 03EA 7960 | DIVL LD L2 TABPT+15 PTM39355 0348 18D0 7961 | RTE 16 PTM39360 0349 90B0 7962 | S FLCN+17 =5 PTM39365 034A 2002 7963 | LDS 2 TURNS ON CARRY PTM39370 034B 4828 7964 | BSC +Z PTM39375 034C 90B1 7965 | S FLCN+21 =-5 TURNS OFF CARRY PTM39380 034D 2801 7966 | STS DIVC PTM39385 034E A8AA 7967 | D FLCN+16 =10 PTM39390 034F 2000 7968 | DIVC LDS *-* PTM39395 0350 4802 7969 | BSC C PTM39400 0351 809B 7970 | A FLCN+4 =/8000 PTM39405 0352 D600 03EA 7971 | STO L2 TABPT+15 PTM39410 0354 7201 7972 | MDX 2 +1 PTM39415 0355 70F0 7973 | MDX DIVL PTM39420 0356 4C80 0343 7974 | BSC I DIV PTM39425 7975 | * SUBROUTINE TO MPY 5-PRECISION PTM39430 7976 | * NUMBER IN BUF5 BY 10. CONTENTS OF PTM39435 7977 | * MCAR+1 ARE ADDED TO RESULT. PTM39440 0358 0000 7978 | MPY DC 0 ENTRY PTM39445 0359 6205 7979 | LDX 2 +5 PTM39450 035A C600 03E4 7980 | MPYL LD L2 TABPT+9 PTM39455 035C A09C 7981 | M FLCN+16 =10 PTM39460 035D 4828 7982 | BSC +Z PTM39465 035E 809A 7983 | A FLCN+16 =10 PTM39470 035F 8C00 03E2 7984 | AD L TABPT+7 PTM39475 0361 D400 03E3 7985 | STO L TABPT+8 PTM39480 0363 1090 7986 | SLT 16 PTM39485 0364 D600 03E4 7987 | STO L2 TABPT+9 PTM39490 0366 72FF 7988 | MDX 2 -1 PTM39495 0367 70F2 7989 | MDX MPYL PTM39500 0368 C400 03E3 7990 | LD L TABPT+8 PTM39505 036A 4C80 0358 7991 | BSC I MPY PTM39510 7992 | * DECIMAL DATA ERROR PTM39515 036C C08E 7993 | FL000 LD FLCN+18 SYNTAX ERR,INSERT 'S' 2-8 PTM39520 036D 4400 0701 7994 | BSI L ERFLG *IN ERROR FLAG FIELD 2-8 PTM39525 036F 10A0 7995 | FL010 SLT 32 2-8 PTM39530 0370 D400 03DF 7996 | STO L TABPT+4 PTM39535 0372 DC00 03E0 7997 | STD L TABPT+5 PTM39540 0374 D400 03DC 7998 | STO L TABPT+1 PTM39545 0376 D400 03DD 7999 | STO L TABPT+2 PTM39550 0378 C0FF 8000 | LD *-1 PTM39555 0379 D400 03E4 8001 | STO L TABPT+9 PTM39560 037B 70C3 8002 | MDX BYBY-2 GO TO EXIT PTM39565 8003 | * ROUTINE TO SHIFT CONTENTS OF PTM39570 8004 | * BUF5 TO BUF5+4 RIGHT ONE BIT PTM39575 037C 0000 8005 | SRT DC 0 ENTRY PTM39580 037D 62FB 8006 | LDX 2 -5 PTM39585 037E 10A0 8007 | SLT 32 PTM39590 037F C600 03EA 8008 | SRTL LD L2 TABPT+15 PTM39595 0381 18C1 8009 | RTE 1 PTM39600 0382 D600 03EA 8010 | STO L2 TABPT+15 PTM39605 0384 18CF 8011 | RTE 15 PTM39610 0385 7201 8012 | MDX 2 +1 PTM39615 0386 70F8 8013 | MDX SRTL PTM39620 0387 4C80 037C 8014 | BSC I SRT PTM39625 8015 | * ROUTINE TO SHIFT LEFT ONE BIT PTM39630 8016 | * IN 5-PRECISION PTM39635 0389 0000 8017 | SLT DC 0 ENTRY PTM39640 038A 6205 8018 | LDX 2 +5 PTM39645 038B 10A0 8019 | SLT 32 PTM39650 038C C600 03E4 8020 | SLTL LD L2 TABPT+9 PTM39655 038E 18DF 8021 | RTE 31 PTM39660 038F D600 03E4 8022 | STO L2 TABPT+9 PTM39665 0391 108F 8023 | SLT 15 PTM39670 0392 72FF 8024 | MDX 2 -1 PTM39675 0393 70F8 8025 | MDX SLTL PTM39680 0394 4C80 0389 8026 | BSC I SLT PTM39685 8027 | * EXTENDED BINARY CODE MAIN SECTION PTM39690 03DB 8028 | TABPT EQU FLE10 TABLE LOCATION IN PH. 7 PTM39695 03AA 8029 | S7Z BES 20 PATCH AREA PTM39700 03AA 0000 8030 | DC 0 END OF PHASE 7A PTM39705 *SBRKSLS E1 8031 | ASM PROG LINKAGE PHASE V2M08 PTM39710 *** PHASE 8 PROGRAM LINKAGE *** 8033 | *************************************************** PTM39720 8034 | * * PTM39725 8035 | *STATUS-VERSION 2, MODIFICATION 9 * PTM39730 8036 | * * PTM39735 8037 | *FUNCTION/OPERATION- * PTM39740 8038 | * *PHASE 8 PROCESSES THE LIBF, CALL, DSA, LINK, * PTM39745 8039 | * EXIT, EBC, AND DN STATEMENTS. * PTM39750 8040 | * *DEPENDING ON THE OP CODE, AN INDIRECT BRANCH * PTM39755 8041 | * IS MADE THROUGH A BRANCH TABLE TO THE MODULE * PTM39760 8042 | * PREPARED TO PROCESS THAT OP CODE. * PTM39765 8043 | * *FOR THE CALL AND LIBF STATEMENTS, THE OPERAND* PTM39770 8044 | * SUBROUTINE NAME IS COLLECTED AND CONVERTED TO* PTM39775 8045 | * NAME CODE (SCAN). * PTM39780 8046 | * *IN PROCESSING THE DSA STATEMENT, THREE WORDS,* PTM39785 8047 | * WHICH WILL BE FILLED BY THE CORE LOAD * PTM39790 8048 | * BUILDER, ARE RESERVED IN THE PROGRAM. * PTM39795 8049 | * *THE LINK STATEMENT PROCESSING GENERATES FOUR * PTM39800 8050 | * WORDS IN THE OBJECT PROGRAM. WORDS 1 AND 2 * PTM39805 8051 | * ARE A LONG BSI TO THE $LINK ENTRY POINT IN * PTM39810 8052 | * THE SKELETON SUPERVISOR. WORDS 3 AND 4 ARE * PTM39815 8053 | * THE PROGRAM NAME IN NAME CODE. * PTM39820 8054 | * *FOR THE EXIT STATEMENT, A SHORT LDX (TAG O) * PTM39825 8055 | * TO THE $EXIT ENTRY POINT IN THE SKELETON * PTM39830 8056 | * SUPERVISOR IS GENERATED. * PTM39835 8057 | * *THE EBC PROCESSING CAUSES THE NEEDED STORAGE * PTM39840 8058 | * FOR THE OPERAND TO BE RESERVED IN THE OBJECT * PTM39845 8059 | * PROGRAM. * PTM39850 8060 | * * PTM39855 8061 | *ENTRY POINTS- * PTM39860 8062 | * *S8000 - ENTRY FROM PHASE 9 * PTM39865 8063 | * * PTM39870 8064 | *INPUT-N/A * PTM39875 8065 | * * PTM39880 8066 | *OUTPUT * PTM39885 8067 | * * THE CONSTRUCTED OP CODE FOR THE MNEMONIC * PTM39890 8068 | * BEING PROCESSED * PTM39895 8069 | * * PTM39900 8070 | *EXTERNAL RERERENCES- * PTM39905 8071 | * *SUBROUTINES- * PTM39910 8072 | * * B4HEX * PTM39915 8073 | * * DFOUT * PTM39920 8074 | * * ERFLG * PTM39925 8075 | * * GETS5 * PTM39930 8076 | * * GETS6 * PTM39935 8077 | * * GETS7 * PTM39940 8078 | * * GTS8A * PTM39945 8079 | * * GTS12 * PTM39950 8080 | * * LDLBL * PTM39955 8081 | * * LDXRS * PTM39960 8082 | * * SCAN * PTM39965 8083 | * *DCOM/COMMA- * PTM39970 8084 | * $EXIT * PTM39975 8085 | * $LINK * PTM39980 8086 | * $PHSE * PTM39985 8087 | * * PTM39990 8088 | *EXITS- * PTM39995 8089 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM40000 8090 | * *ERROR - ERFLG SUBROUTINE * PTM40005 8091 | * * PTM40010 8092 | *TABLES/WORK AREAS- N/A * PTM40015 8093 | * * PTM40020 8094 | *ATTRIBUTES-REUSABLE * PTM40025 8095 | * * PTM40030 8096 | *NOTES-N/A * PTM40035 8097 | * * PTM40040 8098 | *************************************************** PTM40045 8099 | * PTM40050 0280 8100 | ORG OVLAY PTM40055 0280 0195 8101 | DC S8Z-S8A WORD COUNT PHASE 8 PTM40060 0281 00E1 8102 | DC /E1 SLET ID OF PHASE 8 2-8 PTM40065 8103 | * PTM40070 0282 4C00 04C1 8104 | S8A BSC L GETS5 FETCH PH 5 2-8 PTM40075 0284 4C00 04C3 8105 | BSC L GETS6 2-8 PTM40080 0286 4C00 04C5 8106 | BSC L GETS7 2-8 PTM40085 0288 4C00 0290 8107 | BSC L S8000 BEGIN EXECUTION, PHASE 8 PTM40090 028A 4C00 04CC 8108 | BSC L GTS8A FETCH PH 8A 2-8 PTM40095 028C 4C00 04CE 8109 | BSC L GTS12 FETCH PH 12 2-8 PTM40100 028E 4C00 04C7 8110 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM40105 8111 | * PTM40110 0290 C013 8112 | S8000 LD S8030 INDICATE THAT PHASE 8 OF PTM40115 0291 D400 0078 8113 | STO L $PHSE ASSEMBLER IS IN CONTROL PTM40120 0293 C050 8114 | LD AOPER PREVENT FURTHER 2-9 PTM40125 0294 D400 04A7 8115 | STO L OPVND *PHASE 2 MNEMONICS 2-8 PTM40130 0296 C32C 8116 | LD 3 OPCNT-X3 PTM40135 0297 180C 8117 | SRA 12 USE BITS 0-3 OF OPCNT PTM40140 0298 D001 8118 | STO S8010+1 AS DISPLACEMENT FOR PTM40145 0299 6600 0000 8119 | S8010 LDX L2 *-* TRANSFER VECTOR PTM40150 029B 4E80 029D 8120 | BSC I2 S8020 BRANCH TO PH. 8 SUBSECTION PTM40155 8121 | * PTM40160 8122 | * OP CODE BRANCH TBL PTM40165 8123 | * PTM40170 029D 02A5 8124 | S8020 DC LIBF8 +0 LIBF PTM40175 029E 02AE 8125 | DC CALL8 +1 CALL PTM40180 029F 030E 8126 | DC DSA88 +2 DSA PTM40185 02A0 0344 8127 | DC LINK8 +3 LINK PTM40190 02A1 0378 8128 | DC EXIT8 +4 EXIT PTM40195 02A2 038E 8129 | DC EBC88 +5 EBC PTM40200 02A3 03D7 8130 | DC DN888 +6 DN PTM40205 8131 | * PTM40210 02A4 00E1 8132 | S8030 DC /E1 SLET ID OF PHASE 8 2-8 PTM40215 8133 | * PTM40220 02A5 C040 8134 | LIBF8 LD CLCN RELOC. IND'S = 20 PTM40225 02A6 D065 8135 | STO INDBT PTM40230 02A7 C3F4 8136 | LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM40235 02A8 4C20 02B7 8137 | BSC L CA2ND,Z BRANCH IF PASS 2 PTM40240 02AA 7401 0213 8138 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40245 02AC 1000 8139 | NOP (MAY SKIP) PTM40250 02AD 7035 8140 | MDX CLLXT PTM40255 8141 | * PTM40260 02AE C039 8142 | CALL8 LD CLCN+2 RELOC. IND'S = 30 PTM40265 02AF D05C 8143 | STO INDBT RELOCATION CODE. PTM40270 02B0 C3F4 8144 | CALLC LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM40275 02B1 4C20 02B7 8145 | BSC L CA2ND,Z BRANCH IF PASS 2 PTM40280 02B3 7402 0213 8146 | MDX L ADCOW,2 INCREMENT ADDR CTR BY 2 PTM40285 02B5 1000 8147 | NOP (MAY SKIP) PTM40290 02B6 702C 8148 | MDX CLLXT PTM40295 8149 | * PTM40300 02B7 4032 8150 | CA2ND BSI CLLCT GET SUBROUTINE NAME PTM40305 02B8 4C20 02C5 8151 | BSC L COP,Z BRANCH IF NAME OK PTM40310 02BA 7401 0213 8152 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40315 02BC 1000 8153 | NOP (MAY SKIP) PTM40320 02BD C04E 8154 | LD INDBT 2ND INCREMENT OF ADDR CTR PTM40325 02BE F027 8155 | EOR CLCN REQ. IF MNEMONIC IS CALL PTM40330 02BF 4C18 02E3 8156 | BSC L CLLXT,+- BRANCH IF LIBF PTM40335 02C1 7401 0213 8157 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40340 02C3 1000 8158 | NOP (MAY SKIP) PTM40345 02C4 701E 8159 | MDX CLLXT PTM40350 8160 | * PTM40355 02C5 7109 8161 | COP MDX 1 +9 XR1 POINTS TO COL. 9 PTM40360 02C6 C045 8162 | LD INDBT PTM40365 02C7 D322 8163 | STO 3 TRWRD+1-X3 PTM40370 02C8 180E 8164 | SRA 14 OUTPUT '2' (LIBF), OR PTM40375 02C9 801D 8165 | A CLCN+1 '3' (CALL) TO COL. 6 PTM40380 02CA D1FD 8166 | STO 1 -3 PTM40385 02CB C323 8167 | LD 3 SYMBF-X3 OUTPUT 1ST WORD OF NAME PTM40390 02CC D321 8168 | STO 3 TRWRD-X3 IN HEX TO COLUMNS 9-12, PTM40395 02CD 4400 06FA 8169 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM40400 02CF 4400 0883 8170 | BSI L DFOUT *DSF OUTPUT 2-8 PTM40405 02D1 C03A 8171 | LD INDBT INCREMENT OF ADDR CTR IS PTM40410 02D2 F013 8172 | EOR CLCN REQ. IF MNEMONIC IS CALL PTM40415 02D3 4C18 02D8 8173 | BSC L S8040,+- BRANCH IF LIBF PTM40420 02D5 7401 0213 8174 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40425 02D7 1000 8175 | NOP (MAY SKIP) PTM40430 02D8 C00E 8176 | S8040 LD CLCN+1 INSERT '0' PTM40435 02D9 D1FA 8177 | STO 1 -6 IN COLUMN 7 PTM40440 02DA C324 8178 | LD 3 SYMBF+1-X3 OUTPUT 2ND WORD OF NAME PTM40445 02DB D321 8179 | STO 3 TRWRD-X3 IN HEX TO COLS. 13-16, PTM40450 02DC 4400 06FA 8180 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM40455 02DE 4400 0883 8181 | BSI L DFOUT *DSF OUTPUT 2-8 PTM40460 02E0 7401 0213 8182 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40465 02E2 1000 8183 | NOP (MAY SKIP) PTM40470 8184 | * PTM40475 02E3 703B 8185 | CLLXT MDX S8050 GO GET NEXT RCD 2-8 PTM40480 8186 | * PTM40485 02E4 048C 8187 | AOPER DC OPERR OP CODE ERR SUBR ADDR 2-9 PTM40490 02E5 0603 8188 | S8042 DC COLXT SCAN MODIFIER NO. 6 2-8 PTM40495 02E6 8000 8189 | CLCN DC /8000 PTM40500 02E7 00F0 8190 | DC .0 PTM40505 02E8 C000 8191 | DC /C000 PTM40510 02E9 4000 8192 | DC /4000 PTM40515 8193 | * THIS SUBROUTINE COLLECTS THE CHAR PTM40520 8194 | * STRING BEGINNING IN COL. 35, CHECKS PTM40525 8195 | * TO SEE IF EACH CHAR IS A VALID NAME PTM40530 8196 | * CHAR, AND PACKS THOSE CHARS COLLECTED PTM40535 8197 | * (UP TO 5) INTO STANDARD NAME FORMAT. PTM40540 8198 | * IF NO ERRORS ARE DETECTED, THE ACC PTM40545 8199 | * IS NON-ZERO, AND THE 2-WORD NAME PTM40550 8200 | * RESIDES IN THE 2-WORD BUFFER CLBUF. PTM40555 8201 | * ALL ERRORS DETECTED ARE DETECTED PTM40560 8202 | * IN SCAN (PHASE 9). PTM40565 8203 | * PTM40570 02EA 0000 8204 | CLLCT DC 0 COLLECT NAME PTM40575 02EB C0F9 8205 | LD S8042 2-8 PTM40580 02EC D400 05C9 8206 | STO L SYDF1 INHIBIT SYM TBL SEARCH 2-8 PTM40585 02EE 6600 052B 8207 | LDX L2 FERR1 2-8 PTM40590 02F0 72FF 8208 | MDX 2 -1 ACCEPT ONLY SYMBOLIC PTM40595 02F1 6E00 057A 8209 | STX L2 GNRT1 *OPERAND 2-8 PTM40600 8210 | * * PTM40605 02F3 C016 8211 | LD COLCT DO NOT ALLOW LEADING PLUS, PTM40610 02F4 D400 051B 8212 | STO L NOP1 *MINUS,COMMA,OR BLANK 2-8 PTM40615 02F6 4400 04E1 8213 | BSI L SCAN COLLECT NAME TO SYMBF 2-8 PTM40620 02F8 6600 05C9 8214 | LDX L2 SYDF1 2-8 PTM40625 02FA 7201 8215 | MDX 2 +1 PTM40630 02FB 6E00 05C9 8216 | STX L2 SYDF1 RESTO THE SCAN TO 2-8 PTM40635 02FD 6600 057A 8217 | LDX L2 GNRT1 *NORMAL STATUS 2-8 PTM40640 02FF 7201 8218 | MDX 2 +1 PTM40645 0300 6E00 057A 8219 | STX L2 GNRT1 2-8 PTM40650 0302 C008 8220 | LD COLCT+1 PTM40655 0303 D400 051B 8221 | STO L NOP1 2-8 PTM40660 0305 4400 025F 8222 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM40665 0307 C323 8223 | LD 3 SYMBF-X3 ZERO IF ANY ERROR IN NAME PTM40670 0308 4C80 02EA 8224 | BSC I CLLCT PTM40675 8225 | * PTM40680 030A 1080 8226 | COLCT SLT 0 ABNORMAL COND FOR SCAN PTM40685 030B 1880 8227 | SRT 0 NORMAL COND FOR SCAN PTM40690 030C 0000 8228 | INDBT DC 0 PTM40695 030D 0000 8229 | DC 0 PTM40700 030E C3F4 8230 | DSA88 LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM40705 030F 4C20 0315 8231 | BSC L DS2ND,Z BRANCH IF PASS 2 PTM40710 0311 7403 0213 8232 | MDX L ADCOW,3 INCREMENT ADDR CTR BY 3 PTM40715 0313 1000 8233 | NOP (MAY SKIP) PTM40720 0314 700A 8234 | MDX S8050 PTM40725 8235 | * PTM40730 0315 C0D2 8236 | DS2ND LD CLCN+2 RELOC CODE FOR WORD 1 IS 3 PTM40735 0316 D0F5 8237 | STO INDBT FOR TWO WORD PTM40740 0317 C0D1 8238 | LD CLCN+3 RELOC CODE FOR WORD 2 IS 1 PTM40745 0318 D0F4 8239 | STO INDBT+1 PTM40750 0319 40D0 8240 | BSI CLLCT COLLECT NAME PTM40755 031A 4C20 0323 8241 | BSC L DSA2,Z BRANCH IF NAME OK PTM40760 031C 7403 0213 8242 | MDX L ADCOW,3 INCREMENT ADDR CTR BY 3 PTM40765 031E 1000 8243 | NOP (MAY SKIP) PTM40770 031F 4400 073A 8244 | S8050 BSI L LDLBL LD LABEL,GET NEXT RCD 2-8 PTM40775 0321 4C00 045D 8245 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM40780 8246 | * PTM40785 0323 7109 8247 | DSA2 MDX 1 +9 XR1 POINTS TO COL. 9 PTM40790 0324 C0E7 8248 | LD INDBT SAVE WORD 1 PTM40795 0325 18D0 8249 | RTE 16 INDICATOR BITS PTM40800 0326 C0C1 8250 | LD CLCN+2 PTM40805 0327 180E 8251 | SRA 14 OUTPUT '3' PTM40810 0328 80BE 8252 | A CLCN+1 TO COLUMN 6 PTM40815 0329 D1FD 8253 | STO 1 -3 PTM40820 032A C323 8254 | LD 3 SYMBF-X3 PTM40825 032B DB21 8255 | STD 3 TRWRD-X3 OUTPUT WORD 1 OF NAME IN PTM40830 032C 4400 06FA 8256 | BSI L B4HEX *HEX,AND BINARY TO 2-8 PTM40835 032E 4400 0883 8257 | BSI L DFOUT *DSF OUTPUT 2-8 PTM40840 0330 7401 0213 8258 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM40845 0332 1000 8259 | NOP (MAY SKIP) PTM40850 0333 C0D9 8260 | LD INDBT+1 SAVE WORD 2 PTM40855 0334 18D0 8261 | RTE 16 INDICATOR BITS PTM40860 0335 C0B3 8262 | LD CLCN+3 PTM40865 0336 180E 8263 | SRA 14 OUTPUT '1' PTM40870 0337 80AF 8264 | A CLCN+1 TO COLUMN 7 PTM40875 0338 D1FA 8265 | STO 1 -6 PTM40880 0339 C324 8266 | LD 3 SYMBF+1-X3 OUTPUT WORD 2 OF NAME PTM40885 033A DB21 8267 | STD 3 TRWRD-X3 IN HEX TO COLS. 13-16, PTM40890 033B 4400 06FA 8268 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM40895 033D 4400 0883 8269 | BSI L DFOUT *DSF OUTPUT 2-8 PTM40900 033F 7402 0213 8270 | MDX L ADCOW,2 INCRE ADDR CNTR BY 2 PTM40905 0341 1000 8271 | NOP (MAY SKIP) PTM40910 0342 1000 8272 | NOP (MAY SKIP) PTM40915 0343 70DB 8273 | MDX S8050 PTM40920 8274 | * PTM40925 0344 C3F4 8275 | LINK8 LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM40930 0345 4C20 034B 8276 | BSC L LK2ND,Z BRANCH IF PASS 2 PTM40935 0347 7404 0213 8277 | S8060 MDX L ADCOW,4 INCREMENT ADDR CTR BY 4 PTM40940 0349 1000 8278 | NOP (MAY SKIP) PTM40945 034A 70D4 8279 | MDX S8050 PTM40950 8280 | * PTM40955 034B 409E 8281 | LK2ND BSI CLLCT COLLECT LINK NAME PTM40960 034C 4C20 034F 8282 | BSC L LINK2,Z BRANCH IF NAME OK PTM40965 034E 70F8 8283 | MDX S8060 PTM40970 8284 | * PTM40975 034F 7109 8285 | LINK2 MDX 1 +9 XR1 POINTS TO COL. 9 PTM40980 0350 C026 8286 | LD LNKCN+2 OUTPUT '0' PTM40985 0351 D1FD 8287 | STO 1 -3 TO COLUMN 6 PTM40990 0352 C022 8288 | LD LNKCN OUTPUT 1ST WORD OF 'LINK' PTM40995 0353 D321 8289 | STO 3 TRWRD-X3 IN NAME FORMAT TO PTM41000 0354 4400 0883 8290 | BSI L DFOUT *DSF OUTPUT 2-8 PTM41005 0356 7401 0213 8291 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41010 0358 1000 8292 | NOP (MAY SKIP) PTM41015 0359 C01D 8293 | LD LNKCN+2 OUTPUT '0' PTM41020 035A D1FE 8294 | STO 1 -2 TO COLUMN 7 PTM41025 035B C01A 8295 | LD LNKCN+1 OUTPUT 2ND WORD OF 'LINK' PTM41030 035C D321 8296 | STO 3 TRWRD-X3 IN NAME FORMAT TO PTM41035 035D 4400 0883 8297 | BSI L DFOUT *DSF OUTPUT 2-8 PTM41040 035F 7401 0213 8298 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41045 0361 1000 8299 | NOP (MAY SKIP) PTM41050 0362 C323 8300 | LD 3 SYMBF-X3 OUTPUT WORD 1 OF PTM41055 0363 D321 8301 | STO 3 TRWRD-X3 PROGRAM NAME IN HEX TO PTM41060 0364 4400 06FA 8302 | BSI L B4HEX *COLS. 9-12,AND IN BINARY2-8PTM41065 0366 4400 0883 8303 | BSI L DFOUT *TO DSF OUTPUT 2-8 PTM41070 0368 7401 0213 8304 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41075 036A 1000 8305 | NOP (MAY SKIP) PTM41080 036B C324 8306 | LD 3 SYMBF+1-X3 OUTPUT WORD 2 OF PTM41085 036C D321 8307 | STO 3 TRWRD-X3 PROGRAM NAME IN HEX PTM41090 036D 4400 06FA 8308 | BSI L B4HEX *TO COL. 13-16,AND IN 2-8 PTM41095 036F 4400 0883 8309 | BSI L DFOUT *BINARY TO DSF OUTPUT 2-8 PTM41100 0371 7401 0213 8310 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41105 0373 1000 8311 | NOP (MAY SKIP) PTM41110 0374 70AA 8312 | MDX S8050 PTM41115 8313 | * PTM41120 0375 4400 0039 8314 | LNKCN BSI L $LINK CALL LINK DATA PTM41125 0377 00F0 8315 | DC .0 PTM41130 0378 C3F4 8316 | EXIT8 LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM41135 0379 4C20 037F 8317 | BSC L EX2ND,Z BRANCH IF PASS 2 PTM41140 037B 7401 0213 8318 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41145 037D 1000 8319 | NOP (MAY SKIP) PTM41150 037E 70A0 8320 | S8070 MDX S8050 PTM41155 8321 | * PTM41160 037F 71E6 8322 | EX2ND MDX 1 -26 XR1 POINTS TO COL 9 PTM41165 0380 C00B 8323 | LD EXCN OUTPUT '0' PTM41170 0381 D1FD 8324 | STO 1 -3 TO COLUMN 6 PTM41175 0382 C00A 8325 | LD EXCN+1 OUTPUT CALL EXIT INST IN PTM41180 0383 D321 8326 | STO 3 TRWRD-X3 HEX TO COLS. 9-12, PTM41185 0384 4400 06FA 8327 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM41190 0386 4400 0883 8328 | BSI L DFOUT *DSF OUTPUT TO 2-8 PTM41195 0388 7401 0213 8329 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41200 038A 1000 8330 | NOP (MAY SKIP) PTM41205 038B 70F2 8331 | MDX S8070 PTM41210 8332 | * PTM41215 038C 00F0 8333 | EXCN DC .0 PTM41220 038D 6038 8334 | LDX 0 $EXIT CALL EXIT DATA PTM41225 038E C100 8335 | EBC88 LD 1 0 CHECK COL. 35 FOR PTM41230 038F 403E 8336 | BSI EBCC LEFT DELIMITER (.) PTM41235 0390 4C18 039C 8337 | BSC L S8080,+- BRANCH IF DELIMITER OK PTM41240 0392 C03F 8338 | EBCR LD EBCN SYNTAX ERROR. 'S' INTO PTM41245 0393 4400 0701 8339 | BSI L ERFLG *ERR FLAG FLD OF LISTING2-8 PTM41250 0395 7412 0213 8340 | MDX L ADCOW,18 ASSIGN MAXIMUM LENGTH PTM41255 0397 1000 8341 | NOP (MAY SKIP) PTM41260 0398 4400 073A 8342 | EBX BSI L LDLBL LD LABEL,GET NEXT RCD 2-8 PTM41265 039A 4C00 045D 8343 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM41270 039C 6223 8344 | S8080 LDX 2 +35 EBC SCAN LOOP COUNTER PTM41275 039D C124 8345 | EBLP LD 1 +36 CHECK INPUT STRING FOR PTM41280 039E 402F 8346 | BSI EBCC RIGHT DELIMITER. (COL. 71) PTM41285 039F 4C18 03A5 8347 | BSC L EBDL,+- BRANCH IF DELIMITER FOUND PTM41290 03A1 71FF 8348 | MDX 1 -1 POINT TO NEXT COL. TO LEFT PTM41295 03A2 72FF 8349 | MDX 2 -1 DECREMENT LOOP COUNTER PTM41300 03A3 70F9 8350 | MDX EBLP CONTINUE IF CTR NOT ZERO PTM41305 03A4 70ED 8351 | MDX EBCR DELIMITER NOT FOUND PTM41310 8352 | * PTM41315 03A5 C02E 8353 | EBDL LD EBCN+2 REPLACE RIGHT DELIMITER PTM41320 03A6 D124 8354 | STO 1 +36 WITH BLANK (TEMP) PTM41325 03A7 6A2E 8355 | STX 2 EBBF XR2 = NO. OF CHARS PTM41330 03A8 C02D 8356 | LD EBBF BETWEEN DELIMITERS. PTM41335 03A9 802B 8357 | A EBCN+3 ADJUST THIS NO. TO NEXT PTM41340 03AA 1801 8358 | SRA 1 EVEN NO. IF ODD, AND PTM41345 03AB D007 8359 | STO EBXR2+1 DIVIDE BY 2 FOR WORD COUNT PTM41350 03AC 4400 025F 8360 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM41355 03AE 7109 8361 | MDX 1 +9 XR1 POINTS TO COL. 9 PTM41360 03AF C026 8362 | LD EBBF OUTPUT CHAR. COUNT IN HEX PTM41365 03B0 4400 06FA 8363 | BSI L B4HEX *TO COLS. 9-12 2-8 PTM41370 03B2 6600 0000 8364 | EBXR2 LDX L2 *-* INITLZ LOOP COUNTER PTM41375 03B4 7117 8365 | MDX 1 +23 XR1 POINTS TO COL. 36 PTM41380 03B5 C101 8366 | EBPCK LD 1 +1 PTM41385 03B6 1888 8367 | SRT 8 PACK INPUT CHARS TWO PTM41390 03B7 C100 8368 | LD 1 0 CHARS PER WORD PTM41395 03B8 1088 8369 | SLT 8 PTM41400 03B9 18D0 8370 | RTE 16 SAVE DATA WORD PTM41405 03BA C3F4 8371 | LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM41410 03BB 4C18 03C1 8372 | BSC L S8090,+- BRANCH IF PASS 1 PTM41415 03BD 18D0 8373 | RTE 16 PTM41420 03BE D321 8374 | STO 3 TRWRD-X3 OUTPUT DATA WORD IN PTM41425 03BF 4400 0883 8375 | BSI L DFOUT *IN BINARY TO DSF O/P 2-8 PTM41430 03C1 7401 0213 8376 | S8090 MDX L ADCOW,1 INCREMENT ADDR TO CTR BY 1 PTM41435 03C3 1000 8377 | NOP (MAY SKIP) PTM41440 03C4 7102 8378 | MDX 1 +2 POINT TO NEXT 2 INPUT CHARS PTM41445 03C5 72FF 8379 | MDX 2 -1 DECREMENT LOOP COUNTER PTM41450 03C6 70EE 8380 | MDX EBPCK CONTINUE IF CTR NON-ZERO PTM41455 8381 | * PTM41460 03C7 4400 025F 8382 | BSI L LDXRS RELOAD REGISTERS 1,3 PTM41465 03C9 7580 03D6 8383 | MDX I1 EBBF INCREMENT 1 BY CHAR COUNT PTM41470 03CB C007 8384 | LD EBCN+1 RESTORE RIGHT DELIMITER PTM41475 03CC D124 8385 | STO 1 +36 PREVIOUSLY CHANGED TO BLANK PTM41480 03CD 70CA 8386 | MDX EBX PTM41485 8387 | * PTM41490 03CE 0000 8388 | EBCC DC 0 PTM41495 03CF 9003 8389 | S EBCN+1 PTM41500 03D0 4C80 03CE 8390 | BSC I EBCC PTM41505 03D2 00E2 8391 | EBCN DC .S EBCDIC S PTM41510 03D3 004B 8392 | DC /4B EBCDIC . PTM41515 03D4 0040 8393 | DC . EBCDIC BLANK PTM41520 03D5 0001 8394 | DC 1 CONSTANT 1 PTM41525 03D6 0000 8395 | EBBF DC 0 TEMP SAVE AREA PTM41530 8396 | * PTM41535 03D7 C3F4 8397 | DN888 LD 3 PASS-X3 DETERMINE IF PASS 1 OR 2 PTM41540 03D8 4C20 03E1 8398 | BSC L S8100,Z BRANCH IF PASS 2 PTM41545 03DA 7402 0213 8399 | S8095 MDX L ADCOW,2 INCREMENT ADDR CTR BY 2 PTM41550 03DC 1000 8400 | NOP (MAY SKIP) PTM41555 03DD 4400 073A 8401 | S8098 BSI L LDLBL LD LABEL,GET NEXT RCD 2-8 PTM41560 03DF 4C00 045D 8402 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM41565 8403 | * PTM41570 03E1 4400 02EA 8404 | S8100 BSI L CLLCT COLLECT NAME PTM41575 03E3 4C18 03DA 8405 | BSC L S8095,+- BRANCH IF NAME NOT OK PTM41580 03E5 7109 8406 | MDX 1 +9 XR1 POINTS TO COL. 9 PTM41585 03E6 C015 8407 | LD S8110 PTM41590 03E7 D1FD 8408 | STO 1 -3 OUTPUT 'O' TO PTM41595 03E8 D1FE 8409 | STO 1 -2 COLS. 6-7 PTM41600 03E9 C323 8410 | LD 3 SYMBF-X3 OUTPUT WORD 1 OF CONSTANT PTM41605 03EA D321 8411 | STO 3 TRWRD-X3 IN HEX TO COLS. 9-12, PTM41610 03EB 4400 06FA 8412 | BSI L B4HEX *AND IN BINARY TO 2-8 PTM41615 03ED 4400 0883 8413 | BSI L DFOUT *DSF OUTPUT 2-8 PTM41620 03EF 7401 0213 8414 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41625 03F1 1000 8415 | NOP (MAY SKIP) PTM41630 03F2 C324 8416 | LD 3 SYMBF+1-X3 OUTPUT WORD 2 OF PTM41635 03F3 D321 8417 | STO 3 TRWRD-X3 CONSTANT IN HEX TO PTM41640 03F4 4400 06FA 8418 | BSI L B4HEX *COLS. 13-16,AND IN 2-8 PTM41645 03F6 4400 0883 8419 | BSI L DFOUT *BINARY TO DSF O/P 2-8 PTM41650 03F8 7401 0213 8420 | MDX L ADCOW,1 INCREMENT ADDR CTR BY 1 PTM41655 03FA 1000 8421 | NOP (MAY SKIP) PTM41660 03FB 70E1 8422 | MDX S8098 PTM41665 8423 | * PTM41670 03FC 00F0 8424 | S8110 DC .0 EBCDIC ZERO PTM41675 03FD 8425 | BSS /0417-* PATCH AREA 2-9 PTM41680 0417 0000 8426 | S8Z DC 0 PTM41685 *SBRKSLS E2 8427 | ASM DMES PROCESSING PHASE V2M08 PTM41690 ***PHASE 8A DEFINE MESSAGE*** 8429 | *************************************************** PTM41700 8430 | * * PTM41705 8431 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM41710 8432 | * * PTM41715 8433 | *FUNCTION/OPERATION- * PTM41720 8434 | * *PHASE 8A PROCESSES THE DMES STATEMENT. * PTM41725 8435 | * *THE DMES PROCESSING IS PERFORMED BY A * PTM41730 8436 | * SCANNING SUBROUTINE AND A CONVERSION * PTM41735 8437 | * SUBROUTINE. * PTM41740 8438 | * *THE SCANNING SUBROUTINE SCANS AND * PTM41745 8439 | * EVALUATES THE OPERAND FIELD, ONE * PTM41750 8440 | * CHARACTER AT A TIME. ON THE BASIS OF * PTM41755 8441 | * THE TAG FIELD CONTENTS, A BRANCH IS MADE* PTM41760 8442 | * TO THE CONVERSION SUBROUTINE TO CONVERT * PTM41765 8443 | * THE EVALUATED CHARACTER TO THE DEVICE * PTM41770 8444 | * CODE REQUESTED. IF THE TAG FIELD HAS * PTM41775 8445 | * ANY VALUE OTHER THAN BLANK, ZERO, OR * PTM41780 8446 | * ONE, THE DEVICE IS ASSUMED TO BE THE * PTM41785 8447 | * 1132 PRINTER AND THE CONVERSION IS * PTM41790 8448 | * SKIPPED, LEAVING THE OPERAND FIELD IN * PTM41795 8449 | * EBCDIC. THE CONTENTS OF THE OPERAND * PTM41800 8450 | * FIELD ARE PACKED AND SAVED IN THE PHASE * PTM41805 8451 | * 8A BUFFER AND, IN PASS 2, ARE PRINTED * PTM41810 8452 | * ONE WORD AT A TIME. * PTM41815 8453 | * *THE CONVERSION SUBROUTINE CONTAINS A * PTM41820 8454 | * TABLE OF PACKED CONSOLE PRINTER CODES * PTM41825 8455 | * AND A TABLE OF PACKED 1403 PRINTER * PTM41830 8456 | * CODES. THE CONVERSION IS PERFORMED * PTM41835 8457 | * USING AN ALGORITHM. * PTM41840 8458 | * * PTM41845 8459 | *ENTRY POINTS- * PTM41850 8460 | * * DMESA - ENTRY FROM PHASE 9 * PTM41855 8461 | * * PTM41860 8462 | *INPUT-N/A * PTM41865 8463 | * * PTM41870 8464 | *OUTPUT- * PTM41875 8465 | * * CONVERTED MESSAGE * PTM41880 8466 | * * PTM41885 8467 | *EXTERNAL RERERENCES- * PTM41890 8468 | * *SUBROUTINES- * PTM41895 8469 | * * B4HEX * PTM41900 8470 | * * DFOUT * PTM41905 8471 | * * ERFLG * PTM41910 8472 | * * GETS5 * PTM41915 8473 | * * GETS6 * PTM41920 8474 | * * GETS7 * PTM41925 8475 | * * GETS8 * PTM41930 8476 | * * GTS12 * PTM41935 8477 | * * LDLBL * PTM41940 8478 | * * LDXRS * PTM41945 8479 | * *DCOM/COMMA- * PTM41950 8480 | * $PHSE * PTM41955 8481 | * * PTM41960 8482 | *EXITS- * PTM41965 8483 | * *NORMAL - LDLBL SUBROUTINE TO GET NEXT RECORD * PTM41970 8484 | * *ERROR - ERFLG SUBROUTINE * PTM41975 8485 | * * PTM41980 8486 | *TABLES/WORK AREAS- N/A * PTM41985 8487 | * * PTM41990 8488 | *ATTRIBUTES-REUSABLE * PTM41995 8489 | * * PTM42000 8490 | *NOTES-N/A * PTM42005 8491 | * * PTM42010 8492 | *************************************************** PTM42015 8493 | * PTM42020 0280 8494 | ORG OVLAY PTM42025 8495 | * PTM42030 8496 | * PROCESS PSEUDO-OP CODE PTM42035 0280 01D7 8497 | DC S8AZ-S8AA PTM42040 0281 00E2 8498 | DC /E2 SLET ID OF PHASE 8A 2-8 PTM42045 0282 4C00 04C1 8499 | S8AA BSC L GETS5 FETCH PH 5 2-8 PTM42050 0284 4C00 04C3 8500 | BSC L GETS6 FETCH PH 6 2-8 PTM42055 0286 4C00 04C5 8501 | BSC L GETS7 FETCH PH 7 2-8 PTM42060 0288 4C00 04CA 8502 | BSC L GETS8 FETCH PH 8 2-8 PTM42065 028A 4C00 0293 8503 | BSC L DMESA GO TO XEQ PHASE 8A PTM42070 028C 4C00 04CE 8504 | BSC L GTS12 FETCH PH 12 2-8 PTM42075 028E 4C00 04C7 8505 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM42080 0290 00E2 8506 | DMKE2 DC /00E2 PHASE ID 2-10 PTM42085 0291 048C 8507 | DMK00 DC OPERR ERROR 2-10 PTM42090 0292 00F0 8508 | DMK01 DC .0 EBCDIC ZERO 2-10 PTM42095 0293 C0FC 8509 | DMESA LD DMKE2 SET PH8A ID 2-10 PTM42100 0294 D400 0078 8510 | STO L $PHSE * FOR PHASE IN CONTROL 2-10 PTM42105 0296 D400 0317 8511 | STO L DMS30 SW FOR END ACTION 2-10 PTM42110 0298 C0F8 8512 | LD DMK00 PREVENT FURTHER 2-9 PTM42115 0299 D400 04A7 8513 | STO L OPVND *PHASE 2 MNEMONICS 2-9 PTM42120 029B C3CF 8514 | LD 3 ASSAD-X3 IF THIS IS NOT THE FIRST2-9 PTM42125 8515 | *ENTR OF PH8A,DMT04 IS SAVED IN ASSAD 2-9 PTM42130 029C 1008 8516 | SLA 8 CHECK IF FIRST ENTR 2-9 PTM42135 029D 4C20 02A2 8517 | BSC L ARND,Z BRANCH IF FIRST ENTR 2-9 PTM42140 029F C3CF 8518 | LD 3 ASSAD-X3 OTHERWISE,RESTORE 2-9 PTM42145 02A0 D400 0324 8519 | STO L DMT04 *OUTPUTWORD 2-9 PTM42150 02A2 1010 8520 | ARND SLA 16 CLEAR ACC 2-9 PTM42155 02A3 D07E 8521 | STO DMT02 NO CONVERT SWITCH 2-9 PTM42160 02A4 D400 0325 8522 | STO L DMT05 REPEAT CHAR FLAG PTM42165 02A6 C1FE 8523 | LD 1 -2 DEVICE CODE PTM42170 02A7 90EA 8524 | S DMK01 .0. PTM42175 02A8 4C18 02C5 8525 | BSC L DMS01,+- BRANCH DEVICE CODE OK PTM42180 02AA 906A 8526 | S DMK02 .1.-.0. PTM42185 02AB 4C18 02C5 8527 | BSC L DMS01,+- BR DEVICE CDE OK PTM42190 02AD 9067 8528 | S DMK15 .2.-.1. 2-10 PTM42195 02AE 4C18 02C4 8529 | BSC L S8MT1+1,+- BR ON DEV CODE 2 2-10 PTM42200 02B0 9065 8530 | S DMK03 . .-.2. 2-10 PTM42205 02B1 4C18 02C5 8531 | BSC L DMS01,+- BR TO SET CONVERT SW PTM42210 02B3 10A0 8532 | SLT 32 CLEAR EXTENSION 2-10 PTM42215 02B4 C1FE 8533 | LD 1 -2 ADD SYMBOLIC TAG CHAR 2-8 PTM42220 02B5 100A 8534 | SLA 10 *TO PACKED BLANKS 2-8 PTM42225 02B6 1802 8535 | SRA 2 *TO FORM SYMBOL NAME 2-8 PTM42230 02B7 DB23 8536 | STD 3 SYMBF-X3 SET SYMBOL NAME 2-8 PTM42235 02B8 4400 08C6 8537 | BSI L P9300 SEARCH FOR SYMBOLIC TAG 2-8 PTM42240 02BA 7008 8538 | MDX S8MT1 2-8 PTM42245 02BB 8539 | S8MT2 EQU * SYM FOUND-VALUE IN ACC 2-8 PTM42250 02BB 4C28 02C3 8540 | BSC L S8MT1,Z+ BR-VALUE NEGATIVE 2-8 PTM42255 02BD 9057 8541 | S S8MT4 2-8 PTM42260 02BE 4C30 02C3 8542 | BSC L S8MT1,Z- BR-VALUE ABOVE 1 2-8 PTM42265 02C0 7123 8543 | MDX 1 +35 RESET XR1 2-8 PTM42270 02C1 8053 8544 | A S8MT4 FETCH VALUE 2-8 PTM42275 02C2 7004 8545 | MDX S8MT5 BR TO SET CONVERT SW 2-8 PTM42280 8546 | * PTM42285 8547 | * PTM42290 02C3 7123 8548 | S8MT1 MDX 1 +35 RESET XR1 2-8 PTM42295 02C4 685D 8549 | STX DMT02 SET NO CONVERT SW 2-8 PTM42300 02C5 C1FE 8550 | DMS01 LD 1 -2 2-8 PTM42305 02C6 E051 8551 | AND DMK04 /F PTM42310 02C7 D013 8552 | S8MT5 STO DVCDE+1 STO CODE TO LDX 2 PTM42315 02C8 6960 8553 | STX 1 DMT09 CARD COLUMN 35 PTM42320 02C9 7425 0329 8554 | MDX L DMT09,37 CARD COLUMN 72 PTM42325 02CB C052 8555 | LD DMK12 -145 PTM42330 02CC D059 8556 | STO DMT06 CHARACTER COUNT PTM42335 02CD C100 8557 | DMS02 LD 1 0 LOAD CARD COLUMN PTM42340 02CE 904A 8558 | S DMK05 .'. APOSTROPHE PTM42345 02CF 4C18 033A 8559 | BSC L DMS03,+- BR CONTROL FUNCTION PTM42350 02D1 8047 8560 | DMS10 A DMK05 .' APOSTROPHE PTM42355 02D2 D050 8561 | STO DMT03 SAVE CHAR FOR REPEAT PTM42360 02D3 7401 0325 8562 | DMS18 MDX L DMT05,1 REPEAT CHAR FLAG PTM42365 02D5 7001 8563 | MDX *+1 PTM42370 02D6 702E 8564 | MDX DMS08+3 PTM42375 02D7 7400 0322 8565 | MDX L DMT02,0 PTM42380 02D9 7004 8566 | MDX DMS04 BYPASS CONVERSION PTM42385 02DA 6600 0000 8567 | DVCDE LDX L2 *-* DEVICE CD, 0=1053, 1=1443 PTM42390 02DC 4680 0397 8568 | BSI I2 CONAB CONVERT TO DEVICE CODE PTM42395 02DE 7400 0321 8569 | DMS04 MDX L DMT01,0 TEST IF LEFT OR RIGHT 2-10 PTM42400 02E0 7004 8570 | MDX DMS05 NO SHIFT PTM42405 02E1 1008 8571 | SLA 8 PTM42410 02E2 D041 8572 | STO DMT04 TEMP TO BUILD OUTPUT PTM42415 02E3 683D 8573 | STX DMT01 SET SW FOR RIGHT CHAR 2-11 PTM42417 02E4 700C 8574 | MDX DMS06 INCOMPLETE - NO OUTPUT PTM42420 02E5 E83E 8575 | DMS05 OR DMT04 OUTPUT TEMPORARY PTM42425 02E6 D400 023A 8576 | STO L TRWRD OUTPUT BUFFER PTM42430 02E8 1010 8577 | SLA 16 PTM42435 02E9 D03A 8578 | STO DMT04 RESET LEFT FOR NEXT CH 2-9 PTM42440 02EA D036 8579 | STO DMT01 CLEAR LEFT OR RIGHT 2-10 PTM42445 02EB 7400 020D 8580 | MDX L PASS,0 PTM42450 02ED 7024 8581 | MDX DMS07 PASS 2 - OUTPUT PTM42455 02EE 7401 0213 8582 | DMS11 MDX L ADCOW,1 UPDATE ADDRESS COUNTER PTM42460 02F0 1000 8583 | NOP PTM42465 02F1 7401 0326 8584 | DMS06 MDX L DMT06,1 INCR CHARACTER COUNT PTM42470 02F3 700E 8585 | MDX DMS08 NO ERROR PTM42475 02F4 C025 8586 | LD DMK06 .S. PTM42480 02F5 4400 0701 8587 | BSI L ERFLG GO TO INSERT ERR INDR 2-8 PTM42485 02F7 1010 8588 | DMEND SLA 16 PTM42490 02F8 9025 8589 | S DMK12 PTM42495 02F9 802C 8590 | A DMT06 CHAR COUNT PTM42500 02FA 4346 8591 | BSI 3 LDXRS-X3 GO RESTO XR1 PTM42505 02FB 7109 8592 | MDX 1 +9 POINT TO CC 9 PTM42510 02FC 4400 06FA 8593 | BSI L B4HEX GO O/P CHAR CNT 2-8 PTM42515 02FE C025 8594 | LD DMT04 SAVE OUTPUTWORD IN 2-9 PTM42520 02FF D3CF 8595 | STO 3 ASSAD-X3 *ASCOM 2-9 PTM42525 0300 4C00 0436 8596 | BSC L DMS25 GO GET NEXT RECORD 2-10 PTM42530 0302 74FF 0325 8597 | DMS08 MDX L DMT05,-1 DECREMENT REPEAT FLAG PTM42535 0304 700B 8598 | MDX DMS09 REPEAT CHARACTER PTM42540 0305 C025 8599 | LD DMTBI FIRST WD OF BSI INSTRUCTION PTM42545 0306 D0D5 8600 | STO DVCDE+2 RESET TO CNVRT NEXT CHAR PTM42550 0307 4024 8601 | BSI DMS12 INCREMENT COLUMN COUNT PTM42555 0308 70C4 8602 | MDX DMS02 NEXT COLUMN PTM42560 0309 C017 8603 | DMS13 LD DMT01 TEST LEFT/RIGHT CHAR 2-10 PTM42565 030A 4C18 02F7 8604 | BSC L DMEND,+- TERMINATE - NO ERROR PTM42570 030C 6580 0329 8605 | LDX I1 DMT09 XR1= CARD COLUMN 72 - END PTM42575 030E C00C 8606 | LD DMK07 . . EBC BLANK PTM42580 030F 70C3 8607 | MDX DMS18 FILL OUT WITH BLANK PTM42585 0310 C012 8608 | DMS09 LD DMT03 CHAR TO REPEAT PTM42590 0311 70C3 8609 | MDX DMS18+2 PTM42595 0312 4400 0883 8610 | DMS07 BSI L DFOUT BR TO O/P WD IN DSF 2-8 PTM42600 0314 70D9 8611 | MDX DMS11 PTM42605 8612 | * PTM42610 0315 0001 8613 | DMK02 DC .1-.0 EBCDIC ONE PTM42615 0316 FF4E 8614 | DMK03 DC . -.2 EBCDIC BLANK 2-10 PTM42620 0317 0000 8615 | DMS30 DC 0 SW TERMINATION MODE F 2-10 PTM42625 0318 000F 8616 | DMK04 DC /F PTM42630 0319 007D 8617 | DMK05 DC /7D EBC APOSTROPHE PTM42635 031A 00E2 8618 | DMK06 DC .S PTM42640 031B 0040 8619 | DMK07 DC . PTM42645 0315 8620 | DMK08 EQU DMK02 ONE PTM42650 031C 000A 8621 | DMK09 DC 10 PTM42655 031D 0063 8622 | DMK10 DC 99 PTM42660 031E FF6F 8623 | DMK12 DC -145 PTM42665 031F 033C 8624 | DMK13 DC DMS03+2 ADDRESS CONSTANT PTM42670 0320 0093 8625 | DMK14 DC /0093 L MINUS BLANK PTM42675 0315 8626 | DMK15 EQU DMK02 ONE 2-10 PTM42680 0315 8627 | S8MT4 EQU DMK02 ONE 2-10 PTM42685 0321 0000 8628 | DMT01 DC 0 SWITCH LEFT RIGHT 2-10 PTM42690 0322 0000 8629 | DMT02 DC 0 NO CONVERT FLAG PTM42695 0323 0000 8630 | DMT03 DC 0 CHAR FOR REPEAT PTM42700 0324 0000 8631 | DMT04 DC 0 OUTPUT WORD PTM42705 0325 0000 8632 | DMT05 DC 0 REPEAT CHAR FLAG PTM42710 0326 0000 8633 | DMT06 DC 0 CHARACTER COUNT PTM42715 0327 0000 8634 | DMT07 DC 0 TENX FLAG PTM42720 0328 0000 8635 | DMT08 DC 0 MULTIPLIER TEMPORARY PTM42725 0329 0000 8636 | DMT09 DC 0 CARD COLUMN 72 PTM42730 032A 0000 8637 | DMT10 DC 0 TEMP FOR CARD COLUMN PTM42735 032B 4680 8638 | DMTBI DC /4680 'BSI I' OP CODE PTM42740 8639 | * PTM42745 032C 0000 8640 | DMS12 DC 0 PTM42750 032D 7101 8641 | MDX 1 1 INCR COLUMN COUNT PTM42755 8642 | * 2-10 PTM42760 032E 69FB 8643 | STX 1 DMT10 COLUMN COUNT TO TEMP PTM42765 032F C0FA 8644 | LD DMT10 PTM42770 0330 90F8 8645 | S DMT09 CC72 PTM42775 0331 4C10 0335 8646 | BSC L DMS19,- BR IF LAST COLUMN PROCESSED PTM42780 0333 4C80 032C 8647 | BSC I DMS12 EXIT SUBROUTINE PTM42785 0335 C0F6 8648 | DMS19 LD DMS12 RETURN ADDRESS PTM42790 0336 90E8 8649 | S DMK13 DMS03+2 PTM42795 0337 4C20 0309 8650 | BSC L DMS13,Z BR LAST CHAR NOT APOSTROPHE PTM42800 0339 70BD 8651 | DMS20 MDX DMEND 2-9 PTM42805 033A D0EC 8652 | DMS03 STO DMT07 CLEAR TENX FLAG PTM42810 033B 40F0 8653 | BSI DMS12 INCREMENT COLUMN COUNT PTM42815 033C C100 8654 | LD 1 0 LD NEXT CHAR PTM42820 033D 90DB 8655 | S DMK05 .' APOSTROPHE PTM42825 033E 4C18 02D1 8656 | BSC L DMS10,+- BRANCH IF TEXT APOSTROPHE PTM42830 0340 80D8 8657 | A DMK05 PTM42835 0341 D0E1 8658 | STO DMT03 STORE CONTROL ELEMENT PTM42840 0342 1884 8659 | SRT 4 PTM42845 0343 F0D4 8660 | EOR DMK04 /F PTM42850 0344 4C18 0374 8661 | BSC L DMS15,+- DIGIT PTM42855 0346 62F6 8662 | LDX 2 -10 PTM42860 0347 C600 0397 8663 | DMS17 LD L2 DMKTB+10 CONTROL ELEMENT TABLE ENTRY PTM42865 0349 D0DE 8664 | STO DMT08 CONTROL ELEMENT TEMPORARY PTM42870 034A 1808 8665 | SRA 8 SHIFT TO LOW 8 BITS PTM42875 034B 90D7 8666 | S DMT03 PTM42880 034C 4C18 0355 8667 | BSC L DMS16,+- BR CONTROL CHARACTER FOUND PTM42885 034E 7201 8668 | MDX 2 1 PTM42890 034F 70F7 8669 | MDX DMS17 PTM42895 0350 90CF 8670 | S DMK14 .L-. (BLANK) PTM42900 0351 4820 8671 | BSC Z SKIP IF QUOTE BLANK 2-10 PTM42905 0352 7012 8672 | MDX DMS22 ILLEGAL CONTROL CHAR-FORCE PTM42910 0353 D0C3 8673 | STO DMS30 CLEAR SW YES DMES NEXT 2-10 PTM42915 0354 70E4 8674 | MDX DMS20 GO EXIT 2-10 PTM42920 0355 7206 8675 | DMS16 MDX 2 6 PTM42925 0356 7014 8676 | MDX DMS21 BR OK EITHER DEVICE PTM42930 0357 7400 02DB 8677 | MDX L DVCDE+1,0 SKIP IF 1053 PTM42935 0359 700E 8678 | MDX DMS24 FORCE BLANK 212 PTM42940 035A C011 8679 | LD DMS21+1 MODIFY CODING TO PTM42945 035B D400 02DC 8680 | STO L DVCDE+2 PREVENT CONVERSION PTM42950 035D 72FF 8681 | MDX 2 -1 PTM42955 035E 7002 8682 | MDX DMS23 BR REPEAT OK PTM42960 035F 1010 8683 | SLA 16 PTM42965 0360 D0C4 8684 | STO DMT05 CLEAR REPEAT FLAG PTM42970 0361 C0C6 8685 | DMS23 LD DMT08 TEMPORARY FROM TABLE PTM42975 0362 1008 8686 | SLA 8 PTM42980 0363 1808 8687 | SRA 8 EXTRACT CONTROL CHARACTER PTM42985 0364 7004 8688 | MDX DMS24+1 PTM42990 0365 C0B4 8689 | DMS22 LD DMK06 .S PTM42995 0366 4400 0701 8690 | BSI L ERFLG 2-8 PTM43000 0368 C0B2 8691 | DMS24 LD DMK07 . . BLANK PTM43005 0369 4C00 02D2 8692 | BSC L DMS10+1 PTM43010 036B 7201 8693 | DMS21 MDX 2 1 PTM43015 036C 7001 8694 | MDX *+1 PTM43020 036D 709B 8695 | MDX DMS13 .E -END OF STRING PTM43025 036E 7201 8696 | MDX 2 1 PTM43030 036F 70F8 8697 | MDX DMS24 SPACE OR BLANK PTM43035 0370 40BB 8698 | BSI DMS12 .F -REPEAT NEXT CHARACTER PTM43040 0371 C100 8699 | LD 1 0 LOAD CHAR FOR REPEAT PTM43045 0372 4C00 02D2 8700 | BSC L DMS10+1 PTM43050 0374 1084 8701 | DMS15 SLT 4 PTM43055 0375 909F 8702 | S DMK08 ONE PTM43060 0376 D0B1 8703 | STO DMT08 TEMP FOR CONTROL MPYR PTM43065 0377 7400 0327 8704 | MDX L DMT07,0 TENX FLAG PTM43070 0379 7003 8705 | MDX DMS14 BR MPY 10 PTM43075 037A D0AA 8706 | STO DMT05 REPEAT FLAG PTM43080 037B 68AB 8707 | STX DMT07 SET TENX FLAG PTM43085 037C 70BE 8708 | MDX DMS03+1 PTM43090 037D C0A7 8709 | DMS14 LD DMT05 REPEAT FLAG PTM43095 037E 8096 8710 | A DMK08 ONE PTM43100 037F A09C 8711 | M DMK09 TEN PTM43105 0380 1090 8712 | SLT 16 PTM43110 0381 80A6 8713 | A DMT08 PTM43115 0382 D0A2 8714 | STO DMT05 PTM43120 0383 9099 8715 | S DMK10 99 PTM43125 0384 4C28 033B 8716 | BSC L DMS03+1,+Z PTM43130 0386 C096 8717 | LD DMK10 CONTROL MPYR GREATER THN 99 PTM43135 0387 908D 8718 | S DMK08 PTM43140 0388 D09C 8719 | STO DMT05 98 PTM43145 0389 C090 8720 | LD DMK06 .S PTM43150 038A 4400 0701 8721 | BSI L ERFLG 2-8 PTM43155 038C 70AE 8722 | MDX DMS03+1 PTM43160 8723 | * PTM43165 8724 | * CONTROL CHARACTER TABLE PTM43170 8725 | * PTM43175 038D E740 8726 | DMKTB DC /E740 X-BLANK PTM43180 038E E240 8727 | DC /E240 S-SPACE PTM43185 038F C640 8728 | DC /C640 F-REPEAT CHAR FOLLOWING PTM43190 0390 C540 8729 | DC /C540 E-END OF CHARACTER STRING PTM43195 0391 C205 8730 | DC /C205 B-RIBBON CONTROL - BLACK PTM43200 0392 C109 8731 | DC /C109 A-RIBBON CONTROL - RED PTM43205 0393 E341 8732 | DC /E341 T-TABULATE PTM43210 0394 C411 8733 | DC /C411 D-BACKSPACE PTM43215 0395 D981 8734 | DC /D981 R-CARRIAGE RETURN PTM43220 0396 D303 8735 | DC /D303 L-LINE FEED PTM43225 8736 | * * PTM43230 0397 039A 8737 | CONAB DC CONTP IF 0, 1053 CODE PTM43235 0398 03D8 8738 | DC CON43 1, 1403 CODE PTM43240 0399 4C00 0000 8739 | TYPOT BSC L *-* PTM43245 039A 8740 | CONTP EQU TYPOT+1 PTM43250 039B 1890 8741 | SRT 16 CLEAR EXT. PTM43255 039C 1089 8742 | SLT 9 SHIFT ONE BIT TO ALL PTM43260 039D 4C20 03B3 8743 | BSC L ALNUM,Z BR TO HANDLE ALPHA-NUMERIC PTM43265 039F 1083 8744 | SLT 3 PTM43270 03A0 18D0 8745 | RTE 16 PTM43275 03A1 180C 8746 | SRA 12 RIGHT JUSTIFY PTM43280 03A2 9054 8747 | S PR260 USE BITS 4-7 TO PTM43285 03A3 4828 8748 | BSC +Z COMPUTE TBL POINTER PTM43290 03A4 801D 8749 | A H0010 PTM43295 03A5 D001 8750 | STO *+1 PTM43300 03A6 6600 0000 8751 | LDX L2 *-* GETCH TABLE POINTER PTM43305 03A8 109E 8752 | SLT 30 PTM43310 03A9 4828 8753 | BSC +Z SKIP IF BIT 2 OFF PTM43315 03AA 7207 8754 | MDX 2 +7 POINT TO 2ND HALF PTM43320 03AB 1002 8755 | SLA 2 SET BOTH 3 IN CARRY PTM43325 03AC C600 0427 8756 | LD L2 COTAT FETCH CONV CHAR PTM43330 03AE 4802 8757 | BSC C SKIP TO GET LEFT HALF PTM43335 03AF 7001 8758 | MDX *+1 PTM43340 03B0 1008 8759 | SLA 8 FETCH RIGHT HALF PTM43345 03B1 1808 8760 | SRA 8 RIGHT JUSTIFY PTM43350 03B2 700E 8761 | MDX COTP2 BR TO EXIT PTM43355 8762 | * * PTM43360 03B3 1087 8763 | ALNUM SLT 7 MOVE CHAR BACK TO ACC PTM43365 03B4 100B 8764 | SLA 11 PTM43370 03B5 6600 03C3 8765 | LDX L2 TYPTB-1 FETCH TABLE POINTER PTM43375 03B7 4802 8766 | BSC C PTM43380 03B8 720A 8767 | MDX 2 10 USE SECOND HALF OF TABLE PTM43385 03B9 1001 8768 | SLA 1 SET CARRY FOR HALF WORD PTM43390 03BA 180C 8769 | SRA 12 PTM43395 03BB E807 8770 | OR LDKON SET UP LOAD PTM43400 03BC D000 8771 | STO * INSTRUCTION PTM43405 03BD C200 8772 | LD 2 0 FETCH WORD WITH CHARACTER PTM43410 03BE 4802 8773 | BSC C PTM43415 03BF 1008 8774 | SLA 8 RIGHT HALF WORD PTM43420 03C0 1808 8775 | SRA 8 LEFT HALF WORD PTM43425 03C1 70D7 8776 | COTP2 MDX TYPOT EXIT PTM43430 8777 | * * PTM43435 03C2 0010 8778 | H0010 DC /0010 CONSTANT 16 PTM43440 03C3 C200 8779 | LDKON LD 2 0 CONSTANT PTM43445 03C4 3C7C 8780 | TYPTB DC /3C7C A J PTM43450 03C5 1858 8781 | DC /1858 B K PTM43455 03C6 1C5C 8782 | DC /1C5C C L PTM43460 03C7 3070 8783 | DC /3070 D M PTM43465 03C8 3474 8784 | DC /3474 E N PTM43470 03C9 1050 8785 | DC /1050 F O PTM43475 03CA 1454 8786 | DC /1454 G P PTM43480 03CB 2464 8787 | DC /2464 H Q PTM43485 03CC 2060 8788 | DC /2060 I R PTM43490 03CD 21C4 8789 | DC /21C4 BLANK 0 PTM43495 8790 | * START SECOND HALF OF TABLE * PTM43500 03CE 21FC 8791 | DC /21FC BLANK 1 PTM43505 03CF 98D8 8792 | DC /98D8 S 2 PTM43510 03D0 9CDC 8793 | DC /9CDC T 3 PTM43515 03D1 B0F0 8794 | DC /B0F0 U 4 PTM43520 03D2 B4F4 8795 | DC /B4F4 V 5 PTM43525 03D3 90D0 8796 | DC /90D0 W 6 PTM43530 03D4 94D4 8797 | DC /94D4 X 7 PTM43535 03D5 A4E4 8798 | DC /A4E4 Y 8 PTM43540 03D6 A0E0 8799 | DC /A0E0 Z 9 PTM43545 03D7 2121 8800 | DC /2121 BLANK BLANK PTM43550 8801 | * ENTER WITH 1 EBCDIC CHARACTER IN A, PTM43555 8802 | * RIGHT JUSTIFIED WITH HIGH ZERO. PTM43560 8803 | * EXIT WITH 1403 CODE IN A. PTM43565 8804 | * SPECIAL CHARACTER TABLE FOR 1053. PTM43570 03D8 0000 8805 | CON43 DC *-* PTM43575 03D9 6600 0406 8806 | LDX L2 PR460 SET TABLE POINTER PTM43580 03DB 1008 8807 | SLA 8 LEFT-JUSTIFY PTM43585 03DC 4810 8808 | BSC - SPECIAL CHAR.IF NOT NEG. PTM43590 03DD 701B 8809 | MDX PR270 GO PROCESS SPECIAL CHAR PTM43595 03DE 1002 8810 | SLA 2 1ST OR 2ND HALF OF TABLE PTM43600 03DF 4802 8811 | BSC C *UPPER CASE * PTM43605 03E0 7001 8812 | MDX *+1 *CHARACTERS * PTM43610 03E1 7016 8813 | MDX PR270-1 *TREATED AS BLANKS * PTM43615 03E2 4808 8814 | BSC + 1ST HALF REQUIRED,SKIP PTM43620 03E3 720A 8815 | MDX 2 10 2ND HALF REQUIRED,SET IR2 PTM43625 03E4 1002 8816 | SLA 2 SET CARRY IF RT.HALF TABLE PTM43630 03E5 180C 8817 | SRA 12 MOVE TO RT.HAND SIDE PTM43635 03E6 D001 8818 | STO *+1 COMPUTE TABLE INCREMENT PTM43640 03E7 C600 0000 8819 | PR200 LD L2 *-* LOAD 2-1403 CHARACTERS PTM43645 03E9 4802 8820 | BSC C CHK.CARRY FOR RT.OR LEFT PTM43650 03EA 1008 8821 | SLA 8 ISOLATE AND LEFT JUSTIFY PTM43655 03EB 1808 8822 | SRA 8 THE CHARACTER REQUIRED PTM43660 03EC 1888 8823 | SRT 8 SAVE CHARACTER PTM43665 03ED C0FA 8824 | LD PR200+1 CHK.VALIDITY OF ORIGINAL PTM43670 03EE 9008 8825 | S PR260 EBC HALF CHAR.TREAT AS PTM43675 03EF 4810 8826 | BSC - SPECIAL IF GREATER PTM43680 03F0 7007 8827 | MDX PR270-1 THAN 9 PTM43685 03F1 1010 8828 | PR210 SLA 16 PTM43690 03F2 1088 8829 | SLT 8 BRING BACK CHAR SAVED PTM43695 03F3 4C80 03D8 8830 | BSC I CON43 CONVERSION COMPLETE,EXIT PTM43700 8831 | * PTM43705 03F5 7F00 8832 | PR310 DC /7F00 1403 CODE FOR A BLANK PTM43710 03F6 0000 8833 | TEMP1 DC 0 TEMP STORAGE PTM43715 03F7 000A 8834 | PR260 DC 10 CONSTANT 10 PTM43720 8835 | * PTM43725 8836 | * ROUTINE TO CONVERT SPECIAL CHARACTER PTM43730 8837 | * PTM43735 03F8 C0FC 8838 | LD PR310 FORCE BLANK CHARACTER PTM43740 03F9 D0FC 8839 | PR270 STO TEMP1 SAVE CHAR IN TEMP LOC. PTM43745 03FA 620D 8840 | LDX 2 13 INIT.XR2 TO SPEC.TABLE CNT PTM43750 03FB 10A0 8841 | PR280 SLT 32 CLEAR Q REGISTER PTM43755 03FC C600 0419 8842 | LD L2 PR470-1 LD CHAR FROM SPECIAL TBL PTM43760 03FE 1888 8843 | SRT 8 SAVE 1403 CHAR IN Q REG. PTM43765 03FF 1008 8844 | SLA 8 LEFT JUSTIFY EBC CHAR PTM43770 0400 90F5 8845 | S TEMP1 IS IT CHAR.WE WANT PTM43775 0401 4818 8846 | BSC +- NO,SKIP PTM43780 0402 70EE 8847 | MDX PR210 YES,GO GET 1403 EQUIVALENT PTM43785 0403 72FF 8848 | MDX 2 -1 NEXT WORD IN TABLE PTM43790 0404 70F6 8849 | MDX PR280 LOOP PTM43795 0405 70EB 8850 | MDX PR210 NOT IN TABLE,TREAT AS BLK PTM43800 0406 7F7F 8851 | PR460 DC /7F7F BLANK BLANK PTM43805 0407 6458 8852 | DC /6458 A J PTM43810 0408 2519 8853 | DC /2519 B K PTM43815 0409 261A 8854 | DC /261A C L PTM43820 040A 675B 8855 | DC /675B D M PTM43825 040B 681C 8856 | DC /681C E N PTM43830 040C 295D 8857 | DC /295D F O PTM43835 040D 2A5E 8858 | DC /2A5E G P PTM43840 040E 6B1F 8859 | DC /6B1F H Q PTM43845 040F 2C20 8860 | DC /2C20 I R PTM43850 8861 | * PTM43855 8862 | * SECOND HALF OF TABLE PTM43860 8863 | * PTM43865 0410 7F49 8864 | DC /7F49 0 PTM43870 0411 7F40 8865 | DC /7F40 1 PTM43875 0412 0D01 8866 | DC /0D01 S 2 PTM43880 0413 0E02 8867 | DC /0E02 T 3 PTM43885 0414 4F43 8868 | DC /4F43 U 4 PTM43890 0415 1004 8869 | DC /1004 V 5 PTM43895 0416 5145 8870 | DC /5145 W 6 PTM43900 0417 5246 8871 | DC /5246 X 7 PTM43905 0418 1307 8872 | DC /1307 Y 8 PTM43910 0419 5408 8873 | DC /5408 Z 9 PTM43915 8874 | * PTM43920 8875 | *SPECIAL CHARACTER TABLE.EBC CODE IN LEFT SIDE, PTM43925 8876 | *1403 EQUIVALENT IN RIGHT PTM43930 8877 | * PTM43935 041A 407F 8878 | PR470 DC /407F BLANK PTM43940 041B 7E4A 8879 | DC /7E4A EQUAL PTM43945 041C 7D0B 8880 | DC /7D0B APOSTROPHE 2-5 PTM43950 041D 614C 8881 | DC /614C SLASH PTM43955 041E 5015 8882 | DC /5015 AMPERSAND PTM43960 041F 6B16 8883 | DC /6B16 COMMA PTM43965 0420 4D57 8884 | DC /4D57 LEFT PAREN PTM43970 0421 6061 8885 | DC /6061 MINUS PTM43975 0422 5B62 8886 | DC /5B62 DOLLAR PTM43980 0423 5C23 8887 | DC /5C23 ASTERISK PTM43985 0424 4E6D 8888 | DC /4E6D PLUS PTM43990 0425 4B6E 8889 | DC /4B6E PERIOD PTM43995 0426 5D2F 8890 | DC /5D2F RIGHT PAREN PTM44000 0427 4202 8891 | COTAT DC /4202 EXC PT CENT PTM44005 0428 4000 8892 | DC /4000 $ PERIOD PTM44010 0429 D6DE 8893 | DC /D6DE * LESS THAN PTM44015 042A F6FE 8894 | DC /F6FE ) ( PTM44020 042B D2DA 8895 | DC /D2DA SEMICOLON + PTM44025 042C F2C6 8896 | DC /F2C6 NOT OR PTM44030 042D 4421 8897 | DC /4421 AMPERSAND BLANK PTM44035 042E 8221 8898 | DC /8221 COLON BLANK PTM44040 042F C080 8899 | DC /C080 POUND , PTM44045 0430 0406 8900 | DC /0406 AT PERCENT PTM44050 0431 E6BE 8901 | DC /E6BE ' UNDERSCORE PTM44055 0432 C246 8902 | DC /C246 = GREATER PTM44060 0433 E286 8903 | DC /E286 QUOTE QUESTION PTM44065 0434 2184 8904 | DC /2184 BLANK MINUS PTM44070 0435 21BC 8905 | DC /21BC BLANK SLASH PTM44075 8906 | * PTM44080 0436 4400 073A 8907 | DMS25 BSI L LDLBL GET NEXT RECORD 2-10 PTM44085 0438 7400 0317 8908 | MDX L DMS30,0 MUST NEXT REC BE DMES 2-10 PTM44090 043A 7017 8909 | MDX DMS40 BO GO EXIT 2-10 PTM44095 043B C11E 8910 | LD 1 30 TEST NEXT OP FOR DMES 2-10 PTM44100 043C 18C8 8911 | RTE 8 2-10 PTM44105 043D C11D 8912 | LD 1 29 2-10 PTM44110 043E 18C8 8913 | RTE 8 2-10 PTM44115 043F C11B 8914 | LD 1 27 2-10 PTM44120 0440 1008 8915 | SLA 8 2-10 PTM44125 0441 E91C 8916 | OR 1 28 2-10 PTM44130 0442 9C00 06BE 8917 | SD L DMESM SUBTRACT MASK 2-10 PTM44135 0444 4C18 045D 8918 | BSC L STRT9,+- IF ZERO RETURN 2-10 PTM44140 0446 D3CF 8919 | STO 3 ASSAD-X3 SET TO NOT ZERO 2-10 PTM44145 0447 1010 8920 | SLA 16 CLEAR 2-10 PTM44150 0448 D400 0324 8921 | STO L DMT04 NO CHARACTERS TRUNC 2-10 PTM44155 044A C008 8922 | LD DMS40+1 GET RETURN ADDR 2-10 PTM44160 044B D400 0701 8923 | STO L P9202 SET IN ERROR ACTION 2-10 PTM44165 044D 7439 070E 8924 | MDX L ERADD,MCOM5-ERCNT PT.WARN CNT. 2-11 PTM44170 044F C004 8925 | LD DMESQ GET WARNING MSG 2-10 PTM44175 0450 4C00 0706 8926 | BSC L FLGCO GO SET FLAG 2-10 PTM44180 0452 4C00 045D 8927 | DMS40 BSC L STRT9 GO TO OP CODE SEARCH 2-10 PTM44185 0454 00D8 8928 | DMESQ DC .Q Q WARN FLAG 2-10 PTM44187 0456 8929 | BSS E 0 2-10 PTM44190 8930 | * 2-10 PTM44195 8931 | * 2-10 PTM44200 8932 | * PTM44205 0459 8933 | DMMAX EQU P9000-1 CALC PATCH AREA 2-10 PTM44210 0456 8934 | BSS DMMAX-* PH 8 PATCH AREA 2-10 PTM44215 0459 0000E3 8935 | S8AZ DC 0 PTM44220 *SBRKSLS E3 8936 | ASM PUNCH CONVERSION PHASE V2M08 PTM44225 ***ASM PUNCH CONVERSION*** 8938 | *************************************************** PTM44235 8939 | * * PTM44240 8940 | *STATUS-VERSION 2, MODIFICATION 8 * PTM44245 8941 | * * PTM44250 8942 | *FUNCTION/OPERATION- * PTM44255 8943 | * * PTM44260 8944 | *ENTRY POINTS- * PTM44265 8945 | * *PN010+1 - ENTRY FROM PHASE 3,9, OR 12 * PTM44270 8946 | * * PTM44275 8947 | *INPUT- * PTM44280 8948 | * * A BUFFER TO BE CONVERTED * PTM44285 8949 | * * PTM44290 8950 | *OUTPUT * PTM44295 8951 | * *A CONVERTED BUFFER AND PUNCHED DATA * PTM44300 8952 | * * PTM44305 8953 | *EXTERNAL RERERENCES- * PTM44310 8954 | * *SUBROUTINES- * PTM44315 8955 | * * GETS6 * PTM44320 8956 | * * GETS7 * PTM44325 8957 | * * GETS8 * PTM44330 8958 | * * GTS8A * PTM44335 8959 | * * GTS12 * PTM44340 8960 | * *DCOM/COMMA- * PTM44345 8961 | * $IBSY * PTM44350 8962 | * * PTM44355 8963 | *EXITS- * PTM44360 8964 | * *NORMAL - TO THE CALLER * PTM44365 8965 | * * ERROR - NONE * PTM44370 8966 | * * PTM44375 8967 | *TABLES/WORK AREAS- N/A * PTM44380 8968 | * * PTM44385 8969 | *ATTRIBUTES-REUSABLE * PTM44390 8970 | * * PTM44395 8971 | *NOTES-N/A * PTM44400 8972 | * * PTM44405 8973 | *************************************************** PTM44410 8974 | * PTM44415 0280 8975 | ORG OVLAY PTM44420 0280 0098 8976 | DC PN900-PN000 WORD COUNT OF PNCH CNV PTM44425 0281 00E3 8977 | DC /E3 SLET ID OF PNCH CNVT 2-8 PTM44430 8978 | * * PTM44435 0282 4C00 04C1 8979 | PN000 BSC L GETS5 FETCH PH 5 2-8 PTM44440 0284 4C00 04C3 8980 | BSC L GETS6 FETCH PH 6 2-8 PTM44445 0286 4C00 04C5 8981 | BSC L GETS7 FETCH PH 7 2-8 PTM44450 0288 4C00 04CA 8982 | BSC L GETS8 FETCH PH 8 2-8 PTM44455 028A 4C00 04CC 8983 | BSC L GTS8A FETCH PH 8A 2-8 PTM44460 028C 4C00 04CE 8984 | BSC L GTS12 FETCH PH 12 2-8 PTM44465 028E 4C00 04C7 8985 | BSC L GTS13 FETCH MACRO PH 1 2-8 PTM44470 0290 4C00 04D0 8986 | BSC L GETS2 FETCH PH 2 2-8 PTM44475 8987 | * * PTM44480 0292 4C00 0000 8988 | PN010 BSC L *-* ENTRY PTM44485 0294 6954 8989 | STX 1 PN060+1 SAVE I/O AREA ADDR PTM44490 0295 6907 8990 | STX 1 PN015+1 PTM44495 0296 694A 8991 | STX 1 SYMTB+2 PTM44500 0297 691D 8992 | STX 1 PN040+1 PTM44505 0298 6975 8993 | STX 1 PN210+1 PTM44510 0299 4818 8994 | BSC +- SKIP ON LIST DECK REQ PTM44515 029A 7044 8995 | MDX SYMTB BR TO HANDLE SYM TBL PTM44520 029B 6213 8996 | LDX 2 +19 INITIALIZE WD CNT PTM44525 029C 6E00 0000 8997 | PN015 STX L2 *-* SET UP BFR WD CNT PTM44530 8998 | * PTM44535 029E C3F1 8999 | CV055 LD 3 LDKOP-X3 PTM44540 029F 4828 9000 | BSC +Z SKIP ON EDIT DECK PTM44545 02A0 7009 9001 | MDX PN035 BR TO HANDLE FULL LIST PTM44550 02A1 72FE 9002 | MDX 2 -2 SET TO CLEAR FIRST 17 COL. PTM44555 9003 | * * PTM44560 02A2 1010 9004 | SLA 16 PTM44565 02A3 D101 9005 | PN020 STO 1 1 PTM44570 02A4 7101 9006 | MDX 1 +1 PTM44575 02A5 72FF 9007 | MDX 2 -1 PTM44580 02A6 70FC 9008 | MDX PN020 PTM44585 02A7 690D 9009 | STX 1 PN040+1 SET TO PT TO CC 17 2-8 PTM44590 02A8 7202 9010 | MDX 2 +2 SET WD CNT TO 2 PTM44595 02A9 71EF 9011 | MDX 1 -17 PTM44600 02AA 7113 9012 | PN035 MDX 1 +19 POINT TO CC 19 PTM44605 02AB C100 9013 | PN030 LD 1 0 PTM44610 02AC 9065 9014 | S PN215 SCAN FROM RT FOR BLANKS 2-8 PTM44615 02AD 4820 9015 | BSC Z SKIP IF BLANK PTM44620 02AE 7005 9016 | MDX PN040 BR OUT IF NON BLANK PTM44625 02AF D100 9017 | STO 1 0 STORE ZEROES IF BLANK 2-8 PTM44630 02B0 71FF 9018 | MDX 1 -1 DECRE IOAR POINTER PTM44635 02B1 72FF 9019 | MDX 2 -1 DECRE COLUMN COUNT PTM44640 02B2 70F8 9020 | MDX PN030 LOOP TO CONTINUE SCAN PTM44645 02B3 7058 9021 | PN036 MDX PN210-1 BR TO RETURN PTM44650 9022 | * * PTM44655 02B4 6500 0000 9023 | PN040 LDX L1 *-* RESET I/O PNTR PTM44660 02B6 6804 9024 | STX PN050+1 PTM44665 02B7 C003 9025 | PN045 LD PN050+1 PTM44670 02B8 8044 9026 | A DISP PTM44675 02B9 D001 9027 | STO PN050+1 PTM44680 02BA 6700 0000 9028 | PN050 LDX L3 *-* PTM44685 02BC C101 9029 | LD 1 +1 PTM44690 02BD 4818 9030 | BSC +- SKIP IF COLUMN NON-ZERO PTM44695 02BE 701B 9031 | MDX EBHXT BR TO SKIP CONVERSION PTM44700 02BF 903E 9032 | S H00C0 = 'C0' PTM44705 02C0 4818 9033 | BSC +- SKIP IF NOT A 'C0' PTM44710 02C1 703D 9034 | MDX PN190 BR TO TREAT AS BLANK PTM44715 02C2 803B 9035 | A H00C0 PTM44720 02C3 9037 9036 | S EBHCN =. PTM44725 02C4 4818 9037 | BSC +- SKIP BLANK - NO PNCHS PTM44730 02C5 7014 9038 | MDX EBHXT GO TO DECRE WD CNT PTM44735 02C6 9026 9039 | S HDLLR+1 CHECK FOR DOLLAR SIGN PTM44740 02C7 4818 9040 | BSC +- SKIP PTM44745 02C8 701D 9041 | MDX EBXTA PTM44750 02C9 8023 9042 | A HDLLR+1 NOT DOLLAR SIGN PTM44755 02CA 9024 9043 | S HSLSH+1 =./ PTM44760 02CB 4818 9044 | BSC +- KSIP IF NOT A SLASH PTM44765 02CC 701D 9045 | MDX EBSLH BR TO CNVRT SLASH PTM44770 02CD 8021 9046 | A HSLSH+1 PTM44775 9047 | * * PTM44780 02CE 9300 9048 | S 3 0 FIND ZONE GROUP PTM44785 02CF D007 9049 | STO EBHB+1 STORE NUMERIC VALVE PTM44790 02D0 7302 9050 | MDX 3 +2 PTM44795 02D1 4828 9051 | BSC +Z PTM44800 02D2 70FB 9052 | MDX *-5 PTM44805 9053 | * * PTM44810 02D3 C3FF 9054 | LD 3 -1 PTM44815 02D4 D025 9055 | STO EBHC PTM44820 02D5 C01D 9056 | LD EBHT+3 =/2000 PTM44825 02D6 6700 0000 9057 | EBHB LDX L3 *-* PTM44830 02D8 1B00 9058 | SRA 3 0 GENERATE NUMERIC PUNCH PTM44835 02D9 E820 9059 | OR EBHC COMBINE WITH ZONE PUNCH. PTM44840 02DA 72FF 9060 | EBHXT MDX 2 -1 DECRE WD CNT PTM44845 02DB 7007 9061 | MDX CV110 BR TO CNVRT NEXT CHAR PTM44850 9062 | * * PTM44855 02DC E836 9063 | CV100 OR PSTOP SET PNCH STOP CHAR PTM44860 02DD D101 9064 | STO 1 +1 OUTPUT THE CNV CHAR PTM44865 02DE 7022 9065 | MDX PN200 BR TO PUNCH PTM44870 02DF 6227 9066 | SYMTB LDX 2 +39 PTM44875 02E0 6E00 0000 9067 | STX L2 *-* SET UP BFR WD CNT PTM44880 02E2 70D3 9068 | MDX PN040+2 PTM44885 9069 | * * PTM44890 02E3 D101 9070 | CV110 STO 1 +1 OUTPUT THE CNV CHAR PTM44895 02E4 7101 9071 | MDX 1 +1 INCRE IOAR POINTER PTM44900 02E5 70D0 9072 | MDX PN040+2 BR TO CNVRT NEXT CHAR PTM44905 02E6 C005 9073 | EBXTA LD HDLLR COL. IMAGE OF DOLLAR SIGN PTM44910 02E7 70F2 9074 | MDX EBHXT PTM44915 02E8 9075 | BSS E 0 PTM44920 02E8 7001 9076 | PN060 DC /7001 PNCH FUNC CODE PTM44925 02E9 0000 9077 | DC *-* IOAR ADDR PTM44930 02EA C003 9078 | EBSLH LD HSLSH FETCH HOL SLASH CODE PTM44935 02EB 70EE 9079 | MDX EBHXT BR TO CNVR EXIT PTM44940 9080 | * * PTM44945 02EC 4420 9081 | HDLLR DC /4420 PTM44950 02ED 001B 9082 | DC .$-. PTM44955 02EE 3000 9083 | HSLSH DC /3000 HOL SLASH CODE PTM44960 02EF 0021 9084 | DC /21 EBC SLASH CODE - 40 PTM44965 02F0 00B0 9085 | EBHT DC .0-. 0-9 NO ZONE PTM44970 02F1 0000 9086 | DC 0 PTM44975 02F2 FFF0 9087 | DC .S-2-.0 S-Z 0 ZONE PTM44980 02F3 2000 9088 | DC /2000 PTM44985 02F4 FFF0 9089 | DC .J-1-.S+2 J-R 11 ZONE PTM44990 02F5 4000 9090 | DC /4000 PTM44995 02F6 FFF0 9091 | DC .A-.J A-I 12 ZONE PTM45000 02F7 8000 9092 | DC /8000 PTM45005 02F8 FF78 9093 | DC /FF78 AT SIGN OR POUND SIGN PTM45010 02F9 0020 9094 | DC /0020 PTM45015 02FA 0000 9095 | EBHC DC 0 PTM45020 02FB 0040 9096 | EBHCN DC . PTM45025 02FC 0001 9097 | CV053 DC 1 CONSTANT ONW PTM45030 02FD 0039 9098 | DISP DC EBHT-PN045 PTM45035 02FE 00C0 9099 | H00C0 DC /C0 CONSTANT PTM45040 9100 | * * PTM45045 02FF 1010 9101 | PN190 SLA 16 CLEAR ACC PTM45050 0300 70D9 9102 | MDX EBHXT BR TO EXIT CONVERSION PTM45055 9103 | * * PTM45060 0301 C8E6 9104 | PN200 LDD PN060 FUNC CODE & IOAR ADDR PTM45065 0302 7403 045B 9105 | MDX L RP000,+3 PTM45070 0304 4480 045B 9106 | BSI I RP000 BR TO PNCH A RCRD PTM45075 0306 74FD 045B 9107 | MDX L RP000,-3 PTM45080 9108 | * PTM45085 0308 C400 0013 9109 | LD L $IBSY PTM45090 030A 4820 9110 | BSC Z SKIP IF PNCH NOT BUSY PTM45095 030B 70FC 9111 | MDX *-4 LOOP TIL NOT BUSY PTM45100 9112 | * * PTM45105 030C C007 9113 | LD ORGCT PTM45110 030D D400 0000 9114 | PN210 STO L *-* RESTO ORIG WD CNT PTM45115 030F 4400 025F 9115 | BSI L LDXRS RESTO XR1 & XR3 PTM45120 0311 7080 9116 | MDX PN010 RETURN TO CALLER PTM45125 9117 | * * PTM45130 0312 0040 9118 | PN215 DC /40 EBCD1C CODE FOR BLANK 2-8 PTM45135 0313 0008 9119 | PSTOP DC /0008 PUNCH STOP CHAR PTM45140 0314 0050 9120 | ORGCT DC /50 ORIGINAL WD CNT PTM45145 9121 | * * PTM45150 0315 9122 | BSS 5 PUNCH CONVERSION PATCH 2-8 PTM45155 031A 0000 9123 | PN900 DC 0 PTM45160 *SBRKSLS E6 9124 | ASM GRAPHIC ORDER PHASE V2M08 PTM45165 1130/2250 ASSEMBLER PHASE 13 2G2 9126 | ************************************************2G2 PTM45175 9127 | * *2G2 PTM45180 9128 | *STATUS - VERSION 2, MODIFICATION 9 *2G2 PTM45185 9129 | * *2G2 PTM45190 9130 | *FUNCTION/OPERATION- *2G2 PTM45195 9131 | * *PHASE 13 PROCESSES ALL OF THE ASSEMBLER *2G2 PTM45200 9132 | * 1130/2250 ORDERS TO OUTPUT MACHINE ORDERS.*2G2 PTM45205 9133 | * *THE GRAPHIC OP CODE TABLE IS SEARCHED. IF *2G2 PTM45210 9134 | * MNEMONIC IS NOT VALID,CONTROL IS PASSED *2G2 PTM45215 9135 | * TO PHASE 9. *2G2 PTM45220 9136 | * *WHEN IN PASS 1, THE L.A.C. IS INCREMENTED *2G2 PTM45225 9137 | * TO REFLECT THE SIZE OF THE ORDER. *2G2 PTM45230 9138 | * *WHEN IN PASS 2, A BRANCH IS MADE THROUGH *2G2 PTM45235 9139 | * THE 4TH WORD OF THE OP CODE TABLE ENTRY TO*2G2 PTM45240 9140 | * THE CODING THAT WILL PROCESS THE ORDER. *2G2 PTM45245 9141 | * *THE FORMAT, TAG AND OPERAND FIELDS ARE *2G2 PTM45250 9142 | * TESTED AND THE SCAN SUBROUTINE IN PHASE 9 *2G2 PTM45255 9143 | * IS USED TO EVALUTE ANY OPERANDS. *2G2 PTM45260 9144 | * *THE ORDER IS CONVERTED FOR PRINTING BY *2G2 PTM45265 9145 | * B4HEX IN PHASE 9 AND THE OBJECT OUTPUT IS *2G2 PTM45270 9146 | * STOREDIN THE DSF BUFFER BY DFOUT IN PH 9. *2G2 PTM45275 9147 | * *2G2 PTM45280 9148 | *ENTRY POINTS- *2G2 PTM45285 9149 | * * G4000 *2G2 PTM45290 9150 | * *2G2 PTM45295 9151 | *INPUT- N/A *2G2 PTM45300 9152 | * *2G2 PTM45305 9153 | *OUTPUT- *2G2 PTM45310 9154 | * *THE MACHINE CODE FOR THE ORDER BEING *2G2 PTM45315 9155 | * PROCESSED. *2G2 PTM45320 9156 | * *2G2 PTM45325 9157 | *EXTERNAL REFERENCES- *2G2 PTM45330 9158 | * *SUBROUTINES- *2G2 PTM45335 9159 | * * B4HEX *2G2 PTM45340 9160 | * * DFOUT *2G2 PTM45345 9161 | * * ERFLG *2G2 PTM45350 9162 | * * LDLBL *2G2 PTM45355 9163 | * * LDXRS *2G2 PTM45360 9164 | * * SCAN *2G2 PTM45365 9165 | * * OPERR *2G2 PTM45370 9166 | * * CLLCT *2G2 PTM45375 9167 | * * P9MVE *2G2 PTM45380 9168 | * *2G2 PTM45385 9169 | *EXITS- *2G2 PTM45390 9170 | * *NORMAL - LDLBL SUBROUTINE IN PHASE 9 *2G2 PTM45395 9171 | * *ERROR - ERFLG IN PHASE 9 *2G2 PTM45400 9172 | * *2G2 PTM45405 9173 | *TABLES/WORK AREAS- N/A *2G2 PTM45410 9174 | * *2G2 PTM45415 9175 | *ATTRIBUTES- *2G2 PTM45420 9176 | * *REUSABLE *2G2 PTM45425 9177 | * E *2G2 PTM45430 9178 | *NOTES- *2G2 PTM45435 9179 | * *THE ADDRESS AT WHICH PHASE 13 ORIGINS AT *2G2 PTM45440 9180 | * IS DEPENDENT UPON THE ADDRESS AT WHICH *2G2 PTM45445 9181 | * THE PRINCIPLE PRINT ROUTINE IS LOADED AND *2G2 PTM45450 9182 | * THE LENGTHS OF THE TWO PRINT ROUTINES. IF *2G2 PTM45455 9183 | * EITHER CHANGES, THE ORIGIN ADDRESS FOR *2G2 PTM45460 9184 | * PHASE 13 MUST BE ALTERED TO REFLECT THIS *2G2 PTM45465 9185 | * CHANGE. *2G2 PTM45470 9186 | * *2G2 PTM45475 9187 | ************************************************2G2 PTM45480 9188 | * 2G2 PTM45485 9189 | * 2G2 PTM45490 0ECA 9190 | ORG GRAPH 2-11 PTM45495 0ECA FFFF 9191 | DC -1 GRAPHI3 (2250-4) PHASE IDENT2G2 PTM45500 0ECB 00E6 9192 | DC /E6 SLET ID OF PHASE 13 2-8 PTM45505 9193 | * 2G2 PTM45510 9194 | * PHASE 13 PROCESSES ALL OF THE 2G2 PTM45515 9195 | * GRAPHIC ORDERS. 2G2 PTM45520 9196 | * 2G2 PTM45525 0ECC 4400 025F 9197 | G4000 BSI L LDXRS 2G2 PTM45530 0ECE 6600 120E 9198 | LDX L2 TBLE1 2G2 PTM45535 0ED0 6500 FF90 9199 | LDX L1 TBLE1-G4990 INIT X1 WITH NEG TBL L2G2 PTM45540 0ED2 CB23 9200 | G4010 LDD 3 SYMBF-X3 LOAD ACC WITH OP CODE 2G2 PTM45545 0ED3 9A00 9201 | SD 2 0 SUBTRACT TABLE ARGUMENT2G2 PTM45550 0ED4 4818 9202 | BSC +- 2G2 PTM45555 0ED5 18D0 9203 | RTE 16 2G2 PTM45560 0ED6 4C18 0EDD 9204 | BSC L G4040,+- BRANCH IF OP CODE FOUND2G2 PTM45565 0ED8 7204 9205 | MDX 2 +4 INCREMENT TABLE ENTRY P2G2 PTM45570 0ED9 7104 9206 | MDX 1 +4 DECREMENT NEG ENTRY CTR2G2 PTM45575 0EDA 70F7 9207 | MDX G4010 2G2 PTM45580 0EDB 4C00 048C 9208 | BSC L OPERR 2-8 PTM45585 0EDD C02B 9209 | G4040 LD G4087 PREVENT FURTHER PH 2-8 PTM45590 0EDE D400 04A7 9210 | STO L OPVND *2 MNEMONICS 2-8 PTM45595 0EE0 C3F4 9211 | LD 3 PASS-X3 CHECK IF PASS 1 OR 2 2-8 PTM45600 0EE1 4C20 0EF5 9212 | BSC L G4070,Z BRANCH IF PASS 2 2G2 PTM45605 0EE3 6A51 9213 | STX 2 SAVE2 2G2 PTM45610 0EE4 C050 9214 | LD SAVE2 2G2 PTM45615 0EE5 9024 9215 | S ADDR1 2G2 PTM45620 0EE6 4C10 0EF5 9216 | BSC L G4070,- BR IF CHAR STROKE ORDER2G2 PTM45625 0EE8 C202 9217 | LD 2 2 2G2 PTM45630 0EE9 4C04 0EEE 9218 | BSC L G4050,E BRANCH IF 1 WORD ORDER 2G2 PTM45635 0EEB 7401 0213 9219 | MDX L ADCOW,1 2G2 PTM45640 0EED 1000 9220 | NOP 2G2 PTM45645 0EEE 7401 0213 9221 | G4050 MDX L ADCOW,1 INCREMENT L.A.C. 2G2 PTM45650 0EF0 1000 9222 | NOP 2G2 PTM45655 0EF1 4400 073A 9223 | G4060 BSI L LDLBL READ NEXT RCD 2-8 PTM45660 0EF3 4C00 045D 9224 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM45665 9225 | * 2G2 PTM45670 9226 | * *** START OF PASS 2 PROCESSING *** 2G2 PTM45675 9227 | * 2G2 PTM45680 0EF5 4346 9228 | G4070 BSI 3 LDXRS-X3 INCREMENT X1 TO POINT 2G2 PTM45685 0EF6 7123 9229 | MDX 1 +35 TO COLUMN 35 2G2 PTM45690 0EF7 C1FD 9230 | LD 1 -3 2G2 PTM45695 0EF8 D02D 9231 | STO SAVE0 SAVE COLUMN 32 2G2 PTM45700 0EF9 C202 9232 | LD 2 2 2G2 PTM45705 0EFA 4808 9233 | BSC + 2G2 PTM45710 0EFB 7003 9234 | MDX G4080 2G2 PTM45715 0EFC 1801 9235 | SRA 1 2G2 PTM45720 0EFD 1001 9236 | SLA 1 2G2 PTM45725 0EFE 7002 9237 | MDX G4082 2G2 PTM45730 0EFF 1001 9238 | G4080 SLA 1 2G2 PTM45735 0F00 1801 9239 | SRA 1 2G2 PTM45740 0F01 D32C 9240 | G4082 STO 3 OPCNT-X3 STORE 3RD WD OF TBL ENT2G2 PTM45745 0F02 D031 9241 | STO SAVE1 2G2 PTM45750 0F03 C203 9242 | LD 2 +3 2G2 PTM45755 0F04 D003 9243 | STO G4085+1 2G2 PTM45760 0F05 6600 0F0A 9244 | LDX L2 CONST 2G2 PTM45765 0F07 4C00 0000 9245 | G4085 BSC L *-* 2G2 PTM45770 9246 | * 2G2 PTM45775 9247 | * *** CONSTANTS *** 2G2 PTM45780 9248 | * 2G2 PTM45785 0F09 048C 9249 | G4087 DC OPERR OPERATION CODE ERR 2-8 PTM45790 0F0A 9250 | CONST EQU * 2G2 PTM45795 0F0A 1272 9251 | ADDR1 DC STROK 2G2 PTM45800 0F0B 0001 9252 | G1 DC 1 CONSTANT 1 2G2 PTM45805 0F0C 0002 9253 | G2 DC 2 CONSTANT 2 2G2 PTM45810 0F0D 0003 9254 | G3 DC 3 CONSTANT 3 2G2 PTM45815 0F0E 0004 9255 | G4 DC 4 CONSTANT 4 2G2 PTM45820 0F0F 0006 9256 | G6 DC 6 CONSTANT 6 2G2 PTM45825 0F10 0007 9257 | G7 DC 7 CONSTANT 7 2G2 PTM45830 0F11 0008 9258 | G8 DC 8 CONSTANT 8 2G2 PTM45835 0F12 000C 9259 | G12 DC 12 CONSTANT 12 2G2 PTM45840 0F13 000F 9260 | G15 DC 15 CONSTANT 15 2G2 PTM45845 0F14 0063 9261 | PH8ID DC 99 2G2 PTM45850 0F15 007F 9262 | G127 DC 127 CONSTANT 127 2G2 PTM45855 0F16 03FF 9263 | G1K DC 1023 CONSTANT 1023 2G2 PTM45860 0F17 1FFF 9264 | G8K DC 8191 CONSTANT 8191 2G2 PTM45865 0F18 00F0 9265 | GB0 DC .0 EBCDIC ZERO 2G2 PTM45870 0F19 00F2 9266 | GB2 DC .2 EBCDIC 2 2G2 PTM45875 0F1A 00F3 9267 | GB3 DC .3 EBCDIC 3 2G2 PTM45880 0F1B 00C2 9268 | B DC .B EBCDIC B 2G2 PTM45885 0F1C 00C9 9269 | I DC .I EBCDIC I 2G2 PTM45890 0F1D 00D3 9270 | L DC .L EBCDIC L 2G2 PTM45895 0F1E 00D5 9271 | N DC .N EBCDIC N 2G2 PTM45900 0F1F 00D6 9272 | O DC .O EBCDIC O 2G2 PTM45905 0F20 00D9 9273 | R DC .R EBCDIC R 2G2 PTM45910 0F21 00E6 9274 | W DC .W EBCDIC W 2G2 PTM45915 0F22 00E7 9275 | X DC .X EBCDIC X 2G2 PTM45920 0F23 00E9 9276 | Z DC .Z EBCDIC Z 2G2 PTM45925 0F24 0040 9277 | BLANK DC /0040 EBCDIC BLANK 2G2 PTM45930 0F25 006B 9278 | COMMA DC ., EBCDIC COMMA 2G2 PTM45935 0F26 0000 9279 | SAVE0 DC 0 2G2 PTM45940 0F27 4000 9280 | MASK1 DC /4000 2G2 PTM45945 0F28 0400 9281 | MASK2 DC /0400 2G2 PTM45950 0F29 0080 9282 | MASK3 DC /0080 2G2 PTM45955 0F2A 0800 9283 | MASK4 DC /0800 2G2 PTM45960 0F2B 8000 9284 | MASK5 DC /8000 2G2 PTM45965 0F2C 0100 9285 | MASK6 DC /0100 2G2 PTM45970 0F2D 0200 9286 | MASK7 DC /0200 2G2 PTM45975 0F2E 0700 9287 | MASK8 DC /0700 2G2 PTM45980 0F2F 0000 9288 | SHORT DC 0 2G2 PTM45985 0F30 0000 9289 | OPER2 DC 0 2G2 PTM45990 0F31 11BD 9290 | BRAN2 DC G3447 2G2 PTM45995 0F32 9291 | BSS E 0 2G2 PTM46000 0F32 0000 9292 | CPAIR DC 0 2G2 PTM46005 0F33 0000 9293 | SHIFT DC 0 2G2 PTM46010 0F34 0000 9294 | SAVE1 DC 0 2G2 PTM46015 0F35 0000 9295 | SAVE2 DC 0 2G2 PTM46020 0F36 0000 9296 | GBCE DC 0 2G2 PTM46025 0F37 0000 9297 | TEMP DC 0 2G2 PTM46030 0F38 0000 9298 | IND DC 0 2G2 PTM46035 0F39 0000 9299 | INCRM DC 0 2G2 PTM46040 0F3A 00F0 9300 | COL6 DC .0 EBCDIC ZERO 2G2 PTM46045 0F3B 00F0 9301 | COL7 DC .0 EBCDIC ZERO 2G2 PTM46050 0F3C 003F 9302 | GP63 DC 63 CONSTANT 63 2G2 PTM46055 0F3D 0040 9303 | DC 64 CONSTANT 64 2G2 PTM46060 0F3E 00C4 9304 | D DC .D EBCDIC D 2G2 PTM46065 0F3F 00E2 9305 | DC .S EBCDIC S 2G2 PTM46070 0F40 00E2 9306 | S DC .S EBCDIC S 2G2 PTM46075 0F41 00C4 9307 | DC .D EBCDIC D 2G2 PTM46080 0F42 0000 9308 | GBGI DC 0 2G2 PTM46085 0F43 0000 9309 | GIGIC DC 0 2G2 PTM46090 9310 | * 2G2 PTM46095 9311 | * *** CHECK VALIDITY OF COLUMNS 32 & 33 2G2 PTM46100 9312 | * 2G2 PTM46105 0F44 0000 9313 | G4250 DC 0 ENTRY WORD 2G2 PTM46110 0F45 C1FD 9314 | LD 1 -3 2G2 PTM46115 0F46 90DD 9315 | S BLANK CHK IF COLUMN 32 = BLAN2G2 PTM46120 0F47 4420 0FDD 9316 | BSI L G4220,Z 2G2 PTM46125 0F49 C1FE 9317 | LD 1 -2 2G2 PTM46130 0F4A 90D9 9318 | S BLANK CHK IF COLUMN 33 = BLAN2G2 PTM46135 0F4B 4420 0FDD 9319 | BSI L G4220,Z 2G2 PTM46140 0F4D 4C80 0F44 9320 | BSC I G4250 RETURN TO MAINLINE 2G2 PTM46145 9321 | * 2G2 PTM46150 9322 | * PROCESS STMR/SGMV/RVT/GNOP/SRVT/SGMP/SCMB/SCML2G2 PTM46155 9323 | * 2G2 PTM46160 0F4F C100 9324 | G4260 LD 1 0 2G2 PTM46165 0F50 90D3 9325 | S BLANK CHK IF COLUMN 35 = BLAN2G2 PTM46170 0F51 4420 0FD8 9326 | BSI L G4200,Z BRANCH IF NO 2G2 PTM46175 0F53 40F0 9327 | BSI G4250 2G2 PTM46180 0F54 4053 9328 | BSI G4090 2G2 PTM46185 0F55 C0DE 9329 | LD SAVE1 2G2 PTM46190 0F56 9400 1228 9330 | S L SRVT ORDER = SRVT 2G2 PTM46195 0F58 4C20 0EF1 9331 | BSC L G4060,Z BRANCH IF NO 2G2 PTM46200 0F5A 406C 9332 | G4265 BSI G4150 2G2 PTM46205 0F5B 7095 9333 | G4270 MDX G4060 READ NEXT RECORD 2G2 PTM46210 9334 | * 2G2 PTM46215 9335 | * *** PROCESS MBI/DBI ORDERS *** 2G2 PTM46220 9336 | * 2G2 PTM46225 0F5C C8DF 9337 | G4280 LDD GP63 2G2 PTM46230 0F5D D8D6 9338 | STD SAVE1 2G2 PTM46235 0F5E C32C 9339 | LD 3 OPCNT-X3 2G2 PTM46240 0F5F E8CB 9340 | OR MASK5 2G2 PTM46245 0F60 D32C 9341 | STO 3 OPCNT-X3 2G2 PTM46250 0F61 69D7 9342 | STX 1 INCRM SET MBI/DBI INDICATOR 2G2 PTM46255 0F62 7003 9343 | MDX G4295 2G2 PTM46260 9344 | * 2G2 PTM46265 9345 | * *** PROCESS MBAX/MBAY/DBAX/DBAY ORDERS2G2 PTM46270 9346 | * 2G2 PTM46275 0F63 6BCB 9347 | G4285 STX 3 SHORT SET SHORT ABSOLUTE IND 2G2 PTM46280 9348 | * 2G2 PTM46285 9349 | * *** PROCESS MBA/DBA ORDERS *** 2G2 PTM46290 9350 | * 2G2 PTM46295 0F64 C0B1 9351 | G4290 LD G1K 2G2 PTM46300 0F65 D0CE 9352 | STO SAVE1 2G2 PTM46305 0F66 40DD 9353 | G4295 BSI G4250 BRANCH TO CHK COL 32+332G2 PTM46310 0F67 C0B5 9354 | G4300 LD L 2G2 PTM46315 0F68 D1FD 9355 | STO 1 -3 STORE BCD L IN COLUMN 32G2 PTM46320 0F69 4400 04E1 9356 | G4305 BSI L SCAN 2-8 PTM46325 0F6B 6600 0F0A 9357 | LDX L2 CONST 2G2 PTM46330 0F6D C0CB 9358 | LD INCRM CHK IF ORDER = MBI0DBI 2G2 PTM46335 0F6E 4C18 0F77 9359 | BSC L G4310,+- BRANCH IF NO 2G2 PTM46340 0F70 C325 9360 | LD 3 VALUE-X3 2G2 PTM46345 0F71 4C10 0F7A 9361 | BSC L G4320,- BRANCH IF OPERAND =/GT 2G2 PTM46350 0F73 80C1 9362 | A SAVE1+1 2G2 PTM46355 0F74 4C28 0F7D 9363 | BSC L G4330,Z+ BRANCH IF OPERAND LT -62G2 PTM46360 0F76 7009 9364 | MDX G4340 2G2 PTM46365 0F77 C325 9365 | G4310 LD 3 VALUE-X3 2G2 PTM46370 0F78 4C28 0F7D 9366 | BSC L G4330,Z+ BRANCH IF OPERAND LT 0 2G2 PTM46375 0F7A 90B9 9367 | G4320 S SAVE1 2G2 PTM46380 0F7B 4C08 0F80 9368 | BSC L G4340,+ BR IF OPERAND =/LT ARGU2G2 PTM46385 0F7D 4051 9369 | G4330 BSI G4180 BRANCH TO ERROR SUBROUT2G2 PTM46390 0F7E 1010 9370 | SLA 16 2G2 PTM46395 0F7F D325 9371 | STO 3 VALUE-X3 ZERO OPERAND VALUE 2G2 PTM46400 0F80 C0B8 9372 | G4340 LD INCRM CHK IF MBI/DBI ORDER 2G2 PTM46405 0F81 4C18 0F8D 9373 | BSC L G4345,+- BRANCH IF NO 2G2 PTM46410 0F83 C325 9374 | LD 3 VALUE-X3 2G2 PTM46415 0F84 1009 9375 | SLA 9 2G2 PTM46420 0F85 1809 9376 | SRA 9 2G2 PTM46425 0F86 D325 9377 | STO 3 VALUE-X3 2G2 PTM46430 0F87 C0B0 9378 | LD IND CHECK IF 2ND OPERAND 2G2 PTM46435 0F88 4C20 0F8D 9379 | BSC L G4345,Z BRANCH IF YES 2G2 PTM46440 0F8A C325 9380 | LD 3 VALUE-X3 2G2 PTM46445 0F8B 1008 9381 | SLA 8 2G2 PTM46450 0F8C 7001 9382 | MDX G4348 2G2 PTM46455 0F8D C325 9383 | G4345 LD 3 VALUE-X3 2G2 PTM46460 0F8E EB2C 9384 | G4348 OR 3 OPCNT-X3 OR OPERAND W/OP CODE WO2G2 PTM46465 0F8F D32C 9385 | STO 3 OPCNT-X3 2G2 PTM46470 0F90 C0A8 9386 | LD INCRM CHK IF ORDER = MBI/DBI 2G2 PTM46475 0F91 4C18 0F9C 9387 | BSC L G4365,+- BRANCH IF NO 2G2 PTM46480 0F93 C0A4 9388 | LD IND CHK 2ND OPERAND SWITCH 2G2 PTM46485 0F94 4C20 0F98 9389 | BSC L G4360,Z BRANCH IF 2ND OPERAND 2G2 PTM46490 0F96 6BA1 9390 | G4350 STX 3 IND SET 2ND OPERAND INDICAT2G2 PTM46495 0F97 70D1 9391 | MDX G4305 2G2 PTM46500 0F98 400F 9392 | G4360 BSI G4090 2G2 PTM46505 0F99 10A0 9393 | G4362 SLT 32 2G2 PTM46510 0F9A D89D 9394 | STD IND ZERO 2ND OPERAND SWITCH2G2 PTM46515 9395 | * MBI/DBI INDICATOR 2G2 PTM46520 0F9B 70BF 9396 | G4363 MDX G4270 BR TO READ NEXT REDORD 2G2 PTM46525 0F9C C09B 9397 | G4365 LD IND 2G2 PTM46530 0F9D 4C20 0FA6 9398 | BSC L G4367,Z BRANCH IF 2ND OPERAND 2G2 PTM46535 0F9F 4008 9399 | BSI G4090 BR TO OUTPUT WORD 2G2 PTM46540 0FA0 C08E 9400 | LD SHORT 2G2 PTM46545 0FA1 4C18 0F96 9401 | BSC L G4350,+- BR IF NOT SHORT ABS ORD2G2 PTM46550 0FA3 1010 9402 | SLA 16 2G2 PTM46555 0FA4 D08A 9403 | STO SHORT ZERO SHORT ABSOLUTE IND2G2 PTM46560 0FA5 70F5 9404 | MDX G4363 2G2 PTM46565 0FA6 4020 9405 | G4367 BSI G4150 BRANCH TO OUTPUT WORD 2G2 PTM46570 0FA7 70F1 9406 | MDX G4362 2G2 PTM46575 9407 | * 2G2 PTM46580 9408 | * 2G2 PTM46585 9409 | * *** OUTPUT OF ORDER WORD AND INDICATOR BITS **2G2 PTM46590 9410 | * 2G2 PTM46595 0FA8 0000 9411 | G4090 DC 0 ENTRY WORD 2G2 PTM46600 0FA9 6912 9412 | STX 1 G4100+1 SAVE X1 2G2 PTM46605 0FAA 4346 9413 | BSI 3 LDXRS-X3 INIT X1 TO POINT TO 2G2 PTM46610 0FAB 7109 9414 | MDX 1 +9 COLUMN 9 2G2 PTM46615 0FAC C230 9415 | LD 2 COL6-CONST 2G2 PTM46620 0FAD D1FD 9416 | STO 1 -3 STORE IND BITS IN COL 62G2 PTM46625 0FAE C21C 9417 | LD 2 SAVE0-CONST 2G2 PTM46630 0FAF D117 9418 | STO 1 +23 RESTORE COLUMN 32 2G2 PTM46635 0FB0 C32C 9419 | G4095 LD 3 OPCNT-X3 2G2 PTM46640 0FB1 D321 9420 | STO 3 TRWRD-X3 STORE OP CODE TO CONSTA2G2 PTM46645 0FB2 EA07 9421 | OR 2 G8-CONST 2G2 PTM46650 0FB3 D32C 9422 | STO 3 OPCNT-X3 ZERO OP CODE BUFFER 2G2 PTM46655 0FB4 C321 9423 | LD 3 TRWRD-X3 2G2 PTM46660 0FB5 4400 06FA 9424 | BSI L B4HEX BR TO CONVERSION 2-8 PTM46665 0FB7 4400 0883 9425 | BSI L DFOUT BR TO O/P SUBR 2-8 PTM46670 0FB9 7401 0213 9426 | MDX L ADCOW,1 INCREMENT L.A.C. 2G2 PTM46675 0FBB 6500 0000 9427 | G4100 LDX L1 *-* RESTORE X1 2G2 PTM46680 0FBD 6600 0F0A 9428 | LDX L2 CONST 2G2 PTM46685 0FBF C20E 9429 | LD 2 GB0-CONST 2G2 PTM46690 0FC0 D230 9430 | STO 2 COL6-CONST 2G2 PTM46695 0FC1 D231 9431 | STO 2 COL7-CONST 2G2 PTM46700 0FC2 1010 9432 | SLA 16 2G2 PTM46705 0FC3 D32C 9433 | STO 3 OPCNT-X3 2G2 PTM46710 0FC4 D322 9434 | STO 3 TRWRD+1-X3 2G2 PTM46715 0FC5 4C80 0FA8 9435 | BSC I G4090 RETURN TO MAINLINE 2G2 PTM46720 9436 | * 2G2 PTM46725 9437 | * *** SECOND ENTRY POINT OF OUTPUT SUBROUTINE **2G2 PTM46730 9438 | * 2G2 PTM46735 0FC7 0000 9439 | G4150 DC 0 ENTRY WORD 2G2 PTM46740 0FC8 C0FE 9440 | LD G4150 TRANSFER RETURN ADDRESS2G2 PTM46745 0FC9 D0DE 9441 | STO G4090 2G2 PTM46750 0FCA 4346 9442 | G4160 BSI 3 LDXRS-X3 INIT X1 TO POINT TO 2G2 PTM46755 0FCB 710D 9443 | MDX 1 +13 COLUMN 13 2G2 PTM46760 0FCC C231 9444 | LD 2 COL7-CONST 2G2 PTM46765 0FCD D1FA 9445 | STO 1 -6 STORE IND BITS IN COL 72G2 PTM46770 0FCE 70E1 9446 | MDX G4095 2G2 PTM46775 9447 | * 2G2 PTM46780 9448 | * *** ERROR CODE POSTING SUBROUTINE 2G2 PTM46785 9449 | * 2G2 PTM46790 0FCF 0000 9450 | G4180 DC 0 ENTRY WORD 2G2 PTM46795 0FD0 CA17 9451 | LDD 2 W-CONST 2G2 PTM46800 0FD1 6903 9452 | G4190 STX 1 G4195+1 2G2 PTM46805 0FD2 4400 0701 9453 | BSI L ERFLG BR TO POST ERROR 2-8 PTM46810 0FD4 6500 0000 9454 | G4195 LDX L1 *-* RESTORE X1 2G2 PTM46815 0FD6 4C80 0FCF 9455 | BSC I G4180 RETURN TO MAINLINE 2G2 PTM46820 0FD8 0000 9456 | G4200 DC 0 ENTRY WORD 2G2 PTM46825 0FD9 C0FE 9457 | LD G4200 2G2 PTM46830 0FDA D0F4 9458 | STO G4180 TRANSFER RETURN ADDRESS2G2 PTM46835 0FDB CA36 9459 | LDD 2 S-CONST 2G2 PTM46840 0FDC 70F4 9460 | MDX G4190 2G2 PTM46845 0FDD 0000 9461 | G4220 DC 0 ENTRY WORD 2G2 PTM46850 0FDE C0FE 9462 | LD G4220 2G2 PTM46855 0FDF D0EF 9463 | STO G4180 TRANSFER RETURN ADDRESS2G2 PTM46860 0FE0 CA18 9464 | LDD 2 X-CONST 2G2 PTM46865 0FE1 70EF 9465 | MDX G4190 2G2 PTM46870 0FE2 0000 9466 | G4230 DC 0 ENTRY WORD 2G2 PTM46875 0FE3 C0FE 9467 | LD G4230 2G2 PTM46880 0FE4 D0EA 9468 | STO G4180 TRANSFER RETURN ADDRESS2G2 PTM46885 0FE5 CA19 9469 | LDD 2 Z-CONST 2G2 PTM46890 0FE6 70EA 9470 | MDX G4190 2G2 PTM46895 9471 | * 2G2 PTM46900 9472 | * *** PROCESS CS ORDERS *** 2G2 PTM46905 9473 | * 2G2 PTM46910 0FE7 C1FD 9474 | G1010 LD 1 -3 2G2 PTM46915 0FE8 921A 9475 | S 2 BLANK-CONST CHK IF COL 32 = BLANK 2G2 PTM46920 0FE9 4C18 0FEF 9476 | BSC L G1020,+- BRANCH IF YES 2G2 PTM46925 0FEB C1FD 9477 | LD 1 -3 2G2 PTM46930 0FEC 9216 9478 | S 2 R-CONST CHK IF COL 32 = R 2G2 PTM46935 0FED 4420 0FDD 9479 | BSI L G4220,Z BRANCH IF NO 2G2 PTM46940 0FEF C1FE 9480 | G1020 LD 1 -2 2G2 PTM46945 0FF0 921A 9481 | S 2 BLANK-CONST CHK IF COL 33 = BLANK 2G2 PTM46950 0FF1 4420 0FDD 9482 | BSI L G4220,Z BRANCH IF NO 2G2 PTM46955 0FF3 C213 9483 | LD 2 L-CONST 2G2 PTM46960 0FF4 D1FD 9484 | STO 1 -3 STORE BCD L IN COLUMN 32G2 PTM46965 0FF5 4400 04E1 9485 | BSI L SCAN BR TO EVALUATE OPERAND 2-8 PTM46970 0FF7 6600 0F0A 9486 | LDX L2 CONST 2G2 PTM46975 0FF9 C325 9487 | LD 3 VALUE-X3 2G2 PTM46980 0FFA 9201 9488 | S 2 G1-CONST CHK IF OPERAND = 1 2G2 PTM46985 0FFB 4C20 1007 9489 | BSC L G1040,Z BRANCH IF NO 2G2 PTM46990 0FFD C222 9490 | LD 2 MASK6-CONST LOAD MASK 2G2 PTM46995 0FFE D22B 9491 | STO 2 SAVE2-CONST 2G2 PTM47000 0FFF C21C 9492 | G1030 LD 2 SAVE0-CONST 2G2 PTM47005 1000 9216 9493 | S 2 R-CONST CHK IF COL 32 WAS = R 2G2 PTM47010 1001 4C20 101C 9494 | BSC L G1070,Z BRANCH IF NO 2G2 PTM47015 1003 C22B 9495 | LD 2 SAVE2-CONST 2G2 PTM47020 1004 821F 9496 | A 2 MASK3-CONST INCREM MASK VALUE 2G2 PTM47025 1005 D22B 9497 | STO 2 SAVE2-CONST 2G2 PTM47030 1006 7015 9498 | MDX G1070 2G2 PTM47035 1007 C325 9499 | G1040 LD 3 VALUE-X3 2G2 PTM47040 1008 9202 9500 | S 2 G2-CONST CHK IF OPERAND = 2 2G2 PTM47045 1009 4C20 100E 9501 | BSC L G1050,Z BRANCH IF NO 2G2 PTM47050 100B C223 9502 | LD 2 MASK7-CONST LOAD MASK 2G2 PTM47055 100C D22B 9503 | STO 2 SAVE2-CONST 2G2 PTM47060 100D 70F1 9504 | MDX G1030 2G2 PTM47065 100E C325 9505 | G1050 LD 3 VALUE-X3 2G2 PTM47070 100F 9204 9506 | S 2 G4-CONST CHK IF OPERAND = 4 2G2 PTM47075 1010 4C20 1015 9507 | BSC L G1060,Z BRANCH IF NO 2G2 PTM47080 1012 C21E 9508 | LD 2 MASK2-CONST LOAD MASK 2G2 PTM47085 1013 D22B 9509 | STO 2 SAVE2-CONST 2G2 PTM47090 1014 70EA 9510 | MDX G1030 2G2 PTM47095 1015 C325 9511 | G1060 LD 3 VALUE-X3 2G2 PTM47100 1016 9206 9512 | S 2 G7-CONST CHK IF OPERAND = 7 2G2 PTM47105 1017 4C20 1020 9513 | BSC L G1080,Z BRANCH IF NO 2G2 PTM47110 1019 C224 9514 | LD 2 MASK8-CONST LOAD MASK 2G2 PTM47115 101A D22B 9515 | STO 2 SAVE2-CONST 2G2 PTM47120 101B 70E3 9516 | MDX G1030 2G2 PTM47125 101C C22B 9517 | G1070 LD 2 SAVE2-CONST 2G2 PTM47130 101D EB2C 9518 | OR 3 OPCNT-X3 OR MASK BITS INTO 2G2 PTM47135 101E D32C 9519 | STO 3 OPCNT-X3 OP CODE BUFFER 2G2 PTM47140 101F 7001 9520 | MDX G1090 2G2 PTM47145 1020 40AE 9521 | G1080 BSI G4180 2G2 PTM47150 1021 C1FF 9522 | G1090 LD 1 -1 2G2 PTM47155 1022 4C18 1026 9523 | BSC L G1110,+- BRANCH IF NO 2ND OPERAN2G2 PTM47160 1024 C20B 9524 | LD 2 G127-CONST 2G2 PTM47165 1025 4005 9525 | BSI G4400 2G2 PTM47170 1026 4081 9526 | G1110 BSI G4090 2G2 PTM47175 1027 4400 073A 9527 | BSI L LDLBL 2-8 PTM47180 1029 4C00 045D 9528 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM47185 9529 | * 2G2 PTM47190 9530 | * *** CHECK OPERAND RANGE *** 2G2 PTM47195 9531 | * 2G2 PTM47200 102B 0000 9532 | G4400 DC *-* ENTRY WORD 2G2 PTM47205 102C D22B 9533 | STO 2 SAVE2-CONST 2G2 PTM47210 102D 4400 04E1 9534 | BSI L SCAN 2-8 PTM47215 102F 6600 0F0A 9535 | LDX L2 CONST 2G2 PTM47220 1031 C325 9536 | LD 3 VALUE-X3 2G2 PTM47225 1032 4C28 1041 9537 | BSC L G4420,Z+ BRANCH IF LT 0 2G2 PTM47230 1034 922B 9538 | S 2 SAVE2-CONST 2G2 PTM47235 1035 4C30 1041 9539 | BSC L G4420,Z- BR IF GT ARGUMENT 2G2 PTM47240 1037 C325 9540 | LD 3 VALUE-X3 2G2 PTM47245 1038 6B04 9541 | STX 3 G4410+1 2G2 PTM47250 1039 6780 0F33 9542 | LDX I3 SHIFT 2G2 PTM47255 103B 1300 9543 | SLA 3 2G2 PTM47260 103C 6700 0000 9544 | G4410 LDX L3 *-* 2G2 PTM47265 103E EB2C 9545 | OR 3 OPCNT-X3 2G2 PTM47270 103F D32C 9546 | STO 3 OPCNT-X3 2G2 PTM47275 1040 7002 9547 | MDX G4430 2G2 PTM47280 1041 4400 0FCF 9548 | G4420 BSI L G4180 2G2 PTM47285 1043 4C80 102B 9549 | G4430 BSC I G4400 2G2 PTM47290 9550 | * 2G2 PTM47295 9551 | * *** PROCESS SPM ORDER *** 2G2 PTM47300 9552 | * 2G2 PTM47305 1045 4400 0F44 9553 | G1150 BSI L G4250 2G2 PTM47310 1047 C209 9554 | LD 2 G15-CONST 2G2 PTM47315 1048 40E2 9555 | BSI G4400 2G2 PTM47320 1049 70DC 9556 | MDX G1110 BRANCH TO OUTPUT ORDER 2G2 PTM47325 9557 | * 2G2 PTM47330 9558 | * *** PROCESS GSB ORDER *** 2G2 PTM47335 9559 | * 2G2 PTM47340 104A 4400 0F44 9560 | G1180 BSI L G4250 2G2 PTM47345 104C 7401 0213 9561 | MDX L ADCOW,+1 2G2 PTM47350 104E C20D 9562 | LD 2 G8K-CONST 2G2 PTM47355 104F 40DB 9563 | BSI G4400 2G2 PTM47360 1050 74FF 0213 9564 | MDX L ADCOW,-1 2G2 PTM47365 1052 C327 9565 | LD 3 RELSW-X3 CHECK RELOCATION VALUE 2G2 PTM47370 1053 4C18 1026 9566 | BSC L G1110,+- BRANCH IF ABSOLUTE 2G2 PTM47375 1055 C210 9567 | LD 2 GB3-CONST 2G2 PTM47380 1056 D230 9568 | STO 2 COL6-CONST STORE BCD 3 IN COL6 2G2 PTM47385 1057 100E 9569 | SLA 14 2G2 PTM47390 1058 D322 9570 | STO 3 TRWRD-X3+1 2G2 PTM47395 1059 C32C 9571 | LD 3 OPCNT-X3 2G2 PTM47400 105A EA21 9572 | OR 2 MASK5-CONST 2G2 PTM47405 105B D32C 9573 | STO 3 OPCNT-X3 2G2 PTM47410 105C 70C9 9574 | MDX G1110 2G2 PTM47415 9575 | * 2G2 PTM47420 9576 | * *** PROCESS GBCE ORDERS *** 2G2 PTM47425 9577 | * 2G2 PTM47430 105D 6F00 0F36 9578 | G1230 STX L3 GBCE TURN ON GBCE INDICATOR 2G2 PTM47435 9579 | * 2G2 PTM47440 9580 | * *** PROCESS GBE ORDERS *** 2G2 PTM47445 9581 | * 2G2 PTM47450 105F C1FD 9582 | G1240 LD 1 -3 2G2 PTM47455 1060 921A 9583 | S 2 BLANK-CONST IS COL 32 = BLANK 2G2 PTM47460 1061 4420 0FDD 9584 | BSI L G4220,Z BRANCH TO ERR SUBR IF N2G2 PTM47465 1063 C213 9585 | LD 2 L-CONST 2G2 PTM47470 1064 D1FD 9586 | STO 1 -3 2G2 PTM47475 1065 4400 02EA 9587 | BSI L CLLCT 2G2 PTM47480 1067 6600 0F0A 9588 | LDX L2 CONST 2G2 PTM47485 9589 | * STORE 1ST 14 BITS OF NA2G2 PTM47490 1069 D32C 9590 | STO 3 OPCNT-X3 IN OP CODE WORD 2G2 PTM47495 106A 4346 9591 | BSI 3 LDXRS-X3 INIT X1 TP POINT TO COL2G2 PTM47500 106B C22C 9592 | LD 2 GBCE-CONST CHK IF GBCE ORDER 2G2 PTM47505 106C 4C20 1088 9593 | BSC L G1320,Z BRANCH IF YES 2G2 PTM47510 106E C121 9594 | LD 1 +33 2G2 PTM47515 106F 9214 9595 | S 2 N-CONST IS COL 32 = N 2G2 PTM47520 1070 4C20 1076 9596 | BSC L G1250,Z BRANCH IF NO 2G2 PTM47525 1072 C32C 9597 | LD 3 OPCNT-X3 2G2 PTM47530 1073 EA1D 9598 | OR 2 MASK1-CONST OR 1 INTO BIT 1 OF 2G2 PTM47535 1074 D32C 9599 | STO 3 OPCNT-X3 OP CODE WORD 2G2 PTM47540 1075 7004 9600 | MDX G1260 2G2 PTM47545 1076 C121 9601 | G1250 LD 1 +33 2G2 PTM47550 1077 921A 9602 | S 2 BLANK-CONST IS COL 33 = BLANK 2G2 PTM47555 1078 4420 0FDD 9603 | BSI L G4220,Z BRANCH TO ERR SUBR IF N2G2 PTM47560 107A C210 9604 | G1260 LD 2 GB3-CONST 2G2 PTM47565 107B D230 9605 | STO 2 COL6-CONST STORE BCD 3 IN COL 6 2G2 PTM47570 107C 100E 9606 | SLA 14 2G2 PTM47575 107D D322 9607 | STO 3 TRWRD-X3+1 2G2 PTM47580 107E 4400 0FA8 9608 | BSI L G4090 BRANCH TO OUTPUT 1ST WO2G2 PTM47585 1080 C324 9609 | LD 3 SYMBF+1-X3 STORE 2ND WORD OF NAME 2G2 PTM47590 1081 D32C 9610 | STO 3 OPCNT-X3 IN OP CODE WORD 2G2 PTM47595 1082 C20F 9611 | LD 2 GB2-CONST 2G2 PTM47600 1083 D231 9612 | STO 2 COL7-CONST STORE BCD 2 IN COL 7 2G2 PTM47605 1084 100E 9613 | SLA 14 2G2 PTM47610 1085 D322 9614 | STO 3 TRWRD-X3+1 2G2 PTM47615 1086 4C00 0F5A 9615 | G1270 BSC L G4265 BRANCH TO OUTPUT 2ND WO2G2 PTM47620 1088 7124 9616 | G1320 MDX 1 +36 2G2 PTM47625 1089 6206 9617 | LDX 2 +6 2G2 PTM47630 108A C1FF 9618 | G1322 LD 1 -1 2G2 PTM47635 108B 9400 0F25 9619 | S L COMMA CHK IF CHAR = COMMA 2G2 PTM47640 108D 4C18 1092 9620 | BSC L G1323,+- BRANCH IF YES 2G2 PTM47645 108F 7101 9621 | MDX 1 +1 2G2 PTM47650 1090 72FF 9622 | MDX 2 -1 2G2 PTM47655 1091 70F8 9623 | MDX G1322 2G2 PTM47660 1092 6600 0F0A 9624 | G1323 LDX L2 CONST 2G2 PTM47665 1094 4001 9625 | BSI G1325 2G2 PTM47670 1095 702A 9626 | MDX G1372 2G2 PTM47675 9627 | * 2G2 PTM47680 9628 | * *** CHECK CONDITION OPERAND *** 2G2 PTM47685 9629 | * 2G2 PTM47690 1096 0000 9630 | G1325 DC 0 ENTRY WORD 2G2 PTM47695 1097 C101 9631 | LD 1 +1 2G2 PTM47700 1098 18D0 9632 | RTE 16 2G2 PTM47705 1099 C100 9633 | LD 1 0 2G2 PTM47710 109A 9A34 9634 | SD 2 D-CONST IS OPERAND = DS 2G2 PTM47715 109B 4818 9635 | BSC +- 2G2 PTM47720 109C 18D0 9636 | RTE 16 2G2 PTM47725 109D 4C18 10BC 9637 | BSC L G1360,+- BRANCH IF YES 2G2 PTM47730 109F C101 9638 | LD 1 +1 2G2 PTM47735 10A0 18D0 9639 | RTE 16 2G2 PTM47740 10A1 C100 9640 | LD 1 0 2G2 PTM47745 10A2 9A36 9641 | SD 2 S-CONST IS OPERAND = SD 2G2 PTM47750 10A3 4818 9642 | BSC +- 2G2 PTM47755 10A4 18D0 9643 | RTE 16 2G2 PTM47760 10A5 4C18 10BC 9644 | BSC L G1360,+- BRANCH IF YES 2G2 PTM47765 10A7 C101 9645 | LD 1 +1 2G2 PTM47770 10A8 921A 9646 | S 2 BLANK-CONST 2G2 PTM47775 10A9 4C20 10B9 9647 | BSC L G1350,Z 2G2 PTM47780 10AB C100 9648 | LD 1 0 2G2 PTM47785 10AC 9236 9649 | S 2 S-CONST IS OPERAND = S 2G2 PTM47790 10AD 4C20 10B2 9650 | BSC L G1340,Z BRANCH IF NO 2G2 PTM47795 10AF C201 9651 | LD 2 G1-CONST LOAD MASK 2G2 PTM47800 10B0 D22D 9652 | STO 2 TEMP-CONST 2G2 PTM47805 10B1 700C 9653 | MDX G1370 2G2 PTM47810 10B2 C100 9654 | G1340 LD 1 0 2G2 PTM47815 10B3 9234 9655 | S 2 D-CONST IS OPERAND = D 2G2 PTM47820 10B4 4C20 10B9 9656 | BSC L G1350,Z BRANCH IF NO 2G2 PTM47825 10B6 C202 9657 | LD 2 G2-CONST LOAD MASK 2G2 PTM47830 10B7 D22D 9658 | STO 2 TEMP-CONST 2G2 PTM47835 10B8 7005 9659 | MDX G1370 2G2 PTM47840 10B9 4400 0FE2 9660 | G1350 BSI L G4230 BRANCH TO POST ERROR 2G2 PTM47845 10BB 7002 9661 | MDX G1370 2G2 PTM47850 10BC C203 9662 | G1360 LD 2 G3-CONST LOAD MASK 2G2 PTM47855 10BD D22D 9663 | STO 2 TEMP-CONST 2G2 PTM47860 10BE 4C80 1096 9664 | G1370 BSC I G1325 RETURN 2G2 PTM47865 9665 | * 2G2 PTM47870 9666 | * 2G2 PTM47875 10C0 C22D 9667 | G1372 LD 2 TEMP-CONST 2G2 PTM47880 10C1 100E 9668 | SLA 14 2G2 PTM47885 10C2 EB2C 9669 | OR 3 OPCNT-X3 OR OP CODE WITH MASK 2G2 PTM47890 10C3 D32C 9670 | STO 3 OPCNT-X3 2G2 PTM47895 10C4 4346 9671 | BSI 3 LDXRS-X3 INIT X1 TO POINT TO COL2G2 PTM47900 10C5 C20F 9672 | LD 2 GB2-CONST 2G2 PTM47905 10C6 D230 9673 | STO 2 COL6-CONST STORE BCD 2 IN COL 6 2G2 PTM47910 10C7 100E 9674 | SLA 14 2G2 PTM47915 10C8 D322 9675 | STO 3 TRWRD-X3+1 2G2 PTM47920 10C9 4400 0FA8 9676 | BSI L G4090 OUTPUT 1ST WORD 2G2 PTM47925 10CB C121 9677 | LD 1 +33 2G2 PTM47930 10CC 9214 9678 | S 2 N-CONST IS COL 33 = N 2G2 PTM47935 10CD 4C20 10D4 9679 | BSC L G1380,Z BRANCH IF NO 2G2 PTM47940 10CF C210 9680 | LD 2 GB3-CONST 2G2 PTM47945 10D0 D231 9681 | STO 2 COL7-CONST STORE BCD 3 IN COL 7 2G2 PTM47950 10D1 100E 9682 | SLA 14 2G2 PTM47955 10D2 D322 9683 | STO 3 TRWRD-X3+1 2G2 PTM47960 10D3 7008 9684 | MDX G1390 2G2 PTM47965 10D4 C121 9685 | G1380 LD 1 +33 2G2 PTM47970 10D5 921A 9686 | S 2 BLANK-CONST IS COL 33 = BLANK 2G2 PTM47975 10D6 4420 0FDD 9687 | BSI L G4220,Z BRANCH IF NO 2G2 PTM47980 10D8 C20F 9688 | LD 2 GB2-CONST 2G2 PTM47985 10D9 D231 9689 | STO 2 COL7-CONST STORE BCD 2 IN COL 7 2G2 PTM47990 10DA 100E 9690 | SLA 14 2G2 PTM47995 10DB D322 9691 | STO 3 TRWRD-X3+1 2G2 PTM48000 10DC C324 9692 | G1390 LD 3 SYMBF+1-X3 STORE 2ND WORD OF NAME 2G2 PTM48005 10DD D32C 9693 | STO 3 OPCNT-X3 IN OP CODE WORD 2G2 PTM48010 10DE 10A0 9694 | SLT 32 2G2 PTM48015 10DF DA2C 9695 | STD 2 GBCE-CONST 2G2 PTM48020 10E0 70A5 9696 | MDX G1270 BRANCH TO OUTPUT 2ND WO2G2 PTM48025 9697 | * 2G2 PTM48030 9698 | * *** PROCESS GI ORDER *** 2G2 PTM48035 9699 | * 2G2 PTM48040 10E1 D238 9700 | G1400 STO 2 GBGI-CONST SET GB/GI ORDER INDICAT2G2 PTM48045 10E2 7009 9701 | MDX G1430 2G2 PTM48050 9702 | * 2G2 PTM48055 9703 | * *** PROCESS GB ORDER *** 2G2 PTM48060 9704 | * 2G2 PTM48065 10E3 D238 9705 | G1410 STO 2 GBGI-CONST SET GB/GI ORDER INDICAT2G2 PTM48070 9706 | * 2G2 PTM48075 9707 | * *** PROCESS GBC ORDER *** 2G2 PTM48080 9708 | * 2G2 PTM48085 10E4 C1FD 9709 | G1420 LD 1 -3 2G2 PTM48090 10E5 9212 9710 | S 2 I-CONST CHK IF COL 32 = I 2G2 PTM48095 10E6 4C20 10ED 9711 | BSC L G1440,Z BRANCH IF NO 2G2 PTM48100 10E8 C32C 9712 | LD 3 OPCNT-X3 2G2 PTM48105 10E9 EA1F 9713 | OR 2 MASK3-CONST TURN ON BIT 8 IN OP CO2G2 PTM48110 10EA D32C 9714 | STO 3 OPCNT-X3 BUFFER 2G2 PTM48115 10EB 7005 9715 | MDX G1450 2G2 PTM48120 9716 | * 2G2 PTM48125 9717 | * *** PROCESS GIC ORDER *** 2G2 PTM48130 9718 | * 2G2 PTM48135 10EC D239 9719 | G1430 STO 2 GIGIC-CONST SET INTERRUPT ORDER IN2G2 PTM48140 10ED C1FD 9720 | G1440 LD 1 -3 2G2 PTM48145 10EE 921A 9721 | S 2 BLANK-CONST CHK IF COL 32 = BLANK2G2 PTM48150 10EF 4420 0FDD 9722 | BSI L G4220,Z BRANCH IF NO 2G2 PTM48155 10F1 7402 0213 9723 | G1450 MDX L ADCOW,+2 2G2 PTM48160 10F3 C1FE 9724 | LD 1 -2 2G2 PTM48165 10F4 9214 9725 | S 2 N-CONST CHK IF COL 33 = N 2G2 PTM48170 10F5 4C20 10FB 9726 | BSC L G1460,Z BRANCH IF NO 2G2 PTM48175 10F7 C32C 9727 | LD 3 OPCNT-X3 2G2 PTM48180 10F8 EA1E 9728 | OR 2 MASK2-CONST TURN ON BIT 5 IN OP CO2G2 PTM48185 10F9 D32C 9729 | STO 3 OPCNT-X3 WORD 2G2 PTM48190 10FA 7004 9730 | MDX G1470 2G2 PTM48195 10FB C1FE 9731 | G1460 LD 1 -2 2G2 PTM48200 10FC 921A 9732 | S 2 BLANK-CONST CHK IF COL 33 = BLANK 2G2 PTM48205 10FD 4420 0FDD 9733 | BSI L G4220,Z BRANCH IF NO 2G2 PTM48210 10FF C238 9734 | G1470 LD 2 GBGI-CONST 2G2 PTM48215 1100 4C20 1105 9735 | BSC L G1480,Z BR IF ORDER IS GB OR GI2G2 PTM48220 1102 C213 9736 | LD 2 L-CONST 2G2 PTM48225 1103 D1FD 9737 | STO 1 -3 2G2 PTM48230 1104 700F 9738 | MDX G1510 2G2 PTM48235 1105 C239 9739 | G1480 LD 2 GIGIC-CONST CHK IF INTERRUPT ORDER2G2 PTM48240 1106 4C18 110C 9740 | BSC L G1490,+- BRANCH IF NO 2G2 PTM48245 1108 C100 9741 | LD 1 0 2G2 PTM48250 1109 921A 9742 | S 2 BLANK-CONST CHK IF COL 35 = BLANK 2G2 PTM48255 110A 4C18 1111 9743 | BSC L G1500,+- BRANCH IF YES 2G2 PTM48260 110C 4400 04E1 9744 | G1490 BSI L SCAN BR TO EVALUATE ORDER 2-8 PTM48265 110E 6600 0F0A 9745 | LDX L2 CONST 2G2 PTM48270 1110 700C 9746 | MDX G1530 2G2 PTM48275 1111 1010 9747 | G1500 SLA 16 2G2 PTM48280 1112 D325 9748 | STO 3 VALUE-X3 2G2 PTM48285 1113 7009 9749 | MDX G1530 2G2 PTM48290 1114 4400 04E1 9750 | G1510 BSI L SCAN BR TO CVRT 1ST OPERAND 2-8 PTM48295 1116 6600 0F0A 9751 | LDX L2 CONST 2G2 PTM48300 1118 4400 1096 9752 | BSI L G1325 2G2 PTM48305 111A C22D 9753 | LD 2 TEMP-CONST 2G2 PTM48310 111B EB2C 9754 | OR 3 OPCNT-X3 OR OP CODE WITH MASK 2G2 PTM48315 111C D32C 9755 | STO 3 OPCNT-X3 2G2 PTM48320 111D 74FE 0213 9756 | G1530 MDX L ADCOW,-2 2G2 PTM48325 111F 4400 0FA8 9757 | BSI L G4090 2G2 PTM48330 1121 C327 9758 | LD 3 RELSW-X3 LOAD RELOC INDICATOR 2G2 PTM48335 1122 820E 9759 | A 2 GB0-CONST MAKE PRINTABLE AND 2G2 PTM48340 1123 D231 9760 | STO 2 COL7-CONST STORE IN COL 7 2G2 PTM48345 1124 100E 9761 | SLA 14 2G2 PTM48350 1125 D322 9762 | STO 3 TRWRD-X3+1 2G2 PTM48355 1126 C239 9763 | LD 2 GIGIC-CONST CHK IF INTERRUPT ORDER2G2 PTM48360 1127 4C20 112F 9764 | BSC L G1560,Z BRANCH IF YES 2G2 PTM48365 1129 C325 9765 | LD 3 VALUE-X3 BRANCH IF OPERAND =/GT 2G2 PTM48370 112A 4C10 1130 9766 | BSC L G1565,- 0 AND =/LT 32767 2G2 PTM48375 112C 4400 0FCF 9767 | BSI L G4180 BRANCH TO POST ERROR 2G2 PTM48380 112E 7002 9768 | MDX G1570 2G2 PTM48385 112F C325 9769 | G1560 LD 3 VALUE-X3 STORE OPERAND IN OP COD2G2 PTM48390 1130 D32C 9770 | G1565 STO 3 OPCNT-X3 WORD 2G2 PTM48395 1131 10A0 9771 | G1570 SLT 32 2G2 PTM48400 1132 DA38 9772 | STD 2 GBGI-CONST 2G2 PTM48405 1133 4C00 0F5A 9773 | BSC L G4265 2G2 PTM48410 9774 | * 2G2 PTM48415 9775 | * *** PROCESS MBS ORDER *** 2G2 PTM48420 9776 | * 2G2 PTM48425 1135 1010 9777 | G3230 SLA 16 2G2 PTM48430 1136 D22E 9778 | STO 2 IND-CONST ZERO DBS INDICATOR 2G2 PTM48435 1137 7002 9779 | MDX G3234 2G2 PTM48440 9780 | * 2G2 PTM48445 9781 | * *** PROCESS DBS ORDER *** 2G2 PTM48450 9782 | * 2G2 PTM48455 1138 6F00 0F38 9783 | G3232 STX L3 IND SET DBS INDICATOR 2G2 PTM48460 113A C3F4 9784 | G3234 LD 3 PASS-X3 2G2 PTM48465 113B 4C20 1153 9785 | BSC L G3236,Z BRANCH IF PASS 2 2G2 PTM48470 113D 1010 9786 | SLA 16 2G2 PTM48475 113E D22E 9787 | STO 2 IND-CONST ZERO DBS INDICATOR 2G2 PTM48480 113F 7401 0213 9788 | MDX L ADCOW,+1 2G2 PTM48485 1141 C1FD 9789 | LD 1 -3 2G2 PTM48490 1142 9216 9790 | S 2 R-CONST CHK IF REVERT SPECIFIED2G2 PTM48495 1143 4C20 1149 9791 | BSC L G3235,Z BR IF NO 2-8 PTM48500 1145 4400 073A 9792 | BSI L LDLBL PASS RECORD,GET NEXT RCD2-8 PTM48505 1147 4C00 045D 9793 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM48510 1149 405B 9794 | G3235 BSI G3443 2-8 PTM48515 114A C228 9795 | LD 2 CPAIR-CONST CHK IF 2ND STROKE ORDE2G2 PTM48520 114B 4C18 045D 9796 | BSC L STRT9,+- BRANCH IF NO 2G2 PTM48525 114D 1010 9797 | SLA 16 2G2 PTM48530 114E D228 9798 | STO 2 CPAIR-CONST 2G2 PTM48535 114F 4400 073A 9799 | BSI L LDLBL 2-8 PTM48540 1151 4C00 045D 9800 | BSC L STRT9 BR TO OP CODE SEARCH 2-8 PTM48545 1153 C228 9801 | G3236 LD 2 CPAIR-CONST 2G2 PTM48550 1154 4C18 115A 9802 | BSC L G3238,+- BR IF NO MBS/DBS PENDIN2G2 PTM48555 1156 D32C 9803 | STO 3 OPCNT-X3 2G2 PTM48560 1157 C204 9804 | LD 2 G4-CONST 2G2 PTM48565 1158 D229 9805 | STO 2 SHIFT-CONST SET SHIFT VALUE 2G2 PTM48570 1159 7004 9806 | MDX G3240 2G2 PTM48575 115A C221 9807 | G3238 LD 2 MASK5-CONST 2G2 PTM48580 115B D32C 9808 | STO 3 OPCNT-X3 2G2 PTM48585 115C C208 9809 | LD 2 G12-CONST 2G2 PTM48590 115D D229 9810 | STO 2 SHIFT-CONST SET SHIFT VALUE 2G2 PTM48595 115E C22E 9811 | G3240 LD 2 IND-CONST 2G2 PTM48600 115F 4C18 116B 9812 | BSC L G3245,+- BRANCH IF MBS ORDER 2G2 PTM48605 1161 C228 9813 | LD 2 CPAIR-CONST 2G2 PTM48610 1162 4C20 1168 9814 | BSC L G3242,Z BRANCH IF ORDER PENDING2G2 PTM48615 1164 C32C 9815 | LD 3 OPCNT-X3 2G2 PTM48620 1165 EA20 9816 | OR 2 MASK4-CONST OR 1 INTO BIT 4 2G2 PTM48625 1166 D32C 9817 | G3241 STO 3 OPCNT-X3 2G2 PTM48630 1167 7003 9818 | MDX G3245 2G2 PTM48635 1168 C32C 9819 | G3242 LD 3 OPCNT-X3 2G2 PTM48640 1169 EA07 9820 | OR 2 G8-CONST OR 1 INTO COL 12 2G2 PTM48645 116A 70FB 9821 | MDX G3241 2G2 PTM48650 116B C1FE 9822 | G3245 LD 1 -2 2G2 PTM48655 116C 9234 9823 | S 2 D-CONST CHK IF COL 33 = D 2G2 PTM48660 116D 4C20 1174 9824 | BSC L G3250,Z BRANCH IF NO 2G2 PTM48665 116F C32C 9825 | LD 3 OPCNT-X3 2G2 PTM48670 1170 1001 9826 | SLA 1 2G2 PTM48675 1171 1801 9827 | SRA 1 2G2 PTM48680 1172 D32C 9828 | STO 3 OPCNT-X3 2G2 PTM48685 1173 7006 9829 | MDX G3280 2G2 PTM48690 1174 C1FE 9830 | G3250 LD 1 -2 2G2 PTM48695 1175 921A 9831 | S 2 BLANK-CONST CHK IF COL 33 = BLANK 2G2 PTM48700 1176 4C18 117A 9832 | BSC L G3280,+- BRANCH IF YES 2G2 PTM48705 1178 4400 0FDD 9833 | BSI L G4220 BRANCH TO POST ERROR 2G2 PTM48710 117A C1FD 9834 | G3280 LD 1 -3 2G2 PTM48715 117B 9216 9835 | S 2 R-CONST CHK IF COL 32 = R 2G2 PTM48720 117C 4C20 1182 9836 | BSC L G3290,Z BRANCH IF NO 2G2 PTM48725 117E C32C 9837 | LD 3 OPCNT-X3 2G2 PTM48730 117F EA1F 9838 | OR 2 MASK3-CONST OR 1 INTO BIT 8 OF OP 2G2 PTM48735 1180 D32C 9839 | STO 3 OPCNT-X3 CODE WORD 2G2 PTM48740 1181 7006 9840 | MDX G3300 2G2 PTM48745 1182 C1FD 9841 | G3290 LD 1 -3 2G2 PTM48750 1183 921A 9842 | S 2 BLANK-CONST CHK IF COL 32 = BLANK2G2 PTM48755 1184 4C18 1188 9843 | BSC L G3300,+- BRANCH IF YES 2G2 PTM48760 1186 4400 0FDD 9844 | BSI L G4220 BRANCH TO POST ERROR 2G2 PTM48765 1188 C213 9845 | G3300 LD 2 L-CONST STORE BCD L IN COL 32 2G2 PTM48770 1189 D1FD 9846 | STO 1 -3 2G2 PTM48775 118A C205 9847 | G3400 LD 2 G6-CONST 2G2 PTM48780 118B 4400 102B 9848 | G3405 BSI L G4400 2G2 PTM48785 118D C226 9849 | LD 2 OPER2-CONST CHK IF 2ND OPERAND IND2G2 PTM48790 118E 4C20 1197 9850 | BSC L G3442,Z BRANCH IF NO 2G2 PTM48795 1190 6D00 0F30 9851 | STX L1 OPER2 SET 2ND OPERAND INDICAT2G2 PTM48800 1192 74FC 0F33 9852 | MDX L SHIFT,-4 2G2 PTM48805 1194 1000 9853 | NOP 2G2 PTM48810 1195 C206 9854 | LD 2 G7-CONST 2G2 PTM48815 1196 70F4 9855 | MDX G3405 2G2 PTM48820 1197 1010 9856 | G3442 SLA 16 2G2 PTM48825 1198 D226 9857 | STO 2 OPER2-CONST ZERO 2ND OPERAND IND 2G2 PTM48830 1199 C229 9858 | LD 2 SHIFT-CONST CHK IF MBS/DBS PENDING2G2 PTM48835 119A 4C18 11F2 9859 | BSC L G3470,+- BRANCH IF YES 2G2 PTM48840 119C C32C 9860 | LD 3 OPCNT-X3 2G2 PTM48845 119D 1009 9861 | SLA 9 CHK IF REVERT BIT IS ON2G2 PTM48850 119E 4C02 11F2 9862 | BSC L G3470,C BRANCH IF YES 2G2 PTM48855 11A0 4004 9863 | BSI G3443 2G2 PTM48860 11A1 C228 9864 | LD 2 CPAIR-CONST CHK IF NEXT ORDER = ST2G2 PTM48865 11A2 4C20 11DF 9865 | BSC L G3457,Z BRANCH IF YES 2G2 PTM48870 11A4 7030 9866 | MDX G3456 2G2 PTM48875 9867 | * 2G2 PTM48880 9868 | * *** LOOK AT NEXT ORDER *** 2G2 PTM48885 9869 | * 2G2 PTM48890 11A5 0000 9870 | G3443 DC 0 ENTRY WORD 2G2 PTM48895 11A6 4346 9871 | BSI 3 LDXRS-X3 INIT X1 TO POINT TO COL2G2 PTM48900 11A7 C3F4 9872 | LD 3 PASS-X3 2G2 PTM48905 11A8 4C18 11B5 9873 | BSC L G3446,+- BRANCH IF PASS 1 2G2 PTM48910 11AA 6680 0239 9874 | LDX I2 RDBFR+1 INIT X2 WITH ALT BFR AD2G2 PTM48915 11AC 6350 9875 | LDX 3 +80 2G2 PTM48920 11AD C101 9876 | G3444 LD 1 +1 SAVE CURRENT ORDER 2G2 PTM48925 11AE D201 9877 | STO 2 +1 2G2 PTM48930 11AF 7101 9878 | MDX 1 +1 2G2 PTM48935 11B0 7201 9879 | MDX 2 +1 2G2 PTM48940 11B1 73FF 9880 | MDX 3 -1 2G2 PTM48945 11B2 70FA 9881 | MDX G3444 2G2 PTM48950 11B3 4400 025F 9882 | BSI L LDXRS INIT X3 2G2 PTM48955 11B5 9883 | G3446 EQU * 2-8 PTM48960 11B5 6600 0F0A 9884 | LDX L2 CONST 2G2 PTM48965 11B7 C3F2 9885 | LD 3 LSTOP-X3 2G2 PTM48970 11B8 D22B 9886 | STO 2 SAVE2-CONST 2G2 PTM48975 11B9 1010 9887 | SLA 16 2G2 PTM48980 11BA D3F2 9888 | STO 3 LSTOP-X3 2G2 PTM48985 11BB 4400 073A 9889 | BSI L LDLBL READ NEXT RCD 2-8 PTM48990 11BD 6600 0F0A 9890 | G3447 LDX L2 CONST 2G2 PTM48995 11BF C22B 9891 | LD 2 SAVE2-CONST 2G2 PTM49000 11C0 D3F2 9892 | STO 3 LSTOP-X3 2G2 PTM49005 11C1 C11D 9893 | LD 1 +29 2G2 PTM49010 11C2 9236 9894 | S 2 S-CONST CHK IF MBS/DBS 2G2 PTM49015 11C3 4C20 11CF 9895 | BSC L G3452,Z BRANCH IF NOT = S 2G2 PTM49020 11C5 C11C 9896 | LD 1 +28 2G2 PTM49025 11C6 9211 9897 | S 2 B-CONST 2G2 PTM49030 11C7 4C20 11CF 9898 | BSC L G3452,Z BRANCH IF NOT MBS/DBS 2G2 PTM49035 11C9 C32C 9899 | LD 3 OPCNT-X3 2G2 PTM49040 11CA 4818 9900 | BSC +- SKIP IF NOT ZERO 2G2 PTM49045 11CB EA21 9901 | OR 2 MASK5-CONST OR 1 INTO BIT 0 2G2 PTM49050 11CC D228 9902 | STO 2 CPAIR-CONST SAVE OP CODE WORD 2G2 PTM49055 11CD 1010 9903 | SLA 16 2G2 PTM49060 11CE D32C 9904 | STO 3 OPCNT-X3 ZERO OP CODE WORD 2G2 PTM49065 11CF C3F4 9905 | G3452 LD 3 PASS-X3 2G2 PTM49070 11D0 4C98 11A5 9906 | BSC I G3443,+- BRANCH IF PASS 1 2G2 PTM49075 11D2 4024 9907 | BSI G3490 2G2 PTM49080 11D3 4C80 11A5 9908 | G3455 BSC I G3443 2G2 PTM49085 9909 | * 2G2 PTM49090 9910 | * 2G2 PTM49095 9911 | * 2G2 PTM49100 11D5 C20E 9912 | G3456 LD 2 GB0-CONST 2G2 PTM49105 11D6 D106 9913 | STO 1 +6 2G2 PTM49110 11D7 C303 9914 | LD 3 LABVL-X3 STORE LABEL VALUE IN BF2G2 PTM49115 11D8 7101 9915 | MDX 1 +1 2G2 PTM49120 11D9 4400 06FA 9916 | BSI L B4HEX 2-8 PTM49125 11DB 6600 0F0A 9917 | LDX L2 CONST 2G2 PTM49130 11DD 4400 0FA8 9918 | BSI L G4090 2G2 PTM49135 11DF 4346 9919 | G3457 BSI 3 LDXRS-X3 INIT X1 TO POINT TO COL2G2 PTM49140 11E0 C21C 9920 | LD 2 SAVE0-CONST 2G2 PTM49145 11E1 D120 9921 | STO 1 +32 RESTORE COLUMN 32 2G2 PTM49150 11E2 C112 9922 | LD 1 +18 2G2 PTM49155 11E3 921A 9923 | S 2 BLANK-CONST 2G2 PTM49160 11E4 4C20 11EF 9924 | BSC L G3458,Z BR IF LINE PRINTED 2G2 PTM49165 11E6 C303 9925 | LD 3 LABVL-X3 STORE LABEL VALUE IN BF2G2 PTM49170 11E7 7101 9926 | MDX 1 +1 2G8 PTM49175 11E8 4400 06FA 9927 | BSI L B4HEX 2-9 PTM49180 11EA C3F2 9928 | LD 3 LSTOP-X3 2G2 PTM49185 11EB 4C18 11EF 9929 | BSC L G3458,+- BRANCH IF NO LIST 2G2 PTM49190 11ED 4400 0802 9930 | BSI L P9MVE BR TO PRINT LINE 2-8 PTM49195 11EF 4007 9931 | G3458 BSI G3490 2G2 PTM49200 11F0 4C00 045D 9932 | G3459 BSC L STRT9 2G2 PTM49205 11F2 10A0 9933 | G3470 SLT 32 2G2 PTM49210 11F3 DA28 9934 | STD 2 CPAIR-CONST 2G2 PTM49215 11F4 D22E 9935 | STO 2 IND-CONST 2G2 PTM49220 11F5 4C00 1026 9936 | G3480 BSC L G1110 OUTPUT ORDER 2G2 PTM49225 11F7 0000 9937 | G3490 DC 0 2G2 PTM49230 11F8 CB1F 9938 | LDD 3 RDBFR-X3 2G2 PTM49235 11F9 18D0 9939 | RTE 16 2G2 PTM49240 11FA DB1F 9940 | STD 3 RDBFR-X3 2G2 PTM49245 11FB 6580 0238 9941 | LDX I1 RDBFR 2G2 PTM49250 11FD 4342 9942 | BSI 3 STXRS-X3 2G2 PTM49255 11FE 4C80 11F7 9943 | BSC I G3490 2G2 PTM49260 9944 | * 2G2 PTM49265 9945 | * *** OP CODE SEARCH TABLE *** 2G2 PTM49270 9946 | * 2G2 PTM49275 1200 9947 | BSS E 14 PATCH AREA 2-8 PTM49280 120E E2C7 D4E5 9948 | TBLE1 EBC .SGMV. 2G2 PTM49285 1210 3201 9949 | DC /3201 2G2 PTM49290 1211 0F4F 9950 | DC G4260 2G2 PTM49295 1212 E2C7 D4D7 9951 | EBC .SGMP. 2G2 PTM49300 1214 B201 9952 | DC /B201 2G2 PTM49305 1215 0F4F 9953 | DC G4260 2G2 PTM49310 1216 E2C3 D4C2 9954 | EBC .SCMB. 2G2 PTM49315 1218 3301 9955 | DC /3301 2G2 PTM49320 1219 0F4F 9956 | DC G4260 2G2 PTM49325 121A E2C3 D4D3 9957 | EBC .SCML. 2G2 PTM49330 121C B301 9958 | DC /B301 2G2 PTM49335 121D 0F4F 9959 | DC G4260 2G2 PTM49340 121E E2E3 D4D9 9960 | EBC .STMR. 2G2 PTM49345 1220 3401 9961 | DC /3401 2G2 PTM49350 1221 0F4F 9962 | DC G4260 2G2 PTM49355 1222 D9E5 E340 9963 | EBC .RVT . 2G2 PTM49360 1224 3601 9964 | DC /3601 2G2 PTM49365 1225 0F4F 9965 | DC G4260 2G2 PTM49370 1226 E2D9 E5E3 9966 | EBC .SRVT. 2G2 PTM49375 1228 3500 9967 | SRVT DC /3500 2G2 PTM49380 1229 0F4F 9968 | DC G4260 2G2 PTM49385 122A C7D5 D6D7 9969 | EBC .GNOP. 2G2 PTM49390 122C 3101 9970 | DC /3101 2G2 PTM49395 122D 0F4F 9971 | DC G4260 2G2 PTM49400 122E D4C2 C140 9972 | EBC .MBA . 2G2 PTM49405 1230 4000 9973 | DC /4000 2G2 PTM49410 1231 0F64 9974 | DC G4290 2G2 PTM49415 1232 C4C2 C140 9975 | EBC .DBA . 2G2 PTM49420 1234 5000 9976 | DC /5000 2G2 PTM49425 1235 0F64 9977 | DC G4290 2G2 PTM49430 1236 D4C2 C1E7 9978 | EBC .MBAX. 2G2 PTM49435 1238 6001 9979 | DC /6001 2G2 PTM49440 1239 0F63 9980 | DC G4285 2G2 PTM49445 123A D4C2 C1E8 9981 | EBC .MBAY. 2G2 PTM49450 123C 6801 9982 | DC /6801 2G2 PTM49455 123D 0F63 9983 | DC G4285 2G2 PTM49460 123E C4C2 C1E7 9984 | EBC .DBAX. 2G2 PTM49465 1240 7001 9985 | DC /7001 2G2 PTM49470 1241 0F63 9986 | DC G4285 2G2 PTM49475 1242 C4C2 C1E8 9987 | EBC .DBAY. 2G2 PTM49480 1244 7801 9988 | DC /7801 2G2 PTM49485 1245 0F63 9989 | DC G4285 2G2 PTM49490 1246 D4C2 C940 9990 | EBC .MBI . 2G2 PTM49495 1248 0001 9991 | DC /0001 2G2 PTM49500 1249 0F5C 9992 | DC G4280 2G2 PTM49505 124A C4C2 C940 9993 | EBC .DBI . 2G2 PTM49510 124C 0081 9994 | DC /0081 2G2 PTM49515 124D 0F5C 9995 | DC G4280 2G2 PTM49520 124E C7E2 C240 9996 | EBC .GSB . 2G2 PTM49525 1250 0001 9997 | DC /0001 2G2 PTM49530 1251 104A 9998 | DC G1180 2G2 PTM49535 1252 E2D7 D440 9999 | EBC .SPM . 2G2 PTM49540 1254 3101 10000 | DC /3101 2G2 PTM49545 1255 1045 10001 | DC G1150 2G2 PTM49550 1256 C7C2 4040 10002 | EBC .GB . 2G2 PTM49555 1258 2800 10003 | DC /2800 2G2 PTM49560 1259 10E3 10004 | DC G1410 2G2 PTM49565 125A C7C2 C340 10005 | EBC .GBC . 2G2 PTM49570 125C 2800 10006 | DC /2800 2G2 PTM49575 125D 10E4 10007 | DC G1420 2G2 PTM49580 125E C7C9 4040 10008 | EBC .GI . 2G2 PTM49585 1260 2000 10009 | DC /2000 2G2 PTM49590 1261 10E1 10010 | DC G1400 2G2 PTM49595 1262 C7C9 C340 10011 | EBC .GIC . 2G2 PTM49600 1264 2000 10012 | DC /2000 2G2 PTM49605 1265 10EC 10013 | DC G1430 2G2 PTM49610 1266 C3E2 4040 10014 | EBC .CS . 2G2 PTM49615 1268 7001 10015 | DC /7001 2G2 PTM49620 1269 0FE7 10016 | DC G1010 2G2 PTM49625 126A C7C2 C540 10017 | EBC .GBE . 2G2 PTM49630 126C 0000 10018 | DC /0000 2G2 PTM49635 126D 105F 10019 | DC G1240 2G2 PTM49640 126E C7C2 C3C5 10020 | EBC .GBCE. 2G2 PTM49645 1270 0000 10021 | DC /0000 2G2 PTM49650 1271 105D 10022 | DC G1230 2G2 PTM49655 1272 D4C2 E240 10023 | STROK EBC .MBS . 2G2 PTM49660 1274 0000 10024 | DC /0000 2G2 PTM49665 1275 1135 10025 | DC G3230 2G2 PTM49670 1276 C4C2 E240 10026 | EBC .DBS . 2G2 PTM49675 1278 0000 10027 | DC /0000 2G2 PTM49680 1279 1138 10028 | DC G3232 2G2 PTM49685 127E 10029 | G4990 EQU *+4 2G2 PTM49690 127A 10030 | BSS 18 2-9 PTM49695 128C 0001 10031 | PDEND DC 1 2G2 PTM49700 *SBRKSLS E8 10032 | ASM CONTROL CARDS III V2M08 PTM49705 PHASE 1B CONTROL RECORDS III 10034 | *************************************************** PTM49715 10035 | * * PTM49720 10036 | *STATUS - VERSION 2, MODIFICATION 11 * PTM49725 10037 | * * PTM49730 10038 | *FUNCTION/OPERATION- * PTM49735 10039 | * *IN PASS 1,PHASE 1B PROCESSES THE MACLIB * PTM49740 10040 | * CONTROL RECORD. * PTM49745 10041 | * *A CORE SIZE CHECK IS PERFORMED AGAINST * PTM49750 10042 | * 4K AND A CHECK IS MADE FOR MULTIPLE * PTM49755 10043 | * MACLIB RECORDS. EITHER OF THESE CONDITIONS * PTM49760 10044 | * FORCES THE A07 ERROR MESSAGE AND * PTM49765 10045 | * CAUSES PHASE 1 TO BE RESTORED FOR * PTM49770 10046 | * FURTHER RECORD PROCESSING. * PTM49775 10047 | * *THE MACLIB NAME IS CHECKED FOR * PTM49780 10048 | * VALIDITY. IF THE NAME IS INVALID, * PTM49785 10049 | * THE A07 ERROR MESSAGE IS PRINTED * PTM49790 10050 | * AND PHASE 1 IS RESTORED TO CONTINUE * PTM49795 10051 | * PROCESSING RECORDS. * PTM49800 10052 | * *A STANDARD LET/FLET SEARCH IS * PTM49805 10053 | * PERFORMED AGAINST THE MACLIB NAME * PTM49810 10054 | * WITH DDF INDICATOR. IF THE LET/FLET * PTM49815 10055 | * SEARCH FAILS, THE A07 ERROR MESSAGE IS * PTM49820 10056 | * PRINTED AND PHASE 1 IS RESTORED TO * PTM49825 10057 | * CONTINUE PROCESSING RECORDS. * PTM49830 10058 | * *IF THE LET/FLET SEARCH IS SUCCESSFUL, * PTM49835 10059 | * THE DISK ADDRESS OF THE START OF THE * PTM49840 10060 | * LIBRARY IS SET IN SMSEC OF ASMCM AND * PTM49845 10061 | * THE HIGH LIMIT DISK ADDRESS OF THE * PTM49850 10062 | * LIBRARY IS SET IN SYSLM OF ASMCM. PHASE * PTM49855 10063 | * 1 IS THEN RESTORED TO CONTINUE RECORD * PTM49860 10064 | * PROCESSING. * PTM49865 10065 | * *IN PASS 2,PHASE 1 IS IMMEDIATELY * PTM49870 10066 | * RESTORED AND PROCESSING OF RECORDS * PTM49875 10067 | * CONTINUES. * PTM49880 10068 | * * PTM49885 10069 | *ENTRY POINTS- * PTM49890 10070 | * * B1000 - ENTRY FROM PHASE 1 * PTM49895 10071 | * * PTM49900 10072 | *INPUT- * PTM49905 10073 | * *MACLIB CONTROL RECORD AT INPUT BUFFER * PTM49910 10074 | * * PTM49915 10075 | *OUTPUT- * PTM49920 10076 | * *SYSTEM MACRO LIBRARY STARTING AND * PTM49925 10077 | * ENDING DISK ADDRESSES IN SMSEC AND * PTM49930 10078 | * SYSLM OF ASMCM RESPECTIVELY. * PTM49935 10079 | *EXTERNAL REFERENCES- * PTM49940 10080 | * *SUBROUTINES- * PTM49945 10081 | * * DISK1 * PTM49950 10082 | * * LXDRS * PTM49955 10083 | * *DCOM/COMMA- * PTM49960 10084 | * * $ULET * PTM49965 10085 | * * $PBSY * PTM49970 10086 | * * $PHSE * PTM49975 10087 | * * $CORE * PTM49980 10088 | * * @LFNM * PTM49985 10089 | * * @UAFX * PTM49990 10090 | * * @LFHD * PTM49995 10091 | * * @WDSA * PTM50000 10092 | * * @SCTN * PTM50005 10093 | * * @MXDR * PTM50010 10094 | * * @NEXT * PTM50015 10095 | * * @LFEN * PTM50020 10096 | * * @BLCT * PTM50025 10097 | * *ASMCM- * PTM50030 10098 | * * PASS * PTM50035 10099 | * * SMSEC * PTM50040 10100 | * * SYSLM * PTM50045 10101 | * * PTM50050 10102 | *EXITS- * PTM50055 10103 | * *NORMAL - MASTER OVERLAY CONTROL SUBR * PTM50060 10104 | * *ERROR - MASTER OVERLAY CONTROL SUBR * PTM50065 10105 | * * PTM50070 10106 | *TABLES/WORK AREAS- * PTM50075 10107 | * *BUFI IS USED AS READ AREA FOR LET/FLET * PTM50080 10108 | * * PTM50085 10109 | *ATTRIBUTES-REUSABLE * PTM50090 10110 | * * PTM50095 10111 | *NOTES-N/A * PTM50100 10112 | * * PTM50105 10113 | *************************************************** PTM50110 0280 10114 | ORG OVLAY PTM50115 0280 017E 10115 | DC B1999-B1000 WD CNT OF PHASE 1B PTM50120 0281 FF18 10116 | DC -/E8 SLET ID OF PHASE 1B PTM50125 0282 0178 10117 | PHS1B DC B1990-PHS1B ADDR OF ID TABLE PTM50130 0283 0001 10118 | DC 1 NO. OF ID'S TO BE FILLED PTM50135 0282 10119 | ORG *-2 PTM50140 10120 | * PTM50145 0282 C05F 10121 | B1000 LD B1900 INDICATE ASM PH 1B IS PTM50150 0283 D400 0078 10122 | STO L $PHSE *IN CONTROL PTM50155 10123 | * PTM50160 0285 C3F4 10124 | LD 3 PASS-X3 DETM ASM PASS PTM50165 0286 4C20 02D8 10125 | BSC L B1200,Z BR IF IN 2ND PASS PTM50170 10126 | * PTM50175 0288 C400 000E 10127 | LD L $CORE TEST FOR 4K CORE PTM50180 028A 9058 10128 | S B1910 PTM50185 028B 4C18 02AB 10129 | BSC L SR011,+- BR-4K SYSTEM PTM50190 10130 | * PTM50195 028D C32D 10131 | LD 3 SMSEC-X3 TEST FOR PREVIOUS MACLIB PTM50200 028E 4C20 02AD 10132 | BSC L B1150,Z BR-PREVIOUS MACLIB PTM50205 10133 | * PTM50210 10134 | *************************************************** PTM50215 10135 | * * PTM50220 10136 | * LET/FLET SEARCHES FOR FILES * PTM50225 10137 | * * PTM50230 10138 | *************************************************** PTM50235 10139 | * PTM50240 10140 | * PTM50245 10141 | * CHECK FILE NAME FOR VALIDITY PTM50250 10142 | * PTM50255 0290 7109 10143 | MDX 1 9 ADJUST XR1 FOR NAME PTM50260 0291 6B18 10144 | STX 3 SR010+1 SAVE XR3 PTM50265 0292 C100 10145 | LD 1 0 FIRST CHAR MUST BE PTM50270 0293 904C 10146 | S SR900 *NONNUMERIC PTM50275 0294 4C10 02A9 10147 | BSC L SR010,- BR-FIRST CHAR IS NUMERIC PTM50280 10148 | * PTM50285 0296 63FB 10149 | LDX 3 -5 SET CHAR CNT PTM50290 0297 6600 03C3 10150 | SR050 LDX L2 SR901 SET TABLE ADDR PTM50295 10151 | * PTM50300 0299 C100 10152 | LD 1 0 CHECK FOR BLANK COL PTM50305 029A 9046 10153 | S SR902 PTM50310 029B 4C18 02E4 10154 | BSC L SR020,+- BR-COL IS BLANK PTM50315 10155 | * PTM50320 029D 9200 10156 | SR040 S 2 0 CHECK FOR VALID 8-BIT CHAR PTM50325 029E 4C28 02A9 10157 | BSC L SR010,+Z BR-NOT IN CHAR RANGE PTM50330 02A0 9201 10158 | S 2 1 PTM50335 02A1 4C08 02A5 10159 | BSC L SR030,+ BR-CHAR IS VALID PTM50340 02A3 7202 10160 | MDX 2 2 PTM50345 02A4 70F8 10161 | MDX SR040 CONT CHAR CHECK PTM50350 10162 | * PTM50355 02A5 7101 10163 | SR030 MDX 1 1 INCR I/P PT PTM50360 02A6 7301 10164 | MDX 3 1 INCR CHAR CNT PTM50365 02A7 70EF 10165 | MDX SR050 CONT NAME CHECK-NEXT CHAR PTM50370 02A8 7046 10166 | MDX SR060 LABEL VALID-GO PACK,SEARCH PTM50375 10167 | * PTM50380 02A9 6700 0000 10168 | SR010 LDX L3 *-* RESTORE XR3 PTM50385 02AB C026 10169 | SR011 LD B1959 SET SWITCH FOR PTM50390 02AC D32D 10170 | STO 3 SMSEC-X3 *PHASE 1 PTM50395 02AD 4400 025F 10171 | B1150 BSI L LDXRS RESTORE XR1 AND XR3 PTM50400 02AF 4400 0802 10172 | BSI L P9MVE PR INVAL CTRL RCD PTM50405 02B1 C400 0036 10173 | B1155 LD L $PBSY TEST PR BUSY PTM50410 02B3 4C30 02B1 10174 | BSC L B1155,Z- LOOP ON PR BUSY PTM50415 02B5 C808 10175 | LDD B1957 PR PARAM TO ACC,EXT PTM50420 02B6 4400 0D97 10176 | BSI L P9472+3 PRINT A LINE PTM50425 02B8 C400 0036 10177 | LD L $PBSY PTM50430 02BA 4C30 02B8 10178 | BSC L *-4,Z- BR-PRINT BFR BUSY PTM50435 02BC 701B 10179 | MDX B1200 GO TO RESTORE PH 1 PTM50440 10180 | * PTM50445 10181 | * CONSTANTS PTM50450 10182 | * PTM50455 02BE 10183 | BSS E 0 FORCE EVEN ADDR PTM50460 02BE 7001 10184 | B1957 DC /7001 WR FUNC CODE PTM50465 02BF 02C1 10185 | DC B1958 I/O AREA ADDR PTM50470 02C0 10186 | BSS 1 FORCE ODD ADDR PTM50475 02C1 0010 10187 | B1958 DC B1959-B1958-1 WD CNT PTM50480 02C2 C1F0 F740 C1C2 D6E5 10188 | EBC .A07 ABOVE CONTROL STMNT . PTM50485 C540 C3D6 D5E3 D9D6 | D340 E2E3 D4D5 E340 | 02CE C9D5 E5C1 D3C9 C440 10189 | EBC .INVALID.. PTM50490 02D2 FFFF 10190 | B1959 DC -1 NEGATIVE SWITCH PTM50495 10191 | * PTM50500 02D3 CC00 03FE 10192 | B1210 LDD L B1997 RESTORE BUFI HDR PTM50505 02D5 DC00 0AD2 10193 | STD L BUFI PTM50510 02D7 70D3 10194 | MDX SR011 SET SMSEC AND PR A07 MSG PTM50515 10195 | * PTM50520 10196 | * PTM50525 10197 | * FETCH AND GO TO PHASE 1 PTM50530 10198 | * PTM50535 02D8 10199 | B1200 EQU * PTM50540 02D8 CC00 03FC 10200 | LDD L B1990+2 SET WD CNT AND SCTR ADDR PTM50545 02DA DC00 0280 10201 | STD L OVLAY *TO RESTORE PHASE 1 PTM50550 02DC 4400 025F 10202 | BSI L LDXRS RESTORE XR1 AND XR3 PTM50555 02DE 4C00 0270 10203 | BSC L P0130 BR TO READ PHASE 1 PTM50560 10204 | * PTM50565 10205 | * CONSTANTS PTM50570 10206 | * PTM50575 02E0 00F0 10207 | SR900 DC .0 EBC 0 PTM50580 02E1 0040 10208 | SR902 DC . EBC BLANK PTM50585 02E2 00E8 10209 | B1900 DC /E8 SLET ID OF PHASE 1B PTM50590 02E3 1000 10210 | B1910 DC /1000 CORE SIZE CONSTANT PTM50595 10211 | * PTM50600 02E4 C100 10212 | SR020 LD 1 0 CHECK FOR EMBEDDED BLANKS PTM50605 02E5 90FB 10213 | S SR902 PTM50610 02E6 4C20 02A9 10214 | BSC L SR010,Z BR-EMBEDDED BLANK ERROR PTM50615 02E8 7101 10215 | MDX 1 1 PTM50620 02E9 7301 10216 | MDX 3 1 INCR CHAR CNT PTM50625 02EA 70F9 10217 | MDX SR020 CONT BLANK CHECK PTM50630 10218 | * PTM50635 02EB C1FB 10219 | LD 1 -5 CHECK FOR BLANK NAME FIELD PTM50640 02EC 90F4 10220 | S SR902 PTM50645 02ED 4C18 02A9 10221 | BSC L SR010,+- BR-FILE NAME BLANK PTM50650 10222 | * PTM50655 10223 | *************************************************** PTM50660 10224 | * * PTM50665 10225 | * PACK FILE NAME * PTM50670 10226 | * * PTM50675 10227 | *************************************************** PTM50680 02EF 71FB 10228 | SR060 MDX 1 -5 NAME IS VALID PTM50685 02F0 63FB 10229 | LDX 3 -5 PACK NAME PTM50690 02F1 10A0 10230 | SLT 32 CLEAR REGISTERS PTM50695 10231 | * PTM50700 02F2 DC00 03D4 10232 | SR070 STD L SR908 CLEAR NAME SAVE AREA PTM50705 02F4 C100 10233 | LD 1 0 RETRIEVE CHAR PTM50710 02F5 E400 03D1 10234 | AND L SR903 PREPARE 6 BITS FOR PACK PTM50715 02F7 100A 10235 | SLA 10 PTM50720 02F8 EC00 03D4 10236 | OR L SR908 ADD 6 BIT CHAR TO PACK NAME PTM50725 02FA 18DA 10237 | RTE 32-6 PTM50730 02FB 7101 10238 | MDX 1 1 INCR I/O PT PTM50735 02FC 7301 10239 | MDX 3 1 INCR CHAR CNT PTM50740 02FD 70F4 10240 | MDX SR070 CONT NAME PACK PTM50745 10241 | * PTM50750 02FE EC00 03D2 10242 | OR L SR904 OR ON DDF INDR TO NAME PTM50755 0300 DC00 03D4 10243 | STD L SR908 SAVE FILE NAME PTM50760 0302 CC00 0AD2 10244 | LDD L BUFI SAVE WD CNT,SCTR ADDR PTM50765 0304 DC00 03FE 10245 | STD L B1997 *OF INTERM I/P PTM50770 0306 4001 10246 | BSI SERCH DO LET/FLET SEARCH PTM50775 0307 7032 10247 | MDX SR150 PLACE SCTR ADDR PTM50780 10248 | * PTM50785 10249 | *************************************************** PTM50790 10250 | * * PTM50795 10251 | * PERFORM LET/FLET SEARCH * PTM50800 10252 | * * PTM50805 10253 | *************************************************** PTM50810 0308 0000 10254 | SERCH DC *-* ENTRY POINT PTM50815 0309 6780 02AA 10255 | LDX I3 SR010+1 RESTORE XR3 PTM50820 030B 6600 0AD2 10256 | LDX L2 BUFI SET XR2 TO DISK BFR PTM50825 030D 7202 10257 | MDX 2 2 REG 2 PT TO I/O AREA PTM50830 10258 | * PTM50835 030E 61FA 10259 | SR090 LDX 1 -'MXDR-1 SET REG 1 TO MAX DR CNT PTM50840 030F C500 0033 10260 | LD L1 $ULET+@MXDR+1 FETCH ADDR OF LET PTM50845 0311 7101 10261 | MDX 1 1 SKIP IF ALL DRIVES SEARCHED PTM50850 0312 7001 10262 | MDX *+1 *BRANCH OTHERWISE PTM50855 10263 | * PTM50860 10264 | * PRINT ERROR MSG AND EXIT PTM50865 10265 | * PTM50870 0313 70BF 10266 | SR080 MDX B1210 PTM50875 10267 | * PTM50880 0314 4818 10268 | BSC +- SKIP IF DR BEING USED, PTM50885 0315 70BD 10269 | MDX B1210 PTM50890 0316 D2FF 10270 | SR140 STO 2 -1 SAVE SCTR ADDR FOR READ PTM50895 10271 | * PTM50900 0317 C870 10272 | LDD B1110 SET DISK READ PARAMS 2-11 PTM50905 0318 435C 10273 | BSI 3 DISK1-X3 FETCH 1 LET/FLET SCTR PTM50910 10274 | * PTM50915 0319 C200 10275 | LD 2 @SCTN FETCH LET/FLET SCTR NO. PTM50920 031A 4818 10276 | BSC +- SKIP,NOT FIRST LET SCTR PTM50925 031B 7004 10277 | MDX SR100 *BRANCH OTHERWISE PTM50930 10278 | * PTM50935 031C 9400 03D9 10279 | S L SR906 PTM50940 031E 4820 10280 | BSC Z SKIP IF 1ST SCTR FLET PTM50945 031F 7004 10281 | MDX SR110 BR,NOT 1ST SCTR LET/FLET PTM50950 10282 | * PTM50955 0320 C201 10283 | SR100 LD 2 @UAFX INITIALIZE BLK ADDR ACC PTM50960 0321 1004 10284 | SLA 4 *TO ADDR 1ST PROGRAM PTM50965 0322 D400 03D6 10285 | STO L SR905 *STORED IN LET/FLET PTM50970 10286 | * PTM50975 0324 C400 03D8 10287 | SR110 LD L SR907 COMPUTE NO. WDS IN CURRENT PTM50980 0326 9203 10288 | S 2 @WDSA *LET/FLET SECTOR PTM50985 0327 D400 03D7 10289 | STO L SR909 PTM50990 10290 | * PTM50995 0329 C207 10291 | SR130 LD 2 @BLCT+@LFHD SAVE BLK CNT OF CURRENT PTM51000 032A D400 03D0 10292 | STO L SR910 *LET/FLET ENTRY PTM51005 10293 | * PTM51010 10294 | * COMPARE FILE NAME TO ENTRY NAME PTM51015 10295 | * PTM51020 10296 | * FETCH NAME OF CURRENT PTM51025 032C C205 10297 | LD 2 @LFNM+@LFHD *LET/FLET ENTRY PTM51030 032D 9400 03D4 10298 | S L SR908 COMPARE WITH NAME SOUGHT PTM51035 032F 4820 10299 | BSC Z SKIP IF 1ST WDS MATCH, PTM51040 0330 705B 10300 | MDX SR120 *BRANCH OTHERWISE PTM51045 10301 | * PTM51050 0331 C206 10302 | LD 2 @LFNM+1+@LFHD FETCH 2ND WD-ENT NAME PTM51055 0332 9400 03D5 10303 | S L SR908+1 PTM51060 0334 4820 10304 | BSC Z SKIP IF NAMES MATCH, PTM51065 0335 7056 10305 | MDX SR120 *BRANCH OTHERWISE PTM51070 0336 C207 10306 | LD 2 @LFNM+2+@LFHD GET FILE BLK CNT PTM51075 0337 D04F 10307 | STO B1926 *AND SAVE PTM51080 0338 4C80 0308 10308 | BSC I SERCH RETURN TO CALLER PTM51085 10309 | * PTM51090 10310 | * RETURN SCTR ADDR AND BLK CNT FOR FILE PTM51095 10311 | * PTM51100 033A 6680 0201 10312 | SR150 LDX I2 OFLOW+1 SAVE OVERFLOW SCTR ADDR PTM51105 033C C201 10313 | LD 2 1 PTM51110 033D D400 03F7 10314 | STO L B1921 PTM51115 033F 6A4A 10315 | STX 2 B1923 SET RESTORE ADDR PTM51120 0340 7401 038A 10316 | MDX L B1923,1 PTM51125 0342 6600 0AD2 10317 | LDX L2 BUFI PTM51130 0344 C400 03D6 10318 | LD L SR905 FETCH BLK ADDR OF FILE PTM51135 0346 1804 10319 | SRA 4 CONVERT TO SCTR ADDR PTM51140 0347 D400 03D6 10320 | STO L SR905 SAVE SCTR ADDR PTM51145 0349 C400 0AD3 10321 | LD L BUFI+1 FETCH CURR DR CODE PTM51150 034B E03F 10322 | AND SR912 PTM51155 034C EC00 03D6 10323 | OR L SR905 ADD SECTOR ADDR PTM51160 034E D32D 10324 | STO 3 SMSEC-X3 SAVE MACRO LIBRARY ADDR PTM51165 034F D201 10325 | STO 2 1 SET SCTR ADDR FOR DK READ PTM51170 0350 C036 10326 | LD B1926 FETCH FILE BLK CNT PTM51175 0351 1804 10327 | SRA 4 PTM51180 0352 832D 10328 | A 3 SMSEC-X3 PTM51185 0353 D32E 10329 | STO 3 SYSLM-X3 SET MACRO LIBRARY LIMIT PTM51190 0354 C833 10330 | SR160 LDD B1110 PTM51195 0355 435C 10331 | BSI 3 DISK1-X3 READ FIRST FEW WORDS PTM51200 0356 C206 10332 | LD 2 +6 FETCH LIBRARY NAME PTM51205 0357 18D0 10333 | RTE 16 *FROM LIBRARY HDR PTM51210 0358 C205 10334 | LD 2 +5 PTM51215 0359 9C00 03D4 10335 | SD L SR908 SUBRT. PACKED NAME OF LIB. PTM51220 035B 4C20 03A1 10336 | BSC L B1107,Z BR-NOT MACRO LIBRARY PTM51225 035D 18D0 10337 | RTE 16 PTM51230 035E 4C20 03A1 10338 | BSC L B1107,Z BR-NOT MACRO LIBRARY PTM51235 0360 6580 0201 10339 | LDX I1 OFLOW+1 SET DISK BUFFER PNTR PTM51252 0362 C204 10340 | B1105 LD 2 +4 SAVE SECTOR DISP. PTM51253 0363 D400 03FA 10341 | STO L B1990 SAVE FOR LATER PTM51254 0365 C201 10342 | LD 2 +1 PTM51255 0366 8203 10343 | A 2 +3 ADD RELATIVE SEC ADDR 2-10 PTM51260 10344 | * 2-10 PTM51265 0367 D101 10345 | STO 1 +1 PTM51270 0368 CBE7 10346 | B1106 LDD 3 OFLOW-X3 PTM51275 0369 435C 10347 | BSI 3 DISK1-X3 READ LIBRARY SCTR PTM51280 036A C400 03FA 10348 | LD L B1990 PTM51285 036C 8019 10349 | A B1925 ADD 2 PTM51290 036D 801C 10350 | A B1923 PTM51295 036E D001 10351 | STO *+1 PTM51300 036F C400 0000 10352 | B1109 LD L *-* FETCH CONCAT INDR PTM51305 0371 4C08 0377 10353 | BSC L B1100,+ BR-NO CONCATENATION PTM51310 0373 74FF 03DA 10354 | MDX L CATCT,-1 DECR CIRCULAR CONCAT CNT PTM51315 0375 7033 10355 | MDX B1108 CONT TO TEST CONCAT PTM51320 0376 702A 10356 | MDX B1107 CIRCULAR CONCAT PTM51325 0377 4400 025F 10357 | B1100 BSI L LDXRS RESTORE XR1 AND XR3 PTM51330 0379 4400 0802 10358 | BSI L P9MVE PRINT MACLIB RCD PTM51335 037B CC00 03FE 10359 | LDD L B1997 RESTORE BUFI HDR PTM51340 037D DC00 0AD2 10360 | STD L BUFI PTM51345 037F C077 10361 | LD B1921 RESET DFBUF SCTR ADDR PTM51350 0380 D480 038A 10362 | STO I B1923 PTM51355 0382 4C00 02D8 10363 | BSC L B1200 RESTORE PHASE 1 PTM51360 0384 4C00 030F 10364 | B1111 BSC L SR090+1 BRANCH 2-11 PTM51365 10365 | * PTM51370 10366 | * CONSTANTS PTM51375 10367 | * PTM51380 0386 0002 10368 | B1925 DC 2 CONSTANT 2 PTM51385 0387 10369 | B1926 BSS 1 TEMP SAVE AREA PTM51390 0388 10370 | BSS E 0 FORCE EVEN ADDR PTM51395 0388 7000 10371 | B1110 DC /7000 DISKZ READ CODE PTM51400 0389 0AD2 10372 | DC BUFI I/O AREA ADDR PTM51405 038A 0000 10373 | B1923 DC *-* TEMP SAVE AREA PTM51410 038B F000 10374 | SR912 DC /F000 PTM51415 10375 | * PTM51420 10376 | * CONTINUE SEARCH,NO MATCH FOUND PTM51425 10377 | * PTM51430 038C C049 10378 | SR120 LD SR905 COMPUTE ACCUMULATED BLK PTM51435 038D 8042 10379 | A SR910 *ADDR AND PTM51440 038E D047 10380 | STO SR905 *SAVE PTM51445 10381 | * PTM51450 038F 7203 10382 | MDX 2 @LFEN PT TO NEXT LET/FLET ENTRY PTM51455 0390 C046 10383 | LD SR909 PTM51460 0391 9064 10384 | S B1930 DECR LET/FLET CNT PTM51465 0392 D044 10385 | STO SR909 PTM51470 0393 4C18 0397 10386 | BSC L SR125,+- SKIP WHEN SCTR SEARCHED2-11 PTM51475 0395 4C00 0329 10387 | BSC L SR130 *BRANCH OTHERWISE 2-11 PTM51480 10388 | * PTM51485 10389 | * PREPARE TO READ DOWN A NEW LET/FLET SCTR PTM51490 10390 | * PTM51495 0397 6600 0AD4 10391 | SR125 LDX L2 BUFI+2 ADDR OF BFR TO XR2 2-11 PTM51500 0399 C204 10392 | LD 2 @NEXT PTM51505 039A 4818 10393 | BSC +- SKIP UNLESS LAST LET/FLET PTM51510 039B 70E8 10394 | MDX B1111 BR TO INITIALIZE NEW DR PTM51515 10395 | * PTM51520 039C C2FF 10396 | LD 2 -1 FETCH CURR SCTR ADDR PTM51525 039D E0ED 10397 | AND SR912 AND OUT SCTR ADDR PTM51530 039E EA04 10398 | OR 2 @NEXT OR IN NEW SCTR ADDR PTM51535 039F 4C00 0316 10399 | BSC L SR140 BRANCH TO CONTINUE PTM51540 03A1 C85C 10400 | B1107 LDD B1997 RESET DISK BFR HDR PTM51545 03A2 DC00 0AD2 10401 | STD L BUFI PTM51550 03A4 C052 10402 | LD B1921 RESET DFBUF SCTR ADDR PTM51555 03A5 D480 038A 10403 | STO I B1923 PTM51560 03A7 4C00 02A9 10404 | BSC L SR010 BR TO RECORD ERROR PTM51565 03A9 6580 0370 10405 | B1108 LDX I1 B1109+1 PTM51570 03AB C102 10406 | LD 1 +2 FETCH CONCATENATED PTM51575 03AC 1890 10407 | SRT 16 *LIBRARY NAME PTM51580 03AD C101 10408 | LD 1 +1 PTM51585 03AE D825 10409 | STD SR908 SAVE LIBRARY NAME PTM51590 03AF 4400 0308 10410 | BSI L SERCH PERFORM LET/FLET SEARCH PTM51595 03B1 C024 10411 | LD SR905 PLACE CONCATENATED PTM51600 03B2 1804 10412 | SRA 4 *LIBRARY DISK ADDR PTM51605 03B3 D022 10413 | STO SR905 PTM51610 03B4 C400 0AD3 10414 | LD L BUFI+1 FETCH LOGICAL DRIVE PTM51615 03B6 E0D4 10415 | AND SR912 *CODE,ADD SCTR ADDR PTM51620 03B7 E81E 10416 | OR SR905 PTM51625 03B8 D480 0370 10417 | STO I B1109+1 PTM51630 03BA D400 0AD3 10418 | STO L BUFI+1 PTM51635 03BC CBE7 10419 | LDD 3 OFLOW-X3 PTM51640 03BD 803A 10420 | A B1924 PTM51645 03BE 435C 10421 | BSI 3 DISK1-X3 WRITE SCTR TO DISK PTM51650 03BF 6600 0AD2 10422 | LDX L2 BUFI PTM51655 03C1 4C00 0354 10423 | BSC L SR160 TEST CONCATENATED LIBRARY PTM51660 10424 | * PTM51665 10425 | * CONSTANTS PTM51670 10426 | * PTM51675 03C3 001B 10427 | SR901 DC .$-. $ PTM51680 03C4 0000 10428 | DC .$-.$ PTM51685 03C5 0020 10429 | DC .#-.$ 2-11 PTM51690 03C6 0001 10430 | DC 1 2-11 PTM51695 03C7 0045 10431 | DC /0045 2-11 PTM51700 10432 | *CONSTANT REMOVED 2-11 PTM51705 10433 | *CONSTANT REMOVED 2-11 PTM51710 03C8 0008 10434 | DC .I-.A PTM51715 03C9 0008 10435 | DC .J-.I J-R PTM51720 03CA 0008 10436 | DC .R-.J PTM51725 03CB 0009 10437 | DC .S-.R S-Z PTM51730 03CC 0007 10438 | DC .Z-.S PTM51735 03CD 0007 10439 | DC .0-.Z 0-9 PTM51740 03CE 0009 10440 | DC .9-.0 PTM51745 03CF 3F06 10441 | DC /3FFF-.9 (FORCE END CHECK LOOP) PTM51750 03D0 0000 10442 | SR910 DC *-* BLK CNT OF CURR LET ENT PTM51755 03D1 003F 10443 | SR903 DC /3F USED TO SAVE BITS 10-15 PTM51760 03D2 C000 10444 | SR904 DC /C000 DISK DATA FMT INDR PTM51765 03D4 10445 | SR908 BSS E 2 SAVE ADDR FOR PACKED NAME E PTM51770 03D6 0000 10446 | SR905 DC *-* CURRENT BLOCK ADDR PTM51775 03D7 0000 10447 | SR909 DC *-* NO. WDS LEFT FOR COMPARISON PTM51780 03D8 013B 10448 | SR907 DC 320-@LFHD NO. WDS PER LET/FLET SCTR PTM51785 03D9 0010 10449 | SR906 DC 16 NO. OF 1ST SCTR IN FLET PTM51790 03DA 0010 10450 | CATCT DC 16 CONCATENATION CTR PTM51795 10451 | * PTM51800 10452 | * PTM51805 10453 | * PROCESS CROSS-REFERENCE PTM51810 10454 | * PTM51815 03DB C400 02E2 10455 | B1300 LD L B1900 SET PHASE ID NUMBER PTM51820 03DD D400 0078 10456 | STO L $PHSE PTM51825 03DF C015 10457 | LD B1320 RESTORE OVERLAY XEQ ADDR PTM51830 03E0 D400 0273 10458 | STO L P0140+1 PTM51835 03E2 C3F4 10459 | LD 3 PASS-X3 PTM51840 03E3 4C20 02D8 10460 | BSC L B1200,Z BR IF IN 2ND PASS PTM51845 03E5 C400 000E 10461 | LD L $CORE PTM51850 03E7 9400 02E3 10462 | S L B1910 PTM51855 03E9 4C18 02AD 10463 | BSC L B1150,+- BR-4K SYSTEM PTM51860 03EB C008 10464 | LD B1310 PTM51865 03EC EBF2 10465 | OR 3 LSTOP-X3 SET LIST,XREF OPTIONS ON PTM51870 03ED D3F2 10466 | STO 3 LSTOP-X3 PTM51875 03EE D302 10467 | STO 3 TLIST-X3 PTM51880 03EF 4346 10468 | BSI 3 LDXRS-X3 RESTORE XR1 PTM51885 03F0 4400 0802 10469 | BSI L P9MVE PRINT XREF RCD PTM51890 03F2 4C00 02D8 10470 | BSC L B1200 RESTORE PH 1 PTM51895 10471 | * PTM51900 10472 | * CONSTANTS PTM51905 10473 | * PTM51910 03F4 C000 10474 | B1310 DC /C000 LIST,XREF INDR PTM51915 03F5 0282 10475 | B1320 DC OVLAY+2 PTM51920 03F6 0003 10476 | B1930 DC 3 CONSTANT 3 PTM51925 03F7 10477 | B1921 BSS 1 TEMP SAVE AREA PTM51930 03F8 0001 10478 | B1924 DC 1 CONSTANT 1 PTM51935 10479 | * PTM51940 03FA 10480 | BSS E 0 PTM51945 03FA 00D5 10481 | B1990 DC /D5 SLET ID OF PHASE 1 PTM51950 03FB 10482 | BSS 3 PTM51955 03FE 10483 | B1997 BSS E 2 TEMP SAVE BUFI HDR PTM51960 0400 10484 | BSS 0 PATCH AREA EXHAUSTED 2-11 PTM51965 0400 0000 10485 | B1999 DC 0 END OF PHASE PTM51970 *SBRKSLS E9 10486 | ASM MACRO PH 1 - SPECIAL OP AND PREPROCESSINGV2M08 PTM51975 MACRO PROCESSOR PHASE 1 10488 | *************************************************** PTM51985 10489 | * * PTM51990 10490 | *STATUS-VERSION 2, MODIFICATION 10 * PTM51995 10491 | * * PTM52000 10492 | *FUNCTION/OPERATION * PTM52005 10493 | * *MACRO PHASE 1 IS INVOKED WHENEVER THE OP CODE* PTM52010 10494 | * SEARCH IS UNSUCCESSFUL WITH XR3 POINTING TO * PTM52015 10495 | * ASM COMMA. * PTM52020 10496 | * *THE OP CODE IS CHECKED AGAINST THE SPECIAL * PTM52025 10497 | * PSEUDO OP TABLE. MACRO PHASE 1A IS INVOKED * PTM52030 10498 | * IF THE PSEUDO OP IS SET, PURG OR ANOP. MACRO * PTM52035 10499 | * PHASE 1B IS INVOKED IF THE OP IS A CONDI- * PTM52040 10500 | * TIONAL ASSEMBLY PSEUDO OP. * PTM52045 10501 | * *IF THE OP IS EITHER MAC OR SMAC, THE * PTM52050 10502 | * PROTOTYPE NAME IS COMPARED AGAINST EITHER * PTM52055 10503 | * THE TEMPORARY OR SPECIFIED MACRO LIBRARY FOR * PTM52060 10504 | * MULTIPLE DEFINITION. IF NO MATCH CAN BE FOUND* PTM52065 10505 | * MACRO PHASE 2 IS INVOKED. * PTM52070 10506 | * *IF THE OP IS NOT RECOGNIZABLE, THE TEMPORARY * PTM52075 10507 | * AND/OR SPECIFIED MACRO LIBRARIES ARE SCANNED * PTM52080 10508 | * FOR THE OP CODE. IF THE SCAN IS SUCCESSFUL, * PTM52085 10509 | * MACRO PHASE 3 IS INVOKED. OTHERWISE,AN ERROR * PTM52090 10510 | * IS ISSUED AND PROCESSING CONTINUES. * PTM52095 10511 | * * PTM52100 10512 | *ENTRY POINT- * PTM52105 10513 | * *M1000+12 - ENTRY FROM STRT9,ASM PHASE 9 * PTM52110 10514 | * * PTM52115 10515 | *INPUT- * PTM52120 10516 | * *RECORD IN INPUT BUFFER * PTM52125 10517 | * * PTM52130 10518 | *OUTPUT-N/A * PTM52135 10519 | * * PTM52140 10520 | *EXTERNAL REFERENCES- * PTM52145 10521 | * *SUBROUTINES- * PTM52150 10522 | * * DFOUT * PTM52155 10523 | * * DISK1 * PTM52160 10524 | * * ERFLG * PTM52165 10525 | * * GETS5 * PTM52170 10526 | * * GETS6 * PTM52175 10527 | * * GETS7 * PTM52180 10528 | * * GETS8 * PTM52185 10529 | * * GTS8A * PTM52190 10530 | * * GTS12 * PTM52195 10531 | * * GETS2 * PTM52200 10532 | * * LDLBL * PTM52205 10533 | * * LDXRS * PTM52210 10534 | * * PALBL * PTM52215 10535 | * * P0130 * PTM52220 10536 | * * P0140+1 * PTM52225 10537 | * * STRT9 * PTM52230 10538 | * *ASMCM- * PTM52235 10539 | * * ADCOW * PTM52240 10540 | * * ASMCM * PTM52245 10541 | * * COMSW * PTM52250 10542 | * * LOGC0 * PTM52255 10543 | * * MCDEF * PTM52260 10544 | * * MCOM1 * PTM52265 10545 | * * MCOM2 * PTM52270 10546 | * * MCOM3 * PTM52275 10547 | * * MCOM4 * PTM52280 10548 | * * MCOM8 * PTM52285 10549 | * * OPBUF * PTM52290 10550 | * * OPCNT * PTM52295 10551 | * * PARAM * PTM52300 10552 | * * PASS * PTM52305 10553 | * * SMAC0 * PTM52310 10554 | * * SMSEC * PTM52315 10555 | * * TRWRD * PTM52320 10556 | * * SYMBF * PTM52325 10557 | * *DCOM/COMMA- * PTM52330 10558 | * * $CORE * PTM52335 10559 | *EXITS- * PTM52340 10560 | * *THRU GTS00 TO MACRO PHASES 1A, 1B, 2, 3 * PTM52345 10561 | * *THRU BGASM TO BYPASS * PTM52350 10562 | * *THRU OPCDR ON ERROR CONDITION * PTM52355 10563 | * * PTM52360 10564 | *TABLE/WORK AREAS- * PTM52365 10565 | * *OPN01-SPECIAL OP CODE TABLE * PTM52370 10566 | * *OPN02-BR ADDR TABLE TO OPN01 * PTM52375 10567 | * *OPN04-BYPASS BR TABLE * PTM52380 10568 | * *MCOP4-OP CODE BFR * PTM52385 10569 | * * PTM52390 10570 | *ATTRIBUTES-N/A * PTM52395 10571 | * * PTM52400 10572 | *NOTES- * PTM52405 10573 | * *THERE ARE PRESENTLY TWO WORDS OF PATCH * PTM52410 10574 | * AREA AVAILABLE IN THIS PHASE.PATCH AREA * PTM52415 10575 | * IS PROVIDED FOR THIS PHASE IN THE * PTM52420 10576 | * GENERAL PATCH OF MACRO PROCESSOR PH 3B. * PTM52425 10577 | * ADDITIONAL PATCH CAN BE OBTAINED BY * PTM52430 10578 | * MAKING THE PASS TWO BYPASS SUBR A SEPARATE * PTM52435 10579 | * PHASE. * PTM52440 10580 | * * PTM52445 10581 | *************************************************** PTM52450 10582 | *************************************************** PTM52455 10583 | * * PTM52460 10584 | * MACRO PHASE 1 COMMUNICATIONS AREA * PTM52465 10585 | * * PTM52470 10586 | *************************************************** PTM52475 045D 10587 | BGASM EQU STRT9 PTM52480 0272 10588 | BRBCK EQU P0140 PTM52485 045E 10589 | DEFSK EQU BGASM+1 PTM52490 04AC 10590 | OPBUF EQU P9040 PTM52495 10591 | * * PTM52500 10592 | *************************************************** PTM52505 10593 | * * MCOM3 * PTM52510 10594 | * PTM52515 0280 10595 | ORG OVLAY PTM52520 0280 01D5 10596 | DC MC1Z0-M1000 WD CNT OF PHASE PTM52525 0281 FF17 10597 | DC -/E9 SLET ID OF MACRO PH 1 PTM52530 10598 | * PTM52535 0282 01C4 10599 | MPH01 DC M1800-MPH01 ADDR OF ID TABLE PTM52540 0283 0004 10600 | DC 4 NO. OF ID'S TO BE FILLED PTM52545 0282 10601 | ORG *-2 PTM52550 10602 | * PTM52555 10603 | * PTM52560 10604 | * PTM52565 10605 | * GENERAL DISK READ SUBROUTINE PTM52570 10606 | * PTM52575 10607 | * PTM52580 0282 10608 | M1000 EQU * PTM52585 0282 4C00 0000 10609 | DKOUT BSC L *-* RETURN TO CALLER PTM52590 0283 10610 | DKRD0 EQU *-1 ENTRY POINT PTM52595 0284 C400 030D 10611 | LD L SKEL0-1 SET SCTR ADDR PTM52600 0286 D009 10612 | STO PLSR0 PTM52605 0287 C802 10613 | LDD DKRDC INITIALIZE FOR DK READ PTM52610 0288 40EC 10614 | BSI DISK1 PERFORM DK READ PTM52615 0289 70F8 10615 | MDX DKOUT RETURN TO CALLER PTM52620 10616 | * PTM52625 028A 10617 | BSS E 0 FORCE EVEN ADDR PTM52630 028A 7000 10618 | DKRDC DC /7000 DK READ FUNC CODE PTM52635 028B 030C 10619 | DC SKEL0-2 I/O AREA ADDR PTM52640 028C FE00 10620 | HFE00 DC /FE00 END OF LIBRARY INDR PTM52645 028D 0333 10621 | OPER1 DC OPCDR PTM52650 10622 | * PTM52655 10623 | * ENTER MACRO PROCESSOR PH 1 PTM52660 10624 | * PTM52665 028E 705F 10625 | MDX MACRO +14 XEQ MACRO PH 1 PTM52670 10626 | * PTM52675 028F 0000 10627 | SKELX DC *-* DISPLACEMENT PT PTM52680 0290 10628 | PLSR0 BSS E 2 LAST SCTR READ INFO PTM52685 0292 10629 | MCOP4 BSS E 2 OP CODE BFR PTM52690 0294 0000 10630 | DC *-* OP CODE BFR PTM52695 0295 0292 10631 | ENTRY DC OVLAY+18 ENTRY TO MACRO PHASES PTM52700 10632 | * PTM52705 10633 | * RESTORE MACRO PHASE 1 PTM52710 10634 | * *TO PROCESS ERROR PTM52715 10635 | * PTM52720 0296 C0F6 10636 | OPER0 LD OPER1 SET ADDR TO PROCESS ERROR PTM52725 0297 7019 10637 | MDX GTS00+1 PROCESS ERROR PTM52730 10638 | * PTM52735 10639 | * SEARCH APPROPRIATE DISK AREA TO GUARD PTM52740 10640 | * *AGAINST MULTIPLY-DEFINED MACROS. PTM52745 10641 | * PTM52750 0298 40EA 10642 | OPLC1 BSI DKRD0 READ SKELETON SCTR PTM52755 0299 6201 10643 | LDX 2 1 PTM52760 029A C0BD 10644 | LD MCDEF PTM52765 029B 4C10 02A0 10645 | BSC L IFMAC-2,- BR-NO PREVIOUS DEFINITION PTM52770 029D 7027 10646 | OPLCE MDX NMSCH PERFORM NAME SEARCH PTM52775 10647 | *************************************************** PTM52780 10648 | * THE FOLLOWING TWO ADDRESS CONSTANTS PTM52785 10649 | * *MUST BE LOCATED AT AN EVEN ADDRESS PTM52790 10650 | *************************************************** PTM52795 029E 02A2 10651 | DC IFMAC END OF STRING PTM52800 029F 0296 10652 | DC OPER0 DUPLICATE FOUND PTM52805 10653 | * PTM52810 10654 | * SKELETON SEARCH COMPLETE, PLACE NAME PTM52815 10655 | * *IN SKELETON PTM52820 10656 | * PTM52825 02A0 6A6D 10657 | STX 2 SKEL0 PTM52830 02A1 6AB6 10658 | STX 2 MCDEF SET TEMP MACRO SW PTM52835 02A2 C8EF 10659 | IFMAC LDD MCOP4 PLACE MACRO PTM52840 02A3 D8A8 10660 | STD MCOM2 *NAME IN ASMCM-3 WD ENT PTM52845 02A4 C0EF 10661 | LD MCOP4+2 PTM52850 02A5 D0A8 10662 | STO MCOM4 PTM52855 10663 | * PTM52860 02A6 C014 10664 | LD OPER3 PTM52865 02A7 7204 10665 | OPERN MDX 2 4 PTM52870 02A8 6AE8 10666 | STX 2 PLSR0+1 PTM52875 02A9 4C20 02BA 10667 | BSC L MOVSK,Z MOVE SKEL0 BFR IF NEEDED PTM52880 02AB C8E4 10668 | MVSKR LDD PLSR0 PTM52885 02AC D8A5 10669 | STD MCOM8 PTM52890 02AD CC00 0450 10670 | LDD L M1820+2 GET WD CNT & SCTR ADDR PTM52895 02AE 10671 | MVADD EQU *-1 PTM52900 02AF D8D0 10672 | STD OVLAY SET OVERLAY HEADER PTM52905 02B0 C0E4 10673 | GTS00 LD ENTRY SET ENTRY POINT ADDR PTM52910 02B1 4400 025F 10674 | BSI L LDXRS RESTORE XR1 AND XR3 PTM52915 02B3 D35A 10675 | STO 3 BRBCK+1-X3 *OF OVERLAY PTM52920 02B4 4C00 0270 10676 | BSC L P0130 LD AND GO TO OVERLAY PTM52925 10677 | * PTM52930 10678 | * PTM52935 10679 | * ADJUST TO MOVE SKEL0 BFR AND LOAD/GO TO PTM52940 10680 | * *MACRO PHASE 3 PTM52945 10681 | * PTM52950 02B6 7404 02AE 10682 | MAC08 MDX L MVADD,4 PT TO WD CNT, SCTR ADDR PTM52955 02B8 1010 10683 | SLA 16 CLEAR TO MOVE SKEL0 PTM52960 02B9 70ED 10684 | MDX OPERN MOVE SKEL0,GET MACRO PH 0 PTM52965 10685 | * PTM52970 10686 | * PTM52975 10687 | * SKELETON BUFFER MOVE SUBR PTM52980 10688 | * PTM52985 02BA 10689 | MOVSK EQU * PTM52990 02BA 6700 059F 10690 | LDX L3 DEFSK+321 TARGET SKELETON PTM52995 02BB 10691 | OPER3 EQU *-1 PTM53000 02BC 6600 0142 10692 | LDX L2 322 SET WD CNT PTM53005 02BE C600 030B 10693 | MVSK1 LD L2 SKEL0-3 MOVE DATA WD PTM53010 02C0 D300 10694 | STO 3 0 PTM53015 02C1 73FF 10695 | MDX 3 -1 PTM53020 02C2 72FF 10696 | MDX 2 -1 PTM53025 02C3 70FA 10697 | MDX MVSK1 CONT DATA MOVE PTM53030 02C4 70E6 10698 | MDX MVSKR PTM53035 10699 | * PTM53040 10700 | * SUBROUTINE TO SEARCH DISK FOR NAME PTM53045 10701 | * ENTRY BSI L NMSCH PTM53050 10702 | * DC NAME1 PTM53055 10703 | * DC NAME2 PTM53060 10704 | * NAME1 IS BR ADDR IF NAME NOT FOUND PTM53065 10705 | * NAME2 IS BR ADDR IF NAME FOUND PTM53070 10706 | * XR2 AND XR3 ARE DESTROYED PTM53075 10707 | * PTM53080 02C5 10708 | NMSCH EQU * PTM53085 02C5 C048 10709 | LD SKEL0 1ST WD OF PROTOTYPE PTM53090 02C6 7021 10710 | MDX NMSR1+1 TEST FOR ZERO PTM53095 02C7 D0C7 10711 | STO SKELX SAVE DISPLACEMENT TO PTM53100 02C8 6680 028F 10712 | NMSRH LDX I2 SKELX *NEXT MACRO PTM53105 02CA 6700 030E 10713 | LDX L3 SKEL0 PTM53110 02CC 7780 028F 10714 | MDX I3 SKELX PTM53115 02CE C300 10715 | LD 3 0 TEST FOR END OF MACROS PTM53120 02CF F0BC 10716 | EOR HFE00 PTM53125 02D0 4C20 02DB 10717 | BSC L NMSR0,Z BR IF NOT END OF LIB PTM53130 02D2 C030 10718 | LD DEFSW SKIP IF DEFINITION OR ABS PTM53135 02D3 4810 10719 | BSC - *END OF LIBRARY PTM53140 02D4 C301 10720 | LD 3 1 CHECK FOR CONCATENATION PTM53145 02D5 4818 10721 | BSC +- PTM53150 02D6 C02C 10722 | LD DEFSW PTM53155 02D7 4C88 029E 10723 | BSC I OPLCE+1,+ BR-NO CONCATENATION PTM53160 02D9 D033 10724 | STO SKEL0-1 SAVE SCTR ADDR OF LIBRARY PTM53165 02DA 7011 10725 | MDX NMSR2+2 BR TO READ NEW SCTR PTM53170 02DB 10726 | NMSR0 EQU * PTM53175 02DB C301 10727 | LD 3 1 GET NAME FROM PROTOTYPE PTM53180 02DC 18D0 10728 | RTE 16 *AND CMP AGAINST NAME PTM53185 02DD C300 10729 | LD 3 0 PTM53190 02DE 98B3 10730 | SD MCOP4 PTM53195 02DF 4820 10731 | BSC Z PTM53200 02E0 7006 10732 | MDX NMSR1 BR-NO MATCH ON 1ST WD PTM53205 02E1 C302 10733 | LD 3 2 PTM53210 02E2 F0B1 10734 | EOR MCOP4+2 PTM53215 02E3 4818 10735 | BSC +- BR-NO MATCH ON 5TH CHAR PTM53220 02E4 18D0 10736 | RTE 16 PTM53225 02E5 4C98 029F 10737 | BSC I OPLCE+2,+- BR-NAME FOUND, EXIT PTM53230 02E7 C303 10738 | NMSR1 LD 3 3 FETCH CHAIN WD PTM53235 02E8 4820 10739 | BSC Z SKIP IF NEED NEW SCTR PTM53240 02E9 70DD 10740 | MDX NMSRH-1 CONT SCTR SEARCH PTM53245 10741 | * PTM53250 10742 | * READ NEXT SKELETON SCTR PTM53255 10743 | * PTM53260 02EA 7401 030D 10744 | NMSR2 MDX L SKEL0-1,1 INCREMENT SCTR ADDR PTM53265 02EC 4096 10745 | BSI DKRD0 BR TO READ SKELETON PTM53270 02ED 70D7 10746 | MDX NMSCH CONT NAME SEARCH PTM53275 10747 | * PTM53280 10748 | * CHECK OPERATION CODE TO DETERMINE IF PTM53285 10749 | * *OPERATION IS A MACRO DEFINITION OR PTM53290 10750 | * *SPECIAL PSEUDO OPERATION PTM53295 10751 | * PTM53300 02EE C340 10752 | MACRO LD 3 LOGC0-X3 SET DEFINITION SW TO PTM53305 02EF D013 10753 | STO DEFSW *LOGICAL CONCATENATOR PTM53310 02F0 C11F 10754 | LD 1 +31 TEST FOR 5 CHAR OP CODE PTM53315 02F1 9064 10755 | S M1901 PTM53320 02F2 4C20 0304 10756 | BSC L MAC22,Z BR-5TH CHAR PRESENT PTM53325 02F4 6700 03CA 10757 | LDX L3 OPN02-2 XR3 PTS TO SPECIAL OP TBL PTM53330 02F6 620A 10758 | LDX 2 OPN03-OPN02 SET LOOP CNT TO TBL SIZE PTM53335 02F7 CC00 04AC 10759 | MAC01 LDD L OPBUF CMP OP CODE TO SPECIAL PTM53340 02F9 9B00 10760 | SD 3 0 *OP TABLE PTM53345 02FA 4820 10761 | BSC Z SKIP IF 1ST HALF MATCHES PTM53350 02FB 7003 10762 | MDX MAC02 SKIP-NO MATCH PTM53355 02FC 18D0 10763 | RTE 16 SET TO TEST 2ND HALF PTM53360 02FD 4E98 03CB 10764 | BSC I2 OPN02-1,+- BR THRU TABLE IF MATCH PTM53365 02FF 73FE 10765 | MAC02 MDX 3 -2 DECR THRU OP TABLE PTM53370 0300 72FF 10766 | MDX 2 -1 DECR THRU BR TABLE PTM53375 0301 70F5 10767 | MDX MAC01 CONTINUE SPECIAL OP SEARCH PTM53380 0302 7001 10768 | MDX MAC22 CONT TEST FOR MACRO PTM53385 10769 | * PTM53390 0303 0000 10770 | DEFSW DC *-* DEFINITION SW,0 FOR NONE PTM53395 10771 | * PTM53400 10772 | * OP CODE NOT WITHIN SPECIAL OP CODE LIST PTM53405 10773 | * *SEARCH DISK FOR MACRO NAME IF MACROS PTM53410 10774 | * *DEFINED. ALTER CALL PARAMETERS TO NMSCH PTM53415 10775 | * *SUBROUTINE AND TREAT AS MAC OR SMAC PTM53420 10776 | * *PSEUDO OPERATION. PTM53425 10777 | * PTM53430 0304 C400 000E 10778 | MAC22 LD L $CORE TEST FOR 4K SYSTEM PTM53435 0306 9050 10779 | S M1902 PTM53440 0307 4C18 0333 10780 | BSC L OPCDR,+- BR IF 4K SYSTEM PTM53445 10781 | * PTM53450 0309 C400 0258 10782 | MAC03 LD L MCDEF NEGATIVE-MAC DEFINED PTM53455 030B 6300 10783 | LDX 3 0 PTM53460 030C 4828 10784 | BSC +Z SKIP IF MAC NOT DEFINED PTM53465 030D 7001 10785 | MDX MAC05+1 BR IF MAC DEFINED PTM53470 030E 6302 10786 | MAC05 LDX 3 2 SEARCH SYST MACRO LIBRARY PTM53475 030F C80A 10787 | LDD MAC06 MODIFY NMSCH EXITS PTM53480 0310 D88D 10788 | STD OPLCE+1 PTM53485 0311 C00A 10789 | LD MAC11 SET ERROR ADDR PTM53490 0312 D06A 10790 | STO MCOP PTM53495 0313 C400 020D 10791 | LD L PASS 0 IF PASS 1 PTM53500 0315 D400 041F 10792 | STO L MACSW MCCSN ENTRY POINT PTM53505 0317 7300 10793 | MDX 3 0 SKIP IF MAC DEFINED PTM53510 0318 702B 10794 | MDX MACS0 TREAT AS SMAC PTM53515 0319 7041 10795 | MDX MACN0 TREAT AS MAC PTM53520 10796 | * PTM53525 10797 | * CONSTANTS PTM53530 10798 | * PTM53535 031A 10799 | BSS E 0 FORCE EVEN ADDR PTM53540 031A 0296 10800 | MAC06 DC OPER0 BR IF NOT MAC OR SMAC OP PTM53545 031B 02B6 10801 | DC MAC08 BR ADDR FOR VALID SMAC OP PTM53550 031C 702E 10802 | MAC11 DC /7000+MAC12-MCOP-1 PTM53555 031D 00D6 10803 | OPECR DC .O OP CODE ERROR FLAG PTM53560 10804 | * PTM53565 10805 | * PTM53570 10806 | * NOT DEFINITION OR SPECIAL OPERATION. PTM53575 10807 | * *CHECK FOR MACRO OPERATION OR OPERATION PTM53580 10808 | * *CODE ERROR PTM53585 10809 | * PTM53590 031E C122 10810 | MOPR1 LD 1 +34 PTM53595 031F F0FD 10811 | EOR OPECR PTM53600 0320 4C18 0333 10812 | BSC L OPCDR,+- BR-OP CODE ERR PTM53605 0322 C122 10813 | MOPER LD 1 +34 PTM53610 0323 D0DF 10814 | STO DEFSW PTM53615 0324 C031 10815 | LD M1901 RESET COL 34 TO BLANK PTM53620 0325 D122 10816 | STO 1 34 PTM53625 0326 C0DC 10817 | LD DEFSW FETCH ERROR FLAG PTM53630 0327 4400 0701 10818 | OPCD2 BSI L ERFLG PLACE ERROR FLAG PTM53635 0329 4400 073A 10819 | BSI L LDLBL PASS RECORD PTM53640 10820 | * PTM53645 10821 | * GET NEXT RECORD PTM53650 10822 | * PTM53655 032B CC00 04BA 10823 | STASM LDD L P9041+12 SET I/O HDR TO RESTORE 2-10 PTM53660 032D DB67 10824 | STD 3 OVLAY-X3 *ASM PH2 TO OVLAY AREA 2-10 PTM53665 032E C003 10825 | LD STAM1 SET BRANCH ADDR TO STRT9 PTM53670 032F D35A 10826 | STO 3 P0140+1-X3 PTM53675 0330 4C00 0270 10827 | BSC L P0130 BR TO FETCH ASM PH 2 2-10 PTM53680 10828 | * PTM53685 0332 045D 10829 | STAM1 DC STRT9 PTM53690 10830 | * PTM53695 0333 4400 025F 10831 | OPCDR BSI L LDXRS RESTORE XR1 AND XR3 PTM53700 0335 7402 0213 10832 | OPCD1 MDX L ADCOW,2 INCR L.A.C. PTM53705 0337 1000 10833 | NOP (MAY SKIP) PTM53710 0338 C0E4 10834 | LD OPECR FETCH ERR FLAG PTM53715 0339 7400 020C 10835 | MDX L PSMDE,0 TEST PASS MODE PTM53720 033B 70EB 10836 | MDX OPCD2 BR-TWO PASS MODE PTM53725 033C C3F4 10837 | LD 3 PASS-X3 PTM53730 033D 4C20 0322 10838 | BSC L MOPER,Z BR-PASS TWO PTM53735 033F C0DD 10839 | LD OPECR SET ERROR FLAG PTM53740 0340 D122 10840 | STO 1 34 PTM53745 0341 70E5 10841 | MDX OPCD2 PTM53750 10842 | * PTM53755 10843 | * SYSTEM MACRO PROCESSING -- SMAC PTM53760 10844 | * PTM53765 0342 C0FF 10845 | SMACE LD *-1 SET DEFINITION SW PTM53770 0343 D0BF 10846 | STO DEFSW PTM53775 0344 4400 025F 10847 | MACS0 BSI L LDXRS XR1 TO I/P BFR,XR3 TO ASMCM PTM53780 0346 D33D 10848 | STO 3 SMAC0-X3 SET SMAC SWITCH PTM53785 10849 | * PTM53790 0347 C32D 10850 | LD 3 SMSEC-X3 TEST FOR MACRO LIBRARY PTM53795 0348 4830 10851 | BSC Z- BR-NO LIBRARY SPECIFIED PTM53800 0349 7016 10852 | MDX MACN1 SKIP TO GEN PROCESSING PTM53805 10853 | * PTM53810 10854 | * PROCESS ERROR WHEN NO MACLIB PTM53815 10855 | * PTM53820 034A 10856 | M1700 EQU * PTM53825 034A C0B8 10857 | LD DEFSW PTM53830 034B 4C10 0333 10858 | BSC L OPCDR,- BR IF NO MACRO SEARCH PTM53835 10859 | * PTM53840 034D CC00 0448 10860 | M1701 LDD L M1800+2 GET WD CNT,SCTR ADDR PH 1A PTM53845 034F DC00 0280 10861 | STD L OVLAY PTM53850 0351 C002 10862 | LD EN1AA GET SECONDARY ENT PH 1A PTM53855 0352 4C00 02B1 10863 | BSC L GTS00+1 LD AND GO TO MACRO PH 1A PTM53860 10864 | * PTM53865 10865 | * CONSTANTS PTM53870 10866 | * PTM53875 0354 03FB 10867 | EN1AA DC M1AA0 SECONDARY ENT TO MACRO PH 1APTM53880 0355 0001 10868 | M1900 DC 1 CONSTANT 1 PTM53885 0356 0040 10869 | M1901 DC /40 EBCDIC BLANK PTM53890 0357 1000 10870 | M1902 DC /1000 4K CORE INDR PTM53895 0358 0140 10871 | M1903 DC 320 DK BFR WD CNT PTM53900 10872 | * PTM53905 10873 | * TEMPORARY MACRO PROCESSING -- MAC PTM53910 10874 | * PTM53915 0359 C0FF 10875 | MACNE LD *-1 SET DEFINITION SW PTM53920 035A D0A8 10876 | STO DEFSW PTM53925 035B 4400 025F 10877 | MACN0 BSI L LDXRS XR1 TO I/P BFR,XR3 TO ASMCM PTM53930 035D 1010 10878 | SLA 16 PTM53935 035E D33D 10879 | STO 3 SMAC0-X3 MAC OP,CLEAR SMAC SW PTM53940 035F C330 10880 | LD 3 PARAM-X3 PTM53945 10881 | * PTM53950 0360 D0AC 10882 | MACN1 STO SKEL0-1 SET SCTR ADDR IN DK BFR PTM53955 0361 D332 10883 | STO 3 MCOM1-X3 *AND SAVE IN ASMCM PTM53960 10884 | * PTM53965 0362 C400 000E 10885 | LD L $CORE CHECK FOR 4K PTM53970 0364 90F2 10886 | S M1902 PTM53975 0365 4C18 0333 10887 | BSC L OPCDR,+- BR IF 4K SYSTEM PTM53980 10888 | * PTM53985 0367 C0ED 10889 | LD M1900 SET MAC/SMAC OP SW PTM53990 0368 D400 0457 10890 | STO L OPSW0 PTM53995 10891 | * PTM54000 036A C0ED 10892 | MCTST LD M1903 SET DK BFR WD CNT PTM54005 036B D0A0 10893 | STO SKEL0-2 PTM54010 036C D332 10894 | STO 3 MCOM1-X3 SET MACRO SK WD CNT PTM54015 036D C122 10895 | LD 1 +34 CHECK FOR ERROR PTM54020 036E 90E7 10896 | S M1901 CHECK FOR BLANK PTM54025 036F 4C20 031E 10897 | BSC L MOPR1,Z BR IF ERROR PTM54030 10898 | * PTM54035 0371 C3F3 10899 | LD 3 PSMDE-X3 TEST FOR TWO PASS MODE PTM54040 0372 4818 10900 | BSC +- SKIP-ONE PASS MODE PTM54045 0373 7003 10901 | MDX MCT1S SKIP-ONE PASS MODE PTM54050 0374 C08E 10902 | LD DEFSW PTM54055 0375 4C10 037A 10903 | BSC L MCTS2,- BR-NOT A DEFINITION PTM54060 0377 C3F4 10904 | MCT1S LD 3 PASS-X3 IF PASS TWO,BR TO PTM54065 0378 4C20 03E6 10905 | BSC L SCNPS,Z *BYPASS DEFINITION PTM54070 10906 | * PTM54075 037A C123 10907 | MCTS2 LD 1 +35 PTM54080 037B F0DA 10908 | EOR M1901 CHK COMMENTS SW,CC 35 PTM54085 037C D33E 10909 | STO 3 COMSW-X3 SET COMMENTS SW PTM54090 10910 | * PTM54095 10911 | * PTM54100 10912 | * SCAN PROTOTYPE STATEMENT PTM54105 10913 | * PTM54110 037D 4400 074B 10914 | MCOP BSI L PALBL READ NEXT RCD PTM54115 10915 | * PTM54120 037F 711B 10916 | MDX 1 +27 XR1 POINTS TO OP CODE PTM54125 0380 1010 10917 | SLA 16 CLEAR OP CODE CHAR CNT PTM54130 0381 D032 10918 | STO OPCN1 PTM54135 0382 620A 10919 | MCOP0 LDX 2 MCOP2-MCOP1 SET PARAM SET CNT PTM54140 0383 4400 041F 10920 | BSI L MCCSN PERFORM CHAR SCAN PTM54145 0385 004B 10921 | MCOP1 DC /4B EBCDIC PERIOD PTM54150 0386 0398 10922 | DC MCOP5 PTM54155 0387 006B 10923 | DC /6B EBCDIC COMMA PTM54160 0388 0398 10924 | DC MCOP5 PTM54165 0389 004D 10925 | DC /4D EBCDIC LEFT PAREN PTM54170 038A 0398 10926 | DC MCOP5 PTM54175 038B 005D 10927 | DC /5D EBCDIC RIGHT PAREN PTM54180 038C 0398 10928 | DC MCOP5 PTM54185 038D 0040 10929 | MC0P0 DC /40 EBCDIC BLANK PTM54190 038E 0393 10930 | DC MCOP6 PTM54195 038F 7401 03B4 10931 | MCOP2 MDX L OPCN1,1 INCR OP LENGTH CNT PTM54200 0391 7101 10932 | MDX 1 1 PT TO NEXT CHAR PTM54205 0392 70EF 10933 | MDX MCOP0 CONTINUE OP CODE SCAN PTM54210 10934 | * PTM54215 0393 C020 10935 | MCOP6 LD OPCN1 TEST OP CHAR CNT PTM54220 0394 9020 10936 | S M1904 PTM54225 0395 4828 10937 | BSC +Z SKIP IF 5 OR MORE CHARS PTM54230 0396 70F8 10938 | MDX MCOP2 CONT OP SEARCH-EMBEDDED BLNKPTM54235 0397 4820 10939 | BSC Z BR TO PLACE MACRO NAME PTM54240 0398 70B4 10940 | MCOP5 MDX M1701 BR-INVALID MACRO NAME PTM54245 10941 | * PTM54250 10942 | * PTM54255 10943 | * PLACE MACRO NAME IN LIST PTM54260 10944 | * PTM54265 0399 6700 0292 10945 | MCOP3 LDX L3 MCOP4 XR3 PT TO OP CODE BFR PTM54270 039B 71FB 10946 | MDX 1 -5 XR1 PT TO OP CODE FLD PTM54275 039C 6205 10947 | LDX 2 5 SET TO PACK 4 CHAR PTM54280 039D C100 10948 | MCP31 LD 1 0 FETCH LEFTHAND CHAR PTM54285 039E 1008 10949 | SLA 8 SHIFT PTM54290 039F 72FF 10950 | MDX 2 -1 PTM54295 03A0 E901 10951 | OR 1 1 FETCH RIGHTHAND CHAR PTM54300 03A1 7201 10952 | MDX 2 1 PTM54305 03A2 D300 10953 | STO 3 0 STORE 2 CHAR PTM54310 03A3 7102 10954 | MDX 1 2 PT TO NEXT CHAR PTM54315 03A4 7301 10955 | MDX 3 1 PT TO NEXT BFR WD PTM54320 03A5 72FE 10956 | MDX 2 -2 DECR PACK CNT PTM54325 03A6 70F6 10957 | MDX MCP31 CONT PACK 2 CHAR/WD PTM54330 03A7 C400 0256 10958 | LD L SMAC0 TEST FOR SYSTEM MACRO PTM54335 03A9 4C18 0298 10959 | BSC L OPLC1,+- BR-TEMPORARY MACRO PTM54340 03AB 7006 10960 | MDX SYSOP BR-SYST MACRO PTM54345 10961 | * PTM54350 10962 | * PLACE MACRO NAME IN MACRO OP TO SCAN PTM54355 10963 | * PTM54360 03AC CC00 04AC 10964 | MAC12 LDD L OPBUF FETCH FIRST 4 CHARS PTM54365 03AE DB79 10965 | STD 3 MCOP4-X3 *AND SAVE PTM54370 03AF C11F 10966 | LD 1 31 FETCH 5TH CHAR AND SAVE PTM54375 03B0 1008 10967 | SLA 8 PACK 5TH CHAR PTM54380 03B1 D37B 10968 | STO 3 MCOP4+2-X3 PTM54385 03B2 4C00 02EC 10969 | SYSOP BSC L NMSR2+2 BR TO READ,SCAN SKEL0 PTM54390 10970 | * PTM54395 10971 | * CONSTANTS AND INDICATORS PTM54400 10972 | * PTM54405 03B4 0000 10973 | OPCN1 DC *-* OP CODE LENGTH PTM54410 03B5 0005 10974 | M1904 DC 5 CONSTANT 5 PTM54415 03B6 00F0 10975 | M1905 DC /F0 POSITIVE ZONE PTM54420 03B7 005C 10976 | M1906 DC .* EBCDIC ASTERISK PTM54425 10977 | * PTM54430 10978 | * SPECIAL OP CODE TABLE PTM54435 10979 | * PTM54440 03B8 10980 | BSS E 0 FORCE EVEN ADDR PTM54445 03B8 E2D4 C1C3 10981 | OPN01 EBC .SMAC. SYST MACRO DEFN OP PTM54450 03BA D4C1 C340 10982 | EBC .MAC . TEMP MACRO DEFN OP PTM54455 03BC D4C5 D5C4 10983 | EBC .MEND. END MACRO DEFN OP PTM54460 03BE C1C9 C640 10984 | EBC .AIF . ASM IF FALSE OP PTM54465 03C0 C1C7 D640 10985 | EBC .AGO . GO TO ASM OP PTM54470 03C2 C1C9 C6C2 10986 | EBC .AIFB. ASM IF FALSE BACK OP PTM54475 03C4 C1C7 D6C2 10987 | EBC .AGOB. GO TO ASM BACK OP PTM54480 03C6 E2C5 E340 10988 | EBC .SET . SET VALUE OP PTM54485 03C8 D7E4 D9C7 10989 | EBC .PURG. PURG MACRO OP PTM54490 03CA C1D5 D6D7 10990 | EBC .ANOP. PASS LABEL OP PTM54495 03CC 10991 | OPN02 EQU * PTM54500 03CC 0342 10992 | DC SMACE SYST MACRO ENTRY PTM54505 03CD 0359 10993 | DC MACNE TEMP MACRO ENTRY PTM54510 03CE 034D 10994 | DC M1701 OP CODE ERROR PTM54515 03CF 03DB 10995 | DC GTS1B GET MACRO PH 1B PTM54520 03D0 03DB 10996 | DC GTS1B GET MACRO PH 1B PTM54525 03D1 03DB 10997 | DC GTS1B GET MACRO PH 1B PTM54530 03D2 03DB 10998 | DC GTS1B GET MACRO PH 1B PTM54535 03D3 03DF 10999 | DC GTS1A GET MACRO PH 1A PTM54540 03D4 03DF 11000 | DC GTS1A GET MACRO PH 1A PTM54545 03D5 03DF 11001 | DC GTS1A GET MACRO PH 1A PTM54550 03D6 11002 | OPN03 EQU * PTM54555 03D6 C5D5 C440 11003 | EBC .END . EBC END PTM54560 03D8 03E4 11004 | OPN04 DC SCNPS-2 MAC BRANCH TBL PTM54565 03D9 03E4 11005 | DC SCNPS-2 SMAC *FOR SECOND PTM54570 03DA 0417 11006 | DC SCNP3 MEND *PASS PTM54575 03DB 11007 | OPN05 EQU * PTM54580 11008 | * PTM54585 11009 | * LOAD AND GO TO MACRO PH 1A OR 1B IN PTM54590 11010 | * *OVERLAY AREA TO PROCESS SPECIAL PTM54595 11011 | * *OPERATIONS. PTM54600 11012 | * PTM54605 11013 | * PTM54610 03DB C870 11014 | GTS1B LDD M1810+2 GET WD CNT & SCTR ADDR PTM54615 03DC DC00 0280 11015 | STD L OVLAY PTM54620 03DE 7003 11016 | MDX GTSLD BR TO LOAD OVERLAY PTM54625 03DF C868 11017 | GTS1A LDD M1800+2 GET WD CNT & SCTR ADDR PTM54630 03E0 DC00 0280 11018 | STD L OVLAY PTM54635 03E2 4C00 02B0 11019 | GTSLD BSC L GTS00 BR TO LOAD OVERLAY PTM54640 11020 | * PTM54645 11021 | * CODE FOR BYPASSING DEFINITIONS PTM54650 11022 | * XR1 MUST POINT TO START OF INPUT BUFFER. PTM54655 11023 | * PTM54660 03E4 7401 0457 11024 | MDX L OPSW0,1 PTM54665 03E6 7400 041F 11025 | SCNPS MDX L MACSW,0 PTM54670 03E8 7031 11026 | MDX SCNP4 PTM54675 03E9 6580 0238 11027 | SCNPE LDX I1 RDBFR RESTORE XR1 PTM54680 03EB C122 11028 | LD 1 +34 TEST FOR ERROR FLAG PTM54685 03EC 9400 0356 11029 | S L M1901 PTM54690 03EE 4C20 031E 11030 | BSC L MOPR1,Z BR IF ERROR PTM54695 03F0 703A 11031 | SCNP0 MDX PASLB PTM54700 11032 | * PTM54705 03F1 C115 11033 | LD 1 +21 TEST FOR ASTERISK IN COL 21 PTM54710 03F2 F0C4 11034 | EOR M1906 PTM54715 03F3 4C18 042B 11035 | BSC L PASLB,+- BR IF COMMENTS RCD PTM54720 03F5 C11F 11036 | LD 1 +31 PTM54725 03F6 F096 11037 | EOR MC0P0 TEST FOR 5 CHAR OP PTM54730 03F7 4C20 042B 11038 | BSC L PASLB,Z BR IF MACRO NAME PTM54735 11039 | * PTM54740 03F9 6204 11040 | LDX 2 4 SET OP CODE CHAR CNT PTM54745 03FA 10A0 11041 | SLT 32 PACK OP CODE 2 EBCDIC PTM54750 03FB E91E 11042 | SCNP1 OR 1 +30 *CHARACTERS/WD PTM54755 03FC 18C8 11043 | RTE 8 PTM54760 03FD 71FF 11044 | MDX 1 -1 PTM54765 03FE 72FF 11045 | MDX 2 -1 PTM54770 03FF 70FB 11046 | MDX SCNP1 CONT PACKING OP CODE PTM54775 0400 18D0 11047 | RTE 16 PTM54780 0401 DC00 04AC 11048 | STD L OPBUF SAVE OP CODE FOR ASM PTM54785 0403 DB23 11049 | STD 3 SYMBF-X3 PTM54790 0404 98D1 11050 | SD OPN03 TEST FOR END RCD PTM54795 0405 4818 11051 | BSC +- PTM54800 0406 1090 11052 | SLT 16 PTM54805 0407 4C18 041C 11053 | BSC L SCNP5,+- BR-END RCD PTM54810 11054 | * PTM54815 0409 62FD 11055 | LDX 2 OPN04-OPN05 NEGATIVE TBL CNT PTM54820 040A 6500 03B8 11056 | LDX L1 OPN01 BR TBL PT PTM54825 11057 | * PTM54830 040C CB23 11058 | SCNP2 LDD 3 SYMBF-X3 CMP CURR OP CODE PTM54835 040D 9900 11059 | SD 1 0 *WITH TABLE PTM54840 040E 4820 11060 | BSC Z SKIP IF MATCH PTM54845 040F 7003 11061 | MDX *+3 PTM54850 0410 18D0 11062 | RTE 16 PTM54855 0411 4E98 03DB 11063 | BSC I2 OPN05,+- BR THRU TBL IF MATCH PTM54860 0413 7102 11064 | MDX 1 2 INCR CMP TBL PT PTM54865 0414 7201 11065 | MDX 2 1 INCR BR TBL PT PTM54870 0415 70F6 11066 | MDX SCNP2 CONT OP CODE CMP PTM54875 0416 70CF 11067 | MDX SCNPS GO GET NEXT RCD PTM54880 11068 | * PTM54885 0417 74FF 0457 11069 | SCNP3 MDX L OPSW0,-1 MEND,DECR DEFINITION CNT PTM54890 0419 70CC 11070 | MDX SCNPS CONT,NESTED DEFINITION PTM54895 11071 | * PTM54900 041A 11072 | SCNP4 EQU * PTM54905 041A 4400 074B 11073 | BSI L PALBL GET NEXT RCD PTM54910 041C 4346 11074 | SCNP5 BSI 3 LDXRS-X3 RESTORE XR1 PTM54915 041D 4C00 032B 11075 | BSC L STASM RETURN TO ASM PTM54920 11076 | * PTM54925 11077 | * PTM54930 11078 | * GENERAL CHARACTER SCAN PTM54935 11079 | * *UPON ENTRY, PTM54940 11080 | * * XR1 POINTS TO CHAR PTM54945 11081 | * * XR2 CONTAINS PARAM LIST SIZE PTM54950 11082 | * *XR3 IS DESTROYED BY MCCSN PTM54955 11083 | * *CALLING SEQUENCE IS PTM54960 11084 | * * BSI MCCSN PTM54965 11085 | * * DC CHAR PTM54970 11086 | * * DC ADDR PTM54975 11087 | *ADDR IS LOCATION TRANSFERRED TO IF CHAR FOUND PTM54980 11088 | * PTM54985 11089 | * PTM54990 041F 0000 11090 | MCCSN DC *-* PTM54995 0420 6780 041F 11091 | MCCS0 LDX I3 MCCSN XR3 PT TO PARAM PTM55000 0422 C100 11092 | MCCS1 LD 1 0 FETCH CHAR PTM55005 0423 F300 11093 | EOR 3 0 CMP WITH CALL CHAR PTM55010 0424 4F98 0001 11094 | BSC I3 1,+- BR IF CALL CHAR FOUND PTM55015 0425 11095 | MCC01 EQU *-1 PTM55020 0426 7302 11096 | MDX 3 2 SKIP TO NEXT PARAM SET PTM55025 0427 72FE 11097 | MDX 2 -2 DECR PARAM SET CNT PTM55030 0428 70F9 11098 | MDX MCCS1 CONT SCAN PTM55035 0429 4F00 0000 11099 | MCCS3 BSC L3 0 NORMAL RETURN PTM55040 041F 11100 | MACSW EQU MCCSN PTM55045 11101 | * PTM55050 11102 | * CODE TO PRINT SEQUENCE NUMBERS PTM55055 11103 | * *WITH DEFINITION PROTOTYPE AND READS PTM55060 11104 | * *NEXT RECORD. PTM55065 11105 | * PTM55070 042B 11106 | PASLB EQU * PTM55075 042B 6205 11107 | LDX 2 5 SET TO CVRT 5 DIGITS PTM55080 042C C029 11108 | LD CNT26 FETCH COUNT AND PTM55085 042D 80F7 11109 | A MCC01 *INCR BY 1 PTM55090 042E D027 11110 | STO CNT26 PTM55095 042F 4C28 0441 11111 | BSC L PASL4,+Z BR IF NONPOSITIVE PTM55100 0431 4C18 03F1 11112 | BSC L SCNP0+1,+- CHK FOR SPECIAL OPS PTM55105 0433 90F1 11113 | S MCC01 START COUNT WITH ZERO PTM55110 0434 18D0 11114 | RTE 16 DIVIDEND TO EXTENSION REG PTM55115 0435 1010 11115 | PASL2 SLA 16 CLEAR ACC PTM55120 0436 A80D 11116 | D M1907 CALC NEXT DECML DGT PTM55125 0437 18D0 11117 | RTE 16 SHIFT DGT TO ACC PTM55130 0438 EC00 03B6 11118 | OR L M1905 ADD ZONE TO DGT PTM55135 043A D110 11119 | STO 1 +16 STORE DGT IN BFR PTM55140 043B 71FF 11120 | MDX 1 -1 DECR BFR ADDR PTM55145 043C 72FF 11121 | MDX 2 -1 DECR CNT PTM55150 043D 70F7 11122 | MDX PASL2 CONT CONVERTING SEQNO PTM55155 043E 11123 | PASL3 EQU * PTM55160 043E 4400 074B 11124 | BSI L PALBL PRINT RCD AND READ NEXT RCD PTM55165 0440 70B0 11125 | MDX SCNP0+1 RETURN PTM55170 0441 4400 074B 11126 | PASL4 BSI L PALBL PRINT RCD,READ NEXT RCD PTM55175 0443 70A5 11127 | MDX SCNPE GO CHECK FOR ERROR PTM55180 11128 | * PTM55185 11129 | * CONSTANTS AND SLET TABLE PTM55190 11130 | * PTM55195 0444 000A 11131 | M1907 DC 10 CONSTANT 10 PTM55200 0446 11132 | BSS E 0 FORCE EVEN ADDR PTM55205 0446 00EA 11133 | M1800 DC /EA SLET ID OF MACRO PH 1A PTM55210 0447 11134 | BSS 3 PTM55215 044A 00EB 11135 | M1810 DC /EB SLET ID OF MACRO PH 1B PTM55220 044B 11136 | BSS 3 PTM55225 11137 | *************************************************** PTM55230 11138 | * CODE BEGINNING AT M1820+2 CANNOT * PTM55235 11139 | * *OVERLAID BY THE SKEL0 BFR. * PTM55240 11140 | *************************************************** PTM55245 044E 00EC 11141 | M1820 DC /EC SLET ID OF MACRO PH 2 PTM55250 11142 | * NOTE THE DISTANCE BETWEEN MACRO AND S7Z00 PTM55255 11143 | * *MUST EQUAL 322 WORDS PTM55260 044F 11144 | S7Z00 EQU * PTM55265 030E 11145 | SKEL0 EQU S7Z00-321 PTM55270 044F 11146 | BSS 3 PTM55275 0452 00F0 11147 | M1830 DC /F0 SLET ID OF MACRO PH 3A PTM55280 0453 11148 | BSS 3 PTM55285 0456 FFFE 11149 | CNT26 DC -2 INITIAL CTR VALUE -2 PTM55290 0457 0000 11150 | OPSW0 DC *-* MAC/SMAC SW AND COUNTER PTM55295 0457 11151 | MC1Z0 EQU *-1 END OF MACRO PH 1 PTM55300 *SBRKSLS EA 11152 | MACRO PHASE 1A - SPECIAL PSEUDO OPS V2M08 PTM55305 MACRO PROCESSOR PHASE 1A 11154 | *************************************************** PTM55315 11155 | * * PTM55320 11156 | *STATUS - VERSION 2, MODIFICATION 11 * PTM55325 11157 | * * PTM55330 11158 | *FUNCTION/OPERATION- * PTM55335 11159 | * *MACRO PHASE 1A PROCESSES THE SPECIAL PSEUDO * PTM55340 11160 | * OPERATIONS PURG,SET,AND ANOP. * PTM55345 11161 | * *THE PURG PSEUDO OP IS PROCESSED DURING PASS * PTM55350 11162 | * 1.PURG IS INVALID IF SPECIFIED ON A 4K SYSTEM* PTM55355 11163 | * OR IF A MACRO LIBRARY IS NOT SPECIFIED. * PTM55360 11164 | * THE CHARACTERS IN QUOTES IN THE OPERAND FLD * PTM55365 11165 | * ARE THE SEARCH ARGUMENT.IF THE NAME IS FOUND,* PTM55370 11166 | * THE NAME IS ERASED FROM THE LIBRARY. IF THE * PTM55375 11167 | * NAME IS NOT FOUND,A WARNING IS ISSUED. * PTM55380 11168 | * *THE SET PSEUDO OP IS PROCESSED DURING BOTH * PTM55385 11169 | * PASSES.IF NO LABEL IS SPECIFIED,THE STATEMENT* PTM55390 11170 | * IS FLAGGED.OTHERWISE,THE VALUE OF THE SYMBOL * PTM55395 11171 | * BECOMES THE VALUE OF THE OPERAND FIELD. * PTM55400 11172 | * *ANOP CAUSES A LABEL TO BE PASSED. * PTM55405 11173 | * *MACRO PHASE 1A ALSO PROCESSES THE A08 * PTM55410 11174 | * ERROR CONDITION WHICH IS DETECTED BY MACRO * PTM55415 11175 | * PHASE 1. * PTM55420 11176 | * * PTM55425 11177 | *ENTRY POINTS- * PTM55430 11178 | * *BRTAB-1 - PROCESS PURG,SET ANOP * PTM55435 11179 | * ENTRY FROM MACRO PHASE 1 * PTM55440 11180 | * *M1AA0 - PROCESS A08 ERROR MESSAGE * PTM55445 11181 | * ENTRY FROM MACRO PHASE 1 * PTM55450 11182 | * * PTM55455 11183 | *INPUT- * PTM55460 11184 | * *RECORD IN INPUT BUFFER * PTM55465 11185 | * * PTM55470 11186 | *OUTPUT-SEE FUNCTION/OPERATION * PTM55475 11187 | * * PTM55480 11188 | *EXTERNAL REFERENCES- * PTM55485 11189 | * *SUBROUTINES- * PTM55490 11190 | * * BGASM * PTM55495 11191 | * * DISK1 * PTM55500 11192 | * * ERFLG * PTM55505 11193 | * * GETS2 * PTM55510 11194 | * * GETS5 * PTM55515 11195 | * * GETS6 * PTM55520 11196 | * * GETS7 * PTM55525 11197 | * * GETS8 * PTM55530 11198 | * * GTS8A * PTM55535 11199 | * * GTS12 * PTM55540 11200 | * * GTS13 * PTM55545 11201 | * * LDLBL * PTM55550 11202 | * * LDXRS * PTM55555 11203 | * * PALBL * PTM55560 11204 | * * SCAN * PTM55565 11205 | * * SCNPS * PTM55570 11206 | * *ASMCM- * PTM55575 11207 | * * LABRL * PTM55580 11208 | * * LABVL * PTM55585 11209 | * * PASS * PTM55590 11210 | * * RELSW * PTM55595 11211 | * * SMSEC * PTM55600 11212 | * * VALUE * PTM55605 11213 | * *DCOM/COMMA- * PTM55610 11214 | * * $CORE * PTM55615 11215 | * * $FPAD * PTM55620 11216 | * * $IREQ * PTM55625 11217 | * * $1410 * PTM55630 11218 | * * $PHSE * PTM55635 11219 | * * PTM55640 11220 | *EXITS- * PTM55645 11221 | * *BGASM IS ASM PHASE 9 * PTM55650 11222 | * * PTM55655 11223 | *TABLES/WORK AREAS- * PTM55660 11224 | * *PSKEL - DISK BUFFER FOR PURG * PTM55665 11225 | * * PTM55670 11226 | *ATTRIBUTES-N/A * PTM55675 11227 | * * PTM55680 11228 | *NOTES-N/A * PTM55685 11229 | * * PTM55690 11230 | *************************************************** PTM55695 11231 | *************************************************** PTM55700 11232 | * MACRO PROCESSOR COMMUNICATIONS AREA * PTM55705 11233 | *************************************************** PTM55710 0913 11234 | MULT EQU P9334 PTM55715 0926 11235 | STADD EQU P9352 PTM55720 0747 11236 | STLBL EQU P9222 PTM55725 08C6 11237 | STSCH EQU P9300 PTM55730 08E1 11238 | STSXT EQU P9303+1 PTM55735 08C9 11239 | STS1 EQU P9300+3 PTM55740 11240 | *************************************************** PTM55745 0280 11241 | ORG OVLAY PTM55750 0280 01D8 11242 | DC MP1AZ-MP1A0 WD CNT OF MACRO PH 1A PTM55755 0281 00EA 11243 | A1902 DC /EA SLET ID OF MACRO PH 1A PTM55760 0282 11244 | MP1A0 EQU * PTM55765 11245 | * PTM55770 11246 | * INTERPHASE BRANCH TABLE PTM55775 11247 | * *IF PRESENT,ALWAYS AT BEGINNING OF PTM55780 11248 | * *OVERLAY AREA PTM55785 11249 | * PTM55790 0282 4C00 04C1 11250 | BSC L GETS5 +2 FETCH PH 5 PTM55795 0284 4C00 04C3 11251 | BSC L GETS6 +4 FETCH PH 6 PTM55800 0286 4C00 04C5 11252 | BSC L GETS7 +6 FETCH PH 7 PTM55805 0288 4C00 04CA 11253 | BSC L GETS8 +8 FETCH PH 8 PTM55810 028A 4C00 04CC 11254 | BSC L GTS8A +10 FETCH PH 8A PTM55815 028C 4C00 04CE 11255 | BSC L GTS12 +12 FETCH PH 12 PTM55820 028E 4C00 04C7 11256 | BSC L GTS13 +14 FETCH MACRO PH 1 PTM55825 0290 4C00 04D0 11257 | BSC L GETS2 +16 FETCH PH 2 PTM55830 11258 | * PTM55835 11259 | * ENTER MACRO PHASE 1A HERE PTM55840 11260 | * PTM55845 0292 7003 11261 | MDX MAC1A ENTER MACRO PH 1A PTM55850 11262 | * PTM55855 11263 | * BRANCH TABLE BASED ON OP CODE PTM55860 11264 | * XR2 SET TO TBL DISPLACEMENT PTM55865 11265 | * *IN MACRO PHASE 1 PTM55870 11266 | * PTM55875 028B 11267 | BRTAB EQU *-8 PTM55880 0293 0368 11268 | DC SET BR ADDR FOR SET OP PTM55885 0294 031F 11269 | DC PURG BR ADDR FOR PURG OP PTM55890 0295 02F0 11270 | DC ENXT0 BR ADDR FOR ANOP OP PTM55895 11271 | * PTM55900 0296 11272 | MAC1A EQU * PTM55905 0296 C600 028B 11273 | LD L2 BRTAB SET ENTRY FOR DESIRED PTM55910 0298 D001 11274 | STO *+1 *PSEUDO OPERATION PTM55915 0299 4C00 0000 11275 | BSC L *-* *AND BR TO SUBR PTM55920 11276 | * PTM55925 029B 11277 | PURG1 EQU * PTM55930 029B C3F4 11278 | LD 3 PASS-X3 PTM55935 029C 4C20 02BA 11279 | BSC L PURGB,Z BR IF PASS 2 PTM55940 029E C863 11280 | LDD A1910 LD DISK READ PARAM PTM55945 029F 435C 11281 | BSI 3 DISK1-X3 PERFORM DISK READ PTM55950 11282 | * PTM55955 02A0 C073 11283 | LD PSKEL PTM55960 02A1 7033 11284 | MDX PURG4 TEST CHAIN WD FOR 0 PTM55965 02A2 D06D 11285 | PURG2 STO SKELY SAVE DISP TO NEXT ENT PTM55970 02A3 6680 0310 11286 | LDX I2 SKELY PTM55975 02A5 C600 0314 11287 | LD L2 PSKEL TEST FOR END OF LIBRARY INDRPTM55980 02A7 F056 11288 | EOR AFE00 PTM55985 02A8 4C20 02C3 11289 | BSC L PURGA,Z BR IF NOT END OF LIBRARY PTM55990 02AA 6580 0238 11290 | LDX I1 RDBFR RESTORE XR1 PTM55995 02AC C400 020C 11291 | PURGE LD L PSMDE PTM56000 02AE 4C18 02B7 11292 | BSC L PURGD,+- BR-ONE PASS MODE PTM56005 02B0 7401 027C 11293 | MDX L P2MWC,1 INCR TWO PASS MODE PTM56010 02B2 1000 11294 | NOP *WARNING CNT PTM56015 02B3 4052 11295 | BSI A1QFG PLACE Q FLAG PTM56020 02B4 4400 0802 11296 | BSI L P9MVE PRINT RCD PTM56025 02B6 7039 11297 | MDX ENXT0 PASS RCD PTM56030 11298 | * PTM56035 02B7 C048 11299 | PURGD LD A1906 SET COL 33 TO NON-BLANK PTM56040 02B8 D121 11300 | STO 1 +33 PTM56045 02B9 7036 11301 | MDX ENXT0 PASS RCD PTM56050 11302 | * PTM56055 02BA 6580 0238 11303 | PURGB LDX I1 RDBFR TEST IF PURGE PERFORMED PTM56060 02BC C121 11304 | LD 1 +33 DO NOT SET Q FLAG IF PTM56065 02BD F051 11305 | EOR A1912 *OPERATION OCCURRED PTM56070 02BE 4420 0306 11306 | BSI L A1QFG,Z BR TO SET Q FLAG PTM56075 02C0 C04E 11307 | PURGC LD A1912 RESTORE COL 34 TO BLANK PTM56080 02C1 D121 11308 | STO 1 +33 PTM56085 02C2 702D 11309 | MDX ENXT0 PROCESS NEXT RECORD PTM56090 11310 | * PTM56095 02C3 11311 | PURGA EQU * PTM56100 02C3 C600 0315 11312 | LD L2 PSKEL+1 CHECK TO SEE IF NAME PTM56105 02C5 18D0 11313 | RTE 16 *MATCHES PTM56110 02C6 C600 0314 11314 | LD L2 PSKEL PTM56115 02C8 9831 11315 | SD PMOP0 PTM56120 02C9 4820 11316 | BSC Z PTM56125 02CA 7008 11317 | MDX PURG3 NO MATCH PTM56130 02CB 18D0 11318 | RTE 16 PTM56135 02CC 4820 11319 | BSC Z SKIP IF CHARACTERS MATCH PTM56140 02CD 7005 11320 | MDX PURG3 BR-NO MATCH PTM56145 02CE C600 0316 11321 | LD L2 PSKEL+2 TEST 5TH CHARACTER PTM56150 02D0 902B 11322 | S PMOP0+2 *FOR MATCH PTM56155 02D1 4C18 02DA 11323 | BSC L PURG5,+- BRANCH IF MATCH PTM56160 02D3 C600 0317 11324 | PURG3 LD L2 PSKEL+3 TEST END OF LIBRARY SCTR PTM56165 02D5 4820 11325 | PURG4 BSC Z SKIP TO DK READ PTM56170 02D6 70CB 11326 | MDX PURG2 CONT SCTR SEARCH PTM56175 02D7 7401 0313 11327 | MDX L PSKEL-1,1 INCR SCTR ADDR PTM56180 02D9 70C1 11328 | MDX PURG1 GO TO DK READ PTM56185 02DA D600 0314 11329 | PURG5 STO L2 PSKEL CLEAR FIRST WD OF NAME PTM56190 02DC 6580 0238 11330 | LDX I1 RDBFR SET INDR THAT OPERATION PTM56195 11331 | * PTM56200 11332 | * MASK INTRPT REQ KEY TO PREVENT PTM56205 11333 | * *LOSS OF FILE PROTECT ADDRESS PTM56210 11334 | * PTM56215 02DE C400 002C 11335 | LD L $IREQ SAVE INTRPT REQ BR ADDR PTM56220 02E0 D020 11336 | STO A1908 PTM56225 02E1 6500 02F4 11337 | LDX L1 MIREQ SET INTRPT BR ADDR PTM56230 02E3 6D00 002C 11338 | STX L1 $IREQ PTM56235 02E5 1010 11339 | SLA 16 CLEAR ENT PT AND SWITCH PTM56240 02E6 D00D 11340 | STO MIREQ PTM56245 11341 | * PTM56250 02E7 C81A 11342 | LDD A1910 GET DK WRITE PARAM PTM56255 02E8 8028 11343 | A A1909 SET TO WRITE PTM56260 02E9 435C 11344 | BSI 3 DISK1-X3 WR SCTR TO DISK PTM56265 11345 | * PTM56270 11346 | * RESTORE INTRPT REQUEST PTM56275 11347 | * PTM56280 02EA C016 11348 | LD A1908 RESTORE INTRPT REQ BR ADDR PTM56285 02EB D400 002C 11349 | STO L $IREQ PTM56290 02ED C006 11350 | LD MIREQ TEST INTRPT REQ SW PTM56295 02EE 44A0 002C 11351 | BSI I $IREQ,Z BR IN INTRPT REQ OCCURRED PTM56300 11352 | * PTM56305 02F0 4400 074B 11353 | ENXT0 BSI L PALBL GET NEXT RECORD 2-11 PTM56310 02F2 4C00 045D 11354 | BSC L BGASM BR TO OPCODE SEARCH 2-11 PTM56312 11355 | * PTM56315 11356 | * MASK INTRPT REQ SUBROUTINE PTM56320 11357 | * PTM56325 02F4 0000 11358 | MIREQ DC *-* ENT PT - 0 IF NO REQ PTM56330 02F5 080E 11359 | XIO RESEA RESET KB/CP SWITCH PTM56335 02F6 4C00 00D5 11360 | BSC L $1410 RETURN TO ILS04 PTM56340 11361 | * PTM56345 11362 | * CONSTANTS PTM56350 11363 | * PTM56355 02F8 11364 | BSS E 0 FORCE EVEN ADDR PTM56360 02F8 4040 11365 | A1900 DC /4040 PACKED EBC BLANKS PTM56365 02F9 4040 11366 | DC /4040 PACKED EBC BLANKS PTM56370 02FA 11367 | BSS E 0 FORCE EVEN ADDR PTM56375 02FA 4040 11368 | PMOP0 DC /4040 MACRO NAME BFR PTM56380 02FB 4040 11369 | DC /4040 PTM56385 02FC 4000 11370 | DC /4000 PTM56390 02FD 4000 11371 | A1903 DC /4000 LEFTHAND EBCDIC BLANK PTM56395 02FE FE00 11372 | AFE00 DC /FE00 PTM56400 02FF 1000 11373 | A1904 DC /1000 4K CORE INDICATOR PTM56405 0300 00D6 11374 | A1906 DC .O EBCDIC O-OP CODE ERR FLG PTM56410 0301 0000 11375 | A1908 DC *-* SAVE INTRPT REQ BR ADDR PTM56415 0302 11376 | BSS E 0 FORCE EVEN ADDR PTM56420 0302 7000 11377 | A1910 DC /7000 DISK READ FUNC CODE PTM56425 0303 0312 11378 | DC PSKEL-2 I/O AREA ADDR PTM56430 0304 11379 | BSS E 0 FORCE EVEN ADDR PTM56435 0304 11380 | A1Q00 EQU * PTM56440 0304 00D8 11381 | RESEA DC .Q EBCDIC Q PTM56445 0305 0F01 11382 | DC /0F01 IOCC TO RESET KB/CP PTM56450 11383 | * PTM56455 0306 0000 11384 | A1QFG DC *-* ENTRY PT PTM56460 0307 C0FE 11385 | LD A1QFG SET RETURN ADDR PTM56465 0308 D400 0701 11386 | STO L P9202 PTM56470 030A 7439 070E 11387 | MDX L ERADD,MCOM5-ERCNT PT TO WARN CNT PTM56475 030C C0F7 11388 | LD A1Q00 FETCH Q FLAG PTM56480 030D 4C00 0706 11389 | BSC L FLGCO JOIN ERFLG SUBR PTM56485 11390 | * PTM56490 030F 0040 11391 | A1912 DC . EBCDIC BLANK PTM56495 0310 11392 | BSS E 0 FORCE EVEN ADDR PTM56500 0310 0000 11393 | SKELY DC *-* PTM56505 0311 0001 11394 | A1909 DC 1 CONSTANT 1 PTM56510 0312 11395 | BSS E 0 FORCE EVEN ADDR PTM56515 0312 0140 11396 | DC 320 PTM56520 0313 0000 11397 | DC *-* DISK SCTR ADDR PTM56525 0314 11398 | PSKEL EQU * PTM56530 11399 | * PTM56535 11400 | * SET OP CODE ERROR FLAG AND CONTINUE PTM56540 11401 | * *PROCESSING WITH NEXT RECORD PTM56545 0314 7402 0213 11402 | OFLAG MDX L ADCOW,2 INCR L.A.C. PTM56550 0316 1000 11403 | NOP (MAY SKIP) PTM56555 0317 C0E8 11404 | LD A1906 FETCH OP CODE FLAG PTM56560 0318 4400 0701 11405 | BSI L ERFLG PLACE ERR FLG IN O/P BFR PTM56565 031A 70D5 11406 | MDX ENXT0 CONT PROCESSING NEXT RCD PTM56570 11407 | * PTM56575 11408 | * PTM56580 11409 | * PTM56585 11410 | * PROCESS PURG PSEUDO OPERATION PTM56590 11411 | * NEVER EFFECTIVE IN PASS TWO PTM56595 11412 | * *OR ON 4K SYSTEM PTM56600 11413 | * DELETES NAME FROM SYSTEM MACRO PTM56605 11414 | * *LIBRARY PTM56610 031B 0000 11415 | PURC2 DC 0 CHAR CNT OF NAME PTM56615 031C 00E2 11416 | A1911 DC .S EBCDIC S,SYNTAX FLAG PTM56620 031D 007D 11417 | M1AAP DC .' EBC APOSTROPHE PTM56625 031E 0006 11418 | PURC1 DC 6 CHAR CNT OF NAME PTM56630 11419 | * PTM56635 031F C400 000E 11420 | PURG LD L $CORE TEST FOR 4K SYSTEM PTM56640 0321 90DD 11421 | S A1904 PTM56645 0322 4C18 0314 11422 | BSC L OFLAG,+- BR TO SET OP CODE ERR FLAG PTM56650 11423 | * PTM56655 0324 4400 025F 11424 | BSI L LDXRS XR1 TO I/P BFR,XR3 TO ASMCM PTM56660 0326 7124 11425 | MDX 1 +36 XR1 PT TO OPERAND FIELD PTM56665 0327 C32D 11426 | LD 3 SMSEC-X3 INITIALIZE FOR SYSTEM PTM56670 0328 D0EA 11427 | STO PSKEL-1 *MACRO READ PTM56675 0329 4C30 032E 11428 | BSC L PURG0,-Z BR IF SYST MACLIB DEFINED PTM56680 032B 4400 0306 11429 | BSI L A1QFG *SET Q FLAG OTHERWISE PTM56685 032D 70C2 11430 | MDX ENXT0 *AND IGNORE OP PTM56690 032E 11431 | PURG0 EQU * PTM56695 032E C1FF 11432 | LD 1 -1 FETCH COL 35 PTM56700 032F F0ED 11433 | EOR M1AAP TEST FOR APOSTROPHE PTM56705 0330 4C18 0334 11434 | BSC L PURA1,+- BR-APOSTROPHE PTM56710 0332 40D3 11435 | PURA4 BSI A1QFG PLACE Q FLAG PTM56715 0333 70BC 11436 | MDX ENXT0 PASS RCD PTM56720 0334 11437 | PURA1 EQU * PTM56725 0334 C100 11438 | PURA2 LD 1 0 PTM56730 0335 F0E7 11439 | EOR M1AAP TEST FOR APOSTROPHE PTM56735 0336 4C18 0340 11440 | BSC L PURA3,+- BR-APOSTROPHE PTM56740 0338 7101 11441 | MDX 1 1 INCR I/P PT PTM56745 0339 7401 031B 11442 | MDX L PURC2,1 INCR CHAR CNT PTM56750 033B 1000 11443 | NOP PTM56755 033C 74FF 031E 11444 | MDX L PURC1,-1 DECR CHAR CNT PTM56760 033E 70F5 11445 | MDX PURA2 CONT SCAN PTM56765 033F 70F2 11446 | MDX PURA4 SET ERROR FLAG PTM56770 0340 6680 031B 11447 | PURA3 LDX I2 PURC2 SET NAME LNG PTM56775 0342 6580 0238 11448 | LDX I1 RDBFR SET I/P PT PTM56780 0344 7124 11449 | MDX 1 +36 PTM56785 0345 7200 11450 | MDX 2 0 TEST FOR NO NAME PTM56790 0346 7001 11451 | MDX *+1 CONT IF NAME PTM56795 0347 70EA 11452 | MDX PURA4 PLACE ERROR FLAG,NO NAME PTM56800 0348 C100 11453 | PURA5 LD 1 0 FETCH CHAR PTM56805 0349 1008 11454 | SLA 8 PTM56810 034A 72FF 11455 | MDX 2 -1 DECR CHAR CNT PTM56815 034B 701A 11456 | MDX PURA7 SKIP IF COMPLETE PTM56820 034C C480 0353 11457 | LD I PURA6 FETCH RIGHTHAND CHAR PTM56825 034E 1888 11458 | SRT 8 PTM56830 034F 1010 11459 | SLA 16 CLEAR ACC PTM56835 0350 C100 11460 | LD 1 0 FETCH CHAR PTM56840 0351 1088 11461 | SLT 8 FETCH 2 CHARS PTM56845 0352 D400 02FA 11462 | STO L PMOP0 PTM56850 0353 11463 | PURA6 EQU *-1 PTM56855 0354 7401 0353 11464 | MDX L PURA6,1 INCR NAME BFR PT PTM56860 0356 7102 11465 | MDX 1 2 INCR I/P PT PTM56865 0357 72FF 11466 | MDX 2 -1 DECR CHAR CNT PTM56870 0358 70EF 11467 | MDX PURA5 CONT TO GET NAME PTM56875 0359 C8A0 11468 | LDD PMOP0 TEST FOR BLAMK PTM56880 035A 989D 11469 | SD A1900 *OPERAND FIELD PTM56885 035B 4C20 029B 11470 | BSC L PURG1,Z BR-NONBLANK FLD PTM56890 035D 18D0 11471 | RTE 16 PTM56895 035E 4C20 029B 11472 | BSC L PURG1,Z BR-NONBLANK FIELD PTM56900 0360 C09B 11473 | LD PMOP0+2 PTM56905 0361 909B 11474 | S A1903 PTM56910 0362 4418 0306 11475 | BSI L A1QFG,+- BR-BLANK FLD PTM56915 0364 4C00 029B 11476 | BSC L PURG1 CONT PURGE OPERATION PTM56920 0366 E901 11477 | PURA7 OR 1 1 GET NEXT CHAR PTM56925 0367 70EA 11478 | MDX PURA6-1 PTM56930 11479 | * PTM56935 0368 C3F4 11480 | SET LD 3 PASS-X3 DO NOT MODIFY IF PASS3 2-11 PTM56940 0369 4C28 038A 11481 | BSC L SET03,+Z BRANCH IF PASS 3 2-11 PTM56942 036B C0A3 11482 | LD A1912 TEST IF LABEL PRESENT 2-11 PTM56944 036C F115 11483 | EOR 1 21 2-11 PTM56946 036D 4C20 0375 11484 | BSC L SETST,Z BRANCH IF YES 2-11 PTM56948 036F C0AC 11485 | LD A1911 FLAG WITH SYNTAX ERROR 2-11 PTM56950 0370 4400 0701 11486 | SET01 BSI L ERFLG FLAG ERROR 2-11 PTM56952 0372 4400 074B 11487 | BSI L PALBL PASS LABEL 2-11 PTM56954 0374 7045 11488 | MDX SETRR EXIT SET ROUTINE 2-11 PTM56956 11489 | * 2-11 PTM56958 0375 7115 11490 | SETST MDX 1 21 POINT TO LABEL 2-11 PTM56960 0376 4400 083D 11491 | BSI L P9252 TEST IF VALID LABEL 2-11 PTM56962 0378 7003 11492 | MDX SET02 BRANCH - YES 2-11 PTM56964 0379 C001 11493 | LD SETLF FLAG WITH LABEL ERROR 2-11 PTM56966 037A 70F5 11494 | MDX SET01 2-11 PTM56968 11495 | * 2-11 PTM56970 037B 00D3 11496 | SETLF DC .L LABEL ERROR CONSTANT 2-11 PTM56972 11497 | * 2-11 PTM56975 037C 6202 11498 | SET02 LDX 2 2 2-11 PTM56977 037D C600 03BB 11499 | SET00 LD L2 RESK1-1 MOVE CODE TO SET PTM56980 037F D600 0912 11500 | STO L2 MULT-1 *VALUE IN SYMB TBL PTM56985 0381 72FF 11501 | MDX 2 -1 PTM56990 0382 70FA 11502 | MDX SET00 PTM56995 0383 6204 11503 | LDX 2 4 MODIFY LOAD LABEL 2-11 PTM56996 0384 C600 03E2 11504 | SET04 LD L2 SET2K-1 *TO CAUSE SEARCH OF 2-11 PTM56997 0386 D600 0744 11505 | STO L2 STLBL-3 *SYMBOL TABLE AND 2-11 PTM56998 0388 72FF 11506 | MDX 2 -1 *RETURN TO SET22 2-11 PTM56999 0389 70FA 11507 | MDX SET04 2-11 PTM57000 038A 7123 11508 | SET03 MDX 1 35 POINT TO OPERAND FIELD 2-11 PTM57002 038B 4400 04E1 11509 | BSI L SCAN SCAN AND EVALUATE OPERAND PTM57005 11510 | * PTM57010 038D 6580 0238 11511 | LDX I1 RDBFR RESTORE XR1 PTM57015 038F C3F4 11512 | LD 3 PASS-X3 PTM57020 0390 4C20 03A6 11513 | BSC L USL01,Z BR-PASS 2 OR TWO PASS MODE PTM57025 0392 C112 11514 | LD 1 +18 TEST COL 18 FOR U PTM57030 0393 F011 11515 | EOR USL02 PTM57035 0394 4C18 039A 11516 | BSC L USL03,+- BR-COL 18 U PTM57040 0396 C113 11517 | LD 1 +19 TEST COL 19 FOR U PTM57045 0397 F00D 11518 | EOR USL02 PTM57050 0398 4C20 03B3 11519 | BSC L USCON,Z BR-COL 18 OR 19 NOT U PTM57055 039A C3F3 11520 | USL03 LD 3 PSMDE-X3 PTM57060 039B 4C18 03A2 11521 | BSC L USL04,+- BR-NOT TWO PASS MODE PTM57065 039D 7401 0254 11522 | MDX L P2MEC,1 INCR TWO PASS MODE ERR PTM57070 039F 1000 11523 | NOP *CNT PTM57075 03A0 4400 0802 11524 | BSI L P9MVE PRINT RCD PTM57080 03A2 C002 11525 | USL04 LD USL02 SET U TO COL 33 PTM57085 03A3 D121 11526 | STO 1 33 PTM57090 03A4 700E 11527 | MDX USCON CONTINUE PTM57095 11528 | * PTM57100 03A5 00E4 11529 | USL02 DC .U EBCDIC PTM57105 03A6 C3F3 11530 | USL01 LD 3 PSMDE-X3 PTM57110 03A7 4C20 03EB 11531 | BSC L USL05,Z BR-TWO PASS MODE PTM57115 03A9 C121 11532 | LD 1 33 TEST FOR U FLAG PTM57120 03AA F0FA 11533 | EOR USL02 PTM57125 03AB 4C20 03B3 11534 | BSC L USCON,Z BR-NOT U FLAG PTM57130 03AD C400 030F 11535 | LD L A1912 RESET COL 33 TO BLANK PTM57135 03AF D121 11536 | STO 1 33 PTM57140 03B0 C0F4 11537 | LD USL02 PTM57145 03B1 4400 0701 11538 | BSI L ERFLG PLACE U FLAG PTM57150 11539 | * PTM57155 03B3 11540 | USCON EQU * PTM57160 03B3 C325 11541 | LD 3 VALUE-X3 SAVE VALUE OF SCAN PTM57165 03B4 D303 11542 | STO 3 LABVL-X3 PTM57170 03B5 C327 11543 | LD 3 RELSW-X3 SAVE RELOCATION BITS PTM57175 03B6 100E 11544 | SLA 14 PTM57180 03B7 D304 11545 | STO 3 LABRL-X3 PTM57185 03B8 4400 073A 11546 | SETRS BSI L LDLBL PLACE LABEL AND VALUE PTM57190 03BA 4C00 045D 11547 | SETRR BSC L BGASM CONT PROCESSING 2/11 PTM57195 11548 | * 2/11 PTM57200 11549 | * MODIFY ASSEMBLER TO STORE VALUE 2/11 PTM57205 11550 | * *RATHER THAN SET MULTIPLY DEFINED 2/11 PTM57210 11551 | * *BIT IN SYMBOL TABLE 2/11 PTM57215 11552 | * 2/11 PTM57220 03BC 4C00 03C0 11553 | RESK1 BSC L SET21 BRANCH BACK TO SET 2/11 PTM57225 11554 | * 2/11 PTM57230 11555 | * 2/11 PTM57235 11556 | * RESTORE SUBROUTINE TO SET 2/11 PTM57240 11557 | * *MULTIP LY DEFINED BIT 2/11 PTM57245 11558 | * *IN SYM BOL TABLE 2/11 PTM57250 11559 | * 2/11 PTM57255 03BE C1FF 11560 | RESK LD 1 -1 2-11 PTM57260 03BF E808 11561 | OR X P9320-P9334-2 2/11 PTM57265 11562 | * 2/11 PTM57270 11563 | * RETURN HERE FROM SYMBOL SEARCH ROUTINE 2/11 PTM57310 11564 | * 2/11 PTM57315 03C0 C303 11565 | SET21 LD 3 LABVL-X3 GET NEW LABEL VALUE 2/11 PTM57320 03C1 D1FE 11566 | STO 1 -2 SET IN SYM TABLE 2/11 PTM57325 03C2 C1FF 11567 | LD 1 -1 SET OLD REL IND BIT 2/11 PTM57330 03C3 E01E 11568 | AND SET1K KEEP ALL BUT BIT 1 2/11 PTM57335 03C4 EB04 11569 | OR 3 LABRL-X3 OR IN NEW REL INDR 2/11 PTM57340 03C5 D1FF 11570 | STO 1 -1 SAVE IN SYM TABLE 2/11 PTM57345 03C6 4C00 0916 11571 | BSC L MULT+3 RETURN TO SYM SEARCH 2/11 PTM57350 11572 | * 2/11 PTM57355 11573 | * ENTER H ERE FROM LOAD LABEL ROUTINE 2/11 PTM57360 11574 | * 2/11 PTM57365 03C8 4C18 0926 11575 | SET22 BSC L STADD,+- GO TO ADD SYM ON 2/11 PTM57370 11576 | * *PASS 1 ONLY 2/11 PTM57375 03CA 6C00 091F 11577 | STX L P9428 SET ADD (CHG) 2/11 PTM57380 03CC 4400 08C6 11578 | BSI L P9300 SEARCH FOR SYM 2/11 PTM57385 03CE 1000 11579 | NOP WILL SKIP 2/11 PTM57390 03CF 1010 11580 | SLA 16 2/11 PTM57395 03D0 D400 091F 11581 | STO L P9428 CLR ADD (CHG) SW 2/11 PTM57400 11582 | * 2/11 PTM57405 11583 | * RETURN HERE AFTER SYM TBL PROCESSED 2/11 PTM57410 11584 | * 2/11 PTM57415 03D2 6204 11585 | SET23 LDX 2 4 RESTORE LOAD LABEL 2/11 PTM57420 03D3 C600 03E6 11586 | LD L2 SET3K-1 2/11 PTM57421 03D5 D600 0744 11587 | STO L2 STLBL-3 2/11 PTM57425 03D7 72FF 11588 | MDX 2 -1 2/11 PTM57426 03D8 70FA 11589 | MDX SET23+1 2/11 PTM57430 03D9 6202 11590 | LDX 2 2 RESTORE SYM SEARCH 2/11 PTM57435 03DA C600 03BD 11591 | SET24 LD L2 RESK-1 * TO FLAG M ERRORS 2/11 PTM57436 03DC D600 0912 11592 | STO L2 MULT-1 2/11 PTM57440 03DE 72FF 11593 | MDX 2 -1 2/11 PTM57441 03DF 70FA 11594 | MDX SET24 2/11 PTM57442 03E0 4C00 0747 11595 | BSC L STLBL RETURN TO LOAD LABEL 2/11 PTM57445 11596 | * 2/11 PTM57446 11597 | * CONSTAN TS 2/11 PTM57447 11598 | * 2/11 PTM57450 03E2 BFFF 11599 | SET1K DC /BFFF MASK FOR REL IND 2/11 PTM57451 03E3 4C00 03C8 11600 | SET2K BSC L SET22 INST TO MODIFY 2/11 PTM57452 03E5 4C00 03D2 11601 | BSC L SET23 * LOAD LABEL 2/11 PTM57455 03E7 4C18 0926 11602 | SET3K BSC L STADD,+- INST TO 2/11 PTM57456 03E9 C303 11603 | LD 3 LABVL-X3 * RESTORE LOAD LABEL 2/11 PTM57460 03EA 7101 11604 | MDX 1 1 2/11 PTM57461 11605 | * 2/11 PTM57462 11606 | * 2/11 PTM57465 11607 | * 2/11 PTM57470 11608 | * 2/11 PTM57475 11609 | * 2/11 PTM57480 11610 | * 2/11 PTM57485 11611 | * PTM57490 03EB 7112 11612 | USL05 MDX 1 +18 PTM57495 03EC C100 11613 | LD 1 0 CC 18 = U PTM57500 03ED F0B7 11614 | EOR USL02 PTM57505 03EE 4820 11615 | BSC Z SKIP IF U PTM57510 03EF 7101 11616 | MDX 1 1 CC 19 = U PTM57515 03F0 C100 11617 | LD 1 0 PTM57520 03F1 F0B3 11618 | EOR USL02 PTM57525 03F2 4820 11619 | BSC Z PTM57530 03F3 70BF 11620 | MDX USCON BR-CC18,19 NOT U PTM57535 03F4 C400 030F 11621 | LD L A1912 U ALREADY COUNTED,PASS 1 PTM57540 03F6 D100 11622 | STO 1 0 *DO NOT COUNT IN PASS 2 PTM57545 03F7 74FF 0216 11623 | MDX L ERCNT,-1 PTM57550 03F9 1000 11624 | NOP MAY SKIP PTM57555 03FA 70B8 11625 | MDX USCON RETURN TO CALLER PTM57560 11626 | * PTM57565 11627 | * PROCESS A08 ERROR MSG CONDITIOM PTM57570 11628 | * *FROM MACRO PHASE 1 PTM57575 11629 | * PTM57580 03FB C33D 11630 | M1AA0 LD 3 SMAC0-X3 PTM57585 03FC 4C18 0401 11631 | BSC L M1AA4,+- BR-NOT STORED MACRO PTM57590 03FE C32D 11632 | LD 3 SMSEC-X3 PTM57595 03FF 4C08 0423 11633 | BSC L M1AA1,+ BR-SMAC LIBR UNDEFINED PTM57600 0401 C3F3 11634 | M1AA4 LD 3 PSMDE-X3 PTM57605 0402 4C20 0419 11635 | BSC L M1AA2,Z BR-TWO PASS MODE PTM57610 0404 7402 0213 11636 | M1AA5 MDX L ADCOW,2 INCR L.A.C. PTM57615 0406 1000 11637 | NOP PTM57620 0407 C3F4 11638 | LD 3 PASS-X3 PTM57625 0408 4C20 0413 11639 | BSC L M1AA6,Z BR-PASS TWO PTM57630 040A C400 0300 11640 | LD L A1906 SET OP CODE FLAG PTM57635 040C D122 11641 | STO 1 +34 PTM57640 040D 4400 0701 11642 | BSI L ERFLG PLACE FLAG PTM57645 040F 4400 073A 11643 | M1AA3 BSI L LDLBL PASS RCD PTM57650 0411 4C00 045D 11644 | BSC L BGASM ASM RCD PTM57655 0413 C400 030F 11645 | M1AA6 LD L A1912 RESET COL 34 TO BLANK PTM57660 0415 D122 11646 | STO 1 34 PTM57665 0416 C400 0300 11647 | LD L A1906 FETCH ERROR FLAG PTM57670 0418 70F4 11648 | MDX M1AA3-2 GO PLACE ERROR FLAG PTM57675 0419 C400 0300 11649 | M1AA2 LD L A1906 PTM57680 041B 4400 0701 11650 | BSI L ERFLG PLACE OP CODE ERR PTM57685 041D 4400 0802 11651 | BSI L P9MVE PRINT RCD IF TWO PASS MODE PTM57690 041F 7401 0254 11652 | MDX L P2MEC,1 INCR ERR CNT PTM57695 0421 1000 11653 | NOP MAY SKIP PTM57700 0422 70E1 11654 | MDX M1AA5 FETCH NEXT RCD PTM57705 0423 C11F 11655 | M1AA1 LD 1 +31 PRINT A08 MSG ONLY IF PTM57710 0424 F017 11656 | EOR M1AAB *OP CODE IS SMAC PTM57715 0425 4C20 0314 11657 | BSC L OFLAG,Z BR-OP CODE NOT SMAC PTM57720 0427 CC00 04AC 11658 | LDD L OPBUF PTM57725 0429 9810 11659 | SD MSMAC PTM57730 042A 4C20 0314 11660 | BSC L OFLAG,Z BR-OP CODE NOT SMAC PTM57735 042C 18D0 11661 | RTE 16 PTM57740 042D 4C20 0314 11662 | BSC L OFLAG,Z BR-OP CODE NOT SMAC PTM57745 042F C3F4 11663 | LD 3 PASS-X3 PTM57750 0430 4C18 0314 11664 | BSC L OFLAG,+- BYPASS A08 MSG IF PASS 1 PTM57755 0432 C805 11665 | LDD A1920 PR PARAM TO ACC,EXT PTM57760 0433 4400 0D97 11666 | BSI L P9472+3 PRINT ERR MSG PTM57765 0435 4C00 0314 11667 | BSC L OFLAG PASS RECORD PTM57770 11668 | * PTM57775 11669 | * CONSTANTS PTM57780 11670 | * PTM57785 0438 11671 | BSS E 0 FORCE EVEN ADDR PTM57790 0438 7001 11672 | A1920 DC /7001 WR FUNC CODE PTM57795 0439 1567 11673 | DC A1925 I/O AREA ADDR 2/11 PTM57800 11674 | * 2/11 PTM57805 11675 | * 2/11 PTM57810 11676 | * 2/11 PTM57815 11677 | * 2/11 PTM57820 11678 | * 2/11 PTM57825 043A 11679 | BSS E 0 FORCE EVEN ADDR PTM57830 043A E2D4 C1C3 11680 | MSMAC EBC .SMAC. EBCDIC 'SMAC' PTM57835 043C 0040 11681 | M1AAB DC . EBCDIC BLANK PTM57840 043D 11682 | BSS P9000-* PATCH 2/11 PTM57856 045A 0000 11683 | DC 0 2/11 PTM57857 045A 11684 | MP1AZ EQU *-1 PTM57860 *SBRKSLS EB 11685 | MACRO PHASE 1B - CONDITIONAL ASM PSEUDO OPS V2M08 PTM57865 MACRO PROCESSOR PHASE 1B 11687 | *************************************************** PTM57875 11688 | * * PTM57880 11689 | *STATUS-VERSION 2,MODIFICATION 8 * PTM57885 11690 | * * PTM57890 11691 | *FUNCTION/OPERATION- * PTM57895 11692 | * *MACRO PHASE 1B PROCESSES THE CONDITIONAL * PTM57900 11693 | * ASSEMBLY PSEUDO OPERATIONS. PROCESSING * PTM57905 11694 | * OCCURS IN PASS 1 ONLY IN ONE PASS MODE PTM57910 11695 | * *THE CONDITIONAL EXPRESSION IS CHECKED * PTM57915 11696 | * FOR VALIDITY AND SUBSEQUENTLY EVALUATED. * PTM57920 11697 | * *IF THE CONDITION IS FALSE,PROCESSING * PTM57925 11698 | * CONTINUES WITH THE NEXT RECORD. * PTM57930 11699 | * *IF THE CONDITION IS TRUE,AND THE OPERATION * PTM57935 11700 | * IS AIFB OR AGOB,A CHECK IS MADE TO INSURE * PTM57940 11701 | * THE OP OCCURS WITH A MACRO DEFINITION. * PTM57945 11702 | * IF SO,THE CURRENT MACRO PROTOTYPE IS READ * PTM57950 11703 | * FROM THE BEGINNING AND THE LABEL SEARCH * PTM57955 11704 | * IS PERFORMED. * PTM57960 11705 | * *IF THE CONITION IS TRUE,AND THE OPERATION * PTM57965 11706 | * IS AIF OR AGO,THE LABEL SEARCH BEGINS * PTM57970 11707 | * WITH THE NEXT RECORD. * PTM57975 11708 | * * PTM57980 11709 | *ENTRY POINT- * PTM57985 11710 | * *AIFIN-ENTRY FROM MACRO PHASE 1 * PTM57990 11711 | * * PTM57995 11712 | * * PTM58000 11713 | *INPUT- * PTM58005 11714 | * *RECORD IN INPUT BUFFER * PTM58010 11715 | * * PTM58015 11716 | *OUTPUT-SEE FUNCTION/OPERATION * PTM58020 11717 | * * PTM58025 11718 | *EXTERNAL REFERENCES- * PTM58030 11719 | * *SUBROUTINES- * PTM58035 11720 | * * BGASM * PTM58040 11721 | * * DISK1 * PTM58045 11722 | * * ERFLG * PTM58050 11723 | * * GETS2 * PTM58055 11724 | * * GETS5 * PTM58060 11725 | * * GETS6 * PTM58065 11726 | * * GETS7 * PTM58070 11727 | * * GETS8 * PTM58075 11728 | * * GTS8A * PTM58080 11729 | * * GTS12 * PTM58085 11730 | * * GTS13 * PTM58090 11731 | * * PALBL * PTM58095 11732 | * * RDCRD * PTM58100 11733 | * * SCAN * PTM58105 11734 | * *ASMCM- * PTM58110 11735 | * * PASS * PTM58115 11736 | * * RDBFR * PTM58120 11737 | * * VALUE * PTM58125 11738 | * *DCOM/COMMA- * PTM58130 11739 | * * $PHSE * PTM58135 11740 | * * PTM58140 11741 | *EXITS- * PTM58145 11742 | * *BGASM IN ALL CASES * PTM58150 11743 | * * PTM58155 11744 | *TABLES/WORK AREAS- * PTM58160 11745 | * *SKEL1 - MACRO PROTOTYPE BUFFER * PTM58165 11746 | * * PTM58170 11747 | *ATTRIBUTES-N/A * PTM58175 11748 | * * PTM58180 11749 | *NOTES-N/A * PTM58185 11750 | * * PTM58190 11751 | *************************************************** PTM58195 11752 | *************************************************** PTM58200 11753 | * MACRO PROCESSOR COMMUNICATIONS AREA * PTM58205 11754 | *************************************************** PTM58210 11755 | * * PTM58215 11756 | * THE FOLLOWING ADDRESSES ARE LOCATED * PTM58220 11757 | * *IN PHASE 3 OF THE MACRO PROCESSOR, * PTM58225 11758 | * *THE EXPANSION PHASE. * PTM58230 11759 | * * PTM58235 11760 | * DEEP PRESENT EXPANSION LEVEL * PTM58240 11761 | * SECAD CURRENT MACRO STARTING DISK ADDR * PTM58245 11762 | * MACCT MACRO TABLE POINTER * PTM58250 11763 | * MACTB MACRO TABLE STARTING ADDR * PTM58255 11764 | * SAVFD INFORMATION TBL START ADDR * PTM58260 11765 | * DEPTH MACRO NEST DEPTH LEVEL * PTM58265 11766 | * * PTM58270 11767 | * THE SKEL1 BFR OVERLAYS PART OF BASIC * PTM58275 11768 | * *ASSEMBLER. WHERE SKEL1 IS LOCATED IS * PTM58280 11769 | * *IS DETERMINED IN MACRO PHASE 3. * PTM58285 11770 | * * PTM58290 11771 | *************************************************** PTM58295 0280 11772 | ORG OVLAY PTM58300 0280 01D8 11773 | DC MP1BZ-MP1B0 WD CNT OF MACRO PH 1B PTM58305 0281 00EB 11774 | B190O DC /EB SLET ID OF MACRO PH 1B PTM58310 11775 | * PTM58315 11776 | * INTERPHASE BRANCH TABLE PTM58320 11777 | * *IF PRESENT,ALWAYS AT BEGINNING OF PTM58325 11778 | * * P9468 * PTM58330 11779 | * *OVERLAY AREA PTM58335 11780 | * PTM58340 0282 11781 | MP1B0 EQU * PTM58345 0282 4C00 04C1 11782 | BSC L GETS5 +2 FETCH PH 5 PTM58350 0284 4C00 04C3 11783 | BSC L GETS6 +4 FETCH PH 6 PTM58355 0286 4C00 04C5 11784 | BSC L GETS7 +6 FETCH PH 7 PTM58360 0288 4C00 04CA 11785 | BSC L GETS8 +8 FETCH PH 8 PTM58365 028A 4C00 04CC 11786 | BSC L GTS8A +10 FETCH PH 8A PTM58370 028C 4C00 04CE 11787 | BSC L GTS12 +12 FETCH PH 12 PTM58375 028E 4C00 04C7 11788 | BSC L GTS13 +14 FETCH MACRO PH 1 PTM58380 0290 4C00 04D0 11789 | BSC L GETS2 +16 FETCH PH 2 PTM58385 11790 | * PTM58390 11791 | * PTM58395 11792 | * ENTER MACRO PHASE 1B HERE PTM58400 11793 | * PTM58405 0292 11794 | AIFIN EQU * PTM58410 0292 C007 11795 | LD MAC1B GET PHASE ID 2/11 PTM58415 0293 D400 0078 11796 | STO L $PHSE PTM58420 11797 | * PTM58425 0295 C600 0297 11798 | LD L2 B1TB1 SET ENTRY FOR DESIRED PTM58430 0297 D001 11799 | STO *+1 *PSEUDO OPERATION PTM58435 0298 4C00 0000 11800 | BSC L *-* *AND BR TO SUBR PTM58440 029A 00EB 11801 | MAC1B DC /EB PHASE ID 2/11 PTM58441 11802 | * PTM58445 11803 | * BRANCH TBL BASED ON OP CODE PTM58450 11804 | * XR2 SET TO TBL DISPLACEMENT PTM58455 11805 | * *IN MACRO PHASE 1 PTM58460 11806 | * PTM58465 0297 11807 | B1TB1 EQU *-4 PTM58470 029B 02B0 11808 | DC AIF +4 BR ADDR FOR AIF OP PTM58475 029C 0343 11809 | DC AGOIN +5 BR ADDR FOR AGO OP PTM58480 029D 029F 11810 | DC AIFB +6 BR ADDR FOR AIFB OP PTM58485 029E 0340 11811 | DC AGOB +7 BR ADDR FOR AGOB OP PTM58490 11812 | * PTM58495 11813 | * PTM58500 11814 | * PROCESS AIFB PSEUDO OPERATION PTM58505 11815 | * PTM58510 029F C3F4 11816 | AIFB LD 3 PASS-X3 PTM58515 02A0 4C18 02AA 11817 | BSC L AIF1B,+- BR- PASS ONE PTM58520 02A2 6580 0238 11818 | LDX I1 RDBFR RESTORE XR1 PTM58525 02A4 C121 11819 | LD 1 +33 TEST FOR BLANK PTM58530 02A5 F400 033A 11820 | EOR L B1904 PTM58535 02A7 4C18 0352 11821 | BSC L AG010,+- PTM58540 02A9 7004 11822 | MDX AIF2B SKIP MACRO EXPANDER CHECK PTM58545 02AA 11823 | AIF1B EQU * PTM58550 02AA C400 07AF 11824 | LD L MACEX TEST FOR EXPANDER PH PTM58555 02AC 4C20 0352 11825 | BSC L AG010,Z BR IF OUTSIDE DEFINITION PTM58560 02AE 6871 11826 | AIF2B STX AIFBS SET SWITCH FOR AIFB PTM58565 02AF 7002 11827 | MDX AIF+2 BRANCH TO PROCESS AIFB PTM58570 11828 | * PTM58575 11829 | * PROCESS AIF PSEUDO OPERATION PTM58580 11830 | * PTM58585 02B0 1010 11831 | AIF SLA 16 SET AIF/AIFB SWITCH TO PTM58590 02B1 D06E 11832 | STO AIFBS *INDICATE AIF PTM58595 02B2 7123 11833 | MDX 1 +35 POINT TO COLUMN 35 PTM58600 02B3 C100 11834 | LD 1 0 GET COLUMN 35 PTM58605 02B4 F06A 11835 | EOR LPAR1 CHECK FOR LEFT PAREN PTM58610 02B5 4C20 02E8 11836 | BSC L ERR1A,Z IF NONE - SYNTAX ERROR PTM58615 11837 | * PTM58620 02B7 404F 11838 | BSI AIF00 SKIP BLANK COLUMNS PTM58625 02B8 4400 04E1 11839 | BSI L SCAN EVALUATE LEFT EXPRESSION PTM58630 02BA 4C20 02E8 11840 | BSC L ERR1A,Z BR IF TERMINATOR NONBLNK PTM58635 02BC 4400 0402 11841 | BSI L UFLAG CHECK FOR UNDEFINED SYMB PTM58640 11842 | * PTM58645 02BE 4048 11843 | BSI AIF00 SKIP BLANK COLUMNS PTM58650 02BF 6600 0240 11844 | LDX L2 A RESTORE XR2 PTM58655 02C1 C2FE 11845 | LD 2 VALUE-A VALUE FROM LAST SCAN PTM58660 02C2 D05F 11846 | STO LEFT SAVE IT PTM58665 02C3 6206 11847 | LDX 2 BLK-EQ TABLE WORD COUNT PTM58670 02C4 6700 0316 11848 | LDX L3 EQ ADDRESS OF CONDITION TABLE PTM58675 02C6 C100 11849 | AIF02 LD 1 0 CONDITION CODE ON CARD PTM58680 02C7 1008 11850 | SLA 8 LEFT-JUSTIFY PTM58685 02C8 E901 11851 | OR 1 1 OR IN SECOND CHARACTER PTM58690 02C9 9300 11852 | S 3 0 SUBTRACT TABLE ENTRY PTM58695 02CA 4C18 02D0 11853 | BSC L F0UND,+- BRANCH IF CODE IS FOUND PTM58700 11854 | * PTM58705 02CC 7301 11855 | MDX 3 1 BUMP TABLE POINTER PTM58710 02CD 72FF 11856 | MDX 2 -1 DECREMENT LOOP COUNTER PTM58715 02CE 70F7 11857 | MDX AIF02 LOOP UNTIL ALL IS CHECKED PTM58720 02CF 7018 11858 | MDX ERR1A FLAG S ERR AND EXIT PTM58725 11859 | * PTM58730 02D0 C600 0322 11860 | F0UND LD L2 CODE-1 PROPER BRANCH CODE PTM58735 02D2 D031 11861 | STO BRANC STORE INTO BRANCH WORD PTM58740 02D3 7101 11862 | MDX 1 1 BUMP COLUMN POINTER PTM58745 02D4 C101 11863 | LD 1 1 TEST FOR BLANK COL PTM58750 02D5 F046 11864 | EOR BLK PTM58755 02D6 4C20 02E8 11865 | BSC L ERR1A,Z BR-NO BLANK SEPARATOR PTM58760 02D8 402E 11866 | BSI AIF00 SKIP BLANK COLUMNS PTM58765 02D9 6901 11867 | STX 1 *+1 XR1 TO XR2 PTM58770 02DA 6600 0000 11868 | LDX L2 *-* =XR1 PTM58775 02DC C200 11869 | AIF03 LD 2 0 SHOULD BE RIGHT PAREN PTM58780 02DD F040 11870 | EOR RPAR2 CHECK FOR RIGHT PAREN PTM58785 02DE 4C18 02EC 11871 | BSC L DOSCN,+- BRANCH IF RIGHT PAREN PTM58790 11872 | * PTM58795 02E0 7201 11873 | MDX 2 1 BUMP COLUMN POINTER PTM58800 02E1 6A48 11874 | STX 2 AIFTP SAVE COLUMN POINTER PTM58805 02E2 C480 0238 11875 | LD I RDBFR PTM58810 02E4 8044 11876 | A CRDND CHECK FOR PTM58815 02E5 9044 11877 | S AIFTP *END OF RECORD PTM58820 02E6 4C20 02DC 11878 | BSC L AIF03,Z BRANCH IF NOT END OF CARD PTM58825 11879 | * PTM58830 02E8 C034 11880 | ERR1A LD SFLAG =.S PTM58835 02E9 4400 0701 11881 | ERR1B BSI L ERFLG FLAG SYNTAX ERROR PTM58840 02EB 7029 11882 | MDX EXIT2 EXIT PTM58845 11883 | * PTM58850 02EC C02F 11884 | DOSCN LD BLK =. PTM58855 02ED D200 11885 | STO 2 0 PLACE BLANK FOR RIGHT PAREN PTM58860 02EE 6A0C 11886 | STX 2 RESX1+1 SET UP XR1 RESTORE PTM58865 02EF 6700 0219 11887 | LDX L3 ASMCM RESTORE XR3 PTM58870 02F1 4400 04E1 11888 | BSI L SCAN EVALUATE RIGHT EXPRESSION PTM58875 02F3 4C20 02E8 11889 | BSC L ERR1A,Z BR IF TERMINATOR NONBLNK PTM58880 02F5 4400 0402 11890 | BSI L UFLAG CHECK FOR UNDEFINED SYMB PTM58885 02F7 6600 0240 11891 | LDX L2 A RESTORE XR2 PTM58890 02F9 C024 11892 | LD RPAR2 =.) PTM58895 02FA 6500 0000 11893 | RESX1 LDX L1 *-* RESTORE XR1 PTM58900 02FC D100 11894 | STO 1 0 RESTORE RIGHT PAREN PTM58905 02FD 7102 11895 | MDX 1 2 SKIP PAST COMMA PTM58910 02FE C1FF 11896 | LD 1 -1 SHOULD BE A COMMA PTM58915 02FF F02B 11897 | EOR C0MMA SEE IF IT IS PTM58920 0300 4C20 02E8 11898 | BSC L ERR1A,Z BRANCH IF NOT A COMMA PTM58925 11899 | * PTM58930 0302 C2FE 11900 | LD 2 VALUE-A RIGHT EXPRESSION VALUE PTM58935 0303 901E 11901 | S LEFT LEFT EXPRESSION VALUE PTM58940 0304 4C00 030F 11902 | BRANC BSC L AIFB5 EXIT IF EXPRESSION FALSE PTM58945 0306 703F 11903 | MDX AGO1 BRANCH IF TRUE PTM58950 11904 | * PTM58955 11905 | * SUBROUTINE TO SKIP OVER BLANKS PTM58960 11906 | * PTM58965 0307 0000 11907 | AIF00 DC *-* ENTRY POINT PTM58970 0308 7101 11908 | MDX 1 1 BUMP COLUMN POINTER PTM58975 0309 C100 11909 | LD 1 0 GET NEXT COLUMN PTM58980 030A F011 11910 | EOR BLK TEST FOR BLANK PTM58985 030B 4818 11911 | BSC +- SKIP IF COLUMN NOT BLANK PTM58990 030C 70FB 11912 | MDX AIF00+1 RETURN TO SKIP BLANKS PTM58995 030D 4C80 0307 11913 | BSC I AIF00 RETURN TO CALLER PTM59000 11914 | * PTM59005 030F C100 11915 | AIFB5 LD 1 0 PTM59010 0310 F00B 11916 | EOR BLK PTM59015 0311 4418 03F9 11917 | BSI L B1QFG,+- BLANK AFTER COMMA PTM59020 0313 1010 11918 | SLA 16 RESET PTM59025 0314 D00B 11919 | STO AIFBS FORWARD/BACK SWITCH PTM59030 0315 7026 11920 | EXIT2 MDX EXT2A GO GET NEXT RCD PTM59035 11921 | * PTM59040 11922 | * CONSTANTS PTM59045 11923 | * PTM59050 0316 C5D8 11924 | EQ EBC .EQ. EBC EQ PTM59055 0317 D5C5 11925 | NE EBC .NE. EBC NE PTM59060 0318 C7E3 11926 | GT EBC .GT. EBC GT PTM59065 0319 D3E3 11927 | LT EBC .LT. EBC LT PTM59070 031A D3C5 11928 | LE EBC .LE. EBC LE PTM59075 031B C7C5 11929 | GE EBC .GE. EBC GE PTM59080 031C 0040 11930 | BLK DC . EBC BLANK PTM59085 031D 00E2 11931 | SFLAG DC .S EBCDIC LETTER S PTM59090 031E 005D 11932 | RPAR2 DC .) EBCDIC RIGHT PAREN PTM59095 031F 004D 11933 | LPAR1 DC .( EBCDIC LEFT PAREN PTM59100 0320 0000 11934 | AIFBS DC *-* FORWARD/BACK SW 0=FORWARD PTM59105 0321 0001 11935 | AIFK1 DC 1 CONSTANT PTM59110 0322 0000 11936 | LEFT DC *-* LEFT EXPRESSION VALUE PTM59115 0323 4C30 11937 | CODE DC /4C30 GE BSC L X,-Z PTM59120 0324 4C28 11938 | DC /4C28 LE BSC L X,+Z PTM59125 0325 4C08 11939 | DC /4C08 LT BSC L X,+ PTM59130 0326 4C10 11940 | DC /4C10 GT BSC L X,- PTM59135 0327 4C18 11941 | DC /4C18 NE BSC L X,+- PTM59140 0328 4C20 11942 | DC /4C20 EQ BSC L X,Z PTM59145 0329 0047 11943 | CRDND DC 71 RECORD COLUMN DISP PTM59150 032A 0000 11944 | AIFTP DC *-* COLUMN BEING PROCESSED PTM59155 032B 006B 11945 | C0MMA DC ., EBCDIC COMMA PTM59160 032C 0000 11946 | DC *-* SAVE DEPTH CONSTANT HERE PTM59165 032D 11947 | AGONM BSS 5 AGO NAME BUFFER PTM59170 0332 00C5 11948 | END30 DC .E EBCDIC LETTER E PTM59175 0333 00D5 11949 | DC .N EBCDIC LETTER N PTM59180 0334 00C4 11950 | DC .D EBCDIC LETTER D PTM59185 0335 0040 11951 | DC . EBCDIC BLANK PTM59190 0336 0040 11952 | DC . EBCDIC BLANK PTM59195 0337 0070 11953 | B1902 DC 112 SLET ID OF MACRO PH 3 PTM59200 0C18 11954 | MACTB EQU P9468 MACRO EXPANDER NEST TBL PTM59205 0C46 11955 | SKEL1 EQU P9468+46 MACRO EXPANDER PROTOTYPE BFRPTM59210 0338 11956 | BSS E 0 FORCE EVEN ADDR PTM59215 0338 7000 11957 | B1903 DC /7000 DK READ FUNC CODE PTM59220 0339 0C46 11958 | DC SKEL1 I/O AREA ADDR PTM59225 033A 00D6 11959 | B1904 DC .O EBCDIC O,OP CODE FLAG PTM59230 033B 0000 11960 | AGOSW DC *-* ABOB SW PTM59235 11961 | * PTM59240 033C 4400 074B 11962 | EXT2A BSI L PALBL GET NEXT RCD PTM59245 033E 4C00 045D 11963 | BSC L BGASM BR TO OP CODE SEARCH PTM59250 11964 | * PTM59255 11965 | * PROCESS AGOB PSEUDO OPERATION PTM59260 11966 | * PTM59265 0340 68DF 11967 | AGOB STX AIFBS SET SWITCH FOR AGOB PTM59270 0341 68F9 11968 | STX AGOSW PTM59275 0342 7002 11969 | MDX AGOIN+2 BRANCH TO PROCESS AGOB PTM59280 11970 | * PTM59285 11971 | * PROCESS AGO PSEUDO OPERATION PTM59290 11972 | * PTM59295 0343 1010 11973 | AGOIN SLA 16 SET AGO/AGOB SWITCH TO PTM59300 0344 D0DB 11974 | STO AIFBS *INDICATE AGO PTM59305 0345 7123 11975 | AGO00 MDX 1 +35 POINT TO COLUMN 35 PTM59310 0346 62FB 11976 | AGO1 LDX 2 -5 INITIALIZE LOOP COUNTER PTM59315 0347 6700 032D 11977 | LDX L3 AGONM POINT TO AGO NAME BUFFER PTM59320 0349 C0D6 11978 | LD AIFBS FORWARD/BACK SWITCH PTM59325 034A 4C18 0390 11979 | BSC L AGO10,+- BRANCH IF AIF OR AGO PTM59330 11980 | * PTM59335 034C 1010 11981 | SLA 16 RESET SWITCH SO DEFINITION PTM59340 034D D0D2 11982 | STO AIFBS *WILL BE SEARCHED ONCE ONLY PTM59345 034E C400 07AF 11983 | LD L MACEX TEST FOR MACRO PH 3 IN CORE PTM59350 0350 4C18 0372 11984 | BSC L AG020,+- BR-WITHIN EXPANSION PTM59355 0352 C400 020D 11985 | AG010 LD L PASS PTM59360 0354 6908 11986 | STX 1 AIFS1 SAVE XR1 PTM59365 0355 6580 0238 11987 | LDX I1 RDBFR RESTORE XR1 PTM59370 0357 4C20 0363 11988 | BSC L AG015,Z BR-PASS TWO PTM59375 0359 C0E0 11989 | LD B1904 SET ERROR INDR FOR PASS PTM59380 035A D121 11990 | STO 1 +33 PTM59385 035B 7010 11991 | MDX AG016 BR TO PLACE ERROR PTM59390 035C 6500 0000 11992 | AG013 LDX L1 *-* RESTORE XR1 PTM59395 035D 11993 | AIFS1 EQU *-1 PTM59400 035E 7031 11994 | MDX AGO10 CONT SYNTAX CHECKING PTM59405 035F 7400 020C 11995 | AG014 MDX L PSMDE,0 TEST TWO PASS MODE PTM59410 0361 704E 11996 | MDX AGO23 PROCESS ON TWO PASS MODE PTM59415 0362 70B2 11997 | MDX EXIT2 BYPASS ON 1 PASS MODE PTM59420 0363 7400 020C 11998 | AG015 MDX L PSMDE,0 PTM59425 0365 7006 11999 | MDX AG016 BR-TWO PASS MODE PTM59430 0366 C121 12000 | LD 1 +33 TEST ERR INDR PTM59435 0367 F0B4 12001 | EOR BLK PTM59440 0368 4C18 035C 12002 | BSC L AG013,+- BR-ERROR NOT INDICATED PTM59445 036A C0B1 12003 | LD BLK RESET COL33 PTM59450 036B D121 12004 | STO 1 +33 PTM59455 036C C0CD 12005 | AG016 LD B1904 FETCH ERROR FLAG PTM59460 036D 7402 0213 12006 | MDX L ADCOW,2 INCR L.A.C. PTM59465 036F 1000 12007 | NOP (MAY SKIP) PTM59470 0370 4C00 02E9 12008 | BSC L ERR1B PLACE OP CODE ERR FLAG PTM59475 0372 12009 | AG020 EQU * PTM59480 0372 6A1C 12010 | STX 2 AIFB2 SAVE XR2 PTM59485 0373 6680 07DF 12011 | LDX I2 DEEP =PRESENT EXPANSION LEVEL PTM59490 0375 C600 07B1 12012 | LD L2 SECAD-1 GET THIS MACRO START ADDR PTM59495 0377 6680 07B1 12013 | LDX I2 MACCT GET START SECTOR ADDR PTM59500 0379 D600 0C16 12014 | STO L2 MACTB-2 STORE IN MAC TABLE PTM59505 037B F400 0C47 12015 | EOR L SKEL1+1 IS THIS SECTOR IN CORE PTM59510 037D 4C18 0386 12016 | BSC L AIFB1,+- SKIP DISK READ IF IT IS PTM59515 12017 | * PTM59520 037F C600 0C16 12018 | LD L2 MACTB-2 PUT SECTOR ADDRESS PTM59525 0381 D400 0C47 12019 | STO L SKEL1+1 INTO SKEL1 PTM59530 0383 C8B4 12020 | LDD B1903 DK READ PARAM TO ACC,EXT PTM59535 0384 4400 0275 12021 | BSI L DISK1 READ SKELETON SCTR PTM59540 0386 C600 0C17 12022 | AIFB1 LD L2 MACTB-1 GET START DISPLACEMENT PTM59545 0388 9098 12023 | S AIFK1 =1 ADJUST POINTER PTM59550 0389 D600 1504 12024 | STO L2 SAVFD-1 SAVE IN INFO TABLE PTM59555 038B 1010 12025 | SLA 16 INDICATE THIS TABLE PTM59560 038C D600 1505 12026 | STO L2 SAVFD ENTRY IS BEING USED PTM59565 038E 6600 0000 12027 | LDX L2 *-* RESTORE XR2 PTM59570 038F 12028 | AIFB2 EQU *-1 POINT TO XR2 SAVE WORD PTM59575 0390 C400 07B0 12029 | AGO10 LD L DEPTH GET DEPTH CONSTANT PTM59580 0392 D3FF 12030 | STO 3 -1 AND SAVE IT PTM59585 0393 C100 12031 | AGO2 LD 1 0 NAME CHARACTER PTM59590 0394 D300 12032 | STO 3 0 STORE IN NAME BUFFER PTM59595 0395 F086 12033 | EOR BLK TEST FOR BLANK PTM59600 0396 4C18 03B3 12034 | BSC L AGO22,+- BRANCH IF BLANK IS FOUND PTM59605 12035 | * PTM59610 0398 7101 12036 | MDX 1 1 POINT TO NEXT CHARACTER PTM59615 0399 7301 12037 | MDX 3 1 BUMP NAME BUFFER POINTER PTM59620 039A 7201 12038 | MDX 2 1 BUMP LOOP COUNTER PTM59625 039B 70F7 12039 | MDX AGO2 LOOP PTM59630 12040 | * PTM59635 039C C100 12041 | LD 1 0 SIXTH CHARACTER PTM59640 039D F400 031C 12042 | EOR L BLK =. SHOULD BE A BLANK PTM59645 039F 4C20 02E8 12043 | BSC L ERR1A,Z BRANCH IF IT ISN'T PTM59650 03A1 62FB 12044 | LDX 2 -5 TEST FOR BLANK SKIP PTM59655 03A2 C600 0332 12045 | NMCHK LD L2 AGONM+5 *TO LABEL PTM59660 03A4 F400 031C 12046 | EOR L BLK PTM59665 03A6 4C20 03AB 12047 | BSC L AGO20,Z BR-NOT BLANK LABEL PTM59670 03A8 7201 12048 | MDX 2 1 PTM59675 03A9 70F8 12049 | MDX NMCHK CONT LABEL CHECK PTM59680 12050 | * PTM59685 03AA 404E 12051 | BSI B1QFG PLACE Q FLAG PTM59690 12052 | * PTM59695 03AB 12053 | AGO20 EQU * PTM59700 03AB 6700 0219 12054 | AGO21 LDX L3 ASMCM RESTORE XR3 PTM59705 03AD 7400 020D 12055 | MDX L PASS,0 SKIP IF PASS 1 PTM59710 03AF 70AF 12056 | MDX AG014 EXIT IF PASS 2 PTM59715 03B0 4400 074B 12057 | AGO23 BSI L PALBL PASS LABEL/READ CARD PTM59720 03B2 700D 12058 | MDX AGO3 GO CHECK FOR AGO NAME PTM59725 12059 | * PTM59730 03B3 C100 12060 | AGO22 LD 1 0 =. PTM59735 03B4 D300 12061 | STO 3 0 FILL OUT BUFFER WITH BLANKS PTM59740 03B5 7301 12062 | MDX 3 1 BUMP NAME BUFFER POINTER PTM59745 03B6 7201 12063 | MDX 2 1 BUMP LOOP COUNTER PTM59750 03B7 70FC 12064 | MDX AGO22+1 LOOP TO FILL BLANKS PTM59755 03B8 70E8 12065 | MDX NMCHK-1 GO READ NEXT CARD PTM59760 12066 | * PTM59765 03B9 4400 025F 12067 | AGO4 BSI L LDXRS RESTORE XR1 AND XR3 PTM59770 03BB 4400 07A8 12068 | BSI L RDCRD READ A CARD PTM59775 03BD C31F 12069 | LD 3 RDBFR-X3 I/P BFR ADDR TO ACC PTM59780 03BE 4480 01FF 12070 | BSI I CVADR CONVERT LAST RCD TO EBC PTM59785 03C0 62FB 12071 | AGO3 LDX 2 -5 INITIALIZE LOOP COUNTER PTM59790 03C1 7115 12072 | MDX 1 +21 POINT TO COLUMN 21 PTM59795 03C2 C100 12073 | LD 1 0 TEST FOR * IN COL 21 PTM59800 03C3 F016 12074 | EOR AIFAS PTM59805 03C4 4C18 03B9 12075 | BSC L AGO4,+- BR-* IN COL 21 PTM59810 03C6 6700 032D 12076 | LDX L3 AGONM POINT TO AGO NAME BUFFER PTM59815 03C8 C400 07B0 12077 | LD L DEPTH GET DEPTH CONSTANT PTM59820 03CA F3FF 12078 | EOR 3 -1 COMPARE WITH SAVED CONSTANT PTM59825 03CB 4C20 03D5 12079 | BSC L BRCON,Z BRANCH IF NO MATCH PTM59830 12080 | * PTM59835 03CD C300 12081 | AGO5 LD 3 0 BUFFER CHARACTER PTM59840 03CE F100 12082 | EOR 1 0 LABEL FIELD CHARACTER PTM59845 03CF 4C20 03DB 12083 | BSC L AGO41,Z BRANCH IF NO MATCH PTM59850 12084 | * PTM59855 03D1 7101 12085 | MDX 1 1 BUMP COLUMN POINTER PTM59860 03D2 7301 12086 | MDX 3 1 AGO NAME BUFFER POINTER PTM59865 03D3 7201 12087 | MDX 2 1 BUMP LOOP COUNTER PTM59870 03D4 70F8 12088 | MDX AGO5 TEST ANOTHER CHARACTER PTM59875 03D5 4400 025F 12089 | BRCON BSI L LDXRS RESTORE XR1 AND XR3 PTM59880 03D7 4C00 045D 12090 | BSC L BGASM LABEL COMPARES,PROCESS RCD PTM59885 12091 | * PTM59890 12092 | * CONSTANTS PTM59895 12093 | * PTM59900 03D9 00D8 12094 | B1Q00 DC .Q EBCDIC Q PTM59905 03DA 005C 12095 | AIFAS DC .* EBCDIC ASTERISK PTM59910 12096 | * PTM59915 03DB 62FB 12097 | AGO41 LDX 2 -5 INITIALIZE LOOP COUNTER PTM59920 03DC 63FB 12098 | LDX 3 -5 PTM59925 03DD 7680 0238 12099 | MDX I2 RDBFR POINT TO I/P BFR PTM59930 03DF 1000 12100 | NOP SKIP PTM59935 03E0 C220 12101 | AGO42 LD 2 +32 FETCH OP CODE PTM59940 03E1 F700 0337 12102 | EOR L3 END30+5 CHECK FOR END STATEMENT PTM59945 03E3 4C20 03B9 12103 | BSC L AGO4,Z OK IF NO COMPARE PTM59950 12104 | * PTM59955 03E5 7201 12105 | MDX 2 1 INCR TABLE PT PTM59960 03E6 1000 12106 | NOP (MAY SKIP) PTM59965 03E7 7301 12107 | MDX 3 1 BUMP LOOP COUNTER PTM59970 03E8 70F7 12108 | MDX AGO42 TEST ANOTHER CHAR PTM59975 03E9 C400 020C 12109 | LD L PSMDE PTM59980 03EB 4C18 03F4 12110 | BSC L ENDQ,+- BR-ONE PASS MODE PTM59985 03ED 7401 027C 12111 | MDX L P2MWC,1 INCR TWO PASS MODE PTM59990 03EF 1000 12112 | NOP *WARNING CNT PTM59995 03F0 4008 12113 | BSI B1QFG SET Q FLAG PTM60000 03F1 4400 0802 12114 | BSI L P9MVE PRINT RECORD PTM60005 03F3 70E1 12115 | MDX BRCON PROCESS RCD PTM60010 03F4 12116 | ENDQ EQU * PTM60015 03F4 6580 0238 12117 | LDX I1 RDBFR RESTORE XR1 PTM60020 03F6 C002 12118 | LD B1QFG SET Q FLAG PTM60025 03F7 D121 12119 | STO 1 +33 PTM60030 03F8 70DC 12120 | MDX BRCON PROCESS END CARD PTM60035 12121 | * PTM60040 12122 | * PROCESS Q FLAG PTM60045 12123 | * PTM60050 03F9 0000 12124 | B1QFG DC *-* ENTRY PT PTM60055 03FA C0FE 12125 | LD B1QFG SET RETURN ADDR PTM60060 03FB D400 0701 12126 | STO L P9202 PTM60065 03FD 7439 070E 12127 | MDX L ERADD,MCOM5-ERCNT PT TO WARN CNT PTM60070 03FF C0D9 12128 | LD B1Q00 FETCH Q FLAG PTM60075 0400 4C00 0706 12129 | BSC L FLGCO JOIN ERFLG SUBR PTM60080 12130 | * PTM60085 12131 | * PROCESS U FLAG PTM60090 12132 | * PTM60095 0402 0000 12133 | UFLAG DC *-* ENTRY POINT PTM60100 0403 691E 12134 | STX 1 UFL01 SAVE XR1 PTM60105 0404 4400 025F 12135 | BSI L LDXRS RESTORE XR1 AND XR3 PTM60110 0406 C3F4 12136 | LD 3 PASS-X3 PTM60115 0407 4C20 0427 12137 | BSC L UFL02,Z BR-PASS TWO OR TWO PASS MODEPTM60120 0409 C112 12138 | LD 1 +18 TEST COL 18 FOR U PTM60125 040A F01B 12139 | EOR UFL03 PTM60130 040B 4C18 0411 12140 | BSC L UFL04,+- BR-COL 18 U PTM60135 040D C113 12141 | LD 1 +19 TEST COL 19 FOR U PTM60140 040E F017 12142 | EOR UFL03 PTM60145 040F 4C20 0421 12143 | BSC L UFL05,Z BR-COL 18 OR 19 NOT U PTM60150 0411 C3F3 12144 | UFL04 LD 3 PSMDE-X3 PTM60155 0412 4C18 041F 12145 | BSC L UFL06,+- BR-NOT TWO PASS MODE PTM60160 0414 C010 12146 | LD UPRS1 PTM60165 0415 4C20 0421 12147 | BSC L UFL05,Z BR-ALREADY PRINTED RCD PTM60170 0417 8400 0321 12148 | A L AIFK1 SET PRINT SW PTM60175 0419 D00B 12149 | STO UPRS1 PTM60180 041A 7401 0254 12150 | MDX L P2MEC,1 INCR TWO PASS MODE PTM60185 041C 1000 12151 | NOP *ERR CNT PTM60190 041D 4400 0802 12152 | BSI L P9MVE PRINT RCD PTM60195 041F C006 12153 | UFL06 LD UFL03 SET U TO COL 33 PTM60200 0420 D121 12154 | STO 1 +33 PTM60205 0421 6500 0000 12155 | UFL05 LDX L1 *-* RESTORE XR1 PTM60210 0422 12156 | UFL01 EQU *-1 PTM60215 0423 4C80 0402 12157 | BSC I UFLAG RETURN TO CALLER PTM60220 12158 | * PTM60225 0425 0000 12159 | UPRS1 DC *-* U FLAG PRINT SW PTM60230 0426 00E4 12160 | UFL03 DC .U EBCDIC U PTM60235 12161 | * PTM60240 0427 C3F3 12162 | UFL02 LD 3 PSMDE-X3 PTM60245 0428 4C20 0435 12163 | BSC L UFL07,Z BR-TWO PASS MODE PTM60250 042A C121 12164 | LD 1 33 TEST FOR U FLAG PTM60255 042B F0FA 12165 | EOR UFL03 PTM60260 042C 4C20 0421 12166 | BSC L UFL05,Z BR-NOT U FLAG PTM60265 042E C400 031C 12167 | LD L BLK RESET COL 33 TO BLANK PTM60270 0430 D121 12168 | STO 1 33 PTM60275 0431 C0F4 12169 | LD UFL03 PTM60280 0432 4400 0701 12170 | BSI L ERFLG PLACE U FLAG PTM60285 0434 70EC 12171 | MDX UFL05 RETURN TO CALLER PTM60290 0435 7112 12172 | UFL07 MDX 1 +18 PTM60295 0436 C100 12173 | LD 1 0 CC 18 = U PTM60300 0437 F0EE 12174 | EOR UFL03 PTM60305 0438 4820 12175 | BSC Z SKIP IF U PTM60310 0439 7101 12176 | MDX 1 1 CC 19 = U PTM60315 043A C100 12177 | LD 1 0 PTM59 PTM60320 043B F0EA 12178 | EOR UFL03 PTM60325 043C 4820 12179 | BSC Z PTM60330 043D 70E3 12180 | MDX UFL05 BR-CC 18,19 NOT U PTM60335 043E C400 031C 12181 | LD L BLK U ALREADY COUNTED,PASS 1 PTM60340 0440 D100 12182 | STO 1 0 *DO NOT COUNT IN PASS 2 PTM60345 0441 74FF 0216 12183 | MDX L ERCNT,-1 PTM60350 0443 1000 12184 | NOP PTM60355 0444 70DC 12185 | MDX UFL05 RETURN TO CALLER PTM60360 12186 | * PTM60365 0445 12187 | BSS P9000-* PATCH AREA 2/11 PTM60370 045A 0000 12188 | MP1BZ DC 0 END OF MACRO PH 1B PTM60375 *SBRKSLS EC 12189 | ASM MACRO PHASE 2 - MACRO DEFINITION V2M08 PTM60380 MACRO PROCESSOR PHASE 2 - DEFINITION 12191 | *************************************************** PTM60390 12192 | * * PTM60395 12193 | *STATUS - VERSION 2, MODIFICATION 11 * PTM60400 12194 | * * PTM60405 12195 | *FUNCTION/OPERATION- * PTM60410 12196 | * *MACRO PHASE 2 INITIALIZES MACRO DEFINITION * PTM60415 12197 | * AND RESTORES THE BASIC ASSEMBLER AT THE END * PTM60420 12198 | * OF DEFINITION PROCESSING. * PTM60425 12199 | * *DEFINITION INITIALIZATION CONSISTS OF THE * PTM60430 12200 | * FOLLOWING 4 STEPS. * PTM60435 12201 | * * LOAD PHASE 2B IN CORE,OVERLAYING PART * PTM60440 12202 | * OF ASSEMBLER PHASE 9. * PTM60445 12203 | * * PLACE MACRO NAME IN DISK PROTOTYPE * PTM60450 12204 | * BUFFER. * PTM60455 12205 | * * SCAN PROTOTYPE STATEMENT FOR PARAMETER * PTM60460 12206 | * NAMES,PLACING NAMES IN PARAMETER BUFFER.* PTM60465 12207 | * * LOAD MACRO PHASE 2A INTO OVERLAY AREA * PTM60470 12208 | * AND PASS CONTROL TO IT. * PTM60475 12209 | * *FOLLOWING MACRO DEFINITION PROCESSING,CONTROL* PTM60480 12210 | * IS RETURNED TO MACRO PHASE 2 TO PLACE THE * PTM60485 12211 | * END OF LIBRARY INDR,WRITE THE PROTOTYPE * PTM60490 12212 | * SCTR TO DISK,REFRESH ASM PHASE 9,AND RETURN * PTM60495 12213 | * CONTROL TO PHASE 9 TO CONTINUE THE ASSEMBLY. * PTM60500 12214 | * * PTM60520 12215 | *ENTRY POINTS- * PTM60525 12216 | * *M2010 - MACRO DEFINITION INITIALIZATION * PTM60530 12217 | * ENTER FROM MACRO PHASE 1 * PTM60535 12218 | * *ELIB - EXIT MACRO DEFINITION PHASE * PTM60540 12219 | * ENTER FROM MACRO PHASE 2A * PTM60545 12220 | * *ELIB1 - EXIT MACRO EXPANSION PHASE * PTM60550 12221 | * ENTER FROM MACRO PHASE 3B * PTM60555 12222 | * * PTM60570 12223 | *INPUT- * PTM60575 12224 | * *MACRO PROTOTYPE STATEMENT IN INPUT BFR. * PTM60580 12225 | * * PTM60585 12226 | *OUTPUT-N/A * PTM60590 12227 | * * PTM60595 12228 | *EXTERNAL REFERENCES- * PTM60600 12229 | * *SUBROUTINES- * PTM60605 12230 | * * BGASM * PTM60610 12231 | * * DISK1 * PTM60615 12232 | * * GETER * PTM60620 12233 | * * GETS2 * PTM60625 12234 | * * GETS5 * PTM60630 12235 | * * GETS6 * PTM60635 12236 | * * GETS7 * PTM60640 12237 | * * GETS8 * PTM60645 12238 | * * GTS8A * PTM60650 12239 | * * GTS12 * PTM60655 12240 | * * LDXRS * PTM60660 12241 | * * PALBL * PTM60665 12242 | * * P0130 * PTM60670 12243 | * * P9227 * PTM60675 12244 | * * RDBFR * PTM60680 12245 | * *THE FOLLOWING ENTRY POINTS TO MACRO PHASE * PTM60685 12246 | * 2B ARE USED BY MACRO PHASE 2. * PTM60690 12247 | * * DKWRT * PTM60695 12248 | * * M2CSN * PTM60700 12249 | * * WRSKL * PTM60705 12250 | * *ASMCM- * PTM60710 12251 | * * MCOM2 * PTM60715 12252 | * * MCOM3 * PTM60720 12253 | * * MCOM4 * PTM60725 12254 | * * MCOM9 * PTM60730 12255 | * * SMAC0 * PTM60735 12256 | * * SMSEC * PTM60740 12257 | * *DCOM/COMMA- * PTM60745 12258 | * * $EXIT * PTM60750 12259 | * * $PHSE * PTM60755 12260 | * * PTM60760 12261 | *EXITS- * PTM60765 12262 | * *OVLAY+18 - BEGIN MACRO DEFINITION PROCESS * PTM60770 12263 | * *BGASM - END MACRO DEFINITION,CONT ASM * PTM60775 12264 | * *$EXIT - TERMINATE ASSEMBLY * PTM60780 12265 | * * PTM60785 12266 | *TABLES/WORK AREAS- * PTM60790 12267 | * *BUFF - PARAMETER NAME BUFFER * PTM60795 12268 | * *SKEL0(SKEL2) - MACRO PROTOTYPE BUFFER * PTM60800 12269 | * BEGINS AT DEFSK+2 * PTM60805 12270 | * * PTM60810 12271 | * * PTM60815 12272 | *ATTRIBUTES-N/A * PTM60820 12273 | * * PTM60825 12274 | *NOTES- * PTM60830 12275 | * *REFERENCES LOCATIONS IN MACRO PHASES 2A * PTM60835 12276 | * AND 2B. * PTM60840 12277 | * *PATCH FOR THIS PHASE IS INCLUDED IN THE * PTM60845 12278 | * GENERAL PATCH AREA AT THE END OF MACRO * PTM60850 12279 | * PH 2B. * PTM60855 12280 | * * PTM60860 12281 | *************************************************** PTM60865 0280 12282 | ORG OVLAY PTM60870 0280 01C9 12283 | DC MP20Z-MP200 WD CNT OF MACRO PH 2 PTM60875 0281 FF14 12284 | DC -/EC SLET ID OF MACRO PH 2 PTM60880 0282 018E 12285 | M2000 DC M2800-M2000 ADDR OF SLET TBL PTM60885 0283 000F 12286 | DC 15 NO. OF SLET ENTRIES 2-11 PTM60890 0282 12287 | ORG *-2 PTM60895 05A0 12288 | BUFF EQU DEFSK+322 PARAMETER NAME BFR PTM60900 0460 12289 | SKEL2 EQU DEFSK+2 START ADDR OF SKEL0 BFR PTM60905 12290 | *************************************************** PTM60910 12291 | * NOTE - SRT2B MUST BE EVEN ADDRESS PTM60915 05DC 12292 | SRT2B EQU DEFSK+382 LD ADDR OF MACRO PH 2B PTM60920 12293 | *************************************************** PTM60925 12294 | * PTM60930 12295 | * INTERPHASE BRANCH TABLE PTM60935 12296 | * *IF PRESENT,ALWAYS AT BEGINNING OF PTM60940 12297 | * *OVERLAY AREA PTM60945 12298 | * PTM60950 0282 4C00 04C1 12299 | MP200 BSC L GETS5 +2 FETCH PH 5 PTM60955 0284 4C00 04C3 12300 | BSC L GETS6 +4 FETCH PH 6 PTM60960 0286 4C00 04C5 12301 | BSC L GETS7 +6 FETCH PH 7 PTM60965 0288 4C00 04CA 12302 | BSC L GETS8 +8 FETCH PH 8 PTM60970 028A 4C00 04CC 12303 | BSC L GTS8A +10 FETCH PH 8A PTM60975 028C 4C00 04CE 12304 | BSC L GTS12 +12 FETCH PH 12 PTM60980 028E 4C00 04C7 12305 | BSC L GTS13 +14 FETCH MACRO PH 1 PTM60985 0290 4C00 04D0 12306 | BSC L GETS2 +16 FETCH PH 2 PTM60990 12307 | * PTM60995 12308 | * ENTER MACRO PHASE 2 HERE PTM61000 12309 | * PTM61005 0292 C03A 12310 | M2010 LD M2900 SET PH ID NUMBER PTM61010 0293 D400 0078 12311 | STO L $PHSE PTM61015 0295 40C9 12312 | BSI LDXRS XR1 TO I/P BFR,XR3 TO ASMCM PTM61020 12313 | * PTM61025 12314 | * LOAD MACRO PHASE 2B OVER PART OF PHASE 9 PTM61030 12315 | * PTM61035 0296 CC00 041A 12316 | LDD L M2820+2 GET WD CNT,SCTR ADDR PH 2B PTM61040 0298 DC00 05DC 12317 | STD L SRT2B INITIALIZE PH 2B AREA PTM61045 029A C833 12318 | LDD M2901 DK READ PARAM TO ACC,EXT PTM61050 029B 435C 12319 | BSI 3 DISK1-X3 LOAD MACRO PH 2B PTM61055 12320 | * PTM61060 12321 | * CLEAR BUFF AND PLACE MACRO NAME PTM61065 12322 | * PTM61070 029C 613C 12323 | MCSRT LDX 1 60 SET LOOP CTR TO BUFF SIZE PTM61075 029D 1010 12324 | SLA 16 CLEAR PARAM LIST PTM61080 029E D500 059F 12325 | MCCLR STO L1 BUFF-1 *BFR TO ZERO PTM61085 02A0 71FF 12326 | MDX 1 -1 DECR LOOP CTR PTM61090 02A1 70FC 12327 | MDX MCCLR CONT CLEARING BUFF PTM61095 02A2 D400 0690 12328 | STO L CNT2B CLEAR CTR IN PH 2B PTM61100 02A4 6580 0238 12329 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM61105 02A6 7115 12330 | MDX 1 +21 XR1 POINTS TO COL 21 PTM61110 12331 | * PTM61115 12332 | * HOUSEKEEP SKELETON SECTOR CHAIN,CONCAT WORDS PTM61120 12333 | * PTM61125 02A7 6600 0460 12334 | LDX L2 SKEL2 XR2 PT TO SKELETON BFR PTM61130 02A9 7680 0253 12335 | MDX I2 MCOM9 INCR BY DISPLACEMENT PTM61135 02AB C32D 12336 | LD 3 SMSEC-X3 FETCH SYST MACLIB ADDR PTM61140 02AC 7400 0256 12337 | MDX L SMAC0,0 SKIP IF TEMP MACRO PTM61145 02AE C2FD 12338 | LD 2 -3 OTHERWISE,FETCH CONCAT WD PTM61150 02AF D400 068C 12339 | STO L TIESA SAVE IN PH 2B PTM61155 02B1 C2FF 12340 | LD 2 -1 SAVE CONCATENATED PTM61160 02B2 18D0 12341 | RTE 16 *LIBRARY NAME PTM61165 02B3 C2FE 12342 | LD 2 -2 PTM61170 02B4 DC00 068A 12343 | STD L TIESA-2 PTM61175 02B6 1010 12344 | SLA 16 CLEAR CURRENT CHAIN WD PTM61180 02B7 D2FF 12345 | STO 2 -1 PTM61185 12346 | * PTM61190 12347 | * FETCH MACRO NAME,PLACE IN PROTOTYPE PTM61195 12348 | * PTM61200 02B8 CB33 12349 | LDD 3 MCOM2-X3 FETCH FIRST TWO WORDS PTM61205 02B9 D2FC 12350 | STO 2 -4 *OF MACRO NAME AND PTM61210 02BA 18D0 12351 | RTE 16 *SAVE IN SKELETON SCTR PTM61215 02BB D2FD 12352 | STO 2 -3 PTM61220 02BC C335 12353 | LD 3 MCOM4-X3 FETCH 3RD WD OF NAME PTM61225 02BD D2FE 12354 | STO 2 -2 *AND SAVE PTM61230 02BE 1010 12355 | SLA 16 CLEAR SWITCH PTM61235 02BF D335 12356 | STO 3 MCOM4-X3 PTM61240 12357 | * PTM61245 12358 | * PARAMETER SCAN BEGINS HERE PTM61250 12359 | * PTM61255 02C0 C00F 12360 | M2020 LD M29O2 SET SCAN RETURN PTM61260 02C1 D400 0360 12361 | STO L MCS1+1 *FOR FIRST PARAM PTM61265 02C3 4C00 0353 12362 | BSC L STSCN SCAN FOR PARAM PTM61270 12363 | * PTM61275 02C5 6580 0238 12364 | M2030 LDX I1 RDBFR RESTORE XR1 TO POINT PTM61280 02C7 7122 12365 | MDX 1 +34 *TO COL. 34 OF I/P BFR PTM61285 02C8 C008 12366 | LD M2903 SET SCAN RETURN PTM61290 02C9 D400 0360 12367 | STO L MCS1+1 *FOR COMMA TERMINATOR PTM61295 02CB 4C00 037E 12368 | BSC L MSCN1 PTM61300 12369 | * PTM61305 12370 | * CONSTANTS PTM61310 12371 | * PTM61315 02CD 12372 | ELIBT EQU * TEMP SAVE AREA PTM61320 02CD 00EC 12373 | M2900 DC /EC SLET ID OF MACRO PH 2 PTM61325 0450 12374 | DISP1 EQU /450 PTM61330 02CE 12375 | BSS E 0 FORCE EVEN ADDR PTM61335 02CE 7000 12376 | M2901 DC /7000 DK READ FUNC CODE PTM61340 02CF 05DC 12377 | DC SRT2B I/O AREA ADDR PTM61345 02D0 02C5 12378 | M29O2 DC M2030 ADDR CONSTANT PTM61350 02D1 0387 12379 | M2903 DC MSCN ADDR CONSTANT PTM61355 12380 | * PTM61360 12381 | * PTM61365 12382 | * PLACE END OF LIBRARY INDR,WRITE SCTR TO PTM61370 12383 | * *DISK PTM61375 12384 | * PTM61380 02D2 12385 | ELIB EQU * PTM61385 02D2 74FF 0078 12386 | MDX L $PHSE,-1 SET PH ID /EC 2-10 PTM61390 12387 | * 2-10 PTM61395 02D4 6A7B 12388 | STX 2 DELTA SAVE LIBRARY SCTR DISP PTM61400 02D5 C07A 12389 | LD DELTA PTM61405 02D6 906F 12390 | S M2906 TEST IF END LIBRARY NAME PTM61410 02D7 4410 060C 12391 | BSI L WRSKL,- *WILL FIT-WRITE SCTR IF NOT PTM61415 02D9 C400 0691 12392 | LD L MEND SET FE00 NAME PTM61420 02DB D600 0460 12393 | STO L2 SKEL2 PTM61425 02DD C400 068C 12394 | LD L TIESA SET CONCATENATOR WD PTM61430 02DF D600 0461 12395 | STO L2 SKEL2+1 PTM61435 02E1 CC00 068A 12396 | LDD L TIESA-2 RESTORE CONCATENATED PTM61440 02E3 D600 0462 12397 | STO L2 SKEL2+2 *LIBRARY NAME PTM61445 02E5 18D0 12398 | RTE 16 PTM61450 02E6 D600 0463 12399 | STO L2 SKEL2+3 PTM61455 02E8 6780 068E 12400 | LDX I3 POINT PTM61460 02EA C065 12401 | LD DELTA ADJUST DELTA PTM61465 02EB EF00 045F 12402 | OR L3 SKEL2-1 PTM61470 02ED D700 045F 12403 | STO L3 SKEL2-1 PTM61475 02EF 4400 0635 12404 | BSI L DKWRT WRITE SCTR TO DISK PTM61480 02F1 6600 0450 12405 | LDX L2 DISP1 SAVE CODE-SNEAKY PTM61485 02F3 4400 025F 12406 | BSI L LDXRS RESOTRE XR1 AND XR3 PTM61490 02F5 C01B 12407 | LD M2PL2 LD MACRO PLUS INDR PTM61495 02F6 7400 07AF 12408 | MDX L MACEX,0 TEST FOR MACRO EXPANSION PTM61500 02F8 7001 12409 | MDX *+1 SKIP-NOT MACRO EXPANSION PTM61505 02F9 D148 12410 | STO 1 +72 STORE MACRO & INDR PTM61510 12411 | * PTM61515 12412 | * UPDATE LIBRARY HEADER IF SMAC PTM61520 12413 | * PTM61525 02FA C33D 12414 | LD 3 SMAC0-X3 PTM61530 02FB 4C18 0314 12415 | BSC L REST0,+- BR NOT SYSTEM MACRO PTM61535 02FD C20F 12416 | LD 2 SKEL2-1-DISP1 SAVE SCTR END ADDR PTM61540 02FE 932D 12417 | S 3 SMSEC-X3 SUB. BEGIN FOR DISP. 2-11 PTM61542 02FF D0CD 12418 | STO ELIBT *OF LIBRARY INDR PTM61545 0300 C32D 12419 | LD 3 SMSEC-X3 SET SCTR ADDR TO PTM61550 0301 D20F 12420 | STO 2 SKEL2-1-DISP1 *START OF LIBRARY PTM61555 0302 C00D 12421 | LD ELB10 SET WD CNT TO FIRST FEW PTM61560 0303 D20E 12422 | STO 2 SKEL2-2-DISP1 *WORDS OF SCTR PTM61565 0304 C80D 12423 | LDD ELB20 PREPARE TO PTM61570 0305 435C 12424 | BSI 3 DISK1-X3 READ 1ST SCTR OF LIBRARY PTM61575 0306 C049 12425 | LD DELTA SET LIBRARY END INDR PTM61580 0307 D212 12426 | STO 2 SKEL2+2-DISP1 *DISPLACEMENT PTM61585 0308 C0C4 12427 | LD ELIBT SET LIBRARY END INDR PTM61590 0309 D211 12428 | STO 2 SKEL2+1-DISP1 *SCTR ADDR PTM61595 030A 7401 0312 12429 | MDX L ELB20,1 PLACE WR FUNC CODE PTM61600 030C C805 12430 | LDD ELB20 PREPARE TO PTM61605 030D 435C 12431 | BSI 3 DISK1-X3 WRITE 1ST LIBR SCTR PTM61610 030E 7005 12432 | MDX REST0 PTM61615 12433 | * PTM61620 030F 0334 12434 | M2907 DC P9245-P9000 REFRESH WD CNT PTM61625 0310 0140 12435 | ELB10 DC 320 WD CNT OF LIBRARY HDR PTM61630 0311 0041 12436 | M2PL2 DC /41 MACRO PLUS INDR 2-10 PTM61635 0312 12437 | BSS E 0 FORCE EVEN ADDR PTM61645 0312 7000 12438 | ELB20 DC /7000 DK READ FUNC CODE PTM61650 0313 045E 12439 | DC SKEL2-2 I/O AREA HDR PTM61655 12440 | * PTM61660 12441 | * SUBROUTINE TO RESTORE PH 9 OF ASSEMBLER PTM61665 12442 | * *AND READ NEXT RCD FOR PROCESSING PTM61670 12443 | * PTM61675 0314 6700 0450 12444 | REST0 LDX L3 DISP1 SAVE CODE-SNEAKY PTM61680 0316 C3C3 12445 | LD 3 M2800+3-DISP1 SET WD CNT,SCTR ADDR PTM61685 0317 D309 12446 | STO 3 P9000-1-DISP1 *PH 9 RESTORE PTM61690 0318 C0F6 12447 | LD M2907 SET REFRESH WD CNT PTM61695 0319 D308 12448 | STO 3 P9000-2-DISP1 PTM61700 031A CB0A 12449 | LDD 3 P9000-DISP1 SAVE PH 9 HDR PTM61705 031B D830 12450 | STD M2908 PTM61710 031C C30C 12451 | LD 3 P9000+2-DISP1 PTM61715 031D D030 12452 | STO M2908+2 PTM61720 031E C82B 12453 | LDD M2905 DK READ PARAM TO ACC,EXT PTM61725 031F 4400 0275 12454 | BSI L DISK1 REFRESH ASM PH 9 PTM61730 12455 | * PTM61735 0321 C063 12456 | LD TVWD7 RESTORE WD 7 2-10 PTM61740 0322 D400 04A7 12457 | STO L OPVND *OF TRANSFER VECTOR 2-10 PTM61745 0324 61F0 12458 | LDX 1 -16 SET LOOP CTR PTM61750 0325 6200 12459 | LDX 2 0 SET TBL PT PTM61755 0326 CD00 044E 12460 | REST3 LDD L1 M2996+18 FETCH SECONDARY DISK PTM61760 0328 DE00 0794 12461 | STD L2 P9245+6 *HEADER TABLE PTM61765 032A 7202 12462 | MDX 2 2 INCR TBL PT PTM61770 032B 7104 12463 | MDX 1 4 DECR LOOP CTR PTM61775 032C 70F9 12464 | MDX REST3 CONT TO RESTORE PH 9 PTM61780 032D C81E 12465 | LDD M2908 RESTORE PH 9 HEADER PTM61785 032E DB0A 12466 | STD 3 P9000-DISP1 PTM61790 032F C01E 12467 | LD M2908+2 PTM61795 0330 D30C 12468 | STO 3 P9000+2-DISP1 PTM61800 12469 | * PTM61805 0331 61E0 12470 | LDX 1 -32 PTM61810 0332 6200 12471 | LDX 2 0 PTM61815 0333 CD00 043E 12472 | REST1 LDD L1 M2991+34 FETCH DISK HEADER TBL PTM61820 0335 DE00 04AE 12473 | STD L2 P9041 *IN ASM PH 9 PTM61825 0337 7202 12474 | MDX 2 2 PTM61830 0338 7104 12475 | MDX 1 4 INCR LOOP CTR PTM61835 0339 70F9 12476 | MDX REST1 CONT TO RESTORE TBL PTM61840 033A C3BB 12477 | LD 3 M2992-DISP1 SET GRAPHICS PH ADDR PTM61845 033B D36F 12478 | STO 3 P9540-DISP1 PTM61850 033C 4400 025F 12479 | BSI L LDXRS RESTORE XR1 AND XR3 PTM61855 12480 | *************************************************** PTM61860 12481 | * REST2-1 AND REST2+1 MUST OCCUR AT * PTM61865 12482 | * EVEN WORD BOUNDARIES OR ALL REFERENCES * PTM61870 12483 | * CHANGE TO REST2 AND REST2+2 RESPECTIVELY * PTM61875 12484 | *************************************************** PTM61880 033E 1000 12485 | NOP 2-11 PTM61881 033F 1000 12486 | NOP 2-11 PTM61882 033E 12487 | ORG *-2 2-11 PTM61883 033E 12488 | BSS E 0 INSURE EVEN ADDRESS 2-11 PTM61884 033E C012 12489 | LD ERSW TERMINATE ASM IF ERROR PTM61885 033F 4C20 0754 12490 | REST2 BSC L P9227,Z EXIT TO SUPERVISOR ON ERR PTM61890 0341 C335 12491 | LD 3 MCOM4-X3 TEST FOR END STATEMENT PTM61895 0342 4418 074B 12492 | BSI L PALBL,+- BR TO READ NEXT RCD PTM61900 0344 4C00 045D 12493 | BSC L BGASM BR TO PROCESS NEXT RCD PTM61905 12494 | * PTM61930 12495 | * CONSTANTS PTM61935 12496 | * PTM61940 0346 013A 12497 | M2906 DC 314 CONSTANT 314 2-10 PTM61945 0347 0003 12498 | M2904 DC 3 CONSTANT 3 PTM61950 0348 0014 12499 | MPACN DC 20 MAXIMUM PARAM CNT PTM61955 034A 12500 | BSS E 0 FORCE EVEN ADDR PTM61960 034A 7000 12501 | M2905 DC /7000 DK READ FUNC CODE PTM61965 034B 0458 12502 | DC P9000-2 I/O AREA ADDR PTM61970 034C 12503 | M2908 BSS E 3 TEMP SAVE AREA PTM61975 034F 0000 12504 | PNCK1 DC *-* TEMP SAVE AREA PTM61980 0350 0000 12505 | DELTA DC *-* SAVE AREA FOR SCTR DISP PTM61985 0351 0000 12506 | ERSW DC *-* ERROR INDR PTM61990 12507 | * CODE MOVED 2-10 PTM61995 0352 0000 12508 | M2956 DC *-* PARAM NAME LNG PTM62000 12509 | * PTM62005 12510 | * PTM62010 12511 | * SCAN FOR PARAMETER NAMES PTM62015 12512 | * PTM62020 0353 6207 12513 | STSCN LDX 2 7 SET NAME CHAR COUNT 2/11 PTM62025 0354 6AFD 12514 | STX 2 M2956 2/11 PTM62030 0355 6201 12515 | LDX 2 1 ADJUST SKELETON PTR 2-11 PTM62035 0356 C400 0690 12516 | LD L CNT2B CALCULATE POSITION PTM62040 0358 A0EE 12517 | M M2904 *OF NEXT PARAM IN SKELETON PTM62045 0359 1090 12518 | SLT 16 CLEAR BUFF DISP PT PTM62050 035A D00D 12519 | STO MCOK+1 PTM62055 035B 6A0A 12520 | STX 2 MCOK-1 SAVE XR2 PTM62060 12521 | * PTM62065 12522 | * BEGIN SCAN OF PROTOTYPE RECORD PTM62070 12523 | * PTM62075 035C 6206 12524 | MSCAN LDX 2 MCS2-MCS1 SET XR2 TO M2CSN TBL SIZE PTM62080 035D 4400 05DE 12525 | BSI L M2CSN SCAN CHARACTER FOR TERMINATOPTM62085 035F 0040 12526 | MCS1 DC /40 EBCDIC BLANK PTM62090 0360 0387 12527 | DC MSCN RETURN ADDR FOR BLANK PTM62095 0361 006B 12528 | DC /6B EBCDIC COMMA PTM62100 0362 037E 12529 | DC MSCN1 RETURN ADDR FOR COMMA PTM62105 0363 0050 12530 | DC /50 EBCDIC AMPERSAND PTM62110 0364 03DE 12531 | DC AMP RETURN ADDR FOR AMPERSAND PTM62115 0365 12532 | MCS2 EQU * PTM62120 12533 | * PTM62125 12534 | * RETURN HERE IF CHARACTER NOT BLANK,COMMA, PTM62130 12535 | * *OR AMPERSAND PTM62135 12536 | * PTM62140 0365 6600 0000 12537 | LDX L2 *-* RESTORE XR2 TO SKELETON PT PTM62145 0367 6700 0000 12538 | MCOK LDX L3 *-* RESTORE XR3 TO BUFF PT PTM62150 0369 C100 12539 | LD 1 0 FETCH CHAR PTM62155 036A 72FF 12540 | MDX 2 -1 SKIP IF 1ST,3RD,5TH CHAR PTM62160 036B 700C 12541 | MDX MCPK 2ND,4TH CHAR PTM62165 036C 1088 12542 | SLT 8 SHIFT TO LEFTHAND BYTE PTM62170 036D 7202 12543 | MDX 2 2 ADJUST SKELETON PT PTM62175 036E D700 05A0 12544 | STO L3 BUFF STORE IN PARAM LIST BFR PTM62180 0370 6BF7 12545 | MCK STX 3 MCOK+1 SAVE XR3 PTM62185 0371 7101 12546 | MDX 1 1 PT TO NEXT CHAR PTM62190 0372 74FF 0352 12547 | MDX L M2956,-1 DECR PARAM NAME LNG PTM62195 0374 70E6 12548 | MDX MSCAN-1 CHECK NEXT CHAR PTM62200 0375 6700 0219 12549 | MCK01 LDX L3 ASMCM RESTORE XR3 PTM62205 0377 703D 12550 | MDX PNCK6 OP CODE ERROR PTM62210 12551 | * PTM62215 0378 EF00 05A0 12552 | MCPK OR L3 BUFF OR 2ND OR 4TH CHAR TO NAME PTM62220 037A D700 05A0 12553 | STO L3 BUFF *AND SAVE IN PARAM LIST PTM62225 037C 7301 12554 | MDX 3 1 INCR BUFF PT PTM62230 037D 70F2 12555 | MDX MCK RETURN TO CHECK NEXT CHAR PTM62235 12556 | * PTM62240 12557 | * PROCESS COMMA TERMINATOR PTM62245 12558 | * PTM62250 037E 7401 0690 12559 | MSCN1 MDX L CNT2B,1 INCR PH 2B PARAM CTR PTM62255 0380 7101 12560 | MDX 1 1 XR1 PT TO NEXT PARAM NAME PTM62260 0381 74FF 0348 12561 | MDX L MPACN,-1 DECR CNT PTM62265 0383 70CF 12562 | MDX STSCN FETCH NEXT PARAM NAME PTM62270 0384 70F0 12563 | MDX MCK01 TOO MANY PARAM PTM62275 12564 | * 2-10 PTM62280 0385 0290 12565 | TVWD7 DC OVLAY+16 WD 7 OF TRANS VECTOR 2-10 PTM62285 0386 0291 12566 | M2990 DC MCGOS ENTRY TO MACRO PH 2A 2-10 PTM62290 12567 | * PTM62295 12568 | * PROCESS BLANK TERMINATOR PTM62300 12569 | * PTM62305 0387 7401 0690 12570 | MSCN MDX L CNT2B,1 INCR PH 2B PARAM CTR PTM62310 0389 C400 0690 12571 | LD L CNT2B PTM62315 12572 | * PTM62320 12573 | * CHECK FOR VALID PARAMETER NAMES PTM62325 12574 | * PTM62330 038B D0C3 12575 | STO PNCK1 SET NUMBER OF PARAM PTM62335 038C 6500 059D 12576 | LDX L1 BUFF-3 INITLZ BUFF PT PTM62340 038E 7103 12577 | PNCK3 MDX 1 +3 PTM62345 038F 694C 12578 | STX 1 PNCKS SAVE BUFF PT PTM62350 0390 6600 03D4 12579 | LDX L2 PNAME PT TO LABEL BFR PTM62355 0392 6303 12580 | LDX 3 3 INITLZ MOVE CTR PTM62360 0393 C100 12581 | PNCK5 LD 1 0 GET PARAM CHARS PTM62365 0394 1808 12582 | SRA 8 PTM62370 0395 4818 12583 | BSC +- SKIP IF NON-BLANK PTM62375 0396 C0C8 12584 | LD MCS1 SET TO BLANK PTM62380 0397 D200 12585 | STO 2 0 STORE CHAR PTM62385 0398 C100 12586 | LD 1 0 GET SECOND CHAR PTM62390 0399 1008 12587 | SLA 8 PTM62395 039A 1808 12588 | SRA 8 PTM62400 039B 4818 12589 | BSC +- SKIP IF NON-BLANK PTM62405 039C C0C2 12590 | LD MCS1 SET TO BLANK PTM62410 039D D201 12591 | STO 2 1 SAVE CHAR PTM62415 039E 7101 12592 | MDX 1 1 INCR LABEL BFR PT PTM62420 039F 7202 12593 | MDX 2 2 INCR LABEL BFR PT PTM62425 03A0 73FF 12594 | MDX 3 -1 DECR LOOP CTR PTM62430 03A1 70F1 12595 | MDX PNCK5 PTM62435 03A2 6500 03D4 12596 | LDX L1 PNAME PT TO LABEL BFR PTM62440 03A4 C100 12597 | LD 1 0 GET 1ST CHAR PTM62445 03A5 F0BD 12598 | EOR MCS2-2 TEST FOR AMPERSAND PTM62450 03A6 6700 0219 12599 | LDX L3 ASMCM RESTORE XR3 PTM62455 03A8 4C20 03AC 12600 | BSC L P6CHR,Z BR TO TEST 6TH CHAR PTM62460 03AA 7101 12601 | MDX 1 1 INCR NAME BFR PT PTM62465 03AB 7004 12602 | MDX P6CH1 PTM62470 03AC C105 12603 | P6CHR LD 1 5 TEST 6TH CHAR FOR BLANK PTM62475 03AD F0B1 12604 | EOR MCS1 PTM62480 03AE 4C20 03B5 12605 | BSC L PNCK6,Z BR-6TH CHAR NONBLANK PTM62485 03B0 C100 12606 | P6CH1 LD 1 0 TEST 1ST CHAR FOR BLANK PTM62490 03B1 F0AD 12607 | EOR MCS1 PTM62495 03B2 4420 083D 12608 | BSI L P9252,Z GO CHECK LABEL PTM62500 03B4 700B 12609 | MDX PNCKA GO CHECK NEXT LABEL PTM62505 12610 | * PTM62510 03B5 CC00 043A 12611 | PNCK6 LDD L M2996-2 2-11 PTM62515 03B7 DB67 12612 | STD 3 OVLAY-X3 PTM62520 03B8 C021 12613 | LD PNCKB SET XEQ ADDR TO OPCDR PTM62525 03B9 D35A 12614 | STO 3 P0140-X3+1 PTM62530 03BA C817 12615 | LDD PNCKD FETCH REST0 RETURN PTM62535 03BB DC00 033E 12616 | STD L REST2-1 PTM62540 03BD 7048 12617 | MDX ELIB7 RESTORE PH 9 PTM62545 12618 | * PTM62550 03BE 4C00 0270 12619 | PNCK7 BSC L P0130 FETCH MACRO PH 1 PTM62555 12620 | * PTM62560 03C0 74FF 034F 12621 | PNCKA MDX L PNCK1,-1 DECR PARAM CNT PTM62565 03C2 7018 12622 | MDX PNCKC GET NEXT PARAM PTM62570 03C3 C852 12623 | LDD M2810+2 WD CNT,SCTR ADDR PH 2A PTM62575 03C4 DB67 12624 | STD 3 OVLAY-X3 PTM62580 03C5 7401 0078 12625 | MDX L $PHSE,+1 SET PH ID /ED 2-10 PTM62585 12626 | * 2-10 PTM62590 03C7 C0BE 12627 | LD M2990 SET ENT FOR PH 2A PTM62595 03C8 D35A 12628 | STO 3 BRBCK+1-X3 PTM62600 03C9 C33A 12629 | LD 3 MCOM9-X3 INITLZ PH 2B PT PTM62605 03CA D400 068E 12630 | STO L POINT *FOR MACRO NAME PTM62610 03CC C33F 12631 | MMASS LD 3 MCDEF-X3 PTM62615 03CD 4C08 0270 12632 | BSC L P0130,+ BR- NOT TEMP DEFN PTM62620 03CF C03A 12633 | LD MMACS SET TEMP DEFN FLAG PTM62625 03D0 D33F 12634 | STO 3 MCDEF-X3 PTM62630 03D1 70FA 12635 | MDX MMASS CONT WITH DEFN PTM62635 12636 | * PTM62640 03D2 12637 | BSS E 0 FORCE EVEN ADDR PTM62645 03D2 4C00 03BE 12638 | PNCKD BSC L PNCK7 PTM62650 03D4 12639 | PNAME BSS 6 SYMBOL BFR PTM62655 03DA 034D 12640 | PNCKB DC M1701 OP CODE ERR ADDR PTM62660 12641 | * PTM62665 03DB 6500 0000 12642 | PNCKC LDX L1 *-* RESTORE BUFF PT PTM62670 03DC 12643 | PNCKS EQU *-1 PTM62675 03DD 70B0 12644 | MDX PNCK3 CONT NAME CHECK PTM62680 12645 | * PTM62685 12646 | * PROCESS AMPERSAND TERMINATOR PTM62690 12647 | * PTM62695 03DE C003 12648 | AMP LD AMPCN SET CONCATENATOR SW PTM62700 03DF D400 05EF 12649 | STO L CNAMP+1 *FOR AMPERSAND IN PH 2B PTM62705 03E1 7083 12650 | MDX MCOK-2 FETCH NEXT PARAM NAME PTM62710 03E2 05F0 12651 | AMPCN DC CNAM1 ADDR CONSTANT PTM62715 12652 | * PTM62720 12653 | * ENTER FROM MACRO PH 3B PTM62725 03E3 12654 | ELIB1 EQU * PTM62730 03E3 C82A 12655 | LDD M2910 SET TO RESTORE XR1 AND XR3 PTM62735 03E4 DC00 033E 12656 | STD L REST2-1 PTM62740 03E6 C825 12657 | LDD M2909 SET TO RETURN TO MACRO PH PTM62745 03E7 DC00 0340 12658 | STD L REST2+1 *3 WHEN PH 9 REFRESHED PTM62750 03E9 C400 04A7 12659 | LD L OPVND SAVE WD 7 OF TRANS VEC 2-10 PTM62755 03EB D099 12660 | STO TVWD7 *BEFORE PH 9 REFRESH 2-10 PTM62760 03EC 6700 0219 12661 | LDX L3 ASMCM RESTORE XR3 PTM62765 03EE CBDF 12662 | LDD 3 CNVRT-X3 FETCH CONVERSION SUBR HDR PTM62815 03EF 74FD 01FF 12663 | ELIB6 MDX L CVADR,-3 PTM62830 03F1 DC80 01FF 12664 | STD I CVADR SET CONVERSION SUBR HDR PTM62835 03F3 C3E6 12665 | LD 3 CVADR-X3 FETCH I/O AREA ADDR PTM62840 03F4 7403 01FF 12666 | MDX L CVADR,+3 RESTORE BR ADDR PTM62845 03F6 18D0 12667 | RTE 16 PTM62850 03F7 C400 034A 12668 | LD L M2905 FETCH READ FUNC CODE PTM62855 03F9 435C 12669 | BSI 3 DISK1-X3 LOAD CONVERSION SUBR PTM62860 03FA C3ED 12670 | LD 3 IPTKB-X3 IS INPUT FROM PT/KB PTM62865 03FB 4C18 0404 12671 | BSC L ELIB8,+- NO,BRANCH PTM62870 03FD C400 045B 12672 | LD L RP000 2-11 PTM62875 03FF 8009 12673 | A ELI10 2-11 PTM62880 0400 D002 12674 | STO ELIB9+1 2-11 PTM62885 0401 C006 12675 | LD ELI21 2-11 PTM62890 0402 D400 0000 12676 | ELIB9 STO L *-* 2-11 PTM62895 0404 7474 030F 12677 | ELIB8 MDX L M2907,P9250-P9245 PTM62900 0406 4C00 0314 12678 | ELIB7 BSC L REST0 RESTORE PHASE 9 PTM62905 12679 | * PTM62910 12680 | * CONSTANTS,SLET ID TBL PTM62915 12681 | * PTM62920 12682 | * 2-10 PTM62925 0408 0015 12683 | ELI21 DC 21 CONSTANT 21 PTM62930 0409 000A 12684 | ELI10 DC 10 2-11 PTM62935 040A 8000 12685 | MMACS DC /8000 TEMP DEFN SW PTM62940 040B 0ECC 12686 | M2992 DC G4000 START ADDR OF GRAPHICS PH PTM62945 040C 12687 | BSS E 0 FORCE EVEN ADDR PTM62950 040C 4C00 143D 12688 | M2909 BSC L FE000 EVEN ADDR PTM62955 040E 4400 025F 12689 | M2910 BSI L LDXRS PTM62960 0410 12690 | M2800 EQU * PTM62965 0410 00DC 12691 | DC /DC SLET ID OF PHASE 9 PTM62970 0411 12692 | BSS 3 PTM62975 0414 00ED 12693 | M2810 DC /ED SLET ID OF MACRO PH 2A PTM62980 0415 12694 | BSS 3 PTM62985 0418 00EE 12695 | M2820 DC /EE SLET ID OF MACRO PH 2B PTM62990 0419 12696 | BSS 3 PTM62995 041C 00DD 12697 | M2991 DC /DD SLET ID OF PHASE 5 PTM63000 041D 12698 | BSS 3 PTM63005 0420 00DE 12699 | DC /DE SLET ID OF PHASE 6 PTM63010 0421 12700 | BSS 3 PTM63015 0424 00DF 12701 | DC /DF SLET ID OF PHASE 7 PTM63020 0425 12702 | BSS 3 PTM63025 0428 00E1 12703 | DC /E1 SLET ID OF PHASE 8 PTM63030 0429 12704 | BSS 3 PTM63035 042C 00E2 12705 | DC /E2 SLET ID OF PHASE 8A PTM63040 042D 12706 | BSS 3 PTM63045 0430 00D3 12707 | DC /D3 SLET ID OF PHASE 12 PTM63050 0431 12708 | BSS 3 PTM63055 0434 00DA 12709 | DC /DA SLET ID OF PHASE 2 PTM63060 0435 12710 | BSS 3 PTM63065 0438 00E9 12711 | DC /E9 SLET ID OF MACRO PH 1 PTM63070 0439 12712 | BSS 3 PTM63075 043C 00E3 12713 | M2996 DC /E3 SLET ID OF PNCH CNVRT PTM63090 043D 12714 | BSS 3 PTM63095 0440 00D4 12715 | DC /D4 SLET ID OF ERMSG PTM63100 0441 12716 | BSS 3 PTM63105 0444 00D9 12717 | DC /D9 SLET ID OF PHASE 4 PTM63110 0445 12718 | BSS 3 PTM63115 0448 00E5 12719 | DC /E5 SLET ID OF PHASE 10A PTM63120 0449 12720 | BSS 2 2-10 PTM63125 044B 0000 12721 | DC *-* 2-10 PTM63130 044B 12722 | MP20Z EQU *-1 PTM63135 *SBRKSLS ED 12723 | MACRO PHASE 2A - MACRO DEFINITION V2M08 PTM63140 MACRO PROCESSOR PHASE 2A, GENERATION 12725 | *************************************************** PTM63150 12726 | * * PTM63155 12727 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM63160 12728 | * * PTM63165 12729 | *FUNCTION/OPERATION- * PTM63170 12730 | * *MACRO PHASE 2A IN CONJUNCTION WITH MACRO * PTM63175 12731 | * PHASE 2B PROCESSES MACRO DEFINITION SOURCE * PTM63180 12732 | * STATEMENTS AND BUILDS THE MACRO PROTOTYPE, * PTM63185 12733 | * PLACING THE PROTOTYPE ON DISK. * PTM63190 12734 | * *EACH FIELD OF EACH DEFINITION SOURCE STATE- * PTM63195 12735 | * MENT IS SCANNED FOR POSSIBLE PARAMETER * PTM63200 12736 | * SUBSTITUTION,AUTOMATIC LABEL GENERATION,OR * PTM63205 12737 | * AMPERSAND OR PERIOD CONCATENATION. * PTM63210 12738 | * *NESTED MACRO DEFINITION AND END STATEMENT * PTM63215 12739 | * TRUNCATION ARE HANDLED BY A SPECIAL SCAN OF * PTM63220 12740 | * THE OPERATION CODE FIELD. * PTM63225 12741 | * * PTM63230 12742 | *ENTRY POINTS- * PTM63235 12743 | * *MCGOS - ENTER FROM MACRO PHASE 2 * PTM63240 12744 | * * PTM63245 12745 | *INPUT- * PTM63250 12746 | * *BUFF CONTAINS LIST OF PROTOTYPE PARAMETER * PTM63255 12747 | * NAME FROM PROTOTYPE STATEMENT. * PTM63260 12748 | * *SKEL2 CONTAINS CURRENT DISK PROTOTYPE SCTR * PTM63265 12749 | * WHICH IS BEING EXTENDED. * PTM63270 12750 | * * PTM63275 12751 | *OUTPUT- * PTM63280 12752 | * *MACRO DEFINITION PROTOTYPE ON DISK. * PTM63285 12753 | * * PTM63290 12754 | *EXTERNAL REFERENCES- * PTM63295 12755 | * *SUBROUTINES- * PTM63300 12756 | * * PALBL * PTM63305 12757 | * *THE FOLLOWING ENTRY POINTS TO MACRO PHASE * PTM63310 12758 | * 2B ARE USED BY MACRO PHASE 2A * PTM63315 12759 | * * ASTK * PTM63320 12760 | * * CNAMP * PTM63325 12761 | * * CNAM1 * PTM63330 12762 | * * CKEND * PTM63335 12763 | * * CONPD * PTM63340 12764 | * * NORM5 * PTM63345 12765 | * * NORM6 * PTM63350 12766 | * * SETND * PTM63355 12767 | * * WRSKL * PTM63360 12768 | * *ASMCM- * PTM63365 12769 | * * MCOM8 * PTM63370 12770 | * * MCOM9 * PTM63375 12771 | * * RDBFR * PTM63380 12772 | * * PTM63385 12773 | *EXITS- * PTM63390 12774 | * *P0130 - RESTORE MACRO PHASE 2 FOR FINAL * PTM63395 12775 | * DEFINITION PROCESSING * PTM63400 12776 | * * PTM63405 12777 | *TABLES/WORK AREAS- * PTM63410 12778 | * *BUFF - PROTOTYPE PARAMETER NAME BUFFER * PTM63415 12779 | * *SKEL0(SKEL2) - MACRO PROTOTYPE BUFFER * PTM63420 12780 | * BEGINS AT DEFSK+2 * PTM63425 12781 | * * PTM63430 12782 | *ATTRIBUTES-N/A * PTM63435 12783 | * * PTM63440 12784 | *NOTES- * PTM63445 12785 | * *MACRO PHASE 2B IS IN CORE,OVERLAYING PART * PTM63450 12786 | * OF ASSEMBLER PHASE 9,WHEN MACRO PHASE 2A IS * PTM63455 12787 | * IN CORE. MACRO PHASE 2B IS REALLY AN * PTM63460 12788 | * EXTENSION OF MACRO PHASE 2A. CONTROL SHIFTS * PTM63465 12789 | * BACK AND FORTH BETWEEN 2A AND 2B TO PROCESS * PTM63470 12790 | * MACRO DEFINITION SOURCE STATEMENTS. * PTM63475 12791 | * *PATCH FOR THIS PHASE IS INCLUDED IN THE * PTM63480 12792 | * GENERAL PATCH AREA AT THE END OF MACRO * PTM63485 12793 | * PH 2B. * PTM63490 12794 | * * PTM63495 12795 | *************************************************** PTM63500 0280 12796 | ORG OVLAY PTM63505 0280 01C1 12797 | DC MC2AZ-RDSRC WD CNT OF MACRO PH 2A PTM63510 0281 FF13 12798 | DC -/ED SLET ID OF MACRO PH 2A PTM63515 0282 0008 12799 | M2A00 DC M2A90-M2A00 DISP TO SLET ID TABLE PTM63520 0283 0001 12800 | DC 1 NO. SLET ENTRIES TO FILL PTM63525 0282 12801 | ORG *-2 PTM63530 12802 | * PTM63535 12803 | * RESTORE MACRO PHASE 2 FOR FINAL PROCESSING PTM63540 12804 | * PTM63545 0282 C006 12805 | RDSRC LD MACXT SET RETURN ADDR FOR PTM63550 0283 D0EF 12806 | STO BRBCK+1 *MACRO PH 2 PTM63555 0284 C807 12807 | LDD M2A90+2 GET WD CNT,SCTR ADDR FOR PTM63560 0285 D8FA 12808 | STD OVLAY *MACRO PH 2 PTM63565 0286 6700 0219 12809 | LDX L3 ASMCM XR3 POINTS TO ASMCM PTM63570 0288 70E7 12810 | MDX P0130 LD AND GO TO MACRO PH 2 PTM63575 12811 | * PTM63580 12812 | * CONSTANTS PTM63585 12813 | * PTM63590 0289 02D2 12814 | MACXT DC ELIB EXIT ADDR TO MACRO PH 2 PTM63595 028A 12815 | BSS E 0 FORCE EVEN ADDR PTM63600 028A 00EC 12816 | M2A90 DC /EC SLET ID OF MACRO PH 2 PTM63605 028B 12817 | BSS 3 PTM63610 028A 12818 | MLSR EQU M2A90 LAST SCTR READ INFO PTM63615 028A 12819 | MLSTR EQU MLSR PTM63620 12820 | * PTM63625 12821 | * SUBROUTINE TO INCREMENT NEST COUNTER PTM63630 12822 | * PTM63635 028E 7401 0630 12823 | NEST MDX L ENDM6,1 INCR NEST CTR BY 1 PTM63640 0290 7060 12824 | MDX MCS70-1 *MAC OR SMAC IN DEFINITION PTM63645 12825 | * PTM63650 12826 | * ENTRY POINT FOR THIS PHASE PTM63655 12827 | * PTM63660 0291 12828 | MCGOS EQU * PTM63665 12829 | * PTM63670 0291 7401 0630 12830 | MDX L ENDM6,1 INCR NEST CTR PTM63675 0293 12831 | MCGO1 EQU * PTM63680 0293 4400 074B 12832 | BSI L PALBL READ NEXT RECORD PTM63685 0295 4C00 06FB 12833 | BSC L SETND GO TO SET END OF RCD PTM63690 0297 D8F2 12834 | MCGO2 STD MLSTR INITIALIZE PROTOTYPE POS PTM63695 0298 C400 06BD 12835 | LD L M2B10 RESTORE TEMP AREA IN CASE PTM63700 029A D400 0407 12836 | STO L M2A80 *NESTED DEFINITION OCCURRED PTM63705 12837 | * PTM63710 12838 | * SCAN PROTOTYPE SOURCE STATEMENT FIELDS PTM63715 12839 | * *FOR SPECIAL TERMINATORS AS BUILD THE PTM63720 12840 | * *PROTOTYPE TO DISK PTM63725 12841 | * PTM63730 029C 12842 | MCGO EQU * PTM63735 029C 6580 0238 12843 | LDX I1 RDBFR RESTORE XR1 TO I/P BFR ADDR PTM63740 029E 711B 12844 | MDX 1 27 POINT TO OPCODE FIELD 2-12 PTM63745 029F 692E 12845 | STX 1 A2900 2-12 PTM63750 02A0 1010 12846 | SLA 16 PTM63755 02A1 D400 031E 12847 | STO L MCHA CLEAR CHAR CNT PTM63760 02A3 D400 031F 12848 | STO L PSWTH *AND PARAMETER SWITCH PTM63765 02A5 71FA 12849 | MDX 1 -6 POINT TO LABEL FIELD 2-12 PTM63770 02A6 12850 | MCTS1 EQU * PTM63775 02A6 6700 02BE 12851 | LDX L3 MCS04 SET EXIT ADDR FOR PTM63780 02A8 6F00 0402 12852 | STX L3 BLKX+1 *SOURCE SCAN SUBR PTM63785 02AA C100 12853 | LD 1 0 2-11 PTM63786 02AB F400 0337 12854 | EOR L ASK TEST FOR COMMENT CARD 2-11 PTM63787 02AD 4C18 0692 12855 | BSC L ASTK,+- BRANCH IF COMMENT 2-11 PTM63788 02AF 6208 12856 | MCS00 LDX 2 MCS01-*-1 TABLE LENGTH FOR MCCSN 212 PTM63793 02B0 4400 05DE 12857 | BSI L M2CSN SCAN FOR * ' OR BLANK PTM63795 02B2 007D 12858 | QUOT3 DC /7D EBC APOSTROPHE PTM63810 02B3 02D2 12859 | DC QUOTE BR FOR GENERATED NAME PTM63815 02B4 0050 12860 | DC /50 EBC AMPERSAND PTM63820 02B5 05EE 12861 | DC CNAMP BR FOR & CONCATENATION PTM63825 02B6 0040 12862 | DC . BLANK 212 PTM63826 02B7 0371 12863 | DC NORMN PROCESS LABEL 212 PTM63827 02B8 004B 12864 | DC .. EBC PERIOD PTM63830 02B9 05F5 12865 | MCS01 DC CONPD BR FOR . CONCATENATION 2-12 PTM63835 02BA 7401 031E 12866 | MDX L MCHA,1 INCR CHAR CNT PTM63850 02BC 7101 12867 | MDX 1 1 PT TO NEXT COL PTM63855 02BD 70F1 12868 | MDX MCS00 CONTINUE SCAN PTM63860 12869 | * PTM63865 12870 | * RETURN HERE FROM PROCESSING LABEL OR PTM63870 12871 | * *OP CODE FIELDS PTM63875 12872 | * PTM63880 02BE C400 036E 12873 | MCS04 LD L TERM RESTORE TERMINATOR PTM63885 02C0 D480 036F 12874 | STO I STOP PTM63890 02C2 F0EF 12875 | EOR QUOT3 CHECK IF LEADING QUOTE PTM63895 02C3 E85A 12876 | OR MCHA PTM63900 02C4 E85A 12877 | OR PSWTH *AND NOT A PARAMETER PTM63905 02C5 4C18 02AF 12878 | BSC L MCS00,+- BR IF LEADING QUOTE PTM63910 02C7 C400 036F 12879 | LD L STOP COMPUTE IF LABEL PTM63915 02C9 9004 12880 | S A2900 *OR OP CODE FIELD PTM63920 02CA 4C10 02DB 12881 | BSC L MCS06,- BRANCH IF OP COMPLETE PTM63925 02CC 1810 12882 | SRA 16 PTM63930 02CD 6500 0000 12883 | MCS LDX L1 *-* POINT TO OP CODE FIELD 2-12 PTM63935 02CE 12884 | A2900 EQU *-1 ADDR OF BUFR +27 2-12 PTM63940 02CF D04F 12885 | STO PSWTH CLEAR PARAMETER SW PTM63945 02D0 4C00 0701 12886 | BSC L MCS2B PTM63950 12887 | * PTM63955 12888 | * PROCESS APOSTROPHE PTM63960 12889 | * PTM63965 02D2 12890 | QUOTE EQU * 2-12 PTM64005 02D2 C006 12891 | LD QUOT0 GET LEADING QUOTE INDR PTM64010 02D3 7400 031E 12892 | MDX L MCHA,0 SKIP IF LEADING QUOTE PTM64015 02D5 C004 12893 | LD QUOT1 GET TRAILING QUOTE INDR PTM64020 02D6 D100 12894 | STO 1 0 STORE FLAG IN PROTOTYPE RCD PTM64025 02D7 4C00 0371 12895 | BSC L NORMN CONT TO PROC RCD PTM64030 12896 | * PTM64035 12897 | * CONSTANTS PTM64040 12898 | * PTM64045 02D9 00FC 12899 | QUOT0 DC /FC LEADING QUOTE INDR PTM64050 02DA 00FB 12900 | QUOT1 DC /FB TRAILING QUOTE INDR PTM64055 12901 | * PTM64065 12902 | * RETURN AFTER OP SCAN PTM64070 12903 | * PTM64075 02DB 7400 031F 12904 | MCS06 MDX L PSWTH,0 SKIP IF OP NOT PARAM PTM64080 02DD 7014 12905 | MDX MCS70 BR IF OP PARAM PTM64085 02DE C400 040A 12906 | LD L YUK+2 CHECK FOR 5 CHAR OP CODE PTM64090 02E0 4C20 070F 12907 | BSC L FIVCH,Z BR IF 5TH CHAR SPEC 2-10 PTM64095 02E2 CC00 0408 12908 | LDD L YUK FETCH 4 CHAR OP CODE PTM64100 02E4 DC00 06B8 12909 | STD L MOP SAVE 4 CHAR OP CODE PTM64105 02E6 6312 12910 | LDX X3 MOP-SPOP XR3 IS SPECIAL OP TBL SIZE PTM64110 02E7 9F00 06A4 12911 | SCSOP SD L3 SPOP-2 CMP AGAINST SPECIAL OP PTM64115 02E9 4818 12912 | BSC +- SKIP IF NO MATCH PTM64120 02EA 18D0 12913 | RTE 16 CHECK COMPLETE OP CODE PTM64125 02EB 4F98 06B8 12914 | BSC I3 MOP,+- BR IF MATCH PTM64130 02ED CC00 06B8 12915 | LDD L MOP FETCH OP CODE PTM64135 02EF 73FE 12916 | MDX 3 -2 DECR LOOP CTR PTM64140 02F0 70F6 12917 | MDX SCSOP CONT TO TEST FOR SPECIAL OP PTM64145 12918 | * PTM64150 12919 | * SCAN FLAG AND TAG FIELDS PTM64155 12920 | * PTM64160 02F1 6A99 12921 | STX 2 MLSTR+1 SET SKELETON PT PTM64165 02F2 6580 0238 12922 | MCS70 LDX I1 RDBFR XR1 POINTS TO I/P BFR PTM64170 02F4 7120 12923 | MDX 1 +32 XR1 POINTS TO FLAG FLD PTM64175 02F5 6700 0317 12924 | LDX L3 MCS08 SET EXIT ADDR FOR SCAN SUBR PTM64180 02F7 1010 12925 | SLA 16 CLEAR CHAR CNT PTM64195 02F8 D025 12926 | STO MCHA PTM64200 02F9 6F00 0402 12927 | MCS71 STX L3 BLKX+1 SET TERMINATOR SUBR EXIT PTM64205 12928 | * PTM64210 02FB C100 12929 | LD 1 0 2-12 PTM64215 02FC F020 12930 | EOR BLAN TEST FOR A BLANK 2-12 PTM64220 02FD 4C18 0389 12931 | BSC L BLK01,+- BRANCH IF BLANK 2-12 PTM64225 12932 | * PTM64235 02FF 6300 12933 | LDX 3 0 XR3 IS PARAM LIST DISP PTM64240 0300 6680 0690 12934 | LDX I2 CNT2B XR2 IS PARAM CNT PTM64245 0302 C100 12935 | MCS72 LD 1 0 FETCH SCANNED CHAR PTM64250 0303 1008 12936 | SLA 8 PTM64255 0304 F700 05A0 12937 | EOR L3 BUFF CMP WITH PARAM NAME PTM64260 0306 4C20 0312 12938 | BSC L MCS74,Z BR IF NO MATCH PTM64265 0308 6A64 12939 | STX 2 TERM-1 SAVE PARAM NO. TEMP PTM64270 0309 C400 0690 12940 | LD L CNT2B PARAM FOUND, GET PARAM NO. PTM64275 030B 9061 12941 | S TERM-1 PTM64280 030C 8400 05E5 12942 | A L M2C01 ADD ONE PTM64285 030E D05E 12943 | STO TERM-1 PTM64290 030F 6500 036D 12944 | LDX L1 TERM-1 PTM64295 0311 7077 12945 | MCS73 MDX BLK01 SET PARAM NO. IN SKELETON PTM64300 0312 7303 12946 | MCS74 MDX 3 3 INCR PARAM LIST DISP PTM64305 0313 72FF 12947 | MDX 2 -1 DECR PARAM LIST CTR PTM64310 0314 70ED 12948 | MDX MCS72 CONT PARAM LIST SCAN PTM64315 12949 | * PTM64320 0315 C100 12950 | MCS75 LD 1 0 FETCH SCANNED CHAR PTM64325 0316 70FA 12951 | MDX MCS73 PLACE CHAR IN SKELETON PTM64330 12952 | * PTM64335 12953 | * INDICATORS PTM64340 12954 | * SCAN TAG FIELD PTM64345 12955 | * PTM64350 0317 6700 0320 12956 | MCS08 LDX L3 MCS10 SET EXIT FOR TAG FIELD PTM64355 0319 6580 0238 12957 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM64360 031B 7121 12958 | MDX 1 +33 XR1 PT TO TAG FLD PTM64365 031C 70DC 12959 | MDX MCS71 GO SCAN TAG FLD PTM64370 12960 | * PTM64375 031D 0040 12961 | BLAN DC . EBC BLANK 2-12 PTM64376 031E 0000 12962 | MCHA DC *-* CHARACTER COUNT SW PTM64380 031F 0000 12963 | PSWTH DC *-* PARAMETER SW PTM64385 12964 | * PTM64390 12965 | * PTM64395 12966 | * PROCESS OPERAND FIELD PTM64400 12967 | * PTM64405 0320 6580 0238 12968 | MCS10 LDX I1 RDBFR XR1 PT TO I/P BFR PTM64410 0322 7123 12969 | MDX 1 +35 XR1 PT TO OPERAND FLD PTM64415 0323 6700 06E2 12970 | A2010 LDX L3 CKEND SET EXIT ADDR OF SOURCE SCANPTM64420 0325 6F00 0402 12971 | STX L3 BLKX+1 *TO END OF RCD SUBR PTM64425 0327 1810 12972 | SRA 16 PTM64430 0328 D0F5 12973 | STO MCHA CLEAR CHAR CNT SW PTM64435 0329 D0F5 12974 | STO PSWTH CLEAR PARAM SW PTM64440 032A 6216 12975 | MCS11 LDX 2 MCS12-*-1 LENGTH OF MCCSN TABLE 212 PTM64457 032B 4400 05DE 12976 | BSI L M2CSN SCAN FOR TERMINATORS 2-12 PTM64460 032D 0040 12977 | DC . BLANK 212 PTM64462 032E 034F 12978 | DC NORM2 PROCESS OPERAND 212 PTM64463 032F 006B 12979 | DC /6B EBC COMMA PTM64465 0330 0371 12980 | DC NORM1 BR ADDR FOR COMMA PTM64470 0331 004E 12981 | DC /4E EBC PLUS PTM64475 0332 0371 12982 | DC NORM1 BR ADDR FOR PLUS PTM64480 0333 0050 12983 | AMPS0 DC /50 EBC AMPERSAND PTM64485 0334 05EE 12984 | DC CNAMP BR ADDR FOR AMPERSAND PTM64490 0335 0060 12985 | DC /60 EBC MINUS PTM64495 0336 0371 12986 | DC NORM1 BR ADDR FOR MINUS PTM64500 0337 005C 12987 | ASK DC .* EBCDIC ASTERISK 2-11 PTM64505 0338 0371 12988 | DC NORM1 BR ADDR FOR ASTERISK PTM64510 0339 004B 12989 | PEROD DC .. EBC PERIOD PTM64515 033A 05F5 12990 | DC CONPD BR ADDR FOR PERIOD PTM64520 033B 005D 12991 | DC /5D EBC RIGHT PAREN PTM64525 033C 06D0 12992 | DC NORM6 BR ADDR FOR RIGHT PAREN PTM64530 033D 004D 12993 | DC /4D EBC LEFT PAREN PTM64535 033E 06CB 12994 | DC NORM5 BR ADDR FOR LEFT PAREN PTM64540 033F 0061 12995 | DC ./ EBCDIC SLASH 212 PTM64545 0340 0371 12996 | DC NORM1 212 PTM64550 0341 007D 12997 | DC /7D EBC APOSTROPHE PTM64555 0342 0347 12998 | MCS12 DC MC123 BR ADDR FOR APOSTROPHE 2-12 PTM64560 12999 | * PTM64575 0343 7401 031E 13000 | MDX L MCHA,1 BUMP CHARACTER COUNT 2-12 PTM64590 0345 7101 13001 | MDX 1 1 BUMP POINTER 2-12 PTM64595 0346 70E3 13002 | MDX MCS11 GO SCAN AGAIN 2-12 PTM64600 13003 | * PTM64605 0347 7400 06C7 13004 | MC123 MDX L LPASW,0 SKIP IF OUTSIDE PARENS PTM64610 0349 7003 13005 | MDX NORM2-2 WITHIN PARENS,TREAT NORMALLYPTM64615 034A 7400 06C5 13006 | MDX L PSW,0 CHECK PASS SW PTM64620 034C 7024 13007 | MDX NORM1 PASS APOSTROPHE PTM64625 034D 4C00 02D2 13008 | BSC L QUOTE TREAT AS GENERATED LABEL PTM64630 13009 | * PTM64635 034F 7400 06C5 13010 | NORM2 MDX L PSW,0 SKIP IF NO PARAM FOUND PTM64640 0351 701F 13011 | MDX NORM1 BR TO PROC PARAM PTM64645 0352 7400 0257 13012 | MDX L COMSW,0 SKIP IF NO COMMENTS CARRIED PTM64650 0354 701C 13013 | MDX NORM1 BR TO CARRY COMMENTS PTM64655 0355 C400 06C1 13014 | NRM21 LD L MEOC GET END OF RCD FLAG PTM64660 0357 D100 13015 | STO 1 0 *AND SAVE IN SKELETON PTM64665 0358 7018 13016 | MDX NORMN *AND CONT SCAN PTM64685 13017 | * PTM64695 0359 C014 13018 | MCS15 LD TERM FETCH TERMINATOR PTM64700 035A 6580 036F 13019 | LDX I1 STOP RESET SCAN PT PTM64705 035C D100 13020 | STO 1 0 PLACE TERMINATOR IN SKELETONPTM64710 035D F0BF 13021 | EOR BLAN TEST FOR BLANK PTM64715 035E 7101 13022 | M15A MDX 1 1 INCR RCD COL PT PTM64720 035F EC00 06C3 13023 | OR L COMNT COMMENTS SW MUST BE 0 PTM64725 0361 EC00 06C5 13024 | OR L PSW IF PASS SW SET PTM64730 0363 4C20 0323 13025 | BSC L A2010,Z *SCAN NEXT FLD PTM64735 0365 4400 025F 13026 | MCRED BSI L LDXRS RESTORE XR1 AND XR3 PTM64740 0367 CB71 13027 | LDD 3 MLSTR-X3 SAVE SKELETON INFO IN CASE PTM64745 0368 DB39 13028 | STD 3 MCOM8-X3 *OF NESTED DEFINITION PTM64750 0369 4C00 0707 13029 | BSC L M2PLS TEST FOR MACRO INDR PTM64755 13030 | * PTM64760 13031 | * SUBROUTINE TO PROCESS NORMAL TERMINATION PTM64765 13032 | * CHECK STRING AGAINST PARAMETER LIST PTM64770 13033 | * PACK AND SAVE STRING IN SKELETON PTM64775 13034 | * EXIT ADDRESS MUST BE PRESTORED IN BLKX+1 PTM64780 13035 | * UPON ENTRY, PTM64785 13036 | * * XR1 POINTS TO LAST CHARACTER SCANNED+1 PTM64790 13037 | * * XR3 POINTS TO THE TERMINATOR PTM64795 13038 | * * LOCATION MCHA CONTAINS SIZE OF STRING PTM64800 13039 | * PTM64805 13040 | * PTM64810 13041 | * CONSTANTS AND INDICATORS PTM64815 13042 | * PTM64820 036B 0006 13043 | L6 DC 6 CONSTANT 6 PTM64825 036C 00FF 13044 | HFF DC /FF SCTR TRUNCATOR INDR PTM64830 036D 0000 13045 | DC *-* TEMP SAVE AREA PTM64835 036E 0000 13046 | TERM DC *-* TERMINATOR SAVE AREA PTM64840 036F 0000 13047 | STOP DC *-* COL OF SCAN TERMINATION PTM64845 0370 0000 13048 | CONSW DC *-* CONCATENATION SW PTM64850 13049 | * PTM64855 13050 | * PTM64860 0371 13051 | NORM1 EQU * 2-12 PTM64864 0371 C300 13052 | NORMN LD 3 0 SAVE TERMINATOR PTM64865 0372 D0FB 13053 | STO TERM PTM64870 0373 C0AA 13054 | BLKEN LD MCHA TEST CHAR CNT PTM64875 0374 4C18 0389 13055 | BSC L BLK01,+- BRANCH IF ZERO PTM64880 0376 62D0 13056 | LDX 2 -48 TEST FOR SKELETON TRUNCATIONPTM64885 0377 1240 13057 | SLCA 2 16 PTM64890 0378 72C4 13058 | MDX 2 -60 PTM64895 0379 7680 028B 13059 | MDX I2 MLSTR+1 ADJUST BY SKELETON PT PTM64900 037B 700D 13060 | MDX BLK01 BR IF NO TRUNCATION PTM64905 037C C400 028B 13061 | LD L MLSTR+1 GET SKELETON DISP PTM64910 037E 8026 13062 | A PAK+1 ADD SKELETON BFR START ADDR PTM64915 037F D001 13063 | STO *+1 PTM64920 0380 6600 0000 13064 | BLK00 LDX L2 *-* XR2 PT TO END SKELETON BFR PTM64925 0382 C0E9 13065 | LD HFF GET TRUNCATION INDR PTM64930 0383 7400 0631 13066 | MDX L BYTE,0 SKIP IF NO STORED DATA PTM64935 0385 EA00 13067 | OR 2 0 ADD STORED DATA TO INDR PTM64940 0386 D200 13068 | STO 2 0 SET TRUNCATION INDR PTM64945 0387 4400 060C 13069 | BSI L WRSKL WRITE SKELETON SCTR TO DISK PTM64950 13070 | * PTM64955 0389 6680 028B 13071 | BLK01 LDX I2 MLSTR+1 FETCH POS PT PTM64960 038B 6E00 043A 13072 | STX L2 MCSK2+1 SAVE SKELETON POS PTM64965 038D 69E1 13073 | STX 1 STOP SAVE SCAN STOP POS PTM64970 038E C0E0 13074 | LD STOP PTM64975 038F 908E 13075 | S MCHA CALCULATE START ADDR PTM64980 0390 D001 13076 | STO *+1 *OF CURRENT SCAN PTM64985 0391 6500 0000 13077 | PCK01 LDX L1 *-* XR1 PT TO START OF SCAN PTM64990 0393 6780 031E 13078 | LDX I3 MCHA XR3 IS STRING CNT PTM64995 13079 | * INCR CNT TO PTM65000 0395 7301 13080 | MDX 3 1 *INCLUDE TERMINATOR PTM65005 0396 C070 13081 | LD M2A80 PTM65010 0397 D400 06BD 13082 | STO L M2B10 SAVE INITIAL POS IN PH 2B PTM65015 0399 C400 0631 13083 | LD L BYTE SAVE LEFTHAND BYTE SW PTM65020 039B D06A 13084 | STO BYTE1 PTM65025 039C 7400 0370 13085 | MDX L CONSW,0 SKIP IF NO CONCATENATION PTM65030 13086 | * CONCATENATION - PTM65035 039E 73FF 13087 | MDX 3 -1 *DO NOT PLACE TERMINATOR PTM65040 039F 4C20 03AC 13088 | PCK02 BSC L PCK1,Z BR IF RIGHTHAND PACK PTM65045 13089 | * PTM65050 13090 | * LEFTHAND PACK SUBROUTINE PTM65055 13091 | * PTM65060 03A1 C100 13092 | PCK0 LD 1 0 FETCH CHAR PTM65065 03A2 1008 13093 | SLA 8 SHIFT TO LEFTHAND BYTE PTM65070 03A3 D063 13094 | STO M2A80 SAVE TEMPORARILY PTM65075 03A4 D600 0460 13095 | PAK STO L2 SKEL2 SAVE CHAR IN SKELETON PTM65080 03A6 6C00 0631 13096 | STX L0 BYTE SET LEFTHAND BYTE SW PTM65085 03A8 7101 13097 | MDX 1 1 XR1 PT TO NEXT CHAR PTM65090 03A9 73FF 13098 | MDX 3 -1 DECR STRING CNT PTM65095 03AA 7001 13099 | MDX *+1 BR TO CONT PACK PTM65100 03AB 7009 13100 | MDX PCK2 BR-STRING IN SKELETON PTM65105 13101 | * PTM65110 13102 | * RIGHTHAND PACK SUBROUTINE PTM65115 13103 | * PTM65120 03AC C100 13104 | PCK1 LD 1 0 FETCH CHAR FROM STRING PTM65125 03AD E859 13105 | OR M2A80 PACK TO LEFTHAND CHAR PTM65130 13106 | * BR TO SAVE IN SKELETON AND PTM65135 03AE 405D 13107 | BSI MCKND *CHECK END OF SKELETON SCTR PTM65140 03AF 1010 13108 | SLA 16 CLEAR LEFTHAND BYTE SW PTM65145 03B0 D400 0631 13109 | STO L BYTE PTM65150 03B2 7101 13110 | MDX 1 1 XR1 PT TO NEXT CHAR PTM65155 03B3 73FF 13111 | MDX 3 -1 DECR STRING CNT PTM65160 03B4 70EC 13112 | MDX PCK0 CONT PACKING STRING PTM65165 03B5 6A2B 13113 | PCK2 STX 2 MMOV0+1 SAVE SKELETON PT PTM65170 03B6 C400 0690 13114 | LD L CNT2B TEST FOR PARAM LIST PTM65175 03B8 4C18 03E0 13115 | BSC L MMOV0,+- BR IF NO PARAMETERS PTM65180 03BA C400 031E 13116 | LD L MCHA TEST CHAR CNT PTM65185 03BC 4C18 03E0 13117 | BSC L MMOV0,+- BR IF NO CHARS IN STRING PTM65190 03BE 90AC 13118 | S L6 TEST FOR LESS OR EQUAL 6 PTM65195 03BF 4C30 03E0 13119 | BSC L MMOV0,-Z BR IF STRING OF MORE THAN 6 PTM65200 03C1 6780 031E 13120 | PCK03 LDX I3 MCHA XR3 IS STRING CNT PTM65205 03C3 10A0 13121 | SLT 32 CLEAR PART OF NAME PTM65210 03C4 D843 13122 | STD YUK *BUFFER PTM65215 03C5 D044 13123 | STO YUK+2 PTM65220 03C6 6580 0392 13124 | LDX I1 PCK01+1 XR1 PT TO START OF STRING PTM65225 03C8 6600 0408 13125 | LDX L2 YUK XR2 PT TO PACK BUFFER PTM65230 03CA C100 13126 | PCK3 LD 1 0 FETCH CHAR PTM65235 03CB 1008 13127 | SLA 8 LEFTHAND CHAR PTM65240 03CC 73FF 13128 | MDX 3 -1 DECR STRING CNT PTM65245 03CD E901 13129 | OR 1 1 GET NEXT CHAR PTM65250 03CE D200 13130 | STO 2 0 SAVE TWO CHARACTERS PTM65255 03CF 7102 13131 | MDX 1 2 INCR STRING PT PTM65260 03D0 7201 13132 | MDX 2 1 INCR BFR PT PTM65265 03D1 7301 13133 | MDX 3 +1 INCR STRING CNT PTM65270 03D2 1000 13134 | NOP PTM65275 03D3 73FE 13135 | MDX 3 -2 DECR STRING CNT PTM65280 03D4 70F5 13136 | MDX PCK3 CONT TO PACK TEST BFR PTM65285 13137 | * TEST STRINGS OF 6 OR LESS CHARACTERS PTM65290 13138 | * *AGAINST PARAMETER NAME LIST PTM65295 03D5 6680 0690 13139 | LDX I2 CNT2B XR2 IS PARAM COUNT PTM65300 03D7 6100 13140 | LDX 1 0 XR1 IS PARAM BFR DISP PTM65305 03D8 C02F 13141 | MCPRE LD YUK TEST 1ST TWO CHARACTERS PTM65310 03D9 F500 05A0 13142 | EOR L1 BUFF PTM65315 03DB 4818 13143 | BSC +- SKIP IF NO MATCH PTM65320 03DC 703C 13144 | MDX MCHSK BR TO CHECK REST OF STRING PTM65325 03DD 7103 13145 | MCPR1 MDX 1 3 PT TO NEXT PARAM NAME PTM65330 03DE 72FF 13146 | MDX 2 -1 DECR PARAM CNT PTM65335 03DF 70F8 13147 | MCPRX MDX MCPRE CONT PARAM LIST CHECK PTM65340 03E0 6600 0000 13148 | MMOV0 LDX L2 *-* RESTORE SKELETON PT PTM65345 03E2 C025 13149 | LD YUK FETCH 1ST AND 2ND CHARS PTM65350 03E3 1808 13150 | SRA 8 RIGHT-JUSTIFY 1ST CHAR PTM65355 03E4 F400 0333 13151 | EOR L AMPS0 TEST FOR AMPERSAND PTM65360 03E6 4C20 03FA 13152 | BSC L NTAMP,Z BR IF NOT AMPERSAND PTM65365 03E8 7401 0392 13153 | MDX L PCK01+1,1 BUMP CHAR PT PTM65370 03EA 74FF 031E 13154 | MDX L MCHA,-1 DECR CHAR CNT PTM65375 03EC 1000 13155 | NOP MAY SKIP PTM65380 03ED C018 13156 | LD BYTE1 PTM65385 03EE 4C18 03F8 13157 | BSC L ZBYTE,+- BR-BYTE SW=0 PTM65390 03F0 7401 043A 13158 | MDX L MCSK2+1,1 BUMP SKEL DELTA PT PTM65395 03F2 1010 13159 | SLA 16 CLEAR ACC PTM65400 03F3 D012 13160 | MCPR2 STO BYTE1 SET BYTE SW PTM65405 03F4 C010 13161 | LD H5000 =5000 HEX PTM65410 03F5 D400 06BD 13162 | STO L M2B10 SET UP CONTINUATION PTM65415 03F7 70C9 13163 | MDX PCK03 REPROCESS WITHOUT AMPERSAND PTM65420 03F8 C000 13164 | ZBYTE LD * NON-ZERO VALUE PTM65425 03F9 70F9 13165 | MDX MCPR2 EXIT TO PROCESS PTM65430 03FA C00C 13166 | NTAMP LD M2A80 SAVE TEMP FOR POSSIBLE PTM65435 03FB D400 06BD 13167 | STO L M2B10 *OVERLAY BY NESTED DEF PTM65440 03FD C400 0370 13168 | LD L CONSW PTM65445 03FF 4CA0 0370 13169 | BSC I CONSW,Z BR IF CONCATENATION PTM65450 0401 4C00 0000 13170 | BLKX BSC L *-* BR TO CONT DEFINITION PTM65455 13171 | * PTM65460 13172 | * ALTERNATE ENTRY PTM65465 13173 | * PTM65470 0402 13174 | BLKXY EQU *-1 PTM65475 0403 4C00 0374 13175 | BSC L BLKEN+1 PTM65480 13176 | * PTM65485 13177 | * CONSTANTS,INDRS, AND BUFFERS PTM65490 13178 | * PTM65495 0405 5000 13179 | H5000 DC /5000 CONSTANT HEX 5000 PTM65500 0406 13180 | BYTE1 BSS E 1 SAVE LEFTHAND BYTE SW PTM65505 0407 0000 13181 | M2A80 DC *-* TEMP STORAGE PTM65510 0408 13182 | BSS E 0 FORCE EVEN ADDR PTM65515 0408 0000 13183 | YUK DC *-* TEMP PACK BFR FOR PTM65520 0409 0000 13184 | DC *-* *TESTING PARAM NAME PTM65525 040A 0000 13185 | DC *-* PTM65530 040B 0140 13186 | M2A70 DC 320 CONSTANT 320 PTM65535 13187 | * PTM65540 13188 | * SUBROUTINE TO CHECK FOR END OF SKELETON PTM65545 13189 | * *SECTOR. IF END,GO TO SUBROUTINE TO WRITE PTM65550 13190 | * *SECTOR TO DISK AND UPDATE MLSTR AND MLSTR+1 PTM65555 13191 | * PTM65560 040C 0000 13192 | MCKND DC *-* ENTRY PT PTM65565 040D D600 0460 13193 | MCKN1 STO L2 SKEL2 PLACE DATA IN SKELETON PTM65570 040F 7201 13194 | MDX 2 1 INCR SKELETON PT PTM65575 0410 C0FA 13195 | LD M2A70 CHECK FOR END OF SCTR PTM65580 0411 6E00 028B 13196 | STX L2 MLSTR+1 SAVE SKELETON INFORMATION PTM65585 0413 9400 028B 13197 | S L MLSTR+1 PTM65590 0415 4408 060C 13198 | BSI L WRSKL,+ WRITE CURRENT IF FULL PTM65595 0417 4C80 040C 13199 | BSC I MCKND RETURN TO CALLER PTM65600 13200 | * PTM65605 13201 | * CONTINUE PARAMETER LIST CHECK PTM65610 13202 | * *BRANCH HERE IF 1ST TWO CHARACTERS MATCH PTM65615 13203 | * PTM65620 0419 6A28 13204 | MCHSK STX 2 MCSK1+1 SAVE PARAM CNT PTM65625 041A 6600 0408 13205 | LDX L2 YUK XR2 PT TO TEST BFR PTM65630 041C C500 05A1 13206 | MCHSL LD L1 BUFF+1 GET NEXT WD FROM PARAM LIST PTM65635 041E F201 13207 | EOR 2 1 CMP TO TEST BFR PTM65640 041F 4820 13208 | BSC Z SKIP IF MATCH PTM65645 0420 7020 13209 | MDX MCSK1 BR IF NO MATCH PTM65650 0421 C500 05A2 13210 | LD L1 BUFF+2 GET NEXT WD FROM PARAM LIST PTM65655 0423 F202 13211 | EOR 2 2 CMP TO TEST BFR PTM65660 0424 4820 13212 | BSC Z SKIP IF MATCH PTM65665 0425 701B 13213 | MDX MCSK1 BR IF NO MATCH PTM65670 0426 6C00 031F 13214 | MPARA STX L0 PSWTH SET PARAMETER SW PTM65675 0428 1010 13215 | SLA 16 CLEAR CHAR CNT PTM65680 0429 D400 031E 13216 | STO L MCHA PTM65685 042B 6580 036F 13217 | MPAR1 LDX I1 STOP RESTORE SKELETON POS PTM65690 042D C100 13218 | LD 1 0 FETCH TERMINATOR AND PRE- PTM65695 042E D201 13219 | STO 2 1 *PARE FOR SKELETON INSERT PTM65700 042F 6700 0655 13220 | LDX L3 M2C01+/70 PTM65705 0431 C368 13221 | LD 3 M2B10-M2C01-/70 PTM65710 0432 D0D4 13222 | STO M2A80 RESTORE TEMP STORAGE PTM65715 0433 C33B 13223 | LD 3 CNT2B-M2C01-/70 CALC PARAM SKEL ADDR PTM65720 0434 900D 13224 | S MCSK1+1 PTM65725 0435 8390 13225 | A 3 -/70 ADD ONE PTM65730 0436 6500 0408 13226 | MCSK3 LDX L1 YUK PREPARE FOR SKELETON INSERT PTM65735 0438 6302 13227 | LDX 3 2 PTM65740 13228 | * PTM65745 13229 | * EXIT PROCEDURE PTM65750 13230 | * PTM65755 0439 6600 0000 13231 | MCSK2 LDX L2 *-* RESTORE SKELETON PT PTM65760 043B 6E00 028B 13232 | STX L2 MLSTR+1 *AND SAVE PTM65765 043D D100 13233 | STO 1 0 SET PARAM SKELETON ADDR PTM65770 043E C0C7 13234 | LD BYTE1 GET LEFTHAND BYTE SW PTM65775 043F 4C00 039C 13235 | BSC L PCK02-3 GO PACK PARAM PT PTM65780 13236 | * PTM65785 13237 | * PARAMETER NAME NOT FOUND PTM65790 13238 | * PTM65795 0441 6600 0000 13239 | MCSK1 LDX L2 *-* RESTORE PARAM CNT PTM65800 0443 7099 13240 | MDX MCPR1 CONT PARAM LIST CHECK PTM65805 0443 13241 | MC2AZ EQU *-1 END OF MACRO PH 2A PTM65810 *SBRKSLS EE 13242 | MACRO PHASE 2B - MACRO DEFINITION V2M08 PTM65815 MACRO PROCESSOR PHASE 2B, GENERATION 13244 | *************************************************** PTM65825 13245 | * * PTM65830 13246 | *STATUS - VERSION 2, MODIFICATION 11 * PTM65835 13247 | * * PTM65840 13248 | *FUNCTION/OPERATION- * PTM65845 13249 | * *MACRO PHASE 2B IN CONJUNCTION WITH MACRO * PTM65850 13250 | * PHASE 2A PROCESSES MACRO DEFINITION SOURCE * PTM65855 13251 | * STATEMENTS AND BUILDS THE MACRO PROTOTYPE, * PTM65860 13252 | * PLACING THE PROTOTYPE ON DISK. * PTM65865 13253 | * *MACRO PHASE 2B CONTAINS THE FOLLOWING BASIC * PTM65870 13254 | * SUBROUTINES. * PTM65875 13255 | * * GENERAL CHARACTER SCAN * PTM65880 13256 | * * CONCATENATION PROCESSING * PTM65885 13257 | * * SKELETON SECTOR DISK WRITE * PTM65890 13258 | * * END RECORD PROCESSING * PTM65895 13259 | * * RECORD SCAN FOR FIRST NONBLANK COLUMN * PTM65900 13260 | * * SPECIAL OP PROCESSING - LEFT AND RIGHT * PTM65905 13261 | * PARENS,DMES,EBC,AND ASTERISK * PTM65910 13262 | * * END OF RECORD PROCESSING * PTM65915 13263 | * * PTM65920 13264 | *ENTRY POINTS- * PTM65925 13265 | * *M2CSN - GENERAL CHARACTER SCAN * PTM65930 13266 | * *CNAMP - AMPERSAND CONCATENATION * PTM65935 13267 | * *CONPD - PERIOD CONCATENATION * PTM65940 13268 | * *WRSKL - WRITE SKELETON SECTOR TO DISK * PTM65945 13269 | * *END1 - END RECORD PROCESSING * PTM65950 13270 | * *EMDM - MEND RECORD PROCESSING * PTM65955 13271 | * *DKWRT - DISK WRITE * PTM65960 13272 | * *ASTK - COMMENTS PROCESSING * PTM65965 13273 | * *NDRM5 - LEFT PAREN PROCESSING * PTM65970 13274 | * *NORM6 - RIGHT PAREN PROCESSING * PTM65975 13275 | * *DMES - DMES AND EBC PROCESSING * PTM65980 13276 | * *CKEND - END OF RECORD PROCESSING * PTM65985 13277 | * *SETND - SCAN FOR FIRST NONBLANK COLUMN * PTM65990 13278 | * *CNAM1 - TRAILING APOSTROPHE PROCESSING * PTM65995 13279 | * * PTM66000 13280 | *INPUT- * PTM66005 13281 | * *MACRO DEFINITION SOURCE STATEMENT IN INPUT * PTM66010 13282 | * BUFFER * PTM66015 13283 | * *SKELETON SECTOR IN SKELETON SECTOR BUFFER * PTM66020 13284 | * * PTM66025 13285 | *OUTPUT- * PTM66030 13286 | * *MACRO DEFINITION PROTOTYPE ON DISK * PTM66035 13287 | * * PTM66040 13288 | *EXTERNAL REFERENCES- * PTM66045 13289 | * *SUBROUTINES- * PTM66050 13290 | * * DISK1 * PTM66055 13291 | * *THE FOLLOWING ENTRY POINTS TO MACRO PHASE * PTM66060 13292 | * 2A ARE USED BY MACRO PHASE 2B * PTM66065 13293 | * * CONSW - PROCESS WITH CONCATENATOR * PTM66070 13294 | * * MCGO2 - PROCESS SOURCE STATEMENT * PTM66075 13295 | * * MCKND - END OF SKELETON SCTR CHECK * PTM66080 13296 | * * MCS15 - FINAL RCD PROCESSING * PTM66085 13297 | * * MCS70-2 - PROCESS RCD AT FLAG FLD * PTM66090 13298 | * * NORMN - PROCESS NORMAL TERMINATOR * PTM66095 13299 | * * NORM1 - RESTORE AND CONT FLD SCAN * PTM66100 13300 | * * NRM21 - PLACE END OF RECORD FLAG * PTM66105 13301 | * * RDSRC - RESTORE MACRO PHASE 2 * PTM66110 13302 | * * A2010 - PROCESS RCD AT OPERAND FLD * PTM66115 13303 | * * NEST - NESTED DEFINITION * PTM66120 13304 | * * MCS70 - PROCESS RCD AT FLAG FIELD * PTM66125 13305 | * * PTM66130 13306 | * *ASMCM- * PTM66135 13307 | * * MCOM4 * PTM66140 13308 | * * MCOM8 * PTM66145 13309 | * * MCOM9 * PTM66150 13310 | * * RDBFR * PTM66155 13311 | * * SKLTN * PTM66160 13312 | * * SMAC0 * PTM66165 13313 | * * SYSLM * PTM66170 13314 | * *DCOM/COMMA- * PTM66175 13315 | * * IREQ * PTM66180 13316 | * * $1410 * PTM66185 13317 | * * PTM66190 13318 | *EXITS- * PTM66195 13319 | * *SEE EXTERNAL REFERENCES TO MACRO PHASE 2A * PTM66200 13320 | * * PTM66205 13321 | *TABLES/WORK AREAS- * PTM66210 13322 | * *SKEL0(SKEL2) - MACRO PROTOTYPE BUFFER * PTM66215 13323 | * BEGINS AT DEFSK+2 * PTM66220 13324 | * *SPOP - SPECIAL OP CODE TABLE * PTM66225 13325 | * *MPOP+2 - SPECIAL OP CODE BRANCH TABLE * PTM66230 13326 | * *BUFF - PROTOTYPE PARAMETER NAME BUFFER * PTM66235 13327 | * * PTM66240 13328 | *ATTRIBUTES-N/A * PTM66245 13329 | * * PTM66250 13330 | *NOTES- * PTM66255 13331 | * *MACRO PHASE 2B IS IN CORE,OVERLAYING PART OF * PTM66260 13332 | * ASSEMBLER PHASE 9,WHEN MACRO PHASE 2A IS IN * PTM66265 13333 | * CORE. MACRO PHASE 2B IS AN EXTENSION OF MACRO* PTM66270 13334 | * PHASE 2A. CONTROL SHIFTS BACK AND FORTH * PTM66275 13335 | * BETWEEN 2A AND 2B TO PROCESS MACRO DEFINITION* PTM66280 13336 | * SOURCE STATEMENTS. * PTM66285 13337 | * * PTM66290 13338 | *************************************************** PTM66295 05DC 13339 | ORG DEFSK+382 PTM66300 05DC 0157 13340 | DC MC2BZ-M2CSN WD CNT OF MACRO PH 2B PTM66305 05DD 00EE 13341 | DC /EE SLET ID OF MACRO PH 2B PTM66310 13342 | * PTM66315 13343 | * PTM66320 13344 | * GENERAL CHARACTER SCAN PTM66325 13345 | * *UPON ENTRY, PTM66330 13346 | * * XR1 POINTS TO CHAR PTM66335 13347 | * * XR2 CONTAINS PARAM LIST SIZE PTM66340 13348 | * *XR3 IS DESTROYED BY M2CSN PTM66345 13349 | * *CALLING SEQUENCE IS PTM66350 13350 | * * BSI M2CSN PTM66355 13351 | * * DC CHAR PTM66360 13352 | * * DC ADDR PTM66365 13353 | *ADDR IS LOCATION TRANSFERRED TO IF CHAR FOUND PTM66370 13354 | * PTM66375 13355 | * PTM66380 05DE 0000 13356 | M2CSN DC *-* ENTRY POINT PTM66385 05DF 6A0C 13357 | STX 2 INVL+1 SAVE XR2 FOR RESCAN PTM66390 05E0 6780 05DE 13358 | M2CS0 LDX I3 M2CSN XR2 PT TO PARAM LIST PTM66395 05E2 C100 13359 | M2CS1 LD 1 0 GET RCD COL PTM66400 05E3 F300 13360 | EOR 3 0 CMP WITH CALL CHAR PTM66405 05E4 4F98 0001 13361 | BSC I3 1,+- BR IF CHARS MATCH PTM66410 05E5 13362 | M2C01 EQU *-1 CONSTANT 1 PTM66415 05E6 7302 13363 | MDX 3 2 PT TO NEXT CMP PARAM PTM66420 05E7 72FE 13364 | MDX 2 -2 DECR SCAN CTR PTM66425 05E8 70F9 13365 | MDX M2CS1 CONT SCAN PTM66430 05E9 4F00 0000 13366 | SCNXT BSC L3 0 BR-NO SPECIAL CHAR FOUND PTM66435 05EB 6600 0000 13367 | INVL LDX L2 *-* RESTORE XR2 FOR RESCAN PTM66440 05ED 70F2 13368 | MDX M2CS0 BR TO RESCAN PTM66445 13369 | * PTM66450 13370 | * THE FOLLOWING SUBROUTINE PROCESSES PTM66455 13371 | * *THE CONCATENATORS & AND . PTM66460 13372 | * PTM66465 13373 | * THE FOLLOWING BRANCH ADDR IS MODIFIED PTM66470 13374 | * *BY MACRO PH 2 TO CNAM1 TO PROCESS PTM66475 13375 | * *AMPERSAND CONCATENATION IF IT OCCURS PTM66480 05EE 4C00 0371 13376 | CNAMP BSC L NORM1 PROCESS & CONCATENATOR PTM66485 05F0 6919 13377 | CNAM1 STX 1 RSTX1+1 SAVE SCAN POINTER PTM66490 05F1 7400 031E 13378 | MDX L MCHA,0 SKIP IF AMPERSAND PTM66495 05F3 700C 13379 | MDX CONCH PROC . CONCATENATOR PTM66500 05F4 70F1 13380 | MDX M2C01+1 PROC & AS ALPHA CHAR PTM66505 13381 | * PTM66510 13382 | * PROCESS PERIOD PTM66515 13383 | * PTM66520 05F5 C400 031E 13384 | CONPD LD L MCHA IF MCHA IS 0 PTM66525 05F7 4C18 06DB 13385 | BSC L DCTST,+- *CHECK IF DC STMNT 2-10 PTM66530 05F9 C400 06C5 13386 | LD L PSW IF PASS SWITCH SET PTM66535 05FB 4C20 0371 13387 | BSC L NORM1,Z *PROC NORMALLY PTM66540 05FD 690C 13388 | STX 1 RSTX1+1 SAVE SCAN POINTER PTM66545 05FE 7401 060A 13389 | MDX L RSTX1+1,1 INCR SCAN PT BY 1 PTM66550 13390 | * PTM66555 0600 4400 0370 13391 | CONCH BSI L CONSW SET SWITCH-GO TO NORMN PTM66560 0602 1010 13392 | SLA 16 CLEAR SWITCHES PTM66565 0603 D400 0370 13393 | STO L CONSW *FOR RESCAN PTM66570 0605 D400 031E 13394 | STO L MCHA PTM66575 0607 D400 031F 13395 | STO L PSWTH PTM66580 0609 6500 0000 13396 | RSTX1 LDX L1 *-* RESTORE RCD COL PT PTM66585 060B 70DF 13397 | MDX INVL *AND GO RESCAN PTM66590 13398 | * PTM66595 13399 | * WRITE SKELETON SCTR ON DISK PTM66600 13400 | * PTM66605 060C 0000 13401 | WRSKL DC *-* ENTRY POINT PTM66610 060D C0D7 13402 | LD M2C01 SET PT SW TO 1 PTM66615 060E D400 068E 13403 | STO L POINT 2-11 PTM66620 0610 4024 13404 | BSI DKWRT PERFORM DK WRITE PTM66625 0611 C400 045F 13405 | LD L SKEL2-1 UPDATE SCTR ADDR WD PTM66630 0613 80D1 13406 | A M2C01 PTM66635 0614 D400 028A 13407 | STO L MLSTR PTM66640 0616 D400 045F 13408 | STO L SKEL2-1 PTM66645 0618 1810 13409 | SRA 16 PTM66650 0619 D017 13410 | STO BYTE CLEAR BYTE PT PTM66655 061A D400 0460 13411 | STO L SKEL2 *AND CHAIN WD PTM66660 061C 6201 13412 | LDX 2 1 INITIALIZE INDEX 2 PTM66665 061D 6E00 028B 13413 | STX L2 MLSTR+1 *AND PROTOTYPE PT PTM66670 061F 6E00 043A 13414 | STX L2 MCSK2+1 *AND SAVE PTM66675 0621 4C80 060C 13415 | BSC I WRSKL RETURN TO CALLER PTM66680 13416 | * PTM66685 13417 | * END OF MACRO PROCESSING PTM66690 13418 | * PTM66695 0623 4C00 02F1 13419 | BSC L MCS70-1 CONT PROC DEFINITION PTM66700 0625 C06B 13420 | ENDM LD MEND FETCH AND STORE MEND INDR PTM66705 0626 74FF 0630 13421 | MDX L ENDM6,-1 DECR NEST CTR PTM66710 0628 70FA 13422 | MDX ENDM-2 NESTING-CONT PROC PTM66715 13423 | * PTM66720 0629 6680 043A 13424 | ENDM1 LDX I2 MCSK2+1 FETCH PROTOTYPE POINTER PTM66725 062B C065 13425 | LD MEND LD MEND INDR PTM66730 062C 4400 040C 13426 | BSI L MCKND CHECK FOR END OF SCTR PTM66735 062E 4C00 0282 13427 | BSC L RDSRC RETURN TO RESTORE PHASE 9 PTM66740 13428 | * PTM66745 13429 | * CONSTANTS AND INDRS PTM66750 13430 | * PTM66755 0630 0000 13431 | ENDM6 DC *-* DEFINITION NEST COUNTER PTM66765 0631 0000 13432 | BYTE DC *-* LEFTHAND BYTE SW PTM66770 13433 | * PTM66775 13434 | * PTM66780 13435 | * END RCD PROCESSING PTM66785 13436 | * PTM66790 0632 6C00 024E 13437 | END10 STX L0 MCOM4 SET END RCD SWITCH PTM66795 0634 70F4 13438 | MDX ENDM1 PROCESS AS MEND STATEMENT PTM66800 13439 | * PTM66805 13440 | * SUBROUTINE TO WRITE SCTR TO DISK PTM66810 13441 | * PTM66815 0635 0000 13442 | DKWRT DC *-* ENTRY POINT PTM66820 0636 C400 0256 13443 | LD L SMAC0 TEST FOR SYST MACRO PTM66825 0638 4C18 0650 13444 | BSC L UWRCK,+- BR- TEMP MACRO PTM66830 063A C400 045F 13445 | LD L SKEL2-1 CHECK FOR EXCEEDING SYST PTM66835 063C 9400 0247 13446 | S L SYSLM *PROTOTYPE LIMIT PTM66840 063E 4C10 0663 13447 | BSC L SKELS,- BR-DK AREA EXCEEDED PTM66845 13448 | * PTM66850 13449 | * MASK INTRPT REQ KEY TO PREVENT PTM66855 13450 | * *LOSS OF FILE PROTECT ADDRESS PTM66860 13451 | * PTM66865 0640 C400 002C 13452 | LD L $IREQ SAVE INTRPT REQ BR ADDR PTM66870 0642 D040 13453 | STO M2B02 PTM66875 0643 C040 13454 | LD M2B22 SET INTRPT BR ADDR PTM66880 0644 D400 002C 13455 | STO L $IREQ PTM66885 0646 1010 13456 | SLA 16 CLEAR ENT PT AND SWITCH PTM66890 0647 D011 13457 | STO MIRE2 PTM66895 13458 | * PTM66900 0648 4014 13459 | BSI WRTO WRITE SCTR TO DISK PTM66905 13460 | * PTM66910 0649 C039 13461 | LD M2B02 RESET INTRPT REQ ADDR PTM66915 064A D400 002C 13462 | STO L $IREQ PTM66920 064C C00C 13463 | LD MIRE2 TEST INTRPT REQ SW PTM66925 064D 44A0 002C 13464 | BSI I $IREQ,Z BR IF INTRPT REQ OCCURRED PTM66930 064F 7007 13465 | MDX WRT1 BR TO RETURN PTM66935 13466 | * PTM66940 0650 13467 | UWRCK EQU * PTM66945 0650 C400 045F 13468 | LD L SKEL2-1 TEST FOR EXCEEDING PTM66950 0652 9400 0229 13469 | S L ADJSA MINUS START OF W.S. PTM66955 0654 4C10 0680 13470 | BSC L SKELR,- BR-DK AREA EXCEEDED PTM66960 0656 4006 13471 | BSI WRTO WRITE SCTR TO DISK PTM66965 0657 4C80 0635 13472 | WRT1 BSC I DKWRT RETURN TO CALLER PTM66970 13473 | * PTM66975 13474 | * SUBROUTINE TO HANDLE INTRPT REQUEST KEY PTM66980 13475 | * PTM66985 0659 0000 13476 | MIRE2 DC *-* ENT PT - 0 IF NO INTRPT REQ PTM66990 065A 0831 13477 | XIO RES2B RESET KB/CP SWITCH PTM66995 065B 4C00 00D5 13478 | BSC L $1410 CONT ASM PTM67000 13479 | * PTM67005 13480 | * WRITE SCTR TO DISK PTM67010 13481 | * PTM67015 065D 0000 13482 | WRTO DC *-* ENTRY POINT PTM67020 065E C829 13483 | LDD M2B04 DK WR PARAM TO ACC, EXT PTM67025 065F 4400 0275 13484 | BSI L DISK1 WRITE DK SCTR PTM67030 0661 4C80 065D 13485 | BSC I WRTO RETURN TO CALLER PTM67035 13486 | * PTM67040 13487 | * PROTOTYPE AREA EXCEEDED PTM67045 13488 | * PTM67050 0663 C400 0246 13489 | SKELS LD L SMSEC SET DK READ SCTR ADDR PTM67055 0665 D400 045F 13490 | STO L SKEL2-1 PTM67060 0667 C81E 13491 | LDD M2B03 READ 1ST SCTR OF MACRO PTM67065 0668 4400 0275 13492 | BSI L DISK1 *LIBRARY INTO CORE PTM67070 066A C400 0461 13493 | LD L SKEL2+1 FETCH SCTR ADDR FOR END PTM67075 066C 8400 045F 13494 | A L SKEL2-1 *OF LIBRARY 2-11 PTM67077 066E D400 045F 13495 | STO L SKEL2-1 *OF LIBRARY INDR PTM67080 0670 6680 0462 13496 | LDX I2 SKEL2+2 GET FE INDR SCTR DISP PTM67085 0672 C813 13497 | LDD M2B03 READ END OF LIBRARY PTM67090 0673 4400 0275 13498 | BSI L DISK1 *SCTR INTO CORE PTM67095 0675 C01B 13499 | LD MEND SET END OF LIBRARY INDR PTM67100 0676 C015 13500 | LD TIESA RESTORE CHAIN POINTER 2-11 PTM67105 0677 D600 0461 13501 | STO L2 SKEL2+1 2-11 PTM67110 0679 C810 13502 | LDD TIESA-2 RESTORE CONCATENATE 2-11 PTM67115 067A D600 0462 13503 | STO L2 SKEL2+2 *LIBRARY NAME 2-11 PTM67120 067C 18D0 13504 | RTE 16 2-11 PTM67125 067D D600 0463 13505 | STO L2 SKEL2+3 2-11 PTM67130 067F 40DD 13506 | BSI WRTO WRITE ENDOF LIBRARY 2-11 PTM67135 0680 6208 13507 | SKELR LDX 2 8 POINT TO A10 ERROR MSG 2-11 PTM67140 0681 4400 079C 13508 | BSI L GETER PRINT ERROR MESSAGE 2-11 PTM67145 13509 | * PTM67150 13510 | * CONSTANTS PTM67155 13511 | * PTM67160 0683 0000 13512 | M2B02 DC *-* SAVE INTRPT REQ ADDR PTM67165 0684 0659 13513 | M2B22 DC MIRE2 $IREQ ADDR-TEMP PTM67170 0686 13514 | BSS E 0 FORCE EVEN ADDR PTM67175 0686 7000 13515 | M2B03 DC /7000 DK READ FUNC CODE PTM67180 0687 045E 13516 | DC SKEL2-2 I/O AREA ADDR PTM67185 0688 7001 13517 | M2B04 DC /7001 DK WR FUNC CODE PTM67190 0689 045E 13518 | DC SKEL2-2 I/O AREA ADDR PTM67195 068A 13519 | BSS E 0 FORCE EVEN ADDR PTM67200 068A 13520 | BSS 2 SAVE CONCATENATE NAME PTM67205 068C 13521 | RES2B EQU * PTM67210 068C 0000 13522 | TIESA DC *-* SAVE CONCATENATE INDR PTM67215 068D 0F01 13523 | DC /0F01 IOCC TO RESET KB/CP PTM67220 068E 0000 13524 | POINT DC *-* SKELETON PT PTM67225 068F 0040 13525 | M2BLK DC /40 EBC BLANK PTM67230 0690 13526 | BSS E 0 FORCE EVEN ADDR PTM67235 0690 0000 13527 | CNT2B DC *-* NUMBER OF PARAMETERS PTM67240 0691 FE00 13528 | MEND DC /FE00 END OF MACRO INDR PTM67245 13529 | * PTM67250 13530 | * PROCESS COMMENTS PTM67255 13531 | * PTM67260 0692 6832 13532 | ASTK STX 0 PSW SET TO PASS BLANKS PTM67265 0693 4C00 0323 13533 | BSC L A2010 CONTINUE SCAN PTM67270 13534 | * PTM67275 13535 | * SUBROUTINE TO SCAN RCD FOR BLANKS PTM67280 13536 | * PTM67285 0695 0000 13537 | SKIM DC *-* ENTRY POINT PTM67290 0696 6580 0238 13538 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM67295 0698 7148 13539 | MDX 1 +72 XR1 PT TO COL 72 PTM67300 0699 6333 13540 | LDX 3 51 XR3 CONTAINS MAX COL CNT PTM67305 069A C0F4 13541 | ASTK1 LD M2BLK FETCH EBC BLANK PTM67310 069B D400 036E 13542 | STO L TERM SET TERM TO BLANK PTM67315 069D D100 13543 | STO 1 0 FORCE COLUMN 72 TO BLANK PTM67320 069E F1FF 13544 | EOR 1 -1 TEST FOR BLANK PTM67325 069F 4820 13545 | BSC Z SKIP IF BLANK PTM67330 06A0 7003 13546 | MDX ASTK3 BR IF NONBLANK PTM67335 06A1 71FF 13547 | MDX 1 -1 XR1 PT TO NEXT RCD COL PTM67340 06A2 73FF 13548 | MDX 3 -1 TEST ONLY 51 COLUMNS PTM67345 06A3 70F6 13549 | MDX ASTK1 BR TO CHECK NEXT COL PTM67350 06A4 4C80 0695 13550 | ASTK3 BSC I SKIM RETURN TO CALLER PTM67355 13551 | * PTM67360 13552 | * SPECIAL OP TABLE PTM67365 13553 | * PTM67370 06A6 13554 | BSS E 0 FORCE EVEN ADDR PTM67375 06A6 13555 | SPOP EQU * PTM67380 06A6 D4C5 13556 | DC /D4C5 EBC ME PTM67385 06A7 D5C4 13557 | DC /D5C4 EBC ND PTM67390 06A8 D4C1 13558 | DC /D4C1 EBC MA PTM67395 06A9 C300 13559 | DC /C300 EBC C PTM67400 06AA E2D4 13560 | DC /E2D4 EBC SM PTM67405 06AB C1C3 13561 | DC /C1C3 EBC AC PTM67410 06AC C5C2 13562 | DC /C5C2 EBC EB PTM67415 06AD C300 13563 | DC /C300 EBC C PTM67420 06AE C5D5 13564 | DC /C5D5 EBC EN PTM67425 06AF C400 13565 | DC /C400 ENC D PTM67430 06B0 C4D4 13566 | DC /C4D4 EBC DM PTM67435 06B1 C5E2 13567 | DC /C5E2 EBC ES PTM67440 06B2 E7C6 13568 | DC /E7C6 EBC XFLC PTM67445 06B3 D3C3 13569 | DC /D3C3 PTM67450 06B4 C4C5 13570 | DC /C4C5 EBC DEC PTM67455 06B5 C300 13571 | DC /C300 PTM67460 06B6 D7E4 13572 | DC /D7E4 EBC PURG PTM67465 06B7 D9C7 13573 | DC /D9C7 PTM67470 13574 | * PTM67475 06B8 13575 | MOP BSS E 2 OP CODE BFR PTM67480 06BA 0625 13576 | DC ENDM PTM67485 06BB 0000 13577 | C2DND DC *-* END OF RCD INDR PTM67490 06BC 028E 13578 | DC NEST BR FOR MAC OP PTM67495 06BD 0000 13579 | M2B10 DC *-* TEMP STORAGE PTM67500 06BE 028E 13580 | DC NEST BR FOR SMAC OP PTM67505 06BF 0000 13581 | EBCSW DC *-* EBC OP SW PTM67510 06C0 06D7 13582 | DC EBC-1 BR ADDR FOR EBC OP 2-10 PTM67515 06C1 00FD 13583 | MEOC DC /FD END OF RCD INDR PTM67520 06C2 0632 13584 | DC END10 BR ADDR FOR END OF RCD PTM67525 06C3 0000 13585 | COMNT DC *-* COMMENTS SW PTM67530 06C4 06D7 13586 | DC DMES-1 BR ADDR FOR DMES OP 2-10 PTM67535 06C5 0000 13587 | PSW DC *-* PASS SW PTM67540 06C6 06D8 13588 | DC EBC BR ADDR FOR XFLC PTM67545 06C7 0000 13589 | LPASW DC *-* LEFT PAREN CTR PTM67550 06C8 06D8 13590 | DC EBC BR ADDR FOR DEC PTM67555 06C9 0041 13591 | M2PL1 DC /41 MACRO PLUS INDR PTM67560 06CA 06D8 13592 | DC EBC BR ADDR FOR PURG PTM67565 13593 | * PTM67570 13594 | * SPECIAL OP PROCESSING PTM67575 13595 | * PTM67580 06CB 7401 06C7 13596 | NORM5 MDX L LPASW,1 INCR LEFT PAREN CTR PTM67585 06CD 68F7 13597 | STX 0 PSW SET SW TO PASS PTM67590 06CE 4C00 0371 13598 | NORM7 BSC L NORM1 BR TO CONT PROC PTM67595 13599 | * PTM67600 06D0 74FF 06C7 13600 | NORM6 MDX L LPASW,-1 DECR LEFT PAREN CTR PTM67605 06D2 70FB 13601 | MDX NORM7 BR IF NOT LAST LEFT PAREN PTM67610 06D3 C03A 13602 | LD DMEBC PSW MUST NOT BE RESET 2-10 PTM67615 06D4 4818 13603 | BSC +- *IF OPER OF DMES OR EBC2-10 PTM67620 06D5 D0EF 13604 | STO PSW *NORMAL BLNK PROC PTM67625 06D6 70F7 13605 | MDX NORM7 CONT PROC PTM67630 13606 | * PTM67635 13607 | * PROCESS DMES OP PTM67640 13608 | * PTM67645 06D7 6836 13609 | STX 0 DMEBC SET DMES-EBC INDICATOR 2-10 PTM67650 06D8 68EC 13610 | DMES STX 0 PSW SET PASS SWITCH PTM67655 06D9 4C00 02F2 13611 | BSC L MCS70 CONT TO PROC RCD PTM67660 06D8 13612 | EBC EQU DMES PROC EBC AS DMES PTM67665 13613 | * 2-10 PTM67670 13614 | * PROCESS DC STMNT 2-10 PTM67675 13615 | * 2-10 PTM67680 06DB C0DC 13616 | DCTST LD MOP CHECK IF 2-10 PTM67685 06DC 9004 13617 | S HC4C3 *OP CODE IS DC 2-10 PTM67690 06DD 4818 13618 | BSC +- IF YES, 2-10 PTM67695 06DE 68E6 13619 | STX 0 PSW *SET THE SWITCH 2-10 PTM67700 06DF 4C00 0371 13620 | BSC L NORMN BRANCH BACK TO CONTINUE2-10 PTM67705 06E1 C4C3 13621 | HC4C3 DC /C4C3 EBCDIC FOR DC 2-10 PTM67710 13622 | * PTM67715 13623 | * END OF RECORD PROCESSING PTM67720 13624 | * PTM67725 06E2 13625 | CKEND EQU * PTM67730 06E2 C0D8 13626 | LD C2DND LD RCD END POS PTM67735 06E3 9400 036F 13627 | S L STOP CMP WITH RCD STOP POS PTM67740 06E5 7400 0257 13628 | MDX L COMSW,0 SKIP IF NO COMMENTS PTM67745 06E7 D0DB 13629 | STO COMNT SET RCD COMMENTS SW PTM67750 13630 | * THE FOLLOWING BR ADDR IS ALTERED PTM67755 13631 | * *IF COMMENTS ARE TO BE CARRIED ON PTM67760 13632 | * *PROTOTYPE PTM67765 06E8 4C30 0359 13633 | COMBR BSC L MCS15,-Z BR IF END OF RCD PTM67770 06EA 1010 13634 | SLA 16 CLEAR SWITCHES TO PTM67775 06EB D0D9 13635 | STO PSW *ENABLE FURTHER RCD PTM67780 06EC D021 13636 | STO DMEBC RESET DMES-EBC INDIC 2-10 PTM67785 06ED D0D9 13637 | STO LPASW *PROCESSING PTM67790 06EE D0D4 13638 | STO COMNT CLEAR INTERNAL COMMENTS SW PTM67795 06EF D400 031E 13639 | STO L MCHA CLEAR CHAR CNT PTM67800 06F1 C0CF 13640 | LD MEOC GET END OF RCD INDR PTM67805 06F2 6580 036F 13641 | LDX I1 STOP XR1 PT TO LAST RCD COL PTM67810 06F4 F100 13642 | EOR 1 0 TEST FOR END OF RCD INDR PTM67815 06F5 6700 031D 13643 | LDX L3 BLAN XR3 PT TO BLANK PROC PTM67820 06F7 4C20 0355 13644 | BSC L NRM21,Z BR TO PLACE END OF RCD INDR PTM67825 06F9 4C00 0359 13645 | BSC L MCS15 BR TO CONT DEFINITION PTM67830 13646 | * PTM67835 13647 | * DETERMINE LAST NONBLANK COL PTM67840 13648 | * PTM67845 06FB 4099 13649 | SETND BSI SKIM DETERMINE LAST NONBLANK PTM67850 06FC 69BE 13650 | STX 1 C2DND *COL AND SAVE AS END OF RCD PTM67855 06FD CC00 0252 13651 | LDD L MCOM8 FETCH COMMUNICATIONS CELLS PTM67860 06FF 4C00 0297 13652 | BSC L MCGO2 *AND BR TO CONTINUE PTM67865 0701 D400 031E 13653 | MCS2B STO L MCHA PTM67870 0703 D400 040A 13654 | STO L YUK+2 PTM67875 0705 4C00 02AF 13655 | BSC L MCS00 PTM67880 0707 C0C1 13656 | M2PLS LD M2PL1 LD MACRO PLUS INDR PTM67885 0708 7400 07AF 13657 | MDX L MACEX,0 TEST FOR MACRO EXPANSION PTM67890 070A 7001 13658 | MDX *+1 SLIP-NO MACRO EXPANSION PTM67895 070B D148 13659 | STO 1 +72 STORE MACRO & INDR PTM67900 070C 4C00 0293 13660 | BSC L MCGO1 GET,PROCESS NEXT RECORD2-10 PTM67905 070E 0000 13661 | DMEBC DC *-* DMES-EBC STMNT SWITCH 2-10 PTM67910 070F 1808 13662 | FIVCH SRA 8 GET FIFTH 2-10 PTM67915 0710 1008 13663 | SLA 8 *CHARACTER AND 2-10 PTM67920 0711 EC00 068F 13664 | OR L M2BLK *BLANK IN ACC 2-10 PTM67925 0713 74FB 031E 13665 | MDX L MCHA,-5 GO BACK AGAIN WITH 2-10 PTM67930 0715 7001 13666 | MDX INSBL *NOTHING DONE IF NO 2-10 PTM67935 0716 700D 13667 | MDX BACK *CONT MARK IN COL 32 2-10 PTM67940 0717 7400 0406 13668 | INSBL MDX L BYTE1,0 OTHERWISE,INSERT AN 2-10 PTM67945 0719 1008 13669 | SLA 8 *EXTRA BLANK AS TERMI- 2-10 PTM67950 071A D600 045F 13670 | STO L2 SKEL2-1 *NATOR BEFORE COL 32 2-10 PTM67955 071C D400 0407 13671 | STO L M2A80 SAVE ALSO IN TEMP 2-10 PTM67960 071E C400 0406 13672 | LD L BYTE1 REORDER LEFT-RIGHT 2-10 PTM67965 0720 D400 0631 13673 | STO L BYTE *SWITCHES 2-10 PTM67970 0722 4820 13674 | BSC Z DECREMENT POINTER DEPEN2-10 PTM67975 0723 72FF 13675 | MDX 2 -1 *DING ON WHETHER L OR R2-10 PTM67980 0724 4C00 02F1 13676 | BACK BSC L MCS70-1 GO BACK TO CONTINUE 2-10 PTM67985 0726 13677 | BSS /0735-* MACRO PH 2,2A,2B PATCH 2-10 PTM67990 0735 0000 13678 | MC2BZ DC 0 END OF MACRO PH 2B PTM67995 *SBRKSLS EF 13679 | MACRO PHASE 3 - MACRO EXPANSION V2M08 PTM68000 MACRO PROCESSOR PHASE 3, EXPANSION 13681 | *************************************************** PTM68010 13682 | * * PTM68015 13683 | *STATUS-VERSION 2,MODIFICATION 8 * PTM68020 13684 | * * PTM68025 13685 | *FUNCTION/OPERATION- * PTM68030 13686 | * *MACRO PHASE 3 IN CONJUNCTION WITH MACRO PHASE* PTM68035 13687 | * 3B EXPANDS THE MACRO CALL. IT IS LOADED BY * PTM68040 13688 | * MACRO PHASE 3A WHICH TRANSFERS CONTROL TO IT.* PTM68045 13689 | * *MACRO PHASE 3 MODIFIES THE ASM RDCRD SUB- * PTM68050 13690 | * ROUTINE TO RETURN TO A MACRO EXPANDER WHEN A * PTM68055 13691 | * RECORD HAS BEEN READ. IT INITIALIZES THE I/O * PTM68060 13692 | * HEADER OF THE SKELETON BUFFER AND TRANSFERS * PTM68065 13693 | * CONTROL TO MACRO PHASE 3B. * PTM68070 13694 | * *MACRO PHASE 3 CONTAINS THE SKELETON SECTOR * PTM68075 13695 | * READ SUBROUTINE,THE SUBROUTINE TO CLEAR THE * PTM68080 13696 | * INPUT BUFFER TO BLANKS,AND VARIOUS COMMON * PTM68085 13697 | * CONSTANTS,SAVE AREAS,AND INDICATORS OF THE * PTM68090 13698 | * EXPANDER. * PTM68095 13699 | * *MACRO PHASE 3 OVERLAYS THE RDCRD SUBROUTINE * PTM68100 13700 | * WITH THE EXCEPTION OF THE FIRST FEW WORDS. * PTM68105 13701 | * * PTM68110 13702 | *ENTRY POINTS- * PTM68115 13703 | * *MCEXP - RDCRD INTERFACE AND SKELETON READ * PTM68120 13704 | * INITIALIZATION * PTM68125 13705 | * ENTER FROM MACRO PHASE 3A * PTM68130 13706 | * * PTM68135 13707 | *INPUT- * PTM68140 13708 | * *PARAMETER STRINGS FOR MACRO NEST BEING PRO- * PTM68145 13709 | * CESSED IN PBUFF AND PARAMETER SPILL AREA ON * PTM68150 13710 | * DISK. * PTM68155 13711 | * * PTM68160 13712 | *OUTPUT-N/A * PTM68165 13713 | * * PTM68170 13714 | *EXTERNAL REFERENCES- * PTM68175 13715 | * *SUBROUTINES- * PTM68180 13716 | * * BGASM * PTM68185 13717 | * * DISK1 * PTM68190 13718 | * * PALBL * PTM68195 13719 | * *ASMCM- * PTM68200 13720 | * * RDBFR * PTM68205 13721 | * *DCOM/COMMA-NONE * PTM68210 13722 | * *THE FOLLOWING ASM SUBROUTINES ARE OVERLAID * PTM68215 13723 | * BY THE MACRO EXPANDER * PTM68220 13724 | * * P9468 * PTM68225 13725 | * * RDCRD * PTM68230 13726 | * *THE FOLLOWING MACRO PHASE 3B REFERENCE ARE * PTM68235 13727 | * MADE * PTM68240 13728 | * * DECOI * PTM68245 13729 | * * FDNXT * PTM68250 13730 | * * PTM68255 13731 | *EXITS- * PTM68260 13732 | * *DECOI - ENTER MACRO PHASE 3B TO BEGIN DECODE * PTM68265 13733 | * AND BUILD EXPANSION * PTM68270 13734 | * * PTM68275 13735 | *TABLES/WORK AREAS- * PTM68280 13736 | * *GENNM-GENERATED NAME NUMBER BUFFER * PTM68285 13737 | * *PBUFF-PARAMETER STRING BUFFER * PTM68290 13738 | * *SECAD-MACRO NEST SECTOR ADDR TBL * PTM68295 13739 | * *SKEL1-MACRO PROTOTYPE DISK SECTOR * PTM68300 13740 | * * PTM68305 13741 | *ATTRIBUTES-N/A * PTM68310 13742 | * * PTM68315 13743 | *NOTES- * PTM68320 13744 | * *MACRO PHASE 3 IS LOADED OVER THE RDCRD * PTM68325 13745 | * SUBROUTINE IN ASM PH 9. RDCRD IS REFRESHED * PTM68330 13746 | * BY MACRO PHASE 3A. * PTM68335 13747 | * * PTM68340 13748 | *************************************************** PTM68345 07AC 13749 | ORG RDCRD+4 PTM68350 07AC 0050 13750 | DC MZ300-GENSW WD CNT OF PHASE PTM68355 07AD 00EF 13751 | M3900 DC /EF SLET ID OF MACRO PH 3 PTM68360 13752 | * PTM68365 13753 | * CONSTANTS,INDICATORS, AND TABLES PTM68370 13754 | * PTM68375 07AE 0000 13755 | GENSW DC *-* GENERATED NAME SW PTM68380 07AF 0000 13756 | MACEX DC 0 MACRO PH 3 LOAD INDR PTM68385 07B0 00DD 13757 | DEPTH DC /DD INITIAL DEPTH CONSTANT PTM68390 07B1 0000 13758 | MACCT DC 0 INITIAL DEPTH CTR PTM68395 07B2 13759 | SECAD BSS E 20 MACRO SCTR ADDR TBL PTM68400 07C6 1419 13760 | GENGO DC FDNXT RDCRD MODIFIER PTM68405 07C7 07E0 13761 | ENTR1 DC INIMC RDCRD MODIFIER PTM68410 13762 | * PTM68415 13763 | * BEGIN MACRO EXPANSION PTM68420 13764 | * PTM68425 07C8 13765 | MCEXP EQU * PTM68430 07C8 C0FE 13766 | LD ENTR1 MODIFY RDCRD TO RETURN TO PTM68435 07C9 D0E0 13767 | STO RDCRD+2 *MACRO EXPANDER PTM68440 07CA C400 0252 13768 | LD L MCOM8 SET SKEL SCTR ADDR PTM68445 07CC D400 0C47 13769 | STO L SKEL1+1 PTM68450 07CE C00F 13770 | LD MCNX1 SET SKEL BFR WD CNT PTM68455 07CF D400 0C46 13771 | STO L SKEL1 PTM68460 07D1 4C00 02C4 13772 | BSC L MCOP7 BR TO INCR NEST CTRS PTM68465 07D3 4024 13773 | MCNX2 BSI RDSK READ SKEL SCTR PTM68470 07D4 6700 0219 13774 | MCNX LDX L3 ASMCM RESTORE XR3 PTM68475 07D6 4400 074B 13775 | BSI L PALBL READ NEXT RCD PTM68480 07D8 4400 025F 13776 | BSI L LDXRS RESTORE XR1 AND XR3 PTM68485 07DA 4C00 045D 13777 | BSC L BGASM PROCESS NEXT RCD PTM68490 13778 | * PTM68495 13779 | * CONSTANTS PTM68500 13780 | * PTM68505 0C40 13781 | GENNM EQU P9468+40 GENERATED NAME BFR PTM68510 07DC 13782 | BSS E 0 FORCE EVEN ADDR PTM68515 07DC 7000 13783 | M3901 DC /7000 DK READ FUNC CODE PTM68520 07DD 0C46 13784 | DC SKEL1 I/O AREA ADDR PTM68525 07DE 0140 13785 | MCNX1 DC 320 CONSTANT 320 PTM68530 07DF 0015 13786 | DEEP DC 21 MAX DEPTH + 1 PTM68535 13787 | * PTM68540 13788 | * RETURN FROM 1ST RECORD READ PTM68545 13789 | * PTM68550 07E0 C0E5 13790 | INIMC LD GENGO SET RDCRD TO RETURN TO PTM68555 07E1 D0C8 13791 | STO RDCRD+2 *MACRO EXPANDER PTM68560 07E2 4002 13792 | BSI SCLR CLEAR I/P AREA TO BLANKS PTM68565 07E3 4C00 12F8 13793 | INIM1 BSC L DECOI BR TO DECODE PROTOTYPE PTM68570 13794 | * PTM68575 13795 | * SUBR TO CLEAR I/P BFR TO BLANKS PTM68580 13796 | * PTM68585 07E5 0000 13797 | SCLR DC *-* ENTRY PT PTM68590 07E6 6A0A 13798 | STX 2 SCLRX+1 SAVE XR2 PTM68595 07E7 6250 13799 | LDX 2 80 LOOP CTR TO I/P AREA SIZE PTM68600 07E8 6780 0238 13800 | LDX I3 RDBFR XR3 PT TO I/P AREA PTM68605 07EA C00B 13801 | SCLR1 LD SCLR2 FETCH BLANK PTM68610 07EB D301 13802 | STO 3 1 CLEAR I/P AREA TO BLANK PTM68615 07EC 7301 13803 | MDX 3 1 INCR I/P AREA PT PTM68620 07ED 72FF 13804 | MDX 2 -1 DECR LOOP CTR PTM68625 07EE 70FC 13805 | MDX SCLR1+1 CONT CLEAR OPERATION PTM68630 07EF 6334 13806 | LDX 3 52 SET XR3 TO 51 PTM68635 07F0 6600 0000 13807 | SCLRX LDX L2 *-* RESTORE XR2 PTM68640 07F2 4C80 07E5 13808 | BSC I SCLR RETURN TO CALLER PTM68645 13809 | * PTM68650 13810 | * CONSTANT PTM68655 13811 | * PTM68660 07F4 13812 | BSS E 0 FORCE EVEN ADDR PTM68665 07F4 0000 13813 | RDSKS DC *-* TEMP SAVE AREA - ACC PTM68670 07F5 0000 13814 | DC *-* TEMP SAVE AREA - EXT PTM68675 07F6 0040 13815 | SCLR2 DC . EBC BLANK PTM68680 13816 | * PTM68685 13817 | * SKELETON DISK READ SUBR PTM68690 13818 | * PTM68695 07F7 4C00 0000 13819 | DK0UT BSC L *-* RETURN TO CALLER PTM68700 07F8 13820 | RDSK EQU *-1 ENTRY PT ADDR PTM68705 07F9 D8FA 13821 | STD RDSKS SAVE ACC AND EXT PTM68710 07FA C8E1 13822 | LDD M3901 DK READ PARAM TO ACC,EXT PTM68715 07FB 4400 0275 13823 | BSI L DISK1 READ SKELETON SCTR PTM68720 07FD C8F6 13824 | LDD RDSKS RESTORE ACC AND EXT PTM68725 07FE 70F8 13825 | MDX DK0UT RETURN TO CALLER PTM68730 07FE 13826 | MZ300 EQU *-1 END OF MACRO PH 3 PTM68735 *SBRKSLS F0 13827 | MACRO PHASE 3A - MACRO EXPANSION V2M08 PTM68740 MACRO PROCESSOR PHASE 3A, EXPANSION 13829 | *************************************************** PTM68750 13830 | * * PTM68755 13831 | *STATUS-VERSION 2,MODIFICATION 8 * PTM68760 13832 | * * PTM68765 13833 | *FUNCTION/OPERATION- * PTM68770 13834 | * *MACRO PHASE 3A IS LOADED INTO CORE BY MACRO * PTM68775 13835 | * PHASE 1 TO INITIALIZE MACRO EXPANSION. * PTM68780 13836 | * *IN BOTH PASSES UNDER TWO PASS MODE AND IN * PTM68785 13837 | * PASS ONE UNDER ONE PASS MODE,MACRO PHASE 3A * PTM68790 13838 | * LOADS MACRO PHASE 3 INTO CORE. * PTM68795 13839 | * *MACRO PHASE 3A THEN SCANS THE MACRO CALL * PTM68800 13840 | * STATEMENT AND BUILDS THE PARAMETER STRING * PTM68805 13841 | * LIST.IT FINALLY TRANSFERS CONTROL TO MACRO 3.* PTM68810 13842 | * *IF A PARAMETER STRING IS INVALID,MACRO PHASE * PTM68815 13843 | * 3A ISSUES THE SYNTAX FLAG FOR THE CALL. * PTM68820 13844 | * *IF PARAMETER SPILL OVERFLOW OCCURS-I.E.,NOT * PTM68825 13845 | * ENOUGH DISK SPACE AVAILABLE TO PROCESS ALL * PTM68830 13846 | * PARAMETER STRINGS-MACRO PHASE 3A ISSUES THE * PTM68835 13847 | * A09 ERROR MSG AND ABORTS THE ASSEMBLY. * PTM68840 13848 | * *IN PASS TWO OF ONE PASS MODE,MACRO PH 3A AND * PTM68845 13849 | * HENCE EXPANSION IS BYPASSED. * PTM68850 13850 | * * PTM68855 13851 | *ENTRY POINT- * PTM68860 13852 | * *RDP3-ENTER FROM MACRO PHASE 1 * PTM68865 13853 | * * PTM68870 13854 | *INPUT- * PTM68875 13855 | * *MACRO CALL STATEMENT IN INPUT BUFFER. * PTM68880 13856 | * * PTM68885 13857 | *OUTPUT- * PTM68890 13858 | * *PARAMETER STRINGS PROCESSED AND SAVED IN * PTM68895 13859 | * PBUFF. * PTM68900 13860 | * * PTM68905 13861 | *EXTERNAL REFERENCES- * PTM68910 13862 | * *SUBROUTINES- * PTM68915 13863 | * * BGASM * PTM68920 13864 | * * DISK1 * PTM68925 13865 | * * ERFLG * PTM68930 13866 | * * GETER * PTM68935 13867 | * * PALBL * PTM68940 13868 | * * RDCRD * PTM68945 13869 | * * SCAN * PTM68950 13870 | * *ASMCM- * PTM68955 13871 | * * MCOM0 * PTM68960 13872 | * * MCOM3 * PTM68965 13873 | * * MCOM9 * PTM68970 13874 | * * PARAM * PTM68975 13875 | * * PASS * PTM68980 13876 | * * PSMDE * PTM68985 13877 | * * RDBFR * PTM68990 13878 | * * THRT2 * PTM68995 13879 | * * VALUE * PTM69000 13880 | * *DCOM/COMMA- * PTM69005 13881 | * * $EXIT * PTM69010 13882 | * * $IBSY * PTM69015 13883 | * * $PHSE * PTM69020 13884 | * * PTM69025 13885 | *EXITS- * PTM69030 13886 | * *MCEXP-ENTER MACRO PHASE 3 TO BEGIN MACRO * PTM69035 13887 | * EXPANSION. * PTM69040 13888 | * *BGASM-BYPASS MACRO EXPANSION,CONTINUE * PTM69045 13889 | * ASSEMBLY. * PTM69050 13890 | * * PTM69055 13891 | *TABLES/WORK AREAS- * PTM69060 13892 | * *MACTB-MACRO NEST TABLE * PTM69065 13893 | * *PBUFF-PARAMETER STRING BUFFER * PTM69070 13894 | * *SECAD-MACRO NEST SCTR ADDR TBL * PTM69075 13895 | * *SKEL1-SKELETON BUFFER * PTM69080 13896 | * * PTM69085 13897 | *ATTRIBUTES-N/A * PTM69090 13898 | * * PTM69095 13899 | *NOTES-N/A * PTM69100 13900 | * * PTM69105 13901 | *************************************************** PTM69110 0280 13902 | ORG OVLAY PTM69115 0280 01AE 13903 | DC M3Z00-A3000 WD CNT OF PHASE PTM69120 0281 FF10 13904 | DC -/F0 SLET ID OF MACRO PH 3A PTM69125 0282 003A 13905 | P3A00 DC P3X-P3A00 ADDR OF SLET TBL PTM69130 0283 0001 13906 | DC 1 NO. OF SLET ENT TO FILL PTM69135 0282 13907 | ORG *-2 PTM69140 13908 | * PTM69145 13909 | * INTERPHASE BRANCH TABLE PTM69150 13910 | * *IF PRESENT, ALWAYS AT BEGINNING OF PTM69155 13911 | * *OVERLAY AREA PTM69160 13912 | * PTM69165 0282 4C00 04C1 13913 | A3000 BSC L GETS5 +2 FETCH PH 5 PTM69170 0284 4C00 04C3 13914 | BSC L GETS6 +4 FETCH PH 6 PTM69175 0286 4C00 04C5 13915 | BSC L GETS7 +6 FETCH PH 7 PTM69180 0288 4C00 04CA 13916 | BSC L GETS8 +8 FETCH PH 8 PTM69185 028A 4C00 04CC 13917 | BSC L GTS8A +10 FETCH PH 8A PTM69190 028C 4C00 04CE 13918 | BSC L GTS12 +12 FETCH PH 12 PTM69195 028E 4C00 04C7 13919 | BSC L GTS13 +14 FETCH MACRO PH 1 PTM69200 0290 4C00 04D0 13920 | BSC L GETS2 +16 FETCH PH 2 PTM69205 13921 | * PTM69210 13922 | * BEGIN MACRO PHASE 3A HERE PTM69215 13923 | * READ MACRO PHASE 3 INTO CORE PTM69220 13924 | * PTM69225 0292 13925 | RDP3 EQU * PTM69230 0292 C400 020C 13926 | LD L PSMDE PTM69235 0294 4C18 029D 13927 | BSC L RDP30,+- BR- NOT TWO PASS MODE PTM69240 0296 C400 020A 13928 | LD L LDKOP TEST FOR LIST DECK OPTION PTM69245 0298 4C18 029D 13929 | BSC L RDP30,+- BR-NO LIST DECK OPTION SET PTM69250 029A 620B 13930 | LDX 2 +11 PREPARE TO PTM69255 029B 4400 079C 13931 | BSI L GETER PRINT A22 ERROR MSG PTM69260 029D 13932 | RDP30 EQU * PTM69265 029D C01B 13933 | LD A3903 SET PH ID INDR PTM69270 029E D400 0078 13934 | STO L $PHSE PTM69275 02A0 C040 13935 | LD A3900 SET WD CNT PTM69280 02A1 D400 128E 13936 | STO L PBUFF *FOR PBUFF PTM69285 02A3 7400 020C 13937 | MDX L PSMDE,0 TEST PASS MODE PTM69300 02A5 703C 13938 | MDX PRSCN BR IF TWO PASS MODE PTM69305 02A6 7400 020D 13939 | MDX L PASS,0 TEST PASS OF ASM PTM69310 02A8 7017 13940 | MDX P3Y BR TO RESTORE, 2ND PASS PTM69315 02A9 7038 13941 | MDX PRSCN BR TO BEGIN EXPANSION PTM69320 13942 | * PTM69325 13943 | * FETCH MACRO PHASE 3 PTM69330 13944 | * PTM69335 02AA C400 07AF 13945 | RDP31 LD L MACEX GET MACRO PH 3 SW PTM69340 02AC 4C18 07C8 13946 | BSC L MCEXP,+- BR TO MACRO PH 3 PTM69345 02AE C80F 13947 | LDD P3X+2 SET WD CNT,SCTR ADDR OF PTM69350 02AF DC00 07AC 13948 | STD L RDCRD+4 *MACRO PH 3 IN HDR PTM69355 02B1 C808 13949 | LDD A3905 DK READ PARAM TO ACC,EXT PTM69360 02B2 4400 0275 13950 | BSI L DISK1 FETCH MACRO PH 3 PTM69365 02B4 7400 0013 13951 | MDX L $IBSY,0 CONT ONLY AFTER I/P PTM69370 02B6 70FD 13952 | MDX *-3 *COMPLETED PTM69375 02B7 4C00 07C8 13953 | BSC L MCEXP BR TO MACRO PH 3 PTM69380 13954 | * PTM69385 13955 | * CONSTANTS AND SLET TBL PTM69390 13956 | * PTM69395 02B9 00F0 13957 | A3903 DC /F0 SLET ID OF MACRO PH 3A PTM69400 02BA 13958 | BSS E 0 FORCE EVEN ADDR PTM69410 02BA 7000 13959 | A3905 DC /7000 DK READ FUNC CODE PTM69415 02BB 07AC 13960 | DC RDCRD+4 I/O AREA ADDR PTM69420 02BC 13961 | BSS E 0 FORCE EVEN ADDR PTM69425 02BC 00EF 13962 | P3X DC /EF SLET ID OF MACRO PH 3 PTM69430 02BD 13963 | BSS 3 PTM69435 13964 | * PTM69440 13965 | * RETURN TO CONT ASSEMBLY PTM69445 13966 | * PTM69450 02C0 4400 074B 13967 | P3Y BSI L PALBL READ A RECORD PTM69455 02C2 4C00 045D 13968 | BSC L BGASM CONT ASSEMBLY PTM69460 13969 | * PTM69465 13970 | * PTM69470 13971 | * BEGIN EXPANSION PTM69475 13972 | * ENTER FROM MACRO PH 3 PTM69480 13973 | * PTM69485 02C4 7402 07B1 13974 | MCOP7 MDX L MACCT,2 INCR DEPTH CTR PTM69490 02C6 7401 07B0 13975 | MDX L DEPTH,1 INCR DEPTH SYMBOL PTM69495 02C8 74FF 07DF 13976 | MDX L DEEP,-1 TEST MAX DEPTH CTR PTM69500 02CA 7002 13977 | MDX *+2 SKIP IF DEPTH NOT MAX PTM69505 02CB 4C00 040C 13978 | BSC L FE03 BR IF DEPTH EXCEEDS MAX PTM69510 02CD 6680 07B1 13979 | LDX I2 MACCT XR2 IS DEPTH CTR PTM69515 02CF 6780 07DF 13980 | LDX I3 DEEP SET TBL PT PTM69520 02D1 C400 0C47 13981 | LD L SKEL1+1 SAVE CURRENT MACRO DK ADDR PTM69525 02D3 D700 07B1 13982 | STO L3 SECAD-1 PTM69530 02D5 D600 0C16 13983 | STO L2 MACTB-2 *IN NEST TBL PTM69535 02D7 C400 0253 13984 | LD L MCOM9 SAVE MACRO START POS PTM69540 02D9 D600 0C17 13985 | STO L2 MACTB-1 *IN NEST TBL PTM69545 02DB CC00 0376 13986 | LDD L PSAVE SAVE PARAMETER LIST PTM69550 02DD DC00 1470 13987 | STD L PRLOC *POINTERS FOR NEXT PH PTM69555 02DF 4C00 07D3 13988 | BSC L MCNX2 BR TO EXPAND MACRO PTM69560 13989 | * PTM69565 02E1 0064 13990 | A3900 DC 100 CONSTANT 150 PTM69570 13991 | * PTM69575 13992 | * INITIALIZATION FOR PARAMETER SCAN PTM69580 13993 | * PTM69585 128E 13994 | PBUFF EQU PDEND+2 START ADDR OF SPILL BFR PTM69590 02E2 6580 0238 13995 | PRSCN LDX I1 RDBFR XR1 PT TO I/P BFR PTM69595 02E4 7115 13996 | MDX 1 +21 XR1 PT TO COL 21 PTM69600 02E5 7400 07AF 13997 | MDX L MACEX,0 SKIP IF MACRO PH 3 IN CORE PTM69605 02E7 7003 13998 | MDX PRSN2 BR TO INITLZ SPILL BFR PTM69610 02E8 C400 1470 13999 | LD L PRLOC POINTER TO BUILD NEXT PTM69615 02EA 7001 14000 | MDX PRSN1 *CALL AND BR PTM69620 14001 | * PTM69625 02EB C057 14002 | PRSN2 LD PPONE =1 PTR TO 1ST MACRO CALL PTM69630 02EC D400 0377 14003 | PRSN1 STO L PNTR1 PTM69635 02EE 8054 14004 | A PPONE =1,PTR TO PARAM NO,WD CNT PTM69640 02EF D400 0378 14005 | STO L PNTR2 PTM69645 02F1 8051 14006 | A PPONE =1,EBC PARAM NAME ADDR PTM69650 02F2 D400 0379 14007 | STO L PNTR3 PTM69655 02F4 6923 14008 | STX 1 LOCSW SET SW FOR FLD SCAN PTM69660 02F5 1010 14009 | SLA 16 INITLZ TO ZERO PTM69665 02F6 D400 0398 14010 | STO L PNUM *THE PARAM NUMBER PTM69670 02F8 D400 0399 14011 | PARMY STO L CNT3A *THE CHAR CNT PER PARAM PTM69675 02FA D07B 14012 | PARMX STO PSAVE ZERO LEFT BYTE SAVE WD PTM69680 02FB 620A 14013 | PARMZ LDX X2 PARM0-BLAK XR2 IS SCAN CTR PTM69685 02FC 4400 03C4 14014 | BSI L M3CSN GO TO CHAR SCAN PTM69690 02FE 0040 14015 | BLAK DC . EBC BLANK PTM69695 02FF 0319 14016 | DC BLKTL-3 BR ADDR FOR BLANK PTM69700 0300 006B 14017 | COMM DC ., EBC COMMA PTM69705 0301 0358 14018 | DC COMT-3 BR ADDR FOR COMMA PTM69710 0302 004D 14019 | LPARN DC /4D EBC LEFT PAREN PTM69715 0303 035F 14020 | DC LPAR BR ADDR FOR LEFT PAREN PTM69720 0304 005D 14021 | RPARN DC /5D EBC RIGHT PAREN PTM69725 0305 036B 14022 | DC RPAR BR ADDR FOR RIGHT PAREN PTM69730 0306 005E 14023 | CHAR DC /5E EBC SEMICOLON PTM69735 0307 03ED 14024 | DC SEMI BR ADDR FOR SEMICOLON PTM69740 14025 | * PTM69745 0308 7401 0399 14026 | PARM0 MDX L CNT3A,1 INCR CHAR CNT PER PARAM PTM69750 030A C06B 14027 | LD PSAVE =0 IF FIRST BYTE PTM69755 030B 4818 14028 | BSC +- SKIP IF RIGHT JUSTIFIED PTM69760 030C 7006 14029 | MDX PARM3 BR TO LEFT JUSTIFY PTM69765 030D E900 14030 | OR 1 0 ADD CURRENT CHAR PTM69770 030E 4400 039A 14031 | BSI L PRSTO STORE WD IN PBUFF PTM69775 0310 4069 14032 | PARM2 BSI BUMP1 INCR AND TEST XR1 PTM69780 0311 1010 14033 | SLA 16 PTM69785 0312 70E7 14034 | MDX PARMX RETURN TO CONT SCAN PTM69790 0313 C100 14035 | PARM3 LD 1 0 LEFT JUSTIFY CHAR PTM69795 0314 1008 14036 | SLA 8 *AND SAVE IN PARAM BFR PTM69800 0315 D060 14037 | STO PSAVE PTM69805 0316 4063 14038 | BSI BUMP1 INCR AND TEST XR1 PTM69810 0317 70E3 14039 | MDX PARMX+1 BR TO CONT SCAN PTM69815 14040 | * PTM69820 14041 | * PROCESS BLANK TERMINATOR PTM69825 14042 | * PTM69830 0318 0000 14043 | LOCSW DC *-* PTM69835 0319 7400 0367 14044 | MDX L PARCT,0 SKIP IF OUTSIDE PARENS PTM69840 031B 70EC 14045 | MDX PARM0 PASS BLANK,WITHIN PARENS PTM69845 031C 7400 0318 14046 | BLKTL MDX L LOCSW,0 TEST IF LABEL FLD PTM69850 031E 7001 14047 | MDX *+1 SKIP TO PROCESS OPERAND PTM69855 031F 7005 14048 | MDX BLKT GO TEST FOR CONTINUATION PTM69860 0320 D0F7 14049 | STO LOCSW RESET FLD INDR PTM69865 0321 6580 0238 14050 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM69870 0323 7122 14051 | MDX 1 +34 XR1 PT TO COL 34 PTM69875 0324 7036 14052 | MDX COMT PROCESS AS COMMA PTM69880 14053 | * PTM69885 0325 6580 0238 14054 | BLKT LDX I1 RDBFR XR1 PT TO I/P BFR PTM69890 0327 C120 14055 | LD 1 +32 GET CONTINUATION INDR PTM69895 0328 F0D5 14056 | EOR BLAK TEST FOR BLANK PTM69900 0329 4C18 0336 14057 | BSC L BLKT1,+- B2-NO CONTINUATION PTM69905 032B 6700 0219 14058 | LDX L3 ASMCM RESTORE XR3 PTM69910 032D 4400 074B 14059 | BSI L PALBL PASS RCD,READ RCD PTM69915 032F 7400 0013 14060 | MDX L $IBSY,0 TEST BUSY PTM69920 0331 70FD 14061 | MDX *-3 PTM69925 0332 6580 0238 14062 | LDX I1 RDBFR XR1 POINTS TO COL 34 PTM69930 0334 7123 14063 | MDX 1 +35 *OF NEW RCD PTM69935 0335 70C5 14064 | MDX PARMZ CONCATENATE RCDS PTM69940 14065 | * PTM69945 0336 400D 14066 | BLKT1 BSI COMT1 SET PARAM CTRL WD PTM69950 0337 C03F 14067 | LD PNTR1 PT TO NO. OF PARAM PTM69955 0338 4400 039A 14068 | BSI L PRSTO STORE IN PBUFF PTM69960 033A C03E 14069 | LD PNTR3 END OF CALL STRING PTM69965 033B D03A 14070 | STO PSAVE *SAVED HERE PTM69970 033C C03A 14071 | LD PNTR1 SET ADDR TO O/P NO. OF PTM69975 033D D03B 14072 | STO PNTR3 *PARAM IN CALL PTM69980 033E C059 14073 | LD PNUM NO. OF PARAM PTM69985 033F 4400 039A 14074 | BSI L PRSTO OUTPUT TO PBUFF PTM69990 0341 4C00 02AA 14075 | BSC L RDP31 BR TO BEGIN EXPANSION PTM69995 14076 | * PTM70000 0343 0001 14077 | PPONE DC 1 CONSTANT 1 PTM70005 14078 | * PTM70010 14079 | * PROCESS AS COMMA TERMINATOR PTM70015 14080 | * PTM70020 0344 0000 14081 | COMT1 DC *-* ENTRY PT PTM70025 0345 C030 14082 | LD PSAVE ODD NO. OF BYTES PTM70030 0346 4420 039A 14083 | BSI L PRSTO,Z BR IF YES PTM70035 0348 C82F 14084 | LDD PNTR2 SET PT TO PARAM NO. AND PTM70040 0349 18D0 14085 | RTE 16 *CHAR CNT THAT NEXT PTM70045 034A D82D 14086 | STD PNTR2 *PRSTO UPDATES PARAM NO. PTM70050 034B 7401 0398 14087 | MDX L PNUM,1 INCR PARAM NO. PTM70055 034D 1000 14088 | NOP (MAY SKIP) PTM70060 034E C049 14089 | LD PNUM BUILD PARAM CTRL WD PTM70065 034F 1009 14090 | SLA 9 CONSISTS OF PARM NO AND2-11 PTM70070 0350 E848 14091 | OR CNT3A *CHAR CNT PER PARAM PTM70075 0351 4400 039A 14092 | BSI L PRSTO OUTPUT SAME PTM70080 0353 C024 14093 | LD PNTR2 SET PT TO NEXT O/P PTM70085 0354 80EE 14094 | A PPONE ADD 1 PTM70090 0355 D023 14095 | STO PNTR3 POINT TO O/P EBC AREA PTM70095 0356 4C80 0344 14096 | BSC I COMT1 RETURN TO CALLER PTM70100 14097 | * PTM70105 14098 | * PROCESS COMMA TERMINATOR PTM70110 14099 | * PTM70115 0358 7400 0367 14100 | MDX L PARCT,0 SKIP IF OUTSIDE PARENS PTM70120 035A 70AD 14101 | MDX PARM0 PASS CHAR,WITHIN PARENS PTM70125 14102 | * PTM70130 035B 40E8 14103 | COMT BSI COMT1 BUILD PARAM CTRL WD PTM70135 035C 401D 14104 | BSI BUMP1 INCR RCD PT TO NEXT COL PTM70140 035D 1010 14105 | SLA 16 SET TO CLEAR NAME WD PTM70145 035E 7099 14106 | MDX PARMY BR TO CONT PARAM SCAN PTM70150 14107 | * PTM70155 14108 | * PROCESS LEFT PAREN TERMINATOR PTM70160 14109 | * PTM70165 035F C005 14110 | LPAR LD LPK1 ENT FOR 1ST LEFT PAREN PTM70170 0360 D0A2 14111 | STO LPARN+1 SET SCAN FOR MULTI PARENS PTM70175 0361 4018 14112 | BSI BUMP1 INCR AND TEST COL PT PTM70180 0362 C0E0 14113 | LD PPONE SET PAREN CTR TO 1 PTM70185 0363 D003 14114 | STO PARCT PTM70190 0364 7096 14115 | MDX PARMZ CONTINUE SCAN 2-11 PTM70200 14116 | * PTM70205 14117 | * CONSTANTS AND INDICATORS PTM70210 14118 | * PTM70215 0365 0368 14119 | LPK1 DC LPARX SECONDARY PAREN ADDR PTM70220 0366 035F 14120 | RPK1 DC LPAR INITIAL PAREN ADDR PTM70225 0367 0000 14121 | PARCT DC *-* PAREN CTR PTM70230 14122 | * PTM70235 14123 | * PROCESS MULTIPLE PARENS PTM70240 14124 | * PTM70245 0368 7401 0367 14125 | LPARX MDX L PARCT,1 INCR PAREN CTR PTM70250 036A 709D 14126 | MDX PARM0 CONT STRING SCAN PTM70255 14127 | * PTM70260 14128 | * PROCESS RIGHT PAREN TERMINATOR PTM70265 14129 | * PTM70270 036B C0FB 14130 | RPAR LD PARCT TEST FOR PAIRED PARENS PTM70275 036C 4418 03D8 14131 | BSI L SNTXR,+- BR-PARENS NOT PAIRED PTM70280 036E 90D4 14132 | S PPONE DECR PAREN CTR PTM70285 036F D0F7 14133 | STO PARCT PTM70290 0370 4C20 0308 14134 | BSC L PARM0,Z BR-NESTED PARENS PTM70295 0372 C0F3 14135 | RPAR1 LD RPK1 RESTORE SCAN TBL PTM70300 0373 D08F 14136 | STO LPARN+1 PTM70305 0374 4005 14137 | BSI BUMP1 INCR RCD COL PT PTM70310 0375 7085 14138 | MDX PARMZ CONT TO SCAN STRING PTM70315 14139 | * PTM70320 0376 14140 | BSS E 0 FORCE EVEN ADDR PTM70325 0376 0000 14141 | PSAVE DC *-* SAVE WD PTM70330 0377 0000 14142 | PNTR1 DC *-* NO. OF PARAM PT PTM70335 0378 0000 14143 | PNTR2 DC *-* PARAM NO./CNT PT PTM70340 0379 0000 14144 | PNTR3 DC *-* EBC PARAM CODE PTM70345 14145 | * PTM70350 14146 | * INCREMENT REG 1 SUBROUTINE PTM70355 14147 | * *INCREMENTS XR1 TO NEXT COL PTM70360 14148 | * *CHECKS FOR END OF RCD AND CONTINUATION PTM70365 14149 | * PTM70370 037A 0000 14150 | BUMP1 DC *-* ENTRY PT PTM70375 037B 7101 14151 | MDX 1 1 INCR COL PT PTM70380 037C C019 14152 | LD BMPK PTM70385 037D 8400 0238 14153 | A L RDBFR ADD I/P BFR ADDR PTM70390 037F 6917 14154 | STX 1 BMPK+1 CHECK FOR END OF RCD PTM70395 0380 F016 14155 | EOR BMPK+1 PTM70400 0381 4CA0 037A 14156 | BSC I BUMP1,Z BR IF NOT END OF RCD PTM70405 0383 6580 0238 14157 | BUMP2 LDX I1 RDBFR XR1 PT TO I/P BFR PTM70410 0385 C120 14158 | LD 1 +32 GET CONT COL PTM70415 0386 F400 02FE 14159 | EOR L BLAK CHECK FOR CONTINUATION PTM70420 0388 4C18 0336 14160 | BSC L BLKT1,+- BR- NO CONTINUATION PTM70425 14161 | * PTM70430 038A 6700 0219 14162 | BMP2A LDX L3 ASMCM PTM70435 038C 4400 074B 14163 | BMP2B BSI L PALBL FETCH NEXT RCD PTM70440 038E 7400 0013 14164 | MDX L $IBSY,0 TEST BUSY PTM70445 0390 70FD 14165 | MDX *-3 PTM70450 0391 6580 0238 14166 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM70455 0393 7123 14167 | MDX 1 +35 XR1 PT TO RCD COL 34 PTM70460 0394 4C80 037A 14168 | BSC I BUMP1 RETURN TO CALLER PTM70465 14169 | * PTM70470 14170 | * CONSTANTS PTM70475 14171 | * PTM70480 0396 0048 14172 | BMPK DC 72 END OF RCD INDR PTM70485 0397 0000 14173 | DC *-* TEMP STORAGE-RCD COL PTM70490 0398 14174 | BSS E 0 FORCE EVEN ADDR PTM70495 0398 0000 14175 | PNUM DC *-* PARAM NUMBER PTM70500 0399 0000 14176 | CNT3A DC *-* CHAR CNT PER PARAM PTM70505 14177 | * PTM70510 14178 | * PARAM SPILL STORE CHAR SUBR PTM70515 14179 | * PTM70520 039A 0000 14180 | PRSTO DC *-* ENTRY POINT PTM70525 039B 6600 128E 14181 | LDX L2 PBUFF PTM70530 039D D022 14182 | STO PRS90 SAVE CHAR TO BE STORED PTM70535 039E C0DA 14183 | LD PNTR3 REL PBUFF ADDR FOR STORE PTM70540 039F 1890 14184 | SRT 16 RIGHT-JUSTIFY DIVIDEND PTM70545 03A0 AA00 14185 | D 2 0 GET SCTR DISPLACEMENT PTM70550 03A1 8400 12F6 14186 | A L PBASE ADD SCTR ADDR OF PARAM LIST PTM70555 03A3 D81E 14187 | STD PRS92 SAVE INFO PTM70560 03A4 9400 12F7 14188 | S L PLAST PTM70565 03A6 4C30 03EA 14189 | BSC L PARER,-Z BR-PARAM LIST OVFLO PTM70570 14190 | * PTM70575 03A8 C019 14191 | PRS00 LD PRS92 SCTR ADDR THIS STORE PTM70580 03A9 F201 14192 | EOR 2 1 CMP TO PBUFF SCTR ADDR PTM70585 03AA 4C18 03B7 14193 | BSC L PRS10,+- BR-ADDRESSES MATCH PTM70590 03AC CC00 152E 14194 | LDD L A3901 WRITE FILLED PBUFF PTM70595 03AE 4400 0275 14195 | BSI L DISK1 *TO W.S. PTM70600 03B0 C011 14196 | LD PRS92 UPDATE PBUFF SCTR ADDR PTM70605 03B1 D201 14197 | STO 2 1 PTM70610 03B2 CC00 152E 14198 | LDD L A3901 PTM70615 03B4 908E 14199 | S PPONE PTM70620 03B5 4400 0275 14200 | BSI L DISK1 READ IN PROPER SECTOR PTM70625 14201 | * PTM70630 03B7 6680 03C3 14202 | PRS10 LDX I2 PRS92+1 DISP FOR STORE PTM70635 03B9 C006 14203 | LD PRS90 FETCH WD TO BE STORED PTM70640 03BA D600 1290 14204 | STO L2 PBUFF+2 STORE IN PBUFF PTM70645 03BC 7401 0379 14205 | MDX L PNTR3,1 INCR PBUFF DISP PTR PTM70650 03BE 4C80 039A 14206 | BSC I PRSTO RETURN TO CALLER PTM70655 14207 | * PTM70660 14208 | * CONSTANTS AND INDICATORS PTM70665 14209 | * PTM70670 03C0 0000 14210 | PRS90 DC *-* SAVE AREA FOR PBUFF CHAR PTM70675 03C2 14211 | PRS92 BSS E 2 PBUFF SCTR ADDR,DISP PTM70680 14212 | * PTM70685 14213 | * GENERAL CHARACTER SCAN PTM70690 14214 | * *UPON ENTRY, PTM70695 14215 | * * XR1 POINTS TO CHAR PTM70700 14216 | * * XR2 CONTAINS PARAM LIST SIZE PTM70705 14217 | * *XR3 IS DESTROYED BY M3CSN PTM70710 14218 | * *CALLING SEQUENCE IS PTM70715 14219 | * * BSI M3CSN PTM70720 14220 | * * DC CHAR PTM70725 14221 | * * DC ADDR PTM70730 14222 | *ADDR IS LOCATION TRANSFERRED TO IF CHAR FOUND PTM70735 14223 | * PTM70740 14224 | * PTM70745 03C4 0000 14225 | M3CSN DC *-* ENTRY PT PTM70750 03C5 280A 14226 | STS S3NXT-1 SAVE STATUS PTM70755 03C6 6A0D 14227 | STX 2 INVL3+1 SAVE SCAN CTR PTM70760 03C7 6780 03C4 14228 | M3CS0 LDX I3 M3CSN XR3 PT TO PARAM LIST PTM70765 03C9 C100 14229 | M3CS1 LD 1 0 FETCH CHAR PTM70770 03CA F300 14230 | EOR 3 0 CMP WITH CALL CHAR PTM70775 03CB 4F98 0001 14231 | BSC I3 1,+- BR IF CHARS MATCH PTM70780 03CC 14232 | M3C01 EQU *-1 PTM70785 03CD 7302 14233 | MDX 3 2 INCR PARAM LIST PT PTM70790 03CE 72FE 14234 | MDX 2 -2 DECR SCAN CTR PTM70795 03CF 70F9 14235 | MDX M3CS1 CONTINUE SCAN PTM70800 03D0 2000 14236 | LDS 0 RESTORE STATUS PTM70805 03D1 4F00 0000 14237 | S3NXT BSC L3 0 BR-NO SPECIAL CHAR FOUND PTM70810 03D3 6600 0000 14238 | INVL3 LDX L2 *-* RESTORE XR2 FOR RESCAN PTM70815 03D5 70F1 14239 | MDX M3CS0 BR TO RESCAN PTM70820 14240 | * PTM70825 03D6 0040 14241 | BLAN2 DC . EBC BLANK PTM70830 14242 | * PTM70835 14243 | * PROCESS SYNTAX ERROR PTM70840 14244 | * PTM70845 03D7 0000 14245 | DC *-* PTM70850 03D8 0000 14246 | SNTXR DC *-* ENTRY PT PTM70855 03D9 7404 03D8 14247 | MDX L SNTXR,4 SET RETURN ADDR PTM70860 03DB 69FB 14248 | STX 1 SNTXR-1 SAVE XR1 PTM70865 03DC 6580 0238 14249 | LDX I1 RDBFR SET XR1 TO I/P BFR PTM70870 03DE C00A 14250 | LD SFLG FETCH ERROR FLAG PTM70875 03DF 7400 020C 14251 | MDX L PSMDE,0 PTM70880 03E1 7001 14252 | MDX *+1 SKIP-TWO PASS MODE PTM70885 03E2 D122 14253 | STO 1 +34 SAVE S FLAG PTM70890 03E3 4400 0701 14254 | BSI L ERFLG SET ERROR FLAG PTM70895 03E5 6580 03D7 14255 | LDX I1 SNTXR-1 RESTORE XR1 PTM70900 03E7 4C80 03D8 14256 | BSC I SNTXR RETURN TO CALLER PTM70905 14257 | * PTM70910 03E9 00E2 14258 | SFLG DC .S SYNTAX ERROR FLAG PTM70915 14259 | * PTM70920 14260 | * PROCESS A09 ERROR CONDITION PTM70925 14261 | * PTM70930 03EA 6209 14262 | PARER LDX 2 +9 PT TO A09 ERR MSG PTM70935 03EB 4400 079C 14263 | BSI L GETER PRINT ERROR MESSAGE PTM70940 14264 | * PTM70945 14265 | * PROCESS SEMICOLON TERMINATOR PTM70950 14266 | * PTM70955 03ED 14267 | SEMI EQU * PTM70960 03ED C400 0367 14268 | LD L PARCT TEST FOR PARENS PTM70965 03EF 4C20 0308 14269 | BSC L PARM0,Z PASS CHAR IF IN PARENS PTM70970 03F1 C028 14270 | LD HOOK1 MODIFY SCAN SUBR PTM70975 03F2 D400 0599 14271 | STO L P9114+2 PTM70980 03F4 7101 14272 | MDX 1 1 INCR I/P PT TO NEXT CHAR PTM70985 03F5 6700 0219 14273 | LDX L3 ASMCM RESTORE XR3 PTM70990 03F7 4400 04E1 14274 | BSI L SCAN EVALUATE PARAM PTM70995 03F9 74FF 0418 14275 | MDX L INDCT,-1 DECR INDIRECT LVL CNT PTM71000 03FB 7003 14276 | MDX SEMI1 BR-VALID INDIRECT LEVEL PTM71005 03FC 7411 0418 14277 | MDX L INDCT,17 RESTORE COUNT 2-11 PTM71007 03FE 700F 14278 | MDX SEMI3 BR-INVALID INDIRECT LVL PTM71010 03FF 14279 | SEMI1 EQU * PTM71015 03FF C2FE 14280 | LD 2 VALUE-A OBTAIN VALUE PTM71020 0400 E01B 14281 | AND SMASK MASK OUT HIGH BITS PTM71025 0401 E817 14282 | OR FLGBT SET SPECIAL FLAG BIT PTM71030 0402 D096 14283 | STO CNT3A STORE IN CHAR CNT PTM71035 0403 C017 14284 | SEMI2 LD HOOK2 RESTORE SCAN SUBR PTM71040 0404 D400 0599 14285 | STO L P9114+2 PTM71045 0406 C100 14286 | LD 1 0 TEST FOR BLANK PTM71050 0407 F0CE 14287 | EOR BLAN2 PTM71055 0408 4820 14288 | BSC Z SKIP IF BLANK PTM71060 0409 71FF 14289 | MDX 1 -1 MSET I/P PT FOR SCAN PTM71065 040A 4C00 02FB 14290 | BSC L PARMZ RETURN TO CONT SCAN PTM71070 040C 620A 14291 | FE03 LDX 2 +10 SET TO PRINT A12 ERR MSG PTM71075 040D 70DD 14292 | MDX PARER+1 BR TO PRINT MSG AND EXIT PTM71080 040E 6680 0238 14293 | SEMI3 LDX I2 RDBFR XR2 IS I/P PT PTM71085 0410 C0D8 14294 | LD SFLG PTM71090 0411 7400 020C 14295 | MDX L PSMDE,0 TEST PASS MODE PTM71095 0413 7001 14296 | MDX *+1 TWO PASS MODE - SKIP PTM71100 0414 D222 14297 | STO 2 +34 PTM71105 0415 4400 0701 14298 | BSI L ERFLG PLACE ERROR FLAG PTM71110 0417 70EB 14299 | MDX SEMI2 CONT TO DECODE CALL PTM71115 14300 | * PTM71120 14301 | * CONSTANTS PTM71125 14302 | * PTM71130 0418 0011 14303 | INDCT DC 17 INDIRECT LEVEL COUNT 2-11 PTM71135 0419 0100 14304 | FLGBT DC /0100 FLAG CONSTANT 2-11 PTM71140 041A 7003 14305 | HOOK1 MDX X P9116-P9114-3 SCAN MODIFIER PTM71145 041B 9220 14306 | HOOK2 S 2 +32 SCAN RESTORE CONSTANT PTM71150 041C 007F 14307 | SMASK DC /007F MASK CONSTANT 2-11 PTM71155 041D 14308 | BSS 19 PATCH AREA PTM71160 0430 0000 14309 | M3Z00 DC 0 END OF MACRO PH 3A PTM71165 *SBRKSLS F1 14310 | MACRO PHASE 3B - MACRO EXPANSION V2M08 PTM71170 MACRO PROCESSOR PHASE 3B, EXPANSION 14312 | *************************************************** PTM71180 14313 | * * PTM71185 14314 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * PTM71190 14315 | * * PTM71195 14316 | *FUNCTION/OPERATION- * PTM71200 14317 | * *MACRO PHASE 3B IS LOADED AT ASSEMBLER * PTM71205 14318 | * INITIALIZATION TIME AND REMAINS RESIDENT * PTM71210 14319 | * THROUGHOUT THE ASSEMBLY. * PTM71215 14320 | * *MACRO PHASE 3B DECODE THE MACRO PROTOTYPE, * PTM71220 14321 | * STATEMENT BY STATEMENT AND BUILDS THE * PTM71225 14322 | * RECORD IMAGE. * PTM71230 14323 | * *IT CHECKS ALL SPECIAL FLAGS,SUCH AS AUTOMATIC* PTM71235 14324 | * LABEL GENERATION-PREFIXED AND SUFFIXED-,END * PTM71240 14325 | * OF RCD,AND END OF SCTR FLAGS,AND DOES THE * PTM71245 14326 | * APPROPRIATE PROCESSING. * PTM71250 14327 | * * PTM71255 14328 | *ENTRY POINT- * PTM71260 14329 | * *DECOI-ENTER FROM MACRO PHASE 3. * PTM71265 14330 | * * PTM71270 14331 | *INPUT- * PTM71275 14332 | * *MACRO PROTOTYPE IN SKELETON BFR. * PTM71280 14333 | * *PARAMETER STRINGS IN PBUFF. * PTM71285 14334 | * * PTM71290 14335 | *OUTPUT- * PTM71295 14336 | * *EXPANDED MACRO SOURCE TO ASM PH 9. * PTM71300 14337 | * * PTM71305 14338 | *EXTERNAL REFERENCES- * PTM71310 14339 | * *SUBROUTINES- * PTM71315 14340 | * * BGASM * PTM71320 14341 | * * DISK1 * PTM71325 14342 | * * P9000 * PTM71330 14343 | * * P9468 * PTM71335 14344 | * * RDCRD * PTM71340 14345 | * *ASMCM- * PTM71345 14346 | * * MCOM6 * PTM71350 14347 | * * MCOM9 * PTM71355 14348 | * * RDBFR * PTM71360 14349 | * *DCOM/COMMA- * PTM71365 14350 | * * $PHSE * PTM71370 14351 | * *FROM MACRO PHASE 3- * PTM71375 14352 | * * SCLR-SUBR TO CLEAR I/P BFR * PTM71380 14353 | * * RDSK-READ SKELETON SUBR * PTM71385 14354 | * * PTM71390 14355 | *EXITS- * PTM71395 14356 | * *BGASM-TO CONTINUE ASSEMBLY * PTM71400 14357 | * * PTM71405 14358 | *TABLES/WORK AREAS- * PTM71410 14359 | * *GENNM-GENERATED NAME NUMBER BUFFER * PTM71415 14360 | * *MACTB-MACRO NEST TABLE * PTM71420 14361 | * *PBUFF-PARAMETER STRING BUFFER * PTM71425 14362 | * *SKEL1-MACRO PROTOTYPE BUFFER * PTM71430 14363 | * * PTM71435 14364 | *ATTRIBUTES-N/A * PTM71440 14365 | * * PTM71445 14366 | *NOTES-N/A * PTM71450 14367 | * * PTM71455 14368 | *************************************************** PTM71460 12F4 14369 | ORG PDEND+104 PTM71465 12F4 027D 14370 | DC M3BZ-M3B0 WD CNT OF PHASE PTM71470 12F5 FF0F 14371 | DC -/F1 SLET ID OF MACRO PH 3B PTM71475 12F6 0174 14372 | DC B3902-M3B0 ADDR OF SLET TBL PTM71480 12F7 0001 14373 | DC 1 NO. OF SLET ENTS TO FILL PTM71485 12F6 14374 | ORG *-2 PTM71490 12F6 14375 | M3B0 EQU * PTM71495 12F6 14376 | PBASE BSS 1 START DK ADDR-PARAM SPILL PTM71500 12F7 14377 | PLAST BSS 1 LAST DK ADDR-PARAM SPILL PTM71505 14378 | * PTM71510 14379 | * INITLZ STARTING SKELETON PT PTM71515 14380 | * PTM71520 12F8 C032 14381 | DECOI LD B3900 SET PH ID INDR PTM71525 12F9 D400 0078 14382 | STO L $PHSE PTM71530 12FB C400 0253 14383 | LD L MCOM9 INITLZ SKELETON PT PTM71535 12FD D007 14384 | STO STAR PTM71540 12FE 7002 14385 | MDX DECOD+2 BR TO EXPAND MACRO PTM71545 14386 | * PTM71550 14387 | * SKELETON DECODE PTM71555 14388 | * PTM71560 12FF 4400 07E5 14389 | DECOD BSI L SCLR CLEAR I/P BFR PTM71565 1301 10A0 14390 | SLT 32 CLEAR CHAR CNT PTM71570 1302 D400 13E9 14391 | STO L MCHX PTM71575 1304 6600 0000 14392 | LDX L2 *-* XR2 IS SKELETON PT PTM71580 1305 14393 | STAR EQU *-1 PTM71585 1306 6580 0238 14394 | LDX I1 RDBFR XR1 PT TO I/P AREA PTM71590 1308 7115 14395 | MDX 1 +21 XR1 PT TO LABEL FLD PTM71595 1309 10A0 14396 | EXP01 SLT 32 CLEAR BOTH REGS PTM71600 130A C600 0C48 14397 | LD L2 SKEL1+2 FETCH SKELETON WD PTM71605 130C 1888 14398 | SRT 8 POS FOR CHAR CHECK PTM71610 130D 402C 14399 | BSI CHECK BR TO CHAR CHECK PTM71615 130E 7401 13E9 14400 | MDX L MCHX,1 INCR CHAR CNT PTM71620 1310 7300 14401 | MDX 3 0 TEST FOR END OF RCD PTM71625 14402 | * STORE CHAR IN I/P BFR IF NO PTM71630 1311 D100 14403 | STO 1 0 *SPECIAL HANDLING REQUIRED PTM71635 1312 7101 14404 | MDX 1 1 INCR I/P BFR PT PTM71640 1313 1010 14405 | EXP02 SLA 16 CLEAR ACC FOR 2ND CHAR CHECKPTM71645 1314 1088 14406 | SLT 8 SHIFT 2ND CHAR TO ACC PTM71650 1315 4024 14407 | BSI CHECK CHECK 2ND CHAR PTM71655 1316 7401 13E9 14408 | MDX L MCHX,1 INCR CHAR CNT PTM71660 1318 7300 14409 | MDX 3 0 TEST FOR END OF RCD PTM71665 1319 D100 14410 | STO 1 0 SAVE CHAR IN I/P BFR PTM71670 131A 7101 14411 | MDX 1 1 INCR I/P BFR PT PTM71675 131B 4002 14412 | EXP03 BSI CKSEC CHECK FOR END OF SKEL SCTR PTM71680 131C 70EC 14413 | MDX EXP01 CONT TO DECODE RCD PTM71685 14414 | * PTM71690 14415 | * SUBR TO CHECK END OF SKELETON SCTR PTM71695 14416 | * PTM71700 131D 4C00 0000 14417 | BSC L *-* RETURN TO CALLER PTM71705 131E 14418 | CKSEC EQU *-1 ENTRY PT PTM71710 131F 6A04 14419 | STX 2 EXP13+1 SAVE XR2 PTM71715 1320 7600 FEC2 14420 | MDX L2 -318 CHECK FOR END OF SCTR PTM71720 1322 7004 14421 | MDX EXP23 BR TO READ NEXT SCTR PTM71725 1323 6600 0000 14422 | EXP13 LDX L2 *-* RESTORE XR2 PTM71730 1325 7201 14423 | MDX 2 1 INCR SKELETON PT PTM71735 1326 70F6 14424 | MDX CKSEC-1 CONT TO DECODE PTM71740 1327 4C00 1474 14425 | EXP23 BSC L FF BR TO READ NEXT SKEL SCTR PTM71745 14426 | * PTM71750 14427 | * CONSTANTS PTM71755 14428 | * PTM71760 0250 14429 | GEN EQU MCOM6 PTM71765 1329 00FA 14430 | HXFA DC /FA HEX CONSTANT FA PTM71770 132A 00FF 14431 | HXFF DC /FF HEX CONSTANT FF PTM71775 14432 | * B3900 WAS CARD 71800 IN THE ORIGINAL SOURCE BUT KNITTEL0 14433 | * WAS MOVED UP HERE IN THE 2.12 FICHE TO AVOID KNITTEL1 14434 | * EXTRA WORD FROM BSS E - NOTE 213 ANNOTATION KNITTEL2 132B 00F1 14435 | B3900 DC /F1 SLET ID OF MACRO PH 3B 213 PTM71777 132C 14436 | BSS E 0 FORCE EVEN ADDR PTM71780 132C 0000 14437 | CCHAR DC *-* TEMP CHAR STORAGE PTM71785 132D 0000 14438 | DC *-* TEMP CHAR STORAGE PTM71790 132E 005E 14439 | CHARX DC /5E EBC SEMICOLON PTM71795 14440 | * PTM71805 132F 74F3 136A 14441 | CCOL MDX L CHKTP,-13 UPDATE COL INDR PTM71810 1331 701A 14442 | MDX CHX1 CONT CHAR CHECK PTM71815 1332 7101 14443 | MDX 1 1 INCR I/P PT PTM71820 1333 1010 14444 | SLA 16 CLEAR CHAR CNT PTM71825 1334 D400 13E9 14445 | STO L MCHX PTM71830 1336 73FF 14446 | MDX 3 -1 DECR CHAR CNT PTM71835 1337 1000 14447 | NOP (MAY SKIP) PTM71840 1338 7013 14448 | MDX CHX1 CONT CHAR CHECK PTM71845 14449 | * PTM71850 14450 | * CHARACTER CHECK SUBR PTM71855 14451 | * PTM71860 1339 4C00 0000 14452 | BSC L *-* RETURN TO CALLER PTM71865 133A 14453 | CHECK EQU *-1 ENTRY PT ADDR PTM71870 133B E0EE 14454 | AND HXFF CHECK FOR SKEL SCTR END PTM71875 133C 4C20 1341 14455 | BSC L CHXO+3,Z BR IF NOT END OF SCTR PTM71880 133E 7405 133A 14456 | CHXO MDX L CHECK,5 DO NOT STORE CHAR IN I/P BFRPTM71885 1340 70F8 14457 | MDX CHECK-1 RETURN TO CALLER PTM71890 1341 D8EA 14458 | STD CCHAR SAVE CURRENT AND NEXT CHAR PTM71895 1342 7300 14459 | MDX 3 0 SKIP IF END OF RCD PTM71900 1343 7001 14460 | MDX *+1 SKIP-NOT END OF RCD PTM71905 1344 701B 14461 | MDX CHEX2+1 CHECK FOR END OF RCD FLAG PTM71910 1345 F400 07F6 14462 | EOR L SCLR2 CHECK FOR BLANK PTM71915 1347 7400 136A 14463 | MDX L CHKTP,0 CHECK FOR COLS 32 OR 33 PTM71920 1349 70E5 14464 | MDX CCOL BR TO INITLZ NEXT FLD PTM71925 14465 | * PTM71930 134A 4C18 13C2 14466 | BSC L NXFLD,+- SKIP TO NEXT FLD PTM71935 14467 | * PTM71940 134C C0DF 14468 | CHX1 LD CCHAR CHECK FOR PARAM SUBSTITUTIONPTM71945 134D 901D 14469 | S M3B$$ TEST FOR DOLLAR SIGN PTM71950 134E 4820 14470 | BSC Z SKIP IF DOLLAR SIGN PTM71955 134F 901C 14471 | S M3B## TEST FOR POUND SIGN PTM71960 1350 4820 14472 | BSC Z SKIP IF POUND SIGN PTM71965 1351 901B 14473 | S M3B@@ TEST FOR AT SIGN PTM71970 1352 4C18 135F 14474 | BSC L CHEX2,+- BR-SPECIAL CHAR PTM71975 1354 C0D7 14475 | LD CCHAR PTM71980 1355 1886 14476 | SRT 6 PTM71985 1356 4C18 149A 14477 | BSC L PSUB,+- BR TO SUBSTITUTE PARAM PTM71990 1358 1881 14478 | SRT 1 CHECK FOR SPECIAL CHAR PTM71995 1359 4C20 135F 14479 | BSC L CHEX2,Z BR-NOT SPECIAL CHAR PTM72000 135B 7402 133A 14480 | MDX L CHECK,2 DO NOT INCR CHAR CNT PTM72005 135D D400 13E9 14481 | STO L MCHX SET CHAR CNT TO ZERO PTM72010 14482 | * PTM72015 135F 1087 14483 | CHEX2 SLT 7 RESTORE CHAR PTM72020 1360 90C8 14484 | S HXFA TEST FOR SPECIAL CHAR PTM72025 1361 4C10 13B6 14485 | BSC L FLAG,- BR FOR SPECIAL CHAR PTM72030 1363 7300 14486 | MDX 3 0 TEST CHAR CNT PTM72035 1364 7001 14487 | MDX *+1 SKIP TO RETURN CHAR PTM72040 1365 7072 14488 | MDX CHEX1 BR TO BYPASS CHAR PTM72045 1366 73FF 14489 | MDX 3 -1 CLEAR CHAR CNT PTM72050 1367 1000 14490 | NOP (MAY SKIP) PTM72055 1368 C8C3 14491 | CHEX LDD CCHAR RESTORE CHAR TO ACC PTM72060 1369 70CF 14492 | MDX CHECK-1 RETURN TO CALLER PTM72065 14493 | * PTM72070 14494 | * INDICATORS PTM72075 14495 | * PTM72080 136A 0000 14496 | CHKTP DC *-* I/P FLD PT PTM72085 136B 005B 14497 | M3B$$ DC .$ EBC DOLLAR SIGN PTM72090 136C 0020 14498 | M3B## DC .#-.$ EBC POUND SIGN PTM72095 136D 0001 14499 | M3B@@ DC 1 EBC AT SIGN PTM72100 14500 | * PTM72105 14501 | * PROCESS FA INDR PTM72110 14502 | * PRESENTLY NOT USED PTM72115 14503 | * PTM72120 136E 14504 | FA EQU * PTM72125 14505 | * PTM72130 14506 | * PROCESS FB INDR PTM72135 14507 | * GENERATED NAME SUBSTITUTION PTM72140 14508 | * PTM72145 14509 | * TEST FOR PREVIOUS PTM72150 136E 7400 07AE 14510 | FB MDX L GENSW,0 *GENERATED NAME PTM72155 1370 7004 14511 | MDX FB00 BR-PREVIOUS NAME PTM72160 1371 6C00 07AE 14512 | STX L0 GENSW SET GENERATED NAME SW PTM72165 1373 7401 0250 14513 | MDX L GEN,1 INCR GENERATED NAME CTR PTM72170 1375 6A26 14514 | FB00 STX 2 FXR2 SAVE XR2 PTM72175 1376 6B27 14515 | STX 3 FBXT1+1 SAVE XR3 PTM72180 1377 7300 14516 | MDX 3 0 TEST RCD COL CNT PTM72185 1378 7001 14517 | MDX *+1 SKIP-NOT END OF RCD PTM72190 1379 705E 14518 | MDX CHEX1 BR TO BYPASS CHAR PTM72195 137A 6206 14519 | LDX 2 6 SET LOOP CTRL PTM72200 137B C06D 14520 | LD MCHX SET CHAR CNT TO INCLUDE PTM72205 137C F06D 14521 | EOR FBMSK *GENERATED PART OF NAME PTM72210 137D D000 14522 | STO * SET MDX INSTRUCTION PTM72215 137E 7000 14523 | MDX * DYNAMICALLY MODIFIED INST PTM72220 137F 7001 14524 | MDX *+1 BR TO GENERATE NAME PTM72225 1380 701A 14525 | MDX FBXT EXIT-NAME GENERATED PTM72230 1381 6A0C 14526 | STX 2 FB02+1 SAVE LOOP CTRL PTM72235 14527 | * PTM72240 1382 C400 0250 14528 | LD L GEN FETCH GENERATION NO. PTM72245 1384 1890 14529 | SRT 16 PTM72250 1385 A865 14530 | FB01 D D10 CVRT GENERATION NO. PTM72255 1386 18D0 14531 | RTE 16 *TO EBC DIGITS AND PTM72260 1387 E864 14532 | OR HXF0 *SAVE TEMPORARILY PTM72265 1388 D600 0C3F 14533 | STO L2 GENNM-1 PTM72270 138A 1010 14534 | SLA 16 CLEAR ACC PTM72275 138B 72FF 14535 | MDX 2 -1 DECR LOOP CTRL PTM72280 138C 70F8 14536 | MDX FB01 CONT TO CVRT GENERATION NO. PTM72285 14537 | * PTM72290 138D 6600 0000 14538 | FB02 LDX L2 *-* RESTORE CNT TO XR2 PTM72295 138F 6700 0C40 14539 | LDX L3 GENNM XR3-GENERATED NO. BFR PT PTM72300 1391 C300 14540 | FB03 LD 3 0 ADD GENERATED NO. TO I/P FLDPTM72305 1392 74FF 139E 14541 | MDX L FBXT1+1,-1 DECREMENT COLUMN COUNT PTM72310 1394 7001 14542 | MDX *+1 SKIP-ADD CHAR TO I/P FLD PTM72315 1395 700D 14543 | MDX FEND TRUNCATE NAME FLD PTM72320 1396 D100 14544 | STO 1 0 STORE CHAR IN I/P BFR PTM72325 1397 7101 14545 | MDX 1 1 INCR I/P BFR PT PTM72330 1398 7301 14546 | MDX 3 1 INCR GENERATED NO. BFR PT PTM72335 1399 72FF 14547 | MDX 2 -1 DECR LOOP CTRL CTR PTM72340 139A 70F6 14548 | MDX FB03 CONT NAME GENERATION PTM72345 139B 6600 0000 14549 | FBXT LDX L2 *-* RESTORE XR2 PTM72350 139C 14550 | FXR2 EQU *-1 PTM72355 139D 6700 0000 14551 | FBXT1 LDX L3 *-* RESTORE XR3 PTM72360 139F 74D3 139E 14552 | MDX L FBXT1+1,-45 CHECK IF PAST LABEL FLD PTM72365 13A1 703E 14553 | MDX NX45 NO,SET TO OP CODE FLD PTM72370 13A2 7035 14554 | MDX CHEX1 CONT TO DECODE PTM72375 14555 | * PTM72380 14556 | * SUBROUTINE TO TRUNCATE PARAMETER PTM72385 14557 | * *SUBSTITUTION OR GENERATED NAME PTM72390 14558 | * *PROCESSING PTM72395 14559 | * PTM72400 13A3 6680 139C 14560 | FEND LDX I2 FXR2 RESTORE XR2 PTM72405 13A5 6300 14561 | LDX 3 0 SET COL CNT TO ZERO PTM72410 13A6 7031 14562 | MDX CHEX1 CONT TO DECODE PTM72415 14563 | * PTM72420 14564 | * PROCESS FC INDR PTM72425 14565 | * DEPTH SYMBOL PROCESSING PTM72430 14566 | * PTM72435 13A7 C400 07B0 14567 | FC LD L DEPTH FETCH DEPTH SYMBOL PTM72440 13A9 9042 14568 | S HXF0 TEST CHAR RANGE PTM72445 13AA 4810 14569 | BSC - SKIP IF A TO R PTM72450 13AB 8007 14570 | A L8DEC ADD 8 IF S TO Z PTM72455 13AC 803E 14571 | A D10 ALWAYS ADD 10 PTM72460 13AD 4830 14572 | BSC -Z SKIP IF CHARACTER A TO I PTM72465 13AE 8005 14573 | A L7 ADD 7 IF J TO Z PTM72470 13AF 8005 14574 | A LC9 FORM FINAL CHARACTER PTM72475 13B0 73FF 14575 | MDX 3 -1 ADJUST COL CNT PTM72480 13B1 70B7 14576 | MDX CHEX+1 PLACE CHAR IN I/P BFR PTM72485 13B2 70F2 14577 | MDX FEND+2 TRUNCATE NAME PTM72490 14578 | * PTM72495 14579 | * CONSTANTS PTM72500 14580 | * PTM72505 13B3 0008 14581 | L8DEC DC 8 CONSTANT 8 PTM72510 13B4 0007 14582 | L7 DC 7 CONSTANT 7 PTM72515 13B5 00C9 14583 | LC9 DC /C9 EBC I PTM72520 14584 | * PTM72525 14585 | * PROCESS SPECIAL FLAGS PTM72530 14586 | * PTM72535 13B6 8003 14587 | FLAG A FLAGK CALC TBL ENTRY PTM72540 13B7 D001 14588 | STO *+1 SET BR ADDR PTM72545 13B8 4C80 13BB 14589 | BSC I TABFX BR THRU TBL TO PROCESS CHAR PTM72550 14590 | * PTM72555 14591 | * CONSTANTS AND TABLES PTM72560 14592 | * PTM72565 13BA 13BB 14593 | FLAGK DC TABFX START ADDR OF BR TBL PTM72570 14594 | * PTM72575 14595 | * BR ADDR TBL FOR SPECIAL FLAGS PTM72580 14596 | * PTM72585 13BB 136E 14597 | TABFX DC FA NOT USED PTM72590 13BC 136E 14598 | DC FB GENERATED NAME PTM72595 13BD 13A7 14599 | DC FC DEPTH SYMBOL NAME PTM72600 13BE 13EE 14600 | DC FD END OF RCD FLAG PTM72605 13BF 142D 14601 | DC FE END OF MACRO FLAG PTM72610 13C0 1474 14602 | DC FF SCTR TRUNCATOR PTM72615 13C1 005C 14603 | ASTK2 DC .* EBC ASTERISK PTM72620 14604 | * PTM72625 14605 | * INITLZ TO DECODE NEXT RCD FLD PTM72630 14606 | * PTM72635 13C2 6B10 14607 | NXFLD STX 3 FLDX SAVE CURRENT COL POS PTM72640 13C3 6922 14608 | STX 1 M3B01+1 SAVE XR1 PTM72645 13C4 6580 0238 14609 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM72650 13C6 C115 14610 | LD 1 +21 CHECK FOR COMMENTS PTM72655 13C7 F0F9 14611 | EOR ASTK2 *RCD PTM72660 13C8 4C18 13E5 14612 | BSC L M3B01,+- BR-COMMENTS RCD PTM72665 13CA 1010 14613 | SLA 16 PTM72670 13CB D01D 14614 | STO MCHX CLEAR CHAR CNT PTM72675 13CC 73D9 14615 | MDX 3 -39 TEST FOR OPERAND FIELD 2-10 PTM72680 13CD 7001 14616 | MDX *+1 SKIP-NOT OPERAND FLD PTM72685 13CE 7003 14617 | MDX CHEZ RETURN TO CHAR CHECK PTM72690 13CF 73FA 14618 | MDX 3 -6 DETERMINE FIELD 2-10 PTM72695 13D0 700F 14619 | MDX NX45 BR TO PROCESS OP CODE FLD PTM72700 13D1 7009 14620 | MDX NX40 BR TO PROCESS TAG FLD PTM72705 14621 | * PTM72710 13D2 6700 0000 14622 | CHEZ LDX L3 *-* RESTORE XR3 PTM72715 13D3 14623 | FLDX EQU *-1 PTM72720 13D4 6580 13E6 14624 | LDX I1 M3B01+1 RESTORE XR1 PTM72725 13D6 4C00 134C 14625 | BSC L CHX1 RETURN TO DECODE PTM72730 14626 | * PTM72735 13D8 7405 133A 14627 | CHEX1 MDX L CHECK,5 DO NOT PLACE CHAR PTM72740 13DA 708D 14628 | MDX CHEX CONT TO DECODE PTM72745 14629 | * PTM72750 13DB 6327 14630 | NX40 LDX 3 39 SET COL CNT PTM72755 13DC 6B8D 14631 | STX 3 CHKTP SET I/P FLD PT PTM72760 13DD 7301 14632 | MDX 3 1 INCR COL CNT PTM72765 13DE 7120 14633 | MDX 1 +32 XR1 PT TO TAG FLD PTM72770 13DF 70F8 14634 | MDX CHEX1 RETURN TO DECODE PTM72775 14635 | * PTM72780 13E0 632D 14636 | NX45 LDX 3 45 SET COL CNT PTM72785 13E1 6580 0238 14637 | LDX I1 RDBFR PTM72790 13E3 711B 14638 | MDX 1 +27 XR1 PT TO OP CODE FLD PTM72795 13E4 70F3 14639 | MDX CHEX1 RETURN TO DECODE PTM72800 14640 | * PTM72805 13E5 6500 0000 14641 | M3B01 LDX L1 *-* RESTORE XR1 PTM72810 13E7 4C00 1366 14642 | BSC L CHEX-2 CONT TO DECODE PTM72815 14643 | * PTM72820 14644 | * CONSTANTS AND INDICATORS PTM72825 14645 | * PTM72830 13E9 0000 14646 | MCHX DC *-* CHAR CNT PTM72835 13EA 72FF 14647 | FBMSK MDX 2 -1 INSTRUCTION MODIFIER PTM72840 13EB 000A 14648 | D10 DC 10 CONSTANT 10 PTM72845 13EC 00F0 14649 | HXF0 DC /F0 POSITIVE ZONE CONSTANT PTM72850 13ED 0041 14650 | PLUSI DC /0041 MACRO INDR PTM72855 14651 | * PTM72860 14652 | * PROCESS FD INDR PTM72865 14653 | * END OF RCD PROCESSING PTM72870 14654 | * PTM72875 13EE 18D0 14655 | FD RTE 16 MOVE EXT TO ACC PTM72880 13EF 6E00 1505 14656 | STX L2 SAVFD SAVE XR2 PTM72885 13F1 6680 07B1 14657 | LDX I2 MACCT XR2 IS DEPTH CTR PTM72890 13F3 D600 1505 14658 | STO L2 SAVFD SAVE EXT IN NEST TBL PTM72895 13F5 C400 1505 14659 | LD L SAVFD PTM72900 13F7 D600 1504 14660 | STO L2 SAVFD-1 SAVE XR2 IN NEST TBL PTM72905 13F9 4400 025F 14661 | BSI L LDXRS RESTORE XR1 AND XR3 PTM72910 13FB C3F3 14662 | LD 3 PSMDE-X3 CHECK PASS MODE INDR 2-11 PTM72912 13FC 4C20 1404 14663 | BNZ TWPAS BRANCH IS 2-PASS MODE 2-11 PTM72913 13FE 4008 14664 | BSI M3BBC SEARCH FOR LEFT BLK 2/11 PTM72915 13FF C0ED 14665 | LD PLUSI SET MACRO INDICATOR 2/11 PTM72916 1400 D400 0000 14666 | FD050 STO L *-* 2/11 PTM72917 1402 4C80 073A 14667 | FD060 BSC I P9220 RETURN 2-11 PTM72918 1404 C013 14668 | TWPAS LD MACPL LD + INDICATOR 2-11 PTM72919 1405 D114 14669 | STO 1 20 STORE AT COL 20 2-11 PTM72920 1406 70FB 14670 | B FD060 GO TO RETURN 2-11 PTM72921 14671 | * 2/11 PTM72930 14672 | * SUBROUT INE TO SEARCH FOR RIGHT MOST 2/11 PTM72931 14673 | * CHARACT ER OF STATEMENT 2/11 PTM72932 14674 | * 2/11 PTM72933 1407 0000 14675 | M3BBC DC *-* ENTRY 2/11 PTM72934 1408 714F 14676 | MDX 1 79 BUMP TO COL 80 2/11 PTM72935 1409 632D 14677 | LDX 3 45 MAX COUNT 21-80 2/11 PTM72936 140A C100 14678 | M3B05 LD 1 0 GET THE CHARACTER 2/11 PTM72937 140B F00B 14679 | EOR MACBK IS IT A BLANK 2/11 PTM72938 140C 4C20 1411 14680 | BSC L M3B10,Z 2/11 PTM72939 140E 71FF 14681 | MDX 1 -1 DECR COL POINTER 2/11 PTM72940 140F 73FF 14682 | MDX 3 -1 DECR CHAR COUNT 2/11 PTM72941 1410 70F9 14683 | MDX M3B05 BACK FOR NEXT CHAR 2/11 PTM72942 1411 7103 14684 | M3B10 MDX 1 3 BACK TO THE BLANK 212 PTM72943 1412 69EE 14685 | STX 1 FD050+1 SAVE COL ADDR 2/11 PTM72944 1413 4400 025F 14686 | BSI L LDXRS RESTORE 2/11 PTM72945 1415 4C80 1407 14687 | BSC I M3BBC RETURN 2/11 PTM72946 14688 | * 2/11 PTM72947 1417 0040 14689 | MACBK DC . BLANK 2/11 PTM72948 1418 004E 14690 | MACPL DC .+ PLUS 2/11 PTM72949 14691 | * 2/11 PTM72950 14692 | * ENTRY FROM RDCRD 2/11 PTM72951 14693 | * 2/11 PTM72952 1419 6680 07B1 14694 | FDNXT LDX I2 MACCT XR2 IS DEPTH COUNTER 2-11 PTM72953 141B 1010 14695 | SLA 16 PTM72955 141C D0CC 14696 | STO MCHX CLEAR CHARACTER COUNT PTM72960 141D CE00 1504 14697 | LDD L2 SAVFD-1 FETCH SKEL PT AND EXT PTM72965 141F D008 14698 | STO FDNX1+1 SET TO RESTORE SKEL PT PTM72970 1420 4400 07E5 14699 | BSI L SCLR CLEAR I/P BFR PTM72975 1422 C600 1505 14700 | LD L2 SAVFD FETCH POS IN SKELETON PTM72980 1424 6580 0238 14701 | LDX I1 RDBFR XR1 PT TO I/P BFR PTM72985 1426 7115 14702 | MDX 1 +21 XR1 PT TO LABEL FLD PTM72990 1427 6600 0000 14703 | FDNX1 LDX L2 *-* RESTORE SKELETON PT PTM72995 1429 4C20 1313 14704 | BSC L EXP02,Z BR TO DECODE 2ND CHAR PTM73000 142B 4C00 131B 14705 | BSC L EXP03 BR TO CHECK FOR END OF SCTR PTM73005 14706 | * PTM73010 14707 | * PROCESS FE INDR PTM73015 14708 | * END OF MACRO PROCESSING PTM73020 14709 | * PTM73025 142D 74FE 07B1 14710 | FE MDX L MACCT,-2 DECR DEPTH CTR PTM73030 142F 7021 14711 | MDX FENXT BR TO HANDLE NESTING PTM73035 14712 | * PTM73040 1430 14713 | FE00 EQU * SET END SW PTM73045 1430 6700 0219 14714 | LDX L3 ASMCM RESTORE XR3 PTM73050 1432 CBD3 14715 | LDD 3 PINPT-X3 SET PRINC I/P SUBR HDR PTM73055 1433 DC80 045B 14716 | STD I RP000 PTM73060 1435 C832 14717 | LDD B3901 DK READ PARAM TO ACC,EXT PTM73065 1436 435C 14718 | BSI 3 DISK1-X3 REFRESH PRINC I/P SUBR PTM73070 1437 C834 14719 | LDD B3902+2 SET HEADER TO LOAD PTM73075 1438 DB67 14720 | STD 3 OVLAY-X3 *MACRO PH 2 PTM73080 1439 C039 14721 | LD B3905 SET XEQ ADDR FOR MACRO PH 2 PTM73085 143A D35A 14722 | STO 3 P0140+1-X3 PTM73090 143B 4C00 0270 14723 | BSC L P0130 XEQ MACRO PH 2 PTM73095 14724 | * PTM73100 143D 14725 | FE000 EQU * RESTORE MACRO PH 3A PTM73105 143D C320 14726 | FE01 LD 3 RDBFR+1-X3 FETCH I/O AREA ADDR PTM73110 143E 4480 01FF 14727 | BSI I CVADR CONVERT NEXT RCD TO EBCDIC PTM73115 1440 C31F 14728 | LD 3 RDBFR-X3 RESTORE I/O AREA HDR PTM73120 1441 D400 0793 14729 | STO L P9245+5 PTM73125 1443 4400 07A8 14730 | BSI L RDCRD BR TO GET NEXT RCD PTM73130 1445 7400 0013 14731 | MDX L $IBSY,0 TEST BUSY PTM73135 1447 70FD 14732 | MDX *-3 PTM73140 1448 C115 14733 | LD 1 +21 TEST FOR ASTERISK IN CC 21 PTM73145 1449 F01D 14734 | EOR M3BAS PTM73150 144A 4C18 144F 14735 | BSC L *+3,+- BR-ASTERISK IN CC 21 PTM73155 144C C400 1417 14736 | LD L MACBK SET COL +34 TO BLANK PTM73160 144E D122 14737 | STO 1 +34 *UNCONDITIONALLY PTM73165 144F 4C00 045D 14738 | BSC L BGASM CONT ASSEMBLY PTM73170 14739 | * PTM73175 1451 6680 07B1 14740 | FENXT LDX I2 MACCT XR2 IS DEPTH CTR PTM73180 1453 74FF 07B0 14741 | MDX L DEPTH,-1 DECREMENT DEPTH SYMBOL PTM73185 1455 7401 07DF 14742 | MDX L DEEP,1 INCR DEPTH CTR PTM73190 1457 C600 0C16 14743 | LD L2 MACTB-2 RESTORE SKELETON SCTR ADDR PTM73195 1459 1001 14744 | SLA 1 PTM73200 145A 1801 14745 | SRA 1 CLEAR HIGH ORDER BIT PTM73205 145B D400 0C47 14746 | STO L SKEL1+1 PTM73210 145D 4400 07F8 14747 | BSI L RDSK READ SKELETON SCTR PTM73215 14748 | * PTM73220 14749 | * END OF MACRO HAS OCCURRED SET CALL PTS PTM73225 14750 | * (PRMLC + PRLOC) TO PREVIOUS CALL IF NESTED PTM73230 145F C011 14751 | LD PRMLC PT TO CALL PARAM FOR PTM73235 1460 D00F 14752 | STO PRLOC *THIS NEST LEVEL PTM73240 1461 63FF 14753 | LDX 3 -1 PT TO NEXT AVAILABLE PTM73245 1462 6B0F 14754 | STX 3 PRREL *CALLER,GET BACKWARD PT PTM73250 1463 4400 14E3 14755 | BSI L PRLD *TO PREVIOUS CALL PTM73255 1465 D00B 14756 | STO PRMLC *AND SAVE PTM73260 1466 70B4 14757 | MDX FDNXT+2 PROCESS NEXT RCD PTM73265 14758 | * PTM73270 14759 | * CONSTANTS PTM73275 14760 | * PTM73280 1467 005C 14761 | M3BAS DC .* EBCDIC ASTERISK PTM73285 1468 14762 | BSS E 0 FORCE EVEN ADDR PTM73290 1468 7000 14763 | B3901 DC /7000 DK READ FUNC CODE PTM73295 1469 0C18 14764 | DC P9468 I/O AREA ADDR PTM73300 146A 14765 | BSS E 0 FORCE EVEN ADDR PTM73305 146A 00EC 14766 | B3902 DC /EC SLET ID OF MACRO PH 2 PTM73310 146B 14767 | BSS 3 PTM73315 146E 14768 | BSS E 0 FORCE EVEN ADDR PTM73320 146E 7000 14769 | B3904 DC /7000 DK READ FUNC CODE PTM73325 146F 128C 14770 | DC PBUFF-2 I/O AREA ADDR PTM73330 1470 14771 | BSS E 0 FORCE EVEN ADDR PTM73335 1470 0000 14772 | PRLOC DC *-* PBUFF END +1 PTM73340 1471 0000 14773 | PRMLC DC *-* PBUFF CURR CALL PT PTM73345 1472 0000 14774 | PRREL DC *-* PT WITHIN MACRO CALL PTM73350 1473 03E3 14775 | B3905 DC ELIB1 MACRO PH 2 SPECIAL ENTRY PTM73355 14776 | * PTM73360 14777 | * PROCESS FF INDR PTM73365 14778 | * SKELETON SCTR TRUNCATION PTM73370 14779 | * PTM73375 1474 14780 | FF EQU * PTM73380 1474 6B0F 14781 | STX 3 FF3+1 SAVE XR3 PTM73385 1475 7401 0C47 14782 | MDX L SKEL1+1,1 INCR SKELETON SCTR ADDR PTM73390 1477 4400 07F8 14783 | BSI L RDSK READ SKELETON SCTR ADDR PTM73395 1479 6680 07B1 14784 | LDX I2 MACCT UPDATE MACRO NEST TBL PTM73400 147B C600 0C16 14785 | LD L2 MACTB-2 *SKELETON SCTR ADDR PTM73405 147D 8039 14786 | A SUB1 PTM73410 147E D600 0C16 14787 | STO L2 MACTB-2 PTM73415 1480 6201 14788 | LDX 2 1 INITLZ SKELETON SCTR PT PTM73420 1481 6E00 1305 14789 | STX L2 STAR PTM73425 1483 6700 0000 14790 | FF3 LDX L3 *-* RESTORE XR3 PTM73430 1485 4C00 1309 14791 | BSC L EXP01 CONT TO DECODE PTM73435 14792 | * PTM73440 14793 | * SUBROUTINE TO MOVE PARAM STRING PTM73445 14794 | * PTM73450 14795 | * XR1 IS TARGET ADDR PTM73455 14796 | * XR2 IS STRING CTR PTM73460 14797 | * XR3 IS SOURCE ADDR PTM73465 14798 | * PTM73470 1487 0000 14799 | MSTNG DC *-* ENTRY PT PTM73475 1488 4400 14E3 14800 | MST01 BSI L PRLD LD 2 BYTES FROM PBUFF PTM73480 148A 18C8 14801 | RTE 8 SHIFT OUT 1ST CHAR PTM73485 148B 4820 14802 | MST02 BSC Z PTM73490 148C D100 14803 | STO 1 0 STORE CHAR IF EXISTS PTM73495 148D 4820 14804 | BSC Z IF CHAR PRESENT PTM73500 148E 7101 14805 | MDX 1 1 *INCR TARGET ADDR PT PTM73505 148F 1010 14806 | SLA 16 CLEAR ACC PTM73510 1490 1088 14807 | SLT 8 GET NEXT CHAR PTM73515 1491 4C18 1496 14808 | BSC L MST03,+- BR IF NO CHAR PTM73520 1493 72FF 14809 | MDX 2 -1 DECR CHAR CNT PTM73525 1494 70F6 14810 | MDX MST02 CONT MOVE OPERATION PTM73530 1495 7002 14811 | MDX MST04 BR-MOVE COMPLETED PTM73535 14812 | * PTM73540 1496 14813 | MST03 EQU * PTM73545 1496 72FF 14814 | MDX 2 -1 DECR CHAR CNT PTM73550 1497 70F0 14815 | MDX MST01 CONT STRING MOVE PTM73555 1498 4C80 1487 14816 | MST04 BSC I MSTNG RETURN TO CALLER PTM73560 14817 | * PTM73565 14818 | * PARAMETER SUBSTITUTION SUBR PTM73570 14819 | * PTM73575 149A 6E00 139C 14820 | PSUB STX L2 FXR2 SAVE XR2 PTM73580 149C 6B3D 14821 | STX 3 PSUB3+1 SAVE XR3 PTM73585 149D 6214 14822 | LDX 2 20 SET INDIRECT SUBSTITUTE CTR PTM73590 149E 1086 14823 | SLT 6 SHIFT IN PAREM NUMBER PTM73595 149F 6300 14824 | PSUB0 LDX 3 0 SET RELATIVE PT TO ZERO PTM73600 14A0 6BD1 14825 | STX 3 PRREL PTM73605 14A1 D016 14826 | STO PSUB1 SAVE PARAM NO. PTM73610 14A2 C037 14827 | LD PSUB3+1 TEST COL CNT FOR ZERO PTM73615 14A3 4C18 14D7 14828 | BSC L PSUB2,+- EXIT IF END OF RCD PTM73620 14A5 403D 14829 | BSI PRLD IS PARAM NO. GT NEEDED PTM73625 14A6 9011 14830 | S PSUB1 PTM73630 14A7 4C28 14DF 14831 | BSC L PSUB4,+Z BYPASS SUBSTITUTION PTM73635 14A9 4039 14832 | SUB2 BSI PRLD GET NEXT PARAM NO./STG CNT PTM73640 14AA 18C9 14833 | RTE 9 CHECK PARAM NO 2-11 PTM73645 14AB 900C 14834 | S PSUB1 PTM73650 14AC 4818 14835 | BSC +- SKIP IF STRING NOT FOUND PTM73655 14AD 700E 14836 | MDX SUBIT SUBSTITUTE STRING PTM73660 14AE 1091 14837 | SLT 17 PTM73665 14AF 1808 14838 | SRA 8 CHAR COUNT TO ACC 2-11 PTM73670 14B0 4802 14839 | BSC C SKIP-NO INDIRECT SUBSTITUTE PTM73675 14B1 1010 14840 | SLA 16 CLEAR CHAR CNT PTM73680 14B2 8004 14841 | A SUB1 INCR CHAR CNT PTM73685 14B3 1801 14842 | SRA 1 ADJUST PARAM STRING PT PTM73690 14B4 80BD 14843 | A PRREL ADD PREVIOUS PT AND NT PTM73695 14B5 D0BC 14844 | STO PRREL *STO FOR NEXT PARAM PT PTM73700 14B6 70F2 14845 | MDX SUB2 RETURN TO SEARCH PBUFF PTM73705 14846 | * PTM73710 14847 | * CONSTANTS AND SAVE AREAS PTM73715 14848 | * PTM73720 14B7 0001 14849 | SUB1 DC 1 CONSTANT 1 PTM73725 14B8 0000 14850 | PSUB1 DC *-* TEMP STORAGE PTM73730 14BA 14851 | PRSVE BSS E 2 SAVE LOCN FOR PRLD PTM73735 14852 | * PTM73740 14853 | * PERFORM PARAM SUBSTITUTION PTM73745 14854 | * PTM73750 14BC 1091 14855 | SUBIT SLT 17 PTM73755 14BD 1808 14856 | SRA 8 CHAR COUNT TO ACC 2-11 PTM73760 14BE 4C02 14DD 14857 | BSC L PSUBI,C BR-INDIRECT SUBSTITUTE PTM73765 14C0 4C18 14DF 14858 | BSC L PSUB4,+- EXIT,CHAR CNT ZERO PTM73770 14C2 D001 14859 | STO *+1 PTM73775 14C3 6600 0000 14860 | SUBI1 LDX L2 *-* XR2 IS CHAR CNT PTM73780 14C5 9014 14861 | S PSUB3+1 PTM73785 14C6 4C28 14CE 14862 | BSC L SUBI2,+Z BR IF VALID STRING LNG PTM73790 14C8 6680 14DA 14863 | LDX I2 PSUB3+1 XR2 IS STRING LNG PTM73795 14CA 1010 14864 | SLA 16 CLEAR ACC PTM73800 14CB 7200 14865 | MDX 2 0 TEST STRING LNG PTM73805 14CC 7003 14866 | MDX SUBI2+2 BR TO PLACE STRING PTM73810 14CD 7009 14867 | MDX PSUB2 CONT TO DECODE PTM73815 14868 | * PTM73820 14CE C00B 14869 | SUBI2 LD PSUB3+1 CALC NO. OF CHARS ALLOWED PTM73825 14CF 90F4 14870 | S SUBI1+1 *AFTER STRING PLACED PTM73830 14D0 D009 14871 | STO PSUB3+1 *IN I/P BFR PTM73835 14D1 C400 13E9 14872 | LD L MCHX UPDATE CHAR CNT PTM73840 14D3 80F0 14873 | A SUBI1+1 *TO ACCT FOR STRING PTM73845 14D4 D400 13E9 14874 | STO L MCHX PTM73850 14D6 40B0 14875 | BSI MSTNG BR TO PLACE STRING PTM73855 14876 | * PTM73860 14D7 6680 139C 14877 | PSUB2 LDX I2 FXR2 RESTORE XR2 PTM73865 14D9 6700 0000 14878 | PSUB3 LDX L3 *-* RESTORE XR3 PTM73870 14DB 4C00 13D8 14879 | BSC L CHEX1 RETURN TO DECODE PTM73875 14DD 72FF 14880 | PSUBI MDX 2 -1 DECR INDIRECT SUBSTITUTE CTRPTM73880 14DE 70C0 14881 | MDX PSUB0 CONT PBUFF SCAN PTM73885 14DF 7400 136A 14882 | PSUB4 MDX L CHKTP,0 IF FLAG OR TAG FLD, PTM73890 14E1 7101 14883 | MDX 1 1 ACCT FOR ONE CHAR PTM73895 14E2 70F4 14884 | MDX PSUB2 RETURN TO DECODE PTM73900 14885 | * PTM73905 14E3 0000 14886 | PRLD DC *-* ENTRY POINT PTM73910 14E4 6700 128E 14887 | LDX L3 PBUFF ADDR PARAM BFR TO XR3 PTM73915 14E6 C08A 14888 | LD PRMLC ADDR 1ST WD THIS CALL PTM73920 14E7 808A 14889 | A PRREL ADDR 1ST WD REQUESTED PTM73925 14E8 1890 14890 | SRT 16 INTO EXT PTM73930 14E9 AB00 14891 | D 3 0 TEST TO SEE IF CORRECT PTM73935 14EA 8400 12F6 14892 | A L PBASE *SCTR IN PARAM BFR PTM73940 14EC D8CD 14893 | STD PRSVE SAVE SCTR ADDR,REL ADDR PTM73945 14ED 9301 14894 | S 3 1 PTM73950 14EE 4C18 14F9 14895 | BSC L PRLD0,-+ BR-NO DISK READ REQUIRED PTM73955 14896 | * PTM73960 14F0 C83D 14897 | LDD A3901 PTM73965 14F1 4400 0275 14898 | BSI L DISK1 WRITE OLD SCTR TO DISK PTM73970 14F3 C0C6 14899 | LD PRSVE SET NEW SCTR ADDR PTM73975 14F4 D301 14900 | STO 3 1 PTM73980 14F5 C838 14901 | LDD A3901 PREPARE TO PTM73985 14F6 90C0 14902 | S SUB1 PTM73990 14F7 4400 0275 14903 | BSI L DISK1 READ PARAM SPILL SCTR PTM73995 14904 | * PTM74000 14F9 6780 14BB 14905 | PRLD0 LDX I3 PRSVE+1 LD DISP PT TO XR3 PTM74005 14FB 1090 14906 | SLT 16 PTM74010 14FC C700 1290 14907 | LD L3 PBUFF+2 FETCH PARAM STRING WD PTM74015 14FE 7401 1472 14908 | MDX L PRREL,1 POINT TO NEXT WD PTM74020 1500 1000 14909 | NOP MAY SKIP PTM74025 1501 4C80 14E3 14910 | BSC I PRLD RETURN TO CALLER PTM74030 14911 | * PTM74035 14912 | * CONSTANTS AND SAVE AREAS PTM74040 14913 | * PTM74045 1504 14914 | BSS E 1 TEMP SAVE AREA PTM74050 1505 0000 14915 | SAVFD DC *-* TEMP SAVE AREA PTM74055 1506 14916 | BSS 40 DUPLICATE NEST TBL PTM74060 152E 7001 14917 | A3901 DC /7001 DISK WRITE FUNC CODE PTM74065 152F 128E 14918 | DC PBUFF I/O AREA ADDR PTM74070 14919 | * PTM74075 14920 | * CROSS-REFERENCE P9MVE INTERFACE PTM74080 14921 | * PTM74085 1530 71FB 14922 | X9MVE MDX 1 -5 ADJUST I/P PT FOR STMNT NO. PTM74090 1531 690D 14923 | STX 1 MV020 PTM74095 1532 71FF 14924 | MDX 1 -1 SET O/P SEPARATOR PTM74100 1533 C025 14925 | LD MVBLK FETCH BLANK PTM74105 1534 D101 14926 | STO 1 1 *COLS. TO BLANK PTM74110 14927 | * PTM74115 14928 | * PTM74120 1535 6205 14929 | LDX 2 5 SET PRECISION TO 5 PTM74125 1536 7401 0254 14930 | MDX L RDMDE,1 INCR STMNT NO. PTM74130 1538 C400 0254 14931 | LD L RDMDE FETCH STMNT NO. PTM74135 153A 1890 14932 | SRT 16 PTM74140 14933 | * PTM74145 153B A817 14934 | MV010 D MV060 CALC DECML DGT PTM74150 153C 18D0 14935 | RTE 16 PTM74155 153D F016 14936 | EOR MV070 ADD ZONE PTM74160 153E D600 0000 14937 | STO L2 *-* SAVE DGT IN I/P BFR PTM74165 153F 14938 | MV020 EQU *-1 PTM74170 1540 1010 14939 | SLA 16 CLEAR LAST DGT PTM74175 1541 72FF 14940 | MDX 2 -1 PTM74180 1542 70F8 14941 | MDX MV010 CONT TO PLACE STMNT NO. PTM74185 14942 | * PTM74190 1543 741B 081C 14943 | MDX L PACK-1,+27 MODIFY P9MVE FOR XREF PTM74195 1545 C012 14944 | LD MV090 PTM74200 1546 D400 0827 14945 | STO L PACK0+1 PTM74205 1548 6600 0AAD 14946 | LDX L2 PRBFR+8 SET O/P BFR PT PTM74210 154A 4C00 081C 14947 | BSC L PACK-1 PACK 2ND PART OF BFR PTM74215 14948 | * PTM74220 14949 | * RESTORE P9MVE,SET TO PRINT A LINE PTM74225 14950 | * PTM74230 154C 74E5 081C 14951 | MV030 MDX L PACK-1,-27 RESTORE P9MVE PTM74235 154E C807 14952 | LDD MV080 PTM74240 154F D400 0827 14953 | STO L PACK0+1 PTM74245 1551 4C00 0828 14954 | BSC L PACK1 PTM74250 14955 | * PTM74255 14956 | * CONSTANTS PTM74260 14957 | * PTM74265 1553 000A 14958 | MV060 DC 10 CONSTANT 10 PTM74270 1554 00F0 14959 | MV070 DC /F0 EBCDIC POSITIVE ZONE PTM74275 1555 0000 14960 | XADJS DC *-* ADJUSTED W.S. PT 2-8 PTM74280 1556 14961 | BSS E 0 FORCE EVEN ADDR PTM74285 1556 1530 14962 | MV080 DC X9MVE RETURN ADDR FOR P9MVE PTM74290 1557 0AA5 14963 | DC PRBFR I/O PRINT AREA ADDR PTM74295 1558 154C 14964 | MV090 DC MV030 RETURN ADDR FOR P9MVE PTM74300 1559 0040 14965 | MVBLK DC . EBCDIC BLANK PTM74305 14966 | * 2/11 PTM74310 14967 | * 2/11 PTM74315 14968 | * 2/11 PTM74320 14969 | * 2/11 PTM74325 14970 | * 2/11 PTM74330 14971 | * 2/11 PTM74335 14972 | * 2/11 PTM74340 14973 | * 2/11 PTM74345 14974 | * 2/11 PTM74350 14975 | * 2/11 PTM74355 14976 | * 2/11 PTM74360 14977 | * 2/11 PTM74365 14978 | * 2/11 PTM74370 14979 | * 2/11 PTM74375 14980 | * 2/11 PTM74380 14981 | * 2/11 PTM74385 155A 0000 14982 | XADCO DC *-* SAVED ADCOW VALUE 2-9 PTM74390 155B 4400 0802 14983 | OUT BSI L P9250 AT PASS 2 P9233 BR TO 2-10 PTM74395 155D 4C00 0000 14984 | IN BSC L *-* *HERE TO UPDATE STMNT 2-10 PTM74400 155F 4C20 155B 14985 | BSC L OUT,Z *NO. EVEN IF STMNT IS 2-10 PTM74405 1561 7401 0254 14986 | MDX L RDMDE,1 *NOT TO BE LISTED. IF 2-10 PTM74410 1563 1000 14987 | NOP SKIP IF >32,767 STMTS 212 PTM74412 1564 70F8 14988 | MDX IN *LIST,OUT TO P9MVE. 2-10 PTM74415 1566 14989 | BSS E 1 2/11 PTM74420 1567 000A 14990 | A1925 DC A1935-A1930 2/11 PTM74420 1568 14991 | A1930 EQU * 2/11 PTM74421 1568 C1F0 F840 D4C1 C3D3 14992 | EBC .A08 MACLIB UNDEFINED. 2/11 PTM74422 C9C2 40E4 D5C4 C5C6 | C9D5 C5C4 | 1572 14993 | A1935 EQU * 2/11 PTM74423 1572 14994 | BSS /1573-* 2/11 PTM74424 1573 0000 14995 | M3BZ DC 0 END OF MACRO PH 3B PTM74425 DIVISION OPERATOR PROCESSOR 14997 | *************************************************** PTM74435 14998 | * * PTM74440 14999 | *STATUS-VERSION 2,MODIFICATION 8 * PTM74445 15000 | * * PTM74450 15001 | *FUNCTION/OPERATION- * PTM74455 15002 | * *PROCESSES THE DIVISION OPERATOR IN AN * PTM74460 15003 | * ASSEMBLER LANGUAGE EXPRESSION * PTM74465 15004 | * *PHASE IN THE OVERLAY AREA AT THE TIME * PTM74470 15005 | * A DIVISION OPERATOR IS ENCOUNTERED IS * PTM74475 15006 | * SAVED ON DISK,OVERLAID IN CORE BY THE * PTM74480 15007 | * DIVISION OPERATOR PROCESSOR.WHEN THE * PTM74485 15008 | * DIVISION OPERATOR IS PROCESSED,THE * PTM74490 15009 | * ORIGINAL OVERLAY PHASE IS RESTORED IN * PTM74495 15010 | * CORE. PROCESSING OF THE ASSEMBLER * PTM74500 15011 | * LANGAGE EXPRESSION CONTINUES. * PTM74505 15012 | * * PTM74510 15013 | *ENTRY POINT- * PTM74515 15014 | * *DIVSN * PTM74520 15015 | * * PTM74525 15016 | *INPUT- * PTM74530 15017 | * *RECORD IN INPUT BUFFER * PTM74535 15018 | * * PTM74540 15019 | *OUTPUT- * PTM74545 15020 | * *ELMNT VALUE SET IN ASMCM * PTM74550 15021 | * * PTM74555 15022 | *EXTERNAL REFERENCES- * PTM74560 15023 | * *SUBROUTINES- * PTM74565 15024 | * *COLL * PTM74570 15025 | * *ERFLG * PTM74575 15026 | * *F0130 * PTM74580 15027 | * *SCAN * PTM74585 15028 | * *ASMCM- * PTM74590 15029 | * *ELMNT * PTM74595 15030 | * *RLCNT * PTM74600 15031 | * *VALUE * PTM74605 15032 | * * PTM74610 15033 | *EXIT- * PTM74615 15034 | * *RETURNS TO SCAN THROUGH MASTER OVERLAY * PTM74620 15035 | * CONTROL AT P9062 * PTM74625 15036 | * * PTM74630 15037 | *TABLES/WORK AREAS-N/A * PTM74635 15038 | * * PTM74640 15039 | *ATTRIBUTES-N/A * PTM74645 15040 | * * PTM74650 15041 | *NOTES-N/A * PTM74655 15042 | * * PTM74660 15043 | *************************************************** PTM74665 *SBRKSLS E7 15044 | ASM DIVISION OPERATOR V2M08 PTM74670 0280 15045 | ORG OVLAY PTM74675 0280 00B7 15046 | DC DIV99-DIVSN PH WD CNT PTM74680 0281 00E7 15047 | DC /E7 SLET ID OF DIVISION OP PTM74685 05B4 15048 | COLL EQU P9154 PTM74690 0566 15049 | INTYP EQU P9098 PTM74695 050B 15050 | TYPE EQU P9064 PTM74700 0282 C400 023E 15051 | DIVSN LD L VALUE RESULT OF PRIOR SCAN PTM74705 0284 D400 0308 15052 | STO L DIV80 SAVE VALUE PTM74710 0286 1010 15053 | SLA 16 ZERO ACC PTM74715 0287 D400 023E 15054 | STO L VALUE SET TO ZERO PTM74720 0289 C400 04E1 15055 | LD L SCAN RETURN ADDR AT SCAN ENTRY PTM74725 028B D07D 15056 | STO DIV81 SAVE IT PTM74730 028C 697E 15057 | STX 1 DIV83 SAVE POINTER TO SLASH PTM74735 028D 6A36 15058 | STX 2 DIV20+1 SAVE XR2 PTM74740 028E 6B42 15059 | STX 3 DIV48+1 SAVE XR3 PTM74745 028F 6600 0313 15060 | LDX L2 DVER SET AS EXIT PTM74750 0291 6E00 04E1 15061 | STX L2 SCAN AT CAN PTM74755 0293 4400 05B4 15062 | BSI L COLL EVAL FIRST PART PTM74760 0295 7400 0241 15063 | MDX L RLCNT,0 TEST FOR ERROR PTM74765 0297 707B 15064 | MDX DVER ERROR PTM74770 0298 C400 023E 15065 | LD L VALUE GET IT PTM74775 029A D06F 15066 | STO DIV82 SAVE IT PTM74780 029B 6600 029F 15067 | LDX L2 DIV09 SET RETURN ADDR PTM74785 029D 63FB 15068 | LDX 3 -5 SET CHAR CNT PTM74790 029E 4007 15069 | BSI DVSCN SCAN FOR SPECIAL CHAR PTM74795 029F 7402 02AA 15070 | DIV09 MDX L DVSC1+1,2 ADJUST SCAN SUBR PTM74800 02A1 6600 02C3 15071 | DIV10 LDX L2 DIV20 SET RETURN ADDR PTM74805 02A3 63F9 15072 | LDX 3 -7 SET CHAR CNT PTM74810 02A4 4001 15073 | BSI DVSCN SCAN FOR SPECIAL CHAR PTM74815 02A5 70FB 15074 | MDX DIV10 CONT CHAR SCAN PTM74820 02A6 0000 15075 | DVSCN DC *-* ENTRY PT PTM74825 02A7 7101 15076 | MDX 1 1 INCR CARD PT PTM74830 02A8 C100 15077 | LD 1 0 FETCH CHAR PTM74835 02A9 9700 02B6 15078 | DVSC1 S L3 DIV03+5 TEST FOR SPECIAL CHAR PTM74840 02AB 4E18 0000 15079 | BSC L2 0,+- BR IF SPECIAL CHAR PTM74845 02AD 7301 15080 | MDX 3 1 INCR CHAR CNT PTM74850 02AE 70FA 15081 | MDX DVSC1 CONT SCAN PTM74855 02AF 4C80 02A6 15082 | BSC I DVSCN RETURN TO CALLER PTM74860 02B1 004E 15083 | DIV03 DC .+ TEST PLUS PTM74865 02B2 0012 15084 | DC .--.+ TEST MINUS PTM74870 02B3 FFF0 15085 | DC /50-.- TEST AMPERSAND PTM74875 02B4 0011 15086 | DC ./-/50 TEST SLASH PTM74880 02B5 FFFB 15087 | DC .*-./ TEST ASTERISK PTM74885 02B6 000F 15088 | DC .,-.* TEST COMMA PTM74890 02B7 FFD5 15089 | DC /40-., TEST BLANK PTM74895 02B8 00D8 15090 | DQFLG DC .Q EBCDIC Q - WARNING PTM74900 02B9 0000 15091 | DWARN DC *-* ENTRY PT PTM74905 02BA C0FE 15092 | LD DWARN SET RETURN ADDR PTM74910 02BB D400 0701 15093 | STO L P9202 PTM74915 02BD 7439 070E 15094 | MDX L ERADD,MCOM5-ERCNT PT TO WARN CNT PTM74920 02BF C0F8 15095 | LD DQFLG FETCH FLAG PTM74925 02C0 4C00 0706 15096 | BSC L FLGCO JOIN ERFLG SUBR PTM74930 02C2 005C 15097 | DIV15 DC .* EBC ASTERISK PTM74935 02C3 6600 0000 15098 | DIV20 LDX L2 *-* RESTORE XR2 PTM74940 02C5 C100 15099 | LD 1 0 FETCH TERMINATOR PTM74945 02C6 D045 15100 | STO DIV84 SAVE IT PTM74950 02C7 F057 15101 | EOR DIVSL PTM74955 02C8 4C18 0310 15102 | BSC L DIVR1,+- BR-MULTIPLE DIVISION OP PTM74960 02CA C044 15103 | LD DBLNK EBCDIC BLANK PTM74965 02CB D100 15104 | STO 1 0 REPLACE TERMINATOR W/BLANK PTM74970 02CC 6922 15105 | STX 1 DIV40 SAVE TERMINATOR POINTER PTM74975 02CD 6580 030B 15106 | LDX I1 DIV83 POINTS TO DIVISION SIGN PTM74980 02CF 7101 15107 | MDX 1 1 POINT TO COLUMN AFTER / PTM74985 02D0 6700 0000 15108 | DIV48 LDX L3 *-* RESTORE XR3 PTM74990 02D2 4400 04E1 15109 | BSI L SCAN EVALUATE THE DIVISOR PTM74995 02D4 7400 0241 15110 | MDX L RLCNT,0 TEST FOR ERROR PTM75000 02D6 703C 15111 | MDX DVER ERROR PTM75005 02D7 C2FE 15112 | LD 2 VALUE-A SCAN VALUE PTM75010 02D8 4418 02B9 15113 | BSI L DWARN,+- BR ON ZERO PTM75015 02DA C02F 15114 | LD DIV82 GET THE DIVIDEND PTM75020 02DB 1890 15115 | SRT 16 RIGHT-JUSTIFY IT PTM75025 02DC AC00 023E 15116 | D L VALUE PERFORM THE DIVISION PTM75030 02DE D02E 15117 | STO DIV86 SAVE THE QUOTIENT PTM75035 02DF C02C 15118 | LD DIV84 SAVED TERMINATOR PTM75040 02E0 F0E1 15119 | EOR DIV15 TEST FOR AN ASTERISK PTM75045 02E1 4C18 02E8 15120 | BSC L DIV35,+- BRANCH IF AN ASTERISK PTM75050 15121 | * PTM75055 02E3 C024 15122 | LD DIV80 GET PREV OPERAND VALUE PTM75060 02E4 8028 15123 | A DIV86 ADD QUOTIENT FROM DIVIDE PTM75065 02E5 D400 023E 15124 | STO L VALUE VALUE NOW INCLUDES DIVIDE PTM75070 02E7 7006 15125 | MDX DIV40-1 SKIP TO CONTINUE PTM75075 02E8 C024 15126 | DIV35 LD DIV86 = QUOTIENT PTM75080 02E9 D400 0242 15127 | STO L ELMNT PUT QUOTIENT INTO ELMNT PTM75085 02EB C01C 15128 | LD DIV80 RESTORE PTM75090 02EC D400 023E 15129 | STO L VALUE *'VALUE' PTM75095 02EE 6500 0000 15130 | LDX L1 *-* POINT TO NEXT OPERATOR PTM75100 02EF 15131 | DIV40 EQU *-1 EQUATED TO XR1 LOAD VALUE PTM75105 02F0 C01B 15132 | LD DIV84 FETCH SAVED TERMINATOR PTM75110 02F1 D100 15133 | STO 1 0 RESTORE INTO CARD BUFFER PTM75115 02F2 C400 051B 15134 | DIV46 LD L P9068 PTM75120 02F4 180C 15135 | SRA 12 PTM75125 02F5 D400 05B1 15136 | STO L P9142 RESET TERM AND RTERM TO 1 PTM75130 02F7 D400 05B2 15137 | STO L P9144 PTM75135 02F9 C00F 15138 | LD DIV81 SAVED SCAN RETURN ADDRESS PTM75140 02FA D400 04E1 15139 | STO L SCAN RESTORE PROPER RETURN ADDR PTM75145 02FC C400 0566 15140 | LD L INTYP =MDX INSTRUCTION PTM75150 02FE D400 050B 15141 | STO L TYPE SET TYPE TO AN MDX PTM75155 0300 10A0 15142 | SLT 32 CLEAR REGISTERS PTM75160 0301 CC00 09F0 15143 | LDD L DVSKY RESTORE OVERLAY AREA HDR PTM75165 0303 DB67 15144 | STD 3 OVLAY-X3 PTM75170 0304 C009 15145 | LD DRTRN SET BR ADDR TO CONT SCAN PTM75175 0305 D35A 15146 | STO 3 P0140+1-X3 PTM75180 0306 4C00 0270 15147 | BSC L P0130 RETURN TO SCAN PTM75185 0308 0000 15148 | DIV80 DC *-* 'VALUE' SAVE WD PTM75190 0309 0000 15149 | DIV81 DC *-* 'SCAN' SAVE WD PTM75195 030A 0000 15150 | DIV82 DC *-* DIVIDEND PTM75200 030B 0000 15151 | DIV83 DC *-* POINTS TO DIVISION OPTR PTM75205 030C 0000 15152 | DIV84 DC *-* POINTS TO TERMINATOR PTM75210 030D 0000 15153 | DIV86 DC *-* QUOTIENT PTM75215 15154 | * PTM75220 030E 04F5 15155 | DRTRN DC P9062 PTM75225 030F 0040 15156 | DBLNK DC . EBCDIC BLANK PTM75230 0310 C400 0536 15157 | DIVR1 LD L P9076 PLACE S FLAG PTM75235 0312 7002 15158 | MDX DVER+2 PTM75240 0313 C400 05AA 15159 | DVER LD L P9122 LOAD S FLAG PTM75245 0315 4400 0701 15160 | BSI L ERFLG STORE FLAG PTM75250 0317 7101 15161 | DIV97 MDX 1 1 MOVE INDEX ONE TO POINT PTM75255 0318 C100 15162 | LD 1 0 *TO NEXT BLANK PTM75260 0319 90F5 15163 | S DBLNK *BEFORE RETURNING PTM75265 031A 4820 15164 | BSC Z *TO THE MAIN SCAN PTM75270 031B 70FB 15165 | MDX DIV97 *ROUTINE PTM75275 031C D400 023E 15166 | STO L VALUE STORE ZERO IN VALUE PTM75280 031E 70D3 15167 | MDX DIV46 EXIT PTM75285 031F 0061 15168 | DIVSL DC ./ EBCDIC SLASH PTM75290 15169 | * PTM75295 0320 15170 | BSS 25 PATCH AREA PTM75300 0339 0000 15171 | DIV99 DC 0 END OF DIVISION OP PH PTM75305 CROSS-REFERENCE PART 1 15173 | *************************************************** PTM75315 15174 | * * PTM75320 15175 | *STATUS-VERSION 2,MODIFICATION 10 * PTM75325 15176 | * * PTM75330 15177 | *FUNCTION/OPERATION- * PTM75335 15178 | * *CROSS-REFERENCE PART 1 IS LOADED INTO THE * PTM75340 15179 | * OVERLAY AREA AT THE COMPLETION OF PHASE 3 * PTM75345 15180 | * IN PASS TWO IF *XREF HAS BEEN SPECIFIED * PTM75350 15181 | * AND IS A VALID OPTION. * PTM75355 15182 | * *IT EXPANDS THE SYMBOL TABLE TO 4 WORD * PTM75360 15183 | * ENTRIES,THE FIRST WORD OF EACH ENTRY * PTM75365 15184 | * BEING A STATEMENT NUMBER,INITIALIZED TO * PTM75370 15185 | * ZERO. * PTM75375 15186 | * *IT INITIALIZES THE STATEMENT COUNTER AND * PTM75380 15187 | * SET THE PASS FLAG TO THIRD PASS. IT REFRESHES* PTM75385 15188 | * PHASE 9 AND MODIFIES THE FOLLOWING PHASE * PTM75390 15189 | * 9 SUBROUTINES AS DESCRIBED. * PTM75395 15190 | * *LDLBL TO INTERFACE WITH XREF SYMBOL * PTM75400 15191 | * TABLE SEARCH AND STATEMENT NUMBER * PTM75405 15192 | * SETTING * PTM75410 15193 | * *P9MVE TO INCREMENT STATEMENT COUNTER ONLY* PTM75415 15194 | * *ERFLG TO SET CROSS-REFERENCE TBL ENTRY * PTM75420 15195 | * *PALBL * PTM75425 15196 | * *DFOUT TO BYPASS BUILDING DSF * PTM75430 15197 | * *STSCH TO HANDLE 4 WORD ENTRIES IN * PTM75435 15198 | * SYMBOL TABLE * PTM75440 15199 | * *IT ALSO LOADS CROSS-REFERENCE PART 2 INTO * PTM75445 15200 | * CORE AND INITIATES THE THIRD PASS * PTM75450 15201 | * * PTM75455 15202 | *ENTRY POINT- * PTM75460 15203 | * *XR000 * PTM75465 15204 | * * PTM75470 15205 | *INPUT-N/A * PTM75475 15206 | * * PTM75480 15207 | *OUTPUT-N/A * PTM75485 15208 | * * PTM75490 15209 | *EXTERNAL REFERENCES- * PTM75495 15210 | * *SUBROUTINES- * PTM75500 15211 | * *DISK1 * PTM75505 15212 | * *INT2 * PTM75510 15213 | * *LDXRS * PTM75515 15214 | * *ASMCM- * PTM75520 15215 | * *ADJSA * PTM75525 15216 | * *DSADR * PTM75530 15217 | * *HIEND * PTM75535 15218 | * *LOEND * PTM75540 15219 | * *PASS * PTM75545 15220 | * *RDMDE * PTM75550 15221 | * *DCOM/COMMA- * PTM75555 15222 | * *$CORE * PTM75560 15223 | * *$PHSE * PTM75565 15224 | * * PTM75570 15225 | *EXIT- * PTM75575 15226 | * *LOADS AND TRANFERS CONTROL TO PHASE 1 * PTM75580 15227 | * * PTM75585 15228 | *TABLES/WORK AREAS-N/A * PTM75590 15229 | * * PTM75595 15230 | *ATTRIBUTES-N/A * PTM75600 15231 | * * PTM75605 15232 | *NOTES-N/A * PTM75610 15233 | * * PTM75615 15234 | *************************************************** PTM75620 *SBRKSLS F2 15235 | ASM CROSS-REFERENCE PART I V2M08 PTM75625 0280 15236 | ORG OVLAY PTM75630 0280 01C6 15237 | DC XR999-XR900 WD CNT OF XREF PH 1 PTM75635 0281 FF0E 15238 | DC -/F2 SLET ID OF XREF PART 2 PTM75640 0282 0000 15239 | XR001 DC XR900-XR001 SLET TBL ADDR DISP PTM75645 0283 0012 15240 | DC 18 NO. OF PHASE ID'S TO FILL PTM75650 0282 15241 | ORG *-2 PTM75655 15242 | * PTM75660 15243 | * CONSTANTS PTM75665 15244 | * PTM75670 0282 15245 | BSS E 0 FORCE EVEN ADDR PTM75675 0282 00DC 15246 | XR900 DC /DC SLET ID OF PHASE 9 PTM75680 0283 15247 | BSS 3 PTM75685 0286 00DD 15248 | DC /DD SLET ID OF PHASE 5 PTM75690 0287 15249 | BSS 3 PTM75695 028A 00DE 15250 | DC /DE SLET ID OF PHASE 6 PTM75700 028B 15251 | BSS 3 PTM75705 028E 00DF 15252 | DC /DF SLET ID OF PHASE 7 PTM75710 028F 15253 | BSS 3 PTM75715 0292 00E1 15254 | DC /E1 SLET ID OF PHASE 8 PTM75720 0293 15255 | BSS 3 PTM75725 0296 00E2 15256 | DC /E2 SLET ID OF PHASE 8A PTM75730 0297 15257 | BSS 3 PTM75735 029A 00D3 15258 | DC /D3 SLET ID OF PHASE 12 PTM75740 029B 15259 | BSS 3 PTM75745 029E 00DA 15260 | DC /DA SLET ID OF PHASE 2 PTM75750 029F 15261 | BSS 3 PTM75755 02A2 00E9 15262 | DC /E9 SLET ID OF MACRO PH 1 PTM75760 02A3 15263 | BSS 3 PTM75765 02A6 00D5 15264 | XR912 DC /D5 SLET ID OF PHASE 1 PTM75770 02A7 15265 | BSS 3 PTM75775 02AA 00E3 15266 | DC /E3 SLET ID OF PNCH CNVRT PTM75780 02AB 15267 | BSS 3 PTM75785 02AE 00D4 15268 | DC /D4 SLET ID OF ERMSG PTM75790 02AF 15269 | BSS 3 PTM75795 02B2 00D9 15270 | XR993 DC /D9 SLET ID OF PHASE 4 PTM75800 02B3 15271 | BSS 3 PTM75805 02B6 00E5 15272 | DC /E5 SLET ID OF PHASE 10A PTM75810 02B7 15273 | BSS 3 PTM75815 02BA 00F3 15274 | XR990 DC /F3 SLET ID OF XREF PART 2A PTM75820 02BB 15275 | BSS 3 PTM75825 02BE 00F4 15276 | DC /F4 SLET ID OF XREF PART 2B PTM75830 02BF 15277 | BSS 3 PTM75835 02C2 00F5 15278 | DC /F5 SLET ID OF XREF PART 2C PTM75840 02C3 15279 | BSS 3 PTM75845 02C6 00D2 15280 | XR994 DC /D2 SLET ID OF PHASE 11 PTM75850 02C7 15281 | BSS 3 PTM75855 15282 | * PTM75860 02CA 00F2 15283 | XR901 DC /F2 SLET ID OF XREF PART 1 PTM75865 02CB FFFF 15284 | XR902 DC -1 3RD PASS CONSTANT PTM75870 02CC 15285 | BSS E 0 FORCE EVEN ADDR PTM75875 02CC 7000 15286 | XR905 DC /7000 DK READ FUNC CODE PTM75880 02CD 0458 15287 | DC P9000-2 I/O AREA ADDR PTM75885 02CE 0ECC 15288 | XR903 DC G4000 GRAPHICS PH START ADDR PTM75890 02D0 15289 | BSS E 0 FORCE EVEN ADDR PTM75895 02D0 4C00 07AC 15290 | XR906 BSC L XR200 BR INSTRUCTION FOR LDLBL PTM75900 02D2 7401 0254 15291 | XR907 MDX L RDMDE,1 INST TO INCR STMNT NO. PTM75905 02D4 4C80 0802 15292 | BSC I P9250 INST TO RETURN IN P9MVE PTM75910 02D6 0000 15293 | DC 0 FORCE EVEN ADDR PTM75915 02D7 C240 4040 15294 | EBC .B . EBC B PTM75920 02D9 C2C3 4040 15295 | EBC .BC . EBC BC PTM75925 02DB C2D5 4040 15296 | EBC .BN . EBC BN PTM75930 02DD C2D5 D540 15297 | EBC .BNN . EBC BNN PTM75935 02DF C2D5 D740 15298 | EBC .BNP . EBC BNP PTM75940 02E1 C2D5 E940 15299 | EBC .BNZ . EBC BNZ PTM75945 02E3 C2D6 4040 15300 | EBC .BO . EBC BO PTM75950 02E5 C2D6 E2C3 15301 | EBC .BOSC. EBC BOSC PTM75955 02E7 C2D6 C440 15302 | EBC .BOD . EBC BOD PTM75960 02E9 C2D7 4040 15303 | EBC .BP . EBC BP PTM75965 02EB C2E2 C340 15304 | EBC .BSC . EBC BSC PTM75970 02ED C2E2 C940 15305 | EBC .BSI . EBC BSI PTM75975 02EF C2E9 4040 15306 | EBC .BZ . EBC BZ PTM75980 02F1 E2D2 D740 15307 | EBC .SKP . EBC SKP PTM75985 0808 15308 | XR919 EQU P9MVE+6 PTM75990 02F3 0003 15309 | XR933 DC 3 CONSTANT PTM75995 02F4 128C 15310 | XR934 DC PDEND END OF GRAPHICS PH PTM76000 15311 | * PTM76005 15312 | * ENTER XREF PART 1 HERE PTM76010 15313 | * PTM76015 02F5 15314 | XR000 EQU * ENTER XREF PHASE HERE PTM76020 02F5 C0D4 15315 | LD XR901 SET PHASE ID TO XREF PH PTM76025 02F6 D400 0078 15316 | STO L $PHSE PTM76030 02F8 6700 0219 15317 | LDX L3 ASMCM RESTORE XR3 PTM76035 15318 | * PTM76040 15319 | * CALCULATE SYMBOL TBL SIZE WITH 4 PTM76045 15320 | * *WORD ENTRIES --- ABORT CROSS-REFERENCE PTM76050 15321 | * *IF OVERFLOW WILL OCCUR PTM76055 15322 | * PTM76060 02FA C3FF 15323 | LD 3 HIEND-X3 CALCULATE SYMBOL TBL PTM76065 02FB 9300 15324 | S 3 LOEND-X3 *SIZE WITH 4 WORD ENTRIES PTM76070 02FC 80F6 15325 | A XR933 PTM76075 02FD D400 093A 15326 | STO L XR932 NEW SYMBOL TBL = OLD SYMBOL PTM76080 02FF 1890 15327 | SRT 16 PTM76085 0300 A8F2 15328 | D XR933 *TBL+(OLD SYMBOL TBL)/3 PTM76090 0301 D400 088A 15329 | STO L XR931 *MOVE PTR PTM76095 0303 8400 093A 15330 | A L XR932 PTM76100 0305 80EE 15331 | A XR934 ADD END ADDR OF XREF PH PTM76105 0306 9400 000E 15332 | S L $CORE SUBTRACT HIGH CORE ADDR PTM76110 0308 4C10 0413 15333 | BSC L XR800,- BR-OVFLO OCCURS PTM76115 030A C400 1555 15334 | LD L XADJS SAVE WS POINTER TEMPOR 2-10 PTM76120 030C D400 0420 15335 | STO L TADJS *FROM SYMB TB EXPANSION2-10 PTM76125 030E C300 15336 | LD 3 LOEND-X3 CALC SYMBOL TBL PTM76130 030F 9400 088A 15337 | S L XR931 PTM76135 0311 D001 15338 | STO *+1 PTM76140 15339 | * PTM76145 0312 6600 0000 15340 | LDX L2 *-* XR2 IS MOVE TO PT PTM76150 0313 15341 | STSV0 EQU *-1 PTM76155 0314 6580 0219 15342 | LDX I1 LOEND XR1 IS MOVE FROM PT PTM76160 0316 C3FF 15343 | LD 3 HIEND-X3 PTM76165 0317 9300 15344 | S 3 LOEND-X3 PTM76170 0318 4C18 0322 15345 | BSC L STSV2+1,+- BR-DO NOT MODIFY LOEND PTM76175 031A 4C10 031F 15346 | BSC L STSV1,- BR-ADJUST SYMB TBL PT PTM76180 031C C300 15347 | LD 3 LOEND-X3 PTM76185 031D 90AD 15348 | S XR902 PTM76190 031E 7002 15349 | MDX STSV2 PTM76195 031F C0F3 15350 | STSV1 LD STSV0 ADJUST SYMB TBL PT PTM76200 0320 90AA 15351 | S XR902 PTM76205 0321 D300 15352 | STSV2 STO 3 LOEND-X3 PTM76210 0322 74FF 088A 15353 | STMV2 MDX L XR931,-1 PTM76215 0324 7001 15354 | MDX *+1 BR-CONT SYMBOL TBL MOVE PTM76220 0325 700B 15355 | MDX XR002 BR-SYMBOL TBL MOVED PTM76225 0326 7201 15356 | MDX 2 +1 ADJUST MOVE TO PT PTM76230 0327 6303 15357 | LDX 3 3 SET LOOP CTR PTM76235 0328 1010 15358 | SLA 16 SET STATEMENT NO. TO ZERO PTM76240 0329 D2FF 15359 | STO 2 -1 *RESET IF NON-SYSTEM SYMBOL PTM76245 032A C100 15360 | STMV1 LD 1 0 MOVE SYMBOL TBL WORD PTM76250 032B D200 15361 | STO 2 0 PTM76255 032C 7101 15362 | MDX 1 +1 ADJUST MOVE FROM PT PTM76260 032D 7201 15363 | MDX 2 +1 ADJUST MOVE TO PT PTM76265 032E 73FF 15364 | MDX 3 -1 DECR LOOP CTR PTM76270 032F 70FA 15365 | MDX STMV1 CONT TO MOVE SYMB TBL ENT PTM76275 0330 70F1 15366 | MDX STMV2 CONT TO MOVE SYMBOL TBL PTM76280 0331 6700 0219 15367 | XR002 LDX L3 ASMCM RESTORE XR3 PTM76285 0333 1010 15368 | SLA 16 SET LAST STMNT NO. PTM76290 0334 D200 15369 | STO 2 0 *TO ZERO PTM76295 15370 | * PTM76300 0335 C095 15371 | LD XR902 SET PASS TO PASS 3 PTM76305 0336 D3F4 15372 | STO 3 PASS-X3 PTM76310 0337 C03D 15373 | LD IRDMD INITIALIZE STMNT NO. PTM76315 0338 D33B 15374 | STO 3 RDMDE-X3 PTM76320 15375 | * PTM76325 15376 | * PTM76330 0339 C400 045A 15377 | LD L ERPTR SAVE SPECIAL ERR CNT PTM76335 033B D03A 15378 | STO XRRPT *TEMPORARILY PTM76340 033C CC00 0284 15379 | LDD L XR900+2 RESTORE ASM PH 9 PTM76345 033E DC00 0458 15380 | STD L P9000-2 PTM76350 0340 C88B 15381 | LDD XR905 PTM76355 0341 435C 15382 | BSI 3 DISK1-X3 FETCH PHASE 9 PTM76360 0342 C033 15383 | LD XRRPT RESTORE SPECIAL ERR CNT PTM76365 0343 D400 045A 15384 | STO L ERPTR PTM76370 0345 C02E 15385 | LD NLTBR SET TO NO LIST PTM76375 0346 D400 0776 15386 | STO L P9233 2-10 PTM76380 0348 6200 15387 | LDX 2 0 PTM76385 0349 61E0 15388 | LDX 1 -32 PTM76390 034A CD00 02A8 15389 | XR003 LDD L1 XR900+38 REFRESH DISK HEADER TBL PTM76395 034C DE00 04AE 15390 | STD L2 P9041 *IN PHASE 9 PTM76400 034E 7202 15391 | MDX 2 +2 PTM76405 034F 7104 15392 | MDX 1 +4 PTM76410 0350 70F9 15393 | MDX XR003 CONT REFRESH PH 9 TBL PTM76415 0351 C400 02CE 15394 | LD L XR903 SET GRAPH PH START ADDR PTM76420 0353 D400 04BF 15395 | STO L P9540 PTM76425 0355 61F0 15396 | LDX 1 -16 SET LOOP CTR PTM76430 0356 6200 15397 | LDX 2 0 SET TBL PT PTM76435 0357 CD00 02B8 15398 | XXR03 LDD L1 XR900+54 REFRESH DISK HDR TBL PTM76440 0359 DE00 0794 15399 | STD L2 P9245+6 PTM76445 035B 7202 15400 | MDX 2 2 INCR TBL PT PTM76450 035C 7104 15401 | MDX 1 4 DECR LOOP CTR PTM76455 035D 70F9 15402 | MDX XXR03 CONT TO REFRESH TBL PTM76460 15403 | * PTM76465 15404 | * SET LABEL FIELD SCAN TO RETURN HERE PTM76470 15405 | * PTM76475 035E CC00 02D0 15406 | LDD L XR906 SET UP BRANCH INSTRUCTION PTM76480 0360 D400 0743 15407 | STO L P9221 *IN LDLBL TO RETURN FOR PTM76485 0362 1090 15408 | SLT 16 *XREF PHASE PTM76490 0363 D400 0744 15409 | STO L P9221+1 PTM76495 15410 | * PTM76500 15411 | * MODIFY P9MVE SUBR TO INCR STATEMENT PTM76505 15412 | * *NUMBER ONLY PTM76510 15413 | * PTM76515 0365 61DF 15414 | LDX 1 -33 SET LOOP CONTROL PTM76520 0366 C500 02F3 15415 | XR004 LD L1 XR907+33 MODIFY P9MVE WD PTM76525 0368 D500 0824 15416 | STO L1 P9250+34 PTM76530 036A 7101 15417 | MDX 1 +1 DECR LOOP CTR PTM76535 036B 70FA 15418 | MDX XR004 CONT TO MODIFY P9MVE PTM76540 15419 | * PTM76545 15420 | * MODIFY ERFLG SUBR PTM76550 15421 | * *FOR CROSS REFERENCE PTM76555 15422 | * PTM76560 036C 6215 15423 | LDX 2 XR012-XR010+1 SET LOOP CTR PTM76565 036D C600 0389 15424 | XR005 LD L2 XR010-1 MOVE ERFLG SUBR PTM76570 036F D600 0705 15425 | STO L2 FLGCO-1 *FOR XREF PTM76575 0371 72FF 15426 | MDX 2 -1 PTM76580 0372 70FA 15427 | MDX XR005 PTM76585 0373 702B 15428 | MDX XR015 BYPASS ERFLG SUBR PTM76590 15429 | * PTM76595 15430 | * CONSTANTS PTM76600 15431 | * PTM76605 0374 4400 15432 | NLTBR DC /4400 UNCONDITIONAL BRANCH 2-10 PTM76610 0375 0001 15433 | IRDMD DC 1 INITIAL STMNT NO. PTM76615 0376 0000 15434 | XRRPT DC *-* TEMP SAVE AREA PTM76620 0378 15435 | BSS E 0 FORCE EVEN ADDR PTM76625 0378 4C00 07B9 15436 | XR908 BSC L XR300 BR INSTRUCTION FOR PALBL PTM76630 037A 4C80 0883 15437 | XR909 BSC I P9276 INST TO RETURN IN DSF O/P PTM76635 037C 4C00 07C1 15438 | XR910 BSC L XR400 BR INST FOR SYM TBL SCN PTM76640 037E 4C00 093C 15439 | XR911 BSC L XR500 BR INST FOR SYM TBL SCN PTM76645 0380 7000 15440 | XR992 DC /7000 DK READ FUNC CODE PTM76650 0381 07A8 15441 | DC RDCRD I/O AREA ADDR PTM76655 0382 7000 15442 | XR995 DC /7000 DK READ FUNC CODE PTM76660 0383 0924 15443 | DC P9350 I/O AREA ADDR PTM76665 0384 7000 15444 | XR996 DC /7000 DK READ FUNC CODE PTM76670 0385 0886 15445 | DC P9276+3 I/O AREA ADDR PTM76675 0386 0AD2 15446 | XR997 DC BUFI PTM76680 0387 1803 15447 | XR013 SRA 3 MODIFY SYMBOL TBL SEARCH PTM76685 0388 1002 15448 | SLA 2 *TO HANDLE 4 WORD ENTRIES PTM76690 0389 1000 15449 | SLA 0 PTM76695 15450 | * PTM76700 15451 | * THE FOLLOWING CODE OVERLAYS THE ERFLG SUBR PTM76705 15452 | * PTM76710 038A 6700 0219 15453 | XR010 LDX L3 ASMCM RESTORE XR3 PTM76715 038C 4400 088B 15454 | BSI L XR600 GET XREF PT-XR2 PTM76720 038E C00F 15455 | LD X XR012-XR011 PTM76725 038F D200 15456 | XR011 STO 2 0 SET ERROR FLAG INDR PTM76730 0390 7002 15457 | MDX *+2 ACCT FOR Q FLAG,ERFLG PTM76735 0391 15458 | BSS 2 *MODIFICATION PTM76740 0393 D400 092D 15459 | STO L ERCT1 SET ERROR CTR PTM76745 0395 C400 0254 15460 | LD L RDMDE PTM76750 0397 D202 15461 | STO 2 2 SET STATEMENT NO. PTM76755 0398 1010 15462 | SLA 16 ZERO NEXT ENTRY INDR PTM76760 0399 D203 15463 | STO 2 3 PTM76765 039A 6680 07D2 15464 | LDX I2 XR6X2 RESTORE XR2 PTM76770 039C 4C80 0701 15465 | BSC I P9202 RETURN TO CALLER PTM76775 039E C000 15466 | XR012 DC /C000 XREF ERROR ENTRY INDR PTM76780 15467 | * PTM76785 15468 | * MODIFY PALBL SUBR TO SEARCH FOR PTM76790 15469 | * *SYMBOLIC TAG FIELD PTM76795 15470 | * PTM76800 039F C8D8 15471 | XR015 LDD XR908 SET UP BR INSTRUCTION PTM76805 03A0 D400 074E 15472 | STO L P9226 *IN PALBL TO RETURN TO PTM76810 03A2 1090 15473 | SLT 16 *XREF PHASE PTM76815 03A3 D400 074F 15474 | STO L P9226+1 PTM76820 15475 | * PTM76825 15476 | * MODIFY DSF OUTPUT SUBR TO BYPASS PTM76830 15477 | * PTM76835 03A5 C8D4 15478 | LDD XR909 SET DSF OUTPUT SUBR FOR PTM76840 03A6 D400 0884 15479 | STO L P9276+1 *IMMEDIATE RETURN TO PTM76845 03A8 1090 15480 | SLT 16 *CALLER PTM76850 03A9 D400 0885 15481 | STO L P9276+2 PTM76855 15482 | * PTM76860 15483 | * MODIFY SYMBOL TBL SEARCH SUBR PTM76865 15484 | * *TO SET UP CROSS-REFERENCE TBL PTM76870 03AB 7401 091B 15485 | MDX L P9316,1 PTM76875 03AD C8CE 15486 | LDD XR910 SET BRANCH INST FOR PTM76880 03AE D400 08CA 15487 | STO L P9301 *UNDEFINED SYMBOL ON PTM76885 03B0 1090 15488 | SLT 16 *CROSS-REFERENCE PTM76890 03B1 D400 08CB 15489 | STO L P9301+1 PTM76895 15490 | * PTM76900 03B3 C8CA 15491 | LDD XR911 SET BRANCH INST FOR PTM76905 03B4 D400 08DD 15492 | STO L P9302 *DEFINED SYMBOL ON PTM76910 03B6 1090 15493 | SLT 16 *CROSS-REFERENCE PTM76915 03B7 D400 08DE 15494 | STO L P9302+1 PTM76920 03B9 61FD 15495 | LDX 1 -3 MODIFY SYMBOL TBL SEARCH PTM76925 03BA C500 038A 15496 | XR020 LD L1 XR013+3 *TO HANDLE 4 WORD ENTRIES PTM76930 03BC D500 08EF 15497 | STO L1 P9327+3 PTM76935 03BE 7101 15498 | MDX 1 1 PTM76940 03BF 70FA 15499 | MDX XR020 CONT TO MODIFY PTM76945 15500 | * PTM76950 15501 | * FETCH RESIDENT CROSS-REFERENCE CODE PTM76955 15502 | * *INTO CORE,OVERLAYS DFOUT,PHASE 10 AND P9MVE PTM76960 15503 | * *SUBROUTINES PTM76965 15504 | * PTM76970 03C0 C050 15505 | LD XR026 RESET BUFI WD CNT PTM76975 03C1 D400 0AD2 15506 | STO L BUFI PTM76980 03C3 CC00 02BC 15507 | LDD L XR990+2 GET WD CNT,SCTR ADDR PTM76985 03C5 DC00 07A8 15508 | STD L RDCRD *AND SAVE IN I/O HEADER PTM76990 03C7 C8B8 15509 | LDD XR992 FETCH DK READ PARAM PTM76995 03C8 435C 15510 | BSI 3 DISK1-X3 LOAD XREF PART 2-RESIDENT PTM77000 03C9 CC00 02C0 15511 | LDD L XR990+6 PREPARE TO FETCH PTM77005 03CB DC00 0924 15512 | STD L P9350 *XREF PART 2B PTM77010 03CD C8B4 15513 | LDD XR995 PTM77015 03CE 435C 15514 | BSI 3 DISK1-X3 LOAD XREF PART 2B PTM77020 03CF CC00 02C4 15515 | LDD L XR990+10 PREPARE TO PTM77025 03D1 DC00 0886 15516 | STD L P9276+3 *LD XREF PART 2C PTM77030 03D3 C8B0 15517 | LDD XR996 PTM77035 03D4 435C 15518 | BSI 3 DISK1-X3 PTM77040 03D5 CC00 02C8 15519 | LDD L XR994+2 SET PH 11 I/O HDR PTM77045 03D7 DC00 098A 15520 | STD L P11AA PTM77050 03D9 C0FE 15521 | LD *-2 PREPARE TO PTM77055 03DA 18D0 15522 | RTE 16 PTM77060 03DB C0A6 15523 | LD XR995 PTM77065 03DC 435C 15524 | BSI 3 DISK1-X3 FETCH PH 11 PTM77070 03DD C310 15525 | LD 3 ADJSA-X3 ADDR OF INTERM I/P PTM77075 03DE D400 0AD3 15526 | STO L BUFI+1 PTM77080 03E0 C0A5 15527 | LD XR997 PREPARE TO PTM77085 03E1 18D0 15528 | RTE 16 PTM77090 03E2 C09F 15529 | LD XR995 PTM77095 03E3 435C 15530 | BSI 3 DISK1-X3 READ SCTR INTERM I/P PTM77100 03E4 4346 15531 | BSI 3 LDXRS-X3 RESTORE XR1 PTM77105 03E5 4400 098D 15532 | BSI L INT2 1ST SOURCE STMNT TO BFR PTM77110 15533 | * PTM77115 15534 | * BEGIN THIRD PASS BY LOADING ASM PH 1 PTM77120 15535 | * *AND TRANSFERRING CONTROL TO IT PTM77125 15536 | * PTM77130 03E7 C480 0232 15537 | LD I DSADR SAVE END OF PRG TO RETORE PTM77135 03E9 D400 093A 15538 | STO L XR932 PTM77140 03EB C400 0232 15539 | LD L DSADR PTM77145 03ED 9400 02F3 15540 | S L XR933 SUBTRACT 3 PTM77150 03EF D400 088A 15541 | STO L XR931 PTM77155 03F1 6680 088A 15542 | LDX I2 XR931 SET XREF END INDR PTM77160 03F3 1010 15543 | SLA 16 PTM77165 03F4 D204 15544 | STO 2 4 PTM77170 03F5 C02A 15545 | LD TADJS RESTORE DSF PT 2-10 PTM77175 03F6 D310 15546 | STO 3 ADJSA-X3 *ADDR FOR XREF PTM77180 03F7 CC00 02A8 15547 | LDD L XR912+2 SET OVERLAY HEADER TO PTM77185 03F9 DC00 0280 15548 | STD L OVLAY *LOAD ASM PHASE 1 PTM77190 03FB C013 15549 | LD IBRXR SET BR ADDR FOR OVLAY PTM77195 03FC D35A 15550 | STO 3 P0140+1-X3 PTM77200 15551 | * PTM77205 03FD 1010 15552 | SLA 16 PTM77210 03FE D3FA 15553 | STO 3 ADCOW-X3 RESER L.A.C. PTM77215 03FF D32C 15554 | STO 3 OPCNT-X3 RESET OP CODE WD PTM77220 0400 C363 15555 | LD 3 P2MWC-X3 PTM77225 0401 D31E 15556 | STO 3 HTYPE-X3 PTM77230 0402 C00D 15557 | LD XR025 PTM77235 0403 D400 04A7 15558 | STO L OPVND ALLOW PH 2 MNEMONICS PTM77240 0405 6208 15559 | LDX 2 8 PTM77245 0406 10A0 15560 | SLT 32 CLEAR TO ZERO PTM77250 0407 DE00 021C 15561 | XR027 STD L2 INTL1-2 THE HDR INFO SWITCHES PTM77255 0409 72FE 15562 | MDX 2 -2 IN ASMCM PTM77260 040A 70FC 15563 | MDX XR027 PTM77265 040B C006 15564 | LD XRO28 PTM77270 040C D30E 15565 | STO 3 ENTCT-X3 REINITLZ ENT CNT PTM77275 040D 4C00 0270 15566 | BSC L P0130 LD AND XEQ ASM PH 1 PTM77280 15567 | * PTM77285 040F 0282 15568 | IBRXR DC OVLAY+2 OVLAY BR ADDR PTM77290 0410 0290 15569 | XR025 DC OVLAY+16 PH 2 BR ADDR PTM77295 0411 0140 15570 | XR026 DC 320 BUFI WORD COUNT PTM77300 0412 2000 15571 | XRO28 DC /2000 PTM77305 15572 | * PTM77310 15573 | * FETCH AND EXECUTE ASSEMBLER EXIT PHASE PTM77315 15574 | * *CORE REQUIREMENTS FOR CROSS-REFERENCE PTM77320 15575 | * *SYMBOL TABLE EXCESSIVE PTM77325 15576 | * PTM77330 0413 C400 1555 15577 | XR800 LD L XADJS RESTORE 2-10 PTM77335 0415 D310 15578 | STO 3 ADJSA-X3 *DSF PT 2-10 PTM77340 0416 CC00 02B4 15579 | LDD L XR993+2 GET WD CNT,SCTR ADDR 2-10 PTM77345 0418 DC00 0280 15580 | STD L OVLAY PTM77350 041A 6500 0282 15581 | LDX L1 OVLAY+2 SET BR ADDR PTM77355 041C 6D00 0273 15582 | STX L1 P0140+1 PTM77360 041E 4C00 0270 15583 | BSC L P0130 LD AND GO TO PHASE 4 PTM77365 0420 0000 15584 | TADJS DC *-* TEMP STOR FOR DSF PT 2-10 PTM77370 15585 | * PTM77375 0421 15586 | BSS /0448-* PATCH AREA 2-10 PTM77380 0448 0000 15587 | XR999 DC 0 END OF XREF PART 1 PTM77385 CROSS-REFERENCE PART 2A 15589 | *************************************************** PTM77395 15590 | * * PTM77400 15591 | *STATUS-VERSION 2,MODIFICATION 10 * PTM77405 15592 | * * PTM77410 15593 | *FUNCTION/OPERATION- * PTM77415 15594 | * *CONSISTS OF SUBROUTINES TO HANDLE CROSS- * PTM77420 15595 | * REFERENCE PROCESSING OF LABEL FIELD * PTM77425 15596 | * AND UNDEFINED SYMBOL * PTM77430 15597 | * * PTM77435 15598 | *ENTRY POINTS- * PTM77440 15599 | * *XR200-LDLBL INTERFACE * PTM77445 15600 | * *XR300-PALBL INTERFACE * PTM77450 15601 | * *XR400-SYMBOL TABLE SEARCH INTERFACE, * PTM77455 15602 | * (UNDEFINED SYMBOL) * PTM77460 15603 | * * PTM77465 15604 | *INPUT- * PTM77470 15605 | * *THIRD PASS INTERMEDIATE I/O * PTM77475 15606 | * * PTM77480 15607 | *OUTPUT- * PTM77485 15608 | * *EXPANDED SYMBOL TABLE * PTM77490 15609 | * *CROSS-REFERENCE TABLE * PTM77495 15610 | * * PTM77500 15611 | *EXTERNAL REFERENCES- * PTM77505 15612 | * *SUBROUTINES- * PTM77510 15613 | * *LDXRS * PTM77515 15614 | * *ASMCM- * PTM77520 15615 | * *RDMDE * PTM77525 15616 | * *SYMBF * PTM77530 15617 | * * PTM77535 15618 | *EXIT-N/A * PTM77540 15619 | * * PTM77545 15620 | *TABLES/WORK AREAS- * PTM77550 15621 | * *SYMBOL TABLE * PTM77555 15622 | * *CROSS-REFERENCE TBL * PTM77560 15623 | * * PTM77565 15624 | *ATTRIBUTES-N/A * PTM77570 15625 | * * PTM77575 15626 | *NOTES- * PTM77580 15627 | * *OVERLAYS PHASE 9 RDCRD SUBROUTINE * PTM77585 15628 | * * PTM77590 15629 | *************************************************** PTM77595 *SBRKSLS F3 15630 | ASM CROSS-REFERENCE PART 2A V2M08 PTM77600 07A8 15631 | ORG RDCRD PTM77605 07A8 0051 15632 | DC XR2A9-XR913 WD CNT OF PH PTM77610 07A9 00F3 15633 | DC /F3 SLET ID OF XREF PART 2A PTM77615 07AA 15634 | XR913 EQU * PTM77620 07AA 093C 15635 | XR420 DC XR500 PTM77625 07AB 07B4 15636 | XR935 DC XR210 SYMBOL DEFINITION RETURN PTM77630 15637 | * PTM77635 15638 | * PROCESS LABEL FIELD FOR XREF PTM77640 15639 | * PTM77645 07AC 15640 | XR200 EQU * PTM77650 07AC 4C18 07B9 15641 | BSC L XR300,+- BR-BLANK LABEL FIELD PTM77655 07AE DB23 15642 | STD 3 SYMBF-X3 PTM77660 07AF C0FB 15643 | LD XR935 PTM77665 07B0 D400 08DE 15644 | STO L P9302+1 PTM77670 07B2 4400 08C6 15645 | BSI L P9300 PERFORM SYMBOL TBL SEARCH PTM77675 07B4 C33B 15646 | XR210 LD 3 RDMDE-X3 SET STATEMENT NO. PTM77680 07B5 D1FD 15647 | STO 1 -3 PTM77685 07B6 C0F3 15648 | LD XR420 RESTORE SYMBOL TBL SEARCH PTM77690 07B7 D400 08DE 15649 | STO L P9302+1 PTM77695 15650 | * PTM77700 07B9 6580 0238 15651 | XR300 LDX I1 RDBFR XR1 PT TO I/P BFR PTM77705 07BB 1010 15652 | SLA 16 RESET 2-10 PTM77710 07BC D480 0006 15653 | STO I $CH12 *CH 12 INDICATOR 2-10 PTM77715 07BE 4C00 0755 15654 | BSC L P9228 PASS RCD,FETCH NEXT RCD PTM77720 15655 | * PTM77725 15656 | * RETURN FROM SYMBOL TBL SEARCH PTM77730 15657 | * SYMBOL NOT FOUND PTM77735 15658 | * PTM77740 07C0 0000 15659 | XR399 DC 0 UNDEFINED SYM SW PTM77745 07C1 15660 | XR400 EQU * PTM77750 07C1 7401 07C0 15661 | MDX L XR399,1 SET UNDEFINED SYM SW PTM77755 07C3 4400 088B 15662 | BSI L XR600 FETCH XREF PT-XR2 PTM77760 07C5 CB23 15663 | LDD 3 SYMBF-X3 PTM77765 07C6 E81D 15664 | OR XR916 SET UNDEFINED SW PTM77770 07C7 D200 15665 | STO 2 0 *AND SAVE SYMBOL IN PTM77775 07C8 1090 15666 | SLT 16 *XREF TBL PTM77780 07C9 D201 15667 | STO 2 1 PTM77785 07CA C33B 15668 | XR410 LD 3 RDMDE-X3 SAVE STATEMENT NO. PTM77790 07CB D202 15669 | STO 2 2 PTM77795 07CC 1010 15670 | SLA 16 SET XREF END INDR PTM77800 07CD D203 15671 | STO 2 3 PTM77805 07CE 4346 15672 | BSI 3 LDXRS-X3 RESTORE XR1 PTM77810 07CF C400 091E 15673 | LD L P9321 SYMBOL VALUE TO ACC PTM77815 07D1 6600 0000 15674 | LDX L2 *-* RESTORE XR2 PTM77820 07D2 15675 | XR6X2 EQU *-1 PTM77825 07D3 4C80 08C6 15676 | BSC I P9300 RETURN TO CALLER PTM77830 15677 | * PTM77835 15678 | * CONSTANTS PTM77840 15679 | * PTM77845 07D6 15680 | BSS E 0 FORCE EVEN ADDR PTM77850 07D6 D4C4 D440 15681 | XR925 EBC .MDM . MODIFY INSTRUCTIONS PTM77855 07D8 D4C4 E740 15682 | EBC .MDX . PTM77860 07DA E2C5 E340 15683 | EBC .SET . PTM77865 07DC E2E3 C440 15684 | EBC .STD . PTM77870 07DE E2E3 D640 15685 | EBC .STO . PTM77875 07E0 E2E3 E240 15686 | EBC .STS . PTM77880 07E2 E2E3 E740 15687 | EBC .STX . PTM77885 07E4 8000 15688 | XR916 DC /8000 UNDEFINED SWITCH PTM77890 15689 | * PTM77895 07E5 15690 | BSS /07FB-* PATCH AREA PTM77900 07FB 0000 15691 | XR2A9 DC 0 END OF XREF PART 2A PTM77905 CROSS-REFERENCE PART 2B 15693 | *************************************************** PTM77915 15694 | * * PTM77920 15695 | *STATUS-VERSION 2,MODIFICATION 8 * PTM77925 15696 | * * PTM77930 15697 | *FUNCTION/OPERATION- * PTM77935 15698 | * *PROCESSES REFERENCE ENTRY OF SYMBOL; * PTM77940 15699 | * DETERMINES REFERENCE TYPE AND BUILDS * PTM77945 15700 | * 3 WORD CROSS-REFERENCE TABLE ENTRY. * PTM77950 15701 | * * PTM77955 15702 | *ENTRY POINT- * PTM77960 15703 | * *XR500 * PTM77965 15704 | * * PTM77970 15705 | *INPUT- * PTM77975 15706 | * *RECORD IN INPUT BUFFER * PTM77980 15707 | * * PTM77985 15708 | *OUTPUT- * PTM77990 15709 | * *CROSS-REFERENCE TABLE ENTRY CONSISTING * PTM77995 15710 | * OF EBC REFERENCE TYPE,SYMBOL TABLE ADDR * PTM78000 15711 | * OF SYMBOL AND REFERENCE STMNT NUMBER * PTM78005 15712 | * * PTM78010 15713 | *EXTERNAL REFERENCES- * PTM78015 15714 | * *ASMCM- * PTM78020 15715 | * *RDBFR * PTM78025 15716 | * *SYMBF * PTM78030 15717 | * * PTM78035 15718 | * * PTM78040 15719 | *EXIT-N/A * PTM78045 15720 | * * PTM78050 15721 | *TABLES/WORK AREAS- * PTM78055 15722 | * *SYMBOL TABLE * PTM78060 15723 | * *CROSS-REFERENCE TABLES * PTM78065 15724 | * *TABLES OF OP CODE REPRESENTING REFERENCE * PTM78070 15725 | * TYPE,INCLUDING PHASE 9 OP CODE TABLE * PTM78075 15726 | * * PTM78080 15727 | *ATTRIBUTES-N/A * PTM78085 15728 | * * PTM78090 15729 | *NOTES- * PTM78095 15730 | * *OVERLAYS SYMBOL TABLE ADD SUBROUTINE OF * PTM78100 15731 | * PHASE 9 * PTM78105 15732 | * *PATCH FOR THIS PHASE IS INCLUDED IN THE * PTM78110 15733 | * PATCH OF CROSS-REFERENCE PART 2A * PTM78115 15734 | * * PTM78120 15735 | *************************************************** PTM78125 *SBRKSLS F4 15736 | ASM CROSS-REFERENCE PART 2B V2M08 PTM78130 0924 15737 | ORG P9350 PTM78135 0924 005A 15738 | DC X2C99-XR091 WD CNT OF XREF PART 2 PTM78140 0925 FF0C 15739 | DC -/F4 SLET ID OF XREF PART 2B PTM78145 0926 0000 15740 | XR090 DC XR091-XR090 SLET TBL ADDR DISP PTM78150 0927 0001 15741 | DC 1 NO. OF ID'S TO BE FILLED PTM78155 0926 15742 | ORG *-2 PTM78160 0926 00D9 15743 | XR091 DC /D9 SLET ID OF PHASE 4 PTM78165 0927 15744 | BSS 3 PTM78170 092A 15745 | XR917 BSS E 3 TEMP SAVE AREA PTM78175 092D 0000 15746 | ERCT1 DC *-* ERROR STMNT CNT PTM78180 092E 15747 | BSS E 0 FORCE EVEN ADDR PTM78185 092E 00C2 15748 | XR918 DC .B EBCDIC B PTM78190 092F 0806 15749 | DC XR919-2 STARTING TBL ADDR PTM78195 0930 D4C4 E740 15750 | XR920 EBC .MDX . PTM78200 0932 00C2 15751 | XR921 DC .B PTM78205 0933 092E 15752 | DC XR920-2 PTM78210 0934 00D3 15753 | XR922 DC .L EBCDIC L PTM78215 0935 00B0 15754 | DC .0-. EBCDIC 0 PTM78220 0936 00D4 15755 | XR924 DC .M EBCDIC M PTM78225 0937 07D4 15756 | DC XR925-2 TBL ADDR FOR M TYPE OP PTM78230 0938 00D9 15757 | XR926 DC .R EBCDIC R PTM78235 0939 0000 15758 | XR929 DC 0 XREF OVERFLOW SCTR CNT PTM78240 093A 0000 15759 | XR932 DC *-* DSF DISK END ADDR PTM78245 093B 0040 15760 | XR914 DC . EBCDIC BLANK PTM78250 15761 | * PTM78255 15762 | * RETURN FROM SYMBOL TBL SEARCH PTM78260 15763 | * SYMBOL FOUND PTM78265 15764 | * PTM78270 093C 15765 | XR500 EQU * PTM78275 093C 4400 088B 15766 | BSI L XR600 FETCH XREF PT-XR2 PTM78280 093E 69EB 15767 | STX 1 XR917 PTM78285 093F C0EA 15768 | LD XR917 SET SYM TBL DISP PTM78290 0940 D201 15769 | STO 2 1 PTM78295 15770 | * PTM78300 15771 | * SCAN OP CODE FIELD TO DETERMINE PTM78305 15772 | * *REFERENCE TYPE PTM78310 15773 | * PTM78315 0941 15774 | XR510 EQU * PTM78320 15775 | * PTM78325 0941 C8EC 15776 | LDD XR918 INITILIZE REFERENCE TYPE PTM78330 0942 611C 15777 | LDX 1 28 SET LOOP CTR PTM78335 0943 401D 15778 | BSI XR550 CHECK OP CODE PTM78340 0944 097A 15779 | DC XR560 BR ADDR-OP CODE FOUND PTM78345 0945 6102 15780 | LDX 1 2 SET LOOP CTR PTM78350 0946 C8EB 15781 | LDD XR921 INITIALIZE REFERENCE TYPE PTM78355 0947 4019 15782 | BSI XR550 CHECK OP CODE PTM78360 0948 094A 15783 | DC XR520 CHECK FLAG,TAG FLD PTM78365 0949 7011 15784 | MDX XR540 CONT OP CODE CHECK PTM78370 15785 | * PTM78375 094A 6580 0238 15786 | XR520 LDX I1 RDBFR PTM78380 094C C121 15787 | LD 1 +33 PTM78385 094D F400 093B 15788 | EOR L XR914 PTM78390 094F 4C18 0955 15789 | BSC L XR530,+- BR-TAG FLD BLANK PTM78395 0951 90E3 15790 | S XR922+1 PTM78400 0952 4C18 0955 15791 | BSC L XR530,+- BR-TAG FLD ZERO PTM78405 0954 700A 15792 | MDX XR545 SET TO REFERENCE TYPE PTM78410 0955 C120 15793 | XR530 LD 1 +32 PTM78415 0956 F0DD 15794 | EOR XR922 PTM78420 0957 4C20 097A 15795 | BSC L XR560,Z BR-FLAG FLD NOT L PTM78425 0959 C0DC 15796 | LD XR924 SET REFERENCE TYPE PTM78430 095A 7021 15797 | MDX XR570 PTM78435 15798 | * PTM78440 095B 610E 15799 | XR540 LDX 1 14 PTM78445 095C C8D9 15800 | LDD XR924 INITIALIZE REFERENCE TYPE PTM78450 095D 4003 15801 | BSI XR550 CHECK OP CODE PTM78455 095E 097A 15802 | DC XR560 BR ADDR-OP CODE FOUND PTM78460 15803 | * PTM78465 095F C0D8 15804 | XR545 LD XR926 SET REFERENCE TYPE TO R PTM78470 0960 701B 15805 | MDX XR570 PTM78475 15806 | * PTM78480 0961 0000 15807 | XR550 DC *-* ENTRY TO OP TBL SEARCH PTM78485 0962 D400 092C 15808 | STO L XR917+2 SAVE REFERENCE TYPE PTM78490 0964 1090 15809 | SLT 16 PTM78495 0965 D003 15810 | STO XR555 SET OP TBL ADDR PTM78500 0966 CC00 04AC 15811 | XR553 LDD L P9040 FETCH OP CODE PTM78505 0968 9D00 0000 15812 | SD L1 *-* PTM78510 0969 15813 | XR555 EQU *-1 PTM78515 096A 4C20 0974 15814 | BSC L XR557,Z BR-NO MATCH PTM78520 096C 18D0 15815 | RTE 16 PTM78525 096D 4C20 0974 15816 | BSC L XR557,Z BR-NO MATCH PTM78530 096F C480 0961 15817 | LD I XR550 FETCH RETURN ADDR PTM78535 0971 D001 15818 | STO XR556 PTM78540 0972 4C00 0000 15819 | BSC L *-* BR TO PLACE REFERENCE TYPE PTM78545 0973 15820 | XR556 EQU *-1 PTM78550 15821 | * PTM78555 0974 71FE 15822 | XR557 MDX 1 -2 DECR LOOP CTR PTM78560 0975 70F0 15823 | MDX XR553 CONTINUE SEARCH PTM78565 0976 7401 0961 15824 | MDX L XR550,1 INCR RETURN ADDR PTM78570 0978 4C80 0961 15825 | BSC I XR550 RETURN TO CALLER PTM78575 15826 | * PTM78580 097A C400 092C 15827 | XR560 LD L XR917+2 FETCH REFERENCE TYPE PTM78585 097C D200 15828 | XR570 STO 2 0 SET REFERENCE TYPE PTM78590 097D 7401 08C6 15829 | MDX L P9300,1 INCR RETURN ADDR PTM78595 097F 4C00 07CA 15830 | BSC L XR410 SET STATEMENT NUMBER PTM78600 0980 15831 | X2C99 EQU *-1 PTM78605 CROSS-REFERENCE PART 2C 15833 | *************************************************** PTM78615 15834 | * * PTM78620 15835 | *STATUS-VERSION 2,MODIFICATION 8 * PTM78625 15836 | * * PTM78630 15837 | *FUNCTION/OPERATION- * PTM78635 15838 | * *SUBROUTINE TO FETCH CROSS-REFERENCE SECTOR * PTM78640 15839 | * POINTER. TESTING IS DONE TO WRITE THE * PTM78645 15840 | * CROSS-REFERENCE TABLE SECTOR TO DISK BEHIND * PTM78650 15841 | * PROGRAM DSF IF SECTOR IS FULL. * PTM78655 15842 | * * PTM78660 15843 | *ENTRY POINT- * PTM78665 15844 | * *XR600 * PTM78670 15845 | * * PTM78675 15846 | *INPUT-N/A * PTM78680 15847 | * * PTM78685 15848 | *OUTPUT- * PTM78690 15849 | * *INDEX REGISTER 2 CONTAINS NEXT CROSS- * PTM78695 15850 | * REFERENCE TABLE ADDRESS * PTM78700 15851 | * * PTM78705 15852 | *EXTERNAL REFERENCES- * PTM78710 15853 | * *SUBROUTINES * PTM78715 15854 | * *DISK1 * PTM78720 15855 | * *ASMCM- * PTM78725 15856 | * *DSADR * PTM78730 15857 | * *DSFWR * PTM78735 15858 | * *MCGEN * PTM78740 15859 | * *SCRA * PTM78745 15860 | * * PTM78750 15861 | *EXIT-N/A * PTM78755 15862 | * * PTM78760 15863 | *TABLES/WORK AREAS-N/A * PTM78765 15864 | * * PTM78770 15865 | *ATTRIBUTES-N/A * PTM78775 15866 | * * PTM78780 15867 | *NOTES- * PTM78785 15868 | * *OVERLAYS PHASE 9 DSF OUTPUT SUBROUTINE * PTM78790 15869 | * * PTM78795 15870 | *************************************************** PTM78800 *SBRKSLS F5 15871 | ASM CROSS-REFERENCE PART 2C V2M08 PTM78805 0886 15872 | ORG P9276+3 PTM78810 0886 003C 15873 | DC XR299-XR928 WD CNT OF PH PTM78815 0887 00F5 15874 | DC /F5 SLET ID OF XREF PART 2C PTM78820 15875 | * PTM78825 15876 | * SUBROUTINE TO FETCH XREF PT FOR PTM78830 15877 | * *NEXT ENTRY PTM78835 15878 | * PTM78840 0888 013B 15879 | XR928 DC 315 BFR SIZE PTM78845 0889 0001 15880 | XR930 DC 1 CONSTANT 1 PTM78850 088A 0000 15881 | XR931 DC *-* XREF BFR PT PTM78855 15882 | * PTM78860 088B 0000 15883 | XR600 DC *-* ENTRY POINT PTM78865 088C 6E00 07D2 15884 | STX L2 XR6X2 SAVE XR2 PTM78870 088E C0FB 15885 | LD XR931 TEST FOR SCTR OVERFLOW PTM78875 088F 9400 0232 15886 | S L DSADR PTM78880 0891 90F6 15887 | S XR928 PTM78885 0892 4C28 08B5 15888 | BSC L XR620,+Z BR-BFR NOT FULL PTM78890 0894 C3F6 15889 | XR605 LD 3 SCRA-X3 CHECK IF ANY W.S. AVAILABLE PTM78895 0895 4C20 08A5 15890 | BSC L XR610,Z BR IF W.S. STILL LEFT PTM78900 0897 C400 0255 15891 | LD L MCGEN RESET DSF ADDR PTM78905 0899 D480 0232 15892 | STO I DSADR PTM78910 089B CC00 0928 15893 | LDD L XR091+2 LD AND XEQ ASM PTM78915 089D DC00 0280 15894 | STD L OVLAY *EXIT PHASE PTM78920 089F 6500 0282 15895 | LDX L1 OVLAY+2 SET BR ADDR PTM78925 08A1 6D00 0273 15896 | STX L1 P0140+1 PTM78930 08A3 4C00 0270 15897 | BSC L P0130 PTM78935 15898 | * PTM78940 08A5 CB1B 15899 | XR610 LDD 3 DSFWR-X3 PTM78945 08A6 435C 15900 | BSI 3 DISK1-X3 OUTPUT 1 SCTR OF XREF PTM78950 08A7 7401 0939 15901 | MDX L XR929,1 PTM78955 08A9 C480 0232 15902 | XR615 LD I DSADR INCR XREF OVERFLOW ADDR PTM78960 08AB 80DD 15903 | A XR930 PTM78965 08AC D480 0232 15904 | STO I DSADR PTM78970 08AE 74FF 020F 15905 | MDX L SCRA,-1 DECR W.S. SECTORS PTM78975 08B0 1000 15906 | NOP (MAY SKIP) PTM78980 08B1 C400 0232 15907 | LD L DSADR RESET BFR PT PTM78985 08B3 D0D6 15908 | STO XR931 PTM78990 08B4 7002 15909 | MDX XR630 PTM78995 15910 | * PTM79000 08B5 7403 088A 15911 | XR620 MDX L XR931,3 INCR XREF BFR PT PTM79005 08B7 6680 088A 15912 | XR630 LDX I2 XR931 XR2 PT TO NEXT ENTRY PTM79010 08B9 7201 15913 | MDX 2 1 *IN XREF BFR PTM79015 08BA 4C80 088B 15914 | BSC I XR600 RETURN TO CALLER PTM79020 15915 | * PTM79025 08BC 15916 | BSS 8 PATCH AREA PTM79030 08C4 0000 15917 | XR299 DC 0 END OF XREF PART 2C PTM79035 CROSS-REFERENCE PART 3 * 15919 | *************************************************** PTM79045 15920 | * * PTM79050 15921 | *STATUS - VERSION 2, MODIFICATION 12 * PTM79055 15922 | * * PTM79060 15923 | *FUNCTION/OPERATION- * PTM79065 15924 | * *CROSS-REFERENCE PART 3 IS LOADED INTO CORE * PTM79070 15925 | * AT THE END OF PASS THREE BY PHASE 12. IT * PTM79075 15926 | * OVERLAYS THE GRAPHICS PHASE * PTM79080 15927 | * *IF THERE ARE SYMBOLS IN THE SYMBOL TABLE, * PTM79085 15928 | * A CROSS-REFERENCE PRINT ENTRY IS BUILT AND * PTM79090 15929 | * PRINTED FOR EACH SYMBOL. THE CROSS-REFERENCE * PTM79095 15930 | * TABLE IS READ INTO CORE,OVERLAYING PHASE 9 * PTM79100 15931 | * 6 SECTORS MAXIMUM AT A TIME, EACH TIME A * PTM79105 15932 | * SYMBOL IS PROCESSED. ONLY REFERENCE ENTRIES * PTM79110 15933 | * ARE PROCESSED. * PTM79115 15934 | * *FOLLOWING SYMBOL TABLE PROCESSING, IF THERE * PTM79120 15935 | * WERE UNDEFINED SYMBOLS IN THE ASSEMBLY, * PTM79125 15936 | * A NEW ALPHABETICALLY ORDERED SYMBOL TABLE * PTM79130 15937 | * IS BUILT FOR UNDEFINED SYMBOLS BY SCANNING * PTM79135 15938 | * THE CROSS-REFERENCE TABLE. THE CODE FOR * PTM79140 15939 | * PROCESSING THE SYMBOLS IS MODIFIED TO * PTM79145 15940 | * ACCOMMODATE UNDEFINED SYMBOLS AND THE * PTM79150 15941 | * UNDEFINED SYMBOL TABLE IS PROCESSED AS THE * PTM79155 15942 | * SYMBOL TABLE WAS. * PTM79160 15943 | * *FOLLOWING PROCESSING OF UNDEFINED SYMBOLS, * PTM79165 15944 | * IF THERE ARE ANY ERRORS THE CROSS-REFERENCE * PTM79170 15945 | * TABLE IS EXAMINED ONCE FOR ERROR STATEMENT * PTM79175 15946 | * ENTRIES AND THE STATEMENT NUMBERS ARE * PTM79180 15947 | * PRINTED. * PTM79185 15948 | * *FINALLY PHASE 9 IS REFRESHED * PTM79190 15949 | * AND PHASE 4 IS LOADED AND CONTROL IS * PTM79195 15950 | * TRANSFERRED TO IT. * PTM79200 15951 | * * PTM79205 15952 | *ENTRY POINT- * PTM79210 15953 | * *XR100 * PTM79215 15954 | * * PTM79220 15955 | *INPUT- * PTM79225 15956 | * *SYMBOL TABLE * PTM79230 15957 | * *CROSS-REFERENCE TABLE * PTM79235 15958 | * * PTM79240 15959 | *OUTPUT- * PTM79245 15960 | * *PRINTED CROSS-REFERENCE * PTM79250 15961 | * * PTM79255 15962 | *EXTERNAL REFERENCES- * PTM79260 15963 | * *SUBROUTINES- * PTM79265 15964 | * *DISK1 * PTM79270 15965 | * *ASMCM- * PTM79275 15966 | * *DSADR * PTM79280 15967 | * *ERPTR * PTM79285 15968 | * *HIEND * PTM79290 15969 | * *LOEND * PTM79295 15970 | * *MCGEN * PTM79300 15971 | * *DCOM/COMMA- * PTM79305 15972 | * *$CH12 * PTM79310 15973 | * *#HDNG * PTM79315 15974 | * *$PBSY * PTM79320 15975 | * *$PHSE * PTM79325 15976 | * * PTM79330 15977 | *EXITS- * PTM79335 15978 | * TRANSFERS CONTROL TO ASM PHASE 4 * PTM79340 15979 | * * PTM79345 15980 | *TABLES/WORK AREAS- * PTM79350 15981 | * *CROSS-REFERENCE TABLE * PTM79355 15982 | * *SYMBOL TABLE * PTM79360 15983 | * *XRBFR,PRINT BUFFER * PTM79365 15984 | * * PTM79370 15985 | *ATTRIBUTES-N/A * PTM79375 15986 | * * PTM79380 15987 | *NOTES-N/A * PTM79385 15988 | *************************************************** PTM79390 *SBRKSLS F6 15989 | ASM CROSS-REFERENCE PART III V2M08 PTM79395 0ECA 15990 | ORG G4000-2 PTM79400 0ECA 03AF 15991 | DC X3399-X3001 WD CNT OF XREF PART 3 PTM79405 0ECB FF0A 15992 | DC -/F6 SLET ID OF XREF PART 3 PTM79410 15993 | * PTM79415 0ECC 0000 15994 | X3003 DC X3001-X3003 SLET TBL DISP ADDR PTM79420 0ECD 0003 15995 | DC 3 NO. OF ID'S TO BE FILLED PTM79425 0ECC 15996 | ORG *-2 PTM79430 0ECC 00D9 15997 | X3001 DC /D9 SLET ID OF PHASE 4 PTM79435 0ECD 15998 | BSS 3 PTM79440 0ED0 00DC 15999 | DC /DC SLET ID OF PHASE 9 PTM79445 0ED1 16000 | BSS 3 PTM79450 0ED4 00D4 16001 | XGETR DC /D4 SLET ID OF ERMSG PH PTM79455 0ED5 16002 | BSS 3 PTM79460 0ED8 0040 16003 | XR936 DC . EBCDIC BLANK PTM79465 0ED9 2FFF 16004 | XR940 DC /2FFF CONSTANT /2FFF PTM79470 0EDA 16005 | BSS E 1 FORCE ODD ADDR PTM79475 0EDB 003C 16006 | DC 60 WD CNT OF O/P LINE PTM79480 0EDC 16007 | XRBFR BSS E 120 XREF BFR PTM79485 0F54 005C 16008 | XR943 DC .* EBC * PTM79490 0F55 00D4 16009 | DC .M EBC M PTM79495 0F56 00E4 16010 | DC .U EBC U PTM79500 0F57 00D3 16011 | DC .L EBC L PTM79505 0F58 00E3 16012 | DC .T EBC T PTM79510 0F59 00C9 16013 | DC .I EBC I PTM79515 0F5A 00D7 16014 | DC .P EBC P PTM79520 0F5B 00D3 16015 | DC .L EBC L PTM79525 0F5C 00E8 16016 | DC .Y EBC Y PTM79530 0F5D 0060 16017 | DC .- EBC - PTM79535 0F5E 00C4 16018 | DC .D EBC D PTM79540 0F5F 00C5 16019 | DC .E EBC E PTM79545 0F60 00C6 16020 | DC .F EBC F PTM79550 0F61 00C9 16021 | DC .I EBC I PTM79555 0F62 00D5 16022 | DC .N EBC N PTM79560 0F63 00C5 16023 | DC .E EBC E PTM79565 0F64 00C4 16024 | DC .D EBC D PTM79570 0F65 005C 16025 | DC .* EBC * PTM79575 0F66 00E2 16026 | XR948 DC .S EBC S PTM79580 0F67 00E8 16027 | DC .Y EBC Y PTM79585 0F68 00E2 16028 | DC .S EBC S PTM79590 0F69 00D4 16029 | DC .M EBC M PTM79595 0F6A 00C2 16030 | DC .B EBC B PTM79600 16031 | * PTM79605 0F6B 00F6 16032 | X3000 DC /F6 SLET ID OF XREF PART 3 PTM79610 0F6C 0000 16033 | XR958 DC *-* UNDEFINED SYMBOL SW PTM79615 0F6D 0040 16034 | XR959 DC . EBCDIC BLANK PTM79620 0F6E 0001 16035 | XR960 DC 1 CONSTANT 1 PTM79625 0F70 16036 | BSS E 0 FORCE EVEN ADDR PTM79630 0F70 4C00 0F8D 16037 | XR937 BSC L XR104 PTM79635 0F72 16038 | XR938 BSS 1 NO. SYMBOLS TO PROCESS PTM79640 0F73 16039 | XR939 BSS 1 SYMBOL TBL PT PTM79645 0F74 16040 | BSS E 0 FORCE EVEN ADDR PTM79650 0F74 000A 16041 | XRP93 DC 10 PAGE HDNG WD CNT PTM79655 0F75 0007 16042 | DC #HDNG PAGE HDNG SCTR ADDR PTM79660 16043 | * PTM79665 16044 | * CLEAR PRINT BFR TO BLANKS SUBR PTM79670 16045 | * PTM79675 0F76 0000 16046 | XRCLR DC *-* ENTRY POINT PTM79680 0F77 6600 0EDC 16047 | LDX L2 XRBFR CLEAR PRINT BFR TO BLANKS PTM79685 0F79 C0F3 16048 | LD XR959 PTM79690 0F7A 6378 16049 | LDX 3 +120 SET LOOP CTR PTM79695 0F7B D200 16050 | XRCL1 STO 2 0 STORE BLANKS PTM79700 0F7C 7201 16051 | MDX 2 +1 ADJUST BFR PT PTM79705 0F7D 73FF 16052 | MDX 3 -1 DECR LOOP CTR PTM79710 0F7E 70FC 16053 | MDX XRCL1 CONT TO CLEAR BFR PTM79715 0F7F 7288 16054 | MDX 2 -120 RESTORE XREF BFR PT PTM79720 0F80 4C80 0F76 16055 | BSC I XRCLR RETURN TO CALLER PTM79725 16056 | * PTM79730 16057 | * PROCESS CROSS-REFERENCE TABLE PTM79735 16058 | * WRITE LAST XREF SCTR TO DISK PTM79740 16059 | * RETURN HERE WHEN DATA WRITTEN PTM79745 16060 | * PTM79750 0F82 C0E8 16061 | XR100 LD X3000 SET PHASE ID PTM79755 0F83 D400 0078 16062 | STO L $PHSE PTM79760 0F85 C8EA 16063 | LDD XR937 SET RETURN ADDR TO XR105 PTM79765 0F86 D400 08A9 16064 | STO L XR615 PTM79770 0F88 1090 16065 | SLT 16 PTM79775 0F89 D400 08AA 16066 | STO L XR615+1 PTM79780 0F8B 4C00 0894 16067 | BSC L XR605 WRITE XREF SCTR TO DISK PTM79785 0F8D C400 093A 16068 | XR104 LD L XR932 SAVE POINTERS PTM79790 0F8F D07D 16069 | STO X9932 PTM79795 0F90 C400 0939 16070 | LD L XR929 PTM79800 0F92 D07B 16071 | STO X9929 PTM79805 16072 | * PTM79810 16073 | * BEGIN TO BUILD SYMBOL TBL PTM79815 16074 | * *CROSS-REFERENCE PTM79820 16075 | * PTM79825 0F93 C3FF 16076 | XR105 LD 3 HIEND-X3 CALC NO. OF SYMBOLS+1 PTM79830 0F94 9300 16077 | S 3 LOEND-X3 *TO PROCESS AND SAVE PTM79835 0F95 807A 16078 | A XR942 ADD ONE PTM79840 0F96 1890 16079 | SRT 16 PTM79845 0F97 A878 16080 | D XR942 PTM79850 0F98 80D5 16081 | A XR960 ADD CONSTANT ONE 2-9 PTM79855 0F99 D0D8 16082 | STO XR938 PTM79860 0F9A C3FF 16083 | LD 3 HIEND-X3 SET SYMBOL TBL PTR PTM79865 0F9B D0D7 16084 | STO XR939 PTM79870 0F9C 40D9 16085 | BSI XRCLR CLEAR PRINT BFR TO BLANKS PTM79875 16086 | * PTM79880 16087 | * READ PAGE HDNG INTO CORE PTM79885 16088 | * PTM79890 0F9D C8D6 16089 | XRPG1 LDD XRP93 SET PAGE HDNG DISK HDR PTM79895 0F9E DC00 1234 16090 | STD L XRP94 PTM79900 0FA0 CC00 1230 16091 | LDD L XRP90 PREPARE TO PTM79905 0FA2 6700 0219 16092 | LDX L3 ASMCM RESTORE XR3 PTM79910 0FA4 435C 16093 | BSI 3 DISK1-X3 READ PAGE HDNG PTM79915 0FA5 7401 1231 16094 | MDX L XRP90+1,1 SET I/O AREA PRINT ADDR PTM79920 0FA7 C0CC 16095 | LD XRP93 SET PRINT WD CNT PTM79925 0FA8 D400 1235 16096 | STO L XRP94+1 PTM79930 0FAA 7408 1235 16097 | MDX L XRP94+1,8 PTM79935 0FAC C400 07C0 16098 | LD L XR399 FETCH,SAVE UNDEFINED PTM79940 0FAE D0BD 16099 | STO XR958 *SYMBOL SWITCH PTM79945 0FAF C400 092D 16100 | LD L ERCT1 FETCH ERROR CNT PTM79950 0FB1 D400 10CB 16101 | STO L ERCT2 PTM79955 0FB3 C0BE 16102 | LD XR938 LOAD SYMBOL TABLE INDR 2-11 PTM79960 0FB4 4818 16103 | BSC +- SKIP IF NOT ZERO 2-11 PTM79962 0FB5 7002 16104 | MDX SYB01 SKIP AROUND BRANCH 2-11 PTM79964 0FB6 4400 121F 16105 | BSI L XRPGH NEW,PAGE,PRINT HDR PTM79965 16106 | * PTM79970 0FB8 74FF 0F72 16107 | SYB01 MDX L XR938,-1 DECR LOOP CTR PTM79975 0FBA 7002 16108 | MDX SYM02 GO PROCESS SYMBOL PTM79980 0FBB 4C00 103A 16109 | SYM01 BSC L XR700 GO CHECK FOR UNDEFINED SYMB PTM79985 16110 | * PTM79990 0FBD C055 16111 | SYM02 LD XR951 SET LINE COUNT PTM79995 0FBE D055 16112 | STO XR952 PTM80000 0FBF 74FC 0F73 16113 | MDX L XR939,-4 PT TO NEXT SYMBOL PTM80005 0FC1 1000 16114 | NOP (MAY SKIP) PTM80010 0FC2 7401 1205 16115 | MDX L XR957,1 SET TO PR LINE PTM80015 0FC4 7401 1184 16116 | MDX L XD900,1 SET DISK READ SW PTM80020 0FC6 6580 0F73 16117 | LDX I1 XR939 XR1 PT TO SYMBOL TBL ENT-1 PTM80025 0FC8 C104 16118 | LD 1 +4 FETCH SYMBOL NAME PTM80030 0FC9 18D0 16119 | RTE 16 PTM80035 0FCA C103 16120 | LD 1 +3 PTM80040 0FCB 4400 11B9 16121 | BSI L UNPCK UNPACK SYMBOL NAME PTM80045 16122 | * *AND PLACE IN O/P BFR PTM80050 0FCD 7205 16123 | SYMM2 MDX 2 +5 ADJUST O/P BFR PT PTM80055 0FCE C103 16124 | LD 1 +3 MULTIPLY-DEFINED INDR PTM80060 0FCF 4C10 0FDB 16125 | BSC L SYM05,- BR-NOT MULTIPLY DEFINED PTM80065 16126 | * PTM80070 0FD1 7211 16127 | MDX 2 +17 ADJUST O/P BFR PT PTM80075 0FD2 6312 16128 | LDX 3 +18 SET LOOP CTR PTM80080 0FD3 C700 0F53 16129 | SYM03 LD L3 XR943-1 SET MULTIPLY-DEFINED MSG PTM80085 0FD5 D200 16130 | STO 2 0 *IN O/P BFR PTM80090 0FD6 72FF 16131 | MDX 2 -1 PTM80095 0FD7 73FF 16132 | MDX 3 -1 DECR LOOP CTR PTM80100 0FD8 70FA 16133 | MDX SYM03 CONT MSG MOVE PTM80105 0FD9 7219 16134 | MDX 2 +25 ADJUST O/P BFR PT TO COL 35 PTM80110 0FDA 701A 16135 | MDX SYM30 BR TO SEARCH XREF TBL PTM80115 0FDB C102 16136 | SYM05 LD 1 +2 FETCH SYMBOL VALUE PTM80120 0FDC 4400 11CC 16137 | BSI L S4HEX CONVERT VALUE PTM80125 16138 | * PTM80130 0FDE 7203 16139 | MDX 2 +3 ADJUST O/P PT PTM80135 0FDF C103 16140 | LD 1 +3 FETCH RELOCATION PT PTM80140 0FE0 1001 16141 | SLA 1 PTM80145 0FE1 180F 16142 | SRA 15 PTM80150 0FE2 EC00 11B8 16143 | OR L XR947 ADD EBCDIC ZONE PTM80155 0FE4 D200 16144 | STO 2 0 SET RELOCATION INDR PTM80160 16145 | * PTM80165 0FE5 7208 16146 | MDX 2 +8 ADJUST O/P PT PTM80170 0FE6 C101 16147 | LD 1 +1 FETCH STATEMENT NO. PTM80175 0FE7 4C20 0FF1 16148 | BSC L SYM20,Z BR-VALID STATEMENT NO. PTM80180 16149 | * PTM80185 0FE9 6305 16150 | LDX 3 5 SET LOOP CTR PTM80190 0FEA C700 0F65 16151 | SYM10 LD L3 XR948-1 FETCH MSG SYSMB FOR PTM80195 0FEC D200 16152 | STO 2 0 *STATEMENT NO. PTM80200 0FED 72FF 16153 | MDX 2 -1 DECR LOOP CTR PTM80205 0FEE 73FF 16154 | MDX 3 -1 PTM80210 0FEF 70FA 16155 | MDX SYM10 CONT TO FETCH MSG PTM80215 0FF0 7003 16156 | MDX SYM25 GO ADJUST O/P PT PTM80220 16157 | * PTM80225 0FF1 C101 16158 | SYM20 LD 1 +1 FETCH STATEMENT NO. PTM80230 0FF2 4400 11DB 16159 | BSI L XBDEC CONVERT,SAVE NO. PTM80235 0FF4 720E 16160 | SYM25 MDX 2 14 ADJUST O/P PT TO COL 35 PTM80240 16161 | * PTM80245 0FF5 16162 | SYM30 EQU * PTM80250 0FF5 C017 16163 | LD X9932 SET CURRENT OVFLO CNT PTM80255 0FF6 D400 045D 16164 | STO L P9000+3 *OF CROSS-REFERENCE TBL PTM80260 0FF8 C015 16165 | LD X9929 PTM80265 0FF9 D015 16166 | STO XD902 PTM80270 0FFA 4400 118A 16167 | SYM35 BSI L XDKRD READ XREF TBL PTM80275 0FFC 1036 16168 | DC SYM70 RETURN IF SYMBOL PROCESSED PTM80280 0FFD 6700 045B 16169 | LDX L3 P9000+1 XR3 IS XREF TBL PT PTM80285 0FFF C011 16170 | LD XR949 SET WD CNT PTM80290 1000 D011 16171 | STO XR950 PTM80295 1001 7303 16172 | SYM40 MDX 3 3 INCR XREF PT PTM80300 1002 74FD 1012 16173 | MDX L XR950,-3 DECR CURRENT WD CNT PTM80305 1004 7013 16174 | MDX SYM50 CONT SEARCH OF CURRENT SCTR PTM80310 1005 74FF 1015 16175 | MDX L XR953,-1 DECR SCTR CNT PTM80315 1007 7001 16176 | MDX SYM45 CONT SEARCH WITH NEXT SCTR PTM80320 1008 70F1 16177 | MDX SYM35 BR TO READ XREF TBL PTM80325 1009 C007 16178 | SYM45 LD XR949 SET WD CNT FOR ONE SCTR PTM80330 100A D007 16179 | STO XR950 PTM80335 100B 73FF 16180 | MDX 3 -1 SET PT FOR NEXT SCTR PTM80340 100C 70F4 16181 | MDX SYM40 CONT TO PROCESS XREF TBL PTM80345 16182 | * PTM80350 16183 | * CONSTANTS PTM80355 16184 | * PTM80360 100D 0000 16185 | X9932 DC *-* SCTR ADDR SAVED PTM80365 100E 0000 16186 | X9929 DC *-* OVERFLO CNT SAVED PTM80370 100F 0000 16187 | XD902 DC *-* XREF OVFLO COUNTER,CURRENT PTM80375 1010 0004 16188 | XR942 DC 4 CONSTANT 4 PTM80380 1011 0141 16189 | XR949 DC 321 SCTR WD CNT PTM80385 1012 0141 16190 | XR950 DC 321 CURRENT WD CNT PTM80390 1013 000B 16191 | XR951 DC 11 XREF LINE CNT PTM80395 1014 000B 16192 | XR952 DC 11 CURRENT LINE CNT PTM80400 1015 0000 16193 | XR953 DC *-* PARTIAL XREF TBL SCTR CNT PTM80405 1016 16194 | XR954 BSS 1 SAVE SYMBOL TBL ADDR PTM80410 1017 006B 16195 | XR955 DC ., EBCDIC COMMA PTM80415 16196 | * PTM80420 1018 16197 | SYM50 EQU * PTM80425 1018 C300 16198 | LD 3 0 TEST FOR SYMBOL COMPLETE PTM80430 1019 4C18 1036 16199 | BSC L SYM70,+- BR TO PRINT LAST LINE PTM80435 101B 4C08 1001 16200 | SYM55 BSC L SYM40,+ BR-NOT REFERENCE ENTRY PTM80440 101D 69F8 16201 | STX 1 XR954 SAVE SYMBOL TBL ADDR-4 PTM80445 101E C0F7 16202 | LD XR954 FETCH SYMBOL TBL ADDR-4 PTM80450 101F 80F0 16203 | A XR942 ADD 4 PTM80455 1020 9301 16204 | S 3 1 PTM80460 1021 4C20 1001 16205 | BSC L SYM40,Z BR-NOT SYMBOL REFERENCE PTM80465 1023 7401 1205 16206 | MDX L XR957,1 INDICATE PR LINE PTM80470 1025 C302 16207 | LD 3 2 FETCH REFERENCE NO. PTM80475 1026 4400 11DB 16208 | BSI L XBDEC PLACE REFERENCE NO. PTM80480 1028 C0EE 16209 | SYM60 LD XR955 SET COMMA IN O/P BFR PTM80485 1029 D206 16210 | STO 2 6 PTM80490 102A C300 16211 | LD 3 0 SET REFERENCE TYPE PTM80495 102B D207 16212 | STO 2 7 *IN O/P BFR PTM80500 102C 720D 16213 | SYM65 MDX 2 13 SET O/P PTR FOR NEXT ENTRY PTM80505 102D 74FF 1014 16214 | MDX L XR952,-1 DECR LINE CNT PTM80510 102F 70D1 16215 | MDX SYM40 BR-LINE NOT COMPLETE PTM80515 1030 4400 1206 16216 | BSI L XREPR PRINT A LINE PTM80520 1032 7222 16217 | MDX 2 +34 INITIALIZE O/P BFR ADDR PTM80525 1033 C0DF 16218 | LD XR951 SET LINE COUNT FOR PTM80530 1034 D0DF 16219 | STO XR952 *NEW LINE PTM80535 1035 70CB 16220 | MDX SYM40 CONT SEARCH PTM80540 1036 16221 | SYM70 EQU * PTM80545 1036 4400 1206 16222 | BSI L XREPR PRINT LINE OF XREF PTM80550 1038 4C00 0FB8 16223 | BSC L SYB01 PROCESS NEXT SYMBOL PTM80555 16224 | * PTM80560 16225 | * CHECK FOR UNDEFINED SYMBOLS PTM80565 16226 | * PTM80570 103A 16227 | XR700 EQU * PTM80575 16228 | * PTM80580 103A 6600 0219 16229 | LDX L2 ASMCM RESTORE XR3 PTM80585 103C C2FF 16230 | LD 2 HIEND-X3 INITIALIZE SYM TBL PTS PTM80590 103D 80D2 16231 | A XR942 PTM80595 103E D200 16232 | STO 2 LOEND-X3 *FOR UNDEFINED SYMBOL TBL PTM80600 16233 | * PTM80605 103F 7400 0F6C 16234 | MDX L XR958,0 TEST FOR UNDEFINED SYM PTM80610 1041 7002 16235 | MDX XR705 BR-UNDEFINED SYM PTM80615 1042 4C00 10CF 16236 | BSC L XR790 BR-NO UNDEFINED SYM PTM80620 16237 | * PTM80625 1044 16238 | XR705 EQU * PTM80630 1044 7401 1184 16239 | MDX L XD900,1 SET DISK READ SW PTM80635 1046 C0C6 16240 | LD X9932 SET CURRENT OVFLO COUNT PTM80640 1047 D400 045D 16241 | STO L P9000+3 *XREF TBL PTM80645 1049 C0C4 16242 | LD X9929 PTM80650 104A D0C4 16243 | STO XD902 PTM80655 104B 4400 118A 16244 | XR707 BSI L XDKRD READ XREF TBL PTM80660 104D 1069 16245 | XR708 DC XR730 RETURN IF TBL PROCESSED PTM80665 104E 6700 045B 16246 | LDX L3 P9000+1 XR3 IS XREF TBL PT PTM80670 1050 C0C0 16247 | LD XR949 SET CURRENT WD CNT PTM80675 1051 D0C0 16248 | STO XR950 PTM80680 1052 7303 16249 | XR709 MDX 3 3 INCR XREF PT PTM80685 1053 74FD 1012 16250 | MDX L XR950,-3 DECR CURRENT WD CNT PTM80690 1055 7008 16251 | MDX XR712 CONT SEARCH CURRENT SCTR PTM80695 1056 74FF 1015 16252 | MDX L XR953,-1 DECR SCTR CNT PTM80700 1058 7001 16253 | MDX XR710 CONT SEARCH WITH NEXT SCTR PTM80705 1059 70F1 16254 | MDX XR707 BR TO READ XREF TBL PTM80710 105A C0B6 16255 | XR710 LD XR949 SET CURRENT WD CNT PTM80715 105B D0B6 16256 | STO XR950 PTM80720 105C 73FF 16257 | MDX 3 -1 SET PT FOR NEXT SCTR PTM80725 105D 70F4 16258 | MDX XR709 CONT TO PROCESS XREF TBL PTM80730 16259 | * PTM80735 105E 16260 | XR712 EQU * PTM80740 105E C300 16261 | LD 3 0 TEST FOR TBL SEARCHED PTM80745 105F 4C18 1069 16262 | XRE12 BSC L XR730,+- BR-XREF TBL SEARCHED PTM80750 1061 4C10 1052 16263 | BSC L XR709,- BR-NOT UNDEFINED ENTRY PTM80755 1063 1001 16264 | SLA 1 PTM80760 1064 4C08 1052 16265 | XR713 BSC L XR709,+ BR-NOT UNDEFINED ENTRY PTM80765 1066 4400 112B 16266 | BSI L XRSSR PERFORM XREF SYM TBL SEARCH PTM80770 1068 70E9 16267 | MDX XR709 CONT TO PROCESS XREF TBL PTM80775 16268 | * PTM80780 16269 | * MODIFY THE ORIGINAL XREF TO HANDLE PTM80785 16270 | * *UNDEFINED SYMBOLS PTM80790 16271 | * PTM80795 1069 16272 | XR730 EQU * PTM80800 1069 C046 16273 | LD XR799 MODIFY XREF END ADDR PTM80805 106A D400 0FBC 16274 | STO L SYM01+1 PTM80810 16275 | * PTM80815 106C 6103 16276 | LDX 1 3 SET BRANCH INSTRUCTION PTM80820 106D C500 10AC 16277 | XR732 LD L1 XR798-1 *TO BYPASS SYMBOL PTM80825 106F D500 0FCD 16278 | STO L1 SYMM2 *HANDLING TO REFERENCE PTM80830 1071 71FF 16279 | MDX 1 -1 *COLLECTION PTM80835 1072 70FA 16280 | MDX XR732 PTM80840 16281 | * PTM80845 1073 6106 16282 | LDX 1 6 SET INSTRUCTION SEQUENCE PTM80850 1074 C500 10A6 16283 | XR734 LD L1 XR797-1 *TO TEST FOR UNDEFINED PTM80855 1076 D500 101A 16284 | STO L1 SYM55-1 *SYMBOL PTM80860 1078 71FF 16285 | MDX 1 -1 PTM80865 1079 70FA 16286 | MDX XR734 PTM80870 107A C01B 16287 | LD XR796 SET INST TO BYPASS PTM80875 107B D0AC 16288 | STO SYM60 *SET REFERENCE TYPE PTM80880 16289 | * PTM80885 107C C018 16290 | LD XR795+1 SET HDNG BFR ADDR PTM80890 107D D400 1233 16291 | STO L XRP92+1 PTM80895 107F C480 0006 16292 | LD I $CH12 CHANNEL 12 ON-BR PTM80900 1081 4420 121F 16293 | BSI L XRPGH,Z BRANCH IO EJECT,PRINT HDRS PTM80905 16294 | * PTM80910 1083 C021 16295 | LD XR791 PTM80915 1084 4400 0D97 16296 | BSI L P9472+3 SPACE A LINE PTM80920 1086 C80D 16297 | LDD XR795 PREPARE TO PTM80925 1087 4400 0D97 16298 | BSI L P9472+3 PRINT HDR FOR UNDEFINED SYM PTM80930 1089 C01B 16299 | LD XR791 PTM80935 108A 4400 0D97 16300 | BSI L P9472+3 SPACE A LINE PTM80940 108C C03B 16301 | LD XRE17 BYPASS PAGE HDNG PTM80945 108D D400 0F9D 16302 | STO L XRPG1 PTM80950 108F 6700 0219 16303 | LDX L3 ASMCM RESTORE XR3 PTM80955 1091 4C00 0F93 16304 | BSC L XR105 BR TO BUILD XREF TBL PTM80960 16305 | * PTM80965 16306 | * CONSTANTS PTM80970 16307 | * PTM80975 1094 16308 | BSS E 0 FORCE EVEN ADDR PTM80980 1094 7001 16309 | XR795 DC /7001 PRINT FUNC CODE PTM80985 1095 1097 16310 | DC XR794 PTM80990 1096 7003 16311 | XR796 MDX X SYM65-SYM60-1 PTM80995 1097 000C 16312 | XR794 DC XR793-XR794-1 212 PTM81000 1098 5C5C 5CE4 D5C4 C5C6 16313 | EBC .***UNDEFINED SYMBOLS***. PTM81005 C9D5 C5C4 40E2 E8D4 | C2D6 D3E2 5C5C 5C40 | 10A4 10CC 16314 | XR793 DC XRE16 PTM81010 10A5 7002 16315 | XR791 DC /7002 SPACE FUNC CODE PTM81015 10A6 10F4 16316 | XR792 DC XRER2 PTM81020 16317 | * PTM81025 10A7 C301 16318 | XR797 LD 3 1 PTM81030 10A8 9104 16319 | S 1 +4 PTM81035 10A9 4C20 1001 16320 | BSC L SYM40,Z PTM81040 10AB C300 16321 | LD 3 0 PTM81045 10AC 9103 16322 | S 1 +3 PTM81050 16323 | * PTM81055 16324 | * THIS STATEMENT IS COMMENTED OUT IN THE FICHE: KNITTEL0 16325 | * BSS E 0 FORCE EVEN ADDR PTM81060 10AD 7218 16326 | XR798 MDX 2 +24 PTM81065 10AE 4C00 0FF5 16327 | BSC L SYM30 PTM81070 10B0 10CF 16328 | XR799 DC XR790 ADDR OF ERROR PROCESSING PTM81075 10B1 70A0 16329 | XRER8 MDX XR709 PTM81080 16330 | * PTM81085 10B2 16331 | BSS E 0 FORCE EVEN ADDR PTM81090 10B2 7001 16332 | XRE33 DC /7001 PRINT FUNC CODE PTM81095 10B3 10B5 16333 | DC XRER4 ERROR MSG HEADER PTM81100 16334 | * PTM81105 10B4 16335 | BSS E 1 FORCE ODD ADDR PTM81110 10B5 000F 16336 | XRER4 DC XRER5-XRER4 WD ONT OF ERR MSG PTM81115 10B6 C5D9 D9D6 D940 E2E3 16337 | EBC .ERROR STATEMENT LINE NUMBERS. PTM81120 C1E3 C5D4 C5D5 E340 | D3C9 D5C5 40D5 E4D4 | C2C5 D9E2 | 10C4 0014 16338 | XRER5 DC 20 PTM81125 16339 | * PTM81130 10C6 16340 | BSS E 0 FORCE EVEN ADDR PTM81135 10C6 7000 16341 | XRER7 DC /7000 DK READ FUNC CODE PTM81140 10C7 0458 16342 | DC P9000-2 I/O AREA ADDR PTM81145 10C8 701A 16343 | XRE17 MDX X SYB01-XRPG1-1 PTM81150 10C9 70EB 16344 | XRE18 MDX X XR709-XR713-3 PTM81155 10CA 0000 16345 | PSTMN DC *-* PTM81160 10CB 0000 16346 | ERCT2 DC *-* DUPLICATE ERROR CTR PTM81165 16347 | * PTM81170 10CC 4400 1206 16348 | XRE16 BSI L XREPR PRINT IF SET TO PRINT PTM81175 10CE 703A 16349 | MDX XRER3 GO EXIT ASM PTM81180 16350 | * PTM81185 16351 | * PROCESS ERROR STATEMENT ENTRIES PTM81190 16352 | * PTM81195 10CF 16353 | XR790 EQU * PTM81200 10CF C0D4 16354 | LD XR793 SET FINAL BRANCH ADDR PTM81205 10D0 D400 104D 16355 | STO L XR708 PTM81210 10D2 C0F6 16356 | LD XRE18 SET TO BYPASS UNDEFINED PTM81215 10D3 D400 1066 16357 | STO L XR713+2 *SYMBOL PTM81220 10D5 C0D0 16358 | LD XR792 SET BR ADDR FOR ERROR PTM81225 10D6 D08E 16359 | STO XR713+1 *ENTRY PROCESSING PTM81230 10D7 C0DB 16360 | LD XRE33+1 SET ERROR HDNG ADDR PTM81235 10D8 D400 1233 16361 | STO L XRP92+1 PTM81240 10DA C0C9 16362 | LD XR793 SET TO RETURN ON PTM81245 10DB D084 16363 | STO XRE12+1 *END OF XREF TBL PTM81250 10DC C0EE 16364 | LD ERCT2 PTM81255 10DD 4C18 1109 16365 | BSC L XRER3,+- BR-NO ERRORS PTM81260 16366 | * PTM81265 10DF C480 0006 16367 | LD I $CH12 PTM81270 10E1 4420 121F 16368 | BSI L XRPGH,Z BR TO EJECT,PRINT HEADERS PTM81275 10E3 C0C1 16369 | LD XR791 PTM81280 10E4 4400 0D97 16370 | BSI L P9472+3 SPACE A LINE PTM81285 10E6 C8CB 16371 | LDD XRE33 PRINT ERROR HDR PTM81290 10E7 4400 0D97 16372 | BSI L P9472+3 PTM81295 10E9 C0BB 16373 | LD XR791 PTM81300 10EA 4400 0D97 16374 | BSI L P9472+3 SPACE A LINE PTM81305 10EC 4400 0F76 16375 | BSI L XRCLR CLEAR O/P BFR TO BLANK PTM81310 10EE C0D5 16376 | LD XRER5 SET LINE CNT PTM81315 10EF D400 1014 16377 | STO L XR952 PTM81320 10F1 7204 16378 | MDX 2 4 PTM81325 10F2 4C00 1044 16379 | BSC L XR705 PROCESS ERROR ENTRIES PTM81330 16380 | * PTM81335 10F4 C302 16381 | XRER2 LD 3 2 PTM81340 10F5 90D4 16382 | S PSTMN SKIP IF MATCH PREVIOUS PTM81345 10F6 4C18 1052 16383 | BSC L XR709,+- *STMNT NO. PTM81350 10F8 C302 16384 | LD 3 2 FETCH STATEMENT NO. PTM81355 10F9 D0D0 16385 | STO PSTMN SET TO PREVIOUS PTM81360 10FA 4400 11DB 16386 | BSI L XBDEC CONVERT,PLACE STATEMENT NO. PTM81365 10FC 7401 1205 16387 | MDX L XR957,1 SET TO PRINT LINE PTM81370 10FE 720B 16388 | MDX 2 11 INCR O/P BFR PT PTM81375 10FF 74FF 1014 16389 | MDX L XR952,-1 DECR LINE CNT PTM81380 1101 70AF 16390 | MDX XRER8 CONT PROCESSING TBL PTM81385 16391 | * PTM81390 1102 4400 1206 16392 | XRER6 BSI L XREPR PRINT LINE PTM81395 1104 C0BF 16393 | LD XRER5 SET LINE COUNT PTM81400 1105 D400 1014 16394 | STO L XR952 PTM81405 1107 7204 16395 | MDX 2 4 PTM81410 1108 70A8 16396 | MDX XRER8 CONT TO DECODE TBL PTM81415 16397 | * PTM81420 1109 C400 0255 16398 | XRER3 LD L MCGEN RESET DSF END ADDR PTM81425 110B D480 0232 16399 | STO I DSADR PTM81430 110D CC00 0ECE 16400 | LDD L X3001+2 WD CNT,SCTR ADDR PHASE 4 PTM81435 110F DC00 0280 16401 | STD L OVLAY PTM81440 1111 6700 0219 16402 | LDX L3 ASMCM RESTORE XR3 PTM81445 1113 C400 155A 16403 | LD L XADCO RESTORE ADCOW PTR 2-9 PTM81450 1115 D3FA 16404 | STO 3 ADCOW-X3 *FOR EXIT PHASE 2-9 PTM81455 1116 C400 045A 16405 | LD L ERPTR SAVE ERPTR FOR PHASE 4 PTM81460 1118 D33C 16406 | STO 3 MCGEN-X3 PTM81465 1119 CC00 0ED2 16407 | LDD L X3001+6 SET REFRESH HDR PTM81470 111B DC00 0458 16408 | STD L P9000-2 PTM81475 111D C8A8 16409 | LDD XRER7 PREPARE TO PTM81480 111E 435C 16410 | BSI 3 DISK1-X3 RESTORE PHASE 9 PTM81485 111F C33C 16411 | LD 3 MCGEN-X3 RESTORE ERPTR PTM81490 1120 D400 045A 16412 | STO L ERPTR PTM81495 1122 C007 16413 | LD XREND SET XEQ ADDR FOR PTM81500 1123 D35A 16414 | STO 3 P0140+1-X3 *PHASE 4 PTM81505 1124 CC00 0ED6 16415 | LDD L XGETR+2 RESTORE GETER DISK HDR PTM81510 1126 DC00 0796 16416 | STD L P9245+8 PTM81515 1128 4C00 0270 16417 | BSC L P0130 LD AND XEQ PHASE 4 PTM81520 16418 | * PTM81525 112A 0282 16419 | XREND DC OVLAY+2 PH 4 XEQ ADDR PTM81530 16420 | * PTM81535 16421 | * CROSS-REFERENCE SYMBOL TBL SEARCH SUBR PTM81540 16422 | * PTM81545 112B 0000 16423 | XRSSR DC *-* ENTRY POINT PTM81550 112C C301 16424 | LD 3 1 SAVE SYMBOL IN PTM81555 112D 18D0 16425 | RTE 16 *SYMBOL TBL SAVE AREA PTM81560 112E C300 16426 | LD 3 0 PTM81565 112F D810 16427 | STD XRS96 PTM81570 1130 4011 16428 | BSI XRS30 SEARCH IN-CORE TBL PTM81575 16429 | * RETURN HERE IF SYM NOT FOUND PTM81580 16430 | * OTHERWISE,BRANCH TO XRS10 PTM81585 1131 C200 16431 | LD 2 LOEND-X3 TEST IF OVFLO WILL OCCUR PTM81590 1132 9400 1010 16432 | S L XR942 PTM81595 1134 9005 16433 | S XRS91 *IF SYM IS ADDED PTM81600 1135 4C08 1109 16434 | BSC L XRER3,+ BR-OVFLO WILL OCCUR PTM81605 1137 402C 16435 | BSI XRSAS BR TO ADD SYM TO TBL PTM81610 1138 4C80 112B 16436 | XRS10 BSC I XRSSR RETURN TO CALLER PTM81615 16437 | * PTM81620 16438 | * CONSTANTS PTM81625 16439 | * PTM81630 113A 128C 16440 | XRS91 DC PDEND ADDR LIMIT OF SYMBOL TBL PTM81635 113B 0004 16441 | XRS92 DC 4 CONSTANT 4 PTM81640 113C 0000 16442 | XRS93 DC *-* TEMP SAVE AREA PTM81645 113D 0000 16443 | XRS94 DC *-* TEMP SAVE AREA PTM81650 113E 0001 16444 | XRS95 DC 1 CONSTANT 1 PTM81655 1140 16445 | BSS E 0 FORCE EVEN ADDR PTM81660 1140 16446 | XRS96 BSS 2 SYMBOL SAVE AREA PTM81665 16447 | * PTM81670 1142 0000 16448 | XRS30 DC *-* ENTRY POINT PTM81675 1143 C200 16449 | LD 2 LOEND-X3 FORM NEW LOW END ADDR PTM81680 1144 90F6 16450 | S XRS92 *OF SYMBOL TBL PTM81685 1145 D0F6 16451 | STO XRS93 PTM81690 1146 C2FF 16452 | LD 2 HIEND-X3 PTM81695 1147 80F3 16453 | A XRS92 PTM81700 1148 D0F4 16454 | STO XRS94 PTM81705 1149 C0F3 16455 | XRS33 LD XRS94 CALC REMAINING SYM TBL PTM81710 114A 90F1 16456 | S XRS93 *SIZE PTM81715 114B 1803 16457 | SRA 3 PTM81720 114C 1002 16458 | SLA 2 PTM81725 114D 4C88 1142 16459 | BSC I XRS30,+ BR-SEARCH DONE PTM81730 114F D004 16460 | STO XRS35+1 SET TBL ADDR PTM81735 1150 C0EC 16461 | LD XRS94 CALC SYM TBL ENTRY ADDR PTM81740 1151 9002 16462 | S XRS35+1 PTM81745 1152 D001 16463 | STO XRS35+1 PTM81750 1153 6500 0000 16464 | XRS35 LDX L1 *-* SET SYM TBL ENT ADDR PTM81755 1155 C100 16465 | LD 1 0 PTM81760 1156 18D0 16466 | RTE 16 PTM81765 1157 C1FF 16467 | LD 1 -1 PTM81770 1158 98E7 16468 | SD XRS96 PTM81775 1159 4C20 115E 16469 | BSC L XRS40,Z BR-NO MATCH PTM81780 115B 18D0 16470 | RTE 16 PTM81785 115C 4C18 1138 16471 | BSC L XRS10,+- BR-MATCH PTM81790 115E 4C02 1162 16472 | XRS40 BSC L XRS42,C SET LOW ADDR PTM81795 1160 69DB 16473 | STX 1 XRS93 PTM81800 1161 70E7 16474 | MDX XRS33 CONT SEARCH PTM81805 1162 69DA 16475 | XRS42 STX 1 XRS94 SET HIGH ADDR PTM81810 1163 70E5 16476 | MDX XRS33 CONT SEARCH PTM81815 16477 | * PTM81820 16478 | * CROSS-REFERENCE SYM TBL ADD SUBR PTM81825 16479 | * PTM81830 1164 0000 16480 | XRSAS DC *-* ENTRY POINT PTM81835 1165 6580 113C 16481 | LDX I1 XRS93 XR1 IS CURRENT LOW END PT PTM81840 1167 C200 16482 | LD 2 LOEND-X3 PTM81845 1168 90D3 16483 | S XRS93 PTM81850 1169 90D1 16484 | S XRS92 PTM81855 116A 4C18 1179 16485 | BSC L XRS55,+- BR-NO ENTRIES TO MOVE PTM81860 116C D001 16486 | STO *+1 PTM81865 116D 6600 0000 16487 | LDX L2 *-* XR2-NO. ENTRIES TO MOVE PTM81870 116F 6B08 16488 | STX 3 XRS53+1 SAVE XR3 PTM81875 1170 6780 0219 16489 | LDX I3 LOEND PTM81880 1172 C3FD 16490 | XRS50 LD 3 -3 4 WD ENTRIES MOVED PTM81885 1173 D3F9 16491 | STO 3 -7 PTM81890 1174 7301 16492 | MDX 3 1 PTM81895 1175 7201 16493 | MDX 2 1 PTM81900 1176 70FB 16494 | MDX XRS50 CONT TO MOVE SYM TBL PTM81905 1177 6700 0000 16495 | XRS53 LDX L3 *-* RESTORE XR3 PTM81910 1179 C8C6 16496 | XRS55 LDD XRS96 PLACE SYMBOL IN TBL PTM81915 117A D1FF 16497 | STO 1 -1 PTM81920 117B 18D0 16498 | RTE 16 PTM81925 117C D100 16499 | STO 1 0 PTM81930 117D 6600 0219 16500 | LDX L2 ASMCM RESTORE XR2 PTM81935 117F C200 16501 | LD 2 LOEND-X3 SET NEW LOEND ADDR PTM81940 1180 90BA 16502 | S XRS92 PTM81945 1181 D200 16503 | STO 2 LOEND-X3 PTM81950 1182 4C80 1164 16504 | BSC I XRSAS RETURN TO CALLER PTM81955 16505 | * PTM81960 16506 | * SUBROUTINE TO READ XREF TABLE FROM DISK PTM81965 16507 | * PTM81970 16508 | * PTM81975 1184 0001 16509 | XD900 DC 1 XREF READ SW,INITIALLY 1 PTM81980 1185 0006 16510 | XD901 DC 6 CONSTANT 6 PTM81985 1186 0140 16511 | XD903 DC 320 CONSTANT 320 PTM81990 1188 16512 | BSS E 0 FORCE EVEN ADDR PTM81995 1188 7000 16513 | XD904 DC /7000 DK READ FUNC CODE PTM82000 1189 045C 16514 | DC P9000+2 I/O AREA ADDR PTM82005 16515 | * PTM82010 118A 0000 16516 | XDKRD DC *-* ENTRY POINT PTM82015 118B 7400 1184 16517 | MDX L XD900,0 TEST READ SW PTM82020 118D 7005 16518 | MDX XD001 BR TO PERFORM READ PTM82025 118E C480 118A 16519 | LD I XDKRD RETURN TO CALLER PTM82030 1190 D001 16520 | STO *+1 PTM82035 1191 4C00 0000 16521 | BSC L *-* PTM82040 16522 | * PTM82045 1193 C400 100F 16523 | XD001 LD L XD902 FETCH OVFLO COUNT PTM82050 1195 90EF 16524 | S XD901 PTM82055 1196 4C30 11A3 16525 | BSC L XD010,-Z BR IF OVFLO EXCEEDS 6 PTM82060 1198 1010 16526 | SLA 16 PTM82065 1199 D0EA 16527 | STO XD900 RESET READ SW PTM82070 119A C400 100F 16528 | LD L XD902 SET WD CNT FOR DISK READ PTM82075 119C D400 1015 16529 | XD005 STO L XR953 PTM82080 119E A0E7 16530 | M XD903 PTM82085 119F 1090 16531 | SLT 16 PTM82090 11A0 D400 045C 16532 | STO L P9000+2 PTM82095 11A2 7004 16533 | MDX XD015 BR TO PERFORM DISK READ PTM82100 16534 | * PTM82105 11A3 D400 100F 16535 | XD010 STO L XD902 SET NEW OVFLO COUNT PTM82110 11A5 C0DF 16536 | LD XD901 PTM82115 11A6 70F5 16537 | MDX XD005 BR TO SET WD CNT PTM82120 16538 | * PTM82125 11A7 16539 | XD015 EQU * PTM82130 11A7 C8E0 16540 | LDD XD904 FETCH DISK READ PARAM PTM82135 11A8 4400 0275 16541 | BSI L DISK1 READ IN PARTIAL XREF TBL PTM82140 16542 | * PTM82145 11AA C400 045D 16543 | LD L P9000+3 CALC NEXT READ SCTR ADDR PTM82150 11AC 8400 1015 16544 | A L XR953 *AND SAVE PTM82155 11AE D400 045D 16545 | STO L P9000+3 PTM82160 16546 | * PTM82165 11B0 7401 118A 16547 | MDX L XDKRD,1 ADJUST RETURN ADDR PTM82170 11B2 4C80 118A 16548 | BSC I XDKRD RETURN TO CALLER PTM82175 16549 | * PTM82180 16550 | * CONSTANTS PTM82185 16551 | * PTM82190 11B4 00C0 16552 | XR941 DC /00C0 UNPACKED EBCDIC CHAR HDR PTM82195 11B5 000A 16553 | XR944 DC 10 CONSTANT 10 PTM82200 11B6 FFC7 16554 | XR945 DC .A-.0-10 PTM82205 11B7 00FA 16555 | XR946 DC .0+10 PTM82210 11B8 00F0 16556 | XR947 DC /F0 EBCDIC + ZONE PTM82215 16557 | * PTM82220 16558 | * SUBROUTINE TO UNPACK SYMBOL NAME PTM82225 16559 | * PTM82230 11B9 0000 16560 | UNPCK DC *-* ENTRY POINT PTM82235 11BA 1082 16561 | SLT 2 PTM82240 11BB 63FB 16562 | LDX 3 -5 SET LOOP CTR PTM82245 11BC 7001 16563 | MDX *+1 PTM82250 11BD 1086 16564 | UNPK1 SLT 6 SHIFT CHAR TO LEFTMOST PTM82255 11BE DC00 0F70 16565 | STD L XR937 SAVE TEMP PTM82260 11C0 180A 16566 | SRA 10 PTM82265 11C1 E8F2 16567 | OR XR941 EXPAND TO EBCDIC PTM82270 11C2 4400 125E 16568 | BSI L SPCHR CHECK FOR SPECIAL CHAR PTM82275 11C4 D200 16569 | STO 2 0 SAVE IN O/P BFR PTM82280 11C5 7201 16570 | MDX 2 1 INCR O/P BFR PT PTM82285 11C6 CC00 0F70 16571 | LDD L XR937 FETCH NEXT CHAR PTM82290 11C8 7301 16572 | MDX 3 1 DECR LOOP CTR PTM82295 11C9 70F3 16573 | MDX UNPK1 CONT TO UNPACK PTM82300 11CA 4C80 11B9 16574 | BSC I UNPCK RETURN TO CALLER PTM82305 16575 | * PTM82310 16576 | * PTM82315 16577 | * SUBROUTINE TO CONVERT HEXADECIMAL PTM82320 16578 | * *WORD TO EBCDIC AND SAVE PTM82325 16579 | * PTM82330 11CC 0000 16580 | S4HEX DC *-* ENTRY PT PTM82335 11CD 6304 16581 | LDX 3 4 SET LOOP CTR PTM82340 11CE 18D0 16582 | RTE 16 PTM82345 11CF 1010 16583 | S4HX1 SLA 16 CLEAR ACC PTM82350 11D0 1084 16584 | SLT 4 4 BITS=ONE CHAR PTM82355 11D1 90E3 16585 | S XR944 SUBTRACT 10 PTM82360 11D2 4810 16586 | BSC - PTM82365 11D3 80E2 16587 | A XR945 .A-.0-10 PTM82370 11D4 80E2 16588 | A XR946 .0+10 PTM82375 11D5 D200 16589 | STO 2 0 PLACE CHAR PTM82380 11D6 7201 16590 | MDX 2 1 ADJUST O/P PT PTM82385 11D7 73FF 16591 | MDX 3 -1 DECR LOOP CTR PTM82390 11D8 70F6 16592 | MDX S4HX1 CONT TO CONVERT PTM82395 11D9 4C80 11CC 16593 | BSC I S4HEX RETURN TO CALLER PTM82400 16594 | * PTM82405 16595 | * PTM82410 16596 | * SUBROUTINE TO CONVERT,SAVE PTM82415 16597 | * *STATEMENT NO. TO EBCDIC PTM82420 16598 | * PTM82425 11DB 0000 16599 | XBDEC DC *-* ENTRY PT PTM82430 11DC 6B0B 16600 | STX 3 XBD02+1 SAVE XR3 PTM82435 11DD 6305 16601 | LDX 3 5 SET LOOP CTR PTM82440 11DE 1890 16602 | SRT 16 PTM82445 11DF 1010 16603 | XBD01 SLA 16 CLEAR ACC PTM82450 11E0 A8D4 16604 | D XR944 FETCH DECML DGT PTM82455 11E1 18D0 16605 | RTE 16 *TO ACC PTM82460 11E2 E8D5 16606 | OR XR947 ADD EBCDIC + ZONE PTM82465 11E3 D200 16607 | STO 2 0 PTM82470 11E4 72FF 16608 | MDX 2 -1 ADJUST O/P PT PTM82475 11E5 73FF 16609 | MDX 3 -1 DECR LOOP CTR PTM82480 11E6 70F8 16610 | MDX XBD01 CONT CONVERSION PTM82485 11E7 6700 0000 16611 | XBD02 LDX L3 *-* RESTORE XR3 PTM82490 11E9 4C80 11DB 16612 | BSC I XBDEC RETURN TO CALLER PTM82495 16613 | * PTM82500 16614 | * PTM82505 16615 | * SUBROUTINE TO PACK O/P BFR PTM82510 16616 | * PTM82515 11EB 0000 16617 | XRPCK DC *-* ENTRY POINT PTM82520 11EC 6B10 16618 | STX 3 XRP02+1 SAVE XR3 PTM82525 11ED 6911 16619 | STX 1 XRP03+1 SAVE XR1 PTM82530 11EE 6600 0EDC 16620 | LDX L2 XRBFR SET BFR PT PTM82535 11F0 6500 0EDC 16621 | LDX L1 XRBFR SET BFR PT PTM82540 11F2 633C 16622 | LDX 3 60 SET LOOP CTR PTM82545 11F3 C201 16623 | XRP01 LD 2 1 FETCH RIGHTHAND CHAR PTM82550 11F4 1888 16624 | SRT 8 PTM82555 11F5 C200 16625 | LD 2 0 FETCH LEFTHAND CHAR PTM82560 11F6 1088 16626 | SLT 8 PTM82565 11F7 D100 16627 | STO 1 0 STORE PACKED CHARS PTM82570 11F8 7202 16628 | MDX 2 2 INCR I/P PT PTM82575 11F9 7101 16629 | MDX 1 1 INCR O/P PT PTM82580 11FA 73FF 16630 | MDX 3 -1 DECR LOOP CNT PTM82585 11FB 70F7 16631 | MDX XRP01 CONT TO PACK PTM82590 11FC 6700 0000 16632 | XRP02 LDX L3 *-* RESTORE XR3 PTM82595 11FE 6500 0000 16633 | XRP03 LDX L1 *-* RESTORE XR1 PTM82600 1200 4C80 11EB 16634 | BSC I XRPCK RETURN TO CALLER PTM82605 16635 | * PTM82610 16636 | * SUBR TO PACK AND PRINT LINE PTM82615 16637 | * PTM82620 1202 16638 | BSS E 0 FORCE EVEN ADDR PTM82625 1202 7001 16639 | XR956 DC /7001 PRINT FUNC CODE PTM82630 1203 0EDB 16640 | DC XRBFR-1 I/O AREA ADDR PTM82635 1204 7002 16641 | XRP39 DC /7002 SPACE FUNC CODE PTM82640 1205 0001 16642 | XR957 DC 1 PRINT INDR,PR IF NONZERO PTM82645 16643 | * PTM82650 1206 0000 16644 | XREPR DC *-* ENTRY POINT PTM82655 1207 6B14 16645 | STX 3 XREP3+1 SAVE XR3 PTM82660 1208 C0FC 16646 | LD XR957 PTM82665 1209 4C18 1217 16647 | XREP1 BSC L XREP2,+- BR IF NO O/P PTM82670 120B 40DF 16648 | BSI XRPCK PACK O/P LINE PTM82675 120C C480 0006 16649 | LD I $CH12 CHANNEL 12 ON-BR PTM82680 120E 4420 121F 16650 | BSI L XRPGH,Z BR TO EJECT,PRINT HDRS PTM82685 1210 C8F1 16651 | LDD XR956 PR PARAM TO ACC,EXT PTM82690 1211 4400 0D97 16652 | BSI L P9472+3 PRINT THE LINE PTM82695 1213 C400 0036 16653 | LD L $PBSY TEST PRINTER BFR PTM82700 1215 4C30 1213 16654 | BSC L *-4,-Z BR-PRINT BFR BUSY PTM82705 1217 4400 0F76 16655 | XREP2 BSI L XRCLR CLEAR O/P BFR TO BLANKS PTM82710 1219 1010 16656 | SLA 16 RESET PR INDR PTM82715 121A D0EA 16657 | STO XR957 PTM82720 121B 6700 0000 16658 | XREP3 LDX L3 *-* RESTORE XR3 PTM82725 121D 4C80 1206 16659 | BSC I XREPR RETURN TO CALLER PTM82730 16660 | * PTM82735 16661 | * SUBROUTINE TO PRINT PAGE HEADER,SPACE, PTM82740 16662 | * *PRINT CROSS-REFERENCE HEADER,SPACE PTM82745 16663 | * PTM82750 121F 0000 16664 | XRPGH DC *-* ENTRY POINT PTM82755 1220 C80F 16665 | LDD XRP90 GO TO PRINT SUBR TO PTM82760 1221 4400 0D97 16666 | BSI L P9472+3 *SKIP TO CHANNEL 1 PTM82765 1223 4400 0D97 16667 | BSI L P9472+3 RETURN TO PRINT HDNG PTM82770 1225 C0DE 16668 | LD XRP39 PTM82775 1226 4400 0D97 16669 | BSI L P9472+3 SPACE A LINE PTM82780 1228 C809 16670 | LDD XRP92 PREPARE TO PTM82785 1229 4400 0D97 16671 | BSI L P9472+3 PRINT XREF HEADING PTM82790 122B C0D8 16672 | LD XRP39 PTM82795 122C 4400 0D97 16673 | BSI L P9472+3 SPACE A LINE PTM82800 122E 4C80 121F 16674 | BSC I XRPGH RETURN TO CALLER PTM82805 16675 | * PTM82810 16676 | * CONSTANTS PTM82815 16677 | * PTM82820 1230 16678 | BSS E 0 FORCE EVEN ADDR PTM82825 1230 7000 16679 | XRP90 DC /7000 PRINT FUNC CODE PTM82830 1231 1234 16680 | DC XRP94 PAGE HDNG I/O AREA PTM82835 1232 7001 16681 | XRP92 DC /7001 PRINT FUNC CODE PTM82840 1233 1249 16682 | DC XRP96 XREF HDNG I/O AREA PTM82845 1234 16683 | XRP94 BSS 12 PAGE HDNG I/O AREA PTM82850 1240 40C3 D9D6 E2E2 60D9 16684 | EBC . CROSS-REFERENCE. PTM82855 C5C6 C5D9 C5D5 C3C5 | 1248 7002 16685 | XRP95 DC /7002 SPACE FUNC CODE PTM82860 16686 | * ADDED -1 PER FICHE LISTINGS: KNITTEL0 1249 0014 16687 | XRP96 DC XRP97-XRP96-1 WD CNT OF XREF HDNG 213 PTM82865 124A E2E8 D4C2 D6D3 4040 16688 | EBC .SYMBOL VALUE REL DEFN . PTM82870 4040 E5C1 D3E4 C540 | 40D9 C5D3 40C4 C5C6 | D540 | 1257 4040 4040 D9C5 C6C5 16689 | EBC . REFERENCES. PTM82875 D9C5 D5C3 C5E2 | 125E 16690 | XRP97 EQU * PTM82880 16691 | * PTM82885 16692 | * PTM82890 125E 0000 16693 | SPCHR DC *-* ENTRY POINT PTM82895 125F 6B0B 16694 | STX 3 SPCH2+1 SAVE XR3 PTM82900 1260 63FC 16695 | LDX 3 -4 INITIALIZE CTR PTM82905 1261 D00F 16696 | STO SPC00 SAVE CHAR PTM82910 1262 E00F 16697 | SPCH1 AND SPC01 PTM82915 1263 F700 1277 16698 | EOR L3 SPC02+4 CHECK FOR SPECIAL CHAR PTM82920 1265 4C18 126E 16699 | BSC L SCPH3,+- BR-SPECIAL CHAR PTM82925 1267 C009 16700 | LD SPC00 FETCH CHAR PTM82930 1268 7301 16701 | MDX 3 +1 INCR CTR PTM82935 1269 70F8 16702 | MDX SPCH1 CONT CHECK PTM82940 126A 6700 0000 16703 | SPCH2 LDX L3 *-* RESTORE XR3 PTM82945 126C 4C80 125E 16704 | BSC I SPCHR RETURN TO CALLER PTM82950 126E C700 127B 16705 | SCPH3 LD L3 SPC03+4 FETCH CHAR PTM82955 1270 70F9 16706 | MDX SPCH2 RETURN PTM82960 16707 | * PTM82965 16708 | * CONSTANTS PTM82970 16709 | * PTM82975 1271 0000 16710 | SPC00 DC *-* TEMP SAVE AREA PTM82980 1272 007F 16711 | SPC01 DC /7F CONSTANT /7F PTM82985 1273 0040 16712 | SPC02 DC . EBCDIC BLANK PTM82990 1274 005B 16713 | DC .$ EBCDIC DOLLAR SIGN PTM82995 1275 007C 16714 | DC /7C EBCDIC AT SIGN PTM83000 1276 007B 16715 | DC .# EBCDIC POUND SIGN PTM83005 1277 0040 16716 | SPC03 DC . EBCDIC BLANK PTM83010 1278 005B 16717 | DC .$ EBCDIC DOLLAR SIGN PTM83015 1279 007D 16718 | DC .' EBCDIC APOSTROPHE PTM83020 127A 007E 16719 | DC /7E EBCDIC EQUAL SIGN PTM83025 16720 | * PTM83030 127B 16721 | BSS /127B-* PATCH AREA 2-9 PTM83035 16722 | * PTM83040 16723 | * NOTE - THIS PHASE FITS OVER PHASE 13 PTM83045 16724 | * DO NOT EXCEED PDEND PTM83050 16725 | * PTM83055 127B 0000 16726 | X3399 DC 0 END OF XREF PART 3 PTM83060 127C 16727 | END P0000 PTM83070 There were no errors in this assembly Program transfer address = 01E2 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ENSW 005A 111 #ENTY 0010 115 3832 #FMAT 0046 112 3838 #HDNG 0007 113 1583 3111 5535 16042 #NAME 0004 116 3830 #RP67 0011 117 3335 #WSCT 0055 114 3836 $1410 00D5 98 4018 11360 13478 $CH12 0006 85 2213 3320 4021 5634 6849 6903 15653 16292 16367 16649 $CORE 000E 86 496 524 529 553 1601 1686 2573 2585 2744 2905 3082 6437 10127 10461 10778 10885 11420 15332 $CTSW 000F 87 1823 3711 3879 5735 5794 $DBSY 00EE 88 312 $DUMP 003F 91 6982 $EXIT 0038 92 3946 5618 6990 8334 $FPAD 0095 93 559 $I405 00D3 94 95 $IBSY 0013 96 1586 2858 3347 5733 9109 13951 14060 14164 14731 $IBT4 00D4 95 336 $IREQ 002C 97 3817 3820 3903 3905 11335 11338 11349 11351 13452 13455 13462 13464 $KCSW 007C 99 426 $LAST 0033 101 $LINK 0039 100 8314 $NDUP 0034 103 362 365 3814 3918 3928 $NEND 03A2 102 4378 $NXEQ 0035 104 360 364 $PBSY 0036 105 1830 2210 3120 3318 3943 5548 5831 6820 10173 10177 16653 $PHSE 0078 106 152 1149 1367 1811 2741 3060 4233 4604 6628 7070 7534 7796 8113 8510 10122 10456 11796 12311 12386 12625 13934 14382 15316 16062 $PRET 0028 108 3432 $PST4 008D 107 281 282 283 284 285 286 287 288 289 290 $ULET 002D 110 10260 $WSDR 007A 109 558 3834 3847 'AERM 0B01 1852 1810 'ASYM 00D7 2978 2974 'BLCT 0002 120 10291 'HWCT 001E 118 4378 'LFEN 0003 121 10382 'LFHD 0005 126 10291 10297 10302 10306 10448 'LFNM 0000 128 10297 10302 10306 'MXDR 0005 123 10259 10260 'NEXT 0004 122 10392 10398 'RP67 0011 119 'SCTN 0000 124 10275 'UAFX 0001 127 10283 'WDSA 0003 125 10288 A 0240 239 2485 2507 4293 4297 4398 4401 4403 4522 5103 11844 11845 11891 11900 14280 15112 A1000 0282 2740 2735 A1002 0298 2757 2750 A1004 02AD 2772 2748 2755 2758 A1005 02D4 2796 2779 2793 2826 A1008 0317 2851 2857 2863 A1010 0329 2865 2840 A1011 030F 2846 2844 A1015 0342 2889 2866 A1020 034B 2896 2775 2887 2891 A1022 0352 2903 2897 A1027 036D 2922 2904 2907 2911 2931 A1028 0374 2929 2915 A1029 0306 2837 2766 A1030 0377 2932 2870 A1031 02EB 2811 2825 A1032 02E2 2805 2822 A1033 02B5 2777 2816 A1034 02FF 2830 2821 A1035 02F0 2814 2773 A1036 0307 2839 2813 A1037 0304 2836 2761 A1038 0301 2832 2759 A1039 0300 2831 2752 2899 A1040 037B 2938 2740 A1041 037C 2939 2745 2906 A1042 037D 2940 2843 A1044 037E 2941 2845 A1050 0382 2945 2894 A1055 0383 2946 A1056 0384 2947 2853 A1060 037F 2942 2787 2789 2869 2917 A1065 0386 2949 2737 2922 A1070 0394 2952 2735 A1900 02F8 11365 11469 A1902 0281 11243 A1903 02FD 11371 11474 A1904 02FF 11373 11421 A1906 0300 11374 11299 11404 11640 11647 11649 A1908 0301 11375 11336 11348 A1909 0311 11394 11343 A1910 0302 11377 11280 11342 A1911 031C 11416 11485 A1912 030F 11391 11305 11307 11482 11535 11621 11645 A1920 0438 11672 11665 A1925 1567 14990 11673 A1930 1568 14991 14990 A1935 1572 14993 14990 A1Q00 0304 11380 11388 A1QFG 0306 11384 11295 11306 11385 11429 11435 11475 A2010 0323 12970 13025 13533 A2900 02CE 12884 12845 12880 A3000 0282 13913 13903 A3900 02E1 13990 13935 A3901 152E 14917 14194 14198 14897 14901 A3903 02B9 13957 13933 A3905 02BA 13959 13949 A7001 0380 2943 2797 AC990 025B 263 266 269 ADCOW 0213 195 196 994 1005 1372 1597 1600 1604 3742 4352 4617 4638 4645 4652 4672 4678 4690 4708 4919 5220 5970 5973 6678 6689 6703 6718 6722 6797 6937 6969 6999 7186 7193 7195 7219 7243 7252 7364 7371 7373 7395 7407 7411 7413 7418 7540 7545 7550 7613 7619 7639 7664 8138 8146 8152 8157 8174 8182 8232 8242 8258 8270 8277 8291 8298 8304 8310 8318 8329 8340 8376 8399 8414 8420 8582 9219 9221 9426 9561 9564 9723 9756 9788 10832 11402 11636 12006 15553 16404 ADCW2 0215 197 198 995 1006 4353 5972 5974 6003 6680 6705 ADDR 02E4 421 335 443 ADDR1 0F0A 9251 9215 ADDRP 0371 1580 1668 ADJCT 02A5 7549 7541 ADJSA 0229 216 217 561 582 1473 1505 1693 2876 2877 2908 3735 3749 3769 3774 3784 13469 15525 15546 15578 ADJST 0312 3822 3862 ADOPR 02F7 7623 7535 AFE00 02FE 11372 11288 AG010 0352 11985 11821 11825 AG013 035C 11992 12002 AG014 035F 11995 12056 AG015 0363 11998 11988 AG016 036C 12005 11991 11999 AG020 0372 12009 11984 AGO00 0345 11975 AGO1 0346 11976 11903 AGO10 0390 12029 11979 11994 AGO2 0393 12031 12039 AGO20 03AB 12053 12047 AGO21 03AB 12054 AGO22 03B3 12060 12034 12064 AGO23 03B0 12057 11996 AGO3 03C0 12071 12058 AGO4 03B9 12067 12075 12103 AGO41 03DB 12097 12083 AGO42 03E0 12101 12108 AGO5 03CD 12081 12088 AGOB 0340 11967 11811 AGOIN 0343 11973 11809 11969 AGONM 032D 11947 11977 12045 12076 AGOSW 033B 11960 11968 AIF 02B0 11831 11808 11827 AIF00 0307 11907 11838 11843 11866 11912 11913 AIF02 02C6 11849 11857 AIF03 02DC 11869 11878 AIF1B 02AA 11823 11817 AIF2B 02AE 11826 11822 AIFAS 03DA 12095 12074 AIFB 029F 11816 11810 AIFB1 0386 12022 12016 AIFB2 038F 12028 12010 AIFB5 030F 11915 11902 AIFBS 0320 11934 11826 11832 11919 11967 11974 11978 11982 AIFIN 0292 11794 AIFK1 0321 11935 12023 12148 AIFS1 035D 11993 11986 AIFTP 032A 11944 11874 11877 ALNUM 03B3 8763 8743 AMP 03DE 12648 12531 AMPCN 03E2 12651 12648 AMPS0 0333 12983 13151 AOPER 02E4 8187 8114 ARND 02A2 8520 8517 ASK 0337 12987 12854 ASMCL 0073 266 339 346 ASMCM 0219 264 265 276 359 408 1845 2258 2625 3881 11887 12054 12549 12599 12661 12809 13774 14058 14162 14273 14714 15317 15367 15453 16092 16229 16303 16402 16500 ASSAD 01E8 163 164 266 269 338 8514 8518 8595 8919 ASTK 0692 13532 12855 ASTK1 069A 13541 13549 ASTK2 13C1 14603 14611 ASTK3 06A4 13550 13546 B 0F1B 9268 9897 B1000 0282 10121 10115 B1100 0377 10357 10353 B1105 0362 10340 B1106 0368 10346 B1107 03A1 10400 10336 10338 10356 B1108 03A9 10405 10355 B1109 036F 10352 10405 10417 B1110 0388 10371 10272 10330 B1111 0384 10364 10394 B1150 02AD 10171 2629 10132 10463 B1155 02B1 10173 10174 B1200 02D8 10199 10125 10179 10363 10460 10470 B1210 02D3 10192 10266 10269 B1300 03DB 10455 2669 B1310 03F4 10474 10464 B1320 03F5 10475 10457 B1900 02E2 10209 10121 10455 B1902 0337 11953 B1903 0338 11957 12020 B1904 033A 11959 11820 11989 12005 B190O 0281 11774 B1910 02E3 10210 10128 10462 B1921 03F7 10477 10314 10361 10402 B1923 038A 10373 10315 10316 10350 10362 10403 B1924 03F8 10478 10420 B1925 0386 10368 10349 B1926 0387 10369 10307 10326 B1930 03F6 10476 10384 B1957 02BE 10184 10175 B1958 02C1 10187 10185 B1959 02D2 10190 10169 10187 B1990 03FA 10481 10117 10200 10341 10348 B1997 03FE 10483 10192 10245 10359 10400 B1999 0400 10485 10115 B1Q00 03D9 12094 12128 B1QFG 03F9 12124 11917 12051 12113 12118 12125 B1TB1 0297 11807 11798 B3900 132B 14435 14381 B3901 1468 14763 14717 B3902 146A 14766 14372 14719 B3904 146E 14769 B3905 1473 14775 14721 B4HEX 06FA 6507 1608 1647 4444 4447 4450 6726 6798 7250 7393 7427 7611 7617 8169 8180 8256 8268 8302 8308 8327 8363 8412 8418 8593 9424 9916 9927 BACK 0724 13676 13667 BGASM 045D 10587 10589 11354 11547 11644 11963 12090 12493 13777 13968 14738 BIDEC 03C7 3991 3791 3795 3854 3888 3894 3912 4013 BLAK 02FE 14015 14013 14056 14159 BLAN 031D 12961 12930 13021 13643 BLAN2 03D6 14241 14287 BLANK 0F24 9277 9315 9318 9325 9475 9481 9583 9602 9646 9686 9721 9732 9742 9831 9842 9923 BLK 031C 11930 11847 11864 11884 11910 11916 12001 12003 12033 12042 12046 12167 12181 BLK00 0380 13064 BLK01 0389 13071 12931 12945 13055 13060 BLKBF 080A 3142 3131 3144 BLKEN 0373 13054 13175 BLKT 0325 14054 14048 BLKT1 0336 14066 14057 14160 BLKTL 031C 14046 14016 BLKX 0401 13170 12852 12927 12971 BLKXY 0402 13174 BLNKS 0864 3230 3141 3194 3246 BLNKZ 029B 3727 3730 BMP2A 038A 14162 BMP2B 038C 14163 BMPK 0396 14172 14152 14154 14155 BRAN2 0F31 9290 BRANC 0304 11902 11861 BRBCK 0272 10588 10675 12628 12806 BRCON 03D5 12089 12079 12115 12120 BRNCH 0964 3461 3337 BRTAB 028B 11267 11273 BTHEX 06EC 6506 7661 BUF5 03E5 7724 BUFF 05A0 12288 12325 12544 12552 12553 12576 12937 13142 13206 13210 BUFI 0AD2 6527 564 1229 1239 1243 1566 2814 2878 3932 3937 3952 6528 10193 10244 10256 10317 10321 10360 10372 10391 10401 10414 10418 10422 15446 15506 15526 BUMP# 0000 84 504 1143 BUMP1 037A 14150 14032 14038 14104 14112 14137 14156 14168 BUMP2 0383 14157 BYBY 0341 7954 7794 8002 BYTE 0631 13432 13066 13083 13096 13109 13410 13673 BYTE1 0406 13180 13084 13156 13160 13234 13668 13672 C0MMA 032B 11945 11897 C2DND 06BB 13577 13626 13650 CA2ND 02B7 8150 8137 8145 CALL8 02AE 8142 8125 CALLC 02B0 8144 CATCT 03DA 10450 10354 CCHAR 132C 14437 14458 14468 14475 14491 CCOL 132F 14441 14464 CHAR 0306 14023 CHAR1 09B1 3543 CHAR2 09B2 3545 3563 3577 CHARX 132E 14439 CHEC1 0042 6017 CHECK 133A 14453 14399 14407 14456 14457 14480 14492 14627 CHEKR 0880 3256 3250 CHEX 1368 14491 14576 14628 14642 CHEX1 13D8 14627 14488 14518 14554 14562 14634 14639 14879 CHEX2 135F 14483 14461 14474 14479 CHEZ 13D2 14622 14617 CHK12 03E1 4020 3800 3806 3855 3896 3914 4022 4024 CHKFT 0438 7434 7343 CHKON 080D 5837 5843 5847 CHKOV 0947 3436 3420 CHKTP 136A 14496 14441 14463 14631 14882 CHNGE 09DF 3594 3363 3370 3374 3599 3604 CHX1 134C 14468 14442 14448 14625 CHXO 133E 14456 14455 CK# 09B9 3550 3547 CK$ 09B3 3546 CK$#' 09AD 3539 3483 3489 3497 3584 CK' 09BF 3554 3551 CKEND 06E2 13625 12970 CKLEV 0382 3921 3911 CKSEC 131E 14418 14412 14424 CLCN 02E6 8189 8134 8142 8155 8165 8172 8176 8236 8238 8250 8252 8262 8264 CLLCT 02EA 8204 8150 8224 8240 8281 8404 9587 CLLXT 02E3 8185 8140 8148 8156 8159 CNAM1 05F0 13377 12651 CNAMP 05EE 13376 12649 12861 12984 CNT01 03F7 4041 3889 CNT1 03EE 4032 3883 CNT2 040E 4064 3852 CNT26 0456 11149 11108 11110 CNT2B 0690 13527 12328 12516 12559 12570 12571 12934 12940 13114 13139 13223 CNT3 041A 4076 3789 CNT3A 0399 14176 14011 14026 14091 14283 CNT4 042C 4094 3792 CNT5 0440 4114 3909 CNTR1 085D 3222 3190 3209 3241 3305 3332 3410 3415 3421 CNVR3 0870 3241 3428 CNVRT 01F8 171 172 463 467 12662 CODE 0323 11937 11860 COL6 0F3A 9300 9415 9430 9568 9605 9673 COL7 0F3B 9301 9431 9444 9612 9681 9689 9760 COLCT 030A 8226 8211 8220 COLL 05B4 15048 15062 COLXT 0603 6505 8188 COMBR 06E8 13633 COMM 0300 14017 COMMA 0F25 9278 9619 COMNT 06C3 13585 13023 13629 13638 COMSW 0257 259 260 10909 13012 13628 COMT 035B 14103 14018 14052 COMT1 0344 14081 14066 14096 14103 CON2 027D 319 6448 CON43 03D8 8805 8738 8830 CONAB 0397 8737 8568 CONCH 0600 13391 13379 CONNC 0972 3480 3274 3500 CONPD 05F5 13384 12865 12990 CONST 0F0A 9250 9244 9357 9415 9417 9421 9428 9429 9430 9431 9444 9451 9459 9464 9469 9475 9478 9481 9483 9486 9488 9490 9491 9492 9493 9495 9496 9497 9500 9502 9503 9506 9508 9509 9512 9514 9515 9517 9524 9533 9535 9538 9554 9562 9567 9568 9572 9583 9585 9588 9592 9595 9598 9602 9604 9605 9611 9612 9624 9634 9641 9646 9649 9651 9652 9655 9657 9658 9662 9663 9667 9672 9673 9678 9680 9681 9686 9688 9689 9695 9700 9705 9710 9713 9719 9721 9725 9728 9732 9734 9736 9739 9742 9745 9751 9753 9759 9760 9763 9772 9778 9787 9790 9795 9798 9801 9804 9805 9807 9809 9810 9811 9813 9816 9820 9823 9831 9835 9838 9842 9845 9847 9849 9854 9857 9858 9864 9884 9886 9890 9891 9894 9897 9901 9902 9912 9917 9920 9923 9934 9935 CONSW 0370 13048 13085 13168 13169 13391 13393 CONTP 039A 8740 8737 CONVR 088B 3271 3257 3259 COP 02C5 8161 8151 COTAT 0427 8891 8756 COTP2 03C1 8776 8761 COUNT 03BC 3977 3750 3843 CPAIR 0F32 9292 9795 9798 9801 9813 9864 9902 9934 CRDND 0329 11943 11876 CTSYM 0209 185 186 2584 2586 2587 2588 3078 3087 3853 6186 CV053 02FC 9097 CV055 029E 8999 CV100 02DC 9063 CV110 02E3 9070 9061 CVADR 01FF 176 177 437 468 469 473 2217 5626 5804 12070 12663 12664 12665 12666 14727 D 0F3E 9304 9634 9655 9823 D0008 07DA 3099 3130 D0021 096B 3468 3449 D0060 07D9 3098 3165 D0318 096C 3469 3453 D10 13EB 14648 14530 14571 DBLNK 030F 15156 15103 15163 DC 0417 7405 7077 DC2ND 041F 7411 7406 DCBUF 0AD4 6528 3237 3333 3433 DCCN 0436 7431 7412 7417 7421 DCOM 03B2 3965 3822 3849 3850 3927 3967 DCOMA 0866 3232 3168 DCOMM 0001 162 3233 3966 DCTST 06DB 13616 13385 DECA 02B3 7560 7556 DECB 02DD 7600 7594 DECBF 0300 7633 7578 7597 7599 7600 7609 7615 7656 DECCN 02FB 7628 7549 7557 7572 7583 7589 7653 DECIN 02A9 7553 7544 DECOD 12FF 14389 14385 DECOI 12F8 14381 13793 DEEP 07DF 13786 12011 13976 13980 14742 DEFSK 045E 10589 10690 12288 12289 12292 13339 DEFSW 0303 10770 10718 10722 10753 10814 10817 10846 10857 10876 10902 DEFXP 02C8 7583 7559 7561 DELTA 0350 12505 12388 12389 12401 12425 DEOUT 02DE 7604 7579 DEPTH 07B0 13757 12029 12077 13975 14567 14741 DFBUF 0C16 6530 565 2776 2879 DFOUT 0883 6516 4637 4644 4651 4671 4677 4689 4707 6700 6967 7251 7394 7428 7612 7618 7662 8170 8181 8257 8269 8290 8297 8303 8309 8328 8375 8413 8419 8610 9425 DFXR1 022D 220 221 998 1011 1013 1016 1017 1042 1089 1452 1612 1698 2810 2824 5976 5996 DFXR2 022E 221 222 1019 1087 1454 2806 2817 5977 5997 DFXR3 022F 222 223 1021 5978 5982 5986 5998 DHPTR 022B 218 219 996 999 1001 1003 1014 1090 1092 1449 1611 2808 5971 6704 DISK1 0275 329 305 378 385 441 472 484 508 522 1062 1230 1383 1469 1486 1493 1511 1550 1558 1671 1714 1723 2581 2628 3093 3126 3148 3159 3173 3443 3740 3745 3777 3782 3825 3841 3934 3942 4539 4544 5553 5659 5699 6042 6153 6201 6234 6340 6390 6434 6460 6471 6825 6846 7696 7708 10273 10331 10347 10421 10614 11281 11344 12021 12319 12424 12431 12454 12669 13484 13492 13498 13823 13950 14195 14200 14718 14898 14903 15382 15510 15514 15518 15524 15530 15900 16093 16410 16541 DISP 02FD 9098 9026 DISP1 0450 12374 12405 12416 12420 12422 12426 12428 12444 12445 12446 12448 12449 12451 12466 12468 12477 12478 DIV 0343 7957 7939 7974 DIV00 09F4 6230 5149 DIV03 02B1 15083 15078 DIV09 029F 15070 15067 DIV10 02A1 15071 15074 DIV15 02C2 15097 15119 DIV20 02C3 15098 15058 15071 DIV35 02E8 15126 15120 DIV40 02EF 15131 15105 15125 DIV46 02F2 15134 15167 DIV48 02D0 15108 15059 DIV80 0308 15148 15052 15122 15128 DIV81 0309 15149 15056 15138 DIV82 030A 15150 15066 15114 DIV83 030B 15151 15057 15106 DIV84 030C 15152 15100 15118 15132 DIV86 030D 15153 15117 15123 15126 DIV97 0317 15161 15165 DIV99 0339 15171 15046 DIVC 034F 7968 7966 DIVL 0346 7960 7973 DIVR1 0310 15157 15102 DIVSL 031F 15168 15101 DIVSN 0282 15051 6224 15046 DK0UT 07F7 13819 13825 DKOUT 0282 10609 10615 DKRD0 0283 10610 10642 10745 DKRDC 028A 10618 10613 DKWRT 0635 13442 12404 13404 13472 DMEBC 070E 13661 13602 13609 13636 DMEND 02F7 8588 8604 8651 DMES 06D8 13610 13586 13612 DMESA 0293 8509 8503 DMESM 06BE 5431 8917 DMESQ 0454 8928 8925 DMK00 0291 8507 8512 DMK01 0292 8508 8524 DMK02 0315 8613 8526 8620 8626 8627 DMK03 0316 8614 8530 DMK04 0318 8616 8551 8660 DMK05 0319 8617 8558 8560 8655 8657 DMK06 031A 8618 8586 8689 8720 DMK07 031B 8619 8606 8691 DMK08 0315 8620 8702 8710 8718 DMK09 031C 8621 8711 DMK10 031D 8622 8715 8717 DMK12 031E 8623 8555 8589 DMK13 031F 8624 8649 DMK14 0320 8625 8670 DMK15 0315 8626 8528 DMKE2 0290 8506 8509 DMKTB 038D 8726 8663 DMMAX 0459 8933 8934 DMPRQ 03B4 3968 3904 3907 3970 4016 DMS01 02C5 8550 8525 8527 8531 DMS02 02CD 8557 8602 DMS03 033A 8652 8559 8624 8708 8716 8722 DMS04 02DE 8569 8566 DMS05 02E5 8575 8570 DMS06 02F1 8584 8574 DMS07 0312 8610 8581 DMS08 0302 8597 8564 8585 DMS09 0310 8608 8598 DMS10 02D1 8560 8656 8692 8700 DMS11 02EE 8582 8611 DMS12 032C 8640 8601 8647 8648 8653 8698 DMS13 0309 8603 8650 8695 DMS14 037D 8709 8705 DMS15 0374 8701 8661 DMS16 0355 8675 8667 DMS17 0347 8663 8669 DMS18 02D3 8562 8607 8609 DMS19 0335 8648 8646 DMS20 0339 8651 8674 DMS21 036B 8693 8676 8679 DMS22 0365 8689 8672 DMS23 0361 8685 8682 DMS24 0368 8691 8678 8688 8697 DMS25 0436 8907 8596 DMS30 0317 8615 8511 8673 8908 DMS40 0452 8927 8909 8922 DMT01 0321 8628 8569 8573 8579 8603 DMT02 0322 8629 8521 8549 8565 DMT03 0323 8630 8561 8608 8658 8666 DMT04 0324 8631 8519 8572 8575 8578 8594 8921 DMT05 0325 8632 8522 8562 8597 8684 8706 8709 8714 8719 DMT06 0326 8633 8556 8584 8590 DMT07 0327 8634 8652 8704 8707 DMT08 0328 8635 8664 8685 8703 8713 DMT09 0329 8636 8553 8554 8605 8645 DMT10 032A 8637 8643 8644 DMTBI 032B 8638 8599 DN888 03D7 8397 8130 DOSCN 02EC 11884 11871 DQFLG 02B8 15090 15095 DRTRN 030E 15155 15145 DS2ND 0315 8236 8231 DSA2 0323 8247 8241 DSA88 030E 8230 8126 DSADR 0232 225 226 1063 1065 1474 1673 1691 2800 2918 3733 3736 3747 3768 3775 3780 15537 15539 15886 15892 15902 15904 15907 16399 DSBUF 022A 217 218 2804 2818 4409 4433 4443 DSFWR 0234 227 228 1061 2796 2798 3703 3738 3823 3827 15899 DTHDR 0927 6518 1610 1615 5975 DVADR 09EE 6224 6237 DVCDE 02DA 8567 8552 8600 8677 8680 DVER 0313 15159 15060 15064 15111 15158 DVSC1 02A9 15078 15070 15081 DVSCN 02A6 15075 15069 15073 15082 DVSKY 09F0 6228 6231 15143 DVSTR 09F0 6227 4857 6235 DWARN 02B9 15091 15092 15113 DZ000 00F2 89 311 EBBF 03D6 8395 8355 8356 8362 8383 EBC 06D8 13612 13582 13588 13590 13592 EBC88 038E 8335 8129 EBCA 085B 3220 3260 EBCC 03CE 8388 8336 8346 8390 EBCF0 03C4 3986 3998 EBCM 085A 3219 3251 EBCN 03D2 8391 8338 8353 8357 8384 8389 EBCR 0392 8338 8351 EBCSL 0968 3465 3403 EBCSW 06BF 13581 EBDL 03A5 8353 8347 EBHB 02D6 9057 9049 EBHC 02FA 9095 9055 9059 EBHCN 02FB 9096 9036 EBHT 02F0 9085 9056 9098 EBHXT 02DA 9060 9031 9038 9074 9079 9102 EBLP 039D 8345 8350 EBPCK 03B5 8366 8380 EBSLH 02EA 9078 9045 EBX 0398 8342 8386 EBXR2 03B2 8364 8359 EBXTA 02E6 9073 9041 ELB10 0310 12435 12421 ELB20 0312 12438 12423 12429 12430 ELEVN 07DC 3101 3128 ELI10 0409 12684 12673 ELI21 0408 12683 12675 ELIB 02D2 12385 12814 ELIB1 03E3 12654 14775 ELIB6 03EF 12663 ELIB7 0406 12678 12617 ELIB8 0404 12677 12671 ELIB9 0402 12676 12674 ELIBT 02CD 12372 12418 12427 ELMNT 0242 237 238 5171 5174 5182 5255 5261 5268 5298 15127 EM000 0AD2 1809 1803 1837 1840 2122 EM002 0B00 1851 1838 EM003 0AFF 1850 1835 EM005 0ADA 1816 1857 1873 EM008 0AE3 1824 1818 EM010 0AEA 1830 1831 EM013 0B02 1853 1843 EM014 0B04 1855 1805 1841 EM015 0B08 1857 1817 EM016 0B09 1858 1815 1816 1819 1833 1834 EM020 0B0A 1859 1827 EM030 0B0B 1860 1857 EM035 0B16 1873 1820 1821 1825 EM040 0B17 1874 1860 EM050 0B32 1904 1861 1874 EM060 0B4C 1931 1862 1904 EM070 0B5C 1950 1863 1931 EM080 0B70 1971 1864 1950 EM090 0B72 1974 1865 1971 EM100 0B80 1989 1866 1974 EM110 0B94 2009 1867 1989 EM120 0BAE 2035 1868 2009 EM130 0BCA 2063 1869 2035 EM140 0BE4 2089 1870 2063 EM150 0C00 2117 2089 EM900 0C00 2122 1803 EM999 0AD2 1805 EN1AA 0354 10867 10862 END1 040A 4060 4029 END10 0632 13437 13584 END2 0416 4072 4061 END3 0428 4090 4073 END30 0332 11948 12102 END4 0439 4107 4091 END5 0452 4132 4109 ENDAD 0230 223 224 1043 1072 2812 2823 ENDM 0625 13420 13422 13576 ENDM1 0629 13424 13438 ENDM6 0630 13431 12823 12830 13421 ENDQ 03F4 12116 12110 ENDST 0217 199 200 555 6191 6208 6447 ENTCT 0227 214 215 410 1462 4265 4268 4410 4413 4451 15565 ENTR1 07C7 13761 13766 ENTRE 0858 3217 3181 ENTRY 0295 10631 10673 ENTSW 0220 207 208 1434 1617 4269 4273 4282 4315 4345 4470 4606 ENXT0 02F0 11353 11270 11297 11301 11309 11406 11430 11436 EPRSW 0224 211 212 4361 4366 EQ 0316 11924 11847 11848 ERADD 070E 5516 1659 5525 6768 7267 8924 11387 12127 15094 ERCNT 0216 198 199 1371 1659 3075 3884 5506 5508 5509 5515 6768 7267 8924 11387 11623 12127 12183 15094 ERCT1 092D 15746 15459 16100 ERCT2 10CB 16346 16101 16364 ERFLG 0701 6508 1638 2514 4259 4290 4428 4487 4528 4623 4662 4717 4749 6714 6748 6766 6782 6858 7158 7178 7182 7228 7330 7354 7450 7672 7994 8339 8587 8690 8721 9453 10818 11405 11486 11538 11642 11650 11881 12170 14254 14298 15160 ERPTR 045A 4865 3910 6794 15377 15384 16405 16412 ERR1A 02E8 11880 11836 11840 11858 11865 11889 11898 12043 ERR1B 02E9 11881 12008 ERROR 093E 3429 3352 ERSW 0351 12506 12489 EX2ND 037F 8322 8317 EXCN 038C 8333 8323 8325 EXIT2 0315 11920 11882 11997 EXIT8 0378 8316 8128 EXP01 1309 14396 14413 14791 EXP02 1313 14405 14704 EXP03 131B 14412 14705 EXP13 1323 14422 14419 EXP23 1327 14425 14421 EXT2A 033C 11962 11920 EXTRA 0859 3218 3189 3419 3426 3451 F 03E0 7721 7554 7555 7558 7560 7564 7566 7574 7576 7584 7585 7591 7645 7648 7651 7655 7657 7675 7676 7677 7678 7680 F0UND 02D0 11860 11853 FA 136E 14504 14597 FB 136E 14510 14598 FB00 1375 14514 14511 FB01 1385 14530 14536 FB02 138D 14538 14526 FB03 1391 14540 14548 FBMSK 13EA 14647 14521 FBXT 139B 14549 14525 FBXT1 139D 14551 14515 14541 14552 FC 13A7 14567 14599 FCER 0311 7181 7171 FD 13EE 14655 14600 FD050 1400 14666 14685 FD060 1402 14667 14670 FDNX1 1427 14703 14698 FDNXT 1419 14694 13760 14757 FE 142D 14710 14601 FE00 1430 14713 FE000 143D 14725 12688 FE01 143D 14726 FE03 040C 14291 13978 FEND 13A3 14560 14543 14577 FENXT 1451 14740 14711 FERR1 052B 6501 2493 2501 4386 4509 4519 4737 4742 8207 FERR2 052C 6502 2495 2503 4388 4511 4521 4739 4744 FF 1474 14780 14425 14602 FF3 1483 14790 14781 FFTST 0305 7172 7348 FILBF 0800 3134 3129 3136 FILE 0203 179 180 1397 4611 FIVCH 070F 13662 12907 FIX 0312 462 456 FL000 036C 7993 7823 7840 7950 7952 FL010 036F 7995 7915 FL1 029E 7813 7806 7808 FL2 02D3 7859 7852 7854 7870 FL3 02DA 7865 7846 7877 FL4 02DE 7868 7849 7858 7893 7900 FLAG 13B6 14587 14485 FLAGK 13BA 14593 14587 FLB2 03DC 7716 7558 7585 7677 FLBCH 03DF 7719 7576 7584 7657 7675 FLBMN 03E0 7720 7564 7566 7574 7591 7651 7655 7676 7721 FLBSC 02E2 7874 7832 FLBSW 03DD 7717 7560 7648 7678 FLCN 02E9 7881 7802 7805 7807 7809 7811 7817 7829 7831 7833 7835 7839 7845 7848 7851 7853 7855 7857 7862 7866 7874 7876 7932 7937 7946 7951 7962 7965 7967 7970 7981 7983 7993 FLDX 13D3 14623 14607 FLE10 03DB 7715 8028 FLEBF 02E8 7880 7864 7868 7893 7900 FLERR 032B 7671 7586 7649 FLESC 02C1 7845 7830 7878 FLFEX 032E 7943 7936 FLFIN 02FF 7906 7841 FLFNL 030E 7916 7921 7935 7940 FLFNX 0316 7922 7927 FLGBT 0419 14304 14282 FLGCO 0706 5510 1661 6770 7269 8926 11389 12129 15096 15425 FLIP1 03C1 7689 7553 7643 7711 FLIP2 03D0 7704 7698 FLLP 02A0 7815 7824 7838 FLLP2 02A5 7819 7803 7836 FLNIS 03E4 7723 7555 7680 FLONE 03FC 7726 7519 FLOTD 0284 7794 7792 FLSGN 03DE 7718 FLSSC 02AF 7829 7818 7863 FLZER 032E 7674 7590 FOUND 037F 553 548 FRMAT 01FE 175 176 FXR2 139C 14550 14514 14560 14820 14877 G1 0F0B 9252 9488 9651 G1010 0FE7 9474 10016 G1020 0FEF 9480 9476 G1030 0FFF 9492 9504 9510 9516 G1040 1007 9499 9489 G1050 100E 9505 9501 G1060 1015 9511 9507 G1070 101C 9517 9494 9498 G1080 1020 9521 9513 G1090 1021 9522 9520 G1110 1026 9526 9523 9556 9566 9574 9936 G1150 1045 9553 10001 G1180 104A 9560 9998 G12 0F12 9259 9809 G1230 105D 9578 10022 G1240 105F 9582 10019 G1250 1076 9601 9596 G1260 107A 9604 9600 G127 0F15 9262 9524 G1270 1086 9615 9696 G1320 1088 9616 9593 G1322 108A 9618 9623 G1323 1092 9624 9620 G1325 1096 9630 9625 9664 9752 G1340 10B2 9654 9650 G1350 10B9 9660 9647 9656 G1360 10BC 9662 9637 9644 G1370 10BE 9664 9653 9659 9661 G1372 10C0 9667 9626 G1380 10D4 9685 9679 G1390 10DC 9692 9684 G1400 10E1 9700 10010 G1410 10E3 9705 10004 G1420 10E4 9709 10007 G1430 10EC 9719 9701 10013 G1440 10ED 9720 9711 G1450 10F1 9723 9715 G1460 10FB 9731 9726 G1470 10FF 9734 9730 G1480 1105 9739 9735 G1490 110C 9744 9740 G15 0F13 9260 9554 G1500 1111 9747 9743 G1510 1114 9750 9738 G1530 111D 9756 9746 9749 G1560 112F 9769 9764 G1565 1130 9770 9766 G1570 1131 9771 9768 G1K 0F16 9263 9351 G2 0F0C 9253 9500 9657 G3 0F0D 9254 9662 G3230 1135 9777 10025 G3232 1138 9783 10028 G3234 113A 9784 9779 G3235 1149 9794 9791 G3236 1153 9801 9785 G3238 115A 9807 9802 G3240 115E 9811 9806 G3241 1166 9817 9821 G3242 1168 9819 9814 G3245 116B 9822 9812 9818 G3250 1174 9830 9824 G3280 117A 9834 9829 9832 G3290 1182 9841 9836 G3300 1188 9845 9840 9843 G3400 118A 9847 G3405 118B 9848 9855 G3442 1197 9856 9850 G3443 11A5 9870 9794 9863 9906 9908 G3444 11AD 9876 9881 G3446 11B5 9883 9873 G3447 11BD 9890 9290 G3452 11CF 9905 9895 9898 G3455 11D3 9908 G3456 11D5 9912 9866 G3457 11DF 9919 9865 G3458 11EF 9931 9924 9929 G3459 11F0 9932 G3470 11F2 9933 9859 9862 G3480 11F5 9936 G3490 11F7 9937 9907 9931 9943 G4 0F0E 9255 9506 9804 G4000 0ECC 9197 1721 1731 12686 15288 15990 G4010 0ED2 9200 9207 G4040 0EDD 9209 9204 G4050 0EEE 9221 9218 G4060 0EF1 9223 9331 9333 G4070 0EF5 9228 9212 9216 G4080 0EFF 9238 9234 G4082 0F01 9240 9237 G4085 0F07 9245 9243 G4087 0F09 9249 9209 G4090 0FA8 9411 9328 9392 9399 9435 9441 9526 9608 9676 9757 9918 G4095 0FB0 9419 9446 G4100 0FBB 9427 9412 G4150 0FC7 9439 9332 9405 9440 G4160 0FCA 9442 G4180 0FCF 9450 9369 9455 9458 9463 9468 9521 9548 9767 G4190 0FD1 9452 9460 9465 9470 G4195 0FD4 9454 9452 G4200 0FD8 9456 9326 9457 G4220 0FDD 9461 9316 9319 9462 9479 9482 9584 9603 9687 9722 9733 9833 9844 G4230 0FE2 9466 9467 9660 G4250 0F44 9313 9320 9327 9353 9553 9560 G4260 0F4F 9324 9950 9953 9956 9959 9962 9965 9968 9971 G4265 0F5A 9332 9615 9773 G4270 0F5B 9333 9396 G4280 0F5C 9337 9992 9995 G4285 0F63 9347 9980 9983 9986 9989 G4290 0F64 9351 9974 9977 G4295 0F66 9353 9343 G4300 0F67 9354 G4305 0F69 9356 9391 G4310 0F77 9365 9359 G4320 0F7A 9367 9361 G4330 0F7D 9369 9363 9366 G4340 0F80 9372 9364 9368 G4345 0F8D 9383 9373 9379 G4348 0F8E 9384 9382 G4350 0F96 9390 9401 G4360 0F98 9392 9389 G4362 0F99 9393 9406 G4363 0F9B 9396 9404 G4365 0F9C 9397 9387 G4367 0FA6 9405 9398 G4400 102B 9532 9525 9549 9555 9563 9848 G4410 103C 9544 9541 G4420 1041 9548 9537 9539 G4430 1043 9549 9547 G4990 127E 10029 9199 G6 0F0F 9256 9847 G7 0F10 9257 9512 9854 G8 0F11 9258 9421 9820 G8K 0F17 9264 9562 GB0 0F18 9265 9429 9759 9912 GB2 0F19 9266 9611 9672 9688 GB3 0F1A 9267 9567 9604 9680 GBCE 0F36 9296 9578 9592 9695 GBGI 0F42 9308 9700 9705 9734 9772 GE 031B 11929 GEN 0250 14429 14513 14528 GENGO 07C6 13760 13790 GENNM 0C40 13781 14533 14539 GENSW 07AE 13755 13750 14510 14512 GETER 079C 6512 419 2933 3115 3430 3926 13508 13931 14263 GETS2 04D0 6498 6625 8986 11257 11789 12306 13920 GETS5 04C1 6492 424 1356 4217 7061 7525 8104 8499 8979 11250 11782 12299 13913 GETS6 04C3 6493 1357 4218 6619 7526 8105 8500 8980 11251 11783 12300 13914 GETS7 04C5 6494 1358 4219 6620 7063 8106 8501 8981 11252 11784 12301 13915 GETS8 04CA 6495 1359 4220 6621 7064 7528 8502 8982 11253 11785 12302 13916 GIGIC 0F43 9309 9719 9739 9763 GNRT1 057A 6503 4381 4393 8209 8217 8219 GP63 0F3C 9302 9337 GRAPH 0ECA 6488 504 607 9190 GT 0318 11926 GTHDG 0723 6509 2214 3149 3321 4023 6847 6905 6928 GTS00 02B0 10673 10637 10863 11019 GTS12 04CE 6497 4222 6623 7066 7530 8109 8504 8984 11255 11787 12304 13918 GTS13 04C7 6529 1362 4223 6624 7067 7531 8110 8505 8985 11256 11788 12305 13919 GTS1A 03DF 11017 10999 11000 11001 GTS1B 03DB 11014 10995 10996 10997 10998 GTS8A 04CC 6496 1360 4221 6622 7065 7529 8108 8983 11254 11786 12303 13917 GTSLD 03E2 11019 11016 H0008 0967 3464 3422 H0010 03C2 8778 8749 H0013 037C 1591 1700 H0020 096D 3470 3550 H0032 037D 1592 1412 H005B 09DC 3589 3546 3548 H007B 09F2 3610 3603 H007C 09F1 3609 3598 H007D 09DE 3591 3556 3596 H007E 09DD 3590 3552 3601 H007F 09DB 3588 3545 H00C0 02FE 9099 9032 9035 H0140 03B2 3967 3737 H1AC0 037A 2937 2913 2914 H2000 0370 1579 1461 H5000 0405 13179 13161 H7003 078F 5673 H7400 0385 7273 7259 HC000 03AB 3957 3752 3753 HC4C3 06E1 13621 13617 HDCNT 0366 1569 1552 HDGBF 0AA7 6523 1568 3108 3138 5533 6827 HDLLR 02EC 9081 9039 9042 9073 HDLTH 0226 213 214 369 1421 1427 1431 1447 4271 4299 4477 HDR7 03CF 7702 7704 HDR7A 0338 7685 7521 7690 HDRP2 03FA 4550 4538 4543 HDRRD 03B0 3963 3705 3739 3776 3824 HDWRT 03AE 3961 3704 3744 3781 3803 3809 3840 3859 3899 3917 HFE00 028C 10620 10716 HFF 036C 13044 13065 HIEND 0218 200 201 528 532 537 3175 3240 3454 6055 6439 6451 15323 15343 16076 16083 16230 16452 HOOK1 041A 14305 14270 HOOK2 041B 14306 14284 HSLSH 02EE 9083 9043 9046 9078 HTYPE 0237 229 230 368 1395 2769 4274 4276 4300 4302 4321 4328 4330 4355 4357 4363 4364 4370 4371 4478 4480 15556 HXF0 13EC 14649 14532 14568 HXFA 1329 14430 14484 HXFF 132A 14431 14454 I 0F1C 9269 9710 I1134 01F4 169 170 453 I1442 01F2 168 169 3154 I2501 01F0 167 168 475 IBRXR 040F 15568 15549 IBT 0267 282 421 ICD25 0207 183 184 478 2553 ID 02AE 7826 7795 IFMAC 02A2 10659 10645 10651 IINST 03D6 7350 7176 IKBRD 01F6 170 171 428 457 ILSSW 0222 209 210 1400 1403 1435 1618 4263 4284 4313 4346 4473 4475 4608 IN 155D 14984 2837 14988 INCRM 0F39 9299 9342 9358 9372 9386 IND 0F38 9298 9378 9388 9390 9394 9397 9778 9783 9787 9811 9935 INDBT 030C 8228 8135 8143 8154 8162 8171 8237 8239 8248 8260 INDCT 0418 14303 14275 14277 INIM1 07E3 13793 INIMC 07E0 13790 13761 INREQ 03DC 4015 3981 INSBF 039E 7297 7207 7254 INSBL 0717 13668 13666 INST2 02FA 7164 7122 7126 INST3 035B 7240 7335 INSTA 0290 7069 7062 INSX1 0374 7261 7272 INSXT 0370 7258 7188 7400 7409 INT1 098C 6521 1480 INT2 098D 6522 1513 15532 INTAD 03C0 3981 3819 INTBF 0062 608 1244 6221 6359 6470 INTL1 021E 206 207 1419 1425 1458 2487 15561 INTYP 0566 15049 15140 INVL 05EB 13367 13357 13397 INVL3 03D3 14238 14227 IOBF1 0A01 6524 591 609 3234 IOBF2 0A53 6525 592 611 3235 IPTKB 0206 182 183 462 2535 2542 2555 2839 3717 12670 IRDMD 0375 15433 15373 ISSNO 022C 219 220 1406 1410 4298 4483 ISSSW 0221 208 209 1401 1436 1619 3921 4262 4283 4286 4314 4344 4407 4471 4607 ITEMP 0386 7274 7194 7242 7372 7384 7391 K19 02E5 422 388 K7FFF 02F9 7625 7595 KF0 02F8 7624 7605 KFIVE 0856 3215 3185 KS 02FA 7626 7671 L 0F1D 9270 9354 9483 9585 9736 9845 L6 036B 13043 13118 L7 13B4 14582 14573 L8DEC 13B3 14581 14570 LAB1 09E7 3600 3597 LAB2 09EE 3605 3602 LAB3 09EC 3604 3606 LABRL 021D 205 206 4918 6180 6778 11545 11569 LABVL 021C 204 205 4920 5604 6184 6692 6717 6723 6761 7542 9914 9925 11542 11565 11603 LAST 07A7 6513 6842 6883 6925 LBRSW 0223 210 211 4317 4347 4472 4609 LC9 13B5 14583 14574 LDKON 03C3 8779 8770 LDKOP 020A 186 187 1528 1675 2201 2558 5652 5662 8999 13928 LDLBL 073A 6510 4546 6783 7261 7668 8244 8342 8401 8907 9223 9527 9792 9799 9889 10819 11546 11643 LDXRS 025F 328 577 1093 1171 1202 1212 1439 1478 1540 1606 1630 1645 1672 2222 2231 2646 2864 2926 3191 3239 3308 3413 3436 4229 4306 4441 4711 4948 5011 5512 5592 5613 5661 5829 5868 5948 5999 6048 6159 6286 6331 6668 6694 6759 6795 6841 6973 7201 7333 7377 7416 7604 7646 7681 7953 8222 8360 8382 8591 9115 9197 9228 9413 9442 9591 9671 9871 9882 9919 10171 10202 10357 10468 10674 10831 10847 10877 11074 11424 12067 12089 12135 12312 12406 12479 12689 13026 13776 14661 14686 15531 15672 LE 031A 11928 LEFT 0322 11936 11846 11901 LETTR 09CE 3571 3555 LI2ND 03E9 7368 7363 LI3RD 0405 7391 7256 LIBF8 02A5 8134 8124 LIEXT 0412 7400 7403 LINCK 03CA 7340 7083 7117 LINCT 0855 3214 3186 3206 3417 3450 LINK2 034F 8285 8282 LINK8 0344 8275 8127 LINST 03E2 7362 7174 7179 7349 7355 7437 7448 7451 LK2ND 034B 8281 8276 LNKCN 0375 8314 8286 8288 8293 8295 LOCSW 0318 14043 14008 14046 14049 LOEND 0219 201 202 264 526 2590 3061 3176 6052 6166 6172 6187 6189 6211 6436 6442 6449 15324 15336 15342 15344 15347 15352 16077 16232 16431 16449 16482 16489 16501 16503 LOGC0 0259 261 262 10752 LOOP 02D4 3774 3786 LOOP1 0873 3244 3306 LOOP2 03CA 3996 4002 LPAR 035F 14110 14020 14120 LPAR1 031F 11933 11835 LPARN 0302 14019 14111 14136 LPARX 0368 14125 14119 LPASW 06C7 13589 13004 13596 13600 13637 LPK1 0365 14119 14110 LSTOP 020B 187 188 1472 1649 2528 2529 2751 2753 2898 2900 2912 3502 5643 6279 6818 6882 6923 9885 9888 9892 9928 10465 10466 LT 0319 11927 LTTR3 09D5 3579 M1000 0282 10608 10596 M15A 035E 13022 M1700 034A 10856 M1701 034D 10860 10940 10994 12640 M1800 0446 11133 10599 10860 11017 M1810 044A 11135 11014 M1820 044E 11141 10670 M1830 0452 11147 M1900 0355 10868 10889 M1901 0356 10869 10755 10815 10896 10908 11029 M1902 0357 10870 10779 10886 M1903 0358 10871 10892 M1904 03B5 10974 10936 M1905 03B6 10975 11118 M1906 03B7 10976 11034 M1907 0444 11131 11116 M1AA0 03FB 11630 10867 M1AA1 0423 11655 11633 M1AA2 0419 11649 11635 M1AA3 040F 11643 11648 M1AA4 0401 11634 11631 M1AA5 0404 11636 11654 M1AA6 0413 11645 11639 M1AAB 043C 11681 11656 M1AAP 031D 11417 11433 11439 M2000 0282 12285 M2010 0292 12310 M2020 02C0 12360 M2030 02C5 12364 12378 M2800 0410 12690 12285 12445 M2810 0414 12693 12623 M2820 0418 12695 12316 M2900 02CD 12373 12310 M2901 02CE 12376 12318 M2902 0971 3475 3540 M2903 02D1 12379 12366 M2904 0347 12498 12517 M2905 034A 12501 12453 12668 M2906 0346 12497 12390 M2907 030F 12434 12447 12677 M2908 034C 12503 12450 12452 12465 12467 M2909 040C 12688 12657 M2910 040E 12689 12655 M2956 0352 12508 12514 12547 M2990 0386 12566 12627 M2991 041C 12697 12472 M2992 040B 12686 12477 M2996 043C 12713 12460 12611 M29O2 02D0 12378 12360 M2A00 0282 12799 M2A70 040B 13186 13195 M2A80 0407 13181 12836 13081 13094 13105 13166 13222 13671 M2A90 028A 12816 12799 12807 12818 M2B02 0683 13512 13453 13461 M2B03 0686 13515 13491 13497 M2B04 0688 13517 13483 M2B10 06BD 13579 12835 13082 13162 13167 13221 M2B22 0684 13513 13454 M2BLK 068F 13525 13541 13664 M2C01 05E5 13362 12942 13220 13221 13223 13380 13402 13406 M2CS0 05E0 13358 13368 M2CS1 05E2 13359 13365 M2CSN 05DE 13356 12525 12857 12976 13340 13358 M2PL1 06C9 13591 13656 M2PL2 0311 12436 12407 M2PLS 0707 13656 13029 M3900 07AD 13751 M3901 07DC 13783 13822 M3B## 136C 14498 14471 M3B$$ 136B 14497 14469 M3B'' 136D 14499 14473 M3B0 12F6 14375 14370 14372 M3B01 13E5 14641 14608 14612 14624 M3B05 140A 14678 14683 M3B10 1411 14684 14680 M3BAS 1467 14761 14734 M3BBC 1407 14675 14664 14687 M3BZ 1573 14995 607 14370 M3C01 03CC 14232 M3CS0 03C7 14228 14239 M3CS1 03C9 14229 14235 M3CSN 03C4 14225 14014 14228 M3Z00 0430 14309 13903 MAC01 02F7 10759 10767 MAC02 02FF 10765 10762 MAC03 0309 10782 MAC05 030E 10786 10785 MAC06 031A 10800 10787 MAC08 02B6 10682 10801 MAC11 031C 10802 10789 MAC12 03AC 10964 10802 MAC1A 0296 11272 11261 MAC1B 029A 11801 11795 MAC22 0304 10778 10756 10768 MACBK 1417 14689 14679 14736 MACCT 07B1 13758 12013 13974 13979 14657 14694 14710 14740 14784 MACEX 07AF 13756 11824 11983 12408 13657 13945 13997 MACN0 035B 10877 10795 MACN1 0360 10882 10852 MACNE 0359 10875 10993 MACPL 1418 14690 14668 MACRO 02EE 10752 10625 MACS0 0344 10847 10794 MACSW 041F 11100 10792 11025 MACTB 0C18 11954 12014 12018 12022 13983 13985 14743 14785 14787 MACXT 0289 12814 12805 MAFBR 0804 5830 MASK1 0F27 9280 9598 MASK2 0F28 9281 9508 9728 MASK3 0F29 9282 9496 9713 9838 MASK4 0F2A 9283 9816 MASK5 0F2B 9284 9340 9572 9807 9901 MASK6 0F2C 9285 9490 MASK7 0F2D 9286 9502 MASK8 0F2E 9287 9514 MASM 0477 4926 MC0P0 038D 10929 11037 MC123 0347 13004 12998 MC1Z0 0457 11151 10596 MC2AZ 0443 13241 12797 MC2BZ 0735 13678 13340 MCAR 03E2 7722 MCC01 0425 11095 11109 11113 MCCLR 029E 12325 12327 MCCS0 0420 11091 MCCS1 0422 11092 11098 MCCS3 0429 11099 MCCSN 041F 11090 10920 11091 11100 MCDEF 0258 260 261 10644 10658 10782 12631 12634 MCEXP 07C8 13765 13946 13953 MCGEN 0255 257 258 1504 1674 1692 2916 15891 16398 16406 16411 MCGO 029C 12842 MCGO1 0293 12831 13660 MCGO2 0297 12834 13652 MCGOS 0291 12828 12566 MCHA 031E 12962 12847 12866 12876 12892 12926 12973 13000 13054 13075 13078 13116 13120 13154 13216 13378 13384 13394 13639 13653 13665 MCHSK 0419 13204 13144 MCHSL 041C 13206 MCHX 13E9 14646 14391 14400 14408 14445 14481 14520 14614 14696 14872 14874 MCK 0370 12545 12555 MCK01 0375 12549 12563 MCKN1 040D 13193 MCKND 040C 13192 13107 13199 13426 MCNX 07D4 13774 MCNX1 07DE 13785 13770 MCNX2 07D3 13773 13988 MCOK 0367 12538 12519 12520 12545 12650 MCOM0 024A 246 247 MCOM1 024B 247 248 10883 10894 MCOM2 024C 248 249 10660 12349 MCOM3 024D 249 250 MCOM4 024E 250 251 10662 12353 12356 12491 13437 MCOM5 024F 251 252 1374 1659 3890 6768 7267 8924 11387 12127 15094 MCOM6 0250 252 253 1375 14429 MCOM7 0251 253 254 562 2781 2785 2920 3772 MCOM8 0252 254 255 10669 13028 13651 13768 MCOM9 0253 255 256 12335 12629 13984 14383 MCOP 037D 10914 10790 10802 MCOP0 0382 10919 10933 MCOP1 0385 10921 10919 MCOP2 038F 10931 10919 10938 MCOP3 0399 10945 MCOP4 0292 10629 10659 10661 10730 10734 10945 10965 10968 MCOP5 0398 10940 10922 10924 10926 10928 MCOP6 0393 10935 10930 MCOP7 02C4 13974 13772 MCP31 039D 10948 10957 MCPK 0378 12552 12541 MCPR1 03DD 13145 13240 MCPR2 03F3 13160 13165 MCPRE 03D8 13141 13147 MCPRX 03DF 13147 MCRED 0365 13026 MCS 02CD 12883 MCS00 02AF 12856 12868 12878 13655 MCS01 02B9 12865 12856 MCS04 02BE 12873 12851 MCS06 02DB 12904 12881 MCS08 0317 12956 12924 MCS1 035F 12526 12361 12367 12524 12584 12590 12604 12607 MCS10 0320 12968 12956 MCS11 032A 12975 13002 MCS12 0342 12998 12975 MCS15 0359 13018 13633 13645 MCS2 0365 12532 12524 12598 MCS2B 0701 13653 12886 MCS70 02F2 12922 12824 12905 13419 13611 13676 MCS71 02F9 12927 12959 MCS72 0302 12935 12948 MCS73 0311 12945 12951 MCS74 0312 12946 12938 MCS75 0315 12950 MCSK1 0441 13239 13204 13209 13213 13224 MCSK2 0439 13231 13072 13158 13414 13424 MCSK3 0436 13226 MCSRT 029C 12323 MCT1S 0377 10904 10901 MCTS1 02A6 12850 MCTS2 037A 10907 10903 MCTST 036A 10892 MDMER 0449 7449 7440 MEND 0691 13528 12392 13420 13425 13499 MEOC 06C1 13583 13014 13640 MESS1 03C1 3982 3897 MESS2 0343 3867 3857 MESS3 0342 3866 3801 MESS4 03C2 3983 3807 MESS5 03C3 3984 3915 MIRE2 0659 13476 13457 13463 13513 MIREQ 02F4 11358 11337 11340 11350 MLSR 028A 12818 12819 MLSTR 028A 12819 12834 12921 13027 13059 13061 13071 13196 13197 13232 13407 13413 MMACS 040A 12685 12633 MMASS 03CC 12631 12635 MMOV0 03E0 13148 13113 13115 13117 13119 MOD 0342 7218 7212 MOD67 08D4 3340 3336 3338 3411 3434 3461 MOP 06B8 13575 12909 12910 12914 12915 13616 MOPER 0322 10813 10838 MOPR1 031E 10810 10897 11030 MOVE 034A 3874 3878 MOVE1 08EA 3357 3461 MOVSK 02BA 10689 10667 MP1A0 0282 11244 11242 MP1AZ 045A 11684 11242 MP1B0 0282 11781 11773 MP1BZ 045A 12188 11773 MP200 0282 12299 12283 MP20Z 044B 12722 12283 MPACN 0348 12499 12561 MPAR1 042B 13217 MPARA 0426 13214 MPH01 0282 10599 MPY 0358 7978 7822 7934 7991 MPYL 035A 7980 7989 MSCAN 035C 12524 12548 MSCN 0387 12570 12379 12527 MSCN1 037E 12559 12368 12529 MSG1 03EB 4029 3982 MSG2 040B 4061 3867 MSG3 0417 4073 3866 MSG4 0429 4091 3983 MSG5 043B 4109 3984 MSMAC 043A 11680 11659 MST01 1488 14800 14815 MST02 148B 14802 14810 MST03 1496 14813 14808 MST04 1498 14816 14811 MSTNG 1487 14799 14816 14875 MULT 0913 11234 11500 11571 11592 MV010 153B 14934 14941 MV020 153F 14938 14923 MV030 154C 14951 14964 MV060 1553 14958 14934 MV070 1554 14959 14936 MV080 1556 14962 14952 MV090 1558 14964 14944 MVADD 02AE 10671 10682 MVALU 090C 3389 3401 MVBLK 1559 14965 14925 MVCNT 0214 196 197 1023 1044 1069 1683 MVRCD 0295 3721 3725 MVSK1 02BE 10693 10697 MVSKR 02AB 10668 10698 MZ300 07FE 13826 13750 N 0F1E 9271 9595 9678 9725 NAME1 08F5 3366 3379 NAMEP 01FA 172 173 3829 4455 NE 0317 11925 NEST 028E 12823 13578 13580 NEXT 0816 5845 5874 NINE 0369 1572 1448 1453 NLTBR 0374 15432 15385 NLVLS 0228 215 216 1414 2482 2486 2488 3923 NMCHK 03A2 12045 12049 12065 NMSCH 02C5 10708 10646 10746 NMSR0 02DB 10726 10717 NMSR1 02E7 10738 10710 10732 NMSR2 02EA 10744 10725 10969 NMSRH 02C8 10712 10740 NOMO2 034D 7228 7236 NOMOD 0349 7225 7206 7209 7214 7217 NOP1 051B 6500 4391 4400 8212 8221 NOPRT 0815 3151 3119 NORM1 0371 13051 12980 12982 12986 12988 12996 13007 13011 13013 13376 13387 13598 NORM2 034F 13010 12978 13005 NORM5 06CB 13596 12994 NORM6 06D0 13600 12992 NORM7 06CE 13598 13601 13605 NORMN 0371 13052 12863 12895 13016 13620 NOTZ 02C0 7572 7567 NRM21 0355 13014 13644 NTAMP 03FA 13166 13152 NX40 13DB 14630 14620 NX45 13E0 14636 14553 14619 NXFLD 13C2 14607 14466 O 0F1F 9272 OFCNT 021A 202 203 1378 2896 3063 3065 3756 3762 3766 6031 6132 6204 6445 6452 OFLAG 0314 11402 11422 11657 11660 11662 11664 11667 OFLOW 0200 177 178 574 579 1381 1382 1385 3441 6199 6200 6203 6389 6433 6458 10312 10339 10346 10419 OFSAD 0233 226 227 576 3062 3064 3446 3447 3452 6205 6207 6416 6418 6429 6432 6444 6446 ONE 0367 1570 1495 1499 1501 1542 1599 OPBUF 04AC 10590 10759 10964 11048 11658 OPCD1 0335 10832 OPCD2 0327 10818 10836 10841 OPCDR 0333 10831 10621 10780 10812 10858 10887 OPCN1 03B4 10973 10918 10931 10935 OPCNT 0245 241 242 1053 1373 4235 4944 4949 4950 4954 6629 6719 7074 7078 7081 7084 7087 7097 7118 7169 7190 7197 7210 7340 7386 7397 7537 8116 9240 9339 9341 9384 9385 9419 9422 9433 9518 9519 9545 9546 9571 9573 9590 9597 9599 9610 9669 9670 9693 9712 9714 9727 9729 9754 9755 9770 9803 9808 9815 9817 9819 9825 9828 9837 9839 9860 9899 9904 15554 OPECR 031D 10803 10811 10834 10839 OPER0 0296 10636 10652 10800 OPER1 028D 10621 10636 OPER2 0F30 9289 9849 9851 9857 OPER3 02BB 10691 10664 OPERN 02A7 10665 10684 OPERR 048C 6489 6665 7107 7623 8187 8507 9208 9249 OPLC1 0298 10642 10959 OPLCE 029D 10646 10723 10737 10788 OPN01 03B8 10981 11056 OPN02 03CC 10991 10757 10758 10764 OPN03 03D6 11002 10758 11050 OPN04 03D8 11004 11055 OPN05 03DB 11007 11055 11063 OPOK2 0494 6490 OPSW0 0457 11150 10890 11024 11069 OPVND 04A7 6491 1377 6647 7073 7536 8115 8513 9210 12457 12659 15558 ORGCT 0314 9120 9113 OSAVE 09EF 6225 6428 6430 OUT 155B 14983 14985 OVFLO 03AC 3959 3767 3790 3794 OVLAY 0280 330 309 1350 1364 1516 1578 1842 2189 2626 2641 2644 2734 2923 3506 3512 3699 4211 4535 4541 4551 4596 4854 4963 4964 4965 4966 4967 4968 4969 4970 4971 5008 5655 5663 5800 5810 5811 6230 6236 6614 7057 7518 7691 7699 7702 7707 7709 7781 8100 8494 8975 10114 10201 10475 10595 10631 10672 10824 10861 11015 11018 11241 11772 12282 12565 12612 12624 12796 12808 13902 14720 15045 15144 15236 15548 15568 15569 15580 15581 15894 15895 16401 16419 OVRAD 036F 1578 1517 1707 P0000 01E2 151 130 16727 P0005 01E7 155 151 P0130 0270 303 602 1560 1846 2647 2927 3509 3513 5012 5807 6239 10203 10676 10827 12619 12632 12810 14723 15147 15566 15583 15897 16417 P0140 0272 309 1518 1708 1844 2667 2924 3508 5006 5802 6238 10458 10588 10826 12614 14722 15146 15550 15582 15896 16414 P0150 0274 310 314 329 P0160 0278 312 313 P0170 027E 321 303 377 384 440 2627 6232 P0180 027F 322 P0190 0280 323 322 330 600 P0195 0282 325 374 517 P0200 0281 324 P0208 0284 332 381 382 P0209 0285 333 367 P0210 0286 335 153 P0230 028D 341 344 P0240 0297 353 357 P0260 02AF 372 375 P0265 02C5 392 389 396 P0266 02D4 404 400 407 P0320 02E8 426 413 P0330 02F0 431 427 P0334 0301 444 P0354 0314 463 P0360 0316 466 460 P0370 0319 468 464 P0380 0329 480 477 P0390 0348 504 505 513 533 P0392 0354 515 512 P0393 0358 518 P0397 035E 524 498 P0398 036E 537 531 P0399 0373 541 536 P0400 0375 543 551 P0410 0389 560 557 P0446 02E6 423 409 P0448 02E7 424 387 510 P0450 03BC 610 590 P0460 03B9 606 519 P0461 03BA 607 535 P0462 03BB 609 491 588 P0464 03BD 611 492 586 P0470 03BE 613 490 P0480 03BF 614 597 P0510 03C0 615 581 P0520 03C1 616 583 P0540 03C2 617 436 511 514 525 550 556 P0541 03C3 618 540 P0542 03C4 619 542 P0543 03C5 620 546 P0550 02E0 417 450 527 P0551 02E1 418 435 P0552 02E2 419 398 P0556 02E3 420 445 486 P0560 03C6 621 543 549 554 P0565 03C7 622 569 P0566 03C8 623 399 P0570 03C9 624 497 530 P0580 03CA 626 471 483 507 521 578 P0700 03E0 634 132 353 371 373 380 392 403 466 500 599 P0800 044C 688 130 P1000 0282 2195 2190 P1002 0293 2210 2197 2202 2232 2275 P1004 02A0 2222 2267 P1010 02A2 2223 2261 2265 2270 P1020 02A4 2224 2262 2272 P1030 02B1 2233 2230 2240 2253 P1032 02B9 2239 2237 P1040 02BB 2242 2235 P1042 02C5 2250 2246 P1044 02CE 2258 P1046 02D0 2259 2257 P1050 02D2 2261 2238 2244 P1060 02DD 2269 2618 P1070 02E4 2279 2269 P1080 02E5 2280 2271 P1090 02E6 2281 2236 2245 2264 2274 P10AA 0924 6517 1565 6519 P1100 02E7 2282 2263 2273 P1110 02E8 2283 2226 P1111 02E9 2284 2234 2255 P1120 02EA 2285 2224 2280 P1130 02F7 2299 2223 2279 P1132 02C4 2249 2207 P1140 0305 2320 2285 P1150 0316 2337 2286 P1160 0327 2354 2287 P1170 0333 2366 2288 P1180 033D 2376 2289 P1190 0346 2385 2290 P11AA 098A 6520 332 1567 6469 15520 P1200 034B 2390 2291 P1210 035B 2406 2292 P1220 036D 2424 2293 P1240 0373 2430 2294 P1242 037A 2437 2295 P1245 038A 2453 2296 P1246 0391 2460 2297 P1250 0397 2469 2436 P1270 039F 2479 2429 P1275 03AF 2489 2472 P1280 03B0 2491 2469 2479 2508 2597 2605 2609 P1284 03B8 2497 P1286 0396 2468 2483 2589 P1288 03C7 2513 2494 P1289 03C8 2514 2502 P1290 03C5 2508 2492 P1310 03C9 2515 2480 P1321 03CA 2516 2473 P1330 03CB 2520 2336 P1331 03CC 2521 2538 P1340 03CF 2527 2389 P1350 03D4 2535 2353 P1360 03D9 2542 2365 P1370 03DF 2550 2384 P1371 03E0 2551 2564 P1380 03EA 2563 2375 P1390 03EC 2568 2405 P1400 03EF 2573 2423 P1410 03F4 2577 2576 P1412 03F9 2581 2500 P1420 042A 2636 2574 P1440 0429 2635 2498 2504 P1450 0436 2652 2580 P1451 0437 2653 2575 P1452 0438 2654 2595 P1453 0439 2655 2612 P1460 0405 2595 2452 P1465 0410 2604 2601 P1470 0446 2662 2600 2602 P1500 0427 2633 2520 2527 2544 2550 P1510 0428 2634 2537 2563 2598 P1520 041B 2617 2489 2523 2531 2546 2559 2569 2591 P1530 041F 2624 2247 2256 2266 2475 2481 2484 2506 2536 2543 2554 2556 P1545 042B 2640 2459 2668 P1550 042F 2643 2198 2200 2227 P1552 0432 2645 2642 P1560 043A 2656 2192 2643 P1565 043E 2658 2578 P1567 0442 2660 2624 2640 P1569 0447 2666 2464 P1570 0457 2671 2190 P2000 0284 4602 4600 4620 P2001 0282 4217 4212 P2010 0290 4225 4227 P2012 0297 4232 4244 P2015 029A 4235 P2020 029D 4238 4237 P2025 02A1 4243 4232 P2027 02A2 4244 4226 P2030 02A3 4245 4239 P2040 02AB 4254 4260 4305 4485 4488 P2050 02AD 4256 4245 P2060 02B0 4258 4264 4266 4281 4285 4312 4316 4326 4348 4360 4367 4469 4474 P2061 02B1 4259 4406 P2065 0298 4622 4610 P2070 02B4 4261 4258 4279 P2075 029D 4629 4622 P2077 029E 4630 4603 P2080 02B5 4262 4257 P2085 02C4 4273 4270 P2086 02C9 4277 4272 P2090 02CD 4280 4246 4309 4324 4327 4331 4358 P2095 02B0 4648 P2100 02DB 4289 4294 4296 P2110 02E8 4298 4292 P2120 03CE 4507 4287 4482 4523 P2125 0303 4735 4635 4641 4648 4746 P2130 02F5 4310 4295 P2131 0315 4748 4738 P2135 03E5 4527 4510 P2136 0316 4749 4743 P2137 03E6 4528 4520 P2140 03E7 4529 4518 P2141 0317 4750 4741 P2160 03E8 4530 4514 P2161 03E9 4531 4289 4427 P2170 02F6 4311 4247 P2171 030C 4328 4320 P2172 0310 4335 4275 P2174 0311 4336 4301 P2176 0312 4337 4329 4356 P2178 0313 4338 4479 P2180 0314 4339 4323 P2190 0315 4340 4325 4362 P2195 0316 4341 4369 P2196 0317 4342 4411 P2200 0318 4344 4248 P2210 0327 4359 4249 4365 P2220 0330 4366 4250 4372 P2225 0339 4373 4254 P2230 03C9 4494 4508 P2231 0318 4751 4736 P2250 033D 4378 4351 P2260 033E 4380 4278 4308 4453 4458 P2262 036F 4416 4420 P2264 0374 4421 4432 P2266 0380 4430 4423 4426 P2268 0383 4433 4408 4429 P2278 0363 4407 4404 P2280 0385 4434 4412 P2300 03A6 4462 4390 P2310 03A7 4463 4383 4394 P2311 03A8 4464 4385 4396 P2320 03A9 4465 4399 P2330 03AA 4466 4405 P2340 03AB 4468 4251 P2350 03C7 4492 4484 P2360 03C8 4493 4486 P2365 029C 4628 4661 4716 P2370 03CA 4497 4214 4534 P2376 0296 4620 4624 4714 P2380 03EB 4534 4252 P2385 029F 4633 4613 P2390 03F4 4543 P2395 02A8 4641 P2400 02BF 4664 4657 P2405 02EB 4707 4718 P2410 02F3 4714 P2415 02F4 4716 4706 P2420 02F8 4722 P2430 02FA 4724 4642 4649 4686 4687 4695 4698 P2440 02FC 4725 4656 P2450 02FD 4726 4683 P2460 02FE 4727 P2470 0421 4553 4212 P2475 0300 4729 4633 P2480 0301 4730 4712 P2484 0302 4731 4702 P2490 0325 4753 4705 P2A99 0326 4754 4600 P2MEC 0254 267 3886 11522 11652 12150 P2MWC 027C 318 2770 3892 11293 12111 15555 P3000 0988 3502 3118 3208 3440 P3001 07AA 3059 3052 P3003 07CD 3086 3084 P3200 07E7 3114 3073 3076 3080 P3300 07EA 3117 3070 3094 P3330 082F 3175 P3332 0844 3195 3198 3204 P3334 085C 3221 3290 3299 P3335 086C 3239 3201 P333X 084E 3206 3187 P3350 0895 3282 3294 3301 P3360 08A3 3298 3289 P3365 0920 3409 3405 P3367 0927 3415 3326 P3701 0966 3463 3438 3445 3554 P3800 0998 3519 3054 3089 3481 3491 3511 P3880 09CA 3565 3541 3562 3571 3576 3579 P3900 09FD 3618 3052 P3910 07DD 3102 3079 P3915 07DE 3103 3083 P3918 07E0 3105 3123 3124 3146 3147 P3920 07E2 3107 3067 3125 3177 P3925 07E3 3108 3127 P3926 07E4 3110 3122 P3927 07E6 3112 3145 P3930 0868 3234 3161 P3935 086B 3237 3169 3170 P3980 085E 3223 3284 3286 3287 P3985 086A 3236 3158 3172 3342 3442 P3A00 0282 13905 P3EQU 096E 3472 3382 3384 P3ERR 0969 3466 3431 P3K60 096A 3467 3455 P3SV2 093A 3427 3322 3418 P3X 02BC 13962 13905 13947 P3Y 02C0 13967 13940 P4000 0282 3702 3700 P4001 02A1 3733 3712 P4002 02B9 3750 P4003 02C5 3761 3754 P4004 02CD 3768 3764 P4800 038E 3931 1853 3880 3922 3924 P4801 0397 3937 3939 P4850 03AA 3956 3757 3763 3770 P4860 03B7 3972 3999 4004 4009 P4870 03BE 3979 3708 P4890 03C5 3987 3734 3746 3818 3902 P4891 03C6 3988 3936 P4892 03A6 3951 3933 3940 3941 P4893 03A8 3953 3931 P4899 0453 4133 P4900 0458 4139 3700 P5000 0282 6618 6615 P5010 0292 6627 6618 P5012 0296 6630 6669 P5015 02A8 6646 6637 6643 P5020 02AB 6648 6633 6634 6640 6641 6645 P5030 02AF 6653 6649 P5040 02B8 6662 6627 P5042 02B9 6663 6644 P5045 02BA 6664 6642 P5047 02BB 6665 6646 P5050 02BC 6667 6653 P5055 02CA 6677 6674 P5060 02CF 6682 6673 6737 P5061 02D0 6683 6675 P5080 02D1 6685 6654 6655 P5082 02D3 6687 6695 P5090 02D9 6693 6687 P5095 02EE 6711 6699 6702 P5097 02F7 6717 6712 P5100 02FF 6724 6721 P5110 0303 6727 6676 6681 P5120 0306 6730 6747 P5121 0307 6731 6774 P5122 0308 6732 6686 P5123 0309 6733 6635 6679 6691 P5140 030A 6735 6671 6697 6752 P5150 030F 6739 P5160 0312 6742 6738 6753 P5170 0317 6746 6670 6696 P5180 031F 6752 6744 6746 P5200 0322 6755 6656 P5205 0335 6771 6764 6788 P5210 033C 6776 6781 P5220 0340 6780 6775 P5240 0344 6783 6727 6772 6779 6786 6902 6924 7001 P5245 0347 6785 6921 P5246 034A 6787 6763 P5247 034B 6788 6765 P5248 034C 6789 6769 P5250 034D 6793 6741 6780 6800 P5310 0359 6802 P5320 035A 6803 P5330 035B 6804 P5335 035C 6805 6845 P5340 035D 6807 6630 P5350 0365 6813 6784 6816 6819 6850 6859 6918 P5355 0369 6815 6810 P5360 036C 6818 6812 P5370 037D 6828 6836 P5390 0456 7003 6615 P5400 0399 6852 6657 P5405 03A0 6857 6867 6871 6886 P5406 03A3 6859 6887 P5409 03A4 6861 6713 6857 P5410 03A5 6862 6856 P5420 03B3 6876 6864 P5430 03B7 6881 6854 P5431 03B8 6882 6874 6879 P5435 03BF 6887 6912 6929 P5450 03C0 6889 6839 6853 6885 6974 P5451 03C1 6890 6855 P5452 03C2 6891 6863 P5453 03C3 6892 6865 P5454 03C4 6893 6869 P5455 03C5 6894 6808 6809 6919 6920 6922 P5456 03C6 6895 6876 P5500 03C7 6897 6658 P5510 03D0 6903 6911 P5520 03E0 6914 6906 P5540 03E1 6916 6897 6926 6927 P5600 03F1 6927 6659 P5700 03F5 6932 6660 P5710 03FE 6941 6936 6998 P5720 0412 6963 6933 6995 P5730 0415 6965 6971 P5740 0423 6978 6932 P5741 0424 6979 6994 P5750 0426 6981 6948 6957 6961 6965 P5760 0432 6993 6941 P5800 0433 6994 6661 P5950 043B 7001 6939 6976 P6CH1 03B0 12606 12602 P6CHR 03AC 12603 12600 P9000 045A 4863 372 4855 8933 11682 12187 12434 12446 12448 12449 12451 12466 12468 12502 15287 15380 16164 16169 16241 16246 16342 16408 16514 16532 16543 16545 P9026 045D 4903 4907 P9030 0479 4928 4937 P9031 0487 4940 4924 5017 P9032 048C 4943 5018 6489 P9034 0490 4947 4934 6490 P9035 04A0 4963 4953 4958 P9036 04A9 4972 4904 4955 6491 P9038 04AB 4974 4952 P9039 04BE 4984 4943 P9040 04AC 4975 4915 4931 10590 15811 P9041 04AE 4976 5007 10823 12473 15390 P9042 04C1 4988 6492 P9044 04C3 4990 6493 P9046 04C5 4992 6494 P9047 04C7 4994 6529 P9048 04CA 4997 4939 6495 P9050 04CC 4999 6496 P9052 04CE 5001 6497 P9053 04D0 5003 6498 P9054 04D1 5004 4989 4991 4993 4996 4998 5000 5002 P9055 04D1 5005 4938 4940 P9056 04DE 5016 5005 P9057 04E0 5018 4995 P9060 04E1 5027 5105 6499 P9062 04F5 5042 5117 5178 15155 P9064 050B 5061 5037 5109 5130 5142 5147 5160 5184 5186 5188 5239 5242 5296 15050 P9066 0513 5070 5045 5051 5053 5055 5057 5059 5062 5064 5089 P9068 051B 5078 5036 6500 15134 P9070 051D 5084 5087 5090 5091 5094 5104 P9072 052A 5097 5136 5165 5169 5186 5209 5223 5241 5249 6501 6502 P9074 0531 5103 5214 P9076 0536 5106 5097 5175 15157 P9078 0537 5108 5066 P9080 0542 5122 5043 5086 5110 P9082 0544 5124 5111 5112 5113 5116 5246 P9083 054A 5125 5115 5134 P9084 054B 5126 5203 P9086 054C 5130 5108 5243 P9088 0554 5139 5065 5152 P9090 0559 5144 5034 5199 5282 P9092 055A 5147 5060 P9094 0561 5153 5139 5166 P9096 0562 5154 5150 5162 5164 5167 5173 P9098 0566 5160 5141 5143 15049 P9100 0579 5176 5135 5185 5196 5201 6503 P9102 057E 5180 5063 5221 P9104 0584 5186 5183 P9106 0585 5188 5058 P9108 058F 5197 5191 P9110 0590 5198 5052 5054 5204 P9112 0594 5202 5056 P9114 0597 5206 2596 2613 2654 5050 14271 14285 14305 P9116 059D 5210 2654 5044 14305 P9118 05A4 5218 5190 P9120 05A8 5222 5215 5227 5273 P9122 05AA 5224 5222 15159 P9124 05AB 5225 5253 P9126 05AF 5229 5225 P9128 05B0 5230 5140 5168 5170 P9142 05B1 5231 5040 5262 5264 5277 5291 15136 P9144 05B2 5232 5041 5267 5270 5286 5292 15137 P9150 05B3 5233 5194 5240 5295 P9154 05B4 5238 5193 5198 5202 5210 5300 15048 P9156 05C8 5251 6504 P9158 05D7 5262 5244 5303 P9160 05E2 5272 5266 P9162 05E6 5275 5038 5192 5195 5197 5271 P9164 05E8 5277 5035 5200 5281 P9166 05F8 5290 5197 5280 P9168 0605 5301 5260 6505 P9170 0609 5305 5301 P9171 044B 2669 2666 P9172 060A 5306 5284 P9174 060B 5307 5285 5290 P9176 060C 5308 5256 5259 6082 P9178 060D 5312 349 4927 P9180 06EB 5461 349 5476 P9194 06EC 5472 5484 5494 6506 P9196 06EE 5474 5483 P9198 06FA 5492 5495 5510 5522 5606 6507 P9200 06FE 5496 5478 5479 P9202 0701 5505 1658 5098 5302 5527 5597 6508 7264 8923 11386 12126 15093 15465 P9203 0716 5524 5514 P9204 0718 5526 5511 P9210 071C 5532 5555 5556 P9211 071E 5534 5550 5554 6822 P9212 0720 5536 5551 5552 6823 6824 6843 P9213 0703 5507 5524 P9215 0722 5538 5559 P9216 0723 5547 5561 5636 6509 P9219 0730 5556 P9220 073A 5591 5610 5633 6510 14667 P9221 0743 5601 15407 15409 P9222 0747 5604 5598 6162 11236 P9224 074B 5608 4906 5609 6511 P9226 074E 5613 5607 15472 15474 P9227 0754 5618 12490 P9228 0755 5620 5615 15654 P9230 075B 5624 5653 5664 P9231 0765 5633 5651 P9232 0767 5634 5621 P9233 0776 5647 2765 2767 5644 15386 P9234 0778 5648 P9236 077E 5652 5649 P9237 0782 5655 P9244 078B 5668 5519 5596 5630 5646 5728 P9245 078E 5672 5654 5658 5696 5698 5786 5790 5799 5866 6036 6148 12434 12461 12677 14729 15399 16416 P9246 079C 5695 5617 5702 6197 6345 6512 P9250 0802 5828 5647 5869 6515 12677 14983 15292 15416 P9251 083C 5885 5864 P9252 083D 5894 5247 5594 5915 5949 11491 12608 P9254 0844 5900 5912 P9256 084A 5904 5909 P9258 0852 5910 5907 P9260 0856 5914 5895 5898 5905 5952 P9262 085B 5917 5900 P9264 0868 5930 5897 5902 5941 5951 P9266 086B 5936 5913 5916 5956 P9268 086E 5939 5947 P9270 0877 5948 P9272 087B 5950 5903 5955 P9274 083A 5884 5939 5943 P9276 0883 5965 6011 6017 6516 15437 15445 15479 15481 15516 15872 P9278 088D 5973 5969 P9282 0891 5976 P9286 089D 5985 5979 P9288 08B8 6005 6002 P9289 08BD 6009 5966 P9290 08C1 6011 P9291 08BF 6010 5967 P9292 08C3 6013 5981 6001 P9294 08C5 6015 5968 5995 6017 P9300 08C6 6024 5252 6046 6049 7137 8537 11237 11239 11578 15645 15676 15829 P9301 08CA 6031 15487 15489 P9302 08DD 6046 6030 15492 15494 15644 15649 P9303 08E0 6048 6032 6045 11238 P9316 091B 6104 6053 6056 6213 15485 P9318 091C 6105 6062 6063 6206 P9320 091D 6106 6095 11561 P9321 091E 6107 6047 6084 15673 P9322 0920 6110 6074 P9324 08E3 6051 6028 6065 6085 6088 6127 6391 P9326 08EA 6058 6091 6093 P9327 08EC 6062 15497 P9328 08F5 6070 6066 6068 6069 P9329 0909 6085 6097 P9330 090D 6089 6076 6078 P9332 0911 6092 6089 P9334 0913 6094 6080 11234 11561 P9340 09B5 6427 6398 6440 P9342 09C6 6441 6388 6453 P9344 09D8 6457 6387 6397 6461 P9346 0921 6111 6041 6152 6198 6202 6410 P9348 09DE 6465 6435 6443 P9350 0924 6119 6517 6518 15443 15512 15737 P9352 0926 6122 5603 6217 11235 P9354 092C 6126 6123 P9356 0940 6155 6147 P9358 0944 6159 6125 6129 6192 6212 P9360 0949 6163 6156 P9362 094B 6165 6133 P9364 0957 6173 6177 P9366 095C 6178 6169 P9367 0974 6198 6195 P9368 097C 6205 P9372 091B 6213 6168 6188 6190 P9374 0986 6214 6131 6157 6163 P9378 0926 6217 P9380 098A 6219 6037 6149 6259 6373 6407 6520 P9382 098C 6263 5623 5650 6261 6332 6359 6521 6522 P9384 099D 6278 6267 6274 P9390 09A8 6296 6301 P9392 09B2 6306 6298 P9393 09BA 6314 6285 6308 6335 6336 P9394 09BC 6315 6304 6306 6307 6311 P9396 09C0 6319 6328 P9398 09CC 6331 6281 P93A1 08DA 6044 6035 P93B1 08D5 6038 6039 6150 P9400 09D0 6334 6284 6319 6338 P9401 09D1 6335 6348 P9402 09D4 6338 P9404 09E1 6347 6343 P9406 09E4 6353 6339 P9408 09E9 6358 6337 P9412 09E6 6355 6266 6272 6276 6278 6297 6310 6313 P9428 091F 6108 6079 6126 6161 6394 11577 11581 P9430 0917 6099 6054 6059 6090 6130 6158 6164 6165 6167 P9432 0918 6100 6057 6058 6067 6092 P9436 0987 6215 6209 P9438 0919 6101 6450 P9440 0988 6216 6210 P9442 091A 6102 6034 6146 P9451 0A01 6242 4855 6474 P9455 09E6 6469 6375 6408 P9460 0A01 6474 5677 6475 6524 P9462 0A53 6475 6476 6525 P9464 0AA5 6476 6477 6523 6526 P9466 0AD2 6477 5675 5697 5701 6113 6341 6354 6358 6485 6527 P9468 0C18 6485 4872 5787 6486 6487 11954 11955 13781 14764 P9470 0C16 6486 6530 P9472 0D94 6487 1828 4873 5557 5558 5560 5867 6488 10176 11666 16296 16298 16300 16370 16372 16374 16652 16666 16667 16669 16671 16673 P94XX 025B 271 273 327 P94YY 025F 274 277 328 P94ZZ 0260 275 272 P9540 04BF 4985 4941 4942 12478 15395 P9541 04C0 4986 4923 P9AST 078D 5670 5628 P9BLK 07BA 5738 5755 5757 P9INT 09EA 6360 6261 6303 P9KEB 07E3 5781 5749 5763 5771 P9KHL 07DF 5777 5747 5761 5769 P9LDD 07D7 5768 P9LST 0772 5644 P9M34 049E 4958 4946 P9MVE 0802 6515 1664 2617 6799 9930 10172 10358 10469 11296 11524 11651 12114 12152 15308 P9RTE 07D4 5766 5762 P9S34 0494 4950 5016 P9YYY 07A7 5703 2743 5637 5641 6513 6785 6815 P9ZOK 07E7 5786 5748 5750 5758 5764 5767 5772 P9ZZ1 07B3 5733 5734 P9ZZ2 07F5 5799 5736 P9ZZ5 07FE 5807 P9ZZ6 0801 5811 5801 P9ZZ8 07AF 5729 5732 P9ZZO 07CD 5759 5756 P9ZZS 07EA 5788 5770 5773 P9ZZZ 07A8 5724 5624 5797 6514 PA010 0990 6389 6420 PA020 099B 6398 6395 6421 PA025 099C 6400 PA030 09A5 6407 6414 PA040 09AB 6413 6405 PA050 09AD 6416 6392 PA200 09DE 6464 6377 6406 6413 6465 PA290 09EB 6471 6411 PA300 09EC 6472 6401 PA901 0A00 6241 6233 6417 6438 6459 PAA00 098D 6384 6044 6155 6375 6393 6400 6403 PAAID 098C 6383 6033 6145 6470 PACK 081D 5854 2760 5862 14943 14947 14951 PACK0 0826 5864 2762 2764 14945 14953 PACK1 0828 5866 14954 PAK 03A4 13095 13062 PALBL 074B 6511 4373 6813 10914 11073 11124 11126 11353 11487 11962 12057 12492 12832 13775 13967 14059 14163 PARAM 0249 245 246 2607 2610 2784 2786 10880 PARCT 0367 14121 14044 14100 14114 14125 14130 14133 14268 PARER 03EA 14262 14189 14292 PARM0 0308 14026 14013 14045 14101 14126 14134 14269 PARM2 0310 14032 PARM3 0313 14035 14029 PARMX 02FA 14012 14034 14039 PARMY 02F8 14011 14106 PARMZ 02FB 14013 14064 14115 14138 14290 PASL2 0435 11115 11122 PASL3 043E 11123 PASL4 0441 11126 11111 PASLB 042B 11106 11031 11035 11038 PASS 020D 189 190 1368 1559 1595 2196 2228 2757 2774 2815 2865 2903 4277 4304 4319 4612 5602 5620 6404 6698 6739 6771 6807 6811 6917 6934 6996 7155 7184 7362 7405 7436 7543 7637 8136 8144 8230 8275 8316 8371 8397 8580 9211 9784 9872 9905 10124 10459 10791 10837 10904 11278 11480 11512 11638 11663 11816 11985 12055 12136 13939 15372 PATCH 03CB 629 PBASE 12F6 14376 2782 2791 2794 14186 14892 PBUFF 128E 13994 2783 2790 13936 14181 14204 14770 14887 14907 14918 PCK0 03A1 13092 13112 PCK01 0391 13077 13124 13153 PCK02 039F 13088 13235 PCK03 03C1 13120 13163 PCK1 03AC 13104 13088 PCK2 03B5 13113 13100 PCK3 03CA 13126 13136 PCKBL 0374 1584 1521 PCPAD 01EE 166 167 2890 PDEND 128C 10031 518 606 13994 14369 15310 16440 PEROD 0339 12989 PGHDR 0372 1582 1544 PH2AD 0290 1364 1376 PH3ID 07DB 3100 3059 PH8ID 0F14 9261 PHS00 01E2 132 PHS01 0282 2192 PHS02 0282 4214 PHS03 07AA 3054 PHS07 0282 7521 PHS12 0282 1353 PHS1A 0282 2737 PHS1B 0282 10117 PINPT 01EC 165 166 429 430 433 454 458 476 14715 PIOSZ 0136 90 6488 PLAST 12F7 14377 2788 2792 2795 14188 PLSR0 0290 10628 10612 10666 10668 PLUSI 13ED 14650 14665 PMOP0 02FA 11368 11315 11322 11462 11468 11473 PN000 0282 8979 8976 PN010 0292 8988 9116 PN015 029C 8997 8990 PN020 02A3 9005 9008 PN030 02AB 9013 9020 PN035 02AA 9012 9001 PN036 02B3 9021 PN040 02B4 9023 8992 9009 9016 9068 9072 PN045 02B7 9025 9098 PN050 02BA 9028 9024 9025 9027 PN060 02E8 9076 8989 9104 PN190 02FF 9101 9034 PN200 0301 9104 9065 PN210 030D 9114 8993 9021 PN215 0312 9118 9014 PN900 031A 9123 8976 PNAME 03D4 12639 12579 12596 PNC10 0800 5810 5656 PNCK1 034F 12504 12575 12621 PNCK3 038E 12577 12644 PNCK5 0393 12581 12595 PNCK6 03B5 12611 12550 12605 PNCK7 03BE 12619 12638 PNCKA 03C0 12621 12609 PNCKB 03DA 12640 12613 PNCKC 03DB 12642 12622 PNCKD 03D2 12638 12615 PNCKS 03DC 12643 12578 PNTR1 0377 14142 14003 14067 14071 PNTR2 0378 14143 14005 14084 14086 14093 PNTR3 0379 14144 14007 14069 14072 14095 14183 14205 PNUM 0398 14175 14010 14073 14087 14089 POINT 068E 13524 12400 12630 13403 POS 0838 5881 5805 PPONE 0343 14077 14002 14004 14006 14094 14113 14132 14199 PR000 045C 4873 480 481 485 538 3312 3316 3317 3707 6907 6908 6909 PR200 03E7 8819 8824 PR210 03F1 8828 8847 8850 PR260 03F7 8834 8747 8825 PR270 03F9 8839 8809 8813 8827 PR280 03FB 8841 8849 PR310 03F5 8832 8838 PR460 0406 8851 8806 PR470 041A 8878 8842 PRBFR 0AA5 6526 494 2768 2893 2895 3106 5537 5851 5885 14946 14963 PRFIX 0923 6113 1172 1201 1223 1224 6283 6330 PRGSZ 03B6 3971 3771 3785 PRINT 01EA 164 165 479 539 2889 PRLD 14E3 14886 14755 14800 14829 14832 14910 PRLD0 14F9 14905 14895 PRLOC 1470 14772 13987 13999 14752 PRMLC 1471 14773 14751 14756 14888 PRREL 1472 14774 14754 14825 14843 14844 14889 14908 PRS00 03A8 14191 PRS10 03B7 14202 14193 PRS90 03C0 14210 14182 14203 PRS92 03C2 14211 14187 14191 14196 14202 PRSCN 02E2 13995 13938 13941 PRSN1 02EC 14003 14000 PRSN2 02EB 14002 13998 PRSTO 039A 14180 14031 14068 14074 14083 14092 14206 PRSVE 14BA 14851 14893 14899 14905 PSAVE 0376 14141 13986 14012 14027 14037 14070 14082 PSKEL 0314 11398 11283 11287 11312 11314 11321 11324 11327 11329 11378 11427 PSMDE 020C 188 189 1476 2199 2545 2749 2772 2910 3885 3891 5622 5648 6402 10835 10899 11291 11520 11530 11634 11995 11998 12109 12144 12162 13926 13937 14251 14295 14662 PSTMN 10CA 16345 16382 16385 PSTOP 0313 9119 9063 PSUB 149A 14820 14477 PSUB0 149F 14824 14881 PSUB1 14B8 14850 14826 14830 14834 PSUB2 14D7 14877 14828 14867 14884 PSUB3 14D9 14878 14821 14827 14861 14863 14869 14871 PSUB4 14DF 14882 14831 14858 PSUBI 14DD 14880 14857 PSW 06C5 13587 13006 13010 13024 13386 13532 13597 13604 13610 13619 13635 PSWTH 031F 12963 12848 12877 12885 12904 12974 13214 13395 PTENT 03BD 3978 3709 3798 3804 3810 3860 3900 3919 PTFNC 0862 3228 3085 3092 3315 PTMES 02E5 3789 3759 PUNCH 08C4 3324 3311 PURA1 0334 11437 11434 PURA2 0334 11438 11445 PURA3 0340 11447 11440 PURA4 0332 11435 11446 11452 PURA5 0348 11453 11467 PURA6 0353 11463 11457 11464 11478 PURA7 0366 11477 11456 PURC1 031E 11418 11444 PURC2 031B 11415 11442 11447 PURG 031F 11420 11269 PURG0 032E 11431 11428 PURG1 029B 11277 11328 11470 11472 11476 PURG2 02A2 11285 11326 PURG3 02D3 11324 11317 11320 PURG4 02D5 11325 11284 PURG5 02DA 11329 11323 PURGA 02C3 11311 11289 PURGB 02BA 11303 11279 PURGC 02C0 11307 PURGD 02B7 11299 11292 PURGE 02AC 11291 PWSAD 03BA 3975 3773 3779 3783 PZZZ3 07BB 5745 5737 QMDX0 0384 7272 7263 QMDX1 0383 7271 7268 QMDX2 0382 7270 7249 7258 7266 QMDXF 0378 7263 7260 QUOT0 02D9 12899 12891 QUOT1 02DA 12900 12893 QUOT3 02B2 12858 12875 QUOTE 02D2 12890 12859 13008 R 0F20 9273 9478 9493 9790 9835 RDBFR 0238 230 231 589 595 1537 1538 1651 1717 2205 2216 2848 2849 2860 3162 3163 3203 3313 3340 3350 3357 3406 3424 3456 3720 3870 5206 5625 5726 5745 5788 5791 5792 5803 9874 9938 9940 9941 11027 11290 11303 11330 11448 11511 11818 11875 11987 12069 12099 12117 12329 12364 12843 12922 12957 12968 13538 13800 13995 14050 14054 14062 14153 14157 14166 14249 14293 14394 14609 14637 14701 14726 14728 15651 15786 RDBLK 08E4 3351 3355 RDCOM 0306 3812 RDCRD 07A8 6514 1728 2215 12068 13749 13767 13791 13948 13960 14730 15441 15508 15631 RDFNC 03CE 7701 7695 7706 RDMDE 0254 256 257 267 14930 14931 14986 15291 15374 15460 15646 15668 RDP3 0292 13925 RDP30 029D 13932 13927 13929 RDP31 02AA 13945 14075 RDSK 07F8 13820 13773 14747 14783 RDSKS 07F4 13813 13821 13824 RDSRC 0282 12805 12797 13427 RDTHD 0236 228 229 990 1060 1614 1681 6007 RELEP 01FC 173 174 1644 3831 4457 RELSW 0240 235 236 239 1634 4403 4666 5101 5212 6745 6751 6776 6944 6951 7223 7224 7225 7378 7420 9565 9758 11543 REPLC 09C5 3559 3549 3553 3557 RES2B 068C 13521 13477 RESEA 0304 11381 11359 RESET 08C8 3331 3242 RESK 03BE 11560 11591 RESK1 03BC 11553 11499 REST0 0314 12444 12415 12432 12678 REST1 0333 12472 12476 REST2 033F 12490 12616 12656 12658 REST3 0326 12460 12464 RESTO 0840 3191 3210 3457 RESX1 02FA 11893 11886 RLCER 036D 1576 1637 RLCNT 0241 236 237 5211 5288 5289 15063 15110 RLCSW 023F 234 235 5219 5258 5265 5299 RLMDE 0244 240 241 412 1632 3072 3258 4256 4280 4311 4350 4401 4468 4917 5218 5257 6638 6742 7221 RP000 045B 4872 431 432 438 444 594 2204 2842 3155 3156 3343 3344 3345 9105 9106 9107 12672 14716 RPAR 036B 14130 14022 RPAR1 0372 14135 RPAR2 031E 11932 11870 11892 RPARN 0304 14021 RPK1 0366 14120 14135 RPLC3 09CC 3568 RSLT 09CB 3566 3560 3568 3574 3582 RSTKB 03B4 3970 4017 RSTX1 0609 13396 13377 13388 13389 RTURN 09D9 3584 3569 S 0F40 9306 9459 9641 9649 9894 S3NXT 03D1 14237 14226 S4HEX 11CC 16580 16137 16593 S4HX1 11CF 16583 16592 S6000 02AC 7093 7080 S6005 02B2 7098 S6006 02BA 7107 7072 S6008 02BB 7108 7069 S6020 02BC 7109 7079 S6025 02BD 7110 7076 S6030 02BE 7111 7096 7351 S6040 02BF 7112 7115 S6050 02C0 7113 7085 7191 S6055 02C1 7115 7095 S6060 02C5 7118 7086 S6070 02EE 7155 7105 7128 S6075 02F4 7159 7156 S6080 02F5 7160 7130 7146 S6091 0317 7186 S6092 0350 7230 7226 S6094 0359 7238 7232 7234 S6098 035D 7242 7229 S6099 0326 7199 7389 S6100 035F 7244 7192 S6120 03BF 7327 7320 S6200 03FD 7385 7376 S6300 041A 7407 7366 7429 S6A 0282 7061 7058 S6Z 0457 7454 7058 S7000 0290 7533 7527 S7010 02A8 7552 7533 S7020 02E4 7609 7666 S7030 02F6 7621 7547 7641 7682 S7040 0327 7668 7621 S7990 03C1 7687 S7A 0282 7525 7519 S7Z 03AA 8029 7792 S7Z00 044F 11144 11145 S8000 0290 8112 8107 S8010 0299 8119 8118 S8020 029D 8124 8120 S8030 02A4 8132 8112 S8040 02D8 8176 8173 S8042 02E5 8188 8205 S8050 031F 8244 8185 8234 8273 8279 8312 8320 S8060 0347 8277 8283 S8070 037E 8320 8331 S8080 039C 8344 8337 S8090 03C1 8376 8372 S8095 03DA 8399 8405 S8098 03DD 8401 8422 S8100 03E1 8404 8398 S8110 03FC 8424 8407 S8A 0282 8104 8101 S8AA 0282 8499 8497 S8AZ 0459 8935 8497 S8MT1 02C3 8548 8529 8538 8540 8542 S8MT2 02BB 8539 S8MT4 0315 8627 8541 8544 S8MT5 02C7 8552 8545 S8Z 0417 8426 8101 SA000 01EA 989 977 997 1025 1059 6119 6519 SA002 01F0 994 992 SA005 01F5 998 993 SA010 020C 1040 1056 1095 6519 SA020 0218 1059 1046 SA030 021B 1061 1057 SA040 022B 1073 1070 SA050 0231 1079 1084 SA060 0237 1086 1077 SA065 0242 1093 1075 SA090 0245 1100 1018 SA100 0246 1101 1054 SA110 0247 1102 1064 SA120 0248 1103 1091 SA130 0249 1109 977 6119 SAVCT 0965 3462 3068 3437 3439 SAVE 09F0 3608 3595 3600 3605 SAVE0 0F26 9279 9231 9417 9492 9920 SAVE1 0F34 9294 9241 9329 9338 9352 9362 9367 SAVE2 0F35 9295 9213 9214 9491 9495 9497 9503 9509 9515 9517 9533 9538 9886 9891 SAVE3 0922 3410 SAVFD 1505 14915 12024 12026 14656 14658 14659 14660 14697 14700 SAVR1 05CD 5254 5226 5245 SAVR2 08A7 3303 3276 3296 SAVSW 0202 178 179 2568 3069 SB000 01EA 1147 1145 1214 1244 SB005 01F1 1166 1169 SB010 01F6 1172 SB015 01FC 1177 1176 SB020 0207 1187 1197 SB025 0217 1204 1210 SB026 021F 1212 1219 SB027 0222 1216 1207 SB030 0214 1202 SB040 0227 1222 1173 1181 1187 1227 1232 SB045 022E 1226 SB046 0231 1229 SB055 0238 1236 1165 1184 1211 1216 SB056 0239 1237 1205 SB057 023A 1238 1218 SB060 023B 1239 1225 SB065 023C 1240 1148 SB070 023E 1242 1228 SB080 0248 1245 1145 SC000 0282 1356 1351 SC010 0292 1366 1361 SC015 02AB 1386 1379 SC020 02AF 1389 1392 SC030 02C2 1410 1404 SC040 02D7 1429 1402 1408 1424 SC043 02E6 1443 1433 1437 SC045 02F3 1458 1460 SC047 031F 1502 1496 SC048 0326 1506 1500 1503 SC050 032E 1515 1477 SC051 0337 1522 1525 SC060 034B 1540 1529 SC065 0352 1546 1553 1555 SC100 037E 1595 1369 SC105 038E 1606 1603 SC106 0398 1615 SC110 03A6 1629 1624 SC120 03B0 1638 1627 SC130 03B4 1643 1635 1641 SC140 03BA 1649 1620 SC145 03CF 1664 1654 1662 SC146 03CD 1662 1657 SC147 03CE 1663 1660 SC150 03D1 1666 1650 SC160 03E1 1681 1676 SC161 03EF 1691 1688 SC162 03F4 1694 1690 SC165 0410 1717 1596 SC170 0422 1737 1353 1464 1488 1515 1666 1709 SC175 0436 1748 1720 SC180 0456 1751 1351 SC900 0362 1565 1465 1466 1494 SC910 0363 1566 1482 1498 1508 SC920 0364 1567 1489 1490 SC930 0365 1568 1520 1541 SC940 041C 1728 1530 1710 1711 1715 1716 SC950 036A 1573 1384 1468 1492 1510 1549 1670 1713 SC955 036E 1577 1623 1653 1655 SC960 041E 1730 1722 SC965 0420 1732 1602 1687 SC970 0421 1733 1689 SCAN 04E1 6499 1441 1629 1719 2497 2513 4392 4517 4527 4665 4740 4748 6667 6693 6755 6898 6943 6950 6959 7200 7375 7415 8213 9356 9485 9534 9744 9750 11509 11839 11888 14274 15055 15061 15109 15139 SCLR 07E5 13797 13792 13808 14389 14699 SCLR1 07EA 13801 13805 SCLR2 07F6 13815 13801 14462 SCLRX 07F0 13807 13798 SCNP0 03F0 11031 11112 11125 SCNP1 03FB 11042 11046 SCNP2 040C 11058 11066 SCNP3 0417 11069 11006 SCNP4 041A 11072 11026 SCNP5 041C 11074 11053 SCNPE 03E9 11027 11127 SCNPS 03E6 11025 10905 11004 11005 11067 11070 SCNXT 05E9 13366 SCOMN 020E 190 191 1429 2470 2474 SCONE 037A 1589 1695 SCPH3 126E 16705 16699 SCRA 020F 191 192 1066 2871 2930 5614 6342 15889 15905 SCRA2 0210 192 193 2872 2929 SCSOP 02E7 12911 12917 SECAD 07B2 13759 12012 13982 SEMI 03ED 14267 14024 SEMI1 03FF 14279 14276 SEMI2 0403 14284 14299 SEMI3 040E 14293 14278 SERCH 0308 10254 10246 10308 10410 SET 0368 11480 11268 SET00 037D 11499 11502 SET01 0370 11486 11494 SET02 037C 11498 11492 SET03 038A 11508 11481 SET04 0384 11504 11507 SET1K 03E2 11599 11568 SET21 03C0 11565 11553 SET22 03C8 11575 11600 SET23 03D2 11585 11589 11601 SET24 03DA 11591 11594 SET2K 03E3 11600 11504 SET3K 03E7 11602 11586 SETLF 037B 11496 11493 SETND 06FB 13649 12833 SETRR 03BA 11547 11488 SETRS 03B8 11546 SETST 0375 11490 11484 SFLAG 031D 11931 11880 SFLG 03E9 14258 14250 14294 SHIFT 0F33 9293 9542 9805 9810 9852 9858 SHORT 0F2F 9288 9347 9400 9403 SI2ND 031B 7190 7185 SINST 0314 7184 7090 7102 7166 7168 SKEL0 030E 11145 10611 10619 10657 10693 10709 10713 10724 10744 10882 10893 SKEL1 0C46 11955 11958 12015 12019 13769 13771 13784 13981 14397 14746 14782 SKEL2 0460 12289 12334 12393 12395 12397 12399 12402 12403 12416 12420 12422 12426 12428 12439 13095 13193 13405 13408 13411 13445 13468 13490 13493 13494 13495 13496 13501 13503 13505 13516 13518 13670 SKELR 0680 13507 13470 SKELS 0663 13489 13447 SKELX 028F 10627 10711 10712 10714 SKELY 0310 11393 11285 11286 SKIM 0695 13537 13550 13649 SKLTN 0248 244 245 2611 2868 2873 3755 SLT 0389 8017 7924 8026 SLTL 038C 8020 8025 SMAC0 0256 258 259 10848 10879 10958 11630 12337 12414 13443 SMACE 0342 10845 10992 SMASK 041C 14307 14281 SMSEC 0246 242 243 10131 10170 10324 10328 10850 11426 11632 12336 12417 12419 13489 SNTXR 03D8 14246 14131 14247 14248 14255 14256 SP000 01EA 728 726 780 SP020 01F2 735 732 776 SP030 0201 755 749 SP040 0207 761 786 SP050 020C 766 758 SP052 020E 767 760 761 763 SP060 0213 774 733 751 SP070 0217 777 730 SP072 0219 778 731 SP074 021B 779 729 SP090 021D 784 736 740 755 756 759 764 SP100 021E 785 745 SP110 021F 786 762 SP120 0220 787 750 SP130 0221 797 786 SP990 02A4 939 726 SPACE 03BF 3980 3797 SPC00 1271 16710 16696 16700 SPC01 1272 16711 16697 SPC02 1273 16712 16698 SPC03 1277 16716 16705 SPCH1 1262 16697 16702 SPCH2 126A 16703 16694 16706 SPCHR 125E 16693 16568 16704 SPCN 0389 7276 7071 7144 7154 7202 7309 7379 SPLP 03B5 7319 7328 SPOND 03A8 7308 7199 7326 7388 SPOP 06A6 13555 12910 12911 SPOUT 03C5 7332 7313 SPRSW 0225 212 213 4359 4368 SPTAB 03A4 7303 7319 SR010 02A9 10168 10144 10147 10157 10214 10221 10255 10404 SR011 02AB 10169 10129 10194 SR020 02E4 10212 10154 10217 SR030 02A5 10163 10159 SR040 029D 10156 10161 SR050 0297 10150 10165 SR060 02EF 10228 10166 SR070 02F2 10232 10240 SR080 0313 10266 SR090 030E 10259 10364 SR100 0320 10283 10277 SR110 0324 10287 10281 SR120 038C 10378 10300 10305 SR125 0397 10391 10386 SR130 0329 10291 10387 SR140 0316 10270 10399 SR150 033A 10312 10247 SR160 0354 10330 10423 SR900 02E0 10207 10146 SR901 03C3 10427 10150 SR902 02E1 10208 10153 10213 10220 SR903 03D1 10443 10234 SR904 03D2 10444 10242 SR905 03D6 10446 10285 10318 10320 10323 10378 10380 10411 10413 10416 SR906 03D9 10449 10279 SR907 03D8 10448 10287 SR908 03D4 10445 10232 10236 10243 10298 10303 10335 10409 SR909 03D7 10447 10289 10383 10385 SR910 03D0 10442 10292 10379 SR912 038B 10374 10322 10397 10415 SRT 037C 8005 7918 8014 SRT2B 05DC 12292 12317 12377 SRTL 037F 8008 8013 SRVT 1228 9967 9330 STADD 0926 11235 11575 11602 STADR 0231 224 225 1071 1386 1446 1699 2802 3741 STAM1 0332 10829 10825 STAR 1305 14393 14384 14789 STASM 032B 10823 11075 STHDR 09A4 3525 3133 3137 STLBL 0747 11236 11505 11587 11595 STMV1 032A 15360 15365 STMV2 0322 15353 15366 STOLB 029D 7542 7551 STOP 036F 13047 12874 12879 13019 13073 13074 13217 13627 13641 STOPT 0208 184 185 2521 2522 3117 3151 3310 3324 STROK 1272 10023 9251 STRT9 045D 4901 1580 1667 1678 3408 4230 4374 4547 6814 7262 7669 8245 8343 8402 8918 8927 9224 9528 9793 9796 9800 9932 10587 10829 STS1 08C9 11239 STSCH 08C6 11237 STSCN 0353 12513 12362 12562 STSV0 0313 15341 15350 STSV1 031F 15350 15346 STSV2 0321 15352 15345 15349 STSXT 08E1 11238 STXRS 025B 327 3164 5793 9942 SUB1 14B7 14849 14786 14841 14902 SUB2 14A9 14832 14845 SUBI1 14C3 14860 14870 14873 SUBI2 14CE 14869 14862 14866 SUBIT 14BC 14855 14836 SUPBF 0344 3869 3718 3731 3845 SYB01 0FB8 16107 16104 16223 16343 SYDF1 05C9 6504 8206 8214 8216 SYM01 0FBB 16109 16274 SYM02 0FBD 16111 16108 SYM03 0FD3 16129 16133 SYM05 0FDB 16136 16125 SYM10 0FEA 16151 16155 SYM20 0FF1 16158 16148 SYM25 0FF4 16160 16156 SYM30 0FF5 16162 16135 16327 SYM35 0FFA 16167 16177 SYM40 1001 16172 16181 16200 16205 16215 16220 16320 SYM45 1009 16178 16176 SYM50 1018 16197 16174 SYM55 101B 16200 16284 SYM60 1028 16209 16288 16311 SYM65 102C 16213 16311 SYM70 1036 16221 16168 16199 SYMBF 023C 232 233 4421 4434 4446 4448 4454 4916 5033 5102 5250 5601 6075 6122 6179 7136 8167 8178 8223 8254 8266 8300 8306 8410 8416 8536 9200 9609 9692 11049 11058 15642 15663 SYMM2 0FCD 16123 16278 SYMT1 02EB 7153 7138 7140 7142 SYMT2 02DE 7139 SYMT4 02EA 7151 7141 7145 SYMTB 02DF 9066 8991 8995 SYMTG 02E8 7149 7131 7135 SYNER 036C 1575 1626 SYSLM 0247 243 244 10329 13446 SYSOP 03B2 10969 10960 TABFX 13BB 14597 14589 14593 TABPT 03DB 8028 7799 7812 7821 7837 7847 7875 7892 7894 7906 7908 7911 7916 7922 7930 7933 7938 7943 7944 7947 7948 7949 7960 7971 7980 7984 7985 7987 7990 7996 7997 7998 7999 8001 8008 8010 8020 8022 TADJS 0420 15584 15335 15545 TAGCK 02CA 7123 7104 7121 7163 7345 TBLCT 025A 262 263 350 4925 TBLE1 120E 9948 9198 9199 TDPSW 0205 181 182 363 5509 TEMP 0F37 9297 9652 9658 9663 9667 9753 TEMP1 03F6 8833 8839 8845 TEMP2 0302 2833 2746 2777 TEN 03BB 3976 3996 TERM 036E 13046 12873 12939 12941 12943 12944 13018 13053 13542 THREE 0857 3216 3180 THRT2 0212 194 195 2599 2603 2606 2780 3761 6194 TIESA 068C 13522 12339 12343 12394 12396 13500 13502 TLIST 021B 203 204 1471 2530 2754 2901 3751 6877 6881 10467 TRLSW 0243 238 240 5272 5274 5279 5294 TRWRD 023A 231 232 4636 4643 4650 4670 4676 4688 4699 4703 4704 5985 6000 6006 6966 7248 7392 7426 7610 7616 7658 8163 8168 8179 8255 8267 8289 8296 8301 8307 8326 8374 8411 8417 8576 9420 9423 9434 9570 9607 9614 9675 9683 9691 9762 TSTIB 0376 1586 1532 1534 TVWD7 0385 12565 12456 12660 TWNTY 037B 1590 1703 TWO 0368 1571 1451 TWPAS 1404 14668 14663 TXQSW 0204 180 181 361 3812 5508 5806 TYPE 050B 15050 15141 TYPOT 0399 8739 8740 8776 TYPTB 03C4 8780 8765 UFL01 0422 12156 12134 UFL02 0427 12162 12137 UFL03 0426 12160 12139 12142 12153 12165 12169 12174 12178 UFL04 0411 12144 12140 UFL05 0421 12155 12143 12147 12166 12171 12180 12185 UFL06 041F 12153 12145 UFL07 0435 12172 12163 UFLAG 0402 12133 11841 11890 12157 UNPCK 11B9 16560 16121 16574 UNPK1 11BD 16564 16573 UPRS1 0425 12159 12146 12149 USCON 03B3 11540 11519 11527 11534 11620 11625 USL01 03A6 11530 11513 USL02 03A5 11529 11515 11518 11525 11533 11537 11614 11618 USL03 039A 11520 11516 USL04 03A2 11525 11521 USL05 03EB 11612 11531 UWRCK 0650 13467 13444 VALUE 023E 233 234 1442 1643 2485 2507 4293 4297 4438 4456 4522 4669 4745 5030 5100 5276 5278 6677 6711 6716 6724 6750 6760 6899 6947 6954 6960 7218 7220 7230 7238 7383 7425 9360 9365 9371 9374 9377 9380 9383 9487 9499 9505 9511 9536 9540 9748 9765 9769 11541 11845 11900 14280 15051 15054 15065 15112 15116 15124 15129 15166 W 0F21 9274 9451 WRDFO 0949 6519 1682 1684 6008 WRSKL 060C 13401 12391 13069 13198 13415 WRT1 0657 13472 13465 WRTBF 036B 1574 1380 1484 1557 WRTO 065D 13482 13459 13471 13485 13506 WSCNT 01FD 174 175 1697 1704 1705 3835 WSSZE 0211 193 194 584 2867 2874 2881 2884 2921 X 0F22 9275 9464 X1 03AA 3955 3702 3704 3705 3708 3709 3734 3739 3744 3746 3752 3753 3757 3763 3767 3770 3771 3773 3776 3779 3781 X2C99 0980 15831 15738 X3 0219 265 305 361 363 368 378 385 410 412 429 430 433 437 441 453 454 457 458 463 467 469 472 475 476 479 484 508 522 526 528 532 537 539 555 561 562 579 582 584 589 595 990 994 995 998 999 1005 1006 1013 1014 1017 1019 1021 1042 1043 1044 1053 1061 1062 1069 1171 1212 1368 1371 1372 1373 1374 1375 1378 1381 1382 1383 1385 1395 1397 1400 1401 1403 1406 1410 1414 1419 1425 1429 1431 1434 1435 1436 1439 1442 1446 1447 1449 1452 1454 1462 1469 1471 1472 1473 1476 1478 1486 1493 1505 1511 1516 1518 1550 1558 1595 1597 1600 1604 1606 1611 1612 1614 1617 1618 1619 1632 1634 1643 1644 1645 1649 1671 1672 1674 1675 1683 1697 1698 1699 1704 1705 1708 1714 1723 2196 2199 2201 2205 2216 2470 2474 2521 2522 2528 2529 2530 2535 2542 2545 2553 2555 2558 2584 2586 2587 2588 2590 2599 2603 2606 2607 2610 2611 2626 2627 2628 2749 2751 2753 2754 2757 2769 2770 2772 2774 2780 2781 2784 2785 2786 2798 2815 2817 2818 2823 2824 2839 2865 2867 2868 2871 2872 2873 2874 2876 2877 2881 2884 2889 2890 2896 2898 2900 2901 2903 2908 2910 2912 2916 2920 2921 2923 2926 2929 2930 3063 3065 3069 3072 3075 3078 3087 3093 3117 3126 3148 3151 3154 3159 3162 3164 3173 3175 3176 3191 3310 3313 3324 3441 3443 3452 3454 3502 3508 3512 3717 3735 3740 3742 3745 3749 3751 3755 3756 3761 3762 3766 3769 3772 3774 3777 3782 3812 3825 3829 3831 3835 3841 3884 3886 3890 3892 3921 3923 4229 4235 4256 4262 4263 4265 4268 4269 4274 4276 4277 4280 4282 4283 4284 4298 4300 4302 4304 4306 4311 4313 4314 4315 4319 4321 4328 4330 4344 4345 4346 4347 4350 4352 4353 4355 4357 4359 4363 4364 4366 4370 4371 4407 4410 4413 4421 4434 4438 4441 4451 4454 4455 4456 4457 4468 4470 4471 4472 4473 4478 4480 4483 4539 4544 4606 4607 4608 4609 4612 4636 4643 4650 4666 4669 4670 4676 4688 4699 4703 4704 4711 4745 4916 4917 4918 4919 4920 4944 4949 4950 4954 5033 5100 5101 5102 5171 5174 5182 5211 5212 5218 5219 5220 5250 5255 5257 5258 5261 5265 5268 5272 5274 5276 5278 5279 5288 5289 5294 5298 5299 5553 5592 5601 5602 5604 5613 5614 5620 5622 5625 5643 5648 5652 5655 5659 5661 5662 5663 5788 5791 5793 5800 5802 5803 5806 5829 5970 5972 5973 5974 5978 5982 5985 6000 6006 6007 6031 6042 6048 6052 6055 6075 6122 6132 6153 6159 6166 6178 6179 6180 6184 6187 6189 6191 6199 6200 6201 6203 6208 6211 6230 6232 6234 6236 6238 6279 6286 6389 6390 6402 6404 6433 6434 6436 6439 6442 6445 6447 6448 6449 6451 6458 6460 6471 6629 6638 6677 6678 6680 6689 6692 6698 6703 6705 6711 6716 6717 6718 6719 6722 6723 6724 6739 6742 6745 6750 6751 6760 6761 6771 6776 6778 6795 6797 6807 6811 6818 6825 6846 6877 6881 6882 6899 6917 6923 6934 6944 6947 6951 6954 6960 6966 6973 6996 7074 7078 7081 7084 7087 7097 7118 7136 7155 7169 7184 7190 7193 7197 7210 7218 7219 7220 7221 7223 7224 7225 7230 7238 7243 7248 7340 7362 7371 7378 7383 7386 7392 7397 7405 7411 7416 7418 7420 7425 7426 7436 7537 7540 7542 7543 7550 7610 7616 7637 7658 7696 7708 8116 8136 8144 8163 8167 8168 8178 8179 8223 8230 8254 8255 8266 8267 8275 8289 8296 8300 8301 8306 8307 8316 8326 8371 8374 8397 8410 8411 8416 8417 8514 8518 8536 8591 8595 8919 8999 9200 9211 9228 9240 9339 9341 9360 9365 9371 9374 9377 9380 9383 9384 9385 9413 9419 9420 9422 9423 9433 9434 9442 9487 9499 9505 9511 9518 9519 9536 9540 9545 9546 9565 9570 9571 9573 9590 9591 9597 9599 9607 9609 9610 9614 9669 9670 9671 9675 9683 9691 9692 9693 9712 9714 9727 9729 9748 9754 9755 9758 9762 9765 9769 9770 9784 9803 9808 9815 9817 9819 9825 9828 9837 9839 9860 9871 9872 9885 9888 9892 9899 9904 9905 9914 9919 9925 9928 9938 9940 9942 10124 10131 10170 10273 10324 10328 10329 10331 10346 10347 10419 10421 10459 10465 10466 10467 10468 10675 10752 10824 10826 10837 10848 10850 10879 10880 10883 10894 10899 10904 10909 10965 10968 11049 11058 11074 11278 11281 11344 11426 11480 11512 11520 11530 11541 11542 11543 11545 11565 11569 11603 11630 11632 11634 11638 11663 11816 12069 12136 12144 12162 12319 12336 12349 12353 12356 12414 12417 12419 12424 12431 12491 12612 12614 12624 12628 12629 12631 12634 12662 12665 12669 12670 13027 13028 14662 14715 14718 14720 14722 14726 14728 15144 15146 15323 15324 15336 15343 15344 15347 15352 15372 15374 15382 15510 15514 15518 15524 15525 15530 15531 15546 15550 15553 15554 15555 15556 15565 15578 15642 15646 15663 15668 15672 15889 15899 15900 16076 16077 16083 16093 16230 16232 16404 16406 16410 16411 16414 16431 16449 16452 16482 16501 16503 X3000 0F6B 16032 16061 X3001 0ECC 15997 15991 15994 16400 16407 X3003 0ECC 15994 X3399 127B 16726 15991 X3R10 0997 3517 3503 X3R20 0993 3511 3504 X3R30 09A0 3523 3505 X9929 100E 16186 16071 16165 16242 X9932 100D 16185 16069 16163 16240 X9MVE 1530 14922 2836 14962 XADCO 155A 14982 1605 16403 XADJS 1555 14960 1733 2909 2919 3748 15334 15577 XBD01 11DF 16603 16610 XBD02 11E7 16611 16600 XBDEC 11DB 16599 16159 16208 16386 16612 XCHBF 0821 3161 3153 XCHCD 0830 5871 5840 XCHTB 0834 5877 5837 XD001 1193 16523 16518 XD005 119C 16529 16537 XD010 11A3 16535 16525 XD015 11A7 16539 16533 XD900 1184 16509 16116 16239 16517 16527 XD901 1185 16510 16524 16536 XD902 100F 16187 16166 16243 16523 16528 16535 XD903 1186 16511 16530 XD904 1188 16513 16540 XDKRD 118A 16516 16167 16244 16519 16547 16548 XFLC 0302 7637 7539 XFLIN 0309 7643 7638 XGETR 0ED4 16001 16415 XR000 02F5 15314 3533 XR001 0282 15239 XR002 0331 15367 15355 XR003 034A 15389 15393 XR004 0366 15415 15418 XR005 036D 15424 15427 XR010 038A 15453 15423 15424 XR011 038F 15456 15455 XR012 039E 15466 15423 15455 XR013 0387 15447 15496 XR015 039F 15471 15428 XR020 03BA 15496 15499 XR025 0410 15569 15557 XR026 0411 15570 15505 XR027 0407 15561 15563 XR090 0926 15740 XR091 0926 15743 15738 15740 15893 XR100 0F82 16061 1724 XR104 0F8D 16068 16037 XR105 0F93 16076 16304 XR200 07AC 15640 15290 XR210 07B4 15646 15636 XR299 08C4 15917 15873 XR2A9 07FB 15691 15632 XR300 07B9 15651 15436 15641 XR399 07C0 15659 15661 16098 XR400 07C1 15660 15438 XR410 07CA 15668 15830 XR420 07AA 15635 15648 XR500 093C 15765 15439 15635 XR510 0941 15774 XR520 094A 15786 15783 XR530 0955 15793 15789 15791 XR540 095B 15799 15784 XR545 095F 15804 15792 XR550 0961 15807 15778 15782 15801 15817 15824 15825 XR553 0966 15811 15823 XR555 0969 15813 15810 XR556 0973 15820 15818 XR557 0974 15822 15814 15816 XR560 097A 15827 15779 15795 15802 XR570 097C 15828 15797 15805 XR600 088B 15883 15454 15662 15766 15914 XR605 0894 15889 16067 XR610 08A5 15899 15890 XR615 08A9 15902 16064 16066 XR620 08B5 15911 15888 XR630 08B7 15912 15909 XR6X2 07D2 15675 15464 15884 XR700 103A 16227 16109 XR705 1044 16238 16235 16379 XR707 104B 16244 16254 XR708 104D 16245 16355 XR709 1052 16249 16258 16263 16265 16267 16329 16344 16383 XR710 105A 16255 16253 XR712 105E 16260 16251 XR713 1064 16265 16344 16357 16359 XR730 1069 16272 16245 16262 XR732 106D 16277 16280 XR734 1074 16283 16286 XR790 10CF 16353 16236 16328 XR791 10A5 16315 16295 16299 16369 16373 XR792 10A6 16316 16358 XR793 10A4 16314 16312 16354 16362 XR794 1097 16312 16310 XR795 1094 16309 16290 16297 XR796 1096 16311 16287 XR797 10A7 16318 16283 XR798 10AD 16326 16277 XR799 10B0 16328 16273 XR800 0413 15577 15333 XR900 0282 15246 15237 15239 15379 15389 15398 XR901 02CA 15283 15315 XR902 02CB 15284 15348 15351 15371 XR903 02CE 15288 15394 XR905 02CC 15286 15381 XR906 02D0 15290 15406 XR907 02D2 15291 15415 XR908 0378 15436 15471 XR909 037A 15437 15478 XR910 037C 15438 15486 XR911 037E 15439 15491 XR912 02A6 15264 15547 XR913 07AA 15634 15632 XR914 093B 15760 15788 XR916 07E4 15688 15664 XR917 092A 15745 15767 15768 15808 15827 XR918 092E 15748 15776 XR919 0808 15308 15749 XR920 0930 15750 15752 XR921 0932 15751 15781 XR922 0934 15753 15790 15794 XR924 0936 15755 15796 15800 XR925 07D6 15681 15756 XR926 0938 15757 15804 XR928 0888 15879 15873 15887 XR929 0939 15758 15901 16070 XR930 0889 15880 15903 XR931 088A 15881 15329 15337 15353 15541 15542 15885 15908 15911 15912 XR932 093A 15759 15326 15330 15538 16068 XR933 02F3 15309 15325 15328 15540 XR934 02F4 15310 15331 XR935 07AB 15636 15643 XR936 0ED8 16003 XR937 0F70 16037 16063 16565 16571 XR938 0F72 16038 16082 16102 16107 XR939 0F73 16039 16084 16113 16117 XR940 0ED9 16004 XR941 11B4 16552 16567 XR942 1010 16188 16078 16080 16203 16231 16432 XR943 0F54 16008 16129 XR944 11B5 16553 16585 16604 XR945 11B6 16554 16587 XR946 11B7 16555 16588 XR947 11B8 16556 16143 16606 XR948 0F66 16026 16151 XR949 1011 16189 16170 16178 16247 16255 XR950 1012 16190 16171 16173 16179 16248 16250 16256 XR951 1013 16191 16111 16218 XR952 1014 16192 16112 16214 16219 16377 16389 16394 XR953 1015 16193 16175 16252 16529 16544 XR954 1016 16194 16201 16202 XR955 1017 16195 16209 XR956 1202 16639 16651 XR957 1205 16642 16115 16206 16387 16646 16657 XR958 0F6C 16033 16099 16234 XR959 0F6D 16034 16048 XR960 0F6E 16035 16081 XR990 02BA 15274 15507 15511 15515 XR992 0380 15440 15509 XR993 02B2 15270 15579 XR994 02C6 15280 15519 XR995 0382 15442 15513 15523 15529 XR996 0384 15444 15517 XR997 0386 15446 15527 XR999 0448 15587 15237 XRBFR 0EDC 16007 16047 16620 16621 16640 XRBRR 09AC 3533 3507 XRCL1 0F7B 16050 16053 XRCLR 0F76 16046 16055 16085 16375 16655 XRE12 105F 16262 16363 XRE16 10CC 16348 16314 XRE17 10C8 16343 16301 XRE18 10C9 16344 16356 XRE33 10B2 16332 16360 16371 XREND 112A 16419 16413 XREP1 1209 16647 XREP2 1217 16655 16647 XREP3 121B 16658 16645 XREPR 1206 16644 16216 16222 16348 16392 16659 XRER2 10F4 16381 16316 XRER3 1109 16398 16349 16365 16434 XRER4 10B5 16336 16333 XRER5 10C4 16338 16336 16376 16393 XRER6 1102 16392 XRER7 10C6 16341 16409 XRER8 10B1 16329 16390 16396 XRO28 0412 15571 15564 XRP01 11F3 16623 16631 XRP02 11FC 16632 16618 XRP03 11FE 16633 16619 XRP39 1204 16641 16668 16672 XRP90 1230 16679 16091 16094 16665 XRP92 1232 16681 16291 16361 16670 XRP93 0F74 16041 16089 16095 XRP94 1234 16683 16090 16096 16097 16680 XRP95 1248 16685 XRP96 1249 16687 16682 XRP97 125E 16690 16687 XRPCK 11EB 16617 16634 16648 XRPG1 0F9D 16089 16302 16343 XRPGH 121F 16664 16105 16293 16368 16650 16674 XRRPT 0376 15434 15378 15383 XRS10 1138 16436 16471 XRS30 1142 16448 16428 16459 XRS33 1149 16455 16474 16476 XRS35 1153 16464 16460 16462 16463 XRS40 115E 16472 16469 XRS42 1162 16475 16472 XRS50 1172 16490 16494 XRS53 1177 16495 16488 XRS55 1179 16496 16485 XRS91 113A 16440 16433 XRS92 113B 16441 16450 16453 16484 16502 XRS93 113C 16442 16451 16456 16473 16481 16483 XRS94 113D 16443 16454 16455 16461 16475 XRS95 113E 16444 XRS96 1140 16446 16427 16468 16496 XRSAS 1164 16480 16435 16504 XRSSR 112B 16423 16266 16436 XXR03 0357 15398 15402 YUK 0408 13183 12906 12908 13122 13123 13125 13141 13149 13205 13226 13654 Z 0F23 9276 9469 ZBYTE 03F8 13164 13157
ibm/ibm1130-lib/dmsr2v12/ptmasmbl_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator