JOB Record 12 of build CTL 6611 sfx c x2 equ 94 x3 equ 99 * * Places in phase 4 -- IOP phase * write4 equ 334 Write routine read 4 equ 345 Read routine getx14 equ 352 Set packet address at getx14&6 tapzx4 equ 367 Exit from tape I/O if 11&x1 zoned swxxx4 equ 452 SW at GM at end of record tapex4 equ 456 Normal exit from tape I/O eofx 4 equ 472 EOF exit from tape I/O enter4 equ 555 Phase loader table4 equ 727 Unit table twk3 4 equ 737 WK3 entry in table seek 4 equ 790 Which unit to hunt for look 4 equ 791 Look for a unit setx14 equ 821 set address of packet at setx1&4 lookx4 equ 861 Exit from hunt routine corix4 equ 915 Core index and a switch pocket equ 916 Stacker for input cards need 4 equ 925 Which phase to load unit 4 equ 941 System tape unit packt4 equ 949 System tape control packet ORG 950 950enter B start Go do real work * * IOP routines come here if not tape, with packet address in X1 * 954notape BCE tstlc,11&X1,R Q. Reader 962 BCE itisl,11&X1,L Q. Printer 970 B tapex4 Exit without doing anything * * Device type is R for card reader * 974tstlc BLC eofx 4 EOF exit if last card 979read R 980 BIN rderr,? Q. Reader error 985stack n1 Might get changed to SS at start 987 LCA 80,99&X1 Copy card to buffer 994 B tapex4 Exit 998rderr H 8,8 1005 B read * * Device type is L for printer * 1009itisl MCW 152&X1,333 CC d-modifier 1016 MCW Message 1017 MCW 333,cc&1 CC d-modifier to CC 1024 LCA gm,333 GM to CC d-modifier 1031cc CC 1 1033 BCV page 1038w W 1039 NOP 0,0 1046 BIN prerr,| Q. Printer error 1051 LCA gm,333 GM to CC d-modifier 1058 CS Clear 300-332 1059 B tapex4 Exit 1063prerr H 9,9 1070 B w 1074page CC 1 1076 B w 1080gm dc @}@ GM Gets WM at start * * Real work starts here * 1081start SBR tapzx4&3,notape Set where to do non-tape I/O 1088 BCE nostk,pocket,0 Q. stacker zero 1096 MN pocket,stack&1 No, move stacker to stack inst 1103 MCW ss and change it from nop to ss 1107nostk SW gm Give GM a WM 1111 SW corix4 Core size index and no-rwd flag 1115 MCW klst,seek 4 Hunt for 1122 SBR setx14&6,list LST unit 1129 SBR lookx4&3,*&5 and create its 1136 B look 4 packet at LIST 1140 MN table4,unit Get LST unit 1147 MCW kctl,seek 4 Hunt for 1154 SBR setx14&6,ctlpk CTL unit 1161 SBR lookx4&3,*&5 and create its 1168 B look 4 packet at CTLPK 1172 MN unit 4,*&4 Rewind 1179 RWD 0 system unit 1184 MN unit,*&4 Rewind 1191 RWD 0 list unit 1196 MZ *-6,testws&7 Change 5-8, colon, to 0-5-8, WS 1203 MCW 80,card80 1210 B *&5 1214loop B rdctl Read CTL unit 1218loopnr C card20,kupda Q. UPDAT card 1225 BU notupd No 1230 MCW card80,l100 Move card image to print packet 1237 MCW slash,l133 CC is one space after 1244 SBR getx14&6,list Write the 1251 SBR tapex4&3,*&5 line on 1258 B write4 LST unit 1262 C card29,kdele Q. DELET in 25-29 1269 BE dele Yes 1274 BIN time2,% branch if wm in d-modifier 1279 SW *-4 turn on the branch 1283again B rdsys Read system tape 1289 DSA eofr eof exit 1290 C sv04,kfort Q. FORT in 1-4 1297 BE fort Yes 1302 C sv04,ksyst Q. SYST in 1-4 1309bother BU other No * * FORT or SYST in 1-4 of system tape control record * 1314fort BCE srchx,work2,| 1322 MCM work2,work2 find record mark & 1 1329 MN find record mark 1330 MN find record mark -1 1331 SAR x2 and put its address in x2 1335srch C sv09,0&X2 Q. Phase name 1342 SBR x2 1346 BE found 1351 C awork2,x2 1358bsrchx BL srchx 1363 B srch 1367found BCE *&5,sv05,G Q. G in column 5 1375 B skip2 1379 B rdsys Read system tape 1385 DSA eofr eof exit 1386 B rdsys Read system tape 1392 DSA eofr eof exit 1393skip2 B rdsys Read system tape 1399 DSA eofr eof exit 1400 CS gmwm&99 1404 MCM 4&X2,1&X2 Move phases to delete down 1411 B again 1415ssv05 DCW #1 First 5 chars of ctl rec 1416horp DCW #1 Either H or P 1419ssv09 DCW #3 Phase name from 7-9 of ctl rec 1420srchx MCW sv09,ssv09 Phase name from 7-9 of ctl rec 1427 MCW kh @H@ to HorP 1431 MCW sv05 First 5 chars of ctl rec SYSTM or 1435 MCW sv35,ssv35 Save negative of load address 1442 B time2 * * Not FORT or SYST in 1-4 of system tape control record * 1446other C ssv09,kblnk3 Q. saved phase name eq 3 blanks 1453 BE blnk3 Yes 1458 MCW kp,horp @P@ 1465time2 C card23,ssv09 Q. Phase name on ctl card eq tape 1472 BE match Yes 1477blnk3 B wlst Write on the LST unit 1481 B again 1487svc23 DCW @ @ 1488 dc @|@ * * DELET in 25-29 of CTL record * 1489dele MCM work2,work2 Get X2 1496 SAR x2 one past RM 1500 MCW card23,svc23 Save phase name 1507 LCA svc23&1,2&X2 after Work2 1514 B loop Go process another CTL record * * Column 21-23 matches phase name * 1518match C card28,khead Q. HEAD in 25-28 1525 BU nothd no 1530 BCE *&5,horp,H 1538 B eofr 1542matchh B rdctl Read CTL unit 1546 C card5,k24235 Q. Loading 35 characters at 242 1553 BU n24235 no 1558 MCW card80,75 Yes, move the 35 interesting 1565 MCW 75,card75 characters to card01-card75 1572 CS gmwm&99 1576 LCA 333,sv81 1583 MCW card80 Move card area to save area 1587 SW gmwm,sv06 Set 1594 SW sv07,sv10 word marks 1601 SW sv13,sv15 for system 1608 SW sv18,sv21 tape 1615 SW sv24,sv27 phase control 1622 SW sv33 record 1626 MCW sv35,ssv35 1633 MCW sv09,ssv09 Save phase name 1640 B loop 1644swloop dcw @%@ turn off branch by clearing wm 1645 MCW kp,horp 1652 B wlst Write on the LST unit 1656 SW swloop turn on branch 1660 B testh 1664nothd C card29,kpat q. PATCH in 25-29 1671 BU notpat 1676 BCE blnk3,horp,H 1684pat2 SBR rdssb&3,rdssc Set sys tape rdr to continue 1691 B scan Load the patch 1695 B loopnr 1699notpat C card27,kall q. ALL in 25-27 1706 BU notall 1711testh BCE blnk3,horp,H 1719 SBR rdssb&3,pat2 1726 B rdsss 1730notall C card29,kins q. INSER in 25-29 1737 BU notins 1742 BCE insp,horp,P 1750insnp B wlst Write on the LST unit 1754 B rdsys 1760 DSA eofr eof exit 1761insp B wlst Write on the LST unit 1765 BCE *&5,ssv05,G 1773 B insng 1777 MCW kp,ssv05 1784 B rdsys 1790 DSA eofr eof exit 1791 B insnp 1795insng CW swloop turn off branch 1799 B matchh * * Load cards in Fortran loader format after GMWM * 1-3 First address to load * 4-5 Number of characters to load * 6-70 Characters to load * 0-5-8 character precedes character to get WM * 1803scan SBR *&8 1807retry B rdctl Read CTL unit 1811 BCE *,card, Return if column 1 blank 1819 MA ssv35,card3 Subtract phase load address 1826 MA agmwm,card3 Add GMWM address 1833 MCW card3,x3 Move to X3 1840 SBR x2,card6 Start in column 6 1847 SBR card3,0 1854scan58 S kp1,card5 Decrement character count 1861 BM retry,card5 Q. Done with this card 1869testws BCE x58,0&X2,: 5-8, changed to 0-5-8 word sep 1877mv0x2 MCW 0&X2,wkmv Copy a char from CTL record 1884 LCA wkmv,0&X3 store it with WM 1891cw0x3 CW 0&X3 NOP or CW 1895 MCW kcw,cw0x3 back to CW 1902 SBR x3,1&X3 Bump store address 1909 SBR x2,1&X2 Bump fetch address 1916 B scan58 1920x58 MCW knop,cw0x3 Turn off clearing WM 1927 SBR x2,1&X2 Bump fetch address 1934 B mv0x2 Get next character 1938wkmv DCW #1 * 1958hdrerr DCW @HEADER CARD IN ERROR@ 1959notins MCW mupda,hdrerr-14 1966n24235 MCW hdrerr,20 1973 B swwk * * End of file reading system tape * 1977eofr BIN wcard,% branch if wm in d-modifier 1982 MCW card23,nfound-11 Phase name 1989 MCW nfound,20 1996 B swwk 2041notdel DCW @THE FOLLOWING PHASES HAVE NOT BEEN DELETED@ 2042saynot MCW kbk,l133 K means 2 immediate space 2049 MCW l132 2053 MCW notdel,l43 2060wrlist SBR getx14&6,list Write 2067 SBR tapex4&3,*&5 on LST 2074 B write4 unit 2078 BCE setdet,work2,| 2086 MCW kbsl,l133 slash means 1 space after 2093 MCW l132 2097 MCW w2c3,l23 Move phase name to print line 2104 MCM w2c4,work2 Move list of phases down 2111 B wrlist * * Not an UPDAT card * 2115notupd SW eofr&4 turn on branch 2119 SBR bother&3,wlstx 2126 SBR fort&3 2130 SBR bsrchx&3 2134 C ssv09,kblnk3 q. 3 blanks 2141 BE cwxxx 2146bwlst B wlst Write on the LST unit 2150cwxxx CW * 2154 B again 2158wlstx MCW swxxx4&3,cwxxx&3 2165 MCW kcw,cwxxx 2172 BIN bwlst,% branch if wm in d-modifier 2177 SW *-4 turn on branch 2181 MCW rdssb&3,rdsss&3 2188 B bwlst 2192wcard MCW card80,80 * * Error during updating * 2199swwk SW twk3 4 2203 MN unit,*&4 2210 WTM 0 2215 MN unit,*&4 2222 RWD 0 2227 BCE *&5,work2,| 2235 B saynot * * Load DET phase * 2239setdet MCW kdet,need 4 2246 B enter4 * * Write pktsv * 2250writsv SBR wsvx&3 2254 SBR getx14&6,pktsv Set packet address 2261 SBR tapex4&3,*&5 Set normal exit address 2268 B write4 2272wsvx B 0 * * read CTL unit * 2276rdctl SBR rsvx&3 2280 SBR getx14&6,ctlpk 2287 SBR eofx 4&3,eofr 2294 SBR tapex4&3,*&5 2301 B read 4 2305rsvx B 0-0 * * Read pktsv * 2309rdsys SBR x3 2313 MCW packt4,pkts20 Copy system packet 2320 MCW 2&X3,seofr&6 Change eof exit 2327rdsss SW gmwm Clear 2331 SBR clear&3,0 from 2338clear CS 0 top of core 2342 SBR clear&3 down to 2346 BW clear,gmwm gmwm 2354rdssb B *&1 2358rdssc SBR getx14&6,pktsv Set read area 2365seofr SBR eofx 4&3,eofr Set EOF exit 2372 SBR tapex4&3,*&5 Set normal exit 2379 B read 4 Read 2383 B 3&X3 * * Put list unit in PKTSV and write with PKTSV * 2387wlst SBR x2 2391 MN unit,pktsvu Move LST unit to PKTSV 2398 B writsv 2402 B 0&X2 * 2419nfound DCW @000 NOT FOUND}@ 2422ssv35 DCW #3 2425agmwm DSA gmwm 2426ctlpk da 1x20,c Control packet for CTL unit 2446card da 1x80,c card3 3 card5 5 card6 6 card20 20 card23 23 card27 27 card28 28 card29 29 card75 75 card80 80 2526list da 1x20,c Control packet for LST unit 2546line da 1x133,c l23 23 l43 43 l100 100 l132 132 l133 133 2679unit DCW #1 List tape unit number 2680ss ss 2683klst DCW @LST@ 2686kctl DCW @CTL@ 2691kupda DCW @UPDAT@ 2692slash dcw @/@ 2697kdele DCW @DELET@ 2701kfort DCW @FORT@ 2705ksyst DCW @SYST@ 2708awork2 DSA work2 2709kh dcw @H@ 2712kblnk3 DCW #3 2713kp DCW @P@ 2717khead DCW @HEAD@ 2722k24235 DCW @24235@ 2727kpat DCW @PATCH@ 2730kall DCW @ALL@ 2735kins DCW @INSER@ 2736kp1 dcw &1 2737kcw CW 2738knop NOP 2744mupda DCW @UPDAT @ 2746kbk DCW @ K@ Blank to clear print, K means 2 immediate skip 2748kbsl DCW @ /@ Blank to clear print, / means one skip after 2751kdet DCW @DET@ 2752work2 DCW @|@ 2754w2c3 equ work2&2 2755w2c4 equ work2&3 org *&x00 org *&80 2880pktsv da 1x20,c 2891pktsvu 12 Unit number 2899pkts20 20 2900gmwm DCW @}@ 2903sv04 equ pktsv&23 Column 04 of record 2904sv05 equ pktsv&24 Column 05 of record 2905sv06 equ pktsv&25 Column 06 of record 2906sv07 equ pktsv&26 Column 07 of record 2908sv09 equ pktsv&28 Column 09 of record 2909sv10 equ pktsv&29 Column 10 of record 2912sv13 equ pktsv&32 Column 13 of record 2914sv15 equ pktsv&34 Column 15 of record 2917sv18 equ pktsv&37 Column 18 of record 2920sv21 equ pktsv&40 Column 21 of record 2923sv24 equ pktsv&43 Column 24 of record 2926sv27 equ pktsv&46 Column 27 of record 2932sv33 equ pktsv&52 Column 33 of record 2934sv35 equ pktsv&54 Column 35 of record 2980sv81 equ pktsv&100 Column 81 of record END