ibm:ibm1130-lib:dmsr2v12:kforph24_lst
KFORPH24
| Table Of Contents |
|---|
|
- kforph24.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph24.asm 1130 FORTRAN COMPILER PHASE 24 2 | *************************************************** K2400020 3 | * * K2400030 4 | *STATUS- VERSION 2, MODIFICATION 4 * K2400040 5 | * * K2400050 6 | *FUNCTION/OPERATION- * K2400060 7 | * * LIST CORE REQUIREMENTS * K2400070 8 | * * CONVERT CONSTANTS TO DECIMAL AND LIST * K2400080 9 | * CONSTANTS AND THEIR ADDRESSES AT USER'S * K2400090 10 | * REQUEST. REAL CONSTANTS ARE LISTED FIRST, * K2400100 11 | * FOLLOWED BY INTEGER CONSTANTS * K2400110 12 | * * K2400120 13 | *ENTRY POINTS- * K2400130 14 | * * NEQ ENTERED FROM ROL SUBROUTINE * K2400140 15 | * * K2400150 16 | *INPUT- * K2400160 17 | * * CONSISTS OF THE SYMBOL TABLE GENERATED IN * K2400170 18 | * PREVIOUS PHASES AND THE FORTRAN * K2400180 19 | * COMMUNICATION AREA FROM PREVIOUS PHASES * K2400190 20 | * * K2400200 21 | *OUTPUT- * K2400210 22 | * * LISTING OF REAL AND INTEGER CONSTANTS * K2400220 23 | * * LISTING OF CORE REQUIREMENTS * K2400230 24 | * * K2400240 25 | *EXTERNAL REFERENCES- * K2400250 26 | * SUBROUTINES- * K2400260 27 | * * ROL-ROUTINE TO READ NEXT PHASE * K2400270 28 | * * PRINT-ROUTINE TO PRINT A LINE * K2400280 29 | * * LSTPR-ROUTINE TO PRINT * K2400290 30 | * * K2400300 31 | * COMMA/DCOM * K2400310 32 | * * $PHSE * K2400320 33 | * * $CHN12 * K2400330 34 | * * K2400340 35 | *EXITS- * K2400350 36 | * NORMAL- * K2400360 37 | * * EXIT-THE INTERPHASE ROL ROUTINE IS CALLED* K2400370 38 | * TO READ IN THE NEXT PHASE. * K2400380 39 | * * K2400390 40 | * ERROR-N/A * K2400400 41 | * * K2400410 42 | *TABLES/WORK AREAS * K2400420 43 | * PROGRAMMED SWITCHES- * K2400430 44 | * THE SWITCHES USED IN PHASE 24 FOLLOW. * K2400440 45 | * IF POSITIVE, THE SWITCH IS TRANSFER=T * K2400450 46 | * IF ZERO, THE SWITCH IS NORMAL=N * K2400460 47 | * * SWITCH HDRSW * K2400470 48 | * N= HEADER NOT PERMITTED * K2400480 49 | * T= HEADER ALREADY PRINTED * K2400490 50 | * * SWITCH STPS * K2400500 51 | * N= SYMBOL TABLE SCAN FOR LISTING REAL * K2400510 52 | * CONSTANTS * K2400520 53 | * T0 SYMBOL TABLE SCAN FOR LISTING INTEGER * K2400530 54 | * CONSTANTS * K2400540 55 | * * K2400550 56 | *ATTRIBUTES-N/A * K2400560 57 | * * K2400570 58 | *NOTES-N/A * K2400580 59 | * * K2400590 60 | *************************************************** K2400600 61 | ABS K2400610 62 | * K2400620 63 | * SYSTEM EQUATES K2400630 8000 64 | MEMRY EQU /8000 K2400640 7A23 65 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2400650 7FBC 66 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K2400660 0078 67 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2400670 68 | * K2400680 0036 69 | PHID EQU 54 ID NUMBER THIS PHASE K2400690 70 | * PRINT ROUTINE K2400700 71 | * K2400710 7F8B 72 | HEAD EQU ROL-49 PAGE HEADER AREA K2400720 7E42 73 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2400730 7E0C 74 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2400740 0006 75 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2400750 7E0E 76 | PRINT EQU NEWPG+2 PRINT INTERFACE RTN ENTRY K2400760 7E45 77 | LSTPR EQU OVERP+3 DEVICE PRINT RTN ENTRY K2400770 7E0D 78 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2400780 79 | * K2400790 7A23 80 | ORG OVERL K2400800 81 | * K2400810 82 | * FORTRAN COMMUNICATION AREA K2400820 7A23 83 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2400825 7A24 84 | SOFS BSS 1 START OF STRING K2400830 7A25 85 | EOFS BSS 1 END OF STRING K2400840 7A26 86 | SOFST BSS 1 START OF SYMBOL TABLE K2400850 7A27 87 | SOFNS BSS 1 LENGTH OF PROGRAM K2400860 7A28 88 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2400870 7A29 89 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2400880 7A2A 90 | EOFST BSS 1 END OF SYMBOL TABLE K2400890 7A2B 91 | COMON BSS 1 RELATIVE ENTRY POINT K2400900 7A2C 92 | CSIZE BSS 1 SIZE OF COMMON K2400910 7A2D 93 | ERROR BSS 1 ERROR FLAG K2400920 94 | * BIT 15 OVERLAP ERROR K2400930 95 | * BIT 14 OTHER ERROR K2400940 96 | * BIT 13 SUBIN TOO LARGE 2-4 K2400942 97 | * BIT 12 CORE REQUIREMENTS EXCESS 2-4 K2400944 98 | * BIT 11 ORIGIN IN SUBPROGRAM 2-4 K2400945 99 | * BIT 10 OVERLAP IN PHASE 21 2-4 K2400946 100 | * BIT 9 INVALID ORIGIN 2-4 K2400947 7A2E 101 | FNAME BSS 1 PROGRAM NAME K2400950 7A2F 102 | BSS 1 K2400960 7A30 103 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2400970 7A31 104 | CCWD BSS 1 CONTROL CARD WORD K2400980 105 | * BIT 15 TRANSFER TRACE K2400990 106 | * BIT 14 ARITHMETIC TRACE K2401000 107 | * BIT 13 EXTENDED PRECISION K2401010 108 | * BIT 12 LIST SYMBOL TABLE K2401020 109 | * BIT 11 LIST SUBPROGRAM NAMES K2401030 110 | * BIT 10 LIST SOURCE PROGRAM K2401040 111 | * BIT 9 ONE WORD INTEGERS K2401050 112 | * BIT 8 ORIGIN 2-4 K2401055 7A32 113 | IOCS BSS 1 IOCS CONTROL CARD WORD K2401060 114 | * BIT 15 CARD K2401070 115 | * BIT 14 PAPER TAPE K2401080 116 | * BIT 13 TYPEWRITER K2401090 117 | * BIT 12 1403 PRINTER K2401100 118 | * BIT 11 2501 READER K2401110 119 | * BIT 10 KEYBOARD K2401120 120 | * BIT 9 1442 PUNCH K2401130 121 | * BIT 8 DISK K2401140 122 | * BIT 7 1132 PRINTER K2401150 123 | * BIT 3 PLOTTER K2401160 124 | * BIT 1 UNFORMATTED DISK K2401170 7A33 125 | DFCNT BSS 1 K2401180 126 | * K2401190 127 | * END OF FORTRAN COMMUNICATION K2401200 128 | * AREA K2401210 129 | * K2401220 7A36 130 | BPHAR EQU *+2 BEGIN PHASE AREA K2401230 7A34 0000 131 | DC 0 LOADER WORK AREA K2401240 7A35 FFCA 132 | DC -54 -PHASE ID FOR SLET LOOKUP K2401250 7A36 036C 133 | DC NXTPH-*+1 TBL FOR NEXT PHASE ENTRY K2401260 7A37 0001 134 | DC 1 ONE ENTRY TO BE SET BY LDR K2401270 7A36 135 | ORG *-2 K2401280 136 | * K2401290 7A36 4C00 7A72 137 | NEQ BSC L ENT BRANCH TO INITLZ PROGRAM K2401300 7A38 0000 138 | WDCNT DC *-* WORD COUNT OF PRINT BUFFER K2401310 7A39 4000 139 | PAREA DC /4000 BLANK K2401320 7A3A 4000 140 | DC /4000 BLANK K2401330 7A3B 4000 141 | DC /4000 BLANK K2401340 7A3C 4000 142 | DC /4000 BLANK K2401350 7A3D 4000 143 | DC /4000 BLANK K2401360 7A3E 4000 144 | DC /4000 BLANK K2401370 7A3F 4000 145 | DC /4000 BLANK K2401380 7A40 4000 146 | DC /4000 BLANK K2401390 7A41 4000 147 | DC /4000 BLANK K2401400 7A42 4000 148 | DC /4000 BLANK K2401410 7A43 4000 149 | DC /4000 BLANK K2401420 7A44 4000 150 | DC /4000 BLANK K2401430 7A45 4000 151 | DC /4000 BLANK K2401440 7A46 4000 152 | DC /4000 BLANK K2401450 7A47 4000 153 | DC /4000 BLANK K2401460 7A48 4000 154 | DC /4000 BLANK K2401470 7A49 4000 155 | DC /4000 BLANK K2401480 7A4A D900 156 | TEXT1 DC /D900 R K2401490 7A4B C500 157 | DC /C500 E K2401500 7A4C C100 158 | DC /C100 A K2401510 7A4D D300 159 | DC /D300 L K2401520 7A4E 4000 160 | DC /4000 BLANK K2401530 7A4F C300 161 | DC /C300 C K2401540 7A50 D600 162 | DC /D600 O K2401550 7A51 D500 163 | DC /D500 N K2401560 7A52 E200 164 | DC /E200 S K2401570 7A53 E300 165 | DC /E300 T K2401580 7A54 C100 166 | DC /C100 A K2401590 7A55 D500 167 | DC /D500 N K2401600 7A56 E300 168 | DC /E300 T K2401610 7A57 E200 169 | DC /E200 S K2401620 170 | * K2401630 7A58 C305 171 | PTEX1 LD 3 PAPIN-Z GET INT VALUE OF PR AREA PT K2401640 7A59 D400 7E0D 172 | STO L AREA SAVE IN MESSAGE ADDRESS K2401650 7A5B 6301 173 | LDX 3 1 XR3 = 1 K2401660 7A5C 6F00 7A38 174 | STX L3 WDCNT SAVE IN WD CNT TO PR BLNK LN K2401670 7A5E 4400 7E0E 175 | BSI L PRINT BR TO PRINT BLANK LINE K2401680 7A60 6700 7A4A 176 | LDX L3 TEXT1 PUT ADDR OF 'REAL CONSTANTS' K2401690 7A62 6F00 7E0D 177 | STX L3 AREA *MESSAGE IN PRINT LOC K2401700 7A64 6307 178 | LDX 3 7 XR3 = 7 K2401710 7A65 6F00 7A38 179 | STX L3 WDCNT SAVE MESSAGE WD CNT K2401720 7A67 4400 7E0E 180 | BSI L PRINT PRINT MESSAGE K2401730 7A69 6700 7AC8 181 | LDX L3 PHEAD+2 SET UP PHEAD ROUTINE TO K2401740 7A6B 6B5B 182 | STX 3 PHEAD+1 *CONTINUE RATHER THAN BR OUT K2401750 7A6C 6F00 7C01 183 | STX L3 BLKPA SET BLKPA TO RET TO PHEAD+2 K2401760 7A6E 6700 7C0D 184 | LDX L3 Z RESET TRANSFER VECTOR K2401770 7A70 4C00 7C02 185 | BSC L BLKPA+1 BR TO BLANK OUT PRINT AREA K2401780 186 | * K2401790 187 | * INITIALIZE PHASE K2401800 188 | * CHECK FOR SYMBOL TABLE OVERLAP K2401810 189 | * K2401820 7A72 6136 190 | ENT LDX 1 PHID GET PHASE ID K2401830 7A73 6D00 0078 191 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K2401840 192 | * K2401850 193 | * INITIALIZE TRANSFERVECTOR K2401860 7A75 6700 7C0D 194 | LDX L3 Z GET ADDR OF CONSTANT AREA K2401870 7A77 6F00 7A36 195 | STX L3 NEQ SAVE ADDR K2401880 196 | * K2401890 7A79 C400 7A2D 197 | LD L ERROR TEST ERROR SW FR PREV PHASES K2401900 7A7B 4C20 7D99 198 | BSC L EXIT,Z BR TO EXIT IF OVERLAP ERROR K2401910 199 | * K2401911 7A7D C0B3 200 | LD CCWD IS THIS AN ABSOLUTE 2-4 K2401912 7A7E 1008 201 | SLA 8 COMPILATION 2-4 K2401914 7A7F 4828 202 | BSC +Z NO - SKIP 2-4 K2401916 7A80 D31A 203 | STO 3 ORGSW-Z YES - SET ORIGIN SW 2-4 K2401918 204 | * K2401920 205 | * PRINT CORE REQUIREMENTS IF REQUESTED. K2401930 206 | * SET UP TO LIST CONSTANTS. K2401940 207 | * CHECK FOR EXTENDED PRECISION. K2401950 208 | * MAKE MODIFICATIONS TO CONSTANTS IF K2401960 209 | * *EXTENDED PRECISION. K2401970 210 | * K2401980 7A81 C300 211 | L4011 LD 3 0 PUT ZERO IN K2401990 7A82 D30A 212 | STO 3 STPS-Z *SYMBOL TABLE PASS SWITCH K2402000 213 | * K2402010 214 | * BR TO .STATE CORE REQUIREMENTS. K2402020 215 | * IF NO LISTING REQUIRED K2402030 216 | * K2402040 7A83 C400 7A31 217 | LD L CCWD LOAD CONTROL CARD WORD K2402050 7A85 100C 218 | SLA 12 SHIFT LIST SYM TBL BIT K2402060 7A86 4C10 7B3C 219 | BSC L COREQ,- BR IF NO LIST REQUESTED K2402070 220 | * K2402080 221 | * K2402090 222 | * TEST IF EXTENDED PRECISION K2402100 223 | * K2402110 7A88 1001 224 | SLA 1 SHIFT EXTENDED PREC BIT K2402120 7A89 4C10 7AB1 225 | BSC L L4012,- BR IF NO EXTENDED PRECISION K2402130 226 | * K2402140 227 | * MODIFY PROGRAM IF K2402150 228 | * EXTENDED PRECISION K2402160 229 | * K2402170 7A8B 7401 7C16 230 | MDX L RVARF,1 INCR REAL VARIABLE FORMAT K2402180 7A8D 7404 7C14 231 | MDX L INCR,4 INCR FLT POINT FORMAT FROM K2402190 232 | * 20 TO 24 K2402200 7A8F 7403 7AE5 233 | MDX L L4024,3 INCR NO. DIGITS PAST DECML K2402210 7A91 7404 7AE8 234 | MDX L L4025,4 INCR FIELD WIDTH K2402220 235 | * K2402230 7A93 701D 236 | MDX PAREA+120 BR OUT OF OVERLAY PRINT BFR K2402240 7AB1 237 | ORG PAREA+120 K2402250 238 | * K2402260 7AB1 C400 7A28 239 | L4012 LD L SOFXT INITIALIZE LOCATION K2402270 7AB3 D30B 240 | STO 3 CLOC-Z OF CURRENT CONSTANT K2402280 7AB4 6580 7A26 241 | L401X LDX I1 SOFST INITLZ SYM TBL POINTER K2402290 7AB6 6D00 7C19 242 | STX L1 STP K2402300 7AB8 C30C 243 | L4013 LD 3 STP-Z LOAD SYM TBL POINTER K2402310 7AB9 9400 7A2A 244 | S L EOFST TEST FOR END OF SYMBOL TABLE K2402320 7ABB 4C08 7B2D 245 | BSC L L4033,+ BR IF END OF SYMBOL TABLE K2402330 7ABD C100 246 | L4021 LD 1 0 LOAD SYMBOL TABLE ID WORD K2402340 7ABE 4C10 7B2A 247 | BSC L L4032,- BR IF NOT CONSTANT K2402350 7AC0 1001 248 | SLA 1 K2402360 7AC1 4C28 7B05 249 | BSC L L4031,+Z BR IF INTEGER CONSTANT K2402370 7AC3 C30A 250 | LD 3 STPS-Z LD SYMBOL TABLE PASS SWITCH K2402380 251 | * K2402390 7AC4 4C20 7B2A 252 | BSC L L4032,Z BR IF SWITCH NONZERO K2402400 253 | ************************************************** K2402410 254 | * K2402420 255 | * CONVERT REAL CONSTANT AND PRINT K2402430 256 | * THE CONSTANT AND ITS LOCATION K2402440 257 | * K2402450 258 | ************************************************** K2402460 259 | * K2402470 260 | * PRINT HEADER IF NOT PRINTED BEFORE K2402480 261 | * NOTE--NEXT INSTRUCTION IS REPLACED BY K2402490 262 | * *A BSC L PHEAD+2 AFTER THE HEADER K2402500 263 | * *IS PRINTED. K2402510 264 | * K2402520 7AC6 4C00 7A58 265 | PHEAD BSC L PTEX1 K2402530 266 | * K2402540 267 | * K2402550 268 | * INSERT PARAMETERS FOR CONVERTING K2402560 269 | * OF FLOATING POINT CONST TO K2402570 270 | * E-TYPE, EBC-CODE K2402580 271 | * K2402590 7AC8 C309 272 | LD 3 RVARF-Z INSERT VARIABLE FORMAT K2402600 7AC9 E301 273 | AND 3 1 MASK OUT ALL BUT BIT 15 K2402610 7ACA D400 7C5C 274 | STO L PREC SAVE PRECISION K2402620 7ACC 4C04 7ADA 275 | BSC L L4022,E BR IF EXTENDED PRECISION K2402630 276 | * K2402640 277 | * INSERT NORMAL PREC CONSTANT K2402650 278 | * FROM SYMBOL TABLE K2402660 279 | * K2402670 7ACE C101 280 | LD 1 1 GET 1/2 OF CON FR SYM TBL K2402680 7ACF D400 7C52 281 | STO L CONVT-3 SAVE IN CONVERT BUFFER K2402690 7AD1 C102 282 | LD 1 2 GET 2ND PART OF CONSTANT K2402700 7AD2 1888 283 | SRT 8 SHIFT OFF BITS 8-15 K2402710 7AD3 1008 284 | SLA 8 SHIFT BITS 0-7 BACK K2402720 7AD4 D400 7C53 285 | STO L CONVT-2 SAVE IN CONVERT BUFFER K2402730 7AD6 1088 286 | SLT 8 SHIFT BITS 8-15 BACK TO ACC K2402740 7AD7 D400 7C5D 287 | STO L BIN SAVE BINARY POINT K2402750 7AD9 700B 288 | MDX L4024 BR TO CONTINUE K2402760 289 | * K2402770 290 | * INSERT EXTENDED PRECISION CONSTANT K2402780 291 | * FROM SYMBOL TABLE K2402790 292 | * K2402800 7ADA C100 293 | L4022 LD 1 0 GET SYM TBL ID WORD K2402810 7ADB 1008 294 | SLA 8 SHIFT OFF BITS 0-7 K2402820 7ADC 1808 295 | SRA 8 RIGHT JUSTIFY REMAINDER K2402830 7ADD D400 7C5D 296 | STO L BIN SAVE IN BINARY POINT K2402840 7ADF C101 297 | LD 1 1 GET 1/2 OF CON FR SYM TBL K2402850 7AE0 D400 7C52 298 | STO L CONVT-3 SAVE IN CONVERT BUFFER K2402860 7AE2 C102 299 | LD 1 2 GET 2ND PART OF CONSTANT K2402870 7AE3 D400 7C53 300 | STO L CONVT-2 SAVE IN CONVERT BUFFER K2402880 301 | * K2402890 302 | * INSERT OTHER PARAMETERS FOR CONVERT K2402900 7AE5 6206 303 | L4024 LDX 2 6 NUMBER OF DIGITS AFTER DECML K2402910 7AE6 6E00 7C5B 304 | STX L2 DD *POINT (6 OR 9) K2402920 7AE8 620D 305 | L4025 LDX 2 13 FIELD WIDTH K2402930 7AE9 6E00 7C5A 306 | STX L2 WW *(13 OR 17) K2402940 7AEB C301 307 | LD 3 1 GET A CONSTANT = 1 K2402950 7AEC D400 7C45 308 | STO L FRMAI SET FLT PT INDICATOR K2402960 7AEE 1010 309 | SLA 16 CLEAR ACC K2402970 7AEF D400 7C46 310 | STO L FORTP SET DATA TYPE O/P = E TYPE K2402980 7AF1 4400 7CB0 311 | BSI L BINRY BR TO CONVERT DATA TO DECML K2402990 7AF3 C30F 312 | LD 3 H7E00-Z LOAD AN EQUAL SIGN K2403000 7AF4 43CD 313 | BSI 3 TOPAU-Z BR TO PUT OUT EQUAL K2403010 314 | * K2403020 315 | * CONVERT ADDRESS K2403030 316 | * AND MOVE TO PRINTAREA K2403040 317 | * K2403050 7AF5 438B 318 | BSI 3 ATPA-Z BR TO CONVERT AND MOVE SUBR K2403060 7AF6 43EF 319 | BSI 3 TOPAB-Z BR TO PUT OUT EXTRA BLANK K2403070 320 | * K2403080 7AF7 C30B 321 | LD 3 CLOC-Z LOAD CONSTANT LOCATION K2403090 7AF8 8309 322 | A 3 RVARF-Z INCR BY REAL VAR FMT BITS K2403100 7AF9 D30B 323 | STO 3 CLOC-Z SAVE BACK IN CONSTANT LOC K2403110 324 | * K2403120 325 | * INCREMENT PRINT AREA POINTER K2403130 326 | * AND TEST IF LINE IS FULL K2403140 327 | * K2403150 7AFA C306 328 | CKEND LD 3 PAP-Z LD PRINT AREA POINTER K2403160 7AFB 9310 329 | S 3 LNEND-Z SUBTRACT END OF LINE K2403170 7AFC 4C28 7B2A 330 | BSC L L4032,+Z BR IF LINE NOT FULL K2403180 7AFE 431B 331 | BSI 3 PRINN-Z PRINT A LINE K2403190 7AFF C480 0006 332 | LD I $CH12 TEST CHANNEL 12 SWITCH K2403200 7B01 44A0 7E0C 333 | BSI I NEWPG,Z PAGE EJECT IF NON-ZERO K2403210 7B03 7026 334 | MDX L4032 BR TO CONTINUE K2403220 335 | * K2403230 336 | ************************************************** K2403240 7B04 0000 337 | HTES DC *-* HEADER TEST SWITCH K2403250 338 | * K2403260 7B05 C30A 339 | L4031 LD 3 STPS-Z LD SYMBOL TABLE PASS SWITCH K2403270 7B06 4C18 7B2A 340 | BSC L L4032,+- BR IF SWITCH ZERO K2403280 7B08 C0FB 341 | LD HTES LD HEADER TEST SWITCH K2403290 7B09 4C20 7B16 342 | BSC L INTC,Z BR IF NON-ZERO K2403300 7B0B 43F4 343 | BSI 3 BLKPA-Z BLANK OUT PRINT AREA K2403310 7B0C 431B 344 | BSI 3 PRINN-Z PRINT BLANK LINE K2403320 7B0D C480 0006 345 | LD I $CH12 TEST FOR CHANNEL 12 SW ON K2403330 7B0F 44A0 7E0C 346 | BSI I NEWPG,Z IF PAGE END, RESTORE PAGE K2403340 7B11 C314 347 | LD 3 TEX2A-Z GET ADDR .INTEGER CONSTANTS. K2403350 7B12 43B5 348 | BSI 3 PTEXT-Z BR TO MOVE TEXT TO PR AREA K2403360 7B13 7401 7B04 349 | MDX L HTES,1 SET HEADER TEST SW NON-ZERO K2403370 7B15 431B 350 | BSI 3 PRINN-Z PRINT HEADER K2403380 7B16 43A4 351 | INTC BSI 3 INTLS-Z BR TO CONVERT INTEGER CONS K2403390 7B17 C101 352 | LD 1 1 GET WORD FROM SYMBOL TABLE K2403400 7B18 D400 7C52 353 | STO L CONVT-3 SAVE IN CONVERSION AREA K2403410 7B1A F333 354 | EOR 3 H8000-Z REMOVE BIT 0 K2403420 7B1B 4C20 7B22 355 | BSC L INTD,Z BR IF WD NOT ZERO K2403430 7B1D C333 356 | LD 3 H8000-Z LOAD BIT 0 = 1 K2403440 7B1E 1881 357 | SRT 1 PUT 1'S IN BITS 0 AND 1 K2403450 7B1F 7401 7C5D 358 | MDX L BIN,1 INCREMENT BINARY POINTER K2403460 7B21 D345 359 | STO 3 CONVT-3-Z SAVE CONVERT WORD K2403470 7B22 4400 7CB0 360 | INTD BSI L BINRY BR TO CONVERT DATA TO DECIML K2403480 7B24 C30F 361 | LD 3 H7E00-Z LD = SIGN K2403490 7B25 43CD 362 | BSI 3 TOPAU-Z BR TO PUT IN PRINT BUFFER K2403500 7B26 438B 363 | BSI 3 ATPA-Z MOVE ADDR OF CON TO PR AREA K2403510 7B27 7401 7C18 364 | MDX L CLOC,1 INCR CONSTANT LOCATION K2403520 7B29 70D0 365 | MDX CKEND BR TO TEST IF PR LINE FULL K2403530 366 | * K2403540 367 | * GET NEXT CONSTANT. K2403550 368 | * MOVE SYMBOL TABLE POINTER K2403560 369 | * K2403570 7B2A 4061 370 | L4032 BSI MSTP MOVE SYMBOL TABLE POINTER K2403580 7B2B 4C00 7AB8 371 | BSC L L4013 BR TO TEST FOR SYM TBL END K2403590 372 | * K2403600 373 | * END OF SYMBOL TABLE ENCOUNTERED K2403610 374 | * K2403620 7B2D C306 375 | L4033 LD 3 PAP-Z GET PRINT AREA POINTER K2403630 7B2E 9305 376 | S 3 PAPIN-Z SUBTRACT INITIAL VAL PR AREA K2403640 7B2F 4420 7C28 377 | BSI L PRINN,Z PR LN IF DIFFERENCE GT ZERO K2403650 7B31 C480 0006 378 | LD I $CH12 TEST FOR END OF PAGE K2403660 7B33 44A0 7E0C 379 | BSI I NEWPG,Z IF END OF PAGE, RESTORE PAGE K2403670 380 | * K2403680 381 | * IF SYMBOL TABLE PASS SW IS NONZERO K2403690 382 | * GO TO LISTING OF CORE REQUIREMENTS K2403700 383 | * K2403710 7B35 C30A 384 | LD 3 STPS-Z LD SYM TBL PASS SWITCH K2403720 7B36 4C20 7B3C 385 | BSC L COREQ,Z BR IF NONZERO K2403730 386 | * K2403740 387 | * K2403750 7B38 C301 388 | LD 3 1 SET SYM TBL PASS SWITCH K2403760 7B39 D30A 389 | STO 3 STPS-Z *TO NONZERO K2403770 390 | * K2403780 7B3A 4C00 7AB4 391 | BSC L L401X GO TO SECOND PASS OF K2403790 392 | * SYM TBL (FOR LISTING OF K2403800 393 | * *INTEGER CONSTANTS) K2403810 394 | * K2403820 395 | * LIST CORE REQUIREMENTS K2403830 396 | * K2403840 7B3C 43F4 397 | COREQ BSI 3 BLKPA-Z BLANK PRINT AREA K2403850 7B3D 431B 398 | BSI 3 PRINN-Z PRINT BLANK LINE K2403860 7B3E C315 399 | LD 3 CORA-Z GET ADDR .CORE REQUIREMENTS. K2403870 7B3F 43B5 400 | BSI 3 PTEXT-Z BR TO MOVE TEXT TO PR AREA K2403880 7B40 6500 7A2D 401 | LDX L1 FNAME-1 LD PROGRAM NAME POINTER K2403890 7B42 C101 402 | LD 1 1 LD WD1 OF PROG NAME K2403900 7B43 43DA 403 | BSI 3 TOPA-Z CONVERT CHAR 1-MOVE TO PRINT K2403910 7B44 C101 404 | LD 1 1 LD WD1 OF PROG NAME K2403920 7B45 1006 405 | SLA 6 SHIFT TO POSITION K2403930 7B46 43DA 406 | BSI 3 TOPA-Z CONVERT CHAR 2-MOVE TO PRINT K2403940 7B47 C102 407 | LD 1 2 LD WD2 OF PROG NAME K2403950 7B48 18D0 408 | RTE 16 SHIFT TO EXTENSION K2403960 7B49 C101 409 | LD 1 1 LOAD WD1 OF PROG NAME K2403970 7B4A 108C 410 | SLT 12 SHIFT ACC AND EXTENSION K2403980 7B4B 43DA 411 | BSI 3 TOPA-Z CONVERT CHAR 3-MOVE TO PRINT K2403990 7B4C C102 412 | LD 1 2 LOAD WD2 OF PROG NAME K2404000 7B4D 1002 413 | SLA 2 SHIFT TO POSITION K2404010 7B4E 43DA 414 | BSI 3 TOPA-Z CONVERT CHAR 4-MOVE TO PRINT K2404020 7B4F C102 415 | LD 1 2 LOAD WD2 OF PROG NAME K2404030 7B50 1008 416 | SLA 8 SHIFT TO POSITION K2404040 7B51 43DA 417 | BSI 3 TOPA-Z CONVERT CHAR 5-MOVE TO PRINT K2404050 7B52 431B 418 | BSI 3 PRINN-Z PRINT A LINE K2404060 419 | * K2404070 420 | * COMMON SIZE TO PRINT AREA K2404080 7B53 C316 421 | LD 3 COMA-Z GET ADDR .COMMON. K2404090 7B54 43B5 422 | BSI 3 PTEXT-Z BR TO MOVE TEXT TO PR AREA K2404100 7B55 43A4 423 | BSI 3 INTLS-Z INITLZ INTEGER CON CONVERT K2404110 7B56 C400 7A2C 424 | LD L CSIZE GET SIZE OF COMMON K2404120 7B58 D400 7C52 425 | STO L CONVT-3 SAVE IN CONVERSION AREA K2404130 7B5A 4400 7DA6 426 | BSI L PTCH1 GO CONVERT NUMBER 2-2 K2404140 427 | * K2404150 428 | * SIZE OF WORK AREA TO PRINT AREA K2404160 7B5C C317 429 | LD 3 VARA-Z GET ADDR .VARIABLES. K2404170 7B5D 43B5 430 | BSI 3 PTEXT-Z MOVE TEXT TO PRINT AREA K2404180 7B5E 43A4 431 | BSI 3 INTLS-Z INITLZ INTEGER CON CONVERT K2404190 7B5F C400 7A28 432 | LD L SOFXT GET SIZE OF WORK AREA K2404200 7B61 D400 7C52 433 | STO L CONVT-3 SAVE IN CONVERT WORD K2404210 7B63 4400 7DA6 434 | BSI L PTCH1 GO CONVERT NUMBER 2-2 K2404220 435 | * K2404230 436 | * CONSTANTS AND PROGRAM AREA SIZE K2404240 437 | * TO PRINT AREA K2404250 438 | * K2404260 7B65 C318 439 | LD 3 PROA-Z GET ADDR .PROGRAM. K2404270 7B66 43B5 440 | BSI 3 PTEXT-Z MOVE TEXT TO PRINT AREA K2404280 7B67 43A4 441 | BSI 3 INTLS-Z INITLZ INTEGER CON CONVERT K2404290 7B68 C400 7A27 442 | LD L SOFNS COMPUTE LENGTH OF PROGRAM K2404300 443 | * AREA K2404310 7B6A 9400 7A28 444 | S L SOFXT SUBTRACT SIZE OF WORK AREA K2404320 7B6C D400 7A27 445 | STO L SOFNS SAVE LENGTH OF PROGRAM AREA K2404330 7B6E D400 7C52 446 | STO L CONVT-3 SAVE IN CONVERSION AREA K2404340 7B70 4400 7DA6 447 | BSI L PTCH1 GO CONVERT NUMBER 2-2 K2404350 7B72 431B 448 | BSI 3 PRINN-Z PRINT OUTPUT K2404360 449 | * K2404370 450 | * CHECK FOR CORE SIZE ERRORS K2404380 451 | * K2404390 7B73 1010 452 | SLA 16 K2404400 7B74 D017 453 | STO MSTP CLEAR TEMPORARY ACCUMULATOR K2404410 454 | * K2404420 7B75 C400 7A2C 455 | LD L CSIZE CHECK COMMON AREA SIZE K2404430 7B77 4008 456 | BSI CS000 K2404440 457 | * K2404450 7B78 C400 7A28 458 | LD L SOFXT CHECK VARIABLE AREA SIZE K2404460 7B7A 4005 459 | BSI CS000 K2404470 460 | * K2404480 7B7B C400 7A27 461 | LD L SOFNS CHECK PROGRAM AREA SIZE K2404490 7B7D 4002 462 | BSI CS000 K2404500 463 | * K2404510 7B7E 4C00 7D99 464 | BSC L EXIT EXIT K2404520 465 | * K2404530 466 | * K2404540 7B80 0000 467 | CS000 DC *-* LINK K2404550 468 | * K2404560 7B81 4C28 7B89 469 | BSC L CS050,+Z ERROR IF SIZE NEGATIVE K2404570 470 | * K2404580 7B83 8008 471 | A MSTP K2404590 7B84 D007 472 | STO MSTP K2404600 7B85 4C28 7B89 473 | BSC L CS050,+Z BRANCH IF OVERFLOW K2404610 474 | * K2404620 7B87 4C80 7B80 475 | CS010 BSC I CS000 RETURN K2404630 476 | * K2404640 477 | * INDICATE SIZE ERROR K2404650 478 | * K2404660 7B89 7408 7A2D 479 | CS050 MDX L ERROR,8 INDICATE ERROR 2-4 K2404670 7B8B 70FB 480 | MDX CS010 RETURN K2404700 481 | * K2404710 482 | * K2404720 483 | * K2404730 484 | * SUBR. MOVE SYMBOL TABLE POINTER K2404740 7B8C 0000 485 | MSTP DC 0 LINK K2404750 7B8D C100 486 | LD 1 0 GET SYM TBL ID WORD K2404760 7B8E E30D 487 | AND 3 MASK3-Z TEST FOR DIMENSION K2404770 7B8F 4820 488 | BSC Z SKIP IF NOT DIMENSIONED K2404780 7B90 C30E 489 | LD 3 CM3-Z LD MINUS 3 IF DIMENSIONED K2404790 7B91 9303 490 | S 3 3 DECR BY 3 K2404800 7B92 830C 491 | A 3 STP-Z DECR SYM TBL PT BY 3 OR 6 K2404810 7B93 D30C 492 | STO 3 STP-Z SAVE SYM TBL POINTER K2404820 7B94 6580 7C19 493 | LDX I1 STP PUT SYM TBL PT IN XR1 K2404830 7B96 4C80 7B8C 494 | BSC I MSTP RETURN K2404840 495 | * K2404850 496 | * MOVE ADDRESS TO PAREA K2404860 7B98 0000 497 | ATPA DC *-* LINK ENTRY POINT K2404870 7B99 C31A 498 | LD 3 ORGSW-Z IS IT ABSOLUTE 2-4 K2404871 7B9A 4C18 7BA5 499 | BSC L ATPA1,+- NO - BRANCH 2-4 K2404872 7B9C C30B 500 | LD 3 CLOC-Z YES - RELOCATE 2-4 K2404873 7B9D 8400 7A23 501 | A L ORG THE 2-4 K2404874 7B9F 4C10 7BA6 502 | BSC L ATPA2,- BRANCH IF POSITIVE 2-4 K2404876 7BA1 7440 7A2D 503 | MDX L ERROR,64 SET UP ERROR 86 2-4 K2404877 7BA3 4C00 7D99 504 | BSC L EXIT EXIT 2-4 K2404878 505 | * K2404879 7BA5 C30B 506 | ATPA1 LD 3 CLOC-Z GET HEX LOC OF CURRENT CON K2404880 7BA6 188C 507 | ATPA2 SRT 12 SHIFT OFF LOWER 3 HEX CHARS K2404890 7BA7 404A 508 | BSI TOPAH BR TO PUT HEX CHAR PR AREA K2404900 7BA8 1084 509 | SLT 4 SHIFT NXT CHAR FR EXTENSION K2404910 7BA9 4048 510 | BSI TOPAH BR TO PUT HEX CHAR PR AREA K2404920 7BAA 1084 511 | SLT 4 SHIFT NXT CHAR FR EXTENSION K2404930 7BAB 4046 512 | BSI TOPAH BR TO PUT HEX CHAR PR AREA K2404940 7BAC 1084 513 | SLT 4 SHIFT LAST CHAR FR EXTENSION K2404950 7BAD 4044 514 | BSI TOPAH BR TO PUT HEX CHAR PR AREA K2404960 7BAE 404D 515 | BSI TOPAB PUT BLANK IN PRINT AREA K2404970 7BAF 4C80 7B98 516 | BSC I ATPA RETURN K2404980 517 | * K2404990 518 | * SET UP CONVERSION ROUTINE FOR K2405000 519 | * INTEGER CONSTANTS. K2405010 520 | * K2405020 7BB1 0000 521 | INTLS DC *-* ENTRY POINT K2405030 7BB2 6206 522 | LDX 2 6 SET FIELD WIDTH K2405040 7BB3 6E00 7C5A 523 | STX L2 WW *TO 6 K2405050 7BB5 1010 524 | SLA 16 CLEAR 2ND WD OF CONVERSION K2405060 7BB6 D400 7C53 525 | STO L CONVT-2 *AREA K2405070 7BB8 D400 7C45 526 | STO L FRMAI SET INTEGER CONVERSION CODE K2405080 7BBA C311 527 | LD 3 D143-Z SET BINARY DECIMAL POINT K2405090 7BBB D400 7C5D 528 | STO L BIN *FOR INCREMENTING K2405100 7BBD 6202 529 | LDX 2 2 SET DATA TYPE TO K2405110 7BBE 6E00 7C46 530 | STX L2 FORTP *I FORMAT K2405120 7BC0 4C80 7BB1 531 | BSC I INTLS RETURN K2405130 532 | * K2405140 533 | * PUT TEXT IN PRINT AREA. K2405150 534 | * ADDRESS OF TEXT IN A-REG ON ENTRY K2405160 535 | * K2405170 7BC2 0000 536 | PTEXT DC 0 ENTRY POINT K2405180 7BC3 D001 537 | STO HTES1+1 SAVE ADDR OF TEXT K2405190 7BC4 6680 0000 538 | HTES1 LDX I2 *-* PUT WD COUNT IN XR2 K2405200 7BC6 1090 539 | SLT 16 CLEAR ACC K2405210 7BC7 6780 7C13 540 | LDX I3 PAP PUT PR AREA POINTER XR3 K2405220 7BC9 7401 7BC5 541 | LOOPP MDX L HTES1+1,1 INCR ADDR POINTER K2405230 7BCB C480 7BC5 542 | LD I HTES1+1 LD PACKED CHARACTER K2405240 7BCD 1888 543 | SRT 8 SHIFT RIGHT CHAR EXTENSION K2405250 7BCE 1008 544 | SLA 8 SHIFT LEFT TO PRINT POSITION K2405260 7BCF D300 545 | STO 3 0 SAVE IN PRINT LINE K2405270 7BD0 1090 546 | SLT 16 SHIFT RIGHT CHAR TO POSITION K2405280 7BD1 D301 547 | STO 3 1 SAVE IN PRINT LINE K2405290 7BD2 7302 548 | MDX 3 2 INCR PRINT LINE POINTER K2405300 7BD3 72FF 549 | MDX 2 -1 DECR WORD COUNT K2405310 7BD4 70F4 550 | MDX LOOPP LOOP IF COUNT NOT FINISHED K2405320 7BD5 6B3D 551 | STX 3 PAP SAVE NEW PRINT AREA POINTER K2405330 7BD6 6700 7C0D 552 | LDX L3 Z RESET XR3 FOR CONSTANTS K2405340 7BD8 4C80 7BC2 553 | HTES3 BSC I PTEXT RETURN K2405350 554 | * K2405360 555 | * K2405370 556 | * SUBROUTINE K2405380 557 | * MOVE CHAR IN ACC TO PR AREA UNCHANGED K2405390 558 | * K2405400 7BDA 0000 559 | TOPAU DC 0 LINK K2405410 7BDB D007 560 | STO STOCH SAVE CHAR TO BE PRINTED K2405420 7BDC C006 561 | TOPAX LD STOCH LD CHAR TO BE PRINTED K2405430 7BDD D480 7C13 562 | STO I PAP SAVE IN PRINT AREA K2405440 7BDF 7401 7C13 563 | MDX L PAP,1 MOVE PRINT AREA POINTER K2405450 7BE1 4C80 7BDA 564 | BSC I TOPAU RETURN K2405460 565 | * K2405470 7BE3 0000 566 | STOCH DC *-* CHARACTER TO BE PRINTED K2405480 7BE4 000F 567 | H000F DC /000F CONSTANT K2405490 7BE5 000A 568 | H000A DC /000A CONSTANT K2405500 7BE6 0039 569 | H0039 DC /0039 CONSTANT K2405510 570 | * K2405520 571 | * SUBROUTINE K2405530 572 | * CONVERT CHAR IN ACC INTO K2405540 573 | * EBC-CODE, THEN MOVE TO PRINT AREA K2405550 574 | * K2405560 7BE7 0000 575 | TOPA DC 0 LINK K2405570 7BE8 E312 576 | AND 3 H3F00-Z MASK BITS 2-7 K2405580 7BE9 4C18 7BF0 577 | BSC L TOPA2,+- BR IF BLANK K2405590 578 | * K2405600 579 | * NOTE K2405610 580 | * IF OTHER SPECIAL CHARACTERS THAN K2405620 581 | * BLANK ARE EXPECTED, TESTING SHOULD K2405630 582 | * BE HERE K2405640 7BEB E829 583 | OR HC000 ADD FIRST 2 BITS ALPHA-NOS K2405650 7BEC D0F6 584 | TOPA1 STO STOCH SAVE IN CHAR STORAGE WD K2405660 7BED C0F9 585 | LD TOPA MOVE LINK K2405670 7BEE D0EB 586 | STO TOPAU *TO OUTPUT K2405680 7BEF 70EC 587 | MDX TOPAX BR TO PRINT CHAR IN EBC K2405690 7BF0 C313 588 | TOPA2 LD 3 H4000-Z LOAD EBC BLANK K2405700 7BF1 70FA 589 | MDX TOPA1 BR TO PUT IN BUFFER K2405710 590 | * K2405720 591 | * K2405730 592 | * SUBROUTINE K2405740 593 | * MOVE HEX CHAR TO PRINT AREA K2405750 594 | * K2405760 7BF2 0000 595 | TOPAH DC 0 LINK K2405770 7BF3 E0F0 596 | AND H000F SAVE ONLY BITS 12-15 K2405780 7BF4 90F0 597 | S H000A TEST FOR CON LT A K2405790 7BF5 4828 598 | BSC Z+ SKIP IF GT 9 K2405800 7BF6 80EF 599 | A H0039 RESTORE CON & EBC BITS K2405810 7BF7 8301 600 | A 3 1 ADD 1 K2405820 7BF8 1008 601 | SLA 8 SHIFT TO EBC FORMAT K2405830 7BF9 40ED 602 | BSI TOPA CONVERT AND MOVE K2405840 7BFA 4C80 7BF2 603 | BSC I TOPAH RETURN K2405850 604 | * K2405860 605 | * PUT ONE BLANK IN PRINT AREA K2405870 7BFC 0000 606 | TOPAB DC 0 ENTRY POINT K2405880 7BFD 1010 607 | SLA 16 CLEAR ACC K2405890 7BFE 40E8 608 | BSI TOPA PUT OUT BLANK K2405900 7BFF 4C80 7BFC 609 | BSC I TOPAB RETURN K2405910 610 | * K2405920 611 | * SUBROUTINE K2405930 612 | * BLANK TO PRINT AREA K2405940 613 | * K2405950 7C01 0000 614 | BLKPA DC 0 LINK K2405960 7C02 C313 615 | LD 3 H4000-Z PUT EBC BLANK ACC K2405970 7C03 6700 0079 616 | LDX L3 121 LD BFR SIZE IN XR3 K2405980 7C05 D700 7A38 617 | BLKP1 STO L3 PAREA-1 SAVE BLANK IN PR AREA K2405990 7C07 73FF 618 | MDX 3 -1 DECR BUFFER COUNT K2406000 7C08 70FC 619 | MDX BLKP1 CONTINUE IF CNT NOT 0 K2406010 7C09 6700 7C0D 620 | LDX L3 Z RESET XR3 WITH CON ADDR K2406020 7C0B 4C80 7C01 621 | BSC I BLKPA RETURN K2406030 622 | * K2406040 623 | * CONSTANTS AREA K2406050 624 | * NOTE--GREAT CARE SHOULD BE USED K2406060 625 | * IN CHANGING CONSTANTS AROUND AS SOME K2406070 626 | * OF THE LOCATIONS ARE REFERENCED RLTV K2406080 627 | * TO THE START OD THE AREA. K2406090 628 | * XR3 IS LOADED WITH THE ADDRESS OF Z K2406100 629 | * FOR REFERENCE TO THE CONSTANTS K2406110 630 | * K2406120 7C0D 0000 631 | Z DC 0 CONSTANT0 K2406130 7C0E 0001 632 | DC 1 CONSTANT ONE K2406140 7C0F 0002 633 | DC 2 CONSTANT TWO K2406150 7C10 0003 634 | DC 3 CONSTANT THREE K2406160 7C11 0004 635 | DC 4 CONSTANT FOUR K2406170 7C12 7A39 636 | PAPIN DC PAREA INITIAL VALUE OF PAP K2406180 7C13 7A39 637 | PAP DC PAREA PRINT AREA POINTER K2406190 7C14 0014 638 | INCR DC 20 INCREMENT OF PRINT AREA K2406200 639 | * (IS CHANGED INTO 24 WHEN K2406210 640 | * EXTENDED PRECISION) K2406220 7C15 C000 641 | HC000 DC /C000 CONSTANT MASK K2406230 7C16 0002 642 | RVARF DC /0002 REAL VARIABLE FORMAT K2406240 7C17 0000 643 | STPS DC 0 SYMBOL TABLE PASS SWITCH K2406250 7C18 0000 644 | CLOC DC 0 LOCATION OF CURRENT CONSTANT K2406260 7C19 0000 645 | STP DC 0 SYMBOL TABLE POINTER K2406270 7C1A 1800 646 | MASK3 DC /1800 CONSTANT MASK K2406280 7C1B FFFD 647 | CM3 DC /FFFD CONSTANT = MINUS 3 K2406290 7C1C 7E00 648 | H7E00 DC /7E00 EQUAL SIGN K2406300 7C1D 7AB1 649 | LNEND DC PAREA+120 LINE END CONSTANT K2406310 7C1E 008F 650 | D143 DC 143 CONSTANT K2406320 7C1F 3F00 651 | H3F00 DC /3F00 CONSTANT MASK K2406330 7C20 4000 652 | H4000 DC /4000 CONSTANT MASK K2406340 7C21 7D70 653 | TEX2A DC TEXT2 ADDR OF MSG TO PRINT K2406350 7C22 7D7A 654 | CORA DC CORTX ADDR OF MSG TO PRINT K2406360 7C23 7D86 655 | COMA DC COMTX ADDR OF MSG TO PRINT K2406370 7C24 7D8B 656 | VARA DC VARTX ADDR OF MSG TO PRINT K2406380 7C25 7D92 657 | PROA DC PROTX ADDR OF MSG TO PRINT K2406390 7C26 003C 658 | D60 DC 60 CONSTANT K2406400 7C27 0000 659 | ORGSW DC 0 ORIGIN SWITCH 2-4 K2406405 660 | * K2406410 661 | * SUBROUTINE K2406420 662 | * SET UP TO PRINT A LINE AND GO PRINT K2406430 663 | * *THE LINE K2406440 664 | * K2406450 7C28 0000 665 | PRINN DC *-* ENTRY POINT K2406460 7C29 C305 666 | LD 3 PAPIN-Z GET INT VALUE OF PAP K2406470 7C2A D306 667 | STO 3 PAP-Z RESET PAP K2406480 7C2B D400 7E0D 668 | STO L AREA SAVE PRINT AREA K2406490 7C2D C319 669 | LD 3 D60-Z SET WORD COUNT K2406500 7C2E D400 7A38 670 | STO L WDCNT *=60 K2406510 7C30 4400 7E0E 671 | BSI L PRINT BR TO PRINT A LINE K2406520 7C32 43F4 672 | BSI 3 BLKPA-Z CLEAR PRINT AREA K2406530 7C33 4C80 7C28 673 | BSC I PRINN RETURN K2406540 674 | * K2406550 675 | * K2406560 7C35 0080 676 | C128 DC 128 CONSTANT K2406570 7C36 FFFF 677 | MONE DC -1 CONSTANT K2406580 7C37 000A 678 | TEN DC 10 CONSTANT K2406590 7C38 00C5 679 | H00C5 DC /00C5 CONSTANT MASK K2406600 7C39 0000 680 | MULT DC *-* RETURN ADDRESS K2406610 7C3A 4C00 7C5E 681 | BSC L MULT1 GO TO MULTIPLY SUBROUTINE K2406620 7C3C 0000 682 | NORM DC *-* RETURN ADDRESS K2406630 7C3D 4C00 7C6E 683 | BSC L NORM1 GO TO NORMALIZE ROUTINE K2406640 7C3F 0005 684 | FIVE DC 5 CONSTANT K2406650 7C40 8000 685 | H8000 DC /8000 CONSTANT MASK K2406660 7C41 0060 686 | MINUS DC /0060 EBC MINUS RIGHT JUSTIFIED K2406670 7C42 0040 687 | BLANK DC /0040 EBC BLANK RIGHT JUSTIFIED K2406680 7C43 0006 688 | SIX DC 6 CONSTANT K2406690 689 | * K2406700 690 | * DATA STORAGE AREA FOR BINARY-DECIMAL K2406710 691 | * CONVERSION SUBROUTINE K2406720 692 | * K2406730 7C44 0000 693 | CHAR DC 0 CHARACTER STORAGE K2406740 7C45 0000 694 | FRMAI DC 0 INTEGER OR DECML FLAG K2406750 7C46 0000 695 | FORTP DC 0 TYPE OF DATA TO BE OUTPUT K2406760 7C47 0000 696 | LKTYP DC 0 TEMPORARY STORAGE AREA K2406770 7C44 697 | X EQU CHAR REFERENCE PT FOR DATA AREA K2406780 7C48 698 | BSS E 0 K2406790 7C48 0002 699 | TWO DC 2 CONSTANT (EVEN LOC) K2406800 7C49 0001 700 | ONE DC 1 CONSTANT (ODD LOC) K2406810 7C4A 004B 701 | H004B DC /004B CONSTANT (EVEN LOC) K2406820 7C4B 00F0 702 | H00F0 DC /00F0 CONSTANT (ODD LOC) K2406830 7C4C 0000 703 | JCON DC 0 CHAR STO MULTIPLY (EVEN LOC) K2406840 7C4D 0000 704 | DC 0 *SUBROUTINE (ODD LOC) K2406850 7C4E 0000 705 | BB DC 0 EBC REPRESENTATION(EVEN LOC) K2406860 7C4F 0000 706 | DC 0 *OF EXPONENT (ODD LOC) K2406870 7C50 0000 707 | EENCT DC 0 EXPONENT SIGN (EVEN LOC) K2406880 7C51 0000 708 | DC 0 FIVE (ODD LOC) K2406890 7C52 0000 709 | DC 0 *WORD (EVEN LOC) K2406900 7C53 0000 710 | DC 0 *CONVERSION (ODD LOC) K2406910 7C54 0000 711 | DC 0 *AREA (EVEN LOC) K2406920 7C55 0000 712 | CONVT DC 0 * (ODD LOC) K2406930 7C56 0000 713 | SIGN DC 0 SIGN COUNT (EVEN LOC) K2406940 7C57 0000 714 | DIVCT DC 0 DIVIDE COUNT (ODD LOC) K2406950 7C58 0000 715 | MANSN DC 0 MANTISSA SIGN (EVEN LOC) K2406960 7C59 0000 716 | TEMP DC 0 TEMPORARY STORAGE (ODD LOC) K2406970 7C5A 0000 717 | WW DC 0 FIELD WIDTH (EVEN LOC) K2406980 7C5B 0000 718 | DD DC 0 DECIMAL COUNT (ODD LOC) K2406990 7C5C 0000 719 | PREC DC 0 PRECISION (EVEN LOC) K2407000 7C5D 0000 720 | BIN DC 0 BINARY POINT CNT (ODD LOC) K2407010 721 | * K2407020 722 | * SUBROUTINE K2407030 723 | * MULTIPLY 5 CONVERSION CHARACTERS BY K2407040 724 | * 10 K2407050 725 | * K2407060 7C5E D209 726 | MULT1 STO 2 JCON+1-X STORE CHARACTER K2407070 7C5F 6105 727 | LDX 1 5 SET UP INDEX LOOP FOR 5 K2407080 7C60 C500 7C50 728 | MULT3 LD L1 EENCT GET WDS TO CONVERT K2407090 7C62 A2F3 729 | M 2 TEN-X MULTIPLY BY 10 K2407100 7C63 4828 730 | BSC +Z SKIP IF RESULT NOT - K2407110 7C64 82F3 731 | A 2 TEN-X ADD 10 TO RESULT K2407120 7C65 8A08 732 | AD 2 JCON-X ADD PRESENT CHARACTER K2407130 7C66 D209 733 | STO 2 JCON+1-X STORE MOST SIGNIFICANT BIT K2407140 7C67 1090 734 | SLT 16 SHIFT LEAST SIGNIFICANT TO K2407150 7C68 D500 7C50 735 | STO L1 EENCT *ACC AND SAVE K2407160 7C6A 71FF 736 | MDX 1 -1 DECR WD CNT BY 1 K2407170 7C6B 70F4 737 | MDX MULT3 LOOP UNLESS CNT EXHAUSTED K2407180 7C6C 4C80 7C39 738 | BSC I MULT RETURN TO CALLER K2407190 739 | * K2407200 740 | * NORMALIZATION SUBROUTINE K2407210 741 | * K2407220 7C6E C20D 742 | NORM1 LD 2 CONVT-4-X IS LEFTMOST WORD OF NO. = 0 K2407230 7C6F 4C18 7C73 743 | BSC L NORMT,+- YES, GO CHECK FURTHER K2407240 7C71 4016 744 | BSI NORRT NO, GO NORMALIZE RIGHT K2407250 7C72 70FB 745 | MDX NORM1 BRANCH BACK TO CHECK NORM K2407260 7C73 C20E 746 | NORMT LD 2 CONVT-3-X IS 2ND WORD FROM LEFT NEG. K2407270 7C74 4CA8 7C3C 747 | BSC I NORM,+Z YES, RETURN TO CALLING PROG K2407280 7C76 4001 748 | BSI NORLT NO, GO TO NORM LEFT K2407290 7C77 70F6 749 | MDX NORM1 BRANCH BACK TO CHECK NORM K2407300 750 | * K2407310 751 | * NORMALIZE LEFT SUBROUTINE K2407320 752 | * K2407330 7C78 0000 753 | NORLT DC *-* NORMALIZE LEFT K2407340 7C79 10A0 754 | SLT 32 SHIFT K2407350 7C7A 6105 755 | LDX 1 5 *ANSWER K2407360 7C7B C500 7C50 756 | NORM7 LD L1 EENCT *LEFT K2407370 7C7D 18DF 757 | RTE 31 *ONE K2407380 7C7E D500 7C50 758 | STO L1 EENCT *BIT K2407390 7C80 108F 759 | SLT 15 THIS MEANS ALL 5 K2407400 7C81 71FF 760 | MDX 1 -1 *WORDS OF K2407410 7C82 70F8 761 | MDX NORM7 *CONVERSION AREA K2407420 7C83 C219 762 | LD 2 BIN-X DECR BINARY K2407430 7C84 9205 763 | S 2 ONE-X *POINT COUNTER K2407440 7C85 D219 764 | STO 2 BIN-X *BY 1 K2407450 7C86 4C80 7C78 765 | BSC I NORLT RETURN K2407460 766 | * K2407470 767 | * NORMALIZE RIGHT SUBROUTINE K2407480 768 | * K2407490 7C88 0000 769 | NORRT DC *-* NORMALIZE RIGHT ENTRY K2407500 7C89 61FB 770 | NORM4 LDX 1 -5 SHIFT K2407510 7C8A 10A0 771 | SLT 32 *ALL K2407520 7C8B C500 7C56 772 | LD L1 SIGN *FIVE K2407530 7C8D 18C1 773 | RTE 1 *WORDS K2407540 7C8E D500 7C56 774 | STO L1 SIGN *OF CONVERSION K2407550 7C90 18CF 775 | RTE 15 *AREA K2407560 7C91 7101 776 | MDX 1 1 *RIGHT K2407570 7C92 70F8 777 | MDX NORM4+2 *ONE BIT K2407580 7C93 C219 778 | LD 2 BIN-X INCR BINARY POIN K2407590 7C94 8205 779 | A 2 ONE-X *COUNTER K2407600 7C95 D219 780 | STO 2 BIN-X *BY ONE K2407610 7C96 4C80 7C88 781 | BSC I NORRT RETURN K2407620 782 | * K2407630 783 | * DIVIDE 5 WORD ANSWER BY 10 K2407640 784 | * K2407650 7C98 0000 785 | DIVID DC *-* ENTRY POINT K2407660 7C99 61FC 786 | LDX 1 -4 LOAD INDEX FOR FOUR DIVIDES K2407670 7C9A 10A0 787 | SLT 32 CLEAR ACC AND EXTENSION K2407680 7C9B C205 788 | DIV1 LD 2 ONE-X LD CONSTANT ONE K2407690 7C9C D203 789 | STO 2 LKTYP-X SAVE LKTYP K2407700 7C9D C500 7C56 790 | LD L1 SIGN LD NO.TO BE DIVIDED K2407710 7C9F 18D0 791 | RTE 16 EXCHANGE ACC AND EXTENSION K2407720 7CA0 92FB 792 | S 2 FIVE-X SUBTRACT 5 FOR ROUNDING K2407730 7CA1 4C28 7CA5 793 | BSC L *+2,+Z BR IF NEGATIVE K2407740 7CA3 74FE 7C47 794 | MDX L LKTYP,-2 SET LKTYP = -1 AND SKIP K2407750 7CA5 82FB 795 | A 2 FIVE-X RESTORE 5 PREVIOUSLY DELETED K2407760 7CA6 AAF3 796 | D 2 TEN-X DIVIDE BY 10 K2407770 7CA7 74FE 7C47 797 | MDX L LKTYP,-2 SET LKTYP =-1,SKIP OR-3,CONT K2407780 7CA9 EAFC 798 | OR 2 H8000-X MASK IN NEGATIVE SIGN K2407790 7CAA D500 7C56 799 | STO L1 SIGN SAVE NO BACK IN AREA K2407800 7CAC 7101 800 | MDX 1 1 INCR AREA POINTER K2407810 7CAD 70ED 801 | MDX DIV1 BR IF LOOP NOT FINISHED K2407820 7CAE 4C80 7C98 802 | RETZY BSC I DIVID RETURN TO CALLING PROGRAM K2407830 803 | * K2407840 804 | * ENTRY POINT TO BINARY-DECIMAL K2407850 805 | * CONVERSION SUBROUTINE K2407860 806 | * K2407870 7CB0 0000 807 | BINRY DC *-* ENTRY POINT K2407880 7CB1 6D00 7D6B 808 | STX L1 IR13+1 SAVE XR1 K2407890 7CB3 6E00 7D6D 809 | STX L2 IR13+3 SAVE XR2 K2407900 7CB5 6600 7C44 810 | LDX L2 X GET CON AREA POINTER K2407910 7CB7 6580 7C46 811 | LDX I1 FORTP GET TYPE OF DATA TO BE O/P K2407920 7CB9 4D80 7CBB 812 | BSC I1 * BR TO CORRESPONDING PROG LOC K2407930 7CBB 7CC8 813 | DC BIN4 E TYPE FORMAT K2407940 7CBC 7CCC 814 | DC BIN7 F TYPE FORMAT K2407950 7CBD 7CCA 815 | DC BIN3 I TYPE FORMAT K2407960 7CBE C219 816 | BIN14 LD 2 BIN-X NORM BINARY PT TO 128 K2407970 7CBF 92F1 817 | S 2 C128-X IS POINT GR 128 K2407980 7CC0 4828 818 | BSC +Z SKIP IF YES K2407990 7CC1 7004 819 | MDX BIN17 NO,GO TO NORM RIGHT K2408000 7CC2 4C08 7D37 820 | BSC L BIN19,+ BR IF BINARY PT = 128 K2408010 7CC4 40B3 821 | BSI NORLT BINARY PT GT 128, NORM LEFT K2408020 7CC5 70F8 822 | MDX BIN14 BR BACK TO CHECK BINARY PT K2408030 7CC6 40C1 823 | BIN17 BSI NORRT BR TO NORMALIZE RIGHT K2408040 7CC7 70F6 824 | MDX BIN14 BR BACK TO CHECK BINARY PT K2408050 825 | * K2408060 826 | * E TYPE DATA OUTPUT K2408070 827 | * K2408080 7CC8 C2FF 828 | BIN4 LD 2 SIX-X SET UP COUNT FOR 2 SIGNS K2408090 7CC9 7003 829 | MDX BIN7+1 GO CHECK INPUT MODE K2408100 830 | * K2408110 831 | * I TYPE DATA OUTPUT K2408120 832 | * K2408130 7CCA C2F2 833 | BIN3 LD 2 MONE-X SET UP A FALSE DECIMAL K2408140 7CCB D217 834 | STO 2 DD-X *COUNT FOR K2408150 7CCC C204 835 | BIN7 LD 2 TWO-X *COMMON CALCULATION FOR K2408160 7CCD D215 836 | STO 2 TEMP-X *AVAILABLE PR POSITIONS K2408170 7CCE C216 837 | BIN5 LD 2 WW-X LOAD FIELD WIDTH K2408180 7CCF 9217 838 | S 2 DD-X *LESS DECIMAL COUNT K2408190 7CD0 9215 839 | S 2 TEMP-X *LESS NO. SIGNS TO GET K2408200 7CD1 D215 840 | STO 2 TEMP-X *NO. AVAIL PRINT POSITIONS K2408210 7CD2 10A0 841 | SLT 32 CLEAR ACC AND EXTENSION K2408220 7CD3 D20D 842 | STO 2 CONVT-4-X CLR 1ST WD CONVERSION AREA K2408230 7CD4 DA10 843 | STD 2 CONVT-1-X CLR 4TH AND 5TH WORDS K2408240 7CD5 D213 844 | STO 2 DIVCT-X CLEAR DIVIDE COUNT K2408250 7CD6 C2FE 845 | LD 2 BLANK-X PUT BLANKS IN K2408260 7CD7 D20C 846 | STO 2 EENCT-X *EXPONENT AND K2408270 7CD8 D214 847 | STO 2 MANSN-X *MANTISSA SIGNS K2408280 7CD9 6102 848 | LDX 1 2 SET XR1 TO NO. WDS TO CHK K2408290 7CDA C500 7C51 849 | BIN52 LD L1 EENCT+1 CHECK CONVERSION WD K2408300 7CDC 4820 850 | BSC Z SKIP IF ZERO K2408310 7CDD 700B 851 | MDX BIN51 BR OUT IF NOT K2408320 7CDE 71FF 852 | MDX 1 -1 DECR WD COUNT K2408330 7CDF 70FA 853 | MDX BIN52 BR BACK IF MORE WDS TO CHECK K2408340 7CE0 CA07 854 | LDD 2 H00F0-X LOOP FINISHED, PUT EBC 0 K2408350 7CE1 DA0A 855 | STD 2 BB-X *IN O/P EXPONENT K2408360 7CE2 C202 856 | LD 2 FORTP-X CHECK FOR I TYPE FORMAT TO K2408370 7CE3 9204 857 | S 2 TWO-X *OUTPUT ZEROS INSTEAD OF K2408380 7CE4 4820 858 | BSC Z *BLANKS FOR A REAL K2408390 7CE5 7051 859 | MDX BIN19 *ZERO COMPUTATION K2408400 7CE6 C205 860 | LD 2 ONE-X SET FLAG TO OUTPUT K2408410 7CE7 D213 861 | STO 2 DIVCT-X *ZEROS K2408420 7CE8 704E 862 | MDX BIN19 BRANCH TO OUTPUT K2408430 7CE9 CA0E 863 | BIN51 LDD 2 CONVT-3-X LD MANTISSA (ACC EXTENSION) K2408440 7CEA 4810 864 | BSC - SKIP IF NEGATIVE K2408450 7CEB 7004 865 | MDX BIN9 BR TO NORMALIZE K2408460 7CEC 7420 7C58 866 | MDX L MANSN,32 SET MANTISSA SIGN NEGATIVE K2408470 7CEE 10A0 867 | SLT 32 CLEAR ACC-EXTENSION TO GET K2408480 7CEF 9A0E 868 | SD 2 CONVT-3-X *ABSOLUTE VALUE OF MANTISSA K2408490 7CF0 1081 869 | BIN9 SLT 1 SHIFT OUT SIGN BIT K2408500 7CF1 DA0E 870 | STD 2 CONVT-3-X SAVE ABS VALUE W/O SIGN K2408510 7CF2 C201 871 | LD 2 FRMAI-X TEST FOR INTEGERS K2408520 7CF3 4C18 7D06 872 | BSC L BIN13,+- BR IF INTEGERS K2408530 7CF5 C205 873 | LD 2 ONE-X SET UP FOR ROUNDING,ACC=1 K2408540 7CF6 7400 7C5C 874 | MDX L PREC IS PRECISION EXTENDED K2408550 7CF8 1888 875 | SRT 8 YES, SHIFT TOTAL OF 15 K2408560 7CF9 1887 876 | SRT 7 NO, SHIFT 7 K2408570 7CFA 8A0E 877 | AD 2 CONVT-3-X ADD 2WDS TO BE CONVERTED K2408580 7CFB 4802 878 | BSC C TEST FOR OVERFLOW K2408590 7CFC 7001 879 | MDX *+1 OVERFLOW,BRANCH OVER NXT WD K2408600 7CFD 7007 880 | MDX IR11 NO OVERFLOW, BRANCH OUT K2408610 7CFE 1881 881 | SRT 1 SHIFT 1 MORE TO ROUND K2408620 7CFF EAFC 882 | OR 2 H8000-X PUT BIT IN SIGN POSITION K2408630 7D00 DA0E 883 | STD 2 CONVT-3-X SAVE CONVERSION WD K2408640 7D01 C219 884 | LD 2 BIN-X INCR BINARY K2408650 7D02 8205 885 | A 2 ONE-X *POINT COUNTER K2408660 7D03 D219 886 | STO 2 BIN-X *BY 1 K2408670 7D04 7002 887 | MDX BIN13+1 BR PAST NXT 2 WDS K2408680 7D05 DA0E 888 | IR11 STD 2 CONVT-3-X STORE IN CONVERSION K2408690 7D06 C219 889 | BIN13 LD 2 BIN-X IS BINARY PT GE 128 K2408700 7D07 92F1 890 | S 2 C128-X GREATER THAN 128 K2408710 7D08 4828 891 | BSC +Z SKIP IF GE 128 K2408720 7D09 701C 892 | MDX BIN10 GO HANDLE K2408730 7D0A 4C08 7D15 893 | BSC L BIN11,+ BR IF = 128 K2408740 7D0C 408B 894 | BIN12 BSI DIVID GO DIVIDE ANSWER BY 10 K2408750 7D0D 42F8 895 | BSI 2 NORM-X GO NORMALIZE ANSWER K2408760 7D0E 7401 7C57 896 | MDX L DIVCT,+1 INCR DIVIDE COUNT BY 1 K2408770 7D10 1000 897 | NOP K2408780 7D11 C219 898 | LD 2 BIN-X TEST IF BINARY PT LE 128 K2408790 7D12 92F1 899 | S 2 C128-X *AFTER DIVISION K2408800 7D13 4830 900 | BSC -Z SKIP IF YES K2408810 7D14 70F7 901 | MDX BIN12 NO, DIVIDE AGAIN K2408820 7D15 C202 902 | BIN11 LD 2 FORTP-X TEST OUTPUT E TYPE K2408830 7D16 4820 903 | BSC Z SKIP IF E TYPE K2408840 7D17 70A6 904 | MDX BIN14 NOT E TYPE, BR TO NORM K2408850 7D18 C213 905 | LD 2 DIVCT-X TEST DIVIDE COUNT K2408860 7D19 4C10 7D1F 906 | BSC L BIN16,- IF POSITIVE OR ZERO, BR OUT K2408870 7D1B C2FD 907 | BIN15 LD 2 MINUS-X PUT NEGATIVE SIGN OUT FOR K2408880 7D1C D20C 908 | STO 2 EENCT-X *EXPONENT SIGN K2408890 7D1D 1010 909 | SLA 16 CLEAR ACC K2408900 7D1E 9213 910 | S 2 DIVCT-X GET ABS VALUE OF DIVIDE CNT K2408910 7D1F 18D0 911 | BIN16 RTE 16 PUT DIVIDE CNT IN EXTENSION K2408920 7D20 1010 912 | SLA 16 CLEAR ACC K2408930 7D21 D213 913 | STO 2 DIVCT-X CLEAR DIVIDE COUNT WORD K2408940 7D22 AAF3 914 | D 2 TEN-X DIVIDE DIVIDE CNT BY 10 K2408950 7D23 8A07 915 | AD 2 H00F0-X ADD EBC 0 TO CONVERT TO EBC K2408960 7D24 DA0A 916 | STD 2 BB-X SAVE EBC EXPONENT K2408970 7D25 7098 917 | MDX BIN14 BRANCH TO NORMALIZE K2408980 7D26 C202 918 | BIN10 LD 2 FORTP-X TEST FOR E TYPE OUTPUT K2408990 7D27 4820 919 | BSC Z SKIP IF YES K2409000 7D28 7095 920 | MDX BIN14 NO, GO HANDLE NEG F TYPE K2409010 7D29 42F5 921 | BSI 2 MULT-X MULTIPLY ANSWER BY 10 K2409020 7D2A 42F8 922 | BSI 2 NORM-X GO NORMALIZE ANSWER K2409030 7D2B 74FF 7C57 923 | MDX L DIVCT,-1 DECR DIVIDE COUNT BY 1 K2409040 7D2D 70D8 924 | MDX BIN13 GO CHECK BINARY POINT K2409050 7D2E 70D7 925 | MDX BIN13 *AGAIN AFTER MULTIPLYING K2409060 926 | * K2409070 927 | * SUBROUTINE K2409080 928 | * OUTPUT CHARACTER TO PRINT BUFFER K2409090 929 | * K2409100 7D2F 0000 930 | CHARO DC *-* ENTRY POINT K2409110 7D30 1008 931 | SLA 8 SHIFT CHAR TO LEFT HALF OF K2409120 7D31 D480 7C13 932 | STO I PAP *WD AND STORE IN PRINT BFR K2409130 7D33 7401 7C13 933 | MDX L PAP,1 INCR BUFFER POINTER K2409140 7D35 4C80 7D2F 934 | CHAR3 BSC I CHARO RETURN TO CALLING PROGRAM K2409150 935 | * K2409160 936 | * OUTPUT CONVERTED DECIMAL NUMBER K2409170 937 | * K2409180 7D37 C215 938 | BIN19 LD 2 TEMP-X GET NO. AVAILABLE POSITIONS K2409190 7D38 9213 939 | S 2 DIVCT-X COMPARE WITH DIVIDE COUNT K2409200 7D39 4808 940 | BSC + SKIP IF NO. POSITIONS BIGGER K2409210 7D3A 7006 941 | MDX BIN18 BR TO PUT OUT CHARACTERS K2409220 7D3B D215 942 | STO 2 TEMP-X STORE EXCESS NO. POSITIONS K2409230 7D3C C2FE 943 | BIN20 LD 2 BLANK-X PUT OUT NO. OF K2409240 7D3D 40F1 944 | BSI CHARO *BLANK CHARACTERS EQUAL K2409250 7D3E 74FF 7C59 945 | MDX L TEMP,-1 *TO EXCESS K2409260 7D40 70FB 946 | MDX BIN20 CONTINUE UNTIL LOOP DONE K2409270 7D41 C214 947 | BIN18 LD 2 MANSN-X LD MANTISSA SIGN K2409280 7D42 40EC 948 | BSI CHARO PUT IN PRINT BUFFER K2409290 7D43 C201 949 | LD 2 FRMAI-X CHECK FOR INTEGER K2409300 7D44 4820 950 | BSC Z SKIP IF IT IS AN INTEGER K2409310 7D45 7002 951 | MDX *+2 ELSE,BRANCH AHEAD K2409320 7D46 C2F2 952 | LD 2 MONE-X SET LARGE VALUE IN LAST K2409330 7D47 D211 953 | STO 2 CONVT-X *WORD OF CONVERSION AREA K2409340 7D48 C213 954 | LD 2 DIVCT-X LD DIVIDE COUNT K2409350 7D49 4808 955 | BSC + SKIP IF NOT = ZERO K2409360 7D4A 7008 956 | MDX BIN23 GO HANDLE ZERO K2409370 7D4B 1010 957 | BIN28 SLA 16 CLEAR ACC K2409380 7D4C D20D 958 | STO 2 CONVT-4-X CLEAR CONVERSION WORD 1 K2409390 7D4D 42F5 959 | BSI 2 MULT-X MULTIPLY BY 10 K2409400 7D4E EA07 960 | OR 2 H00F0-X ADD EBC 0 TO CONVERT K2409410 7D4F 40DF 961 | BSI CHARO *OVERFLOW, O/P CHAR K2409420 7D50 74FF 7C57 962 | MDX L DIVCT,-1 DECR DIVIDE COUNT BY 1 K2409430 7D52 70F8 963 | MDX BIN28 BR TO HANDLE MULTIPLY K2409440 7D53 C217 964 | BIN23 LD 2 DD-X TEST DECIMAL COUNT OF FMT K2409450 7D54 4828 965 | BSC +Z SKIP IF 0 OR POSITIVE K2409460 7D55 7009 966 | MDX BIN25 IF NOT, BR TO HANDLE I TYPE K2409470 7D56 C206 967 | LD 2 H004B-X GET EBC DECIMAL POINT K2409480 7D57 40D7 968 | BSI CHARO MOVE TO PRINT BUFFER K2409490 7D58 C217 969 | LD 2 DD-X LD DECIMAL COUNT K2409500 7D59 4808 970 | BSC + SKIP IF GT 0 K2409510 7D5A 7004 971 | MDX BIN25 ZERO, BRANCH AHEAD K2409520 7D5B D213 972 | STO 2 DIVCT-X PUT NO. DECML DIGITS-DIVCT K2409530 7D5C C2F2 973 | LD 2 MONE-X PUT -1 IN K2409540 7D5D D217 974 | STO 2 DD-X *NO. OF DECML DIGITS K2409550 7D5E 70EC 975 | MDX BIN28 GO PROCESS K2409560 7D5F C202 976 | BIN25 LD 2 FORTP-X GET OUTPUT TYPE K2409570 7D60 4820 977 | BSC Z SKIP IF R TYPE K2409580 7D61 7008 978 | MDX IR13 GO RETURN TO CALLER K2409590 7D62 C2F4 979 | LD 2 H00C5-X LOAD EBC E K2409600 7D63 40CB 980 | BSI CHARO PUT IN PRINT BUFFER K2409610 7D64 C20C 981 | LD 2 EENCT-X LOAD EXPONENT SIGN K2409620 7D65 40C9 982 | BSI CHARO PUT IN PRINT BUFFER K2409630 7D66 C20A 983 | LD 2 BB-X LOAD 1 WD OF EXPONENT VALUE K2409640 7D67 40C7 984 | BSI CHARO PUT IN PRINT BUFFER K2409650 7D68 C20B 985 | LD 2 BB+1-X LOAD 2 WD OF EXPONENT VALUE K2409660 7D69 40C5 986 | BSI CHARO PUT IN PRINT BUFFER K2409670 7D6A 6500 0000 987 | IR13 LDX L1 *-* RESTORE XR1 K2409680 7D6C 6600 0000 988 | LDX L2 *-* RESTORE XR2 K2409690 7D6E 4C80 7CB0 989 | BSC I BINRY RETURN TO CALLER K2409700 990 | * K2409710 991 | * MESSAGES TO BE PRINTED THIS PHASE K2409720 992 | * K2409730 993 | * K2409740 7D70 0009 994 | TEXT2 DC 9 K2409750 7D71 C9D5 E3C5 C7C5 D940 995 | EBC .INTEGER CONSTANTS . K2409760 C3D6 D5E2 E3C1 D5E3 | E240 | 7D7A 000B 996 | CORTX DC 11 K2409770 7D7B C3D6 D9C5 40D9 C5D8 997 | EBC .CORE REQUIREMENTS FOR . K2409780 E4C9 D9C5 D4C5 D5E3 | E240 C6D6 D940 | 7D86 0004 998 | COMTX DC 4 K2409790 7D87 40C3 D6D4 D4D6 D540 999 | EBC . COMMON . K2409800 7D8B 0006 1000 | VARTX DC 6 K2409810 7D8C 4040 E5C1 D9C9 C1C2 1001 | EBC . VARIABLES . K2409820 D3C5 E240 | 7D92 0005 1002 | PROTX DC 5 K2409830 7D93 4040 D7D9 D6C7 D9C1 1003 | EBC . PROGRAM . K2409840 D440 | 1004 | * K2409850 1005 | * PHASE EXIT K2409860 1006 | * K2409870 7D98 7002 1007 | HTES2 DC /7002 LINE SPACE PARAMETER K2409880 7D99 C0FE 1008 | EXIT LD HTES2 LOAD LINE SPACE PARAM K2409890 7D9A 4400 7E45 1009 | BSI L LSTPR BR TO SPACE LINE K2409900 7D9C 6580 7DA3 1010 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2409910 7D9E C805 1011 | LDD NXTPH+2 *NEXT PHASE K2409920 7D9F 4C00 7FBC 1012 | BSC L ROL GO TO READ NEXT PHASE K2409930 7DA2 1013 | BSS E 0 K2409940 7DA2 0037 1014 | NXTPH DC 55 ID OF NEXT PHASE K2409950 7DA3 0000 1015 | DC *-* CORE ADDRESS NEXT PHASE K2409960 7DA4 0000 1016 | DC *-* WORD COUNT NEXT PHASE K2409970 7DA5 0000 1017 | DC *-* SECTOR ADDRESS NEXT PHASE K2409980 7DA6 0000 1018 | PTCH1 DC *-* LINK 2-2 K2409990 7DA7 F333 1019 | EOR 3 H8000-Z IS NUMBER /8000 2-2 K2410000 7DA8 4C20 7DAF 1020 | BSC L INTD1,Z BRANCH IF NO 2-2 K2410010 7DAA C333 1021 | LD 3 H8000-Z IF YES - GO HANDLE 2-2 K2410020 7DAB 1881 1022 | SRT 1 *THAT 2-2 K2410030 7DAC 7401 7C5D 1023 | MDX L BIN,1 *SPECIAL 2-2 K2410040 7DAE D345 1024 | STO 3 CONVT-3-Z *NUMBER 2-2 K2410050 7DAF 4400 7CB0 1025 | INTD1 BSI L BINRY GO CONVERT TO DECIMAL 2-2 K2410060 7DB1 4C80 7DA6 1026 | BSC I PTCH1 RETURN 2-2 K2410070 7DB3 1027 | BSS 66 PATCH AREA 2-4 K2410080 7DF5 0000 1028 | DC 0 K2410090 7DF6 1029 | END BPHAR-2 2-2 K2410100 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $CH12 0006 75 332 345 378 $PHSE 0078 67 191 AREA 7E0D 78 172 177 668 ATPA 7B98 497 318 363 516 ATPA1 7BA5 506 499 ATPA2 7BA6 507 502 BB 7C4E 705 855 916 983 985 BIN 7C5D 720 287 296 358 528 762 764 778 780 816 884 886 889 898 1023 BIN10 7D26 918 892 BIN11 7D15 902 893 BIN12 7D0C 894 901 BIN13 7D06 889 872 887 924 925 BIN14 7CBE 816 822 824 904 917 920 BIN15 7D1B 907 BIN16 7D1F 911 906 BIN17 7CC6 823 819 BIN18 7D41 947 941 BIN19 7D37 938 820 859 862 BIN20 7D3C 943 946 BIN23 7D53 964 956 BIN25 7D5F 976 966 971 BIN28 7D4B 957 963 975 BIN3 7CCA 833 815 BIN4 7CC8 828 813 BIN5 7CCE 837 BIN51 7CE9 863 851 BIN52 7CDA 849 853 BIN7 7CCC 835 814 829 BIN9 7CF0 869 865 BINRY 7CB0 807 311 360 989 1025 BLANK 7C42 687 845 943 BLKP1 7C05 617 619 BLKPA 7C01 614 183 185 343 397 621 672 BPHAR 7A36 130 1029 C128 7C35 676 817 890 899 CCWD 7A31 104 200 217 CHAR 7C44 693 697 CHAR3 7D35 934 CHARO 7D2F 930 934 944 948 961 968 980 982 984 986 CKEND 7AFA 328 365 CLOC 7C18 644 240 321 323 364 500 506 CM3 7C1B 647 489 COMA 7C23 655 421 COMON 7A2B 91 COMTX 7D86 998 655 CONVT 7C55 712 281 285 298 300 353 359 425 433 446 525 742 746 842 843 863 868 870 877 883 888 953 958 1024 CORA 7C22 654 399 COREQ 7B3C 397 219 385 CORTX 7D7A 996 654 CS000 7B80 467 456 459 462 475 CS010 7B87 475 480 CS050 7B89 479 469 473 CSIZE 7A2C 92 424 455 D143 7C1E 650 527 D60 7C26 658 669 DD 7C5B 718 304 834 838 964 969 974 DFCNT 7A33 125 DIV1 7C9B 788 801 DIVCT 7C57 714 844 861 896 905 910 913 923 939 954 962 972 DIVID 7C98 785 802 894 EENCT 7C50 707 728 735 756 758 846 849 908 981 ENT 7A72 190 137 EOFS 7A25 85 EOFST 7A2A 90 244 ERROR 7A2D 93 197 479 503 EXIT 7D99 1008 198 464 504 FIVE 7C3F 684 792 795 FNAME 7A2E 101 401 FORTP 7C46 695 310 530 811 856 902 918 976 FRMAI 7C45 694 308 526 871 949 H000A 7BE5 568 597 H000F 7BE4 567 596 H0039 7BE6 569 599 H004B 7C4A 701 967 H00C5 7C38 679 979 H00F0 7C4B 702 854 915 960 H3F00 7C1F 651 576 H4000 7C20 652 588 615 H7E00 7C1C 648 312 361 H8000 7C40 685 354 356 798 882 1019 1021 HC000 7C15 641 583 HEAD 7F8B 72 73 HTES 7B04 337 341 349 HTES1 7BC4 538 537 541 542 HTES2 7D98 1007 1008 HTES3 7BD8 553 INCR 7C14 638 231 INTC 7B16 351 342 INTD 7B22 360 355 INTD1 7DAF 1025 1020 INTLS 7BB1 521 351 423 431 441 531 IOCS 7A32 113 IR11 7D05 888 880 IR13 7D6A 987 808 809 978 JCON 7C4C 703 726 732 733 L4011 7A81 211 L4012 7AB1 239 225 L4013 7AB8 243 371 L401X 7AB4 241 391 L4021 7ABD 246 L4022 7ADA 293 275 L4024 7AE5 303 233 288 L4025 7AE8 305 234 L4031 7B05 339 249 L4032 7B2A 370 247 252 330 334 340 L4033 7B2D 375 245 LKTYP 7C47 696 789 794 797 LNEND 7C1D 649 329 LOOPP 7BC9 541 550 LSTPR 7E45 77 1009 MANSN 7C58 715 847 866 947 MASK3 7C1A 646 487 MEMRY 8000 64 65 66 MINUS 7C41 686 907 MONE 7C36 677 833 952 973 MSTP 7B8C 485 370 453 471 472 494 MULT 7C39 680 738 921 959 MULT1 7C5E 726 681 MULT3 7C60 728 737 NEQ 7A36 137 195 NEWPG 7E0C 74 76 78 333 346 379 NORLT 7C78 753 748 765 821 NORM 7C3C 682 747 895 922 NORM1 7C6E 742 683 745 749 NORM4 7C89 770 777 NORM7 7C7B 756 761 NORMT 7C73 746 743 NORRT 7C88 769 744 781 823 NXTPH 7DA2 1014 133 1010 1011 ONE 7C49 700 763 779 788 860 873 885 ORG 7A23 83 501 ORGSW 7C27 659 203 498 OVERL 7A23 65 80 OVERP 7E42 73 74 77 PAP 7C13 637 328 375 540 551 562 563 667 932 933 PAPIN 7C12 636 171 376 666 PAREA 7A39 139 236 237 617 636 637 649 PHEAD 7AC6 265 181 182 PHID 0036 69 190 PREC 7C5C 719 274 874 PRINN 7C28 665 331 344 350 377 398 418 448 673 PRINT 7E0E 76 175 180 671 PROA 7C25 657 439 PROTX 7D92 1002 657 PTCH1 7DA6 1018 426 434 447 1026 PTEX1 7A58 171 265 PTEXT 7BC2 536 348 400 422 430 440 553 RETZY 7CAE 802 ROL 7FBC 66 72 1012 RVARF 7C16 642 230 272 322 SIGN 7C56 713 772 774 790 799 SIX 7C43 688 828 SOFGT 7A29 89 SOFNS 7A27 87 442 445 461 SOFS 7A24 84 SOFST 7A26 86 241 SOFXT 7A28 88 239 432 444 458 SORF 7A30 103 STOCH 7BE3 566 560 561 584 STP 7C19 645 242 243 491 492 493 STPS 7C17 643 212 250 339 384 389 TEMP 7C59 716 836 839 840 938 942 945 TEN 7C37 678 729 731 796 914 TEX2A 7C21 653 347 TEXT1 7A4A 156 176 TEXT2 7D70 994 653 TOPA 7BE7 575 403 406 411 414 417 585 602 608 TOPA1 7BEC 584 589 TOPA2 7BF0 588 577 TOPAB 7BFC 606 319 515 609 TOPAH 7BF2 595 508 510 512 514 603 TOPAU 7BDA 559 313 362 564 586 TOPAX 7BDC 561 587 TWO 7C48 699 835 857 VARA 7C24 656 429 VARTX 7D8B 1000 656 WDCNT 7A38 138 174 179 670 WW 7C5A 717 306 523 837 X 7C44 697 726 729 731 732 733 742 746 762 763 764 778 779 780 788 789 792 795 796 798 810 816 817 828 833 834 835 836 837 838 839 840 842 843 844 845 846 847 854 855 856 857 860 861 863 868 870 871 873 877 882 883 884 885 886 888 889 890 895 898 899 902 905 907 908 910 913 914 915 916 918 921 922 938 939 942 943 947 949 952 953 954 958 959 960 964 967 969 972 973 974 976 979 981 983 985 Z 7C0D 631 171 184 194 203 212 240 243 250 272 312 313 318 319 321 322 323 328 329 331 339 343 344 347 348 350 351 354 356 359 361 362 363 375 376 384 389 397 398 399 400 403 406 411 414 417 418 421 422 423 429 430 431 439 440 441 448 487 489 491 492 498 500 506 527 552 576 588 615 620 666 667 669 672 1019 1021 1024
ibm/ibm1130-lib/dmsr2v12/kforph24_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator