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