JOB Fortran build record 6 -- DET phase -- control cards CTL 6611 sfx 6 x1 equ 89 write4 equ 334 read 4 equ 345 Read tape routine getx14 equ 352 tapzx4 equ 367 Exit from tape I/O if 11&x1 zoned tape 4 equ 389 Read/Write tape instruction swxxx4 equ 452 SW instruction tapex4 equ 456 Normal exit from tape I/O eofx 4 equ 472 EOF exit from tape I/O enter4 equ 555 table4 equ 727 twk2 4 equ 732 twk3 4 equ 737 twk4 4 equ 742 outdp4 equ 762 tldr 4 equ 782 LDR in TABLE tlib 4 equ 787 LIB in TABLE seek 4 equ 790 Target to search for look 4 equ 791 Lookup routine setx14 equ 821 SBR instruction to set X1 lookx4 equ 861 corix4 equ 915 Core size index, and a switch pocket equ 916 Where cards are stacked need 4 equ 925 k2xx 4 equ 929 unit 4 equ 941 Tape unit number messg4 equ 949 ORG 950 950enter B go * * Tape routine in Phase 4 comes here if unit is zoned, meaning * it's not tape. * 954back BCE readt,11&X1,R 962 BCE conmsg,11&X1,C 970 BCE print,11&X1,L 978 B tapex4 * * Card reader * 982readt BLC eofx 4 987read R 988 BIN rderr,? Q. Reader error 993stack n1 Might become SS at GO 995 LCA 80,99&X1 1002 B tapex4 1006rderr H 8,8 1013 B read * * 1407 Console * 1017conmsg MN tape 4&7,cons&7 Move R or W d-modifier 1024 MZ tape 4&7,cons&7 from tape to console 1031cons MU %T0,20&x1,W Do console I/O 1039consl BIN consq,* Q. Console inquiry clear 1044 BIN consl,) Q. What? 1049 B tapex4 1053consq H 12,12 1060 B cons * * Printer * 1064print MCW 152&X1,333 Get CC character 1071 MCW Get print line 1072 MCW 333,cc&1 1079 LCA gm,333 1086cc CC 1 1088 BCV page 1093w W 1094 NOP 0,0 1101 BIN prterr,| Print error 1106 LCA gm,333 1113 CS 1114 B tapex4 1118prterr H 9,9 1125 B w 1129page CC 1 1131 b w 1135gm dc @}@ * * Work starts here * 1136go SBR tapzx4&3,back 1143 BCE nostk,pocket,0 Q. Are cards stacked in NR 1151 MN pocket,stack&1 No, set stacker number 1158 MCW ss and change NOP to SS 1162nostk SW gm 1166 SW 1,201 1173 CS topclr 1177 SW work,card 1184 SBR eofx 4&3,read Set EOF exit 1191 LCA 333,gmwm 1198 MCW kctl,seek 4 Look for CTL phase 1205 SBR setx14&6,work Set location for table stuff 1212 SBR lookx4&3,*&5 Set hunt exit 1219 B swlook Hunt, do not rewind 1223 BW wk3,twk3 4 1231 BW wk2,twk2 4 1239 SBR getx14&6,work Set I/O address - 20 1246 SBR tapex4&3,wk2 Set I/O exit 1253 B read 4 1257wk3 MCW 80,card80 1264wk2 CW twk2 4,twk3 4 1271 SW gm2 1275 MCW kmsg,seek 4 Set to hunt for MSG 1282 SBR setx14&6,save Set location for table stuff 1289 SBR lookx4&3,loopwm Set hunt exit 1296 B look 4 Hunt 1300loop SBR getx14&6,work 1307 SBR tapex4&3,*&5 1314 B read 4 1318 CW twk4 4 1322 CW enter&1 1326loopwm BW loop,twk4 4 1334 MCW card80,l100 1341 C card20,khalt Q. HALT card 1348 BE halt 1353 C card20,kupdat Q. UPDAT card 1360 BE updat 1365 C card20,krun Q. RUN card 1372 BE run 1377 C card20,kasgn Q. ASGN card 1384 BE asgn 1389 C card20,kpaus Q. PAUSE card 1396 BE paus 1401 C card20,knote Q. NOTE card 1408 BE note 1413 C card20,kinit Q. INIT card 1420 BU othr 1425 SBR tapxb&6,dorwd 1432 MCW nop,rwd 1439 BCE *&8,tldr 4,O 1447 MCW cu,rwd 1454 MN tldr 4,rwd&3 1461 LCA tlib,tlib 4 Reinitialize table4 1468 chain12 1480 B run * * Constants to reinitialize table4 * 1488 DCW @WK1M4@ 1493 DCW @WK2M5@ 1498 DCW @WK3M4@ 1503 DCW @WK4 O@ 1508 DCW @WK5 O@ 1513 DCW @WK6 O@ 1518 DCW @INP1R@ 1523 DCW @OUTDP@ 1528 DCW @LST2L@ 1533 DCW @MSG2L@ 1538 DCW @CTL1R@ 1543 DCW @LDRM3@ 1548tlib DCW @LIBM1@ * 1549dorwd SBR tapxb&6,tapxr 1556rwd RWD 0 1561 B go 1565othr C card20,kcopy Q. COPY card 1572 BU doast1 No, go announce error 1577 SBR tapxb&6,tapr1 Set return after NOTE to TAPR1 1584 B note 1588run MCW k1,l133 Set CC character to 1 1595 B note2 * * More COPY. Copy the copy routine to 1-83 and set it up. * 1599tapr1 SBR tapxb&6,tapxr Set exit setter back to default 1606 MN unit 4,*&4 1613 RWD 0 1618 MN table4,*&4 1625 RWD 0 1630 MN unit 4,usav1 1637 MN table4,usav2 1644 SBR eofx 4&3,60 Set EOF exit to 60 1651 SBR getx14&6,messg4-19 Set I/O address - 20 * * Modify code that gets moved to 1-83 * 1658 MN unit 4,rwd2&3 1665 MN table4,rwd3&3 1672 MN table4,wtm&3 1679 LCA usav2,83 Move code to 1-83 1686 chain16 1702 CW gm2,gmwm 1709 CW gm 1713 SW gmwm 1717clear CS 0 Clear from top 1721 SBR clear&3 of core 1725 BW clear,gmwm down to GMWM - 100 & x00 1733 B 1 * * Following gets copied to 1-83 and executed there so the * space occupied by this phase can be used for buffers * 1737 MN 82,unit 4 Set read unit 1-7 1744 SBR tapex4&3,19 Set read exit to *&5 8-14 1751 B read 4 Read 15-18 1755 MN 83,unit 4 Set write unit 19-25 1762 SBR tapex4&3,37 Set write exit to *&5 26-32 1769 B write4 Write 33-36 1773 MCW swxxx4&3,54 Get addr of GM at end of record 37-43 1780 MCW 59,51 and change op code to CW 44-50 1787 CW 0 Clear GM at end of record 51-54 1791 B 1 Copy another record 55-58 1795 CW 59 1796wtm WTM 0 Come here for EOF 60-64 1801rwd2 RWD 0 65-69 1806rwd3 RWD 0 70-74 1811 CS enter4,84 75-81 1818usav1 DCW #1 from UNIT 82 1819usav2 DCW #1 from TABLE 83 * * Put asterisks in output * 1820doast1 MCW kast3,lin19 3 asterisks 1827 SW enter&1 1831note MCW kslash,l133 1 space after print 1838note2 SBR getx14&6,save Set output address - 20 1845tapxb SBR tapex4&3,tapxr Set return 1852 B write4 Do the output 1856tapxr MCW kbsl,l133 blank and slash (1 space after) 1863 MCW l132 clear the rest 1867 C card20,khalt Q. HALT card 1874 BE halt6 1879 C card20,krun Q. RUN card 1886 BE run2 1891 C card20,kpaus Q. PAUSE card 1898 BE halt11 1903 C card20,knote Q. NOTE card 1910 BE loop 1915 BW loop,enter&1 1923 B enter4 Go load What? phase 1927paus MCW ka,l133 Skip to channel 1 after print 1934 B note2 1938updat MCW kupd,need 4 Go load UPD phase 1945 B enter4 1949halt11 H 11,11 Pause control card 1956 B loop * * ASGN card * 1960asgn BCE doast2,card21, 1968 BCE doast2,card21,1 1976 MCW messg4,hold5 1983 C card8,kloa Q. LOAder 1990 BE loa 1995 C card8,kinp Q. INPut 2002 BE inp 2007 C card8,kout Q. OUTput 2014 BE out 2019 C card8,klib Q. LIBrary 2026 BE lib 2031 C card8,klis Q. LISt 2038 BE lis 2043 C card8,kmes Q. MESsage 2050 BE mes 2055 C card8,kwor Q. WORk 2062 BE wor 2067 C card8,kcon Q. CONsole 2074 BE con 2079doast2 MCW kast3,lin19 3 asterisks 2086 B t4got * * Come back here after reading the card after an ASGN card * 2090tapr2 C card20,kasgn Q. ASGN card 2097 BE asgn Yes 2102 SW twk2 4 2106 B wk2 2110con MCW kctl,hold5-2 con in 6-8 2117 BCE C21,card21,C 1407 Console 2125 BCE R21,card21,R Reader 2133 B tst21 2137wor MCW card10,hold5-2 wor in 6-8 2144 MCW kwk,hold5-3 2151 BCE T21,card21,T Tape 2159 BCE O21,card21,O Omit 2167 BCE p21,card10,5 Q. Work5 2175 B doast2 2179mes MCW kmsg,hold5-2 mes in 6-8 2186 BCE C21,card21,C 1407 Console 2194 BCE p21,card21,P Printer 2202 B doast2 2206lis MCW klst,hold5-2 lis in 6-8 2213 BCE T21,card21,T Tape 2221 BCE O21,card21,O Omit 2229p21 C card22,kpr 6-10 are WOR?5 or column 21 is P 2236 BE pr22 2241 B doast2 2245out MCW kout,hold5-2 out in 6-8 2252 C card22,kpu Q. pu in 21-22 2259 BE pu22 2264 BCE T21,card21,T Tape 2272 BCE O21,card21,O Omit 2280 B doast2 2284inp MCW kinp,hold5-2 inp in 6-8 2291 BCE R21,card21,R Reader 2299tst21 BCE T21,card21,T Tape 2307 B doast2 2311lib MCW klib,hold5-2 lib in 6-8 2318 BCE T21,card21,T Tape 2326 B doast2 2330loa MCW kldr,hold5-2 loa in 6-8 2337 BCE T21,card21,T Tape 2345 BCE O21,card21,O Omit 2353 BCE R21,card21,R Reader 2361 B doast2 2365T21 MN card31,hold5 column 21 is T for Tape 2372 MCW km 2376 B cont21 2380C21 MCW k0c,hold5 column 21 is C for Console 2387 B cont21 2391pr22 MCW k0l,hold5 columns 21-22 are PR for Printer 2398 BCE *&5,card29,1 2406 B cont21 2410 MN card29,k2xx 4 2417 B cont21 2421pu22 MCW kp,hold5 columns 21-22 are PU for punch 2428 BCE c27,card27,0 NP stacker 2436 BCE c27,card27,4 4 stacker 2444 BCE c27,card27,8 8 stacker 2452 B doast2 2456c27 MN card27,hold5-1 2463 NOP hold5,koo1 2470 MN card27,pocket&1 2477 B cont21 2481R21 MCW kr,hold5 column 21 is R for reader 2488 BCE c28n,card28,0 NR stacker 2496 BCE c28n,card28,1 1 stacker 2504 BCE c28n,card28,2 2 stacker 2512 B doast2 2516c28n MN card28,hold5-1 2523 MN card28,pocket 2530 B cont21 * * Search table4 for hold5-2 * 2534O21 MCW koo2,hold5 column 21 is O for Omit 2541cont21 SBR x1,table4-2 2548t4test C 0&X1,hold5-2 2555 BU t4uneq 2560 MZ hold5,2&X1 Replace 2567 MZ Unit 2568 MN hold5,2&X1 And 2575 MN Device 2576 B t4got 2580t4uneq C x1,ktlib q. end of table4 2587 BE doast2 yes 2592 SBR x1,5&X1 look in next cell 2599 B t4test 2603t4got MCW card80,l100 2610 MCW kslash,l133 1 space after print 2617 MCW kmsg,seek 4 Look 2624 SBR setx14&6,save for 2631 SBR lookx4&3,*&5 Message 2638 B look 4 device 2642 SBR getx14&6,save Set message address 2649 SBR tapex4&3,*&5 Set write exit 2656 B write4 Write message 2660 BCE halt13,lin19,* Q. error message 2668lkctl SBR getx14&6,work Look 2675 MCW kctl,seek 4 for 2682 SBR setx14&6,work CTL 2689 SBR lookx4&3,*&5 in 2696 B swlook Table4 2700 SBR tapex4&3,tapr2 Set read exit 2707 B read 4 Read 2711halt13 H 13,13 2718 MCW lin3,lin19 2725 B lkctl 2729run2 BCE outd,outdp4-1,D Q. OUT set for punch 2737 NOP 2738 NOP 2739 NOP 2740 BCE l6,card6,L Q. Loader or Library run 2748 BCE p6,card6,P Q. Production run 2756 NOP koo1,outdp4 2763tstf6 BCE f6,card6,F Q. Fortran run * * Unknown processor * 2771 MCW kba,l133 blank, then a 2778 MCW l132 clear the rest 2782 MCW pumsg,lin37 processor unknown msg 2789 SBR getx14&6,save 2796 SBR tapex4&3,*&5 2803 B write4 2807 H 555,555 2814 B go 2819koo1 DCW @OO@ * * L in column 6 of RUN card means Loader or Library run * 2820l6 MCW k78f,need 4 Setup to load 78F phase 2827 BCE *&8,card7,I Q. LIbrary run 2835 A *-6,need 4-1 No, Setup to load 79F phase 2842test4 BCE set6,twk3 4,4 Q. Is work3 set for unit 4 2850 B enter4 No, load the phase * * P in column 6 means Production run * 2854p6 MCW card23,need 4 Get phase name 2861 B test4 * * Set up work units for Fortran run * 2865dowk2 SBR toseek&3,kwk2 look for wk2 2872 SBR f6x&3,dowk3 2879 B f6 2883set6 MCW k6,twk3 4 Set work3 to tape unit 6 2890 CW k2xx 4 2894 B enter4 Enter the production phase 2900kwk2 dcw @wk2@ 2901dowk3 SBR toseek&3,kwk3 look for wk3 2908 SBR f6x&3,dowk4 2915 B f6 2921kwk3 dcw @wk3@ 2922dowk4 SBR toseek&3,kwk4 look for wk4 2929 SBR f6x&3,dowk5 2936 B f6 2942kwk4 dcw @wk4@ 2943dowk5 SBR toseek&3,kwk5 look for wk5 2950 SBR f6x&3,e00f * * F in column 6 means Fortran run * 2957f6 BCE swk2,twk3 4,4 Q. WK3 on tape unit 4 2965 BW swk2,k2xx 4 2973 MCW k4,twk3 4 Set work3 to 4 2980swk2 SW k2xx 4 2984toseek MCW kwk1,seek 4 Look 2991 SBR setx14&6,save2 For 2998 SBR lookx4&3,*&5 WK? 3005 B look 4 3009 BWZ *&5,s2c12,2 Q. WK? is tape -- unit unzoned 3017 B f6x 3021 MN s2c12,*&4 Get unit number 3028 RWD 0 3033 MN s2c12,*&4 Get unit number 3040 WTM 0 3045 MN s2c12,*&4 Get unit number 3052 RWD 0 3057f6x B dowk2 3063kwk5 dcw @wk5@ * * Enter 00F phase now that work units are set up * 3064e00f MCW k00f,need 4 Enter 00F 3071 B enter4 Phase 3075 B go 3079halt6 H 6,6 3086 B halt6 3090halt MCW ka,l133 Skip to channel 1 after print 3097 B note2 3101ss ss 3104kctl DCW @CTL@ 3107kmsg DCW @MSG@ 3112khalt DCW @HALT @ 3117kupdat DCW @UPDAT@ 3122krun DCW @RUN @ 3127kasgn DCW @ASGN @ 3132kpaus DCW @PAUSE@ 3137knote DCW @NOTE @ 3142kinit DCW @INIT @ 3143nop NOP 3144cu cu 3149kcopy DCW @COPY @ 3150k1 dcw 1 3153kast3 DCW @***@ 3154kslash dcw @/@ 3156kbsl DCW @ /@ 3157ka dcw @a@ 3160kupd DCW @UPD@ 3163kloa DCW @LOA@ 3166kinp DCW @INP@ 3169kout DCW @OUT@ 3172klib DCW @LIB@ 3175klis DCW @LIS@ 3178kmes DCW @MES@ 3181kwor DCW @WOR@ 3184kcon DCW @CON@ 3186kwk DCW @WK@ 3189klst DCW @LST@ 3191kpr DCW @PR@ 3193kpu DCW @PU@ 3196kldr DCW @LDR@ 3197km dcw @m@ 3199k0c DCW @0C@ 3201k0l DCW @0L@ 3202kp dcw @p@ 3203kr DCW @R@ 3205koo2 DCW @oo@ 3208ktlib DSA tlib 4-2 3210kba DCW @ A@ 3231pumsg DCW @*** PROCESSOR UNKNOWN@ 3234k78f DCW @78F@ 3235k6 dcw 6 3236k4 dcw 4 3239kwk1 dcw @wk1@ 3242k00f dcw @00f@ 3243save da 1x20,c 3263line da 1x133,c lin3 3 lin19 19 lin37 37 l100 100 l132 132 l133 133 3396gm2 DC @}@ 3397save2 da 1x20,c s2c12 12 3421hold5 DCW #5 * * OUT is set to punch * 3422outd MCW kp,outdp4 Set OUT to punch in Table4 3429 BCE l6,card6,L Q. Loader run 3437 BCE p6,card6,P Q. Production run 3445 MCW koo2-1,outdp4 Change OUT to Omit in Table4 3452 B tstf6 3456swlook SW corix4 do not rewind in look 3560 B look 4 ORG 3580 3580work da 1x20,c 3600card da 1x80,c card6 6 card7 7 card8 8 card10 10 card20 20 card21 21 card22 22 card23 23 card27 27 card28 28 card29 29 card31 31 card80 80 3680gmwm DCW @}@ org *&x00 topclr equ * END