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