File: PASS35.LS of Disk: V50/Source/Source-Listing-PAL-3
(Source file text)
/OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 1 /OS/8 FORTRAN (PASS THREE) / / VERSION 5A WVDM 9-OCT-80 / / OS/8 FORTRAN IV COMPILER-PASS 3 / / BY: HANK MAURER / UPDATED BY: R. LARY + M. HURLEY + WVDM / / / 0005 VERSON=5 / / OS/8 V3C MAINTENANCE RELEASE FIXES: /1. EXTENDED RANGE OF PAGE NUMBERS TO 99 /2 INTERCHANGED CR/LF FOR HASSINGER /3 CHANGED VERSION NO. TO 305 /5. ADDED 'I' TO JMP (OFOO3 / / / CHANGES FOR OS/8 V3D AND OS/78 BY P.T. / .CHANGED VERSION NUMBER TO 4A / .PUT IN NEW DATE ALGORITHM / ADAPTED FOR CCL DEVICE WVDM /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 2 / PAGE ZERO STUFF 7000 OUDEVH=7000 /PUT OUDEVH AND OUBUF IN DIFFERENT 6400 INDEVH=6400 6000 INBUF=6000 5400 OUBUF=5400 /SEGMENTS, STAN KNOWS WHY 0010 X10=10 0011 X11=11 0012 X12=12 0020 NCHARS=20 0021 CHAR=21 0022 TEMP=22 0006 FILDEV=6 0007 FILBLK=7 0173 DEV1CE=173 /THROUGH 177 0023 DEVH=23 0024 LINENO=24 0025 SEVCHR=25 /THROUGH 33 7757 MREAD=7757 7776 SBLOCK=7776 7643 OS8SWS=7643 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 3 /START OF PASS 3 0400 *400 /DON'T LOAD INTO 0-377 000400 6211 SPASS3, CDF 10 000401 1777 TAD I (7666 /GET DATE 000402 3022 DCA TEMP 000403 1776 TAD I (OS8SWS+1 000404 0375 AND (100 /WAS /R SET ? 000405 3023 DCA DEVH /YES, SET FRUN SWITCH TEMP 000406 1734 TAD I LSTFIL /COPY FILE NAME 000407 6201 CDF 000410 3735 DCA I FILLST 000411 2334 ISZ LSTFIL 000412 2335 ISZ FILLST 000413 2336 ISZ OFSIZE 000414 5200 JMP SPASS3 000415 1023 TAD DEVH /IS IT FRUN ? 000416 7650 SNA CLA 000417 5222 JMP .+3 /NO 000420 1374 TAD (")&77+6300 /YES, SET '3)' FOR (A3) IN TITLE 000421 3773 DCA I (SW36 000422 1173 TAD DEV1CE /FETCH HANDLER FOR OUTPUT FILE 000423 6212 CIF 10 000424 4772 JMS I (200 /USR IS IN CORE 000425 0001 1 000426 7001 OH, OUDEVH+1 /TWO PAGE HANDLER IS OK 000427 5771 JMP I (OFOO3 000430 6212 CIF 10 000431 1173 TAD DEV1CE /OPEN THE LISTING FILE 000432 4772 JMS I (200 000433 0003 3 000434 0174 OB, DEV1CE+1 000435 0000 OS, 0 000436 5771 JMP I (OFOO3 000437 1234 TAD OB /SAVE BLOCK NUMBER 000440 3770 DCA I (OBLOCK 000441 1235 TAD OS 000442 3767 DCA I (OSIZE /AND SIZE OF HOLE 000443 1226 TAD OH /SAVE HANDLER ADDRESS 000444 3023 DCA DEVH 000445 1366 TAD (NUMS-1 /SET UP NUMBER POINTER 000446 3765 DCA I (NUM 000447 1022 TAD TEMP /GET THE DATE--FOR YEAR ROUTINE 000450 7450 SNA 000451 5764 JMP I (PAJE /NO DATE 000452 0363 AND (7 /MASK OUT ALL BUT YEAR OFFSET BITS 000453 3337 DCA YRTEMP /INCREMENT FROM THE BASE YEAR 000454 3340 DCA TEMP1 /HOLDS THE FIRST DIGIT OF THE YEAR 000455 1762 TAD I (7777 /GET THE DATE EXTENSION BITS 000456 0361 AND (1600 /MASK TO GET THE EXTENSION BITS 000457 7112 CLL RTR /ROTATE THEM INTO BIT 000460 7012 RTR /POSITIONS 7 AND 8 000461 1337 TAD YRTEMP /ADD IN THE YEAR OFFSET BITS 000462 3337 DCA YRTEMP /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 3-1 000463 1337 TAD YRTEMP 000464 1360 TAD (-36 /100-70 000465 7700 SMA CLA 000466 1357 TAD (-12 000467 3341 DCA OFFSET 000470 1337 TAD YRTEMP 000471 7100 CONVYR, CLL /FIND THE YEAR IN DECIMAL 000472 1357 TAD (-12 /KEEP SUBTRACTING 12 000473 7420 SNL /ALMOST DONE 000474 5277 JMP SECDIG /FIND THE SECOND DIGIT OF THE YEAR 000475 2340 ISZ TEMP1 /FIND THE FIRST DIGIT OF THE YEAR 000476 5271 JMP CONVYR /TRY AGAIN /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 4 000477 1356 SECDIG, TAD (72 /GET THE SECOND DIGIT OF THE YEAR 000500 7002 BSW /AND MAKE IT SIXBIT 000501 3755 DCA I (YEAR+1 /PUT IT IN THE PRINT LINE 000502 1340 TAD TEMP1 /GET THE FIRST DIGIT 000503 1354 TAD (5567 /MAKE IT SIXBIT 000504 1341 TAD OFFSET 000505 3753 DCA I (YEAR /PRINT IT 000506 1022 TAD TEMP /GET THE DATE--NOW FIND THE MONTH/DAY 000507 7112 CLL RTR 000510 7010 RAR 000511 0352 AND (777 000512 3022 DCA TEMP 000513 1022 SIMPLE, TAD TEMP /GET THE DAY 000514 0351 AND (37 000515 1350 TAD (DAYS-1 /THIS IS THE LAZY WAY 000516 3020 DCA NCHARS 000517 1420 TAD I NCHARS 000520 3747 DCA I (DAY 000521 1022 TAD TEMP /GET THE MONTH 000522 7112 CLL RTR 000523 7012 RTR 000524 0346 AND (36 000525 1345 TAD (MONTHS-3 000526 3010 DCA X10 000527 1410 TAD I X10 000530 3744 DCA I (MONTH 000531 1410 TAD I X10 000532 3743 DCA I (MONTH+1 000533 5764 JMP I (PAJE /WE GOT THE DATE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 5 000534 7605 LSTFIL, 7605 000535 0173 FILLST, DEV1CE 000536 7773 OFSIZE, -5 000537 0000 YRTEMP, 0 000540 0000 TEMP1, 0 000541 0000 OFFSET, 0 000543 0722 000544 0721 000545 1244 000546 0036 000547 0720 000550 1207 000551 0037 000552 0777 000553 0723 000554 5567 000555 0724 000556 0072 000557 7766 000560 7742 000561 1600 000562 7777 000563 0007 000564 0600 000565 3706 000566 1011 000567 2077 000570 2011 000571 2203 000572 0200 000573 0716 000574 6351 000575 0100 000576 7644 000577 7666 0600 PAGE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 6 000600 5777 PAJE, JMP I (PRHDR /PRINT THE FIRST HEADING 000601 7126 CLL CML RTL /INITIALIZE LINE NUMBER 000602 3024 DCA LINENO 000603 3277 DCA TABCNT /** 000604 1376 RDLUPE, TAD (SEVCHR-1 /SEVEN CHAR BUFFER 000605 3010 DCA X10 000606 1375 TAD (-6 000607 3020 DCA NCHARS 000610 4774 RDLOOP, JMS I (ICHAR 000611 5347 JMP RDACHO /ECHO & IGNORE SHORT LINES 000612 1373 TAD (-211 /IS IT A TAB ? 000613 7640 SZA CLA 000614 5224 JMP NOTAB /NO 000615 1372 TAD (-2 000616 3277 DCA TABCNT /SET POINTER TO DO EXTRA SPACES LATER** 000617 1371 TAD (240 000620 3410 DCA I X10 /DO A TAB 000621 2020 ISZ NCHARS 000622 5217 JMP .-3 000623 5230 JMP WHAT /GO LOOK AT THE LINE 000624 1021 NOTAB, TAD CHAR 000625 3410 DCA I X10 /SAVE THE CHAR 000626 2020 ISZ NCHARS 000627 5210 JMP RDLOOP 000630 1025 WHAT, TAD SEVCHR /IS IT A COMMNET 000631 1370 TAD (-303 000632 7650 SNA CLA 000633 5246 JMP NOISN /YES, NO INTERNAL STMT NUMBER 000634 1032 TAD SEVCHR+5 /IS IT A CONTINUATION ? 000635 1367 TAD (-240 000636 7640 SZA CLA 000637 5246 JMP NOISN /YES, NO ISN 000640 1024 TAD LINENO /NEITHER OF THESE 000641 4766 JMS I (ONUMBR /PRINT ISN 000642 1024 TAD LINENO /2.01/ PUT LINE NUM 000643 7421 7421 /2.01/ INTO MQ 000644 7200 CLA /2.01/ CLA IF NO EAE 000645 2024 ISZ LINENO /BUMP LINE NUMBER /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 7 000646 1365 NOISN, TAD (211 /TAB 000647 4764 JMS I (OCHAR 000650 1376 TAD (SEVCHR-1 /PRINT FIRST SEVEN 000651 3010 DCA X10 000652 1375 TAD (-6 000653 3020 DCA NCHARS 000654 1410 TAD I X10 000655 4764 JMS I (OCHAR 000656 2020 ISZ NCHARS 000657 5254 JMP .-3 000660 1277 TAD TABCNT /SEE IF A TAB WAS 1ST 000661 7700 SMA CLA /IF YES,NEED 2 MORE SPACES 000662 5270 JMP NOTTAB 000663 3277 DCA TABCNT /WAS A TAB 000664 1371 TAD (240 000665 4764 JMS I (OCHAR 000666 1371 TAD (240 000667 4764 JMS I (OCHAR 000670 4774 NOTTAB, JMS I (ICHAR /PRINT REST OF LINE 000671 5274 JMP ENDLIN 000672 4764 JMS I (OCHAR 000673 5270 JMP .-3 000674 4763 ENDLIN, JMS I (CRLF /END LINE 000675 4762 JMS I (ERRCHK /CHECK ERROR LIST 000676 5204 JMP RDLUPE /DO NEXT LINE 000677 0000 TABCNT, 0 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 8 000700 4040 HEADER, TEXT ' FORTRAN IV V50-A (A' 000701 4040 000702 4040 000703 4040 000704 0617 000705 2224 000706 2201 000707 1640 000710 1126 000711 4040 000712 2665 000713 6055 000714 0140 000715 5001 000716 0000 0716 *.-1 000716 6651 SW36, TEXT '6) ' 000717 4040 000720 0000 0720 *.-1 000720 4040 DAY, 4040 000721 4040 MONTH, 4040;4040 000722 4040 000723 4040 YEAR, TEXT ' PAGE ' 000724 4040 000725 4040 000726 4040 000727 4040 000730 4040 000731 4040 000732 4040 000733 2001 000734 0705 000735 4040 000736 0000 0736 *.-1 000736 1716 PAGENO, TEXT 'ONE' 000737 0500 000740 0000 ZBLOCK 7 /V3C ROOM FOR LARGE PAGE NUMBERS 000747 1365 RDACHO, TAD (211 000750 4764 JMS I (OCHAR 000751 5761 JMP I (RDECHO 000761 1747 000762 2101 000763 1514 000764 2022 000765 0211 000766 1462 000767 7540 000770 7475 000771 0240 000772 7776 000773 7567 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 8-1 000774 1600 000775 7772 000776 0024 000777 1523 1000 PAGE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 9 001000 4040 TEXT " " 001001 4040 001002 4040 001003 4040 001004 4000 001005 1716 LOS, TEXT "ONE " 001006 0540 001007 4040 001010 4040 001011 4000 NUMS,/ 2427;1740;4040 / 2410;2205;0540 / 0617;2522;4040 / 0611;2605;4040 / 2311;3040;4040 / 2305;2605;1640 / 0511;0710;2440 / 1611;1605;4040 / 2405;1640;4040 / 0514;0526;0516 / 2427;0514;2605 001012 2427 TEXT "TWO@@@@@" 001013 1700 001014 0000 001015 0000 001016 0000 001017 2410 TEXT "THREE@@@" 001020 2205 001021 0500 001022 0000 001023 0000 001024 0617 TEXT "FOUR@@@@" 001025 2522 001026 0000 001027 0000 001030 0000 001031 0611 TEXT "FIVE@@@@" 001032 2605 001033 0000 001034 0000 001035 0000 001036 2311 TEXT "SIX@@@@@" 001037 3000 001040 0000 001041 0000 001042 0000 001043 2305 TEXT "SEVEN@@@" 001044 2605 001045 1600 001046 0000 001047 0000 001050 0511 TEXT "EIGHT@@@" 001051 0710 001052 2400 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 9-1 001053 0000 001054 0000 001055 1611 TEXT "NINE@@@@" 001056 1605 001057 0000 001060 0000 001061 0000 001062 2405 TEXT "TEN@@@@@" 001063 1600 001064 0000 001065 0000 001066 0000 001067 0514 TEXT "ELEVEN@@" 001070 0526 001071 0516 001072 0000 001073 0000 001074 2427 TEXT "TWELVE@@" 001075 0514 001076 2605 001077 0000 001100 0000 001101 2410 TEXT "THIRTEEN" 001102 1122 001103 2405 001104 0516 001105 0000 001106 0617 TEXT "FOURTEEN" 001107 2522 001110 2405 001111 0516 001112 0000 001113 0611 TEXT "FIFTEEN@" 001114 0624 001115 0505 001116 1600 001117 0000 001120 2311 TEXT "SIXTEEN@" 001121 3024 001122 0505 001123 1600 001124 0000 001125 2305 TEXT "SEVENTEEN" 001126 2605 001127 1624 001130 0505 001131 1600 001132 0511 TEXT "EIGHTEEN" 001133 0710 001134 2405 001135 0516 001136 0000 001137 1611 TEXT "NINETEEN" 001140 1605 001141 2405 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 9-2 001142 0516 001143 0000 001144 4024 HIS, TEXT " TWENTY " 001145 2705 001146 1624 001147 3140 001150 0000 1150 *.-1 001150 4024 TEXT " THIRTY " 001151 1011 001152 2224 001153 3140 001154 0000 1154 *.-1 001154 4040 TEXT " FORTY " 001155 0617 001156 2224 001157 3140 001160 0000 1160 *.-1 001160 4040 TEXT " FIFTY " 001161 0611 001162 0624 001163 3140 001164 0000 1164 *.-1 001164 4040 TEXT " SIXTY " 001165 2311 001166 3024 001167 3140 001170 0000 1170 *.-1 001170 2305 TEXT "SEVENTY " 001171 2605 001172 1624 001173 3140 001174 0000 1174 *.-1 001174 4005 TEXT " EIGHTY " 001175 1107 001176 1024 001177 3140 001200 0000 1200 *.-1 001200 4016 TEXT " NINETY " 001201 1116 001202 0524 001203 3140 001204 0000 1204 *.-1 001204 1025 TEXT "HUNDRED " 001205 1604 001206 2205 001207 0440 001210 0000 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 9-3 1210 *.-1 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 10 001210 4061 DAYS, 4061;4062;4063;4064;4065;4066;4067;4070;4071 001211 4062 001212 4063 001213 4064 001214 4065 001215 4066 001216 4067 001217 4070 001220 4071 001221 6160 6160;6161;6162;6163;6164;6165;6166;6167;6170;6171 001222 6161 001223 6162 001224 6163 001225 6164 001226 6165 001227 6166 001230 6167 001231 6170 001232 6171 001233 6260 6260;6261;6262;6263;6264;6265;6266;6267;6270;6271 001234 6261 001235 6262 001236 6263 001237 6264 001240 6265 001241 6266 001242 6267 001243 6270 001244 6271 001245 6360 6360;6361 001246 6361 001247 5512 MONTHS, 5512;0116 /-JAN 001250 0116 001251 5506 5506;0502 /-FEB 001252 0502 001253 5515 5515;0122 /-MAR 001254 0122 001255 5501 5501;2022 /-APR 001256 2022 001257 5515 5515;0131 /-MAY 001260 0131 001261 5512 5512;2516 /-JUN 001262 2516 001263 5512 5512;2514 /-JUL 001264 2514 001265 5501 5501;2507 /-AUG 001266 2507 001267 5523 5523;0520 /-SEP 001270 0520 001271 5517 5517;0324 /-OCT 001272 0324 001273 5516 5516;1726 /-NOV 001274 1726 001275 5504 5504;0503 /-DEC /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 10-1 001276 0503 1400 IFZERO .&100 <PAGE> /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 11 001400 1377 ENDX, TAD (-601 /2.02/ CLEAR END OF BUFFER 001401 3024 DCA LINENO /2.01/ FOR TV: REASONS 001402 1260 TAD X232 /2.01/ OUTPUT ^Z 001403 4776 JMS I (OCHAR /2.01/ 001404 2024 ISZ LINENO /2.01/ 001405 5202 JMP .-3 /2.01/ 001406 6212 CIF 10 /CLOSE THE OUTPUT FILE 001407 1173 TAD DEV1CE 001410 4775 JMS I (200 001411 0004 4 001412 0174 DEV1CE+1 001413 0000 FILSIZ, 0 001414 5374 JMP (OFOO3 001415 6211 CDF 10 /LOOK AT OPTIONS 001416 1650 TAD I XSWS 001417 6201 CDF 001420 7710 M70, SPA CLA 001421 5773 JMP I (7605 //A MEANS DON'T CHAIN TO RALF 001422 6211 CDF 10 001423 1006 TAD FILDEV /SET UP RALF INPUT LIST 001424 3772 DCA I (7617 /FILE SIZE AND DEVICE CODE 001425 2372 ISZ (7617 001426 1007 TAD FILBLK /FILE START 001427 3772 DCA I (7617 001430 2372 ISZ (7617 /ZERO END OF LIST 001431 3772 DCA I (7617 001432 1650 TAD I XSWS /IS IT /F (FULL LIST) ? 001433 0371 AND (100 001434 7640 SZA CLA /** 001435 5242 JMP LISTIT 001436 1770 TAD I (OS8SWS+1 001437 0367 AND (20 /LET /T SWITCH THRU ALSO 001440 7650 SNA CLA 001441 3773 DCA I (7605 /NO, INHIBIT RALF LISTING /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 12 001442 6201 LISTIT, CDF 0 001443 1766 TAD I (SBLOCK /ON CCL-DEVICE 001444 6212 CIF 10 001445 4775 JMS I (200 /LOOKUP RALF.SV 001446 0002 2 001447 2157 RALFNM 001450 7643 XSWS, OS8SWS 001451 5374 JMP (OFOO3 001452 1247 TAD .-3 001453 3260 DCA X232 001454 1765 TAD I (MREAD-1 /ON CCL-DEVICE 001455 6212 CIF 10 /CHAIN TO RALF 001456 4775 JMS I (200 001457 0006 6 001460 0232 X232, 232 001461 0000 NCNT, 0 001462 0000 ONUMBR, 0 001463 3022 DCA TEMP /OUTPUT ISN IN OCTAL 001464 1364 TAD (-4 001465 3261 DCA NCNT 001466 1022 OLOOP, TAD TEMP 001467 7106 CLL RTL /ANYONE WHO CAN'T FOLLOW THIS 001470 7004 RAL /SHOULDN'T BE A PROGRAMMER 001471 3022 DCA TEMP 001472 1022 TAD TEMP 001473 7004 RAL 001474 0363 AND (7 001475 1362 TAD (260 001476 4776 JMS I (OCHAR 001477 2261 ISZ NCNT 001500 5266 JMP OLOOP 001501 5662 JMP I ONUMBR 001502 0000 CONVRT, 0 /CONVERT TO ASCII AND PRINT 001503 0361 AND (77 001504 7440 SZA 001505 1360 TAD (-40 001506 7510 SPA 001507 1371 TAD (100 001510 1357 TAD (240 001511 4776 JMS I (OCHAR 001512 5702 JMP I CONVRT /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 13 001513 7777 LINECT, -1 /EJECT FIRST TIME 001514 0601 CRLF, PAJE+1 001515 1356 TAD (215 /CR LF 001516 4776 JMS I (OCHAR 001517 1355 TAD (212 001520 4776 JMS I (OCHAR 001521 2313 ISZ LINECT 001522 5714 JMP I CRLF 001523 1354 PRHDR, TAD (214 001524 4776 JMS I (OCHAR 001525 1220 TAD M70 /RESET COUNT 001526 3313 DCA LINECT 001527 1353 TAD (HEADER /COPY HEADER OUT 001530 3022 DCA TEMP 001531 1422 OHDR, TAD I TEMP 001532 7112 CLL RTR 001533 7112 CLL RTR 001534 7112 CLL RTR 001535 4302 JMS CONVRT 001536 1422 TAD I TEMP 001537 4302 JMS CONVRT 001540 1422 TAD I TEMP /END YET ? 001541 2022 ISZ TEMP 001542 0361 AND (77 001543 7640 SZA CLA 001544 5331 JMP OHDR 001545 1356 TAD (215 /V3C SKIP EXTRA LINE AFTER TITLE 001546 4776 JMS I (OCHAR 001547 1355 TAD (212 /V3C 001550 4776 JMS I (OCHAR /FOR CENTRONICS 001551 5752 JMP I (PUTNUM /GET NEW PAGE NUMBER 001552 3677 001553 0700 001554 0214 001555 0212 001556 0215 001557 0240 001560 7740 001561 0077 001562 0260 001563 0007 001564 7774 001565 7756 001566 7776 001567 0020 001570 7644 001571 0100 001572 7617 001573 7605 001574 2203 001575 0200 001576 2022 001577 7177 1600 PAGE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 14 / OS/8 FILE INPUT ROUTINES 001600 0000 ICHAR, 0 /READ CHAR FROM INPUT FILE 001601 2240 ISZ INJMP /BUMP THREE WAY UNPACK SWITCH 001602 2310 ISZ INCHCT 001603 5240 INJMPP, JMP INJMP 001604 1307 TAD INEOF /DID LAST READ YEILD END OF FILE ? 001605 7650 SNA CLA 001606 5211 JMP INGBUF /NO, DO ANOTHER READ 001607 4310 GETNEW, JMS INNEWF /OPEN A NEW INPUT FILE 001610 5777 JMP I (ENDX /NO FILE TO OPEN 001611 1345 INGBUF, TAD INCTR /BUMP RECORD COUNTER 001612 7101 CLL IAC 001613 7420 SNL 001614 3345 DCA INCTR /RESTORE IF IT HASN'T OVERFLOWED 001615 7430 SZL 001616 2307 ISZ INEOF /SET END OF FILE SWITCH 001617 4723 JMS I INHNDL /DO THE READ 001620 0200 INCALL, 200 001621 6000 INBUFP, INBUF 001622 0000 INREC, 0 001623 5234 JMP INERR /HANDLER ERROR 001624 2222 INBREC, ISZ INREC /BUMP RECORD NUMBER 001625 1376 TAD (-601 /SET CHAR COUNT 001626 3310 DCA INCHCT 001627 1203 TAD INJMPP /RESET THREE WAY JUMP SWITCH 001630 3240 DCA INJMP 001631 1221 TAD INBUFP /RESET BUFFER POINTER 001632 3346 DCA INPTR 001633 5201 JMP ICHAR+1 /GO AGAIN 001634 2307 INERR, ISZ INEOF /EITHER EOF OR BADDIE 001635 7700 SMA CLA 001636 5224 JMP INBREC /END OF FILE, DO NEXT FILE 001637 5775 JMP I (OFOO3 001640 7402 INJMP, HLT /3 WAY CHARACTER UUPACK SWITCH 001641 5262 JMP ICHAR1 001642 5256 JMP ICHAR2 001643 1203 ICHAR3, TAD INJMPP /RESET JUMP SWITCH 001644 3240 DCA INJMP 001645 1746 TAD I INPTR 001646 0374 AND (7400 /COMBINE THE HIGH ORDER BITS 001647 7112 CLL RTR /OF THE TWO WORDS 001650 7012 RTR 001651 1305 TAD INTMP /TO FORM THE THIRD CHAR 001652 7012 RTR 001653 7012 RTR 001654 2346 ISZ INPTR /BUMP WORD POINTER 001655 5263 JMP ICHAR1+1 /DO SOME COMMON STUFF /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 15 001656 1746 ICHAR2, TAD I INPTR /SAVE THE HIGH ORDER BITS 001657 0374 AND (7400 001660 3305 DCA INTMP /FOR THE THIRD CHAR 001661 2346 ISZ INPTR /GO TO THE SECOND WORD 001662 1746 ICHAR1, TAD I INPTR /GET THE LOW 8 BITS 001663 0373 AND (377 /AND I MEAN ONLY 8 !! 001664 3021 DCA CHAR 001665 1021 TAD CHAR 001666 1372 TAD (-232 /IS IT ^Z (END OF FILE) 001667 7450 SNA 001670 5207 JMP GETNEW /YES, LOOK FOR THE NEXT FILE 001671 1371 TAD (232-212 001672 7450 SNA 001673 5201 JMP ICHAR+1 /IGNORE LINE FEEDS 001674 1370 TAD (212-215 001675 7450 SNA 001676 5600 JMP I ICHAR /RETURN ON CARRIAGE RETURN 001677 7001 IAC 001700 7650 SNA CLA 001701 5201 JMP ICHAR+1 /IGNORE FORM FEEDS 001702 1021 TAD CHAR 001703 2200 ISZ ICHAR 001704 5600 JMP I ICHAR /RETURN TO THE CALLING WORLD /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 16 001705 0000 INTMP, 0 001706 7617 INFPTR, 7617 /POINTER TO INPUT FILE LIST 001707 0001 INEOF, 1 INCHCT, 001710 7777 INNEWF, -1 /FETCH HANDLER FOR NEXT FILE 001711 1367 TAD (INDEVH+1 /THIS IS WHERE IT GOES 001712 3323 DCA INHNDL 001713 6211 CDF 10 001714 1706 TAD I INFPTR /GET NEXT INPUT FILE INFO 001715 6201 CDF 001716 7450 SNA 001717 5710 JMP I INNEWF /NO MORE FILES 001720 6212 CIF 10 001721 4620 JMS I INCALL /CALL MONITOR 001722 0001 1 /FETCH HANDLER 001723 0000 INHNDL, 0 /ENTRY ADDR GOES HERE 001724 5775 JMP I (OFOO3 001725 6211 CDF 10 001726 1706 TAD I INFPTR /GET LENGTH 001727 0366 AND (7760 001730 7440 SZA /A ZERO HERE MEANS >=256 BLOCKS 001731 1365 TAD (17 /PUT IN SOME MORE BITS 001732 7132 CLL CML RTR 001733 7012 RTR 001734 3345 DCA INCTR /STORE LENGTH OF FILE 001735 2306 ISZ INFPTR 001736 1706 TAD I INFPTR /GET STARTING RECORD NUMBER 001737 3222 DCA INREC 001740 2306 ISZ INFPTR 001741 3307 DCA INEOF /CLEAR EOF FLAG 001742 2310 ISZ INNEWF 001743 6201 CDF 001744 5710 JMP I INNEWF 001745 0000 INCTR, 0 001746 0000 INPTR, 0 RDECHO, /KEEP LINES WITH L.T. 6 CHARS OUT OF ISN COLUMN 001747 1364 TAD (SEVCHR-1 001750 3012 DCA X12 001751 1012 RDECLP, TAD X12 001752 7041 CIA 001753 1010 TAD X10 001754 7650 SNA CLA 001755 5763 JMP I (ENDLIN /ONLY ECHO WHAT YOU READ 001756 1412 TAD I X12 001757 4762 JMS I (OCHAR 001760 5351 JMP RDECLP 001762 2022 001763 0674 001764 0024 001765 0017 001766 7760 001767 6401 001770 7775 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 16-1 001771 0020 001772 7546 001773 0377 001774 7400 001775 2203 001776 7177 001777 1400 2000 PAGE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 17 002000 0000 OUDUMP, 0 /BUMP THE DUFFER 002001 1277 TAD OSIZE /ANY ROOM LEFT ? 002002 7001 IAC 002003 7450 SNA 002004 5777 JMP I (OFOO3 002005 3277 DCA OSIZE /YES, ITS OK 002006 4423 JMS I DEVH /WRITE 002007 4200 4200 /CONTROL WORD 002010 5400 OUBUF /BUFFER POINTER 002011 0000 OBLOCK, 0 /BLOCK NUMBER 002012 5777 JMP I (OFOO3 002013 2211 ISZ OBLOCK /INCREMENT BLOCK NUMBER 002014 2776 ISZ I (FILSIZ /AND FILE SIZE 002015 1210 TAD OBLOCK-1 /SET BUFFER POINTER 002016 3274 DCA OUPTR 002017 1375 TAD (-200 /SET DOUBLE WORD COUNT 002020 3276 DCA OUWDCT 002021 5600 JMP I OUDUMP 002022 0000 OCHAR, 0 /OUTPUT A CHAR TO THE RALF INPUT FILE 002023 0374 AND (377 002024 3272 DCA OUTEMP /SAVE CHAR 002025 6031 KSF /^C TEST 002026 5234 JMP NOSTOP 002027 6036 KRB 002030 0373 AND (177 002031 1372 TAD (-3 002032 7650 SNA CLA 002033 5771 JMP I (7605 /YES /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 18 002034 2235 NOSTOP, ISZ OUJUMP /BUMP 3 WAY SWITCH 002035 5235 OUJUMP, JMP . 002036 5267 JMP CHAR1 002037 5264 JMP CHAR2 002040 1272 TAD OUTEMP /HIGH FOUR BITS GO INTO 002041 7106 CLL RTL /THE HIGH ORDER BITS OF THE 002042 7006 RTL /FIRST WORD OF THE TWO WORD PAIR 002043 0370 AND (7400 /SEE NOTE * BELOW 002044 1673 TAD I OUPOLD /COMBINE WITH OTHER BITS 002045 3673 DCA I OUPOLD 002046 1272 TAD OUTEMP /THE OTHER FOUR BITS OF THIS CHAR 002047 7112 CLL RTR /GO INTO THE HIGH ORDER FOUR 002050 7012 RTR /BITS OF THE SECOND WORD OF THE PAIR 002051 7010 RAR 002052 0370 AND (7400 002053 1674 TAD I OUPTR 002054 3674 DCA I OUPTR 002055 1275 TAD OUJMP /RESET 3 WAY BRANCH 002056 3235 DCA OUJUMP 002057 2274 ISZ OUPTR /BUMP BUFFER POINTER 002060 2276 ISZ OUWDCT /AND DOUBLE WORD COUNTER 002061 5622 JMP I OCHAR /BUFFER NOT FULL 002062 4200 JMS OUDUMP /DUMP IT 002063 5622 JMP I OCHAR 002064 1274 CHAR2, TAD OUPTR /SAVE FIRST WORD POINTER 002065 3273 DCA OUPOLD 002066 2274 ISZ OUPTR /GO TO SECOND WORD 002067 1272 CHAR1, TAD OUTEMP /STORE CHAR 1 OR 2 002070 3674 DCA I OUPTR 002071 5622 JMP I OCHAR 002072 0000 OUTEMP, 0 002073 0000 OUPOLD, 0 002074 5400 OUPTR, OUBUF 002075 5235 OUJMP, JMP OUJUMP 002076 7600 OUWDCT, -200 002077 0000 OSIZE, 0 002100 5000 ERRPTR, 5000 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 19 002101 0000 ERRCHK, 0 002102 6211 CDF 10 002103 1700 TAD I ERRPTR /ANY ERRORS FOR THIS LINE 002104 6201 CDF 002105 7040 CMA 002106 1024 TAD LINENO 002107 7640 SZA CLA 002110 5701 JMP I ERRCHK /NO 002111 7144 CLL CMA RAL /BACK UP POINTER 002112 1300 TAD ERRPTR 002113 3300 DCA ERRPTR 002114 1300 TAD ERRPTR 002115 7001 IAC 002116 3022 DCA TEMP 002117 6211 CDF 10 002120 1422 TAD I TEMP /GET CODE 002121 6201 CDF 002122 7041 CIA 002123 3022 DCA TEMP /SAVE NEGATIVE 002124 1367 TAD (ERRLST-1 002125 3010 DCA X10 002126 1410 FIND, TAD I X10 /LOOK FOR ERROR MESSAGE 002127 7440 SZA 002130 1022 TAD TEMP 002131 7650 SNA CLA 002132 5335 JMP .+3 002133 2010 ISZ X10 002134 5326 JMP FIND /SKIP POINTER WORD 002135 7240 CLA CMA 002136 1410 TAD I X10 002137 3010 DCA X10 /POINTER TO MESSAGE 002140 1410 PMLOOP, TAD I X10 /GET TWO CHARS 002141 3022 DCA TEMP 002142 1022 TAD TEMP 002143 7012 RTR 002144 7012 RTR 002145 7012 RTR 002146 4766 JMS I (CONVRT /PRINT FIRST 002147 1022 TAD TEMP 002150 4766 JMS I (CONVRT /PRINT SECOND 002151 1022 TAD TEMP 002152 0365 AND (77 /END OF MESSAGE ? 002153 7640 SZA CLA 002154 5340 JMP PMLOOP /NO, LOOP 002155 4764 JMS I (CRLF 002156 5302 JMP ERRCHK+1 /SEE IF ANY MORE FOR THIS LINE 002157 2201 RALFNM, FILENAME RALF.SV 002160 1406 002161 0000 002162 2326 002164 1514 002165 0077 002166 1502 002167 2215 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 19-1 002170 7400 002171 7605 002172 7775 002173 0177 002174 0377 002175 7600 002176 1413 002177 2203 2200 PAGE /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 20 002200 0304 X304, 304 002201 0305 X305, 305 002202 7605 X7605, 7605 002203 1200 OFOO3, TAD X304 /FATAL ERROR IN PASS 3 002204 4210 JMS TTY 002205 1201 TAD X305 002206 4210 JMS TTY 002207 5602 JMP I X7605 002210 0000 TTY, 0 /PRINT ON TTY 002211 6046 TLS 002212 6041 TSF 002213 5212 JMP .-1 002214 7200 CLA 002215 5610 JMP I TTY /ERROR MESSAGES 002216 0724 ERRLST, 0724;GT 002217 2367 002220 1124 1124;IT 002221 2451 002222 0504 0504;ED 002223 2701 002224 2227 2227;RW 002225 2401 002226 0317 0317;CO 002227 2417 002230 0530 0530;EX 002231 2463 002232 2123 2123;QS 002233 2474 002234 2114 2114;QL 002235 2512 002236 1106 1106;IF 002237 2536 002240 0417 0417;DO 002241 2567 002242 2316 2316;SN 002243 2607 002244 2404 2404;TD 002245 2626 002246 0204 0204;BD 002247 2646 002250 2224 2224;RT 002251 2721 002252 2204 2204;RD 002253 2740 002254 2324 2324;ST 002255 2762 002256 0314 0314;CL 002257 3004 002260 1517 1517;MO 002261 3021 002262 1017 1017;HO 002263 3041 002264 1515 1515;MM /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 20-1 002265 3066 002266 2323 2323;SS 002267 3102 002270 1720 1720;OP 002271 3123 002272 0123 0123;AS 002273 3134 002274 0401 0401;DA 002275 3142 002276 0410 0410;DH 002277 3153 002300 1514 1514;ML 002301 3204 002302 0405 0405;DE 002303 3226 002304 0223 0223;BS 002305 3244 002306 1424 1424;LT 002307 3257 002310 1105 1105;IE 002311 3266 002312 2010 2010;PH 002313 3313 002314 1513 1513;MK 002315 3346 002316 1724 1724;OT 002317 3362 002320 2004 2004;PD 002321 3406 002322 1524 1524;MT 002323 3430 002324 0726 0726;GV 002325 3447 002326 1411 1411;LI 002327 3506 002330 0420 0420;DP 002331 3535 002332 0414 0414;DL 002333 3560 002334 0101 0101;AA 002335 3613 002336 2306 2306;SF 002337 3652 002340 0406 0406;DF 002341 3666 002342 1111 1111;II 002343 2356 002344 0000 0;SYSERR 002345 2346 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21 002346 2516 SYSERR, TEXT 'UNDEFINED ERROR' 002347 0405 002350 0611 002351 1605 002352 0440 002353 0522 002354 2217 002355 2200 002356 1114 II, TEXT 'ILLEGAL USE OF IF' 002357 1405 002360 0701 002361 1440 002362 2523 002363 0540 002364 1706 002365 4011 002366 0600 002367 0201 GT, TEXT 'BAD GOTO STATEMENT' 002370 0440 002371 0717 002372 2417 002373 4023 002374 2401 002375 2405 002376 1505 002377 1624 002400 0000 002401 0201 RW, TEXT 'BAD READ OR WRITE STATEMENT' 002402 0440 002403 2205 002404 0104 002405 4017 002406 2240 002407 2722 002410 1124 002411 0540 002412 2324 002413 0124 002414 0515 002415 0516 002416 2400 002417 0122 CO, TEXT 'ARGS IN COMMON OR VAR IN TWO COMMONS OR SYNTAX BAD' 002420 0723 002421 4011 002422 1640 002423 0317 002424 1515 002425 1716 002426 4017 002427 2240 002430 2601 002431 2240 002432 1116 002433 4024 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-1 002434 2717 002435 4003 002436 1715 002437 1517 002440 1623 002441 4017 002442 2240 002443 2331 002444 1624 002445 0130 002446 4002 002447 0104 002450 0000 002451 0201 IT, TEXT 'BAD IO LIST ELEMENT' 002452 0440 002453 1117 002454 4014 002455 1123 002456 2440 002457 0514 002460 0515 002461 0516 002462 2400 002463 0201 EX, TEXT 'BAD EXTERNAL STMT' 002464 0440 002465 0530 002466 2405 002467 2216 002470 0114 002471 4023 002472 2415 002473 2400 002474 2331 QS, TEXT 'SYNTAX ERROR IN EQUIVALENCE' 002475 1624 002476 0130 002477 4005 002500 2222 002501 1722 002502 4011 002503 1640 002504 0521 002505 2511 002506 2601 002507 1405 002510 1603 002511 0500 002512 2601 QL, TEXT 'VARIABLE IS EQUIVALENCED MORE THAN ONCE' 002513 2211 002514 0102 002515 1405 002516 4011 002517 2340 002520 0521 002521 2511 002522 2601 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-2 002523 1405 002524 1603 002525 0504 002526 4015 002527 1722 002530 0540 002531 2410 002532 0116 002533 4017 002534 1603 002535 0500 002536 2410 IF, TEXT 'THIS KIND OF STATEMENT NOT LEGAL AFTER LOGICAL IF' 002537 1123 002540 4013 002541 1116 002542 0440 002543 1706 002544 4023 002545 2401 002546 2405 002547 1505 002550 1624 002551 4016 002552 1724 002553 4014 002554 0507 002555 0114 002556 4001 002557 0624 002560 0522 002561 4014 002562 1707 002563 1103 002564 0114 002565 4011 002566 0600 002567 0201 DO, TEXT 'BAD SYNTAX IN DO OR IMPLIED DO' 002570 0440 002571 2331 002572 1624 002573 0130 002574 4011 002575 1640 002576 0417 002577 4017 002600 2240 002601 1115 002602 2014 002603 1105 002604 0440 002605 0417 002606 0000 002607 1617 SN, TEXT 'NOT LEGAL AS SUBROUTINE NAME' 002610 2440 002611 1405 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-3 002612 0701 002613 1440 002614 0123 002615 4023 002616 2502 002617 2217 002620 2524 002621 1116 002622 0540 002623 1601 002624 1505 002625 0000 002626 2331 TD, TEXT 'SYNTAX ERROR IN TYPE STATEMENT' 002627 1624 002630 0130 002631 4005 002632 2222 002633 1722 002634 4011 002635 1640 002636 2431 002637 2005 002640 4023 002641 2401 002642 2405 002643 1505 002644 1624 002645 0000 002646 0411 BD, TEXT 'DIMENSIONS TOO BIG, OR SYNTAX ERROR IN DIMENSION LIST' 002647 1505 002650 1623 002651 1117 002652 1623 002653 4024 002654 1717 002655 4002 002656 1107 002657 5440 002660 1722 002661 4023 002662 3116 002663 2401 002664 3040 002665 0522 002666 2217 002667 2240 002670 1116 002671 4004 002672 1115 002673 0516 002674 2311 002675 1716 002676 4014 002677 1123 002700 2400 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-4 002701 1114 ED, TEXT 'ILLEGAL AS DO ENDING STATEMENT' 002702 1405 002703 0701 002704 1440 002705 0123 002706 4004 002707 1740 002710 0516 002711 0411 002712 1607 002713 4023 002714 2401 002715 2405 002716 1505 002717 1624 002720 0000 002721 0124 RT, TEXT 'ATTEMPT TO RE-TYPE A VARIABLE' 002722 2405 002723 1520 002724 2440 002725 2417 002726 4022 002727 0555 002730 2431 002731 2005 002732 4001 002733 4026 002734 0122 002735 1101 002736 0214 002737 0500 002740 0124 RD, TEXT 'ATTEMPT TO RE-DIMENSION A VARIABLE' 002741 2405 002742 1520 002743 2440 002744 2417 002745 4022 002746 0555 002747 0411 002750 1505 002751 1623 002752 1117 002753 1640 002754 0140 002755 2601 002756 2211 002757 0102 002760 1405 002761 0000 002762 1116 ST, TEXT 'INTERNAL COMPILER ABORT NUMBER ONE' 002763 2405 002764 2216 002765 0114 002766 4003 002767 1715 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-5 002770 2011 002771 1405 002772 2240 002773 0102 002774 1722 002775 2440 002776 1625 002777 1502 003000 0522 003001 4017 003002 1605 003003 0000 003004 0522 CL, TEXT 'ERROR IN COMPLEX LITERAL' 003005 2217 003006 2240 003007 1116 003010 4003 003011 1715 003012 2014 003013 0530 003014 4014 003015 1124 003016 0522 003017 0114 003020 0000 003021 1720 MO, TEXT 'OPERAND EXPECTED, NONE PRESENT' 003022 0522 003023 0116 003024 0440 003025 0530 003026 2005 003027 0324 003030 0504 003031 5440 003032 1617 003033 1605 003034 4020 003035 2205 003036 2305 003037 1624 003040 0000 003041 1017 HO, TEXT 'HOLLERITH COUNT WRONG, OR MISSING QUOTES' 003042 1414 003043 0522 003044 1124 003045 1040 003046 0317 003047 2516 003050 2440 003051 2722 003052 1716 003053 0754 003054 4017 003055 2240 003056 1511 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-6 003057 2323 003060 1116 003061 0740 003062 2125 003063 1724 003064 0523 003065 0000 003066 1511 MM, TEXT 'MISMATCHED PARENTHESIS' 003067 2315 003070 0124 003071 0310 003072 0504 003073 4020 003074 0122 003075 0516 003076 2410 003077 0523 003100 1123 003101 0000 003102 2325 SS, TEXT 'SUBSCRIPT OR ARGUMENT LIST ERROR' 003103 0223 003104 0322 003105 1120 003106 2440 003107 1722 003110 4001 003111 2207 003112 2515 003113 0516 003114 2440 003115 1411 003116 2324 003117 4005 003120 2222 003121 1722 003122 0000 003123 1114 OP, TEXT 'ILLEGAL OPERATOR' 003124 1405 003125 0701 003126 1440 003127 1720 003130 0522 003131 0124 003132 1722 003133 0000 003134 0123 AS, TEXT 'ASSIGN ???' 003135 2311 003136 0716 003137 4077 003140 7777 003141 0000 003142 0401 DA, TEXT 'DATA STATEMENT ?' 003143 2401 003144 4023 003145 2401 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-7 003146 2405 003147 1505 003150 1624 003151 4077 003152 0000 003153 1017 DH, TEXT 'HOLLERITH COUNT OR QUOTE ERROR IN DATA STATEMENT' 003154 1414 003155 0522 003156 1124 003157 1040 003160 0317 003161 2516 003162 2440 003163 1722 003164 4021 003165 2517 003166 2405 003167 4005 003170 2222 003171 1722 003172 4011 003173 1640 003174 0401 003175 2401 003176 4023 003177 2401 003200 2405 003201 1505 003202 1624 003203 0000 003204 2410 ML, TEXT 'THIS LINE NUMBER IS ALREADY DEFINED' 003205 1123 003206 4014 003207 1116 003210 0540 003211 1625 003212 1502 003213 0522 003214 4011 003215 2340 003216 0114 003217 2205 003220 0104 003221 3140 003222 0405 003223 0611 003224 1605 003225 0400 003226 2722 DE, TEXT "WRONG WAY TO END A DO LOOP" 003227 1716 003230 0740 003231 2701 003232 3140 003233 2417 003234 4005 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-8 003235 1604 003236 4001 003237 4004 003240 1740 003241 1417 003242 1720 003243 0000 003244 1114 BS, TEXT 'ILLEGAL IN BLOCK DATA' 003245 1405 003246 0701 003247 1440 003250 1116 003251 4002 003252 1417 003253 0313 003254 4004 003255 0124 003256 0100 003257 1411 LT, TEXT 'LINE TOO BIG' 003260 1605 003261 4024 003262 1717 003263 4002 003264 1107 003265 0000 003266 1116 IE, TEXT 'INPUT FILE ERROR, TAKEN AS END STATEMENT' 003267 2025 003270 2440 003271 0611 003272 1405 003273 4005 003274 2222 003275 1722 003276 5440 003277 2401 003300 1305 003301 1640 003302 0123 003303 4005 003304 1604 003305 4023 003306 2401 003307 2405 003310 1505 003311 1624 003312 0000 003313 2410 PH, TEXT 'THIS FUNCTION / SUBROUTINE STATEMENT IS UNACCEPTABLE' 003314 1123 003315 4006 003316 2516 003317 0324 003320 1117 003321 1640 003322 5740 003323 2325 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-9 003324 0222 003325 1725 003326 2411 003327 1605 003330 4023 003331 2401 003332 2405 003333 1505 003334 1624 003335 4011 003336 2340 003337 2516 003340 0103 003341 0305 003342 2024 003343 0102 003344 1405 003345 0000 003346 3117 MK, TEXT 'YOU MISPELED A KEYWURD' 003347 2540 003350 1511 003351 2320 003352 0514 003353 0504 003354 4001 003355 4013 003356 0531 003357 2725 003360 2204 003361 0000 003362 1114 OT, TEXT 'ILLEGAL OPERAND TYPE FOR THIS OPERATOR' 003363 1405 003364 0701 003365 1440 003366 1720 003367 0522 003370 0116 003371 0440 003372 2431 003373 2005 003374 4006 003375 1722 003376 4024 003377 1011 003400 2340 003401 1720 003402 0522 003403 0124 003404 1722 003405 0000 003406 1116 PD, TEXT 'INTERNAL COMPILER ABORT NUMBER TWO' 003407 2405 003410 2216 003411 0114 003412 4003 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-10 003413 1715 003414 2011 003415 1405 003416 2240 003417 0102 003420 1722 003421 2440 003422 1625 003423 1502 003424 0522 003425 4024 003426 2717 003427 0000 003430 1114 MT, TEXT "ILLEGAL VARIABLE TYPE MIXING" 003431 1405 003432 0701 003433 1440 003434 2601 003435 2211 003436 0102 003437 1405 003440 4024 003441 3120 003442 0540 003443 1511 003444 3011 003445 1607 003446 0000 003447 2601 GV, TEXT 'VARIABLE IN ASSIGNED OR COMPUTED GOTO MUST BE INTEGER OR REAL' 003450 2211 003451 0102 003452 1405 003453 4011 003454 1640 003455 0123 003456 2311 003457 0716 003460 0504 003461 4017 003462 2240 003463 0317 003464 1520 003465 2524 003466 0504 003467 4007 003470 1724 003471 1740 003472 1525 003473 2324 003474 4002 003475 0540 003476 1116 003477 2405 003500 0705 003501 2240 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-11 003502 1722 003503 4022 003504 0501 003505 1400 003506 0530 LI, TEXT 'EXPRESSION IN LOGICAL IF IS NOT TYPED LOGICAL' 003507 2022 003510 0523 003511 2311 003512 1716 003513 4011 003514 1640 003515 1417 003516 0711 003517 0301 003520 1440 003521 1106 003522 4011 003523 2340 003524 1617 003525 2440 003526 2431 003527 2005 003530 0440 003531 1417 003532 0711 003533 0301 003534 1400 003535 0417 DP, TEXT 'DO PARAMETERS MUST BE INTEGER OR REAL' 003536 4020 003537 0122 003540 0115 003541 0524 003542 0522 003543 2340 003544 1525 003545 2324 003546 4002 003547 0540 003550 1116 003551 2405 003552 0705 003553 2240 003554 1722 003555 4022 003556 0501 003557 1400 003560 3117 DL, TEXT "YOUR DATA AND VARIABLE LISTS ARE OF DIFFERENT LENGTHS" 003561 2522 003562 4004 003563 0124 003564 0140 003565 0116 003566 0440 003567 2601 003570 2211 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-12 003571 0102 003572 1405 003573 4014 003574 1123 003575 2423 003576 4001 003577 2205 003600 4017 003601 0640 003602 0411 003603 0606 003604 0522 003605 0516 003606 2440 003607 1405 003610 1607 003611 2410 003612 2300 003613 2325 AA, TEXT 'SUBROUTINES MAY ONLY HAVE SIX ARGUMENTS THAT ARE DIMENSIONED' 003614 0222 003615 1725 003616 2411 003617 1605 003620 2340 003621 1501 003622 3140 003623 1716 003624 1431 003625 4010 003626 0126 003627 0540 003630 2311 003631 3040 003632 0122 003633 0725 003634 1505 003635 1624 003636 2340 003637 2410 003640 0124 003641 4001 003642 2205 003643 4004 003644 1115 003645 0516 003646 2311 003647 1716 003650 0504 003651 0000 003652 0201 SF, TEXT 'BAD STATEMENT FUNCTION' 003653 0440 003654 2324 003655 0124 003656 0515 003657 0516 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 21-13 003660 2440 003661 0625 003662 1603 003663 2411 003664 1716 003665 0000 003666 0201 DF, TEXT 'BAD DEFINE FILE' 003667 0440 003670 0405 003671 0611 003672 1605 003673 4006 003674 1114 003675 0500 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 22 003676 0001 PAGEN, 1 003677 2276 PUTNUM, ISZ PAGEN /BUMP PAGE NUMBER 003700 1276 TAD PAGEN 003701 1377 TAD (-24 /LT 20? 003702 7700 SMA CLA 003703 5317 JMP OVER19 /YES 003704 1376 TAD (-5 /NO 003705 4352 JMS MOVE /MOVE IN NUMBER 003706 0000 NUM, 0 003707 0735 PAGENO-1 003710 1306 TAD NUM 003711 1375 TAD (5 003712 3306 DCA NUM /PT TO NEXT ONE 003713 5774 JMP I (CRLF+1 003714 0000 TENS, 0 003715 0000 ONES, 0 003716 0000 KNT, 0 003717 3314 OVER19, DCA TENS /CONVERT 003720 1276 TAD PAGEN /PAGE NUMBER TO ONES AND TENS 003721 1373 O1, TAD (-12 /DIVIDE BY TEN 003722 7510 SPA 003723 5326 JMP .+3 003724 2314 ISZ TENS 003725 5321 JMP O1 003726 1372 TAD (12 003727 3315 DCA ONES 003730 1314 TAD TENS 003731 7106 CLL RTL 003732 1371 TAD (HIS-10-1 003733 3343 DCA HIP /POINT TO HIGH PART 003734 1315 TAD ONES 003735 7106 CLL RTL 003736 1315 TAD ONES 003737 1370 TAD (LOS-5-1 003740 3347 DCA LOP 003741 1367 TAD (-4 003742 4352 JMS MOVE 003743 0000 HIP, 0 003744 0735 PAGENO-1 003745 1376 TAD (-5 003746 4352 JMS MOVE 003747 0000 LOP, 0 003750 0741 PAGENO+4-1 003751 5774 JMP I (CRLF+1 /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 23 003752 0000 MOVE, 0 003753 3316 DCA KNT 003754 1752 TAD I MOVE 003755 3011 DCA X11 003756 2352 ISZ MOVE 003757 1752 TAD I MOVE 003760 3012 DCA X12 003761 2352 ISZ MOVE 003762 1411 TAD I X11 003763 3412 DCA I X12 003764 2316 ISZ KNT 003765 5362 JMP .-3 003766 5752 JMP I MOVE 003767 7774 003770 0777 003771 1133 003772 0012 003773 7766 003774 1515 003775 0005 003776 7773 003777 7754 4000 PAGE 0000 FIELD 0 0400 *SPASS3 $ /OS/8 FORTRAN (PASS THREE) PAL8-V50Y 18-JUL-20 PAGE 24 AA 3613 INDEVH 6400 OT 3362 X304 2200 AS 3134 INEOF 1707 OUBUF 5400 X305 2201 BD 2646 INERR 1634 OUDEVH 7000 X7605 2202 BS 3244 INFPTR 1706 OUDUMP 2000 YEAR 0723 CHAR 0021 INGBUF 1611 OUJMP 2075 YRTEMP 0537 CHAR1 2067 INHNDL 1723 OUJUMP 2035 CHAR2 2064 INJMP 1640 OUPOLD 2073 CL 3004 INJMPP 1603 OUPTR 2074 CO 2417 INNEWF 1710 OUTEMP 2072 CONVRT 1502 INPTR 1746 OUWDCT 2076 CONVYR 0471 INREC 1622 OVER19 3717 CRLF 1514 INTMP 1705 O1 3721 DA 3142 IT 2451 PAGEN 3676 DAY 0720 KNT 3716 PAGENO 0736 DAYS 1210 LI 3506 PAJE 0600 DE 3226 LINECT 1513 PD 3406 DEVH 0023 LINENO 0024 PH 3313 DEV1CE 0173 LISTIT 1442 PMLOOP 2140 DF 3666 LOP 3747 PRHDR 1523 DH 3153 LOS 1005 PUTNUM 3677 DL 3560 LSTFIL 0534 QL 2512 DO 2567 LT 3257 QS 2474 DP 3535 MK 3346 RALFNM 2157 ED 2701 ML 3204 RD 2740 ENDLIN 0674 MM 3066 RDACHO 0747 ENDX 1400 MO 3021 RDECHO 1747 ERRCHK 2101 MONTH 0721 RDECLP 1751 ERRLST 2216 MONTHS 1247 RDLOOP 0610 ERRPTR 2100 MOVE 3752 RDLUPE 0604 EX 2463 MREAD 7757 RT 2721 FILBLK 0007 MT 3430 RW 2401 FILDEV 0006 M70 1420 SBLOCK 7776 FILLST 0535 NCHARS 0020 SECDIG 0477 FILSIZ 1413 NCNT 1461 SEVCHR 0025 FIND 2126 NOISN 0646 SF 3652 GETNEW 1607 NOSTOP 2034 SIMPLE 0513 GT 2367 NOTAB 0624 SN 2607 GV 3447 NOTTAB 0670 SPASS3 0400 HEADER 0700 NUM 3706 SS 3102 HIP 3743 NUMS 1012 ST 2762 HIS 1144 OB 0434 SW36 0716 HO 3041 OBLOCK 2011 SYSERR 2346 ICHAR 1600 OCHAR 2022 TABCNT 0677 ICHAR1 1662 OFFSET 0541 TD 2626 ICHAR2 1656 OFOO3 2203 TEMP 0022 ICHAR3 1643 OFSIZE 0536 TEMP1 0540 IE 3266 OH 0426 TENS 3714 IF 2536 OHDR 1531 TTY 2210 II 2356 OLOOP 1466 VERSON 0005 INBREC 1624 ONES 3715 WHAT 0630 INBUF 6000 ONUMBR 1462 XSWS 1450 INBUFP 1621 OP 3123 X10 0010 INCALL 1620 OS 0435 X11 0011 INCHCT 1710 OSIZE 2077 X12 0012 INCTR 1745 OS8SWS 7643 X232 1460 ERRORS DETECTED: 0 LINKS GENERATED: 0