ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph22.asm
LIST STATEMENT ALLOCATION
2 | *************************************************** K2200020
3 | *STATUS- VERSION 2, MODIFICATION 4 * K2200030
4 | * * K2200040
5 | * * K2200050
6 | *FUNCTION/OPERATION * K2200060
7 | * * INSERTS THE STATEMENT ALLOCATIONS INTO THE * K2200070
8 | * SYMBOL TABLE. * K2200080
9 | * * LISTS THE STATEMENT ALLOCATIONS ON THE * K2200090
10 | * PRINCIPAL PRINT DEVICE. * K2200100
11 | * * PRINTS ERROR MESSAGES C 97 AND C 98 IF REQ * K2200105
12 | * * K2200110
13 | *ENTRY POINTS * K2200120
14 | * * NEQ -THIS PHASE IS ENTERED VIA A CALL TO * K2200130
15 | * THE ROL SUBROUTINE FROM PHASE 20. * K2200140
16 | * * K2200150
17 | *INPUT- * K2200160
18 | * * STATEMENT STRING * K2200170
19 | * * SYMBOL TABLE * K2200180
20 | * * FCOM * K2200190
21 | * * K2200200
22 | *OUTPUT * K2200210
23 | * * PRINTED LIST OF STATEMENT ALLOCATIONS IF ANY* K2200220
24 | * * STATEMENT STRING * K2200230
25 | * * SYMBOL TABLE * K2200240
26 | * * FCOM * K2200250
27 | * * K2200260
28 | *EXTERNAL REFERENCES- * K2200270
29 | * SUBROUTINES- * K2200280
30 | * * ROL - INTERPHASE ROLLER SUBR ENTRY * K2200290
31 | * * NEWPG- PAGE EJECT SUBR INDIRECT ENTRY * K2200300
32 | * * PRINT- PRINT CONTROL SUBR ENTRY * K2200310
33 | * * LSTPR- PRINCIPAL PRINT SUBR ENTRY * K2200320
34 | * COMMA/DCOM * K2200330
35 | * * $PHSE- NO. OF PHASE NOW IN CORE * K2200340
36 | * * $CH12- CHANNEL 12 INDICATOR * K2200350
37 | * * K2200360
38 | *EXITS- * K2200370
39 | * NORMAL- * K2200380
40 | * EXIT IS MADE VIA A CALL TO THE ROL SUBR. * K2200390
41 | * ERROR- * K2200400
42 | * NONE * K2200410
43 | * * K2200420
44 | *TABLES/WORK AREAS * K2200430
45 | * * FCOM * K2200440
46 | * * STRING AREA * K2200450
47 | * * SYMBOL TABLE AREA * K2200460
48 | * * AREA * K2200470
49 | * * PAREA * K2200480
50 | * * K2200490
51 | *ATTRIBUTES- * K2200500
52 | * NONE * K2200510
53 | * * K2200520
54 | *NOTES- * K2200530
55 | * ERRORS DETECTED BY THIS PHASE - NONE * K2200540
56 | *************************************************** K2200550
57 | ABS K2200560
58 | * K2200570
59 | * SYSTEM EQUATES K2200580
60 | * K2200590
8000 61 | MEMRY EQU /8000 MODULO CORE SIZE K2200600
62 | * K2200610
0006 63 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2200620
0036 64 | $PBSY EQU /36 - OR 0 IF PRINT BUFFER FREE K2200630
0078 65 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2200640
66 | * K2200650
0034 67 | PHID EQU 52 ID NO. THIS PHASE K2200660
68 | * K2200670
69 | * K2200680
70 | * FORTRAN EQUATES K2200690
71 | * K2200700
7A23 72 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2200710
7FBC 73 | ROL EQU MEMRY-68 ROL SUBR ENTRY POINT K2200720
7F8B 74 | HEAD EQU ROL-49 PAGE HEADER AREA K2200730
7E42 75 | OVERP EQU HEAD-329 DEVICE PRINT SUBR AREA K2200740
7E0C 76 | NEWPG EQU OVERP-54 INDIRECT ENTRY FOR PG EJECT K2200750
7E0D 77 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2200760
7E0E 78 | PRINT EQU NEWPG+2 PRINT INTERFACE SUBR ENTRY K2200770
7E45 79 | LSTPR EQU OVERP+3 DEVICE PRINT SUBR ENTRY K2200780
7A23 80 | ORG OVERL K2200790
81 | * K2200800
82 | * K2200810
83 | * FORTRAN COMMUNICATION AREA K2200820
84 | * FCOM K2200830
85 | * K2200840
7A23 86 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2200845
7A24 87 | SOFS BSS 1 START OF STRING K2200850
7A25 88 | EOFS BSS 1 END OF STRING K2200860
7A26 89 | SOFST BSS 1 START OF SYMBOL TABLE K2200870
7A27 90 | SOFNS BSS 1 LENGTH OF PROGRAM K2200880
7A28 91 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2200890
7A29 92 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2200900
7A2A 93 | EOFST BSS 1 END OF SYMBOL TABLE K2200910
7A2B 94 | COMON BSS 1 RELATIVE ENTRY POINT K2200920
7A2C 95 | CSIZE BSS 1 SIZE OF COMMON K2200930
7A2D 96 | ERROR BSS 1 ERROR FLAG K2200940
97 | * BIT 15 - OVERLAP ERROR K2200950
98 | * BIT 14 - OTHER ERROR K2200960
99 | * BIT 13 SUBIN TOO LARGE 2-3 K2200970
100 | * BIT 11 ORIGIN IN SUBPROG 2-4 K2200975
101 | * BIT 10 OVLAP IN PHASE 21 2-3 K2200980
102 | * BIT 9 INVALID ORIGIN 2-4 K2200985
7A2E 103 | FNAME BSS 1 PROGRAM NAME WD 1 K2200990
7A2F 104 | BSS 1 * WD 2 K2201000
7A30 105 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2201010
7A31 106 | CCWD BSS 1 CONTROL CARD WORD K2201020
107 | * BIT 15- TRANSFER TRACE K2201030
108 | * BIT 14- ARITHMETIC TRACE K2201040
109 | * BIT 13- EXTENDED PRECISION K2201050
110 | * BIT 12- LIST SYMBOL TABLE K2201060
111 | * BIT 11- LIST SUBP NAMES K2201070
112 | * BIT 10- LIST SOURCE PROGRAM K2201080
113 | * BIT 9- ONE WORD INTEGERS K2201090
114 | * BIT 8- ORIGIN 2-4 K2201095
115 | * BITS 7-0 NOT USED K2201100
7A32 116 | IOCS BSS 1 IOCS CONTROL CARD WORD K2201110
117 | * BIT 15- CARD K2201120
118 | * BIT 14- PAPERTAPE K2201130
119 | * BIT 13- TYPEWRITER K2201140
120 | * BIT 12- 1403 PRINTER K2201150
121 | * BIT 11- 2501 READER K2201160
122 | * BIT 10- KEYBOARD K2201170
123 | * BIT 9- 1442 PUNCH K2201180
124 | * BIT 8- DISK K2201190
125 | * BIT 7- 1132 PRINTER K2201200
126 | * BIT 3- PLOTTER K2201210
127 | * BIT 1- UNFORMATTED DISK K2201220
7A33 128 | DFCNT BSS 1 DEFINE FILE COUNT K2201230
129 | * K2201240
130 | * K2201250
131 | * END OF FORTRAN COMMUNICATION K2201260
132 | * AREA K2201270
133 | *************************************************** K2201280
134 | * THE SWITCHES USED IN PHASE 23 FOLLOW K2201290
135 | * IF POSITIVE, THE SWITCH IS TRANSFER=T K2201300
136 | * IF ZERO, THE SWITCH IS NORMAL=N K2201310
137 | * SWITCH HTEST K2201320
138 | * N= HEADER NOT PRINTED K2201330
139 | * T= HEADER ALREADY PRINTED K2201340
140 | * K2201350
141 | * K2201360
7A36 142 | BPHAR EQU *+2 ENTRY ADDRESS K2201370
7A34 0000 143 | DC 0 WORK AREA FOR LOADER K2201380
7A35 FFCC 144 | DC -52 -PHASE ID FOR SLET LOOKUP K2201390
7A36 019C 145 | DC NXTPH-*+1 TABLE FOR SLET ENTRIES K2201400
7A37 0001 146 | DC 1 NO. OF SLET ENTRIES K2201410
7A36 147 | ORG *-2 ENTRY ADDRESS K2201420
7A36 4C00 7A60 148 | NEQ BSC L ENT GO TO ENTRY K2201430
149 | * K2201440
150 | * PRINT AREA K2201450
151 | * K2201460
7A38 000B 152 | WDCNT DC 11 WORD COUNT K2201470
7A39 E2E3 153 | PAREA DC /E2E3 ST K2201480
7A3A C1E3 154 | DC /C1E3 AT K2201490
7A3B C5D4 155 | DC /C5D4 EM K2201500
7A3C C5D5 156 | DC /C5D5 EN K2201510
7A3D E340 157 | DC /E340 T K2201520
7A3E C1D3 158 | DC /C1D3 AL K2201530
7A3F D3D6 159 | DC /D3D6 LO K2201540
7A40 C3C1 160 | DC /C3C1 CA K2201550
7A41 E3C9 161 | DC /E3C9 TI K2201560
7A42 D6D5 162 | DC /D6D5 ON K2201570
7A43 E240 163 | DC /E240 S K2201580
164 | * K2201590
165 | * THIS SUBROUTINE PRINTS THE HEADER K2201600
166 | * 'STATEMENT ALLOCATIONS' AND IS THEN K2201610
167 | * WIPED OUT WHEN THE PRINT AREA IS K2201620
168 | * CLEARED. K2201630
169 | * K2201640
7A44 C017 170 | PRTHD LD PRTH1 LOAD LINE SPACE PARAMETER K2201650
7A45 4400 7E45 171 | BSI L LSTPR SPACE PRINTER ONE SPACE K2201660
172 | * K2201670
7A47 C480 0006 173 | LD I $CH12 TEST CHANNEL 12 INDICATOR K2201680
7A49 44A0 7E0C 174 | BSI I NEWPG,Z EJECT PAGE IF SET K2201690
175 | * K2201700
7A4B C812 176 | LDD PRTH2 LOAD PRINT PARAMETERS K2201710
7A4C 4400 7E45 177 | BSI L LSTPR GO PRINT SECTION HEADER K2201720
7A4E C400 0036 178 | LD L $PBSY K2201730
7A50 4C30 7A4E 179 | BSC L *-4,-Z LOOP IF PRINT BUFFER BUSY K2201740
180 | * K2201750
181 | * K2201760
7A52 6700 7AE8 182 | LDX L3 PTHD+2 CRIPPLE ENTRY TO THIS SUBR K2201770
7A54 6F00 7AE7 183 | STX L3 PTHD+1 * K2201780
7A56 6F00 7B69 184 | STX L3 BLKPA DUMMY EXIT FROM BLANK SUBR K2201790
7A58 6700 7B30 185 | LDX L3 Z LOAD WORK AREA POINTER K2201800
7A5A 4C00 7B6A 186 | BSC L BLKPA+1 GO BLANK PRINT AREA K2201810
187 | * K2201820
7A5C 7002 188 | PRTH1 DC /7002 PRINT SPACE PARAMETER K2201830
7A5E 189 | BSS E 0 K2201840
7A5E 7001 190 | PRTH2 DC /7001 PRINT PARAMETER K2201850
7A5F 7A38 191 | DC WDCNT MESSAGE ADDRESS K2201860
192 | * K2201870
193 | * K2201880
7A60 6134 194 | ENT LDX 1 PHID GET ID THIS PHASE K2201890
7A61 6D00 0078 195 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2201900
7A63 6700 7B30 196 | LDX L3 Z INITIALIZE WK AREA PT K2201910
7A65 C400 7A2D 197 | LD L ERROR TEST FOR ERRORS K2201920
7A67 4C20 7B74 198 | BSC L SERCK,Z BRANCH IF ANY ERROR 2-1 K2201930
199 | * INITIALIZE K2201940
7A69 6580 7A24 200 | LDX I1 SOFS INITIALIZE I/P STRING PT K2201950
7A6B 6680 7A24 201 | LDX I2 SOFS INITIALIZE O/P STRING PT K2201960
7A6D 6F00 7A36 202 | STX L3 NEQ SAVE WORK AREA POINTER K2201970
203 | * K2201972
7A6F C0C1 204 | LD CCWD IS THIS AN ABSOLUTE 2-4 K2201974
7A70 1008 205 | SLA 8 COMPILATION 2-4 K2201976
7A71 4828 206 | BSC +Z NO - SKIP 2-4 K2201978
7A72 D3FF 207 | STO 3 ORGSW-Z YES - SET ORIGIN SW 2-4 K2201980
7A73 703D 208 | MDX M1000 CONTINUE 2-4 K2201982
209 | * K2201984
7AB1 210 | ORG PAREA+120 GET OUTSIDE OF PRINT AREA K2201990
211 | * K2202000
212 | * CHECK FOR STATEMENT NUMBER K2202010
7AB1 C100 213 | M1000 LD 1 0 IS STATEMENT NUMBERED K2202020
7AB2 4C04 7AC8 214 | BSC L ALOC,E BRANCH IF YES K2202030
215 | * K2202040
216 | * CHECK FOR ARITH STMNT FUNCTN K2202050
7AB4 E311 217 | AND 3 HF800-Z IS STATEMENT AN ARITHMETIC K2202060
7AB5 9312 218 | S 3 HD000-Z *STATEMENT FUNCTION K2202070
7AB6 4C18 7AC8 219 | BSC L ALOC,+- BRANCH IF YES K2202080
7AB8 D30B 220 | STO 3 IDM-Z SAVE MODIFIED ID K2202090
221 | * K2202100
222 | * MOVE UNALTERED K2202110
7AB9 C100 223 | MOVE LD 1 0 GET STATEMENT NORM K2202120
7ABA E313 224 | AND 3 H07FC-Z * K2202130
7ABB D30C 225 | STO 3 NORM-Z SAVE STATEMENT NORM K2202140
7ABC C100 226 | MOVE1 LD 1 0 MOVE ONE WORD OF STATEMENT K2202150
7ABD D200 227 | STO 2 0 * K2202160
7ABE 7201 228 | MDX 2 1 INCREMENT I/P POINTER K2202170
7ABF 7101 229 | MDX 1 1 INCREMENT O/P POINTER K2202180
7AC0 74FC 7B3C 230 | MDX L NORM,-4 SKIP IF MOVE COMPLETE K2202190
7AC2 70F9 231 | MDX MOVE1 GO MOVE NEXT WORD K2202200
7AC3 C30B 232 | LD 3 IDM-Z RELOAD MODIFIED ID K2202210
7AC4 9302 233 | S 3 ENDID-Z TEST IF -END- K2202220
7AC5 4C18 7BBA 234 | BSC L EXIT,+- BRANCH IF YES K2202230
7AC7 70E9 235 | MDX M1000 GO CHECK NEXT STMNT K2202240
236 | * K2202250
237 | * FIND SYMBOL TABLE ENTRY K2202260
7AC8 C101 238 | ALOC LD 1 1 LD SYMBOL TABLE PT WD K2202270
7AC9 E314 239 | AND 3 H07FF-Z MASK TO EXPOSE ENTRY NO. K2202280
7ACA D30D 240 | STO 3 STENT-Z SAVE IN WORK AREA K2202290
7ACB C400 7A26 241 | LD L SOFST LOAD START OF SYMBOL TABLE K2202300
7ACD 930D 242 | S 3 STENT-Z SUBTRACT 3*ENTRY NO. K2202310
7ACE 930D 243 | S 3 STENT-Z * K2202320
7ACF 930D 244 | S 3 STENT-Z * K2202330
7AD0 8315 245 | A 3 FOUR-Z +4 = STMNT NO. ENTRY ADDR K2202340
7AD1 D30D 246 | STO 3 STENT-Z SAVE ADDRESS OF ENTRY K2202350
247 | * K2202360
248 | * CHECK IF LIST DESIRED K2202370
7AD2 C400 7A31 249 | LD L CCWD LOAD CONTROL CARD WORD K2202380
7AD4 100C 250 | SLA 12 TEST IF LIST SYMBOLS REQ K2202390
7AD5 4C10 7B27 251 | BSC L TKOFF,- BRANCH IF NOT K2202400
7AD7 C102 252 | LD 1 2 LOAD ADDRESS K2202410
7AD8 D30E 253 | STO 3 LOCC2-Z SAVE IN WORK AREA K2202420
254 | * K2202430
255 | * GET NAME FROM SYM. TABLE K2202440
7AD9 C480 7B3D 256 | LD I STENT GET NAME WORD 1 K2202450
7ADB D300 257 | STO 3 STONA-Z STORE NAME WORD 1 K2202460
7ADC 7401 7B3D 258 | MDX L STENT,1 K2202470
7ADE C480 7B3D 259 | LD I STENT GET NAME WORD 2 AND STORE K2202480
7AE0 D301 260 | STO 3 STONA-Z+1 K2202490
7AE1 74FF 7B3D 261 | MDX L STENT,-1 K2202500
262 | * K2202510
263 | * K2202520
264 | * LIST ALLOCATED STATEMENT NUMBER K2202530
265 | * K2202540
266 | * K2202550
267 | * TEST IF GENERATED STATEMENT NUMBER K2202560
268 | * (GENER STMT NUMBER HAS NAME = 0) K2202570
269 | * IF GENERATED STMT NUMBER, DO NOT K2202580
270 | * PRINT K2202590
271 | * K2202600
7AE3 C300 272 | LD 3 STONA-Z LOAD NAME WORD 1 K2202610
7AE4 4C18 7B27 273 | BSC L TKOFF,+- BRANCH IF ZERO(NOT PRINTED) K2202620
274 | * K2202630
275 | * TEST IF HEADER PRINTED K2202640
7AE6 4C00 7A44 276 | PTHD BSC L PRTHD K2202650
277 | * K2202660
7AE8 C316 278 | LD 3 H4000-Z BLANK TO PRINT AREA K2202670
7AE9 4060 279 | BSI TOPAU * K2202680
7AEA C300 280 | LD 3 STONA-Z STORED NAME K2202690
7AEB 4067 281 | BSI TOPA O/P FIRST CHAR OF NAME K2202700
7AEC C300 282 | LD 3 STONA-Z K2202710
7AED 1006 283 | SLA 6 K2202720
7AEE 4064 284 | BSI TOPA O/P SECOND CHAR OF NAME K2202730
7AEF CB00 285 | LDD 3 STONA-Z K2202740
7AF0 108C 286 | SLT 12 K2202750
7AF1 4061 287 | BSI TOPA O/P THIRD CHAR OF NAME K2202760
7AF2 C301 288 | LD 3 STONA+1-Z K2202770
7AF3 1002 289 | SLA 2 K2202780
7AF4 405E 290 | BSI TOPA O/P FOURTH CHAR OF NAME K2202790
7AF5 C301 291 | LD 3 STONA+1-Z K2202800
7AF6 1008 292 | SLA 8 K2202810
7AF7 405B 293 | BSI TOPA O/P FIFTH CHAR OF NAME K2202820
7AF8 C03F 294 | LD H7E00 O/P EQUAL SIGN TO K2202830
7AF9 4050 295 | BSI TOPAU *PRINT AREA K2202840
296 | * K2202850
7AFA C3FF 297 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2202851
7AFB 4C18 7B07 298 | BSC L PTHD1,+- NO - CONTINUE 2-4 K2202852
7AFD C30E 299 | LD 3 LOCC2-Z YES - RELOCATE THE 2-4 K2202853
7AFE 8400 7A23 300 | A L ORG ADDRESS 2-4 K2202854
7B00 D30E 301 | STO 3 LOCC2-Z STORE BACK 2-4 K2202855
7B01 4C10 7B07 302 | BSC L PTHD1,- BRANCH IF POSITIVE 2-4 K2202856
7B03 7440 7A2D 303 | MDX L ERROR,64 INDICATE ERROR 86 2-4 K2202857
7B05 4C00 7BBC 304 | BSC L EXIT+2 EXIT 2-4 K2202858
305 | * K2202859
306 | * CONVERSION OF ADDRESS BEGINS K2202860
7B07 C30E 307 | PTHD1 LD 3 LOCC2-Z STORED ALLOCATION K2202870
7B08 180C 308 | SRA 12 K2202880
7B09 4054 309 | BSI TOPAH FIRST CHAR TO PRINT AREA K2202890
7B0A C30E 310 | LD 3 LOCC2-Z K2202900
7B0B 1808 311 | SRA 8 K2202910
7B0C 4051 312 | BSI TOPAH SECOND CHAR K2202920
7B0D C30E 313 | LD 3 LOCC2-Z K2202930
7B0E 1804 314 | SRA 4 K2202940
7B0F 404E 315 | BSI TOPAH THIRD CHAR K2202950
7B10 C30E 316 | LD 3 LOCC2-Z K2202960
7B11 404C 317 | BSI TOPAH FOURTH CHAR K2202970
7B12 C316 318 | LD 3 H4000-Z K2202980
7B13 4036 319 | BSI TOPAU FIFTH CHAR K2202990
320 | * K2203000
321 | * TEST IF PRINT AREA FULL K2203010
322 | * IF FULL, PRINT A LINE K2203020
323 | * K2203030
7B14 C304 324 | LD 3 PAP-Z LOAD PRINT AREA POINTER K2203040
7B15 901F 325 | S LNEND TEST IF END OF LINE K2203050
7B16 4C28 7B27 326 | BSC L TKOFF,+Z RETURN IF LINE UNFILLED K2203060
327 | * K2203070
328 | * LINE FULL, PRINT IT K2203080
7B18 C01A 329 | LD PAPOR LOAD PRINT AREA START ADDR K2203090
7B19 D400 7B34 330 | STO L PAP RESET PRINT AREA POINTER K2203100
7B1B D400 7E0D 331 | STO L AREA SET INTO INTERFACE SUBR K2203110
7B1D C02B 332 | LD D60 K2203120
7B1E D400 7A38 333 | STO L WDCNT SET WORD COUNT IN PRINT AREA K2203130
7B20 4400 7E0E 334 | BSI L PRINT PRINT LINE K2203140
7B22 4046 335 | BSI BLKPA BLANK THE PRINT AREA K2203150
336 | * K2203160
337 | * TEST IF END OF PAGE K2203170
7B23 C480 0006 338 | LD I $CH12 LOAD CHANNEL 12 SWITCH K2203180
7B25 44A0 7E0C 339 | BSI I NEWPG,Z EJECT PAGE IF ON K2203190
7B27 C102 340 | TKOFF LD 1 2 LOAD SYMBOL ALLOCATION K2203200
7B28 D480 7B3D 341 | STO I STENT PLACE INTO SYMBOL TABLE K2203210
7B2A C100 342 | LD 1 0 K2203220
7B2B 930F 343 | S 3 EIGHT-Z ADJUST STATEMENT NORM BY 2 K2203230
7B2C 7102 344 | MDX 1 2 INCREMENT I/P POINTER BY 2 K2203240
7B2D D100 345 | STO 1 0 STORE ADJ ID INTO I/P STRING K2203250
7B2E 708A 346 | MDX MOVE GO MOVE STMNT TO O/P STRING K2203260
347 | * K2203270
348 | * CONSTANTS, TEMP STORAGE K2203280
7B2F 0000 349 | ORGSW DC 0 ORIGIN SWITCH 2-4 K2203285
7B30 350 | BSS E 0 K2203290
7B30 351 | Z EQU * WORK AREA POINTER ADDRESS K2203300
7B30 0000 352 | STONA DC 0 STORE NAME WORD 1 K2203310
7B31 0000 353 | DC 0 STORED NAME WORD 2 K2203320
7B32 4000 354 | ENDID DC /1000-/D000 END ID TEST CONSTANT K2203330
7B33 7A39 355 | PAPOR DC PAREA PRINT AREA START ADDR K2203340
7B34 7A39 356 | PAP DC PAREA PRINT AREA POINTER K2203350
7B35 7AAF 357 | LNEND DC PAREA+118 TESTVALUE FOR END OF LINE K2203360
7B36 0000 358 | STOCH DC 0 STORED CHARACTER K2203370
7B37 C000 359 | HC000 DC /C000 CONSTANT K2203380
7B38 7E00 360 | H7E00 DC /7E00 CONSTANT K2203390
7B39 000A 361 | H000A DC /000A CONSTANT K2203400
7B3A 0039 362 | H0039 DC /0039 CONSTANT K2203410
7B3B 0000 363 | IDM DC *-* MODIFIED ID K2203420
7B3C 0000 364 | NORM DC *-* STATEMENT NORM K2203430
7B3D 0000 365 | STENT DC *-* WORK AREA K2203440
7B3E 0000 366 | LOCC2 DC *-* ALLOCATION STORAGE K2203450
7B3F 0008 367 | EIGHT DC 8 CONSTANT K2203460
7B40 0001 368 | ONE DC 1 CONSTANT K2203470
7B41 F800 369 | HF800 DC /F800 CONSTANT K2203480
7B42 D000 370 | HD000 DC /D000 CONSTANT K2203490
7B43 07FC 371 | H07FC DC /07FC CONSTANT K2203500
7B44 07FF 372 | H07FF DC /07FF CONSTANT K2203510
7B45 0004 373 | FOUR DC 4 CONSTANT K2203520
7B46 4000 374 | H4000 DC /4000 CONSTANT K2203530
7B47 3F00 375 | H3F00 DC /3F00 CONSTANT K2203540
7B48 000F 376 | H000F DC /000F CONSTANT K2203550
7B49 003C 377 | D60 DC 60 CONSTANT K2203560
378 | * K2203570
379 | * SUBROUTINE K2203580
380 | * CHAR IN A-REG TO PRINT AREA UNCHANGED K2203590
381 | * K2203600
7B4A 0000 382 | TOPAU DC 0 LINK K2203610
7B4B D0EA 383 | STO STOCH STORE CHARACTER K2203620
7B4C C0E9 384 | TOPAX LD STOCH LOAD CHARACTER K2203630
7B4D D480 7B34 385 | STO I PAP PLACE CHAR INTO PRINT AREA K2203640
7B4F 7401 7B34 386 | MDX L PAP,1 MOVE PRINT AREA POINTER K2203650
7B51 4C80 7B4A 387 | BSC I TOPAU RETURN K2203660
388 | * K2203670
389 | * SUBROUTINE K2203680
390 | * CONVERT CHAR IN A-REG INTO K2203690
391 | * EBC-CODE, THEN MOVE TO PRINT AREA K2203700
392 | * K2203710
7B53 0000 393 | TOPA DC 0 LINK K2203720
7B54 E317 394 | AND 3 H3F00-Z MASK TO LEAVE CHAR K2203730
7B55 4C18 7B5C 395 | BSC L TOPA2,+- BR IF BLANK K2203740
396 | * K2203750
397 | * NOTE K2203760
398 | * IF OTHER SPECIAL CHARACTERS THAN K2203770
399 | * BLANK ARE EXPECTED, TESTING SHOULD K2203780
400 | * BE HERE K2203790
7B57 E8DF 401 | OR HC000 CONVERT TO EBCDIC K2203800
7B58 D0DD 402 | TOPA1 STO STOCH STORE CHARACTER K2203810
7B59 C0F9 403 | LD TOPA SET UP TO RETURN FROM K2203820
7B5A D0EF 404 | STO TOPAU *TOPAU SUBR. K2203830
7B5B 70F0 405 | MDX TOPAX GO OUTPUT CHARACTER K2203840
7B5C C316 406 | TOPA2 LD 3 H4000-Z LOAD BLANK CHARACTER K2203850
7B5D 70FA 407 | MDX TOPA1 GO OUTPUT K2203860
408 | * K2203870
409 | * K2203880
410 | * SUBROUTINE K2203890
411 | * MOVE HEXADEC CHAR TO PRINT AREA K2203900
412 | * K2203910
7B5E 0000 413 | TOPAH DC 0 LINK K2203920
7B5F E400 7B48 414 | AND L H000F MASK ALL BUT NUMERIC DIGIT K2203930
7B61 90D7 415 | S H000A TEST IF GT NINE K2203940
7B62 4828 416 | BSC Z+ SKIP IF GT NINE K2203950
7B63 80D6 417 | A H0039 START NUMERIC CONVERSION K2203960
7B64 8310 418 | A 3 ONE-Z START ALPHA CONVERSION K2203970
7B65 1008 419 | SLA 8 SHIFT TO HIGH ORDER BITS K2203980
7B66 40EC 420 | BSI TOPA FINISH EBC CNVT AND MOVE K2203990
7B67 4C80 7B5E 421 | BSC I TOPAH RETURN K2204000
422 | * K2204010
423 | * K2204020
424 | * SUBROUTINE K2204030
425 | * BLANK TO PRINT AREA K2204040
426 | * K2204050
7B69 0000 427 | BLKPA DC 0 LINK K2204060
7B6A C316 428 | LD 3 H4000-Z LOAD EBCDIC BLANK K2204070
7B6B 6388 429 | LDX 3 -120 INITLZ TO CLEAR PRINT AREA K2204080
7B6C D700 7AB1 430 | BLKP1 STO L3 PAREA+120 ST BLANK IN PRINT AREA K2204090
7B6E 7301 431 | MDX 3 1 SKIP WHEN COMPLETE K2204100
7B6F 70FC 432 | MDX BLKP1 CONTINUE K2204110
7B70 6700 7B30 433 | LDX L3 Z RE-INITIALIZE WORK AREA PT K2204120
7B72 4C80 7B69 434 | BSC I BLKPA RETURN K2204130
435 | * 2-1 K2204140
436 | * MAKE CHECK FOR ERRORS WHICH MAY HAVE K2204150
437 | * OCCURRED SINCE THE ERROR PHASE 2-1 K2204160
438 | * 2-1 K2204170
7B74 C400 7A2D 439 | SERCK LD L ERROR GET ERROR WORD 2-1 K2204180
7B76 1802 440 | SRA 2 SHIFT OUT NORMAL ERROR 2-1 K2204190
7B77 4C18 7BBC 441 | BSC L EXIT+2,+- BRANCH IF NORMAL ERROR 2-1 K2204200
7B79 4C04 7B81 442 | BSC L SUBIN,E BRANCH IF SUBIN TOO LG 2-3 K2204210
7B7B 100C 443 | SLA 12 BRANCH IF NOT 2-4 K2204212
7B7C 4C10 7BBC 444 | BSC L EXIT+2,- OVERLAP ERROR 2-4 K2204214
7B7E 6500 7BA6 445 | LDX L1 TEXT2 LOAD OVLAP MESSAGE 2-3 K2204220
7B80 7002 446 | MDX *+2 SKIP 2-1 K2204230
7B81 6500 7B92 447 | SUBIN LDX L1 TEXT1 LOAD SUBIN MESSAGE 2-3 K2204240
7B83 690D 448 | STX 1 EMES1+1 SET MESSAGE 1 2-1 K2204250
7B84 C400 7A5C 449 | LD L PRTH1 LOAD SPACE PARAMETER 2-1 K2204260
7B86 4400 7E45 450 | BSI L LSTPR GO SKIP A LINE 2-1 K2204270
7B88 C480 0006 451 | LD I $CH12 CHECK CHANNEL 12 2-1 K2204280
7B8A 4420 7E0C 452 | BSI L NEWPG,Z BRANCH FOR SKIP 2-1 K2204290
7B8C C803 453 | LDD EMES1 LOAD PRINT PARAMETERS 2-1 K2204300
7B8D 4400 7E45 454 | BSI L LSTPR GO PRINT 2-1 K2204310
7B8F 702C 455 | MDX EXIT+2 EXIT 2-1 K2204360
7B90 456 | BSS E 2-1 K2204370
7B90 7001 457 | EMES1 DC /7001 PRINT PARAMETERS 2-1 K2204380
7B91 0000 458 | DC *-* 2-1 K2204390
7B92 0013 459 | TEXT1 DC 19 WORD COUNT 2-4 K2204420
7B93 40C3 40F9 F840 E2E4 460 | EBC . C 98 SUBROUTINE INITIALIZE . 2-4 K2204430
C2D9 D6E4 E3C9 D5C5 |
40C9 D5C9 E3C9 C1D3 |
C9E9 C540 |
7BA1 E3D6 D640 D3C1 D9C7 461 | EBC .TOO LARGE . 2-4 K2204440
C540 |
7BA6 0013 462 | TEXT2 DC 19 WORD COUNT 2-4 K2204450
7BA7 40C3 40F9 F740 D7D9 463 | EBC . C 97 PROGRAM LENGTH EXCEEDS. 2-4 K2204460
D6C7 D9C1 D440 D3C5 |
D5C7 E3C8 40C5 E7C3 |
C5C5 C4E2 |
7BB5 40C3 C1D7 C1C3 C9E3 464 | EBC . CAPACITY . 2-4 K2204470
E840 |
465 | * 2-1 K2204480
466 | * 2-1 K2204490
7BBA 6E00 7A25 467 | EXIT STX L2 EOFS STORE END OF STRING ADDR K2204500
7BBC C304 468 | LD 3 PAP-Z TEST IF PRINT AREA IS K2204510
7BBD 9303 469 | S 3 PAPOR-Z *PARTIALLY FILLED. K2204520
7BBE 4C18 7BC8 470 | BSC L EXIT1,+- EXIT IF NOT K2204530
7BC0 C303 471 | LD 3 PAPOR-Z SET UP TO PRINT PARTIALLY K2204540
7BC1 D400 7E0D 472 | STO L AREA *FILLED LINE. K2204550
7BC3 C319 473 | LD 3 D60-Z * K2204560
7BC4 D400 7A38 474 | STO L WDCNT * K2204570
7BC6 4400 7E0E 475 | BSI L PRINT PRINT PARTIALLY FILLED LINE K2204580
7BC8 C480 0006 476 | EXIT1 LD I $CH12 LOAD CHANNEL 12 SWITCH K2204590
7BCA 44A0 7E0C 477 | BSI I NEWPG,Z EJECT PAGE IF ON K2204600
7BCC 6580 7BD3 478 | LDX I1 NXTPH+1 LOAD PARAM FOR READING K2204610
7BCE C805 479 | LDD NXTPH+2 NEXT PHASE K2204620
7BCF 4C00 7FBC 480 | BSC L ROL GO TO READ NEXT PHASE K2204630
7BD2 481 | BSS E 0 K2204640
7BD2 0035 482 | NXTPH DC 53 ID OF NEXT PHASE K2204650
7BD3 0000 483 | DC *-* CORE ADDRESS NEXT PHASE K2204660
7BD4 0000 484 | DC *-* WORD COUNT NEXT PHASE K2204670
7BD5 0000 485 | DC *-* SECTOR ADDRESS NEXT PHASE K2204680
7BD6 486 | BSS 223 PATCH AREA 2-4 K2204690
7CB5 0000 487 | DC 0 K2204700
7CB6 488 | END BPHAR-2 K2204710
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CH12 0006 63 173 338 451 476
$PBSY 0036 64 178
$PHSE 0078 65 195
ALOC 7AC8 238 214 219
AREA 7E0D 77 331 472
BLKP1 7B6C 430 432
BLKPA 7B69 427 184 186 335 434
BPHAR 7A36 142 488
CCWD 7A31 106 204 249
COMON 7A2B 94
CSIZE 7A2C 95
D60 7B49 377 332 473
DFCNT 7A33 128
EIGHT 7B3F 367 343
EMES1 7B90 457 448 453
ENDID 7B32 354 233
ENT 7A60 194 148
EOFS 7A25 88 467
EOFST 7A2A 93
ERROR 7A2D 96 197 303 439
EXIT 7BBA 467 234 304 441 444 455
EXIT1 7BC8 476 470
FNAME 7A2E 103
FOUR 7B45 373 245
H000A 7B39 361 415
H000F 7B48 376 414
H0039 7B3A 362 417
H07FC 7B43 371 224
H07FF 7B44 372 239
H3F00 7B47 375 394
H4000 7B46 374 278 318 406 428
H7E00 7B38 360 294
HC000 7B37 359 401
HD000 7B42 370 218
HEAD 7F8B 74 75
HF800 7B41 369 217
IDM 7B3B 363 220 232
IOCS 7A32 116
LNEND 7B35 357 325
LOCC2 7B3E 366 253 299 301 307 310 313 316
LSTPR 7E45 79 171 177 450 454
M1000 7AB1 213 208 235
MEMRY 8000 61 72 73
MOVE 7AB9 223 346
MOVE1 7ABC 226 231
NEQ 7A36 148 202
NEWPG 7E0C 76 77 78 174 339 452 477
NORM 7B3C 364 225 230
NXTPH 7BD2 482 145 478 479
ONE 7B40 368 418
ORG 7A23 86 300
ORGSW 7B2F 349 207 297
OVERL 7A23 72 80
OVERP 7E42 75 76 79
PAP 7B34 356 324 330 385 386 468
PAPOR 7B33 355 329 469 471
PAREA 7A39 153 210 355 356 357 430
PHID 0034 67 194
PRINT 7E0E 78 334 475
PRTH1 7A5C 188 170 449
PRTH2 7A5E 190 176
PRTHD 7A44 170 276
PTHD 7AE6 276 182 183
PTHD1 7B07 307 298 302
ROL 7FBC 73 74 480
SERCK 7B74 439 198
SOFGT 7A29 92
SOFNS 7A27 90
SOFS 7A24 87 200 201
SOFST 7A26 89 241
SOFXT 7A28 91
SORF 7A30 105
STENT 7B3D 365 240 242 243 244 246 256 258 259 261 341
STOCH 7B36 358 383 384 402
STONA 7B30 352 257 260 272 280 282 285 288 291
SUBIN 7B81 447 442
TEXT1 7B92 459 447
TEXT2 7BA6 462 445
TKOFF 7B27 340 251 273 326
TOPA 7B53 393 281 284 287 290 293 403 420
TOPA1 7B58 402 407
TOPA2 7B5C 406 395
TOPAH 7B5E 413 309 312 315 317 421
TOPAU 7B4A 382 279 295 319 387 404
TOPAX 7B4C 384 405
WDCNT 7A38 152 191 333 474
Z 7B30 351 185 196 207 217 218 220 224 225 232 233 239 240
242 243 244 245 246 253 257 260 272 278 280 282
285 288 291 297 299 301 307 310 313 316 318 324
343 394 406 418 428 433 468 469 471 473