Page 1

|THE PARAMETER TAPE - TAPE 0 - MUST CONTAIN 
| SETTINGS OF
|L149           CORE STORE SIZE
|L266           DRUM SIZE
|L545           INSTALLATION NO.
|L648           LP BARREL
|AND OPTIONALLY
|L662           SERIES NO                                 G662=1
|L150           KFLIN                                     G150=4
|L146           KFLOUT                                    G146=8
|L709           START OBJECT PROGS                        G709=512
|L874           NUMBER OF PAPER THROWS                    G874=4
|L130           NON ZERO IF DS & DT                       G130=0
|L133           NON ZERO IF DDC                           G133=0
|L883           EXTRACODE LIST IF HIGH OR MIXED DENSITY   G883=0
|L890           NON-ZERO IF WEAK RESVN PACKET
|L915           NON-ZERO IF ALL POTTER DECKS
|L770           ADD FOR COREDRUM EXTRACODE
|L916           NON-ZERO IF THERE IS AN FC
|L707           K HPD                                     G707 = 0
|L706           K HPD NOT EQUIVALENTED WITH 251           G706 = 251
|L642           NUMBER OF MT WRITE ATTEMPTS
|L574           NUMBER OF MT READ ATTEMPTS IF DIFFERENT FROM WRITE ATTEMPTS

|THEN THE PERIPHERALS AS 
|+*MTA,,,,64
|+*TRB,,,,16+256                                          256 FOR WRONG

RES *DRU 13000                                            |DRUM RES FOR ASSEMBLY


|SET PARAMETERS
L660=9                                                    |VERSION NO,
G150=4                                                    |KFLIN
G146=8                                                    |KFLOUT
L651=V1+2                                                 |NO OF PERIPHS 
G662=1
G130=0
G133=0
G883=0
G890=0
G915=0
G770=0
G916=0
L638=A0                                                  |DATUM OF ASSEMBLY

G707 = 0
G706 = 251 
S0







Page 2

V3=A400 V2=V3+V1 |ALLOW ROOM FOR PLIST V6=L149-1 |CORE-1 L1))L7) 05 (A3) L8 A4 |MASK OFF TYPE 146 L3 A4 A4 |SEARCH TYPES 15 (A3) 255 A5 |K BITS 87 L21 (A4) |SWITCH L19) 11 A3 V3 A2 |RELATIVE POSITION IN PLIST 116 (A4) 122 L4 A2 4 |PUT IN M.S.½ L2) 116 0 A5-L22 |PUT IN K BITS L6) 10X L4 (L22) A4 |INCREASE COUNT OF DEVICES L21) 81 L7 L7 A3 |COUNT THROUGH PERS 124 A6 48 A3 12 A3 49 A2 |LENGTH OF CORE ADDRESSES L22) 142 A3 1 |CONSTANT 142 L10 10 |PUT INTO VEES 150 19 A0 51 |RETURN TO BASIC L20) 61 L21 L18 |J NOT 1ST IE MAIN LP 04 L18 A5 |K BITS 75 L21 L3) +*MT1,,,,L6-L21 +*TR1,,,,L6-L21 +*CR1,,,,L6-L21 +*CP1,,,,L6-L21 +*FP1,,,,L6-L21 +*IL1,,,,L19-L21 +*ED1,,,,L6-L21 +*IT1,,,,L6-L21 +*LP0,,,,L20-L21 +*OL1,,,,L19-L21 L8) +7.63.32.... L4=V2-L3 |L4=NO OF TYPES L10) +0 L11) +0 L12) +0 L13) +0 L14) +0 L15) +0 L16) +0 L17) +0 L18) +0 +0 J 0 V3 V1 L7 L164=V3 |NO MT L154=V4 |NO TR L160=V5 |NO CR L647=V6 |NO CP L658=V7 |NO FP L917 = V8 |K IL L670=V9 |NO ED L674=V10 |NO IT L663=V11 |K MAIN LP L918 = V12 |K OL

Page 3

L572=V2 |LENGTH OF CORE ADDRESSES X L917 0 ( V2=A250 |SKIP IF NO DATA LINK L23)) 53 A8 24 |GET PLIST POSITIONS 53 A12 24 150 19 A0 51 J L23 A250 3 A250 L921=V8+L252+1 |PLIST ADDRESS OF IL L919=V12+L252+1 |PLIST ADDRESS OF OL ) V65=0 |OMP HAS DATUM POINT ZERO |OMP MK 2 KERNEL |REASONS FOR ENTRY :- | 4 - PROGRAM INCIDENT | 8 - SPRING CLEANING (ONE MINUTE) | 16 - RESERVATION LINE PARITY FAILURE | 32 - CORE STORE PARITY FAILURE | 64 - PERIPHERAL OR DRUM INCIDENT | 128 - PERIPHERAL LOCKOUT S1 V1=10000 V2=A2 S0 |TIME-SHARER L604))L1) 150 A16 L153 |J TO L153 OR RFE TO 16 72 L1.0 128 A16 |J NOT PERIPH LOCKOUT 04XY 4 0 A1 |COPY REQUIREMENT TO W4 112 (A1) 8 A29 |SUSPEND IN MAIN Q 10Y (L1.1) 4 A1 |APPEND TO PERIPH Q L698) 111X 4 -1 A1 |CLEAR FORWARD POINTER|ACC, WITH MOD ? 04X -2 L1.1 A1 |SET BACK POINTER 14Y L1.1 4 A1 |THIS IS LAST PQ ENTRY 71 L1.0 128 A16 |J UNLESS ONLY PERIPH LOCKOUT L153) 151 A1 (L1.2) |SEARCH PQ L683) 61 L2 A1 |J IF FOUND|LS½ IS ACC -1 L696) 151 A1 L224 |SEARCH MAIN Q 60 L1 A1 |J IF NO JOBS READY TO GO L4) 152XY 5 2 A1 |ENTER PROGRAM FOUND V2=A73 |ALLOW 9 DECKS ON ORION 1 X L662 1 V2=A80 |ALLOW 16 DECKS ON ORION 2 L744)L605))L2) 15 (A1) -1 A17 |FORWARD POINTER L156) 116X -6 0 A1 |LS½ IS Z=1 111 (0) -1 A17 |INSERT FWD POINTER 70 L3 (A17) |J IF REMOVING LAST 116X -6-L1.1 0 A17 |CHANGE BACK POINTER OF NEXT L3) 04Y L1.1 -6 A1 |OR L1.1(MARKS END OF PERIPH Q) 24X -6 8 A1 |RESTORE W-2

Page 4

11 A1 4 |MAKE A1 POINT TO W4 L737) 64S L4 (A1) L698 |J UNLESS SUSP 3 BITS|FLOUT PN 05 (A1) L1.12 A16 |MASK OUT PUSHED DOWN BITS L789) 34S A16 9 07 (A1) A16 |PULL BITS UP L142) 75 L666 |*Y IS CURRENT MONITOR JOB NO, L1.12) +6..... |PD BITS S0 |SPRING & RESPAR L1.0) 14 L681 L141 A17 |A17 POINTS TO PSIND |X IS CORR, TAPE? 70 L1.3 4 A16 |J ONLY PROG INC X L662 2 |SKIP ON ORION 2 L447) 77 L6 L183 A16 |J IF CORE PARITY FAILURE 76 L7 L1.5 A16 |J NOT RESERVATION PARITY 86 L165 32 A24 |STOP PSIND L7) 76 L8 L9 A16 |J IF NOT SPRING 86 L165 128 A24 |STOP SPRING L8) 76 L666 L184 A16 |J NOT PERIPH INCIDENT |DRUM X L770 0 ( L863)L158) 73 L699-6 0 2 |J TO EXTRACODE|Z=2 74 ) X L770 0 X 0 0 ( L863)L158) 141.13 0 0 2 |LOOK AT DRUM|Z=2 154 A34 L10 |J NOT DRUM|FAIL INF TO A34&A35 ) 57 A35 L1.11 A19 |DRUM ADDR TO A19 X L662 2 |SKIP ON ORION 2 ( L1.11=L572+14 |SENSIBLE PART A19 REST A20 14 A23 7 |7 BITS 116 0 26 |BRING INVERTED PART TO TOP L2) 121 A20 2 |NEXT BIT TO TOP OF A20 56 A19 1 |STRAIGHTEN 1 BIT 83 L2 A23 |COUNT BITS ) G1.11=0 |NO SHIFTS NECESSARY ON ORION 2 00 A34 A37 A16 |-D4 53 A16 24 64 L3 A33 |J IF FIRST FAIL 71 L11 (A33) A19 |DISASTER IF DIFFERENT ADDRESS L3) 04 A33 A19 |COPY ADDRESS TO A33 74 L11 -1 A16 |J NOT ONLY READ FAIL 12 A16 (A34) A18 |LENGTH -1 82 L4 L740 |COUNT FAILS|SKIP REPEAT IF COUNT EXH? X L662 2 141.1Y 0 -1 A33 |REPEAT TRANSFER ON ORION 1 X L662 1 141.1 0 (A33) |ON ORION 2 142Y (A16) (A18) L683 L4) 15 (A17) -1 A17 |STEP ALONG MAIN Q L9) 117 5 247 |Y ADDR. MASK NOT SPRING 05 (A17) L682-247 A18 |MASK RESERVATIONS FROM W5

Page 5

53 A18 24 A19 |DATUM 74 L5 (A18) A16 |J IF BEYOND RESERVATIONS 73 L15 (A19) A16 |J IF IN RESERVATIONS L5) 61 L4 A17 |GO BACK IF MORE PROGRAMS 14 A17 L141 |RESET A17 L740) 70 L11 L741 |*J IF REPEATS EXHAUSTED L15) 86 L165 8192 A24 |STOP PROGRAM CONCERNED G741=5 |NUMBER OF REPEATS L1.2)L249) 75 L666 |START OF Q |PERIPHERAL INCIDENT L10)L479) 14 A26 L252-1 |PLIST-1 L12) 80 L666 L171 A26 |COUNT THROUGH PLIST J AT END 04 A27 (A26) |PLIST WORD 140.13 0 (A27) |IS IT THIS PERIPH? 154 A25 L12 |J TO L12 OR FAIL INF TO A25 72 L1.4 255 A27 |J FLIN OR FLOUT 64 L12 A27 |J FAILED ALREADY 70 (L144) (L145) A26 |J MONPER L664) 74 L13 (L170) A27 |J IDLE 53 A27 8 A17 |A17 POINTS TO W0 OF OWNER 121 A27 24 |A27 POINTS TO DIRECTORY WORD 52 (A27) 8 |DIRECT, WORD UP 8 26 (A27) 10 |MARKED FAILED 110 (A27) L167 A25 |LS 25 BITS OF INF 53 A25 1 |FAIL DOWN 1 L157) 75Y L14 |JOIN IDLE CASE L773)L13) 53 A25 15 |FAIL DOWN 15 52 A25 8 A27 | & UP 8 06 A25 (A26) |TYPE + D0-8 111 (A26) (L1.7) A27 |D24T032 INTO D31 T039 L14) 112 (A26) 8 A25 |TYPE &D0-8 OR D0-22 86 L165 2048 A24 |STOP PERIPH INC L665) 26 (A26) 10 |FAILED BIT L145) 75 L666 X L662 2 |SKIP ON ORION 2 L6) 86 L165 24576 A24 |STOP CORE FAIL L11) 86 L165 8192 A24 |STOP DISASTROUS DRUM FAIL 57 A15 48 L153 |DESTROY TIMESHARING L155) 75Y L1.6 -1 31 |FORCE ENTRY TO MONITOR S0 |PROGRAM INCIDENT L774)L1.3) 04S A17 A1 |PREPARE TO STOP OBJECT PROG|ENGI 1 L775) 04YS A28 2 A1 |LINK ADDRESS|ENG 2 L1.7) 117Y 1 -256 A1 |MASK FOR IDLE PINC L778)L862) 64 (A28) 262 |J IF TRUSTED L786) 05S (A28) L162 A26 |ENGI 20 L777) 04Y A20 7 A1 |W7 L884) 60 L1 A37 A26 |J IF 3-ADD 150 L852) 65 L2 A20 |J NOT *OWN |ENG 200 65Y L2 1 A1 |J IF TIME UP 04Y (A20) 2 A1 |OLD LINK 14X 2 (A20) A1 |NEW LINK -1

Page 6

L170) 75Y L1.10 (-1) 63 |STEP LINK |1-23 |FAST 150'S L1)L851) 25 (A28) 16 A27 |Z L850) 05 (A28) L682 A23 |X,Y L776)L685) 70 L3 (L158) A27 |J IF 150/2 L788) 70S L4 (L163) A27 |J IF 150/51 71 L913 (L156) A27 |J IF NOT 150/1 X L890+L707 0 L913=L1.9 G913=L1.8 |150/1 53 A23 8 A17 |X TO SECONDS 00XY 6 1 A1 |CORRECT W6 03X 1 A17 A1 |SET W1 00X 6 A17 A1 |ALLOW FOR IT IN W6 L163) 73 L5 0 A51 |GO TO STEP LINK|LS½ IS Z=51 |150/2 L3) 10X 1 L12 A1 |TIME OF 150/2 121 A20 24 A18 04 A21 (A18) |WORD 0 OF BRANCH DIRECT 53 A23 24 A28 |X L189) 15 A28 7 |BRANCH NUMBER 67 L1.8 10 A21 |TO SLOW 150 IF UNBRANCHED OR TEMP, SO 04Y A19 (A18) A28 |BRANCH ENTRY 64 L1.8 A19 |TO SLOW 150 IF NON-EXISTENT 53 A18 45 A20 |NUMBER OF THIS BRANCH X L662 2 L12=128 |CHARGE 2 MILLISECS ORION 1 G12=32 |CHARGE ½ MILLISEC ORION 2 53 A19 24 A21 |STATE OF OTHER BRANCH 70 L6 (A23) |J Y=0 60 L7 A21 |J OTHER BRANCH GOING 25X (A18) 9 A28 |START OTHER BRANCH 110 (A19) A26 |ONLY IN FAST CASE 70 L7 (A21) A20 |J IF OTHER AWAITS THIS 83Y L7 2 A19 |STEP BACK CN TO REOBEY 150 L6) 70 L5 (A21) A20 |J IF OTHER AWAITS THIS L9) 115 (A17) 60 |STOP M&S IF FROM KERNEL 52 A28 24 A23 00X (A18) A23 A20 |MARK WAITING FOR OTHER L7) 64 L9 (A23) |J IF Y NEG L1.10)L5) 81Y L666 2 A1 |STEP LINK |END OF MONITOR JOB L161) 10X 6 (L143+1) A40 |CHARGE L162) 157XY (0) (0) 0 |OFF TS 10 A29 16382 |MARK MONITOR NOT BUSY L4) 116 0 256 |150/51 L1.8) 116 0 192 |SLOW 150 L2) 14 A18 64 |PROG FAIL L184) 86 L166 191 A24 |STOP|NOT 64 L666) 75 L153 16384 A29 |J NO JOBS OR BUSY L1.6) 111 A29 16384 |MARK BUSY 14 A1 L143 |PREPARE TO ENTER MONITOR L787) 10S A2 L10-L153 |FRIG TS TO JUMP TO L10|NL FOR FLOUT L867) 14 A40 L460 |L460 POINTS TO PSIND |SIGN BITS FROM L867 ONWARDS

Page 7

|PARALLEL PLIST = 0 FOR WRONG DEVICE L10) 76 A15 L143 L698 |J EXTERNAL INTERRUPT L738) 15 (A40) -1 A40 |CHASE DOWN MAIN Q 120 (A40) 4 A41 |COUNT SUSPENSION BITS 60 L11 A40 |J REACHED END OF Q(AJLO) 71 L738 3 A41 |J NOT STOPPED 121 (A40) -4 A45 |SHIFT TOP 4 OUT OF THE WAY 124 A45 11 A41 |FIND CHAP NUMBER 121 L880 (A41) A45 |MASK TO REMOVE BIT 82 L738 10 A41 |J NO JOBS |JOB NO STARTS FROM 0 L460) 70 L11 L141 A40 |NO CHECKING IF PSIND L186) 117 5 251 05 (A40) L682-251 A42 |UPPER RES IN A42 53 A42 24 A43 |DATUM IN A43 X L662 2 |SKIP ORION 2 70 L11 5 A41 |SKIP CHECKING ON 150/51 X L662 1 75 L699 |ORION 2 LOOK FOR BUSY L739) 11 A42 (A43) A48 |A48 IS LENGTH OF RESERSED REGION 86 A15 L242 |ENTER MONITOR 143Y (A43) (L5) A48 |CHECK LOCKOUTS|L5=2 + BITS ABOVE Y L11) 11 A2 L10-L153 |CHECK OK RESTORE A2 05 (A40) A45 |REMOVE BIT 24 L143+1 10 |SET TIMER 86 A15 L242 |ON TS |ENTER MONITOR L448) 116X L13 0 A41 80 (0) (L142) A41 |J DIRECT IF RIGHT CHAPTER DOWN 14Y A44 L152 A41 |A44 = POINTS T0 CHAP CHANGE L456) 04 A44 (A44) |PICK UP CHAP CHANGE WORD L131) 111 L142 -1 A41 |SET NAME OF CHAPTER 57 A44 39 A45 |UNPACK CHAP CHANGE 57 A46 33 53 A47 39 141.1 0 (A46) 142 (A47) (A45) |DO CHAPTER CHANGE L152) 75XY (A44) -1 |ENTER CHAPTER |CHAPTER CHANGE WORDS FOR STARTMON L13) 00S L396 L397 0 |CORE FAIL F9 15 L398 F9 39 L399 00S L400 L401 0 |DRUM FAIL F9 15 L402 F9 39 L403 L144) +0 |MONPER RESTART ADDRESS 00S L404 L405 0 |PERIPHERAL INCIDENT F9 15 L406 F9 39 L407 L1.1) +L1.2 |POINTS TO END OF PERIPH Q 00S L258 L743 0 |150/51 F9 15 L226 F9 39 L413 00S L258 L743 0 |SLOW 150 F9 15 L226 F9 39 L413 00S L409 L410 0 |SPRING F9 15 L411 F9 39 L412 00S L137 L128 0 |INTERPRETER

Page 8

F9 15 L129 F9 39 L271 00S L270 L814 0 |DIRECTIVES & RESPAR F9 15 L269 F9 39 L408 L880) -4.......-1 |MASK TO REMOVE BIT|NOT DIS |PLIST L745))L252)L223) 96 (16384) L150 0 |FLIN V65=L638 V2=A400 S0 |INTERLUDE L1))L2) 141.1 142 L3 L651-2 141.21 0 L1 142 L3 L651-2 70 2049 A0 |J IF COMPILING 150 19 A0 51 |RETURN TO BASIC IF TEST L3) J L1 L2 L3-L2 L2 |ENTER INTERLUDE V65=0 V1=L745 V2=L252 V0=V2+L651-1 |RESET V1&V2 TO END OF PLIST L253) +L146 |FLEX. OUT L171) V0=L252+32 L136) L606=L136-L744 |LENGTH OF KERNEL MAIN |MIND V2=L149-64 S0 |LAST 64 WORDS OF STORE L607)) 157X -1 -L266,,,, |DRUM SIZE L143) +0 |MIND 0 0 0 0 |TIMER L242) +0 |LINK L167) +2....-1 |0-23,1-25 +0 |PQ ENTRY L168) +L149-1 |RESERVATIONS L182) +48.......-1 |1-1,0-1,1-46 L682) 00S -1 -1 0 |MASK FOR X&Y L265) +0 |FOR PERIPHERALS |STOP L679))L165) 04Y A18 -1 A24 |PICK UP Y OF LINK L166) 56 A17 77 A18 |SHIFT STOPBIT TO TOP OF A18,CLEA? L183) 86 L1 223 A20 |STOP IF NECESSARY 76 (A24) (A17) A18 |EXIT THIS BIT ALREADY THERE 06 (A17) A18 |INSERT IT 04Y A18 7 A17 75 L2 (L155) A18 |J NOT BRANCHED 53 A18 24 |BRANCH DIRECTORY 14 A20 L3 |SET LINK TO SUB SUBROUTINE L3) 04Y A17 (A18) A19 |PICK UP NEXT WORD FROM DIRECT L1) 120 (A17) 4 A23 |COUNT SUSPENSION BITS 70 L4 3 A23 |J IF STOPPED ALREADY 15 (A17) -1

Page 9

115 (A17) 56 |STOP BRANCH L4) 81 (A20) 8 A19 L1.5)L2) 81 (A24) 239 A29 |EXIT FROMSTOP/ STEPPING A29 L680=V2-L165 |FLOUT +0 |P. ON JOB NAME L280) +0 |JOB NAME -1.... L449) 0 0 0 0 |-1.0 DRUM RES L224) 150 0 L143 0 |MAIN Q STARTS HERE |FLIND 0 0 0 0 L5) +L180 |LINK =CHAP CHANGE L141) +0 |PSIND +0 |FOR PERIPH Q 00S 0 -1 0 Y L545 33 +47.50.41.47.33... |ORIOA (PRU) Y L545 35 +47.50.41.47.34... |ORIOB (PRU) X L545 33 ( X L545 35 +47.50.41.47.46... |ORION ) L785) +L181 |FLOUT DRUM MOD L8) +32.+L146 F 12 12 L151 L827)L1.4) 77 L6 L224 A37 |FLEX FAILS, J FLOUT NOT SUSPENDED 15 L224 -1 |FLOUT ON L6) 53 A25 40 L710) 70 L665 2 A25 |FRIGGED BY EMS 86 L666 L5 |SET LINK IF FALL 122 L7 L8 6 L180) 141.1 0 (L7) |DRUM ADDR LAST WORD OF CHAPTER 142 L147 15 12 |M IS NAME OF FLIN L147) V0=V2+14 |SPACE FOR FLOUT CHAPTERS L7)L188) 0 0 L187 0 |DRUM 1ST CHAP L169) 157XYS (-1) (-1) -1 |144 STOPPER AT END OF STORE |EXTRA 64 WORDS OF KERNEL FOR HPD X L707 0 |SKIP NO HPD ( V2=L149-128 S0 L711))L705) 53 L704 8 A17 |SR TO FLOAT HPD(OR SINK) 53 L704 24 A18 |DIR TO A17 DIRWORD TO A18 02 A17 A18 |POSITION IN DIRECTORY TO A17 116 (A1) 53 7 24 A18 |WORD 7 TO A18 61 L1 (A18) |J IF BRANCHED 17X (A1) L706 A17 |FLOAT OR SINK 87 0 A24 |EXIT L1) 14 A19 |BRANCH COUNT L2) 04Y A20 (A18) A19 |NEXT BRANCH 64 L3 A20 |J IF DOESN'T EXIST

Page 10

17X (A20) L706 A17 |FLOAT OR SINK L3) 81 L2 8 A19 |COUNT BRANCHES 87 0 A24 |EXIT |150 KERNEL L1.9) 71 L1.8 (L4) A26 |J UNLESS 150/3 116 (A1) 146 8 A23 A18 |SEARCH FOR PERIPHS. 60 L1.8 (A18) |SLOW 150 IF NOT FOUND 77 L1.8 L5 A23 |J NOT HP OR Y NOT 0 OR 1 140.13 0 L707 |ABANDON ANYWAY L5) 155 *HP31 1 |MASK USED IN L5-2 70 L1.10 1 A23 |FINISHED IF Y=1 65 L1.8 L704 |TO SLOW IF LISTENING 25 L704 11 |START LISTENING 86 L705 A24 |SINK L4) 61 L1.10 0 A3 |FINISHED |LS½ IS Z=3 L6) 75 L6 |FRIGGED TS(THIS INTERCHANGED WITH A3) L697)L8) 71 A4 0 A1 |YADDR POINTS TO HPD PROG. J NOT HPD 71 L1.0 128 A16 |J NOT ONLY PLO L7) 25 (L8) 8 A17 |HPD WORD 0 CLEAR LS½ 151 A16 A17 |A16=0 IF HPD NOT READY TO 00 L9) 75 L7 |INTERCHANGED WITH L153,SCAN MAIN Q 60 L153+1 A16 |J BACK IF HPD NOT READY TO GO 15 L8 -1 A1 L708) 86 A15 |ENTER HPD PROG|FROM 150/30 OFF TS 114 A3 L6 |FRIG TIME SHARER 114 L9 L153 111 L8 -1 A40 |INSET NAME OF OWNING PROGRAM L653) 152 L168 A50 |OBEY LINK|FROM PERIPH INC OFF TS 11 L668 10 04 A1 A40 |SET A1 FOR FLOAT SR L10) 86S L705 L667 A24 |FLOAT|Y USED IN 152 14 A1 L143 |RESTORE A1 152 L168 L10 |ON TS TO L667 L730) 15 (A49) 255 A17 |FROM RELINQ , KBITS 71 L542+2 251 A17 |TO L207 UNLESS 251 25 L704 11 |LISTEN & RETURN 75 L542+8 L736) 70 L735+1 L141 A40 |FROM WRONG, RETURN IF PSIND 14Y A18 7 A40 |PREPARE TO SEARCH DIRECTORY L11) 10 A18 1 60 L735+1 (A18) |RETURN WHEN FINISHED 15 (A18) 255 A19 |K BITS 71 L11 251 A19 |TO NEXT UNLESS FLOATING HPD 25 L704 11 |LISTEN & RETURN 75 L735-1 L714) 86S L218 L177 A62 |SLOW 150/3, RESVI IF HE HASN'T GOT 77 L179 L12 A59 |IMPOP NOT HPD 74 L179 1 A60 |IMPOP Y NOT 0 OR 1 64 L12 L704 |J NOT LISTENING 60 L179 A60 |IMPOP IF LISTENING Y=0 L12) 75 L715 *HP31 |JOIN SLOW 150/1&2 V0=L149-64 L712=V1-L711 ) |EXTRA 64 WORDS OF KERNEL FOR 150/4 X L890 0

Page 11

( V2=L149-128 SO L903))L893) L1.9) 71 L1.8 (L0) A27 |J IF NOT 150/4 121 A23 24 A18 |Y,X 74 L1.8 1 A18 |SLOW IF X NOT 0 OR 1 70 L1.8 (A23) |ERROR IF Y=0 74 L1.8 15 A23 |ERROR IF Y>15 116 (A17) 53 7 39 A19 15 A19 15 |PROGRAM NO. TO A19 70 L2 1 A18 |J IF X=1 121 A19 3 122Y A19 L894 A19 53 A19 42 |SUB. NO. TO A19 60 L1.8 A19 |ERROR IF NOT A SUB. 06 A18 L0 112 (A17) 8 A18 |SUSPEND AS REQUIRED L892) 75 L1.10 |EXIT L905)L0) 120 16 0 4 L2) 53 L897 24 A20 15 A20 -1 |MASTER'S PROG. NO. 61 L1.8 A20 A19 |ERROR IF NOT MASTER 16 A23 16 |Y+16 14 A17 L143 L3) 04 A17 (A17) |CHAIN DOWN MAIN Q 53 (A17) 44 A18 71 L20 14 A18 |J NOT SUSPENDED 1110 53 (A17) 24 A18 15 A18 31 A19 71 L20 (A23) A19 |J IF NOT SUSPENDED AS REQUIRED 110 (A17) L21 |REMOVE SUSPENSION STYLE 77 L20 L22 A18 |J IF OTHER R. F. SUSPENSION 15 (A17) -1 |SWITCH ON L20) 61 L3 A17 |J IF NOT END OF Q 10X 1 L5 A1 |CHARGE 75 L1.10 |EXIT X L662 2 L5=256 G5=64 L906)L21) 0S 31 0 0 |MASK FOR SUSPENSION STYLE L22) 0S (0) (31) 32 |FOR TESTING OTHER R,F,S, L902) 114 L25 A59 A38 |FROM SETSTAND. 114 A0 A60 A39 |SET A59=4, A60=0 AND DUMP L891) 86 L456 A44 |FROM CR, 1 OF 150S 00S L885 L887 0 |ENTER 150/4 F9 15 L886 F9 39 L888 L896) |RESERVATION CHECKER 74 L177 L149-1 A54 |RESVIOL IF > SIZE OF STORE 04Y L24 5 A40 52 L24 2 65 (A44) L24 |READ OK IF WEAK RES, 70 (A44) (A54) A43 |OR IF A0 L25) 75 L175 4

Page 12

L24) +0 |WORKING SPACE L894) +0 +0 L897) +0 |MASTER INDICATOR L904) 0 0 L902 0 |SETSTAND LINK L907) 116Y 0 (A51) A19 |FRIG FOR START 04 A21 (1) 76 V2+2 L908 A21 |J IF VALID SUSPENSION STYLE 110 A21 L21 |IGNORE SUSPENSION STYLE 06 A18 A21 81 L907 7 A19 75 L910+1 L908) +63,63,63,47,63,63,63,63 L909) 76 L912 L208 A18 |FOR INTERPRETER START 75 L911 C 0 63 L895=V2-L893 ) X L662 1 ( |PART OF KERNEL IN EXTRACODE SPACE ON ORION 2 V2=0 S0 |TO ALLOW FORWARD REFS IN CORE TA X L770 0 ( 141.13 154 A34 L5 |INTERROGATE DRUM 75 L863+2 |J IF FAIL L5 = L6+V2 141.13 0 L770 |INTERROGATE COREDRUM 154 A34 L479 75 L863+2 L6 = L699-V2 V2 = 0 ) L828)) 10 A40 8 A16 |MODIFIER FOR PERIPHERALS L3=L699+V2 60 L739 (A16) |NOT BUSY IF REACHED OF PERIPHERALS 64 L4 (A16) |NOT BUSY IF FAILED 53 (A16) 17 A17 15 A17 63 |POSITION IN PLIST 04Y A17 L252 A17 |PLIST WORD 15 A17 255 |K BITS 73 L4 64 A17 |IF MAG TAPE DOESN'T APPLY X L917 0 |SKIP NO DATA LINK ( 70 L4 L917 A17 |IGNORE IL 70 L4 L918 A17 |OR OL ) 156 L738 (A17) |EXIT TO L738 IF BUSY L4=L699+V2 81 L3 A16 |COUNT THROUGH PERIPHS L829=V2 |LENGTH L699=L709-L829 |MAKE CORE START TO FIT AT END OF E?? ) |RABBIT CATCHERS S0 V2=L149-192

Page 13

X L707 0 V2=V2-64 X L890 0 V2=V2-64 L858)L857)) L859) 70 L860-1 L224 A1 |J IF FLIND 70 L860-1 L860 A28 |J IF OTHER RABBIT L22) 142 L1 L10-1 142 L1+1 31 |SHIFT UP OLD LIST 04 L1+31 A28 |APPEND NEW ENTRY 75X 1 0 A28 |J TO NEXT WD L860) 152 L168 L22 |LOOP STOP IF ENTERED IN MONITOR MOOR 86 L153 L143+2 14 L6 14 A45 L3 |POINTER TO REGION WORD L7) 04 L13 (A45) |FINISHING ADDRESS+1 53 L13 24 A47 |STARTING ADDRESS 25 (A47) 11 A46 |IGNORE SIGN BIT 00 L6 A46 |ADD NEXT WORD INTO CHECKSUM 27 L6 4 |NOT WITH AND CLEAR OVR 81 V2-3 (L13) A47 |ALL WORDS IN THIS REGION 81 L7 L12 A45 |ALL REGIONS 114 L6 L8 |INTERCHANGE NEW AND OLD CSS 60 L9 L6 |J IF FIRST TIME THROUGH 07 L6 L8 L10) 61 V2 L6 |LOOP IF C.S. FAIL L9)L14) 14 L6 18 |PROGRAM COUNT 15 A29 16383 A47 |COUNT OF MONITOR JOBS IN A47 14 A45 L141 04 L13 A29 |STORE JOB COUNT L11) 04 A45 (A45) |CHAIN DOWN MAIN Q 120 A45 4 A46 71 L16 3 A46 |J IF NOT AWAITING MONITOR 120 A45 17 A46 |COUNT MONITOR JOBS 10 A47 3 11 A47 (A46) |SUBTRACT NO, OF MONITOR JOBS L16) 82 L10-1 L6 |LOOP IF APPARENTLY 17 JOBS 61 L11 (A45) |J IF NOT END OF MAIN Q 15 L141 -1 A46 |DONT CHECK IF IN JOB 71 L21 (L143 A46 |J IF IN JOB 60 L17 L152+1 A44 |J IF ALL J.L.O, OR CORE FAIL 61 L14 L13 A29 |START AGAIN IF COUNT HAS CHANGED 71 V2 1 A47 |LOOP IF COUNT BROKEN L21) 142 L20 142 L20+1 31 04 L20+31 A44 |RECORD CCW L17) 111 L142 -1 A41 |WO FRIGGED IN INTCHAP 87 0 L864 |TO INTCHAP AND RESTORE OVR L3) |LIST OF REGIONS +4....+L153 +37....38 +L744,,,,L142 +L142+1,,,,L863 +L863+1,,,,L740 +L740+3,,,,L145 +L145+1,,,,L788

Page 14

+L788+1,,,,L152 +L152+1,,,,L144 +L144+3,,,,L144+8 +L165,,,,L449-3 +L827-1,,,,L147 +L858,,,,L8 +L860,,,,L12 +L169,,,,L169+1 X L707 0 ( +L705,,,,L697-1 +L708,,,,L712+L705 ) L12)L8) + |CHECKSUM L6) + L13) + |WORKING SPACE L864) + |LINK TO INTCHAP L28)L1) V0=V2+32 |SPACE FOR STORING CCWS AND TRUSTED FAILS C 0 63 L861=V2-L858 |LENGTH OF RABBIT CATCHERS |EARLY MORNING START G709=A512 V2=L709 C 0 127 |ENGINEER'S MODE L702)L701)L700)) 143 A64 16 141.1 0 L604 |ASSEMBLY OF KERNEL 142 A2 14 141.1 0 L605 142 L744 L606 141.1 0 L607 142 L149-64 64 141.1 0 L857 |RABBIT CATCHERS 142 L858 L861 X L662 1 |SKIP IF ORION 1 ( X L770 0 ( 141.1 0 L828-6 |EXTRAEXTRA KERNEL FOR DRUM 142 L699-6 L829+6 ) X L770 0 X 0 0 ( 141.1 0 L828 |EXTRA KERNEL FOR ORION 2 142 L699 L829 ) ) X L707 0 |SKIP IF NO HPDS (

Page 15

141.1 0 L711 |EXTRA KERNEL FOR HPD 142 L149-128 L712 ) X L890 0 |SKIP IF NO *WEA ( 141.1 0 L903 |EXTRA KERNEL FOR 150/4 142 L149-128 L895 ) 115 0 62 A37 |CONSTANT IN A37 14 A32 L181 |FLOUT BUFFER POINTER 24 A33 10 115 0 1.48 A29 |CONSTANT AND MON, JOB COUNT IN A29 56 L1 0 A1 |A1 POINTS TO MIND, TS TO J TO L2 140.13 0 L150 |ABANDON FLIN FAILURES 154 0 V2+1 140.13 0 L146 |ABANDON FLOUT FAILURES 154 0 V2+1 140.22 0 L146 |0/P SWITCH TO NORMAL MODE 142 L3 24 130 |LOOP UNTIL SWITCHED |NORMAL MODE L877))L878) L2) 150 0 V2+1 |REMOVE R.F.E. 140.13 0 L146 155 |ABANDON MESSAGE 143 L63 L535-L1..1 |CLEAR CORE WORKING SPACE 141.21 0 L1..1 |CLEAR DRUM TABLES AREA 142 L63 L535-L1..1 14 A50 L223+1 |PLIST WORD POINTER L6) 64 L4 (A50) |J IF WRONG 15 (A50) 96 A51 |M.S. 2 K-BITS 15 (A50) 255 A52 |K-BITS 140.13 0 (A52) |ABANDON FAILED TRANSFERS 154 0 V2+1 140.13 0 (A52) |ENGAGE IF MAG TAPE 155 52 A52 24 A53 151 A53 A53 60 L4 A53 |J IF BUSY 70 L19 64 A51 |J IF MAG TAPE X L917 0 ( 70 L4 L917 A52 |DONT DISENGAGE ORION2 LINK 70 L4 L918 A52 ) L22) 140.16 0 (A52) |DISENGAGE 142 L4) 81 L6 L171-1 A50 |STEP PLIST POINTER 115 A0 6.32 A50 143 A64 L164 A50 75 L23 L19) 140.13 0 (A52) |INTERROGATE DECK 142 A51 76 L4 L21 A51 |J IF DISENGAGED 77 L22 L24 A51 |J IF ON BOTH SENSING POSTS 140.1 0 (A52) |SET FORWARD 142 A54 1

Page 16

140.13 0 (A52) 155 140.14 0 (A52) |REWIND 142 14 A54 81 V2 2000 A54 |80 MS DELAY X L662 1 F15 0 8000 |ORION 2 IS FASTER 75 L4 L21) +63,63,63,63,62,63,63,63 |NOT DISENGAGED BIT L24) +63,63,63,63,63,47,63,63 |NOT BOTH SENSING POSTS BIT L1.0) X L707+L890 0 L1.1=L149-128 G1.1=L149-64 +L709,,,,L1.1-L709 |CORRECT CONSTANT FOR CLIST L1.2) +L149,,,, |FRIG CONSTANT FOR CLIST L23) 04 A2 L26 |RESTORE W2 86 L153 L143+2 |SWITCH ON TS |TIME SHARING ON 141.21 0 L287+1 |FRIG CLIST TO STOP MORE JOBS 142 L1.2 1 141.1 0 L268 |READ FLAS 142 L136 L273 14 A40 L17-3 |UCS, FOR JOB NAME 04 A44 L7 |COPY MESSAGE 86 L134 40.A44 A50 |NL.DATE L27) 86 L135 A50 |NL, 157 |OFF T.S, 77 L62 L224 A37 |J IF FLOUT NOT SUSPENDED 15 L224 -1 |SWITCH ON FLOUT L62) 115 L143 62 |SUSPEND MIND 86 L153 L242 |TO T.S. 77 V2 L224 A37 |WAIT FOR FLOUT L26) 150 A16 L153 |OFF TS, NORMAL W2 14 A26 L223 |INCIDENT ON FLIN 14 L252 L150 |ENSURE FLIN NORMAL 53 L449 6 A25 |SELECT 86 L827 L143+2 |TO FLIN FAILURE 77 V2 L224 A37 |WAIT FOR FLIN L50) 141.1 0 L726 |READ PRIMARY INPUT 142 L835 L823 |SUBROUTINES 16 L830 2 |ENSURE DECIMAL READ 04 L235 L8 |ERRORS TO GO TO L9 L30) 14 A63 80 |MARK FLX 14 A62 86 L229 A41 |READ LINE 141.21 0 L684 |SET NL. IN FLIN BUFFER 142 L7 1 86 L261 L879 A54 |IGNORE SP 70 L26 2 A43 |J IF NL. 86S L260 L263 A54 |GET DAY 53 A52 6 |PREPARE TO EXAMINE FIRST 3 CHARS 146 L13 A52 A61 |SEARCH FOR DAY 64 L235 (A61) |ERROR IF NON-EXISTENT 86 L260 L455 A54 |GET DATE 04 A60 A52 |STORE IT IN A60 86S L260 L263 A54 |GET MONTH

Page 17

53 A52 6 |PREPARE TO EXAMINE FIRST 3 CHARS 146 L14 A52 A59 |SEARCH FOR MONTH 60 L235 (A59) |ERROR IF NON-EXISTENT 86 L260 L455 A54 |GET YEAR 04 A58 A52 111 L830 2 |PREPARE OCTAL READ 86 L261 L455 A54 |GET ENGI NUMBER 14 A54 L774 121 A52 1 112 (A54) 10 A52 |PUT IN ENGI BITS APPROPRIATELY 81 V2-2 L774+15 A54 65 L20 L851 |J IF NOT LOGGING TRUSTED FAILS 04 A54 L25 112 L862 11 A54 |FRIG TRUSTED FAIL 65 L35 L850 |J IF NOT FRIGGING INTCHAP L20) 65 L34 L850 |J IF NOT FRIGGING INTCHAP 04 L131 L33 L35) 04 L1.0 L42 |FRIG CLIST 141.21 0 L237 |ANOTHER FRIG TO CLIST 142 L42+1 1 L34) 04 A52 A58 |YEAR TO A52 72 L31 100 A52 |J IF YEAR TYPED IN SHORT 11 A52 1900 |OTHERWISE SUBTRACT 1900 L31) 53 A52 2 A58 00 A58 A52 |MULTIPLY YEAR BY 5/4 UNROUNDED 15 (A59) 7 A43 00 A58 A43 |ADD IN CONST. DEPENDING ON MONTH 53 (A59) 6 A43 |NUMBER OF DAYS IN MONTH +1 15 A43 63 77 L40 L13 A52 |J IF NOT LEAP YEAR 74 L41 L14+1 A59 |J IF NOT JAN OR FEB 11 A58 1 |ADJUST DAY COUNT L41) 71 L40 L14+1 A59 |J IF NOT FEB 117 0 1 |ADD 1 DAY FOR LEAP YEAR L40) 73 L235 (A43) A60 |ERROR IF DAY OF MONTH TO HIGH 10Y A58 L13 A60 |ADD IN DAY OF MONTH LESS 4 01 A58 A61 |SUBTRACT DAY OF WEEK 40 A58 L15 A57 |ERROR IF DAY COUNT NOT NOW 61 L235 A58 |CONGRUENT OT 0 MOD 7 141.1 0 L294 |READ CLOCK AND CHARDATE 142 L293 L295+L627-L626+L546 L28) 10 A52 1900 |REPLACE 1900 YEARS 11 A59 L14-1 |NUMBER OF MONTM IN RANGE 1 TO 12 11 A61 L13-1 |NUMBER OF DAY IN RANGE 1 TO 7 52 A52 12 |ASSEMBLE MIXED RADIX DATE 52 A59 8 52 A60 3 14Y L546 (A52) A59 |STORE IN NORMAL PLACE 16Y L546 (A60) A61 86 L626 A44 |SET UP CHARDATE 86 L293 A63 101 L548+1 L0 A58 |TIME IN CHARACTERS 141.21 0 L302 |WRITE DATES AND TIME TO DRUM 142 L546 3 141.1 0 L268 |READ FLAS 142 L136 L273 64 L36 L777 |J IF SUPPRESSING LOG

Page 18

86S L134 8.7 A50 |DUMMY ENTRY 04 A41 L37 143 (A49) 15 A41 |15 WORDS OF UC. 115 A49 15.4 |STEP BUFFER MOD AND PN. 86 L135 A50 |NL. L36) 142 A42 |COPY MESSAGE 142 L16 3 86 L134 2.24.A42 A50 |DOCUMENT HEADING 115 L548 15 |/ 86 L134 1.0.+L548 A50 |DATE 86S L134 8.15 A50 |/ 86 L134 +1.0.+L548+1 A50 |TIME 04 A44 L60 86 L134 24.A44 A50 |/2. 14 A44 L660 101 A44 L61 86 L134 1.0.A44 A50 |MARK NUMBER 86S L134 8.31 A50 |. 14 A44 L545 101 A44 L61 86 L134 1.0.A44 A50 |INSTALLATION NUMBER 115 A49 4 |PUNCH ON 86 L135 A50 |NL. 157 |OFF TS 114 L710 L1.21 |DONT ACCEPT FLEX SELECT 77 V2+2 L224 A37 15 L224 -1 |FLOUT ON 115 L143 62 |SUSPEND MIND 86 L153 L242 |ON TS 77 V2 L224 A37 |WAIT FOR FLOUT 04 L280 L1.20 |SUPPRESS EXCESS NL'S ON FLEX |THE ROUTINE BELOW IS USED TO ENABLE THE CORRECTION TAPE TO |BE READ IN PROGRAMMER'S MODE. THE KERNEL, WITH MONITORING BITS |ETC, IS PRESERVED ON THE DRUM. AND A 'PSEUD0-JOB' IS SET UP TO |READ THE CORRECTIONS. ALL OTHER JOBS ARE INHIBITED DURING THIS TIME. |TME PSEUDO-JOB RETURNS VIA FRIGGED 150/54 TO L678. 141.21 0 L604 |PRESERVE KERNEL WITH 142 A2 14 |ENGI BITS ETC ON DRUM 141.21 0 L605 |DURING READING OF 142 L744 L606 |CORRECTION TAPE 10 L136-1 |LOCKOUT TILL KERNEL STORED 141.21 0 L679 142 L165 L680 141.21 0 L857 142 L858 L861 X L662 1 ( X L770 0 ( 141.21 0 L828-6 142 L699-6 L829+6 ) X L770 0 X 0 0 ( 141.21 0 L828

Page 19

142 L699 L829 ) ) X L707 0 ( 141.21 0 L711 142 L149-128 L712 ) X L890 0 ( 141.21 0 L903 142 L149-128 L895 ) 141.1 0 15934 |K-BITS OF *SR20 142 A57 1 X L662 1 |ORION 2 ONLY 06X 576 L1.14 A57 |CLEAR TR XCODE BUFFER 13 A58 1 L1.7) 10 A58 1 L1.13) 116 (A58) 0 4 |)LOOP TO GET POSN |DOC LOADED BIT 15 L252 255 A59 |)0F SR IN PLIST 61 L1.7 A59 A57 16X L252 (L1.13) A58 |MARK DOC LOADED ON SR 120 L1.10 (A58) A60 |)GET MODIFIER FOR STORING 52 A60 3 |)DOCU ON DRUM 141.21Y 0 L299 A60 |COPY DOCU TO DRUM 142 L1.12 8 143 L677 A4 |ENSURE A0 ZERO FOR 150/51 142 L677+66 |COPY 2 150'S ETC TO JOB 142 L1.11 14 14 A40 L1.6 |POINT TO W0 111 L143 -1 A40 |HANG PROG ON CHAIN 141.21 0 L608 |FRIG FLOUT NOT TO 142 L1.15 1 |PRINT MESSAGES 141.21 0 L371 |)FRIG 150/54 TO 142 L1.8 1 |FRIG 150/54 TO ENTER MONITOR PROGRAM 14 L677+62 *SR1 |TR NAME FOR BASIC INPUT 141.1 0 L872 |READ DOWN START 142 L771 L873 14 A41 L677+66 |SET LINK |CLEAR BRANCH POINTER 14 A51 86 L456 A44 |GO TO SPRING 00S L409 L410 0 F9 15 L411 F9 39 L412 +63,63,63,63,,,, |PSEUD0-JOB DIRECTORY +L266,,,, L1.6) +56,,,,,,, |STOP BITS IN W0 TO PREVENT RUNNING +63,63,63,63,,,,1 +L677+66 X L545 33 L1.20) +47.50.41.47.33... |ORIOA ON PRU A MACHINE X L545 35 L1.20) +47.50.41.47.34... |ORIOB ON PRU B MACHINE X L545 33

Page 20

( X L545 35 L1.20) +47.50.41.47.46... |ORION ) +0 +8,,,,16,,,L677-1+V56 F15 24 L677 +63,63,63,63 +8,,,,,, +0 +0 L1.14) +32...... |CLEAR BIT FOR EXTRACODE L1.15) 75 L614 |FRIG JUMP IN FLOUT L1.16) 64 L624 L777 L1.21) 70 L666 2 A25 |FLOUT TEST FOR SELECT (FRIGGED) L614) 14Y A30 15 A31 |ROUND UP TO 16 CHARS 111 A30 15 15 A31 15 |SUPPRESS PUNCH OFF AND GET ODD CHARA? 53 A30 3 |NO OF WORDS TO A30 14 L188 L599 75 L180 |GO TO NEXT CHAR OF FLOUT |PSEUDO-J08 L1.11) 150 *SR1 L677+70 33 |RESERVE CORRECTION TAPE 14 L677+L34.76 L677+L34.151+1 |CHAP 3 OF BASIC 150 20 L677 51 |WITHOUT SETTING PFN 150 17 L677 51 L1.12) |DOC NAME FOR CORRECTION TAPE L1.8) 75 L678 |FRIG FOR 150/54 L1.9) 77 L178 L650 A51 |CORRECT 1ST INSTRUCTION FOR 150/54 L1.10)L659)) +0 |STORE CONSTANT FOR DOCUNAME |PSPUDO-JOB RETURNS TO EMS HERE AFTER CORRECTIONS HAVE BEEN READ L678) 70 (A41) 1 A59 |BACK TO INTERLUDE IF X = 1 L5) 80S L136-1 0 0 |OFF TS |CORE LOCKOUT ON KERNEL 77 V2+2 L224 A37 15 L224 -1 |SWITCH ON FLOUT 115 L143 62 |SUSPEND MIND 86 L153 L242 |TO TS 77 V2 L224 A37 |WAIT FOR FLOUT 114 L710 L1.21 |ACCEPT FLEX AGAIN 141.21 0 L371 |RESTORE 150/54 142 L1.9 1 141.21 0 L287+1 |UNFRIG C-LIST 142 L1.0 1 141.1 0 L604 |RESTORE KERNEL TO CORE 142 A2 14 157 (A15) |LOCKOUT KERNEL |OFF TS 142 L702 |PRESERVE PLIST

Page 21

142 L252 32 141.1 0 L605 142 L744 L606 L1.17) 151 A16 L5 |WAIT FOR CORE LOCKOUT 60 L1.17 A16 |LOOP TIL L/O CLEAR 14 A16 14 A17 L141 |POINT TO PSIND L1.18) 04Y A44 L702 A16 |GET NEXT PLIST WD 60 L1.22 A16 |OMIT FLIN 116 (A16) 07 L252 A44 A45 |DRUM AND CORE PLISTS 75 L1.22 (L170) A45 |J SAME STATE 75 L1.23 (L170) A44 |J TO BE RIGHTED 86 L165 2048 A24 |STOP PSIND, PERINC 25X L867 11 A16 |MARK TO BE WRONGED 26 A44 10 L1.22) 116 (A16) 110 L252 L1.19 A44 |FAIL INF TO PROPER PLIST L1.23) 81 L1.18 32 A16 |ALL PLIST 86 L153 L242 |ON TS 141.1 0 L679 142 L165 L680 141.1 0 L857 142 L858 L861 X L662 1 ( X L770 0 ( 141.1 0 L828-6 142 L699-6 L829+6 ) X L770 0 X 0 0 ( 141.1 0 L828 142 L699 L829 ) ) X L707 0 ( 141.1 0 L711 142 L149-128 L712 ) X L890 0 ( 141.1 0 L903 142 L149-128 L895 ) 141.21 0 L608 |RESTORE FLOUT 142 L1.16 1 14X -2 0 A40 |SET W-2 FOR SPRING 86 L456 A44 |GO TO SPRING CLEAN 00S L409 L410 F9 15 L411

Page 22

F9 39 L412 L1.19) -256 |PLIST FAIL INF MASK L16) +2,36,47,35,53,45,37,46 |DOCUMENT Y L545 33 +52,4,47,50,41,47,33,15 |ORIOA/LOG (PRU) Y L545 35 +52,4,47,50,41,47,34,15 |ORIOB/LOG (PRU) X L545 33 ( X L545 35 +52,4,47,50,41,47,46,15 |ORION/LOG ) +44,47,39,,,,, L17) +7,,,,,,, |DUMMY JOB NAME L37) +7,7,7,7,7,7,7,7 L60) +15,18,31,,,,, |/2, L61) +100000000 +58,58,58,58,58,58,58,26 |RADICES FOR DECIMAL CONVERSION L0) +360000 |RADICES FOR CONVERTING TIME +26,10,33,6,10,33,6,10 |ERRORS L9) 141.1 0 L268 |READ FLAS 142 L136 L273 56 L32 0 A43 86 L134 1.8.A43 A50 75 L27 |GO BACK TO WAIT FOR FLOUT L32) +52,50,57,0,33,39,33,41 |TRY AGAIN +46,,,,,,, L3) +7,2,51,55,41,52,35,40 |SWITCH TO NORMAL MODE +0,52,47,0,46,47,50,45 +33,44,0,45,47,36,37,2 L7) +2,36,33,52,37,,, L8) 75 L9 |USED TO FRIG P.I. ERRORS L13) +51,53,46,63,63,63,60 |SUN +45,47,46,,,,1 |MON +52,53,37,,,,1 |TUE +55,37,36,,,,1 |WED +52,40,53,,,,1 |THU +38,50,41,,,,1 |FRI L1) +51,33,52,,,,+L143 |SAT USED TO FRIG TS 75 L2 |GETS COPIED INTO A2 L14) +42,33,46,,,32, |JAN +38,37,34,,,29,3 |FEB +45,33,50,,,32,3 |MAR +33,48,50,,,31,6 |APR +45,33,57,,,32,1 |MAY +42,53,46,,,31,4 |JUN +42,53,44,,,32,6 |JUL +33,53,39,,,32,2 |AUG +51,37,48,,,31,5 |SEP +47,35,52,,,32, |OCT

Page 23

+46,47,54,,,31,3 |NOV +36,37,35,,,32,5 |DEC +0 L15) +7 L42) +L709,,,,L858-L709 |FRIGGED CLIST 12 A56 L858 A55 L33) 86 L860 L864 |FRIGGED INTCHAP L25) 64 L859-1 262 L703=V2-L702 |LENGTH OF EMS L708)) |DRUM ADDRESS FOR DUMPING 1ST PART OF LABELS |INTERLUDE TO SET UP DATUM POINT FOR PSEUDO-JOB : 1ST MULTIPLE OF 64 AFTER EMS V65=L638 10 A2 60 A3 111 A3 63 150 19 A0 51 J V1-3 A250 3 A250 V0=V3 V65=0 L677) |DATUM POINT 0F CORRECTION TAPE PSEUDO-JOB L63=L677+66 V1=9998 |ENTER 4999 TO END PSEUDO JOB AND ENTER OMP PROPER L657)) 150 (L677+62) 0 31 |RELINQUISH CORRECTIONS 150 0 0 54 |RETURN TO OMP S0 S1 V1=0 V2=L147 |FLOUT MAIN SWITCH L187)) 157 (L34) |OFF T.S. |LOCK OUT 77 L30 L143 A37 |J MIND NOT SUSP 15 L143 -1 |MIND ON L30) 64 L31 L253 |J TAPE LOW 62 L32 L252 A29 |J NOT ACCEPT L31) 87 L180-2-V2 V2 |J L180-2 SET OVR L32) 115 L224 62 |SUSP ME 60 L153 L16 A32 |TO T.S. IF NO MORE 0/P 86 A15 L224+2 |CARRY ON 141.1 0 (L16) |READ FROM DRUM 142 A30 2 |JOB NAME NO OF CHARS 61 L180 A30 |NEXT CHAP IF NOT CYCLE 14 L16 L181 |RESET DRUM MOD 25 A32 9 |CLEAR CYCLE MARK L34) 75 L147 L9 |GO BACK

Page 24

V2=L147 |NEW LINE JOB NAME L9)) 60 L0 L6 A30 |J IF JOB NAME SAME AS LAST 140.22 142 L787 1 |0/P NL L0) 65 L2 A31 |J IF NO PUNCH ON L608)) 64 L2 L777 |J LOG SUPPRESSED 140.22 142 L737 1 |0/P P.ON. 60 L2 L7 A30 |J JOB NAME = P.O.N. JOB NAME 123 L7 A30 0 |COPY TO P.O N.J.N. CLEAR L6 L2)L624) 60 L180 L6 A30 |J SAME JN AS LAST TIME 04 L6 A30 |STORE JOB NAME 124 A30 -48 |COUNT ZEROS AT BOTTOM 31 A30 L8 |X -2/3 L8) 52 A30 -2 |X 1/4 = N-9 CHARS 75 L180 L19 |NEXT CHAP L19 L6=L280 L7=L280-1 L16=L785 V2=L147 L19)) 60 L14 L6 A30 |J IF JOB NAME TO BE PUNCHED 140.22 142YS L6 9 A30 |0/P NONSPACE CHARS L14) 116 -1 A30-L12 |CLEAR A30M L10) 11 A31 (L12) |A31-16 14Y A30 2 A30 |A30M+2 A30U CLEAR 141.1Y 0 (L16) A30 |READ 2 WDS OF 142 L147 2 |MESSAGE 74 L11 16 A31 |J IF NOT LAST FEW 111 L12 31 A31 |INSERT LAST FEW CHARS L11) 140.22 L12) 142 L147 16 |0/P 74 L10 16 A31 |J IF MORE TO 0/P 10 L147+1 |LOCK OUT 75 L180 L27 |NEXT CHAP L27 V2=L147 |ANSWER L1.3)) 14S 15 L150 A16 |DUMMY|K FLIN 75 L1.7 +4,33,46,51,,7,7,7 L1.7) 140.22 142 L1.1 5 |0/P ANS 140.1 2 (L180+1) |C3=2|INPUT 142 L1.1+1 24 |REST OF FIRST BUFF

Page 25

141.1 0 L1.6 142 L1.2 9 |READ INPUT LOOP V2=L147 L44)) 140.22 0 (L34) |0/P UC|LOCK OUT 142 L789 1 L40) 96 (16388) L150 0 |OFF TS |FLEX FAILED 77 L41 L143 A37 |J MIND NOT SUSP 15 L143 -1 |MIND ON L41) 14 A17 L141 |PSIND 86 L165 2048 A24 |STOP L43) 114 L40 L252 0 |L40 TO FLIN PLIST |OFF TS 115 L224 62 |SUSP ME 86 L666 L224+2 |TO START JOB 73S L180 (L252) L698 |NEXT CHAP IF INPUT FINISHED 77 L43 L143 A37 |SUSP ME IF MIND NOT 86 L180 L280 |NEXT CHAP DESTROY P,JOB,NAME V2=L147 L27))L599)) 65Y L28 (L29) L683 |J A31 +VE 140.22 142 L57 1 |PUNCH OFF L28) 0S L146 0 0 |OFF TS 00 L224 L28 |LOCK OUT ON FLEX 86 L153 L224+2 115Y A30 1.55 A31 |A30+1/2 L29) 10 L16 (A30) 76 L180 L182 A31 |J NOT QUESTION L57) 72S L180 (L252) L698 |J INPUT BUFF FULL L26))V2=L147 14S 15 L150 A30 |SET A30|K FLIN 10 L34 L1.3 |NEXT CHAP ANS L1.1) 141.21 0 L349 |WRITE J.N. 142 L280 1 71 L180 0 |J IF ANS L1.) 11 L34 L1.3 |RESTORE L34 L1.2)L1.6)) 14 L1. 2 |NL AT END OF BUFF 140.1 0 (L180+1) |READ FROM FLIN 142 L1.1 32 |4WDS 141.21Y 0 L684-L150 A30 |WRITE TO DRUM 142 L1.1 4 12 84 L180 L1. 2 |J IF NL IN 4TH WD 10 A30 4 |STEP MOD 70 L180-1 L150+16 A30 |CROSS () IF 16 WDS 75 L1.2 L44 |ROUND LOOP V2=L147

Page 26

L151)) 67 L54 4 |J IF NOT FAIL 116.6 |O/P CROSSED ( ) L50) 140.16 |DISENGAGE 142 L51 8 11 L34 L26-L187 |NEXT CHAP L187 10 L51 |LOCK OUT 14 L253 L146 |RESET K FLOUT IN PLIST 86 L180 L280 |DESTROY PJN|TO L187 L52) +13,4,50,37,44,47,33,36 |RELOAD +38,44,56,2,2,2,14 |FLX L51) +6,24,5,25,7,2,14 |LC ( BS ) UC NL P,OFF L54) 63 L180 L252 A29 |J IF ACCEPT 140.22 |0/P RELOAD 142 L52 16 75 L50 L26 |INPUT L26|J L50 C 0 127 |MON OUT V2=L136 |CHAP 1 L267))L272) 34S (L145) 1 A49 |U/C|PLIST WD TO A49 86 L664 L242 |PACK FAIL L742) 141.1 0 L9 |E4 142 L134 12 |READ FAILS L134) 04Y A45 7 A40 |WD 7 53 A45 15 15 A45 63 |MON PER 61 L587 A45 |J IF SET 10 L32 (A50) A44 |CH CH TO FLAS 87 L131-V2 V2 |INT CHAP SET OVR L587) 04Y A45 (A45) A40 |PER RES WD 64 L207 A45 |J IF FAILED 53 A45 17 53 A45 16 A47 |TOP 6 BITS OF TYPE L753) 15 A45 63 A49 |POS IN PLIST 04Y L265 L252 A49 |PLIST WD 15 L265 255 |K BITS 122 L144 L265 4 |K TO TOP 140.13 142 A48 |INTER 76 L71 L37 A48 |J IF OK L1))L2) 141.1 0 L0 142 L2 L3 L71) 120 (L70) (A47) A47 |LOCKOUT|MOD FOR CH CH WORD L38) +0 |OFF TS 00 L143 L144 |TS REG K BITS 86 L153 L242 |TO TS 14 L144 L136 |MONPER ADD 04Y A44 L59 A47 |GET CH CH WORD 10Y L145 L252 A49 |SET MONPER 64 L742 (L145) |J IF ALREADY FAILED L70) 75 L131 L38 |CH CH

Page 27

L64=V1-L1 L59) V3=0 X L647 0 |SKIP NO CP ( 0S L27 L25 0 F 9 15 L134 F 9 39 L24 V3=V3+16...... |CP BIT ) X L916 0 |SKIP NO FC ( 0S L7 L5 0 F 9 15 L134 F 9 39 L62 V3=V3+32..... |FC BIT ) X L658 0 |SKIP NO FP ( 0S L47 L45 0 F 9 15 L134 F 9 39 L49 V3=V3+16..... ) X L648 0 |SKIP NO LP ( 0S L17 L15 0 F 9 15 L134 F 9 39 L24 V3=V3+16... ) 0S L7 L5 0 |SP F 9 15 L134 F 9 39 L62 L37) 14S (-1) (-1) 47 |NOT FAULTS (0,1,2,3,6,7,8,27,32) L32) 0S L268 0 0 |CH CH FLAS F 9 15 L136 F 9 39 L61 L60=V2-L136 V0=L38 +V3 |MASK OF CONNECTED TYPES V0=L32+1 V2=L2 L0)) 141.1 0 L1 142 L2 L69 |RESTORE OVERWRITTEN SECTION X L674 0 70 L2 19 A47 |OK IF IT 53 A45 12 A44 |TYPE 70 V2+2 96+18 A44 |J IF CR 71 V2+2 704+18 A44 |J IF NOT VR 76 L2 L4 A48 115 L32 3 A44 F 9 6 L52 75 L131 L4) 04S (-1) (-1) 63 L3=V2-L2 K69=L3+L64 C 0 4

Page 28

V2=L134 |E4 & FAILS L9)) 65 L19 (L145) |J IF NOT FAIL 75 V2+2 (L170) A49 |J NOT IDLE 53 L29 14 |DIS DOWN 06 (L145) L29 |OR TO PLIST TX & DIS 14 A50 L207 |EXIT TO L207 L19) 52 (L39) 24 A49 |K BITS UP L29) 10S 16384 0 0 |TX DIS DOWN 1 00 L143 A49 |LOCK OUT ON PER L268)) 20S A16 |TAB|BEGIN OF FLAS 86 L153 L242 |TO TS 25 L145 8 |OFF MONPER L39) 87 0 L265 A50 |EXIT V2=L134 |FLEX OUTPUT |A32-> FREE BUFFER AREA, IF AREA NOT LARGE ENOUGH, FIRST WORD IS CLEARED. A32 SET -VE WITH ITS L.S.½ |POINTING TO START OF BUFFER. L53)) 75 L50 80 |80 CHARS ALLOWED L35) 86 L153 L242 |TO TS 141.21 0 (A32) L31) 142 0 1 |CLEAR WD TO MARK CYCLE 10 L31 L181-1 A32 |SET A32 NEG L34) 152 L168 L54 |OFF TS|ON TS TO L55 10 A47 3 A45 |NO OF WDS 12 A32 L181+L573 A48 |HERE TO END 0F BUFF 65 L33 A32 |J NOT CYCLED 11 L785 (A32) A4B L33) 73 L34 (A45) A48 |J IF ROOM 64 L35 L34 A32 |J NOT CYCLED|SWITCH 115 L143 62 |SUSP MIND L51) 77 L36 L224 A37 |J IF FLOUT NOT SUSP 15 L224 -1 |FLOUT ON L36) 71 L153 L50 A45 |J IF IN MON MODE L55) 114Y L30+1 3 A40 |SWAP JN 114 L30+2 A46 |SWAP NO OF CHARS 70 L134-1 L50 A45 |J IF FINISHED 10 L30+2 1 |+1 CHAR FOR N/L

Page 29

141.21 0 (A32) |WRITE MESS TO DRUM 142 L6-2 (A45) 10 A32 (A45) |STEP MOD L54) 86S L51 L55 A45 |MARK FIN,|LINK FOR 152; L50) 116 0 L7-L53 |READ PART OF 7 TRACK L30) 141.1 0 L53 |RESTORE THE ABOVE 142 L134 L30-L134 86 (L0) (L50) A49 |SET A49|LOCK-OUT|J L34/L134 L61=V1-L268 L52) 77 L56 L58 A48 |J IF DIS 140.16 142 L56) 141.1Y 0 L240 A49 |READ GEOG 142 L57+1 1 21 L57+1 8 |* 86 L134 96,+L57 A50 |0/P ENGAGE GEOG * 86 L135 A50 |NL 0/P L821) 15 (L57-1) 12 A41 |PUSH DOWN STOP BIT L58) 137 (-1) (-1) 63 |OFF TS|NOT DIS 56 A40 0 A17 |A17->W0|A18 STOP BIT 86 L166 A24 |STOP WITH PUSH DOWN BIT 52X 4 24 A40 |W4 UP 10X 4 (L265) A40 |+K BITS 121X 4 24 A40 |BACK AGAIN 14 L242 L162 |LINK = END OF JOB 65Y L153 -2 A40 |TS IF IN PQ 04 A1 A40 |A1 POINTS TO JOB 83 A6 L763 A16 |A16=3 INSERT IN PQ L57) +4,37,46,39,33,39,37, |ENGAGE L822=V2-L136 V2=L134 |SEVEN TRACK L853)) L7))L461) 116 (A50) 104 |NO OF CHARS ALLOWED 15 -1 -105 A45 |Y OF 86 53 A45 9 A46 |N 15 A45 511 |CHAR OR ADD 121 A45 6 A47 |CHAR TO TOP A47 L8) 65YS L1 -1 A50 |J IF LITERAL 122Y A47 0 A45 |PICK UP CHAR 115 A45 8 |STEP MOD L1) 53 A47 42 A48 |TO BOTTOM A48 L831) 70 L3 7 A48 |IGNORE DUMMY 120 L2 (A48) A48 |LOOK UP DENSE NO FOR L/C L0) 62 L4+1 L134 A48 |J NOT LC CHAR

Page 30

115 A48 6.20.7 A47 |7......6.CH 64Y L4 L8 A48 |J = ( ) 17S A47 10 |* 30 | 23 L4) 121 A47 12 |UP TO TOP 123X 0 A47 A49 |INSERT 51 A48 43 |A48=0 OR -16 115Y A49 24 A48 |STEP 1 OR 3 CHARS L3) 83 L8 A46 |COUNT 87 0 L134 A50 |EXIT L2) +17,63,48,,,,, L135) 123X 0 V2+1 A49 |INSERT NL 11S A49 L6 A47 |SUBT BEGIN 0F BUFF 121 A47 -3 A46 |A46 = NO OF CHARS 140.22 142Y L6 1 A46 |0/P 1 EXTRA FOR NL L5) 86 L3+1 A49 |RESET A49 |EXIT L6) +30,23,63,56,,,8, |L/C CHARS L62=V2-L134 |LENGTH OF 7 TR |CARDS AND LP L854)) V2=L648+L647 X V2 0 ( |SKIP IF NO CP OR LP V2=L134 L17))L27)) 116 (A50) 118 15 -1 -119 A45 |Y OF 86 53 A45 9 A46 |NO OF CHAS 15 A45 511 |CHAR OR ADD 121 A45 6 A47 |CHAR TO TOP A47 L11) 65Y L10 -1 A50 |J IF LITERAL 122Y A47 0 A45 |PICK UP CHAR, 115 A45 8 |STEP MOD L10) 53 A47 42 A48 |CHAR TO A48M 70 L13 7 A48 |IGNORE DUMMY 123X 0 A47 A49 |INSERT 115 A49 8 |STEP COUNT L13) 83 L11 A46 |COUNT L18) 87 0 A50 |EXIT L21)X L648 1 X 0 0 +5,7,51,56,,,,59 |ICT COMM X L648 2 X 0 0 +1,7,51,56,,,8,62 |ICT GOTH X L648 3 X 0 0 +19,6,16,56,,14,,61 |ICT SCIENT X L648 4 X 0 0 +1,6,,8,,,,61 |ANALEX X L648 5

Page 31

X 0 0 +3,6,57,24,,12,,28 |ICT STOCK X L648 6 X 0 0 +1,6,,8,,,,26 |ANALEX SWEDISH L14) +2,1,,,,,, |NL 1*0 L12) 123X 0 L14 A49 |NL OR SP 140.21 142Y L16 (L63) L683 |0/P 15 OR 10 WDS L15) 04 L16 L21 |DUMMY CHARS TO L16 143 L16+1 9 |CLEAR BUFF FOR CARDS L63) 116 L18-L12 14 |J TO 87 86 L12 A35 |J L12 A35 IS A DUMP L16) X L647 0 ( +23,,48,8,,2,,61 |DUMMY CHARS ON CARDS L25) 123 L21 L16 0 |COPY L16 CLEAR L14 83 L15 L12+2 |10WDS IN 142 ) ) L24=V2-L134 G16=L136 V3=L16+9-L136 K273=V3+L60+L61 |FIVE TRACK L855)) X L658 0 ( V2=L134 L47)) 116 (A50) 69 15 -1 -70 A45 |Y OF 86 53 A45 9 A46 15 A45 511 L44) 121 A45 6 A47 65Y L48 -1 A50 122Y A47 0 A45 115 A45 8 L48) 53 A47 42 A48 |CHAR TO BOTTOM 70 L43 7 A48 |J DUMMY 72 L41 33 A48 |J IF NOT LS CHAR 65 L66 L65 |J IF IN F.S. L42) 123X 0 A47 A49 |INSERT 115 A49 8 |STEP L43) 83 L44 A46 |COUNT L40) 87 0 A50 |EXIT L41) 65 L68 L65 |J IF IN F.S. L66) 123X 0 L65 A49 |INSERT SHIFT 07 L65 L67 |CHANGE SHIFT 115 A49 8 |CHANGE MOD

Page 32

L68) 71 L42 1 |J IF NOT FROM L135 L67) 11 A49 L46 A45 82 L41 L68 |L135 141.1 0 L20 |READ 2ND CHAP L65) 142S L26 L28 L45) 86 L40 A49 |RESET MOD L46) +19,6,50,8,,14,,14 |DUMMY CHARS 5 TR L49=V2-L134 V2=0 |FOREWARD REF IN V2 L20)) L26=V2+L22 |TABLE +15,22,02,10,02,02,30,08 |CR LF = SP * +02,01,02,05,09,13,04,12 | > /= => >= / ( ) +24,25,20,21,29,28,17,16 | 2 3 4 5 6 7 0 1 +02,02,11,27,26,23,18,19 | LS + - , 8 9 +24,08,20,04,12,28,14,16 | B C D E F G , A +10,26,06,22,30,14,18,02 | J K L M N 0 H I +09,25,05,21,29,13,17,01 | R S T U V W P Q +27,02,07,15,00,02,03,19 | Z ? £ FS X Y L23=V2+L22 121 (A47) -6 15 (A47) 63. A48 |MASK OFF CHAR 121 A48 9 |PREPARE 122Y A48 L26 A48 |LOOK UP 111 (A47) 63. A48 |PUT CHAR BACK 115 A47 8 73 L23 (A47) A49 |J NOT BEYOND END OF LINE 123X 0 L26 A49 |INSERT CR LF 121 A45 -3 |NO OF CHARS 140.28 |0/P 142Y L46 2 A45 |+ 2 CHARS FOR NL 141.1 0 L20-L28-1 |RESTORE CHAP 1 142 L26 L28 L22=L45-V2 86 L23 A47 |SET A47 L28=V2 |LENGTH FP 2 ) C 0 127 V2=L272+L273 |150'S 13&14 L316))L317)L0) 82 L1 (L182 A60 |J IF Y WAS 0|Y NOW >3 70 L1 3 A60 |J IF Y WAS 4 74 L179 3 A60 |IMPOPER Y > 4 141.1 0 L267 |READ MONOUT CHAP 1 142 L272 L273 86 L134 A50 |ENTER IT 70 V2+2 (L272) |ALTER L4 IF HERE IS 04 L4 (A49) |A MONITORING PERIPHAL 66 L7 4 |J IF MONPER SET

Page 33

60 L0 A60 |J IF Y WAS 1 80 L40 3 A60 |J IF Y =3|RESTORE Y L221) 86 L134 88,+L3 A50 |0/P NO MONPER, 86 L135 A50 L185=L318-L317 65 L179 L205 |IMPOP IF FROM PRI DIR 21 (A40) 8 |HALT 75 L162 |EXIT END OF J08 L3) +4,46,47,,45,47,46,31 +48,37,50,2,,,, |NO MON. PER L40) 86 L771 A49 A44 |GO TO 150 OVR CHAP 0S L779 L780 0 F 9 15 L781 F 9 39 L782 75 L205 |FINISHED L318) 14 15 3 A50 64Y L784 2 A40 |J IF WRITE WITH OVR 70 L0 13 A61 |J IF 150/13 L1) 141.1 0 L268 |READ FLAS 142 L136 L273 L7) 15S L461 -1 A62 86 L134 8,+L272 A50 |0/P TAB OR DUMMY 71 L2 3 A60 |J IF Y WAS NOT 4 65 L2 L852 |J IF ENG 200 115 A49 4 |PUNCH ON L2) 04 A54 A59 |X TO BE CHECKED L6) 15 L4 63 A63 |ERROR CHAR 111 L4 63 |CLEAR IT IN L4 L9) 77 L8 L7 A54 |J NOT NEW WD 86 L175 A44 |RES CHECK L8) 122Y A56 0 A54 |PICK UP CHAR 115 A54 8 |STEP 111 A56 1 |STOP CARRY ROUND 8 ERS 115 A56 6 A52 |CHAR+6(MOD 64) 53 A52 42 |IN A52M 52 L4 (A52) A53 |MASK UP TO A53 70 L9 13 A52 |IGNORE DUMMY 70 L9 5 A52 |IGNORE ERASE 70 L16 8 A52 |J IF N/L 60 L12 A63 |J 7TR OR FLEX 65 L11 A53 |J IF ON DEVICE 122 A56 A63 7 |ERROR CHAR L11) 86 L134 8,A56 A50 |0/P L10) 83 L9 A62 |COUNT CHARS L16) 61 L20 A63 |J NOT SP OR FLEX 10 A61 L22-13 A54 |- > . OR ? 86 L8 L25 |0/P MARK NL 71 L20 14 A61 |J NOT 150/14 123X 0 L789 A49 |UC 115 A49 10 | 1 CHAR + ? 06 (A40) L23 |SUSP 5 L807) 121 A36 1 122Y A54 L30 A36 |LOOK UP ANS ADD 112 A60 8 A54 |STORE NEW WD 122X L30 A60 A36 |INSERT BACK 65 L24 L205 |J IF DIR 141.21 0 L31

Page 34

142 L30 8 |WRITE TO DRUM L20) 86 L135 A50 |0/P 86 L742 A50 |LOCK OUT L21) 75 L205 61,32 |? LC L12) 70 L13 6 A52 |J IF SPACE 65 L14 A53 |J IF U/C 15 A52 31 A56 |MASK 5 BITS 121 A56 3 |PREPARE 122Y A56 L22 A56 |LOOK UP L14) 07 A53 A59 A55 |NE SHIFT 65 L13 A55 |J IF SAME AS LAST 51 A53 5 A59 |A59 C0 0 OR -1 115 A59 7 A53 |6 OR 7 123X 0 A53 A49 |INSERT 115 A49 8 |STEP L13) 64 L26 L25 |J NOT AT NL 72 (L25) 3 A60 |J IF SP L26) 123X 0 A56 A49 |INSERT CHAR 115 A49 8 75 (L25) L24) 05 (A40) L318 A42 |SUSP 85 L179 A42 5 |IMPOP NOT AWAITING ANS 04Y A42 5 A40 05 A42 L682 |RES 53 A42 24 A43 11Y A43 (L182 A60 |UPPER = LENGTH+1 86 L175 A44 |RES CHECK 142 (A54 142 L136 (A60) |COPY ANS AWAY 110 (A40) L23 |REMOVE SUSP STYLE L25) 75 L205 L10 L30)L31)) V0=V2+8 L22) +31,26,27,28,29,00,31,30 |,|%£?& ,* +61,17,18,21,16,00,24,25 |?|[]=' () +19,20,15,23,22,,, |<>:|? L23) +5.... |SUSP L4) +30,23,63,56,,,8, |L/C CHARS FLEX C 0 63 L319=V1-L316 V2=0 |FOREWARD REF IN T A L435))L436=L99 11 (L126) L252 |REL POS IN PLIST L10=V2+L99 -1.31... |OFF TS 14 A63 80 |CODE FOR FLEX 60 L20 A62 |J IF FLEX 25X L252 11 A62 |REMOVE FAIL BIT L13=V2+L99 04Y A43 L252 A62 |PICK UP PLIST WD 01 A43 L10 |A43U+1 IF NO DOC 146 L70 A43 A63 73 L162+1 L6 A63 |J IF NOT ALLOWED TYPE 53 (A63) 7 A45 |DRUM ADDRESS 15 (A63) 127 A63 |DEVICE CODE 14 L265 (A43) |SET MIND +8 140.13 0 (L265) |INTERR.

Page 35

L12=L99+V2 142 A44 (0) 60 |D25-D29 77 L162+1 L880 A44 |J IF DIS 14 L144 L111 |RESTART ADD 04Y L66 3 A40 |JOB NAME TO L66 L20=V2+L99 10Y L145 L252 A62 |SET MONPER L421=V2+L99 57 (L126) 72 A56 |A56 0|W2 DOWN 152 L168 L14 |ON TS L15|0FF TS 15 A57 63 A62 |REL POS IN PLIST L14=V2+L99 75S L13 L15 L15=V2+L99 77 L80 L80 A63 |J SR OR FLX 141.1Y 0 -32.. A45 |READ GNC FROM DRUM 142 L229-1 L71 L80=V2+L99 86 L229 -73 A41 |READ LINE |NOT 64 & NOT 8 14 A40 L141 |PSIND 86S L261 L262 A54 |READ ALFA NUM 67 L1 10 A52 |J IF CHARS 70 L81 2 A43 |J CLEAR LINE 114 L66 A52 A57 |USE P J N L1=V2+L99 04 L66 A52 |STORE JOB NAME L4=V2+L99 117 0 3 60 L3 (A40) A52 |J IF ED JN 15 (A40) -1 A40 |STEP DOWN CHAIN 61 L4 A40 |J IF NOT END OF Q 60 L3 A62 |J IF FLEX 67 L8 10 A57 |J IF JN READ L3=V2+L99 86S L260 L263 A54 |READ ALFA 53 A52 6 A55 |DOWN 1 CHAR 146 L68 A55 A55 |SEARCH DIRS 77 L5 (A55) A63 |J NOT ALLOWED 121 (A55) 12 A56 |DIR ROUND 2 CH 15 A56 63 A59 |CODE CHAR 111 A56 63 |REMOVE IT 72 L6 L69 A55 |J BLOGGS DIR 14 A40 L141 |SET ORION L21=V2+L99 86 L456 L168 A44 |CH CH 0S L358 L82 0 F 9 15 L83 F 9 39 L84 L70=V2+L99 +19,36,,1,,,,24 |SR +6,36,,1,,,,18 |FR F 17 7 L352 X L160 0 |SKIP NO CR ( +3,36,,1,,,,20 |CR F 17 7 L351 +22,36,,1,,,,17 |VR F 17 7 L351 ) X L674 0 |SKIP NO IT ( +9,40,,1,,,,20 |IT F 17 7 L646 ) X L917 0 |SKIP NO IL ( +9,24,,1,,,,48 |IL

Page 36

F 17 7 L920 ) L6=V2+L99 65Y L6+2 6 A40 |J NOT PSIND OR 0 83 L235 L101 |ERROR FIELD 1 86 L456 A44 |CH CH BLOGGS 0S L357 L85 0 |CH CH TO BLOGGS F 9 15 L87 F 9 39 L78 L5=V2+L99 60 L235 A62 |ERROR ON FLEX 67 L235 10 A57 |ERROR IF PJN NOT USED L8=V2+L99 86 L456 A44 |CH CH JDR 0S L450 L451 0 F 9 15 L452 F 9 39 L453 |DIRECTIVES PRECEDED BY JOB NAME |LS 7BITS = 1,31 IF NOT DATA LINK, = 1,16 IF FLX ONLY L119)) L68=V2+L99 +50,53,46,2,,1,31 |RUN F 6 12 L121 +40,33,44,2,,1,31 |HAL F 6 12 L121 +33,34,47,2,,1,31 |ABO F 6 12 L121 +33,34,33,2,,1,16 |ABA F 6 12 L121 +37,46,52,4,,1,31 |ENT F 6 12 L122+1 +45,47,46,7,,1,31 |MON F 6 12 L123 +47,53,52,3,,1,31 |OUT F 6 12 L123 +33,44,44,6,,1,16 |ALL F 6 12 L123 +36,41,50,4,,1,31 |DIR F 6 12 L122 +48,50,41,5,,1,31 |PRI F 6 12 L120 +50,37,44,3,,1,31 |REL F 6 12 L123 +33,46,51,8,0,1,31 |ANS F 6 12 L124 +52,41,45,4,,1,31 |TIM F 6 12 L122 L69=V2+L99 +50,41,39,2,,1,16 |RIG F 6 12 L568 +55,50,47,2,,1,16 |WRO F 6 12 L569 +53,46,44,2,,1,16 |UNL F 6 12 L570 +51,37,50,4,,1,16 |SER +54,47,41,5,,1,16 |VOI +48,37,50,6,,1,16 |PER +50,37,45,3,3,1,16 |REM +51,48,33,3,2,1,16 |SPA

Page 37

+46,33,45,3,1,1,16 |NAM +37,46,39,7,1,1,16 |ENG L726))L835=V2+L99 |INPUT SUBROUTINES FFOR EMS L86=V2+L99 0S L435 0 0 |SKEL CH CH F 9 15 L436 F 9 39 V2 L72=V2+L99 +8,8,8,11,3,3,2,16 |DOC COM/ 85 L423 A52 |LD+|ERROR WD FULL 87X L51-2 A39 A39 |SP ER|J L51(+2) 85 L58 A52 29 ||/NL|J NO + IN WD 74 L423 63 A52 |J NOT BY ITSELF 74 L235 8 A55 |ERROR IF IN REM OR FIRST TWO L58=V2+L99 70 L53 15 A43 |J IF / 70Y L235 2 A55 |ERROR IF NO / L22=V2+L99 75Y L459 6 |TERM L798=V2+L99 13 A55 2 |-2 L52=V2+L99 86 L261 L72 A54 |READ COM 04X L136+3 A52 A55 |COPY COMP AWAY 81 L52 6 A55 |COUNT TO 8 CHARS 87 0 A57 |EXIT DOC L73=V2+L99 116 0 30 |READ , L74=V2+L99 70 (A51) 1 A43 |READ * L424=V2+L99 81 L423 L100 |ERROR 3 L79=V2+L99 +1....-16 |2T024-16 L262=V2+L99 +16,,,16,7,7,7,40 |ALFA NUM L263=V2+L99 +8,,,48,6,6,6,32 |ALFA 64 L458 A52 |L|IGNORE IF FULL L51=V2+L99 52 A52 6 |WD UP 1 CHAR L45=V2+L99 00S A52 A43 |ADD CHAR L100=V2+L99 75 L458 |SP ER|IGNORE L455=V2+L99 +24,27,,40,3,3,3,56 85 L459 A52 1 |J 8 CHARS 124 A52 A7 A53 |LEFT JUST L459=V2+L99 86 L44 A36 |TERMINATE REPROCESS CHAR L879=V2+L99 -2..3.25 L830=V2+L99 34 A52 10 |TIMES 10 *8 10Y A52 (L79) A43 |+DIGIT 64 L235 L79 A52 |ERROR IF NO TOO BIG L101=V2+L99 75 L458 1 |ER|NEXT CHAR 86 (A51) A41 ||SKIP TO NL 71 (A51) 2 A43 L42=V2+L99 04 A42 A51 |STORE GNC 86 (A54) A51 |EXIT READ 04 A51 A42 |PULL UP GNC 81 (A41) L101 |EXIT COUNT FIELDS L53=V2+L99 81 (A54) L101 |CHARACTER CATEGORIES |0 - %£?& 8 - / |1 - ERROR 9 - DIGITS 0-9 |2 - SPACE 10 - 1011 ½ |3 - * 11 - + |4 - NEWLINE 12 - - |5 - []='DUMMY()<>: 13 - .

Page 38

|6 - | 14 - , |7 - ERROR 15 - LETTERS A-Z L43=V2+L99 +7,48,1,56,,39,48, |120 MASK L260=V2+L99 70 L235 2 A43 |ERROR IF ALREADY NL L261=V2+L99 04YS A36 -1 A54 |86 51 A36 47 A52 |A52=NOT D0?ALT L458=V2+L99 86 (A51) A41 |GNC 116 20 5 L44=V2+L99 14Y A22 0 A43 |PRESERVE CHAR FOR VOID 15 A42 63 A39 |MASK DOWN CHAR+5 120 L43 (A39 A39 |CATAGORISE 34 A39 3 53 (A36) (A39) A39 |SHIFT SWITCH 3 TIMES CAT 15 A39 7 71XY (A36) 0 A39 |SWITCH IF ALLOWEX L423=V2+L99 81 L235 L100 |ERROR IN CHAR L111=V2+L99 76 L666 L103 A25 |IGNORE FURTHER SELECTS 06 A25 L45 |OR IN TX 86 L664 L242 |PACK FAIL L81=V2+L99 65Y L80 L252 A62 |J IF BLANK LINE ON READER L67=V2+L99 14 A41 L162 |LINK OF CLOSE L33=V2+L99 25 L145 8 |OFF MONPER 71 L30 24 A63 |J NOT SR L127=V2+L99 70 L235 1 |ERROR IF L/C L30=V2+L99 71 L34 80 A63 |EXIT IF NOT FLEX 14 L252 L150 |FLIN PLIST 77 L34 L224 A37 |J FLOUT NOT SUSP 64 L36 (L224+2) |J NOT ON SIGNAL 04 L280 L66 |PJN TO FLOUT L36=V2+L99 15 L224 -1 |FLOUT ON L34=V2+L99 87 0 A41 |EXIT CLOSE L454=V2+L99 70 L33 2 A43 |CLOSE|J IF AT NL L235=V2+L99 L422=V2+L99 86 L456 A44 |CH CH TO ERRORS 0S L90 L91 0 F 9 15 L92 F 9 39 L93 L349))L99=A469-V2 V2=A469 |ENSURE L64 IS ODD FOR L.I. ROUTINE C 0 63 L66) +0 |PRES JOB NAME L183) 02XYS (-1) (-1) -1 |IGNORE MASK 7 TR FAILS L229) 143 L64 16 |CLEAR L.I. 141.1 0 L94 |READ L.I./ 142 L96 L97 86 L95 A51 |SET GNC ENTRY 15 (A48) 63 A43 |MASK CHAR 53 (A48) 6 |NEXT CHAR IN POS, 115 A48 8 |STEP MOD L126) 87 0 A62 A41 |EXIT GNC L64) |THIS ADDRESS MUST BE ODD FOR |L.I. ROUTINE

Page 39

L437=V1-L435 L823=V1-L726 |LENGTH OF SUBS L510)) V2=L136 |L.I. L94))L96)L1) 111 L2 1 A43 |INSERT CASE L10) 70 L41 L42+16 A50 |J IF AT END OF BUFFER L0) 122Y A43 0 A50 |LOOK UP CHAR 53 A43 42 |TO BOTTOM 115 A50 8 17 A43 32 A42 |SWAP ZONES 0 1 120 L20 (A42) A42 |CATAGORIZE 65 L10 A42 |J NOT PRINTING 72 L3 6 A42 |J LETT ER SP 72 L12 6 A43 |J NL TAB BS 72 L1 8 A43 |J UC LC 71 L3 (L127) |J IN U/C 80 L3 32 A43 |ADD 1 J IF COMMA 121 A43 3 122Y A43 L21-2 A43 |LOOK UP LC CHARS 15 A43 63 L3) 15 (A48) 63 A44 |CHAR BEING OVERPRINTED 72 L4 (A44) A43 |J IF > NEW CHAR L6) 111 (A48) 63 A43 |INSERT NEW CHAR 114 A44 A43 |SWAP|A43 NOW SMALLER L4) 70 L5 0 A43 |J IF SMALLER IS SP 73 L5 63 A44 |J IF LARGER IS ER OR MORE 70 L5 (A44) A43 |J IF EQUAL 77 L7 L8 A44 |J IF NOT 8 9 74 L9 6 A43 |J IF 7 8 L7) 117 0 7 |14 FOR ERRORS L9) 14 A43 1.7 |7 FOR (BS) L8) 75 L6 9 L20) +32,,,,7,37,3,62 |DUMMYS L21) +06,03,04,10,11,05,14,12 |'[]<>=?: +08,09,59,60,61,62,01,13 |()%£?&*; L12) 71 L13 5 A43 |J NOT BS L11) 115 A48 56 |STEP 7 CHARS 121X -1 -6 A48 |MOVE BACK 1 CHAR 83 L10 L64-1 A48 |J NOT AT BEGIN OF LINE L5) 121 (A48) 6 |MOVE 1 CHAR 115 A48 8 |STEP 1 CHAR 71 L10 L64+14 A48 |J NOT END OF LINE L13) 122XY 0 0 A48 |SET LINE RIGHT 115 A48 3.8 |TAB AT LEAST 2 CHARS L14) 15 A48 -2 |16 CHAR TABS 82 L14 L64+16 A48 |J IF AT END OF LINE 71 L10 2 A43 |J NOT NL

Page 40

14 L64+14 2 |SET NL 14 A48 L64+14 L30) 82 L32 L64-1 A48 |J AT BEGIN OF LINE 85 L30 (A48) 7 |J IF(BS ) 14 L66 |CLEAR P J N 14X 1 2 A48 |NL L32) 10 L86 (A41) A44 |RETURN CH CH 81 L131 A48 |EXIT FORM L.I.|A48 -> L.I. L95) 14 A48 L64 |BEGIN OF L.I. L41) 60 L40 A62 |J IF FLEX 140.1 142 L42 128 |FILL BUFFER L40) 86 L0 A50 |SET MOD L42) L2=L127 L684)) V0=V2+16 |DRUM BUFF FOR FLIN L97=V1-L94 C 0 63 V2=L103 |FIVE TRACK L352)) 12XYS (-1) (-1) -1 |IGNORE MASK 141.1 0 L796 |READ TABLE FROM BASIC 142 L7 8 116 L5-L0 |J L5 L3) 86 L0 A51 |A51 ENTRY! DO SHIFT L0) 140.8 142 A43 1 |READ 1 CHAR 112 A43 10 A51 |INSERT SHIFT 121 A43 -3 |PREPARE FOR LOOK UP 122Y A43 L7 A43 |LOOK UP INTERNAL CODE 15 A43 63 80 L2 L1+1 A50 |J IF LAST WAS C/R 70 L3 6 A43 |J IF F/S 71 L4 7 A43 |J IF NOT L/S 87 L3-V2 V2 |SET OVR J L3 L4) 71 L1 3 A43 |J NOT C/R 86 L0 A50 |MARK C/R L1) 71 (A41) 2 A43 |EXIT IF NOT L/F 71 L423 L7+1 A50 |ERROR IF NOT AT BEGIN 0F LINE L2) 71 L423 2 A43 |ERROR IF NOT L/F L5) 86 (A41) A50 |EXIT MARK BEGIN OF LINE L7)V3) |V3 = MAX GNC C 0 63

Page 41

L351)) X L160 0 |SKIP NO CR ( V2=L103 |CARD READERS 06XYS (-1) (-1) -1 140.1 142 L44 (A63) |READ 1 CARD 17 20 WDS 141.1 0 L673 |READ CODE FROM BASIC 142 L136 24 |READ TABLE FRON BASIC 14Y A48 L44-1 A63 |LAST WD OF CARD 14X 1 2 A48 |NL L4) 104 (A48) L136 |CONVERT 4 CHARS 121 (A48) 18 |ROUND 3 CHARS 83 L4 L44-1 A48 |COUNT TO BEGIN OF CARD 86 L5 A51 |ENTRY PT 122Y A43 0 A48 |PICK UP CHAR 15 A43 63 115 A48 8 |STEP 1 CHAR 65 L6 A48 |J NOT C4 L5) 14Y A48 1 A48 |NEXT WD L6) 87 0 A41 |EXIT L44) W3=V3+L44 |MAX GNC C 0 63 ) L646)) X L674 0 |SKIP NO IT ( V2=L103 +0 |ALL FAILS 76 L67 L1 A44 |J IF DIS, 143 L0 11 |CLEAR BUFF 140.1 142 L0 10 |READ 10 WDS 57 L449 92 A48 |A48=0|A49=8 86 L6 A51 |EXIT SETTING GNC 122Y A43 L8 A48 |CHAR FROM BUFF 121 A43 -3 |TOP CHAR FOR LOOK-UP 111 A43 -8 |PREPARE FOR LOOK UP 122Y A43 L2 A43 |GET INTERNAL CODE 15 A43 63 70 L3 15 A43 |J IF / NL 85 L4 A52 |J IF NO ROOM IN WD L3) 115 A48 8 |STEP MOD 71 L6 15 A43 |J NOT /

Page 42

L4) 14 A43 15 |SET / 83 L6 A49 |COUNT UP TO 8 14 A43 2 |SET NL L6) 87 0 A41 |EXIT L1) -1...-1 |NOT ENGAGED MASK L2) +17,18,19,20,21,22,23,15 |1234567NL +25,16,00,00,00,00,00,24 |90 8 +15,51,52,53,54,55,56,00 |/STUVWX +58,00,00,00,00,00,00,57 |Z Y +42,43,44,45,46,47,48,00 |JKLMNOP +50,00,00,00,00,00,00,49 |R Q +33,34,35,36,37,38,39,00 |ABCDEFG +41,00,31,00,00,00,00,40 |I , H L8) +52,38,51,13,13,13,13,13 |DOC L0) W3=V3+L0 C 0 63 ) L920)) X L917 0 |SKIP NO IL ( V2=L103 |DATA LINK INPUT 02XYS (-1) (-1) -1 |IGNORE MASK IL FAILS 83 L67 L3 |CLOSE IF CLEAR LINE 143 L1 15 |CLEAR BUFFER 140.1 142 L1 15 |READ L3) 14 A48 1 |* |CLEAR POINTER 86 L2 A51 |EXIT SETTING GNC L0) 70 L423 15 A48 |ERROR IF END OF BUFFER 122Y A43 L1 A48 53 A43 42 |GET CHA 115 A48 8 |STEP CHMOD 70 L0 7 A43 |IGNORE DUMMY L2) 87 0 A41 |EXIT L1) W3=V3+L1 C 0 63 ) L71=V3-L103 V2=0 L357)) |BLOGGS L87=V2+L98

Page 43

L41=V2+L98 85 L40 A56 6 |J NOT ALL 86S L260 L262 A54 |GEOG 53 A52 24 L3=V2+L98 00 A60 A52 |ADD SECOND ADD 75 L40 L24=V2+L98 +40,7,,,,,7,56 |READ * L12=V2+L98 +56,,,,,,4,55 |READ PRINT STYLES L0=V2+L98 +8,,,16,,,3,40 |5BIT LETTS 74 L458 1023 A52 |IGNORE AFTER 3 LETTS 52 A52 5 71 L459 1 A39 |TERMINATE IF NOT LETTER 111 A52 31 A43 |INSERT LETT 75 L458 |NEXT CHAR 11 A43 31 A39 |A=2.... 120 L10 (A39) A39 |LOOK UP 64 L423 A39 |ERROR IF NOT AEFGIPZ? 53 L11 (A39) A39 06 A61 A39 |OR INTO W2 75 L458 |NEXT L10=V2+L98 +24,58,1,,20,32,, |AEFGIPXZ? L23=V2+L98 70 L20 33 A43 |J IF A 17 L21 (L157) |NE TY 64 L260 (A54) |J NO SIG 86+1 06 A61 L11 |DRUM BIT 71 L423 36 A43 |ERROR IF NOT D L20=V2+L98 86 (A51) A41 |READ A/D L21=V2+L98 75XY L260 |READ NUM |TY L85=V2+L98 57 A62 24 A60 |A60=0|A61U=READER 60Y L235 6 A40 |J IF ABOLISHING 11 A55 L68 A54 |DIRECTIVE NO, 52 A54 15 00 A61 A54 |INF FOR INSERTING IN W2 75X V2+1+L98 0 A59 L29)L123=V2-L29 86 L74 A41 |READ * 86 L260 L0 A54 |READ LETTS 04 A60 A52 60 L1 A22 |J IF ENDE ON SP L122=V2-L29 L28=V2+L98 116 L261-L260 |OPTIONALLY 86 L260 L455 A54 |READ NUMBER 00 A60 A52 |COPY ENT NO|FORM PER NAME 84 L40 A56 5 |J PRI L1=V2+L98 52 A60 24 85 L41 A56 7 |J NOT MON 86 L23 L455 A54 |READ N OR AN 10Y A60 (L21) A52 |ADD TO A60 MARKING A 75 L40 L120=V2-L29 86 L260 L12 A54 |READ PRINT STYLES 86 L23 L455 A54 |A/D NUM 52S A52 24 A60 04 A59 A52 70 L32 2 A43 |J IF 1 ADD 71 L28 30 A43 |J NOT ADD -ADD

Page 44

86 L260 L24 A54 |- 86 L23 L455 A54 |A/D NUM 70S L235 (L21) |J A/D DONT MATCH L32=V2+L98 01 A52 A59 |NO OF WDS -1 81 L3 (A52 A52 |+1 J L3 L18=V2+L98 60 L67 A62 |J IF FLEX 86 L229 A41 |READ LINE 86 L261 L879 A54 |IGNORE SP, ETC. L124=V2-L29 70 L18 2 A43 |J IF CLEAR ANS 143 L136 10 L4=V2+L98 82 L2 L38 A36 |J IF CHAR AFTER SPACE 86 L458 A36 +36,36,36,36,33,36,33,60 |SP | 1|ER 7 0TH 4 86 L261 L879 A54 |IGNORE SP, ETC, L38=V2+L98 86 L458 A36 +18,18,18,18,16,17,16,2 |NL 1 OTH 2 L2=V2+L98 115X L136 (A43) A60 |INSERT CHAR L6=V2+L98 121X L136 -6 A60 |STEP CHAR 115 A60 8 70 L235 10 A60 |J MORE THAN 10 WDS 71 L4 2 A43 |J NOT NL 77 L6 L261 A60 |J NOT END OF WD L121=V2-L29 L40=V2+L98 86 L454 A41 |CLOSE 14 A55 L25 |LINK OF REMOVE DIRS L790))L792=V2+L98 L791=V2+L98 120 (A40) 4 A38 |STOPPING STYLE 71 (A55) 3 A38 |J NOT MON JOB 05 (A40) L60 A38 |DIR BITS 60 (A55) A38 |J NONE 110 (A40) L60 |REM DIRS 11 A29 1 |ADJUST A29 L51=V2+L98 86S L456 L161 A44 |TO PRINT DIR LOST 0S L90 L92 0 F 9 15 L92 F 9 39 L93 L60=V2+L98 +18..... |DIR BITS L793=V1-L790 |LENGTH OF LOSE DIR L25=V2+L98 04Y A36 7 A40 |W7 53 A36 39 |PROG NO TO BOTTOM 15 A36 15 |PROG NO 141.21Y 0 L746 A36 |WRITE ADDS TO DRUM 142 A60 1 |IN TABLE 116 (A40) 110 2 L50 A61 |INSERT TO W2 14 A41 9 |DIRECTS 84 L448 A56 8 |TO START MON IF ANS L11=V2+L98 0S |DRUM BIT 04 A17 A40 86 L165 32 A24 |STOP DIR 152 L168 L51 L50=V2+L98 0XYS -1 0 7 |MASK TO INSERT W2

Page 45

L98=L86-V2 0S L352 0 0 |SKEL CH CH WD F 9 15 L87 F 9 39 L78 L78=V2 C 0 63 V2=L136 |ORION L358))L82)L83) 114 L40 A59 A60 |A59M=L774|A60=SWITCH CHAR 84 L0 A56 2 |J RIG WRO UNL 84 L30 A56 7 |J IF ENGI 04Y L1 L2 A60 |PICK UP CH CH WD 71 L4 3 A60 |J NOT REM 86 L260 L72 A54 |READ DOC COMP L4) 84 L3 A56 3 |J IF REM NAM SPA L41) 86S L260 L263 A54 |GEOG 141.1 0 L240+1 |READ GEONLIST 142 L10 L651 146 (L42) A52 A61 |SEARCH GEONLIST 60 L235 (A61) |J IF NOT IN LIST 11 A61 L11-L252 |A61->PLIST 84 L20 A56 5 |J IF VOI 85 L3 A56 4 |J NOT SER 86 L260 L455 A54 |READ SERIAL NO 52 A52 24 A53 |DOWN TO A53 86 L260 L455 A54 |READ LENGTH 74 L235 63 A52 |J IF TOO LONG L3) 86 L454 A41 |CLOSE 86 L456 A44 |CH CH L1) 0S L564 L565 0 |RIG WRD UNL F 9 15 L566 F 9 39 L567 L2) 0S L630 L631 0 |SER VOI PER F 9 15 L632 F 9 39 L633 0S L584 L585 0 |NAM F 9 15 L585 F 9 39 L586 0S L579 L581 0 |SPA F 9 15 L580 F 9 39 L582 0S L801 L802 0 |REM F 9 15 L803 F 9 39 L804 L22) +2,8,,16,,,, |5 4 11 L20) 86 L21 A41 |READ P L23) 124 L22 12 A60 |SET A60 TO 5/4/11 86 L260 L455 A54 |READ PART OF DATE 61 L5 L22 |J IF NOT YEAR 74 L5 100 A52 |J IF TYPED IN FULL 10 A52 1900 L5) 55 A52 (A60) |DOWN INTO A53 61 L235 A52 14 A41 L23

Page 46

61 L73 L22 |READ . L24) 70 L28 (A53) |J IF P NOT READ 26 A53 10 L28) 70 L25 (A22) |J IF DATE ENDE D BY SP 86 L21 A41 |READ P L25) 86 L798 A57 |READ DOC NAME L42) 75 L3 L10 |1460START L21) 71 (A41) 48 A43 |EXIT IF NOT P 16 A53 (L26) |MARK P L26) 75 (A51) L30) 11 L830 2 |MAKE NUM OCTAL 86 L261 L455 A54 |READ OCTAL 86 L454 A41 |CLOSE L31) 121 A52 1 |NEXT BIT TO DO 112 (A59) 10 A52 |INSERT ENGI BIT 81 L31 L774+15 A59 |COUNT UP TO 15 L40) 75 L162 L774 |EXIT |INITIAL A59 L0) 71 L41 L569 A60 |J NOT WRO 83 L41 L42 |ALLOW DRU L11) +36,50,53,,,,,1 |DRU L10) L84=V1-L358 C 0 63 L509)) V2=L136 |INPUT ERRORS L90))L92) 116 L40-L100 |DIRECT LOST ENTRY L91) 15 L100 7 A38 |ERROR NO, 121 A56 36 |DIR BACK ROUND 71 L0 (A40) |J IF PROG FOUND 14 A40 L141 |OTHERWISE SET IT TO ORION L0) 71 L1 (L145) |J IF STILL IN INPUT 10 A38 2 |ERROR NO +2 70 L3 L141 A40 |J IF ORION 10 A38 3 |IMPOP = 5 ETC, 11 L20 56, |OP TAB ONLY L40) 04Y A62 2 A40 |W2 53 A62 15 A56 |DIRECTIVE N0, 15 A56 15 |MASKED OFF L2) 141.1Y 0 L119 A56 |READ DIR 142 A56 1 57 A61 24 A45 |OLD & NEW PERS, TO BOTTOM 15 A45 63 A47 |OLD PER, 15 A46 63 A62 |OLD PER 14 A45 L3 |LINK FOR START 71 L208 7 A38 |START IF IMPOP RESVI 70 L13 (A47) A62 |DON'T DIS, IF LOST ON SAME PER L3)

Page 47

X L917 0 |SKIP NO IL 70 L13 48 A63 |DON'T DIS IF IL 04Y A45 L252 A62 |PICK UP PLIST WORD L10) 64 L13 A45 |J IF FAILED 15 A45 (L11) A46 |IDLE DOC BITS 71 L13 (L12) A46 |J IF NOT IDLE OR DOC LOADED 14 L265 (A45) |MIND + 8 140.13 L11) 142 (L10) 0 4 77 L13 L880 A45 |J IF DIS 140.16 L12) 142 (L10) |DIS 75 L13 L5) +14,51,40,,,8,, |LC FLEX CHARS L1) 52 L5 (A43) A45 |MASK UP 64 L6 A45 |J IF LC CHAR IN FIRST PART 75 L8 58 A43 |J NOT % £ ? 11 A43 49 |CONVERT TO < > : FOR FLAS L8) 111 L32 63 A43 |INSERT CHA L6) 10 L31 (L101) |ADD FIELD COUNT 14 A45 (L101) |FIELD NO 72 L7 10 A45 |J LESS 10 10 L31 17,-10 |DEC CONERT L7) 51 A38 1 |012->011 16 L127 1 |UC 14X L66-1 0 A45 |CLEAR PJN IF FIELD 1 L4) 86 L67+1 A41 |CLOSE 61 L3 A62 |J NOT FLEX L13) 141.1Y 0 L240 A62 142 A62 1 |READ WD OF GEONLIST 141.1 0 L268 |READ FLAS 142 L136 L273 L20) 86 L134 1,,+L30 A50 |0/P TAO (ERROR) 25 A56 8 52 A56 6 65 L21 A56 |J NO DIR 86 L134 32,A56 A50 L21) 04Y A44 L31 A38 |PICK UP MESS AS ERROR NO 86 L134 1,,A44 A50 |0/P IT 71 L22 1 A38 |J IF NOT ERROR 1 86 L134 1,,+L31 A50 |0/P FIED NO TOO L22) 86S L134 8, A50 |SPACE 86 L134 24,A62 A50 |0/P GEOG 86 L135 A50 |N/L 0/P 71 L162 7 A38 |EXIT IF NOT LOST 87 0 A55 |OBEY LINK L31) +38,41,37,44,36,,16 |FIELD 0 L32) +35,40,33,50,,,7,7 |CHAR +51,52,33,52,37,7,7,7 |STATE +36,47,35,,46,33,45,37 |DOC NAME +41,46,40,41,34,41,52,7 |INHIBIT +50,37,51,31,54,41,47,44 |RES,VIOL +41,45,48,31,47,48,37,50 |IMP.OPER +44,47,51,52,7,7,7,7 |LOST L30) +4,37,50,50,47,50,7, |ERROR

Page 48

L93=V1-L90 C 0 127 |END OF INPUT V2=L136 |CHECK DOC L415))L219) 10 L8 1 |ALLOW = IN REQUEST L353))L355)L220)04Y A63 -1 A57 |86 04 A63 (A63) |-> DOC 14 A55 L1) 04Y A56 (A63) A55 |COMP 75 L2 1 A55 |J IF IN FIRST 2 70 L7 29 A56 |J IF + L8) 70 L7 29 A56 |J IF - IN REQ, L2) 60 L3 A56 |J IF CLEAR L800)L4) 15 A56 63 A58 |CHAR 116 0 (A58) |SHIFT MASK UP CHAR -16 52 L5 -16 A58 |TO A58 SIGN IS 1 IF ALLOWED 65 L179 A58 |IMPOP IF NOT L7) 53 A56 6 |NEXT CHAR 61 L4 A56 |J IF MORE IN THIS WD L3) 81 L1 8 A55 |COUNT UP TO 8 L1.1) 75 (A57) |EXIT |D24 MASK L5) +63,60,5,63,63,63,63,32 |ALLOWED CHARS L414=V2=L219 C 0 63 L354) 86S L218 L17 A62 |MAG 150S|FINDPER 51 (A63) 17 A62 |PROGS PPER WD DOWN 64S L207 A62 |L207 IF FAILED 15 A62 63 |POS IN PLIST 10 A62 L252 A39 |REPLACER INPLIST 15 (A39) (L0) A38 |IDLE BIT |K 74 L17 -1 A38 |PER VIOL FLOATING 15 A38 127 A22 |->BAR 34 A22 11 A36 |DOC ON DRUM MOD 72 L2 64 A22 |J NOT MT 73 L2 96 A22 |J NOT MT 70 L4 40 A61 |J IF 150/40 70 L1 42 A61 |J IF 150/42 14 A50 3 64Y L784 2 A40 |J IF WRITING WITH OVR 70 L1 43 A61 |J IF 150/43

Page 49

10 A60 8 A54 |LAST WD OF BLOCK 0 L11) 86 L175 L136 A44 |CHECK RES 10 A60 1 A44 86 L220 A44 A57 |CHECK DOC L0) 142 (L11) 255 |MASK FOR 15 142 (A60) 9 |COPY NEW DOC TO L136 X L883 0 ( 17 L136 (L20) |NE HIGH FOR TAPE 04Y A44 L883 A22 73 L7 (L1.1) A44 |J IF LOW DECK 04Y A44 5 A40 |W5 52 A44 31 64 L1 A44 ) L7) 111 L136 (L20) |NE FOR HIGH TAPE L1) 64 L10 (A22) |J IF BARN 70 L5 42 A61 |J IF 150/42 86 L456 A44 0S L630 L1.62 0 |CH CH TO MAG DIRECTS F 9 15 L632 F 9 39 L633 L10) 86 L456 A44 0S L268 L821 0 |CH CH TO LOCK OUT OF MON OUT 1 F 9 15 L272 F 9 39 L822 L17) 81 L177 L178 |PER RES VIOL L2) 71 L179 40 A61 |ONLY 150/40 NOT ON MT 120 L3 (A62 A36 |LOOK UP IN MASK OF SLOW INPUTS 64 L179 A36 |JIF 0/P 52 A36 3 |TIMES 8 10 A36 L299-L303+11. |MOD FOR SLOW INPUTS 11 L6 3 |ONLY 8 WDS L4) 10 A60 (L6) A54 |LAST WD OF NAME 86 L175 A44 |CHECK RES 141.1Y 0 L303-11. A36 |READ BLOCK 0 142Y (A60) (L6) L683 |11 OR 8 WORDS X L883 0 ( 72 L205 64 A22 17 (A60) (L20) ) L6) 75 L205 10 L5) 25 (A22) 17 A44 |BAR LESS Z 122 (A60) A44 4 |SWAP ROUND WRITE AWAY L20) 75 L205 (0) L3) L356=V1+1-L415 |LENGTH OF MAG 150S C 0 63 V2=L136+9 |MAG DIRECTS L630))L632) L676))L1) +0 |MASK OF SLOW INPUTS L10) 114 A56 A61 A39 |SER VOI|A39->PLIST

Page 50

15 A61 63. |PSEUDO 150 NO 71 L235 (L7) A44 |ERROR NOT IDLE MAG 73 L11 -1 A38 |J IF DOC LOADED 71 L235 4. A61 |J NOT SER 121 (A22) -1 A46 |BAR ROUND 1 71 L235 9 A46 |J NOT NEW TAPE 10 L33 23 |MAKE SHIFT 47 L13) 141.1 0 L302 |READ DATE 142 A46 1 74 L235 (L170) A63 |JIF P AFTER DATE 53 A63 24 |VOID DOWN 111 A63 (L12) |REMOVE P REFORE & DAY OF WEEK 62 L235 A63 A46 |J IF NOT SCRATCH 57 A52 24 |A53 = SER 143 L20 10 |CLEAR NEW BLOCK 0 04 L20+10 A53 |COPY IN SER L5) 75 (L14) 96 |J TO L15|IDLE MAG L11) 141.1Y 0 L303-11. A36 142 A63 1 |READ WD1 OP OLD BLOCK 0 70 L13 4. A61 |J IF SER 04 L136 A53 |NEW VOID DATE 111 L136 (L170) A63 |INSERT OLD P.A. L1.62) 143 A52 2 111 L136 (L21) |REMOVE H ETC. 141.1Y 0 L303-11. A36 |READ OLD BLOCK 0 142 L20 11 70 L50 43 A61 |J 150/43 L17) 114XY L20 L136 A53 |SWAP OLD WD WITH NEW 07XY L136 L20 A53 |NOT EGUIV 60Y L16 L136 A53 |J IF NOT CHANGED 61 L18 A53 |J IF NOT FIRST WD 15 L136 -1 A44 |CHANGE IN PA 60 L30 L136 A44 |J VOID UNCHANGED 10 L19 16 |PRINT VOID L30) 60 L16 A44 |J PA SAME 07X L40-1. A44 A22 |CHANGE PA 116 0 3 L18) 16 L19 1 |DOC NAME 70 L423 5. A61 |ERROR IN VOID L16) 81 L17 9 A53 |COUNT TO 9 WDS L19) 115 A52 0 |PRINTING BITS TO TOP A52 L50) 70 L15 44 A61 |JIF 150/44 115 A52 2 |TO BE WRITTEN BIT L15) 14 L265 (A38) |MIND+8 K BITS L21) 140.13 0 0 63 L6) 142 A45 255 4 |INTERR|DOC &K MASK 76 L31 L41 A45 |J WRITE INHIBIT 70 L46 44 A61 |J 150/44 71 L33 43 A61 |JNOT 190/43 70 L46 1 A60 |J Y=1 X L883 0 ( X L164 16 X 0 0 L31) 70 L235 L141 A40 |J DIFFERENT IF 16 DECKS & HI |DENSITY AS CHAP TOO LONG )

Page 51

X L883 0 X L164 16 L31) 70 L424 L141 A40 |J (INHIBIT)IF SER VOI L44) 02YS |SIMULATED FAILS 04YS (0) 81 L42+2 L43 |WRITE & FIRST POST L33) 53 (A22) 24 A44 |BAR DOWN 24 71 L46 1 A44 |END IF NOT BEGIN OF TAPE L41) -32..-1 |NOT WRITE PERMIT L42) 114 L449 (A22) 0 |BAR=-1.0|OFF TS 71 L43 4. A61 |J NOT SER 10 (A22) 5 |DEFLOWER CODE L43) 06 A45 L44 A25 |SIMULATE DI OR FSP 15 A39 -1 A26 |->PLIST 04 A27 (A26) |COPY PLIST WD 14 A17 L141 14 L242 L46 |RETURN ADD 65 L664 A27 |J NOT FAILED 64 L153 (A22) |J BARN L12) 75 (L2) 7 |L207|NOT DATE MASK L46) 76 L205 L41 A45 |J WRITE INHIBITED X L883 0 ( 15 L20 (L32) A44 |NEW HIGH 116 (A22) 111 L883 (L32) A44 |INSERT NEW HIGH TO ECB ) 141.21Y 0 L303-11. A36 |NEW BLOCK 0 TO DRUM 142 L20 11 |NEW BLOCK 0 TO DRUM 06Y A52 L40-1. A22 141.21Y 0 L1.63-1. A22 |NEW CONTROL WD 142 A52 1 L47) 71 L205 L141 A40 |START IF NOT ORION L32) 75 L162 (0) L631) |ENTRY DIRS 15 (A61) 127 A22 |BAR L20) 34 A22 11 A36 |MOD DOC 15 (A61) (L5) A44 |IDLE MAG 15 (A61) (L6) A38 |DOC K 85 L10 A56 6 |J NOT PER 72 L4 -1 A44 |J NOT IDLE 11 A61 L252 A39 120 L1 (A39) A39 |LOOK UP INPUT S 141.1 0 L268 142 L272 L273 |READ FLAS 86S L134 8.4 A50 |O/P TAB 86 L134 32.+A52 A50 |O/P GEOG 115 0 63 A52 |ALL PRINTING MAGS 70 L0 (L7) A44 |J MT 115 0 1 A52 |ONLY DOC 52 A39 3 A36 |DOC NAME 10 A36 L299-L303+11.-1 |ADJU5T L0) 73 L2 -1 A38 |J IF DOC LOADED 86 L134 1..+L9 A50 |O/P IDLE L7) 14 (L4) 64 |NO PRINTING|IDLE MAG L2) 86 L456 L207 A44 0S L725 L1.42 0 F 9 15 L635

Page 52

F 9 39 L1.43 L9) +41.36.44.37.7.7.7.7 |IDLE L4) 114 (A61) A52 A60 L14) 86 L456 L15 A44 |CH CH TO PRINT 0S L754 L755 0 |GEOG BELONGS TO BLOGGS F 9 15 L756 F 9 39 L757 L40) L1.63)) L633=V1-L630+L164 C 0 63 |MAGS MAIN |CONTROL WORDS |D0 - PRINT SERIAL NUMBER |D1 - PRINT VOID DATE |D2 - PRINT NS BLOCK |D3 - PRINT PA BLOCKS |D4 - TO BE WRITTEN |D5 - PRINT DOC NAME |D8 - ATLAS |D24-31 - NO OF REPEATS L634)) V2=L136+49-L164 L636) V0=V2+L164 |LEAVE ROOM FOR CONTROL WDS L1.6=L136+34 |S/R TO READ 10 WORD BLOCK FROM MONPOR WITH FAIL SWITCH IN WORD FOLLOWING 86. L1.2) 04 A50 (A44) |RESTART WORD ARTER 86 140Y (A50) (L1.22) L683 |DEV=0 142 L1.6 10 |10 WDS 10 L1.6 |LOCK OUT 86X 1 A50 A44 |EXIT CLEAR RESTART L1.12) 04Y A53 -1 A41 |86 L1.25) 86 L456 -65 A44 |CH CH TO CLOSE 0S L643 L635 0 F 9 15 L635 F 9 39 L1.41 L1.17)L1.0) -1...-1 |OFF TS|NOT ENGD 04 L242 A46 |MIND+2 =LINK 04Y A60 -1 A46 |86 L24) 25 (A60) 9 A60 |BOTTOM OF ADD POINTED TO 74 L1.23 (L1.23) A60 |DO NOT STOP IF >2 SECS 04 L143 L141 |STOP MIND L1.23) 74 L1.24 8192-49 A2 |J IF ALREADY FRIGGED L9) 114 L3 A2 |SWAP 150- L3 114 L4 A15 |SWAP 152 -L4 L1.24)L21) 75XY 0 -129 A15 |J L153 A2 V3=40 V4=6 V5=L662+2 L7) 11 A60 VV5 |TIME IN TIME SHARER 01Y A60 1 A1 |SUBT W1 65 L2 A60 |J TIME NOT UP L1.31) 15Y L143 -2 L683 |MIND ON 70 L9 (L145) |J IF MONPER NOT SET

Page 53

25 (A62) 11 |LISTEN FOR FAILS L11) 15 L143+4 -1 |PO MIND ON 140.13 0 (L265) L1.22) 155XY (-1) (-1) -1 140.13 0 (L265) L1.27) 142 A16 -17 |INTERR 77 L9 L1.17 A16 |J IF ENGD 86 L9 L242 |J TO L1.13 L1.13) 86 L1.12 7.6.9 A41 |DECK FAIL 65 L664 (L242) |USED IN CLOSE L1.21) 76 L20 L1.22 A25 |J NOT DI 75 L20 (L21) A25 |J NOT ON CONTROL L1.30) 116 25 -3 |ALL FAILS L20) 05 A25 (L1.12-1) A59 |MASK RESTART 76 L23 L682 A59 |J IF EVENT NOT OCCURRED 122 L242 A50 4 |RESTART A50 X L23) 77 L153 L1.17 A25 |J IF ENGAGED 26 (A62) 10 |STOP LISTENING FOR FAILS L1.29) 86 L24 -5 A60 |STOP FOR SEC L10) 00Y A60 1 A1 |ADD W1 L4) 75 L10 L153 |SWAPPED WITH 152 L1.26)L2)L3) 75 L7 16351 |SWAPPED WITH 150 L1.28) 75Y A3 -9 C 0 63 |FOR CORRESPONDINGBITS IN A56 A5 |MT INTERROGATION INFORMATION |DO - ORION I - ADDRESS FAILURE | ORION II = PARITY FAILURE |D1 - ADDRESS DISCREPANCY LOW (READING) OR ADDRESS DISCREPANCY (WRITING) |D2 - WRITING ON ISOLATED DECK OR AFTER READING BACKWARDS, |D3 - ORION I - CHECKSUM FAILURE IN FIRST ADDER (WRITING) OR ADDRESS DISCREPANCY HIGH (READING) | ORION II = ADDRESS HIGH (READING) |D4 - ORION I CHECKSUM FAILURE IN SECOND ADDER | ORION II = CHECKSUM FAILURE |D5 - FIRST SENSING POST |D6 - DECK INTERRUPT |D7 - ENGAGE BUTTON |D24 - WRITING ON ORION II D24 = 0 AND D25 = 1 |D25 - WRITING SHORT GAP MODE, WHEN ERASING. |D26,27 - VALUES 0-3 FOR TAPE CONTROL BEING USED |D28 - TAPE MOVING FORWARD IN LAST TRANSFER |D29 - DECK ENGAGED |D30 - WRITING PERMITTED |D31 - BOTH SENSING POSTS |ENTRY TO MAGS FAILS L635) 14 L144 L1.21 10 L145 (A62) |SET UP MONPER 15 (A62) 127 A22 |POINT TO BAR L2) 04 A58 (A22) |COPY OF BAR 04Y A52 L636-1. A22 |CONTROL WD 34 A22 11 A36 |MOD DOC 25 (A62) 11 |START LISTENING 140.13 L0) L42 A59 0 4 |INTERR

Page 54

111 A61 (L0) A59 |INSERT UP TO DATE ENGD 121 A61 16 A38 |TY TO DO 15 A38 255 A56 |D24-31 TO A56 77 L1 L1.17 A61 |J IF ENGD 86 L1.0 L156 A46 |WAIT 2 SECS L1) 63 L10 V2 A58 |J BAR +VE 86 L456 A44 0S L721 L635 0 |TO BAR NEG F 9 15 L635 F 9 39 L1.33 L10) 76 L11 L1.23 A56 |J NO CONTROL 75 L14 63 A56 |J IF READING X L890 0 ( 74 L1.13 L149-1 A54 |J IF FINS > SIZE OF STORE 04Y A53 5 A40 76 L15 L13 A53 |J IF WEA RES ) 70 L16 (A43) A55 |J IF START = DATUM L14) 75 L1.13 (A43) A55 |J IF START <= DATUM L16) 74 L1.13 (A42) A54 |J IF FIN>UPPER RES L15) 74 L1.13 (A54) A55 |J IF FIN < START 01 A54 A55 |LENGTH -1 L11) 77 L1.13 L1.31 A56 |J IF BOTH S SP 10 L157 20 A53 |PREPARE POR FIRST FAIL 53 A58 17 A48 15 A48 15 |REPEATS ON THIS BLOCK 77 L1.13 L4 A57 |DECK FAIL IF ENG OR PARITY 74 L12 63 A56 |J IF WRITING L4) 86 L456 126 A44 |CH CH TO REREAD X L662 1 15 0 128 |NOT PARITY ORION 2 0S L718 L635 0 F 9 15 L635 F 9 39 L720 L12) 86 L456 A44 0S L717 L635 0 |CH CH TO REWRITE F 9 15 L635 F 9 39 L719 X L890 0 L13) +55,63,63,63,63,63,63,63 X L662 1 |ALL JOBS LOCKED OUT ORION 2 ( L20) +6500 L397) 86 L1.0 L20 A46 81 L162 A29 L396=L634 L398=L636 L399=L637 ) L637=V1-L634 |LENGTH OF MAG FAILS G642=6 |NO OF ATTEMPTS PER BLOCK C 0 63

Page 55

L717)) V2=L635 |WRITE FAILS 76 L21 L1.26 A57 |J NOT WRONG MODE 20 (A22) 8 76 L0 L1.30 A56 |J INHIBIT L60) 71 L50 (A58) |J NOT BEGIN OF TAPE 86 L1.12 5.29.43 A41 |E O T L0) 86 L1.12 3.44.32 A41 |WRITE INHIBIT L20) 64 L35 A38 |J FROM INT 77 V2+2 L1.29 A57 |J LAST FAIL 71 L1.12+1 (L525+4) |J FIRST FAIL 10 L36 12 |RESTORE BAR COUNT FAIL 86 L1.2 A44 |READ BACK L42) 0S L41 32. 1 |IGNORE FAILS L25) 61 L50 A47 |J NOT NSB FAIL L51) 122 (A22) A45 4 |RESTORE BAR L50) 16 L40 1 86 L1.2 A44 100S L17 32. |READ BACK ADD FAILS L17 L24) 86 L1.0 L157 A46 |WAIT 1/2 SEC L22) 86 L1.2 A44 100S L1.13 16. 0 |READ FWD ADD FAIL DECK 83 L22 L40 |REPEAT IF ADD HIGH 77 L23 L1.29 A57 |J IF FSP 11 L144 1 |IGNORE FAILS ON 25S 80 L44 A642+1 A48 |J IF REPEATED 15 A52 -1 A44 |PADD 15 A58 -1 A45 |CURRENT BLOCK 72 L35 (A44) A45 |J NOT BEYOND PREADD 72 L40 100 A54 |J BLOCK < 100 WDS 04 L34 L33 |ERASE BLOCK LENGTH L40) 140.28 0 1 |ERASE L34) 142 130 100 |100 WDS 83 L40 A48 |TIMES REPEATS L35) 77 L32 L1.24 A56 |J IF WRITING 116.7 |ERASE L32) 140.21 |WRITE L33) 142Y (A55) 1 A54 |REPEAT OBJECT TRANSFER 25S L145 8 |OFF MONPER L36) 86 L1.12 0 A41 |CLOSE L21) 71 L20 4 A57 |J NOT ONLY FSP 76 L0 L1.30 A56 |J W I 76 L60 L1.28 A56 |J BACKWARD L23) 53 (A22) 24 A45 |PRESERVE BAR 122 (A22) L19 4 |SET 8191 71 L10 8191 A45 |J IF THIS NON SEQ 20 (A22) 8 |8190 L10) 14 A47 1 L11) 82 L12 A47 |COUNT ERASES 86 L1.2 A44 L13) 40S L1.13 7.. 1 |DECK FAIL IF WDR BOTH L19) 75 L11 8191 |J BACK L12) 115 L42 20 A50 |ADD FAILS L41 140.21

Page 56

142 A47 1 114 A47 A50 |LOCK OUT, OFF ADD FAILB,R,S, 86 L1.0 L157 A46 |WAIT 1/2 SEC 86 L1.2 A44 L14) 100S L18 32. 0 |ADD FAIL TO L18 122 (A22) A45 4 |RESTORE BAR 10Y (A22) (L1.22) A45 |RESET BAR -OR 150/42 141.21Y 0 L303-11.+9 A36 |WRITE NSB TO BLOCK 0 142 A45 1 06 A52 L15 |OR TO BE WRITTEN NS 76 L36 L1.23 A56 |J 150/43 71 L16 4 A57 |J LAST FAIL 86 L1.12 5.29.32 A41 |E OT L16) 86 L1.12 6.5.4 A41 |LAST FAIL L41) 71 L1.13 (A59) |DECK FAIL IF BOTH 116 -3 |J TO READ BACK L18) 81 L51 L10 |COUNT ERASES L15) 50S 0 0 0 |NSB WRITE BITS L17) 62S L31 V2 A59 |J UNLESS ADDRESS LOW 61 L24 (A22) |NORMAL UNLESS BLOCK 0 122 (A22) L43 4 |PREPARE TO READ 8190 86 L1.0 L157 A46 |WAIT 1/2 SEC 86 L1.2 A44 |READ 8190 FORWARD 100S L1.13 16. 0 |ADDRESS FAILS DECK FAIL 14 (A22) |PREPARE TO READ BLOCK 0 L43) 75 L22 8190 |J TO REPOSITION L31) 20 (A22) 8 |ADJUST BAR 81 L24 L40 |READ FWD TWICE L44) 86 L1.12 2.4.36 A41 |REPEATED WRITE FAIL L719=V1=L717 C 0 63 |MAGS RE-READ |A38S = 1 IF SIMULATED |(A48) = NO. OF REPEATS |(A52) = CONTROL WORD |(A54) = TRANSFER LENGTH - 1 |(A55) = START OF AREA |(A56) = INTERROGATION BITS 24-31 |(A57) = INTERROGATION BITS 0-7 |(A58) = COPY OF BAR G574=L642 |NO OF READ ATTEMPTS PER BLOCK V2=L635 L718)) 76 L5 L1.23 A56 |J NO CONTROL 64 L11 A38 |J FROM INT 10 L36 12 70 L5 4 A57 |J ONLY F S P 86 L1.0 L1.26 A46 |WAIT 1/4 SEC 77 L0 L1.28 A56 |J IF FWD 77 L1 L555 A52 |J IF ATLAS 116 0 1 |J NOT BLOCK -1 L1) 67 L2 0 A58 |J NOT BLOCK 0 86 L1.12 5.29.43 A41 |E O T REWIND L5) 86 L1.12 8 A41 |CLOSE RESETBAR

Page 57

L2)L12) 77 L4 L1.30 A57 |J D,I, 71 L1.12+1 (L525+4) |J FIRST FAIL 86 L1.2 A44 L10) 100 L21 16. 0 |READ FWD 70 L20 L574 A48 |J IF REPEATED L11) 11 L144 1 |OFF MONPER AT 25S 77 L8 L1.28 A56 |J FWD 116.1 L8) 140.1 142Y (A55) 1 A54 |REPEAT 25S L145 8 |0FF MONPER L36) 86 L1.12 0 A41 L0) 10 L10 16. |L10 READ BACK 70 L12 (A58) |J IF BLOCK 0 141.1Y 0 L303-11.+9 A36 142 A44 1 |READ NSB 53 A58 24 A45 83 L2 (A44) A45 |J NOT AT NSB 122 (A22) L22 4 |BAR 8191 77 L14 L555 A52 |J ATLAS 71 L15 8191 A44 |J 8191 SEO L14) 20 (A22) 8 |BAR -1 L15) 86 L1.2 A44 100 L23 32. 0 |READ BACK 20 A58 8 |BAR -1 86 L1.12 5.29.40 A41 | E 0 T L20) 86 L1.12 1.4.52 A41 |READ FAIL L4) 76 L31 L1.28 A56 |J IF BACK L23) 20 A58 8 A44 |BAR -1 04 (A22) A44 L21) 86 L1.2 A44 80S L30 32. 0 |READ BACK 86 L1.0 L157 A46 |WAIT L32) 86 L1.2 A44 100 L33 16. 0 |READ FWD L34) 75 L10+1 3 |REPEAT L33) 77 L1.13 L182 A59 |D F LOW 20 (A22) 8 81 L32 L635+2 A47 |COMPENSATE 2CE THEN DF L30) 80 L1.13 L635+3 A47 |J IF DECK FAIL L31) 21 (A22) 8 L22) 75 L21 8192 L720=V1-L718 C 0 63 |BLOCK ADDRESS REGISTER NEGATIVE |0 => REWINDING |1 => LOADING OR REWIND & LOAD |2 => DECK FAIL |4 => NEW TAPE |5 => DEFLOWER |6 => IDLE

Page 58

L721)) V2=L635 |BLOCK ADDRESS REGISTER NEGATIVE L41) 73 L1.13 14 A58 |DECKFAIL CODE TOO BIG 70 L22 4 A58 |DO NOTHING IF NEW 76S L0 L1.31 A56 |REWIND IF NOT ON BSP 64YS L2 L41 A58 |J NOT 2 3 L7) 115 A0 6.32 A58 |CODE =6 60 L1 A52 |J IF NOT LOADED 86 L1.12 2.41 A41 |UNLOAD L1) 86 L1.12 9 A41 |DIS L2) 72 L3 6 A58 |J IF CODES 015 76 L1 L1.31 A57 |J NOT ENGAGE 73 L9 8 A58 |J IF 89 13 71 L1 L141 A40 |J NOT IDLE L9) 70 L23 8 A58 |J IF CODE 8 116 0 1. L23) 115 A0 32 A58 |SET CODE 0 1 X L883 0 ( L8) 04Y A53 L883 A22 |PRESERVE HIGH BIT IN EXTRA 15 A53 (L40) 111X L883 (L40) A22 |CLEAR EXTRACODE H BIT ) G8) 86 L456 A44 |CH CH T0 READ BLOCK 0 0S L722 L635 0 F 9 15 L635 F 9 39 L1.51 L3) 70 L4 5 A58 |J CODE 5 77 L5 L555 A52 |J IF ATLAS 76 L5 L20 A52 |J NOT TO BE WRITTEN L4) 77 L6 L1.30 A56 |J PERMIT 16 A58 8 |PUSH DOWN CODE 86 L1.12 11.9 A41 |PERMIT WRITING L22) 86 L1.12 0 A41 |DO NOTHING L5) 71 L6 0 A58 |J NOT JUST REWIND 70 L7 L141 A40 |J IF IDLE L6) 86 L1.0 L158 A46 |WAIT 2 SECS X L545 0 ( X L545 2 ( F 15 0 L157-L158 |WAIT 1/2 SEC IF TM2 DECKS ) ) L30) 71 L8 5 A58 |J NOT DEFLOWER L0) 15 L143+1 15 A48 |RANDOM NO L40) 140.1 0 (0) 142 V2-1 (L14-2) |READ FWD L20) -2.......-1 |TO BE WRITTEN 140.13 0 (L265) L21) 155 0 8189 |ABANDON|FIRST BAR 152 L168 L12 1 |ON TS L13) 76 L14 L1.31 A56 |J NOT BSP 141.1Y 0 L303-11.+8 A36 142 A45 3 |A47 SERIAL

Page 59

L15) 140.28 142 130 100 |ERASE V3=165 V4=135 V5=L662+2 X L915 0 V4=60 81 L15 VV5 A48 |ERASE 30 FEET 122 (A22) L21 4 |SET BAR 17 L21 (L21) |BAR 0 NEXT TIME 04 A50 L16 |RESTART L17) 140.21 142X A47 1 A45 |SERIAL|O 83 L18 (L182) A45 |A45=-1|J L18 2ND TIME 143 L1.6 10 A45 |TEST BLOCK OF 1S L12) 86S L1.2 L13 A44 |WRITE L16) 157 L14 5.16. 0 83 L15 A48 |ERASE I MORE L18) 114 A50 A46 |LOCKOUT OFF RS 115 A52 2 |TO BE WRITTEN 115 A0 1.32 A58 |LOADING CODE L14) 86 L1.12 11 A41 |REWIND L1.33=V1-L721 C 0 63 V2=L635 |READ BLOCK 0 L722)) 122 (A22) L20 4 |BAR 8189 14 L144 L21 |FAILS 86 L1.0 V2 A46 |LOTS OF TIME 24 L1.6 12 |SET RECOGNIZABLE PATTERN 140.1 0 0 4 142 L1.6 11 |READ FIRST BLOCK 10 L143+1 (L40) A60 |5 SECS FROM NOW L18) 04 A45 L1.6 |COPY SERI 04 L1.6+10 L1.6 14 L144 L1.21 |RETORE FAIL ADD 76 L42 A60 A37 |J IF NEW TAPE L22) -2,,,,,,,-1 |NO TO BE WRITTEN 86 L1.31 L242 |RESTORE TS 66 L43 12 A45 |J IF BROKEN DECK 65 L1 A45 |J NOT ATLAS 77 L1.13 L22 A52 |DF IF TO B E WRITTEN 86 L456 A44 0S L644 L1.5 0 |CH CH ATLAS F 9 15 L1.3 F 9 39 L1.4 L1) 77 L4 L22 A52 |J T B WR 86 L1.2 A44 110 L15 16. 0 |READ BLOCK 71 L50 1 A58 |J NOT LOADING L40) 116.20 0 0 5 |WRITE TO DRUM |TIME LEFT L4) 141.1Y 0 L303-11. A36 |READ 142 L1.6 11 |DOC NAME 76 L0 L22 A52 |J NO TO BE WRITTEN 61 L1.13 L1.6+10 A45 |J WRONG TAPE L14) 86 L1.2 A44 |WRITE

Page 60

150 L15 5.16. 0 |L15 ALL FAILS 26 A52 10 |PRINT MARK 70 L5 L141 A40 |J IDLE L50)X L883 0 06X L883 A53 A22 |RESTORE EKTRACODES W BIT L0) 16 L1.6 (L157) A44 111 A52 (L23) A44 |PA 14 (A22) |CLEAR BAR 86 L1.2 A44 L30) 110 L15 16. 0 |READ BLOCK 0 86 L1.12 0 A41 |CLOSE L5) 70 L0 1 A58 |J IF LOADING L43) 86 L1.12 11 A41 |REWIND L15) 80 L11 L635+L642 A47 |COUNT FAILS 11 A44 1 A48 |LINK -1 L16) 86 L1.0 L157 A46 |1/2 SEC 86 L1.2 A44 110 L11 32. 0 |READ BACK 71 (A48) L14 A48 |J IF READ FAIL L35) 86 L16 L1.21 A48 |R BACK AGAIN L23) 75Y L635 -1 |START AGAIN L21) 04 A50 L30 |RS 114 L35 L144 A44 |RESTORE RESTARTS A44 PSEUDO LINK 76 L1.21 L2 A25 |J NOT D E 114 A0 A50 A60 |NO RESTART NO TIME 86 L1.21 L242 |DEAL WITH D I 75 L43 |TO REWIND L2) -48......-1 |NOT D E X L883 0 06X L883 A53 A22 |RESTORE EXTRACODE WORD L11) 16 L45 1.1. |NON STAND _ ENGI PRINTING L42) 71 L43 1 A58 |REWIND IF NOT LOADING L20) 53 A52 8189 |CLEAR A52|FIRST BLOCK ADD 10 A58 3 |NEW CODE L45) 86 L1.12 30.24 A41 | NEW NONST L1.51=V1-L722 C 0 63 V2=L635+11 L644))L1.3)L1) +32...1....-1 |SERIAL L1.5) 61 L9 A52 |J IF NOT JUST LOADED 53 L1.6 2 A45 14Y L1-1 1 A45 |POSN, OF N.S.B. 03 L10-1 L1 |NOT HIGH L10=L635+2 143 L10 8 57 A0 48 A44 |CLEAR A44 A45 L4) 122Y A47 L1.6+2 A44 |LOOK UP NEXT CHAR 115 A44 8 53 A47 42 |TO BOTTOM 70 L8 0 A47 |J IF END OF DOC 70 L5 15 A47 |J IF SOLIDUS 116 0 (A47) 52 L6 -16 A48 |SHIFT UP MASK OF ALLOWED CHARS 65 L4 A48 |J NOT ALLOWED 52X L10 6 A45

Page 61

00X L10 A47 A45 |INSERT NEXT CHAR 84Y L4 L10 A45 |J IF MORE ROOM IN THIS COMP L5) 60Y L4 L10 A45 |J IF CLEAR COMP 81 L4 8 A45 |COUNT COMP L8) 27 L555 1 A52 |SET ATLAS BIT 141.21Y 0 L303-11. A36 142 L10-1 11 L9) 23 A58 8 |1,0 86 L1.12 8 A41 |EXIT L6) +63.60.6.....-32 |ALLOWED CHARS L1.4=V1-L644 C 0 63 |MAGS CLOSE |[A52] = CONTROL WORD |[A53] = BITS := +1 => REWIND DISENGAGE | +2 => NOT DISENGAGE | +4 => COUNT FAILURE | +8 => RESTORE BAR | 32-35 = EVENT CODE NUMBER |[A58] = COPY OF BAR |A62 => PLIST WORD V2=L635 |MAGS CLOSE L643)) 15 A53 (L1) |BOTTOM OF 86 71 L11 7.6.9 A53 |J NOT DECK FAIL 115 A0 2.32 A58 |D F CODE L11) 76 L23 L1.31 A53 |J NO RW DIS 62 L2 V2 A58 |J IF ALREADY NEGATIVE 24 A58 10 L2) 140.13 0 0 4 L24) 142 A45 3.32. |RW MODE 76 L23 L1.17 A45 |J DIS 14 L144 L31 76 L3 L1.30 A53 |J DIS 86 L1.0 L1.26 A46 |1/4 SEC 76 L17 L0 A45 |J IF NOT BSP L0) -16..-1 14 A17 L141 16 A45 (L157) A25 04 A26 A62 04 A27 (A26) |COPY PLIST WD L31) 25 L145 8 86 (L23) L242 L21) 76 L22 L1.29 A53 |J NO FAIL 10 A58 (L158)

Page 62

10 A52 (L156) |COUNT L22) 76 L28 L1.28 A53 |J NO RESTORE BAR BIT 114 (A22) A58 |SWAP BAR WITH GOOD COPY L28) 53 A53 12 A63 |EVENT NO 60 L20 A63 |J IF NONE 141.1 0 L840 142 L524 L841 |READ CHAIN RESTARTS 86S L524 A39 |CH R,S DONT HALT 70 L20 L141 A40 |J PSIND 71 L20 1.4 A38 |J RESTARTED 110 (A40) L525-2 L698 |SUSPEND 86 L134 1..+L32 A50 |0/P SUSPD L20) 86S L456 L21 A44 |CH CHTO PRINT 0S L725 L635 0 F 9 15 L635 F 9 39 L1.43 L32) +0,51,53,51,48,36,0,7,7 |SUSPD L3) 10 L24 32. |DIS L17) 116 0 -L265 140 (L24) (L265) L23) 142 0 L664 14 L23 L153 L1) 75Y L31 -1 L30) 0S L31 0 1 L1.41=V1-L643 C 0 63 |MAGS PRINT |[A52] = COPY OF CODE WORD |[A53] = BITS:- 36-39 = SECOND-PART-OF-MESSAGE NUMBER | 40-43 = FIRST-PART-OF-MESSAGE NUMBER |A62 -> PLIST WORD V2=L635 |MAGS PRINT L725) 15 A53 1..-16 A39 |WDS TO BE PRINTED L53) 53 A39 4 15 A39 15 A42 |MASK OFF 60 L41 A42 |J IF FINISHED PRINTING 04Y A44 L60 A42 |PICK UP WD 86 L134 1..+A44 A50 |PRINT IT 71 L53 10 A42 |J NOT UNLOAD 04 L0+1 L31 |ERROR PRINT WD 53 A52 15 A60 72 L52 2 A60 |J NO ERRORS 116 0 16 L52) 115 A0 34 A52 |SERIAL PRINTING L41) 64 L46 A38 |J IF SIMULATED L40) 64 L9 A52 |J IF UNLOAD OR BLOCK 0 REWRITTEN L13) 64 L47 L774 |J IF ENGI 1 60 L43 A63 |JNO REST 71 L43 1.4 A38 |J NOT SET

Page 63

L47) 86S L134 8.13 A50 | 53 A59 40 |8 BITS OF FAIL 14 A63 A54 L42) 101 (A63) L48 |CONVERT TO OCTAL 24 A16 4 |CLEAR OVR 81 L42 A60 A63 |COUNT UP TO A59 86 L134 6..54 A50 |O/P ENGI NOS, L43) 70 L10 L13 A39 |J FROM UNLOAD ETC, 64 L45 L774 |PRINT IF ENGI 72 L46 16 A53 |J NO EVENT 72 L45 1.. A53 |PRINT NO REST 77 L46 L51 A38 |J PRINT SUPP, L45) 86 L135 A50 |0/P L46) 72 L162 L252 A62 |EXIT IF PER DIR 141.21Y 0 L1.63-1. A22 |WRITE WD TO DRUM 142 A52 1 71 L206 L141 A40 |START IF NOT IDLE 64 L162 (A22) |J BAR NEG 16 (A62) (L50) |DOC LOADED 141.1 0 L255 142 L238 L292 86 L238 2 A63 |SWITCH ON DOCS L50) 71 L162 0 4 |EXIT|DOC BIT L9) 115 A49 4 |P ON 04 L56 L55 |INSTEAD OF LENGTH L1.42) 141.1Y 0 L303-11. A36 142 L20 11 |READ DOC NAME PROM DRUM L10) 124 A52 6 A42 |NEXT BIT TO PRINT 53 A52 (A42) |RESTORE A52 10 A42 L0-1 |POINT TO CODE WD L11) 04 A39 (A42) |PICK UP 86 L134 24.+A39 A50 |PRINT 3 CHARS 75 (A39) -1 A39 |J IF NOT CODE WD 122 A45 A39 4 |C3-C7 C4-C0 15 A45 63 A46 |C3 53 A45 42 |C4 52 (A39) (A45) A39 |UP C4 BITS 53 A39 (A46) |DOWN C3 101 A39 L1 |CONVERT DEC 86 L134 1..+A39 A50 |O/P 73 L10 L0 A42 |J NOT IN VOID 81 L11 L16+3 A42 |THREE PARTS L14) 65 L2 L20 |J NO P 86S L134 8.48 A50 |OP P L2) 121 L20 24 |SECOND P NEXT TIME 71 L54 L0+1 A42 |J END OF VOID L51) 86 L11 -2 A42 L16) +7,7,7,43,40,,,+L20 |DAY +31,7,7,44,36,,,+L20 |MONTH +31,7,7,37,25,,,+L20 |YEAR L1) +100000000 +58,58,58,58,58,58,58,26 |DEC RADICES L54) 52 L20 25 A44 |H TO D0 65 L10 A44 |J IF TAPE LOW DENSITY 86S L134 8.40 A50 |OP H 75 L10 L0) +7,7,7,,,,,+L30 |J L30 SERIAL +0,7,7,,,,,+L14 |J L14 VOID

Page 64

+0,46,51,24,24,,,+L20+9 |NS +0,48,33,33,33,,,+L20 |P.A. L56) +0,44,7,25,1,,,+L20+10 |LENGTH +7,7,7,,,,,+L15 |DOC NAME L55) +0,7,7,,,,,+L13 | ETC L30) 122 L0 L12 6 |LO NL TAB L12) 86 L11 2.4 A42 |SET A42|NL TAB +7,7,7,24,24,,,+L20+10 |SERI L15) 64 L45 A42 |J IF NO DOC PRINTING 86 L134 16.+L0 A50 |NL TB IF MAG 111 L831 -1 |IGNORE SP L22) 61Y L21 L20-L15+8 A39 |SKIP CLEAR COMPS AT END 83 L22 L15-6 A39 |PRINT AT LEAST 2 COMPS L21) 86 L134 1..+L20+1 A50 |OP COMP 82 L45 L15-8 A39 |UP TO 8 COMPS 86S L134 8.15 A50 |/ L60) 81 L21 L21 |STEP TO PRINT NEXT COMP L20) +38,33,41,44,0,7,7,7 |FAIL +55,50,41,52,37,0,7,7 |WRITE +50,37,33,36,0,7,7,7 |READ +44,33,51,52,0,7,7,7 |LAST L31) +0,37,50,25,24,,,60 |ERRORS +37,46,36,0,47,38,7,7 |END OF +0,52,33,48,37,0,7,7 |TAPE +36,37,35,43,0,7,7,7 |DECK +46,37,55,7,7,7,7,7 |NEW +53,46,44,47,33,36,0,7 |UNLOAD +41,46,40,41,34,41,52,0 |INHIBIT +48,37,50,45,41,52,0,7 |PERMIT +46,47,46,51,52,33,46,36 |NONSTAND L48) +8.. +1,56,56,56,56,24,49,49 |OCTAL RADICES L1.43=V1=L725 S0 S1 L508)) |FIRST CHAPTER OF 150'S V2=A284 |ARRANGE TO FINISH AT A511 X L707 0 X 0 0 X L890 0 |OR 1 EXTRA WORD FOR 150/4 V2=V2-1 |1 EXTRA WORD FOR 150/3 L258))L226) S1

Page 65

S0 |INITIAL SWITCH L743) 04Y A56 2 A40 |PICK UP CONTROL ADDRESS|ENSURE A56 N? 04 A60 (A56) |PICK UP 150 INSTRUCTION 121 A60 24 A59 |X TO A59 121 A60 -32 A61 |Z TO A61 15 A56 -1 A54 |CHECK CONTROL ADDRESS 10 A56 1 A41 |STEP PRESUMPTIVE LINK 86 L175 A44 L227) 15 A61 63 |ENTRY FROM INTERPRETER |Z TO 6 BITS 15 A59 -1 |X TO 15 BITS 15 A60 -1 |Y TO 15 BITS 116 (A40) 121 7 24 A51 |A51= WORD 7 ROUND 24 BITS X L707 0 |SKIP NO HPD L715=L1.7 70 L714 3 A61 |J TO EXTRA 64 IF 150/3 53 A51 15 A36 15 A36 15 |PROGRAM NUMBER TO A36 X L890 0 |150/4 ONLY 70 L891 4 A61 |TO EXTRA KERNEL 72 L1 48 A61 |USE 2ND CODE WORD IF Z>47 117Y 1 (L1.2) L153 L1) 120 L4 (A61) A48 |FORM DENSE INTEGER FOR 150'S 64 L178 A48 |ILLEGAL INSTRUCT IF Z UNASSIGNED 14 A45 A59 116 L1.3-L1.4 |CHECK X 1ST TIME L3) 56 L1.4 (A48) A46 |Y 2ND TIME, 2 WORDS FOR CHECKING 15 (A45) -1 A54 |ADDR TO A54 FOR RES.CHECKER 64 L2 A46 |J TIS ADDRESS NOT TO BE CHECKED 53 A47 47 86X L174 A44 A47 |CHECK WEAK OR STRONG L2) 81 L3 A61 A45 |REPEAT FOR Y 120 L1.5 (A48) A44 |COMPACT FOR ADJACENT 150'S 04Y A44 L1.6 A44 |PICK UP CHAP CHANGE OR CORE JUMP 65 L131 A44 |INTCHAP IF NOT IN 1ST CHAP 75 (A44) (511) |JUMP DIRECT IF IN 1ST OHAP|CHEOK L0? L4) +24,3,63,15,48,63,35,56 |TABLE FOR 1ST 120 +63,63,63,63,60,3,56, L1.4)L1.6) +61,31,39,30,10,24,,+L1.7 |ENTRY 150/1|Y TABLE +34,32,8,33,,32,,+L1.8 |150/2 00S L304 L305 0 |150/10 F9 15 L306 F9 39 L307 00S L308 L309 0 |150/11 F9 15 L310 F9 39 L311 00S L312 L313 0 |150/12 F9 15 L314 F9 39 L315 00S L316 L318 0 |150/13 F9 15 L317 F9 39 L319 L1.5) +62,63,63,38,7,48,,+L1.0 |150/15 |TABLE FOR 2ND 120 00S L692 L693 0 |150/16 F9 15 L694 F9 39 L695 00S L388 L389 0 |150/17 F9 15 L390 F9 39 L391

Page 66

00S L320 L321 0 |150/20 F9 15 L322 F9 39 L323 00S L324 L245 0 |150/21 F9 15 L325 F9 39 L326 00S L328 L248 0 |150/22 F9 15 L248 F9 39 L329 00 0 L1.1 |150/23 00S L330 L331 0 F9 15 L332 F9 39 L333 00 0 L1.9 |150/25 00S L334 L335 0 |150/30 F9 15 L336 F9 39 L337 00S L338 L339 0 |150/31 F9 15 L340 F9 39 L341 00S L327 L669 0 |150/32 F9 15 L241 F9 39 L342 00S L343 L344 0 |150/33,34,35 F9 15 L345 P9 39 L346 00S L347 L244 0 |150/36 F9 15 L748 P9 39 L348 00S L353 L354 0 |150/40,41 F9 15 L355 |42,43,44 F9 39 L356 L1.3) +60,14,59,63,61,24,,+L1.10 |150/50 |X TABLE +34,16,,,2,,,+L1.11 |150/51 00S L363 L364 0 |150/52 F9 15 L365 F9 39 L366 00S L367 L368 0 |150/53 F9 15 L369 F9 39 L370 00S L371 L254 0 |150/54 F9 15 L583 P9 39 L372 S0 |SLOW 150/1,150/2 L1.8) 60 L1 A60 |150/2 J Y=0 86 L174 A44 L1) 04 A45 (A51) 67 L179 10 A45 |ERROR UNLESS BRANCHED 15 A59 7 64Y L178 (A51) A59 |ERROR NON-EXISTENT BRANCH 04Y A44 2 A40 81 L178 (A41) A44 |ILLEGAL IF PREMODIFIED L815))L816)L1.7) 152 L168 L1.15 |L4 04Y A20 7 A40 |SET A20 AS REQD BY KERNEL

Page 67

114 A40 A1 A62 |SET UP A1.CLEAR A62U 52 A59 24 A17 16 A17 (A60) A23 |PACK UP ADDRESSES FOR KERNEL 57 A61 32 A26 |Z T0 A27,CLEAR A26 86 L685 L242 |TO KERNEL (FAST 150) L865) 75 L205 60 |EXIT TO START|Y USED IN TIME DIRECTI? L817=V2-L816 |LENGTH SLOW 150/1 FOR TIME S0 |150/15 & 150/51 L1.12)L1.0) +63,31,63,63,63,63,63,63 |OFF TS |NOT D6|150/15 ENTRY 70 L1 -1 A60 |J Y=-1 (OK) L1.14)L3) 117S (A40) L205 |USED IN 1ST CHAP 150 145 8 -L205 A63 |SCAN FOR END OF DIRECTORY 64 L207 (A63) |L207 IF FAILED PERIPHS 117 0 (A40) 72 L1.7 (A60) A63 |J IF BEYOND END OF DIRECTORY L1) 04Y (A59) (A60) A40 |WRITE WORD TO STORE 152 L168 L3 |ON TS TO START L1.11) 14 A63 6 |150/51|ARRANGE TO RESET SELF PRES M? 60 L4 (A60) |J BASIC 86 L456 A44 |CHAP CHANGE FOR SBIPS 00S L442 L443 0 F9 15 L444 F9 39 L445 L4)L1.15) 86S L456 L179 A44 |CHAP CHANGE FOR BASIC |Y USED ABOVE 00S L438 L439 0 F9 15 L440 F9 39 L441 S0 |150/23 L1.1) 15 (A60) -1 A54 |LINK ONLY 86 L176 A44 |CHECK LINK 52 A59 24 A44 |STYLE TO A44U 146 L1 A44 A58 |GET STYLE MARKER 15 (A58) 15 A58 |RETAIN ONLY 4 BITS 71 L2 (A58) |J FOUND 86S L218 L179 A62 |IMPOP IF NOT A PERIPH 14 A58 7 |SET 7 IF IS A PERIPH L2) 65 V2+4 (A60) |J IF NOT SETTING OVR 86 L771 A49 A44 |TO SET OVR 00S L779 L780 0 F9 15 L781 F9 39 L782 26 A54 10 115 A54 (A58) A41 |LINK AND STYLE 7 MARKER L3) 72 L7 3 A58 |J IF LESS THAN *JUM 04Y A63 5 A40 52 A63 30 65 L7 A63 |J STYLE 7 MARKER 17X 5 (L1.13) A40 L7) 05X 2 L4 A40 |CLEAR OLD STYLE 7 & LINK 06X 2 A41 A40 |OR IN OVR.LINK & STYLE 7 06 (A40) L5

Page 68

10 A29 1 |INTERPRETER BIT 04 A63 (A40) 76 L206 L6 A63 |J DIRECTIVE BIT ABSENT 05 (A40) L6 |REMOVE DIRECTIVE BIT 14 A41 9 |SET A41 FOR DIRECTIVES 83 L448 A29 |ENTER DIRECTIVES ADJUSTING A29 L4) 00Y -1 0 -1 L1) +*OWN....1 |TABLE OF STYLE MARKERS +*SIG....2 +*JUM....3 +*FOV....5 +*OVR....6 +*DRU....7 +*IMP....8 +*PFN....9 +*PFP....9 L5) +2048.... |END OF TABLE |INTERPRETER BIT L6) -1024....-1 |NOT DIRECTIVE BIT S0 L898))L899)L900) |150/25 L1.9) 70 L5 (A59) A43 |NO LINK A0 CASE 05 (A59) L1 A54 |LINK & STYLE 7 MARK 86 L176 A44 |CHECK LINK 65 L4 (A59) |J UNLESS OVR TO BE SET 86 L771 A49 A44 |TO SET OVR 00S L779 L780 0 F9 15 L781 F9 39 L782 L4) 110 A41 L1 A54 |LINK & STYLE 7 MARK 05 (A59) L2 A63 |OLD STYLE OF SUSPENSION 06 (A40) A63 |INSERT SUSPENSION STYLE L5) 116 0 (A51) 70 L3 (0) |J NOT BRANCHED OR NOT PUSHED DOWN 11 (A51) 1 |1 LESS PUSH DOWN L3) 86 L456 A44 |JOIN RUN 00S L818 L875 0 F9 15 L819 F9 39 L820 L1) 154S 0 -1 0 |MASK FOR PARTS OF LINK L2) +31.... |MASK SUSPENSION STYLE L901=V2-L899 S0 |150/50 L1.10) 86 L689 A41 A57 |D TO A52,J TO A54 STEP A41 86 L176 A44 |CHECK J 04 A36 A54 |PRESERVE J 60 L179 A60 |IMPOP IF LENGTH ZERO 04 A53 A52 |D T0 A53 AS REGD BY INTERPRETER 117Y 0 (L167) A60 72 L177 (A59) A42 |CHECK CORE FINISHING ADDRESS 10 A60 (A53) A45 |FINISHING DRUM ADDRESS 04Y A55 -1 A40 |DRUM RESERVATINS 51 A55 24 A49 12 A49 |LENGTH T0 A49 04 A44 L1 |CHAP CHANGE TO INTERPRETER

Page 69

64 L2 A49 A49 |J DRUM ADDR TOO LARGE |(TO INTERPRETER) 04Y A63 5 A40 76 L4 L1.12 A63 |J NOT *DRU STYLE 2 L2) 14 A52 2049 |SET MODE 2 86 L131 A39 |TO INTERPRETER L4) 111 A41 -1 A36 |J ADDRESS 141.1Y 0 (A55) A53 |DO TRANSFER 142 (A59) (A60) L1.2) 75Y (L1.14) -16-L249 63 L1) 00S L232 L233 0 F9 15 L233 F9 39 L234-L233 S0 |USEFUL SUBROUTINES |CHECKS 2ND WORD & UNPACKSIT X TO A52 Y TO A54 Z TO A55 L689) 04Y A55 -1 A57 |COPY 86 15 (A55) -1 A55 |PICK UP ADDRESS OF WORD TO BE UNPAO? 72 L177 (A55) A42 |CHECK IT 15 A41 -1 A53 61 L3 A53 A55 |J UNLESS NEXT WORD 10 A41 1 |STEP A41 ROUND IT L3) 57 (A55) 24 A52 |A52=X(24 BITS) A53=RX,RY ETC 65 L1 A53 |J X NOT REPLACED 15 A52 -1 A54 86 L174 A44 |CHECK X 25 (A52) 9 A52 |REPLACE X 24 BITS L1) 15 (A55) -1 A54 |Y 76 L2 L182 A53 |J Y NOT REPLACED 86 L174 A44 |CHECK Y 15 (A54) -1 A54 |REPLACE Y 15 BITS L2) 53 (A55) 16 A55 15 A55 63 |Z 6 BITS 87 0 A57 L872))L771) 04Y A45 -1 A44 |PICK UP 86 14Y (A45) 1 A44 |SET LINK AS WORD BEYOND CHAP CHANGE L772) 75S L456 L207 |DO CHAP CHANGE |FINDPER L218) 52 A59 24 A63 |PERIPHERAL TO A63U L1.13) 116 (A40) 0 2 146 8 A63 A63 |SCAN DIRECTORY 62 (A62) (A63) |OBEY LINK IF FOUND 52 (A40) 7 A63 |FAIL PER BIT 64 L207 A63 |TO L207 IF THERE ARE FAILED PERIPHS 87Y 0 -1 A62 |TO Y ADDRESS OF 86 |RESERVATION CHECKER &ENTRIES TO PROGFAIL X L890 0 L174) 75 L896 |WEA RES IN KERNEL X L890 1 L174) 70 (A44 (A54) A43 |READ OK IF A0 L175)L176) 73 L177 (A54) A43 |RESVI NOT >A0 73 (A44) (A54) A42 |RESVI>UPPER RESERVATION L177) 116 0 6 |A50=7 FOR RESVI

Page 70

L178) 116 0 1 |A50=1 FOR ILLINT L179) 14 A50 |A50=0 FOR IMPOP L784) 86 L456 A44 |TO PROGFAIL 00S L425 L446 0 F9 15 L426 F9 39 L427 S0 |START L209))L205) 04X 2 A41 A40 |STORE LINK ETC IN W2 L206) 116 0 -1 |SET TO EXIT TO L161 L207) 14 (L1) L162 |OR L162|CHECK LPCKOUTS L208) 120 0 -1 0 |OFF TS |MASK FOR STARTABLE 04 A17 A40 71 L2 L162 A45 |J NOT ENTERED AT L207 86 L165 64 A24 |PUT BACK INTERPRETER BIT L2) 123 A18 (A40) 0 |WORD 0 TO A18 & CLEAR A19 04 A20 (A51) |1ST WORD BRANCH DIRECT OR ZERO 77 L1 L208 A18 |EXIT THIS BRANCH NOT STARTABLE 60 L8 A20 |J NOT BRANCHED L763)L3) 116X (A51) 8 A19 |OR ALL WORDS 0 TOGETHER 06 (1) A10 A18 |INTO A18 81 L3 7 A19 77 L1 L208 A18 |EXIT ANY NOT STARTABLE 115 A0 1,60 A19 |A19=MARK FOR BRANCH SUSP & COUNT L4) 04Y A17 (A51) A19 |NEXT WORD 0 L8) 15 (A17) -1 |START BRANCH 63Y L6 -2 A17 |J NOT IN PQ 112 (A17) 8 A29 |STOP 2 BITS 25X 4 9 A17 |CLEAR REQUIREMENT L6) 67 L1 10 A20 |FINISHED IF TEMP, UNBRANCHED 76 L7 L208 A17 |J NOT WAITING OTHER BRANCH 112 (A17) 8 A19 |STOP 4 BITS L7) 81 L4 8 A19 |COUNT BRANCHES L1) 152 L168 A45 |ON TS OBEY LINK L239) L413=L239-L226 |LENGTH 1ST CHAP 150'S L873=L239-L771 X V2 A512 |CHECK FINISHES IN RIGHT PLACE *1ST CHAP 150'S WRONG LENGTH X L890 0 ( V3=V1 V0=L763 L910) 75 L907 8 |J TO FRIG 77 L911 L208 A18 |J IF REASON FOR NOT STARTING 115 A0 1,60 A19 L9) 04Y A17 (A51) A19 04 A21 (A17) |W0 TO A21 77 L7 L908 A21 |DONT START THIS BRANCH IF SUSP 16+N V0=V2+7 81 L9 8 A19 L911) V1=V3 ) |FIRST CHAPTER OF DIRECTIVES S1

Page 71

V2=A306 |ARRANGE TO FINISH IN 511 L270))L269) S0 |ENTER L1.3) 77 L179 L2 A51 |ERROR IF BRANCH 2-7 04Y A61 -1 A40 |DRUM DATUM 141.1Y 0 L222 A36 |READ RESERVATIONS FROM DRUM 142 A62 1 51 A62 24 22 A62 1 |A62=N-1 (N=DRUM RESVTN) 52 A59 1 A54 |TWICE ENTRY NO. 75 L179 (A54) A62 |IMPOP IF ENTRY NO, TOO LARGE 141.1Y 0 (A61) A54 |READ ENTRY PAIR 142 A52 2 |C,M TO A52 D,J,L TO A53 57 A52 24 A57 |C TO A57 M,D TO A58 15 A53 -1 A54 86 L176 A44 |CHECK J(JUMP ADDRESS) 15 A57 -1 A54 |C, CORE STARTING ADDRESS 86 L175 A44 |CHECK IT 15 A52 -1 |M, NUMBER OF WORDS 117Y 0 (A52) A54 |RESVI IF C+M-1 72 L177 (L167) A42 |GREATER THAN UPPER RES 10 A52 (A58) A36 |DRUM FINISHING ADDRESS 11 A36 1 |A36=D+M-1 62 L179 A36 A62 |IMPOP IF TOO LARGE 53 A53 16 A54 15 A54 63 |PICK UP L, LINK 60 L3 A54 |J N0 LINK 00 A54 A43 |ADD IN DATUM 86 L175 A44 |CHECK L 04Y A55 2 A40 |OLD CONTROL NO. 52 A63 24 110 A55 L4 A63 |INSERT SUSPENSION STYLE IN TOP L3) 86 L771 A50 A44 |TO MONOUT/E1 00S L267 L134 0 F9 15 L136 F9 39 L273 70 L9 (L272) |J NO MON PERIPH 86 L134 L1.7+4096 A50 |SEND ENTERED SP 101 A60 L11 A59 |CONVERT ENTRY NO, INTO A60 86 L134 A60+4096 A50 |SEND ENTRY NO, 86 L135 A50 |NL 86 L742 A50 |MONOUT/E4 L9) 60 L5 A52 |J ROUND DRUM TRANSFER IF ZERO LENGTH 141.1Y 0 (A58) A61 |DO TRANSFER 142 (A57) (A52) L5) 15 A53 -1 |CLEAN JUMP ADDRESS 116 (A40) 112 2 15 A53 |INSERT IT LEAVING PERIPH NAME 86 L809 L811 |REMOVE PROGFAIL BITS 05 (A40) L1.5 |REMOVE SUSPENSION STYLE FROM MASTER 60 L1 A54 |J NO LINK 04 (A54) A55 |STORE LINK 60 L205 (A51) |FINISHED UNLESS BRANCHED 81 L205 (A51) |PUSH DOWN & J TO START L1) 60 L205 (A51) |NO LINK, FINISHED UNLESS BRANCHED 24 (A51) 10 |CLEAR PUSHED DOWN COUNT 14 A62 7 |BRANCH COUNTER L8) 04Y A63 (A51) A62 |WORD FROM BRANCH DIRECTORY

Page 72

64 L7 A63 |J NON-EXISTENT 05 (A63) L1.5 |REMOVE SUSPENSION 25X (A51) 9 A62 21X (A51) 8 A62 |MAKE AWAIT BRANCH 1 L7) 83 L8 1 A62 |COUNT DOWN TO BUT NOT INCL. BRANCH I 25X (A51) 9 A62 |START BRANCH 1 75 L205 |EXIT TO START L2) +16,,,,,,,-1 |MARK FOR BRANCH NUMBER L4) +63,63,56,, |FOR INSERTING SUSP STYLE L11) +100000000 |RADIX WORDS +58,58,58,58,58,58,58,26 S0 |HALT & RUN L1.2) 75 L1 2 A63 |HALT . J SUSP STYLE 0,1,2 72 L205 7 A63 |DUMMY IF IN RANGE 3-6 L1) 05 (A40) L1.5 |REMOVE SUSPENSION STYLE 21 (A40) 8 |MARK HALTED 86 L809 L811 |REMOVE PROGFAIL BITS L818))L819)L6) 75S L205 L4 |EXIT |Y USED AT L5-1 L1.1) 25X 4 9 A40 |REM FROM PERIPH Q 75 L2 2 A63 |J SUSP STYLE 0,1 OR 2 72 L179 7 A63 |IMPOP IF STYLE 3-6 L2) 05 (A40) L1.5 |REMOVE SUSPENSION STYLE L875) 10 A51 1 A52 |SET COUNTER 1 IN CASE NOT BRANCHED 04 A53 A40 |A53 POINTS TO DIRECTORY 60 L3 (A51) |J NOT BRANCHED 116 0 (A51) 71 L7 (0) |J IF TEMPORARILY UNBRANCHED 10 A51 8 A52 |SET BRANCH COUNT L4) 82 L205 (A51) A52 |TO START WHEN FINISHED 64 L4 (A52) |J NON-EXISTENT L7) 04 A53 (A52) |NEXT WORD 0 L3) 04Y A54 2 A53 |WORD 2 76 L4 L5 A54 |J STYLE 7 MARK=0 L1.5) 157XY (-32) (-1) -1 |OFF TS, MASK SUSPENSION STYLE 04 A17 A53 86 L165 64 A24 |TO STOP ,PUT IN INTERPRETER BIT 152 L168 L6 |ON TS , TO L4 L5) 03XY (-1) (-1) -1 |MASK FOR STYLE 7 MARK L820=V2-L819 S0 |INITIAL SWITCH L814) 70 L1.0 L141 A40 |ENTRY, 5 IF RES, LINE PARITY L4) 116 (A40) 38,7 |Y=TABLE OF DIRSALLOWED IN PROG 0 121 7 24-38.7 A51 |SET UP A51 53 A51 15 A36 15 A36 15 |PROG NUMBER TO A36 04Y A22 L2 A36 |PICK UP ADDRESSES 53 A22 24 A59 |FIRST ADDRESS TO A59 25 A22 9 A60 |SECOND ADDRESS TO A60 53 (A40) 24 A63 15 A63 31 |STYLE OF SUSPENSION TO A63 70 L179 6 A63 |IMPOP IF SUSPENDE STYLE 6 04Y A41 2 A40 |SPOIL A41 (FOR SELF-PRESERVING MAR?

Page 73

121 A41 -33 A49 15 A49 15 |DIRECTIVE NUMBER TO A49 71 L1 (A36) |J NOT PROG 0 121 L4 (A49) A62 65 L179 A62 |IMPOP IF ENTER,MONI,OUTP,ALLOC IN PR? L1) 04Y A44 L3 A49 |CHAP CHANGE WORD 65 L131 A44 |J IF IS CHAP WORD L3) 75 (A44) L1.1 |J IF CORE JUMP|ENTRY FOR RUN 00S L808 L1.2 0 |ENTRY FOR HALT F9 15 L809 |READ SR TO REMOVE PROGFAIL BITS F9 39 L810 00S L308 L797 0 |ENTRY FOR ABOLISH F9 15 L310 F9 39 L311 00S L308 L881 0 |ENTRY FOR ABANDON F9 15 L310 F9 39 L311 00S L808 L1.3 0 |ENTRY FOR ENTER F9 15 L809 |READ SR TO REMOVE PROG FAIL BITS F9 39 L810 00S L320 L321 0 |ENTRY FOR MONITOT F9 15 L322 F9 39 L323 02S L334+5 L1.4 0 |ENTRY FOR OUTPUTON F9 15 L1.0 |READ 4 DEVICE TYPES 00S L384 L385 0 |ENTRY FOR ALLOCATE F9 15 L386 F9 39 L387 00S L388 L389 0 |ENTRY FOR DIRE F9 15 L390 F9 39 L391 00S L392 L393 0 |ENTRY FOR PRINT F9 15 L394 F9 39 L395 00S L338 L339 0 |ENTRY FOR RELINQUISH F9 15 L340 F9 39 L341 00S L316 L807 0 |ENTRY FOR ANSWER F9 15 L317 P9 39 L319 00S L815 L1.6 0 |ENTRY FOR TIME F9 15 L816 |READ SLOW 150/1 F9 39 L817 L746))L2) V0=V2+16 |TABLE OF ADDRESSES S0 |RESERVATION LINE PARITY FAILURE L1.0) 141.1 0 L268 |READ FLAS 142 L136 L273 86 L134 2,,L1 A50 |SEND MASSAGE 86 L135 A50 |NL & PRINT 75 L162 |EXIT L1) +4,50,37,51,31,48,33,50 |TB RES,PAR +41,52,57,,38,33,41,44 |ITY FAIL |TIME L1.6) 34 A59 (L865) |CONVERT TO MINUTES |CHECK LOCKOUTS 14 A61 1 |SIMULATE 150/1

Page 74

83Y L816 2 A40 |TO 150/1, -1 FROM LOINK TO COMPENSAT? S0 |OUTPUTON L3) 52 A59 19 A61 |SHIFT UP TYPE 146 L1.0 A61 A61 |SCAN PERMITTED TYPES 73 L179 L1.0+4 A61 |IMPOP IF NOT PERMITTED TYPE L2) 86 L771 A55 A44 |TO GETOUTPUTDEV 00S L380 L381 0 F9 15 L382 F9 39 L383 67 L177 4 |RESVI IF NONE AVAILABLE 74 L1 31 A59 |J IF TYPE SPECIFIED 53 (A48) 32 A48 |SHIFT DOWN TYPE OF ONE FOUND 111 A59 -32 A48 |& INSERT IT IN A59 L1.4) 60 L1 A59 |ENTRY , J IF FLEX REQD 75 L2 31 A59 |J 1ST TIME NO TYPE SPECIFIED 86S L218 L3 A62 |J TO L3 IF NONE RESERVED L1) 86 L456 A44 |ENTER 150/22 00S L328 L248 0 F9 15 L248 F9 39 L329 S0 04Y A45 -1 A44 |L771(SEE 150'S) 14Y (A45) 1 A44 75S L456 L207 52 A59 24 A63 |FINDPER 116 (A40) 146 8 A63 A63 62 (A62) (A63) 52 (A40) 7 A63 64 L207 A63 87Y 0 -1 A62 X L890 0 75 L896 |WEA RES IN KERNEL X L890 1 70 (A44) (A54) A43 |RES CHECKER L174 73 L177 (A54) A43 |L175 L176 73 (A44) (A54) A42 10 L10 L422-L421 |L177,RESVI TO L422 L794))L806) 11 L10 L423-L421 |L178 FROM START TO L421 86 L456 A44 |L179 IMPOP TO L423 L10) 00S L435 L423 0 |CHAP CHANGE TO INPUT F9 15 L436 F9 39 L437 L1.7) +37,46,52,37,50,37,36, |ENTERED SP 04YS A62 2 A40 |L205, PICK UP PERIPH NO 116 0 L178-L162 |END UP AT L178 14 (L1) L162 |L207, END UP AT L162, CHECK LOCKOUT

Page 75

120 0 -1 0 |L208 MASK STARTABLE |OFF TS 04 A17 A40 71 L2 L162 A45 |J NOT L207 86 L165 32 A24 |PUT IN DIRECTIVE BIT L2) 123 A18 (A40) 0 |WORD 0 TO A18|CLEAR A19 04 A20 (A51) |1ST WORD BRANCH DIRECT OR 0 77 L1 L208 A18 |FINISHED THIS BRANCH NOT STARTABLE 60 L8 A20 |J NOT BRANCHED L3) 116X (A51) 4 A19 06 (1) A14 A18 |OR ALL WORD 0S TOGETHER 81 L3 7 A19 |INTO A18 77 L1 L200 A18 |EXIT ANY NOT STARTABLE 115 0 1,60 A19 |A19=MASK FOR BRANCH SUSP, & COUNT L4) 04Y A17 (A51) A19 |NEXT WORD 0 L8) 15 (A17) -1 |START BRANCH 63Y L6 -2 A17 |J NOT 1N PQ 112 (A17) 8 A29 |STOP 2BIT5 25X 4 9 A17 |CLEAR REQUIREMENT L6) 67 L1 10 A20 |FINISHED IF TEMPORARILY UNBRANCHED 76 L7 L208 A17 |J NOT WAITING OTHER BRANCH 112 (A17) 8 A19 |STOP 4BITS L7) 81 L4 8 A19 |COUNT BRANCHES L1) 152 L168 A45 |ON TS OBEY LINK L795=V1-L794 L408=V2-L269 L471=L794 L472=L806 L473=L795 X V2 A512 |CHECK FINISHES IN RIGHT PLACE *1ST CHAP DIRECTIVES IN WRONG PLACE X L890 0 ( V3=V1 V0=L763 75 L907 4 |J TO FRIG 77 L911 L208 A18 |J REASON FOR NOT STARTING 115 A0 1,60 A19 L9) 04Y A17 (A51) A19 04 A21 (A17) |W0 TO A21 77 L7 L908 A21 |DONT START THIS BRANCH IF SUSP 16+N V0=V2+7 81 L9 8 A19 V1=V3 ) C 0 127 |CORE STORE PARITY FAILURE X L662 2 |FOR ORION 2 ALSO SEE MAGS FAILS ( V2=L635 |GO BEYOND FRIGGED TIME-SHARER S0 L396))L397) L398=L397 17 L142 (L142) |SPOIL SELF PRESERVATION 61 L15 A40 |J UNLESS AL J,L,O, 81 L162 (L13) A29 |RETURN STEPPING A29 | CHECK LOCKOUTS L15) 04 L447 (L14) |FRIG KERNEL TO JUMP TO L2 |ON PARITY FAIL. CHECK LOCKOUTS L5) 157 L397 L136 |OFF TS, MON PER WORD

Page 76

14 A45 1 |SET MODIFIER 140.13 0 L146 |ABANDON CURRENT TRANSFER L4) 155S 0 L3 |ON FLEXOWRITER 152 L168 L4 |ON T,S TO L3 L1) 77 L2 L183 A16 |WORD FOR FRIGGING KERNEL L3) 14 L144 L5+1 |SET MONPER(FLX)TO START AGAIN 10 L145 L253 14 L265 L146 |K FLOUT T0 L265 140.22 |OUTPUT MESSAGE 142 L6 36 L7) 04 A16 (A45) |LOOK AT NEXT WORD 81 L7 L149 A45 |COUNT TO END OF STORE 140.22 |IF NO FAILURE FOUND 142 L16 24 |OUTPUT NOT FOUND & END ETC, L9) 75S L9 L8 |LOOP STOP|Y USED IN 152 AT L2 L16) +46,47,52,,38,47,53,46 |NOT FOUN +36,7,7,7,7,7,7,7 |D DUMMIES L17) +2,13,37,46,36,2,2,14 |NL PN END NL NL PF L2) 152 L168 L9 |ENTRY ON FAIL ,ON TS L8) 101 A46 L10 A45 |CONVERT ADDRESS TO DECIMAL 06 A46 L11 |OR TEXT IN 101 A45 L12 |CONVERT ADDRESS TO OCTAL 06 A45 L13 |OR TEXT IN 04 A47 L17 |END ETC, 140.22 |OUTPUT 1 142 A45 24 |DECNOCTNNL END ETC L14) 75 L14 L1 |LOOP STOP|Y USED AT L397 L6) +13,6,24,5,25,7,2,14 |PN CROSSED() NL PF +2,7,47,50,41,47,46,4 |NLUCORIONTB +35,47,50,37,,48,33,50 |CORE PAR +41,52,57,,38,33,41,44 |ITY FAIL +53,50,37,4,,,, |URENL L10) +100000000 |DEC, RADIX +10,10,10,10,10,10,10,26 | L11) +36,37,35,,,,, ' |DEC L12) +32768000 |OCT RADIX +10,10,10,8,8,8,8,24 | L13) +47,35,52,,,,, |OCT L18) L399=L18-L397 |LENGTH ) |DRUM REPEATS & FAILURES V2=L136+100 S0 L400))L402) +13,6,24,5,25,7,2,14 |PN CROSSED () NL PF +2,2,47,50,41,47,46,4 |NL NL ORION TB +38,33,41,44,53,50,37,4 |FAILURE TB X L662 2 ( L1) +36,50,53,45,,,,4 |DRUM +52,50,35,43,,,,4 |TRCK ) X L662 1 ( L1) +28,36,50,53,45,,,4 |½DRUM +34,33,46,36,,,,4 |BAND ) +55,47,50,36,,,,2 |WORD

Page 77

L2) +7,7,7,7,7,7,7,4 +35,47,33,55,50,,, |COAWR X L662 2 ( L401) 53 A33 14 A55 53 A33 7 A56 |CONVERT DRUM ADDRESSES TO 15 A56 127 |DRUM IN 55 TRACK IN 56 15 A33 127 A57 |WORD IN 57 ) X L662 1 ( L401) 53 A33 13 A55 |DIFFERENT DRUM ON ORION 2 53 A33 8 A56 15 A56 31 15 A33 255 A57 ) 14 A63 |CLEAR MODIFIER L4) 101X A55 L3 A63 |CONVERT COMPONENT 00XY L1 A55 A63 |ADD INTO TEXT 81 L4 3 A63 |COUNT 3 COMPONENTS 57 A34 48 A62 |CLEAR A62 INTERROG,INF TO A63 L6) 56 L2 6 |NEXT CHAR 64 L5 A63 |J IF BIT PRESENT 53 L2 6 |SHIFT OFF UNWANTED CHARACTER L5) 52 A63 1 |NEXT BIT 81 L6 5 A62 |COUNT BITS 53 A63 29 A62 |CURRENT ADDRESS 101 L2+1 L3 A62 |CONVERT IT 15 A34 -1 A62 |FINISHING ADDRESS 101 L401 L3 A62 |CONVERT IT 04 L401+1 L14 |END ETC, 61 L7 L153+1 A15 |J UNLESS DISASTER 14 L265 L146 |SET K FLOUT 140.22 |CUTOUT ORION FAILURE DRUM D TRCK T 142 L402 80 |WORD W NL COAWR ADDRESSES NL END NW L8) 75 L8 |STOP L3) +10000000 |RADIX WORDS +10,10,10,10,10,10,26,1 L7) 114 L9 A44 A41 |CHAP CHANGE TO FLAS DESTROY A41 86 L131 1,,L10 A50 |SEND TB REPEAT SP 14 A61 L741 |MAX NO OF REPEATS 11 A61 (L740) A62 |NUMBER ACTUALLY DONE TO A62 101 A62 L3 86 L134 1,,62 A50 |SEND NUMBER OF REPEATS 86 L134 5,56,L1 A50 |SEND DRUM D ETC &ADDRESSES 71 L11 (L740) |J REPEATED SUCCESSFULLY 06 (A40) L12 |SUSPEND PROGRAM 86 L134 48,L13 A50 |TB SUSPD L11) 86 L135 A50 |NL & PRINT 111 L740 -1 A61 |RESTORE REPEAT COUNTER 24 A33 10 |MARK DEALT WITH 70 L162 L141 A40 |EXIT IF PSIND 86 L456 A44 |OTHERWISE TO START 00S L876 L206 0 F9 15 L205 F9 39 L239-L205 L9) 00S L268 L134 0 |CHAP CHANGE TO FLOUT

Page 78

F9 15 L136 F9 39 L273 L10) +4,50,37,48,37,33,52, |TB REPEAT SP L12) +4,,,, |FOR SUSPENDING L13) +4,51,53,51,48,36,, |TB SUSPD L14) +2,13,37,46,36,2,2,14 |NL PN END NL NL PF L403=V2-L402 |JDRE CHAPTER 1 V2=L136 S0 L450))L452) +47,50,41,,,,1 |TABLE OF ILLEGAL JOB=NAMES|ORI L1) +42,47,34,,,,+L2 |JOB +36,47,35,,,,+L3 |DOC +37,46,36,,,,+L4 |END +50,37,50,,,,+L2 |RER L451) 120 L5 (A62) A61 |ENTRY MOD FOR STORING DOCUMENT 52 A61 3 |NAMES RELATIVE TO L299 53 A52 6 |WORD DOWN 1 CHAR 146 L1 A52 A60 |FIND DIRECTIVE 15 (A60) -1 A59 |COLLATE OFF ADDRESS 60 L235 A59 |ERROR IF NOT FOUND 53 A52 12 A56 |DIRECTIVE TO A56 FOR ERRORS X L917 0 |SKIP NO IL ( 71 (A59) 48 A63 |SWITCH IF NOT IL 71 L235 L3 A59 |ERROR UNLESS DOC ) 75 (A59) |SWITCH L4) 86 L454 A41 |END, TO CLOSE 140.16 |DISENGAGE READER|END OF 146 SEARCH L6) 142 0 0 4 |DOC PRESENT BIT L14) 75 L162 -64 |EXIT |MASK TO TEST FOR MULTIPLE OF 64 L457))L5) V0=L5+1 |TABLE OF DOC ADDRESSES SET BY INTERU? L2) 86S L260 L262 A54 |READ JOB NAME 53 A52 6 A59 |DOWN 1 CHAR FOR 146 SEARCH 146 L452 A59 A59 |SCAN ILLEGAL NAMES 72 L235 L451 A59 |ERROR IF FOUND 14 A40 L141 |SET A40 TO SCAN JOBS L7) 15 (A40) -1 A40 |NEXT PROGRAM 70 L8 (A40) |EXIT NOT FOUND(END OF CHAIN) 117 0 3 61 L7 (A40) A52 |J NOT NAME OF THIS JOB 70 L235 L1 A60 |ERROR IF JOB & NAME EXISTS 86 L454 A41 |FOR RERUN TO CLOSE 86 L456 A44 |T0 RERUN CHAPTER 2 00S L9 L10 0 F9 15 L10 F9 39 L11 L8) 71 L235 L1 A60 |ERROR IF RERUN, NEW NAME 85 L235 A52 |ERROR 8 CHARS IN JOB NAME 04 A59 A52 |PRESERVE JOB NAME IN A59 121Y A52 6 A53 |LAST CHAR TO TOP 65 L235 A52 |ERROR IF LAST CHARACTER DIGIT 86 L261 L455 A54 |READ CORE REQD TO A52

Page 79

04 A38 A52 |REMEMBER IT IN A38 74 L235 L15-L709-16 A52 |ERROR IF MORE THAN TOTAL STORE 73 L12 L465 A52 |J IF > THAN MIN FOR BASIC 14 A52 L465 |SET MINIMUM L12) 10 A52 79 A60 |ROUND TO NEXT NUMBER OF FORM 111 A60 63 |64N-16(A60INCLUDES SPACE FOR DIRECT? 04 A36 62 |PRESERVE POSITION IN PLIST OF READER 71 L13 2 A43 |J DATUM SPECIFIED 86 L454 A41 |TO CLOSE 86 L456 A44 |ENTER JOB CHAP 2 AT L463 00S L286 L463 0 F9 15 L769 F9 39 L464 L13) 86 L260 L455 A54 |READ DATUM 77 L235 L14 A52 |ERROR NOT MULTIPLE OF 64 72 L235 L709 A52 |ERROR < L709 00 A52 A60 A41 74 L235 L15 A41 |ERROR NO ROOM BEFORE END OF STORE 86 L454 A41 |CLOSE 04 A36 A62 |PRESERVE PERIPH IN A36 26 A38 10 |SET FIXED DATUM MARK FOR BASIC 86 L456 A44 |ENTER JOB CHAP 2 AT L462 00S L286 L462 0 F9 15 L769 F9 39 L464 X L707+L890 0 L15=L149-128 |AT NIRNS OBJECT PROGS FINISH AT L1? G15=L149-64 |OTHERWISE AT L149-64 L3) 86 L798 A57 |DOCUMENT. READ NAME TO L136 86 L454 A41 |CLOSE INPUT 141.21Y 0 L299 A61 142 L136+1 8 |WRITE IT AWAY 16X L252 (L6) A62 |INSERT DOCLOADED BIT INTO PLIST 141.1 0 L255 142 L238 L292 |READ SWITCHON 86 L238 2 A63 |SWITCH ON ALL AWAITING DOC 75 L162 |EXIT L453=V2-L452 |LENGTH OF JDRE CHAP 1 V2=L136+50 |RERUN CHAP 2 L9))L10) 04Y L16 3 A40 |JOB NAME 143 L16+1 6 |6 BLANK COMPONENTS 141.21Y 0 L299 A61 |WRITE UP PSEUDO DOC-NAME 142 L16-1 8 16X L252 (L6) A62 |MARK DOC PRESENT 120 (A40) 4 A59 71 L161 3 A59 |EXIT NOT SUSPENDED 05 (A40) L17 A63 |SUSPENSION STYLE 61 L161 L18 A63 |EXIT NOT AWAITING RERUN 01 (A40) L18 |SWITCH IT ON 141.1 0 L209 |READ START 142 L205 L239-L205 04Y A51 7 A40 |SET A51 AS USUAL 121 A51 24 75 L206 |TO START(OBEY 150/10 AGAIN)

Page 80

L17) +15,,,, |MASK SUSPENSION STYLE L18) +3,,,, |STYLE 3 +1 |* FOR PSEUDO DOCNAME L16) L11=L16-L10 |REST OF PSEUDONAME |LENGTH OF RERUN |UPDATECLIST A SUBROUTINE T0 ALLOCATE CORE STORE |ENTER AT L259 TO RESERVE (A56) WORDS STARTING AT (A55) |ENTER AT L290 TO FREE (A56) WORDS STARTING AT (A55) |ENTER AT L768 TO RESERVE (A56) WORDS WHEREVER CONVENIENT - LEAVES ADDRESS IN A55 |WRITES CLIST BACK TO DRUM UNLESS 86 SIGNALLED OR REGION NOT AVAILABLE - IF NOT AVAILABLE LEAVES |CLIST ENTRY OF MAX, AVAIL. IN A62 & EXITS SETTING OVR |L288=LENGTH OF CLIST WHICH STARTS IN L288+1, ENTRIES HAVE ADDRESS IN MS½, LENGTH IN LS½, |LENGTH MAY BE ZERO TO MASK 2 ADJACENT PROGRAMS C 0 63 V2=0 |UPDATECLIST CHAPTER 2 L10) 141.1 0 L9 |RESTORE CHAP 1 (OBEYED AT L768) 142 L768 L14 14 A55 L709 |TRY BEGINNING OF STORE|ENTRY CHAP 2 75 L768 (L288+1) A56 |J AVAILABLE 10 L288 L288-1 A57 |END OF CLIST 24 A55 9 |FOR SMALLEST SUFFICIENT REGION 14 A62 |FOR LARGEST AVAIL, REGION L5=V2+L768 04 A58 (A57) |NEXT CLIST ENTRY 74 L6 (A58) A56 |J TOO SMALL 72 L6 (A58) A55 |J>PREVIOUS SMALLEST SUFF, L237)) 12 A56 L3 A55 |LAST POSSIBLE ADDRESS 60 L768 A62 |J IF END OF STORE AVAIL 04 A55 A58 |PRESERVE IT L6=V2+L768 74 L7 (A58) A62 ||J < MAX AVAIL UNSET END STOR? 04 A62 A58 |SET MAX AVAIL, L7=V2+L768 83 L5 L288 A57 |COUNT THROUGH CLIST 53 A55 24 |DATUM TO NODIFIER 61 L768 A55 |J FOUND OR RUN INTO L13 L11=V2 |LENGTH CHAP 2 V2=L136 |CHAPTER 1 L768)L769)L286))L9)) 141.1 0 L10 |READ & ENTER CHAP 2 142 L768 L11 L289) 86 L1.1 A62 |TO RESERVE PARTIC REGION 142X 1 0 57 |COPY DOWN REST 142Y (A57) L1 A58 04Y A58 -1 A57 53 A58 24 A62 |BEGINNING OF PREVIOUS REGION 02 A62 A55 117 -1 112 (A57) 9 A62 12 A62 (A58) 64 L13 A62 A56 |J NOT ENOUGH ROOM L12) 14Y (A57) (A55) A56 |START OF NEW FREE REGION 52 (A57) 24 00 (A57) A62 01 (A57) A56 81 L2 L288 |EXIT STEPPING NO. OF ENTRIES L1.0) +8,,,,16,,,-1 |TO FORM W5 IN JOB L13) 87X -L13 L13 A63 |SET OVR AND OBEY |LINK (BOTH CHAPTERS)

Page 81

L14 = V2-L768 L287))L288) L1 = L288+1 X L707+L890 0 L3 = L149-128 G3 = L149-64 +2 |LENGTH OF CLIST +L709,,,,L3-L709 |INITIAL CLIST +L149,,,, |CLIST TERMINATOR V0 = L288+18 L762 = V2-L769 L1.1) 52 A55 24 A58 |SEARCH CLIST 26 A58 9 |ADDRESS,ONES 144 L1 A58 A57 |NEXT ENTRY TO A57 01 L288 A57 A58 |NUMBER LEFT TO A58 87 0 A62 L290) 86 L1.1 A62 |FREEING ENTRY-SEARCH CLIST 00X -1 A56 A57 |ADD LENGTH TO PREVIOUS ENTRY 116XY -1 0 A57 10 0 (0) |COMPLETE AMALGAMATION 142 (A57) 117 0 L288 142X 1 (A58) A57 |COPY UP REST OF CLIST 11 L288 1 |1 LESS ENTRY L2) 65Y L4 -1 A63 |J IF 86 SIGNALLED 141.21 0 L287 |OTHERWISE WRITE UP CLIST 142Y L288 (L288) L683 L4) 87 0 A63 |& EXIT L291 = V2-L769 S0 |JOB CHAPTER 2 L462) 04 A55 A52 |DATUM TO A55 04 A56 A60 |LENGTH 86S L289 A63 |UPDATECLIST RESERVE IF POSSIBLE 66 L1 4 |J RESERVED 116 -4 18 |REJECTED DATUM L9)L3) 116 3 0 58 |REJECTED DRUM |1 MINUTE L2) 116 -4 6 |REJECTED CORE L5) 116 3 6 |REJECTED 15 JOBS L4) 56 L6 0 A56 |REJECTED READER 141.1 0 L268 |READ FLAS 142 L136 L273 140.16 |DISENGAGE READER 142 14 A40 A56 |JOB NAME IN A59 86 L134 L7+5120 A50 |TB REJECTED SP 86 L134 3584+A56 A50 |REASON 86 L135 A50 |NL PRINT 71 L162 4.33.52 A2 |EXIT |DAT +53,45,7,7,35,47,50,37 |UM UCUC CORE L6) +7,50,37,33,36,37,50, |UC READER L7) +4,50,37,42,37,35,52,37 |TB REJECTE

Page 82

+36,,36,50,53,45,7,7 |D SP DRUM UCUC +7,17,21,,42,47,34,51 |UC 15 UC JOBS L463) 04 A56 A60 |SET LENGTH 86S L768 A63 |UPDATECLIST. 67 L2 4 |REJECT IF UNSUEFICIENT CORE L1) 56 A55 0 A42 |REMEMBER DATUM IN 42 LENGTH IN 43 10 A36 L252 A55 |PERIPH TO A55 15 (A55) (L158) A58 60 L8 A58 |J NOT POINTED TO 141.1 0 L281 142 L278 L277-L278 |READ UNPOINT 86S L278 L4 A63 |REJECT IF NONE AVAIL L8) 04 A45 L152 124 A45 -15 A51 |PROG NUMBER 64 L5 A51 |REJECT IF 15 ALREADY 52 A45 (A51) |SHIFT BACK READY TO PUT AWAY 141.1 0 L466 142 L1.1 19 |READ DLIST 00 L1.1+17 L1.1+18 A47 |FORM TOTAL AVAILABLE 72 L3 64 A47 |REJECT IF <64 141.21 0 L287 |WRITE UP CLIST (NOW ACCEPTED) 142Y L288 (L288) L683 04 L152 A45 |TAKE OUT PROG NUMBER 10 L1.1 L1.1+1 A55 04XY 1 0 A55 |COPY DLIST ENTRY 00 A42 A43 A40 11 A40 14 |A40 POINTS TO WO 112 (A55) 9 A40 |NEW ENTRY IN DLIST 10 L1.1 1 |STEP DLIST COUNT 141.21 0 L466 142 L1.1 19 |WRITE BACK DLIST 143 (A42) (A43) |CLEAR REGION FOR PROGRAM 24X -2 8 A40 |SET WORD -2 53 (A55) 24 A55 04X -1 A55 A40 |DRUM DATUM IN LS½ 0 IN TOP OF W-1 13X 1 (L9) A40 |SET W1 TO 1MIN 14Y A41 300 A42 |SET A41 TO BE LINK(A300) 04X 3 A59 A40 |NAME TO W3 11 A43 16 |A43 =REAL LENGTH 10 L10 (A42) |RELATIVISE 2 WORDS 10 L10+1 (A42) |TO BE PLANTED 52 A42 24 A45 10 A45 (A42) |DATUM IN BOTH HALVES 10 A45 (A43) |UPPER RES +1 00 A45 L11 |PUT IN MONITORING & -1 04X 5 A45 A40 |STORE WORD 5 14X 6 (L9) A40 |WORD 6 = 1 MINUTE 52 A51 39 04X 7 A51 A40 |PROG NO TO W7 L12) 142 (A41) 0 4 |2 150'S & |DOC LOADED 142 L10 3 |ILLEGAL COMPONENT TO OBJECT PROG 04X 303 A59 A42 |NAME TO A303 14X 310 20 A42 |SET 20 AS DEVICE 141.21Y 0 L299 A61 |WRITE UP PSEUDO DOCNAME 142X 302 8 A42 16X L252 (L12) A36 |MARK DOC, LOADED

Page 83

14X 56 (A43) A42 |CORE SIZE TO A56 04X 57 A38 A42 |CORE REQUESTED TO A57 141.1 0 L268 |READ FLAS 142 L136 L273 86 L134 2560+L13 A50 |TB ACCD 101 A43 L14 |CONVERT CORE 101 A44 L14 A42 |CONVERT DATUM INTO A44 86 L134 8192+A43 A50 |SEND CORE & DATUM 115 A49 4 |PUNCH ON X L883 0 |SKIP LOW DENSITY ( 86S L134 8.13 A50 |PRINT VERTICAL BAR 64 V2+3 L884 |J ENGI=LOW 16X 5 (L156) A40 |Z=1 H BIT 17 V2+1 4 86S L134 8.44 A50 |PRINT H OR L ) L16) 86 L135 L224 A50 |NL & PRINT L15) 114 (L16) L16 A56 |NEXT PROG IN MAIN QUEUE 15 L16 -1 61 L15 L16 |RETURN TILL REACH END 111 (A56) -1 A40 |INSERT THIS PROG IN CHAIN 14 A59 64 |SET TO RESERVE 64 WDS DRUM 14Y A60 55 A42 |& PUT RESULT TO A60 04 A22 L17 |SET LINK AS CHAP CHANGE TO SPRING 141.1 0 L872 142 L771 L873 86 L456 A44 |TO DRUM & EXIT VIA SPRING 00S L595 L596 0 F9 15 L597 F9 39 L598 L17) 00S L409 L410 0 |CHAP CHANGE TO SPRING F9 15 L411 F9 39 L412 L10) 150 1 302 33 |150'S FOR OBJECT PROG 150 31 0 51 L11=L1.0 |SEE UPDATECLIST L13) +4,33,35,35,36,,, |TB ACCD L14) +100000000 +10,10,58,58,58,58,58,26 |RADIX WORDS L464=V2-L769 |LENGTH JOB CHAPTER 2 |RIGHT , WRONG & UNLOAD C 0 127 V2=L136+50 L564))L566) 86 L456 A44 |ERROR ROUTINE 00S L435 L235 0 |BACK TO INPUT F9 15 L436 F9 39 L437 L565)L2) 116 (A60) 0 4 |ENTRY|LS½=RX&DOC 71 L1 L252 A61 |BRANCH IF NOT DRU 71 L566 (L143) |ERROR IF ANY JOBS 141.1 0 L257 142 L1 12 |READ DLIST 61 L566 L1+11 |ERROR ANY SBIPS

Page 84

11 L1 16386 |ADJUST DRUM AVAIL 11 L1+2 16386 |ADJUST HIGHEST ADDRESS 63 L566 L1 |ERROR IF ONLY 1 DRUM 141.21 0 L257 |WRITE UP REVISED DLIST 142 L1 3 141.21 0 L34.353 |WRITE UP TOTAL FOR BASIC 142 L1 1 L6) 73 L162 0 4 |EXIT |DOC BIT ONLY L1) L570=0 |UNLOAD HERE 15 (A61) (L2) A63 |COLLATE IDLE & LOADED BITS 15 (A61) 127 A60 |LAST 7 K BITS X L662 1 |ORION 2 ONLY ( 73 L3 64 A60 |J MAGTAPE 06X 576 L4 A60 |OR BIT INTO EXTRACODE ) L3) 70 L5 (L2) A63 |J IDLE & LOADED X L662 1 |ORION 2 ONLY 72 L162 64 A60 |FINISHED UNLESS MT X L662 2 |ORION 1 ONLY ( 72 L566 64 A60 |ERROR UNLESS MT 73 L566 96 A60 ) 115 0 4.32 A50 |SIGN BIT + 4 61 L566 (A60) A50 |ERROR UNLESS NEW OR NONSTAND L8) 14 (A60) |CLEAR BAR |RX BIT L5) 111 (A61) (L6) |REMOVE LOADED BIT (HARMLESS FOR NEW? 14 A50 L162 |SET L162 AS LINK TO TERMINATE 04 A62 A61 |POINTER TO PLIST FOR TERMINATE 86 L456 A44 |EXIT VIA TERMINATE 00S L259 L256 0 F9 15 L256 F9 39 L544 X L662 1 L4) +32...... |BIT 6 FOR ORION 2 L7) L568=L7-L1 |RIGHT HERE 53 (A61) 8 A63 15 A63 -1 |BITS POINTING TO JOB USING 71 L162 L141 A63 |EXIT IF NOT WRONG 16 (A61) (L8) |INSERT RX BIT 05 (A61) L9 |LEAVE ONLY TYPE, IDLE & K BITS 141.1 0 L255 |TO SWITCH ON 142 L238 L292 86 L238 8 A63 L20) 75Y L162 -1 1 |EXIT |LS½ USED AT L17-1 L10) L569=L10-L1 |WRONG HERE 04 (L11) (A61) A63 |PLIST WD TO A63|CHECK LOCKOUTS 74 L12 (L170) A63 |J IDLE 53 (A61) 8 A40 15 A40 -1 |SET A40 TO PROGRAM OWNING 70 L162 L141 A40 |EXIT IF WRONG ALREADY L12)L9) 157XS (-8192) 255 |OFF TS|MASK FOR TYPE & IDLE

Page 85

65 L13 (A61) |J NOT FAILED X L707 0 L735) 70 L736 L704 A61 |AT NIRNS J TO EXTRA 64 IF HPD 25X L867-L252 11 A61 |MARK WRONG IN TABLE OF SIGN BITS L15) 75S L162+1 L17 |EXIT |Y USED IN 152 L13) 26 (A61) 10 |IGNORE FAILS 152 L168 L15 |ON TS TO L17 L869) L868=L564 L870=L566 L871=L567 |LABELS FOR ENTRY FROM PER INC 04 A61 A62 |FOR COMPATIBILITY L17) 53 (A61) (L35) A62 |A62 POINTS TO DIR. WD|CHECK LOCKOUTS 15 (A61) 127 A58 |LAST 7 KBITS (A58>0 FOR PRINT RES REL 72 L21 64 A58 |J NOT MAGTAPE X L662 2 73 L21 96 A58 24 (A58) 10 |SET BAR TO -1.0+6E 10 (A58) 6 L21) 71 L22 L141 A40 |J NOT IDLE 04 A63 (A61) |PLIST WORD 76 L23 L24 A63 |J NOT POINTED TO 141.1 0 L281 |READ UNPOINT 142 L278 L282 04 A55 A61 |SET A55 FOR UNPOINT 141.1 0 L240 |READ GEONLIST 142 L283 L651 86 L278 L25 A63 |UNPOINT, TO L25 IF NO SPARE 141.21 0 L240 |WRITE BACK GEONLIST 142 L283 L651 75 L23 |EXIT L25) 11 A61 L252 A63 |NO SPARE A63=POSITION IN PLIST 15 L143 -1 A40 |FIRST PROG L30) 10 A40 8 A62 |PREPARE TO SCAN PERIPHERALS L29) 53 (A62) 17 A45 64 L27 (A62) |IF FAILED CANT BE FLOATING 15 A45 63 |POSITION IN PLIST 60 L28 A45 A63 |J IF FOUND L27) 10 A62 1 61 L29 (A62) |CONTINUE TILL REACH 0 AT END OF DIRE? 15 (A40) -1 A40 |NEXT DIRECTORY 75 L30 L28) 26 A40 10 |SIGN BIT IN A40 MARKS FLOATING BEING? L22) 04Y A51 7 A40 |SET UP A51 121 A51 24 |AS USUAL L19) 157XS -1 |OFF TS |MASK FOR INSERTING IN PLIST 14 A17 (A40) 86 L165 16384 A24 |STOP SPECIAL WAY 86 L153 L242 |ON TS 141.1 0 L537 |READ DERES 142 L538 L539 53 (A62) 24 A59 |REMEMBER PROGRAMMERS' NAME IN A59 114 A61 A62 86 L538 A61 A50 |ENTER DERES 114 A61 A62 110 (A40) L31 |REMOVE REDUNTANT SUSPENSIO STYLE 11 A29 1 |& DUMMY QUEUE ENTRY 141.1 0 L749 |READ PRINT RESREL 142 L751 L752 86 L750 2 A56 |PRINT RLQD NO GEOG NAME 64 L26 A40 |J FLOATING

Page 86

04 A41 (A40) 77 L23 L32 A41 |J ALREADY STOPPED 21 (A40) 8 |HALT 86 L134 3584+L33 A50 |SEND TB HALTED 86 L135 A50 |NL & PRINT L26) 141.1 0 L209 |READ START 142 L205 L239-L205 86 L208 (511) A45 |ENTER IT (REDUNDANT EXCEPT FOR FLO? L23) 52 L21 8 A63 |PSIND UP 8 110 (A61) L34 A63 |INSERT INTO PLIST & CLEAR IDLE BIT L35) 75 L162 24 |EXIT|Y USED AT L17 L11)L14) 01YS |FAILPER BIT & 1 IN COUNT L24) 157XY (-1) (-1) 61 |MASK NOT POINTE TO BIT L31) 10S 0 0 0 |BIT TO BE REMOVED FROM A40 L32) 157XY (-16) (-1) -1 |MASK FOR SUSPENSION STYLE L33) +4,40,33,44,52,37,36, |TB HALTED L34) 00YS (0) (-256) -1 |MASK FOR INSERTING PSIND L567=V2-L566 |NAMES V2=L136+100 S0 L584))L585) 141.1 0 L268 |READ FLAS 142 L136 L273 14 A51 8 |SET COUNTER FOR JOBS ON 1 LINE 14 A52 L141 |SET MOD TO PLIST L7) 15 (A52) -1 A52 |NEXT PROGRAM 60 L1 A52 |J WHEN FINISHED 04Y A54 3 A52 |PICK UP NAME 71 L2 8 A51 |J EXCEPT FIRST TIME 86 L134 L3+3072 A50 |SEND TO JOBS, L2) 86 L5 A63 |TO SR TO PRINT NAME 83 L7 A51 |J UNLESS 8 JOBS PRINTED 86 L134 1024+L6 A50 |NEWLINE TAB 75 L7 |TO NEXT JOB L3) +4,42,47,34,51,31,, |TB JOBS. L6) +2,4,,,,,, |NL TB L4) -64 |MASK FOR LAST CHAR SPACE L5) 86S L134 512 A50 |PRINT SPACE 14 A55 8 |CHARACTER COUNT L9) 77 L8 L4 A54 |J LAST CHAR NOT SPACE 10 A54 7 |CHANGE SP TO UC L8) 121 A54 6 |NEXT CHAR 83 L9 A55 |COUNT CHARS 86 L134 4096+A54 A50 |OUTPUT NAME 87 0 A63 |EXIT FROM SR L1) 141.1 0 L805 |READ NAMELIST OF SBIPS 142 L10 9 60 L11 L10 |J NONE 80 L12 9 A51 |J NO JOBS. SPOIL A51 86S L134 514 A50 |NL L12) 86 L134 L13+3584 A50 |TB SBIPS, L15) 04Y A54 L10 A52 |NAME OF NEXT SBIP 60 L14 A54 |J FINISHED 86 L5 A63 |PRINT NAME 81 L15 A52 |TO NEXT L13) +4,51,34,41,48,51,31, |TB SBIPS.

Page 87

L11) 71 L14 8 A51 |J UNLESS NOTHING PRINTED 86 L134 L16+3072 A50 |SEND TB EMPTY L14) 86 L135 A50 |NL & PRINT 75 L162 |EXIT L16) +4,37,45,48,52,57,, |TB EMPTY L10) L586=L10-L585 |BUFFER FOR SBIPS LENGTH OF NAMES |ALLOCATE DIRECTIVE V2=L136+70 S0 L384))L386)L385) 53 A59 5 A45 |2 LETTERS OF PROG, NAME 15 A45 31 A47 |2ND LETTER 15 A45 1024-32 A46 10Y A45 2048+32 A46 |2 FULL LETTERS IN A45 71 L23 18 A47 |J 2ND LETTER NOT R 14 A45 52.50 |SET TR 70 L23 192 A46 |J IF F 70 L23 608 A46 |J IF S 14 A45 35.50 |SET CR 70 L23 96 A46 |J IF C 71 L179 704 A46 |IMPOP IF NOT V L23) 53 A60 12 A46 |2 LETTERS OF GEOG NAME 61 L179 A45 A46 |IMPOP IF DIFFERENT TYPES 70 L179 45.52 A46 |IMPOP IF MT X L707 0 70 L179 40.48 A46 |DISALLOW HPD IF PRESENT 52 A60 24 |GEOG NAME TO TOP ½ 141.1 0 L240 142 L136 L651 |READ GEONLIST 146 L136 A60 A48 |SCAN GEONLIST 60 L179 (A48) |IMPOP IF NON-EXISTENT 11 A48 L136-L252 |A48 POINTS TO PLIST WORD OF NEW DEVI? 86S L218 L2 A62 |J TO L2 IF HASN'T GOT OR 04 A62 (A63) |DIRECTORY WORD TO A62 64 L207 A62 |PUT BIT BACK IF FAILED 53 A62 17 15 A62 63 |FORM ADDRESS IN PLIST 10 A62 L252 |OF ONE HE HAS 60 L24 A48 A62 |J IF HAS RIGHT ONE OR POINTS TO IT 04 A36 (A48) |PLIST WORD OF NEW DEVICE 75 L3 (L170) A36 |J IF IN USE 04 A55 A48 |SET A55 FOR UNPOINT|PRESERVE A48 56 A62 0 A38 |PRESERVE A62,63 IN A38,39 X L674 0 |SKIP NO I.B.M. TAPE 70 L4 41.52 A46 |MUSTNT GO TO FILLCODEBUFFER ON IT 86S L771 A56 A44 |TO FILLCODEBUFFER 00S L563 L759 0 F9 15 L758 F9 39 L760 L4)L27) -256 |OFF TS |MASK NOT K 64 L207 (A48) |TO L207 IF EITHER FAILED 64 L207 (A38) 26 (A48) 10 |IGNORE FAILS ON BOTH 26 (A38) 10 86 L153 L242 |ON TS 141.1 0 L240 142 L283 L651 |READ GEONLIST FOR UNPOINT 76 L26 L25 A36 |J NEW NOT POINTED TO

Page 88

04 A56 A38 |SET A56 TO PLIST WORD FOR UNPOINT 86 L771 A63 A44 00S L281 L277 0 F9 15 L278 F9 39 L282 |READ & ENTER UNPOINT L26) 110 (A38) L27 A36 |SET UP NEW DEVICE-OLD EXCEPT K BITS 111 (A38) (L28) |REMOVE DOC LOADED & SIGN BITS 117 L283-L252 L283-L252 07 (A48) (A38) A62 |INTERCHANGE BOTTOM ? 17X L283-L252 (A62) A38 |OF GEONLIST WORDS 17X L283-L252 (A62) A48 141.21 0 L240 |WRITE UP REVISED GEONLIST 142 L283 L651 04 A62 A38 |RESTORE A62 FOR TERMINATE 86 L771 A50 A44 |TERMINATE OLD 00S L259 L256 0 F9 15 L256 F9 39 L544 L30) 11 A48 L252 A45 |POSITION IN PLIST OF NEW 52 A45 17 15 (A48) 255 A44 |K 00 A45 A44 A47 |K + POSN IN PLIST 10 A45 (L6) |254+RX+POSN IN PLIST 04 A49 (A39) |COPY OLD WORD 112 (A39) 9 A45 |INSERT AS IF MONITORING 74 L7 (L170) A49 |J MONITORING 112 (A39) 9 A47 |INSERT K L7) 01 A39 A40 A63 |POSITION IN DIRECTORY 60 L8 (A51) |J NOT BRANCHED 10 A51 7 A50 |BRANCH COUNT L9) 64 L10 (A50) |J NON-EXISTENT BRANCH 00 (A50) A63 A44 |ADDR OF DIRECT WD IN THIS BRANCH 04 A49 (A44) |PRESERVE DIRECT WORD 112 (A44) 9 A45 |INSERT AS IF MONITORING 74 L10 (L170) A49 |J REALLY MONITORING 112 (A44) 9 A47 |INSERT REAL K L10) 83 L9 (A51) A50 |COUNT BRANCHES 116X -39 0 A51 |SET A61 TO POINT TO BRANCH ONE L8) 15 A40 -1 A61 |OR TO DIRECTORY IF UNBRANCHED 00 A63 A61 |POINTER TO DIRECT WD IN BR 1 52 A63 24 |FORM UP PLIST WORD 52 A61 8 A56 00 A56 A63 110 (A48) L27 A56 |MAKE PLIST WORD, CLEARING SIGN BIT 04 A58 A60 |GEOG NAME FOR PRINT RESREL 141.1 0 L749 142 L751 L752 |READ PRINT RESREL 86 L750 0 A56 |ENTER IT L29) 75S L205 L30 |EXIT TO START |Y USED AT L3-1 L24)L25) +63,63,63,63,63,31,63,63 |RIGHT ONE CASE OFF TS|NOT Z=2 64 L207 (A48) |TO L207 IF FAILED 04 A39 A63 |A63 TO 39 FOR COMPATIBILITY 26 (A48) 10 |IGNORE FAILURES 152 L168 L29 |JOIN OTHER CASE AT L30 L3) 10 L36 L37-L38 |IN USE ENTER CHAP 2 AT L37 L2)L28) 86 L456 0 A44 |BOTTOM ½ FOR TESTING DOC LOADE|NOT ? L36) 00S L39 L38 0 |ENTER CHAP 2 AT L38 F9 15 L40

Page 89

F9 39 L41 L34)L6) +4,46,47,,32,,,254 |TB NO SP |RX & 254 L17) L387=L17-L386 |LENGTH OF ALLOCATE CHAP 1 |CHAPTER 2 V2=L136+115 L39))L40)L38) 04 A52 (A48) |NOT RESD ,COPY PLIST WORD 75 L12 (L170) A52 |J NEW NOT IDLE 76 L31 L25 A52 |J NOT POINTED TO 141.1 0 L281 |READ UNPOINT 142 L278 L282 141.1 0 L240 142 L283 L651 |READ GEONLIST 04 A55 A48 86 L278 L32 A63 |TO UNPOINT, J TO L32 WITH 0VR IF NO? 111 (A48) (L158) |CLEAR POINTED TO BIT 141.21 0 L240 |WRITE BACK GEONLIST 142 L283 L651 L31) 141.1 0 L380 |READ GETOUTPUTDEV 142 L382 L383 86 L416 A55 |TO SPECIAL ENTRY GETOUTPUTDEV 75 L205 |EXIT TO START L37) 141.1 0 L540 |NOT AVAILABLE ROUTINE 142 L541 L543 |READ RELINQ 04 A52 (A48) |PRESERVE PLIST WORD OF NEW 86 L542 A63 A58 |RELINQUISH OLD L12) 05 (A40) L14 A45 61 L15 A45 |J IF ALREADY STOPPED 21 (A40) 8 |HALT L15)L754))L755)L756)L32) 141.1 0 L268 |PRINT SUBROUTINE 142 L136 L273 |READ FLAS 53 A60 30 A53 112 L34 9 A53 |FORM UP NO DEVICE 67 L35 4 |J IF IT IS NO DEVICE CASE 86S L134 516 A50 |TAB 86 L134 A60+2048 A50 |GEOG SP 86 L134 L16+5632 A50 |BELONGS TO 53 A52 8 |WD 0 OF OWNER TO BOTTOM OF A52 04Y L34 3 A52 |PICK UP NAME OVER NO ETC L35) 86 L134 L34+3584 A50 |NAME OR NO DEV 86 L135 A50 |NL & PRINT 75 L162 |EXIT L14) +15.... |MASK FOR SUSPENSION STYLE L16) +34,37,44,47,46,39,51, |BELONGS SP +52,47,,,,,, |TO SP L41=V2-L40 L757=V2-L756 |LENGTHS OF CHAP 2 & PRINT SR |150/10 V2=L136+130 S0 L304))L306)L305) 73 L179 8 A60 |IMPOPER Y > 7 10 L2 (A60) |ADD Y TO 86 FOR MESSAGES

Page 90

10 A60 1 A36 |REQUIRED SUSPENSION STYLE 72 L3 4 A60 |J IF NOT A SPACE CASE 14 A36 8 |SET STYLE 8 71 L3 4 A60 |J IF NOT SPACE MESSAGE 10 L2 509 |9 CHARS FROM L1+1 L3) 70 L4 2 A60 |J IF RERUN L9) 52 A36 24 06 (A40) A36 |INSERT SUSPENSION STYLE 70 L205 7 A60 |NO SPACE NO PRINT 82 L205 A60 |EXIT IF DOC 141.1 0 L268 |READ FLAS 142 L136 L273 L2) 86 L134 4096+L1 A50 |*SEND MESSAGE, ALTERED SOME Y 101 A59 L6 |CONVERT X 86 L134 4096+A59 A50 |SEND X 86 L135 A50 |NL & PRINT 74 L205 2 A60 |J NOT SUSP L7) 75 L161 5 |OTHERWISE DONT STEP LINK L1) +4,40,33,44,52,37,36,7 |TB, HALTED UC, +4,46,47,,51,48,33,35 |TB NO SP SPAC L8) +37,,,,,,,+L5 |E +4,51,53,51,48,36,7,7 |TB,SUSPD UC, +31,50,37,50,53,46,, |RERUN +4,46,47,,35,47,50,37 |TB,NO CORE +4,46,47,,36,50,53,45 |TB,NO DRUM L6) +100000000 |RADIX WORDS +10,58,58,58,58,58,58,58 L4) 10 L2 3073 |ADJUST MESSAGE|13CHARS FROM L1+3 141.1 0 L297 |READ FINDDOC 142 L296 L298 14 L5 1 04Y L5+1 3 A40 01 A42 A43 A54 72 L177 L465 A54 |RESVI IF NO ROOM FOR BASIC 143 L5+2 6 |FORM UP PSEUDO DOCNAME 57 L8 48 A45 |A45=0 A46 POINTS TO L5 86 L296 A63 |TO FINDDOC 70 L9 L171 A52 |J NOT FOUND 53 (A52) 32 A53 |SHIFT DOWN TYPE 15 A53 -32 10 A53 20 |FORM *SR20 ETC 04 A52 A54 14X 56 (A52) A43 |CORE LENGTH 04X 62 A53 A43 |SOURCE 10 A44 L11-L305 A53 |LINK TO SETSTAND 86 L456 A44 |TO SETSTAND 00S L518 L519 0 F9 15 L520 F9 39 L521 L11) 116 (A43) (A40) 03 55 -1 |DRUM RESERVATIONS TO A55 51X 55 24 A43 52 A43 24 A44 |DATUM IN X ADDR 10 L10 (A43) |RELATIVISE 150/33 00 L10 A44 10 L10+1 (A43) |RELATIVISE 150/51 10 A43 64 A41 |LINK =A64 142X 64 0 A43 |COPY 2 150 INSTRUCTIONS &

Page 91

142 L10 10 |PSEUDO DOCNAME INTO RESERVATIONS 75 L205 |EXIT TO START L10) 150 (62) 66 33 150 1 0 51 L5) L307=L5-L306 |UNPOINT |THIS SUBROUTINE DEALS WITH POINTERS TO PLIST FROM FLOATING PERIPHERALS |ENTER AT L278 TO FIND AN UNPOINTED PERIPHERAL OF SAME TYPE AS GIVEN IN A55, IF NONE JUMPS TO Y ADDRESS OF 86, |OTHERWISE ADDRESS IN PLIST OF NEW PUT INTO A56. IT THEN EXITS IF 86 SIGNALLED, OTHERWISE CONTINUES AS FOR L277, |ENTER AT L277 TO FIND PROGRAM WHICH POINTS TO PERIPHERAL GIVEN IN A55 AND MAKE IT POINT TO |PERIPHERAL GIVEN IN A56 (GIVEN MEANS ADDRESS OF PLIST WORD). |ENTER AT L279 TO MAKE PROGRAM WHOSE WORD 0 POINTED TO BY A56 & PERIPHERAL WORD IN DIRECTORY POINTED TO |BY A58 POINT TO PERIPHERAL WHOSE PLIST ADDRESS IS IN A56. V2=L136 S0 L281))L278) 05 (A55) L13 A57 |A57=TYPE AND IDLE MARKER L275) 14 A56 L252 |SET MOD TO PLIST L4) 81 L2 L171 A56 |COUNT THROUGH PLIST 65 L1 A56 |J FIRST TIME ROUND 87Y 0 -1 A63 |TO Y ADDR OF 86 IF NONE AVAIL L13)L276) 157XS (-8192) 0 |TYPE IDLE MASK L3) 104S 0 0 0 |S NOT EQUIV F |C NOT EQUIV V L1) 115 0 L252+1,32 A56 |SET MOD & MARK 2ND TIME 07 A57 L3 |CHANGE FR,SR,CR,VR TO SR,FR,VR,CR L2) 05 (A56) L13 A58 |MASK WORD TN PLIST WITH TYPE AND I |IDLE MARKER 61 L4 A57 A58 |J IF DIFFERENT TYPES, 15 (A56) (L158) A58 |POINTED TO BITS 61 L4 A58 |J IF POINTED TO ALREADY 65XY 0 -1 A63 |OBEY LINK IF 86 SIGNALLED L277) 117 (A55) (A56) |SWITCH 07 L283-L223 L283-L223 A57 |ENTRIES 17X L283-L223 (A57 A55 |IN 17X L283-L223 (A57) A56 |GEONLIST (STARTS AT L283) 11 A55 L223 |POSITION IN PLIST 14 A57 (L143) |FIRST PROG (TO LOOK FOR WHO | POINTS TO PER IN A55) L5) 10 A57 8 A58 |WORD 8 L6) 53 (A58) 17 A62 |PLIST WORD 64 L7 (A58) |J IF FAILED (NOT THIS) 15 A62 63 |IN PLIST 60 L8 A55 A62 |J IF RIGHT ONE L7) 10 A58 1 |NEXT PERIPHERAL 61 L6 (A58) |LOOK FOR ZERO AT END DIRECTORY 15 (A57) -1 A57 |NEXT PROGRAM 70 L10 (A57) |J REACHED END OF MAIN Q L9) 73 L5 (0) A62 |TO NEXT PROGRAM /POSITION IN PLIST L279)L8) 16 (A56) (L158) |INSERT POINTER TO BIT 11 A56 L223 |A56 = POSITION IN PLIST 52 A56 17 |UP 17 BITS 111 (A58) (L9) A56 |INSERT IN DIRECTORY 116 (A57) |

Page 92

121 7 24 A55 |WORD 7 60 L10 (A55) |J IF NOT BRANCHED 01 A58 A57 |DIFFERENCE BETWEEN WORD 0 AND PERI 10 A55 7 A62 |MODIFIER FOR BRANCHES L11) 64 L12 (A62) |J IF NON-EXISTENT 116 (A62) 0 |INSERT IN 117 (0) 0 |DIRECTOR 111 (A58) (L9) A56 |OF NEXT BRANCH L12) 83 L11 (A55) A62 |COUNT BRANCHES L10) 87 0 A63 |OBEY LINK L282=L10-L278+1 |LENGTH |FIND-DOC |GIVEN DOCUMENT NAME STARTING IN (A46) AND DEVICE TYPE IN LS 10 BITS OF A45, FINDS PERIPHERAL OF |THIS TYPE WITH THIS NAME AND EXITS WITH A52=ADDRESS OF PLIST WORD OR LI71 IF NOT FOUND, |IF A45 CLEAR SEARCHES ALL TYPES. FOR MAGTAPE CHECKS ISOLATION SWITCH AND MAY HALT PROGRAM AND |PRINT REQUEST TO INHIBIT. |ON HIGH DENSITY INSTALLATIONS MAY SET EXTRACODE BIT & TAPE BIT AS APPROPRIATE S0 | V2=L136 | L297))L296) 14 A52 L223 |SET MODIFIER TO PLIST 61 L25 A45 |J TYPE SPECIFIED 14 L1 (L1) |ADJUST MARK SO THAT ANY TYPE WILL DO L25) 52 A45 37 A56 |TYPE TO D1-10 OF A56 16 A56 (L1) |OR IN IDLE AND DOC BITS 71 L2 436 A45 |J UNLESS MT L26) 141.1 0 L302 |READ DATE TO L26U 142 L26 1 52 L26 24 L2) 05 (A52) L1 A55 |DEVICE TO A55 61 L3 A56 A55 |J IF WRONG TYPE, NOT IDLE OR NO DOC 11 A52 L223 A57 |A57 IS POSITION IN PLIST 120 L5 (A57) A57 64 L4 A57 |J IF DEVICE IS MT 52 A57 3 A22 |A22 GIVES MOD FOR DOC ADDR 141.1Y 0 L299 A22 |READ DOCUMENT 142 L6 8 |NAME 75 L7 |J TO COMPARE LOOP L1) 157XS (-8192) 0 4 |TYPE, IDLE AND DOCUMENT BITS L300))L5) V0=L5+1 |LIST WHERE DOCUMENT STORED, |FILLED IN ON TAPE 7 L24) +31,63,63,56,32,,, |MASK FOR DATE BITS ONLY &DATE CONTRO? L9) 76 L3 L12 A55 |NOT SCRATCH IF ISOLATED 05 L10 L24 A55 |MASK DATE & CONTROL 64 L3 L26 A55 |J IF VOID DATE NOT REACHED 74 L3 (L170) A55 |J IF DATE IS WRITE PERMIT DATE X L883 0 ( 15 A60 192 A57 |LH BITS TO A57 60 L31 A57 | J NO LH PREFERENCE 52 A57 16 |L BIT TO RX 07Y A57 L883+64 A38 |RX=1 IF NO FIT 73 L3 (L23) A57 ) L31) 15 A60 63 A57 |LENGTH REOUIREMENT 60 L23 A57 |J IF ANY LENGTH WILL DO

Page 93

53 L10+10 24 |TAPE LENGTH 15 L10+10 63 60 L23 L10+10 A57 |J IF RIGHT LENGTH L3) 81 L2 L171 A52 |COUNT THROUGH PLIST L8) 87 0 A63 |EXIT L4) 15 (A52) 63 A38 |DECK NUMBER 34 A38 11 A22 |DOC MODIFIER 10 A22 L303-L299+1 |ADJUST A22 FOR 150/33 X L883 0 |SKIP LOW DENSITY ( 111X L883+64 (L29) A38 |CLEAR H IN EXTRACODE 04Y A39 5 A40 |PICK UP W5 52 A39 6 |SHIFT D31 TO D25 15 A39 (L29) |MASK OFF H BIT ) 141.1Y 0 L299-1 A22 |READ 11 WORDS 0F DOCNAME ETC, 142 L10 11 116 0 (A52) |SET L265 = K L29) 14 L265 (0) |H MASK 140.13 142 A55 1 |INTERROGATE DECK 72 L9 192 A60 |J IF SCRATCH TAPE REQUIRED L7) 14 A57 0 |COMPARE NAMES ROUTINE L13) 04Y A58 (A46) A57 |NEXT COMPONENT OF REQUEST NAME 04Y A62 L6 A57 |NEXT COMPONENT OF NAME FROM DOC 60 L14 A58 A62 |J TO COUNT IF AGREE 75 L3 1 A57 |IF IN FIRST TWO COMPONENTS REGISTER | DISAGREEMENT 70 L15 29 A62 |IF + ON TAPE ACCEPT DOCUMENT 71 L3 30 A58 |IF - IN REQUEST NAME TO NEXT COMPO | OTHERWISE DISAGREEMENT L14) 81 L13 8 A57 |COUNT COMPONENTS L15) 71 L8 436 A45 |IF AGREE, J TO EXIT UNLESS MAG TAPE 76 L32 L12 A55 |J IF ISOLATED 05 L10 L24 A45 |MASK OFF DATE 62 L23 L26 A45 |J IF DATE PAST X L883 0 ( L32) 52 L10 1 A44 72 L11 (L23) A44 |J LOW TAPE 07Y A44 L883+64 A38 72 L3 (L23) A44 |REJECT HIGH TAPE ON LOW DECK L11) 76 L27 L12 A55 |J ISOLATED 65 L28 L10 |J NOT WRITE PERMIT L23) 116 (A38) 53 L883+64 1 A44 17 A44 (L29) 111 L10 (L29) |CLEAR TAPE BIT 117 0 (A44) |A39=1 FOR HIGH DECK & JOB L27) 15 A39 (L10) |A39=1 FOR HIGH JOB & TAPE BIT 06X L883+64 A39 A38 |NEW ECB SAME AS A39 06 A39 L10 |NEW VOIDDATE ETC. ) X L883 0 |LOW DENSITY ONLY X 0 0 ( 65 L28 L10 |J IF WRITE NOT PERMITTED L27)L32) 15 L10 (L29) A39 |H BIT OF TAPE

Page 94

61 L3 A39 |NOT ALLOWED IF HIGH TAPE ) G23) 87 0 A63 |EXIT L28) 141.1 0 L268 142 L136 L273 |FLAS 86 L134 2.32.L20 A50 |PRINT|INHIBIT WRITING ON 141.1Y 0 L240-L223 A52 |READ GEOG NAME 142 A57 1 86 L134 2048+A57 A50 |GEOG 86 L134 L19 A50 |AND RUN* 86S L134 514 A50 |NL 86 L135 A50 |PRINT 21 (A40) 8 |HALT 75 L161 |EXIT L20) +4,41,46,40,41,34,41,52 |TB INHIBIT L21) +0,55,50,41,52,41,46,39 |WRITING +0,47,46,0,0,0,0,0 |ON L22) +33,46,36,0,50,53,46,1 |AND RUN* L19=4096+L22 L12) 157XY (-1) (-1) 61 |MARK FOR WRITE PERMIT BIT L10) L6=L10+1 |BUFFER FOR DOCUMENT NAME L298=L10-L296 |RESDEV |RESERVES PERIPHERAL GIVEN K BITS IN A45(253 FOR FLOATING) PROGRAMMERS' NAME IN A46, POSITION IN PLIST IN A47, |CALLING ROUTINE MUST DEAL WITH FAILURES(BY MONPER OR SIGN BIT OF PLIST) EXCEPT FLOATING, |MAY USE LOSEN AND MOVEDIRECT V2=L136+54 S0 L375))L374) 117 8 0 |SEARCH FOR END 146 (A40) 0 A63 |0F DIRECTORY 60 L14 (A51) |J IF NOT BRANCHED 116XY -39 0 A51 |OBTAIN DIRECTORY LENGTH -3 L14) 12 A40 -1 A57 15 A57 63 00 A57 A40 |END OF DIRECTORY 61 L1 A57 A63 |J IF THERE ROOM FOR MORE 14 A57 |SET BRANCH COUNT L2) 64Y L3 (A51) A57 |J IF NON-EXISTENT 10 L4 1 |COUNT REAL BRANCHES IN L4 60 L5 (A51) |J IF NOT BRANCHED(HAVE CNTED ONCE) L3) 81 L2 8 A57 |COUNT BRANCHES L5) 141.1 0 L284 |READ LOSEN 142 L228 L378 |AND MOVE DIRECT L4) 86 L228 0 A63 |TO LOSEN (Y BUILT UP IN LOOP ABOVE) 10 A51 7 A57 |PREPARE TO MOVE BRANCH 7 15 L4 -1 |L4=NUMBER OF WORDS TO BE MOVED 61 L6 (A51) |J IF BRANCHED 14 A57 A40 |SET A57 TO DIRECTORY TO BE MOVED L6) 64 L7 (A57) |A63=OLD ADDRESS OF DIRECT 15 (A57) -1 A63 |A62=NEW ADDRESS 01 A63 L4 A62 |J UNLESS BRANCH INITIATING INSTRUCTI? 86 L691 L373 |TO MOVEDIRECT 61 L8 A63 A40 |RESET A40 04 A40 A62

Page 95

L8) 82 L1 L4 |MOVE NEXT BRANCH LESS 1 WORD |J WHEN FINISHED L7) 83 L6 (A51) A57 |COUNT BRANCHES L1) 52 A46 24 |PROG NAME TO A46U 52 A47 17 A63 |POSITION IN PLIST 10Y A46 (A45) A63 |FORM UP DIRECTORY WORD (A45=KBITS) 117 8 146 (A40) 0 A63 |FIND END OF DIRECTORY 14X 1 0 A63 |NEW ZERO (END OF DIRECTORY) 04 (A63) A46 |PUT THIS WORD IN DIRECTORY 04 A62 A40 |A62 POINTS TO PROGRAM 01 A63 A40 |A63= DIFF BETWEEN WORD AND WORD 0 60 L9 (A51) |J IF NOT BRANCHED 10 A51 7 A62 |SET A62 TO BRANCH 7 L10) 64 L11 (A62) |J IF NON-EXISTENT 00 (A62) A63 A57 |ADDR FOR NEW PERIPH IN NEXT DIRECT 14X 1 0 A57 |NEW ZERO 04 (A57) A46 |INSERT PROG NAME L11) 83 L10 (A51) A62 |COUNT BRANCHES 04Y A62 1 A51 |MAKE A62 POINT TO BRANCH 1 L9) 70 L12 253 A45 |J IF FLOATING (NO PLIST WORD) 52 A62 8 A57 |ADDR OF BRANCH 1 UP8 BITS TO A57) 00 A62 A63 |ADDR OF THIS WORD IN BRANCH 1 52 A62 24 |UP 24 BITS 10Y A62 (A57) A45 |COMBINE (& K BITS) 116 (A47) 112 L252 11 A62 |PACK UP PLIST WORD,PRESERVING SIGN L12) 87 0 A56 |OBEY LINK L13) L379=L13-L374 |FILLCODEBUFFER. THIS ROUTINE CHECKS THAT A PERIPHERAL IS DISENGAGED, FILLS THE |CODE BUFFER ON LP & CP AND FOR LP NOT RESERVED PUTS OUT OZZZZZZO 15 TIMES V2=L136+L273+1 S0 L563))L758) |LINE PRINTER CODE BUFFERS X L648 1 |IGNORE UNLESS COMMERCIAL BARREL X 0 0 ( +16,63,28,63,17,63,30,63 +18,63,29,63,19,63,31,63 +20,63,32,63,21,63,60,63 +22,63,59,63,23,63,8,63 +24,63,9,63,25,63,1,63 +26,63,62,63,27,63,15,63 +33,63,34,63,35,63,36,63 +37,63,38,63,39,63,40,63 +41,63,42,63,43,63,44,63 +45,63,46,63,47,63,48,63 +49,63,50,63,51,63,52,63 +53,63,54,63,55,63,56,63 +57,63,58,63,,,, +0 +0 ) X L648 2 |IGNORE UNLESS X 0 0 |TURITZ BARREL (

Page 96

+16,63,26,63,17,63,28,63 +18,63,27,63,19,63,30,63 +20,63,29,63,21,63,31,63 +22,63,1,63,23,63,8,63 +24,63,9,63,25,63,62,63 +15,63,33,63,34,63,35,63 +36,63,37,63,38,63,39,63 +40,63,41,63,42,63,43,63 +44,63,45,63,46,63,47,63 +48,63,49,63,50,63,51,63 +52,63,53,63,54,63,55,63 +56,63,57,63,58,63,59,63 +60,63,61,63,,,, +0 +0 ) X L648 3 |IGNORE UNLESS X 0 0 |SCIENTIFIC BARREL +16,63,5,63,17,63,30,63 +18,63,29,63,19,63,31,63 +20,63,32,63,21,63,60,63 +22,63,6,63,23,63,8,63 +24,63,9,63,25,63,1,63 +10,63,61,63,11,63,15,63 +33,63,34,63,35,63,36,63 +37,63,38,63,39,63,40,63 +41,63,42,63,43,63,44,63 +45,63,46,63,47,63,48,63 +49,63,50,63,51,63,52,63 +53,63,54,63,55,63,56,63 +57,63,58,63,,,, +0 +0 ) X L648 4 |IGNORE UNLESS X 0 0 |STANDARD ANELEX ( +16,63,28,63,17,63,30,63 +18,63,29,63,19,63,31,63 +20,63,60,63,21,63,62,63 +22,63,8,63,23,63,9,63 +24,63,1,63,25,63,15,63 +26,63,27,63,33,63,34,63 +35,63,36,63,37,63,38,63 +39,63,40,63,41,63,42,63 +43,63,44,63,45,63,46,63 +47,63,48,63,49,63,50,63 +51,63,52,63,53,63,54,63 +55,63,56,63,57,63,58,63 +12,63,6,63,7,63,14,63 +10,63,11,63,5,63,,63 +13,63,61,63,32,63,59,63 ) X L648 5 |SKIP UNLESS STOCKHOLM BARREL X 0 0 ( +16,63,1,63,17,63,12,63

Page 97

+18,63,32,63,19,63,30,63 +20,63,29,63,21,63,31,63 +22,63,5,63,23,63,28,63 +24,63,8,63,25,63,9,63 +15,63,33,63,34,63,35,63 +36,63,37,63,38,63,39,63 +40,63,41,63,42,63,43,63 +44,63,45,63,46,63,47,68 +48,63,49,65,50,63,51,63 +52,63,53,63,54,63,55,63 +56,63,57,63,58,63,59,63 +60,63,61,68,,,, +0 +0 ) X L648 6 |SKIP UNLESS SWEDISH ANELEX X 0 0 ( +16,63,12,63,17,63,30,63 +18,63,29,63,19,63,31,63 +20,63,32,63,21,63,27,63 +22,63,59,63,23,63,60,63 +24,63,1,63,25,63,15,63 +61,63,62,63,33,63,34,63 +35,63,36,63,37,63,38,63 +39,63,40,63,41,63,42,63 +43,63,44,63,45,63,46,63 +47,63,48,63,49,63,50,63 +51,63,52,63,53,63,54,63 +55,63,56,63,57,63,58,63 +8,63,9,63,7,63,14,63 +10,63,11,63,5,63,,63 +13,63,26,63,6,63,28,63 ) L649))L1) |CARD PUNCH CODE BUFFER X L647 0 |IGNORE IF NO ( |CARD PUNCH ON THIS COMPUTER +12,13,29,31,33,34,35,36 +37,38,39,40,41,63,1,3 +10,11,30,42,43,44,45,46 +47,48,49,50,63,5,15,16 +32,51,52,53,54,55,56,57 +58,60,61,63,15,17,33,42 +63,3,18,34,43,51,60,63 +19,31,32,35,44,52,63,1 +20,36,45,53,63,8,11,12 +21,37,46,54,61,63,5,9 +10,22,38,47,55,63,4,13 +23,39,48,56,63,1,3,4 +5,8,9,10,11,12,13,24 +31,32,40,49,57,60,61,63 +25,41,50,58,63,,, ) L2) +16,58,58,58,58,58,58,16 |0ZZZZZZ0 FOR LP L5) +400,,,,L758 |LINE PRINTER CODE ADDRESS +112,,,,L1 |CARD PUNCH CODE ADDRESS L759)L7) 141.1 0 L267 |ENTRY|EFFECTIVE END OF 146 TABLE 142 L272 L273 |READ MONOUT

Page 98

65Y L3 -2 A56 |J IF FROM ALLOCATE 86S L218 L3 A62 |J TO L3 IF NOT RESERVED 11 A63 (A40) A45 |WORD NUMBER IN DIRECTORY 86 L587 A50 |TO SPECIAL MONOUT/E1 86 L4 A62 |JOIN OTHER CASE SETTING MARK IN A62 L3) 11 A48 L252 A45 |POSITION IN PLIST 53 (A48) 41 A47 |SET TYPE FOR MONOUT 86 L753 A50 |MONOUT/E1 UNRESERVED L4) 52 A59 19 A47 |TYPE TO BOTTOM OF TOP 1/2 146 L5 A47 A47 |SEE IF NEEDS CODE BUFFER 73 L6 L7 A47 |J IF NOT 140.26 |FILL CODE BUFFER 116 (A47) 142 (0) 15 71 L6 L5 A47 |J NOT LP 70 L6 L3 A62 |J PREVIOSLY RESERVED 04 A47 L2 143 L758 15 A47 |FILL 15 WORDS WITH 0ZZZZZZ0 140.21 142 L758 15 |PRINT COMPLETE LINE 86 L135 A50 |NEWLINE L6) 04 A48 L145 |RESTORE A48 86 L742 A50 |MONOUT/E4 87 0 A56 |EXIT L760=V2-L758 |PRINT RES-REL |ENTER WITH PROGRAMMERS NAME A59 GEOG NAME A58 (A58>0 OMITS IT), YADDR OF 86=0 NO MESSAGE 1 RESD 2 RLQD 3 FLTD |IF 86 SIGNALLED ALSO PRINTS NOW FOLLOWED BY PROGRAMMERS NAME FROM A60 V2=L136+40 S0 L749))L751)L750) 141.1 0 L268 |READ FLAS 142 L136 L273 L5) 53 A59 5 A44 |CONVERT LETTERS 15 A44 1024-32 A63 |OF PROGRAMMERS' NAME 10Y A44 4096+2048+32 A63 |WITH ASTERISK 52 A44 30 A63 04Y A44 -1 A56 |PICK UP Y ADDRESS OF 86 04Y A44 L1 A44 |DUMMY, RESD, OR RLQD 86 L134 1..44 A50 |8 CHARACTERS 86 L134 24.63 A50 |* LETTER LETTER 15 A59 31 A44 |NUMERICAL PART 101 A44 L3 |CONVERT 86 L134 64.44 A50 |8 CHARACTERS 65 L2 A58 |J NO GEOG NAME 86S L134 30+512 A50 |- 86 L134 24.58 A50 |3 CHARS OF GEOG NAME L2) 64Y L4 -1 A56 |J UNLESS 86 SIGNALLED 115X -1 4.32 A56 |NEXT TIME ROUND NONSIG MESS, 4 04 A59 A60 |PRINT 2ND NAME 75 L5 |GO ROUND AGAIN L4) 115 A49 4 |PUNCH ON 86 L135 A50 |PRINT 87 0 A56 |EXIT L1) +4,7,7,7,7,7,7,7 |TB 7 DUMMIES +4,50,37,51,36,,7,7 |TB RESD SP +4,50,44,49,36,,7,7 |TB RLQD SP +4,38,44,52,36,,7,7 |TB FLTD SP

Page 99

+46,47,55,,7,7,7 |SP NOW SP L3) +100000000 +58,58,58,58,58,58,58,26 |RADIX WORDS L752=V2-L751 |GET OUTPUT DEV THIS IS A SUBROUTINE TO FIND AN ENGAGED OUTPUT DEVICE (OR DISENGAGED IF NONE ) POSSIBLY OF SPECIED? |ACCORDING TO A59 AND RESERVE IT AND PRINT RESERVATION. V2=L136+72 S0 L380))L382) 03XS (-8192) |2ND LETTER TYPE & IDLE L381) 14 A44 |MAIN ENTRY CLEAR A44FOR RECORDING 1S? 52 A59 32 A45 |TYPE TO TOP OF A45 05 A45 L7 |ONLY LEAVE TYPE 61 L2 A45 |J UNLESS REQUESTED TYPE CLEAR 57 L1 51 A46 |CLEAR 46 FOR COUNT TYPES 9 BITS UP I? L11) 53 A47 6 |NEXT TYPE 111 A59 -512 A47 |SUCCESSIVELY *LPN,*SPN,*FPN,*CPN,N 80 L10 5 A46 |J NOT FOUND ANYWHERE 86S L218 L11 A62 |FINDPER, J TO L11 IF NOT THIS TYPE 87 7 A55 |IF FOUND EXIT 7 WORDS FURTHER L1) +7.13.39.25... |CP,FP,SP,LP L10) 04 L7 L382 |ARRANGE TO CHECK LS 5 BITS ONLY 53 L449 6 A45 |SET REQUEST TYPE TO P L2) 16 A45 (L7) |OR IN IDLE BIT 14 A48 L252 |PREPARE TO COUNT THROUGH PLIST L5) 05 (A48) L7 A46 |MASK WITH TYPE AND IDLE 61 L6 A46 A45 |J WRONG TYPE OR NOT IDLE X L707 0 |SKIP EXCEPT ON NIRNS MACHINE ( 71 L3 L704 A48 |J NOT HPD 75 L6 31 A59 |NO TYPE CASE REJECT HPD ) L3) 116 0 (A48) 14 L265 (0) |SET K BITS 1N MIND+8 140.13 142 A47 |INTERROGATE THIS DEVICE 76 L4 L14 A47 |J ENGAGED &ABLE 61 L6 A44 |J NOT 1ST DISENGAGED 04 A44 A48 |RECORD 1ST DISENGAGED ONE L6) 81 L5 L171 A48 |COUNT THROUGH PLIST 61 L8 A44 |J IF THERE IS A DISENG ONE L9) 87X -L9 L9 A55 |NO SUITABLE DEVICES EXIT WITH OVR L14) 97XY (-1) (-1) -1 |MASK FOR DISENGAGED &DISABLED L8) 04 A48 A44 |SET DISENG ONE AS ONE FOUND L4) 75 (A55) 31 A59 |EXIT NO TYPE (JUST SEARCHING) L416) |ENTRY FROM ALLOCATE X L918 0 |SKIP NO OL ( 70 L7 L919 A48 |DON'T FILL CODE BUFFER FOR OL 70 L7 L921 A48 |OR IL ) 86 L771 A56 A44 00S L563 L759 0 |READ & ENTER FILLCODEBUFFER F9 15 L758 F9 39 L760 L7) 157XS (-8192) |OFF TS |MASK TYPE AND IDLE BITS 64 L207 (A48) |L207 IF FAIL 26 (A48) 10 |IGNORE FAILS 86 L153 L242 |ON TS

Page 100

15 (A48) 255 A45 |K T0 A45 04 A46 A59 |PROGRAMMERS' NAME TO A46 11 A48 L252 A47 |POSITION IN PLIST T0 A47 141.1 0 L375 |READ RESDEV 142 L374 L379 86 L374 A56 |ENTER RESDEV RESERVE PERIPHERAL 25 (A48) 11 |LISTEN TO FAILS 141.1Y 0 L240-L252 A48 |READ GEOG NAME 142 A58 1 141.1 0 L749 |READ PRINT RES REL 142 L751 L752 86 L750 1 A56 |ENTER TO PRINT RESERVED ETC. 87 0 A55 |EXIT L383=V2-L382 |LENGTH OF GETOUTPUTDEV |DERES. THIS IS A SUBROUTINE TO REMOVE A PERIPHERAL FROM A PROGRAM'S RESERVATIONS |LINK IN A50, Y ADDR OF 86 POINTS TO ADDRESS OF DIRECTORY WORD, CALLING ROUTINE MUST DEAL WITH FAILS. V2=L136 S0 L537))L538) 53 A51 39 A45 |POSITION OF MONITORING 15 A45 63 |PERIPHERAL TO A45 04Y A46 -1 A50 |ADDR OF DIRECTORY WORD OF 15 (A46) -1 A46 |PERIPHERAL BEING RELINQUISHED 11 A46 (A40) A47 |POSITION IN DIRECTORY 60 L18 (A51) |J IF NOT BRANCHED 116 (A51) 00 1 A47 A46 |A46=DIRECTORY ADDR FOR BRANCH 1 L18) 64 L1 A45 A47 |J IF POSITION OF MONITORING | PERIPHERAL NOT ALTERED 60 L2 A45 A47 |J IF MONITORING PERIPHERAL BEING | RELINQUISHED 116Y 0 -1 A45 |SET NEW L2) 14 A45 |POS OF MON PER 52 A45 15 |AND PUT 116 (A40) |IT INTO 110 7 L3 A45 |WORD 7 60 L4 (A51) |J IF NOT BRANCHED 10 A51 7 A48 |BRANCH COUNT L5) 64 L6 (A48) |J IF NON-EXISTENT BRANCH 116 (A48) |INSERT POSITION L8) 116 (0) |OF MONITORING PERIPHERAL 110 7 L3 A45 |IN WORD 7 OF NEXT BRANCH L6) 83 L5 (A51) A48 |CONT BRANCHES L4) 04Y A51 7 A40 |RESTORE A51 TO 121 A51 24 |NEW VALUE L1) 141.1Y 0 L240-L252 A62 |READ WORD 142 A56 1 |FROM GEONLIST 53 A56 16 A48 |NUMBER OF RESTART 15 A48 7 |WORDS TO A48 143Y L538 1 A48 |CLEAR SUITABLE AREA IN CORES 15 A56 -1 A45 |DRUM ADDRESS OF RESTARTS 141.21 0 (A45) |CLEAR OUT

Page 101

142Y L538 1 A48 |RESTARTS 15 (A46) 255 A48 |K BITS FROM DIRECTORY 70 L19 253 A48 |J IF FLOATING 52 (A46) 8 A45 |TYPE BITS 05 A45 L7 |TO A45 15 (A62) 255 A48 |K BITS TO A48 10Y A45 (L8) A48 |ADD K AND IDLE MARKER TO A45 112 (A62) 11 A45 |NEW PLIST WORD, LEAVE SIGN BIT L19) 111 (A62) (L158) |REMOVE POINTED TO BIT (REDUNDANT | EXCEPT FOR FLOATING) L7) 157XS -8192 |TYPE MASK |OFF TIME SHARING L9) 04XY 0 1 A46 |COPY NEXT WORD OF DIRECTORY BACK 1 60 L10 (A46) |J IF FINISHED (ZERO COPIED) 64 L11 (A46) |J IF FAILED (PLIST WORD NOT | POINTING HERE) 15 (A46) 255 A48 |K BITS 70 L11 253 A48 |J IF FLOATING 53 (A46) 17 A48 |POSITION IN 15 A48 63 |PLIST 20X L252 8 A48 |SUBTRACT 1 FROM ADDRESS IN X | POSITION OF PLIST WORD L11) 81 L9 A46 |TO NEXT DIRECTORY WORD L10) 86 L153 L242 |ON TS 60 L12 (A51) |J IF NOT BRANCHED (FINISHED) 14 A48 2 |START AT BRANCH2 L13) 64Y L14 (A51) A48 |J IF NON EXISTENT 00 A51 A48 A46 |ADDRESS OF THIS PER 00 (A46) A47 A46 |WORD IN THIS BRANCH L15) 04XY 0 1 A46 |COPY NEXT WORD 60 L14 (A46) |J IF REACHED END OF THIS DIRECTORY 81 L15 A46 |COUNT PERIPHERALS L14) 81 L13 8 A48 |COUNT BRANCHES L12) X L707 0 |SKIP EXCEPT AT NIRNS 70 L708 L704 A62 |IF HPD FRIG TIME-SHARER & EXIT 87 0 A50 |EXIT L3) 00YS 0 0 31 |MASK FOR POSN OF MON, PERIPH L17) L539=L17-L538 |LENGTH OF DERES |TERMINATE |THIS IS A SUBROUTINE TO DISENGAGE PERIPHERALS AFTER RUNNING OUT ETC AS APPROPRIATE V2=L136 | S0 | L259))L256) 04 L265 (A62) |K TO L265 15 L265 (L15) |& LOCKOUT 52 (A62) 1 A45 |TYPE TO A45M 57 A45 86 A44 |&CLEAR A44 71 L2 436 A45 |J IF NOT MT 15 (A62) 127 A46 |BAR TO A46 64 L23 (A46) |EXIT IF BARN L20)L14) +28,28,28,28,28,28,28,28 |OFF TS |UCS UP 2 BITS 64 L21 (A62) |EXIT IF FAILED 14 L144 L17 |SET UP 16 L145 (A62) |MONPER

Page 102

152 L168 L16 |ON TS. JUMP TO L1 L2) X L917 0 |SKIP NO DATA LINK ( 70 L23 300 A45 |DON'T DISENGAGE IL 70 L23 492 A45 |OR OL ) 140.13 |INTERROGATE L10) 142S A46 L3 |LINK FOR 152 IN L21 X L674 0 |SKIP IF NO IBM DECK ( 71 V2+3 308 A45 |J UNLESS IBM TAPE 52 A46 26 |SHIFT UP ENGAGED BIT & 27 A46 1 | INVERT IT FOR COMPATABILITY ) 77 L23 L880 A46 |EXIT IF DISENGAGED 86 L20 A46 |T0 SET UP MONPER|A46 MADE HARMLESS L22) 116 0 -L265 |MT.OFF TS WHEN CONTROL FREE 140.14 0 (L265) |REWIND 142 L21) 152 L168 L10 |ON TS &EXIT VIA L3 L1) 70 L22 436 A45 |J IF MT 70 L5 624 A45 |J IF SP 70 L6 208 A45 |J IF FP 70 L7 112 A45 |J IF CP X L545 1 X 0 0 70 L8 195 A45 |J IF FC 71 L9 400 A45 |J UNLESS LP 04 A44 L26 143 L256 15 A44 |FILL 15 WORDS WITH 0ZZZZZZ0 140.21 142 L8 1 |PAPER THROW 140.21 142 L256 15 |PRINT COMPLETE LINE 116 0 L8-L24 |LP. SET PT L8) 14YS A44 L24 |FC. SET NL|PT L7) 140.21 |CP 142 (A44) 1 |OUTPUT 4 NL PT OR BLANK CARDS 83 L7 L11 |COUNT UP TO 4 L11) 75 L9 L874 |TO DISENGAGE |NUMBER OF PAPER.THROWS L26) +16,58,58,58,58,58,58,16 |0ZZZZZZ0 FOR LP L17) 25 L143+4 9 |MONPER, MAKE MIND HARMLESS IF IN PER? 86 L664 L242 |TO KERNEL TO PROCESS FAILURE L16) 75S L3 L1 |EXIT L5) 53 L14 2 A44 |SP SET UC X L662 1 ( L6) 143 L256 37 A44 |FP |CLEAR 37 WORDS ON ORION 2 | OR SET TO UC L24) 13S L256+24 51.62 ) X L662 2 ( L6) 143 L256 30 A44 |30 WORDS ON ORION 1 L24) 13S L256+14 51.62

Page 103

) 70 L25 624 A45 |J IF SP 04 L256+14 L4 |SET ERASES FOR FP 116.6 |MODE 28 FOR FP L25) 140.22 |MODE 22 FOR SP X L662 1 142 L256 296 |MORE RUNOUT ON ORION 2 X L662 2 142 L256 240 |OUTPUT RUNOUT ETC. L9) 140.16 |DISENGAGE L15) 142 0 255 |Y USED AT L256 G874=4 |OPTIONAL NO. OF PAPER-THROWS L3) 24 (A46) 10 |SET BAR FOR MT-OTHERWISE HARMLESS L23) 17 L145 (L145) |OFF MONPER. 87 0 A50 |EXIT L4) +31,31,31,31,31,31,31,31 |ERASES FOR FP L544=V2-L256 |RELINQ SUBROUTINE TO RELINQUISH A PERIPHERAL (CALLED IN BY 150/31, 150/11, REL & ABO DIRECTIVES |LINK IN A58. Y ADDR OF 86 POINTS TO ADDRESS OF DIRECTORY WORD, USES DERES AND PRINT RES-REL TO DO ALL THE WORK |- COPES WITH FAILS ITSELF, SELF PRESERVING S0 V3=L538+L539 V4=L751+L752 V5=L256+L544 W2=V3+V4+V5 |ENSURE STARTS AFTER DERES, TERMINATE & PRINT RESREL L540))L541) 04 A61 A25 |MONPER RESTART, REMEMBER FAIL 75 L665 | AND RETURN VIA KERNEL L542) 04Y A49 (L2) A58 |CHECK LOCKOUTS 15 (A49) -1 A49 |ADDR OF PERIPH BEING RELIQD L4) 152 L168 L772 |OFF TS OR ON TS TO L207 64 L4 (A49) |TO L207 IF DIRECT, WORD SAYS FAILED 53 (A49) 17 A62 15 A62 63 10 A62 L252 |A62 = ADDR OF PLIST WORD X L707 0 64 L730 (A62) |AT RHEL,TO EXTRA 64 IF PLIST NEG X L707 241 64 L4 (A62) |TO L207 IF PLIST WORD SAYS FAILED 14 L144 L541 111 L145 -1 A62 |SET UP MONPER 86 L153 L242 |ON T.S. TO NEXT INSTRUCTION 114 (A49) A59 A57 |PROG NAME TO A59, PRESERVE A59 IN A57 141.1 0 L537 |READ DERES 142 L538 L539 86 L538 A49 A50 |ENTER DERES L6) 152 L168 L7 |OFF TS OR ON TS J TO L8 17 L145 (L145) |OFF MONPER 65 L6 (A62) |J TO L8 IF NOT FAILED 56 A61 0 A25 |SET ACCS FOR KERNEL 14 A17 L141 86 L773 L242 |PUT AWAY FAIL & RETURN TO L8 L8) 04 A61 A62 |PRESERVE A62 15 A59 255 A44 |K BITS TO A44 53 A59 24 |PROGRAMMERS' NAME TO A59M 114 A56 A58 A55 |GEOG NAME T0 A58 PRESERVE LINK IN A5 71 L11 253 A44 |J NOT FLOATING

Page 104

L7) 14S A58 L8 |MAKE A58>0 TO SUPPRESS PRINTING GEOG? L11) 141.1 0 L749 |READ PRINT RESREL 142 L751 L752 86 L750 2 A56 |PRINT RLQD ETC 04 A59 A57 |RESTORE A59 L2) 65Y L16 -1 A55 |IF 86 SIGNALLED DONT TERMINATE 65 L16 A58 |DONT TERMINATE IF FLOATING 04 A62 A61 |RESTORE A62 86 L771 A50 A44 |TO TERMINATE 00S L259 L256 0 F9 15 L256 F9 39 L544 L16) 87 0 A55 |EXIT L543=V2-L541 |LENGTH OF RELINQ |150/31 L338=L540 L340=L541 S0 |COMES DOWN WITH RELINQ L339) 73 L179 4 A60 |IMPOP Y>3 86S L218 L205 A62 |DUMMY IF NOT RESERVED 70 L14 (A60) |J Y=0 15 (A63) 255 A45 |K TO A45 14 A50 8 70 L784 253 A45 |PERIPH VIOL IF FLOATING 15 A59 992 A45 71 L13 576 A45 |J 2ND LETTER NOT R 11 A63 (A40) A45 |NUMBER OF DIRECT WORD 141.1 0 L267 |TO MONOUT/E1 (CHECK ENGAGED) 142 L272 L273 86 L587 A50 11 L145 L252 A55 |PRESREVE POSITION IN PLIST IN A55 04 A52 A48 |INT.INF TO A52 86 L742 A50 |MONOUT/E4 75 L2 L13) 15 A59 -32 A45 71 L179 2 A60 |IMPOP UNLESS Y=2 X L917 0 70 L179 *IL A45 |IMPOP IF IL 26 A60 10 |REMEMBER BEEN THIS WAY 71 L12 *MT0 A45 |J NOT MAGTAPE L14) 26 L12 10 |MARK TO TERMINATE IF Y=0 OR MAGTAPE L2) 70 L1 1 A60 |DONT RELINQ Y=1 L12) 86S L542 A63 A58 |RELINQ & POSSIBLY TERMINATE 141.1 0 L255 |READ SWITCHON 142 L238 L292 11 A62 L252 A55 |REMEMBER POSITION IN PLIST 86 L238+2 8 A63 |SWITCH ON PROGS AWAIT, SPACE 60 L205 A60 |FINISHED Y=0 65 L15 A60 |J SLOW INPUT DEVICE 65 L205 L12 |TO START UNLESS MT 81 L205 (A46) |TO START STEPPING BAR L15) 70 L8 3 A60 |J Y=3 (ABOLISH) L1) 02S 0 0 0 |OFF TS |SELECT BIT 06 A52 L1 A25 |INSERT SELECT BIT INTO INFO 10 A55 L252 A26 |A26 POINTS TO PERIPH 04 A27 (A26) 14 A17 L141 |A17 POINTS TO PSIND 86 L664-2 L242 |ENTER KERNEL AS SUBROUTINE

Page 105

75 L205 |EXIT TO START L8) 52 A55 24 A59 |POSITION IN PLIST TO A59 AS 86 L456 A44 |REQUIRED BY ABOLISH 00S L308 L309 0 |ENTER 150/11 F9 15 L310 F9 39 L311 L11) L341=L11-L340 |LENGTH OF 150/31 + RELINQ |150/30 V2=L136+120 S0 L334))L336) +436....1 |TABLE OF DEVICE TYPES MT +210....1 |FR +626....1 |SR +114....1 |CR +722....1 |VR +208....4 |FP +624....5 |SP +400....2 |LP +112....2 |CP X L674 0 +308....1 |IT IF EXISTS X L916 0 +195....3 |FC IF EXISTS X L917 0 +300....1 |IL IF EXISTS L783=V2-L336 |LENGTH OF TABLE FOR 150/33 X L918 0 +492....3 |OL IF EXISTS X L707 0 +272....3 |HP IF EXISTS X L545 1 X 0 0 +171....3 |EK IF EXISTS X L670 0 ( +161....3 |EA IF EXISTS +163....3 |EC IF EXISTS +164....3 |ED IF EXISTS ) X L130 0 ( +147....3 |DS IF EXISTS +148....3 |DT IF EXISTS ) X L133 0 +132....3 |DD IF EXISTS L335) 52 A59 19 A58 |ENTRY.TYPE IN TOP ½ MAKE 58>0 146 L336 A58 A53 |SCAN FOR TYPE 04 A53 (A53) 70 L179 (A53) |IMPOP IF NOT RECOGNISED TYPE 86S L218 L4 A62 |J TO L4 IF NOT RESERVED 71 L205 2 A53 |EXIT IF NOT TO FILL CODE BUFFER 86 L771 A56 A44 |TO FILLCODEBUFEER 00S L563 L759 0 F9 15 L758 F9 39 L760 75 L205 |EXIT TO START

Page 106

L4) 71 L1 1 A53 |J NOT INPUT DEVICE 141.1 0 L281 |READ UNPOINT 142 L278 L282 52 A59 32 A57 |SHIFT UP TYPE 05 A57 L276 |LEAVE ONLY TYPE 16 A57 (L276) |OR IN IDLE BIT 86S L275 L3 A63 |UNPOINT/TO L3 IF NONE 04 A46 A59 |PROG NAME T0 A46 16 (A56) (L158) |MARK POINTED TO 11 A56 L252 A47 |POSITION IN PLIST TO A47 14 A45 253 |SET K AS FLOATING 141.1 0 L375 |READ RESDEV 142 L374 L379 86 L374 A56 |ENTER RESDEV 141.1 0 L749 |READ PRINT RESREL 142 L751 L752 86 L750 1 A56 |PRINT RSVD ETC 75 L205 |EXIT TO START L1) 86 L771 A55 A44 |TO GETOUTPUTDEV 00S L380 L381 0 F9 15 L382 F9 39 L383 X L707 241 66 L205 4 |FINISHED IF RESD EXCEPT AT NIRNS X L707 0 ( 67 L3 4 |AT NIRNS J IF NOT RESD 71 L205 3 A53 |EXIT UNLESS HFD 86 L708 A50 |FRIG TIME-SHARER 75 L205 |EXIT TO START ) L3) 86 L771 A49 A44 |TO SET OVERFLOW 00S L779 L780 0 F9 15 L781 F9 39 L782 75 L205 |EXIT TO START L337=V2-L336 |LENGTH OF 150/30 |150/33,34&35 S1 |CHAPTER 1 V2=L136+100 S0 L343))L345)L344) X L883 0 72 L1 192 A60 |J IF SCRATCH TAPE X L883 0 X 0 0 72 L1 64 A60 04 A54 A60 86 L175 A44 |CHECK Y 74 L2 2 A59 |J X>2 70 L2 (A59) |J X=0 116 0 1 |1 MORE WORD X=1OR2 L2) 10 A54 7 86 L175 A44 |CHECK Y+7 OR Y+8 74 L1 2 A59 |J X>2 TO LOOK FOR PERIPH

Page 107

71 L3 (A59) | J X NONZERO 70 L179 33 A61 |IMPOP X=0 IN 150/33 86 L456 A44 |ENTER CHAP 3 AT L1.0 00S L728 L1.0 0 F9 15 L1.1 F9 39 L1.2 L3) 70 L4 2 A59 |J X=2 (OUTPUT) 141.1 0 L297 |READ FINDOC 142 L296 L298 04 A46 A60 L17) 14 A45 |SET TO LOOK ANYWHERE|END OF 146 SEA? 86 L296 A63 |LOOK ELSEWHERE 71 L5 L171 A52 |J FOUND 86 L456 A44 |ENTER CHAP 3 AT L1.3 00S L728 L1.3 0 F9 15 L1.1 F9 39 L1.2 L4) 04Y A59 8 A60 |PICK UP DEVICE NUMBER 15 A59 31 |FOR GETOUTPUTDEV 86 L771 A55 A44 |TO GETOUTPUTDEV 00S L380 L381 0 F9 15 L382 F9 39 L383 14 A59 2 |RESTORE A59 FOR SET OVR 67 L6 4 |J NONE AVAIL 04 A52 A48 |POSITION IN PLIST TO COMPATIBLE P? L5) 53 (A52) 32 A59 |BOTH INPUT &OUTPUT 15 A59 -1 |TYPE TO A59 04Y A63 8 A60 |READ Y+8 (DIGITS) 111 A59 31 A63 |FORM UP PROGRAMMERS' NAME 04X 8 A59 A60 |WRITE AWAY COMPLETE NAME TO Y-8 L1) 141.1 0 L334 142 L7 L783 |READ TABLE OF DEVICES 121 A59 29 A53 |TYPE NEAR TOP 146 L7 A53 A53 |SCAN TABLE 70 L8 L7 A53 |J IF MAGTAPE X L883 0 72 L179 192 A60 |IMPOP NOT MT X L883 0 X 0 0 72 L179 64 A60 L8) 04 A53 (A53) 70 L179 (A53) |IMPOP NON RECOGNISED TYPE 71 L9 1 A53 |J IF OUTPUT 86S L218 L10 A62 |J TO L10 IF NOT ALREADY RESERVED 86 L456 A44 |ENTER CHAP 3 AT L1.4 00S L728 L1.4 0 F9 15 L1.1 F9 39 L1.2 L10) 141.1 0 L281 |READ UNPOINT 142 L278 L282 52 A59 32 A57 |TYPE TO TOP 0F A57 05 A57 L276 |TYPE ONLY 16 A57 (L276) |TYPE & IDLE BITS 86S L275 L6 A63 |UNPOINT/TO L6 IF NONE 86 L456 A44 |ENTER CHAP 3 AT L1.5 00S L728 L1.5 0

Page 108

F9 15 L1.1 F9 39 L1.2 L9) 141.1 0 L415 |HERE FOR OUTPUT DEVICES 142 L219 L414 |READ CHECKDOC 86 L220 A60 A57 |CHECK DOCUMENT NAME 14 A50 3 64 L784 A41 |TO WRITING WITH OVR IF SET L12) 86S L218 L11 A62 |J TO L11 IF NOT RESERVED|DIRECT WOR? 86 L456 A44 |ENTER CHAP 2 AT L1.6 00S L727 L1.6 0 F9 15 L1.7 F9 39 L1.8 L11) 86 L771 A55 A44 |TO GETOUTPUTDEV IF NOT RESERVE! 00S L380 L381 0 F9 15 L382 F9 39 L383 66 L12 4 |J IF RESERVED SUCCESSFULLY L6) 71 L13 34 A61 |NOT AVAIL |J UNLESS 150/34 86 L771 A49 A44 |TO SET OVERFLOW 00S L779 L780 0 F9 15 L781 F9 39 L782 75 L205 |EXIT TO START IN 150/34 L13) 141.1 0 L268 |IN 150/33&35 READ FLAS 142 L136 L273 14 A62 47.48 |SET PRESUMPTIVE LETTERS AS OP 70 L14 2 A59 |J X=2 (OP CORRECT) 53 A59 5 A62 |FORM UP 2 LETTERS 15 A62 1024-32 A63 10Y A62 2048+32 A63 L14) 52 A62 12 |2 LETTERS UP 2 CHARS 10 L15 (A62) |FORM NO SPACE 2 LETTERS NEWLINE 86 L134 48,L15 A50 |SEND IT OUT 86 L135 A50 |PRINT 06 (A40) L16 |HALT AWAITING SPACE 75 L161 |EXIT TO CHARGE L15) +4.46.47....2. |TAB NO SPACES NL L16) +8.... |FOR HALTING AWAITING SPACE L346=V2-L345 |LENGTH CHAPTER 1 L7=L17-L783 |ADDRESS FOR LIST OF DEVICES |CHAPTER 2 V2=L136+100 S0 L727))L1.7) +7,7,7,7,7,7,7,7 |UPPER CASES |USED IN 120 L1) 04Y A62 7 A60 |PRINT DOC SR|LAST COMPONENT TO A62 14Y A55 7 A60 |A55 POINTS TO IT 60 L2 A62 |J LAST COMPONENT CLEAR 71 L3 30 A62 |J LAST NOT -(PRINT ALL) L2) 82 L4 (A60) A55 |COUNT COMPONENTS 60 L2 (A55) A62 |J THIS COMPONENT SAME AS LAST 61 L4 A62 |J IF HAVE BEEN COUNTING MINUSES 85 L3 (A55) 30 |SPACE ADD 1 IF LAST NON-SPACE IS? L4) 10 A55 1 |FOR - OR COUNT EXHAUSTED PRINT 1 EXT? L3) 04 A56 A60 |SET MODIFIER 81 L5 A55 |DONT PRINT SOLIDUS FIRST TIME

Page 109

L6) 86S L134 512+15 A50 |SOLIDUS L5) 04 L1.7-1 (A56) |NEXT COMPONENT 56 L1.7-1 0 A57 |COPY FOLLOWED BY UPPER CASES 124 L1.7-1 48 A62 |REMOVE LH SPACES 120 L1.7 (A62) A62 |A62=½ NUMBER OR SPACES 56Y A57 (A62) A62 |SHIFT UP COMPONENT &DUMMIES BELOW 86 L134 4096+A57 A50 |SEND COMPONENT 81 L6 (A55) A56 |COUNT COMPONENTS 71 L7 L8 A63 |J IF NOT FLEX 86 L134 1024+L9 A50 |SP* L7) 86 L135 A50 |NL AND PRINT 87 0 A63 |EXIT FROM SUBROUTINE L14) +36.47.35.53.45.37.46.52 |DOCUMENT L9) +1...... |SPACE ASTERISK L1.9) 86 L1 A63 |ENTRY FROM CHAP 3|PRINT DOCNAME *NL L8) 70 L205 35 A61 |START IF 150/35 L12) 75 L206 28672 |EXIT |MODE 28 FOR 5 TRAOK L1.6) |ENTRY FROM CHAP 1 (OUTPUT DEVICES) 86 L771 A56 A44 |FILL CODE BUFFER & CHECK ENGAGED 00S L563 L759 0 F9 15 L758 F9 39 L760 11 A63 (A40) A45 |POSITION IN DIRECTORY 141.1 0 L267 |READ MONOUT 142 L136 L273 86 L587 A50 |TO SPECIAL MONOUT/E1 72 L10 4 A53 |J NOT TAPE PUNCH 14 A62 |PRESUMPTIVE FIGURE SHIFTS 70 L11 4 A53 |J IF FR 11 L12 6144 |SET MODE AS 22 04 A62 L1.7 |SET UPPER CASES FOR SP L11) 143 L13 30 A62 |30 WORDS RUNOUT 140 (L12) 142 L13 240 |2 FEET RUNOUT L10) 86 L135 A50 |NL 86 L134 72,L14 A50 |PRINT DOCUMENT SP 86 L1 A63 |DOCUMENT NAME NL 72 L15 4 A53 |J NOT TAPE PUNCH 140 (L12) 142 L13 120 |1 FOOT RUNOUT L15) 86 L742 A50 |TO MONOUT/E4 75 L205 |EXIT TO START L13) L1.8=L13-L1.7 |LENGTH CHAPTER 2 |CHAPTER 3 V2=L136+85 S0 L728))L1.1)L1.4) 04 (L1) (A63) A62 |ALREADY RESERD, COPY DIRECT,WD CWK LO? 64 L207 A62 |TO L207 IF FAILED 15 A62 255 A58 |K BITS 70 L2 253 A58 |J ALREADY FLOATING 53 A62 17 15 A62 63 10 A62 L252 |ADDRESS OF PLIST WORD L3) 152 L168 L772 |OFFTS|ON TS J TO L207 64 L3 (A62) |TO L207 IF FAILED 52 (A63) 8 A21 |TYPE

Page 110

15 (A62) 255 |LEAVE ONLY K 110 (A62) L4 A21 |INSERT TYPE 16 (A62) (L5) |IDLE & POINTED TO 86 L153 L242 |ON TS 14 A58 253 111 (A63) 255 A58 |MARK FLOATING IN DIRECTORY 60 L6 (A51) |J NOT BRANCHED 14 A57 7 |BRAND 01 A63 A40 |POSITION IN DIRECTORY L7) 64Y L8 (A51) A57 |J NON-EXISTENT BRANCH 116X (A51) 0 A57 L5) 117 (0) 0 2 |IDLE & POINTED TO 111 (A63) 255 A58 |MARK FLOATING IN THIS BRANCH L8) 83 L7 A57 |COUNT BRANCHES L6) 86 L771 A50 A44 |TO TERMINATE OLD PERIPH 00S L259 L256 0 F9 15 L256 F9 39 L544 141.1Y 0 L240-L252 A62 |GEONLIST ENTRY TO A58 142 A58 1 141.1 0 L749 |READ PRINT RESREL 142 L751 L752 86 L750 3 A56 |PRINT FLTD ETC. L1.5)L2) 141.1 0 L297 |ENTRY NOT PREVIOUSLY RESERVED 142 L296 L298 |READ FINDDOC 53 A59 5 A45 |SET TYPE 04 A46 A60 |SET ADDRESS OF DOC 86 L296 A63 |ENTER FINDDOC 71 L9 L171 A52 |J IF FOUND L1.3) 71 L10 33 A61 |ENTRY X=1 J NOT 150/33 L1.0) 70 L21 34 A61 |J Z=34 X=0 06 (A40) L11 |HALT AWAIT DOC, Z=33 OR Z=35 X=0 L21) 26 A61 10 |MARK NOT TO SET OVR L10) 72 L12 192 A60 |J S CRATCH 141.1 0 L415 |READ CHECKDOC 142 L219 L414 86 L219 A60 A57 |CHECK DOC L12) 64 L13 A61 |J NOT TO SET OVR 86 L771 A49 A44 |TO SET OVR 00S L779 L780 0 F9 15 L781 F9 39 L782 L13) 70 L205 34 A61 |START IF 150/34 141.1 0 L268 |READ FLAS 142 L136 L273 86 L134 56,L14 A50 |SEND TB LOAD SPSP 53 A59 5 A62 15 A62 1024-32 A63 10Y A62 2048+32 A63 |FORM UP 2 LETTERS 52 A62 36 86 L134 1536+A62 A50 |SEND LETTER LETTER SPACE 72 L15 192 A60 |J SCRATCH TAPE 86 L456 A44 |ENTER CHAP 2 AT L1.9 00S L727 L1.9 0 F9 15 L1.7 F9 39 L1.8 L1)L4) 157XS -8192 |TYPE MASK

Page 111

L11) +2.... |DOC SUSPENSION L14) +4.44.47.33.36... |TB LOAD L15) 57 A60 55 A44 |CLEAR A44 A45 FOR L 72 L22 64 A60 |J IF NO PREF 10 A45 10 A44 |EMBRYO H/L 52 A44 20 15 A60 63 L22) 101 L16-1 L17 A60 |CONVERT NOMINAL LENGTH 06 L16-1 A44 |CONVERT H,L OR SP 86 L134 1,48,L16-1 A50 |DIGITS SCR * 86 L135 A50 |NL & PRINT 70 L205 35 A61 |TO START IF 150/35 75 L161 |OTHERWISE DONT START L17) +10000000 +58,58,58,58,10,58,58,1 |RADIX WORDS L16) +7,51,35,50,,1,, |SCR SP* L9) 141.1 0 L281 |HERE IF DOC FOUND 142 L278 L282 |READ UNPOINT 141.1 0 L240 |READ GEONLIST 142 L283 L651 86S L218 L18 A62 |J TO L18 IF NOT YET RESERVED 04 A48 A63 |REMEMBER ADDRESS OF DIRECT WORD 53 (A48) 17 A62 |ADDRESS IN PLIST OF 1 POINTED TO 15 A62 63 10 A62 L252 A56 111 (A56) (L158) |REMOVE POINTED TO BIT 60 L19 A52 A56 |J IF POINTER RIGHT 04 A55 A52 |A55=PLIST WD OF NEW DEVICE 86 L277 A63 |UNPOINT, TAKE POINTERS OFF OLD 04 A56 A52 |&SWAP DADDS 04 A57 A40 04 A58 A48 |SET ACCS FOR UNPOINT/E3 86 L279 A63 |MAKE PROG POINT TO NEW PERIPH 141.21 0 L240 |WRITE BACK GEONLIST 142 L283 L651 L19) 11 L20 L1.11-L1.10 |RESD ENTER CHAP 4 AT L1.10 L18) 86 L456 A44 |NOT RESD ENTER CHAP 4 AT L1.11 L20) 00S L729 L1.11 0 F9 15 L1.12 F9 39 L1.13 L1.2=V2-L1.1 |LENGTH CHAPTER 3 L283=L136+L282 |CORE ADDRESS FOR GEONLIST |CHAPTER 4 V2=L136+100 S0 L729))L1.12) 152 L168 (L1) |SR TO SET MONPER ON/OFF TS CHECK LOC? 64 L1.12 (A52) |TO L207 IF FAILED 10 L145 (A52) 14 L144 L2 |SET MONPER 86 L153 L242 |ON T.S. 87 0 A50 |EXIT FROM SR L1.10) 86 L1.12 A50 |ENTRY RESERVED SET MONPER 15 (A52) 255 A46 |K BITS OF NEW DEVICE

Page 112

14 A47 254 |MONITORING K BITS 111 (A48) 255 A47 |INSERT AS IF MONITORING 04 A63 (A48) 74 L3 (L170) A63 |J IF REALLY MONITORING 111 (A48) 255 A46 |INSERT REAL K BITS L3) 04 A53 A40 |A53 POINTS TO CALLING PROGRAM 60 L4 (A51) |J NOT BRANCHED 01 A48 A40 |POSITION OF DIRECT WORD 10 A51 7 A45 |BRANCH COUNT L5) 64 L6 (A45) |J IF NON-EXISTENT BRANCH 00 (A45) A48 A62 |ADDRESS OF DIRECTORY WORD 111 (A62) 255 A47 |SET AS IF MONITORING 04 A63 (A62) 74 L6 (L170) A63 |J IF MONITORING IN THIS BRANCH 111 (A62) 255 A46 |REAL K BITS IN THIS BRANCH L6) 83 L5 (A51) A45 |COUNT BRANCHES 04Y A53 1 A51 |A53 POINTS TO BRANCH 1 15 A53 -1 00 A48 A53 |A48 POINTS TO DIRECT WORD BRANCH 1 L4) 52 A48 24 52 A53 8 00 A53 A48 110 (A52) L7 A53 |INSERT PLIST WORD 11 A52 L252 A47 |POSITION IN PLIST 04Y A52 L283-L252 A52 |GEOG NAME TO A52 83 L8 L9 |JOIN OTHER CASE SETTING MARK TO |SUPPRESS PRINTING OF RESD L1.11) 15 (A52) (L158) A63 |ENTRY NOT RESERVED, POINTED TO BIT 04 A55 A52 |SET A55 FOR UNPOINT 60 L10 A63 |J NEW NOT POINTED TO 86 L278 A63 |TO UNPOINT 111 (A52) (L158) |REMOVE POINTED TO BIT 141.21 0 L240 142 L283 L651 |WRITE UP GEONLIST L10) 86 L1.12 A50 |SET MONPER 11 A52 L252 A47 |POSITION IN PLIST 15 (A52) 255 A45 |K TO A45 04Y A52 L283-L252 A52 |REMEMBER GEOG NAME 141.1 0 L375 |READ RESDEV 142 L374 L379 04 A46 A59 |SET A46 FOR RESDEV L12) 86S L374 L13 A56 |TO RESDEV L8)L11) 152 L168 L12 |OFF TS|ON TS J TO L13 17 L145 (L145) |OFF MONPER 65Y L11 L252 A47 |J TO L13 IF NOT FAILED 04 A25 L14 |FAIL INF T0 A25 14Y A26 L252 A47 |ADDR IN PLIST TO A26 04 A27 (A26) |COPY OF PLIST WORD 86 L664 L242 |TO KERNEL, RETURN TO L13 L13) 72 L15 192 A60 |J IF SCR TAPE 10 A60 7 A63 75 L15 (A63) A42 |J IF Y+7 NOW OUTSIDE RESERVATIONS 141.1Y 0 L299 A22 |READ REAL DOC NAME 142 (A60) 8 |TO Y TO Y+7 L15) X L883 0 |SKIP LOW DENSITY ( 72 L16 L303-L299 A22 |J NOT MAG TAPE 141.21Y 0 L299-1 A22 |WRITE UP NEW TAPE BIT

Page 113

142 A39 1 ) L16) 04 A58 A52 |GEOG NAME TO A58 141.1 0 L749 |READ PRINTRESREL 142 L751 L752 L9) 86 L750 1 A56 |*TO PRINT YADDR=0 IF PREVIOUSLY RESD 75 L205 |EXIT TO START L7) 157XYS (-1) (-256) -1 |MASK NOT K & SIGN L2) 04 L14 A25 |MONPER REMEMBER INFO L1) 75 L665 L772 |RETURN STTING SIGN BIT IN PLIST L14) L1.13=L14-L1.12 |LENGTH CHAPTER 4 |PROGFAIL. OUTPUTS PROGFAIL MESSAGE ON THE MONITORING PERIPHERAL AND/OR FLEXOWRITER, AND DEALS WITH MONITORING |ON *IMP AND *PFP/N. USES INSTRUCTION PRINT - SEE PRINTOUT P S0 V2=L136 L425))L426) L20) +41,45,48,31,47,48,37,50 |IMP.OPER +41,44,44,31,41,46,51,52 |ILL.INST +42,53,45,48,0,51,41,39 |JUMP SIG +55,31,55,31,47,54,50,7 |W.W.OVR +40,44,52,36,31,51,41,39 |HLTD.SIG +38,44,52,31,47,54,50,7 |FLT.OVR +38,56,36,31,47,54,50,7 |FXD.OVR +50,37,51,31,54,41,47,44 |RES.VIOL +48,37,50,31,54,41,47,44 |PER.VIOL |STYLE 7 MKS AND SUSPENSION STYLES L21) +8...4.9...4 |HALF WORDS IN PARALLEL +4...1.9...4 +2...1.5...1 |TOP CHAR. IS STYLE 7 MK +6...1.9...4 |L.S CHAR. IS SUSPENSION STYLE L30) +9...2....+L267-L268 |L.S. HALF USED AS PREMOD L22)L747)) +0 |*IMP MONITORING STYLES +0 +0 +0 +0 +0 +0 +0 L23)L761)) +0 |*PFN AND *PFP MONITORING STYLES +0 +0 +0 +0 +0 +0 +0 |STYLE 7 ROUTINE (FIRST PART) L26) 116Y 0 -1 A44 |LOOK UP MONITORING STYLE

Page 114

122Y A45 (0) A36 15 A45 -1 A54 |L.S 15 TO A54 73 (A44) (A52) A56 |EXIT IF RET FROM STYLE 7 70 (A44) (A54) |EXIT IF NOT MONITORING 73 V2+2 (A54) A43 73 L27 (A54) A42 |J IF INSIDE RESVNS. 14 A50 7 |CHANGE ENTRY TO RES.VIOL 75 (A44) |EXIT L446) 14 A48 |ENTRY FROM 150S, CLEAR WRITE BACK ??? L832) 52 A48 24 |ENTRY FROM INTERPRETER 04Y A63 2 A40 |W2 TO A63 05 A63 L24 A22 |CLEAN C.N. IN A22 06 A22 A48 |WRITE BACK ADDRESS 121 A63 -6 A56 15 A56 31 |STYLE 7 MK IN A56 116 (A40) 121 7 -8 A36 05 A36 L189 |PROG NO ROUND 1 IN A36 61 L25 A50 |J IF NOT IMPOP 115 A0 8.32 A52 |A52S=1 A52M=STL 7 FOR IMP OP L29) 86 L26 L22 A44 |DEAL WITH *IMP L25) 115 A0 9.32 A52 |A52S=1 A52M=STL 7 FOR PFN/P LO) 86 L26 L23 A44 |DEAL WITH *PFN/P 04Y L29 L20 A50 |PICK UP MESSAGE 121 A50 1 122Y L29+1 L21 A50 |AND STYLE 7 MK AND SUSP STL 116 0 (L30) |READ MONOUT L58) 141.1 0 L268 |READ FLAS 142 L136 L273 86S L134 8.7 A50 |INITIAL ENTRY OR DUMMY 86 L134 8.+L272 A50 |DUMMY OR TB. 71 V2+2 (L272) |J IF MONOUT 65 L812 A52 |J IF *PFP WITH NO MONPER 86 L134 1.0.+L29 A50 |MESSAGE 86 L135 A50 |NL. 70 L36 (A41) A63 |J IF STRING ALREADY PRINTED L34) 143 L0 4 |CLEAR PREMODS L1) 04 A54 A63 86 L134 +8.+L272 A50 |UC, OR TB. 86 L2 1.0.A38 A50 |C.N. 141.1 0 L467 |READ INSTRUCTION PRINT 142 L468 L470 60 L7 A39 |J CN OUTSIDE RESERVATIONS 86 L468 L469 |PRINT INSTRUCTION 141.1 0 L54 |READ PRINT SRS 142 L10 L53 70 L7 (L272) |J IF FLAS 04 A58 (A63) |COPY INSTR, 15 A61 -1 A59 |X TO A59, Y TO A60 15 A60 -1 |Z TO A61, F IS IN A57 53 A61 40 00 A61 A43 14 A56 A59 |X/Y SWITCH L3) 00XY 0 L0-A59 A56 |116 PREMODS 121 L56 (A56) A54 76 L4 A54 A58 |J IF NOT X/Y REPLACED

Page 115

04 A54 (A56) 86 L10 A44 |PRINT REPLACER 04 (A56) A54 |REPLACE L4) 00XY 0 L0-A57 A56 |117 PREMODS 80 L3 A60 A56 |SWITCH L5) 121 L55 24 76 L6 L55 A58 |J IF NOT X/Y MODIFIED 70 L15 L15 A44 |J IF ALREADY PRINTED Z 70 L6 (A43) A61 |SUPPRESS Z IF A0 04 A54 A61 86 L10 A44 |PRINT Z L15) 00X -2 (A61) A56 |MODIFY L6) 80 L5 A62 A56 |SWITCH 143 L0 4 |CLEAR PREMODS 72 L7 94 A57 |J IF NOT 116 OR 117 74 L7 95 A57 52 A57 1 04X L0-188 A59 A57 |STORE PREMODS 04X L0-187 A60 A57 L7) 86 L135 A50 |NL. L8) 81 L1 (A41) A63 |PRINT WHOLE STRING 86 L742 A50 |CLOSE MONOUT 71 L58 (L272) |J IF MONOUT L36) 04Y A54 5 A40 04 A44 L35 |COPY CCW 77 L131 L813 A54 |J IF *JUM STYLE 2 L812) 65 L37 A52 |J IF STYLE 7 *PFP/N 04 A54 L29+1 |PICK UP STYLE AND SUSPENSION STYLE 116 (A40) 110 2 L33 A54 |INSERT STYLE 7 MARK 110 (A40) L28 A54 |INSERT SUSP STYLE 75 L161 |STYLE 7 ROUTINE (SECOND PART) L27) 04 A52 A54 |STORE STYLE 7 ADDR, 74 (A44) -1 A45 |EXIT IF PRINTING L37) 86 L456 A44 |GET REST OF STYLE 7 ROUTINE 00S L60 L61 0 F9 15 L61 F9 39 L62 L33) +31....... |MASK FOR STYLE 7 MARK L24) 0 0 -1 0 |MASK FOR LINK L28) +15.... |MASK FOR SUSPENSION STYLE L35) 00S L474 L475 0 |CCW FOR J STL.2 PRINT F9 15 L476 F9 39 L477 |PRINT SUBROUTINES L10)L54)) 86S L134 8.8 A50 |( 86 L2 48.A38 A50 |ADDRESS 86S L134 8.9 A50 |) 60 L7 A39 |J IF OUTSIDE RESVNS, 86S L134 8.5 A50 |= 25 (A54) 9 A54 |CONTENTS TO A54M 75 L11 -1 A54 |J IF TOP 9 CLEAR

Page 116

53 A54 15 A38 101 A38 L12 86 L134 32.A38 A50 |PRINT DDD. L11) 86 L2 56.A38 A50 |PRINT LAST 15 AS ADDRESS 87 0 A44 |EXIT L12) +1000 |RADICES FOR TOP 9 BITS +58.58.26.33.1.1.1.1 L2) 15 A54 -1 A38 64 L14 A38 A43 |J IF NOT IN RESERVATIONS 72 L14 (A38) A42 01 A38 A43 |SUBTRACT DATUM POINT 116 0 26 |PREPARE TO TURN UC. INTO A L14) 14 A39 0 101 A38 L50 115 A38 (A39) |ADJUST M.S CHARACTER 75 L134 |GO TO MONOUT L55) 157X (-1) (-1) -1 |NOT TY. L56) +63.63.47.63.63.63.63.63 |NOT RX, ROUND -59 PLACES L50) +1000000 +58.58.58.58.58.26.1.1 L427=V1-L425 |LENGTH OF PROGFAIL L53=V2-L10 |LENGTH OF PRINT ROUTINES |REST OF STYLE 7 ROUTINE V2=L10 L60))L61) 11 A41 (A22) A44 |STRING COUNT TO A44 15 A44 127 |MOD 127 121 A44 8 |IN FUNCTION POSN, 06 A22 A44 |IN A22 04X -1 A22 A52 |WRITE AWAY LINK ETC, 110 A41 L24 A52 |SET C.N. 75 L205 |START L62=V2-L61 |LENGTH C 0 63 |ABOLISH. RELEASES A JOBS PERIPHERALS, CORE AND DRUM. SETS MONITORING CONDITIONS TO DEFAULT STYLES AND REMOVES |JOB FROM TIME-SHARING QUEUES, USES REMOVE DIRECTIVES, SETSTAND, RELING, 150/52, UPDATE CLIST AND SPRING, S0 V2=L136+90 L308))L310) |DRUM AND CORE START L881) 17 L23 (L1) |CHANGE MESSAGE |ENTRY FROM ABA 11 L44-1 L11-L44 |ARRANGE TO SEG DIRECTIVE NO. 3 L797) 04Y A60 2 A40 |DUMP SOURCE |ENTRY FROM ABO 112 A59 8 A60 |IN A59U L309) 52 A59 24 A60 |X TO A60U |ENTRY FROM 150/11 AND 141.21Y 0 L746 A36 |WRITE AWAY DIRECTIVE INFO 142 A60 1 141.1 0 L794 |READ DIRECTIVE START 142 L806 L795

Page 117

04 A61 A40 |PRESERVE JOB|A61U->FLEX 10 A51 1 A52 |(A52)=(A51)+1 IF UNBRANCHED 60 L41 (A51) |J IF UNBRANCHED 10 A52 6 |(A52)=(A51)+7 IF BRANCHED L43) 64 L42 (A52) |J IF NON-EXISTENT BRANCH 04 A40 (A52) |W0 POINTER TO A40 L41) 86 L771 A55 A44 00S L790 L791 0 |REMOVE DIRECTIVES FROM F9 15 L792 |ALL BRANCHES F9 39 L793 L40) 00XY 1 6 A40 |TIME USED TO W1 14X 6 0 A40 |INHIBIT FURTHER DIRECTIVES 25X 4 9 A40 |ENSURE REMOVAL FROM PQ L42) 83 L43 (A51) A52 |IN ALL BRANCHES 04 A40 A61 |RESTORE JOB 16 A59 (L11) |DIRECTIVE N0.2 IS ABO L44) 117Y 2 0 1 110 (A40) L45-L143 A59 |CONSTRUCT DEBRIS OF ABO DIRECTIVE 04 A53 L46 |DRUM LINK FOR SETSTAND 04 A44 L21 |GO TO SETSTAND 61 L131 A36 |IF NOT PROG 0 |NOTE:THE NEXT 8 INSTRUCTIONS MEND THE NOTORIOUS ABOLISH BREAK(SEE ORION PROGRAMMING NOTICE 77)-THIS COULD BE |ACHIEVED MORE EFFICIENTLY IN 9 INSTRUCTIONS, AND SHOULD BE IN OMP 2.10, BUT IS DONE IN 8 TO BE COMPATIBLE WITH |OMP 2.9 CORRECTION TAPE L2)L47)) 141.1 0 L540 |READ RELINQUISH 142 L541 L543 10 A40 7 A52 10 A52 1 A22 |FIND PROG'S PLIST L6) 60 L8 (A22) |J PROG HAS NO PERIPHERALS 81 L6 A22 |SEARCH FOR LAST PERIPHERAL L7) 86 L542 A22 A58 |REL ALL DEVICES L8) 83 L7 (A52) A22 61 L9 A36 |J NOT PROG 0 14 A59 2 86 L456 A44 |GO TO 150/54 WITH X=2 00S L371 L254 0 F9 15 L583 F9 39 L372 L21) 00S L518 L519 0 |CCW FOR SETSTAND F9 15 L520 F9 39 L521 L9) 14 A58 (L143+1) |MILL TIME WILL SUM IN A58 143 A53 2 10 A51 1 A52 |(A52)=(A51)+1 IF UNBRANCHED 60 L11 (A51) |J IF NOT BRANCHED 10 A52 6 |(A52)=(A51)+7 IF BRANCHED L50) 64 L12 (A52) |J IF NOT BRANCHED 04 A40 (A52) |W0 POINTER TO A40 L11) 117 7 0 1 53 (A40 39 A48 |PROG NO, TO A48 15 A48 15 141.1Y 0 L499 A48 |READ PERIPHERAL TIME 142 A22 1 L1) 117 1 8192 56 |L.S. IS ABOLD NOT ABAND 33 (A40) A22-8192 A53 |MULT. BY TIME USED AND SUM 11 A48 1 52 V2-1 (A48) A48

Page 118

16 L152 (A48) |RESTORE PROGNOS 14X -2 0 A40 |TELL SPRING TO REMOVE FROM MAIN Q 00Y A58 1 A40 |SUM TIME USED L12) 83 L50 (A51) A52 |PROCESS ALL BRANCHES 45 A53 A58 A36 |CALCULATE WEIGHTED MEAN 101 L23+1 L24 A58 |CONVERT MILL TIME 101 L23+2 L24 A36 |CONVERT PERIPHERAL TIME 15 A59 -1 101 L23+3 L15 A59 |CONVERT X 57 L23+2 6 115 L23+2 4 |INSERT TB. 141.1 0 L268 |READ FLAS 142 L136 L273 86 L134 4..+L23 A50 |MESSAGE TO FLX 115 A49 4 |WITH THE PUNCH ON 86 L135 A50 |NL. 57 V2+1 48 A59 |CLEAR X AND DISARM Y 86 L456 L500 A44 |GO TO 150/52 (EXITS TO CHAPTER 2) L31) 00S L595 L596 0 F9 15 L597 F9 39 L598 L24) +22500000000 +10,26,33,6,10,33,6,10 |RADICES FOR CONVERTING TIMES L15) +100000 +1,1,58,58,58,58,58,1 |RADICES FOR CONVERTING X L45) 157XYS (-1) (0) -1 |MASK FOR INSERTING DIRECTIVE L46) 00S L47 L2 0 |DRUM LINK FOR SETSTAND F9 15 L2 F9 39 L48 L23) +7,4,33,34,47,44,36,4 |ABOLD L48=L23-L2 |LENGTH FOR SETSTAND TO READ L311=V2-L310 |ABOLISH CHAPTER 2 V2=L136+100 L600))L601)L602) 114 A40 A43 A55 11Y A43 -63 A55 |STARTING ADDRESS IN A55 15 A43 -64 A56 |LENGTH IN A56 86 V2+2 A63 04 V2+2 L144+5 |SET CCW FOR SPRING 86 L456 A44 |UPDATE CLIST OR SPRING 00S L286 L290 0 F9 15 L769 F9 39 L291 L603=V2-L602 C 0 63 |150/24. STARTS A NEW BRANCH, USES LOSEN AND MOVEDIRECT AND SPRING S0 S1 V2=L136+31

Page 119

L41)L332)L330)) 157XY (-3073) (-1) -1 |EXISTENT BRANCH CASE L2) 114 (A44) A44 A42 |POINTER TO W0 IN A42 76 L1.2 L41 A44 |REMOVE 150 AND PROGFAIL 05 (A42) L41 |BITS IF ANY 11 A29 1 |ADJUST MONITOR JOB COUNT L1.2) 72 L24 7 A59 |J IF NOT 150.1/24 04Y (A60) 2 A42 |COPY OBJECT'S C.N. TO Y 05 (A60) L1.3 |REMOVE DEBRIS 72 L1.4 -1 A42 |J IF OBJECT NOT WAITING 83Y L1.4 2 A42 |STEP BACK C.N. AND J L1.3) 0 0 -1 0 |MASK FOR CLEAN C.N L1.1) 14 (A60) |NON-EXISTENT OBJECT IN 150.1/24 75 L205 |CLEAR Y AND EXIT L4) 141.1 0 L268 142 L136 L273 |READ FLAS 86 L134 +1.48.+L1.10 A50 |MESSAGE TO FLX L1.0) 86 L135 1024+7 A50 |NL. Y ADDR. IS A CONSTANT 21 (A40) 8 |HALT THE PROGRAM 75 L162 |DO NOT CHARGE L1.10) +4,35,33,46,46,47,52, |CANNOT BRANCH +34,50,33,46,35,40,, L331) |ENTRY POINT, 77 L179 L1.0 A59 |IMPOP IF X GREATER THAN 7 15 A59 7 A22 |CLEAN IN CASE OF 150.1/24 53 A51 45 A50 |LOCAL BRANCH NO TO A50 60 L179 A50 A22 |J IF REFERRING TO LOCAL BRANCH 60 L25 A50 |J IF NOT BRANCHED 11 L5 8 |ADJUST NO. OF WDS TO BE LOST 04Y A44 (A51) A22 |BX TO A44 65 L26 A44 |J IF BRANCH EXISTS 116XY -39 0 A51 L25) 12 A40 2 A45 |A45=2-A40 IN UNBRANCHED CASE 15 A45 63 A47 |DIRECTORY LENGTH TO A47 75 L179 1 A22 |IMPOP IF X=0 OR 1 NOW 14 A44 8 117Y 0 (L5) A47 L26) 72 L177 (A60) A42 |CHECK CN OF OBJECT BRANCH 04X 2 A41 A40 |STEP CN OF LOCAL BRANCH NOW 71 L2 8 A44 |J IF BRANCH EXISTS 74 L1.1 7 A59 |J IF 150.1/24 10Y L5 (L13) A47 |SET NO OF WDS TO LOSE(+LINK) 04 A62 L152 124 A62 -15 A46 |GET A PROG NUMBER 64 L4 A46 |J IF 15 PROGS IN 52 A62 (A46) 111 L152 -1 A62 |RESTORE PROGNOS 141.1 0 L284 142 L228 L378 |READ LOSEN+MOVEDIRECT L5) 86 L228 8 0 |LOSE N 10 A62 3 A42 |SET A42 TO POINT TO W0 61 L9 A50 |J IF ALREADY BRANCHED 00 A40 A47 A51 11 A51 10 |POINTER TO B0 IN A51

Page 120

115 A51 8 121 A51 24 A44 |POINTER TO B0 AND BR, NO. 1 114 L449 A40 A63 |OLD W0 TO A63,-1.0 TO A40 11 A63 8 A62 |NEW W0 TO A62 86 L691 L373 |MOVE THE DIRECTORY 143 (A51) 8 A40 |EMBRYO BRANCH DIRECTORY 06X 7 A44 A62 |SET W7 OF BRANCH 1 04X 1 A62 A51 |ENTRY OF BRANCH 1 IN BR. DIREC. 81 L12 A50 |LOCAL BRANCH NO. (1) IN A50 L22) 00YS -1 0 31 |MASK FOR STANDARD BITS IN W7 L16) 143XY (0) (0) -2 |NON STANDARD BITS IN W5 L15) 40 0 (0) 0 |STANDARD BITS IN W5 L14) +32,32,32,32,32,32,32,32 |MASK FOR ALPHA ONLY L10) 04Y A49 (A44) A51 |BN TO A49,N=7 TO N=X 64 L9 A49 |J IF NON-EXISTENT BRANCH 15 A49 -1 A63 |OLD W0 01 A63 A47 A62 |NEW W0 86 L225 L373 |MOVE DIRECTORY OF BRANCH N 00 A42 L661 |ADJUST POINTER TO W0 OF OB,BR L9) 83 L10 (A59) A44 L12) 04Y A40 1 A51 |A40 POINTS TO W0 OF BR,1 142X -2 0 A42 142X -2 (A47) A40 |COPY BRANCH 1 DIRECTORY 141.1Y 0 L222 A36 L30) 142 A44 1 58 |READ REAL DRUM D L17) 116 (A42) (0) 32 112 -1 8 A44 |INSERT IN W-1 OF OBJECT BR, 25 A44 8 |NO DRUM MONITORING 141.21Y 0 L222 A46 142 A44 1 |PUT DRUM RESVNS ON DRUM 13X 1 (L30) A42 |TIMER IS ONE MINUTE 04Y A44 3 A40 05 A44 L14 A48 124 A48 -48 53Y A44 -12 A48 10Y A44 16 A59 52Y A44 -12 A48 04X 3 A44 A42 |PUT THE BRANCH NO IN W3 110X 5 L16 A42 |REMOVE NON-STANDARD BITS FROM W5 06X 5 L15 A42 |SET STANDARD BITS 14X 6 (L30) A42 |W6 IS ONE MINUTE 05X 7 L22 A42 |REMOVE NON-STAND.BITS OF W7 121 A59 27 A44 06X 7 A44 A42 |AND INSERT BRANCH NO. 121 A46 9 06X 7 A46 A42 |AND PROGRAM NO. 14 A44 8 L20) 04Y A45 (A44) A40 |PERIPHERAL WD TO A40 63 L21 A45 |J IF FAILED OR FINISHED 15 A45 255 A46 |K-BITS TO A46 71 L27 254 A46 |J IF NOT MONITORING L18) 121 A45 -31 A46 15 A46 31 04Y A46 L252 A46 |PLIST ENTRY TO A46 111 A45 255 A46 |INSERT REAL K-BITS 04X (A44) A45 A42 |COPY INTO DIRECTORY L27) 81 L20 A44 |REPEAT FOR ALL PERIPHERALS

Page 121

L1) 00S (-1) (0) 62 L21) 53 A45 8 05 A45 L1 |RESTORE PERIPHERAL WORD 61 L18 A45 |J IF NOT FINISHED 04 (A42) L1.11 |NEW BR,IS SUSP,AND PTS,TO ZERO 04 A44 L143 L23) 114 (A44) A44 A45 15 A44 -1 61 L23 A44 |SEARCH DOWN MAIN Q AND MAKE 111 (A45) -1 A42 |LAST ENTRY POINT TO NEW BR. L24) 04X 2 A60 A42 |SET (NEW) CN L1.4) 14X (A22) (A42) A51 |OBJECT BR DIR ENTRY 52 A50 24 06X (A22) A50 A51 |OBJECT AWAITS LOCAL BRANCH L19) 04Y A41 2 A40 |MAKE L205 SAFE 141.1 0 L209 |READ 150'S START 142 L205 L239-L205 86 L456 A44 |EXIT TO SPRING 00S L764 L765 0 F9 15 L766 F9 39 L767 L1.11) +56,,,,,,, |STOP BITS L13) 0 0 0 63 |LINK FOR LOSEN (GOES INTO L5) L333=V2-L332 |LENGTH OF 150/24 C 0 127 |150/12. GETS DATE AND TIME, USES CLOCK AND CHARDATE S0 V2=L136+30 L314)L312))L313) 86 L293 A63 |READ THE CLOCK 73 L2 (L1) A58 |J IF AFTERNOON 64 L207 L788 |EXIT IF SPRING NOT CHANGED DATE L2) 52 L546 24 A63 00 A63 A58 |FORM MIXED RADIX DATE/TIME 04 (A59) L548 |CHARACTER FORM TO X 04 (A60) A63 |MIXED RADIX FORM TO Y L1) 75Y L205 10432 |START AND CHARGE C 0 63 |CLOCK. PUTS THE TIME IN SECONDS SINCE MIDNIGHT IN A58 S0 L411)L409))L294))L293) 24 A58 2 |READ THE CLOCK 57 A0 48 A47 |CLEAR WORKING SPACE L1) 124S A58 L293 A62 |TRANSLATE THE VALUE OF 52 A47 6 |EACH 1-BIT INTO A CHAR, IN A47 00 A48 A62 00 A47 A48 61 L1 A58

Page 122

01 A47 L2 A58 |CORRECTION FOR POSITION OF FIELD 100 A58 L3 152 L168 L293+2 |START AGAIN IF CLOCK WRONG 152 L168 A63 |EXIT L2) +1.4.14.20.30.36 |CORRECTION CONSTANT L3) +1.1.10.10.6.10.6.10 |CONST. FOR CONVERSION TO BINARY L302))L546) +0 |SPACE FOR MIXED RADIX DATE - |PUT IN BY EARLY MORNING START L547))L548) +0 |SPACE FOR CHARACTER DATE +0 |SPACE FOR TIME L4) L315=L4-L313 |LENGTH OF 150/12 L295=L4-L293 |LENGTH OF CLOCK C 0 63 |CHARDATE. CONVERTS MIXED RADIX DATE IN L546 TO CHARACTERS IN L548 S0 S1 L7)L626) 15 L546 248 A42 101 L548 L20 A42 |CONVERT DATE BITS 15 L546 3840 A42 |MONTH BITS TO A42 121 A42 9 |PREPARE HALF-WORD LOOK UP 122Y A42 L21 A42 |MONTH CHARS, TO A42U 53 A42 18 |IN POSITION IN L548 06 L548 A42 53 L546 12 A42 |YEAR BITS IN A42 101 A42 L22 |CONVERT YEAR 111 L548 4095 A42 |INSERT IN L548 L21) 86 (A44) 7040 42 +38,37,34,0,45,33,50,0 |FEB MAR +33,48,50,0,45,33,57,0 |APR MAY +42,53,46,0,42,53,44,0 |JUN JUL +33,53,39,0,51,37,48,0 |AUG SEP +47,35,52,0,46,47,54,0 |OCT NOV L6) +36,37,35,0,63,63,63,32 |DEC CONST USED IN SPRING L20) +800 +1,10,26,1,1,1,1,1 |FOR CONVERTING DATE IN POSN. L22) +10000 +1,1,1,1,10,10,26,26 |FOR CONVERTING YEAR L627=V2-L546 |SPRING CLEANING CHAPTER 1. ENTERED FROM EMS, STARTMON, JOB AND ABOLISH. |PRINTS THE DATE AND TIME ACCORDING TO |ENG CONDITIONS, STEPS THE DATE AT MIDNIGHT, EXITS TO CHAPTER 2 L5) 157XY (-1) (-193) -1 L4) +8,50,12,50,12,35,0,51 L12) +360000 +26,10,33,6,10,33,6,10 |RADICES FOR CONVERTING TIMES

Page 123

L410)L10) 86 L293 A63 |ENTRY POINT, READ CLOCK 101 L548+1 L12 A58 |CONVERT TIME L1.20) 141.1S 0 L268 |READ FLAS 142 L136 L273 56 L548+1 0 A44 |COPY TIME AND SET A45S=1 71 L1.21 L141 A40 |J IF JOB/ABO 04 L1.20 L778 |COPY TIME SUPPRESSION BIT 77 L1.21 L1.15 A44 |J IF NOT TEN MINUTES 04 L1.20+1 L786 |COPY DATE SUPPRESSION BIT 05 L1.20 L1.20+1 |DONT SUPPRESS TIME IF PRINTING DATE L1.21) 73 L3 (L1) A58 |J IF AFTERNOON 65 L2 L788 L1) 14Y L1.20+1 10432 |CLEAR L1.20+1 S |HALF DAY CONST, 53 L546 3 A43 |STEPPING THE DATE, 53 A43 3 A44 15 A44 60 A45 |A45 IS MONTH 2 BITS UP 77 L14 L5 A44 |J IF NOT LEAP YEAR 16 L4 256 |ADJUST NUMBER OF DAYS IN FEB L14) 121 L4 (A45) A46 |LOOK UP NUMBER OF DAYS IN 15 A46 3 |EXCESS OF 28 17Y A43 28 A46 77 L13 L6 A43 |J IF NOT END OF MONTH 10 L546 256 |STEP MONTH 111 L546 248 |CLEAR DATE 71 L13 48 A45 |J IF NOT DEC 10 L546 1024 |CHANGE 13 MTHS, TO 1 YR, 1MTH, L13) 15 L546 7 A44 70 V2+2 7 A44 |J IF SATURDAY 116 0 7 |STEP THE DATE AND THE 10 L546 2 |DAY OF THE WEEK 86 L7 A44 |NEW CHARDATE L3) 112 L788 10 A45 |SET MORNING/AFTERNOON BIT L2) 64 L1.12 L1.20 |J IF SUPPRESSING TIME 86S L134 516 A50 |TB, 86 L134 1.0.+L548+1 A50 |TIME 64 L1.13 L1.20+1 |J IF SUPPRESSING DATE L1.12) 64 L1.14 L1.20+1 |J IF NO PRINTING 86S L134 516 A50 |TB. 86 L134 1.0.+L548 A50 |DATE L1.13) 115 A49 4 |PUNCH ON 86 L135 A50 |NL. L1.14) 141.21 0 L302 |WRITE DATES AND TIME ON DRUM 142 L546 3 86 L456 A44 |GET CHAPTER 2 00S L764 L765 0 F9 15 L766 F9 39 L767 L1.15) +63,63,63,63,48,63,63,63 L412=V2-L411 |LENGTH OF SPRING CLEANING CHAPTER 1 |SPRING CLEANING CHAPTER 2, ENTERED FROM CHAPTER 1,150/24,150/54. ADJUSTS PRIORITIES, MAKES DELETIONS FROM |MAIN QUEUE FOR ABOLISH AND 150/54, LOGS PERIPHERAL TIME V2=L136+40 L764))L765)L766) 114 L1.0 A40 A55 |DUMP A40, MAKE IT POINT TO MIND 14 A38 L0 |TIME CHARACTERISTIC (TC) POINTER

Page 124

143 L60 9 |CLEAR JOB IDENTIFICATION TBL L34) 15 (A40) -1 A40 |CHAIN DOWN MAIN Q 60 L30 A40 |J IF FINISHED 04Y A45 7 A40 |W7 TO A45 53 A45 39 A53 15 A53 15 |PROG. NO. TO A53 116XY 0 0 A40 00 1 6 A42 |TIME USED TO A42 01Y A42 L41 A53 |TIME USED IN LAST MIN, TO A42 10X L41 (A42) A53 |RESET TIME USED TABLE ENTRY 71 L32 (A42) |J IF SOME TIME USED 71 L32 L141 A55 |J IF NOT NORMAL ENTRY 74 L32 (L44) A45 |J IF NOT BRANCH 0 OR 1 115X L41 8 A53 |STEP NO TIME COUNT 62Y L42 L41 A53 |J IF NOT 4 86 L134 40.+L1.5 A50 86 L135 A50 |NL. L32) 05X L41 L45 A53 |CLEAR NO TIME COUNT L42)L1.6) 14 (L1.8) (0) |CLEAR IN CASE NEW PROG 05 (A38) L1.7 |REMOVE URGENCY WEIGHTING 80 L46 (A38) |J IF NEW PROG, CLEARING TC 31 (A38) L1.9 A43 |MULT BY DECAY FACTOR L46) 10 A43 (A42) |ADD TIME USED LAST MIN, 116 (A40) 121 5 -28 A54 |URGENCY WEIGHTING IN POSN 111 A43 (L1.6) A54 |INSERT URGENCY WEIGHTING L1.8) 122 (A38) A43 4 |RESET TC 111 (A38) -1 A40 |AND POINTER TO W0 25 A45 14 |B0 TO A45U 146 L60 A45 A46 |FIND THIS JOBS ENTRY 112 (A46) 8 A45 |ENSURE ENTRY IS MARKED 12 (A46) (L61) A45 |EXCLUSIVE TOTAL TO A45 60 V2+2 (A46) |J IF NOT BRANCHED 10 (A46) (A42) |ADD UP TIME FOR THIS JOB 10X L43 (A45) A53 |ADD INTO TABLE ENTRY 10 L61 (A42) |TOTAL TIME USED IN L61 61Y L47 -2 A40 |J IF NOT TO BE ABOLISHED 24 (A38) 11 |MARK NON-EXISTENT IN TC TABLE 14X L41 0 A53 |CLEAR TIME USED ENTRY 14X L43 0 A53 |AND PERIPHERAL TIME ENTRY 52 (A40) 4 A54 120 A54 13 |COUNT BITS IN W0 11 A29 (A54) |SUBTRACT FROM MONITOR JOB COUNT L47) 81 L34 A38 |STEP TC POINTER AND J L45) 37XYS (-1) (-1) -1 |MASK FOR REMOVING NO TIME COUNT L30) 14 A44 L0+1 |SORT, TC TABLE POINTER IN A44 L37) 04 A45 A44 |COPY CURRENT POINTER L36) 04Y A46 -1 A45 |TABLE ENTRY TO A46 65 L38 (A45) A46 |J IF THIS AND NEXT IN CORRECT ORDER 114XY -1 0 A45 |INTERCHANGE 83 L36 L0 A45 |CONTINUE UNTIL THIS ENTRY IN POSN L38) 81 L37 L0+16 A44 |DEAL WITH NEXT ENTRY 144 L0 L0+16 A44 116 0 -A44 |RE-ORDER MAIN Q STARTING WITH L39) 04 A45 (A44) L48) 116 (A44) |THE LAST PROG. SO THERE IS ALWAYS A

Page 125

111 (-1) -1 A45 83 L39 L0-1 A44 |SENSIBLE Q FOR THE TS 111 L141 -1 A45 |RESET PSIND 141.21 0 L625 142 L0 49 |WRITE AWAY TABLES 15 A55 -1 A40 |RESTORE A40 111 L142 -1 |DESTROY CHAPTER NUMBER 70 L162 L141 A40 |J IF NOT AN ABOLISH ENTRY L44) 75Y L205 -1 -1 |OTHERWISE START L1.5) +4.41.36.44.37... |IDLE L731))L1.9) +16... |DECAY FACTOR L1.7) +16.......-1 |MASK FOR REMOVING OLD TC L1.0) +L143 L625)L0) 157XYS (-1) (-1) -1 |TIME CHARACTERISTIC TABLE 157XYS (-1) (-1) -1 |+1-EPSILON IS ENTRY FOR NON-EXISTENT 157XYS (-1) (-1) -1 |PROGRAMS 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 |OTHERWISE ENTRIES ARE IN ORDER OF 157XYS (-1) (-1) -1 |MAIN Q, WITH POINTERS TO W0 IN 157XYS (-1) (-1) -1 |THE BOTTOM HALF AND TIME CHARACTERIS? 157XYS (-1) (-1) -1 |IN THE TOP HALF 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-1) -1 157XYS (-1) (-2) -1 L41) +0 +0 |TIME USED TABLE +0 |TOTAL TIME USED UP TO LAST +0 |SPRING CLEANING +0 |TOP 3 BITS ARE USED FOR +0 |COUNTING NUMBER OF MINUTES +0 |DURING WHICH NO TIME USED +0 +0 +0 +0 +0 +0 +0 +0 +0 L43)L499)) +0 |PERIPHERAL TIME TABLE +0 |I.E. TOTAL TIME USED BY HIGHER +0 |PRIORITY PROGRAMS +0 +0 +0 +0 +0

Page 126

+0 +0 +0 +0 +0 +0 +0 +0 L60) |STARTING ADDRESS OF JOB IDENTIFICATION TABLE L61=L60+8 |WORKING SPACE L767=V2-L766 |LENGTH OP SPRING CLEANING CHAPTER 2 C 0 127 |INTERPRETER. THIS IS ENTERED FROM STARTMON WHEN THE PROGFAIL BIT IS FOUND IN W0, THIS BIT IS PUT THERE BY - |(A) THE KERNEL , IF THE R.F.E, IS PROGFAIL AND THE KERNEL CANNOT DEAL WITH IT |(B) A SPECIAL 150 WHEN THE JOB IS ABANDONNED (L207) |(C) THE INTERPRETER WHEN THE JOB IS ABANDONNED (L207) |(D) 150/23 OR RUN TO CAUSE FURTHER EXAMINATION OF A PROGFAIL | FOR (D) AND IN SOME CASES (C) THE STYLE 7 MARK IN W2 WILL BE NON-ZERO CAUSING THE INTERPRETER TO IGNORE | SOME MONITORING CONDITIONS |TIMPR OVERFLOW, OUTPUTS MESSAGE AND HALTS THE JOB AFTER GIVING IT ANOTHER MINUTE S0 S1 V2=L136+60 L514))L515) +4,52,41,45,37,0,53,48 |TIME UP L201))L126) +0 |MONITORING STYLES TABLE +0 +0 +0 +0 +0 +0 +0 L516) 11X 1 (L1 A40 |GIVE THE PROG 1 MINUTE 10X 6 (L1) A40 122Y A44 L126 A57 |GET MONITORING STYLE 77 L1.1 L2 A53 141.1 0 L268 142 L136 L273 |READ FLAS 21 (A40) 8 |HALT THE PROG 86 L134 1.0.+L515 A50 |MESSAGE 86 L135 A50 L1) 73 L161 0 58 |EXIT TO CHARGE L.S. HALF IS ONE N? L2) +63,63,63,63,62,63,63,63 |NOT D29 L517=V2-L515 |LENGTH OF TIMER OVERFLOW CHAPTER

Page 127

|CHAPTER 1. CALCULATES EFFECTIVE ADDRESSES, DECODES FUNCTION, CHECKS APPROPRIATE ADDRESSES FOR RESERVATIONS, |OBEYS THE INSTRUCTION, WRITES AWAY NEW OPERANDS AND STARTS THE JOB. IN THE SIMPLEST CASES THIS CHAPTER IS |SELF PRESERVING, ALL MONITORING OTHER THAN *JUM 2 AND THE FUNCTIONS 44,45,50-57,102,104,120,121,124-126, |140-146,AND SPECIAL 150S ALL REQUIRE FURTHER DRUM REFERENCES WHICH DESTROY THE SELF-PRESERVATION. S0 V2=L136 L137))L129) L56) 51S 10537 (0) 56 |TABLE USED FOR GETTING 155 4357 14 4 |DENSE SET FROM FUNCTION 27S (14329) (27) 60 156S (307) 49 0 L128) 143 A44 12 |CLEAR WORKING ACCUMULATORS 04Y A41 2 A40 |CN IN A41 121 A41 -6 A56 |PICK UP STYLE 7 MARK 15 A56 31 04Y A53 5 A40 |W5 IN A53 110 A41 L33 |REMOVE STYLE 7 MK, FROM A41 116 (A40) 121 7 -8 A57 05 A57 L189 |PROG NO, ROUND 1 PL, IN A57 111 L168 (L191) A53 |*UNR BIT AS IN OBJECT PROG 114 L14 A44 A62 |CCW IN A44,CLEAR A62 65Y L131 1 A40 |J IF TIMER OVERFLOW L1) 15 A41 -1 A54 |PREPARE TO CHECK ON 10 A41 1 |A41 IS NOW PRESUMPTIVE LINK 86 L140 A44 |CHECK CN 04 A58 (A54) |COPY OF INSTR. TO A58 65Y L2 5 A40 |J IF NOT MON. SIGNALS 64 L2 A58 |J IF NOT A SIGNAL 73 L2 2 A56 |J IF RETURN FROM STYLE 7 86 L456 A44 |GO TO SIGNALS CHAPTER 00S L1.11 L1.12 0 F9 15 L136 F9 39 L1.13 L2)L1.2) 57 A0 48 A46 |CLEAR WORKING ACCS 121 A58 24 A59 |X-ADDRESS IN A59 57 A58 16 A38 15 A58 -1 A60 |Y-ADDRESS IN A60 (CLEAN) 15 A38 63 A61 |Z-ADDRESS IN A61 (CLEAN) 15 A39 127 A63 |FUNCTION IN A63 (CLEAN) 00 A61 A43 |ADD DATUM POINT INTO Z 56 (A61) 0 A38 |CONTENTS OF Z,Z+1 TO PLANT ACCS L3) 00XY A59 A48 A46 |ADD 116 PREMODS TO X THEN Y 52 A58 (A46) A54 72 L4 (L170) A54 |J IF NOT X/Y REPLACED 116 (A46) 15 A59 -1 A54 86 L138 L16 A44 |CHECK REPLACER 04X A59 (A54) A46 |REPLACE

Page 128

L4) 00XY A59 A50 A46 80 L3 1 A46 |SWITCH X TO Y L5) 121 L55 24 76 L6 L55 A58 |J IF NOT Y/X MODIFIED 72 L172 (A61) A42 |CHECK MODIFIER 00X A58 (A61) A46 |MODIFY 25 A38 8 |CLEAR ZM FOR PLANT 26 A63 10 |SET 2-ADDRESS MK (TX IN PLANT L6) 83 L5 A46 |SWITCH Y TO X 143 A48 4 |CLEAR PREMODS 15 A63 31 A54 |UNPACK FUNCTION 53 A63 5 A44 04Y A44 L56 A44 120 A44 (A54) A54 15 A44 63 00 A44 A54 |GET DENSE SET FROM FN, 71 L7 48 A44 |J IF NOT 116 OR 117 52 A63 1 04X A48-188 A59 A63 |STORE PREMODS APPROPRIATELY 04X A49-188 A60 A63 75 L1 |GO ROUND AGAIN L33) +31,,,,,,, |MASK FOR REMOVING STYLE 7 MARK L7) 61 L8 A62 |J IF 140,1,2 STORED 71 L9 56 A44 |J IF NOT 140,1,2 71 L49 113 A63 |J IF NOT 141 74 L49 (L50) A58 |J IF X OR Y REPLACED 15 A59 1022 A52 52 A52 14 14Y A60 (A52) A60 |DRUM ADDRESS IN A60 (CLEAN) L49) 56 A59 0 A52 |STORE EFFECTIVE ADDRESSES 04 A62 A63 |AND THE FUNCTION L50) 75Y L1 -1 -1 |GO TO GET THE 142 L8) 71 L148 114 A63 |ILINT IF NOT 142 L9) 04Y A55 L40 A44 |PICK UP CODE WORD 74 L41 71 A63 |J IF FN 87+ 74 L43 47 A63 |J IF FN 57- L41) 141.1Y 0 L190 A44 142 A55 1 |READ CODEWORD L43) 65 L10 A63 |J IF 3-ADDRESS 52 A55 24 |2-ADDRESS FIELD IN POSN, L10) 52 A55 9 A36 |Z WRITE MARKS IN A36 D0 AND D1 L39) 124 A55 12 A22 |FIND NEXT ADDRESS CODE 64 L11 A22 |J IF NO MORE CHECKING 53 A55 (A22) |RESTORE CODEWORD 15 A22 1 A54 |D47 MENS CHECK ADDRESS+1 51 A22 2 A46 |D44,5 GIVE 1 2 3 FOR X Y Z 15X A58 -1 A46 |ONLY LAST 15 BITS COUNT 00Y A54 A58 A46 |ADDRESS TO BE CHECKED IN A54 86 L138 A44 |CHECK FOR READING 76 L39 L12 A22 |J IF ONLY READING 04X A48 A54 A47 |STORE ADDRESS 04X A51 (A54) A47 |AND PRESENT CONTENTS 86 L139 A44 |RESVI IF WRITING TO A0 L12) 81 L39 -3 A47 |J AND STEP ADDRESS WRITE COUNT L11) 04 L192 L23 |SKELETON PLANT

Page 129

121 A63 8 A22 |FUNCTION IN POSN, IN A22 06 L192 A22 |INSERT IN PLANT, NOTE TX BIT 124 A55 3 A44 |A44 IS 2 FOR JUMPS | AND 3 NORMALLY |AND A44S MEANS FLOATING PT, 53Y A55 36 A44 |RESTORE CODEWORD 74 L17 V2 A55 |J IF IN CHAPTER 1 L18) 111 L142 -1 |DESTROY SELF PRESERVER 141.1 0 L193 142 L136 L196 |READ CHAPTER 2 L13)L17) 86 (A55) L16 A16 |SWITCH AND CLEAR OVR L191) 116 L13-A59 0 32 |PLANT, JUMPS COME TO L191, L192) 00 (A59) (A60) A38 |AND IF SUCCESSFUL GO TO L16 152 L168 L1.30 |NOT THE TS STAT AND IMPOP IF |PLANT PROGFAILED 04 A62 L143+2 |PRESERVE OVR 152 L168 L19 |SWITCH ON TS J TO L15 L23) 00 (A59) (A60) A38 |COPY OF PLANT L194) 116 0 1 |3-ADDRESS 87 L195) 04 A62 (A60) |2-ADDR 87 OVR IN A62S 14Y A59 (A62) A59 |J ADDRESS IN A59 L16)L1.16) 26 A62 4 15 A59 -1 A54 73 L53 (A54) A43 |IF J ADDRESS OUTSIDE RESVNS., 72 L53 (A54) A42 |RESTORE ADDRESS WRITTEN AND RESVI 73 L22 3 A56 |J IF RETURN FROM STYLE 7 72 L22 (L170) A53 |J IF NOT MONITORING JUMPS 76 L32 L55 A53 |J IF NOT STYLE 2 52 A54 24 A44 06 A22 A44 |ASSEMBLE FN.,DESTINATION 04Y A44 2 A40 111 A22 -1 A44 116 0 (A40) 07 A22 -3 A44 76 L25 L26 A44 |J IF SAME J AS LAST L19)L1.19) 142XS -18 L15 A40 |SHIFT UP OLD LIST 142X -17 15 A40 04X -3 A22 A40 |MAKE NEW ENTRY L25) 60 L22 L26 A44 |J IF COUNT FULL 10X -3 (L157) A40 |STEP JUMP COUNT L22)L1.22) 64 L20 (A59) 65Y L20 5 A40 |J IF NOT MONITORING *SIG 70 L20 4 A56 |J IF ALREADY DEALT WITH J TO SIG 86 L456 A44 00S L1.11 L1.14 0 F9 15 L136 F9 39 L1.13 |GO TO SIGNALS CHAPTER L26) +63.56.. |JUMP COUNT FIELD L15) 04 A54 A41 |ALLOW FOR SETTING NEW C.N. L20)L1.20) 64 L21 A62 |J IF OVR SET L1.24) 111 A41 -1 A54 |SET C.N, L24) 60 L48 A48 A49 |J IF TWO WRITES TO SAME PLACE 65 L48 A36 |J IF Z NOT WRITTEN

Page 130

04 (A61) A38 |WRITE Z 76 L48 L182 A36 |J IF Z+1 NOT TO BE WRITTEN 04X 1 A39 A61 |WRITE Z+1 L48)L1.48) 62 L202 L62 A56 |EXIT IF NO PRINTING 86 L456 A44 |GET PRINT CHAPTER L54) 0S L609 L610 0 |CCW FOR PRINT CHAPTER F9 15 L611 F9 39 L612 L55) 157Y (-1) (-1) -1 |NOT TX L639) 86 L456 A44 00S L230 L236 0 |CCW FOR 140,1,2 F9 15 L231 P9 39 L234-L231 L641) 01 A61 A43 |SUBTRACT DAUM IN CASE 0F PRINTING 64 L48+1 L62 A56 |J IF PRINTING REQUIRED 86 L456 A44 00S L258 L227 0 |CCW FOR 150 F9 15 L226 F9 39 L413 L14) 00S L514 L516 0 |CCW FOR TIMER OVERFLOW F9 15 L515 F9 39 L517 L32) 116 0 L1.32-L1.21 L21) 14 A55 L1.21 65 (A55) L136+4 |J IF ALREADY DOWN 75 L18 L40=V2-23 |CODE WORDS FOR JUMPS 01S 5120+L191 1024+L191 1 |60-65 L62) 00S 5120+L213 1024+L213 0 |60-67 00S 5120+L191 1024+L191 0 |70-75 01S 5120+L191 1024+L191 0 |76-77 00S 17408+L191 1024+L191 4 |80-83 01S 1024+L214 1024+L191 1 |84-85 00S 17408+L210 1024+L210 4 |86 00S 5120+L194 1024+L195 1 |87 |86 L210) 05 A41 L132 A38 |COPY LINK TO Z AND Y 04 (A48) A38 25 A41 11 |CLEAR POVR 75 L16 |GO TO SUCCESSFUL JUMP |84-85,122-123 L214) 112 L192 16 A58 |INSERT Z-ADDRESS INTO PLANT 75X L191-2 0 A44 |GO TO PLANT |PY AND PRESUMPTIVE OVR L213) 15 A60 30 A54 |EFFECTIVE PY PAIR 71 L60 4 A54 |J NOT OVR CLEARING L212) 65X L191-2 A41 A44 |GO TO PLANT IF OVR CLEAR 20 A41 10 |CLEAR PROGS AND SET OMPS OVR L60) 65X L191-2 A41 A44 |J TO PLANT IF OVR CLEAR 71 L38 6 A54 |J NOT OVR NOT CLEARING 17 A60 1 |SWITCH 6 TO 7 OR 7 TO 6 L38) 75X L191-2 0 A44 |GO TO PLANT

Page 131

|STYLE 7 PRELUDE L132)L824)) 0 0 -1 0 |MASK ROR CLEAN C.N. L53) 60 L172 A48 |RESTORE OPERAND FOR J 04 (A48) A51 |ADDRESS OUTSIDE RESERVATIONS L1.1) 116 A44-A56 |CHECK STYLE 7 ADDRESS IN A44 L825) 15 A56 -1 A54 |ADDRESS IN A56 86 L140 A44 04Y A45 2 A40 |OLD LINK 110 A48 L132 A45 |INSERT TO WRITE BACK ADD 04X -1 A48 A54 |COPY TO WORD BEFORE RESTART 110 A41 L132 A54 |SET REQUIRED C.N. 75 L202 |START L826=V1-L824 |LENGTH OF STYLE 7 PRELUDE W0=V2+L174 |)TO BE COMPATIBLE WITH X V2 L174 |)1ST CHAP 150'S *FIRST CHAPTER OF INTERPRETER TOO LONG X L890 0 L138) 75 L896 |WEA CHECKER IN KERNEL X L890 1 L138) 70 (A44) (A54) A43 |RESERVATION CHECKER L139)L140) 73 L172 (A54) A43 73 (A44) (A54) A42 L172) 116 0 6 |L177|RESERVATION VIOLATION L148) 116 0 1 |L178|ILLEGAL INSTRUCTION L173) 14 A50 0 |L179|IMPERMISSIBLE OPERAND L1.30) 86 L456 L173 A44 |GO TO PROGFAIL AND CLEAR OVR 00S L425 L832 0 F9 15 L426 F9 39 L427 C 0 63 L202)L876)) 04X 2 A41 A40 |L205|STEP LINK ETC. 116 0 -1 |L206|PREPARE EXIT TO CHARGE 14 (L1) L162 |L207|OR TO CHARGE+1 L10) 120 0 -1 0 |L208|0FF TS|MASK FOR STARTABLE 04 A17 A40 |COPY W0 71 L2 L162 A45 86 L165 64 A24 |RESTORE PROGFAIL BIT L2) 123 A18 (A40) 0 |COPY W0 AND CLEAR A19 116 (A40) 121 7 24 A51 |ADDRESS OF BRANCH DIRECTORY 04 A24 (A51) |BRANCH 0 ENTRY 60 L8 A24 |J NOT BRANCHED L3) 116X (A51) 8 A19 06 (1) A10 A18 |OR ALL W0S INTO A18 81 L3 7 A19 115 A0 1.60 A19 L4) 04Y A17 (A51) A19 L8) 77 L1 L10 A18 |J NOT READY TO GO 15 (A17) -1 |START 63Y L6 -2 A17 |L NOT IN PQ

Page 132

112 (A17) 8 A29 |STOP PQ L6) 67 L1 10 A24 |J NOT BRANCHED 76 L7 L10 A17 |J IF NOT WAITING 112 (A17) 8 A19 |SWITCH OFF L7) 81 L4 8 A19 |GO ROUND ALL BRANCHES L1) 152 L168 A45 L271=V2-L129 |LENGTH OF CHAP 1 X L890 0 ( V3=V1 V0=L202+11 60 L909 A24 |J TO FRIG IF NOT BRANCHED 71 L907 7 A19 |J TO FRIG FOR EACH BRANCH 77 L911 L208 A18 |J IF REASON FOR NOT STARTING 115 A0 1.60 A19 L5) 04Y A17 (A51) A19 04 A21 (A17) |W0 TO A21 77 L7 L908 A21 |DONT START THIS BRANCH IF SUSP 16+N L912) V0=L7 81 L5 8 A19 |COUNT BRANCHES V1=V3 ) C 0 63 |MONITORING ON SIGNALS CHAPTER S0 V2=L136 L1.11))L1.12) 122Y A44 L51 A57 |PICK UP STYLE 74 L1.1 5 A44 |J IF STYLE 7 70 L1 1 A44 |J IF STYLE 1 06 A56 L2 |SET PRINT FIELD 86 L456 A44 |BACK TO THE INTERPRETER 00S L137 L1.2 0 F9 15 L129 F9 39 L271 |JUMPS TO SIGNALS L1.14) 122Y A44 L51 A57 |PICK UP SIGNALS STYLE 71 L1.20 1 A44 |J IF NOT STYLE 1 116 0 (V2+2) |PROGFAIL (J TO S) L1) 14 A50 4 |HALTED ON SIGNAL 75Y L1.30 -2 |TABLE FOR DECODING FUNCTION. M.S. HALF FOR THREE ADDRESS FORM,L.S. HALF FOR TWO ADDRESS FORM, IN EACH HALF |M.S. 12 BITS INDICATE WHICH ADDRESSES ARE TO BE CHECKED |D0 |D1 => X WRITE D2 => X*WRITE D3 => X READ D4 => X*READ |D5 => Y WRITE D6 => Y*WRITE D7 => Y READ D8 => Y*READ

Page 133

|D9 => Z WRITE D10 => Z*WRITE D12 => Z READ |D12-D14 DISTINGUISH JUMPS, ORDINARY AND FLOATING POINT INSTRUCTIONS |D15-D23 CONTAIN THE SWITCH ADDRESS L190)) 21S 16896+L192 (512+L192) 1 |00-02 01S 16896+L192 (512+L192) 1 |03-04 21S 16896+L192 (512+L192) 1 |05-07 20S 16896+L192 (512+L192) 0 |10-12 00S 16896+L192 (512+L192) 0 |13-14 20S 16896+L192 (512+L192) 0 |15-17 20S 16896+L213 (512+L213) 0 |20-22 00S 16896+L213 (512+L213) 0 |23-24 20S 16896+L213 (512+L213) 0 |25-27 21S 16896+L192 (512+L192) 1 |30-31 21S 25088+L192 (512+L192) 33 |32 21S 25088+L192 (512+L192) 33 |33 20S 16896+L192 (512+L192) 0 |34 00S L148 L148 0 |33-37 21S 25088+L192 (512+L192) 33 |40 21S 16896+L192 (512+L192) 1 |41 21S 25088+L192 (512+L192) 33 |42 21S 16896+L192 (512+L192) 1 |43 31S 25088+L215 (512+L215) 33 |44 31S 16896+L215 (512+L215) 9 |45 00S L148 L148 0 |46-47 20S 16896+L204 (512+L204) 0 |50-53 30S 25088+L204 (512+L204) 32 |54-57 L839))L198))L51)+1....1 |SIGNAL MON TABLE +1....1 |IN GAP LEFT BY JUMPS +1....1 +1....1 +1....1 +1....1 +1....1 +1....1 21S 16384+L192 (L192) 1 |90-92 01S 16384+L192 (L192) 1 |93 21S 16384+L192 (L192) 1 |94-95 00S L148 L148 0 |96 21S 16384+L192 (L192) 1 |97 21S 16896+L192 (512+L192) 1 |100 81XYS 4608+L192 (512+L192) 1 |101 20S 16384+L204 (L204) 0 |102 20S 16896+L204 (512+L204) 0 |103 20S 16896+L217 (512+L217) 0 |104 00S L148 L148 0 |105-107 81S 4608+L192 (512+L192) 1 |110

Page 134

80S 4608+L192 (512+L192) 0 |111 80S 4608+L213 (512+L213) 0 |112 00S L148 L148 0 |113 24S 16896+L192 (512+L192) 4 20S 16896+L192 (512+L192) 0 |115 L2) +1,,,,,,, |SIG PRINT MARK|116/7 GAP L1.13=V2-L136 C 0 63 20S 16896+L204 (512+L204) 0 |120-121 81S 512+L214 (512+L192) 1 |122 121S 512+L214 (512+L192) 33 |123 80S 16896+L204 (512+L204) 0 |124 120S 16896+L1.61 L148 0 |125 24S 16896+L212 (512+L212) 4 |126 00S L148 L148 0 |127-137 00S L639 L639 0 |140-142 80S 4096+L640 (L640) 0 |143 21S 16896+L216 L148 0 |144-146 00S L148 L148 0 |147 00S L641 L148 0 |150 00S L148 L148 0 |151-157 V2=L136 S0 |CHAPTER TO DEAL WITH 140,141,142/142, AFTER SUITABLE CHECKING,SLOW PERIPHERAL TRANSFERS ARE INTERPRETED HERE, |AND MAGNETIC TAPE TRANSFERS ARE INTERPRETED BY SIMULATING THE APPROPRIATE FAILURE. USES MONOUT L230))L231) |DRUM AND CORE STARTING ADDRESSES X L890 0 |SKIP IF NO WRP ( +55,63,63,63,63,63,63,63 |MASK FOR WEAK RESVNS, BIT L2) 04Y A36 5 A40 77 V2+3 V2-2 A36 |J IF STRONG RESVNS. 00 A54 A50 A36 75 (A44) (L4) A36 |CHECK ADDRESS NOT > SIZE OF STORE ) G2) 70 (A44) (A43) A54 |ALLOW X=A0 L0) 75 L172 (A43) A54 |CHECK X 00 A54 A50 A36 11Y A36 1 A42 62 L172 A36 87 0 A44 |EXIT L23) 86 L2 A44 |142, CHECK READING REGION 114 A52 A54 |INTERCHANGE X AND X140 86 L0 A44 |CHECK WRITING REGION 142 (A54) 142 (A52) (A50) |OBEY THE INSTRUCTION L4) 75 L202 |START F16 0 L149 |16-BIT FIELD FOR MAX CORE SIZE L236) 15 A52 (L47) |ENTRY PT, FOR 140,1,2 CLEAN X140 15 A59 -1 A54 |CLEAN X TO A54

Page 135

25 A60 9 A50 |Y TO A50 70 L23 114 A62 |J IF 142 PAIR 53 A52 10 A61 |MODE TO A61 71 V2+2 13 A61 |J IF NOT INTERROGATE 14 A50 1 |PRETEND ITS A 1-WORD TRANSFER 70 L26 113 A62 |J IF 141 52 A53 24 A48 |PERIPH. NAME TO A48U 117 8 146 (A40) A48 A45 |SEARCH RESERVATIONS 52 (A40) 7 A58 64 L207 A58 |J IF TRERE ARE ANY FAILED PERS 60 L28 (A45) |PER.VIOL IF NOT FOUND L56) 74 L173 -1 A50 |J TO IMPOP IF Y IS 32768+ L3) 15 (A45) 255 A63 |LAST 8 BITS OF DIR. WD TO A63 121 (A45) -31 A22 15 A22 31 |POSN. IN PLIST TO A22 72 L5 251 A63 71 L28 254 A63 |J IF FLOATING L5) 04Y A57 L252 A22 15 A57 127 |A57 POINTS TO BAR FOR MAGTAPE 01 A45 A40 |SET A45 FOR MONOUT 16 A53 31 A48 |PREPARE TO SEARCH 52 A48 30 |FOR THE DEVICE TYPE 144 L7 A48 A58 |A48 POINTS TO TABLE ENTRY 84 L8 (A58) 7 |J IF WORD DEVICE 10 A50 7 |REPLACE A50 BY THE APPROP- 53 A50 3 |RIATE NO. OF WORDS L8) 52Y (A58) 13 A61 65 L148 (A58) |J IF ILLEGAL MODE 14 A44 L10 |LINK FOR REGION CHECKER 71 L9 L6 A58 |J IF NOT MAGTAPE 70 L38 14 A61 |J IF REWIND L9) X L674 0 |SKIP IF NO ITS ( 71 L46 L20 A58 |J IF NOT IT 70 L17 14 A61 |NO MORE CHECKING IF REWIND ON ) L46) 70 L17 16 A61 |IT OR DISENG ON ANY DEVICE 60 L173 A50 |IMPOP IF Y=0 72 L0 21 A61 |J IF READING TO STORE 86 L2 A44 |OTHERWISE ALLOW A0 L31) 14 A50 3 |PREPARE ENTRY TO PROGFAIL 64 L1.30 A41 |J IF WRITING WITH OVR |ACTION AFTER DECISION TO DO THE TRANSFER L10) 70 L39 13 A61 |J IF INTERROGATE 71 L17 L6 A58 |J IF NOT MAGTAPE L38) 65 L39 (A57) |J IF NOT REWINDING L12) 04 A44 L1 |CCW L34) 73 (L37) (0) 60 |INTCHAR, TO LOCK THE JOB OUT L1) 00S L268 L821 0 |CCW FOR LOCK-OUT CHAPTER F9 15 L272 F9 39 L822 L17) 141.1 0 L267 |READ MONOUT 142 L136 L273 86 L587 A50 |CHECK THE DEVICE X L674 0 |SKIP IF NO ITS

Page 136

( 71 L19 L20 A58 |J IF NOT IT 76 L12 L11 A48 |J IF DISENGAGED ) L39)L19) 71 L16 254 A63 |J IF NOT MONITORING 141.1Y 0 L240 A22 |READ GEONLIST ENTRY 142 A44 1 15 A44 -1 141.1 0 (A44) |READ MONITORING STYLE 142 A44 1 115 A56 8 |TAKE CARE OF STYLE 7 MARK 86 L55 A39 |TAKE MONITORING ACTION L16) 71 L32 L6 A58 |J IF NOT MAGTAPE 70 L32 13 A61 |J IF INTERROGATE L11) +63,63,63,63,62,63,63,63 |OFF TS, NOT D29 64Y L207 L252 A22 |J IF FAILED 52 A54 24 A25 10Y A25 (A36) A42 |FINISHING ADDRESS 34 A61 6 A44 121 L15 (A44) A44 |SET UP APPROPRIATE 111 A25 (L34) A44 |INTERROGATION INFORMATION 71 L24 14 A61 |J IF NOT REWIND 53 L449 6 A25 |JUST SAY DECK INTERRUPT 24 (A57) 10 |WHILE REWINDING L24) 16 A25 (L14) |SET SIMULATED BIT 14Y A26 L252 A22 |A26 POINTS TO PLIST ENTRY 04Y A27 L252 A22 |A27 CONTAINS A COPY OF IT 86 L664 L242 |SIMULATE PERINC L37) 75 L202 L131 |START L15) +30,0,12,14,0,0,62,46 |SIMULATED INTERROGATION BITS L32) 14 L144 L33 |RESET MONPER ADDRESS 64Y L207 L252 A22 |J IF ALREADY FAILED 140 (A52) |DO THE TRANSFER 142 (A59) (A60) 25S L145 8 |SWITCH OFF MONPER L36) 75 L202 |START L33) 65 L664 (L143+2) |TO PERINC IF FAILED AFTER |TRANSFER INITIATED L14) 75Y L207 |PUT BIT BACK. HALF WD CONST L26) 60 L173 A50 |141. IMPOP IF Y=0 14 A44 L30 |LINK FOR REGION CHECKER 70 L0 1 A61 |J IF MODE 1 70 L0 13 A61 |J IF MODE 13 71 L148 21 A61 |ILL.INSTR IF NOT 1,13 OR 21 86 L2 A44 |ALLOW A0 IF MODE 21 64 L31 A41 |J IF WRITING WITH OVR L30) 86 L27 A39 |DEAL WITH MONITORING 116Y 0 -1 A40 |DRUM DATUM POINT 141Y (A52) (0) A53 |DO THE TRANSFER 142 (A59) (A60) 75 L202 |START L7)

Page 137

X L647 0 |SKIP NO CP +0,56,32,0,9,3,4,7 |CP TABLE OF PERMISSIBLE MODES X L160 0 |SKIP NO CR ( X L662 2 |SKIP IF ORION 2 +0,57,45,12,45,8,0,7 |CR LAST CHARACTER IS 7 FOR A WORD DEVICE X L662 1 |SKIP IF ORION 1. MODES 4 AND 11 NOT +0,57,44,12,13,8,0,7 |ALLOWED ON ORION 2 ) X L133 0 |SKIP IF NO DDC +1,2,12,0,9,1,,7 |DD X L130 0 |SKIP IF NO DIGITAL DISPLAY ( +1,9,6,2,4,32,, |DS +1,10,32,0,9,3,1, |DT ) X L670 0 ( +1,17,0,4,9,,, |EA +1,18,0,0,9,1,, |EC +1,18,36,0,9,,, |ED ) X L545 1 X 0 0 ( +1,22,12,0,9,0,0, |EK ) X L916 0 |SKIP NO FC +1,34,0,0,9,3,0, |FC THE TOP 13 BITS CONTAIN THE TYPE+1 +1,40,32,0,9,0,1, |FP E.G. FQ IN THIS CASE +1,41,32,4,9,0,0, |FR X L707 0 +2,8,12,0,9,1,,7 |HP X L917 0 +2,22,40,0,8,0,0,7 |IL X L674 0 L20) +2,26,44,0,13,3,1,7 |IT +3,8,32,0,9,3,4,7 |LP L6) +3,26,44,0,12,3,1,7 |MT X L918 0 +3,54,32,0,8,2,0,7 |OL +4,56,32,0,9,3,0, |SP +4,57,44,0,9,0,0, |SR +5,41,45,12,45,8,0,7 |VR |MONITORING *DRU L232))L233) L27) 116 (A40) |PICK UP PROG NO IN CASE 121 7 -9 A57 | OF ENTRY FROM 150/50 15 A57 15 04Y A44 L29 A57 |*DRU STYLE TO A44M 51 A44 24 A47 |-N TO A47 10 A47 (A53) |D-N 10 A47 (A60) |D+Y-N 62 L28 A47 |PER.VIOL IF D+Y GREATER THAN N

Page 138

70 (A39) (A44) |EXIT IF NOT MONITORING L55) 70 (A39) 7 A56 |EXIT IF RETURN FROM STYLE 7 115 A56 8 |STYLE 7 INDICATOR L25) 72 L53 6 A44 |J IF STYLES 1 OR 2 141.1 0 L824 142 L132 L826 |READ STYLE 7 PRELUDE 14 A48 |CLEAR W B A L47) 75 L825-1 -1 |STYLE 7 THEN START L28) 81 L172 L148 |PERVIOL ENTRY TO PROGFAIL L53) 86 L456 A44 |TO INTERPRETER PRINT 00S L609 L613 0 F9 15 L611 F9 39 L612 L222))L29) +0 |DRUM MONITORING TABLE +0 |UPPER HALVES CONTAIN THE REAL -N +0 |LOWER HALVES THE MONITORING STYLE +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 L234) C 0 63 |CHAPTER 2. THIS IS AN AUXILLIARY CHAPTER CALLED BY CHAPTER 1 TO DEAL WITH MONITORING ON *JUM (EXCEPT STYLE 2) |*OVR,*FOV AND FUNCTIONS NOT DEALT WITH IN CHAPTER 1 (OTHER THAN 140-142) V2=L136 S0 L193))L197))L63) |JUMPS MONITORING TABLE +0 +0 +0 +0 +0 +0 +0 +0 L199))L61) +0 |OVR MONITORING TABLE +0 +0 +0 +0

Page 139

+0 +0 +0 L200))L62) +1,,,,1 |FOV MONITORING TABLE +1,,,,1 +1,,,,1 +1,,,,1 +1,,,,1 +1,,,,1 +1,,,,1 +1,,,,1 L1.32)L32) 122Y A44 L63 A57 |LOOK UP JUMPS STYLE 71 V2+2 3 A44 |J IF NOT STYLE 3 71 L1.22 70 A63 |IGNORE IF NOT AN 86 115 A56 2 |SET PRINT FIELD 72 L1.22 5 A44 |J IF NOT STYLE 7 17X 5 (L3) A40 |REMOVE JUMPS BIT L3) 73 (L2) 0 2 |J TO L5 L1.21)L21) 26 A41 10 |SET POVR 14 A50 5 |SET SWITCH 76 L26 L33 A53 |J IF NOT MON *FOV 64 L25 A44 |J IF INSTR SET *FOV L26) 76 L1.24 L182 A53 |EXIT IF NOT MON *0VR 81 L1.24 6 A50 |SWITCH *FOV/*0VR OR EXIT 116 0 L61-L62 L25) 122Y A44 L62 A57 |LOOK UP STYLE 73 L26 (A50) A56 |J IF RET FROM STYLE 7 70 L1 2 A44 |J IF STYLE 2 L5)L1.53) 60 L6 A48 |J IF NOTHING WRITTEN AWAY 04 (A48) A51 |RESTORE IT 60 L6 A49 |J IF NOTHING ELSE WRITTEN AWAY 04 (A49) A52 |RESTORE AT MOST 2 OPERANDS L6) 52 A48 24 |SET WRITE BACK ADDR 74 L1.1 5 A44 |J IF STYLE 7 75 L1.30 |PROGFAIL L1) 115 A56 4 |STYLE 7 INDICATOR 75 L1.24 |BACK TO CHAPTER 1 L33) 157XY (-1) -1 -1 |NOT RY L34) 157XY (-1) (16383) -1 |NOT M.S BIT OF Y ADDRESS L35) +48.... |DIV CONST L204) 77 L36 L33 A58 |EXTENDED Y J IF Y REPLACED 76 L36 L34 A58 |J IF Y IS LESS THAN 16384 14Y A60 (L42) A60 |EXTEND THE SIGN L36) 70 L212 82 A63 |POVR IF 102 71 L192 97 A63 |PLANT IF 121 52 A60 24 |EXTEND SIGN TO 48 SITS 40 A60 L35 A54 |DIVIDE SHIFT BY 48 53 A55 24 A60 |BACK DOWN INTO Y L42) 75Y (L43) (0) -1 L215) 126XY 0 1 A59 |PARTIAL JUSTIFY FOR 44,45 L43) 75 L192 L192 |TO PLANT

Page 140

L640) 10 A59 (A60) A54 |143 REGION CHECKING 11Y A54 1 A42 |X+Y-1-U 62 L172 A54 |J IF OUTSIDE RES 86 L192 A56 |GO TO PLANT AND CLEAR STYLE 7 INDICA? L216) 10 A42 1 A54 |144,5,6 114 (A60) (A54) A55 |ENSURE TERMINATION OF SEARCH 86 L192 L1.19 |GO TO PLANT AS SR 04 (A54) A55 |RESTORE WORD BEYOND RESVNS 70 L172 (A54) A38 |CHECK THIS WAS NOT WORD FOUND L2) 75 L1.24+2 L5 |TO CHAPTER 1 L217) 15 A60 -1 |RESVN CHECKING ON 104 L40) 121 (A59) -3 A44 |WHEN I WROTE THIS PIECE OF 121 A44 -28 A54 |PROGRAM ONLY GOD AND I UNDERSTOOD IT. 15 A54 30 |NOW NOBODY UNDERSTANDS IT! 111 A54 1 A44 00 A54 A60 86 L138 A44 11 L40 6 83 L40 L41 L41) 75 L192 4 L1.61) 14 A38 |125, CLEAR Z IN PLANT L1.41) 86 L212 L1.19 |TO POVR AS SR 00 (A61) A38 |AMEND PROGS Z 86 L1.48 A16 |TO CHAPTER 1 WITH OVR CLEAR L196=V2-L63 C 0 63 |INTERPRETER PRINT. DOES ALL MONITORING PRINTING, EXITS TO START IF ENTRY FROM CHAPTER 1, RESTORES THE PROGFAIL |BIT (L207) IF ENTRY FROM CHAPTER DEALING WITH 140,141 OR FROM *OVR STYLE 2 IN 150S V2=L136+46 S0 L609))L611) L4=L611+L612 L610) 142 L4 |STORE ADDRESSES AND 142 A48 6 |OLD OPERANDS 86 L40 A44 |RESTORE OLD OPERANDS L613) 141.1 0 L267 |READ MONOUT 142 L136 L273 86 L134 A50 |INITIAL ENTRY 71 L24 (L272) |J IF THERE IS A MON,PER 86 L134 1.24.+L13 A50 |MESSAGE TO FLX 86 L135 A50 |NL. 21 (A40) 8 |HALT 75 L161 |CHARGE L13) +4.46.47.0.45.47.46.31 |NO MON.PER L10) +48,37,50,,63,56,, L24) 124 A56 6 04Y A56 L23-2 A56 |MESSAGE AND STYLE 7 MK TO A56 86 L134 24.A56 A50 |MESSAGE 72 L25 7 A56 |J IF NOT PER, OR DRUM

Page 141

25 A53 9 A54 |Y140 TO A54 70 L26 7 A56 |J IF DRUM 53 A54 5 A44 15 A44 1024-32 A54 |RECONSTRUCT PER. TYPE 10Y A54 2048+32 A44 121 A54 12 86 L134 16.A54 A50 |PER.TYPE 15 A53 31 A54 L26) 86 L30 48.A54 A50 |DRUM ADDR. OR PER. NO. L25) 116 (A40) 15 2 -1 A54 86 L14 56.A54 A50 |C.N. 72 L27 7 A56 |J IF NOT DRUM OR PER. 53 A52 10 A54 86 L30 32.A54 A50 |MODE 15 A59 -1 A54 | 86 L3 1.0.A54 A50 |STARTING ADDRESS 15 A60 -1 A54 86 L30 1.0.A54 A50 |LENGTH 71 L28 2049 A52 |J IF NOT 150/50 15 A36 -1 A54 86 L3 1.0.A54 A50 |JUMP ADDRESS 75 L28 L7) +1.... |RADICES FOR OCTAL CONVERSION +24,24,24,24,24,24,24,24 L9) +32768000 |RADICES FOR TOP 9 OF Y +10,10,26,33,1,1,1,1 L5) +160 |RADICES FOR FUNCTION +2,26,24,49,49,49,1,1 L27) 15 A63 -1 A54 |CONVERT FUNCTION 101 A54 L5 64 V2+2 A58 |J IF NOT SIGNALLED 16 A54 51. |S 86 L134 1.0.A54 A50 |FUNCTION 15 A59 -1 A54 86 L3 56.A54 A50 |X 15 A60 (L10) A54 |TOP 9 OF YM 60 L6 A54 |DONT PRINT IF CLEAR 101 A54 L9 |CONVERT WITH POINT 10 L6 A54 L6) 86 L134 32. A50 |4 SPS. OR TOP 9 OF YM 15 A61 -1 A54 86 L3 56.A54 A50 |L.S. 15 OF Y 15 A61 -1 A54 64 L12 A63 |J IF 2-ADDRESS 10 L12 A54 L12) 86 L3 40. A50 |5 SPS. OR Z 75 L28 63 A61 |J IF 150 14 A36 L4 |PREPARE TO PRINT OPERANDS L8) 04 A54 (A36) |ADDRESS TO A54 72 L28 7 A54 |J IF NO ADDRESS 86 L3 56.A54 A50 |ADDRESS 04Y A55 3 A36 |NEW CONTENTS TO A55 53 A55 24 A54 |TOP HALF TO A54 101 A54 L7 |CONVERT TOP HALF 86 L134 1.0.A54 A50 |FIRST 8 DIGITS

Page 142

25 A55 9 A54 |BOTTOM HALF TO A54 101 A54 L7 |CONVERT BOTTOM HALF 86 L134 1.0.A54 A50 |LAST 8 DIGITS 86S L134 16. A50 |SP.SP. L11) 81 L8 L4+3 A36 |UP TO 3 ADDRESSES L28) 86 L135 A50 |NL. 86 L742 A50 |CLOSE MONOUT 121 A56 6 75 L31 63 A61 |J IF 150,140,141 86 L40 A44 |RESTORE NEW OPERANDS 110 A41 L29 A56 |STYLE 7 MARK 75 L205 |START L31) 116 (A40) 110 2 L29 A56 |STYLE 7 MARK 75 L207 |PUT BIT BACK L29) +31,,,,,,, |MASK FOR INSERTINF STYLE 7 MK |PRINT PRELUDE TO MONOUT L14) 04 A58 (A54) L3) 74 L30 (A54) A43 |J IF OUTSIDE RESERVATIONS 72 L30 (A54) A42 01 A54 A43 |SUBTRACT DATUM 116 0 6 L30) 14 A44 2 |ALWAYS SHIFT 2 BITS 101 L1 L2 A54 124 L1 48 A16 |LEFT JUSTIFY 57 L1-1 (A44) A53 |PUT IN A IF NECESSARY 75 L134 133 |GO TO MONOUT |CONSTANT FOR SHIFTING L1) + |RESTORE OLD/NEW OPERANDS L40) 14 A54 L4 L41) 04 A50 (A54 |NEXT ADDRESS 72 (A44) 7 A50 |J IF NO ADDRESS 114X 3 (A50) A54 |INTERCHANGE OLD//NEW VALUES 81 L41 L4+3 A54 75 (A44) |EXIT L2) +100000 +10.10.10.10.26.1.1.1 |RADICES FOR CONVERTING DECIMAL L23) +1.7.7....1.7 |MESSAGES AND NEW STYLE 7 MARKS FOR PERIPHERAL +1.36......7 |DRUM +1.47......6 |OVERFLOW +1.42......3 |JUMPS +1.51......2 |SIGNALS L612=V2-L611 |LENGTH OF INTERPRETER PRINT C 0 63 |150S MONITORING ON *OVR. THIS IS CALLED BY 150S WISHING TO SET OVR. V2=L136+1 S0 L779))L780)L781) L6) 26 A41 10 |SET POVR

Page 143

116 (A40) 121 2 -6 A56 15 A56 31 |STYLE 7 MARK 73 (A49) 6 A56 |EXIT IF RET, FROM STYLE 7 04Y A56 5 A40 76 (A49) L182 A56 |EXIT IF NOT MON OVR 121 A36 1 A56 |PROG NO, ROUND 1 141.1 0 L199 142 L6 8 |READ *OVR STYLES 122Y A56 L6 A56 |PICK UP STYLE 71 L2 1 A56 |J IF NOT STYLE 1 82 L177 L178 |TO PROGFAIL L2) 74 L3 5 A56 |J IF STYLE 7 115 A0 4 A56 |MARK OVR 14 A63 120 |FUNCTION 150 86 L456 A44 00S L609 L613 0 |TO INTERPRETER PRINT F9 15 L611 F9 39 L612 L3) 70 (A49) 23 A61 |DONT DO IT FOR 150/23 14 A48 |CLEAR W B A 86 L456 A44 |TO INTERPRETER STYLE 7 00S L824 L825 0 F9 15 L132 F9 39 L826 L782=V2-L781 |LENGTH OF CHAPTER C 0 63 |150/4 |150/4, SLOW CASES, X L890 0 ( V2=L136 L885))L886) L887) 121 A36 3 A53 122Y A22 L894 A53 53 A22 42 |SUBS, NO, (S) 64 L45 (L30) |J IF FROM SETSTAND |CHECK L.O. 74 L179 5 A59 |IMPOP IF X>5 71 L0 2 A59 |J IF X NOT 2 |X=2 116 0 (A43) 75 L177 2 A60 |RESVI Y-2 < 0 OR=DATUM 74 L177 (A42) A60 |RESVI Y> UPPER RES, 61 L179 L897 |IMPOP IF ALREADY A MASTER 122 L897 A36 4 |STORE MASTERS PROG. NO. AND 06 L897 A60 |AND INTERRUPT POINT 75 L43 |JOIN X=5 L0) 14 A55 L205 |SET EXIT TO START 03 A52 A60 |SET A52 -VE UNLESS A60=0 70 L35 5 A59 |J IF X=5 70 L41 4 A59 |J IF X=4

Page 144

|X=0,1,3 74 L179 15 A60 |J IF Y NOT IN RANGE 60 L179 A60 |(IMPOP) 16 A60 16 A52 |A52U=16+Y 52 A52 24 60 L14 A59 |J IF X=0 70 L35 1 A59 |J IF X=1 121 L892 (A60) A52 |IMPOP IF THIS SUBS,NO,EXISTS OR L41) 64 L179 A52 |Y NOT 0 FOR X=4 |X=3,4 L4) 62 L5 L897 |J IF THERE IS A MASTER AND IDLE 06 (A40) L6 |SUSPEND STYLE 9 75 L161 |CHARGE L6) 0S 9 0 0 L5) 52 A59 40 A52 01 L31 A52 |SET APPROPRIATE FN, IN L31 57 A0 48 A44 |CLEAR WORKING SPACE L31) 64 L179 A22 |* J IF S=0(X=4) OR NOT 0 (X5=3) 16 A22 (A60) |ENSURE S IS IN A22 121 A22 6 A57 |S TO TOP OF A57 123X A44 A57 A53 |IN POSN, IN A44 OR A45 07XY L894 A44 A53 |INSERT OR DELETE IN TABLE 03 A53 A22 121 L449 (A53) A53 17 L892 (A53) |INSERT OR DELETE BIT IN SUBPROGNOS 60 (A55) L897 |EXIT IF NO MASTER (FOR SETSTAND 15 L897 -1 A57 |MASTERS INTERRUPT POINT (!) 53 L897 24 A53 |MASTERS PROG NO. 26 L897 10 |MARK MASTER BUSY L20) 154 0 -1 0 |OFF T.S. 14 A17 L143 |POINTER TO MIND L11) 04 A17 (A17) |CHAIN DOWN MAIN OUEEEEUE 04Y A51 7 A17 |W7 TO A51 53 A51 39 A56 15 A56 15 |PROG NO. TO A56 61 L11 A53 A56 |J IF NOT MASTER 121 A51 24 |SET A51 AS FOR START 60 L32 (A51) |J IF NOT BRANCHED 10 (A51) 1 |PUSH DOWN 04Y A17 1 A51 |USE BRANCH 1 L32) 86 L165 0 A24 |DTOP MASTER 04 A23 (A17) 76 L61 L60 A23 05 (A17) L60 |REMOVE ANY 150 OR PROGFAIL BITS 11 A29 1 |AND ADJUST JOB COUNT L61) 116 (A57) 04Y -1 2 A17 |COPY C.N. ETC. 05X -1 L20 A57 |CLEAR OUT RUBBISH 05 (A17) L21 A53 06X -1 A53 A57 |INSERT SUSPENSION STYLE 110 (A17) L21 |CLEAR MASTER SUSPENSION 04X -2 A22 A57 |SUB. NO. 52X -2 24 A57 06X -2 A43 A57 |SUB NO, DATUM 116 (A17)

Page 145

110 2 L44 A57 |SET NEW C.N. 70 V2+2 3 A59 |J IF X=3 26X -2 10 A57 |SET I-2S=1 FOR X=4 114 A17 A40 A58 |SET AND DUMP A40 FOR START 86 L208 A45 |START MASTER L39) 04 A40 A58 |RESTORE A40 116 (A40) 121 7 24 A51 |RESTORE A51 75 (A55) |EXIT TO START OR SETSTAND L60) +63,57,27,63,63,63,63,63 |X=0 L14) 60 L179 A22 |IMPOP IF NOT A SUB. 06 (A40) A52 |SUSP 1110....16+Y L38) 75 L205 L143 |START |X=1.5 L1)L35) 53 L897 24 A53 15 A53 -1 |MASTERS PROG NO 61 L179 A36 A53 |IMPOP IF NOT THE MASTER 70 L40 5 A59 |J IF X=5 |X=1 114 L38 A40 A58 |DUMP A40 L44) 0 0 -1 0 |OFF TS. 15 (A40) -1 A40 |CHAIN DOWN MAIN Q 53 (A40) 44 A54 71 L37 14 A54 |J IF NOT SUSPENDED 1110 05 (A40) L21 A54 61 L37 A54 A52 |J IF NOT SUSPENDED IN STYLE Y+16 110 (A40) L21 |REMOVE SUSPENSION STYLE 116 (A40) 121 7 24 A51 |SET A51 FOR START 86 L208 A45 |START L37) 61 L44 A40 |J IF NOT FINISHED L30) 75 L39 A59 |START. Y USED FOR CHECKING L.O. |X= =5 L40) 25 L897 11 |MARK MASTER IDLE L43) 141.1 0 L255 |READ SWITCHON 142 L238 L292 86 L238 9 A63 |SWITCHON STYLE 9 70 L205 2 A59 |START IF X=2 04 A59 A60 |COPY Y TO X 86 L456 A44 |JOIN 150/25 00S L898 L899 0 F9 15 L900 F9 39 L901 L21=L906 |FROM SETSTAND L45) 53 L897 24 A55 15 A55 15 61 L46 A36 A55 |J NOT MASTER 14 L897 |CLEAR MASTER INDICATOR L46) 60 L47 A22 |J NOT A SUBS 64 L4+1 L897 |J IF MASTER BUSY 86 L5 A55 L47) 56 A38 0 A59 |RESTORE A59 AND A60 64 (A54) A54 |J IF CORE LINK 04 A44 A54

Page 146

75 L131 |EXIT L888=V2-L887 C 0 63 ) |150/20. THIS CHAPTER ALTERS MONITORING BITS IN WORD 5 ACCORDING TO THE FORM OF MONITORING |CONTAINED IN A59 AND STYLE IN A60. IT IS ENTERED AT L321 FROM FIRST CHAPTERS OF 150S AND |DIRECTIVES, SETSTAND STARTS IN L520 AND IS ENTERED AT L521 AND WILL SET ALL MONITORING |STYLES TO NORMAL. IT IS USED BY 150/10, 150/53, AND ABOLISH. IT EXITS TO 150/21. V2=L136 L320))L322) L321) 75 L50 -1 A60 |J TY=0 15 A60 -1 10 A60 (A43) |ADD DATUM L50) 60 L13 A59 |J TX=0 52 A59 24 A63 |EVENT IN MS HALF 146 L0 A63 A58 |SEARCH TABLE 74 L177 (A42) A60 |RESVI Y>U 11 A60 1 A44 |Y-1 64 L30 A43 A44 |J U < Y-1 52 (A58) 29 A62 51 A62 45 |MAX STYLE-1 L16) 64 L177 A62 A44 |RESVI MAX STYLE-1 < Y-1 L518))L520) L30) 116 (A40) 2 |HALF WORD CONSTANT 121 7 -11 A62 |PROG NUMBER 15 A62 15 |PROG NUMBER 87 L6 (A58) |ENTER SR ACCOR AS TABLE |TABLE L0) 00S *URG L41-L6 1 |X STYLE 00S *SIG L1-L6 1+0 |Y ADD OF SR 00S *FOV L1-L6 1+8 |Z LS 3 BITS 1 LESS L17) 00S *TIM L1-L6 7+16 | THAN MAX STYLE X L890 0 00S *WEB-1 (L22-L6) 0+56 |*WEA IF EXTRA KERNEL 00S *OVR L1-L6 1+24 |(OTHER THAN 7) 00S *IMP L1-L6 7+32 | MOD 7 00S *PFN L1-L6 7+40 |RY BIT AND L23) 00S *JUM L1-L6 2+48 |Z ADDRESS MS 00S *UNR L3-L6 0+56 |3 BITS ARE 00S *OWN L4-L6 7 |MOD FOR WORD 00S *DRU L5-L6 1 |FROM L11

Page 147

00S *PFP L49-L6 7+40 |ONWARDS 00S *QUI (L3-L6) 0+32 L21) |DRUM ADD MON LIST,,,,BIT FOR W5 L11) 00S L198 0 0 |*SIG |TERMINATE TABLE *PER 00S L200 25 0 |*FOV 00S L201 29 0 |*TIM 00S L199 1 0 |*OVR 00S L747 7 0 |*IMP 00S L761 27 0 |*PFP/N 00S L197 24 0 |*JUM |*OWN L4) 117 7 26 |*UNR 110 (A40) L28-26 A60 |D0=0 Y=NEW STYLE 60 (L10) A60 |J NEW STYLE 0 26X 7 10 A40 |D0=1 83Y (L10) 7 A40 |1 FROM Y ADD 0 0 3 0 |*QUI L28) 00 0 -1 0 |*WEA X L890 0 ( L22) 17 A60 1 |FOR INSERTING STRONG BIT 75 L3 2 |ELIMINATE STYLE 7 BIT FOR *WEA ) |*DRU L5) 141.1Y 0 L222 A62 142 A44 1 |DMONLIST WD 110X 5 L15 A40 |CLEAR D BIT 60 L45 A60 |J IF STYLE 0 06X 5 L15 A40 |INSERT D BIT L45) 112 A44 9 A60 |NEW STYLE IN LIST WD 141.21Y 0 L222 A62 142 A44 1 |LIST TO DRUM 76 L9 L30 A60 |J IF STYLE 0 OR 2 24 A44 1 |MS HALF=-1 L9) 116S (A40) L207 112 -1 8-L207 A44 |ADJUST MS HALF W-1 L48) 73 L38 0 4 L15) +32...... |D6 |*PFP L49) 16 A60 (L157) |SET PRINT MARK TY=1 |*SIG *FOV *TIM *OVR *IMP *PFN *JUM L1) 121 A62 1 |PROG NO MOD 121 (A58) -29 A44 15 A44 15 |MOD FOR L11 WORD 04Y A44 L11 A44 53 L449 (A44) A45 |MARKER BIT 110X 5 A45 A40 |REMOVE BIT 76 L47 L157 A60 |J NEW STYLE 0 06X 5 A45 A40 |INSERT MARKER L47) 63 (L10) A44 |J NO LIST 53 A44 24 |D ADD MON LIST 141.1Y 0 (A44) A62 142X L321 1 A62 |READ MON LIST 122Y A45 L321 A62 112 A45 9 A60 |INSERT NEW STYLE 122X L321 A45 A62

Page 148

141.21Y 0 (A44) A62 |LIST TO DRUM 142X L321 1 A62 70 L2 L23 A58 |J *JUM L8) 73 L30 0 0 |*PER L6) 86S L218+1 L179 A62 |FINDPER|IMPOP NOT RESD/IMP STYLE 04 A62 (A63) 64 L207 A62 |J FAILED L29) 121 A62 -31 A46 15 A46 63 |POS IN PLIST 04Y A44 L223 A46 |COPY PLIST WD 141.1Y 0 L240 A46 142 A46 1 15 A46 -1 |MON LIST D ADD 141.1 0 (A46) 142 A45 1 |READ LIST WD 70 L40 (A45) |J NOT BEEING MONITORED 75 L179 (L170) A62 |IMPOP NOT MON BY CALLING BRANCH L40) 112 A45 9 A60 |NEW MON STYLE 60 L18 A60 |J NEW STYLE 0 10 L170 254+1 A44 |K=254 RX=1 L18) 15 A62 255 |DIRECT K BITS 71 L19 253 A62 |J NOT FLOATING 111 A44 255 A62 |ALTER K TO 253 L19) 152 L168 L9 |OFF TS 64 L19 (A63) |J FAILED 111 (A63) (L20) A44 |INSERT K AND RX 86 L153 L242 |ON TS 141.21 0 (A46) 142 A45 1 |LIST TO DRUM L38)L20) 75 (L10) 255 |*UNR L3) 72 L1 7 A60 |J NOT STYLE 7 |*URG L41) 73 L177 7 A60 |RESVI STYLE 7 110X 5 L46 A40 |REMOVE OLD STYLE 115X 5 (A60) A40 |SET NEW STYLE 141.1 0 L268 142 L136 L273 |FLAS 06 L42 A60 86 L134 1..+L42 A50 |TB URG SP DIGIT 115 A49 4 |PN 86 L135 A50 75 L38 L46) +3,,,,,,, L42) +04,53,50,39,00,07,07,16 |*|TB URG SP 0 |*JUM PART TWO L2) 04Y A63 5 A40 |W5 76 L39 L26 A63 |J NO J2 SPACE 110X 5 L27 A40 |CLEAR JS BIT-B8 86 L456 A44 |TO PRINT CHAPTER 00S L474 L478 0 F9 15 L476 F9 39 L477 L484)L39) 71 (L10) 2 A60 |EXIT NEW NOT 2 77 L25 L26 A63 |J SPACE RESED 141.1 0 L284 142 L228 L378 |LOSEN MOVEDIRECT

Page 149

86 L228 16 A63 |LOSE 16 60 L24 (A51) |J NOT BRANCHED 10 A51 7 A44 L12) 64 L7 (A44) |J NOT EXIST 15 (A44) -1 A63 |OLD W0 60 L24 A63 A40 |J REACHED CALLER 11 A63 16 A62 |NEW W0 86 L225 L373 |MOVE L14)L7) 83 L12 L205 A44 |*LINK SETSTAND SR |NEXT L24) 143X -18 16 A40 |CLEAR 16 WDS 16X 5 (L8) A40 |INSERT D28 L25) 06X 5 L27 A40 |SET J2 BIT - D8 L10) 75 (L10) L205 |*LINK SR|EXIT L27) 00XS 0 0 0 |D8 L26) 157XY (-1) (-1) 55 |NOT D28 |ALL L13) 14 A60 1 |1 FOR *SIG *FOV 14 A58 L0 |START WITH *SIG 86 L31 L10 L31) 81 L30 L17 A58 14 A60 |0 FOR REST L32) 86 L30 L10 81 L32-1 L21 A58 10 A40 8 A63 |ADD DIRECT WD L33) 04 A62 (A63) |COPY DIRECT WD 60 (L14) A62 |EXIT IF END DIRECT 64 L207 A62 |J FAILED 75 L44 (L170) A62 |J NOT MONITORING 86 L29 L10 L44) 81 L33 A63 |NEXT |SETSTAND L519) 04 A61 A40 |STORE A40|A61 NOT 21 FOR 150/21 X L890 0 ( 114 L904 A53 A54 |LINK TO KERNEL TO A53 A53 TO A? ) 04 A55 A60 |STORE Y 61 L36 (A51) |J BRANCHED 116 0 A33 L36) 10 A51 7 A56 |ADD LAST BRANCH D WD L35) 64 L34 (A56) |J NOT EXIST 15 (A56) -1 A40 |W 0 86 L13 L14 |ALL EVENTS TO STAND 60 L43 (A51) |J NOT BRANCHED L34) 83 L35 (A51) A56 |NEXT L43) 04 A40 A61 |RESTORE A40 04 A60 A55 |RESTORE Y 86 L456 A44 |TO 150/21 00S L553 L246 0 F9 15 L554 F9 39 L522 L521=V2-L520 L323=V2-L322 C 0 63 |150/22, SETS PERIPHERAL IN A59 TO BE MONITORING PERIPHERAL. IT IS ENTERED FROM THE FIRST

Page 150

|CHAPTER OF 150S AND OUTPUTON. IT MAY USE FILLCODEBUFFER. V2=L136+100 L328))L248) 60 L2 A59 |J TO UNSET 53 A59 5 A62 |TYPE 77 L179 L2 A62 |IMPOP NOY P X L707 0 70 L179 272 A62 |IMPOP HP 14 A50 8 86S L218 L784 A62 |PERVIOL NOT RESD 86 L771 A56 A44 |FILL CODE BUFFER 00S L563 L759 0 F9 15 L758 F9 39 L760 01 A63 A40 A59 52 A59 15 |ADD TO STORE L2) 116 (A40) -16 |Y=NOT P 111 7 (L4+16) A59 |ALTER MASTER 60 L205 (A51) |J NOT BRANCHED 10 A51 7 A63 L3) 64 L5 (A63) |J NOT EXIST 116 (A63) 116 (0) 111 7 (L4) A59 |ALTER BRANCH L5) 83 L3 (A51) A63 |NEXT L4) 75Y L205 0 31 L329=V2-L248 C 0 63 |150/21. WRITES RESTART ACTION FOR PERIPHERALS TO DRUM, A59 POINTS TO CODE WORD FOR EVENT, |A60 POINTS TO RESTART ADDRESS OR 0. ENTERED FROM FIRST CHAPTER OF 150S AT L245, FROM |SETSTAND AT L246. SETSTAND CASE WILL EXIT TO (A53), OR TO INTCHAP WITH A44=A53 IF |A53 IS POSITIVE. V2=L136 L324))L325) L245) 86 L689 A59 A57 |*|UNPAOK 2ND WD |X Y Z IN A52 54 55 60 L3 A60 |J Y=0 116 0 (A43) 72 L177 3 A60 |RESVI Y< A+3 64 L177 A42 A60 |RESVI Y>U 115 A60 (A55) |RESTART STYLE L3) 121 A60 24 A57 06 A57 A60 |RESTART INF TO STORE 15 A52 31 A58 |5 BITS FOR EVENT NUMBER 04 A59 A54 |PERIPH FOR FINDPER 14 A50 8 86S L218 L784 A62 |RESVIOL IF NOT RES L553))L554) 04 A63 (A63) |COPY DIRECT WD 65 L7 A63 |J NOT FAILED 116 0 8 L7) 121 A63 -31 15 A63 63 |POS IN PLIST 04Y A63 L247 A63 53 A63 15 A62 15 A62 31 |MAX EVENT NO 15 A63 -1 |D ADD LIST RESTARTS 64 L179 A62 A58 |IMPOP RESART NO TOO BIG 53 A62 1

Page 151

141.1 0 (A63) 142Y L245 1 A62 61 L8 A58 |J NOT TO SET ALL EVENTS 143 L245+1 (A62) A57 |SET EVENTS 2,3, ETC 14 A58 1 |SET FOR EVENT 1 L8) 121 A58 1 122Y L247 L245 A58 112 L247 9 A57 |UPDATE 122X L245 L247 A58 141.21 0 (A63) 142Y L245 1 A62 70 L205 21 A61 |EXIT IF 150/21 L246) |SETSTAND 10 A40 8 A63 |*|ADD DIRECT WD 57 A0 48 A57 |A57=A58=0 10 L246 1 |NEXT WD 61 L554 (A63) |J NOT END OF DIRECT 64 (A53) A53 |EXIT IF LINK -IVE 04 A44 A53 75 L131 |INT CHAP L522=V1-L553+L651 L326=V1-L324+L651 C 0 63 |GEONLIST. TOP 18 BITS OONTAIN GEOGRAPHICAL NAME OF DEV, Y ADDRESS POINTS TO DRUM ADDRESS |OF RESTART WORDS FOR DEV, Z ADDRESS = NO. OF RESTART WORDS FOR DEV. L240))L247) |150/32. WRITES GEOGRAPHICAL NAME OF DEV IN A59 TO (A60). L327))L241) V0=V2+L651 |LEAVE SPACE FOR GEONLIST L669) 24 A58 10 |-1.0 FOR NOT RESED 86S L218 L2 A62 |TO L2 IF NOT RESED 123 A57 (A63) 0 |DIRECT WD IN A57 |A58 0 FOR FLOATING 64 L207 A57 |J FAILED 121 A57 -31 15 A57 63 |POS IN PLIST 116 (A57) 121 L223 24 A62 |ROTATE PLIST WD 64 L2 A62 |J D24=1 I.E. FLOATING 04Y A58 L247 A57 |COPY GEON LIST WD 53 A58 30 |NAME AS LS 3 CHARS 110 A58 L1 A62 |K BITS IN MS HALF L2) 04 (A60) A58 |WRITE AWAY ANSWER 75 L205 L1) 00S 255 0 0 L342=V2-L241 C 0 63 |150/36 V2=L751+L752 |CLEAR OF PRINT SR L347))L748) L244) 07 A59 A60 A57 |OLD NOT EOUIV NEW 60 L205 A57 |J NO CHANGE IN NAME 74 L179 31 A57 |IMPOM NOT SAME TYPE 52 A57 24

Page 152

52 A60 24 A63 |NEW IN A63 86 L218+1 L2 A62 |FINDPER L4) 75S L179 L207 |RESVIOL NEW RESD/152 LINK L9) 81 L177 L178 L2) 86S L218 L9 A62 |RESVIOL OLD NOT RESD 61 L3 (A51) |J BRANCHED 116 0 A33 |POINTER TO MASTER L3) 10 A51 7 A56 |OR LAST BRANCH 04 A52 (A63) |COPY DIRECT WD 64 L207 A52 |J FAILED 01 A63 A40 |DIRECT WD TO ALTER 121 A52 -31 15 A52 63 A58 |POS IN PLIST|A58>0 FOR SR L5) 152 L168 (L1) |OFF TS |CHECK LOCKUUTS 64Y L5 L223 A58 |J FAILED L8) 64 L6 (A56) |J BRANCH NOT EXIST 116 (A56) 07X (0) A57 A63 |ALTER NAME IN DIRECT 60 L7 (A51) |J NOT BRANCHED L6) 83 L8 (A51) A56 |NEXT BRANCH L7) 86 L153 L242 |ON TS 141.1 0 L749 142 L751 L752 86S L750 0 A56 |*|PRINT -NOW- L1) 75 L205 L4 L348=V1-L347 C 0 63 |150/52 CHAPTER 3, ENTERED FROM CHAPTER 2, WILL ALTER DMONLIST WORDS AND WRITE THEM BACK TO THE DRUM |AND WILL ALTER PROGS WORD-1 IF NOT MONITORING ON *DRU, 1)150/52 CASE WILL OUTPUT NEW DRUM RESVNS |AND EXIT TO L205. 2) 150/51 CASE WILL EXIT TO SPRING. 3) ABOLISH CASE WILL DELETE ENTRY |FROM DLIST REMOVE MARKERS IN ANY SBIPS USED AND ADD SBIPS TO FREEABLE SPACE & EXIT TO ABOL, S 1 |IN CASE L833)) V2=L136+L273 L1.16))L1.18) L1.17) 141.1 0 L222 142 L0 16 |DMONLIST 61 L1 (A51) |J BRANCHED 116 0 A33 L1) 10 A51 7 A44 |A40 OR END BRANCH DIRE L5) 64 L2 (A44) |J NOT EXIST 04 A45 (A44) |PT TO W0 116 (A45) 121 7 -9 A46 15 A46 15 |PROG NO 01X L0 A55 A46 |ADJUST D RES 116 (A45) 51 -1 24 A46 66 L3 1 A46 |J MON 01X -1 A55 A45 |W-1 L3) 60 L4 (A51) |J NOT BRANCHED L2) 83 L5 (A51) A44 L4) 141.21 0 L222 142 L0 16 |LIST TO DRUM 60 L6 A39 |J ABOL 141.21 0 L466 142 L1.0 37

Page 153

64 (A22) A22 |J NEG 04 A44 A22 |CH CH 75 L131 L1.20) 141.1 0 L268 142 L136 L273 |FLAS|FOR 150/52 101 L7 L7 A39 86 L134 2..+L8 A50 115 A49 4 |PN 86 L135 A50 75 L205 |START L8) +4,36,50,53,45,7,7,7 |TB,DRUM L7) +100000000 +10,10,58,58,58,58,58,58 L6) 10 L1.0 L1.0+1 A44 |FOR ABOL 01 A44 A53 |NO OF ENTRIES TO MOVE 142 (A53) 142X 1 (A44) A53 |DELETE 11 L1.0 1 |1 LESS ENTRY 14 A44 L1.2 |SEMIDLIST 60 L9 (A51) |J NOT BRANCHED 116X -A40+1 0 A51 L9) 116 (A40) 121 7 -9 A45 15 A45 15 |PROG NO OF MASTER 53 L449 (A45) A45 |MARKER BIT L11) 77 L10 (A44) A45 |J NOT BEING USED 110 (A44) A45 |REMOVE MARKER 53 (A44) 24 A46 61 L10 A46 |J STILL USED 116XY 0 0 A44 12 0 (1) A46 |LENGTH 00 L1.1+1 A46 |ADD TO FREEABLE SPACE L10) 81 L11 L1.3-1 A44 141.21 0 L466 142 L1.0 37 |LISTS TO DRUM 86 L456 A44 |BACK TO ABOL 00S L600 L601 0 F9 15 L602 F9 39 L603 L0) L1.19=V1-L1.16 C 0 63 |150/52 CHAPTER 2. ENTERED FROM CHAPTER 1, ALTERS SEMIDLIST WD IF SBIP, RESHUFFLES PROGRAM |DRUM RESERVATIONS AND ALTERS THEIR WORD-1S, ADJUSTS FREE DRUM SPACE WORD, CLEARS ANY NEW AREA RESERVED |USES START (L208) AND SWITCHON. EXITS TO CHAPTER 3. L834)) V2=L136 L1.11))L1.13) L1.12) 52 A54 24 A55 |CHANGE IN RES IN TOP HALF 71 L0 L1.2 A53 |J NOT A SBIP 01 L1.2 A54 |ALT D START IN SEMIDLIST WD 01X -1 A54 A40 |ALT D START IN W-1 14 A44 (L1.2+1) |ST NEXT PROGS D SPACE L12) 75S L8 L13 |LINK FOR 152 L0) 10 L1.0 L1.0+1 A48 |END OF LIST 04 A46 A53 |1ST LIST WD TO ALTER 64 L1 A54 |J MOVING TO LOW END

Page 154

04 L2 L9 |THROUGH LIST OTHER WAY 114 A48 A46 |INTERCHANGE LIMITS OF LOOP L1) 114 A40 (L11) A55 |L.O.|SAVE A40|A55 SET FOR L1.55 S/R L2) 80 L11 (A48) A46 |*|COUNT THROUGH LIST 53 (A46) 24 A57 |SET FOR SR 116 (A46) 53 1 24 A56 |SET FOR SR L3) 152 L168 L12 |OFF TS|ON TS TO L13 15 (A46) -1 A17 |W0 86 L165 128 A24 |STOP 83 L3 A29 |ADJUST A29 L13) 86 L1.15 A50 |MOVE 15 (A46) -1 A40 |W0 116 (A40) 121 7 24 A51 |W7 61 L4 (A51) |J BRANCHED 00X -1 A55 A40 |ALTER D DATUM IN W-1 75 L14 L4) 10 A51 7 A47 L5) 64 L6 (A47) |J NOT EXIST 116 (A47) 00X (0) A55 L698 |ALTER D DATUM IN W-1 L6) 83 L5 (A51) A47 |OF ALL BRANCHES L14) 110 (A40) L10 |REMOVE SUSP BITS 86 L208 A45 |START 75 L2 L11) 114 A55 A54 A40 |RESTORE A40|A54 CHANGE IN RES 116 (A40) 121 7 24 A51 |RESTORE W7 10 L1.0 L1.0+2 A44 |LAST IN LIST 10 A53 1 A45 |1ST TO ALTER 52 A54 24 A55 |CHANGE IN RES IN TOP HALF L7) 00 (A45) A55 |ALTER D DATUMS IN LIST 81 L7 (A44) A45 116 (A53) 53 1 24 A44 |ST NEXT PROGS D SPACE L8) 01 L1.1 A54 |ADJUST FREE DRUM 63 L18 A54 |J LOSING 143 (A63) (A62) |CLEAR BUFFER L17) 01 A44 A54 A45 |START AREA TO CLEAR 75 L16 (A62) A54 |J BUFF>=AREA TO CLEAR 141.21 0 (A45) |WRITE 142 (A63) (A62) 11 A54 (A62) |LESSEN AREA TO CLEAR 75 L17 L16) 141.21 0 (A45) |WRITE FINAL BLOCK 142 (A63) (A54) 75 L15 L18) 141.1 0 L255 |SWITCH ON 142 L238 L292 86 L238+2 8 A63 |SPACE L15) 86 L456 A44 |TO NEXT CHAP 00S L1.16 L1.17 0 F9 15 L1.18 F9 39 L1.19 L9) 82 L11 (A48) A46 L10) 00S 4096 0 0 L1.8) |START BUFFER IN CHAPTER SPACE

Page 155

L1.14=V1-L1.11 C 0 63 |ENTRY FOR REMOVE TO 150/52, MAY EXIT BACK TO PRIMARY INPUT IF ERROR. V2=O L801))L803=V2+L0 L363))L365=V2+L0 L595))L597=V2+L0 L802=V2+L0 14 A61 L1.3-1 L22=V2+L0 117 1 146 (A61) A52 A61 |SEARCH FOR NAME 60 L21 (A61) A52 |J FOUND 61 L22 (A61) |J NOT AT END OF LIST L32=V2+L0 86 L456 A44 |DOCU ERROR L31=V2+L0 00S L435 L423 0 |* F9 15 L436 F9 39 L437 L21=V2+L0 10 L31 L235-L423 11 A61 9 |ADD SEMIDLIST WD 122 L596 (A61) 4 |MARKER BITS 71 L32 (L596) |J USED |STATE ERROR L26=V2+L0 75 L24 2 |150/52 CHAPTER 1. ENTERED AT L802 FOR REMOVE, L364 FOR 150/52, L596 FROM ABOLISH AND 150/51 |CHECKS SPACE REQUIRED, PREPARES CORE BUFFER FOR USE IN RESHUFFLING DRUM, USES UPDATECLIST |AND POSSIBLY 150S OVR CHAPTER, EXITS TO START (L205) OR CHAPTER 2. L364=V2+L0 115 0 L1.20,32 A22 |LINK 25 (A59) 9 A39 |REQUEST 74 L25 1 A39 |J REQUEST>1 116 0 L26-A39 |REQUEST FROM L26=2 L25=V2+L0 116 0 A39-A59 |REQUEST FROM A39 L596=V2+L0 14 A39 (A59) |REQUEST FROM A59 L24=V2+L0 14 A56 -64 |AN IMPOSSIBLE AMOUNT OF CORE 141.1 0 L286 |UPDATECLIST 142 L769 L762 86S L768 A63 53 A62 24 A63 |BUFFER START 74 L27 L1.9 A62 |J BUFF LEN>LEN AVAIL IN CH SPACE 14 A63 L1.8 |BUFF START 14 A62 L1.9 |BUFF LENGTH L27=V2+L0 86 L456 A44 |FLAS|CLEAR OVR SET BY UPDATECLIST 00S L268 V2+L0+1 0 F9 15 L136 F9 39 L273 86 L134 1..+L28 A50 |REMOVED 70 L30 (L596) |J REMOVE DIRECTIVE 116 (A40) 52 -1 24 A53 |DRUM DATUM 146 L1.0+1 A53 A53 |ADD DLIST WD 53 (A53) 24 A44 |DRUM START 116 (A53) 53 1 24 A45 |DRUM END +1 116 0 (A53) 71 L10 (0) |J NOT SBIP 14 A53 L1.2 |ADD SEMIDLIST WD 25 L1.2+1 9 A45 |DRUM END +1 25 L1.2 9 A44 |DRUM START L18=V2+L0 01 A45 A44 A48 |OLD LENGTH 01 A39 A48 A54 |INCH IN RES -SIGNED 00 L1.1 L1.1+1 A55 |AVAIL

Page 156

65 L11 A55 A54 |J ENOUGH AVAIL 86 L771 A49 A44 |TO 1505 OVR CH 00S L779 L780 0 F9 15 L781 F9 39 L782 14Y (A60) (A55) A48 |SET AMOUNT AVAIL L500=V2+L0 75 L205 |*|DUMP FOR ABOL 150/51 L11=V2+L0 04 (A60) A39 |SET ALLOCATION 60 L205 A54 |J NO CHANGE IN RES 65 L12 L1.1 A54 |J ENOUGH WITHOUT SBIP SPACE L1.9=V2+L0-L1.8 |END OF BUFFER L13=V2+L0 146 L1.2 0 A61 |A FREE SBIP 86 L6 A58 |REMOVE 64 L13 L1.1 A54 |J STILL NOT ENOUGH 86 L135 A50 |OUTPUT L12=V2+L0 86 L456 A44 |TO NEXT CHAP 00S L1.11 L1.12 0 F9 15 L1.13 F9 39 L1.14 L30=V2+L0 86 L6 A58 |H REMOVE DIRECTIVE|REMOVE SBIP 86 L135 A50 |OUTPUT 141.21 0 L257 |LIST TO DRUM 142 L1.1 20 75 L162 L6=V2+L0 04 A56 (A61) |START SBIP |REMOVE SBIP SR 14 A57 (L1.2) |START OF DRUM USED BY SBIP 116XY 0 0 A61 12 0 (1) A55 |DISTANCE TO MOVE 70 L4 L1.2 A61 |J REMOVING 1ST SBP 65 L9 (L19) |J ALL IN |LOCKOUT L23=V2+L0 152 L168 L18 |OFF TS |ON TS TO L33 53 L1.2 24 A17 |)W0 OF PROG 0 = POINTER TO W0 15 A17 -1 |)IS SET IN TOP ½ OF SEMI DLIST WORD 86 L165 128 A24 |STOP SPRING 114 A17 A40 A47 |SAVE W0'S 83 L23 A29 |CORRECT A29 L29=V2+L0 00S 4096 0 0 L33=V2+L0 00X -1 A55 A40 |ADJUST DRUM DATUM L9=V2+L0 86 L7 A50 |MOVE TO HIGH END L19=V2+L0 65 L8 L1.2 |J ALL IN 110 (A40) L29 |REMOVE STOP BIT 70 L20 (A40) A47 |DON'T START THIS ONE 114 A0 A51 A46 |SAVE AND SET A51 L18=V2+L0 86S L208 L33 A45 |START PROG 0 04 A51 A46 |RESTORE A51 L20=V2+L0 04 A40 A47 |RESTORE W0 L8=V2+L0 14 A44 L1.2 L5=V2+L0 00 (A44) A55 |ADJUST D DATUMS 81 L5 (A61) A44 |OF MOVED SBIP L4=V2+L0 00 L1.1 A55 |INCREASE FREE DRUM SPACE 01 L1.1+1 A55 |DECREASE FREE SBIP SPACE 04Y A55 9 A61 |COPY NAME 86S L134 8. A50 |SP 111 L831 -1 |IGNORE SPACE 86 L134 1..A55 A50 |NAME 10 L831 7 |IGNORE DUMMY 12 A61 L1.3-1 A44 |NO OF LIST WDS TO MOVE 142 (A61)

Page 157

142X 1 (A44) A61 |DELETE FROM SEMIDLIST 142X 9 0 A61 142X 10 (A44) A61 |DELETE FROM NAMELIST 87 0 A58 |EXIT L1.15=V2+L0 L7=V2+L0 01 A56 A57 A44 |LENGTH TO MOVE |MOVE DRUM SR 75 L1 (A62) A44 |J ALL MOVED THIS TIME 04 A44 A57 |STARTING ADD 64 L2 A55 |J MOVING TO LOW END 01 A56 62 A44 |STARTING ADD 04 A56 A44 |END FOR NEXT TIME L2=V2+L0 141.1 0 (A44) 142 (A63) (A62) |READ 65 L3 A55 |J MOVING TO HIGH END 00 A57 A62 |START FOR NEXT TIME L3=V2+L0 141.21Y 0 (A44) A55 142 (A63) (A62) |WRITE 75 L7 L1=V2+L0 141.1 0 (A57) 142 (A63) (A44) |READ 141.21Y 0 (A57) A55 142 (A63) (A44) |WRITE 87 0 A50 |EXIT L28=V2+L0 +04,50,37,45,47,54,37,36 |TB REMOVED |DLIST. TOP HALF OF EACM WORD GIVES DRUM DATUM. THE ROTTOM 15 BITS POINT TO PROG'S WORD 0, L466)) L1.0=V2+L0 +0 |NO OF ENTRIES +0 |1ST WD AVAIL F24 24 L535 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 +0 L1.1=V2+L0 |FREE SPACE L1.2=L1.1+2 |SEMIDLIST L1.3=L1.2+9 |NAME LIST L0=L771-20-V2 |ROOM FOR LISTS BEFORE L771 L804=L771-L803 L366=L771-L365 L598=L771-L597 C 0 127 |150/51, SEMI BUILT IN PROGRAMS, ENTERED FOR Y NOT EQUAL TO A0 CASE, CHECKS SBIP TO BE LOADED, |IF NOT READS PROG 0 CHAPTER, IF IN READS DOWN CHAPTER ANDS MAPS IT. V2=L136+60 |LEAVE ROOM FOR BUFF TO READ MAP WDS L442))L444) L257))L1.6) +L266-L535 |NO FREE DRUM WDS L1.0) +0 |NUMBER OF FREEABLE SBP WDS

Page 158

|SEMIDLIST L1.7))L1.1) +L266 |ADD 1ST WD NOT AVAIL TO SBP +0 |MARKER BITS IN D0-15 DRUM START LS HALF +0 |DURING INPUT OF A SBIP DO IS SET AND A POINTER TO WD 0 OF PROG 0 +0 |IS SET IN D1 TO D15. +0 +0 +0 +0 +0 |MS HALF ZERO |NAMELIST L805))L1.2) +0 +0 +0 +0 +0 +0 +0 +0 +0 |ZER0 L443) 04 A62 (A60) |COPY NAME 117 L1.2-7 |A63 CONTAINS 6 L1) 116 (A63) 146 1 A62 A63 |SEARCH FOR NAME 60 L0 (A63) A62 |J FOUND 61 L1 (A63) |J NOT AT END OF TABLE 141.1 0 L1.3 |READ CR TO SET UP 142 L1.4 L1.5 |PROG 0 L1.4)L0) 11 A63 L1.2-L1.1 |ADD SEMIDLIST WD 62 L2 (A63) |J FULLY IN 06 (A40) L21 |HLTD.SBP L19) 75 L162 -2 |Y TESTS ODD/EVEN CH NO L21) 00S 7 0 0 L2) 25 (A63) 9 A58 |DRUM START 116 (A63) 25 1 9 A57 |DRUM END + 1 01 A57 A58 A56 |DRUM LENGTH 15 A41 -1 A47 |LINK 61 L5 A47 A60 |STEP AROUND NAME 10 A47 1 |IF IN WD AFTER 150 L5) 82 L3 (L182) A59 |X-1|J X=0 16 A59 1 A55 00 A55 A58 |D ADD 2ND CCW 65 L177 A55 A57 |RESVI NOT IN RES 141.1Y 0 (L182) A55 |READ CCW S 142 A44 2 |A44 N,-,J,C 15,3,15,15 |A45 P,M,D 5,19,24 15 A44 -1 A46 00 A46 A43 |C+A 77 L4 L19 A59 |J EVEN NO CH 53 A44 15 A47 15 A47 -1 |J 00 A47 A43 |J+A L4) 72 L177 (A47) A42 |RESVI J+A>U 53 A44 33 |N 82 L177 (L182) A44 |N-1|RESVI N=0 00 A46 A44 A50 |C+A+N-1

Page 159

72 L177 (A50) A42 |RESVI C+A+N-1>U 121 A45 -5 A48 |M,D,P 53 A48 29 A49 |M 15 A48 31 |P 117Y 0 (A44) A58 |RESVI DRUM START+D+N-1 75 L177 (A45) A57 |>=DRUM END+1 117 0 (A48) 10 A44 13 A52 |N+P+12 31 A52 L9 |N+P+12/24=MAP LENGTH 117Y 0 (A49) A58 |RESVI DRUM START+M+LEN MAP 72 L177 (A52) A57 |>DRUM END+1 L3) 111 A41 -1 A47 |SET LINK 60 L10 (A51) |J NOT BRANCHED 116X 1-A40 0 A51 L10) 116 (A40) 121 7 -9 A55 15 A55 15 |PROG NO 53 L449 (A55) A55 |MARKER BIT 25 (A63) 8 A54 |MARKER BITS FROM LIST 71 L6 (L182) A59 |J NOT CH 0 60 L205 A54 |START SBP NOT USED 110 A54 A55 |REMOVE MARK FROM COPY 61 L7 A54 |J STILL USED 00 L1.0 A56 |ADD TO FREEABLE SPACE L7) 110 (A63) A55 |CLEAR MARK FROM LIST 141.21 0 L1.7-1 142 L1.0 L1.2-L1.0 |LIST TO DRUM 141.1 0 L255 142 L238 L292 86 L238+2 8 A63 |SWITCHON AWAITING SPACE 75 L205 L9) +1,21,21,21,21,21,21,21 |1/24 L6) 61 L8 A54 |J SBP USED 01 L1.0 A56 |SUB FROM FREEABLE SPACE L8) 76 L20 (A63) A55 |J MARKED FOR THIS PROG 06 (A63) A55 |INSERT MARKER 141.21 0 L1.7-1 142 L1.0 L1.2-L1.0 |LIST TO DRUM L20) 57 A43 48 A60 |A60=0 A61=A0 52 A43 24 A62 |A62=A0,0 06 A62 A61 A63 |A63=AO,A0 141.1Y 0 (A45) A58 142Y (A46) 1 A44 |READ CHAPTER L12) 14 A55 L136 |MAP WD MOD 74 L11 L12-L136 A52 |J BUFF < LEN MAP 111 L13 -1 A52 |ALTER LENGTH TO READ L11) 141.1Y 0 (A49) A58 |READ MAP L13) 142 L136 L12-L136 |* 10 A49 L12-L136 |STEP MAP START 11 A52 L12-L136 |DROP MAP LENGTH 53Y L136 (A48) A48 |ADJUST 1ST MAP WD 01 A46 A48 A54 |AND CORE START ACCORDING TO P 14 A48 |P=O FOR FUTURE ADJUSTMENTS L18) 10 A54 24 |LAST+1 FOR RELATIVIZING LOOP 04 A53 (A55) |COPY MAP WD 65 L14 A50 A54 |J C+A+N-1>=LAST+1 FOR LOOP 10 A50 1 A54 |SET CORRECT LAST+1 L14) 111 L15 -1 A54 |SET END OF LOOP IN 81

Page 160

L17) 111 L16 3 A53 |SET CORRECT RELATIVIZER 53 A53 2 |ADVANCE MAP L16) 00 (A46) A60 |*|RELATIVIZE L15) 81 L17 0 A46 |*|Y BECOMES A54M 64 L205 A50 A54 |FINISHED IF C+A+N-1 < LAST+1 FOR LOOP 81 L18 L12 A55 |NEXT MAP WD 75 L12 |J IF MORE MAP NEEDED FROM DRUM W3=V2+L771 |L771 USED IN PROG 0 CHAP X V3 L771 * 150/51 TOO LONG L445=V1-L442 C 0 63 |150/51 PROG 0. THIS GETS BASIC CHAPTER 5 TO LOAD SBIP PROGRAM, FORMING A PROGRAM 0, |IT WILL USE CHECKDOC AND EXITS TO 150/52 AND THEN TO SPRING. V2=L1.4 L866))L856) L1.3)) 61 L0 A59 |J NOT CH 0 71 L205 (A60) A41 |START-STEP AROUND NAME 81 L205 A41 |IF IN WD AFTER 150 L6) +04,46,47,,51,48,33,35 |TB NO SPAC L0) 25 A62 1 A56 |NAME TO A56 |1ST 6 BITS |OF THIS INSTRUCTION FORM 37 TO MAKE |E FOR CONSTANT IN L6 14 A55 7 |1 COMPONENT ONLY 86 L771 A57 A44 |CHECKDOC 00S L415 L800 0 F9 15 L219 F9 39 L414 00 L1.6 L1.0 A63 |AVAIL DRUM 61 L1 L1.2+7 |J 8 IN 73 L2 2 A63 |J 2 WDS DRUM L1) 06 (A40) L3 |HALT AWAIT SPACE 141.1 0 L268 142 L136 L273 |FLA5 86 L134 1.8.+L6 A50 |NO SPACE 86 L135 A50 L19) 75 L207 L207 L2) 65 L4 L1.1 |J ALL IN 06 (A40) L5 |HALT AWAIT SBP L20) 75 (L19) 242 L3) 00S 8 0 0 L5) 00S 7 0 0 L4) 116 0 (A43) 72 L177 255 A42 |RESVI NOT 256 WDS CORE 04 L1.2-1 A62 |NAME AT START 0F NAMELIST 123 L1.1-2 L1.1 4 |D START AT TOP 16Y L1.1-1 (L20) A43 |WD 0 OF PROG 0+LOADING BIT 121 L1.1-1 24 |RIGHT WAY ROUND 141.21 0 L1.7 |NEW LIST TO DRUM 142 L1.1-1 18 10 A43 64 |NEW DATUM 10 A43 175 A42 |NEW UPPER RES 143 (A43) 192 |CLEAR PROG AND DIRECT SPACE

Page 161

04 (A42) L7 |150 5 0 51 10 (A42) (A43) |150 5 AO 51 04X 1 A62 A43 |NAME IN A1 24X 1 8 A42 |W-2=-1,0 14X 2 (L1.1-1) A42 |W-1 DRUM DATUM 23X 4 9 A42 |TIME 04 A41 A42 |LINK 04Y A44 3 A40 |JOB NAME 05 A44 L8 A45 |MASK WITH 32S 124 A45 -48 |FIND RIGHT MOST 1 BIT 53Y A44 -12 A45 111 A44 63 |REMOVE BRANCH NO IF ANY 16 A44 16 |INSERT 0 52Y A44 -12 A45 |LEFT JUST 04X 6 A44 A42 |JOB NAME 52 A43 24 A44 |DATUM IN MS HALF 16 A44 (A42) |DATUM, UPPER RES 110 L9 L682 A44 04X 8 L9 A42 |RES WD 24X 9 9 A42 |TIME 04X 14 A40 A42 |STORE OLD W0 04X 15 A62 A42 |SBP NAME 52 A59 24 |CH NO 112 L7 14 A59 |150 N 0 51 10Y L7 15 A42 |150 N W12 51 04X 16 L7 A42 |150 TO CALL FOR SBP 06 (A40) L10 |SUSPEND STYLE 6 60 L14 (A51) |J NOT BRANCHED 10 A51 7 A44 L13) 64 L12 (A44) |J NOT EXIST L11) 116 (A44) L143 |* 06 (0) L10-L143 |SUSPEND BRANCHES L12) 83 L13 (A51) A44 |NEXT L14) 114 (L11) L11 A45 |LOOK FOR END OF MAIN Q 15 L11 -1 61 L14 L11 |J NOT AT END 10 A42 3 A40 |NEW W0 111 (A45) -1 A40 |ENTER IN Q 14 A51 |NOT BRANCHED 14 A59 2 |2 WDS DRUM 14 A60 L500 |WRITE TO L500 04 A22 L15 |LINK EXIT VIA SPRING 86 L456 A44 |TO 150/52 00S L595 L596 0 F9 15 L597 F9 39 L598 L7) 150 5 0 51 L8) +32,32,32,32,32,32,32,32 L9) 40 0 (0) 0 L10) 00S 6 0 0 L15) 00S L764 L765 0 F9 15 L766 F9 39 L767 L1.5=V1-L1.3 C 0 127 |150/53. ALTERS CORE RESERVATIONS TO AMOUNT IN A59, FOR A60 NOT =A0 WILL USE SETSTAND. IF

Page 162

|AMOUNT NOT AVAILABLE WILL USE INTERPRETER, OTHERWISE ALTERS PROGRAMS DIRECTORY AND EXITS |TO START (L205), V2=L136+L291 L367))L369) L368) 60 L0 A43 A60 |J A0 CASE 10 A44 L1 A53 |LINK FOR RET FROM SETSTAND 86 L456 A44 |TO SETSTAND 00S L518 L519 0 F9 15 L520 F9 39 L521 L1=V2-L369 72 L177 (A60) A42 |J Y>U L0) 60 L2 (A51) |J NOT BRANCHED 116 11 L2) 16 A40 63 A54 15 A54 -1 |OLD LAST IN 11 A54 (A42) A22 |LENGTH OF DIRECTORTY 00 A59 A22 A38 10 A38 63 15 A38 -64 |NEW TOTAL LENGTH 01 A38 A22 A39 |NEW PROG LENGTH 00 A43 A39 A48 |PSEUDO UPPER RES +1 =P 65 L177 A60 A48 |RESVI Y>=P 61 L3 (A51) |J BRANCHED 116 0 A33 |PT TO A40 OR L3) 10 A51 7 A49 |END BRANCH DIRECT 10 A49 1 A50 |END BRANCH D +1 L6) 64 L4 (A49) |J NOT EXIST 116 (A49) 116 (0) 15 7 -1 A52 |OWN ADD 65 L177 A52 A48 |RESVI OWN>=P 60 L5 (A51) |J NOT BRANCHED L4) 83 L6 (A51) A49 |NEXT L5) 01 A54 A43 A56 10 A56 1 |OLD TOTAL LENGTH 04 A55 A43 |OLD DATUM 86S L771 A63 A44 |UPDATECLIST 00S L286 L290 0 |LOOKS LIKE S F9 15 L769 F9 39 L291 04 A56 A38 |NEW TOTAL LENGTH 62 L7 A60 A43 |J Y>A0 60 L31 A60 A43 |J Y=A0 52 A60 6 A55 |REQUIRED DATUM 73 L177 L149-64 A55 |RESVI REQUIRED DATUM TOO BIG L31) 116 L289-L768 |FIND AREA WITH GIVEN DATUM L7) 86 L768 A63 |FIND AREA WITH ANY DATUM 66 L8 4 |J AVAILABLE 14 A61 53 |RESTORE A61 FOR PRINTING 86 L771 A49 A44 |TO INTERPRETER 00S L779 L780 0 F9 15 L781 F9 39 L782 63 L205 A60 A43 |START Y<=A0 01 A62 A22 |SUBTRACT DIR, LENGTH 14 (A60) (A62) |SET AMOUNT AVAIL 75 L205 |EXIT

Page 163

L8) 01 A55 A43 A48 |NEW-OLD DATUM 00 A55 A39 A53 11 A53 1 |NEW UPPER RES 63 L32 A60 A43 |J Y<=A0 14 (A60) (A55) |SET DATUM L32) 61 L29 A43 A55 |J DATUMS /= 70 L205 (A42) A53 |J UPPER RES = L29) 52 A55 24 A52 06 A52 A53 |NEW DATUM. NEW UPPER 00 A41 A48 |ADJUST LINK L11) 64 L9 (A49) |J NOT EXIST 04 A54 (A49) |COPY BRANCH D WD 62Y L10 7 A54 |J NO OWN ADD 00X 7 A48 A54 |ADJUST OWN L10) 00X 2 A48 A54 |ADJUST LINK IN W2 116 (A54) 110 5 L682 A52 |NEW W5 L9) 81 L11 (A50) A49 |NEXT 11 A53 (A42) A49 |NEW-OLD UPPER RES 101 L26 L23 A39 |CORE 101 L27 L23 A55 |DATUM 12 A43 (A42) A38 10 A38 1 |OLD PROG LENGTH 62 L12 A39 A38 |J INCREASING 04 A38 A39 |OLD LEN =NEW LEN IF NOT INCREASING L12) 65 L33 A49 |J U INCREASING 142 (A55) 142 (A43) (A38) |COPY PROGRAM L33) 141.1 0 L285 142 L225 L377 |MOVE DIRECT 60 L17 (A51) |J NOT BRANCHED 64 L16 A49 |J UPPER RES DECR 86 L13 A63 |MOVE BRANCH DIRECT 10 A51 8 A54 |END+1 BRANCH D 10 A51 1 A50 |FIRST WD BRANCH D L19) 86 L22 A61 |MOVE 81 L19 (A54) A50 |NEXT 75 L20 L16) 10 A51 7 A50 |END BRANCH D L21) 86 L22 A61 |MOVE 83 L21 (A51) A50 |NEXT 86 L13 A63 |MOVE BRANCH D 75 L20 L17) 15 A40 -1 A63 |OLD W0 10 A63 (A49) A62 |NEW W0 86 L691 L373 |MOVE L20) 64 L34 A49 |J U DECREASING 142 (A55) 142 (A43) (A38) |COPY PROGRAM L34) 00 A40 A49 |ADJUST A40 01 A39 A38 |NEW LEN - OLD LEN |0 IF NOT INC 143X (A55) (A39) A38 |CLEAR EXTRA SPACE 61 L30 A39 |J INC 141.1 0 L255 142 L238 L292 86 L238+2 8 A63 |SWITCHON STYLE 8 L30) 141.1 0 L268 142 L136 L273 |MONOUT

Page 164

86 L134 2..+L24 A50 |CORE 115 A49 4 |PN 60 V2+2 A55 A43 |J SAME DATUM 86 L134 1..+L27 A50 |DATUM 86 L135 A50 75 L205 L13) 142X (A51) 0 A49 |MOVE BRANCH D 142 (A51) 8 00 A51 A49 |ADJUST A51 52 A49 24 A22 |CHANGE IN UPPER RES IN MS HALF 10 A51 7 A50 L15) 64 L14 (A50) |J NOT EXIST 116 (A50) 116 (0) 00 7 A22 |ADJUST PTS IN W7 L14) 83 L15 (A51) A50 |NEXT 87 0 A63 L22) 64 L18 (A50) |J NOT EXIST 15 (A50) -1 A63 |OLD W0 00 A63 A49 A62 |NEW W0 86 L691 L373 |MOVE L18) 87 0 A61 L27) L23) +100000000 +10,10,58,58,58,58,58,26 L24) +04,35,47,50,37,07,07,07 |TB CORE L26) L370=V2-L369 C 0 63 |150/54 |X=0 IN, X=1 NOT ENOUGH SPACE, X=2 ABOLISH DIRECTIVE, V2=L136+30 |CLEAR OF SWITCHON L371))L583) L254) 77 L178 L650 A51 |ILL INST IF NOT PROG 0 |NOTE THIS FIRST INSTRUCTION IS FRIGGED BY EMS - SEE 'PSEUDO JOB' ON PAGE 20 14X -2 0 A40 |CLEAR W -2 FOR SPRING 04Y A40 11 A40 |RESTORE A40 116 (A40) 121 7 24 A51 |RESTORE A51 141.1 0 L257 |READ LIST 142 L6 20 141.1 0 L255 |READ SWITCHON 142 L238 L292 61 L3 A59 |J NOT IN 60 L1 (A51) |J NOT BRANCHED 116X 1-A40 0 A51 L1) 116 (A40) 121 7 -9 A62 15 A62 15 |PROG NO OF MASTER 53 L449 (A62) A62 |MARKER BIT 112 L6+2 8 A62 |MARK USED BY PROGRAM 75 L2 L3) 04 L4 L5 |ALTER FLX MESSAGE 11 L6+3 (L6+2) A63 |DRUM RES 10 L6 (A63) |INCREASE FREE DRUM SPACE 142 L6+2 142 L6+3 8 |REMOVE FROM SEMIDLIST 142 L6+11

Page 165

142 L6+12 8 |REMOVE FROM NAMELIST 86 L238+2 8 A63 |SWITCHON AWAITING SPACE 71 L13 2 A59 |J NOT ABOL CASE 110 (A40) L14 L153 |HALT 04 L11 L15 |ALTER MESSAGE L13) 71 L2 1 A59 |J NOT NO SPACE CASE 00 (A40) L7 |HALT AWAIT SPACE L2) 141.21 0 L257 142 L6 20 |LISTS TO DRUM 04Y A41 2 A40 |RESTORE A41 10 A42 16 |LAST WD OVERWRITTEN 15 A41 -1 A63 74 L8 (A42) A63 |J LINK NOT OVERWRITTEN 111 A41 -1 A42 |A42 CONTAINS COPY OF 150/51 L8) 86 L238+2 7 A63 |SWITCHON AWAIT SBP 86 L238+2 6 A63 |SWITCHON USING PROG 0 L9) 141.1 0 L268 142 L136 L273 04Y L10 -1 A42 |SBP NAME 86S L134 8.4 A50 |TB 60 L12 A59 |J IN 86 L134 1.8.+L11 A50 |NO SPACE/HALTED L12) 86 L134 1..+L10 A50 |NAME 86 L134 1..+L4 A50 |IN/NOT IN 86 L135 A50 |NL OUTPUT 86 L456 A44 |TO SPRING 00S L764 L765 0 F9 15 L766 F9 39 L767 L650)L0)L10) +63,63,63,63,62,07,63,63 |NOT PROG N0 FIELD |* L4) +00,41,46,07,07,07,07,07 |SP IN |* L5) +00,46,47,52,00,41,46,07 |SP NOT IN L11) +46,47,00,51,48,33,35,37 |NO SP SPACE L7) 00S 2 0 0 |SP L14) 00S 15 0 0 |SUSPENSION STYLE MASK L15) +40,33,44,52,37,36,07,07 |HALTED L6) L372=V1-L371 C 0 63 |DIRENT. OUTPUT DIRECTORY INFORMATION, USES MONOUT. V2=L136+35 L388))L390) L389) 141.1Y 0 L222 A36 |A36 PROG NO 142 A63 1 |DRUM RES 12 A43 (A42) A62 73 L179 2 A59 |IMPOP IF ADDRESS NOT 0 OR 1 10 A62 1 101 L7 L17 A62 |CORE RES 101 L0 L17 A43 |DATUM 51 A63 24 12 A63 101 L8 L17 A63 |DRUM RES 04 A52 A40 |W0 AND 7TH BRANCH 14 A53 7 |IN CASE NOT BRANCHED 141.1 0 L268

Page 166

142 L136 L273 |FLAS 70 L20 1 A59 |J DIRE 1 86 L771 A50 A44 |MONOUT 00S L267 L134 0 F9 15 L136 F9 39 L273 70 L20 (L272) 116 L36-L33 |NL UC ON MONPER L20) 86 L33 A54 |TB ON FLX 86 L134 6..+L1 A50 60 L21 (A51) |J NOT BRANCHED 53 A51 45 A52 |BRANCH NUMBER 04Y A52 (A51) A52 |ADD NO, + BRANCH INTERLOCK INFO 70 L21 1 A59 |1 BRANCH IF DIRE 1 70 L21 (L272) 10 L34 56. |ARR TO PRINT ,N 14 A53 1 |BRANCH CT L35) 10 L6 1.. |STEP BRANCH NO 04Y A52 (A51) A53 |ADD OF W0 64 L23 A52 |J NOT EXIST L21) 86 L36 A54 |NL OUTPUT TB/UC L34) 86 L134 8,L6 A50 |* 04Y A63 2 A52 |W2 15 A63 -1 A62 01 A62 A43 101 L9 L17 A62 |LINK 53 A63 35 111 L10 1.. A63 |OVR 86 L134 2.56.+L27 A50 53 (A52) 24 A62 15 A62 31 |STYLE OF SUSPENSION X L890 0 ( 75 L29 8 A62 |J STYLE <=8 14 A62 9 ) L29) 04Y A62 L38 A62 |MESSAGE 86 L134 1,,A62 A50 53 A52 24 A62 60 L24 A62 |J NO BRANCH INTERLOCK 111 L2 7 A62 86 L134 1,,L2 A50 L24) 86 L36 A54 |NL OUTPUT TB/UC 116XY 1 6 A52 00 0 0 A62 101 L12 L18 A62 |TIME USED 03Y A62 1 A52 101 L13 L18 A62 |TIME LEFT 86 L134 4,,L3 A50 116 (A52) 05 5 L15 A62 |MONITORING BITS FROM W5 L25) 116 (A52) 15 7 -1 A63 81 L26 1 A63 |OWN ADD |J OWN 60 L23 A62 |J NO MON L26) 86 L36 A54 |NL OUTPUT TB/UC

Page 167

86 L134 32,L4 A50 L28) 124 A62 32 A61 |LOOK FOR A MON BIT 121 A62 (A61) |RESET WD 121 A61 3 122Y A61 L16 A61 |LETTER 53 A61 6 |SP LETTER 86 L134 16.A61 A50 61 L28 A62 |J MORE STYLES 70 L23 1 A63 |J NOT OWN 01 A63 A43 101 L5 L17 A63 86 L134 2,,L11 A50 L23) 81 L35 8 A53 |ALL BRANCHES 141.1 0 L240 142 L19 L651 |GEONLIST 14 A52 8 |CT OF PERIPHS L30) 77 L39 L40 A52 |J NOT MULT OF 4 L40) 86 L36 -4 A54 |NL OUTPUT TB/UC L39) 04Y A63 (A52) A40 |COPY DIRECT WD 60 L22 A63 |J END 62 L31 A63 |J NOT FAILED 25 A63 11 |D0=0 53 A63 8 |LINE UP WITH NOT FAILED 116 0 1 |ENSURE NOT 253 L31) 15 A63 255 A62 |K BITS 53 A63 29 A61 |TYPE |AB 15 A61 15.32 A60 |A 0 10Y A61 1.32.32 A60 |*AB 52 A61 30 76 L41 L40 A52 |J 1ST ON LINE 86S L134 16.0 A50 |SP SP L41) 86 L134 24,A61 A50 |PERIPH TYPE 53 A63 24 A61 15 A61 31 101 A61 L17 86 L134 1,,A61 A50 |PERIPH NUMBER 14 A61 |SPACES FOR FLOATING 70 L32 253 A62 |J FLOATING 53 A63 17 15 A63 63 |POS IN PLIST 116 (A63) 53 L19 6 A61 |SP GEOGNAME L32) 86 L134 32,A61 A50 L37) 81 L30 A52 L22) 70 L36 L37 A50 |J CHARS TO OUTPUT |RET TO L39 86 L742 A50 |LOCKOUT 75 L205 |5TART L36) 86 L135 A50 |NL|OUTPUT L33) 86 L134 8,L272 A50 |TB/UC 87 0 A54 L17) +100000000 +58,58,58,58,58,58,58,26 L19) |GEONLIST TO HERE L1) +35,47,50,37,00,07,07,07 |CORE SP L7) +0 |* +00,36,33,52,53,45,00,07 |SP DATUM SP L0) +0 |*

Page 168

+00,00,36,50,53,45,00,07 |SP SP DRUM SP L8) +0 |* L6) +07,07,07,07,31,16,00,00 |.N SP SP |* L27) +35,46,00,33,07,07,07,07 |CN SP A L9) +0 |* L10) +00,47,54,50,00,16,00,00 |SP OVR SP 0 |* L2) +00,33,55,52,51,07,31,16 |AWTS .N L11) +00,00,47,55,46,00,33,07 |SP SP OWN SP A |* L5) +0 |* L3)L14) +53,51,37,36,00,07,07,07 |USED SP |* L12) +0 |* +00,00,44,37,38,52,00,07 |SP SP LEFT SP L13) +0 |* X L890 0 L16) +00,51,47,56,49,48,34,36 |.SOXQPBD X L890 1 L16) +00,51,47,00,49,48,34,36 |.SO.QPBD +41,00,00,00,00,00,00,00 |I....... X L890 0 L15) +63,48,00,00,63,16,00,00 |MONIT MARKERS WITH X X L890 1 L15) +55,48,00,00,63,16,00,00 |MONIT MARKERS NO X +36,42,38,53,50,00,52,00 |DJFUR.T. +40,00,00,00,00,00,00,00 |H....... L38) +07,07,07,07,07,07,07,07 |GOING +40,33,44,52,37,36,07,07 |HALTED +55,52,31,36,47,35,07,07 |WT.DOC +55,52,31,50,37,50,53,46 |WT.RERUN +51,53,51,48,37,46,36,07 |SUSPEND +55,52,31,33,46,51,07,07 |WT.ANS L4) +45,47,46,00,07,07,07,07 |LOAD SBP NOT PRINTED|MON SP +55,52,31,51,34,48,07,07 |WT.SBP +55,52,31,51,48,33,35,37 |WT.SPACE +55,52,31,45,33,51,52,50 |WT. MASTER L18) +22500000000 +10,26,33,06,10,33,06,10 L391=V2-L390 W3=V2+L771 X V3 L771 * DIRENT TOO LONG C 0 63 |JUMPS STYLE 2 PRINTING. ENTERED AT L478 FOR 150/20, AT L475 FOR PROGFAIL. V2=L136+64 L474))L476) L478) 11 L6 L812-L456 |FROM 150/20|ALTER LINK L475) 60Y L6 -3 A40 |FROM PROGFAIL|J NO RECORDS 141.1 0 L267 |READ MONOUT 142 L136 L273 86 L134 A50 |INITIAL ENTRY 86 L134 8.+L272 A50 |TB/UC 86 L134 1.56.+L0 A50 |J TO FROM 86 L135 A50

Page 169

70 L8 (L272) |J FLEX 116 0 14 |W-18 L8) 11 A40 4 A63 |W-4|START OF LIST L4) 60 L1 (A63) |J NO RECORD 86 L134 512+L272 A50 |TB/UC 53 (A63) 40 A62 101 A62 L2 86 L134 2048+A62 A50 |FUNCTION 53 (A63) 24 A62 86 L3 3584+A62 A50 |1ST ADD 04 A62 (A63) 86 L3 3072+A62 A50 |2ND ADD 53 (A63) 15 A62 |GET REPEAT NO 15 A62 511 75 L9 1 A62 |J IF J NOT REPEATED 101 A62 L10 |CONVERT NO 86 L134 2560+A62 A50 L9) 86 L135 A50 |OUTPUT L1) 117Y 0 (L182) A40 |NEXT RECORD 81 L4 (L182) A63 |UPTO W-3 86 L742 A50 |LOCKOUT 143X -18 16 A40 |CLEAR RECORDS L6) 86 (V2) L812 A44 |*|EXIT 00S L320 L484 0 |CCW BACK TO 150/20 F9 15 L322 F9 39 L7-L322 |L7-L322=LEN OVERWRITTEN L3) 15 A62 -1 01 A62 A43 |SUB DATUM 101 A62 L5 |CONVERT ADD 124 A62 26 A16 |LEFT JUST 10 A62 133 |A 0 1 121 A62 8 75 L134 L2) +80 +10,8,1,1,1,1,1,1 L5) +100000 +10,10,10,10,10,1,1,1 L0) +42,00,00,00,52,47,00,00 |J...T0.. +00,00,00,38,50,47,45,07 |...FROM L10) +1000 +1,1,58,58,26,,, L7) L477=V1-L474 C 0 63 |LOSEN. REDUCES PROGRAMS RESERVATIONS BY AMOUNT IN Y ADDRESS OF CALLING 86 INSTRUCTION |USED BY 150/20, RESDEV, AND 150/24, V2=L136 L284))L228) 116 (A63) |* 15 -1 -1 A62 |NUMBER TO LOSE 02 A62 A42 |NEW UPPER RES 65 L177 A43 A62 |RESVI UPPER RES LESS THAN DATUM 61 L0 (A51) |J BRANCHED 116 0 A33 |A40 L0) 10 A51 7 A58 |OR END BRANCH DIRECT IN A58 14Y L228 1 A58 L2) 64 L1 (A58) |J BRANCH NOT EXIST

Page 170

116 (A58) 116 (0) 15 7 -1 A57 |OWN ADDRESS L373) 65 L177 A57 A62 |J OWN ABOVE UPPER RES 60 L5 (A51) |J NOT BRANCHED L1) 83 L2 (A51) A58 |NEXT BRANCH L4) 64 L3 (A58) |J NOT EXIST L5) 116 (A58) L661) 116 (0) 111 5 -1 A62 |NEW UPPER RES IN W5 L3) 81 L4 (L228) A58 |NEXT BRANCH 111 A42 -1 A62 |ADJUST A42 87 0 A63 L376=V2-L228 C 0 63 |MOVEDIRECT. MOVES PROGRAMS DIRECTORY DOWN BY NUMBER OF PLACES SPECIFIED IN LOSEN, |USED BY RESDEV, 150/24 AND 150/53. L285))L225) L691)L5) 04 A58 L1 |START SEARCH |D0=1 1ST TIME L2) 04 L373+1 A58 |L373+1 PT IN MAIN QUEUE 15 (A58) -1 A58 |NEXT IN QUEUE 61 L2 A63 A58 |J L373+1 NOT PT TO DIRECT TO MOVE 04Y L373+4 5 A63 |COPY W5 52 L373+4 28 |L373+4 DO=J2S BIT 116 0 (A63) |L.S. 15 BITS 0 IF NOT BRANCHED 122 L661 7 4 |OR START OF BRANCH DIRECT 53 L661 45 A58 |BRANCH NUMBER 14Y L373+2 (L661) A58 |POINTER TO ENTRY IN BRANCH DIRECT 73 L4 2 A58 |J NOT MASTER 26 L373+2 10 |L373+2 D0=1 IF MASTER 116 (A63) 52 -1 24 A58 |DRUM DATUM 141.1 0 L466+1 142 L5 16 |READ DLIST 146 L5 A58 A58 111 (A58) -1 A62 |ALT PT TO W0 IN DLIST 141.21Y 0 L466+1-L5 A58 |WRITE DLIST 142 (A58) 1 L4) 114 A0 L661 A58 60 L6 (A58) |J NOT BRANCHED 116XY -62 0 A58 L6) 12 A63 2 A58 |W0=2 111 L661 63 A58 |LENGTH OF DIRECTORY 14Y L373+3 8 A62 |L373+3 NEW ADD FIRST PERIPH WD 25X 4 9 A63 |EXTRACT FROM PERIPH Q 141.1 0 L671 142 L14 L672 |READ 2ND CHAP L1) 86 L7 L143 A58 |LEAVE A58 +VE FOR 150/30 L377=V2-L225 L378=L377+L376 V2=L691-3 L671))L14) OOYS 0 (-256) 63 |MASK FOR ADD IN PLIST WD L0) 141.1 0 L285 142 L225 L377 |READ 1ST CHAPTER 75 L0

Page 171

L7) 65Y L8 (L13) L683 |J NO SP FOR JUMPS STYLE 2 |CHECK LOCKOUTS 10 L661 16 |16 WORDS LONGER 11 L9 16 |REGIONS START 16 WORDS EARLIER L8) 152 L168 L373 |OFF TS |ON TS OBEY LINK L9) 142X (L9) -2 A62 142X (L9) (L661) A63 |MOVE THE DIRECTORY 111 (L373+1) -1 A62 |ALTER MAIN Q 62 L10 L373+1 |J NOT FIRST IN QUEUE 111 L141 -1 A62 |ALT PSIND L10) 111 (L373+2) -1 A62 |ALT BRANCH DIRECTORY X L707 0 |SKIP NO H.P.D. ( 15 L697 -1 A58 61 L11 A63 A58 |J NOT H.P.D. 111 L697 -1 A62 L11) ) 62 L8 L373+2 |J NOT MASTER 52 A62 8 A16 |ADD TO INSERT IN PLIST L15) 60 L8 (L373+3) |J END OF DIRECTORY 65 L12 (L373+3) |J NOT FAILED 116 0 8 L12) 121 (L373+3) -31 A17 15 A17 63 |POSIT IN PLIST 10 A17 L223 |ADD PLIST WORD 52 (A17) 24 A24 |LOOK AT D24 64 L13 A24 |J FLOATING 110 (A17) L14 A16 |ALTER ADD IN PLIST 64 L13 (A17) |J FAILED 52 L373+3 24 A24 |ADD TO INSERT 112 (A17) 14 A24 |ALT ADD IN PLIST L13) 81 L15 L373+3 |NEXT PERIPH L672=V1-L671 C 0 63 |PERIPHBRAL INCIDENT CHAPTER 1. EXAMINES PLIST FOR FAILS, GETS FAILURE INFORMATION AND LIST |OF RESTARTS. IF MT, CALLS MAGS FAILS CHAPTER. IF SELECT BUTTON ON PRIMARY INPUT DEV, CALLS |PRIMARY INPUT CHAPTER. OTHERWISE GOES TO CHAPTER 2. V2=0 L404))L406=V2+L0 L405=V2+L0 71 L1 L141 A40 |J NOT PSIND 14 A62 L223 L6=V2+L0 145 (A62) A0 A62 |SEARCH FOR FAILED 04 A44 (A62) |COPY PLIST WD 74 L5 (L170) A44 |J IDLE 81 L6 A62 |LOOK AT NEXT L5=V2+L0 05 A44 L7 A61 |FAIL INF 110 (A62) L7 |RESTORE PLIST D0=0 D29=0 25 A61 8 |DO-8 FAIL INF 53 A44 8 |D24-32 FAIL INF. 111 A61 511 A44 52 A61 15 |FAIL INF 25 (A62) 11 A59 53 A59 13 |TYPE 10 (L30) 1 A41 |NEXT WORD IN PLIST L32=V2+L0 145 (A41) L224+8 A41 |SEARCH FOR ANOTHER FAILED DEV 04 A44 (A41)

Page 172

80 L30 L171 A41 |EXIT IF FLOUT 75 L32 (L170) A44 |J IF NOT IDLE L4=V2+L0 +31.62...... |OFF T.S. |TYPE 04 A17 A40 |PUT P INC BIT BACK 86 L165 2048 A24 152 L168 L1 L1=V2+L0 116 (A40) L30 121 7 24-L30 A51 |W 7 L9=V2+L0 117Y 8 -1 1 145 (A40) 3 A63 53 (A63) 25 A62 15 A62 63 10 A62 L223 |ADD PLIST WD 52 (A62) 1 A61 |D0-22 FAIL INF 15 (A62) 255 A46 |K BITS 52 A63 24 A44 |ADD DIRECT WD IN MS HALF 26 A44 10 |D0=1 112 (A62) 8 A44 |RESTORE PLIST D0=1 25 (A63) 11 A44 |D23-47 FAIL INF 53 A44 8 A45 |D0-29 DIRECT WD 72 L2 (L170) A45 |J NOT MON 14 A46 254 |K BITS FOR DIRECT L2=V2+L0 111 A45 (L9) A46 04 (A63) A45 |RESTORE DIRECT 110 A61 L167 A44 |FAIL INF 53 A45 5 A59 |TYPE 145 (A63) A0 A41 61 L4 (A41) L30=V2+L0 04 L265 (A62) |MIND+8 15 L265 255 L29=V2+L0 64Y L3 L867-L252 A62 |J NOT TO BE WRO 26X L867-L252 10 A62 |REMOVE SIGN L33=V2+L0 86S L456 L30 A44 |TO WRONG 00S L868 L869 0 F9 15 L870 F9 39 L871 L3=V2+L0 141.1Y 0 L240-L223 A62 142 A58 1 |GEONLIST WD 146 L10 A59 A53 15 (A53) -1 A41 |Y ADD FROM LIST|DESTROY A41 00 A41 L11 A44 |CCW TO 2ND CHAP 15 A58 -1 A45 |DRUM ADD RESTARTS 141.1 0 (A45) 142 L525 5 |LIST OF RESTARTS 121 A61 24 A56 |UNPACK FAIL INF =A B C D 15 A61 -1 A54 |D 15 A56 -1 A55 |B 53 A61 40 A57 |A 53 A56 40 |C 141.1 0 L209+1 142 L206 L239-L206 |START LOCKED OUT BY 141.1 0 L268 |FLAS 142 L136 L273 86S L134 8.4 A50 |TB 86 L134 32.A58 A50 |GEOGNAME SP L1.0=V2+L0 71 L12 L13 A53 |J NOT MT

Page 173

04 A44 L14 L12=V2+L0 73 L131 L13 A53 |J NOT PRIMARY INPUT TYPE X L917 0 |SKIP NO IL ( 14 A59 *IL |SET UP FOR PLIST 70 L58 L59 A53 |J IL ) X L674 0 ( 71 L17 L15 A53 |J NOT IT 71 L131 5 A57 |J OTHER THAN SELECT AND LOAD PT 76 L131 L19 A56 |J NOT ENGAGED 14 A59 *IT0 L19=V2+L0 75 L24 -5 |NOT 4 L17=V2+L0 ) 14 A59 *CR0 74 L20 L16 A53 |J CARDS 14 A59 *SR 116 0 L21-L22 X L917 0 |SKIP NO IL ( F 15 0 L22-L8 L58=V2+L0 116 0 L8-L22 ) L20=V2+L0 77 L131 L22 A57 |J OTHER THAN SELECT 76 L131 L23 A57 |J NOT SELECT (BROKEN MACHINE) L8 = V2+L0 70 L24 2 A57 |J SR/CR |SELECT BIT 17 A59 5.16. |SR/CR TO FR/VR L24=V2+L0 121 A59 16 A52 |TYPE IN POS FOR PLIST 70 L27 L141 A40 |J PSIND L23=V2+L0 14 A44 253 |K=253|NOT SELECT BIT 111 (A63) 255 A44 |FLOAT IN MASTER 60 L28 (A51) |J NOT BRANCHED 01 A63 A40 A45 |W TO ALTER 10 A51 7 A46 |PT TO BRANCH DIRECT L26=V2+L0 64 L25 (A46) |J NOT EXIST L22=V2+L0 116 (A46) 6 |VR AND SELECT BITS L18=V2+L0 117 (0) 0 2 |D24 D30/IDLE PT TO BITS 111 (A45) 249 A44 |FLOAT IN ALL BRANCHES L25=V2+L0 83 L26 (A51) A46 |NEXT BRANCH L28=V2+L0 16 L265 (L18) A44 |K D24 D30 112 (A62) 11 A44 |FLOAT PLIST WD L21=V2+L0 86 L208 10 A45 |START |FR SELECT BIT 53 (A63) 24 A59 |PROG NAME 141.1 0 L749 142 L751 L752 |PRINT SR 86 L750 3 A56 |PRINT FLOAT L27=V2+L0 110 (A62) L7+1 A52 86 L456 A44 |TO PRIMARY INPUT 00S L435 L436 0 F9 15 L436 F9 39 L437 L7=V2+L0 +00,00,07,63,01,31,60,00 |FAIL INF FIELD IN IDLE PLIST +31,62,,,,,, L14=V2+L0 00S L634 L635 0 |MT CCW

Page 174

F9 15 L636 F9 39 L637 L11=V2+L0 00S L528 0 0 |CCW TO 2ND CHAPTER F9 15 L531 F9 39 L530 L10=V2+L0 +626....+L533 |SR L16=V2+L0 +210....+L533 |FR +114....+L532 |CR +722....+L532 |VR X L917 0 L59 = V2+L0 +300....+L523 |IL X L674 0 ( L1.1=V2+L0 L15=V2+L0 +308....+L656 |IT ) L13=V2+L0 +436....+1000 |MT +112....+L529 |CP +400....+L561 |LP X L916 0 |SKIP NO FC +195....+L534 |FC X L545 1 |TURITZ ONLY X 0 0 +171....+L533 |EK +208....+L534 |FP +624....+L534 |SP X L918 0 +492....+L526 |OL X L707 0 +272....+L656 |HP X L130 0 ( +147....+L656 |DS +148....+L656 |DT ) X L133 0 +132....+L656 |DD X L670 0 ( +161....+L656 |EA +163....+L656 |EC +164....+L656 |ED ) |CHAIN RESTARTS. USED BY PERINC CHAPTER 2 TO SET UP RESTART ACTION IF ANY AND CHAIN IF |NECESSARY. L840))L524=V2+L0 L57=V2+L0 14 8 1.4 A38 |SET RESTART 1.4|X USED IN L527 SR 70 L48 L141 A40 |J PSIND 77 L48 L47 A61 |J TX=1 |REMOVE PROGFAIL BITS L808))L809=V2+L0 10 A51 1 A44 |BRANCH 1 60 L41 (A51) |J NOT BRANCHED 10 A44 6 |BRANCH 7 L48=V2+L0 04 A40 (A44) |PT TO W0 L41=V2+L0 04 A45 (A40) |COPY W0

Page 175

76 L42 L49 A45 |J NO BITS-AT MOST 1 05 (A40) L49 |REMOVE BIT 11 A29 1 |ADJUST A29 L42=V2+L0 83 L40 (A51) A44 |NEXT BRANCH 87 0 L811 L49=V2+L0 +63,57,27,63,63,63,63,63 |NOT 150 150/51 INTERP PDOWN INT BITS L810=V1-L808 L55=V2+L0 05 (A40) L53 A44 |SUSP STYLE 84 L48 A44 6 |J STYLE 6 121 A63 1 A44 122Y A44 L525 A44 |RESTART INF 15 A44 -1 A45 |RESTART ADD-R 60 L45 A45 |J NO RESTART R=O 72 L45 (A45) A42 |J R NOT IN RES X L707 0 L667=V2+1+L0 70 L653 L704 A62 |FLOAT HPD IF RESTART 53 A44 18 A38 15 A38 63 |RESTART STYLES L50=V2+L0 14 A46 1 |*| NUMBER OF LINKS 77 L44 L51 A38 |J NOT TO STORE INFORMATION 14Y A44 3 A40 |SET POINTER TO WD BEYOND 1ST LINK L43=V2+L0 117 -1 15 (A44) -1 A44 |NEXT LINK FROM LINK -1 70 L48 (A44) A45 |J R IN CHAIN 83 L43 A46 |COUNT LINKS 10 L50 1 |COUNT OF LINKS +1 L51=V2+L0 04X -2 A61 A45 |FAIL INF IN R-2|Y NOT 2 116 (A45) (A40) 04 -1 2 |LINK IN R-1 05X -1 L52 A45 |D0-5 Y ADD ONLY L811=V2+L0 L44=V2+L0 116S (A40) L55 |LINK FOR REMOVE SR L56=V2+L0 110 2 L52-L55 A45 |R IN W2 D0-5=0|X USED IN L527 SR 60 L48 (A51) |J NOT BRANCHED 81 L48 (A51) |CLOSE DOWN BRANCH PROG L527=V2+L0 L45=V2+L0 62Y L48 -1 A39 |J 86S ENTRY 05 (A40) L53 A44 |SUSPENSION STYLE 76 L46 L57 A44 |J STYLE 0 OR 8 77 L48 L56 A44 |J NOT STYLE 2 L46=V2+L0 110 (A40) L53 L696 |HALT 86 L134 1..+L54 A50 |SP SP HALT L48=V2+L0 87 0 A39 L555=V2+L0 L47=V2+L0 157Y (-1) (-1) 63 |NOT TX L52=V2+L0 154 0 -1 0 |D0-5 Y L53=V2+L0 00S 15 0 0 |SUSPENSION FIELD L54=V2+L0 +00,40,33,44,52,37,36,00 |SP HALTED SP L525=V2+L0 L841=V1-L840 L407=V1-L404 L0=L206-5-V2 C 0 63 |PERIPHERAL INCIDENT CHAPTER 2. DECODES FAILURES, SETS UP RESTART ACTION IF ANY AND OUTPUTS |FAILURE INFORMATION IF REOUIRED. EXITS TO START (L206) IF NOT PSIND, OR TO END OF

Page 176

|MONITOR JOB. V2=0 |CHAPTER TO END AT L524 V3=L707+L670+L674+L130+L133 |HPD+EDU+IT+DS+DDC L528))L531=V2+L0 |MESSAGE DEVICES L24=V2+L0 +47,48,37,50,33,52,47,50 |OPERATOR PT PO CR +01,07,07,07,07,07,07,07 |* +33,36,36,50,37,51,51,00 |ADDRESS PT PO CR +38,33,41,44,01,07,07,07 |FAIL* +36,41,51,33,34,44,37,36 |DISABLED PT PO CR +01,07,07,07,07,07,07,07 |* +55,50,47,46,39,00,45,47 |WRONG MO PT +36,37,07,07,07,07,07,07 |DE +50,37,33,36,00,35,40,37 |READ CHE CR +35,43,00,38,33,41,44,01 |CK FAIL* +41,44,44,37,39,33,44,00 |ILLEGAL CR +48,53,46,35,40,41,46,39 |PUNCHING +34,53,38,38,37,50,00,47 |BUFFER O PO +54,50,07,07,07,07,07,07 |VR +34,53,38,38,37,50,00,38 |BUFFER F PO +33,41,44,01,07,07,07,07 |AIL* +35,33,50,36,00,55,50,37 |CARD WRE CP +35,43,01,07,07,07,07,07 |CK* +50,37,33,36,00,34,33,35 |READ BAC CP +43,00,38,33,41,44,01,07 |K FAIL* L21=V2+L0 +48,33,50,41,52,57,00,38 |PARITY F PT IL OL +33,41,44,07,07,07,07,07 |AIL X L918 0 ( +51,40,47,50,52,00,52,50 |SHORT TR OL +33,46,51,38,37,50,07,07 |ANSFER ) X V3 0 ( +41,46,52,37,50,50,53,48 |INTERRUP OTHERS +52,07,07,07,07,07,07,07 |T ) |SR FR EK L533=V2+L0 00 L29 L23 |DO NOT LOOK AT SELECT BIT |SP FP FC L534=V2+L0 86 L1 A39 L29=V2+L0 +00,06,05,02,01,48,48,48 |* +20,00,02,04,06,63,63,63 L23=V2+L0 +00,42,00,00,00,00,00,00 |CR VR L532=V2+L0 86 L1 A39 +07,04,02,01,00,48,48,48

Page 177

+08,10,04,00,02,63,63,63 L20=V12+L0 +61,47,63,63,63,63,63,63 |NOT CHECKSUM BITS |CP L529=V2+L0 10 L22 L649-L563 |LP L561=V2+L0 76 L19 L20 A61 |J NOT CS FAIL L22=V2+L0 141.1 0 L563 142 L21 15 |READ BUFFER 140.13 |INTERROGATE 142 A44 (L21+14) |LOCKOUT UNTIL BUFFER DOWN 77 L19 L880 A44 |J DIS 140.26 142 L21 15 |FILL CODE BUFFER L19=V2+L0 86 L1 A39 +27,31,04,05,06,00,02,48 +00,12,14,02,16,18,04,63 X L917 0 ( |IL L523=V2+L0 10 L31 48 |NOT SHORT TRANSFER |OL L526=V2+L0 14 A63 2 |ONLY 2 EVENTS 14 A39 L31 |PARAMETERS 86 L33 L30 |J SETTING MASK ADDRESS L32=V2+L0 +39,63,63,63,31,31,63,63 ) X V3 0 ( |HP IT EA EC ED L656=V2+L0 14 A63 1 |1 EVENT 14 A54 22 |MESSAGE NUMBER X L918 0 |SKIP IF NO OL F 15 0 2 |MESSAGE TWO WORDS LATER 75 L3 (L668) |J T0 CHAIN |CHECK LOCKOUTS FOR WPD ) L1=V2+L0 14 A63 8 |8 EVENTS L33 = V2+L0 57 (A39) 0 A52 |A52 BITS TO TEST, A53 MESSAGE 76 L2 L555 A61 |J TX=0 86 L134 40.+L15 A50 |SP SP OMP L2=V2+L0 15 A52 63 A44 |BIT TO TEST 73 L9 48 A44 |J NOT RELEVANT 15 A53 63 A54 |NO OF MESSAGE 121 (L30) (A44) A44 |MASK OVER BIT TO TEST 76 L9 A44 A61 |J EVENT NOT OCCURRED 61 L3 A54 |J NOT OPERATOR 86S L524 A39 |CHAIN |NO HALTING L17=V2+L0 75 L4 -5 |NOT 4 IN Y L3=V2+L0 86 L524 A39 |CHAIN L4=V2+L0 70 L5 4 A54 |J DISABLED 76 L6 L17 A38 |J NOT TO DISENGAGE L5=V2+L0 86 L12 A55 |DISENGAGE L6=V2+L0 64 L7 L775 |J ENG 2 77 L9 L18 A38 |J NOT TO PRINT L7=V2+L0 10 A54 2..+L24 |ADD OF MESSAGE 111 L8 -1 A54 86S L134 16.0 A50 |SP SP L8=V2+L0 86 L134 0 A50 |*|TYPE OF FAIL

Page 178

L9=V2+L0 57 A52 6 |NEXT EVENT L16=V2+L0 83 L2 A63 70 L27 L141 A40 |J PSIND 77 L27 L555 A61 |J TX=1 73 L10 L2 A39 |J EVENTS 86 L527 A39 |HALT L27=V2+L0 86 L12 A55 |DISENGAGE 72 L28 L2 A39 |J NO EVENTS L10=V2+L0 62 L26 L775 |J NOT ENGI 2 L28=V2+L0 25 A61 9 A53 |LS HALF 53 A61 24 A52 |MS HALF 101 A52 L25 101 A53 L25 86S L134 16. A50 |SP SP 86 L134 2..A52 A50 L26=V2+L0 70 L11 L1.0 A50 |J NO OUTPUT 86 L135 A50 |OUTPUT L668=V2+L0 |*|DUMMY FOR HPD L11=V2+L0 25 (A62) 11 |D0 OF PLIST WD=0 71 L206 L141 A40 |START NOT PSIND L18=V2+L0 75 L162 -2 |NOT 1 IN Y L12=V2+L0 X L917 0 62 L14 L30 |J DATA LINK 140.13 |INTERROGATE L30=V2+L0 142 A44 L169 |*| ADDRESS OF MASK 06 A44 A61 |OR ORIGIONAL FAIL INF 52 A44 3 |D0=0/1 ENG/DISENG X L674 0 ( 71 L13 L1.1 A53 |J NOT IT 120 A44 26 |D0=0/1 ENG/DISENG L13=V2+L0 ) 64 L14 A44 |J DISENG 140.16 L31=V2+L0 142 0 24. |*|DISENGAGE|DATA LINK BITS L14=V2+L0 87 0 20.22 A55 L15=V2+L0 +00,00,47,45,48,00,00,00 |SP SP OMP L25=V2+L0 +1.... +24,8,8,8,8,8,8,8 L530=V1-L528 L0=L524-V2 C 0 127 |PRINTOUT. ENTERED AT L393 FOR DIRECTIVE, AT L693 FOR 150/16. DECODES WORD 2 AND PRINTS |ACCORDING TO STYLE. PRINTOUT P SUBROUTINE IS USED BY PROGFAIL. V2=L136+48+20 |LEAVE ROOM FOR MONOUT+BUFFER+20 WDS TO BE PRINTED L692))L694) L392))L394) L1.0) 115 A49 48 |REMOVE LAST 11 A49 1 |TWO SPACES L1.9) 86 L135 119 A50 |OUTPUT|NOT G L1.2) 10 A59 1 |STEP ADD TO PRINT 81 L1.1 L1.0 A63 |NEXT WD

Page 179

L1.6) 86 L742 123 A50 |LOCKOUT |NOT I L13) 141.21Y 0 L746 A36 |* 142 A22 1 |NEXT ADDS ON DRUM 10X 6 (L143+1) A40 |CHARGE L8) 75 (V2) L205 |*|START L1.5=A38 |150/16 L693) 86 L689 A41 A57 |UNPACK 2ND WD 15 A55 1 A62 |SET Z IN STYLE MARK 52 A60 15 A44 06 A44 A59 |STYLES REQUIRED L2) 15 A44 31 A45 |A STYLE 120 L0 (A45) A45 |A SHIFT NO 64 L179 A45 53 L1 (A45) A45 06 A62 A45 |INSERT MARK 53 A44 5 |NEXT STYLE 61 L2 A44 |IF THERE IS ONE 52 A55 7 L1) 111 A62 256 A55 |INSERTCONE |DRUM 04 A59 A52 04 A60 A54 74 L179 20 A60 |IMPOP MORE THAN 20 04 L13 L8 |DO NOT WRITE TO DRUM L15) 75 L3 F 18 0 L149 L0) +49,52,2,,,,, |DIRECTIVE L393) 117S 2 |* 57 (A40) 31 A62 |UNPACK STYLES 112 L393 10 A63 |SET ? MARK 62 L16 L393 |J NOT ? 123 A42 L15 0 |U=L149 D=O L16) 77 L3 L12 A62 |J D=1 00 A59 A43 |ADD DATUM L3) 60 L179 A60 |IMPOP ZERO WDS 00 A59 A60 A47 |TRUE END +1 75 L4 20 A60 |J ALL THIS TIME 00 A22 L5 |SET FOR PUT BIT BACK 14 A60 20 |ONLY 20 THIS TIME 10 L8 L207-L205 L4) 12 A60 L1.0 A63 |START ADD 15 A62 511 |...DAEFGIPXZ 74 L6 255 A62 |J D=1 04 A54 A59 |USE RES CHECKER 86 L174 A44 |CHECK LOWER ADDRESS 11 A47 1 A54 |GET TRUE UPPER ADDRESS 86 L174 A44 |CHECK UPPER ADDRESS L11) 142 (A63) 126 |NOT X 142 (A59) (A60) |COPY REGION TO PRINT 74 L22 (A59) A43 |PRINT NO A IF OUTSIDE RES 74 L22 (A42) A54

Page 180

01 A59 A43 |ADD FOR A PRINTING L12) 75Y L7 -257 3 |NOT D L5) 00YS (19) (-20) 63 L6) 141.1Y 0 L222 A36 142 A45 1 04Y A46 -1 A40 |W-1 62 L17 L393 |J NOT ? 123 A45 L143-1 0 L17) 51 A45 24 |-D RES 00 A45 A47 |END +1-DRES 62 L177 A45 |CHECK DRUM RES 141.1Y 0 (A59) A46 142 (A63) (A60) |READ REGION TO PRINT L21) 116 0 3 |D L7) 116 0 26 |A L22) 115 A0 125.7 A38 |OUT OF RES (*WEA) 52 A62 40 |AEFGIPXZ... 120 A62 6 A52 |COUNT STYLES 121 A62 -6 |XZ...AEFGIP 70 L179 (A62) |J NO STYLES 121 A62 -1 62 L18 L393 |J NOT ? 62 L179 L776 |IMPOP NOT ENG 4000 114 A42 A43 |ENSURE ADDRESSES NOT IN RES L18) 77 L20 L11 A62 |J IF X 86 L771 A50 A44 |MONOUT 00S L267 L134 0 F9 15 L136 F9 39 L273 66 L10 4 |J MON PER L20) 141.1 0 L268 |FLAS 142 L136 L273 74 L9 4 A52 |J MORE THAN 4 STYLES 70 L19 1 A60 |J ONLY 1 WD 77 L179 L11 A62 |J IF X L9) 86 L456 A44 0S L316 L221 0 |CH CH F9 15 L317 |NO MON PER F9 39 L185 L14)L19) 116 L134-L135 0 32 |OP TAB L10) 86S L135 8.4 A50 |NL 111 L168 (L14) |ROUND F P 86 L456 A44 |INTCHAP 00S L1.3 L1.1 0 F9 15 L1.1 F9 39 L1.13 L395=V1-L392 L695=V1-L692 C 0 63 V2=L693 L836)) L1.3))L1.1) 65 L0 A62 |J Z=0

Page 181

60 L1.2 (A63) |J CLEAR WD |A L0) 75 L1 63 A62 |J NOT A 86 L134 1024+L1.5 A50 |A/D SP 115 A49 56 |A49 1 TOO BIG 101 L1.5+1 L9 A59 |CONVERT ADD L16) 124 L1.5+1 103 A16 |NOT FOR G 57 L1.5 2 A45 |LEFT JUST 86S L6 L1 A50 |PACK |E L2) 76 L3 L8 A62 |J NOT E 25 (A63) 9 A46 101 A46 L11 |LS 8 CHS 53 (A63) 24 A45 101 A45 L11 |MS 8 CHS 86S L7 L3 A50 |PACK |I L3) 53 (A63) 47 A47 |SIGN IN D47 |NOT E 76 L4 L1.6 A62 |J NOT I 123 A44 (A63) 0 |A44=INT A45=0 101 A46 L9 A44 |LS HALF 66 L10 4 |J ALL DONE 40 A44 L9 A53 |DIV BY 1O TO 8TH 60 L14 A54 |J R=0 00 A53 A47 |Q(+1 IF NEG) 60 L5 A53 |J IF ONLY - REQ L14) 101 A45 L9 A53 |MS HALF L10) 61 L13 A47 |J<0 L5) 56 A45 0 A53 |COPY CONVERTED WDS 124 A53 50 |FIND LM 1 BIT L8) 124 A54 95 |Y USED WORD NEVER CLEAR 10 A53 (A54) 56Y A45 -10 A53 |LEFT JUST 115Y A45 29 A47 |SIGN 57Y A45 -10 A53 |RIGHT JUST L13) 86S L7 L4 A50 |PACK L7)L1.10) 10 A49 2 |A49 2 TOO BIG 123X -2 A45 A49 |PACK 1ST WD L6) 123X -1 A46 A49 |PACK 2ND WD 14X 1 0 A49 |CLEAR NEXT WD 115 A49 16 |TO ENSURE 2 SPACES 87Y 0 -1 A50 |TO NEXT TEST WITH A49 CORRECT L1.11)L9) +100000000 +10,10,10,10,10,10,10,26 L11) +1.... +24,08,08,08,08,08,08,08 |F G L4) 76 L1.0 L16 A62 |J F=G=0 64 L1.7 L1.7 |J CHAP DOWN 116 0 L1.12-L1.8 |READ G L12) 141.1 0 L1.8 |READ P 142 L1.7 L1.4 L1.7) |P

Page 182

L467))L468) L1.8)) 14S A53 1 |*|8 CHAR FIELD 05 (A63) L30 A60 |ALL BAR S RX RY |Y 07 A60 (A63) A58 |S RX RY 53 A60 40 A57 |F 121 A60 24 A61 |X 101 A56 L31 A57 |CONVERT F 86 L21 1536+A56 A50 |COUNT AND OUTPUT 115 A0 7.7.7 A54 |7......7.7 |S......X.Y 75 L37 -1 A60 |J TY=Z=0 76 L36 L28 A60 |J TX=0 10 A54 49. |UC TO X L36) 76 L37 L28 A61 |J TY=0 10 A54 50 |UC TO Y L37) 64 L38 A58 |J S=1 115 A54 44 |UC TO S L38) 72 L35 112 A57 |J NOT 140 74 L35 113 A57 |OR 141 86 L456 A44 00S L47 L49 0 F9 15 L1.7 F9 39 L50 L30) 157XYS -1 -1 63 |NOT RX RY S L35) 121 A54 12 A56 |X.Y.S..... 86 L21 1536+A56 A50 |OUTPUT X Y S AS REQUIRED 14 A54 L34 |MOD FOR X THEN Y 86 L24 A55 |SP THEN FILL IN L39) 117 A61-L34 1024 3 L33) 15 (A54) -1025 A56 |X THEN Y L34) 60 L48 (L51) |J 140/1 L40) 86S L22 512+8 A50 |( IF REQUIRED L41) 74 L42 (A56) A43 |J NOT 1N 72 L42 (A56) A42 |RES 86S L23 512+33 A50 |A 01 A56 A43 |SUB DATUM L42) 72 L43 32192 A56 86S L23 512+30 A50 |- 12Y A56 -1 L683 |32768-N L43) 86 L20 2560+A56 A50 |CONVERT ADD 86S L22 512+9 A50 |) IF REQUIRED 86 L25 A55 |FILL IN 83 L39 L39 A54 |RET FOR Y 10 A53 4 |3 CHS FOR Z SP SP 53 A61 40 A56 |Z 76 L44 L28 A60 |J TX=0 75 L46 -1 A60 |J TY=Z=0 L44) 60 L45 A56 |J Z=0 70 L45 120 A57 |J 150 86S L23 512+33 A50 |OUTP A L45) 86 L20 2560+A56 A50 |Z ADD L46) 86 L25 A55 |TWO EXTRA SPACES 87 0 L17 |EXIT L20) 101 A56 L32 |CONVERT ADD L21) 05 A56 L29 A55 120 A55 26 |COUNT PRINTING CHARS

Page 183

10 A53 (A55) L51) 75 L134 L1.7 L22) 76 (A50) (A54) A58 |J NOT REPLACED L23) 81 L134 A53 |PRINT COUNTING 1 CHAR L24) 86S L23 512+0 A50 |SP L25) 73 L27 9 A53 |J 9 OR MORE CHARS 123X 0 A0 A49 |PACK SOME SPACES L26) 115 A49 8 |STEP FOR 1 SP 81 L26 9 A53 |FILL IN TO END OF FIELD L27) 11 A53 9 |RESET SIZE OF FIELD|A53=0 UNLESS 87 0 A55 |LAST FIELD OVERFLOWED|EXIT L813)L28) 157Y (-1) (-1) 63 |NOT TX L29) +16,16,16,16,16,,, L31) +160 +50,26,8,1,1,1,1,1 L799)L32) +100000 +58,58,58,58,26,1,1,1 L470=V1-L467 L1.4=V1-L1.8 |P L1) 76 L2 L.5 A62 |J P=0 62 L1.7 L1.7 |J S/R DOWN L469)L17) 75S L12 L2 |LINK L1.13=V1-L1.3 W3=V2+L806 X V3 L806 * PRINTOUT TOO LONG L837)) V2=L1.7 |140/1 L47)) +0 |MARK CHAP DOWN L48) 77 L40 (A54) A58 |J R=1 70 L43 113 A57 |J 141 |LET ADDRESS BE *ABN 73 L43 6.48. A56 |J A NOT A LETTER 15 A56 15.63 A55 |BN 73 L43 13.32 A55 |J B NOT A LETTER 12Y A55 (A56) A56 |2A B N 10 A55 (L39) |A AND B BECOME 6 BIT CHARS|* ADDED 52 A55 25 |* A B AS 3 MS CHARS 84 L43 A55 32 |J A OR B =0 AS 5 BIT QUANTITY 86 L134 1536+A55 A50 |OUTPUT 3 CHARS 15 A56 31 |LS 5 BITS Y 10 A53 3 |COUNT 3 CHARS 75 L43 |BACK TO MAIN CHAP L49) 77 L35 L34 A58 |J RX=1 86S L23 512+31 A50 |OUTPUT . 53 A61 10 A56 15 A56 31 |MODE 86 L20 2560+A56 A50 111 A61 7.48. |LS 10 BITS X

Page 184

X V2 L35 * P 140/1 MISSED L50=V2-L1.7 C 0 63 L838)) |F V2=L1.7 L1.12)) 76 L9 L16 A62 |J F=0 31 (A63) L10 A46 |F TIMES 10 TO 13TH 86S L14 L9 A50 |SET A50 FOR PACK S/R L14) 03X A45 A46 A47 |MOD A46 L15) 40 A46 L1.11 A45 |BREAK UP 5 & 8 DIGITS 00 A46 L1.11 |NO ZERO SURPRESS 101 A45 L18 101 A46 L1.11 115Y A45 29 A47 |SIGN 70 L16 L14 A50 |J IF F 112 A46 9 A52 |INSERT EXPONENT FOR G L16) 86 L1.10 111 A16 |CLEAR OVR| NOT F L18) +1000000 +01,26,33,10,10,10,10,10 L10) +10000000000000 |G L9) 76 L1.0 L1.9 A62 |J G=O 04 A45 (A63) |PICK UP NO 15 A45 255 A52 |MASK OFF EXP+128 50 A45 1 A46 |NO UP 1 PLACE 67 L1 4 |J IF OVR IE. STAND 60 L2 A45 |J ZERO 86S L134 8.1 A50 |OUTPUT * 75 L1.9 L1) 11 A52 128 |EXP 32 A52 L11 |X LOG 10 2 |DEC EXP 12 A52 13 A53 |13-DEC EXP=SCALE 115 A0 132.20 A54 |10 G 65 L3 A53 |J IF TO BE MULT 20 L11 12 A54 |1/10 G 12 A53 |NEGATE L3) 14 A46 1 |2 TO 0 = 1 75 L4 L5) 94 A54 A54 |10 TO 2 TO N L4) 77 L6 A53 A46 |J NO BIT 94 A45 A54 |NO X POWER OF 10 L6) 52 A46 1 |2 TO N+1 73 L5 (A46) A53 |J N > SCALE 103 A45 -47 A46 |FIX AS INTEGER 03X A45 A46 A47 |MOD A46 L7) 63 L8 L12 A46 |J IF IN RANGE 34 A46 10 |TIMES 10 83 L7 (A52) A52 |EXP -1 L8) 10 A46 5000 |ROUND L2) 101 A52 L1.11 |CONVERT EXP 86S L15 L1.0 A50 |TO F

Page 185

L11) +9,38,25,38,25,38,25,61 |1/10G-1/2F=ABOUT .3 L12) +9999999995000 C 0 127 |SPACE V2=L136+100 L579))L580) L581) 141.1 0 L268 142 L136 L273 |MONOUT 141.1 0 L287 142 L4 18 |CLIST 86 L134 56.+L12 A50 |CORE 57 L449 95 A59 |A59=0 A60=1 L11) 116 (A60) 25 L4 9 A61 |FREE LENGTH 60 L9 A61 |J DUMMY ENTRY 101 A61 L10 86 L134 64.A61 A50 |SP DIGIT L9) 81 L11 (L4) A60 |NEXT 70 L0 L9 A50 |J REAL ENTRIES 86 L134 16.+L15 A50 |SP 0 L0) 141.1 0 L257 |FREE DRUM AND L7) 142 A52 2 |*|FREEABLE SBIP SPACE 86 L134 56.+L13 A50 |DRUM L14) 101 A52 L10 86 L134 64.A52 A50 |AMOUNT FREE 114 A0 A53 A52 61 L14 A52 |BACK FOR SBP SPACE IF ANY 53 L449 24 A57 |RX 141.1 0 L240+1 142 L4 L651-2 |GEONLIST L6) 57 L449 50 A62 |A62=0 A63=8....... L5) 116 0 (A63) 77 L1 L252+1 A57 |J NOT IDLE/POINTED TO 81 L2 1 A62 |J NOT 1ST 86 L134 56.+L3 A50 |IDLE/FLOAT L2) 123Y A59 L4 A63 77 L8 L18 A62 |J NOT MULT 16 86 L134 56.+L17 A50 |NEXT LINE L8) 86 L134 32.A59 A50 |*|SP 3/2 LETTERS L1) 81 L5 L651-2 A63 |NEXT PERIPH 16 A57 (L158) |RX Z=2 L15) 01YS L3 L16 |SP 0|ALTER MESSAGE 11 L8 8. |1 LESS CHAR 83 L6 L7 |RETURN FOR FLOATING 86 L135 A50 L18) 75 L162 -16 L10) +10000000 +01,58,58,58,58,58,58,26 L12) +07,04,35,47,50,37,00, | TB CORE SP L13) +02,04,36,50,53,45,00, |NL TB DRUM SP L3) +02,04,41,36,44,37,00, |NL TB IDLE SP |* L16) +02,04,41,36,44,37,00,-02,04,38,44,47,33,52, |NL TB IDLE SP - NL TB FLOAT L17) +02,04,00,00,00,00,00, |NL TB SP SP SP SP SP L4) L582=V2-L580 C 0 63

Page 186

|SWITCHON. USES START TO SWITCH ON ALL PROGRAMS SUSPENDED IN THE STYLE OF THE Y ADDRESS OF THE |CALLING 86 INSTRUCTION. USED BY DOCUMENT, RIGHT, RELING, 150/4, 150/52 CHAP 2, 150/51 |SEMI, 150/53 AND 150/54. V2=L136 L255))L238) 141.1 0 L209 142 L205 L239-L205 |START L0) 116S (A63) L2 |LINK FOR 152 15 -1 -1-L2 A57 |STYLE OF SUSP *N 52 A57 24 115 A57 56 A58 |120 N 0 0 114 L224 A40 A56 |A40 PSIND|STORE A40 L1) 15 (A40) -1 A40 |NEXT IN Q 05 (A40) L3 A62 |SUSP BITS 61S L2 A58 A62 |J NOT SUSP IN REQUIRED STYLE 07 (A40) A57 |REMOVE SUSP STYLE 04Y A62 2 A40 |W2 77 L3 L4 A62 |J STYLE 7 MARK NOT 0 116 (A40) 121 7 24 A51 |W7 86 L208 (A511) |START L2) 61 L1 A40 |J NOT AT END 04 A40 A56 |W0 116 (A40) 121 7 24 A51 |W7 87 0 A63 |EXIT L3) 120 31 0 0 |OFF TS, SUSP BITS 04 A17 A40 86 L165 64 A24 |STOP INTERP 152 L168 L0 |ON TS|TO L2 L4) +32,63,63,63,63,63,63,63 |NOT D1-5 L292=V1-L255 C 0 63 |150/51 BASIC, FAST VERSION. IS ENTERED DIRECT FROM KERNEL IF ALREADY DOWN, V2=L743 L438))L440) |FAST VERSION |V2 MUST BE L743 04Y A41 2 A40 |COPY LINK 05 (A41) L682 A60 |X, Y IN A60 53 A60 24 A59 |X IN A59 116 (A40) 121 7 24 A51 |W7 ROUND 24 IN A51 71 L207 (A60) A43 |J Y NOT A0|PUT BIT BACK 81 L14 A41 |STEP LINK INCASE EVEN CH NO |SLOW VERSION L439) 111 L142 -1 A63 |MARK CHAP DOWN L14) 51 A59 1 A45 |MOD FOR CCW 74 L179 L687 A45 |IMPOP IF CHAP NO TOO BIC 04Y A45 L688-1 A45 |COPY CCW |A45=D,C,N,J 12,11,10,15 57 A45 36 A46 |A46=D, A47=C,N,J, 57 A47 37 |A47=C A48=N,J,, 53 A48 38 |A48=N 00 A47 A43 |C+A 82 L179 (L182) A48 |N-1IMPOP IF N=0 00 A47 A48 A49 |C+A+N-1 IE, LAST IN A49 72 L177 (A49) A42 |RESVI IF LAST > UPPRES 76 L3 L11 A59 |J EVEN CHAP NO

Page 187

111 A41 -1 A45 |SET LINK 10 A41 (A43) |ADD A L3) 114 (L2) L0 |CHECK LOCKOUT |FRIG TS 141.1Y 0 L575 A46 142Y (A47) 1 A48 |READ PROGRAM 114 L0 A2 |RESTORE TS 40 A46 L4 A52 |A52=M A53=B 57 A43 48 A60 |A60=0 A61=A0 52 A43 24 A62 |A62=A0,0 06 A62 A61 A63 |A63=A0,A0 117 L686 (A53) 53 (A52) (A53) A50 |MAP WORD 01 A47 A53 A54 |PSEUDO C+A L10) 10 A54 24 |LAST PLUS ONE FROM MAP WD 65 L8 A49 A54 |J NOT LAST TIME ROUND 10 A49 1 A54 |LAST PLUS ONE L8) 111 L9 -1 A54 |SET END OF LOOP L6) 111 L5 3 A50 |SET CORRECT RELATIVIZER 53 A50 2 |ADVANCE MAP L5) 00 (A47) A60 |*| ADD DATUM L9) 81 L6 0 A47 |*|* Y BECOMES A54 64 L205 A49 A54 |START IF FINISHED 04Y A50 L686+1 A52 |NEXT MAP WD 81 L10 A52 L4) +24 |TS ON/OFF L15) 62 L1 L143 A2 |OFF |J CS LOCKOUT L0) 75S L15 |OFF |OBEYED IN A2 L11) 75 A3 -2 |OFF |TO REST OF TS L1) 114 L0 A2 |OFF |RESET TS L2) 75 L207 A2 |OFF |PUT BIT BACK|Y USED IN L3 L686) |BASIC MAP |L575 DRUM START BASIC |L686 CORE START MAP |L688 CORE START CCW |L687 NUMBER OF CCW L441=L575-L438 |LENGTH 150/51/BASIC C 0 63 C 0 127 USE ORION/SYSTEM/-/BASIC/FOR/OMP/- V1 = L30.30 V2 = L31.30 V0 = V2+L33.30-6 |MODS TO BASIC 11 V2-1 66+9 |CLEAR ALL A66 UPWARDS V1 = L30.14+12 04 A41 L34.364 |BASIC GETL 86 L34.122 L34.123 111 L34.138 (L34.115) 64 A761 L34.141 A42 V1 = L30.6+23 53 A14 18

Page 188

V1=L1..1 |GENERATE PLIST AND GEONLIST, AN INTERLUDE TO FORM PLIST AND GEONLIST FROM WORDS LEFT |ON THE DRUM FROM PARAMETER TAPE IN PREVIOUS INTERLUDE IN KERNEL. S0 V65=L638 V2=A450 V4=1 V6=0 V7=16....... V8=0 L30))L31) 17 L6 256 |DO D24 PSIND K=256 L14) 141.1Y 0 L745 A4 142 A2 1 |PLIST WD 52 A2 8 A3 |NAME IN D1-15 05 A3 L1 |NAME IN D1-10 146 L0 A3 A5 |FIND TYPE 10Y A3 (L1) A2 |NAME D24=1 K 71 L3 L23 A5 |J NOT TR 01 A3 L4 |TR TO SR L3) 72 L5 256 A2 |J NOT WRONG 07 A3 L6 |WRONG L5) 141.21Y 0 L745 A4 |PLIST WD 142 A3 1 57 A2 39 |A2=0|A3=LLL..... L10) 56 A2 5 |SHIFT A LETTER TO A2 10Y A2 64 A2 72 L10 -1 A2 |BACK FOR ALL 3 L 52 A2 29 |LLL..... 71 L11 L20 A5 |J NOT MT 10 A8 11 |ROOM FOR BLOCK 0 L11) 73 L12 L20 A5 |J NOT SLOW INPUT 06 A6 A7 |MARK FOR DOC NAME L12) 53 A7 1 10 (A5) (A1) A3 |LS HALF GEONLIST WD 10 A2 (A3) |GEONLIST WD 75 L22 L2 A5 |J NOT IT OR IL 10 A2 (L21) |ADD 1 TO NO OF RESTARTS L22) 51 A3 16 15 A3 15 |NO RESTART WDS 10Y A1 1 A3 |STEP V1 141.21Y 0 L240 A4 142 A2 1 |GEONLIST WD 81 L14 L651-1 A4 |ALL BAR FLIN AND FLOUT 141.21Y 0 L240 A4 142 A0 1 |CLEAR WD AT END OF GEONLIST 120 A6 48 A7 |CT INPUTS 52 A7 3 |NO WD FOR DOC NAMES 141.21 0 L240 142 L21 1 |FLIN 141.21 0 L300 142 A6 1 141.21 0 L457 142 A6 1 141.21 0 L676 142 A6 1 141.21 0 L659 |PSEUDO-DOCUNAME FOR TR 142 A6 1 |WHEN READING CORRECTION TAPE 70 2049 A0

Page 189

150 19 A0 51 L0) +09,40,,,,08,, |IT NO OF RESTARTS CORRECT L2) +09,24,,,,08,, |IL NO OF RESTARTS CORRECT L23) +20,36,,,,32,, |TR NO OF RESTARTS 1 TOO LOW +03,36,,,,32,, |CR L20) +13,40,,,,56,, |MT +19,32,,,,32,, |SP +6,32,,,,32,, |FP +03,32,,,,48,, |CP +12,32,,,,48,, |LP +15,24,,,,08,, |OL L4) +1,,,,,,, L6) 0 (0) 0 0 |DO D24 F15 8 L141 |PSIND 8 BITS UP L1) +31,62,,,32,,, |D1-10 D24 L21) +38,44,56,,,8,, |FLX L32=V1-L30 V1=L1..1 J L30 L31 L32 L31 C 0 63 L299)) |DOCNAMES L303=L299+V7 |MAG BLOCK 0 L181=L303+V8 |FLOUT BUFFER G573=64 |LEN FLOUT BUFFER L535=L181+L573+1 |OBJECT PROG SPACE G690 = L34.375+L638 |BASIC GETL L675=2 V1=L535+200 V64=-1 V65=L677 V2=A66+129 L1))L2) +31,63,63,63,,,, NAM ORION/SYSTEM/OMP///2.9 L4)V0=L2+4 +L675,L660,L545 V0=L4 00S (130 4 0 |ENTER EMS BLOCK 141.1 0 L700 142 L701 L703 75 L701 L5) +100000000 +10,10,10,10,10,10,10,26 L6) +360000 +26,10,33,6,10,33,6,10 L7) +128.... L8) 64 L624 L777 |CORRECTION FOR FLOUT 75 L614 |FRIG FOR FLOUT L3) 101 L2+4 L5 |CONVERT OMP NUMBER 150 L2+7 L2+8 12 |DATE AND TIME 14 L2+8 (L2+8) 101 L2+8 L6 |CONVERT TIME 150 *MT10 0 33 |GET SCRATCH TARE 150 *MT10 L2 44 |NAME IT

Page 190

86 L10 A3 |WAIT FOR FLOUT 141.21 0 L608 |RESTORE FLOUT FOR PRINTING 142 L8 1 14 A65 |RESET DATUM POINT FOR CORRECTIONS 86 L31 A11 |DUMP ACCUMULATORS 00S (A44 22 0 140.21 0 *MT10 |DUMP ENTRY SEQUENCE 142 L4 4 86 L31 A11 |DUMP REST OF CORE 00S (A500 V56-500 0 86 L31 A11 |DUMP DRUM +16384-512 150 *MT10 0 43 |N.S.B. 140.14 0 *MT10 |REWIND TO PRINT NAME 142 150 *MT10 A3 42 |WAIT UNTIL BLOCK 0 REWRITTEN 86 L10 A3 |WAIT FOR FLOUT 141.21 0 L608 |SUPPRESS FURTHER MESSAGES 142 L8+1 1 150 *MT10 0 31 |RELINOUISH L33))L32) 140.16 0 (A62) |DISENGAGE SOURCE 142 150 3 A0 51 |RETURN TO READ CORRECTION TAPE L30=V1-L33 |SUBROUTINE TO HOLD UP OPERATION UNTIL ALL FLOUT MESSAGES HAVE BEEN PROCESSED L10) 150 1 0 54 |ENTER MONITOR PROGRAM 157 |ENTER MONITOR MODE 77 L9 L224 37 |J FLOUT RUNNING 15 L224 -1 |START FLOUT L9) 115 L143 62 |SUSPEND MIND 86 L153 L242 |ENTER T/S 77 V2 L224 37 |LOOP UNTIL FLOUT FINISHES 86 L205 41 |EXIT TO PSEUDO JOB 87 0 A3 |EXIT L31) 04 A66 (A11) |FIRST WORD 14 A8 128 |MAX LENGTH 15 A66 -1 A7 |LENGTH OF AREA L16) 62 L17 A7 A8 |J LONGER THAN MAX 04 A8 A7 |SET REMAINDER L17) 111 A66 -1 A8 |INSERT LENGTH OF SECTION 10 A66 1 |ALLOW FOR HEADWORD 122 A3 A66 4 |START ADDRESS & CORE MARKER 65 L18 A3 |J DRUM 142 A67 142 (A3) (A8) |GET SECTION OF CORE 75 L20 |J TO DUMP IT L18) 61 L19 A7 A8 |J NOT LAST BLOCK 26 A66 12 |MARK LAST BLOCK L19) 141.1 0 (A3) |GET SECTION OF DRUM 142 A67 (A8) L20) 140.22 0 *MT10 142Y A66 1 A8 |DUMP IT 00 A66 L7 |STEP ADDRESS 01 A7 A8 |ADJUST LENGTH

Page 191

61 L16 A7 |J MORE TO DUMP 87 1 A11 |EXIT PAST PARAMETERS L0=V1-L1 L713=L0 V1=9994 150 L32 L30 50 |ENTER 4997 00S L33 L32 0 150 L2 L0 50 |ENTER 4998 00S L1 L3 0 C 0 63 |PARAMETERS FOR PRINTING STORED OMP V1=12000 0 128 L708 +14. -1 +44 0 0 L708+14. -1. -1 +44.19.16.31 0 0 L708+14.+1. +1. -1 +44.19.17.31 0 0 L708+14.+2. +1. -1 +44.19.18.31 0 0 L708+14.+3. +1. -1 +44.19.19.31 0 64 12000+L882 +5. -1 +44.19.20.31 0 0 12000+L882+5. +1. -1 +44.17.31.31 0 0 12000 +L882 +51.52.37.37.50.41.46.39 +00.52.33.48.37... 0 A2 L604 +14 +52.41.45.37.30.51.40.33 +50.37.50..... 0 L744 L605 +L171-L744 +45.33.41.46.00.43.37.50 +46.37.44..... 0 L149-64 L607

Page 192

+64 +44.33.51.52,00.22.20. +0 X L707 0 ( 0 L705 L711 +64 +40.48.36.00.37.56.52,50 +33.00.22.20.... ) X L890 0 ( 0 L893 L903 +64 +17.21.16.15.20.00.37,56 +52.50.33.00.22.20. ) X L662 1 ( 0 L699 L828 X L770 0 F 48 0 -5....-6 |EXTRA IF CORE DRUM +L829 X L770 0 F 48 0 6 +37.56.52.50.33.35.47.36 +37.00.34.41.52... ) 0 L858 L857 +L861 +50,33,34,34,41,52,,35 +33,52,35,40,37,50,51, 0 L702 L700 +L703 +37.33.50.44.57.00.45.47 +50.46.41.46.39... V3=36.44.47.53.52... |FLOUT V4=38.44.41.46.... |FLIN 0 L147 0 +15 +V3 +45.33.41.46 |MAIN 0 L147 15 +15 +V3 +46.44..48.31.47.46 |P,ON NL 0 L147 30 +15 +V3 +42,47,34,,45,37,51,51 |JOB MESS 0 L147 45 +9 +V4 +33.46.51..... 0 L147 54 +15

Page 193

+V4 +52.47..48.37.50.41.46 0 L147 67 +15 +V3 +44.47.35.43..47.53.52 0 L147 77 +15 +V4 +50.37.33.36.... 0 L147 L151 +15 +V3 +38.33.41.44.51 |FAILS 0 L272 L267 +L273 V3=45.47.46.47.53.52.. +V3 +35.40.33.48..17 |MONOUT CHAP 1 0 L753+7 L268-17 X L674 0 F15 0 -1 +9 X L674 0 F15 0 1 +V3 +35.40.37.35.33.50.36 |CHECARD 0 L134 L268-8 +8 +V3 +38.33.41.44.51..37.20 |FAIL8 E4 0 L136 L268 +L822 +V3 +38.44.33.51..48.36 |FLAS PD 0 L134 L853 +L854-L853 +V3 +51.48 X L648+L647 0 ( 0 L134 L854 +L855-L854 +V3 +44.48..35.48 ) X L658 0 ( 0 L134 L855 +27 +V3 +38.48..17 0 L134+4 L316-22 +22 +V3 +38.48..18 )

Page 194

0 L317 L316 +L319 +17.21.16.6.51 +17.19..17.20 0 L436 L435 +L437 V3=41.46.48.53.52 +V3 +45.33.41.46 0 L136 L510 +L684-L510 +V3 +51.50 0 L229-1 L352 +L351-L352 +V3 +38.50 X L160 0 ( 0 L229-1 L351 +L646-L351 +V3 +35.50..54.50 ) X L674 0 ( 0 L229-1 L646 +L920-L646 +V3 +41.52 ) X L917 0 ( 0 L229-1 L920 +L357-L920 +V3 |INPUT 1L +41.44..... ) 0 L792-L790+L357 L357 +L358-L357 +V3 +34.44.47.39.39.51 0 L136 L358 +L509-L358 +V3 +47.50.41.47.46 0 L136 L509 +L415-L509 +V3 +37.50.50.47.50.51 V3=45.33.39.51 0 L219 L415 +L356 +V3 +17.21.16.6.51 0 L632 L630 +L633 +V3

Page 195

+36.41.50.51 0 L636 L634 +L637 +V3 +45.33.41.46 0 L635 L717 +L719 +V3 +50.37.55.50.41.52.37 0 L635 L718 +L720 +V3 +50.37.50.37.33.36 0 L635 L721 +L722-L721 +V3 +34.33.50..46.37.39 0 L635 L722 +L644-L722 +V3 +34.44.47.35.43..16 0 L635+11 L644 +L643-L644 +V3 +33.52.44.33.51 0 L635 L643 +L725-L643 +V3 +35.44.47.51.37 0 L635 L725 +L508-L725 +V3 +48.50.41.46.52 |PRINT STORED PROGRAM STEERING FOR TAPE 3 1 JUL 64 0 L226 L258 +L413 +17.51.52..35.40.33.48 +17.21.16.6.51.. 0 L269 L270 +L408 +17.51.52..35.40.33.48 +36.41.50.37.35.52.51 X L662 2 ( 0 L398 L396 +L399 +35.47.50.37..48.33.50 +41.52.57..38.33.41.44 ) 0 L402 L400 +L403 +36.50.53.45..50.37.48 +37.33.52.51.... 0 L452 L450 +L453

Page 196

+42.36.50.37..35.40.33 +48.52.37.50..17.. 0 L136+50 L450+L453 +L286+L286-L450-L453-L287+1 +50.37.50.53.46..35.40 +33.48.52.37.50..18. 0 L768 L286+L286-L287+1 +L287-L286-1 +53.48.36.33.52.37.35.44 +41.51.52..... 0 L768 L286 +L291 +53.48.36.33.52.37.35.44 |UPDATECLIST MAIN +41.51.52..45.33.41.46 0 L462 L286+L291 +L464-L291 +42.47.34..35.40.33.48 +52.37.50..18... 0 L566 L564 +L567 +50.41.39..55.50.47. +53.46.44..... 0 L585 L584 +L586 +46.33.45.37.51... +0 0 L386 L384 +L387 +33.44.44.47.35.33.52.37 +35.40.33.48..17. 0 L136+115 L384+L387 +L304-L384-L387 +33.44.44.47.35.33.52.37 +35.40.33.48..18. 0 L306 L304 +L307 +17.21.16.15.17.16.. +0 0 L278 L281 +L282 +53.46.48.47.41.46.52. +0 0 L296 L297 +L298 +38.41.46.36.30.36.47.35 +0 0 L374 L375 +L379 +50.37.51.36.37.54.. +0 0 L758 L563 +L760 +38.41:44.44.35.47.36.37 +34.53.38.38.37.50.. 0 L751 L749 +L752 +48.50.41.46.52..50.37 +51.30.50.37.44...

Page 197

0 L382 L380 +L383 +39.37.52..47.53.52.48 +53.52..36.37.54.. 0 L538 L537 +L539 +36.37.50.37.51... +0 0 L256 L259 +L544 +52.37.50.45.41.46.33.52 +37....... 0 L541 L540 +L543 +50.37.44.41.46.49.. +0 0 L339 L540+L543 +L341-L543 +17.21.16.15.19.17.. +0 0 L336 L334 +L337 +17.21.16.15.19.16.. +0 0 L345 L343 +L346 +17.21.16.15.19.19.32.19 +20.32.19.21..35.40.17 0 L136+100 L727 +L728-L727 +17.21.16.15.19.19.32.19 +20.32.19.21..35.40.18 0 L136+90 L728 +L729-L728 +17.21.16.15.19.19.32.19 +20.32.19.21..35.40.19 0 L136+100 L729 +L425-L729 +17.21.16.15.19.19.32.19 +20.32.19.21..35.40.20 |STEERING INFORMATION FOR TAPE 4 PRINT STORED PROGRAM 0 L426 L425 +L427 +48,50,47,39,38,33,41,44 |PROGFAIL MAIN +0.45.33.41.46... 0 L812+14 L425+L427 +7 +48.38..51.52.57.44.37 |PF STYLE 7 +0.23...... 0 L310 L308 +L311 +33,34,47,44,41,51,40, |ABOLISH CHAP 1

Page 198

+0,35,40,33,48,0,17, 0 L602 L600 +L603 +33,34,47,44,41,51,40, |ABOLISH CHAP 2 +0,35,40,33,48,0,18, 0 L332 L330 +L333 +17,21,16,15,18,20,, |150/24 +0 0 L314 L312 +L315 +17,21,16,15,17,18,, |150/12 +0 0 L411 L409 +L412 +35,44,47,35,43,0,29, |CLOCK + SPRING 1 +51,48,50,41,46,39,0,17 0 L766 L764 +L767 +51,48,50,41,46,39,0,18 |SPRING 2 +0 0 L515 L514 +L517 +52,41,45,37,50,0,47,54 |TIMER OVERFLOW +37,38,44,47,55,,, 0 L129 L137 +L271 +41,46,52,37,50,48,50,37 |INTERPRETER 1 +52,37,50,,17,,, 0 L136 L190-11 +11 +45,47,46,,51,41,39, |MON SIG +0 0 0 L190 +L230-L190 +41,46,52,37,50,48,50,37 |INTERPRETER FDT +52,37,50,0,38,36,52, 0 L231 L230 +L234-L231 +41,46,52,37,50,48,50,37 |INTERPRETER 14 +52,37,50,0,17,20,, 0 L136 L193 +L196 +41,46,52,37,50,48,50,37 |INTERPRETER 2 +52.37.50.0.18 0 L611 L609

Page 199

+L612 +41.46.52.37.50.48.50.37 |INTERPRETER PRI +52.37.50.0.48.50.41. 0 L781 L779 +L782 +17.21.16.51.0.47.54.50 |150S OVR +0 X L890 0 ( 0 L886 L885 +L888 +17.21.16.15.20... +0 ) 0 L322 L320 +L323 +17.21.16.15.18.16.. +45.47.46.41.52.47.50. 0 L248 L328 +L329 +17.21.16.15.18.18.. +0 0 L325 L324 +L347-L324 +17.21.16.15.18.17.. +17.21.16.15.19.18.. 0 L748 L347 +L348 +17.21.16.15.19.22.. +0 1 L136+L273 L833 +L834-L833 +17.21.16.15.21.18.. +35.40.33.48.00.19S. 0 L136 L834 +L801-L834 +17.21.16.15.21.18.. +35.40.33.48.00.18.. 0 L803 L801 +L804 +17.21.16.15.21.18.. +50.37.45.47.54.37.. 0 L444 L442 +L445 +17.21.16.15.21.17.. +51.34.41.48.... 0 L856 L442+L445 +L367-L442-L445 +17.21.16.15.21.17.. +48.50.47.39.00.16.. 0 L369 L367 +L370 +17.21.16.15.21.19.. +0 0 L583 L371

Page 200

+L372 +17.21.16.15.21.20.. +0 0 L390 L388 +L391 +36.41.50.37.46.52.. +0 0 L476 L474 +L477 +42.18.00.48.50.41.46.52 +0 0 L228 L284 +L376 +44.47.51.37.46... +0 0 L225 L285 +L377 +45.47.54.37.36.41.50.37 +35.52..35.40..17. 0 L691-3 L671 +L672 +45.47.54.37.36.41.50.37 +35.52..35.40..18. 0 L406 L404 +L407 +48.37.50.41.48.40.00.41 +46.35.00.35.40.00.17.00 0 L531 L528 +L530 +48.37.50.41.48.40.00.41 +46.35.00.35.40.00.18.00 0 L694 L692 +L695 +48.50.41.46.52... +17.21.16.15.17.22.. 0 L693 L836 +L837-L836 +48.50.41.46.52... +00.33.00.37.00.41.00.48 L468 L837 +L838-L837 +48.50.41.46.52... +00.48.00.17.20.16.15.17 0 L468 L838 +L579-L838 +48.50.41.46.52... +00.38.00.39.... 0 L580 L579 +L582 +51.48.33.35.37... +0 0 L238 L255 +L292 +51.55.41.52.35.40.47.46 +0 0 L440 L438 +L441 +17.21.16.15.21.17..

Page 201

+34.33.51.41.35... 0 L677+66+129 L535+200 |REDUMP INTERLUDE +L713 +50.37.36.53.45.48..41 +46.52.37.50.44.53.36.37 0 0 9994 |ENTER PAIRS +6 +37.46.52.37.50..48.33 +41.50.51..... 0 0 0 0 +L1.. |START REL TO L1.. +0 +0 0 0 L1.. |CH CH WORDS +L687 +35.40.0.35.40..55.47 |CH CH W0 +50.36.51..... |R.D.S..... 0 L31.4 L30.4 +L33.4 +23.52.43..39.46.35. |7.T.K..G.N.C. +0 0 L31.11 L30.11 +L33.11 |5TKGNC +21.52.43..39.46.35. +0 0 L31.0 L30.0 +L33.0 |CHAP 1 ) +35.40.33.48..17..8 +41.46.41.52.41.33.44.9 |INITIAL) O L31.0+L33.0 L30.0+L33.0 +L33.15-L33.0 +35.40.33.48..19.17.30 |CHAP 31 +38.50.47.45..42.47.34 |FROM JOB 0 L31.8 L30.8 +L33.8 +39.37.52..39.46.35 |GET GNC +0 0 L31.10 L30.10 +L33.10 +36.50.53.45..45.33.39 |DRUM MAG L39:46:38.S.. |GNC 0 L31.9 L30.9 +L33.9 +45.33.41.46..35.40.33 |MAIN CHA +48....... |P 0 L31:18 L30.18 +L33.18 +51....... |S +0 0 L31.20 L30.20 +L33.20 +49.32.56.32.57... |Q,X,Y +0 0 L31.21 L30.21 +L33.21

Page 202

+42....... |J +0 0 L31.22 L30.22 +L33.22 +38....... |F +0 0 L31.14 L30.14 +L33.14 +35.40.33.48..18.25. |CHAP 29 +39.37.52..36.50.53.45 |GET DRUM 0 L31.5 L30.5 +L33.5 +38.41.46.36.33..37.56 |FINDA EX +35.37.48.52.41.47.46. |CEPTION 0 L31.16 L30.16 +L33.16 +48.50.41.46.52..44.51 |PRINT LS +0 0 L31.2 L30.2 +L33.2 +51.34.41..... |SBI +0 0 L31.3 L30.3 +L33.3 +48.53.51.36.46... +0 |PUSHDN 0 L31.25 L30.25 +L33.25 +50.37.52..38.50.47.45 |RET FROM +35.47.45.48.41.44.37.50 |COMPILER 0 L31.24 L30.24 +L33.24 +17.51.52..45.44.. |1ST ML +0 0 L31.29 L30.29 +L33.29 +34.41.45.33.48... |BIMAP +0 0 L31.35 L30.35 +L33.35 +37.50.50.47.50.51..17 |ERRRORS 1 +0 0 L31.36 L30.36 +L33.36 +37.50.50.47.50.51..18 |ERRORS 2 +0 0 L31.32 L30.32 +L33.32 +50.37.52..38.50.47.45 |RET FROM +50.37.51..35.47.50 |RES COR 0 L31.28 L30.28 +L33.28 +18.36..45.44... |2D ML +0 0 L31.34 L30.34 +L33.34 +38.41.46.36.41.52..35 |FINDIT C +47.45.48.47.51.41.52.37 |OMPOSITE

Page 203

0 L31.30 L30.30 +L33.30 +19.50.36..45.44.. |3RD ML +0 0 L31.31 L30.31 +L33.31 +48.50.47.35.37.51.51.32 |PROCESS. +48.53.44.44.53.48. |PULLUP 0 L31.37 L30.37 +L33.37 +35.33.44.44.... |CALL +0 0 L31.6 L30.6 +L33.6 +48.50.47..50.37.51.37 |PRO RESE +50.54.33.52.41.47.46.51 |RVATIONS X L160 0 ( 0 L31.12 L30.12 +L33.12 +35.33.50.36..39.46.35 |CARD GNC +0 ) 0 A64 L1..1 +15 +45.33.48..41.46.52.37 |MAP INTE +50.44.53.36.37... |RLUDE -1 -1 -1 -1 V3=2,L660,L545 L882=V1=12000 C 0 63 V65=L638 |DUMP LABELS INTERLUDE. GETS VALUES OF ALL OMP & BASIC LABELS FROM BASIC INPUT AND |DUMPS THEM ON DRUM, THE FIRST PART AFTER THE KERNEL (L708) AND THE REST AFTER THE PRINTING PARAMETERS, V2=A66 L8)L6)) +34....... L9) +30.23.63.63.... L10) 00S 2047 0 0 L5) 14 A7 L3 |LABELS TO FIND 14 A8 L708 |DRAD FOR DUMPING L0) 04 A5 (A7) 61 V2+2 A5 150 3 A0 51 |CH 3 OF BASIC 53 A5 24 A4 |FIRST LABEL NUMBER L1) 14 A6 L2) 04 A23 A4 86S L690 L11 A17 |FIND VALUE OF LABEL 62 L12 L8 A20 |STORE VALUE IF FULLY SET 61 L13 L9 A20 |FORWARD REF

Page 204

L11) 116 0 L10-A20 |NOT SET L12) 116 0 20 L13) 04X L4 A0 A6 10 A4 1 |NEXT LABEL 81 L2 64 A6 |FILL 64 WD BLOCK 141.21 0 (A8) |DUMP BLOCK ON DRUM 142 L4 64 10 A8 64 |STEP DRAD 72 L1 (A5) A4 |J NOT FINISHED THIS AREA 81 L0 L3+2 A7 |J NOT TO CHANGE DRUM ARIA 04 A9 A8 |SAVE END OF 1ST DRUM ARIA 14 A8 12000+L882 |SET NEXT DRUM AREA 75 L0 |CONTINUE |FROM.....+TO L3) +2.....+16. +30.....+34. +35.....+40. +1......+1.1. +0 L4) L7=V1-L6 J L6 L8 L7 L5 W3=V9+12000 X V3 12000 *TOO MANY LABELS FOR FIRST DRUM AREA W3=V8+13056 X V3 13056 *TOO MANY LABELS FOR SECOND DRUM AREA C 0 63 |DUMP OMP INTERLUDE. DUMPS COMPILED OMP FROM CORE AND DRUM ONTO MAGTAPE, |FRIGS BASIC WORKING SPACE TO READ CORRECTION TAPE AT DIFFERENT DATUM POINT(L677) V1 = L535 |STORED IN OBJECT PROGRAM AREA V2 = A66+130 L60)L61)) G628=L34.138+A0 |BASIC BINDEX G629=L34.114+1+A0 |BASIC PERM+1 G645=L34.126+A0 |BASIC FINDEX 12 A65 L677 A15 |GET DP DIFF'S FOR FINDEX 14 A65 |CLEAR V65 FOR DUMPING 14 A14 L645 L21) 60 V2+3 (A14) |RELATIVISE FINDEX FOR 00 (A14) A15 |PSEUDO-JOB WORKING SPACE 81 L21 A14 |AS IN BASIC CH, 65 14 A14 L628 |RELATIVISE BINDEX L26) 00 (A14) A15 |USED AT L31 81 L26 (L629) A14 00 (L629) A15 00 L629 A15 101 L6 L7 |CONVERT INSTALLATION NUMBER 04 A4 L6 |GET INSTALLATION NUMBER

Page 205

150 *MT10 A7 32 |*MT10? 62 L2 A7 L0) 150 *MT10 0 33 |IF NOT, GET SCR 150 *MT10 L1 44 75 L14 L17 +31,63,63,63,,,, NAME ORION/SYSTEM/OMP///2.9/*/** V0=L1+4 L6) +L675,L660,L545 |INSTALLATION NUMBER V0=L1+9 L2) 150 *MT10 A66 40 |GET BLOCK 0 L33) 140.13 0 *MT10 |INTERROGATE 142 A7 52 A7 30 64 L4 A7 |J IF WP 150 *MT10 A7 32 |GEOG NAME 112 L3+2 9 A7 62 L15 A66 |J NO W.P. BIT L32) 150 L3 0 13 |REQUEST WRITE PERMIT 150 *MT10 A67 33 75 L2 L15) 114 L3+3 L3+4 |MODIFY MESSAGE 70 L32 (L3.3) |J IF TO BE FLOATED 150 L3 0 13 |REQUEST W.P. & RUN 150 0 1 10 |WAIT 75 L33 |TRY AGAIN L3) +48,37,50,45,41,52, |PERMIT +55,50,41,52,41,46,39, |WRITING +47.46.7.7.... |ON +1.2..... +33.46.36..50.53.46 |'AND RUN' L4) 14 A7 L5) 07XY A67 L1+1 A7 |CHECK *MT10 IS 61Y L0 A67 A7 |ORION/SYSTEM/OMP 81 L5 3 A7 04 A3 A70 70 L8 29 A3 |4TH COMP +? 61 L0 A4 A3 |GET SCR IF WRONG INSTALLATION 75 L14 L7) +100000000 +10,10,10,10,10,10,10,26 L8) 25 A75 9 A10 |GET NSB NUMBER L29) 140.1 0 *MT10 |NEXT DOCULIST BLOCK 142 A66 129 15 A66 -1 A7 |LENGTH TO A1 53 A7 3 |NO OF DOCUS 14 A8 L9) 116 0 (A8) |FIND CORRECT 60 L12 A70 A4 |VERSION OF OMP 82 L10 A7 |IN DOCULIST 10 A8 8 |CHECK NEXT DOCU

Page 206

75 L9 L10) 25 A66 12 A5 |IF NO MORE 60 L29 A5 |BLOCKS OF DOCULIST, 150 L11 0 13 |OUTPUT MESSAGE 75 L0 |THEN GET SCR L11) +47,45,48,,46,47,52, |OMP NOT +41,46,,36,47,35,53,44 |IN DOCUL +41,51,52,2,2,,, |IST L12) 150 *MT10 A6 42 |CURRENT BLOCK NUMBER 11 A10 (A6) 60 L27 A10 |J AT NSB L13) 140.1 0 *MT10 |WIND DOWN TAPE 142 A66 1 83 L13 A10 |FIND NSB L27) 04X A66 L28 A8 |GET HEADWORD 140.21 0 *MT10 |WRITE DOCU NAME OF 142X A66 9 A8 |OMP OVER NSB L14) 14 A3 A44 |1ST BLOCK OF CORE 14 A7 22 |LENGTH 86 L31 A11 |DUMP ACCUMULATORS 140.21 0 *MT10 |DUMP START JUMP 142 L23 4 14 A3 A500 11 A56 500 A7 86 L31 A11 |DUMP REST OF CORE 14 A3 |STARTING ADDRESS 150 A7 -1 15 |GET DRUM RES 51 A7 24 |LENGTH 12 A7 14 A66 |CLEAR CORE BIT 86 L30 A11 |DUMP DRUM 150 *MT10 0 43 |WRITE NSB 140.14 0 *MT10 |REWIND 142 14 A14 L645 L24) 60 V2+3 (A14) |DEFRIG FINDEX 01 (A14) A15 |TO USE BASIC AGAIN 81 L24 A14 |IN THIS JOB 01 L629 A15 14 A14 L628 L25) 01 (A14) A15 |DEFRIG BINDEX 81 L25 (L629) A14 01 (L629) A15 143 A3 10 |CLEARS 'V'S 150 3 A0 51 |CHAP 3 OF BASIC L23) 00S (130 4 0 141.1 0 L700 |READ AND 142 L701 L703 |ENTER EMS 75 L701

Page 207

L28) 0 0 9 0 |DUMPING ROUTINE L31) 14 A66 (L26) |SET CORE MARKER L30) 14 A8 128 |MAXIMUM LENGTH L16) 62 L17 A7 A8 |LENGTH <128? 04 A8 A7 L17) 111 A66 -1 A8 |SET LENGTH 10 A66 1 04 A10 A3 52 A66 24 A4 |CORE OR DRUM? 65 L22 A4 00 A10 A15 L22) 52 A10 24 A6 |RELATIVISE IF CORE 112 A66 8 A6 |SOURCE ADDR 65 L18 A4 |J IF DRUM 142 A67 |SET UP CORE BLOCK 142 (A3) (A8) 75 L20 L18) 61 L19 A7 A8 |LAST BLOCK? 26 A66 12 |SET LAST BLOCK MARKER L19) 141.1 0 (A3) |SET UP DRUM BLOCK 142 A67 (A8) L20) 140.21 0 *MT10 |DUMP ON MT 142Y A66 1 A8 00 A3 A8 |STEP ADDR 01 A7 A8 |ADJUST LENGTH 61 L16 A7 |J MORE TO DUMP 87 0 A11 L62 = V2-L60 PRO J L61 L60 L62 L60 V65=L638 READ ORION/SYSTEM/-/-/POST/MORTEM/- END