Skip to main content

Full text of "ibm :: 7030 :: mcp :: MCP Mar63 001-249"

See other formats


****** 03-l"5"-63" MA"ST£"R CONTROL' PROGRAM ITvlDEX ****** 



IPL PROGRAM 



qqi 

"002" 



10 
11" 



IOD 
IPL" 



CARDS 
BWT"S"T"RAP" 



PAGE 
PAGE 



0001 
0002" 



6 
0. ( 

II 

d ( 

V[ 

91 ( 

a 

81 
6, ( 

05 



C03 
004 
005 
006 
007 
008" 
"009" 



12 

13 

14 

15 

16 

17" 

18" 



M C"P" I N ITIXL I Z A T 10 M P R G R A M ~ % I " "P L n 

COMMUNICATION REGION FOR MCP IN IPL 

IPL UNCODE 

IPL CONVERSIONS 

jPL DECOOE_ 

IPL MOVE" 



MCP PROGRAM 



PAGE 
PAGE 
PAGE 
PAGE 

PAGE 
"PAGE 
"PAGE 



0015 
0037 
00 38 
0042 
0047 
0059 
0081 



F 010 AA 

"F Oil BA~ 

F 012 8D 

F 013 8F 

F 014 RH 

F 015 CA 



MCP SYSTEM _ _0_R_I_G I_N_ _ 

THE" CHANNEL / UNIT STATUS TABLE" 
IOD CARDS LIST 
UNIT AREA TABLE DEFINITIONS 
FILE AREA TABLE DEFINITIONS 
COMMUNICATOR REGION FOR MCP 



DEFINITIONS 



MCP 
THE 
THE 

THE 



PAGE 
"PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



0099 

0099" 

0100 

0101 

0102 

0103 



f -A l AJi r l_ _IHE PSEUpO^ PPICOD^ WRITHE "SYSTEM" 
"F 017 CC "" THE EXIT CODES TO THE DISPATCHER"" 
F 018 CD MISCELLANEOUS SYSTEM SYMBOLS. 
F 019 DA THE PROGRAM STATUS TABLE 
F 020 DB THE INTERRUPT TABLE 
F 021 DC THE MCP FURNISHED PTOE 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



0104 
"0107 
0108 
0109 
0110 
0114 



_ F _ _°A 2 _ JifL _I H §_^ C f_ f ARAMET E_R_ POO L 

F 023 EA " THE IF ANALYZER 

F 024 EB THE RECEPTOR 

F 025 EC MASKABLE INTERRUPTS 

F 026 ED STANDARD FIXUPS 

F 027 EE THE CONCEPTOR 



PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



0116 
0117 
0122 
0130 
0131 
0135 



F 0_2_8__F_A__ __**ETURN_ ~~~_~_~_~_~~_~_\ 

F 029 Fe RETURN AFTER" MASKAB'LE TNTE~RRUPTS 

F 030 FD SET INTERVAL TIMER 

F 031 FF I/O DEFINITION REPORT 

F 032 HA ERROR CONTROL DISPATCHER 

F 033 HB ERROR DUMP RETURN DISPATCHER 



TAGE" 0140 
"P AGE 0144 
PAGE 0145 
PAGE 0146 
PAGE 0147 
PAGE 0149 



20 
19 

( is 

17 

16 

( 15 

14 

13 

t 12 

11 
'0 

{ 9 

8 

7 



F 034 I, 



READ 



"I/O CONTROL 



PAGE 0151 



F 035 IB 

F 036 IC 

F 037 ID 

F 038 IE 

F 039 IF 



WRITE 

COPY CONTROL 

RELEASE 

LOCATE 

FEED CARD 



WORD 



I/O 
I/O 
I/O 
I/O 
I/O 



"CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 



"F~ "040 ~ I G " " " ERASE" 10~NG~ ~G~AP~ " " " " 1 70 ~C ONTROL" 

"F 041 IH" SPACE ROUTINES f/0"CONTR0L~ 

F 042 IJ WRITE END OF FILE I/O CONTROL 

F 043 IK REWIND I/O CONTROL 

F 044 IL UNLOAD I/O CONTROL 

F 045 IM FREE I/O CONTROL 



PAGE 
PAGE 
PAGE 
PAGE 

PAGE 



0153 
0157 
0158 
0159 
0161 



"PAGE 
"PAGE 
PAGE 
PAGE 
PAGE 
PAGE 



0161 
0162 
0164 
0165 
0165 
0166 



~ F _ 9 ^ ] NT " " _ D E_N_S_I_TY_ AN D_ _M_0_D E CHANGE ]PSEUDO"OPS~ 
"F"C47"JA WAIT " 

F 048 JB CHANGE I/O TABLE OF EXITS 

F 049 JC SUPPRESS I/O INTERRUPT 



PAGE 

"PAGE 

PAGE 

PAGE 



0167 

"0168" 

0169 

0170 



' I 



wai 



PAGE002 



20 I 

19 ; 

18 

17 

16 ; 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

i ! 

L 



F 050 JO RELEASE I/O INTERRUPT 

F 051 KA STORE IN COMMUNICATION REGION 

F C52 KB FETCH FROM COMMUNICATION REGION 

" "F- "05 3 " RC ^imiT TUWFR - "RFGTSTERS 

"F " 5 4 " K D FETCH" XIMEI" "RFGTSTER S 7 " 

F 055 KE THE $FIXUP PSEUDO OP 

F 056 LA IDENTIFIER 

F 057 LB CONTROL WORD CHECK 

F 058 LC STATUS EVALUATION 

"F"059~LD VERIFY " 

"F"060"LE" "170"RFJFCTTFST 

F 061 LF EOP TEST FOR SEOP TYPE I/O 

F 062 LG I/O INDICATOR CHECK 

F 063 LH UNLOAD SUB ROUTINE 

F 064 LI SEARCH AND UNSTACK 

~F"065"LJ OMTLTGHTS" "" 

"F~066~LK SDLJ"ND~'GTJ^i~G" 

F 067 MA OUTPUT PROGRAM 

F 068 MB SHORT MESSAGE ROUTINE 

F 069 OA INPUT PROGRAM 

F 070 OR OVERLAP INPUT FIXUPS 

T "OTr "PA T OS" TO" BCD* "CTJ1WEFST0N" 

F"0T2"PB" "BCD"T0"lU"r":O"LVE"R~S~rON 

F 073 PC HOLLERITH TO BCD CONVERSION 

F 074 PD THE BREAK-DOWN ROUTINE 

F 075 PE JOB CONTROL PHASE 1 OVERLAPPED 

F 076 GA JOB CONTROL PHASE 4 IN MAINLEG 

'~F~0"7T~CD DECODE" " JOB" "CONTROL" 

"~F~CT8~CF ASSIGN JOB "CONTROL 

F 079 QF RESUME LOAD PSEUDO OP 

F 080 OG THE CONSOLE DEBUGGER 

F 081 QH THE SYSTEM COMMAND PACKAGE IN MAINLEG 

F C'82 QJ THE SPECIAL ASSIGNMENT PACKAGE 

" T" ~0"8"3" "UK THE " " T T RE" PSEUDO" TIP" 

"F C"8"4" "R A DUMMY" MAJDF" PAFKAGTf 

F 085 SA THE COMMENTATOR 

F 086 SB DISK FETCH 

F 087 SC THE DUMP ROUTINE MEMORY DUMP 

F 088 TA JOB CONTROL LOADER 

-F-ffff'J "TB " " R E S UME" T_0"VD" " 

F"~09"aTC DISR~FETLTrT31fFFFR~ 

F 091 VA THE DEBUGGER 

F 092 VB THE DUMP ROUTINE 

F 093 WA SYSTEM COMMANDS 

F 094 ZA JOB CONTROL 4 OVERLAPPED 

~ F Jl q Al^ 'II??^ 11 ^ ~TJVFKL"AWETT 

"F "096 "ZF MOVE 0"V"E"R"L"A"P"P"E"D" " 

F 097 ZZ UNASSIGN OVERLAPPED 



PAGE 

PAGE 

PAGE 

"PAGE 

"PAGE 

PAGE 

PAGE 

PAGE 

PAGE 

"PAGE 

"PAGE 

PAGE 

PAGE 

PAGE 

PAGE 

PAGE 

"PAGE 

PAGE 

PAGE 

PAGE 

PAGE 

PAGE 

P AGE 

PAGE 

PAGE 

PAGE 

PAGE 

P"AGF 

"P AGTT 

PAGE 

PAGE 

PAGE 

PAGE 

V AGF 

P AGF 

PAGE 

PAGE 

PAGE 

PAGE 

T~A~GF 

FAGF 

PAGE 

PAGE 

PAGE 

PAGE 

"PAGE ■ 

"PAGE 

PAGE 



0170 
0171 
0171 
017 2 
"0173" 
•0174 
0177 
0181 
0182 
0183 
0185 
0187 
0188 
0196 
0198 
0199 
0200" 
0201 
0212 
0213 
0241 
"0259 
"026 
0261 
0263 
0265 
0269 
0275 
0285 
0291 
0292 
0295 
0297 
"0 3TT0 

o"3"or 

030 2 

0311 

0319 

0320 

0332 

"0334 

0335 

0342 

0361 

0381 

0398" 

0416" 

0434 



y 



WSI 



TIME CLOCK CC054C41 PUNIC CARD ID 100O00C3 CIST. OF 3/C1 3/01 PAGE NUMBER 1 

ALNEZZZlOCAJjGjsTZZZZZZZZZZZZZL^^ 
CCCQ40.C0 LOvvcR PfcNCRY ROUND 
226543.00 UPPER MENCRY BOUND 

2* * B UNUSE1 IOD, NOT USED, 0, PULL THIS CARO BEFORE UPDATING 0002000000 

2* * B UNAGN3 IOD, RESERVED FOR UN ASS I GN , , PULL CARD BEFORE UPDATI NG0003000000 



20 
19 

( is; 

17 
16 
I >5 ! 



l * 

£* 

i _*__ 

£* 

S* 

AC* 
n* 

12* 

Ait. 
14* 

15* 

11* 



e V _R_T P 1 D , r A P_E , V R T E X T , C H 3 2 

B REEL.NLBSCAN2 

B VCRD IOD, READER, VCREXT 

Z€ vZwjZpZ I Z ZuIqZ » ja [p e tVKTExT.c h 3 X ZZZZZZZZZZZZZZZZZZZZ Z 

B REEL,NLBSCAN1 

B UNUSE2 IOD, NOT USED,O f PULL THIS CARD BEFORE UPDATING 

h~ JC10DZZj^^AA^ACLALJCFIX,CgNSl "~" " ZZZZ~ZZZZ 



0004224133 

0004 

0005224115 

P0]}6224L2A 
0006 

000700C000 
bO102 32Y2Y 



E UNAGN9 IOD, RESERVED FOR UNASS I GN, , PULL CARO BEFQRF UPDAT I NGOO 1 1000000 



B PCDEF2 IOD, CONSOLE, PDBEX,CCNS1 
AZ L T 1 V ~ ~ TCA»]tAP Zt^A X [f A , C H 34 , UN oZ Z Z Z Z Z Z Z 
B REEL, NLBOUTPT 
B CT21 IOD, TAPE, AXITB,CH34, UNI 

aZZZZZZZZ ZK eaaZXlZbouZipZl z z z z z z z z z z z z z z z z 

SEM, 114, 116, 118, 119, 120 



0012232653 
1 32 2 254 1 
0013 
0014222553 

boiV 



10000003 
10000004 
10000005 
ApOOOOpb 
1000000/ 
1G0Q00G8 

lopoogoA 

10000010 
10000011 

[iqqqoolY 

10000013 
10000014 

ApooooiA 

10000016 
10000017 

AOGOOOlbZ 
10000019 



( u 

11 

10 
( 91 
8 

7 

( o 

5 
4 

I 3 
2 

1 



WSI 



TIME CLOCK 0C054C41 
L IN t ~ ~_~_ LOC A J j ON~ 
1* 
2 * 



PUNID CARD ID llOOOOOl DIST. OF 3/C1 3/01 

"""""JlNARY" OUTPUT ZZJi^Al li .STATEMENT^ 

03-15-63 IB!" NEVs VERSION OF MC P 



PAGE NUMBER 

LOCATION 



—**«*****####*»*#***#»****#*****#»***********»*****#******»*»*» 11000002 
"PUNFUL " " ------ 11000003' 



-'- f 
- ( 



-' ( 



20 : 
19 

( 18; 

'7 i 
16 

( '5 
14 
13 

( '2 
11 
10 

( » 

8 
7 

5 

4 

( 3 



( 
( 

( 
( 
< 
( 

( 
( 
( 
( 
( 



wai 



JOUtHCHIPL 

, TIMZ C6*15*59 



20 
19 j 
I 18 

17 ; 

16 
15 

14 

13 

I 12 

11 
10 

( ? 



e 

9 

z ( 

6 

oi <■ 



Si ( 
51 
/I 
61 ( 

05 



ytai 



6AC TAPE RECORD, IF START IS PUSHED, NEXT TAPE RECORD WILL BE READ, 



* { 
s 

c 



| El ( 

5! 
91 ( 

n 

81 
61 ( 

OS 






20 

19 

' 18 

17 I 
16 i 

( I*! 

u| 

13 
! 
( 12 | 

11 

10 

( 9 

8 

7 

5 

4 

2 

1 






wai 



03-15-63 IBM NEW VERSION OF MCP 
IBN 7C30 MASTER CCNTROL PROGRAM 



z 



] 9 



) 

6 

0. ) 

El ) 



91 
61 
02 



wai 



1 IME CLOCK C0054C41 



PUN1D 



CARD ID 10000003 



CIST. OF 3/01 



3/01 



PAGE NUMBER 



A[N§ l9VfjY9^_ZZZZi__^ STATEMENT ------ - ^-,-^-^- .^-^-.- 

CC0040.CG LOnER MEMORY BOUND 
236543. CO UPPER MEMORY BOUND 

<* * E UNUSE1 IOD, NOT USED, 0, PULL THIS CARD BtFORE UPDATING 0002000000 

* B UNAGN3 IOD, RESERVED FOR UNASSIGN , C , PULL CARD BEFORE UPDAT ING0003000000 



i * 

A* 
<i * 

t * 

7 * 
£ * 
<=* 

li* 

12* 
if* 
14* 
15* 
'\_€*_\ 
17* 



B VRTP I_QP_t_T_AP£f_VRICXT,CH32_ 

E REEL,NLBSCAN2 

B VCRC IOD, READER, VCREXT 

6lvVTXIIT0lDVfAPErvwfEXf7CH3 3l_ "~ ~_V~\ 

E REEL,NLBSCAN1 

8 UNUSE2 IOD, NOT USED, 0, PULL THIS CARD BtFORE UPDATING 

B~ JCl OD" ~ llfoVCONSO L E ," J C F I X , CON S 1 



0004224133 
0004 

0005224115 
0006Y24T2> 
0006 

0007000000 
'60102 3272 3" 



B UNAGN9 IOD, RESERVED FOR UNASSIGN, O t PULL CARD BEFORE UPDAT I NG001 1000000 

B PCDEF2 IOD, CONSOLE, PDBEX.C0NS1 0012232653 

\B~_ C T~l]T _ ;~ TCCVtAPE ,~ AX IT A, Chi 3^ UNO""""^ ^0013222541 

E REEL,NLBOUTPT 0013 

B CT21 IOD, TAPE, AXirB,CH34, UNI 0014222553 

"§77777777 K E 1C01K L A 1 UTPT ooi4~ 

SEM, 114,116, 118, 119, 120 



10000003 
100C0004 
10000005 
IOOO66O6 
10000007 
10000008 

J 00 000 097 

10000010 
10000011 

"10000012 
10000013 
10000014 

"I666OOI5 
10000016 
10000017 

TOO 000 IB 
10000019 



20 

19 

( IS 

17 

16 

( is! 

14 

13 

( '2 

11 

10 

{ 9 

8 

7 

( 6 

5 

4 

( 3 

2 

1 

( 




Z 

f ( 
9 

9 

L ( 

6 

01 { 

11 

a 
ci ( 

si 

91 ( 

l\ 
31 
61 ( 

GE 



( 
( 
( 
< 
( 
( 
( 
( 
( 
( 



wai 



1 IME CLOCK 00054041 
L f Nb LCC A T~I CN 



PUNID CARD ID 110OOOC1 DIST. OF 3/CL 3/01 

BINARY~CUT PUT NAME STATEMENT" 



PAGE NUMBER 
LOCATION 



? 

9 
Z 

Q 

6 
Oi 
II 

£1 

S! 
91 
Z[ 



1* 



2* 



03-15-63 IBM NEW VERSION OF MCP 



—#******«#*#*»**#**«***#»*»**»*»*****#*»»»*«*«***«***»*»** 



***** 



i 1000002 



PUNFUL 



11000003 



<* 000041.00 
5* 000051.34 * 
£* 



(CC*)CD(BU, , 12}, B 
(CC*)DD(BU, ,12), 

"puncrg - 



HED,REP,11E11BSP,LCAD, , 

11E118SP* 



11000004 
11000005 
11000006" 



i* 
£* 



PUNID, 11E11BSP 

RESEQ 
PRNS 



11000007 

11000008 
11000009 
11 00 00 10 
11000011 
11000012 
11000013 
11000014 
11000015 



1C*__ 

11* 
12* 
12* 
14* 

15* 00004C.CC 



TAIL,_(_2)G 

ft******************************************************************** 

MCP INIALIZATION BOOTSTRAP 
A******************************************************************** 

SLC, (8)40.0 



LI* 

17* 

ie* 
is* 

2C* 
21* 



11000016 
11000017 
11000018 
11000019 
11000020 
11000021 



00C04C.C0 



000041.00+ 000 000560 000001 



CW(CR),X IPL BS,X OS END-X 
-IPL CW FOR READING IN IPL 
-RECORD FROM SOURCE TAPE 
-ONE IN REFILL FIELD IDENTIFIES 



IPL BS,1 
BOOTSTRAP 



IPLCW 



22* 
23* 
24* 
25* 
26* 
27* 



-**» CLEAR 7030 LOWER REGISTERS AND STORAGE *** 



11000022 

11000023" 

11000024 

11000025 

11000026 

11000027 



00CC41, 
00CC41, 
000042. 
0CC043 



CO 
40 
00 
00 



000043.44 00 
CCC0C0.O0+ 
CCC0CO.OO+ 000 



000000 oooooc 



X IPL BS BD,X BEGIN -DISABLE AND START IPL 

VF,0 -SLOT FOR TAPE CW 

XWtC -SLOT FOR DISK CW 

X VERFY ( A*)CC(BU,32,8),C911* -SLOT FOR DATE OF SOURCE TAPE IN A-8 



26* 000043.40 



000547.36 10 



X BEGIN LX,$15,XW SR 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
!0 
9 



2 C <* 
3C* 
31* 
32* 
33* 



0CCC44.C0 
000044.40 
000045.00 
000045.40 
0CCC46.40 



C0CCG0.22 
000002.22 
000044.77 
000547.40 
C0CC47.00 



GO 
OF 
4C 
80 
46 



000000.20 50 



X LOOP 



X CL IND 



Z.0.0 

1,2.0 ($15) 
CBR+,$15,X LOOP 
L(BL),XW SR+.32 
BMKZ,$+.32 



- I NIT I A LIZ E TO C LE AR LOWER, _R_E_G_I _S_ T ER S 
-CLEAR LCWER REGESTERS 
-UCNE CLEAR C AND D REGISTERS 



34* C0CC47.C0__ _ C_0 0C4_6_._6_3 _80 __0C6000. 22 B_C ^tlL^U t 6 : It* CL INC + .19 -CLEAR NON MASKABLE INDICATORS 



1100002a 

11000029 
11000030 
11000031 
11000032 
110QOO33 
11000034" 



35* 
3d* 
37* 
38* 
39* 



O0C05C.C0 
O0CC5C.4O 
000051.00 
000051. 4C 
00C052.CC 



C00C46.76 48 
000000.22 OF 
000052.10 46 
000050.77 48 
000546.37 30 



C3,$15,X CL IND 
X CLSTO Z,0.0($15) 
BADZ,$+1.0 
CB+,15,XCLST0 
SV, 15, X S ROOF 



-CLEAR ONE WORD 
-IF DONE CLEARING STORAGE 
-ADVANCE AND RETURN 
-TEMPORARILY SAVE 7030 SIZE 



11000035 
11000036 
11000037 
11000038 
11000039 



wai 



1IME CLOCK 00054041 PUNID 11E11BSP CARC ID 11000041 CIST. OF 3/01 
LINE LOCATION B I~" A R^~ OUTPUT N A~M~E "STATEMENT 



3/01 



PAGE NUMBER 
LOCATION"" 



]* 

2* 
2* 
4* 
\ » 
~IV 
7* 
g* 

9* 

1C* 



00CC52.40 

C0CC5 3.4Q 

000054.40 

000055.00 

O0CC55.40 

0CCC5 6. 4_0_ 

000057.00 



00 0053, 
CO OC 17. 
00,0551. 
000133, 
00C041. 
C0CC53, 



40 
40' 

cc 

03 
77 
77 



80 

30" 

80 

46 

80 

BO 

CO" 



023000.22 _B0_ 
000041.21 00 



000052.74 00 



-*** FIND IPL CHANNEL NUMBER *** 

AL I 1 y>t I <" •* U l 1 ?) » x l C P K. ~- ~AD VANC E CHANNEL" 

XI CCW CCW,"l5."32,~X"~IPL BS~ " 

X ERR 00 SICiX ERR AD 

B£KJZ,X ERROR -IF EXCHANGE ERROR 

BZB,X IPL BS+.63.XI -IS IT IPL CHANNEL 

LVE,15,Xl CCW - OBTAIN NUMBER OF IPL CHANNEL 



11000041 

11000042 

11000043 

11000044 

1100 0045 

11000046" 

11000047 

11000047 

11000043 

11000049 



11* 
12* 
12* 
14* 
15* 
16* 
17* 



C00070.10 



B,X8 



•TO SPACE OVER TAPE MARK 



00057.40 
CCCC6C.00 
000060. 4C 
000C61.CC 
000061. 40 
OCCC62.C0 
"000062.40" 
0C0C63.4C~ 
0CCC64.CC 
0CCC64.40 
000065.40 
0CCC66..4C 
0CCC67.C0 
00006 7.40" 



_OP_0551._00 
000133.03 
C0C551.CC 
000133. C3 
00C551.C0 
_C L 0_0J_3 3.04 
_C_ 00 _ _ _°_._C<3 
000551.CC 
00C133 
000041 
000041 
OOOCKJO 
C0C551 



46 
80 
C6 
80 
46 
8F_ 

~30" 
46 
80 
80 

_C2_ 
8"0 

"o"o" 



X 7 1 

X ERR 02 
X ERR 03 

k~f T Tew" 

X ERR "04 



X 7 3 

X ERR" 5 



- **» IG TEST **** 

SIC 7 X " E R R " AC 



110000^0 
110000 51 
11000052 
11000053 
11000054 
11000C55 
11000056 



L: 

81 



1£* 
IS* 
2C* 
21* 
22* 
22* 
2"* 
25* 
26* 
27* 
26* 
29* 
3C* 
31* 
32* 
33* 
34* 
35* 



000041.21 00 



03 
30 
23 
34 
CO 



000062, 
005000, 



74 
07 



02 

70 



000133.10 



BEKJZ,X ERROR -IF EXCHANGE ERROR 
SIC,X ERR AD 

BUNRJZ,X ERROR -UNIT NOT READY REJECT 
SIC,X ERR AD 

A C _ BJ "?L X l? R 9? ri r CHAN ^ tL B _M"i Y _ REJECT 
CC~W,0($15),X _iPL"es" 
SfCXERR AD 

6EKJZ,X ERROR -IF EXCHANGE ERROR FOR CCW 
BB,X IPL BS+.24,X7 1 CCW -10 OPERATION COMPLETED 
CT0C11(BU,5J,X IPL BS+.19 
8RZ l°_lO_ -SUCCESSFUL 

SIC,X ERR~AD~ 

"b~x error -id" status" bit ON " 

-SPACE OVER TAPE MARK 



0CCC7C 

0CCC71 

0G0C71, 

000072 

0CCC72 

000073 



CO 
CC 
40 
00 
40 
CC 



C0CCCO_._O0_ 

000551.CC 

CCC133.03 

C0C551.00 

CC0133.03 

000551. CO 



8F_ 
"80 
46 
80 
C6 
80 



"000077.15 00 



X8 

X ER 05A 

X ER 05B 
X ER 05C 



S P F L ("St C P ) ,0 " ( % 15") 



-SPACE OVER TAPE MARK 



11000056 
11000057 
11000057 
11000058 
11000058 
110000 59 

"11000060 
11000060 
11000061 
11000062 
11000063 
11000064 

"11000064" 
11000065 
11000066 
110C0067 
11000068 

"11000069 



19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
S 
4 
3 
2 
1 



36* 
37* 
36* 
39* 
4C* 



SICfX ERR AD 

BEKJZfX ERROR -IF EXCHANGE ERROR 

SIC,X ERR AD 

BUNRJZ,X ERROR -IF UNIT NOT READY REJECT 

SIC.X ERR AD 



110000 70 
11000070 
11000071 
11000071 
11000072 



41* 
42* 

42* 
44* 
45* 
46* 



0CCC73, 

0CCC74^ 

000075 

000075. 

0CCC76, 

0CC077, 



40 

00" 

00 

40 

CO 

00 



CJL C _ 1 _ 3 _ 3 _-_Q_4_ 

000000.00 
C00551.CC 
000133.03 
00CC41.30 
000041.25 



46 

8F 
80 
46 
80 

80 



000041.21 00 



000074.34 02 
000101.34 04 



X8 1 

X ER 05D 



1 ( L^ J _^t x _§? _ ~?_r I_ _ CHANNEL _B_U_S_ Y Ji fc J _tC T 

"CCW, 0( $15), X IPL BS" -GET STATUSBITS 

SIC,X ERR AD 

3EKJZ,X ERROR -IF EXCHANGE ERROR 

BB,X IPL 8S+.24.X 8 1 -IF SEOP OFF 

BZBZ,X IPL BS+.21,XER05E -OFF * IF EE ON 



47* 
"48* 
49* 
5C* 
51* 
52* 



0CC10C, 
000101" 
000101. 
000102, 
000103. 
0CC103, 



0C__ 

CO 

40 

00 * 

CC 

4C 



_C0_0_0_41._23 
00C551.CC 
000133.10 
000000. OC 
C0CC66.4C 
00C057.5C 



" 9 __ P°01 02. 34 00 

80 

00 

8F 000000.33 00 

80 

CO 



BZB,X IPL BS+.19,X8 2 -YES*TEST FOR UK 



X ER 05E SIC,X ERR AD 

BfX ERROR -ERROR IN SPACING 
X8 2 REL{SE0P),0.0($15) -CLEAR EE AND EOP STATUS BIT 

SICX7 3 

B,X7 1 - TO IG TEST 



11000072 
110000 73 
11000074 
11000074 
11000075 
11000076 
"11000077" 
11 GO 00 78" 
110000 78 
110000 79 
11000080 
11000080 



wai 



TIME CLGCK 00054041 



PUNID 11E11BSP 



CARD ID 11000082 



CIST. OF 3/01 



3/01 



PAGE NUMBER 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 
1 * 

L _ 



- FETCH PROSA 



110C0082 

11000003 
11000084 
11000085 



6 
Oi 
11 



SI 
91 

a 
si 

61 
02 



5* 0CC104.CC 00CGC0.00 8F 000552.11 00 X9 A RD ( SEOP ) , C . C { $15 ) , X PROSA -FETCH PRCSA 



CCC1C5.00 
000105.40 
000106.00 
000106.40 



CCC551.nO 

C0C133.03 
C0C551.CC 
000133.03 



80 
46 
80 
C6 



X9 A 1 



X ERR 07 



SICXERRAC 
BEKJZ,X ERROR- 
SIC,X ERR AD 
BUNRJZ,X ERROR 



7* 

E* 

9 * 

AC*„CCC107_.CC __Q0_C5_5_l_._CO_aO A jE_f_!_ _<_._. SIC,X ERR AD_ 

.LI£_Q0P107_.40 _ ___C_0C13_3._C4_46 ~BCBJZ_X ERROR _- IF CHANNEL 

12* 00011C.CC OOCCOO.CO" 8F 000041.21 00 X9 A CCW CCW,C($15),X IPL BS 
13* 00C111.00 00C551.C0 80 X ERR 09 SIC.X ERR AD 



EXCHANGE LRROR 



IF UNIT NOT READY REJECT 



1 ICC 0086 
11000087 
1100008? 
11000088 
11000088 
110000 89 



BUSY REJECT 



14* 000111,40 
15* 000112.00 



C00133.C3 46 

000041.30 80 000110.34 02 



REKJZ,X ERROR -IF EXCHANGE ERROR FOR CCW 



BB,X IPL BS+.24.X9ACCW 



-TRY AGAIN IF BUSY 



1 „ _ _ P 1_1 3_. C_Q QO 00 4 1 ._2 3 __ 8 5 0_. 07 7 _0_ _ . C T C 1 1 1 B U _ 5 ) j X IPL _B_S +_•!__. 



17* 000114.00 



_0_Q_P1.25_._7 4 _C 
00C115.10 00 
C11407.30 
000034.31 
011411.34 

AC_C_C_3_6__35 

_2|*_000117_.CC_ __C_0_OC_5_0_._C'3__CB LVS t ** 1 , $ 12 t $ 14 



X9 A 3 BZRZ,X DONE -SUCCESSFUL 



11000089 
11000090 
11000091 
11000091 
11000092 
H PPPO 93 
11000094 
11000095 
11000096 
11000097 
11000098 
11000099 



If* 


0C0114.40 


19* 


000115.00 


2C* 


000115.40 


21* 


000116.00 


22* 


0C0U6.40 



10 
5 
10 
5P 
CB 



X9 A 
X9 A 



3A 
4 



B.X9A4 

LX,$12,X BUFER+1. 

SC,$12,$12 

LX,U4,X BUFER + 

SC_$l_ f $14 



3.0 



-RETURN AFTER 10 TEST 
- GET DICTIONARY 

-GET INDEX 



-WORDS PRECEEOING MCP 



24* 
25* 
26* 
27* 
2£* 



000117, 
00C12G, 
000120. 
000121, 
000121, 



40 
CO 
40 
CO 
4C 



011413.26 
00CC33.27 
011415.24 
000032.25 

C11406.0C 



10 
50 
10 
50 

81 



000621.26 20 



X9 A 5 



LX,$11,X BUFER+5.0 

SC,$11,$11 

LX,$10,X BUFER+7.0 

SC,$10,$10 

T,$ll,X BUF£R{$1),X 



- GET IPL 



-GET MCP SIZE 



BS END -MOVE MCP IPL 



11000100 
11000101 
11000102 
11000103 
11000104 
11000105 



29* 00C122.40 



_op„c_c_co_._c_o 

C0C631.C3 
377777. CI 

000124.40 
00C622.10 
GO 004 1.2 5 

Cp_.J55_l_.jCG 
00C133. 10 
C0CC20.31 
C0C000.00 
000066.40 
_C_0j_C_5_7_._5p 
CCC1 14.50 



80 
C2 
C2 
48 
00 
8 _0_ 
\l 
00 
80 
8F 
80 
PP 
00 



000000.33 00 



REL_SECP) ,0.0(t0) 
BUNRJ,X ERR 12 
LCIf 0, (8)377777. C 
CB,0,$ 
B,X 10 

B_B_t_X_ IPL B S+ . 2 1 , X DON £ + 2 . 
_SJ_C»X__£RR AD 

B,X ERROR" ""-OTHER STATU. BITS 
CM11U{_U,1),$0 +.25 
REL(SE0P),0.0{$15) 
SICX7 3 

_.»__.!__ __■__ - IP_JES_T 
B,X9 A 3A 



-RELEASE DISK 



11000106 

11000107" 

11000108 

11000109 

11000110 

11000111 

11000112 

11000112 

11000113 

11000114 

11000115 

110C0115 

11000116" 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 
33* 

„3__* 
_____* 
36* 
37* 
36* 
39* 
4C* 



000123.40 

000124. CC 

000124. 4C 

000125. CO 

000125.40 

PPP126.40 

0CC127.00" 

0CC127.40 

000130.40 

000131.40 

0C0132.C0 



000127.74 02 



X 
X 



P_Q_N_E 
ERR 



10 



001000.36 
000000.33 



FO 
00 



-TO MCPIPL 



ON 

-END 
CLEAR STATUS 



OF PROSA FILE 
BITS 



41* 000132.40 



wai 



TIME CLOCK CCC54G41 



LINE 



LOCATION 



PUNID 11E1IBSP 



BINARY OUTPUT 



CARD ID 11000118 



NAME 



CIST. OF 3/C1 



STATEMENT 



3/01 



PAGE NUMBER 



LOCATION 



1* 
2 * 

1 * 

L * 

"5*~0CC13 3~.00~ 



-ERROR ROUTINE 



C0G245.04 10 



X ERROR LX,$2,X ERR IN 



-INITIALIZE WITH BASE ANU SIZE OF 



1100011b 
11000119 
11000120 
11000121 
11000122 



* { 
s 

9 



/ 



( 



6 

0! ( 

[I 

Z\ 

El { 



6* 
1 * 

£* 
«,* 

u* 

1]* 



000133.40 
000134.00 
O0C134.40 
00013 5_.CC_ 
000135. 4C 



000551.02 
00CCC0.C2 
C0C136.32 
_C_0_C 134 .05 
000135.44 
00C5~51.C0 



30 
92 
C2 

48 

M 
BO 



LV,$1,X ERR AC 
X ERR SH KV»$ltC.0($2) 
BXE.X 1 ERR 
__C_+_$2,X ERR SH 

BO, $'" 



-X ERR DO TABLE 
-GET BIASED ERROR ADDRESS 
-TEST AGAINST TABLE CODE 
-IF CODES ARE EOUAL 
-TO TEST NEXT CODE 
"-IPL CONTAMINATED 



11000123 
11000124 
11000125 
11000126 
11000127 
1100Cl2d 



12* 0CC136.CC 

13* 

14* 000137.00 

15* 000137.40 

16* 



000000.44 32 
000000.20 82 



025300.46 70 



060004.22 90 



XI ERR LF(BU,21,3) ,X ERR AD,1 -BREAK ADDRESS INTO EIGHT 

-BIT BYTES 
LV, $2, .32($2) -GET ADDRESS OF MESSAGE 

M+MG(BU, 48,8), .8 + .8U2) ,8 -SKIPPING OVER CONTROL CODESFGRM 

-FULL WORD PORTION IN IQS 



11000129 
110G013U 
11000131 
11000132 
11000133 



17* 
IE* 
IS* 
2C* 
21* 
22* 
23* 
24* 
25* 
26* 
27* 
26_* 
~2<_«" 

~i s c * 

31* 
32* 
32 * 
34* 
35* 
36* 
37* 
38* 
39* 
4C* 



PPPJ.Ap_.4_0_ 
000 1 41. 4 C 
000142.00 
000142, 
000143, 



_0_0_CC_0 1. 00 
000247. C5 
002156. C2 
CC0157.31 
000020.03 



82 

DO' 

30 

40 

01 



010000.22 90 



M + MG ( BU , 8 , 8 ) , . 8+ . 4 8+ . 8 ( $2 ) 
S V A , $ 2 ! 7 X M S G-" C W 
LV,$1,S YCOCH 
BZXVZ,X 2A ERR 



~FCRM_HALF_ WORD P R T_I N 
"-INITIALIZE Ch 

-GET CONSOLE CHANNEL SLOT CONTENT 
-IF CHANNEL NUMBER PRESENT 



11000134 

1 100 0135" 

11000136 

11000137 

11000138 

11000139 

11000140 

11000141 

11000142 

11000142 

11000143 

11000144 

11000145 

11000146 

11000147 

11000147 

11000148 

11000149 

11000149 

11000150" 

11000151 

11000152 

11000153 

11000154 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



,40 
00 



000143.40 

000144.00 
000144.40 

000145^.00 
0GC146_C0] 

000146.40 
000147. CO 
000147.40 
0CC15C.00 
~0CC15C._0" 
000151. CO" 
000152.00 

000152.40 
000153.40 



pp 04 .0 3 0_2_ 

000175.40 80 
000171.50 00 



LVI, $1,18)20.0 

rcT,$r, 32. "" 



OOCCOO.CO 


81 


000000.15 


_ c _ _ c i_ 6 A'.A 3 _ 


4_2_ 


_ 


C0G175.40 


80 




000171.44 


46 




000166.03 


C6 




CCC175.40 


80 




C0C171.5C 


CO 




ooocoo.co 


81 


000000.17 


000166.43 


42 





00 



-NO* ENTER FiRST CHANNEL OF 
-BASIC EXCHANGE 
-GET "MAXIMUM SIZE OF BASIC" 
" -EXCHANGE 
X1A ERR SICX ID ERR 

B,X 1R ERR -TO CLEAR CUT OLD CHANNEL 

-STATUS BITS 
-ILLEGAL I C CONTROL CODE 
-EXHAUSTED ALL CHANNELS OR EXCHANGE 
- ERROR 



CTL(SE0P),0_0Ul_),e.0 
BEKJ,"X6 ERR 



•CONTROL UNIT OR UNIT NOT READY 



COCOOO.CC 81 
000166.43 42 



00 



000253.21 CO 



SlCt X1CERR 

BCBJZ,X IB ERR -BUSY 

BUNRJZ,X5 ERR 

SIC.X ID ERR 

__B_,~x"lD ERR ~ "-" "TO RELtASE "STATUS BIT 
X IE ERR LOCfSEOPJ ,0. GUI), CO -TEST IF "TAPE CHANNEL 

BEKJ,X6ERR -EXHAUSTED ALL CHANNELS OR 

EXCHANGE ERROR 
X 2 ERR CCW,O.OUl) ,XERR CW -GET CW 

3EKJ,X6 ERR 



41* 
42* 
42 * 
44* 
45* 
46* 



000154.00 

00015 5.00" 

000156.00 

000156.40 

000157.00 

0CC160.CG 



00C253.3C 80 



000152.74 02 
000166.34 00" 



000177.15 00 



88, X ERR CW+.24.X 2 ERR -TEST SEOP BIT 



11000155 

11000156" 

11000157 

11000157 

11000158 

11000159 



000253.23 
C00175.4C 
00C171.5C 
OOCCOO.CO 
000166.43 



80 
80 
CO 
81 
42 



BZB,X ERR CW+.19,X 5 ERR -TEST IF TAPE UNIT * NO EPGK 
SIC,X 1C ERR 
8.X1B ERR -NON TAPE *RELEASE STATUS BIT 
X 2A ERR GONG{SECP),0.0{$1) - ISSUE CONSOLE COMMAND 
BEKJ,X 6 ERR 



4 7* 
4£* 
45* 
5C* 
51* 
52* 



OOC 160. 4 

000161. CO" 

000162.00 

000162.40 

000163.40 

0CC164.4C 



_C00_1_66._C3_C6 
000C0"O.C0 81 
000166.43 42 
000253.30 80 
000253.23 80 
COOCCO.CO 81 



_BUN_JZ,X 5 ERR 
X 3 ERR CCW,0.0($1) ,X ERR CW ~ 
BEKJ.X6ERR 
BB,X ERR CW+.24,X3 ERR 



-REFER EN CE0_UNIT_ N 0_T_ _R_E_A D Y 
-G"ET GONG CW 
-IF EXCHANGE ERROR 
-TEST SEOP BIT » 



11000160 

11000161" 

11000162 

11000163 

11000164 

11000165 



000253.21 00 

000161.34 02 
000166.34 02 

000246. 13 00 



X4 ERR 



BB,X ERR CW+.19,X 5 ERR -IF CONSOLE * NO EPGK 
W(SEOP) ,C.0($1) ,X MS CW1 -CONSOLE 



5_*_0CC165.4O 

54* 0CC166.CC 

55* 

56* 000166. 4C 



C_0.C166.__C CO 
"C0C144.G2 C8 



_B_X_6__RR__ 
X 5 "ERR CBH,$1,X1A err" 



11000166 
11000167" 
11000168 
11000169 



000551. CO 80 000011.02 AO 



X6 ERR 



TI,1,X ERR AD,$R 



-NCT DONE TESTING 



-DISPLAY ERRGR ADDRESS IN CE CONSOLE 



wai 



TIME CLCCK CC054C41 



PUN1D neiiesp 



CARD ID 11000170 



DIST. OF 3/01 



3/01 



PAGE NUMBER 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



000167 



]* 000167. AC 

2* 

2* 0C017C.C0 

4* 00C17C.4C 

5* 0C017 1.CC 



C0C167.44 00 

C0G175.4C 80 
C0C171.5C CO 
00 0144. 10 00" 



BD,$ 



-LOOP 



X 7 ERR SICX 1C ERR 

B,X IB EPK - TO RELEASE STATUS BIT 

R,X 1A ERR -TO LOCATE AGAIN 



11000170 
11000171 
11000172 
11000172 
11000173 



7* 000171.40 

6* 0CC172.40 

c* 000173.00 * 

K* CCC174.0C 



COCCCO.CC 81 
C0C166.43 42 
OOOCCO.CO 81 
„00C166._4 3_42 
CO 2^53. 30 80 
00CCC0.10 00 



000000.33 00 



000253.21 00 



X1B ERR REL(SECP),0.0($1) 

BEKJ,X6 ERR 
XIC ERR CCW,0.0(*l)tX ERR Cfc 

BEKJ.X6 ERR„ 



-CLEAR OUT OLD STATUS BITS 



11000174 
11000175 
11000176 
11000177 
11000178 



11* 0C0174_.4_0_ 
12* 0CC175.4C 



000173.34 02 



BB t X_ERR„CW+.24_,_XlC ERR -IF RELEASED 

XIC ERR B,0.0 -YES*BACK 



11000179 
11000180 




20 

19 

18 

17 | 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



4 



wai 



UMfc CLOCK 00C54C41 



PUMC 11E11BSP 



CARD ID 11C00182 



DIST. OF 3/01 



3/01 



PAGE NUMBER 



LlNt 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

2* 000176.00 

3* 000176.40 

i* 00C177.CC 
f * _0CC177_._40_ 

6* 0CC20C.C0 

1* 0CG20C.4C 

E* 000201. CC 

9* 000201.40 

1C* OOC2C2.00 



2.40" 

"~ CC 



Tl* O0C2C/1. 
12*0CC2C3".~„ 
13* 0CC2C3.40 
14* 0CC204.C0 
15* 0CC204.40 
16*_0CC2C5.C_C 

AI*„PCC20^].4Cr 

in« r\ r- r> t n t. r> r\ 



CCC055.40+ 

CCC254.004 

_0C_0Q6C.4_C + 

_°_ c „C2 6C.qqt 

CCC061.40+ 
CCC266.00+ 
000062.40+ 
000274.00+ 
CCC064.40+ 



CNOP 

X ERR CD VF,X ERR 00+1.0 

VF,X MSG CO -EKJ ON CCW OF IPL CW 

VF,X ERR 01+1. 0_ 

~VF t X "MSG_ Cl_" ~ -EkT'DETEdED IN I 6 TEST" ROUTJNE _ 

VF,X ERR 02+1.0 

VF,X MSG 02 -UNRJ DETECTED IN IC TEST ROUTINE 

VF,X ERR 03+1.0 

VF,X MSG C3 -CBJ DETECTED IN 10 TEST ROUTINE 

VF,X ERR 04+1.0 



11000182 
11000183 
11000183 
11000184 

"116001^4" 

"1100018 5" 
11000185 
11000186 
11000186 
110001tf7 
11000187" 
11000188 
11000188 
11000189 
11000189 
11000190 
11000190" 

"11000191 
11000191 
11000192 
11000192 
11000193 
11000193 
11000194 
11000194 
11000195 
11000196 
11000196 
11000197 

"11600197" 
11000198 
11000198 
11000199 
11000199 
11000200" 

"IIOO626I 
11000201 
11000202 
11000202 
11000203 



19* 
2C* 
21* 



000206.40 
00020^ 



ww,. ~7.CC 
0CC2C7.4C * 
H021C.C0 
"'""C^4 0__" 



„22*_0002_ 
2 3* 00021C]... 

""'' -""""'"U.CC" 



"000211.-.. 
00C211.40 



24* 
25* 
26* 

100212. CO 



27* 
2E* 
>9* 







000212^.40 
C0213_.C(f _" 



2i«_0CC213_.C0 

"3C* 0CC213.40" 

33* 00C214.CC 



32* 

33* 



33* ...„._ 
0021 



0C__- . - ._ 
0CC215.00 
~ 5.40__ 



34* 00C21 



35* 
~3~6~*~66C216~ 



.CO" 



36* 00C216.CC 
37* 000216.40 
38* 00C217.00 



38* 
39* 
4C* 



00021 . . .„ 
00C22C.C0 



7.40 



ccc3_c_2_.qq+ 
ceo 070. 00+ 
0C031C.00+ 
CCC072.00+ 
CCC315.00+ 
OC 00 7 3_. CC + 
CCC3 22 .JHH 
CC 00 7 A. OOi 
CC0327.00+ 
000076.00+ 
CC0334.00+ 
CC01C2.00+ 
CCC3 42 . OJ 
000127.40+ 
0C0374.00+ 

CCC1C6.00+ 
000347.00+ 

c c cj._c _7~. o_q£ 

CCC354.00+ 
CC01 1C.0C + 
000361.00+ 
CCC112.00+ 
CCC3_6_6_.00 + 

6 3T.~00+~ 
CCC4C3.00+ 
CC0632.00+ 
0C041C.00+ 
0C0633.00+ 



VF,X MSG 04 -EKJ ON CCW IN 10 TEST ROUTINE 
"VF,X"ERR 05 + 1.0 

VF,X MSG 05 -UNSUCCESSFUL COMPLETION 

VF,X ER 05A+1.0 

VF,X MS 05A -EKJ IN SPACING OVER EOF 

VF,X ER C5B+1.0 
" V F , X " M S ~ C 5 B " - U N R j" IN SPA C I N GOVEREOF 

VF,X~LR C5C+1.0 

VF,X MS 05C -CBJ IN SPACING OVER EOF 

VF,X ER 05D+1.0 

VF,X MS 05D -EKJ OF CCW IN TEST OF SPACE FILE 

VF,X ER 05E+1.0 

V PYX M S 5E _ - SP AC E EOF OPERA TTO_N IN E RRG R " 
"VF,"X"ER"R 10+1.0" " 

VF,X MSG 10 -UNSUCCESSFUL COMPLETION OF MCP 

-IPL READ 

VF,X ERR 06+1.0 

VF_,_X MSG C6_ -EKJ ON READ OF__S_OURCE TAPE 

VF_,_X~£RR 07+1.6 

VF,X MSG 07 -UNRJ ON READ ~0F "S C : URC E T A P E 

VF.X ERR 08+1.0 

VF,X MSG 08 -CBJ ON READ OF SOURCE TAPE 

VF,X ERR 09+1.0 

_v_f f x msg 09 -ekj on ccw on source tape 

__^channel] " 

YF , X E RR 11+ 1.0 

VF,X MSG 11 -EKJ ON DISK OPERATION 

VF,X ERR 12+1.0 

VF,X MSG 12 -UNRJ ON DIST OPERATION 

VF,X ERR 13+1.0 



, 41* 


0CC22C40 


0C0415.O0+ 


VF,X 


MSG 13 -CBJ ON DISK OPERATION 


11000203 


42* 


000221.00 


CCC640.4C+ 


VF,X 


ERR 14+1.0 


11000204 


43* 


000221.40 


000424.00+ 


VF,X 


MSG 14 -EKJ ON CCW ON DISK WRITE OPERATION 


110C0204 


44* 


000222.00 


000641.40+ 


VF,X 


ERR 15+1.0 


11000205 


45* 


000222.40 


0C0432.00+ 


VF,X 


MSG 15 -CBJ ON CCW ON DISK WRITE OPERATION 


11000205 


46* 


000223.00 * 


CC0642.4C+ 


VF, X 


ERR 16+1.0 


11000206 
11000206 


47* 


000223.40 


0C0432.00+ 


VF,X 


MSG 16 -UNSUCCESSFUL COMPLETION OF DISK 


48* 








-LOCATE 


11000207 


49* 


000224.00 


CC0645.40+ 


VF, X 


ER 16A+1.0 


11000208 


5C* 


000224. 4C 


CC0432.00+ 


VF,X 


MS 16A -EKJ OF CCW IN TEST OF DISK WRITE 


11000208 


51* 


000225.CC 


0C0646.40+ 


VF,X 


ER 168+1.0 


11000209 


52* 


0CC225.40 


CCC432.00+ 


VF,X 


MS 16B -WRITE DISK OPERATION IN EJ^RCR 


11000209 


53* 


000226.00 


CCC662.40+ 


VF,X 


ER 16C+1.0 


11000210 
II6602IO 


54* 


000226.40 


CCC44C.00+ 


VF,X 


MS 16C -NO IOCC CARD DETECTED 


55* 


000227.CC 


CC07C7.4C+ 


VF,X 


ERR 17+1.0 


11000211 


56* 


0CC227.40 


CCC444.00+ 


VF,X 


MSG 17 -WRONG EQUIPMENT CODE 


11000211 



wai 





TIME CLOCK 0CC54041 PUNiD 


L1E11BSP 




CARD 


ID 


11000212 


DIST. OF 3/Cl 3/01 PAGE NUMBER 8 






LINE LOCATION 


B 


INARY OUTPUT 






NAME 




STATEMENT LGCATION 000230 






I* 
2* 

2* 

t- * 


000230.00 
000230.40 

000231. CO 


000723.40+ 
000451.00+ 

0C076C.4C+ 
















VF,X 
VF,X 

VF,X 


ERR 18+1.0 

MSG 18 -10 CONFIGURATION DEFINED 

-INCORRECTLY 
ERR 19+1.0 


11000212 
11000212 
11000213 

11000214 




5 * 


0C0231.4C 


0C046G.00+ 
















VF,X 


MSG 19 -INCORRECT CARD TYPE 


11000214 




6* 
1* 
E* 
S* 
1C» 


000232. CO 
000232.40 
000233.00 
000233.40 
000234.00 


GC10C6.40+ 
000464.00+ 
0C101C.00+ 
000501.00+ 
CC1157.40+ 
















VF,X 
VF,X 
VF,X 
VF,X 
VF,X 


ERR 20+1. C 

MSG 20 -NO CONSOLE DEFINED 

ERR 21+1.0 

MSG 21 -NO CONSOLE AVAILABLE 

ER 21A+1.0 


11000215 
11000215 
11000216 
11000216 
11000217 




11* 


000234. 40 


000464,00+ 
















VF,X 


MS 21A -EKJ OF CCW IN 10 STATUS REPORT 


11000217 1 




12* 
13* 
14* 
15* 
16* 


000235.00 
000235.40 
000236. CO 
0002 36.40 * 


001441.40+ 
000473.00+ 
001453.00+ 

000501.00+ 
















VF,X 
VF,X 
VF,X 
VF,X 


-ROUTINE 
ERR 22+1.0 

MSG 22 -INCORRECT CARD TYPE WITHIN 10DS 
ERR 23+1.0 
MSG 23 -10 REQUIREMENTS REJECTED 


11000218 
11000219 
11000219 
11000220 
11000220 




11* 


0CC237.00 


001471.40+ 
















VFtX 


ERR 24+1.0 


11000221 




If* 
IS* 
2C* 
21* 
22* 


000237.40 
000240.00 
000240.40 
000241.00 
000241.40 


000506.00+ 
001505.40+ 
CCC513.30+ 
C01520.40+ 
CCC521.00+ 
















VF,X 
VF,X 
VF,X 
VF,X 
VF,X 


MSG 24 -10 ASSIGNMENTS CANNOT BE MADE 

ERR 25+1.0 

MSG 25 -10 TABLES CANNOT BE FORMED 

ERR 26+1.0 

MSG 26 -PROSA ARC COUNT INCORRECT 


11000221 
11000222 
11000222 
11000223 
11000223 




22* 


000242. CO 


001605. 40+ 
















V F , X 


ERR 27+1. C 


11000224 1 




24* 
25* 
26* 
27* 
2E* 


0CC242.40 
000243.00 
000243.40 
000244.00 
000244.40 


CCC526.00+ 
001614.00+ 
CCC533.00+ 
001647.40+ 
000540.00+ 
















VF.X 
VF,X 
VF,X 
VF,X 
VF,X 


MSG 27 -MCP PARAMETER INPUT MISSING 

ERR 28+1.0 

MSG 28 -IMPOSSIBLE OPERATING MODE 

ERR 29+1.0 

MSG 29 -SPOOL INPUT ASSIGNMENTS NOT 


11000224 
11000225 
11000225 
11000226 

11000226 




29* 






















-MADE 


11000227 1 




3C* 
31* 
32* 
32* 
3** 


000047.00+ 
000245.00 

000246.00 


-OCOOOOCO 
000176.00+ 000 

001037.00+ 100 


B 
000050 

000003 


»31 ,01 

OOCOOO 

000247 


X 
X 

X 


E DD K 
ERR IN 

MS CWl 


CNOP 

SYN,$-X ERR DD -SIZE OF ERROR TABLE 

XW,X ERR DD,X E DD K+1.C,0 -XW FOR INITIALIZING ERROR 

-SEARCH 
CW,X ZEROS, 3, X MSG CW(.25)1 -CW FOR LOWER CONSOLE REGISTERS 


11000228 
11000229 
11000230 
11000231 
11000232 




3S* 


000247.00 


000000.00+ 000 


000012 


OOCOOO 


X 


MSG 


CW 


CW,0, 


10, C -CW FOR ERROR MSG 


11000233 


20 
19 
18 


36* 
37* 
3E* 
3S* 
4C* 


000250.00 * 
000253.00 

000057.40+ 
001156.40+ 


CCCCC3.00 
CCC000.00+ oco 

+0CC00000 
+0CC000G0 


000000 

BU 

BU 


000000 

,40 ,10 
,40 ,10 


X 

X 

X 
X 


LR 
ERR CW 

ERR 01 
ER 21A 


DR(EU,64), (3) -ZERO WORDS FOR CONSOLE LR 
CW,C - SLOT FOR COPIED CW 
-ERROR CODE ADDRESS EQIVALENCIES 
SYN,X7 1 
SYN,X IC AA 


11000234 
11000235 
11*000236 
11000237 
11000238 


17 


41* 


000105.00+ 


+0CC00CCC 




BU 


,40 


,10 


X 


ERR 


06 


SYN,X9 A 1 


11000239 


16 
15 
14 
13 
12 


42* 
42* 
44* 
45* 
46* 


00C63C.C0+ 
000706.40+ 
001440.40+ 
001452.00+ 
001604.40+ 


+00CC0CCC 
+00000000 
+OCCOOOCO 
+OCGOOOCC 
+OOCOOCCC 




BU 
BU 
BU 
BU 
BU 


,40 
,40 
.40 
,40 
,40 


,10 
,10 
tlO 
,10 
,10 


X 
X 
X 
X 
X 


ERR 
ERR 
ERR 
ERR 

ERR 


11 
17 
22 
23 
27 


SYN,X10 5 
SYN,X13 5 
SYN,X22 3 
SYN,X23 4 
SYN,X32 2 


11000240 
11000241 
11000242 
11000243 
11000244 


11 


47* 


001613.00+ 


+OCCCGOCO 




BU 


,40 


,10 


X 


ERR 


28 


SYN,X323A 


11000245 


10 
9 
8 
7 
6 




5 




4 
3 

1 
1 


























• 



wai 



TIME CLOCK 0CC54C41 



PUNID 11E1LBSP 



CARD ID 11000247 



CIST. OF 3/C1 



3/OL 



PAGE NUMBER 



_ L _1NE_ LOCATION BINARY OUTPUT NAME STATEMENT LOCATION 



1* 
2 * 

2 * 
i « 



-»**»*******#«**************#*******#*****#«#***»»*****•*»♦##*»# 



AREA CONTAINING ERROR MESSAGES 



•«»««***»****#»***»***#**»*»«*#**«*»«*«»»#***#»#**»»*#***»«#*** 



11C00247 
11000248 
11000249 
11000250 



I * 

6 * 00 2 54" 

7* 000254. 
e* 00C254, 
9* 000254, 



00 + 

cc 

10 
20 



+0CC000CC 



NULL 



X MSG 00 



375 
002 



CNOP 
~SYN, $" 

CD(BU, 8), (2)1111 1101 
DD(BU,8) , (2)C000G01C 
( IQS*)CC(BU,64,8),0C000C, 



-CONTROL CODE * CARRIAGE RETURN 
■RED$ 
0* -SLOT FOR ERROR ADDRESS 



AC* 0002 55. 20 ( IQS*)DD(BU,64,8), EKJ ON CCW OF IPL CW* 



110002 51 
110002 52 
11000253 
11000254 
11000255 
11000256 



1_* 
12* 
12* 
14* 
15* 
16* 



0CC257.7C 

OCC260.CO+ 

000260. CO 
000260.10 
000260.20 



+OCCOOOG0 



NULL 



376 



375 

002 



X MSG 01 



OD(_BUi 8), {2)1111 11 10 
"CNOP 
SYN, $ 

D0(BU,8), (2) 1111 1101 
0D(BU,8), (2)0C0CCC1C 



-CONTROL CODE * END OF MESSAGE 



-CONTROL 
-RED$ 



CODE * CARRIAGE RETURN 



11000257 
110002 58 
11000259 
11000260 
11000261 



( IQS*)DD(BU, 64, 8) ,000000.0* -SLOT FOR ERROR ADDRESS 11000262 



l'*_0CC261.20 UQS*)CD(BU,64, 8), EKJ DETECTED IN 10 TEST ROUTINE * ~~ " " '__ 11000263" 

1£* 000265.30 376 D0(fiU,8),(2) 1111 1110" -CONTROL CODE "*END OF MESSAGE" 11000264" 

19* 000265.40 000000.30 00 CNOP 11000265 

2C* 00C266.CC+ +OCCCOOCO NULL X MSG 02 SYN,$ 11000266 

21* 000266.00 375 DO ( BU, 8 ) , ( 2 ) 1 1 1 1 1101 -CONTROL CODE * CARRIAGE RETURN 11000267 

2l*_0CC266_._lC _002_ CD ( PU_8 ) , ( 2 ) GCGCCC 1C _r"_ RED A_ _ _ _U?00268 

22* 00C266.2C* __ { fgS* ) DC { BU, 64, 8 ) , CCOOOC . C*~ -SLC f FOR ERROR ADDRESS " "" 11000269 



24* 000267.20 
25* 0GC273.30 
26* 000273.40 
27* 000274. CC+ 
2£* 000274. CO 



IN 10 TEST ROUTINE* 
CODE *END OF MESSAGE 



000000.30 
+0CC000CC 



GO 



NULL 



{ IQS*)DD(BU,64,8) , LNRJ DETECTED 
376 0U(BU,8),(2) 1111 1110 -CONTROL 

CNOP 
X MSG 03 SYN,$ 
375 DD(BU,8), (2) 1111 11C1 -CONTROL CODE * CARRIAGt RETURN 



11000270 
11000271 
11000272 
11000273 

11000274 



2_* 000274.10 
3C* 000274. 2C~" 
31* 000275.20 
32* 000301.30 
33* 000301.40 * 
34* OCC302.CC+ 



002_ DD(6U,8), (2)00000010 -RED$ _ 

( IGS*)DD(BU,64,8l,CCC000Y0*" -SLOT FOR ERROR" ADDRESS 
( IQS*)DC(BU,64,8), CBJ DETECTED IN 10 TEST ROUTINE * 
DD(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 
CNOP 
X MSG 04 SYN,$ 



11000275 
11000276 
11000277 
11000278 
11000279 
11000280 



20 
19 

( IS 
17 
16 

( 15 
14 
13 

{, 12 
11 
10 

i ? 
8 
7 

( 6 
5 
4 

C 3 
2 



376 



000000.30 
+0CCCOGCC 



00 



NULL 



_ 3 _-_*_0°C302.CC 375 CD( BU, 8), ( 2 ) I 1 1 1 " 1 101 -CONTROL CODE * CARRIAGE RETURN " "11000281 



36* 000302.10 
37* 000302.20 
36* 000303.20 
39* 000307.10 
4C* 0CC307.40 



002 



376 



C0CCC0.30 CO 



DDteU, 8), (2)00000010 -REDS 

( IQS*)DD(BU,64,8),0CGOOC.O* -SLOT FOR ERROR ADDRESS 

( IQS*)DC(BU,64,8), EKJ ON CCW IN 10 TEST ROUTINE * 

DD(BU,8|, (2) 1111 1110 -CONTROL CODE *END OF MESSAGE 

CNOP 



11000282 
11000283 
11000284 

11000285 
11000286 



41* _00C31C.C0+ 
42* 00C31C.CC 
43* 000310.10 
44* 0CC31C.20 
45* 000311.20 
46* 000314.30 



+OCGOCOGC 



NULL 



X MSG 05 



S_Y_I_ L __ 

DD(BU,8), (2) 1111 1101" -CONTROL CODE * C ARR I AGE" ~R~ETUW 

DD(BU, 8), (2)00000010 -RED$ 

( IQS*)CC(BU,64 f 8),OCCCO0.O* -SLOT FOR ERROR ADDRESS 

( IQS* )CD(BU,64,8), UNSUCCESSFUL COMPLETION * 

DD(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 



11000287 

11000288" 

11000289 

11000290 

11000291 

11000292 



375 

002 



376 



4 7* _O0C3.14_.40__ 
46* O0C315.00+ 
49* 000315.00 
5C* 000315. 10 
51* 000315.20 * 



_o_o_qc_cq._30 

+0CCC00C0 



oo 



CNOP 

X MS 05A~SYN,$ 

DDIBU, 8), (2)1111 1101 -CONTROL CODE * CARRIAGE RETURN 

DD(BU, 8), (2)00000010 -REO$ 

( IQS*)DC(BU,64,8),CC0CCC0* -SLOT FOR ERROR ADDRESS 



11000293 
"11000294" 
1100029b 
11000296 
11000297 
11000298 



NULL 



375 

002 



52*_00C316.2C ( IQS* ) DC { BU, 64, 8 ) , EKJ IN SPACING OVER EOF* 



5 2___Cp321_.20__ 376 DD__U_____2_ 111 1 __1_1_1_0__ _~C _NT_CL_CGD__*_ END_OF_ M_E_S_S>_GE_~ 

54* 000321.40 000000.30 CO CNOP 

55* 000322. C0+ +CCCCOOCO NULL X MS 05B SYN,$ 

56* 000322.00 375 DD ( BU, 8 ) , ( 2 ) 111 1 1101 -CONTROL CODE * CARRIAGE RETURN 



11000299 
11000300" 
11000301 
11000302 



wai 





TIME CLOCK 00054041 PUNID 11E11BSP 


CARD 


IC 


11000303 


DIST 


. OF 3/C1 


3/01 


PAGE NUMBER 10 






LINE LOCATION 


BINARY 


OUTPUT 






NAME 




STATEMENT 






LOCATION CC0322 






1* 


0CC322. 


,10 






002 








DDteu 


.81, 


(2)00000010 


-RED$ 




11000303 




2* 


000322, 


,20 














{ IQS* 


)DC(BU,64,8) 


,CCCOOO 


.0* -SLOT 


FOR ERROR ADDRESS 


11000304 




" * 


000323. 


.20 














( IQS* 


)DD(BU,64,8) 


, UNRJ 


IN SPACING 


OVER EOF* 


11000305 




4* 


0CC326. 


30 






376 








OLHtsU 


,8), 


(2) 1111 


11 IC 


-CONTROL 


CODE * END OF MESSAGE 


11000306 




5* 


000326. 


40 


000000.30 CO 












CNOP 












11000307 




6* 


000327 


.00 + 


+OCCCOOCC 


NULL 




X 


MS 


35C 


SYN,$ 












11000308 




7* 


000327. 


CO 






375 








CD(BU 


,8), 


(2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000309 




£* 


000327. 


10 






002 








DD(BU 


,8), 


(2)O0O0C01C 


-RED$ 




11000310 




9* 


000327. 


20 














( IQS* 


)DC(BU,64,8) 


,000000 


.0* -SLOT 


FOR ERROR ADDRESS 


11000311 




1C* 


000330. 


.20 * 














( IQS* 


)CC(BU,64,8) 


, CBJ IN SPACING 


OVER EOF* 


11000312 




11* 


000333. 


20 






376 








DDIBU 


f 8), 


(2)1111 


1110 


-CONTROL 


CODE * END OF MESSAGE 


11000313 




12* 


000333, 


.40 


C0CCC0.30 CO 












CNOP 












11000314 




11* 


000334. 


,00 + 


+OGCOOOOO 


NULL 




X 


MS 


D5D 


SYN,$ 












11000315 




14* 


000334, 


• CO 






375 








DD( RU 


,8), 


(2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000316 




15* 


0C0334. 


10 






002 








DD(BU 


,8), 


(2)00000010 


-RED$ 




11000317 




16* 


0CC334. 


20 














( IQS* 


)CC{BU,64,8) 


,000000 


.0* -SLOT 


FOR ERROR ADDRESS 


11000318 




17* 


00C335. 


.20 














( IQS* 


)DC(BU,64,8) 


, EKJ OE CCW IN TEST OF SPACE FILE* 


11000319 




le* 


000341, 


.30 






376 








CD( BU 


,8), 


(2)1111 


1110 


-CONTROL 


CODE * END OF MESSAGE 


11000320 




19* 


0C0341, 


.40 


000000.30 00 












CNOP 












11000321 




2C* 


000342. 


.00 + 


+CCC0C000 


NULL 




X 


MS 


35E 


SYN,$ 


• 










11000322 




21* 


000342, 


.00 






375 








DD( BU 


,8), 


(2) 1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000323 




22* 


0CC342, 


.10 






002 








0D(8U 


,8), 


(2)00000010 


-RED$ 




11000324 




22* 


0CC342. 


.20 














( IQS* 


)DD(BU,64, 8) 


,OCCCCC 


.0* -SLOT 


FOR ERROR ADDRESS 


11000325 




24* 


000343. 


20 * 














( IQS* 


)CC(BU,64,8) 


, SPACE 


EOF OPERATION IN ERROR* 


11000326 




25* 


000346, 


.70 






376 








DD( BU 


,8), 


(211111 


1110 


-CONTROL 


CODE * END OF MESSAGE 


11000327 




26* 


















CNOP 












11000328 




27* 


000347, 


.00 + 


+0CCG00C0 


NULL 




X 


MSG 


06 


SYN,$ 












11000329 




2k* 


000347. 


CO 






375 








DD(BU 


,8), 


(2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000330 




29* 


0CC347, 


.10 






002 








DDieu 


,8), 


(2)00000010 


-RED$ 




11000331 j 




3C* 


0CC347. 


.20 














{ IGS* 


)DD(BU,64,8) 


.OCCCCC 


.0* -SLOT 


FOR ERROR ADDRESS 


11000332 




31* 


00C35C. 


20 














( IQS* 


)DD(BU,64,8) 


, EKJ ON READ OF 


SOURCE TAPE * 


110003 33 




32* 


000353, 


,60 






376 








DD(BU 


,8), 


(2) 1111 


1110 - 


-CONTROL CODE *END OF MESSAGE 


11000334 




33* 


















CNOP 










* 


11000335 




34* 


000354, 


.00 + 


+OOCOOOCC 


NULL 




X 


MSG 


07 


SYN,$ 












11000336 




35* 


000354. 


CO 






375 








DDIEU 


,8), 


(2) 1111 


1101 


-CONTROL 
-RED*~~ 


.0.QOE * CARRIAGE R_E_TU_R_N 


11000337 
11000338' 




36* 


0CC354. 


10 






002 








DDIEU 


,8), 


(2)00000010 




37* 


000354. 


.20 














( IQS* 


)CD(BU,64,8) 


,000000 


.0* -SLOT 


FOR ERROR ADDRESS 


11000339 


20 


38* 


000355, 


,2C * 














( IQS* 


)DC(BU,64,8) 


, UNRJ ON READ OF 


SOURCE TAPE * 


11000340 


19 


39* 


000360. 


70 






376 








DD(BU 


,8), 


(2) 1111 


1110 - 


-CONTROL CODE *END OF MESSAGE 


11000341 


18 


4C* 


















CNOP 












11000342 


17 


41* 


000361. 


.00 + 


+OCCCOOCC 


NULL 




X 


MSG 


08 


SYN,$ 












11000343 


16 


42* 


000361. 


.CO 






375 








CD(EU 


,8), 


(2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000344 


15 


43* 


GCC361, 


.10 






002 








DD(BU 


,8), 


(2)00000010 


-RED$ 




11000345 


14 


44* 


000361. 


.20 














( IQS* 


)DD(BU,64,8) 


,000000 


.0* -SLOT 


FOR ERROR ADDRESS 


11000346 


13 


45* 


000362. 


.20 














( IQS* 


)CC(BU,64,8) 


, CBJ ON READ OF 


SOURCE TAPE * 


11000347 


12 


46* 


000365, 


.60 






376 








DD(BU 


,8), 


(2) 1111 


1110 - 


-CONTROL CODE *END OF MESSAGE 


11000348 


11 


47* 


















CNOP 












11000349 


10 


4e* 


000366. 


.00 + 


+OCCOOOCO 


NULL 




X 


MSG 


09 


SYN,$ 












11000350 


9 


49* 


000366. 


.CO 






375 








DD< BU 


,8), 


(2) 1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000351 


8 


5C* 


000366. 


.10 






002 








DD(BU 


,8), 


(2)00000010 


-RED$ 




11000352 


7 


51* 


000366. 


20 














{ IQS* 


)DC(BU,64,8) 


,000000 


.0* -SLOT 


FOR ERROR ADDRESS 


11000353 


6 


52* 


0C0367. 


20 * 














( IQS* 


)CC(BU,64,8) 


, EKJ ON CCW ON SOURCE TAPE CHANNEL * 


11000354 


5 


53* 


000373, 


.50 






376 








DD( RU 


,8), 


(2) 1111 


1110 • 


-CONTROL CODE *END OF MESSAGE 


11000355 


4 


54* 


















CNOP 












11000356 


3 


55* 


0CC374. 


.00 + 


+OCCCOOOO 


NULL 




X 


MSG 


10 


SYN,$ 












11000357 


2 

1 


56* 


000374 


.00 






375 








DD{ BU 


,8), 


(2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000358 



wai 



TIME CLOCK CCG54G41 



PUNID 11E11BSP 



CARD ID 11000359 



OIST. OF 3/01 



3/01 



PAGE NUMBER 



11 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



000374 



1* 000374.10 
2* 000374.20 

2* 000375.20 
4* 0CC402_._2_0_ 
5* 000402.40 



002 



3 76 



C0C000.3G CO 



DD(BU, 8) , (2)00000010 -RED$ 

( IQS*)DD{BU,64,8),OCOCOC.O* -SLOT FOR ERR8R ADDRESS 
{ IQS*)DC(8U,64,8), UNSUCCESSFUL COMPLETION OF MCP IPL 
DD£RU 1 8_) 1 j2)_ll_l_l 1110 -CONTROLCCDE *END__OF MESSAGE 
"C NO P 



READ* 



11000359 
11000360 
11000361 

11000362 
11000363 



6* 000403. CG+ 

7* 000403.00 

8* 000403.10 

9* 000403. 2C 

1C* 000404.20 * 



+0CCC00CC 



NULL X MSG 11 SYNtt 

375 00(BU,8)t (2)1111 1101 -CONTROL CODE » CARRIAGE RETURN 

002 DD(BU, 8), (2)00000010 -RED$ 

( IQS*)DC(BU f 64, ei.OCOOOC.O* -SLOT FOR ERROR ADDRESS 
( IQS*)DD(BU,64,8) , EKJ ON DISK OPERATION * 



11* 000407.10 



376 



0D(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 



11000364 
11000365 
11000366 
11000367 

11000368 
"11000369" 



12* 000407.40 

13* 000410.00+ 

14* 00C41C.CC 

15* 000410.10 

16* 0CC410.20 



O0CC0O.3"0 CO "' ~ " ~ "" CNOP 

+OCCOOOOG NULL X MSG 12 SYN,$ 

375 DD(EU, 8), (2)1111 1101 -CONTROL CODE 

002 DD(BU, 8), (2)00000010 -RED$ 

! IQS*)D0(BU,64 t 8),0CGC00.0* -SLOT FOR 



* CARRIAGE RETURN 
ERROR ADDRLSS 



11000370 
11000371 
11000372 
11000373 

11000374 



17* 000411.20 



( IQS*)DD(BU,64,8)» UNRJ ON DISK OPERATION * 



11000375 



18* 000414.20 
19* 000414.40 
2C* 000415.00+ 
21* 000415. CO 
22* 000415. 10 



OOCC00.30 
+00000000 



CO 



NULL 



376 



375 

002 



DD(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 
CNOP 
X MSG 13 SYN,$ 

DD(BU, 8), (2)1111 1101 
DD(BU,8), (2)0000001C 



-CONTROL 

-REDS 



CODE * CARRIAGE RETURN 



11000376 
11000377 
11000378 
11000379 

11000380 



23* 000415^.20 

2 4* 000416.20" 

25* 000423.40 

26* 

27* 

2£* 



(_I_QS*)QDIBUi6A,8_)_ f _0CC_0_0_0_.0_*_ -SLQ.I FC :^_ £R ?Q R ^ A 9P? tSS 11000381 

( I~QS*)DC(BU,64,8), UNSUCCESSFUL CCMPLEf ION OF LOCATE" TO I DISK* 11000382 

DD(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 11000383 

CNOP 11000384 

X MSG 14 SYN,t 11000385 

DD( BU, 8), (2)1111 1101 -CONTROL CODE * CARRIAGE RETURN 11000386 



C0C424.C0+ 
00C424.CC 



+0CC00000 



NULL 



376 



375 



29* 000424.10 



002 



DD(BU,8), (2)00000010 



-RED$ 



11000387 



3C* 0CC424.20 

31* 000425.20 

3i* 000431.00 

33* 000431.40 

34* 000432.00+ 



376 



00CCG0.30 
+OCCCOOCO 



00 



NULL 



X MSG 15 



( IQS*)0C(flU,64,8) ,OCCCCC.Q* -SLOT FOR 
( I0S*)DD{BU,64,8), EKJ ON CCV* ON DISK 
D0(BU,8),(2) 1111 1110 -CONTROL CODE 
CNOP 
SYN,S 



ERROR ADDRESS 
OPERATION * 
•END OF MESSAGE 



11000388 
11000389 
11000390 
11000391 
11000392 



35* 000432.00+ 



+CCCCOOCO 



NULL 



X MSG 16 SYN,t 



11000393 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
38* 
39* 
4C* 



000432. CC+ 
00C432.CC+ 
000432.00 
000432.10 



+OCCCOCCC 
+OCCOOOCO 



NULL X MS 16A SYN,$ 
NULL X MS 16B SYN,$ 

375 OD(BU, 8), (2)1111 1101 -CONTROL CODE * CARRIAGE RETURN 

002 DD( BU»B)t (2)00000010 -RED$ 

( IQS*)DC(BU,64,8),CC0C0G.C* -SLOT FOR ERROR ADDRESS 



11000394 
11000395 
11000396 
11000397 
11000398 



41* 000433.20 < 
"42* 000437.00 
43* 000437.40 
44* 000440.00+ 
45* 00044C.00 
46* 000440.10 



( I Q S *)DD[BU,64»8_), WRITE _DI_S_K. _0P E R AT ION IN E R RG R * 

DD(BU,8), (2) 1111 1110 -CONTROL CCDE * END OF MESSAGE 
CNOP 
X MS 16C SYN,5> 

DD(BU, 8), (2)1111 1101 -CONTROL CODE * CARRIAGE RETURN 
( IQS*)DC(BU,64,8),0CCC00.0* -SLOT FOR ERROR ADDRESS 



11000399 
"11000400" 
11000401 
11000402 
11000403 
11000404 



COCC00.30 
+OCCCOOGC 



CO 



NULL 



376 



375 



^1*_QC0441_._10_ 

48* 00G443.70 

49* 

5C* 00C444.0C+ 

51* 000444.00 

52* 000444. 1C 



( IQS*)DC(8U,64,8), NO IOCD CARD DETECTED* 



11000405 

11000406" 

11000407 

11000408 

11000409 

11000410 



+0CC000C0 



NULL 



376 



375 

0C2 



0D(BU,8) , (2) 1111 1110 
CNOP 
X MSG 17 SYN,$ 

DDIBU, 8), (2)1111 1101 

DD(BU,8), (2)00000010 



-CONTROL CODE * END OF MESSAGE 



-CONTROL 
-RED$ 



CODE * CARRIAGE RETURN 



5 2 *_ 00 0444.20 
54* 000445.20 
55* 000450.00 
56* 000450. 4C 



LLQS*1DD(BU:,64,8) _» OCOCO C_._0_ * _- SLOT ^.FCR_ ERROR_ App_R_E_S_S_ 
~( IQS*)CC(BU.64,8},~ fcRCNG EQUIPME'KT CCDE * 
DD(BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 
CNOP 



11000411 
ll660412" 
11000413 
11000414 



376 



OOCC00.30 CO 



Wfll 





TIME CLCCK 00054041 PUNID 


11E11BSP 


CARD 


ID 


11000415 


CIST. OF 3/01 


3/01 




PAGE NUMBER 12 






LIN 


l LOCATION 


BINARY 


OUTPUT 






NAN. 






STATEMENT 








LOCATION 000451 






1* 


000451 


.00 + 


+0CCC0CCC 




NULL 




X 


MSG 


18 


SYN,$ 












11000415 




2* 


000451 


.CO 








375 








DD(BU 


,8), (2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000416 




3 * 


00C451 


.10 








002 








DD! BU 


,8), (2)00000010 


-RED$ 






11000417 




4* 


0C0451 


.20 * 
















! IQS* 


)CDtBU,64,8) 


,000000 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000418 




5* 


000452 


.20 
















( IQS* 


)DD(BU,64,8) 


, 10 CONFIGURATION DEFINED INCORRECTLY * 


11000419 




£* 


000457 


.00 








376 








DU(BU 


,8),t2) 1111 


1110 - 


-CONTROL CODE 


*ENC OF MESSAGE 


11000420 




1 * 


000457 


.40 


CCCC0C.30 


CO 












CNOP 












11000421 




£* 


000460 


.00 + 


+0CC00CC0 




NULL 




X 


MSG 


19 


SYN,$ 












11000422 




9* 


00046C 


.CO 








375 








DD(BU 


,8), {2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000423 




1C* 


0CC46C 


.10 








002 








DD(8U 


,0), (2)00000010 


-REDS 






11000424 




11* 


000460 


.20 
















( IQS* 


)0C(BU,64,8) 


,000000 


.0* -SLOT 


FCR 


ERROR ADDRESS 


11000425 




12* 


000461 


.20 
















{ IQS* 


)CC(BU,64,8) 


, INCORRECT CARD 


TYPE * 


11000426 




13* 


000463 


.70 








376 








DD(BU 


,8), (2) 1111 


1110 • 


-CONTROL CODE 


*END OF MESSAGE 


11000427 




14* 




















CNOP 


i 










11000428 




15* 


000464, 


.00 + 


+CCC0O000 




NULL 




X 


msg 


20 


SYN,$ 












11000429 




16* 


000464 


.00 + 


+OCCCOOGC 




NULL 




X 


MS 2LA 


SYN,$ 












11000430 




17* 


000464 


.00 








375 








CD(EU 


,8), (2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000431 




le* 


0CC464, 


. 10 








002 








DD{ BU 


,8), (2)00000010 


-RfcD$ 






11000432 




19* 


000464, 


.20 * 
















( IQS* 


)DC(8U,64,8) 


,CC000C 


.0* -SLOT 


FCR 


ERROR ADDRESS 


11000433 




2C* 


000465. 


.20 
















{ IQS* 


)CD(BU,64,8) 


, EKJ OF CCfc IN 10 STATUS REPORT ROUTINE* 


11000434 




21* 


000472, 


. 10 








376 








DD(BU 


,8), (2)1111 


1110 


-CONTROL 


CODE * END OF MESSAGE 


11000435 




22* 


000472. 


.40 


CCCCCC.30 


CO 












CNOP 












11000436 




23* 


000473 


.00 + 


+CCCOOGCC 




NULL 




X 


MSG 


22 


SYN,$ 












11000437 




24* 


000473, 


.CO 








375 








DD(BU 


,8), (2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000438 




21* 


000473. 


.10 








002 








DD(BU 


,8), t2)0000001C 


-RED$ 






11000439 




26* 


0CC473. 


.20 
















( IQS* 


)CC(BU,64,8) 


.CCOOOC 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000440 




27* 


0GC474. 


.20 
















(IQS* 


)DC(BU,64,8) 


, INCORRECT CARD 


TYPE WITHIN IODS * 


11000441 




26* 


00C50C. 


.30 * 








376 








DD(BU 


,6), (2) 1111 


1110 ■ 


-CONTROL CODE 


♦END OF MESSAGE 


11000442 




29* 


0CC5CC. 


.40 


C0GCC0.3O 


00 












CNOP 












11000443 




3C* 


0CC5C1. 


.00 + 


+OCCCOCCO 




NULL 




X 


MSG 


21 


SYN,* 












11000444 ' 




31* 


00C501. 


.00 + 


+OCCOOGCC 




NULL 




X 


MSG 


23 


SYN,* 












11000445 




32* 


000501. 


• CO 








375 








DD(BU 


,8), (2)1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000446 




33* 


0GC5C1, 


10 
















( IQS* 


)DD(BU,64,8) 


,O0OO0C 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000447 




34* 


0CC502, 


10 
















( IQS* 


)CC(BU f 64,8) 


, 10 RE* 


wUIREMENTS 


REJECTED * 


11000448 




35* 


000505. 


.30 








376 








CD( PU 


,8), (2) 1111 


1110 - 


-CONTRGL CODE 


*END OF MESSAGE 


11000449 




36* 


000505. 


.40 


000000.30 


CO 












CNOP 












11000450 




37* 


000506. 


.00 + 


+OCCCOOOO 




NULL 




X 


MSG 


24 


SYN,$ 












11000451 


20 


38* 


0C0506. 


.00 








375 








DDieu 


,8), (2)1111 


11C1 


-CONTROL 


CODE * CARRIAGE RETURN 


11000452 


19 


39* 


000506. 


.10 








002 








COfBU 


,8), mccoecoic 


-RED$ 






11000453 


18 


AC* 


00C506. 


.20- 
















( IQS* 


)DD(BU,64,8) 


,0C0C0C 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000454 


17 


41* 


000507, 


20 
















( IQS* 


)DD(BU,64,8) 


, 10 ASSIGNMENTS 


CAN 


NCT BE MADE * 


11000455 


16 


42* 


000513. 


20 








376 








DDtBU 


,8), (2) 1111 


1110 - 


-CONTROL CODE 


*END OF MESSAGE 


11000456 


15 


43* 


00C513. 


.30+ 


+OCCOOOCC 




NULL 




X 


MSG 


25 


SYN,$ 












11000457 


14 


44* 


000513. 


.40 * 


000CC0.30 


CO 












CNOP 












11000458 


13 


45* 


000514. 


00 








375 








DDtBU 


,8), (2) 1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000459 


12 


46* 


000514. 


10 








002 








DD( BU 


,8) , (2)00000010 


-REDS 




F 


11000460 


11 


47* 


0CG514. 


.20 
















( IQS* 


)CC(eU,64,8) 


,CC000C 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000461 j 


10 


48* 


000515. 


20 
















( IQS* 


) DDtBU, 64, 8) 


, 10 TABLES CAN NOT BE FORMED * 


11000462 


9 


49* 


00C520. 


70 








376 








DDtBU 


,8), (2) mi 


1110 - 


-CONTROL CODE 


*END OF MESSAGE 


11000463 


8 


5C* 




















CNOP 




• 








11000464 


7 


51* 


000521. 


00 + 


+GCCC00C0 




NULL 




X 


MSG 


26 


SYN,$ 












11000465 


6 


52* 


00C521. 


00 








375 








DD(BU 


,8), (2) 1111 


1101 


-CONTROL 


CODE * CARRIAGE RETURN 


11000466 


5 


53* 


0CC521. 


10 








002 








ODtBU 


,8), (2)00000010 


-RED$ 






l~l660467 1 


4 


54* 


0CC521. 


20 
















( IQS* 


)DC(BU,64,8) 


,000000 


.0* -SLOT 


FOR 


ERROR ADDRESS 


11000466 


3 


55* 


000522, 


20 
















{ IQS* 


)DC(BU,64,8) 


, PROSA 


ARC COUNT 


INCORRECT * 


11000469 


2 

1 


56* 


000525. 


50 








376 








DDtBU 


,8), (2) 1111 


1110 - 


-CONTROL CODE 


♦END OF MESSAGE 


- 11000470 



wai 



TIME CLOCK 00054041 PUNID 11E11BSP CARD ID 11000471 DIST. OF 3/01 
LINE LOCATION BINARY - OUTPUT NAME STATEMENT 



3/01 



PAGE NUMBER 13 
LOCATION"" 



1* 

2 * 

1* 

'i* 



0CC526, 

O0C526 

000526 



CC + 

00 
1C 



+CCCOOOCO 



NULL 



X MSG 2 7 



375 

002 



CNO 
SYN 
DD( 
DD( 



P 
i * 



EU,8), 
BU,8), 



(2)1111 1101 
(2)0CGCCC1C 



-CONTRCL CODE 
•REDS 



* CARRIAGE RETURN 



11000471 
11000472 
11000473 

11000474 



£ « 
6* 
7* 
£* 
S* 
1C* 



0CC526, 

"00C527" 

000532 

000533, 

000533, 
000533" 



_?P__ 

20 * 
70 

00 + 
CO 



(_IQ 
( IQ 
DD( 
CNO 
SYN 
0D( 



S*1QD_C 

S*)CC{ 
BU,8) f 
P 

f* 
BU,8), 



BU_,64_,8) fCCCOGC.C* -SLQT FOR ERROR ADDRESS 

BU,64,8~f, >~CP~ PARAMETER INPUT" MISSING""* 

(2) 1111 1110 -CONTROL CODE *£ND GF MESSAGE 



(2)1111 1101 ."CONTROL CGUE_*_CARR_I_AG_E_ RETURN 

12) 1"0 " -RED $ 

EU,64,8"),CCC00C.C* -SLOT FCR ERROR ADDRESS 

BU,64,8), IMPOSSIBLE OPERATING MODE* 

(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 



110004/5 
11000476 
110004 77 
11000478 
11000479 
11000480 



+OCGC0OCC 



NULL 



376 



37' 



X MSG 28 



11* 
12* 
12* 
14* 
15* 
16* 



, 1 0_ _ 
.20 
20 
,40 

,CC + 
CO " 



002 



DDL 
"{ IQ 
I IQ 
DD{ 
CNC 
SYN 



eUt8) t 

S*)DD( 
S*)DD( 
BU,8), 
P 



11000481 
11000482 
11000483 
11000484 
11000485 
11C00486 



17* 
If* 
19* 
2C* 
21* 
22* 



000533 
000534 
000537 

00 05 4 

00C54C" 

0CC5~4C~ 

000540. 

000541 

000545, 



376 



+OCCCCCCC 



NULL 



X MSG 29 



375 

002 



376 



_DD( 
DD{ 
( IQ 
( IQ 
DDt 



BU,8_),(2_) 1111 11C1 ."CONTROL CODE * CARRI AGJ_ RJEJjJRN _ 11000487 

BU,8), (2)0000C01C~ -RED$" " ~ " " " "" 11000488" 

S*)0C(BU,64,8),CC0000.0* -SLOT FOR ERROR ADDRESS 11000489 

S*)DD(8U,64,8), SPOOL INPUT ASSIGNMENTS NOT MADE * 11000490 

BU,8),(2) 1111 1110 -CONTROL CODE *END OF MESSAGE 11000491 

***»#***#*#»»#*»»«»***«**♦*****»#*#********»*«****#»***#««•* 11000492 



10 
20 

20 * 
40 



23* 
21 * 
2E* 
26* 
27* 
2E* 



BOOTSTRAP DEFINITIONS 



11000493 

11000494" 

11000495 

11000496 

11000497 

11000498 



000546.00 CCC0CC.00+ 000 000000 OOOCOO 
000561. CC+ -OOCOCCCC BU,40 ,10 
0OCOCC.0O+ +CGCC00C6 BU,05 ,10 



X S ROOF XW,0 -TEMP STORE FOR SIZE OF 7030 

X IPL K SYN, 1.0 + X BS END - X IPLBS - SIZE OF BOOTSTRAP 
X EE ECP SYN(BU, 5), (2)00110 - EOF STATUS BITS 



2_i* 
3C* 
31* 
32* 
32* 
34* 



11000499 

11000500" 

11000501 

11000502 

11000503 

110C0504 



IPL BOOTSTRAP PARAMETERS 



C NOP 

A1*_C vO_,"29 L XW^INC^ 
XW f XI PLK + 33, 0,20.0 " 
VF,G 
SYN,X IN END+ 2000. C 



20 
1? 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



A 5 _* _0?C547.CC _ C C C C C_._0_C_+ 
36* 000550.00 " 000622.00+"" 
37* 000551.00 CC0CCC.00+ 
3£* 011406.00+ +00C000C0 



COO 
"0 00" 



000035 
000024 



0C0550 
000000" 



NULL 



XW SR 
XI* IND 
X ERR AD 
X BUFER 



-XVv 



r_ x „ w _ _ F _°A _ C L EAR IN G_LR_ANp_Tw_ 

FOR CLEARING NCN MASKABLE INDIC 

-LOCATION OF ERROR +1.0 

- SLOTS LEFT FOR IOCD + IODS 



AND 



110005 05 

"11000506 
11000507 
11000508 



wai 



TIME CLOCK 00054041 



PUNID 11E11BSP 



CARD ID 11000510 



OIST. CF 3/01 



3/01 



PAGE NUMBER 14 

Loc aTi on" 



LINE 



LCCATICK 



BINARY CUTPUT 



NAME 



STATEMENT 



1« 
2* 

■- * 

4* 000552. CO 



0114C6.00+ 110 001001 000553 



— »**#«»•»********#«##*****#*#*»***»«*****»*«■*»»««****»**«******#«****»* 11000510 

PRCSA CWS 11000511 

— ****ft**»«tt*****tt******ft*fttt*****#****tt*»**ft**»«»«****«*«tt»***tt*tt**«*** 11000512 
X PROSA CWtCDSC), C +X BUFER , 5 1 3 , $+1 . C -FETCH ONE PROSA RECORD 11000513 



5* 

i* 

£* 

S* 

1C* 



0C5 53 
000554 
000555 
000556 
00C557 
000560 



.0C___ 

".CO 

.00 

.00 * 

.CO 

.CO 



_C_1 2 4 C 6 . 
0134C6. 
0144C6. 
0154C6. 
C164C6. 
0174C6. 



00 + 
00 + 
00 + 
00 + 
00 + 
00+ 



UP. 
no 

110 
110 
110 
110 



CO 1001 

ooiooi" 

001001 
001001 
001001 
001001 



0C_C5_54_ 

000555 

0CC556 

000557 

000560 

0CC561 



CWLQQSC 
CWtCDSC 
CWtCDSC 
CW(CDSC 
CWtCDSC 
CWtCDSC 



512. 



+ X B U FE R , 
+~X BUFER, 
+X BUFER, 
+X BUFER, 
+X BUFER, 
+ X BUFER:, 



bl3,$+l. 
513,~$+l". 
513, $+1. 
513, $+1. 
513, $+1. 
5_1_3_,_S + 1. 



-FETCH 



ONE 

ONE" 

ONE 

ONE 

ONE 

ONE 



PROSA 

PRCSA 

PROSA 
PROSA 
PROSA 
PROSA 



RECORD 
"RECORD 
RECORD 
RECORD 
RECORD 
RECORD 



1 1000 514 

11000515" 

11000516 

11000517 

11000518 

11000519 



1024. 
1536. 
2048. 
2560. 
3072. 



-FETCH 
-FETCH 
-FETCH 
-FETCH 
-FETCH 



lit 
12* 
12* 
14* 
15* 
16* 



Q0C561 
000562 
000 563 
000564 
000565 
000566 



.00 
.00 
.00 
.CO 
.00 
.00 



C2C4C6. 
021406. 
C224C6. 
0234C6. 
0244C6. 
0254C6. 



oo+ 

00 + 
00 + 
00 + 
00 + 
00 + 



110 
110 

no 
no 

no 



ooiooi 

001001 
OOIOOI 
OOIOOI 
OOIOOI 
OOIOOI 



000562 
0C0563 
000564 
000565 
000566 
000567 



CW(_CDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 
CW(CDSC 
CWICDSC 



3584. 



+ X 

+x~ 

+ X 
+ X 

+ x 
+ x 



BUFER, 
BUFER, 
BUFER, 
BUFER, 
BUFER, 
_BUFER_, 



513,$+1. 
513, $ + 1. 
513, $+1. 
513, $+1. 
513, $+1. 
513, i + 1. 



O-FETCH ONE 
-FETCh ONE" 

-FETCH 

-FETCH 

-FETCH 

-FETCH 



PROS_A 
PROSA 
PRCSA 
PROSA 
PROSA 
PROSA 



RECORD 
RECORD 
RECORD 
RECORD 
RECORD 
RECORD 



11000520 
11000521 
11000522 
11000523 
11000524 
11000525 



4096. 
4608. 
5120. 
5632. 
6144. 



ONE 
ONE 
ONE 

ONE 



II* 
IE* 
IS* 
2C* 
21* 
22* 



0G0567 
00057C 
000571 
000572 
000573 
000574 



._0_0_ 

.CO 

.00 

.00 

.CO 

.00 



_C_2_64_C6_. 
0274C6. 
C3C4C6. 
C314C6. 
032406. 
033406. 



oo+ 

00 + 
00 + 
00 + 
00 + 
00 + 



1 10 
110 
110 
110 
110 
110 



ooiooi 

001001 
OOIOOI 
OOIOOI 
OOIOOI 
OOIOOI 



PPC5_7_0_ 

000571 

0CC572 

000573 

000574 

0C0575 



C*HCDSC 
CW(CDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 



6656. 



+ ABJ1F_ER, 
+X BUFER, 
BUFER, 
BUFER, 
BUFER, 



f>.l 3 ,_$ + !• 
513, $+1. 
513, $+1. 
513,$+!. 
513, $+1. 
+ A B U F E Rj_5_i_3_»AtL» 



C-FETCH N E_ P R OS A _R EC0RJ3 
-FETCH ONE PROSA RECORD 
-FETCH ONE PROSA RECORD 
-FETCH ONE PROSA RECORD 
-FETCH ONE PROSA RECORD 
-FETCH CNE PROSA REXORD 



11Q00526 
11000527 
11000528 
11000529 
11000530 
11CC0531 



7168. 
7680. 
8192. 
8704. 
9216. 



+ X 
+ X 
+ X 



22*. 
24* 
25* 
26* 
27* 
2£* 



000575 
000576 
000577 
00C60C 
000601 
CCC602 



.00 
.CC 
.00 
.00 
.00 
.00 



_0_3_44_C_6_. 
C354C6. 
0364C6. 
037406. 
040406. 
041406. 



0_P_+_ 
00 + 
00+ 
00+ 
00 + 
00 + 



l_l_p 

110 
110 
110 
110 
110 



ooiooi 
ooiooi 

001001 
OOIOOI 
OOIOOI 
OOIOOI 



Q00576 
000577 
000600 
000601 
000602 
000603 



CW(CDSC 
CWICDSC 
CWtCDSC 
CWICDSC 
CW(CDSC 
CWICDSC 



9728. 



+ X 
+ X 
+ X 
+ X 
+ X 



BUf_ER_ f 
BUFER, 
BUFER, 
BUFER, 
BUFER, 
BUFER, 



5 l_l»A+A- 

513,$+!. 
513, $+1. 
513, $+1. 
513, $+1. 
513, $+1. 



-FETCH. ONE PROSA RECORD 

C -FETCH ONE PROSA RECORD 

-FETCH CNE PROSA RECORD 

C -FETCH CNE PROSA RECORD 

-FETCH ONE PROSA RECORD 

-FETCH CNE PROSA RECORD 



11000532 
11000533 
11000534 
11000535 
11000536 
11000537 



10240. 
10752. 
11264. 
11776. 

12288. 



2±* 
3C* 
31* 
32* 
33* 
34* 



000603 
000604 
000605 
0G0606 
00C607 
000610 



•CC 
.00 
.00 
.00 
.00 
.00 



04_24C6. 
043406. 
C444G6. 
C454C6. 
046406. 
047406. 



o_c_+ 

00 + 
00 + 
00+ 
00+ 
00 + 



110 
110 
110 
110 
110 
110 



OOIOOI 
OOIOOI 
OOIOOI 
C01001 
OOIOOI 
OOIOOI 



000604 
000605 
000606 
000607 
000610 
000611 



CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 



12 800. +X BUFER, 

+X BUFER, 

+X BUFER, 

+X BUFER, 

+X BUFER, 

+X BUFER, 



51 3_i A+_ l_-_°_ -J-A IC H _ C NE _ PROSA RECORD. 
513, $+1.0 -FETCH CNE PROSA RECORD 
513, $+1.0 -FETCH ONE PROSA RECORD 
5l3,$+l.C -FETCH ONE PROSA RECORD 
513, $+1.0 -FETCH ONE PROSA RECORD 
513, $+1.0 -FETCH ONE PROSA RECORD 



11000538 
110005 39 
11000540 
11000541 
11000542 
11000543 



13312. 
13824. 
14336. 
14848. 
15360. 



3_5_* 
36* 
37* 

38* 

3<;» 

4C* 



0QC611 
000612 
000613 
0CC614 
000615 
00C616 



±pg 

.00 
.00 
.00 
.00 
.00 



C_5C4C_6. 
051406. 
052406. 
C534C6. 
054406. 
055406. 



0_0A 
00 + 
00 + 
00 + 
00 + 
00 + 



U_0_ 

110 
110 
110 
110 
110 



co_iqoi 
ooiooi 

001001 
OOIOOI 
OOIOOI 
OOIOOI 



000612 
0CG613 
000614 
000615 
000616 
0CC617 



_c_w<_cusc 

CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 
CWtCDSC 



158 72.+X BUFER, 513,$+1.C -FETCH ONE PROSA RECORD 

16384. +X BUFER, 513, $+1.0 -FETCH ONE PROSA RECORD 

16896. +X BUFER, 513,$+-1.0 -FETCH ONE PROSA RECORD 

17408. +X BUFER, 513, $+1.0 -FETCH ONE PROSA RECORD 

17920. +X BUFER, 513, $+1.0 -FETCH ONE PROSA RECORD 

18432. +X BUFER,513,$+1.C -FETCH ONE PRCSA RECORD 



11000544 

11000545" 

11000546 

11000547 

11000548 

11000549 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



Alt 

42* 
42* 



Q0G617 
0CC62C 
0CC621 



•PP__ 
.CO * 
.00 + 



P_5_6APA« 

057406. 

+ 0000 



00+110 
00+ 000 
OOCO 



ooiooi 

001000 
NUL 



000620 
000621 
L 



CW (_CP_SC ) , 1 89 44 . + X 8 U F E_R_,_5 1 3 ,A + A«_0_ _-FE T.CH ONE PRO S A 
CWtCR), 19456. +X BUFER , 512 , $ + 1.0 -FETCH CHE PRGSA~RE 
SYN,$ - END OF THE MCP IPL BS RCU 



R_E_CO_R_D_ 

CORD AND STO 
TINE 



11000550 
11000551 
11000552 



X BS END 



wai 



TIME CLOCK 00054041 PUNID 11E11BSP CARE ID 12000001 DIST. OF 3/C1 
LINE L C A 11 C N ~~B I N A R Y OUTPUT " " "NAME STAT t M EN T 



3/01 



PAGE NUMBER 15 
L OC A Tl ON" " 



000621. CO 
00C631.34 



3* 
2* 

3* 

A* 
s * 

l * 

£* 

^* 

1C* 

11* "_" 
H* 
12* 
14* 

15**000621.00 
16* 0006 21.40 
17* 00 06 2 2. CO 

ie* 

000622.40 
000623.00 
000623.40 
000624.40 
000625. CO" 



PUNFUL 

(CC*)DD(BU, , 12), B 
ICC*)DC(BU, ,12), 

PUNCRG 



HED, REP, 11C11IPL, LOAD,, 

11C11IPL* 



12000001 
12000002 
12000003 
12000004 



punid, 11c11 ipl 
"reseg 
slc,x bs end 

— »**»***»****#»**#*»«*******»»*»«*»****»*♦*«****«**♦**»#*»«■»«*# 
-MCP INITIALIZATION 



12000005 
'120C0006" 
12000007 
12000008 
12000009 
12000010 



000621. OC 



-MOVE COMMUNICATION REGION TO IPL AREA AND POSITION DISK 



CNOP 
004645.00 00 X IN B£,X IN END-X IN -SIZE OF IPL FOR UPDATE PROGRAM 

_G_Q.CC0q._Cq C0__ X UPDAT_ BE L g_ -NyMBE__OF_PROSA ARCS 

000150.23 OB xTo ~ LVS , $97 $ 12, $TlY$14 -COM>UTE~NUMBER OF WORDS" 



12000011 
12000012 
12000013 
12000014 
12000015 
12000016 



12000017 
1200001B 
12000019 
12000020 
12000021 
12000022 



IS* 
2C* 

21* 
22* 
23* 



011406.21 
011406.40 
011406. CO 

COC546.C0 



B9 
59 
89 
70 



002150.00 20 



-PRECEEDING MCP 
LVE,$8,X BUFER($9) - GET (MCP) 
X10 1 LC,$0, X BUFER +.32($9) -GET SIZE OF COMM REGION 
T,$C,X BUFER($9>,S MCP -MOVE COMM REGION 
LR,$0,X S ROOF 



C02162.01 70 



SR,$0,S ROOF 



-PLACE 7030 SIZE IN COMM REGION 



24* 
25* 
It* 
27* 
2£* 
2<_* 

~3C* 
31* 
32* 

33* 



000625.40 
000626.40 
0CC627.C0 

00C630_CC 

'ogo_3q__»c" 

00C631.CC" 
000631.40 
000632.00 
000632.40 



011406.00 
OOOCOO. 16 
COCCCO.CO 



89 
30 
80 



000000.24 28 



000000.17 00 



C00551.C0 80 



X10 4 



X10 5 



T,$10,X BUFER(S9) f 0.0($8) 
LV, 7,0.0 

LOC(SEOP), 0.0,0.C 
-DISK 10 TEST 
SIC.X ERR AD 



-PLACE MCP IN STORAGE 

-INITIALIZE FIRST TIME THROUGH 
-POSITION TO ARC ZERO 



12000023 
12000024 
12000025 
12000026 
12000027 
12000028 



1 3 3 .0 3 46 
C0C551.CC 7 80 

000133.03 C6 
C00551.CC 80 

000133.04 46 



BEK J Z , X ERROR- 1 f jEXCH ANGE JERROR _ 

SICtX ERR AD 

BUNRJZ.X ERROR -IF DISK NOT READY 

SICX ERR AD 

BCBJZ,X ERROR -IF DISK BUSY 



12CC0028 
12000029 
12000029 
12000030 
12000030 



X ERR 12 



X ERR 13 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK C0054C41 



PUNID 11C1LIPL 



CARD IC 12000032 



CIST. OF 3/01 



3/01 



PAGE NUMBER 



16 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2* 



■WRITE PRCSA ON DISK AND FETCH FROM MCPS TAPE 



12000032 
12000033 
12000034 
12000035 



PPC6 3 3_.00_ 
0CC633.40 



_0Q.GG41._14 30 

011406.15 CD 

C00C26.14 50 

000653.30 42 

011406.15 01 



Xll 



1___$6_X_IPL_B_S 
~V-I,$6,X BUFER 



-GET FWA OF LASJ READ (BIASED BY UR BIT) 
-COMPUTE NUMBER OF PROSA WORDS 
-TC BE WRITTEN 



12000036 
12000037 
12000038 
12000039 
12000040 
12000041 



6* 
7 * 
6* 
9* 
1C« 



0C0634 
000634 
0CC635 



• CO * 

.40 

.00 



LC, 

BXC 
LVI 



$6, $6 
Z,X 1 
i$6,X 



1 3 

BUFER 
PRO WR 



IT* 

12* 
13* 
14* 
15* 
16* 



000635 

0CC636" 

000636, 

000637. 

00C640 

00C64C, 



40_ 
CO 
40 
40 

CO 
40 



_C_Q_1_746._15 
G0CCC0.16 
00CCC0.00 
000551.00 
C0C133.C3 
000551. CC 



1Q 

50 

80 
80 
46 

ao 



_s_»_ 

LC, 
W(S 
SIC 

BEK 
SIC 



$6 L X 
$7,0. 
EOP), 
,X ER 
JZ,X 
,X ER 



-ASSEMBLED _CW 
-SET UP FOR TEST OF 
-WRITE PROSA 



12000042 
12000043 
12000044 
12000045 
12000045 
12000046 



001746.13 00 



Xll 1 

X ERR 



14 



X ERR 15 





C.O.X PRO 
R AD 
ERROR -IF 

R AD 



LOCATE 



WR 
EKJ 

~"lnr"T 



II* 

1£* 
19* 
2C* 
21* 
22* 



00C64_1_ 
000641, 
000642, 
000642, 
000643, 
0CC643, 



_c_o_ 

40 

CO 
40 
CC 
40 



„CjOCU_3_._C3 
00C551.C0 
C0C133.16 
000636.44 
00CCC0.16 
000000.00 



C6 
80 
4A 
46 

50 

80 



B_N_JZ_X 

X ERR 16 SICtX ER 
CBZ,$7,X 
8CBJZ.X1 
LC,$7,0. 

ccw_o.o, 



ERROR_-_I_F 

R ad 

ERROR -IF 
1 1 

X IPL BS+1 



12000046 
12000047 
12000047 
12000048 
12000049 
120000 50 



000042.21 00 



Xll CCW 



LOCATE NOT SUCCESSFUL 

-IF LOCATE DONE ' 
-DONE * SET UP FOR TEST OF WRITE 
,C -ATTEMPT TO GET CW 



.22* 
24* 
25* 
26* 
27* 
26* 



QQC644 

000645 

00C645, 

000646, 

000646, 

0GC647, 



4C 

CC 
40 
00 
4C 

CO 



_QP_0_5_5_1_._C_Q. _ _P 
000133. C3 46 
CCC551.C0 
C0C133.16 
C00643.44 
C0CC11.15 



X ER 16A 



SJC 
BEK 
SIC 
CBZ 

BCB 
SX, 



_____ 
JZ,X 
,X ER 
, $7,X 
JZ,X1 
$6, $R 



R AD 

ERROR -IF 
R AD 

ERROR -IF 
1 CCW 



!__„____ 
12000051 
12000052 
12000052 
12000053 
12000054 



80 
4A 
46 

10 



X ER 16B 



Xll 2 



EKJ 



WRITE NOT SUCCESSFUL 
-IF WRITE DONE 
-ENTER NUMBER OF ARCS JUST WRITTEN 



29* 
3C* 
31* 
32* 

32* 
34* 



QQC647, 
00C650, 
00C651, 
000652, 
O0C652, 



^0 
40 
40 
CO 
40 



CO 2 1 5_7_._1_1_ 
000020.31 
C00114.4C 
000104.10 
C0C633. 10 



30 
80 
80 
00 
CO 



Q11Q15.60 
000653.34 



90 
2' 



.M+{ 
BB, 
SIC 
B,X 
B, X 
-RE 



BU_?) 
$0+.2 
,X9 A 
9 A 
11 
WIND 



,S DK MCP + 
5 i Xll 3 
3A 



AND.UNLOAD 
),0.0($15) 



9,18 + 9 - A C C U M U L A T E N U M B E R F A RC S 
-PROSA REFRESHED YES*~GUT 

-TO FETCH PROSA 

MCPS TAPE WHEN DONE 



12000055 

12000056" 

12000057 

12000057 

12000058 

12000059 



35* 
36* 
37* 



Q0C653.CC 
0CC654.C0 
0GC654.40 



co_c„c_c_o_._c_c_ 

C0CC66.40 
00CC57.5O 



_J_ 
80 

00 



000137.15 00 



Xll 3 



J_T_L 
SIC 
B,X 



Lscop 

,X7 3 
7 1 



, { 8_) 1 31 _-AE>_I_ND _ AND .UNLOAD MC P S_ _T_APJ_ 

-10 TEST 



12000060 
12C00061 
12000061 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



iime clock cq054q41 punio 11c1upl carl id 12000063 oist. of 3/cl 

"lTne~""locatic"n binary"cut"puT" name" "statement 



3/01 



PAGE NUMBER 
LOCATION"" 



17 



1* 
c * 

2 * 



-PRCCESS IOCD CARDS SETTING UP CST AND LST 



12000063 
12000064 
120C0065 
12000066 



S*_CGC6 5_5_._0_0 
6* 000655.40 
000656.00 
000657.00 



i * 

e* 

1C* 



001750.03 
011406.22 
011406. CO 
005466.11 



02 
GO 
80 

01 



X13 



011407.02 20 



LCI L $li 1CC0.0_ 

Z,X SUPER 

T,$1,X BUFER,X BUFER+1.0 

LVI,$4,X IN END 



-SIZE CF WORKING AREA TO BE USED _1200p067_ 

-CLEAR FIRST WORD OF BUFFER 12000068 

-CLEAR 1000 WORDS 12000069 

-END OF ASSEMBLED AND MOVE MCP IPL 12000070 

-NOTE THAT THIS REGION IS EQUAL TO OR 12000071 

-LESS THAN FOURTEEN WORDS OF THE 12000072 



11* 



-REGION CONTAINING THE ICCD CARDS 



12000073 



12* 
13* 
14* 
15* 
16* 



0CC657.4C 
000660.00 
000661. CO 
000661.40 
000662.00 



000016.11 
000001.54 
000660. 11 
000551.00 
C0C133.1C 



02 
84 
48 
80 
00 



000662.74 02 



-SET 
-IF 
-IF 



1 1 * PP 6 6_2_._4_0_ 

1£* 000663. cc * 

000663.40 

000664.00 

000664.40 

000665.00 



IS* 
2C* 
21* 
22* 



C_0_CC_2_4'_3 2_30 
011406.13 01 

000025.36 30 

000100.37 05 
C0G037.34 30 
000077.03 02 



LCI ,$4,14 
X13 A A BB, 1.44U4) t X13 A Al 

CB+,$4,X13 A A 
X ER 16C SICfX ERR AD 

B t X_ERROR_ _ -_N_0_ IOC .DETECTED 

_XJL3 A Al LV,$13,$4 

LVI,$5,X BUFER 

LV,$15,$5 

V+I,$15,64.0 

LV,$14,$15 

LCI ,$1,63.0 



UP TC TEST 14 WORDS 
ZONE BIT OF IOCD 
SEARCH FRUITLESS 



FOR FIRST IOCD 



12000074 
12000075 
12000076 
12000077 
12000077 



-BASE OF AREA CONTAINING 
-SAVE BASE OF UST AREA 
-INITIALIZE TO PRESET 64 WORDS 



UST 



12000078 

120000 79" 

12000080 

12000081 

12000082 

12000083 



23* 000665.40 



000000.31 85 001000.36 FO 



X13 A 



CM1111(8U,1),.25<$5) -CHANNEL NOT AVAILABLE BIT TO ON 



12000084 



24* 000666.40 

25* 000667.40 

26* 000670.40 

27* 

2£* 0CC671.4C 



CCCCC0.35 85 
OOCOCO.CC 85 
000001.54 84 



001000.36 FO 
000001.02 25 
110000.17 70 



CCCCC0.62 84 160000.20 50 



CM111HBU, 1) ,.29($5) -NOT 
T,tl,C.0($5)f 1.0($5) 
X13 1 CT0111{V+I)(BU,8), 1.44U4) - 

X13 1A L(V + I) (BU,481 f .48+.2U4) 



ASSIGNED BIT ON IN CST 12000085 

-ALL CST ENTRIES TO NOT AVAILABLE 12000086 

ADVANCE TO NEX FIELD * CARD TYPE 12000087 

-TO 1.44 12000088 

-ENTER COLUMN CONTAINING IOCD 12000089 



29* 
3C* 
31* 
32* 
33* 
34* 



-TC 2.30 



12000090 

12000091" 

12000092 

12000093 

12000094 

12000095 



35* 
36* 
37* 
36* 
39* 
4C* 



000672.40 
000673.40 
000674.00 

000675. CC 
000676.00 *" 



001747.60 80 
000756.76 CO 
C0CC00.14 84 

9 9 9 c_°_ 7 _-_ 2 A _ 8 -°_ 

C0CC00.26 84 



060000.23 10 

107000.07 70 

01042 7.24 30 

"120000. 07" 70" 

004027.20 10" 



X13 2 



KF(BU,48),X IOCO 

BZAE,X19 

CT0C11(V+I){BU,7), 



X13 2 



LCV{DU,8,4) A $LZC + .3,46 
AA "CTCfCllfv+I ) (BU,16) ,.22( 



-NOT AN IOCD CARD 
12U4) -TEST TENS POSITION OF CHANNEL 
-TG 2.42 

-CONVERT TG OCTAL NUMBER 



$4) 



JEST JUNITS POSITION * JO 
-FORM CHANNEL NUMBER 
-CURRENT CHANNEL NUMBER 



2.52 



1200009 6 
12000097 
12000098 
12000099 
12000100 
12000101 



20 
19 
18 
17 
16 
15 
M 
13 
12 
11 
10 
9 
8 
7 
6 
.5 
4 
3 
2 
1 



000677.00 
000700.00 
000700.40 
000701.00 



C0CC07.24 80 

00CC11.C6 30 

C0CC23.C7 90 

000702.32 40 



+(BL,4), $LZC+.3,46 
LV,$3,$R 
KC,$3,$3 
BZXL,X132A 



FROM ICCD 



-IF HIGEST CHANNEL 

-ENCOUNTERED 



YET 



Al* 

42* 
43* 
44* 
45* 
46* 



000701.40 
OOG7C2.CC" 
000702.40 
000703.40 

00 0704.40 
000705.40 



_C_C_CC2_ 3 _*_ C 1 6 _ _ 5 
C00C25.C6 BO 

000CCO.14 84 

000000.31 83 



LC,$3,$3 
X13 2A" " V + ,$3, $5 
X13 3 8B,.12<$4),X13 4 

CM0C00{BU,U,.25($3) 



_ X _AAA_ AAlt 11 [ A^i^h - 

LVI,$1, X EQP T~ 



_ ~- S A y A A^. W _H I GE S T CHA N_N EL 
-ENTRY IN CST 
CHANNEL AVAILABLE 

-YES * CHANNEL AVAILABLE FLAG TO 
-ON 
2 AL $ AL _ A^A^QM L E T T E R OF HOLLERITH _E QUIPM EN T 

-BASE OF EQUIPMENT _TABLE__ 

-SIZE OF EQUIPMENT TABLE +1 



12000102 

12000103" 

12000104 

12000105 

12000106 

12000107 



qoccoq, 

0017 5"2. 



30 84 
3 01 



000704.74 02 
001000.00 FO 

114000.20 50 



-IS 



47* 

48* 
49* 
5C* 
51* 
52* 



12000108 

12000109" 

12000110 

12000110 

12000111 

12000112 



000706. GO 
000706.40 
000707.00 
000707.40 

0P07_10_.40__ 
pcp71_l_._CC__ 
000712.00 *" 



00CC12, 
000551, 
000133, 
OOCCOO, 

000706, 

Villi- 

"OCCCCO. 



03 C2 
00 80 
02 4A 
35 81 

Z6_cg 

73 81 
64 83 



130000.23 10 



LCI ,$l t 10.0 
X13 5 SIC.X ERR AD 

CBZ,$1,X ERROR 
KF(V+IMBU,24), 
BZAE,X 13 5 



-WRONG 
29($1) 



EQUIPMENT CODE 
-MATCH * 



ADVANCE TO NEXT SLOT 



53* 
54* 
55* 
56* 



004000. 20__50_ 
004000.20 DO 



X13 6 



k ( AU L 4), r .5J$l) 
ST(BU,4), .52($3) 



-ENTER E Q U P ME N J_ C_0_D_E_ F ROM T A 8 L E 
-INSERT IN CST ENTRY 



12000113 
12000114 
12000115 
12000116 



-*******»»***********#»*♦***»»***♦»**»»##*»**»*»»■&**«***»#»«»*# 



wai 



TIME CLCCK CC054C41 



PUNID 11C11IPL 



CARD ID 12000117 



DIST. OF 3/01 



3/01 



PAGE NUMBER 



18 



LINE LOCATION BINARY CUTPUT NAME STATEMENT LOCATION, 



1* 

2* 000713. CO 

2 * 

<* 00C714.CC 



777777.77 81 000740.74 00 

0CCC10.37 G2 



X14 1 



BZBf-.K $1),X18 

LCI, $15, 8.0 



•TAPE EQUIPMENT TYPE 
-ENTRY 
-UST ENTRY COUNTER 



12000117 
12000118 
12000119 

12000120 



5* 0CC714.40 000000.37 33 SV , i 15 , C . G ( $3 ) ^INSERT UN IT STATUS TABLE__ADDRESS 12000121 



6* 

7* 000715.00 

fc* 

S* 000716. CO 



00CC00.35 83 001000. CO FO 



COG0CO.33 83 001000.36 FC 



CMOOOOCBUt 1) ,.29($3) 
CM1111(BU,1),.27C$3) 



-IN CST 
-TURN OFF MEANINGLESS ASSIGN BIT IN 
-CST 

-YES * MULTI BIT TO ON IN CST 



12000122 
12000123 
12000124 
12000125 



1C* - 12000126 



11* 



— «««*****««*««**«**•««»«*«««**««•«********»****«*««*»»***«**««**«***«* 



12000127 



12* 

12* 000717. CO C00C0O.14 84 114000.07 7C X15 CTOC 1 1 { V+ I ) 1 BU , 12 ) , . 12 ( $4 ) -TEST UNIT AVAILABLE FIELD 

14* 000720. CO 000731.74 C2 BRZ,X 16 1 -IF NULL THEN DONE WITH 

15* -MLLTI-UNIT IOCD 

16* 000720.40 777777.66 84 000724.74 02 __BB ,_C .0- . 1C ( $4 ) , X 152 _~UNI_T _AVA ILABLE___ 



12000128 
12000129 
12000130 
12000131 
12000132 



17* 000721.40 777777.64 84 000723.74 02 BB, C . 0- . 12{ $4 ), X 15 1 _-J>__UN IT NOT AVAILABLE SET IT NOT 



12000133 



It* 

19* 000722.40 
2C* 000723.00 
21* 000723.40 
22* 000724. 40 



CCG55l.CC 


80 




XERR 


000133.10 


GO 






000000.34 


OF 


001000.36 FO 


X15 1 


C0CCC0.35 


8F 


001000.36 FO 


X15 2 



18 SICXERRAD 

B,X ERROR -IOCD PUNCHED 
CMllli{BU,l), .281*15) 
CMllll(BU,l)i.29($15) 



-AVAILABLE BIT 

INCORRECTLY 

-UNIT AVAILABLE BIT TO ON 

-UNIT NOT ASSIGNED BIT TO 



ON 



12000134 
12000135 
12000135 
12000136 
12000137 



22* 000725.40 * COC000.33 8F 001000.36 FO CM 1 I 111 BU , 1 ) , .2 M * 15 ) -TAPE L |_I_SP_OSI TI 0N_B I T T0_ 0N_ 



12000138 



24* 000726.40 

25* 

26* 

27* 

26* 000727.40 



C0CC00.47 8F 001000.36 FO 



CCC717.37 48 



CM111KBU.1) ,.39($15) -SELECT STATUS ON 

X16 CB+,$15 t X15 -IF PROCESSED EIGHT UNITS 



12000139 
12000140 
12000141 
12000142 
12000143 



2ii 

~3C« 
31* 
32* 
33* 
34* 



- * ADVANCE UST ENTRY 

-UNIT COUNT IN CST TO 8 
-TO SET UP FOR NEXT CARD 

-NC UNITS AT ALL ON MULTI CHANNEL 



12000144 

12000145" 

12000146 

12000147 

12000148 

12000149 



000730.00 
00C731.00 
000731.40 
000732. CO 
0C0732.4O 



00C0C0.73 
C0C737. 10 
000010.37 
000736.32 

C0CC10.C0 



83 
00 
OA 
C2 
80 



001000.96 FO 



422000. C6 70 



CM1UKRU, 1),.59($3) 
B,X17 1 
X16 1 KCI,*15,8.0 

BXE,X 17 
LFKBU, 18), 8.0 



35* 0C0/33.40 



C0CC37.34 80 022000.30 10 



■CBL, 18), $15+. 28 



-COMPUTE THE NUMBER OF UNITS 



12000150 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
II 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
36* 
39* 
4C* 



-IN 



000734. 4G 
0C0735.40 



GOCOGO. 73 
0OC737.10 



83 
00 



004000.20 DO 



ST(BU,4), .59($3) 
B,X17 1 



UST 
-INSERT 
-TO SET 



NUMBER 
UP FOR 



OF UNITS 
NEXT CARD 



— *#*****«#*«*******#**«»************#**#*******«*#*«***** ***#*##«**#»* 



12000151 
12000152 
12000153 
12000154 
12000155 



41* 

42* 0C0736.C0 
42* 000737.00 
44* 000737.40 
45* 00074C.CC 



12QQQ156 
12000157 
12000158 
12000159 
12000160 



OGCCOO.CC 
C00017.33 
000035. 1C 
000670. 50 



83 
05 
30 

00 



021000.00 FO 



X 17 CMOOOOCBUt 17) ,0.C{$3) 
X 17 1 V+I, $13,15.0 

LV,$4,$13 

B,X13 1 



-CLEAR CST ADDRESS IN SCT ENTRY 

-ENTER ADDRESS OF NEXT CARD 
-PROCESS NEXT CARD 



wax 



1 IME CLCCK CC054C41 
L I NE~ ""LOCATION 



PUNID UC11IPL CARD ID 12000162 DIST. OF 3/01 
Bl NARY"CUTPUT NAME ST ATEMENT" 



3/01 



PAGE NUMBER 19 
LOCATION 



1* 
2* 
2 * 
4* 



00C74C.40 
000741.40 
C0C742.CC 



777777.43 81 
G0C737.34 C2 

C0CC06.C3 CA 



030000.07 70 



xia 

X18 1 



CT0ClKBU,24),-.29 
BRZ,X17 1 
KCI, $1,6.0 



*****»***»*«**«««*«««*«#**«***«****«*•*#**«* 



($1) 



7 * 

6* 

S* 
1C» 



-LOGICAL MULT I UNIT * DISK 
-ORCGNSGL 



12000162 
12000163 
12000164 

12000165 



12000166 

12000167" 

12000168 

12000169 

12000170 

12000171 



0CC742.40 
000743.00 
000743. 40 
000744. CC 
000745.00 



CCC753. 
CCC002. 
COCCOO, 
COCCOO. 
COCCOO. 



33 40 

37 02 

37 33 

75 83 

33 83 



12* 
13* 
14* 
15* 
16* 



000 746. 00_ 
000747. CC 
000750. CO 
000751. CO 

00C752_.CC 
0CCJ52.40 
000753.00 
000754. CC 

000755.00 
000756.00 
000756.40" 
000757. 4C~ 
000760. CO 

00C76C.4C 



COCCOO. 
COOCOO, 
COCCOO. 
COCOOO. 



3583 
31 83 

34 8F 

35 8F 



001000.36 FO 
Q010PP_.36__F0_ 

001000.00 FO 



BZXH, X 18 4 
LCI, $15, 2.0 
SV,$15,C.0($3) 
CMU11(6U,1),.61($ 
^UUi B y»l ) »*27($ 
~CM0C00(fiU,lTr.29l$ 



3) 
3) 
3") 



-YES * ENTER UST ADDRESS IN CST 
-SET UNIT COUNT TO TWO 

-MULIT BIT CN IN CST 



-MEANINGLESS ASG BIT OFF 



000751.34 00 X18 2 
001000.36 FO 
001000.36 FO X18 3 



00 C 747. 3 7 48 

_C0_C7 37._iq__O 
COOCOO. 31 83 
COCCOO. 34 83 

00C00O.35 83 
C C7 3 7 . 1 00 

.QPJJAQ. -A° _ 8 o 

000551. CC 80 
C0C133.36 C4 

002155.37 30 



BZB, .25143), X18 3 
CMillKBUt 1) ,.28(4 
CM111K6U,1),.29{$ 

CB+!L*l5tX18 2 
B,X17~1 



-IF CHANNEL AVAILABLE 
15) -NO * THEN UNIT NOT AVAILABLE 

15) -YES * UNIT STATUS TO NOT 

-ASSIGNED 

-IF PROCESSED TwO LOGICAL UNITS * 



12000172 
12000173 
12000174 
12000175 
12000176 
12000177 



\1* 
16* 
1"5* 

2C* 
21* 
22* 



000755.34 00 X18 4 
001000.36 FO 

001000.36 FO X18 5 

044006.23 10 



BZ8,. 25(43), X18 5 
CM111KBU,1},.28{$3) 

CMillKBUt U f. 29143) 
B.X17 1 



_~R§I U ?N FCR_NEXT__C_AR_D_ 
-IF CHANNEL AVAILABLE 
-SINGLE UNIT STATUS TO NOT AVAILABLE 
-AVAILABLE 

-AND TO NOT ASSIGNED 
-RETURN FOR NEXT CARD 
-COMPARE" AGAINST *~ ICO * 



12000178 
12000179 
12000180 
12000181 
12000182 
12000183 



22* 
24* 
25* 
26* 
21* 
26* 



X19 KF(BU_36),XI0p, 12 

X ERR T9~SIC,X ERR AD 

BZAEZ.X ERROR -NOT 

SV,$15,S LR BU 



AN IGU CARD EITHER 
-ICD* 
-SAVE BASE OF 10 ASSIGNMENT TABLES 
- USE OF THE ASSIGN ROUTINE 
C URR EN T US T T E S f I NG ADDRESS INC F 



FOR 



12000184 
"12000185 
12000185 
12000186 
12000187 
12000188 



2_* 

3C* 
31* 
32* 
33* 
34* 



000761 
0C0761 
000762 
000762 
000763 
0CC763 



-OC 

.40" 

.CO 

.40 

.00 

.40 



CCICC37. 
C0C762. 
OOCCCO. 
C0CC35. 
C0CC34. 
CCC764. 



34 
35 
35 
21 
35 
31 



50 

"do 

08 
30 
50. 
DO 



X 191 



L_C_ 
SVA 
C-I 

sv, 
sc, 

SVA 



ll 4 **^ t jbnter 

,$14, $+.32 
,$14,0.0 
$8, $13 
$14, $12 
,$12, $+.32 
,$13,0.0 



12000189 
12000190 
12000191 
12000192 
12000193 
12000194 



20 

15 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 



- COMPUTE SIZE OF UST AREA 

-TEMPORARILLY SAVE BASE OF MCP 
-TEMPORARILLY SAVE SIZE OF UST 



35* 
"36* 
37* 
36* 
35* 
4C* 



0CC764 
00C764 
0CC765 
000766 
000766 
00C767 



• CC 

.40" 

.40 

.CC 

.40 

.CO 



COCCCC. 
COCCOO. 
CCC033. 
C00C25. 
000CC1. 
00CCC1. 



33 
CO 
C7 
26 
33 
07 



0L1 

8E 

50 

BO 

OD 

CO 



000000.34 2D 



X19 2 



_V_-I 

T, $ 
SC, 

v+ 

v-i 

C + I 



14,C.C( $14) ,0.C($13) -MOVE 

$3, $11 

,$11, $5 

, $13,1.0 

,$3,1.0 



TA UPPER STORAGE 



UST 

-UPPER BOUND OF OLD 
-UPPER BOUND OF OLD CST 
- AD JUS T A D D R E S S A N D_ COUNT 
<*JA>__ A_ -lMCVE_BIASED _CTS 
- SI ZE OF C ST r 



-PRESERVE ADDRESS OF COMREG 
-UPPER LIMIT OF CST 
-IF MULTI 
-YES 



CST 



FOR TRANSFER 



i_2qqqi95 

12000196 
12000197 
12000198 
12000199 

12000200 



41* 
42* 
43* 
44* 
45* 
46* 



00C767 
00077C 
000771 
000771 
0CC772 
000772 



.40 

.4C~ 

.CC 

.40 

.00 

• 4C 



Cp_CCO_0_. 
C00C23. 
002150. 
001726. 
C0C035. 
COCCCO. 



CO 
24 
24 
25 
24 
33 



88 
10 
30 
DO 
30 
8A 



000000.07 20 



I B '_*3,C.0($11],0.0 
"LX,$10,$3 
LV,$10,SMCP 
SVA,$1C,X37 8 
LV,$10,$13 
BZB,.27($10),X20 2 



12000201 
12000202 
12000203 
12000204 
12000205 
12000206 



000776.74 CC 



X20 



X20 1 



47* 
"46* 
4S* 
5C* 
51* 
52* 
52* 



000773 
00C774 
000774 
000775 
000775 
000776 
000776 



•5 C_ 

^CC 

.40 

.CC 

.40 

•_cp_ 

.40 



_G_0_C_C_CO. 
C0C774. 
COCCOO. 
C0C035. 
00CC01. 

oqqoqq. 

"C0C772. 



2? 
75 
23 
22 

23 
23 
65 



3 A 
"DO" 
OD 
BO 
05 
3 A 

"cb" 



E.Vt$?iC.q{$ioj 

SVA,$14,$+.32 
V-I, $9, 0.0 
V+ ,$9, $13 
V + I,$9, l.C 

sy,___,c.cuio) 

"CB-,$IC,X20 1 



12000207 

12000208" 

12000209 

12000210 

12000211 

12000212 

12000213" 



-INSERT UNBIASED UST ADDRESS 



X20 2 



wai 



TIME CLOCK CC054G41 



PUNID 1LC11IPL 



CARD ID 12000215 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



20 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



I* 

2* 

2 * 
4* 



#*#«**»*+♦»*»**#»**«■»»«»*******«*****##**»******-»****«■******** 12000215 

■ENTRIES IN COMMUNICATION REGION 12000216 

*S X CFAN*S MCP*S Y CO CH* 12000217 

• ****«■##■»#**#»»*##*»*»*#**«***»******#***»*#********##»*******» 12000218 



~t* 
1 * 

£« 

1C* 



12000219 
12000220 
1200022L 
12000222 
12000223 
12000224 



X2CA 



SC,$3,$R 
LC,$10,$R 
V+I,$1C, 1.0 
SX,$10,S X CHAN 
<>L»_$lC,32.g;7_l_.0 



-RESTORE SIZE OF CST 



000CU.C7 50 
00CC11.24 50 
CQCC01.25 05 
002152.25 10 

_0_00037._25_08__ 

11.5_QG1C01_.40 Q_0_21_50._2 5_30 _X20_ A _L__§Y *A lQ t S_MCP„ -SET BASE _QF _MCP_IN _ C M M__ _R_E_G_I C N 

CCCC40.25 05 



00C777.CC 
OC0777.40 
0C1C0C.C0 
001000.40 
001C01.CO 



SAVE BASE OF CST AND SIZE IN COMM REGIN 
-GET SIZE OF BASIC EXCHG CST 



12000225 
12000226 
12000227 
12000228 
12000229 
12000230 



12* 
12* 

14* 
15* 
16* 



001002.00 

001002.40 
001003.40 
001004.40 



10CC0O.C0 80 
00CC00.64 8A 
G01C06.36 C2 



404000.06 
004000.23 



70 

10 



X20 A 2 



V+I,$10,32.0 -COMP LOC OF FIRST BASIC EACH CHG CHAfSNL 

-*** SEARCH FOR CONSOLE CHANNEL IN CST *** 
LFI(BU,4),(8)2 -ENTER CONSOLE EQUIPMENT CODE 

KF(8U,4},.52($10) -TEST AGAINST EOUPIMENT FIELD 



X20 A 3 BAE,X20A4 -IF CONSOLE PRESENT, 



n* 

IE* 
IS* 
2C* 
21* 
22* 



Op_10C5_._CO_ 

001CC5.4C 

001CC6.C0 

001007.00 

001007.40 

0C101C.CC 



_001.CG3_^65 
CC1CC5.44 
000000.31 
001C07.04 
000011.25 

_0 0_2_1_5_2 ._C_C 
C02156~.G0 



48 

CO 
8A 
00 
10 
80 
80 



A 2 



CBtt|lQ 1 X20 

BD,$ 

BZB,+.25($10) ,X20A5 

BD,$ 

SX,$10,$R 

-_(_By t 19) f SXCHAN,45 



_-_LF__TESTED_ALL CHANNELS 
-YES *ERROR* NO CONSOLE 

-IF CONSOL AVAILABLE 
-NO$ERROR * CONSOLE NOT 
-CONSOLE CST ENTRY 

-LESS BASE OF CST 



12000231 
12000232 
12000233 
12000234 
12000235 
12000236 
12000237 
12000238 



23*_0C1C11 
24* 



CO 



001007.74 00 



Q23026.7C10 
023027.20 DO 



XERR 20 
X 20 A 4 
XERR21 
X20 A 5 



AVAILABLE 



ST(BU,19),SYC0CH,46 



_-C_QN_SLO_E_ _C H ANNE L _NU MBER_ TO 
-COMM REGION 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK CCC54G41 



PUNIC 11C11IPL 



CARD ID 12000240 



CIST. OF 3/01 



3/01 



PAGE NUMBER 



21 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
2 * 
< * 



MCP SOURCE TAPE VERIFICATION 



***** 



***** 



12000240 
12000241 
12000242 

12000243 



001012. CC 



002156.36 30 



X DATE 



LV,$15,SY CO CH 



-GET CONSOLE CHANNEL 



12000244 
1200024b 
12000246 
12000247 
12000248 
12000249 



t* 
7 * 

e* 

1C* 



001012. 4C 
0G1C13.40 
CC1014.40 
001015.40 
001016. 4C 



C00C43.C0 
C0CC11.44 
000011.44 
000011.54 

000011.56 



80 040000.20 50 

80 001015.74 00 

80 004000.00 FO 

80 001020.74 00 

80 001020.74 00 



L(BU, 32) ,X VERFY 
BZB,$R+.36,X DATE 2 
CM0C00(BU,4) ,$R+.36 
X DATE 2 BZB,$R+.44,X DATE 3 
BZB,$R+.46,X DATE 3 



IF A-8 ZERO 
-YES * CLEAR TENS DIGIT OF MONTH 
-IF A-8 ZERO, EIGHT, OR NINE 
-YES * IF A-8 ZERO 



11* 001C17.40 



00CC11.54 80 004000.00 FO 



CMOCOO( BU,4), $R+.44 



-YES*CLEAR UMTS DIGIT OF MONTH 



12000250 
120002 51 
12000252 
12000253 
12000254 
12000255 



12* 
13* 
14* 
15* 
It* 



0C1020.40 
001021.40 
001022.40 
0C1C23.40 
001024.40 



000011.64 
000011.64 
000011.74 
00GC11.76 
000011.74 



80 001022.74 04 

80 004000. CC FO 

80 001025.74 00 

80 001025.74 00 

80 004000.00 FO 



X GATE 3 BZBZ,$R+.52,X UATE 4 
CM0C00(BU,4) ,$R+.52 

X DATE 4 BZB,$R+.60,X DATE 5 
BZB,$R+.62,X DATE 5 
CM0CC0(BU,4), JR+.60 



-IF A-8 ZERO 

-YES * CLEAR TENS DIGIT OF DAY 

-IF A-8 ZERO, EIGHT, OR NINE 

-YES * IF A-8 ZERO 

-CLEAR UNITS DIGIT OF DAY 



17* 001025.40 



001047.53 80 004014.22 90 X DATE 5 M+MG(BU,4),X MCNTH+,3,24 -GET TENS DIGIT 



lfi* 001026.40 
IS* 001027.40 
2C* 001030.40 
21* 001031.40 
22* 001032.40 * 



001047.63 
001050.63 
001050.73 

cocooo.cc 

C0CC66.40 



80 
80 
80 
8F 
80 



004010.22 90 

004004.22 90 

004000.22 90 

001042.13 00 



M + MG(3U,4),X MONTH + .8+.3, 16 -GET UNITS DIGIT 
M+MG(BU,4),X DAY+,3,8 -GET TENS DIGIT 
M+MG(BU,4),X DAY+.8+.3 -GET UNITS DIGIT 
W(SE0P),C.0l$15),X D CW -IDENTIFY DATE OF SOURCE 
SICX7 3 



TAPE 



12000256 

12000257" 

12000258 

12000259 

12000260 

12000261 



23* 001C33.C0 



C0GC57.5C CO 



B,X7 1 



-IC TEST 



12000261 

12000262~ 

12000263 

12000264 

12000265 

12000266 



2<* 001033.40 

25* 

26* 0C1C34.C0 * 

27* 

26* 001037. CC 



001052.10 CO 

000003.00 

G0CC03.CC 



B,XIG 
CNOP 
X LR IN DR(BU) ,13) 

X ZEROS DR(PU), (3) 



-TO 10 STATUS REPORT 

-BUFFER FOR LOWER REGISTERS FOR 
-READ 

-ZERO WORDS FOR LOWER REGISTERS 



2<5* 
~3C* 
31* 
32* 
33* 
34* 



ooio^cc 

001C43.C0" 
001044.00 

001045. CO 
001045.10 
CC1C45.2C 



C01037.0C+ ICO 000003 001043 



X D CW CW,X ZEROS, 3, X D CW K.25U 



12000267 

12000268' 

12000269 

12000270 

12000271 

12000272 



20 
I? 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



CC1045.C0+ OCO 000005 OCCCCO 
CC1C34.00+ COO 000003 000000 

375 

002 



X D CW 1 CWtXDATElt XDATEK.O 



X C CW 2 
X DATE 1 



35* 
36* 
37* 
36* 
3S* 
4C* 



CW.X LR IN, 3,0 

CNOP 

DDIBU, 8), (2)1111 1101 

DD( BU, 8 ) , ( 2^00000010 

( IQS*)CCT8U,64,8), DATE 



-CW USED TO STATE DATE 

-CW USED TO GET IPL OPTIONS 

-INITIAL CARRIAGE RETURN 
-RED$ 
OF IPL 



TAPE * 



0C1C47.40 
001047.50 
001C5C.60 
001C51.60 
001051. 7C 



375 



375 
3 76 



DDIEU, 8), (2)1111 1101 
X MONTH ( igS*)DD(BU,64,8),0C MONTH < 
X DAY ( IQS*)DC(BU,64,8) ,CC DAY * 
DDIBU, 8), (2) 1111 1101 
CD(PU,8),(2) 1111 1110 



-CARRIAGE RETURN FOR FIRST LINL 



-CARRIAGE RETURN FOR 
-END OF MSG 



SECOND LINE 



12000273 
12000274 
12000275 
12000276 
12000277 
12000278 
"12C00279" 
12000280" 



Alt 
42* 



00C0C5.C0+ 



•OCCCOOOO 



BU.10 ,10 



X DATE K 



CNOP 
SYN,$-X 



DATE 1 



_-RCUND TO FULL 
-SIZE OF MSG 



WORD 



wai 



1 IME CLOCK CCC54C41 



PUN1D UC11IPL 



CARC IC 12000282 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



22 



LINE LOCATION BINARY OUTPUT NAME STATEMENT LOCATION 



1* 
2 * 

2* 
i* 



-*»*»********************************************************** 

- OPERATOR STATUS REPORT FOR 10 

-♦a************************************************************ 



12000282 
12000283 
12000284 
120002U5 



_5*_ 001052. 00 
6* 001C53.00 
7* 001053.40 
£* 
S* 0C1C54.C0 

IC* 001054.40 



c o o c q q . q o _ a f _ q c 1 p 4 4 . 11 00 
~cocc66.40 80" 

C00057.50 00 



C0CC06.07 02 

A0„1_C34._C3_C1 

CO 1034. CO 80 



X IC RD^SfcOPi,C.C($15),X C _C>_2__-GET IPLOPJICNS 
SICX7 3 

B,X7 1 -10 TLST 

*»*««« IPL TIME CONSTANT ******** 
LCI, $3, 6.0 
LVI,$1,XLR1N„ 



12000286 
12000287 
12000287 
12000288 
12000289 
12000290 



Ut_90 10 5 5_._CC__*_ 
12* 001056.00 
12* 001057.00 
14* 001057.40 
15* 001060.40 
16* 0C1C61.4C 



ooooqq.2C_ 5_o_ 

430024.23 10 



L(_BU L 64|,XLR_IN 

KFI(8U,24),C,40 -NO TIME ENTERED 
BAE,XVNGTM 

L(RU,4MV+I ) ,.4<$1) -TESI FOR VALID CHARACTER. 
KFI(BU,4),9 
_BAH t XVTDER 



12000291 
12000292 
12000293 
12000294 
12000295 
12000296 



00CCCC.00 80 
CC1211.76 C2 
CCC000.04 81 
44CC00.C0 80 
001225.77 42 



104000.20 50 
404000.23 10 



XVLOOP 



17* 0C1C6 2_._CC_ 
16* 001062.40 
IS* 001063. CC 
2C* 001064. CC 
21* 001065. CO 
22* 001065.40 



Q_0_1_C_5_7._46_4 8 
C01C34.C3 01 
000000.10 81 
11CC0O.O0 80 
001225.76 40 
COCC00.1C 81 



CB L 3 t xyLcgp_ 

LVI ,$1,XLRIN 

L(BU,8) (V+I),.8($l) -TEST 

KFI(BU,8),{ 16)24 

BZAL,XVTDER 

L(BU,8HV+I)j.8Ul_)_ 



12000297 
12000298 
12000299 
12000300 
12000301 
12000302 



110000.20 50 
410000.23 10 



FOR VALID COMBINATIONS. 



110000. 2C„5C 
410000.23 10 



22*_qgi066_.4C 
24* 001067.40 
25* 001070.00 
2t* 001071.00 
27* 001072.00 
2£* 001072.40 



_30G_CG 0_._C_0_ _8_ 
CG1225.76 40 
OOCCOO.IO 81 
30CC00.C0 80 
001225.76 40 
C01G34.C3 01 



KFn_BU L 8) t il6_)6C __ 

BZAL,XVTCER 

L(BU,8MV+I ),.8U1) 

KFKBUtBJt ( 16)60 

BZAL,XVTDER 
XVBACK LVI,$1,XLRIN 



12000303 
12000304 
12000305 
12000306 
12000307 
12000308 



110000.20 50 
410000.23 10 



2if._q01C73_.0p 
3C* 001073.40 
31* 001074. 4C 
32* 001075.40 
33* 001076.00 
34* 001076.40 



JP 0_CC_0_6_«P_7_ 02 
C0CCC0.C4 81 
000000.00 80 
001204.76 C2 
001073.46 48 
C01C34.C3 01 



LCI, 43,6.0 



12000309 

12000310" 

12000311 

12000312 

12000313 

12000314 



104000. 2C 50 
404000.23 10 



XVLCP2 L(BU,4) (V+I), .4($1) 

KFI (BU,4),0 

BAE,XVZER -REPLACE WITH 6CD ZERO 
XVCONS CB,$3,XVL0P2 

LVI,$1,XLRIN 



_3_-_t_QClC77-Q0 
36* 0C11CC.C0 
37* 001100.40 
36* 001101.40 
3S* 001102.40 
4C* 001103.40 * 



01242.02 80 
C0CC11.04 30 
COCC00.02 82 
000000.04 81 
000000.06 82 
C0CC00.04 81 



430024.20 50 



JLUBUf 24 )_,_XVTIME ,40 
LV,$2, $R 

L(BU,1HV + I),.2($2) 
L(BU,4) (V+I), .4CS1) 
ST(BU,4)(V+I ),.6($2) 
LIBU,4HV + I) ,.4j$l) 



1,2000315 
12000316 
12000317 
12000318 
12000319 
12000320 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



101000.20 50 

104000.20 50 

104000.20 CO 

104000.20 50 



- STGRE IN TIME SLOT 



^L*_QO 1104.40 
42* 001105. 40 
43* 001106.40 
44* 001107.40 
45* 001110.40 
46* 001111.40 



JLC_QC_o_c L« J. A A 2 

000000.04 81 

000000.06 82 

000000.04 81 

C00C00.14 82 

000000.04 81 



104000.20 pq_ 

104000.20 50 

104000.20 CO 

104000.20 50 

104000.20 DC 

104000.20 50 



STJ EU,4MV+n,.12{$2) 
~L(BU,4) ( V + I), .4($1) 
ST(BU,4MV+I),.6($2) 
L{BU,4){V+I),.4{$1) 
ST(eU,4HV + I),.12($2) 
L(_B_U L 4H V + I J ,_.4J $1 _)__ 
ST ( BU, 4 ) IV+j j , . 6_(_$_2_)_ 



12000321 

12000322" 

12000323 

12000324 

12000325 

12000326 



4I*_Q01112_.40_ 

48* 001113. 40 

4S* 001114.40 

5C* 

51* CC1115.40 

52* 001116.00 



0_C_QC_CC._C6_82 
CCC000.04 81 
C0C000.C6 82 



104000. 2 0__D0_ 
104000.20 50 
104000.20 CC 



12000327 
12000328 
12000329 
12000330 
12000331 
12000332 



5 2?_q0_l_l_16_._40 
54* 001117.40 
55* 001120.40 
56* 001121.00 



C00CC6.07 02 

C_0_ 1 3_4 _ 4 3 _ 1 

C0CC00.C4 81 104000.20 50 



L(BU,4) (V+I ) ,.41 $1) 
ST{EU,4HV + I ),.6($2) 
*«*** IPL DATE CONSTANT 
LCI, $3, 6.0 
LVI,$l,XLRIN+.32 



XV_L_CPS_ L(BU L 4H V + I ), .4( $1) - TtSTS FOR VAL ID CHARACTERS 

" KFI (BU,4),9 
BAH,XVTOER 
CB,$3,XVL0PS 



12000333 
12000334 
12000335 
12000336 

wai 



44CC00.CC 
001225.77 
001116.46 



80 
42 
48 



404000.23 10 



TIME CLOCK 00054041 



PUMD 11C11IPL 



CARD ID 12000337 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



23 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



001121 



1* 001121.40 
2* 001122. OC 
2* 001123. GC 
** 001124. CO 



001034.43 
C0C000.10 
046CC0.CC 
001225.76 



01 
81 
80 
40 



110000.20 
410000.23 



50 
10 



LVIf $l,XLRIN+.32 
L(BU,8) (V+I ) , .8(S1) 
KFI (BU,8},< 16)13 
BZALf XVTDER 



- TtSTS FOR VALID COMBINATIONS 



12000337 
12000338 
12000339 

12000340 



5* 

"ۥ 

7* 

£ * 

1C* 

11* 



001124 .40 
0C1125~.4C 
001126. 4C 
001127.00 
001127.40 
00113C_.C_C_ 
"001131. CO 



COCC00.10 81 110000.20 50 



144C0O.CC 80 

001225.76 40 

001C34.43 01 

CCC0C6.07 02 

_C_0_0C_C0._C4 31 

OOCCCO.CC 80 



410000.23 10 



1C4000.2C __5G_ 
404000.23 10 



XVLP 



UBU,8HV+I _)j.8( $1) 
KFI (BU,8l, ( 16)32 
BZAL, XVTDER 
LVI,$l,XLRIN+.32 
LCI, $3, 6.0 
L(BU t 4My+Ij, .4{$1) 
"KFI(8U,4),0 



12000341 

12000342' 

1200C343 

12000344 

12000345 

12000346 



12000347 
12000348 
12000349 
12000350 
12000351 
12000352 



12* 
12* 
14* 
15* 
It* 



0C1132.00 
001132. 4C 
001133. CC 
001133.40 
0C1134.40 



001207.36 
001130. 06 
001034.43 
001242.70 

C0C011.04 



C2 
48 

Gl 
80 
3 



XVCCNT 



430024.20 50 



6AE,XVZER1 

CB,$3,XVLP 

LVI,$l,XLRIN+.32 

LI(BU,24),XVDATE,40 

LV,$2,$R 



- REPLACE WITH BCD ZERO 



l]*_PPJi_ 3 _ 5 _' C _ c C00C00.C2 82 101000.20 50 L ( EU , 1 ) ( V+ I ) , .2 ( $2 ) 



16* 
IS* 
2C* 
21* 
22* 



001136. OC 
001137.00 
001140.00 
001141.00 
001142. CC 



G00CC0.C4 81 
00CC00.06 82 
CCC000.C4 81 
COCC00.14 82 
C0GCC0.04 81 



104000. 2C 50 

104000.20 DO 

104000.20 50 

104000. 2C DO 

104000.20 50 



L(EU, 4) (V + I ),.4($1) 

ST(BU,4)(V+I ),.6($2) -STORE IN DATE SLOT 

L(BU,4)(V+I),.4($1) 

ST(eu,4)(V+I),.12($2) 

L(BU,4) (V+I ),.4( $1) 



12000353 
12000354 
12000355 
12000356 
12000357 
12000358 



22* 001143.00_ 
24* 001144.00 
25* 001145. GC 
26* 001146. CC * 
27* 001147.00 
2E* 001150.00 



CO 0_C_0_0_._0_6 82_ 
C0~CC00.04 "81 
C0CG00.14 82 
C0CG00.04 81 
CCGC00.06 82 



104000.20 DO 
104000.20 50" 
104000.20 DO 
104000.20 50 
104000.20 DO 



00CC00.04 81 104000.20 50 



ST< BU L 4 ) [V+I ) , .6 { $2 ) 
L(BU,4)( V+I) ,".4($1 )"" 
ST(PU,4) (V+I >,.12($2) 
L(BU,4)(V+I ),.4($1) 
ST(BU,4)(V+I),.6($2) 
L(BU,4) (V + I ) ,.4(S1 ) 



2 A* 

3C* 

31* 

32* 
33* 

34* 



001151- 
0G1152" 
001153, 
001153. 

001154. 
001155, 



CC 
CG" 
00 
40 

40 

00" 



_C_0_C CJDO . C 6 82 

C01C34.35 80 

001166.10 00 

COOCOO.OO 8F 



104000. 2CC0 
001417.34 00" 



~BZfl,XLR"lN+.29 f X 
B,X 10 2A 
W(SE0P),0.0($15), 

SIC.X7 3 
B,X7 1 



$2) 



12000359 

12000360" 

12000361 

12000362 

12000363 

12000364 

12000365 



001410.13 00 



XVICRP 
XIO 1 



20B - IF I/O STATUS REPORT DESIRED 
- YES TO CHANGE TABLES 
X 10 CU -YES*REQUEST NEXT 10 STATUS REPOR' 
-REPORT 



35 * 

36* 
37* 
3E* 
3?* 
4C* 



C0CC66. 
C0CC57. 



40 80 
50 CO" 



12000366 
12000367 
12000368 
12000369 

120003 70 



-TG ID _T_E_S_ T __ 
L BS -GET "STATUS BITS 



12000370 
"12000371 
12000372 
12000372 
12000373 
12000374 



20 
19 
18 
17 
16 
15 
14 
13 
12 
II 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



001155 
001156. 
001157. 
001157. 

00116C, 



40 
4C 
00 
40 
40 



GOGOOO. 
000551. 
000133. 
0CCC41. 

CCCOOO. 



CO 
CC 
03 
27 

CC 



8F 
80 
46 
80 
8F 



000041.21 OG 



001155.74 00 
000000.33 00 



XIO A CCW,0.C($15),X IP 
XIO AA SICX ERR AD 

BEKJZ,X ERROR -IF 
BZB,X IPL BS+.23, 
REL(SE0P),0.0<$15 



EKJ 
X 10 A 
) - CLtAR CS STATUS BIT 



41* 
42* 
43* 
44* 
45* 
46* 



001161 
0C1162" 
001162. 
001163 



4C_ 
CC *~ 
40 

00 



0CCC66. 
CO 0057. 
CC1163. 
OCOCOO. 



4 C 80 
50 00 
10 CO 
00 8F 



SIC, X7 
8 , X 7 1 " 
B.XIO 2 
RD( SEOP),0 



3 

- 10 



12000375 

12000375" 

12000376 

12000377 

12000378 

12000379 



TEST 



001044.11 00 



XIC B 
X 10 2 



0($15),X D Ch2 -GET 



CHANNEL AND 
AVAILABLE 



UNIT NOT 



001164, 
001164" 



CC 
40" 



C0CC66. 
C0C057. 



4080 
5C GO" 



SIC.X7 
~B,X7 1 



47* 
4E* 
45* 
5C* 
51* 
52* 



- J _C 10 TEST 

20B - IF DONE 0"UT 

+1.24,46 -CONVERT CHANNEL NUMBER 
-GET CHANNEL NUMBER 
-GET CST SLOT 
4 -IF MULTI UNIT CHANNEL 



12000379 

12000330" 

12000381 

12000382 

12000383 

12000384 



001165, 
001166. 
001167, 
001167, 
001170, 



CC 
CO 
00 
40 
CO 



C01C34. 
001C35. 
000011. 
002152. 

coccoo. 



3 5 8 

30 80 

34 30 

34 BO 

33 8E 



001417.34 00 
010427.24 30 



001177.74 02 



BZB,X LR IN+.29,X 
XIO 2A LCV(DU,8),X LR IN 
LV,$14,$R 
V+,$14,SXCHAN 
8Zfi,.27($14),X 10 



5^* 
54* 
55* 
56* 



Q01 17J 
001172. 

001172, 
001173. 



CC 
CO" 
40 
40 



Q0iC35._74_80 

G0CCC0.34 3E 

0C1C35. 

CC0C36. 



B3,X LR IN +1.60, 
LV,$14,C.C($14) 
L(BU t 3) tXLRIN+1.6 
f+MG(BU,18),$14 



X JP 5_ - YL S « LFJENTIRECHA N N E L DO W_N_ 

-GET UST BASE 
1 -ENTLR UNIT NUMBER 

-COMPUTE UST ENTRY ADDRESS 



12000385 
12000386" 
12000307 
12000388 



75 80 
CC 80 



003000.20 50 
022000.22 90 



wai 





! 

i 

TIME CLOCK 00054041 PUNID 


11C11IPL I 


:ard 


ID 


12000389 DIST. OF 3/01 3/01 PAGE NUMBER 24 






LINE LCCATICN 


BINARY CUTPUT 






NAME 


STATEMENT LOCATION 


001174 






3* 


001174.40 


CCCC0C.34 


8E 


001000.36 


FO 


X 


IC 3 


CM1111(BU,1),.28($14) -UNIT TO NOT AVAILABLE 


12000389 




2 * 


001175. 4C * 


001153.50 


00 










B,XI01 




12000390 




1 * 


001176. CC 


000000.34 


8£ 


CC1000.36 


FO 


X 


IC 4 


CMlllKBUt 1) I.28U14) -UNIT NOT AVAILABLE 




12000391 




A* 


001177.00 


001153.50 


00 










e.xici 




12000392 
12000393 




5* 


001177. 40 


CCCC00.73 


8E 


004027. 2C 


50 


X 


IC 5 


LtRU,4),.59{ $14) ,46- GtT UNIT COUNT 




6* 


0C12CC.4C 


C0CC11.24 


50 










LC, $10, $R 




12000394 




7* 


001201.00 


001153.70 


42 










BXCZ,X IC 1- IF NO UNITS ON CHANNEL (DEAD CHANNEL) 


12000395 




£* 


001201.40 


000000.34 


3E 










LV,$14,C.0t$14) -GtT UST BASE 




12000396 




c ,» 


001202.00 


C00C00.34 


8E 


001000.36 


FO 


X 


IC 6 


CMllll(BU,n,.28($14) -UNIT TO NOT AVAILABLE 




12000397 




1C* 


0012C3.CC 


000001.35 


05 










V+I ,$14,1.0- 




12000398 




11* 


001203.40 


001202.24 


48 










CB,$10,X 106 -IF ALL UNITS KILLED 




12000399 




12* 


001204. CO 


C01153.5C 


CO 










B,X IC 1- RETURN FOR MORE OPTIONS 




1200040Q 




12* 


001204.40 


50CC00.C0 


80 


404027.06 


70 


XVZER 


LFI(8U,4),{2)101C,46 - BCD ZERO 




12000401 




14* 


001205.40 


777777.74 


81 


004027. 20 


00 






ST(BU,4),-.4{$1) ,46 




120C0402 




15* 


001206.40 


001076.10 


00 










B.XVCONS 




12000403 




Id* 


001207.00 


500000.00 


80 


404027.06 


70 


XVZER1 


LFI(BU,4) ,(2)101C,46 - BCD ZERO 




12000404 




n* 


00121C.CC 


7/7777.74 


81 


004027. 2C 


CO 






ST(BU,4),-.4( $1) ,46 




12000405 




it* 


OC 12 11 .CO * 


001132.50 


00 










B.XVCONT 




12000406 




is* 


001211.40 


C00C01.34 


80 


032042.20 


50 


XV NGTM 


L(BU, 26),$TC,-60 - GET TIME 




12000407 




2C* 


001212.40 


C01243.43 


01 










LVI ,$1, XVSTOR 




12000408 




21* 


001213.00 


740000.00 


80 


406042.21 


CC 






/KBUi 65 ,60,-60 




12000409 




22* 


001214. CO 


000015.66 


80 


006000. C6 


70 






C00U(BU,6),$RM + .54 -SECONDS IN RM IN BINARY 




12000410 




22* 


001215.00 


CGCCC0.30 


81 


006000.12 


FO 






CM0101(BU,6),0.24($1) - SAVE BINARY SECONDS 




12000411 




24* 


001216. CC 


74CC00.CC 


80 


406042.21 


CC 






/It EU, 6), 60, -60 -COMPUTE HOUR AND MINUTES 




12000412 




25* 


001217.00 


000010.00 


80 


000010.21 


BO 






CV{BU),$L,16 -CONVERT HOURS TO DECIMAL 




12000413 




26* 


001220.00 


000015.66 


80 


006000.22 


30 






LTRCV(BU,6),$RM+.54 - CONVERT MINUTES TO DECIMAL 




12000414 




27* 


001221.00 


C0CC17.64 


80 


010004.06 


70 






C001HBU,8),$TR + .52,8 




12000415 




2t* 


001222.00 


000000.30 


81 


006000.22 


30 






LTRCV{RU,6) ,G.24($1) -CONVERT SECONDS 




12000416 




29* 


001223.00 


000017.64 


80 


010000.06 


70 






C0011(RU,8) , STR+.52 




12000417 




3C* 


001224.00 * 


001034.00 


80 


030000.20 


CO 






ST(BU,24),XLRIN 




12000418 




31* 


0.0122 5.00 


001072.50 


00 










B,XVBACK 




12000419 




32* 


001225.40 


000000.00 


8F 


001237.13 


00 


XVTDER 


W(SEOPJ,0. 01*15), XVTMCh -WRITE OUT ERROR MESSAGE. 




12000420 




32* 


001226.40 


C0CC66.4C 


80 










SICX73 




12000421 




34* 


001227.00 


C0CC57.50 


00 










8,X 71 - I/O TEST 




12000421 




35* 


001227.40 


001672.23 


80 


001000.00 


FO 






CMOCOO(BUtl) »XVSKCH.19 




12000422 




36* 


001230.40 


C01152.10 


00 










B,XV IORP 




12000423 




3 7* 
















CNQP 




12000424 


20 


38* 


001231.00 








375 


XVMESS 


DDtBU, 8), (2)1111 1101 -CONTRGL CCDE FOR CARRAIGE 


RETURN 


12000425 


19 


39* 


001231.10 








002 






DD(BU,8) , (2JOC000010 -RED $ 




12000426 


18 


4C* 


001231.20 














{ IGS*)CC(BU,64,8),DA1E/TIME INVALID RETRY * 




12000427 


17 


41* 


001234.20 














[ IQS*)DD(BU,64,8),VIA CCMD, CLOCK * 




12000428 


16 


42 * 


001236.20 








37 5 






DDtBU, 8), (2) 1111 1101 -CARRAIGE RETURN 




12000429 


15 


42* 


001236.30 








376 






DD(EU,8),{2) 1111 1110 -END OF MESSAGE 




12000430 


14 


44* 


001236.40 


OO0GC0.30 


00 










CNOP 




12000431 


13 


45* 


000006.00+ 


-OCOOOCCO 




BU,10 , 


10 


XVTMST 


SYN,$-XVMESS 




12000432 


12 


46* 


001237.00 


CC1034.00+ 100 


000003 001240 


XVTMCW 


CW,XLRIN,3,XVTCW(.25)1 




12000433 


11 


47 * 


001240.00 * 


CC1231.00+ 000 


000006 OCOOCC 


xvrcw 


CW,XVMESS, XVTMST 




12000434 
12000435 


10 


48* 
















CNOP 


9 


49* 


001241.00 










XVCLOK 


{ A*)DD(BU,,6) ,COMD, CLOCK,* 




12000436 . 


8 


5C« 


001242.02 










XVTIME 


( A* )DD(BU f t 6) ,00,00,00,* 




12000437 


7 


51* 


001242.70 










XVDATE 


(A*)DD(BU,, 6), 00/00/00* 




12000438 


6 


52* 


001243.50 * 


000144. CC 








XVSTOR 


0RZ{3U),1C0 - TEMPORARY STORAGE 




12000439 


5 


53* 


00141C.00 


001034.00+ 100 


000003 0C1411 


XICCW 


CW,XLRIN t 3,XI0Chl(.25) 1 




12000440 
12000441 


i 


54* 


001411.00 


001412.00+ OCO 


C0C005 OCOOCO 


X 


IC CWl 


CW,X IC STA,X 10 STK -CVs USED TO REQUEST 


10 STATUS 


3 


55* 
















CNCP 




12000442 


2 

1 


56* 

* 


001412. CO 








375 


X 


10 STA 


DDtBU, 8), (2) 1111 1101 -CONTRCL CODE CARRIAGE 


RETURN 


12000443 



wai 



1 IME CLOCK 00054041 



PUNID 11CUIPL 



CARD ID 12000444 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



25 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



001412 



1* 001412. 1C 

2* 001412.20 

2* 001416.40 

<* 001416. 5C 



002 

375 

376 



DD{BU,8) , mOGOOCClC 
* *~S*)DC{BU,64,8), MAKE 
8), (2) 1111 11C1 
(2) 1111 1110 



{ IQ 

oo( eu, 

DDteU, 8) 



-REDS 

YOUR 10 STATUS REPORT IF ANY* 
-CARRIAGE RETURN 

-END OF MSG 



12000444 
12000445 
12000446 
12000447 



5* 

6»"6CCC05~.C~0T 
7 * 



CNOP 



12000448 



-OOCCOOCO 



BU,1C ,10 ""X IC T ~STK~SYN,$-X~IC~STA 



SIZE OF MSG 



7 * 

E* 

9* 

1C* 



— «*««««« ****»»*###*-it*e***#*****# «******<**<*******«*»» »«»#******# 



•ENTRIES IN COMMUNICATION REGION 
-*S Y PR CH*S SYRF T 



—***«*****»#*»**«*#««*»*»#«****#********************##*#**«*»** 



12000449 
12000450 
12000451 
12C00452 
12000453 



11* 

12* 00 14 17. CO 
12* 001417.40 
14* 

15* 001420.00 
16* 



12000454 

12000455" 

12000456 

12000457 

12000458 

12000459 



002152.24 10 
C00040.25 05 

00CC37.25 08 



X20 B LX,$1C,S X CHAN 
V + I, $10,32.0 
-*** SEARCH FOR 
C-I,$10,31.0 



-INITIALIZE FOR PRINTER CHANNEL SEARCH 
-COMPUTE FIRST CST ENTRY FOR BASIC CHG 
PRINTER CHANNEL IN CST *** 

-COMPUT NUMBER OF CHANNEL 

-IN BASIC EXCHANGE 



17* 
18* 
19* 
2C* 
21* 
22* 



CO 142 0_._4_0_ 

001421.40 

001422.40 

001423.00 

001423.40 

0C1424.C0 



_2ACC0q._G0_80__404p0p.06 70 LFI _RU,4__ (8)5 

00CC00.64-8A 004000.23 10 X20 "B lA KF rBU , 4 ) , .52 ( $10 )" 
001424.36 C2 BAE,X2C B3 

C01427.25 4A X20 B I CBZ+,$1C,X20 B 2 
001421.50 00 B,X20 B 1A 

C0CC11.25 10 X2C B 3 SX,$1C,$R 



- E NT t R _P R I N T E R _ E Q L) I P M E N T C ODE 
-TEST AGAINST EQUIPMENT FIELD 
-IF PRINTER PRESENT 
-IF NO PRINTER 

-PRINTER CST ENTRY 



12000460 
12000461 
12000462 
12000463 
12000464 
12000465 



22* 001424.40 



002152.00 80 023026.70 10 



(BU,19),S X CHAN, 45 -LESS BASE OF CST 



12000466 



24* 
25* 
26* 
27* 

26* 



001425. 4C 
001426.40 
001427.00 
001430.00 



002156.40 80 
001430.50 00 
C02156.4C 80 
001426. 50 CO 



023000.20 CO 



023000.37 70 



ST(PU,19),SY PR CH -PRINTER CHANN NUM TC COMM RIGON 12000467 

X20 B4 B,X22 12000468 

X20 B 2 CT111KBU, 19),SY PR CH -ILLEGAL CHANN NUM IN COMM REGION 12000469 

B,X20B4 12000470 

— *«_*** «»nns-fi„#*K«* *■*»»******##*«»**««#*****# «*##****»«*#»*»«*#*#*#««** 1 20004 71 



2.* 
~3C* 

31* 

32* 
33* 
34* 



-**** TO ENCODE ****_ 



001430.40 
001431.40 
001432.40 



000002.36 
002201.25 
CCCC24.16 



84 
80 

30 



510000. C7 

001000.36 



70 

FO 



XZ2 



CT0C1KV-I) (BU, 8), +2. 30 J 44) -COMPUTE 

CMllll(RUil) .YIPL1+.21 

LV,$7,$4 -CONTAINING 



BASE OF AREA 



IOC AND REEL CARDS 



12000472 

12000473" 

12000474 

12000475 

12000476 

12000477 



35* 001433.00 



001435.35 CI 



X22 I 



LVI,$14,X22 2 A 



-ENTER RETURNED PARAMETER SLOT 



12000478 



( 

20 
19 

( 18 
17 
1(5 

{ 15 
14 
13 
1! 



36* 001433.40 

37* 

36* 001434.00 

39* 001435.00 

4C* 



002166.10 CO 



CCG00C.0C+ OCO 000000 OCOGOO 



K22 2 B,YUNCOD 

CNOP 
X22 2AA ( AQ)DD{BU,42,6),MCP 
X22 2 A XW,C 



-TC UNCCDE ROUTINE 



IPLC -PROGRAM NAME 
-FOR TOE, 

-NUMBER 



FIELD COUNT, 10 REF 



12000479 
12000430 
12000481 
12000482 
12000483 



{ 



41* 001436.00 



CCC0C4.00+ 



42* 001436.40 
43* 001437.00 
44* 001437.40 
45* 001440.00 
46* 001440.40 



CCCC00.00 87 
C0CC02.CC 87 
00144C.5C 00 
001441. 50 00 

000551.00 80 



X22 3 



_________ 

,0.0 ($7) 
,2.0($7) 
B,X22 3 
B.X22 4 
SICXERRAD 



_ ~ E _P_Pl___ D __'_ l P__ t _ :E J- _ C _ ARD A 
GE T "C ARD AT 

-PUT TABLE AT 

-NOT ICD OR REEL CARD 

-NORMAL 



12000484 
"12000485" 
12000486 
12000487 
12000488 
12000489 



ii 

10 

8 
7 

V « 
5 
4 

(. 3 
2 
1 



4 7* 
4 8* 
49* 
5C« 
51* 
52* 
52* 



00 1441. CO 
001441.40" 

001442.40 
001443. CO 



_QP_QJ_ 3 ________ 

777777. CO 8E 

C0C017.17 05 
000002.04 87 



8, X ERROR r E _\_ R _°_ R _ J_ N _ 

X22 4 ~ TI,2,-1.0($14),0.0($7) 

V+I, $7, 15.0 
BB,2.04($71,X22 2 



UNCODE 

~ -SAVE RETURNED 
-TABLE 



12000489 

12000490" 

12000491 

12000492 

12000493 

12000494 

12000495 



000000.04 A7 



001433.74 02 



PARAMETER IN 



-IF PROCESSED LAST CARD 

- T E S T 1 2 Z N E F J HI R D L_=_T_T_E_R_ _ 

-IN IOD,REEL OR MCPP TYPE FIELD 



Nfll 



TIME CLOCK 0CC54C41 



PUN1D 11C11IPL 



CARD ID 12000497 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



26 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

* * 



-***« TO CECGDE *»** 
— ««****«*»««»«*««****«*•«#*«»«******•***********»*•*****««*****««***** 



12000497 
12000498 
12000499 

12CC0500 



?P 14 4 4. 00 CCCC24. 34 30 X2 3 L\/ L $14,$4 

001447.77 Gl X23 1 



-GET RASE OF AREA CONTAINING 100 



120 CO 501 
12000502 
12000503 
12000504 
12000505 
12000506 



t* 
7* 
£* 
c « 

1C* 



001444.40 



LVI,$15,X23 3 



001445, 
001446 



CO 

00 



C02201.25 80 001000.36 FO 
00CC01.35 05 



X23 2 



CMlllllBUf 1) 

_y.ti»_*i4,i.o__ 



,Y IPL 



-AND REEL CARDS BROKEN OUT 

-ENTER DECODE LINKAGE PARAMETER 
-LOCATION 
1+.21 -MAKE BE IN UNCODE INTO BD 

-ADVANCE POINTER TO SECOND fcURD IN 



LI* 

12* 
13* 
14* 
15* 
U* 



-TAELE 



12000507 
12000508 
12000509 
12000510 
12000511 
12000512 



001446.40 C01447.75 DO 
001447.00 002737.10 00 
001447.40 CCO0CC.O0+ 



C_14 5_C_. _C_0_ _0_QCp_Cl 

Pi 4_5 C_. 4_0_ J3CC0. C 0.00 + _ 

001451. CC C01452.1C 

001451.40 001453.10 

OC1452.00 * 000551. CO 

001452.40 G00133.10 

QQI^53_.CC _Q_0_QP_16 -_3 5 

001453.40 



X23 2A 
X23 3 



SVA,$14,X23 

R,LCECOC 

VF,C.C 

^CF, 1.0 

VF L C.C 

B.X23 4 
B,X23 5 
SICX ERR AD 
B,X ERROR 

_V_+I_L*i^tl4. 
KV, $14, $7 



•TO DECODE ROUTINE 

-LCCATIGN OF TABLE TO BE 
•PROCESSED (ALPHA) 

-NON ZERO FOR BYPASS MODE 



17* 
IE* 
IS* 
2C* 
21* 
22* 



-ERROR 

-ERROR 
•NORMAL 



DISPOSITION. 

RETURN 



12000 51 3 
12000514 
12000515 
12000516 
12000516 
12000517 



CO 
00 
80 
00 

0.5 
90 



X23 N 
X23 4 

X23 5 



~I0 REQUIREMENTS REJECTED 

-AD_V_A_NC_E_TO_NEXT_TABLE 

-TEST NEXT TABLE ADDRESS 



lit 
24* 

25* 

26* 

27* 

26* 



C0CC27.34 



FOR 



12000518 
12000519 
12000520 
1200052.1 
12000522 
12000522 



001454 
001454 
001455, 
001456. 



CO 
40 
40 

CC 



001446.32 
001434.00 
00CC37.CC 
C02737. 10 



42 
80 
80 
00 



001461.02 AC 



BXL,X23 2 
X23 6 TI,1,X22 2AA 
SIC, $15 
B,L DECGC 



-ADDRESS OF MCPP CARD 

-IF PROCESSED LAST TABLE 
,X LAST-1.0 -ENTER NAME AT ALPHA-1.0 



2S* 00 1 4 56^ 40 C_C1_4 6_2_._0_C_+_ 

3C* 001457. CC CCC0C1 
31* 001457. 4C 0C00CC.00+ 
32* 001460.00 001452.10 00 
33* 00146C.4C C01464.1C CO 

34* 001461. CC CC 00 [C_._00+_ JDGO. 

0Q1462.C0 CC CO C C_. 00+ CO 

0~01463.C0 CCCOCC.OO+ 000 



V.F»_ X _LAST 
CFi 1 
VF, C 
B.X23 4 
B,X24 

xw,c 



-LOCATION GFALPHA 
-BYPASS MODE 
-ERROR DISPOSITION 
-ERROR RETURN 
-NORMAL RETURN 
-TABLE SLOTS FOR LAST 



12000523 
12000524 
12000525 
12000526 
12000527 
1200052b 



oqoooo_occppp 

cpcqop occppp - 
cooooo oooooo" 



TIME THROUGH 



3_5_* 
36* 



X LAST 



xw,c 



12000529 
12000530 



20 
19 
18 
17 
1<5 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK C0C54C41 



PUNID 11C111PL 



CARD ID 12000532 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



27 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LGCATION 



1« 

2* ' 
t * 
A * 

"5*~6olAfcV.CO~ 



-**** TO ASSIGN **** 



00146 7.3 7 CI 



X24 



LVI,tl5,X24 2 



-ENTER PARAMETER LOCATION 



12000532 
12000533 
12000534 

12000535 
12000536 



6* 
7* 
£ * 
9* 
1C* 



001464.40 
001465.40 
001466.40 
001467.00 



004474.25 30 

004540.65 80 

CC37C1.10 CO 

CCC0CC.01- ICO 



001000.36 
001000.36 



FC 
FO 



000000 OCCCOC 



X24 
X24 



CMlllKEUfl) , T 
CMllll(BUil) t T 

1 B,TASIGN 

2 XW, -1,0, 0,4 



IPLB1+.21 -CONVERT 
IPLB2+.21 -CONVERT 



-MODE 



BE 
BE 



IN 
IN 



ASSIGN 
ASSIGN 



TO 
TO 



BD 
BD 



11* 0C147C.0C 



001467. CO 10 



LX,$0,X24 2 



-INITIALIZE $IND 



12000537 
12000538 
12000539 
12000540 
12000541 
12G00542~ 



12* 0C147C.40 

12* 001471. CO 

14* 001471. 4C 
15* 
16* 



CCC551.C0 80 
000133. 30 40 
001500.10 00 



X ERR 24 



SIC,X ERR AC 
BZXCZ,X ERROR -IF 

B,X25 



ASSIGNMENT ERRCR 



-«#■»»**«#***#***«»*»#****»*#»«*****»****#*»««*»#******»*»«*»■»»* 



12000543 
12000543 
12000544 
12000545 
12000546 



17* 



-ENTER TAPE MOUNTING MESSAGE IN MESSAGE BLOCK 



12000547 



ie* 
is* 

2C* 001472.00 
21* 001473. CO 
22* 00 14 74. CO 
23* 001474.40 



— *»»«*«********«««««««*«««****•*«*«*«*««««***«***«««««*««****** 



C04455.01 
004432.00 
0014 73.71 
CO 17 73. CO 



80 
80 
BO 
80 



004570.74 
0C2000.2C 



00 
AC 



X24 
X24 



A 
A 



BK 



000000.02 AC 



X24 A 3 



BZB,TSBHCI,TPENY 
TI,8,TBUFB1,X MSG 
LVE , $12 L X24A2+. 32 
~ fl,T,~X MSG,G.0($12l 



-IF PASSED OVER FIRST TWO WRITE REQUESTS 
-SAVE CURRENT MOUNTING MESSAGE 

-bET _C_URRENT MESSAGE LOCATION 
-REPLACE MSG PREFIX 



1200054b 
12000549 
1200055G 
12000551 
12000552 
120005 53 



24* 
25* 

26* 
27* 
26* 



0G1475.40 
001476.40 
001477. CC 
001477.40 



001774.00 
C0CC12.31 
001473.71 
004575.50 



80 
05 
DO 
00 



000011.02 AC 



Ti,l,X MSG CR,9.C(S12) -INSERT CARRIAGE RETURN 12000554 

V+I,$12,10.0 12000555 

SVA,$12,X24A2+.32 -NEXT AVAILABLE MESSAGE SLOT 12000556 

B,TP3 12000557 

*»*»*«*«**«»*»****««****»»***»**#****«»*«#*»«»«***«*«**********»*#*** 120005 58 



3C* 

31* 

32* 00150C.C0 

33* 

34* 

35~* OCISOC^O" 



-***_* TO MOVE **** 



120C0559 
12000560" 
12000561 
12000562 
12000563 
12000564 
"12C00565" 



C0C024.34 30 



X25 



LV,$14,$4 



C0CCC1.35 C5 



V + I ,$14,1.0 



-GET THE BASE OF AREA CONTAINING 
-ICD 
-TABLES 
•ADVANCE TO ALPHA +1.0 



20 
19 
18 
17 
1(5 
15 
!4 
13 
12 
11 
10 
? 
8 
7 
6 
S 
4 
3 
2 
I 



36* 
37* 

3e* 

3S* 

4C* 



OC 150 1.00 
0C15C1.4C 

001502. CO 
0015C3.00 



001503.37 
001503.35 



CI 
CO 



X25 1 LVI,$15,X25 3 
SVA,$14,X25 3 



C05C14.10 00 
OOCCCl.OO- 110 



000000 CCCOOO 



X25 
X25 



2 B,TMOVE 

3 XW,- 1.0, 0,0, 6 



-ENTER MOVE LINKAGE PARAMETER 
-INITIAL ENTRY WITH NEGATIVE VF 
-IN X25 3 

-ICD TABLE LOCATION/EXIT DISP/ 



41* 
42 * 
43* 
44* 
45* 
46* 



-E N TRY DISP / B Y P A S S / M C P 
UP TO TEST ERROR 



12000566 
12000567 
12000568 
12000569 
12000570 



12000571 

12000572 

12000573 

12000573 

12000574 

12000575 

12000576" 

12000577" 



001504. CC 
001504.40 
001505.00 
001505. 4C 
0C15C6.C0 



001503. CC 
C0C551.00 
000133.30 
C0GC17.35 
C0CC27.34 



10 
80 
40 
05 
90 



LX,$C,X25 3 
X ERR 25 SICX ERR AD 

BZXCZ,X ERROR -IF 
V+I, $14, 15.0 
KV,$14,$7 



-SET 



MOVE ERROR 



-ADVANCE TO NEXT TABLE 
-TEST CURRENT TABLE ADDRESS 



47_*_0C1506.4C 
"48* 001507.00 



A°A. 5 _ 3'__3 5_30 
001502.32 42 



SV,$14 L X25 
~BXL,X25 2 



-IF PROCESSED LAST TABLE 



W8I 



TIME CLOCK C0054Q41 



PUNID 11C11IPL 



CARD ID 12000579 



DIST. CF 3/01 



3/01 



PAGE NUMBER 



28 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 
2* 

2 * 
i * 



-COMPUTE BASE OF MCP AND MCP 10 LOCATION TABLE AND RELOCATION 
-a************************************************************* 



12000579 
12000580 
12000581 
12000582 



5* 00_150 7_.4C 
~£*~00151C.4C~ 



CO 2 162. 4 C 
C02155.C0 
CCCC11.26 
C02152.00 
000033.34 



80 
80 
50 

80 

80 



022027.20 
022027.30 

022027.20 
022027.30 



_5_Q_ 
10 

50 
10 



X26 1 



L(HU, 18],SMARK,A6 

-{BU, 18), S LR BU,46 

LC,$11,$R 

L(BU, 18) ,S X CHAN, 46 

-(BU, 18), $11+. 28, 46 



_"_ UP P E « _B Q U N D F_ 7 A B L E S _P_RE_P_ _BY_ _LQ. A S S I G N 
-LESS LOWER BOUND 
-SIZE OF TABLE 
-BASE OF CST 

-LESS SIZE CF ASSIGNMENT TABLES 



12000583 
12000584 
12000585 
12000586 
12000587 
12000588 



e* 

c* 
1C* 



001511.40 
001512.00 
001513.00 
001514. CO 



C0CC11.30 30 



X26 2 



X26 3 



_L V ,_ $ 1 2 , $ R 1 B A_S_E _0 F _MC P 



LI* 
12* 
12* 
14* 
15* 
16* 



QC1514_.40__*_ 

001515.00 

001515.40 



JIC_2_1_50._31 
002153.31 
G02155.CO 



30 
30 

80 



_X26_ 
X26 



_SV,_|12,SMCP -SAYE_BASE QF_MCP__IN COM REGION 

SV,$12,SBAMCP -SAVE BASE OF MCP 10 LOCATION TABLE 

-(BU,18),S LR BU,46 -BIAS FACTOR FOR RELOCATION 

_-I£SI _ FQR_ CORRECT. _S_I_Z_E_ _C_F_ _PROS A 



12000589 
12000590 
12000591 
12000592 
12000593 
12000594 



022027.30 10 



11* 

le* 
19* 

2C* 

21* 
22* 



12000595 
12000596 
12000597 
12000598 
12000599 
12000599 



001516.40 
0C1517.C0 

001517. 4C 

00152C.C0 



002157. CO 
C0C621.40 



30 
90 



LV,$0,S DK MCP 
KV,$0,X UPDAT 



000551. CO 80 
000133.32 CO 



XERR 26 



-GET COUNT OF PRCSA ARCS 
-TEST AGAINIST COUNT OF 
-PROSA RECORDS ON TAPE 

SIC,X ERR AD 

BZXE,X ERROR-IF PROSA ARC COUNT EQUALS 



21* 

2A* 001520. 40 
25* 001521. CC 
26* 001522.00 
27* 001522.40 
2£* 



-ARCS 

-ROUND 

-SAVE 
-SAVE 



A S S 1GN E _ 
TO NUMBER 



12000600 
12000601 
12000602 
12000603 
12000604 
12000605 



C0C0G7.C1 
000020.17 
002157.01 
002157.41 



C5 
80 
30 
30 



003000. CC FC 



V + I ,$C, (8)7.0 
CM0C00(BU,3),$0+, 
SV,$0,S DK MCP 
SV,$0,S SYRFT 



CF TRACKS 



15 



TRACK 
TRACK 



ADDRESS 
ADDRESS 



-«««»«*«««*«•»«*»****««*«*»«*«••*««*«**»«*«•*«**«*««*««»**«**•*• 



21* 
3C* 
31* 
32* 
33* 
34* 



12000606 

1200060?" 

12000608 

12000609 

12000610 

12000611 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



-COMPUTE SIZE OF MCP 10 LOCATION TABLE 



001523. CC 
001524. CO 



_3_-_* 
36* 
37* 
38* 
39* 
4C* 



001524.40 
001525.00 



COC034.CO 
C0_2J_55j._7P_ 
CP 2 1_55«_3P_ 
C0CC01.31 



80 
50 
30 

CO 



022000.06 70 



X28 



LF{BU,18),$12 
LC»_$L2f_S_MAX_RN 
LV,$12,S LR BU 



-ENTER BASE OF MCP 
-^•3 T_ %IJ3P_ _I_0_ L OC ATIGN TABLE 
-GET LOCATION CF 10 LOCATION 



TABLE 



C+I,$12, 1.0 



-ADD ONE TO MAXIMUM REFERENCE 
-NUMBER TO GET TABLE SIZE 



-BEGIN RELOCATION 



12000612 
12000613 
12000614 
12000615 
12000616 
12000617 



4L* 

42* 

43* 001525.40 

44* 

45* 001526.00 

46* 001526.40 



_1 *F LL E .AREA ACTUATED ENTRY 12000618 

— ***»*-»<»**##********«***»#**»♦*»««»«*#******#**»*»»*#**«#*»*** 12000619 
CBZ+,$12,X31 2 -GET THE CURRENT FAT ADDRESS FROM 12000620 

-10 LOCATION TABLE 12000621 

LVt $11»0.C($12J -GET UAT ADDRESS 12000622 

BXVZ,X2? - IF ZfcRC TABLE ELEMENT 12000623 



001551.71 4A 

C0CCC0.26 3C 
001525.71 42 



X29 



41* 

48* 
49* 
5C* 
51* 
.52* 
52* 



Q01527_.0G 
001530. CC 
001530.40 
001531.40 

001532. CC 



_C_QCC03.00 
001547.36 
00C003.00 
C0C010.22 
001537.71 



8B 
42 
8B 
IB 
42 



022000.23 1C 



_X29__2__ _KF(_ey,i8),3.o_{$n_) 

BAL,< 31 

M+MGIBU, 18),3.0($11),46 -BIAS FAT LAST ACTIVATED ENTRY 
X29 5 LX,$9,8.C($11) -GET UAT REEL ENTRIES 

BXVZ,X3C4 -IF TAPE * NO TO BIAS UAT 

___-ADDRESS IN CST OR UST 
-YES* 



12000624 
12000625 
12000626 
12000627 
12000628 
12000629 
12000630 



022027.22 90 



wai 



TIME CLOCK 00054C41 PUNID 11C11IPL CARD ID 12000632 CIST. OF 3/C1 
LINE LCC A t"l CN E f N A R Y~ CU 1" P UT NAME STATEMENT 



3/01 



PAGE NUMBER 29 
LOCATION 



1* 

2 * 

3 « 

5 * 



—**««******•*«••*****•**«************»*«*«***• » *****««**tt****** 12000632 

-RELOCATION 12000633 

-FIRST NEXT AND CURRENT KEEL ADDRESSES 12000634 

— *•»■**«*»****#-***»***** ************ **■»*#»»«*#*»*##*****«**»***»* 120006 35 

- _ ii'in m i i~ i ii'^iiiiiini~iiiQ99Y 3 y. 

_ _ 12000 6 3 7 

12000638 
12000639 
12C00640 
12000641 



t* 001532.40 

7* 001533. CO 

£* 001533.40 

9* 001534.40 

1C* 001535.00 



C0CCCC.24 
001535.71 
C0CC0C.00 
CGCCC0.22 
001532.50 



39 
42 
89 
3A 
00 



022000.22 90 



X3C LV, $10,C.C(59) 
X30 1 BXVZ,X3C 3 
X30 2 M+MG(BU,18),C.0($9) 
LV, $9,C.0($10) 

B,X30 



-uET NEXT R£EL ACDR ENTRY 

-IF NEXT REEL ADDRESS ZERO 
-blAS NEXT REEL ADDRESS ENTRY 

-SET UP FOR NEXT BIASING 
-MORE BIASING TO BE DONE 



LI* 

12* 
13* 
14* 
15* 
16* 



00153 5.40 
001536.40 



JLOC.ciq._cq 

OOCC10.4~0 



8R 
8B 



022027.22 
022027.22" 



99- 

90 



X30 3 



_M + MGC BU, 18] , 8_.0_( $11 ) ,46 -BIAS FIRST REEL ADDR ENTRY 
M+MG(~8U, ltn,8.32($lT) ,46 -BIA~S CURRENT REEL ADD ENTRY 

-RELOCATION AND TRANSFER OF TABLES 
-FILE AND UNIT AREA TABLt ADDRESS 



12000642 
1200064 3 
12000644 
12000645 
12000646 
12000647 



11* 



■ »**«#**#**««■**»***»*»*»**»»»*«•*»*#»***»«•*»«*#***«*****»*«*-»«** 



12000648 
12000649" 
12000650 
12000651 
12000652 
12000653 
"12000654' 



IE* 
IS* 
2C* 
21* 
22* 
23* 



-BIAS UAT ADDRESS IN CST OR UST 



001537.40 
001540.00 
001540.40" 



CCCC33.32 

COCO CO. 3 4 
00 0036.34 



30 
3D 
60 



X3C 4 



LV,$13,$11 
LV,$ lAtC.Ol *13J 
V+, $14, $14 



-GET COPY OF 
-GET CHANNEL 
-DOUBLE IT 



UAT ADDRESS 



?A* 
25* 
26* 
21* 
2E* 



001541.00 
001541.40 
001542.40 
001543. 4C 
001544.00 



2_*L* 
3C* 

31* 

32* 

33* 

34* 



001544^40 
001545.00" 
CC1546.CC 
001546.40 
00154/. 00 
001550. GO 



002152.34 
CCCCG0.33 
C0CCC0.00 
001547.10 
000000.34 



BO 
8E 
8E 
00 
3E 



001544.34 02 
022027.22 90 



X30 5 
X30 5 A 

X30 6 



C0CC00.74 BD 



000000.00 
001547.36 
001542.50 
000000.00 
000000.40 



8E 
42 
00 

ac 

8C 



022000.23 10 



022027.22 
022027.22 



90 

90 



X31 



V+t $14,SXCHAN 
BB, .27(514) ,X30 6 
M+MG(BU, 18), 0.0(514), 46 
B.X31 

LV_,$14,C.CU14] 
V + , $14, T32U13) 
~KF( BU, 18), 0.0 ($14) 

BAL,X31 -IF NO BIASING 

B.X30 5 A -GO TO BIAS UAT 

M+MC(BU, 18) ,0.0($12),46 -BIAS UAT 
M+MGIBU, 18), .32($12),46 -BIAS FAT 



-GET CST ENTRY 
-IF MULTI UNIT CHANNEL 
-FORM BIASED UAT ADDRESS 

-GO TO BIAS 10 LOC TABLE 
-GET BASE OF UST 
-GET UST ENTRY 



12000655 
12000656 
12000657 

12000658 
12000659 
12000660" 



12000661 
12000662 
12000663 
12000664 

12000665 



35* 001551. CO 



001525.50 CO 



X31 1 



B , X 2 9 



-PROCESS NEXT 10 LOCATION TBL ENTRY 



12000666 

"12000667" 

12000668 

12000669 



20 
19 
IS 



36* 001551.40 
37* CC1552.00 
38* 001552.40 



002150.34 
002155.32 

000000.00 



30 
30 
8D 



000000.26 2E 



X31 2 LV,$14,S MCP -GET BASE OF MCP 

LV,$13,S LR BU -GET BASE OF DEBIAStD TABLES 

T, $11, 0.0(513), 0.0(514) -MOVE THE RELOCATED TABLES TO MCP AREA 



16 
15 

14 
13 
12 
11 
10 
9 

e 

7 

6 
5 
4 
3 
2 
1 



wai 



time clock 00054041 
"line lccatTcn 



PUNID 11C11IPL CARD ID 12000671 
------------- NA>7fc ~ 



DIST. OF 3/01 

STATEMENT 



3/01 



PAGE NUMBER 30 
LOCATION 



1* 
2 * 
2* 
4 * 



-MCP IPL REJECT REPORT 



12000671 
12000672 
12000673 
12000674 



5 * 

~6* 

1* 

e* 

c* 
1C* 



CC_15.5 3_._4C_ 

001554.00 

001555.00 

001556.00 

001556.40 

001557.40 



002156.36 

001034.36" 

001035.44 

001557.74 

G01C35.44 



30 
80 
80 
CO 
80 



X_ Rt_J _1___L___15 1 SYC0CH _ __ __-GET _CON SOL__ CHANNEL NUMBER 

8ZB,X LR IN+.30.X MODE" 1 - IF J08S ARE" TO BE REJECTED 

CT11C0(BU,4) ,X LR IN + 1.36 

BZRZ,XREJ2 

CM0C0C(BU,4),X LR IN+1.36 
XREJ2 CT1100(BU,4),X LR IN+1.4C 



12000675 

12000676" 

12000677 

12000678 

12000679 

12000680 



001564.34 00 
004000.31 70 

004000.00 FC 



001035.50 80 004000.31 70 



11* 
12* 
12* 
14* 
15* 
16* 



QC156C_.4_C_ 
001561.00 
001562. CO 
001563.00 



_Q.0i.56 2 ._3_. 
CC1C35.5C 
001035.44 
002161.40 



CO 
80 
80 
80 



_BZRZ,X___3 

CM0C0G(BU,4) ,X LR IN+1.40 

LCV(DU,8,4),X LR IN + 1.36 -CONVERT NUMBER OF JOBS REJECTED 
ST(BU, 18), SRLJ JB -SAVE COUNT 

-a******************-****--********-*************************** 

.___£_____ E_REPGR_T 



12000681 
12000682 
12000683 
12000684 
12000685 
12000686 



004000.00 
010400.24 
022000.20 



FC 
30 
DO 



XREJ3 



II* 
IE* 
ic* 
2C* 
21* 
22* 



1200068? 
12000688 
12000689 
12000690 
12000691 
12000692 
12000693 



001564.00 
001565.00 
0C1566.CC 
001567. CO 



001034.37 80 
001035.62 80 
40CCC0.C0 80 
001601.37 42 



001601.34 00 
002000. C6 7C 
402000.23 10 



X M0DE1 BZB.X LR IN+.31,X 32 
LF(BU,2),X LRIN+1.5C 
KFKBU, 2),(2)10 
__BAH L X32 



- IF NON-INSTALLATION MCP MODE 



22* 
24* 
25* 
26* 
27* 
26* 



CC1567_40 
0C1570.4C 
001571. 4C 
001572.40 
0C1573.00 
001574. CC 



_QP_2_1_5_1 ._1_0_ _8_0_ 
C02151.ll 80 
002151.10 80 
001647.50 00 
001037.00+ ICO 
CC1575.00+ 000 



002000. 20_D0 
001661.74 02 
001617.34 02 

000003 001574 

000004 OGOCOC 



__S_T _By_2__S_COM_RG_+.j3 - E_N T_E_R_ _MCDE _IN COM___G_ 

X ~MCDE 3 BB~ t S COM RG+.9,X36 -IF OFFLINE MODE 
BB,S COM RG+.8,X33AA -NO*IF BYPASS 
B.X35 -OVERLAPPED MODE ON LINE 

X MO CW CW,X ZEROS, 3, X MO Chit. 25)1 

X MO Cwl CW,X MOCE,X MODE K -CW USED TO REQUEST OPERATING 



12000694 
12000695 
12000696 
12000697 
12000698 



2S* 
3C* 
31* 
32* 
32* 
31 * 



-MCDE 

CNOP 

DDlBUf 8), (2)1111 1101 -CONTROL CODE CARRIAGE RETURN 
( IQS*)CC(BU,64,8), SPECIFY MCP OPERATING MODE * 
DD(BU,8),(2) 1111 1101 -CARRIAGE RETURN 
DD{EU,8),(2) Mil 1110 -END OF MSG 



12000699 
12000700 
12000701 
12000702 
12000703 
12000 704 
12000705 
12000706" 



001575.00 
001575. 1C 
00160C.50 
001600.60 



375 X MODE 

375 
3 76 



35* 
36* 



_C_NO_P 

X MODE K SYN,$-X MODE 



0CCC04.CC+ 



-OCCOOCCC 



BU,1C ,10 



-SIZE CF MSG 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK 00054041 



PUMD 11C11IPL 



CARD ID 12G007C8 



OIST. OF 3/C1 



3/01 



PAGE NUMBER 31 



LINE LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 

2 * 



- FROM MCPP CARC DETERMINE INSTALLATION MCP OPERATING MODE 



12000708 
12000709 
12000710 
12000711 



5* 0016C1.CC 



00CC27.1C 30 



X32 LV,$4,$7 1200071; 



6* 001601.40 

7* 001602. 40 

£* 001603. AC 

S* 001604. 4C 

1C» 001605. CC 



0CCC01.54 
C00C00.60 
C01747.CC 
000551. CC 
CCC133.36 



84 
84 
80 
80 
CO 



110000.01 70 
160000.20 50 
060000.23 10 



X32 2 



CTOCOO( V+I ) (BU,8) ,+1.44 ($4) -ADVANCE 

L(V + I ) (BU,48),.48{$4) -ENTLRCARD 

KF(BU,48),X MCPP 

SIC,X ERR AD 

BZAE.X ERROR - IF MCPP CARD 



TO CARD TYPE 
TYPE FIELD 



FIELD 



12000713 
12000714 
12000715 
12000716 
12000716 



U*_9 C 1<?0 5_._4_0_ * 
12* 0C16C6.4C 
001607.40 
0G161C.C0 
001611.00 
001611. 4C 



13* 
14* 
15* 
16* 



cooooq._qq 84 

"002144. CO 80 

001647.76 C2 

002145.00 80 

001614.36 C2 

C02146.CC 80 030000.23 10 



030000.20 50 
030000.23 10 

030000.23 10 



X32 3 



L{BU,24],0.0($4) 
KF( EU,~24) ,X ONOV 
8AE,X35 
KF(BU,24),X 
BAE,X 32 3 
KF(BU,24),X 



OFOV 

B 

BYPS 



-GET _MC P _ I N S T A L A T I C N_ MODE FIELD 
-IF ON LINE OVERLAPPED 
-IF OFF LINE OVERLAPPED 



12000717 

12000718" 

12000719 

12000720 

12000721 

12000722 



17* 001612.40 



001615.36 C2 



BAE,X32 3C - IF BYPASS 



12000723 



IE* 
19* 
2C* 
21* 
22* 



0C1613.CC 
001613.40 



0CC551, 
000133, 



CC 
10 



80 

00 



X32 3 A SIC.X ERR AC 

B,X ERROR -INCORRECT MODt 
-MODE CODES FCR S COM RG 

- OVERLAPPED ON LINE OC 

- OVERLAPPED OFF LINE CI 



ENTRY 



12000724 
12000724 
12000725 
12000726 

12000727 



23* 



RYPASS OFF LINE 10 



12000728 



24* 
25* 
26* 
27* 

28* 



001614. CC 
001615.00 



C02151.ll 80 
002151.10 80 



001661.74 CC X32 3B 
001000.36 FO X32 3C 



BZR1,S COM RG+.9.X36 -MODE CODE TO 01 

CM111KBU, 1),S COM RG+.8 -MCOE CODE TO 1C 

-IF BYPASS MO DE_ DELETE SPOOL I NP L T T APE : MES SAGE S 



********«***£*« 



12000729 
12000730 
12000731 
12000732 

12000733 



21* 
~3C* 
31* 
32* 
33* 
34* 



-AND UNASSIGN THEUNITS 



001616 
001617 
001617 



.OC 
.00 
.40 



002151, 
C0CCC2, 
CC2153. 



10 30 
01 02 
74 30 



001660.34 00 



X33 8ZB,S COM RG+.8,X35A 

X33 A A LCI, $0,2 

X 33 1 LV,$14,S R Tj 



35* 

36* 
37* 
38* 
3S* 
4C* 



001620 
00162C 
001621 
001621 
001622 
001622 



.CC_ 

.4C 

.00 

.40 * 

.00 

.4C 



GO 2153. 

COCOOO. 
OOGCOO, 
COCOOO, 
C0GC35, 
COOCCO, 



34 8 

"3 IE 

34 IE 

32 IE 

32 80 

74 3E 



X33_ 

X33 



_V_+_, $1 4 
L X ,"$ 12 
L X , $ 1 4 
LX, $13 
V+,$13 
LV,$14 



, S BA 

,C.0{$ 

,0.0($ 

,0.0<$ 

,$13 

, .321$ 



APE 
MCP 
14) 
14) 
14) 

1*1 

HAN" 

13) 



-IF BYPASS 
-YES*SET UP 
-BYPASS GET 



TO DELETE 2 MSG 
SPOOL REAL TYPE 



ICD NUMBER 



12000734 
12000735 
12000736 
12000737 
12000738 
12000739 



- SPOOL TAP E E N T R Y I N _ I 0_ L OC T A B L E 
-GET UAf "ADD FCR DELET OF MOUNT" MSG 

-GET UAT ADDRESS IN DUPLICATE 
-GET CHANNEL NUMBER 
-DOUBLE CHANNEL = 
-GET UNIT NUMBER 



12000740 
"12000741 
12000742 
12000743 
12000744 
12000745 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



41^* 
42 * 
43* 
44* 
45* 
46* 



001623 
001623 
001624 
001624 
001625 
001626 



.00 

.40" 

.CO 

.40 

.40 

.40 



C_C_2152. 

COCCOO. 
000036, 
COCCOO, 
COCOOO. 
CCCCOO. 



32 80 
"32 "3D 
32 BO 
35 8D 
40 8D 
63 8D 



001000.36 FO 
001000.00 FO 
001000.00 FO 



X33 4 
X33 5 



V + ,_$13 
L V ,$13 
V+,$13 
CMllli 

CMOCOO 
CMOCOO 



,S X C 

,CwO($ 

,$14 

(BU, 1) 

(BU,1) 

(BU,1) 



- C ST _EN L R Y 
-GET UST "ENTRY 
-UST ENTRY 
,.29($13) -ASSIGNED BIT OFF 
».32($13) -OWNERSHIP BIT OFF 
,.51($13) -MOUNT BIT OFF 



12000746 

12000747" 

12000748 

12000749 

12000750 

12000751 



"48* 
49* 



0Q1^27 
00163C 
0C1631 



.40 
".4C 
.40 



_C0 OC 00. 6 5 _ 8 D _ 00 1 000 . CO FO 
COOCCO. 32 80 001000. CC FO 
CCCCOO. 33 80 001000.36 FO 



CMOCOO 

"CMOCOO 

CMllli 



iBU, I) 
(BU,1) 
(BU,1) 



, .53J$13) 
~t .26($13)~ 
,.27($13) 



-SI MMT CFF 
-STATI OFF 
-DISP TO 1 



12000752 

12000753" 

12000754 



WHI 



1IME CLOCK CC054041 PUNID 11C11IPL CARD IC 12000756 
"LINE LCCATlCN 8_NARY~CUTPUT name 



DIST. OF 3/C1 
STATEMENT 



3/01 



page number 32 
location -- 



1 * 

2 * 

2 * 
_ * 



0C_.632_.4C 
001633.00 



OGCCCC. 32 
jCOCC _.____' 
CCCC35.CC' 
002000.31 
C0CC06.33 



_Q 

80 

S0~ 

01 

8C 



X34 



-»#**#*****#«*«««**#****#*******»*****#***»****»***»«****»*»*** 12000756 

-MESSAGE DELETION PROCESS CONTINUED 12000757 

-»»*«*****##*#»»***##«»*»***»**«#****»*»******»*«**#«»»*****»** 12000758 

LX, $13,0.0. $12) -GET CHANNEL = _12Q00759_ 



r * 



_ + ___ 

LCV.B 

LVI,$ 

KF.BU 

-BIT 

BZAE, 



____3 
U,18) 

12, X 

,4), 6 
POSIT 
X34 2 



-DOUBLE IT ___2000760 

-CONVERT CHANNEL TO DECIMAL 12000761 

BK -INITIALIZE FOR MESSAGE BLOCK . 12000762 

$12) 12000763 

4, 5, 6, AND 7 OF LOW ORDER 8 BIT CHANNEL DIGIT T£S 12000764 

-IF TESTS SHOULD CONTINUE 12000765 



t * 
7 * 
i* 

IC* 



001633. 4C 
001634.40 
001635. CO * 

001636_.CC 

OC 1636.40 ~ 



022000. 2C 3C 



004000.23 10 



X34 1 



,$13 
MSG 
.27( 
IONS 



_Q.Q_1J_44_._36 CO 
C0CCC6.23 8C 



U* 

12* 
13* 
14* 
15* 
16* 



004002.23 10 



_______ 

-BIT 

BZAE, 

SV,$1 

KF.BU 

-BIT 



_____ 
POSIT 
X34 2 
4, $R 
,4), 7 
POSIT 



•_5_ 

IONS 



.19. 

IONS 



$12), 4 -YES 12000766 

4, 5, 6, AND 7 OF 8 BIT TENS DIGIT CHANNEL CODE TES 12000767 

-iF TEST SHOULD CONTINUE 12000768 

-GET UNIT NUMBER 12000769 

$12), 46 f 12000770 

_4_,_5_,_6_ _A_NJ_ J- _QF _8 B I T UN] T NUMBER CfJD E _ 1 2000 7 7_1_ 



001637.40 
00164C.CC 
00164C.40 



001644.36 
CCC011.35 
CCCC07.23 



CO 
30 
8C 



004027.23 10 



11* 
16* 
IS* 
2C* 
21* 
22* 



Q0_164_l_._4_0 
001642. CC 

001642.40 
001643.00 
001643.40 



_Q0_1644. 36 CO 
CCCC00.22 OC 



BZAE_X34_2 

Z,0.0($12) 

CBZ,$0,X35 
LX,$14,S W 
X341A B.X33 1A 



- IF _CH A NN EL_ FOR WH I C-H SEARCHED _ 1 2000 112 

-CLEAR FIRST WORD OF MESSAGE AS~ MARKER 120007 73 

-FOR LATER SKIPPING OF MSG 12000774 

-IF FOUND TWO MESSAGE 12000775 

-NG* GET F 12000776 

-FIND SECOND MESSAGE 12000777 



C01647.40 
002154.34 
_C0_162_0_._1_C 
_C_0_C_C_1_2_._3_1_ 
CC1473.40 



4A 
10 
CO 
C5_ 
80 



TAPE 



22* 
24* 
25* 
26* 
27* 
2£* 



QC1644_.C0 
001644.40 

001645.40 
001646.00 
001646^.40 
0C1647.CC 



X34 2 



V + I,$ 

lfi eu 

KV,$1 
BXL,X 

s__Q»__ 

B,XER 



12,10.0 
, 18),X24 

2,$R 
34 1 

ERRAC 

RCR 



-ADVANC E_ TO NE X T ME SSAGE 

A2+.32,4~6 -GET NEXf ADDRESS AVAILABLE 
-IN MSG BUFFER 

-IF EXHAUSTED ALL MSG 

' - e c t h - mFs~sage~s" "not To un d 



12000778 
_2000779 
12000780 
12000781 
12000782 
12000783 



022027.06 70 



00CC11.30 90 
001635.32 42 
C C 5 5 1 .0 8 
000133.10 CO 



XERR 29 



2_* 
3C* 
31* 
32* 
33* 
34* 



12000783 
12000784 
12000785 
12000786 
12000787 
12C00788 



-BUILD MSG SPECIFYING INPtJT CHANNEL FOR 
-SPCOL EYPASS AND ON LINE OVERLAPPED READER 



31* 
36* 
37* 
3«f* 
3S* 
4C* 



12000789 
12000790 
12000791 
12000792 
12000793 
12000794 



20 

19 

IS 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



001647.40 
001650. OC 
00165C.4C * 
001651. CO 
001651.40 



002154. 
C02153, 

OOCCCO. 
CCCCCO. 
CGCC36, 



74 
34 
34 

34 
34 



30 
BO 
IE 
IE 

BO 



X35 LV, $14, S READ R 
V+,$14,S BA MCP 

X35 1 LX,$14,C.0.$14) 
LX,$14,C.C($14) 
V+, $14, $14 



-GET SPOOL CARD READER IODR F 

-SPOOL READER FILE ENTRY IN 10 LOCATION 

-GET UAT 

-GET CHANNEL NUMBER 

-DOUBLE IT 



____ 
42* 
42* 
44* 
45* 
46* 



0C1652_CC_ 
0C1653.CC 
001654.00 
001655.00 

QQ 16 5 5_.4C_ 

_C1656_.4C 
001657.00 
0C1657.4C 

001660.00 
QQ166J_. ______ 

001666. 4C+ 



_C_0_C_C_3_6_. C_C_ 
001771.53 
001771.63 
001473.75 

_Q0_1_7_65._C0 
CC.C_C12._3 5 
001473.75 

001666. 5C 

C02151. 11 

C_0_1647._0 
+OCCCGCCC 



8Q 
80 
80 
BO 

8Q 
Q5 
DO 
CO 

80 
CO 



Q22000.2C _3C 
004402.22 90 
004400.22 90 



000000.24 AE 



LCV(BU, 1§1, $14 

X35 3 M+MG(BU,4,4),X RDR CR+, 
M+MG(BU,4,4) ,X RDR CR+, 
LVE,$14,X 24 A2 +.32 

____.__*_____ RDR MGjC.0JJ.14 

v+i,$i4_ig.p 



-C_QNV_ERT TO DECIMAL 
3,4-ADD CHANNEL TO MSG IN IGS 
8+.3 -ADD CHANNEL TO MSG IN IGS 
-GET CURRENT MESS BLOCK LOCATION 
-UNITS POSITION 

_._-_1P_E MSG TO MSG BLOCK 

-AD„V_A N C E IO_NEXJ_AVAI L_A_B L E _ME S SA Gfc_ 
-SAVE MESS BLOCK LOC 



12000795 
12000796 
12000797 
12000798 
12000799 
12000800 



47 * 
48* 
49* 
5C* 
51* 

___ 

52* 



BLOCK 



12000801 
12000802 
12000803 
12000804 
12000805 
12000806 
12000807 



001661.74 02 



X35 A 
~X~3~7~A~ ~ 



SVA,$14,X24 A2 +.32 

B,X37 

—»*****#***»***»****#** 

BB,S COM RG+.9.X36 

B,_X35__ 

SYN t _37_ 



»**«*#»**»»#■»*»**#**««»#***»* «*****»**_.* 

-IF OVERLAPPED ON LINE 
-YES*SPECIFY READER CHANNEL 



BU_,4C _,_1_C_ 



wai 



TIME CLOCK CC054C41 



PUNID 11C11IPL 



CARD IC 120008C9 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



33 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2 * 

i* 

5* 



-OFFLINE OVERLAPPED * UNASSIGN SPOOL READER 



001661. 4C 



002154.74 30 



X36 



LV, $14, S READ R 



-GET SPOOL READER IOP REFERENCE NUMBERS 



12000809 
12000810 
12000811 
12000812 
12000813" 



t* 0C1662.CC 

7* 0C1662.4C 

£« 001663.00 

9* 001663.40 

IC* 001664. CO * 



002153.34 BO 
C0CCC0.34 IE 
000000.34 IE 
C0CC36.34 BO 
002152.34 BO 



V+,$14,S BA MCP 
LX, $14,C.CC$14) 
X36 3 LX, $14,C.0($14) 
V+,$14,$14 
V+,$14,S X CHAN 



-SPOOL READ ENTRY IN IC LOCATION TABLE 12000814 

-GET UAT 12000815 

-GET CHANNEL NUMBER 12000816 

-DOUBLE IT 12000817 

-GET CST ENTRY 12000818 



u* 

12*" 
12* 
14* 
15* 
16* 



00J.664_.4C_ 

00 16 6 5.40 



CC_CC_0_0_._3 5 
G0CCC0.40 



§E__0C10G0_._36_F0_ 
8E 001000. OC F~0 



X36 4 



A^A ±\ l{ BU, 1 ) _tj.29( $14 ) _-UNIT_STATUS TO NOJ ASSIGNED 
CM0C00fRU,l),.3~2l$14") " -OWNERSHIP STATUS TO PP 



—******«*«*«**»#***»*******#»»*«****####*********«**«******»*** 



17* 

16*" 

19* 

2C* 

21* 

22* 



Pp_1666_._4_C_ 

001667.00 

001667.40 

001670.40 

001671.40 

001672. CC 



002160.72 30 X37 LV,$13,S PR OUT 

002160.3030" LV,$12,S PR" IN " 

002151.10 80 001707.34 02 X37 1 BB,S COM RG+.8,X371B 

002151.11 80 001706.34 02 BB,S COM RG+.9,X371A 
001761.35 01 X37 4 LVI, $14, X ON LIN 
001677.70 00 XVSWCH NOP,XVNCGC 



-SAVED RETURN ADDRESS FOR PRIME 
-ENTRY TO PRIME ROUTINE 

-IF BYPS 

-NO * IF ON LINE MODE 
-UN LINE 



12000819 
12000820 
12000821 
12000822 
12000823 
12000824 



12000825 

12000826" 

12000827 

12000828 

12000829 

12000830 



22* 
24* 
25* 
26* 
27* 
28* 



001672 
001673 
001673 
001674 
001674 
001675 



.40 
.CC" 
.4C 
.CO 

.40 
.CC 



CO 16 77. 
CO 1241." 
COCCGO. 
COGOOO. 
C0C120. 
000004. 



3_5_ DO 
3 5 CI 
CO 8D 
C4 CC 
00 80 
CC 80 



S _ VA L,J>14,XVPRIM 

LVI , $14,XVCL0K~ 

SIC,0.0($13) 

BD,C.0{$12) 

,S COMC 

,4.C 



12000831 
"12000832 
12000833 
12000833 
12000834 
12000834 



29* 

"3C* 

31* 

32* 
33* 
34* 



001675 
0C1676 
001676 
001677 
0C1677 
0C17CC 



.40 

.OC" 

.40 

.CC 

.40 

.40 



COCCOO. 
CCCC34. 
GOGCOO. 
001677. 
001672. 
CCCCCO. 



GC8E 
00 80 
CO 80 
35 01 
23 80 
CO 8D 



001700.74 OC 



,0.C( $14) 

,28.0 

,0.C 

LVI ,$14, $ 

BZB1, XVSWCH. 19, X374A 



XV PRIM 
XVNCGG 
X37 4 A SIC,0.C($13) 



12000834 
12000835 
12000835 
12000836 
12000837 
120008 38 



35* 
36* 
37* 
38* 
39* 
4C* 



001701 
001701 
0017C2 
0C1702 
0017C3 
001703 



.00 

.40" 

.00 

.40 

.00 

.40 



COCCOO. 
00C120." 
C00004. 
COCGCO. 
CCC014. 
000000. 



04 _C_C_ 
CC 80 
CO 80 
GO 8E 
CO 80 
CC 80 



_BD__C .0 (_$ 1 2 ) -PR I M E 
,~S COMD 
,4.0 

,0.C($14) 
, 12.0 
,0.0 



SYSTEM COMMAND ROUTINE 



12000838 
"120008 39 
1200C840 
12000841 
12000842 
12000843 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
B 
7 
6 
5 
4 
3 
2 
1 



-IPL INDICATOR AS SENDER OF CCMMAND 
-LOCATION OF COMMAND IN BCD 

-ERROR RETURN 



41* 
42* 
43* 
44* 
45* 
46* 



001704 
"CC1704 
001705 
001705 
0017C6 
0C1706 



.00 

.40" 

.00 

.40 

.00 

.40 



COCCOO. 
000000. 
C00116. 
001710. 
001763. 
001672. 



GO 8 D 

04 OC 

40 80 

IC 00 

3 5 01 

10 00 



X 3 7 6 SIC , ,0 . _ $ 1 3 ) 

BD,C.O( $12) -PRIME 

,SJC4 

8,X37 7 
X37 1A LVI, $14, X OF LIN 

B, XVSWCH 



12000844 
"12000844" 
12000845 
12000846 
12000847 
12000848 



JOB CONTROL 4 



-OFF LINE 



47* 
4£* 
49* 
5C* 
51* 
52* 
52 * 



QQ1707 
001707 
00171C 
001710 
001711 
001711 
001712 



.00 _ 

.40 

.GO 

.40 

.00 

•A9 _ 

.40" * 



00175 7 . 
0016 7~2. 
002163. 
C0CCC2. 
001777. 
00CC_C3^ 
~C01C34. 



35 CI 
10 00 
34 30 
3 5 30 
42 60 

QG_ao 

34 80" 



X37 1 B 



LVL»_*14,X_BYPAS 
"B, XVSWCH 

LV,$14,S IA 

SV,$14, $IA 

LWF{U),X BOUND 

SILByi,$U8,64 
"BB,X LR IN+.28.X" 37 8 



_~ _ P A [ J- E - _SYSTEM_C M M FOR _B_Y_ P A S _ S _ fiPSA 
-GET $IA 

-GET MCP BOUNDS 
~B~R~A N C H " f F S i U P P R E S S~ M E~S S ~AGES~ 



12000849 

12000850" 

12000851 

12000852 

12000853 

12000854 

1200 08 55" 



X37 7 



000040. 2_C_C0_ 
001726.34 02 



wai 



TIME CLOCK 0CC54C41 



PUNiD 11C11IPL 



CARD IC 12000857 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



34 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 

2 * 
4* 



— *****««»##«#««*««***«»*****««»*»»*•***•*«»*»«***•***#**««»««****«**«*» 1200085? 

— PRINT CONTENTS OF X MSG BK 12000858 

— ***-»«♦■»»«***♦»#***«****««*»»«#*#*»*»****»«*#«#«»»*«**#»*********«****» 12000859 

12000860 



0CW13.4C 



6* 
7* 
E* 
9* 
IC* 



001714.00 
00 1714.40 
0C1715.CC 
0C1716.00 
001716.40 



CCH473.42 
CCCC21.C3 
C02C00.35 
C00CC0.00 
001721.74 
001725.35 



50 
50 
CI 
8E 
C2 
00 



000000.07 70 



X37 
X37 



7A 
7B 



LC___i,X_24 A2 + .32 

SC,$1,$1 

LVI,$14,XMSG8K 

CT00ll(8U,64),0.C($14) 

BRZ,X37 7C 

S\/A L $14,X MSG_W2__ 



-DROP OCT BIAS 



-GET BASE OF 
-TEST IF MSG 

-NO • FIX CW 



MSG BLOCK 

TO BE PRINTED 



12000861 
12000862 
12000863 
12000864 
12000865 
12000866 



11* 001717_.C_C 0_0 21_56 t 36_30 LV__1_,S_Y_CQ CH 

12* 001717.40 GOCCOO.CC 8F 001724.13 00 X 37 7C W ( SLOP ) , 0.0 ( $ 15 ) , X 

13» 001720.40 C0CC66.40 80 SICX7 3 

14* 001721.00 C0CC57.5C CO B,X7 1 -10 



__-Q.£T_CONSQLE CHANNEL 
k -WRITE ONE MSG 



12000867 
12000868 
12000869 
12000869 
12000870 



MSG 



TEST 



15* 001721.40 
16* 001722. CO 



000012.35 05 
000021.34 90 



X37 7 D V+I,$14,10.0 



-ADVANCE TO NEXT MSG 



KV,$14,$1 12000871 



1Z* 
1£* 
IS* 
2C* 
21* 
22* 



17 2 2_._4_C_ 

001723.00 

001724.00 

001725.00 

001726.00 

001726. 4C 



C_017_ 15« 32_42 

C01726.1C CO 

001037.00+ ICO 

000000.00+ OCO 

C0CC00.35 01 

002151. IC 80 



-IF PRINTED LAST MSG 



BXL.X377P 

B,X37 8 

CWtX ZEROS, 3, X MSG M2U25)1 



12000871 
12000872 
12000873 
12000874 
12000875 
12000876 



000003 
000012 



001725 
OCCOOO 



X MSG W 



X MSG W2 CW* 0.0, 10,0 
X37 8 LVI, $14, 0.0 



-TYPE ONE MSG 
-GET BASE OF MCP COMMUNICATION REGION 



002000.36 FC 



_QM 1 1 . 1 1 1 8 U , 2 ) _ S_ C O.M_ R G +_._«_ _-_ SET _MQ.CE B IT S T I P L CODE 



2___0Q1727_.4C_ 
2** 00173C.C0 
001730.40 
001731. CC 
001731. 4C 
001732. CC 



_0_0_C_C_4_0. 2_2 00 

002161.00 30 

000040.01 30 
C00040.41 30 
00CCG0.C3 01 
C02155.43 30 



_4_»_32.0 

LV,SO,S IF DMP 
SV, SO, 32.0 
SV, $0,32.32 
LVI ,$1,0.0 
SVtliS NAXRN 



_-_QL_E_AR Ji QR D _ 3 2 . _ _ 

-GET IF TRAP INSTRUCTION FROM COM 
-INSERT FIRST TRAP INSTRUCTION 
-INSERT DUPLICATE OF IF TRAP INSTR 

-CLEAR S MAXRN 



12000877 
120008 78 
12000879 
12000880 
120008B1 
12000882 



RG, 



25* 
26* 
27* 
26* 



29* 
3C* 
31* 
32* 
33* 
34* 



001732..40 
001733. CC 
001734.00 
001735. CC 
001735.40 
001736.40 



00 2150.74 
C0215C.C0 
C0CC14.25 
002152.34 
00CC00.44 
C0CC40.35 



50 
8 
80 
10 
8E 
C5 



LC,$14,SC0MSZ 



-bET SIZE OF MCP CCMMUN I Z I AT I ON REGION 



12000883 

12000884~ 

12000885 

12000886 

12000887 

12000888 



000000.34 
001000.36 



2E 

FO 



001000.36 FO 



T,$14,SMCP, 0.0($14) 
CM1111(BU,1),$MASK+.21 
LX, 14,SXCHAN 
CMllll(BU,l),.36l$14) 
V+ I, 14,3 2.0 



-MOVE DUMMY COMMUNICATION REGION TO MCP 
-SET IF MASK BIT ON 

-GET BASE OF CST 
-FORCE LOCATE TO ZERO ON DISK 



35* 
36* 
37* 
38* 
39* 
4C* 



Q01737.C0 
001737.40 
001740.00 
0C1741.C0 
001742.00 
001743.00 



CM0j4_0_^35. 

C0CC20.37 

C0CCC0.31 

C0CCC0.64 

000000.00 

CCCC66.4C 



C8 

01 
8L 
8E 

8F 

80 



_C_-I_t_l_l»_32.__ 
LVI, 15, 16.0 
BB, .25(114) ,X GOCN 
BZB,.52($14),X GOON 
L0CCSECP),0.C{$15> ,0.C 

_SI_C,_X7 3 

B,X7 1 -IC TEST 



12000889 
12000890 
12000891 
12000892 
12000893 
12000894 



20 
19 
18 
17 
16 
15 
14 
13 
12 
II 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



001744.34 02 
001744.34 CC 
000000.17 00 



X HERE 



41* 001743.40 
42* 0C1744.CC 
43* 001744.40 
44* 0C1745.CC 
45* 001745.40 



C CC 5 7 . 5 GO 
C0CCGC.77 05 
001740.35 48 
00CC40.C0 00 
C0CC41.C0 80 



12000894 
"12000895" 
12000896 
12000897 
12000898 



X GOON V+I,15,.32 

CB+,14,X HERE 

X37 9 BE, 32.0 
,DRET 



wai 



1 IME CLOCK 00054041 



PUNID 11C11IPL 



CARD ID 120009C0 



DIST. OF 3/01 



3/01 



PAGE NUMBER 35 



LINE LGCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2 * 

5* 00l746.CC~ 



— **#******»#***•»*»*#*********«*» ****** 

-MCP IPL DEFINITIONS 

— •■a************.************************ 



*««*«*«****««*«*««**«**#* 

*****»»******#*»»»*»*«** 



CC00CO.OO+ CCO COOOOO OCCCCG 



X PRCWR XW,C 



-COMPUTEC DISK WRITE CW 



12000900 
12000901 
12000902 
12000903 
12000904 



6* 
1 * 

E* 

9* 

1C* 



C01747.C0 
001747.60 
00175C.4C 



2040410020042004 X MCPP 
40C12010410G404C X IGCD 
4001201C4040 X ICD 



-CARDS 12000905 

—«*«#****#»#»*#********»*#*#*****»*#**#»»*»#«*»*»***«»*»*#«**»* 12000906 

DD( BU.48), (8)204041002GC42004 -MCPP IN HOLLERITH 12000907 

DD( EU t 48) , (8)40012C1C41C04040 -ICCD IN HOLLERITH 12000908 

CD(BU, 36) ,( 8)400120104040 -ICD IN HCLLERITH 12000909 



11* 
12* 
12* 
1<* 
15* 
16* 



— ■»*«*»**«*»»*«»»****»**«*******»*»##***-»#**»»*»»*«*»*»****#«*** 12000910 

"CNOP -ST ART "XECPT" AT~ FULL" ¥CRO~ 12000911 

-BOUNDARY 12000912 

DD(BU,24), { 8)00CC 12000913 

DD(BU,4),(8)0 -NO EQUIPMENT 12000913 

DD(BU,1),0 -SINGLE UNIT CHANNEL 12000914 



001751. AC 



C0CCQ0.3C 00 



001752 
001752. 

0C1752, 



CC 
30 
34 



OOCCOOOO 
00 





X EGP T 



17* 

ie~* 

19* 
2C» 
21* 
22* 



001752.35 
001752.65 
0C1752.71 
001752.72 
001753.22 
001753.26 



00GC2 2C0 

01 



00002020 

02 





DD(RU,24), ( 8J22CC 

DD{BU,4)~, (8)1 -DISK * 

DD(0U,1),C 

DD(RU, 24), (8)2020 

DD(RU,4) ,{8)2 -CONSOLE 

DD(BU,1),C 



DK 



-SINGLE UNIT CHANNEL 



*CN 
-SINGLE 



UNIT CHANNEL 



12000915 
12000915 
12000916 
12000917 
12000917 
12000918 



23* 
24* 
25* 
26* 
2 7* 
2E* 



001753.27 

001753.57" 

001753.63 

001753.64 

001754.14 

0C1754.2C 



OOC04040_ 
C3 - 



00CG1040 

04 





DD{RU,24 2,{8)404C 
"DO fBU ,4 ) , < 8 ) 3 -READER 
DD(BU,1),0 
DD(BU,24) f (8)104C 
DD(RU,4) , (8)4 -PUNCH *PU 
DOIBU, i),0 



12000919 

12000919" 

12000920 

12000921 

12000921 

12000922 



KD 
-SINGLE 



UNIT CHANNEL 



-SINGLE UNIT CHANNEL 



29* 
3C* 
31* 
32* 

33* 
34* 



001754^.21 

001754.51" 

001754.55 

001754.56 

001755. C6 

001755.12 



00002001 

" ~ 5 



OOCOCOCO 

00 





DD(8U,24),(8J2001 

DD ( RU , 4 ) , ( 8 ) 5 -PR INTER" 

DD( BU,1),C 

UD( EU,24) , (8)0 

D0(BU,4), (830 -UNUSED 

DD(RU, 1),C 



12000923 
12000923 
12000924 
12000925 
12000925 
12000926 



* PR 
-SINGLE 



UNIT CHANNEL 



-SINGLE LNIT CHANNEL 



_35* 

36* 
37* 
36* 
39* 
4C* 



001755.13 
001755.43" 
001755.47 
001755.50 

001756.00 
001756.04 



00000000 

CC" 



00CC2004 

10 

1 



UDJ EU, 2 A ), l«8)G 

C0("CU,4), (8)C -UNUSED 

DD(BU, 1),0 

DD(6U, 24), (8)2004 

DD( BU,4), (8»10 -TAPE MULTI * TP 

DD{EU,1),1 -MULTI UNIT 



120009 2 7 
1200092 7 
12000928 
12000929 
12000929 
12000930 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



-SINGLE UNIT CHANNEL 



CHANNEL 



Alt 

42 * 

43* 
44* 
45* 
46* 



"-MCP~"PSEUDO"OPCCbES 
-a************************************************************* 

SYN,X24A 
SYN,33.0 
SYN, 35.32 



12000931 

12000932" 

12000933 

12000934 

12000935 

12000936 

12000937" 

12000938" 



47* 

"4 8* 



001472.00+ 
000041. CC+ 
0CCC43.4C+ 
000116_.40_+_ 
0C012G.CC+ 



+OCCCOCCC 
+OOCGOCCC 

+_c_c_c_c_occq 
+_o_c_c_o"qoqo' 

+ OOGC~OCCO" 



BU,10C,10 D MCP 
NULL D RET 

NULL ___ ...AAIII 
NULL S J_C_4 

NULL S COMO 



S _YN, 78. 32 
"SYN,8C.C 



wai 



1 IME CLOCK GC054G41 



PUNID UC11IPL 



CARD ID 12000940 



DIST. CF 3/CL 



3/01 



PAGE NUMBER 



36 



LINE LOCATION BINARY CUTPUT NAME STATEMENT ___ LOCAJJGN_ 



]* 
2* 

2* 
A* 



00_.7 5 6_._tO_ 

0C175J.CC 

0C176C.4G 

001761.00 

001762.40 

001763. CG 



_o_o c c qq. 30 _ co_ 
"code do .3 o~ c6 

C0CCC0.3C CO 



—«*«**##*#*«***»****»»»*»«««*#*«*********«*»**»*»*»*«*»****»**» 12000940 
-SYSTEM COMMAND OPS FOR STARTING MODE 12000941 

-A********-**************************************************** 12000942 
CNQP 12000943 



5* 

1 * 

£* 

■j* 

1C* 



XBY_P_AS_ _LA*|QD|BlJ li 6)jC0„M_C_,BYPASA_* „__ _ ___ 12000944 

CNOP 1200094b 

X CNLIN (A*)DD{BU, ,6) ,COMD, ONLINE * 12000946 

CNOP 12000947 

X OFLIN (A*)DD(BU, ,6),C0MD, OFFLINE* 12000948 

-♦a************************************************************ 12000949 



lit 
12* 
12* 
14* 
15* 
16* 



0Q1764. 40 

001765. CO 
001765. 1C 
001765.20 * 

0017 71.50 
C_l 7 J_1_._6_C_ 
0G1771.7C 
0C1772.CC 



CCCC00.30 00 



CNGP 

X RDR MG DD( EU, 8) , (2)1111 11C1 -CARRIAGE RETLRN 

DD(BU, 8), (2)00000010 -RED$ 

{ IQS*)DD(BU,64,8), READER IS INPUT SOURCE ON CHANNEL * 

-MSG SPECIFIES REAOER CHANNEL 
X_ RD_R_ _C_R_ _DD ( BU , 8 , 8_) , I 2_) U_C_0 C_G_0_,J_2. ) 011000 00,(2! 1 1111101,1 2 ) 11 1_1_1_1 10 



12000950 
12000951 
12000952 
12000953 
12000954 
12000955 



3 75 

002 



140 



LI* 

16* 

IS* 

2C* 
21* 
22* 



J_*_Q_ 
375 

376 



-DUMMY IQS SLOTS, CR, END CODE 



QC1772_.40 
Q01773_CC 
0C1773.1C 

001774.00 



CCCCC0.3.C 00 



CNOP 

X MSG DDIBU, 



12000955 
12000955 
12000955 
12000956 
12000957 
12000958 



23* 
24 » 

25* 
26* 
27* 
21* 



002 



„1» l2JGCqCCplC -RED_ $_ 

CC(BU,56, 8),MCPIPL*X -MESSAGE PREFIX 

64,8), (2)1111110111111110 -MSL CR AND END RETURN 

TION TO IOC PROCESSING ROUTINES **** 



12000959 
12000960 
12000961 
12000962 
12000963 
1200G964 



00000 00000000000176776 



( IQSX) 
CNOP 

X MSG CR DD(BU, 
— ** **« 

- **«» MCCIFICA 



21* 
3C* 
31* 
32* 

32* 
34* 



YtbTt d~d~ (~b u i 

YNLST VF 

YNGPUN SYN,YN 

S 10 LOC SYN,0 

S LR BU SYN, S 



•a******************************************************* 



12000965 

12000966" 

12000967 

12000968 

12000969 

12000970 



001775.00 

001775.40 

001775.40+ 

000CCC.C0+ 

002155.00+ 







CCC0CC.00+ 
+OCCCOCCO 
+00C00OC0 
+CCCCCOCC 



B ,31 ,01 

NULL 

B ,31 ,01 



1),C 
LST 



-FLAG USED BY 
- NOT USED IN 
-' NOT USED IN 



THE UNCCDE 
UNCODE FOR 
UNCODE FOR 



ROUTINE 

IPL 

IPL 



E A PP -_ _S_AME AS _F_I_RST SLOT OF 10 _L_OC_ J_A_B_LJL_ 

**«***##***#*»-»*#*«»******#******»*»**••***»»**»*»****»*** 



35* 
36* 
37* 
3£* 
39* 
4C* 



— *# 

x~ "arc" ~k ~ ~vT,~ 

CNO 
CNO 
VF, 

VF, 



cVc 

p 

p 

33. 

32. 



120009 71 
12000972 
12000973 
12000974 
12000975 
12000975 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

1 

1 



001776. CC 
001776.40 

001777.00 
001777.40 



CCOOCC.CC+ 

000CC0.3C 00 

CCC041.00+ 
0C004C.CC+ 



X BOUND 



-ACCUMULATED PRGSA ARCS 



-COUNCS AND BOUNDARY CONTROL BIT 



Alt 

42 * 
43* 
44* 
45* 
46* 



002CCC.00 * 



002144.00 
002144.40 
002145.00 



C0C144.C0 

JlQ.c_ccq._3q cq 
~G~o~G~cdd73c"c6" 



201G202O 
2G1C~4~0T0~ 



CNO 
X MSG BK DR( 
- OPERATING 

CNO 
X ON GV DD( 

CNO 



, 11C0) 

;ces 



EU) 

MCi 
P 
BU,24),{8)201C2020 

P 



MESSAGE BLOCK FOR IPL 



-ON IN CARD CODE 



12000976 
12000977" 
12000978 
12000979 

12000980 
12000981 



_7_* 
46* 
4S* 
5C* 
51* 



X JC_F__OV___r__ 
CNO 
X BYPS DD( 
X NOR DD{ 
X ABN DD( 



_ U t ? 4 _ , ] 8 ) 20 1 C 4 CI C -OF I_N CARD_CODE 

P 

BU, 

BU, 

PU, 



12000962 

12000983" 

12000984 

12000985 

12000986 



002145. 4C 
002146. GO 
002146.30 
002146.74 



42001002 
202020102001 
440042002020 



24), 18)42001002 -BY IN CARD CODE 

36), (8)202020102001 - UPL MODE * NORMAL 

36),{8)440C42G02020 * - IPL MODE * ABNORMAL 



HSI 



TIME CLOCK 00054041 



PUNIC 11C11IPL 



CARD ID 13C0C001 



DIS7. CF 3/01 



3/01 



PAGE NUMBER 



37 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

; * 

2* 
*■* 
5* 



#****#** THE COMMUNICATION REGION FOR MCP ******** 

— «*****###**»*«**«*»**»*#****#*»**#******«*«******#*******»********«»** 



13000001 
13000002 
13000003 
13000004 
13000005 



6* 002147.40 
1* 002150.00 
E* 

S**00215C.4C 
1C» 



C0CGC0.3C 00 
CC00CC.00+ 

CCCG16.00+ 



CNOP 
S MCP VF,C 

S COM SZ VF,S ENC CM-S MCP 



-SLOT FOR BASE ADDRESS OF MCP 
-SIZE OF COMMUNICATION REGION 



13000006 
13000007 
13000008 
13000009 
13000010 



11* 
12* 
13* 
14 * 
15* 
16* 
17* 



0C2151.0C 



1CCCCC.00+ 000 000000 occooc 



S COM RG XM, {8) 1CCC00.0, 



-THE SYSTEM WORD FLAG 



13000011 
13000012 
13000013 
13000014 
13000015 
13000016 
13000017" 



IE* 
IS* 
2C* 
21* 
22* 



002152. CC 

002152.34+ 

002152.00+ 

002153.40 
002154.00 
002154.40 
002155. CC 



CCCCCC.CC+ COO 
+OOCOOOCO 
+CCCCGOCO 

IO~OjOjO~00 .~C + ~ 
CCC0C1.CC+ 
CCC0C2.00+ 
CCC003.0C+ 
CC00GC.CC+ 



000050 OCCCOO S XCHAN 
BU,1CC»10 S CHANK 

BUtlGCIO S CHANS 



X*i,C,40,C 

SYN,SXCHAN+.28 

SYN,SXChAN 



-BASE ADDRESS OF CHAN STATUS TABLE 
-THE NUMBER OF CHANNELS CONNECTED 



s _ B _* M< L1 __VF t C 
"S" R TAPE VF, 1.0 
S W TAPE VF f 2.0 
S READ R VF,3.0 
S BA PP VF,C 



- BASE A R F THE MCP SY_M 8 I / L 0_C 
""-THE SPOOL READ TAPE "IOD RTF NO. " 

-THE SPOOL WRITE TAPE IOD REF NO. 

-THE SPOOL READER IOD REF NO. 
-BASE ADDRESS OF PP ID LOCATION TABLE 



TBL 



13000018 
13000019 
13000020 
13000021 

13000022 



22* 002155.40 

2<* 

25* 002156. CC 

26* 002156.40 

21* 

26* 002157. CC 



_CC_C_OCC.OC + 

CC0026.04+ 
000026.04+ 

CCCOCC.CC+ 



A A A X A N _ _ A F _ 

S YCOCH VF,22.4 
S YPRCH VF,22.4 

S DKMCP VF,C 



-SMAX RN THE MAX REFERENCE NO FOR PP 

-THE CHANNEL NUMBER GF THE CONSOLE 
-THE CHANNEL NUMBER OF THE PRINTER 

-MCP RESET TRACK FOR DISK 



13000023 
13000024 
13000025 
13000026 
13000027 
13000028 



29* 
3C* 
31* 
32* 
33* 
34* 



002157.40 * CC0CCC.00+ 



S SYRFT VF,C 



-VARIABLE POINTER FOR PP DISK ASSIGN 



130000 29 

13000030" 

13000031 

13000032 

13000033 

13000034 



002160.00 
00216C.4C 

002161. CO 
002161. 4C~ 



CC2166.00+ 
002166.40+ 

A C _ C _ C A°_'_ C A A 

CCCCCC.OG+ 



S PR IN VF,S PRIME 
S PR OUT VF,S PRIM R 

S IF DMP BD,C 



-ENTRY TO PRIME ROUTINE 

-SAVED ADDRESS JOE PRIME ROUTINE 

-INSTRUCTION FETCH TRAP INSTRUCTION 



35* 
36* 
37* 
3£* 
39* 
4C* 



S REJ JB VFtC.O 



-THE NUMBER OF JOBS TO REJECT 



13000035 
130000 36 
13000037 
13000038 
13000039 
13000040 



20 
!9 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 
6 
5 
4 
3 
2 
1 



002162.00 
002162.40 

002163. CC 
002163.40" 



0CCCCC.C0+ 
CCC0CC.0C+ 

A c A°A c _*A c _ + _ _ 

00CCC0.3C 



S ROOF 
S MARK 

SIA 



VF,C 
VF 



_v f_,_o 
V "A_cno_p_ 

S DATE" " UX)DC{BU),C3/15/6~3X~ 

STGDAY (AX)CD(eU), / /63X 

S END CM SYN,$ 

S PRIME SYN,$ 

S PRIM R SYN,$+.32 



- TOP OF STORAGE 
-THE NEXT VACANT REEL SLOT FOR PP 

- LOCATION OF INTERRUPT TABLE 



41* 
4 2* 
42* 
44* 
45* 
46* 



CO 



13000041 
"13600042" 
13000043 
13000044 
13000045 
13000046 



002164.00 
002165. CC 
002166. CC+ 
002166.00+ 
002166.40+ 



+00C0O0CO 
+OCCCOCCO 
+CCC0COC0 



NULL 
NULL 
NULL 



- FOR DATE GF IPL TAPE TO SPOOL 
-FOR DATE OF JOBS ON SPOOL TAPE 

-END OF COMMUNICATION REGION 

- SAVED ADDRESS FOR PRIME ROUTINE 
-LOCATION OF PRIME ROUTINE 



wai 



TIME CLOCK CC054041 



PUNID 11C11IPL 



CARD ID 14000001 



DIS7. CF 3/01 



3/01 



PAGE NUMBER 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2 * 



UNCCCE SUBROUTINE TO CECIPHER SYSTEM CARDS 



4* CC2166.CC CC0C33.00 80 002324.06 AO YUNCOD T 1 , 3, $ 1 1 , YUXSAV -SAVE UNDICIES 



14000001 
14000002 
14000003 
14000004 



5* 002167.00 __ 

6* 0C216 7.4C ~ 

7* 00217C.4C 

£* 002171.40 

S* 002172. CO 

1C* 002172. 4C * 



_C_C.CC 01. 7 3 EE 

cogcco.co~8d~ 

420000.00 80 
002311.36 C4 
C02174.33 30 
C0CCC1.32 3E 



LV__*13,1.32_(_$_14) _~G_ET LOCATION OF HOLLERITH 

L(BU, 12),C.C( $13) -CARD AND TEST FOR B 

KFKBU, 12), 12) 1CC01CGC0CCC 

BZAEZ,YUER -IF NOT A B GIVE ERROR RETURN 

SV,$13,YUECS -LOCATION OF CARD TO EDIT CALLING 

LV,S13, 1.0( $14) _-DISP. TO $13 



14000005 
14000006 
14000007 
14000008 
14000009 
14000010 



014000.20 50 
414000.23 10 



U*_002173.CC 
12* 002173.40 
12* 002174.00 
14* 002174.40 
15* 0C2175.C0 
16* 002175.40 



___C_0_2_174«_3 7_01 
002422.04" GO 

CCCOCC.OO+ 

CCC120 

CC2327.0C+ 

CC2176.77 01 



lv_______+!.o 

BD,SCA6 

VF,C.O 

CF, 80 

VF,YUCBF1 

LVI,$15,$+l.p 



-CONVERT CARS TO 6-BIYT BCD 



14000011 

14C00012 

14000013 

14000014 

14000015 

14000016_ 

l^OOOOJ. 7 

14000018 

14000019 

14000020 

14000021 

14000022 



YUECS 



■BREAK CARD INTO FIELDS 



12* 
lfc* 
1<5* 
2C* 
21* 
22* 



0C_2J._7_6_._CC_ 

002176. 4C 

002177.00 

0C2177.40 

0C22CC.CC 

00220C.4C 



_„_CP_2_5_C_2_._C4 
CC2327.66+ 
CCC065 
CC2337.00+ 
CCC0C1.00+ 
O0CCO1.33 



CO BCSBRK8 



01 



VF,YUCBFl+.54 

CF,53. 

VF,YUCBF2 
YUSB8C VF,1. 

__LVL,_$13,1.0__ 
YJPL1 3_E t S + _3 2 



-ERROR RETURN- VALID ONLY FOR 



2 3* 
~2<* 
25* 
26* 
27* 
2£* 



002201.00 



C02201.4C 00 



14000023 
14000024 
14000025 
14000026 

14000027 
14000028 



002201.40 
002202.40 
0022C3.40 

002204.00 



002337. CO 
002355. CC 
C0CCC1.33 

C02207.36 



80 
8D 
04 
C4 



060000.20 
060000.21 



50 
10 



L(BU,48),YUCBF2 
K(BU,48),YTYPMK($13) 
KVI,$13, l.C 

BZAEZ,YMKEAR 



JOB CARD SO FAKE DISPOSITION 
-NORMAL RETURN TEST FIRST 
-FIELD IN CARD 
-TEST DISPOSITION 
-IF FIRST FIELD IS NOT CORRECT, 



2_* 
3C* 
31* 
32* 
33* 
34* 



FURTHER TESTING IS REQUJ RED 
-DISP. HAS JOB 

-CARD WAS T.C.P. - GO TYPE 
-TEST DISPOSITION FURTHER 
-CARD WAS A LIM. 
-CARD WAS AN ICD. 



14000029 

14000030" 

14000031 

14000032 

14000033 

14000034 



0C2204, 
0G22C5. 
002205, 
002206. 
0C2206 



4C 
00 
40 
CO 
40 



C02213.32 C6 
CC2214.72 46 
00CC02.33 04 
G02246.32 C6 

C02266.5C CO 



BXEZ.YJCBC 
BXLZiYTCPGO 
KVI f $13,2.0 
BXEZ,YLIMC 

8,YI0CC 



20 
19 
18 
17 
16 
1J 
14 
13 
12 
11 
10 
9 
8 
7 
« 
5 
4 
3 
2 
1 



35* 
36* 
3 7* 
36* 
39* 
4C* 
41* 



OC2207.00 
002207.40 
0C221C.00 
00221C.4C 
0(32211. CO 
002212.00 
002212. 4C 



C02.3Q3.J_2_ 
002311.32 
C0CC02.33 
002311.32 
CC2360.C0 
_C_0_2276.36 
C02311.1C 



C2 
42 
04 
C6 

80 
C6 
CO 



YMKEAR 



060000.21 10 



AX_F»_Y_J_C_C__R__ 
BXL,YUER 
KVlt $13*2.0 
BXEZ,YUER 
K(BU,48) ,YRELMK 
B_._.Z_Y___LC__ 
B,YUER 



-DISP. 2.0 OR 4.0 
-DISPOSITION WAS LIM- 
-TESTR FOR REEL CARD 



TO ERROR RETURN 



140000 35 
14000036 
14000037 
14000038 
14000039 
14000040 
14000041" 



Wfll 



TIME CLOCK 00054041 



PUNID 11C11IPL 



CARD ID 14000043 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



39 



LINE 



LOCATION 



BINARY OUTPUT 



NAMi 



STATEMENT 



LOCATION 



1* 
2* 

2* 



0C2213 
OC 2 21 3 
00 22 14 
002214 
0C2215 
002215 
002216 



.00 
•A_C 
.00 
.40 
.OC 
.40 
.40 



CO 0001. 
002 313. 
002311. 
CCCC34. 
CCCC04. 
002340. 
CC2354. 



32 
72 
10 
22 
31 
CC 
CO 



CO 
00 
C2 
80 
80 



— **««**#*#***«■»«*#*##*«•»*****#««***»»»*»«***«■*»«»**«♦************»#«*** 14000043 

SERVICE ROUTINES TO EXTRACT INFORMATION FROM SYSTEN CARDS. 14000044 

— «*»*«*#*»***#*«#**«******♦**«**»*«#»**#*****#*****»*****»***»*****»»** 14000045 
YJCBC KV,$13,1.0( $14) 14000046 



5* 
1* 

s* 

1C* 



060000.20 50 

060000.21 10 



BXEZ, YNCRR 
B^YUER 
YTCPGG Z,$12 

LCI,*12, (2)00100 
L(BU,48), YUCeF2+1.0 
K(BL,48) ,YGCMK 



-GO - SET COUNT FIELD TO PROPER 
-VALUE + GO TO NORMAL RETURN 



14000047 
14000048 
14000049 
14000050 
14000051 
14000052 





11* 


002217.40 


C02313.76 


C2 






BAC, YNCRR 




14000053 




12* 


002220.00 


C02362.CC 


80 


060000.21 


1C 


K(6U,48),YC0MMK 




14000054 




12* 


002221. CC 


002232.76 


C2 






BAE,YT0PCM 




14000055 




14* 


002221.40 * 


C02363.C0 


80 


060000.21 


10 


K{8U,48),YCNGMK 




14000056 




15* 


002222.40 


002233.76 


C2 






BAE,YTCPCG 




14000057 




16* 


002223. CC 


C02365.CC 


80 


060000.21 


10 


K(BU,48),YUPCAT 




14000058 




17* 


002224. CC 


002311.36 


CO 






8ZAE,YUER 




14000059 1 




16* 


002224.40 


002151.10 


80 


002311.34 


00 


BZB, SYSMCCYUER 




14000060 




IS* 


002225.40 


C02151.C3 


80 


001000.00 


FO 


CMOCC0{6U,n,SCORG 




14000061 




2C* 


002226.40 


002162.32 


30 






LV,$13,SRG0F 




14000062 




2J* 


002227. CO 


005464. 73 


30 






SV,$13,YL0L2 




14000063 




22* 
23* 


0C2227.4C 

002230. CO 


CCCC35.22 
C05465.33 


CO 
30" 








Z,$13 
SV,$13,YL0L1 





14000064 
14000065" 




24* 


00223C.4C 


005465.31 


80 


001000.36 


FO 


CMlllKBUt l) t YL0L1 + -25 




14000066 




25* 


002231.40 


005464.10 


00 






B,Y8CRD 




14000067 




26* 


0C2232.C0 


002311.10 


00 






B,YLER 




14000068 




27* 


002232.40 


C0CC23.31 


02 






YTOPCM LCI, $12, (2)10011 




14000069 




2e* 


0C2233.CC 


002234.10 


00 






B,YT0PCG+.32 




14000070 




2S* 


002233.40 


00CC13.31 


02 






YTCPCG LCI, $12, (2)01011 




14000071 




3C* 


002234.00 


CC22CC.36 


50 






LC,$15,YUSB8C 




14000072 




31* 


002234.40 


C0CC02.37 


CA 






KCI, $15, 2.0 




14000073 




32* 


002235. CC * 


002313.73 


40 






8ZXF,YN0RR 




14000074 




33* 


002235.40 


002342. CO 


80 


060000.20 


50 


L(BL,48),YUCBF2+3.0 




"14000075 




34* 

" 35* 


002236.40 
0C2237.4C 


001775. 40 
002241.36 


80 
CO 


060000.21 


10 


K(BL,48) ,YNLST 
" fiZAE,$+1.32 





14000076 
140000 7/ 

14000078 




36* 


00224C.CC 


C0CC34.54 


80 


001000. CC 


FC 


CM0C00(BU,l),$12+.44 




37* 


002241.00 


00CC03.37 


OA 






KCI, $15, 3.0 




14000079 


20 


3e* 


002241.40 


002313.73 


40 






BZXF, YNCRR 




14000080 


15 


3?* 


002242.00 


002343. CC 


80 


060000. 2C 


50 


L(BU,48),YUCBF2+4.C 




14000081 


T8 


4C* 
41* 


002243. CC 
002244. CC 


001775.40 
CO 231 3. 76 


80 
CO 


060000.21 


10 


K(BU,48) ,YNOPUN 




14000082 


17 


BZAE, YNCRR 




14000083 


16 


42* 


002244.40 


C0C034.55 


80 


001000.00 


FO 


CMCC00(BU,1) ,$12+.45 




14000004 


IS 


43* 


002245.40 


002313.50 


CO 






B,YNORR 




14000085 


U 


44* 


002246. CC 


002322.30 


10 






YLIMC LX,$12,YUCX12 


-LIM CARD- CONVERT BCD ZEROS 


14000086 


13 


45* 


002246.40 


120C00.C0 


80 


406000.20 


50 


LKBU, 6), (2)001010 


-TO TRUE ZEROS 


14000087 


12 


46* 


002247.40 


00CCC0.C6 


8C 


106000.15 


70 


YLL2 CT0110{V + I HBU,6), .6($12) 


-IS THIS BYTE A BCD ZERO 


14000088 


11 


4 7* 


002250.40 * 


002252.34 


C4 






BZRZZ,$+1.32 


-IF NOT TEST NEXT BYTE 


14000069 
14000090 1 


10 


48* 


002251. CC 


777777.72 


8C 


006000.00 


FO 


CM0C00(BL,6), -.6(412) 


-IF SO, REPLACE BY TRUE ZERO 


9 


4S* 


002252.00 


002247.70 


4C 






CBR,$12,YLL2 




14000091 


8 


5C* 


002252.40 


002247.63 


40 






BZXF,YLL2 




14000092 


7 


51* 


002253.00 


002340. CC 


80 


044600.06 


70 


LF(EU,36,6),YUCBF2+1.0 


-LIMITS TO 


14000093 


6 


52* 


002254. CC 


C0CC34.00 


80 


022300.12 


FO 


SF(BU,18,3),$12 


-BINARY, PUT IN $12 


14000094 


5 


52* 


002255. CO 


C02341.C0 


80 


044600.06 


70 


LF(BU,36,6),YUCBF2+2.G 


- 


14000095 


4 


54* 


002256.00 


C0CC34.34 


80 


022300.12 


FO 


SF(BU, 18,3), $12+. 28 




14000096 


3 


55* 


002257. CC 


C05465.7C 


90 






KV, $12, STERMI 




14000097 


2 

1 


56* 


002257.40 


002262.32 


42 






BXL,YUCLLC 




14000098 



wax 



~h ( 



TIME CLCCK 00054C41 



PUNID 1LC1LIPL 



CARD ID 14000099 



DIST. OF 3/01 



3/01 



PAGE NUMBER 



40 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



002260 



1* 002260.00 

2* 002260.40 

2* 002261.00 

4* 002261.40 



002162.31 90 
002311.33 42 
C02162.26 30 
002264. 5C CO 



5* 002262.00 



002150.31 90 



YUCLLC 



KC,$12,SRCGF 
BXH,YUER 
LV,$11,SR00F 
B,YUCLLF 
KC, $l2 f SMCP 



14000099 
14000100 
14000101 
14000102 



6* 
7* 
£* 
c* 

1C* 



002262.40 
002263.00 
002263.40 
002264.00 
0C2264.40 



002311.33 
000041.31 
002311.32 
002150.26 
002153.27 



42 
04 
42 
30 

30 



YUCLLH 



BXH.YUER 

KVI,$12,33.0 

BXL,YUER 

L\/,$11,SMCP 

SV,$11,SMAXUB 



1400 0103 

14000104~ 

14000105 

14000106 

14000107 

14000108 



11« 002265. CO 



_C0CC34_._31 90 KC,$12,$12 



-IS LOWER GREATER 



14000109 



12* 
13* 
14* 
15* 
16* 



002265.40 
002266.00 
002266.40 
002267.00 
002270.00 



002311.33 
002313.50 
002321.30 

120000. CO 
000000. C6 



40 
00 
10 

80 
8C 



406000. 2C 
106000.15 



50 
70 



BZXH,YUER 
B.YNORR 
YIOOC LX,$12, YIDX12 

LI( BU,6), (2)001010 



-THAN UPPER LIMIT 
-LIMITS OK - TO NORMAL RETURN 
-CONVERT 1-0 REFERENCE 
-NUMBER AND ABSOLUTE EXIT 



_YJ_0_D L L C T 1 1 i V + 1 ) J B\ij6J_,_._6J$l2J -F U E L D S _ 0N_ 1 0D__ CA_R D_ _T_0_ _B_I_N A R_Y 



14000110 
14000111 
14000112 
14000113 
14000114 



17* 
1€* 
IS* 
2C* 
21* 
22* 



0C227i_._C_0_ 

002271.40 

002272.40 

002273. CC 

002274.00 

002275.00 



0_0_?_2_7 2._74 

mm. 12 

002270.30 
002334.64 
G0CC34.64 



C4 
8C 
4C 

80 
80 



BZRZZ,YigCB_ 

CM0C00{BU,6),-.6($12) 

CBR,$12,YI0DTL 

LF(BU,60,6),YUTOE 

SF(BU,12,3),$12+.52,48 

AFLeyti8»3]jrii2 



14000115 
14000116 
14000117 
14000118 
14000119 
14000120 



006000.00 FO 



YICCB 



074600. C6 
014330.12 



70 
FO 



-PUT IN $12 



000034.00 80 022300.12 FO 



23* 
2** 
25* 
26* 
27* 
2£* 



'QQ2276_.CC 

002276. 4C 

002277, 

002300. 

002301 

0023C2, 



AQ220P_._3 C _50 
C0GC33.C0 80~ 
C0CCC2.37 BE 
002364.00 80 
GOCCOO.CG 8F 
00CC33.C0 80 



YREELC 



LC,$12, YUSB8C 



-LOAD COUNT WITH = OF FIELDS 



14000121 
14000122 
14000123 
14000124 
14000125 
14000126 



40 

00 

,00 

CO 



002324.06 EO 

000000.02 AF 
000001.16 AF 
002324.06 EO 



SWAPI.3, $11, YUXSAV 

LVE,$15,2.0($14) 

TI, 1,YBLWD4,0.0( $15) 

TI, 7,0. 01115), l.C($15) 

SWAPI,3,$11,YUXSAV 



2S« 

3C* 
31* 
32* 
33* 
34* 



QG23C3..C0 
002303.40 
002304.00 
002304.40 
002305.00 
0G2306.00 



002 313.50 GO 
CC22C0.36 50 
C00C01.32 9E 
002311.32 CO 
002324.00 80 
C0C0G2.37 BE 



B»_YNORR_ 
LC,$15,YUSB8C 
KV, $13,1.0(114) 
BZXE,YUER 
TI,3,YUXSAV,$11 
LV_E_»_$_15_ L 2.0( $14) 



-IN BREAKDOWN, AND RETURN 



14000127 

14000128" 

14000129 

14000130 

14000131 

14000132 



YJCCER 



000033.06 AO 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 
6 
5 
4 
3 
2 
1 



3 5* 
36* 
37* 
38* 
3*3* 
4C* 
41* 



992306.40 
002307.40 
002310.40 
002311.00 
002312.00 
QQ2312..40 
0C2313.00 



COG 0_00_._C_C_ _8 F 
002337.00 80 
00C002.5C OE 
002324.00 80 
000002.37 BE 
00C_C_0_»_2_2_ _0F_ 
C0C002.50 GE 



ogqooo.coFp 

000000.36 2F 
000033.06 AO 



YUER 



_c M _o_c_o_o_ ( B y 1 1 ( $ 1 5 J 

T,$15,YUCBF2,0.0($15) 
B,2.32{ $14) 
TI,3,YUXSAV,$11 
LVE, $15,2.01*14) 
?_»_0_._0_($15i 
B, 2. 32 {$14) 



14000133 
14000134 
14000135 
14000136 
14000137 
14000138 
14000139" 



wai 



J IME CLOCK CCC54C41 



PONID ilCUIPL 



CARC IC 14000141 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



41 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
2 * 

1*_0C23_13_._4_0 

!?_9 c 2jn.4_*_oo_ 

t* 0023 15. CO 
002316. CC 
002316.40 
002317. CO 
002317.40 



7* 

e* 

9* 
IC* 



CO CO 00.31 
C~C 177 5.00 
002324.00 
0CCC02.37 
002200.36 
C02320.71 
CC2337.CC 



1§ 

80 

80" 
BE 
50 
42 

eo 



001000.00 
000033.06 



_F_0_ 
AC 



000000.36 2F 



■ *«*»«*«««»&«««««*«**£**»«*«**«**«•*«**********«*••**«*********»*«***»* 14000141 

• - RETURNS, MASKS, TtMPORARY STORAGE FOR UNCODE. 14000142 

- **«*******«*«******«*******•«*****•*#•*«»**«*•****«*-«*******«»***•*#** 14000143 

_Y_NCRR_ SX,$12,C.C($14_) _„-^yi_ INFORMATION IN CALLING 14000144 

CM0C00{BU i U jYTBIT _ __ ' ~ _~_ _ .l 40 " ?! 4 ^ 

TI,3,YUXSA~V,3>11 -SEQUENCE ~" " 14000146" 

LVE,$15,2.0($14) -IF SETA SUB I ISNCN ZERO, 14000147 

LC,$15,YUSB8C -TRANSMIT BROKEN OUT 14000148 

BXVZ,$+1.32 -CARD TC REGUESTED AREA 14000149 

T,$15,YUCBF2,C.0{$15) 14000150 



U* 

12* 

13* 
14* 
15* 



002 320.40 
002 321.00" 
002322.00 
002323.00 
002324. CO 



_„__ 00 _CCC3._iq_0E 

C 23 34. 64+ OCO 

002340.00+ OGO 

CC2341.00+ 111 

0OCCC3.00 



000012 
000006 
000006 



ocoooo 

002323 

occooo 



YIDX12 
YUCX12 

YUXSAV 



B,3 1 0[$14] -RETURN 

XW,YUT0E,10, 
XW,YUCBF2+1.Q,6,$+1.C 
XW,YUCBF2+2.G,6, C,7 
DRZ(BU,fc4), (3) 



-INDEX WORDS FOR ABOVE ROUTINE 



.U*_°C2327.C_C CCCCIO.GO YUCBF1 DRZ{BU,64), (8) 



14000151 
14000152 
14000153 
14000154 
14000155 
14000156 



1 7 *„ 2_3_3J_._C_0_ 
"l£* 002354. CC 
IS* 

2C* 002355.00 
21* 

22*_002356_.CC 
22* 



C0C015.CC 



YUCBF2 DRZ(BU,64),J 13) 
YGOMK - ~FAX)DD(BU,48,6f.G0 X 
CNOP 
YTYPMK (AX)DC{BU, 48, 6), TYPE X 

CNCP 

( AX )DD[8U, 48, 6_),J08 X 

" CNOP"" ~ 



14000^57 

14000158" 

14000159 

14000160 

14000161 

14000162 

14000163 



24* 002357. CC 

25* 

26* 002360. CC 

27* 

2fc* 002361. CC 



( AX)DD(BU,48,6),LIM X 
CNCP 
YRELMK ( AX)DD(BU,48,6),REEL X 
CNOP 
C AX)DD(BU,48,6), IOD X 



14000164 
14000165 
14000166 
14000167 

14000168 



29* 

~3C* 002362. CC" 
31* 
32* 002363.00 

33* 

34* 002364. CC 



CNCP 
YCOMMK ( AX 3 DD ( BU, 48, 6 ) ,COMPTLE X 

CNOP 
YCNGMK ( AX)0D{BU,48 f 6),C0MPILGCX 

CNOP 
YBLaD4 { AX)0D(BU,48,6), X 



14000169 

14000170" 

14000171 

14000172 

14000173 

14000174 



20 
15 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 

3T*0C2 36 5 7cn" 
37* 002334.64+ 



+OCOOOOCC 



BUtlOOt 10 



YUPDAT 
Y UTOE 



CNOP 

( AX")nUfeU,48,6),lPDATE" X 

SYN,YUCBFl+.372 -LOCATION OF REF = AND TOE 



14000175 

"14000176 

14000177 



wai 



T IME CLOCK C0054G41 



PUNID 11C11IPL 



CARD ID 150CGOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



42 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2* 

4* 0C2365.6C * 



— ««*******«««*«*««*««*«««*«««««*•****«****««**««*«***•**«*#**«*«*«*•«* 15000001 

**«*#«»***BCC TO IQS CONVERSION ROUTINE ************* 15000002 

— «*»****»*»**»»*<*****»**»*«#*#*#«****»»»»***»******#*»*»**#»*»****»-** 15000003 

SLC,$ 15000004 



002366.CC 0024C3.CC 80 002374.04 AO 5 A8IQS TI,2,G CSMI,G KRLH -SET LCCP FOR 8BIT fiCD_ 



15000005 



t* 
7* 
£* 

S* 

u* 



0C2367.C0 
002367.40 
002370.40 
002371. CO 



CC2370.5C 
G02405.00 
002407.33 
002410.35 



CO 
80 
10 
10 



002374.04 AO 



B, $ + 1.32 
S A6IQS TI,2,G SEST,G KRLH 
SX,$13,G ULOZX 
SX,$14,G ULOZX+1.0 



-SET LOOP FOR 6BIT BCD 

-SAVE ORIGINAL INDEX REGISTERS 



QQ 237 1.40 CC2411.37_10 SX, $1 5, G ULOZX+^.C 

002372.00 C0CCC0.34 3F LV, $14, C .0 ( $ 15 ) 



-PUT *IN* IN VF OF $14 



15000006 
15000007 
15000008 
15000009 
15000010 
15000011 



\l* 
12* 
1«* 
15* 
16* 



002372. 4C 
002373. CO 
0C2373.4C 

0C2374.CC * 



C0CCCC.74 
002401.30 
CCCC01.32 

000002. CO 



5F 
42 
3F 



G KRUH 



LC,$14,.32{ $15) 
BXCZ,G PRYC 
LVt »13,1.0($15) 
CNOP 
DRZLBUi^J.m 



-PUT *N* IN CF OF $14 
■PUT *CUT* IN VF OF $13 
-RESERVE 2 FULL WORDS 



15000012 
15000013 
15000014 
15000015 

15000016 



17* 002376. OC 



00CC11.36 30 



G SKCK 



LV, $15, $R 



■PLT BIT ADDRESS*8 IN $15 



15000017 



ie* 
19* 

2C* 
21* 
22* 



002376. 40 
002377.40 
002400.40 
002401. CO 
0C24C1.40 



CC2412.C0 
00CC00.10 
002374.34 
002407.32 
_CiO_2Al_Q_«_3_4 
CC2411.36 
C0CCC1.5C 



8F 
8D 
48 
10 

10 

10 
CF 



010000.20 50 
110000. 2C DC 



G PRYC 



LlBLi 8),G RA0A<$15) 
ST(V+I ) (BU»8)t.8(tL3) 
CB,$14,G KRUH 
LX,$13,G ULOZX 
LX,$14,G ULOZX+1.0 



-LOAD 8BIT CODE IQS CHARACTER 
-STORE SAME 

-RESTORE INDEX REGISTERS 



15000018 
15000019 
15000020 
15000021 
15000022 



23* 
2** 
21* 
26* 
27* 
2£* 



002402.00 
0024C2.4C 

002403.00 
002404. CO 
002405. CC 



,0 



JLX, 4l5,G_UL0ZX + 2^__ 
B, 1.32 ( $15) 

CNOP -BACK 

L(V+I ) (BU,8),.8*$14),43 
C00C0(BU,2),0.0,49 
G SEST L(V+I ) (BU,6), .6{$14),43 



15000023 

15000024" 

15000024 

15000025 

15000026 

150G0027 



TO 



C0GCC0.10 8E 
COGCOO.CC 80 
0O0CCO.C6 8E 



110025.60 
002030.40 



50 
7C 



G OSMI 



RETURN 
-FOR 



8BIT BCD 



106025.60 5C 



-FOR 6BIT BCD 



2_i* 
3C* 
31* 
32* 

33* 
34* 



Q024C6..CC 
0C24C6.40" 
002407. CO 
002412. CC 
002413.40 
002413.50 



CIL2_3_7_6_-l_C_ 00 
CCCC00.30 00 
C00C03.CC 



8_»_G_SK0K 

_.. ^^ 

G ULOZX DRZtBU,64), (3) 

G RADA { IQS*)DD(BU,8,8),/123456789C=* 
(2)DD(BU, 8, 8), 00101010 
UQS*)CC{BU,3,8),/// /STUVWXYZ* 



15000028 
15000028 
15000029 
15000030 
15000031 
150000 32 



052 



-RESERVE 3 FULL WORDS FOR INDEXES 



-QLCTATION 



20 
19 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3_5_*__002415.2C 
36* 0C2415.3C 
37* 002417.20 
38* 002417.30 



165 



(2)CD(BU,8,8) , C111C1C1 -CCLCN 

{ IQS*)DD(BU,8,8) ,, ( ///- JKLMNCPQR* 

( IQS*)CHBU,8,8.) ,/* - SEMICOLON 

UQSY)DC(BU,8,8),$*///+ABCDEFGHI/.)///Y 



15000033 
15000034 
15000035 
15000036 



Wfll 



TIME CLOCK CCC54C41 



PUNID 11C11IPL 



CARD ID 15000038 



OIST. OF 3/01 



3/01 



PAGE NUMBER 



43 



LI, ME 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 



HOLLERITH TO BCD CONVERSION 



<* 00 24 22. CC* SLCi$ 



15000038 
15000039 
15000040 
15000041 



002422.00 



C0CC11.22 CO 



S CA6 



Z,$R 



SET UP FOR A-6 CONVERSION 



15000042 



6* CC2422.4C 

7 * 

E* 002423.00 

9* 
1C*_?02424_.CC 
11* 002425. CO 



002424. 1G CO 

000001.40 80 430024.20 50 S CA8 

A°A C A l *_CC 30 00247 2 . 1 4 _AC_ _ _Q : _G_0_ 
00CCC0.11 BF 



$B,CGO$A 

LIIBU, 24), 1.32,40 
TAIL, A 

TI,_6,$1,QSAV 
\VE,$4,0($15} 



-SETUP FOR A-8 TYPE CONVERSION 

-SAVE THE INDICES 



15000043 
15000044 
15000045 
15000046 
15000047 
15000048"" 



12* 

12* 
14* 
15* 
16* 
17* 



002425.40 
002426.00 
002426.40 
002427.00 



C00C11.02 30 
CO0G0O.5C 5F 
C02454.7C 42 
C0CC01.12 3F 



LV,$1,$R 
LC,$4,.32($15) 
BXCZ,QFIN 
LV,$5, 1.0($15) 



FIND THE CHARACTER IN TABLE 



15000049 
15000050 
15000051 
15000052 
15000053 
15000054 



ie* 

19* 002427.40 

2C* 002430.40 

21* 002431.40 

22* 002432. CO 



C0CCG0.C3 84 
00GC07.21 80 
C0CC11.C4 30 
C0CCC7.44 50 



103000.07 70 
007026.60 50 



Q P 



CT001K V+I) (BU,3),.3($4) 

L(BU,7),$LZC,45 

LV,$2,$R 

LC,$2,7.32 



15000055 
15000056 
15000057 
15000058 
15000059 



23* 002432.40 



CCCCOO.ll 84 111000.06 70 



LF(V+I ) (BU,9) ,.9($4) 



15000060 



24* 002433.40 
25* 002434. CC 
26* 002434.40 
27* 002435.00 * 
2£* 002435.40 



CCCC0O.C5 CO 
002446. 7C 40 
002500.04 32 
00CC07.46 50 
C0CGC7.21 80 



007026.46 70 



C+I,$2,C 
BZXCZ,CER 
LV,$2,QTB($2) 
LC, $3,7.32 
LF(EU,7),iLZC,45 



-YES 



15000061 
15000062 
15000063 
15000064 
15000065 



2S* 
3C* 
31* 
32* 

32* 
34* 



002436^40 
002437. CC 
002437.40 
00244C.40 
002441.00 
002441.40 



CO 1 1 ,_C_ 6 
002447. 70 
102000.00 
C02442.36 
000C05.07 
C02447.5C 



30 
42 
80 
CO 
CI 
CO 



LV,$3,$R 

BXCZ.COK 

KFKBUf 9) , (2)001000010 

BZAE.CNC 

LVIf $3 t 5.0 

B,QCK 



15000066 
15000067 
15000068 
15000069 
15000070 
150C0071 



411000.23 10 



•IF NO TRIPLE OR MCRE PUNCHES 

-CHECK FOR AN 8-3 COMBO 

•NC 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
36* 
37* 
3E* 
3S* 
4C* 



002442.00 
002443. CC 
002443.40 
002444.00 



C42CC0.CC 
002444.76 
C0CCC5.47 
002447.50 



80 
CO 
01 
00 



411000.23 10 



C NO KFI(fiU,9 ), (2)G001CCC1C 
BZAEf QNCZ 
LVI,$3,5.32 
B,QCK 



CHECK FOR AN 8-4 COMBO 

■NO 



150000 72 
"150000 7 3 
15000074 
15000075 
15000076 
15000077 



41* 
42* 
43* 
44* 
45* 
46* 



002444. 4C 

002445.40" 

0C2446.00 

0C2446.40 

002447. CO 

002447.40 



A°_ 2 _ _ _° «_c c _8 o 

00CCC6. 07 01 

002447.76 C2 

G0CCG6.G7 01 

000C00.C5 01 

002456.15 B3 



411000.23 10 



C NOZ KFI<_BU,_9 

L VI, $3,6 

BAE,QGK 
C ER LVI,$3,6.0 

LVI ,$2,0 
C CK LVE,$6,CFLD( $3) 



, mciocoocic 

C 



"_ C _ H E _ c K _ F _ C 1 _ * N _ 8 - 1 _ COMBO 
-OK MUST BE A COLON 



15000078 
"15000079" 
15000080 
15000081 
15000082 
15000083 



47* 
~4E* 
4S* 
5C* 
51* 
52* 



002450.00 
002451.00" 
002451. 4C 
002452.40 
002453.00 
00 24 54. OG 
002454_.4_C_ 
0C2455.40 



00 2465.00 
002451.50 
000CG0.06 
002454. 10 
C0CC00.10 
C_0 242 7.5C 
0_0_24 72._CC 
"00CCC1.5C" 



86 
CI 
85 
00 
85 
48 
80 
OF" 



006600.06 70 



LF(_By L 6,6],C{$6_}_ 
B,GST($1) 
ST(V+IMBU,6,6) ,.6{$5) 

B,QCHK 

STtV+I )IBU,8,8), .8($5) 

CB,$4,CP 



15000084 
15000085 
15000086 
15000087 
15000088 
15000089 
15000090 
15000091" 



106600.20 CO 



110000.20 CO 



CST 



C C_H K 

C FIN 



52 * 
54* 



000021.14 EO 



SWAPI,6 i _QSAV J $l 
B, 1.321 $15) " 



•RESTORE INDEXES 
: AND RETURN 



wai 



TIME CLOCK 0GC54C41 



PUNID 11C11IPL 



CARD ID 15000093 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 44 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 
2 * 
** 002456. CC 



OOCCCO.CO 82 



— ***«****#**««*««**«#***«*•«********#*•«#««*«******»#***«**»«*»***•«** 1 5000093 

THE CHARACTER LOCATOR TABLES 15000094 

— **««*«*****«****««««**«**«»*«********•***««**«*********«»*«***«**•*** 15000095 
C FLD ,0{$2) 15000096 



_^*_PC2456.40 

" 6* 002457.00 

7* 002457.40 

6* 002460. CC 

9* 002460.40 

1C* 002461.00 



jDOCCCq.C____ 
C0CCC0.14 82 
COCOOO. 22 82 
000CC0.30 82 
C0GC00.36 82 
0GCCG0.44 82 



,.12($2) 
, .18($2) 
,.24($2) 
t.3C($2) 
, .36($2) 



1500 009 7 

15000098" 

15000099 

15000100 

15000101 

15000102 



LI* 
12* 
13* 

14« 

15* 

16* 



9Q246JL_.4C_ 

002462.00 

002462.40 

002463.00 

002463.40 

002464. CO 



_C_Q.CCC_0._5 2 82 
C0CCC0.60 82 
C0CC00.66 82 
C0CG00.74 82 
C0CC01.C2 82 
00CCC1.10 82 



, l__2__2) 
,.48 ($2) 



15000103 
15000104 
15000105 
15000106 
15000107 
15000108 



,.54($2) 
, .6C{$2) 

» 



66<$2) 
,0.72__2_ 



12* 

le* 

19* 
2C* 
21* 

22* 



— «*ft**tt«*««e«#tt«ff«e*«ff»tt««*»«»**»***«aft»*&***»ft«***tt«****ff****«****ft*« 



15000109 



002464.40 
0C2465.C0 
002466.16 



G00C00.30 00 



THE TABLES 



— C«*«»tt**«#**ff**«**«#ff*«*«*»*ft«**«**«**«ft»***#ff«***««****tt*«**«»*»***» 



CNOP 

( AX)DD(BU,6,6),ABCDEFGHI+.)/X 
_(_A X ) Q C 1 B U , 6 , 6) , J K L M N P Q R - $ * / X 



15000110 
15000111 
15000112 
15000113 
15000114 



22* 
2<* 
25* 
26* 
2 7* 

2e* 



QQ2467_34 
002470.44 
00247C.52 



002472. CC * 



32 



LM10D__U_6 1 6) J r /ST U V My 10 , ( A 
DD(E>U f 6,6) t (8)32 -SPECIAL 

(AX)DD(BU, 6, 6), 123456789 =-/X 



FOR CCLON 



C0CCC6.C0 



CNOP 
Q SAV DRZ(BU,64), (6) 



15000115 
15000116 
15000117 
15000118 
15000119 
15000120 



29* 
3C* 
31* 
32* 
3 3* 
34* 
35* 



002500. CO 
00250G.4C 
002501.00 
002501.40 



CCCOOG.OO+ 
CCC001.16+ 
CCCCC2.34+ 
CC00C3.52+ 



C TB 



VF,C 
VF,78 
VF,156 
VF,234 



-FOR 12 ZCNE 
-FOR THE 11 ZONE 
-FOR THE ZERO ZCNE 
-FOR THE NO ZONE 



15QQ0121 
15000122 
15000123 
15000124 
15000125 
15000126 
15000127 



UNTAIL, ( 1) 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



wai 



r I ME CLOCK 00054041 PUNID 1LC11IPL CARD ID 15000129 

C In e~ Loc atTcn bin a r y c u t put na~m"e~ 



DIST. OF 3/C1 
STATEMENT 



3/01 



PAGE NUMBER 45 
LOCATION 



1* 

2 * 
2 * 
i » 

" I * _ 2 5 0~l~. 7~f V 
6* 
i* 
£* 
c* 

1C* 002502.00 



THE BREAKDOWN ROUTINE 



SLC,$ 

-S8RK8," 
-FIELDS, 



6 BIT BCD VERSION, 
LARRY LEVY 



16 BITS BETWEEN OUTPUT 



II* 
12* 

13* 

14* 

15* 

16* 

17* 



00 2 50 2. 40 
002503. CO" 
002503.40 
002504.00 
002504.40 
0G2_50 5_._C_C_ 
CC 250 5. 40 



C_C_2_5_47._C3 
°_Q. 2 5 5_0_ .05 
"0025 5 I. C 7 
C0CCC0.02 
C0CCC0.42 
GGCC01.C4 
00 25 55. C6 
C0CCC1.-40 



10 
10 
10 
3F 
5F 
3F 
10 
8F 



SERK8 



SX,CX INNtQ 
SX,CX_CUT,Q 
~SX,~CX CF9,Q 
LV.CX 
LCtCX 
LV, GX 
LX,CX 



SAV1 
SAV2 __ 
SAV3 
INN, 0. ($15) 
INN,.32($15) 
CUT, 1. ($15) 
CF9,GW CF9 



-SAVE INDEX REGISTERS 



-INITIALIZE IN 
-INITIALIZE N 
-INITIALIZE OUT 
-COUNT CHARS IN 



STORED FIELD 



022000.00 FO 



CM0C00(BU,18,8) ,1.32($15) -INITIALIZE FIELD COUNT 



15000129 
15000130 
15000131 
15000132 
15000133 
15000134 
15000135 
15000136 
15000137 
15G00138_ 

"150001 39" 
15000140 
15000141 
15000142 
15000143 
15000144 

"15000145" 

"15000146" 
15000147 
15000148 
15000149 
15000150 

"15000151 

"15000152 
15000153 
15000154 
15000155 
15000156 
15000157" 
15000158 
15000159 
15000160 
15000161 
15000162 
15000163 

"15000164 
15000165 
15000166 
15000167 
15000168 
15000169] 

"15000170 
15000171 
15000172 
15000173 
15000174 
15000175] 
15000176 
15000177 
150001 78 
15000179 
15000180 



IE* 
IS* 
2C* 
21* 
22* 



002506.40 
002507. 4C 
00251C.4C 
002511.40 
002512.00 



GC2556. 37 
0CCCC0.06 
002556.31 
CC2520.76 

002556.61 



80 
81 
80 
C2 

80 



030040.20 50 
106000.06 7C 
006600.23 10 

006600.23 10 



L(BU, 18+CKSIZ),QC0UNT,64 
G NEXT LF(V+I)(BU,G KSIZ), C KS1Z(QX INN) -LOAD 
KF,C CMA -IS THIS A COMMA 

BAE.Q IF C 
KF,G BLNK -IS THIS A BLANK 



INPUT CHAR. STEP X 



23* 
24* 
25* 
26* 
27* 
26 * 



002513_.CC 

002513.40" 

002514.00 

002515.00 

002515.40 

002516.40 



00 251 5. 3 6 
002530. C 6 
00C0G0.06 
002507.42 
000001.40 
002 526. C 6 

A n A c A°_«„ C6 _ 

002516.50 



C2 
4~E 

82 
48 
8F 
4A 
8_2_ 
"CO 



BAE,G STEP 
"C" BR Z ," Q X ~ C F 9 , Q " 28 I G 
SF(V+I )(BU,G KSIZ), i 
CB,CX INNtQ NEXT 
M+KBUt 18), 1.32($15) 
CBZ,QX CF9,Q RSTR 



106000.12 FO 



022000.22 BO 



G STEP 

Q BL 



-TEST FOR OVERSIZED FIELD 
KS1Z(GX OUT) -STORE CHAR. STEP X 
-TEST FOR LAST INPUT CHAR 
-COUNT LAST FIELD 
-STORE R.H. BLANKS AT END OF LAST 



FIELD 



29* 
"3C* 
31* 
32* 
33* 
34* 



0C2517_C0 
0C2520.00" 

002520.40 
0C2521.40 

002522.00 



1C6040.12 FO 



SF(_y+I)(BU_Q KSIZ),G KSI Z ( QX OUT ) , 64 

B,Q BL " "7 



IF NECESSARY 



C0CC01.40 8F 
002523.46 4E 
CCCCC0.06 82 



022000.22 BO 



106040.12 FO 



Q IF C M+llBU, 18), 1.32($15 

CBRZ.QX CF9,Q REDY 
G ZERO SF( V + I ) (BU,Q KSIZ), 



G 



-COUNT THIS FIELD 
-TEST FOR SHORT INPUT FIELD 
KSIZ(QX OUT), 64 -STORE RIGHT-HAND 



_35_* 
36* 
37* 
3E* 
3S* 
4C* 



002523.00 

002523.40" 

002524.00 

0C2525.C0 

002525.40 



00 2_52_2._0_6_ 
CG2556~.04 
CC0CC1.40 
002526.37 
002507.42 



4C 

"bo 

8F 
40 
48 



_CBR,_OX CF9,Q ZERO 
V+",GX CLftO SKIP -SKIP 
KF(BU, 18), 1.32($15),64 + GKSIZ 
BZAH,GRSTR 
CB,GX INN,Q NEXT -TEST 



8 L A N KS AFTERSHCRT FIELD S 
"TO BEG OF NEXT OUTPUT FIELD 



FOR LAST INPUT CHAR 



20 
19 
18 
17 
16 
15 
14 

13 
12 
11 
10 
9 

e 

7 
6 
S 
4 
3 
2 
1 



G REDY 



022043.23 10 



41* 
42* 
43* 
44* 
45* 
46* 



002526_C0_ 
"002526.40 
0C2527.0C 
002527.40 

0C253C.C0 * 



00 2547 .02 10 Q RSTR 

002550.04 10 
002551. C6 10 
000002.50 OF 

CCCCC1.40 8F 022000.22 BO C 2BIG 



LX,GX INN.Q SAV1 

LXi GX OUT,Q SAV2 

LX,GX CF9,Q SAV3 
B,2.32($15) 

M + 1 ( BU _ 1 8 _ , 1 . 32 ( * _1_5_)_ 
"SWAPI.ltQX INNtQ SAV1 



-RESTORE INDEX REGISTERS 



47* 
48* 
49* 
5C* 
51* 
52* 



002531.00 

002532.00" 

002533.00 

002534. CC 

002535.00 

002535.40 



_0_°_°_ _2U<_0__q 

CCCC22.00 80 

000023. OC 80 

000010.00 80 

002554.37 10 

CCCCC2.10 OF 



002547 _.C2_ EO 
002550.02 EO 
002551.02 EC 
002552.04 AO 



-NORMAL RETURN 

-COUNT THIS F_ELD 

-RESTORE "INDEXES BUT" SAVE THE 



SWAPI,l,GX OUT.Q SAV2 - PRESENT VALUES FOR RE-ENTRY 

SWAPIrlfCX CF9,Q SAV3 - AT GBRK8 

TI,2,$L,Q SAV4 -SAVE $L AND $R 

SX,$15,G SAV6 

B,2. ($15) -ERROR RETURN 



wai 



TIME CLOCK CCC54C41 



PUNIC 11C11IPL 



CARD ID 15000182 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



46 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

2* 002536.00 

3* 002537. CO 

4* 0C254C.C0 



00C021.CG 
000022. CO 

C0CC23.C0 



80 
80 
80 



002547, 

002550, 
002551, 



02 
C2 
C2 



EC 
EC 

EC 



CBRK8 



SWAPI , 1,CX 
SWAPI, 1,GX 
SWAPI, 1,GX 



-RE-ENTRY 
INN.Q SAVi 
OUT,Q SAV2 
CF9,Q SAV3 



PCINT FOLLOWING ERROR RETURN 
-RESET INDEXES 



15000182 
15000183 
15000184 

15000135 



5* 002541.00 



002552. CO 80 000010.04 AO 



T I t 2, Q SAV4,$L 



-RESET $L AND $R 



15000186 



£* 
7* 
£* 
c* 

II! 

12* 
13* 
14* 
15* 
16* 



CG2542.C0 
002542. 4C 
002543. CO 
002543.40 



C02554.36 
002556. C4 
002526.02 
002556.31 



10 
BO 
4A 
80 



006600.23 10 



LX,$15,C SAV6 
V + ,« OUT,Q SKIP 
Q SPAC CBZ,QXINN,QRSTR 
KF,G CMA 



-SKIP TO BEG OF NEXT OUTPUT FIELD 
-TEST FOR LAST INPUT CHARACTER. 
-TEST FOR COMMA. FIRST CHAR READ 
CANNOT BE A COMMA 



002544.40 



002507.76 C2 



BAE 



NEXT 



0C2545.CC 
002546.00 



0C2547.0G 



C0CC0O.C6 
C02543.10 



81 
00 



106000.06 70 



CCC0CC.00+ 000 000000 OGCCCO 



Q SAVI 



LF{ V+I ) (BU,Q 
B,Q SPAC 



XW t 



KSIZ), Q KSIZtQX INN) -LOAD NEXT CHAR. STEP X 



•STORE INDEXES 



15000187 
15000188 
15000189 
15000190 
15000191 



15000192 
15000193 
15000194 
15000195 
15000196 
15000197 



H* 

1£* 

IS* 

2C* 
21* 
22* 



PP 2 5 5 0_._0_0_ _C_C C 0_C C ._0 +_ _C _ C 0_ C C _C_ _ _G_ _S_A_V2_ _ ,_ _X W t _ _ _ 

002551. CC CCC0CC.00+ COO COOOOO CCCCOC Q SAV3 XH, 

002552.00 CCCOOC.OO+ 000 000000 OCCOOO Q SAV4 XW, 

0C2553.00 CCCOGC.OO+ OCO 000000 OCOOOO XW 

002554.00 CCCOOC.OO+ 000 OOCOOO OCCCOO Q SAV6 XW, 

OQ0021_.CC+__„ _ +_OC_C_C_C_0_C_ _ _ ___ _BU,lCC_,iO_ __GX__INN_ _„_SYN L $ 1 



15000_1 98 
15000199 
15000200 
15000201 
15000202 
15000203 



-STORE $L 

-STORE $R 
-STORE $15 



23* 
24* 
25* 
26* 
27* 
28* 



0CCC22 J .C0 + 
CCCC23.C0+ 



002555^.00 
002556.00 



+J3J3JCC.OOCO 
+GCC0C000 



BUilCCjlO 
BU, 100,10 



_e_c_cc_c_c_._o_cj-_ 

CCOOCC.20+ 



000 000011 002555 



Q X CUT 
GX CF9 



_G> _Qf_9 
C SKIP 



_SYN L $2 
SYN,$3 



PROGRAM MODIFICATION CARDS 



XW_ L C.|_9,GWCF9 
VF, . 16 



-NO. _0_F_ _C_HARS__PER _OUTPUJ FIELD +1 
-NO". OF BIT BETWEEN STORAGE FIELDS 



15000204 
15000205 
15000206 
15000207 
15000208 
15000209 



2£! 

3C* 
31* 
32* 

33* 



15000210 

15000211" 

15000212 

15000213 

15000214 



002556.31 
002556.37 
002556.61 

000000.00+ 



+CCC00006 



G CMA ( A«)DD(BU,QKSIZ,CKSIZ) , ,* -COMMA 

000014 GCOUNT DD{ BU, 18 ) , { 8 ) CO0C14 -MAX. 

G BLNK (A*)DC{EU,GKSIZ,GKSIZ), * -BLANK 

NULL G KSIZ SYN, 6 



NO. FIELDS IN BREAKOUT 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK 00054041 



PUNIC 11C11IPL 



CARD ID 16000CC2 



OIST. OF 3/01 



3/01 



PAGE NUMBER 



47 



LINE 



LGCATIGN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



002556 



1* 002556.67 * 

2* 

3* 

4 * 



SLC,$ 



I/O ASSIGNMENT DECODE 



7 * 

£* 

S* 

1C* 



16000002 
16000003 
16000004 
16000005 



16000006_ 

16000007 

16000008 

16000009 

16000010 

16000011 



THE DECODE PROGRAM LINKAGE FORMAT 



LV][,$i5,X 
B,LDECCD 



12* 
12* 
14* 

15« 
16* 
17* 



16000012 



VF,A 
CF f B 
VF,C 

BEfc t $ 



ERROR RETURN 
NORMAL RETURN 



16000013 
16000014 
16000015 
16000016 
16000017 
1 6000018 



IE* 
IS* 
2C* 
21* 
22* 
23* 



LET 
LET 



LET 



A = FWA OF THE 
B = THE MCDE 
ZERO = OVERLAP 
NOT ZERO = NOT 
C ■= THE RETURN 



EREAK DCWN AREA 

MCDE 

OVERLAP MCDE 
DISPOSITIONS 



16000019 
16000020 
16000021 
16000022 
16000023 
16000024 



SEE THE DISTRIBUTED WRITE - UP 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 

6 
5 
4 

3 
2 
1 



wai 



TIME CLOCK CCG54C41 PUNID HC11IPL CARL ID 16000026 
"LINE LUC A 1"! ON B f N A R Y~ CU T P U T NAME 



DIST. OF 3/C1 
STATEMENT""" 



3/OL 



PAGE NUMBER 48 
LOCA"TI"o"n~~ 



]* 
2* 

2 * 
A* 



PRNS 



_;* 
~6* 

7* 

6* 

9* 

1C* 



CCCC0C.64+ 



+CCCOOCCC BU,14 ,10 L IREF 



RESERVATIONS, TABLES AND COUNTERS 

S Y N [ B U , 1 2 V, C". 52 " " " P~.J> . ~R £ F E R E N C E~ NUMBER" 



16000026 
16000027 

16000028 
16000029 



160000 30 

16000031" 

16000032 

16000033 

16000034 

16000035 



TABLE INDICES FOR REFILL USE 



002557. CC 
0C256C.CC 



CC3370. 
CC3514. 
CC3623, 



00 + 
00 + 



oco 

ceo 

000 



000002 

999924 

000024 



002557 
0C256C 
0C2561 



L PPURF 



XWiTP 

_xw»_iy 



URFT,TUPPC,$ 
ICRQ,TUIpC,$ 
FRE,TUFRC,$ 



-NOT OVERLAP 
iNGTJJVERLAP 
-NOT OVERLAP 



PP REF. TBL. 

I/G_REC.__T_BL_. _ 
FIRST REEL TBL. 



U* 
12* 
13* 
14* 

15» 

16* 



99256_1_._C_0_ 

CC2562.00 

002563.00 

002564. CC 

002565.CC 

0C2566.00 



Q0± 
00 + 
00 + 
00 + 
00 + 
00 + 



xw_tu 

XW,TP 
XW.TI 
XW,TF 

XW,LS 
XW, LS 



16000036 
1600003 7 
16000038 
16000039 
16000040 
16000041 



CC3317 
CC3373, 
CC3541, 
0C262C, 
_Q_C_2_6_6C_, 
_C_ C 2_7_C_C_, 
0C2723. 



OCO 

oco 
ceo 

000 

oco 
ccc 

000 



C00024 
000120 
000062 
000036 

Q00016 
000016 
000011 



oooogo 

000024 
000120 
000062 
000036 
000016 

999916 

000000 



002562 

002563 

0C2564 

002565 

0C_2_5_66_ 

PP_2_56_7_ 

0C2570 



oceppp 

002562 
0C2563 
CC2564 
002565 
002566 
002567 

occcoo 



LPPREF 
LI0T8X 
LFSTRX 
L SYMUX 
J. SYMCX 
J-_AIPUX 
L XTY>E 



REFT,TPPC,$ 
GREC,TIOC,$ 
STRE,TFRC,$ 
YMU,32-2,$ 
YMC_ 16-2,$ 



-SYMBOLIC TAPE INDEX REFILL 

• SYMBOL I C _C H A NNEL _I NDE_X_ _R EF I_L_L_ 

-NGN-TAPE INDEX REFILL 

-THE TYPE CODE INDEX 



II* 
It* 
19* 
2C* 
21* 
22* 



002.5_6_7_._CC_ 
00257C.CC 



0G_57_1_.CC__ 

QC2572_.CC_* 

002573.CC 

00257A.CC 

002575.CG 

0C2576.C0 

9Q2577_.Cp__ 

0026CC.CC 



cc_ 

00 + 



_X__LN 
XW,LD 



IPy,l__-2_ $„ 

ISK, 9, $ 



16000042 
16000043 
16000044 
16000045 
16000046 
16000047 



C_C o_c_c_._o_o_+_ _o_pp 

0C3317.0C+ 000 



L TY 



SWAP AREA FOR EIGHT MCP-DECODE INDICES. 



XW 



23* 
24* 
25* 
26* 
27* 
26* 



X W , T P R E F T , I P P C_, L P P REF 

XW, TIORECtTIOCtLiOTBX 

XW,TFSTRE,TFRC, LFSTRX 

XW,LSYMU,32-2,LSYMUX 

XW,LSYMC,16-2,LSYMCX 

XW,_L_TPU,16-_,LNTPU_X__ 

XW 



1600004b 
16000049 
16000050 
16000051 
16000052 
16000053 



GC3373.00+ OCO 
CC3541.00+ CCO 
002620.00+ OCO 
CC266C.00+ 000 
M2_7_C_0_._0 + _0_C_0_ 
GCC00C.00+ OCO 



29* 
3C* 
31* 
32* 
3 2 * 
34* 



16000054 

16000055" 

16000056 

16000057 

16000058 

16000059 



000C23.C0+ 
0CCC24.00+ 



+OOCOOOCC 
+OCCOOOGC 



BUt ICC, 1C 
BU,1C0,10 



L IODX 

i-_ _x_p_p_ 

L XIG 



TABLE INDICES 

SYN, $3 
SYN, $4 



•INDEX FOR GETTING IOD IMAGE 
•_P_'_P_*_ AEF E.RE.NC h _TABL_I_DEX 
■1.0. REQUEST TABLE INDEX 



„35_* ppCC_5.0p + 
36* 000026.00+ 
37* 00CC27.00+ 
36* 0CC030.G0+ 
39* 000031.00+ 
4C* 00CC32.0C+ 



_+0_CC_COC_CC_ 
+OCCCOCCC 
+OC0C00CC 
+OCCGOCC0 
+0CCCOOC0 
+OCCOOOCC 



BU,lCC,lp 
BUt ICC, 10 
BUtlCCIO 
BU,100,10 
BUtlOOt 10 
BU,1CC,10 



S_Y_N , $ 5 
SYN, $6 
SYN, $7 
SYN, $8 
SYN, $9 
SYN, $10 



16000060 

16000061" 

16000062 

16000063 

16000064 

16000065 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
, 7 
6 
5 
4 
3 
2 
1 



L XFR 

L XSU 

L XSC 

L XNT 

L WORKX 



-FIRST REEL NUMBER TABLE INDEX 
•SYMBOLIC TAPE UNIT TABLE INDEX 
-SYMBOLIC CHANNEL TABLE INDEX 
-NON-TAPE TABLE INDEX 
•WORKING INDEX 



4 1* 
42* 
43* 
44* 

45* 
46* 



0C2601.CC 
002601.31 
0C26C1.4C 



CCC0C0.06+ 
0OCC00.C7 
OCCCOO. 11 



COUNTERS AND BITS 

L N06 VF,.06 

L TAPEC DRZ(8U,7), ( 1) 

L IGSCR DRZ{BU,9),( 1) 



-FOR IX BUMMPING 
-TAPE REEL COUNTER 
ICDSQ COUNTER 



16000066 
16000067 
16000068 
16000069 
16000070 
16000071 



«1* 
46* 
49* 
5C* 
51* 
52* 



0C26C1.5J 
002601.52 
002601.53 
002601.62 
002601.63 
0C2601.73 



_l___L_F_I_N_B___D_.__y_l__l 
L NTB DD(RU, 1),C 

L COUNT DRZ(BU,7},( 1) 
L CVBIT DDIRU, 1),C 

L BLZCR ( AX)DD<eU,8,8),GX 
C L INFAD DDlBUfDfC 



•_FI_N_AL BIT 

-NON-TAPE BIT 

-COUNT GF RLSYMS 
-OVERLAPPED JOB BIT 
-BCD -8 ZERC 

-INFINITE-DISK ADDRESS 



160000 72 
160000 73 
16000074 
16000075 
16000076 
16000077 



C0CCC0.C7 



Nfll 



TIME CLOCK 00054041 



LINE 



LOCATION 



PUNID 1LC11IPL 



BINARY OUTPUT 



CARD ID 16000079 



NAME 



DIST. OF 3/C1 



STATEMENT 



3/01 



PAGE NUMBER 49 
LQCATTcTN 002602 



( 

z 

z 

V ( 

s 

9 

*■ ( 

B 

6 

01 ( 

II 

Zl 
El ( 

?! 

91 f 
l\ 
SI 
61 ( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 



1* 002602. CC 

2* 0026C3.00 

2* 0C2604.CC 

<* OG260 5_._C_0_ 

5* 002606.00 



CCCCCC.0O+ 000 
CCOOOC.OO+ 000 
OC00CC.OO+ 000 
CCCO 00^00+ OCO 
CC26C7.CC+ COO 



000000 OCCCOC 
000000 OCCCOO 
000000 OCOOCO 
COOOOO CC000C_ 
000004 002606 



L save 

L SAVEY 

L SAVEZ 

L PUT 



xw 

XW,0 

xw,c 

xw 



L CLEAR XW,LRLCT,4,$ 



•TC SAVE LXNT INDEX 



•xw 



16000079 

16000080 

16000081 

16000082_ 

16000083 



£* 002607.00 * C0CCC4.CC 

£* 002613.00 CCCOCG.O0+ OCO COOOOO COOOOC 



L RLCT 0RZ(eU,64), (4) 
LAST PP XW, 



-RLSYM COUNT TABLE 

-ACO. GF LAST PP ENTERED IN TBL 



16000084 
16000085 
16000086 



20 
19 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
! 



wai 



1 IME CLOCK C0C54041 



PUNID 11C11IPL 



CARD ID 16000088 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 



50 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



002614 



1* 
2* 
2 * 
4* 



002614. OC 
002614. 1C 
002614.20 
002614.30 



001 
002 
003 
004 



L CT 



DO (BU, 8), 1,2, 3, 4, 5, 6, 7, 8,9,10,11,12,13, 14, 15, 16 



16000088 
16000088 
16000088 
16000088 



t* 

i* 

f * 

U* 



0C26J.4_.4C_ 
0C2614~. 50~ 
0C2614.60 
002614.70 
002615. CO 
002615.10 



006 
00 7 

010 

on. 

012 



16000088 

16000088" 

16000088 

16000088 

16000088 

1600C088 



12* 
11* 

14* 
IS* 
16* 



CO 26 15. 20 
002615.30 
002615.40 
002615.50 
002615.60 
0C2615.7C 



013 
014 
015 
016 
017 
020 



16000088 
16000088 
16000088 
16000088 
16000088 
16000088 



17* 

ie* 

H* 
2C* 
21* 
22* 



0C2616.C0 
002616.10 
002616.20 
002616.30 
0C2616.4C 
002616.50 



P2JL_ 

022 

023 

024 
025 
026 



_D D (_ B U , 8 _} , 1 7 , 1 8 ,1 9_,_2_C_ t _2J_,_22_,_2_ 3 1 2 4_ ,25,26, 2 7 , 2 8_, 2? ,3 , 3_1_ 



16000089 
16000089 
16000089 
16000089 
16000089 
16000089 



22* 
24* 
25* 
26* 
27* 
2£* 



QQ2616.60 

0C2616.7C 

002617 

002617 

0C2617 

002617 



CO 

10 
20 
30 



P2J 
030 
031 
032 
033 
034 



16000089 

16000089" 

16000089 

16000089 

16000089 

16000089 



?A* 
3C* 
31* 
32* 
33* 
34* 



QQ2617_.4C 
0C2617.50 
002617.60 



P3_5 
36" 
037 



INTERNAL DECODE TABLES 
~~C~NOP~ 



16000089 
"16000089" 
16000089 
16000090 
16000091 
16000092 



_3 5_*_ 

it* 

37* 
3E* 
3S* 
4C* 
41* 



16000093 
16000094 
16000095 
16000096 
16000097 
16000098 
16000099" 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



0C262C.C0 * 
000000.61+ 
002660.00 
002700. CO 
OOCCCC.OC+ 



C0CC40.CG 
+0CCC0CC0 
CCCC20.C0 
00CC20.CG 
+000000/7 



L SYCU DRZ(BU) , (32) 

BU,01 ,10 L RLBIT SYN ( BU , 1 ) , 0. 49 

L SYMC DRZ<BU),(16) 

L NTPU CRZ(BU), (161 

BU,OI ,10 L ZBIT SYN(BUtl),63 



-SYMBOLIC 
-THE REEL 
-SYMBOLIC 
-NON TAPE 
-INFINITY 



UNIT TABLE 
ENTERED BIT 
CHANNEL TABLE 
TABLE 

BIT 



wai 



TIME CLGCK C0054C41 PUNID 11C11IPL 
L IN E ~ " " LCC A ~T~I ON BINARY - CUT PUT' 



CARD ID 16000101 



DIST. OF 3/C1 
STATEMENT"" " 



3/01 



PAGE NUMBER 
L CC ATICN 



51 



1* 
I * 

2* 



SkAP AREAS FOR THE 3 INTERNAL INDEXES FOR NCT OVERLAP USE 



00272C.CG 



C0CCC3.CC 



5 * 
~l* 

1* 

E* 

1C* 

n* 



0C2723.CC 
0C2723.74 

002724.C0 
002724.74 



L _ A G A * V _ _? R Z (_ R U , 6 4 ) , ( 3 ) 

"- ~" TYPL'SYMeOLS" AND" CODES" 

L DISK (AY)DD(EU,6C,6),DISK 

(8)CD{BU,4),1 
L _ T _ R _ A _ C A__ ( A _Y1DD(BU 1 6C,6),TRACK 
CI ~~ "~ ~ ( 8)CB{BU,4), 1 



16000101 
16000102 
16000103 
16000104 



01 



Y 
Y 



16000105 

16000106" 

16000107 

16000108 

16000109 

16000110 

16000111 



12* 
12* 
14* 
15* 
1£* 



CC2725.CC 
002725.74 
002726.00 
002726.74 
002727. CO 



02 
03 



(AY)DD(BU,6C,6) .CONSOLE Y 

(8)CD(BU,4),2 

(AY)DC(BU,60,6),REACER Y 

{8)CD(BU,4},3 

(AY)DD(BU,6C, 6) , PUNCF Y 



16000112 
16000113 
16000114 
16000115 
16000116 



17* 
It* 
IS* 
2C* 
21* 
22* 



C 27 2 J .7 4 
00 27 30. CO 
00273C.74 
002731. CO 
0C2731.74 
002732. CO 



04 

C5 
06 



{8[CC(BU,4),4 

( AY J CD ( 8U , 60", 6 ) , PR INTER 

{ 8)C0(BU,4),5 

(AY)DD(BU,6C,6),IGS 

(8)CD{BU,4),6 

( AY )CCCBU,60,6), 



16000117 

16000118" 

16000119 

16000120 

16000121 

16000122 



Y 
Y 
Y 
Y 



22* 
"24* 
25* 
26* 
2 7* 
2fc* 
2S* 



002732. 74 
002733. CCf 
0C2733.74 



07 



{8)DD(BU 1 4),7 
(A"Y)DD(BU, 60,6), TAPE" 
(8)CD(BU,4) f 10 



16000123 
16000124 
16000125 
16000126 
16000127 
16000128 
16000129 



L TAPE 



10 



IOD AND REEL COMPARISONS 



3C* 
31* 
32* 
33* 
34* 



002734. CC 
002735. CO 
002736. CO * 



L ICD ( AY)DC(BU,64,6), ICC Y 

CNOP 
L REEL {AY)DC(BU, 64,6), REEL Y 

CNOP 
L BLANK (AY)DD(EU,48,6>, Y 



-BCC BLANKS 



16000130 
16000131 
16000132 
16000133 

16000134 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 





TIME CLOCK CG05< 


+041 PUNID 


11C11IPL 


CARD 


ID 


16000136 CIST. OF 3/C1 


3/01 


PAGE NUMBER 52 






LINE LOCATION 




BINARY OUTPUT 






NAME 


STATEMENT 




LOCATION 






1* 
2 * 




























16000136 
1600013? 




















_ 




DECODE SECTION OF 


MCP 






"■* 




























16000138 
16000139 




4* 


















_ 




DISPATCHER ENTRY 


TO DECODE 






5* 


















- 










16000140 














6* 


















- 










16000141 




7* 


0C2737 


.00 


C02571, 


.00 


80 


000023, 


.20 


eo 


L 


CECGD 


SWAPI,8,LTY t LIODX 


-SAVE INDEXES 


16000142 




£* 


00274C 


.CO 


COOCGO, 


,C6 


3F 












LV,LI0CX,C.0($15 ) 


-GET FWA CONTENTS. 


16000143 




S* 


002740 


.40 


OOCGGO, 


.46 


5F 












LC, LIODX, C.32U15) 


-CHECK FOR 


NOT OVERLAP MODE 


16000144 




1C* 


0C2741 


.00 


002745. 


.70 


42 












8XCZ, LOVER 


-IF OVERLAP 


MODE 


16000145 




11* 


002741 


.40 


CC2601. 


.62 


80 


002745. 


.74 


OE 






BB1,L0VBIT, LOVER 


-CHECK AND 


SET FOR NOT OVERLAP CASE 


16000146 




12* 


002742 


.40 


C0CG24, 


.00 


80 


002720, 


.06 


EC 






SWAPI, 3,LXPP,LN0SAV 


-SAVE THE OVERLAP INDEXES 


16000147 




13* 


002743 


.40 


002557. 


.CC 


80 


000024. 


,C6 


AC 






TI,3,LPPURF,LXPP 


-AND INITIALIZE FOR NOT OVERLAP 


16000148 




14* 


002744 


.40 


OOCCCO, 


22 


04 












Z,0.0(LXPP) 


-ZERO 


FIRST PPREF ENTRY. 


16000149 




15* 


0C2745 


.00 


C0CC01. 


.22 


04 












Z, l.O(LXPP) 






16000150 




16* 


002745 


.40 


C0CC01. 


.CC 


83 


OCOOOO. 


20 


50 


L 


CVER 


L(eU,64),1.0(LI0DX), CO 






16000151 




17* 


002746 


.40 


002601, 


.51 


80 


002755. 


.34 


02 






BB,LFINB,LINIT 


-BRANCH ON 


FINAL BIT 1 


16000152 




U* 


0C2747 


.40 


CC3170. 


34 


C6 












BRZZ.LFINAL 


-BRANCH ON 


ZERC FWA 


16000153 




19* 


002750 


.00 


C0C001, 


CC 


83 


030000. 


2C 


50 


L 


FWA 


L(BU,24), 1.0(LI0DX),0.0 


-FINAL 


BIT ZERO TEST FWA. 


16000154 




2C* 


002751 


.CO * 


C02734. 


.CC 


80 


030000, 


.21 


1C 






K(BU,24),LIGD,CC 






16000155 




21* 


002752 


.CO 


C03G21. 


.76 


C6 












BAEZ.LIGCRN 


-ICD-- 


— BRANCH. 


16000156 




22* 


002752 


.40 


CC2735. 


00 


80 


030000, 


21 


10 






K(BL,24),LREEL,C.C 






16000157 




23* 


002753 


.40 


C03147, 


76 


C6 












BAEZ.LREELR 


-REEL- 


BRANCH. 


16000158 




24 * 


2 7 5 4 


.CC 


C0CC11. 


3 7 


C2 












LCI, $15, 9.0 


-NEITHER — 


ERROR FLAG OF 9. 


16000159 • 




25* 


002754 


.40 


C03241. 


10 


00 












B.LERROR 


-BRANCH TC ERROR ROUTINE. 


16000160 




26* 


















- 










16000161 




27* 

26* 




























16000162 
16000163 




















_ 




INITIALIZATION ROUTINE 






29* 


















- 










16000164 














3C* 


















- 










16000165 




31* 


002755 


.00 


0CCCG1. 


CC 


83 


030000, 


2C 


50 


L 


INIT 


L(BU,24),1.0(LI0CX) 






16000166 




32* 


002756 


.CC 


0026C3. 


13 


10 












SX,LXIO,LSAVEY 


-SAVE 


THE IOREQ INDEX 


16000167 




33* 


002756 


.40 


C026C4, 


15 


10 












SX,LXFR,LSAVEZ 


-SAVE THE FREEL TABLE INCEX 


16000168 




34* 


002757 


.CO 


C02760, 


74 


C2 












BRZ.LINITA+1. 


-IF REJ END 


COMBO 


16000169 




35* 


002757 


.40 


C02601, 


51 


80 


001000, 


CC 


FC 


L 


INITA 


CMOCOO(EUil) ,LFINB, CO 


-FINAL 


BIT TO C 


16000170 
16000171 




36* 


00276C 


.40 


002601. 


7 3 


80 


001000. 


CC 


FC 






CMOCOCLINFAD 


-ZERO THE INF DISK 




37* 


002761. 


.40 


002601. 


53 


80 


007000. 


CC 


FO 






CMOCOO, LCCUNT 


-ZERO 


RLSYM NO. COUNT. 


160G0172 


20 


36* 


002762, 


.40 


CC2606. 


24 


10 












LX,LWORKX,LCLEAR 


-CLEAR 


RLSYM COUNT TABLE 


16000173 


19 


3S» 


002763 


.CO 


COCCOO. 


22 


CA 












Z,0.0(LWCRKX) 






16000174 


18 


4C* 


0C2763 


,4C 


002763. 


25 


4C 












CBR+,LWCRKX,$-.32 






16000175 


17 


41* 


002764. 


.00 


00CC27. 


16 


10 












LX,LXSU,LXSU 


-CHECK 


FGR INCEX ZERO. 


16000176 


16 


42* 


0C2764, 


.40 


002767. 


71 


46 












BXVZZ,LCCPU+1. 






16000177 


15 


4 2* 


002765. 


.00 * 


002617. 


17 


CD 












V-I,LXSU,LSYMU-1. 


-CLEAR 


SYMBOLIC UNIT TABLE. 


16000178 


14 


44* 


002765. 


.40 


00CC27. 


16 


50 












LC,LXSU,LXSU 






16000179 


13 


45* 


002766 


.00 


C02620. 


22 


CO 












Z.LSYMU 






16000180 


12 


46* 


002766. 


.40 


C02620. 


22 


07 








L 


COPU 


Z,LSYMU(LXSU) 






16000181 


11 


47* 


002767 


.CC 


C02766. 


57 


C8 












CB-,LXSU,LOOPU 




FOR INDEX ZERO. 


16000182 
16000183 


10 


4£* 


002767. 


,4C 


C0CC3O. 


2C 


10 












LX, LXSCLXSC 


-CHECK 


9 


4<=* 


00277C, 


.CO 


C02773. 


31 


46 












BXVZZ,LG0PC+1. 






16000184 


8 


5C* 


0C2770. 


.40 


C02657, 


21 


OD 












V-I,LXSC,LSYMC-1. 


-CLEAR 


SYMBOLIC CHANNEL TABLE. 


16000185 


7 


51* 


002771, 


.CC 


CGCC30. 


20 


50 












LC, LXSCLXSC 






16000186 


6 


52* 


002771, 


,4C 


0C266C. 


22 


CO 












Z,LSYMC 






16CC0137 


5 


53* 


002772. 


CO 


C02660. 


22 


C8 








L 


COPC 


Z.LSYMCILXSC) 






16000188 4 
16000189 


4 


54* 


0C2772. 


.4C 


C02772. 


21 


C8 












C6-,LXSC,L00PC 






3 


55* 


002773. 


.CC 


000C31. 


22 


10 












LX,LXNT,LXNT 


-CHECK 


FOR INDEX ZERO. 


16000190 


2 
1 


56* 


002773. 


40 


C02776. 


71 


46 












BXVZZ,L00PN+1. 






16000191 



wai 



' ( 



TIME CLCCK 0C054C41 PUNID 11C11IPL 



CARD ID 16000192 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



53 



" ( 

9 

L ( 

8 

6 

01 ( 

II 

21 

El ( 

S-i 

SI 

91 ( 

n 

81 

6! ( 
02 



AlNfc___LCC_AJJ_C_K_ RI^RY CUTPUT __ '__'_ [ '_'__ _\HJ*_E_.. '_'_'_'_ .^STATEMENT "" " LOCATION - 002774 



1* 
2 * 
2 * 

_4* 

!^ * 

~6* 

7» 
E* 

9* 

1C* 



002774 
0C2774 
002775 
00 2 7 75 
002 7 76 
0C2776 
002777 
003C0C 
0C3CC1 
0C30C1 



.CC 
.40 
.CO 
._4_C_ 

~.cc_ 

.40 
.CC 
.CO 

.40 



002677 
C0CC31 
002700 
002 7CC 
00 2 775 
CCCCCO 
C03C03 
OGCCCO 
C03C03 
C0CC01 



.23 CD 
.22 50 
.22 CO 
.2209 
.63 C8~ 
.44 84" 
.74 C4 
.CO 84 
.74 C6 
.37 02 



001000.20 50 
022000.20 50 



20 
19 
IS 
17 
16 
15 
U 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



12* 
12* 
14* 
15* 

17* 
16* 
15* 
2C* 
21* 
22* 
23* 
2<* 
25* 
26* 
27* 
2£* 

"2 9* 
3C»" 
31* 
32* 
33* 
34* 
35* " 
3 6*" 
3 7* 
3E* 
39* 
4C* 
41*" 

"42 * 
43* 
44* 
45* 
46* 



0C30C2 

003CC3 

003003 

003004 

003005 

0030 06 

003007" 

003007 

003010 

003011 

003011 

003012 

003013 

003014 

003014 

003015 

003015 

003016 

0C3017 

003020 

003021 



.00 

.CC 

.40 

.00 

.CO 

.00 

~.00~ 

".40 

.40 

.00 

.40 

.co_ 

.CC 
.CO 
.40 
.00 
.40 

.co_ 
.co_ 

^00 

.GO 



CO 2601 

00 3262 

CCCCCO 

777777 

COCCOO 

00 CCO 1 

CC317C 

002734 

CC3C12 

OOCOIO 

C03241 

GC2601 

CO OCOO 

CO" 3 CI 5" 

CC3C30 

COCCOO 

OOOCCO 

00 2 601 

002601 

CO 26 01 

002750 



•_51 
.5C 
.22 
.CO 
.47 
.CO 
•_34 
.00 
.36 
.37 
.10 
.62 
."CO 
.74 
.50 
.22 
.13 
.40 
. 4"0_ 
.31 
. LC 



80 
CO 
04 
83 
84 
83 

C2 

80" 
C2 
02 
00 
80 
85 
~C6 
00 
05 
34 
80 
80 
80 
00 



001000.36 FC 



000001,02 A4 
001000.36 FO 
030000.20 50 

3 00 00.21" TO" 



003015.34 02 
000000.20 50 



qnooo.ee fo 

011000.2280" 
"007000.CC FC" 



V-I,LXNT, LNTPU-1. 

LC,LXNT,LXNT 

Z,LMPU 
L_COPN _Z L LNTPU(LXNT) 

~_2" Cfl-,LXNT,LOOPN_ 

L(8l, 1),TJBPR0(LXPP) 

BZRZZ,LINITB 

L<BUt 18),TCRREF(LXPP) 

BRZZ,LINITB 
LCI_ t $15,1.0 

8,LERR4 
L INITB Z,C.O(LXPP) 

$TI, 1,-1. C(LIODX), 1.0 (LXP 
CMlllllEUtllf TLPPEN(LXPP) 

__L{_BU L 24),l.C(LIOCX) 

BRZ,LFINAL 

K(BU,24),LI0D 

BAE,LINBB 

LCI, $15, 8.0 

B.LERRCR 
L __IN_B_B__ BB, LOVB IT, L INITC- . 32 

1(80,64"), O.OjLXIC)~,C 
" BRZZ.LINITC 

B,LIOFUL 

Z.O.O(LXIO) 
L1NITC SV,LXIO,0.0(LXPP) 

CMqC0q[BC,9) ,LIOSCR,C. 

__" " .M + 1[BU,9),LI0SCR^ 

~~CMOCOO,LTAPEC 

B,LFWA 



-CLEAR NON-TAPE TABLE. 



-IS PP R£F TBL AVAILABLE 

YES STEP DOWN. 

-IS PP REF SLOT AVAILABLE 
YES STEP DOWN. 

-NO — ERROR FLAG 1. 



16000192 

16000193 

16000194 

16000195 

16CG0196 

16000197" 

16000198 

16000199 

16000200 

16000201 



.0 



-SET FINAL BIT TO 1. 

-CLEAR SLCT. 
P) -STORE PP ID 

-LOCK FCR REJ END _ COMBO 

(IF SO "_ 

-IS" THE FIRST CARD AN" IOD 

-YES 
-NO SEND ERRGR FLAG 

-IF NOT GVERLAP MODE 

-1 S TOREQ _SLOT_ AVAI LABlE. 

"" - " YES STEP DOWN. 

NO TO SPECIAL ROUTINE. 

-PUT CRREF IN PPREF SLCT. 
_-SET _IODSC_CQUNTER_ JO 1. 

- SET REEL ~C CU N f ~ f " Z E R 

-BRANCH TO TEST FWA. 



IOD CARD ROUTINE 



0C3C21. 
003022. 
003023. 
003024. 
0C3C25. 
003026. 
003027. 
0C3C30. 
003030. 
003031. 



40 

40 

4 

40 

CO" 

CO" 

CO 

00 

40 

CO 



COOCOO. 
COCCOO. 
000000. 
C 3 C 2 7 . 
COCCOO". 
002601". 
COCCOO. 
C03C32. 
G0CC02. 
003262. 



64 84 
64 83 
50 84 

36 4 6 
'50 8 4 
62 80 
CC 85 
34 C6 

37 02 
5C CO 



014000.22 BO 

014000.20 50 

014000.21 10 

"oi4qqq.2C"pT 

003031.74 02 
000000.20 50 



L ICDRN M+1,TICCCT(LXPP! 

L,LIREF(LIOCX),0.C 

K,TLREFN(LXPP) 
_BALZ,LI_CDA 

s _lL T L»EENaXPPj 

BB.LCVBIT ,LI0D1-C.32 
L IODA L(BU,64),0.C(LXIO), 0.0 

BRZZ,LIGC1 
L IOFUL LCI, $15, 2.0 

B,LERR4 



-STEP IOD COUNTER 

-CCMPARE FOR LARGEST 
PP REFERENCE NUMBER 
- TH IS N0._ IS LOW ... . S T E P _D_GWN . 
-HIGH ._.._._ RE PL AC E B Y JH IS NjJ_M_B_E R 

-IS IOREQ SLOT AVAILABLE. 

YES STEP DOWN. 

-NO — ERROR FLAG 2. 



16000202 
"16000203" 
16000204 
16000205 
16000206 
1600G207_ 
"16000208 
16000209" 
16000210 
16000211 
16000212 
16000213 
16000214" 
16000215" 
16000216 
16000217 
16000218 
16000219 
"16000220 
"16000221 
16000222 
16000223 
16000224 
16000225 
"16000226 
"16000227" 
16000228 
16000229 
16000230 
16000231 
"16000232" 
"16000233 
16000234 
16000235 
16000236 
16000237 



( 
( 
( 
( 
( 
( 
( 
( 
( 



47* 
"46* 
49* 
5C* 
51* 
52* 
53* 
54* 
55* 
56* 



00 3031. 
0C3032. 
003033. 
003034. 
003034. 

Cp3C_3_5_. 
003C36_. 

003037. 

003040. 

003C4C. 



4C 

CO" 

00 

00 

40 

4?_ 
0_0_ 

CC 

CC 

40 



qoocoq. 

CGCC0~2." 
C02733. 
C03077. 
002601. 
002 570. 
000002 . 
"COCCCO. 
C03C42. 
C03C36. 



22 05 
CO 83 
00 80 
36 C6 
52 80 

?^_iq 

0083 
CC 8A" 
36 C2 
25 48 



060000.20 50 

060000.21 10 

001000.36 FO 

060000} 2 C~ 50" 

060000.21 1C 



z.,q.qaxio) 

L ICD1 L(BU,48),2.C(LIODX),"0.0 

K(BU,48),LTAPE f 0.0 
BAEZ,LICDTP 

CM111KBU, 1 J.LNTB.O.O 

LX t LWORKX,LXTYPE 

1_ J_YPR ___k (_BC L 48] , 2.0 (L 10DJ<X" 

K(BU,48), .O(LWGRKX) 

BAE,LCCCE 

CB+,LWCRKX,LTYPR 



-IS TYPE TAPE. 

YES TO TAPE SECTION. 

NO SET NGN-TAPE BIT TO 

: DECODE TYPEAND ENTERJN _ 
-10 REQUEST SLCT 

-TYPE FOUND 
-NO TRY AGAIN 



16000238 

16000239" 

16000240 





16000241 


1. 


16000242 




16000243 




16000244 




16000245 




16000246 




1600024/ 



Wfll 





TIME CLOCK CCC54C41 PUNID 


11C11IPL 


:ard 


IC 


16000248 CIST. OF 3/C1 


3/01 PAGE NUMBER 54 






LIN 


E LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION CC3041 






1* 


003C41.C0 


COC006.37 


02 










LCI, $15, 6.0 


-NO TYPE MATCHED 


16000248 




2* 


003041.40 


003241.10 


00 










B,LERRCR 


-WITH ERROR FLAG OF 6 


16000249 




2* 


003042. CC 


C02567.22 


10 






L 


CODE 


LX,LXNT,LNTPUX 


-IS THIS CHANNEL IN THE 


16000250 




<* 


003042.40 * 


CCCCCO.CO 


69 


060000.20 


50 


L 


CCPNT 


L<8L',48) f 0.0CLXNT) ,C.C 


NON-TAPE TABLE. 


160002-jI 




c* 


CC3043.4C 


C03C5O. 74 


C6 










BRZZ.LICC2 


NO STEP DOWN. 


16000252 




t * 


003044.00 


CCCC04.C0 


83 


060000.21 


1C 






K(BU,48),4.C(LIOCX),C.O 




16000253 




j* 


003045. CC 


G03C5C.36 


CO 










BZAE,LNONCH 


-NO EQUAL 


16000254 




e* 


003045.40 


000000.60 


89 


004000. C6 


70 






LF(BU,4), .481LXNT) 


-EQUAL CHAN FOUND CHECK EQUIP TYPE 


16000255 




9* 


003046.40 


00CC00.74 


8A 


004000.23 


10 






KFtfiU,4), .60CLWORKX) 




16000256 




1C* 


003047.40 


003062.36 


C2 










BAE,LNCN 


-IF EQUIP IS SAME AND CHAN SAME CONT. 


16000257 
16000258 
16000259 




n* 


003050. CC 


003042.63 


48 






L 


NONCH 


CB+,LXNT,LOCPNT 


-TRY AGAIN 




12* 


003C5C.40 


C0CCC4.CC 


83 


000000.02 


A9 


L 


ICD2 


TI f 1,4.C(LICCX) ,C.O(LXNT) -PLT CHANNEL IN NON-TAPE TABLE. 




12* 


003C51.4C 


C02601.31 


80 


007000.22 


BO 






M+l,LTAPfcC 


-STEP REEL COUNTER 


16000260 




14* 


003052.40 


CCCC00.74 


8A 


004000.20 


50 






L(BU,4) , .601LW0RKX) 


-GET TYPE 


16000261 




15* 


003053.40 


000000.60 


39 


004000.12 


FO 






SF{BU,4),.48(LXNT) 


-AND PLACE IN CHANNEL TABLE 


16000262 




16* 


003054.40 


00CCC0.C3 


85 


004000.20 


CO 






ST(BU,4),TTYPE(LXI0) 




16000263 




17* 


003055.40 


CCCC00.34 


84 


010000.22 


BO 


L 


FOUND 


M+1,TUNCT{LXPP) 


-STEP UNIT COUNT 


16000264 




16* 


003056.40 * 


002601.40 


80 


011000.2C 


50 






L(BU,9) ,LIOSCR,O.C 


ENTER IOCSQ IN IOREC SLOT. 


16000265 




19* 


003057. 4C 


00CCC0.23 


85 


011000. 2C 


CO 






ST(BU,9) , TIOCSGILXIC) 




16000266 




2C* 


003060. 4C 


002601.40 


80 


011000.22 


60 






M+l(BU,9),LI0SCR 


•STEP IODSQ. 


16000267 




21* 


OC3C61.40 


CCCCC1. 13 


07 










V+ICR,LXI0,1.0 


STEP IOREQ. INDEX. 


16000268 




22* 












- 








16000269 




23* 












- 








16000270 ] 




2<* 












- 




CISK - TRACK CHECH 


ROUTINE 


16000271 




25* 












- 








16000272 




26* 


003C62.CC 


C0C002.CC 


83 


060000. C6 


70 


L 


NCN 


LF(BU,48),2.0(LICCX) 


-IS TYPE DISK OR TRACK. 


16000273 




27* 


003C63.CC 


002723. CO 


80 


060000.23 


10 






KF(EU,48),L0ISK 




16000274 




26* 


003064.00 


C03C66.36 


C6 










BAEZ.LNEW 


DISK BRANCH. 


16000275 




29* 


003064.40 


CC2724.C0 


80 


060000.23 


10 






KF(BU,48),LTRACK 




16000276 




3C* 


003065. 4C 


CC3237.76 


C4 










eZAEZ.LNORM 


- NGN DISK OR TRACK 


16000277 




31* 


003066. CC 


C00CC5.C0 


83 


060000.20 


50 


L 


NEW 


L(8U,48),5.0<LI0DX) 


-IS NUMBER FIELD BLANK 


16000278 




32* 


003067.00 


002736. CO 


80 


060600.23 


10 






KF,L8LANK 




16000279 




33* 


003070.00 


003075.36 


C6 










BAEZ, LCSKC 


-YES 


16000280 




34* 


CC3C7C.4C 


000023.24 


30 










LV,LWORKX,LIO0X 


-IS THE NUMBER FIELD ZERO 


16000281 




35* 


0C3C71.C0 


C0CC10.25 


02 










LCI,LWCRKX,8 





16000282 
16000283 




36* 


003071. 4C * 


CC2601.65 


80 


OC6000.C6 


70 






LF(BU,6),LBLZCR+.2 




37* 


003072.40 


CCCCC5.C0 


8A 


006600.23 


1C 


LCSKC 


KF(EU,6,6),5.{LWCRKX> 




16000284 


20 


36* 


003073. 4C 


003237.76 


C4 










BZAtZ,LNORM 


-A NON ZERO ENTRY 


16000285 


19 


39* 


OC3C74.00 


002601.24 


BO 










V+,LWQRKX t LN06 


-STEP TO NEXT CHAR 


16000286 


18 


4C* 


0C3C74.4C 


003072.64 


48 










CB.LWCRKX, LCSKC 




16000287 


17 


41* 


003075.00 


C0CCC0.77 


89 


003237.74 


OC 


L 


CSKD 


BZB1,LZBIT(LXNT) ,LNCRM 


-IF NO CTHER INF REGUESETD 


1600028b 


16 


42* 


003076. CC 


00CC07.37 


02 










LCI, $15,7.0 


-NO — ERROR FLAG 7. 


16000289 


15 


43* 


003076.40 


003241. 10 


00 










B,LERROR 




16000290 


14 


44* 












- 








16000291 


13 


45* 












- 






* 


16000292 


12 


46* 












- 




TAPE IOC ROUTINE 




16000293 


11 


47* 












- 








16000294 j 
16000295 


10 


46* 


003077.00 


002601.52 


80 


001000. CC 


FO 


L 


IOCTP 


CMOCCCMBUtl) ,LNTB f CC 


-SET NON-TAPE BIT TO 0. 


9 


49* 


003100.00 


002565.16 


10 










LX,LXSU,LSYFUX 


-IS THIS UNIT IN THE 


16000296 


8 


5C* 


003100.40 


COCCOO.CC 


87 


060000. 2C 


50 


L 


COPSU 


L(BU,48),C.0{LXSl),C.0 


TAPE TABLE. 


16000297 


7 


51* 


003101.40 


003104.74 


C6 










BRZZ,LICD3 


NO STEP DOWN. 


16000298 


6 


52* 


003102.00 


C0CC05.00 


83 


060000.21 


10 






K(BU,48),5.C(LI0CX),C.C 




16000299 


5 


52 * 


003103. CO 


C03137. 76 


C6 










BAEZtLSET 


YES STEP DOWN. 


16000300 
16000301 1 


4 


54* 


003103.40 


003100.57 


48 






L 


ETA 


CB+,LXSU, LOCPSU 


-TRY AGAIN ON A NCN-ZERG CT 


3 


55* 


003104.00 


003104.04 


00 










BD,$ 


-INTERNAL UNIT TABLE EXCEECED 


16000302 


2 

1 


56* 


0C3104.4G 


000005.00 


83 


000000.02 


A7 


L 


I0C3 


TI, l,5.C{LIODX),C.0«LXSL) -ENTER UNIT IN TAPE T4ELE. 


16000303 



wai 



TIME CLOCK CCC54C41 PUNID 11C11IPL CARD ID 16000304 
LINE LOCATION BINARY" OUTPUT ~NAME~ 



CIST. OF 3/C1 
STATEMENT" 



3/01 



PAGE NUMBER 55 
L CATTON 0031 0~5 



z 
z 

V 

s 

9 
L 

S 
6 

01 
11 
21 
Ei 
f I 
SI 
91 
£1 
?[ 
61 
OS 



1* 

2* 

2 * 
4* 



003105 
003106 
003107 
0C311C 



.40 * 
.40 
.40 
.40 



002601. 
GOCCOO. 
002601. 
CC2733. 



31 80 

62 87 

31 80 

74 80 



0C7000.2C 50 
007000. 2C CO 
007000.22 BO 
PC4000. 2_0_ 5_0_ 
004000.20 DC 



L.LTAPEC 

ST(EU,7),.50(LXSL) 
M+lfLTAPEC 
L(BU,4),LTAPE+.6C, 



0_._C 

D)~~ 



•ENTER THE TAPE REEL COUNT 
•IN THE TAPE UNIT TABLE 
•AND BUMP BY ONE 

-STORE TAPE TYPE IN 



16000304 
16000305 
16000306 
16000307 



z * 

~_» 

i* 

1C* 



0C3111 
00 3112 
0031 13 
0C3114 
00 3114 
003115 



,4_0_ 

.40 

.CO 

.00 

.40 

.40 



coccqq. 

"C02 5 66. 
COOCOO. 
C03117. 
00CG04. 
003120. 



C3 
20 

cc 

34 

00 
J6 



85 
10 
88 
C6 
83 
C6 



ST__U,4_,TJY_»0_{LX_I 

LX,LXSC,LSYMC~X 

L{SU,46),G.0tLXSC) 

BRZZ.LICC4 

K(BU,48),4.0(LI00X 

BAEZ,LCFAN 



IOREQ SLOT 
-IS CHANNEL IN 
CHANNEL 
NO STEP 



16000308 
16000309 
16000310 
16000311 
16000312 
16000313 



060000.20 50 

060000.21 10 



L COPSC 



,0.0 
),0.0 



SYMBOLIC 
TABLE. 

DOWN. 



II* 
12* 
13* 
14* 
15* 
16* 



003116 
0C3116 
003117 
CC3120 
003120 
003121 



.CO 

~.40~~ ~ 
.00 
.CO 
.40 
.00 * 



CO 3113. 
CC3116. 
CCCC04. 
002660. 
C0CC11. 
COCCCO. 



21 
44 
00 
21 
21 
71 



48 
00 
83 

OD 
30 

87 



CB__LXSC,LOOPSC 
~BD,$ 

TI, 1,4.01 
V-I,LXSC, 
SV,LXSC,$ 
ST(RU,7), 



_-_ YE S -_■_■- STEP _D_0_V»_N_._ 

_-TRY AGAINCNNON-ZERC L_CJ3U_NT. 

-INTERNAL CHANNEL TABLE EXCEEDED 
-ENTER CHANNEL IN TABLE. 

-COMPUTE WHERE IN TABLE 

-CHAN NAME WITH THE UNIT NAME 

: IS CHANNEL SYMBOL BLANK 



16000314 

16000315 

16000316 

16000317 

16000318 

16000319 

16000320" 

16000321 

16000322 

16000323 

16000324 

16000325 

16000326' 



12* 

ie* 

is* 

2C* 
21* 
22* 



00 312 2 
CO 3 12 3 
003124 
003124 
003125 
003126 



._C_0 

. c c" 

.00 
.40 
.40 

.40 



_C_Q.CC [04. 
C02736. 
003130. 
CCCCCO. 
COCCOO. 
002660. 



00 

CO" 

76 

L3 

60 

21 



83 
80 
C4 
85 
87 
C5 



000000.02 A8 



007027. 2CD0_ 
060000_2C 50_ 
060000.21 10 



L I0D4 
L CHAN 



LIGDX),C.O(LXSC) 
LSYMC 

R 
0.57(LXSU),46 



M_BU 
K(B _ U 
BZAE 
CMOC 
CM11 
V + I , 



,48), 
Z,LEN 
OOiBU 
11 (BU 
LXSC, 



) 



4. OJ LI OCX 
LBLANK " 
TER 

,7),TRLSY 
,1), 0.481 

LSYMC 

,64)~,0.C(L"XSC) 



0G7000.C0 FO 
001000.36 FO 



M(LXIC) 
LXSU) 



23* 
24* 
25* 
26* 
27* 
26* 



003127 
0C313C 
00 3130 
003131 
0C3132 
0C3133 



.00_ 

.CC 

.40 

.CC 

.CO 

.CC 



_opo_o_oo_. 

00305~5." 
000001. 
000C30. 
COCCCO. 

00CC32. 



CO 
50" 
21 
13 
13 
22 



88 
"CO 
C5 
80 
85 
00 



OOCOOO.CC FO 



CMOC 
B,~LF 
V + I, 
L(BU 
ST(B 
Z,LW 



qq(BU 

OUNC" 
LXSC, 
,7),L 
U,7), 

CRKX 



NO STEP DOWN. 

•SET THE UNIT SLOT TO NULL CHAN 

-RESTORE THE CHAN IX 

■CLEAR A "BLANK FROM THE CHAN TBL 

-BRANCH 
-INCREASE BY ONE FOR RLSYM 



JlSTqRE_RL_Y__SH_FTLD 3 BITS 

'-__'_ ^fo__subsequenTAo_ r j. 
" -add one to proper count. 

-restore channel index. 

-BRANCH 
IS THE CARD CHANNEL NULL 



L ENTER 



007000. 2C 50 
007000.20 DO 



1.0 

XSC+.11,0 

TRLSYMUX 



.0 
10) 



16000327 
16000328 
16000329 
16000330 
16000331 



29* 

"3C* 

31* 

32* 

32* 
34* 



0C3133. 
003134" 
003135. 
0C3136. 
003137. 
003137. 



40 

4C" 

40 

40 

CC 

4C 



C C C 3 2 . 
002606. 
002601. 
002657. 
C03C55. 
C0CC04. 



16 
70 
53 
21 

5C 

CC 



80 
8 A 
80 
05 
CO 
83 



007000. 2C DC 
010000.22 BO" 
007000.20 DO 



060000. C670 
"060000.23 10" 



LSET 



ST I _P 
M+K 
ST(B 
V+I, 
B,LF 
LF( B 



U_7), 
RU,8) 
U,7), 
LXSC, 

CUNC 
U,48) 



LWORKX+.l 
,LRLCT-.8 
LCCUNT 
LSYMC-1. 

,4.0(LICD 

f LBLANK"" 

A 

M 

SYMCX 

.57ILXSL) 

R 



4jC.0 
iLhGRKXT 



X) 



16000332 
16000333 
16000334 
16000335 
16000336 
16000337 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
36* 
37* 
3E* 
3c* 

4C* 



0G314C 
"003141" 
003142 
003142 
0C3143, 
003144. 



40 
40" 
CO 
4C 

CO 
00 



P0__73_6_. 
C03142. 
C03237. 
002566. 
COCCOO. 
000011. 



c_o_ 

7 6 
74 
2G 
71 

20 



80 
CO 
CC 
10 
87 
60 



L SETA 



007027. 2C 50 



_K_F_<__ 
BZAE 
BZRZ 
LX,L 
HBU 
V + , L 



U,48) 
,LSET 
,LNOR 
XSC,L 
,7),C 
XSC,$ 



,46 



-IF NOT NULL CONTINUE LOCKING 
•YES A NULL CHANNEL 
•IS CHANNEL IN THE SYMBOLIC 
•MOVE INDEX DIRECTLY TO THE 
•ASSOCIATED CHAN SLOT 



16000338 
16000339 
16000340 
16000341 
16000342 
16000343 



4 1 * 
42 * 
42* 
44* 



003144 
003145, 
003146, 
003147, 



4C 

4C" 

40 

00 



_C_C_C_C_0_C_. 
00CCC4." 
C03237. 
CC31C3. 



C_C 88 
CO 83 
76 C6 
50 CO 



060000. 2C_50_ 
060000.21 10 



L(_B_U 
KIBU 
BAEZ 
B,LE 



,48), 
,LNCR 
TA 



O.OILXSC) 
4.C(LI0DX 

M 



,C_.C 
") , . 



CH A NNE L T ABLE . 

YES NORMAL RETURN, 



16000344 
1600C345 
16000346 
16000347 



wai 





TIME CLOCK CCC54C41 PUNID 


11C11IPL 




;arc 


ID 


16000349 DIST. OF 3/C1 


3/01 PAGE NUMBER 56 






LINE LOC< 


iTICN 




BINARY CUTPUT 






NAME 


STATEMENT 


LOCATION 






1* 
c * 


























16000349 
16000350 




















— 




THE REEL CARD ROUTINE 






























16000351 
16000352 




k* 


















_ 










5* 


003147 


.40 * 


C02601 


.52 


8C 


003151. 


.74 


CC 


L 


HEELR 


BZB,LNlB f LREELl 


-BRANCH IF NON-TAPE BIT 0. 


16000353 




6* 


00315C 


.40 


C00CC5 


.37 


02 












LCI, $15, 5.0 -BIT ONE — ERRGR FLAG 5. 


16000354 




7* 


003151 


.CO 


C03241. 


. 1C 


00 












B.LERRCR 


-BRANCH TO ERROR ROUTINE. 


16000355 




£* 


CC3151 


.40 


CCCCCO. 


.61 


87 


003237. 


.74 


OE 


L 


HEEL1 


B81,LRLeiTlLXSU),LNCRM 


-BRANCH ON REEL BIT ONE 


16000356 




9* 


















- 






IF ZERO MAKE IT A ONE 


16000357 




1C* 


003152 


.40 


000CC2 


.CC 


33 


060000 


,C6 


7C 






LF(EU,4e),2.0(LICDX) 


-TEST FOR BLANK FREEL SYMBOLIC 


16000356 




11* 


003153 


.40 


C02736. 


.CO 


80 


060600. 


.21 


10 






K,LBLANK 




16000359 




12* 


0C3154 


.40 


CC3237. 


.76 


C6 












BAEZ,LNCRM 


-NORMAL RETURN IF BLANK. 


16000360 




12* 


003155 


.CC 


C02601 


.62 


80 


003160. 


.74 


02 






BB,LCVeiT,LREEL2-0.3 2 




16000361 




14* 


003156 


.CO 


OCCCCC, 


.CO 


86 


000000, 


.20 


50 






L{BU,64),C.C(LXFR) ,C.C 


-IS FREEL SLOT AVAILABLE. 


16000362 




15* 


003157 


.00 


C03161, 


.34 


C6 












BRZZ.LREEL2 


YES STEP DOWN. 


16000363 




16* 


0G3157 


.40 


C0CCC3 


.37 


C2 












LC 1,415,3.0 


-NO ERRGR FLAG SI 3. 


16000364 
16000365 




17* 


003160 


.CC 


003262. 


,5C 


00 












B,LERR4 






le* 


0C316C 


.40 


COCCCO. 


.22 


06 












Z,0.0(LXFR> 




16000366 




is* 


003161 


.00 


CCCCC2. 


,00 


83 


OGOOOO, 


.02 


A6 


L 


REEL2 


TI,1,2.C( LIODX)»0.0(LXFR} 


-STORE FREEL SYMBOL IN SLOT. 


16000367 




2C* 


0C3162 


.00 


COOCOO. 


• CO 


84 


000000, 


.20 


5C 






L(BU,64),0.01LXPP),C.0 


-GET PROPER IOREQ SLOT. 


16000368 




21* 


003163 


• CC * 


COCCOO. 


.62 


87 


0C7027, 


,2C 


10 






+ (BU,7),.50UXSU),46 




16000369 




22* 


003164 


.00 


C0CC32. 


.CO 


80 


000000, 


.20 


DO 






STIBU, 64),LWCRKX,0.C 




16000370 




22* 


0C3165 


.00 


CCCC26. 


CO 


dO 


022000, 


.20 


50 






L(BU, 18),LXFR,0.C 


-STORE FREEL ADDRESS 


16000371 




2** 


0C3166 


.00 


COCCCO. 


.34 


8A 


022000, 


,2C 


DC 






ST( BU,18),TFREEL{LWCRKX) - 


IN IOREC SLOT 


16000372 




25* 


003167 


.CC 


C0C001. 


.15 


07 












V+ICR,LXFR,1.C 


-STEP FREEL INDEX. 


16000373 




26* 


003167. 


.40 


C03237. 


5C 


00 












B.LNCRM 


-NORMAL RETURN. 


16000374 




27* 


















- 








16000375 




2£* 


















- 








16000376 












29* 


















- 




FINAL ROUTINE 




16000377 




3C* 
31* 


























16000378 
16000379 




















— 










32* 


003170 


• CC 


777777. 


CC 


83 


000001, 


C2 


A4 


L 


FINAL 


$TI, 1,-1. OIL ICDX), 1.0 (LXPP) 


-STORE PP ID 


16000380 




3?* 


003171. 


.CC 


002601. 


51 


80 


003174. 


34 


OC 






BZB1,LFINB,LFIN2-1. 


-IS FINAL BIT 1. 


16000381 




34* 


















- 




IF 1, GO ON.. ..IF C, MAKE 


IT 1 AND BRANCH. 
-STORE CRREF. 


16000382 
16000383 




35* 


003172, 


.00 


COCCOO. 


13 


34 












SV,LXIC,C.0{LXPP) 




36* 


003172 


.40 


COCCOO. 


32 


8F 


003241. 


34 


02 






BB,C.26($15),LERRCR 


-BRANCH ON REJECT END COMBO. 


16000384 




37* 


003173. 


,4C 


C03232, 


10 


CO 












B.LFIN3 


-BRANCH TO STEP PPREF TABLE. 


16000385 


20 


38* 


003174. 


.CO 


COCCOO. 


32 


8F 


003241. 


34 


02 






BB,0.26l$15),LERROR 


-BRANCH ON REJECT END COMBO. 


16000386 


19 


39* 


003175. 


00 


COCCOO. 


64 


84 


014000. 


20 


50 


L 


FIN2 


L,TIODCT(LXPP) -IS 


LARGEST PP REFERENCE NO. 


16000387 


18 


4C* 


003176 


.CO 


OOCOOO. 


5C 


84 


014000. 


21 


10 






K,TLREFN(LXPP) 


LARGER THAN THE ICDCT 
YES. ...STEP DOWN. 


16000388 
16000389 


17 


41* 


003177. 


.00 * 


0032C0. 


76 


46 












BALZ,LFINI 


16 


42 * 


00317 7. 


40 


CCCCCO. 


5C 


84 


014000. 


20 


CO 






ST, TLREFN(LXPP) 


NO.... REPLACE BY IODCT 


16000390 


15 


42* 


















- 








16000391 


14 


44* 


















- 




SORT IOREQ TABLE ENTRIES FOR THIS PROBLEM 


16000392 


13 


45* 


















- 




PROGRAM BY UN I T-PER-CHANNEL SIZE. 


16000393 


12 


46* 


















- 








16000394 


11 


47* 


0032CC. 


.40 


CC2605. 


23 


10 








L 


FIN1 


SX,LXNT,LPUT 


-ENTER SORT SAVE LXNT INDEX. 


16000395 


10 


46* 


003201. 


.CC 


C0CC32. 


22 


00 












Z,LWORKX 


-ZERO 2 INDICES. 


16000396 


9 


49* 


0C32C1. 


40 


CCCC23. 


22 


CO 












Z,LIODX 




16000397 


8 


5C* 


0C32C2. 


00 


COCCOC. 


24 


34 












LV,LWORKX,0.0(LXPP) 


-PUT CRREF IN XA VF. 


16000398 


7 


5 1* 


003202, 


.4C 


C02601. 


53 


80 


007027. 


2C 


50 






L(BU,7),LC0UNT,46 


-LOAD RLSYM NO. COUNT. 


16000399 


6 


52* 


0032C3. 


.40 


C03231. 


74 


C6 












BRZZ,LSKIP 


-NO RLSYMS SKIP SORT. 


16000400 


5 


52* 


003204, 


CO 


C0CC11. 


24 


50 












LC,LWORKX,$R 


-PUT COUNT INTO XA CF. 


16000401 
16000402 


4 


54* 


003204. 


40 


CC2602. 


25 


50 












SC, LKORKX,LSAVE 




3 


55* 


003205. 


CC 


C02602. 


C6 


50 








L 


SEARA 


LC,LICCX,LSAVE 


-OUTER LOOP LOAD XB CF. 


16000403 


2 

1 


56* 


003205. 


4C 


002607. 


07 


01 












LVI ,LIODX,LRLCT 


-INITIALIZE XB AND XC VF. 


16000404 



wai 



IIME CLOCK C0054C41 

"lTne"~"l C a~tTc N 



PUMD 11C11IPL CARD ID 160004C5 CIST. OF 3/01 
BINARY" OUTPUT NA>"t STATEMENT"" 



3/01 



PAGE NUMBER 57 
L C C A TTgN" 0032 06 



1* 0032C6.CC 

2* 003206.40 

3* 0C3207.40 

4* 003210.40 



002607.23 

OGGCOG. 10 
CCCC00.10 
003212.76 



01 
83 
83 
44 



110027.20 
110027.23 



50 
10 



L SEAR8 



LVI ,LXNT,LRLCT 

LlV+I) (BU,8),0.8(LICDX) ,46 

KF(V+I)(RU,8),0.8{LI0CX),46 

BZALZ,LSEARC 



-ENTER FIRST RLCT. 

-INNER LOOP COMPARE. 

-ACC. NOT LOW STEP DOWN. 



16000405 
16000406 
16000407 

1600040 8 
16000409 



*_p0 32_l_l._CC 
003212". CO 
003212.40 
003213. CO 
003213. 40 
003214.40 



777777.70 
CO 32 11. 23 
CC3207.46 
C00011.C6 
COCCOO.CC 
CC26C7.23 



83 

BO" 

48 

50 

89 

00 



010027.20 50 



$L(BU,8),-0.8{LICDX),46 



-ACC LOW — SWITCH RLCF 



t* 
7* 
£* 
S* 
1C* 



010000.00 FO 



LVE,LXNT,$-1. 
L SEARC CB,LIODX,LSEARB 
LC,LIODX,$R 

CMOCOO(BU,8),C.0(LXNT),C.C 
V-I ,LXNT,LRLCT 



-PLT PROPER ADDRESS IN XC VF 
-LOOP BACK ON NCN ZERO CF. 
-LOAD XB CF. 
-ZERO PROPER RLCT SLOT. 
-READY XC FOR RLSYM SEARCH. 



11* 
12* 
12» 
14* 
It* 
It* 



00 32_15_.0_C_ 

003215.40 

003216.40 

003217.40 

003220.00 

00322G.4C 



000032.06 
002614. CO 
000000.22 
C03373.07 
CCCG00.37 
C03221.7C 



30 
89 

83 
01 
05 
42 



010000.20 50 
003221.74 00 



L SEARD 



17* 

ie* 
is* 

2C* 
21* 
22* 



003221.00 
003221.40 
003222.40 
003223. CO 
003223.40 
003224.00 



003514.07 
CCCCGO. 13 
003224.36 
000001.07 
003216.50 

ooccoo.no 



01 

a~3 

C6 

05 
00 
8A 



LV,_LIODX,LWORKX 
~L ( BU , 8 ) , LCT { LXNT") , CVC~" 
BZB,TLAST(LIODX),LSEARF 
LVI ,LIOCX,TIOREQ 
V+I, $15,0.0 
BXCZ t LSEARF 
LVI,LICDX",TOTORG 



-LOAD XB VF. 
-LOAD HIGH" RLSYM. 
THIS END CF TABLE 
YES ... INITIALIZE 

TEST FOR NOT OVERLAP 

-OVERLAP MODE 

-IF NOT OVERLAP MODE 



IS 



-TO 



MODE 



16000410 

16000411 

16000412 

16000413 

16000414 

16000415" 

16000416 

16000417 

16000418 

16000419 

16000420 



16000421 



007000.23 10 



000000.02 E3 



L SEARF 



L SEARE 



22*_0Q3225.pp__ 
24* 003225.40 *~ 
25* 003226.40 
26* 0C3227.CO 
27* 003227.40 
21* 00323C.CC 



CC CGCl .25 
COO COO". 22 
003373.25 
G0CCG0.37 
CC3230.70 
003514.25 



05 
~8A 
01 
05 
42 
01 



003230.74 CC 



KF(EU,7),.11{LI0DX) 

BAEZ,LSEARE 

V+I ,LI0DX,1.C 

B.LSEARD 

SWAP If_l t O. 0(LWORKX_)t_C 

VtLtLWCRKXt l.C_ 

BZ"R,t"LAST(LWOR K X ) , L SEA R G 

LVI,LWORKX,TIOREC 

V+I, $15, 0.0 

BXCZ,LSEARG 

LVI,LWORKX,TUIORC 



NO.... INNER SEARCH LOOP. 

-FOUND STEP DOWN. 

-NOT FOUND STEP XB VF. 

-GO BACK AND TRY AGAIN. 
OJLIODX) -SWAP IOREQ SLOJS. 
-STEP XA VF." 
-IS THIS "END OF IOREG "TABLE 

-YES. ..INITIALIZE 
-CHECK MODE 
-IF OVERLAP 
-IF NOT OVERLAP MOAD 



16000422 
16000423 
16000424 
160G0425 
16000426 
"1600042/ 
16000428" 
16000429 
16000430 
16000431 
16000432 



2S* 
3C* 
31* 
32* 
33* 
34* 



003230^.40 
003231. OC" 
003231.40 
003232. CC 
003233.00 
003233.40 



003216.V7 
CC3205.24 
C02605.22 
C0CCC0.47 
002613.11 
CCCC02.11 



48 
48 
10 
84 
10 
07 



L SEARG CB+,LIOCX,LSEARD 



LOOP BACK ON NON-ZERO CF 



16000433 
160004 34" 
16000435 
16000436 
16000437 
16000438 
"16000439 
16000440 
16000441 
16000442 



001000. CC FG 



CR,LWORKX,LSLARA 
L SKIP LX,LXNT,LPUT 
L FIN3 CMO0O0(BU,l),TLPPEN{LXPP) 

SX,LXPP,LASTPP 

V+ICR,LXPP,2.0 



-END OF SWAP AND SORT. 
-RESTORE LXNT INDEX. 

-SAVE ADR. CF LAST PP ENTERED 
-STEP PPREF INDEX. 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 



3t* _003234. CO 
36* 003235.00" 
37* 003236.00 
3£* 003237. CO 



C0CC0jC^4_7_ 
00 2601.62 
002720.00 
C03237.50 



84 
8 
80 
00 



qqiqoo.36 

003237.74" 
000024. C6 



FC 

04" 

EO 



C M 1 ll_K_BUf_l)fJLPPEN<L X P P J - T URN C N LP PEN BIT 
BZBZ", LGVBIT",LNORM '"" ~* -IF OVERLAP MODE 
SWAPI, 3,LN0SAV,LXPP -RESET INDEXES TO OVERLAP 
B,LNORM -NORMAL RETURN. 



MODE 



wai 



1 IME CLOCK CC054041 



PUNID 11C11IPL 



CARD ID 16000444 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 



58 



LIME 



LCCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



1* 
2* 
2* 
<* 



NORMAL RETURN ROUTINE 



16000444 
16G00445 
16000446 
16000447 



_._-_9Q_3237.40 CC2571.CC 80 0C0023.20 EC ___L_ >_£__._. ______ I , 8, LTY, L IODX -SWAP 8 INDICES., 



— " U U J £. J < • " \J 

~£i~00 324C~.Vc 

7* 

£* 

.* 
1C* 



C0CC02.1C CF 



B.2.0U15) 



-DISPATCHER NORMAL RETURN, 



ERROR RETURN ROUTINE 



1 60 00 4 4 8_ 

16000449 

16000450 

16000451 

16000452 

16000453 



12* 
13* 
14* 
If* 
16* 



0C3241.CC 
003242. CC 
003242. 4C 
003243.00 
OC3243.40 



CC26C1.51 80 
C02602.23 10 
C0C0C0.24 14 
C03253.31 46 
COCCOO. 34 84 



001000.36 FO 



010027. 2C 50 



L ERROR CMlllHeU,l),LFINB f C.C 
SX, LXNT.LSAVE 
LX.LWCRKX, O.O(LXPP) 
BXVZZ.LERR2 
_L_TUNC_IILXPP),_4_6__ 



1. 



-SET FINAL BIT TO 
-SAVE INDEX. 

-SET IOREC AND FREEL SLOTS FOR 
THIS PROGRAM TO ZERO. 



H 



16000454 
16000455 
16000456 
16000457 
16000458 
16000459 



12* 
16* 
19* 
2C* 
21* 
22* 



0C_32_44_.4_C_ 
003245. CC 
003245.40 
003246. CO 
003247. CC 
003247.40 



.0.0. 32 53 ,.34 
00CC11.24 
00CCC0.22 
COCCOO. 22 
C03373.25 
CC3251.3G 



C6 
50 
1A 
3A 
CI 
46 



003247.74 00 



ERZZ,LERR2 

LC,LWORKX,$R 
L ERRA LX.LXNT.C.O(LWORKX) 

BZB, TLASTUW0RKX),LERR3 -END OF IOREC TABLE 

LVI .LWCRKX. TIOREC 
L ERR3 BXC Z Z , L ERR 1 



1 60004 60_ 

16000461 

16000462 

16000463 

16000464 

16000465 



22*_CC325C.C0 
24* 003250.40 
25* 003251. CC 
0C3251.4C 
003252.00 
003252.40 



_COCC 3_1_._2_3 _5_0 
COCCOO. 22 09 
CCCC00.22 
003245.65 
002603.12 
002604.14 



_S_C L LXNT,LXNT_ 
Z f O.O(LXNT) 
Z.O.O(LWORKX) 
CB+.LWORKX.LERRA 
LX,LXIC,LSAVEY 
LX.LXFR.LSAVEZ 



16000466 
16000467 
16000468 
16000469 
160004/0 
16000471 



26* 

21* 
2. * 



CA 
48 
10 
10 



L ERR1 



-ZERO FREEL SLOT. 
-ZERO IOREQ SLOT. 
-BACK ON NON-ZERO COUNT. 
-RESET THE IOREC INCEX 
-RELOAD THE FREEL TABLE INDEX 



2i* 

3C* 
31* 
32* 

33* 
34* 



0C3253_.CC 
003253. 4C~ 
0C3254.40 
003255.40 
003256. CC 
0C3256.4C 



_C_0_CC0_O_._4.2 
COCCOO. 45 
COCCOO. 47 
CCC011.37 
002613.11 
0C0CC2.11 



Q4 
84 
84 
50 
10 
07 



L ERR2 



Zi_0.0(_LXPP)_ __ __ _-ZERO_PPREF_SLCJ._ 

CM111KBU, l)tfRJECT(LXPP) -SET _ THE REJECT BIT 

CMOCOCTLPPENILXPP) -RESET THIS LPPEN BIT 

SC,15.$R -ERROR FLAG TO ACC 

SX.LXPP, LASTPP -SAVE ADR. CF LAST PP ENTERED 

V + ICR,LXPPf 2.C _-_S_TEP_PPREF_INDEX._ 

CM1111, TLPPFNUXPP) -SET" THE NEXT CPPEN BIT 



160004 72 

16C00473" 

16000474 

16000475 

16000476 

16000477 



001000.36 
001000. CO 



FO 
FO 



35.t_QC3257.g0 
36* 0C326C.C0 
003260.40 
003261.40 
003262.40 
003263.40 



C0CC_C0.4 7_ 
CC26C2.22 
C02601.62 
002720.00 
CC2571.C0 
CCCC01.37 



84_ 

To 

80 
80 
80 

5F 



001000.36 FO 



160004 78 

16000479" 

16000480 

16000481 

16000482 

16000403 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



37* 
3E* 
39* 

4C* 



003262.74 
000024.06 
000023.20 



04 

EC 
EC 



L ERR4 



LX, LXNT.LSAVE 
BZ3Z.L0VBIT.LERR4 
SWAPI i3|LN0SAV f LXPP 
SWAPI,8,LTY,LI0DX 
S_C_$15 L 1.0[$15) 
B, 1.32( $15) 



-RESrCRE INDEX. 
-IF OVERLAP MODE 

-RESET INDEXES TO OVERLAP MCDE 
-SWAP 8 INDEXES 
-SAVE THE ERROR FLAG 

-DISPATCHER ERROR RETURN. 



_4_l_t_9Q3_64j.ee 
42* 



000CC1.5C CF 



16000484 
16000485" 



wai 



TIME CLOCK 00054C41 PONID 11C11IPL CARD ID 17000001 DIST. OF 3/C1 3/01 PAGE NUMBER 59 e 

LINE LOCATION BINARY OUTPUT J~JhhV± [ ~~_~_~ """STATEMENT""" [[[[ [[ [ [[ LOCATJ 0N~[ [[^326[4[~[[ [[[[[[[ 

1* 0C3264.4C « SLC,$ 17000001 

2* PRNC 17000002 



4* 



17000003 " 

17000004 ei 



I/C ASSIGNMENT ASSIGN 1700000b 

__---;.::i~___^_^^^J^-J^-~______^ 17000006" 



v: 
Si 
91 



1 * 
I* 

f * 



17000007 61 

17000008 

17000009" 



1C* - TEE ASSIGN PROGRAM LINKAGE FORMAT 17000010 



11* 
12* 



17000011 

[17000012" 

17000013 



14* - LVI,$15,Y 17000014 

[15*[~~^^[^[^~~~~~~~~~~~~1~~~~" [[[[[[[[ [[[[[[ I[[17000015 

16* - Y XhfA f Bf f C 17000016 

17* - BEW,$ RETURN LOCATION 17000017 



It* 



17000018 



IS* - LET A = STATLS OF MACHINE 17000019 

20 

'» 21* - ZERO = NO MACHINE CONF. CHANGE 17000020 

( 18 

'7 21 « - NOT ZERO = MACHINE CONF. CHANGE 170G002I 

( '5 22 * - LET 8 = EXIT DISPOSITION 17000022 

14 

" 23* - LET C = MODE 17000023 

{ 12 

" 2<* - ZERO = OVERLAP MODE 17000024 

10 

* 25* - NOT ZERO = NOT OVERLAP MODE 17000025 



8 

6 
5 
4 
3 
2 
1 



17000026 



wai 



IIME CLCCK 00054041 



PUNID 11C11IPL 



CARD ID 1700C028 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



60 



LJNE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 



17000028 
17000029 



SYN CARDS FOR THE LENGTHS OF THE THREE TABLES 



17000030 
17000031 
17000032 



«* 



e* _.occccc_. pp_+_ 

7* 00CC0C.CC+ 

e* 0CC0CC.CC+ 



AQCcqcoz*. 

+0CC0012C 

+0CC00062 



NULL_ 

NULL 

NULL 



J_PP_Q S Y N 1 2 

TICC SYN, 80 
T FRC SYN, 50 



-THE FIRST REEL TABLE LENGHT 



17Q00033 
17000034 
17000035 



c * 

1C* OCCCOC.CO+ 
11* OOCOOC.CC+ 



170C0036 
17000037 
17000038 



+-0CC00002 

+0CCC0024 

To~CC~C~C~C2~4 



NULL 
NULL 

"null" 



T UPPC SYN, 2 
T UIOC SYN,2C 
Y ~UFRC~ S~Y N ,~2 



-NOT OVERLAP PP REF TABLE LENGTH 
-NOT OVERLAP I/O REQ TABLE LENGTH 
~-N~0T "0~V E _ R L A P F 1 R S f " R E E L T A B L E lYnGHT 



.i2*_ogccop_.cp+_ 

12* 

14* 



--NOTE-- THE TPPC COUNT MUST BE HALF OF THE ACTUAL TABLE LENGTH 
W~H IC H " I S Y H Y A C T L A L~ NU MBEPT "oY "JOBS Yh £ YABLECAN" A C CCMC FdaYeV 



.11000039 
17000040 
17000041 



A"* 
16* 



17000042 
17000043 



20 
19 
< 18 
17 
16 

( I* 

14 
13 

( « 

11 
10 

I » 

7 

I « 

5 
4 

( 3 
2 

1 



wai 



TIME CLOCK CC054C41 



PUNIC 11C11IPL 



CARD ID 17000045 



DIST. GF 3/01 



3/01 



PAGE NUMBER 



61 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



I* 

i * 



PRNS 



CONSTANTS TO BE USED THRU CUT ASSIGN PROGRAM 



17000045 
17000046 
17000047 
17000048 



17000049 

170000 50" 

17000051 

17000052 

17000053 

17000054 

17000055 



i* 
i* 
£* 
S* 
1C* 
11* 



003264.40 
003265. CO 
003266. CC 



CC00CC.00+ 
CCC0CC.O0+ 
CCCOCC.OC+ 



COO COOOOO OOCOOO 



T 
T 
T 



NEXT 

CTEMP 

IPL 



VF, 

XW 

VF,C.C 



-THE ADDR OF THE NEXT PP 
-TEMP SYMBOLIC CHAN WORD 
-CHAN ADDRESSES FOR IPL 



TO BE RUN 



THE FORMAT OF THE TEMP CHAN WCRD 



12* 

13* 
14* 
15* 
16* 
11* 



003265.00+ 
003265.31+ 

C 3 2 6 7 . C C 
00327C.CC 



+0CCC00CC 
+00C000C0 

CC_C0CC._O0 + _0 0O 
CCCCGC.GG+ CCO 



COOOOO 
COOOOO 



BO, 22 ,10 T CTACH S YN ( BU , 18 ) , TC TEMP+O. 
BU.07 ,10 T CTSCH SYN { BU , 7 ) , TCTEMP+O. 25 

OOCOOO T__W0RK1__XW 

CCCCOC ~ T W0RK2 XW 



•ABSOLUTE CHANNEL NUMBER 
•SYMBOLIC CHANNEL NUMBER 

•TEMPORARY WAKING WORD 
TEMPORARY" WORKING WORD" 



17000056 
17000057 
17000058 
17000059 
17000060 
17000061" 



16* 0C3271.CC 

IS* 003272. CC 

2C* 003273. CC 

21* 0C3273.22 

22* 0C32/3. 2 5 



CCC0CC.00+ 000 000000 OCCCCO T REFIL 

CC3317.0C+ OCO 000024 003314 TSAV 

COOOOO T LUCT 

1 T ONE 

T MCCE 



XW 

XW,TPREFT,TPPC,TPPREF 
DD{ BU, 18), 
DD( RU,1), 1 
DDIBU, 1),C 



-TEMP STORAGE FOR IX -A- 

-LARGEST UNIT COUNT ON ONE CHANNEL 

-CONSTANT CF ONE 

-SINGLE OR FULL NOT-OVERLAP MCCt 



17000062 
17000063 
17000064 
17000065 
17000066 



21* 003273.24 



T INDA 



ODtEUf 1),C 



-SAME CHANNEL ALLOWED INDICATOR 



17000067 



24* 
25* 
26* 
27* 
2E* 



0C3273.25 
0C3273.26 
003273.27 
0C3273.3C 
0C3273.31 



T INDB DD(RU,1),0 

T INDC DD(BU,1},0 

T INDD DD(BU,1),0 

T INDE DOIEUilliC 

T INDZ DDCEUil),0 



-THE SPLIT CHANNEL INDICATOR 
-UNIT FOUND — MULTI-UNIT CHECK 
-BYPASS OPTIMISED REEL MTINGS 
-THE ADVANCE AND SAVE INDEX IND 
-MORE MULTI-UNITS AVAILABLE 



17000068 
17000069 
17000070 
17000071 
170000 12 



2i*_0Q3273_.32_ 
3C* 003273.33 
31* 0CCC32.C0+ 
32* 00C032.00+ 
33* 000031. CC+ 
34*_qCCC21.00+ 
"35* 0CCC22.~CC + 




0" 



+CCCCOCCO 
+OCCCCCCC 
+OCCOOOCO 

+OCCCOCCO 
+ CCO coco" 



BU,100,10 
BU,1CC, 10 
BUilOC, 10 
BU,1CC,10 
"BUf 1CC.IC" 



T 
T 
T 
T 
T 
T 
T 



LOOP 

LC0P1 

CTWDX 

XI 

X2 

X1BR 

X3 



_DD(_eU L 1) f C 

DO (BO, 1 ),C 

SYN.TX1 

SYNDIC 

SYN, $9 
_S_Y_N , $ 1 

SYN," $2 



-TO _PREVENT _A LOOP IN SECTION ELEVEN 17000073 

-LOOP PREVENTER NUMBER 2 " 170C0074" 

-ENTRY CONTROL WORD INDEX 17000075 

-TEMPORARY INDEX 17000076 

-THE SCAN CONTROL INDEX 17000077 

-FOR SUB-ROUTINE BRANCHING _!I°_ C 00 78 

-COUNTER" 17000079 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



36* 
37* 
3S* 
39* 
4C* 



0CC024 
00CC25 
00CC23 
00CC32 
00CC30 



.CC + 
.C0 + 
.00 + 
.00 + 
.00 + 



+OCCCCCCC 
+OCCCCCCO 
+CCCCCOOO 
+CCCOOOCO 
+OCCOOOCC 



B0,1CC,1C 
BU,1CC,1C 
BU,1C0,10 
BU, 100,10 
BU,1CC,1C 



T 
T 
T 
T 
T 



IXA 
IXB 
IXE 
IXF 

IXG 



SYN, $4 
SYN, $5 
SYN,. $3 
SYN,TX1 
SYN, $8 



-I/O REC. LOCATOR INDEX 
-MULTI-LNIT STAT TBLE SCAN INDEX 
-PP REF. WORD LOCATOR INDEX 
-MACH CCNF CHANGE — CHAN. SCAN IX 
-MACH CCNF CHANGE — UNIT SCAN 



170000tiO 
17000081 
17000082 
17000083 
17000084 



41* 
42* 
43* 
44* 
45* 
46* 



00CC22 
0CCC25 
000026 
000027 
000032 
0CCC32 
'000030" 



.CC + 
.C0+" 
.C0 + 
.00 + 
.CC + 

.oc_+_ 

".C0 + 



+CCC0O0CC 
+CCC000C0 
+CCC0OOCC 
+OOCOOOCC 

_+oc_ccqqcc 

+CCC00000 



BU,1CC, 10 

BU,10C,10 

BU,1C0,10 

BU,1CC,10 

BU,1C0,10 

BU,100,1_0_ 

BU,100,10 



T 
T 
T 
T 
T 

T 
T 



IXH 
"I X I 
IXJ 
IXD 
IXK 
IXL 
IXM 



_S_YN L TX3_ 
SYN,TIXE 
SYN, $6 
SYN, $7 
SYN,TX1 
SYN,TX1 

"SYN ,T IXG 



■_ M A _C_H C CNF C H A NGE _ --_ _P_P_ REF T B L S C A N 

■MACH CCNF CHANGE — I/O TBLE SCAN IX 

-UNIT TBLE ADDR. AND UNIT CCUNT 

-CHANNEL ADDRESS 

-LIKE CHANNEL SEARCH INDEX 

■l/C LIABLE SCAN INDEX 

-NOT OVERLAP SCANNER IND"tX 



17000085 

17000086" 

17000087 

17000088 

17000089 

17000090 



47* 
~4E* 
49* 
5C* 
51* 
52 * 



17000091 

17000092" 

17000093 

17000094 

17000095 

17000096 



SAVE AREAS FOR INDEXES 



003273.40 

003274.00 



C0C0CO.3O 
00C017.CC 



CO 



T ASAVE 



CNOP 
DRZ(BU,64) , ( 15) 



•AREA SET ASIDE FOR INDEX SAVING 



53* 

~54*~ 

55* 

56* 



17000097 
17000098 
17000099 
17000100 



SYN CARDS FOR THE PP REFERENCE TABLE 



MSI 



I IME CLOCK CC054C41 



PUNID 11C11IPL 



CARD ID 17C001C1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



62 



LINfc 



LGCATICN 



BINARY CUTPUT 



NAME- 



STATEMENT 



LOCATION 



1* 

0C3313.CC 
003314.00 
4* 003315. OC 



2« 



CC337C.C0+ 000 000002 003313 T PPURF 
CC3317.00+ COO 00C024 0C3314 T PPREF 
CC3317.00+ OCO C00024 0C3314 T PPRUN 



XW,TPURFT,TUPPC, $ -CONSTANT IX FOR 
XW,TPR£FT,TPPC,$ -CONSTANT IX FOR 

XW,TPR£FT,TPPC,TPPREF -THE NEXT JOB TO 



THE NOT OVERLAP T8L 
THE PP REF TBL 
BE RUN POINTER 



17000101 
17000102 
17000103 
17000104 



0C3316.CC 



CCCOCC.OO+ OCO 000000 OCCCCC 



Xw 



-A BLANK rfCRD MUST PROCEED THE PP REF 



17000105 
17000106 
17000107 
17000108 
17000109 
17000110 



6* 0C3317.CC 

1* 0C332C.C0 h 

6* 003344.00 

?» OOCOOG.CG+ 

1C* OOCCC0.34+ 



CC3373.00+ CCO 
CCCC24.C0 
C0CC24.C0 
+00CC0CC0 
+OCCCOOCO 



001100 OCCCOO 



BUf 22 
BUtlC 



,10 

,io_. 



T PREFT XW.TIOREQ, 0,1 .39)9 
0RZ(BU,fc4), (TPPC) 
DRZ(BU,64),(TPPC) 

T CRREF SYN(BU,18},0.C 
_T__UNCT SYN(BU,C8),C28 



-INITIAL ENTRY WITHIN THL PP REF TBL 

-THE PP REFERENCE TABLE 

-THE PP REFERENCE TftBLE SECOND HALF 

-THE CROSS REFERENCE ADDRESS 

-I/O REQUEST COUNT 



ll*_0CCCCC_._4_4_+_ 
12* 00CC0C.45+ 
12* OCCCCC. 46+ 
14* OCCCCC. 47+ 
15* OCCCCC. 50+ 
16* OCCCCC. 64 + 



_+ccccgcco 

+CCCCOCCC 
+OCCCOOCO 
+CCCOOOCO 
+OCCOOOCO 
+OCCOOOCC 



BU,G1 i_10___J__J_8_PR0 SYN(BU, 1),0.36 



_-JQB__PRCCESSEp_Bi_T 

-JOB REJECTED BIT 

-JOB ASSIGNED BIT 

-LAST ENTRY BIT 

-IF GO TYPE PP - THE LARGEST 

-THE NUMBER OF ICDS PER PP 



170001_11 
17000112 
17000113 
17000114 
17000115 
17000116 



BUtOl 
BU,01 
BU,01 
BU,14 
BUjl4 



,10 
,10 
,10 
,10 
,10 



T RJECT SYN(BU, 1),0.37 
T ASGNP SYNCBU, 1),0.38 
T LPPEN SYNJHUt DiO.39 
T LREFN SYN(BU, 12), 0.40 
J_ JQ.Q.CT __SYNtBU, 12) ,0.52 



REF NO, 



II* 
16* 
IS* 
2C* 
21* 
22* 



00 OC 0_l_._C_0+_ +O.CCO C C _ BU , 6 C ,06 _T_ _P_N AME _ S YN ( B U , 4 8 , 6 ) , 1 . C "NAME CF PP.8. BCD-6 CHAR 



C03370.CC 
003371. CO 
003372. CC 



CCCOCC.OO-i OCO 
CCC0CC.00+ CCO 
CCCOC0.CC+ coo 



cocooc CCCOOO 
COOOOO occcoc 
000100 occooo 



T PURFT XW,C 

xw,c 

XW,C(.39)1 



-NOT OVERLAP PP REF WORD NO. 1 
-NOT OVERLAP PP REF WD NO. 2 
-NECESSARY FOR LAST ENTRY BIT 



IZPOOllJ 
17000118 
17000119 
17000120 
17000121 
17000122 



22* 
24* 
25* 
26* 
27* 
26* 



17000123 
17000124 
17000125 
17000126 
17000127 
17000128 



SYN CARDS FOR THE I/O REQUEST TABLE 



003373. OC * 



0_0_CJ_2_0_-C0 

C_C_C_0_CC_.4_0_+. 
+0CCC00CC 
+0CCC0000 
+OOCCO0CC 
+OCCOOOCO 
+OCCCOOOC 



T IOREQ 



CNOP 

pRZ(BU 1 64),ITICC) 

VF,C32 



-I/O REQUEST TABLE 

-D_0 NOT REMOVE -_ MARKS J. AST WORD 

-I/O ASSIGNED INDICATOR 

-NOT OVERLAP BIT 

-I/O REG PRINTED TO OPERATOR BIT 

-TYPE OF REQUEST 

-UNIT NUMBER 



29* 
3C* 
31* 
32* 
33* 
34* 



0035 13. CO _ 
OCCCCC. C0+ 
00CC00.C1+ 
000CCC.C2+ 
OCCCOC. 03+ 
OCCCCC. 07+ 



17000129 

17000130" 

17000131 

17000132 

17000133 

17000134 



BUtOl 
BU,01 
BU,01 
BU,04 

BU.03 



,10 
,10 
,10 
,10 
,10 



T ASGNI 

T UNOBT 

T PRINT 

T TYPE 

T ABSUN 



SYNIBU, 1), 0.00 
SYNIBU, 1),0.C1 
SYNIBU, 1),0.02 
SYNIBU, 4) ,0.03 
SYNIBU, 3) ,0.07 



35* 00CCCG.13+ 



+ C_CC0O0G_C_ 
+OCCO00CC 
+CCCCOGCO 
+OCCOOOOO 
+OCOOOOCC 



BU,07 ,iC _T__RLSY_« SYNIBU, ,1 ), 0.1 1 

BUfOl ,10 T LAST S YN ( BU, 1 ) , . 18 

BU,11 ,10 T IOCSG SYN(BU,9),0.19 

BU,22 ,10 T FREEL SYN ( BU , 18 ) , . 28 

BU,22 ,1C T ABSCH S YNI BU , 18 ) , .46 



-THE SYMBOLIC .CHANNEL NUMBER, __ 
•LAST WCRD OF THE I/O REG TABLE 
-100 SEQUENCE NUMBER AS RECEIVED 
-THE FIRST REEL ADDRESS 
-THE ABSOLUTE CHANNEL ADDRESS 



17000135 
17000136 
17000137 
17000138 
17000139 
17000140 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
36* 
3S* 

4C* 



OCCCCC. 22+ 
00CCC0.23+ 
0CC0CC.34+ 
00CO0O.56+ 



4L*_003514 J .CO 

42* 003515. CO * 

43* 00354C.CC 

44* 

45* 

46* 



c_c_c_o_QC_.„o_c_+_ _o o p „cpoppp_ CCO 00 

CCCC23.0C 
CC00CC.4C+ 



T UIORG 



XW,_0 -JHJE _NOT_QVeRLAP_I/p_REQ__T_BL_ 

DRZ(BU,64),TUIOC-l 

VF,C32 -DO NOT REMOVE - MARKS LAST WORD 

SYN CARDS FOR THE FIRST REEL NUMBER TABLE 



17000141 

17000142" 

17000143 

17000144 

17000145 

17000146 



47* 
46* 
49* 
5C* 
51* 
52* 



Q0354C.4C __ 
003541. CC * 
OCCCCC. 00+ 

0C3623.C0 



_c_o_c_c_oo !L 3g_co 

0OCC62.00 
+GCCC0000 

CCCC24.CC 



BU,60 ,10 



T FSTRE 
T REELN 

TUFRE 



CNOP 

CRl IBU,64), tTFRC) 
SYNIBU, 48), CCO 



-THE FIRST REEL TABLE 

-A REEL NUMBER FOR A GIVEN UNIT 



DRZ(BU,64),TUFRC -THE NOT OVERLAP FIRST REEL TABLE 

~ s yn" c arcY >~cr The Thannel/um Y statuYTaYle 



17000147 
17000148 
17000149 
17000150 
17G00151 
17000152 



53* 

54* 

55* 

56* 002152.00+ 



+O0C00CC0 



BU,1C0,10 



T CHSXW SYN,SXCHAN 



-INDEX WORD FOR CHAN STAT TBL 



17000153 
17000154" 
17000155 
17000156 



wai 



1 IME CLOCK 00054C41 



PUNIC 11C11IPL 



CARD ID 17000157 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



63 



LINi 



LGCA1 ION 



BINARY CUTPLT 



NAME 



STATEMENT 



LOCATION 



000000 



1* 
2* 
2* 
<* 
5* 
"IV 
7* 
£* 
S* 
1C* 

n* 

12* 

13* 

14* 

15* 
U* 

11* 

1£* 

IS* 

2C* 

21* 

22* 

22*" 

2^* 

25* 

26* 

27* 

2£* 
29* 



0OCGCC.C0+ 

0CCC0C.33+ 

00CC00.31+ 

0GCCpC_.3_3_+_ 

0CC0GC_.3_4_+ 

0CCCCC.35+ 

00C0G0.40+ 

000000.47+ 

0GCC00.50+ 

CGCCCC_._6_4+_ 

OC 0000.7 3+ 

OOCCCC. 76 + 

0CCC0C.77+ 



+CCCCOOOO 
+CCCC00CC 
+OCC0O00O 
+00000000 

_+o_c_ccqcGO 

+"CCCOOOCO 
+CC0OO00O 
+OCCCCCCO 
+CCGOO0C0 
+CCG0C0C0 



BU,22 ,10 

BUtOl ,10 

BU,01 ,10 

BU,01 , 10 

8U~,_01 _,~io 

BUt0~r 

BUtOl 
BU,01 
BU.01 

BU,04 



,10 
,10 
,10 
,10 
,10 



T UNTBA 

T MULTI 

T CHAVL 

T FCISP 

T UNAVL 

~T UNASG 

T CHOWN 

T SEL 

T VER 

T EQUIP 



SYN(BUi 18), 0.0 
SYN{BU, 1),0.27 
SYN{BU, 1),0.25 
SYNIBU, l_)i0.2 7 
SYNlBU, n,0.28 
SYNIBU, if, 0.29 
SYN{BU, 1),0.32 
SYNI8U, 1),0.39 
SYN {BO, 1),0.40 
SYN<BU,4 ) ,0.52 



+occoqqcc 

+OOCCGCCC 
+OCCCCOGO 



BU,04 

BUVOI" 

BU,01 



,10 
,10 



_T__UN.IJ_K 
T UNRES 
T CVRES 



SYN(BU L 4),0.59 

~SYN(~BU, 1),0~.62~ 

SYN(BU, 1),0.63 



-THE UNIT TABLE ADDRESS 

-THE MULTI -CHANNEL BIT 

-THE CHANNEL AVAILABLE BIT 

-THE KIND OF REEL MOUNTED ON UNIT 

: f H t '_ UN 1 1 " A V A I LA B L E~ B iT ~ 

: f HE UN I f " A SSI GNEO" B~I T ~ "" 

-THE OWNERSHIP LEVEL INDICATOR 

-THE MULTI UNIT SELECT BIT 

-THE VERIFY BIT 

:I YF _E_ 0IF UN JI_B E <*UESTED_ 

iNUMRERCF UNITS TO _ A G fVE~N CHANNEL 

-NOT OVERLAP RESERVED BIT 

-THE OVERLAP RESERVED BIT 



17000157 

17000158 

17000159 

17000160 

1700016 f 

17000162 

17000163 

17000164 

17000165 

17000166 



17000167 
17000168 
17000169 
17000170 
17000171 
17000172 
17000173 
17000174 
17000175 
17000176 
17000177 
17000178 



SYN CARDS FOR THE VALID CHECK TABLE 



003647. CO 

00365C.CC 

qC365C_.40_ 

003651. CO' 

OOCCCC. 1C+" 

OOCCCC, 

OOCOOC, 

OGCOGO, 

OOCCCC. 



003652.00+ 
CCC0C0.30+ 
CCCCCG.20+ 



CCO 000010 0C3647 



T TYARA XW,TDISK,8,TTYARA -THE TYPE CODE 

T COMBO VF,TTYBC+TMACBC+TREQBC -A CONSTANT THAT WILL 8Y PASS ONE WORD 

T 2CCMB VF, TTYBC+TMACBC -FOR COMPUTING THE NUMBER OF UNITS 



10 + 
10 + 
CC + 
1C + 



_c_c_c_oo_o._o_o+ _ 

+OCCOOOCO 

+OCCCCOOO 
+0CC0OOC0 
+OCCOOCCC 
+O0CCOOCO 
+OCCCCCCO 



NULL 
NULL 
NULL 
BU,1G 
BUtlC 
"BUtlO" 



,10 

,10 
,10 



J VALVF VF L C.G 

T TYBC SYN, 0.8 

T MACBC SYN, 0.8 

T REGBC SYN, 0.8 

T TYAD SYN (BU,8),G.C 

T MC AC SYN { BU , 8 ) , TT Y AD + . 

T RCAD SYNfBU,8),TMCAD + 0^ 



-TO PRE VE N T A D U B L E V A L I D I T _Y C HE C K 

-THE TYPE CODE BIT COUNT 

-THE MACHINE CCNF COUNT BIT COUNT 

-THE REQUEST CCUNT BIT COUNT 

-ADDRESS OF THE TYPE CODE 

-MACHINE CGNF COUiNJ AODRESS 

-THE "RECUEST CCUNT ADDRESS" 



17000179 

17000180" 

17000181 

17000182 

17000183 

17000184 

17000185" 



0CCCCC.2G+ 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



WEI 



TIME CLOCK CCC54C41 PUNIC 11C11IPL CARC IC 17000187 

Tine locatTln binary" cut put na'mTe 



CIST. OF 3/C1 

statement" 



3/01 



PAGE NUMBER 64 
LCC AT I ON 



1* 

2 * 

2 * 
l « 



REQUEST VALIDITY ChECK TABLE 



17000187 

17000188 
17000189 
17000190 



003651.40 



G00C0O.3O CO 



7* 

£* 

S* 

1C« 



003652. CC 
003652.10 
003652.20 
003652.30 

003652. 4C 



001 
001 
000 
002 

ceo 



CNOP 

T DISK (8)CC(RL,8)" f 1, 1,C 



8)CDtBU,8) ,2,0, C 



-TYPE CODE, MACH CCNF, REQ CNT- DISK 



-SAHE AS ABOVE - CONSOLE 



17000191 
17000192 
17000192 
17000192 
17000193 
17000193 



LI* 

12* 
12* 
14* 

15* 
U* 



9P3652 

003652. 

003652, 

003653 

003653, 



5_C_ 
6 
70 
CC 
10 



0C3653.2G 



P_00_ 

003 

000 

OCC 

004 

000 



8)CD(BU,8),3,0,C 



8)DD(BU,8),4,0,C 



-SAN'E AS ABOVE - CARD READER 



-SAME AS A80VE - PUNCH 



17000193 
17000194 
17000194 
17000194 
17000195 
17000195 



II* 
IE* 
IS* 
2C* 
21* 
22* 



PC_36_5_3_._3p_ 

003653. 4C 

003653.50 

003653.60 

003653.70 

003654.CC 



cc_o_ 

005 
000 
000 
006 
OCO 



I2QP0195 
17000196 
17000196 
17000196 
17000197 
17000197 



8)CC(BU,8),5,0,C 



8)CD(BU,8),6,0,C 



-SAME AS ABOVE - PRINTER 



•SAME AS ABOVE - IQS 



22* 
24* 
25* 
26* 
27* 
2£* 



QC36 54.10 
003654.20 
003654.30 
003654. 4C 
003654.50 
CC3654..6C 
003654.70 



POO 
00 7 
OCC 
OCO 
010 
PPP 
CCO 



17000197 
17000198 
17000198 
17000198 
17000199 
17000199 



8)CD(eu,8) ,7,0,C 



8)CDtBU,8},lC,C,C 



-SAME AS ABOVE - EXTRA 



-SAME AS ABOVE - TAPE 



2i* 

3C* 
31* 
32* 
32* 
34* 



17000199 

17000200^ 

17000201 

17000202 

17000203 

17000204 



THE MULTI-UNIT COUNT TABLE — SORTED 



35 * 

"3"6~* 
37* 
3E* 
3S* 
4C* 



PQ3655.C0 _ 
003656. CO 
003657.00 
00366C.CC 
003661.00 * 



P P_3 _6_6J_-_0_0+_ _0_00 
CC3657.00+ CCO 
CC3661.00+ OCC 
0C3721.0C- OCO 
CCCC20.C0 



ppcooo OCCOCO 

C0Q002 OCCOOO 

COOOOO OCCCCC 

000000 OCCCOC 



J MU C_T_X_ ^ _X_W_f„TC H C L C , , _ 

T YSCAN XW,TFCHSC,2,0 

T FCHSC XW,TCHCUC,0,0 

T RCHSC XW,-TCFCUC-32.0,C,0 

T CHCUC DRZ(BU,32),{32) 



-CONSTANT TC THE BEGINNING CF CNT TBL 

-LOCATOR FOR THE TWO SCANS 

-FORWARD SCAN 

-THE REVERSE SCAN 

-MULTI CHANNEL UNIT COUNT 



17000205 
17000206 
17000207 
17000208 
17000209 
17000210 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
E 
7 
6 
5 
4 
3 
2 
1 



Alt 

42 * 

43 * 
44* 
45* 
46* 



SYN CARDS FOR THE MULTI-UNIT COUNT TABLE 



OCCCOC. CC+ 
00CCCC.24+ 



+CCCCC0C0 
+CCCCOOCC 



BU, 22 ,10 
BUj04 __,_1_0_ 



T CHADD 
T CHCNT 



SYNIBU, 18), CC 
SYN(8U,4],0.2C 



-MULTI-UNIT CHAN ADDRESS 
-NUMBER OF UNITS ON CHANNEL 



IIQQQ211 
17000212 
17000213 
17000214 
17000215 
17000216 



wai 



TIME CLOCK 0C054C41 
LINE L OC~A TfCN 



PUNIC 11C11IPL CARD ID 17000218 DIST. OF 3/C1 

B I N A R Y~ C U T P U T NA Mb " " S if A t E ME NT 



3/01 



PAGE NUMBER 65 
LCC ATI ON" " 



1* 
2* 

2 * 
i * 



THE ENTRY POINT TC THE ASSIGN ROUTINE 



17000218 
17000219 
17000220 

17000221 



7* 

i * 

c * 
1C* 



0G37C1.CC 
003702.00 
003702.40 
0C37C3.40 
003704. CO 



CCCC21.C0 


30 


003274. 3C 


000000.24 


IF 




003273.23 


80 


006000. CO 


004215.31 


40 




CC37C6.63 


40 





CNQP 
EO T ASIGN SWAPI, 12,$1, IASAVE 

LX,TCTWCX,0.0($15) 
FC CM0CGC(BU,6),TM0CE 

BZXVZ,TA9 
T B1F BZXF.TB1C 



-SAVE INDEXES 
-OVERLAP AND MACHINE CONF TEST 
-RESET INDICATORS 
-IF A MACH CNF CHANGE 
-IF OVERLAP MODE 



170C0222 

17000223" 

17000224 

17000225 

17000226 

17000227 



11* 
12* 

12* 
14* 

15* 
16* 



"NOT" OVERLAPPED TYPE OF PROBLEM PRCGRAM 



003704.40 

003705.00 
0C37C6.CC 



C03313.C6 
C0CG00.46 
003710. 10 



10 

80 

CO 



004416.74 G2 



LX,TIXE,TPPURF 

BB,TASGNP,TD 

B.TA1 



-NOT OVERLAP PP SET UP 
-IF THE PP IS ASSINGED 



17000228 
17000229" 
17000230 
17000231 
17000232 
170C0233 
17000234" 
1700 0235" 
17000236 
17000237 
17000238 
17000239 
17000240" 
17000241 
17000242 
17000243 
17000244 
17000245 
"17000246" 



11* 
16* 
IS* 
2C* 
21* 
22* 



OVERLAP TYPE OF PP 



003706. 4C 

003707.00 



003272.06 
CO 327 3. 3 
CO C_C_C_0_r4_7_ 
CGCC00.44 
OCCC00.46 
OCCCOO. 10 
000000.34 
C0CC11. 10 



10 
80 
83" 
"8 3" 
83 
33 
83 
50 



002000. CO 
004417.34 
004211.74" 
004203.74 



FO 
02" 
02" 
02 



T BiC 
T" AT 



LX,TIXE,TSAV 
CM0C0C{BU,2),TINDE 



-FIND LCC. WITH IN P P REF TBL 



23* 
24* 
25* 
26* 
27* 

VL * 
2S* 



OC371C_.CC 
'003 711. CC" 
003712. CO 
003713.00 
003713.40 
003714_40 
0C3715.CC" 



010027. 2C 50 



CC42C1./C 42 



BB, TLPPEN(TIXE),TF 

8B,TJBPRC{f IXE ) ,TB8 

6B,TASGNP<TIXE),TB8Z 

LV,TIXA,TCRREF(TIXE) 

L,TUNCT(TIXE),46 

LC,TIXA,|R 

BXCZ f ~TB8C" 



" L F _ J-_ A S _T E N T R Y WITHIN PP R E F T B 

-"IF THE JOB "WAS "PROCESSED 

-IF PP IS ASSIGNED BYPASS REMAINDER 

-GET I/O REQ TBL ADDRESS 

-GET THE UNIT COUNT 

-IF HG I/O R |Q U E | T F OR _ P P_ 
-REFILL ADDR TO "INDEX" 

-IF PP WAS REJD AND TBLS TO BE CLEARED 
-TO ACTIVATE THE FLAG IND 
-TC PREVENT A DOUBLE VALIDITY 



3C* 
33* 
32* 

32* 
34* 



003715.40 
003716.00 
003716.40 
003717.40 

0C372C.CC 



CC3271. 11 
003271.11 
000000.45 
CCCCC0.24 
003723.23 



03 
10 
83 
IF 
42 



004361.34 02 



LRI,TIXA, TREFIL 
SX,TIXA,TREFIL 
BBtTRJECT(TIXE) ,TAREJ 
LX,TCTWCX,0.0($15) 
BXF,TDl+.32 



17000247 
17000248 
17000249 

17000250 
17000251 



35* 

~3"e"*" 

37* 
36* 
3S* 
4C* 



0C372C.4C 
003721.40" 
003722.00 
003722.40 



C 3 _2_7_3 .33 

CO 3651". C6 
C03743.73 
C03651.C7 



ac 

90 
40 
30 



003722.74 06 



BEZ,TLCCP1,TD1 
KV,~f TXEt'TVALVF" 
BZXF, TA2 
SV,TIXE,TVALVF 



■IF IJ(-E- WAS REFILLED 

• C H EC K " T PREVENT A ~ D U B L E V A L I D IT Y C K 
-IF A VALIDITY CHECK HAS BEEN MADE 
•SAVE TC PREVENT DOUBLE VALIDY CHECK 



17000252 
17000253 
17000254 
17000255 
17000256 
17000257 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



T Dl 



DO A VALIDITY CHECK ON THE REQUEST 



41 * 

42* 
42* 

44* 003723.00 
45* 003723.40 
46* 003724.00 



17000258 
17000259 
17000260 
17000261 
17000262 
17000263 



FIRST CLEAR COUNT AREA 



003647.24 
CCCC11. 22 

C00CC0.2C 



10 
00 
8A 



010000.20 DO 



T CLEAR 



LX, TX1.TTYARA 

Z,$R 

ST,TRCAC(TX1) 



-LOAD TO BEGINNING OF TABLE 

-ZERO THE ACC 

-THEN CLEAR THE COUNT AREA 



47* 
4£* 
45* 
5C* 
51* 
52* 



003725.CC 
003725.40 
003726. CC 
003727. CC 
003727. 4C 
0C373C.4C 



_0_0_365_C_._24 
C0 372~4.30 
000000.22 
003373. 11 
C0CC0O.O3 
CCCCCO.CO 



FO 

40" 

84 

01 

84 

8A 



003727.74 00 



004000.20 
010000.21 



50 
10 



T SETAC 

T SETBC 
T CCMPA 



v _tO^L™l»ICCMBO 

BZXCZ, TCLEAR 

8ZB,TLAST{TIXA),TSETBC 

LVI,TIXA,TIOREQ 

L,TTYPE(TIXA) 

K,TTYAC{TX1) 



-RELOAD TO BEGINING OF TABLE 
-REQUESTED TYPE TO ACC 
-COMPARE FOR EQUALITY 



17000264 

"1700026 5" 

17000266 

17000267 

17000268 

17000269_ 

17000270 



5___0C373_1_.40_ 
54* 0C3732.CG 
55* 003732.40 
56* 



00 37 33.76 

"C03650.24 
003730.70 



C? 

CC 
40 



BAE,_TC1 

V + C,TX1,TC0MB0" 

BZXCZ, TCCMPA 



-[F EQUAL 
-GET NEXT" 



FEILD 



17000271 
17000272 
17000273 

wai 





TIME CLOCK 00C54C41 PUNID 


11C11IPL 


( 


:ard 


IC 


17000274 CIST. OF 3/C1 


3/01 PAGE NUMBER 66 






LINfc LOCATION 




BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 003733 






1* 


003733 


.00 


CC3733, 


.04 


00 












BD,$ 


-ILLEGAL REQUEST - MCP ERROR 


17000274 




2* 


















- 








17000275 




2 * 


003733 


.40 


COCCOO 


.20 


8A 


010000 


.22 


BO 


T 


CI 


M+l,TRCAC(TXl) 


-INCREMENT REQUEST COUNT 


170002 76 




I* 


003734 


.40 


C0CC32. 


.02 


CO 












R,TX1 


-REFILL TO BEGINNING OF TABLE 


17000277 
17000278 




5* 


003735 


.00 


003726, 


. 11 


4C 












CBR+,TIXA,TSETAC 




t* 


















- 








17000279 




1* 


















- 




CHECK REQUEST 


COUNT AGAINST THE MACH CONF COUNT 


17000280 




fc* 


















- 








17000281 




9* 


003735 


.40 


CCCCGO. 


.20 


8A 


010000. 


.06 


70 


T 


CHEK 


LF.TRCAC(TXl) 


-REQUEST COUNT TO ACC 


17000282 




IC» 


003736 


.40 


003741 


. 14 


C2 












BRZ,TCONT 


-NO REQUEST 


17000283 




11* 


003737 


.00 


CCCCCO. 


.10 


8A 


010000 


.23 


10 






KF,TMCAC(TX1 ) 


-COMPARE MACHINE CONF. COUNT 


17000284 




12* 


00374C 


.CO 


003741. 


77 


40 












8ZAF,TC0NT 


-IF REQUEST IS OK 


17000285 




12* 


00374C 


.40 


COCCOO. 


45 


83 


001000. 


.36 


FO 






CMllll,TRJECT(TIXE) 


-REJECT PP FOR REQ IS TO HIGH 


17000286 




14* 


00 3741 


.40 


C03650. 


.24 


DO 








T 


CONT 


V+C,TX1,TCOMBO 




17000287 




15* 


003742 


.CO 


C03735. 


,70 


40 












BZXCZ,TCFEK 




17000288 




16* 


003742 


.40 * 


OOCGOO. 


,45 


83 


004360. 


.34 


02 






Bii, TRJECT(TIXE) ,TAREJX 


-IF PP WAS REJECTED 


17000289 
17000290 




17* 


















— 










1£* 


















- 








17000291 




IS* 


003743 


.40 


003265. 


,22 


00 








T 


A2 


Z.TCTEMP 


-CLEAR THE TEMP SYMB CHAN WORD 


17000292 




2C* 


003744 


.CO 


003273, 


24 


80 


004000. 


.CO 


FO 






CM0C00(BUi4) .TINDA 


-RESET ALL IND 


17000293 




21* 


003745 


.GO 


COCCOO. 


12 


10 








T 


A2A 


LX,TIXB,$Z 


-INITIALIZE TC PREVENT ERROR 


17000294 




22* 


003745 


.40 


003273. 


.27 


80 


001000. 


.CO 


FC 






CMOCCO,TINDD 


-RESET THE OPTIMIZE IND 


17000295 j 




22* 


003746 


.40 


C03273. 


.31 


80 


003750. 


.34 


00 






8ZB,TINDZ,TA2B 


-IF MORE MULTI UNIT CHAN AVAILALBE 


17C00296 




2<* 


003747 


,4C 


004417. 


50 


CO 












B,TG 




17000297 




25* 


















- 








17000298 




26* 


















- 


^ 


GET AN I/C REQUEST AND FOLLOW IT THRU 


17000299 




27* 


















- 








17000300 




2fc* 


00375C, 


.CO 


COCCOO. 


CO 


84 


003761. 


,34 


00 


T 


A2B 


BZB.TASGNKTIXA) ,TA2D 


-IF REQ IS NOT ASSIGNED 


17000301 




29* 


003751. 


.00 


COCCOO. 


03 


84 


003756. 


,74 


00 






BZB, TTYPE(TIXA) ,TB2 


-IF A SINGLE UNIT TYPE OF REQUEST 


170C0302 




3C* 


003752 


• CO 


COCCCO. 


13 


84 


007020, 


,2C 


50 






L,TRLSYM(TIXA),32 


-REL SYMBOLIC CHANNEL TO ACC 


17000303 




31* 


003753. 


.CO 


003756, 


74 


C2 












BRZ»TB2 


-IF A ZERO CHANNEL REQEST 


17000304 




32* 


003753. 


.40 


COCCCO. 


56 


84 


022027. 


,06 


70 






C0011,TABSCH(TIXA),46 


-ABSOLUTE CHANNEL TO ACC 


17000305 




33* 


003754. 


.40 


COCCOO,. 


07 


84 


003000, 


.06 


70 






C0011,TABSUN(TIXA) 


-ABSOLUTE UNIT TO ACC 


17000306 




34* 


003755. 


.40 


C03265. 


CO 


80 


000000. 


.2C 


CC 






ST{RU,64),TCTEMP 


-BUILD TEMP CHAN WORD 


17000307 




35* 


003756. 


.40 * 


0CCC01. 


22 


84 


003760. 


.34 


00 


T 


62 


BZB,TLAST+1.0{TIXA),TB2Z 


-CHECK FOR TABLE LCOP AROUND 
-RELOAD VF TC BEGINNING OF TABLE 


17000308 
17000309 




36* 


003757. 


.40 


C03372. 


51 


01 












LVIf TIXA, TICREQ-1 




37* 


003760. 


.00 


C03745. 


11 


48 








T 


B2Z 


CB+,TIXA,TA2A 




17000310 


20 


3£* 


003760 


.40 


004176, 


10 


CO 












B,TA8 


-IF COUNT GOES TO ZERO 


17000311 


19 


39* 


003761. 


• CO 


003273. 


23 


80 


001000. 


GO 


FO 


T 


A2C 


CM0C00,TM0DE 


-RESET IND 


17000312 


18 


4C* 


003762. 


• CO 


CC3656. 


22 


10 












LX,TX2,TYSCAN 


-SET UP FOR FORWARD SCAN 


17000313 
17000314 


17 


41* 


003762. 


.40 


CCCCCC. 


24 


IF 












LX,TCTWCX,0.0U15) 


-SET UP FOR OVERLAP MODE TEST 


16 


42* 


003763. 


.00 


003764. 


63 


42 












BXF,TA2CE 


-IF FULL NOT OVERLAP MODE 


17000315 


15 


42* 


003763. 


.40 


OOCGOO. 


01 


84 


003765. 


,74 


00 






BZB,TUN0BT(T1XA) ,TA2DC 


-IF SINGLE OVERLAP MODE 


17000316 


14 


44* 


C03764. 


.40 


003273. 


23 


80 


0C1000. 


36 


FO 


T 


A2CB 


CMllll.TMCDE 


-SET IND TO NOT OVERLAP MODE 


17000317 


13 


45* 


003765. 


.40 


CCCCCO. 


03 


84 


003775, 


,34 


02 


T 


A2DC 


BB,TTYPE<TIXA), TA2E 


-IF A TAPE CHAN REQUEST 


17000318 


12 


46* 


















- 








17000319 


11 


47* 


















- 




SINGLE UNIT REQUEST, ASSIGN ONLY NEXT PP TC RUN 


17000320 


10 


4£* 


















- 








17000321 


9 


49* 


003766, 


,40 


CC4C20. 


63 


42 












BXF.TA7 


-IF NOT OVERLAP CASE, BYPASS 


17000322 


8 


5C* 


003767. 


,CC 


003315. 


24 


10 












LX,TX1,TPPRUN 


-SET IX TO NEXT JOB TO RUN 


17000323 


7 


51* 


003767. 


.40 


OOCCOO. 


47 


8A 


004423. 


34 


02 






BB,TLPPEN(TX1),TP 


-ERROR - SOMETHING IS OUT OF PHASE 


17000324 


i 


52 * 


00377C. 


40 


CCCCOO. 


4 5 


8A 


0C3772. 


74 


02 


T 


C2B 


BB,TRJECT(TX1),TC28A 


-IF THIS JOB WAS REJECTED 
-IF THE JOB WAS NOT PROCESSED 


17000325 
17000326 


5 


52 * 


003771. 


,40 * 


CCCCCO. 


44 


8A 


003773. 


74 


CC 






BZB,TJBPR0(TX1), TC2EC 


4 


5** 


00 37 72. 


4C 


C0CCC2. 


25 


07 








T 


C2BA 


V+ICR,TX1,2.0 




170C0327 


3 


55 * 


003773. 


CC 


C03770. 


5C 


CO 












B,TC28 




17000328 


2 
1 


56* 


0C3773. 


40 


00CC32. 


06 


go 








T 


C2BC 


KV,TIXE,TX1 


-IS ASSIGNMENT FOR NEXT JOB TO BE RUN 


17000329 



wai 



I IME CLOCK CCC54C41 



PUMC liCHIPL 



CARD IC 17000330 



CIST. OF 3/C1 
'STATEMENT 



3/01 



PAGE NUMBER 67 
LOCATION 003774 



L INI 



LOCATION 



BINARY CUTPUT 



NAME 



I* 003774. OC 
2* 003774.40 
2 * 
i * 

"II*I0C37 7 5VCC~ 
6* 00 37 76. OC 
7 * 
£* 
9* 
K* 



C03756.72 CO 
C04C20.5C CO 



_Q.0 32 73.2 3 
003273.31 



80 
80" 



003777.34 
003756.74 



°_ 2 _ 

CE 



T A2E 



BZXE.TB2 
B,TA7 



6B| TM0CE,JA6 
Bei.f INCZt TB2" 



-NO, DO NOT ASSIGN 



-IF NOT OVERLAP MODE 



CONCLUSION — TRY TO ASSIGN THIS MULTI-UNIT REG 



17000330 
17000331 
17000332 
1700 033 3_ 
17000334 

"17000335 
17000336 
17000337 
17000338 
17000339 
17000340 
17000341 
17000342 
17000343 
17000344 
17000345 
17000346 
17000347" 
17000348 
17000349 
17000350 
17000351 

"17600352" 
17000353 
17000354 
17000355 
170C0356 
17000357 

"17000358_ 
17000359 
17000360 
17000361 
17000362 
17000363 
1700 03 64" 

"17000365" 
17000366 
17000367 
17000368 
17000369 

"17000370" 
17000371" 
17000372 
17000373 
17000374 
170003.5 
17000376 
17000377" 
17000378 
17000379 
17000380 
17000381 
17000382 
17000383 
17000384 
17000385 



11* 

12* 003777.00" 

0037/7.40 

0C4CCC.40 

004CC1.CC 

004001.40 



12* 
14* 
15* 
16* 



003271.24 10 
000000.13 84 
C0CC22.22 GO 
003267.11 50 
C04C46.34 C2 



007000.06 70 



T A6 LX,TX1,TR_FIL 

LF,TRLSYM{TIXA) 

Z,TX3 

SC,TIXA,TW0RK1 

BRZ,TA3 



-SET FOR CHANNEL SCAN 

■SYMBOLIC CHANNEL NUMBER TO ACC 

•ZERO THE COUNTER INDEX 

■SAVE FOR COMPARING 

•DO NOT COMPARE IF RLSYM IS ZERO 



_Z*_P c 5co_ 2 _._oo_ 

18* 00400 3.00 
0C4CC3.40 
004004.00 



19* 
2C* 
21* 
22* 



_0_qqcqq._13 8 A 

C04C04. lb C2 

004002.25 48 

C04C05.50 00 



007000.23 10 



J A6 A K F , ,1 R L S Y M ( T X 1 ) 

BAE.TA6C 
T A6B C8+,TX1,TA6A 

B,TA6D 



■LOOK FOR LIKE SYMBOLIC CHAN 
: IF LIKE SYMBOLIC CHANNEL" 



CC4CC4.4C _G_0_C_CC1.C_5 00_ T 46C C + I,TX3,1.0 _ - ADVANC E THE LIKE REQUEST COUNTER 

C04C03.5G~00 " " " 



C + I , TX3, 1.0 

"B,TA6B" 



22* 
2<* 
25* 
2d* 
27* 
2£* 



0C4CC5_.CC 

004005.40 
004006.40 
004007.00 
004007.40 



C03265.31 
003273.05 
004016.73 
C04046. 36 



80 
90 
42 

CO 



007000.23 10 



T A6D KF,TCTSCH 

KC,TX3,TLUCT 

BXH,TAQ 
BZAE.TA3 



-COMPARE ACC AGAINST TEMP 
-IS THERE A CHANNEL WITH ENOUGH UNITS 
-IF THE CHANNEL REG IS TOO LARGE 
-IF UNLIKE ABS CHAN LOC 



29* 
~3C* 
31* 
32* 
33* 
34* 
3 5 * 



GET ABSOLUTE CHANNEL NO. AS REQUEST IS PARTIALY ASSIGNED 



0C4C1C.00 


003265.00 


80 


004011. OC 


00001 1.C4 


10 


004011.40 


G0CCC0.14 


32 


0C4C12.C0 


CCCC00.73 


82 



022027.20 50 



004027.20 50 



L,TCTACH,46 

LX,TX3,$R 

L V , T I X J , T UN T B A { T X 3 J 

L,TUNITKT?X3i,46 



-GET ABSOLUTE CHAN ADDRESS 

-PLACE IN INDEX 

-GET UNIT TABLE ADDRESS 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
38* 
3<i* 
4C* 



0C4C13.CO 
004013.40 
004G14.40 
004015.40 
OC4C16.00 



C0C011. 14 
003273.24 
003273.23 
003315. C6 
C04C65.32 



50 
80 
80 
90 

CO 



004065.34 
004016.74 



CO 
02 



LC,TIXJ,$R 

BZB,TINCA,TC3Z 

BB,TMODE,TAQ 

KV,TIXE,TPPRUN 

BZXE,TC3Z 



4_* 004016.40 

42* 004017.40" 

42* 0C4C20.00 

44* 

45* 

46* 



C_0_3_2 73_._2_5 
00CCC1.23 
CC4G46. 10 



80 
"05 
CO 



001000.36 FC 



T AC 



CM1111,TIN0B 
~V+I,TX2,1,0" 
B t TA3 



-UNIT COUNT TO CF 

-IF THE SAME CHAN IS NOT ALLOWED 
-IF NOT OVERLAP 

-IS THIS THE NEXT JCB TO BE RUN 
-NO — B_YPASS 

-SET THE "S P L [T CHANNEL I N D_ " 
-STEP TO THE REVERSE SCAN 



4i* 

46* 
49 * 

5C* 004020.40 
51* 004C21.00 

52 •_ 004C22_. _0_C_ 
52*_00402 3_._C_C_ 
54* 004024. CC 
55.* 004025.00 
56* 0C4C25.4C 



002152.04 
000000.64 
COCC 00.31 

QQ.coqq.C3 

"CGCC00.64 
C04034.36 
C0CC00.33 



10 

82 
82 
84 
82 
CO 
82 



004034.34 
0(34034.34 

004000.06 
004000.23" 



02 

02 

10 



004035.34 02 



CONCLUSION — TRY TO ASSIGN THIS SINGLE UNIT REQUEST 

T A7 LX,TX3 ,TCHSXW 

T A7A BB f TEQUIP{TX3 ) f TB7 -IF A TAPE CHANNEL 

BB L TCHAyujX3_JjTB_7___ - IF THE CHANNEL I S NOT AVA I JLABLE 

LF,_TTYPEmXA> -IS _II_I_f_CO_;RECT EQUIP TYPE 

KF,TEQUIP(TX3) 

BZAE,TE7 -NO 

BB,TMULTHTX3 ),TA7C -IF A MULTI SING UNIT CHANNEL 



wai 



1IME CLOCK C0054041 



PUNID 11C11IPL 



CARD ID 17CC0386 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



68 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



004026 



1* 004026.40 
2* 004027. 4C 
2* 004C3C.4C 
*>* 004C31.4C 



CCCCC0.34 82 
0OCCCO.35 82 
C0CCCO.76 82 
CC4167.74 C2 



004034.34 02 
004034.34 CO 
002000. C7 70 



BB,TUNAVL(TX3 ),TB7 -IF 

BZB,TUNASGITX3 ),TB7 -IF 

CT0C11(BU,2) ,TUNRES(TX3) -IS 

BRZ,TA5S -NO 



UNIT IS NOT AVAILABLE 
THE UNIT IS ASSIGNED 
THE UNIT RESERVED 



17000386 
17000387 
17000388 
17000389 



5*_C0 4C32.C_C 
6* 0C4C33.CC 



CG3273 



f * 

e* 

<* 

1C* 



004C34.0C 
004034.40 * 



23 
6 

C04021.C5 
C03756.5C 



8C 
62 
48 
CO 



PG4034.34_ CC 
004167.74 00 



T B7 



EZB.TyCCEjTBJ 
BZB,TUNRES(TX3) ,TA5S 
CB+,TX3 ,TA7A 
B,TB2 



-YES, WHAT IS THE MOD E_ 
- NOT OVERLAP, GO ONLY 

-IF IX -D- RUNS OUT 



IF OVERLAP RES 



MULTI-SINGLE LNIT REQUEST. EG DISK, CONSOLE 



11* 



17000390 
17000391 
17000392 
17000393 
17000394 
17000395 
17000396 



12* 004C35.C0 

12* 0C4C35.4C 

14* 0C4C36.4C 

15* 004C37.C0 

16* 004037.40 



CCCCCC.14 
000000.73 
COCCI 1.14 
C04C34.30 

CCCC00.34 



32 
82 
50 
42 
86 



004027. 2C 50 



004045.34 02 



T A7D LV,TIXJ,TUNTBA(TX3) 
L,TUNITK(TX3 ),46 
LCTIXJ, $R 
BXCZ, TB7 

J A7CA _BB,IUNAVLjTIXJ) ,TC7 



-ADDRESS OF UNIT TABLE 

-GET UNIT COUNT 

-PLACE IN CF 

-IF NO UNITS ARE AVAILABLE 

-IF THE UNIT IS NOT AVAILABLE 



17000397 
17000398 
17000399 
170004G0 
17000401 



17* 00404C.4C C0CCCO.35 86 004045.34 00 BZB , TUNASG( T I X J ) , TC7 -IF _T_HE _UNI T I S_ AS_S_IGNED 



ie* 

IS* 
2C* 
21* 

22* 



.22* 
2i * 
25* 
26* 
27* 
2£* 



0C4C41.40 
0C4C42.40 
004043.00 
004044. CO 
QQ4C4b_.C0 
0C4C45.4C 



00CCC0.76 
C04137.34 
CC3273.23 
000000.76 
C04C37.55 



86 
C2 

80 
86 
48 



002000.07 70 

004045.34 CO 
004137.34 OC 



T C7 



C04C34.1C 00 



CT0C1K 

BRZ,TA5 
BZB.TMC 
BZB, TUN 

_C_Bt»IIX 
B,TP7 



8U,2),TUNRES<TIXJ) -IS UNIT RESERVED 

A -NO 

CE.TC7 -YES, WHAT IS THE MODE 

RES<TIXJ),TA5A -NOT OVERLAP, GO IF OVERLAP RES 

JiJA7CA 



17000402 
17000403 
17000404 
17000405 
17000406 
17000407 



MULTI-UNIT CHANNEL SCAN 



17000408 
17000409 
17000410 
17000411 
17000412 
17000413 



2A* 

3C* 
31* 
32* 
32* 
34* 



17000414 
17000415 
17000416 
17000417 
17000418 
17000419 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



004C46.CG 
004046.40 
004047.00 
004C47.4C 
004C5C.00 



COCCCO. 
C03756, 
OOOCOO, 
CQCC22, 

CCCCOO, 



12 
70 
14 
15 

1.4 



19 
42 
55 
50 
32 



T A3 
T A3D 



LX,TIXB 
BXCZ,TB 
LCTIXJ 
SCTIXJ 
LV,TIXJ 



,C.0ITX2) 

2 

,0.01 TIXB) 

,TX3 

,TUNTBA(TX3 



-GET THE PROPER SCAN 

-IF THERE ARE NO MULTI UNITS AVAIL 

-LOCATE THE CHANNEL WORD INDEX 

-TO REMOVE THE INTERGER FRON THE V 

-ADDRESS OF THE UNIT TABLE TO IX 



3_-_*_ 
36* 
37* 
3i:« 
39* 
4C* 



0C4C5C.40 
004051. 40 
004052. 4C 
0C4C53.C0 
004053.40 
004C54.40 



0_0_0_C0O, 
CCCCCO. 
C0CC11. 
C0CC11. 
OOOCOO, 
„C_04C_65_, 
_C_04_C_56_. 
C03273. 



7 _3_ 
"24 
14 
45 
13 
34 
73 



82 
85 
50 
90 
84 
C2 
40 



004027.20 50 
0C4007.C6 70 



007000.06 70 



L, TUN IT 
LF.TCHC 
LCTIXJ 
KCTX3, 
LF,TRLS 
BRZ,TC3 



K fIX3),46 

NT {T 1X8), 14 

,$R 

$R+.32 

YM(TIXA) 

Z 



-GET THE NUMBER OF UNITS ON CHANNE 
-GET NO." OF UNITS ON CHAN FOR COMP 
-PLACE IN CF 

-ARE THERE ENOUGH UNITS TO SATIFY 
-TEST FOR BLANK CHANNEL REQUEST 
-YES, ASSI_GN_TC ANY CHANNEL 
iLFJjiERE ARE_ENCUGH UNITS _C_N_ A L _C K 
-IF THE SPLIT CHAN IND IS OFF 



ABLE 

F 

L 



ARE 
REQ 



17000420 
17000421 
17000422 
17000423 
17000424 
17000425 



Alt 
42* 
42* 
44* 
45* 
46* 



0C4C55..CC 
0C4C55.40 



004C56_.40 
QC4C5 7_.40 
004C6C.CC 
004C60.40 
004C61.40 



BZ_XF,TA 
"BZB, TIN 



BCTINC 
LX,_tlXK 
S V , T X 3 , 
KF, TABS 
BZAE.TA 



3C__ 

CB,TA3F1 



AN 



17000426 
17000427 
17000428 
17000429 
17000430 
170004 31 
17000432 



25 80 0C4132.34 00 



IS THIS CHAN ASSIGNED TO ANOTHER I/O WITHIN PP 



47*. 
48* 
4S* 
5C* 
51* 
52* 



_C_Q_3_2_7 3_._24_80 
_C_0_32_7l5.24_10 

00CC11.C5 30 
00C0C0.56 8A 
CC4C64.76 CO 



0C4065.34 02 



T A3C 



A,TC3Z_ 

,IR£FIL 

$R 

CH(TIXK) 

3CB 



_-LF_SAME_CHAN JS_ ALLOWED 
_-_SET _I_X FOR SCANNING j /0 R jq _TA_BLE 
-CHANNEL ADDRESS TO ACC 
-LOOK FGR LIKE CHANNEL ADDRESS 
-IF CHAN IS NOT ASSIGNED TO ANOTHE 



022027.23 10 



T A3CA 



46 



R 



YES — DOES TEE I/O REQUEST THE SA^E CHANNEL 



17000433 
17000434 
17000435 

17000436 
17000437 



52* 
54*" 
55* 
56* 



17000438 
17000439 
17000.440 
17000441 

7 VLS.i 



0C4C62.0C 
004C63.00 
0C4064.CC 



CCCCCO. 13 BA 
C0CC00.13 84 
004132.36 CO 



0C7000.C6 70 
007000.23 10 



LF.TRLS 
KF,TRLS 
BZAE, TA 



YM(TIXK) 
YM(TIXA) 
3F1 



-REL SYMB CHAN NUMBER VS 
-THE ASSIGNED REL SYMB CHAN 
-IF THEY ARE UN-LIKE 



NUMBER 



TIME CLOCK C0C54C41 
CTiMt LoCATTCN 



PUNID 11C1UPL CARD ID 17000442 CIST. CF 3/C1 
BfNARY~GutPljT " NAME STATEMENT 



3/01? 



PAGE NUMBER 69 
L CC A TTo"N~ 



1* 

2* 
2 * 
4 « 



004064.40 



00 4065 ,_CC_ 
CC4C65~.40 
CC4C66.CC 
0C4C67.CC 



004C60.65 48 



00 3270.15 10 

0G3270. 14 10" 

CCCCCO. 34 86 

003273.31 80 



T A3C8 



T C .31 
f C3 
T C3A 



CB+,TIXK, TA3CA 

IF IT GETS HERc, 



DO A UNIT TABLE SCAN 



SX,TIXJ,TwORK2 
"LX7TIXJ,fWORK2 
BB,TUNAVL{T1XJ),TB3 

CMOCOO.TINDZ 



-SAVE IX FOR RELCAC 

-RELOAD 

-IF THE UNIT IS NOT AVAILABLE 

-RESET 



17000442 
17000443 
17000444 
17000445 
17000446 



6* 
1 * 
£* 
S* 
1C* 
11* 



004127.34 02 
0C1000.CC FC 



17000447 
17000448 
17000449 
17000450 
17000451 
170004 52 



12* 
12* 
14* 
15* 
16* 
1 7 * 



004070 
004G71 
0C4C72 
004072 
04 7 3 
004074 



.CC 
.CC 
.CC 
.40 

•AC 

.4C 



CCCCCO 

OOCCOO, 

C04075, 

C03273, 

CCCCCO. 

CCCCCO. 



35 
76 
74 
23 

CI 



86 
86 
C2 
80 
86 
84 



004127.34 OC 
002000.07 70 

004127.34 00 
00412 7.34 02 
004107.74 02 



BZB,TUNA$G(TIXJ),TB3 

CT0011(BU,2) ,TUNRES(TIXJ) 

BRZ,TA4A 

BZB,TMCCE,TB3 

BB L TUNRES{TIXJ),TB3 

B B , T U N B T "(" 1 1 X~A ) ,T A 4 C 



•IF THE UNIT IS ASSIGNED 
-=TEST THE RESERVE BITS 

IF NOT RESERVED 
•IF OVERLAP MODE 
•IF NOT OVERLAP RESERVED 

IF SINGLE UNIT NOT OVERLAP 



MODE 



17000453 
17000454 
17000455 
17000456 
17000457 
17000458" 



ie* 
i<;* 

2C* 
21* 
22* 



0C4C75 
004076 
004077 
0041CC 
0C41C1 



.40 
.40 
.4C 
.40 

.CC 



C03273. 
C03273. 
CCCCCO. 
0041C6. 

CCCCOO, 



31 80 

27 80 

34 84 

34 C2 

33 86 



0C10C0.00 FO 
004137.34 02 
022000.06 7C 

0C4137.34 02 
"06l000.C6_7C 
"001000,23 10 

001000.36 FC 

004104.74 02 



T A4A CMOCOCTINDZ 

BB,TINCC,TA5A 
LF,TFREEL(TIXA) 
BRZ,TA4B 
BB,TFCISP(TIXJ) ,TA5A 



-SET THE MULTI-UNIT AVAIL. BIT 17000459 

-IF THE OPT. REEL MOUNT IS BY PASSED 17000460 

-GET THE REEL NUMBER ADDRESS 17000461 

-IF SCRATCH REQ. 17000462 

-IF NO TAPE MTEO, MNT THE LAB TAP 17000463 



2J* 
24* 

23* 

26* 

27* 
2£* 



0C41C2 
CC4103 
004104 
0C4104 
004105 
0C4106 
0C41C7 



.00 

". CC" 

.CO 

.40 

.40 

.CC 

.CC" 



CO 3273, 

oo"ccoc~. 

C04137, 
C03273. 
CO 4 127. 

COO COO, 
C 041 03, 



22 
32 
36 
26 
10 
33 
"10 



80 
"86 
C2 
80 
CO 
8_6 
"0 



LF»_TCNE_ 
"KF, STATU f IXJ ) 
BAE»TA5A 
CMllll.TINDC 
B,rE3 

3B»_TFDISP(TIXJ),JA4CM 
B,TA4BA" 



-IF 



reel address is not zerc 
-orTginal~~vs~the new 
IF like mounting 

-SET THE UNIT FOUND INC. 



17000464 

17000465" 

17000466 

17000467 

17000468 

17000469 



T A4BA 
T A4CM 
TA4B 



-SCRATCH, 
-YES " 



IS A TAPE MTEC 



2 A* 
3C* 

31* 

32* 

32 * 

34* 

"35* 



17000470 
170004 71 
17000472 
17000473 
17000474 
170004 75 
170004 76 



SINGLE NOT OVERLAP MODE — BE SURE THE UNIT IS 
RESERVED FOR A PP THAT IS IN QUEUE AFTER THIS PP 



004107.40 
"004UC.CC 



CCCC23.24 

cpccq_2_._2_5_ 

OOCCOO. 4 7 
00CCC0.44 
C0CC00.34 
004110.34 
_Cp_ cc _U_-_2C 
OOCCOO. 20 



10 

"a"A 

8A 
8A 
C2 
50 
3 A 



T A 4 C 
T A4CA 



LX,TIXL,TIXE 
V+ICR,1 flXL ,2 



SCAN 
NUMBER 



-LOAD FOR PP REF TABLE 
-GET" THE _NE X T PP REF 
- 1 F" L AST" EN TRY 
•IF NOT OVERLAP JOB WAS 
-GET THE I/O REQ COUNT 
-IF THERE IS NO I/O REG FOR 
"_ U _ N J_ T _ _ C _C ^ N T T C F 
-GET I/O REQ TBL ADDRESS" 



20 
1? 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3E* 
3C* 

4C* 



4U 
42 * 
42* 
4 4* 
45* 
46* 



00411C.4C 
004111. 40 
004112.40 
0C4113.40 
004114^.00 
004114.40" 



004127.34 
004110.34 
010027.20 



02 
02 
5G 



BR,TLPPEN( TIXL) ,TB3 

BB,TJBPRC(TIXL) ,TA4CA 

L,TUNCUTIXL),46 

8RZ,TA4CA 

LC_,J_I_XM L $R_ 

LV,TIXM,TCRREF(TIXD" 



PROCESSED 



PP 



17000477 
17000478 
17000479 
17000480 
17000481 



17000482 

17000483" 

17000484 

17000485 

17000486 

170004 87 



004115. CC 
004116. CC 
004116.40 
0C4117.C0 



COOCOO. 
000011, 
004126, 
C0CC11, 



56 88 

C4 90 

32 CO 

24 30 



022027. 2C 50 



T A4CB L,TABSCh(TIXM)»46 
KV,TX3,$R 
BZXE,TA4CC 
LV,TX1,$R 



-GET THE CHANNEL ADDRESS 
-COMPARE CHANNEL ADDRESSES 
-IF THEY ARE UNLIKE 



47* 
"4 6* 
4S* 
5C* 
51* 
52* 



0C4117.4C 

00412C.4C" 

004121.40 

004122.00 

0C4122.4C 

004123. 4C 



_CC_C_C_CO_, 
COCCO"0. 
CCCC11. 
C04126. 
COCCCO, 
COCCCO, 



73 

0"7 
15 
32 

CC 
02 



8A 
88 
90 
CO 
88 
88 



004027.2C 
00302 7. 30" 



50 
10 



L,TUNITK{TX1) J 46 
-,f ABSUN(TIXM),46 
KC,TIXJ,$R 
BZXE,TA4CC 
CMOCOCTASGNUTIXM) 
CMOOOO, TPRINT(TIXM) 



-GET TH E U N J J C U NT 
-COMPUTE THE RELATIVE 
-COMPARE UNIT NUMBERS 
-IF UNLIKE UNITS 
-ZERO THE ASIGNED BIT 
-RESET ThE PRINT BIT 



17000488 
17000489 
17000490 
17000491 
17000492 
17000493 



001000. CC FO 

opipoo.cc FO 

001000. CC FO 



UNIT NUMBER 



— UNIT BASIS 



52* 

"54~S" 

55* 

56* 



004_124_._4_0___ 
004125.40 " 
004126. CC * 
004126. 4C 



CCCCOO ■ 

"CC4142, 

C04115. 

0C4110. 



468A 
50 00" 
21 48 
10 CO 



CM C , T A S GN P J T I X L _) 
"B,TA5MA 
CB+,TIXM,TA4CE 
B.TA4CA 



- ZERO T H E A S I G N E p B_I_T_ -_-_ JOB BASIS 
-THE UNIT IS NOW RELEASED 
-IF UNLIKE UNIT/CHAN NUMBER 
-COULD NOT FIND RESERVED UNIT 



17000494 
17000495" 
17000496 
17000497 



T A4CC 



1 IME CLOCK CC054C41 



PUNID 11C11IPL 



CARD ID 17000498 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



70 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
1 * 

3 * 
< * 



004127. OC 



CC4C66. 15 48 



T 83 



CB+, TIXJ.TC3A 



17000498 
17000499 
17000500 
17000501 
17C00502 



t* 

7 * 

c* 
c * 

1C* 



004127.40 
004130.40 
004131.40 



003273.26 
C03273.27 
C04C65.5C 



80 
80 
CO 



004132.34 
001000.36 



04 
FO 



BZBZ, TINDCTA3F1 

CM1111,TINDD 

B.TC3 



-IF IND -C- IS OFF 
-SET THE OPTIMUM REEL 



MTNG BYPASS INO 



0C4132.C0 CCCC25.12 10 ___ T A3F1 LX.TIXB.TIXB 



17000503 
17000504 
17000505 
17000506 
17000507 



11* 004132.40 



C03756.7C 42 BXCZ.TB2 -IF THERE_ARENO_MULTI UNITS AVAILABLE 



17000508 



12* 004133. CC 

13* 

14* 

15* 

16* 004133.40 



004047.12 C8 



003273.23 80 004135.74 02 



CBH,TIXB,TA3D -GET THE NEXT CHANNEL 

IN THE CASE OF AN INDEX RUNOUT 

_BB,_TMCCE,TABB_N__ . . __-CCNTI_NLE_IF_NCT OVERLAP 



II* 
It* 
IS* 
2C* 
21* 
22* 



P P 4_1_3 4_. 4_0_ 
004135. CC 
004135.40 
004136. 4C 



_0033.L5._C6 
C03756.72 
003273.24 
004046. 1C 



90 
CO 
80 
CO 



003756.74 OA 



T ABBN 



t<Y_TIXE,JPPRUN_ 
8ZXE.TB2 
BBN,TINDA,TB2 
B, TA3 



_-QV ERL A P , _ I S_ I J_ THE. N_E X T JOB TO BE RUN 
-NO, SO DO NOT ALLOW THE SAME CHANNEL 
— SET THE SAME CHANNEL ALLOWED IND. 



17000509 
17000510 
17000511 
17000512 
17000513 



170005| 4 
17000515 
17000516 
17000517 
17000518 
17000519 



22*_ 

2'* 

25* 

2t* 

27* 

2t* 004137. CC 



17000520 
17000521 
17000522 
17000523 
17000524 
17000525 



2_* 
3C* 
31* 
32* 

33* 
34* 



004137.40 



_0_0_C_C_Cjt._2_4_ _1_F_ 
C04141.63 40 



T A5A 



MULTI - UNIT 
MARK THE I/O 
MARK THE I/O 
y__ICTV__X_0.0{$15) 

BZXF,TA5Ml 



ASSIGNMENT 
UNIT RESERVED 
REQUEST ASSIGNED 
_ -_QH_EC_K_ _LHE MODE 
-IF OVERLAP 



!Z99P5_6 

17000527 
17000528 
17000529 
17000530 
17000531 



004140. 
004141. 
004141. 
004142. 



CC 
GO 
40 
40 



C0CC0O.76 86 
004142.50 00 
00CCCO.77 86 

C0CC0O.00 84 



001000.36 FO 

001000.36 FO 
004420.74 OE 



T A5M1 
T A5MA 



CHllllf TUNRES(TIXJ) 

8,TA5MA 

CMllll.TOVRESITIXJ) 
BB1,TASGNI(TIXA) ,TI 



-SET NOT OVERLAP RESERVED BIT 

-SET THE OVERLAP RESERVED BIT 

-SET THE ASSIGNED BIT — I/O REQ TBL 



3_5_* 
36* 
37* 
36* 
3S* 
4C* 



QQ4143.4C 
004144. CC 
OC4145.00 
004146.00 
004147. CO 
0C415C.00 



C_G_CC11.C5 30 

C00CC0.56 84 

CC2152.C0 80 

005002.14 80 

0O0C0O.73 82 

00CC26.52 80 



SV,TX3,$R 

ST,TABSCH{TIXA) ,46 

-(BU,18),TCHSXW,46 

ST(BU,7),TC0T+.12,46 

L,TUNITK(TX3),46 

- (BU,4),TIXJ+0.42,46 



-THE CHANNEL ADDRESS 

-ABSOLUTE CHAN TO I/O REQ TABLE 

-COMPUTE THE CHANNEL NUMBER 

-COMPUTE REAL UNIT NUMBER 



17000532 

170005 33" 

17000534 

17000535 

17000536 

170C0537 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



022027.20 DO 
022027.30 10 
007027.20 CC 
004027.20 50 
004027.30 10 



41* 0C4151.C0 



_C_G_CC_00_._C7__84 
CC5C02.5 7 80 
000C00.C3 84 
C00C00.33 86 
CCCC00.32 86 

J3_0_C_C0q_3__8_ 
003745.34 C2 



PC302 7_2p__D0 
003027. 2C DC 
003745.34 OC 
003745.34 02 
004157.74 02 
022000.07 70 



_SI__A_S___IIXA_)j46 

ST{PU,3) ,TC0T+.47,46 
BZB,TTYPE(TIXA),TA2A 
BB ,TFDISP(TIXJ) ,TA2A 
BB,STATUTIXJ),TA5LC 
CTOCllf TFREEL(TIXA) 



-TO THE I/O REQUEST TABLE 



17000538 
17000539 
17000540 
17000541 
17000542 
17000543 



42 * 

42* 
44* 
45* 
46* 



004152.00 
004153. CO 
004154.00 
004155.00 
004156.00 



-IF THERE IS NCTAPE MOUNTED 

-IF THE TAPE MTED IS A SPECIFIC TP 



47__004157_.CC 

46* 

4S* 

5C* 

51* 

52* 



BRZ_TA2A _-ANO_A THE REQUEST _I_S_ _F_0_R A SCRATCH 

CONCLUSION IS A SCRATCH IS MOUNTED AND A LABEL TAPE IS TO RE- 
PLACE IT , HENCE WE MUST UNLOAD 
LCI,TIXB,TCOT 

SC,TIXB,G.O(TIXJ) -SET UP THE DUMMY UNIT AREA ADDR. 
CMllll, TCHOWN(TIXJ) -AND SET TO MCP OWNER 



1Z00C544 
17000545 
17000546 
17000547 
17000548 
17000549 



004157.40 
004160. CC 
00416C.4C 



C05C02.13 
C0CC00.13 
OOCCCO.'iO 



C2 
56 

86 



T A5LC 



001000.36 FO 



53__pp416_l_._4_0 
54* CG4162.4C 
55* 004163.40 
56* 004164.40 



C_CGC00.3_ 
CC0CG0.65 
00CCC0.63 
001472. 1.0 



86 
86" 
86 
CO 



pCj.ppp_.C_C _ _F_0_ 
001000. CC FC 
001000. CC FO 



CMOCOC , TUNASG ( J I X J ) 
CMOCOCSIMNTtTIXJ ) 
CMOCOO,SMGUNT{TIXJ) 
B.DMCP 



J-ALSG _______ SIGN ED 

-RESET THE 
-MOUNT BITS 

-THEN UNLOAD WITH 



17000550 
17000551 
17000552 
17000553 

r waT 



T IPL3 



- SFREE 



T IME CLOCK CC054C41 



PUNID 11C11IPL 



CARD ID 17000554 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



71 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



004165 



I* 004165. CO 

2* 004165.40 

2* 004166.00 

^* 0C4167.CC 



COOCCO.CC 
CCCCU.CO 
C0CC00.40 
003745. 10 



80 

80 
86 

00 



001000. CO FO 



iDFREE 

,9. 

CM0CC0,TCF0WN(TIXJ) 

B.TA2A 



-THEN RESET BACK TO PP OWNER 



17000554 
17000555 
17000556 
17000 5_57_ 
170005 58 



6* 
?* 
6* 
? * 

1C* 004167.40 



SINGLE UNIT ASSIGNMENT 

MARK THE I/O CHAN/UNIT RESERVED 

MARK THE I/O REQUEST ASSIGNED 



C0CC00.24 IF 



T ASS 



LX,TCTWCX,0.0{$15) 



-CHECK THE MODE 



17000559 
17000560 
17000561 
17000562 
17000563 



11* 004170 



12* 
13* 
14* 
15* 

16* 



00417C 
0C4171 
004172 
004173 
0C4174 



CC 

Vc~ 

40 

CO 
CC 
CC 



CO 4 172. 2 3 
0CCCC0.77 
C04173.10 
G0C00O.76 
000000. CO 
OOC011.C5 



42 

82 
00 
82 
84 
30 



001000.36 FO 



001000.36 
004420.34 



FO 

OE 



T 

T 



A5Z 

A5SA 



BXF L TA5Z_ 

"CM1111,"T0VRES{TX3) 
B,TA5SA 

CM1111,TUNRES(TX3) 
BB1»TASGNHTIXA) ,TH 
SV.TX3 ,$R 



-IF NOT CVERLAP_ 
-SET THE OVERLAP 



RESERVED BIT 



-SET THE NOT OVERLAP RESERVED BIT 
-SET THE ASSIGNED BIT — I/O REQ TBL 
-THE CHAN/UNIT ADDRESS 



17000564 

17000565' 

17000566 

17000567 

17000568 

17000569 



li* 004174.40 



C0CCC0.56 84 022027. 2C DO 



ST,TABSCH(TIXA1 ,46 



-PLACE IN THE I/O REQ TBLE 



17000570 



1€* 
19* 
2C* 
21* 
22* 
22* 
2** 
25* 
26* 
27* 
26* 
29* 

~3C* 
31* 
32* 
33* 
34* 

_3_5* 
36* 
37* 
36* 
39* 
4C* 

[41* 

42 * 

43 * 
44* 
45* 
46* 
4 /* 

"46*" 
49* 
5C* 
51* 
52 *_ 
52* 
5<* 
55* 
56* 



004175.40 



C03756.5C CC 



B,TB2 



CHECK TO SEE THAT ALL UNITS WERE ASSIGNED TO A GIVEN 
"PP.___IF"SC MARK "TH_E_ ASSIGNED B I f " ON "_ I N_THE_ HP 
REFERENCE" TABLE 



17000571 
17000572 
17000573 
17000574 

17000575 



004176. CO 
004176. 4C 
004177^.40 

004200.00" 
0C4201.CG" 



004201.40 
004202.40 
0C42C3.CC 



C0CC24.C2 
COCGOO. 22 
_ c _°_3_ 3 _ 7 _3_._l_l_ 

_cc_c_c_oo."oo 

C0 417"6.51 



C0C000.46 
CO COCO. 24 
004421.2 3 



CO 
84 

c _l 
34 
4 8" 



83 
IF 
42" 



004200.34 00 



T A8 R,TIXA 

T A8A BZB,TLAST(TIXA),TA8BB 
LVI,TIXA, TIOREQ 



-RELOAD -A- 



-RELOAD IX TO BEGINNING OF TABLE 



17000576 
17000577 
17000578 
17000579 
17000580 
17000581 



004210.74 00 



T A 8 B B B Z 6 , T A S G N I ( T I X A } , T A 8 B 
CR+»TIXA,TA8A 



T B8C CMllll,TASGNPtTIXE 
L_Xi_TCTHDX,0.0(*15_) 

bxf.Tk 



-IF NOT ASSIGNED 



17000582 

17000583" 

17000584 

17000585 

17000586 

17000587 



001000.36 FO 



•SET PP ASSIGNED BIT 
•LOAD FOR OVERLAP TEST 
-IF NOT OVERLAP MGDE 



17000588 
"17000589 
17000590 
17000591 
17000592 
17000593 



20 
19 
18 
17 
16 
15 
}4 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



004203.40 
004204. CC 
0C4204.40 
004205^40 
0C42C6.40" 
"004207. CO" 
004207.40 
0C421C.OO 

00421C.40 
0C42U.0O 
004211.40 
004212.00 
004213.00 
004213.40 
0C4214.40 



C0CC02.07 
004205.70 
003273.33 
C0327 3. 30 



07 
40 
80 

80 



001000.22 BO 
0C371C.34 02 



T B8Z V+ICR,TIXE,2, 
BZXCZ,TB8A 
M+l, TL0CP1 

T B8A RB,TINDE f TAl 







-STEP IX -E- 

-COUNT IS OK 

-IX REFILLED INDICATOR 

-IF SAVING IS TO BE IGNORED 



CCCC00.24 IF 
CC3710.23 42 
003272.07 10 
C03710. IG CO 



_C_0_C_C_0q._24 

_ C _°A 3 _ 6 _°_'_?3 
CCCCC2.G7 
C03273.30 
003710.30 
003273.33 
CC3710.10 



IF 
42 
07 

80 
40 
80 

CO 



T A8B 



_ L _ X _»_LC ™ C X t Q . I $ 1 5 ) 
B X F , T A I 
SX,TIXE,TSAV 

B,TA1 

LX_lKIWCX,0.0J$15) 

"bxf.tarejx 



" C_H_E_CK PJ± D A _ B t E R E _ S A VI N_G_ 
-IF NOT OVERLAP" 
-IF NOT SAVE 



L L _C A D FOR OVERLAP TEST 
-NOT OVERLAP ASSIGNED 



17000594 
"17000595" 
17000596 
17000597 
17000598 
17000599 
17 , 0006G6" 
17000601" 
17000602 
17000603 
17000604 
17000605 



001000.36 FO 



001000.22 BO 



T B8 V+ICR,TIXE,2.0 
CMllli,TINDE 
BZXCZ, TA1 
M+liTLOGPl 
B,TA1 



-DO NOT SAVE INDEX TIXE FROM HERE ON 

-COUNT STILL OK 

-IX REFILLED INDICATOR 

-SO DO NOT SAVE -E- 



17000606 
17000607" 
17000608 
17000609 



wai 



1 . 



TIME CLOCK C0C54C41 



PUN ID 11CL1IPL 



CARC 10 17000610 



CIST. OF 3/C1 



3/Oi 



PAGE NUMBER 



12 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



1* 
t * 

3 » 

** CC42J5.C0 

5* 004215.40 



MACHINE CONFIGURATION CHANGE 
ACJUST THE NECESSARY TABLES 



_C02152.24_1Q 
CCCCCO.CC 8F 



T A9 



030000. CO FC 



LX t IIXF,TCHSX>_ 

C>0C00{BU,24),0.C($15) 



- B E G I N N I N G _ F CHAN STAT J A B L E 
-CLEAR CON FIG CHANGE 



17000610 
17000611 
17000612 

17000613 



170006_14_ 

17000615 

17000616 

17000617 

17000618 

17000619 



t * 

fc* 

?ft 

1C* 



0C42L6.4C 
004217.00 
004220.00 
004221.00 
004221. 4C 



002153. 


20 


30 


004767. 


CO 


80 


C04770. 


CO 


80 


003647, 


.20 


10 


OOOCOO. 


10 


88 



000003.02 A8 
000011.02 A8 

010000. CO FC 



T CMS 



LV f TIXGt SBAMCP 

Tl, 1,TDSIC,C3.(T1XG) 

TI, 1,TCSIC+1.,9.(TIXG 

LX,TIXG,TTYARA 

CMOGOQ, TMCAD (TIXG) 



-SET UP THE DUMMY SIOL FOR 
-UNLOADING TAPES ON UNITS 
-FOR UNLOADING SCRATCH TAPES 
-CLEAR THE MACHINE CCNFIGUATION 
-COUNT TABLE 



12* 
13» 
14* 
15* 
H* 



0C4222.40 
004223.00 



_C_C_3_6 50._2_g_C0 
CC4221.70 40 



y.tC L II><G»TCCMBp 
BZXCZf TCM9 

CMOCOCTLUCT 
LX,TIXH,TMUCTX 

CMOCOO,TCHCNT(TIXH) 



17000620 
17000621 
17000622 
17000623 
17000624 
17000623 



004223 
004224 
0C4225 



.40 

.40 

. GC 



003273. 
003655. 
COCCCC. 



CO 80 
04 10 
24 82 



022000. CC FC 

004ppC_.C_C_ _F_0_ 
004024. 2C 50 



T A9A 



•CLEAR LARGEST COUNT AREA 

-BEGINNING OF THE MULTI UNIT CNT TBLE 

-CLEAR THE UNIT COUNT AREA 



16» 
19* 
2C* 
21* 
21* 



00 422 6 
004227 
004227 
004230 
004231 
004232 



.0_G_ 

.GC 

.40 

.40 

.40 

.4C 



_o_oocoo. 

C04261. 
003650. 
C03650. 
C0CC11 . 
COCCil. 



64 
74 

CO 
40 
00 
2C 



8A_ 
C2 
80 
80 
80 
30 



030024.21 90 
030012.30 10 
000012.20 50 



UTECUIPUIXF),4C 

BRZ.TB9B 

*{BU,24),TC0MBG,4C 

-{ EU,24),T2C0MB,2C 
L(BU,64),$R,20 
LV,TIXG,$R 



_-GEI_ECUIP FOR MACH CONF 
-IF NO EQUIP ON THIS CHAN 
-COMPUTE LOC WITHIN TABLE 

-LEFT SHIFT TO VF 



17000626 
17000627 
17000628 
17000629 
17000630 
17000631 



_22* 
2<* 
25* 
26* 
27* 
2£* 



QC4233 
CC4234 
0C4235 
004236 
004237 
0C4240 



•C0_ 

• GO 

.00 

.00 

.CO 

.CO 



AQCC_c_p_. 
coccoo. 

C0C000. 
003652. 
COOCCO. 
OOCOOO. 



64 
73 
CC 
3 3 
31 



80 

8 A 
8A 
88 
8A 
8 A 



401000, 
004236. 
0C4000. 
010000. 
004275. 
004243. 



2p_50 
34 00 
20 50 
2C 90 
74 02 
34 02 



J-J(_BU t l),l 

BZ~B t TECUIPUIXF),t9M 
L,TUNITK(TIXF) 
M+,TDISK(TIXG) 
BB,TMULTI(TIXF),TA9C 
8B,TCHAVL(TIXF), 1A9E 



-AIJLEAST GI„VE A_CGUNT_Pf_ ONE 

-IF A NGN TAPE CHAN 
-GET COUNT FOR MULTI CHAN 

-ADD CONFIGURATION TO TABLE 
-IF A MULTI CHANNEL 
-IF ChANNEL NOT AVAILABLE 



17000632 
17000633 
17000634 
17000635 
17000636 
1700063 7 



T 9M 



29* 
3C» 
31* 
32* 
32* 
34* 



QQ4241 
004242 
004243 
004244 
004244 
0C4245 



.CC 
. CC 
.CO 
.00 
.40 
.4C 



_coc_cop_. 

CCCCGO. 
COCCOO. 
C04246. 
COCCOO. 
C04320. 



4_C 
34 
3 5 
03 
76 
34 



8A 
8A 
8A 
01 
8A 
CO 



0C4244. 
004246. 
GC4422, 



34_02 
34 00 
34 00 



BB,_TCHCWN{TIXFJ,TA9E_A ■ 

BZB,TUNAVL<tlXF)~,TB9 
BZB,TUNASG{TIXF.) ,TM 
LVI tTXIBR, TB9 
CT0C11(BU,2),TUNRES(TIXF) 
BZRZ.TA1C 



•I F MC P L E V E L I T I S N T A V A I L TO P P 

IF UNIT IS AVAILABLE 
•IF THE UNIT IS ASSIGNED 
•LOAD FOR SUB ROUTINE BRANCH 
-IS UNIT RESERVED BY PP 

YES 



17000638 
17000639 
17000640 
17000641 
17000642 
17000643 



T A9B 
T A9BA 



002000.07 70 



35* 
~36~* 
37* 
36* 
39* 
4C* 



QC4246 
0C4247 
004250 
004250 
004251 
004252 



.CO 

.00" 

.CO 

.4C 

.00 

.00 



coc_c_o_o_. 

10CC00. 
004254. 
C0CC32. 
G0CC30. 
002152. 



6 A 
CO 
76 
20 
30 
20 



3A. 
80 

CO 

30 

80 

BO 



004000.06 70 
404000.23 10 



001000.36 FO 



T B9 



_L_1'_LEGUIFMIIXF] 
KFHBU,4),2 
BZAE,TB9A 
LV,TIXG,TIXF 
CMllll(BU,l),TIXG+.24 
V+,TIXG,SXCHAN 



17000644 
"17000645" 
17000646 
17000647 
17000648 
L7000649 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



•LOCK 
•NO 



FOR CCNSOLt 



-SET IX NEG SO TO SUB 
-COMPUTE CONSOLE CHANNEL 



41* 
42* 
42 * 
44* 
45* 
46* 



QQ4252 

004253. 

0C4254. 

004254 

004255 

004256. 



4C 
OC 
00 
40 
4C 
CC 



_00_C_C1A- 
002156, 
C04261, 
240000- 
004261, 
000032, 



21 

02 
50 
CO 
76 

20 



30 
80 
00 
80 
CO 
30 



_S_Y_»_LUGf $R__ 
SF(BU, 17),SYCGCH+.2,46 
B.TB9B 
KFMBUtA), 5 
BZAE, TB9B 
LV,TIXG,TIXF 



17000650 
17000651 
17000652 
17000653 
17000654 
1700C655 



021027.12 FO 
404000.23 10 



T B9A 



-LOOK FOR A PRINTER 

•NO 



47* 
48* 
49* 
5C* 
51* 
52* 



QC4256, 
004257. 
00426C, 
0C4260, 
004261. 



4P 
40 
CC 
40 
40 



_C_0_C_C30. 
CC2152, 
00 0C11, 
002156. 
004225. 



3Q_80 
2C BO 
21 30 
42 80 
25 48 



001000.36 FC 



CMllllIEy ± lJjT_IXG_+_._2_A__ 

V+,TIXGtSXCHAN 

SV,TIXG,$R 

SF(BU t 17) ,SYPRCH+.2,46 

CB+,TIXF,TA9A 



-_S_ET IX NEG SO JO SUB 
-COMPUTE THE PRINTER CHANNEL 



17000656 

1700065 7" 

17000658 

17000659 

17000660 

17000661 



021027.12 FO 



T B9B 



52* 
54* 
55* 
56* 



SAVE THE VALUES OF THE UNIT CCUNT INDEX 



004262.00 * 
004262. 4C 



COCCOO. 45 OD 
C03660.C5 10 



V-I,T1XH,C.32 
SX,TIXH,TRCHSC 



-REDUCE BY A HALF 



17000662 
17000663 
17000664 
17000665 



wai 





TIME CLOCK CGO 


54041 PUMD 


11C11IPL 




CARD 


ID 


17000666 DIST. OF 3/01 


3/01 PAGE NUMBER 73 






LINfc LCCATICN 




BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 004263 






1* 


004263 


.00 


C03660 


.30 


80 


001000 


.36 


FC 






CM1111(RU,1},TRCHSC + C24 


-SET THE IX NEG 


17000666 




2* 


0G4264 


.00 


C03661 


.C5 


01 












LVI ,TIXh, TCHCUC 


-MODIFY THE VALUE FIELD 


17000667 




2 * 


004264 


.40 


003657 


,C5 


10 












SX,TIXH,TFCHSC 


-SAVE THE FORWARD SCAN INDEX 


17000668 




4* 


















- 








17000669 




t"i 


















- 




SORT THE UNfT COUNT TABLE 


"170006 70 




6* 


















- 








17000671 




i * 


















- 








17C00672 




fc» 


004265 


.00 


CCC022 


.24 


10 








T 


D9A 


LX,TIXF,TIXH 


-LOAD TRANSIT INDEX 


17000673 




9* 


004265 


.40 


C04274 


.70 


42 












BXCZ,TC9 


-IF NO MULTI UNIT TABLE 


17000674 




1C* 


004266 


.00 


coccoo 


.CO 


82 


040020 


.06 


70 






LF(BU, 32), O.O(TIXH), 32 


-LOAD ACC W I TH THE TCP WORD 


17000675 




11* 


"004267 


.00 


ccccco 


.24" 


aA 


0C4024 


•iX 


10 


~jr~cTe 


KF,~TChCNT(TlXF),40 




17000676 




12* 


0042 70" 


.00 " 


00 42 72 


.7 7 


40 












" "BZAH~,TC9C" 


-IF "ACC IS THL " SMALLER" 


170666 77 




12* 


C0427C 


.40 


CGCCCO 


.20 


3A 












LV,TIXG,C.0(TIXF) 


-USE INDEX FOR SWAPPING 


17000678 




14* 


0042 71 


.CO 


CCCCCO 


.00 


8A 


040020 


.20 


CO 






ST(BU,32),0.0{TIXF),32 


-STORE THE GREATER 


17000679 




15* 


004272 


.00 


C0CC11. 


.21 


30 












SV,TIXG, $R 


-RELOAD ACC WITH THE LESSER 


17000680 




16* 


004272 


.40 


004267 


.24 


C8 








T 


09 C 


CBH, TIXFf TD9B 




17000681 




11* 


004273" 


.00" 


COCCCC 


.00 


"82" 


^040020^ 


.2C 


.CO" 






"S f (" E U , 3 2 ") , 6.0 { T I X H ) ,3 2 " 


!-RE PLACE ~ T H | ~ I N I J I A L~ W CRpT VlW ~F~I~NAL ~ 


17000682 




It* 


"0042 74 


,cc 


004265 


."04 


~C8 












" C8H,TIXH, TD9A 




17000683 




IS* 


















- 








17000684 




2C* 


004274 


.40 


COCCOO. 


.24 


IF 








T 


C9 


LX,TCTWCX,0.0($15) 


-RELOAD FOR TEST 


17000685 




21* 


004275 


.00 


0037C4. 


.10 


00 












B,TB1F 




17000686 




____22» 


















- 








17000687 




22* 


















- 




MULT I IN IT SC AN 


17000688 




24* 


















- 








17666689" 




25* 


004275 


.40 * 


OOOGOO. 


.73 


8A 


004027. 


,2C 


50 


T 


A9D 


L,TUNITK{TIXF),46 


-LOAD FOR UNIT TABLE SCAN 


17000690 




26* 


0C4276 


.40 


CCCC11. 


20 


50 












LC, TIXG,$R 


-UNIT COUNT TO CF 


17000691 




2i* 


0G4277 


.00 


CC4246. 


30 


42 












BXCZ,TB9 


-IF NO UNITS CONNECTED TO CHAN 


17000692 




2£* 


004277 


.40 


COCCOO. 


.20 


3A 












LV,TIXG,TUNTBA(TIXF) 


-UNIT TABLE ADDRESS TO VF 


17000693 




29* 


004300 


.00 


COOOCO. 


31 


8A 


004303, 


.34 


02 


T 


A9E 


BB, TCHAVL(TIXF), TA9F 


-IF CHAN IS NOT AVAILABLE 


17000694 




3C* 


0043C1. 


.CO 


COOCOO. 


40 


88 


004304. 


.34 


02 






BB,TCHCWN(TIXG) ,TA9FA 


-IF MCP LEVEL IT IS NOT AVAIL TO PP 


17000695 




31* 


004302. 


.00 


OOCCOO. 


34 


88 


004315. 


.74 


OC 






BZB,TUNAVL1TIXG),TC9 


-IF THE UNIT IS AVAILABLE 


17000696 




32* 


0043C3. 


.00 


COOCOO. 


3 5 


88 


004422. 


.74 


00 


T 


A9F 


BZB,TUNASG(TIXG),TN 


-IF THE UNIT IS ASSIGNED 


17000697 




32* 


004304. 


.CO 


004306. 


C3 


01 








T 


A9FA 


LVI,TX1ER,TA9G 


-LOAD FOR SUB ROUTINE BRANCH 


17000698 




34* 


0043C4. 


.40 


COCCCC. 


76 


88 


002000, 


C7 


70 






CT0Gll(et't2)f TUNRES(TIXG) 




17000699 




35* 


004305. 


.40 


C04322. 


74 


CO 












BZRZ,TC1C 


"A F _ J_ H _ E _ _ U _ N l J LS RESERVED BY PP 


17000700 




36* 


004306". 


^cc" 


CO 4 300". 


21 


48 








~t~ 


A9G" 


"CB+, TIXG,T"A"9E 




17000701" 




37* 


















— 








1700C702 


20 


3fc* 


















— 




ADVANCE THE UNIT COUNT TABLE FOR ANOTHER CHANNEL 


17000703 


1? 


39* 


















- 








17000704 


18 


4C* 


















— 








17000705 


17 


4i* 


004306. 


40 


OCCCOO. 


24 


82 


004000. 


C6 


70 






LF, TChCNT(TIXH) 


-TEST FGR NO ENTRY 


17000706 
17000707 


16 


42 * 


0043C7. 


40 


004246. 


34 


C2 












BRZ,T89 


-IF NO ENTRY 


15 


42* 


004310. 


00 


000C11. 


25 


30 












SV,TIXF,$R 


-SAVE THE CHANNEL ADDRESS 


17000708 


14 


44* 


004310. 


40 * 


OOCCOO. 


CO 


82 


022027. 


2C 


CO 






ST,TCHACC(TIXH),46 




17000709 


13 


45* 


0C4311. 


40 


COCCOO. 


45 


05 












V+If TIXHf 0.32 


-ADD A HALF WORD TO VF 


17000710 


12 


46* 


004312. 


CO 


CCCC01. 


C5 


CO 












C+I,TIXE,1.0 




17000711 
17000712 


11 


4 I* 


0C4312. 


40 


003273. 


CO 


80 


022000. 


23 


1C 






KF, TLUCT 


-KEEP ONLY THE LARGEST COUNT 


!0 


4fc* 


004313. 


40 


C04246. 


37 


40 












BZAh,TB9 


-IF TLUCT IS LARGER 


17000713 


9 


49* 


004314. 


00 


003273. 


CO 


80 


022000. 


20 


CO 






ST, TLUCT 


-SAVE THE LARGER 


17000714 


8 


5C* 


004315. 


CO 


C04246. 


10 


00 












B,T69 




17000715 


7 


51* 


















— 








17000716 


6 


52* 


















— 




ALU TO THE UNIT 


COUNT IN THE MULTI UNIT TABLE 


17000717 j 


5 


52* 


















- 








170C0718 


4 


54* 


004315. 


40 


COCCOO. 


64 


8A 


004306. 


34 


00 


T 


C9 


BZB,TEQLIP(TIXF) ,TA9G 


-NOT A TAPE UNIT 


17000719 


3 


55* 


C04316. 


40 


COCCOO. 


24 


82 


OC4000. 


22 


BC 






M+1,TCHCNT( TIXH) 


-ADD TO THE UNIT COUNT 


17000720 


2 

1 


56* 


0G4317. 


40 


004306. 


10 


CO 












B,TA9G 




17000721 



wai 



TIME CLOCK CC054C41 



PUNID 11C11IPL 



CARC IC 17C00722 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



74 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
I * 

2* 
4* 



MACHINE CONFIGURATION CHANGE, 
IS ON AND THE CHAN ANC/CR UNIT 



THE RESERVED BIT 
IS DOWN 



17000722 
17000723 
17000724 
17000725 



5# 

£*~6CA320~.C0~ 
004321. CC 
004322.00 



170007 26 
17000727 
17000728 
17000729 
17000730 
17000731 



i * 
t * 

IC* 



0C4322.4C 



___ 

12* 
12* 
14* 
15* 
16* 



004323.40 



C0CCC0.76 
CCCCG0.77 
004324. 5C 

0000:00.76 
GCCG00.77 



8A 
8A 
CO 

88 
88 



001000. CC FO T A10 CMOCOC, TUNRESt T I XF ) 
001000.00 FC CMOCOC, TCVRES(TIXF) 

B, TA1CA 



-RESET THE UNIT RESERVED BIT 
-RESET THE NOT OVER LAP RES BIT 



00 10 00. CO F0_ 
001000.00 FO 



J__C_1_Q. CMOCOC, TUNRESITIXG) -RE SET THE UNI T RESERV_E_D_ B_I T __ 

CMOCOC, TOVRES(TIXG) -RESET THE NOT OVERLAP _ R_EJ5_ _e_I_T_ 



004324.40 
004325. CO 
004326.00 
0C4327.CC 



CO 33 1 5. 16 
C03273.32 

000000.47 
CCCCC0.44 



10 
80 
87 
87 



0C1000.CC FO 
000000.34 03 
004343.34 02 



T A10A 



T B10A 



II* 
16* 
IS* 

2C* 
21* 
22* 



PP433_C_._CC 
0C4331.CC 
0C4331.40 
004332. CC 
004332.40 



_CJ_GCCC_34 
C04343.34 
C0C0OO.12 
C0CC25.13 
00CC11.12 



_Z 
C2 
57 

50 
50 



010027. 2C 50 



LX, TIXCTPPRUN -SET FOR LOCATING NEXT JOB 

CMOCOC, TLCOP -RESET THE LOOP INDICATOR 

BB,TLPPEN{TIXD),0.0(TX1BR) -IF LAST ENTRY IN PP REF 
BB L IJBPRCiJJXD_b TB1C „-I_F_THE JCB_WAS PROCESSED 
k»IUNCJ{ TIXD),46 ."GET THEUNIT COUNT 



TO BE RUN 



TBL 



17000732 
17000733 
17000734 
17000735 
17000736 
17000737 



17000738 
17000739 
17000740 
17000741 
17000742 
17000743 



8RZ.T81C 

LCt TlXIf TCRRCF(TIXD) 

SC f TlXIf TIXI 

LC,TIXI,$R 



-IF A NON I/O TYPE JOB 
-GET 18 BIT I/O REG TBL 
-SAVE ONLY 18 BITS 
-UNIT COUNT TO CF 



ADC 



17000744 

17000745" 

17000746 

17000747 

17000748 

17000749 



2<* 

25* 
26* 
27* 

26* 



CC4333.C0 
004334.00 
004334.40 
004335.40 



000000.22 85 
CC3373. 13 01 
C0GCC0.56 85 
CCCC11.24 90 



004334.74 00 
022027.20 50 



T All BZB,TLAST(TIXI),TA11B 

LVI.TIXI.TIOREQ 
T A11B L,TABSCH(TIXI),46 

KV,TIXF,$R 



-GET ABSOLUTE CHANNEL ADDRESS 
-COMPARE CHANNEL ADDRESSES 

_IJ= _UNL_I_KE _ __„____ 

-IF THE TYPE" IS NOT TAPE 



2i*_004336_.CO 
3C* 004336.40" 
004337. 4C 
004340. 40 
04341.40 
0C4342.CC 



_QP_4_3_4 2_._7_2 

0CCCC0.C3 
C00000.73 
COCC0O.C7 
C0C011.21 
C04345.72 



CO 
85 
8A 
85 
90 
C2 



_BZXE_T_10B 

BZ B , T T Y P E { T I X f) , T A 1 1 A : 

L,TUNITK(TIXF),46 

-,TABSUN(TIXI),46 

KC,TIXG,$R 

BXE,TA11A 



17000750 
17000751 
17000752 
17000753 
17000754 
17000755 



31* 
32* 
33* 

34* 



004345.74 OC 
004027.20 50 
003027.30 10 



-COMPUTE 
-COMPARE 
-IF LIKE 



THE RELATIVE UNIT 
UNIT LOCATIONS 



NUMBER 



20 
19 
18 
17 
ID 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
36* 
37* 
36* 
39* 
4C* 



004342^40 
004343. CC 
004343, 
004344, 
004345 



40 
CO 
CC 



0p_4 3 3_3_._l_3 _4_8 
00 CC 02. 17 C7 
004326.30 40 
003273.32 80 
004345.04 CO 



004326.34 OC 



J 8 1 OB _CB+ , T I X I , T A 1 1 
T BIO V+ICR,TIXD,2.C 
8ZXCZ,TB1CA 
BZB1,TL00P,TB10A 

BC, $ 



-IF THE COUNT IS OK 
-SET THE LOOP PREVENTER 
-MCP OR MACHINE ERROR 



170007 56 
"170007 57" 
17000758 
17000759 
17000760 
17000761 



Alt 

42 * 
42* 
44* 
45* 
46* 



004345.40/ 

004346.40" 

004347.40 

004350.40 

004351.40 

004352.40 



ilQC_C_C_0_._4_6 
COCCCO.CO 
C00C0O.56 
000000.07 
C0CC00.C2 
CCCC00.01 



87 

"as 

85 
85 
85 

85 



ociopp.cc_fo_ 

OC1000.CC FO 
022000. CC FC 
003000. CC FC 
001000.00 FO 
PC 1000. 36 FC 
0C4342.74 2" 



T AHA 



_C_MpCOO,_TASGNP.( TJXDJ 
CMOOOO,TASGNI(TIXI )" 
CMOCOO,TABSCH{TIXI) 
CMOCOO,TABSUN{TIXI ) 
CMOCOO,TPRINT(TIXI) 
CM11U,TUN0BT(TIXI ) 



_" R _ E _ _J_1 __._._. _ A S S 1 [G N E D_ B I T - — L PP REF TBL 17000762 

-RESET THE ASSIGNED BIT --I/O REG TBLE 17000763 

-ZERO THE CHANNEL ADDRESS 17000764 

-ZERO THE REL UNIT ADDRESS 17000765 

-RESET THE PRINT TO OPERATOR BIT 17000766 

-RESET TO ONE THE NOT OVERLAP BIT 1700076/ 



41* 
46* 
4"5* 
5C* 
51* 
52* 



PP4 3 5 3_.4C 
004354. 4C 
004355.00 
004355.40 
004356.00 
004356.40 



_C0.3_273-.32._8C 

003651.16 90 
004356.32 40 

003651. 17 30 
003272.16 30 
004342.7? 40 



BB_TLCGPf JB108 
KV, TIXD, TVALVF 
BZXL,TB11C 
SV,TIXD,.TVALVF 
LV,TIXD,TSAV 
BZXL, TBICB 



WAS REFILLED — BRANCH 

WE RESET THE VALID ~CFK PTR 



_-iJL__x 

-SHALL 

-NO 

-YES — 

-RESET TO LAST UNASSIGNED 

-DO NOT PLACE I XH IN TSAV 



17000768 

17000769' 

17000770 

17000771 

17000772 

17000773 



T B11C 



LOCATION 

IF IX GREATR 



____OC4 3_5 7_._C_0_ 
54*004357. 40 
55* 004360. CO 
56* 00436C.4C 



003272 ,17_ 10 
C04342.50 CO 
004451.25 CI 
C0CC00.25 33 



__tI_XC,TSAV 

B, TBICB 

LVI ,TX1,TMESSY 

SV,TX1,C.01TIXE) 



-DQ PLACE ] X I h TS A V I F LESS 
-LOOK FOR MORE 
-SET REASON FOR REJECTION 
-IN THE PP REF TABLE WORD 



17C007J4 
170007 75 
17000776 
17000777 



TAREJX 



Kfll 





TIME CLCCK C0054C41 PUMD 


11C11IPL 




CARD 


IC 


17000778 DIST. OF 3/01 


3/01 PAGE NUMBER 


75 






LIN 


E "LOCATION 





BINARY OUTPUT" 








~NA~M E ~ 


STATEMENT" 


__„_____ . _ ______^ 







1* 


004361 


.CO 


000C24 


.02 


GO 








T 


AREJ 


R.TIXA 


-RELOAD IX 




17000778 




2* 


0C4361 


.40 


OOCCOO 


.45 


83 


001000 


.36 


FO 






CMlllltTRJECT(TIXE) 


SET THE REJECT BIT 




17000779 




t * 


0C4362 


.40 


COCOOC 


.56 


84 


022027 


.20 


5C 


T 


AREJ1 


L,TABSCH(TIXA),46 


-GET THE CHANNEL ASSIGNED 




17000780 




* * 


004363 


.40 


C0CC11 


.24 


30 












LV f TX1,$R 






17000781 




t * 


0C4364 


.CO 


004373 


.74 


C2 












BRZ, TAREJN 






17000782 




6* 


004364 


.40 


CCCCOO 


.33 


8A 


0C4406 


.74 


00 






BZB.TMULTH TX1) ,TAREJ3 


-IF NOT A MULTI CASE 




"17000783"" I 




< * 


004365 


.40 


002152 


.CC 


80 


022027 


.30 


10 






-(BU, 18),TCHSXW,46 


-COMPUTE THE CHANNEL NUMBER 




17000784 




£* 


004366 


.40 * 


004771 


.14 


ao 


007027 


.20 


CC 






ST(fiU f 7) ,TCAT+.12,46 






17000785 




S* 


004367 


.40 


OOCCOO 


.00 


8A 


022027 


,2C 


50 






L,TUNT8A( TX1 ),46 


-GET UNIT TABLE ADDRESS 




17000786 




1C* 


GC43/C 


.40 


CCCC11 


.24 


30 












LVi TX1, $R 






17000787 




11* 


004371 


.CO 


CCCCOO 


.07 


84 


003027. 


.20 


50 






L,TABSUN(TIXA),46 


-GET UNIT NUMBER 




17000788 




12* 


004372 


.CO 


C04771 


.57 


80 


003027 


.20 


CO 






ST(GU,3) , TCAT+.47, 46 


-ALSO STORE THE UNIT NUMBER 




17000789 




12* 


004373 


.00 


C0CC11 


.24 


80 












V+i TX1, $R 


-ADD TO VALUE 




17000790 




14* 


004373 


.40 


OOGCOO 


.34 


84 


022027. 


,2C 


50 


T 


AREJN 


L,TFREEL(TIXA) ,46 


-GET ADDRESS OF REEL 




17000791 




15* 


004374 


.40 


004406 


.74 


C2 












BRZ.TAREJ3 


-IF NO REEL 




17000792 




16* 


004375 


.00 


0000 11 


.04 


30 












LV, TX3,$R 






17000793 




17* 


004375 


.40 


CCCCOO 


.22 


02 












Z , . ( T X 3 ) 


-ZERO THE REEL SLOT 




17000794 




IE* 


004376 


.00 


OCCOOC 


.00 


84 


004406, 


74 


CO 






BZB.TASGNHTIXA) ,TAREJ3 


-IF REQ WAS NOT ASSIGNED AS 


UNIT 


17000795 




IS* 


004377 


.cc 


C04771. 


.25 


C2 












LCI ,TX1,TCAT 


-SET UP THE UNIT AREA TAELE 


ADDRESS 


17000796 




2C* 


004377 


,4C 


OOCCOO. 


.25 


5A 












SCTX1, C.C(TXl) 


-IN THE UNIT STATUS TABLE 




17000797 




21* 


004400 


• CO 


000000. 


.35 


8A 


0C10G0. 


00 


FO 






CMOCCO, TUNASG(TXl) 


-RESET THE ASSIGNED BIT 




17000798 




22* 


004401 


.00 


CCOCGO. 


.40 


8A 


001000, 


36 


FO 






CM1111,TCH0KN( TX1) 


-SET UNIT OWNER TO MCP 




17000799 




22* 


0C4402 


.CO * 


COOCCO, 


.65 


8 A 


001000, 


CC 


FO 






CMCCCC,SIMNT{TXl) 


-TO RESET THE 




17000800 




24* 


0044C3 


,cc 


CCCCOO. 


63 


8A 


001000, 


CO 


FO 






CMOOOCSMCUNT(TXl) 


-MOUNT BITS 




17000801 




25* 


004404 


.00 


C01472. 


10 


CO 








T 


IPL4 


B,DN>CP 


-GO TO FREE THE TAPE 




17000802 




' 26* 


004404 


.40 


COCCOO. 


.CC 


80 












,DFREE 






17000803 




21* 


004405 


.00 


COOC03. 


CC 


80 












,3. 






17000804 




2fc* 


004405 


.40 


COOCCO. 


40 


8A 


001000. 


CC 


FO 






CM0C0CTCHOWNCTX1) 


-RESET UNIT TO PP OWNER 




170C0805 




2S* 


0C44C6. 


40 


CCCCOO. 


22 


04 








T 


AREJ3 


Z,O.C{ TIXA) 


-ZERO THE I/O REG SLOT 




17000806 




3C* 


0C44C7 


.00 


COOCCO, 


25 


05 












V + It TXlf CO 


-FOR INDEX CHECK 




17000807 




31* 


0C44C7. 


.40 


004412. 


31 


42 












BXVZ.TAREJ4 


-IF REQ WAS NOT ASSIGNED 




17000808 




32* 


00441C. 


CO 


OOCCOO. 


76 


8A 


004412. 


34 


06 






BBZ,TUNRES(TX1) ,TAREJ4 


-RESET THE NOT OV RES FIRST 




17000809 




32* 


004411. 


00 


COCCOO. 


77 


OA 


001000. 


CO 


FO 






CM0C00,TCVRES(TX1) 






17000810 




34* 


004412. 


00 


CCCCC1. 


22 


84 


004413. 


74 


CC 


T 


AREJ4 


BZB,TLAST+1.0(TIXA),TAREJ5 




17000811 




35* 


004413. 


CC 


003372. 


51 


01 












LVI ,TIXA, riOREG-1 


-RELOAD IS END OF FAB 




17000812 




36* 


004413. 


40 


004362. 


51 


48 








r 


AREJ5 


CB+,TIXA,TAREJ1 






17000813 




37* 


CC4414. 


00 


004455, 


C3 


80 


004622. 


34 


06 






BBZ,YSCRBT, TP1BA - 






17000814 


20 


3fc* 


004415. 


00 


COOCOO. 


24 


IF 












LX»TCTWCX,0.C($15) 


-CHECK THE MODE 




17000815 


19 


3S* 


004415. 


40 


004203. 


63 


40 












BZXF,TB8Z 






17000816 


18 


4C* 


0C4416. 


CC * 


C04421. 


50 


00 












B,TL 


-IF NOT OVERLAP 




17000817 


17 


41* 


















- 










17000818 


16 


42 * 


















- 










17000819 


15 


42* 


















— 










170CC820 


14 


44* 


004416. 


40 


004461. 


10 


00 








T 


D 


B.TSCRIB 


-NOT OVERLAP FULLY ASSIGNED 




17000821 


13 


45* 


004417. 


00 


C04461. 


10 


00 








T 


F 


B.TSCRIB 


-OK — ALL I/O REQ HAVE BEEN 


PROCESSED 


17000822 


12 


46* 


004417. 


40 


C04461. 


10 


CO 








T 


G 


B,TSCRIB 


-OK — NC MORE UNITS AVAIL FOR ASSIGN 


17000823 


11 


4 <* 


004420. 


CO 


004420. 


C4 


00 








1 


F 


BD,$ 


-ASSIGN BIT ON - SING UNIT 


CHAN 


17000824 


10 


4fc* 


00442C. 


40 


C0442C. 


44 


00 








1 


I 


BD,$ 


-ASSIGN BIT ON - MULTI UNIT 


CHAN 


17000825 


9 


4S* 


004421. 


00 


004461. 


10 


00 








T 


K 


B.TSCRIE 


-OK — NOT OVERLAP JOB FULLY 


ASSIGNED 


17000826 


a 


5C* 


004421. 


40 


C04604. 


10 


00 








T 


L 


B,TPICA 


-NOT OVERLAP JOB NOT ASSIGNED 


17000827 


7 


51* 


004422. 


CC 


004422. 


C4 


00 








T 


H 


8U,$ 


-MACH CONF CH. ASSIGN BIT ON - SING 


17000828 


6 


52* 


0C4422. 


40 


C04422. 


44 


00 








T 


N 


BD, 4 


-MACH CONF CH. ASSIGN BIT CN - MULTI 


17000829 


5 


52 * 


004423. 


00 


C04423. 


04 


00 








T 


P 


BD,S 


-ERROR MCP IS GUT OF PHASE 




17000830 


4 
3 
2 

1 





wai 



TIME CLCCK CCC54C41 



PUNID HClilPL 



CARD ID 17000832 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



76 



LINE 



LGCA1 ICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



1* 
2* 

2 * 
i « 



A PRINT SUB - RGLTINE THAT MLL PRINT ASSIGNMENTS 



17000832 
17000833 
17000834 
17000835 



5* 
~i * 

e* 

s* 

1C* 



1700 08 36 
'1700 08 37" 
17000838 
17000839 
17000840 
1700084 1 



004423. 
004424. 
004431. 



4C 
CO 
CO 



000000.30 CO 



T BUF01 
_T_ „M C_L K 

T BUFB1 



CNG 
( IQ 
( IC 



SX)00(BU»64,8), 
SX)DD(BUt64 t 8)j. 



— SET UP THE FOLLOWING UNITS 
X-BLANK MASK 



11* 
12* 
12* 
14* 
15* 
16* 



Q044 32_. 
004433. 
004435. 
0C4436. 
0C444C 
004440. 



CO- 
CO 
50 
5C 
10 
40 



COCO 17473332 1303 3 10621 



DD(_BUi, ( 16iC0pF9pR_68BCD9191 -BYPASS IN RED 
( IQSX)CC(BU) , MOUNT - REEL NUMBER X 
{ IGSX)DC(BU,64,8), X 
( IQSX)DD(EU,64, 8), ON CHANNEL X 
( IQSX)DD(BU,24,8), X 
-LLQSX)QCiByj_36j8Jj__LNIT__X 



17000842 
17000843 
17000844 
17000845 
17000846 
17000847 



II* 

le* 

19* 
2C* 
21* 
22* 



PPj444_1_ 

004442 

004443, 

004444. 

004445 

00445C 



_2C_ 
CC 
CC 
00 
00 
CC 



T REELX 

T CHANX 

T VNI/TX 



iS_____BU)_t ___X___ 

BU), (16)CC171D8 315C0 8B8F 

BU), ( 16)8993151193C0CGC0 

!SX)DC(BU,64,8)»SCRATCH X 

:SX)DC(BU,8,8), ~ PROBLEM 

iSX)CC(BU,64,8),_ ___X 



Lie: 

DC( 
DO I 

( ig: 

{ IQ! 

JJA- 

CNOP 

(A*)DD(EU), I/O REQ. INCOMP WITH MACH CCNF.* 

SYN,$2 
SYN,$3 
SYN,$4 



17000848 
17000849 
17000850 
17000851 
17000852 
17000853 



00 CC2 70 7 30 142500 10 56 17 
10462 30521 0623 OOCCOOOO 



T SCRAT 
T SUBHD 
T PID 



PROGRAM X 



22* 
24* 
25* 
26* 
27* 
26* 



1ZQC0854 
17000855 

17000856 

17000857 

17000858 

17000859 



004451.00 

000022.00+ 
00CC23.0C+ 
000024.00+ 



+0CCC0CCC 
+OCCCOOCO 
+CCCCOOOO 



BU,100,10 
BU,100,10 
BU, 100,10 



T MESSY 

T XA 

T XB 

T XC 



2S* 000025. CC + 

3C* 0CCC26.C0+ 

31* 004455.00 

32* 004455.01 

33* 004455.02 

34* 004455. C3 



+ CCCC_C_CCG_ 
+OCCCCCCO 



BUjiCC.lC 
BU.lCCt 10 



T IXY" 
T HEAD 
T SBHDI 
T NGATE 
YSCRBT 



_SYN t t5 

SYN,$6 
DD(EU t DtC 
DD{ BU,1),0 
DDIEU,1),0 
ODIBU, 1), (2)0 



17000860 

17000861" 

17000862 

17000863 

17000864 

17000865 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 










-SUB HEADING 
-GATE FCR NOT 



IND 
OVERLAP 



RE-ITERATION 



3E.t_Q04456.CC__ 
36* 004457.00 
37* 004460. OC * 



c c c o_c c_._o_o_+_ _o_g_ o 

CCCOCC.OO+ oco 
CCCOCO.OO+ 000 



COGOOOCCCOOO 

"cocooo occccc" 
cooooo occooc 



J_ _ P _5J_N_ _ 
T P50UT 

T PSAV 



xw 
xw 



■CCNJ_=_R_SJQ.N 

-CONVERSION 
•CONVERSION 



BUFFER 
BUFFER 
BUFFER 



IN 

OUT 

INDEX 



SAVE 



17000866 
17000867' 
17000868 



wai 



1 IME CLOCK CCC54C41 



PUNID 11C11IPL 



CARD IC 1700C870 



DIST. CF 3/01 



3/01 



PAGE NUMBER 



77 



LINE 



LOCATION 



BINARY OUTPUT 



NAVE 



STATEMENT 



LOCATION 



1* 
2* 
2 * 
i * 



SCAN THE PP REF TABLE FOR NEW ASSIGNMENTS 



17000870 
17000871 
17000872 
17000873 



i * 

£»~6C446l".CC~ 
004461.40 
004462.40 
0C4463.4C 



170008 74 
1700087b" 
17000876 
17000877 
17000878 
17000879 
17000880' 
"17000881" 
17000832 
17000883 
17000884 
17000885 



c * 

IC* 

11* 
12* 
13* 
14* 
15* 
U* 



C03315.C4 
C0GC0O.47 
CGCC00.44 
COC0CC.45 



10 
82 
82 
82 



004464_._4J3_ 
004465. CC 
004466. CC 
004466.40 
004467.00 
0C447C.CC 



CCCC00.C6 32 



C0CCC0.34 
C0CC11.C6 
004576.30 
C0CC01.00 
C04456.00 



82 
50 
42 

82 

80 



004600.34 02 
004576.34 02 
004576.34 02 



010027. 2C 50 



060600. C6 
000000.12 



7C 

FO 



T SCR18 LX,TXA,TPPRUN 
T P6 BB,TLPPEN(TXA),TP1 
BB,TJEPRC(TXA),TP2 
BB,TRJECTtTXA),TP2 

~~~~~"I"LVi~fx|[TCRR|FJTXAy 
L,TUNCT( TXA) ,46 
LC,TXB,$R 
BXCZ,TP2 
LF,TPNAME(TXA) 
SF(PU,64,8),TP5IN 



-GET CROSS REF ADDRESS 



■GET PP NAME 

•SAVE FOR CONVERSION 



11* 
1€* 
19* 

2C* 
21* 
22* 



p044JTUCC_ 
0C4471.4C 
004472.00 
0C4472.4C 
004473. CC 
OC 4 47 3.4 



___C_°_44 6C.37 
C04472.77 
002366.04 

CC4456.0C+ 

CCC01C 

CC4457.C0+ 



10 
CI 

CO 



SX L $15, TPSAV 

LVIi*15,TP6A" 

B0,SA8IQS 

VF,TP5IN 

CF,8 

VF,TP5CLT 



170008 86 

17000 88 7" 

17000888 

17000889 

17000890 

17000891 



T P6A 



-SET UP FOR CONV ROUTINt 

-FWA IN 
- N 
-FWA OUT 



22* 
24* 
25* 
26* 
27* 
28* 



004474^00 
0C4474.4C 
004475.40 
004476. CO 

004477. CC 



_C_04_474._4C_ 
004457. CO 
004460.36 
004450.00 

00 0_C_C_C_._2 2_ 
003373 . C7 

cccccoVco 

000CC0.C3 



00 

"80 

10 

80 

83 

°A 

83 
83 



T IPLB1 



000000.06 70" 



000000.12 FO 



004500.74 CC 



T P5 



BE, $+.32 

LFU3U, 64,8),TP50UT 

LX, $15, TPSAV 

SF,TPIC 

BZB.TLASTl TX8 _) t TP_5Z 
LVI,TXB,TIOREC 



•MODIFIED BY I PL _ 

-GET THE' "C ON VERT ED WORD" 

•RESTORE INDEX 



17000892 

17000893" 

17000894 

17000895 

17000896 

17000897 



2|* 0C45CC.CC 

3C* 0C45CC.4C" 

31* 004501.40 

32* 

33* 

34* 



17000898 
"17000899 
17000900 
17000901 
17000902 
17000903 



004502.40 

0C45C3.40 



C0CC00.56 83 
C0CC11.10 30 



004575.74 00 
004575.74 00 

022027.20 50 



T P5Z BZB,TASGNI(TXB),TP3 
BZB,TTYPE(TXE),TP3 

L,TABSCH(TXB),46 
LV,TXC,$R 



-GET THE CHANNEL STATUS WORD 



35* 004504. CC 
36* "004504. 4C" 
004505.40 
004506.00 



0000 0.10 34 
00CC00.C7 83 
00CC11.10 BO 
C0CC00.02 83 



LV, TXC, C.Ci TXCj 
L, TAB SUN ( TXB),46" 
V+,TXC,$R 
BZBliTPRINTf TXB),TP5A 

B_ZB,TUNRES( TXCJJTTP3 
"BBZffPRINT(TXB) ,TP3" 



-get ad cress of unittable 

-get" The u n i t "n u m b e r 

-add to vf to get unit status fcgrc 



17000904 
"170C0905' 
17000906 
17000907 
17000908 
17000909 
"17000910" 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 
1 

1 



37* 
3£* 
3S* 
4C* 
4 1* 



004507. CC 
00451C.C0" 



A _ c _ c _ c _ _'_ 7 _ 6 _ 
CCCC00.C2 



84 
83 



003027. 2C 50 

004511.34 OC 

004575.74 00 
004575.74 06 



- if v £ r lap reserved 
-reset The print bit" 



— ONLY — 
AND GO" 



wai 



TIME CLOCK CCC54C41 



PUN1D 11C11IPL 



CARD ID 17000912 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



78 



LINE 



LOCATION BINARY OUTPUT NAME STATEMENT LOCATION 



1* 

c * 

2* 

i * 



CONVERT THE CHANNEL FIELDS 



17000912 
17000913 
17000914 
17000915 



0C4511.C0 

004511.40 

004512 

004512 

004513 

004514 



occcco. 

CO 4 5 1 3 . 
003370. 
C04575. 
CCCCCO. 
C02152. 



24 

2 3 
05 
72 
56 

CC 



IF 

40 
C4 
CO 
83 

80 



T P 5 A LX , TCT hC X, 0.0 J $15 ) 

BZXF, TP5A1 

KVI ,TXA,TPURFT 

BZXE,TP3 
T P5A1 $L,TABSCH(TXB),-60 

$-{ BU,18) ,TCHSXW,-6C 



-CHECK THE MODE 

■PRINT ONLY THE MESSAGES OF THAT MODE 
-LGAD FOR ABS CHANNEL CONVERSION 



17000916 
I 70009 17 
17000918 
17000919 
17000920 
17000921 



t* 
1* 
t* 
S* 
1C* 



GO 
40 

CO 
CO 



lit 

12* 
12* 
14* 
15* 
16* 



00451 5_.C0_ 
004516.00 
004517. CO 
004520.00 
004521. CO 
004522.00 



_0_Q_3_2_ 6 6 . 
COCCCO. 
C0CC1O. 
60CCG0. 
600000. 
004440. 



01 
CO 
24 

CO 
00 

10 



«o 

80 
80 
80 
80 

80 



022042.20 50 
02204 2_.3C__1C__ 
022042.12 FC 



$ SF [BU , 1 8 ) , T I PL+ 1 , - 6 
$CV(8U, 18), CO, -32 
LF{BU, 12,4) ,$L+.20, 1 
LFNBU.2) ,3,5 
LFI(BU,2),3, 13 
CM0101,TCHAN_X 



-TO SAVE THE CHAK FOR IPL PRINT 



17 00 09 22 
17CC0923 
17000924 
17000925 
1700C926 
17000927 



022060.21 
014400.46 
402002.46 
402006.46 
030000. 12 



BO 
70 
70 
70 
FC 



-CONVERT TO 8 BIT BYTE 
-GET THE IQS LEAD BITS 
-GET THE IGS LEAD EITS 



II* 
1£* 
IS* 
2C* 
21* 
22* 



1Z Q009 2 8 
17000929 
17000930 
17000931 
17000932 
17000933 
17000934 



004523.00 
004524.00 
004525.00 



COCCCO. 07 83 
60GCG0.C0 80 
004441.20 80 



003000.46 7C 
402002.46 70 
010000.12 FO 



CC011,TABSUN(TXB),1 
LFI (BU,2),3, 5 
CM010KBU, 8,8),TLNITX 



-GET UNIT NUMBER 

-GET THE IQS LEAD BITS 



22* 
24* 
25* 
26* 
21* 
2f * 



004526.CC 
0C4527.CC 
004530.00 
0C453C.40 

00453UCC 
004532.00 
0C4533.CC 
004533.40 

004534.40 
004535. CC 
CC4536.CC 



COCCCO . 5 C _8 4 
CCCCOO. 34 83 
004551.34 C2 
C0CC11.12 30 

AQC_ccp_-A Q. A 5 - 

004630.74 80 



001000.36 
022027.06 



70 



CM1 111, TVER {TXC_)_ 
LFtTFREEL(TXB) ,46 
BRZ.TPSCR 
LV,TIXZ,$R 



-SJET THE VERIFY BIT 

-GET THE FIRST REEL ADDRE~SS 
-SCRATCH TAPE REQUEST 



060600.0670 
006630.23 10 



C_C_011 HjL,48,6),TREELN(TIXZ) 

~KF,TLRL,48 -LOOK FOR A NON-LABELED TAPE 



17000935 
17000936 
17000937 
17000938 
17000939 



?_i* 

3C* 
31* 
32* 
33* 

34* 



17000940 
17000941 
17000942 
17000943 
17000944 
17000945 
17000946 



3J_* 
36* 
37* 
3t* 
3?* 
4C* 



004534.76 C2 
C0C000.5C 84 

CC4460.37 10 
00 4 4J56 ._C_C_ 80 
004537.37 01 



001000.00 FO 



000000.12 FO 



T P5A2 



BAE,TP5A2 
CMOCOO, TVER( TXC) 

SX,$15,TPSAV 
SF(EU,64,8),TP5IN 



_LV_L,$15,TP5A3 
BD.SA8ICS 
VF,TP5IN 
CF, 8 

VF.TP50UT 
BE, $+.32 



-IF A LABELED TAPE 
-RESET THE VERIFY BIT 



•SAVE FOR CONVERSION 

•SET UP TO GO TO IQS CCNv" RTNE~ 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



CC4536.40 
004537.00 
004537. 4C 
004540. CC 
004540.40 



002366.04 00 
004456.00+ 
CC001C 
G04457.00+ 

004541. CO 00 



T P5A3 



T IPLB2 



-FWA IN 

•N 

-FWA GUT 

-MOCIFIED 



BY IPL 



17000947 
17000948 
17000949 
17000950 
17000951 



Alt 

42* 
43* 
44* 
45* 
46* 



00454U00 
004542. CC 
004543.00 

004543.40 
004544.40 
04 54 5.40 



_C_C_44_57._C0__8_g 
004435. 5C 80 
004460.36 10 

004431.00 80 

_C0_4A3_6.„2C 8 

000CC0.33 84 



000000.06 70 
050000.12 FC 



000040.06 70 
30040 .1 2_ _F_0_ 
pC10pp.CC FO 
001000.36 FO 
060600.06 70 



LF(BU,64,8),TP50LT 
SF{RU,40,8),TREELX 
LX,$15,TPSAV 



■_G_E_T__THE CONVERTED WORD 
•SET UP IQS REEL NUMBER 
-RESTORE 



17000952 

17000953' 

17000954 

17000955 

17000956 

17000957 



C00U,TMBLK,64 -GET ACC 

CM0101(BU,24,8),TREELX+.40,64 



FULL CF BLANKS 



4£* 
46* 
45* 
5C* 
51* 
52* 



CMOCOC^TFCISPJTXC) ___-SET TO TAPE__MCUNTED 

CMilll,STATI(TXC) -SET TO TAPE MTED- SPECIFIC 

LF(RU,48,6), TREELN(TIXZ) -RESET ACC FOR REEL PROTECT TEST 
B,TP4 



C TO C 1 1 1 fi U , 2 ) j ST A TIJT XC ) 

BRZ t TP3 

"C0011,TSCRAT 
CK0101.TREELX 
C0011(BU,6,6),TNCP,56 



17000958 

17000959" 

17000960 

17000961 

17000962 

17000963 

17660964 



.53* 

55* 
56* 



004546.40 
004547.40 
00455C.4C 

004 5 51. CO __ 

PP4 552. 0C__*_ 
004552. 4C 
004553.40 
004554.40 



COCCCO. 32 84 

COGCCO.CG 85 

004556. 5G CO 

OCCC00.32__84 

C_C_4 5?5.74 C2 

004444. CC 80 

004435.50 80 

004631.02 80 



00200Q.07 70 



TPSCR 



000000. C6 70 
000000.12 FO 
006634.06 70 



-GET THE SCRATCH TAPE WORD 

-BUILD feORD 

-GET NOT FILE PROTECT MASK 



17000965 
17000966 
17000967 

WHI 



1 I Mb CLOCK CCC54C41 



PUNID 11C1UPL 



CARD ID 17G00968 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



79 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



C04555 



1* 004555.40 

2 * 

2* 004556. AC 

i* 004557.40 



00CC00.32 84 0C2000.C0 FO 



000000.63 84 
C0CC00.65 84 



001000.36 FO 
001000.36 FO 



TP4 



CM0C0C(BU,2) , STATI(TXC) 

CM1111, SMOUNT(TXC) 
CMllll.SIMNTCTXC) 



-SET TO TAPE MTED- SCRATCH 

-SET MOUNT BIT AND 
-THE INITIAL MOUNT BIT 



17000968 
17000969 
17000970 
17000971 



!■ : 

Si 
91 
V. 
SI 
61 
02 



4 * 
fc* 

C ft 

1C* 
11* 



004 560 .40 
0G456l".C0 
004561.40 
004562.40 
004563. CO 



_coo_oqq.i5 

C0CC01. 13 
003273.23 
C0CCC0.13 

C0CCC1.15 



01 
CI 

80 
01 
C5 



004563.74 CO 



LVI ,T1XY,0 
LVl,flXZ,1.0 
BZB,TMCBE,TP7 
L V I , T I X Z , C . 
V+I ,TIXY, 1.0 



-INITIALIZE TO NON PROTECT 
"-SET "UP" FOR" OVERLAP " 
-IF OVERLAP MODE 
-SET UP FOR NOT OVERLAP 
-GET ALL OF MESSAGE PLUS 



CHECK FOR REEL PROTECTION 



17000972 

17000973" 

17000974 

17000975- 

17000976 

1 70009/7 

17G00978 



12* 
13* 
14* 
15* 

17* 



004563.40 
004564. 4C 
004565.00 
04 565.40 
00 4 56 6 .4C~ 



004631.02 
004565.76 
C0CC02.15 
0_0_44 5 5.q0 
C01472.10 



80 
C? 

05 
80 
GO 



006634.23 10 



004570.74 OE 



T P7 KF,TNCP,56 
BAE, TWRITE 
V+I,TIXY,2.C 

T WRITE _BBl 1 XHEAC i TPENY_ 
B,DMCP 



-LOOK FOR NON - PROTECT 
-IF NOT PROTECTED 

: CHECK FOR MAJOR HEADING 
-WRITE "THE MAJOR HEADING" 



170009 (9 
17000980 
17000981 
17000982 
17000983 
17000984 



1£* 
IS* 
2C* 
21* 
22* 
"22* 
24* 
25* 
26* 
27* 
2fc* 



004567. CC 

004567.40 

004570.00 

004570.40 

004571. 4C 

004572^.00" 

004572.40" 

004573.00 

004573.40 

004574.00 

004574. 4C 



00CC43.4C 

004424.00 

C0CC05.00 

004455. CI 

001472, 

CO CO 4 3^, 

004445.00 

C0C004.CC 

001472. 10 

000043.40 

004432.00 



10 
4 



80 
80 
80 
80 

o_q 

80 
"8 
80 
CO 

80 
85 



004573.74 OE 



, DCCMM 

.TBUFC1 

,5.C 
T PENY BR1,TSBFCI,TP£N 

BtDMCP 

", DCCMM" 

jTsUBHL 

,4.C 
T PEN BtDMCP 

f DCCMM 

,TBUFB1( TIXZ ) 



-WRITE THE SUB HEADING 



-WRITE THE MOUNTING PROCEDURES 



17000985 
17000986 
17000987 
17000988 
17000989 
"17000990" 
17000991 
17000992 
17000993 
17000994 
17C00995 



29* 004575. CC 



_ C _°_ C L C L C _ 7 _*_ C _ C _ 

004477.07 
C0CCC2.C5 
004455.01 
004461.50 
004455. CO 



3 A 

4 8 

07 
80 
CO 

80 



,7. (TIXY) 
"CB+,TXB,TP5 
V+ICR,TXA,2.0 
CM0C00(BU,13,TSBHCI 
B,TP6 
CM0C00(BU,2),THEAD 



17000996 

17000997" 

17000998 

17000999 

17001000 

17001001 



3C* 
31* 
32* 

32* 
34* 



004575.40 
004576.00 
004576.40 
004577.40 

004600.00 



1 
T 



P3 
P2 



001000.00 FO 



002000. CC FO 



T PI 



-ZERO 1>E I NO 

- C H EC K" THE MODE 

-IF "OVERLAP PROCEED ONWARD 

-IF SECOND PASS 

-SET UP FOR THE NOT OVERLAP 

-FOR NOT OVERLAP RE-ITERATICN 



_ 3 A* 004601.00* 
36* 004601.40 
37* 004602.00 
3t* 004603.00 
39* 004603.40 



CO C CCO. 24 
004604.23 
004455.02 
003313. C4 
CG4461.5C 



IF 
"40 

80 
10 
CO 



LX » TCJfc C X , . { $ I 5 ) 
BZXF,TPICA '""' 
BBN,TNGATEiTPICA 
LX, TXA.TPPURF 
B,TP6 



17001002 



20 
19 
,8 j 

17 : 

16 
15 
14 
13 
12 
II 
10 
9 

e 

7 

6 1 

5 

4 

3 

2 

1 



004604.34 OA 



17001003 
17001004 
17001005 
17001006 



wai 



I IME CLOCK GCC54C41 



PUNID 11C11IPL 



CARD IC 170010C8 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



80 



L I lit- 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
2 * 

** 0C4604.0C 



003315.20 10 



LOOK AHEAD -N- JOBS AND DETERMINE THE STATUS 
LXtTIXG.TPPRUN -GET NEXT JOB TO BE RUN 



T PICA 



17001008 
17001009 
17001010 
17001011 



t* 004605. CC 
004605.40 
004606.00 
004607.00 
004607.40 



_C0C.C00._24 
004606.23 
003313.20 
00GCOO.34 
G03264.61 

_C_0CCC0.4 7 
C00C00.55 



IF 
40 
10 
8F 
30 
88 
8F 



LX.ICTWCX.O.OJilS) 

BZXF,TPIC 

LX, TIXG.TPPURF 

CM0G00(BU,2),0.28{$15) 

SV,TIXG f TNEXT 

BZB,TLPPEN( TIXG),JP1B 



lCHECK_FGUE__ 

-IF OVERLAP 

-IF NOT OVERLAP 

-CLEAR RETURN DISPOSITION FIELD 

-SAVE THE ADDR OF THE NEXT PP TO 

-IF MORE JOBS 



17001012 
17001013 
17001014 
17001015 
17001016 
1700101/ 



i » 
£* 

S* 

IC* 



11* 0G461C.40 



002000.00 FO 

004612.34 CC 
001000.36 FO 



T PIC 



FUN 



12* 0C4611.40 

13* 004612.00 

14* 004613.00 

15* 004613.40 

It* 004614.40 * 



C04626. 10 
CCGCC0.45 
C04622.34 

C0CCG0.46 

CCCCCO. LC 



CO 

88 
CG 



GC10G0.C7 7G 



T P1B 



18 004626.34 02 



CM1111C BU» 1) t 0.4_5_(_$1_5) 

B , T P 1 A 

CTOGU, TRJfcCTCTIXG) 

BZRZ,TP1BA 

BB, TASGNP(TIXG) , TP1A 

LV,TIXA, TCRREF(TIXG) 



-LOCK FCR A REJECT 
-IF PP IS REJECTED 
-IF PP ASSIGNED 
-COMPUTE THE IC RES 



TBL ADCR 



17001026 

17001019 
17001020 
17001021 
17001022 
17001023 



.11*. 

lfc* 

IS* 

2C* 
21* 
21 * 



0C4625_._C_C_ 
004616. CC 
004616.40 
004617.40 
004620. 4C 
004621. CC 



C0_CC_C0._34 
C0CC11. IC 
C0CCG0.45 
G04455.C3 
003271. 11 
CO 32 71. 11 



88 
50 
88 
80 
C3 
10 



10027. 2 C 5C 



001000.36 
0C1000.36 



FO 
FO 



_L lIUNC T_ 12 XGJ_f 46 

LC t TIXA, SR 

CM1111,TRJECT(TIXG) 

CM111I, YSCRBT 

LRI,TIXA,TREFIL 
_S_X ,TIXA,TREFIL 



•A_N0__THF_NLiMBER_0F_2/C jJNITS 

•AS TO ENABLE ASSIGN TO 

•IF NOT ST REJECT BIT TO ONE 



REQUESTED 



22* 
2^* 
25* 
2t* 
2 i* 
2fc* 



004621.40 
004622. CO 
004623. CC 
004624.00 
004624.40 
004625.00 



G04360_._KL 
CCCCCO. 44 
G0GC00.34 
00CCG0.24 
004626.23 
00CC02.21 



00 



A^larejx 

CMlill,TJBPRO(TIXG) 
CMlllKBUt II t0.28($15) 
LX,TCTWDX»0.0($15) 
BXF,TP1A 
V+ICR,TIXG,2.0 



1700202^ 
17001025 
17001026 
17001027 
17001028 
1700 10 i? 
1700 10 30 



8F 
IF 
42 

07 



001000.36 
0G1000.36 



FO 
FO 



T P1BA 



-IF SO SET JOB PROCESSED BIT TO ONE 
-SET THE DISPOSITION BIT 
-ACTIVATE THE MODE 

-AS TO CHECK MCDE — IF NCT OVERLAP 
-UP DATE THE POINTER 



17001031 
17001032 
17001033 
17001034 
17001035 



2i*._004625.40 
3C* 004626. CC 
31* 004627.00 



CO 3 31 5.21 

00CC21.CC 
CC0C01. 10 



80 
OF 



SX»_TIXG,TPPRIJN 

"SWAPI, 12i$ltTASAVE" 
8,1.00(115) 



-AND SAVE 
-RESTORE INDEXES 
•RETURN 



17001036 
1700103/ 
17001038 



003274.30 EO 



T P1A 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

i 

5 

4 

3 

2 

1 



wai 



J [ME CLOCK CC054C41 PUNID 11C11IPL 



CARD ID 18000O0L 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



81 



LIN! 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



004627 



1* 004627.40 * 



£ * 



SLC»$ 
PRNC 



18000001 
18000002 



i* 



t * 



I/C ASSIGNMENT MOVE 



18000003 
18000004 u 
18000005 



f 
~i * 
t * 

~~A*. 

ic* 

n* 

12* 
\l* 
14* 



THE MOVE PROGRAM LINKAGE FORMAT 



LVI,$15,Z 

B,TMOVE 

YvT,T f ¥,"C,~q 

8EW»$ 



RETURN LOCATION 



180CC006 

1800000/ 

18000008 

18000009" 

18000010 

18000011 

I 80000 12" 

18000013 

18000014 



H 



15* 



LET A = FWA OF THE IOD BREAKDOWN 



1800001b 



20 
19 

( 18 
17 
16 

( 15 

14 
13 

( '2 

11 
10 

8 
7 

( « 

5 

4 

2 

1 



If 

17* 
It* 
IS* 
2C* 



+ = STANDARD ENTRY 
- * INITIAL ENTRY 

V¥l A X A E A L AJi I?Lspcsiti c n~ " 

LET C = STATUS OF NEXT JOB 
ZERO = ACCEPT NEXT JOB 



18000016 
18000017 
180 00018 
18000019 
18000020 



21* 
22* 
22* 



ONE = _R E J EC T NE X J JOB 
LET D = MODE 

ZERO = OVERLAP MODE 



18000021 
18000022 
18000023 



24* 
21* 
26* 
21* 



_nqi_?§rg_=_ not overlap mod e 
let bit .26 = ownership 
zero - pp owner 
"not ""zero"" =~mcp~o~wn¥r" "" 



18000024 
1800002b 
18000026 



18000027 



Kfll 



TIME CLOCK CCC54C41 PUNID 11C11IPL CARD IC 180C0C29 CIST. OF 3/C1 3/01 PAGE NUMBER 82 £ 



V 



LINE LOCATION 3If\ARY OUTPUT NAME STATEMENT LOCATION s 



1* 



— 18000029 

HCW THE UTILITY TABLES ARE COMPUTED AND PLACED 18000030 



L 
8 
6 

01 
I [ 
SI 
£1 

V[ 



1800 00 31 
18000032 



i « 



IC* 



WHEREAS,- B = S 18000033 ?! 

91 



t* - S + R = F 18000034 



si 



7* - F+(I*7)=L 1800003b 61 

05 

t* - U+(R«9)=P 18000036 

"ci -■ --- - -_- P + N = TMARhT" 18000037" 



18000038 



11» - LET,- B = THE -6- LIMIT FROM THE LIM CARD 18000039 

I II 1 1 2 * Z II~ZI~~ZZZIIIIIZIIIIZIIIZZZ~IIZIIZIZZZIIZIIZ!I ^-Z IIIIZIIZZIZZIZZIZIIZ =1 tB eI ]FjksjC ^oKcf Zo>^ IChe Zs y m b c l r c 1 1 7pl 1. pel t^ableI Z I ZII 1 1 Zi b o Q oq ^^1 

12* - r = THE LARGEST REFERENCE NUMBER PER PP 18000041 

14* F » THE FIRST LOC OF THE FILE AREA TABLE 18000042 

Hill C* II IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII "I IIIIIIIIIIIIIIIIIIII^I JHJFl NU^^JEJ^IICFI lIC^cZlQlARpS SUB^ I J JEpI B Yl >>I I IIIIl80000^3 
It* - U = THE FIRST LOC OF THE UNIT AREA TABLE 18000044 

17* - R = THE NLMBER OF DIFFERENT I/O UNITS REQUESTED BY PP 18000045 

I Z Z ZCC* ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZIIIIIII z-I IIIZZZZZZZZZZZZZZ Zp Z= Z i B fc Z EIb s TZ ApT>REsisr Zq!C Z"lB"C Z^€!^C Zp qq CZ J abj_jC ZZZZZZZZZZZ Z£«o o 00^6 1 

1^* N = THE NUMBER OF INDIVIDUAL REEL REQUEST 18000047 

20 

" 2C* - TMARK = THE NEXT SLOT AVAILABLE FOR USE 18000048 

I 18 

17 21* 

16 

i is 

14 
13 

I » 

11 
10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



18000049 



wai 



TIME CLOCK CCC54C41 FUNIC 11C11IPL CARD ID 18000051 DIST. OF 3/01 
LlNE~"~ly^JJ^^ BINARY" CUT PUT NA~M~E STATEMENT 



3/01 



PAGE NUMBER 83 
LCCATTON 



i 
t 

v { 

9 

9 

I I 

9 

6 



1* 
2* 

i * 



PRNS 



EXTRA CONSTANTS FOR THE PROGRAM - MOVE - 



18000051 
18000052 
180G0053 
18000054 



{ 



61. ( 



t * 

fc* 

9 * 

H* 



004627, 

0C463C, 
0C463C, 
0C463C, 



AC 
CO 
14 
44 



0CCCCC.3C CO 



7 77 7 



T MMAX 
T MIGD 
T MREEL 



CNOF 
DD(E 
(AX) 
(AX) 



n* 

12* 

12* 
14* 
15* 
H* 
II* 

~ie* 

19* 
2C* 
21* 
22* 
'23* 
2< * 
25* 
26* 
27* 
2i_* 

Vlt 
~3C* 
31* 
32* 
33* 
34* 
3 5 * 



004630. 

004631", 

004631 

0C4632, 

0C2155, 

002157 , 

00215 3] 

CC2155, 

002162, 

00CC21 
00CC22 
0CCC23 
00CC24 
00C025 
0CCC26 
0CCC27 
CCCC3C 
00CC31 
CCC032 
00CC33 
C0CC21 
000034 



U,12) ,4095 
DC(eU,24,6),I0C X 
DD(BU,24,6),REELX 



74 
C2 
10 
CC 
C0 + 
40 + 
CC + 
4C + 
40 + 

.CC + 
.CC + 
.C0 + 
. CO +" 
.CC + 
.C0 + 
.C0 + 
.C0+^ 
• c c +_ 
.00 + 
.C0 + 
.00 + 
.00 + 



CCC0CC.0C+ 
+0CCCC0C0 

+ c_ccooqcq 

___tQ.cc_ooqcc 

+OCCCGGCC 
+CCCC00C0 

+CCCG00CC 
_ +0C C CO 0_C C 
l + _ c c _ c _ c _G_0_C 0_ 
~" +CCCOOOCO 
+GCCCOOCC 
+0CCCO0C0 
+CCCC00C0 

+_cc_c_coo_c_o_ 
_y+pcccc[occ 

+OCCC0OCC 
+OCCOOOCO 
+CCCOOOCO 
+OCCCOCCO 





1 


LBL 


(AX)0D(eU,6,6) ,LX 




T 


NOP 


(AX )DC(eU,6,6),NX 




T 


M6BL 


(AX )DC(EU,48,6), 




T 


ERFLG 


VF,C 


B ,31 ,01 


T 


LIMB 


SYN,SBAPP 


B ,31 ,01 


T 


SYRFT 


SYN.SSYRFT 


B ,31 ,01 


T 


BAMCP 


SYNtSMAXUB 


B ,31 ,01 


T 


MAXRF 


SYN,SMAXRN 


B ,31 ,01 


T 


MARK 


SYN.SMARK 


BU t ICCiIC 


T 


MX1 


SYN,$1 


BUilCCtlO 


f 


MXA 


SYN, $2 


8U,1CC,10 


T 


MXB 


SYN, $3 


BU f 1CC10 


r 


MXC 


SYN, $4 


BU,1CC,1C 


T 


MXD 


SYN,$5 


BU,1CC,10 


T 


MXE 


SYN, $6 


BU,100,10 


T 


MXF 


SYN, $7 


BU,1CC,10 


T 


MXG 


SYN, $8 


BU,1C0, 10 


T 


MXEE 


SYN, $9 


BU t ICOtIO 


T 


MXI 


SYN, SIC 


BU f 100,10 


T 


MXGA 


SYN, $11 


BUf lCCt 10 


T 


MXH 


SYN, TMX1 


BU,10C,10 


T 


MLXA 


SYN, $12 



-THE VERY MAX DISK REQ POSSIBLE 

- BCD CODE FOR ICD 

-BCD CODE FCRA REEL CARD 

-LABELED CHARACTER _ 

-NOT PR T EC f CH ARAC T LR 
£ 

-IOD CARD ERROR INDICATOR 
-UPPER BOUNDARY OF A PP 

-THE ADDRESS OF THE TRACK AVAIL TO 
"-FOR CHECKING" THE UPPER LIMIT OF A 

-THEMAXREF NC. PER PP 

-THE NEXT VACANT REEL SLOT FOR PP 



18000055 

18000056" 

180C0057 

18000058 

18000059 

18000060 



PP 
PP 



IX 



"_ p _ p _ _ R A F _ _^° R D L C C A T C R _ 
-I /OReq TABLE PI.CK UP" 
-SYMB I/O TABLE INCEX" 
-FILE AREA TABLE INDEX 
-UNIT AREA TABLE INOEX 
-REEL POOL INDEX 
- T E MP R AR V _ I N E X 

■ T em pc ir a r y Index 
-control Word index" 
-temporary index 



-CONVERSION R0LTINE INDEX 



180C0061 

18CC0062 

18000063 

180G0064 

18000065 

18C00066 

18000067^ 

18000068 

18000069 

18000070 

18000071 

1800C072 

18000073" 

"18000074 
18000075 
18000076 
18000077 
18000078 
18000079" 

"18000080 
18000081 
18000082 
18000063 
18000084 
1800 0085 



20 
19 
18 
17 
16 
15 
14 
13 
12 

11 

10 
9 



36* 
37* 

3£* 
39* 
4C* 



SAVE AND RESTORE ARlA FOR INDEXES 



004632.40 
004633. CC * 



CCCC00.30 CO 
CC0C17.CC 



CNOP 
T SIOXW DRZ(BU,64), ( 15) 



18000086 
18000087 
18000088 
18000089 
18000090 



4 1* 
42 * 



18000091 
"18000092" 



004652. CC 



CCCCCC.CO+ 



T DKSAV VF,C 



-ADDRESS OF THE UNIT TABLE 



wai 





I IME CLOCK CCC5 


4C41 PUNIU 11C11IPL 


CARD 


ID 


18000094 CIST. OF 3/C1 


3/01 PAGE NUMBER 84 






LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 






1* 
I * 


















18000094 
18000095 












— 




THE UNIT NAME 


TABLE 




2 «. 


















18000096 
1800009/ 




* * 


004653. CC 


CC4654.00+ CCO 


000000 CCCC20 


T 


UNXW 


XW, TUNATB,0, $C 


-RESET INDEX 




5* 


004654. CO * 


C0CC62.CC 






T 


UNAT8 


DRZ(BU,64), (50) 


-THE CHAN/LMT NAME TABLE 


18000098 




6* 


000000.00+ 


+CCCCOOCO 


BU,6C 


,10 


T 


CHNM 


SYN(BU,48),0.G 


-SYMBOLIC CHAN NAME 


18000099 




7* 


C0CCCC.74+ 


+OCCOOCCO 


BU,G4 


,10 


1 


UNTYP 


SYN{BU,4),0.6C 


-THE EQUIP TYPE REQUESTED 


18000100 




e* 


0CCCCC.60+ 


+CCCOOOCO 


eu,i4 


,10 


T 


UNREF 


SYN(BU,12),C.48 


-REF NO IN THE UNIT NAME TABLE 


18000101 




s* 


0CCC31.C0+ 


+OCCCCOCO 


BU,6C 


,10 


T 


UNME 


SYN(RU,48),25.0 


-2ND TABLE — UNIT NAME 


18000102 




1C* 


000031.60+ 


+CCCOCOCC 


BU,14 


,10 


T 


DSKRF 


SYNCBU, 12), 25. 48 


-REF NUMBER OF NULL DISK OR TRACK 


18000103 ! 




n* 


0CC031.74+ 


+CCCOCCCC 


BU,C1 


,10 


T 


CTRK 


SYNIBU, 1),25.60 


-ONE IF TRACK - ZERO IF CISK 


18000104 




12* 


0CCG31.75+ 


+OCCCCOCO 


BU,03 


,10 


T 


CKCT 


SYN(RU,3),25.61 


-RELATIVE ADDRESS OF ALLOCATION COUNT 


18000105 1 




12* 










- 








18000106 




14* 










- 




THE DISK ALLOCATION TABLE 


18000107 




15* 










- 








18000108 




If* 


004736.00 


004737.05+ OCO 


000004 C04736 


T 


CCLRX 


XW,TSBDFT,4,$ 


-INDEX WORD FOR CLEARING 


18000109 

18000110 




17* 
IE* 
19* 
2C* 


004737. CC * 
CC4737.C5+ 


CCCC04.C0 
+0CCC0CC0 


60,14 


,1C 


T 

T 


SBCTB 
S6DFT 


DRZ(RU,32),(8) 
SYN(BU, 12),TSeCTE+ 






,C5 -DISK ALLCCATICN TABLE 


18000111 
18000112 
18000113 












— 




THE FORMAT OF 


TEE IOD CARD BREAKDOWN TABLE 




21* 
22* 


















18000114 
18000115 












_ 










22* 


0CC0C1.CC- 


+OCCCCCCO 


BU»6C 


,06 


T 


JCNME 


SYNIBU, 48, 6), -l.C 


-JOB NAME FCRMAT FOR BREAKDOWN TBL 


18000116 




2<* 


OOCCCC.CO+ 


+CCCOOCCO 


BU,22 


,10 


r 


IABEX 


SYNlflUt 18), CO 


-THE ABSOLUTE EXIT ADDRESS 


18000117 




25* 


0CCCC0.64+ 


+CCC000C0 


BU,14 


,10 


T 


1REF 


SYN(BU, 12), 0.52 


-THE REF NUMBER 


18000118 




26* 


00CC01.C0+ 


+OCCOOGCC 


BU,3C 


,1C 


T 


ICP 


SYNIBU, 24), 1.0 


-OP CODE FIELD 


18000119 




27* 


00CCC2.CC+ 


+OOCOOOCO 


BU,52 


,10 


T 


ITY 


SYNIBU, 42), 2. C 


- THE TYPE FIELD 


18000120 




26* 


0CCCC2.C0+ 


+OOCOOOCO 


BU,6C 


,10 


T 


IREEL 


SYN(RU,48),2.C 


-FCRMAT AND POSITION OF REEL NAME 
-TRACK CODE BIT 


18000121 
18000122 




2?* 


0CCCC2.73+ 


+CCCCOOCO 


BU,01 


,10 


r 


ITRK 


SYNIBU, 1) ,2.59 




3C* 


0CC002.74+ 


+OCCCCOCC 


BU,04 


,1C 


T 


ITYCD 


SYN(RU,4) ,2.60 


-THE TYPE FIELD CONVERTED 


18000123 1 




31* 


0CC0C4.CC+ 


+OCCCO0CC 


BU,60 


,10 


T 


ICH 


SYNIBU, 48),4.0 


-CHANNEL FIELD 


18000124 




32* 


00C0C5.C0+ 


+CCCCCOCC 


BU.60 


,10 


T 


IUN 


SYN{BU,48),5.0 


-THE UNIT FIELD 


18000125 




32 * 


000005.00+ 


+CCCOOOCO 


BU,60 


,10 


T 


INO 


SYNIBU, 48), 5.0 


-THE NUMBER FOR DISK 


18000126 




34* 


0CCCC6.00+ 


+OCG000CC 


BU,36 


,1C 


T 


I MO 


SYN(BU,30),6.0 


-THE MODE FIELD 


18000127 




35* 


00CCC6.76+ 


+0CCCC0CC 


BO, 02 


,10 


T 


IMOCD 


SYN(BU,2),6.62 


-THE MODE FIELD CONVERTED 


18000128 




36* 


O0CCC7.0O+ 


+CCCC0000 


BU,14 


,10 


T 


ICN 


SYNIBU, 12), 7.0 


-THE DENSITY FIELD 


18000129 




37* 


000007.76+ 


+OCC0O0C0 


BU f 02 


,10 


T 


IDNCO 


SYNIBU, 2) ,7.62 


-THE DENSITY FIELD CONVERTED 


18000130 


20 


3£* 


C0C01C.0C+ 


+O0C0O0C0 


BU,36 


,1C 


T 


IDS 


SYN(BU,30),8.C 


-THE DISP FIELD 


18000131 


19 


39* 


00C01C.76+ 


+OOCCCGCC 


BU,02 


,10 


T 


IDSCD 


SYN(BU,2),8.62 


-THE DISP FIELD CONVERTED 


18000132 


18 


AC* 










- 








18000133 
18000134 




41* 










- 














16 


42* 
42 * 










— 




SYN CARDS FOR 


THE LNIT AREA TABLE 


18000135 
18000136 




















14 


44* 










- 








18000137 


13 


45* 


000000.00+ 


+0CCG0OL1 


BU,06 


,10 


T 


UNLGN 


SYNIBU, 6), 9 


-THE UNIT AREA TABLE LENGHT 


18000138 


12 


46* 


OCCOOC. 14 + 


+OOCCCOCC 


BU,G7 


,10 


T 


ChANN 


SYNCBU, 7), 0.12 


-THE CHANNEL NUMBER 
-THE UNIT NUMBER 


18000139 
1800C140 


11 


4 7* 


CCCC00.57+ 


+CCCCOOCO 


BU,03 


,10 


T 


UNITN 


SYNIBU, 3), 0.47 


10 


46* 


CCCC01.06+ 


+CCCOOOCO 


BU,14 


,10 


T 


ICCK 


SYNlBUf 12), 1.6 


-THE IOD COUNT 


18000141 


9 


4S* 


0CC003.00+ 


+CCCOOOCO 


BU,22 


,10 


T 


FIAAC 


SYNIBU, 18), 3.0 


-THE FILE AREA TABLE ACTIVATED 


18000142 


8 


5C* 


000007.31+ 


+CCCCOOCO 


BU,01 


,10 


T 


SYSTM 


SYNIBU, 1) ,7.25 


-SYSTEM TAPE IF A ONE 


18000143 


7 


51* 


0CCC1C.C0+ 


+COCOOOCO 


BU,22 


,10 


r 


FRLAD 


SYN(8U, 18), 8.0 


-FIRST FEEL ADDRESS 


18000144 


6 


52* 


0CCC1C.40+ 


+CCCCCOCC 


BU.22 


,10 


T 


CREEL 


SYN(BU, 18), 8. 32 


-CURRENT REEL ADDRESS 


18000145 


5 


52* 


0CC01C.71+ 


+GCCCOOCC 


BU,07 


,10 


T 


REELK 


SYN(BU,7) ,8.57 


-CURRENT REEL COUNT 


18000146 


4 

3 
2 

1 


i 



wai 



time clock 00054041 
"l In e lcca tTgn 



FUNIC 11C11IPL CARD IC 18000148 UIST. OF 3/Ci 
_ _ _ _ __ _ _ _ _ _ _ _ ^_ „ _ _________ 



3/01 



PAGE NUMBER 
L C A TTGN 



85 



1* 
.* 
2* 
4* 



SYN CARDS FOR FILE AREA TABLE 



18000148 

18000149 

18000150 

18000151 

18000152" 

18500153 

18000154 

18000155 

18000156 

18000157 

18000158 

18000159" 

18000160 

18000161 

18000162 

18000163 

18000164 

18000165 

18000166 

18000167 

18000168 

18000169 

18000170 

18000171 

18000172 

18000173 

18000174 

18000175 



s 

9 

3 
6 
0! 
II 



6* OCCCCC.CC+ 

7* 000C00.00+ 

£* CCCC02.00+ 

c .* 000002.33 + 

IC* 000002.35+ 



+00C0G0C7 
+0CCCC0G0 
+GCG000C0 
+CCG0O0C0 
+00C000CG 



BU,C6 
BU,22 
BU,22 

BU,02 
BU,03 



.10 
,10 
,10 
,10 

,10 



T FLLGN 

1 IOCRN 

T TCELO 

T DENMD 

T REELO 



SY;N(3U,6),7 
SYN(BU, 18), 0.0 
SYN(BU, 18), 2.0 
SYN(BU,2),2.27 
SYN (BU, 3), 2. 29 



-THE FILE AREA TABLE LENGHT 

-IGD REF NUMBER 

-TABLE CF EXITS LOG 

-THE FILE AREA DENSITY MODIFIER 

-REEL DISPCSITCN 



__* 
12* 

12* 

14* 

15* 

16* 



0CCCG2.60+ 
00C0C5.G6+" 
0CC0C5.46+ 
0CCCC6.C6+ 



+_c_cccqcco 

+CCCCOOCO 
+CCC000C0 
+0CC000C0 



BU_t0 2_ , 1C_ 
BU,~14 ,10 
BU,14 ,10 
BU,14 ,10 



J_fJ f CDE SYN^BU, 2 ],2. 48 

T CRARC SYN1BU, 12), 5. 06 

T MXARC SYNfBU, 12), 5.38 

T CUARC SYN(BU, 12), 6. 06 



-file mode 
Original arc 
-maximum arc 
-current arc 



17* 

It* 
IS* 

2C* 000000.31+ 

21* 000000.32+ 

22* 00C0CC.33+ 

22* _CCCCC._j2+" 

24* 

25* 

2i* 

21* 

2f* 



THE FORMAT CF THE REfcL POOL 



+CCCOOOCO 
+OCCOOCCC 
_+_0_C_C_CC_C_C_0 
+CCCCCOCO 



BU,01 ,10 

BUiOl ,10 

bu, oi ,10 

BU,~36 ,10 



T RENTY SYN(BU, 1) ,0.25 

T REPR SYN(BU, 1) ,0.26 

TRELB _SYN(BU,1),0.27 

T RENME SYN(BU,3C~),6.34~ 



-A ONE IF A REEL WAS 
-REEL PRGTECT BIT IF 

- RE EL LA BE LEO IF ONE 
-REEL NAME FORMAT 



ENTERED 
ONE 



HERE 



THE TYPE SCAN TABLES 



~3C* 
31* 
32* 

22* 
34* 



0C4743^CC 
004744.00 

004744.31 
004745. C3 
CC4745. 10 



C C 4 7 44 . 3 1+ _C C OGOOIOOCCCCO 
CCC0CC.C5- 



J_ S_C_I_X1 __. _ L T SCAN 1,8,0 
T SCBK1 VF,-5 

T SCAN1 ( AX)DD(BU,42,6),C0NS0LtX 
DD{ DU,5) ,2 
(AX )DD(BU, 42,6) , DISK X 



-IH DEX _F R TYPE SCAN 

- THE B A C K UP "CONSTANT TO G E T T H E CODE" 



18000176 

18000177" 

18000178 

18000179 

18000180 

lBOCOlal 



02 

cl~ 

C3 
04 



20 
1? 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
i 
5 
4 
3 
2 
1 



35* 
36* 
3 7* 
3£* 
3c* 
4C* 



0C4745.62 
"004745.67 
004746.41 
004746.46 
0C4747.2C 
004747.25 



D_D_(e_U,_5), 1 

"( AX") DO ( BU ,'42 , 6 ) .READER X" 
DD{OU,55,3 

(AX)DD(BU,42,6) , PUNCH X 
DD(BU,5) ,4 
( AX)CC{BU,42,6),PRINTERX 



18000182 
180001 a 3 
1800G184 
18000185 
18000186 
18000187 
18000188" 



4 J* 
42* 
42* 
44* 
45* 
46* 
47* 



004747.77 

00475C.C4 

CC475C 

004750 

004751 

004751 



56 
63 
35 
42 



004752. 14 



_G_5_ 

06 

21 

To" 



C( _ { ______»__ 

TAX)DD(BU,42,6),IQS 
DD(BU,5),6 

( AX5CD(BU,42,6),TRACK 
CD(BU,5), (2)10001 
(_A X )_D D l [_ B U , 4 2 j 6 ) , J _A _P _E_ 

"0DIBU,5),8 



-SPECIAL TRACK IND 



18000189 
18000190 
18000191 
1800C192 
18000193 
18000194" 



wai 



TIME CLOCK CCC54C41 



PUNID 11C11IPL 



CARD ID 18000196 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



86 



L 1 N fc" 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LCCATICN 



1« 
2* 

2 * 

l # 



TEE MOUE SCAN TABLES 



_i?_QC47 5 3_.0p_ 

i* 004754. CO 

< * 

fc* 

S* 
1C* 



CCA 7 54 ^31 + 

CCC0CC.02- 



CCO 000005 OCCCOC 



004754.31 
004754.67 
004754.71 



LACI_X2_ XW t TSCAN2f 5_,0 
r SCBK2 VE.-2 

T SCAN2 {AX)DD{BU,3C,6), X 
DD<BU,2),C 
( AX)00(BtJ,30,6},CCC X 



-INDEXFCRMODE SCAN .TABLES 
-BACKUP CONSTANT TO GET CODE 



18000196 
18000197 
18000198 
18000199 



1 80 02 00_ 
'18000201 
18000202 
180C0203 
18000204 
18000205 



U* 

12* 
12* 
14* 
15* 
1£* 



0C4755_.2_7_ 
OC 47 5 5. 31 
004755 
004755 
004756, 



DDtBUtZJil^ 

(AX)DD(BU, 30,6) , CDC X 

0D(BU,2),3 

(AX)DD(BU t 30f6)f EVEN X 

DD(BU,2},2 

(_AX ) CDiBUj 30 , 6J_,_N0ECCX_ 



18000206 
18000207 
18000208 
18000209 
18000210 
18000211 



.67 
71 
27 



004756.31 * 



II* 

ie* 
is* 

2C* 
2\* 
22* 



C C 4 7_5 6_._67_ 
004756.71 



0CLBUi2i 1 3 
DD(BU,2),3 



i §00021 2 
18000213 
18000214 
18000215 
18000216 
18000217 



-AN ERRCR WILL BE NULL 



THE DENSITY SCAN TABLE 



22* 

24* 004757.00 
25* 00476C.CC 
2(5* 00476C.31 
27* 0C476C.45 
2£* 00476C.47 



18000218 
180002 19 
18000220 
18000221 
18000222 
18000223 



CC476C.31+ CCO 000003 
CCC0CC.C2- . 



OOCCOC T SCIX3 XW, TSCAN3,3,0 
T SCBK3 VF,-2 

T SCAN3 ( AXJDDlBU, 12,6) ,HCX 
1 DD(BU,2),1 

(AX)DD{BU,12,6),LDX 



-IX FOR DENSITY SCAN TABLE 
-BACKUP CCNSTANT TC GET CODE 



2i*_004760 J .63 
3C» 0C476C.65 
31* 004761. CI 
32* 004761.03 
33* 
34* 



CC{_0U t 2) ,3 

(AX)DD(EU, 12,6), 

DD(BU,2),C 

DD(BU,2),C 



18000224 
18000225 
18000226 
18000227 
18000228 
18000229 








-ERROR WILL BE NULL 



3E_« 

36* 
3/* 
3f* 
3S* 
4C* 



18000230 
180002 31 
18000232 
18000233 
18000234 
18000235 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
t 
5 
4 
3 
2 
1 



THE DISPOSITION SCAN TABLE 



004762.00 

004763.00 



004763.31+ 

CCC0CC.03- 



000 000005 OCCOOC 



SCIX4 XW,TSCAN4,5,0 
SCBK4 VF,-3 



-IX FOR THE DISPOSITION SCAN 
-BACKUP CCNSTANT TC GET CODE 



TABLE 



Ait 
42 * 
42* 
44* 
45* 
4£* 



18000236 

18000237" 

18000238 

18000239 

18000240 

18000241 



004763.31 
004763.67 
004763.72 

004764.30 
004764.33 



T SCAN4 (AX)DD(BU,3C,6) .NSAVEX 
ODCBUt 3)tC 

( AX)DD(BU,30,6), X 
DD(BU,3),0 
(AX)DD(BL,3C,6) ,CSAV£X 



47_* 

46* 
49* 
5C* 
51* 
52* 



QC4764_.7i 
004764.74 
004765.32 
004765.35 
004765.73 
004765.76 



_1_ 

2 

3 





DD(_ey,3i,i 

( AX)CC{80,3C,6), ISAVEX 
DD(BU,3),2 
(AX)DD(BU,3C,6) ,SAVE X 

DD{fiU,3),3 
DC(BU,C3) ,0 



18000242 
18000243 
18000244 
18000245 
18000246 
18000247 



-AN ERRCR WILL BE A NULL 



wai 



TIME CLOCK C0054041 



PUNIC 11C11IPL 



CARC ID 18000249 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 



87 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

3 * 



THE DUMMY TABLES FOR THE UN-ASSIGNMENT CF THE REJECTED JOB 



18000249 
18000250 
18000251 
18000252 



t * 

"I* 

I* 

£* 

S* 

1C* 



0C47 6 6_.4_C_ 
'004767. CC 
004767.40 
004770.00 
004770.40 



_CCCCC0.,3C 
CC4771.0G+ 
CC4773.GC+ 
CC50C2.00+ 
CC50C4.C0+ 



CO 



CNCF 
VF,tCAT 

VF.TBIRD 
VF,TCOT 

VF,TBOID 



1800 02 5 3 
18000254 
18000254 
18000255 
18000255 
18000256 



T DSIC 



-SAVE TAPES 



11* 
12* 
13* 
14* 
15* 
16* 



004773. CC 
004775. CC 
0C4776.CC * 
C05C01.CC 



c_c_c_cc2._cq 

CCCC02.CC 
CCC0CC.00+ 000 

CCCCC3.00 
CC5013.00+ 



TCAT 



T BIRD 



140000 OCOOOO 



_DRZ(_N),2__ 

DRZ(N),2 
XWf i .31)3 
DRZIN), 3 
VFf TWCRM 



„- D U M M YUNITAREA 

-DUMMY FILE AREA 
-SET TO SAVE 

-MORE FOR THE UNIT AREA TBL 



18000257 

18000258" 

18000259 

18000260 

18000261 

1800026? 



11* 
Lt*~ 

19* 
2C* 
21* 
22* 
23* 



00 5C01.4C 
0C5CC1. (I 

0C5C02.CC 
005C04.CC 
005C12.CC 
005012.40" 



CC5013.CC+ 



C0CCC2.CC 
C00CC6.CC 

iL c A°_ l _ 3 _» o_o + _ 

CC5013.~00 + 



VF^TVvCRM 
001 ~ DC( BU,7~)f {16)01 

T COT DRZ(N),2 
T EOID 0RZ(N),6 

VF,TWORM 

'_ ' __ _ VF L TWCRM 

CC1 ~DC{BU,7) f l 16)01~ 



CCCOCC.OO+ 110 000000 GCCOOO T V»CRM XW,(.26)3 



18000262 
18000262" 
18000263 
18000264 
18000265 
18000266 
"18000266' 



2** 
25* 
26* 
27* 



005012.71 
0C5C13.CC 



-THE DUMMY REEL POOL —PROTECT 



18000266 
18000267 
18000268 
18000269 



20 
19 
IS 
17 
16 
15 
U 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 
2 

1 



wai 



1IME CLOCK 00054041 PUN1D UC11IPL CARD ID 180C0271 

C In e l c c a tTcn " " " ~ ~b i is a r y~ cut hut name 



DIST. OF 3/C1 

"staTemenT 



3/01 



page number 88 
location 



1* 
2* 
2 * 
< * 



THE 



MOVE - SUB-ROUTINE 



18000271 
18000272 
18000273 
18000274 



I * 



180002/5 



6* 
1* 

fc* 

S* 

1C* 



0C5C14.CC 

CC5C15.00 
,005016. CO 
005016. 4C 



0CCC21.CC 80 



004632. CO 
C0CC00.24 
COCCCC. 56 



80 
IF 

8F 



004633. 3C EC 
022000. CO FO 
022000. C7 7C 



T MOVE SWAPI, 12,11, TSICXW 

CMOOOOIRU, 18) ,TERFLG 
LX, TMXI,0.0{ $15) 
_CTOCll( 8U, 18 ),0.46J $ 1_5_)_ 



-SAVE INDEXES 

-RESET THE ICD CARD ERROR INC 
•GET CONTROL WORD FOR ENTRY CK 



18000276 
18000277 
18000278 
18000279 
18000280 



lit 
12* 
13* 
14* 
15* 
16* 



QC5C17.4C 
00 502C.C0 
005021.00 

0C5C21.40 

0C5C22_.4_Q_ 
0C5C23.4C 



_C_C_54_C_2._34_C0 
CCCC32.30 80 
C05313.3C C2 

C0CC01.C0 8A 

_C0_46 30._14 30 

CC5264.76 CO 



_BZRZ t TMREJ___ 
CM0C00(BU,l),tMXI+24 
BXVLZ.TM2 



C0011,TICP{TMXI ) 
^Ftl^IQC 

RZAE.TM6 



_~ I_F_ _A_ .DISPATCHER RE J EC T 
-SET THE SIGN PLUS 
-IF INITIAL ENTRY 

-LOAD OP CODE FOR TEST 

_-TEST_FCR_IGD 

-NOT AN IOD -CARD 



18000281 
18000282 
18000283 
18Q00284 
18000285 
18000286 



0C1000.CC FO 



030000.06 70 
030600.23 1C 



T Ml 



II* 

18* 
IS* 
2C* 
21* 
22* 



18000287 
18000288 
18000289 
18000290 
18000291 
1800C292 



CONVERT THE NECESSARY FIELDS OF THE IOD CARD 



lit 
24* 
25* 
26* 
21* 
2£* 



005C24.CC 

QC5C24_.4C 

005C25.CC * 



COCCCC 
AQ4 743, 

CCCCC2. 



27 

20 
CC 



CI 
8A 



005026.00 
005027. CC 
0C5C27.4C 
005C3C.CC 

005C30.4C 



CCCCCO, 

005C31 

005C26. 

CCCC20, 

CC5C31. 



57 

36 
30 
27 
5C 



88 
C2 
40 

05 
CC 



052000. 0670 
252600.23 10 



T ML0K1 



LVI,TMXGA,0.0 
_L_X,_IMXG,TSCIX1 
C0~011 t TITY{TMXI ) 
KFfV+IC) (BU,42,6) 
BAE.TMOKl 
BZXCZ,TMLGK1 
V+I,TMXGA, 16.0 
B.TGET1 



-RESET THE ERROR FLAG INDEX 
H3ET_ THE NUMBER QF SCAN 

-GET TYPE FIELD 

, ,47(TMXG) 



•A TYPE FIELD ERROR 



18000293 
18000294 
18000295 
18000296 
18000297 
18000298 



2i« 

3C* 
31* 
32* 
32* 
34* 



QQ5C31.CC 
0C5C31.4C 
005C32.4C 

005033.40 
QQ5C34.4C 
005C35.40 



GOCCCC, 
CCCCC2, 

CO0CO2. 
C4_C_C„C_0_. 
C05C72. 



2_C _P_C 
CO 88 

73 8A 

74 8A 

CO. 8 _P_ 
76 C2 



J MOKl. V + »_IMXG,TSCEK1_ 

T GET1 LF(BU,5),C.0(TMXG) 

SF(BU,5),TITYCD-11TMXI) 

BB,TITYCD(TMXI ) ,TMNGA 
KFI (BU,4^ f 0CI_ 



18000299 

18000 300" 

18000301 

18000302 

18000303 

18000304 



005000. C6 70 
005000.12 FO 

005045.74 02 
404000.23 10 



-STORE THE TYPE CODE 



-GO IF TAPE 
-LOCK FOR A 



DISK 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 005036. CC C04753.2C 10 

37* 005036.40 000CC5.C0 8A 

3€* 005C37.4C COCCCC. 40 88 

3S* 005040.40 * CC5042.76 C2 

4C* CC5C41.CC C05037.7C 40 



036000. C6 70 
236600.23 10 



T MLCK2 



Alt 
42* 
42* 
44* 
45 * 
46* 



QQ5C4K4C 

005C42.00 

005042 

005043 

005044 

0C5C45 



_CC C_C_0_4_« 
CC5043. 
C04754. 
OOOCGO. 
C0CCC5. 
CC5C72. 



27 

10 
20 
CO 
76 
50 



C5 
CO 
BO 
88 
8A 
CO 



BAE_,_TMNG 

LX,TMXG,TSCIX2 

LF,TIM0-1.0< TMXI ) 

KF(V+IC)(flU,3C,6),0 

BAE,TM0K2 

BZ_XCZ t TMLGK2 

V+I ,TMXGA,04.C 



__r_Y_E_s 

-LOAD FOR 
-GET CARD 
32(TMXG) 



MODE SCAN FOR 
MACHINE MODE 



CARD MACHINES 



-A MODE FIELD ERROR 



18000305 
18000306 
18000307 
18000308 
18000309 
18000310 



18000311 

18000312" 

18000313 

18000314 

18000315 

18000316 



40 
CO 
CC 

CC 



002000. C6 7C 
002000.12 FO 



B.TGET2 
T MGK2 V+,TMXG,TSCBK2 
T GET2 C0011(BU,2) ,0.0{TMXG) 

CM0101,TIM0CD-1.C(TMXI) 

_B_,_TMNG_ 



-NON TAPE FINISHED 



4 7* 
48* 
49 * 

5C* 
51* 
52* 



005045. 40 
005C46.CO 
005C47.C0 
005050.00 
0C5C5C.4C 



004753. 
00CC06, 
CCCCCO. 
C05C52- 
CC5C47. 



20 
CO 
4C 
36 

30 



10 
8A 
88 
C2 

40 



036000. C6 70 
236600.23 10 



T MNGA LX,TMXG,TSCIX2 

LF,TIMO(TMXI ) 
T MLCK5 KF(V+IC) (BU,30, 6), .321TMXG) 

BAE,TMCK5 
BZXCZ,TMLCK5 



-LOAD TO TAPE MODE SCAN 



18000317 
18000318 
18000319 
18000320 
18000321 
18000322 



53* 
54* 
55* 
56* 



Op5C51.CC_ 
0C5C51.40 
005052. CO 
005052. 4C 



CO C C 04 , 
C05C52, 
CG4754, 
COCCOO, 



27_05 
5C CO 
20 BO 
CO 88 



V+L»IMXGA,04.C 
B,TGET5 

V+,TMXG,TSCBK2 
LF(BUi2) f O.O(TMXG) 



-MODE FIELD ERROR 



1800032 3 
18000324 
18000325 
18000326 

wai 



002000. C6 70 



T MCK5 
T GET5 





f I 


IE CLOCK CC054C41 PUNIO 


11C11IPL 


:ard 


ID 


18000327 DIST. OF 3/01 


3/01 PAGE NUMBER 89 


! 




LINE LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LGCATICN G05053 






1* 


005053. 4C * 


00CC06.76 


8A 


002000.12 


fc 






CMC1C1,TIM0CD(TMXI ) 




18000327 




2 * 












- 








18000328 




2 * 


0C5C54.40 


CC4757.20 


10 










LX,TMXG,TSCIX3 


-LOAD FOR DENSITY SCAN 


18000329 




4 * 


005055.00 


CCCC07.CC 


8A 


014000.06 


7C 






C0011,TICN( TMXI ) 




18000330 




5 * 


005056. CO 


COGCOO. 16 


88 


214600.23 


10 


r 


ML0K3 


KF( V+IC) (EUi 12, 6), 0.14 {TMXG) 


18000331 




6* 


C05C57.C0 


C05C61.36 


C2 










BAE,TMGK3 




18000332 




( * 


005057.40 


CG5C56.3C 


40 










BZXCZ,TML0K3 




18000333 




t* 


0C5C60.00 


G00CC2.27 


C5 










V+I,TMXGA,02.0 


- A DENSITY FIELD ERROR 


18000334 




S* 


005060.40 


C05C61.5C 


CO 










B,TGET3 




18000335 




1C* 


005061.00 


004760. 2C 


BO 






T 


MCK3 


V+,TMX0,TSCBK3 




18000336 




11* 


0C5C61.40 


COCCCO.CO 


88 


002000. G6 


70 


T 


GET3 


C0011(BU,2),0.0{TMXG) 




18000337 




12* 


005062.40 


CCGCG7.76 


8A 


002000.12 


FC 






CMOlOltTICNCOtTMXI ) 




18000338 




13* 












- 








18000339 




14* 


005063.40 


004762.20 


10 










LX,TMXG,TSCIX4 


-LOAD FOR DISP SCAN 


18000340 




15* 


005064.00 


C0GC10.OO 


8A 


036000.06 


70 






C0011,TIDS(TMXI) 




18000341 




16* 


005065.00 


C0CCC0.41 


88 


236600.23 


1C 


T 


MLCK4 


KF{ V+IC) (BU, 30, 6 1,0. 33 (TMXG) 


18000342 




1/* 


005066. CO 


005070.36 


C2 










BAE,TMCK4 




18000343 




IE* 


005066. 40 


C05C65.30 


40 










BZXCZ.TMLGK4 




18000344 




i<;* 


005C67.C0 


000001.27 


05 










V+I,TMXGA,01.C 


- A DISPOSITION FIELD ERROR 


18000345 




2C* 


005067.40 * 


005070. 5C 


GO 










6, TGET4 




18000346 




21* 


005070. CC 


004763.20 


BO 






T 


MCK4 


V+,TMXG,TSCBK4 




18000347 




22* 


0C5C7C.40 


COCCCO.CO 


88 


003000.06 


70 


T 


GET4 


COOlKBLt 3) ,0.0{TMXG) 




18000348 




22* 


005071.40 


CCCC10.76 


8A 


002000.12 


FO 






CM0101,TICSCU{TMXI ) 




18000349 




24* 


005072.40 


C04632.27 


30 






T 


PNG 


SV, TMXGA,TERFLG 


-SAVE ERROR FLAG IF ANY 


18000350 




25* 


005073. CO 


C05C75. 71 


42 










BXVZ,TM1AA 


-IF THE CARD IS GK 


18000351 




26* 












- 








18000352 




27* 


005073.40 


C0CC02. 74 


8A 


0C40O0.2C 


50 






L,TITYCC(TMXI) 


-CHECK FGR INVALID TYPE CODE 


18000353 




2£* 


005074.40 


C05C75.74 


CO 










BZRZ,TM1AA 


-TYPE CCDE OK 


18000354 




29* 


005075.00 


005C75.04 


00 










BD, $ 


-MCP ERROR, INVALID TYPE CCDE 


18000355 




3C* 












- 








18000356 




31* 
32* 

32* 












— 








18000357 
18000358 
1800C359 














_ 




IS THIS IOD IN THE 


UNIT NAME TABLE 




34* 
3 5 * 
36* 


"OC5C7~574C~~ 


V6~5T.~2~0~ 


To " 








___ 








18000360 
18000361 
18000362 




mTaa" ~ 


" "LX~,~f M X G ,"f UN X W 


" - 1 0~A~D~ "ft" "B"E G f N N I~ N G "C F U N I f N A ME~ T A B L E 




3 /* 


005076.00 


COGCOO. 64 


8A 


014027.20 


50 






L,TIREF{TMXI ) ,46 


-GET THE REFERENCE NUMBER 


18000363 


20 


36* 


005077.00 


C051C0.74 


CO 










BZRZ, TMEAT 


-NO 


18000364 


19 


3S* 


005077.40 


C00010.C3 


01 






T 


MDGG 


LVI, TMXI, 8.0 


-ILLEGAL REF NC. ON AN IGD CARD 


18000365 


18 


4C* 


0051CC.CC 


005377. 1C 


CO 










B,TMREJB 




18000366 


17 


41* 


005100.40 


002155. CC 


80 


022027. 2C 


10 


T 


MEAT 


+(BL,18),TLIMB,46 


-COMPUTE THE SIGL ADDRESS 


18000367 


16 


42* 


005101.40 


C0CC11.1C 


30 










LV,TMXC,SR 


-ADDRESS OF SIGL TO IX 


18000368 


15 


42* 


005102.00 


COCCCO.CC 


84 


000000. 06 


70 






LF(BU),C.0{TMXC) 


-IS SIOL SLCT ALREADY USED 


18000369 


M 


44* 


005103.00 * 


005077. 74 


CO 










BZRZ,TMDGG 


-YES - REPORT ILLEGAL IOD CARD TO JC 


18000370 


13 


45* 


005103.40 


C0CCC4.C0 


8 A 


060010.20 


50 






L,TICH(TMXI ) , 16 


-GET CHAN FIELC GF IOD CARD 


18000371 


12 


46* 


GC5104.40 


C0CC05.00 


8A 


060050. C6 


70 






LP ,TIUN{TMXI),80 


-GET THE UNIT NAME - TAPE GNLY 


18000372 


11 


47* 


0G51C5.4C 


C0GCC2.74 


8A 


004000.06 


7C 






LF,TITYCC(TMXI) 


-GET THE TYPE FIELD CODEC 


18000373 
18000374 


1C 


48* 


005106.40 


C00CG0.21 


05 










V+I , TMXG, 0.0 


-TO RE-ACTIVATE INDEX IND. FGR TMXG 


9 


49* 


005107.00 


005116.30 


42 










BXCZ,TM1E 


-IF ZERO ENTRY 


18000 3 75 


8 


5C* 


005107.40 


CC0C00.00 


88 


060010.23 


10 


T 


MIA 


KF,TCHNM<TMXG),16 


-COMPARE AGAINST TABLE 


18000376 


7 


51* 


005110.40 


C05115. 76 


CO 










BZAE,TM1B 


-IF UNLIKE ENTRY 


18000377 


6 


52* 


005111. CC 


C0CCCC.74 


88 


004000.23 


10 






KF,TUNTYP(TMXG) 


-COMPARE EQUIP FEILD 


18000378 


5 


53* 


0C5112.C0 


CC5115.76 


CO 










BZAE,TM1B 


-IF NOT ALIKE 


18000379 
18000380 


4 


54* 


005112.40 


C04652.21 


30 










SV,TMXG,TDKSAV 




3 


55* 


005113. CC 


C0CCC2.74 


8A 


005162.34 


00 






BZB,TITYCC(TMXI »,TM1C 


-IF NOT TAPE 


18000381 


2 
1 


56* 


005114. GO 


C0CC31.C0 


88 


060050.23 


10 






KF,TUNME(TMXG),8C 


-TAPE COMPARE UNIT NAME 


18000382 



wai 



TIME CLOCK CC054C41 



PUNIC 11C11IPL 



CARD IC 18000383 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



90 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



005115 



1* 
2* 

2 * 
4» 

5 * 

~iv 

7 * 

E* 
S* 
IC? 
11* 
12* 
12* 
14* 
15* 
U* 

_____ 
IE* 

IS* 
2C* 
21* 
22* 



005115. CC 
005115. 40 

005116.00 

QC5_1_17_.C_0_ 

0C512C.0O 

005121.00 

005122.00 



005162.36 C2 DAE.TM1C 

005107.61 48 T M1B CB+ , TMXG , TM1 A 

_C0CCqq.64_8A__plA002_.C6__7_C__ _T_J*1E___ LF _T 1 RE F_ TMX I )_, 04 

C : 0CC31.pC 88 000040. 12 F_0___ _SF _______ , JUNME ( TMXG ) , 64 

CCCCCO.CC 88 000000.12 FO CMO 101 { BU , 64 ) ,0 . C { TM XG ) 

004653.34 80 022000.22 BO M+l { BU , 18 ) , TUNXW+28 

004652.21 30 S V , TMXG , TDKS AV 



-UNIT AREA TABLE GENERATED 



-GET THE REF. NUMBER 



-STORE NEI* ENTRY IN TABLE 
-STEP TABLE COUNTER 



GENERATE THE UNIT AREA TABLES 



00_5_1_22_._4_C_ 

PC5_1___3_._0_0_ 

005124.00 

CC5124.40 

005125.40 

005126.40 

005127.40 



_C_0_0.C_0_3_._13 

_c_o_cc_c_q.__6 

0CCC11.20 

002152 

OOCCOO, 

COCCCO, 

CCCCCO. 



.00 
14 
33 

7 



36 

B_ 

10 
80 
86 
88 

83 



022027.20 50 



022027.30 
007027.20 
005146.34 

003027.20 



10 
DO 
00 

50 



SV_IMXD_TF IAACI TMXEJ 
L _ I A A _ C H { T M X B_) _,_4 6 
LX,TMXG,$R 
-(BU, 18},TCHSXW,46 
ST,TCHANN(TMXE) ,46 
BZB,TMULTHTMXG) ,TM1DA 
_L_,_T_BSUN.TMX6) ,46 



_-F_lLE_AR_A ACT._ADCRES_S ___ 
tGE T _ TH E _ A D D R _ C F THE _ A _S_S_I G _N EC CH A N 
-CHAN TABLE ADDR TO IX 
-COMPUTE THE CHANNEL NUMBER 

-IF NOT A MULTI UNIT CHAN 
-GET THE UNIT NUMBER 



18000383 

18000384 

18000385 

18000 3 8 6_ 

1800036 7 

18000388 

18000389 

18000390 

18000391 

18000392 

18qq0393_ 

18000394 

18000395 

18000396 

18000397 

18000398 

18000399 

18000400 

18000401 

18000402 

18000403 

18000404 



22*_005130_.4q 
2** 005131.40 
005132.40 
005133.40 
005134.40 



000000.57 86 003027.20 DO 



25* 
26* 
27* 

28* 



0C5135.4C 



C00CC0.03 
C0CC07.31 
CCCC27.0O 
C0CC10.GC 
000010.40 



33 005143.74 00 

86 001000.36 FO 

80 022000.06 70 

86 022000.12 FC 

86 022000.12 FO 



S^T, rUNIINUMXEJ ,46 
BZB,TTYPE( TMXB) , TM1CAA 
CMllil.TSYSTM.TMXE) 
C0011.BU,18), TMXF 
CM0101,TFRLAD(TMX£) 
CMOlOli TCREEL(TMXE) 



- A N D PLACE INCNII__BEA J B _L _ 
-IF THE TYPE IS NOT TAPE 
-SET THE SYSTEM TAPE BIT FOR 
-GET REEL POOL ADDRESS 
-AND STORE IN UNIT AREA 



INITIAL 



18000405 

18000406" 

18000407 

18000408 

18000409 

18000410 



2_* 
~3C* 
31* 
32* 
3 3 * 
34* 



Q__136_40 

005137.40 

005140, 

005141, 

005141, 



JLQC_C_1_°__7__. 
C0GC00.22 
OOCCOO. 33 
00CCC1.17 
002153.16 
005143.72 



86 
07 
87 
05 
90 
42 



007000.22 BO 



_1tlf_IRE|LK{TMXE) 

Z,0.0(TN>XF)~ 

CM1111(BU,1),TRELB(TMXF) 
V+I,TMXF, 1.0 
KV» TMXF,TBAMCP 
BXL,TM1CAA 



_-_S_E_T_ _THE_ _RE EL _COUNT_ T0_ ONE 
-ZERO THE FIRST REEL SLOT 

-STEP REEL POOL INDEX 

-IS THE REEL POOL EXCEEDING 

-NO 



18000411 
18000412 
18000413 
18000414 
18000415 
18000416 



,00 
CC 
40 



001000.36 FC 



BOUNDS 



005142.00 



_._._. 

36* 
37* 
36* 
3<.* 
4C* 



005142.40 
0C5143.CG 



C C C L C_0 4 . C 3 CI 
005377.10 00 



LVI_t_T_MX 1,4.0 

B,TMREJB 



-YES SO NOTE IT JC 
-AND REJECT JOB 



18000417 
18000418 
18000419 
18000420 
18000421 
18000422 



20 
19 
IS 
17 
16 
15 
14 
13 
T2 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



MODIFY THE CHAN/UNIT STATUS TABLES 



Alt 
42 * 

42* 
44* 

45* 
46* 



18000423 

18000424" 

18000425 

18000426 

18000427 

18000428 



005143.40 
005144.40 
005145.00 



CCCCCO.CC 


88 


022027. 2C 


000011.20 


30 




OOCCOO. 47 


88 


001000.36 



10 T M1DAA +,TUNTBA(TMXG),46 

LV,TMXG,$R 
FO CM1111,TSEL(TMXG) 



005146.00 CCCCCO. 15 38 T M1DA SV , TMXE , .0 { TMXG ) 



47* 
46* 
49* 
5C* 
51* 
52 * 



005146.40 
005147.40 



OOCCOO. 32 
COCCCO. 40 



8F 001000. C6 70 
88 CC1000.12 FC 



LF(BU, 1 ), .26U15) 
SF,TCHCKN(TMXG) 



-COMPUTE UNIT TABLE ADDR. IN MULTI CAS 

-GET POINTER FOR UNIT TABLE 

-SET THE SEL BIT TO 1 FOR ALL MULTI CH 

- STORE _L^II_ A REA J 8 L A CD RES S_ 

^-GET~THE~GWNERSH~IP~8~fT 



005150.40 
005151.40 



____ 
88 



001000. CC FC 
PP51 5 3_._7_4_ 0_6_ 
001000. CO FC 



COCCCO. 35 

COCCCO. 76 

0C5_1_52.40_ _CCCC00./7 88 001000.00 FC CMOCOC , TOVRES ( TMXG ) 



CMOOOO, TUNASG(TMXG) -SET THE UNIT ASSIGNED BIT 
BBZ,TUNRES(TMXG) ,TM1CX -RESET THE NOT CV RES FIRST 



18000429 
1800C430 
18000431 
18000432 
18C00433 
18000434 



52* 
51 * 

55* 005153.40 
56* 005154.00 



18000435 
18000436 
18000437 
18000438 



00CC26.22 30 
0OCC11.15 05 



T M1DX LV,TMXEE,TMXE 
V+I, TMXE, 9.0 



-KEEP ONE IX TO BEGINNING OF TBL 
-ADVANCE THE OTHER TO END t 1 



wai 



f IME CLOCK 0C054C41 



PUN1D L1CLLIPL 



CARD 10 18000439 



DIST. OF 3/01 



3/01 



PAGE NUMBER 91 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

2 * 

2 * 
4* 



00 51 54. AC 
00 51 55.4 C_ 
00 5156.0 
005156.40 
005157.00 

00 51 57. 40 
005160.40 



_00_CCq0.34_33 

_C~C_5157.34 C2 

COCO 11. 26 30" 

CCCCG0.22 C8 

C0GCC0.22 03 

_CC_CC_C_1._2 2 8 3 
CO 3 3 72.0 7 "CI 



022027.20 50 



ZERO THE I/O REQUEST TBL AND REEL SLOT 
L,TFREEL(TMX6),46 -GET THE FIRST REEL ADDRESS 



18000439 
18000440 
18000441 
18000442 



5 * 

~e* 
i * 

t * 

9* 

1C* 



T M2AC 



BRZ,TM2AC 
LV, TMXGA,"$R 
Z,0.0(TMXGA) 
Z.O.O(TMXB) 



-NO REEL 

-ZERO THE REEL SLOT 

-ZERO THE I/O REC TBL SLOT 



005161.34 00 



BZ8,TLAST+1.0(TMXB),TMlCb-IF NOT LAST ENTRY IN THE I/O RfcC TBL 



11* 
12* 
12* 
14* 
15* 
16 * 



005161. CC 
005161.40 



C0CCC1.C7 06 
005165. 10 CO 



LVI ,TMXB,TI0REQ-1. 
T M1DB V+IC,"7mXB,1.G " 
B.TN5 

THE UNIT AREA TABLE IS ALREADY GENERATED FOR THIS IOD CARD 



18000443 

18000444 

18000445 

18000446 

18000447 

18000448 

18000449" 

18000450" 

18000451' 

18000452 

18000453 

18000454 



U* 

IE* 
19* 
2C* 
21* 
22* 



0C5162.CC 
005163. CO 
005164. CC 

005164.40 

6C5165~.CC" 



COCO 00. 60 88 
C02155.CC 80 
C0CC11.20 30 



0140 2 7.20 _5_0_ 
022027.2 0" 10 



C0CCCO.22 38 
~C"0~C~~C~CT.~C"6" 89 "" 014000 .22 " BO 



T MIC _LtIUNRERTKXG),46 

+ ( BU 7 18 ) , TL I MB ,46" " 
LV, TMXG,$R 

LV,TMXEE,0.0{TMXG) 

t" N5 >7+i,f TodkTTmxeeV 



•GET THE REF N0._ 

"COM-PUTE SYKB.~I/0 LOC ADDRESS 



-GET UNIT AREA ADDRESS 
•"AW TO" "IOD "COUN T 



180004 55 
18000456 
18000457 
18000458 
18000459 
18000460 



21* 
"24* 
25* 
26* 
27* 
21* 



GENERATE THE FILE AKEA TABLES 



18000461 
18000462 
18000463 
18000464 
18000465 
18000466 



29* 
3C* 
31* 
32* 
33* 
34* 



005166^00 
005167. CC" 

0C5170.00 
005170.40 



C CC . 6 4 8 A 
000 COO. CO 85 

CC0CC0.23 34 
C0CC0O.53 34 



014027. 2C5C 
022027.12 FO" 



L»_TI.REF[T|VXI )^46 

"CM0101,TI6DRN{TM"XD),46" 

SV,TMXEE,0.0(TMXC) 
SV,TMXD,0.32(TMXC) 



"_ G _ E _ N _ E J1 A _L E _LCC _CF_SVMB_ I /C_ LCC_ _W_rJRD 
■STORE "REF NO.""lN FILE AREA" TABLE - " " 

-STORE UNIT AREA ACC IN SYMB I/O TB 
-STORE FILE AREA ADO IN SYMB I/O TB 



18000467 
18000468 
18000469 
18000470 
18000471 
18000472 



20 
15 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 

2 

1 



35* 
36* 
37* 

36* 
39* 
4C* 



005171. 00_ 

005172.00 

005173.00 

005174.00 * 
005175. CO __ 
00 5 176.00 



C_C_C _C_0_. C_0_ 
CCCC02.C0 
C0CC02.74 



8A 022000. 0670 
85 022000.12 F0~ 
8A 005176.74 02 



000005.76 8A 
COC C_0_2_._6 8 5_ 
CC52C6.1C CO 



002000.06 70 
002000.12 FO 



C 0_0_U ,_T I ABE X [ TMX n 
CMO 1 1 , T TCEL ( TM XD ) " 
BB,TITYCC(TMXI ),TK1FUZ 

LF,TIM0CD-1.C(TMXI) 

S-Ji1 l A L »_ 1 1 m ° D E 1 J m x d _)_ 

8, TMFAZ 



- G E T J A B L E F E X I T S A R E S S 
-PLACE IN FILE AREA TABLE 
-IF TAPE 

-GET CARD MACHINE MODE 



18000473 

180004*4" 

18000475 

18000476 

18000477 

18000478 



41* 
42* 
43 * 
44* 
45* 
46* 



4 It 
4 8* 
49* 
5C* 
51* 
52* 



005176.40 
005177.40 

005200.40 

0C52C1.40" 

CC52G2.40 - 

005203.40 
005204.40 
0C52C5.4C 



C0GCC6.76 8A 
CCCCC2.60 85 

_C_0_Q.C02_.74 8A 

A°_QC_1_ •_! 6 _ 8 A " 
CCCC0"2.35 85 



002000.06 70 
002000.12 FO 

005206.34 CO 
002000.06 _7_0_ 
003000.12 FC 

002000. C6 70 
002000.12 FO 



T M1FUZ LF,TIMOCD{TMXI) 
SF, TFMOCE(TMXD) 

_"1ZB L TITYCD^ TMXI ) , TM1FAZ 

cqqii^TiDSCDjjMxn, 

CM0101,TREELDITMXD) 

CC011,TIDNCC(TMXI ) 
CM0101, TDENMD(TMXD) 
B,TMFA 



-GET THE TAPE MODE 



■If T H E E Q U I P I S N T TAPE 
-GET THE REEL DISP 



180004/9 

18000480" 

18000481 

18000482 

18000483 

18000434 



18000485 

18000486" 

18000487 

18000488 

18000489 

18000490 

18000491" 



0CCC07.76 
C0CC02.33 
CC5262.1C 



8A" 
85 

CO 



-GET GIVEN DENSITY 



52 * 

54"" 
55* 
56* 



0052C6.CC 
005207.00 
005210.00 * 



00CCC2.74 8A 
C4CCC0.G0 80 
C05262.36 CO 



0C4000.20 50 
404000.23 10 



T M1FAZ 



L,TITYCC(TMXI ) 
KFKRU.4), 1 
BZAE,TM1FA 



•LOOK FOR DISK 
-IF NOT DISK 



18000492 
18000493 
18000494 

wai 



T IME CLGCK CGG54G41 



PUNID 1LC1LIPL 



CARD IC 18000495 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



92 



LI.Ni 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



J* 
2 * 

1 * 
i * 



DISK ANALYSER 



18000495 
18000496 
18000497 
18000490 



r. * 
"t * 

1 * 

£* 

S* 

1C* 



18000499 

18000 500" 

18000501 

18000502 

18000503 

18QQP504 

18000505 

18000506 

18000507 

18000508 

18000509 

18000510 



005210.40 
005211.00 
005212.00 
005212.40 



004652.20 30 
CCCC31.75 88 
CCCC11.26 30 
CC4737.C5 86 



003026.60 50 



014040.20 50 



LV,TMXG,TDKSAV 
L,TCKCT(TMXG) ,45 
LV,TMXGA,$R 
L,TSRCFT(TMXGA_),6_4 



-GET UNIT TABLE ADDRESS 

-GET RELATIVE ADDRESS OF DISK COUNTER 

-GET COUNTER 



U*„00 5213. 40 
12* 005214.40 
12* 005215.40 
14* 005216.40 
15* 005217.40 
16* 005220.40 



CC_GCC2.73_8A 
CCCC06.C6 85 
CCCG05.06 85 
C04737.C5 8B 
000005.00 8A 
CC4631.10 80 



005255.34 02 
014040.20 00 
014040.20 DO 
014040.20 DO 
060000.20 50 
060600.23 10 



T MCK 



8 8 ,_T I T R K ( T M X I J , T M J R K 
ST,TCUARC(tMXD) ,64 " 
ST,TORARC(TMXD) ,64 
ST,TSBCF7{ TMXGA>,64 
LtTINO(TMXI) 
KF.TM6BL 



-IF TRACK 

-SET CURRENT ARC 

-SET ORIGINAL ARC 

•SAVE AS TRACK ROUNDS OFF 

-GET THE DISK NUMBER 

-LOCK FOR DISK NULL — BLANK 



i 1 *_ PC 5 2 2_1_._40_ 
18* 005222. CO 
CC5222.40 
005223. CC 
005223.40 
005224.40 



IS* 
2C* 
21* 
22* 



JlC_52_5_0._y_6 
C05223.C3 
005450.50 
005250.74 
C04737.05 
000002. 73 



C2 
Gl 

00 
C2 

8B 
8A 



T MCK1 



014040. C6 
005227.34 
014040.20 



70 

02 
10 



BAEiI^NULD 

LVI ,TMX1,TMDK1 
B,TMCONV 
BRZf TMNULC 
LF,TSBCFT(TMXGA),64 
BB,TITRK( TMXI ),TMCK3 



-IF NULL 



-GO TO THE CONVERSION ROUTINE 
-IF NULL — ZERO 
-RELOAD ACC 
-IF TRACK 



18000511 
18000512 
18000513 
18000514 
18000515 
18000516 



23* 
24* 
25* 
26* 
21* 
2£* 



PP5225_.40 
005226.40 
005227.00 
005230.00 
005231.00 
005232.00 



_CQCC_1_1_._64 80 
005230.10 CO 
000011.64 
004737.05 
C0GC10.64 
004630.00 



+(RL L 121,$R+.52j64 

B,T^CK4 

+(BU, 12) ,$R+.52,67 

ST,TSBDFT(TMXGA),64 

M-KBUt 12),$L + .52 

KF, TMMAX,64 



-ADD THE CONVERTED NUMBER 



18000517 
18000518 
18000519 
18000520 
18000521 
18000522 



80 
3B 
80 
80 



014041.60 10 
014040.20 DO 
014000.32 BO 
014040.23 10 



T MCK3 
T MDK4 



-ADD THE CONVERTED NUMBER — TRACK 
-UP DATE THE COUNTER 

-LOOK FCR ILLLGAL DISK REQUEST 



2i* 

3C* 
31* 
32* 

32* 
34* 



005233.00 
005233.40 
005234.40 
005235.40 
005236.00 
005237.00 



_C 05_26_3_« lj_ _4_ 2 

000005.46 85 
C0CC31.60 88 
C05262.34 C2 
002155. OG 80 
000011.12 30 



„BAH,_TMCSK3 

~ST,TMXARC(TMXC) ,64 

L,TCSKRF(TMXGJ,46 

BRZ,TM1FA 

+(BU,18),TLIME,46 

LV,TMXD,$R 



-YES 

-STORE THE MAXIMUM ARC 

-GET THE REF NC.GF NULL IOD 

-IF NONE 

-ADD THE BASE ADDRESS OF THE SIOL T8L 



18000523 
18000524 
18000525 
18000526 
18000527 
18000528 
18000529 
"18000530" 
18000531 
18000532 
18000533 
18000534 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 

1 



014040. 2C 
014027.20 



DC 
50 



022027.20 10 



35*__0C5237.40 
36* 005240.00 
005241. CO 
005242. CO 
005243.00 
005244.00 



37* 

3fc* 
35* 
4C* 



co_ecqp_._52_ 

G04737.05 
000C31. 74 
000G06.06 
C0CGC5.C6 
005262.10 



35_ 

8B 
88 
85 
85 

00 



014000.06 70 
005244.74 02 
014000.20 DO 
014000.20 DO 



T MDK1A 



LVf_TMXC , L C. 32 ( TMXD ) 

LF,TSBDFT(TMXGA) 

B8,TCTRK(TMXG),TN'DK2 

ST,TCUARC(TMXD) 

ST,TORARC{TMXD) 

B.TCIFA 



•_G_EJ_ F I LE AREA _CF NULL ICO 

-GET LAST "COUNTER 

-IF TRACK 

-UPDATE CURRENT ARC 

-UPDATE ORIGINAL ARC 



wai 



IIME CLOCK CCC54C41 PUNID UC11IPL CARD IC 18000536 
"lInE _ ""LOC4T1c"N bINARY~CUTPUT "nape" 



GIST. OF 3/01 
'STATEMENT 



3/01 



page number 
IccaTicn 



93 



1* 
I* 

2 * 

A* 

5 * 
C* 
i * 
£* 
c . * 
1C* 



track analyser 



005244_._4C_ 

00_524_5._4_0_ 

0G5246~.CC 

005247.00 

005250.00 

00525C.4C 



11* 
12* 
12* 
14* 
15* 

H* 
17* 



00 52 51.40 
005252.40 *" 
005253.40 
005254.40 

00525 5_. 0_0_ _ 
00 52 5 6. 00 



18* 
19* 
2C* 
21* 
22* 



0C5256.4C 
005257.40 
005260.40 



COCCU. 75_80 
_G_C_5 2 4 2. 3 4 C2 
000011.75 80 
000011.64 80 
005242.10 00 

00 0000.64 8 A 
C0C C _1L«_60_88 
~C04630.CC 80 
CCCC05.46 85 
005262.10 CO 

CO C 01 0.7 5 80 
_00l5214.74~C2' 
000010.75 80 
000010.64 80 
005214.50 CO 



00 3000.07 JO 

' 003000". CC~~FC~ 
011000.22 BO 



14000 .C6 70 
014000.2C D_0_ 
014000.06" 70 
014000.20 DC 



T__I*_DK2_ CT0C11(8U,3_) ,$R+.61 
BRZfTMyKl/i^ 
"CMOCCCtBU", 3)f$R+".6l" 
M+l(BU,9),$R+.52 
B,TPCK1A 

J__M_ NUL _1 __LF L TIREF_( JMXI ) 
ST,TDSKRF( JMXG~) 
LF, TMPAX 
ST,TPXARC(TPXD) 
8,TP1FA 



-CHECK FOR MULTIPLE OF 8 

"-YES "~_~~__ 

-ZE~RC THE TRIVIAL BITS 
-ADD NEXT BEGINNING TRACK LCC 



- IF _N U L L DISK CR TRA C K .GET R E F_ NO , 
"- G E f "THE PAX "DISK" NUMBER" PC S~STb L E " 



003000.07 70 



T MTRK 



00526_1.CC 
00 5 26 2. CC" 



_C_C_C_q02_. 6 1 8 5 
C0CC07. 13 "05 



003000.00 FO 
011000.22 BO 



001000.36 FO 



CTqCll_eU,3J , J.L + .61 

"BRZ_T_CK_ _ ~_~ 
C~M0C00<EU,3) , $L+.6~1 
M+i(BU,9),$L+.52 
B f TPDK 



-CHECK FOR P U L T I P L E F 8 
_-YE_S_-_RETURN 
"-NO ZERC THt TRIVIAL BITS 

-ADD ON TO GET NEXT BEGINNING TRACK L 



CM11LKEU, 1),TFMCCE+.1( TMXD) -A DUPI^Y ONE FOR ALL BUT TAPE 



18000536 

18000537 

18000538 

18000539_ 

18000540 

18000541 

18000542 

18000543 

18000544 

18C00545 

18000546 

1800 54 7 

18000548 

18000549 

18000550 

18000551 

18000552] 

18000553 

18000554 

18000555 

18000556 

1800055/ 



21* 

2'* 
25* 
2t* 
2i* 
2fc* 



005262. 4C 
0C5263.CC 



C0CCC0.C3 01 
005444.10 00 



T M.FA 
T OK 



V+I ,TPXC,7.0 

LVI ,TMX1,C0 
B.TN2 



"_ S _TJE_P_ THE V F BY A FILE TABLE 
-OK RETURN 



18000558 
18000559 
18000560 
18000561 
18000562 
18000563 



2S* 
3C* 
31* 
32* 
33 * 
34* 



GC5263.4C 
005264.CC" 



C_°_°_ c _ "■_• C A _°A 
00 5402 ."10 00 



_ T _ "Ldsk 1 _ _ L _y. L 1 1 11 * " 1 1 • 9 _- L L _ L _ E _ G _ A A A L s * _ ? § <* 

8,TPREJ -GO TO REJECT JOB 



18000564 
"18000565 
18000566 
18000567 
18000568 
18000569 



LOCATE THE PROPER REEL SLOT FOR ENTRY 



0C5264.4C_ 
~CC52_5.4C_ ~ 
0C5266.CC * 

005266.40 
005267.00 
005267. 4C 



GPA_ 6 A°_-A 4 _ _ 8 °_ 
CC 5 2 66 .76 C_2_ 

CC5266.C4" CO 

000010.20 39 
CC0C00.26 1A 
CG5262.66 4A 



030600.23 10 



T P6 



_KFf TMREEL 
_B_A_I=7T_6C" 
BD,$ " 

LV,TMXG,TFRLAD(TMXEE) 
LX,TMXGA,C.O{TMXI) 
CBZ_TMXGA,TGK 
LV.TMXGA, "IPX! 



-CHECK FOR A REEL CARD 
■0K_" 
-PCP "ERROR, INVALID OP CODE" ON CO". 

-GET INITIAL REEL ENTRY 
-TO GET THE REEL COUNT 
-GET 1ST REEL LOC IF ANY 



20 
1? 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
"36* 
37* 
3£* 
3S* 
4C* 



T P6G 



18000570 
"18000571 
18000572 
18000573 
18000574 
18000575 



41* 
42* 
42 * 

45* 
46* 



0q527C_CC 
00527C.40" 
005271 
005271 



C32_. 2_6_ _30 
C0CC30."C2 30 
C0CCC0.20 
CC5270. 71 



-GET FIRST REEL ADDRESS 
-SAVE FOR LAST ENTRY 
-LOCK AHEAD ONE SLOT 
-IF THERE IS AN ENTRY 

-IF A REEL NUMBER IS ENTERED 



180CG576 
180005 77 
180005/8 
18000579 
18000500 
18000581 



CO 
4C 



18 
40 



0C5272.CC 



C05307.23 42 



T P6A LV,TMXH,TMXG 

LX,TMXG,0.0(TMXG) 
BZXVZ,TP6A 

BXF.TM6C 



47* 
4 8* 
4< * 



18000582 

18000583" 

18000584 



005272.40 
005273. 4C 



C0CC02.0C 8B 
CCCC00.22 01 



060000.06 7C 



T N6 COOllfTIREEUTMXGA) 
Z,0.0(TMXH) 



-GET A REEL NAPE FROM BREAKDOWN 
-CLEAR THE REEL SLOT FIRST 



wai 



TIME CLCCK 00C54C41 



PUNID 11C11IPL 



CARD IC 18000586 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 



94 



LINE 



LOCATICN 



BINARY CUTPLT 



NAME 



STATEMENT 



LOCATION 



J* 

2 * 

2 * 

___Q0 52_74_._C_C_ 

5* 005275. CO 



DETERMINE THE REEL STATUS - EG. FILE PROTECT, SYSTEM 



C04631. IC 
C053C2.76 



8 
C2 



036600.23 10 



KF^U , 30^ 6 ) , TM6_BL_ 

BAE,TM8AB~ 



-BYPASS PROTECTION IF SCRATCH 



18000586 
18000587 
18000588 
180005 89 
18000590" 



t * 
J * 
£* 
S* 
IC* 



C05275, 

005276, 

005277 

0C53CC. 

0C53C1, 



40 
40 
4C 

CC 





CCCCC0.42 
004631.02 
005301.36 

000000.32 



81 
80 
C2 
81 



036000.12 
006625.23 



FC 
10 



001000.36 FO 



* CC4630.74 80 CC6622.23 10 



CM01C1,TRENME<TMXH 
KF,TNGP,42 
BAE,TM8 

CM1111,TREPR(TMXH) 
1A8__ _ KF,TL8L,36 



•INSERT THE NAME 

•LOOK FCR A NON'-PRCTECT 

SET THE REEL PROTECT BIT ON 
■LOOK FCR A LABELED TAPE 



18000591 
18000592 
18000593 
18000594 
18000595 



ll_ 
12* 
12* 
14* 
15* 
16* 



QC5302_.00_ 

005302.40 

005303.40 

005304.00 
005304.40 



_C.0_5_3_04._36 
000000.33 
005306. IC 

000010.02 

_Q-Q.5_3 06._32 

000007.31 



CO 
81 
00 

99 

CQ 
89 



B_ZA_,IM8AZ 

T M8AB CMllll,TRELB(TMXH) 
B, TM8A 

T M8AZ KV,TMXH,TFRLAD(TMXEE) 

_BZ_E_TM8A 

CMOGOO.TSYSTM.TMXEE) 



•IF NOT A LABELED TAPE 

■SET THE LABEL BIT TC ONE 



-CHECK TC SEE IF FIRST REEL ENTRY 

: NG 

-RESET SYSTEM BIT 



18000596 
1800059 7 
18000598 
18000599 
18000600 
18000601 
18000602 



001000.36 FC 



n* 
it* 
i_* 

2C* 
21* 
22* 



005305.00 



00100C.CC FO 



005306.00 
005307. OC 
005307.40 

005310.00 



CCCC00.31 
005262.67 
GOCCOO. 17 
000027.02 



81 
4A 
31 

30 



001000.36 FO 



T M8A CM1111,TRENTY.TMXH) 
T M6C CBZ+,TMXGA,T0K 

SV,TMXF,C.O(TMXH) 
_LV,TMXH,TMXF 



•SET THE ENTRY BIT TC ONE 
•STEP BREAKDOWN INDEX 
•STORE THE SLOT ADDRESS 
•GET NEK SLCT 



22*___53iC_.4C 
24* 005311. OC 
25* 005311.40 
26* 005312.00 
27* 005312. 4C 
2£* 



CO C CO 1 .1 7 05 
002153.16 90 
005272.72 42 
C00C04.03 01 
005377. IC CO 



_V__l______l_p_ 

KVtTMXFiTBAHCP 
8XL.TN6 
LVI,TMXl,4.0 
B,TMREJB 



18000603 
18000604 
18000605 
18000606 
18000607 



18000608 

18000609" 

18000610 

18000611 

18000612 

18000613 



-IS THE REEL POCL EXCEEDING BOUNDS 
-NO 
-NOTE ERRGR - PP EXCEEDING LIMITS 



2i* 

3C* 
31* 
32* 
32* 
34* 



INITIAL ENTRY PER PROBLEM PROGRAM 



005313.00 
005314.00 



C04653.34 
CCCCC0.25 



80 
IF 



022000.00 FO 



T M2 CM0C0G(BU,18) ,TUNXk + C28 -CLEAR LNIT NAME TABLE COUNTER 
SX.TMXI ,0.0U15) -SET CONTROL WORD PLUS 



18000614 
18000615 
18000616 
18000617 
18000618 
18000619 



_._.* 

36* 

3 2* 
3t* 
3.* 
4C* 



18000620 
18000621 
18000622 
18000623 
18000624 
18000625 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



RESET THE DISK PARAMETERS 



005314.40 
005315.00 
005315.40 



004736.20 10 
000000.22 08 

005315.21 48 



T MCLR 



LX,TMXG,TCCLRX 

Z,0.0{TMXG) 
CB+,TMXG,TMCLR 



-LOAD FCR TABLE CLEARING 
-CLEAR THE ACCUMULATING AREA 



Alt 
42 * 
42 * 

44* 
45 « 

46* 



18000626 
18000627 
18000628 
18000629 
18000630 
18000631 



005316.00 
005317. GC 
005320.00 

005321. CC 



002157.46 
C04737.C5 
C02155.40 

Q.o_co_qq-3i 

_C_0_33.15._c_ 

CC532~3.5C 
CC3313.04 
000000.47 
C05324.44 



80 
80 
80 

__ 
1Q 
CO 
10 

82 

CO 



014000. C6 70 
014000. 2C CC 
022000. CC FO 

005323.34 02 



LF.eU. 12),TSYRFT + .6 
ST,TSBDFT 
CM0C00(BU,18) ,TMAXRF 

BB, .25. $15) , TM2A 



-RESTORE THE MCP USER AREA 
-RESET THE MAX REF TC ZERO 
-IF NOT CVERLAP 



4_* 
4_* 
4.* 
5C* 
51* 
52* 



00 532 2 .CC 
005322.40 
0C5323.C0 
005323.40 
005324. 4C 



k1__!__A_!PPRUN _-_LOA_D_FG__NEXJ_ JQB TO BE RUN 

B,TM3D 
T M2A LX,TMXA,TPPURF -SET UP FOR NOT OVERLAP JOB 

T M3D BZB,TLPPEN(TMXA) ,TM3£ -IF MORE JOBS TO BE RUN 

BD,$ -MCP ERROR , NO MCRE JOBS TO BE RUN 



18000632 
18000633 
18000634 
18000635 
18000636 
18000637 



005325.34 00 



52* 

54* 

55* 005325. CC 

56* 005326.00 



TEST FOR JCB S YNCHKCN I Z AT I CN 



180006_38 
18000639" 
18000640 
18000641 



C00C01.C0 
777777. CC 



82 060000. 06 7C 
8A 060600.23 10 



T M3E LF{BU,48,8), TPNAME(TMXA) -GET JGB NAME FROM PP RCF TBL 
$KF,TJCNME(TMXI ) -COMPARE AGAINST JC-4 JOB CARD 



wai 



I IME CLCCK G0054C41 



PUNIC 11C11IPL 



CARD ID 18C0C642 



DIST. OF 3/01 



3/01 



PAGE NUMBER 95 



LINE 



LOCAI ICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



005327 



1* 
2* 

i * 
<* 

I* 

* * 

£* 

S* 

1C* 

12* 
12* 
1«* 
15» 

16 * 
IS* 
2C* 
21* 
22* 
22* 
2** 
25* 
2d* 
21* 
2J* 
2S* 
3C* 
31* 
32* 
33* 
34* 
35_* 
3 6 * 
37* 
3£* 
3S* 
4(> 

Alt 
42* 

42 * 

44* 

45* 

4t* 

47* 

4£* 

4S* 

5C* 

51* 

52* 

53* 

54*" 

55* 

56* 



005327. CO 
0C5327.40 
005330. CO 
00 5330.40 
'00 53 3_1~._C0~ 
005332.00 
005332.40 

C05333.CC 
CC 5 334.00 
00 5 334_._4_0_ 
CC5335.~4C 

005336.00 
005337.00 
00 5340.00 

0C~5~34"i~.~0b"~ 
005341.40 
005342. CO 

005342.40 
005343. 4C 



005330.76 C2 
CCCCC2.C3 01 
005444.10 CO 
00CC22.2C10 
COOCOO. 31 8F 



T M3EZ 



005333.34 02 



BAEiTM3EZ 
LVI,TMX1,2.0 
B,TN2 

LX,, TMXG.TPXA^ 
"BB, .25 ($15) , TM2AM 



-OK IF ALIKE 

-ERROR —JOBS ARE OUT OF SYNC 
-RETURN WITHOUT REJECT 
-SETUP FOR NEXT JOB -__MOVJE_ POINTER 
-IF NCT~GVt:RLAP DGNT SAYe PTR. 



18000642 
18000643 
18000644 

18000645 
18000646 



C0CC02.21 07 
003315.21 10 

C0CCC0.45 82 
005334.04 CO 



005334.74 00 



T M2AM 
T~M"3A"~ 



V+ICR,TIVXG,2.0 
SX,TMXGf TPPRUN 

BZ8,TRJECT(TMXA) ,TM3A 

BD,$ 



-IF PP WAS NOT 

-MCP ERROR, PP 



REJECTED 

WAS PREVIOUSLY 



REJ 



18000647 
18000648 
18000649 
18000650 
18000651 
18000652 
18600653 
18000654 
18000655 
18000656 
18000637 

"180006 58" 

"18000659" 
18000660 
18000661 
18000662 
18000663 
18000664" 
18000665" 
18000666 
18000667 
18000668 
18000669 

"18000670" 
18000671" 
18000672 
18000673 
18000674 
180006 75 

"180006 76 
1800067? 
18000678 
18000679 
18CC0680 
18000681 

"180"00682" 

"18000683 
18000684 
18000685 
18000686 
18000687 
18000688" 

"18000689" 
18000690 
18000691 
18000692 
18000693 
18000694" 
18000695 
180C0696 
18000697 



91 
91 
/I 
31 
61 

oe 



000000.44 82 
CC 53 3 5. 44 "GO 

OOCCCO.OO 82 
C0CCC0.44 82 
00CC00._34_a2 

~cocdTf.~C6~ro" 

C05342.7C 40 
005262.50 00 

COC00O.H6 82 
00 5343.44 CO 



005336.34 00 



BZB,TJBPRG( JMXA),TM3C 
"~0D, j" "" " 

T P3C L,TCRREF( TMXA),46 

CMllll,TJfiPRO(TMXA) 
C 00 1 1 , T U N C T J J MX A >» 1 8 

Tx,TMXB,$K 
BZXCZ,TM38 

B,TCK 

J_ J"_ 3 _ B _ „ B _ 8 '_ TA S GIN| P ( IMXA) ,JSORT 

BDt$ 



-IF THE JOB WAS NOT 
-MCP ERROR, PP WAS 



PROCESSED 

"PREVIOUSLY RUN 



022027. 2C 50 
001000.36 FC 
010011. C6 70 



005344.34 02 



-GET LOC OF I/O REQ TBL 

-SET THE JOB PROCESSED BIT ON 

•GET NUNBER OF I/O REQ 



-IF NO I/O REQ 

-IF „JJ3B__WAS ASSIGNED 
-MCP ERROR, "JOB NOT ASSIGNED" 



SORT THE I/O RtGUEST WITHIN THE I/O REQUEST TABLE 
BY THE IOD SEQUENCE NUMBER AS PER PP 



005344^.00 

005344.40" 

005345.40 

005346.00 

005346.40 

005347.40 

005350^40" 

005351. CO" 

005352.00 

005352.40 

005353. CC 

005354.00 

005354.40" 

005355. CC" 

005356. CC 



C_0_CC_i_l_. _1_6_ 
COOCOO. 22 
003373.21 
00CC27.20 
COCCCO.CO 
C00CC0.22 



10 
88 
CI 

10 
87 

88 



005346.34 CC 



000000.20 50 

005351.34 OC 



003373.21 01 



T SORT 
T SGRT1 

T S0RT4 

T SORT 2 

t" SORTS" 



LX, TMXF,$R 

BZB,TLAST{TMXG"),TSGR"T4 
LVI ,TMXG,TIOREQ 
LX,TMXG,TMXF 
L(BU,64), C.O(TMXF) 
BZe_,TLASTUMXG),TSGRT5 
L V I ,"f M X G" ," T 1 R E Q 



-LOAD TO GET I/O REQUEST TABLE 



-GET A WORD FRCM REQ TABLE FOR COMPARE 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

6 

7 

6 

5 

4 

3 

2 



CCCC00.23 88 
005354.77 40 
COOCOO. 26 18 
COCCCO.CO 88 
COCG11.27 10 



011022.22 10 



000000.20 CO 



KF,TIODSQ(TMXG) ,36 

BZAH, TSCRT3 

LX, TMXGA,C.G(TMXG) 

ST(BU,64),0.0(TMXG) 

SX,TMXGA,$R 



-COMPARE THE NEXT SEQ 
-SWAP ONLY ON HIGH 
-LOAD SWAP INDEX 
-STORE THE GREATER 
-REPLACE THE ACC WITH 



NO ANC SC FORTH 



THE LESSER 



CO 5 3 47. 61 L 48 

COOCOO. CC 87 
005344.57 48 



T S0RT3 



JL B jtL™XG,TS0RT2 
ST( BU,64) ,0.G(TMXF) 
CB+,TMXF,TS0RT1 



CC0000.2C CC 



-REPLACE THE INITIAL WORD 



COMPUTE THE TABLE LOCATIONS AND ZERO THEM 



005356.40 
005357. 4C 
005360.40 

90 5361_._4_0_ 
0C5 362_.4_0_ 
005363.40 
005364.00 
0C5365.00 



C0C000.64 82 
000000.50 82 
002155.40 80 
002155. CO 80 



014000. 2C BC 
014027.20 50 
022027.12 FO 
022027. 2C 10 



LFT,TIOCCT(TMXA) -NUMBER OF IODS TO FACTOR REG 

L,TLREFN(TMXA),46 -GET LARGEST REF NO FOR TBL LENGTH 

CM010KBU, 18),TMAXRF,46 -SAVE THE LARGEST REFERENCE NUMBER 

+(BU, 18),TLIMB,46 -ADD TO IT THE UPPER LIMIT OF PP 



COCO 11. CO 

"CO CC11. 12 

C7CCC0.00 

000011.14 



§9 

30 
80 
30 



022000.22 BC 



406027.23 90 



M+UBy,18J,$R 
LV, TMXD, $R 
*I+,TFLLGN,46 
LV, TMXE,$R 



-ADD ON E _ F OR P RGPER_ J_A_B_LE_ _SJZE 
-FIRST CELLAVAIL FOR FILE AREA 
-ADD FILE AREA TABLE LENGHT 
-FIRST CELL AVAILABLE FOR UNIT AREA 



TB 



war 



1 IME CLOCK CCC54C41 



PUNID 11C11IPL 



CARD IC 18000698 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 96 



LIN! 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



CC5365 



]« 
2* 



005365.40 
005366. AC 
2* 005367.40 
4 *_ 00 53 70.00 
5* 005371. OO" 



C0CC00.34 
11CC00.CC 
C0CC11. 16 
0C2155.CG 
CC 2 155. 10 



82 
80 
30 
80 
30 



010000.20 
406027.23 



BC 
90 



022027. 3C 10 



LFT,TUNCT(TMXA) 
*I+,TUNLGN,46 
LV, TMXF,$R 
-l_BL,10i 1 TLIMd,46 
LV, TMXCtTLIMB 



-THE NO. OF UNITS REQ TO FACTOR REG 

-ADD UNIT AREA TBL LENGHT 

-FIRST CELL AVAIL FOR REEL NUMBER 

-REMOVE THE BASE ADDRESS 

-FIRST LCCAVAL FOR SYM I/O LOC TBL 



18000698 
18000699 
18000700 
1800 0701 
18000702 



6* 

7* 005371. 4C 

6* 005372.00 

5* 005372.40 

IC* 005373.00 



002155.20 30 
C0GC11.20 50 
C02153. 16 90 
C05375.72 42 



LV, TMXGtTLIMB 
LC, TMXG,$R 
KV,TMXF,TBAMCP 

RXL t TMlF 



-PREPARE FOR TABLE ZEROING 

-IS THE REEL POOL EXCEEDING BOUNDS 
-IF kITHIN PP ALLOWED LIMMITS 



18000703 
1800C704 
18000705 
18000706 
18000707 



_i_ 

12* 
13* 
14* 
15* 
16* 



CC53 73_._4_C_ 

005374.00 

005375. 

005375. 

005376, 



_Q.0Q.CC4 ,.0 3 
C02155.4O 
C05377. 10 
C0CCCG.22 
C05375.61 



Ql 
80 
00 
08 
48 



_LVI_ t TMXl,4.C -NOTE THE ERROR- OUTSIDE LIMITS 

CM0C00(BU,18),TMAXRF 

B,TMREJB -AND REJECT JOB 

Z,0.0(TMXG) -ZERO THE SLOTS 

C8+,TMXG,TM1F 



18000706 
18000709 
18000710 
18000711 
18000712 
18000713 



022000. GC FC 



.00 

.40 

CO 



T flF 



II* 
IE* 
IS* 
2C* 
21* 
22* 



005376.40 



C05C21.5C CO 



B,TM 



-GET THE FIRST CARD 



I _ QO 71 4 
18000715 
18000716 
18000717 
18000718 
18000719 



THE DISPATCHER TOLD MOVE TO REJECT NEXT JOB 



24* 
25* 
26* 
27* 
21* 



18000720 



A SPECIAL REJECT WHENTHE PPRUN INDEX HAS BEEN STEPPED 



005377. CO 
0C54CC.C0 
005401.00 



CCCC00.45 
C0CCG0.44 
J3Cj2_0_0O_._0 7_ 

GO 5414. IC 



8 2 
82 
Q5_ 
CO 



001000.36 
001000.36 



FO 
FO 



T MREJB 



CMU11,TRJECT(TMXA) 
CM1111, TJBPRO(TMXA) 
_Y.i_lI M _BfQ.O 

B,TMREJS 



-SET THE JOB PROCESSED BIT ON 
-TO ACTIVATE IX FOR COUNT CHECK 



18000721 
18000722 
18000723 
18000724 
18000725 



2il_Q05401_.4C 

3C* 

31* 

32* 

33* 

34* 



OC5402.00 
005402.40 
0054G3.4C 



00CCOO.23 01 
000000.31 8F 
003315.04 10 



005404.74 02 



T MREJ LVI,TMXEE,0.0 

BB,C.25U151,TMREJ8 
LX.TMXA, TPPRUN 



-IF NOT OVERLAP 
-GET THE NEXT JOB 



TO BE RUN 



18000726 

18000727' 

18000728 

18000729 

18000730 

180C07J1 



005404.00 



993 4_C_5._1._C_ _C_0 
003313.04 10 
OOCOOO.CO 82 
00GG00.34 82 
00CC00.44 82 
C0CC00.45 82 



_BfJ__RE_.Z 

LX, TMXA,TPPURF 
L,TCRREF(TMXA),46 
LF,TUNCT(TMXA),18 
CM1111,TJBPR0(TMXA) 
BZB1,TRJECT{ TMXA) , TMREJ6 



180007 32 
18000733 
18000734 
18000735 
18000736 
18000737 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3£* 
35* 
4C* 



0C5404.40 
005405.00 
005406.00 
005407.00 

005410.00 



022027. 2C 50 
010011. C6 70 
001000.36 FO 
005412.74 OC 



T MREJ8 
T MREJ7 



-SET UP FOR NOT OVERLAP 
-I/O REC TABLE ADDRESS 
-THE NUMBER OF UNITS TO CF 
-SET THE JOB PROCESSED BIT 
-TEST AND SET THE REJECT BIT 



41* 005411.00 



C_0_QCJL1_- 2 2 
OOGCOO. 31 
000002.05 
003315.05 
C0CC11.C6 
005444.30 



00 
«F 
07 
10 
10 
42 



Z,_$R -CLEAR ACC IF ALREADY REJECTED 



18000738 
18000739 
18000740 
18000741 
18000742 
18000743 



42* 
43* 
44* 
45* 
46* 



005411.40 
005412.40 
005413.00 
00 5413.40 
005414. CO 



005413.74 02 



86, .25{$15),TMREJS~.32 
T MREJ6 V+ICR, TMXA, 2.0 

SX,TMXA»TPPRUN 

LX,TMXB,$R 
T MREJS BXCZ,TN2 -IF 



-IF BYPASS 



-ADVANCE AND SAVE FOR NEXT J08 



NO REQ TO ZERO 



Alt. 

4fc* 
49* 
5C* 
51* 
52* 



QC5414_.40 
005415.40 
005416.00 
005416.40 
005417.40 
005420. 4C 



_C_C_GCOO. 
CO 5442, 
CCCC11. 
COCGOO. 
002152. 
004771. 



56 
34 

20 
33 
GO 
14 



_3 
C2 
30 
88 

80 
80 



022027.20 50 



005437.74 00 
022027.30 10 
007027.20 DC 



J AR _.J _.___._!_____ {TMXBJ _»46 -GET ADDRESS OF .CHANNEL 

BRZ,TMREJ3 

LV,TMXG,$R 

BZB.TMULTKTMXG) ,TMREJ5 -IF A NCN-MULTI CHANNEL 

-(BUt 18),TCHSXW,46 -COMPUTE THE CHANNEL NUMBER 

S T LRU , 7 ) j TC A_T_+ ._! 2 , 4_6_ _ 



18000744 
18000745 
18000746 
18000747 
18000748 
18000749 



53*_00 54_2_1_._4_0_ 
54* 005422.40 
55* 005423.00 
56* 005424.00 



ggcccg.cc §8 

CCGCll.20 30~ 
CCCCC0.C7 83 
C0GC11.2C BO 



022027.20 5C 
003027.20 50 



L,_TlJNTBAjTMXG_) ,46 
LV,TMXG, $R 
L,TABSUN(TMXB),46 
V+,TMXG,$R 



•GET UNIT TABLE ADDRESS 



18000750 
18000751 
18000752 
18000753 



-GET THE UNIT NUMBER 
-ADC TO INITIAL UNIT 



ADDRESS 



Hfll 



TIME CLOCK CCC54C41 



PUN" ID 11C11IPL 



CARD IC 18000754 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 



97 



L J INI E 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



005424 



]* 
2* 
2 * 
4* 

1* 

£* 

S* 

IC* 

"[[*' 
1 2 * 

13* 
14* 

15* 

16* 

n* 

~ie*~ 
19* 

2C* 
21* 
22* 
23* 
24* 
25* 
26* 
27* 
26* 
29* 
~3C*" 
31* 
32* 



005424.40 

005425.40 

005426.40 

54 27. _0_0_ 

00_542_7_._4_G_ 

00543C.CC 

005430.40 

CC5431.00 

005432.00 

00 5433.00 

00 54 34.00" 

00 54 3 5.00" 

OG5435.40 

005436.00 

005436.40 

005437.40 

P0_544C_._C_0_ 

005441.00 

005442.00 

005443.00 

005443.40 



004771.57 80 
000000.34 83 
005437.74 C2 

CqCCiL.26 30 
C0CCC0.22 OB 



003027.20 DC 
022027. 2C 50 



ST{F!U,3),TCAT + .47,46 
L,TFREEL(TMXB),46 
BRZ, TMREJ5 
LVt_T_MXGA, $R_ 

z, o.gTtmxga) 



-STORE THE UNIT NUMBER ALSO 
-GET THE FIRST REEL ADDRESS 
-IF NONE 

-Terothf reel" slot 



18000754 
18000755 
18000756 
18000757 
'18000 7 58" 



004771.21 


02 


C0CCC0.21 


58 


000000.35 


88 


000000.40 


88 


00CCG0.65 


88 



001000.00 FC 

001000.36 FC 

00 1000 .CO FO 

001000.00 FO 



LCI ,TMXG,TCAT 
SC,TMXG,C.0(TMXG) 
CMOCCO,TUNASG(TMXG) 
CMllll.TChOWN(TMXG) 
CMOOOO,SIMNT( TMXG) 



-SET UP THE UNIT STATUS TABLE 
-WITH THE DUMMY UNIT AREA TEL 
-AND SET THE UNIT ASSIGNED 
-SET UNIT OWNER TO MCP 
-TO RESET THE 



ACER. 



18000759 
18000760 
18000761 
18000762 
18000763 



G _ _ C _C_C_0._6 3_88 
"001472.10 00 
000000. CO 80 
OOCC03.C0 80 
000000.40 88 
C0GC0O.22 03 



cmococt smguntjtmxgj 

b,~dpcp" 

, CFREE 
,3. 

CM0C00,TCH0WNITMXG) 
Z,0.0(TNXB) 



iMOUNTBITS 

: G0 TO THE D" FREE" 

■AS TO REMOVE THE 



18000764 

18006765" 

18000766 

18000767 

18000768 

18000769 



001000. CO FO 



T IPL5 



T r>REJ5 



ROUTINE 
MCUNTEC 



TAPES 



-RESET UNIT OWNER TO PP 
ZERO THE I/C REC SLOT 



_ C _0_ C _C_0_0_. ,/6_3_8 
000000.77 88 
C00C01.22 83 
003372.47 01 
005414.47 48 



005442.34 C_6_ 
001000. CC FO 
005443.74 00 



T MREJ3 



T PREJ4 



BBZtTUNRESJT M X G ) , J MR E J I3_ _ 
CMOCOO, TOVRES(TMXG) "" 
BZB,TLAST+1.0(TMXB),TMREJ4 - 
LVI ,TMXB,TI0REQ-1 
CB+,TMXB,TMREJ1 



TO PREVENT A LOOP 



18000770 

18000771" 

18000772 

18000773 

18000774 

18000775 



18000776 

18000777" 

18000778 

18000779 

180C0780 

18000781 

18000782 

18000783" 

18000784 

18000785 



PREPARE FOR RETURN 



005444.00 
CC5444.4C 
005445. CO" 
005446. CO" 
005447. GO 
005450. CC 



002162.57 30 

CCCC11.C3 30 



T N2 SV.TMXF.TMARK 
SV,TMX1,$R 



-SAVE THE REEL POOL INDEX 
-SAVE DISPOSITION 



00 4632. 17 
C0CCCC.34 
C0CC21.C0 
C0C001.10 



80 
8F 
80 
CF 



003036. 46_ 70 
022027.20 DO" 
004633.30 EO 



L F { B U , 3 ) , T E R F L G + . 15,6 I 
"ST ( BU , 1 8 j , . 28 ($15), 46 
SWAPI, 12 f $l,TSI0XW 
B,1.0C($15) 



-GET THE IOD CARD ERROR IF ANY 



-RESTORE INDEXES 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 

4 

3 

2 
1 



wai 



1 : 



TIME CLCCK 00054041 



PUNID 11C11IPL 



CARD 10 18C00787 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 



98 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 
2* 
t- * 



CONVERSION SUBROUTINE 



18000787 
18000738 
18000789 
18000790 



5* 0C545C.4C 



0CCCCC.30 CO 



T MCCNV NOP 



18000791 



t* 
i* 

£* 



005451. CO 
005452.00 
005453.00 
005453.40 



00CC11.20 
C0CG11.40 
000011.71 
002601.63 



80 
80 
CI 
80 



060600.06 
040400.12 



70 
FO 



010020. C6 70 



LF(BU,48,6) , $R + . 16 
SF( BU t 32f 4), J.R+.32 
LVI ,LXA,$R+.32 
LF(BU,8,8),LBLZCR,32 



-EXPAND TO 8 BIT BYTES. 

-CONTRACT TO .4-BIT BYTES, 



.1C*_005454.40 CCCCC0.04 8C 104420.23 1 _._ _L_ _C_CN_ V_ A_ _ KF { 8U , 4 , 4 ) { V+ 1 ) , . 4 { L_XA_U3_2_ -IS_4-BIT_ _BYJE__10iO_. 



A1*„QC5455_.4C C05457.37 42 B_AH,_LCQNVB 



NO BRANCH 



18000792 
18000793 
18000794 
18000795 
18000796 
18000797 



12* 005456.00 

13* 005457.00 

14* 005460. CO 

15* 005460.40 



777777. f4 8C 

000000.00 8C 
005454.76 C4 
000011.71 00 



004400. CC FC 
004422.23 10 



$CMC0CC(BU,4,4),-.4(LXA) 
L CONVB KF(BU,4,4),C.G(LXA) ,36 
BZAEZ,LCONVA 
V-I,LXA,$R+. 32 



- YES REPLACE BY 0000. 

-IS NEXT BYTE 0000. 

NO GO BACK. 

-COMPUTE FIELD LENGTH. 



1 6 * _ 5 4 6_1_._0_0 000034. ._2 2 __ 8 _ ^ 6 6 7 3_. 4_6_ 70 L F {_ .6 U , 6 1 6 ) , L X A + .JL_8_»_U_9 



18000798 
18000799 
18000800 
18000801 
18000802 



.!?*_ 0_5 4_6 _2_. _C_C CO. C_ 10 ..30 _ 3 L V ,_ L X A , $ L 



18000803 



18* 005462.40 
19* 005463.40 
2C* 00CC34.CC+ 
21* 
22* 



000011.40 
COOOCO. 10 
+OCCOOOCC 



80 
01 



000400.24 3C 



BU.ICCIC 



LCV(DU,C,4),$R+.32,C.C{LXA) 

B,0.0{TMX1) 
L XA SYN,TMLXA 

CNOP 
- ACDITICNS MADE TO MAKE ASSIGNMT. COMPATIBLE 



-CONVERT. 

-OUT GF ROUTINE. 



18000804 
18000805 
18000806 
1800060? 
18000808 



22* 005464. CC 



005464.04 00 



Y BCRD 



BD, $ 



•UNCODE PATH NOT TO BE TAKEN 



18000809 



2<* 00CCCC.32+ 
25* 000CGC.65+ 
26* 0CCCQC.63+ 
27* OCCCCC.CC+ 
2£* 0C5464.40 



+00C000CC 
+OOCOOOCC 
+0CC000OO 
+CCCCOOOO 
CCCOCC.CC+ 



BU,01 
BUtOl 
BU,01 
NULL 



tlC 
tlO 
,10 



STATI 
SIMNT 
S MOUNT 
C FREE 
YLGL2 



SYNIBU,1),.26 
SYN(BU f l) f .53 
SYNIBU, I), .51 
SYN f O 
VF 



18000810 
18000811 
18000812 
18000813 
18000814 



2S* 005465. CC* 

3C* 002151.10+ 

31* 005465.40 

32* 017777.00+ 

32* 0C2153.CC+ 

34* 0C2151.03+ 



C _C_0 _0_0J3 ._0_0_+_ __ 
+0CCC0C00 

017777.00+ 
+0CC0OOCC 
+0CCG0000 
+0CC0OOGC 



BU,02 ,10 



NULL 
B ,31 

BU,01 



tOl 
_»_1P_ 



YJ-CJL_1 __ 
SYSMC"D 
STERMI 
Z FINIS 
S MAXUB 
SCCRG 



VF 



SYNIBU, 2), SCOMRG+. 

VF,ZFINIS 

SYN, (8)17777.0 

SYN,S BA MCP 

SYN(BU, 1), SC0MRG + . 



-TWO BIT GPERATICNG MODE 
-THE LAST LOC USED BY MCP 



-MAX UB+1 THAT CAN BE 
-TH+ COMPILE GC BITS 



USED 



18000815 

18000816" 

18000817 

18000818 

18000819 

18000820 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
6 
7 
6 
5 
4 
3 
2 
1 



3£_« 

36* CC5466.CC+ 
37* 



+OCCOO0CC 



NULL 



CNO_P_ 

X IN END SYN,$ 

UNTAIL,12) 



18000821 
18000822 
18000823 



wai 





IIME CLCCK 0C054G41 PUNID 11CL1IPL ( 
LINE LOCATION BINARY OUTPUT 


:ard 


ID 


AAOOOO 
NAME 


CI CIST. OF 3/C1 3/01 PAGE NUMBER 99 






STATEMENT LOCATION 






J* 














IBM 7C3C MASTER CONTROL PROGRAM 






2* 










- 




INTERNATIONAL BUSINESS MACHINES CORP. 


AA000002 




2 * 










- 




CEPT. 271, BLDG. 7C5 


AA000003 




* * 

__ 














- 





POUGHKEEPSIEfN.Y. 
lM_RC___5_„l_>6_3~ __________ ______ ~J~_ _~LV-~~-~-~ l~~-.~-..lZ"/-l~l~ 


AA000004 

"AAOOOOOiT 

AA000006 




i* 














PRNS 


AA000007 




t* 


* 












PUNFUL 


BA0C0001 




S* 


005466. CO 












(CC*)DD(BU,,12),B hED, REP, 11D11MCP, LOAD,, * 


BA000002 




1C* 


005476.34 * 












(CC*)DC(8U, , 12), 11D11MCP* 


BA000003 




11* 


215CCC_.CC 












SLC, ( 8 J21500Q. - 80K 


BA000004 




1 2 * 














PUNCRG" 


"""BAO0O0b5~" 




13* 














PUNID, 11DUMCP 


BA000006 




14* 














RESEG 


BA000007 




15* 










- 


**##**#****»********#****#***********»#***»*»************************* 


BA000008 




16 * 














-»*««• CHANNEL-UNIT STATUS TABLE DEFINITIONS *****- 


BA000009 




U* 










- 


**»»**«*«****#«***»*«#»#*#**♦♦**♦*»»*»*«»»*«»**»**#*****#*»»********** 


BA000010 




it* 
















BA000011 




is* 


OOCCOG.OC+ 


+OCCOOOCC 


BUi 31 


tlO 


s 


UN A A 


SYNIBU, 25), 0.0 -UNIT AREA TABLE FIELD 


BA000012 




2C* 


OOCGOC.CC+ 


+OCCOOOCO 


BU,31 


»10 


s 


UN A 


SYN, S UN A A -UNIT AREA TABLE FIELD 


BA000013 




21* 


00CC0C.31+ 


+OCCCOOCO 


BUtOl 


»10 


s 


CH AVL 


SYN(BU,l)t 0.25 -CHANNEL AVAI LABI L I TY t CHANNEL STATUS 


BA000014 




22* 


0GC00C.32+ 


+CCCCOOOC 


BUfOl 


t 10 


s 


Ch OP 


SYNIBU, 1), 0.26 -CHAN OPERATING, CHAN STATUS 


BAOOOOlb 




22* 


0CCCCC.32+ 


+CCCOOOCC 


BU,01 


r 10 


STAT I 


SYNIBUt 1),.26 -TYPE OF TAPE MTED. SCRATCH 1 SPECIF 


8A000016 




2'* 


"00CCCC.33+" 


+ OCCCCC~CO 


"BU,01 


,10 


3 


MULT I " 


"SYN(BU,"1), C.27 " -MULTI-INIT ~CHAN,~CHaN STATUS 


""BAOOOOli* 




25* 


00CC0C.33+ 


+CCCCOOCO 


BU,01 


,10 


S 


CISP C 


SYNIBU, 1),.27 -UST REEL TUPE 


BA000018 




26* 


00CC0C.34+ 


+COCOOOOC 


BU,01 , 


»io 


S 


UN AVL 


SYN(BU,L), 0.28 -UNIT A VA I L I BI LI T Y , UNIT STATUS 


BAG00019 




27* 


000CCC.35+ 


+00COC0CC 


BUiOl 


t 10 


s 


UN ASG 


SYNIBU, 1), 0.29 -UNIT ASSIGNMENT, UNIT STATUS 


BA000020 




2E* 
2S* 


0CCC0C.36+ 
"OCCCCC". 37 + 


+OOCGOOCO 
"+CCCCCCCO" 


BUfOl 

" "" "BU,Ol" 


r 10 

ilO"" 


s 
s 


UN SUP 
"SET UP" 


SYNIBU, 1), C.30 -UNIT SUPPRESSION, UNIT STATUS 
SYN ( BU , 1 ) , 0.31 -P SEUDO-CP SET-UP , UNI T STATUS 


BA0C0021 

6A0Q0022" 

BA000023 




3C* 


0CCC0C.40+ 


+OOOCOOCC 


BUtOl 


, 10 


s 


OWNER 


SYNIBU, 1), 0.32 -PRIORITY LEVEL, OWNERSHIP 




31* 


00CCCC.41+ 


+OOCOOCCO 


BU,01 


10 


s 


SETDN 


SYNIBU, 1), 0.33 -ORIGINAL DENSITY SET INDICATOR 


BA000024 




32* 


O0CCCC.47+ 


+OCC0O000 


BUtOl , 


, 10 


s 


SEL 


SYNIBU, 1), C.39 -SELECT FILE STATUS 


BA000025 




33* 


000000.50+ 


+CCCOOCCC 


BUiOl 


» 10 


s 


VER 


SYN(BU,1), 0.40 -VERIFY FILE STATUS 


BA000026 




34* 


00CCCC.56+ 


+CCCCOCCC 


BU,01 1 


10 


s 


SEGP 


SYN(BU,1), 0.46 -SUPP END OF OP STATUS 


BA000027 i 




3 5 * 
3~6~* 


00CCCC.57+~ 
0GCCCC.61+" " 


+ococcccc 

+ OCCCO"C r CO 


Bu,or _ 

BUtOl"" 


10 
10 


s 
" s 


CNS SG 
U DENS 


SYNIBU, lj, 0.47 ~ -CONSOLE SIGNAL, F l'LE~ STATUS" 
SYN(BU, 1), . 49" ~"'~ ""-CURRENT OENSI TY~ OF UNIT 


BAO 6602 0" 

"BA000029 




3 7* 


CCCCCC.62+ 


+CCCOOOOO 


BU.02 


10 


s 


C MODE 


SYN(BU,2), 0.50 -CHANNEL MODE 


BA00003G 


20 


3£* 


0CC0C0.64+ 


+OOCOOCCG 


BU,04 , 


10 


s 


EQUIP 


SYNIBU, 4), 0.52 -EQUIPMENT 


BA000031 


19 


3S* 


00CCCC.7C+ 


+OCCCOCCC 


BU,03 , 


10 


s 


UNIT 


SYNIBU, 3), C.56 -UNIT IMULTI UNIT CHANNEL ONLY) 


BA000032 


18 


4C* 


00C0CC.73+ 


+CCC0O0C0 


BU,04 , 


10 


s 


UNIT K 


SYNIBU, 4), 0.59 -UNIT CCUNTIMULTI UNIT CHANNEL ONLY) 


BA000033 


17 


41* 


0CCCG0.62+ 


+CCC00000 


BUtOl , 


10 


s 


ELG 


SYNIBU, 1), 0.50 -ERASE LONG GAP 


BA00C034 


16 


42* 


0CC0CC.63+ 


+0CC000CC 


BUfOl i 


10 


s 


MOUNT 


SYNIBU, 1), C.51 -MOUNT TAPE 


BA000035 j 


15 


42* 


000000.64+ 


+00CC0C0C 


BUtOl t 


10 


s 


REW 


SYNIBU, 1), 0.52 -REWIND TAPE 


BA000036 


14 


44* 


00CCCC.65+ 


+0CCC00CC 


BUtOl « 


rlO 


s 


I MNT 


SYNIBU, 1),. 53 -INITIAL MOUNTING OF REEL 


BA000037 


13 


45* 


000000.71+ 


+0CC0O0C0 


BUtOl i 


10 


s 


RD 


SYNIBU, 1), 0.57 -READ, OPERATION STATUS 


BA000038 


12 


46* 


00CC0C.72+ 


+OCCCOCCC 


BUtOl i 


10 


s 


WR 


SYNIBU, 1), 0.58 -WRITE, OPERATION STATUS 


BA0000 39 
"BA000040"" 


11 


47* 


00CCCC.73+ 


+OCCGO0C0 


BUtOl i 


10 


s 


SPACE 


SYNIBU, 1), 0.59 -SPACE FILE STATUS 


10 


4fc* 


00CCCC.74+ 


+CCCCOOCC 


BUtOl i 


10 


s 


CTL 


SYNlBUf 1),.60 -CONTROL - OPERATION STATUS 


BA000041 


9 


4<5* 


0CC000.75+ 


+OCCOOOOO 


BU,01 , 


10 


s 


REL 


SYNIBU, 1), .61 -RELEASE - OPERATION STATUS 


BA000042 


8 


5C* 


000000.76+ 


+OCCOOOOC 


BUtOl j 


10 


SUNRES 


SYNIBU, 1),. 62 -NOT OVERLAP RESERVED BIT 


8A000043 


7 


51* 


00CC0C.77+ 


+OCCOOOCO 


BU,01 , 


10 


S 


CVRES 


SYNIBU, 1), 0.63 -OVERLAPPED RESERVE INDICATOR 


BA0C0044 


6 
5 


52* 


00CCCC.40+ 


+CCCCOCCC 


8U,22 , 


10 


s 


ARC AD 


SYNIBU, 18), C.32 -ARC ADDRESS (DISK) 


BA000045 


4 
3 
2 

1 



















wai 



IIME CLOCK CCC54C41 PUNID 11011MCP CARD IC BDOOOOC1 DIST. CF 3/C1 3/01 PAGE NUMBER 100 

LINC^^LOCAUCN Pi" NARY~ OUTPUT""" "" NAME '_"_'_ "S TA I§MlNT~^l"" ~~""~II"""I"IgCATJG}TIIII"___ 



1* 

2 * 

3 * 

i * 



_ BDOOOOO 1 

********** MCP IOD CARDS ********* B0000002 

_ ■ B0000003 

BCG00004 

~_%*_~_ III"-" P XCSA~_SYN^~UC ""'_ -DISK FETCH PRCSA~ " _'_"_" _ ~I__I"_" IBD000005 

6* " -.---..--.----- _-^ nuse1 syn72.0 -NCT USED BD000006 

<* - UNAGN3 SYN,3.0 -RESERVED FCR UNASSIGN BD000007 

£* - VRTP SYN.4. -INPUT ROUTINE READ TAPE BC00G008 

c* - VCRC SYN.5. -INPUT ROUTINE READ CARD BD000009 

1C_* _ _ _ r___YMT_P_ SYN L 6. _ _-I_NPUT ROUTINE _HRI TE_ JAJ»_E _ _ BD000010 

"lj*_ ' '_ _ '_"__'_ 1 Ir__JjNU_SE2SYN,7.0 _ _ _ -NOT USED_ __ __ __ __ __ BD00gg_l_l_ 

12« ~~~ " ~~~ " - JCICD SYN,~8.C -COMMAND CONSOLE ICD 6C000012 

12* - UNAGN9SYN,9.0 -RESERVED FOR UNASSIGN 6C000013 

14* - PCDEF2 SYN,10.C -DEBUGGER CONSOLE 100 BD000014 

15* - CT11 SYN,11.C - OUTPUT SPOOL TAPE 1 BD000015 

U» -_ C T21_SYN,12.C_ -CLTPUT SPCGL_JAPE_2 _____ _ __ _BC00g016 



20 
19 
18 
17 
16 

( '* 

14 
13 

( « 

11 
10 

( » 

8 

7 

5 
4 

i 3 

2 
1 



wai 



TIME CLOCK 0CC54C41 PUNID 11CUMCP CARD IC BFOOOOOl CIST. OF 3/C1 

!k[N|I"LCCAJJcX"~~ "BINARY" OUTPUT ~~~ ""~NA~M~E~~ STATEMENT" 



3/01 



PAGE NUMBER 101 
LOCATION - ~~ 



E 

V ( 
ff 

9 

L ( 

8 

6 

01 ( 
11 

z\ 

SI ( 

VI 
SI 
9, ( 

31 

6, ( 
05 



J* 

2 * 

2 * 

i * 

f*~oocccc~ 
"cccccc" 

00C001 
OOCOOl. 
CCCCOl, 
0GCC01, 



- ******«***«**««tt*««*««*««*«ft*«*«*ft«*«**tt«******»«»**««*««ft**»*«ft*ft**«* 

-»»**« UNIT AREA TABLE DEFINITIONS *****- 

- ********************** *'*«»***»****»e***»»**»*»*****#**###****#»**»#*** 



<E* 
I * 
£* 
S* 
IC* 



14 + 

5 7+" 

06 + 
40 + 

76 + 

77 + 



j-cccoc qeq 

+CCG0CCCC 
+0CC00GC0 
+0CC000C0 
+CCC0Q0C0 
+0CC0CCCC 



li*_0PpC02_.CC_+ 
12* 0CCCC2.40+ 
12* 0CCCC3.C0+ 
14* C0CCC3.4C+ 
15* CCCCG3.74+ 
H* C0CCC3.7 5 + 

1 ' * _ 99 99 oi»_*_c_o_ + _ 
~ie* cocoes. cc+ 

IS* 00CCC5.52+ 
2C* 00C006.CC+ 
21* 

2f*_pCCC07.2C+_ 
lit QQCCC7_.3_l+_ 
24*"0C'CCC7.35 + 
25* 0GCC07.46+ 
26* 0CC01C.CC+ 
27* 0CCC1C.71+ 
2fc* 0CCC1C.4C+ 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 

9 

6 

7 

6 

5 
4 

3 
2 

1 



+0CC0CCCC 
+CCCCCCCC 
+00C000GC 
+0OCOO0C0 
+OGCOOOCC 

_+occ_ccooq 
_+o_c_ccqqco 

+0CC000CC 
+0GCC0CC0 
+0CCC0CC0 

_+_C_CCCOCCC 
+ 0CJG00CO 
+ COCO 0000 
+0CC0COCC 
+OCCOOOCC 
+OOCOOOCO 
+CCCCOOOO 



BU,07 


,10 


S CHAN N 


B U , 3 


,10 


S UNIT N 


BU,14 


,10 


S IODK 


BU,32 


,10 


S RMTC 


BUtOl 


,10 


SUUNAS 


BUiOl 


,1C 


SRMIND 


BU,23 


,10 


S EVL TB 


8U,23 


,10 


S EVL MK 


BU,22 


,10 


S FI AAC 


BU,22 


,10 


S CW ADR 


BU.01 


,10 


S RETRY 


8U,01 


,10 


S REMNT 


BU,10C 


,10 


S IC INS 


BU,2 3 


,10 


S RET AC 


BU.1C 


,10 


S CTL OP 


BU t ICC 


,10 


S SCR PM 


BU,02 


,10 


S LAB M 


BU,01 


,10 


S SYSTM 


BU.C1 


,10 


S LAB D 


BU.14 


,10 


S FILE K 


BU, 22 


,10 


SFREEL 


BU,07 


,10 


S REEL K 


BU, 22 


,10 


S C REEL 



SYNtBUt 7J,0_. _12~" 
~SYN(BU,3),0.47 
SYNIBU, 12), 1.C6 
SYNIBU, 26), 1.32 
SYNIBU, 1) ,1.62 



-CHANNEL NUMBER "' " " " 

"-UNIT NUMBER 

-NUMBER OF IOD CARDS FOR UNIT 
-REMINDER MESSAGE TIME CONSTANT 

-UNIT ALREADY UNASSIGNED IF EC 1 

-REMINDER MESSAGE INDICATOR 



_SYN!3U, 19), 2.0 - 
SYNlfiU, 19), 2. 32 
SYNIBU, 18), 3.0 
SYN(BU, 18), 3.32 
SYNIBU, 1),3.6C 

_SYN(BU, l),3.bl 
SYN(6U,e4JtV".0~" 

"SYNl'BU, 19), 5.0 " 
SYNIBU, 8), 5. 42 
SYN(BU,64),6.C 

SY_N(BU i 2),7.16_ 
"SYN[BU L H,7.25 
SYNIBU, 1),7.29 
SYN(BU, 12), 7.38 
SYN(BU,18), 8.0 
SYN(BU,7), 8.57 
SYNIBU, 18), 8. 32 



EVALUATION TABLE BASE ADDRESS 
• EVALUATION MASK ADDRESS 

-FILE AREA ACTIVATED ADDRESS 
-CONTROL WORD ADDRESS 

-I/O RETRY INDICATOR 

-AWAITING CORRECT REEL 

1 -10 INSTR. LAST" EXECUTED " 
-RETURN ADDRESS "IN MCP 

-OCTAL CONTROL OP CODE 
-SCRATCH PAD MEMORY 
-ENTRIES FOR TAPE ONLY 

-MODE SPECIFIED IN LABEL 
-SYSTEM" TAPE FLAG 

-DENSITY "SPECIFIED" IN LABEL 
-FILE COUNT 
-FIRST REEL ADDRESS 
-CURRENT REEL COUNT 
-CURRENT REEL ADDRESS 



BFOOOOOl 
BF000002 
BF000003 
BF000004 

"BFOOOOOb" 

"BF000006 
BF0C0007 
BF000008 
BFOG0009 
8F000010 
BFOOOOir 

"BF000012" 
BF0C0013 
BF000014 
BF000015 
BF000016 

"BF000017" 
BF0Q0018 
BFC00019 
BF000020 
BF000021 
BF000022 
BF000023" 
BF000024 
BF000025 
BF000026 
BF000027 
BF000028 



HSI 



( 
( 

( 
( 
( 
( 

( 
( 
( 

c 

c 
t 



I IME CLOCK CCC54G41 



PUNIC 11C11MCP 



CARC ID EHOO0OC1 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 102 
L CC A T~I CN 



LINE 



L0CA1 ICN 



BINARY OUTPUT 



NAME 



STATEMENT 



1* 
2* 

I * 

L # 



-***** FILE AREA TABLE DEFINITIONS «***«- 



BHOOOOOL 
BH000002 
6H000003 
6H000004 



: * 
~i* 
i * 
£* 
c* 
1C* 



0GCCCC_.40+_ 
OCCCCO.OC+ 
00CCC1.U + 
0CCCC1.40+ 
0CC001.71+ 



_+o_cccoqcc 

+0CC00CCC 
+OCCOOCCO 
+0CCOOOCO 
+OCCCOOCO 



BU_,23__ f _lC_ 
BU.22 ,10 
BU,05 ,10 
BU,23 ,10 
BUtOl ,10 



S__ACT_AD SYN [BU,19J_, C.32 

~s icd rn"syn(bu, 18), bVc 

S 10 INO SYN (8U,5), 1.09 
S INT AD SYN(BU,19), 1.32 
SLWAIL SYNCBU, 1),1.57 
- S REELCSYN{BU,3),2.29 



-ACTUATED ADDRESS 
-ICD REFERENCE NUMBER 
-10 INDICATORS 
-INTERRLPTED ADDRESS 
-LOOP BIT FOR $WAIT 
-REEL DISPOSITION 



BHOOOOOia 
"BH000006 
BH000007 
BH000008 
BH000009 
BhOOOOlO 



12* 
12* 
14* 
15* 
1£* 



QCCC02.00+ 
0CCCC2.33+ 
00CC02.60+ 
0CCC03.CC+ 
CCCC04.C0+ 



+Q_cccooco 
+ccccocao 

+CCCCOQCO 
+OCCCOOCO 
+OCC0O00O 



BU,22__,_ip_ 
BU,02 ,10 
BU,02 ,10 
BU,1C0,1C 
BU f 100,10 



S TOE LC SYN (BU, 18), 2.0 



.-TABLE _CF _EXITS_LOCATI0N 

-I0D DENSITY*01-HI,ll-LC/00-NULL 
-FILE MCDE 
-CONTROL WORD 
-COPIED CONTROL WORD 



BHOOppll 
~BH000012~ 
BH000013 
BH000014 
BH000015 
BH000016 



S F DEN SYN(BU,2),2.27 
S F MODE SYN(BU,2), 2. 48 
S CW SYN(BU,64), 3.0 
S CCW SYN (BU,64), 4.0 
-ENTRIES FOR DISK 



ONLY 



1 1 * _ 00000 5.00+ 
1£* 000005.40+ 
19* 0CC0C6.C0+ 



AQ-CCOOOOp 
+OCCCOGC0 
+0CC0O0C0 



BUj22_jiC S _GR__ARC _S_YN[BU, 18J,5.00 <_-_ ORIGINAL L ARC 

BU,22 ,10 S MX ARC SYN { BU, 18 ) , 5.32 - MAXIMUM ARC 
BU, 22 ,10 S CU ARC SYN ( BU, 18 ) , 6. CO -CURRENT ARC 



BH00pp_17 
BH000018 
BH000019 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
1 
1 



wai 



TIME CLOCK CCC54C41 PUNiD llDll^CP CARD IC CAOOOOC1 DIST. OF 3/CL 

"LINE~"~LCCAT~ICV" BINARY" OUTPUT""" NAME STATEMENT 



3/01 



PAGE NUMBER 103 
I C A "TTCN" 



1* 
2* 

2 * 
i * 



— *«***« 



— »*#*«* 



* * «*« 
*#* # 

**#«■# 
THE FOLLG 






♦••a************************************************** CA000001 

THE COMMUNICATION REGION FOR MCP ******** CA000002 

♦♦♦♦♦ft************************************* CA0000G3 

SIPL + 1.0 SHALL NOT BE MODIFIED UNDER ANY CA00C004 



*#*****•»*** -i 



WING_ UP_ TO 
NCE" WITHOUT 



f * 
~£*~2 

] * * 2 

6* 2 

?*' 
IC* 2 



15CCC.C0 2150CC.00+ 
150CC.40 CC0016.CC+ 
15001.00 52C0CC.0O+ 



CCO 000000 OCOCCO 



SPCP 

S COMSZ 

SCCMRG 



15C01 
15CC1 



.C0_+_ 
.01 + 



+_c_c_c 

+ OCC 



ooqcq 
cccco 



BU 
BU 
BU 
BU 
BU 
BU 

§y 

BU 



01 



IC 



S E 

S HS ECH 



CIRC 

~VF , S 

VF,S 

xw, ( 

19 E 
SYN( 



UMSTA 

MCP 

ENDCM 

8)520 

ITS D 

BUil) 



-SMCP 
000. 
EFINED FOR 

, S COM RG 



T _ H A C J?NSENT_OF THE IPL MAINTAINER, 
-BASE ADDRESS CF""MCP 
-SIZE OF COMMUNICATION REGION 



SCCMRG ARE BELOW. 



CA000005 
CA000006 
CA000007 
CA000008 
CA000009 
CA000010 



11* 
12* 
13* 
14* 
15* 
16* 
17* 



tCl 
,01 
tOl 
,01 
,01 
,01 



10 

lb 

10 

ic 

IC 

VP_ 

10 



SYN(_BUf 1]»S COM RG + . 

~S~ YN ( BU , I ) , S CGMR G + . 2 
SYNiBU, 1), S COM RG 
SYN(RU,1), S COM RG 
SYN(BU,1),S COM RG+C 
SYN£BU, 1) , S C0MR_G+._6 

"SY"N(BU, 1)~,~S COM RG.7 



-HS 



ECH OPERATION BIT 
"-CONFIGURATION" CHANGE FLAG 
+ 0.G3 -COMPILE OR GO BIT 
+ 0.04 -LEVEL OF INSTRUCTION COUNTER 
.05 -LEVEL OF INTERRUPT 



CA000011 
CA000012 
CA000013 
CAC00014 
CA000015 
CA000016 
CA00001Y 



15C01 
15CC1 
15C01 
15001 
15CC1 
1 5 C C 1 



.C2 + 
.C3 + 
.04 + 
.05 + 

•_0_ 6 _ + _ 
.0 7 + 



+ OCC 
+ CCC 
+ OCC 
+ OGC 
+_C_CC 
+ CCC 



CCCCO 
00000 

coccc 

COGCO 

c_cocq 
cdctTc 



S 
S 
S 
S 
S 



CNF CG 

CORG 

L 

M 

P INCL 



S CS INT 



ie* 

IS* 
2C* 
21* 
22* 

2 A* 

24* 
25* 
26* 
27* 

29* 
3C* 
31* 
32* 

33* 

34* 



15001 
15001 
15C01 
15001 
15001 
15001 
15CC1 
15001 
15001 
15CC1 
15C02 
15CC2 
15002 
15CC3 
15CC3 
15004 
15C04 



.10 + 
. 12 + 
.13 + 
.14 + 
.15 + 
.16 + 
". 1 7 + 
.20 + 
.21 + 
.22 + 
.00 
.34 + 
.CC+" 
.CO 
.40 
.00 
.40 



+ OCC 
+ OCC 
+ CCC 
+ OCC 
__+_0_0C 

_ _ + _ G C " C 
+ CCC 

+ CCC 

+ CCC 

+ OCC 

CO CO c_c 

+ c[c C 

+ CCC 
2150CC 
CCCGC4 
CCC006 
CCCCC5 



COOCC 

cocco 
oocco 

00000 

oocco ^ 

0GC~C0__ " 

ccccc 
cooco 

COOCC 
CCOCO 
.CC+ CCO 

c]qocq_ 

CCCCC 
.00 + 
.00 + 
.00 + 
.00 + 



BU 
BU 
BU 
BU 

_eu 

_|y 

BU 
BU 
BU 
BU 

oqcooo 

""BU 
BU 



,02 
,01 
,01 
,01 
,01 
,01 
,01 
,01 
,01 
,01 

ccc 

,22 
,1CC 



IC 

IC 

10 

10 

IC 

10" 

10" 

10 

10 

10 

99 

10" 
10" 



SYSMGD 

S TRAN B 

SSPFIX 

STSBIT 

SPPBT1 

SPPBT2 

SPPBT3 

SJ1FUL 

SLCCSU 

S JBUSY 

__SXCHAN 

S CHAN k 

S "CHANS " 

SBAMCP 

SRTAPE 

SWTAPE 

S READR 



SYN( 
SYNi 
SYN( 
SYN( 
S_Y_N { 

"sy"nT 

SYN ( 
SYN< 
SYN( 
SYN( 
XW,C 
"S_YN( 
SYN, 
VF,S 
VF, V 
VF,V 
VF, V 



BU,2) ,SC0MRG+.8 
3U, 1),S COM RG+. 
BU, l),SCOMRG+.ll 
BU, 1) ,SC0MRG+.12 
BU, 1) , SC0MRG + .13 
BU, "l),SCGMRG+". 14 
BU, 1) ,SC0MRG + .l5 
BU, 1),SC0MRG.16 
BU, 1),SC0MRG.17 
BU, 1),SC0MRG.18 



10 



BU L 18],S 

SXCHAN 

MCP 

RTP 

WTP 

CRD 



X CHAN+.28 



-TWO-BIT OPERATING MODE 

-ON IF PP IN SPECIAL FIXUP 
-ON IF TS STACKED FOR PP 
-3BITS FOR TRANSITION COMMANDS 



•EQUALS ONE WHEN JC1 TABLES ARE FULL 
-ON WHEN DISK IN SETUP 

-BASE ADDRESS CF CHANNEL STATUS TBLL, 
""-NUMBER OF CHANNELS" CONNECTED 



-INPUT SPOOL READER REF NC. 
•BASE "ADDRESS "CF THE PP "I/O LCC TBL 



CA00001B 
CA000019 
CA000020 
CA000021 
CA000022 
"C AC 0002 3" 
CA000024 
CA000025 
CA000026 
CA000027 

CA0qqq2§ 

"CAO 00029" 
"CA000030" 
CA000031 
CA000032 
CA000033 
CA000034 



35* 
3d* 
37* 
3£* 

3S* 
4C* 



15CC5, 

15005^ 

15006, 

15006 

15C07, 

15007, 



CC 
4C 
CC 
40 
OC 
40 



CCCCCC 
C CCCCC" 
CC0023 
000022 
OCOOCC 
CCCCCC 



.00 + 
.00 + 
.4 + 
.40 + 
.00 + 
.00 + 



S _B_A_P_P 
S PAXRN" 
S YCOCH 
S YPRCH 
S DKMCP 
S SYRFT 



V F , 

V F , C 
VF, ( 
VF, { 
VF,C 
VF,0 



CA000035 
"CA000036 
CA000037 
CA000038 
CA000039 
CA000040 



20 

19 

18 

17 

16 

15 

U 

13 

12 

11 

10 

9 

B 

7 

6 

5 

4 

3 

2 

1 



8)23.40 
8)22.40 



4 1 * 
42* 
43 * 
44* 
45* 
4£* 



15010 

15C1C" 

15C11 

15C11. 

15012 

15012 



CO 

4 0" 

CC 

40 

00 

4C 



_2_1_5_5_7_C 
215571 

2174 
CCCCCC 
CCCCCC 
OGOOOC 
215023" 

OCCC 



._C + _ 
.0 0+ 
52.04 
.00 + 
.00 + 
.0C + 



S PR I_N 
S PR GUT 
SIFDMP 
S REJJB 
S ROOF 

_S_ _M A R K 
S I A 



VF,S 
V F , S 
BD,S 
VF,C 
VF,C 
VF 



PRIME 
PRIMR 
DISIC+.32 



-THE MAX. REF. NUMBER FOR A PP 

-CONSOLE CHANNEL NUMBER 

-PRINTER CHANNEL NUMBER 

-MCP RESET TRACK FOR DISK 

- VARIABLE P IN T E R F R P_P_ D I S K A SSI G N 

-ENTRY _T_c THfc PRI ME_ RO UJ I_NY 

-SAVED ADDRESS OF JOES PRIME "ROUTINE 



CAqq0041 
"CA000042" 
CA000043 
CA000044 
CA000045 
CA000046 



00 



47* 
4£* 
4S* 
5C* 
51* 
52 * 



15C13, 
15C13" 
15C14. 
15015 

15016, 



CC__ 
40 h 
00 
CC 
CC + 



.00+ 

00.30 CO 



VF, S 
"CNOP 
(AX) 
(AX) 
SYN, 
-IPL 



IT 



-THE NUMBER OF JOBS TO REJECT 
-INTERRUPT TABLE ADDRESS 



PP 



CA000047 
CA000048 
CA000049 
CA000050 
CA000051 
CA000052 



+0CCC0CC0 



NULL 



S DATE 
STODAY 
S ENDCM 



CD(BU),03/15/63X 
DD(BU), / /63X 

$ 
TENTACLL TAELE 



FOR DATE OF IPL TAPE TO SPOOL 
-FOR DATE OF JOBS ON SPOOL TAPE 
-END OF COMMUNICATION REGION 



5 3 * _ 2 1 5 CI 6. CO _C 200 00 .CO_CQ__ 0000 00 . C C C C _ _ _S_ IP L_ _] l_H I N V K , 4 _ 

54« 215C17.CC """ " "" OCCCCCOOCOOOOOOCCCCOOO DD(BU),C 

55* 215C2C.ee CCCC42.CG+ SJCTWS VF, (8)42.0 

56* 215C20.40 236464.00+ STERMI VF,ZFINIS 



-USERBIT MCP 



- TWS FCR 
-LAST MCP 



JC 
SLOT 



CA000053_ 
CA000054 
CA000055 
CA000056 

wai 



I IME CLOCK CCC54C4L 



PLN1D 11C11MCP 



CARD IC CBOOOOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 104 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

2 * 
2* 
i * 



****#*»* MCP PSELDO OPS ******** 



CB000001 
CB000002 
CB000003 
CB000004 



5 * 

'~£i~2l502CV>YV 
7* OOC001.CO+ 
E* 0CCC01.C1+ 
S* OCC001.40+ 

IC* 0CC0C1.41+ 



+OCCCOCOO 
+OCCGOOOG 
+OCCOOOCC 
+OOCCCCCC 



NULL 
NULL 
NULL 



SLC,$ 
D RD SYNti.O 
D RC S SYNil.Ol 
W SYN.1.32 



CB000005 

CBOobbo6" 

CB000007 
CBOOOOOb 
CB000009 



NULL D W S SYN,1.33 _. _ . _C8000010 



11* 0000C2.C0+ 



+0CCC0CC0 



NULL 



D CCW 



SYN,2.0 



CROOOOli 



12* 0CGGC2.4C+ 

12* 

14* 0CCC03.C0+ 

15* 00CCC3.C1+ 

16* 



+CCCC0C00 

+OC0CGCCC 
+0C0C00CC 



NULL 

NULL 
NULL 



C REL SYN.2.32 
- D RLLS SYN,2.33 
LOC SYN.3.0 
D LCC S SYN,3.01 
-__C__FC_ _SYN t 3.32 



CB000012 
CE000013 
CB0C0014 
CB000015 
CB000016 



11*. 

lfc* 

1?* 

2C* 

21* 

22* 



- C 

- c 

- D 

- C 

- C 



_F_CS_ 
TIF 
TIFS 
TIN 

TINS 
ERG 



SYN.3.33 

SYN,4.0 

SYN,4.01 

SYN.4.32 

SYN.4.33 

SYN.5.0 



CBC000L7 
CB000018 

CB000019 
CB000020 
CE000021 
CB0C0022 



23*_00CC05.CJ+ 

24* 0CC005.4C+ 

25* 

26* 0GCCC6.C0+ 

27* 

2fc* 00CCC6.40+ 



+ 0C_C_CJD_CC0 

+CCCC0000 

+0CCC0CG0 
+CCCCOCCC 



NULL 
NULL 

NULL 

NULL 



D_ ERG S _ _S Y N l 5 . 1 
C SP SYN.5.32 

- C SPS SYN,5.33 
D BSP SYN.6.0 

- C BSPS SYN.6.C1 
D SPFL SYN.6.32 



CB0QQQ23 
CB000024 
CB000025 
CB0C0026 
CB000027 
CB000028 



2S* 

3C* 0CCCC7.CC+ 

31* 

32* 

32* 

3.1* 

35* 



00CC07.40+ 



0CCC1C.C0+ 



+0CC0CGCC 



+CCCC00G0 



♦OGCCOOCO 



NULL 



NULL 



NULL 



"_ C_SPFLS S_YN ,6 . 3 3 
U BSFL SYN,7.C 
- C BSFLSSYN,7.C1 
WEF SYN.7.32 
CKEFS SYN,7.33 
REW SYN,8.C 



D 



D 



- C REWS SYN.S.Cl 



C8000029 
CB00C03G 
CB000031 
CB000032 
CB000033 
CB000034 
"CB0000J5' 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
1 
1 



36* 0CCC1C.4C+ 

3?* 

36* 

3S* 0CCC11.CH- 

4C* 



+CCCCC0C0 



+0CCC00C0 



NULL 



NULL 



D UNLD SYN,8.32 

- CUNLOS SYN.8.33 

- C RLF SYN.9.0 
D RLF S SYN.9.G1 

- C RLN SYN.9.32 



C8Q00036 
CB000037 
CB000038 
CB000039 
CB000040 



41* 0CCC11.41+ 

42* 6cCC12.CG+ 

42* 0CCC12.G1+ 

44* 0CC012.4C+ 
45* 
46* 



_+ OCCCCCC 
+OCCCCGLC 
+CCCCO0G0 
+CCCCOOCC 



NULL 
NULL 
NULL 
NULL 



_Q_ «_L_N_ _S _ A Y.N t_9 . 3 3 
D KLN SYNtlO.C 
D KLN S SYN.10.C1 
C FREE SYN.1C.32 

- D GONG SYNtll.C 

- C GCN6SSYN.il. CI 



CB000041 
"CB000042" 
CE000043 
CB000044 
CB000045 
C BOO 00 4 6 
CB000047~ 
CB000048 



47*_0CCC13_.4C_+_ 
4E* CCC014.CC+ 



_ + _c_c_c_gcoco 
+ cccc"occc 



NULL 
NULL 



_P _W_AIT 
C CHEX 



SYN L 11.32 
SYN.12.C 



Kfll 



i i me clcck 00054041 punic 11c11mcp 
"line lccVtTcn binar"y _ cutpuT 



CARD ID CB000G5C 
NAME 7 ~ 



D 1ST. OF 3/C1 

STATEMENT 



3/01 



PAGE NUMBER 105 
LCCATTCN" " "0000 14 



1» 0CC014.4C+ 
2* 000015. CC+ 
2 * 

A* _ 

_ _ „ 

i * 

t* 

9* 
1C* 



+0GCCOGCC 
+OCCCCOCC 



NULL 
NULL 



S FREE 

DICDEF 

-CHC 

-_ChDS _ 

- LLC 

-DLDS 

-CEVEN 

-OEVENS 

-DCDD 

-DGDDS 



SYN, 12, 
SYN, 13. 
SYN, 14, 
SYN, 14. 
SYN t 14~. 
"SYN, 14] 
SYN, 15, 



32 
C 
C 
01 

I?" 

3 3 
C 



SYN, 15. CI 
SYN, 15. 32 

SYN, 15.33 



CB000050 
CB000051 
CB000052 
C BOO 005 3 

"CB000054 
CB000055 
CB000056 
CB000057 
C8000058 
C80C0C59 

"CBQ00060" 
CB000061 
CB000062 
CB000063 
CB000064 
CB000065 
CB000066 

"CB000067 
CB000068 
CB000069 
CB000070 
CB000071 
CB000072 
C BOO 00 7 3 
CB000074 
CB000075 
CB000076 
CB000077 

"CB000078 
CB000079 
CB000080 
CB000081 
CB000082 
C8000083 

_CB0q008 4" 
CB00C085" 
CB000086 
CB000087 
CB000088 
08000089 

_CBq0009(T 
CB000091 
CB000092 
CB000093 
CB000094 
CB000095_ 
CB000096 

~C BOO 0097" 
CB000098 
CB000099 
CB000100 
CB000101 

"ceoooio"2_ 

06000103 
CB000104 
CB000105 



n* 
12* 

13* 
14* 

15* 
16* 



-CECC 
-DECCS 
-DNOECC 
-DNOECCS 
D SIO 
D RID 



SYN, 16. C 
"SYN, "16. CI 
SYN, 16 
SYN, 16 
SYN,32 
SYN, 32 



00CC4G.00+ 
0CCC4C.4C+ 



+GC0COGCO 
+OCCOOCCC 



NULL 
NULL 



32 

33 

C 

32 



1 7 * C C 4 1 . CC _+_ 
"It* 0CCC41.C0+ 

19* 

2C* 

21* 

22* 000043.00+ 
~23i 0CCC43_.40+" 

24* CCCC44.CC+" 

25* 

26* 

21* 

2fc* 

29* 



+OCC_CC_CCC 
+CCCCOCCC 



_+_o_ccoccco 
+_occ[coocq 
~+occco~occ 



NULL 
NULL" 



NULL 
NULL 
NULL 



_D_ 
S 



RET 
C RET 
C RAM 
CSTRG 



S_YN 1 3 3.C 
SYN, D RET 
SYN, 33. 32 
SYN, 34.0 



- D FECRGSYN,34, 



D TIME 

C CCMM 

CSIT 

-CFIXUP 

-DSTLR 

-DFELR 



SYN, 3 5 
SYN, 35 
~SY~N,36 
SYN, 36 
SYN, 37, 
SYN, 37.32 



32 

C 

32 

C 

32 

C 



«***«**« PSEUCO-GPS folTH TENTACLES ******* 



3C* 
31* 
32* 

33* 

34* 

"3 5* 



000100.00+ 

00C1C1.CC+ 
00C1C1.4C+ 
000102. G0 + " 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
t 



36* 
37* 
3£* 
39* 
4C* 



0CC102.4C+ 

0CC1G3.40+ 
000104.00+ 
C0C104.4C+ 



+0CCC0000 
+OCCOCOCC 

+„° c„ c A c _ _ c °_ 
+_c cccoocTo 

+o"~occoccc 

+0CCC00C0 
+CCCOOOOO 
+OOOOOCCC 



NULL 

NULL 

NULL 
"NULL" 



D DUMP SYN, 64. C 
- C EDUMPSYN,64.32 
EOJ SYN, 65.0 
D_ HJ3LD _ _S_Y_ N f _6 5.32 
DRESLD " SYN,6~6.C" 



NULL 

NULL 
NULL 
NULL 



FETCH 

D SPU 
SPR 
ABEOJ 
SCR 



SYN, 66. 32 
SYN, 6 7.0 
SYN, 67. 32 
SYN, 68.0 
SYN, 68. 32 



41* 
42* 
42* 
44* 
45* 
46* 



*»****#* RESERVED FCR FUTURE MCP USE ******** 

$SYN,69.C 
$SYN, 69.32 
$SYN, 70. C 



47 * 
~4fc * 
49* 
5C* 
51* 
52* 



$SYN,7C.32 
$ SYN ,7 1.0 
(SYN.71.32 
$SYN,72.0 
$SYN, 72.32 
$SYN L 73.G 
4.SYN, 73.32" 



53* 
54*" 
55* 
56* 



******** RESERVED FCR INSTALLATION PSEUDC OPS ******** 



Hfll 



I IME CLOCK 0QC54C41 



PUMD 11D1LMCP 



CARD ID C60001C6 



DIST. OF 3/CL 



3/01 



PAGE NUMBER 106 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
1 * 
3 * 
<* 



-UNCUNDITIONA $SCR RESLD - TEMPORARY 



_ * 
I _ 

i * 

e* 

9* 
1C* 



$SYN,74.G 
$SYN,74.32 
$SYN,75.G 
__Y_. 75.32 

$SYN t 76.C 

******** SPECIAL MCP PSEOCO OPS ******** 



CB000106 
CB000107 
CB000108 
C6000109 



CBOCGllG 

CfiOOOlli" 

CB0001L2 

CB000113 

CB000114 

CB000115 



OCCll^. 
000115 
0CC115 



.40 + 
.C0 + 
.4C + 



+0CCC0CC0 
+O0C00CCO 
+CCCC0CC0 



NULL 

NULL 

NULL 



SJC1 

SOUTPT 

SSPECJ 



SYN,76.32 
SYN, 77.0 
SYN, 77. 32 



-JOB CONTROL 
-OUTPUT TAPE 
-OUTPUT ECJ 



PHASE ONE 
SWITCH 



11* 
12* 
13* 

14* 
15* 
16* 



Q0CU6 
00C116 
000117 
00C117 
000120 
CCC12C 

00CJ2J 
0GC121 



. C_C_+_ 

.40 + 
.00 + 
.40 + 
.00 + 
.40 + 



_+occooo_o 

+0GC00CCC 
+O000OCCC 
+CCCCOOCC 
+GCCOOOCO 
+CCCOOCCC 



NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 



J-fJCJ 
SJC4 
SSCR4 
SKCM 
SCGMD 
S_LGG4_ 
_S_L_CG2 
SLCG1 



SYN,_78.C_ 
SYN, 78.32 
SYN, 79.0 
SYN, 79. 32 
SYN, 80.0 
SYN, 80. 32 



-DEBUGGER 

-IPL ENTRY TO JC4 
-$SCR + N.32,N=1C0 
■INPUT COMMANDS 
■SYSTEM COMMANDS 
-LOGGER 4 



CB000116 
CB000117 
CB000118 
CB000119 
CB000120 
CB000121 



1ST CARC REG. 



II* 

le* 
is* 

2C* 
21* 
22* 



•_CP_+_ 
.40 + 



tcccocgcg 

+CCCCOOCO 



___N_8l_Q_ 
SYN, 81. 32 



-LOGGER 
-LOGGER 



******** INPUT COMMAND PARAMETERS******** 



-_ S _C_NL.___SY.NiQ 

_-__>_ QfJ_ SYN, .32 _ 
- S EOF SYN, 1.0 
EJSCNSYN,1.32 
BYP SYN,2.0 
REW SYN, 2. 32 
CR1 SYN, 3.0 



-ON-LINE 



CB00P122 
CB000123 
CB000124 
CB000125 
C8000126 
CB000127 



23* 
2* * 
25* 
2.* 
2<* 

___ 

29* 



rQF_FL.I_N_.__ 
-END OF FILES 

-EOJ SCAN 

-BYPASS 

-REWIND 

-JC1 CARD REQUEST 

-PHASE ONE SCAN 



CB0Q0128 
CB000129 
CB000130 
CB000131 
CP,000132 
CB000133 
CB000134 



S 
S 
S 
S 



- S CAN SYN, 3. 32 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 
6 
5 
4 
3 
2 
1 



Hfll 



TIME CLOCK CCC54C41 



PLNiD 11C11MCP 



CARD IC CCOOOOC1 
NAME " 



DIST. OF 3/C1 

"STATEMENT 



3/01 



PAGE NUMBER 107 
L C A T I CN" 



? 

5 
9 
Z 

6 

Oi 
[[ 



LJNE 



LCCAT ICN 



BINARY OUTPUT 



1* 
2* 
2* 

** 01CCC1.CC+ 
t* 01CCC2.0C+ 



_+qcccccco 

+"CCCCCOCO 



NULL 

null" 

NULL 
NULL 
NULL 
NULL 
NULL 



- a********************************************************************* CC000001 

-**«»« EXIT CODES TO ERROR ROUTINE ***** CC000002 

- ******#***#*»*******#**»***»****************************************** CC000003 
SIFERR SYN,116UC01.C_ - 1 ILLEGAL JF INTERRUPT _ _ _ CC000004 
SCPCI "SYN, ( 16) 1C02.C " - 2PSELDC CP CODE INVALID _CC000005 



£* 01CCC3.00+ 

7* 01CC03.CO+ 

6* 01C004.C0+ 

S* 01C004.G0+ 

IC* 01CCC5.CC+ 



+CCC0O0CC 
+0CGC0CCC 
+0CCC00CC 
+CCCC00C0 
+0CCC0CCC 



SCHNAV SYN, ( 16 ) 1C03.0 

SUNNAV SYN,SCFNAV 

SICDI SYN, ( 16)1004.0 

SUNNAS SYNtSIGCI 

SPPTNG SYN, ( 16)1C05.C 



- 3 CHANNEL NOT AVAILABLE 

- 3 UNIT NOT AVAILABLE 

- 4 PHONY ICD 

- 4 UNIT NOT ASSIGNED 

- 5 ILLEGAL PP T.O.E. ON ICC 



CARD 



CC000006 
CC000007 
CC000008 
CC000009 
CC000010 

ccooooir 

"CC000012 
CC0C0013 
CC000014 
CC000015 
CC000016 

"CC000017" 

ccooooia 

CC000019 
CC000020 
CC000021 
CC000022 

"CC000023" 
CC000024" 
CC000025 
CC000026 
CC000027 
CC000028 
CC000029 

"CC000030" 
CC000031 
CC000032 
CC000033 

ccqqqo34 

"CC 0000 35" 

"CC0 COO 36 



S! 
91 
Zl 
81 
61 
05 



LI*_9 1 ^cc6_.cc+_ 

12* 01CCC7.CC+ 

13* 01CG1C.CC+ 

14* 01C011.00 + 

15* 00C412.CC+ 

16* 0CC4C1.C0+ 



+_o_qc_cqccc 

+ OGCOOCCC" 
+CCCGOCCC 
+OGCOOOCO 
+OCCOO0C0 
+OCCCOOGC 



NULL 

null" 

NULL 

NULL 
NULL 
NULL 



S 2 BIG SYN t (l6)l C 6 . C 

S C W I N V SYN , ( 1 6 ) 1 C 07 . 

SCCWAD SYN, ( 16)1008. 

SFORBD SYN, ( 16)1009.0 

SFORMT SYN,{ 16}010A.C 

SNXOUT SYN, { 16)0101.0 



- 6_REQLEST FOR TOO MANY SCRATCH TAPES 
-7 CW INVALID 

- 8 Ch ADDRESS INVALID 

- 9 COMMUNICATION WITH PROTECTED 
-10 DUMP FORMAT INVALID 
-11 GOOF IN CHEX 



AREA 



1 ** 0CC4C2.CC + 
"it* 0CC4C3.CC+ 
IS* 000404. CC + 
2C* 0CC405.CC+ 
21* 000406. C0 + 
22*_00G407.CC+ 
~22*_00C41C}CC+~ 
2** 0CC411.CC + 
25* 001012.00+ 
26* 
21* 

2e* 

~2S* 003405.00 + 



_+_G_cc_coqcq 

+0CCC00CC 
+OOCCCOCC 
+OCCC0C0O 
+00G0OOCO 
+OCCCOGCC 
_+JDCX_C_C_GCC 
+OCCCOOGO 
+00C00000 



+ ccc_coouq 

+OCC0O0CC 
+0CCC0000 
+0CC00000 
+00C00000 
+OCCCOCCC 



NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

NULL" 

NULL" 

NULL 



NULL 
"NULL" 
NULL 
NULL 
NULL 
NULL 



SUSUPP 
ST MM I 
SOAUD 
SLABNG 
SBR40 
SPJCEX 
S CCMER" " 
S FIXP " 
SCRCOO 



SICERR 

SREJ 

SCERR 

SC2BIG 

SPQFUL 

SIFAS 



SYNi< 16_)0_102_.0_ 
SYN, (16)0103.0 
SYN, ( 16)0104. C 
SYN, ( 16)0105.0 
SYN, ( 16)0106.0 
U6)C107.0 
U6) 0108.0 
SYN, ( 16)0109.0" 
SYN, ( 16)C20A.O 



-12 UNIT SUPPRESSED 



SYN, 
SYN, 



-13 50 MASKABLE INTERRUPTS 

-14 OP, AD, USA OR DS 

-15 BAD LABEL 

-16 SUCCESSFUL B,$MCP 

-17 BAD PTOE ADDRESS 

-18 Tll_egal_$ccmm F>A 

-19 ILLEGA"L FIXUP"WD FCR $FIXUP 
•2C PP BUFFER OUT OF BOUNDS FOR $STLR/$FHLR 



ERRORS IN MCP ONLY 



SYN, (16)0705.0 
"SYN, ( 16)0706.0" 
SYN,( 16)0707.0 
SYN, ( 16)0708.0 
SYN, ( 16)0709.0 
SYN, { I6)C80A.C 



*»» *•* 

A c ~ p "ffTUP~f76~dRROjr " 
I/O OPERATION REJECTED 
FILE NOT STACKED IN INT 
INTERRUPT CUE TOO SMALL 
PRIME QUE TOO SMALL 
MCP ERRCRhHILEAUTO STAC K E 
MCP EPGK 



3C* 003406. CC+ 

31* 003407.00+ 

32* 003410. 00+ 

33* 003411. C0+ 

34* 0C4C12.CC+ 



QUE 



3S_*_0C4C01.C0 + 
"36* 0C4CC2.0C + " 



+q_cxc_c_o_co_ 

+CCCG0CG0 



NULL 
"NULL 



S E P G K 
S ASNER 



SYN, ( 16)C8C1.C 
SYN, ( 16)0802.0 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK CCC54C41 



PUNIC UC11MCP 



CARD IC CDOOOOOl 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 108 



LINE 



LOCATION 



BINARY OUTPUT 



NAPE 



STATEMENT 



LOCATION 



1* 
2* 

2 * 
i * 



b * 

i * 

i* 

S« 

IC* 



0CCC4C_.G0_+_ 

OCCCCO.CC+ 

0CCCC2.CC+ 

OOCOCO.OO+ 

0CC0C3.00+ 



- *** MISCELLANEOUS SYSTtM SYMBOLS *»« 



+CCCCOOGO 

♦occcoocc" 

+OO0GO0G0 
+OCCOOOOO 
+0CC0OOO0 



NULL 



D MCP 



SYN,32.C 



CDOOOOOl 
CD000002 
CD000003 
CC000p04_ 
"CD0C00C5~ 



BU,3C ,1C 

BU,3C ,10 

SUfOl ,10 

BU,3C ,10 



S INST 
S INSTH 
S TC DEN 
STCMOD 



SYN(BU,24),0.C 
SYN(3U,2'*),2.C 
SYNtBU, 1),0 
SYN(BU,24),3.0 



-INSTALLATION CENSITY - HIGH CD000006 

■INSTALLATION MGDE-NECC EVEN CD000007 

-STANDARD CENSITY * 1-LCWt O-HIGH CD000008 

-STANDARD MODE NECCCCD CD000009 



CCCCCQ.CC+ +0 0CC00CC BU t 7__i.l_C____S CD SYN {.BLJ , Z^O tQI.SK DENSITY _« Q-L_G_W, 1-HIGH _CDOpgp_lp 



1 1*_QCC0CC_. 3J+_ 
12* 0CCC0C.32+ 



_+_o_cc_opgcc 

+CCCCCGC0 



BUjOJ _f_ip____SYSJAP ___SYNtBUi 1 ), .27 
8U t 01 ,10 S FP SYNtBU, l],. 26 



•SYSTEM TAPE 
-FILE PROTECT 



CDOOCpll 
CC0C0012 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



1 IKE CLOCK CCC54C41 



PUNID 11D11MCP 



CARD IC DAOOOOOl 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 109 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
c * 

'■ * 
< * 
'II*~2J5C2C7>T~ 

e* 

i* 215021. CC 

c* 00CCCC.31+ 

9* 0CCC0G.40+ 

IC* OCC'OCC.75* 



0CCCC2.C0 
+CCC0O0C0 
+0CC0O0C0 
+0CC0G0CC 



- *##»«****PROGRAM STATUS T A8LE******«»*« 







s 


PROG S 


BUtOl 


,10 


s 


A S 


BU,22 


.10 


s 


Q K 


BU,01 


tlO 


s 


SIO 



SLC,$ 
"CNCP 

CRZ(BU,6*) f 2 
SYN(BU, 1>,.25 
SYN(BU f 18), .32 
SYNiBU, 1), .61 



-PROGRAM STATUS TABLE 

-AUTO STACK STATUS INDICATOR 

-SUPPRESSED MODE STATUS INDICATOR 



DA000001 
DA000002 
DA000003 
DAC00004 
"DAOOOOOb" 
DA000006 
DA0C0007 
DAOOOOOB 
DA000009 
DA000010 



si 

91 
Z! 
81 
61 
01 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



1 IME CLCCK C0G54041 



PUNID 11D11MCP 



CARD ID CB000G01 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 110 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
I* 
4* 



- ««**««*** I NTERRUPT T ABLE******** ** 



z * 
~6« 
~i * 
fc* 
S* 
1C* 



215C23.C0 * 



SLC$ 



DB000001 
DB000002 
DB000003 
DB00 0004_ 

"oeooooos" 



215023.00 
215023. 40 
215C24.C0 
215C24.4C 



216411.40 80 
216374.04 CO 
216411.40 80 
216376.04 CO 



SIT 



CNOP 

SICYMFIC 
BD,YFXMK 
SICYMFIC 
BC YFXIK_ 



DB0G0006 
DB000007 
0B000008 
DB000009 
DB000010 



Li*. 
12* 
12* 
14* 
15* 
It* 



215025.00 
215C25.4C 
215026. CO 
215C26.4C 
215027. OC 
215027. 4C 



216411.40 8C 



216400.04 
216411.40 
216402.04 
21 5265. CO 
21 5107. C4 



CO 
80 
00 
80 

CO 



SICYMFIC 

BCYFXIJ 

SICYMFIC 

BD,YFXEK 

SICSTIC 

3C,SIPT+4.0 - TIME SIGNAL. INTERRUPJ 



DB000011 

00000012 
DB000013 
DB000014 
DB000015 
DB0C0015 



17* 
It* 
IS* 
2C* 
21* 
22* 



2_15C3C_._C_0_ 

215C3C.4C 

215C31.CC 

215C31.4C 

215032. CC 

215C32.4C 



216411.40 

216404. C4 

216604, 

216430, 

216604, 

216432. 



CC 
C4 

CO 
04 



ao 

CO 
8C 

CO 
80 

CO 



SICYMFIC 
BD,YFXCPU 
SIC.YSFIC 
BCYFXEKJ 
SICYSFIC 
BD, YFXUNR 



D BOO 001 6 
DB000017 
DB00001B 
DB0C0019 
DB000020 
DB000021 



22* 
2i* 
25* 
26* 

21* 

2fc* 



215C33_.CC 
215C33.4C 
215C34.C0 
215C34.4C 
215C35.CC 
215035. 4C 



2 1„6 6_Q4l»_G_C_ _8 C 
216434. C4 CO 
215265. CC 80 
215114.04 00 
215265. CC 8C 
215115.04 00 



_SJ_CY_SFIC 

BD.YFXCBJ 

SICS T IC 

BD,S IPT+9.C -EPCK INTERRUPT 

SICS T IC 

BD,S IPT+10.0 -UK INTERRUPT 



DB000022 
DB000023 
DB000024 
DB000024 
DB000025 
D80C0025 



2i* 

3C* 
31* 
32* 

33* 
34* 



215C36.CC 
215C36.40 
215037. CC 
215C37.4C 
215C4C.C0 
215C4C.40 



_2_1_5_26_5_._C_C_ _fl 
215116.04 CO 



SIC.S T IC 

"BDtS IPT+ll.Q-EE 
SICS T IC 
BO,S IPT+12.C -EOP 
SICS T IC 
BD,S IPT+13.0 -CS INTERRUPT 



DB000026 
~DB000026~ 
DB0000-27 
DB000027 
DB000028 
DB00002B 



215265, 
215117, 
215265, 
215120, 



CC 
04 
CO 
C4 



8C 
CO 
80 
CO 



INTERRUPT 

INTERRUPT 



35_*_ 
36* 
37* 
3€* 
3S* 
4C* 



215041. CC 
215041. 4C 
215C42.CC 
215C42.40 
215043. CC 
215C43.4C 



P 0_C_C0P_«_3_Q. _ c _o_ 
0CCCC0.30 CO 

216604. CO 80 

216436.04 CO 

216604. CC 80 

216440.04 CO 



AQ.P _ 
NOP 

SICYSFIC 
BCYFXCP 
SICYSFIC 
BD t YFXAC 



DB000029 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



Alt 

42* 
42* 

44* 
45* 
46* 



215C44j.CC 
215C44.4C 
215045. CC 
215045.40 
215C46.0C 
215046. 4C 



4_Z*_21504_7_.CC 
4£* 215C47.4C 



_2_1_6_6_C_4_._C_C_ aq 
216442. C4 CO 
215265. CC 80 
215125.04 00 
216604. CO 80 
_21_6_444_._e4_CC 
_2152_65.CC_80 
215127. C4 CO 



SIC.YSFIC 

"BDt YFXUS/T 

SICST IC 

BDt SIPT418. 
SICYSFIC 
BDtYFXCS 



SICSTIC 

BDtSIPT+20, 



DB000029 
DB000030 
DB000031 
DB000032 
DB000033 



DB000034 
~DB000035~ 
DB000036 
DB000036 
DB000037 
DBG00030 
Q BO 000 3 9" 
DB000039 



wai 



TIME CLOCK C0C54C41 



LINE 



LOCATION 



PUNID 11D11MCP 



BINARY OUTPUT 



CARD IC LB000041 DIST. CF 3/C1 

NAME STATEMENT 



3/01 



PAGE NUMBER 111 
LGC'ATTCN " "~2T5~050 



1* 215C5C.0C * 
2* 215C5C.CC 
I* 215C5C.4C ' 
_l!_215C5i_.CC__* 
_5?_215C5_1_.CC__~ 
6* 215C51.4C 
7* 215C52.CC 
£* 215C52.4C 
c .» 215C53.C0 
IC* 215C53.4Q 



215265. CO 80 
215471.04 CO 



215265. CC 
215131.04 
215265. CC 
215132.04 
215265. CC 
215133.04 



80 

00" 

80 

CO 
80 

00 



SLCiS IT+21.0 
SICtS TIC 

BC,S IFA E 
SLC I S JT+22. 
SIC, ST lt'_ 

BD, SIPT+22. 
SIC, ST IC 

BD,SIPT+23. 
SIC, ST IC 

B0,SIPT+24. . 



-TC PLACE IF INTERRUPT INSTRUCTION IN 
-IFA INTERRUPT INSTRUCTION 



DB000041 

DB000042 

DB000042 

06000043 

DB00004V 

DB000044 

DB000045 

D8000045 

DB000046 

DB000046 



'■ ( 

z 
c 
* i 

9 
9 

( 
8 
6 

01 ( 
I: 
zi 

El ( 

VI 
SI 

".( 

/I 

81 
6! ( 

05 



11* 

12* 

13* 

14* 

15* 

16* 

1 /* 

18*" 

IS* 

2C* 

21* 

22* 

'22* 
2*-* 
25* 
2i* 
21* 
2fc* 

"2S»" 



2150 54 
215054 
215055 
215055 
215056 
2 150 56 
2J5C_57 
215057 
21506C 
215060 
215C61 
215C61 
215C62 
215062 
215C63 
215063 
215064 
215C64 
215C65 



.CO 
.40 
.00 
.40 
.CC 
.40 

*_ c _° 

~. 4 ~ 

.CC 

.40 

.00 

.40_ 

.CC 

.40 

.CO 

.40 

.CO 

.40 

^CC" 



215265. 

215134." 

215265. 

215135. 

215265. 

215 136 . 

215265. 

215137. 

215265. 

215140. 

215265. 

21 5141. 

21~5265." 

215142. 

215265. 

215143. 

215265. 

215144. 

215265 " 



CC 

04 

CC 

04 

CC 

C4 

CO" 

04 

CC 

C4 

CC 

04 

CC 

04 

00 

04 

CO 

04 

o~o 



80 

CO 

80 

00 

80 

CO 

80" 

CO" 

80 

00 

80 

CO 

80 " 

00 

80 

CO 

80 

00 

80 



20 
19 
18 
17 
14 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 

33* 
34* 
~3f_* 
3 6 * 
37* 
3£* 
3S* 
4C* 



SIC, ST IC 

BCSIPT + 25. 
SIC, ST IC 

BD,SIPT+26. 
SIC, ST IC 

8D,SIPT+27. 
"SIC, ST IC~' 

BO i SI PT + 28." 
SIC, STIC 
BD,SIPT+29.C 
SIC, STIC 
_B0,_SIPT + 30.0 
STC.STIC 
6D,SIPf + 3UC~ 
SIC, STIC 
BCSIPT+32.0 
SIC, ST IC 

8D,SIPT+33. 
SIC, ST IC" 



215C65 
215C66 
215066 
215C67 
215C67 
215C7C 
215C7C 
215071 
215071 
215072 
215C72 



.40 

.CO 

.40 

.00 

.40 

.CC" 

.40" 

.CC 

.40 

.CC 

.40 



215145. 
215265. 
215146. 
215265. 
215147. 
21 526 5." 
215150. 
215265. 
215151. 
215265. 
215152. 



C4 CO 
CO 80 
C4 CO 
00 80 
C 4_ CO 
"C C_ 80 
C4 CO 
CO 80 
04 CO 
CO 80 
C4 CO 



BC, 
SIC, 

BD, 
SIC, 

A ' 

SIC, 

BD," 

SIC, 

B.D, 

SIC, 

3D, 



SIPT+34 
ST IC 
SIPT+35. 
ST IC 
SIPT+36, 
ST IC 
SIPT+37, 
ST IC 
SIPT+38. 
ST IC 
SIPT+39. 



DB000047 
DB0C004?" 
DB000048 
DB000048 
DE000049 
D8000049 
DB0000 50 
DB000050 
DB000051 
DB000051 
DB000052 
DB000052 
"DB000053" 
DBCC00 53 
D6000054 
DB000054 
DB000055 
0B000055 
DB000056 



DB000056 
DBOO0057 
DB000057 
DB000058 
080000 58 
D 80000 59" 
"D BOO 00 59 
DB000060 
DB000060 
DB000061 
DB0G0061 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 



41* 

42 * 

43 * 
44* 
45* 
46* 



215C73 
215073 
215074 
215074 
215075 
215075 



.00 

.4C~ 

.CC 

.40 

-CO 

.40 



215265 . 
215153." 
215265. 
215154. 
215265. 
215155. 



C_C_80 
04 CC 
CO 80 
04 00 
00 80 
04 CC 



SIC,ST IC 
BCSIPT + 40. 

SIC, ST IC 
BD,SIPT+41. 

SIC, ST IC 
BD,SIPT+42. 



06000062 
DB000062 
DB000063 
DB000063 
DB000064 
DB000064 



47* 
4 8* 
4S* 
5C* 



215076 
215076 
215C77 
215077 



.CC_ 
.40 
.00 
.40 * 



215265. 
215156. 
215265. 
215157. 



CC80 
C4 00 
CC 80 
04 CO 



SIC t ST IC 
8D,SIPT + 43~ 

SIC, ST IC 
BD,SIPT+44, 



DB000065 
DB000065" 
DB000066 
DB000066 



Wfll 





TIME CLOCK 00C54C41 PUNID 


1 IDll/^CP 


:ard 


IC CB000068 DIST. OF 3/01 


3/01 PAGE NUMBER 112 






LINE LOCATION 


BINARY OUTPUT 




NAME STATEMENT 


LOCATION 215100 






1* 


2151C0.CC 


215265. CC 


ao 






SIC, ST IC 




DB000068 




2* 


2151UC.4C 


215160. C4 


CO 






8D,SIPT+45. 




DB000068 




2 * 


2 15101. CC 


215265. CC 


80 






SIC, ST IC 




DB000069 




4* 


215101. AC 


215161. C4 


CO 






8CSIPT + 46. 




DB000069 




5 * 


2151C2.CC 


215265. CC 


80 






SIC, ST IC 


1 


0B000070 
"D80C0070 




6* 


2151C2.40 


215162. C4 


00 






BD,SIPT+47. 




1* 


2151C3.C0 


215103.20 


00 






S IPT BEW,$ 


-BASE ADDRESS OF PARALLEL INTERRUPT T 


DB000071 




fc* 


21 5 107. CO * 










SLCSIPT+4.0 




DB000072 




c* 


215107.C0 


216371.40 


80 






SICSINTC 




DB000073 




1C* 


215107.40 


216604. 5C 


CO 






B.JWLCCE -SPECIAL ROUTINE FOR TS 


DBOC00 73 




11* 


2 151 14. CC * 










SLCfS IPT+9.0 


-PARALLEL 10 INTERRUPT SLOTS 


DB000074 




12* 


215114. CC 


215226.11 


80 


215710.34 


OC 


BZB1,S PS I0I+.9 ,K 


STORE -EPGK PARALLEL INTERRUPT 


DBC00075 




12* 


215115.00 


215226.12 


80 


215710.34 


OC 


BZB1,S PS IGI + .1CK 


STORE -UK PARALLEL INTERRUPT 


DB000076 




14* 


215116.00 


215226. 13 


80 


215710.34 


OC 


BZB1.S PS IOI+.ilfK 


STORt -EE PARALLEL INTERRUPT 


DB000O77 




15* 


215117.00 


215226.14 


80 


215710.34 


OC 


BZ81,S PS IGI+.12.K 


STORE -EOP PARALLEL INTERRUPT 


DB000078 




16* 


21512C.CC 


215226. 15 


80 


215710.34 


OC 


BZfil.S PS I0I+.13,K 


STORt; - CS PARALLEL INTERRUPT 


DB000079 
DB000080 




17* 


215125. CC * 










SLCS IPT+18.0 






IE* 


215125.00 


216371. 40 


80 






SICWINTOR 




DB000081 




1?* 


215125.40 


216333.10 


00 






B,W LOCE 




DB000081 




2C* 


215127. CC * 










SLCS IPT + 2C.C 




DB000082 




21* 


215127. CO 


216371.40 


80 






SICWINTOR 




DB00008 3 




22* 


21512 7.40 


216333.10 


CO 






8,W LOCE 




DB000083 




22* 


215131. CC * 










SLCS IPT+22.C 




DB000084 




2'* 


215131. CC 


216371. 4C 


80 






SICWINTOR 




DB000085 




25* 


215131.40 


216333. 1C 


00 






B,W LOCE 




DB000085 




26* 


215132.00 


216371.40 


80 






SICWINTOR 




DB000086 




27* 


215132. 4C 


216333. 1C 


CC 






B,W LOCE 




DB000086 




2E* 


215133. CC 


216371. 4C 


80 






SICWINTOR 




DB000087 




2S* 


215133.40 


216333. 10 


CO 






BtW LOCE 




DBOOOOdf 




3C* 


215134. CC 


216371.40 


80 






SICWINTOR 




DB000088 




31* 


215134.40 


216333.10 


CO 






B,W LOCE 




DB000088 




32* 


215135. CO 


216371.40 


80 






SICWINTOR 




DB000089 




32* 


215135.40 


216333.10 


CO 






BiVi LOCE 




06000089 




34* 
35* 


215136.00 
215136.40 


216371.40 
216333. 1C 


80 
CO 








SICWINTOR 
B»ta LCCfc 





DB000090 

DB000090 




36* 


21 5137. CC 


216 3 71.40 


80 






SICWINTOR 




DB000091 




37* 


215137.40 


216333. 10 


CO 






B f W LOCE 




DB000091 


20 


3£* 


215140.00 


216371.40 


80 






SICWINTOR 




DB000092 


19 


3S* 


215140.40 


216333. 1C 


CO 






BtW LOCE 




DB000092 


18 


4C* 


215141. CC 


216371.40 


80 






SICWINTOR 




DB000093 


17 


41* 


215141. 4C 


216333. 10 


CO 






B»W LOCE 




DB000093 
DBOOOOM 


16 


42* 


215142.00 


216371.40 


80 






SICWINTOR 


15 


42* 


215142.40 


216333.10 


CC 






BtW LOCE 




DB000094 


14 


44* 


215143. CC 


216371.40 


80 






SICWINTOR 




DB000095 


13 


45* 


215143.40 


216333.10 


00 






B,W LOCE 




DB000095 


12 


4£* 


215144.00 * 


216371.40 


8C 






SICWINTOR 




DB000096 


11 


47* 


215144. 4C 


216333. 1C 


CO 






8,W LOCE 




DB000096 


10 


46* 


215145. CC 


216371.40 


80 






SICWINTOR 




DB000097 


9 


4S* 


215145.40 


216333. 10 


00 






B t K LOCE 




DB000097 


8 


5C* 


215146.00 


216371.40 


80 






SICWINTOR 




DB000098 


7 
6 


51* 


215146.40 


216333.10 


CO 






B,W LODE 




DB000098 


5 


















4 
3 
2 
1 





wai 



I IME CLUCK 00C54C41 



PUNID 11D1LMCP 



CARD ID CB0001C0 
NAME 



DIST. OF 3/C1 
'ST A.TEMfcNT 



3/01 



PAGE NUMBER 113 
I Q C A TlCN "2 1~5 1 4 7 



LJNE 



LOCATION 



BINARY CUTPUT 



]* 

2* 
2* 
4« 

£* 



215147 
2151-:. 7 
215150 
215J50 
215151 



.CC 
.40 
.CO 

•AP_ 

. CC 



216371. 
216333. 
216371. 
216333. 
2163 71." 



4C 80 
1C 00 
40 80 
1CC0 

4C eo" 



SIC, a 

B,W 
SICK 

R t W 

"sicw 



INTCR 
LODE 
INTCR 
LCDE 

INTCR" 



D8000100 
DB000100 
DB000101 
D BO 001 01 
D8C00102 



£* 

i * 

£* 

c* 

1C* 



215151 
215152 
215152 
215153 
215153 



.AC 
.00 
.40 

.00 

.40 



216 3 3 3. 
216371. 
216333. 
216371. 
216333. 



1C 
40 
1C 
40 
1C 



CO 
80 
CO 
80 
CO 



B, W 
SICW 

B,W 
SICW 

6,W 



LODE 

INTOR 

LGCE 

INTOR 
LODE 



11* 
12* 
13* 
14* 
15* 
16* 



215154 

215154" 

215155 

215155 

215156 

215156 



CO 

4C~ 

CC 

40 

CC 

40 



216371. 
216333. 
216371. 
216333. 
216371. 
216333. 



40 
1C 
4C 
10 
40 
1C 



80 
CO 
80 
00 
80 
CO 



sic,w 

"b,w" 

SICW 

B,W 

SICW 

B,W 



INTOR 

LCCE 

INTOR 

LODE 

INTOR 

LOCE 



DB000102 
DB0001Q3 
DB000103 
DB0C0104 
DB000104 



QB000105 
08000105 
DB000106 
DB000106 
0B000107 
DB000107 



17* 

It* 
19* 
2C* 
21* 
21* 
21* 
24* 
25* 



215157 

2 1 5 1 5 1. 

21516C. 

215160 

215161 

215161, 

215162" 

215162 



_C_C_ 
40 
CO 
4C 
CC 
40 
CO" 
4C~ 



216371. 
2~163 33. 
216371. 
216333. 
216371. 
216333. 
21 6 3 71." 
216333. 



40 
1C 
40 
1C 
40 
10 
40 
1C 



80 
CO 
80 
CO 
80 
CO 
80 
CO 



SIC,W 

B,W 
SICW 

e,w 

SICW 

_B,W_ 
"Sl"CW 

"e,w 

CNOP 



INTOR 

LGCE 

INTCR 

LOCE 

INTCR 

LOCE 

INTOR 

LOCE 



DBOOOlOa 
DB000108" 
DB000109 
DB000109 
D8000110 
DB000110 
DB000111 
"0 BOO Oil I" 
DB000112 



20 
19 
18 
17 
16 
15 
M 
13 
12 
11 
10 
9 



wai 



IIME CLOCK 0GC54C41 



PUNID 11D11KCP 



CARD ID CCOOOOOl 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 114 



LINE 



LOCATION 



BINARY OUTPUT 



NAPE 



STATEMENT 



LOCATION 



]* 

2 * 
2 * 
** 215163. CG * 



— ********************************************************************** DC000001 

— ******* «CP FURNISHED PTOE - CONTAINS ENTRIES TO STANDARD FIXUPS DC000002 

— ********************************************************************** DC000003 

SLCtt DC000004 



i * 

~l* 

t* 

t* 
c * 

1C* 



215J6 3_._C0_ 

215166.00 

215167. CO 

215167.40 

215170.00 

215170,40 



_C0CCC3.C0 

0040001 277 777 7776CC0C0 
216530. 1C CO 
000000.30 GO 
216530.50 CO 
C0CC00.30 CO 



SFPTE 



ST FIX 



1^ * 

13* 
14» 
15* 
16* 



215_17_1_._CC_ 
215171. 4C 
215172. CO 
215172.40 
215173. CC 
215173.40 



.2A45 66 
216531, 
216566, 
216531, 
216567 
216531, 



C3 

10 
43 
10 
C3 
1C 



ci 

CO 
CI 
CO 
CI 
00 



DRZ(N),m __ _ __ __-MCP 

0D( EU,64) , (8)40001277777777600000 
B,YFXTS 

NOP 
B,YEXEFX 

NOP 

LVI_tSl»YINDF 



TCE 

-PATTERN 



DC0pppp5_ 

DC000006 

DC000007 

DC000008 

DCO000G9 

pcooopip 

UCOCOOU 



.11?. 

It* 

is* 

2C* 
21* 
22* 



2J_5J74_._C_0 
215174. AO 
215175. CC 
215175.40 
215176. CO 
215176. AG 



2_1_6_5_6_7._43_C1 
216531. 1C CO 
216570. C3 CI 
216531. 1C 00 
216570.43 01 
216531. 1C CO 



B, Y!*SF 

LVI,$1,YINLC 

B,YMSF 

LVI ,$1,YINPF 

8 t YMSF 

LVIiIiiYINZC 



DC000012 
DC000013 
DC000014 
DC0C0015 
0C000016 



DCppp017 

Dcooooia 

DC000019 
DC000020 
DC000021 

DC000022 



B,YNSF 

LVI,$1,YINIR 
B.YMSF 
LVI,$1, YINLS 

B,YNSF 



22* 
2t* 
2f * 
26* 
2i* 
2£ * 



2151 7 7 .CC 
215177. AC 
2152CC.00 
215200. 4C 
215201. CC 
215201.40 



216571 
216531 
216571 
216531 
216572 
216531, 



C3 

10 
43 
LC 
C3 

1C 



01 
GO 
01 
CO 
01 
CO 



_LVL L $1,YINPSH 
B.YMSF 

LVI,$1,YINXPF 
B,YMSF 

LVI,$1,YINXPQ 
B,YPSF 



00000023 
DC000024 
DC000025 
DC000026 
DC000027 
DC000028 



~3C* 
31* 
32* 
33* 
34* 



215202.00 
215202. 4C~ 
215203.00 
2152C3.40 
2152CA.00 
215204. 4C 



_2JA572_._4_3_ G 1 
216531. 1C CO 
216573. C3 
216531. 10 
216603. C3 
216531. iC 



LVI»_$l»YINXPh 

B.YFSF 

LVI,$1 ,YINXPL 

B,YMSF 

LVI,$1,YINXPU 

B.Y^SF 



DC000029 
DC0000 30 
DC000031 
DC000032 
DC000033 
DC000034 



CI 
CO 
01 
CO 



31» 

36* 
37* 

3£* 
3c* 

4C* 



215205. CC 
215205.40 
215206.00 
215206.40 
215207.00 
215207. 4C 



216 5 73.43 01 
216531.10 00 



„L_V_I_f_$l»_YINZM 
B,YKSF 

LVItSliYINRU 
B.YMSF 

LVIt SltYINTF 
B.VMSF 



DC000035 

DC000036" 

DC000037 

DC000038 

DC000039 

DC000040 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

7 

1 



216574, 
216531, 
216574, 



C3 
IC 
A3 



216531.10 



01 
CO 
CI 
00 



Al* 

42* 
42* 
44* 
At* 
46* 



215210.00 
21521C.4C 
215211.00 
215211. AC 
215212.00 
215212. AC 



_2_1_657 5_._C3_01. 
216531. IC CO 



216575, 
216531, 
216576 

216531 



43 

10 
C3 
IC 



01 
00 
01 

00 



LVI_,_$1,YINUF 
~B, YMSF 
LVIiSlt YINVF 
B.YPSF 

LVIf $1 ( YINXF 
BtYI^SF 



00000041 
"DC000042" 
DC000043 
DC000044 
DC000045 
DC000046 



At*. 
At* 



215213_.00_ 
215213.40 



_2_1_65_7_6.4 3_0! 
216531. LO GO 



LVLilliYINBTR 
B,Y^SF 



DC0G0047 
DC00004S 



wai 



TIME CLOCK CCC54C41 



PUNIO llCllNXP 



CARD IC DC0O0O50 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 115 
I G C A"TTCN" 2 15 21 A 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



1* 215214. CO 

2* 215214.40 

3* 215215. CC 

<* 215215.40 

A* 215216.00 
£*~215216.40 

1* 215217.CC 

fc* 215217.40 

c* 215220.00 

IC* 21522C.4C 



216577.03 01 
216531.10 CO 
216577.43 01 
216531.10 00 
2166C0.C3 01 



II* 215221. CC 



12* 
13* 
14* 
15* 

le* 



215221, 
215222. 
215222, 
215223, 



40 
CO 
4C 
CC 



216531. 
216600, 
216531, 
216601. 
216531, 



10 CO 

43 01 

10 00 

03 CI 

IC CC 



LVIi tliYINDTR 

B , Y ¥ ■ S F 

LVI ,$l f YINPGO 

B t YMSF 

"LVI tilt yinpgY 
"b,y^sf 

lvi ,$1,yinpg2 

B,YMSF 
LVIy$l t YINPG3 

p,ypsf 



DC000050 
0C000051 
DC000052 
DC0000_53_ 
000000 54 
' DC 00 00 55" 
DC000056 
DC000057 
DC000058 
DC000059 



216601.43 CI 



215223. 4C 



216531. 10 
216602. C3 
216531.10 
216602.43 
216531. 10 



CO 
01 
CO 
CI 
00 



AVLt*i»YiNPG5 

8.YKSF 

LVI,$1»YINPG5 

B.YMSF 

LVI, $1 T YINPG6 

B.YNSF 



DC000060 
"0C00006I" 
DC000062 
DC000063 
DC000064 
DC000065 



9 
L 

9 
6 

0! 
[[ 

Z\ 



SI 
91 

a 

81 
61 

OS 









20 
19 
78 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



wai 



IIME CLOCK CCC54C41 



PONID 11D11MCP 



CARC IC CDCOCOOl 



CIST. OF 3/C1 



!/Cl 



PAGE NUMBER 116 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



J* 

t * 
j « 



PARAMETER POOL D0O000G2 

— «#«•»*»***»**»* «««««*«***«»««««***«*««******«*»«***««***»**«##***«**«** 00000003 

DC000004 



| » 215224 

6* 

i* 215224 

i* 2 15224, 



GO 

CO 
40 



?* 215225.00 



CC0041.00+ 
CCC04C.00+ 
CCC00C.00+ 



SLC,i _ 

CNCP 

S BNDRS VF.33.0 
VF,32.C 

S MAXUB VF,C0 



•MCP BOUNDS 

-MAXIMUM UPPER BOUNDS FOR PP 



1CW15226.CC CCCCCC.OO+ COO COCOOO C C C C_0_ _ _ _S_P_S_1 I XW,C -I /C I NJERRUPT P R E S E R _V_A_T_I_0_N _WC_ R _C 



D0000005 
00000006 
DD000007 
0D000007 
DC000008 
D0000009 



11*_215227_.CC 215023. C0+ S _I_T_ _B_A_ S_ V F , S IT 



•bASE ADDRESS OF INTERRUPT TAeLE 



DDOCOOIO 



li* 215227.40 

13* 215230.00 * 

14* 215230.00+ 

15* 215230.40+ 

16* 215265.00 



C0CC00.30 
000035.00 
+0CC000CC 
+0GC000C0 
CCCCCC.00+ 



00 



■BUf iC0,10 
BU, 100,10 



CNOP 
S T LR DRZ(BU,64), 29 
S UPPER SYN,S TLR 
S LOWER SYN.S TLR+0.32 
S T IC VF, 



-PP UPPER BOUNDRY 



DD000011 
DD000012 
DD000013 
D0000014 
DD000015 



1 1 * _ 2_1_5 2 6 5_._4_C_ 
It* 215266. CO * 
IS* 215323. CC 
2C* 215323.40 
21* 215324.00 * 
21* 215324. CC + 



CO_CC 0C^3C CO 

00CC35.CC 

CCC0CC.00+ 

G00000.30 00 

C0CC35.CC 

+0CCC0CCC 



S 

s 



BU,1CC,10 



LR 
IC 

LR 
PP 



PP 

PP 

BU 
UB 



NOP 

CRZ{BU,64), 
VF, 
NOP 

DRZ(BU,64) , 
SYN,S LR BU 



29 



29 



00000015 



DD000016 
DC000017 
00000017 
DD000018 
D0C00019 



22*_215324 J .4C_+ 
2<* 215361.00 
21* 215361.40 
26* 215362. GC < 
2i* 215373. CC 
2fc* 215373.00 



AOJLCOO.Q.CO __ BU,1CC_,10 

CCC0CC.00+ 

C0CC00.3C CO 
C0CC35.CC 

COCC00.04 CO OCOOOO.CC OC 



S PP L8 SYN,S LR BU+.32 -SAVED UPPER AND LCfcER BOUNDARIES 



S IC BU 



S LR MCP 



VF, 
NOP 

DRZIBU.64), 29 
SLCSLRMCP + 9.C 
INDMK,$IF 



2S* 
3C* 
31* 
32* 

32* 
34* 



21541 _7_.CC 
215417. CO' 
215417.40 

215420. CC 
215466. CO 



S_LC_SLRMCP + 29.0 

VF, 6" 

NOP 

CNOP 

DRZ(BU, 19), ( 128) 

VF,S GUE 



DC000021 
0D000021 
D0000022 
DD000023 
DDC00024 



00000025 

00000026" 

DC000026 

DD000027 

00000028 

DD000029 



CCC0CC.CC+ 
C0CCC0.30 

0OCC46.C0 
21542C.O0+ 



S IC MCP 



00 



s 
s 



QUE 
CUM 



-INTERRUPT QUEUE 



G 



3J_* 

36* 



215466.40 



CCCC62 

CCC0CC.00+ 000 
233150.10 CO 
CCCOCC.CC+ 



YMISCO 

SREADS ~ 
S COMM 
S COMIC 



C F , 50 
XW,C 
B.MCOMD 
VF,C 



- M A S KABL E IN T E R R U P T _ C Li N T_E R_ _ 
-READ S CURCF ~WC RO • 
•EMERGENCY ENTRY TO CCMMMENTATOR 



DD000030 
00000031" 
DD00003? 
DC0C0033 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



215467.00 



000000 CCCCCC 



3i* 215470.00 
3fc* 21547C.40 



wai 



1IME CLOCK 0C054C41 FUNIC 11D11MCP CARD IC EAGGOOC1 DIST. GF 3/C1 
LINE" ~ LOG A Tl "c"l\ R I h AR Y CU TPU ~T ~NAI»E STATEMENT" 



3/01 



PAGE NUMBER 117 
I OCA ~TTo"N 



i* 

2 * 

3 * 
c * 

t * 



2 154 7 C. 71 * 
2154 /T. CC 



_C0C_CC3._ 
CCCC21. 
215231. 
215474. 
215265. 

ceccoq. 

77 7 77 7." 
215566. 
215627. 
CGCC23. 
215630. 
C0CCC1. 
215630." 



00 
CO 
4 7 
C7 
C4 
07 
4C 
41 
32 
23 
74 
7 
72 



80 
"80" 
AO 
C6 
30 
B2 
52 
90 
CO 

ao 

CO 
04 
42~ 



215230.34 AO 
215246.36 AC 



—*#***********»«**** IF ANALYZER **********•*«*****«— 
— *********«*«*«********«***««^**ft****«*«««*,rtt **««***«****«««*«« 

SLC 1 $_ 
S IF AE "TI, 14,3.0, S TLR -SAVELCkER REGISTERS 



*«****&* 



*«««*«*» 



EA000001 
EA000002 
EA000003 
EA000004 
EA000005" 



t* 
i* 

t * 

U* 

11* 

"li* 

13* 

1/,* 

15* 

i /* 



215472.00 
215473. OC 
215473. 4C 
215474. CC 
215474.40 
2154 7 5_.G(J_ 
2 I 54 7 5. 4 C 
215476. CC 
215476.40 
215477. 4C 
2 1 5 50 . CO 
2155CC.40" 



0C4000.C7 7C 



TI, 15, 17.CS TLR + 14.C 

BE,STLR+1.32( .26,2)111101 

BQPZ,$.32 

LV,2,S TIC 

LVE,3,C.C($2) 
_ LC,C,-.32($2) 
~KC,"C,MKMCPA 

BZXE.M NC MCP 

CT0C11(BU,4) ,$3.19 

BZRZ.M OP CI 

KVI ,3, 1.0 
~BXL,M~CP~C"~I 



-STM(U) ,STLR+1.C - 
-FOR LASL LRL 



SAVE $MR, 



EA000006 
EA000007 
EA000008 
EA000009 
EA0Q0010 
EAC00011 

"EAC00012" 
EA000013 
EA000014 
EA000015 
EA000016 

"EA000017 



It* 
l c .» 
2C* 
21* 
22* 
21* 
2** 
25* 
26* 
2<* 
2t* 



2155C1. 
215501. 
215502. 
2155C3. 
215503. 
215504^. 
215504. 
2155C5. 
215505. 
215506. 
215506. 



00 

4C 

CC 

00 

40 

C c_ * 

40 

CC 

40 

CC 

4C 



C0C1CO. 
220700. 
215CC1. 
215224. 
_CCCCC3_. 
2\ 5373." 
OCC 14." 
C0C114. 
215630. 
00CC36. 
215230. 



07 04 
32 42 
04 80 
CO 10 
01 10 
42 "60 
4 EO 
4 I C4 
72 40 
37 C2 
CO 80 



215514.74 02 



215324.36 2C 



KVI, 3, 64.0 
BXL.K FRONT 
BB,S L,M IF 6+.32 
LX,C,SBNCRS 
SX,C L 3.0_ 
LW F [U )~ ", S L R M C P "+ 9 . C 
"ST U), $MASK 
KVI,3,MMAX0P 
BZXL,M CPCI 
LCI, 15, 30 
T, 15,STLR,SLRBU 



-BRANCH IF ACTUATOR OP 

-GtT MCP BOUNDS 
-StT MCP BOUNDS 



EA000018 
EA000019 
EA000020 
EA000021 
EA000022 
"EA000023" 
EA0C0024 
EA000025 
EA000026 
EA000027 
EA000028 



2S* 

~3C* 

31* 

32* 

33* 
34* 



215507_. 
215510. 
215511. 
215512. 
215513. 
215513. 



4C 
CC" 
OC 
CO 

00 

4C 



2 1 5 514 . 
COCO 03". 
000021. 
215001. 
215265. 
OCCCOC. 



50 _00 
C"C 80 
CO 80 
CC 80 
04 30 
45 CD 



B_,_M I 

"r i , i~4 

TI, 15 

CM111 
LV,2, 
V-1,2 



F 6+. 
f3".C, 
, 17. C 
HBL'i 
S TIC 



32 

S TLR" 

,S TLR+14.0 -SAVE 

1),S E 



EA000029 
EA000030 
EA000031 
EA000032 
EA000033 
EA0000 34 
EA0000 35" 



215230.34 AC 
215246.36 AC 
001000.36 FO 



S IF AD 



LR TEMP. 
-DISABLED 



IF ENTRY 



3J* 
3£* 
3/* 
3£* 
3S* 
4C* 



215514. 
215514. 
215515. 
215516. 
215517. 
215520. 



CC 

40" 

40 

4C 

CC 

CO 



COCCCO. 
C0CC23. 
215633. 
CCCGOO. 
215C01. 
215566. 



46 32 
2 7" 80 
CO 80 
45 CD 
04 80 
02 33 



M IF 6 



L.V »_3 , 

CMOCO 

LFIBU 

V-It 

LF(BU 

LV,1, 



.321 $ 
C f B U , 
,64), 
2, .32 
,1),S 
M I F T T 



2) 

2), $3. 23 
M MK 1,-64 

L,-22 
T-64.0U3) 
K SUP P 2 +.32" 



20 
19 
18 
17 
16 
15 
!4 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



41_* 
4* * 
42 * 

44* 
45* 
46* 



215520. 
215521. 
215522. 
215522. 
215523. 
215524. 



40 

40 

CC 

40 

40 

40 

4C~ 

CO 



_C_C_Cj3C0_. 
215546." 
215636. 
COCCOO. 
215C01. 
215C22. 
2156 36. 
COCCO'l. 



1 1 81 
C3 30 
C6 30 
04 81 
04 80 
31 8 



GC2G00.CC FO 
000040.06 70 

0G1065.C6 70 

217177^.34" 02" 



BB,_.9 
"S V , $ l" 
LV,$3 
STCBU 
CM111 
BB,S 



($1) L 

,MR3 

,M CR 

,1),. 

UBU, 

PROG 



J-_ G AL TENTACLE TABLE ADDRES S 
-PSEUDO OP IS BUSY" 



EA000036 
EA000037 
EA000038 
EA000039 
EA000040 



EA000041 
EA000042 
EA000043 
EAC00044 
EA000045 
EA000046 



AC 



001065.20 DO 
0C1000.36 FO 
215634.34 02 



-OLD TENT. 
4{$l),-22 -SET USER BIT 
1),S L -SET S L TO MCP 
S+1.25,M IF AS -MCP BUG-AS REC. 



ADR. IN $3 
IN TENT. TABLE 



47* 
4t* 



215525. 
215526. 



C3 30 
C7 31 



SV,$1 
SV,3, 



,_M CR 
l."C($ 



1) 



EA000047 
LA000040 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID EA000050 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 118 



LINE 



LCCATICN 



BINARY CUTPUr 



NAME 



STATEMENT 



LCCATICN 



215526 



1* 
2* 

2 * 

t * 



215526 
215527 
21553C 
21553C 



.AC 

.CO 
.CO 
.40 



CC0CC2. 
CGCCOO. 
215265, 
00CC22, 



C5 
CC 
C4 
1C 



31 

81 
JO 
30 



004066.60 5C 



SV,$2,2.C($1 
L(BU,4) ,C.0( 
LV,2,S TIC 
LV,4,$2 



) -**LINK FfcA IN TENT** 
$1),-19 

-ADDRESS OF LINKAGE GP 



EA000050 
EA000051 
EA000052 
EA000053 



d* 
7* 
t* 
9* 
U* 



2 155 31 
215531 
215532 
215532 
215533 
215534 



.00 
.4 0* 
.CC 
.40 * 
.40 
.00 



cocciq 

"CCCCOi 
215265 
C0GC21 
C0CC21 
215566 



•„04_B0 
.45 31 
.C5 30 
.34 80 
.06 30 
.C6 BC 



022066. 6C DO 



Y+t*2,$L 
SV,$2, 1.32($ 
SV,2,S TIC 
ST(BU, 18), $1 
LV,$3,$1 
V+,$3,M 9 



1) 



"RETURN ADDRESS__IN_ $2 
-~«* NORM." RET. A DR. IN TENT** 



+.28,-19 -N IN CF CF $1 



EA000054 
EA000055 
CA000056 
EA000057 
EA000058 
EA0Q0059 



11* 
12* 
13* 
14* 
15* 
16* 



215534 
215535 
215536 
215537 
215537 
215540 



.00 
.00 
.00 
.40 
.CO 



_C_0_C_C02 
COCCCO 
GOCOOO 
215546 
215637 
COOCOO 



•„43 05 

.40 84 

.40 81 

.70 46 

.C6 BO 

.00 83 



L ( V + I ) 
STIV+I 
BXCZZ, 
V+,$3, 
BZB.O. 



i?.32_ 
<BU,32 
CHBU, 
M TC 1 
M C 1 
Cf*3_) _, 



EA000060 
EA000061 
EA000062 
EA000063 
EA000064 
EA000065 



140000.20 50 
240000.20 DO 



215535.34 00 



M ED 1 
M ED 1A 



), .32 ($4) 

32)t.32($l) -***PAKAN IN TENT. 

-ADD. 2 FGR NEXT PARAM, 
M ED 1 -NO FORM EFF. 



II* 

IE* 
IS* 
2C* 
2i* 
22* 



2_1_5_5_4J 
215541 
215542 
215543 
215543 
215544 



*_o_o_ 

.40 

.CC 
.00 
.40 
.4C 



_2_1_5 5 4_3_ 
COOCCC 
000021 
215543 
00CC21 
000000 



♦-U QO 
.51 C5 
.CO 80 
.01 00 
.00 80 
.01 31 



SVAtA, 
V+I,4, 
SWAP I, 
LVE,$C 
SWAPI, 
SV,C,C 



^_LU 2j 

.32 

4,$1,S 

,$ 

4,41,S 

($1) 



-PARAM ADDR 



EA000066 
EA000067 
EA000068 
EA000069 
EA000070 
EA000071 



215246.10 EO 
215246.10 EO 



M ED 2A 



TLR+14.0 
TLR+14.C 



?1» 
2** 
25* 
26* 
27* 
2fc* 



215545 
215545 
215546 
215546 
215547 
215547 



.00 
.40 
.00 
.40 
.CO 
.40 



A0J3CC0 
215537 
CCCCCC.O 
215547 
215547 
215546 



.43 06 
. 10 00 
+ 

. 10 C6 
.50 46 
.02 30 



y+iCtl 

B,M ED 
VF,C.O 
BUSAZ, 
BADZ 
LV,$1,MR3AD 



, .32 
1A 

$ + .32 
,$+.32 



EAOC0072 
EA0000/3 
EA0G00/4 
EA000075 
EA0C0075 
EA0C00/6 



MR 3AD 
MTC1 



-CURRENT TENTACLE TABLE ADDRESS 



-TRANSFER ROUTINES 



21* 
3C* 
31* 
32* 
33* 
34* 



215550 
215551 
215552 
215553 
215554 
215555 



.00 

.CC~ 

.00 

.00 

.00 

.00 



CO ccpp 

215562" 
000000 
215C01 

ooccco 

COOGOO 



•_5 5__8_1_ 
.4C 80 
.G5 81 
.CO 80 
.06 81 
.07 81 



023000.20 
023000. 2C 
215563.34 
001000. CO 
215560.74 
215564.74 

oqiooc.cc 
ooioco. oc 



5G 

co~ 

02 
FO 
02 
02 
FG 
FG 



ULBU, 1 
ST( BU, 
BB,.5( 
CMOGOO 
BBt .6( 
BB, .7( 



2>£-^5j$l_) 

19) ,M 
$1),M 
IBU,1) 
$1),M 

$1),M 



fc.A000077 

EA0000 78" 

EA000Q79 

EA000080 

EA000081 

EA000082 



M TC 2A 



TC 3A 

TC 3B 

,S E 

TC 3A 

TC 4A 



•SET ENTRY ADR. 



-2.0 -ENTRY DISABLED 

-ENTRY SIO 

G S + 1 . 61 - T CRN ~_C F F S I B I T FORK EXT M~ 

3A+.21 

-TC ENABLED 
3A+.21 



20 
19 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



lit 

36* 
37* 
3£* 
3S* 
4C* 



215556 
215557 
215560 
215560 
215561 
215562 



• QC__ 

.CO 
.CC 
.40 
.40 * 
.40 



_2J 

21 
21 
21 
21 

21 



5022 
5562 
5561 
5562 
5245 
5562 



.65 80 

.5C CO 

.65 80 

.00 80 

.44 CO 



001000.36 FG 
000020. CC AO 



Alt 
42* 
43* 
44* 
45* 
46* 



215563 
215564 
215564 
215565 
215566 
215566 



• oc 

.CC 
.40 
.40 
.OC 
.4C 



___2J 
21 
21 
21 

CGOO 

CO 



5001 
55 5 7 
5C22 
5557 
CC.l 
C040 



•_o_c_ _8 q 

.10 CO 
.75 80 
.10 00 

1 + 

. 10 GO 



_215560.74_ C_6 
215565.74 OE 



M TC 3 



AJ_C_3A 

H TC 3B 



_CMOcqq 

C MO COO 
BtM TC 
CM1111 
TI,C,S 
BD, $ 



( 8 U , 1 ) 

( eu » i ) 

3 A-l 
(BU,1) 
TLR+13 



,SPRC 
,M TC 
.0 

,N, TC 
.C,$C 



PACK 



8 8Z t S_ 

B,M TC 
BB1,S 
B,M TC 
VF, .9 

B,D MC 



3A-2.C 



E,M TC 

3 
PROG S+1.61 

3 



P 

•2 I,. 2 

C,MPR8 

,C 

C.CU1 



- *****ENTER PSLUDO OP****** 
-SANE DISABLED 



EA000083 

EA000084~ 

EA000085 

EA000086 

EAOOOOSir 

EA000088 



EA0qq089 
~EA0C0090~ 
EA000091 
EA000092 
EA000093 
EA000094 



M TC 4A 

M 9 

M KNCPA 



-SAME ENA3LDD 
,$+1.0 -TURN ON SIC BIT 
-SIO TO ENABLED 



4/* 

46* 
4S* 
5C* 



215567 
215570 
215571 
215571 



.CC_ 
.00 
.CO 
.40 



_c_o 
go" 

GO 

CO 



ccog 

002 
OCCG 
COCO 



•_Q4_7F 

.CO 80 
.C3 01 
.04 31 



ccpppa.o_i__i_5_ 

215622.12 AO 



A A* _2_ _ 

S PRIME 
S PRIMR 



INDNK, 
TI,5,$ 
LVIi $1 
LV, $2, 



5 , . 2 6 ,_._2J_»_»_2_8_»_._29 , . 3 C , . 3 1 , . 5 5 J .63)21 
-SAVE X REGS. TO BE USED 
-PICK UP LCC OF $ CP 
) -OP CODE IN $2 



EA000095 
EA000096" 
EA000097 
EA000098 



wai 



TIME CLOCK 0GC54C41 



PUNIC 11C11MCP 



CARD IC EAOOQ1CO 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 119 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



215572 



1* 215572. CO 

2* 215573. CC 

i* 215573.40 

A ?_2j-55 74.4C 

_"?_ 21 55 75_. _00_ 

t* 215575.40 

7* 215576.00 

£* 215576. 4C 

9* 215577.00 

IC* 215577. 4C 



C0CC22.3C 
215566.04 
GOCCCO.CC 

oqccio.co 

CCGG20.C0 

GGCC20 

215640 

215617 

00CC21 

CCCC10 



IC 
CG 
71 
C6 
C6 



80 
32 
82 
30 

§0 
~50~ 

30 

46 

30 

BO 



OC10G0.CC FO 



004066.60 5C 



M PR 2 



CMOCOOtBU, 1) ,$2+.24 

LV,2 t MIFTTT-64.0{$2) 

L(BU,4),C.0($2),-19 

L'_,$0,$L 
V+_$0, $C_ 
LC, $4,$C 
LV,$0,M PRM QK 
BXVZZ»M PR 7 
LV,$3, $1 
V + f $3, $L 



-GET 

-N IN 



ADDRESS 
ACC 



OF TT 



-19 BIT VALUE =18 BIT COUNT 



-PRIME Q EMPTY 



EA0C0100 
EA000101 
EA000102 
EA000J03 
EACC0104_ 
EAG00105 
EA000106 
EA000107 
EA000108 
EA000109 
EAOOOUO" 
EAC00111 
EA000112 
EA000113 
EA000114 
EA000115 
~EA000_1_16~ 
EAOOOliy 
EA000118 
EA000119 
EA000120 
EA000121 
EA00Q122" 
EA000123 
EA000124 
EA000125 
EA000126 
EAO00127 

"LAqooiza" 

EA000129" 

EA000130 

EA000131 

EA000132 

EA000133 

_EAqoqi34 

EA000135" 
EA000136 
EA000137 
EA000138 

EAqqqi39 
~EAoqqi40~ 

EA000141" 

EA000141 

EA000142 

EA000143 

EA000143 

EA0q"0144_ 

EA000145 

EA000146 

EA000147 



11* 

12* 

13* 

14* 

15* 

it* 

17* 

It*" 

19* 

2C* 

21* 

22* 

23*" 

2<* 

25* 

26* 

27* 

2£* 

2.1* 
~3C*~ 

31* 

32* 

33* 

34* 

35* 



215600_.CC_ 

21 560 C". 4 C 

215601. CO 

215601.40 

2156G2.CC 

2156G2.4C 

215 6 C 3 ,_C_0_ 

215604~.00 

215604.40 

215605.40 

215606.40 

215607.00 

2j5607_4Cf 

215610.40 

215611. CO 

215611.40 

215612. 4C 

2 156 13. CO 

215614j.CC" 

215614.40" 

215615. CC 

215615.40 

215616. CO 

215617. CC 

215617. 4C~ 



21561^7.0 7 
C"0CC10.C"0 
00CC17.C1 
215641.33 
215640. CI 
2 1 564 4. C 6 
_C_0_CCC0.11 
CO CC 10. 04 
CCCC00.40 
000000.40 
215615.50 
215637.04 

CO c_coo ._c_c_ 

215612". 4 3 
CCCCC0.43 
000021.00 
215612.41 
_00C_C_21_._C0_ 
CC CCCO . 01 
"CCGCOO.4 7 
215606.50 
215644.07 
215622. CO 
2 1 5617.10 
21564 3. C6 



uq 

BO 
04 
46 
30 

1Q 

80 

eo 

81 
83 
4A 
BO 
82 
DO 
05 
80 
EO 
80_ 
3 3 
7 
CO 
10 
80 
CO 
10 



430064.20 50 



PRIME Q FULL 
- NEW Q COUNT 



-FORM EFF. BIT 



140000.20 
340000. 2C 



50 
CO 



M PR 4A 



M PR 4B 



215604.74 00 



215623.10 EC 



215623. IC EC 



M PR 5A 



M PR 6A 



000020.12 AO 



M 
V 



_P_R_ 

PR 



6_B 
"7 



SVA, 3 t N<PR6B_ 
V+,C", $L 
KVI ,$0, 15.0 
BXHZ,M PRM ER 
SV,$C,M PRM QK 
LX, 53,M_R_4_ 
L I [ B U , 2 4 _ , ~. 9 j-2 4" 
Vf,$2,$L 
L(V+I ) (BUt32) f .32U1) 
ST(V+ICRHBU,32),.32($3) -PARAM 
CBZ,$4,M PR 6A 
V+__2,____l 
P~ _8 _0 _ _ $ 2 ] _ i M PR 4 A 
S~VA, Il,M PR 5 A 
V+1,1, .32 

SWAPI,4,*1,MPR8+1.0 
LVE,$0,$ 

SWAPI_4,$1,MPR8+_1.C 
SV_C_q__3_" 
V +ICR, 3, .32 
B,M PR 4B 
SX f 3,M R 4 
TI, 5,MPR8,SC 

B 'J> 

LX,$3,M P w R 



-SET RETURN ADDRESS 



IN PRIME Q. 



-NO 



-AD_0_._ 2 
"FORM EFF 



FOR NEXT FORM EFF 



-FORM EFF 



-SAVE PRIME CONTROL 
-RtSTORE USED X REGSZ 
-RfcTURN DISABLED 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 

2 
1 



3£* 
3 7* 

3£* 
3<5* 
4C* 



21562C.CC 
21562C.40 
215621. CC 
215621.40 
215622. CO 



215644.07 10 
215645.07 10 
215577.10 CO 
C0CCC0.30 00 
C0CCC5.C0 



V PR 8 



SX, $3,M R 4 
SX,$3,M R 5 
B,M PR 2+.32 

CNOP 
DRZ(BU,C), ( 5) 



-REFILL PRIME CONTROL 
-REFILL UNPRIME CONTROL 



41* 
"4"* 
42 * 
44* 
45* 
4£* 



215627_CC 
215627. 4C 
21563C.CC 
21563C.40 
215631.00 
215631. 4G 



C_1_C_C_0_1 . 3_5_ 
21 74 5 1. 4 C 
217372. 1G 
C1CC02.35 
217451.40 
217372. IC 



01 
8 
00 
01 
80 
CO 



___ NC_ MCP _LVI »_14_S _I_F ERR 
" SICS CISIC 

B,S DISP 
M OP CI LVI,14,S OP C I 

SICtS DISIC 

e,s cisp 



- iLLEGAL IF INTERRUPT 



- ILLEGAL OP CODE 



47* 

4fc* 215632. CO" 
4S* 215633.00 
5C* 215634.00 



CCCCC1.00 
C0CCG0.00 
004012.35 



00 
CI 



000000. C5 15 



M 



NK 
IF 



1 
AS 



CNOP_ 

DRZ(fiU,64), { 1) 
INDFK, . 53, .55(. 63)21 
LVI,$14,S IF AS 



wai 



time clock ccc54g41 punid 11d11pcp card ic ea00q149 gist. cf 3/c1 
"lIne LccatTcK binary - cut put naYe - "statement - " 



3/01 PAGE NUMBER 120 

~ LOCATION 2T56 34 



1* 21 
2* 21 

l* 21 
z* 21 



5634. 
5635. 
5636. 
5637. 



AC 
CC 

CO 
CO 



217451.40 80 

217372.10 CO 

215016.00+ 000 



000000 OCCOOO M CR 
00CCCCC2 NCI 



SICS CISIC 
B,S DISP 
XW,S IPL IN 
DD( BU,24) ,2 



-CURRENT TENTACLE TABLE ADDRESS 



EA000149 
EA000149 
EA000150 
EA000151 



- * 

<* 

t * 

c . * 

IC* 



21 
21 
21 
21 
21 
21 



5637_. 

564 C. 
5641. 
5641. 
5642. 
5643. 



4C 



00 



__ 000000.30 

ooooci.co 

003411.35 01 

217451.40 80 

217372.10 CO 

215647.00+ COO 



CNCP__ 

DRZ(BU,64), { if 
LVI,$14,S PG FUL 
SICS CISIC 
B f S DISP 
C0G036 215643 M__P_ C R XW , HPR IMG, 30 ,MPGR 



EA000152 
EA00bl5 3 
EA000154 
EA000155 
EA000155 
EA000156 



CO 
00 
40 
CC 

00 






PRK 
PRM 



GK 
ER 



1 i*_21 
12* 21 
13* 21 
14* 21 
15* 00 



^644. 
5645. 
5646. 
5647. 
C114. 



QP__*_ 
CO 
CC 

CO * 
40 + 



JLQ.ccci._qo 

COCCOl.CO 
000000.04 
00CC17.CC 
+0CCC0000 



N_14 Jl^.li&\J L 6^),(l) 

M R 5 DRZ(BU,64), I 1) 

M HK 3 INDNK, .21, .55< .63)21 

M PRIM (_ DRZ(BU, 32), (3d 

M NAXOP SYN,SJC1 



EA00015 7 
EA000158 
EA000159 
EA000160 
EA000161 



00 000000. CI 15 



NULL 



•MAX PP CP CODE 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



time clock cc054c41 punic 11c11mcp 
!lIn1~~~lccatTcn binary'gutplT 



CARL ID EA000163 DIST. CF 3/C1 
NAME - ' STATEMENT 



3/01 



PAGE NUMBER 121 
LOCATION 



' ( 
z 

£ 

" f 

s 

9 

I ( 
g 

6 

01 ( 

II 

21 

ei ( 

51 
9! ( 



61 ( 

05 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



1* 

2 * 

- * 

c * 

I* 

~~t* 

i* 

t* 

9* 

_!<> 

11* 

12* 

13* 

14* 

15* 

16* 

le* 

19* 
2C* 
2i* 
22* 
22* 
24* 
25* 
26* 
2"/* 
2|* 
29* 
3C* 
31* 
32* 
33* 
34* 
3 5* 
36*" 
37* 
3£* 
39* 
4C* 
~4 1*~ 
42 * 
43* 
44* 
45* 
46* 



****# IF ANALYZER TABLE OF TENTACLE ADDRESSES ***** 



21 56 6 6 ._C_C_ 
215666. 4C 
215667. CO 
215667.40 
215670.00 
2156 7C_.4_C_ 

215671. G0_ 
215671.40 

215672. CC 
215672. 4C 



215673. CC 
215673.40 
215674.00 
215674. 4C 
215675. CO 
215675.40] 
21 5676. OC 
215676. 4C 
215677. CC 
215677.40 



2157CC.00 
215700.40 
215701. CO 
215701.40 * 
2157C2~.C0 



215702.40 
215703^.00 
215703.40" 
2 15 704". 00" 
215704.40 
215705. CG 
215705.40 
2157C6.00 



2 34417, 
217"46C; 
231136. 
232677. 
232555. 
2 3 36 6 7 . 
2 2 2 111. 
2 2 2 1 C 5 , 
231136. 
224105. 



231136. 
231136. 
231136. 
231136. 
231136, 
2 311 36. 
"231136. 
231136. 
231136. 
231136. 



00 + 
"0 0+ " 
00 + 
00 + 
00 + 
CC + 
"oo + ' 

00 + 
00 + 
00+ 



00 + 
00 + 
00 + 
00 + 
00 + 
00 + 
"00 + 
00 + 
00 + 
00 + 



MIFTTT 



CNQP 
VF L PC 

"VF,AE 
VF,YJ 
VF,PO 
VF, YR 
VF f _XT 

~VF,JT 
VF,S~ 
VF,YJ 
VF, VV 



UMPJ 

DMPT" 

C4TT 

LDTT 

LTT 

£NT8_ 

asplt 

CSPRT 

C4TT 

SCR 



-ERROR CLMP 
-65.0 END CF JOB 
-65.32 HOLD 
-RESUME LOAD. 
-DISK FETCH 
II " "-67 -0 SPOCL PUNCH 
-67 .32 SPCCL PR INT 
-68.0 ABNORMAL END OF JCB 
-68.32 SPOOL CARD RESD 



*»*»* RESERVED FOR FUTURE MCP USE ***** 



VF,YJC4TT 
VF, YJC4TT 
VF, YJC4TT 
VF,YJC4TT 
VF,YJC4TT 
VF, YJC4TT 
VF, YJC4TT 
VF,YJC4TT 
VF,YJC4TT 
VF,YJC4TT 



-69.0 

-69.32 

-7C.0 

-7C.32 

-71.0 

-71.32 

-72 ."0 

-72.32 

-73.0 

-73.32 



****** RESERVED" FOR" INSTALLATION -PSEUDO OPS 



««««#« 



231136.00+ 
232555.00+ 
231136.00+ 
2 31136. 00+ 
231136.00+ 



230747.00+ 
_2_22_1_2_0 . + 
2 2211 5 . 0~0_+_ 
2325 66.00+ 
231136.00+ 
224105, 
224111, 



VF,YJC4TT 
VF, YRLTT 
VF,YJC4TT 
VF, YJC4TT 
VF, YJC4TT 



-74.0 
-74.32 $SCRESLD - 

-75.0 
-75.32 

-76.0 ~ 



TEMPORARY 



****** SPECIAL MCP PSEUDG OPS ****** 



00 + 
,00 + 
232715.00+ 



47* 

"4 8* 

49* 



215706.40 

215707.CC" 

215707.40 



2 3 3144.00+ 
233144.00+ 
233144.00+ 



VF,YJC1TT 
VF,SCC_RYT 
_VF,SAEOJT 
VF,PD8TT 
VF,YJC4TT 
VF,VVSCR 
VF,VVSKM 
VF, JTENT 



-76.32 JC1 

1 7 _I'_°__C0TPUT TAPE SWITCH 
-7 7.32 CUT PU J EC J 
-78.0 DEBUGGER 
•78.32 1PL ENTRY TO JC4 
-79.0 1ST CARD REQUEST 
-79.32 INPUT COMMANDS 
■8C.0 SYSTEM COMMANDS 



VF_,_UNDEF 

"VF,UNCEF 

VF,UNDEF 



EA000163 
EA000164 
EA0C0165 
EA000166 
EA000167" 
"EA000168 
EA0G0169 
EA000170 
EA000171 
EA000172 
EA00017T 
EA000174 
EA000175 
EA000176 
EA000177 
EA000178_ 
EA000179 
EA00 0180" 
EA000181 
EA000182 
EA000183 
EA0C0184 
EA000185 
EA000186" 
EA000187 
EA000188 
EA000189 
EA000190_ 
TA"00019i_ 
EA000192 
EA000193 
EA000194 
EA000195 
EA000196 
E AG 0" 19 7" 
"FA000198" 
EA000199 
EA000200 
EA000201 
EA000202 
EA000203" 
EA000204" 
EA000205 
EA000206 
EA000207 
EA000208 



-8C.32 LOGGER 4 
: 81.0 LOGGER 2 
-81.32 LOGGER 1 



EA000209 

EA000210" 

EA000211 



( 

( 

( 

( 

( 

( 

( 

( 

( 

( 



Nfll 



TIME CLOCK O0G54C41 



PUNID 11D11MCP 



CARD ID EBOOOOOl 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 122 



LINE LCCATICN BINARY CUTPLT NAMt STATEMENT LOCATION 



1* 
2* 
2* 
4* 215707.71 * 



— ft********************************************************************* 

-a****************** RECEPTOR *******************— 

— a********************************************************************* 

SLC,$ 



EBOOOOOl 
EB000002 
EB000003 
EB000004 



5* 215 71C.CC 

6* 215711.00 

f* 215712. CO 

t* 215712. 4C 

?* 215713. CO 



_0_0CG03.CC 
C0CC20.CC 
215231.47 
215713. C7 
215226.11 



80 

80" 

AO 

C6 

80 



2152 30.32 
215245. CC 



_A0 
AC 



K STORE 



005000.20 50 



LLl13i_Ij8_S TLR 
~TI,C,$0,S TLR+13.C 
BE,STLR+l.32(.26,2)llllCi 
B0PZ,$.32 
L<BU,5) ,SPSICI+.9 



-SAVE LOWER REGISTERS 



-STM(U) ,STLR+i.C - 
-FOR LASL LRL 



SAVE $MR. 



EB000005 

EB000006~ 

EB000007 

EB000008 

EB000009 



1C* 215714.00 215240.11 80 OC500C.16 FO CMO 1 1 1{ BU , 5 ) , STLR + 8 . 9 ____ ___ _EB000010_ 



11* 215715.00 215226.22 CO 



Z,SPSICI . EBOOOpU 



12* 215715. 4C 

13* 215716. CO 

14* 215716.40 

15* 215717.00 

Id* 215717. 4C 



215716. C5 46 

215716.45 C6 
215717. C6 44 

215717.46 C6 

C0CC05.34 30 



BUKZi$+-32 
BEEZ,$+.32 
BZECPZ,$+.32 
BCSZ,$.32 
LV, 14,$CA 



£8000012 
EB000013 
EB000014 
EB000015 
E8000016 



11* 
It* 
19* 
2C* 
21* 
22* 



2_1_5_72_0_._C_C_ 
21572C.40 
215721. CC 
215721.40 
215722.40 
215723. CC 



_C_0_0C_05_._24 
CCCC32.24 
215C02.24 
000000.64 
C0CC10. 10 
C0CC00.33 



30 
RO 

ec 

8A 
30 

8A 



004066. 6C 5C 



216050.34 00 



22* 
2<* 
25* 
26* 
2i* 
2£* 



215724. CC 
215725. CC 
215725.40 
215726. CC 
215727. CC 
215727. 4C 



_21_5_2A0_._1_._80 
216054.34 C2 
CGCC10.16 
215240.15 
216272. 4C 
216267. 1C 



004071. 6C 5C 



50 
80 
80 
CO 



215730.34 OC 



LVtlOifCA 

V+ f 10,$1C 

V+t 10, S CHAN S 
S FAKE I L(BU,4),S EQUIP <$ 10 ) ,-19 

LV f 4, $L 

_.ZB_S_M_LIIi$ip_)_iK SINGL 

L_{_BU L 4) 1 __TLR + 8.9,-13 ___ 

SRZ,K SIGNL 

LCt 7 t $L 

BZB,S TLR+8.13,$+2. 

SICK ST CS 

B,K CS IN 



-EQUIP CODE IN VFl$4) 



EB000017 
EB000018 
EB000019 
EB000020 
EP000021 
EB000022 



EB000023 
EB000024 
EB000025 
EB000026 
EB000027 
EB000027 



2i*_21573p.CC 
3C* 2 15731. CO 
31* 215731.40 
32* 215732. CO 
33* 215732.40 
3 -_*___ 157 3,3.00 



0_0CC_C_0_._7_0_ 
COCCOO. 26 
00C010.26 
C0CC00.30 
CC0C03.32 
G0C000.37 



fLA 
3 A 

30 
38 
3C 

88 



003067. 2C 50 



216314.74 06 



K KK LLBU_3__S_UNITJ$JC) ,_-_18 

LV,11,S UN A ($10) 
V + , 11, $L 

K COOL LV, 12, S UN At $1 1 ) 

LV, 13, S FI A ACi$12) 
BBZ.S SET UP($11 ) ,K KELAY 



-COMPUTE UNIT TABLE ENTRY ADDR 
-OBTAIN UNIT AREA TABLE 
-OBTAIN ACTUATED FILE AREA 



EB00QQ28 
"EB000029" 
EB000030 
EB000031 
EB000032 
EB000033 



3_-_t 
36* 
37* 
3£* 
3S* 
4C* 



215734. CO 
215734.40 
215735.00 
215735.40 
215736.40 
215737.00 



2_1_5 7_7 6 . C 3 
C0CCG4. 11 
215742.32 
C00C27.45 
215742.34 
C0CCC4.52 



Q.l_ 
04 

CO 

80 

CO 

8C 



L_V_I ,_1_,K_N0RM_ 

KVI, 4,4.0 

BZXE,K STACK 

C0011(BU,2),$7.37 

BZRZ,K STACK 

L(BU,8),S 10 INS+.42($121 



EB000034 
£8000035 
EB000036 
EE000037 
EB000038 
EB000039 



20 
19 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 



002000. 06 7C 
010000.20 50 



IS EQUIP TAPE 



TEST IF EPGK OR UK ON 



4L* 
42* 
43* 
44* 
45* 
46* 



215740.00 
215741.00 
215742. CC 
215743. CO 
215744.00 
215745. CO 



C_0CC27.4 7 80 
000000.74 8B 



COCCCO 
COCCOO 
COCCOO 
_2_1_5_744._C3 
C0CC0"0".51 



71 
72 

00 



8B 
8B 
8E 
46 
04 



216204.34 02 
216213.34 02 
215744.34 02 
215746.74 00 

000004.21 OC 



K STACK 



K COPY 



BB,$7. 39, K SPACE 
BB,S CTL($11),K WEF 
BB,S RD($11),K COPY 
BZB,S WR($11),K GATE 
CCW,0.0($14) ,S CCHU13) 
BEKJZ,$-1.0 



IS_ EL ON 
•IF NCT, CHECK IF WEF 



OP 



EB000040 
"fc"B00004r 
EB0C0042 
EB000043 
EB000044 
EB000045 



47* 215745_.4C 
4£* 215746. CO 



216316.32 



C2 



KVI »4__.32___ 

BXE,C ARC AD 



-IS EQUIP DISK 



EB000046 
EB0C0047 



wai 



1 ime clock ccc54c41 
Cine""" log a tVcn 



PUNIO 11D11MCP CARD IC EB000049 CIST. OF 3/C1 
8 IN A BY" OUTPUT ~HWE STATEMENT 



3/01 



PAGE NUMBER 123 
L C C"A TTGN" " 215146 



1* 215746. AC 

2* 215747.40 

3* 215750.40 

'* 215751. 4C 



C0CCC0.36 
C00C01.11 
CGCC27.45 
CCCG10. 16 



8B 

8D 
80 
50 



215752.34 OC 
0C5071.6C 5C 
005071.56 70 



KGATE BZB,SUNSLP($ll) , JKGATE 
L(BU t 5) ,SI0IND($13),-13 
COllKBUi 5), $7.37,-13 
LC, 7, $L 



EB000049 
EB00005U 
EB000051 
E60C0052_ 
"EB0000 53_ 
"E BO 00 54 
EB000055 
EB000056 
EB000057 
EBOOOObB 
"EB000059" 
ER00006C 
EB000061 
EB000062 
EB000063 
EB000064 
E BOO 00651 
EB000066 
EB000067 
EB000068 
EB000069 
EBOOOO/0 
£8000071' 
EB000072" 
EB000073 
EB000074 
EB000075 
ERC00076 
"EB000077 
EB0OO078' 
EB000079 
EB000080 
EB000081 
EB000082! 
ffqC008 3' 
EB0000S4' 
EB000085 
EB000086 
EB000087 
£6000068 
"EB000089" 
'EB000090 
EB000091 
EB000092 
EB000093 
E8000094_ 
FB000095_ 
EB000096 
EB000097 
EB000098 



. * 

1* 

£* 

S* 

IC* 



215 7 5 2 .CO 
21575 2.40 
215753.40 
215754.40 
215755.40 
215756. CO 



CCCCC1.17 5D 



JKGATE 



COCCOO. 32 
000CC0.33 
COCCOO. 71 
215760. 10 
COCCOO. 65 



8A 
8A 
88 
00 
8B 



001000. CC FC 
215756.34 02 
004000. CC FO 



215760.34 02 



11* 
12* 
13* 
14* 
15* 
16* 
11* 



21575 7. C_0_ 

2 15 760. CO 

215761.00 

215762.00 

215762.40 

2 15763. CO 

'215763.40 



00 CO 00 ._6 3 
00CC00.75 
COCCOO. 56 
215021.23 
000000.54 
00CC10. 17 



8B 
8B 
8B 
CI 
39 
50 



012000.CC FC 
220017.74 06 
216235.74 06 



SC, 7, 1.CU13) 

C M C ( E U , 1 ) , S C F P~( $T(f f 

BB,S MULTI($lC),$+2.32 

CM0C0Q{BU f 4),S RD($11) 

B,K K REL 

BBfS I MNTj$ll),K K REL 

C HOC C ( B U , 1 ) , S MOUN T ($ 11 J 



-RESET UNIT STA BITS - SINGLE U C 



-RESET UNIT ST BITS - MLLTI U C 



K K REL 
K G IN 



BBZ.S REL($ll)tW 23K 
BBZ,S S£CP($11),K FREE 
LVI,9,S PROG S 
LV,6,S C K{$9) 
SC,7, $L 



-CHECK IF RELEASED 



-STATUS BITS TC CCW IN FILE A 



C000C4.23 80 005071.12 FO 



CM0101(BU,5) ,S CCW+.19($13),~14 



18* 
19* 
2C* 
21* 
22* 
23* 



215764. 4C 
215765. CC 
215765.40 
215766.00 
215766.40 
215767.4C 



C0GC01.54 
000177.15 
216313.33 
215466.20 

000000.36 
C0CC10.33 



89 
04 
42 
30 
8B 
30 



001000.36 FC 



V+,6,S C K+1.C{$9) 

KVI,6,127. 

BXH,C G2BIG 

LV f 8,S CUM Q 

CMlllUBUtlj tS UN SUP I $11) 

SV, 13,$L 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 
2 

1 



24* 
25* 
26* 
27* 
28* 
2J* 
3C* 
31* 
32* 
33* 
34* 

"3-1* 
3 1 * 

37* 

38* 
3c» 

4C* 



21577C.CC 
215771. CO 
215771.40 
215772. CC 
215773. CO 
215774^00" 
215774.40 
215775.40 
215776. CO 
215776.40 
215777. 4C 

2i6_ccc,.cq' 

216CCC.40" 

216001.00 

216001.40 

216002.00 

216002.40 



COCCOO. 40 
215772.34 
C0C001.23 
215C01.C5 
00_CC_00_,_2_3_ 
12 15466. 21 
C0CC00.4C 
OOOOCO. 10 
000036.37 
215001.04 
216223. _/ 6 
2 1_5 2 6 5 . C C 
C0CC01.41 
216215.37 
OOOOCO. 20 
216226.71 
COCCOO. 31 



8 
C2 
C5 
80 
88 
'30 
89 
01 
02 
80 
42 
30_ 

To 

42 
39 
40 
89 



001066.46 70 



001066. 6C 
123066.60 



CO 

CO 



19 



022000.22 BO 



001066.63 10 



216242.34 02 



COOlKBUt UtS 0WNER{$11)»-19 

BRZ,K LEVEL 

V+I,9, 1.0 
K LEVEL ST(BU,l) t S M,-19 

_ST_(_V+I) (BU,19) ,.19(48), 

SV,8,S CUM _Q~ 

M+KBU, 18), S Q K{$9) 

B, 0.01*1) 
K NCRM LCI, 15,30 

KF(BU,1),SL,-19 

BAL,K SUPRS 
1 1 1 J-_V_flC_ t_S TIC 

SV,C,S~INT ~AC($13) 

BAH.C MINTP 

LV,8, C.CU9) 

BZXVZ, C WAIT 

BB,S AS($9),K SUPP 



-IS SM = SL 



-MCP INTERRUPTING PP 



-BRANCH IF WAITING 



4 1^*216003^40 
42* 216004.40' 
216CC5.40 
216006.40 
216007.00 
21601C.C0 



43* 
44* 
45* 
46* 



_C_0_C_C0O_._7_5_ 
215G01.05 
215230. CO 
222C37.10 
215230.00 
222037.10 



8_9 
8 
80 
00 
80 
CO 



216242.34 02 
216007.34" 02" 
215266.36 20 

215362.36 20 



47*216010.40 
48* 216011.00" 
49* 216012.00 
5C* 216C12.4C 



_0_0_C_C_02_.q2_3D 
COCCOO. 31 89 
000000.04 30 
215021.23 00 



K COMM 



_K_ _N I_N T Y 
K INT TY 



PP 



BB,S SI0[$9),K SUPP 
"83, S M,$+2.32 
T,15,STLR,S LR 
B f K UNSTC 
T, 15, S TLR,S LR 
B,K UNSTC 



MCP 



-BRANCH IF SM IS MCP 



-NCT FCUNC RETURN 



LV t_ 1 »_ S J D E L ( $13) 
CMlllKBUf 1) ,S AS ($9) 
LV,2,S IOC RN($13) 
V-I,9,S PROG S 



001000.36 FO 



wai 





IIME CLOCK CC054C41 PUNID 


11D11MCP 


:aro 


ID EB0G01C0 DIST. OF 3/C1 3/01 PAGE NUMBER 


124 






LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 


216013 






1* 


216013. CC 


216015.71 


42 








BXVZ,K PP INT 




EB000100 




2* 


216013.40 


215C03.04 


BO 








V+,2,S BA MCP 




EB000101 




i * 


216014.00 * 


215224.00 


80 


0C0003.C2 


ao 




TI,1,S BNDRS.3.0 -SET MCP BOUNDARY 




6B000102 




< * 


216015. GO 


216C22.1C 


CO 








B,RSKBNC 




EP000103 




i* 


216015.40 


215CC5.C4 


80 






K PP INT 


V+,2,S BA PP 




EB0C0104 




6* 


216016.00 


215324.00 


80 


000003.02 


AO 




TI,1,S LR 8U.3.C -SET PP BOUNDARY 




EB000105 




I* 


216017.00 


215324.42 


90 








KVtSlt SLRBU.32 




EB000106 




£* 


216017.40 


216044.32 


42 








BXL, RNGTOE 




EB000106 




S* 


216020.00 


000021.30 


30 








LV,$12,$1 




EB000107 




IC* 


216020.40 


C0CCG5. 31 


05 








V+If $12i5.0 




EBOOOiOiT 




1 1* 


216021.00 


215324.30 


90 








KVt $12,SLRBU 





E80001Q8 
EB000108 




12* 


216021.40 


216044.32 


40 








BZXL, RNGTOE 




12* 


216022.00 


000000.30 


32 






RSKBND 


LV,$12,<$2) 




EB000109 




14* 


216022.40 


C0CC0O.24 


3C 








LVilOtS CHAN NU12) 




EB000110 




15* 


216023.00 


C0CC04.23 


8D 


005000. CC 


FO 




CMOC0O(BU,5),S CCV^+- 19 ( $13 ) 




EB000111 




16* 


216024. CC 


C0CC32.24 


BO 








V+,10,$1G 




EB000U2 
EB000113 
EB000114 




17* 


216024.40 


215CC2.24 


BO 








V + » 10, S CHAN S 




lfc* 


216025. CO 


COCCOO. 33 


8A 


216047.34 


00 




8ZB,S MULTI($10) ,K DODO 




IS* 


216026.00 


G0CC00.26 


3A 








LV, 11,C.G($1C) 




ER000115 




2C* 


216026. 4C 


COCCOO. 66 


BC 








V + , 11,.32($12) 




EB000116 




21* 


216027.00 


00CC00.36 


8B 


001000.00 


FO 


K CANCL 


CMOCOOlBUt l) t S UN SIPU11) 




EB000117 




22* 


216030.00 * 


COCCOO. 00 


8D 


000000.04 


Al 




TI,2,0.C{$13),0.0($1) 





EB000118 
EB000119 




23* 


216031.00 


215373.42 


60 








LWF(U),S LR MCP+9.C 




24* 


216031.40 


000014.40 


EO 








ST(U),$MASK 




EB000120 




25* 


216032. CO 


000C13. 17 


80 


005000.06 


70 




LF(BU,5),$IND+.15 -IF AD, OP, USA OR DS 




EB000121 




26* 


216033. CO 


720CC0.C0 


80 


4C5000.C3 


70 




CTIC00HBU,5),(2)111C1 




EB000122 




27* 


216034.00 


216242.34 


CO 








8ZRZ,KSUPP -LET IT HAPPEN 




EB000123 




2£* 


216034.40 


00CC13. 22 


GO 








Z,$INC 




E8000124 




29* 


216C35.CC 


000C37.22 


CO 








Z»tl5 




EB000124 




30* 


216035.40 


216036.11 


46 








BEXEZ,$+.32 




EB0C0125 




31* 


216036.00 


C0CC01.11 


8D 


216042.74 


02 




BB,S 10 IN0(S13) t C ERROR -TEST INTERRUPT TYPE - 


EPGK 


EB000126 




32* 


216037. CC 


000001.12 


8D 


216042.74 


02 




BB,S 10 IND+.11S13) ? C ERROR - UK 




EB000127 




33* 


216040.00 


GCCC01.13 


80 


216043.34 


02 




BB,S 10 IND+.2($13},K END E - EE 




EB000128 




34* 


216041.00 


000001.14 


80 


216043.74 


00 




BZB,S 10 IND+.3($13),K C SIGL -CS 




EB000129 




35* 
36* 


216042.00 
216042. 4C 


000005.00 
000002. CC 


CI 
CI 








~ C~ YR RO~R~ " 


BE, 5. 0(11) 
BE, 2.01*1) ~ 





EB000130 

E6000131 




3/* 


216043.00 


C0CC03.C0 


CI 






K END E 


BE,3.0{ $1 ) 




EB000132 


20 


3£* 


216043.40 * 


000004.00 


01 






K C SIGL 


BE, 4.01 $1) 




EB000133 


19 


3 C >* 


216044.00 


CCCC36.31 


02 






RNGTOE 


LCI, $12, 30.0 




EB000134 


IS 


4C* 


216044. 4C 


215266.00 


80 


215230.30 


20 




T, $12,SLRPP,STLR 





EB000135 
'""EB000136 


17 


41* 


216045.40 


C1CCC5.35 


01 








LVI,$14,SPPTNG 


16 


42* 


216046.00 


217451.40 


80 








SICSCISIC 




EB000137 


15 


43* 


216046.40 


217372. 1C 


CO 








B,SCISP 




EB000137 


14 


44* 


216047. CC 


000032.26 


30 






K CGDO 


LV,11,$1C 




EB000138 


13 


45* 


216047.40 


216027.10 


00 








B,K CANCL 




EB000139 


12 


46* 


216050.00 


000032.26 


30 






K SINGL 


LV, 11, $10 




EB00Q140 
EE000141 \ 


11 


4 7* 


216C5C.4C 


COCCOO. 35 


8B 


216242.34 


02 




BB,SUNASG($11),KSUPP 


10 


4e* 


216051. 4C 


215240.16 


50 








LC,7,S TLR+8.C 




EB0C0142 


9 


4S* 


216052.00 


215732.10 


00 








B,K COOL 




EB000143 


8 


5C* 


216052.40 


C0CC01.11 


04 






K PAL 


KVI,4,1.0 -IS EQUIP CONSOLE 




EE000144 


7 


51* 


216053.00 


216620.72 


C2 








BXE,P CON El 




EB000145 


6 


52* 


216053.40 


215730.10 


00 








B,K KK 




EBCC0146 
EBC00.147 
EB000148 


5 


53* 


216054.00 


C0CC20.17 


02 






K SIGNL 


LCI, 7,16 -CS INU TO CF{$7) 




4 


54* 


216054.40 


CCCCC4.11 


C4 








KVI ,4,4.0 




3 


55* 


216055. CC 


216C52.72 


CO 








BZXE,K MAL 




EB000149 


2 

1 


56* 


216055.40 


COCCOO. 73 


8A 


004067. 2C 


50 




L(BU,4) ,SUNITK($10) ,-18 




EB000150 



wai 





TIME CLOCK 0C054C41 PUNIC 


11D11MCP 


CARD 


IC EBC00151 CIST. OF 3/C1 


3/01 PAGE NUMBER 125 






L 1 N t L 0C A Tl G N~ " 


BINARY CUTPUT 





NA>~E " 


STATEMENT" 


1 C A T ~I~CN 216056 







1* 


216056.40 


C0CC10.26 


50 








LC, 11, $L 




EB00G151 




2* 


216057.00 * 


CC0CC0.26 


3A 








LV, 11,S UN A I $10) 




EB000152 




2 * 


216057.40 


C0CC10.26 


BC 








V + f 11, $L 




EB000153 




*« 


216C6G.CC 


G0CCC1.27 


CD 








V-I , 11, 1.0 




EB000154 




5* 
-- 


216C6C.40 


C0CCC0.64 


8B 


216110.74 


" 0"2~" 


I A "hunt [ 


"B b,s1em$ii], k "ST a d 




"EB000I55 " 






216061.40 " 


" CO C COO. 63 


88 


216110.74" 


02" 




BB,"S MOUNT ( $ 1 1 } , k stab" 




£ BO 001 56" ~ 




7* 


216062.40 


216C60.67 


C8 






K HEX 


CB- f ll,K FUNT 




EB000157 




f * 


216063.00 


0OCC0O.7C 


8A 


003067. 2C 


5C 




L(BU,3) ,S UNIT($10),-18 




EB0001i>8 




9 * 


216064.00 


C0CC36.27 


02 








LCI,$11,KREP 




EB000159 




It* 


216064. 4C 


C0CC10.14 


30 








LVf 6 f $L 




EB000160 




11* 


2 16065. CO 


00CC36.C3 


C2 






IXI p 3lNf ~ 


LCIi 1,K~REP 




"EB000161 




12* 


216065.40 


" C~6~GCQ0.CC 


8£ 


000000. 17 


06" " 




LOC i SEOP ) , .01 $14") ,~G .~0( $6 ) 




~ ~ EB000162 




12* 


216066.40 


216070. C3 


44 








BZEKJZ,$+1.32 




EB000163 




14* 


216067. CO 


216065.42 


48 








CB, 1, $-1.32 




EB000164 




15* 


216067.40 


221300.10 


CO 








B,K REJT 




EB000164 




16* 


216070. CC 


216072.04 


44 








BZCBJZ,K NET 




EB0C0165 




17* 


216070.40 


221313.4C 


80" 






I Xc"l"r"u"k " 


SICKCBJR 




EB 000 I 66 




16* 


2160 71.00" 


~ 221302. 5C 


"CO ~ 








B.KCLEAR 




EB000166 




19* 


216071. 4C 


216C65.1C 


CO 








B,K PUNT 




EB000167 




2C* 


216072. CC 


C0GC36.03 


02 






K NET 


LCItltK REP 


-WAIT FOR ENO CP 


EB000168 




21* 


216072.40 * 


COOGOO.CO 


8E 


216332.21 


OC 




CCW,0.C<$143 ,K RECEP 




EB000169 




22* 


216073.40 


216075. C3 


44 








BZEKJZ,$+i.32 




EBOOOl/O 




2 3* 


"21 6074. CC 


216C72.42 


"4 8 








CB, 1, $-1.32 




"EB000171 




"24* 


"216074. 4C 


2 21 3 CO. "10 


00" 








~~b,k "rejt 




" EB000171 




25* 


216075.00 


216332.23 


80 


0C6000.2C 


50 




L(BU,6),K RECEP. 19 




EB000172 




26* 


216076.00 


216104.74 


C2 








BRZ,K K SET 




EB000173 




27* 


216076. 4C 


216332.30 


80 


216072.34 


02 




BB,K RECEP. 24, K NET 


-IF SECP BIT ON, LOOP 


EB000174 




2E* 


216077.40 


61CCC0.C0 


80 


406000. C2 


70 




CI0001(BU,6) f (.5,2)llCOCi 




EB000175 




2S* 


216100. 4C 


216102.34 


t2 








BRZ, RINTOK 




E6000176 




3C* 


216101.00 


216C70.66 


48 








CB, $11,RCLRUK 




EB000177 




3]* 


216101. 4C 


221274. 1C 


CO 








B.KSOS 




EB000177 




32* 


2161C2.0C 


216332.25 


80 


216104.74 


00 


RINTOK 


BZB,KRECEP.21,KKSET 




EB000178 




33* 


2161C3.00 


C0GC01.27 


02 








LCI, $11, 1.0 




EB000179 




34* 


216103.40 


C0CCC1.27 


C5 








V + I ,$11,1.0 




EB000179 






216104. CC 


216134. IC 


CO 








B,RNTMCP+1.C 




EB000180 




36* 


216104.40 


215C01.07 


ao 


216242.34 


04 


K K SET 


BZBZ,S CS INT,K SLPP 


-RETURN IF STRAY CS 


EB000181 




3 7* 


216105.40 * 


216171.37 


80 


001000. CC 


EC 




CM0000<8U,1) ,KCSC31 




EB000182 


20 


3t* 


2161C6.4C 


216171.26 


30 








LV,11,K CS Q 




EB000183 


19 


39* 


216107. CC 


000C00.4C 


8B 


001066.46 


70 




C001KBU, 1),S 0WNER($11),-19 




EB000184 


18 


4C* 


21611C.CC 


215776. 10 


00 








B,K NORN 




EB000185 


17 


41* 


216110.40 


C0CC22.27 


50 






K STAB 


SC, 11, $2 


-TEST IF UNIT IS READY 


EB000186 


16 


4.:* 


216111. CC 


C0CC01.C5 


CU 








V-I, 2, 1.0 




EB000187 


15 


A3* 


216111.40 


000036. C3 


C2 








LCIfltK REP 




EB000188 


14 


44* 


216112.00 


COCCCO.CO 


8E 


000000.17 


02 




LOC(SEGP),0.0($14),C.U2) 




EB000189 


13 


45* 


216113.00 


216114.43 


44 








BZEKJZ,$+1.32 




EB000190 


12 


46* 


216113.40 


216112. C2 


48 








CB,1,K STAB+1.32 




EB000191 


11 


4 7* 


216114. CC 


221300. 10 


CO 








B,K REJT 




EB000191 


10 


46* 


216114.40 


216116.44 


44 








BZCBJZ.KSTAG 




EB000192 


9 


4S* 


216115.00 


221313.40 


80 








SICKCBJR 




EB000193 


8 


5C* 


216115.40 


221302. 5C 


00 








B,KCLEAR 




EB000193 


7 


51* 


216116. CC 


216111.50 


00 








B.KSTAB+1.0 




EB000194 


6 


52* 


216116.40 


C0C036.C3 


02 






KSTAG 


LCI, 1,KR£P 




EB000195 


5 




216117. CC 


COOOOO.CC 


8t 


216332.21 


CC 




CCW,C.C($14) ,K RECEP 




E8000196 


4 




216120. CC 


216121.43 


44 








BZEKJZ, $+1.32 




E8000197 


3 


55* 


216120.40 


216117. C2 


48 








CB, 1, $-1.32 




E-B000198 


2 

1 


56* 


216121. OC 


221300.10 


CO 








B t K REJT 




EB000198 



wai 



TIME CLOCK 0CC54C41 



PUNID 11C11MCP 



CARD IC EB0C01S9 



CIST. GF 3/C1 



3/01 



LINE 



LOCATICN 



CINARY OUTPUT 



NAME 



STATEMENT 



PAGE NUMBER 126 
I C C A tTcN "216121 



1* 

2 * 
2 * 
c * 
IV 

z* 

I * 
£* 

s * 

K* 
li* 

12* 
12* 
14« 

15* 



216121.40 
216122.40 
2 1 6 1 2 3 . 4 C 

216124.40 
21612 5.40 

216126.40 

216127. 4C 

21613C.C0 

216130.40 

?16131_.0C_ 

216131.40 

216132. CO 

216132.40 

216133.00 

216134. CO 



216332.30 
216332.22 

OOCC00.65 
C0CCC0.64 
C0CCOO.63 



80 216116.74 02 

80 216062.74 CO 

8B 216153.74 04 

80 _ ? 16062. 74 06 

8B 216153.74 04 



BB,K RFCEP.24,K STAG 
BZB.K RECEP.18,K HEX 
BZBZ,SIMNT($11), ZRCPFC 
BBZ,SREW($11),KFEX 
BZBZ,S>0UNT($11) , ZRCPFC 



-IF SEOP BIT ON, LOOP 

-IF UNIT IS NOT READY, SKIP 



EB000199 
EB000200 
EB000201 
EB000202 



C0CC00.40 
216146. C2 
CCCC00.30 
C0CC03.32 
CCCCC0.C4 



8B 
10 
3B 
3C 

3D 



216133.34 00 



BZB,SCVvNER($ll),RNTMCP 
LX, 1,RSRC 
LV,12,SUNA($11) 
LV, 13,SF1AAC($12) 
L___2,SJCCRNU_13_) 



E8000204 
E8000205 
EB000206 
EB000207 
EBG00208 



1 £ * _ 2_1 6_1 34 . 4 
ll*_2_16_l_3_5_.0CL 
lfc*» 216135. 4C 
216136. GO 
216137.00 
21614C.00 
21614C J? 4C 
216141. CO 



_0_0_C_C_CC_, 
216152. 
216131. 
216332. 
221313. 
221302. 



C4 
72 

42 

25 
40 

5C 



^1 
C2 
C8 
80 

80 
CO 



RKI*P 



216062.74 OC 



RNTMCP 



AV,_2,__$l__ 

BXEi RMCPCS 
CBH, 1,RKHP 
BZB.KRECEP, 
SICKCBJR 
B, KCLEAR 



21,KHEX 



E8000209 
EB000209 
EB000210 
EB000211 
EB000212 
ER000212 



1<5* 
2C* 
21* 
22* 
23* 



_cc_c_c_i_6._gi 

220231.41 
215C01.C4 
216146.76 
220234.00 
220230.10 



01 
CO 
80 

80 
80 
00 



32 



216140.34 OC 
001000.36 FO 



_2_1_6_1A6_._7_6 

215CC1.04 
C0C136.01 
220231.41 
216242. CI 
22C234.01 



80 
80 
CI 
CO 
01 
CO 



216143. 34_06 

o6ic6o.cc fo 



LVI ,$0, 14^0 

SVA,$0,ZCTLRW, 
BZBlt SLt *+2.0 
CMllll(BUtl) tRSRC. 
SICZC0MRT-.32 

B,ZCILRW-1.C 

BBZt RSRC.62, $ + 2.C 



62 



E BO 002 13 

EB000213 
EB000214 
EB000214 
EB000215 
EB0C0215 



EB000216 
EB000216 
EB000217 
EB000217 
ER000218 
EB000218 



24* 
25* 
26* 
27* 

_2_* 
25* 
3C* 
31* 
32* 
32* 

_3_4* 

_3-_* 
36* 
37* 

3£* 
3S* 

4C_* 

41* 

42* 

42* 

44* 

45* 

46* 

4Z? 

48* 

49* 

5C* 

51* 

52* 

52* 

54*" 

55* 

56* 



216142.00 

216143.00 

216143.40 

216144.00 

216144_40 

216145_.CC 

216146. CC 

216147.00 

216147.40 

216150.00 

2161_C.4C 

21615C.71 

216151. CO 

216152. 4C 

216153. CC 

216153.40 

216154. CC 

216154_4C 

216155. CC 

216155 

216156 

216157 

21616C__ 

2 16 161. CO 

216161.40 

216162.40 

216163. 4C 

216164.40 

21616 5.40 

216166_._4_C 

216167.40 

216170. CO 

216170.40 



CMOGOO(BUil)f SL 
LVI ,$0,94.0 
SVA,$0,ZCTLRw.32 
LVI,$0,KSUPP 
SVA,$0,ZCCMRT-.32 



2_16C62. 5C_ CO 
216147.00+ CCO 
CCC0C4.00+ 
CCC0C6.00+ 
CCC013.0C+ 
CC0014.CC+ 



G00007 OCCCOC 



RSRC 
RTABLE 



B,KHEX 
XW,RTAELE,7 
VF, VRTP 
VF.VWTP 
VF.CT11 
V F , CT 2 1 



EE00Q21? 
~E8000220~ 
EB000221 
EB000221 
E8000222 
EB000222 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
i 
S 
4 
3 
2 
1 



C_0_C_C_C_0_._07_ 

CCCC01.40 

C0CG20.17 

216161.10 

000CC0.01 

CCGCC0.30 



02 

CO 
09 
38 



RMCPCS 



ZRCPFC 



_DR4<_BU ______ 

DRZ(BU,32),3 

LCI, 7, 16. 

B,KFAKE+1.0 

LVNI,$0,C 

LV, 12,_S_UN A_$ll> 



EE000223 
E BO 00224 
EB000225 
EB000226 
EB000227 
EB000228 



4C 

00 
OC 
CC 



^_C_C_C_C_7_._4_1_ _3_ C 
00GC20.17 02 
C0CC03.32 3C 
C00004.22 8D 
C00C00.63 88 
C0CCG0.64 8B 



001000.36 FC 
216171.74 06 

0C1OO0.0C FO 



K FAKE 



SV,_C ________ ($12) 

LCI ,7,16 

LV,13,S FI A AC($12) 
CMlllKBUi 1) ,S CCb.l8($13) 
BBZ,S M0UNT{$11),K MOUNT 
CMOGOOlBUf l) t S REW{$11) 



-TURN ON UNR STATUS BIT IN CW 



EC000229 
EB00023C 
EB000231 
EB000232 
EB000233 
EBC0C234 



C_0_C_C_01._17 
000000. 75 
C0CCC0.56 
216171.37 
G0CC00.40 



5D 
86 
8B 
80- 

8B 



216202.34 06 
216062.74 C6 
216170.34 02 
216166.74 OC 



216171.37 80 001000.36 FO 



SC_____C(_13_ 

BBZ,S REL($11),K RELES 
BBZ,S SECPl $11) ,K HEX 
BB,KCSQ.31,ZKCSQ 
BZB,SCWNER($il),$+2.C 
C_llll{By,l) ,KCSG_._3_1 



»R. IF RELEASE 



EB000235 
EB000236 
E8000237 
EB000238 
EB000239 
EB000240 



21_5_C01.C7 
216171.27 
216C62.43 
215762. IC 



80 
30 
01 

CO 



001000.36 FC 



ZKCSC 



CMllll(__jl)jS 
SVtlliK CS Q 
LVI,$1,KHEX 

B,K Q IN 



CS INT 



EB000241 
EB000242 
EB000243 
EB000244 

7 WU 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID EB000245 



GIST. OF 3/C1 



3/01 



PAGE NUMBER 127 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LCCATICN 



216171 



1« 216171.00 

2* 216171.40 

3* 216172.00 

<* 2 16 173. CO 



CCCOCC.OO+ 

C0CC10.46 3C 
COCCI 0.71 8C 
C0CC00.C6 33 



007000.22 BO 



K CS Q VF,C 

K MOUNT LV, 3,S C REELU12) 
M+ltS REEL K{ $12) 
LVt 3 t 0.C($3) 



-UPDATE CURRENT REEL FIELD 



EB000245 
E8000246 
EB000247 

_EB00 0248_ 
E BO 02 49 
EB000'2 5G 
EB000251 
EB000252 
EB000253 
EB000254 

"EB000255" 

"CB0002 56" 
EB000257 
EB000258 
EB000259 
EB00026Q 

]EB000261 

"EB000262 
EB000263 
EB000264 
EB000265 
EB000266 
EB000267" 
FB000268 
EB000269 
E8000270 
EB000271 
EB000272 

"EB000273" 
EB000274~ 
EB000275 
EB000276 
EB000277 
EB0C0278 

~E BOO 02 79 
E BOO 028 0" 
EB000281 
EBC00282 
EB000283 
EB000284 
EB000285 
E8000286 
EB000287 
EE000288 
EB000289 
EB00029G 

"|8000291_ 
EB000292 
EB000293 
EB000294 
EB000295 
E BO 00296 
E BOO 5297" 
FB000296 
EB000299 
EB000299 



t * 

~l* 

7 * 

fc* 
c * 

1C* 



21617 3.40 
216174.CC 
216175.00 
216176.00 
216177. GO 
216177.40 



C0CC10.47 3C 



SV,3,S C REEL ($12) 
"B L B 7 SYS TAP { $ 3 ) , K NCNS 
CM11111BU,1), S VER($11) 
CMllll,SSYSTM($12) 
BfK FAKE+1.0 
CMlllllBU, 1),S VER($11) 



COOC00.33 
000000. 5C 
OOC0C7.31 
216161.10 

C0GC0O.5G 



83 
88 
8C 
CO 
8B 



216177.74 CC 
001000.36 FO 
001000.36 FO 

001000.36 FC 



K _N_ONS _ 
K RELES 
K SPACE 



-TEST THIS LABEL 

-IF SO, MUST BE VERIFIED 



-SET VER IN FOR REMCUNT 



11* 

12* 
13* 
14* 
15* 
16* 
17* 



2162CC_.4_0_ 

216201.40 

216202.00 

216203. OC 

216203.40 

216 2 04. CO 

216205.00 



001000. CO FO 



001000. CC FC 



C _0CCG7. 31 _8C 

216161.10 CO 

000000.37 86 

000040.17 02 

216160.10 00 

C0CC00.72_8B 215744.34 02 

COGCOd.71 88" 216207.74 C2 



CMOCOOlfilJf 1_) , S 
"B,K "FAKE+1.0 
CMOCOO(BU,1),S 
LCI, 7, (8)40 
B,K FAKE 
BB,S 1mR($11)«K 



SYSTMU12) 



SET LPUll) 



COPY 



BB f SRD($11)»KF0RKC 



le* 


216206 


.CC 


374000. 


.CC 


80 


is* 


216207 


.CO 


216211. 


36 


40 


2C* 


216207, 


.40 


C0C007. 


46 


8C 


21* 


21621G 


.40 


215742, 


10 


CO 


22* 


216211 


.CC 


C0CC07. 


46 


8C 


22* 


216212 


.00 


215746. 


74 


CO 


24* 


216212 


.40 


220C64. 


10 


00 


25* 


216213 


.00 


236C00. 


CO 


80 


26* 


216214 


.CC 


216207. 


76 


C2 


21* 


216214. 


.40 * 


215742. 


10 


CO 


28* 


216215. 


.00 


000013. 


17 


80 



410000.21 1C 



014000.22 BO 



014000.32 BO 



410000.21 10 



GC5000.07 7C 



KI< BU,8), (8) 176 

BZAL, $+2.0 
K FORKO M+l.S FILE K{$12) 

B,K STACK 

M-ltSFILEK( $12) 

"BZRZ L KGATE 

B,"KILEGL 
K WEF KI(EU,8),79 

BAE.K FCRWD 

B,K STACK 
CMINTP CT0CU{BU,5),$IND + .15 



-CHECK FOR OP, AD, USA OR DS 



25*_216216_.C0 
3C* 2 162 16.4 C" 
216217.00 
216217.40 
21622C.CC 
216220.40 
216221. GC" 



31* 
32* 
33* 
34* 
"3£ * 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 

9 

8 

7 

t 

5 

4 

3 

2 

i ! 



36* 
37* 
3£* 
3S* 
4C* 



216222.00 
216223. CC 
216223.40 
216224.00 
216224.40 



216220.74 
216 217 .07 
216217.50 
216220.10 
216220.51 
OC CO 36. 37 
2152 30.JD0 
2r5C01.C r 4~ 
222C37. 1C 
215361. CO 
CCCC01.41 
216242. IC 



C2 
C6 
46 
C6 
C6 
02 

"Co 

80 
00 
30 
3D 
CO 



215324.36 
"001000.36" 



20 
FC" 



CMINTZ 



K SUPRS 



_BRZ L CMINTZ_ 
B~CPZ,$+.32 
BADZ, $+.32 
BUSAZ,$+.32 
BCSZ,$+.32 
LCI,$15,3C. C 
T L 15^S TLR,S LRll 

cciiiueu. i) »s l 

B,K UNSTC 
LV,C,S IC BU 
SV,0,S INT ADU13) 
B,K SUPP 



-EXE SHOULD BE OFF AT THIS POINT 



41* 
42* 
43* 
44* 
45* 
46* 



216225. CC 
216226. CO 
216226.40 
216227.40 
216230. OC 
216230.40 



C_0_G_C_00_._75_ 
216004. 5C 
000000.31 
C00C30.32 
216225.32 
000036.37 



89 
"CO 
89 
90 
CO 
C2 



216242.34 02 



C NOfcAT _BB, L _S SI0U9 ),K 

B,K CCMM 
C WAIT BB, S AS($9), K 

KV, 13, $8 

BZXE.C NOWAT 

LCI ,15,30 



SUPP 



216242.34 02 



SUPP 



47 * 
46* 
45* 
5C* 
51* 
52* 



216231.00 
216231.40 
216232.40 
216233.40 
216234.00 
216235. OC 



216C_1C.C3 
215C0"l.G5 
215230. CC 
222G20.10 
215230.00 



01 

80" 

80 

00 

80 



LVL»_I»K^NINJY 
~BB,S M,C JUMP 
T, 15, S TLR,S LR PP 
B,K SERCH 

T,15,S TLR,S LR MCP 
B,K SERCH 



216234.34 02 
215266.36 20 

215362.36 20 



222020. IC CO 



C JUMP 

"kTrTe ~ 



53* 216235.4C 

54* 2 16236.40" 

55* 21623?. 40 

56* 21624C.CC 



CGCCC4..3C 
C0CC27.45 
215265.00 
C0CG01.41 



8D 

ao" 

30 
3D 



001 000. CC 
003000.20" 



FO 

50 



CMOCOOfBU, 1),SCCW+.24($13) 

L(BU,3) ,$7.3/ -EPGK,"lK,~ OR 

LV,$0,STIC 

SVf $0t SINTA0($13) 



EE ON 



wai 



TIME CLGCK C0054C41 PUNIC 11D11MCP 



CARD ID EB0003C0 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 128 



S 
V 

'" 9 



6 
01 
li 
Si 



LINE LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LCCATICN 



216240 



1* 216240.40 
2* 216241. CC 
2* 216242.00 
4* 216242. 40 



215762.34 
000004.26 
216246.70 
216273.30 



CO 
8D 
00 

00 



001000. CO FO 



£* 

i * 

£* 

c . * 

1C* 



2 16243. CO 
2 1 624 3. 4 C 
216244.00 
216244.40 
216245. CO 
216246. CC 



215265.CC 
21 6246. CI 
C0CC35.37 
215231.44 
215230.00 



30 
30 
02 
AO 
80 



000003.36 20 



BZRZ,K C IN 

CMOCOOtBU, 1).S CCW+.22{$13) 
K SUPP NOP,K CCMM R 

A _ SUP CS _NOP _K MT _ C SG 

J-__C_S_T_IC " _"_"_ _ _ __ _ 

SV f Ot $+2.32 

LCI, 15,29 

LFT<U), STLR+l.C -RESTORE $MR 

T, 15, S TLR,3.C 



-IF NOT, TURN OFF EGP IN CCW 

-BRANCH IF CS GUEUE NOT EMTY 



EB000300 
EB000301 
EB000302 
E BOO 030 3 



216246. CO 00 BE,$ -RETURN CONTROL 



EB000304 
£8000305 
EB000306 
EB000307 
EB000308 
EB000309 



w 

91 
/I 
81 
61 

Ot 



li* 

12* 
13* 
14* 
15* 
16* 



216246_.40 
216247.00 
21625C.CC 
21625C.40 
216251. CO 
216251.40 



C_CC.CC0.31 
216242.23 
216260.10 
215C06.34 
215C06.24 
CCCC32.24 



01 
80 

CO 
3 
30 

BO 



_K__CCMM R lV_____C.g_ 



001000.36 FC 



K CGNCP 



II* 

1£* 
19* 
2C* 
21* 
22* 



2_.6252_._0C_ 
216252.40 
216253. CO 
216254.00 
216255. CC 
216256. CO 



_21_5_C_02._24 
C0CCC0.26 
216257.23 
215240.11 
216250.23 



BO 
3A 
80 
80 
80 



CMllllteu,l),K SUPP. 19 

B,KC0MCW+1.0 
LV, $14, JCNAD 
LV, $10, JCNAD 

V___$1___-1G 

y/ + , $10, SCHANS 



- IF CCNCEPTOR,EGP 

- CA 



EB000310 
£8000311 
EB000312 
EB000313 

EB000314 
EB000315 



-CST 



E BOO 03 16 
EBCC0317 
EB00Q318 
EB000319 
EB000320 
EB0C0321 



0C4000.60 50 
005000. 2C DO 
001000. CC FO 



216644.10 CO 



216257.00 
216260. CC 
216260. 4C 
216261.00 
216261.40 
216262. OC 



C C OCC. + 00 
C0CC00.66 3C 
0O0C0O.24 30 
000032.24 BO 
215002.24 BO 
C0CC00.26 dA 



COCOOO OCCOOC 



K COMCh 



LV,$11,SUNA{$10) 
L(BU,4),KCQMCW.19, 1 
ST{BU,5),STLR+8.9 
CM0000(eU,l),KCCNCP.19 

J3__CCNE_ 

Xw, 



-UST 

-INDICATORS 
-RESET RRANCH 



-CCNCEPTOR INTERRUPTS 



EB000322 
EE000323 
EB00C324 
E6000325 
EB000326 
EP000327 



24* 
25* 
26* 
27* 
2£* 



LV, 11, S UNIT N($12 ) 
LV, 10, S CHAN N{$12) 
V + , 10,$1C 
V+, 10, S CHAN S 
V+, 11, S UN A( $1C) 



29* 
3~C* 
31* 
32* 
33* 
34* 



2_6262_4C 
216263.00 
216263.40 
216264.40 
216265.40 
216266. CO 



CO C_C_0_3_._3_2_ _3_C_ 
215021.23 01 
C00C0O.40 8B 
215C01.05 80 
215776.34 C2 
C0CC01.23 05 



LV, 13, S FI AAC($12) 



-OBTAIN ACTIVATED FILE AREA ADC 



E8000328 

"eeooo3_9" 

E8000330 
EB000331 
EB000332 
EB000333 



001066.46 70 
001066.60 DC 



LVI,9,S PROG S 

C001KBU, 1) ,5 GWNER{$11),-19 -LEVEL GF INTERRUPT 

sueu,n,SM,-i9 

BRZ.K NORM -BRANCH IF PP INTERRUPT 

V+I, 9,1.0 -MCP INTERRUPT 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3J_* 
36* 
37* 

38* 
39* 
4C* 



2__2_6.4C 
216267. OC 
21627C.0O 
216270.40 
216271.40 
216272. 4C 



215 7 76.10 CO 
C0CC36.CC 80 
C0CC10.36 30 
216312.00 8F 
216242.63 80 
216272. 5C GO 



023064. 2C 50 

001000.36 FO 
001000.00 FO 



K CS IN 



K ST CS 



_B»J<J_C_.I_ 

L( BU, 19) , $14,-24 

LV,15,$L 

CM11111BU,!) ,K CS REGU15) 

CMOC00IBU,l),K SUP CS.19 

B,$ 



-CONVERT CHAN NC TO BIT ADDR 

-STACK CHAN SIGNAL 
-SWITCH GATE OPEN 



E80003 34 
E BO 00 3 35 
E8000336 
EB000337 
EB000338 
EB000339 



41* 
42 * 
43* 
44* 
45* 
46* 



216273 J .CC 
216274. CO 
216274.40 
216275. CC 
216275.40 
216276.40 



_y-A3_12_._C.C_80. 
CCCCC7.26 30 
C0CC07.74 50 
C00011.22 00 
C0CC07.21 80 
00C011.24 30 



000040. C6 7_0__ K MT CSC COO 11 _BU_64 ) , K CS REG, 64 



EB00C34C 

£6000341" 

EB000342 

EB000343 

EB000344 

EB000345 



007026.46 70 



LV, U.SLZC 

LC, 14,$ACC 

Z,$R 

LF{ BU,7),$LZC,45 

LV_10____ 



-FIND CHAN NC 



47* 

48* 
49* 
5C* 
51* 
52* 



216277.CC 
216277. 4C 
216300.00 
216300.40 
216301. CO 
216302. CC 



_C0_C_C32.__4 
C0CC32.24 
215002.24 
CCCC00.35 
CG0CC0.32 
216243.30 



30 
BO 
BO 
10 
8A 
4 2 



Ly___if!C 

V + , 10,$1C 

V+,10,S CHAN S 

SX-, 14,0 

BZB,S CF CP{ $10), K 

BXCZ,K SUP CS.32 



£ BOO 03 46 
EB000 347 
£6000348 
EB000349 
EB000350 
EB000351 



216305.34 OC 



I CS 



-GGMPUTE CHAN STATUS T ADDR 

-CHECK IF CHAN BUSY 

-IF SO, SEE IF ANY OTHER CS IN C 



5___216302_.40_ 
54* 216303.40 
55* 216304. 4C 
56* 216305. CC 



CCCC 10.00 88 
216312,00 80 
216274.10 CO 
216306. 70 40 



0C100P_.C_C__F_0_ 
000040.03 70 



K Z CS 



CM0C0C_BU,_1) ,$L($ll_) __ 
CTOCOLl BU,64),K CS REG, 64 
B,K MT CSG+l.C 
BZXCZ,$+1.32 



-IF SQ, LOOP 
-TEST IF ANY 



OTHER CS IN QUEUE 



EB000352 
EB000353 
EB000354 
EB000355 



TIME CLOCK 0CG54C41 



PUNIC 11C11MCP 



CARD ID £6000356 



GIST. OF 3/C1 



3/01 



PAGE NUMBER 129 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



216305 



1* 216305.40 

2* 216306.40 

2* 216307.40 

** 216310.CC 

I*_?!631C_.40_ 

6* 216311.40 

7* 216312.00 

£* 216313.00 

9* 216313.40 

1C* 216314.00 

H* 216314.40 

12* 216315. CC 

12* 216315.40 

14* 216316. CC 

15* 216317. OG 

1^*_2_1632 0.CC 

17* 216320.40 



216242.63 
216312. CC 
0CCC20.17 
COCCI 0.17 
2J 5240. 11 
215721. 50 
CCCCC1.00 
003410.35 
217451.40 
21 7 3 72.10 
C0~C_C0 5.2C 
"o"o"CCO~i.l7 
00GCC0.10 
CCCCC3.34 
215001.01 
000004.00 
216327. 30 



80 
3B 
02 
50 

§° 
CO 

01 

80 

00 

3C 

5D" 

08 

8D 

80 

ID 

40" 



001000.36 
001000.00 



FO 
FO 



SUP CS.19 
CS REGUll) 



005071.52 FO 



S TLR+8.9,-13 



022033.60 
001000. CC 



50 
FO 



K CS REG 
C G2B1G 



K RELAY 



C ARC AC 



CM111KBU, 1) ,K 

CMOCOO(BUtl) iK 

LCI, 7, 16 

SC»7i$L 
"CMOlOnfUf 5J_ 

8,S FAKE" I 

DRZ{BU,64), 1 

LVI ,$14,SQ2EIG 

SlCtS DISIC 

B,S DISP 

"LVt~8,S~R£T_*C_($_l2)_" 
~SC,7, l.C($13) 

B,0.0( $8) 

L(BU, 18),SCW.28U13),55-SDD 

CMOCOC(BUil),S HS ECH 

LX.C^S CCw($13) 

BZXCZ.K DISK" £ 



-IF SO, NOP ENTRY 
-RESET CS QUEUE 
-FAKE CS 



-LOAD ERROR CODE AND 



-ORIGINAL COUNT TO ACC 



-TEST IF FINAL CW COUNT IS ZERO 



EB000356 
EB000357 
EB000358 
E 800 03 59 
E BOO 0360" 
EBG00 361 
EB000362 
EB000363 
EB000364 
EB000364 
"EB000365" 
EB000366 
EB000367 
EB000368 
EB000369 
EB00037C_ 
E BO 00 371 



It* 
19* 
2C* 
21* 

22* 
23* 
"24* 
25* 
26* 
27* 
2£* 
29 * 
3C* 



,00 

,00 

40 

40 

,4C~ 



216321 

216322 

216322, 

216323, 

2163241 

216325.40" 

216326.40 

216327.00 

216330. OC 

216330. 4C 

216331^00" 

216332.00 



COCCOO.CC 
216323.76 

C0CC1C.C0 
CO C COO. 40 
CCClCCC .4 
00CC06.CC 
215746, 
COCCOO, 
C00C03. 
000004, 



50 
40 
CO 
CI 



215746.50 



80 
C2 
80 
8A 
8A 
"80 
00 
8A 
ID 
ID 
"CO 



000000.23 10 



000000.22 
022040. 2C 
022040. 20 
022040.20 



BO 
10 
DC 
CC" 



KF{ EU,64),$Z 

BAE, $+1.32 

M+l(BU,64), 8.0 

+ , S ARC ADU10),64 -ADD 

S tTEU , 18 ) , S ARC AC { % 1C ) , 64-SUM 



-$L 
-IS 
-IF 
-IF 



HOLDS NO OF ARCS WHICH ECUALS 

NO CF ARCS AN INTEGER 

YES, BRANCH 

NOT, ROUND UP BY ONE 

THIS TO S ARC AD AND RETURN THE 

TO STORAGE "IN 



022000.36 FO 



KDISKL 



ST(BU,18)» SCUARC($13) ,64 
B,K GATE 

CMlllKBUtlS) ,SARCAC($ 10) -FORCE LOCATE 
LX,C,S CW($13) 
SX L C,S CCMS13) 
"B,_K GATE 
XW,C 



S ARC AD AND S CU ARC 



ON NEXT I/O 



EB0003/2 
EB000373 
EB000374 
EB000375 
EB000376 
"EQ0003/7" 
EB0003?8 
EB000379 
EB000380 
EB000381 
EB000381 
EB000382" 
EB'000383 



CCCOCC.OO+ 000 000000 000000 



K RECEP 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK CCC54C41 PUNID 11D11MCP CARD ID ECCOCOC1 
~UNE~ "LOCATION B I MR Y~ CUT PUT MMt 



CIST. OF 3/C1 
STATEMENT 



3/01 



PAGE NUMBER 130 
L CC A tTgn" " 



6 

o: 
ll 
st 

El 

SI 
91 
L\ 
SI 
61 
OS 



1* 
2* 

2 * 

* * 



«««««« 



— ****** 



216333 
216333 



.00 

". c c" 



*»•«* MASKABLE INTE 
SLC,$ 



RRUPTS ***** 



fcCOOOOOl 
EC000002 
EC000003 
ECC000G4 



5* 
I* 
1 * 

E* 

S* 

1C* 



C00C03. 
C0C023. 
215231. 
216336. 
C0CC21. 

ooccoc. 



cc" 

47 
07 
37 

03 



30 

bO" 

AO 

C6 

70 

30 



215230_.CC_ A_C_ 
215250.32 AO 



W LDDE 



TI,C,3.C,STLR 

TI, 13,19.C,STLR+16. 

BE,STLR+1.32( .26,2) 

B0PZ,$.32 

SR, 15, $1 

SV_1_0.C_ 



-SAVE LR$8C THRU $2_ 
~ -SAVE LR $3 THRU $15 
1111C1 -STM(U) ,STLR+i.O - SAVE $MR. 
-FOR LASL LRL 

-SETS XVZ INDICATOR ON IF NO PTOE 



EC0Q00G5 
EC000006 
EC000007 
EC000008 
EC000009 
EC000010 



216334 
216335 
216335 
216336 
216336 



.CC 
.CC 
.40 
.00 
.40 



11* 

12* 
12* 
14* 
15* 
U* 

n* 



21 §3 1] 
216337 
216340 
216341 
216341 
216342 
216342 



•AQ_ 

.40 
.00 
.CO 
.40 

.00_ 
.40 



2_1„634 1. 
215163. 
216371. 
216344. 
215230. 
2 16372 ._ 
215230. 



_l 

03 

25 
50 
42 
32 
C2 



40 



U L 

80 
GO 
90 
42 
90 



001000.36 FO 



WCCNA 



WJTST 



BZX_Z__JTST 

LVI,$1,SFPTE 

CM1111(BU,1),WC0NY.21 

B,WCON+1.0 

KVi $l t SLOWER 

J3XL_WJERR__ 

KV,$1, SUPPER 



-SELECT MCP TOE 



Ecogooii 

EC000012 
EC000013 
EC000014 
EC000015 
EC000015 
EC000016 



It* 
IS* 
2C* 
21* 
22* 



216343 
216343 
216344 
216345 
216345 



.CO 
.40 
.40 
.CC 
.40 * 



216372. 
216371. 
216371. 
215104. 
00CC22. 



32 40 
25 80 
44 30 

05 00 
14 80 



001000. CC FO 



006064.20 50 



BZXL,WJERR 
WCCN CM0G00(BU,1) ,WC0NY.21 
LV,$2,WINT0R 
V-If 2,SIPT+1.0 
L(BU,6),$2+. 12,-24 



•SELECT PP TOE 



23* 
24* 
25* 
26* 
27* 
2c» 



216346 
216347 
216347 
216350 
216351 
216352 



•40 

.00 
.40 
.00 
.00 
.CO 



_cp_cc_i_o_. 

000022. 
60CC00. 
000003. 
C0CC01. 
216356. 



00 
3 
C7 
GO 
CO 
43 



30 
OB 
83 

80 
80 



216337.74 00 
422064.20 10 
006064.12 FC 



W CCNE 



LX L G L 
SV, 1, 
LVS,3 
BZB.3 
+ HBU 

sf( eu 



$L 

$2 

,$C,$1 
.0U3), 
,18), 1. 
,6),WC0 



-TYPE OF INTERRUPT AS FULL WORD 
-_S_H_I FT _I_N_ T TYPE TC_BIT FIELD___ 
-INT TYPE L IN BIT FIELD 0F_$0 
-ADDRESS OF TOE 

-PREPARE TO CHECK PATTERN BIT 
-STANDARD FIXUP IF PATTERN BIT IS 
-DEVELOP FIELD LENGTH 
-24-SET FIELD LENGTH 



2i* 
3C* 
31* 
32* 

32* 

34* 



216353, 
216354, 
216355, 
216356. 
216357, 
216357, 



cc 

00 
00 

cc 
cc 

40 



_o_o_o_i_o_o_. 

216356. 
215166. 

000003. 
000007. 
C0CC20. 



C_C_ _8_0_ 
54 80 
04 80 
GO 81 
40 30 
CO 80 



422064.30 10 
007064.12 FO 
054010.20 50 
000000. C3 70 



______ 

SFlriU 
L(BU, 
CTOCO 
LV,C, 
V + ,C, 



li81l§4 

,7),WCC 

44),WPA 

l(BU,0) 

7.32 

$0 



WCONA 

0,-24 

NV + .35,_ 

. , - 2 V ~ ~ r_P_E_V_E_LpP_ A_ F SE f I 

NV+. 44,-24 -SET OFFSET 

TT+.4,16 -MASK FOR PATTERN 

t3.0U1) -SEt ALL ONES COUNT 



EC000016 
EC000017 
EC000018 
EC000019 
EC000020 
.EC000021 
EC000022 
EC000023 
EC000024 
EC000025 
EC000026 



EC000027 

EC000023" 

EC0Q0029 

£0000030 

EC000031 

EC0000J2 



W CONV 



:PAV_E_L_c_p__tj_rr 

•CtVELOP EXIT 



ADDRESS 

"address" 



35* 
36* 
37* 
36* 
39* 
4C* 



216360, 

216360 

216361 

216361, 

216362, 

216363 



00 
4C 
OC 
40 
40 
40 



50 C COO. 
00CC03. 
216371. 
216371. 
215001. 
215265. 



Ql_ A<_ 
CI 05 

01 CO 

25 80 

13 80 

CC 30 



LVS,0 
V + 1,0 
SVA,0 
BB,WC 
CM111 
L\/,$0 



,$C, $2 

,3.0 

,WCONY 

0NY.21, 

1(BU,1) 

, S T I C 



EC000033 
EC0000 34 
EC000035 
EC0C0036 
EC000037 
EC000038 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



216363.74 02 
001000.36 FO 



$+2.0 
,SSPFIX 



•EXIT ADDRESS IN $0 

-SET EXIT ADDRESS 

-IF MCP FIXUP 
-PUT PP IN SPECIAL 



FIXUP 



_4_L*_ 
42* 
42* 
44* 
45* 
46* 



216364, 

216364, 

216365, 

216366 

216367 

21637C, 



CC 
4C 
CO 
GC 
CC 
CO 



AQAQPA* 

215231. 
215240. 
215234. 
215373. 
CCCC13. 



Ql Qi 

44 AO 

00 80 

00 80 

OC 80 

22 00 



000001.04 Al 
000007.32 AC 
000014.02 AO 



S_VA,_0 
LFT(U 
TI,2, 
TI, 13 
TI,1, 
ZtSIN 



_Q.oui 

),STLR+ 
STLR+8. 
.STLR+4 

SLRMCP+ 
C 



1.0 

, 1 . C ( $ 

.0,7. C 

9.0, IMA 



1) 



SK 



-RESTORE $MR 



-RESTORE USED LR 



EC000039 
EC000040 
EC000041 
EC000042 
EC000043 
EC000044 



47* 
46* 
49* 
5C* 
51* 
52* 



216370. 
216371. 
215166. 
216371, 
216372. 
216 3 72 . 
2163 73^ 
216371. 



_»A_ 

00 
00 + 
40 
00 
4C 



__ 2_16371_ 

216371. 

+OOCCCO 
CCCCCC.OO 

C0C407. 
__2.1_7_.51. 
__217372_ 

+CCCG0C 



11_46 

CC CO 

CC 

+ 

3 5 01 

4C 80 



N ,100,04 



W CONY 
WPATT 
WINTER 
WJERR 



BEXEZ 
BE, $ 
SYN,S 
\/F,C 
LVI ,* 
S I C , S 



♦$±•32 

-T 
FPTE+3. 



FIXUP 




ENABLED IF SPEC I AL , DI SABLED IF STANDARD 
- INTERRUPT PRESERVATION WORD 



14,SPT0tX 
QISIC 
ISP 
INTCR 



EC000045 
EC000046 
EC000047 
EC000048 
EC000049 
EC000050 



52? 
54* 



_CA_ 
40 + 



ic_oo 

CC 



8 ,31 ,01 



SINTC 



_B, SD 

SYN,W 



EC000050 
EC000051 



wai 



TIME CLOCK 0CC54C41 

"line""' l a c atIcn 



PUNID 11C11MCP CARD IC EDOOOOOl CIST. OF 3/C1 

B I" N A R Y~ C U TPLT " ~ "K~A~ ME """STATE M EN T~ 



3/01 



page number 131 
location 



1* 
2 * 
2 * 

i * 



— ** * * 



****** 

* ** 

****** 



f * 
~6* 
1* 
t* 
c ,* 
IC* 



216373 
216373 



4C 
4C~ 



SLC 



** * 
* *« 
** * 



********************************************************* 
************** STANDARD FIXUPS ******************** 

*********************** ** ******************************** 



EDOOOOOl 
ED000002 
ED000003 
EC000004 



0CCCC0.3C CO 

216406. co~8o" 

216406. IC CO 

216406.00 80 
2164C6.1C CO 



CNO 
SIC 
B,Y 
( IQ 
SIC 
B,Y 



P 

,YM 

MFL 

SX) 

,YM 

PEL 



ED000005 

EDO 00006" 

ED000007 

EC000008 

ED000009 

ED000010 



216374 

216374 

216375, 

216376. 

216376, 



00 
4C 
CO 
CO 
40 



YFXMK 



YFXIK 



FL 

DC(BU), 
FL 



MK X 



11* 
12i 
12* 
14* 
15* 
16* 



216377 

2164CC" 

21640C 

216401 

216402. 

216402, 



C_C_ 

CO 

4C 

CC 

CC 

4C 



2164C6.CC 8 OP 
216406.10 00 

216406. CO 80 
216406.10 00 



YFXIJ 



YFXEK 



( IQ 
"SIC 
B,Y 
( IC 
SIC 
B,Y 



SX) 
,YM 
MFL 
SX) 

,YM 
MFL 



DC|BU), 
FL 

CC(BU), 
FL 



IK X 



IJ X 



ED000011 
"EC000012" 
EC000013 
ED000014 
ED000015 
EC000016 



II* 
IE* 
IS* 
2C* 
21* 
22* 
"22*" 
"24* 
25* 
26* 
27* 
2fc* 
2S* 



216403^ 
216404, 
216404, 
2164C5. 
2164C6. 
216407. 
216407^ 
21641C\ 
21641C. 
216411. 
216411, 

216412^, 
216417^ 
216425. 
216430. 
216430. 
216431. 



CC 

oc" 

4C 

00 

00 

CC 

AC 

CO" 

40 

CC 

AC 

W 

7C~ 

CC 
00 
40 
CC 



( IQ 
SIC 
B,Y 
( 10 
TI, 
SIC 

"bVs 
,y~m 

,10 
BCi 
BE, 
CNO 
TlQ 



SX) 
,YM 
MFL 
SX) 

li* 

,SC 
COM 
FCM 



CC(BU) , 
FL" 

ccteu), 

,YMFCM 

CfIC 
M 



EK X 



ED000017 
EDO 000 lb" 
ED000019 
ED000020 
ED000021 
ED000022 
"ED000023" 
"ED000024" 
E0000025 
ED000026 
ED0C0027 
ECC00028 
EDC00029 



216406. CC 80 
216406.10 CO 



216406.00 
2 1 54 70. 4 C 
2 154 7^0 . 10 
216412.CC 
C0CC12.C0 
216411.04 
216411.40 



80 
80 
00 
80 
80 
00 
00 



216412.02 AO 



YFXCPU 



YMFL 



CPLS X 



YMFIC 
YmTCM 



$ 
$ 
P 
S$)CC( 



3C* 
31* 
32* 

32* 
34* 



C0CC03.C0 
216457.40 80 
216446. IC CO 



YMFCF 
YFXEKJ 



( IC 
DR( 
SIC 
B,Y 

(AX 



S$)CC( 
N) , f 3) 
,YPREL 
FREFX 
)DD(BU 



BU), _JNTLRRJJJ > T._jr_HL_N£XT INSTRUCTION 1 S A BE: 
BUJ","TQ THE INTERRUPTED ADDRESS." $ 



,32), EKJX 
BU, 32), EKJX 



ED000030 
EC0C0031 
ED000032 
ED000033 
ED000034 



3J* 
36* 
3 7* 
3fc* 

3S* 
4C* 



216431 

216432: 

216432 

216433 

216433, 

216434, 



40 

00" 

40 

CC 

40 

00 



(IQ 
SIC" 
B,Y 
(AX 
( IC 
SIC 



SX)DC( 

tYPREL 

FREFX 

)DD(BU 

SX)CC( 

,YPR£L 



ECO 000 3 5 
ED000036 
ED000037 
ED000038 
ED000039 
ED000040 



20 
19 
18 
17 
16 
15 
U 
13 
12 
11 
10 
9 
8 
7 
6 
5 
i. 
3 
2 
1 



216457.40 80 
216446.10 CO 



_2_1_64_5_7_._4 80 
216446. IC CC 



YFXUNR 



YFXCBJ 



,32),UNRJX 
BU,32) ,LNRJX 



41* 
42* 
42* 
44* 
45* 
46* 



47* 

4£* 



216434 

216435^ 

216435. 

216436, 

216436, 

216437, 

216437". 

216440. 



40 

CC" 

40 

00 

40 

CC 

40 

CO" 



216457.40 80 
216446.10 CO 



YFXOP 



B,Y 
(AX 
( IQ 
SIC 
B,Y 
(AX 
"( IQ 
SIC 



PREFX 

)0D("BU 

SX)CD( 

,YPREL 

FREFX 

)DD(BU 



sxjoicf 

,YPREL 



,32),CBJ X 
BU,32), CBJX 



,32), OP X 
BU,32), OP X 



ED000041 
ED000042 
EC000043 
ED000044 
ED000045 
EDC00046 

"ec6ooo4_/~ 

E CCO 0048" 



216457.40 80 



YFXAC 



wai 





TIME CLOCK CCC54C41 PUNID 


11D11MCP 




:ard 


IC EC00C050 HIST. OF 3/C1 


3/01 PAGE NUMBER 132 






LIN 


E LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 216440 






1* 
2 * 
2 * 
£ * 


216440.40 
216441. CC 
216441. 4C 
216442. CC 


216446.10 
216457.40 


CO 
80 








YFXUSA 


B, YPREFX 

( AX)CD{BU,32), AC X 

( ICiSX)DC(8U,32), AD X 

SICYPREL 




ED000050 
ED000051 
ED000052 
ED000053 




E* 


216442. 4C 


216446. 1C 


CO 










B, YPREFX 




ED000054 




6* 
7* 
k* 
9* 
1C* 


216443. CC * 
216443.40 
216444.00 
216444.40 
216445. CC 


216457.40 
216446.10 


80 
CO 








YFXCS 


(AX)0D(BU,32), USAX 
<IGSX)DC{BU,32), USAX 
SICYPREL 
E, YPREFX 
(AX)DD{BU,32), DS X 




ED000055 
ED000056 
ED000057 
ED000058 
LD000059 




11* 


216445.40 














UQSX)DDIBU,32) , DS X 




ED000060 
ED000061 
ED000062 
ED000063 
ED000064 
ED000065 




12* 
13* 
14* 
15* 
16* 


216446. CC 
216447. CC 
216450. CC 
216451.00 
216452. CO 


215001.04 
C00CG3.CQ 
000023.00 
215373. CO 
216604.02 


80 
80 
80 
80 
30 


216453 

215324. 

215344 

000014. 


.34 
.CO 
.32 
.02 


02 
AC 
AC 
AO 


YPREFX 


BB,SL,$+5.0 

TI, 16,3.0,SLRBU 

TI, 13, 19.CSLRBU+16. 

TI, 1,SLRMCP+9.C,$MASK 

LV,$1,YSFIC 






17* 


216452. 4C 


215361. C3 


30 










SV t $ltSICBU 




ED000066 




18* 
19* 
2C* 
21* 
22* 


216453. CC 
216453.40 
216454.00 
216454.40 
216455. CC 


216425. C3 
216454.03 
216454.44 
216455.07 

216455. 5C 


10 
C6 
46 
C6 
46 










SX,$1,YMFCF 
6UNRJ2, $.32 
BCBJ Z,$.32 
BGP Z,$.32 
BAD Z,$.32 




ED000067 
ED000068 
ED000069 
ED000070 
EDOC0071 




23* 


216455.40 


216456.11 


46 










BEXE Z,$.32 




ED000072 




24* 
25* 
26* 
27* 

2£* 


216456.00 
216456. 40 * 
216457. CC 
216457.40 
216460.40 


216456.50 
216457.11 
216457.52 
216457. 40 
216513. 10 


C6 
C6 
C6 

80 
80 


OCOOOC, 
040020, 


.20 
.20 


50 
DO 


YPREL 


BUSAZ ,$.32 

BDS 1 ,$.32 

BIF Z ,*.32 

L(BU),$ -LOAD 

ST{fiU,32),YPPEM+.8,32 


IDENTIFYING INITIALS. 


F0000073 
ED000074 
ED000075 
ED000076 
ED000077 




29* 


216461. 4C 


216523. CO 


8 


040000. 


2C 


CC 




ST(8U,32),YMCPIN 




ED000078 




3C* 
31* 
32* 
33* 
34* 


216462.40 
216463.00 
216463.40 
216464. 4C 

216465.40 


C0CC00.C3 
C00C1O.C3 
216604.22 
166C00.CC 
216604. CC 


01 
02 
80 
80 
80 


001001, 
410004. 

022310. 


2G 

0*6 
06 


50 
7C 
70 




LVI,$1,G 

LCI, $1,8 

L(BU, 1),YSFIC+.18,2 

LFUBU, 8), (2)00111011,8 

LF(BU, 18,3) ,YSFIC,16 


-CONVERT IC TO BCC 


ED000079 
ED000080 
ED000081 
ED000082 
ED0C0083 




35* 


216466.40 


COCCCO.CO 


80 


010000, 


13 


71 


YSFCL2 


CT0101(BU,8) ,0,0($1) 




ED000084 


20 
19 
18 


36* 
37* 

36* 
39* 
4C* 


216467.40 
216470. CC ' 
216471. CO 
216471.40 

216472.00 * 


216471.34 

024000.00 
C0CGC4.C3 
216466.42 
216516. 4C 


CO 
80 
05 
48 
80 


410000, 

ocoooo. 


06 

20 


71 

DC 




BZRZ,t+1.32 

LFI(BU,8),{2)CCCC1C10,0{$1) 

V+I,$1,4.G 

CB,$1,YSFCL2 

STtBU), YPEIC 




ED000085 
ED000086 
ED000087 
ED000088 
ED000089 


17 


41* 


216473. CC 


215001. C4 


80 


216500. 


74 


CE 




B81,SL,YMCPPC 




ED000090 


16 
15 

14 
13 
12 


42* 
43* 

44* 
45* 
46* 


2164 74. CC 
216474.40 
216475. CC 
216475. 40 
216476. CO 


215571. CC 
215570. 10 
0001C4.CC 
215224. C6 

O00CC3.C7 


8 
00 
80 
10 
10 










SICSPRIMR 

B,SPRIME 

,DAEECJ 

LX, $3,YSFBCR 

SX,$3,3.C 


-RESET BOUNDARY CONTROL. 


ED000091 
ED000092 
ED000093 
ED000094 
ED000095 


11 


4?* 


216476.40 


224C52.00 


30 










SICZSPLP9 


-KRITE MESSAGE ON SPOOL TAPE. 


LD000096 


10 
9 
8 

7 
6 


4£ * 
49* 
5C* 


21647 7. CC 
216477. 40 

216500. CC 


224046.50 
216513. CO 

C0CC05.00 


CO 

80 
80 










B,ZSPLPR 

,YPPEM 

,5.0 




ED000097 
ED000098 
ED000099 


5 




4 
3 

2 
1 


.. 























wai 





IIME CLOCK 0CC54C41 PUNID 


11C11MCP CARD 


% 

IC ED000101 CIST. OF 3/C1 3/01 PAGE NUMBER 133 






flKE LOCATION 


BINARY OUTPUT 


NAME 


STATEMENT LOCATION 216500 






1* 216500.40 


215006.0? 


30 




YMCPPE 


LV,$1,SYCCCH -GET ABSOLUTE ADDRESSES FOR 


ED000101 




2* 216501.00 


000000.00 


81 


000000.33 00 




REL(SE0P)>0($1) -CLEAR BOTH CHANNELS. 


ED000102 




2* 216502. CC 


216426. CO 


80 


0000G0.36 FO 




CMlllKBUt 64),YMFCF+1.0 


ED000103 




'* 216503.00 


216604. CO 


80 


025300. C6 70 




LF(BU f 21,3), YSFIC -SET UP INT. ADDRESS FCR 


ED000104 




f* 216504.00 


216426. CO 


80 


034400.12 FO 




SF( KU,28,4) f YMFCF+1.0 -CONSOLE LIGHTS. 


ED000105 




6* 216505.00 * 


CCCCCO.OO 


81 


231363.21 00 




CCW,C( $1) ,YUXSAV 


ED000106 




1* 216506.00 


231363.30 


80 


216505.34 02 




BE, YUXSAV+.24,$-l.C 


ED000107 




£* 216507.00 


COCCOO.CO 


81 


216512.13 00 




W(SEOP) f 0(*l) .YMCPCta 


ED000108 




9* 216510.00 


216510.04 


00 




YMCPHP 


BD, YMCPHP 


ED000109 




1C» 216511.00 


216521.00+ 1 


DOO 


C00007 OCCCOC 


YMCPC2 


C*, YMCPCM, 7,0 


ED000110 




11* 216512. CC 


216425.00+ 


ICO 


000003 216511 


YMCPC* 


C«(CCR) ,YMFCf ,3,YMCPC2 


ED0001U 




12* 216513.00 








YPPEM 


(AX)OD(BU),- INTERRUPT AT LOCATION X 


ED000ll2~" 1 




12* 216516.40 








YPE1C 


(AX)CD(BU), X 


ED000113 




14* 216520.40 


C0C000.3C 


CO 






CNCP 


ED000114 




15* 216521. CC 






375 


YMCPCM 


DD(8U, 8), (2)11111101 


ED000115 




16* 216521.10 * 










( IQSX)DD(BU) ,«CP ERROR-... X 


ED000116 




1<* 216523. CO 








YMCPIN 


( IQSX)CC(BU), INTERRUPT AT ABOVE LCCATICN. X 


CD000117 




1£* 216530.00 


21734 3. 10 


CO 




YFXTS 


B,WRAM 


ED000118 




IS* 216530. 4C 


217343. 10 


GO 




YEXEFX 


B,wRAM 


ED000119 




2C* 216531.00 


215230. CO AO 


215324.00 AO 


YMSF 


TI, 16,STLR, SLRBU 


ED000120 




21* 216532.00 


215250.00 


80 


215344.34 AO 




TI, 14,STLR+16.,SLRBU + 16. 


ED000121 




22* 216533.00 


COCCCO.OC 


81 


040000.20 50 




L( BU,32) ,0( $1) -LCAD IDENTIFYING INITIALS-... 


ED000122 




22* 216534. CC * 


216555.20 


80 


040000. 20 CC 




ST(BU,32) ,YMIMIN+.16 -STORE IN SPOOL MESSAGE. 


"E DOO 01 23 ! 




24* 216535.00 


215224.02 


10 






LX,$1,YSF8CR -SET NEW BOUNDARY CCNTRCL 


ED000124 




25* 216535.40 


C0CC03.C3 


10 






SX, $1,3.0 


ED000125 




26* 216536.00 


215265.22 


80 


001001.20 5G 




L ( EU, 1),STIC + .18, 2 -CCNVERT IC TC BCD. 


ED000126 




27* 216537.00 


166000. CC 


80 


410004. C6 70 




LFI (BU, 8), (2)00111011,8 


ED000127 




2£* 21654C.C0 


215265. CG 


80 


022310. C6 7C 




LF(BU, 18,3) , STIC, 16 


EC000128 




29* 216541.00 


CGCCC0.C3 


01 






LVIf *1,C 


E0000129 1 




3C* 216541.40 


CCCC10.C3 


C2 






L C I , $ 1 , 8 


ED000130 




31* 216542.00 


OOCOCO.CO 


80 


010000.13 71 


YSFCL1 


CT0101(BU,8),G,0($1) 


ED000131 




32* 216543.00 


216544.74 


CO 






BZRZ,$+1.32 


ED000132 




33* 216543.40 


024000.00 


80 


410000. C6 71 




LFI (BU.8) t (2)000C101C,0($1) 


ED000133 




34* 216544.40 


C0CC04.C3 


05 






V + I , % 1 , 4 . 


ED000134 




35* 216545.00 


216542. C2 


48 






CB, $1,YSFCL1 


ED000135 




36* 216545.40 


216563.70 


80 


000000.20 CC 




ST (BU), YMIMIC 


EC000136 




37* 216546.40 


215466.42 


50 






LC,$1,YMISC0 -GET CURRENT MASKABLE INTERRUPT 


ED000137 


20 


3E* 216547. CC 


00C001.C3 


08 






C-I, $1,1.0 -COUNT. IF COUNT REACHES ZERO, P.P. IS 


ED000138 


19 


39* 216547.40 


215466.43 


50 






SC,$1,YMISC0 -TC BE KICKED OFF THE MACHINE 


ED000139 


18 


4C* 216550. CC * 


216553. 70 


42 






BXCZ, YTMMI 


ED000140 


17 


41* 21655C.40 


215001.04 


80 


001000.36 FC 




CM111 l(BU,l),SL 


ED000141 ] 


16 


42* 216551.40 


224C52.LG 


80 






SICZSPLP9 


ED0G0142 


IS 


42* 216552.00 


224046. 5C 


GO 






8,ZSPLPR 


ED000143 


14 


44* 216552.40 


216555. CO 


80 






, YMIMIN 


ED000144 


13 


45* 216553.00 


C0C010.00 


80 






,8.C 


ED000145 


12 


46* 216553.40 


000403.35 


01 




YTMMI 


LVI,$14,STMMI 


ED000146 


11 


4/* 216554.00 


217372. 10 


00 






B,SCISP 


£0000147 
ED000148 H 


10 


4€* 216554.40 


00CC0O.30 


00 






CNOP 


9 


49* 216555.00 








YMIMIN 


(AX)DC(BU),- INTERRUPT-... INSTRUCTION COUNTER X 


ED000149 


8 


5C* 216562. 20 










(AX)DD(BU), CONTENTS - X 


ED000150 


7 
6 


51* 216563.70 * 








YMIMIC 


(AX)DD(BU), X 


ED000151 


5 
















4 
3 
2 

1 




ft 











wax 



T IME CLOCK 0C054C41 



PUNID 11D11MCP 



CARD ID ED000153 



CIST. OF 3/01 



3/01 



PAGE NUMBER 134 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



216565 



1* 
2 * 

1 * 
i* 



216565 
216566. 
216566 
216567 



4C 

CO 
40 

cc 



00CCCO.3C CO 



CNGP 
YINDF ( AA)DC(BU,32 J 
YINLC ( AA)CC{BU,32) 
YINPF (AA)DD(BU,32) 



UF 
LC 
PF 



ED000153 
£0000154 
ED000155 
ED000156 



- * 
~_ _ 

.* 

. * 

1C* 



216567, 
216 57C. 
216570, 
216571, 
216571, 
216572, 



_____ 

CC 

AC 

CC 

40 

00 



Y_1_I_Z C 
~Y I I. I~R 
YINLS 
YINPSH 
YINXPF 
Y1NXP0 



( AA)DD(BU,32) 



ZC A 



ED000157 
"EC000158" 
ED000159 
ED000160 
ED000161 
ED000162 
EC000163 
ED000164 
FD000165 
ED000166 
ED000167 
E DOC 0168 
EDC00169 



(AA)DD(EU,32) 
( AA)CC(BU,32) 
( AA)DD(EU,32) 
(AA)DD(BU,32) 
LAAlD0iBy,32_J 



IR A 
LS A 
PSFA 
XPFPA 
XPOA 



LI* 
12* 
13* 
14* 
15* 
16* 



2165 7 2 

2165 73 

216573 

216574, 

216574 

216575, 



4C_ 

CC 

40 

CO 

4C 

CC 



_Y_I_NX P_H 
YINXPL 
YINZM 
YINRU 
YINTF 
YINUF 



( AA)CC(BU,32) 



XPFA 



(AA)DD(BU,32) 
(AA)DD(BU,32) 
( AA)DD(BU,32) 
( AA)CC(BU,32) 
(_AA)DDiBU,32) 



XPLA 
ZM A 
RU A 
TF A 

UF A 



LI* 
ie* 
is* 

2C* 
21* 
22* 



2_1 65 7_5 

216576, 

216576 

216577, 

216577, 

216600. 



J. C 

CO 

4C 

CO 
4 
CO 



YINXF 
YINBTR 
YINDTR 
YINPGO 

YINPG1 



._.AA)DC(BU,32J 



VF A 



( AA) 
(AA) 
(AA) 
( AA) 
(AA) 



00 (BU 
CC(EU 
DDfBU 

DOIBU 
DDffiU 



,32) 
,32) 
,32) 
,32) 
,32) 



XF A 
BTRA 
DTRA 
PGOA 
PG1A 



ED000170 
ED000171 
ED000172 
ED000173 
EDOOOl 74 



23* 
2** 
25* 
26* 
27* 
2E* 



216600 

216601, 

2166C1. 

216602 

216602 

2166C3, 



4Q 

CC 
40 
00 
40 
CC 



„VJA_P_G2_ 

YINPG3 

YINPG4 

YINPG5 

YINPG6 

YINXPU 



(_AA_ 
(A~A) 
(AA) 
( AA) 
( AA) 
(AA) 



DDiEU 
OD(EU 
DD(BU 
DD(BU 

CD(BU 
DD(BU 



,32) 
,32) 
,32) 
,32) 
,32) 
,32) 



PG2A 
PG3A 
PG4A 
PG5A 
PG6A 
XPUA 



£0000175 
EC00C176 
EU000177 
ED000L78 
ED000179 
E00C018G 



2A* 
3C* 
31* 
32* 
33* 
34* 



2166C3_4C _C CAQ.QP_._3_Q. 

216604. CO CCCCCC.OC+ 
215224. 0C+ +00C00GCC 
231363. 00 + +O0C0C0CO 



CO 



-QNOP 

~VF,C 

SYN, 

SYN, 

* ** ■» 



ED000181 

ED0001i.2~ 

ED000183 

EC000184 

ED000185 

ED000186 



B ,31 ,01 
BU, 100,10 



YSFIC 

YSFBCR 

YSFLGR 



SBNDRS 
YUXSAV 
* SPECIAL 



INTERRUPT ROUTINE FOR TS ***** 



JA* 

36* 
37* 

38* 
39* 
4C* 



21660 
2166C 
21660 
21660 
21660 
21661 



_»j__»Q 
5.40 
6.40 
7.CC 
7.40 
C.40 



0A0CC3 
C0CC23 
215231 
216607 
215001 
215C01 



•AQ. 

.CC 

.47 

.47 

.C4 

. 13 



80 
SO 
AO 
C6 
80 
8 



215230. CC AO 
215250.32 AO 



216617.34 02 
216615.74 2 
216335.34 00 



JWLODE 



_L_tA _.•__ 
TI.13, 1 
BE,STLR 
BGPZ,$+ 
BB,SL, J 
B8,SSPFIX,JWLQD4 -IF NGfc IN SPECIAL FIXUP 



•QlSTLR^ 
.y.Ci STLR+16.C 
i+1.32(.26,2)llllCl 

.32 

I..LGD3 



ED000187 
EC0GQ188 
ED000189 
ED000190 
ED000191 
EC000192 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



-STM(U),STLR+1.0 SAVE $MR 
-FOR LASL LRL 
-BR. IF MCP LEVEL 



Alt 
42* 
4 i * 
44* 
45* 
46* 



21661 
21661 
21661 
21661 
21661 
21661 



_._. _._?__. 

2.4C * 

3.CC 

3.4C 

4.00 
5.00 



_2JAQ2_1 
CCCC21 
OOOCCO 
216335 
215276 
216242 



•_ _. I AQ 

.37 70 
.C3 30 
. 31 40 

.04 80 
.1C CO 



__._.B.tS PR 
SR,$15, 
SV,$1,0 
BZXVZ,W 
GMlllK 
B,KSUPP 



QQ_ + SAS_V<LC0_E+___._0_-_I_F__NOT AUTCSTACKEL) 
$1 



ED000193 

ED000194" 

ED000195 

ED000196 

ED00019/ 

ED000198 



001000.36 FC 

obibbo~.~3~6~W 



JWL0D2 

Tw 7 LC 7 D4 



LCDE+2.0 

BU, 1) , SLRPP + 8.4 



-LET HIM HAVE IT 
-PUT TS IN PP BUFFER 



47* 
46* 
4.* 
5C* 



21661 
21661 
21661 
21662 



__•___)_ 
6. 40 
7.0C 
O.OC 



2JL.5C01, 
216242, 
215334, 
216242, 



14 

10 
04 
1C 



8Q 
00 

80 
GO 



QML111I 
6,KSUPP 
GMlllK 
B.KSUPP 



B U , 1 ) t S T S BAT ~ S A V E _ T S _ WH J L E I_N_ _S_P _EC_I_Al-_ 

BU, i),SLRBU+8.4 -PUT TS IN BACKUP BUFFER 



ED000199 
EOOO .200 
ED000201 
E0000202 



001000.36 FO 



JWL0D3 



wai 



TIME CLOCK CC054C41 



PUMD 11D11MCP 



CARD ID EECOOOCl 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 135 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



1* 

2 * 

2 * 
l * 



— #*****#**•*****»*##** THE CGNCEPTCR ********************** 

— *****»****«****#*«3**»*e***«****************************************** 

-PCCNE1 IS THE ENTRY PT FROM RECEPTOR IF CS INTERRUPT ON 



EE000001 
EE0C0002 
EE0G0003 
EEQ00004 



t* 
E* 

9* 
1C* 



-ALONE. _ __ EE000005 

"- -p"CCN E2 IS THE ENTRY PT IF CS INTERRUP F IS~NOY "ON ALONE _ ANC~ ' EE000006 

-THE SETUP BIT IS ON. EE000007 

SLC,$ EE000008 

P CON El CM00QC(BU,3), S UNIT($1C) - SET UNIT NO ECUAL TO MCP IN CST EE000009 

LV,$2,C($10) -GET ADDR OF UST EE000010 



216620. 4C 
216620. 4C 
216621. AG 



COCCOO. 70 

c_c_cc_oq.q4 

CCCC00.47 



8A 
3 A 
82 



003000. CO FO 



11* 
12.* 
12* 
14* 
15* 
It* 



216622.00 



001000. GO FC 



CJ_0C00_B_,_)_S_SEL(*_2_)__ 

CM 1 1 1 i { BU , I ) , S SEL+1 . ( $2 ) 

LVt $11, S UN A{$1C) 

LV, $12, S UN A{$11) 

SVA,$14,WRESL1 

TI , l f WRESL1,SI0INS($12) 



-SELECT MCP UNIT 

-UNSELECT pp Unit 

-SELECT MCP UST 
-OBTAIN MCP UAT 

-PLACE RD INSTR IN UAT 



eeooooii 

EE600612" 

EE000013 
EE000014 
EE000015 
EEOC0016 



216623 

216624, 

216624, 

216625, 
216625, 



CC 

cc 

40 

00 
40 



CCCC01.47 
C0CCG0.26 
CCC0G0.3O 
216633.35 
216633. CO 



82 
3A 

3B 
DO 

80 



001000.36 FC 



000004. C2 AC 



P RENT 



11* 

IS* 

19* 
2C* 
21* 
22* 

2 4* 
25* 
26* 
27* 

2E* 



216626.40 
216627.40 
216630.40 
216631.4C 
216632.00 
2 16632. 4C 

216633. CO 
216634.CC 
216634. 40 
216635. CO 
216636.00 
216636. 4C 



co.ccqo_._32 

CCCC00.37 
COCOOO 
216644 
00CCC5 
COCCOO 
CCqCCO.CC 
216242. C 3 
221261. 10 



8A 

~8B~ 
88 
CI 
3C 
00 

8 A 

"01 
CO 



ooiqpo_.3_6_ 

001000.36 
001000.36 



FO 

FC" 

FC 



C M 1 1 1 1 ( B U _ 1 J _,_SC HO P ( $ 1 C )_,_0 
C M 1 1 1 1 ( B U , I ) , S S E f UP { $ 1 1 ) , 0" 
CM1111(BU,1) f SRC(Sll) ,0 
Ltfl ,$15,PCON£2 
SV,$15,SRETAC{$12) 
_CNO__ 
R_D,C_W_C_ 
L V I , $1,KSUPP 
B,MIOREJ 
CW,PTEMBF,13,WPCV* 

LVIftlt P EPGK 
LVI,$2, 4.0 



-CHAN OP CN 
-SET UP" ON 
-READ CN 



EE000017 
EE000018 
EE000019 
EE000020 
EE000021 
EE000022 
EE000023 
EE000024 
EE000025 
EE000026 
EE000027 
EE000028 



71 
37 
37 

iO 



216743. 00* 000 
217G24.C3 CI 
C0CCC4.C5 CI 



216635. CI CC 



C00015 216635 



WRESL1 



WPCW 
P EPGK 



29* 
~3C* 
31* 
32* 
32* 
34* 



21__37_CC 

216637.40" 

21664G.G0 

216640. 4C 

216641.00 

216641.40 



AL fc Al _«_ 5C _A°_ 
217C30.C3 CI 



Bi P_|R_R EX 

LvT,$l, PUK" 

LVI,$2,4.C 

SIC, S COM 

B , S COMM 

,0<*1) 



EE000029 
"EE000030" 
EE000031 
EE000032 
EE000032 
EE000033 



C0CG04, 
215470, 
215470, 

COCCOO, 



C5 
4C 
1C 

GO 



CI 
80 

00 
81 



P ERR EX 



IC 



35 * 
"36* 
37* 
3E* 
39* 
4C* 



216642. CO 
216642. 4C" 
216643. CO 
216643.40 
216644. CG 
216645. OC 



COCCOO. CC 



82 
"CO 
C6 
CO 
8B 
8B 



, U 2 ) 
" 3, K SUPP 
fiCSZ,PRENT 
B,PRENT 

CM0C00(BU,1),SSETUP{$11) 
CMOCOO(BU, 1),SRD($11) 



LEO 000 34 
"EEC 000 3 5 
EE000036 
EE000037 
EE000038 
FE000039 



20 
IS 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



216242, 
216624, 
216624, 

COCOOO, 
COCCOO, 



IC 
C6 
10 
37 
71 



001000. CC 
001000. CC 



FC 

FO 



P CON E2 



-SAFETY 
-SET UP 
-RD OFF 



FACTOR 

OFF 



4_* 
42* 
43* 
44* 
45* 
4£* 



216646. OC 
216647. CO" 
216650. GC 
216651. CC 

216652.00 



jC0JjC00^32 
215240. 11 
215240.12 
215240.15 

215240.11 

_c_4_c_c_cq._co" 

216735.36 



8A 

~ao 

80 

80 

80 
_0 
CO 



001000.CC FC 
216636.34 06 
216637.74 06 
216643.34 06 



choc qq l b u , 1 ) , s c hop ( $_ic_)_ _ 

BBZ ," STLR +8.9", P EPGK E 
BBZ,STLR+8.10,PERREX-1.C 
BBZ,STLR+8.13,PCCNE2-1.C 



-CHAN OP OFF _ 
-EPGK INTERRUPT" IS ON" 
-IF UK 
-IF CS 

r 

-LOAD I/O INDICATORS 



EE000040 
"EE000041" 
EE000042 
EE000043 
EE000044 
EE000045 



005031.20 
404031.63 



5C 
IC 



-PRET-kFOSE MESSAGE 
L(BU,5) ,STLR+8.9,5C 



WAS IT 



47* 216653.00 

4iE* 216654. CC 

49* 

5C* 216654.40 

51* 

52* 216655.40 



216745.77 80 216722.34 CC 
216746. CC 80 010000. C6 70 



KF I _ B U _ _ ) _ ( 2J CO CI ,51 

~8ZAE,G CDBOC 

BZB.P TEMBF+2.63,P PPRET 
C0011{B0,8),P TEMBF+3.0 



-COMPARE IF 0NLY*ECP*IN_3IC. IS ON EE000046 

: BRANCH IF *ECP*INDIC. IS NOT" EE000047 

-ON ALCNE EE000048 

-IF *END*CODE IN 3RD WORD GO TO EE000049 

-*PP* EE000050 

-LEADING 8BITS OF THE 4TH l*CRD EE000051 



52*_216656.4C 
54* 216657. 4C" 
5£* 21666C.CC 
5£* 216660.40 



iL^cqq.co 

216736.76 

00CCC0.26 
COCCOO. 30 



80 
C2~ 
3A 
3B 



410000.23 10 



K F I L B U » 8 ) , i 2 ) 111 1 1 11C 
BAE,P CBRET 
LV,S11,S LNA($1C) 
LV,$12,S UNA($11) 



'[S__J__ENp*CpOE_ 
: IF YES GC TO *DB* 
-SELECT*MCP*UNIT ST.TAB.ACDR. 
-0BTAIN*MCP*UNIT AREA TAB. ADDR, 



EE000052 
EE000053" 
EE00C054 
EE000055 



wai 



TIME CLOCK 0G054C41 



PUNID UC11MCP 



CARD IC EEC00C56 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 136 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



216661 



1* 216661. CC 
2* 216661.40 
2* 216662.00 
**_216663_.CC_ 
5* 216663. 4C 



217C63.CC 
217045. IC 
CCCC24.53 
216664.34 
CCCC10. 11 



80 
CO 
80 
C2 
CO 



003000. C7 7C 



SIC, G KONEC 

B, G ECIT -EDIT MESSAGE 
CT0Cll(eU,3), $4 + .43 - 

BRZ, l+l.C 
C+I,$4,8.C 



IS NO. OF CHARS. DIVISIBLE BY 8 



EE000056 
EE000056 
EE000057 
EE0000 58 
EE00Q059 



t* 


216664.00 


7* 




£* 


216665. CC 


c* 


216666. OC 



C0CC24.34 80 017043.60 50 



L(BU, 15), $4+. 28, 71 -PUT NO, 



OF FULL WDS. (TO BE TRANSFERRED) 
-INTC P CUT FOR G TRANF 



217106.40 
217012.13 



80 
Gl 



031040.12 FO 



CM010HBU.25), 
LVI,$5,GMIST0 



P OUT, 64 



iC*_216666_._40 C_0CCC0.11 OA J3 _ZPET KCI, i>4,C 



EE000060 
EE000061 
EE000062 
EE000063 
EE000064 



11* 216667 J .C_C_ 

12* 216667. 4C 

12* 216670.40 

14* 216671.40 

15* 216672.00 



_2_1_6703._32 
C0CC00.1C 
772C0O.OO 
216666. 76 

766000.00 



C2 

85 
80 
C2 

80 



BXE,_P_CRET 

LIV+I)(BU,8),.8U5) 

KFKBU, 8) ,(2)1111 11C1 

BAE,GZPET 

KFKBU, 8), (2)1111 1G11 



EE000065 
EEC00066 
EE00006/ 
EE000068 
EE000069 
EEOOOO/O 



110000. 2C 
410000.23 



50 
10 



410000.23 10 



-LGAO CHARACTER AT TYPED MESSAGE- 
-IS IT CARRIAGE RETURN CODE 

-IS IT A TAB CODE 



1 L *_ 21 66 J_3_.CC 2_16666 ._76 _C2 B AE _GZPET 



11* 
It* 
IS* 
2C* 
21* 
22* 



21667J3.4C 
216674.40 
216675. CC 
216676.CC 
216677. OC 
216677.40 



CO_CC_CO._CO 
216666. 76 
CCCCOO.CC 
226C00.C0 
216703.36 
CCCCC0.00 



80 
C2 
80 
80 
CO 
85 



410000.23 10 



KFnpy,8__ f (2JC __ 
BAL,GZPET 
ClllKBUf 1) 
KFI (BU,8), (2)C1GC 
BZAE.PMCRET 
_L(6U,_8),0($5) 
ClllKBUf 1) 



-IS IT A BLANK COCE 



EE000071 



001000.36 
410000.23 



70 
10 



1C11 



010000.20 50 



23* 
24* 
25* 
26* 
27* 
It * 



2!67C0_.4C_ 

216701.40 

2167C2.40 

2167C3.0C 

216703.40 

2167C4.C0 



_C_QC_C_C_0_._C0 
226CC0.C0 
216722.36 
C0CC10.C3 
215003. C2 
C0CCC0.72 



80 
80 
C2 
01 
BO 
31 



001000.36 
410000.23 



IC 

10 



-FCRCE UPPER CASE CHARACTER 
-IS IT A P CHARACTER 

-L CAD NEXT CHARACTER 
-FCRCE UPPER CASE 



EE000072 
EE000073 
EE000074 
EE000075 
EE0000 76 



EE000077 

BECCOC/8 

EE00Q079 

EE000080 

EE000081 

EECCC082 

EEC00083 

EE000084" 

EE000085 

EE000086 

EE000087 

EE000088 



KFI(8U,e),{2)ClCC 
BAE,P PP RET 
P MC RET LVI,$1, JC IOD 
V+,$1,SBAMCP 
LV,$13, .32($l) 



1C11 



-IS IT A P CHARACTER 
-YES-GO TO PP 



29* 
3C* 
31* 
32* 

33* 
34* 



216704^40 
216705. OC 
216705. 4C 
216706.40 
216707. CG 
216707. 4C 



CO CC I3_.__3_3_ 
217106.50 
217012. CO 
215265.00 
CCCCC1.41 
216743.00 



3_C 
50 
80 
30 
3D 
80 



S_V_,_1_3,_S FI AACU12) 

LC,$4,P OUT 

T,$4,G MISTO,P MCP BF+3.0 

LV,$0,STIC 

SV,$0,S INT ADU13) 

TI,3,P TEM BF,P MCP BF 



-ACTIVATED FILE AREA ADCR TO UA 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
S 
7 
6 
5 
4 
3 
2 



217000. IC 20 



216775.06 AC 



P MAIN 
P MA INI 



35_*_2167LQ_4C 
36* 216711.40 
216712.40 
216713.40 
216714. 4C 
216715.00 



C 0„C P_00_«_7_Q_ _8_A 003000.00 FC CMOCOC ( BU L 3 ) , S UNITUIC) -SET MCP UNIT{=0) IN CST 



3 7* 

3£* 
3.* 

4C* 



GCCC01.47 
CCCCC0.47 
C00000.57 
C00C20.17 
C0GCC0.36 



3B 
8B 
8B 
02 
8B 



001000.36 FO 
001000.00 FO 
001000.36 FO 

216720.74 00 



CM111KBU, 1) ,S SEL + 1.C{$11) 
P EX1 CM0C00(BU,1) ,S SEL(Sll) 

CMlllKBUt DtS CNS SGU11) 
LCI»$7, (8)20.00 

BZB,SUNSUP{ $11) , JPEX2 



-UNSELECT PP UNIT 
.-SELECT PREPARE UNIT 
-TURN CN PROPER S CNS SG BIT 



EEoqoosg 

"EE"000090 
EEQ00091 
EE000092 
EE000093 
EE000094 



Alt 

42* 
43* 
44* 
45* 
46* 



216716.00 
216717. CC 
216720, 
21672C, 
216721 



J^_c_c_Q_i_'_U_ 

C0CC27.45 
C0CC10.16 
00CC01. 17 
215776.03 
215762. 10 



8D 
80 
50 
5D 
01 
CO 



QC507_1_.60 
005071.56 



_5C 
70 



L (_B_U ,_5 1 1 S 1 I NC ( $_1 3 ) , - 13 

COllKBUf 5) ,$7.37,-13 

LC,7,$L 

SC,7,1.C($13) 

LVI,$1,KN0RM 

B,KCIN_ 



|t000095 

EE000096" 

EE00009/ 

EE000098 

EE000099 

EE000100 



CO 
40 

00 



JPEX2 



-FAT 



216721. 4G 



47* 
4fc* 
4S* 
5C* 
5J* 
52* 



216722_._CC 
216723. CO 
216723.40 
216724.00 
216724. 4C 
216725. CC 



_0CG_C_01_._35 
CCCC0C.26 
CCCC01.27 
CCCC00.3C 
CCCCC3.32 
216743. CO 



8B 
3A 

05 
3B 
3C 

80 



.21673 3 J .74_iO_2 P_ HP RET _BB,_S _UN_ ASG+KO ( $ 1 1 ) _,G_JERROR _ _"I S CNSL ASSIGNED TO PP 



216760.32 AC 



LVfSlltS UN AU1C) 
V + I,$U,1.0 
LV,$12,S UN AU11) 
LV,13,S FI AAC($12) 
TI, 13, P TEM BF,P PP 



-SELECT PPS UATA 
-GET FILE AREA ACTIVATED 



ADDR 



BF 



53*_216 726__CC_ 
54* 216727. CC 
5 5* 216727.40 
56* 216730. CO 



215C01. 04 
215265. CC 
C0CC01.41 
CCCC00.72 



ao 

30 
3D 
8A 



216732.74 02 



BB,_SL,P_MP_LEV 

LV,$0,STIC 

SV, $0,S INT AC($13) 

CM1111(BU,1),SUNIT+.2($1C) 



EEC00101 
EE000102 
EE000103 
EE000104 
EE000105 
EE000106 
EE00010 7~ 



P CCM 



001000.36 FO 



-INTERRUPT AT PP LEVEL PUT EE000108 

-CONTENTS OF STIC EE000109 

-INTO INTER ADDR SLOT OF PPSFAT EE000110 



wai 



IIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD IC tEOOOlll 



CIST. OF 3/Cl 



3/01 



PAGE NUMBER 137 



L INE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



216731 



1* 
2* 

2 * 
i # 

~6* 

7* 

£* 

9* 

IC* 

11* 



216731. CO 
216732.00 
216732.40 

2 16733.40 
216734. CC 
216734.40 

216735.00 
216735.40 
216736. CC 



777777.47 

216712.50 
215361. CC 



216 727. 5C 
"2 1 7034. C 3 
C0C006 
216640 
217042 
C0CC03 



05 
50 
3 

C5 



8B 
00 
30 

W 

01" 

01 

00 

01 

CI 



001000.36 FO 



216640. 5C CO 



CMlllllBU.D.S SEL-l.C(ill) 

B,PEX1 
P MP LEV LVf$OiS IC BU 

G ERROR~~LVI, U, P UN NOT " 

LVI,$2, 6.0 

B, P ERR EX 
G CDBCC LVI,$1, P MSG ER 

LV1 1.1*2, 3.0 

B, P ERR EX '" 



-UNSELECT MOP 

-INTERRUPT AT 

-S IC 6U 



UNIT 

MCP LEVEL CGNT CF 



EE000111 

EE000112 

EE000113 

EE000114 

EEOOOllb" 

EE000Tl6 

EE000117 

EE000118 

EE000119 

EE000120 

'EE000121" 



12* 
12* 
14* 

15* 

16* 



216736.40 
216737.00 
216737.40 
216740. CC 
21674C.4C 



C0CC12.C3 01 
215C03.C2 BO 
C0CCQQ.72 31 
000003.33 3C 
215CC1.04 80 



216706.74 00 



PCBRET LVI ,$1,PCCEF2 
V+, $1, SBAMCP 
LV,$13,.32($i) 
SV t 13,S FI AAC<$12) 
BZ6,SLfP MAIN 



-ACTIVATED FILE AREA ADCR TO UA 



EE000122 
EE000123 
EE000124 
EE000125 
EE000126 



1/* 
U* 
IS* 
2C* 
21* 
22* 
23* 
24* 
25* 
26* 
2/* 
2fc_* 
2 9 * 



216741.40 
216742.00 
216742. 4C 
216743. CO 
216760.00 
216775. CO 
2 170 12. QQ 
217024. CC" 
217C30.00 
217C34.C0 

217C42.CC 



215 361 . CC 
216707.10 
000000.30 
C0CC15.CO 
C0CC15.C0 
_C_0_C_C_1_5 . C C 
C0C012VC0 



30 



-fcNTER AT MCP LEVEL CONTENTS CF SICBU 



LV, SO, SICBU 

B,P>A1N1 

CNOP 

CR( BU, 64), ( 13) 

OR (BU, 64 ), ( 13) 

CR( GU t 64), { 13) 

U R [B U L 6 4 ) , ( 1 C )" _ _ ~ _ 

( 1 S * ) C C ( B U ) t " M E S S A G E 

( 1QS*)0C(BU) , 

{ IQS*)CC(BU), 

CNOP 

{ IQS*)CC(.8U), 
"iGEClf '_ 

"-ITS'FCNIS TO ECIT CUT "t-ROH A STRING OF 8 BIT KS 

-CHARACTERS ALL BACK SPACE CHARACTERS. FOR EACH BACKSPACE 

-CHARACTER BOTH IT AND THE PREVIOUS NGN BACKSPACE CHARACTER 

-ARE REMOVED FROM THE STRING. 

-THt UNEDITED STRING OF CHARACTERS MUST BE LESS THAN 81 

-CHAR4CfFRS"L0NG. ~~" ~ 



EE000127 



CO 



P TEM BF 
P PP BF 
f _M_C_P_ BF 
G_M_I_S_T_C "' 
PEPGK 
PUK 
PUNNCT 

PMSGER 



MESSAGE 
MESSAGE 



not 

NO) 
NOT 



ACCEPTED 
ACCEPTED 
ACCEPTED 



EPGK ERRCR* 
UK ERRCR * 
PP HAS NC CGNSCLE 



IOD 



MESSAGE HAS BEEN ERASED* 



EE000128 

EE000129 

EE000130 

EE000131 

EE000132 

"EE000I33" 

~EE000l34 

EE000135 

EE000136 

EE000137 

EE000138 

~EE600139~ 



3C* 
31* 
32* 
33* 
34* 
35* 



EE000140 
EE00014I 
EE000142 
EE000143 
EE000144 
"EE000145 



20 

19 
18 
17 
14 

15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
36* 
39* 
4C* 



217045.00 
217045.40 
217046.00 



000024.22 00 
216746.11 01 
217C12. 13 01 



-AT THE CONCLUSION CF THt EDITING, THE CF OF $4 CONTAINS 

-THE NUMBER OF CHARACTERS IN THE EDITED MESSAGE. 
G EDIT Z,$4 -INITIALIZE 

LVI,$4,P TEMBF+3.0 -FWA OF UNEDITED MSG. IN $4 

LVI,$5,G MISTO -FWA FCR EDITED MSG. IN $5 



EE000146 
EE000147 
EE000148 
EE000149 
EE000150 



41* 
42* 
43* 

44* 
45* 
46* 



217046.40 

2 17047. CC" 

217050.00 

217051.00 

217051.40 

217052.40 



_C_0_C 120 .13 

coccod". ic 

77CCCC.00 
217C63.76 

C0CC00.1Q 
C0CC01. 11 



0_2 
84 
80 
C2 
85 
00 



_LCi_,_t5 L aq_ 

LTv + I ) (BU,8), .8($4~) 

KFKBU, 8), (2)1111 11CG 

BAE.GVRAT 

ST{ V+I)(BU,8),.8($5) 

C+I ,$4, 1 



L S „tT M AX ALLOWABLE CHARS TO 80 
■LCAO A CHAR. 
-IS IT BACKSPACE 

-NC-STGRE CHAR IN EDITED BUFFER 
•ADD ONE TG CCUNT OF EDITED 



EE000151 
"EE000152" 
EE000153 
EE000154 
EE000155 
EE000156 



110000.20 
410000.23 



50 
10 



G CKOLC 



110000.20 DO 



47* 

"48* 
49* 
5C* 
51* 
52 * 



217053.00 
217054.00 
217054.40 
217055.00 



774000.00 
217063.36 
217047.12 
000120.11 



80 
C2 
48 
CA 



410000.23 10 



G KONTR 



KFI (BU,8), (2) 1111 1110 
BAE,G KONEC 
CB,$5,G OKOLG 
KCI,$4,8C 



52* 

~5^*^217C55~.40~ 
55 * 
56* 217056.00 



-CHARS. 

: e"nd cgde 

-YES-CUT 

-HAVE EDITED 80 CHARS WITHOUT 

-ENCOUNTERING- 

: AND END CODE 



EE000157 
"EE000I58" 
EE000159 
EE00G160 
EE000161 
EE000162 



EE000163 
EE0C0164 
EE000165 
EE000166 



217C63.32 40 
000011.11 50 



BZXL,G KONEC 
SC,$4,$R 



•IS EDITED CHARACTER CCUNT LESS 

•THAN 80 

-YES-PUT EDITED CHAR. CCUNT IN SR 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID EEO00167 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 138 



£ 

V 
S 
' 9 
L 
8 
6 
01 
1 [ 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



2L7056 



1* 217056. 40 

2* 217C57.4C 

3* 217C60.40 

4* 217061.40 



CCCC10.C0 
00C026.CC 
774CCC.C0 
217C12.C0 



80 422027.21 90 

80 031011.60 CO 

80 410000. 2C 50 

86 C1C000.12 FO 



*I( BUi 18) ,8,46 -MULTIPLY CHAR. COUNT BY 8 EE000167 

ST(BU,25), $6,19 -STORE A POSITIVE PRODUCT EE000168 

LKBUf 8), (2)1111 11 1C EE000169 

CM010K BU,8) ,G MIST0($6) -INSERT END CODE AFTER EDITED MSG EE000170 



2 17062.40 _C_C_C C 1 . 1 1 C C + I , $ 4 , 1 



-ADD ONE TO EDITED CHAR COUNT 



EE000171 

EE000172 
EE000173 
EEQ00174 
EE000175 
EE0CC176 



.* 
i* 

£* 

9* 

1C* 



217C63.CC 
217063.40 
217C64.00 
217064.40 



217C63.1C 
217C12.13 
217C66.72 
CCCCG0.1C 



CO 
04 
C2 

80 



430000. 2C 5C 



G KCNEC B,$ 

G VRAT KVI.S5, G MISTO 
BXE,G CIAR 
Lit EU,24),8 



-OUT 
IS BACKSPACE CHAR THE 1ST CHAR. 
-OF THE MSG 
-REMOVE PREVIOUS NGN BACKSPACE 

-CHAR- 



11* 
12* 
15* 
14* 
15* 

U* 
17* 



21_7C6 5_.4_C 
217C66.40 
217067. CO 
217C67.4C 
217C7C.CC 
217C70.4C 



C0CC25.C0 80 030000.30 90 M-(BU,24),$5 -FROM THE MSG 



CGCCOO. 11 
217C70.32 
C00CC1. 11 
217C47.12 



OA 
C2 

08 
48 



G CIAR KCI,S4,C 
BXEt $41.0 
C-I ,$4, 1.0 
CB,$5, G CKOLO 



•IS EDITED CHAR. COUNT ZERO 



21 7C 5 5 ,.10 00 _ B,_G_KGNTR 

-PCSRC ROUTINE-ITS 



-NC-REDUCE COUNT BY 1 
- LOOP IF 80 CHARS NOT TESTED 

_-8C_CHAR TEST_hlJHGUT__t_ND 
FCNS" ARE 



CODE 



EE000177 
££000176 
EE000179 
EE000180 
EE000181 
EE000182 



lfc* 
19* 
2C* 
21* 



217071. CC 



C00C00.02 3A 



P CSRD 



-I. TO PERFORM A FAKE READ FROM THE CNSL WHEN $RD PSEUDO 
-OP WAS ENCOUNTERED IF A CS HAD PREVIOUSLY BEEN GIVEN. 
-2. GENERATE A FAKE EOP IF NECESSARY 
LV,$1,SUNA{$1C) 



_22___1__71_.4C _0_0_C_C_03_._C0 80 000000. C6_ 70 C0011(BU),S CW($13),0 -PUT CW IN $R 



_ §000 183 
EE000184 
EE000185 
EE000186 
EE0001«7 
EE00018B 



6l 
OS 



23* 217C72..40 _21_5_Q.0_1_._U 4_ _8 2 17103 . 74 02 BB.SL.P MCP -WHO ISSUED THE READ 



24* 
25* 
2d* 
27* 
2£* 



217C73.40 
217074.CC 
217075.00 
217076.00 
217C76.4C 



216760, 
00CG01, 
00CCC2, 
217106. 
217077, 



C5 
57 
7 7 
46 
11 



CI 
81 
82 
30 

CI 



001000. CC 
217105.74 



FC 
OC 



P CS RD1 



PCSRD2 



LV1 , $2,PPPBF 
CM0C00(BU,1), S 
BZB, 2.63($2), 
LV,$3, P CUT - 
LVI, $15, $+1.0 



-PP-SET TO TRANSFER FRCM PP BF 
CNS SG+1.G{$1),0 - TURN OFF PP CNS SG BIT 
P3WD -IS LAST BYTE OF 3RD WORD END CODE 
NO - SET TO TRANSFER UP TO 13 WORDS 



EE000189 
EE000190 
EE000191 
EE000192 
EE000193 
EE000194 



2S* 21 70 77. CC 



217107.10 00 



B,GTRANF 



TRANSFER FRCM PROPER BUFFER 



EE000194 
"EE0001 95~ 
EE000196 
EE000197 
EE000198 
EE000199 
EE000200" 
"EE000201 
EE000202 
EE000203 
EE000204 
EE000205 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 
33* 

3 . * 

it* 

37* 

38* 
39* 

__* 
_41_* 

42 * 

43 * 
44* 
45* 
4.* 



217C77.4C 
2171CC.00 
217100.40 
217101. CC 

___!_____ 
2171C2.4C 

217103. CC 
2171C3.4C 
217104. CO 
2171C5.00 
217105^40 
_iZi_6_.CC 
217106.40 



OOCCCO.CO 
CCCCC3.0C 
C00C11.00 
C0CCC4.CC 

C_0_CM_0_._17_ 
2_1_5_7_7_6_-_C_3_ 
215746. 5C 
216775.05 
C0CC00.57 
217C75.10 
C0CC00.C7 



82 
83 
80 
80 
Q_2_ 
°A 

"co 

01 
81 
CO 
CI 



000040.20 CC 



001000. CC FO 



P MCP 



P3WU 



_2_LLQ76_._5_C CO _ B , P CSRD 2 



,0( 12) 
, 3.CU3) 
,$R 

ST(eU),SCCW($13),64 
LCI, $ 7 , ( 8 ) 4C . C 
LV I_ ,__$_!, KNQRM 
~B f KGATE 

LVI,$2,P MCP BF 
CMOCOOfBU, 1) , SCNSSG($1) 
6.PCSRD1 
LVI,$3,C 



-STORE LAST CW IN FAT 



-SET TO TRANSFER FROM 
- TURN OFF MCP CNS SG BIT 



NCP BF 



21710 7. 
21711C, 
2 17 11C. 



CC 
CC 
4C 



CCCOCC.CC+ 

000020. CO 80 
000000.43 BF 
CCCCC0.C7 BF 



217134.CC AC 



P CUT VF, 0.0 

— *«*** 

G TRANF TIf 16.0t$0 f G VOCR 
LVE,tl,.32<$15) 
LVE,$3, I $15) 



TRANSFER SUBROUTINE ***** 

-SAVE *C-$15 IN LOC. G VCDR 
-LOAD $1 WITH TOT. NGS. OF FULL 



WORDS 



EE000206 

_E000207~ 

EE000208 

EE000209 

EE000210 

EE000211 



47* 217111.00 



_C_0_CC_Q1.0 5_8F LVE,$2, 1.CCJ15) 



4t* 
4S* 
5C* 
51* 
52* 



217111. 4C 
217112.CC 
217112.40 
217113. CO 



C0CC00.C4 
C00C22.1C 
217132.70 
C0CC21.05 



12 
10 
42 
90 



LX, $2,0.01:62) -LOAD $2 WITH 1ST CONTROL WCRO 

LX,$4,$2 -LOAD $4 WITH 1ST CCNTROL WORD 

BXCZ, G HI - IS CF OF CTL WORD ZERO 
G KOLC KC,$2,$1 -COMP. CO.F. $2 WITH TOT. NCS OF FULL 

-WORDS TO BE TRANSFERRED 



EF000212 
CEC0021J 
EE000214 
EE000215 
EE000216 
EE000217 



_________ 3 -AC 21_71_32.73 42 BXH,G HI -TEST INDICATOR IF HIGH 



54* 217114. CO 
55* 217115.00 
5_* 



CCCC22.33 80 217116.34 02 G SKIP BB,$2+.27,G SKIPA 
CGCCOO. CO 83 000000.04 22 T, $2 , 0. ( $3 ) , . ( $2 ) 



-TEST IF ,SK1P, BIT IS ON 
-TRANS. $2CF. WORDS FROM TEM. BUF 
-ADO. FROM VF. OF CCNTROL WCRD 



TO 



EtO0C21B 
EE000219 
EE0Q0220 
EE000221 



wai 



TIME CLOCK C0C54041 



PUNIC 11D11MCP 



CARD ID EEC00222 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 139 






LINE 



LCCATICN 



BINARY CUTPUT 



1* 217116.00 

2* 217116. AC 

2* 217117. CO 

i* 217120.00 



CCC036.C5 
217120.35 
CCCC24.30 

CCCCOO.ll 



so 

CO 

80 

CD 



217120. 74 02 



NAME _S_I A I§MENT_ 

G SKIPA SC,$2,$14 

SVA, $14,GNWACC 
BR, $4.24,GNWACD+, 

GNWADD V-I,$4,C 



LCCATICN 



217116 



-STORE CF.$2 IN VF.$14 



32 



EE000222 
EE00G223 
EE000224 
EE000225 
"|E0002 26" 
"EE00022 7" 
EE000226 
EE000229 
EE000230 
EEC002 31 
EE000232 
EE000233 
EE000234 
EE000235 
EE000236 
EE000237 
EE00C238 
EE000239" 
EE00024Q 
EE000241 
EE000242 
EEG00243 
EE000244 
EE000245 



01 

1 1 
zi 
ei 
pi 

Si 
91 
Z! 
81 

61 
OS 



£* 
<* 
t * 

S* 

1C* 



2 1 7 1 2 C_._4_C_ 

217121. CC 

217122, 

217122, 

217123 

217123, 



00 

40 

,00 

,4C 



_C_Q.CC3 6.C6 
C0CC24.30 
C0CC36. 10 
217123.35 
CCCCOO.ll 
217124.35 



BO 
80" 
BO 
DO 

C8 
CO 



V + , 



$3, $14 



MOVE POINTER INTEMP BUFFER 



217122.74 02 



G EMAN 



BS, $4.24, $+1.32 
V+i $4, $14 -NO, 
SVA, $14, G EMAN 
C-I ,$4, CO 
SVA, $14, G IGOR 



ADJUST STORE LCC 

-STORE VF.$14 IN LCC. G EMAN ADU.F. 

-SUBTRACT FROM CF.$4 CF.$2 

-STORE VF.$14 IN LCC. G IGOR ACD.F. 



11* 
12* 
12* 
14* 
15* 

H* 
17* 

1£*~ 

19* 

2C* 

21* 

22* 

22* 



2 17124. CO 
217124.40 
217125. 4C 
217126. OC 
217126.40 
217127.00 
217127.40 
217130.00 
217131.00 
217132.00 
217132.40 
217133. CO 
217133.40 



CO COCO. C 3 

00 0022.31 

217127.71 

CGCC22.C2 

CGCG24 

217113 

oocciq 
occcio 

217134 
OOOCOl 
C00C21 
21711 4 
CO C_C_0JD 
OC 020" 



OD 
~8~0 
42 
00 
CO 
00 
10 
80 
80 
CF 
50 

°A 
CO 



JLJ_ G _ C JL__ V-I,$1 L C.C 

"~BZB,*2+.25,G NOLCP " 

BXVZ.G NOLOP 

R,$2 

R,$4 

B,G KCLC ■ 

G NOLO P S X t _ $ 4 [, $ L ~_ 

C M 1 1 1 1 ( B U ", 1 ) , * L + .18 

TI, 16.0,G VCDR,$0 

B, 1.32( $15) 
G hi LC, $2, $1 

B,G SKIP 

cVnop_ ~ '~~ 
G VOD R " ~DR~Z ( 8U , 6 4 ) , 16 



CF.$2 



^SUBTRACT FRCM VF.$1 

-TEST FOR CHAIN BIT " 

-TEST IF $1 INDIC.t INDEX VAL.O, IS 

-REFILL $2 WITH NEXT CONTROL WORD 

-REFILL $4 WITH NEXT CONTROL WORD 

-LOOP TC LCC. KQLO 

•STORE ~$4 "IN " $L 

"-TURN ON "UNif READY" 

-RESTORE $0-$15 FROM 

-BRANCH CUT 

-LOAD CF.$2 WITH NCS 



217127.74 CC 



ON 



24* 217134. CC * 



02 

1C 
11 
22 

CO 
5C 
C4 
10 
30 
CC 



0C1C00.36 
000020.00 



FO 
AC 



BIT 
LOC. 



G VODR 



FROM VF.$1 



-RETURN TC LCC. ,G SKIP, 



-RESERVE 16 FULL WORDS 



20 
19 
18 
17 
16 
15 
U 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



UME CLOCK 00C54C41 



PUNIC 11D11MCP 



CARC IC FACOCOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 140 



LINE 



LOCATION BINARY OUTPUT NAME STATEMENT 



LOCATION 



1* 

2 * 
2 * 

** 217154.00 
£* 217154.00 
6* 217154.40 
217155. 4C 
217156.00 
217157. CC 



£* 

S* 

IC* 



217160. CC 



215021.23 
215CC1.C4 
CCCC01.23 
CCCC00.31 
O00CO0.75 
CCCCG0.44 



CI 
80 

05 
89 
89 
39 



217170.74 OC 

217210.34 04 
217164.34 02 



— *«**«*****«*»*»**«#***»*»*«****» *****»*«*#***»#********##*«##*»«**»«»» FA000001 

-********«»***-***«#*« RETURN «**«***»**********»»- FA000002 

- »#**»*«#*#***#*«»»«******« «»««««-»****#*«****»*•****«****«*««****«*«•** FA000003 

SLC^ __ FA000004 

C RJETN _LVLi?,S PROG_S__ ^ ~__ _ 1^99999^ 

RZB, S L, C'RET PP~" -TEST IF IN MOP ~~ >AOC0006~ 

V+1,9, 1.0 -IF SO, SET VF 41 FA000007 

BZBZ,S ASU9),M C RET FA000008 

BB,S SI0($9),C M SNOW FA000009 

LV,2,S C K($9) FA000010 



.11* 217160.40 217164.31 42 



12* 217161. CC 

12* 217161.40 

14* 217162. CO 

15* 217162.40 

16* 217163. CC 



COCC00.32 
222037.31 
217163. C3 
222020.10 
222037.10 



39 
42 
01 

00 
CO 



C RET 1 



BXVZ t C_M SNOW 
LV,13, G.C($9) 
BXVZ, K UNSTC 
LVI, 1,$+1.0 
B,K SLRCH 
fi,_K_UNSTC 



-NO 



FA000011 

FA000012" 

FA000013 

FA000014 

FA000014 

FA000015 



17* 217163.40 



216010. 3C GO 



B»_K INI.TY 

BZBZ, S LR MCP + 9.CM 

LCI , 15,29 

LV,8,S IC MOP 

sv,e, $+2.0 

LFT[yi t SLRMCP+l.C 



FAO 00016 
FA000017 
FA000018 
FA000019 
FA000020 
FA00G021 



16* 217164. CC 
IS* 217165.00 
2C* 217165. 4C 
21* 217166. CC 
22* 217166.40 



215373. CC 
C0CC35.37 
215417. 20 
217170.21 

215363.44 



80 
02 
30 
30 
AO 



217236.74 04 



C M SNOW 



LP1 



-RESTORE $MR 



* 217167.00 * 



215362.00 80 000003.36 20 



24* 217170. CC 
25* 217170.40 
26* 217171.40 
27* 217172.40 
2£* 217173. CC 



217170. CC 
C0CCC0.31 
CCCCCO. 75 
CCCC00.44 
217200.31 



CO 
89 
89 
39 
42 



217176.74 04 
217205.34 02 



C RET PP 



'L*_15 L S_LR_MCP»3.0_ 

RL~ : ,$ 

BZBZ,S AS($9),K SUPP2 
BB, S SI0U9), C P SIC 
LV,2,S C KI $9) 

exvz, c p snow 



-BRANCH IF SIO BIT IS ON 
■BRANCH IF C K NOT ZERO 



FA000022 

FA000023" 

FA0G0024 

FA000025 
FA000026 
FA000027 



3C* 
31* 
32* 

33* 
34* 



2 17173 

217174 
217174 
217175 
217175 
217176 



ib9 
.cc 

.40 
.CC 
.40 
.CO 



COO . 3_2_ _3 9 
222C37.31 42 
217175.43 01 
222C20.1C CO 
222C37.10 CO 
216C1C.50 00 



LV, 13 t 0.GU9J 
BXVZ,K LNSTC 
LVI, 1, $+1.0 
B,K SERCH 
8,K UNSTC 
B,K INT TY 



FA0C0028 

FA000029" 

FA000030 

FA000030 

FA000031 

FA000032 



-BRANCH IF NOT WAITING 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



35*217176.40 C OC C_C_0._45_ _G5_ 

36* 217177. CC 215265. C5 30 
37* 217177.40 216242.10 00 
38* 217200.00 217201.03 01 
3<5* 217200. 4C 217316.10 CO 
4C* 217201. CC 215266.00+ 



K SUPP2 



C P SNOW 



Al* 
42* 
43* 
44* 
45* 
46* 



217201 
217202 
217202 
2172C3 
217203 
217204, 



AG 
00 
40 
CO 
40 
40 



CO CO 35 .37 
215323.02 
217204.43 
215267.44 
215266. CO 
217204.40 



Q.2 
30 
30 
AO 
80 
CO 



000003.36 20 



J(±Ll2_>_«_32 
SV,2,S TIC 
B,K SUPP 
LVI, 1, $+1.0 
8,JTSEXE 
VF,_SLRPP 
LCI,15,29_ 
LV.ltSICPP 

SV,$l,$+2.0 
LFTCU) ,SLRPP+1.0 
T,15,S LR PP.3.0 
BE, $ 



-CHECK FOR TS,EXE 



FA000033 
~F ACQ 00 3 4 
FA000035 
FA000036 
FA000037 
FA000038 



-RESTORE $MR 

-RESTORE LOWER REGISTERS 



FA0000 39 
>A000040~ 
FA000040 
FA000041 
FA000042 
FA000043 



i£* 
46* 



2172C5 
2172C5 



CO 
40 



_C0_CC00._32 
217200.31 



39 
42 



C P SIC 



LV,_I3,_C.0($9) 
BXVZ, C P SNOW 



FA0Q0044 
FA000045 



MSI 



TIME CLCCK CCC54C41 



PUNID 11D11MCP 



CARD ID FA000O47 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 141 



LINE 



LOCATION 



BINARY CUTPLT 



NAME 



STATEMENT 



LOCATION 



217206 



1* 217206. CC 

2* 217206. 4C 

2* 217207. CC 

<* 2172C7.4C 



217207. C3 01 
222C20.1C CO 
217200.10 CO 
216C10.5C CC 



LVI tit $+1.0 
B,K SERCH 
B, C P SNCW 
BtK INT TY 



FA000047 
FA000047 
FA000048 
FA000049 



5* 

7 * 
t* 
S» 

1C* 



2172_1C.CC 
2 1721C.4C 
217211.40 
217212. CC 
217213.00 
217213.40 



21_5636.C2 

CCCCCC.75 

C0CCO1 

COCCCO 

217236 

CCCCC2 



10 
89 
31 
81 
46 
11 



M C RET 



L X » $ 1 , M C R -*******»**♦» S D RtT**************** 

CM0C0C(BCVlKSSICU9") 

LV,4 t 1.0($l) -CHECK USERS 

3ZB,.4($1),M SD A -LSER IS PP 

BXVZZ,M UP 1 -PRIMED OP 



FA00005C 
"FAOOOOSl" 
FA000052 
FA000053 
FAC00054 
f A000055 
FA000056" 
"FA000057" 
FA000058 
FA000059 
FA000060 
F AGO 0061 
FA000062" 
FA000063 
FA000064 
FA000065 
FA000066 
FA000067 



10 
C4 
71 

04 



001000. CC FC 



217213.74 OC 



TT 



M SO A LX,$2,2.C($1) 



-ADCR. OF USERS fc,l>MCP 



lJ*_?1721_i_.0_0_ 
12* 217215. CC 
217215.40 
217216.00 
217216. 40 
21721 7.CC 



12* 
14* 
15* 
16* 



COCCCO .06 
"COCCCO. 45 
00CCC0.45 
CCCC23.C3 
217226.06 
OOCCOC.CC 



84 

C5" 
05 
30 
BO 

81 



217215.74 OC 



004067. 2C 5C 



17* 
IE* 
IS* 
2C* 
21* 
22* 



2 1 722 C. CO 
217220.40 
217221.00 
217221. 4C 
217222.00 
217222.40 



_C_0_CC02.4 3 
C0CC10.G4 
217226.44 
215637. C6 

OOCCC0.43 
COOCOO.CO 



05 
50 
CA 

BO 
05 
83 



BZB,.6($4_,$+1.32 
~V + I,2,~.32 

V+I ,$2, .32 

SVt $1,$3 

V+,3,M X 

L ( BU _4 ) , 0_ 0{ $ 1 ) , - 18 
"V + I, 1,2.32 



-AODR, 
-SENDERS K 



CF USERS 
IN $3 



$0P IN $2 



M SD 2A 



3A 



217221.34 00 



LC, $2, $L 
CBZb,$2,M SC 
V + , $3,M C 1 
V+I, SI, .32 

BZB,0.Cl$3) ,M SD 2A -NO RESTORE 



-N IN C.F. $2 



-GET NEXT RESTORE BIT 



22* 
2<* 
25* 

27* 

2E* 
2S* 



217223.4C 
217224. 4C~ 
217225.40 
217226.00 
217226. 4C 
217227. CC 
21723C.C0" 



_ __ c _° QP_o_°_«_Q.Q. A I 

COOCOO.CO 82 
217221.10 00 
CCC0CC.12+ 

215636. C2 10 

_ _°_ _ c _ _9 G _v c A _ 8 A 

C0CCC1.4C 31 



040060. 2C 
04606G.~2C~ 



5C 
CC' 



LCBU_3_)_ 0.0($l_)_,-_3_2 

Sf { EU, 32 ) , 6.0{ $2") ,-32" -RESTORE 
B f M SD 2A 
VF, .10 
LX,$1,M C R 

Bz_B»_*_iL $ U» N iyf_ _r_ pp _J-L SE _ R _ 

"lv,$o, r.32r$i) 



FA000068 
"FA000069" 
FA000070 
FA000071 
FA000072 
FAOOOO/J 
FA000074 



M 
M 



X 

SD 



3 A 



217235.74 CC 



3C* 
31* 

32* 

32* 
34* 



21723C.40 
217231. CC 
217231. 4C 
217232.00 
217232.40 



215562.41 30 
215265. CI 30 
00CCC1.C2 31 
2 1 5636. C 3 30 
CCCC00.40 39 



SV,C,MTC3A 
SVtCtSTIC 
LV,$i,l.C($l) 
SV,$1,MCR 
LV,C,SGK( $9) 



FA000075 
FA000076 
FA0C0077 
FA000078 

FA000079 



20 
19 
IS 
17 
16 
IS 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 

At* 

3 7* 
36* 
3S« 
4C* 



217233.CC 
217233. 4C~ 
217234.00 
217235.00 
217235. 4C 
217236. CC 



215552.31 
0CCC36.37 
215230. CO 
222C37.10 
C0CCC1.42 
215361. C3 



42 

02 
80 
00 
31 

30 



215362.36 20 



BX_VZ_,J_TC2A 
M "S D "3 B ~ L C I , 1 5 , 30 

T,15,STLR,SLRMCP 

B.KUNSTC 
M IUP LV,41, 1.32($1) 

SV,$1,S IC BU 



-RET. AD. SET 



FAqqoqao 

FA000001 
FA000082 
FA000083 
FA000084 
FA000085 



Alt 

42 * 
42* 
44* 
45* 
46* 



217236.40 



AC_C_ c _QO.«AQ. 
222037.31 

215640. C2 

217260.31 

215645.04 

C0CC00.C4 



39 

4 
30 
46 
30 
32 



f* UP 1 



LV,C,SCK£$9) 
BZXVZ,KUNSTC 
LV, 1,MPRMQK 
BXVZZ,M PP 1 
LV, $2,M R 5 
LV, $2,G.0($2) 



FA000086 
>A000087 
FA000088 
FA000089 
FA000090 
FA000091 



217237 

217237 

217240, 

21724C, 

217241, 



00 
40 
CO 
40 
CC 



-$0P CODE IN $2 



47*_217241_4C 
46* 217242.40 
49* 217243.00 
5C* 217244.00 



_C_0_C_C_2_2._30 
215566. C4 
COCCOO.ll 
CCCCOO.CO 



80 
32 

82 
82 



001000. CC FO 



CMqqqq_____)_*2+_ 24_ 

L V , 2 , M I F T TT-64 . C C$2 } 
BB, ,9( $2) ,M Bl 
L(BU,4) ,0.0{$2),-19 



-MAKE GP_CCD__ + 
-GET ADDRESS OF 



FA00C092 

"FA000093" 

FA000094 

FA000095 



TT 



217256.74 02 
004066. 6C 5C 



wai 



1 IME CLOCK CC054C41 

C in e l cc a~t! cn 



PUNID HDllfCP CARD ID FA000097 DIST. CF 3/C1 

bi~nary"cutpl~t naIml ~ST ATEMENT~ 



3/01 



PAGE NUMBER 142 
L C C AT I 0N~ 217 245 



z 
e 
v 

I s 

I 9 
L 
8 
6 
01 
[ [ 
51 
El 
N 
SI 
91 
il 
91 
61 
OS 



1* 
2 * 

2 * 
4 * 



217245. CC 
217245. 4C 
217246.00 
217246.40 



C0CC10.CC 30 
00CC20.CC BO 
CCCC20.C0 50 
215640. CC 80 



02 306 6. 7 C 9C 

00100Q~.3~6~>~0~ 



L V f $ , $ L 
V + , J , $ 
LC,$0,$C 
M-{ RU,19),M 



•N IN $C 



PRM GK,-19 



FA000097 
FA000098 
FA000099 
F ADO 01 00 
FA000101 



- * 

t * 
E* 
S * 

1C« 



21J247 

2172 5C" 

217251 

217251 

217252 

217252 



_5_ G 

cc" 

co 

40 

CC 
40 



215645. 
COCCOO. 
215636. 
215546. 
00CCC1. 
C0CCC2. 



C6 
04 
C5 
C5 
22 
45 



82 
30 
30 
02 
05 



LI* 
12* 
12* 
1 ^ * 

15* 
16* 



217253. 
217254. 
217255. 
217255. 
217256. 
217256. 



o_o_ 

00 
CC 
40 
CO 
4C 



_c_o_c_cco._ 

CCCCOO. 
217253. 
215645. 
215546. 
215265. 



40 
4C 
CO 
07 
5C 
CC 



83 

a" 2 

48 
10 
00 

80 



340000. 2 0_ 5 C_ 
140000. 2C DC 



J_X L _____R_5 -TRANSMIT 

C M 1 1 1 1 { B U , 1 ) , . 4 ( $ 2 ) -S£T U S E R 
SV, $2,tf CR -SET K IN 

SV,$2,MR3 AC 
Z,1.G( $2) 

V_+_ t $2_2.32 

M} 3 _5A _ L <_V + ICR M BU , 32 J , .32 { $3 ) 



CONTROL 

to'mcp - " 

MCR 



FA000102 
FA000103 
FA000104 
FA000105 
FA0C0106 
FA00010 7 



ST( V+I ) (BU,32), 
CB, $0,M UP 5A 
SX,$3,M R 5 
B t M TC 1 
02 30 00.3 2_ J C ¥ L Bl_ _M- 1 (_BU , 19 ) , S TIC 



32($2) -PARAM. TC TENT. 
-PARAM FINISHEC 
-SAVE UNPRIME CONTRCL 
-ENTfcR 



FA000108 
FA000109 
FA000110 
FA000111 

FA000112 



IE* 

1** 

2C* 
21* 
22* 



2J.J2_5.7_. 

217260. 
21726C. 
217261. 
217261. 
217262. 



4_C_ 

be 

40 
CC 
4C 
CO 



2_1_6_2_4_2. 
215636. 
CCCC01. 
217 310. 
217306. 

ccccco. 



22 
23 
4C 
5C 
31 



CO 
CO 
CD 
80 
CO 
89 



M PP1 



217277.74 02 



B_t__SUPP __ 

Z , M C R 

V-I,9, 1.0 

SlCt JMPP2 

B,JMPP1 -CHECK FCR CP, AD, USA, DS 

BB L SAS__9), CRFTBl -RETURN TO PP IF HE IS AUTO STACKED 



EA90pi_13 

FAOOOliV 

FA000115 

FA000116 

FA000116 

FAC00117 



22* 
2^* 
25* 
26* 
27* 
26* 



217263_. 
217263. 
217264. 
217264. 
217265. 
217265. 



00 
4C 
CC 
40 
CO 
40 



_CC_C_C00. 
217271. 
217265. 
222C20. 
217271. 
CCCC36. 



32 
71 
C3 

10 
50 
37 



3_9 
42 

CI 
CO 

00 
02 



_LV,_$13_r$9) 
BXVZ,RSICTT 
LVI ,$1, $ + 1.0 
B.KSERCH 
B.RSIOTT 
LCI ,$15,30.0 



FAOQ0118 
FA000118 
FACCC119 
FA000119 
FA000120 
FA000121 



?A* 
3C* 
31* 
32* 

33* 
3'* 



217266^ 
217267. 
217270. 
217271. 
217271. 
217272. 



CO 
CO 
00 
CC 
40 
4C 



_2 1 5_3 2 4 . 

215335. 
215C01. 
216C10. 

OCCCOO. 
CCCCCO. 



G_0_ 
CC 
04 
5C 
75 
40 



80 
80 
80 
CO 
89 
39 



215266.36 20 
0010CC.CC FO 
001000.00 FO 

217277.74 02 



T _»_il5_S___y,SLRPP 

CMOC00{BU,l),SLRBU+9, 

CM0C00(BU,1),SL 

B.KINTTY 

BB,SSI0{$9),CRET6U 

LV,C,SQK($9) 



FA000122 
>A000123" 
FA000124 
FA000125 
FA000126 
FA000127 



RSICTT 



1**_21727_.00 217277. 71 42 _BAVZ _.CRETBU _ -N0_ P_P_ INTERRUPTS STACKED 

217273 
217274 
217275.1 
217276. i 
217277 



go 

,40 

oo 

,00 
,00 

CC 



217277. 
C0CC36. 
215324. 
215335. 

215C01. 
222C37. 



71 
37 

00 
CO 
04 
IC 



42 

C2 
80 
80 
80 
CO 



FA000128 
"FAC00129" 
FA00C130 
FA000131 
FA000132 
FA000133 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3S* 
39* 
4C* 



LCI , 15 



215266.36 20 
OCIOOO.CG FO 
001000.CC FO 



T,15,5LRBU,SLRPP 
CMOCOO(BUt 1) tSLRBU+9.0 

CMOceo(eu,i),SL 

_B_,K_UNSTC 



Alt 

42 * 
42* 
44* 
45* 
46* 



217277. 
2173CC. 
217301. 
217302. 
2173C2. 
2173C3. 



40 

oo 

CO 
CC 
40 

00 



_ _QP_QC 3_5_. 
215CC1. 
215335. 
217303. 
217316. 
215324.00 



II 

04 

CC 
C3 
10 

+ 



02 
80 
80 
01 
00 



_P_ 33J_ _BJJ _L C I , 1 5 , 2 9 . 

CMOCOOtBUt L) ,S L 
CMGC00(RU,1) ,SLREU+9, 
LVI, 1, $+1.0 
B, JTSEXE 
VF.SLRBU 



FA000134 
FA0001 lb 
FA000136 
FA000137 
FA000138 
FA000139 



0G1000.CC FC 
OCIOOO.CC FC 



-CHECK FCR TS, EXE 



47* 
48* 
49* 
5C* 
51* 
52 * 



2173C3_. 
217304. 
217304. 
2173C5. 
217306. 



40_ 
CC 
40 
CO 

CO 



_2_L.536.L- 
217306. 
215325. 
215324. 
217306. 



C2_30 

C3 DO 
44 AO 

GO 80 
CC CO 



000003.36 20 



Lv__!_s_c_y 

SVA,l, $+2. 
LFT(U) , SLRBU+1.0 
T,15,SLRBU,3.0 
BE, $ 



-RESTORE $MR 



5|# 
54* 
55* 
56* 



217306. 4C 



215334.17 80 005000. C6 70 



JMPP1 



*****CHECK FOR OP, AC, USA, OR OS IN BACKUP BUFFER***** 
LF(eU,5J,SLRBU+8.15 -PICK UP OP, USA, EXE, DS 



FA000140 

FA000140" 

FA000141 

FA000142 

FA000143 

FA00pi44 

FAoggi45 

FA000146 
FA000147 
FA000148 



wai 



1 I ME CLOCK CCC54C41 
" L T N £ L C A Tl C N 



PUNID 11D11MCP CARD IC FAC00149 CIST. OF 3/C1 
eiNARV~CUTP!TT NAME ST ATEMEN7 



3/01 



PAGE NUMBER 143 
L~OCATl~CN~~ 217307 



1* 
2 » 
2* 



217307. AC 
21731C.40 
217311.00 
217 311.40 



720CCC.C0 
217310.74 
GGCG36.37 
215324. CO 



8 
C2 
02 
80 



405000. C3 70 



215230.36 2C 



CTIC001(BU,5), (2)11101 
JMPP2 bRZ,$ 

LCI, 15, 30.0 
T,$15,SLRBU,STLR 



-SIC INTO HERE 



FA000149 
FA00015G 
FA000151 
FA0001S2 



- * 

< * 

£* 

c . * 

U* 



217312.40 
217313.40 
217314.40 
217315.00 
217315. 4C 



_2_1_533 5.CC 
2~15C0l.C4 
C0C404.35 
217451. 4C 
217372.10 



80 

80" 

01 

80 

00 



0C100G.CC 
'OC1000.CC 



FC 
FO 



CMOG 00 ( GU , I J j SLR E U + 9 . 
~CMCC00(BU, 1) ,SL' 
LVI,$14,S0AUD 
SI CSC I SIC 
B.SDISP 



FA000153 
FA000154 
FA000155 
FA000156 
FA000156 
FAC00157 



-CHANGE TG PP 
-ERROR CODE 



LEVEL 



11* 
1 2* 
11* 
14* 
15* 

1£* 
17* 



***«*CHECK 
LINKAGE... 



217316.00 
217 316.40 
217317. 4C 



000000.36 
C0CC_1C_._G4 
215107. C3 



31 

8F 
01 



JTSEXE 



217324.34 04 



FOR TS OR EXE***** 

LVI, $1,$+1.0 

B, JTSEXE 

VF, BUFFER 
LV f $15 t 0.0($l) -ADDRESS OF BUFFER 
BZRZ,8.4U15),JT_S_EX1 - IF. NO TS 
LVI,U,SIPT + 4.0 



FA000158 
FA000159 
FA000160 
FA000161 
FA000162 
FA000163 
FA000164 



1£* 
IS* 
2C* 
21* 
22* 



217320.00 
217320.40 
217321.00 
217321.40 
217322. CO 



217323.43 
CCGC35.C2 
215265. C3 
00CC35.37 
CCCCC1.44 



DO 
3F 
DO 

02 
AF 



JTSEX3 SVA,$1, JTSEXT 

LVt $1,29. 0( $15) 
SVA,$1,STIC 
LCI ,$15,29.0 
LFT(U),1.0($15) 



FA000165 
FA000166 
FA000167 
FA000168 
FA000169 



2~* 
2** 

25* 

26* 

27* 



217322.40 
21732 3.40 
217324.00 
217325.00 
217325.40 



CO CCGO . C C_ 
217 32 3.50 
000010.22 
215125.03 
217320. IC 



8F 

00 
8F 
01 
CO 



000003.36 20 



000000.74 05 



T, f>15,G.GU15) ,3.0 
JTSEXT 87* 
JTSEX1 BZBZ,8.18{$15) ,.32($i) 

LVI,$1,SIPT+18.0 

B,JTSFX3 



-GO TO PARALLEL TABLE 
-IF NO EXE 



FA00017G 
"FAOOOltf 
FA000172 
FA000173 
FA000174 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK 0GC54C41 PUNID 11D11MCP CARD ID FROOOOOl DIST. OF 3/C1 

l In e l cc a t~i c ~k b i n a r y~ cut po~t n am~e~ s f a T em en t 



i/Ol 



PAGE NUMBER 144 
LOCATION 



E 
fr 

9 
I 

8 
6 

01 



1* 

_ * 

2 * 

4 » 



****»RETURN AFTER MASKABLE INTERRUPT ***** 



FBOOOOOl 
F800C002 
FB000003 
FB000004 



r * 
"V* 
t * 
t* 
_* 
1C* 



2L7326_._CC_ 
217326.00 
217326.40 
217327.00 
217327. 4G 
2173 30.00 



SLC, $___ 
SR f 15, $1 
KV,$1, SLOWER 

8XL,WJERR 
KVtSlf SUPPER 
_BZX______R 



FG000005 
FB000006 
FB000007 
FB000007 
FB000008 
FBOC0006 
FB00P009 
FB000010 
FB000011 
FB000012 
FB000013 
FB000014 



C0CC21.37 
215230. 42 
216372.32 
215230. C2 
216372. 32 



70 
90 
42 
.0 
40 



WRAMPP 



-GET PTOE 



11* 
1_* 
12* 
14* 
15* 
1-* 



217 3 30. 40 
217331.40 
217332.40 
217333.40 
217334.00 
2173 3 5.00 



_2A.5C01._13 

215234.00 
215001.14 
COGCOO.CO 
00CC01.22 
217337.41 



80 
8 
BO 
31 

81 

00 



go loop. cc fc 

000007. C2 AC 

217344.34 06 

217340.34 02 



CMOOOO(BUtl) ,SSPFIX 



-TAKE PP OUT OF SPECIAL 



11* 
16* 
1.* 
2C* 
21* 
22* 



2iJ3_35_._40_ 
217336.40 
217 3 3 7.40 
217340.00 
217340. 4C 
217341.40 



_oog_co__cc 

215245. CO 
217337.40 
215265. CI 
000001. CO 
215245. CO 



Bl 
80 
00 
00 

81 
80 



_Cppl3_.C_i 

000020.10 



a_c_ 

AC 



TI, 1,STLR+4.0,$LZC 
BRZ,STSBIT, JWRAM1 
In CON 1 LV, 0,0. GUI) 

BB, 1.18U1), JHFINI 

SVA,Q,WF_NI 

T I , 2 , 1 . G ( $ 1 ) , $ I NC 



-IF TS STACKED 
-GET INT. AD. 

-IF PP TRIES TO RESTORE EXE 

_-StT__TC_ ADDRESS 

-RESTGRE IND + MASK REGS. 



000013. C4 AC 
0C002G.10 AO 



TI,4,STLR+13.G,$C 

W FINI BE,$ 

JWFINI SVA,$C,STIC 

TI,2, 1.0{$1),$INC 
TI,4,STLR+13.C,$C 



-RtSTCRE USED INDEX REGS 
-R.TURN TO PP INTERRUPTED ADDRESS 
-MUST FAKE EXE 



22* 
2<* 
25* 
2£* 
21* 
2£* 



217342.40 
217343. CC 
217343. 4C 
217344. CC 
217344.40 
217345. CC 



_2_1_5_1_2_ _.•__._. _0 
215163. C3 CI 
217333.50 
COCCCO.CO 
215265.01 
C0CCC1.CC 



CO 
31 

DO 
81 



WRAP 



J. RAMI 



_Q9P__.p4 
0GO020.1C 



AO 



B,SIPT+18.0 

LVI, 1,SFPTE 

B,WC0N1 

LV,C,C.C($1) 

SVA,0,STIC 

TI,2, L.C( *1),$IN_ 



- FAKE EXE 



FB000015 
FB000016 
FB000017 
FB000018 
FB000019 
FB000020 



FB00pp21 
FB000022 
FB000023 
FB000024 
FB000025 
FB000026 



61 
OS 



__________-_cc 

3C* 217347. CC 



_2J_245_.CC 8 
215107. IC GO 



LL_._tSTL_ + i3_C,$C 

B,SIPT+4.C 



-FAKE TS 



FBOC0027 
"F8000028" 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 



wai 



1 IME CLOCK CCC54C41 



PUNIU 11C11MCP 



CARD IC FCCOOOCl 



CIST. Of- 3/C1 



3/01 



PAGE NUMBER 145 



LINE 



LOCATION 



BINARY OUTPUT 



NAMt STATEMENT LOCATION 



J* 
c * 

2 * 

L ft 
_ _ _ . 

I * 

i* 

9 * 

1C« 



****** SET INTERVAL TIMER ****** 
— *********#*****#**#****»*****»***««*»*#**##»»***«******«»»***#.*##«#**# 



17 34 7.4C 
1734 7. AC 
1735C.CC 
173 5C.40 
17351.00 
17351. 4C 



CCCC00.45 
217352.45 
CCCCCC.45 
215265.05 
215246. CO 



C5 
CO 
05 
CO 

80 



000021. C6 AC 



SLC L £_ 

jsitx "~"v + i , $2, .32 

SVA,$2, JSITF 
V+I,$2,.32 
SVA,$2,STIC 
TI,3,STLR+14.C,$1 



-$2 = INTERRUPTED 
-LCC OF FWA 

-RETURN ADDRESS 
-RESTORE 41, $2, $3 



ADDRESS 



FC0C0001 
FD000002 
FD000003 
FCOC0004 
FCO 00005 
"FU000006" 
FDOOOOO/ 
FC000008 
FD000009 
FD000010 



13* 
1 2 * 

13* 
14* 
15* 
If* 



173 52_.4C_ 
17353. CO 
17353.40 
17354. CC 
17354. 4C 
17355. CO 



217352.43 
CCCCC0.02 
CCCC01.C3 
217354. 5C 
217355. IC 
216242. 10 



BO 
31 
DO 
C6 
46 
CO 



_ J _ S _L TF _ J-^f'! 1 '* 

LV, $1,0.0(41) 
SVA, $1, $IT 
BUSAZ,$+.32 

BACZ, $+.32 
B,KSUPP 



LOCATION OF SETTING 
•IF USA OR AD, PP" WILL CATChf IT 



FD000011 
FC000012 
FD000013 
FD000014 
FD0C0014 
FC000015 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK CCC54C41 



PUNIC 11C11MCP 



CARC ID FFCOOOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 146 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

_* 
2 * 

L * 



****** I/O DEFINITION REPORT ****** 
— *««***«**«*#*«************«*****«***«-****•*******•*****************«** 



_- * 
J* 

s * 
1C* 



217355.40 
217355.40 
217356. CC 
217356.40 
217357.40 
217360. CC 



SLO,$ 



FF000001 
FF000002 
FF000003 
FF0CG0p4 
FF000005 



220706. CC 
217357.41 
215246. CO 
217357.41 

C0CC21.CC 



30 
DO 
80 
BO 
80 



000021.36 EC 



215246.36 EC 



JZICR LV,$0,KICCRN-.32 

SVA,$C,J2LCC -LOO 

SWAPI, 15, STLR+14.,$1 
JZLCC LVE,$G,$ 

Sj/vAPUlSiJljSTLR + l^. 



OF FWA(J) 



FF000006 
FF000006 
FF000007 
FF000008 
FF000009 



12* 
12* 
14* 
15* 
16* 



217361.CC 
217361.40 
217362.00 
217362. 4C 
217363.00 
217363.40 



_QC.CC 20 .__ 2 _ 3 
22C443.50 06 
22C444.1C 46 
221350. CC 80 
221335.10 00 
21737C.60+ 



_LV L $1 L |C 

8USAZ,KCCCF 

BA0Z,KG00F.32 

SICK CONVR 

B,K CONV -GET CF AND UN NUMBER 

VF I JZCHU.16_ 



FFOOOOip 
FFOOOOll 
FF000011 
FF000012 
FF000012 
FF000013 



JZECBR 



17* 
1£* 
l c .* 
2C* 
21* 

___ 
22* 



2 J 7 3 6 4 .CO 

217364. 4C 

217365 

217366 

217367 

21737C 

2173 7C 



CO 
CO 
CO 

cc__ 

4C * 



2_3_31_41__CC 
233136. 1C 
217370.40 
217371.60 
OCCCCO.CC 
216242. 1C 



8Q 
CO 
80 
80 
81 
CO 



070004.20 50 
010000.06 70 
000000.12 FO 



JZECM 



S_C,ZT81 

B,ZT8 
L(BU,56), JZCHU,8 
LF(BU,8),JZCFU.8C 
SF(BU),C.0($1) 
B,KSUPP 



-CFECK PP 



LIMITS 
-CHXX,UNO 
-CHXX,UNY 
-DELIVER TO 



PP 



JZCHU _ { IQS*)CC(BU) ,ChXX,UNlJ X* 



FF000014 
FF000014 
FF000015 
FF0Q0016 
FF000017 
FF000018 
FF000019 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



K-I 



1 IKE CLOCK CCC54C41 

"C Ine locVtTl'n 



PUNID 11C11MCP CARL IC FAOOGOCl DIST. OF 3/C1 

BINARY OUTPUT ~~~HAt*£~ ""STATEMENT 



3/01 



page number 147 
lccaYign"" 



1* 
2* 

2 * 

«• 217371. 7C * 



— *#**«*«#**##*»«*******««»***#*«•*♦*-»*»*****#•»»*»**##»*♦»•»***«♦*»#*#♦** HA000001 

— *#*«**#****#*****#** ERROR CONTROL ******************* HA000002 

— «**•*«##******«***«»*****«#««**»•»»*****##***#*****«**»*#•»***#*#*«****# HA000003 

SLCii HA000004 



5* 21 73 7 2. CO 
(:* 217373~.CC 
217373. 4C 
217374. CO 
217374.40 
217375. CC 



215 00 1,0 4 
C04CC2.35 
217375.33 
003405. 35 
217415.32 
CCCC13.22 



BO 
04 
42 
04 
40 
CO 



217415.34 GE 



S DISP 



BBltSL,MCPERft 
"KVI , *14,SASNER" 
BXH,$+1.32 
KVI ,$14,SI0ERR 
BZXL,MCPERR 
Z L $1NC_ 

"lx,c,sbndrs 



-NOP CONTAMINATION IF BRANCH 



HA000005 

HA000006" 

HACC00G7 

HA000008 

HA000009 

haooooic 



£* 

s * 

IC* 



11* 217375.40 
12* 2 17376.00" 
2173 76.40 
217377. CC 
217377.40 
217400.00 



215224. CO 
C00C03.~C1 
215373. CC 
CCCC14.C1 
000036.37 
215230. OC 



10 
10 
10 
10 
02 
80 



HAOCOOil 
"H AGO 0011" 
HA0C0012 
HAG00012 
HA000013 
HA0C0014 



12* 
14* 

15* 
16* 



215324.36 20 



SX.C3.C -SET MCP BCUNCS 

LX,C,SLRMCP+9.0 

SX,C,$MASK -SET MCP MASK 

LCI, 15, 30.0 

T, 15,STLR»SLRBU -MOVE PP LOWER REGS. TO PERK. BUFFER 



17* 
1£* 

15* 
2C* 
21* 
22* 
23* 
2 L * 
25* 
26* 
27* 
2fc* 



2174Q1.GC_ 
217401. 4C 
217402.00 
217402.40 
217403.00 
217404 .CC 
217404^.40 
2 1 74 C 5. 00 
217405. 4C 

217406.00 
217412.00 



215 5 7 l_.CC 
21557~0.C4 
000104. CC 
CC0C10.35 
217413.20 
_2_2_4_C52_._C_C 
22 4046. 5 ([ 
2174C6.C0 
C0CC07.CC 



80 
CO 
80 
30 
80 
80 
CO 
80 
80 



020067.12 FC 



MPPBAD 



SIC__SPRINR 
"ECSPRIKE 

,DABEOJ -PRIME ABNORMAL E J 

SV,14,$L -GET ERROR CODE 

SF(BU,16),MPPBAD+5.16,-18 -SET ERROR CODE IN SPOOL MESSAGE 

SJC,ZSPLPQ 

~8 ,_Z S PL PR _ \"_ __ 

~,MPPRAD 

,7.C 

CNOP 

( AX)DD(BU), 1Y0UR PROGRAM WAS ENDED BECAUSE X 

( A* )0D( BU),OF A TYPE XX tRROR * 



HA000015 
"HA000015" 
HA000016 
HA000017 
HA000018 
HA0G0019 
"HA000020" 
HA000021 
HA000022 
HA000023 
HA000024 
HA0C0025 



29* 
~3C* 
31* 
32* 
33* 
34* 



217415_.CC 
217416. CC 
217416.40 
217417.40 
217420.00 
21742C.4C 



J3 CI0J]36_^C C 
C0CC10.35 
217446. 7C 
0C34G5.35 
217432.32 
C 0340 6.3 5_ 
217432.32 



80 
"30 
80 
04 
C2 
04_ 
"C2 



217441. G4 AC 



KCPERR 



_ri,2,J>14,MMCPCW + l.< 
SV,~$14,"$L~ 
SF(BU,16),MCP8AC+3 
KVI, 14, S 10 ERR 
BXE.Z EC 75 
KVI, 14, S RE J 
B"XE,"Z~ EC 75 



•SAVE 14 AND 15 



HA000026 
"HA0600 2?~ 
HA000028 
HA000029 
HA000030 
HAOG00 31 
HA0000 32" 
HA000033 
HA000034 
HA000035 
HA000036 
HA000037 



020067.12 FO 



56,-18 



•ERROR CCDE 



35* 217421. CC 



20 
!» 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
3 7* 

38* 
39* 
4C* 



217421.40 
217422. CO 
217423. CC 
217423.40 
217424.00 



215006.34 30 
CCCCOO.CC 8E 
217424.37 01 
230566.10 CO 
217446.70+ 



000000.33 00 



Z EC99 LV,14,SYC0CH 

REL(SECP) , .0($14) 

LVI ,$15, $+1.0 

B.SA8IQS 

VF, NCPBAC+3.56 



-CONSOLE CHANNEL NUMBER 



Al*. 

42* 
42* 
44* 
45* 
46* 
47* 

4€* 



217424. 4C 
217425. CC" 
217425.40 
217426.40 
217427. 4C 
2 1 74 3 C. 40 
21743K4C" 
217432. GO" 



_C_CC_0_C_2__ 
217446. 7C+ 
CCCCOO.CO 
217437.30 
COCCOO.CC 
21 74 41. CO 
___2_1_TA3~1«44 
217451.03 



CF, 2.C 

VF,MCPBAC+3.56" 
CCW,0.0($14) ,MCCK1 
BB,MCCW1+.24,MCCW 
W(SECP) ,0.0( $14),MMCPCW 
TI,2,KMCPCW+1.0,$14 



HA000038 
HAC00039 
HA000040 
HA000041 
HA000042 
HA000043 



dE 
80 
8E 
80 
CO 
30 



217437.21 00 
217425.74 02 
217440.13 OC 
000036.04 AO 



VCCW 



-LOOP UNTIL CHANNEL 
-IS RELEASED 



BD,_|_ 

SV, 1,ZEC75S~ 



-MCP CANNCT CONTINUE 



HA000044 
HA000045" 



Z EC 75 



wai 



TIME CLOCK CCC54C41 
L I N E ~ L OC A Tl CN" " 



PUNID 11D11MCP CARD IC FA0GG047 CIST. OF 3/C1 
_____________ ( _^___ ___________ .__ 



3/01 



PAGE NUMBER 148 
LOCATION 2174 32 



1* 217432.40 217450. C3 CI 

.* 217433. CC 217370. CC 80 

_* 217433.40 217362. 50 00 

4* 217434. CO * 216242.35 CI 



LVItl 
SIC, J 
B, JZE 
LVItl 



,Z EC75 
ZECM 
CBR 
4,KSUPP 



M 



-GET MESSAGE ACCRESS 



1 » 

t » 

S* 

1C» 



217434 
217435 
217435 
217436 
217437 
21744C 



•4p_ 

". C C 

.40 

.40 

.00 

.OC 



2173 70.35 
21 7451. C2 
217440.53 
217421.50 



_0 

30" 

80 

CO 



_____ 

LV, 1, 
M + KB 
B,Z E 
CW,C 
CW,MC 



4,JZECM 

ZEC75S 

U,3),M MCP CW+.43 

C99 



-R E S T C R E I D E F _B_R_ANp_ H _ 
-UPDATE CONTROL WORD 



HA000047 
HA000048 
HA000048 
HA000049 



HA000050 
"HA000051" 
HA000C52 
HA000053 
HA000054 
HA000055 



003000.22 60 



CCCOCC.O0+ CCO COOOOO OCCCCC 
217443.00+ CCO C00005 OCCCCO 



MCCW1 
MMCPCW 



P__C,5. 

ItlV 

), ( 16 )F 
) ,I16)A 
),<16)F 
,16), ( 1 
)DC(BU) 



C 



-COPIED Cw 
-WRITE CW 



___ 
12* 
13* 
14* 
15* 
Id* 



2 _■ _*_*_»_■■ 
217443, 
217444, 
217445, 
217446, 
217446, 



co_ 

00 
00 
CC 
CC 
20 



_o o c c o 2 ._ c g 

177 77 7 777 7 777 77777777 7 
12 525252 52 52525252 52 52 
17 777 7777 7 740000CCCC00 

176775 



_(_!____ 

ddi eu 

DDIfiU 
DDIBU 
DD(BU 
( IQS* 



HA000056 
HA000057 
HA00003ti 
HA000059 
HA000060 
HA000061 



MCPBAD 



FFFFFFFFFFFFFFF -11111 

AAAAAAAAAAAAAAA 

FFFFFFFCOOOCOCO -111111 

6JFDFD -TWO CARRIAGE RETURNS 
, TYPE_ XX_JJ<RP *___._ 



n* 

IE* 
19* 
2C* 
21* 
22* 



2 1 74 50 . _C_C_ * COCCOi ._C C 

217451. CC CCOOCC.OC+ 
217451.40 CCOOCC.CO+ 



23* 
24* 
25* 
26* 
21* 
2fcft 



217452. CG 
217452_.40 
217453.00 



2_* 

3C* 



217453.40 
217454. 4C 
217455. 4C 
217456. CC 

_1_456_40 
2______CC 

217457.4C 



217452.52 C6 

_C_ClC_C_4_0_._3_5 _0 1 

215265.35 DC 



A _ EC 7_5_ H _ _DR Z (.N 1 , 1 1 ) 
I EC75S VF,C.O 
S CISIC VF,C 

«*»** ENTER HERE 
SCSPDS BIFZ,S.32 

LVI ,$14,32.0 



-LOCATION GENERATING ERROR CODE 
FRCM B, DMCP ERROR ****** 



CCCCC3.CC 
CCCC21.CC 
215231.47 
217456.47 
_C0_GA0_6__35. 
2174 5 1 .40 
217372. IC 



80 
80 
AO 
C6 

C_l_ 

80 
CO 



215230.34 AC 
215246.36 AC 



_SV<___ 
TI, 14 
TI, 15 
BE, ST 
BOPZ, 
LVI ,$ 



14, SJIC 
,3.0, ST 
, 17.0, S 
LR+1.32 

$.32 
14.SBR4 



LR 

TLR + 1 
(.26, 





4.C 
2J1111C1 



__.!____ 

6, SD 



CISIC 
ISP 



HA000062 
HA000063 
HA000064 
HA000065 
HA000066 
HA000067 



HA000067 

HA000068" 

HA000068 

HA000069 

HA000069 

HA00007Q 

"haoooq/i" 

HA000071" 



20 
!9 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
I 



wai 



I 1 ME CLOCK 0CC54C41 PUNIO 11C11PCP CARD IL HBOOOOOl CIST. CF 3/C1 
------ l oc A Tl C"n"~ " " ~ P I N A R Y~ CU TPLi T N A W ~ " STATEMENT - 



3/01 



PAGE NUMBER 149 
LOCATION 



1* 
2 * 

2 * 

i* 21J46C. CC __* 
5 * 
7*~2^746C~.C0~~ 



1C0100000CCC0C0 AECMPT 



£* 


217460.55 






0437147 


c * 


217461.00 * 


C0CCC2.CO 






1C* 


217463.00 


C0CCC0.40 






n* 


217463. 4C 


217463. CC 


30 




12* 


217464. CC 


217530.10 


10 




12* 


217464.40 


217527. 11 


10 




14* 


217465. OC 


215324.40 


90 




15* 


217465. 4C 


217526.32 


42 




It* 


217466. CO 


215324.00 


90 




17* 
It* 


217466.40 
217467.00" 


217526.33 
217471.01 


42 

DO 





IS* 


217467.40 


215342. CO 


80 


000021.36 AC 


2C* 


217470.40 


217471.04 


CO 




2]* 


2174/1. OC 


217471. C3 


BO 




22* 


217471.40 


217541. C3 


30 




22* 
2* * 


217472. CC 
"2 174 73". CC 


215342. CC 

cocccoVai 


80 
"0 5 " 


qqqo2i.C2 ac_ 


25* 


217473.40 


217474.01 


DO 




26* 


217474.00 


217474.03 


BG 




2 7* 


2174 74. 4C 


000CC1.C3 


05 




2£* 


217475.00 


217541.43 


30 





- *«««*»**«» »»*#****»«**#**********»»«******»»**»«******** ************** HBOOOOOl 

*««*****««#*** THE ERROR DUMP ROUTINE ********** HB000002 

- a************************************** *e*«* **«**#«•»«♦«**»«*««*»«***** HB000003 

_SLC_,S _HBCG0004_ 

CNOP, \___ _ ___ "_ ~_~~__ " HBOOOOOd 

~DD7e>U,45)~,0~{ .3>2T.TlYl HB0C00Q6" 

hXr{0,18) HB000007 

B,AEDUMP HBC00007 

URZ(N),2 HB000008 

_DRZ_[8U,32],_1_ _ _ HB0G0009 

AE_C_UWP_~ LV t *q7 AtpKPT + 3^. "" " -FhMI) ~_~ HB000010 

" ~LX,4,AECMPA "HBOOOOll" 

SX,4,AECMPI HB000012 

AEDMP2 KV,$0,SPPLB HB000013 

BXL,AEDRET HB000014 

K\/,_$0,SPPLB __ HB000015 

_ BXH,AECREJ~ " "_ ~__~~ ~~_~"_ ~_~_'~~_ ~_~_ HB000016 

SVA,$0, lALCMP'l " " " " ~ HB000017 - 

TI, 15,SLRBU+14.,$1 HB000018 

BD,$.32 HB000019 

LVE,1,$ HB000020 

SVi_$ltAECKPB + 8.C_ HB000021 

U^>SLRBU + 14.,$1 HB000022" 

V+I»$0,.32"~ ""' " ~ " HB000023 

SVA,$0,$.32 HB000024 

LVE,$1,$ HB000025 

V+1,41,1. HB000026 

SVtlltAEDMPB+8.32 HB000027 



6 

0! 
I [ 

SI 

:i 

''V . 

S! 
91 



6: 
05 



AECMP1 



2S* 
~3C* 
3 1* 
32* 
33* 
34* 



217475^.40 
217476.40 
217477. CC 
217477.40 
217500.00 
217500.40 



215342. GO 
"COCCOO.41 
217477.41 
217477.45 
217500.50 
217501. 10 



80 
5 
DO 
BO 
C6 
46 



000021. C2 AC 



TI, 1,SLRBU+14.,$1 

V + I ,"$0, .32 "" 
SVA, $0,1.32 
LVE,$2, $ 
BUSAZ,$.32 
BACZ,1>.32 



HB000028 

HB000029" 

HB000030 

HB000031 

HB000032 

HB000033 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
'36"* 
37* 
3€* 
39* 
4C* 



2175C1.CC 
217501.40 
217502.00 
217502. 4G 
217503. CC 
2175C3.40 



217501, 
217541, 
217541, 
215324, 
217526, 
215C12, 



_4_C_ 
"02 
46 
42 
32 
46 



_C_0 
30 
30 
90 
42 
90 



_B £_,_$. _3 2 

LV f $l,"AECFPB + 8.6 
LV,$3, AEOMPB+8.32 
KV,$1,SPPLB 
BXL,AEDRET 
KV, $3, SHARK 



HBqqqq34 

"HB000035" 
HB000036 
HB000037 
HB0Q0038 

HB000039 



41* 
42* 
42* 
44* 
45* 
46* 



217504.00 

2 17504.40" 

2175C5.CC 

2175C5.4C 

217506.00 

217506.40 



217526.33 
C0CC21.C6 
217 526.33 
CC0C25.C5 
C0CC03.13 
217511.32 



42 

90 
40 
30 
C4 
42 



_BXH, AECRET 
KV,$3,"$1 
BZXh.AEDRET 
SV, $2, $5 
KVIf $5 t 3. 
BXL,AECKP4 



47* 217507.CC 
48* 217507.40" 
4S* 217510.00 



A°_ C _ C AI-_13 04 
217511.32 C2" 
000017.53 04 



KVI_f $5, 15.__ 
"8XE,~AECMP4 
KVI,$5, 15.32 



HB00q040 
"HB000041" 
HE0C0042 
HB000043 
HB000044 
H8000045 
HBC 00046" 
HB0Q0047 
HB00004B 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD IC HBGO0050 



DIST. CF 3/C1 



3/01 



LINE LOCATION BINARY OUTPUT NAME STATEMENT 



PAGE NUMBER 150 
L OC ATI C~N 2"lY5 10 



1* 

I * 
2* 

If 
£ * 



217510 
217511 
217511 
217512 
217512 



40 
CO 
40 
CO 
40 



217 
217 

COG 
CCC 
COC 



52 6.32 
527.10 
CCO. 03 
CCC. 47 
CC1.C5 



CO 
10 
04 
04 
34 



AECMP4 



BZX£, AL 
LX,4,AE 
SVA,1, ( 
SVA,.3, . 
SVt 2, 1. 



CRET 

DMPI 

$4) 

32{$4) 

($4) 



HB000050 
HB000051 
HB0G0052 
HB000053 
HB000054 



£* 

7 * 

E* 
c # 

K* 



217513 

217513, 

217514. 

217515 

217516 



CC 
40 
40 
40 

CC 



00GC21.CI CO 

C0CC01.30 84 001000.36 FO 

C0CC00.30 81 217520.34 00 

00CC00.41 05 

C0CC01.51 06 



SVA,$0, 
CM111K 
BZB,.24 
V + I ,$0, 
V+IC,$4 



$1 

BU, 1) ,1.24($4) 

{$1), AEDMP7 

.32 

, 1.32 



HB000055 
HB000056 
HB000057 
HB000058 
HB000G59 



ill 
12* 

12* 
14* 
15* 
16* 



217516, 

217517, 

217517 

217520 

21752C, 

217521, 



40. 

00 

40 

CO 

40 

00 



217 

COC 
215 
000 
215 



52_7._U 
465.30" 
001.51 
C05.12 
001.53 
012.52 



1Q 
40 

CD 

30 

34 

30 



SXt_4,AE 
BZXCZ,A 
V-I ,4, 1 
LV,5,S8 
SV,5, 1. 
LV, 5,SM 



CMPI 

EDMP2 

.32 

APP 

32{$4) 

ARK 



H6000060 

HBO 000 61" 

HB000062 

HB000063 

H8000064 

HB000065 



AE0MP7 



II* 
It* 
19* 
2C* 
21* 
22* 



21Jb2_l_: 

217522 

217522, 

217523, 

217524 

217524 



A0_ 
CC 
40 
CO 
CO 
40 



_QO.Q. 

215 
217 

CCC 

COC 
OCC 



C_02_._13 
C05. 12 
524.33 
001.30 
017.53 
C02.53 



34 
90 
42 
84 
01 
34 



^V L 5 t 2. 
KV,5,SB 
BXH,RDU 
CMOCOOt 
LVI ,5,1 
SV,5,2. 



C|$4_) 

APP 

MPT 

BU,1), 1.24($4) 

5.32 

32U4J 

EQMPBjYLDLL 



HBO 00 066 
~HB000067~ 
HB000068 
H8000069 
HB000070 
HBC00071 



001000.00 FO 



RCUMPT 



22*_21752 5 J .00_* 2J.7531.C0_ _8_0_ __2 31430. 26_ AC 

24* 217526. CO C0CC40.1C CO 
25* 217526. 4C 000041.00 80 
26* 217527.00 217531.00+ COO 
21* 217530.00 217531.00+ OCO 
2£* 217531.CC * CCCC13.CC 



-LLlLIlA 
BiDMCP 
,DRET 
XW,AEDM 
XW t AEDM 
DRZIN), 



HB000072 
HB000073 
HB000073 
HB000074 
HB000075 
HB000076 



000006 

C0C006 



OCOOOO 
OCCCOC 



AEERET 

AECMPI 

ALCMPA 
AtCMPB 



PB,6 
Pfi,6 
11 



20 

19 

IB 

17 

16 

15 

14 

13 

12 

II 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



wai 



1 IME CLGCK CCC54041 
LINE LCC A TTcK 



PUNID 11D11MCP CARD ID IAC00G01 
BINARY" OUTPUT" ~ N AM 7 £ 



DIST. OF 3/C1 
"STATEMENT 



3/01 



PAGE NUMBER 151 
l CC ATI W ~ 



s 



J* 
2* 
2 * 
<* 



2 1 7 544 . CC 
217544. CC 



22 1140. CC 

2211C2. 10 

221152 

CC0C02 

COGCGO 

217560 



80 
~C0~ 
CI 
3C 
8A 
01 



—##*******#****#«**« READ *#*****************— 
- #*«*#««#»**»«**#*»****#*»***»*****♦#**#««*»********#****«*******#***** 

SLC,$ 
I START SIC, 8 IRA 



IA000001 
1A000002 
IA000003 
IA000004 
IAG00005 
"IA000006" 
IA000007 
IA000008 
IA000009 
IA000010 
lAOOOOjl" 
IA000012 
IA000013 
IA000014 
IA000015 
IA000016 
I AC 000 17 

uooooia 

IA000019 
IA000020 
IA0C0021 
IA000022 
IA66002 3 
IA000024 
IA000025 
IA000026 
IA000027 
IA000028 
IA00G029 

ia'oooqjq" 

IA000031 

IA000032 

IA0CC033 

IA000034 

I AO 000 35 

IA00G036 

IA000036 

IA00003 7 

IA00003B 

IA000039 

IA000040" 

IA000040 

IA000041 

IA000042 

IA000043 

IAOG0044 

IA000044 

IA000045 



6* 
1* 
t* 
S* 
1C* 



217544. 4C 
217545. CO 
217545.40 
217546. CO 
217547. GO 



21 
61 
32 
61 



B,B CInCR 
LVI,8,Z EVL MK 
SV,8,S EVL MKU12) 



-BRANCH TO CHECK CV* 



-STORE MASK AUCR IN UA 



001000.36 FC 



CM1111{BU,1),S 
LVI,8,K FCRK 



CH CPU1C) 



si 

91 



11* 

12* 
12* 
1«» 
15* 

16* 



217547.40 
2175 5C.CC 
21755C.4C 
217551.00 
217551.40 
217552. CC 



C0CCC2.21 



3C 

04 
GO 
00 
00 

CO 



SV,8,S EVL 
BR, C.Ot $4] 
3,K ILEGL 
BiZ OISK 1 
B,Z STEVL 
H t K TEST M 



TB($12) 



-STORE TABLE BASE ADDR _I_N UA 
"-FOR "BRANCH "INTO" ECU IP~ TABLE " 
-ILLEGAL EQUIP CODE - FAKE 
-DISK - 1 
-CONSOLE - 2 

-CARU READER - 3 



COOCOC. 14 
220C64.1C 
217577.10 
221144.50 
217565.10 



EPGK 



17* 
IE* 
IS* 
2C* 
21* 
22* 
23* 
~2A* 
25* 
2t* 
21* 

2c * 



2175 52.4 C 
217 5 5 3.00 
217553.40 
217554. CG 
217554. 4C 
217555. CO 
217555.40" 
217556. CC 
217556. 4C 
217557.00 
217557.40 
217560j.CC 
217560.40" 



22 CC 64. 10 
22GC64.1C 
220C64. 10 
220C64.10 
221144.50 
22CC64. 10 
22 CC_6_4._i_C"_ 
22CC64.1C 
220G64.1C 
220C64. 10 
22C064.10 
2 2 C C6 4 . 1 
22CC65.5C 



CO 
00 
CO 
CO 
00 
CO 
00 
"CO 
00 
00 
CO 
00 
00 



K FORK 



BiK 
~B,K 
BiK 
B»K 
B,Z 
B,_K 
B_,K 
" B ,~K 
B,K 
B,K 
B f K 
B,K 

"b",k" 



ILEGL 
ILEGL 
ILEGL 
ILEGL 
STEVL 
ILEGL 
ILEGL 
ILEGL 
ILEGL 
ILEGL 
ILEGL 
ILEGL 
K LCC 



-INCORRECT EQUIPMENT - 
-INCORRECT EQUIPMENT" - 
-NG EQUIPMENT - 6 
-NO EQUIPMENT - 7 

-TAPE - 10 
-NC_ _E_Q U I P M E N T - 1 1 
- NO E Q U ifP ME NT - 12 
-NO EQUIPMENT-13" 
-NO EQUIPMENT - 14 
-NO EQUIPMENT - 15 
-NO EQUIPMENT - 16 
-NO EQUIPMENT - 17 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



3C* 
31* 
32* 
33* 
34* 
35* 
"36* 
37* 
38* 
39* 
4C* 



217561.00 
217561.40 
217562. CC 
217562.40 
217563. CO 
217563.40 
217564. CC" 
217564.40 
217565.00 
217565. 4C 
217566. CC 



221161. 10 
217C71.10 
C0CCC4.11 
217567.72 

CCCC07.52 
21 7 56 5.31 
C0CC06.CC 
220143.10 
C0CC02.42 
217566.71 
00CC07.C2 



CO 
00 
04 
CO 
3C 
40_ 

"ac 

00 
3D 
40 
3C 



K TEST M 



B,R VFY 
B f P CSRC 
KVI ,4,4. C 
BZXE,K YCME 
LV,5,S FILE K($12) 

_bTx vz_,j< Test m 

SIC,"S SCRPMU12) 

B,RSl FLK -IF SO, 

LV, 1,S F M0CE($13) 

BZXVZ,$+1.0 

LV, 1,S LABM{$12) 



-TEST IF TAPE 

-BR. IF CONSOLE 
-IF TAPE, TEST IF 



SPACE OVER LABEL 

-IF NOT, SET CHAN 
-IF ICD NULL, USE 



FILE K IS ZERO 



TO FILL MODE 
LABEL MODE 



41* 
42* 
42 * 
4«* 
45* 
46* 
47* 



217566.4C 
217567. CO" 
217567. 4C 
21757C.CC 
21757C.40 
217571.CC 
217571. 4C 



_2_ 1 _ 7 _ 6 _ 2 A-_4_0 80 
217615.10 CO 



SIC t K K MODE 

B,K MODE" 

LV,C,S CW ACR($12) 

SVA,0,K G0+.32 

CNOP 

L X , C , i + 1 . G 



C0CC03, 
217572, 
OOGCCO, 
217572, 



40 
41 

30 

CC 



3C 

DO 

00 
10 



K YCME 



_CC_C_C04._C1_1C 
OOOCOO.GO 8E 



SXtCf.! TO INSJ 4 12 ) 

"RD,C.O( $14), 



48* 217572. CC * 



000000. CI oc 



K GO 



-ISSUE RD COMMAND 



wai 



TIME CLOCK 00054041 



PUNID 11D11MCP 



CARD IC IA00G047 



DIST. CF 3/01 



3/01 



PAGE NUMBER 152 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



217573 



1* 217573. CC 

2* 217574.00 

3* 217574.40 

4* 217575. CC 



C0CCC0.71 
C0CC00.51 
217576. 32 
215C01.C1 



8B 
04 
CO 

80 



00100G.36 FO 



001000.36 FC 



CM111HBU, 1),S 
KVI,4, .32 
BZXE, $+1.32 
CM1111(BU, 1) tS 



RC($11) 



HS ECH 



IACC0047 
IA000048 
IA000046 
IA000049 



_ * 

~_ _ 
i * 

£* 

.* 

IC* 



? 1 ^576 .CC 
2175 76.40 
217577.00 
217600.00 
217601. CC 
217602.00 



A162A2.G3 
221261. 10 
215001.21 
215001.01 
000000.32 
CCCCC3.34 



CO 
80 
80 
8A 
80 



LVItltK SUPP 



217601.34 
217602.34 
221065.34 
011067.20 



02 
00 
06 

50 



BiM IGREJ 
ZDISK1 BB, SL0CSU»$+2.0 
BZB,SHSECH,$+2.C 
BBZ,SCFCP($1C),KCBUSY 
L(BU,9-SCD) , SCW. 28 ($13), - 



18 -CW COUNT OFFSET BY 9 FOR ARCS 



I AGO 00 50 
IA00Q050 
IA000051 
IA000052 
IA000053 
1A000054 



11* 
12* 
12* 
14* 
15* 
1.* 



21760 3. 0_0_ 
217603.40 

217604.40 
217605.00 
217605.40 



_Q0.CCi0._2_0 

CCCCC3.45 



30 
8D 



LV_8_$L_ _IA000055 

"CT0111(BUf9},S CW + .37~m3),-_7 -TEST IF COMPLETE ARC IA000056 

-TABLES ARE ONE ARC AHEAD OF MACHINE AND ASSIGNMENT IA000057 

BZRZ,$+1.0 -BRANCH IF NOT COMPLETE ARC IA000058 

.-1,8,1.0 -SUBTRACT 1 FOR FULL ARC REQUEST IA000059 

Vtt_tS_CU_ARCJ$13) _ -ADD CURRENT, ARC_ AD0RE_S_S__ „__ IA000C60 



011062.57 70 



217605. 74 CO 
C0CC01.21 OD 
00CCG6.20 BD 



II* 

u* 
l .* 

2C* 
21* 

22* 



21_76C6_.0_0_ 

2176C6.4C 

217607.CC 

217607.40 

21761C.4C 

217611.CC 



Q0.CC05._60 
22CC64.33 
C0CC06.CC 
000000.40 
00CC10.C0 
217612.72 



42 
3D 
8A 
90 
C2 



_V_8 t S_M^ ARCJ_$_13) -CCMPAREWITH M AX_ ARC_ A_DDR F_GR _F I LE 

BXH,K ILEGL -TOO MANY ARCS 

LV.CS CU ARC($13) 

L(B0,18),S ARCACU1C) ,-18 

KV,0,SL -TEST IF LCC NEEDED 

BXE.1+1.32 



IA0Q0061 
I A 00 00 62 
IA000063 
IA000064 
IA000065 
IA000066 



022067.20 5G 



21* 
2** 
25* 
26* 
27* 
2£* 



217611.4C 
217612. 4C 
217613. 4C 
217614. CO 
217614.40 



_2_1_5_C_0_1__2_1_ 
000C00.47 
220105.40 
22C100.5C 
221144. 5C 



80 
8B~ 
80 
00 
CO 



220065, 
221144, 



74 



CC 
C4 



!3JB__SL_C_y_KKLCC 
BZBZ,S SEL($H"},Z 
SICK G LCCR 
B,K G LCC 
B,Z STEVL 



IA000067 
IA000068 
IA000069 
IA000069 
IA000070 
IAG00071 



STEVL 



3C* 
31* 
32* 

32* 
34* 



»«*«««««**«*••«**«*« 



CHANGE MODE 



««-«*-»«*_*»»*»*«***« 



IA000072 

IA000073" 

IA000074 

IA000075 

IA000076 

IA00Q0 77 



CALLING SEQUENCE ** 



*** COCE ** 01 



LV, 1, (CODE) 

SICK K M0DE4B,K MODE 

ECC ODD* 10 - NECC EVEN* 



11 - NECC CDC 



_1» 

36* 
37* 
36* 
3S* 
4C* 



217615.CC 
217615. 4C 
217616.40 
217617.00 
217617. 4C 
217620.00 



_CCCC10_.C3_ 
C0CCC0.62 
217624.76 
217624.02 
217622.43 
CCCCC0.62 



3_0„ 
8A 
C2 
31 
CO 
8 A 



K MODE 



J_Y___.t_._L 

KF(BU,2),S C MODE ($10),- 18 
BAE.K K MODE 
LV,1,K M C0DE-1.C($1) 
SVA,1,K MODE C.32 



IA0000 78 

Fa ooo 0.9" 

IA000080 
IA000081 
IA000082 
IA000083 



20 
19 
IS 
17 
16 
IS 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



002067.23 10 



-IS CHAN SET TO DESIRED MODE 

-IF SO, RETURN 

-IF NOT, PICK UP OCTAL CODE 



002067.12 FO SF(8U,2),S C MODE ( $ IC ) ,- 18 -RESET CHAN ST TABLE 



Alt 
42 * 
43* 
44* 



217621. CO 217622.00 10 

217621.40 * C00C04.C1 IC 

217622.00 OOCCOO.OO 8E 

45* 217623. CO 221350.43 01 

46*_21762 3_.40_ 221354.40 80 SICK EGP R 



000000.15 CO 



K MCCE C 



CNGP 

LX, C,$+l. 

SX,C,S 10 INSU12) 
CTL(SE0P),0.C{$14) ,C.C 
LVI.l.K SEOP T 



-MODE CHANGE COMMAND 



IA000084 

IA000085" 

IA000085 

IA00G086 

IA000087 

IA000088 



47*_2 1762 4_.CC 
4_* 217624.40 
4S* 217625.00 
5C* 217626.00 
51* 217627.CC 



__2_2_1261. 1C_C0 

217624. 5C GO 

CCC057.00+ 000 

CC0156.00+ GCO 

CC0157.00+ 000 



B,M IQ__EJ -WAIT FUR END OP 



000000 OOOOOC 
COCOOO OCCCOC 
COCOOO OCCCOC 



K K MODE 8 f $ 

K V CODE XW, (8)57., 
XWt (8)156., 
XW, (8)157., 



-ECC ODD PARITY 
-NO-ECC EVEN PARITY 
-NO-ECC ODD PARITY 



IA000088 
I AO 00089 
IA000090 
IA000091 
IA000092 



wai 



TIME CLOCK CCC54C41 PUNID 11D11MCP CARD IC IBGOCOOl 

~UNE LCCATlCN B I NARY~ CUTPlfT N~A> : t ~ 



CIST. OF 3/C1 

STATEMENT"""" 



3/01 



PAGE NUMBER 153 
L OC ATI CN" 



1* 
2* 
3* 

A* 
'" 5 * " 
6* 
1 * 
£* 
9* 
1C« 



21J63C 
21763C 
21 763 C" 
217631, 
217631. 
217632. 4C 
217633. OC 



,_C_C 

.cc~ 

.40 

CC 

,4C 



_2_2.LLiO.CC 
221102. IC 
221152.41 

CCCCC0.32 
C0GCC2.41 
217644.41 



30 

00" 

CI 

8A 

3C 

01 



001000.36 FC 



— ********************************************************************** 

-***«**««*********** WRITE * «**»********»*»***- 

- «****»***»*********»*****«**#**«^*«********«************************** 

SLC,$ 

_ e _a r1 sic, r |_ir*__! "~~__ _ 

" "" B, "~B CWCR 

LVI, 0,E MK1A 
CMlUKBUf DtS CF 0PU1C) 
SV, OiS EVL MK(EA) 
LVltO.fc HR18 



•MASK AD. IN SLCT IN U.A.T. 



IB000001 
IB000002 
IB000003 
IE000004 
"IE0000 05" 

"ieooooos" 

16000006 
IB000007 
IB000008 
IBC00009 

"IB000009" 
IB000010 
IB000011 
IB000012 
IB000013 
I BO 001 4 
I BO COO 15 

"16000016" 
IB000017 
IB000018 
IB000019 
IB000020 
IB000021" 
IB000022 
IB000023 
IB000024 
IB000025 
18000026 
18000027" 
16000028" 
IB000029 
16000030 
1B000031 
IB000032 

180000 3 3 
18000034" 
IB0000 35 
IB0G0036 
IB0000J6 
IB000037 
"16000038" 
IB0000 39" 
IB000040 
IB000041 
IB000042 
IB000043 
IB000044 
IB0C0044 



11* 2176 3 3.40 
Hi 217634.CC 
? 17634. 4C 
217635. CC 
217635.40 
217636. CC 



C _°_ C _ C _°_2'_C1 _3C 
"C0CC00.14 C4 
220064.10 00 
217577. IC CO 
221144.50 00 
220C64.1C CO 



SV,C,S EVL TB($12) 



11* 
14* 
15* 
16* 



BR,C.O( $4) 
B,K ILEGL 
B,Z CI SKI 
B,Z STLVL 
6,K ILEGL 



-BRANCH ACCORDING TO EQLIP 
-NO EQUIP - SYSTEM ERROR 
-DISK 
-CONSOLE 
-CARD READER - SYSTEM GCOF 



11* 

If*" 

19* 
2C* 
21* 
22* 
2 3* 



2_1J6_3_6_.4C 
217637. CO 
217637.40 
21764C.CC 

217640. 4C 
217641. OC 
217641.40 



_21_7_656. 10 CO 
217667. IC CO 

220C64.10 
220C64.1C 
221144.50 
220 C 6 4. 10 
22 CC 64.10~ 



B L EW_MCCE 
B,EWR3.1 
ILEGL 
ILEGL 
STEVL 
ILEGL 
ILEGL 



-PUNCH 
-PRINTER 

-6 RESERVED 

-7 RESERVED 

-TEAPE 

-11 RESERVED _ 

-12 RESERVED 



00 
CO 
00 
GO 
"CO 



B,K 
B,K 
B,Z 
B,K 

¥,"k 



2< * 
25* 
26* 
21* 
21* 



217642. CC 
217642.40 
217643.00 
217643.40 
217644. CC 



22CC64.1C CO 
22CC64.1C 00 
22CC64.1C CO 
22CC64.10 CO 
220064. 10 CO 



B,K 
B,K 
B,K 
BtK 
B,K 



ILEGL 
ILEGL 
ILEGL 
ILEGL 
ILEGL 



-13 RESERVED 
-14 RESERVED 
-15 RESERVED 
-16 RESERVED 

-17 - 



RESERVED 



2_i* 
3C* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
3E* 
39* 
4C* 



217644^40 
217645. CO" 
217645.40 
217646. CC 
217646.40 
217647.00 
217650. CC" 
21765C.40 
217651.00 
217651.40 
217652. CC 
217652. 40 



22CC65.5C 
2 2 1 16 1.1 
CCCCC4.11 
217652.72 
00CC10.50 
C0_C_C_C_0_._3 2 
CO C~0 7. i[2" 
2176 56.31 
217656 
C0C006 
220143 
COCCGC 



00 
"00 
04 
CO 
3C 
84 
_3C 
40 
01 
3C 
CO 
04 



E WR18 



B_,_K KLCC 
"B,R "vfy" 

KVI ,4,4.0 

BZXE,E WR26 

LV,4,S C REELU12) 

B_B ,_S F : P ( $ 4 ) » K ILEGL 
1 V , 5 ,S F I L § ~ M $ 1 2 ~) 

bzxvz",e~"w mode" 

LVI,0,E ki MODE 
SV,0,S SCR PMU12) 
B,RS1 FLK 



SEL BIT 

•VER BIT" 

TEST IF 



0N_ 

ON 

ECUIP 



IS TAPE 



220064.34 02 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



CI 
01 
IC 
51 



WR26 KVI, 4, .32 



•TEST IF TAPE FILE PROTECTED 

•IF SO, FAKE EPGK 

• IF TAPE ," T E S T I F " A T " L ABEL" " 

•IF NOT, "PROCEED 

•IF SO, SPACE CVER LABEL 



TEST IF DISK 



41* 
42 * 
43* 
44* 
45* 
46* 



217653^.00 
217653.40" 
217654. 4C 
217655. CC 
217655.40 
217656.00 



217655.32 
2 1500 1.0 1 
217667.10 
00CC01.11 
217667.32 
0CCC02.42 



CO 
80 
CO 
04 
C2 
3D 



001000.36 FC 



BZXE, $+2.C 

CMlllHBU, 1) ,S HSECH" 
B,E WR31 
KVI ,4, 1.0 
BXE,E WR31 
E fc MODE LVflfS F M0CE($13) 



-TEST IF CONSOLE 



•SET CHAN TO FILE MODE 



47* 

"46* 



2 176 56 .4C 
217657. CC" 



21_7657.71 40 

0CCC0"3.0 3 01 



BZXVZ,$+1.0 
"LVI,1,S TD MOD" 



-IF IOC NULL, USE STANDARD MODE 



Hfll 



TIME CLOCK 00C54C41 



PUNID 11D11MCP 



CARD IC IB000046 



GIST. OF 3/C1 



3/01 



PAGE NUMBER 154 



V 

J 

9 
L 

9 

6 

01 

II 

31 

£1 

t-1 

91 

91 

Zt 

81 

61 

03 



LINE 



LGCAf ICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



217657 



1* 217657. AC 

2* 21766C.0C 

2* 217660.40 

4* 217661.40 



217624.40 
217615. 10 
CC0C00.33 
COCC00.62 



80 
GO 
8A 

8fi 



217667.34 00 
217667.34 04 



SICK K MODE 

B,K MCCE 

BZB»S MULTI {$10), E WR31 

RZBZ,S ELG( El),EwR31 -GO 



-IF SINGLE UNIT C, PROCEED TO RD 
TO SET UP WRITE IF NOT ELG 



18000046 
IB000046 
IB000047 
IB000048 



5 * 

1 * 

£* 

9* 

IC* 



2 1 76 6 2. 4 C 
2 176 6 3. CO 
217663 
217664 
217665 



COG COO .30 
217664. CC 
C0CC04.G1 
OOOCOO.GO 
217666. C3 
221261. IC 



00 
10 
IC 

8E 
CI 
CO 



CNOP 

LX,C,$+1.C 

SX,C,S 10 INS($12) 

CTL(S£0P),0.C($14) ,46. 

LVI,1,$+1.0 

B»_M_I___BJ_ 



] BO COO 49 
IB0000 50 
IB000050 
IB000051 
IB000052 
IB000052 



40 

CC 
CO 



000056.15 OC 



-ERASE LONG GAP COMMAND 



217665. 4C 



Li! 
12* 
12* 
14* 



217666.CC 
217666. 4C 
217667.00 
217667.40 



221354. 4C 8C 



221350 

0OOC03, 

217671, 



60 
61 



CC 
3C 
DO 



SIC_K 

B,K Si 



ECP_R 
OP T 



-CHECK FOR INDICATORS 



It* 21767C.CC 



217671. CC 10 



EWR31 LV,$8,S CW ADR(EA) 
SVA,EX,E WR3H + .32 

CNOP 

LX, C,$+1.C 



-CTW AD. IN WRITE INST. 



I8000053_ 

16000053 

IB000054 

IB000055 

IB000056 

I 800.0057 



II* 
16* 
19* 
2C* 
21* 
22* 



2176_7C_.4C 
217671.00 
217672. CC 
217672. 4C 
217673. CC 
217674.00 



_Q.0CC_04_._0l 
COCCCO.CC 
217673. C3 
221261. IC 
C0C000.72 

_2_1_6_2_42 -_ 10 
+CGCCOCGC 



IC 

8E 
CI 
CO 
8B 

GO 



SX,C,S IG_INS_(_$_1_2_) 
W,0.0( $14), 0.0 
LVI, I, $+1.0 
B,M 10 REJ 
CMlllliS WR(EU) 
B, K SUPP 



IB000p5 7_ 

IB000058 
IB000059 
IB000059 
IB000060 
IB000061 



00C00C.C3 OC 



001000.36 FO 



EWR311 



-TURN ON WRITE BIT IN U.S.T. 



22* 0CC014_.CC + 
2£* 

00CC15.C0+ 
00CC1C.00+ 



NULL 



EA 



_SYN_l_.C 

$10 

SYN,13.0 

SYN,8.C 

$9 

SYN, 11.0 



__ "UNI TAREA IABLE INDEX 
-CHANNEL STATUS TABLE INDEX 

-FILE AREA TABLE INDEX 

-SCRATCH INDEX 
SCRATCH INDEX 

-UNIT STATUS TABLE INDEX 



15000062 
IB000063 
IB000064 
IB000065 
IB000066 
I BO 000 6 7 



25* 
26* 
27* 

21* 



000013. CC+ 



+OCCCCGCO 
+OCCCOOOO 

+OCCOCCCC 



NULL 
NULL 

NULL 



EF 
EX 

EU 



2i* 

3C* 
31* 
32* 
33* 
3_4_* 
35* 



IB0G0068 

IB000069~ 

IB000070 

18000071 

IB000072 

I B0000 73 

IB000074 



**-***#»*»****#■&***** 



DENSITY 



********************* 



CALLING SEQUENCE ** LV,C,(DEN CODE)* (1 - LOW, - HIGH) 

SIC.S RET ADU12)*6,K DENST 

(COP) 

(UNIT DENSITY SET TO DESIRED DENSITY) 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



3t* 
37* 
38* 
39* 
4C* 



217674.40 
217675. 40 
217676. 4C 
217677.40 



0C0C20.21 
CG0C00.41 
000000.61 
2177C1.36 



80 
8B 
8B 

CO 



001027.20 50 
217701.34 OC 
001027.23 10 



KCENST L(BL, 1), $0.17, 46 

BZB1,SSETDN{$11),ZCHDEN 
KF(BU, 1) tSUDENSUll) ,46 

BZAE,ZCHDEN 



160000^5 
IB000076 
IB000077 
IB000078 
IB000079 



Alt 
42* 
42* 
4- * 

45* 
4£* 



217ICC.CC 
2177CC.4C 
217701. CO 
217701.40 
217702.00 
217702.40 



41* 
46* 



2177C3_.C0 
217704. CC 



_C_0 _C_C_0 5_._C_2_ 
CCCCC1.1G 
217702.74 
C0CC36.03 
217703.10 
_C_0_C_C_3 7_C3 
_0_0_0_C_0"0_6i 
217707.43 



3C 
01 
CO 
01 

00 

Qi 

80 
DO 



-HIGH DENSITY DESIRED 



001027.20 DO 



LV ,__,__ f__T____*12J__ 

fi, 1.0($1) -IF SO, RETLRN 
ZCFDEN BZRZ,KLCWD 

LVI tit (8)36. 

B,$+1.0 
_ K L_Ct_ _C ____YIil_ (8_37. ___ _-L0_ DENSITY DESIRED 

stl|u,i ), sup en sum, 46 '_'_"_ 

SVA,1,K DEN 0P+.32 



IBOOOOBO 

IB000080" 

IB000081 

IB000082 

IB000083 

IB0C00B4 



16000085 
16000086 



wai 



1 IME CLOCK CCC54C41 



PUNID UD11MCP 



CARD IC IB000088 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 155 



LINE 



LOCATION 



BINARY OUTPUT 



NAMC 



STATEMENT 



LOCATION 



217704 



1* 
2 * 

2 * 

i « 



217704.40 
217705.40 
2177C6.CC 
2177C6.40 



CCCCC0.3 7 
C0CC00.30 
217707. CC 
C0CCC4.C1 



8B 
00 
10 
IC 



0C1CGC36 FC 



CMllLKBLjf 1),S SET 0P($11) 

CNGP 

LX,C,$+1. 

SX,C,S IC1NS($12) 



18000088 
IB000089 
IB000090 
IB000090 



£* 

£* 
7* 
t* 
c . * 
IC* 

11* 
12* 
13* 
14* 
15* 
It* 



2177C7.CC 
217710.CC 
21771C.4C 



217711.CC 
2 17711.40 
217712.00 



CCCCCC.CO 
216242. C3 
221261. IC 



8E 
CI 
GO 



000000. C5 00 



K CEN OP CTL,0.0U14),0._0 
LVI,1,K SUPP 
D,M 10 REJ -CHECK IF ACCEPTED 



-CHANGE DENSITY COMMAND 



««««*«««««***»•*« 



bRITi. LABEL 



***»***«**«*»»*** 



216242.C3 CI 
C0CC10.62 3C 
CCCC00.32 89 



K h LAEL 



217713 
?_17 7_14 
217 714 



.00 
.40 



COOCOO. 
217715. 

CCCC04. 



37 

CO 



8B 
10 



220064.34 02 
001000.36 FC 



LVI f_l»K_SUPP 
~LV,~S,S C REEL ($12) 
BB,S FP($9),K ILEGL 
CNOP 

CMlllKBUrlliS SET LP($11 ) 
LX,C,$+1. 



•BACKSPACE BLOCK 

•IF FILE PROTECTED, FAKE EPGK 



1B000091 

IB0Q0092" 

IB000092 

IB000093 

IB000094 

IB000095 

16000096" 

1800009 7" 

IB000098 

IB000099 

IB000100 

IE000101 



1Z* 
1€* 
IS* 
2C* 
21* 
22* 
'21* 



CI 
CC 
CC 
IC 
CO 
IC 
6C 



fit 

8C 
CO 

80 
CO 
8D 



SX L C t 
"CfL.,0 
SICS 
B,M I 
SICK 
8t K _I 

lYs f 



S I0_ 
.C($l 

RET 
REJ 

K IN 
INC 

MODE 



INS ($12) 
4), (8) 176, 
AD ($12) 

D 

(EF),I 



IR000101 
I BOO 01 02 
IB000103 
IB000103 
IB000L04 
IB000104 
IB0C0105" 



217715 
217716 
217716 
217 717 
217717 
'2 1 7 72 C 



.CC 
.CC 
.40 
.00 
.40 
. C 0~ 



COCCCO. 
000005. 
221261. 
221371. 
221370. 
C0CCC2." 



000176. C5 CC 



-BSP COMMAND 



002000.60 50 
402000.55 70 
406000.06 70 



-LOAD "FILE MODE IN $R 



2<* 
25* 
2d* 
21* 
21* 



217721 
217721 
217722 
217723 
2 17724 



.CC 
.40 
.4C 
.CO 
.CO 



217723. 
60CC00. 
217724. 
460CC0. 
217725. 



34 
CC 
74 
CC 



C2 

80 
CO 
80 

00 



Z WLABL 



BRZ,Z 
C T I C 1 
BZRZ, 
LFKB 

B , $ + 1 



WLAB 
1CCBU 
$ + 2.0 
U,6), 
.32 



,2),{8)60C0C0.,1 
(8)460000.0 -GET 



-TEST IF 11 (NO ECC ODD 
-IF NOT, BRANCH 
BCD FOR NECC ODD 



IB000106 
IB000107 
IB000108 
IB000109 
IB000110 



VL* 

~3C* 
31* 
32* 
33* 
34* 



217724 
217725 
217726 
217727 
217730 
21773C 



.40 

.40" 

.40 

.00 

.00 

.40 



6_1_C_CC_C_. 
C0CC02. 
217730. 
COCCOO. 
217731. 
420000. 



CO 
3 3 
74 

00 
50 

CC 



8_0 
"8 
CO 
80 
CO 
80 



406000. 1670 
"0C1003.C6 ~7C~ 

003004.76 70 

406003.16 70 



CIO 11 
CC011 
BZRZ, 
Cllll 
B,$ + l 
CI011 



neu, 
("eu,i 

$ + 2.0 
(BU,3 
.32 

KBU, 



6), (8)61CCCC. 
),S F CEN ($13), 6 

),,9 

6), (8)42CCCC. ,6 



•MAKE BCD C OR E 



-TEST IF DESIRED DESITY IS HIGH 
-IF SO, MAKE BCD H 

-IF NOT, MAKE BCD L FOR LOW DENS 



IBOOOUl 
I 8000112 
IB000113 
16000114 
IB000115 
18000116 



35* 
"36* 
37* 
3£* 
3S* 
4C* 



217731 
217732 
217732 
217733 
217734 
217735 



.40 
• CO 
.40 
.40 
.40 
.4C 



221201. 
217765. 
0CCC07. 
000C07. 
O0CCO6. 
2C2C20. 



CI 
CI 

20 
35 
36 

20 



BO 
30 
8C 
8C 
8C 
80 



LVE,_0 
SV,0~ 
SFIEU 
SFIBU 
SF(BU 
LKEU 



,_R V4 
, E LA 
,2),S 
,1),S 
,12), 

,22), 



iBooqii/ 

"IB"000117 
18000118 
IB000119 
IB000120 
IB000121 



20 
1? 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 

6 
5 
4 
3 
2 
1 



_4 1_* 
42* 
43* 
44* 
45* 
46* 



217736 
21773 7 
21774C 
21774C 
217741 
217742 
217742 
217743 



.40 

^.4C" 

.CO 

.40 

.00 

.CC 

".40" 

.40" 



_C_C_CC_06_. 
COOCOO." 
217741. 
G0CC04. 
COOCOO. 
216242. 

_co_c_c_cq. 
ccccoo. 



52 
3C 
CC 
CI 
00 
C3 
74 
37 



80 
CO 
10 
IC 

8E 
01 
8B" 
8B 



002000.52 FC 
001003.12 FO 
014000.12 FO 
430000.20 50 
026001.12 FC 



217765. C3 00 



_S_F(_PU 
CNOP 
LX,C, 
SX,C, 
W,0.0 
LVI_,_1 

"CMOCO 
C M [ 1 1 



B Cfc 
LABM($12),1 -SET 
LAB D($12) ,6 -SET 

S SCR PM + .3CU12) - 

18)202020.20 

S SCR PM.42($12)~,2 



MOCE 

DENSITY 

SET UP LABEL 



$ + 1.0 

S 10 INSU12) 
($14), E LAB CW 
,K SUPP 



-fcRITE LABEL COMMAND 



IB000122 

IB000123" 

IB000124 

18000124 

18000125 

IB000126 



4 7* 

48* 



qq iooo. co fc 

001000.36 FO 



0(_BUtl_)_iS_ C T L ( $ 1 1 ) 
ItS SET UP(EU) 



-TURN ON SET UP BIT 



18000127 
1B0001.28" 



wai 



I IME CLOCK CCC54C41 



PUNID 11C11MCP 



CARD IC IE000130 



DIST. OF 3/Cl 



3/01 



PAGE NUM3ER 156 



LINE LCCATICN BINARY OUTPUT NAME STATEMENT LCCAT_I_ON __2_1_7_744 



1* 217744.40 

2* 217745. CO 

2* 217745. 4C 

<* 217746. CO 



00CCC5.C0 ac 
221261,10 CO 
221371. CO 80 
221370. 10 00 



SICS RET ACIU2) 

B,M IOREJ -RETURN CONTROL 

SICE INC R 

B,E 10 INC -CHECK IC 



IF I/O ACCEPTED 
INDS 



IB000130 
IB000130 
IB000131 
IB000131 



5* 217746.40 C0GC02.33 80 001027.20 50 K KF DEN L(BU,1),S F DEN<$13)»46_ -SC T UNI T TO FILE DENS IT Y IB000132 



t* 
7 * 
i* 
S* 
IC* 



17747 
1775C 
1775C 
17751 
17751 



.40 
.CC 
.40 
.00 
.40 



COCCil.CO 30 
00CC05.C0 8C 
217674.50 00 
221371.00 80 
221370.10 CO 



L V , C , $ R 

SICS RET AD( il2) 

B,K OENST 

SIC,K K IND 

B,K 10 INC 



B000133 
B000134 
B000134 
B000135 
8000135 



11* 
12* 
13* 
14* 
15* 
16* 



17752 

17752. 

17753 

17754, 

17754 



CC 
40 
CO 
00 
40 



21 77 53. CO 10 
C0GCC4.01 IC 
000000. CC 8E 
216242.03 01 
CCCC00.37 8B 001000.36 FO 



000117. C5 00 



_CNOP___ 
LX,C,$+1.C 
SX,C,S 10 INSU12) 
CTL,0.0<$14),(8) 117. 
LVI.l.K SUPP 
C M 1 1 1 1 1 B U , 1 _) _, S _S_b T UPJAii )_ 



-WEF COMMAND 



B000136 
B000137 
B000137 
B000138 
B000139 
B000140 



II* 
It* 

19* 
2C* 
21* 
22* 



11133. 

17756 

17756 

17757, 

17757 

17760 



_4C 
CC 
40 
00 
40 
CC 



_C_QC 
221 
221 
221 
COC 
OOC 



CO 5. 
261. 
371. 
370. 
010. 
006. 



CC 
IC 
CC 
10 
5C 
GO 



BC 
00 
80 
00 
3C 
3C 



K WLTMK 



036000.20 5C 



.22*. 217761. CO 00CC00.40 8B 217763.34 02 
24* 
25* 
2t* 
27* 



17761 

17762, 

17763 

17763, 

17764, 

17765, 



CO 
CO 
00 
4C 
CC 
00 



_co_o 

COC 
COC 
COO 
221 
CCOCC 



C00_._' 

coo. 

001 

007. 

144. 

6.00- 



SICiS_REI_A0J_$_l_2)_ 

B,M IOREJ 
SICE IND R 

B,E 10 IND -GO TO 10 
LV,4,S C REELIS12) 
JJJ*y L 3Q)iS_SCR_PMJS_l_2_)__ 
B_Bt_S0WNERi$llJ_,$ + 2.C_ 



IND ROUTINE 

-UPDATE REEL POOL 



B000141 
B000141 
B000142 
B000142 
B000143 
B000144 



B000145 
B000146 
B000147 
B000147 
B000148 
B000149 



036000. 2C CC 



42 84 
CI CI 
41 3C 
50 00 
2fc**217765.00 CC0CC6.00+ 000 C0C001 217765 



E LAB CW 



ST( BU,3C) ,.34($4) 

LVI ,0, 1. 

SVtO,S FILEK($12) 

B,Z STEVL 

XW,S SCR PNNS12) ,1,$ 



-UPDATE FILE COUNT 

-BRANCH TO EVAL. ROUTINE 
-WRITE LABEL CTL WD 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK CCC54C41 



PUNIO 11D11MCP 



CARD IC ICCOOOOl 



DIST. OF 3/C1 



3/01 



PAGE. NUMBER 157 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

1 * 

2 * 

i?_?lJ766_._CC__* 
5* 217766. CO ~~ 



C0CC2C.C2 
215C01.C4 
000021.22 
22CCC5.34 
215230.42 
22CC05.32 



30 
'80" 

ao 

CO 
90 
42 



—********»*«***»*#** COPY CDNTRGL WORD *****»*******«*»*- 
— «»■»***«*«#«#*#**«»«*«*****■»«#»**■»♦*«***««**«■»*«#**»«***#*«*«***«»«**#* 

SLC,$ 
B CCW R LV, 1, SC 



ICOOOOOl 
IC000002 
ICOC0003 
IC000004 
'IC000005" 



t* 
7* 
t* 
9* 
IC* 



217766. 4C 
217767.40 
21777C.40 
217771. CC 
217771. 4C 



217773.34 02 
006000. 2C 50 



± J j __?■-? "_y__ 
2 1 7772. CO ~ 

217 772.40 " 
217773. CO 
217774. CC 
217774.40 
21 7 77 5. CO 
?1777ft.Pf! 



. i. f I I I i 

220000. uu 

220000.40 
? ? n n n i .in 



8B,S L,E 3MCP 
L(BU,6) ,1X1+0.18 
BZRZ,B 3ER1 
KV,$X1,S TLR+C.32 

8XL,B3ER1 



-LOAD BIT ADDRESS BITS 

-IF NOT FULL WORD ADCR, ERROR 
-COMPARE TO PP LOWER BOUNDRY 



IC0C0006 
IC000007 
IC000008 
IC000009 
ICOCOOiO 
"IC000011" 

'fc660012~ 

IC000013 
IC000014 
IC000015 
IC000016 
I CO 000 17 
IC0G0018 
IC000019 
IC000020 
IC000021 
IC000022 

"IC000023" 
IC000024" 
IC000025 
IC000025 
IC000026 
IC000027 

"IC000027" 
IC00002<f 
IC000029 
IC000030 
IC000031 
IC000032 



11* 
12* 

12* 
14* 
15* 



2C* 
21* 
2 



21* 220000.40 * 
22*220001.40 
2i*_ 2 2CCC2].4C_ 
24* 22C003.4C 



220004. CC 
22C0C4.4C 
22C0C5.C0 
2£*_220005.40_ 

"2S*_22C006_.CC_~ 



25* 
26* 
27* 
2fc 

29 



2_1_5_2 3_0.C2 

22CC05.33' 

C0CCCO.32 

00CCC0.51 

221065.32 

CO 0000.3 7 

_C~0C000._4 7" 
C0CCC3.32 
22CC07.72 
C0CC03.15 
COOCOO.CC 
CO CCO 3. 30 

iL0C_C_0O_._30 
216242. C 3 
22CCC0.54 
221300. 10 
01CC10.35 
2 174 5 1.4 
217 372. IC 



90 
42 

8A 

C4 

C2 

8B 

OB 

9C 

CO 

02 

BE 

8D_ 

81 
. „ 

48 
00 
01 
80 
CO 



220006.74 OC 



220007.74 
220007.74 



02 
02 



000000.21 01 
0C10C0.C6 70 
001000.12 FC 



3C* 
31* 
32* 

32* 
34* 



22C0C6.4C 
22C0C7.C0 
22C007.40 
22CC1C.C0 
22C01C.40 



C0CCC1.51 04 
22CC00.32 C2 
C0OC04.C0 ID 
000000. Ci 11 
216242.10 CO 



KVt_$Xl,S TLR 

BXH,B~3ER1 

B 3MCP BZB,S CF CPU10),K CONE 
KVI ,$4, .32 
BXE.K C BUSY 
_1Bi_S SET UP{ $11), B 3 FAT 
BR,SSEL($11),B3FAT 
KVi 13 t S~FI AAC($12) 
BZXE.'fi 3FAT 

B 3TRY LCI,$X6,3.0 

CCW,C. C{$14), C.C($1) 
LF(BU L 1|,3.24U13) 
S. F £ l^til* - ?4( $1 ) 

bzekjz,k"supp" 

CB,6,B3TRY+.32 
B,KREJT 
B 3ER1 LVI,14,S CCW AD 

SIC, SCI SIC 
_'__" OiS CTSP\ 
K CONE KV I , 4 , 1 . 32 

BXE,B 3TRY 
B 3FAT LX,C,S CCW($13) 

SX,C,0.0($l) 

8,K SUPP 



-COMPARE TO PP UPPER BOUNDRY 



-IF DISK, WAIT FOR ECP 



-IF 

-TO 



NOT 
TRY 



EUUAL 
CCW 3 



TO FILE 
TIMES 



AREA TABLE 



-SECP BIT 



-CW DEST ACDR INVALID 



-IS "equipment 

-IF SO, CCW 
-COPIED CW TO 



READER 



DEST ACDR 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 

2 

1 



wai 



1 IME CLOCK CCC54C41 
L In t L CC A T~I ~c"n~ 



PUNID llDllfCP CARG ID ICOOOOOl CIST. OF 3/C1 
BfNARY'CUTPLT "naT^e" STATEMENT - " - " 



3/01 



page number 158 
lccaTTon 



1* 

1 * 

2 * 

i » 



22 



CC_1_1_._C_C_ 
CCU.CC 



— **«*#»*****»#*»*#*»***#*»**»*****»*******#********«***»***««***«**»»»* IDOOOOOL 

-»##««*«»**«*»*»***« RELEASE *«***««****»**»***«— 10000002 

— **«**««*»#«**»«**#***** ************»*»*******#**«*#**» »*«*««*»»**»*«** ID000003 

SLC,$ IDC00004 



_ * 

i* 
i ■ 
s» 

1C* 



22 
22 
22 
22 
22 
22 



0011.40 
0012.00 
0013. CO 
0014.00 
CO 15.00 



12* 

13* 
14* 
15* 
It* 



22 
22 
22 
22 
22 
22 



0015.40 
0016.00 
0017.00 
0017. AC 
0020. CO 
CC21.C0 



_GCCC0q._4 5 
2~15265.C5 
000000.32 
000000.33 
0CCC00.47 
CCCCC3.32 



30" 

8A 
8A 
8B 
9C 



220017.74 00 
220015.34 00 
220017.74 02 



U__REL __V-I t 2t.32_ 
SV,2TS TIC" 

BZB,S CF 0P{$1C),W 23K 
BZB.S ML'LTKSIOJ ,W 220 
BB,S SELU11) ,W 23K 
W 220 KV, $X13, S FI A AC($X12) 



-IF CHAN NOT OPERATING, ALL CONE 
-IS CHAN OPERAING CN THIS FILE 

- CCHPARE FILE AREA ADDRESS 



IC00000 5 
10000006 
ID000007 
ID000008 
ID000009 
IUGQ0010 



_22.CC 17 . 7 2 

000000.75 
216242.10 
000040.17 

C0C004.23 
22CC64.5C 



8B 
00 
02 
80 

CO 



li^XE,W 23K 

CMlllKBUf 1),S REL($11> 

B,K SUPP 

LCI, 7, (8)40 

CM0C00(BUi6),SCCW+.19{il3) 

B_K ILEGL.32 



ID000011 
ID000012 
10000013 
10000014 
ID000015 
10000016 



001000.36 FO 



006000. CC FC 



W 23K 



-FAKE EOP 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



wai 



I I ME CLOCK CCC54C41 PUN1D 11D11MCP CARD IC IEOOOOOl 
L I N t LOG A T~I C N " ~B f h A R Y OUTPUT N A ME ~ 



DIST. OF 3/C1 
STATEMENT 



3/01 



PAGE NUMBER 159 
I C C A T I~CN 






1* 

<. * 

2 * 

** 22CC2 1.4 

|*_22CC2_1_._4_C_ 

~6* 220022.00 

i* 220022.40 

i* 22C023.4G 

S* 22CC24.00 

U* 220025. CO 



CCCCC0.51 G4 



22CC64.32 
215246. CO 
22C7C6.C1 
CCCC20.22 
215246. CC 



CO 

ao 

BO 
80 

8 



000021.36 EO 



0C7000.CC 
000021.36 



PC 

EC 



— a********************************************************************* 

-**##****«#**#***»** LOCATE *******************— 

— a********************************************************************* 

SLC$__ 
K__S__ L CC~~Kyi;4,.32_2 "~" __ "~ 

~~"bzxe,k Tlegl 

swapi,15,s tlr+14.,*! -compute 3rd parameter 
lve,0,k iod rn-.32 

CM0C00{BU,7), J0.18 
SWAPI,15,S TLR+14. ,11 



IEOOOOOl 
IE000002 
IE000003 
I EC 00 04 
I P 000 05 
IE000006 
1E000007 

leoooooa 

IE0C0009 

IfcOOOOlO 



lift 

12* 
14* 
15* 

u* 

~li*~ 
It* 
H* 
2C* 
21* 
21* 
22* 
2i* 
25* 
26* 
27* 
26* 



22C02 6_._C_C_ 

220026.40 

22CC27.00 

22CG27.4C 

22C030.CC 

2 20C_3C.40_ 

22CC31V40 

22C032.0C 

220032. 4C 

220033. CO 

22CC33.40 

22C0 34.CC 

22C034~.4C_ 

22CC35^C0 

22CC35.40 

220036.00 

220036.40 

22C037.CC 



00 0005 .CO 
"O0CCC5.40" 
220C64.33 
C0C005.CC 
22CC64.32 
CO OC CO. 4 

c^occidrcq 

220C57.32 
220C54.47 
C0CC05.C7 
220105.40 
_2_2_01_0O_._5_C 
_0CC"C_00.51 
22CCV7V7 2 
C0CC01, 
22CC46, 
00CCC0.40 
22CC42.41 



11 
32 



BC 

90 

42 

9D 

42 

8A 

90" 

C2 

01 

30 

80 

CO 

~C4 

C2 

04 

C2 

3C 

DO 



022067. 2C 50 



K LOCAT 



V + ,_CS OR ARCU13) 
"K V , C , S MX AR C ( $ 1 3 V " 

BXH,K ILEGL 

KV,C,SCRARC($13) 

BXCKILEGL 

U8l,18),S ARC ACJSIC),- 
~KV» C $L~ 

"exE,K "finT" 

LVI,3,K MOON 

SV,3,S RETADU12) 

SICK G LCCR 

B,K G LCC , -UPDATE 

Kj/I L 4, .32 

~bxe,k"cisk~ 

KVI, 4,1.0 
BXfciK L0CT0-1.0 
LV,C,S UNIT N($12) 
SVA,0,K SLECT+.32 



-CO MPU T E _ D E S I R E D_ AR C_ A D C_R ESS 
- T E S T I F I T I "S W I T HI N H IS 
-IF NOT, FAKE EPGK 



■18 



BOUNDS 



STATUS TABLES 

I -Jf-Al " LF J± i § K ~ 

-TEST IF CONSOLE 



IE000011 

"IE0C0012" 
IE000013 
IE000014 
IE000015 
IE000016 
IL0000J.7 

"IE000018" 
IE000019 
IE000020 
IE000021 
IE000021 
IE000022" 

"IE000023" 
IE0Q0024 
IE000025 
IE000026 
IE000027 

"I|000028" 
IE000029" 
1E000030 
I £000030 
IE000031 
I £0000 32 
IE0000 32 

"IEC66633~ 
IE000034 
IE000034 
IE000035 
IE000036 

"IE000037" 

"IE00003&" 
IE000039 
IE000040 
IE000041 
IE000042 
IE000043 
IE000044 
IE000045 
1E000045 



2S* 


220037.40 


220042.64 


80 


3C* 


22CC4C.4C 


C0CC00.3C 


CO 


31* 


220041. CC 


22CC42.C0 


10 


32* 


220041.40 


C0CCC4.C1 


IC 


3 2 * 


220042.00 


OOCCOO.CO 


8E 


34* 


22C043.CC 


22CC44.C3 


CI 


35 * 


22C043.4C 


221261. IC 


CO 


36* 


22CC44.C0 


C0CC04.64 


ac 


37* 


220045.00 


221354.40 


80 


36* 


22C045.4C 


221350.50 


00 


3S« 


22CC46.00 


C00C00.47 


8B 


4C* 


220047.00 


221144.50 


CO 



41* 22C047.40 * 
42* 22C05C.4C 
22CC51.C0 
220052.00 
22C053.CC 
22C054.CC 



CCCCC0.32 8A 



001000.36 FO 

0C0000.C7 OC 

2 16 24 2^34" 00" 

001000. CC FC 
6Cl60(T/36~FC~ 



CMllll(i3U,l ) ,K SLLCT+.52 
"'"' CNCP 

LX,C,$+1.C 
SX,C,S IC INS($12) 
K SLECT L0C0.0U14) ,0 
LVI ,1, $+1.0 

BZ B , 4 . 5 2 ( S 1 2 ) , K SUPP 

SICK LOP R 

B,K SECP T 
ZLCCXX CM0C00(BL,1),SSEL(U1) 
K LCCTD B f Z STLVL 



-GIVE LCC INSTRUCTION 



K CISK 



cMiiineu t i),s ch opjsicj 

~SVA,0,K"SLECT + ".32 
CHlllKBUilltS SET LPt$ll) 
CMOOOO(BUfl) ,K SLECT+.52 
CM0C00,SSEL($11) 
B,K SLECT-l.C 



42* 
44* 
45* 
46* 



22CC42.41 
CCCC00.37 
220042.64 
C00C0O.47 
22CC41. 10 



DO 
86 

80 

8B 
00 



001000.36 FO 
001000. CC FO 
001000. CO FC 



-INITIALIZE RT EFF ADDR 



-SECP BIT OFF 



4Z*_22C054.40 

~4£* 220055.00" 

4S* 220056. CC 

5C* 22CC56.40 



_C_0_CCC4_._40 3C 

C0CC01.12 8D 

22C100.CC 80 

22CC74.1C CO 



KMCCN 



220047.74 02 



L V t_ 1 ,_ S I C I N S , 3 2 J $12) 

BB, SI0IND.lt $13 )",KD I SK 
SICK PGSLD 
B,K POST L 



-IF UK 



wai 



^ IME CLCCK CGC54C41 



PUNIC 11C11NCP 



CARD ID IEC0G047 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 160 



LINt 



LOCATICN 



BINARY CUTPUT 



NAKt 



STATtMENT 



LCCATICN 



220C57 



9 

9 
L 

8 
6 
01 
11 

U 
£1 

>l 
?! 
91 

L\ 
81 
61 
OS 



1* 

2* 

2 * 
A* 



22C057. 
22CC57. 

22C060. 
22C061. 



CC 
40 
40 
4C 



00CC20 
CCCCCO 
CCCC06 
COCCOO 



.17 02 

.40 8A 

.00 80 

.47 86 



K FINI 



022000.20 50 
022000. 2C DC 
220064.74 04 



LCI 
L(B 
ST( 

BZB 



,7,16 

U, 18) 

eu, is 
z,s s 



,SARCA0($10) 
),SCUARC($13) 
EL($11),K ILEGL.32 



IE0C0047 
IE000048 
IE000049 
IE000050 



~i« 
i * 

t* 

S * 

1C* 



22C06 2. 
22C063. 
220063. 
220064. 
22C064. 
22CC65. 



4C 
CC 
40 
CC 
40 
OC 



22 105, 

22 CI CO. 

22CC64, 

00C400, 

215776 

215746, 



4 



80 
CO 
CC 
02 
01 
00 



sic 

B,K 
B t K 
LCI 
LVI 
B»_K 



tK_G 

G LC 

ILEG 

,7,(8 

t ltK 

GATE 



ECCR 

C 

L.32 

MOO 

NORM 



IE0000 51 

1EC00051" 

IE000052 

IE000053 

IE000054 

I £000055 

IE000056 



5C 
50 
17 
C3 
50 



K ILEGL 



Li? 
12* 
12* 
14* 
15* 
If 



22C065_. 
220066. 
22CC66. 
22CC67. 
22C067. 
22C07C. 



5_C_ 

CC 

40 

00 

4C 

CC 



220C47, 
00CCC5. 
22CC33, 
COCCOO, 
220C71, 



t'1 
23 

CO 

50 

51 

72 



CI 
DO 
8C 
00 
C4 
CO 



K K LOC 



LVI_ 
SVA 
SIC 
B,K 
KVI 
3ZX 



»_9,Z_ 
,9,K 
,S RE 
LCCA 
,4, .3 
E»4 + l 



STE 

LOC 

T A 

T 

2 

.32 



VL 

TD 

D($12) 

-SELECT 



THE UNIT 



IE000C56 
I EC 000 57 
IE000057 
IE000058 
IE000058 



li* 

It* 
IS* 
2C* 
2J* 
22* 



2 2 C C 7 C_. 
22CC71. 
220072. 
220C72. 
220073. 
220073. 



4_Q_ 

40 

CC 

4C 

OC 

40 



_2_1_5C01. 
221371, 
221370, 
2201GO. 
22CC74. 
221144, 



21 
CO 
1C 
CC 
10 
5C 



8Q 
80 
CC 
80 
00 
CO 



0C1000.CC FC 



cm 

SIC 

e,E 
sic 

B,Z 



COO.S 

iE IN 

10 I 

,K PO 

POST 

STEV 



LOC 
D R 
ND 
SLD 

L 
L 



SL 



23* 
2'* 
25* 
26* 
27* 
2f 



22CC74. 
22C075. 
22CC76. 
22C077. 
22C10C. 
2201CC. 



CC 
CC 
CC 
CO 
CC 
4C 



_C_0_C_C_C4_, 
COCCOO. 
CGCCG6. 
COCCOO, 
220100, 
COCCCO, 



4C 
40 
CO 
47 
1C 
22 



8C 
8 A 

80 
8B 
CO 
3A 



022000. 2C_5C 
022000.20 CC 
022000.20 DO 
001000.00 FC 



K FCST L 



L_(B 
ST{ 
ST( 

CMO 

flf $ 

LV, 



U L 1B) 
BUt 18 
BUt 18 
COO(B 



,S 
). 
), 

U,l 



10 INS +.3 2 At 12 ) 
S ARC AD ($10) 
S CU ARC I $13) 
»,S SEL{$11) 



IE000059 

IE000060 
IE000060 
IE00C061 
IE000061 
IE000062 
IE000063 



2i* 
3C* 
31* 
32* 
32 * 
34* 



22C1C1. 
220102. 
220102. 
220103. 
22C104. 
22C1C5. 



CO 
CO 
4C 
4C 
40 
4C 



K PCSLD 
K G LOC 



_C_CCC_CO_, 

c dec io. 

COCCOO, 
OOGCOO, 
CCCOOO, 
220105, 



LP. 
"22 
47 
57 

70 
5C 



8A 
BO 
89 

ac 

8A 
CO 



003067.20 50 



L(_B 

V + , 
CM1 
L(B 

CMO 
K G LCCR B,$ 



9,S UN AU1C) 

L, 3) ,S UN IT { lib) ,-18 



-RETURN CONTROL 

-TURN ON SEL BIT FOR LAST UNIT 



IE000064 
IE000065 
IE000066 
IE000067 
IE0C0068 
IE000069" 



001000.36 FC 
003000.20 50 
003000.12 FO 



9, $L 

liKBU, 1),S 
U,3),S UNIT 
1011 BU,3), S 



SEL($9) 

N{$12) 

UMT($10) 



-SELECT CURRENT UNIT 
-RETURN 



IE000070 
IE000071 
IE000072 

IE000073 
IE000074 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



wai 



1 IME CLGCK CC054G41 
LINE" " L C C A TlC N 



PUNID HD11MCP CARD ID IFC00001 DIST. OF 3/C1 
BINARV~GUTPUT NAME STATEMENT" """ 



3/01 



PAGE NUMBER 161 
L CCA HON" 



1* 

2* 

!*_22C1C6.CC 
"5* 22C1C6.CC 



CO CC CO. 4 5 
2 1 52 6 5. C 5 
00CCC2. 11 
22CC64.32 
C0CC0O.32 



CD 
"30" 

04 
CO 

8A 



— -» »****««*»***«****»*«*«***«**»«********»***»****»*«»**»*** ****«#»**s<* IF000001 

— *#**■»*-»«■&***-****»*» FEED CARD *«****»**•»»*«#»«»«*— IF0C0002 

— •«#«**#**#«««««««**«**«****«*«»**»*****««*«««**««*«*****«*«*««»««***«« I FO 0000 3 

SLC,$ IF000004 

"W FC ""V-I",2, .32"" "" "'"" IF000005 



S! 
91 



t* 
~t * 

fc* 

s* 

1C* 



22C106.4C 
220107. CO 
22C107.40 
220110.00 



001000.36 FC 



SV,2t S TIC 

KVI,4,2.C - IS IT A PUNCH 

BZXE,K ILEGL -IF NOT, ERROR 

CK1111(BU,1)»S Ch CP(SIC) 

CNGP 



IF000006 
IFG00007 
IF000008 
IF000009 
IF000010 



U* 

li*' 

13* 

14* 

15* 

li* 

17* 



2 2C1H_.CC 
2201 11. 40 
22C112.CC 
220113.00 
22C114.0C 
22C114.40 



220112.00 
CCCCC4.G1 
COCCCO.CO 
COCCOO. 74 
216242.03 
221261. 10 



10 
1C 

8E 

8B 
01 
00 



000056. C5 OC 
001000.36 FO 



SXf~C t S 10 INS ($12) 
CTL,0.0{$14), (8)56. 
CMlllKBUt 1)»S CTLISU) 
LVItlfK SUPP 
B,M 10 REJ -CHECK IF 



-CARD RUN GUT COMMAND 



COMMAND ACCEPTED 



IF000011 
IF000011 
IF000012 
IF000013 
IF000014 
IF000014 
IF000015" 
"IF000016" 

iGooooor 

IG000002 
IG000003 
IG000004 
IG000005 
"IG000005" 
IG000006 
IG000007 
IG000008 
IG000009 



It* 
IS* 
2C* 

21* 

22* 

"2 3* 



220115. CC 
22C115.CC 



_C_CC_CC_0_.4_5_ 
21~526 5."C5 
C00CC4.11 
22CC64.32 
COCCOO. 62 
22CC17.5C 



0D_ 
"3 
04 
CO 

8B 
CO 



— **•»***»»*«»#***«*»** ERASE LONG GAP *«*«•»****»»*■»»»*«»» 

SLC, $_ 
E ELG V-I,2,.32 



2** 
25* 
26* 
27* 

26* 



220115. 4C 
22C116.CC 
220116.40 
22C117.C0 

220120. CC 



001000.36 FO 



sv,2,s ric 

KVI,4,4.0 
BZXE,KILEGL 

CMlllHEUtl) f S ELGU11) 
B f W 23K 



-SET RETURN ADDRESS 



-FAKE ECP 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
i 
3 
2 
1 



wai 



TIME CLOCK CCG54C41 



PUNID 11D11NCP 



CARD ID IHCOGCC1 



DIST. OF 3/01 



3/01 



PAGE NUMBER 162 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
2 * 

<* 22C120.40 * 



— ««**«»*-»****«*-*»#****»«*»***«*•»*#«*****#*«♦*»*•»«-»*«****#*«*«**«******» IH000001 

-#»*_*«**«****»***** SPACE «***_♦_»*♦******_««— IH000002 

— *#**********»»«»****»*«*«**««***»*#*#****#********»*«**#««******»*«*** IH000003 

SLC,$ __]HQ000C4_ 



r » 
t * 
i * 

11* 



22C12C.4C 

22C121.C0 

22C121.40 

22C122.C0 

220122. AC 

220123_.00_ 

22C123.40 



C0_CC76.C1 
22 0124. 10 
CCC176.01 
220124. 1C 
C00C77.C1 
_2_2_0 1 24 • 10 
C0C177.01 



PI 
00 
01 
CO 

ci 

00 
01 



R 1 



LVI_i!C,62_.p_ 

B,R 2 - PP HAS REQUESTED SPACE BLOCK 

L VI f $0,126.0 

B,R 2 - PP HAS REQUESTED BACKSPACE BLGCK 

LVI, $0,63.0 

8,_R 2 - PP _HAS REQUESTED _S PACE FILE 

LVI ,$0, 127.0 



IH00PPP5 
I HO 0000 5 
IH000006 
IH000006 
IF000007 
IH00pp07 
IH000008 



12* 

12* 
14* 
15* 

16* 



2201-24.00 
220124.40 
220125.40 
22C126.C0 
2 20126.40 



C0CCC0.45 
C00CC0.32 
215265.05 
C0CCG4. 11 
220064.32 



CD 
8A 
30 
04 
CO 



R 2 



001000.36 FG 



\/-I,2,.32 
CMllllt BUtDtS 
SV,2,S TIC 
KVI,4,4.C 
BZXE,K ILEGL 



-SET RETURN ADDRESS 



CH 0P($1C) 



-TEST IF 

-IF NOT, 



EQUIP IS TAPE 
FAKE EPGK 



_l*_22C_l_2__.C_C_ 
If* 22C127.4C 
220130.00 
220130. 40 
220131. CC 
220131.40 



19* 
2C* 
21* 

22* 



_2_2_1_1_5_3._C7_C1 
CCCCC5.41 3C 
G0CC02.47 
C0CC02.C0 
221144.50 
22CC65.5C 



3C 

8C 
00 
CO 



LV__3_R_MASK 

SV,C,S CTL CPU12) 
SV,$3,S EVL MKU12) 
S1CS EVL TBU12) 
B,Z STEVL 
B.KKLCC 



IH000009 

IH000010 

IH000011 

IH000012 

IH00P013_ 

IH000014 



IH000015 
IH000016 
IF0Q0017 
IH00001/ 

iHooooia 



22* 
24* 
25* 
26* 
21* 
2£* 



22C132J.C0 
220132.40 
220133.00 
220133.40 
220134.40 
22C135.CC 



221161.10 
CO CC 07. 5 2 
220135.71 
000C05.53 
COCC06.00 
22C143.1C 



CO 
3C 
C2 
8C 
8C 
CO 



B,R VFY 

LV,5,S FILEK($12) 

8XVGZ,R 9 SKP 

BB.S CTL 0P+.1($12),K ILEGL 

SICS SCR PMU12) 

_.»__.__ FLK 

LV,$1,S CTL CP($12) 



IHQP0019 
IH000020 
IH000021 
IH000022 
IH000023 
IHC00023 



220064.34 02 



-TEST FOR FILE K ZERO 
-BSP OR REV» AT LABEL ** EPGK 



2___ 

3C* 
31* 
32* 
32* 
34* 



22C135.40 
22C136.0C 
220136.40 
220137. CC 
22C137.40 
22014C.C0 



_CC_ C _C_CA._42 
220140.43" 
C00C00.30 
220140. CO 
00CCC4.C1 
COCCCO.CO 



3C 

DO 
CO 
10 
1C 

8E 



R 9 SKP 



IH0G0024 
IH000025 
IH000026 
IF000027 
IH000027 
IH0C0028 



0C0000.C5 00 



RIO 



SVA, 1, R1C.32 

CNOP 

LX,C,$+1.C 

SX,C,S 10 INS($12) 

CTL,0.C($14) ,C.O 



-CTL OP CODE TO RT EFFECT ACDR 



35__ 
36* 
37* 
3£* 
3S* 
4C* 



220141.00 
22C142.CC 
220142.40 



CO CCO 0.74 
216242. C 3 
221261.10 



8B 
CI 
CO 



001000.36 FC 



CTLU11) 



cmiiiii-u^iks 

LVItltK SUPP 
B,M 10REJ 



«*#**»«*«*»«*«„*«»** SPACE LABEL ***»****»##»**»****# 
CALL INGSEQUENCE * * L V , _5 , S _F_I_LJ-1 A ! L* 1 2 } )___l F I L E K +0 OR - ) 

SICS SCRPM{ $12)*B,RS1 FLK 



IH00 0029 
IH000030 
IH000030 
IH000031 
IH000032 
IH0C0033 
IH000034 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



41 * 

42 * 
43* 
44* 
45* 
46* 



220143.00 
220144.CC 
220145.00 
22C146_.CC 
22pJ.46j.4C 
22C147.CC 



C00C07.31 
OOOCCO. 74 
G0CC25.30 

_c_c_c_c_oo.__i 

_QP_C_0_0 5 5.CC 
217674. 5C 



8C 
8B 
80 
CI 
_Q 
CO 



2201/4.74 OC RSI FLK BZB,S SYSTM($12),K N SYST 

001000.36 FC CMlllKBUf l) t S C TL ( $ 1 1 ) 

220156.74 OC BZB,$5.24,K SP TM 

LVI,0,S INST D 



-BRANCH IF FILE COUNT IS +0 
-IF FILL CCUNT -0 



IH000035 
IH000036 
IH000037 

IH000038 
IH000039 



4 7* 

46* 



SL____R_I_AC($12) 

8,K DENST -SET UNIT 



TO INSTALAATICN DEN 



IH00004C 
IH000040" 



HSI 



TIME CLCCK CCC54C41 PUN1D 11C11MCP CARD IC IHC0GG42 CIST. OF 3/C1 
"LINE - " "IOC AT~IC~N B I N A R Y " C U TP liT NA~Kh ~" S TAT tMEN "f " 



3/OL 



PAGE NUMBER 163 
L G C A H~C N" " " "22014 7" 



1* 220147. 4C 

2* 22C15G.C0 

2* 220150.40 

4* 220151. CC 



221371. CC 80 
221370.10 CO 
C0CC00.30 CO 
220152. CC 10 



SICK K IND 
B,K IC INC 

CNGP 

LX,C, $+1.0 



IH000042 
IH000042 
IH000043 
IH000044 



- * 

i * 

t* 
s* 

IC* 



220151.4C 
22C152.C0 
220153.00 
220153.40 
22C154.4G 
22C155.CC 



C C C 04 . C 1 
CCCCCO.CO 
216242. 03 
CCCC00.37 
00GCC5.C0 
221261. IC 



IC 

8E~ 

01 

8B 

8C 
CO 



000076. C5 00 



GC1000.36 FC 



SX,0,S_IG JNSU12) 

CTL,0.C($14) ,62. 

LVItliK SUPP 

CMllLKBUf UiS SET UPUli) 

SICS RET AD($12) 

B,M IC REJ 



-SPACE "BLOCK" CCHMAND 



]H000044_ 

IH000045 

IH000046 

IH000047 

IH000048 

IH000048 

IH000049" 



11* 2 2C 15 5.40 
12* 22C156.CC 
220156. 40 
22C157.40 
220160.00 
22C161.CC 
220161.40 



2213 71.00 
2213 70. IC' 
C0CC02.33 
22C161.35 
C0CC07.35 
00 CC 11 .CO 
_CJ3CCO_5.CC 
217674. 5C 
221371. CC 
221370. IC 
C00C00.30 
2 2 C 16 5 . CO 
CGCCC4.~Gf 



8C 
CO 
8D 
C2 
8C 
30 
8C 
CO 
80 
CO 
00 
10 
IC 



SICE INC R 

B,E IC INC 

L(B,2,l J,S FDENU13),46 

8RN,$+1.32 

LIBUi l),S LABCU12),46 

L_,C__R 

"SICtS_RE?_ApJ_*_12T " 

~B,K DEN ST 

SICK K IND 

B,K 10 IND 

CNGP 

LX_0__+1.C 
~SX,C,S 10 INS{$12) 



12* 
14* 
15* 

H* 

11* 



002127. CC 50 



001027.20 5C 



K SP TM 



-SPACE OVER TAPE MARK 



16* 
H* 
2C* 
21* 
22* 
22* 



22C162.0C 
220162.40 
22C163.CC 
220163. 4C 
22C164.CC 
22C164.4C" 



IF000049 

IH000050 

IB000051 

IH000052 

IH000053 

I HOG 00 5V 

I HO 000 54" 

IH000055 

IH000055 

IH000056 

IH000057 

IH0000 5 7 



2£* 
25* 
26* 
27* 
2£* 
2 S * 



22C165.CC 
22C166.CG 
22C166.40 
220167. 4C 
22G17G_.CC 
220170.40" 



000000. CO 
216242. C3 
C0CCC0.37 
C0CC05.C0 

22 l_2_61_-_ l c _ 
2213 71.CC 



8E 
01 
8B 
8C 
CO 

"ao 



0000 7 7. C 5 GC 



001000.36 FC 



CTCO.CI $14), (8)77. 
LVI*lfK SUPP 

CMllll(BU,l),S SET UPU11) 
SICS RET AD( $12) 
_____ 10 REJ 
"SICK K IND 



-SPACE FILE COMMAND 



IH000058 
IH000059 
IH000060 
IH000061 
IH0C0061 
IH000062 



3C* 
31* 
32* 
32* 
34* 



22CW1.CC 
22C171.4C 
220172. CC 
22C172.40 
22C173.00 



221370. 10 
G0CC01.C1 
C0CC07.41 
C0CC06.02 

C0C000.74 



GC 
CI 
3C 
3C 

8B 



001000. CO FC 



B,K IG INC 
K FIL Kl LVI»0. 1. 

SV,C,S FILEKIS12) -SET FILE COUNT TO +1 

LV,1,S SCRPMU12) -PICK UP RETURN ADDRESS 

CMOCOOlBUtl) ,S CTL(ill) 



1H000062 
IH000063 
IH000063 
IH000064 
IH000065 



35* 22C174.CC 



C C_C_C_o_0 .J q_ 

COOCCl.C"l 

00CC07.41 

000002.33 

220200.35 

CCCCCO.CO 



CI 
CI 
3C 
8D 
C2 
80 



_B_,_0_.0_{_$1)_ 
LVI ,"0, 1.C 

SV,C,S FILE KU12) -SET 
LIB, 2, 1),S FDENU13) ,46 
BRN,$+1.32 
LI (BU, 1),S TD DEN, 46 



IF000066 
"IH000067" 
IH000067 
IH000068 
IH000069 
IH000070 



20 
19 
18 
17 
16 
15 
H 
13 
12 
11 
10 
9 
8 
7 
i 
5 
4 
3 
2 
1 



36* 
37* 
36* 

3=* 
4C* 



22C174.4C 
22C175.00 
22C175.40 
220176.40 
22C177.C0 



K N SYST 



002127. CO 50 



401027. 2C 50 



FILE COUNT TO +1 
-SET UNIT TO 



ICD DENSITY 



4J_*_22C20C.OO 
"42* 22C200.40" 
42* 220201. CC 
44* 220201.40 
45* 22C2C2.C0 
46* 220202.40 



CO C_C_l_l_._G_0 

C0CC05.00" 

217674 

221371 

221370 



30 

"8C 

00 

80 

CO 
00 



LV»_C__R_ 

SICS RET AC($12~) 

B,K CENST 

SICK K IND 

BiK 10 IND 

B,Z STEVL 



ihoooo/i 

IHQ00072 
IH000072 
IH000073 
IH000073 
IH000074 



5C 
CC 
10 



221144.50 



wai 



T [ME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID IJOOCOOl 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 164 
L CC A TfGN - " 



* ( 
s 

9 

1 ( 

8 

6 

0, ( 

II 

21 

a ( 

91 ( 

81 
6, ( 

OS 



LINE 



LOCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



1* 

2 * 

2 * 

4 « 



2 2C20 3 
22C2C3 



.CO 
.CC 



— *##****«*#*»##****#»***«*#****#*«**#*«*»*****#•»*#****#»****#«»******»* IJ000001 

-****»**»**«**** WRITE END CF FILE »**+«***#***»*«- IJ000002 

— «*»*!*'*«##«««*»«****«»*«««»*««****«#»****««*»*»««**««*«««**««****«*»«** IJ000003 

SLC,$ IJ000004 



CO CC CO .45 
215265. C 5 
C0CCC4. 11 
220C64.32 
G00C10.62 
C0CC00.32 



CD 

30" 

04 

CO 

3C 

89 



E hU 



V-I_2__32__ 

SV,2,S TIC " " 

KVI,4,4.C 
BZXE,K ILEGL 
LV,9,S C REELU12) 
BB,_S_FP{$9),K ILEGL 



-SET RETURN ADDRESS 



I JO 000 5_ 

IJC00006 

IJ000007 

IJ000008 

IJ000009 

IJ000010 



d* 
~i * 
6* 
c* 
IC* 



22C2C3 
22C204 
220204 
22C205 
22C2C5 



,4C 
.00 
.40 
,0C 
.4C 



220064.34 02 



■IF EQUIP IS NGT TAPE, FAKE EPGK 
IF FILE PROJECTED, FAKE EPGK 



11* 
12* 
12* 
14* 
15* 
16* 



22C2C6 
22C207 
22C21C 
22021C 
22C211 
22C211 



• 4JL 

.00 
.CO 
.40 
.00 
.40 



2_2_1_1_52.„61 
CCCCC0.32 
CC0CC2.61 
C0CCC2.CC 
221144.50 
22CC65.5C 



CI 

8A 
3C 

8C 
00 
CO 



_VI__X____K_1A_ 

CMU1KBU, 1) ,S CF 0P($1C) 

SV,EX,S EVL MK(EA) 

SIC,S EVL TB<$12) 

B,Z STEVL 

BlK„K_LCC_ __ _ _~SEL BIT ON 

8__ VFY ________ _ _-VER BIT ON 

LV,5,S FILEKU12) -TEST IF IN 

BZXVZ,$+1.32 

SICS SCR PMU12) 

BtRSl FLK -IF SO, SPACE OVER LABEL 

8ZBZ,S ELG($11),E HT31-1.C 



IJ0C0011 
IJ000012 
IJ000013 
IJ000014 
IJ000014 
IJ000015 
IJ00C016 



001000.36 FC 



-MASK IN EVAL MASK AD 



II* 
IE* 
IS* 
2C* 
21* 
22* 



2 2 C 2 12 

22C212, 
22C213, 
220213. 

220214. 
22C214, 



_cc_ 

40 
00 
40 
CC 
40 



_22_1_1_6_ 1_. 10 

C0CCC7.52 
22C214.71 
C0CC06.CC 
22C143.10 

00CCC0.6? 



co 

3C 
40 
8C 

CO 
8B 



LABEL FILE 



220222.34 04 



IJ000017 

uooooie 

I J000019 
IJ000019 

IJ000020 



_2_* 
2<* 
25* 
26* 
27* 
21 * 



22C215. 
2 20216, 
220216, 
22C217, 
220220, 
220220. 



4C 
CC 
4C 

CC 
00 
4C 



C_OCC_C0.30 
22C217.CC 
C0C0C4.C1 
C0CC00.00 
220221.03 
221261.10 



CO 
10 
1C 

8E 
OL 
CO 



_QN(_P 
LX", C 
SX.C 
CTL( 
LVI, 
R,M 



I J0Q0021 
1J000022 
IJ00C022 
IJ000023 
IJ000024 
IJ000024 



000056.15 OC 



, $+1.0 

,S 10 INS{$12) 

SECP),0.0<$14),46 

1,$+1.0 

IC REJ 



-ERASE LONG GAP COMMAND 



2S* 

3C* 
31* 
32* 

32* 
34* 



220221. 
22C221, 
220222. 

220222, 
22C223. 
220224, 



cc 

40 
00 
40 
CC 
CC 



_2_2_1_3_54._4C 

221350. 50 
220223.00 
C0CG04.C1 
OOCCCO.CO 
CCCCO0.74 



80 
CO 
10 
IC 
8E 
B_B_ 
01 
CC 



_S_I_C_K _________ 

B,K SECP T 

LX,C,$+1.C 

SX,C,S 10 INSU12) 

CTL,0.0U14),79.C 

CMllll.S CTL(EU) 



IJ000025 

IJ000025" 

IJ000026 

IJ000026 

IJ000027 

IJ000028 



000117. C5 00 
0C1000.36 FO 



EWT31 



•TLRN CN CCNTRCL BIT 



!-_*_ 

36* 



220225, 
220225. 



00 
40 



_2_1_6242. C3 
221261. IC 



B,M 



LtK_SUPP 
ICREJ 



IJCQ0029 
IJ0"C0029 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



KSI 



IIME CLOCK CCC54C41 PUNID 11D11MCP CARD ID IKOCOOC1 DIST. OF 3/C1 
"t|NE~2~LpCATl0XIIIIIIIII~"|INARY~CyjPUj" "NAME ~STATTmInT~~ 



3/01 



PAGE NUMBER 165 
LOC ATI civi 



( 
z 

z 

* ( 
s 

9 

L ( 

8 

6 

0! ( 

II 

Zl 

El ( 

SI 

9. ( 
U 
31 
6. ( 

( 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
,1 



1* 

2* 

2 * 

A* 

5* 
~£* 

J * 
fc* 

1C* 

n* 

12* 
12* 
14* 
15* 

1** 

~n*~ 

u*" 

i^» 

2C* 
21* 

22*' 
2Ai 
25* 
26* 
27* 
_2£» 
2i* 
3C*" 
31* 
32* 
32* 

3 1* 
35* " 

36* 

37* 

3£* 



— *«*«*« 



— ««**«« 



2 20 226. CO 
22C2_26_.CC 
22C226.4C" 
22C227.CC 



-##******«****#*«*** REWIND *******************- 

*********«««««**«**«**** 



22023C 

22C23C 

22C231 

22C232 

22C232 

220233 

22C233 

22C2 34 

22C234 

22C235" 

22C235 

220236 

22G236 

22C237 

220237 

22C24C 

220241 

220241 

22G242 

220243 

22C243~ 



.CC 

.40 

".CC 

~.CC" 

.40 

.CO 

.40 

.C_C_ 

•AP_ 

.CO 

.40 

.00 

.4C 

.CC_ 

.40_ 

.4C 

.CO 

.40 

.40 

.CC_ 

.40 



22C243.40 80 




220234. 5C CO 




GCCCCC.64 8B 


001000.36 


220231. CO 10 




CCCCC4.C1 1C 




CCCCCO.CO 8E 


000136. 15 


220233. C3 CI 




221261. 1C CO 




221354. AG 80 




221350.50 00 




216242. 1C CO 




C0CCCC.45 CD 




215265. C5 30 




G0CC04.11 04 




220064.32 CO 




221153.57 01 




C0CCC2.57 3C 




C0CC04.22 8D 


OCIOOO.CC 


220243.17 01 




C0CCC2.17 3C 




C0CCCO.74 8B 


001000.36 


221144.50 GO 




220C65.5C CC 




220243.50 00 





FO 



00 



-ISSUE RthIND 



FC 



FO 



SLC,$ 
Z _R£W ~ST^"sTc[Z_TB_KW+_*_32~ " _ _ 

8,"Z~ CCM RT 

CKlllKBU.l), S REM$11) 

CNCP 

LX,C,$+l.C 
_SX,_C,S IC INS($12) 
Z CTL RJ^ REt__SE0P_,0.0{$14J 

LVI, 1,$+1.0 

B,M 10 REJ 

SICK ECP R 

B,K SECP T 

b,k sijpp 

Z _ CJQ___RT V-1,2,.32 "__ ~~_" 
SV,2,S TIC 
KVI ,4,4.0 
BZXE,K ILEGL 
LVI,7 t Z EVL RW 
SV,7,S EVL MKU12J 

__"" CM~qccc_eu,n,s cc>_._i8"($i3~) 

LVI, 7,Z TB Rh 
SV,7,S EVL TB($12) 
CM1111.S CTLIS11) 
B,Z STEVL 

_ z _ L. B _ 3JL _ E »_ K K _ k 5 c 

"ft , $ " " 



-TEST IF ECUIP IS TAPE 
-IF NOT, FAKE EPGK 
-SET EVAL MASK ADDR 

I~tURN _C F F UNR _ S f A TUS_ BjT 
-SET EVAL "TABLE ADCR 

-TURN CTL BIT CN IN UST 



"I N~ CV 



-"BRANCH BACK T C MOTHER" R G U T I h E 



'**»**«•«**&*»«*«««*«****•*«**«•*»*««**«** 



220244.00]*" 
22C244.CC 
22C244.40 
22C245.0C 



220243.40 80 
220234. 5C CO 
221733.10 CC 



-****«********♦«»*** UNLOAD **************«*«**- 

- * * ****_** **************************#****««**»*»**#****«#»**»««»»»*«»»»-» 

"_' "sTc,s" ~'_ " """ 

Z UNLD8 " '"SICTZ TB"RW+.32" ~~ 

B,Z COM RT 
B,K UNLCD 



IK000001 
IK000002 
IK000003 
IK000004 

~ I KOODOO 5] 
IK00Q0C5 
IK000006 
IK000007 
IK000008 
IK000008_ 
IKG00009 
IKOOCOIG 
IKOC0010 
IK000011 
IKOOOOU 
IK000012 
IK0000l3 
IK000014 
IK000015 
IK000016 
IKC00017 
IK000018 
IK000019 
IK000020" 
IK000021 
IK000022 
IK000023 
IK000024 
IK000025 
IK000026 
IK000027 
IL000001 
IL000002 
IL000003 

"I L 000004 

"ILO'06065" 
IL000005 

IL000006 



( 
( 
{ 
( 
( 
( 
( 

c 

K 



wai 



I IME CLOCK CCC54C41 



PUNID 11C11MCP 



CARD ID IMCCOOCl 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 166 



"I i 

i 

i £ 



LINE 



LOCATION 



BINARY CUT PUT 



NAME 



STATEMENT 



LCCATICN 



1* 
2 * 

2 * 

<* 220245. 40 



— ««*««*«*#«#*<&#« «««*****«*«* «««****«**«**««*«*««*******«»*«««*«***«*«s« 



C0CCC0.32 
220243.40 



8A 
80 



220320.74 02 Z FREE 86 L S CH CP{$1C),K K MARK 



IM000001 
IM000002 
IM00Q0G3 
IM000004 



5* 22C246. 40 

f 220247. CC 

1* 220247. 4C 

f 22C25C.4C 

9* 22C251.40 

1C» 220252. 4C 



i J- __._.__. ______ Ttj _RW_32 

B.Z CCM RT 

CMlllUBUtDtS UN ASG(Sll) 

BB.S P INCL.Z F2 

BB t 2.30($13)tZ F SAVE -BRANCH IF SAVE 

LV,8,S ______ LJ*_12_)_ _~GET CURRENT REEL _A_C_D_R_ 



IMppppp5_ 

IM00C005 

IM000006 

IM0000Q7 

IM000008 

IM000009 



220234 
COGCCC. 
215C01, 
CCCCC2, 

ooocio. 



5 
35 
06 
36 

60 



CO 
8B 
80 
80 
3C 



0C100C.36 FO 
220300.34 02 
220301.74 02 



11* 
12* 
12* 

14* 
15* 
16* 



22C253_.C0_ 

22C254.CC 

22C255.00 

220256. OC 

22C257.C0 

22C257.40 



_C_C_CC_C_0 . 32 
CC0CCC.33 
COOCOO. 32 
220313. CO 
220306. C5 
220303. 13 



88 
88 

88 
30 
CI 
CI 



Q02ppO_.CC_ F0_ 
220256.34 00 
220227.34 CO 
220311.04 AC 



Z_FF_L_I_P _ _ _CMOCOO ( BU , 2__» S T AT_I_( $_1_1_)_ 

BZB,TR£LB($8), ZFRENS 
BZB,.26($8) ,ZREwST+1.0 
TI,2,K N SAVE.Z FR03 
LVI,2,Z FR04 
L_______FRE M 



-BR IF NGN- SYSTEM TAPE TO UNLOAD 



FRE NS 
CFREE 



IMQpopic 

IMOOOOll 
IM000012 
IM000013 
IM000014 
IM000015 



____22_C_26C._0_C_ 
It* 220261. GC 
220262.00 
22C262.4C 
220263. 4C 
22C264.CC 



_C_C_C_CG_0_._4_C 
022133.31 
22C310.17 
COGC00.40 
220310.17 
221045. CC 



_.!_ 
80 
CI 
88 
CI 
80 



220262. 34_00_ 
220267.34 04 

220272.34 02 



_8ZB,SCWNER($il)tZFRC5B 



-IF PP CWNER 



IM000016 

IM000017" 

IM000018 

IM000019 

IM00002G 

IM000021 



IS* 
2C* 
21* 
22* 



BZBZ t TMFREJ, ZFR05 
Z FRC5B LVI f 7fZFR02 

BB, S0_NER($11),ZFRC5 
LVI f 7tZ FR02 
SIC.Z ID09X 



-IF ENRY WAS NOT FROM THE MOVE ROUTINE 



-BR. IF ASSIGN DISMNT REQUEST 



22* 
2<* 
25* 
26* 
21* 
26* 



?2C264_.4C 
220265. CC 
220265.40 
220266.40 
22C267.CC 
22C27C.CC 



_2_2_1_C_4_2_._1_C_ CO 
COCO 10. 17 01 



-CONVERT JCB NAME 



COCCOO. 
221752, 

COCCOO, 
COOCOO, 



3 3 

50 
77 
76 



8B 

00 
8b 

8B 



001000.36 FC 

220271.34 CO 
220274.74 02 

ccgppp.2c_5c 

220274.74 02 

000000.20 CO 

220310.02 AO 
QA0000.20 50 
01C00Q.2C DO 



ZFR06 



ZFR05 



_B_»_Z__IQC9 

LVIt 7,8. 

CMllll(BU.l) »SDISP0(*11»' 
B,K UNLC1+1.32 

BZB,SGVRESl$ll) ,ZFRC5A -IF 
BB,SUNRES($11),ZFR07 -IF IT 



NOT OVERLAP RESERED 

IS NOT OVERLAP RESERVED 



IMG00021 

1M000022" 

IM000023 

IM000024 

IM000025 

IM000026 



2_» 
3C* 
31* 
32* 

32* 
34* 



220271. CC 
22C272.CG 
220273.00 
220274.00 
220274.40 
220275. 4C 



2_22_C13._2Q._80 

COOCOO . 77 8B 
220310.00 
220265.10 
220317. CO 
220320.00 



ZFRC5A L{BU,64),KSCRAC. 16 



-REMOVE THE SCRATCH TAPE 



IM000027 

IM000028" 

IM000029 

IM000030 

IM000031 

IM000032 



80 

00 

8 
80 



ZFR05 



ZFR07 



35* 
36* 
37* 

3£* 
39* 
4C* 



220276.40 
220277.40 
220300.00 
220301. CC 
22C301.40 
220302.40 



_2_2 3_1_1_._G_0_ 
2 2 02 6 5.10 
CC0C02, 
22C252, 
220315, 



B_Q_ 
CO 
8D 

00 
80 
CO 



BB,SOVRES{$11),ZFR07 
ST(BU,64),ZFR02 
B.ZFRG6 

TI, 1,ZFR17,ZFRG2 
_L_ _B_U_ ,_8 ) ,_l F R 1 7 + 1 . C 
ST( RU,8),ZFR03 



-GET PREASSIGN NAME 



IM0p0033 
IM000034 
IM000035 
IM000036 
IM000037 
IM000038 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



37 

50 
CO 



220301.74 02 
220311.04 AG 



Z P 2 



Z FSAVE 



22C257.10 



Alt 
42* 
42* 

44* 
45* 
46* 



B,ZFRC6 

BB,2.31U13),Z F SAVE 

B,ZFFLIP-.32 

TI,2,KSAVE,Z FRC3 

B»_ ! <_D_F_EL 

CNGP 



-BRANCH IF SAVE 



IM000039 
IM00004C 
IM000041 
IM000042 
IM000043 
IM000044 



22C303.CC 
22C306.00 
220307.00 
220310. CC 
2203 11. CO 



K FREM ( IQSX)CD(BU), UNLOAD TAPE 

Z FR04 { IQSX)DC(BU), UNIT X 

Z FR01 ( IGSX)DC(BU), . JOB X 

Z FR02 ( IQSX)DD(EU) , X 

O0CCC2.C0 Z FR03 DRZ(N),12) 



ON CHANNEL X 



Alt. 

4c * 
49* 
5C* 
51* 
52* 



22C31_3_.CC_ 

220315.00 

22C317.CC 

220320.40 

220321.00 

220321.40 



K NSAVE L___X_C___yj_ DO NCJ_ S_A_VE X 



00CCC0.45 
215265.05 

COCCOO. 47 



OD 
30 

8B 



220374.34 02 



K SAVE ( IGSX)DC(eU), SAVE 
Z FR17 ( IUSX)DD(EU),PREASSIGNX 
K K MARK V-I,2, .32 

SV,2,S TIC 

BB.S SEL($11),K E LCCP 



IM000046 
IM000047 
IM000048 
IM000048 
IM000049 



52* 220322.40 

54* 220323.00 

55* 220324. CO 

56* 220324.40 



22 0246 . 41 
OOCCCO. 37 
CCCCG5.C1 
216242.10 



Ql 
8B 
3C 
CO 



____o»__z IrBeE 

BBl.S SET UP{$1D,K 
SV,C,S RET AC($12) 

B,K SUPP 



IM000050 
IM0CC051" 
I. 000052 



220374.34 CE 



E LOOP 



wai 



1 ime clock c0054c41 
lTne lccaTicn 



PUMC 11C11MCP CARD ID INOOOOC1 DIST. GF 3/C1 
BINARY" CUTPUT "MKt" ~~ "STATEMENT 



3/01 



PAGE NUMBER 167 
LCC A T"I ON" 



1* 
2* 

2 * 

_l?_?2C32b_.00 

_5?_2 2C32_5_.0_G_ 

d* 22C325.4C 

1« 220326. CO 

£* 220326.40 

<* 220327. CO 

1C» 22C33CCC 



•DENSITY AND MODE CHANGE PSEUDO-CPS- 



00 C C C 1 

2~2G32 6. 

CCCCC3, 

C0CC11, 

CCCCG2, 

COCCCO, 



13 

5C 
13 
13 
33 
5C 



CI 

CO" 

CI 

30 

3D 

8E 



RhC 



RLC 



002027. 2C 

001000.36 



CO 

FO 



SLC,$ 
LVI, 5, 1.0 
~3,RLD.3 2 
LVI ,5, 3.C 
SV»5, $R 

ST( BU f 2) ,SFD£N($13),46 
CMlllllfcU, 1),SVER(*11) 



IN000001 

IN000002 

IN0000G3 

IN000004 

INOOOOOS^ 

IN000006 

IN000007 

IN000008 

IN000009 

IN000010 



11* 
12* 
12* 
1<* 

IS* 
16* 



2 20331.00 
22C331.40 
220332. CC 
220332.40 
220333.00 
220333.40 



CO C 007^52 
CCCCC0.13 
220C64.32 
C0CC04. 11 
220064.32 
000015.47 



3C 
CC 
CC 
04 
CC 
01 



LV,5,SFILEKU12) 
KVNI,5,C" 
EZXE.KILEGL 
RTAPE KVI, 4, 4.0 

BZXE,KILEGL 
LVI, 3, 13.32 



IN000011 
IN0000I2 
IN000012 
IN000013 
IN000013 
IN000014 



1 7 * 2 203 34. CO 
It* 22C334.4C 
19* 22C335.00 
2C« 220335.40 
2J* 220336. CO 
22*_22C336.4C 
21* 220337.40" 



22 072 7. 5 C 
00CCC2. 13 
220336. 10 
CCCC03. 13 
C0CC11.13 
_C_0_G_C_02_. 60 
22 C 3 32/5 



CO 

01" 

CO 

CI 

30 

8D 

00 



P, KM + 1.0 

L VI ," 5,2.0 

B,RCCC.32 

LVI ,5,3.0 

SV,5,$R 

ST( BU,2),SFM0DEU13_) ,46 

B, RTAPE" 



IN000015 
"IN000016" 
IN000017 
IN0000I8 
IN0C0019 
I NO 000 20 
IN000021 



REVEN 



RCCD 



002027. 2C CO 



2«* 
25* 
2t* 
27* 
2E* 



22034C.CC 
22034G.4C 
220341.00 
220341.40 

220342. CC 



C0CC01.13 01 
00CCC4.11 C4 
220342.72 CO 
22C344.10 GO 
CCCC03.13 CI 



RECC LVI, 5, 1.0 

KVI ,4,4.0 
BZXE,RNGECC32 

6,RSFMCC 
RNCfcCC LVI, 5, 3.0 



IN000022 
IN000023 
IN000024 
IN000025 
IN000026 



2S« 

~3C* 

3J* 

32* 

32 * 
34* 



220342. 4C 
22C343.C0~ 
220343.40 
220344. CC 
220344.40 
220345. 4C 



CCC 1 . 51 
22 344. "3 2 
CCCC02. 11 
C0C011.13 
OOCC02.6C 
22C333. 10 



C4 
~C2 
C4 
30 

80 
CC 



KVI, 4, 1.32 
"BXEtRSFKGC 
KVI, 4, 2. C 
SV,5,$R 

ST[EU,2),SFMGCE{$13} ,46 
B, RTAPE. 32 



IN00002/ 



RSFMGD 



002027.20 CO 



IN000028 
IN000029 
IN000030 
IN000031 
INOO0032 



20 

19 
18 
17 
16 
15 
U 
13 
12 
11 
10 
9 

e 

7 

6 
5 
4 
3 
2 
1 



35* 220346.00 
3t* 22C346.4C" 
37* 220347.00 



COCCCO. 4 5 
2 1 526 5. "C 5 
22CC17.5C 



CD 
30 
00 



RALLPS 



V-1,2, .32 
SV,2", STIC 

B,W2 3K 



I NO 000 33 
IN0G0034 
IN000035 



wai 



1 IME CLOCK 0CC54C41 



PUNID 11D11NCP 



CARD IC JAOOOOOl 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 168 



LINE 



LOCATION 



BINARY OUTPUT 



NAPE 



STATEMENT 



LOCATION 



1* 
_ * 

2 * 

f*_22034 7.4_C_ 

5* 22C347.40 



00CCC0.40 SB 001067. 2C 50 



— ***»#*■»##»*#**«»«#*«**«##-»*««*«#***#*»#*«*#***«***#****#«#***#**»*#*»* JA000001 

— #«***«««*«**««_#--_* toAIT ************************** JA000002 

— •»**»«#***»**»**#•»*■»*»*#*#**»#*•«»**»*****»#****»**»*»»**********«***»** JA000003 

SLC,$ __ __ _ __ JA000004 

K ; UA IT 1(80,1 ) ,S OtvN~ER(VlT) ,-Tti ~ -DETERMINE LEVEL OF INTERRUPT JAC00005 



_* 
i * 
t * 
.* 

K* 



22C35C.4C 
22C351.CC 
22C351.4C 
220352.40 
220353. CO 



CCCCC0.45 
215265. C5 
215CC1.C5 
CC0C10.22 
215C21.23 



CD 
3 
8Q 
30 
05 



001067.20 CO 



V-I,2, .32 

SV,2,S TIC 

ST(BU,1},S M.-18 

LV,9,$L 

V + I ,9,S PROG S_ 



-PROG STAT TABLE ADDR 



JAC000Q6 
JA000007 
JA000008 
JA000009 
JA000010 



l.* 

12* 
14* 
15* 
14* 



220353.40 



_C_Q.CC_0_1._42_ „3D_ LV_l_SI_TAg($13_)_ 



JAC00011 
JA000012 
JA000OL3 
JA000014 
JA000015 
JA0C0016 



220354. CC 
220354.40 
220355.40 
220356.40 
22C357.4C 



220356.71 
00GC00.31 

cocooi. n 

C0CC00. 32 
220360.43 



42 
89 
80 
8A 
01 



220356.74 
220375.74 
220366.74 



02 
06 
C2 



K CIG 



EXVZ, $+2.32 
BB,SAS($9),$+2.0 
BBZ,SEWAIL{$13),KPASS 
BB,S CH 0P( $1C) ,K MISU 
LVLili $+1. 



II* 
It* 
IS* 
2C* 
21* 
2_* 



22_CJ3_6_C_._C_C_ 

22C360.4C 

220361. CC 

22C362.C0 

22C362.40 

220363.40 



_2.2_2.C2.0_LC 
22C375.-C 
000000.31 
C0CC36.37 
215C01.05 
21 5230. CC 



oo 

00 
89 
02 
80 

80 



8___S_RCh 

B,K PASS 

BB,S AS($9),K INT TV 

LCI, 15, 30 

BB,S N, 1+2.32 

T_, 15-S ILR,S LR PP 



JAOpOpJ.6 
JA000017 
JA000018 
JA000019 
JA000020 
JA000021 



216010.74 02 

220365.34 02 
215266.36 2C 



22* 
24* 
25* 
26* 
2<* 
2fc* 



220364. 4C 
22C365.CC 
220366. CC 
220366.40 
220367. 4C 
22C37C.CC 



_2_1_6_0J_0_.J_C _c_0 
215230. CC 80 
216010. 5C 00 
CCCC00.47 8B 
00CC03.32 9C 
22C357.72 CO 



_B_,_K_INT TY 
T,15,S TLR,S LR MCP 
B,K INT TY 
BB,SSELU11),KDIG 
KV,13,S FI AAC($12) 
8ZXE,K CIG 



4^000022 
JA0CC023 
JA000024 
JA000025 
JA000026 
JA000026 



215362.36 20 



220357.74 02 



KMSU 



2i* 

3C* 
31* 
32* 

32* 

34* 



__.-_* 
3 6* 

37* 



22C37C.4C 
220371.40" 
220372. CC 
220373.00 
22C374.00 
220374. 4C 
220375. CC 



_C_0_C_C_C_0_._3_1_ 
0CCC00.33 
C0CC01.40 
00CC01.71 
C0CC01.45 
_2_1_5_26_5_._C.5_ 
216242. IC 



89 
39 

ao 

80 
00 
30 
CO 



220374.34 02 



031000. CC 
001000.36 



FC 
FO 



KELCOP 



BB,_S AS[_?)_K_E LOOP 

"SV, 13,~C.0(*9) . 

CMOCOO<BUf 25),SINTAU(*13) 

CH1111,SEWAIL($13) 

V-I,2, 1.32 
AV_,_2»STIC 

B,K SUPP 



-FILE A AOCR TO kAIT FItLO 



JA000027 
J AO 000 2 8 
JA000029 
JA000030 
JA000031 
JA000032 



JA 0000 3 3 

JA0C00 34 
JA000035 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



22C375.4C 
22C376.40 



OOCCCO.CC 
216242.10 



89 

CO 



C3O0C0.CC FC 



K PASS CM0C00(BU,24) ,0.C($9) 
B,K SUPP 



wai 



IIME CLOCK CCC54041 PUNIC 11C11MCP CARD IC JBCOGOC1 DIST. GF 3/C1 3/01 PAGE NUMBER 169 



V 



ll 



LINE LOCATION BINARY CUT PUT NAME STATEMENT LOCATION s 

1* — «******#***»»■»*******#««*»«********««*****#»**«»»#*-»»*»**»***»*#*»»*»* JB000001 

i* -********** CHANGE 10 TABLE CF EXITS *««»»**«**- JB000002 

2* — *********** *****««*«********#**#*»*******#****»*«»*««*•»*#*** *«•»**■»»»««* JB0Q0003 6 

** 22C37J.0C * _ _ SLC,1_ JBG00004 0l 

„^*_22C3J7_.C_C_ _2_1 52^6. CC~ag __ 00002 1~._36_ E_C____C JCHEX " " "SWA P I ,1 5, S~ TLR+_lV.",Vf " -COMPUTE" 3RD PARAMETER ^¥ 9 9^Y 

(.« 2~2G4CC.CC 22C7G6.C1 B0~" LVE , , K IOD~ RN- . 3~2 JBC00006 ~ 

<* 22C4CC.40 215246. CO 80 0C0021.36 EO SWAPI,15,S TLR+14.,$1 JB000007 

fc* 22C4C1.40 22G4C2.10 C6 BU$AZ,$+.32 JB000008 

S* 22C402.CC 22C402.5C 46 BADZ,$ + .32 JB000008 S1 

1C*_220402_.4C_ 0CCC20.CG 50 J-A^* iG JB000009 

"11* 22C4C3_.CC/ "_ __2L523q._71~80__220406.35_00"_ "___ _" BZO , ~S_T_LR_+ 0. 57,' C ChtKT ~_-BRANCH~ IF_MCP_ NEXJ t_ " _ "_I "JBOOOOIO - " 

It* 22C4C4.C0 215230.01 90 Keel S UPPER -IF IN PP , CHOCK" THAT NEXlT " " JBQCTOOlT 

12* 22C404.40 22C4C7.32 40 BZXL, C NX OUT -IS WITHIN PP BOUNDARIES JB000012 

14* 22C405.CC 21523C.41 90 KC, C, S LOWER JB000013 

15* 22C4C5.4C 22C4C7.32 42 BXL , C NX OUT JBC00014 

1^*_22C4_C6_._C0 C0_CC02.qi 50 __ AJL"1Ml _SC,C, S TOE L0($13) -STORE IN FILE AREA TABLE JB000015 

17* 220406.4C" ~ 2 1 62~42 . 1C CO f».K~SUPP~ ~ - JB000016 

IE* 22C407.CC C0C4C1.35 01~" C "NX OUT _ LV I t 14, SNXOUT" JB000017 

IS* 22C407.4C 217451.40 80 SIC.S OISIC JB000018 

2C* 22C41C.C0 217372.10 GO B,S DiSP JB000018 



51 



20 
15 
18 
17 
16 
15 
14 
13 
12 
II 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



1 I ME CLOCK CCC54C41 PUNID llDllfCP CARD ID JCCOCOC1 DIST. CF 3/C1 
"C IN E ~ " ~ L C A T~I C~K BINARY" CUT PUT NAME " " " S T A t EM E N T 



3/01 



PAGE NUMBER 170 
L DC A T~I ON 



V 
9 
9 
L 
8 
6 
Ot 
II 
El 
£1 
1\ 
SI 
91 
l\ 
81 
61 
OS 



I* 
i* 

i * 
< * 



22C41C.40 _ _*_ 
22C410.4C 



— **K*»*****#-it*e***#*«***#******»************##****»***»»-)t##»«**»«**-a5»* JC000001 

**»*«*««*********»**SUPPRESS I/O INTERRUPT *************** JC000002 

— •»#**#»***»«**#■»«*»•»•»****#»**-»*#****»«»»**■»#*«**»«*#**#*****<#*******»» J C 3 

SLC,$ JC000004 



t * 

e* 
"i * 
i * 
<* 
IC* 



215CC1.C4 

C0CC1C.22 

215C21 

GCCGOO 

COCCOO 

21 526 5. C 5 

216242. IC 



80 
30 
05 
89 
C5 
30 
CO 



001067. 2C 5C 



K SIC 



L,-18 



UBU, 1) ,S 
LV,9, $L 

V+I,9,S PROG S 
CM1111(RU,1),S 
V + I ,2, .32 
S_V L 2,S_TIC 
BtK SUPP 



- E T t R MI N E L E_V_E L_ _Q_F_ _I_C_ _ 
-PRCG STAT TABLE FCR SL 



JC000005 
"JC000006" 
JC000007 
JC000008 
JC000009 

jcggooio 

JC000011 
JC000012 
JC000013 
JD000001 
JC000002 
JC000003 



22C411. 

22C412, 

22C412. 

220413 

220414 



4C 
CO 
40 
40 
CC 



23 
7 5 
45 



0C1000.36 FO 



S10U9) 



LI? 
Ik* 
11* 
14* 
15* 
It* 



220414. 40 



-««***«*«***« RELEASE I/O INTERRUPTS ************- 



iI*_2 204_l_5_.C_C_ *_ 
It* 22C415.C0 
IS* 22C41I 
2C* 22041) 
21* 22041 
22* 22C42( 



SLC,$ 

L(BU, 1),S 
LV,9,$L 

V+I,9,S PROG S 
CMOCOO(BU t l)f S 
_y.tLL?fi32_ 
SV,2,S TIC 



JQ0Q0004 
JU0C0005 
JD000006 
JD000007 
JD000008 
JD000009 



.6.00 
.6.40 



7 

!C 



CO 
CO 



215CC1. 
C0CC10. 
215C21. 

COCCOO. 
COCCCC, 



C4 
22 
23 
75 
45 



80 
30 
05 
89 
C5 



001067. 2C 50 



001000. CC FC 



K RIO 



L,-18 



SI0($9) 



-DETERMINE LEVEL OF IC 

-PRCG STAT TABLE FOR SL 
-TURN OFF SIO BIT 



21* 
24* 
25* 
2t* 
21 * 
2t* 



22C42 
22042 
22042 
22C42 
22042 
22042 



C-4C 
1.00 
2.CC 
2.40 
3. CO 
3.40 



_2_1_5265_. 

COCCOO, 

COCCOO. 

216242 

CC0C36, 

215001. 



C 5 30 
31 89 
6C 59 
30 42 
37 02 
04 80 



216242.34 02 



220426.34 02 



29* 
3C* 
31* 
3i* 



22042 
22C42 
22C42 
22042 



4.4C 
5.40 
6.00 
7.00 



2_l_5 2_3_0_._C C _8 0215266. 362C 
222C37.10 00 

215230. CC 80 215362.36 20 
222037. IC CO 



BB,S AS($9) V K SUPP 
LC,8,S G K{$9) 
BXCZ,K SUPP 
LCI ,15,30 
BB,S L L K MOVE 
T,15,S TLR,S LR PP 



-DETERMINE IF IN FIX UP 
-IF NOT, UNSTACK 



jQooogio 

JDOOOOll 
JD000012 
JD000013 
JD000014 

JD000015 



JD000016 

"joooooir" 

JD000018 
JD000019 



B f KLNSTC 
K MCVE r,15,S TLR, S LR MCP 
B,KUNSTC 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 

9 

8 

7 

i 

5 

4 

3 

2 

i ! 



wai 



i IME CLOCK 0CC54041 
LINE L C C ATfcV "" 



punio 11d11mcp card id kacoc001 cist. gf 3/c1 

""binary - cut puT" " ~~na~m~e" ""statement" 



3/01 



PAGE NUMBER 171 
LOG ATlON" " 



1* 
_* 

2 * 

A* 

5* 
"IV 

t * 
i* 
c . * 

1C* 



22 042/ 
2 204 27 
22 04 3 
220430 
220431 
220432 
220432 



. 4G_ 

"._4C_ 

".CC 

.40 

.00 

.CO 

.40 



_Q.0Q.C3i. 

220431. 
220432, 

COCCOO, 
216242 

C0CCC1, 



C7 
C3 
50 
CO 
1C 
C5 



Q_ 
01 
GO 
89 
GO 
05 



220451.06 20 



— #«******#**#* *«*******»#«*_*****#»»*_**_ft*»*****_»**_*^ KAOOOOOi 

-a********* STORE IN COMMUNICATION REGION #******«**- KA000002 

— *«****»*»»***«»«*********»**«»*♦«»*»**»*#*«#*******»**#*«####**»****** KA000003 

slci> k aooooo4 

"_K_ST_RG _ TCIt37KCGANJ '_ ~~ ~ " ___-_-_ l00 9P_ i ~ 

LVlM.t+l.O " " " ~ KAC00006" 

B,K CAB KA000006 

T,$3,C($9),KSILC KA0000Q7 

B,K SUPP KA000008 

K CAB V+I»2 f l.C KA000009 



u_ 

12* 

13* 
14* 
15* 
16* 



22C433. 

220433" 

220434 

220434, 

22C435. 

22C436. 



CO 
40 
CC 
40 
40 
CO 



21526 5.05 
CO CC 00.45 
220435.45 
000021. CO 
220435.63 
C0CC21.C0 



3 

CD 
DO 
80 
BO 
80 



SV,2,S TIC 
~V-I,2,."3 2 
SVA,2,$+1.32 
SWAPI,3,$1,S TLR+14. 
LVE,9,4> 
SWAPI,3,$1,S TLR+14.C 



KACC001G 
KAOQOOll 
KA000012 
KA000013 
KA000014 
KA000015 



215246.06 EC 



215246.06 EC 



17* 

lfc*" 

IS* 

2C* 

21* 

22* 

2~. V 



22C43_7_ 
220437, 
22C440, 
220440, 
22C441, 
220441, 
22C442". 



_C_C_ 
40 
00 
40 
CC 
40 
00 



22 0443, 
22 0444, 
215230, 
220443. 
000014. 
215230. 
220443. 



50 
10 
62 
72 
63 
22 
72 



__ 
46 

90 

42 

05 

90 

4 



BUSAZ,1<_G00F__ 
BADZ,K GOOF+.3 2 
KV, 9, SLOWER 
BXL,KGCCF 
V+I ,9, KCUANT 
KV,9,S UPPER 
BZXL,KGCCF 



KAQ00016 
"KA00C017" 
KA000018 
KA000019 
KA000020 
KAC00021 
"KA000622 



24* 
25* 
26* 
21* 

2£* 
"2?*" 



220442 

220443 

220443, 

22C444, 

220444 

220445, 



4C 
CC 
40 
CC 
40 
CO" 



C00C14, 
COCCOO, 
22C444. 
C1CC11, 
217451, 
211312, 



6 3 

10 
10 
3 5 
4C_ 

Tc 



CD 
CI 
46 
01 
80 
CO 



V-I ,9,KGUANT 
B,0.0( $1) 
K GOOF BA0Z,$+,32 

LVI,14,S FORBD 
SICtS CISIC 
"B,S"DISP 



KA000023 
KA000024 
KA000025 
KA000026 
KA000027 
KA000027" 



3C* 
31* 
32* 
32* 
34* 



-«******««* FETCH FROP COMMUNICATION REGION *-***«***#- 



KA000028 
KA000029 
KB000001 
KB000002 
KB000003 



20 

19 
18 


35* 
36* 
37* 
36* 
3S* 
4C* 


220445.40 * 
22C445.4G 
22C446.C0 
22C446.4C 

220447.00 
22045C.CC 


00CC31.C7 
220447. C3 
220432.50 
220451. CO 
216242.10 


02 
01 
CO 
80 
CO 


000000. C6 29 


K 


FECRG 


" SLC,T 
LCI,3,K QUANT 
LVI,1,$+1.0 
B,K CAB 

T,3,K SILC,0.0t$9) 
3,K SUPP 




"KB000004 
KB000005 
KB000006 
KB00G006 
KB000007 
KB000008 
KBOCOO69 
KBOOOOIO 
KBOOOOll 


17 


41* 


22C45C.40 


COCCOO. 30 


CO 








CNOP 




16 
15 
14 
13 
12 


42 * 
42* 


0CCCCC.C0+ 
220451.00 * 


+CCCC0031 
000031. CO 




NULL 


K 
K 


QUANT 
SILO 


SYN,25 

DR( P.U,64) , (K QUANT) 


-COMMUNICATION REGION 


11 




10 
9 
8 

7 
6 


. . . . .. .. _| 


5 




4 
3 
2 

1 























wai 



IIME CLOCK CC054C41 



PUN ID 1101 IMC P 



CARD ID KCC0C0C1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 172 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 

2 * 

4* 22C502.00 



•STORE LOUfcR REGISTERS- 



215021.23 CI 



TSTLR 



LV1 ,$9,SPR0GS 



KC000001 
KC000002 
KC000003 
KC000004 



22C502.4C 



COCC00.31 89 220543.74 OC 



BZB,SAS( $9) ,TMER2 



- PSEUDO-OP AVAILABLE ONLY IF AUTC-ST 



KCOOOOOb 
KC000006 
KC00000 7 

Kcoooooe 

KC000009 
KC000010 



t * 
i * 
t* 
s* 
It* 
11* 



22C5C3.4C 
22C504.0C 
22C504.40 
22C505.CC 



C0CCC0.45 
22C506.45 
CCCC00.45 
215265. C5 



05 
00 
05 
DO 



V+I ,$2, .32 
SVA,$2,TMSET 
V+I, $2, .32 
SVA,$2,STIC 



22C505_.4_C 2_l_5_2_46_._CC_8 0__pcg021_.04_ AG T I L 2 t S_LR+ 14 . C_,J>_1 

2 2C5C6 . 40 22C 506 .4 3 _80 J_M_S_ET_ L_ V_E _ $ 1 _ $ 



- GET TO BUFFER ADDRESS 



RETURN ADDRESS 
RESTORE INDEXES NEEDED 
BUFFER SHOULD BE ThERE 



IN VF OF $1 



KC POOP 11 
KC000012 
KC000013 
KC00C014 
KC000014 
KC000015 



12* 
12* 
14* 
15* 
U* 



220507.00 
220507. 4C 
22C51C.C0 
22C51C.4C 
22C511.CC 



2205C7.5C 
220510. 1C 
220541.40 
22C536.5C 
CCCC36.C4 



C6 
46 
80 
CO 
31 



BUSA2,$+.32 

BADZ,$+.32 

SICTMCHEK 

B,TCHEK1 

LV L _2,3C.G{$1) 



- CHECK BOUNDS ON PP BUFFER 



II* 
It* 
IS* 
2C* 
21* 
22* 



22C_5_1„1_._4C_ 

22C512.CC 

22C512.4C 

220513.00 

220513. 40 

22C514.CC 



215230. C4 90 



220542.32 
215230.44 
220542.32 
215276. C4 
220545. C5 



40 
90 
42 

10 

10 



11* 

24* 
25* 
26* 
21* 
2f * 



220514.40 
220515. CC 
220516. CO 
22C517.C0 
220520.00 
220521, CC 



_QP_QC_3_5_._C3_ 
C00CC2.C0 
215300.25 
220545. C4 
215277.04 
_2_2_0_54 5.2_2_ 
215277.22 



02 
81 
80 
80 
80 
80_ 
8 
216242. 1C 00 



KV,$2,STLR_ 
BZXLt TKER1 
KV, S2.STLR+.32 
BXL,TMER1 
LX,$2,SLRPP+8.C 
„S_X_$2_I_SVIN___ 

_LQ.LLlii2?.g_ 



CHECK BOUNDS ON PP IC 



- SAVE INDICATORS 



KOODOO 16 
KC000017 
KC000018 
KC000019 
KC000020 
KC000021 
KC000022 



2i* 

3C* 



22C522_.CC 
22C523.C0 



215267. C2 

001000.36 
001000. C6 
001000.12 
001000.06 
001000.12 



2 

FC 
70 
FO 
7C 

FO 



T, $1,2. GUI ), SLRPP+1.0 
CM111KBU, 1), SLRPP + 1C.21 - 
LF(BU, l),TMSVIN+.4 



STORE LCwER REGISTERS 
IF FORCED ON IN MASK 



SFIBU, l),SLRPP+9.4 
LF_(__U_1__JMSV_IN+.18 
SF(.BU L 1 ) ,SLRPP+9.18 

B.KSUPP 



CANNOT CHANGE TS 



CANNOT CHANGE EXE 



KC000023 
KC000024 
KC000025 
KC000026 
KC000027 



KC000028 
KC000029 



20 
19 
16 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



1IME CLOCK CCC54C41 PUNID 11D11MCP CARD ID KDCOOOC1 
LINE LOC A~T _ I CN" ~ BINARY" CUTPUT"" NA>^£ 



CIST. OF 3/C1 
STATEMENT 



3/01 



page number 173 
locatTon""" 



1* 

2 * 

2 * 

4* 22052 3. 40 

_5_ * _22C52_5_.00~ 

6* 22C524.4C 

I* 220525. CO 

fc* 220525.40 

S* 220526.40 

1C* 220527. CQ 



■FETCH LOWliR REGISTERS- 



_C0CC00.4 5 
2"2 52 6.4 5~ 
C00C00.45" 
215265.05 
215246.00 
220526.43 
220527. 5C 



05 

c 9 

C5~ 

DO 

80 

80 

C6 



000021.04 AC 



_ T _ F Q.HLR V + If|2,.3Z 

~S V A , $ 2 , T F SET" ~ " ~ 
V+I ,$2, .32 
SVA,$2,STIC 
TI,2,STLR+14.0,$1 

TFSET LVE,*1,$ 

HUSAZ,$+.32 



- GET TC ADDRESS OF BUFFER 



RETURN' ADDRESS 

RESTORE INDEXES 

PICK UP BUFFER ADDRESS 

PP CATCHES THESE INTERRUPTS 



K0000001 

KD000002 

KD000003 

K DO 000 04 

"KDOOOOOfT 

KD 00 00 06" 

KD000007 

KD000008 

KD000009 

KD000010 

"KDOOOOll" 

"KD000012" 

KD000012 

KD000013 

KDC00014 

KD000015 

"KD000016" 

" K DO 00017" 

KD000018 

KD000019 

KD000020 

KD000021 

KC000022 

KD000023" 

KC000024 

KD000025 

KC0G0026 

KD000027 

"KC000028 

KD000029 

KD000029 

KD000030 

KD000031 

KD000031 

~K COO 00 132" 

"KOO 00033" 



1 J* 
12* 
12* 
14* 
15* 
U* 
17* 



2 20527.40 

22C53C.CC" 

22C53C.4C 

22C531.0C 

22G531.4C 

22C53_2_._4_0 

220533.40 



220530. iC 
220541.40 
220536.50 
000036. 03 
215266.00 
215C_C5._CC 
00CC36.4O" 



46 
80 
00 
02 
80 
§Q 
81 



000001. C2 21 
040000.20 50 
040000. 2C~ CO 



BADZ,*+.32_ 
"SICtfMCHEK 
8,TCHEK1 
LCI ,$1,30.0 
T,$1,SLRPP,1.U1) 
LtBLf 32jtSBAPP 
ST reU,32),30.32V$l) - PP GETS SEAPP IN BUFFER +30.32 



CHECK BOUNDS ON PP BUFFER 



- FETCH LOWER REGISTERS 



U* 
IS* 
2C* 
21* 
22* 



22C534.4C 
220535. CO 
22C535.4G 
220536.00 
220536. 4C 



215C21.C4 
CCC000.04 
CCCC0O.C5 
216242. 10 
215230.42 



10 
32 
11 

00 



TCHEK1 



LX, $2,SPRCGS 
LV,$2,0($2) 
SX, $2,0U1) 
B,KSUPP 
KV,$l,STLR+.32 



CONVERSION OF FAT TO ICD NO. 

PP GETS SPROGS IN FIRST WCRD OF 



BUF 



C HECK LOWER BOUND 
_E"RR.QR " "_ 
BUFFER 31 "WCRDSLCNG 

CHECK UPPER BOUND 
ERROR 



22* 
24 * 
25* 
2£* 
27* 
26* 



22C537..CC 

220537.40" 

220540.00 

220540.40 

220541. CO 

22C541.40 



220 542.32 42 
000036.03 05 
215230.02 90 
220542.32 40 
C0GC36.C3 CD 
220541.50 CO 



TFCHEK 



BXL L [MER1 
~V+Ii $1,30.0 
KV,$1,STLR 
BZXL,TK£R1 
V-I, $1,30.0 
R,$ 



29* 

~3C* 
31* 
32* 

32* 
34* 



220542^.00 

220542.40" 

220543.00 

220543.40 

220544. CO 

220544.40 



G1CC11.35 01 



TNERl LVI ,$14,SF0RBC 

SIC, SO I SIC 

B,SCISP 
TKER2 LVI,$14,SERCCD 

SICSDISIC 

B,SCISP 



217451.40 
217372. 10 
001012.35 
217451.40 
217372.10 



80 
00 
01 
80 

CO 



- ERROR ROUTINE 



35* 
36* 



220545.00 
220546.00 



C 00 C 1 .00 
COCO 12. CO 



TfSVIN 



DRZ 
DRZ 



BU), 1 
"BU"),1C 



- FOR DEBUGGING PURPOSES ONLY 



20 
15 
18 
17 
16 
15 
14 
1* 
12 
11 
10 
9 
B 
7 
6 
5 
4 
3 
2 
1 



wai 





TIKE CLOCK CCC54C41 PUNID 


11C11MCP 




CARD 


IC 


KfcOOGOOl OIST. OF 3/C1 3/01 PAGE NUMBER 174 






LINE LOCATICN 


BINARY OUTPUT 






NAME 


STATEMENT LCCATICN 






1* 
2* 




















k pnnnfifii 
















— 




THE SFIXUP PSEUCC OP 


IV C UU UUU 1 

KE000002 




- 








* 












k E-nr\cinn a 




* * 














_ 






KE000004 
























— k f n n n n n ^ 




i* 














_ 




THE CALLING SEQUENCE FOR SFIXUP 


KE000006 




- 




















u pnnnno7 




i * 














— 




B,$MCP 


KE000008 




S* 














- 




,$FIXUP 


KE000009 




U* 














— 




,A(I) 


KEOOOOIO 
KE000011 




11* 














- 




,B(J) 




12* 














— 




-RETURN- 


KE000012 




12* 














- 






KE000013 




14* 














- 




A(I), IF NOT ZERO, IS THE LOCATICN IN PP MEMORY WHERE THE 


KE000014 




15* 














- 




PATTERN WORD AND THE PRESENT INTERRUPT TABLE ARE SAVEC. 


KE000015 




Id* 














- 




B(J) IS THE LOCATION MERE THE PP PATTERN WORD AND THE ONL 


KE000016 




17* 














- 




WCRC FIXUPS ARE, IN ORDER OF APPEARANCt. 


KE000017 




H* 














- 






KE000018 




19* 


22056C.C0 


G00CG0.45 


05 








F 


FXP 


V+I, $2, .32 


KE000019 




2C* 


22C560.40 


220564.05 


DO 












SVA,$2,FSVEF -ADCRESS OF A(I) 


KE000019 




21* 


220561. CO 


C0CCC0.45 


05 












V+I ,$2, .32 


KE000020 




22* 


220561. 4C 


220564.45 


CO 












SVA,$2,FSTEF -ADDRESS OF B(J) 


KE000020 




22* 


22C562.CC 


C0CCC0.45 


05 












V+I, $2, .32 


KE000021 




24* 


22C562.40 


215265. C5 


DO 












SVA,$2,STIC -RETURN ADDRESS 


KE000021 




25* 


220563. OC 


215247.00 


80 


000022, 


.04 


AC 






TI,2,STLR+15.,$2 -RESTORE PP INDICES 2~3 


KE000022 




2d* 


220564. CO 


220564.01 


BO 








F 


SVEF 


LVEftOfl -A(I) LFFECTIVE ADDRESS 


KE000023 




21* 


220564.40 


220564.43 


BO 








F 


STEP 


LVE,$1,$ -B(J) EFFECTIVE ADDRESS 


KE000024 




2£* 


220565.00 


220636.10 


C6 












BUS£Z,FERRZ 


KE000025 




29* 


22C565.4C 


220636.50 


46 












BACZ,FERRZ+.32 -USA OR AD ERROR 


KE000025 




3C* 


220566. CO 


000003.42 


90 












KV, $1,3.32 


KE000026 




31* 


220566.40 


220636.72 


42 












BXL,FERRX -BRANCH IF 6 ( J ) IS NOT 


KE000026 




32* 


220567.00 


000003.02 


90 












KV, $1,3.0 


KE000027 




32* 


220567. 40 


220636.72 


40 












BZXL,FERRX -WITHIN PP BOUNDS 


KE000027 




34* 














- 






KECC0028 

KE000029 

~~KE000030 




35* 


22G57C.00 


CCCCCO.CO 


01 


000000, 


20 


50 






L(BU),0.($1) -LOAD THE PP PATTERN WORD 




36* 


2205/1. CO 


220641.00 


80 


000000. 


C2 


70 






COOCHBU) ,FBMSK -REMOVt UNWANTED ONES ONLY 




37* 


220572. CC 


220640.00 


ao 


000000. 


12 


FC 






SF{EU,64),FPTwD -SAVE DOCTORED PATTERN WORD 


KE000031 


20 


3£ * 














- 






KE0C0032 


!9 


39* 


22C573.0C * 


0CCCC7.C0 


80 


QCCOOO, 


20 


50 






L(BU),7.G -LOAD COUNTERS 


KE000033 


18 


4C* 


220574.00 


220642.13 


80 


OC7006. 


6C 


DC 






ST{ BU,7),FAL0C.U,13 -ALL ONES COUNTER 


KE000034 


17 


41* 


22057b. CC 


220642.62 


80 


006024. 


20 


CO 






ST{ BU,6),FLZCN.18,4C -LEFT ZEROS COUNT AS VF BIT ACDR. 


KG000035 


16 


42* 


22C576.CC 


220643.14 


80 


006024. 


20 


CO 






ST(BU,6),FADC.12,40 -LEFT ZEROS COUNT AS VF FWA 


KE0C0036 


15 


42 * 














- 






KE000037 


14 


44* 


220577.00 


000021.04 


30 












LV,$2,$1 


KE000038 


13 


45* 


220577.40 


220642.04 


EO 












V+,$2,FAL0C 


KE000038 


12 


46* 


220600. CO 


00GCC3.C4 


90 












KV,$2,3.C 


KE000039 
KE0000 39 


11 


47* 


22C600.40 


220636.72 


40 












BZXL,FERRX -BRANCH IF B{J) ABCVE PP BOUNDS 


10 


4£* 


220601.00 


CCCC20.04 


30 












LV, $2,$C 


KE000040 


9 


49* 


220601.40 


220607.31 


42 












BXVZ,FSTUP -ERANCH IF AM) IS ZERO 


KE000040 


8 


5C* 


22C602.C0 


000003.44 


90 












KV, $2,3.32 


KE000041 


7 


51* 


220602.40 


220636.72 


42 












BXL,FtRRX -BRANCH IF MI) BELCW PP BOUNDS 


KE000041 


6 


52 * 


220603. CC 


220642.04 


80 












V + , $2,FAL0C 


KE000042 


5 


52* 


220603. 4C 


C0GCC3.C4 


90 












KV, $2,3.0 


KE000042 


4 


54* 


220604.00 


220636. 72 


4 












BZXL,FERRX -BRANCH IF A(I) ABOVE PP BOUNDS 


KEG00G43 


3 


55* 


220604.40 


CGCC20.04 


30 












LV,$2,$C -RESTORE ACI) IN $2 


KE000044 


2 
1 


56* 


220605.00 


COCCOO.CG 


81 


000000. 


2C 


5G 






L(BU) ,C.($1) 


KE000045 



wai 



I IME CLOCK CCC54C41 



PUNID UCllMCP 



CARD IC KE000045 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 175 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



220606 



1* 
2 * 

2 * 
4* 
5* 



22C6C6.00 * 

22C6C7.CC 
22060 7.40 
22C61C.CC 



COCCOO.GO 82 0C0000.2C DC 



ST(BU) t C.($2) -SAVE PATTERN WORD AT A(I) 



220642.46 
22 06 4 3.10 
2~20642. IC 



30 
30 

50 



F STUP 



LV,$3,FLZCN 

LV_$4,FACC 

LC, $4, FALOC~~-FWA 



-B.A. OF 1ST ONE BIT IN PATTERN WD 



OF wD TO BE CHANGED + COUNT 



KE000045 
KE000046 
KE000047 
KE000048 
KE000048" 



0: 
11 



6* 
i * 
f * 

IC* 



22C61C 
22C611 
22C611 
220612 
22C613. 



4C 
CO 
40 
00 
CC 



216242. 3C 
22C612. IC 
220643.46 

220640.00 
00CCC1. 11 



42 

CO 
BO 
83 

5 



220614.34 02 



BXCZ.KSUPP 
B,FCKBT+.32 
F CKBT V+,$3,F0VF 

BB,FPTWC($3),FSVI 
V + I , $4, l.C 



-RETURN IF PATTERN WORD IS ZERO 



-INCREMENT 
-BRANCH IF 



B.A. +0.01 
PATTERN BIT ON 



KE000049 
KE000050 
KE000051 
KE000052 
KE0G0053 



11* 
1 2 * ' 

12* 

14* 

15* 

16* 



2 2C613_.4C_ 

220614.00 

220614.40 

220615. CC 

22C616.C0 

220617.00 



_2.2_C6_11_.5C CO 
G0dC00."0l' 04 
220621.72 C2 
215023. CC 84 
220620.00 84 
22C620.76 CO 



8.FCKBT r N0 

K"vI,$G,C. C 

BXE,FSTN -BRANCH 

L(3U),SIT{$4) 

KF(BU,64),FWIT-2C.($4)-IS 

BZAE.FSVT 



l^MI^At _M _AND C ON T I : NUE 

IF A{ I! IS ZERO 

WD AN MCP ST FXUP 



KE000053 

KE000054" 

KE000054 

KE000C55 

KE000055 

KE000056 

KE 0000 56 

"KE 00 00 5 7 
KE000058 
KE000058 
KE000059 
KE000060 

~K EO 00060" 
KE000061 
KE000061 
KE000062 
KE000063 
KE000063 

"KE000064" 
KE000064" 
Kfc'000065 
KE000065 
KE000066 
KE000066 

"KE : qq00 67 
KE000067" 
KE000068 
KE000069 
KE000070 
KE000070 
KE000C71 

"KE000072 
KE000073 
KE000074 
KE000075 
KE000076 
KE000077" 

"KE0000 78 
KE000079 
KE000079 
KE000080 
KE000080 
KEOOOOBl" 
KE000081 
KE000082 
KE000082 



F SVI 



000000.20 50 
000000.23 10 



17* 
"it* 
IS* 
2C* 
21* 

22* 
22* 
24* 
25* 
26* 
27* 
2_* 
2c* 



220617.40 

220620.40 

220621 

220622 

22C623 

220624 

22C625_.CC 

22C625.40 

22C626.4C 

22C627.00 

22C63C.0C 

22C63C.4C 

220631' 



COCCOO.CC 



80 
82 
81 
C2 

80 
80 

C2 _ 
"80 
C2 
84 
05 
05 
48 



000000. 2C_5_C_ 

000000.20 CO 
000000.20 50 

220633.74 OG 

40 500 2. 2 3_ 1C_ 

4 11002 ,23" IC" 

000000.20 CO 



AS I Si L YES ,_ SAVE 
" -ST OR E IN All ) 



L[BU),C- NC_,__SA_V_ 
ST(BU,64), 1.CU2) 
L(BU)f l.C($l) 
BRZ,FSTZ -BRANCH IF 
BZ8,9.24,FSEC 
KFI _______ 16,4 

~_A~fc_Ffc_RY "-I/O INSTRUCTION 
KFKBU, 9), 64, 4 
BAE, FERRY -SIC-BC ERROR 
ST(BU),SIT( $4) -INSERT 
V + It $2, 1.0 

v tL»_____ G ~ _ l * Pi? J= * JL N _ T V A L u E J> 

"CB+,~$4,FCKBT "" 



ZERO 



40 

40 
CC 
CO 



G0GCC1. 
CCGCC1, 
22C632 
C0CC11. 
_40C_C_C0_ 1 
22C635, 



CO 
CO 
34 
30 
CO 
3 6 



F SVT 
F STN 



FIXUP WORD IS 
-BRANCH IF 



ERROR 



ZERO 
NOT A 



SIC INSTR 



CC 



1C0C00.00 
220635.36 
215C23.C0 
C0CCC1.C5 
COOCOl. C3 
22 0611.51 



F INS 
F BTCK 



FIXUP INTO INTERPT TABLE 



OF $1 AND $2 



3C* 
31* 
32* 
32* 
34* 



22C631.4C 
22C632.C0 
220633. CC 
220633.40 
220634.40 



216242.10 CO 
22C620.00 84 
220630. IC CO 
100GOO.CO 80 
220627.36 CO 



215023. G2 A4 F STZ 
411022.23 10 F SBC 



B.KSUPP -UPDATE $4 AND RETURN IF CNT ZERO 

TI,1,FWIT-2C.($4),SIT{$4) 

BtFPTCK -STORE ST MCP FXUP IN TABLE 

KFI (BU.9J ,64,36 

BZAE,FINS -NOT A BD INSTR ERROR BRANCH 



20 

1? 

18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 
2 
1 



35* 
36 * 
37* 
3£* 
3S* 
4C* 



22C635.C0 
220635.40" 
220636. CC 
220636. 4C 
220637.00 
22C637.4C 



C 4 11.35 
2206"37.1C 
220636. 5C 
010011.35 
217451.40 
217372.10 



C_l_ 

"CO 

46 

01 

80 

CC 



F E R R_Y_ L V I , $ 1 4 , S F I X P 

B,"FBI~ER" "-ILLEGAL" FIXUP WORD" ERROR" 
F ERRZ BADZ,$.32 -TURN OFF AD 

F ERRX LVI,$14,SFCRBC 
F BIER SlCiSDISIC 

B,SCISP -EXIT TO ERROR ROUTINE 



IND. 



42* 
42* 
44* 
45* 
46* 



22C64C.CC OOCCCOOCOOCOOOOCCOCOOO F PTWC 

220641.00 00C0C0C2777777776C00C0 F 8MSK 

22C642.CC CCC00C.0C+ F ALOC 

220642. 4C CCC0CC.0C+ F LZCN 

__C643.cc ___c_ccoc_c.qq+ _JLA c _c__ 

220643.40 CC0CCC.01+ ~" F OVF 



DD(PU),C -TO SAVE 

(16)DDIBU),BFFFFFFCCC0 -MASK TO 

VF,C.C -TO SAVE 

VF,C.O -TO SAVE 

VF.C.C -TO SAVE 



PATTERN WORD 

REMOVE UNWANTED ONES 

AOC 

LZC AS B.A. 

LZC AS FWA 



47* 
4 6* 
4S* 
5C* 
51* 
52* 



VF.C.C1 
"CNCP 
SIC, STIC 
BD,SIPT+2C, 
SIC, STIC 
BCtSIFAE 



-TO INCREMENT PATTERN WC B.A, 



220644. CC 
220644.40 
220645.00 
22C645.4C 



215265. CC 80 
215127.04 00 
215265.00 80 
215471. C4 CO 



F WIT 



__* 
54* 

55* 

56* 



22C646_._C_C_ 
22C646.4C 
220647.00 
220647.40 



2152 65. CO _ 80 
215131. C4 CO" 
215265. CO 80 
215132.04 CO 



SIC.STIC 
BD,SIPT+22, 
SIC, STIC 
BD,SIPT+23- 



wai 



1 IME CLOCK CCC5 


4041 PUNID 


11D11FCP CARU ID KE0QG083 DIST. OF 3/C1 3/01 PAGE NUMBER 176 


LINE LOCATION 


BINARY OUTPUT 


NAME STATEMENT LOCATION 220650 


]* 
2* 

2 * 

4 * 

5 * 


22C65C.CC 
22C65C.40 
22C65i.CC * 
22C651.4C 
22C652.CC 


215265. CC 
215133.04 
215265.00 
215134. C4 
215265. CC 


80 
CO 
80 
CO 
80 


SIC, STIC 
8D.SIPT+24. 
SIC, STIC 
BO.SIPT+25. 
SIC, STIC 


KE000083 
KE000083 

KE000084 
KE000084 
KE000085 


i* 
1 * 
£* 

9* 
1C* 


22C652.4C 
22C653.CC 
22C653.4C 
220654. CC 
22C654.4C 


215135.04 
215265. CO 
215136.04 
215265. CC 
215137. C4 


CO 
80 
CO 
80 
00 


8D,SIPT+26. 
SIC, STIC 
BCSIPT + 27. 
SIC, STIC 

8D,SIPT+28. 


KE000085 
KE000086 
KE000086 
KE000087 
KEG00087 


11* 


22C655.CC 


215265. CC 


80 


SIC, STIC 


KE000088 
KE000088 
KE000089 
KE000089 
KE000090 
KE000090 
KE0G0091 


12* 
12* 

14* 
IE* 
16* 
17* 


22C655.4C 
22C656.CC 
22C656.4C 
22C657.CC 
22C657.4C 
22C66C.CC 


215140.04 
215265. CO 
215141.04 
215265. CO 
215142. C4 
215265. CC 


CC 
80 
00 
80 
CO 
80 


BCSIPT + 29. 

SIC, STIC 

BD,SIPT+30. 

SIC, STIC * 

DCSIPT + 31. 

SIC, STIC 


1£* 
IS* 
2C* 
21« 
22* 


22C66C.4C 
22C661.C0 
220661. 4C 
22C662.CC 
22C662.4C 


215143. C4 
215265. CC 
215144. 04 
215265. CC 
215145. 04 


00 
80 
00 
80 
00 


BD,SIPT+32. 
SIC, STIC 
BD, SIPT+33. 
SIC, STIC 
BD,SIPT+34. 


KE00009I 
KE000092 
KE000092 
KE000093 
KE000093 
KE000094 
KE000094 
KE000095 
KE000095 
KE000096 
KE000096 


22* 


220663. CC 


215265. CC 


80 


SIC, STIC 


2'* 
25* 
26* 
21* 

2£* 


22C663.4C 
220664. CO 
22C664.40 * 

220665. CO 
22C665.4C 


215146. C4 
215265. CO 
215147.04 
215265. CC 
215150. C4 


CO 
80 
00 
80 
CO 


BD,SIPT+35. 
SIC, STIC 
BD.SIPT+36. 
SIC, STIC 
8CSIPT + 37. 


29* 


22C666.CC 


215265. CO 


80 


SIC, STIC 


KE000097 
KE000097 
KE000098 
KE000098 
KE000099 
KE000099 
KE000100 
KE000100 
KE0001G1 
KE000101 
KE000102 
KE000102 
KE0001Q3 


3C* 
31* 
32* 

33* 
34* 


220666.40 
220667. CC 
220667.40 
22C67C.CG 
22C670.40 


215151.04 
215265. CC 
215152.04 
215265. CC 
215153.04 


00 
80 
00 
80 
00 


B0,SIPT+38. 
SIC, STIC 
BD,SIPT+39. 
SIC, STIC 
BD,SIPT+4C. 


35* 


220671.00 


215265. CO 


80 


SIC, STIC 


36* 
37* 
3f * 
39* 
AC* 
41* 


220671. 4C 
22C672.00 
220672.40 
220673.00 
220673. 4C 
22C674.0C 


215154. C4 
215265. CC 
215155.04 
215265. CC 
215156. C4 
215265. CC 


CO 
80 
00 
80 
00 
80 


BD, SIPT+41. 
SIC, STIC 
BD,SIPT+42. 
SIC, STIC 
8D,SIPT+43. 
SIC, STIC 


42* 
42* 
44* 
45* 
46* 


22C674.4C 
220675. CC 
220675.40 
220676.00 
220676.40 


21515 7.04 
215265. CO 
215160.04 
215265. OC 
215161.04 


CO 
80 
00 
80 

00 


BD,SIPT+44. 
SIC, STIC 
BD,SIPT+45. 
SIC, STIC 
BD,SIPT+46. 


KE000103 
KE000104 
KE000104 
KE000105 
KE000105 
KE000106 ] 


47* 


220677. CC 


215265. CC 


80 


SIC, STIC 


4£* 


22C677.4C 


215162.04 


CO 


6CSIPT + 47. 


KE000106 







wai 



TIME CLOCK 0CC54C41 
L INE "" L DC A Tl G N 



PUNID 11C11MCP CARD ID LACOOOC1 DIST. OF 3/C1 

B I" N A R Y" C UT P UT "N AM E" S T A T EM E NT 



3/Oi 



PAGE. NUMBER 177 
I CATION 



1* 
2 * 
2 * 

'*_ 22070 C.CC 
5* 2? 07 CO. CO" 



CCCC4C.0 7 
CCCC23.23 
220761.72 
C0CC0C.45 
220706.45 

cc_c_ccq._4 5 

220706. C5 



04 

80" 

40 

05 

DO 

05 

DO 



— a************************ ********************************************* LA000001 

-«**«■*«**»«:**<#* IDENTIFIER ***«**********■»- LA000002 

— «****«**«*#«***»»*«**«««##*#*«**«**«***•«»**#*««******«««*****«*-»*•«** LA000003 

SLC,$ LA000004 

"K "FRONT "k" VI, 3,32. C """ LA000005 



t* 
1* 
t* 
9* 

11* 



22C/CC.4C 
220701.40 
22C7C2.CC 
2207C2.40 
2 2C7C3_.CC 
220703. 4C 



0C5000.C0 FO 



CM0C00(6U,5), $3.19 
BZXL,K PLUG1 
V+I,2,.32 
SVA,2,K IGD RN 
V+I t 2, .32 
\S"VA,2~,K ICD"R~N-.32~ 



-TORN OFF 
-BRANCH 



SLOP BIT 
IF NO IOD 



LA000006 
LA000007 
LA000008 
LA000009 
LA000010 
LA000011 



12* 
12* 
14* 

15* 
11* 



22C704.CC 
220704.40 
220705.40 
220706. CO 
2207C6.4C 
220707.00 



C0CC02.C7 
C00C22.CC 
220706.73 
220706. CI 
220706.43 
220707.50 



G4 
80 
42 
BO 
BO 
C~6" 



215247. 04 EC 



KVI ,3,2.0 

SWAPI,2,$2,S TLR+15, 
BXH,K IGD RN 
LVE,0,$ 
K_ I_C_D_RN LVE,1,$ 

BUSAZ,$+.32 



-TEST IF RD, W OR COW PSEUCO OP 
-IF NOT, COMPUTE ONE PARAMETER 



LA000012 
LA000013 
LA000014 
LA000015 
LA000C16 
LA000017" 



16* 
IS* 
2C* 
21* 
22* 
22* 
2i* 
25* 
26* 
21* 
2£* 



220707.40 
220710.00 
220711. CC 
220711. 4C 
220712.40 
220113. CO" 
220713. 4C 
220714.40 
220715.00 
220715. 4C 
220716. CC 



22C710.1C 
215247. CC 
221CG2.31 
215001.04 
2 1 5 CO 5 .4 2 
_2yi_C_C_2_._3"3 
C00C21.22 
221C02.34 
215C05.C2 
000CC0.30 
221CC2.31 



46 
8C 
42 
80 
90 
42 
80 
CO 
BO 
31 
42 



000022. G4 EC 



221000.34 02 



007000.20 50 



K SOAR 



BADZ,$+.32 
SWAPI,2 f S TLR+15., 
BXVZ,Z ICCH 
BB,S L,K MOP 
KV,1,_S MAX RN 
BXFI,ZICD_H" 
L("BU, 7),$r.i~8" 
BZRZ,ZIGD H 
V + , 1,S BA PP 
LV, 12,0. 0($1) 
BXVZ,Z IOD H 



- BRANCH IF __C _0 U T _ F _ R A N G E" 

-BRANCH IF NOT INTEGER TG ERROR 
-COMPUTE PP I/O LOC TABLE 
-GET UNIT AREA ADDRESS 

-BRANCH IF NO ICC CARD 



LA000018 

LA000019 

LA000020 

LA000021 

LA0Q0022 

LAC00023 

LAOC0024" 

LA000025 

LA000026 

LA000027 

LA000028 



2 A* 

~3C* 
31* 
32* 

33* 

li* 

35* 
it* 
37* 

3£* 
39* 
4C* 



22C716..4C 

220717.00" 

220717.40 

220720.00 

220720.40 

22C721.CC 

220721.40" 

22C722.40" 

22C723.CC 

220724.00 

220724. 4C 

220725. CC 



CCCC00.72 
C00C01.45 
OOCC00.24 
CCCC32.34 
CCCC32.24 
215C02.24 
C0_0_C0C[.64 

coccio.ro 

C0CC00.33 
C0C000.26 
G0CC00.66 
00CCC0.63 



31 

CO 

3C 

30 

BO 

BO 

8A_ 

"30 

8A 

3A 

BC 

88 



LV L 13,.321$1J_ 
V- I, 2,1.3 2 
LV, 10,C.0{$12) 
LV,14,$1C 
V+,10,$1C 
V+,10,S CHAN S 
"L ( BU , 4 [, S EQU IP { $ 1C ) 7-19" 
LV,4,$L 

BZB, S MULTI($10) ,K UNA 
LV, il,C.0($10) 
V + , ll,0.32f$12) 
L(BU,2),S MOUNT!*!!) 



-GET ACTIVATED FILE AREA ADDR 



LA000029 
LA000030" 
LA000031 
LA000032 
LA000033 
LA000034 
"LA000035" 
LAO 000 36 
LA000037 
LA000038 
LA000039 
LA000040 
LA000041 



20 
19 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 

e 

7 
6 
5 
4 
3 
2 
1 



004066. 6C 5C 



221003.74 OC 



0C200C.2C 50 



-LOAD $10 WITH CHANNEL NUMBER 



CODE TO VF($4) 



•ADD UNIT NUMBER 



41* 22C726.C0 



4i* 
42* 
44* 
45* 
46* 



220726. 4C 
220727. CC 
220727.40 
22C73C.40 
220731. CC 



_2_2_1_0_°A«7_4__C_0 
C0C013.47 04 
220771.32 40 
C0CCC0.31 8A 
221004.74 CO 
C0CC00.34 8B 



K M 



002077. 2C 50 



221154,34 C2 



BZRZ_K_NC_GO_ -LOOP IF MCUNT^ 

KVI, 3, 11.32 -TEST IF MIT, 

BZXL.K C OP -IF SO, BRANCH 

L(BU,2),S CH AVL($lC),-2 -TEST IF CH AVL 

BZRZ,K NO GO -IF SO, BRANCH 
BB,S UN AvLl $11) ,Z El 



OR RE 
CHEX" 



W_ _B 1 T ON 
"OR S" FREY 



OR CH OP BIT ON 



LA000042 
LA000043 
LA000044 
LA000045 
LA000046 



47* 220732. CC 
4E* 220733.00" 
22C733.40 
220734. CO 
220735. CC 
220735.40 



0_0_CCCq.35 8B 

COCCC"2.C7 04 

220743.32 02 

000000.36 8B 

C0CCC0.45 3D 

CGGC03.33 3C 



221077.74 02 



BB,_S_UN_ASGU11),K ASIGN 
KVI,3,D CCW 

BXE,K OP OK -IF $CCW, SKIP + PROCEED 

BBZ,S UN SUPUU),K 2 INT -CHECK IF INT IS STACKED 

SV,2,S ACT ACU13) -ACTUATED ADDR TO FILE AREA 

SV,13,S FI AAC($12) -ACTUATED FILE A ADD TO UNIT A 



LAO 0004 7 

LA00004S" 

LA000048 

LA000049 

LA000050 

LA000051 

LA000052" 

LA000053 

LA000054 

LA000055 



49* 

5C* 
51* 
52* 



221067.74 06 



K K NI 



5? *_ 2207 36 .00 
54* 22C737.CC 
55* 220740. CC 
56* 22C741.C0 



CO CO CO. 6 7 82 

"COOCCO.56 8§" 

400C00.C0 80 

C0CCC4.22 8D 



001 000. 2C 50 

001000. 2C CC 

406000.46 70 

007000.20 DO 



L(_BU t ll,.55_{$2) 
ST!eU, 1),SSE0P($11) 
LFI (BU, 6), (2)100000,1 
ST(EU,7),SCCfc+.18($13) 



Mai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID LA0OCO56 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 178 



6 
01 

11 
21 
El 
>l 
?! 
91 

n 
ei 

61 

OS 



LINE 



LOCATION 



BINARY OUTPUT 



NANE 



STATEMENT 



LOCATION 



220742 



1* 
2* 

2 * 



220742 
220743 
220743 
22C744 



.00 
.CO 
.40 
.CO 



C0CG03.22 
C0GCC2.C5 
215265. C5 
777777. 14 



80 
05 
3 
03 



0C70O0.2C CO 



K CP OK 



ST(RU,7),SCW+, 
V+I, 2,2.0 
SV,2,S TIC 
BR,-1.0($3) 



18U13) 



LA000056 
LA000057 
LA000058 
LA000059 



I * 
~t* 
i * 
£* 
9* 
1C* 



22C744 
220745 
220745 
22C746 
22C746 
220747 



.40 
.00 
.40 
.CO 
.40 
.00 



2L1544. 10 

217630.10 

217766, 

22CC11. 

22CC21, 



PP 
co" 

CO 
00 
CO 
CO 



B,Z _STARJ 
B,L WR1 " 
3,B CCW R 
B V W REL 
H,K S LCC 
6,_W_FC 



•READ 



LA 00 0060 

LAOOOOof 

LA000062 

LA000063 

LA000064 

LA000065 



10 
10 
50 



22C106.10 



-RELEASE 

-LOCATE - DISK ONLY 

-FEED CARD - PUNCH ONLY 



12* 
12* 
14* 
15* 

11* 



220747 
22075C 
220750 
22C751 
22C751 
2 20 7 52 
22C752 



•AQ_ 

.CO 

.40 

.00 
.40 

•_c_0_ 

.40 



_2_2_2C5.U5G 
215630.50 
220115. 10 
22C120.50 
220121.50 

_22_0122_._50 
22 0123. 5C 



00 

00 
00 
00 
00 
CC 



B,_B_TIF_R 
B f M OP CI 
B,E ELG 
B,R 1 
B,R 1+1.0 
B L R_1+2.C 
B,R2-.3 2 



TlAPE.IND I CAJCR_ OFF RJjUJJAE 
-INVALID OP 
-ERASE LONG GAP 
-SPACE BLOCK 
-BACKSPACE BLOCK 
-SPACE FILE 



LA000066 
LA000067 
LA000068 
LA000069 
LA0000 70 
LA000071 
LA0000 72 



IS* 
19* 
2C* 
21* 
21* 



220753 
220753 
22H754 
22U754 
220755 



.CO 
.40 
.CO 
.40 
.CC 



2202C3.1C 
220226. 10 
220244. 1C 
222053.50 
222054. 5C 



CO 
00 
00 
00 
00 



fiiE WT1 

E,Z REW ST 

B,2 LINLD B 

B,B RLF R 

_B_,_B RLN R 



-WRITE TAPE MARK 

-REWIND 

-REWIND AND UNLOAD 

-RESERVED LIGHT OFF ROUTINE 

-RESERVED LIGHT ON ROUTINE 



LA0000/3 
LAC00074 
LA000075 
LA000076 
LAO000 77 



21* 
24* 

25* 
26* 
27* 
26* 



220755 
220756 
22C756 
220757 
220757 
220760 



.40 
.CO 
.40 
.00 
.40 
.CC 



_222C5_5_._5Q. 
220245.50 
222073.10 
220347.50 
220377.10 
220245.50 



c_o 

CO 
00 
CO 
00 

CO 



Bt_B_KLN_R 
B,Z FREE 
B,W GONG 
B,K WAIT 
B,C CHEX 
B,Z FREE 



-C HEC K .LIGHT _ CN_ ROUT J N E_ _ _ 
-FRE'E REEL AND DRIVE 

-SOUND GONG - CONSOLE ONLY 
-WAIT FOR I/O INTERRUPT 

-CHANGE I/O TABLE OF EXITS 

-UNASSIGN TAPE UNIT 



-AQcgo/8 

LA000079 
LA000080 
LA000081 
LA000082 
LA000083 



29* 

3C* 
31* 
32* 

32* 
34* 



220760 
220761 
220761 
220762 
220762 
220763 



•5P 
.CC 
.4C 
.CO 
.40 
.CC 



_2_17_3_55_. 5C_ 
220346. 1~C 
000045.47 
215630.73 
777740.14 
220410.50 



co 

CO 
04 
42 

03 

CO 



KPLUG1 



_Bt_JZIOR 

B,RALLPS 
KVI ,3,37.32 
BXH,M CP CI 
BR, -32. 01 $3) 
B,K SIC 



-STACK I/O INTERRUPTS 
_- R ELEASE_I/C INTERRUPTS 
-RETURN AFTER I/O INTERRUPT 

-RETURN AFTER MASKABLE 
-STORE IN COMMUNICATION REGION 
-FETCH FROM COMMUNICATION REGION 



LA000084 
LA000085 
LA000086 
LA000087 
LA000088 
LA000089 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
36* 
39* 
4C* 



220763 
220764 
220764 
220765 
220765 
22C766 



,4C 
.00 
.40 
.00 
.40 
.CC 



22_0415. 10 
217154.10 
217326.10 
220427.50 
220445.50 
2331C7.10 



00 
00 
00 
CO 
00 
00 



_B_»A_Rio__ 

B,C RETN 
B.WRAMPP 
B,K STRO- 
BE FECRG 
B,ZTIME 



LA000090 
"LA000091" 
LA000092 
LA000093 
LA000094 
LA000095 



4 1* 
42* 
43* 
44* 
415* 
^t * 



220766 
220767 
220767 
220770 
220770 
220771 



•40 
.CC 
.40 
.00 
.40 
.CC 



_2_3_3_!_54_-_l_0 
217347.50 
220560.10 
220502.10 
220523.50 
00CC2C.47 



CO 
CO 
00 
CO 
CO 
04 



KCGP 



B f _JCCMM__ 

B,JSITX 

8,FFXP 

B.TSTLR 

B,TFCHLR 

KVI ,3, 16.32 



SET INTERVAL TIMER 



LA000096 
LA000097 
LA000098 
LA000099 
LA000100 
LA000101 



47* 
48* 
49* 
5C* 

51* 
52* 



220771 
220772 
220772 
220773 
22C773 
22C774 



.4C_ 

.00 

.40 

.00 

.40 

.00 



_2_1_56 30._73 
777764.54 
220743.10 
220743.10 
220727.50 
220743. 10 



4.2 

03 
CO 
CO 
00 
CO 



BXH t MQPCI 

BR,-11.32($3) 

B,KCPGK 

B,KCPOK 

B,KNI+1.C 

B,KCPCK 



LA0Q0I01 
LA000102 
LA000103 
LA000104 
LA000105 
LA000106 



52* 
54* 

55* 
56* 



2 207 74 
220775 
220775 
220776 



.40 
.CC 
.40 
.00 



215630.5C 
220325.10 
220326.10 
220334.50 



CO 
00 
00 



fi,MCPCI 
B, RED 
8,RLD 
B.REVEN 



LA000107 
LA000108" 
LA000109 
LA000110 



wai 



time clock ccc54c41 punid 11d11mcp card ic laooolll 

line" "locatIcn ~bLnary~cijtpu"t n~a~m~e 



DIST. OF 3/C1 

STATEMENT 



3/01 



PAGE NUMBER 179 
L C~A TTON 220776 



9 
9 
_ 

a 

6 

01 

II 

SI 
El 

7. 

51 
91 
Zl 
81 
61 
05 



1* 

2 * 

3 * 
4* 
5 * 

~6~i 
7* 
£* 
c * 

IC* 



220776. 4C 
220777.00 
220777.40 
221CCC.00 
2 21CCC.40 
22l001.CC 
221001. 4C 
221002.00 
221002.40 
221003. 00 



220335.50 
220340.10 
220342.10 
CO CC 14. 47 
220715.32 
21 5003. C2 
220715.50 
C1CC04.35 
217451.40 
217372. IC 



00 
CO 
GO 
04 

t30~ 

00 

01 

80 

CO 



K MCP 



Z I0D H 



8,RCDD 
B,RECC 
B, RNGECC 
KVI,3,S FREE 
'BXE L K SCAR-. 32 
V + , 1,S BA MCP" 
B,K SOAR 
LVI, 14, S IOC I 
SICS OISIC 
B,S CISP 



INVALID ICD REF NO 



LAOOOlll 

LA000112 

LA000113 

LA000114 

LA000115 

LAOO0U6" 

LA000117 

LA000118 

LA000119 

LAC00119 



11* 
12* 
13* 

14* 

15* 

16* 

17* 
______ 

IS* 
2C* 
21* 
22* 

Alt 

24* 
25* 
2C* 
27* 
2£* 



221CC3.4C 



221004 
221004, 



oc 

40 

4C 
CC 
40 



221GC6. 

221C06_. 

?2_100_7_.C0_ 

2 2100 7.40 

22101C.C0 

22101C.40 

221011. CC 

221011.4C 

?<_ 1012^0 

221C12.4G 

2 21013.40 

221014.40 

221015.40 

221C16.40 



C0CC32.26 
220726.50 
CCCC10.00 

C0CCG2.C7 
220743.32 
CCCC02.4 7 
220 7^3 5.32 
C00C14. C7 
220743.32 
CCCC12.47 
220735.32 

cqo_g_i_5_.j:i 

_?_2G74_3^|?2 
CCCC0C.33 

COGCCO, 

G00C01. 

G0CG01, 

77CCC0, 



63 
34 

40 

CO 



30 
GO 
80 
04 
C2 
Q4 
C2 
C4 
C2 
C4 
C2 

_._. 

r _» 

_ „ 

'8A 

8B 
60 
8C 
80 



221066.34 02 



221041, 
221041, 
33200C 
032000, 

4C6000, 



34 OC 

3 4 CC 

2C 5C 

30 10 

21 IC 



K UNA LV L U,$10 

B,K NI 
K NC GO BB,$L,K NOT AV 

KVI .3,2.0 

BXE.K OP GK 

KVI,3,2.32 
__^_ _" I _ aX_E,K"K~NI 'y_~ _~__ 
~K V I , 3 f C C I EX" " 

bXl: s K DP CK 

KVI,3,C FREE 

BXE,K K NI 
K V Ui L C IODEF 

i5_XE_,K UPGK 
""^.i, SMULTI .SIC), K" CtifiPN" 

8ZB.SMGUNT { $11) .KCHCPN 

L(BU, 26) , $TC 

-(B0,26),S RMTC($12) 

KI(f_U,6},Z RMTCC 



•If iCCW, PROCEED 
;IF_|REL_, PROCEED 
Tf"$CHcX", " PROCEED" 
IF $FREL, PROCEEO 



-COMPUTE TIME LAG 



LAG00120 
LA000121" 
LA000122 
LA000123 
LA00012*- 
LA000125 
"LA 000 126" 
"LACOOl 2 7" 
LAOOOl'S 
LA000129 
LA000130 
LA000131 
LA0001}2" 
LA0001 Vj" 
LA000134 
LA000135 
LA000136 
LA000137 
LA00013b 



29* 
3C * 
31* 
32* 
33* 
34* 
3.* 



221G17.4C 
2 2 1 1 u . t C 
221C21.CC 
221021.40 
221022.40 
221023. GO 
221024.00 



221041. 3 7 

Gooooi. r. 

CCC010.56 
C0C000.65 
C00C0O.16 

_ A _P_° •_". 2 

C0CC2 7. 2C" 



4_q 

8C 
3C 
8B 
3 7 
87 
30 



BZ_AF L KCHCPM_ 
"bul ,"SRMINL>{ $12") t KCh'GPif 

LV,7,SCRE£L{$12) 

BB,SIMNT{ $11), Z ID06 

LV,7,0.C{$7) 

LF, TRENMEU7) 
"l"V,"8,$7 



1 B A* NCH _I F _ T I ME_ NGj 

-BH. IE kEMINDEk 5<_ 



ELAPSED 
:T".~3ET cYfCH 



221041, 



221023 



036000 



34 OE 
34 02 
06 70 



ZID06 



•BR. IF REEL SLOT IS ORIG REEL 
-GET NEXT REEL SLOT ADDRESS 
-TEST IF REEL IS SCRATCH 



L4GG013? 
LA000140 
LA000141 
LA000142 
LA000143 
LA000144 



20 

19 | 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 
' 8 

7 

6 

5 

4 

3 
2 

1 



36* 
37* 
36* 
3_* 
4C* 



221024.40 
221025. CC 
221025.40 
221026. CO 
221027.00 



221C63.34 
221064.56 
221C30.17 
222C15.G0 
221C30.37 



C2 
BO 
30 
80 
01 



221055.04 AO 



BRZ.ZID14 
V+,7,Z RENME 
SV.7.ZIC 10 
TI,2,KEXTAP t ZIDC3 
LVI t 15. $+1.0 



-BR. IF SCRATCH 



LA000145 
LA000146 
LA000147 
LA000148 
LA000149 



_ 4 _L* 
42* 
43* 
44* 
45* 
46* 



221027. 4C 

221C3C.CC" 

221C3C.40 

221C31.00 

221031. 4C 

221C32.40 



Z30 5J)J_._5_C CO 

CCOOOC.CO+ 

CCC0C5 

221056.10+ 

000000.40 8B 
221C60.17 01 



8.SA6KS 

VF,0~.0 

CF,5 

VF,Z ID 04 

BBtSQMNER($ll)tZ 

LVI,7,Z IDC4A 



-CONVERT REEL NAME 



LA000150 
LA000151 
LA000152 
LA000153 
LA000154 
LA000155 



221045.74 02 



Z IC 10 



Z ID09A 



ID 15 



47* 
48* 
4S* 

5C* 
51* 
52* 



2 2 IC 3 3. 00 

221033.40" 

221034. OC 

221G35.00 

221035.40 

221036.00 



_22_l_ c _4 5._00 80 
221042.10 00 
000000.32 
00CC11.17 
221350.00 
221335.10 



SIC,ZIGC9X_ 
B,Z ID09 
BB,TREPR{$8),Z 
LVI, 7, 9.0 
SICKCCNVR 
B,KC0NV 



LA000156 

LA000156" 

LA000157 

LA000158 

LA000159 

LA000159 



-GET JOB 



88 
01 
80 

00 



221047.34 02 



IC13 



NAME 
-BR. 



IF REEL FILE PROTECTED 



Z ID08 
ZIC07 



-CONVERT CH AND UN NUMBERS 



52* 
54* 
55* 
56* 



22_1036.40 
221037. CO 
221C37.4C 
221040.00 



2210 53.0C+ 

215470. 4080 
215470.10 00 
221C50.CC 80 



VF,Z ID C2A 

"SICSCOMIC" 
B,SCOMM 
,ZIC01 



LA000160 
LA000161 
LA000161 
LA000162 



wai 



TIME CLOCK CCC54C41 PUNID 11D11MCP CARD ID LACG0162 DIST. CF 3/C1 3/01 PAGE NUMBER 180 

"CINE" "LOCATTcK BINARY" CUT PUT NAME "ST AT1m|NT~" ~~_\ .lIIiriIII^I^"riLPCAU0XZI"l2Yll0A0 



1* 221040.40 

2* 221041. CO 

2* 221041.40 

1* 221042.00 

E* 22 1042.40 

6* 2 2104 3.00 

7* 221043.40 

£* 221044.00 

9* 221044.40 

1C« 221045.00 



OOOCCO.CC 87 
215265. C5 30 
216242.10 00 
_22_1044.57 DO 
221043.77 01 
2 _ 30567.5C 00 

231444.00+ 

CCC01C 

CC000G.00+ 

000000.10 00 



K CHOP N 



Z ID09 



Z ID12 



,0.C( $7) 
SV,2,S TIC 
B,K SUPP 
SVA,7,Z IC12 
LVI ,15,|+1.0 
B,SA6IQS 
VF,YJCD81+1.C 
CF,8 
VF,G.O 



•LOCP TG ACTUATED ADDRESS 



-CONVERT JOB NAME 



Z ID09X BtO.O 



LA000162 
LA000163 
LA000164 
LA000165 
LA000166 
LA000167 
LA000168 
LA000169 
LA000170 
LA0C0171 



11* 221045.40 

12* 221046.40 

12* 221047. CC 

14* 221047.40 

15* 

16* 221050.00 



22 1 C 6 2 ._00 80221060. C2„ A 

221035.10 CO 

000012.17 01 

221035.50 00 



_Z..I_C 1„5„__IL,_1,_Z ID16,Z JPC4A 

B,Z ID08 
Z ID 13 LVI, 7, ICC 

B,Z ID 07 

CNOP 
Z ID01 ( IQSX)CC(BU) .OPERATOR** LOAD_X 



LA000172 
LA000173 
LA000174 
LA000175 
LA000176 
LA000177 



1 1 * _ 2 2_1 5 2 . C 
1£* 221053.00 
19* 221055.00 
2C* 221056.10 
21* 221C6C.0C 
22* 221C62.C0 * 



_Z_J_D _02__(_I(3SX)DD(BUJtCHANNEL__X 
Z IC02A ( IQSX)DC(BU) , UNIT UTH X 
Z ID03 ( IQSX)DC(BU),REEL NO. X 
Z ID04 ( IQSX)0C{BU), JOB X 

Z ID04A < IOSX)DD(BU), PROTECTX 

ZIC16 { IGSX)DD(BU) , **MCP**X_ 



LA000178 
LA000179 
LA000180 
LA000181 
LA000182 
LA000183 



22*_221C63_.CC_ 
24* 221064. CC 
25* 000000. CC+ 
26* 221064.40 
27* 221065.00 
2t* 221065.40 



_ 2_2_2.C„L3_._0_0_ 
221C31.5C 
+OOC00077 
0C00CG.42+ 
000C02.C5 
221041.10 



80 
CO 



OD 
CO 



221055.04 AC Z IC14 T 1 , 2 , KSCRAC , Z ID03_ 



B,Z ID09A 
BU.06 ,10 Z RMTCC DDK BU , 6 ) , ( 2 ) 1 1 1 1 1 1 
Z RENME VF,0.34 
K C BUSY V-I,2,2. 

B,K CH CP N 



LA000184 
LA000185 
LA000186 
LA000187 
LA000188 
LA000188 



29* 221066.00 

3C* 221066.40 

31* 221067.00 

32* 221067.40 

32* 221070.00 

34* 221070.40 



C1CC03.35 01 K NOT AV LVI, 14, S CH NAV 



217451.40 
217372.10 
221076.73 

000003.32 
221071.43 



80 
00 
00 
3C 

01 



SICS DISIC 
B,S DISP 
K2INT SVA,$13,RK2INT 

LV,$13,SFIAAC($12) 
LVI ,$!,$+!. C 



LA000189 
LA000190 
LA000190 
LA000191 

LA000171 
LA000192 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



1~_*_22 10 71.00 
36* 221071.40 
37* 221072. CC 
36* 221C72.40 
39* 221073.00 
4C* 221073. 4C 



22 ZC 2 0_.JLO_ CO 
221072.10 CO 
C0CC02.47 04 
221076.72 C2 
C0CC12.47 04 
221076.72 C2 



_B_,_K S_E R C H 
8,*. 32 
KVI ,3,D REL 
BX£,RK2INT 
KVI,3,D FREE 
BXE, RK2INT 



IF $REL OR $FREE, DISCARD 



LA000192 
LA000193 
LA000194 
LA000195 
LA000196 
LA000197 



4_L*_221C74^CC 
42* 221G74.4C 
43* 221075.00 
44* 221076. CC 
45* 221076. 4C 
46* 221077.00 



221076.72 
000001.11 
221157.34 
221076.73 



C4 
C2 
80 
CO 
Gl 



004000.20 50 



RK2INT 



220735.10 00 



KVI ,_$3 t SFREE 

BXE,RK2INT 

L(BU,4),S 10 IND($13) 

BZRZ,Z E4 

LVI, $13,$ 

B,K K NI 



-OTHERWISE, TEST IF Q INT IS CS 
-IF NOT CS, THROW HIM OFF 

-IF CS { STRAY), PROCEED 
-TEST IF S FREE OP 



LA000198 
"LA000198" 
LA000199 
LA000200 
LA000201 
LA000202 



4_7*_221077_.4_0 
4£* 22110C.CC 
49* 2211CC.40 
5C* 221101.00 
51* 221101.40 



_0_Q_0_C_l' : t!L / i7_04 
221155.72 CO 
C0CC01.45 05 
215265.05 30 
216242.10 GO 



ASJ_G_N__KVI,3,S_FREE 
BZXE,Z E2 
V + I,2, 1.32 
SV,2,S TIC 
B.K SUPP 



-IF SO, NOP 



LA000203 
LA000204 
LA000205 
LA000206 
LA000207 



wai 



TIME CLOCK CCC54C41 

I In e ~ " lcc a Ti c n 



PUNID 11D11MCP CARD ID LBCOOOOl 
BINARY" CUT PUT "MHt 



DIST. OF 3/C1 
'STATEMENT -- 



3/01 



PAGE NUMBER 181 
LOCATION" 



0! 
1! 



CI 

91 

L\ 
81 
6: 



1* 

2* 
2 * 
4* 
5* 
"~6*" 
1 * 
£* 
9* 
1C* 

12* 
13* 
14* 
15* 

n* 

n* 

le* 
is* 

2C* 
21* 
22* 
22* 
24* 
25* 
26* 
2/* 
26* 



221102 
221102 
2 2 1 1 C 3 
221104 
2211C5 
221106 
221107 
221107 
221110 
221111 
221112 
221113 
2 21 J. 13 
2211J4 
221114 
221115 
221116 
221116 
221117 
221117 
221120 
221121 
221121 
221122 
221122 



.00 

.40 

".40 

.40 

.00 

.00 

._C_C_ 

".40 

".00" 

.00 

.CO 

.00 

•AP_ 

.00 
.40 
.40 
.00 
.40 
.00 
.40 



40 
.00 
,40 

00 
,40 



221133. 
2J5CC1. 
C0CC20. 
221143. 
215230. 
215230. 
COCCU. 
C_0_CC_20." 
2152 30." 
215230. 
G00C21. 
221142. 
221140. 

_GC_c_cqc. 

000021." 
COGCOO. 
221117. 
C0CC01. 
221127. 
00 0021. 
221142. 
221140. 
C00026. 
221124. 

coccoo. 



01 DO 
C4_80" 
22 80 
34 CO 
00 80 
40 80 
CC 50 
C2I30 
CO 80 
40 80 
CO 80 
40 80 

50 CO 
C2 11 
33 "80" 

51 04 
72 C2 
C7 04 
32 C2 
00 80 



— **** 

— **•* 
B CWC 



221131.74 02 
007000. C7 70 

022027.20 50 
022027.30 10 



022000.20 50 
022011.46 70 
022023. C6 70 



221117.74 OC 



JMCRCW 



022023.06 70 



JJSKP 



40 80 

50 CO 
C3 50 
70 40 

51 04 



— *♦#**»•»»*«*«»** CONTROL 
**■»**#*»****«*#*#««*»******* 
R SVA,$G,JPICK 
~Jbb7SL, JPJCK1_~ 

CT0011(BUf 7>", $X0+7l8 

BZRZ,3CWERR 

L{B0, 18), SUPPER, 46 

-(BU, 18),SL0WER,46 

LC,$0,$R 
IJjLV, |1t$XC_ "_ 

L(BU,~18) ,S UPPER 

LF( BU,18),S LOWER, 19 

LF(BU,18),$1,38 

SICJADOUT 

B.JADIN 
~LX,$1,C.CJ$1) 

BZB,$r.27, JJSKP '" 

KVI ,4, .32 

BXE, JJSKP 

KVI ,$3, 1.0 

BXE,JDISCK_ ■_ 

LFI [BU, 18), $1,38 

SICJACCUT 

B, JACIN 

SC, U,$6 

BZXCZ, JJSKP1 

KVI ,4, .32 



*#»#»****■*»**#**«***»***************** 
WORD CHECK ***************— 

»**««****«««**»«»»*»*#»**»**»*****■*»** 
-ADDROF CW 
-BRANCH IF MCP "~~" 
-CHECK IF ADUR.~CF~CW 



-MA X _NC_ OF CONTROL _W_C_RDS_ 

-"SET BOUNDS IN" «R" 
-CW ADDR. 



•ACTUAL CW 

-IF NG"SkiP BIT" 



-READ = l.C 
-GET" "1ST AOCRE S S 



•COMPUTE 

-LASTADORESS WHEN UNDER 

-BLOCK CONTROL 



LB000001 
LB000002 
LB000003 
LB000004 

" L 80 00005" 
LB000006 
LB000007 
LB000008 
LB000009 
LB000010 
LBOOOOU 

"LB000012" 
L8000013 
LB000014 
LB000015- 
LB000015 
L BO 000 16 

~L BOO 00 17" 
LBC00018 
LB000019 
LB000020 
LB000C21 

"LB000022" 
LB000023 
LB000023 
LB000024 
LB000025 
LB000026 



29* 
~3C* 
31* 
32« 
32* 
34* 



221123, 
221124" 
221124, 
221125, 
221126, 
221126, 



CC 

00" 

40 

CC 

CC 

40 



C 2 1 . 
221143. 
CCCCC1. 
000026. 
221142. 
221140. 



32 80 
3" 2 C2 
15 OD 
CO 80 
40 80' 
5C 00 



221143.34 02 



JJSKP1 



022023.20 10 



BB, $1. 
"BXEf BC 
V-I,6, 
+ (BU, 1 
SICJA 
B, JADI 



26,BCW 

WERR 

1. 

8) ,$6,38 

DOUT 

N 



ERR 



_~TEST MULTI BIT 
-BR IF DIS"K CW IS ZERO 

-BLOCK CCNTRGL 



LB000027 

LB000028" 

LB000029 

LB000030 

LB000031 

LB000031 



20 

19 

18 J 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 



35* 
36* 
37* 
36* 
39* 
4C* 



221127 
221127 
221130 
221130 
221131 
221131 



00 

4C~ 

CC 

40 

00 

4C 



coccoo. 

221131. 
000021. 
221131. 
221112. 

C0GC35. 



51 C_4_ 
72" C2 
C3 70 
63 40 
00 48 
CC 30 



JCISCK 



JPICK1 



KVI, $4 
BXE,JP 
SR,$1, 
BZXF, J 
CB,$0, 
LV,C,$ 



41* 
42* 
42* 
44* 
45* 
46* 



221132, 
221132^ 
221133, 
221134, 
221135. 
221136, 



CC 
40 

00 
00 
CC 
00 



C0GC03. 
C0CC03. 
221133. 
40CC00. 
777776. 
CCCC03. 



CI 5 

41 3C 

00 80 

CC 80 

67 82 

00 8D 



V+I ,0, 
~SV,C,3 
LFIBU, 
LFUBU 
LFIBU, 
SFIBU, 



,.32 
ICK1 

$1 

PICK1 

JMORCW 

13 

3. 



-IF DISK, NO 
-CHAINING 
-CHAINED ADDR. 

-END OF CHAIN 



LB000032 
L BOO 00 33 
LB000034 
LB000035 
LB000036 
LB000037 
"LB0000 38" 



47* 
4£* 
49* 

5C* 
51* 
52* 



221137, 
22114C 
22U4C, 
221141, 
221142. 
221143, 



00__ 

CC 

4C * 

40 

40 

CC 



C0C_C04. 
221140. 
000011. 
000C11. 
221142. 
C1CCC7. 



C08D 
10 CO 
32 80 
55 80 
76 C2 
35 01 



0G0000.C6 70 
4C6024.C6 7C 
001023.46 70 

PPPPPP-JJLJLP- 
000000.12 FC 



JPICK 



SF(_BU, 

B,$ 

KFJBU, 

KFRIBU 

BAE,$ 

LVI,$1 



.32($12) 

64),$ 

,6),(2)10CCCC,4C 

1),-1.G9<$2),39 

^1»SCW($13) 
64),SCCW($13) 



-CW ADD IN FET TO LAT 

-INITIAL CW 

-SET STATUS BITS 

-SEOP BIT 

-CW TO FAT SLOTS 



LB000039 
LB000040 

LB000041 

LB000042 

LB000043 

"LB000044" 



023023.23 10 
023023.23 50 



B1RA 
JADIN 

JADOUT 
BCWERR 



52? 

~54*~ 

55* 
56* 



221143, 
221144, 
00C011, 
0CCC11, 



4p__ 
OC 

32 + 

55 + 



217451. 
217372. 

+CCCOOO 
+000000 



40 80 
1C CO 

CC 
CO 



sic L s 

B,S DI 
SYN,$R 
SYN,$R 



19),SL0WA,38 
, 19),SUPPB,38 

^SCWINV 

CI sic 



EXIT PRESET BY SIC 
TEST ADDR. FOR 

•RANGE 

-AE WHEN OK 



LB0000't5 
LB000046 
LB000047 
LB000048 
LB000049 



LB000050 
LB000050" 
LB000051 
LB000052 



BU.ICCIG 
BU,1CC,1C 



S LCWA 
S UPPB 



SP 

.26 

.45 



wai 



1 IME CLOCK CCC54041 



PUNID 11D11MCP 



CARD ID LCOOOOOl 



DIST. OF 3/C1 



i/Ol 



PAGE NUMBER 182 



LINE LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 

2* 
2 * 
4* 221144.40 * 



— •«**-»*««#*«**#**«*#****»*»**•»■»******«******«##*»*«*#««**»#**«#»**«*#** LCOOOOOl 

-****«*«*_*____# STATLS EVALUATION *«_«*****#*#***- LC000002 

— ««•***#*#****#*#«********«*»*****»**»*****#*»**#***»*****»»»«****»*#*** LC000003 

SLC,$ LC000004 



5*221144 
t* 221145" 
221146, 
221147 
221147. 



i * 

i* 

S* 

1C* 



4p 

00 
CO 
CC 
4 



CO 0002.54 
COCCCO.CO 
C0CCC0.00 
000007.06 
000010.00 



3C 
86 
8B 
30 
83 



Z STEVL 



040000.20 
000000.03 



50 
70 



000000. C6 FC 



L V f.6 , S E V L MK { $ 1 2) 

LlfiU, 32), CO ($6) 

CTOCOU BU,64,8) , C.O(SIL) 

LV,3,$LZC 

CM0C11(B0,64,8),$L($3) 



-GET MASK ADDR 

-LOAD MASK INTO $R "" 
-GET LZC ON MASK AND STATUS BITS 
-LOAD LZC AS BIT POSITION INDEX FOR 
-CONNECT WITH MASK TO GET RESULT AOC 



.221150.40 000007.46 30 LV,3,$ACC 



11* 
12* 
12* 
14* 

15* 

It* 



2 211.5_1_.CC_ 
221151.40 
221152. CC 
221152.40 
221153.00 
221153. 40 



___CC__C_C_2._C6 

coocco.ic - 

CC30C4.0C+ 
CC300G.00+ 
CC300C.00+ 

CC200C.0C+ 



BO 
03 



V+,3,S EVL TB($12) -AD D_T_BL__ BAS E_ ADCR_ 



11* 

ie* 
is* 

2C* 
21* 
22* 



22 1_1_54_._0_C_ 

221154.40 

221155.00 

221155.40 

221156.00 

221156.40 



A1_Q.C0_3._35 01 
217451.40 80 



217372, 

C1CC04, 
217451, 
217372, 



10 
35 
40 
10 



00 
CI 

80 

CO 



23* 221157_C0 
2«* 221157. 40 
25* 22116C.C0 
26* 221160. 4G 



_Q.QPAQ.2_. 3 5 _0 1 
217451.40 8 
217372.10 00 
221065.10 00 



B,0.0U3) 
Z EVL MK VF, (8)3004. 
E MK1A VF, 18)3000. 
R MASK VF, (8)3000. 
Z EVL RW VF, (8)2000. 



A El _ ___________ tN_NAV 

SIC.S CISIC 

B,S DISP 
Z E2 LVI,14,S UN NAS 

SICS DISIC 

B,S DISP 



-$RD MASK - SEL,VER,CONSG 

-$fc AND $I«EF MASK - SEL.VER 
-SPACE MASK - SEL,VtR 
-REK,yNLD,FR£E__MAS_K_ - _Sh _._ 
-UNIT NOT AVAILABLE 



-UNIT NOT ASSIGNED 



L _E_4 L_V I_,_l 4 _ S _U _ SUPP 

SIC,S CISIC 
B,S DISP 

ZE 3 B,KCBUSY 



-1/0 INTERRUPT STACKED ON UNIT 



LCC00005 
LC000006 
LC000007 

Lcoooooa 

LC000009 

LC000010 

lcooooii 

LC000012 
LC000013 
LC000014 
LC000015 
LC000016 

L_6gppi7 

LC 0000 18 
LC000018 
LC000019 
LC000020 
LC000020 



LC000021 
LC000022 
LC000022 
LC000023 



20 
19 
18 
17 
16 
15 
14 
13 
12 
1! 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



WSI 



T iME CLOCK CCC54C41 



PUNIC 11D11MCP 



CARD ID LDCOQOC1 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 183 
L C C A ~TI ON" " 



£ 
r 
9 

9 
L 

g 
6 

01 
[ [ 

Cl 
El 

Si 
91 
L\ 
8! 
61 
02 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



1* 

1 * 

2 * 
A* 

~5«" 
IV 
\ * 
f « 

9* 

1C* 



22 1161 
22116 1 
221162 
221162 
221163 
221164 
221165 



.CC_ 

._co 

. CC 
.40 
.CO 
.00 

.cc 



CO 00 7. 31 
C0CC03.C1 
OOOC07.C1 
C00007.35 
CCC000.50 
221144. 5C 



8C 

Cl" 

3C 

8C 

8B 
CO 



221165.74 02 



— *#** 



— * « * # 



R VFY 



001000.00 
OOIOOO.CC 



EG 
FO 



**«#*»**a»*«**««**#*«B**«##***»#**»*»**««******«***ft#*#******#**** LD000001 

—*««*»**«*»*#*•»«*** VERIFY «******■»*«»**«*«*»#— L0000002 

• ««»##«««««««««««*»«»«*«*««»*****«**•****«***•*«****#-»**«•*****•** LD000003 

SL Ql* _ _ !rpCC0004_ 

"BB,S _SYSTM_($f2)jX R 1 R I "_""I§ST IF SYSTEM TAPE """ " "" LDC00005 

" LVI,0,S TD MOD" " L0000006 

SV,C,S LAB MU12) LD000006 

CM0C00(8U,1) iS LAB CU12) -SET LAB DEN TO HIGH FOR UNLAB TAPES LD000007 

CM0C0C(BU,1) ,S VERU11) -IF NCN SYSTEM, SKIP VERIFY LD000008 

6,Z STEVL LD000009 



11* 

12*" 

12* 
14» 
15* 
1^« 

n* 

1€* 

19* 

2C* 

21* 

22* 

"23*" 
2A* 

25* 

26* 

21* 

2fc* 

29* 



221165 
221166 
221166 
221167 
221167 
2 21 1 7 C 
221170 
2 2 11 7 1 
221171 
221172 
221173 
221173 
221174 
221174 
221175 
221176 
221176 
22U77 
221177 



.40 

.CO 

.40 

.CO 

.40 

.C_C 

.™40_ 

. CC 

.40 

.00 

.CO 

.4C_ 

.00 



.40 
.00 
.CO 
.40 
.00 
.40 



jOOCGOO^Cl 
CCCCC5.CG 
217674. 5C 
221371. CC 
221370. 1C 
CO C CO 2. C 3 

l2_l_76 24 .4 
217615.10 
221201, 
COCCOO, 
221260 
CO 00 00, 
22 1_1_7 5 ■_ 
000004. 01 
COCCOO. 00 
221177. C3 
221261. 10 

_C0C_C_0_5._C_0 
216242.10 



23 
37 
25 

30 
CC r 



Cl 

"ac 

CO 
80 
00 
Cl 
80 
CO 
SO 
8B 
30 
CO 
10 

Tc 

8E 
01 
00 
8_C_ 
CO 



R RR 



OC1000.36 FO 



221260.01 OG 



LVI , 
SIC, 
B f K 
SIC, 
BiK 
LVI, 
"S I c , 

"b,k" 

LVE, 
CM11 
SV,9 
CNOP 

ix",c 
sx, c 

RU,C 
LVI , 
B f M 
SIC, 
B,K 



°*§ 
S RE 

CENS 
K K 
10 I 
It S 
K K 
MODE 
9,RV 

nie 

,R R 

f $ + 1 
,S~~I 
• 0($ 

r, $ + 

10 R 
S RE 
SUPP 



INST C 
T AC ($12) 
T 
IND 

ND 

INST M 
MODE"" 



-SET UNIT TC INSTALLATION CENS 



-SET CHAN TO INSTALLATION MODE 



4 

U,1),S 

DL 



SET UPU11) 



.0 

INS ($12)" 

14) ,R RD L 

1.0 

EJ 

T A0U12) 



-READ LABEL COMMAND 



LD000010 

Loooobii 

LD000011 
LD000012 
LD000012 
LD000013 
~L DO 000 14 
LD000014 
LD000015 
LD000016 
LD000017 
L0000018 
LD000019 
LD000019 
LD000020 
LD000021 
LD000021 
LD000022 
LD000022" 



3C* 
31* 
32* 

33* 
34* 
35* 



2212CC 
221200 
2212C1 
221202 
2212C3 
2212C3 



.CO 
.40 
.00 
.00 
.00 
.40" 



221371. CC 
221370.10 

000006.00 
COCCOO. 5C 
C0CC10.5C_ 
00CC02.40 



80 
00 
8C 
8B 
3C 
3C 



000000.20 50 
OOIOOO.CC FC 



RV4 



SICK K IND 

B,K 10 IND -CHECK 
L(BU),S SCR PMi$12) 
CM0C00(BU,1),S VER($11) 
_L_V,4,S C REEL ($12) 
LV"",C,S EVL MKU12) 



IF 



SUCCESSFUL END OP 

-BRING LABEL WORD INTO $R 



LD000023 
LD000023 
LD000024 
LD000025 
LD000026 
XC000027 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 

10 

I 

9 

8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
36* 

39* 
4C* 



221204.00 
221205.00 

221206.00 



C0C000.40 
COCCOO. 42 
221214.76 



8B 
84 
CC 



221206.74 02 
036621.23 10 



#***«NOP FOLLOWING COMMAND 
•#»«*CF MCP REEL LABELS DES 
8B,S0WNER($li),$+2.32 
KF(BU,3C,6) ,0.34($4 ),34 
BZAE,RV3 SCR 



IF CHECKING***** 
IREO***** 

-K LAB REEL NO TO CU REEL NO 
-BRANCH IF THEY DO NOT AGREE 



LD000028 
LD000029 
LD000030 
LD000031 
LDOO'00 32 



Alt 
42* 
42* 
44* 
45* 
46* 



221206. 4C 
221207. CO 
221207.40 
221210.40 
221211.00 
221212.00 
2 21213.00 
221213.40 



221152.41 
217711.32 
COCCOO. CO 
221217.76 
000007. 2C 
_C0_C_C_C7._3 5 
22114"4.41 
C0CCC6.C1 



04 
C2 
80 
C2 

ac 

8C 

01" 

3C 



402013.63 10 



002013.52 
001016.12 



FC 

FC 



_KVI_,_C,E MK1A 
BXE,K W LABL 
KFI(BU,2) f 0,23 
BAE,K RELOD 
SF(BU,2),S LAB 
CM0101(HU,1),S 



-IF $W CK $ 



M($12) ,23 
LABD($12),28 



WEF, REWRITE LABEL 
-CHECK LABEL MODE 

-RECORD LABEL MODE 
-RECORD LABEL DENSITY 



LD000033 

LDC00033" 

LD000034 

LD000035 

LD000036 

LD000037 



47* 
~4£* 



LVI,0,Z STEVL 
SV,C,S SCRPM($12) 



LD000038 
LD0000 38" 



C 



wai 



TIME CLOCK CCC54G41 



PUNID 11D11MCP 



CARD ID LD000C40 



DIST. GF 3/C1 



3/01 



PAGE NUMBER 184 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LCCATICN 



221214 



1* 

2 * 
2 * 
4* 



221214. 
22 1214. 
221215. 
221216. 



00 
40 

40 

00 



220156.50 
000C0C.42 
221217. 76 
221152.41 



CO 
34 
CO 

04 



036040.21 10 



B,K SP TM 
RV3 SCR K(BU,30), .34{$4 
BZAE,K RELOD 
KVI,0,E MK 1A 



64 



-SPACE OVER TAPE MARK 

-TEST IF SCRATCH TAPE IS WANTED 

-IF SC, TEST IF $W OR $WEF OP 



LD000040 
LD000041 
LC000042 
LD000043 



r * 
6* 
1 * 

e* 
s* 

1C* 



221216. 
221217. 
221217. 
221220. 
221221. 
221222. 



4C 
CC 
40 
40 
40 
CC 



22_0C64.32 
217711.10 
C0CC00.40 
000003.75 
000024.20 
222C01. 13 



CO 
00 
8B 

ac 

3 
CI 



221221.74 02 
221233.74 OE 



BZXE L K ILEGL 
B,K W LABL 
KRELCD 88, SGWNERUll) »$ + 2.C 

BB1,SREMNT{$12),KB0UNC 

LV,8,$4 

LV„____LNLM_ 



: IFJCT, FAKE _EPGK 

-IF SG, "REWRITE UABEL 

-IF 2ND TIME THROW HIM OFF 



LOOC0044 
LD000045 
LD000046 
LD000047 
LD000048 
LD000049 



12* 
12* 
14* 
15« 
16* 
11* 



2 2_1222_. 
221223. 
221223. 
221224. 
221224. 
2 2J22J5. 
221226. 



4C_ 
00 * 
40 

00 
40 
00 

CO 



22 2011. 17 
221045.00 
221042. 1G 
00CC11.17 
222017.44 
2 3 3666.04 
233666. CO 



01 
80 
GO 
01 
30 

8g__goipgp_.c_6__7_c_ 

BO 001000.12 FC 



LVI __ZtZUNLC2__ 

SICZICC9X 

B,ZIC09 

LVI, $7, 9.0 

LV,$2,KULMES 

L_(_U_1__JI0BS_Y_ 

SFteUt 1) , JWAIT 



LDCCP050 
LD000051 
LD000051 
LC000052 
LD000053 
LDOp 00 54 
LD000055 



ie* 
is* 

2C* 
21* 
22* 



221227 

221227- 

221230, 

221230 

221231. 



CC 
40 
00 
40 

CC 



221766.00 
221743.10 
216242.01 
221766.01 
221325.40 



ao 
oo 

01 
DO 
80 



SIC 
B,K 
LVI 
SVA 
SIC 



23* 
24 * 
25* 
26* 
2 7* 
2£ * 



221231_. 
221232. 
221232. 
221233. 
221233. 
221234. 



4P 
CC 
40 
CO 
40 
CC 



_2_2_1_3_2_1._50. 
221313.40 
221302. 5C 
221165.50 
221237. 03 
C0GC00.42 



00 

80 
CO 
CO 
01 
84 



K EOUNC 



036600. C6 70 



_B_, _ 
SIC 
B f K 
B,R 
LVI 
LFl 



,K NEW TP 

RITE T 
,0,K SUPP 
fO f K NEW TP 
_K UNR R 

K LCCP 



-ASK FOR CORRECT REEL 



-WAIT FUR CHAN SIGNAL 



,K CBJ R 

CLEAR 

RR 

,l,K LETTR 
RU, 30,6) ,.341 $4) 



-CLEAR CONTROL WORD 

-TEST IF CCRRECT REEL 



-EXPAND REEL NO TO 8 BIT BCD 



LCG00056 
LD000056 
LD000057 
LD000057 

LD00CC58 



LDPQ0058 
LD000059 
LD000059 
LD000060 
LD000061 
LD000062 



2_._ 
3C* 
31* 
32* 
33* 
34* 



221235_. 
221236. 
221236. 
221237. 
221244. 
22125C. 



PP 

cc" 

40 

CO 
20 
50 



_2_2125C.5C_ 
221546. 5C 

C00C00.30 



30 
"00 
00 



050000.20 CC 



_S_T{_BU L 4C),__0RAG__ 
~B,J oetcf" 

CNOP 

( A*)DD(BU),1Y0UR JOB HAS >B= EN TERMINATED BECAUSE 

(A*)DD{BU), OPERATOR COULD NOT LOCATE REEL NC. * 

lA*>_Q.D<8L___ f 

_(A* LQ. Q. L fi y 1 » * 

X w , $ , 1 . C , t 



LD000063 

LDC00064" 

LD000065 

LD000066 

LD000067 

LD000068 



-THRCW PP CFF 



K LETTR 



K DRAG 



THE * 



3_.t 

36* 



221255. 
221260. 



50 
CC 



LD000Q69 
"LD0000 70 



22-1260.00+ CCC C0C001 221260 



R RCL 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLCCK CCC54C41 
" L I N E " " ~ L 6 C Ml ON 



PUMD 11D11MCP CARD IC LEC00CC1 DIST. OF 3/C1 
~B I NARY~ CU T P lil NAME STAT £ M EN T~ 



3/OL 



PAGE NUMBER 185 
LGC All ON" 



1* 
2* 
2 * 

4* 221261.CC * 

f # 

___ 

/ * 
£ * 

9* 221261. CC 
IC* 221261. 40 



221262.43 
221262.43 



46 
C6 



—****«»****«* I/O REJECT TEST «****•»*****#— 

SLCtf 
- CALLING SEQLENCE _*• L V I , 1 , RE TURN + B , M IC REJ 
-""" "RETURN {I/O ACCEPTED) 

CONCITICN ** I/O COMMAND IN S 10 INSU12) 

M 10 REJ EEKJZ,K RETRY-. 32 
6UNRJZ,K RETRY-. 32 



LE000001 
LE0Q0002 
LE000003 
LE000004 
LEO 00005 

" LEG 00006" 
LE000007 
LE000008 
LE000009 
LEOOOOLO 

"LE000011" 
LE000012 
LE000013 
LE000014 
LE000015 
LEO 000 16 

"LEOOOOlj" 

"LEOOOOltJ" 
LC000019 
LE000019 
LE000020 
LE000021 
LE000022 



11* 
12* 
12* 
14* 
15* 
16* 
17* 
IE i 
l c >* 
2C* 
2J* 
22* 
22* 



22 126 2. CO 
221262. 4C 
221263. CC 
221263. 40 
221264. CO 
221264.40 
2 2 126 5. CC 
221266.00 
221266.40 
221267. CC 
221267. 4C 
221270. CO 
2212 70.40" 



COCO CO. 04 
~~ CCCC36.27 
000C04.C0 
000000.30 
00 00 36.0 3 
221265. CI 
CCCOCC.CG+ 



221267 

221265. 

221300 

221263, 

221272, 



4 3 
02 
10 
C5 
43 



221760. C3 



45 

C2 
IC 

00 

02 
10 

coo 

44 
48 

CO 
CI 
C4 
04 



GOGOOO OCCCOC 



BZCEJZ.C.CUl) 
"LCI ,11,30" 
K RETRY LX,C,S 10 INS($12) 

CNOP 

LCIt 1,K REP 
_SX L C f §.32_ 

X W , C 

8ZEKJZ,$+1.32 

CB, 1, $-1.32 

B,K REJT 

LVI,2,K RETRY 

BZUNRJZ.K K CBJ 

KVI,"l,KFIRE + 2.0" 



- 1 *: _ * 9 R E J § T ..} W>_ P N .»_ A L _ L _ S _ _w E L L 
-PICK UP THE I/O COMMAND 

-RETRY THE COMMAND" 



-TEST IF UNLOAD INSTRUCTION 



2** 
25* 
26* 
21* 

2E* 



221271 

221271. 

221272 

oocooo 

221272 



CC 
4C 
CO 
00 + 
40 



CC0C01.32 
221325.45 
221314. 10 
+00000036 
C00C00.C4 



C3 
DO 
00 

45 



BU,22 ,10 



K REP 
K K CBJ 



DXE,1.0($1) 
SVA,2,K UNR R 
B,K UNR 
SYNCBU, 18),30 

Bzcejz, c.o(si) 



-IF SO, SKIP IT 



•NO OF I/O RETRIES FCR EKJ 

-IF NO REJECT IND ON, RETURN 



LE000023 
LE000024 
LE000025 
LE000026 
LE000027 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



29* 
"3C* 
31* 
32* 
32* 
34* 
35 * 
~3€* 
37* 
3fc* 
39* 
4C* 



221273^CC 
221273.40" 
221274.00 
221274. 4C 
221275.00 



22 1313.45 
22 12 75.50 
003405.35 
217451.40 
217372.10 



CO 
00 
01 
80 
00 



S_VA, 2,K CBJ R 
B,K "CBJ 
K SOS LVI,14,S 10 ERR 
SICS DISIC 
B,S DISP 



«#*****#»*#«*** CHANNEL BUSY REJECT *****«***«»»*** 
CALLING SEQUENCE ** SIC,K CBJ R/B,K CBJ 



221275.40 

221276. CC 



000036. C3 02 

COCCOO.CG dfc 



221326.21 CC 



K CBJ LCItliK REP 

CCw,0.0{$14),K K CCVv 



-IF CBJ IS ON, 
-CHECK IF CS ON 



LE000028 
LE000029" 
LE000030 
LE000031 
LE000031 
LE000032 
"LE00qq33 
LECG0034 
LE0C0035 
LE000036 
LE000037 
LE000038 



41* 
42* 
43* 
44* 
45* 
46* 



221277.00 

221277.40" 

221300.00 

2213CC.4C 

221301.00 

221301.40 



221276. 02 
003406.35 
217451.40 
217372. 10 
221326.27 



44 
48 
CI 
80 
00 
80 



K REJT 



221274.34 00 



BZ.EKJZ., ? + 2.32_ 

CB, 1,K~C8J.32 

LVI,14,S REJ 

SICS DISIC 

8,S DISP 

BZB,K K CCW+.23,K SOS 



-I/C COMMAND REJECTED 



IF NO CS, ERROR 



LE0C0039 
"LE000040 
LE000041 
LE000042 
LE0G0042 
LE000043 



47* 

"4 6* 
49* 
5C* 
51* 
52* 



221302.40 
2213C3.CC 



000036. C3 

ooqcqq.cc 

221305.43 



C2 
44 



*»# e« #««#** «*#«• CLEAR CONTROL toCRD **«*«»***«***** 
CALLING SEQUENCE ** SICK CBJ R*B,K CLEAR 

-IF CS ON, CLEAR CONTROL WORD 



000000.33 00 



K CLEAR LCI,1,K REP 

REL(SE0P),0.C{$14) 



LE000044 

LE000045" 

LE000046 

LEC00047 

LE000048 

LE000049 



52 *_ 22 1304. CO 
54* 221304.40 
55* 2213C5.0C 
56* 221305. 4C 



8ZEKJZ,$+1.32 
"CB, 1,$-1.32 
B,K REJT 
8ZB,SMULTH$1C),KSE0UL 



LE000050_ 
"LE0000 51 
LE000051 
LE000052 

_____ 



221303.02 
221300.10 
000000.33 



48 
CC 
6A 



221307.74 00 



T IME CLOCK 00C54C41 



PUNID 11D11MCP 



CARC ID LE000053 



CIST. OF 3/01 



3/01 



PAGE NUMBER 186 



_li_nt LOCAJICN BINARY OUTPUT NAME STATEMENT LOCATION 221306 



3* 
2 * 

2 * 
A* 

i* 
. * 
E* 
<_* 
1C* 



221306.40 

221307.00 

221307.40 

221310_._C_C_ 

221311. CO 

221311.40 

221312.00 

221312.40 

221313.40 



216272.40 
216267. 10 

000036.03 

cgccgo.cc 

221312.43 
221310.02 
221300.10 
221326.30 
221263.10 



80 
CO 
02 

8E 

__ 
40" 

00 

80 

CO 



221326.21 CO 



221307.74 02 



SICK ST CS 

BtK CS IN -STACK CHANNEL SIGNAL 

K SEOUL LCItlfK REP -CHECK FOR ENU OP OF REL 

CCW,0.C($14_),K K CCW 
3ZEKJZ, $ + 1.32 _ _"__ 

CB, I, 4-1.32 

6,K REJT -IF 3 EKJ, GIVE UP 

8B,K K CCW+.24,K SEOUL -IF SEOP BIT ON, LOOP 

K CBJ R B,K RETRY -CTL WORD CLEARED FOR RETRY 



12* 

12* 
14* 
15* 
16* 



## #■* * ******* *** UNIT NOT READY REJECT ******************** 



LE0C0C53 
LE000053 
LE000054 
LECp00 55_ 
LEC00C56_ 
LE0000 5 7 
LE000057 
LE000058 
LE000059 
_LE00p06p 
LE000061 
LE066062 
LE000063 
LEC00064 
LE000065 
LE000065_ 
LE000066 
LE000067 
LE000068 
LE000069 
LE0C0069 
LE000070_ 
LE000070 
LE000071 
LE000072 
LE000073 
LE000074 
LE0C0074 
LEC00075 
LE000076 
LE000077 
LE000078 
LE000079 
LEOOOOBO 
LE000081" 
LE000082" 
LE000083 
LE000084 
LE000085 
LE0000d6 
LE0000_7_ 
LE000088 
LE000089 
LE000090 
LE000091 
LE000092 
LE000093' 
LE00b094 
LE000095 
LE000096 
LE000097 



221314.00 
221314.40 



11* 

le* 
I?* 

2C* 
21* 
22* 



22_13_1_5_._C_0 
221315.40 
221316.40 
221317. 40 
221320.00 
221320.40 



221350. CO 80 
_2213_3 5_._1C_C0 

221333.00+ 



CALLING SEQUENCE ** SICK UNR R*B,K UNR 

K UNR SICK CCNV R 

_8,_K_C0NV -CONVERT CHAN + UNIT NO TO IQS 



VF,K _NN 

LF{BU,1) ,JIOBSY~ 
SF( BUiDt JWAIT 
SICS COMIC 
B,S COMM 
, K SERV M 



233666. C4 
233666. CO 
215470.40 
215470.10 
221327. CO 



80 
80 

80 
00 

80 



001000.06 
001000.12 



70 
FC 



-CALL COMMENTATOR 



22* 221321. C0_ 
24* 221321.40 
25* 221322. CO 
26* 221323.00 
21* 221323.40 
26* 221324.00 



A0_c_c_c_6_._c.c_ 

000036. C3 
OOOCCO.CO 
221324.43 
221322. C2 
221300. 10 



__ 
C2 
8E 
44 
48 
CO 



221326.21 CO 



,_6. -LOCATION L_-_.J_.ei_.GrH OF _ESSAGE_ 

K K LOOP LCI,1,K REP -WAIT FOR UNIT TO BECOME READY 

CCW,0.0($14),K K CCW 
BZEKJZ, $+1.32 
CB, 1, $-1.32 
_B,K REJT -IF REPEATED EKJ, GIVE UP 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



2_* 
3C* 
31* 
32* 

33* 
34 _ 

35* 



221324.40 



221325. 
221326. 
221327, 
221333, 



40 
CO 
CO 
00 



_ 22 13 26.22 8 

221325.50 CO 

CCC0CC.00+ CCC 



221321.74 00 



COOOOO OCCCOC 



BZB. K_K_CCW_1__K_K__LG_C__ -CHECK _UNI_.__ _______ B IT 

K UNR R B«$ -IF UNR ON, ALLS HELL" 

K K CCW XW,C 

K SERV M { IQSX)DC(BU,64),*** OPERATOR *** READY CHANNEL X 
K NN ( IQSY)DD.BU,64) , LNIT . Y 



36* 
37* 
3E« 
3".* 
4C* 



_C__LLI_NG SEQUENCE ** SIC.K C N_V __R_4 B , K CO N V 

VF, LOG CF CHAN NO (US) 



221335.00 
221335.40 

221336.40 * 



221326. C3 
COCCCO. 14 
221350. C3 



10 
8C 

BO 



007000. 2C 30 



K CONV SX,1,K K CCW 

LCV{BU,7),S CHAN N($12) 
LVE,1,K CCNV R 



•SAVE XR1 

-IF NOT, SEND MESSAGE 



__L* 
42* 
42* 
44* 
45* 
46* 



221337_00 
22134C.CC 
221341. CC 
221342. CO 
221342.40 
221343.40 



__P_C0_1_1 . 7 8 C 1 40 0_ 4 6 70 

CCCC11.77 80 001000. CO FC 

3C0600.C0 80 420000.16 70 
000000.02 31 

CCCC00.00 81 020000.12 FO 

CCCCG0.57 8C 0C3000.6C 5C 



A^ ___»_____! $R. 56,1 _ 
CM0C00(BU,1) ,$R~.63 
CI011KBU.16), (8.3CC6CG, 
LV,1,0.C($1) 
CM0101(BU,16) ,0.C($1) 
L(BU t 3) »S UNIT N($12) ,1 



-EXPAND I T T 8 B I J _B_YJJ_S 
-MAKE IT IQS NUMERAL 

■PICK UP UNIT NO 



47*_221344.4C_ 
48* 221345. 4C 
4S* 221346.40 
5C* 221347.00 
51* 22135C.CC 



_3_C_C_6 O.CC_80__41 OpOO_._l 6_ _7_C_ 
C0CCC1.C0 81 010000.12 FC 
221326.02 10 

221350.00 80 023000.22 BO 
221350.10 00 



Cig__l__C8)_ (8)_3_C06_00_ 
CM0101(BU,8),1.0{$1) 
LX,1,K K CCW 
M + UBU,19),K CONV R 
K CONV R B,$ 



-RESTORE XR1 

-SET RETURN ACCRESS 



Hfll 



I IME CLCCK 0CC54C41 
L I N E L OC A TYON 



PUNID 11D11MCP CARD IC LFGOOOC1 
' "B I h A K Y~ OUTPUT" " ~N A HE " 



OIST. OF 3/C1 
STATEMENT 



3/01 



page number 187 
Location"" 



i* 

2* 

"t * 
<* 

£ * 
"IV 

7* 

t* 

9* 

IC* 



-«*«*«*****«* ECP TEST FOR SEOP TYPE I/O ««****«*«**»- 

SICK EOP R*8,K SEOP T 



CALLINGS E Q U E N C E 



»* 



22135C.40 
221351.00 
221352. CO 
221352. 4C 
221353. CO 



11* ?21353.40 __~ 
12*^22 1354.40 
12* 221355. CO 
14* 221356.00 
15* 221357.00 
16* 2 2 13 57.4 C 
V* 2 2 1 3 6 0.4 C 
If* 221361. CC 
19* 221361.40 
2C* 221362.00 
21* 221362.40 
22* 221363.00 
23*_221363.4C__ 
2'* 221364. CC 
25* 221364.40 
26* 221365.00 
27* 221365. 4G * 
2t* 221366_.CC 
29* 221366_4C~ 



00CC36.C3 
COCCCO.CO 
221353.43 
221351. C2 
2213CC. 10 



C? 
8E 
44 

48 

CO 



221367.21 OC 



K SEOP T LCI , l f K REP 

CCW,0.C{$14) ,K WS 
BZFKJZ,$+1.32 
CB,1,$-1.32 
B,K REJT 



LF000001 
LF000002 
LF000003 
LF 00 0004 
LF000005 
LF000006 
LF000007 
LF000008 
LF000009 
LF000009 



22 1367.23 
2213 54.74 
221367. 3C 
75CC0C.G0 
221354.74 
221367.25 
22 13_64. 43 
221313.40 
221302. 5C 
221354.43 
22CC46.G3 
CO CCO 0.32 
217624.43_ 
OOCCCC. 32 
221364.43 
221274.26 
221313.40 
221302. 5 C 
22 12 63 .TO 



80 

C2 

80 

80 

C2 

80 

DO 

80" 

CC 

BO 

04 

C3 

C4 

C3 

CI 

4A 

80 

CO 

CO 



006000.20 50 



221350.74 
406000. C2 



02 



221365.34 OC 



L_fiU6],K WS.19 
K ECP R BRZ,$ 

BB,K WS.24,K SEOP T 

CIOC01{BU,6),U5,2)liliCl 

BRZ,K EOP R 

0ZB,KWS.21,ZTSEOP 

SVA,_1__SVRJN 

S I C i K c e J R 

B,KCLfcAR 

LVEi tliKEOPR 

KVI,$1»ZLGCXX 

BXE, C$1) 
"~I ""'""_" KV_ L _1,KK>0CE~ 

BXE, ($1) 
RSVRTN LVI,$l t $ 
ZTSEOP CBZ,*ll,KSOS 

SICK CBJ R 

B,K CLEAR 

8, K "RETRY" 



-TEST STATES INDICATORS 
"-IF'NONE ON, ALLS WELL 
-IF SEOP BIT ON, LGOP 
-TEST IF ONLY CS IS ON 
-IF SO, ALLS WELL 



CLEAR CONTROL WORD FOR RETRY 



3C* 
31* 



221367.CC * 



COCCOl.CC 



KWS 



CNOP 
DRZ(N), ( 1) 



LF000010 
LFOOOOll 
LF000012 
LF000013 
LF000014 
LF000015 

T.F000016 

"LFOOOOlT 
LF000017 
LF000018 
LF000019 
LFC00019 

"LF000020" 
LF000020 
LF000021 
LF000022 
LF000023 
LF0C0023 
LF000024 

~LF000025~ 
LF000026 



20 
1? 
18 
17 
16 
15 
14 
13 
12 
II 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



TIME CLOCK C0C54C41 



PUNID 11D11MCP 



CARD IC LGCCCCCL 



CIST. OF 3/01 



3/01 



PAGE NUMBER 188 



L J N E 



LGCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2 * 

2 * 

<* 221 370. CC 



— *«__*«««*««*_ «««»*«*«**»»»**««*ft«ft«*«*»*«««**«**«*«*«*tt*«#* *******»•**» LG000001 

-****»*****_««****** I/O INDICATOR CHECK a******************- LG000002 

— #**#**#****«*««**»*#»»»****»«»***»««»*»«**»***»***»♦***»*#**»*##»***** LG000003 

SLC,$ L GOO 00 04 



CALLING SEQUENCE ** SICK* K IND*B,K la" 



LG000005 



£* 

. * . 

£* 221370. OG 

S* 221371. CG 

IC* 221371. 4C 



I NO 



C00001.ll 
221371.34 
221371.05 



80 
C2 
BO 



002000. 2C 50 



K 
K 



10 I NO 
K INC 



L(BU,2) ,S 

BRZ,$ 
LVE,2,K K 



10 INDU13) 



I NO 



-TEST If 
-IF NONE 



tPGK OR UK ON 
ON, ALLS WELL 



LG000006 
LGC00007 
LG000008 
LG000009 
LG000010 



il_ 
12* 
12* 

14* 
15* 
16* 



22 13 72_. CO 
221372.40 
221373. CC 
221373. 4G 
221374.00 
221374.40 



_2_2_01_71._4 5 04 
221424.32 C2 
217746.45 04 
221421.72 C2 
221201.05 04 
221405.32 C2 



_K.VlL2fK_F!L_Kl 
BXE,K K SPAC 
KVI ,2,K KF DEN 
BXE,K LABEL 
KVI ,2,R V4 
__E.K___REAO_ 



-I_.SI_IF_SPACE_FJL.E_ C_P_ 
-TEST IF W LABEL OP 
-TEST IF RD LABEL OP 



LGOoggii 

LGC00012 
LG000013 
LG000014 
LG000015 
LG000016 



II* 

IE* 
1_* 
2C* 

21* 
22* 



2213 J 5 . _C_C_ 

22 1375. 40 

221376.00 

221376.40 

221377.00 

221400.00 



2_L1I_.7_._4 5 
221444.72 
000036.05 
000004.00 
C0CC2O.64 
221512.40 



Q4 
C2 
02 
IC 
80 
80 



KV ___.'!<_!__- TMK 
RXE.K R fcEF 
LCI,2,K REP 
LX,C,S 10 INS($12) 
CM111KBU, 1), $0.52 
SICK K RET 



..rT.EST_I__WEF_CP 

-OTHERWISE, LOC OR DENSITY OP 
-MAKE IT SEOP COMMAND 



L GO CO 01 7 
LG000018 
LG000019 
LG000020 
LG000021 
LG000022 



K REPET 



001000.36 FO 



23_*_2214g0_.4p 
24* 221401.00 
221401.40 
221402.00 
221402.40 
221403. CC 



25* 
2_* 
27* 
2_* 



_2_2_1_5_0_5__1_ _C 
221402. C3 01 
221525.10 CO 
221274.10 00 
221404.10 CO 
221274.10 CO 



-ANC RETRY 



2i* 

3C* 
31* 
3_* 

33* 
34* 



221403_.4C 
221404.00 
221404.40 
221405. CC 
221405.40 
2214C6.CC 



221422.50 00 



221376.44 
221274.10 
000036.05 
221520.40 
221514.10 



48 
00 
02 
80 

00 



B_»K IC__EJ__ 
LVI , 1, $41.0 
B,J SEOP T 
B|K SOS 
B,K COUNT 
B,K SOS 

""_._._._______ _______ __ 

C8,2,K REPET. 32 
B,K SOS -TRY KREP 
K R READ LCI,2,K REP 
SICJ BSP X 
B,J BSP E -BACKSPACE 



-CHECK TERMINATION 

-EPGK - GIVE UP 

-UK 

-EE _- _IM POSSIBLE 

-SUCCESSFUL END 



K COUNT 



TIMES BEFORE GIVING UP 



TO LOAD POINT 



LG000022 
LG000023 
LG000023 
LG000024 
LG000025 
LG000026 



LG000027 

LG000026' 

LG000028 

LGC00029 

LG000030 

LG000030 



3-_* 
36* 
37* 
3£* 
3.* 
4C* 



2214C6.4C 
221407.00 
22141C.0C 
22141C.4C 
221411.00 
221411.40 



_C_0_C0_0_4_._CC 
000020.64 
221201.23 
221260.23 
221512.40 
221505.10 



1_C_ 

80 
80 
30 
8 
CO 



K R NEW 



LXjCS IC INSU12) 
CMllli(BU,l),$0/52 
LVE,9,RV4 

SV,9,R RDL 
SICK K RET 
B,K 10 RCJ -ANC 



LG000031 

LG060032~ 

LG000033 

LG00G033 

LG000034 

LG0C0C34 



20 
19 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 



001000.36 FC 



-MAKE IT SEOP COMMAND 



RETRY 



Alt 
4_ * 

42* 

44* 
45* 

4£_ 
47* 



221412.00 
221412.40 
221413. CC 
221413. 4C 
221414. CC 
221414.40 
221415. CC 



221413. C3 CI 



LVI.lt $+1.0 



LG000035 
"LG000035 
LG000036 
LG000037 
LG000038 
*- GO 00039 
LG000040 



221525.10 
221274. IC 
221415.10 
221420.50 
2_2_14_22._50 
221405.44 



00 
CO 
00 
00 

QQ 

48 



B,J SEOP T 



-CHECK TERMINATION 



K R UK 



-EPGK - GIVE UP 
-UK 
-EE 
___-SUCCESSFUL END _ 
CB_____R_BEAC.32 J-TRY KREP TIMES BEFORE GIVING UP 



BiK 
B,K 
B f K 
B t K 



SOS 

R UK 
R EE 
K EXIT 



wai 



TIME CLGCK CCC54C41 
LINE L C C Al TcK 



PUMO 11D11MCP CARD ID LGC00042 DIST. GF 3/C1 
BINARY~CUTPUT ~NAM"E """" STATEMENT 



3/01 



PAGE NUMBER 189 
1 C A Tl CN~ " 221415 



1* 221415. 40 
2* 221416.40 * 
2* 221417.00 
4* 2214 17.40 
5 *_ 22 142 _.CC_ 
t* 221420.40 " 
221421.00 
221421.40 
221422. GO 
2 214 2 2.40 
22142 3.40 
221370.00+"" 
221371. CC+ 



I* 

t* 

s» 

ic* 

11* 

12* 
12* 
14* 
15* 
U* 



C0CC11.77 


ao 


221274.34 00 




221614. CC 


80 




K NEW T 


221541. 10 


00 






C0CCC3.C5 
22 1406. 5 C 
221405.44 


02 
CO 
48 





~"KRE"E"~" 


221416.50 


CO 






221660.00 


80 




K LABEL 


221622.10 


CO 






coocco.co 

221371. 10 


OlCC 
OlO 


01 0000 .00 70 __ 


K K EXIT 


+0CCCO0CC 




BC1CC1C 


E IC IND 


+OCCOOOCO 




BU,4G ,10 


E IND R 



scs 



-IE 



UK + 
-'NEW 



-IF UK ALGNE, MACHINE ERROR 
ECP, BAD TAPE 
"f A P E ~ I S ~ READY 



BZR,$R.63,K 
SIC, J NEW T 
B,J NEW TE 

LCI, 2, 3 

H,K^R NEfc 
C8,2,KRREAD.32 
B,KNEWT 
SICJWRITX 
B, JWRITL 

cqqco[BU,8] ,, 

~B,K K IND 
SYN,K IC IND 
SYN,K K IND 



***««******«*** RETRY FOR SPACEFILE OP ****»*»**»****« 



•RETRY fcRITE LABEL 



17* 


221424 


.cc 


000036. 


,C5 


C2 


IE* 


221424 


.40 


000136. 


.05 


01 


1?* 


221425 


.00 


221475. 


.00 


10 


2C* 


221425 


.40 


221502. 


.CO 


80 


21* 


221426 


.CC 


221476. 


.10 


CO 


22* 


221426 


.40 


221325. 


40 


80 


23* 


221427. 


.00 


221321, 


50 


00 


24* 


221427 


,4C 


221313. 


40 


80 


25* 


221430 


.00 


221302. 


50 


CO 


26* 


221430. 


.40 


COGCCO. 


C3 


01 


27* 


221431, 


.00 


221474. 


40 


80 


26* 


221431 


.40 


221466. 


10 


CO 


2S* 


221432 


.CC * 


000076. 


05 


01 


3C* 


221432. 


.40 


221502. 


CO 


80 


31* 


221433, 


.00 


221476. 


10 


00 


32* 


221433. 


.40 


000002. 


33 


8D 


33* 


221434. 


.40 


00CG11. 


C2 


30 


34* 


221435, 


.00 


221474. 


40 


80 



-CLEAR 



001027.20 50 



K _K _SPAC LCI,2,K REP 

LVI, 2, (8) 136. ~" 
LX,C,K CTL CM 
SICK SECP R 
B,K K ECP 
SICK LNR R 
"6,~K K"LCCP 
SICK CEJ R 
B,K CLEAR 
LVItltS INST D 
SICK DEN OK 
B,_K K CFNS 
LVfi"2[fe)76.~" 
SICK SECPR 
B,K K ECP 

L(BU» 1) ,S F DENI$13),46 
LV, 1,$R 
SICK CEN CK 



-REWIND TAPE 



-WAIT FOR END OP REW 



CGNTRGL WORD 

-SET UNIT 



TO INSTALLATICN CENS 



•SPACEBLCCK 



-SET UNIT TG FILE DENSITY 



LG0C0042 
LG000043 
LG000043 
LG000044 
LG000044 

"LG000045" 
LG000045 
LG000046 
LG000046 
L GOO 00 47 

"LG000047 

"LG00004B" 
LG000049 
LG000050 
LG000051 
LG000052 
LG00005/ 
LG000054 
LG000055 
LG000056 
LG000056 
LG000057 
LG000057" 

~LG660058~ 
LG000056 
LG000059 
LG000060 
LG000060 

"LG000061" 
LG000062" 
LG000062 
LG000063 
LG000064 
LG000065 
L GO 000 i6 5 

"LG000066" 
LG000067 
LG000067 
LG000068 
LG000068 



Si 
91 
11 
81 
61 
05 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
6 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3£* 
39* 
4C* 



221435.40 
221436. CC 
221436.40 
221437.00 
221437.40 
22144C.CC 



i 2_l_4_6_6._ l _°_ 0_ 
000077. C5 01 
221512.40 
221505. 10 
221440.43 
221525. IC 



80 
CO 
01 

CC 



_B_t_K_ K LENS 
LVI ,2, [8)17. 
SICK K RET 
B,K IC REJ 
LVI ,1, $ + 1.0 
B,J SEGP T 



-RETRY SPACEFILE 



-CHECK TERMINATION 



41_* 
42* 
43* 
44* 
45* 
46* 
47* 



221440.40 
221441. CO" 
221441.40 
221442. CO 
221442.40 
2 214 4 3.40 
221444. CC 



221443.50 

221442.50" 

221422 

221422 

00CC11 

221424 



00_ 

~o"o 

00 
CO 
80 
48 

"CO" 



Bi_K_SUS SP 
~B,RK1~ 
B f K K EXIT 
B,K K EXIT 
BZB,$R.63 t K SGS 
^L^L^.K SPAC.32 

"b,k scs 



-EPGK - GIVE UP AFTER 3 TRIES 



L-G000069 



50 
5 
7 7 
44 



-EE - SUCCESSFUL END 
-EGP - IMPOSSIBLE 



221274.34 00 



RK1 
K SCS 



SP 



LG0000 70 
LG000071 
LG000072 
LG000073 
LG000074 
"LG000074" 



221274. LC 



wai 



TIME CLOCK 0G054C41 
LINE L C C A tTcN 



PUNIO 11DUMCP CARD ID LGCO0076 DIST. OF 3/CL 
BINARY'C U T P U ~T NA H E " "' " STATEMENT" 



3/01 



PAGE NUMBER 190 
LOG Ml ON 



1* 
2* 

3 * 

5ft 



***«#«****«* RETRY FOR WRITE TAPE MARK OP ************ 



2214 4 4.40 
221445. CG 



C0CC36.C5 
"C00136."C5' 



02 
CI 



K R hfcF 



-REWIND TAPE 



1 * 

fc* 

<j* 

1C* 



221445. 4C 
221446. CO 
221446.40 
221447. OG 
221447. 4C 



221475. 
2215C2, 
221476, 
221325. 
221321, 



CC 
CC 
10 
4C 

'50 



10 
80 
CO 
80 

GO 



LCIi2|K_REP__ 

Lyii2,|8) 136." " 

LX,C,K CTL CM 

SICK SEOP R 

B,K K EOP 

SICK UNR R 

B,K K LOOP -WAJJ__FOR__E_ND OP REW 



12* 

13* 
14* 
15* 
16* 



2 214 5C.C0_ 
221450.40 
221451. OC 
221451. 4C 
221452.00 
221452.40 



_2_2_1_31_3._4C 
221302.50 
0CGC00.C3 
221474. 4C 
221466. IC 
CCCC21.C0 



80 
00 
CI 
80 
00 
80 



R 



C 



221730. C6 AC 



S!CK_CBJ 
8,K CLEAR 
LVI,1,S INST 
SICK DEN OK 
B,K K DENS 
tit 3, $1,J PREV 



-CLEAR CONTROL WCRD 

-SET UNIT 



TO INSTALLATION DENS 



LG000076 
LG000077 
LG000C78 
LG0000 79 

"LGOOOOSO" 
LGC00081 
LG000082 
LG000082 
LG000083 
LG000p83 
LG000084 
LG0000 84 
LG000085 
LG0C0086 
LG000086 
LGQ00087_ 
LG000088 

"LG000088" 
LG000089 
LG000090 
LG000091 
LG000091 
LG000092 
LG000093 
LG000094 
LG000094 
LG000095 
LG000095 

~LG0000?6~ 

"LGC00097" 
LG000098 
LG000099 
LG000100 
LG000101 
LGOOOlOl" 
L GOO 01 02*" 
LG000103 
LG000104 
LG000105 
LGCQ01C6 
LG00C107 
LG000108" 
LG000109 
LG000110 
LGOOOlli 
LG00pll2_ 
LG000113 
LGC00114 
LG000115 
LG000116 
LG000117 
LG000118 
LG000118 



17* 2 2 14 53. 4C 
18* 221454. CC 
221454.40 
221455.40 
221456. CC 
221456.40 



IS* 
2C* 

21* 
22* 



22 1660. CC 
221644. 5C 
G0C0O2.33 
C00C11.C2 
221474. 4C 
221466. 10 



60 
00 
8D 
30 
80 
CO 



C01027.2C 50 



SIC 1 J_WRJT_X 
B,J R WRIT 
L(BUt Dt S F 
LV, 1,$R 
SICK DEN OK 
B,K K DENS 



-ERASE LONG GAP + 
DENU13),46 -SET 



REWRITE LABEL 

UNIT TO FILE DENSITY 



23* 
2** 
25* 
26* 
27* 
2£* 



221457j.CC 
221457.40 
221460. CC 
221460.40 
221461. CO 
221461.40 



_C_C_C_1_17 ._0_5 
221475. CC 
221512.40 
221505.10 
221462. C3 
221525. 10 



ci 

10 
80 
CO 
CI 

CO 



LVI,2, (8) 117. 



-RETRY WEF OP 



LX,C,K CTL CM 
SICK K RET 
B,K IG REJ 
LVI,1,$+1.0 

BtJ SEOP T 



-CHECK TERMINATION 



2i* 

3C* 
31* 
32* 

33* 
34* 



221462^0 
221462. 4C 
221463. OC 
221463. 4C 
221464. CC 
221465. CC 



221465. 10 
221464. IC 
221274. 10 
221422. 5C 
000011.77 
22 1445.04 
221274. 10 



C0_ 
CO 
CO 
CO 
80 
48 
CO 



TM 



221274.34 OC 



RK2 

K SOS 



TM 



B,K SOS 
B,RK2 
B,K SOS 
B,K K EXIT 
BZB,$R.63,K SOS 
08, 2, K R wEF.32 
_E l_ij< SOS ~ ~ 1" _ _ "__ ~_ '_'_ 



CALLING SEQUENCE ** 



-EPGK 



GIVE UP AFTER 3 TRIES 



-EE - VERY SHORT TAPE 
-SUCCESSFUL END 



20 
19 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 
36* 
37* 
3f * 
3 C , * 
4C* 



221465.40 



DENSITY CHECK 



•«*««**•**•««««««« 



L VI, i» DEN CODE [C r^ H JGH t 

SICK DEN QK*B,K K DENS 



1.0 - LOW) 



Alt. 
42 * 

43* 
44* 
45* 
46* 



221466.00 
221467. CC 
221467.40 
22147C.CC 



O00C0O.61 
000CU.C2 
221474.72 
221471.74 



8B 
90 
C2 

C2 



001027.20 50 



47* 
4£* 
49* 
5C* 
51* 
_52*_ 
53* 



22147C_._40 
2 214 71.CC 
221471.40 
221472.00 
221473.00 
2 214 7 3_._4_C_ 
221474. CC 



_C_C_CC36.C5 
2214 7~2.1C 
C0CC37, 
CCCCOO. 
221475. 
2215C2. 



Ql 
CC 
01 
8B 
10 
30 
00 



K K DENS L(BU,1),S U DENS($ll) f 46 -TEST IF UNIT SET TO DESIRED DEN 

KV, 1,$R 

BXE,K DEN OK 
BRCK LOW -if NOT SEE WHATS D_E_SI_REC__ 

LVLt2tI8]36. -HIGH DENS ITY DESIRED 



C5 
61 

CO 
CC 



K LOW 



001000.30 FO 



221476. IC 



B f t+1.0 
LVIt2, (8)37. 
CM1100{ BU.l) ,S 
LX,C,K CTL CM 
SIQiK_StQP R 
B,K K ECP 



U DENSmi) 



-LOW DENSITY DESIRED 
-SET UNIT DENSITY BIT 



IN UST 



MSI 



TIME CLCCK CCC54C41 



PUMO UC11MCP 



CARD IC LG0C0120 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 191 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 
-DENSITY SET 



221474 



1* 221474.40 
2* 221475. CO 
2 * 

L ft 



221474. 5C 
COCCCO.CC 



CO 

8E 



000000.15 02 



K CEN GK Bt* 

K CTL CM CTL(SECP),0.Q($14) ,C.C($2) 



5 * 
i* 

1 * 
£* 
c« 

IC* 



*««««***»* top TEST FOR SEOP CJL OP __******_■** * 

CALLING' SEQUENCE"** S IC ,K SEOP R*B7 K"k" ECP~~ 



221476. CC 
221476.40 
221477. CO 



000036.13 02 
221512.40 80 
221505.10 CO 



K KEOP LCI,5,KREP 
I KEOP SICKKRET 

B,KIORFJ 



-ISSUE COMMAND 



LG000120 

LG000121 

LG000122 

LG00012J3 ° 

LG000124" 
"LG00012V 

LG000126 

LG000127 

LG000128 

LG000128 
"LG000129" 

LG666129" 

LG000130 

LG000131 

LG000132 

L GO 00 13 3 
"LG000134" 

LG000135 

LG000136 

LG000137 

LG000138 

LG000139 
"LG000140" 

LGC00141 

LG000142 

LG000143 

LG000144 

LG000145 

LG000146 



11* 22 14 7 7. 4C 

12* 2215CC.CC 

12* 2215CC.4C 

14* 221501.00 

15* 221501.40 

16* 22 1502. CC 

I1*_22_15C_2_._4_0_ 

16* 221503.40 

IS* 221504. OC 

2C* 

21* 

22* 

21* 

2t* 

25* 
2t* 
21* 
26* 
2S * 



,221500.4 3 
22152 5." 10 
221274. 10 
221502.50 
221274.10 
221502. IC 

„CC_CC_1 1 .7 7 
221476.52 
221274. IC 



CI 
CO 
CO 
CO 
CO 
CO 
80 
48 
CO 



LVI,l,$+l-0 
"B, J "SEOP t 
B f K SOS 
B,RK3 
B f K SOS 
K SEOP R B.$ 



•CHECK TERMINATION 

-EPGK - GIVE UP 

-EE - IMPOSSIBLE 
-EOP 



221274.34 00 



RK3 



BZB,$R.63,K SOS 
CB» 5,Z KEOP" 
B,K SCS 

*««*«**«*****«****** K 1/0 REJECT »*****»*»****«•*»«**» 

"CALL INC "_ SEQUENCE " "* *^ L xVC",T/~0" "COW A"ND 

SIC'tK K ~RET*B,K IC RE J 



221504.40 
221505. CC 
221505^40 
22 1506. CO 



000000.30 GO 

C0CC36.C3 02 

_2215_C6_.C1_ 10 

CCC0CC.CC+ 0~C0 



CGCCOO OGCCOC 



CNOP 
K 10 REJ LCI ,1,K REP 
SX,0,S.32 

XW,.C 



-ISSUE COMMAND 



i 81 

i 

61 



3C* 
31* 
32* 
33* 

34* 



221507.00 
221507.40 
221510.00 
221510.40 
221511.00 



221510.43 
221506. C2 
221300. 10 
221505.03 
221512.43 



44 
48 
00 
01 
C4 



BZEKJZ,$+1.32 
CB, 1, $-1.32 
B,K REJT 
LVItlfK IC REJ 
BZUNRJZtK K RET 



IF REPEATED EKJ, GIVE UP 



LG000147 
LG000148 
LG000148 
LG000149 

LG000150 



20 

19 
18 
17 
16 

15 
H 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



3J_* 

"36*' 
37* 
36* 
3S* 
4C* 



221511. 4C 
221512. CC" 
221512.40 
221513.00 
221513.40 



221325.43 CO 
221314.10 GO 

221512.44 44 
221313.43 DO 
221275. 5C CO 



K K RET 



S _ V _ A lIl* ^^ R 

B,K UNR 
6ZCBJZ,$ 
$VA,1,K CBJ R 
B,K CBJ 



-RETURN 



LG000151 
LG0C0151 
LG000152 
LG000153 
LG000153 
LG000154 



41* 
47* 
42* 
44* 
45* 
46* 



LG000155 
LG000156 
LG000157 
LG000158 
LG000159 
LG000J.6O 
"LGCC0161" 
"LG000162" 



***** BACKSPACE ROUTINE***** 

LINKAGE....SICJBSPX 
B,JBSPE 



4 6* 



221514.CC 
221514.40" 



_ c _ _ Cl _ c _0_3^3 3_C2 
22152"4.CC 10 



JBSPE 



LCI t $13,3.0 

Ix, SO, JBSPC~ 



-BSP CCMMAND 



wai 



1ime clock ccc54ca1 punid 11d11mcp card id lg00016a cist. oh 3/c1 
"line locVTicn binary output NA~mT statement" 



3/01 



PAGE NUMBER 192 
L C C A T"l CN 221 51 5 



1* 
2 * 
2 * 

L * 

I * 



221515. GC 
221515. AO 
221516. CC 
22 15 16. AC 
2 2 15 17. CC 



221512. AC 80 
2215C5.10 CO 
221517. C3 CI 
221525. 10C0 
22 1520.50 00 



SICKKRET 

B.KIOREJ 
Lv/I,$l, $+1.0 

B,_JSEGPT__ 
B, J8SPX 



-TO REJECT ROUTINE 

-TC SECP TEST 

- E P G K " I F ~ A T~ L C A 0~ VoYnY 



LG00016A 
LG000165 
LG000166 
LG00016 7 
LG000168~ 



t * 
1 * 
t* 
S* 
1C* 



221517. AC 
22152C.C0 
22152C.AC 
221521.00 
221522. CC 



221521. 10 
COC000.3C 
221520.50 
C0CC11.77 
22151A.72 



00 
CO 
00 

ao 

A3 



221274. 3A 00 



tit JeSPX+.32 
NCP 
JBSPX B,$ 

8ZB,$R+C.63,K SOS 
__ CB,_$13, JBSPE+j.32 



-UK NOT ACCEPTABLE 
-EE OK 
-NORMAL EXIT 

-BR. IF UK ALCNE 
-REISSUE IF UK ALCNE 



TO SETUP ERR 



LGG00169 
LG000170 
LG000171 
LGC00172 
LG000173 
LG000174 
LGC00175 
LG000176 
LG000177 
LG000178 
LG000179 
LG000180 
LG000181 
LG000182 
LG00C183 
LG00018A 
LG000185 
LG000186 
LG000187 
LG000188 
LG000189 
LG000190 
LG000191 

"LG000192" 
LG000193" 
LG000194 
LG000195 
LGQ00195 
LG000196 
LG 00019 7" 

"LG000198 
LG000199 
LG000200 
LG000201 
LG000202 
LG000203 

Tgoc620a~ 

LG000205 

LG000206 

LG000207 

EG000208 

LG0C0209" 

LG000210 

LG000211 

LG000212 

LG000213 



LI* 
12* 

12* 
1A* 
IS* 

U* 
li* 



221522_._A_C L _ 
221523. CC 
221523. AC * 

22152A.CC 



_G0_3_A06.35 CI 

217A51.AC 80 

217372.10 00 

COOCOO.CC 8E 000176.15 OC 



_LVI_ L $1A,SREJ 

SICtSDISIC 

B,SCISP 

CNCF 

CTL{SEOP),O.CU1A), ( 



JBSPC 



-TC ERROR CONTROL 



) 176.0 -BSP COMMAND 



16* 
IS* 
2C* 
21* 
22* 



***** TEST FOR ENC CF SEOP I/O bITH ERROR RETURNS ***** 



LINKAGE. ...LVI f $l,$ + l.C 
B, JSECPT 
EPGK RETURN 



BIT 60 CF $R 



22* 
2<* 
25* 
26* 
27* 
2£* 



ck_return _ 

EE RETURN 
NORMAL RETURN 



JJJ 

BIT 



6_1 
62 



CF 
CF 



$R 
$R, 



EOP IN BIT 6 3 



221525. CC 
221525. AC 



00CC36.35 

CCCC_CC.CC 
221531. C3 



02 
8E 
A A 



2215A0.21 00 



J SEOP T CCI,1A,K REP 

CCWiO.C($14) , JKCCh 



Vit 
3C* 

31* 

32* 

32* 
3A* 



221526. AO 
221527. CC 
221527. AC 
22153C.C0 
221530. AO 
221531.00 



_bzekjz, jseopz 
cb,$ia^jse6pt+.32 
lvi,$1a»srej 

SICtSDISIC 

BtSCISP 
6 B , J K C C k + . 2 A , JSECPT 
L (_B U , A ) I J K C C W + . 1 9 
BRZ, 1.32 ($1) 
SICKCRJR 
B f KCLEAR 

L(8U,A),JKCCV«.19 
BB,$R+.6C,0.0($l ) 



221525. 7A 
003406.35 
217A51.A0 
217372.10 
2215A0.3C 



A8 

CI 
80 
CO 
80 



221525. 3A C2 



JSEOPZ 



36* 
37* 
3£* 
3S* 
AC* 



221532. CC 
221533. CO 
221533. AC 
22153A.CC 
221534. AC 
221535. AO 



22 J 5 AC. 2 3 

CCCCC1.7A 

221313, 

221302, 

2215A0, 

CCCC11, 



AC 
5C 
23 
7A 



80 
C3 

80 
CO 
80 

80 



0G4000.2C 50 



•IF EXCHANGE BAD 



-LOOP ON SEOP BIT UNTIL 
■_E PGK f U K t E E , E C P > I J S 
-NEVER HAVE EOP ALONE 
•RELEASE 

-THE CHANNEL 



1/C IS CONE 



OCA000.2C 
CC000C.3A 



5C 
03 



L IF_ EPGK 
•IF UK] 
-MUST ~BE EE 
-COPIED CW 



Alt 
42* 
A3* 
AA* 
A5* 
A6* 



221536. AC 
221537. AC 
2215AC.CC 



__C_0_C0_1_1_«_75._8C 

CO OCC I. 1C CI 

CCCOCC.CC+ COO 



0C0000.7A C3 



000000 OCGOCC 



JKCCfc 



ee,„$_R+.6i 1 .32{ $1 ) 

B, 1.0( $1) 
CWiO 



OR EE,ECP 



***** TRY TC GET A NEb TAPE ***** 



47* 
A€* 
AS* 
5C* 
51* 



LINKAGE, 



, SICJNEM 
E,JNEkTE 



2215A1.C0 



C0CC21.C0 80 221617. C6 AC 



JNEWTE 



Tl f 3f $lt JNEWXR 




wai 



TIME CLOCK 0CC54C41 



PUNID 11C11MCP 



CARD IC LG000215 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 193 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



1* 22154?. CC 

2* 221543. CO 

2* 221543.40 

/«. 991c/,/, /.r 



-- .0 

q rn 



: * 2 2..,-. 
i* 221544. _._ 
_i?_2 2i5A_5_._C0" 
(J* 221546 "" 
221546. 4C 



f* 
1 * 



<* 221546. 4C 
£* 221547. 4C 
9* 22155C.CC 
K*_22_1550.4C 

"lJ* 221 551. CC 
12*221551. 40 " 
12* 221552.00 * 
14* 221553.00 
15* 221553.40 
U* 22 1554. CO 
17* 2215 54.30 
IE* 22 1 555. CO 
IS* 221555. 4C 
2C* 221556. CO 
21* 221556.40 
22* 221557.00^ 

"22* 221563.60*/ 
24* 22 1566.40 
25* 221573. CO 
26* 221600.00 
27* 221600.40 
26* 22160UC0 
29* 22 160 K 40 * 
3C* 221602. CC" 



CCCC00.40 
CCCC10.44 
CCCCCC.42 
221600.34 
12 2156 6." 4 
22~1557.C3 
C00C00.32 
215571. 
21557C, 
CCC1C3, 

ooccoq. 

C COCCI, 
215CC1, 
CCC405, 
217451, 
2 1_1 3 72 . 
215571. 



. CO 
,1C 

,cc 
, cc 

,04 
,35 
,40 

ic 

"CO 



215570.10 
00C1C4.C0 
216242.10 
COCC00.30 



8B 
3C 
82 
C2 

ao" 
ci" 

8A 
80 
CO 
80 

§1 
80 
80 

CI 
80 

QQ 

80 

CO" 

80 

00 

CO 



221614.74 02 



036600. C6 70 



050000.12 FO 



001000. CC FC 



J GETOF 



221554.74 02 



ST*I^ENJ l~_~_ 

BB,SOWNERl$ll), JIT5MC 

LV,$2,SCRLEL{$12) 

LF(EU,3C,6), .34(12) 

BRZiJITSSC 

SF[PUt4CJ tJSPRNO" 
"LVI t Jl7 JLBMES 

CMOCOO(EU,i),S CF 0PU1C) 

SICtSPRIMR 

B,SPRIME 

,USFR 
YC(_11)_ 
", l.C 

BB f SUJPREOJ 

LVI ,$14,SLABNG 

SICSDISIC 



LOCATION 



221542 



-IF MCP UNIT 

-PICK UP REEL 
-IF SCRATCH 
-REEL NO"." 



NAME 



-PUT 
-OUT 



REEL NO. 

ON SPCCL 



IN MESSAGE 



-IF AT PP LEVEL 
-USE ERROR CONTROL 



JPRECJ 



-IF ATMCP 
-USE ABEGJ 



LEVEL 



221350. CC 80 
221335. IC CO 
2216 74.50+ 

22T6 7T.C5" 01 



JLBMES 

Tj^prno" 

JITSSC 



B,_SCISP 

SICTSPRIMR" I 
fi,S~ PRIME" 
, DABECJ 
B.KSUPP 
CNOP 
_{ A*)_DC(_BU»t 1YCUR 

( "a"*)oc(buT7the_" 
{"a*)dd(buj,xxxxx~ 

{ A*)DD(BU), 
SICKCONVR 
B.KCONV 
VF,JREPCU_ 
~LV i ,%2 , JREPSC -SET UP SCRATCH MESSAGE 



-RETURN TO I/A IN MCP 

JOE FAS BEEN [TERM I NATEC BECAUSE * 

1 *??i-_ °A ¥ E C L A°I*_ _*' 

GIVES "REPEATED UNIT CHECK. * 
-COMPUTE CH-UNIT NC. 



LG000215 
LG000216 
LG000217 
L GO 00 21 8 

"L6000219" 
LG000220 
LG000221 
LG000222 
LG000223 
LG000224 
LG000225 
LG000226" 
LG000227 
LG000228 
LG000229 
LG000230 

~L GO 002 31" 

"LG000232 
LGC00233 
LG000234 
LG000235 
LG000236 
LG00 02 37 
LG000233 
LG000239 
LG000240 
LG000241 
LG000242 
LG000243 
LG0C0244" 
LGC00245 
LG000246 
LG000247 
LG00024 8 

AG000249 
LG000250 
LG000251 
LG000252 
LG000253 
LG0C0254 

"LG000255_ 
LG000256 
LG000257 
LG000258 
LG000258 
LG000259 
LGC00260" 
LG000261 
LG000262 
LG000263 
LG000264 
LG000265 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 
33* 
34* 
3 5* 

3 6* 
37* 
3£* 
39* 
4C^» 

4 1* 



2216C2.CC 
221602.40 
2216C3.0C 
221603.40 
221604. CC 
"221604.40/ 
"221605.00" 
221605.40 
221606.00 
221607.00 
22161C.C0 
221610.40" 



221721. CO 
221512.40 
2215C5. 10 
221604.43 
221525.10 
COCO CO. 30 
CO CO CO. "30 
221602. 10 
233666.04 
233666.00 
215470.40 
215470. 10 



10 
80 
CO 
01 
CO 

qo" 
oo~ 
00 

80 
80 
80 
CO 



001000. C6 
001000.12 



70 

FO 



JTAKF LX,$C,JUNLDK 
SlCtKKRET 
B,KICREJ 
LVI, $1, $+1.0 
_B_,_JSECPT 
_l__fi_0_P 
NOP " 
B, JTAKF 

LF{ EU»1) , JIOBSY 
SF(BU, 1), JWAIT 

SIC, scenic 

B,SCCMM 



-UNLOAD COMMAND 



-WAIT FOR TERMINATION 



-TELL OPERATOR WHAT TO CO 



42* 
43* 
44* 
45* 
46* 



221611.CC 
221611.40 
221612.CC 
221612.40 
221613.00 



coocoo.ee 

G00C10.C0 
221325.40 
221321.50 
221617.00 



32 
80 
80 
00 

80 



000021. C6 AC 



, G.CU2) 

,8.0 

SICKUNRR 

B,KKLCCP 

TI, 3, JNE'WXR,$1 



47* 
46* 
49* 
5C* 
51* 
52* 



221614.CC 

221614.40" 

221615.CC 

221615. 4C 

221616.00 

221616.40 



_22JA14. 10 GO 

221350.00 80 

221335.10 CO 
221714. 50+ 

221711.05 01 

221602.10 00 



4MAL_ _b,_$_ 

JITSMC SICKCCNVR 
B,KCCNV 
VF, JRCTCU 
LVI, $2, JREPCT 
B, JTAKF 



wai 



IIME CLOCK CCC54CA1 



PUNID 11D11MCP 



CARD IC LG000267 



CIST. OF 3/ CI 



3/01 



PAGE NUMBER 194 



LINE 



LCCATICN 



BINARY CUTPUr 



KANE 



STATEMENT 



LCCATICN 



221617 



1* 221617.00 * 



GCCCC3.00 



JNEWXR DRZ<N),(3) 



i * 



••••♦ANALYSIS OF I/C INDICATORS FCR WRITE LABEL***** 



LG000267 
LG000268 
LG000269 
LC000270 



LG000271 
LG000272 
LG00C273 
LG000274 
LG000275 
LG000276 



i * 

E* 

c . * 

IC* 



LINKAGE 



SICf JkRITX...B t JWRITL 



221622. CO 

221623.00 
221623.40 



COCC21.00 
221350.00 
221335. 10 



80 
80 
CO 



221730. C6 AC 



J WRITL 



TIi 3,$l t JPREVX 
SICtKCDNVR 

B,KCCNV 



-SET UP CHANNEL 
-UNIT NO. 



AND 



1_* 221624. CC 221704.20+ VF,JINSCU 



LG0C0277 
LGG00278 
LG000279 
LGC00280 
LG000281 
LG000282 



12* 
12» 
1A* 
15* 
It* 



221624.40 
221625.40 
221626. 40 
221627.00 
221627. 4C 



0G0C01. 11 
000001.12 
221721. CO 
221512.40 
2215C5. IC 



8D 
8D 
10 
80 

GO 



221626.74 02 
221644.74 02 



BR,SI0INC($13) , JEPGKF 
BB,SI0IND+.1($13),JRWRIT 
JEPGKF LX,$C,JUNLDK 

SICKKRET 
_B_».KI__EJ 



-IF EPGK 



-UNLOAC THE UNIT 



17f_2 2J.6_3C__.0C_ 
1£* 221630.40 
221631. CO 
221631. 4C 
221632.00 
221632. 4C 



221631. C3 01 



LVl__i,__j, 

fi, JSEOPT 

NOP 

NOP 

B, JEPGKF 

S_IC,SCC_IC 







LGO'002 83 

LG000284 
LG000285 
LG000286 
LG000287 
LG000288 



IS* 
2C* 
21* 
22* 



221525. 10 
CC0CCC.30 
CCCC00.30 
221626.50 
215470.40 



CO 
00 
00 
00 

80 



-INSTRUCT OPERATOR TC 



22* 
2<* 
25* 
2t* 
27* 
2E* 



221633_.CC 
221633.40 
221634. CO 
221634. AC 
221635. CO 
221635.40 



_2_1_5_ __7_0_ ._10 _0_0 
221701.00 80 
CCCC10.CC 80 
221325. 4C 80 
221321.50 00 
C0CC03.07 02 



_B_»_SC_0___ 
, JINSM 
,8.C 

SICKUNRR 
B.KKLOGP 
LCI, $3, 3 



-PUT A RING IN REEL 



0000028? 
LG000290 
LG000291 
LG000292 

LG000293 
LG000294 



JUNRL 



-WAIT FOR UNIT TO 

-BECOME READY 

-SET RD LABEL TALLY 



2 C >* 
3C* 
31* 
32* 

33* 
34* 



221636 .CO 
221636. 4C 
221637.00 
221637.40 
221640. CO 
22164C.4C 



221722.00 10 



JRCLAB 



LX_$0_J_OLK 
SICKKRET 
B,KIOREJ 
LVIt $l f $+1.0 
B, JSEOPT 
NOP 



-READ 
-READ 



COMMAND 
LABEL 



LG000295 

L GO 00296" 

LG000297 

LG000298 

LG000299 

LG000300 



221512.40 
221505. 10 
221640.43 
221525.10 

000000.30 



80 
CO 
01 
CO 

CO 



- WAIT FCR TERMINATION 



V-Jl 

36* 

37* 
3€* 
3S* 
AC* 



221641. CO 
221641.40 
2216A2.CC 
221643.00 
221644.00 



P 0_C_C_CC_._3 C_ 
221661.50 
221724. CC 
000006. CO 
221664.76 



00_ 

o"c 

80 
8C 
CO 



_N OP 

B,JERRD 

LFIBU»3C),JLABIN 
KF(BU,3C)tSSCRPM($12) 
BZAE, JBCLAB 



LG00Q301 
"LG000302 
LG000303 
LG000304 
LG000305 
LG000306 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



036000, 
036000, 



C6 
23 



7C 

10 



-IS THIS THE SAME LABEL 



-IF NOT SZME LABEL 



#*»** ENTER hERE IF ONLY WRITE LABEL REQUIRED ***** 



Al* 

42 * 
42* 
4A* 
45* 
4£* 



2216A4.4C 
221645. CC 
221645.40 
221646.00 
2216A6.4C 
221647. CC 



__0__C0_3 _C 7 
221520.40 
221514.10 
221725.00 
221512.40 
2215C5.1C 



02 
80 
00 

10 
80 
CO 



JA^ALL _ _ A c i_ t $ 3 1 3 

JBACKT SICJBSPX 



-PREPARE 
-BSP THE 



TO REWRITE 

TAPE 



LABEL 



JTRYLG 



B, JBSPF 

LX,$0,JERGK 

SICKKRET 

B.KIOREJ 



-ERASE LONG GAP 



47*_2216A7_._AC 

4£* 221650. CO 
4S* 22165C.4C * 
5C* 221651. CO 



2_2_16_50._4 3_01 
221525. IC CO 
C0CCC0.30 00 
C0C0C0.3C 00 



LVI__1__+1_0 
8, JSEOPT 
NOP 
NOP 



LG000307 
"LG000308" 
LG000309 
LG000310 
LG000311 
LG00C3 12 
LGC00313" 
LG000314 
LG000315 
LG000316 



wai 



1 IME CLOCK 0GC54C41 
L I N t " L 6 C VtTc V 



PUNIC 11C11MCP CARD ID LG000318 CIST. CF 3/C1 
'"BINARY" C U t P U~T N _ AM E S T A 7 t M EN t 



3/01 



PAGE NUMBER 195 
L OC A TTc"n" " "221651 



1* 221651. 4C 

2* 221652. CC 

2* 221652.40 

** 221653. CC 



221646. 1C 00 

221201. CI BO 

221727. CI 30 

221726. CC 10 



B f JTRYLG 
LVE,0,RV4 

SV,C,J WKCM+1. 
LX, SC, JWKCM 



-REWRITE LABEL 



LG000318 
LG000319 
LG000319 
LG000320 



6 
0! 
11 
Zl 
£1 

51 

a 



t* 
I* 

1 * 
I* 
S» 

11* 



22 16 5_3_._4_0_ 
22 16 54. CO 
221654. 4C 
221655. CC 
221655.40 
22 16 56. CO 
221656. 4C 



221512.40 80 



2215C5. 1C 
221655.43 
221525.10 

C0CCC0.30 
C0CCC0.30 



CO 
CI 
CO 
CO 
CO 



221660. 5C CO 



SIC.KKRET 
~8,KTCREj" 

LVI ,$1,$+1.0 

8.JSE0PT 

NOP 

NOP 
~R, JWTERR 



LG00C321 
"LG000322 
LG000323 
LG000324 
LG000325 
LG000326 
LG000 32 7" 
LG000328 
LG000329 
LG000330 
LG000331 
LG000332 
L GO 00 3 33 
"LG000334 
LG000335 
LG000336 
LG000337 
LG000338 
LG000339" 
LG0CG340" 
LG000341 
LG000342 
LG000343 
LGCCG344 
LG000345" 
LG000346 
LG000347 
LG000348 
LG000349 
LG000350 
XG00q351 
"LG0C03 52" 
LG000353 
LG000354 
LG000355 
LG000 3 56 
~LG00035r 
LGGC0358 
LG000359 
LG000360 
LG000361 
LG000362 



12* 
12* 
14* 
15* 
1C* 



221657. CC 
22166C.CC 
22166C.40 
221661. CC 
221661. 4C 



221730. CC 
221660.10 
221645. C6 
221663.10 
221520. 4C 



80 
CO 
48 
CO 
80 



000021. C6 AC 



TI ,2, JPREVX, $1 
JWRITX Bt$ 
JWTERR CB,$3,JBACKT 

B t JNEUT 
JERRD SICtJBSPX 



-NORMAL RETLRN 
-TRY AGAIN 
-BACKSPACE THE TAPE 



17* 
IE* 
IS* 
2C* 
21* 
22* 
21* 



22166_2.C_C_ 
221662. 40 
221663. OC 
221663. 4C 
221664.00 
221664.40 
2 21665. CC 



221514.10 
"2 21636". C 6 
221614. CC 
221541.10 
221634.50 
COCCI 0.4 4 
"CCCCCO.4 2 



CO 

48" 

80 

CO 

GO 

3C 

8 2 



036017. C6 7C 



Bi_JBSPE_ 

CB,4 3,JRCLAB 
JNEUT SICJNEWT 

B.JNEWTE 

B.JLNRL 
JBDLAB L_V,_$2f SCREELJ $12 _}_ 

LF(EU,3C)».34($2), 3C" 



-TRY TC GET A NEW TAPE 

-TRY AGAIN 
-IS IT A SCRATCH TAPE 
-CURRENT REEL NAME" 



2** 
25* 
26* 
27* 
2E* 
2S * 



221666 
221667, 
221667, 
22167C 



CC 
CC 
40 
4C 



C0CCCC.40 
221663.34 
C0CC06.00 
221644.50 



8B 
CO 

ac 

CO 



221667.74 02 



036000.12 FO 



BB,SGWNER($11) ,$+1.32 
BZRZ, JNEUT 

SF(EU,3C),SSCRPM{$12) 
B,JRWRIT 

CNOP 



-IF NOT A SCRATCH TAPE 
-AND IN UAT 
-GO TC REWRITE LABEL 

- 8 WORD MESSAGE 



221671. CC 



J R E P S C 
JREPCU 

JINSM 
JINSCU 



( IOS«)CD(BUJ» REPLACE THt REEL ON CHANNEL * 



3C* 221674. 5C * 

31* 

32* 221701.00 

33* 221704.20 

34* 



( IQS*)DC(BU),XX LNIT X 

CNOP 

( IQS*)DC(BU) , INSERT A 

{ IQS*)0C(6U),XX LNIT X 

CNCF 



WITH A SCRATCH TAPE, 

- 8 WORD MESSAGE 
RING ON CHANNEL * 
AND READY THE UNIT. 

- fi WORD MESSAGE 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 

5 

4 

3 

2 
1 



36* 
37* 
36* 
39* 
4C* 



221711. CC 
221714.50" 

221721. CC 
221722. CC 
221723. CO 



CCCCCC.CC 8E 

000000. CO 8£ 

221724.00+ COO 



0C0137.15 OC 

221723.11 00 

C0C001 CCCOCO 



JREPCT ■__ (I Q_S*.) OC ( BU ) , REPLACE THE REEL Oh [CHANNEL *_ 
JRCTCU ( l"QS«)"CC(~8U)f XX'CNIT X WITH APPROPRIATE MCP REEL* 

CNOP 
JUNLDK CTL(SECP),0.0( $14), (8)137.0 -UNLOAD COMMAND 
JRDLK RD( SE0P),C.C($14) ,$+1.0 -READ LABEL COMMAND 

CW, $+l.C, l.C 



41* 221724.00 
42* 221725~.CC" 
42* 221726. CC 
44**221727. CO 
45* 221730.00 
46* 



C C CO CC .0 + C 00 
CCCCCO. C08E 
COCCCO.CO 8E 

CCCCC6.C0+ COO 
C0CC03.CC 



COCOOO OCCCCC 
000056.15 CC 
221727.13 00 

COCOOl OCCOOO 



J LAB IN XW,C 

J ERGK C TL ( S EOF ) , . C ( $ 14 ) , { 8 ) 56 . C 

JWKOM W(SEQP) ,0.0($14),$+1.C 

CW,SSCRPM($12),1.C 
JPREVX DRZ(N),{3) 



•LABEL SLOT 



-WRITE LABEL CGMMAND 



-FOR INDEX REGISTERS 



wai 



1 IME CLOCK 0C054C41 
LINE L C A Tl N 



pumd 11d11mcp card id lhccgoci cist. cf 3/c1 
einary'cutpuT" name~ "statement" 



3/01 



PAGE NUMBER 196 
L C ATI c n 



1* 

2 * 
2 * 

** 221733.00 



222C17.44 30 



—****»«****««*** UNLOAD a**************— LH000002 

- **«#««#»#****#«****##»**#*##»#**»»*****»#»##***»**«»****«**»*»****»*** LH000003 
K UNLCD LV,2 t K UL MES __ LH000004 



9 
9 
L 

8 
6 
01 
[1 

zi 

£1 
</[ 
9\ 
91 
Z! 
81 
61 
OS 



r * 

~t* 

i * 
E* 
S* 

1C* 



2 2 17 3 3. 4 _C_ 
221733.40 
221734.40 
221735. CO 
221736. CO 
221736.40 



SLC,t 

CMlllKBt, ll iSMGLNTUll) 

LVI,5,K UNL M 

BB.S CWNER{$11),2 UNLC1 

LVI,7,Z UNL C2 

SICiZ 1C09X 



LH000003 
LH000006 
LH000007 
LH000008 
LH000009 
LH000010 



C0CC00.63 
222C01. 13 
CCCC00.40 
222C11.17 
221045. CO 



8B 
01 
86 
CI 

ao 



0010CC.36 FG 



221740.34 02 



11* -221737. 00 
12* 221737. ~4C 
22174C.CC 
221741.00 
221741.40 
2_2_17_4 2_._C_C_ 
221742. 4C 



_2_2_1_042.__C 
221741. 1C 
221C62 
C0CC11 
C0CC10 
COCCCO 



CO 
80 
01 
3C 
39 
42 



B,_Z IQC9 -CONVtRT_ NAME 

B,Z UNL 03 

TI, 1,1 ID16,Z UNL02 

LVI.7,9. 

LV,9 f S C REEL($12) 

LV, _,0.C_$9) 

BXVZtKCLSTM -IF 



LHOOQOlp 
LF0Q0011 
LH000012 
LH000013 
LH000014 
LHOOOOlt) 
LH0C0016 



12* 
14* 
15* 
It* 
17* 



CC 
17 
62 
2C 



222011. C2 AO 



Z 
Z 

K 



UNL01 
UNLC3 
F UNLD 



221766.71 



-ADCR CF _NEXT_ RELL_ NAME 
SCRATCH NEEDED 



IE* 
19* 
2C* 
21* 
22* 



221743. CC 
221744. CO 
221744. 4C 
221745.40 
221746. 40 



C0CC00.42 
221775.34 
222C15.CC 
222C07.10 
221747.77 



88 
C2 
80 
8 
01 



036600. C6 70 



K RITE T 



222006.04 

050000.12 



AC 
FO 



22* 221747. CC 



_2_3_C.5_66_._1_C CO 

2220C7.1C+ 

CCC0C5 

2220C7.10+ 

COOCOO. 32 88 
C0CC12.17 01 



LFIRU,3C,6),.34($8) 

BRZ,KKTAPE 

TI,2,K EX TAP,K REEL N 

SF(BU,40),KREELN+.72 

LV_,15t $+1. 0_ 

8,S A8 1CS 



-IF NOT, GET NEW REEL NC 



LH000017 
LH000018 
LH000019 
LH00002C 
LH000021 



________ 

LF000022 
LF.0C0023 
LH000024 
LH000025 
LH000026 



2«* 221747. 4C 

2i* 22175C.CC 

26* 221750.40 

27* 221751.00 

2fc* 221752. CC 



221752.74 OC 



K UNLD1 



VF,K REEL N+.72 

CF,5 

VF,K REEL N+.72 

BZB,.26($8) , $+1.32 

LVI ,7, 1C. 



-TEST IF PROTECTED 

-FILE PROTECT MESSAGE LENGTH 



2_* 
3C* 
31* 
32* 
32* 
34* 



221752.40 
221753.00 
221753.40 
221754. CC 
221754.40 
221755. CC 



221754. C5 30 



SV,2,$+1.32 

SICK CCNV R 

B,K CCNV 

VF,C.O 

CNOP 

_L_X_,_C ,_$+ 1 _0 
_S__.»__»_S I0;INS__12) 

UNLCAO( SE0P),C.C($14~ 

L V I , 1 , $ + 1 . 

B,M IC REJ 

SICK ECP R 

3,K SHOP T 



LHC00027 
LH000028 
LH000028 
LH000029 
LH00003G 
LH0G0031 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



221350. CO 80 
221335.10 GO 
CCOOCC.CC+ 

COCCCO. 30 00 
221756. CO 10 



___ 
36* 
37* 
36* 
3S* 
4C* 



221755. 4C 
221756. CC" 
221757. CO 
221757.40 
221760. CC 
22176C.4C 



C C C C_0_t_._C 1 

coccoo.cc" 

221760. C3 
221261.10 
221354. 4C 
221350. 5C 



1Q. 

at 

ci 

CO 
8 
CO 



000137.15 00 



K FIRE 



LH000031 

LH000032" 

LH000033 

LH000033 

LH000034 

LH000034 



____ 
42* 
42* 
44* 
45* 
4£* 



221761. CO 
221761.40 
221762. CC 
221762. 4C 
221763. CO 
221764. GO 



47* 

4_* 



22176_5_.0C 
221766. CC 



_2_1J5 4 7 . 40 

215470.10 

GOCGCO 

COCCOO 

C0CC01 
_C_C_C_C_C 1 

cccco"i 



CC 
CO 
34 

_Q 

77 



216242. 10 



80 
00 
85 
87 

30 
8C 
8C 
CO 



032C00.2C 50 
32000.20 DC 
0C1000.C0 FC 



SICS COMIC 
B,S CCMM 

»0.C( %5) 
,0.C<$7) 
L(BU,26),$TC 
ST f S RMTCU12) 



K NEW 



___CM0C00, S RMINCJ i_12_ 
TP B»K SUPP 



-SET TIME FOR REMINDER MESSAGE 
-CLEAR~ 1 ND I C AT C~R~ " 



LH000035 

LH000035" 

LH000036 

LH000037 

LH000038 

LH 0000 3 9 

LH000040~ 

LH000041 



wai 



1 IME CLOCK GC05ACA1 



PUNID L 1D1 1NCP 



CARD IC LH000CA3 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 197 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



221766 



1* 221766. AC 

2* 221767. AC 

2* 221770.00 

4* 2 2 17 70. AC 

5* 221 771. CC 

'ۥ 22 177 I.AC 

5* 221772.00 

€* 221772. AC 

c* 221773. AO 

1C« 22177A.CC 



OOCCOO.AC 
C0CC00.23 
221742. 10 
215C12..6G 
~2J_52 2 5.2C 
221777.72 
CCCC00.21 
215012. AC 
000000.22 
CCCCG0.33 



8B 221770. 7A 00 KCUSTM 8Z3 , SOWNER ( $1 1 ) , KKUS TM 



39 

CO 
3C 

59 

AO" 
3 9 
80 

oa 

88 0C10C0.36 FO 



022000.22 EC 



SV,$9,0.0($9) 
BtKFUNLC.32 
_KKUSTM LV, 8,SMARK 

~K V L 8 , S M A X U B~ 
BZXL,K 2 "HUCH " 
SV,8,0.G($91 
M+l(BU f 18)tS MARK 
Z,0.0($8) 
CM111H eu,l),.27($8) 



-CIRCLE MCP TABLE 

■CH ECK " FCrT BOUNDARY CX C I S A A\^A 
-PLACE IT IN NEXT RL SLOT 



LH0000A3 
LH0000A4 
LHO00OA5 
LHC0 00A6_ 
LH0000A7 
LH0000A8 
LH0000A9 
LH000050 
Lh000051 
LH000052 
L HO 000 53" 
LH00005A" 
LH000055 
LH000056 
LH000057 
LF000058 
L HO 00 58" 
"LH000059" 
LH000060 
LH000061 
LH000062 
LH000063 
"LH000064" 
"LH000065" 
LH000066 
LH000067 



U* _?21775. CO 
12* 221776. CC 
12* 221776. AG 
M* 221777. CO 
15* 221777. AO 
16* 222CCC_.CC_ 

17*_2 22CCC.A™0 

It* 

IS* 

2C* 

21* 

22* 

22* ~_ 

2** 222013. CC 

25* 222C15.C0 

26* 222017. AO 



222C13.CC 80 222006. CA AC 



K K TAPL Ti,2,K SCRAC,K REEL N 



221751. 
C0CC11, 
221752. 
C1C006. 
217A51, 



10 
17 
50 
35 
AO 



00 
01 
00 
CI 

ao 



217372.10 00 



222001. CC 
222006. CC 
222011. CO 
222012. CO 



K R ONLY 



K 2 MUCH 



K ONL M 
KREELN 
Z UNL02 



222GCA.00+ 



SCRAC 
EX TAP 
UL MES 



B,K UNLD1 

LVI, 7,9. 

B,K UNLC1+1.32 

lvi,1a,s 2 big 
sic, so is ic 
"b l s "disp _.~~ ""' "'_'_'_ 

~CNOP~ 

( IQSX)CC(BU,6A), REPLACE TAPE 

( IQSX)OD(BU),REEL NO. 123A5 

( IQSX)DC(BU) , X 

( IQSX}CC(BU) , PRGTECTX 
~CNCF_ 

( IQ S X )" D D i E U ♦ 6 A ) , A ~S C R AT CH" TAP E 

{ IQSX)DD(BU,6A) ,REEL NO. 

VF,K UNL M+.192 



ON 



CHANNEL 
JOB X 



32 UNIT 8 WITH 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 



1 IME CLOCK CCC54C41 



PUNIO 11D11MCP 



CARD ID LIOOOOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 198 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



1* 
2* 
2 * 
A* 



— *#*■»#«*#»*•»**#*««#**»***»****#■»*#******#********««•«»**#«•*♦*»**»******* L 1 000001 

— *#*•»#■»««****«*» SEARCH a**************- LI000002 

— »*«#*«**«*«#■»»**«*«***«***##***#«**»***»****»#«#«»»»**«**#»««##**»***» L 1000003 

— _ __ _CALL_SEC__ __ _„LVI»1»0CG _ LI0Q0004 

_ - .. ^^ ^ £RCH L 1000005 



6* 
1 * 
t* 
S» 

1C* 



DCG 

DCG+, 



32 



(NOT FOUND) 
(FOUND) 



222C17.71 

222G20.CC 
222020. 4C 



11* 
12* 

12* 
14* 
15* 
16* 



222C2J.CC 
222C21.4C 
222022. CC 
222022. AC 
222023.00 
222024. CO 



215021.23 CI 
_C0CC00 t 6C_3? 

C0CCC1.6O B9 



K SERCH 



SLCt$ 

LVI,9,S PROG S 

LV,_8,S G K($9) 



LI0C0006 
LI000007 
LI000008 
LI000009 
LIOGOOIO 



V+,8,S C K + 1.0i$9) 



-TOTAL Q K 



CCC0CO.31 43 
CCCC30.2C 50 
215420.21 01 
CCGCC0.23 88 
CCCG10.32 90 



122067. 20 50 



K CLUB 



BXVZ.O.Ct $1) 

LC,8,$8 

LVI,8,S CUE 

L(V+I)(EU,18),.19{$8),-18 

KVt 13, $L 



LI000011 
LI000012 
LIOOOOJ 3 
LI000014 
LI000015 
LI000016 



11* 

u* 

19* 
2C* 
21* 
22* 



2 2_20_2_4_. 4_C_ 

222025. CO 

222025, 

222026, 

222027 

222C27, 



222026.32 C2 



40 

CO 

.CC 

4C 



222023.20 
CCCCCC. 10 

mm .77 

CCCCC1.23 
777777. 55 



48 
01 
88 
C5 
88 



222027.74 00 
123000. 2C 50 



K PACK 



Z PACK 



R*_E,K PACK _ 

CB,8,K CLUB 

B.0.0U1) 

BZB,-.1{$8) ,Z PACK 

V+T,9, l.C 

LJV+I ) (BU,19) t -.19{$8) 



-TEST LEVEL - BR. IF PP 
-PACK CLELE 



LI000p_l_7_ 

L 1000018 

LI000019 

LI000020 

LI000021 

LI000022 



22* 
24* 
25* 
26* 
27* 
2£ * 



222C3C.4C 
222C31.4C 
222032.00 
222C33.C0 
222033.40 
222034.00 



JLOJDCCC )_. .A 6 __8 8 
222C27.60 48 
C0CC00.4C 
222036.60 
215466.21 
C0CC00.31 



.123000. 20_C0_ 
022000.32 BC 



0C0000.74C3 
030000. CC FC 



AT (_V + I H BU, 19 ) , . 3 8 {_$ 8 ) 
CB, 8, $-2.0 

M-HBU, 18), S Q K($9) 
V+,8,K STEP 
SV,8,S CUM C 
BB,S AS($9) ,.32($1) 



L 1000023 
L 10000 24 
LI000025 
LI000026 
LI00002/ 
LI000028 



89 
BO 
30 
89 



-REDUCE G. K 



l c ±t 
3C* 

31* 

32* 

33* 
34* 



222035. CO 

222036.00^ 

222036.40 



A°_Q.QOP_»_C Q. A 9 
CCCCC0.5C 01 

CCC0CC.46- 



CMqCCC(BU,24),C.C{$9) -CLEAR WAIT FJIELO LI000029 

B,.32($l) LI00003G 

K STEP VF, -.38 LI000031 

— *»***«********««*****#*«********#*#**««* #**#******#*#*»**************» {_ 1000032 

— *•»***«***#**■»** L N S T A C K ********•»*»*-»«*— LI000033 

— *************«**«****#***»******^*»******»**^ LI 00 00 34 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



AA* 

36* 
37* 
36* 
3S* 
4C* 



222C37.C0 
222037.40 
222C4C.CC 
22204C.40 
222041.00 
222041. 4C 



215CZI_'JA 
216C10.C3 

215420.21 

000001.46 

222C46.71 

000000.46 



0.1 

01 
01 
39 
42 

69 



K UNSTC 



_41t 
42* 
43* 
44* 
45* 
46* 



222042.00 
222042.40 
222043.40 
222044.40 
222045. CO 
222045.40 



AQ.QC23_-_2 _5 
C0CCOO.23 88 



_LV_Lt_9 L S PROG S 

LVI ,1,K NINTY 

LVI,8,S CUE 

LV,3,S C K+1.0($9) 

BXVZ,K CONT 
_Vt»_3f_S_C K(*?J 

LC,8,$3 



-IS MCP CUE EMPTY 



L 10000 35 
"LI000036" 
LI000037 
LI00003B 
L1000039 
LI000040 



LI000041 

LI000042" 

LI000043 

LI000044 

LI000045 

LI000046 

LI000047" 

L 100004 8 

LI000049 

LI000050 

LI000051 

LICC0052 



C0CC10. 
00CC10, 
222027, 



22 
12 

10 



222042.60 



80 
30 
00 
48 



123066. 60 50 
222045.74 04 



K FLIP LIV + 1 ) (BU,19) ,.19($6),-19 

BZBZ,8.18,K SOSA 

LV, 13, $L 

8,K PACK+l.C 
K SCSA CB,8,K FLIP 



47* 
4£* 
4S* 
5C* 
51* 
52* 



222046_.C0_ 
222C46.4C 
222047.00 
222047. 4C 
222050.40 
222051. CC 



_222C4 6._2G_C0 
C00CC0.6C 59 
216242.30 42 
C0CCC0.23 88 
00C010.32 30 
222C27.5C CO 



K CONT 



122067.20 50 



B£W,$ 

LC,8,S C K($9) 

BXCZ,K SUPP 

L5V + I HBU,18) ,.19($8),-18 

LV, 13, $L 

B f Z PACK 



wai 



TIME CLCCK CC054C41 PUNID 11D11MCP CARD IC LJ000001 
LINE" "LOCATlCN" BINARY - OUTPUT NANfc 



DIST. OF 3/C1 
"STATEMENT 



3/01 



PAGE NUMBER 199 
I CC A T "I "ON 



1* 
2* 

2 * 

A* 
A* 

6* 
( * 
E* 

11* 
12* 
12* 
14* 
15* 
16* 



2 2 2051 
2 2 2051 
222052 
222C52 
222053 
222C53 
222054 
222054 
222055 
222G55 
222C56 
222056 
222057 



".AC 
.CO 
.40 
.OC 
.4C 
.C_0_ 

•\°_ 
7c c 

.40 
.00 
.40 

.00 



C0C416. 
222 C56. 
C0C417. 
222C56. 
C0CC16. 
222C56. 

cocci?. 

222056. 
C0C116. 
CCCCOO. 
215265. 

C0CCC5. 



CI 

10 
01 
IC 
CI 
10 
01 
10 
01 
45 
05 
41 



CI 

CO" 

CI 

CO 

01 

CO 

CI 

CO 

01 

OD 

30 

3C 



SLC,| 

B,B TF 
LVIt 0, 
8,B TF 
LVIfB 
B, BTF 
"LVIfB 
"B,~R TF 
L V I , B 
V-I,2, 
SV,2,S 
SV,C, S 



B RLF R 

B KLN R 
B TFCK 



*««*«*«**-»««*« 

XA,l4.G~(".9)T 

OK 

15.1 .9)1 

CK 

XA, 14.0 

OK 

XA, 15.0__" 

OK 

XA,78.C 

.32 

TIC 

CTL 0P($12) 



UNIT LIGHTS a******************— 



-SAVE TAPE 
-BRANCH TC 



INDICATOR OFF CODE 
I R t F N EVA L U AT 10 N 



-SAVE RESERVED LIGHT OFF CODE 
-BRANCH TC 10 REF NO EVALUATION 
-S A V L : " R £ SE R VE p_ L 1 G__T_ "0N~ J3CJD E 
-BRANCH" TO 10 RCF~ NO EVALUAT ION 
-SAVE CHECK LIGHT CN CODE 



-CTL OP CODE TO U_NIT AREA _ 
-INITIALIZE RT_ EFFECTIVE _ADDR 
-TEST FOR TAPE" INDIC AT OR 
-IF NOT TAPE INDICATOR TO B RONK 
-TEST IF TAPE 

NOT TAPE TO ERROR ROUTINE 



LJ000001 

LJ000002 

LJ000003 

LJ000004_ 

LJ000005 

L JO 0000 6 

LJ000007 

LJ000008 

LJ000009 

LJOOOOiO 

LJ000011 

L JO 000 12 

LJ000013 

LJ000014 

LJOOOOlb 

LJC00016 



17* 

le* 

1<9* 
2C* 
21* 
22* 
22* 
~2l* 
25* 
26* 
27* 
2fc* 
2S * 



22 2 0_5 7 
2 2 206C 
222060 
222061 
222061 
222C62 
222063 
222063 



.4 
. CO 
.40 
.CC 
.40 
.OC 
• CO 
.4C 



222 C 6 5. 41 

C0C400.C1 

222070 

COCC04 

22CC64 

ccccco 

22CC47" 



CO 
04 
42 
C4 
CO 
8R 
~8C 
CO 

10 

IC 

BE 

"01 



SVA 
KVI 
BXL 
KVI 
BZX 
BZR 
SIC 

" a ,"k" 
cno 

LX, 

SX, 

CTL 

~L~ V I 



,0, 

tfl 
,B 
,4, 
E,K 

1>A 

fK 

LO 
P 

0,$ 
C,S 

,c. 
fit 



B 4CTL+.32 
XA,C.C( .9)1 
RONK 
4.C 

ILEGL 

_S_L__11),B 4CTL-1.C 
LCCTD 
CAT" - SELECT ' T H E "U N I T 

+ 1.0 
10 INSU12) 

C_$14)_C.O 

$+1.6" """ 



LJ000017 
LJ000018 
LJ000019 
LJ000020 
LJCC0021 
LJ000022 

"LJ000023" 
LJOQ6623 
LJ000024 
LJ000025 
LJ00002i» 
LJ000026 

"LJ000027" 



12 
11 
32 

47 
CO 



-IF 



222064.34 04 



222C64.CC 
222064.40 * 
222065. CC 
222066. CC" 



220C33.5C 

222C65.C0 
C0CC04.C1 
_C_0_CCC_0_.CC 
222C67.C3 



OCO0OC.C5 OC 



B 4CTL 



20 
19 
18 
17 
16 
15 
14 
13 
12 



3C* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
3€* 



222C66.40 

222067.00 

222C7C 

22207C 

222071. 

222071" 

222072" 



,CC 

40 

.CC 

,4C" 

ice' 



222072.40 

00C02C.0C+ 



221261. 10 
C0CG0C.32 
216242. IC 
000000.51 
22 CC 64. 32 
_C_C0C04_._1_1 
22 0064.32 
222C64. 10 
+0CC000C0 



CO 
8A 
00 
04 
C2 
C_4_ 
"C2 
CO 



001000.36 FC 



B RONK 



BUtlOCIC E XA 



B,M 
CM1 
B,K 
KVI 
B X E 
KV_I 
BXE" 
BtB 
SYN 



IC 
111 

SU 
t4, 

fK 

*A*. 

»K 

4C 
, £X 



REJ 
,S CH 0P($1C) 
PP 
.32 

ILEGL 

4;c_ 

ILEGL 
TL-l.C 

C 



-IF DISK, ERROR 
-IF Ta~PE,~ ERROR 



LJ000027 
LJ000028 
LJ000029 
LJ000030 
LJ0000 31 
"LJOOOO 32 
L JO 00 3 3 
LJ000034 
LJ000035 



10 
9 
8 
7 

6 
5 
4 
3 
2 
1 



wai 



TIME CLCCK CCC54C41 PUNID 11C11MCP CARD ID LKCOCOCl DIST. GF 3/C1 3/01 PAGE NUMBER 200 

!lIn!I"lccajjcX""""""bin^ II""I"IIII~"IIccatjcn ------- --------------------^ 

]* — *****»«**»««* ** « «*****-**«*«** *** «»**»*»***»***■»** «•**«*****#*»*»»****** LK000001 

2* — »*#****•*»**»*#****** SOUND GO IMG ***************************** LKO 00002 

2 * — **«*********«*«**«****»«*»**«»»*********»**#*»***»»******««***«*»**#** LK0C0003 



i* 



LK0000G4 



'*_222C73.00 _«__ _^LC,$ _ _ __ __LK0p0005 

~ r f 222C73.CC" 00CCCC.45 CO" V GONG V-I,2,.22 LKOO00O~6~ 

7* 222C73.4C 215265.05 30 SV,2,S TIC LK000006 

£* 222074. OC C0CCC1.11 04 KVI,4,1.0 -IS EQUIPMENT CONSOLE LK000007 

S* 222074.40 22CC64.32 CO BZX£,K ILEGL LK000008 

lC*_222p75_.0_C_ 000000.47 8B 222077.34 04 BZBZ^S SELj $_ll_)_ f V» G CTL-1.0 -CHECK IFLCCATE NEEDED „LKQ00009 

il?_222076.0_C __2_2_Cl_C_5._4C_8p _ __S IC iK_C_LCC_R_ LKOOOOIO 

12* 222C76.4C 22C1C0.5C 00 B,K G LGC LKOOOOIO 

12* CNCF LK000011 

14* 222C77.CC 222100. CO 10 LX,C,$+1.C LK000012 

15* 222C77.40 00CCC4.C1 1C SX,C,S IG INSl $12) LK000012 

H?_2221Cp_.00_ CO_CCCO._CC 8E__pppl77.C_5_.pC__ >_ G L CTL _GONG T C . C( $ 14 ) _ LKppOOlJ 

17*_22_2_1Q1_.C_C_ 2_2_21_C_2_._C3 CI _L_I ill *_1_0 __ _ _ _ __ __ LK000014 

16* 2221C1.4C 221261. 1C CO B,M IC REJ LK0C0014 

1^* 2221C2.C0 CCCCC0.74 8B 001000.36 FO CM 1 1 1 11 BU , 1 ) , S CTLU11) LK000015 

2C* 222103.00 C0C261.01 01 LVI, 0,177. LK000016 

21* 222103. 4C C0CC05.41 3C SV,C,S CTL 0P($12) LK000016 

2<*_222_G4_.CC 216242. IC CO B,K SUPP LK000017 



20 
19 

i 18 
17 
16 

( 15 
14 
13 

( « 

11 

10 

8 

7 

( « 

5 

4 

2 

1 



wai 



time clcck 0cc54c41 punid 11c11mcp card id macogq01 dist. of 3/c1 
TIne ldcatIcn eTna^y" output" " We statement"" 



3/01 



PAGE NUMBER 201 
LOCATION 



1« 
2 * 

2 * 

L * 



**»«******♦ CUTPLT PROGRAM ********** 



2 221 04. 40 
2 2 2 1C_5_. CO 
222105. 17 

222105.55 
222106.00 
2 22 1U. 00 
222111.17 



CCCCGC.30 CO 
~C"CCCC0.36~ 

0CCCC3.CC 



CNOP 

~D D_BU , 15, 8 ) , { 8 ) 140 12 
~ORZ(BU, 3 0,8) , l" 

bXT(0tl8) 

3.CSTART 

DRZ(N),3 

ODt EU, 15,8) , (8) 14012 



MA000001 
MA000002 
MA000003 
MA0G0004 

"MAOOOOGjT 

"MAO 0000 6 
MA000007 
MA000007 
MA000008 
MA000009 
MA000010 
MAOOOOll" 
MA000011 
MA000012 
MA000013 
MAG00014 
MA000015 

~MA000015" 
MA000016 
MA000017 
MAG00018 
MA00Q019 
MA0C0019" 
MAOOOOZO" 
MA000021 
MA000022 
MA000023 
MA0Q0024 

>;A000025 
MA000026" 
MA0C0027 
MA000028 
MA000029 
MA000030 
MAO 00031 
MAC00031" 
MA000032 
MA000033 
MA000034 
MA000035 
MA000036_ 

"MA000037 
MA000038 
MA000039 
MA000040 
MA000041 

"MA000042" 

"MAO 00043 
MA000044 
MA000045 
MA000046 
MA000047 
MA00004_f 
MA000049 
MA000050 
MA000051 



6* 
1* 
t* 
c . * 
_IC* 

n* 

12* 
12* 

14* 
15* 

\i* 
Al* 

it * 

is* 

2C* 
21* 
22* 
22* 
2k* 
25* 
26* 
2 7* 

2t * 

2 9* 

~3C* 
31* 
32* 
33* 
34* 
35 * 

"36"* 
37* 
3E* 
3S* 
4C * 

Al* 

42* 

43 * 

44* 

45* 

46* 

47* 

48*" 

49* 

5C* 

51* 

52* 

52* 

5A*~ 

55* 

56* 



14012 SCSPRT 



0444457 



14012 SASPUT 



-TENTACLE TABLE FOR SPR 



TENTACLE TABLE FOR SPU 



C0CC00.36 



DRZ(BU,30,8J_, 1 

EXT (6, 18) 

B.ASPUC 

DRZ{N),3 

DC( BU,4,8),1 

0RZU1U f^l,8) ,1 

~EXTlO,18J_ 
P-.AEOJ 
DRZ(N) ,2 
D0(BU,4 f 8), 1 
DRZ{BU,41,8) , 1 
tXT_q_l8)_ 
E[,"C_RY 
DR"z"(N),2" 

CMOCOO(QUt 1 ) ,AEOJI 
U,9,$7,CXR7 
LVE,AX,SASPUT+3. 
LC,_AX,SASPUT + 3.32 
ZtJl ' ~ 

L(BU, 18),SASPUt+3. 
*I(BU,6), 15,20 
BB, SASPUT. 4,RN0CHK- 
LF{BU,64),$L,64 
BZRZ,ACHERR 



222111.55 
222112.00 
222115. CC 
222115. C4 



0444246 



222115 
222116 
222120, 
222120, 



55 

CC 
CO 
C4 



22212C_.55_ 
222121. CC * 
222123. CC 
222124.00 
222125. CC 
222125.40 

22 2126.00" 

222126. 4C~" 

222127.40 

222130.40 

222131.40 

222132.40 

222133. CC 

222133.40 

222134.00 

222134. 4C 

222135_C0 

222135.40 __" 

222136~.CC •" 

222137.00 

22214C.00 

222141.00 

222141.40 

222142.00 

222142.40 

222143.00 

222143.40 

222144.00 

2 22145.00 _ 

2 22J.46_._C_C __ 

222146. 40 

222147.00 

222150.00 



CCCC03.00 

_c_ccccg__i. 

OO0CC2.CC 
CGCCC0.51 



CCCCC2.C0 
223744.14 
GCCC27.C0 
222114.25 
222114.64 
"CCCC2 7. 22 



CI SAEGJT 



-TENTACLE TABLE FOR EOJ 



0444350 



01 SCORYT 



-TENTACLE TABLE FOR -CUTPUT- 



G45C070 



222114. 4C 
17CC00.C0 
222111.04 
CCCG10.00 
222223.34 



80 

80 
BO 
50 
"00 ' 
"8 
80 
80 
80 
CO 



001000. CC 
223753.22 



FO 
AC 



ASPUO 



-TURN OFF EGJ INDICATOR 

-EFFECTIVE ADDRESS FROM 
-NUMBER OF CARDS TO TRANSMIT 



TENTACLE TBLE 



02202 7. 2C 
406012.21 
222134.34 
000040.06 



50 
90 
02 
70 



32,46 



222222.40 
22 2217. 10 
223257.22 

223256.20 

CCCCCC.25 



8_0_ 
00 
10 

10 
CA 



S_IC_ ,_ACFKBR 
B, ACHK " 
RNOCHK LX,AY,ACWA- 
- CF CONTAINS NUMBER 

LX, AZ,AXWZ 
AACS1 KCIfAXtO 



20 
19 
IB 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
t 
5 
4 
3 
2 



VF INDICATES AVAILABLE PUNCH BUFFER, AACX 
OF FULL WORDS AVAILABLE IN PUNCH BUFFER 

-CF CONTAINS 15,=0F FULL WORDS PER CARC 
-DOES PP WANT MERE CARDS PUNCHED 



IM 



_ 2 _ 2 _ 2 _ 1 A 3 _-_I2 
223743. CI 
000001.00 
CCCCG1.C0 
222137.20 
000001.25 



C2 

80 
8A 
89 
4C 

08 



222147.34 02 
100000.20 50 
1C0000.2G DO 



AACS7 



_BX[_____S2_ -NO,SA_V_E _I_NDEX_AY_A HD RETURN T_0__PP 

3B, ABTA,AA0S3 """ ""-IS BUFFER T AVAILABLE 
L(8U,64,8){ V+I) t l. (AX) -TRANSMIT ONE WORD FROM PP 

ST(BU,64,8)<V+I) ,1.(AY) -TO BUFFER T DISREGARDING WORD 80UNDA 
CBR,AZ,AA0S7 -REPEAT LOOP TILL 1 CARD IMAGE HAS BEEN TR 
C-I,AX,1 -REDUCE NNO. CF CARDS TO RANSMIT BY ONE. 



C_0_C_C_17_23_08 C L - I L AV ' 1 15 _ _-_R_EC_U_CE „NUMB E R OF WRDS AVAIL IN BUFFER BY 1 

42 

CO 
10 

80 

80 



222162. 
222135. 
223257. 
223744. 
223753, 



30 
10 
23 
10 

CO 



222223.34 06 



AAGS2 
ARET 



8XCZ,AACS4 
B,AA0S1 
SX, AY,ACWA 
B8Z.APPERR, ACHERR 



-IS BUFFER T FULL 

-NO-TRY TO TRANSMIT ANOTHER CARD 

-SAVE TRANSMISSION INDEX 



GOO 2 7 .2 2 AC TI,<3,CXR7,$7 



C0CC40.1C 

~G0CC41~CG 

223744.07 

222137.37 



CO 
80 
80 
01 



_A_RET1_ B ______ 

, $RET 
AAGS3 BB, ABWA,AAQS7 



222136.34 02 



1. -IS BUFFER W UNAVAILABLE ALSO 
LVI,$15,AAOS7 -SWITCH LOGICAL BUFFERS + RET TO TRANSMIT 



wai 



1 IME CLCCK CCC54C41 



PLNID 11C11MCP 



CARD IC MAG00052 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 202 



LINE 



LOCATION 



BINARY CUTPUT 



NAVE 



STATEMENT 



LCCATICN 



222150 



1* 222150. 40 

2* 222151. 4C 

1* 222152. AC 

4* 222153. CC 



223744.11 
223743.01 
222161.77 
223744. C7 



30 
80 
CO 

80 



222150.74 

001000. CC 



02 
FC 



001000.36 FO 



ASWCH B8,CATUB,$ 

CMOCOCABTA -HAKE 
SVA,15,RSVRET 
CMllll.ABWA - MAKE 



-TEST IF OUTPUT TAPE 
BUFFER T AVAILABLE 

BUFFER W UNAVAILABLE 



IS BUSY 



MA000052 
MA000053 
MA000054 
MA000055 



5» 222154. OC 



223745.21 30 222155.34 OA 



BBN, AACX+.17,$+1 



-INVcRT OUTPUT BUFFER POINTER 



MA000056 
"MA0000 5 7 - 
MA00G058 
MA000059 
MA000060 
MA000061 



6* 
I * 
E* 
? * 
IC* 



222155. CC 
222155.40 
222156.40 
222157. GC 



223745. 16 
223744.11 
222177.35 
224C46.35 



30 
80 
01 

CC 



001100.36 FO 



SET UP CORRECT CONTROL *CRC FUR 
LV,AN,AACX -LOAD 

CMllll,CATUB -MAKE 
LVI,$14,AWEXIT 
SVA,£14,ACP 



WRITE 

INDEX Vvl TH OUTPUT 

TAPE UNAVAILABLE 



BUFFER PCINTER 



11*222157.40 0_C_C_C_4C_._1C_C0 _ __ B t $MCP 



12* 
12* 
14* 
15* 

16* 



22216C.CC 
22216C.4C 
222161. OC 
222161. 4C 

222162. OC 



CCCC01 .40 
224032.01 
223750. CC 
CCGC00.1C 
223743.01 



80 
BO 
87 
00 

80 



001000.36 FC 



RSVRET 

AACS4 



, $W 

LVE,,AMR 

, ACWHAN) 

8,0 

CMllllt ABTA 



17* 2 2 21 6 3. CO 
IE* 222163.40 
222164.00 
222165.00 
222166.00 
222167. CC 



IS* 
2C* 
21* 
22* 



00 
CO 
80 
80 

80 

LQ 

CA 



R,AY 



_-M_ A AE .BUFFER T UN A V A I L ABL E 
-REFILL TRANSMISSION INDEX 



MA000062 
MA000063 
MA000064 
MA0G0065 
MA00C066 
MA0C0067 



CO 00 31.02 

222135.10 
223744.14 
C0CC27.00 
223743.01 

_2_2_3_2_5_7_ ._2_2 

222167_.4C_ __C_QC_2_2_6.23 CA KC I , AY , ACRD15 -TEST IF BUFFER IS FULL 



001100.36 FO 
223753.22 AC 
222173.74 02 



AECJ 



AECJ1 



B,AA0S1 -GO TO TRANSFER MORE CARCS 

CMllLKBlitlt DiAEGJI-TLiRN ON ECJ INDICATOR 

TI,9,$7 f CXR7 

BB, ABTA,A£0J2 -IS BUFFER T AVAIL FOR TRANSMISSION 

LX,AY,ACWA -PICKUP TRANSMISSION INDEX 



MA000068 
MA000069 
MA000070 
MA000071 
MA0000 72 
MA000073 



lit 
2* * 
25* 
26* 
27* 
26* 



222170 
22217C. 
222171, 
222172. 



GO 
4C 
40 

CC 



222271.32 
OOCCOO.CC 
222170.63 
223257. C2 



C2 
89 
48 

CO 



OCOOOG.CO FO 



ADDRESS IS Y,WHERE 
BXE,CECJ 
AECJ3 CM0CCC(BU,64),{AY) 
CB+,AY,AE0J3 

R.ACwA 



Y=<8C*12*ACRD+5)/64 
-TEST IF ALL LINES ARE AVAILABLE IN 
-FILL UP REMAINING WRDS WITH ZERO 
-COUNT IF ALL WORDS ARE DONE 
-REFILL TRANSMISSION INDEX 



BUFF 



3C* 
31* 
32* 

33* 
34* 



222172^40 
222173.40 
222174. 4G 
222175.40 
222176. CC 
222176. 4C 



2 2 3 743.01 
223744. C7 
223743. CI 
222271.37 

222150. 5C 

C0CC00.3C 



80 
80 
80 

01 
CC 
CO 



9QiQgg.36_Fc 

222166.34 02 
222271.34 00 



_CM_1111»ABTA 
BB, ABwA,AEOJl 
BZB,ABTA,CECJ 
LVI,$15,CE0J 

B, ASWCH 

_c_nc_p,_ 

DR~Z(N) ,2 



- MA K t BUFFER T UNAVAILABLE 

-LOOP IF W IS BEING WRITTEN GUT 
-IF T IS AVAIL, GC TO PRINT EGJ 
-LOAD INDEX WITH EXIT 
-GO 10 WRITE GUT BUFFER 



MA000074 
"MA000075" 
MA000076 
MA000077 
MA000078 
MA000079 
~MA000080~ 
MA00C081 
MA000082 
MA000083 
MA000084 
MA000085 



AECJ2 



3-_t 
36* 

37* 
3E* 
3S* 
4C* 



222177. CC 
222201. GC 
222201.40 
222202. CC 
2222C2.40 
222203.00 



COCO 0_2_._C_0_ 
222213.10 
C00C00.3C 
222210. IC 
C0CCCC.3C 
CCCC40. 10 



AWEXIT 



-TABLE OF EXITS FOR PUNCH BUFFER 



MA000086 
~MA0000b7~ 
MA000087 
MA000088 
MA000088 
MA000089 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



CO 
CO 
00 
00 
CO 



B,AWUK 

NCP 

B,AWEE 

NOP 

B,$HCP 



-UK 
-EE 



4_!_*._222203.4C 
42* 222204. CU 
222205. OC 
222206.00 
222207. CC 
222207.40 



CO CO 4 1 . CC 
223744. 11 
223744.07 
223743.01 
222320.37 



80 
80 
80 
80 
01 



,_$RET_ 

CMOCOOfCATUB -MAKE TAPE' AVAILABLE 
CM0C00,ABWA -MAKE BUFFER W AVAILABLE 

BZB,ABTA,CRET - BUFFER T AVAILABLE, RET 

LVI,$15,CRET - BUFF T UNAVAILABLE, WRITE CUT 



MA00009G 
>,a60009.1~ 
MA000092 
MA000093 
MA000094 
MA000095 



43* 
44* 
45* 
46* 



00110C.CC FO 
001000.0C FO 
222320.34 CC 



AWLOP 



AND RET 



222150.50 00 B, ASWCH 



-GO TO WRITE CUT BUFFER 



47* 
46* 
4S* 
5C* 
51* 
52* 



2 2 22_1C_.C0_ 

222211.00 

222212. CC 

222212.40 

222213.00 

222213.40 



223744.14 80 222204.34 02 



223742. C5 
222205.37 
222404.10 
222177.44 
222177.03 



80 

01 
00 
30 



001100.36 FC 



A WEE BB , A EC J I , A W EOP _-_I_F_ _fc_C J _I ND I C I S_ ON , _ J AK E E 0_P_ ACT I ON 

CM111K EU,1, 1),CTRAIL+.C5 -PHYSICAL - END OF TAPE 
LVI,$15,AWECP+1. -LOAD INDEX WITH EXIT 
B,ATSWCF -TAPE SWITCH 

AWUK LV, $2, AWEXIT. 32 -PICK UP ACTUATED ADDRESS 

LVI t »lt AWEXIT -TABLL CF EXITS 



MA00p09& 
~MA000097~ 
MA000098 
MA000099 
MA000100 
MA000101 



5 2*_2222_L4_.CC 
54* 222214.40 
55* 222215.40 
56* 222216.40 



22.2 50 5.4 7 
222200. 11 
222200. 14 
222333. 5C 



CI 
80 

80 
CC 



222521.74 02 
222527.74 00 



L\n t i3,ANFM 

~B~B,AWEXIT + 1.C9,AEPGK 
BZB,AWEXIT+1.12,ALNUKC 
B,CKUK 



-REQUEST RING 

-UK ALONE - UNIT TRGUBLE 

-GO TO GENERAL WRITE UK ROUTINE 



MA000102 

"WA0001C3" 

MA000104 

MAOOOlOf) 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID MA000106 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 203 



LINE 



LCCATICN 



BINARY CUTPUT 



NAME 



STATEMENT 



LCCATICN 



CC0032 



1* 00C032.0C+ 
2* 00CC31.CC+ 
2* 00CC30.00+ 
<*_0CCC2J_.C_p_+ 
5* 2 2 22 1 7. CO " 



6* 
~<* 
i * 

1C* 

"n* 

12* 
12* 
14* 
15* 
16* 

II* 
It* 
IS* 
2C* 

21* 
22* 



222211 .40 

222220.00 

222221.00 

222222.00 

222222. 4_C_ 

22 2223.00 

222223.40 

222224. CO 

222224.40 

222225.00 

2 22225.40 

2 2 2_22 6.CC 

222226.40" 

222227.00 

222227.40 
222230.40 



+CCCC00CC 
+O0CC00CC 
+0CC00OC0 

_+CCC_CCCGO 
215324^64 
222223.32 
000032.00 
215324.00 
222223.37 
222222.50 
2 155 71. CO 

"215570.04 
C0C1C3.4C 
223764.00 
C0CC01.CC 
215571.00 
2155 70.04 
C 00 -10 4". CO 



223744. 14 
C0CC27.C0 



BU,1CC,1C 
BUtlCC, 10 
BUtlCOtlO 

BU, 100,10 



90 
42 
80 
80 
42 
CO 

ao 
oo" 

80 
80 
80 

co~ 

80 
00 



80 

80 



AX SYN.S10 

AY SYN,$9 

AZ SYN,$8 

AN__ SYNtl.7 

"ACHK KV, $1C,SPPLB- 



022027.20 10 

022027.21 10 



ACHKBR 
ACHERR 



001000. CC FO 
223753.22 AC 



CSTART 



BXL, ACHERR 

+ (BU, 18), $10, 46 

K(RU, 18),SPPUB,46 

BAH, ACHERR 

G,_$ 

SICSPRIMR 
~R~D,"SPRIME 

, tSPR 

, ASERR 

,1. 

S[C,SPRIMR 

EC L SPRIME 
", $ABEOJ 

8E.ARET 

TRANSMIT N PRINT LINES FROM 

CM0C00(BU, 1),AE0JI -TURN 

TI ,9,$7,CXR7 



-REQUEST OUT OF BOUNDS 



PP TC PRINT BUFFER 
OFF ECJ INDICATOR 



MA000106 
MA0Q0107 
MA000108 
MA000J.09 

>1A0001 Uf 
MAO 00 111" 
MA000112 
MA000113 
MA000114 
MA000115 

"MA000116 

"MAOOOlib 
MA000117 
MA000U7 
MA000117 
MA000118 
MA000118" 

"MAOOOlir 
MA000120 
MA000121 
MA000122 
MA000123 
MA000124 
MA000125" 
MA000126 
MA000127 
MA000128 
MA000129 

"MA000130" 
MA"660131 
MA000132 
MA000132 
MA000133 
MA000134 
MA000135" 
MA0001 36 
MA000137 
MA000138 
MA000139 
MA000140_ 
MA000141 
MA000142 
MA000143 
MA000144 
MA000145 
MA000146 

"MA000147" 
MA6o0148 
MA000149 
MA000150 
MA000151 
MA000152 
MA000153~ 
MA000154" 
MA000135 
MA000156 



23* 
24* 
25* 
26* 
27* 
2£* 
29* 



222231.40 
222232.00" 
222232.40 
222233. CO 
222234.00 
2 222 3 5.00 
222236. CC 



22 2110 . 2 5 
22211CV64 
000027.22 
222110.40 
210000.00 
222105.04 



BO 
"5"0 
00 
80 
80 
80 



LVE,$10,SCSPRT+3. 

L C , $ 1 , S C S P R T + 3 . 32 

Z,$7 

L(BL, 18),SCSPRT + 3.32,46 

#I(EU,6), 17,20 

BB,SCSPRT.4,RN0LCK- 

L F ( E U , 6 4 ) , $ L , 6 4 



-EFFECT I_VE_ADDRESS FROM 
'-"NUMBER OF LINES TO TRANSMIT" 



TENTACLE TBLE 



022027.20 50 

406012.21 90 
222240.74 02 



C0CC10.CC 80 000040. C6 70 



3C* 
31* 
32* 

33* 
34* 



222237. CC 
222237.40 
222240.00 
222240.40 
222241.00 



222223.34 
222222.40 
222217. 1C 
222577.20 

C00CG0.25 



CO 
80 
CO 
10 
CA 



RNOLCK 
CACS1 



BZRZ, ACHERR 
SIC, ACHKBR 
B, ACHK 
LX,$8,CWA- 
KCIt $10,C 



TRANSMISSION INDEX 

-ARE ALL LINES TRANSMITTED 



222241.40 
"222242. OC" 
222242.40 
222243.40 
222244.40 
222245. 4G 



22 22 53.72 
C0GC20.23" 
223743. CC 

OO0CC1.C0 
C0CC00.60 



C2 

"C2" 

80 
8A 
88 



BX_E,CACS2 -YES- BRANCH 

LCI, $9, 16 -N0,CF=16 FULLWCRUS TO TRANS" 

BB,CBTA,CA0S3 -IS BUFFER T AVAILABLE 

LF(BU, 64, 8) (V + I), 1.(4.10) -YES , TRANSM 1 T 16 FULL WORDS FROM 

SF(EU,48,6) (V+I),.48($8) 

CE,$9,CTRANS -ARE 16 WORD TRANSMITTED 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3€* 
3c* 

4C* 



222254.74 02 

1C0000.C6 70 
160600.12 FC 



CTRANS 



222243.62 48 



41* 
42* 
42* 
44* 
45* 
46* 



222246.00 



OGCCOl.CC 
COCCCO". 36 
CCCCC1.21 



8 8 

08 



250000.06 
136600.12" 



70 
FO" 



L F ( EU , 40 , 8 H V + IC ) , 1 . ( 41 C_)_ _ _- T R A N S « IT LAST 5 BYT E S 

S F ( B U , 3 , 6 ) I V + I ) , . 30 ($ 8) 

C-I,$8,l -REDUCE NUMBER OF LINES AVAILABLE 

-IN BUFFER BY ONE 
BXCZ,CA0S4 -NO LINES LEFT, MAKE T UNAVAIL 

B,CA0S1 -TRANSMIT MORE LINES 



222247 
22225C. 

222250, 
222251, 



CO 
CO 

40 
CO 



222251.70 42 
222241.10 CO 



47* 
48* 
4 C ,» 
5C* 
51* 
52* 



222251.40 
222252.40 
222253.00 
222253.40 
222254.00 
222254.40 



22 3743.00 
C0CC30.C2 
222241.10 
222577.21 
222144. 10 
223744.06 



80 
CO 
00 
10 
CO 
80 



001000.36 FO 



CACS4 __CWlllltCBTA___ -BUFFER IS FILLED-MADE UNAVAILABLE 

R,*8 -REFILL TRANSMISSION INDEX " 

B,CA0S1 -GO TO PICKUP MORE LINES 

CACS2 SX,$8,CWA -ALL LINES TRANSMITTED 

B,AR£T -RETURN TO DISPATCHER 

CACS3 BE,CBwA,CTRANS-l. -IS W AVAIL. NO--WA I T-LCCP 



222242.74 02 



5 =*_ 2 222 5 5. 4 
54* 222256.00 
55* 222257.00 
56* 222257.40 



22 224 3.7 7 
223744.11 
222270.10 
223743. CO 



80" 

00 

80 



LVI L $15, CTRANS 
"BB,CATUB,$" 
B,CXZ 
CMOCOC.CBTA 



-WHERE TOGO AFTER CUTPUT 
-IF TAPE IS "BUSY LCCP 
-BRANCH IF NEW TAPE ,OTHERW I SE NOP 
-SWAP BUFFERS, T AVAIL 



222256.34 02 



001000. CO FC 



CACS3A 

CXY 

CACS3B 



wai 



1 IME CLOCK CCC54G41 



PUNID 11D11MCP 



CARD ID MAC00157 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 204 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



222260 



3* 222260.40 

2* 222261. CO 

2* 222262.00 

f 222263.00 



222267.77 
223744. C6 
223744.61 
223744.56 



CO 

80 
80 
30 



001000.36 FO 
222263.34 OA 



SVA, 15.RSVRT1 
CMllll.CBWA 
BBN,CCX+.17,$+1. 
LV, $7 f CCX 



-W UN A VAIL 

-INVtRT BIT, OUTPUT BUFFER POINTER 

-OUTPUT BUFFER POINTER 



MA000157 
MA000158 
MA000159 
MA000160 



5 * 

i * 

I* 

c . * 

1C* 



2 2 226 3 . 4_C 
222264.40 
222265. OG 
222265.40 
222266. CC 
222266.40 



_22_3 744. 11 
222314.35 
224046.35 
C00C40.10 
C0GC01.4C 
224C32.C1 



§0 

of 

00 
00 
80 
BO 



001100.36 FC 



CM1111,CATUB 

LVI ,$14»CtXN 

SVA,$14,ACP 

B,$^CP 

, $W 

LVE,,AMR 



-MAKE TAPE UNAVAILABLE 



MA0C016 1 
MA00 0162 
MA000163 
MA000164 
MA000165 
MA000166 



11*^22226 7.00 
12* 222267.40 
22227C.CG 
222271.00 
222272.00 
222272.40 



_2JL25 7 5 ._ CO 
C00C00.10 
222257.23 
223743.00 
222577.20 
CCCC14.21 



87 
CO 
80 
80 
10 
CA 



tCWXU7)_ 

6,0 

BZ81,CXY+.19,CA0S3B 

BB.CBTA.CE0J2 -IS BLFFER T AVAIL FOR TRANSMISSION 

LX,$8,CWA -YES-DOES IT HAVE ALL 

KCI,$8,CNUM -LINES AVAI_LABLE_ 



M AOO 0167 
MA000168 
MA000169 
MA000170 
MA000171 
MA000172 



12* 
14* 
15« 
16* 



222257.74 
222302.74 



OC 
02 



RSVRT1 

cxz 

CECJ 



IE* 
IS* 
2C* 
2.1* 
22* 



2 2 22 7 3_.„C C_ 
222273.40 
222274.00 
222275. CO 
222276. CC 
222277.00 



_22 2 3„05._72 
223741.22 
C0CCC0.C6 
C0CC00.22 
COCCGO.CO 
CCCCC0.74 



C2 
10 
89 
88 
89 
88 



BXE,CECJ4__ -YES-GO „T0 WRITE EOF 

LX,$9,CXFILl ' -LOAD INDEX 

LF( BU, 18,6) CV+I) , .6{$9) -FILL REST 

SFt EU,18,6H V+I ), .18<$8) -BLANKS 

LF(BU,6C,6),C{$9) 

SFLRUt 6C,6HV + I), .6C($8) 



MA000173 
MA000174 
MA000175 
MA000176 
MA000177 
MA0Q0178 



122600.06 
122600.12 
074600. C6 
174600.12 



70 
FC 
70 
FO 



CECJ3 



OF BUFFER WITH 



22*__2223Cp_.pO 
2** 2223CC.4C 
222301. CO 
222301.40 
222302.40 
222303.40 



_22_2_2_17-_2_2_ 
222274.20 
222577.21 
223743.00 
223744.06 
223743. CC 



4_C 
4C 

10 
80 

80 
80 



CBR,$8,CE0J3 

SX,$8,CkA 

CM1111,CBTA 

BB,CBWA,CEOJ 

BZB,CGTA,CECJ4 



MA000179 
~MA0G018O~ 
MA00C181 
MA000182 
MA000183 
MA000184 



25* 
2t* 
21* 

2f 



OC1000.36 
222271.34 
222305.74 



FO 
02 
CC 



CECJ2 



-SAVE TRANSMISSION INDEX 
-MAKE BUFFER T UNAVAILABLE 
-LOOP, NO EOP FOR BUFF W YET 
-TEST IF BUFFER T IS AVAILABLE 



2i* 
3C* 
31* 

32* 
32* 
34* 



222304^.40 
222305.00 
222305.40 
222306.40 
222307.40 
222310.00 



22 2 3 05.77 
222256.10 
223744.11 
223744.11 
222371.35 
224046.35 



01 

CO 
80 
80 
01 

CO 



222305.74 

001100.36 



02 
FC 



CECJ4 



LVI t $15,CE0J4 

B,CACS3A 

BB,CATUB,$ 

CM11U,CATUB 

LVI,$14,CEXEF 

SVA,$14,A0P 



-WHERE TO G C __ A F T E R U T PUT 
-ENTER OUTPUT SR 
-WAIT IF TAPE IS BUSY 
-MAKE TAPE UNAVAILABLE 



MAC00185 
"MA000186" 
MA000187 
MA000188 
MA00C189 
MA000190 



3A* 

36* 
37* 
3£* 
39* 

4C* 



222310.40 
222311. CC 
222311.40 
222312.00 
222313.00 
222313. 4C 



C0C_C40_._1_C_ 

C0CC07.4C 

224C32.01 

223743.03 

222144.10 

00CCC0.3C 



CO. 
80 
BO 
80 
CO 
CO 



R 



,$WEF 

LVE,,AMR 

BBZ,A0PTRI,CDRY1 

B,ARET 

CNOP, 



MA000191 
MA0C0192 
MA000193 
MA000194 
MA000195 
MAC00196 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



224037.74 06 



-HAS OUTPUT BEEN REQUESTED 

-GO TO RESTORE AND EXIT 



41*. 
42* 
42* 
44* 
45* 
46* 



222314. CO 
222316.00 
222316.40 
222317. CO 
222317. 4C 
222320.00 



00CCC2.CC 



CEXN 



DRZ(N),2 -TABLE 

B,CUKN 

NOP -UK 

B,CEEN 

CNOP -EE 

B,$NCP 



OF EXITS FOR PRINT BUFFER 



MA000197 
~MAC00198~ 
MA0Q0198 
MA000199 
MA000199 
MA000200 



222330.10 
C00C00.3C 
222325.10 
C0CC00.30 

___c_o_c_c_4_q._ig 

222320.40 C00C41.CC 80 , $RET 



CO 
CO 
CO 
00 

co 

80 



CRET 



47* 
4fc* 
4<5* 
5C* 
51* 
52* 



222321.00 
222322.00 
222323.00 
222324. CO 



52*_222 324.40_ 

5f 

55* 222325. CC 

5t* 222326.00 



223744. 11 
223744.06 
223743. CO 
222320.37 
222256.10 



80 
80 

80 

Ql 
CO 



001100.00 
001000. CC 
222320.34 



FO 
FG 
OC 



CECPN 



EOP ON NORMAL WRITE 
CMOCOCCATUB -MAKE 

CMOCOO,CBWA -MAKE 

BZB,CBTA,CRET -IS T 



TAPE AVAILABLE 
BUFFER W UNAVAILABLE 
AVAIL FOR TRANS 



LVI, $15, CRET -WHERE TO GO AFTER OUTPUT 



MA0CC200 

MA0C0201" 

MA000202 

MA0Q02G3 

MA000204 

MA000205 



223744.14 
223742.05 



80 
80 



222321.34 

001100.36 



02 
FO 



CEEN 



B L CA0S3A __ -GO TO OUTPUT SR 

~£E CN NORMAL WRITE 

BBtAEOJI, CECPN -IF EOJ INDIC. IS ON, TAKE 
CM1111(BU,1, 1),CTRAIL + .C5 -PHYSICAL END 



EOP ACTION 
OF TAPE 



MA000206 
MA000207 
MA000208 
MA000209 



wai 



1 IME CLOCK CCC54C41 



PUMD 11C11MCP 



CARD IC MA000210 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 205 



LINE 



LOCATION 



BINARY CUTPUT 



NAPE 



STATEMENT 



LOCATICN 



222327 



1* 
2 * 
2 * 
i* 
if* 

1 * 

9* 
IC* 



222327 
222327 
222330 
2 2 23 3 C 
22 233J 
222331 
222332 
222333 
222334 
222334 



.00 

.40 

.CO 

.40 

~._00_ 

.40 

.40 

.40 

.CO 

.40 



222322.37 
222404.10 
222314.44 
22 2 3 14. C 3 
2^250 5^4 7 
22 2 315. 1 1 
222315.14 
222516.43 
222347.07 
223745.46 



01 

CO 

30 

01 

Cl" 

80" 

80 

DC 

DC 

50 



222521.74 02 
222527.74 00 



LVIt $15,CE0PN4l. 

B,ATStoCH 
COKN LV, $2,C£XN.32 

LVI|S1,CEXN_ 

LVI,$3,ANFM_ 

BR,CEXN + 1.09", AEPGK " 

BZB,CEXN+1. 12,ALNUKC 
CKUK SVA, $1, ANFMEX 

SVA,$3,CKRUKE 

LC,$3,AUKCT 



load index with exit 
branch to tape switch 

-actuated address 

-jablecf exits 

"-request' r~ing 
-uk alone - unit trouble 
-save table of exits 

-set up bsp, ergs, h loop count 



MA000210 

MA000211 

MA000212 

MA0C021_3_ 

MAG00214 

MAO 002 15 

MA000216 

MA000217 

MA000218 

MA000219 



11* 

12* 

12* 
14* 
15* 

i** 
17* 

le* 
IS* 

2C* 
21* 
22* 
"23*" 
2<* 
25* 
26* 
21* 
21* 
29* 



222335 
222335 
222336 
222336 
222337 
222337 
22 2340 
222340 
222341 
222341 
222342 
222342 
222343 
222343 
222344 
222344 
222345 
222345 
222346 



_.00_ 

.40 
.00 
.40 
.CC 

. C_0_ 

.40 

.CO 

.40 

.00 

.40 

.oc - 

".40 
.00 
.40 
.CC 
.40 
.00 



C7 
10 
CO 
01 
CC 

C6 
C6 



22 3 746 
000040 
000CC2 
224032 
223740 
22 3 74 
22 3 7 46 
22 234 7 
223746.07 
223745.46 
223746.47 
222350.33 
224046.3 3 
223746.46 
222347. C6 
223746.47 
C00C40.1C 
_C0 0_C_0_6_._C0 
2"2 4C32.01 



50 
"CO 
80 
BO 
*0 
CO 
50 
4A 
50 
50 
50 
01 
DO 
50 
4A 
50 
CO 
80 
BO 



CKRGUK 



CESPUK 



SC»$3 

"8,"$pc 
,$ccw 

LVE,, 
,CKER 
R,CKE 

"LC\$3 
CBZ,* 
SO, $3 
LC,$3 
SC,$3 

_L_VI_,$ 
SVA[S 

~L~C , $ 3 
CBZ, i 
SC,$3 
B,$MC 
, $8SP 
LVE,, 



,AfoRCT 

P 

AMR 

IC 

RIC 

, AVTRCT" 

3,CKRUKE~ 

,AWRCT 

,AUKCT 

,ABSPCT 

13,CUKUK 

13,A0P 

,ABSPCf" 

3.CKRUKE 

,ABSPCT 

P 

AMR 



-P I C K _ UP CURRENT CONTROL >CR D _ 

"-If "RETRIED - N""tlHES TELL OPERATOR 

-SET UP BSP CCUNTER 

SET UPNEw TABLE OF EXITS FCR BSP 

"" "-HAS BSP "BEEN - RETRIED - N~ TIMES - - 
-YES - TELL OPERATOR 



MA000220 
"MA000221" 
MA000221 
MA000221 
MA000221 
MA0C0222_ 
MAO 00 22 3 
MA000224 
MA000225 
MAC00226 
MA000227 
MA000228 
MA000229 
MA000230 
MA000231 
MA000232 
MA000233 
MA00C233 
"MAG0Q233 



3C* 
31* 
32* 

.32* 
34* 



222346 

222347 

222347 

222350, 

222352, 



40 
CC 
40 
00 
CC 



222320.10 
222347.10 
C0CC00.30 
CCCC02.C0 
222343.50 



GO 
GO 
00 



CKRUKE 

CUKUK 



00 

"co_ 

CO 
CO 
CO 
80 
80 
'01' 



B,CR 
B,$ 
CNOP 
DRZ( 

B,ce 



ET 



N),2 

SPUK 



-TABLE OF EXITS FOR BSP IN CBSPUK 



MA000234 
MA000235 
MA000236 
MA000237 
MA000238 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 

2 

1 



35_* 
36* 
37* 
3£* 
3?* 
4C* 
41* 



222352, 
222353" 
222353, 
222354, 
222354, 
222355, 
222356^ 



4C 
CO 
40 
CO 
40 
CO 
CO" 



C0CC0C.3C 
222355.10 
C0CCC0.3C 
C0C040.1C 
000041. CC 
22 2351.14 
222363.35 



222343.74 OC 



CKERG 



NOP 
B , CK 
NOP 
B,$M 
,$RE 
BZ_B_, 
"C V I ," 



ERG 

CP 

T 

CUKUK+1.12,CBSPLK 

S14,CKWRIT 



-NO EOP -BSP TROUBLE 

- S E f " U P "' T A B L E OF EXITS F : R E R G S , W 



MA00q238 

MA CO 02 39" 

MA000239 

MA000240 

MA000240 

MA00024L 

MA000242" 



42* 
42* 
44* 
45* 
46* 



222356, 

222357, 

222357 

222360, 

222360, 



40 
CC 
40 
CO 
40 



224C46.35 

C00C4C.1C 
000C05.C1 
224C32.C1 
0CCC40.1C 



DC 
GO 
80 
BO 

CC 



SVA, 
B,$M 
, SEP 
LVE, 
B,$M 



$I4,A0P 

CP 

GS 

,AMR 

CP 



47* 
4 6* 
49* 
5C* 
51* 
52* 



222361 
222361" 
222362, 
222362 



CC 
40 - 
00 
40 



CO C 001. 4 C 
22 4032. Cl 
223740.00 
222320.10 



80 
BO 
80 
CC 



_,_$W 

LVE, 

,CKEi 

B,CRI 

CNOP, 

_C_K_VvRJ_T_ _DRZIN),2_ -TABLE OF EXITS FCR ERGS, to IN CKERG 



MA000243 
MA000244 
MA000244 
MA000244 
MA000245 
"MA000245 - 
MA000245 
MA000245 
MA000246 
MACC0247 
MA000248 



, AMR 
RIC 
!ET 



53* 
54* 
55* 
56* 



222363. CO 
222365. CO 



C0C_CC2.CC 

_ 222340.1C CO 



"NCP 
LV,$ 
B,3. 



N|»2 
RGUK 



MA000249 
MA000249 - 
MA000250 
MA000250 



222365. 4C 
222366. CC 
222366.40 



CCCCC0.3C CC 
222516.42 30 
000003.10 01 



1, ANFMEX 
($1) -GO 



TO CRIG. $W EE FIXUP 



wai 



T IME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID MA0O0251 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 206 



LINE 



LCCATIO 



BINARY CUTPUT 



NAPE 



STATEMENT 



LOCATION 



222367 



1* 222367. 00 

2* 222367.40 

2* 22237C.CC 

A* 22237C.4C 



00CC4C.1C GO 
000041.00 80 
222516.42 30 
CCCCC5.1C 01 



B,$MCP 
,$RET 

LV,$1,ANFMEX 
B,5.($l) -GO 



TO CRIG. $W tGP FIXLP 



MA000251 
MA000251 
MA000252 
MAO00252 



TABLES CF EXITS 



MO 00253 
MA000254 
MA000255 
MA000256 
MA000257 
MA00Q258 



6* 
1 * 

fc* 

S* 

1C* 



222371. CC 
222372.00 
222373.00 



00CC01.G0 
C0CC01.C0 
222402.50 00 



EXITS FCR WTMUT ECJ T1M_) 
CNCP, 
CEXEF DR<N),1 

DR(N), 1 

B,CUKEFA 



-REF. NO, ACTUATED ADDRESS 
-INDICATORS, INTERRUPT ACCRESS 



U* 
12* 
12* 
14* 
15* 
If* 



2 2 23 7 3_. 4_C_ 
222374. CC 
222374.40 
222375.00 
222375.40 



_C_0_C_C_CO._3C 
22 23 77. 5 C 
GCCCGC.30 
000040.10 
000041. CO 



CO 
CO 
GO 
GO 
80 



-EE 



NOP -OK 

B,CEEEF 

CNCP 

B,$NCP 

,$RET 

EOP ON kRITE 



TAPE MARK 



MA000258 
MA000259 
MA000259 
MA000260 
MA000261 
MA0C0262 



1 1 * _ 2 2 2 3 _7_6_. _C_C 2_2_3_7_4_4_ ._ 1 1 _ 8 _ _ 1 1 0_. C C_ F C C fc_C_P_E F C _ C 1 _ C A T U 6 - R_E L L_A S E _T A P E 



ie* 

IS* 
2C* 
21* 
22* 



222377.00 

222377.40 
222400. 4C 
222401.40 



222320.10 CC 



223742.05 
223743.02 
222377.37 



80 
80 
CI 



B.CRET 

EE ON WRITE TAPE MARK 
001100. CC FO CEEEF CM0C00< BO , 1 , 1 } » CTR A IL+ . C5 -PFYSICAL AND LOGICAL 
001000. CO FO CMO000,ATMI -ONE END OF FILE TO BE WRITTEN 

_L_VlL|15tCEgPEF + l. „ -LOAD IN D_E_X _WI__H EXIT 



END CF TAPE 



W * Q002 63 

MA000264 
MA000265 
MA000266 
MA000267 

MA000268 



lit 

2<* 
25* 
26* 
27* 
2E* 



222402. CO 
222402.40 
2224C3.CC 
222403.40 
222404.00 
222405.00 



_22_24Q_5. 1C 
222371.35 
222443.33 
222423.50 
223743.02 
222500.37 



CO 
01 
01 
CC 
80 
DO 



_B_t A_T_SWC3 

LVI,$14,CEXEF 

LVI,$13,A0FM 

B,AOKEF 

CM1111,ATMI 

SVA t $15,ATSWCl 



-GO T_C__T_A_PE_ _______ 

-CURRENT TABLE OF EXITS-SUCCESS. 

-EXIT UPON FAILURE TO WEF 

-IF $WEF FAILS N TIMES 
-TAPE MARK INDICATOR 
-STCRE RETURN 



MA000269 
MA 00 02 70 
MA000271 
MAO00272 
MA000273 
MA000274 



0C100C.36 FO 



CUKEFA 



AT5WCH 
ATSWC3 



WEF 



25* 222405^.40 
3C* 222406. CC *~ 
222406.40 
222407. CC 
2224C7.4C 
22241C.CC 



31* 
32* 

33* 
34* 



_2_2 24 1 1 . 3 5 _0 1 
224046.35 DC 
G0C040.1C CO 
CCCCC7.40 80 
224G32.C1 BO 
222144. 1C CO 



LVI, __4___SXIT 
~SVA,"$14,ACP 
B,$MCP 
,$WEF 
LVE,, AMR 
Bi ARET 



MA00027_ 
"MA000276" 
MA000277 
MA000278 
MA000279 
MA000280 



_3_5_* 
36* 
37* 
3£* 
3S* 
4C* 



- EXI1S FCR ATSWEF _-> R I J ING _E_Q F ,0 IN \L A D_ 

CNOP, 
ATSXIT - DRZiN) ,2 

B,ATSWU1 

NOP -UK 

B,ATSWC2 



MA0C0281 
~MA000282 
MA000283 
MA000284 
MA000284 
MA000285 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



22241C.4C 
2 2 2411.00 
222413. CO 
222413.40 
222414.00 



CCCCCC.30 
CCCCG2.C0 
222422.50 
CCCC00.30 
222416.10 



CO 

GO 
00 
CO 



Alt. 

42* 
42* 
44* 
45* 
46* 



222414.40 
222415. CC 
222415.40 
222416.00 
222417.00 
222417. 4C 



JLOJ3_Q.QP_._3_0 
C0C040.1C 
000041, 
223743, 
222460 



CO 
CO 
80 
80 
01 
CO 



-EE 



ON P 

~B,$^CP 
,$RET 

BBZ,ATMI,ATSWC3+.32 -BRANCH IF FIRST TAPE MARK WRITTEN 
LVI, $14, ASTRA 
S__,_14,A_P 
B,$MCP 



MA000285 
>A0G0286" 
MA000287 
MA000288 
MA000289 
MA000290 
MA000291 



00 
02 
35 



222405.74 06 



ATSWC2 



224046.35 



41* 
46* 
4S* 
5C* 
51* 
52* 



22242C_.CC 
222420.40 
222421. CO 
222421.40 
222422.00 
222422.40 



_C_0_G_G40._1C_00 
CCCC01.40 80 
224C32.C1 BO 
223752.00 80 
222320. 10 00 
222411.35 01 



, $W 

LVE,, AMR 
,CTR 
B,CRET 
ATSWU1 LVI,$14,ATSXIT 



-RETURN TO MCP 

-CURRENT TABLE CF t XI TS-SUCCESS . WEF 



MA000292 
MA000293 
MA0C0294 
MA000295 
MA000296 



5 3__22_423_.C0_ 
54* 222423.40 
55* 222424.40 
56* 222425.00 



22_2_45.73 
C00CC1. 14 
223745.46 
223747.07 



CI 
8E 
50 
50 



WEF 



222531.74 00 



AUKEF 



L_I_S13,A1FM -EXLI_0P0N FARURE TC 

BZB, 1.12(114) ,AERRN -LPGK OR UK'aLONE 

LC,$3,AUKCT -SET UP WEF RETRY COUNTER 
SC,$3,AEFCT 



MA000297 
MA0C0298 
MA000299 
MA000300 



wai 



TIME CLOCK CCC54C41 



PUMD 11C11MCP 



CARD ID MACGQ301 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 207 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



222425 



J* 
2* 

2 * 

5 * 
~IV 

1 * 

t * 

9* 

1C* 

11* 

12* 
12» 
14* 

15* 

1** 
17* 

ie* 
19* 

2C* 
21* 
22* 
23* 
24* 
25* 
26* 
27* 
2£* 



222425 
222426 
222426 
2 2 24 2J 
2224 2 7 
22243C 
222430 
222431 
222431 
222432 
222432 
222433 
222433 
222434 
222434 
22 24 3 5 
222437 
222437 
22244C 
222440 
222441 
222441 
222442 
222442 
222443 
222444 
222445 
222445 



.40 

.00 

.4C 

.00 

._4_G_ 

".CO 

.40 

.00 

.40 

.00 

.40 

".CO 

.40 

.00 

.40 

.00 

Yc_(f 

.40 

.00 

.40 

.00 

.40 

.C0_ 

".40 

.00 

.00 

.00 

.40 



75 
33 
3 5 
35 
C6 
C6 
C7 
10 
CI 
CI 



223747 
222430 
222435 
22 4 046 
2~2 3 74 7 
222430 
223747 
CCCC40 
CCCC05 
2 2 4 C 32 

„co_c_c_4 0._iq 

C"CCCC7.40 
224032.01 
222320. 10 
000000.30 
00_CG_02._0_0 
"22 24 2 7. 5 C 
COCCCC. 30 
223747.74 
C0C003. 1C 
C00C40.1C 
00004 1_._C C 
22 3747.74 
CCCC05.1C 
224005.10 
224020.30 
222447.50 
224005.20 



DC 
CO 
CI 
DO 
50 
~4A~ 
50 
00 
80 
BO 

~qq 
"ao" 

BO 
CO 
GO 

CO 
CO 
30 

OE 
CO 
80 

10 
OE 

80 
80 
CO 
80 



AUKEF2 
AUKEF1 



ATSW1K 



010000. C6 
010000.12 



70 

FC 



010000.06 7C 



AOFM 
AJf^M 

mTfm 



$VA,$1 
SVA,$1 
LVI,$1 
SVA,$1 

~LC»'$3, 
CEZ, $3 
SC,$3, 
B,$MCP 
,$ERGS 
LVEt iA 
B, $MCP 

~, $WEF " 
LVEt i A 
B,CRET 
CNQP, 
DRZ IN} 
B.AUKE 

"NOP 
LV, $14 
B,3.( $ 
B,$MCP 
, SRET 
LV»|14 

~B ,~5 . ( $ 
LF{ BU, 
5F{BU, 
B,AGFM 
LF(BU, 



4,ATSfcKE 

3,AUKEF1 

4.ATSW1K 

4,ACP 

AEFCT 

,r 

AEFCT 



MR 



-SET UP NEW TBL. OF EXITS FOR WEF 



-COULD NOT $WEF ON TAPE GO TO AOFM OR Al 



MR 



i2 
F2 



-TBL. OF EXITS FOR $WEF IN AUKEF2 



,ATSWKE 

14) -GO TO 0R1G. *fcEF EE FIXUP 



tATSWKE 

14)" -GO T00R1G. *WEF EOP FIXUP 

8),A0FMC 

8),CM£SSl+4.24 -TELL OPERATOR NO FILE MARKS 



8),A1FMC 



-JELL OPERATOR 1 FILE MARK 



MA000301 
MA000302 
MA000303 
M AGO 3 04 
MA00 03Q5 
MA000306 
MAC003O7 
MA000308 
MA000308 
MA000308 
"MA000309 
~MA(J60309~ 
MA000309 
MA000310 
MA000311 
MA000312 
MA000 313 
MA0C0313 
MA000314 
MA000314 
MA000315 
MA000315 
MA00Q316" 
MA000316 
MA000317 
MA000318 
MA000319 
MA000320 



29* 
~3C* 
31* 
32* 
32* 
34* 

~3«r» 



222446 
222447 
222450 
222451 
222452 
222453 
222453 



.4C 
.40 
.40 
.40 
.40 
.00 
.40 



22 4C20. 3C 
22 4010.00 
224006.30 
224C22.30 
C00C40.1C 
COCCI 5. CO 
224032.01 



80 010000.12 FC 



S F { 6U , 8 ) , C ME SSI + 4.24 
TI , 2t ANFKSiCMESSl 
LFlBUlt ALOGM 
SF(BU)tCMESSl+6.24 

B,DMCP 
, D I D E F 
"LVE,,AMR 



MA000321 
MA000322" 
MA000323 
MA000324 
MA000325 
MA000325 
"MAC 00 32 5 



80 
80 
80 
CO 
80 
BO 



224014. C4 AC 
0C0000.C6 70 
OC0000.12 FO 



-DATA FAILURE 
-LOGICAL END OF 



TAPE 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 

3 
2 
1 



36* 
37* 

3£* 
39* 
4C* 



222454 
222454 
222455 
222455 

222456 



.00 
.40 
.00 
.40 
.CO 



224016. CO 
C00C40.1C 
000043.40 
224C14.00 
C0CC11.CC 



80 

GO 
80 
80 
80 



,CMESSl+2.0 
B,$MCP 
,$CCMM 
tCMESSl 

,9. 



MA000325 
MA000326 
MA00C326 
MA000326 
MA000326 



41_* 
42* 
42* 
44* 
45* 
46* 



222456 
2 2 2457 
222457 



.40 

".CO" 

.40 



222 5_0_0_._C 
222465.10 
222320.10 



80 
GO 
00 



SI_C,_ATShCl 

"«,ATSV*C5 -UNLOAD TAPE" 
6,CRET 

EXITS FOR ATSWEF+.32 -WRITING 
CNOP, 
DRZ(N) ,2 



MA000327 

MA000327" 

MA000328 

MA000329 

MA000330 

MA000331 



TRAILER 



2 2246 0.00 

2 2 2462 .00 

222462.40" 

222463.00 

222463.40 

222464. OC 

222464.40 



qo_c_cc_2._cq 

_2_2_2_5_oq._5Q qq" 

C0CGCO.3C CO 

222465.10 

000000.30 

000040.10 

C0GG41.CC 



ASTRA 



47* 
46* 
49* 
5C* 
51* 
52 * 



CO 
00 
00 
80 



6_,_ATSTR1 
"NOP 

B,ATSwC5 
CNOP 
BttfCP 
,$RET 



-UK 
-EE 



MA000332 

MA000332" 

MA000333 

MA000 333 

MA000334 

MA000335 



52* 
54* 
55* 
56* 



2 224 6 5. OC 
222466. CO 
222466.40 
222467.00 



22 3 744. 15 

000040.10 
C00C10.40 
224C32.C1 



00 
80 
BO 



001000.36 FO 



ATSWC5 



CM1111,ATSWCR 
~B,$MCP" " 
f illfvLO 
LVE,,AMR 



MA000336 
MA000337" 
MA000338 
MA000339 



wai 



1 IME CLOCK CC054C41 



PUNID 11011MCP 



CARD ID MA000340 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 208 



LINE 



LCCATICi\ 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



222467 



1* 222467.40 

2* 222470.40 

2* 222471.40 

4* 222472.00 



223744.13 
223744.12 
C0CC40.10 

C0C041.C0 



80 

80 
CO 
80 



222472.74 06 
222474.34 06 



ORZ, ATARI, ATSWC4 
BBZ,ATBRI,ATSkC6 
3,$MCP 
i tRET 



MA000340 
MA000341 
MA0C0342 
MA000343 



; * 
~£« 

I * 

fc* 

S* 

1C* 



2 2 2472.40 
222473. CC 
222473.40 
222474.00 
222474.40 
222475. CC 



2 2 4C 32. 42 
224C32.C3 
222475.10 
224033.02 
224032. C3 
223744.11 



30 
30 
CO 
30 
30 
80 



LI* 
12* 
12* 
14* 
15* 
16* 



222476_.0C_ 

222477.00 

222500. CC 

2225CC.4C 

222501.40 

222502.00 



_2_2_3 7_44._15 
222257.23 
222500. 1C 
222461.14 
222460. 03 
2225C3.C7 



80 
CC 
80 
01 
01 



0011C0.CC_ FO 

f_0_ 
FC 



AJS>C4 

ATSWC6 
ATSWC7 



LV t ltAMRl 
SV f ItAMR 
B.ATSWC7 
LV, 1.AMR2 
SV, 1,AMR 
CMOOOOtC-ATUB 



MA000344 
"MA0C0 345 
MA000346 
MA000347 
MA000348 
MA0C0349 



QC10pC_.CC 
OC1000.CC 



222535.34 00 



ATSWC1 
ATSTR1 



CM0C00,ATSWCR 

CM0C0C{BU,1),CXY.19 
B,$ 

BZB,ASTRA+1.12»AERRLN 
LVI,$1, ASTRA 



-UNIT FAILURE 

-CURRENT TBL. CF EXITS FOR SUCCESS 



-LVI»$3,C2FM -AEiTURN J F UNSUCCESSFUL 



MA000350 
MA0QG351 
MA000352 
MA000353 
MA000354 
MA000355 



II* 
U* 
IS* 
2C* 
2J* 
22* 



222_5_02_._4C_ 
2225C3.C0 
222504.00 
222505. CC 
222505. 4C 
2225C6.4C 



22233.3 ,,5 
224C05.C0 
224C20.30 
222447. 5C 
224010.00 
224C05. 10 



QQ 
80 
80 
CO 
80 
80 



010000. C6 
010000.12 

224014.04 
010000. C6 



7C 
FC 

AC 
7C 



C2FM 



ANFM 
ANFMRT 



ESCKUK 

LF(BU,8),A2FMC 
SF(BU,8),CMESSl+4.24 
B, AGFM 

TI,2,ANFMS,CMESS1 
LF(BU,8),A0FMC 



-DATA 
-TELL 



FAILURE 
OPERATOR 



FILE MARKS 



MA 0003 56 
MA000357 
MA000358 
MAQ00359 
MA000360 
MA000361 



22*. 
24* 
25* 
26 * 
27* 
2i* 



222507„.40 
222510.40 
222511.40 
222512.40 
222513.00 
222513. 4C 



224 lC 2 C )_. 30 80 

224C05.30 80 

224022.30 80 

000040.10 00 

C0CC15.C0 80 

224C32.C1 80 



010000. 12_FC 
0C0000.C6 7C 
000000.12 FO 



2it_222514.CC 
3C* 222514. 4C 
31* 222515.00 
32* 222515.40 
32* 222516. CC 
34* 222516.40 



_2_2AC_lA*_cp 

CCCC40. 10 
00C043.40 
224C14.CC 
000011. CC 
222516.75 



30 
00 
80 
80 
80 
01 



ANFMEX 



_SF(BU t 8),CMESSi + 4.24 
LF( BU),APHYM 
SF(BU),CMESSl+6.24 
B.DMCP 
tDICDEF 

LVt t ,AMR 

,_CMESS 1 + 2.0 

B,$MCP 

,$CCMM 

,CMESS1 

.9. 

LVIi$14 t $ 



-ON PHYSICAL END OF TAPE 



-URIG. TABLE CF EXITS FOR $W 



MA000362 
~MA000363~ 
MA000364 
MA000365 
MA000365 
MA00Q365 



MA000365 
>A000366~ 
MA000366 
MA000366 
MA000366 
MA000367 



3A* 

36* 
37* 
36* 
3S* 
4C* 



222517.00 
222517.40 
222520. CC 
222520.40 
222521.00 
222521.40 



CCCC00.74 
CCCCC2.75 
2225C0.35 
222320.37 
222465.10 
C0CC40.10 



3_E_ 

CD 
CO 
01 
00 
CO 



LV,$14, .32 ($14] 

V-I,$14,2.32 

SVA,$14,ATSfcXl 

LVI,$15,CRET 

B,ATSWC5 

B,DMCP 



r AFTER_ U1NLD RETURN TO M A I N S J_R_E_A ,H_ 
-WRITE 



MA000368 
"MA000369" 
MA000370 
MA000371 
MA000372 
MA000373 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
S 
7 
6 
5 
4 
3 
2 
1 



AEPGK 



41* 
42* 
42* 
44* 
45* 
46* 



222522..CC 
222522.40 
222523.00 
222523. 4C 
222524.00 
222524.40 



C0CC15.C0 80 



224C32.C1 
224C31.C0 
C0CC40. 10 
000043.40 
224C25.C0 



PO 
80 
CO 
80 
8C 



i_DICDEF_ 
~LVE,,AMR 
,A£PGKM 
B,$MCP 

,$CCMM 
, APGKM1 



47* 
46* 
4S* 
5C* 
51* 
52* 



222525^.00 
222525. 4C 
222526.00 
222526.40 
222527.00 
222527.40 



_C0_C_C0 5 t C0 
000CC~2.45 
222500.05 
222320.37 
222465.10 
224012. CC 



OD 
DO 
01 

00 
BO 



.1.5- 



MA000373 

MA000373" 

MA000373 

MA000374 

MA000374 

MA000374 



MA000374 

MA000375" 

MA000376 

MA000377 

MA000378 

MA000379 



-RETRY MAINSTREAM WRITE AFTER 
-TAPE IS LNLOADED 



224014.04 AC 



ALNUKC 



V-I,$2,2.32 

SVA,$2, ATSWC1 

LVI,$15,CRET 

B,ATSWC5 

TI, 2,ALNKMS,CMESS1 -TELL OPERATOR UNIT TRCUBLL 



5 2*_22253C.4C 
54* 222531. CC 
55* 222531. 4C 
56* 222532. 4C 



222516.43 
222506.50 
224C05.2C 
224020.30 



CO 

CO 
80 
80 



SVA t $l|ANFMEX__ 
"B, ANFMRT 
LF(EU,8 J,A1FMC 
SF(BU,8),CMESSl+4.24 



MA000380 

"ma65o381~ 

MA000382 
MA00C383 



010000. C6 
010000.12 



70 
FC 



AtRRN 



Hfll 



1 IME CLOCK 0CC54C41 
LINE L C A TTON 



PUNIC 11C11MCP CARD IC MACCC384 CIST. CF 3/Cl 
~~ ""BINARY" CUT PUT" "~na"m"e" STATEMENT"" 



3/01 



PAGE NUMBER 209 
I CCATTOn" " " "222533 



1* 222533.40 

2* 222534.40 

3* 222535.00 

<* 222536.00 



224012. CO 
222450. 5C 
224C05.CC 
224C20.30 



80 
00 

80 
80 



224014.04 AC 



010000.06 
010000.12 



70 
FC 



AERRUN 



TI,2,ALNKMS,CMESS1 

fl, AGFM+1. 

LF< BU,8),A2FMC 

SF( EU,8),CMESSl+4.24 



MA000384 
MA000385 
MA000386 
MA000387 



~6* 
i * 

£* 

S * 

IC* 



22253 7. CO 
22254C.C0 
22254C.40 
222541.00 
222543. OC 
222543.40 



224C12.CC 
"222450. 5C 
CO0C0O.3C 
COOC02.CC 
224046.34 
222550. 10 



80 
CO" 

00 

30 
00 



224014.04 AC 



T I , 2 , 4LNKMS j CWE_SS 1 
8, AGFM+1. 
CNOP, 
AXITA DRZ(N),2 
LV, 14, ACP 
B t AXAUK 



11* 
12* 
12* 
14* 
15* 
16* 



222 544.00 
222544. 4C 
222545. CC 
222545.40 
222546.00 
222546.40 



22 4046.34 
"2225 51.50 
222573, 
COCCCO, 
224046, 
222541, 



10 
30 
34 
CC 



30 
CC 
CO 
GO 
30 
80 



000000.04 AE 



L_,_14 L ACP 
"8, AXAEE 
B,RATPCS 
NOP, 

LV, 14,ACP 
TI t 2, AXITA, C{ $14 ) 



MAO 00 38 8 

MA000389" 

MA000390 

MA000391 

MA00C392 

MA0C0392 

MA000393" 

"MA000393" 
MA000394 
MA000394 
MA000395 
MA000396 
MA000397" 

"MA000398" 
MA000399 
MA000400 
MA000401 
MA000402 

"MAO 004 3 
MA000404 
MA000404 
MA000405 
MA000405 

__A000406_ 
MA000406 
MA0Q040 7 
MA000408 
MA000409 
MA00041C 
MA000411 
MAC 004 12" 

"MA00C413" 
MA000414 
MA000415 
MA000416 
MA000417 
MA000418 

"MA000419" 
MA000420 
MA000421 
MA000422 
MA000422 

" MAO 004 23" 
MA000423 
MA000424 
MA000425 
MA000426 
MA000427 
MA000428 
MA000429" 
MA000430 
MA000431 

-nhi" 



17* 
is* 
is* 

2C* 
21* 
22* 
22* 
24* 
25* 
26* 
27* 
2fc_* 
29* 



2 2 2_54_7_._4_C 
22255C.0C" 
222551.00 
222551. 4C 
222552.40 

222553^.00""*" 
222555. CC 
222555.40 
222556. CO 
222556.40 
222557. CO 
222557.40 



_OQ.CC 05 .10 
222541.00 
C00CC2.10 
222541. CC 
C0CC03. 10 

jfoTc"C2"."o"C 

22 4046.34 
222562. 10 
224046.34 
222563.50 
222570. IC 
00CCC0/3C 



OE 

80" 

GE 

80 

OE 



30 
00 
30 
CO 
00 
CO 



B L 5.( U4J 

T I, 2, AX IT A, 01 $14)" 

B , 2 . ( $ 1 4 ) 

TI, 2, AXITA, ($14) 

B , 3 . ( $ 1 4 } 

C NO P ,_ 
~DRZ(N)"7T 

LV,"i4,ACP " 

B,AXBUK 

LV, 14, ACP 

B.AXBEE 

R _ATPBCS 
"NGP,_~_____ ~_'_~~ 

LV, 14, ACP 

TI,2,AXITB,0($14) 

B,5.($14) 

TI, 2,AXITB,C{$14) 

8, 2.( U4) 

TI, 2,AX"lfR,C($14) 



000000.04 AE 



000000.04 AE 



AXAUK 
AXAEE 

AXTfB" 



3C* 
31* 
32* 

32* 
34* 

3 5* 



222560.00 
222560.40 
222561.40 
222562.00 
222563.00 
222563.40 



224046.34 

222553.00 
000CC5.10 
222553. GO 
CO_0C_O2 J ._10 
222553. CC" 



3 
80 
OE 
80 
Gt_ 
80 



000000.04 AE 



000000.04 AE 



000000.04 AE 



AXBUK 
A xTeT ~ 
ATPACS 



20 
1? 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3€* 
39* 
4C* 



222564.40 
222565.00 
222566.00 
222567.00 
222567.40 



00CCC3. 10 
223744. 15 
223744.13 
C0CC40.1C 
C0C041.C0 



OE 
80 
80 
CO 
80 



222472.74 02 

001000.36 FO 



B , 3 . { $ 1 4 ) 

BB, ATSWCR,ATSWC4 

CM1111, ATARI 

B,$MCP 

, $RFT 



41* 

42 * 

43 * 
44* 
45* 
46* 



222570.00 

222571.00" 

222572. OC 

222572.40 

222573.00 

222573.40 



22 3744.15 
22 3744.12 
GCCC40.1G 
C0CC41.CC 
222565.35 
222545.35 



80 
"80 
CO 
80 
CI 
DO 



222474.34 02 

001000.36 FC" 



A TPBCS _ B_B ,_A T S W C R , A T S Ik C 6 
~ CMllli, ATBRI" 
B,$MCP 
,$RET 
RATPCS LVI, 14, ATPACS 

SVA,14,AXITA+4.0 



47* 
~4£* 
49* 
5C* 
51* 
52 * 



222574.CC 
222574. 4C 
00CC14.G0+ 

222575.00 
222576.00 



00CG40.1C 
00 0041. CO" 
+0CC0OOC0 

222602.00+ 
223030.00+ 



CO 
80 



B,_DMCP 
~,DRET 
SYN,12. 

ACCCRDING TO NO. CF 
CW(CR),CX,15C,CV«X 
CW(CR),CY,15C,CWY 



NULL 



COO 000226 
COO 000226 



222575 
222576 



CNUM 

CWX 

CkvY 



-THIS PARAMETER CAN BE VARIED 
LINES DESIRED IN PRINT BUFFER 
-CWS FOR BUFFERS X AND Y 
-CF=X+1. 



53* 
54* 
55* 
56* 



222577.C0 
222600.00 
222601.CC 
2226C2.CC 



_2_226C2._C6 + coo 
222602.06+ CCC 
223030.06+ CCO 



COCO 14 22 2601 
C00014 2226C1 
000014 22260C 



_OhA 

CkT 

Cbw 

ex 



** »_C X + . 6 , CN UM_, C k>_ 
~Xto,CX + .6,CNUM,CtoW 
XWiCY+.6 f CNUM, CWT 
{A*)CC{BU,6,6) f P* 



-TRANSMISSION 
-BUFFER X 
-BUFFER Y 
-BUFFER X AND 



INDEX 



RESERVATION 



TIME CLOCK 0CC54C41 



PUNID 11D11MCP 



CARD IC MA000432 



DIST. OF 3/Cl 



3/01 



PAGE NUMBER 210 



L I Mt 



LCCATICN 



BINARY OUTPUT 



NAPE 



STATEMENT 



LOCATION 



222603 



o, 
1 1 

51 
SI 
M 
91 
91 
11 
91 
61 
OS 



1* 222603. CO * 

2* 223030.00 

I* 223031. CO * 

<* OOCCCC.CC+ 



G0C225.C0 

C0C225.C0 
+0CCCC012 



NULL 



DR(N), 149 
CY ( A*)DD{BU,6,6) ,P* 

DR(N) ,149 
A CRD SYN.10 



-P-RtCCRO CONTROL CHARACTER FOR PRINT 
-X=CF IN OR(N),X WHERE 
-X=(133*6*CNLM+5)/64 

-THIS PARAMETER CAN BE VARIED 



MA0Q0432 
MA000433 
MA000434 
MAC00435 



7* 
t* 
9* 

IC* 



TO NO, 



ACCORDING 
~SYN, 15C." 
XW,C, 15.AXWZ 

XW,ACX+.6, 15C,ACWW -CF=Y 

XW,ACX+.6, 15C,ACWW ~CF = Y 

XW»_ACY+.6,15CjACVvT _-CF = Y 



OF CARDS DESIRED 
-A CRD* 15 



IN PUNCH BUFFER 



MA0C04 36 
MA000437 
MA000438 
MA000439 
MA000440 
MA000441 



CCC226.C0+ 

223256.00 

223257.00 

223260.00 

223261.00 



+0CC000C0 
CCC0CC.0C+ CCO 
223262.06+ CCO 
223262.06+ 000 
223511.06+ CCO 



NULL 
000017 223256 
000226 223261 
C0C226 223261 
CCC226 22326C 



/>CRC15 
AXWZ 
ACwA 
ACWT 

AQ_w>_ 

ACX 



II*. 
12* 
13* 
14* 
15* 
16* 



2 2 3262_.CC_ 
223263. CC 
223511.00 
223512.00 
223740.00 
223741. CC 



J_A * [D C I R U , 6 » 6 ) , C * -BUFF E R _X AN D _ Y _ RE SE R V A T I ON 

DRZ(N),15C -C-RtCORD CONTROL CHARACTER FOR PUNCH 

(A*)CC(6U,6,6) ,C* -Y=CF IN DR(N),X WHERE 

DRZ(N), 150 -Y=(8C*12*ACRD+5)/64 

CWi -COPIED CONTROL WORD FOR UK ON WRITING A BLFFER 

X W » Q F I L L , 1 3 j C X FJ L L _ _-_ X W _T _F_ I L L _ P R I N T _ B U F F E R W_I T H_ B L A N K S 



MA00Q442 
MA0CQ443 
MA000444 
MA000445 
MA000446 
MA000447 



000226.00 

0C0226.C0 
CCC0CC.00+ COG 000000 OCOCOO 
223743.04+ 000 000015 223741 



ACY 

CKERIC 
CX.FILL 

CTRAIL 



II* 

ie* 
is* 

2C* 
21* 
22* 



22_3J4_2_._C L C_ 
223743.00 
223743. CI 
223743. C2 
223743. C3 
223743. C4 



CCCCC1.0C 



___DRZ(N1»1__ _ _-_I.RA LLER _RECQRD 
CBTA DD(eUfl f 8),0 -BUFFER T INDICATOR 
ABTA DRZ(BU,1)t1 -BUFFER T INDICATOR 

ATMI CRZ(BUfl)tl -TAPE MARK INDICATOR 

ACPTRI ORZteUiDfl -OLTPLT REQUEST INDICATOR 
C_FI_LJL _<_A»)D'C{BU,6 f 6)f-_ _*__ _"REANK S _FCR_F I LL 



MA00044U 
MA000449 
MA000450 
MA000451 
MA000452 
MA000453 



CCCCC0.C1 
00CC00.G1 
CCCCC0.01 



23* 223744.C6 
2<* 223744.07 
223744.10 
223744.11 
223744.12 



C_B_M_ 
AEWA 
APPERR 
CATUB 

ATBRI 
ATARI 



DD{By t i,ei,c 

DRZ(BU, 1), 1 
DRZ(BU, 1), 1 
DDIBU, It 1)« 
DRZ(BU, 1), 1 
DD(_By L ll t C_ 
DRZ{BU, 1),1 



- B UF F ER W I N D I C A T R _ 
-BUFFER W INDICATOR 

-TAPE USAGE INDICATOR 



^000454 
MA000455 
MA000456 
MA000457 
MA000458 
MA000459 



25* 
26* 
27* 

26* 



0CCCC0.C1 
CCCCOO.Cl 

C0CCC0.C1 



223744.13 








2S* 
3C* 
31* 
32* 

33* 
34* 



223744. 14 
223744.15" 
223744.40 
223745. CC 
223745.40 
223746. CC 



_P C_QCC_0_._C i.1 
C0CC00.C1 
CCG0C1.C0+ 
CCC0C1.C0+ 
CCCC12.C0+ 
CCCOCC.O0+ 



A EC J I 

AfSKCR 

CCX 

AACX 

AUKCT 

AWRCT 



-tOJ INDiCATCR 



MA000460 
MA000461 
MA000462 
MA000463 
MA000464 
MA000465 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



35* 

it* 

37* 
3£* 
3?* 
4C* 



223746. 4C 
223747. CC 
223747.40 
223750. CC 
223751. CC 
223752. CO 



CCOOCC.CC+ 
CCCCCC.CO+ 
CCCOCC.OO+ 
223262.00+ 
223511. CC+ 
223742. C0+ 



CCC C0C227 22375C 
COO 000227 223751 
CCO CGC001 223752 



AESPCT 

AEFCT 

ATSWKE 

ACW1 

ACW2 

_QJ_R ___ 
CXR7 



DRZIRU, 1) , 1 

VF,1. 

VF,1. 

VF,10. 

V F_, C 

_VJLt_C___ 
VF,C 
VF,C 

CW(CR),ACX,151,ACW1 
CW(CR),ACY, 151,ACW2 
CW(CR) f CTRAIL, 1, CTR 



-TAPE SWITCH REGLEST INDICATCR 
-OUTPUT BUFFER POINTER 
-OUTPUT BUFFER POINTER 



___rBA p _»J_ R J»_i> 
-b_S_P__R_ETRY 
-WEF RETRY 
-STOR. FOR 

-CF=Y+1. 

-CF=Y+1. 

-CW FOR TRAILER 



RETRY COUNTER 

COUNTER _"_ 

COUNTER 

WEF TBL. CF EXITS 



RECCRD 



MAC0C466 
"MA000467" 
MA000468 
MA000469 
MA00047O 
MA000471 



4 i* _ 2 2 3 7 5 3 _. C C C_C_C_0_CC_._0_0_ + _ _C _CCCOgO_ C C C C_ 

42* 223754. CC CCCOCC.OO+ CCO COCOOO GCCCCC 
42* 223755. CC CCOOCC.OC+ CGO COCOOO OCCCOO 
44* 223756. CC * CCC0CC.OO+ COO COOOOO OCGOOC 
45* 223757.00 CCCOCC.OO+ COO COCOOO OCGOOO 
46* 22376C.CC CCOOCC.OC+ CCO COOOOO GCCCCC 



XW 
XW 

XW 
XW 
Xw 



- DUMP H 0_L_D_ FOR _ I 
-N 
-D 
-E 
-X 



MA000472 

"MA000473" 

MA000474 

MA000475 
MA000476 

MA000477 



47* 
4£* 
49* 
5C* 
51* 
52* 



22 3761. CO 
223762. CC 
223763.00 
223764. CC 
223771. CC 
223776. CC 



_Q.QP_0_OC. C C_+ CCO 
CCCOCC.CO+ CGO 
CCCOCC.OO+ CCC 



cooppp_ OCCCOO 
GOCCOC OCCOCO 
COCOOO OCCCCC 



XW 

XW 
CXR15 XW - X REGISTERS 

ASERR { A* )CD(BU),-JC8 TERMINATED - ERROR IN OUTPUT CALLIN* 
(A*)DD{BU),G SEQUENCE * 

(A*)DPiEU)j_ * 



MA000478 
MA0004 79 
MA000480 
MA000481 
MA000482 
MA000483 



53*_2 24CC3_._CC_ 
54* 224GC5.CC 
55* 224CC5.10 
56* 224CC5.2C 



A2FMC 
AOFMC 
A1FMC 



LA*1DC1EU), 

{ IQS*)DC(EU),2* 
( IQS*)DD(8U},C* 
( IQS*)CC(BU),1* 



MA0004o4 

~MA0004S5~ 

MA000466 

MA000487 



KSI 



1 IME CLOCK CCC54C41 



PUNIC 11C11MCP 



CARD IC MA000488 



CIST. CF 3/ CI 



3/01 



PAGE NUMBER 211 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LCCATICN 



224005 



1* 224005.30 * 
2* 224006.30 
I* 224CC7.4C 
1?_?24C1C._C_C__ 
Ii*„224C_12_._0_0_ 
6* 2 240 14. CO * 
1* 224G17.CC 
£* 224023.40 

1C*_224C25_._0_C_ 
II* 224031. CC * 



00CCC0.3C 00 



CCCCC3.CC 



C0GCC1.C0 



APHYM 
ALCGM 

AN F M S 

alnkms 

CMESS1 



APGKM1 
AEPGKM 



{ IQ 
( IQ 
CNO 
(IQ 
"( IQ 
DRZ~ 
( IC 
( IG 
CNO 
( IC 
DRZ 



S*)0C 
S*)CC 

p 
s*icc 

S*]CC 

(N),3 

S*)DC 

S*)CC 

P 

S*]CC 

(N),l 



(BU) .PHYSICAL* 
(BU), LOGICAL * 

(EUJjDAJA FAILURt ON * 

( BU ) jUNlT FA auRj. ON *[ _ _ __ 

(BU), THERE ARE FILE MARKS ON 
(BU),END OF TAPE * 

( EUjjIjSISERT A RING IN OUTPUT TAPE ON * 
UNITS 



MA000488 

MA000489 

MA000490 

MA000491 

MA000492" 

MA000493" 

MAC00494 

MA000495 

MA000496 

MA0C0497 

MA000498 



12* 
12* 
14* 
15* 
16* 



224032.00 
224C32.4C 
224033.00 
224C33.40 



CCC013.0C+ 
CC0013.0C+ 
CCC014.00+ 
CCCCCC.0C+ 



AMR 

AMR1 

AMR2 



SYM 
VF, 
VF, 
VF, 
VF, 



ecLic 

CT11 
CT11 
CT21 



MA000499 
MA000500 
MA000501 
MA00C502 
MA000503 



17* 
It* 
1?* 
2C* 
21* 
22* 



OUTPUT PSEUDO-OP 

TI,9,$7,CXR7 

6BZ,AE0JI,CDRY1 

CMU11(BU,1) ,AOPTRI 

B,ARET 

BB f CATUe,$ -IF SPOOL 



MAC00504 

MA000505" 

MA000506 

MA00Q507 

MA000508 

MAC0C5C9 



224C34.CC 
224035. CO 
224036.00 
224037.00 
224C37.4C 



C00C27. 
223744. 
223743. 
222144. 
223744. 



CC 
14 
C3 
IC 
11 



30 
80 
80 
CC 
80 



223753.22 AC CORY 
224037.74 06 
001000.36 FO 

224037.74 02 CLRY1 

^222146.34 00 ___"___!_ 

001100.36 FO 
001100. CC FC 
001000. CO FO 



-NO 



-IS EOJ INDICATOR ON 
TURN ON OUTPUT REQUEST INDICATOR 



TAPE BUSY WAIT 



2 |» 

2'* 
25* 
26* 
21* 
26* 



22404 C_. 40 
224C41.4C 
224042.00 
224043. CC 
224044.00 
224C45.0C 
22404 5. 4 C 
2240A6.CC" 



2 2 22 5 7. 
"22 376 3": 
223744. 
223742. 
223743. 
222 320. 

'_ _2 2_ 2 A°A- 
CCCOCC.OC 



23 
3 7 
11 

05 
02 
3 7 

IC 

+ 



80 

IC 
80 
80 
80 
CI 
CO 



ti_7.fi 
SX, 
CM1 
CMO 
CMO 
LVI 



,CXY+.19 1 ARET1 -IF HAVE NEW TAPE, RETURN 

$15, CXR15 " -SAVE INDEX 

lll.CATUB -MAKE TAPE UNAVAILABLE 

C00(EU,1,1) ,CTRAIL+.C5 -PHYSICAL AND LOGICAL 

COO,ATMI -ONE TAPE MARK TC BE WRITTEN 

,S15,CRET _ -LOAD I_NDE_X_WIT_H EXIT 

T SWC 3 " " ' " " -GO To" TAPE Shi TCH " " " 



END OF TAPE 



MAOC0510 

MA0005II 

MA000512 

MA000513 

MA000514 

MA000515 

MA000516" 

MAG00517 



29* 
~3C* 



fi,A 
VF, 



ACP 







20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 





TIME CLOCK C0054C41 PUNIC 


11D11MCP 


CARD 


ID M8000CC1 DIST. CF 3/C1 3/01 PAGE NUMBER 212 






LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT LOCATION 






1* 
2* 
2 * 


224046.31 * 






* 




********** THE DISABLED SPOOL SHORT MESSAGE ROUTINE ********** 
— #»♦»#***********#»*#-»♦*«**#«****«»»«***»»»»****»********************** 
SLC,$ 


M8000001 
MB000002 
MB000003 
MB000004 




l * 


224046.40 


224C62.C1 


10 






Z SPL PR 


SX,C,Z SAV IX 


MB000005 




d* 
7 * 
6* 
S* 
1C* 


224047. CC 
224047.40 
224G5C.CC 
224050.40 
224051. CO 


224063.03 
224052.00 
000000.41 
224053.01 
C0CCCC.41 


10 
30 

CD 
CO 
CD 








SX,1,Z SAV IX+l.C 
LV,C,Z SPL P9 
V-If 0..32 
SVA,0,Z GET NM 
V-I,C, .32 


M8000006 
MB000007 
MB000006 
MB000009 
MBOOOOiO 




11* 


224051.40 


224C61.41 


CO 








SVA.0,7 SPL PX 


MB00C011 




12* 
12* 
14* 
15* 
16* 

n* 

IE* 
IS* 
2C* 
21* 
22* 


224052. CO 
224052.40 
224053.00 
224053.40 
224054. CC 
224055.00 
224056.00 
224056. 4C 
224057. CC 
224C57.40 
224060. CC 


OOCCCO.Cl 
224C55.C1 
0CCCCC.C3 
C0CC21.C2 
224104. CC 
COCCOC.CC 
215265. CC 
215510.04 
000103.40 
224C64.00 
CCCCC1.C0 


BO 
DO 
BO 
50 
80 
80 
80 
CO 
80 
80 
8 


224103.01 
224064.02 


AO 
20 


Z SPL P9 
Z GET NM 

Z TRANS 


LVE, 0,0.0 

SVA,0,Z TRANS 

LVE, 1,0.0 

LC, 1,$1 

TBI, 16, Z LST OF,Z LST BF-1.0 

T,1,0.C,Z MSG BF 

SIC, STIC 

ECS IFAC 

,D SPR 

, Z MSC BF 

, l.C 


MB000012 
MB000013 
MB000014 
MB000015 
MB000016 
MB000017 
MBOOOOia 
ME000019 
MB000020 
MB000021 
MB000022 




22* 


224060.40 


224062. CC 


10 








LX,C,Z SAV IX 


MB000023 




2<* 
25* 
26* 
21* 

26* 


224061. CC 
224061.40 * 

224062.00 * 
224064. CC 


224C63.C2 
CCCC00.04 

C0CCC2.C0 


10 
CO 






Z SPL PX 

Z SAV IX 

ZMSGBF 


LX,1,Z SAV IX+l.C 

BD.C.C 

CNOP 

DRZ(BU,64,8), 12) 

(AX)DO(BU), X 


MB000024 
MB000025 
MB000026 
MB000027 
MB000028 




2S* 


224C65.00 












(AX)DC(BUl, X 


MB000029 




3C* 
31* 
32* 

32* 
34* 
35* 


224066. CC 
224067. CC 
224C7C.0C 
224071.00 
224072.00 
224073. CC 












(AX)DD(EU), X 
(AX)CD(BU), X 
(AX)DD{fiU), X 
{AX)DC(BU), X 
(AX)DD(EU), X 
(AX)DD(BU), X 


MB000030 
MB000031 
MB000032 
MB000033 
MB000034 
MB000035 
MP000036 
MB000037 
MB000038 
MB000039 
MB000040 


20 
19 
18 


36* 
37* 
3£* 
3S* 
4C* 


224074. CC 
224075.00 
224076.00 
224C77.CC * 

2241CC.0C 












UX)DD(BU), X 
(AX)DC(BU), X 
(AX)DD(BU), X 
(AX)DD(BU), X 
(AX)DD(BU), X 


17 


41* 


2241C1.CC 












(AX)DDIBU), X 


M8000041 


16 
15 

14 
13 
12 


42* 
42* 
44* 


2241C2.CC 
224103. CC 
224104. CO 










Z LST BF 


(AX)DD(BU), X 
(AX)DD{BU), X 
(AX)DD<BU,64,8) , X 


M8000042 
MB000043 
MB000044 


11 

10 
9 
8 
7 
6 
5 
4 
3 
2 
1 
















» 






wai 



1 IMfc CLCCK CCC54C41 



PUMO 11C11MCP 



CARC ID CAOOGOC1 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 213 



LINE 



LCCATICN 



BINARY OUTPUT 



NAME STATEMENT LCCATICN 



1* 
2 * 
2 * 
_f*_2241C5_._CC_ * 

" ~ t * ~ c c c c o". VoT ~ 
i* OCCCCC.CC+ 
£* 777777.40+ 
c >* 777777.00 + 

1C* 0OC0O2.00+ 



#********* THE INPUT PROGRAM *********** -0038 

— ******«*«**«*******************««******•******««**«•**•*«*«***«— 0039 * 



+CCCCCCCC 
+CCCCC040 
+OCCCCCCO 
+CCCOOCCC 
+OCCOOOCC 



NULL 
NULL 
NULL 
BU»10Cf 10 

NULL 



SLC,§ 

~F~ '"" "~SYN^32 
H SYN,32 

XXRG SYN, 262143. V H 

Ml SYN(BU f 64) f 262143. 



-0040 
"-0041 
-0043 
-0044 
-0045 
-0046 



FCC SYN, 2. -NO. OF REMAINING JOBS ON RT WHEN TS REQUESTED -0047 



0A000001 

0A0C0002 

OA000003 

0A0C0004 

OAOOOOOY 

A 00 0006 

0A000007 

OA000008 

OA000009 

OAOOOOIO 



11* OCCCCC.CC+ 



_+q_ccqqqcq 

+CCCCCCCO 
+0OCCCO00 
+CCCOOOCO 
+OCCCCCCO 

+_c_ccccccq 
_+_o_c_c"c"cqco" 

+OCCCGCCC 
+OOCGOCCO 
+OCCC00CC 
+CCC000C0 

_+cccqo_occ 
+oc"cqo_c_cc 
+ccccccc~o 

+CCCCCOCC 
+OCCOOCCC 
+OCCCCOCO 
_+OCCCOCCO 

j^JPAQcpocjo 
+cocoo'c"cc" 

+OCCOOOCC 
+C0C0OCC0 
+00C00O00 
+CCCCC0CC 
+OCCCOCCC 



NULL V X _SYN L 0_ 

NULL ~ V XI """ SYNtV X.V H 

NULL V X2S SYN,V XI. V H 

NULL V X2R SYN,V X2S.64 

NULL V CWR SYN.V X2R+2. 

NULL V__NX__ SYN,V CwR.64 

NULL V _{£___' lSYN t V NX.V_H^ 

NULL V" SU '" SYN t V"lC-V"H 

NULL V RQB SYN,V SU.V H 

NULL V RCNT SYN,V RCfi.V H 

NULL V FCNT SYN.V RCNT.V H 

NULL ^ V _A TR __ A YN iy FCNT.V H 

NULL' _V__T_S" S_ Y "NtV"STR.V^H/ 

NULL V FCNX SY~N,"V TS.VH 

BU, 100,10 V U SYN,$3 

BU,1CC,1C V P SYN,$1 

BU.1CC1C V Tl SYN,$4 

§ u i l CC,10 V T5 SYN,$9 

" B U , 1 CO ", 1 0~ _ _V_ 12 _ ' _S V N ♦ $ 6 

BU,1CC,1C V ~T3 SYN,$7~ 

BU,1CC,1C V T4 SYN, $8 

BUtlCCilO V SI SYN, SIC 

8U,1CC,10 V S2 SYN,$11 

BU,1CC,1C V_ _G_1_ SYN,S2 

BU,1CC,I0 ~ V Q2 STNTtlJ'" 



-0048 _ 
-0049" 
-0050 
-0051 
-0052 
-°053 
-0~0 5_4 " 
-0055 
-0056 
-0057 
-0058 
- 5_9_ 
-0060* 
-0061 + 
-0062 
-0063 
-0064 
-0068 
•006 5 
■0066 
-0067 
•0069 
0070 
•0071 
-0072 



OAGOOOU 
CA0C0012 
OA000013 
OA000014 
0A000015 
GA00C016 
0A00001 7 

oao Cools 

OA000019 
0A000020 
OA000021 
OA000022 
CA000023" 
0A000024 
0A000025 
OA000026 
0A000027 
OA000028 
~0Aq00029~ 
"CA000030 
OA0C0031 
OA000032 
0A000033 
0A000034 
"0A0000 35 



12* 00CCGC.4C+ 
12* 00C0C1.C0+ 
14* 000002.00+ 
15* CCCC04.GC+ 
16* _ C C C C5_. 0_C_+ 

"17* qq ccc 5.4 o_+" 

"iei~00C006.0C+~ 
IS* 000006.40+ 
2C* O0CCG7.CC+ 
21* 000007.40+ 

22 *_qocc io. qc_+_ 

22 * __OCCC 1C^4C + 
2** 0CCC11.C0+ 
25* 00CC23.0C+ 
2t* 00C021.0C+ 
27* 000024. CC+ 
2£*_0CCC31_.Cp+_ 
2<* 000026^.00 + 

"30*000027.00 + 
3J* 00C03C.CC+ 
32* 000032.00+ 
32* 000033.00+ 
34*_CCCC22. 00 + 

"35* 000035. CC + 



36* 


CCCC36.C0+ 


+CCCCCOCC 


8U.1C0 


rlO 


V 


C3 


SYN,$14 




-0073 


0A000036 


37* 


000025.00+ 


+CCCCOOCO 


BU,1CC 


rlO 


V 


G4 


SYN, $5 




-0074 


0A000037 


36* 


OOCCOC.CG+ 


+0CC0C0C4 


NULL 




V 


UB 


SYN,4 




-0075 


OA000038 


3c» 


000001 .40+ 


+0CC00CCG 


NULL 




V 


RA 


SYN, 1.32 




-0076 


OA000039 


4C* 


0CCCC3.GC+ 


+COCCOOCC 


NULL 




V 


PAR 


SYN,3. 




-0077 


0A000040 


41* 


000002.40+ 


+CCCOOOCO 


NULL 




V 


POP 


SYN,2.32 




-0078* 


OA000041 


*i£ * 


224105. CC 












SLC,$ 




-0079 


0A00C042 


4i * 














CNOP, 




-0080 


0A000043 


44* 


224105.00 






03 


V 


VSCR 


DD(BU,4),3,1 




-0081 


0A000044 


45* 


224105.04 






CI 












0A000044 


46* 


224105. 1C 













CD(BU,3),C 




-0082 


OA000045 


4** 


224105. 13 






2 






DD(BU,2),2,2 




-008 3 


OAC00046 


4£* 


224105. 15 






2 












0A000046 


4S* 


224105.17 




OOOOCCCCCO 






DD( eu,3C),o 




-0084 


0A000047 


5C* 














EXTCO, 18) 






OA000048 


51* 


224105.55 




0451074 






BE,V SCR 


-0085 




0AC00048 


52* 


2241C6.00 




OOOOCCCOOOO 






DD(RU,32),,,,,, 




-0086 


OA000049 


5 1 * 


224106.40 




OOOGOCCCCCO 












OA000049 


54* 


2241C7.CC 




OOOOOCCCCCO 












GA000049 


> ^ * 


224107.40 




OOOGOCCGOCO 












0A000049 


56* 


224110.00 




OOOOOCCCCCO 












OA000049 



wai 



20 
19 

( IB 
17 
16 

( 15 
14 

la 

12 

n 

10 
9 
8 
7 
6 
5 
4 
3 
2 



1 IME CLOCK CCC5 

i __ 


4 04 1 PUN ID 


11C11MCP 


CARD 


10 


CA000049 CIST. OF 3/C1 : 


3/01 PAGE NUMBER 


214 




LINE LCCATICN 




BINARY OUTPUT 




NAPE 


STATEMENT 


LCCATICN 


224110 




1* 


22411C 


.40 








OOOOOCOCCCO 












CA000049 


2* 


224111 


.CO 










02 


V 


VSKM 


DC(RU,4),2,1 -2 PARAMETERS, ENABLED SIC ENTRY 


-0087 


OA000050 


2 * 


224111 


.04 










01 












OA000050 


i* 


224111 


. 10 

















DD(fiU,3),C 




-0088 


0AG00051 


I * 


224111 


.13 










2 






DD(EU,2),2 f 




-0089 


0A000052 


6* 


224111 


.15 























OA000052 


i* 


224111 


.17 




. 




oooocococo 






CD{ BU t 3C ),0 




-0090 


OA000053 


t * 




















EXT<0,18) 






OA000054 


9 * 


224111 


.55 










0450310 






BE,V SSKOM 


-0091 




0A000054 


1C* 


224112 


.CO 








OOGOOCCCCCO 






CC(PU,32),,,,, 




-0092 


OAC00055 


11* 


224112 


.40 








OOOOCCCCCCO 












0A0C0C55 


12* 


224113 


.00 








OOOCCCCCOCO 












OA000055 


12* 


224113 


.40 








OOOOOCCOOCO 












OA000055 


14* 


224114 


.00 








OOOOCCCCCCO 












OA000055 


15* 


224114 


.40 


225232. 


• CO 


CO 






V 


XCRG 


BE,V CR 




-0093 


OA000056 


It* 


224115 


.00 * 


CCCCC2. 


CO 








V 


CREXT 


DRZ(B,64),2 




-0094 


0*000057 


17* 


224117 


.CO 


23C363, 


40 


80 










SICRKS BRC 






0A000058 


IE* 


224117 


.40 


227524. 


50 


CO 










E,RKS UK 


-0095 




OA000056 


19* 


22412C 


.00 


224114. 


46 


30 










LV,V U,V XCRG 






0A000059 


2C* 


22412C 


.40 


777777. 


50 


03 










B,-.32(V U) 


-C096 




0A000059 


21* 


224121 


.00 


224114, 


.46 


30 










LV,V U f V XCRG 






OA000060 


22* 


224121 


.40 


224171. 


10 


CO 










BiV RDCSS 


-CC97 




OA000060 


22* 


224122 


.CO 


224114. 


46 


30 










LV,V U f V XCRG 






0AO00061 ] 


2'* 


224122 


.40 


777777. 


10 


03 










B,-1.(V U) 


-0098 




OA000061 


25* 


224123 


.00 


COCCCO. 


30 


CO 










NOP, 




-0099 


0A000062 


26* 


224123 


.40 


225312. 


CO 


CO 






V 


XwRG 


BE,V ST 




-0100 


OA000063 


27* 


224124 


.00 * 


000002. 


CO 








V 


bTEXT 


DRZ<B,64),2 




-0101 


OA000064 


2£* 


224126, 


,CC 


230363. 


40 


80 










SICRKS BRC 






OA000065 


29* 

3C* 


224126 
224127 


.40 
.00 


22 7 524. 
224123. 


50 
46 


CO 
30 










B,RKS UK 
LV,V U,V XWRG 


-0102 




0A000065 




OA000066 


31* 


224127 


.40 


777777. 


50 


03 










B,-.32(V U) 


-0103 




OAC00066 


32* 


22413G, 


.00 


000006. 


23 


01 










LVI.V T5,V hi? 






CA000067 


33* 


22413C 


.40 


224757. 


50 


CO 










B,V TCSP 


-0104 




0AC00067 


34* 


224131 


.00 


224123. 


46 


30 










LV,V U,V XWRG 






OA000068 


3i* 
36* 


224131 
224132. 


.40 

.00 


7 7 77 7 7. 

CCOCOO, 


10 
30 


3 
CO 














B.-l.lV L) 

NOP, 


-0105 


-~oTo 6~ 


OA000068 
CA666069~~ 


37* 


224132. 


.40 


CCCC04. 


CO 


CO 






V 


XRRG 


BE,V RTP 




-0107 


OA000070 


3t* 


224133, 


.00 * 


C0CCC2. 


CO 








V 


RTEXT 


DRZ(BU,64),2 




-0108 


0A000071 


3?* 


224135. 


.OC 


23C363. 


40 


80 










SICRKS BRC 






OA000072 


4t* 


224135. 


.40 


227524. 


50 


CO 










B,KKS UK 


-0109 




0A000072 
OA000073 


41* 


224136. 


.CO 


224132. 


46 


30 










LV,V U,V XRRG 


42 * 


224136, 


.40 


777777. 


50 


03 










B,-.32(V U) 


-0110 




OA000073 ] 


42* 


224137. 


.00 


CCCCC4. 


23 


01 










LVIiV T5,V RTP 






OA000074 


44* 


224137, 


.40 


224757. 


50 


CC 










B f V TDSP 


-0111 




OA000074 


45* 


22414G. 


.00 


224132. 


46 


30 










LV,V U,V XRRG 






OA0000 75 


4£* 


224140. 


.40 


777777. 


10 


03 










B,-l. (V U) 


-0112 




OA000075 


47* 


224141. 


.00 


224133. OC 


+ OCO 


COGOOO 


OCOCOC 


V 


XGX 


XW,V RTEXT 




-0113 


OA000076 


48* 


224142. 


.CO 


224115. OC 


)+ CGC 


COCOOO 


OCCCCC 






XW,V CREXT 




-0114 


OA000077 


49* 


224143. 


.00 


224124. OC 


)+ OCO 


000000 


OCCCCC 






XWfV WTEXT 




-0115 


GA000078 


5C* 


224135. 


00 + 


-OCCCOOCO 




BU, 


,30 ,10 


V 


XG 


SYN,V XGX-V RTP 




-0116 


OA000079 


51* 


224144. 


00 


224114. 


07 


BO 






V 


SSKOM 


LVE.V U t V VSKM+V PAR 




-0117 


OAOOOOtfO 


52* 


224144. 


40 


224112. 


40 


3 










LV, ,V VSKM+V RA 




-0118 


0A000081 


53* 


224145. 


CO 


225427. 


02 


10 










LX,V P,V PD 




-0119 


0A000082 ] 


54* 


224145. 


40 


COCCCO. 


CO 


81 










SIC, ( V P) 






0A000083 


55* 


224146. 


CO 


224150. 


3 


48 










CB+,V P,V DISP 


-0120 




0A000083 


56* 


224146. 


40 


224112. 


41 


3 










SV, i V VSKM+V RA 




-0121 


OA000084 



Hfil 



1 IME CLOCK 0G054041 
" L I N ~E " " ~ L C A Tl"CN 



PUNIC UC11KCP CARD ID CA00C085 

e i nary" cut puT " "K" a"k t " 



UIST. GF 3/C1 
"STATtMENT - " 



3/01 



PAGE NUMBER 215 
L OC A TlON 2 24 f 47 



6 
01 
II 
l\ 
£1 

51 
91 
Z! 



1* 

2* 

2 * 



224147 
224147 

22415C 
224150 



.00 
.40 
.00 * 

.40 



C0C040.1G 
000041.00 
224154.50 

225C10. 5G 



CO 
8 
03 
00 



fi,D MCP 
, D RET 



•0122 



V DISP 

V CFFON 



BtV 

B,V 



BYP{ 
CNLI 



V U) 

N 



0123 
0124 
■012 5 
•0126 
•0 127 
-0128 
•0129 
•0130 



OA000085 
OA000085 
OA000086 
OA000087 



: * 
~i* 
i * 
t * 
c , * 
1C* 



224151 
224151 
224152 
224152 
224153 
224153 



-CjC_ 

.40 
.CO 
.40 
.00 
.40 



5C 
5 



225032. 
224226. 
224545. 10 
225103.10 
225203. 5C 
224272.50 



CO 

CO 
00 
CO 
CO 



B L V 
"B,V 
B,V 
B f V 
B t V 



CFFLI 
EQFN" 
OEDJ 

bypa: 

SREW 
SCR1 



12* 
12* 
14* 
15* 
16* 
1<* 



224154 
224154 
224155 
224155 
224156 
224156 
2 24157 



•_0_C_ 

".40 

.00 

.40 

.00 

.CO 



22 4 242.50 
22 5151. 10 
225136. 10 
224221.50 
224533. 10 
224160. 10 
224157.50 



CO 
00 
CO 
00 
GO 
CO 
CO 



V BYP 



B L VSCAN_ 
"BfV "ON LI 



B,V 

8,V 
B,V 
Bt„V 
B,V 



OFFL 

EQFB 
BECJ 
BSTR 
NOP" 



T 



-0132 
-0133 
-0134 
-0135 
•0136 
: 013 7 



OAO 00088 

0A000089 

QA000090 

OA000091 

0A000092 

0A0C0093 

OA000094" 

0A000095 

0A000096 

0A000097 

0A000098 

OA000099 

OAOOOIQC 



It* 
IS* 
2C* 
2J* 
22* 
22* 
2<* 
25* 
26* 
21* 
2fc_* 
2S* 



224157 

22416C 

224160 

224161 

224161 

224162- 

224162" 

224163 

224163 

224164, 

224164 

224165", 



40 

CO 

40 

CC 

40 

CO 

4 0" 

CC 

40 

CO 

40 

CC" 



51 
C7 
CI 
10 



777777. C3 
224157.51 
224154 
225232 
CO CO 1 
22 4 65 5 
225427. C 2 
OOCCCO.CC 
224633. 5C 
224177.55 
_C_0_C_C_00_._23_ 
22 4166.71 



C9 
01 
03 
01 
05 
GO 
10 
81 
00 
DO 
C_5_ 
"4 



V NOP 

V BSTRT 



V RDEE 



CB-, 
LVI, 
SVA, 
LVI , 
V + I ,_ 
B_,~V _ 
LX, V 
SIC, 
BfV 
SVA, 
V+l :_,_ 
"B"ZXV 



V P, 

V Tl 

V Tl 

V U, 

ACT_ 
~P,V 
(V P 
EE 

V T2 

V T5 

z","v 



V M1(V P) 
iV NOP 

f V BYPCV U) 

V CR 



PU 



) 

,V REE1 

tC 
REE7 



•0147 



3C* 
31* 
32* 

32* 

34_* 
35 * 



224165, 
224166, 
224166, 
224167. 
224167, 
224170, 



40 
CO 
4C 
CC 
40 
CO 



224177.63 
225232.62 
COOOOO.CC 
224456.43 
225232.07 
224171. 23 



DO 
30 
81 
48 
01 
"80 



224207.34 OC 



SVA,V T5,V REE1 
LV,VT5,VX1+VCR 
V REE7 SIC, (V P) 

CB+.V P,V NXT 
LVI,V L,V CR 
BZB1,V" "CSAWtV REE3 



-0138 
-0141 
-0142 
0143 
-0144 
-014 5 
-0146 



•0148 
-0149 
■0T50 
•0151 



0A000101 
OA000102 
OA000103 
OA000104 
OA0001G5 

"OA000106" 
GA0001G7 
OA000108 
OA000108 
OA000109 
CA00 0110 

"0A000111 



-020 



-0153 



-0154 
-0T5 5" 
-0156 
-0157 
-0158 



-0160 
-0 16 1 
-0162 
-0163 
-0164 



OA000112 
0A000113 
0A000114 
0A000114 
OACC0115 
"OA000116 



20 
19 
18 
17 
16 
15 
M 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3 J * 
3S* 
4C* 
41* 



224171 
224171 
224171 
224172 
224172 
224173 



.CC 

23 + 
,40 
.00 

40 

:co " 



224450. 5C 
+OCCOOCCC 
225427.02 
CCC040.10 

A C A C _ C :2_*_ C 1 G _ 

C00C06.C1 



CC 

10 
00 

80 
03 



BUfOl ,10 



V RDCSS 

V CSAW 



EiV 
SYNC 
LX, V 
B,D 
, D C 
"LVE, 



),V RCCSS.19 
PD 



RTN 
BU, 1 
PiV 
MCP 
Cw_ 
,V Sl(VU) 



-0159 



42* 
42 * 
44* 
45* 
46* 



224173 

224174. 

224175 

224176 

224177. 

22417 7", 



40 
00 
CC 
OC 
CO 
40" 



224646.00 
224646.22 
224171.23 
224372.32 
22 5232. C 7 
CCCCC0.15" 



80 
80 
80 
80 
01 
Gl" 



224157,74 CO 
000000.34 04 
0C10OC.C0 FO 



V RDCSX 

"v~"r"e"e"i " 



,V EE1 

BZB,V EE1.18,V NCP 

BZBZ,V CSAW, 

CMOCOO,V EOFX 

LVUVUtVCR 

LVI ,V T2,C 



-0 2 1 

: 019 



0A000117 
OA000118 
0A000119 
CA000120 
0A000120 
"OA00Cr2l" 
"OA000I22" 
OA000123 
OA000124 
OA000125 
OA000126 



47* 
4 6* 
4S* 
5C* 



-0165 



0A000127 

"0A000128" 

0A000129 

OA000130 



224200.00 
2242CC.40 



224203.31 42 
C0C0C0.55 33 



BXVZ,V REE4 
SV,V T2,V XKV 



U) 



-0166 
-0167 



wai 



IIME CLOCK 0CC54C41 
L IN E " " ~ LCC ATI CN 



PUNID 11011MCP CARD IC CA000132 CIST. Of- 3/C1 
Ef NARY" OUTPUT NA>7e "STATEMENT" 



3/01 



PAGE NUMBER 216 
LCCATlW "224201 



E 
V 
9 
9 
L 

Q 

6 

01 
I I 
SI 
E! 
f 1 
Si 
91 
L\ 
81 
61 
OS 



1* 

2 * 

3 * 

L * 



224201.00 
224201.40 
224202. CO 
224202.40 



IV 
7* 
t* 
S * 
1C» 



2 24 203. CO 
224203.40 



CCCCC0.16 33 

224202.70 C2 

000042.17 CD 

C00CG5.5C G3 

CO.CC 00.5 5 33 

2~24655.10 CC 



V REE4 



224204 
224207 

224207 



.00 
.00 
.4C 



224210.23 

_2_2 4_.56._5C 

224171.23 



09 
CO 
80 



V REE6 

V REE3 



LV,V T3,V X(V U) 
BXVLZ,$.64 
V-ItV T3,34. 

b,v _ig( v c) 

S__V_T__V_X1(V__J) 

E,V ACT 

CNOP, 

( IQS*)CC{BU, 8,8) , SERVICE THE CARD READER 

LVNI,V T5,V EtS 

E,V NXT 



■0168 
•0169 
■0170 
■0171 



0A000132 
0A000133 
OA000134 
OA000135 



■oil? 

-0173 

0174 

-0175 

-0176 

0177 



A 000136 
GAOOG137 
0A000138 
0A000139 
0A000140 
0A000141 



11* 
12* 
12* 
14* 
15* 
16* 



22421C 
224211 
224211 
224212 
224212 
224213 



.CO 
.40 
.CC 
.40 

• CC 



224215.74 CC 



V EES 



225250. C7 
224216.32 
225255.11 
224324.51 
224216.32 



04 
CO 
80 
04 
C2 



_BZB?_y_C 
KVI , V I 
BZXE,V 
LVE,V T 
KVI , V T 
BXEtV_E 



SAV»tV_EES_l 

tV SC 

EES2 

l f V NX+V SC 

liV WQ 

ES2 



-0178 
-0179 
-0180 
-0181 
-0182 
•Q183 
-0184 



-0186 
-0187 

-0188 



OA0qC142 
0A000143 
OA000144 
OA000145 
QA000146 
0A000147 



II* 

ie« 
i<* 

2C* 
21* 
22 * 



2 242J3 
224214 
224214 
224215 
224215 
224216 



ACL 
CC 
4C 
00 
40 
CC 



_2_2_4 
CCC 
224 
225 
224 
224 



2_1_0.__3 
CCO.CC 
456.43 
250. C7 
671.43 
372.32 



22* 
2** 
25* 
26* 
21* 
2£* 



224217 

224217. 

224220 

224220, 

224221, 

224221, 



CC 
40 
OC 
4C 
CC 
40 



_„J3CC 

CCC 

2242C 

CCCOC 

224 

224 



C4 .10 
04 3. 4 C 
4.00 + 
3 

671.43 
171.23 



C? 
81 
48 
01 
C8 
80 
00 
30 



C8 



224215.74 02 



V EES1 

V EES2 



LyNi_y_ 

SIC,(V 
CB+.V P 
LVI,V U 
CB-,V P 
BB,V EC 



T5_V EE_S_ 

P) 

iV NXT 

, V SC 

,V SETX 

FX,V EES1 



•0185 



_B »_D__C_ 
,D" CGHH 
VF,V RE 
CF,3 
CB-.V P 
BZB,V C 



OAoqqi46_ 

0AC00149 
0A000149 
OA000150 
0A000151 
0A000152 
0AQC0153 
0A000153 
0A000154 
0A0G0155 
0A000156 
0A000157 



-0189 



80 224157.74 OC 



V ECFB 



29* 
3C* 
31* 
32* 
33* 
34* 



224222, 
224223, 
224223, 
224224, 
224224, 
224225, 



40 
CC 
40 
CO 
40 
CC 



_22 5 
22 4 
22 5 

COC 
224 

000 



3_7_6_-_5C_ 
157.71 



30_ 
40 
10 
3 7 
40 
05 



Lv»_y Tl 

BZXVZ,V 
LX,V T3 
LV,V Tl 
BZXVZ.V 
V+I, ,V 



E6 

,V SETX 
SAfc.y NOP 
,V Xl+V E 



-0190 
-0191 
-0192 
-0193 



-_0_19 4 
-019 5" 
-0196 
-0197 
•0198 



(3*000158 
"OA000159" 
0A000160 
0A000161 
0A000162 
0A000163 
0AGC0164 
"OA000165" 
OA000166 
0A000167 
OAC00168 
OA000169 



400, 
COO, 
157, 

COG, 



16 

10 
71 
41 



NOP 
iV X2R+V 
,(V T3) 

NOP 
F 



3!L* 
36* 
37* 

3fc* 
39* 
4C* 



224225, 

224226, 

224227 

224230 

224230, 

224231, 



40 
4C 
40 
CC 
40 
CO 



22 4 
22 4 
225 
224 
225 
CCC 



3I2_rA2_ 
171.23 
247. IC 
157.50 
252.16 
CC0.10 



80 224157.74 OC 



BZB_,V 
BZB,V C 
LX,V Tl 
CB,V Tl 
LX,V T3 
LV,V Tl 



ECFX L V NCF 

SAV*,V NOP 

tV TX1 

,V NOP 

,V X2R+V SC 

, (V T3) 



-0199 
-0200 
-0201 
-0202 
-0203 
-0204 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



80 
10 
48 
10 
37 



224157.74 00 



V ECFN 



_4_T* 
42 * 
43* 
44* 
45* 
46* 



224231 

224232. 

224232, 

224233, 

224234, 

224234, 



40 
CC 
4C 
4C 
CC 
4C 



_2_2_4 
00 c 
224 
225 
COC 
224 



L5.7_._7_l 

COC. 41 
372.32 
232.07 
COO.CG 
7C2.1C 



4C 
C5 
80 
CI 
81 
CG 



bz xyz _y 
v+i , ,v 

BZBltV 
LVI»V U 
SIC, (V 

B»V CC_ 



NOP 



-0205 



0A000170 

0AC00171" 

OA000172 

0A0G0173 

OA000174 

0A00C174 



225203.74 OC 



V RDG 



EOFX,V 
f V CR 
P) 



SREhi 



-0206 
-0207 



-0208 



41* 
4E* 
45* 
5C* 
51* 



224235 
224235 
224236 
224236 
224237, 



CC 
4C 
CC 
40 
CG 



_22_4 

CCC 
224 
COG 
COC 



6_53__10 
CCO. CO 
707. 5C 
C40.10 
CC1.C0 



QO 
81 

CO 
CO 
80 



Bt_y_ACT 
SIC, (V 
B,V MC 
B f D MCP 
,D PD 



X 
P) 



-0209 



0A0CQ175 
GA000176 
OA000176 
0A000177 
0A000177 



V RDIO 



0210 
-0211 



wai 





TIME CLOCK CCC54C41 PUNIU 11011MCP CARD 


ID CA000179 DIST. OF 3/C1 3/01 


PAGE NUMBER 


217 


i 




L1\E LOCATION 


BINARY OUTPUT 


NAPL 


STATEMENT 


LOCATION 


224237 






1* 224237.40 


C0CCC5.CC 80 




,V CRD 




-0212 


0A000179 




2* 224240.00 


225236.00 80 




,V ROCW 




-0213 


0A000180 




2* 224240.40 


777777. C3 C9 




CB-iV P,V M1(V P) 




-0214 


0A000181 




** 224241. CO 


24C0201042CC1102 


rjcb 


DO (BU, 46), (8)2400201 04 2C011C2 






GA0001S2 




5* 224241.60 * 


41C02010204C4040 


RCCMC 


DD{E'U,48) , (8)41CC2C1C2C4G4040 






OA0001d3 




e* 




— 






-0215 


OA000184 




~<* 224242.40 


225250. C7 01 


V SCAN 


LVI,V U,V SC 




-0216 


0A000185 




fc* 224243.00 


225247.26 10 




LX,V S2,V TX1 




-0217 


OAC0C186 




9* 224243.40 


224247.76 80 224244.74 04 


V SC6 


BZBZ.V SC7B.30,$+1. 




-0218 


0A000187 




1C* 224244.40 


224322. CO 80 


V SC7A 


SlCtV SCI 






0A000188 




11* 224245. CO 


224245. 5C CO 




B,$.32 


-0219 




OA000188 




12* 224245.40 


225246.24 10 




LX,V SliV TX 




-0220 


0A000189 




12« 224246. CO 


CCCC00.42 6A 


V SC7 


LWF(U), (V SI) 




-0221 


0A00019G 




14» 224246.40 


420CCO.CC 80 414072.23 10 




KFI (BU f 12) t { 16)880,-12 




-0222 


0A000191 




15» 224247.40 


224252.76 CO 


V SC7B 


BZAE,V SCO 




-0223 


OA000192 




16* 224250. CO 


C0CC17.25 07 


V SC3 


V+ICR,V SI, 15. 




-0224 


0A000193 




17* 22425C.40 


224246.27 48 




CB+,V S2,V SC7 




-0225 


OA000194 




IE* 224251.00 


COCCCO.CO 81 




S I C , ( V P ) 






0A000195 




IS* 224251.40 


224307. C3 48 




CB+,V P,V SC1C 


-0226 




OA000195 




2C* 224252. CO 


224246.10 00 




B,V SC7 




-0227 


0A000196 




21* 224252.40 


11CCC0.C0 80 414072.23 10 


V SCO 


KFIIBU, 12), (16)240,-12 




-0228 


OA000197 




22* 224253.40 


224250.36 C2 




BAEtV SC3 




-0229 


CA000198 




22* 224254. CC 


224247.76 80 224250.34 08 


RSwITC 


BZBN, VSC7B.3CVSC3 






OA000199 j 




2<* 224255. CO * 


C0CCC1.54 8A 0600CC.2C 50 




L(BL,48), 1.441VS1) 






0A000200 




25* 224256.00 


224241.00 80 060000.23 10 




KF(EU,48),RJ0B 






OA000201 




26* 224257.00 


224261.36 C2 




BAE, RBREAK 






OA000202 




27* 224257.40 


224241.60 80 0600GC.23 10 




KF(BU, 48), RCCMC 






OA000203 




2E* 22426C.40 


224254.36 CO 




BZAE, RSWITC 






OA000204 




2S* 224261.00 


C0CC33.22 30 


RBREAK 


LV, VT5,VS2 






0A000205 l 




3C* 224261. 4C 


224263.71 42 




BXVZ,V SC5 




-0233 


OA000206 




31* 224262. CC 


COCCOC.CC 81 




SIC, (V P) 






OA000207 




32* 224262.40 


224456.43 48 




CB+.V P,V NXT 


-0234 




OA000207 




33* 224263.00 


CO0COO.27 01 




LVI,V S2,C 




-0235 


0A000208 




34* 224263.40 


224157.63 C9 


V SC5 


LVNItV T5,V NCP 




-0236 


OA000209 




35* 224264.00 


COOCCO.CC 81 




SIC, (V P) 






0A0C0210 




36* 224264.40 


225255. C3 48 




CB+,V P,V NX+V SC 


-0237 




OA000210 




31* 224265.00 


225250. C7 01 




LVI,V U,V SC 




-0238 


OA000211 


20 


3E* 224265. 4C 


225246.25 10 


V SC5A 


SX,V S1,V TX 




-0239 


OA000212 


19 


39* 224266.00 


224246.10 00 


V SC1A 


B,V SC7 




-0240 


0A0CC213 


18 


4C* 224266.40 


224267.10 CO 




B,$.V H 




-0241 


0A000214 


17 


41* 224267.00 


225247.27 10 




SX,V S2,V rxi 




-0242 


OA000215 


16 


42* 224267.40 


215571. CC 80 




SICS PRIMR 






0A000216 


15 


42* 224270. CC 


21557C.C4 00 




BD,S PRIME 


-0243 




OA000216 


14 


44* 22427C.40 * 


C0C114.40 80 




,S JC1 




-0244 


OA000217 


13 


45* 224271.00 


224271.40 00 




BE, $.32 




-0245 


0A000218 


12 


46* 224271. 4C 


224274.23 80 224311.74 06 




B8Z,V SCR3.19,V SQ2 




-0246 


0A0002 19 


11 


47* 




- 






-0247 


0A0CC22C 


10 


4£* 224272.40 


225250.07 01 


V SCR1 


LVItV U,V SC 




-0248 


OA000221 


9 


4<5* 224273. OC 


225246.24 10 




LX,V S1,V TX 




-0249 


OA000222 


8 
7 
6 


5C* 224273.40 


225247.26 10 




LX,V S2,V TX1 




-0250 


QA0CC223 


5 




4 
3 
2 

1 





wai 



20 

19 

IS 

17 

16 

15 

14 

13 

12 

1! 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



TIME CLOCK C0C54C41 PUNIC 


11D11MCP 


CARD 


IC 


CA00C225 DIST. OF 3/01 


3/01 PAGt NUMBER 


218 




LINi 


; LOCATION 


BINARY OUTPUT 






NAME 


STATEMENT 


LOCATION 


224274 


OAOC0225 


1* 


224274. CC 


224306. 3C 


CO 




V 


SCR3 


NGP,V SCR2 




-0251 


2* 


224274. 40 


00CC17.25 


07 








V+ICR,V SI, 15. 




-0252 


0AC00226 


" » 


224275. CC 


224302.67 


48 








CB+fV S2,V SCR6 




-0253 


0A000227 


4* 


224275. 4C 
2242 76. CC 


C0CC33.22 
COOCGC.CC 


30 
81 








LV,V T5,V S2 
SIC, { V P) 


-0255 


-0254 


0A000228 


5* 




0A000229 
OA000229 


e * 


224276. 4C 


224456.43 


48 








CB+,V P,V NXT 


1 * 


224277. CO 


225250.07 


01 








LVItV UfV SC 




-0256 


OA000230 


e* 


224277.40 


COOCOO.CC 


81 








SICf (V P) 






0A000231 


s* 


2243CC.CC 


224671.50 


00 








B,V SETX 


-0257 




OA000231 


1C* 


2243CC.40 


C0CCC0.55 


33 








SV,V T2,V XllV U) 




-0253 
-0259 


OA000232 
OA000233 


u* 


224301. CO 


224304.31 


42 








BXVZ.V SCR4 


12* 


224301.40 


CGC026.26 


50 








LC,V S2,V T2 




-0260 


OA000234 


13* 


224302. CC 


0CC000.27 


01 








LVI ,V S2,C 




-0261 


OA000235 


14* 


224302.40 


224303.41 


DO 




V 


SCR6 


SVA,,V SCR6A 




-0262 


0A000236 


15* 


224303.00 


000000.41 


05 








V + 1 , , . V H 


-NORMAL RETURN SPECIFIED -0263 


GA000237 


16* 


2243C3.40 


C0CC00.25 


30 




V 


SCR6A 


SV,V S1,C 




-0264 


0A000238 


1/"* 


224304. CC * 


00CC00.41 


05 




V 


SCR4 


V + 1 , , . V H 


-END RETURN SPECIFIED 


-0265 
-0266 


OA000239 
OA000240 


ie* 


224304.40 


225246.25 


10 








SX,V SltV TX 




is* 


224305.00 


225247.27 


10 








SX,V S2,V TX1 




-0267 


0A000241 


2C* 


224305.40 


777777.03 


C9 








CB-,V P,V MKV P) 




-0268 


OA00024? 


21* 


2243C6.C0 


224274.23 


80 224302.74 


OC 


V 


SCR2 


BZB1,V SCR3.19,V SCR6 




-0269 


OA000243 


22* 










- 








-0270 


GA000244 
GA000245 


22* 


224307.00 
224307. 4C 


CCCCCO.CC 
224671. 5C 


81 
CO 




V 


SC10 


SIC, IV P) 
B,V SETX 


2L* 


-0271 




0A000245 


21* 


22431C.C0 


OO0CGO.55 


33 








SV,V T2,V XllV U) 




-0272 


OA000246 


26* 


22431C.4C 


224312.31 


42 








BXVZ,V SC4 




-0273 


OA000247 


27* 


224311.00 


000026.26 


50 








LC,V S2,V T2 




-0274 


0A000248 


2£* 


224311. 4C 


777777. C3 


C9 




V 


SU2 


CB-,V P,V MKV P ) 


■ 


-0275 


0A000249 


2S* 


224312. CO 


CCCC33.22 


30 




V 


SC4 


LV,V T5,V S2 




-0276 


OAO0C25O 


3C* 


224312. 4C 


225246.25 


10 








SX,V SlfV TX 




-0277 


OA000251 


31* 


224313.00 


C0CC01.C3 


CD 








V-I,V P.1.0 




-0278 


0A000252 


32* 


224313.40 


C00CC5.1C 


03 








BiV NXlV U) 




-0279 


OA000253 


3?* 










— 








-0280 


OA000254 


34* 


224314.00 


225250.07 


01 




V 


SC 


LVI ,V U,V SC 




-0281 


0A000255 


35* 


224314. 4C 


OOCCOC.CC 


81 








SICtV P) 






OA000256 


36* 


224315. CO 


224702.10 


00 








B,V COM 


-0282 




0A000256 


3 7* 


224315.40 


225246.24 


10 








LX,V SltV TX 




-0283 


OA000257 


36* 


224316.00 


oococo.co 


81 








SIC, IV P) 






0AC00258 


39* 


224316. 4C 


224670. 5C 


CO 








B,V SETUP 


-0284 




OA000258 


4C* 


224317.00 


225246.25 


10 








SX,V SlfV TX 




-0285 


CA000259 


41* 


224317.40 * 


COCCCO. 15 


05 








V+I,V T2,C 




-0286 


CA000260 


42* 


224320.00 


224311.71 


42 








BXVZ.V SG2 




-0287 


OA000261 


43* 


224320. 4C 


00CC00.55 


3 3 








SV,V T2,V XllV U) 




-0288 


0A000262 


44* 


224321.00 


C0CC26.26 


50 








LC,V S2,V T2 




-0289 


OA0G0263 


45* 


224321.40 


C0CC00.27 


01 








LVItV S2,C 




-0290 


0A000264 


46* 


224322. CC 


224245. 5C 


CO 




V 


SCI 


B,V SC7A+1. 




-0291 


OA000265 


47* 


224322. 4C 


225427. C2 


10 




V 


WEOP 


LX,V P,V PD 




-029? 


CA000266 


4£* 


224323. CO 


COCC07.CC 


83 022000.22 


BO 






M + KBU, 18), V RCNTIV L) 




-0293 


0A00026 7 


4S* 


224324.00 


224647.50 


CO 








B,V ECP 




-0294 


OA000268 


5C* 


224324.40 


225266. C7 


CI 




V 


wC 


LVI,V U,V WT 




-0295 


OA000269 



























wai 



TIME CLOCK 00054041 



PUMD 11C11NCP 



CARD ID CAC00271 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 219 



z 
e 

*■ ( 
s 

9 

<- < 
8 

6 ' 

01 ( 
11 

si 

El ( 
t>l 
S! 

91 f 
l\ 
31 

61 (' 
OZ 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



224325 



1* 
2* 
2 * 

4 * 



224325 
224325 
224326 
224326, 



00 
40 
CO 
40 



C000C1, 
GOCCCO, 
224661, 
C0CC06. 



16 
23 
70 

60 



13 

05 
CO 
33 



V RC1 LX,V T3,V X2SIV U) 

V + I f V T 5 , 
HZXVLZiV BLOC 
LV,V T4,V RQB(V L) 



-0296 
•0297 
-0298 
-0299 



0A000271 
0A000272 
OA000273 
GA000274 



i * 



22 A 327. 
224327. 
224330. 
224330. 
224331. 
224331. 



CC_ 

4C~ 

00 

40 

CO 

40 



224331, 

OCCCCO, 
000006, 

oocooo. 

COCOOO. 

coocoo. 



31 
21 
43 
57 
23 
57 



42 
37 
7 3 

07 
37 
7 



BXVZ,V WQ2 
SV,V 14, (V T3~) 
SR,V P,V RQB(V U) 
V+ICR,V T3,.V H 
SV,V T5, (V T3) 
V+ICR,V T3, .V H 



-0300 
-0301 
-0302 
-0303 
-0304 
-030 5 
-0306 
-0307 
-0308 
-0309 
-0310 

•°31 I 
-03 1 2 
-0313 



0315 

-0316 



OA000275 
"OA000276 
OA000277 
OA000278 
0A000279 
CA00C280 
"0A000281" 
OAQ00282" 
OA000283 
0A000284 
OA000285 
OA000286 
OA000287 
OA0CC288" 
OA000289 
OA000289 
OA000290 
0A0GC291 



V WC2 



n* 

12* 
12* 

14* 

15* 
16* 
17* 
IE* 
1?* 
2C* 
21* 
22* 



2 24 3 32_. 
224332. 
224333. 
224333. 
224334. 
224334. 
224335. 
224335. 
224336. 
224336. 
224337. 
224337. 



00 

40" 

CG 

4C 

GO 

4 0_ 

~o_c_ 

40 
00 
40 
CC 

40 



coqcqi 

224653 
225266 

coocoo 

225264 
225265 

000007 

"coccci 

00CG40 
C0G007 
00 00C6 
77777 7 



.17 

."10 
.07 
.55 
.42 
._40 
._C3 
.G3 
. 10 
.4C 
.01 
.03 



13 

CO 
CI 
33 

60 

to 

73 

'od" 

00 
80 
83 
C9 



sx,_v t^v x2sjv u 
b,v"actx 

v weft lvi,v u,v wt 

sv,v t2»v x1iv u) 

LWF(U),V *T-2. 

ST(U,V VvT-1. 

5 R t V P ,~ V ~ R C IN T~( V ~l_)~ 

V-I,V P, 1."" 

6,D MCP 

,D WEF 

LVEttV SU(V U) 

C8-,V P,V M1(V P) 



-C314 



23* 
2 4* 
25* 
26* 
2«* 

2fc l* 
2S* 

3C * 

31* 

32* 

32* 

34* 



22434C,. 
224340. 
224341. 
224341. 
224342. 
224342. 
224343. 
224343. 
224344. 
224344. 
224345. 
224345. 



CO 

40" 

CC 

40 

CC 

40 

CC" 

40" 

00 

40 

CC 

40 



22 542 7 
C0CC40 
000015 
00GCC6 
224352 
_C_C_CC_40 
_0_0_CC_4~3" 
22 4 3 52" 
C0CC06 
C00C06 
224135 
227645 



.02 
. 10 
.CO 
.01 
.00 
.10 
. 4 
'."CO 
.00 
.23 
.23 
.23 



10 

CO 
80 
63 

80 
CO 
30 
8 0~ 
80 
B3 
B9 
30 



RWTEE 



LX, V 
B~, f 
t DIC 
LVE, 
,RLP 
B,DM 

Voce 

",RLN 
,6.0 
LVE, 
LVE, 
SV,V 



Pf VPD 
CP~ 
DEF 
,VSU(VU) 

SGE 
CP 

M_M__ 
SGE 

VT5,VSU( VU) 

VT5,VXG(VT5) 

T5,RWLXIT-1.C 



0A000292 
0A000293 
0A000293 
0A000293 
0A0G0293 
OA000294 
"OAQ00294" 
GA000294' 
0A000294 
0A000295 
0A000296 
OA000296 



224346. 
224347. 
224347. 
22435C. 
224350. 
224351. 



CO 

GO" 

40 

CC 

40 

CC 



2 2 7642.23 _8_0_ _ _0 1 . F 

227642.CC 80 

227616.10 CO 

230265.35 01 

227642.35 DO 

2 3 3 4 6 . 1_C CO _ 

0O0C00.30 00 



CM OC 00 ( 6 U L 1 ) , R K C R k T . 1 9 
"SICRKCRWT" 
8,REwrEE 
LVI,$14,RSAM1 
SVA,U4,RKCRwT 
B,RECMP 



QA000297 
OA000298 
0A00C298 
CAOG0299 
0A000299 
OA000300 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
3 7* 
38* 
3<5* 

4C* 



Alt 

42* 
43* 
44* 
45* 
46* 



224351. 
224352. 
224360. 
224360. 
224361. 
224361. 



4C 

CO" 

00 

40 

GO 

40 



_CNOPt__ 
TlUS*)CC(8U,8)," 

LX, VP,VPD 

LV,VT5,VRCNT{ VU) 

BXVZ,VWF1 

LX,V P,V PD 



OA000301 
"OA000302" 
0A000303 
0A000304 
OA000305 
OA000306 



225427, 
C0C007, 
224377. 
225427, 



02 
22 
71 
02 



10 
33 
42 

10 



RLMSGE 
RfeTM 



V kFEOP 



IS UNLOADING, INPUT FOUND END OF TAPE* 



-0317 
-03"18 
-0 319 
-0320 
0321 
-0322 
-0323 



47* 
4 8* 
4S* 
5C* 
51* 
52* 



224362. 
224362. 
224363. 
224363. 
224364. 
224364. 



99 

4 0" 

00 
40 
00 
4C 



CCCC0 7, 
2244 02, 
000007, 
C0CG01, 
000007, 
224371, 



20 33 

31 40 

56 33 
17 05 

57 33 
56 90 



L V , V T 4 , V _ RC N T j V UJ 

RZXVZ,V WTECP 

LV,V T3,V FCNTlV UJ 

V+I,V T3,l. 

SV,V T3,V FCNKV U) 

KV,V T3,V MNJB 



OA000307 
OA000308 
0A000309 
0A000310 
0A000311 
0A000312 



52* 
54*" 
55* 
56* 



224365. 
224365. 
224366. 
224366. 



0_C_ 
40 
CO 
40 



224367, 
224371, 
224377 
224372, 



7 2 
14 
7C 
16 



42 

30 
CC 

90 



BXL L V_hF3_ 
~LV,V T27V TSQ 
BZXVLZ,V WF1 
KV,V T3,V MXje 



- 32 4 

-0325 

-0326 

0327 



OA000313 
CA00Q314" 
OA000315 
0A000316 



wai 



1 IME CLOCK 00C54C41 



PUNIC 11D11MCP 



CARD ID CAC0C317 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 220 
L CC A Tl CN~ " 224 367 



LINE 



LOCATION 



UINARY CUTPUT 



NAML 



STATEMENT 



1» 224367. CC 

2* 224367.40 

2* 224370.00 

<* 224370.40 



224377.72 40 
225263.42 60 
225265.40 EO 
224655. 1C CC 



BZXL,V V.F1 
V WF3 LWF(U),V WT-3. 

ST(L),V WT-1. 

BiV ACT 



•0328 

-0329 

•0330 

0331 



OA00031/ 
0A000318 
0A000319 
OA000320 



I* 

_* 
i* 
i* 

c * 
1C* 



224371.CC 

224 37 1.4 C" 

224372.00 

224372.31 

224372.32 

224372.40 



j:ccqcc. L cc + 

C COO 05.0 0+ 
0C0C12.00+ 



224671. A3 C8 



T _sc__ 

VNJB 
NXJB 
BYCN 
EGFX 

„bae>: _ 

SSRfcW 



VF_C 
VF,5 
VF, 1 
0D(E 
0D(B 
CB-» 



0332 
: 33 3 
-0334 
-0335 
-0336 
-0337 



C AGO 0321 

OA0C0322" 

OA000323 

OA000324 

OACC0325 

0A000326 

OA00032 7' 








0. 

U,1),C 
U, 1),C 
V P,V SETX 



11* 

12* 
13* 
14* 
15* 
It* 
17* 



224 373_.CC_ 

224374.00 

224374.40 

224375. CO 

224375.40 

224376_.0_C_ 

224376. 4C 



_2_2.4_3 72._3i 
000007. 10 
000007. 5C 
224372.71 

000000.55 

_C0__C_01___3 

225264.42 



80 
33 
B3 
42 
33 
CQ 
'6 



224374.34 OE 



BBl t _ BYCN,$ + 1_.__ 
LV,V fl,V RCNTtV 
V+,V T1,V FCNTIV 
BXVZ.V SSRW1 
SV,V T2,V XKV U) 
V-LiV P_l. 
LWF(U),V WT-2. 



-0338 
-0339 
•0340 
-0341 
-0342 
•0343 
0344 



U) 
U) 



OA000328 
CA000329 
CA00033O 
0A000331 
0AC0Q332 
OAO00333 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



wai 





TIME CLOCK 0CC54C41 PUNID 


11D11MCP CARD 


ID 


CA000335 CIST. OF 3/C1 


3/01 PAGE NUMBER 221 






LINE LCCAT1CN 


BINARY CLTPUT 




NAME 


STATEMENT 


LOCATION 224377 






1* 224377. CC 


225265.40 


EO 






ST(U,V fcT-1. 


-0345 


0A000335 




2* 224377.40 


C0CC07.C3 


33 


V 


WF1 


SV,V P,V RCNT(V L) 


-0346 


0A000336 




"■* 2244C0.CC 


C00040.10 


CO 






B,D MCP 




0A000337 




** 2244CC.4C 


C0CCC7.4C 


80 






,D WEF 


-0347 


OACO0337 




f* 2244C1.C0 


CCCCC6.CI 


B3 






LVE, , V SUV L) 


-0348 


GA000338 




i* 224401.40 


777777. C3 


C9 






CB-,V P,V MKV P) 


-0349 


0A000339 




1* 224402. CO 


225263.42 


60 


V 


WTEOP 


LWF(U),V *T-3. 


-0350 


OA000340 




6* 224402.40 


225265.40 


EO 






ST(L),V WT-1. 


-0351 


0A0G0341 




9* 224403.00 


224721.50 


00 






B,V WTTS 


-0352 


OA000342 




1C* 224403.40 


COCCOO.CO 


81 


V 


fcIC 


SIC, { V P) 




0A000343 




11* 224404.00 


224707. 5C 


CO 






e,v MC 


-0353 


OA000343 




12* 224404.40 


CCCC40.1C 


CO 






8,D MCP 




OAOC0344 




13* 224405.00 


C0CC01.40 


80 






,0 V* 


-0354 


OA000344 




14* 224405.40 


C0CC06.C1 


8 3 






LVEttV SU(V L) 


-0355 


0A000345 




15* 224406. CC 


225272. CC 


80 






f V fcCH 


-0356 


OA000346 




16* 224406.40 


7 77777. C3 


C9 






CB-,V P,V MKV P) 


-0357 


OA000347 




17* 224407. CC 
16* 224407. 4~0 " 


225427.02 

~COCC7ll.20 


10 
53 


V 


REE _ 


LX,V H,V PC 

LC,V T4,V FCNXlV U) 


-0360 
-0 361 


0A000348 
"0A000349~~ 




19* 224410.00 


224411.60 


48 






CH,V T4,V RTEE1 


-0362 


0A000350 




2C* 224410.40 * 


224371. CC 


80 031100. C2 eo 






M+lfV TSQ 


-0363 


0A000351 




21* 224411.40 


C0CC11.21 


53 


V 


RTEE1 


SCtV T4,V FCNXIV U ) 


-0364 


0A000352 




22* 224412.00 


COCCOO.CO 


81 






SIC, (V P ) 




CA000353 




23* 224412. 4C 
24* 224413. CO 


224615. C3 
224457.23 


48 
09 








CB+,V P,V TEE 
" LVNI, V T5,V CENtT 


-0365 

-0 366 ~ 


OA000353 
0AC00354 




25* 224413. 4C 


225346.07 


01 






LVI,V U,V Q 


-0367 


0A000355 




26* 224414.00 


C0CC01.16 


13 


V 


RTEE2 


LX,V T3,V X2S(V U) 


-0368 


OA000356 




27* 224414.40 


000000.57 


7 






V+ICR.V T3,V F 


-0369 


0A0G0357 




26* 224415. CC 


C0CCC0.23 


37 






SV, V T5, (V T3) 


-0370 


0A000358 




29* 224415. 40 


CCCC00.57 


C7 






V+ICR,V T3, .V H 


-0371 


CA000359 




3C* 224416. CC 


224624.62 


3 






LV,V T5,V TEE1 


-0372 


OA000360 




31* 224416. 4C 


00CCC0.23 


37 






SV,V T5,(V T3) 


-0373 


OA000361 




32* 224417.00 


OOCCC0.57 


07 






V+ICR,V T3..V H 


-0374 


0A000362 




33* 224417.40 


CCCC01. 17 


13 






SX,V T3,V X2S(V L) 


-0375 


0A000363 




34* 224420. CC 


777777.03 


C9 






CB-tV P,V MKV P) 


-0376 


0A000364 




35* 224420. 4C 


22 5331. 07 


CI 


V 


RQ 


LVI ,V U,V RT 


-0377 


OA000365 
0A000366 




36* 224421. CO 


224325.10 


CO 






B,V RG1 


-0378 




37* 224421.40 


CC0C04.02 


03 


V 


RTIO 


RtV CWRiV U) 


-0379 


0A0C0367 


20 


3£* 224422.00 


C0CC07.CC 


83 022000.22 BC 


V 


RTI01 


M+KBU,18),V RCNTiV b) 


-0380 


OA000368 


19 


39* 224423. CC 


C0C040. 10 


00 






B,0 MCP 




0A000369 


18 


4C* 224423.40 


C0CCC1.C0 


30 






iO RC 


-C381 


OA000369 


17 


41* 224424.00 


C0CC06.C1 


B3 






LVE,,V SU(V U) 


-0382 


0A000370 


16 


42* 224424.40 * 


C0CC04.CC 


83 






, V CWR{ V L) 


-0383 


OA000371 


15 


42* 224425. CC 


777777. C3 


C9 






CB-,V P,V MKV P) 


-0384 


OA000372 


14 


44* 224425.40 


225312. C7 


01 


V 


STC 


LVI,V U,V ST 


-0385 


0A000373 


13 


45* 224426.00 


224325.10 


00 






B,V RQ1 


-0386 


0A000374 


12 


46* 224426.40 


225427. C2 


10 


V 


RTEE 


LX,V P,V PD 


-0387 


OA000375 
OA000376 


11 


47* 224427. OC 


COCCCO.CO 


81 






SIC, (V P) 




10 
9 

8 
7 
6 


4£* 224427.40 


224615.03 


48 






CB+,V P,V TEE 


-0388 


OA000376 


5 




4 
3 
2 

! 



















wai 





HME CLOCK CCC54C41 P0N1D 


11D11MCP 


CARC 


IC CAG00378 CIST. OF 3/C1 3/01 


PAGE NUMBER 222 






LIN 


LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 


LOCATION 224430 






J* 


224430.00 


224431.63 


C9 








LVNI.V T5,V SCENC 


-0389 


0A000378 




2* 


224430.40 


225250.07 


CI 








LVI ,V U,V SC 


-0390 


0A000379 




2 * 


224431. CC 


224414.10 


CO 








B,V RTEE2 


-0391 


0A000380 




4* 


224431.40 


COCCCO.CC 


81 






V SCENC 


SIC, (V P) 




OA0C0381 




S* 


224432. CC 


224626. C3 


40 








CB + ,V P,V RBLC 


-0392 


0A000381 




e* 


224432.40 


225250. C7 


CI 








LVI,V U,V SC 


-0393 


CA000382 




i* 


224433.00 


C0CCC0.14 


53 








LC,V T2,V X? V U) 


-0394 


OA000383 




e* 


224433.40 


224435.70 


42 








8XCZ,V SCEN1 


-0395 


OA000384 




9* 


224434. OC 


CCCC00.03 


73 








SR,V P,V X(V U) 


-0396 


OA000385 




1C* 


224434.40 


GCCC17.25 


07 






V SCEN2 


V+ICR,V SI, 15. 


-0397 


OA000386 




n* 


224435.00 


224434.54 


48 








C8,V T2,V SCEN2 


-0398 


OAC00387 




12* 


224435.40 


224671.43 


C8 






V SCEN1 


CB-,V P,V SETX 


-0399 


0A000388 




13* 


224436.00 


225426.02 


10 






V SCR 


LX,V P,V FDQ 


-0400 


0A000389 




14* 


224436.40 


224106. 40 


30 








LV, ,V VSCR+V RA 


-0401 


0A000390 




15* 


224437.00 


224716.46 


3 








LV,V U,V RQEXT 


-0402 


OA000391 




16* 


224437.40 * 


224107.62 


80 


224447.34 


02 




08, V VSCR + V POP. 18, V SCRA 




0A000392 




17* 


224440.40 


000001. 11 


01 








LVI,V Tl,l. -SPECIAL SCR4 


SEQUENCE -0404 


OAO0G393 




IE* 


224441. CC 


224110.51 


30 








SV,V T1,V NRfcQ 


-0405 


0A000394 




19* 


224441. 4C 


C0CC01.C1 


OD 








V-I,, 1. 


-0406 


OA000395 . 




2C* 


224442. CC 


224372.31 


80 


224447.34 


04 




BZBZ.V BYCN,V SCRA 


-0407 


0AC00396 




21* 


224443.00 


225376. C7 


01 








LVI,V U,V E 


-0408 


0A000397 




22* 


224443.40 


224716.47 


30 








SV,V U,V RQEXT 


-0409 


OA000398 




23* 


224444.00 


224154.51 


01 








LVI ,V Tl, V BYP 


-0410 


0A00C399 




24* 


224444.40 


224150. 11 


00 








SVA,V T1,V CISP 


-0411 


OA000400 




25* 


224445.00 


215001. 10 


80 


002000. CO 


FC 




CMOCOCSYSMOD 


-0412 


0A0004C1 




26* 


224446.00 


215C01. 10 


80 


000000.34 


OE 




BBltSYSMGDt 


-0413 


OAC00402 




27* 


224447.00 


OOCCCO.CO 


81 






V SCRA 


SIC, (V P) 




OA000403 




2e* 


2 2 4447.40 


224461.43 


48 








CB+.V P,V REQ 


-0414 


OAO004O3 
OA000404 




29* 


224450.00 


224106.41 


30 








SV, ,V VSCR+V RA 


-0415 




3C* 


224450.40 


CCCC40.10 


00 






VRTN 


B,DMCP 




0A0C0405 




31* 


224451. CC 


000041.00 


80 








,DRET 




0A0C0405 




32* 


224451.40 


225376.07 


01 






V EC 


LVI,V U,V E 


-0417 


OA000406 




33* 


224452.00 


224453. 10 


CO 








B,V QQ2 


-0418 


0A000407 




34* 


224452.40 


225346.07 

OOCCCO.CO 


CI 
81 






v uQ 
V QQ2 


LVI ,V U,V Q 


-0419 


OA000408 




35* 


224453.00 


SIC, ( V P) 


-0420 
-0421 


0A000409 
OA000410 




36* 


224453.40 * 


224702. 10 


00 








B,V CCM 




37* 


224454. OC 


COCCCO.CC 


81 








SIC,(V P) 




OA0004U 


20 


38* 


224454.40 


224670. 5C 


00 








B,V SETUP 


-0422 


0A0004H 


19 


39* 


224455.00 


224456.31 


42 








BXVZ,VQC1 




OA000412 


18 


4C* 


224455.40 


CCCCC0.55 


33 








SV,VT2,VX1(VU) 




0A000413 


17 


41* 


224456. OC 


777777. C3 


C9 






V CGI 


ce-,v p,v miiv p) 


-0425 


0A000414 


16 


42* 


224456. 4C 


C00CC5. 10 


03 






V NXT 


3,V NX(V U) 


-0426 


OA000415 


15 


43* 


22411C.C0+ 


+GC00CCC0 




8U.C4 


,10 


V FWA 


SYN,V VSCR+V PAR 


-0427 


CA000416 


14 


44* 


224110.40+ 


+0GCG00C0 




BU,04 


,10 


V NREQ 


SYN,V VSCR+V PAR.V H 


-0428 


OA000417 


13 


45* 


224457.00 


COCCOO.CC 


81 






V CENO 


SIC, (V P) 




OA000418 


12 


46* 


224457. 4C 


224626. C3 


48 








CB+,V P,V RBLC 


-0429 


0A000418 


11 


47* 


224460. CC 


225346.07 


01 









LVI,V U,V Q 
LVNI,V T2,V QEND 


-0430 
-0431 


0AC00419 
OA000420 


10 


46* 


224460.40 


224457. 15 


09 






9 


49* 


224461.00 


777777. C3 


C9 








C6-.V P,V Ml( V P) 


-0432 


OA000421 


8 
7 
6 


5C* 


224461. 4C 


GOCCCO. 12 


33 






V REG 


LV,V Q4,V X(V U) 


-0433 


0A000422 


5 

4 
3 

2 
1 























wai 



TIME CLOCK CCC54C41 PUNID 11D11KCP CARD ID CA000424 
LINE LOCaTTcN BINARY~CUTPLT NAMt - ' 



CIST, OF 3/C1 
STATEMENT - " 



3/01 



PAGE NUMBER 223 
LOCATICN 224462 



1* 
2* 

2 * 

5 * 
6* 
?* 
£* 
9* 
1C* 



224462. CC 

224462.40 

224463.00 

2 2 44 63_._4_C_ 

22 44 64 .40 

224465.00 

224465.40 

224466.40 

224467.40 

22447C.4C 



224110.35 
CCCCC0.23 
224110.45 
224105.04 
2~15 324. 74 
224552.32 
215324.00 
224110.00 
740000.00 
CCC011.04 



BO 

01 

BO 

80 

90~ 

42 

80 

80 

80 

90 



224471.74 02 



022027.20 
022027. 3C 
404027.21 



5C 
10 

CO 



LVE,V C3,V FfcA 
LVI ,V T5,C 
LVE.V G1,V NREG 

Be t \/_yscP-y_u_e,v skip 

~K\/ L V Q3j,S _Pf_L£" 
BXL,V~BNCER 
L(BU, 18), S PPUB,46 
-(BUt 18), V FwA,46 
/ItV 015,46 
KV,V Gl f $R 



-0434 
-0435 
-0436 
-0437 

: 0433 
: 0439 
-0440 
-0441 
•0442 
-0443 



0A0C0424 

0A000425 

0A000426 

OA00042 7 

OA0 004 2H" 

0A0Q0429 

0A00043G 

0A000431 

OA000432 

OA000433 



9 
L 

3 
6 

0! 
[ [ 
51 
£1 
H 
51 
91 
Z! 



11* 

12* 
12* 
14* 
15* 
16* 



224471.00 
224471.40 
224472.00 
224472.40 
224473.00 
224473. 4C 



224552.33 42 
224507.31 42 
000000.72 33 
224510.31 CO 
C0CC22.14 30 
G0CC35.14 90 



BXH,V_BNCER 

V SKIP BXVZ,"v"RE<U ~~" 

V REG7 LV,V G2,V X1(V U) 

BZXVGZ,V REG2 
LV,V T2,V Ql 
KV,V T2,V Q2 



-0444 
-0445 
-0446 
-0447 
-0448 
-0449 



0A000434 

GA0GC435" 

OA000436 

GA000437 

CA000438 

OA000439 



17* 
"lfc*~ 
IS* 
2C* 
21* 
2_2« 

"23* 

24* 

25* 
26* 
27* 
2€* 
29* 



2 24474.00 

2244 74.4 0" 

224475.00 

224475.40 

224476, 

224476. 

224477" 

224477, 

224500, 

224500, 



2 24475.33 

CCCC3 5. 14 

224517, 

00CC26, 

C0CC25, 

COCO 2 6 , 

22 4 500", 

COG 042. 

OGGOCO.CO 

224707.50 

C0C004.10 

oo°_c_o_o_._oo 

22 4 517.51 



40 
3 
CO 
BO 
30 
BO 
"C2 
00 
81 
00 
13 
84 
50 



BZXF,V REG3^ 
LV,VT2,V Q2 
SVA.V T2,V REG6 
V+,V T5,V T2 
LV,V T3,V Q4 
V+,V G4,V_T2_ 
BXVLZ L $.64 
Y-~I,V 04,34: 
SIC,(V P) 
B,V MO 

LX,V T1,V CfcR(V L) 
T,V T1 L [V T1),JV Q_3) 
SC, Vf 1,VREG9 



: 04 50 
-0451 
-0452 
-0453 
-0454 
-045 b 
•0456 
■045 7 



-0459 
-0460 



0A000440 



,0C 

,40 

.CC" 

,40" 

,00 

,40 



15 
22 
16 
12 

"30 
13 



V REG3 



-0458 



224501. CC 
2245CU4C 
224502.40 



OCOOOO.IO 2E 



V REG4 



0A000441 
0A000442 
CAC00443 
0A000444 
CA000445 
G'A000446" 

"OA000447 
OA000448 
OA000448 
0A000449 
OA000450 

"OAG0645r 



3C* 
31* 
32* 
33* 
34* 
35* 



2245C3.CC 
2245G3.4C 
224504.00 
2245C4.4C 
224505.00 
224505. 4C 



224517.74 
CCCC24.02 
224501.63 
224517.32 
22 4 51 7.04 
224 520.31 



BC 
00 
42 
BO 
80 
40 



V + ,V C3,V REQ9 
R,V Tl 
BXF,V REQ4 
V+,V G2,V REQ6 
V+,V G1,V REG6 
B'ZXVZ, V REGIC " 



-0462 
-0463 
-0464 
-0465 
•0466 
•0467 



OA000452 
0A000453 
OA000454 
0A000455 
0A000456 
OAq0 04 5 7 
"CA000458" 
OA000459 
0A000460 
0A000461 
0A000462 
OA000463 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 

3fc* 
39* 
4C* 



2245C6.C0 
2245C6.40 
224507.00 
2245G7.4C 
224510. CC 



OOCCCO, 
COCCOO, 
C0CC01, 
00CC05, 
224520, 



73 
13 
CI 

10 
31 



33 
3 3 

C5 
03 
42 



V REG5 SV, V G2,V XH V U) 

SV,V Q4,V X<V U) 

V REG1 V+I, , 1. 

BiV NX^V UJ 

V REG2 BXVZ,V REG1C 



-0468 
-0469 
-0470 
0471 
•0472 



4 1 * 
42* 
42* 
44* 
45* 
46* 



22451C.4C 
224511.40" 
224512. CC 
224512.40 
224513.00 
224513. 4C 



224107.62 
22 4 716.46 
C0GC00.41 
CCCCC0.43 
777777. C3 
224515.41 



80 
30 
05 
73 

C9 

00 



224513.74 02 



RNFFIL 



BB,yVSCR+VP0P.18,RNNFIL 

LV,VU,VRGEXT" 

V + I ,,0.32 

SR,$1,VX1(VU) 

CB-,VP,-1.0(VP) 

SVA, ,VREG8 



OA000464 
OA000464 
0A000465 
0A000465 
0A000466 



41*^224514. CC 
46* 224514.40 
49* 224515.00 
5C* 224515.40 



224517.0 5 DO 
224U0.45 BO 
224517.04 80 
224515.45 DO 



V REC8 



SVA'_Y C1,V REG6 

"lve,v"gi,v NREG" 

V+,V G1,V REG6 
SVA,V Cl,$ 



-047 4 
-047 5 
-0476 
-0477 



GA000467 
0A000468 
0A000469 
OA000470 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11MCP 



CARD ID 0A0C0472 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 224 



LINE 



LOCATION 



BINARY CUTPUT 



NAME 



STATEMENT 



LOCATION 



224516 



1* 224516. CC 

2* 224516. 4C 

2* 224517. CC 

4* 224517.40 



C00000.41 CC 
2245C6.1C CO 
CCCCCO.CO 80 
CCCCCC.OO+ 



V REC6 

V REC9 



V-I,,.V (- 
BiV REC-5 
SIC,0 
VF,C 



-0478 
-0479 
-0480 
-0481 



OA000472 
0A000473 
0A000474 

0A00047i> 



5* 22452C.CC 



COCCCO.CO 81 



V REQ10 SIC, IV P) 



0A000476 



t* 224520. 4C 

<* 224521.00 

fc« 224521.40 

S* 224522. CC 



224456.43 
224716.46 
CCCCOO. 13 
COCCOO.CO 



1C* 224522.40 224671. 50 



48 
30 
33 

81 

00 



C8+.V P,V NXT 
LV,V U,V RQEXT 
SV,V Q4,V XIV U) 
SIC,(V P) 
B,V SETX 



•048; 



-0485 



-0483 
-0484 



0A000476 
OA000477 
0A000478 
OA000479 
OA0004<'9 



U?_224523_.C0_ 
12* 224523.40 
224524. CC 
224524.40 
224525.00 
224526. CC 



12* 
14* 
15* 
16* 



_C_C.CC00_._12 
CCCCC0.23 
000000.55 
224472.31 
224107.62 
C0CC40.10 



33 

01 
33 

40 

80 
CO 



224532.34 00 



II* 

IE* 
1^* 
2C* 
21* 
22* 



224_52_6_.4C_ 
224527. CC 
224527.40 
224530.00 
224530.40 
224531. CO 



_0_0_C_0_4_g.4 
00CCC0.72 
224527.31 
00C000.12 
000040.10 
000C40.CC 



80 
33 
42 
33 

GO 
80 



AVf_y_____y_x_v_ 

LVI,V T5,0 
SV,V T2,V XI (V 
6ZXVZ.V REQ7 
BZB, VVSCR+VPOP 

B»_Q_MCP 

,D RIO 



U) 



0) 



18,VRQ11A 



- 486 
-0~48 7 
-0488 
-0489 



-Oil 



-0491 



0A000480 
0AO00481 
OA000482 
OA000483 
0A000484 
0A000465 

~0A00P48b~ 
CA000486 
0A000487 
0A000488 
OA000489 
OA000489 

_C_000490 
CA000491 
0A000492 
OA000493 
0A000494 
0A000494 

"OA000495" 
0A000496" 
0A000497 
OA000498 
0A000499 

_qA000500 
0A000501" 

~0A000502~ 
OA000503 
0A000504 
OA000505 
GA000506 
0A000507 

"0A000508 
OA000509 
OA000510 
CA000511 
CA000512 

~CA00C513~ 
0A000513 
0A000514 
0A000515 



22* 
24* 
25* 
26* 
27* 
2£* 



224531. 40 
224532.00 
224532. 4C 
224533. CO 
224533.40 
224534. CG 



22 4472.1 CO 
CCCCOO. 41 C5 
777777. C3 C9 
225376.07 01 
000000.00 81 
224600.43 48 



V REC11 LV,V C2,V XKV ti ) 
BXVZ»V REQ11 
LV,V G4,V X(V U) 
B,D MCP 
,D SIC 



-0492 
-0493 
-0494 



-0495 



V RC11A 



V BEGJ 



B,V_RE_7_ 
V+I,,V F 
CB-,V P,V 
LVI,V U»V 
SIC,(V P) 
Cfi + ,V P,V 



MKV P) 
E 

seoj 



r-0A96_ 

-0497 
-0498 
-0499 



-0500 



?_i*_ 
3C* 
31* 
32* 
33* 
34* 



224534. 4C 



224535. 
224535. 
224536, 
224536, 
224537, 



OC 
40 
OC 
4C 

00 



_2_2_4J 57.70 C 2 

224536.51 01 

225255.11 CO 

777777.03 C9 

224157.63 OC 

224541.32 CO 



3_5_* 

36* 
37* 
36* 

39* 
4C* 



224537.40 
224540. CC 
22454C.40 
224541.00 
224541.40 
224542. CC 



2 2 4 4 51.51 01 
225255.11 CO 
777777. C3 C9 
CCCCOO. 23 05 
224157.71 CC 
225376.16 30 



V NXB 



_BXVLZ L y_N0P__ 
LVI,V Tl,v"NXB 
SVA.V T1,V NX+V SC 
CB-,V P,V Mil V P) 
KVN1,V T5,V NOP 
BZXE,V NXBl 



_L_vi_i_v_ri_y__G_ 

SVA,V T1,V NX+V SC 
CB-,V P,V MKV P) 
V+I,V T5,C 
BZXVGZ.V NOP 
LV,V T3,V X+V E 



-0 501 
-0~5~02 
-0503 
-0504 
-0505 
-0506 
-0507~ 
-0 508 
-0509 



-051 1 
-0512 
-0513 
-0514 
-0515 
-0516 
-0517 



20 

!9 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



V NXBl 



4_* 
42* 
42* 
44* 
45* 
46* 



224542.40 
224543.00 
224543.40 
224544. CC 
224544. 40 
224545. CC 



_C_0_C_C_3_1_._1_6_ 
224544.30 
00CO42.17 
225376.17 
224233.50 
225346.07 



80 
C2 
00 
30 
00 
01 



_y_it_y_I3_y T5 

BXVLZ,$.64 
V-I,V T3,34. 
SV,V T3,V X+V 
B,V RDQ 
LVI,V U,V Q 



V CECJ 



47__22454_5_.40_ 
4£* 224546. CC 
49* 224546.40 
5C* 224547.00 



_c_c_c_c_c_o_cc_ai 

22460~0.43 48 
224157.70 C2 
225331.07 01 



sic,_y_Pi 

CB+,V P,V SEOJ 
BXVLZ.V NOP 
LVI,V U,V RT 



-0518 



-OVERLAPPED 



-0519 
-0520 



wai 



TIME CLOCK CGC54C41 PUNIC 11C11MCP CARC ID CA0Q0517 DIS7. OF 3/C1 

"lTne locVtTcn BINARY" CUT PUT KTanl STATEMENT"" 



3/01 



PAGE NUMBER 225 
L CC A TTGN" 224 54 7 



1* 
2* 
3 * 

-£ * 

"5* 
6* 
? * 

£* 

S* 

IC* 



224547.40 

224550. OC 
224550. 4G 
22455 1. CO 
224 5 51.40 
224552.00 
224552.40 
224553.00 
224553.40 
224554. CC 



CCCOCO. 

cooooo. 

224566. 
_22 53_30. 
777777. 
CO 004 0. 
C0C040. 
224C52. 
224046. 
224557. 



54 33 

31 42 

42 60 

4G EO 

C3C9 

1C CO" 

40 80 

oo ao 

50 00 

CO 00 



VENDER 



LV,V T2,V XKV U) 
BXVZ,0 

LWFIU) , V REX 
ST[L),V RJ-1. 
"CB-,V_P»V MljVPj" 
B,D>CP 
,DRI0 

SICZSPLP9 
B,ZSPLPR 
,V PNCMG 



-0521 

-0522 

-CHANGE NORMAL FIXUPS FCR EGJ SCAN -0523 

-0524 
~_0 b 25 



OA000517 

OA00051B 

OA000519 

0A000520 

A 000 521] 

A00 6 522 

OA000522 

0A000523 

0A000523 

OA000524 



si 

91 

"! si 

61 
3Z 



11* 

12* 
12* 
14* 
15* 
16* 
17*" 

le* 
is* 

2C* 
21* 
22* 
23* 
2<» 

25* 
26* 
27* 
26* 
2 C >* 



224554.40 
224555.00 
224555.40 
224556.00 
224556.40 

22455J~."CCf 
224564.00 



C_00CC7_._ 
215 5 71. 
215570. 
000104. 
224157. 



CO 80 

cc "ao 

10 00 
CO 80 
40 00 



224566 
224566 
224567 
224567 
2245/C 
224570 
224571 
224571 
224572 
224572 



.00 

.40 

.CC 

.4C" 

~.0C" 

.4C 

.CC 

.40 

.CO 

".4C" 



224570 
224572 
224647 
22 4407" 
225427 
C0C040 
000006 
00CCC6 
77 7 777 
22 5427 



10 00 
50 00 
10 CO 

"id c"o 



02 
1C 
40 
01 
3 
02 



10 
00 
80 
83 
C9 
"10 



,7. -0527 

SICtS PRIMR 

B t S PRIME -0528 

,D ABEOJ -0529 

BE,V NOP -0530 

CNOP t 

V "BNDMG " rA»)DD(BUj8r f JLJ0B_JEl<>fNATEq->SCR~RECUESJ EXCEEDED B* j{053l' 

" { A*)CC(BU,8),CUNCARTES *" """"' """-0532' 

CNCP, -0533 

V REX B f V SREC 

B,V SRE -0534 

V_J_E_X1__ B,V REOP 

]~B»_VlREE~ _ -0535 

V S~R EG ~ L X , V " P "," V " PD 

B,D MCP 

,0 SPFL -0537 

LVE,,V SU(V U) 
__Q.^~*V_Pf V_M1(V _PJ_ 

V "SRE LX,V P,V PD" 



-0536 



-0538 
•0 539 

-0540 



0A000524 
OA000525 
0A000525 
OA000526 
OA000527 
0A000528 
0A000529 
OA000530" 
OA000531 
OA000532 
0A000532 
0A000533 
"0A000533" 
OA000534" 
0A000535 
OA000535 
0A000536 
0A000537 
0A000538 



20 
19 
18 
17 
16 
IS 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 

33* 
34* 

35* 
36* 
37* 
38* 
3S* 
4C* 



224573 
224573 
224574 
224574 
224575 
224576 
2 24 5 76 
224577 
2246CC 
22460C 
224601 



.00 

.40 

.00 

.40 

.4C 

.CO 

.40" 

.40 

.CC 

.40 

.CO 



224567.42 
225330.40 
C0CC07.03 
000007. 40 
00 CO 11. 16 
2 2 V5 77. 56 
224371.00 
000011.17 
224422.10 
C0CC00.54 
224613.30 



60 
EO 
73 
83 
53 

\C 

80 

53 

00 
33 
C2 



022000.22 BO 



031100. C2 BC 



V SPE2 

V SECJ 



42 * 
43* 
44* 
45* 
46* 



224601 
2246C2 
224602 
224603 
224603 
224604 



.40 

.CC" 

.40 

.00 

.40 

.CO 



COCCCO . 
224671." 
CCOCGO. 
224605. 
COOOOO. 
COCCOO. 



CC _81 
5C 00 
15 05 
31 CO 

54 B3 

55 33 



LWF(U)tV REX1 

ST(U) ,V RT-1. 

SR,V P,V RCNKV U) 

H + KBUi 18),V FCNT(V U) 

L_C,V T3,V FCNX(V U) 
_C_BYV T3 t V SPE2_ 

M + 1 ,"V T S~Q 

SCtV T3,V FCNX(V U> 

B,V RTIC1 

LV,V T2,V XKV U) 
.MY.LZ».V_EO J 1_ 

SIC, fv P) 



-RESTORE NORMAL FIXUPS 



-0541 
-0542 
-0543 
-0544 
-0545 
-CT5_46_ 
-0547 
-0548 
-0549 
-0550 
-0551 



B,V SETX 

V + I.V T2,C 
BZXVGZ,V E0J2 

V + ,V T2,V XKV U) 
SV,V T2,V XKV U) 



-0552 



•0553 
-0554 
-0555 
-0556 



OA000539 
0A000540 
0A000541 
OA000542 
0*000543 
OA 000 544 " 
0A000545" 
OA000546 
0A000547 
0A000548 
OA000549 
"OA000550" 
OA000550" 
OA000551 
OA000552 
0A000553 
0A00C554 



41* 
46* 

4S* 

5C* 

51* 

52* 



224604 
224605 
224605 
224606 
2246C6 
224607 



.40 

".CO" 

.40 

.CO 

.40 

.00 



22467 1 . 

cccco"o. 
ooocco. 

224607. 
C0CC42. 

COCGOO. 



_____ 
62 33 

22 B3 
30 C2 

23 OD 
23 33 



V ECJ2 



B,V SETX 

~LV,V T5,V XKV U) 
V+,V T5,V X(V U) 
BXVLZ,$.64 
V-I,V T5,34. 
SV,V T5,V XIV U) 



-0 557 
-0558 
-0559 
-0560 
-0561 
-0562 



OA0O055_i 
"0A000556" 
0A000557 
0A000558 
0A000559 
0A000560 



nai 



TIME CLOCK CCC54C41 



PUNIC 11D11MCP 



CARD ID CAC00562 



CIST. OF 3/C1 



3/01 



LINE 



LCCATICN 



BINARY CUTPUT 



NAML 



STATEMENT 



PAGE NUMBER 226 

IocaTion zz^toi 



1* 224607. 40 

2* 22461CCC 

2* 22461C.40 

4* 224611. CC 



CCCCOC.62 33 
00CCCC.55 33 
224612.07 DO 
CCCCCO.CO 81 



LV,V T5,V XKV U) 

SV,V T2,V XKV U) 

SVA,V U,V EGJ4 
SIC. (V P) 



•0563 
-0564 
-0565 



0A000562 
0A000563 
0A000564 
CA000565 



5* 224611. 4C 



224456.43 48 



CB+.V p,v Nxr 



-0566 



OA000565 
A 00 05 66 
OA000567 
0A000568 
OA000569 
CA000570 
GA0C0571 



6* 224612. CC 

1* 224612.40 

fc* 224613. CO 

9* 224613.40 

1C* 224614. CC 



COCC0C.C7 CI 
C0CCC0.54 33 
C0CC00.43 73 
C0CC01.C3 CD 
000C00.15 C5 



V ECJ4 LVliV Ut 

LV,V T2,V XKV U) 

V ECJ1 SR,V P,V XKV U) 

V-I.V P,l. 
V+I»V T2iC 



LI* 
12* 
13* 
14* 
15* 
Id* 



224614 
224615 
224615 
224616 
224616 
224617 



•40_ 
• CC 

.4C 

.CC 

.40 

.CO 



_c_o_oc_cc._ic 
ooccco~.cc 

224633. 5C 
224624.55 

00CC07.20 
C0CC01.21 



81 
CO 
30 
33 

OD 



V TEE 



B._(_V_P 
SIC, (V 
BtV EE 
SV,V T 
LV,V T 



) 



-0567 
-0568 
-0569 
-0570 
-0571 
-0572 



P) 

2,V TEE1 
4,V RCNKV 
I«i i.o 



-0573 



U) 



-0574 
-0575 
-0576 



CA000572 
0A000572 
0A000573 
OA000574 

0A000575 



.11*. 
18* 
19* 
2C* 
21* 
22* 



224617 
22462C 
224620 
224621 
224621 
224622 



.CC 
.40 
.00 
.40 
.CC 



_CQ.CC31._2C 
224625.31 
CCCC00.14 
CCC000.15 
C0CC07.C3 
00CCC7.40 



BQ 
42 
B3 
33 
73 
83 



022000.22 BO 



^+lV_T 
BXVZ, V 
V + .V T 
SV.V T 
SR,V P 
M+KBU 



22*. 
24* 
25* 
26* 
27* 
28* 



224623 
224623 
224624 
224624 
224625 
224625 



•CO* 
.40 
.CC 
.4C 

.00 

.40 



_c_o_c_c_e_o_._c_o 

224655.03 
C0CC05.1C 
COCCOO.GO 
00CG1O.62 
224456.43 



81 
48 

03 

00 

33 

C8 



_sjc_,_L_ 

C8+,V 
B,V NX 
BE. 
LV,V T 
CB-.V 



4,V_T5 

STTSX 
2,V X(V U) 
2,V XCV U) 
,V RCNKV I) 
_!_],_ FCNKV 

p) 



L) 



577 
-0578 
-0579 
-0580 
-0581 
-0582 



QA0005_76 
OA000577 
OA000578 
0A000579 
OA000580 
GA000581 



0A000582 
0A0005H2 
OA000583 
0A000584 
0A000585 
0A000586 



TEE1 
STTSX 



P f V ACT 
(V U) 

5,V TS(V U) 

P,V NXT 



-0583 



-0584 
-0585 
-0586 
-0587 



20 
19 
IS 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



2_i* 

3C* 
31* 
32* 
33* 
34* 



224626 
224626 
224627 
224627 
22463C 
224630 



.CC 

. 40~ 

.CO 

.40 

.CC 

.40 



00_0_00_2_._1_6 

cocceo.14 

C0CC00.03 
000000.57 
00OC02.17 
C0CC26.22 



13 
37 
7 / 
C7 
13 
30 



V R6LC 



LV,V T 
SR,V P 
V+ICR, 
SX,V T 
LV.V T 



3,V X2RJV 
2, (V T3) 
, (V T3) 
V T3..V H 
3,V X2R(V 
5,V T2 



L) 



L) 



-0588 
-0"589 
-0590 
•0591 
•0592 
-0 59 3 



- 3 -U. 

36* 
37* 
3€* 
39* 

4C* 



224631 
224631 
224632 
224632 
224633 
OOCOCC 



• 00_ 

.40 

.CO 

.40 

.00 

.CC + 



_C_C_C_C_C_0_._14_ 

224632.71 

C00042. 15 

C0CCC0.15 

000005.10 

+00000017 



B_3_ 
4 
OD 
33 
03 



BU.04 ,1C 



y 
v 



C_l_5_ 

EE 



_V + t V _T 
BZXVZ, 
V- 1 , V 
SV.V T 
B,V NX 
DDH8U 



U) 



2»y xiy 

$.64 
T2.34. 
2,V XCV U) 
(V U) 

.4). 15 

P 



-0594 
-0595 
-0596 
-0597 
-0598 
-0599 



OA000587 
~QA000588~ 
OA000589 
0A000590 
0ACG0591 
OA000592 



CA000593 
~OA0~O059V 
OA000595 
OA000596 
OA000597 
OA000598 



_4L* 

42* 
43* 
44* 
45* 
46* 



224633 
224634 
224634 
224635 
224635 
224636 



•4C 
.00 
.40 
.OC 
.40 
.40 



C_0_C_0_4_0_._1_C 
OOCC02.00 
000006.01 
224646. CO 
224646. CC 
0CCC03.00 



c_o_ 

80 
R3 
80 
80 
83 



022027.20 50 
022027.30 10 



_8,_D_MC 
,D CCk 
LVE..V 
,V EE1 
L<BU,1 
-(Bit 1 



-0600 



SU(V U) 

8},V EE1.46 

8),V C*R + V HKV UJ.46 



-0601 
-0602 
-0603 
-0604 



Alt. 

4t* 
49* 
5C* 



224637 
224640 
224641 
224641 



.40 
.CO 
.40 



74_C_C_00.00 
COCCI T. 22 
COC042.23 
OOCCOO. 15 



80 
30 
CD 
83 



404027.21 DO 



/Lf_V_Q 
LV,V T 
V-I ,V 
LtfE.V 



15,46 
5,$R 
T5.34. 
T2,V X(V 



U) 



-0605 
-0606 
-0607 

-0608 



QA000599 
OA000599 
0A00O600 
OA000601 
0A00G602 
0A000603 



0A000604 
0A000605 
0A000606 
GA000607 



Hai 



11ME CLOCK 00054041 PUNIO 


11D11MCP CARD 


1C CA00C6G9 GIST. OF 3/C1 3/01 PAGE NUMBER 


227 




LINE LOG AT I CK 


B 


INARY CUTPUT 


NAPE 


STATEMENT 


LCCATICN 


224642 




1* 224642.00 


C0C0C0.23 


33 




SV,V T5,V X(V U) 




-0609 


0A000609 


2* 224642.40 


C0CC26.22 


BO 




V + ,V T5,V T2 




-0610 


0A000610 


2* 224643. CO 


224644. 3C 


CO 




BZXVLZ,$.64 




-0611 


OA0006U 


<* 224643.40 


C0CC42.23 


05 




V+IfV T5,34. 




-0612 


OA000612 


5* 224644.00 


C0CCC0.54 


3 3 




LV,V T2,V XKV U) 




-0613 


OA000613 


£* 224644.40 


224517.23 


DO 




SVA,V T5,V REG6 




-0614 


OA000614 


7* 224645.00 


224517. 14 


BO 




V + ,V T2,V REQ6 




-0615 


OA000615 


£* 224645.40 


COCCCO.IO 


01 




B, {V P) 




-0616 


OA000616 


9* 224646.00 


CCCOC0.OO+ 000 COCOOO OCCOOC 


V EE1 


C W , C , , C 




-0617 


0A000617 


1C* 224647.00 


225427.02 


10 


VRECP 


LX,VP,VPC 




-0618 


OA000618 
0A000619 


11* 224647.40 


CCCCC0.62 


33 


V ECP 


L V , V T 5 , V XKV U) 




12* 22465C.CC 


COCCOO. 16 


33 




LV,V T3,V X(V U) 




-0619 


0A000620 


12* 224650.40 


C0CC31.16 


BO 




V + ,V T3,V T5 




-0620 


OA000621 


14« 224651. CG 


000C00.17 


3 3 




SV,V T3,V X(V U) 




-0621 


0A000622 


15* 224651. 4C 


OOOCOO.CO 


81 




SIC,<V P) 






0A000623 


If* 224652. CO * 


224655. C3 


48 




CB+,V P,V ACT 


-0622 




0A0C0623 


17* 224652.40 


0CCCC5.10 


03 




B,V NX(V U) 




-0623 


0A000624 


16* 224653. CC 


COCCOO.CC 


81 


V ACTX 


SIC, (V P) 






OA000625 


19* 224653. 4C 


224670.50 


00 




B,V SETUP 


-0624 




OA000625 


2C* 224654. CO 


224656.31 


40 




BZXVZ.V ACT2 




-0625 


0A000626 


21* 224654.40 


777777.03 


C9 


V ACT1 


CB-fV PtV HKV P) 




-0626 


OA000627 


22* 224655. CC 


COCCOO.CC 


81 


V ACT 


SIC, (V P) 






OA000628 


22* 224655. 4C 


224671. 5C 


CO 




a,v SETX 


-0627 




0A000628 


24* 224656. CC 


C0CCC0.55 


33 


V ACT2 


SViV T2,V XKV U) 




-0628 


0A00Q629 


25* 224656.40 


224654.71 


42 




BXVZ,V ACT1 




-0629 


OA000630 


26* 224657.00 


000000.16 


3 3 




LV, V T3,V X{ V U) 




-0630 


0A000631 


27* 224657. 4C 


224660. 7C 


C2 




BXVLZ,$.64 




-0631 


OA000632 


2€* 22466C.C0 


C0CC42. 17 


CD 




V-I,V T3.34. 




-0632 


0A000633 


29* 224660.40 


COCCOO. 17 


33 




SVtV T3,V XIV U) 




-0633 


0A000634 


3C* 224661. CC 


C0CCO5.5C 


03 




B,V IC(V U) 




-0634 


0A000635 


31* 224661. 4C 


000006.62 


83 


V BLOC 


V+,V T5,V RQBtV U) 




-0635 


0A000636 


32* 224662. CO 


CGCC21.23 


04 


V BLC2 


KVI,V T5,17.C 




-0636 


0A000637 


32* 224662.40 


224667.72 


42 




BXL,V BLC1 




-0637 


0AO00638 


34* 224663. CC 


C0CC21.23 


CD 




V-IiV T5, 17. C 




-0638 


OAC00639 


35* 224663. 4C 


C0C021.21 


01 




LVliV T4,17.C 




-0639 


0A000640 


36* 224664. CC 


0CCC01. 16 


13 




LX,V T3,V X2S(V L ) 




-064G 


OA000641 


37* 224664. 4C 


COCCOO. 21 


37 




SV,V T4, (V T3) 




-0641 


OA000642 


3£* 224665. CC 


C00G00.57 


07 




V+ICR.V T3, .V H 




-0642 


OA000643 


39* 224665. 4C * 


000001.17 


13 




SX,V T3,V X2SCV L) 




-0643 


OA000644 


4C* 224666.00 


COCCOO. 00 


81 




SIC, (V P) 






0A000645 


41* 224666.4G 


224653. C3 


48 




CB+,V P,V ACTX 


-0644 




OA000645 


42* 224667. CC 


224662. 1C 


CO 




B,V BLC2 




-0645 


DAC00646 


42* 224667.40 


000006.63 


33 


V BLC1 


SV,V T5,V RCB(V L) 




-0646 


0A000647 


44* 22467C.00 


777777.03 


C9 




CB-,V P,V MKV P) 




-0647 


0A000648 


45* 224670. 4C 


C00CC0.54 


33 


V SETUP 


LV,V T2,V XKV U) 




-0649 


OA000649 


46* 224671. CC 


224701.31 


40 




BZXVZ.V SET2 




-0650 


OAC0C65O 


47* 224671.40 


C0CC02. 16 


13 


V SETX 


LX,V T3,V X2RJV U 




-0651 


CAC00651 


48* 224672. CC 


CCCCOO. 14 


37 




LV,V T2, (V T3) 




-0652 


0A000652 


49* 224672.40 


224700.31 


C2 




BXVGZ,V SET1 




-0653 


0A000653 





wai 



TIME CLOCK 0CO54C41 



PUNID 11D11MCP 



CARD ID CACOC655 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 228 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



224673 



3* 224673. CC 

2* 224673.40 

2* 224674.00 

t* 224674.40 



C0CC00.57 07 
00CCC0.14 37 
224677.71 C2 

C0CCC0.31 43 



V+ICRtV T3,V F 
LV,V T2, (V T3) 
BXVGZ,V SET3 
BXVZ, (V P) 



0654 
-0655 
•0656 
-0657 



0A000655 
CA000656 
OA000657 
OA0006S8 



5* 224675. CC 

6* 224675.40" 

1* 224676.00 

t* 224676.40 

9* 224677. CC 

1C* 224677. 4C 



_C0_C_CCq.C3 77 

00CC00.57 07 

C0C001.15 01 

C0G002.17 13 

G0C001.C3 49 

C00C02.17 13 



V SET3 



SRlV_P»!V T3) 
V+ICRtV T3,V F 
SVA.V T2. 1.1V P) 
SX,V T3,V X2RIV U) 
CB+,V P,1.(V P) 
SX,V T3,V X2RIV L) 



•0658 
: 0659 
•0660 
0661 
■0662 
-0663 



CA000659 
0A0C0660 
0A000661 
0A000662 
0A000663 
OAC00664 



.11* 22470C.CC C_C_CCC_0._03_7 7 V SET! S_R,_V P,(V T3) 



12* 2247CC.4C 

12* 224701. CC 

14* 224701.40 

15* 2247C2.C0 

16* 2247C2.4C 



C00C00.1C CI 
COOC00.15 01 
C0CCC0.10 01 
CCCCC1.16 13 
C0GC0C.23 C5 



B, ( V P) 

V SET2 LVI.V T2,C 

B,(V P) 

V COM LX,V T3,V X2S1V L) 

^VtLiV_T5 1 C 



-0664 
-0665 
-0666 
-0667 
-0668 
•0669 



OA000665 
0A000666 
OA000667 
OA000668 
0A000669 
0A000670 



11* 
16* 
19* 
2C* 
21* 
22* 



2 24 7CJ3 . CO 
2247C3.40 
224704. CO 
224704.40 
224705. CC 
2247C5.40 



_2„2__4 705.„30 
C0GC00.22 
00CCC0.23 
COCOOO. LC 
0OCCOO.57 
C0CCC0.23 



C2 
B7 
37 
CI 
07 
37 



BXVLZ.V COM2 

V+, V T5, (V T3) 
SV,V T5, (V T3) 
B,{ V P) 

V+ICR,V T3, .V F 
SV,VT5, (VT3) 



•Q.670 
-0671 
-0672 
-0673 
-0674 



Q fl 0QP67_l 
OA000672 
OA000673 
OA000674 
0A0G0675 
OA000676 



V COM2 



22*_2247C6.C0 _C_0 C_C_0_0_._5_7_ _0_7 V + ICR t V 13 , . V_ H 

24* 224706. 4C C0CC01.17 13 SX,V T3,V 

25* 224707. CC 000000.10 01 B,(V P) 

26* 224707.40 C0CC03.10 13 V MO LX,V T1,V 

27* 224710.00 225505.50 87 V+,V T1,V 

2J* _224710. 4C 225506.14 97 KV,V T2,V 



-0676 
-067 7 
-0678 
-0679 
-0680 
-0681 



0A000677 
OAC00678 
OA000679 
OA000680 
OA000631 
0A000682 



X2SIV L ) 

CWR + V MHV 
CW(V T3) 
M T ( V T 3 ) 



L) 



2i* 

3C* 
31* 
32* 
33* 

34* 



224711. CC 
224711.40 
224712.00 
224712.40 
224713.00 
224713.40 



224712.73 40 



C06CC0.21 
225506.14 
225443. 5C 
C00CC4.11 
CGCCC0.33 



OB 
3 7 
56 
13 
41 



V MCI 



_B_Z_XF ! _\/_MD1 

~LVS,V T4, V T2,V T3 
LV,V J2 t \ MT(V T3) 
LCV T1,V CW-34.(V 
SX,V T1,V CWR(V L) 
BZXH, {V P) 



T2) 



■_0682 
-068 3 
-0684 
-0685 
-0686 
■0687 



0A0C0683 
"0A000684" 
OA000685 
OA000686 
OA000687 
0A000688 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 



35* 
~36* 
37* 
36* 
39* 

4C* 



224714.00 
224714. 4C 
224715.00 
224715.40 
224716.40 
224717. CC 



OPJP CC 3.1 C_ 13 

" 22 5443.50 58 

C00C03.11 13 

CGCC04.31 83 

225376.00+ 

224333.23 C9 



000000.34 OC 



V RGEXT 

V INGN 



J-A>A J A*y cwr+v niv uj_ 

LC,V T1,V CW-34. (V T4) 
SX,V T1,V CfcR + V MKV U) 
BZB1,V CWR.25(V U),(V P) 
VF,V E 
LVNI,V T5,V *EFT 



-0688 
■0689 
■0690 
-0691 
•0692 
0693 



qA000689 

0A000690" 

0A000691 

0A000692 

0A000693 

CA0C0694 



42* 
43* 
44* 
45 * 
46* 



224717.40 
22472C.00 
224720.40 
224721. CC 
224721. 4C 
224722. CO 



_224265.5C 
224157.63 
224246.10 
224322. CO 
C0CC07.54 
231133. CO 



00 
09 
CO 
80 
33 
80 



V INCFF B f V SC5A 



-0694 
-0695 
-0696 
-0697 + 
-0698 



0A0C0695 
~OA000696 
0A000697 
GA000698 
0A0C0699 
OA000700 



V INBY LVNI f V T5,V NOP 

V INI B,V SC7 

V IN2 SICV SQ1 

V V«TTS LV,V T2 t V FCNTiV U) 

SICYTSTR 



47* 
48* 
49* 
5C* 
51* 
52* 



224722_.4_C 
224723. CC 
224724.00 
224724.40 
224725. CG 
224725. 4C 



_23_1_1_17^!C 
224371. CC 
CCCC02, 
224725, 

C0CC01, 
00CC26. 



15 
71 

15 

1C 



CC 
80 
CD 
C2 
CI 
50 



031100.12 BC 



B L YT_ST___ 

M-1,V TSw 
V-I.V T2,V FCC 
BXVGZ,V WTTS1 
LVI.V T2,l. 

V uTTSl LC,V T1,V T2 



52*_224 726_.C0_ 
54* 224726.40 
55* 224727. CC 
56* 224727. 4C 



225210. C 7 Cl 
224735. 10 00 
225312. 07 Cl 

000000. CO 81 



lvi ,v y,v 

"BtV TOP 
LVI»VU,VST 
SIC (V P) 



TSA 



-0700 

0701 

0702 

-0 70 3 

: 704 



OA0007pO 
OA000701 
0A000702 
0A000703 
0A000704 
OA0 00 7 05 
OA000706 



VSTTS 



OA000707 
CA000708 
OA0007C9 



wai 



1 IME CLOCK CC054C41 



PUNID 11D11MCP 



CARD IC CA000709 



DIST. OF 3/01 



3/01 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



PAGE NUMBER 229 
L CA TfCfN" 224 730 



1* 
2* 

2 * 
i * 



2 2 4 7 3 
224730 
224731 
2247 31 
22 4 7 32 



.CO 
.40 
.00 
.40 
".CC~ 



224721.43 
225250.07 

G0CG01.C3 
CC 0000.15 
C0CC0C.1C 



48 
01 
OD 

or 



V STTS1 



C3+,V 
LVI , V 
V-I »V 
LVI ,V 



PiV WTTS 

Li V SC 

Pil- 

T2,C 



-0706 



B, (V P) 



-0707 
•0708 
-0709 
-0710 
•0711 



-0 714 
-OJ715" 
-0716 
-0 717* 
-071b 
-0719 
-0720 
_C > 7 2 1 
-0 722 
-0723 
0724 



0A0007C9 
0A000710 
0A000711 
0A000712 
OA000713 



7* 
fc* 

S* 

IC* 



224732 
224733 
224733 
224734 
224734 



.40 
.00 
.40 
.CO 
.40 



225221. C7 
000000.00 
224735.03 
225346. C7 
224731. 10 



01 
81 
48 
01 
GO 



V RTTS 



LVI«V U,V 
SIC,(V P) 
CB+,V P t V 
LVItV UtV 
B,V STTS1 



TSB 

TOP 

Q 



-0712 



OA000714 
0A000715 
OA000715 
0A0C0716 
0A000717 



11* 
12* 
12* 
14* 
15* 

li* 

17*" 

If* 
1?* 
2C* 
21* 
22* 



224735 
224735 
224736 
224737 
224740 
224741 
224741 
224742 
224742 
224743 
224743 
224744 



.CO 

.40" 

.40 

.40 

.40 

.00 

.40] 

".00 

.40 

.00 

.40 

.00 



_C_C_CCC0_62 
000003. CO 
C0C024.31 
000003.01 
GOCCOC.U 

_0_C_C C 06 .20 
22 4743.31 
225201.23 
224744.10 
000006.23 
00CC06.63 
CCCCCO.CC 



33 

83 
80 
83 
01 
3 3 
42 
38 
CO 
3 3 
33 
81 



0C10C0.2C 50 
001000.20 DO 
224744.34 00 



V TOP LV L V T5,V X1JV U) 

" L,V OP IV U) 
ST,V Tl.V OPB 
BZB,V SGNCIV U),V TOPI 
LVIfV T1»0 

LV_V „I„,V _TC(_V U) 

BXVZ,V_TCP2] 

SV,V T5,V SORT IV T4) 

B,V TOPI 

V T0P2 SV,V T5,V 

SV t V T5,V 

V TOPI SIC, { V P) 



-TAPE OPERATE 



TGI V U) 
TCQIV L) 



OA000718 

OA6607l9" 

0A000720 

0A000721 

OA000722 

OA000723 

AC 00724 

6 AO 00 123 

OA000726 

0A000727 

OA000728 

OA000729 



22* 
2<* 
25* 
26* 
27* 
26* 
2\* 
3C* 

31* 
32* 

33* 
3 4* 
3 5 * 



224744 
224 745 
224745 
224746 
224746 
224747 
224750 
22475C 
224751 
224751 
224752 
224752 



.4C 

. CC" 

.40 

.00 

.40 

.40 

• CO" 

.40" 

.CO 

.4C 

.CO 

.40 



22 4 74 5 . 5C 
22 4 65 5. IC 
00CC23, 
225201. 
225201. 
224752, 
_3CJDC4JC[. 
COCO 10. 00 
GOCCCO.CC 
OOOCOO. 10 
000040.10 
COCO 10. 40 

cocc_o_o_._co 

COCCCC. 10" 

225201.10 

C00C23.il 

000006.15 

224135.20 



CO 
CO 
70 
19 
89 
42 
~C"0~ 
80 
89 
CI 
00 
80 
89" 



B,V TMV 

B , V AC f 

LR,V T1,V U 

SX,V T1,V SIJRTIV T5) 

CM0C00,V SURT.V RCYCV T5 

8XF.V TMV1 

B__I"CP_ " '"" 

", $REW~~ 

, IV T5) 

B, (V P) 

B,$MCP 
_, DUNL D 

t~( V T 5 ) " " 



-072 5* 
•TAPE MOTIVATION 



0A000729 

0AC00730" 

OA000731 

0A000732 

OA000733 

OA000734 

0A000735 

"0A0007 35" 
0A000736 
OA000737 
OA000738 
A 00 07 38 

"0A000 7 39 



10 
11 
32 
23 
10 



V TMV 



0C1000.CC FC 



-0731 



-0726 
-0727 
-0728 
-0729 
-0730 



-0732 
-0733* 



V TMV1 



224753 

224753 

224754. 

224754, 

224755 

224755, 



CC 

4C~ 

CC 

40 

CC 

4C 



-0734 
: ' " "- ^ " ~ -073 5" 

-0736* 
-0737 
•PUT DS IN U -0738 

•SEND SU TO DESTINATI-0739 

-0740 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
6 
7 
6 
5 
4 
3 
2 
1 



36* 
37* 
3£* 
3S* 
4C* 



01 
16 
70 
33 
36 



V TA 



B,(V 
LX, V 
SR,V 
SV,V 



P) 

T1,V 
T1,V 
T2,V 



SURTIV 

U 

SUI V U) 



T2) 



LV,V T4,V XGIV T2) 



0A000740 
OA000741 
0A000742 
OA000743 
OA0C0744 



M* 
42* 
43* 
44* 
45* 
46* 



224756, 
2247561 
224757, 
224757. 
224760, 
224761, 



CC 
40" 
00 
40 

40 
00 



77 7777 .j_7 

00CC07. 22 
000010.10 
225201.32 
225427.02 
225201.10 



38 
3 
03 
89 
10 
19 



T4) 



001000.36 FO 



V TDSP 



_S V _'_ V __ ( ______„__Y_ 

Z,V RCNTI V 0) 

B,V STRIV UJ 

CMlllltV SURT.V RDYIV T5) 

LX,V P,V PD 

LX,V T1,V SURHV T5) 



-START UNIT AT 



-0 741 
-0 74 2 
DESTIN-0743 
-0744 
-0745 
-0746 



0A_q00745 
GA000746 
0A000747 
OA000748 
0A000749 
OA000750 



47* 
46* 
AS* 
5C* 



224761 
224762" 
224762. 
224763, 



5_C 

00" 

40 

00 



_00CC23._11 
C0CC03.5C 
225201.11 

000003.01 



70 
73 
19 
83 



sr l v Ti.y u 

LR,V fl,V DSI V U) 
SX,V T1,V SURTIV T5) 
BZB,V SGNCIV UJ,V TCP1 



- 74 7 
-0748 
-0749 
-0750 



GA000751 
0A000752" 
OA000753 
0A000754 



224772.74 CC 



wai 



TIME CLOCK CCC54C41 



PUNID 11D11NCP 



CARC IC CAC00756 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 230 
LOCATION 2 24764 



E 

V 

S 

9 

L 

8 

6 

01 

11 

SI 

El 

SI 

91 

Z! 
8! 
61 
OZ 



LINE LOCATION BINARY OUTPUT NAME STATEMENT 



1* 
2* 
2 * 

4* 



224764 
224764 
224765 
224766 



.00 
.40 
.00 
.00 



C0CC06.62 
224771.71 
225201.32 
225201.14 



33 
42 

89 
39 



V TDP3 



224157.74 00 



LV,V 
BXVZ, 
BZB,V 
LV,V 



T5, 

V T 

St 

T2, 



V TCQ(V L) 
DP2 

RT.V RDY(V T5) ,V NOP 

V SURTIV T5) 



-0751 
-0752 
-0753 
-0754 
-0755 
-0756 



OA000756 
OA000757 
QA000758 
OAC00759 



224766 
224767 
224767 
224770 
224770 
224771 



.40 
.CO 
.40 
.00 
.40 
.CO 



CO CO 6. 5 5 
2247 70.47 
C0CCC0.00 
224456.43 
000000.07 
224764.10 



33 

00" 

81 

48 

01 

CO 



sy_y 

SVA,V 
SIC,( 
CB+.V 
LVI,V 

B,V T 



V JCQJV L) 

V TDP4 



III 

U, 
V P) 

P,V NXT 

U, 
UP3 



0A000760 
0A000761 
0A000762 
OA000762 
OA000763 
OA000764 



6* 
1* 
£* 
c* 

IC* 



-0757 



11? 
12* 

12* 
14* 
15* 
16* 



?24 771 
224772 
224772 
224773 
224773 
224774 



•40_ 

.00 

.40 

.CC 

.40 

.00 



_Q.0CC06._C3 
777777.03 
224456.63 
00C003.5C 
225312.11 
224456.72 



73 

C9 
42 
33 
04 

CC 



V TCP4 

Iv!_rjrp_2 

V TDP1 



•0758 
•0759 



SRtV 

CB-,V 

BXF,V 

LV,V 

KVI,V 

BZXEi 



p»y 

Pi 

NX 

Tl, 

Tl 

V N 



It* 

IS* 
2C* 

21* 
22* 



224114 
224115 
224776 
224776 
224777 
224777 



•_4_C_ 

.CC 

.00 

.40 

.CO 

.40 



_22_52_21_._C7 
2252C1.31 
225201.10 
224745.43 
225210.07 
C0CC01. 16 



01 
89 
19 
C8 
01 
13 



001000.36 FO 



V TSAC 

V TSAC1 



LVIiV 

CM1U 

LX,V 

CB-,V 

LVI ,V 

LX,V 



_Uj. 

ltV 

Tl, 

P, 

U, 

T3, 



22* 
24* 
25* 
26* 
27* 
26* 



225CC0 
225000 
225001 
225C01 
225002 
225002 



•CO 
.40 
.00 
.40 
.CO 
.40 



CC CCOC . 5 7 
C0CG0O.23 
C00C01.17 
224653. 10 
225221. C7 
224777.50 



0.7 
37 
13 

00 
01 

CO 



_Y.t~.CR 
SV,V 

sx,v 

B,V A 
LVI,V 
BiV T 



T5, 

T3, 

CTX 

U, 

SAC 



_IQ1 _*___?__ 

V MKV P) 
T 

V DS(V U) 
,V ST 

XT 

y_T_s_e 

SURT.V OPB(V T5) 

V SURT(V T5) 

V TMV 

V TSA 

y„x2S(y c) 

T3,V F 



-0 760 
•0 761 
■0762* 
•0763* 

_0765_ 

•0767 
-0768 

-0770 
-0771 



0A000765 

0A000766~ 

OA000767 

OA000768 

0A000769 

0A0G0770 



OA000 771 
0A00C772 
0A000773 
0A000774 
OA000775 
0A0CC776 



OA000777 

CA000778 
0A000779 
0A00C780 
0A000781 
0A000782 



{V T3) 

V X2S(V L) 



V TSBQ 

V" "rtst 



TSB 



-0773 
-0774 
-0 775 
IN -077 6 
-077 7 



2i* 
3C* 
31* 
32* 
32* 
24* 



225CC3 
225CC3 
225C04 
225004 
225CC5 
225CC5 



.CC 

.40" 

.00 

.40 

.CO 

.40 



22 5331 .C_7 
COCCI 1. 11 
CCCC40.10 
CC0C15.CC 
225221.41 
225430. CO 



01 
53 
00 
80 
BO 
80 



_L_y.L_y 
scv 

B,DFC 
,DICC 
LVE,, 

,RTSM 



V RJ 

V FCNXl V U) 



_y> 

Tl, 

P 

EF 

VXl+VTSB 

SG 



■ENTERE__WITH 
: A~ND SU IN T2~ 



SURT 



OA000783 
"OA000784" 
OA000785 
0A000785 
0A000785 
0A000785 



36* 
37* 
3€* 

3.* 
AC* 



225CC6 
225CC6 
225007 
225C07 
225010 
225C10 



.CC _* 
.40 
.CC 
.40 

.00 
.40 



COC 
COC 
225 
OOC 
224 
225 



C40._10_ 
043. 4C 
430. CC 
C04.C0 
422.10 
266.11 



OQ. 
80 

80 

80 

00 

CI 



_B_,_OJ_C 
,DCCI~ 
,RTSM 
,4.0 
B,V R 
LVI,V 



P 

K 

SG 

« 

TIG1 
Tl.V InT 



0A000786 
"0A000786 
OA000786 
OA000786 
0A000787 
0A000788 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



V CNLIN 



-0778 
-0779 

: ALTER RT D I SPCS I T I ON-0780 
: "" -0781 



•0782 
-0783 



AX.*. 
42* 
43* 
44* 
45* 
4t* 



225011 
225C11 
225C12 
2 2 50 13 
225013 
225C14 



•CC 
.40 
.40 
.00 
.40 

.oc 



___2_2_5 
22 5" 
232 
232 

GCCCC 
225 



22A-5.1 
224. CO 
762.00 
746. IC 
5.CC + 
210.07 



30 
80 

80 
CO 



001000. CC FO 



47* 
48* 
4.* 

5C* 
51* 
52* 



225C14 
225C15 
225015 
225016 
225C16 
225017 



•_»P 
.CO 
.40 
.CO 
.40 
• CC 



22 5 
COC 
224 
224 
COO 
225 



C_16__6 3 
CO~0.CC 
702.10 
653.10 
000.00 
024. IC 



Qi 
Q? 

81 
00 
00 
81 

CO 



AY.»_Y_I~.___'~sb+v_cs 

cmococv tsb+v op 
siczccm9c 

B,ZASN01 
VF,V CRC 
LVI,V U,V TSA 



LVN1, 
SIC,{ 
BfV C 
BiV A 
SIC,( 

B»y_s 



y T5,y ccr 

V P) 
DM 
CTX 

V P) 

CNL 



0A000789 

OA000790" 

0A000791 

0A000791 

0A000791 

0A000792 

0A000793" 



•0784 



-0785 



V CCR 



•0786 
•07~8~7~ 



OA000794 
GA000794 
CA000795 
GAG00796 
OA000796 



5 2 * 
54* 



225017 
225C20 



•AC 
.00 



C_C_C 
224 



cog.cc 

176. C3 



§1 
48 



SIC,( 
CB+,V 



y_P) 

P,V RCCSX 



GA000797 
0A0C0 797" 



wai 



TIME CLOCK CCC54C41 



PUNIC 11C11MCP 



CARD IC CA000799 



LINE 

1* 
2* 

2 * 
4* 



LOCATION 



BINARY OUTPUT 



NAME 



CIST. OF 3/C1 



STATEMENT" 



3/01 



PAGE NUMBER 231 
L GCATTtN" ~ " '225020 



225C20 
225021 
225C22 
225C22 



.40 

.40 

.cc 

.40 



215C01 
225210 
224671 
C0CCC1 



.10 80 

.07 01 

.43 C8 

.CC 31 



0C20CC.GC FO 



V SCNLX 



CMOCOO,SYSMCU 
LVItV U,V TSA 
CB-.V P f V SETX 
SIC,1.( V P) 



-0788 
-0789 



0A000799 
0A000800 
OA0008G1 
CACC0802 



225C23 
2 2 5023 
225024 
225025 
225026 
225C27 



.CO 

.40" 

.CO 

.00 

.00 

.00 



22 50 76 
225C25 
225246 
224717 
224263 
224324 



.5C 
.10 
.CO 
.00 
.40 
.51 



00 

oo" 

80 
80 
80 

CI 



B,V OVBY 
~B,V SCNL1 
SWAPI,3,V TX,V TXT 
LfV INON 
ST..V SC5 
LVIfV T1,V ViQ 



OA000802 

0A000803" 

OA000804 

OA000805 

0A000806 

0A0Q0807 



6* 
1* 
6* 
c ,* 
IC* 



225243.06 EC 
040000.20 50 
040000.20 DO 



V SCNL 

V SCNL1 



-0792 

-0793 

-0794» 

-0795 

-0796 



?! 
91 
L\ 

8! 
6! 

OS 



n* 

12* 
13* 
14* 
15* 

17*" 



225C27 
225C3C 
225C3C 
225031 
225031 
22 5032 
225032 



,4C 

".00 

.40 

.00 

.40 

._C_0_ 

.40 



225255, 
224266. 
224322, 
225232, 
225266. 
COO CO . 
225247. 



11 
11 
11 

10 
11 

ic 

10 



CO 
'01 

DO 
30 
30 
01 
10 



SVA L V_T1,V NX + V 
LVItV T1,V SC1A 
SVA,V T1,V SQL 
LV,V ri,v X+V CR 
SV,V T1,V X+V HT 
8»!_V P)_ 
LX,V f 1, V TX1 



SC 



-0797 
" -0798 
-0799 
-0800 
-0801 
-0803 
OF-0804 



OA000808 
"6 A 000809" 
OA000810 
OA000811 
OA000812 
OA000813 
"OA000814-" 



V CFFLN 



-VERIFY INACTIVITY 



16* 
19* 
2C* 
21* 
22* 



225033 
225033 
225034 
225034 
225035 



.CC 
.40 
.00 
.40 
.CC 



224157 
225252 
COOCCO 
224157 
224171 



.5C 
.16 
. 10 
.71 
.23 



48 
10 
37 

40 

80 



224157.74 04 

OCC00G.34 0E~ 



CR,V T1,V NOP 
LX,V T3,V X2R+V SC 
LV,V Tl, (V T3) 
BZXVZ,V NOP 
BZB2,V CSAW,V NOP 



•0805 
•0806 
■0807 
•0808 
•0809 



CA000815 
OA000816 
OA000817 
0A000818 
OA000819 



23* 

24* 
25* 

26* 
27* 
26* 

"29 * 
3C* 
31* 
32* 
33* 
34* 
3 5 * 

~3~6~* 
37* 
36* 
39* 
4C* 



225036 
225C37 
2 2 5037 
225040 
225040 
225C41 
225041 
225042 
225C42 
225043 
225043 
225044 
225C44 
225045 
225045 
225046 
225C47 
225C47 



.CC 

.CC" 

.40 

.00 

.4C 

.CC 

.40" 

.6 c" 

.4C 
• CO 
.40 
.OC 
.4C 
.00 
.40 
.4C 
.00 
.40 



224372 
224233 
225255 
COCCOO 
224272 
22 5274 
225214 
COCCOO" 
225273 
225266 
225044 
22 5120 
COCCOO" 
22 50 72 
225224 
OOOOCO 
225C60 
225266 



.32 
.51 
.11 
.CC 
.43 
.62 

. c"c 

,C3 
.07 
.63 

._5_C_ 
.CO 
. I c 
.CC 
.CC 
.43 
.07 



80 
01 
DO 
81 
48 
30 
"70 
"8 1 
48 
CI 
09 
CO 
81 
00 
80 
81 
48 
01 



BB1.V E 
LVI.V T 
SVA,V T 
SIC,(V 
CB+,V P 
LV,VT5, 
SR,VP,V 

"SIC, (VP 
C8+.VP, 
LVI.V U 
LVNItV 
B,V CCK 

~S IC ,"( V " 
B,V SCF 
CM1111, 
SIC, (V 
CB+,V P 
LVIfV U 



CFX, 

1,V RDQ 

1,V NX+V 

P) 

,V SCR1 

VRGB+VWT 

RGB+VWT 

) " 

VNX+VWT 

,V WT 

T5,V FREW 

X 

P) 

L 

V TSB+V OP 

P) 

,V MTTSA 

,V WT 



•08 10 

0811 

•0812 



0A000820 
0AC00821 
0A000822 
0A000823 
0AGC0823 
0A000824 
"qA000824 _ 
"0A000825" 
0A000825 
0A000826 
OA000827 
OA000828 
0Aqq0829" 
OA000829 
OA000830 
0A000831 
OA000831 
0A000832 



SC 



-REMOVE LAST CARD FRC-0813 



V FREW 



001000.36 FC 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

e 

7 

t 

5 
4 
3 
2 
1 



-0817 



-0819 



-0814 
•0815 



-0818 



-0820 



41* 
42* 
43* 
44* 
45* 
46* 



225C5C 
22505C 
225C51 
225051 
225052 
225052 



.CC_ 

.4C * 

.00 

.40 

.00 

.40 



225C44. 
C0CCC7. 
224374. 
225221. 
225210, 
225201, 



55_ 
4 
34 
07 
62 
31 



09 
"6 3 
CO 
01 
30 
89 



AyNI_»_V T2,V FREW 
L(U),V RCNT{ V U)" 
6ZRZ.V SSREW 
LVI,V U,V TSB 
LV,VT5,VTSA+VXi 
CM1111, VSURT.V0PBIVT5) 



OA000833 
0AC00834 
OA000835 
0A000836 
OA000837 
OA000838 



V RJTP 



-0821 
-0822 
-0823 



001000.36 FO 



•017 

017 
•017 
■030 

{ 30) 



47* 

"4 6* 
4S* 
5C* 
51* 
52* 



225053 
225054 
225054 
225055 
225055 
225056 



.40 

".00" 

.40 

.00 

.40 

.00 



22 5201, 
C0CC27- 
000007, 
COGOOO, 
224745. 
CCC021. 



10 

11 
43 

CO 
50 

03 



19 

70 
37 

81 
00 

CI 



LX,VT1, 
SR.VTl, 
SV,VP,V 
SIC,(V 
B,V TMV 
LVI ,VP, 



VSURTJVT5) 
VT3 

FCNTCVT3) 
P) 

17.0_ 

XHVT3) 

FCNT(VT3) 
fV TSA 



-0827* 



CA000839 

0A000840" 

0A000841 

0A000842 

OA000842 

CA000843 



53* 
54*" 
55* 
56* 



225056 
225C57 
225057 
22506C 



.4_C_ 
".CO 
.40 
.00 



oqqccc. 

"00CC07. 
225210. 
224655, 



43 
42 

C7 
10 



37 
37 

01 

GO 



sy,yp,y 

"lv»vp,v 

lvi,v u 

B,V ACT 



CA000844 
0A0C0845 
0A000846 
0A000847 



-0828 + 
•0829 + 



TIME CLOCK CCC54C41 PUNID 11D11MCP 



CARD ID CA000848 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 232 



LINE 



LOCATICN 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



225060 



1* 225060.40 

2* 225061. CC 

i* 225061.40 

i* 2 2 5C62.CC 

5* 225062.40 



225210.07 
225312. 11 
225224.51 

cc_ccco.co 

224671. 5C 



CI 
01 
30 

CO' 



V MTTSA 



LVI ,V U,V TSA 
LVI ,V T1,V ST 
SV,V T1,V DS+V 

sic,(y p) 

B,V SETX 



TSB 



•0830 

0831 

■0832 



-C833 



GA000848 
0A000849 
GA000850 
G A OOP 851 
OA000851 



6* 
1 * 
t* 
9* 
1C* 



225063. CC 
225063.40 
225C64.00 
225C64.40 
225065. 4C 



OOCCOO. 15 
224157.71 
225221. C7 
225201.31 
225201. 10 



C5 
42 
01 
86 
16 



0C1000.36 FC 



V+IiV T2,0 
6XVZ,V NOP 
LVIiV U,V TSB 
CM11U.V SURT.V CPB(V 
LX,V T1,V SURHV T2) 



T2) 



-0834 
-0835 
-0836 
-0837 

-0838 



11* 225066.00 



0CCC26.22 30 



12* 
12* 
14* 
15* 
16* 



225066.40 
225067.00 
225067. 4C 
225070.00 

225C70.40 



OOCCOO. CO 
224745.50 
225C60.5C 
COOCOl.OO 
225076. 5C 



OL 
CO 
CO 
81 
00 



V SCFLX 



_LV»_VT5,yT2_ 
SIC, (V P) 
BtV TMV 
B,V MTTSA 
SIC,1.(V P) 
B»_y_QVBY 



-018 



•0840 



OA0C0852 
0A00C853 
OA000854 
OA000855 
0A000856 



AO0 08 57 
OA000858 
0A000858 
0A000859 
OA000860 
OA000860 



11* 
16* 

19* 
2C* 
21* 
22* 



2 2_50 _7_1_._G C_ 
225071. 4C 
225072.00 
225073.00 
225073.40 
225074. 4C 



_224266 t ll 

224322. 11 
225246.00 
224425.51 
224717.40 
225255.11 



Ql 
DO 
80 
01 
80 
CO 



Lyi,v_ii,y scia 

SVA,V T1,V SGI 
SWAPI,3,V TX,V TXT 
LVI,V T1,V STQ 
L,V INGFF 
SVA,V T1,V NX+V SC 



"_C842 
-084 3 
-0844 
-0845 
-0846 
-0847 



0A000861 
OA000862 
0A000863 
OA000864 
0A000865 
0A00C866 
OA000867 



225243.06 EO 



040000.20 50 



V SCFL 



21? 
24* 
25* 
26* 
21* 
2E* 



225C75_.CC 
225076.00 
225076. 4C 
225C77.40 
225100.00 
225100.40 



224263.40 



30 
01 
80 
01 

DO 
80 



040000.20 CO 



_ST_V_SC5 

B , { V P )" 

L,V IN2 

LVI,V T1,V CFFON 

SVA,V T1,V DISP 

ST,V SCIA 



-0848 
-0849~ 
-0850 
-0851 
-0852 

'_°85~4 
-085 5 

-0857 
■0858 
-0859 

-0860 



COCCOO. 10 
224721.00 
224150.51 
224150.11 
224266.00 



040000. 2C 50 



040000.20 DC 



V CVBY 



CA000868 
GA000869 
OA000870 
OA000871 
CAC00872 



29* 
3C* 
31* 
32* 
33* 
34* 



225igi_.4C 
225102.00 
225102.40 
225103.00 
225103.40 
225104.40 



_2_2_5_34A._1_1 
224716.51 
C0CC01. 10 
CCCC01.G1 
225224. CO 
224373.23 



C A 

30 
01 

05 
80 
09 



LVI ,V T1,V 



0A000873 
~CA000874 
0A000875 
0A000876 
OA000877 
0A000878 



225116.34 02 



SV,V T1,V RQEXT 
B,1.(V P) 

V BYPAS V+Ittl. 

BB,V OP+V TSB,V BYPAF 

V 8YPAN LVNItV T5,V BREfc 



_3- * 
36* 

37* 

3E* 

39* 

4C* 



225105.00 
225105.40 
225106.00 
2251C6.4G 
225107. CO 
225107.40 



225266.07 01 



LVI,V U,V WT 

LX, VS2,VTX1 

V+, VS2, VRQB+VWT 

SR,VP,VTX1 

SV,VS2,VRCB+VWT 

SIC, (V P ) 



DA000879 
"0A000880 
OA000880 
0A000881 
OA000881 
0A000862 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
S 
4 
3 
2 
1 



225247.26 
225274.66 
225247. C3 
225274.67 

CCOCOO.CC 



10 
EO 
70 
30 
81 



AA* 

42* 
4 2 * 
44* 
45* 
46* 



22511C 

225110. 

225111. 

225111 

225112 

225112, 



CC 
40 
00 
40 
CC 
40 



_2_24J_Q_2_._1_C 
COCOCC. CO 
224653.03 
COOCOO.OO 
225127.10 
225274.62 



Q.0 
81 
48 
81 
GO 
30 



_8_,_V_C0(_ 

~SIC,{V p] 

CB+,V P,V ACTX 

SIC, (V P) 

B,V SCBY 

LVtVI5iV_CB+VHT 



-C862 
•0863 



Ait 

4£* 
49* 
5C* 
51* 
52* 



22 51i3_.C0_ 

225113.40 

225114. CC 

225114.40 

225115.00 

225115.40 



225274.43 70 



COCCOO. CC 
225273. C3 
225250. C7 
225247.26 
224244. 5C 



81 
48 

01 
10 

CO 



SR»_yp,yRG6+ywT 

SIC, (VP) 
CB+,VP,VNX+VWT 
LVI,V U,V SC 
LX,V S2,V TX1 
BlV_SC7A 



0864 
•0865 
•0866 



0A000882 
"0A000883~ 
0A000883 
OA000884 
0A000884 
OA0C0885 



.QAQQP885 
0A000886 
0A000886 
0A000887 
0A000888 
OA000889 



52__22 5116_.CC_ 
54* 225116.40 
55* 225117.00 
56* 225117.40 



___2_3_2 762.CC 80 

232746. 10 CO 

CCCCC5.00+ 

225210. C7 CI 



V DYPAF 



SIC_ZCC__C__ 
~B,ZASN01 
VF,V CRC 
LVIfVUtV TSA 



OA00C890 

~0A00089C r 

GA000890 

0A000891 



wai 



1 IME CLCCK 0G054C41 
LINE L C A Tl GN" ~ 



PUNID 11D11MCP CARD ID CA0CG892 DIST. OF 3/C1 
BINARY" CUT PUT -- ~"KA>7E STATEMENT 



3/01 



PAGE NUMBER 233 



■ ( 



> ( 

s 

9 

6 

0, ( 



LOCATION 



225120 



1* 225120. CC 

I* 225120.40 

2* 225121. CO 

<* 225121.40 



225122.23 C9 
OOOCOC.CC 81 
224702.10 00 
224653.10 CO 



V COMX 



LVNItV T5,V 
SIC,(V P) 
B,V CCK 
BfV ACTX 



GBR 



-0868 



0A000892 
OA000893 
0A000893 
GA000894 



f * 

~t * 
t * 
c * 

1C* 
11* 
12* 
13* 
14* 
15* 
U* 

1/* 



225_122_._CC 
225123.00 
225123.40 
225124.00 
225124.40 

22512 5_._C_0_ 
22 5125.40 

225126.40 
225127.00 
225130.00 
225130.40 
22 5131. 4 
225132. CC 



22 5246 ^CG 
CCCCCO. 55 
GOCCCO.CO 
225127.10 
224243.51 
22 4 32 2. 11 
224 3 72.31 
22 4 1 76. C 3 
224720.00 
224451.51 
224263.40 
22 5255 .11 
224720.40 



80 
33 
81 
CO 
CI 
DO 
80 
C8 
80 
01 
80 
QO 
80 



225243. C6 EC 



OC1000.36 FO 



040000. 2C 5C 



040000.20 CO 



040000.20 5C 



yZA* _ S W A P I , 3 , V T X, V J X T 

sv,v r?,v xi(V u) 

SIC,{V P) 
B,V SCBY 
LVI,V T1,V SC6 
_SVA L V_Tlf V_SG1 
CMlllif V_BYGN _~ 
CB-f V P,V RDCSX 
V SCBY L,V INBY 

LVI,V T1,V EQ 
ST,V SC5 

syA,y_Ti,y nx+v sc 

L,V INI 



-C1C 



-0871 



-0872 
-087 3 
-0874 

-0878 
-0879 

-0880 
-0881 
-088 2 



0A000895 
GA000896" 
0A000897 
GA000897 
OA000898 
0A000899 
"0A000900" 
OA000901 
GA000902 
OA000903 
OA0009Q4 
OA000905 
0A000906" 



91 
91 ( 

II 
81 
6l ( 



It* 

IS* 
2C* 
21* 
2_* 
2 2* 
24 * 
25* 
26* 
21* 
2J* 
2S* 



225133. OC 
225133. 4C 
225134.40 
225135. CC 
225135.40 
225136_.CC_ 
225136.40 
225137. CO 
22514C.C0 
225140.40 
225141. CC 
225141.4C" 



225246.14 
224266.00 
C0CC24.15 
225376.11 
0_C_CC_0C._1C 
22 54 3> . 11" 
225140.31 
224171.23 
224155. CC 
OOCCOO. 14 
CG_CjD_0_0_.CC 
224221.4 3 



10 
80 
50 
DO 
01 
"80 
40" 
80 
80 
00 
81 
48 



040000.20 DO 



000000.34 OE 



LX,V T2,V TX 
ST,V SC1A 
SCtV T2,V Tl 
SVA,V T1,V X + \/ E 
_Bt(_V_P)__ 

V CjFjF LB " L V E ,~V T 1 , V P C B + 1 " 

BZXVZ,V GFFX 
BB1,V CSAW, 

V CFFX SICV BYP.V H 

8R,C 

sic, _y_p)_ 

CB+,V P,V ECFB~" 



-0883 
-0884 
-0885 
-0886 
-088 7 
•0888 
-0889 
-0890 



-C891 



CA0CQ9Q7 
OA000908 
0A000909 
GA000910 
OA0009U 
"GA000912 
0A000913 
OA000914 
0AO00915 
GA000915 
0A000916 
GA000916" 



3C* 
31* 
32* 



225142.00 
225143.00 



224372.32 
224171.23 



80 224157.74 CC 
80 000000.34 04 



BZB.V EGFX,V 
BZBZ,V CSAWi 



NOP 



-0893 
-0894 



•0C9 



0A000917 
OA000910 
CA000919 





33* 


225144 


.CC 


OOCCOO. 


. CC 


81 








SIC, 


(V P) 








CA000920 | 




3A* 


225144 


.40 


225C7C. 


1C 


00 








B,V 


SCFLX 




-0896 




CA000920 




[ ~3~<*~ 


225145 


.00 


225210. 


C7 


01 








LVI, 


V U,V 


TSA 




-0897 


0A000921 




36* 


225145 


.40 


225224. 


.CO 


80 


224655.34 


CE 




EB1, 


V CP + \ 


i TSB,V ACT 




-0898 


0A00C922 




37* 


225146 


.4C 


COOCOO. 


CC 


81 








SIC, 


IV P) 








GA000923 


20 


3£* 


225147 


.00 


225C6C. 


43 


48 








CB+, 


V P,V 


MTTSA 


-0899 




GA000923 


19 


3S* 


225147 


.40 


225275. 


.40 


60 








L(U> 


iV RCNT+V WT 




-0900 


CA000924 


IB 


4C* 


22515C 


.CC 


225C51, 


74 


C2 








BRZ, 


V RJTf 


» 




-0901 


OA000925 


17 


41* 


225150 


.40 


7 7 7 7 7 7, 


C3 


C9 








CB-, 


V P,V 


mhv p) 




-0902 


0A000926 


16 


42* 


225151 


.CO 


CCCCCO. 


CO 


81 






V CM IB 


SIC, 


(V P) 








0A000927 


15 


43* 


225151 


.40 


225022, 


50 


CO 








B,V 


SCNLX 




-0903 




0A000927 


14 


44* 


225152 


.CO 


225376, 


07 


CI 








LVI, 


V U,V 


E 




-0904 


0A000928 


13 


45* 


225152. 


.40 


CCCCCO. 


CO 


81 








SIC, 


{V P) 








0A000929 


12 


46* 


225153. 


.00 


225173. 


43 


48 








CB + , 


V P,V 


SWEEP 


-0905 




GA000929 


11 


47* 


225153 


.40 


225246, 


14 


10 








LX,V 


T2,V 


TX 




-0906 


GA00Q930 


10 


4£* 


225154 


.CC 


C00C27. 


15 


50 








SC,V 


T2,V 


T3 




-0907 


G AC 009 31 


9 


4S* 


225154 


.40 


000C42. 


17 


OD 








v-i, 


V T3,2 


4. 




-0908 


OA00G932 


8 


5C* 


225155. 


.00 


000031. 


16 


BO 








v+,v 


T3,V 


T5 




-0909 


0A000933 


7 


51* 


225155. 


.40 * 


225156, 


71 


C2 








8XVGZ,$.64 






-0910 


0A00G934 


i 


5i* 


225156. 


.CC 


C0CC42. 


17 


05 








V + I, 


V T3,34. 




-0911 

-0912 
-0913 


OAC00935 
OA000936 
GA000937 


5 


53* 


225156, 


.40 


C0CC27. 


14 


50 








LC,V 


T2,V 


T3 




4 


54* 


225157, 


.CC 


224517. 


17 


DO 








SVA, 


V T3,V 


REQ6 




3 


55* 


225157 


.40 


224517. 


20 


30 








LV, V 


T4,V 


REQ6 




-0914 


0A000938 


2 

! 


56* 


225160. 


.CC 


225506. 


15 


01 








LVI, 


V T2,V 


8F1 




-0915 


0A000939 



wai 



1 IME CLOCK CCC54C41 



PUNIC 11CUMCP 



CARC IC CAC00940 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 234 



LJNt 



LOCATION 



BINARY OUTPUT 



NA^E 



STATEMENT 



LOCATION 



225160 



1* 225160. AC 

2* 225161. CO 

2* 225161. 4C 

<i* 225162. CC 



225505.54 B8 
225246.15 10 
225266.21 30 
COCGOO.CC 81 



V+, V T2,V CM V T4) 
SX,V T2,V TX 
SV,V T4,V X+V WT 
SIC, (V P) 



0916 
-0917 
•0918 



0A00C940 
0A000941 
0A0C0942 
0A000943 



_ * 

~t * 

E* 

<:* 
1C* 



22 5 162. AC 
22 5163.00 
225164.00 
225164. 4C 
225165. CC 
225165.40 



22 4314. C 3 
2~2 5224.CC 
225266.11 
225224.51 
225212.16 
CCCCCO. 14 



48 
80 
CI 
30 
10 
37 



C8+,V P,V_SG 

BZBZ.V CP + V TSB,V NOP 
LVI,V TltV WT 
SV,V T1,V DS+. TSB 
LX,V T3,V X2R+V TSA 

V.ALB.2 LV t y_T2t (V_T3)___ 

BZXVGZ 1 y_NLBl___ 

LX,V fl,V SLRTtV T2) 

LRI ,V T1,V WT 

SX,V T1,V SORTtV T2) 

V+ICRtV T3,V F 

B f V NLB2 



GA0C0943 



224157.74 04 



-EXIT FROM SIMPLE TRANSITION 



1 __ 
12 * 
12* 
14* 
15* 
U* 



22 5166.00 
22 5 166. 4C 
225167. CC 
225167.40 
225170.00 
225170. 4C 



_2_2 5 171 ._ 31 
225201. lC" 
225266.11 
22 5201.11 
CCCC00.57 
225165. 5C 



co 

16 
03 
16 

07 

CO 



•0919 
-0920 
-0921 
-0922 
-092 3 
-_Q924 
-0925 
-0926 
-0927 
-0928 
■0929 
•0930 



0A000944 
CA000945 
OA000946 
OA000947 
GA0G0948 
0A000949 
OA000950 
OA000951 
0A000952 
0A000953 
0A000954 



11* 
U* 
IS* 
2C* 
21* 
22* 



225171. CC * 



225210. C7 01 



225171. 4C 
225172.00 
225172.40 
225173. CO 
225173.40 



CCCCCO. CO 81 
224655.03 48 
225232. C7 01 
224653.10 00 
CCCCCO. 23 01 



22* 
24* 
2.* 
2£* 

27* 

2fc* 



225174..CC 
225174. 4C 
225175.00 
225175.40 
225176.00 
225176. 4C 



C_0_CCC0.54 
225175. 70 
C0CC26.22 
CCCCCO. CO 
224671.50 
000000.15 



33 
C2 
80 
81 
CO 
C5 



_v_ A l b l L_yi,y_y,y_ t s a _ 

SIC,(V P) 
C8+,V P,V ACT 
LVI,V U,V CR 
B,V ACTX 

_v_ sweep __L_yi_f„y_T5,g 

_LV,V T2,V XI (V U) 



•_0_9_3_1 
-09321 
-0933 
-0934 



•0936 
-0937 
-093 8" 
•0939 
-0940 
-0941 
•0942 



CA00C955 



0A000956 
0A000956 
0A00C957 
OA000958 
OA0009 59 



0A00Q960 
CA000961 
OA000962 
0A000963 
CA000963 
OA000964 



SWP2 
SWP3 



3C* 
31* 
32* 

32* 
3* * 



225177. CC 
225177.40 
225200. CO 
2252CC.4G 
225201. CO 
2252C1.4C 



2_2_51_7_5._31 

224671.70" 

COCCOO 

OOOCCO 

C0CC31 

225202 



A2 
C2 
73 
33 

BO 
02 



BXVLZ,V SWP3 
V+,V T5,V T2 
SIC, IV P) 
B,V SETX 
_y.+ LtV_T2iC__ 
BXVCZ,V SWP2 



-0935 



OAC00965 
~0A000966~ 
0A000967 
0A000968 
0A000969 
0A000970 



43 

14 
14 

70 



BXVLZ.V SLTX 
SR,V P,V XKV U) 
LV,V T2,V XIV U) 
V+,V T2,V T5 
BXVLZ,$.64 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
i 
S 
4 
3 
2 
1 



~__* 

3d* 
37* 
3i* 
3 C ,» 
4C* 



2252C2.CC 
225202.40 
2252C3.C0 
225203.40 

225204. CC 
2252C4.4C 



000042.15 
COOCCC. 15 
777777. C3 
224374.23 
225266.07 
225120. 5C 



CD 
33 

09 
09 
CI 

CO 



V SREW 



_y_-_I_,_V_I2i_34. 
SV,V T2,V X(V U) 
CB-,V P,V M1IV P) 
LVNI,V T5,V SSREW 
LVI,V U,V WT 
B f V CCMX 



-0943 
; 0944 
0945 
-0946 
-0947 



4L*_225205.C0_ 

4_* 225206.00 

42* 225207. CC 

4** 225201. CC + 

45* 000000.32+ 

4.* 000000.31+ 



CJLQPAQ»_QP_+ _LLO 

CCC0CC.00+ COO 
CCCOCC.OO+ 110 

-occooooo 

+CCC00000 

+CCCOOOOO 



C CO 00 2 25 221 V SU RTX 

COCOOO OCCOOC 

COOOOO 225221 

BU,3C ,10 V SURT 

BUtOl ,10 V RCY 



Xfc,C 

XW,C,C,VTSB,6 
SYN,V SURTX-V RTP 
SYN(8U, D..26 



OA000971 
OA0C0972 
OA000973 
0A000974 
OA000975 
0A00C976 
~0A000977~ 



BU_,p_l _,_1C y CPB _SYN_By,l_},.2 5_ 



-0950 

-0952 
-0953 
-0954 
-0955 



CA000978 
OA000979 
CA000980 
0A000981 
CA000982 



Alt 
4fc* 
4 C . * 
5C* 
51* 
52* 



00C00C.CC+ 



+0CC000C4 



NULL 



22521C.CC 
225210. 4C 
225211.00 
225212.00 
225213.CC 



CCCCCC.CC+ 
225122.00- 
225217.40+ 
225220.00+ 



000 
COO 



C0C003 
C00002 



225214 
225214 







_Y.J_S.4K SYN L 4 

V TSA VF,C 

VF.-V CER 

XW,V TSA2.V H,V TSAK-l.V TSA2K 

XW,VTSA2+1.0,VTSAK-2,VTSA2K 

CD(BUtl), C, 1 



-REWIND. SECUENCE CRIT-0959 



0A0C0983 

CA000984" 

0A000984 

0A000985 

0A000986 

QA000987 



5 2 * 
54- 
55* 
56* 



2252_13_._C1 
225213. 40 
225214.CC 

225215.00 



225331.00+ 
225217.00+ CCO 
225C02.10 00 



000004 225214 



V TSA2K 



VF,V RT 
XW,V TSA2.V 
8 f V TSBC 



TSAK,V TSA2K 



-0960 
-0961 
-0962 



CA000987 
0A0O0988" 
GA000989 
OA000990 



wai 



1 IME CLCCK 0CC54C41 



PUNIC 11C11MCP 



CARD ID CA000991 



CIST. OF 3/C1 



3/01 



PAGE NUMBER 235 



LiNE LOCA_T_ICN_ 

J* 225215. 40 



BINARY CUT PUT 

224754. 1C 00 



NAME 



STATEMENT 
B,V TA 



LCCATICN 



225215 

-0963 



0A00C991 



20 
19 
18 
17 
16 
15 
U 
13 
12 
II 
10 
9 
6 
7 
6 
5 
4 

3 
2 

1 



wai 



20 
19 
I 18 
17 
16 

( '* 

14 
13 

11 
10 

C ' 

8 

7 

( « 

5 
4 

I 3 

2 

1 



1 IKE CLOCK CCC54C41 PONID 11C11MCP CARD 


IC 


0A000993 CIST. OF 3/Ci 


3/01 


PAGE NUMBER 236 




LINE LOCATION 


BINARY OUTPUT 




NAME 


STATEMENT 




LOCATION 225216 




1* 


225216.C0 


CCCOCC.OO+ 








VF,C 








0A000993 


2* 


225216.40 


CCC0CC.OO+ 








VF, C 




-0964 




0A000993 


2 * 


225217. CC 


CCOOCC.CO+ 




VTSA2 


VF,C 








0A000994 


< * 


225217. 4C 


CCCOCC.CO+ 








V F , C 








0A600994 


5 * 


225217.71 * 


CCCCC1.C0 








DRZIBU, 32),VTSAK-2 








CA000994 


6* 


OGC00O.C0+ 


+0CC000C4 


NULL 


V 


TSBK 


SYN,4 


- 




-0966 


OA000995 


<* 












CNOP, 






-C967+ 


OA000996 


fc* 


225221.00 


0CC0CC.00+ 




V 


TSB 


VF,C 








OA000997 


9* 


225221.40 


CCC0CC.00+ 








VF,C 




-0968 




0A000997 


1C* 


225222.00 


225227.00+ CCO 


C00004 225225 






XW,V rS82,V TSBK,V TSB2K 


- 




-0969 

-0970 


OA000998 
0A000999 
0A00100G 


1 J* 


225223. GO 


225227.00+ CCO 


C0C004 225225 






XW,V TSB2,V rSBK t V TSB2K 


- 




12* 


225224.00 




1 






DD(BU,l),l,0 -REMIND, 


StQLENCE 


NOT CRITICAL 


12* 


225224.01 



















0A001000 


14* 


225224.40 


225312.00+ 








VF,V ST 






-0972* 


OA001001 


15* 


225225.00 


225227.00+ CCO 


000004 225225 


V 


TSB2K 


XW,V TSB2,V TSBK,V TS82K 


- 




-0973 


OA001002 


It* 
1?* 


225226.00 
225226.40 


224777.10 CO 
224754. 1C CC 








B,V TSAQ 
BfV TA 


— . 





-0974 


OA001003 


-0975 


OA001004 


la* 


225227. CC * 


00CCC2.CC 




V 


TSB2 


DRZ(BU,32),V TSBK 




0A001005 


is* 


00C0C3.00+ 


+0CC00000 


BU,01 ,10 


V 


CP 


SYNtBU, 1),3. 


- 




-0977 


OA001006 


2C* 


00C0C3.01+ 


+-CCCC0000 


BU,01 ,1G 


V 


SCNC 


SYN(BU, 1),V OP.l 


- 




-0978 


0A001007 


21* 


000003. 4C+ 


+00C000CC 


NULL 


V 


CS 


SYN.3.32 


- 




-0979 


OAOoiooa 


22* 


00CCC6.CC+ 


+OOCOOOCC 


NULL 


V 


TU 


SYN,V 10. V H 






-0980* 


0A001009 


22 * 


00CCC6.40+ 


+OCCCOOCO 


NULL 


V 


TDG 


SYN.V TG.V H 


- 




-0981 


0A001010 


2** 












CNOP, 






-0982 


0A001011 


25* 


225231. CC 


224647. 1C CO 








B.VREOP 








0A001012 


26* 


225231. 40 


224162. 5C CO 








B,V RDEE 






-0984 


OA001013 


21* 


0OCCC0.C0+ 


+0CC00002 


NULL 


V 


CRK 


SYN,2 






-0985 


0A001014 


2fc* 


225232.00 


CCC042.00- 




V 


CR 


VF,-34. 






-0986 


CA001015 


2S* 


225232.40 


CCC0CC.00+ 








VF,C 






-0987 


OA001016 


3C* 


225233. CC 


225242.00+ 000 


000002 225241 






XW,V RD2,V CRK,V RDX2K-CR2S 






-098b 


OA001017 


31* 


225234.00 


225242.00+ 000 


C0C002 225241 






XW,V RC2,V CRK,V RDX2K-CR2R 






-0989 


OA001018 


32 * 


225235.00 


225506.00+ 010 


COOOOO 225235 






CW(CD),V BF1,C,$ 






-0990 


0A001019 


32* 


225236.00 


CCC0CC.00+ CCO 


COCOOO CCCCCC 


V 


RDCW 


CW,C -CWR 






-0991 


0A001020 


34 * 


225237. CC 


224314. 1C CO 








B,V SC 






-0992 


OA001021 


35* 


225237.40 


224235.50 00 








8,V RCIC 






-0993 


0A001022 


36* 


22524C.C0 


COC005.CO 80 








,V CRC 






-0994 


0A001023 


3/* 


225241.00 


225242.00+ CCO 


CG0002 225241 


V 


RCX2K 


XW.V RC2.V CRK.V RCX2K 






-0995 


0A001024 


3t* 


225242.00 


C00042.C0 00 




V 


RD2 


BE, 34. 








0A001025 


3S* 


225242.40 * 


C0CC00.40 








DRZ{RU,32),V CRK-1 




-0996 




0A001025 


AC* 


225243. CO 


2255C6.00+ CCO 


C00042 225256 


V 


TXT 


XW,V BF1,34,V TXK 






-0998 


OA001026 


41* 


225244. CC 


CCCOOC.OC+ CCO 


000000 OCCCCC 






XW,C 






-0999 


OA001027 


42* 


225245. CC 


CCCOCC.CC+ 








VF,C 








OA001028 


42* 


225245.40 


GCCCCC.CO+ 








VF,C 




-1000 


OA001028 


44* 


225246.00 


2255C6.00+ CCO 


C00042 225256 


V 


TX 


XW,V BF1,34,V TXK 






-1001 


OA001029 


45* 


225247.00 


CCCOOO.OO+ 000 


COCOOO CCCCCC 


V 


TX1 


XH,C 






-1002 


OA001030 


46* 


00CC0C.C0+ 


+0CC000C6 


NULL 


V 


SCK 


SYN,6 






-1003 


OA001031 


4 7* 


22525C.C0 


CCCCCC.00+ 




V 


SC 


VF,C 






-1004 


CA001032 


4£* 


22525C.40 


CCCCCG.OC+ 








VF,C 






-1005 


CA001033 


49* 


225251. CO 


225260.00+ CCO 


000006 225257 






XH,V SC2Q,V SCK,V SX2K-SC2S 






-1006 


OA001034 


5C* 


225252. CO 


22526C.00+ COO 


000006 225257 






XW,V SC2CV SCKtV SX2K-SC2R 






-1007 


OA001035 


51* 


225253.00 


CCC0C0.OO+ COO 


COCOOO CCCOOC 






XW,C 






-1008 


CA001036 


52* 


225254. CC 


CCCOCC.OO+ CCO 


COOOOO CCCCCC 






xw,c 






-1009 


OAO01037 


52* 


225255. CC 


224451. 5C CO 








B,V EC 






-1010 


0ACC1038 


54* 


225256. CC * 


2255C6.CC+ CCO 


C00042 225256 


V 


TXK 


XW.V BF1,34,V TXK 






-1011 


CA0010 39 


55* 


225257. CC 


22526C.00+ CCO 


C0C006 225257 


V 


SX2K 


XW,V SC2CV SCK.V SX2K 






-1012 


CA001040 


5** 


225260. CC * 


C00C03.CC 




V 


SC2C 


DRZ(BU,32),V SCK 






-1013 


OA001041 



wai 





TIME CLOCK CC054C41 PUNID 11D11MCP 


CARC 


IC 


CA001042 DIST. OF 3/C1 . 3/01 


PAGE NUMBER 237 






LIKE LCCATICN 


BINARY CUTPUT 




NAME 


STATEMENT 


LCCAT ION 

-1014 


! 
1 

OA001042 




1* 












CNCF, 




2* 


225263. CC 


224322. 5C CO 








B,\/WEDP 




OA001043 




2 * 


225263.40 


224340.10 CO 








B,RV»TEE 




OA001043 




l « 


225264. CC 


224361. 5C CO 








B,V tvFECP 


-1016 


OA001044 




c " 


22 52 6 4.4C 


224360. LCCO 








~B,RkTM 




"0 AGO 1045 




IV 


2 2 52 6 5. CC " 


"" 224322. ~5C~C0 








"fltV WLCP" 


-1018" 


0A0C1046" 




~i * 


225265.40 


224340.10 CO 








BtRVtTEE 




OA001047 




t* 


225266. CC 


CCCC42.00- 




VWT 


VF,-34.C 




0A001048 




S* 


225266.40 


224333.00- 








VF,-VWEFT 




OA001048 




1C« 


225267. CC 


225300.00+ 000 000021 


225277 






XW,V W2,l7 f V WX2K -k2S 


-1022 


OA0C1049 




11* 


225270.00 


2253CC.C0+ OCO C0C021 


225277 






Xto,V W2 f 17, V WX2K -k2R 


-1023 


0A00 1050 




12* 


225271.00 


225506.00+ COO COCOOO 


225271 






CWiV BFl t O,$ 


-1024 


OA001051 




13* 


225272.00 


CCCOCC.OO+ CCO COCOOO 


CCCCCC 


V 


VtCW 


CWtC -CWR 


-1025 


OA001052 




14* 


225273.00 


224233. 5C 00 








8,V RCQ -NX 


-1026 


OA001053 




15* 


225273.40 


224403.50 00 








B,V WIC -10 


-1027 


CA001054 




16* 


225274.00 


COCCOO.CO 80 








,0 -su 




CA001055 




17* 


22 5274.4 C 


COCCOC. CC~80 








, 6 ~ " " " " -r "e 


""-10 2 9" 


OA0010 56"" 




IE* 


225275.00 


" CCCCCC.OO+ 








V F ~C -RCN T 


-10 30 


0A0C105/ 




19* 


225275.40 


CC00OC.0O+ 








VF,C -FCM 


-1031 


OA001058 




2C* 


225276.00 * 


224655. 1C CO 








BfV ACT -STR 


-1032 


OA001059 




21* 


225277. CC 


225300.00+ CCO 000021 


225277 


V 


*X2K 


Xi*,V W2,17,V 1«X2K 


-1033 


0A001060 




22* 


2253CC.CC * 


CCCC1C.40 




V_ 


_U_2_ 


DRZ(BU,32), 17 


-1034 


CA0C1061 




23* 


"22531C.40 


~ CC~CCC0.3~0 CO 








CNCP, 


-103 5 


"CA00106"" i 




24* 


22 5311.00 


22464 7. 1C CO 








B,"V RECP 


-1036 


CA001063 ! 




25* 


225311.40 


224426. 5C 00 








B,V RTEE 


-1037 


OA001064 




26* 


O0CCCO.CO+ 


+00CC0CC2 NULL 


V 


STK 


SYN,2 


-1038 


0A001065 




2~<* 


225312.00 


CCOC42.00- 




V 


ST 


VF.-34. 


-1039 


0A001066 




2£* 


225312.40 


CCC021.00+ 








VF,17. -SI 


-1040 


0A001067 




29* 


225313. CC 


225324.40+ CCO 000001 


225323 






Xw,V S2T.V H,V STK-l.V SX2KT-S2S 


-1041 


OA001068 ] 




3C* 


225314. CC 


225324. C0+ CCO 000002 


225323 






XW,V S2T,V STK,V SX2KT-S2R 


-1042 


CA001069 




31* 


225315.00 


2255G6.00+ CIO C00377 


225327 






CW(CD),V BF1,255,V SCfoA 


-1043 


0A001070 




32* 


225316. CO 


225506.00+ CIO 000377 


225327 


V 


sew 


CW(CC),V BF1,255,V SCWA-UfcR 


-1044 


0A001071 




32* 


225317. CC 


224314.10 CO 








B f V SG -NX 


-1045 


OA0010/2 




34* 


225317.40 


224421.50 00 








B,V KTIG -10 


-1046 


OAGCiO/3 




35* 


22532C.00 


COCCOO.CO 80 








,0 -su 




OA0010 74 




36* 


"225320.40 


""~COOG~00.CC 80 








, "-RQB 


' -T0~4~8~ 


0A001075 " 




37* 


225321. CC 


000000. CC 80 








,0 -RCNT 


-1049 


0A001076 


20 


36* 


225321.40 


CCOCCO.CO 80 








,0 -FCNT 


-1050 


0A001077 


19 


39* 


225322.00 


224422.10 00 








B,V RTIG1 -STR 


-1051 


0A001078 


18 


4C* 


225322.40 


224727.00- 








VF,-V STTS -TS 


-1052 


OA0010 79 


17 


41* 


225323. CC * 


225324.00+ CCO C00002 


225323 


V 


SX2KT 


XWiV S2T,V STK,V SX2KT 


-1053 


0A001080 


16 


42* 


225324. CO 


CCCC21.C0 GO 




V 


S2T 


BE, 17. 




OAOOlObl 


15 


43* 


225324.40 * 


CCCC00.40 








DRZ{BU,32),V STK-1 


-1054 


0A001081 


14 


44* 


225325. CC 


C0CCC2.CC 








DRZ(BU,32),4 


-1055 


0A001082 


13 


4£* 


225327.00 


2261C5.00+ 010 000377 


225315 


V 


SCWA 


CW(CD) f V BF1+255.,255,V SCW-1. 


-1056 


0A001083 


12 


4£* 


22533C.00 


224647.10 CO 








B,V RECP 


-1057 


OA001084 


11 


47* 


225330.40 


224407.10 00 








B,V REE 


-1058 


0A0G1085 


10 


46* 


225331.00 


CCC042.00- 




V 


RT 


VF.-34. 


-1059 


0A001086 


9 


AS* 


225331.40 


CC0021.00+ 








VF,17. -Rl 


-1060 


0A001087 


8 


5C* 


225332.00 


225345.40+ COO 000001 


225344 






XW,V R2.V H,l f V RX2K-R2S 


-1061 


0A001088 


7 


51* 


225333.00 


225345.00+ CCO C0C002 


225344 






XW,V R2,2,V RX2K -R2R 


-1062 


0A001089 


6 


52* 


225334.00 


2265C4.00+ CIO 000377 


225343 






Cw(CC),V BF2,255 f V RCfcA 


-1063 


0A001090 


5 


53* 


225335. CO 


2265C4.00+ 010 000377 


225343 


V 


RCW 


CW(CD),V BF2,255,V RCWA-CfcR 


-1064 


0A001091 


4 


54* 


225336.00 


224452. 5C CO 








B,V CG -NX 


-1065 


OAG01092 


3 


55* 


225336.40 


224421. 5C CO 








G,V RTIC -10 


-1066 


0A001093 


2 

1 


56* 


225337. CC 


OOCCCO.CC 80 








,0 -SU 


-1067 


0A001094 



wai 



TIME CLOCK 0CC54C41 



PUNID 11D11MCP 



CARD ID CACC1095 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 238 



LINE 



LGCA1 ICN 



BINARY OUTPUT 



NAME 



STATtMENT 



LCCATICN 



225337 



1* 225337. AC 

2* 225340.00 

2* 22534C.40 

4* 225341. OC 



OOOCCO.CO 80 
COCCCO. CO 80 
COCOOO.CC 80 
225C03.10 CO 



,0 
,0 
,0 
B,V 



RTST 



-Rye 

-RCNT 
-FCM 
-STR 



-1068 
-1069 
-1070 
-1071 



0A001095 
OA001096 
OA001097 
0A001098 



* 225341. 4G 



224732.40- 



VF,-V RTTS 



TS 



-1072- 



AGO 1099 
0A001100 
0A001101 
OA001102 
0AC01103 
0*001103 
OA001104 
0A001105 
OA001106 
0A001107 
0A00U08 
0A00U09 



t* 
i* 
t * 

s* 

IC* 



225342. CO 
225343.00 
225344.00 
225345. CO 
225345. 4C 



0C00CC.00+ 
2271C3.00+ 
225345.00+ 
CC0021.00+ 

CCOOCC.CO+ 



VF,C 
010 000377 225334 V RCWA CW(CD),V BF2+255, 
GCC C0C002 225344 V RX2K XW,V R2,2,V RX2K 

V R2 VF, 17. 

VF,C 



-FCNX 
,255, V RCto-1. 



-1073^ 

-1074 

-1075 



1076 



A I* ___CNQP_i. 



-1077 



12* 225346. CO 

12* 225346. 4C 

14* 225347.00 

15* 225350.00 

16* 225351.00 



CCC042.00- 
CC000C.00+ 
225355.00+ 000 
225355.00+ 000 
226504.00+ CCO 



V Q 



000042 225354 
0CC042 225354 
COGOOO 225351 



VF,-34. 

VF,C 

XW,V G2C,34,V QX2K 

XH,V Q2C,34,V QX2K 

CW,V BF2,C,$ 



-CI 

-Q2S 



-1078 
-1079 
-1080 
-1081 
-1082 



12?_2253i>2_.cA___jc_c_oo_cc._og+_coo_oggppp_C)cccoc cw,c -cm -i083 



18* 

H* 

2C* 
21* 
22* 



225353. CO 
225354.00 
225355.CC 
225376.00 
225376.40 



224420.50 GO 
225355.00+ 000 

000C21.CC 
000042.00- 
CCCCCC.00+ 



C0C042 225354 



B,V RQ 

V GX2K XW,V Q2C,34,V 

V Q2Q DRZ(BU,32),34 

V E VF,-34. 

VF,C 



-NX 



QX2K 



-£1 



-1084 
-1085 
-1086 
-1087 
-1088 



OAOOlllp 

6*6oii i i 

0A001112 
OA001113 
OA001114 
OA001115 



22*225377. C C _2_25AQ5 ._0_Q.+ _C C 

24* 2254CC.C0 225405.00+ CCO 
25* 225401.00 225506.00+ 000 
26* 225402.00 CCC0C0.OO+ CCO 
27* 225403.CC 224233. 5C CO 
2E* 225404.eC 2254C5.00+ CCO 



Cppp42_2254C4 
000042 225404 
OOCOOO 225401 
COCOOO OGCOOC 

000042 225404 



V C X 2 K 

_V_ E_2 __ 

V PCC 

V PD 
RTSMSG 

V_ _P_D_C_B_ 

V PCB 



AWtV_E2 f 34f V_£X2K 
XW,V E2,34,V EX2K 
CW,V BF1,0,$ 
CW,C 

e,v rcc 

X*,V E2,34,V EX2K 



-E2R 



•CViR 

-NX 



•J_Q.8_9_ 

■1090 

■1091 

1092 

1093 

1094 



0A0piil6 
OA0011W 
0A001118 
0A001119 
0A001120 
OA001121 



2i* 
3C* 
31* 
32* 
32* 
34* 



225405 
225426 
225427 
225430 
225434 
225434 



5pO_ * 

.00 

.00 

-CC 

.CO 

.40 



_C 0_CC_2_1_«_C_Q_ 

225434.40+ COO 
225435.00+ CCO 



DRZlBUt 32_)t3A 

XW,V PCCB,0,0 

XW,V PCB,C t O 

{ IQS*)DC(BU,8,8) , 

B,V RTN 

B,$ 



•1095 
1096 
1097 

1098 
1099 



CA001122 
0A001123 
0A001124 
UA00U25 
0A001126 
OA00112 7 
0*001128 
GA001128 
0A00U28 
0A001128 
OA001128 
OA00112B 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 



COGOOO OOCOOO 
COCOOO OCCCOC 



IS THE NEI* IP READ TAPE* 



35* 
36* 
37* 

3€* 
3S* 

AC* 



225435 
225435 
225436 
225436 
225437 
225437 



.CO 
.4C 
.CO 
.40 
.CO 
.4C 



224450 
22_55_3A 

coccco 



50 00 

5C 00 



coccco 

COGCGG. 

eoccoo, 

coccoo, 
oceecc, 



10 

10 
10 

ic 

ic 



eg 
oo 

CO 
GO 
CO 
CO 



B, 
B, 
B, 
B, 

B, 



Alt. 
42* 

43* 
44* 
45* 
46* 
4 7* 



22544C 
22544C 
225441 
225441 
225442 
225442 
225443 



•PC 
.40 
.00 
.40 
.CC 
.40 
.CC 



AQCC_cp_. 

COCCCO, 

coocoo. 

COCOOO, 
COCOOO, 

_c_c_c_Ggg. 

COOCOO, 



LP 

10 
IC 
IC 
10 

ic 

IC 



PP 

00 
CO 
CO 
CO 
CQ 
00 



B, 

B, 
B, 

B, 
6t_ 
B, 



0A001128 
OA001128 
OA001128 
0A0C1128 
OA001128 
QA001128 
OA001128~ 



11C0 



wai 



TIME CLOCK 0CC54C41 
L I N E L C C A Tl C N 



PUNID 11C11MCP CARD IC CACC1130 DIST. OF 3/C1 
BINARY" CU T PUT N~A~M~E STAT EM EhY 



3/01 



PAGE NUMBER 239 
1 C ATTGN" " " 225443 



]* 225443.40 

2* 225444. CC 

2* 225444.22 

_1?_?2 5444._62_ 

'_-?_ ?'? 544 5~.~2 2 

6* 225445.62 

7* 225446.22 

E* 225446.62 

S» 225447.22 

IC* 22544 7.62 

11* 225450.22 



COCCCO.CC CO 



12* 
13* 
14* 
15* 
16* 
17* 



225450.62 
225451.22 
225451.62 
225452.22 
2 2 54 52. 62 
225453.22 



ie*~22 54 5~3~.6~2~ 
IS* 225454.22 
2C* 225454.62 
21* 225455.22 
22* 225455.62 
22* 225456^.22^ 
2A* 225456.62 
25* 225457.22 
26* 225457.62 
2?* 225460.22 
26* 225460.62 
2S* 225461.22" 



CCC042 
0G000C00017 
00000CCCC41 

OOOC0CC_CC_36_ 

00 COCO CO 40 

OOOCCCCC055 

OO0C0CCCC37 

OOOCOCCC074 

C00CGCC0_0 3_6_ 

00000000113 

0000 OCC 003 5~ 

000C0CC0132 

OOOC0CCCO34 

00000C0C151 

OO00OCCC0 33 

00000000170 



BE,C 

DD{BU,18) ,34 

DDJBU, 32 3,15,33, 30, 32 ,4 5, 3 I, 60, 30 ,75, 29, 90, 28 ,105 ,27 



-1101 
-1102 
-1103 



DC (BU, 32), 120, 26, 135, 25,1 50,24,165,23, 180, 22, 19 5, 21, 2 10 -110 4 



OA001130 
0A001131 
0A001132 
CA001132 
GA001132 

"OAOC 11 32' 
0A001132 
0A001132 
0AC0U32 
0A0C1132 

~6a661132 

"6A00113? 
OA001132 
0A001132 
0A001132 
OA001132 

IOAOOJ.133 
0A00U33 
0A001133 
OA001133 
0A0C1133 
OA001133 
0A001133 

"0A001133 
0A0C1133 
0A001133 
CA001133 
OA001133 

J3A001133 
OA001134 

0A001134 
0A001134 
0A0G1134 
0AG01134 
0A001134 
"OA00 1134 
0A001134 
0A001134 
0A001134 
OA00U34 
J3A001134 
"0A001134 
OA001135 
GA00U35 
QA001135 
0A001135 
OA001135 
0A00ll35 
QA001135 
0A001135 
OA001135 
0A001135 
0A0C1135 
0A0G1135 
OA001135 
0A001135 



Si 
El 






81 
61 



00000CCC032 
00000CCC2G7 
00000CCC031 
000C0CC0226 
000C0CC0030 
000G0CCC245" 
"O0000CCC027" 
00C0GC00264 
0000CC00026 
O0000CCC3C3 
000CCC0C025_ 
0000CCC0322 



20 

19 
IS 
17 
16 
15 
H 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



3C* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
3£* 
39* 
4C* 



225461.62 

225462.22 

225462.62 

225463.22 

225463.62 

225464.22 

225464.62" 

225465.22 

225465.62 

225466.22 

225466.62 



00000CCC024 
00000CCC341 
OOO00CCC023 
OO0O0CCC36O 
OOqCOCCG022 

qqqqcccc377" 
"00000000021 

00000CCG416 
00000CC0020 
OOO0OCC0435 
00000CCC017 



DO {BU, 32) ,20,22 5,19,240,18,2 5 5,17,2 70,16,28 5,15,300, 14 -110 5 



M* 
42* 
43* 
44* 
45* 
46* 



225467.22 
225467.62 
225470.22 
225470.62 
225471.22 
225471.62 



qqqoccco4 54 

00000CC0016 
00000CCC473 
000C0CCC015 
OO00O0C0512 
00000000014 



0D( BU, 32), 315, 13, 33C, 12, 345, 11, 3 60,10,375, 9, 3 90, 8, 40 5, 7 -11 06 



4 7* 
48* 
4S* 
5C* 
51* 
52* 



225472.22 

225472.62" 

225473.22 

225473.62 

225474.22 

225474.62 



000000005 31 
0000CCCC013 
000C0C00550 
00000000012 
OO00OCCO567 
0000GCCC011 



5 3 *_ 2 2 54 7 5. 2 2 
5<* 225475.62 
55* 225476.22 
56* 225476.62 



C00CCCC06C6 
OO00OCCC010 
00000CCC625 
000C0CCC007 



Hfll 



TIME CLGCK 0CC54C41 PUNID 11C11MCP CARD IC CA001136 CIST. OF 3/Ci 3/01 PAGE NUMBER 240 

"LINE LOCATKfK BINARY CUTPl'T NaVe STATEMENT" .---_.--.-.--- lCCATTcn 225477 



1* 225477.22 000000C0644 DD ( BU , 32 ) , 420 , 6 , 435 , 5 , 45C ,4, 465, 3 , 480 , 2 , 495 , 1 -1107 OA001136 

2* 225477.62 000000C0006 OA001136 

2* 225500.22 000000C0663 0A001136 

<*22550C.fc2 00000000005 _ _ _ 04001136 

_S *_22550_1.2_2 ___ __ ~ 00000CC07C2 _ _ ^ _______ ___ ___ __ ___ _ _ QA00li_36 

6* 225501.62 00C00CCC004 OA001136 

i* 225502.22 OO0COCG0721 0A001136 

£* 225502.62 000C0CCC0C3 t 0A001136 

?* 225503.22 000C0CCC740 OA001136 

____2__5__._62_ * __ 000 00000002 _ ___ ___ _ __ __QA001136_ 

U* 22 5504_._2_2 00000000757 _ _ QA001136 

12* 225504.62 00000CC00C1 OA00il36 

12* 225505.40+ +0CGC0GC0 NULL V CW SYN,$.14 -1108 0A001137 

14* 2255C6.CC+ +CC00COCO NULL V MT SYN,$.46 -1109 0A001138 

15* 225505.22 00000CC0776 DD< EU , 32 ) , 510 -1110 0A001139 

16* __ _CNCPiC _ _ _ __-llll _QA001140_ 

i 1 »__*£_ 5 06_._0_0__* P_0C776 t C0 ___ V_ e_Fl_ __DRZ C ______ , _(34_t_l_5 ) __ _ _ -1112 OA001141 

IE* 226504. CO C0C776.C0 V EF2 DRZ ( RU, 64 ) , { 34, 15 ) -1113 OA001142 

1.* 227502. CO 227524.33 30 R LNLD SV,13,R UNLD2 -1116 OAO0U43 

2C* 227502.40 000000.42 3D LV , 1 , . 32 < $13 ) -1117 0A001144 

21* 2275C3.C0 225266. C3 04 KVI,$1,VWT OA001145 

__*______3_40 _2_3_Q.3_5_5_._3_2 _C __ BZ.XE t RKSCON ___________ _ 0A001146 

22*22750^.00 C L 0C_C0_5.4Q__8D SI C L 5 . 32| $13 ) _ _ __ _„_ __ _ 0A001147 

2'* 227504.40 227512.10 00 B,R UNLD1 -1120 CA0C1147 

25* 227505.00 224757.43 01 LVI,$1,VTCSP 0A001148 

26* 227505.40 227524.32 30 LV,13,R UNLD2 -1122 0A001149 

27* 227506.00 C0CCO5.43 CD SVA , 1 , 5 . 32 { $ 13 ) -1123 OA001150 

26* 227506.40 _0_C_C_CC C_. 4 6 3 D_ LV ,V U , . 32 ( $ 13 )__ -_!___._._ __QAQ01151 

_i_I__2__I_cc _c_c_cpAO.-iQ._oo _ I _ _.l____p _"_ ~~ I ~ " _~ ~__ _ _ 04001152 

3C* 227507.40 CCCC01.4C 80 , D V* t -1125 GA001152 

31* 22751C.CC C0C006.C1 E3 LVE,,V SUV U) -1126 0A001153 

32* 22751C.4C 225272. CO 80 ,V fcCW -1127 OA001154 

33* 227511.00 CCCC4C.10 CO B,D MCP OA001155 

34_*_227511.4C C C_CA1_«_Q<_ __._. __.Q.J__.T _„_ __ -1128 ___Q_0011_5 

3_*_227512.CC C0CCC1_.C2 3D _ R UNL01 _L_V_,_1_,_1 . ( $13 ) -1129 OA001156 

36* 227512.40 C0CC40.10 00 B,D MCP CA001157 

37* 227513.00 CCCC43.40 80 ,D CCMM -1130 OA001157 

20 38* 227513.40 227517.00+ VF,RUNM -1131 0AG01158 

" 3?* 227514. CO C000C5 CF,5 -1132 0A00U59 

is __.i_227514.40 _C_0_CC4_C_._1_C 00 B__D_MCP_ _ GA0C116G 

" 4i*_227515.00_* _ _ _C_0_C_C_1 0..AQ _8 _ ____________ _ _ _ rlJ-33 Q_QQ_l_-0 

I* 42* 227515.40 OCCCOO.OO 81 ,0{$1) -1134 0A001161 

42* 227516.00 000040. LC GO B,D MCP 0A001162 

44* 227516.40 C0CC41.C0 80 ,D RET -1135 OA001162 

45* 227517.00 R UNM ( IQS* ) DC ( 6U, 8 ,8 ) , ATT EMPT TO feRlTE CN FILE * -1136 OA001163 

" 46*_227522_.i_C I LI GS* }CC { RU, S_ 8J_, P_R_CT_E_CT_tD. TAPE * ___ _ __ j_.113 7 _ ______1_64 

" 4 7*„22 7524_.CC _C_CJD_0_C_C._CC + R . JJNLD2 __VF L C " -1138 OA00116_~ 

10 

9 
8 
7 
6 

5 
4 
3 
2 

1 

, „ ^^ 



TIME CLOCK CCC54C41 



PUNIC 11C11PCP 



CARD IC GBOOOOOl 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 241 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



1» 

2 * 

2 * 



*««*««*««* THE OVERLAP INPUT PROGRAM FIXUPS ****************** 



0B000001 
OB000002 
0B0O00O3 
OD000004 



) 



6 

0, ) 



I * 

/* 

I * 

S* 

IC* 



2 2 752 4 

C C C C 3 
0CCC03 
CCCCC3 
CCCC03 
0CCCC3 



•3 1_ _* 
~.CC + 

.CC + 

.CC + 

.CC + 

.CC + 



+GCCCCCCC 
+OCCCOOCO 
+CCCCCOCC 
+OCCCCCCC 
+CCCCCOCC 



12* 

12* 
14* 
15* 

li* 
11* 



00C003 
227524 
227525 
227525 
227526 
2 2 7 52 J 
227527 



.00 + 

.40 

.00 

.40 

.00 

~.~40~ " 



+CCCG0 
230363 
CCCCC4 
COCCGO 
CCCC02 
Q.0CCC1 

cocood 



occ 

. 72 
.33 

.46 
.11 
.44 



NULL 
NULL 
NULL 
NULL 
NULL 
NULL" 



RKA 
RKB 
RKC 
RKC 
RKF 



SLC,$ 

SYN,3.C" 

SYN,3.G 

SYN.3.0 

SYNi'3.0 

SYN.3.C 



OBCC0005 
"OB000006" 
0B000007 
OB000008 
OB000009 
OBOOOOIO 



30 
CD 
3D 
80 

3D 



_R_KJ-_ 
RKS 



UK 



227502.34 02 



77 B2 



SYN,_3.0 

LV,$13,RKSBRC 
V-I ,$13,4.0 
LV,VU,C.32<$13) 
BB,2.9( $13),RLNLC 
LV L $2,1.32( $13) 
LV£,$15,C.32( $2) 



OBOOOOil 

08000012" 

OB000012 

OB000013 

0B000014 

GB000015 

0B000016" 



?! 

91 ) 

/.! 
81 
61 ) 

02 



1£* 
19* 
2C* 
21* 
22* 



22753G 
227530 
227531 
227531 
227532 



.00 
.40 
.00 
.40 

.00 



CGCC01 
227536 
C0CCC1 
227757 
CGCCC2 



.77 
.32 
.37 
.32 
. 14 



04 
C2 
04 
C2 

8D 



230432.74 OC 



KVI,$1 
BXE,RG 
KVI ,$1 
BXE.RD 
BZB,2. 



5,C 

WUK 

5,D 

UK 

12( 



RD 

$13) ,RGNOGC 
VtEF 



0B000016 
OB000017 
OB000018 
0B000018 
0B000019 



22* 
2'* 
25* 
26* 
21* 
26* 



227533 
227533 
227534 
227535 
227536 
227536 



.00 

".40" 

.00 

.00 

.CC 

.4C 



_C_0 C CC7 
2 30204 
227544 
23C364 
227643 
227643 



.77 
.72 
.23 
.21 
.76 
.36 



C4 
CO 

80 
80 
30 

eo 



KVI ,$1 
"BZXE,"R 
CMOCOO 
BB,REJ 
LV,$15 
V+, $15 



5,C 
PLK 
(BL 
JOB 
,RW 



OB000020 
"0B000020" 
OB000021 
0B000022 
OB000023 
GB000024 



001000. CC FO 
227552.74 02 



RGVtUK 



LI 

,1),RWEXBR+.19 

+.17,RWSET 

TRY 

TRY 



> 

20 

1? 

>18 

17 

16 

)l5 

14 

13 
7 12 

11 

10 

; ' 

8 
7 

; 6 

5 

4 

> 3 

2 

1 



29* 
3C* 
31* 
32* 
33* 

3 A* 

~3_S_« 
36* 
3/* 
38* 
39* 
4C* 



227537 
227537 
227540 
227540 
227541 
227541 
227542 
227543 
227543 
227544 
227544 
227545 



.00 

^40" 

.00 

.40 

.CO 

.40 

.40 

.CC" 

.40 

.00 

.40 

.CC 



_C0_C_C_10 
227544 
227646 
23CC13 
23GCG7 
227544 
COCCCJ 

coccco" 

227644 
227552 
227556 
227653 



.37 
.32 
.37 
.00 
.IC 
.23 
.75 
.42 
.40 
.70 
.37 
.77 



04_ 
CO 
CI 
80 
CO 
80 
"fi~2 
~6"E 
EO 
00 
CI 
CO 



227552.34 00 



RWEXBR 
RWREST 



KVI^SI 
BZXE,R 
LVI ,$1 
SIC.RD 
6,RCSW 
B ZB_,_R_W 
L VE , $ 1 
LWF(U) 
STIU), 
NOPf RVii 
LVI,$1 
SVA,$1 



5t? 

kEX 

5,R 

SWE 

TC 

EXB 

4t~l 

, ($" 

RfcE 

SET 

5,R 

5,R 



KB+RKC+2.0 

BR 

WEXIT 

R 

R._19,RWSET-.32 

.32($2] 

14) 

XIT-2.0 



WSBSP 

WEXIT+5, 



32 



08000025 
"OBG0602~5~ 
0B000026 
0B0G0027 
0B000027 
OB000028 
08000029" 
"OBG0003G 
OB000030 
OB000031 
OB0000 31 
OBOC0032 



41* 
42* 
43* 
44* 
45* 
46* 



227545 
227546 
227546 
227547 
22755C 
22755C 



.40 

.00" 

.40 

.00 

.00 

.40 



227643 
22 7 5 54 
227643 
227544 
CCCC40 
CCCCC6.0 



.76 
.76 

.77 
.23 
.10 

+ 



50 

4 A 

5 
80 
00 



R'wSTCR 



001000.36 FO 



LC, $15 
CBZ,$1 
SC, $15 
CM1111 
B,DMCP 
VF,CBS 



,RWTRY 

5,RfcTCNG 

,RwTRY 

(BUt DtRWEXBR.lS 

P 

SL( VU) 



OB000033 
"0B000033" 
08000034 
OB000035 
OB000036 
0B000036 



4 t* 
~4fc* 



2275bl.CC 
227551.40" 



_C0_C_C_C6 
23C1C4 



IC 



B3 

CO 



LVE L , V 

ti,RETN 



OB0C0036 
OB 6 000 36" 



wai 



1 IME CLOCK 00C54C41 PUNID U011MCP CARD 


ID CB000038 DIST. OF 3/C1 3/01 PAGE NUMBER 242 


LINE LOCATION 


BINARY OUTPUT 


NAME 


STATEMENT LOCATION 


227552 


1* 


227552.00 


227644.22 CO 




Z,RWEXIT-2.C 


0E000038 


2* 


227552. 4C 


227563.77 CI 


RhSET 


LVl»$15 t RWEE 


OB000039 


2 * 


227553.00 * 


227651.77 DO 




SVA,$15,RWEXIT+3.32 


0B000039 


<* 


2275.53. 4C 


227566.77 CI 




LVI ,$15,R*BSP 


0B000040 


5 * 


227554. CC 


227545.10 CO 




B, RAREST 


08000040 


t* 


227554. 4G 


CCCC04.37 C2 


RwTCNG 


LCI,$15,RKD+1.0 


0B000041 


7* 


227555. CC 


230364.77 80 227546.74 CC 




BZB1,REJJ0B + .63,R!«ST0R 


0B000042 


e* 


227556. CC 


C0CCG0.46 3D 


Rfcsesp 


LV,VU,0.32($13) 


OB000043 


c* 


227556.40 


230364.77 80 227560.74 04 




BZBZ,REJJCB+.63,RfcN0EG 


CB000044 


1C* 


227557.40 


227577. CC 80 




SlCt RERGBB 


0B000045 


n» 


227560. CC 


227574. 1C CO 




B.RERG 


0B000045 j 
OB000046 


12* 


227560. 4C 


CC0040.1C CO 


RhNOEG 


B,D|VCP 


12* 


227561.00 


CCC0C1.40+ 




VF,CW 


0B000046 


1<* 


227561.40 


CC0C06.C1 83 




LVE,,VSU(VU) 


OB000046 


15* 


227562. OC 


225272.00+ 




VF,VWCW 


OB000046 


U* 
17* 


_2275_62.4C 
227563.00 


230316.77 CI 
23C1C3.5C CO 





LVIi.$15,RESTCR 

B , R T N 


CB000047 
08000047 
06000048 


16* 


227563. 4C 


CCCCC0.46 3D 


Rk.EE 


LV,VU,.32($13) 


19* 


227564. CC 


230334.37 CI 




LVI,$15,R£BSP1 


0B000049 


2C* 


227564.40 


00CC40.1C 00 




B,DMCP 


0B000050 


21* 


227565. CO 


CCCCC6.40+ 




VF,CSPFL 


OB000050 


22* 


227565. 4C 


CCCC06.C1 63 




LVE,,VSU(VU) 


0B000050 


22* 


227566. CC 


23C271.1C CO 




B,RK4P32 


OB000051 ] 


2<* 


227566.40 * 


0CCC00.46 3D 


Ri*esp 


LViVUt 0.32($13) 


06000052 


25* 


227567. CC 


CCCC07.36 33 




LV,$15,VRCNT(VU) 


OB000053 


2£* 


227567. 4C 


230334.31 40 




BZXVZ,REBSP1 


0B000054 


27* 


227570. CC 


C0CC4C.1C CO 




B,DMCP 


0B000055 


26* 


22757C.4C 


CCCOC1.00+ 




VF,DRD 


OB000055 


2S* 


227571. CC 


CCCCC6.C1 B3 




LVEt tVSL(VU) 


OE000055 


3C* 


227571. 40 


23025C.CC+ 




VF,RESKIP 


OB000055 


31* 


227572.00 


230324.37 01 




LVIi$l5»RERDUK 


OB000056 


32* 


227572.40 


GCCC03.77 CD 




SVA,$15,3.32($1.3) 


OB000057 


33* 


227573. OC 


230325.37 01 




LVI,$15,READ 


OB000058 


34* 


227573. 4C 


23C103.5C CO 




B,RTN 


OB000059 
OB000060 
06000061 


35* 
36* 


227574. CC 
227574.40 


227643.34 50 
227602.34 4A 


R £ H G 


LC, $14, RETRY 
CBZ, $14, RENGJB 


37* 


227575.00 


227643.35 50 




SC, $14, RETRY 


0B000062 


38* 


227575.40 


C00C40.1C CO 




B,DMCP 


OB000063 


3c« 


227576. CC 


CC00C5.01+ 




VF t CERGS 


0B000063 


4C* 


227576.40 


CCCCC6.C1 83 




LVE.i VSU VU) 


0B0C0063 


41* 


227577. CO 


227577.10 CO 


RLRGBR 


B f * 


0B000064 


42* 


227577. 4C 


777777.04 3D 


RETEST 


LV,$2,-1.C{$13) 


OB000065 


43* 


2276CC.C0 


227612.71 40 




BZXVZ,REREX 


0B0C0065 


44* 


2276CC.40 


230265.45 01 




LVI,$2,REC0BL 


0B000066 


45* 


227601. CO 


C0CCC4.45 DD 




SVA,$2,4.32I$13) 


OB000066 


46* 


227601.40 


227613. 5C CO 




B.RESPAC 


OB000067 


47* 


2276C2.CC * 


C0CC04.35 01 


RENGJB 


LVI,$14,RKC+1.0 


OB000068 


46* 


2276C2.40 


227643.35 DO 




SVA, $14, RETRY 


0B000068 


49* 


227603.00 


227642.23 80 001000.36 FC 




CM1111(BU,1),RKCRWT.19 


OB000069 





wai 



1 IME CLCCK CCC54C41 



PUNID llDllfCP 



CARD ID CE000071 



DIST. CF 3/C1 



3/01 



PAGE NUMBER 243 
LOCATION 227604 



LINE 



LOCATION 



BINARY OUTPUT 



NAME 



STATEMENT 



1* 

2* 

2 * 

__£* 
~ ~ I * 
----- 

i* 

I* 

<* 

K* 

U* 
12* 

12* 
14* 

15* 

1^? 

IE*" 

l c >* 

2C* 

21* 

22* 

2 -* 
2** 

25* 

26* 

27* 

26* 



227604. OC 

227604.40 

227605.40 

2 2 76 C 6. 0_C_ 

2 2 76 C6_. 4 C_ 

2 2 76 .0 7. 4 C 

22761C.CG 

227610.40 

227611. AC 

22 761 2. C_C_ 

227612.40 

227613.00 

227613.40 

227614. CO 

227614.40 

22 7615.00 

22761J5.4C 

227616. 00 

227616.40 

227617.00 

227617.40 

22762G_.CC 

227620.40" 

227621.00" 

227621. 4C 

227622.40 

227623. OC 

227623. 4C 



225427. C2 10 
230364.21 80 
C0CCC7.74 33 
22_7611.71 40 

__ 22 7642. 23_ 80 
" 227642.C0 80" 
227615. 10 CO 
227642.23 80 
CCCC07.34 33 
227577.71 40 
]l 3C _17_2«_C5 Cl" 
C0CC04.45 DO" 
C0CC40.10 CO 

CC00C7.C0+ 

CCCC06.CI B3 
7 7 7777.04 30 
22 4450.71 42 
225266.62 30 

225266.16 30 
CCC031.16 BO 

225266.17 30 
22 46 77.4 2 6 

A 3 A 3 A 2 _-_4 A° 
230363.42 60 

224677. CC 80 

C0CCC0.62 33 

CCCC42.23 04 

227625.33 42 



230400.34 06 



OC1000.CC FC 



230400.34 OC 



040060. 2C CO 



LX,VP,VPC 

B3ZiREJJ0B+.17,REDUHP 

LV, 14,VFCNT( VU) 
„B^XVZ,RGOGD_ 

CVOCOOtBUil) , R K C R w tV1_9_ 

SICRKCRNT 

B.RESTRP 

BZBl,RKCRkT.19,RfcDUMP 
RGCCO LV, 14,VRCNT(VU) 

J3ZXVZ,RETEST 
_REREX " LVr,$2,RE6SFL_ 

S~V A ,~ $ 2 ," 4 . 3 2 i $ 1 3 ) 
■RLSPAC B,CNCP 

VFtCBSFL 

LVE,, VSU( VU) 

R AS T_R_ P _ _ _ L V , _ 2 , - 1 . C i $ 1 3 ) 

__BXVZ_VRTN_ 
REWTEE LV,VT5,VX1+VWT '" " 

LV,VT3,VX+VfcT- 

V+.VT3, VT5 

SV,VT3, VX+VWT 
RESRCH J-_WF_U_,VSET3-C. 32 

Sf{L),RVSEf3 

LwF(Uy,RKSUB 

ST{BU,32),VSET3-C.32,-32 

LV,VT5,VX1I VU) 

KVI,VT5, 34.0 

BXH»*+1.32 



0B000071 

0B000072 

OB000073 

QB000073 

0E0000 74" 

OB0C0C75" 

OB000075 

OB000076 

0B000077 

OB 0000 7 I 

JQBOOO'078" 
06000078 
0B000079 
OB000079 
OBOG0079 
OBOOOOoO 
BOO 00 80" 
OB0C0081 
OB000081 
OB000082 
OB000082 
06000083 
06000083 
OB000084" 
OB000085 
0B000086 
OB000086 
08000086 

"0800008? 
0600008 7" 
OB000088 
0B000088 
0B000088 
06000089 

_OB000090" 
OB 0000 90 
OB000091 
OB000091 
0B000092 
OB000092 
08000093 

"08000093" 
OB000094 
0B000095 
0B0C0096 
OB000097 
0B000098 

"06000099" 
OBOOOIOO 
0BO00101 
0B000102 
OB 00 01 03 
OB00Cl03 
0B060104~ 
0B000104 
OB000105 



2 C _* 
~3C* 
31* 
32* 
32* 
34* 



227624_CC 

227624.40" 

227625.00 

227625.40 

227626. CC 

227626.40 



C p_C_C_C_0_._C C 
224456.43 
225266.07 
C0CCC0.15 
00CCOO.23 
CCCC26.22 



81 
48 
01 
01 
01 
BO 



RLCCPE 



SIC__VP)__ 
C8+,VP, VNXT" 
LVI,VU,VWT 
LVI ,VT2,C.O 
LVI,VT5,C.O 
V+, VT5, VT2 



35* 
3 6* 
37* 
38* 
3S* 
4C* 



227627. CO 
227627.40 
22763C.CC 
227630.40 
227631.00 
227631. 4C 



CO_C_C_C_0_._CO_ 
224671. 5C 
000000. 15 
227626.71 
230362.42 
224677. 4C 



81 

CO 

05 
C2 
60 
EC 



S I C , ( V P ) 

8~,VSETX 

V+I ,VT2, CO 

BXVGZ, RLCCPE 

LWF(U),RVSET3 

ST(U),VSET3-0.32 



20 

19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



4_* 
42 * 
42* 
44* 
45* 
46* 



227632. CC 
227632.40 
227633. CO 
227633.40 
227634.40 
227635. CC 



225274.6^2 
225274.43 
230372.42 
224324.40 
227637.23 
225266.22 



BO 
"70 

60 
80 
DO 
BO 



SRiVPtVBGB+VHT 
LWF(U),RENXSC 
ST{eU,32),VV<Q,-32 
SVA, VT5,RVT5SV 
V+, VT5, VX+VWT 



040060. 2C CC 



RK7777 



47* 
4€* 
49* 
5C* 
51* 
52* 



227635.40 
227636. CO" 
227636.40 
227637.00 
227637.40 
227640. CC 



227636.70 
CCCG4"2.23 
225266.23 
227637.23 
225232.07 
COCCCC.CC 



C2 

CO 
30 
01 
01 
81 



BXVLZ__..64 

V-I,VT5,34.0 
SV,VT5,VX+VWT 
LVI ( VT5t$ 
LVI, VU, VCR 
SIC,{VP) 



RVT5SV 



53* 2 2 764 C. 40 

54* 227641. CO 

55* 227641.40 

56* 227642. CC 



224 702. 1C CO 
225266.07 CI 
CCC000.23 01 
230265. 3C 00 



B t VCOM 

LVI,VU,VWT" 
LVI,VT5,C0 
NCP,RSAM1 



RKCRWT 



wai 





TIME CLOCK CCC54C41 PUNID 


UDll^CP 




CARD 


ID CB000106 DIST. CF 3/C1 3/01 PAGE 


NUMBER 244 
CN 227642 




LINE LOCATION 




BINARY OUTPUT 




NAVE 


STATEMENT L0CAT1 




1* 


227642 


.40 


777777. 


.03 


C9 










cb-,vp,-i.(vp) 


08000106 




2 * 


227643 


.CC 


CC00C4.C0+ 










RETRY 


VF.RKC+l.C 


0BC00107 




2* 


227643 


.40 


CCCGC4.C04 










RWTRY 


VF.RKC+l.C 


0B000108 




< * 




















CNOP 


GB000109 




f * 


227644 


.CC * 


00CCC1, 


• CO 












DRZIBU,32),2 


GB000110 
CB000111 




6* 


227645 


.CO 


225266. 


.00 


00 










BE, VWT 




7 * 


227645 


.40 


225266, 


.00 


00 










BE.VWT 


0B000112 




£* 


227646 


.00 * 


C0CC02. 


.00 










RfciEXIT 


DRZ(BU,32),4 


0B000113 




S* 


22765C 


.CO 


23C363. 


.40 


80 










SICRKSERC 


OB000114 




1C* 


22765C 


.40 


227524. 


.50 


GO 










8,RKSUK 


OB000114 , 




11* 


227651 


.CO 


227645. 


.33 


01 










LVI,$13,$-4.G 


OB000115 




12* 


227651 


.40 


227651. 


.50 


CO 










B,$ 


0B000115 




12* 


227652 


• CO 


227645. 


33 


CI 










LVI,$13,$-5.C 


OB000116 




14* 


227652 


.40 


227652. 


5C 


00 










B,$ 


OE000116 




15* 


227653 


.00 


227645. 


33 


01 










LVI,$13,$-6.0 


CB000117 




If* 


227653 


.40 


227653. 


.50 


CO 










B,$ 


0B000117 




17* 


227654 


.CC 


CCCC32. 


36 


30 








RKSCNN 


LV,$15,VS1 


0B000118 
CB000118 




16* 


227654 


,4C 


224247. 


76 


60 


227664 


.34 


02 




BB,VSC7E.30,RKSOK 




IS* 


227655 


.40 


420000. 


CO 


80 


414032 


.20 


50 




LI(EU,12),C8)420CC0.C,52 


OB000119 




2C* 


227656 


.40 


OOGOOO. 


CO 


8F 


000000 


.20 


CC 




ST{BU,64),U15) 


0B000120 




21* 


227657 


.40 


22 4 241 . 


CO 


80 


060000 


.20 


50 




L(Bb,48»,RJGB 


OB000121 




22* 


227660 


.40 


C0CCC1. 


54 


8F 


060000 


.20 


DO 




ST(EU,4e),1.44($15) 


0B000122 




22* 


227661 


.40 


CCC374. 


37 


02 










LCI, $15,252.0 


0B000123 




24* 


227662 


.CC 


CCCCC2. 


37 


C5 










V+I, 15,2.0 


06000124 




25* 


227662 


,4C 


C0CC01. 


22 


CF 








RKZERG 


Z,1.0{ $15) 


0B000125 




26* 


227663 


.CO * 


227662. 


77 


48 










CB+, $15, $-.32 


0B000126 




27* 


227663 


.40 


224671. 


43 


C8 








RKSCRT 


CB-,VP,VSETX 


0B000127 




28* 


227664 


.CO 


C0CC07. 


14 


3 3 








RKSCK 


LV,VT2,VRCNT{ VU ) 


00000128 




29* 


227664 


,40 


CCCC01. 


15 


04 










KVI.VT2, 1.0 


OB000128 




3C* 


227665 


.00 


227655. 


72 


C2 










BXE,RKSCNN+1.32 


0B000129 




31* 


227665 


.40 


23C364. 


75 


80 


001000 


.36 


FC 




CM1111{BU,1),R£JJCB.61 


0B000130 




32* 


227666 


.40 


0003 77. 


37 


02 










LCI ,$15,255.0 


OB000131 




33* 


227667 


.CO 


000001. 


37 


OD 










V-If $15, 1.0 


OB000132 




34* 


227667. 


.40 


227662. 


50 


00 










B.RKZERC 


OB000133 




35* 


22767C 


.00 


CCCOCC.OC 


) + 










RKBITL 


VF,C 


0B000134 




36* 


227670. 


,4C 


ccococ.oc 


! + 










RKSBIT 


VF,C 


GB000135 




3/* 


227670. 


.41 + 


+0CCCG00O 




e ,3i 


,01 


RKSRTB 


SYN, RKSBIT. CI 


0B000136 


20 


38* 


227671. 


CC 


cccccc.or 


) + 










RKRTBL 


VF,0 


OB000137 


19 


39* 


227671, 


.40 


230000. 


30 


30 








RTEPBS 


LV, $12,RBSP3X 


0B000138 


18 


4C* 


227672. 


.CO 


227672. 


71 


CO 










SVA,$12,$.32 


OB000139 


17 


41* 


227672. 


40 


227672. 


71 


09 










LVNI,$12,$ 


0B0C014G 
0B000141 


16 


42 * 


227673. 


00 


000004. 


31 


05 










V+I, $12,4.0 


15 


42* 


227673. 


.40 


227720. 


5C 


00 










B,RYSET.32 


0B000142 


14 


4<* 


227674. 


.00 


225427. 


02 


10 








RTEE 


LX,VP,VPD 


OB000143 


13 


45* 


227674. 


40 


225312. 


07 


04 










KVI,VU, VST 


QB000144 


12 


46* 


227675. 


CO 


227747. 


32 


C2 










BXE.RKSTAP 


0B000144 


11 


47* 


2276 75. 


.40 


225330. 


37 


80 










LVE,$15,VRT-1.C 


OB000145 


10 


4£* 


227676, 


CC 


224570. 


37 


04 










KVI ,$15,VSRE0 


OB000146 


9 


49* 


227676. 


40 * 


227735. 


72 


C2 










BXE,RTREST+1.C 


OB000146 


8 


5C* 


227677, 


00 


225346. 


07 


01 










LVI,VU,VG 


08000147 


7 


51* 


227677. 


40 


227742. 


23 


C9 










LVNI,VT5,RTD0WN 


0B000147 


6 


52* 


227700. 


CC 


cocccc. 


CO 


81 










SIC,(VP) 


OB000148 


5 


52* 


2277CC. 


40 


224702. 


10 


GO 










B,VCCM 


OB000148 


4 


54* 


227701. 


00 


224457. 


23 


09 










LVNI,VT5,VQEND 


0B000149 


3 


55* 


227701. 


40 


coccoo. 


CC 


81 










SIC, (VP) 


OB0C0149 


1 

1 


56* 


227702, 


CC 


224702. 


10 


00 










B.VCQM 


OB000149 



wai 



TIME CLOCK CCC54C41 



PUNIC llDU^CP 



LINE 



LOCATION 



BINARY OUTPUT 



CARD ID CB0OO15O CIST. OF 3/C1 



3/01 



PAGE NUMBER 245 
LOCATION" 227102 



( 

z 

c 

' f 
? 

9 

L I 

8 

6 

01 ( 

11 

6 1 

ei ( 

*■) 
si 

91 { 
l\ 
31 
61 ( 

05 



1* 

2 * 
3* 

4 tt 

5 * 

6* 
7 * 

e* 

ic* 
il* 

12* 
13* 
14* 
15* 

If* 
17* 

1£* 
19* 
2C* 
21* 

?<* 
23* 
2£* 

25* 
26* 
27* 

2£* 



227702 
227703 
227703 
22 7704 
22 7 704 
2 2 77 C 5 
2277C5 
227706 
2277C6 
22 770 7 
227707 
227710 
22771C 
227711 
227711 
22J712 
227712 
2 2 7713 
227713 
227714 
227714 
227715 
227715 
22 7716 
227716 
227717 
227717 
227720 



.40 
.CO 
.40 
_._C_0 
•A_C_ 
• CO 
.40 
.00 
.40 
_._0_0_ 
.40 
.CC 
.40 
.00 
.40 
._CC_ 
._4C_ 
. CO 
.40 
.CC 
.40 
.CO 
~.4C~ 
.CC 
.40 
.CO 
.40 
.CC 



C0CC00.57 07 

C0CC01.17 13 

225331.07 01 
227770. 37B0 

__~C0"CC40. 10 CO" 

CCCG14.0C+ 

000006.01 B3 

OOCCOO.CO OF 

225340. C3 70 

__J?2A422_iq CQ 

__CC CCC4.il 01 

" 227777.31 DO 

227777.76 50 
227743.36 4A 

227777.77 50 
__22.76 71-.71 _C1 

23CCC1.71 CO 



23CC00.36 
227720.36 
230C0C 
227713 
22 7774 
_C_0CC4C~ 
00 CO 6" 
C0CCC6 
227776 
230215 
00CC04 



3 7 
31 
74 

10 
CC 
CI 
71 
5C 
31 



50 
4 A 
50 
01 
DO 
CO 
~8 
63 
DO 
CO 
01 



V+ICR,VT3,.VF 
SX,VT3,VX2S(VU) 
LVI iVUi VRT 
LVEtSl^RDREXT-l.C 

~b_d_cp_ _""_ 

VF,CChEX~ 

LVE,,VSU(VU) 

BE, ($15) 

SR,VP, VRCNT+VRT 

B,VRTIC1_ 

RYNCGD LVI t 12,RKe + l.C 

SVA,12, Rf TRY" 

LCt $15,RTSP3X 

CBZ,$15,RTNCTR 

SC,$15,RTSP3X 

LVI ,$12,RTEPBS 

SVAt$12fRSREPK~ 

RYHERE ~~LC,$15,RBSP3X ~ 
CBZ,$15,RYSET 
SC,$15,RBSP3X 
LVI t $12, RYHERE 
SVA L S12,RCREXT+3.32 

_R_Y B S P R ,D> Q P ~~_'_ 
VCBSP "• 
LVE..VSU1VU) 

RYfoAIT SVA,$12,R0REXT+5.32 
B.RWAIT 

RYSET LVI, $12, 4.0 



OB0G0150 
0B000150 
OB000151 
BO 00 152 

"0B0C01S3_ 
0600015 3 
0B000153 
OB000153 
06000154 
0B000154 
0B000155" 

"0B000155 
06000156 
0B000156 
OB000157 
OB000158_ 
08000 15B_ 
06000159 
0B000159 
0B0G0160 
06000160 
OB000160 
OB000161" 
06000161" 
OB000161 
06000162 
OB000163 
OB000164 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

c 



2S* 

~3C* 

31* 

32* 

23* 
34* 

_!-_*_ 

36* 
3 7* 
3£* 
35* 
4C* 



22772C 

227721 

227721 

221122, 

227722, 

227723, 

227723; 

227724, 

227724, 

227725, 

227725. 

227726, 



40 

CO" 

40 

CC 

40 

00 

40" 

CC 

40 

00 

40 

CC 



23 CCO C . 
23C355. 
23CC01. 
23CC00. 
227722. 
22 7774. 
221126. 
23CCC0. 
CCCC40. 
00CC05. 
CCCCC6. 
227717 . 



21 
6 7 
36 
31 
71 
76 
37 
10 
40 
CI 
10 



00 
CI 
DC 
50 
01 
DO 
4A~ 
50 
00 
80 
B3 
00 



SVA,_$12t 
LVI, $11, 
SVA,$11, 
LC,$15,R 
LVI, $12, 
_S_VA,$12, 
CBZ,$f5, 
SC,$15,R 
B.DNCP 
,DSP 

LVE,,VSL 
B, RYWAIT 



RBSP3X 

RKSCON 

RSREPK 

BSP3X 

RYTHAR 

RDREXT+3.32 

RYSEET 

8SP3X 



(VU) 
5"7cT 



06000164 

OB-00016 5" 

0B000165 

0B000166 

0B000167 

06000167 

06000168" 

0600 0169 

06000170 

0B0001 70 

OB000170 

06000171 



RYTHAR 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 
8 
7 
6 
5 
4 
3 
2 
1 



4 1 * 
42 * 
43* 
44* 
45* 
46* 



227726, 
221121', 
227727 , 
227730, 
227730. 
227731, 



40 

00" 

40 

CO 

40 

CO 



CO C C_0_5_. 
23CC00." 
227770. 
OOCCCO. 
CCCCG1. 
C0CC40. 



3 1 CI 

31 00 

30 30 

71 BC 

71 BC 

10 CO 



RYSEET 
RTBSP 



LVI_t_tl2i 

SVA,$12, 
LV,$12,R 
LVE,$12, 
LVE, $12, 

B,DNCP 



Ob_qqoi72 

OB000172 
OB000173 
06000173 
0B000174 
GB000JL75 
06000175" 
"CfiOC0175~ 
0B000175 



R6SP3X 
DREXT-l.C 
.32U12) 
1.32(S12) 



47* 
4fc* 
4S* 



227731 

227732^ 

227732 



5_C_ 

CO 

40 



_0_0_C_G_0_1. 
00 0CC6. 
CCGGCO. 



CO 
01 
00 



60 
B3 
8C 



,_CR____ 
LVE,,VSL 
, ($12) 



( VU) 



wai 



T IME CLOCK CCC54C41 



PUNID 11C11MCP 



CARD IC CB000177 



CIST. CF 3/C1 



3/01 



PAGE NUMBER 246 



LINE 



LOCAT ICN 



UNARY OUTPUT 



NAME 



STATEMENT 



LOCATION 



227733 



1* 227733. CC 

2* 227733.40 

2* 227734. CG 

4* 227734.40 



227734.71 01 
227774.71 DC 
227717.10 00 

CCCCC4.31 01 



RTREST 



LVI,$12,RTREST 
S\/A,i>12,RCREXT + 3.32 
B, RYWAIT 
LVlt $12,RKB+1.0 



OB000177 
OB000177 
CB000178 
0B000179 



5* 227735.00 



227777.31 CO SV A , $ 12 , RTTRY 



BO 001 79 
08000180 
0B000181 
OB000181 
CB000181 
0B0G0181 



6* 227735. 4C 

7* 227736.00 

£* 227736.40 

9* 227737.00 

K* 227737. 4C 



227770.36 30 
00C040.10 00 
C0GC14.00 80 
C0CC06.01 83 
COOCOO.CQ 8F 



LV,$15,RDREXT-1, 

B,DMCP 

iDCHEX 

LVE,,VSU(VU) 

, {$151 



11_*_22774C.G0 227772 .1 3 _80 „227741_.74 02 J3B ,_RDREXT + 1 . 1 1, $+ 1 . 32 



12* 227741.00 

12* 227741.40 

14* 227742. CC 

15* 227742.40 

16* 227743. CC 



C0CCC5. 10 CF 
CC0CO3.10 OF 
777777.37 Bi 
230123.10 CO 
CCCCC4.31 01 



B,5.0{$15) 
Bt 3.0($15) 

RTCOWN LVE,$15,-1.0< VP) 
B,RK100G 

RJAGTR _LVI Jt $12 1 RKH+l.O 



GB0C0182 
06000183 
0B000184 
0B000185 
0B000186 
0B000187 



It* 
19* 
2C* 
21* 
22* 



22774_3_.AP_ 
227744. CO 
227744.40 
227745. CO 
227745.40 
227746. CC 



227777.71 DO 



SyA t $12iRTSP3_X__ 

LVI ,$15,RTEE 

SVA,$15,RDReXT+3.32 

B,DMCP 

,DSPFL 

LVEnVSUl VU) 



QBggoi87_ 

08000188 
OB000188 
0B000189 
0B000189 
OB000189 



227674.37 
227774.77 

000040.10 
C00C06.40 
000006.01 



CI 
DO 
00 
80 
B3 



21* 
24* 
25* 
26* 
27* 
2t* 



227746.40 
227747. CC 
227747. 4C 
22775C.CC 
22775C.40 
227751.00 



_ _2_302JL_5 . 5_C_ _0 
C0CC40.10 00 
CCC0C7.00+ 

C0CCC6.01 B3 
227754.37 01 
227774.77 DO 



_8_»RWAIT 

b.oiycp 

VF,CBSFL 
LVE,,VSU( VU} 
LVI,$15,RKSTBS 
SVA,$15,R0REXT+3.32 



G8000190 
06000191 
0B000191 
OB000191 
0B000192 
OB000192 



RKSTAP 



2_i* 
3C* 
31* 
32* 
33* 
34* 



227751.40 
227752. CC 
227752.40 
227753.00 
227753.40 
227754. CC 



22 76 54. 23 C 9 
COCCCC.CO 81 
224456.43 
225312.07 
230215. 5C 
227770. 37 



LVNUVT5,RKSCNN 

SIC, (VP) 

CB+,VP,VNXT 

LV1,VU,VST 

B.RhAIT 

LVE,$15,RDREXT-1.C 



0B000193 

08000194" 

OB000194 

OB000195 

OB000195 

06000196 



48 
01 
CO 
30 



RKSTBS 



36* 
37* 
3£*. 
3S* 
4C* 



227754.40 
227755.00 
227755. 4C 
227756. CC 
227756.40 
227757. CO 



_ C0_CC_4_0_._10 CO 
CCC014.00+ 

C0CCC6.C1 63 

COCCCO.CO OF 

CCCCC5.1C CF 

225232. C7 C4 



VF,CCHEX 
LVE, ,VSU 
B E , { $ 1 5 ) 
B, 5-0C$15) 

KVI,VU,VCR 



06000197 
"0B000197" 
0B000197 
OB000197 
0B000198 
06000199 



20 
19 
18 
17 
16 
15 
14 
13 
12 
11 
10 
9 

a 

7 

6 
5 
4 
3 

2 

1 



VU) 



RCUK 



Alt 
42* 
42* 
44* 
45* 
46* 



227757_.4C 
227760. CO 
227760.40 
227761. CO 
227761. 4C 
227762. CC 



23 CC 13. 72 
CC0C4C. IC 
CCCC14.00 
000006.01 
227771. CC 
C0CC01. 33 



C2 

00 
80 
B3 
80 

5 



_B_XE,RDNQTP 
B,DMCP 
,DCHEX 

LVE,,VSU(VU) 
,RDREXT 
V+I,*13, 1.0 



06000199 

0B000200" 

0B000200 

0B000200 

OB000200 

OB000201 



47* 227762_.40 
4£* 227763. CO 
4S* 227763. 4C 
5C* 227764.40 



_22J7_70._3 3 
2277 70.4 7 
C0CCC1.14 
227777.36 



QQ 

DC 
8D 
50 



SyA,_$l3,RCREXT-l_.0__ 
SVA,VU t RDREXT-.32 
BZB,1.12($13),RPQU£S 
LC, $15, RTTRY 



06000201 
06000202 
0B000203 
0B000204 



230415.74 00 



RUK 



Nfll 



iime clcck 0cc54c41 punid 11uuncp card ic cbc00206 uist. of 3/c1 
lIne "LgcatTcn binary" output " ""name statement" 



3/01 



PAGE NUMBER 247 
LOCATION 221 165 



1* 227765. CC 

i* 227765. 40 

3* 227766. CC 

i* 22 7 76 6. AC 

"_'*_?? 7 767_.C_C_ 

£» 227767. AC 

7* 22777C.CC 

fc* 22777C.4C 

9* 227771.00 

lt?_2277 7 3.CC 

11* 227773. AC 



227707. 76 4A 

227777.37 50 

22 772 7.71 CI 

22777A. /I DO 



22 7715.50 

codcoo.'io 

22 5331, 
225331, 
00CC02. 
227770, 



,CC 

.CO 

00 

46 



GO 
GO 
CO 
GO 

30 



RCREXT 



23CCC0.5C GO 



CBZ,U5,RYN0GD . 

SC, tl5,RTTRY 

LVIi $12,RTBSP 

S V A ,_ $ 1 2 » R CRE X T + 3.32 
~B,,RYBSP ~ 

"CN0P,~C 

BE,VRT 

BE.VRT 

DRZ(BU,32),4 

LV,_VU,RCREXT r _.32 
~B,RUKSRT 



0B000206 
0B000207 
0B000208 
BO CO 208 
BO 00 209" 

~0 BO 002 "lu" 
OB000210 
OB000210 
0B000211 
OB000212 
08000212" 

"OBC002'L3" 
0B000213 
06000214 
OB000214 
OBG00215 
0BC00215" 

"08000216 
08000217 
0E000218 
0B000219 
0B000220 
08000221" 
06000222 
0B000223 
0B000224 
0B000224 
0B000225 
08000226^ 

"08000227" 
OB000228 
0B000228 
OB000228 
GB000228 

"0B0C0229" 

"OB000229" 
0B000230 
08000230 
0B000231 
08000232 
08000232 

"OB000233 
0B000233 
0B00023A 
0B00O234 
0B0G0235 
OB000235 

"06000235 
0B00023f> 
08000236 



12* 

13* 
14* 
15* 

17* 



22777A.C0 
22777A.AC 
227775.00 
2 2 77 7 5. AC 
22 7 776. CC 
227776. AO 



227770. A6 
22777A.5C 
227770. A6 
227775. 5C 
227770.46 



30 
00 
30 
CO 
30 



227776. 5C GO 



LV,VU, RCREXT-. 32 

B,$ 

LV,VU, RCREXT-. 32 

B,$ 

LV,VU 1 RCREXT r .32 

B,$ 



1£* 
IS* 
2C« 
21* 
21* 



227777. CO 
227777 .AC 

23CCCC.C0 
23CCC0.AC 
230001. AC 



CCCCOA 
CCCOOA 
CCC0C5 

227772. 11 

23C355. 1G 



80 

00 



230002. 3A 00 



RTTRY CF,RKB+1.C 

RTSP3X CF,RKH+1.C 

RBSP3X CF,5.0 

RUKSRT BZB,RCREXT+1.09,$+1.32 

RSREPK B.RKSCGN 



?3* 
2<* 
25* 
26* 
27* 
2£* 



23Cpg2_.CC 
23CCC3.C0 
23CCC3.A0 
23CCCA.CC 
23C00A.AC 
23CCC5.C0 



22 7 7 72 . 1 A 
22 7771.76 
C0CC00.77 
CCCC01.37 
227764.72 
227770.33 



BO 
30 
BF 
04 
C2 
01 



230415.74 CC 



E Z 8 , R CR EXT + 1 . 12 , RPQliE _S 
TV, $15," R OR EXT. 32 
LVE,$15,.32C*15) 
KV1,$15,CRD 

BXE.RUK 
LVI,$13,RCREXT-1.0 



29* 
3C* 
31* 
32* 

32* 
34* 



23CCC5.4C 

23CC06.CC" 

23C007.CC 

23C007.40 

23CC1C.00 

23CC1C.4C 



2_3C_2 5 ._5_0 00 
" 230 364.76 80 
C00040.1C 00 
CCCG14.C0+ 

C0CC06.01 B3 
CCCCCO.CC 8F 



B,RPUK _*_ 
"'BB»'REJJCB.62tRDSkBR" 
B,DMCP 
VF,DChEX 
LVE,,VSU(VU) 
, ($15) 



2 30013.34 2 



RCSWTC 



35* 
36* 
37* 
3i * 
39* 
4C* 



230C11.CC 
23CC11.40 
230012.00 
23C012.4C 
23CC13.CC 
23CC13.40 



O0 0CC1.3 3 
77 7777.3 3 
777777.47 
CCCC01.33 
23CC13.1C 
23C166.30 



05_ 
OF 
DF 

CD 
CO 
30 



_y_+j_i_t\3_i 1.0 

SVA,$13 f "-l.C{$15) 
SVA,VU,-G.32<$15) 
V-I,$13,1.0 

RDSWER B,$ 

RDNCTP LV,$12,RCJAM 



41^* 
4i* 
A3* 
44* 
45* 
46* 



23CC14.C0 

23CC14.4C" 

23C015.CC 

23C015.40 

230016.00 

230016.40 



_ 2 _ 3 _°JA 6 _«_ 7 _ ( I _ p i° 
23C175.37 CI 

C00C04.31 04 

23CC13.C0 80 

23CC06.32 C2 

CC0G40.1C GO 



V + ,_$12,RC0UNT 
LV If $15, RCREXT" 
KVI ,$12,RKF+1.C 
SICRDSWBR 
BXE,RDSl*TC-1.0 
B,DPCP 



^1*_23CC17.CC 

"46* 230017.40" 

49* 230020.00 

5C* 23C020.4C 



_c_c_coo2.cq+_ 
CCCCC6.C1 

230373.00+ 
000002.14 



VF.CCCW 

LVE,, VSU(VU) 

VF,RDCCW 

BZB, 2. 121*13), RCENT1 



83 



80 230032.34 OC 




wai 



1 IME CLOCK CCC54C41 



PUNIU 11D11PCP 



CARD ID CBCCG238 



DIST. OF 3/C1 



3/01 



PAGE NUMBER 248 



LINE 



LOCATION 



BINARY CUTPLT 



NAME 



STATEMENT 



LOCATION 



230021 



1* 23CC21.4C 

2* 23CC22.00 

2* 23CC22.4C 

4* 23C023.C0 



230373.36 30 
C0CC17.37 OD 
230167.36 90 
230034.32 C2 



LV,$15,RDCCfe 
V-I, $15, 15.0 
KV,$15,RC!«SAV 
BXEiRCWEGU 



0B000238 
0B000238 
0B000239 
CB000239 



S* 

~i* 
1 * 
£* 
S* 

1C* 



2 30 2 3. 4 C 
23CC24.G0 
23CC24.4C 
230025. OC 
23C025.40 
23CC26.0G 



2 3 0373.36 
0CCCC3.3 5 
CCCC17.37 
230166.75 
C0CC17.37 
230167.37 



10 
01 
00 
DO 
OD 
10 



LX t $15iRDCCh_ 

LVI,$14,RKF 
C+I,$15,15.0 
SVA,$14,RC0UNT 
V-I, $15, 15. C 
AQSAV. _SX,$15,RCWSAV 



CB000240 



0B000240 

OB000241 

0B000241 

CB000242 

0B0C0243 

0B000244 

BO 66 2 44 

CB000245 

0B000245 

0B000245 

QB000245_ 

OB000246 

0B000247 

0B000248 

CB000249 

OB000250 

_QB000250 

_OB000251 
08000252 
0B000253 
0B000253 
0B000254 
08000253 
GB000255 

"DB000255" 
0B000256 
OB000256 
0B000257 
06000257 
060002 5 8 

"OB000259 
CB000260 
0B000261 
OB000262 
GB000262 
0B0CG263 

"0B000263" 
08000263 
0B000264 
0B000265 
0B000265 
QB000266 
08000266 
0B000267 
0B000268 
0B000268 



si 

! 9l 
- J 

! L{ 

1 91 

61 



11* 

12* 
13* 
14* 
15* 
U*. 
II* 
1£« 
IS* 
2C* 
21* 
22* 



40 
CO 
40 
CO 



2 3 CO 26. 40 

23C027.CC 

230C27 

230030 

23CC3C 

23C031_ 

23CC33_1_._4C 

23CC32.CC 

23CC33.GC 

230033.40 

23CC34. CC 

23C034.4C 



___2_3_CC7 3.^15 

230201.75 

0C0C40.10 

CC0043.4G+ 

23G17C.00+ 

CCC_0C4_._CC_i_ 

___23JU_QA._CC 

230166. CC 

23C373.36 

230026. 10 

230166. 74 

23CC37.74 



Qi 

OC 

CO 



CO 
80 
10 
CC 
50 
4A 



031100.12 80 



R C S E T L VI ,„ $ 1 4 , RC SO S 

SVA,$14,RCREXT+4.32 

B,DMCP 

VF,DCGMF 

VF,RC!"SGE 

V_F,_4.C 

3E L RETN 

RCENT1 M-l,RCJAH 

LX, $15,RDCCW 
B.RCSAV 
RC*EGU LC,$14,RCCUNT 

__CBZ t $14,RCyKNG_ 



23* 
24* 
25* 
26* 
27* 
2£* 



23CC35j.CC 
230035. 4C 
230036. CC 
23CC36.4C 
230037.00 
23C037.4C 



23C166.75 50 



23CC26.5C 
C0CC00.15 
000042.23 
230043.10 
225427. C2 



CC 
01 
01 
00 
10 



RC34RD 



RCUKNG 



2i* 
3C* 
31* 
32* 
33* 
34* 



23CC4Cj.CC 
23C04C.4C 
23CC41.00 
230041. 4C 
23CC42.00 
23CC42.40 



_C _0_Q_CC_4. 3 5_ 
230166.75 
C0CCC0.00 
224633. 5C 
C0CC00.23 
23CC36.31 



DC 
81 
CO 
05 
42 



SC,„$14,_RCgyNT 

B,RCSET 

LVI,VT2,0.0 

LVI,VT5,34.0 

B,RCBCK 

LX,_VP,VPD 

LVI,$14,RKF+1.C 



20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



SVA,$14,RC0LNT 
SIC, (VP) 
B,VEE 
V+I,VT5,C 
BXVZ,RC34R0 



3_5_* 
36* 
37* 
3t * 
3S* 
4C* 



23CC43.00 
230044. CC 
230044.40 
23CC45.4C 
230046.00 
230046. 4C 



2 3 0364.76 
77 7761.42 
42CCC0.C0 
230C66.76 
230373.32 
230C64.7C 



80 
6F 
80 
C2 

10 
42 



230057.74 CE 



RCBCK 



414072.21 10 



BBl,REJJCB.62,RCLiFUL 

LWF(U) ,-15.6( $15) 

KKBU, 12),{8)420CCC.C,-12 

BAE,RCUTCN 

LX,$13,RCCCW 

BXCZ,RCETJM 



4Lt 

42 * 

43 * 
44* 
45* 
46* 



23CC47j.CC 
23CC47.40 
23C05C.C0 
230050.40 
230051.00 
230051.40 



JLC_C_C_1_7_._3 3 oe 
CGCC17.33 05 
230373.33 
COCC00.55 
230304.35 
230202.75 



10 
03 
01 

DC 



RCSETP 



C_-Lt$13 L 15.C 
V+I ,$13, 15. C 
SX,$13,RCCCW 
SVA,VT2,VX1( VU) 
LVI ,$14,RKTRY 
SVA,$14,RCREXT+5.32 



47*_23C052 J .CC 
48* 230052. 4C 
49* 230053.00 
5C* 230053.40 
51* 23CG54.0C 



2_3_C_3_0_3_._35_C1 
2302C _ 0.75 DO 
230373.32 10 
CCCC17.33 OD 
C0CC17.33 CO 



Lyi L $14,RKTRYE 
SVA,$14,RCREXT+3.32 
LX,$13,RCCCW 
V-I, $13, 15.0 
C+I,$13, 15.0 



wai 



TIME CLOCK CC054C41 PUNIC 11C11MCP CARD IU C8C0C270 
CINE LCCaTiCN ""BlKARY~CUTPL r T "~ m7e" 



DIST. OF 3/C1 
STATEMENT" 



3/01 PAGE NUMBER 249 

L C C A T~I ON" ' ~2~30 54 



1* 


230054. 40 


230 


2* 


230055. GO 


COG 


2 * 


23CC55.4C 


GCCCC 


A * 


23CC56.0C 


CCC 


5* 


230056. AC 


23G37 


£* 


23CC57.0C 


COO 


7 * 


23CC57.40 


COG 


£* 


230060.00 


230 


S* 


23C060.4C 


230 


1C* 


23C061.00 


225 


11* 
12* 


230061.40 
"230062.00 


23C 

"~c"cc 


12* 


230062.40 


224 


14* 


23C063.0C 


23G 


15* 


23C063.40 


225 


If* 


230064. CO * 


230 


17* 


230064. 4C 


230 


IE* 


230065.00 


000 


IS* 


230065.40 


224 


2C* 


230066. CO 


COC 


21* 


23CC66.4C 


COO 


22* 


23CC67.CC 


OOC 


22* 
2<«" 


23C067.4C 
"23CC70.CC 


CCC 

' coc" 


25* 


23CC7C.4C 


000 


2t* 


23C071.CC 


COO 


27* 


230071.40 


230 


2t* 


230072. CC 


CCC 



3 73.33 

040.10 
1.C0 + 

C06.C1 

3.oq+_ 

CC5. 10 
CC1.23 
C66.72 
C63.23 
2 5 .0 7 
U2.23 
CCO. CO 



702. 
C63, 
232, 

C44, 
166, 
CCO, 



10 
23 
C7 

ic 

C3 
CC 



6 5 5. C 3 
005. 1C 
CC1.23 
C C 1 . 15 
C_00_.~l_6 
C 01 . 1 7 
CCO. 17 
C43.17 
050.72 
001. 17 



10 
CO 

83 

03" 
04 
C2 
CO 
01 
09 
81 
GO 
01 
01 
CO 
70 
81 
48 
C3 
00 
05 
33 
"CD 
33 
OC 
CO 
C9 



RCUFUL 



R75 



RCETJM 



RCUTDN 



SX, $13, R 

8.DMCP 

VF,CRC 

LVE,, VSU 

VF, RCCCk 

6,VNX{VL 

KVltVT5, 

BXE,RCUT 

SVA.VT5, 

LVi^yu.y 

\VNI L VT5 
SIC, ( VP) 
B,VCOM 
LVI ,VT5, 
LVItVUiV 
e,RCBCK+ 
SRiVPt RC 

"S I C , ( V P ) 
CB+,VP,V 
B,VNX(VU 
V-I,VT5, 
V+I,VT2, 
LV,VT3,y 
V-I ,Vf3", 
SV, VT3,V 
KVNI, VT3 
BZXE.RCS 
LVNI,VT3 



CCCW 



<yy) 

_ 

1.0 

DN 

RT5 

sc_ 

,RCRE~J~B~ 



$ 
CR 

JAM ___ 

ACT 
) 

1.0 
1.0 

x(yu)~ 

1.0 

X(VU) 

,35.0 

tTP 

,1.C 



CB000270 
OB0C0271 
0B000271 
G BO 002 71 
0B00027_r 
" 6 BOO 0272" 
0B000273 
08000273 
OB000274 
0B000275 
0B00027~5 
080002 76 
OB000276 
OB000277 
OB000277 
OB00027/ 
BOO 02 78" 
0B000279 
OB000279 
OB000280 
OB000281 
08000281 
0B000282" 
08000282 
0B000283 
0B000283 
0B000283 
CB000284 



6 
01 
1! 
Z! 
El 



31 
61 



20 
19 
18 
17 
16 
15 
14 
13 

n 

11 
10 
9 
S 
7 
6 
5 
4 
3 
2 
1 



2S* 
3C* 
31* 
32* 
33* 
34* 
35 * 
~36* 
37* 
3£* 
3S* 
AC* 



230072 
23CC7 3. 
230C73, 
230074 
23C074 
23CC75, 
"23C07 5". 
23C016. 
230076 
2 300 77, 
230100, 
23C10C, 



4C 

CO 

AO 

CC 

40 

CC 

4(T 

CC 

4C 

40 * 

00 

AC 



COG 
23C 
COC 
230 
OOC 
CCC 
COG 
23C 
23C 
CCC 
23 C 
OOC 



CO .1 7 
C50.5C 
COO. 46 
104.31 
040.10 
CC2.C0 
006.01 

i riVc"c 

111.22 
CC5.71 
30 3. 31 

C04.71 



33 

CO 
3D 
CI 
CO 
80 
Qj 
8 
80 
OD 
01 
CD 



230104.74 00 



SV,VT3 L VX{yU) 

b.rcs'etp 
rcscs lv,vu,c.32($13) 

LVI,$12,RETN 
B,DMCP 
_t_DCC_W _ 
! I - Ly_E_,_ t y_$\j ( v u ) ~ 
,RRCCW 

8ZB,RRCCW.18,RE0F 
SVA,$12,5.32{$13) 
LVI ,*12,RKTRYE 
SVA,$12,4.32{$13) 



08000284 
"08000234 
0B000285 
0B000285 
0B000286 
06000286 
08000286 
06000286 
0BC00287 
0B000288 
0B000288 
OB000289 



Alt 
42* 
43* 
44* 
45* 
46* 



230101. 
23C1C1. 
230102, 
230102. 
230103, 
23C103. 



99 

40" 

oo 

4C 

CO 
40 



_ 2_3p 

CCC 

CCCOC 
000 

23016 
COC 



304.3 7 
C40.1C 
1.00 + 
006.01 
7.0G + 
C06.77 



00 
8 3 
CD 



_R_T_N_ 

_KJL_T_N 
RECF 



LVI,$15,_RKTRY 

8,DNCP 

VF,CRD 

LVE,,VSU(VUJ 

VF,RCHSAV 

SVA,$15,6.32{$13) 



08000289 

08000290" 

0B000290 

0B000290 

GB000290 

0B000291 



47* 

4e* 

4S* 
5C* 
51* 



23C1G4. 
23C1C4" 
230105, 
23C105, 
23C1C6. 



CO 

4C" 

00 

40 

CC 



_22_4 

COG" 
OOC 
COO 
224 



450.50 
C4"0. 1C 
G14.C0 
C06.01 
115.CC 



CO 
CO 
80 
B3 
80 



B 



_t_VRT 
B,UMC 
,DCFE 
LVE,, 
,VCRE 



N_ 
p 

X 

VSU(VU) 

XT 



0B000292 
OB 00 02 93 
0B000293 
0B000293 
08000293 



wai