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