R25 5401 0__25_Microprogram_Listing_1401_1460_E40_1969 0 25 Microprogram Listing 1401 1460 E40 1969
R25-5401-0__25_Microprogram_Listing_1401_1460_E40_1969 R25-5401-0__25_Microprogram_Listing_1401_1460_E40_1969
User Manual: R25-5401-0__25_Microprogram_Listing_1401_1460_E40_1969
Open the PDF directly: View PDF 
.
Page Count: 296
| Download | |
| Open PDF In Browser | View PDF |
Field Engineering Education
Supplementary Course Material
@Y(@crr§rill/~@(Q)
Model 25 Microprogram Listing
1401/1460 Emulator - *E40
PREFACE
This publication contains a listing of the 1401/
1460 emulator microprogram, *Engineering
change level and features present do not relate
to any specific system, limiting the use of this
listing to the classroom.
The listing shown is actual and has not been
altered in content in any way.
Routines are in alphabetical sequence as shown
in the listing index.
*And is meant for use in the System/360 Model
25 DPS/1400 Emulation Course 13217.
Address any comments cnncerning the contents of this· publication to;
IBM, Field Engineering Education Media Development Center, Dept 916,
Rochester, Minnesota 55901
@
Copyright International Business Machines Corporation 1969
Preliminary Edition
THIS PUBLICATION IS IN A PRELIMINARY STATE OF
DEVELOPMENT. ANY CORRECTION OR SUGGESTIONS THAT YOU CAN OFFER FOR THE FORMAL
PUBLICATION WILL BE APPRECIATED.
'lACHINE TYPE
MODEL
CORE LOAD
*E40
,'lASTER CONTROL
I:C 1# 128211
SUM CHECK 1# 763A
** SEE
*E60 BCHK
DSOP1400
FEATURES NOT PRESENT
2542055
MEM24K
PAGI: I II
SERIAL 1#
MACHINE STATUS
FEA TURES PRESENT
2539228
r.jES/FCSI #
2528681
STERLING
**
DATE PREPARED 11/08/68
AOUR
WORD
SEQUENCE NO.
*E40
*1: 40
*E40
*E40
*1:40
*E40
*E40
*E40
*E40
*E 40
*(:40
*E40
*E40
*1:: 40
*E40
*E40
*E40
*E40
*E40
*E40
*E40
*E40
*E 40
*E40
*E 40
*E40
*E40
*E40
*E 40
*E40
*E40
*E40
*E40
*E 40
*E40
*E40
*E40
*E40
*1'40
*E40
*E 40
*E40
*E 40
*E40
*E 40
*E 40
*1'40
*E40
*1'40
*F40
*1' 40
*1'40
*F40
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
025
026
027
028
029
030
031
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
059
060
061
062
063
064
065
LABEL
T
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
'"
*
*
**
*
*
*
*
*
'"
'"
*
*
'"
*
NEXTSEQ
NEXT LABEL
STATEMENT
CLJAD=*E40. EC LE VEL=128211
COMMENT S
1400 COMPAT I BILITY
BCPL
RESIDENT CONTROL LJAD
BOlA
IAAA
USERS IN IT I AL IIAT ION P ROC EED URE
BRANCH CHARACTER EQUAL OR ON INDICATOR
IBCH
CLEAR,CLEAR AND BRANCH
ICLR
[CMP
COMPARE
COMMON ROUT INES
ICOM
I CTI)
CONV ERT ADD RESS T() DECIMAL
ICYC
I-CYCLES
IeYD
AUX STORAGE-2-UP CODE AND B IA S TABLE
lOIS
STOP ROUTINE
[ERR
A AND B INVAL ID ADDR ES S CHECH
IMAD
MODIFY AODR ESS
IMEM
MEMORY SCA'l
IMRC
MOVE RECORD
I MV I
MOVE lONE JR DIGIT OPS
INDX
INDEX ING
I NIL
ADD BIAS A'lD MISC. INITIALIZING CONSTANTS
INRU
SOFT STOP,I/O AND CONSOLE REQUE ST
INTP
SENSE SWITCH.TAPE DENSITY AND START RESET
MOVE OR LOAD IIJ U"l IT ADORE SS
IDCM
I PLS
IPL START RESET
IAOD
ADD SU BTR.
IDVD
1400 DIVIDE
IMVE
MOV E AND LOAD OPS
1 MPY
1400 MULT IPl Y
MOVE WiTH IERO SUPPRESS
I MZS
I EDT
EDll OP
IRAD
RESET ADO AND SUBTRACT
[REG
STORE AND ~ESTO'l.E REGI STERS
SYST EM RESET
I RST
ISAB
STORE A OR B STAR
ISIC
SET IC
ISTP
INSTRUCT IO'l STEP
CLEAR OR SET WJ~O MARK S
ISWM
MACHlNE CHECK A'lO STJRAGE W~AP TRAP ROUTINES
lTRP
I UBR
JNCONOIT IO~ AL 8~ANCH
BRANCH ON lONE,~ORD ~ARKS )~ TE ST BIT
IlW~
1401 TAPE SELECTJR CHANNEL
JCHL
1401 TAPE READ A'lD WR-ITE DoHA LOJPS
JDT A
1401 TAPE E~OI'lG RJUTINE A'l~ ~)R-PUNC~ ~EQ-IN
JENO
1401 TAPE JP CJOE, !)-~OD I F I EI:!. JE::OJE
JODE
1411 TAPE O-~JDlfIE~-UNIT ~nD~ESS VF~IFIsaTIO~
JT P'=JTY P
TV'PI'IRITER ~JUTI'lES
JY PE
DISPLAY
KAAA
START F IL E
KAAF
S EM CH 10
K.I\AH
"'1AI'I r; r ATUS
J"J.JS'j AL STATU,)
KAAN
KAAQ
E"JJ CJ"J DIT IJ'l S
KD,RB
XF~R CO"'1~A'lO DECJOE
KBRC
DECRE"'1F"JT S Ecn ~
PAGE
\ ) i)~
WCl'< 0
LABEL
SE:;)UF"JCE NO.
*E40
*1:40
*£43
*E I~O
*E40
*E40
*E '.0
*E 40
*E 40
*F 40
*E40
*E40
*1: '+0
*F40
*F40
*E40
*£40
*E40
*E40
*E40
*£40
*E 40
*F:40
*E40
*E40
*E 40
*F40
*E40
*E40
*E 40
066
067
068
069
070
072
on
074
07'5
076
077
078
079
080
081
082
083
084
08'5
086
087
088
089
090
091
092
093
094
095
096
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
**
*
'"
'"
''""
*
*'*"
*
NEXTSEQ
-:L JA1=*E'4-I),
C,)'l"1E\lTS
NEXT LAGH
S T A Tf'''1F'H
KRRO
K8'1E
KRBG
KfI'IH
KFND
LOrD
LREQ
LRTR
LPrR
LXFR
LSSO
LRXF
LR!)R
L PXF
LDSU
LPCH
LPeB
LERR
MAAA
M8BR
MOOD
MJJJ
MKKK
MLLL
Cfl'N !CRT RI~AR.Y CJU\lT F IFL f) TJ :"16
<; EF~ 'lP
OEVICF E\I !)
I\lr:RE"1E'.JT RI'Il\~Y DCF
RE<;T1RE STARS
READ A"ID pJ"ICH )P
REAO R. ES ET
RE Af)F~ T~A')
NAT IV!" PJ"Ir:H HAP
READER XFn-R ),oJ II.1A;E T'J CJL-'H"l F l~ "1
STflCKER. SEECf CJ'-1"1A"JO
TRA'ISFf'R l)ATA lUX TJ '-1 A 1'1 ST:H1\';<:
READ ENDI"lG
PJNCH TRA\lSHR-EBCDIC n RJW FJR."1
D(JNCH OR pFR SET-U'
PINCH E'.JO[\j G R)JTI~ES
fRA"lSFER EBCDIC DATA TO COLU"1'l BI"lARY
BRANCH A"JD PU\lCH E~RQR RJUTI"JE
1442 "InnIFI ER OEOOE 1\ ND T'l I TI H SELE::nON
1442 R FAD CM"J!) AND S fA TUS DECJ]E
1442 S E"lSE C"I\lO A\lO ST nus OECJDE
1443 "'100 I F I ER DECJOE AND 1\1 IT U L SELf=CTION
1443 PRJ"JT C\1\10 A\I 0 STATUS OE::)DE
1443 DATA LOOP
1443 SE"lSE SUTUS DEClDE
1443 BR.ANCH 0'1 BUSY
1443 FOR ... S OP DECJDE
1443 BRANCH 0\1 ER~)~
1403 PRINTER
AlJX STORE fABLE LOAD
MMMM
MNNN
MPPP
MQQQ
MPRT
MZZZ
Er:
L r: VF L = 1?:P 11
DAGE
'J
:LJAD=*E40, EC LEVEL=128211
PAGE'
3
BCPL DESCRIPTIVE TEXT
THE BCPl ROUTINE IS NORMALLY RESIDENT IN CONTROL STORAGE,
AND IS USED TO LOAD THE INITIAL RECORD OF FITYER THE CHAN~EL
JR NATIVE BOOTSfRAP ROUTINES.
IF THE BCPL ROUTINE HAS BEEN ALTERED, THE APPROPRIATE
HANDLOAD INFORMATION MUST BE ENTERED TO BE SURE OF CORRECT
CSL OPERATION.
PROCEDURE
FOR
PUNCHING CSL CAR1S
COLU..,NS
STARTING ADDRESS TO BF LOA1ED
CJDE INFOR~ATIO~
HEX 80
DATA IS FOR PROGRAM STORAGE
HEX 40
LAST CSL CARD OF OECK
HEX 20
DATA IS FOR AUXILIARY STORAGE
*** SWITCH SETTI NGS FOR CSl ***
SWI TCHS
HEX 10
DATA IS FOR CONTROL STORAGE
A,B
4
CO~TAI~S T1E NU~BER OF HALF WORDS TO BE LOADED
CC
CSL FRO~ CHANNEL
A,fl
5-68
CONTAIN THE DATA
00
CSL FRO"" NATIVE 2560
A,B
69-72
OPTIONAL, :AN BE USED FOR ANY INFORMATION.
EE
CSL FRO~ NATIVE 2540
FE
73-77
*NNN9 WHE~E ~ IS THE CORE LOAD 10.
A.S
C SL FROM NATIVE 2311
78-80
XXX 3 DIGIT Nur~BFR I~DICATING S1=Q. OF PATCHES.
SWITCHES C,D
SET TO ACTUAL UNIT ADDRESS
*** WARNI~G- DO ~lT PU~:H :AROS TO LOAD INTO AUX ~ODULE 1,3,4
********************************************************************************************************************************
RESTRICTIO~S
1-2
3
CO~TAI~
CONTAI~S
WHEN PJNCHING CSL CARDS
COlS 1-2
ALL ADDRESSES SHOULD BE EVEN.
COlS 5-68 JATA FIELD
- CAN BE ANYT~ING
CONTROL STORAGE- THfSE ADDRESSES SHOULD BE IN
COlS &9-80 SEE A30VE.
T~E RANGE OF 0000-3FFE ONLY.
NOT USED BY T~E CSL.
AUXILIARY STORAGE- TYE 2ND HEX CHARACTER IN
*** WHEN LOADING A FULL DECK WITH REPLACF CARDS, THE
:OLUMr-J 1 SHOULD BE A ZERO.
R.EPlACE CARDS SHOULD GO JUST BEFORF THI=' EN!) CARD.
PROGRAM STORAGE - THE AJDRESS MUST BE IN THE
*** WHEN LOADING ONLY ~EPLACE CARDS, IT IS NECESSARY TO
RANGE OF THE SYSTEM.
PUT THE CONHDL STORA:;E CARDS (NORMALLY + I FOR
COL 3
CODED INFORMATION
~DOULE OlXX IN THE DECK.
COL 4
COUNT FIELD - IF A COUNT OF 0 IS INDICATED, 257
ORDER OF THE CAR.DS IS - BOOTSTR.AP CARDS, CONTROL
HALF WORDS WILL 8f LOADED.
STORAGE CARDS FOR. MODULE OlXX, REPLACE CARDS, END CARD.
¥'********************************************************************************************************************************
** EXAMPLE OF PUNCHING AND LOADING A REPLACF CARD **
ASSU~E THAT THE DEVICE ADDRESS FOR THE 1403 ON THE
BURST CHANNEL NEEDED TO BE CrlAN:;ED TO -OA-.
THE STANDARD A!)DRESS FOR THE 1403 ON THE BURST CHANNEL
15 -OE- AND IS LOCATED IN AUXILIARY STORAGE MODULE 0, AT
A() OR E S S - 87- •
THE CARD TO CHANGE THIS WOULD BE PUNCHED IN THE
FOLLOWING MANNER-THIS ADDRESSES MODULE O.
COL 1
('"lEX OOl
COL 2
(HEX 86) ALTHOUGH THE CHANGE IS FOR ADDRESS
87, THE HEX ADDRESS ~EPRESENTED BY
COLUMN 2 MUST BE EVEN.
THIS INDICATES INFORMATION IS FOR
(HEX 20)
COL 3
AUXILIARY STORAGE.
(HEX Oll THIS INDICATES ONE HALFWORD TO BE
COL 4
LOADED.
COL 5
(HEX 0)1
T'"IIS REPRFSFNTS THE 1EVICf ADDRFSS
OF THE 2540 PUNCH T'"tAT MUST ~E
RELOADED BE:AUSE OF THE ADDRESSING
RESTRICTION IMPOSED BY COLUMN 2.
COL 6
{ HE X OA I
THIS REPRESENTS THE DEVICE ADDRESS
COL 69-72 { 00S6)
TO INDICATE START ADDR OF PATCH.
COL 73-77 (*E609)
INDICATES PATCH IS FOR *E60 CORE lD.
COL 7S- SO ( 001)
INDICATES 1ST ?ATC~ TO DECK
REPLACING THE STANDARD ADDRESS FOR
THE 1403 ON THE RU~ST CHANNEL.
A CSL ..,UST BE PERFJ~MED TO LOAD THIS RECONFIGURATION CARD
INTJ THE SYSTEM. THE RECONFIGURATION CARD MUST PRECEED THE
END CARDt AND MUST BE PRESENT IN THAT POSITION FOR ALL
CSLS USING THAT PA~TICULAR :ORE LOA) DECK.
*** EACH TIME A NEW E: LEVEL DECK IS RECIEVED, ALL RECONFIGURATIJ~ CARDS IN THE OECK BEING REPLACED MUST BE REMOVED
A~D INSERTED IN THE NEW OECK IN FRONT OF THE END CARD.
CUJAD=*E40, EC lEVEl=128211
PUNCHED
dEX PUNCHES
OJ T-0-9- 8,..1
01
"
()3
~)
)4
0')
d6
')7
08
09
OA
OB
UC
{) [)
:) E
Of10
11
12
Li
14
1 ')
16
11
18
19
1A
18
IC
to
IE
iF
20
II
n
23
24
T-9-1
T-9-2
T-9-3
T-9-4
T-9-5
T-9-6
T-9-7
T-9-8
T-9-8-1
T-9-8-2
T-9-8-3
T-9-B-4
T-9-8-5
T-9- B- 6
T-9-8-1
T-E-9-8-1
E- 9-1
E-9-2
E-9-3
E-9-4
E-9-5
E-9-6
E-9-7
E-9-B
E-'i- B-1
E-9- B-2
1':-9- 8- 3
E-9-B-4
E-9- 8- 5
E-9-8-6
E-9-B-7
E-0-9-8-1
0-9-1
0- 9-2
0-9-3
0-9-4
··
···
···
··
·
··
··
···
·
··
HEX
25
26
27
2B
29
2A
2B
2C
20
2E
2F
30
31
32
33
34
35
36
37
38
39
3A
···
·· 3C
··
··
···
··
··
·
38
30
3E
3F
40
41
42
43
44
45
41>
47
48
49
PUNCHES
0-9-5
0-9-6
0-9-7
0-9-8
0-9-B-l
0-9-8-2
0-9-8-3
0-9-8-4
0-9-8-5
0-9-8-6
0-9-8-7
T-E-0-9-8-1
9-1
9-2
9-3
9-4
9-5
9-6
9-1
9-B
9-8-1
9-B-2
9-8-3
9-8-4
9-B-5
9-8-6
9-8-1
NONE
T-0-9-1
T-0-9-2
T-0-9-3
T-0-9-4
T-0-9-5
T-0-9-6
T-0-9-7
1-0-9-B
T-B-l
···
···
···
···
·
··
··
··
··
···
··
··
··
···
··
··
·
'iEX
4A
4B
4C
40
4E
4F
50
51
52
53
54
55
50
51
5B
59
5A
5B
5C
50
5F
5F
60
61
62
63
64
65
66
07
68
1'>9
I'> A
68
I'>C
1'>0
6E
PUNCHES
T-8-2
T-8-"\
T-8-4
T-8-5
T-8-6
T-8-7
T
T-E-9-1
T-E-9-2
T-E-9-3
T-E-9-4
T-E-9-5
T-E-9-6
T-E-9-1
T-E-9-B
E-B-l
E-B-2
E-B-3
E-8-4
E-B-5
E-B-6
E-B-7
E
0-1
E-0-9-2
E-0-9-3
E-0-9-4
E-0-9-5
E-0-9-6
E-0-9-1
E-O-9-8
0-8-1
T-E
0-8-3
0-8-4
0-8-5
0-B-6
···
···
···
·· 17
··
···
···
···
···
··
HEX
6F
70
71
72
73
74
75
70
···
·
···
···
·
78
79
1A
1B
1e
70
7E
1F
80
81
B2
B3
84
B5
B6
81
88
B9
BA
B6
8C
80
BE
BF
90
91
92
B
CARD
PUNCHES
0-8-7
T-E-O
T-E-O-9-1
T -E-0-9-2
T-E-0-9-3
T-E-0-9-4
T-E-0-9-5
T-E-0-9-6
T-E-0-9-7
T-E-0-9-8
8-1
8-2
8-3
8-4
8-5
B-6
8-7
T-O-B-l
T-O-l
T-0-2
T-0-3
T-0-4
T-O-5
T-O-6
T-0-7
T-O-B
T-0-9
T-0-8-2
T-0-8-3
T-0-8-4
T-0-8-'5
T-O-B-6
T-0-8-7
T-E-8-1
T-E-l
T-E-2
T-E-3
PAGE
4
CODES
··
···
··
··
··
···
··
··
···
···
···
···
··
··
···
·
HEX
94
95
96
97
9B
99
9A
.B
9C
90
9E
9F
AO
Al
A2
A3
A4
A5
A6
A1
AB
A9
AA
AB
AC
AD
AE
AF
80
81
B2
83
84
85
86
81
B8
PUNCHES
T-E-4
T-E- 5
T-E-6
T-E-7
T-E- 8
T-E- 9
T-E- 8-2
T-E- 8- 3
T-E- 8-4
T-E- 8-5
T-E- 8-6
T-E- 8-7
E-O- 8-1
E-0-1
E-0-2
E-0-3
E-0-4
E-0-5
E-O-6
E-O-1
E-O- 8
E-0-9
E-O- 8-2
E-O- 8-3
E-O- B-4
E-0-8-5
E-O- 8-6
E-O- 8-7
T-E-0-S-1
T-E- 0-1
T-E- 0-2
T-E- 0- 3
T-E- 0-4
T-E- 0-5
T-E- 0-6
T-E- 0-7
T-E-0-8
··
·
HEX
89
SA
SB
BC
SO
BE
SF
CO
Cl
C2
:3
C4
C5
C6
C7
CB
C9
CA
CB
CC
CO
CE
CF
··
···
··
···
··
··
··
··
··
·· DO
···
··
···
···
··
01
02
03
04
05
06
07
08
{)9
OA
DB
DC
DO
PUNCHE S
T-F-O-9
T-E-0-8-2
T-E-0-8-3
T-E-0-R-4
T-E-0-8-5
T-E-0-8-6
T-E-0-8-7
T-O
T-l
T-2
T-3
T-4
T-5
T-6
T-1
T-R
T-9
T-O-9-8-2
T-0-9-8-3
T-0-9-8-4
T-0-9-8-5
T-0-9-B-6
T-0-9-8-1
E-O
E-l
E-2
E-3
E-4
E-5
E-6
E-7
E-8
E-9
T-E-9-8-2
T-E-9-8-3
T-E-9-B-4
T-E-9-B-5
···
··
··
··
··
·
···
··
··
···
··
···
··
··
···
·
HEX
DE
DF
EO
El
E2
E3
E4
E5
E6
E7
EB
E9
EA
ER
EC
EO
EE
EF
FO
Fl
F2
F3
F4
F5
F6
F7
F8
F9
FA
FB
FC
FO
FE
FF
PUNCHES
T-E-9-B-6
T-E-9-8-7
0-8-2
E -0-9-1
0-2
0-3
0-4
0-5
0-6
3-7
3-8
3-9
E -0-9-8-2
E-0-9-8-3
E-0-9-8-4
E -0-9-8-5
E -0-9 -8-6
1"-0-9-8-7
0
1
2
3
4
5
I)
1
8
9
T-E-Q-9-8-2
T-f'-0-9-8-3
T -E -0-9-8-4
T-E-0-9-S-5
T -E -0-9-B-6
T-E-O-9-B-1
··
···
·
CLOAD=*E40. EC LEVEL=128211
***
HANOlOAO
ROUTINE FOR NATIVE 2540
***
AOUR
W8RD
OalO
0012
0014
0016
0018
3210
2610
2C01
2413
8062
SET MMSK K=Sl
SE T BC K=Ol
PO=O
GO=O$KOl
BR
BLOCK TRAPS
SET LOGOUT LATCH
ZERO OUT SWITCH
START SETUP OF ADDR 0100
BRANCH TO LOCATION 0062
0062
0064
0066
0068
006A
006C
006E
0070
(lO12
0074
0076
0078
2406
2617
2783
3775
2501
4066
5EEf
DE6E
5R 3f
&348
736A
FOEE
SE T MODE K=30
OO=O$Kll
Dl=O$KOS
Dl=Dl$K70
Gl=O
U=O
HO:RPS
BR IF HOl=O
V1=RPl
SIB VI CS,G+l
STB VI AS,0-1
BR IF lZNZ
OO=DOcKOl
BR If LZ=O
BR
SET 2540 MODE
BUILD AUXILIARY
STORAGE ADDRESS
FOR COMPARING
FINISH SETUP OF AD OR 0100
SAVE COMPARE ADDRESS
READ 2540 ST ATUS
BACK ONE WORD IF NO DATA
GET READ BRUSH 1 DATA
PUT DATA IN CONTROL STOR
PUT DATA IN COMP TABLE
GO WAIT FOR MORE DATA
INVERT FIRST TIME SWITCH
BRANCH BACK IF FIRST TIME
BRANCH TO BOOTSTRAP
0014
1618
001C
FOE 1
8100
001E
STATEMENT
COMMENT
***
HANDLOAO ROUTINE FOR CHANNEL
ADDR
WORD
0010
0012
0014
0016
0018
001 A
3210
2610
2C07
2413
51AF
002C
002E
0030
0032
0034
0036
0038
003A
003C
003E
0040
0042
0044
0046
0048
004A
004C
004E
0050
0052
0054
0056
0058
005A
005C
005E
0060
2486
2501
2B08
C9B3
4fAf
2B04
2B44
C9BA
2B40
COBE
2B23
4FBf
2B4l
fDC6
5FBF
C4CA
2848
FDCf
EDCE
5FFF
F05B
7F48
F05C
6F48
0550
C4CC
S100
80lC
STA TEMENT
PAGE
5
***
COMMENT
SET MMSK K=81
SE T BC K=Ol
PO=O
GO=O$KOI
TO=SWCO
BR
BLOCK TRA PS
SET LOGOUT LATCH
ZERO OUT SWITCH
START SETUP OF ADDR 0100
SWCD EQUA L DEVI CE ADDR.
BRANCH TO LOCATION 002C
SET MODE K=38
Gl=O
SET GA K=40
BR IF GT4=1
GBIJUT=TO
SET 4A K=20
SET GA K=24
BR IF GT4=0
SET GA K=04
BR IF GTO=O
Tl=O$KOl
GBIJUT=Tl
SET GA K=14
BR IF GT3=O
Tl=GBIIN
BR IF ZNZ
SET GA K=44
BR IF GT3=1
BR IF GT2=0
Hl=:;BIIN
BR IF G07=1
STB Hi AS,G+l
BR IF G07=O
S TB HI CS • G+l
SET CHANNEL MODE,CPU ZONE
FINISH SETUP OF AODR 0100
SET SfRVI CE OUT
BRANCH ON OP IN
SEND DEVICE ADDRESS OUT
RAISE ADDRESS OUT
AND SEt EC TOUT
WAIT FOR OP IN
RESET ADDRESS OUT
WAIT FOR ADDRESS IN
BUILD READ COMMAND
SEND OUT READ COMMAND
RAISE COMMAND OUT
WAIT HERE FOR STATUS
READ STATUS
LOOP HERE IF INVALID STAT
SET SERVICE OUT
WAIT FOR
DATA
GET flATA BYTE
BR IF BOOTSTRAP READING
NOT BOOT INFO,STOR IN AUX
UNCONDITIONAL BRANCH
PUT BOOT IN CNTRL STORAGE
CHECK IF ALL DATA IN,
IF NOT, GET MORE.
BRANCH TO BOOTSTRAP
Z=GlrlK.50
BR IF ZNZ
Bf/.
CLOAD=*E40, EC LEVEL=128211
HANOLOAD
***
AODI{
W]RD
0010.
0012
0014
3210
2610
2C01
0016
B016
0076
008E
0090
2490
2813
2901
4A86
2F 15
2EX5
2D23
409F
OEOS
OE04
49EF
4EOF
4BFf
2E63
~I092
31; 15
0094
4FEF
2E43
E598
4EEF
4BfF
0018
007A
001C
001E
OOti~
0082
0084
0086
0088
008A
a08e
0096
0098
009A
G09C
009E
OOAO
00.1\4
00A6
00A8
OOAA
NO TE
COMMENT
BLOCK TRAPS
SET LOGOUT LATCH
ZERO OUT SWI TCH
BRANCH TO LOCATION 0016
SET MODE K=09
f O=OSKOI
11=0
T=1
Hl=OSKlO
HO=OSKXO
Pl=OSK02
FFO=Il
RST FIB K=40
RST FIB K=20
MS=HO
FBO=Pl
TGRO=H 1
SET 2311 MODE
SET I-REG
TO OIOO
MOVE 0100 TO T-REGISTER
HO=HO$K 1 0
FOP=HO
H0=OSK04
BR IF DASI2=0
FBO=HO
TGRO=Hl
SET FIA K=BO
BR IF DASI2:1
RST FIA K=80
HO=TGRI
BR IF H04=1
BR IF DASl4:l
BR TO 010A
C lA9
810A
*
***
***
SET MMSK K=81
SET Be K=Ol
Po=o
BR
HO=0$K06
50EF
CA25
*
2311
Sf ATEMENT
3000
E 5A 1
11)00
00A2
ROUTINE FOR
SET UP MODULE SELECT * NOTE *
SET UP RETURN BIT {BIT 6)
SEND ZERO TO FILE FLAGS OUT
ISSUE INITIAL RESET
r SSUE COLO-Sf ART RES ET
LOAD MODULE SELECT REGISTER
SEND RETURN TO flLE BUS 01)T
MOVE CONTROL BIT TO TAG REG
SET UP FILE OP, COUNr
OF ONE, DATA READ
MOVE OP TO FILE OP REGISTER
SET UP SELECT HEAD
BR TO ITSELF IF NO GATED ATT.
MOVE 04 TO FILE BUS OUT
MOVE CNTRl BIT TO TAG REG OUT
SET GO lATCH
BR TO ITSELF IF GATED ArT EN.
RESET TRAP LATCH
GET TAG REGISTER IN
BR BACK ONE WORD IF NO TRAP
lOOP ON ITSELF IF ERROR
BR TO BOOTSTRAP
THE X I N THE CONT ROl WORD HAS THE
FOLLOWING SIGNIFICANCEX=8
X=4
X=2
X-I
SELEC TORI VE
SELECT DRIVE
SELECT DRIVE
SE.LECT DRIVE
NUMBER
NUMBER
NUMBER
NUMBER
0
1
2
3
ADDR
0010
0012
0014
0016
0018
OOAC
OOAE
0080
OOB2
0084
00B6
00B8
OOBA
OOBC
OOBe
OOCO
00C2
00C4
00C6
00C8
OOCA
OOCC
HANDLOAD ROUTINE FOR
WORD
2560
SU TEMENT
3210
PAGE
6
***
COMMENT
2e01
2413
BOAC
SET MMSK K=Sl
SET Be K=Ol
P 0=0
GO=O$KOl
BR.
BLOCK ALL TRAPS
SET LOGOUT LATCH
ZERO HANDLOAD FLAG REGISTER
BUILD HIGH HALF CS AOOR. 0100
BR TO OOAC
240E
2F04
2501
5FDF
DAB8
ED33
2FlO
DAC6
CAB9
58FF
SAEF
4EF3
6F48
2B 14
0550
C4B4
8100
SET MODE K=70
SET MFA K=20
Gl:O
Pl:I1FDR
BR IF MFT5=0
6R IF P12:l
SET MFA K=OI
6R IF MFT5=0
BR IF MFT4=1
HI-MFR.l
HO=MFR2
Hl=HOXH+HIL
STB HI CS,G+l
SE T MFC K:2l
Z=GIIlK50
BR IF ZNZ
BR
PUT IN 1400/20, 2560 MODE
SELECT SEC FEED
INOTe 2)
LOW HALF CS ADDR. G=OlOO
2610
NOTE 2 -
BR TO 00138 IF NPRO REQ
BR IF NOT READY
SET READ EX.
CHECK NPRO
BR ON NO DATA AVAIL
READ 1/2 BYTE
READ THE OTHER 1/2
PUT TWO 1/2 8YTES TOGETHER
STORE THEM
RST NPRO, AND RD. EX.
CHECK FOR 80 BYTES
IF NOT 80. GO TO 00B4
BR TO BOOTSTR AP AODR 0100
IN JROER TO USE THE PRI MARY fEED.
REPLACE THIS WORD WITH 2f80. THE START
KEY MUST BE PRESSED 4T THE END TO
COMPLETE THE CSL {lAST CARD 1.
*************************
**
*
*
fOR BOOTSTRAP
INfORMATION, REFER
TO THE AKXXX LOGIC
PAGES.
**
*
*
*
*
*************************
\) OR
),)00
1002
chlOE
),) 10
dJl2
0')14
)016
)) 18
J)lA
')u lC
lJIE
)020
,)022
'1\1 24
J{)26
'qJ 28
L)ZA
1,.l2C
'l,j 2E
) )30
)) 32
) \),~~4
"J 3&
IU 3d
J03A
(),j 3C
1) 3 E
'))40
)\42
,))44
)<146
,'lu48
U()4A
llD4C
Oil I.E
')u50
)) 52
0:)54
,)') 56
"]J58
,)Il SA
UJ 5C
():)'>E
O!)60
(JOb2
)064
0066
uJ68
WuR.D
8000
ORAD
80AC
3210
2610
50Cf
5lAF
2413
OCCF
C4AD
OCDF
C48F
OCEF
C4E3
OCFf
C4AB
BODE
24B6
2507
2B08
C9B3
4fAF
2604
2B44
C9SA
2B40
COBE
2B23
4f-BF
2B42
fOC6
5FBF
C4CA
2B48
fDCf
EDCE
5FFF
F05B
7F48
F05C
6F48
0550
C4CC
8100
2406
2617
2783
3775
LABEL
SEQUENCE NO.
BCPL
BC PL
BCPL
BCPL
BCPl
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BC PL
BCPL
BCPL
BePL
BCPL
BCPL
BCPL
BCPL
J1C PL
BCPL
BCPL
BCPL
BePL
BCPL
BCPL
BePL
BCPL
BePL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BCPL
BC PL
BCPL
BCPL
BePL
BCPL
SCPL
BCPL
Bcn
BePL
BCPL
BCPL
BCPl
BePL
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
011
OlB
019
020
021
022
023
024
025
026
021
028
029
030
0.31
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
NEXTSEQ
NEXTLABEL
ST AT EMENT
CLOAO=*E40, EC LE VE L=12B211
COMMENTS
RESIDENT ROUTINE
T
CSL
ATABLE
ADOR=OOOO
LOCKON
BR
LOC KON
003
XCTL'OBADOBADOBAOOBADOBADOBAD'
C
087
R02560
BR
N2560
THE fOLLOWING WORD
IS THE fIRST WORD
Of THE CSt TRAP
*
SET MMSK K= 81
BLOCK All TRAPS
SET LOG OUT LATCH
SET BC K=Ol
READ
PO=SWAB
SWITCHES
TO=SWCD
GO=O$K01
SET UP C S ADDRESS
I= POcKCC
CHECK fOR
02,3
BR IF 1=0
CHANNEL
CHANEL
l=pocKDD
CHECK FOR
BR IF I=O
N2560
2560
005
l=POcKEE
CHECK FOR
2540
N2540
BR I f l=O
050
I=POcKFF
CHECK FOR
SWIERR
BR IF INI
2311
021
SWIERR
FILE
BR
106
CHAN
PUT IN CHANNEl MODE
SET MODE K=38
CHANEL
Gl=O
CHAN
CS ADDRESS
AGAIN
SET GA K=40
CHA"l
BR IF GT4= 1
CHAN
BR ON OP IN
OPIN
026
OPIN
GB/OUT=TO
CHAN
SEND OUT DE VI CE ADDRESS
SET GA K= 20
CHAN
RA I SE ADDR.
SET GA K=24
CHAN
AND SEL OUT
BR If GT4=0
CHAN
WAIT fOR OP IN
OP 1 NOT
030
OPINOT
SET GA K=04
CHAN
RESET ADDR. OUT
BR IF GTO=O
CHAN
WAIT fOR ADDR IN
ADOIN
032
ADOIN
Tl=0$K02
CHAN
BUILD READ CMND
GB/OUT=T 1
CHAN
SEND OUT THE CMND
CHAN
RAISE COMMAND OUT
SET GA K= 14
BR I f GT3=O
CHAN
WAIT fOR SHTUS
Sf AfUS
036
STATUS
CHAN
READ STATUS
Tl=GBIIN
BR I f lNI
CHAN
LOOP INVALID INITIAL STATS
ERRORA
038
ERRORA
CHAN
SET SER VICE OUT
SET GA K=44
STATC
CHAN
STATUS
LOOP
STATB
BR If GT3=l
040
SfA TB
BR I f GT2=0
CHAN
SER VI CE LOOP
040
Sf AT B
Hl=GBI IN
CHAN
GET DATA
CHAN
fiRST HME
SR IF G01=l
BOOTSTRAP
fIRSTC
046
STB Hi AS, G+l
NOT 1 S T PUT I N A UX
CHAN
BR IF G07=O
CHAN
UNCONDlT BRANCH
DECREM
047
STB HI CS,G+I
CHAN
1ST TIME PUT IN C S
F I RSTC
l=GIIlK50
CHAN
CHECK IF ALL
DECREM
CHAN
BYTES XFERED
ST ATC
BR IF lNl
039
XCTL t 8100'
CHAN GO TO BOOTSTRAP
PUT IN 2540 MOOE
SET MODE K=30
2540
N2540
DO=O$K 11
2540 '3UIUl COMPARE
Dl=0$K08
2540
AOORE SS WHERE CARD
CYCLE
Dl=Ol$K10
2540
IM4GE IS STORED
*
*
c
PAGE
7
ADDR
WORD
006A
006C
006E
0070
0072
0074
0076
0078
O,)7A
UU7C
DU 7E
OU80
(J082
0084
'J086
0088
J08A
OU8C
008E
0090
0092
u094
()O96
0098
009A
JU9C
1l09E
OOAO
00A2
00A4
00A6
2507
4066
5EEF
DE6E
5B3F
6348
736A
FOEE
1618
FOE7
8100
6fE3
6EE3
6EE3
OEOS
OE04
49EF
4EDF
4BFF
2E63
3EI5
4FEF
2E43
E598
4EEF
48FF
3DOO
E5A 1
1000
50Ef
CA25
CIA9
810A
240E
2501
2F04
5FDF
OA88
EDB
2FIO
DAC6
(AB9
58FF
5AEF
4EF3
6F48
2B14
0550
e4B4
8100
FFFF
FFFF
2807
Oi) A8
OOAA
OOAe
i)0AE
0080
ddB2
OJB4
OOB6
00B8
OOBA
JOSC
\.JOSE
ooco
t)rJC 2
,)UC4
i),)(6
UOC8
UI)CA
Ijoee
LlUCE
)JllC
UJDE
LABEL
SEQUENCE NO.
BePL
BePL
BePL
BCPl
BCPL
SCPL
8CPl
BCPL
BCPL
BePl
8CPL
BePl
BePL
BCPl
BePL
BePl
BePL
BCPL
8ept
BCPl
BCPL
BCPL
sen
sePl
BCPl
BCPl
BCPL
BCPL
BCPL
BePl
BePL
SCPl
SCPl
SCPl
BCPL
Ben
BC !>L
BCPL
BePl
BCPl
BCPL
BCPL
Bept
BePL
8CPl
BePL
BCPL
BCPL
Bept
BePL
BePL
sePL
BCPl
054
055
056
057
058
059
060
061
062
063
064
065
066
061
068
069
070
071
072
073
014
075
076
017
078
079
080
Oi31
082
083
084
085
086
081
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
NEXTSEQ
NEXTlABEL
OA TA I N
056
OAT AI N
056
OAT UN
052
CYCLE
WAlTH
077
WAITFl
WAIENA
081
WAlENA
083
085
WAf ENS
ER
093
090
FEED
K5RDY
100
093
NOlT
FEED
091
K6NPO
C
MOD
MOD
MOO
MOO
0
1
2
3
WAIENB
ER
e
RD25bO
K5RDY
K6NPO
FEEO
NDIT
C
e
C
FILE
STATEMENT
ClOAD;*E40. EC lEVEl=128211
COMMENTS
2540 ZERO REG FOR CONTROL AOOR.
Gl=O
SAVE COMPARE ADDRESS
2540
U=O
HAIT fOR
2540
HO=RPS
2540
OA TA "VAIUBtE
BR I f H01=0
2540 READ 1ST BRUSH DATA
Vl-=RPI
2540 -STORE IN CONTROL STORE
Sr B V 1 CS. G+ 1
2540 -STORE IN AUX COMPARE TBLE
STB Vl AS.O-l
STAY IN DATA lOOP FOR 1 CO
BR IF Lzr..JZ
2540
INVER T FLAG
OO=DOaKOl
2540
CHECK FOR 2ND TRAP CYCLE
2540
BR IF lZ=O
2540 GO TO BOOTSTRAP
XCfL"8100'
BUILD
2311
HO=HO+HO
MOOUlE
HO=HO+HO
2311
NUMBER
2311
HO=HO+HO
COLO START RESET
2311
RST FIB K=40
2311
COLO SHRT RESET
RST FIB K=20
SElfe T MODULE
2311
MS=HO
SE T RE TURN TO ZERO Pl=02
FBO=Pl
2311
Hl=lO
SET CONTROL
2311
TGRO=Hl
SET READ
2311
HO=0$K06
2311
HO=HO$KIO
DATA OP
2311
FOP=HO
START HEAD SELECT
2311
HO=OSK04
WAIT FOR END
BR IF OASI2=0
HEAD
2311
FBO=HO
SElEC T
2311
TGRO=Hl
2311
GO
SET FlA K=80
WAIT FOR
2311
BR IF DAS 12= 1
USEr TRAP REQ
RSf FIA K=80
2311
WAIf FOR F rlE
2311
HO=TGRI
TRAP REQUEST
2311
BR IF H04=1
ERROR lOOP
2311
BR IF DASI4=1
GO TO BOOTSTRAP
2311
XCTl'810A"
2560 PUT IN 20,2560 MODE
SET MODE K=10
2560
Gl=O
SElE: T SEC FEED
2560
SET MFA K=20
Pl=MFD8
2560 CALL IN FOR ROY CHK
2560 BR IF NPRO REQ
SR IF MFT5=0
BR IF NOT ROY
2560
BR IF P12= 1
SET READ EXECUT
2560
SET MfA K=Ol
2560 BRANCH IF NPRO
BR IF MFT5=0
2560 BRANCH IF NO DATA
BR IF MFT4= 1
READ 1 I 2 BYTE
Hl=MFRl
READ OTHER HAlF
HO:MFR2
PUT THEM TOGETHER
Hl:HOXH+HlL
2560 STORE DA TA IN C S
STB HI eStG+l
2560 RST ~O EX AND NPRO
SET MfC K=21
2560
Z=GlaK50
2560 NOT DONE BRANCH
BR If ZNZ
2560 GO TO BOOTSTRAP
xcn f 8100'
xeTl'FFFFFFFFFFFFFFFFfFFFFFFFFFFF'
XCTl'FFFF'
eORREC r PAR lTV
2311
T1=0
PAGE
B
flOOR
WORD
OOED
OOE2
OOE4
JOEl>
OOE8
ouEA
JOEC
aGEE
Lll) FO
uOl=2
JOF4
OOF6
OuFB
OOFA
uJFC
uOH
6A02
2490
2813
2907
4A86
4C02
2f 15
5fE9
2023
409f
8811
54E8
6488
FA76
0608
88fE
SEQUENCE NO.
BCPL
sePL
SCPL
SCPt.
sen
SCPL
SCPL
SCPL
SCPl
SCPL
SCPl
8CPL
sePl
sePL
sePl
SCPl
SCPt.
LABEL
NEXTSEQ
107
108
109
110
111
H2
113
114
115
116
065
il7
118
119
120
121
122
123
OVRLAY
118
C
AEND
NEXTUBEL
CLOAO=*E40. EC lEVEL=128211
COMMENTS
STATEMENT
STH T DC,8S
SET MODE K-=09
IO-=O$KOl
11=0
T= I
ROH P DC.88
Hl=O$KlO
HO=Hl
Pl=0$K02
ffO=Il
N N=PO BITS67
MOD
ROH G AS,H+2
STH G CSt 1+2
BR IF H07=0
OVRLA...
RST BC K=40
XCTL' 88FE'
2311
2311
2311
2311
2311
2311
2311
2311
2311
2311
2311
END
END
END
END
END
**********************************
*
dCPL
BCPL
bePL
'\CPl
r>CPl
,CPL
RCPl
>CPL
dCPl
'iCPl
BCPL
'3CPL
'3CPL
:3CPL
'3CPL
dCPl
RCPL
RCPL
dCPt.
[,CPL
riCPl
BCPl
13CPl
BCPL
HCPL
'3CPl
dCPl
3CPt.
003
005
021
023
026
030
032
036
038
039
040
046
041
050
052
056
065
071
081
083
085
087
090
091
093
100
106
U8
BePl
Ben
sePL
sePl
BCPL
BePl
sept.
sePL
sept.
sePL
BCPl
sePL
BePl
Bept
sePL
sePl
sePL
sePl
Bept.
BePL
BePL
sept
SCPL
sePl
BePL
SCPL
sePL
SCPl
003
011
021
015
026
030
032
036
038
048
040
043
045
019
0(:3
057
111
sePL 041
BePl 061
017
081
084
085
005
0'32
102
091
094
022
120
CROSS REFERENCE FOR CSECT SCPL
***********************************
sePl 09.5
SAVE MODULE
SET FILE MODE ZONE
SUlLO COUNT AND
CONTROL STORAGE
ADDRESS
RETRIEVE MODULE
CONSTANTS FOR
SELECTION
OVERLAY AUX 1000
INTO CONTROL
0100
RESET CSl LIGHT
BRANCH TO 08fE
PAGE
9
CLOAO=*E40, EC LEVEL=128211
BOlA
DESCRIPTIVE
A STOP ~ORD (MOVE/ARITH-WORD TYPE 3' CAUSES THE CLOCK
TO STOP, THE CLOCK STOP LIGHT IS ON, THE SYSTEM LIGHT IS
Off, THE MANUAL LIGHT IS ON, AND THE ADDRESS DISPLAYED IS
THE ADDRESS Df THE CONTROL WORD fOLLOWING THE STOP WORD.
THE TESTS PERFORMED BY THE -BOIA- ROUTINE ARE BRANCHING TEST
ALU TEST
MODE REGISTER SETIRST TEST
STORA GE TE S T
X LINE ADDRESSING TEST
LOCAL STORAGE SEl/RST TEST
ALU ERROR DETECTION TEST
STORAGE DATA, CONTROL WORD, STORAGE ADDRESS TEST
A AND B REGISTER PARITY DETECTION TEST
08FE
0240
WORD
AAFA
2810
LABEL
SEQUENCE NO.
BOlA
BDIA
BOlA
BOlA
BDIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BDIA
BOlA
001
002
004
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
NEXTSEQ
T
ATABLE ADDR=08fE
INI Z 002
VER SON
AENO
ATABLE AODR=0240
*
*
**
*
*
**
*
*
*
*
*
*
*
START
NEXTLABEl
A BRANCH TEST STOP FAILURE IS CAUSED BY A BRANCH ON
CONDITION WORD OR RETURN WORD fAIlI NG TO RE ACH A WORD THAT
SETS THE OR-REGISTER. OR BIT 7 IS SET PRIOR TO EACH
Of THE BRANCH TESTS. AND THE BRANCH OR RETURN MUST POINT
TO A SET Of THE OR-REGISTER. THE FAILURE IS INDICATED
BY THE CLOCK OFf, THE CLOCK STOP LIGHT IS ON, SYSTEM LIGHT
OFf, MANUAL LIGHT ON, AND, THE ADDRESS Of THE NEXT
SEQUENTIAL WORD FOLLOWING THE WORD REACHED IN ERROR.
DISPLAYED IN THE CONSOLE tIGHTS.
STATEMENT
COMMENTS
BASIC DIAGNOST IC
BOlA
BEGIN
ARE INDICATED BY
A ONE WORD BRANCH LOOP
A STOP WORD
A BRANCH TEST STOP fAILURE
A ONE WORD BRANCH LOOP IS IDENTIfIED BY THE SYSTEM
LIGHT ON AND THE MANUAL LIGHT OFF. THE CLOCK Will RUN BUT
THE MICROPROGRAM DOES NOT PROGRESS.
THE -BDIA- ROUTINE TESTS THE CPU HARDWARE NEEDED TO
PERFORM A CONTROL STORAGE LOAD OPERATION. NO 1/0 DEVICE
OR ATTACHMENT CIRCUITS ARE TESTED.
ADDR
10
TEXT
ERRORS
1.
2.
3.
THE RESIDENT MICRODIAGNOSTIC -BDIA- IS ENTERED WHEN
1. THE SYSTEM RESET KEY IS RELEASED
(TRAP TO ADDRESS 0240)
2. THE LOAD KEY IS RELEASED
'TRAP TO ADDRESS 0240)
3. THE CONTROL STORAGE LOAD ROUTINE -BCPL- IS
fINISHED LOADING A CSL DECK.
{BRANCH TO LABEL * VERSON * •
PAGE
BR
GO INITIALIZE AUX STORE.
DEPRESSION OF THE SYSTEM RESET
BUTTON OR LOAD BUTTON WILL CAUSE
A HARDWARE TRAP TO ADDRESS 0240.
SET OR K=Ol
SET OR-7. DR 7 IS USED IN
CHECKING THE BRANCHING FUNCTIONS
OF THE MOD 25. A DUG BR LATCH
IS SET EVERYTIME A MOO 25 BRANCH
OR RETURN fUNC HON (S EXECUTED
ANO OR 7 I S ON. IF THE NEXT
MICROINSTRUCTION AFTER THE BR
OR RETURN DOES NOT ISSUE A SET
TO THE OR REG, A HARD STOP WILL
OCCUR AT THE COMPLETION OF THAT
MACHINE CYCLE.
\LlDR
WORD
0242
3210
\)244
2400
)246
»248
F8CB
B7C9
024A
024C
2810
25F3
024E
0250
0252
;,)254
C54F
2810
0553
2810
0256
E53C
onc
2810
023E
F56C
SEQUENCE NO.
BD IA
BOlA
B014
BOlA
BOIA
BOlA
BDlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
SOIA
BOlA
BOlA
BOlA
BOIA
BOlA
BOIA
SO U
BOlA
BOlA
BOlA
SO IA
BOlA
BOlA
BOlA
BO lA
BOlA
BDIA
LABEL
NEXTSEQ
NEXTLABEL
SET MMSK K:81
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
041
048
049
050
051
052
053
054
055
056
057
05B
059
060
061
062
063
064
065
066
067
068
069
070
071
012
073
074
015
016
077
078
079
080
081
082
STATEMENT
*
*
*
*
*
*
*
*
*
*
*
*
*
:6<
*
*
SET MCJOE K=OO
STORAGE ZONE 4.
*********************************************************************
BRANCHING TEST.
*********************************************************************
056
122
BCDR1
BR I f DR BIT 7= 1
OR70FF N N=BAH
*BCOR7
SET OR K=Ol
Gl=O$KOf
*
*
*BCGION
061
BCG10N
BR IF G1 BITO=1
SET OR K=Ol
*
*
*BCGIIN
066
BCG11N
BR IF Gl BITl=l
SET DR K=OI
075
AENO
ATABLE ADOR=023C
BCG12Y
BCG12Y
BR If Gl BlT2=O
*
*
*
*
SET DR K=OI
*
*
*
*
AEND
ATABLE
SET SYSTEM RESET PRIORITY
BITtMMSK-8).
THE fIRST WORD OF THE TRAP SETS
T~E DIAG ~R LATCH TO INSURE A
MACHINE STOP IF AN ERRONEOUS
BRANCH STATEMENT IS EXECUTED
THE SECOND WORD OF THE TRA P SE TS
MMSK 8 TO PREVENT FURTHER TRAPS
FOR THE SAME SYST RST/LOAD TRAP
REQUEST. AS A RESULT OF THE
DELAYED SETTING OF MMSK 8, THE
TRAP WILL OCCUR TWICE FOR EACH
SYSTE~ RST/LOAD TRAP REQUEST.
THEREFORE, THE FIRST TWO WORDS
WIll BE EXECUTED TwICE BEFORE
THE FOLLOWING WORD IS EXECUTED.
*
*
*
*
*
CLOAD=*E40, EC LEVEL=128211
COMMENTS
083
ADDR=026C
BCG13V
BR If Gl BIT3=0
BR TO 024A IF OR-1 I S ON
DR 7 SHOULD BE ON. BRANCH ON
BA HIGH FOR BETTER RESOLUTION.
SET DR-7 TO CONTINUE BR TESTS.
ATTEMPT TO SET Gl REG = 00001111
If A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORD, Gl WAS SET
WRONG OR THE BRANCH TEST FAILED.
610=0 SHOULD NOT BRANCH.
SET DR-7 TO CONTINUE BR TESTS.
If A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORD, Gl WAS SET
WRONG OR THE BRANCH TEST FAILED.
611=0 SHOULD NOT BRANCH
SET OR-7 TO CONTINUE BR TESTS.
IF A STOP OCCUR S AT THE NEXT
SEQUENTIAL WORD FOLLOWING THIS
BRANCH, G1 WA S SET WRONG OR THE
BRANCH TEST FAILED.
G12=0 SHOULD BRANCH TO ADR 023C
SET DR-1 TO CONTINUE BR TESTS.
IF A STOP OCCURS AT THE NEXT
SEQUE"lHAL WORD FOLLOWING THIS
BRANCH, Gl WAS SET WRONG OR THE
BRANCH TEST FAILED.
G13=0 SHOULD BRANCH TO ADR 026C
PAGE
11
ADDR
WORD
026C
026E
2810
9FFC
IFfC
lHE
2810
D51F
2000
2002
2810
25F5
2004
200(:)
E504
2810
2008
200A
ZOOC
F5C8
2810
A040
2040
2810
SEQUENCE NO.
BOlA
BO IA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
083
084
085
086
087
088
089
090
091
BOlA 092
BOIA 093
BOIA 094
BOlA 095
BDIA 096
BOlA 097
BOlA 098
BOlA 099
BOlA 100
BOlA 101
BOlA 102
BOlA 103
BOlA 104
BOlA 105
BOlA 106
BOIA 101
BOlA 108
BOIA 109
BOlA 110
2042
C55F
BOlA III
BDIA 112
BOlA 113
lOSE
2810
BOlA 114
115
BOlA 116
BOlA 117
BOlA 118
BOlA
2060
D51F
BOIA 119
2086
E081
BOlA 120
BOlA 121
BOlA 122
BOlA 123
BOlA 124
BOlA 125
BOIA 126
BO lA 127
BOlA 128
BOIA 129
BOlA 130
BOlA 131
BOlA 132
BOlA 133
BOlA 134
2088
F489
BOIA 135
0440
5007
201E
2800
2080
2082
2084
3E09
C48.3
F085
LABEL
NEXTSEQ
NEXTlABEL
BCGllY
087
AENO·
ATABLE AOOR=lFFC
UBIFFC
HCTRL
AEND
ATABLE AOOR=2000
U81FFC
STATEMENT
SET OR K=Ol
BR
SET DR-7 TO CONTINUE 8R TESTS.
UNCONDITIONAL BRANCH TO AOR IFFC
SET DR K=01
BR IF Gl BITl=1
SET DR-7 TO CONTINUE BR TESTS.
NO 8RANCH
OR K-=OI
Gl=OSKFO
SET OR-7 TO CONTINUE BR TESTS.
ATTEMPT TO SET Gl REG = 11110000
IF A STOP OCCURS AT THE ADDRESS
OF THE NEXT WORD, Gl WAS SET
WRONG OR THE BRANCH TEST FAilED.
G12=l SHOULD NOT BRANCH
SET DR-7 TO CONTINUE BR TESTS.
IF A STOP OCCURS AT THE ADDRESS
Of THE NEXT WORD, Gl WAS SET
WRONG OR THE BRANCH TEST FAILED.
G13= 1 SHOutO NOT BRANCH
SET OR-1 TO'CONTINUE BR TESTS.
UNCONDITIONAL BRANCH TO AOR 2040
SET
*
*
*BCG12N
096
BCGIlN
BR IF Gl BH2=O
SET DR K=Ol
*
*
*BCG13N
101
BCGllN
lOt>
AENO
ATABLE ADOR=2040
UB2040
UB2040
*
*
*
*
114
AENO
ATABLE AOOR=205E
BCGIOY
BR IF Gl BIT3=O
SET DR K=Ol
BR
SET DR K=Ol
BCGIOY
BR IF G1 8ITO=1
SET DR K=Ol
125
AEND
ATABLE ADOR=0440
OR70FF o
AENO
ATABlE ADOR=207E
BCGll Y
*
*
*
*
*
OCOER
DC 7ER
DC6ER
ACONER
BCGll Y
SET OR-7 TO CONTINUE BR TESTS.
IF A STOP OCCURS AT THE NEXT
SEQUENTIAL WORD FOLLOWING THIS
BRANCH, Gl WAS SET WRONG OR THE
BRANCH TEST FAILED.
GIO=l SHOULD BRANCH TO ADR 205E
BR IF Gl BIT t=l
SET OR-1 TO CONTINUE BR TESTS.
IFA STOP OCCURS AT THE NEXT
SEQUENTIAL WORD FOLLOWING THIS
BRANCH, Gl WAS SET WRONG OR THE
BRANCH TEST fAILED.
GIl:l SHOULD BRANCH TO ADR 207E
STOP
CPU MODE AND OR 7 OFf ..
*
*
*
*
CLOAO=*E40, EC LEVEL=12B211
COMMENTS
SET OR K=OO
THIS COMPLETES BOlA BRANCHING
TESTS.
*********************************************************************
ALU TEST -MANY OF THE WORDS IN THIS fESf CAUSE ALU ERRORS If THE CKT
BEING TESTED FAILS AND THEREFORE DO NOT HAVE TO BE TESTED BY BR WOS
*********************************************************************
HO=O-KOO
**FF=Oo-OO WITH NO CARRY
BR IF Z=O
CHK FOR OYN BIT 0 BEING OFF.
132
DCOER
133
DC7ER
BR IF LZ=O
CHK fOR OYN BIT 1 BEING OFf.
134 OC6ER
BR If HZ=O
CHK FOR OYN BIT 6 BEING OFF.
135 ACONER
BR IF AC=l
CHK FOR OYN BIT 3 BEING OFF
PAGE
12
AOOR
WORD
208A
208C
208E
bEE5
AODA
2EOD
2090
2092
2094
2096
2098
209A
209C
209E
20AO
20A2
20A4
20A6
20A8
20AA
20AC
20AE
20BO
20B2
20B4
20B6
20BS
20BA
20BC
20BE
20CO
2UCl
20C4
20C6
20C8
20CA
20CC
20CE
AOOA
7EEl
F494
7EEl
6EE3
2E5F
6EE3
6EE9
OE5F
C4A2
2E81
3E27
2EEF
2E71
lE87
lEBl
2Efl
OE 11
FOB4
EOB6
1HB
AOE2
lEF3
AOEl
3E15
AOEl
.3EOD
2EW
2fF5
AODA
OHO
C4CE
SEQUENCE NO.
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOJA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
ISS
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
1 JIt
115
176
LABEL
NEXTSEQ
NEXT lABEL
195
CK4Ff
195
CK4FF
HO=HOSHO
BAL
HO=HO+KOO
**
*
BAL
HO=HO-HO+l
*
*
*NOACER
147
NOACER
WTJERI
154
WBER1
OC7ERR
DC6ERR
163
164
OC7ERR
OC6ERR
201
CK4fO
201
CK4FO
BAL
HO:HOSKlO
201
CK4fO
BAl
HO=HO-KOO
*
*
*
BR IF AC=O
HO=HO-HO+1
HO=HO+HO
HO=HO+K55
HO=HO+HO
HOC=HO+HO+l
Z=HODK55
BR If ZNZ
HO=OSK88
HO=HOSK22
HO=HO+KEE
HO:OSK77
HO=HO*-K88
HO=HO*-KBB
HO=OSKff
Z=HO+KOl
BR IF lZNZ
BR IF HZNZ
HO=HODKOf
BAl
HO:HO*-KOf
*
*
*
177
17B
179
180
181
182
183
184
185
186
181
188
STATEMENT
*
*
*
195
CK4H
188
AlUER2
HO=HO.K 10
Hl=O$KfO
BAl
Z=HIDKFO
*
*
*ALUER2
BR IF ZNZ
CLOAO=*E40, EC LEVEL=128211
COMMENTS
**ff=fFSFF
**BRANCH TO CHECK HO FOR fF
**FF=FF+OO
IFA STOP OCCURS AT THE ADDRESS
OF THE WORD BELOW, THE CHECK FOR
Ff HAS FAilED.
**OO=fF-ff+l WITH A CARRY
IF A STOP OCCURS AT THE ADDRESS
Of THE WORD BELOW, THE CHECK FOR
fF HAS fAILED.
**SHOULO HAVE OYN 3 BIT ON
**00=00-00+1
**00=00+00
**55=00+55
**AA=55+55
**55=AA+AA+l
*·OQ=55D55
**HO SHOULD BE 55 AND DYN BITO=l
**88=00S88
**AA=8SS22
**9S=AA+EE
**71=00S11
**77=11*- 88
**44=11*-BB
**Ff=OOSFF
**OO=fF+Ol
CHK FOR OYN BIT 1 BEING ON.
CHI< FOR DYN BIT 6 BEING ON.
**FO=FFDOf
**BR TO CHECK HO FOR FO
**FO=fO*-Of
IF A STOP OCCURS AT THE ~DDRESS
OF THE WORD BELOW, THE CHECK fOR
fO HAS fAilED.
**BR TO CHECK HO fOR fO
**FO=FO$lO
IF ~ STOP OCCURS AT THE ADDRESS
OF THE WORD BELOW, THE CHECK FOR
FO HAS fAILED.
**BR TO CHECK HO FOR FO
**EF=fG-OO
IF A STOP OCCURS AT THE ADDRESS
Of THE WORD BelOW, THE CHECK fOR
fO HAS FAILED.
**Ff=EF+I0
**FO=OO+FO
**BR TO CHECK HO FOR fF
**OO=FODFO
IF A STOP OCCURS AT THE AOORESS
OF THE WORO BELOW, THE CHECK ,FOR
FO HAS FAILED.
**Hl SHOULD BE FO AND OYN BIT 0=1
PAGE
13
ADDR
2llDO
2002
2004
2006
2008
WORD
IH5
C402
2H5
AOE2
AOE8
20DA
200C
200E
20EO
OEFf
-<:4El
2810
128E
20E2
20E:4
20E6
OHO
C40E
128E
20E8
20EA
20EC
20EE
20FO
20F2
20F4
20f6
20f8
20FA
20FC
20FE
noo
02
2104
2106
2108
210A
21 DC
21
nOE
2110
2112
2114
2116
2118
211A
21lC
2ilE
2120
2122
2124
2126
24F6
578F
1887
087F
EOFO
FOf2
2400
574F
0487
EOFA
fOfC
2EF7
2Ff7
6E02
2E05
2f05
4E02
OFfF
E08e
F08E
lEFF
C492
2E33
2F87
6FEB
6FEA
44E8
2F1.3
048F
EOA2
FOA4
257f
SEQUENCE NO.
BOlA
BOlA
BOlA
BOIA
SOlA
SOIA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOIA
BOIA
BOIA
BOlA
BOlA
BOIA
BO IA
BOlA
BOlA
BOIA
BO IA
SO lA
BOlA
BOIA
BOIA
BOIA
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
LABEL
AlUER3
*CK4FF
ANOTFO
ZI SOK
*
*CK4FO
'"
*
'" MORTST
MOSTHI
Mosno
213
214
215
216
217
218
219
220
221
MDR THI
MORflO
*
*
*
222
223
224
225
226
227
228
229
230
231
OCRIER
DCR2ER
OCROER
232
233
234
23.5
236
237
238
239
240
241
OCR3ER
OCR4ER
NEXTSEQ
NEXTlABEl
STATEMENT
ClOAD=*E40, Ee lEVEl=1282l1
COMMENTS
.*OO=FO*-fO
Hl=Hl*-KfO
**Hi SHOULD BE ZERO AND OYN BI T 0=1
BR IF lNl
**FO=OOSFO
HO-=O$KFO
**BR TO CHECK HO FOR FO
BAl
201 CK4FO
**BR TO MODE REG SET/RESET TEST
BR
201 MORTST
***********************************************************************
l:HOUKFF
HO SHOUlD BE FF
BR IF l=O
AND DYN BIT 0=1.
198 ZISOK
SET OR K=Ol
SET OR 7 AND DO A RTN WHICH
RTN
WIll CAUSE A STOP WITH THE
ADDRESS OF THE SAL TO
THIS SUBROUTINE + 4.
HO SHOULD BE FO
I=HOUKFO
AND DYN BIT 0=1.
6R IF lNl
ANOTfO
197
RTN
*********************************************************************
TEST MODE REG FOR SET/RESET
*********************************************************************
SET MODE K=3f **SET lS AND EXT MODE TO 7
10=BA
** GO=XlIl XIII
IO=IO*-K88
** GO=77
l= roUK77
211 MOSTHI
BR If HlNl
lOOP If MODE REG 2-4 NOT All ON
212 MOSTlO
6R IF LlNl
lOOP IF HOOE REG 5-7 NOT ALL ON
SET MODE K=OO **SET lS AND EXT MODE TO ZERO
GO=BA
**GO=XOOOXOOO
Z=GO*-K88
**l=OO
216 MDRTHI
BR IF HlNZ
lOOP IF MODE REG 2-4 NOT All OFF
211 MORTLO
BR IF lZNl
LOOP IF MODE REG 5-7 NOT All OFf
*********************************************************************
BEGIN STORAGE TEST
*********************************************************************
HO=OSKFF
HI=OSKFF
**H=FfFf
**CTRl AODR 0388=ffFF
STH H DC,88
HO=OSKOO
Hl=OSKOO
**H=OOOO
**READ CTRl STOR 0088 INTO H REG
RDH HOC, 88
l=HIUKFF
**OO=fFaFf
lOOP IF Hl HIGH IS NOT F
BR If HZNl
228 DCRIER
lOOP IF Hi lOW IS NOT F
SR IF UNl
229 OCR2ER
HO:HouKFf
**OO=FFaFf
H=OOFF
BR IF lNl
**SHOULD HAVE READ fF IN TO HO
oeROER
231
HO=OSK03
HI=OSK88
** H=0388
S TB HI CS • H+ 1 ** CTRl ADDR 0388= 88Ff H=0389
ST B HI CS. H- 1 ** CrRl AODR 0388= 8889 H=0388
ROH G CS,H+Z ** G=8889 H=038A
Hl=O$KOl
** H=0301
Z=GOaK88
**00=88a88
lOOP IF HI HIGH IS NOT 8
BR IF HlNl
239 DCR3ER
lOOP If HI lOW IS NOT 8
6R IF llNI
240 OCR4ER
Gl=Gl+K71
**00=89+77
190
ALUER3
PAGE
14
ADOR
WORD
2128
?l2A
2136
C4A8
2E05
55EA
C4AE
2E45
3fE9
25f7
75EO
2138
213A
2505
55EA
2l3C
Zl3E
2140
2142
2144
2146
Zl48
214A
214C
214E
05fF
C4BE
FB34
212C
212E
2130
2132
2134
44Eb
0440
C4C6
75Fl
C4CA
C060
88EC
08EC
08EE
08FO
08F2
08F4
OBF6
08F8
08fA
08fC
DIED
0800
0802
1J804
0806
0808
080A
4E02
2ElB
2F 10
E lEF
2ES7
2F05
6El2
6E22
3EE9
2F77
8802
CAOO
6E02
8388
SEQUENCE NO.
BDIA
BOlA
BOlA
BOIA
BOlA
SOIA
BOlA
BOIA
SOIA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
SO lA
BOlA
BOlA
BO lA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BDIA
BOIA
BOlA
BOlA
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
210
271
272
273
274
275
276
277
278
279
2BO
281
282
283
284
285
286
287
288
289
290
291
292
293
294
LABEL
NEXTSEQ
NEXTLABEL
CSRIER
242
CSRLER
SMODER
245
BMODER
AUXERR
255
248
AUXERR
AUXSTT
OSMERO
259
OBMERO
DBMERl
261
OBMER1
269
LSAOOR
AUXSTT
*
*
CLOAO=*E40, EC LEVEl=128211
COMMENTS
STATEMENT
BR If ZNZ
HO=OSKOO
ROB G1 AS, H-l
BR If ZNZ
HO=OSK40
Hl=O-KEO
Gl=OSKff
STB Gl AS, H
**SHOULO ~AVE READ 89 IN TO Gl
** H=OOOI
**H=OOOO
**ARITH MODIfIER OfF B REG fAILED If BR
** H=4000
** H=401f
**G=88Ff
**lST PASS AUK AOOR 401E=XXff H=401f
**2ND PASS AUX AODR 40lE=ffff H=40lE
Gl=OSKOO
**G= 8800
ROB G1 AS,H-l **G=88fF AfTER 1ST PASS. H=401E
**
AfTER 2ND PASS, H=4010
Z=GlaKff
**OO=ffaff
BR If ZNZ
**SHOULO HAVE READ Ff IN TO Gl
BR IF HI 81T1=O
G=H
** G=40lD H= 4010 OBL BYTE MOO TE ST
Z=GOllK40
** 00=401140
BR If ZNZ
** SHOULD HAVE MOVED 40 FROM HO TO GO.
Gl=Gl-Hl+l
** 00= If)- 10+ 1
BR If ZNZ
** SHOULD HAVE MOVED 10 fROM HI TO G1
RST S K=06
RE SET S5 AND 56.
uBR TO X LINE ADDRESSING TEST
BR
AEND
*********************************************************************
X LINE ADDRESSING
*********************************************************************
ADOR=08EC
BR IF S5=1
NO BR. CHECK S5 Off.
269 lSAOOR
LSAOOR
BR If S6=1
NO BR. CHECK 56 OfF.
270 CKS60f
CKS60f
HO=OSK88
XXXK ADDRESSABLE 8A AND BC
HI=OSKOO
X
SET TO 8800 WHICH IS
5TH H DC.8A
X
BR TO 0800
STH H Oe,8e
X
0000 H SET TO If11. THIS IS THE
HO=O-KEO
o
INIT VALE REQ'O fOR A=OSKK
Hl=OSK11
BR TO 0802
BR
BEGMOD
281
AEND
ATABLE AOOR=0800
ROH H De.88
XXXX MODIfY CTRl 'nO AT K88.
MooeVlD
X
HO=HO+KO 1
BEGMOD
Hl=Hl+KI0
X
X BR AfTER 8TH PASS ••
302 CKPASS
BR IF HO BIT4=: 1
X
STH HOC, 88
XCTl'8388'
BR TO K ADOR 88 AT AOOR 0388.
e
FUNCTION PERfORMED BY CTRl WORDS IN K ADDR. CTRl STORAGE
THIRD PASS
FOURTH PASS
fIRST PASS
SECOND PASS
88 OXXF Z=AaKK
B8 2XX1 A=O$KK
88 OXXF Z=AaKK 88 4XX3 B=AXH+8l
*
*
*ATABLE
*
*
*
*
*
*
*
*
*
2081
2191
2lA1
23B1
24C7
UO=OSK88
Ul=OSK99
VO=O$KAA
Vl=OSKBB
Go=OSKCC
008F
019f
OlAF
03BF
04CF
Z=UOIl88
Z=ULa99
Z=VOaAA
Z='HaBB
Z=GOaCC
4003
4113
lt223
lt333
4443
UO=UOXH+UOL
Ul=UlXH+Ull
VO=VOXH+VOl
Vl=VlXH+V1l
GO=GOXH+GOL
008F
019F
02AF
03BF
04CF
Z=UOa88
Z=Ula99
Z=VOaAA
Z=VIIlBB
Z=GOIlCC
PAGE
15
ADOR
WORO
SEQUENCE NO.
BOlA
BOlA
BOlA
BOIA
BOlA
BOU
080e
OBOE
0810
0812
0814
0816
0818
08lA
081e
08lE
0820
0822
0824
0826
0828
082A
082e
082E
0830
0832
0834
0836
0838
0308
030A
030C
030E
03EO
03E2
03E4
03E6
03E8
03EA
03EC
03EE
03FO
03eo
f:lA3
2020
E190
2EC5
3E43
21"85
3FA3
6El2
2Ef1
31"89
8802
0020
EtA5
OIAC
0040
8308
2040
OlAE
4E22
6E 12
3Ee9
5EFl
880.2
4812
3935
292B
68E2
2A25
2BF5
3B7.3
2C25
2015
30B3
2E05
2F13
8300
e4CO
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
295
296
297
298
299
300
301
302
303
304
305
306
301
308
309
310
311
312
BOlA 313
BOlA 314
BOIA 315
BOlA
BOIA
BOIA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
316
317
318
319
320
321
322
323
324
BOlA 325
BO IA 326
BDIA 327
BOlA 328
BOlA 329
BOlA 330
BOIA 331
BOIA33Z
BO fA 333
BOlA 334
BO lA 335
BOlA 336
BOIA 331
BOlA 338
BOlA 339
BDIA 340
BOlA 341
BOlA 342
BOlA 343
BOlA 344
BOIA 345
BOlA 346
BOlA 347
LABEL
*
*
*
*
*
*
*CKPASS
CKS6Ei
PASSZ4
CKS6EO
NOf4TH
CKS5El
NEXTSEQ
NEXTLABEL
STATEKENT
CLOAO=*E40, EC lEVEl=IZ8211
COMMENTS
4553 GI=GIXH+GIL
050F Z=GlaOO
2507 Gl:0SKOO
05DF l=Glaoo
4663 DO=OOXH+OOl
06EF l=ooaEE
ZoE7 OO=OSKEE
06EF l=OQaEE
4773 01=01XH+Oll
07FF l=OlIJFF
27F7 Ol=OSKFF
01FF l=01aFF
8A BR
8A BR IF ZNl
8A BR
8A BR IF lNl
TO MODCWO
TO 038A
TO MOOCWO. TO 038A.
8C 8R
8C 8R
8C 8R
8C BR
TO MODC WD
TO MOOC 140
TO MOOCWO.
TO MOOCWO
CHECK PASS. 8R AFTER 2NO OR 4TH.
313 PASS24
BR IF S6=1
S6=1 TO SAY NEXT PASS IS 2 OR 4.
SET S6
CHECK SET OF S6
304 CKS6El
BR IF S6=0
XX XX SET 8A TO C4BA WHI CH IS
HO=OSKCO
X
BR IF lNl TO OlBA
HO=HOSK04
x
Hl=OSK80
X
Hl=Hl$KOA
X
STH H OC.8A
0000 H SET TO FF7F. THIS IS THE
HO=OSKFf
o
IN IT VALUE REQ"O FOR l=AaKK
Hl=D-K80
BR TO BEGIN MOOIFIC OF CTRL WOo
281 8EGMOO
BR
PASS 2 OR 4 JUST FINISHED. RESET
RST S6
S6 TO INDICATE NEXT PASS IS 3RO.
314 CKS6EO
BR IF S6=1
S5=1 INDICATES 4TH PASS COMPo
318 NOT4TH
BR IF S5=0
RST S5
BR TO LOCAL STOR SET/RESET TEST
331 LSSET
BR
NEXT PASS IS THIRO
SET S5
CK SET OF S5.
319 CKS5El
BR IF S5=0
XXXX RESTORE 8A TO BR TO 0800
ROH H OC,8C
X
STH HOC, 8A
0000 H SET TO 3FF 3. THI SIS I NIT
HO=O-KCO
VALUE REQ'O FOR B=AXH+BL
o
Hl:HOX
BR TO BEGIN MOOIFICOF CTRl WD.
281
BEGMOO
BR
AENO
*
*
*
*
ArABLE
lSSET
*
***********************************************************************
*
LOCAL STORAGE SET/RESET ROUTINE ••••• lONE ZERO
***********************************************************************
ADDR=03D8
I=C48A XXX K-AOOR Be IS SET TO
RDH I DC,8A
I",C4BA X
C4BC WHICH I S A
11= Il$K30
I=C4BC X
BR IF ZNl
I1=11+KOZ
X
TO ITSelF.
STH I DC, BC
XXXX T SET TO 20F7 WHICH IS
TO=OSK20
UO=OSKFF
T l:OSKFO
x
x
T I=T l$K07
0000 P SET TO 201B WHICH IS
PO=OSK20
o
UO=UO+KOI
Pl=OSKlO
o
Pl=PlSKOB
XXXX H SET TO 0001 WHICH IS
HO=OSKOO
X
Z=UO+KOO
Hl=OSKOI
BR TO STORE THE THREE CONTROL
BR
355 STNWCW
WORDS JUST BUILT IN T. P, AND H.
AENO
ArABLE ADOR=03CO
341
NOfRST
NOTRST
BR IF ZNl
CK THAT ALL BITS WERE RESET.
PAGE
16
AOO~
WORD
SEQUENCE NO.
03C2
U.3C4
03C6
03C8
OlCA
03CC
OlCE
0300
0302
0304
030b
4AC2
4C{)2
4EF2
2A IB
2C1S
2EIS
EOf2
6AC2
6C02
6EF2
83B8
BOIA 348
BOlA 349
BOIA 350
BOIA 351
BOlA 352
BOlA 353
BOlA 354
BOlA 355
BOlA 356
BOlA 351
BOlA 358
BOIA 359
BOIA 360
BO IA .361
SOIA 362
BOIA 363
BOlA 364
BOIA 365
SOIA 36b
BOIA 361
BOlA 368
BOlA 369
BOlA 310
BOlA 311
BOiA 372
BOIA 373
BOIA 374
BOIA 375
BOIA 31b
BOIA 311
BOlA 378
BOiA 379
BOiA 380
BOU381
BOIA 382
BOlA 383
BOlA 384
BOlA 385
BOlA 386
BOlA 387
BOlA 388
BOiA 389
BOlA 390
BOlA 391
BOlA .392
BOlA 393
BOlA 394
BOlA 395
BOlA 396
BOIA 397
BOiA 398
BOIA 399
BOlA 400
03F2
03F4
03F6
03f8
03FA
2505
251B
F4FO
C4F4
5001
03fC
03fE
2413
883C
083A
083C
083E
0840
0842
0844
6443
2505
1543
3808
0500
3800
OAC6
1212
2S00
C43A
0846
0848
084A
084C
084E
0850
2440
BBbE
LABEL
NEXTSEQ
NEXTlABEL
ROOlCW
313
STNWCW
C
DYNCRT
STATEMENT
ROH T DC, 68
ROH P OC,6A
ROH H OC,6E
TO=TO.KOI
PO=PO.KOl
HO=HO.KOI
BR If HlNl
STH T DC, 68
STH P OC,6A
STH H DC, BE
XCTL' 8388'
ClOAO=*E40, EC lEVEl-=128211
COMMENTS
READ OLD CIRL WORDS.
READ OLD CTRl WORDS.
READ OLD CTRl WORDS.
MODIFY CTRl WDS ••• INCREMENT X.
MODIFY CTRl waS ••• INCREMENT X.
MODIFY CTRL WDS ••• INCREMENT X.
BR If SI XTEENTH PASS COMPLETED.
STORE NEW CONTROL WORDS.
STORE NEW CONTROL WORDS.
STORE NEW CONTROL WORDS.
BR TO K-ADORESSABLE B8.
AEND
*
*
*
*
*
*
*
*
*
*
***********************************************************************
* THE 4 CONT ROl WORDS BELOW WERE BU IL TIN K~ADDRE SSABlE CONTROL
* STORAGE AND BRANCHED TO fROM THE WORD IMMEDIA TL Y ABOVE THESE COMENTS.
* THIS IS DONE 16 DIffERENT TIMES, WITH 'X' INCREMENTED EACH TIME TO
* MODIFY THE fUNCTION Of THE WORDS.
A=ASKFf
* K-AODR B8 ••• CTL STOR ADDR 03B8 EQUALS
2Xf7
A=A.KOI
* K-ADDR BA ••• CTL STOR ADDR 03BA EQUALS
2XIB
* K-ADDR BC ••• CTl STOR ADDR 03BC EQUALS
BR IF ZNl TO ITSELF
C4BC
Z",A+KOO
* K-ADOR BE ••• CTL STOR ADDR 03BE EQUALS
OXOl
*
***********************************************************************
AODR=03f2
*********************************************************************
OYNCRT
Gl=OSKOO
**SET Gl TO ZERO AND THEN INCREMENT TO
ZI NCR
GL=Gl+K01
** OBTAIN ALL BIT COMBINATIONS ON l BUS
3Bl ALUEDT
BR If AC= 1
**END Of TEST--BR TO AlU OE TEST
374 llNCR
BR If lNZ
**BR BACK TO CHECK ALL l BUSS BIT COMB
STOP
**DYN CONO REG BIT 0 IS ON IN ERROR
*********************************************************************
AlU ERROR DECIECTION TEST
*********************************************************************
ALUEOT
GO=OSKOl
386 lEROGl
8R
AENO
ATABLE ADDR=OB3A
CKALOE
GO=GO.GO
ZEROGl
Gl=OSKOO
6L=GI-60
SET OR K=CO
**DISABlE STOP ON ERROR & FORCE PLUS
l=GlaKOO
** SIDE OF AlU ~ ENTRY CAUSI NG nu CK
SET OR K=80
AlCKER
391. ALCKER
BR If MC BIT5=O **AlU ERROR SHOULD HAVE SET He 5
RST MMSK K=91
SET DR K=OO
385 CKALOE
BR IF GO BITO=O **BRANCH BACK TO CHECK EACH OE CKT
*********************************************************************
STORAGE DATA,CONTROl WORO,STORAGE ADDRESS, A REG AND B REG
PARITY DETECTION TEST----DC REG B[TS 3,6 AND 7 MUST BE OFF
*********************************************************************
SET MODE K=04
415 CKSTPC
BAL
**STORE AOOR OF CHECK DATA TO BE READ
*ArABLE
*
*
*
*
*
*
*
*
PAGE
17
SEQUENCE NO •
.AOOR
WORD
0852
0854
0856
0858
085A
OS5C
085E
0860
0862
0864
0866
0868
086A
GabC
086E
0810
0872
0874
0816
0878
OE3F
H04
4E80
6Eao
FAOA
OE3F
EADE
1212
886E
OFIF
fEE6
4E80
6E80
02E2
4E80
3804
6Eao
CAF4
3800
l28E
OFIE
uF20
OF22
OF24
OFl6
OFl8
OFlA
SDIA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
BDIA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
EE9E
1212
5EFF
C4A4
2800
2020
9816
018
056
061
066
015
083
OB7
096
101
106
114
122
125
132
133
134
135
141
154
163
{NIl
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
SOIA
BOlA
BOlA
BDIA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOU
BOlA
BOlA
BOIA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
BOlA
046
053
061
066
012
080
084
096
101
103
111
054
119
132
133
134
1.35
147
154
163
401
402
403
404
405
406
407
408
409
410
4il
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
LABEL
NEXTSEQ
NEXTlABEl
ROCRCE
402
ROCRCE
NOBPC
405
NOBPC
NOAPC
401
NOAPC
415
CKSTPC
411
RICRCE
418
NOSDP(;
AEND
ATABLE AODR=OflE
423
NOSTAC
NOSTAC
426
MCRSTE
IRST 004
STREST
RICRCE
CKSTPC
NOSOPC
HCRSTE
427
428
434
438
ClOAD=*E40. EC LEVH=128211
COMMENTS
STATEMENT
l=HO[JK33
BR If MC3=0
RDH H CS.I
ST H H CSt I
BR If MC7:0
l=HOaK33
BR IF MC6=0
RST MMSK K: 91
BAl
l=Hl[JKll
BR IF MC3=O
ROH H CS,I
5TH H CSt I
RTN H MMSKl=O
RDHHeS.1
SET OR K=AO
STH H CS.I
8R IF "(;4=0
SET OR K=ao
RfN
**THIS AOOR CONTAINS OE3F
**SHOUlO rAVE RO C TRl WORD PARITY CHECK
**H=OE3F WITH EVEN PARITY IN HO
**RESTORE CHECK DATA WITH GOOD PARITY
**SHOULO HAVE SET B REG PARITY CK LATCH
**SET A REG PARITY CK IT S RST OC3.6&7
**SHOULO HAVE SET A REG PARITY CK LATCH
**RESET MC REG
**STORE ADDR OF CHECK DATA TO BE READ
**THIS AODR CONTAINS OFIF
**SHOULO HAVE RIC TRL WORD PARITY CHECK
**H=OFIF WITH EVEN PARITY IN HI
**RESTORE CHECK DATA WITH GOOD PARITY
**CAUSE STaR AOOR CK--Hl=lF W!TH P BIT
**IST LOOP H:OE3F.ON 2ND LOOP H=OflF
**OISA8LE STOP ON ERROR AND FORCE
** STORE BITS PO AND PI TO MEMORY
**SHOULO HAVE SET STOR DATA PARITY I f
**RST FORCING OF STORE BITS PO AHO PI
**RTN FOR ADDITIONAL TE SH NG & 2ND LOOP
BR IF "C2=0
RST MMSK K""~H
Hl=MC
8R If lNl
SET DR K:OO
SET S6
BR
**SHOUl.D HAVE SET STORAGE ADDRESS CHECK
**RESET MC REG
**CHECK RESET Of Nt REG
**MC REG SHOUlD HAVE BEEN RESET
**AllOW STOP ON ERROR
lit 00 SYSTEII IESET
AENO
********************************••
* CROSS REFERENCE FOR eSECT SO IA*
**********************************
PAGE
18
ClOAO=*E40. EC LE VE L=12B2 II
**********************************
*
CROSS REFERENCE fOR CSECT BOlA
***********************************
'301A
aOIA
BOlA
dOIA
BOlA
BOlA
BOlA
BOlA
BOlA
ROlA
BOlA
dOIA
BOlA
BOlA
dDIA
BOlA
r.lOlA
BDIA
dOIA
dDIA
130 IA
130lA
BOIA
BOlA
BOlA
BDIA
3D IA
BOlA
BDIA
BUIA
BOlA
dOIA
BOlA
dOl A
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BO IA
BOlA
BOlA
BOlA
BOiA
164
188
190
195
197
19B
201
201
211
212
216
217
22B
229
231
239
240
242
245
248
255
259
261
269
270
281
302
304
313
314
318
319
331
347
355
373
374
381
385
386
391
402
405
407
411
415
418
423
426
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BDIA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOU
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOlA
BOIA
BOlA
BOlA
BOlA
164
188
190
137
202
196
166
193
211
212
216
217
22B
229
231
239
240
242
245
256
25.5
259
261
2t3
270
211
283
304
302
BOlA 142
BOlA 183
BOlA 171
BOlA 176
BDIA 192
BOlA 269
BOlA 312
BOlA 324
314
315
319
317
347
343
354
316
375
394
382
391
402
405
4C1
411
400
SOIA 418
BOlA 423
BOlA 426
,"
BOlA 409
PAGE
19
ADDR
WORD
SEQUENCE NO.
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
lAAA
!AAA
IAAA
IAAA
IAAA
IAAA
IAAA
lAM
lAAA
lAAA
lAM
IAAA
IAU
lAAA
IAAA
IAAA
IAAA
IAAA
lAM
IAAA
IAAA
fAAA
IAAA
IAAA
IAAA
IAAA
[AAA
{AAA
IAU
IAAA
lAAA
IAAA
lAAA
!AAA
IAAA
IAAA
IAAA
IAAA
lAM
IAAA
fAAA
IAAA
IAAA
IAAA
lAAA
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
0~5
026
027
028
029
030
031
032
033
034
035
0.36
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
LABEL
T
*
*
*
*
*
..
..
..
..
*
*
..
*
*
..
..
*
..
*
..
..
*
..
..
..
*
..
..
..
*
*
*
*
*
*
*
..
*
..
*
*
*
..
*
*
*
*
*
*
*
*
*
NEXTSEQ
NEXTLA8EL
STATEMENT
CtOAD=*E40, EC tEVEt=128211
COMMENTS
R. TAYlOR
USERS INITIAlIZATION PROCEEDURE
***********************************************************************
1400
INITlAlI ZATION PROCEDURE
DISREGARD SRL INITIALIZATION PROCEEDURE (FORM A24-3512-1I
*
*
*
*
PHYSICALLY*
STEP 1 LOCATE THE OVERLAY CARD IN THE CSL DECK.THIS CARD (S
LOCATED AS THE THIRD CARD PRECEEOING THE END CARD .THIS CARD IS*
BLANK IN COLS 5-68 AND HAS AN ADDRESS IN COLS 69-72( 70400R9040) *
STEP 2 READ THE LIST OF CARD COLUMNS THA T MAY BE SUBJECT TO CHANGE.
**
CONFIGURE ONLY THOSE COlUMNS THAT MUST BE VARIED AND PLACE THE *
BYTE REPRESENTATION NEXT TO THE AFFECTED COLUMN IN THE SPACE
*
PROVIDED.CARD PUNCHING SHOULD BE DONE AFTER ALL ASSIGNMENTS ARE*
CHECKED AND LOGGED IN THE SPACE PROVIDED.
*
NOTE
**
IF AN ASSIGNMENT VALUE IS 40(BLANK}, A SUBSTITUTION MUST BE
MADE FOR THAT CARD COLUMN. THE 40 ASSIGNMENT IS POSSIBLE ONLY *
IN THE CARD COLUMNS LISTED.FOLLDW SUBSTITUTION CODE INSTRUCTION*
CARD COLUMNIS'
SUBSTITUTE CODE
*
6-11
60
*
13
04
28
CO
38,40.42.44
44
*
45
CO
*
60
44
•
63,64
fAt a 8 TAPES
TURN ON UNUSED BIT
*
tSI 8 TAPES S.INGlE 9 TRACK TAPE ADDRESS
*
CANNOT BE XXI
*
*
*
**
STEP.3 CONFIGURE THE OVERLAY CARD. LEAVE COLUMN BLANK IF NO CHANGE IS
REQUIRED.
•
COL ALTER TO MAS FUNCTION COMMENTS REGARDING ASSIGNMENT
*
5
6
1
8
9
10
11
------ -------------------------------------*
08 TAU ADDR. ADDRESS IS LOW ORDER DIGI T
*
CO TAPE.l
HI DIGIT(C=9TK,0=200BPI,4=556BPI,8=800BPI*
TAPE.l lO DIGIT (S LOW ORDER OF SYSTEM ADDRESS{OT07)*
Cl TAPE'2 HIGH AND LOW DIGITS,FOR MEANING SEE COL 6
C2 TAPE.3 SEE COL 6
*
C3 TAPEf4
*
C4 TAPE'5
*
C5 fAPE'6
*
*
28
01t21lF 24K)
BIAS CONSTANT HI SEE FIG II FOR VALUES **
80 BIAS CONSTANT LO MAS ASSIGNS FOR 16K 1400 PROGRAM
RESIDING IN EITHER 16 OR 24K MEMORY.
04 MCS
LENGTH CODE 48 CHARACTER STANDARD SEE f IG#2 *
33
8E PRT CTl
35
36
OA CHAN RD
00 2ND RD
13
14
*
*
*
*
BIT 0 ON IF GREATER THAN 120 PRINT POSITION*
BITS 3-1 PRINTER CHANNEL ADDRESS tOE). NO
NEED TO ALTER SITS3-7 IF NATIVE PRINTER
CHANNEL READER ADDRESS SET FOR OA. «1442)
*
USERS OPTION
*
PAGE
20
ADDR
WORD
SEQUENCE NO.
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
lAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAU
lAAA
IAAA
IAAA
IAAA
IAAA
lAAA
lAAA
IAAA
IAU
IAAA
IAAA
IAAA
IAAA
IAU
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
UAA
tAAA
IAAA
IAAA
IAAA
IAAA
IAAA
IAAA
lAAA
IAAA
IAAA
IAAA
[AAA
IAAA
054
055
056
057
058
059
060
Ob1
062
063
064
065
066
061
068
069
010
011
012
013
074
075
076
011
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
lABEL
*
*
*
*
*
*
*
*
*
*
*
*
*
*
•
*
•
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NEXTSEQ
NEXTLABEl
STATEMENT
ClOAO=*E40. EC lEVEl=128211
COMMENTS
DISK MODULE ASSIGNMENT FOR 1400 DRIVE 1
DISK ASSIGN m 360 ADDR. HI DIGIT 8.4.2,1
REFERS TO NPl DRIVE 0,1,2,3 RESPECTIVELY
L~ DIGIT HERE CONTROLS ALL FILE OPERATIONS
******
BITl-1 MODULE OVfl OETECT,BIT6-1 COMPARE
******
DISABLE ON • lO ORDER DIGIT 0 FOR DR 2-5
******
MODULAR ADDRESS ASSIGNED TO 1400 DRIVE 2
OK MOD
DISK ASSIGN TO 360 ADDR, SEE Cal 38,lO=0
OK 360
MOOULAR ADDRESS ASSIGNED TO 1400 DRIVE 3
OK MOD
DISK ASSIGN TO 360 ADDRESS,SEE C0138,LO=0
OK 360
MODULAR ADORE 5S ASSIGNED TO 1400 DRI VE 4
OK MOD
OK 360
DISK ASSIGN TO 360 ADORESS.SEE COl3B,lO=0
SEN SW
B-G ARE REPRESENTATIVE IN BITS 1 TO 6.
DEVICE EOF SETS BITS 0,1 ACCORDINGLY
1052 CTl
80= A TYPEHEAO,CO= H TYPEHEAD
31
38
00 OK MOD
81 OK 360
39
40
41
42
43
44
45
02
40
04
20
06
10
00
47
80
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
**
DO NOT ALTER UNLESS PROG PREVIOUSLY RAN
OK MOD
OK 360
WITH 5 DISK DRIVES. SEE SRl.
*
HI ORDER BYTE SEE FIG3 BELOW--BIT
*
1400 CTl
1400 CTl
LOW ORDER BYTE SEE FIG3 BElOW-SIGNIFCANT*
ff 9TK FlG
BITS G-l RESPECTIVELY ARE 360 TAPE OR 0-7*
b4
00 PH2 ENC
PHASE ENCODED BITS 0-7 ARE USED TO
*
FURTHER DEfiNE 360 ADDRESSED TAPE DRIVES *
AS PHASE EN COOED IF THE TAPE IS ALS09TK *
***********************************************************************
59
60
b1
62
63
08
00
E8
00
*
BIAS CONSTANT TABLE
**FIG2 MCS
FIG3 HI 1400 CTl *
B[TO 1/0 CHECK STP*
* 16,384 24.576 32.168 49,152**8ITO OFF
1 NOT USED
*
*1400***********************************
1 240CH
2 EX PRINT EDIT*
****************************************
2 120CH
3 PER/COMMA INV*
16K * 0180 * 2180 * 4180 * 8180 **
3 80 CH
4 COLUMN BINARY*
*******------------------------**
4 60 CH
12K * 1120 * 3120 * 5120 * 9120 **
5 48 CH ++ 5 NO PUNCH BUFR*
**.****-----------------------**
6 40 CH ++ 6 MODEL G EMUl.*
8K * 20CO * 40CO * 60CO * AOCO **
7 16 CH ++ 1 51 COL CARDS *
La 1400 cn *
*******-----------------------------**++ E50 ONLY
BITO ALT READ TAPE*
4K * 3060 * 5060 * 1060 * B060 **1442
1 NOT USED
*
*******-------------------------------**EMUlATION
2 TAPE ERASE
*
2K * 3830 * 5830 * 1830 * B830 **ON NATIVE
3 ALT 9 TK TAPE*
*******-------------------------**2540
1.4K * 3A88 * 5A88 * 1A88 * BA88 **BIT
4 OFF
*
5 CHANNEL PRINT*
*******VAlUES fOR HIGH MEMORY ADDRESS ** 5 RD AND PCH
6 STERlINGIWT) *
*******MICROPROG CONTROLLED FROM BIAS **6 SEl ERR CD
1 STERLINGlWTI *
*******
3F *
5f *
lF * Bf
**7 EMULATE SW
***********************************************************************
STEP 4 REFER TO THE PUNCH CARD CODES GIVEN IN THE BCPL ROUTINE
*
FIGI
STEP 5 PUNCH THE TRANSLATED CHARACTER IN THE APPROPRIATE COLUMN OF
OVERLAY CARD IF YOUR ASSIGNMENT DIFFERS FROM THE MAS ASSIGN
STEP 6 PLACE OVERLAY CARD BACK INTO THE CSL nECK (EVEN IF ALTERATIONS
HAVE NOT BEEN MADE) AT ITS PREVIOUS LOCATION.
**
*
**
*
*
PAGE
21
ADOR
WORD
SEQUENCE NO.
IAAA
IAAA
IAAA
lAAA
fAAA
IAAA
IAAA
101
108
109
110
111
112
113
UBEL
*
*
*
*
*
*
*
NEXTSEQ
NEXTLABEL
STATEMENT
CLOAD=*E40. EC LE VEl=128Hl
COMMENTS
STEP 1 REMEMBER TO USE THE PREVIOUS OVERLAY CARD WHEN YOU RECEIVE
fUTURE *E40 OR *E50 CORE LOADS.
*
*
NOTE
*
WHEN CHANGING PHYSICAL MEMORY SIZES TO OR fROM 24K THE ADDRESS *
MUST BE ALTERED If THE OLD OVERLAY CARD ISm BE USED.
*
SIMPLY CHANGE COlUMN 1 TO THE PUNCH CODE fOR 70fNOT 24K) OR 90 *
***********************************************************************
PAGE
22
ClOAo=*E40. EC LEVEl=128211
IAOO
DESCRIPTIVE
PAGE
23
TEXT
NOTE
THE ADO INSTRUCTION WITH A-ADDRESS ONLY CAUSES
THE DATA IN THE A-fIELD TO BE ADDEO TO ITSElf. THE
SINGLE ADDRESS SUBTRACT INSTRUCTION CAUSES THE OAT A IN
THE A-F IELo TO BE SUBTRACTED FROM ITSElF. THE A-fiElDS
MUST HAVE DEFINING WORD MARKS.
OBJECTIVES
ADD
THE DATA IN THE A-FIELD is ADDED ALGEBRAICALLY TO THE DATA
IN THE B-fIELD. THE RESULT IS STORED IN THE B-FIELD.
THE B-FIELD MUST HAVE A DEfINING WORD MARK. THIS WORD
MARK STOPS THE ADO OPERATION..
IF THE A-FIElD IS LONGER THAN THE B-FIElD. THE HIGH
UROER POSITIONS OF THE A-fiELD {THAT EXCEED THE B-fIELD
LENGTH) ARE NOT PROCESSED.
ENT RY POINT S
SUBTOP
SUBTRACT OPERATIONS ENTER HERE fROM I-CYCLES.
ADDOP
ADO OPERATIONS ENTER HERE FROM (-CYCLES.
SUBTRACT
THE NUMERICAL DATA IN THE A-FIELD IS SUBTRACTED ALGEBRAICAllY fROM THE NUMERICAL DATA iN THE B-fIELD. THE RESULT
IS STORED IN THE B-fIELO.
A WORD MARK DEfiNES THE B-FIELD. AN A-FIELD REQUIRES A
WORD MARK ONLY If I TIS SHORTER THAN THE B-F IElO. IN THIS
CASE THE A-fIELD WORD MARK STOPS TRANSMISSION Of DATA.
ADOR
1702
1104
1706
1708
170A
l70C
l70E
1710
1712
1714
1716
1718
17lA
I1lC
17lE
1720
1722
1724
WORD
3585
10EE
571A
C111
5709
8442
5079
E7l1
F716
1580
50.30
COLD
8442
E025
fD24
15BO
2040
51AO
SEQUENCE NO.
IAOO
IAOO
IAOD
lAOD
lAOO
lAOo
IAOO
lAOo
1A0D
lAOO
IAOO
1AoO
lAOD
lAoO
IADO
lAoO
IADD
IAOO
IADO
!ADO
lAoO
001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
018
019
020
021
UBEL
T
*
*
SUBTOP
ADDOP
NOSPEC
APlUS
BNOSPC
BPLUS
NEXJSEQ
NEXT LABEL
STATEMENT
CORCH
SPECIAL CHARACTER LOOP. SPECIAL CHARACTERS ARE
CONVERTED TO NUMERICALLY SIGNIfICANT VALUES. THIS
IS REQUIRED, fOR EXAMPLE, BY 1400-SERIES ADDRESS
CHARACTERS THAT USE THE 8-PUNCH. THIS ROUTINE
IS USED BY IAOD. IMAO. 10Vo. AND I MPY.
COMMENTS
KRAGER
ADD SUBTRACT ROUTINE
SIGN ANALYSIS lOOP. SIGNS ARE CHECKED AND COMP IS TURNED ON IF
NECESSARY. fLAG BITS ARE SET TO INDICATE fiELD POLARITIES
Gl:Gl$K80
SE T UP FOR SUB TRAC T
RST S K=fE
CLEAR S REGISTER
ROB 01 U-l
READ A fIELD
BR If 01 BITO=l
BR If NOT A SPECIAL CHAR
011 NOSPEC
Pl=ol
BAL
CORRECT CHARACTER
160 CORCHR
D1=P1
BR IF A CHAR IS PLUS
BR IF 01 BH2=l
014 APLUS
BR If 01 BIT3=O
BR IF A CHAR I S PLUS
014 APlUS
G1=GlcK80
A MINUS SET COMP ON
ROB PI V.O
READ B fiELD
BR I f P 1 8 IT 0= 1
BR IF NOT A SPEC IAL CHAR
011 BNOSPC
CORRECT CHARACTER
BAL
160 CORCHR
8R If PI BH2=1
BR IF CHAR IS PLUS
021 BPLUS
BR If P1 BIT 3=0
BR If CHAR IS PLUS
021 BPlUS
Gl=GlIlK80
B MINUS INVERT COMP BI T
SET S5
SET B flO MINUS fLAG ON
rO=Oll
AODR
WORD
1726
1128
172A
172C
172E
5DFD
C530
3000
7222
AItDC
1130
1732
1734
1136
1738
113A
173C
173E
1140
1742
1744
1146
1748
114A
174C
114E
1750
3A95
7FAF
40FB
3FC5
OFIB
fOC2
OFEO
EOC2
IF80
0073
F5CC
5A82
3843
7A82
IF45
7F3A
807C
1160
1762
1764
1166
1168
176A
176C
176E
1170
1712
1774
1116
1718
177A
I17C
571A
C7.50
.5709
8442
5019
.5030
C063
8.. 42
41AD
.50FO
7FAF
DD7l
C5EF
AA.52
A060
3Ff5
7F3A
0753
tlDO
2020
27B5
975C
24DC
24DI:
24EO
24E2
2002
7FAF
.5FFO
DIE6
1752
1754
1756
1758
175A
175C
17.5E
SEQUENCE NO.
IADO
lADD
IAOO
lADo
lAOD
lADO
{ADO
IADO
IAOO
lAOO
IAOD
lADO
IADO
IADO
lADO
lADO
IAOO
lAOO
1A00
lADO
IADO
IADO
IAOD
1A0D
1A00
1A00
IADD
IAOD
lAOO·
lAOO
IAOO
lAOD
IAOO
IAOD
lAOD
IAOD
IAOO
1A00
IAOO
1AOO
1A0D
{ADO
IAOO
IAOO
1A0D
IADO
IADO
lAOO
lAOD
lAOD
IAOD
{ADO
IAOD
022
023
024
030
032
033
031t
035
036
031
038
039
040
041
LABEL
*
*TRUlOD
06l
NOSlSH
AOWM
*MAl NLP
063
06~
06.5
066
061
068
069
070
011
072
073
074
015
016
011
078
079
080
081
082
083
084
085
086
087
088
089
AOK
BOK
CKENO
CONTI N
OVFlOK
*
*COMPAO
NEXTlA8EL
STATEMENT
CLOAD=*EItO, EC LE VE L=128l U
COMMENTS
Hl=PlL
BR IF TRUE ADO
8R IF Gl BITO=O
SET COMP ADD CONTROL ON
SET SO
SAVE B STAR ADD
STH V DA,8C
GO DO COMP ADD
BR
086 COMPAO
TRUE ADO LOOP FOR UNITS POSITION OR ONE CHARACTER FIELDS. THE
OIUGIONAL B FIELD SIGN IS STORED OVER THE UNITS DIGIT.
TO=TOSK90
ADO NUMERIC BITS
HIC=HIGlTO+C
ADO lONE BITS
Hl=PlH+Hll
HI=Hl$KCO
CK FOR POSSIBLE SLASH RSlT
Z=HIIIKOI
BR IF NOT SLASH
BR IF LZNZ
044
NOSLSH
CK HIGH BIfS
Z==HlaKEO
BR IF NOT SLASH
BR IF HZNZ
044
NOSlSH
CORRECT CHARAC TER
Hl=HlIIK80
BR IF NO B FLO WM
8R IF PI BITI=1
078
OVFlOK
8R IF NO OVERFLOW
8RfF S3=0
AOWM
058
RDH T OA, AB
SET OVERFLOW INDICATOR ON
H=Tl$KOIt
STH T OA,A8
ADD 101M TO CHAR
Hl=Hl*-K40
STORE CHAR
STB Hi V-I
HISTRT
8R
ICYC 031
MAIN DATA lOOP. ONLY NUMER IC DATA IS USEO,lONE BlTS ARE DESTROYED.
READ A FIELD
ROB 01 U-l
BR IF 01 BITO.::l
BR IF NOT A SPEC UL CHAR
AOK
061
Pl=Ol
CORRECT CHARACTER
BAl
1&0 CORCHR
Ol:Pl
READ B FIELD
ROB PI V+O
BR IF PI. BITO.::1
010
BOK
BAL
160 CORCHR
TO=Dll+TOH
Hl=Pll .
ADO NUMERICS
HIC=HIGlTO+C
BR IF NO 8 flO WM
BR IF PI BITI:l
CONTIN
011
BR I f CONP ADO ON
SR IF SO=1
CKENO
016
BR
129 TRUENO
8R
104 CMPENO
REMOVE ZONE BITS
HI=Hl$KFO
STORE CHARAe TER
STB HI V-I
BR IF NO A flO WM
BR IF 01 BIT 1=1
MAINl?
062
BR IF S6= 1
AOK
067
SET A END FLAG
SET S6
SET A REG fa 0
OI=OSKBO
BR
AOK
067
COMPLIMENT ADO lOOP FOR UNITS POSITION OR ONE CHARACTER FIELDS.
A STANDARD PLUS OR MINUS SIGN IS iNSERTED IN THIS POSITION.
SET CARRY IN ON
SET S3
ADO CHARACTER
HIC=HliTO.C
SAVE NUMERIC BITS
Hl=HlL
SR IF B FIELD PLUS
SETP
BR IF S5=0
091
035
04l
043
044
045
051t
055
056
058
059
060
061
NEXTSEQ
TRUADO
PAGE
21t
ADDR
WORD
24E4
24E6
.24E8
24EA
24EC
24EE
24F0
24F2
24F4
24F6
24F8
2ltFA
24FC
3F15
3FC5
006C
9172
f5fO
914C
IFW
5FB9
2002
2F07
7FBF
4BFB
914C
2060
2062
2064
2066
2008
206A
206C
206E
2070
2012
2014
2016
2018
201A
207C
201f
2080
2082
3FB5
1F3A
F5E8
807C
5222
5530
1510
2002
2007
55BO
7DBF
450B
051F
103A
801C
703A
5530
A070
2A52
2A54
2A56
2A58
2A5A
2A5C
2A5E
2A60
2A62
2A64
2A66
2A68
2A6A
2A6C
2A6E
2A 10
2A72
2A14
2A16
2A78
4FDO
3045
5FCO
F5E2
2flD
5A82
3B43
lA82
ElFl
5C49
5159
.3545
5540
555S
6f53
IFC5
5CE9
50EO
1045
103A
SEQUENCE NO.
IAOO
IAOO
lAOO
lAOO
lAOO
IAOO
IAOO
lAOO
lAOO
lAOO
lADO
lAOO
lADO
IAOO
lAOO
lAOO
lAOO
lAOO
IAOO
lAOO
1A00
lAOO
IADO
lAOO
IADO
1A00
IAOO
IAOO
1A00
IAOO
!ADO
IAOO
lAOO
lAOO
!ADD
lAOO
1A00
lAOO
1A00
{ADO
IAOO
1A0D
IAOD
lADO
lAOO
lAOO
IAOO
IAOD
IADO
IAOO
lAOO
lAOO
lAOO
LABEL
090
091
092
093
094
SETP
GOON
0.q5
096
091
098
099
100
101
102
103
104
105
106
101
113
115
116
RCMPU
*
CMPENO
RECOMP
117
11B
NTDONE
119
120
121
.122
123
124
125
126
127
128
129
130
LH
132
STNO
:I<
TRUEND
133
142
143
144
146
147
148
149
150
151
152
153
154
155
156
151
XAXA
SKIP
NEXTSEQ
NEXTLABEl
STATEMENT
HI=HUKI0
Hl=Hl$KCO
GOON
BR IF PI BIT 1=0
094
OVFLOK
BR
018
BR If 53=0
096
RCMPU
AOWM
BR
058
Hl=HlIlKlO
Tl=Hl
SET S.3
H1=0
HIC=HlaT I+C
Hl=T IH+HIL
058
ADWM
BR
COMPLI MENT ADD END ROUTINE
Hl=HLSKBO
STB HI V-I
113
RECGMP
BR IF S3=0
HISTRT
BR
ICYC 037
ROH V OAt BC
ROB Gl V+O
Gl=GlIlKlO
SET S3
Pl=O
T I=GIL
PIC=P laT I+C
Pl=GlH+PlL
STNO
BR IF Gl BIT t=1
125
STS PI V-I
HISTRT
ICYC 037
BR
STB Pl V-I
ROB Gl V+O
BR
118 NTOCNE
TRUE A 00 END ROUTINE.
P1=H1l+PIH
P1=PUK40
ROB HI AS,P
XAXA
SR IF S3=0
1lt6
Hl=HhKlO
RDH T OA,48
T I=T UK04
STH T DA, A8
SKIP
BR IF S6= 1
153
GO=PO
Gl=Ol
G1=Gl$K40
ROB Gl AS,G
Gl=GIH
Hl=H1+Gl
Hl=Hl*-KCO
HO=PO
ROB PI AS,H
Pl=Pl:1<-KItO
STS PI V-l
ClOAO=*E40, EC lEVEl=128211
COMMENTS
FORM STANDARD SIGN
BR IF B FLO WM
BR IF RECOMPLEMENT NEEDED
INVERT SIGN
FORCE CARRY IN
RECOMP CHAR
ADO SIGN
STORE CHAR
READDRESS UNITS POSI nON
READ B FIelD
IN VER T SIGN
SET CARRY IN
ZERO A FIELD
ADD NUMERICS
ADD ORIGIONAL lONES
BR If NO 101M
STORE LAST CHAR
KTN TO I CYCLES
STORE CHAR
READ NEXT CHAR
ADO ORIGIONAl lONE BITS
INSURE 1 BIT ON
CONVERT TO BCD
SR IF NO NUMERIC OVFLO
ADD 1 TO B FLO laNES
ACCESS OVERFLOW SYTE
SET OVERflOW BfT ON
STORE SACK
8R If A fLO HAS TERMI NA TEO
INSURE I SIT ON
CONVERT TO BCD
ADD lONES
IN SURE 0&1 BITS OFF
CONVERT TO NPL
ADD 101M TO CHARACTER
STORE CHARAC TER
PAGE
25
ADOR
WORD
2A1A
8D1C
0442
0444
0446
0448
OHA
044C
044E
0450
0452
ODF5
f009
00A8
F005
0018
FOOl
1083
3085
128E
045~
lDF3
0456
0458
045A
045C
045E
0460
F95C
EDbl
FOb4
04b2
.0464
0466
lAoD
IAoD
IAoO
IAOD
lADD
lAOO
lADO
lAOO
1A00
IADD
IAOO
lADD
lAOO
IAOD
lADD
lAOO
IADD
[ADO
IADD
IADD
IAOO
lAOD
lADO
lADO
IADD
lAOD
lAOD
IAOU
IADO
IADD
lAOD
IADD
IADO
lAOO
IAOO
IAOO
lADO
lAOO
IADD
IADO
IADD
lAOO
IAOD
IAOD
lAOD
lAOO
1A0O
lAOO
1A00
IADD
lOlD
F050
1030
F05l
3DB5
128E
004
00.5
011
014
011
021
035
044
058
062
067
070
016
077
018
086
091
094
096
104
113
118
125
129
146
153
160
167
169
LABel
SEQUENCE NO.
ICye
ICYC
lAOO
lAOO
lAD 0
lAOO
lADo
lAOO
lAOO
IADO
lAOo
lAOO
IAOO
lAOO
IAOD
1A00
IADo
IADO
1A0D
lAOO
lADD
lADO
lADO
IADD
lAOO
lAOD
lAOO
IAOO
IAOO
247
246
007
011
015
011
023
040
045
ON
063
068
074
158
159
160
161
162
*
CORCHR
163
164
165
166
167
168
169
170
171
CKIT
172
113
THREE
114
115
116
BOTH
177
BLANK
NOEl
I SEl
PGBlK
118
NEXTSEQ
NEXTlABEl
ClOAD=*E40, EC lEVEl=128211
COMMENTS
STATEMENT
PAGE
26
BR
IC YC 031 HISTRT
SPECIAL CHARACTER LOOP.
Z",Pl*-KFO
BR IF CHAR NUMER IC BITS=O
BR IF LZ=O
111 CKIT
Z=P1aKOA
BR If CHAR NUMER IC BITS 10
BR IF LZ=O
169 PG8LK
TEST CHAR LOW BITS
Z=PlaKOl
BR If CHAR I S A /
BR IF ll=O
167 ISH
REMOVE 4 BIT
Pl=PI*-K08
fORCE QUAD 3
Pl=Pl$K80
RTN
REMOVE lOW 4 BITS
P1=Pl*-KOf
BR UNCO
BR IF PI BIT7=0
113 THREE
BR IF Pi BIT2=l
175 80TH
BR IF PI BIT3=0
BLANK
177
INVER T ZONE BITS
Pl=PlaKlO
8R IF PI BIf3:0
167 ISEl
INVER T ZONE BITS
Pl=PlaK30
BR IF PI BIT3=l
167 ISH
Pl=Pl$KBO
RTN
**********************************
* CROSS REFERENCE FOR CSECT lAOD *
************************.*********
IADO 012
1A00 018
IADO 042
lAOo 095
I ADO 102
1A00 080
1A00 083
013
044
032
089
092
094
076
106
127
122
075
132
IAOO 093
146
009
lt5
163
IADD 016
IADO 174
lADO 065
lADO 176
I ADO 069
IOVD 033
lOVD 047
IOVD 159
IMAD 013
IMAD 027
IMPY 030
IMPY 081
IMPY096
ClOAD=*E40. EC lEVEL=128Z11
IADD
IADO
IADD
lADD
171
IADO 161
113
lADO 170
175
111
lADD 112
IADD 171
**********************************
* CROSS REFERENCE FOR CSECT IADO *
**********************************
PAGE
27
ClOAO"'*E40, EC lEVEl=l28211
I BCH
DESCRIPTIVE
PAGE
28
TEXT
OBJECTIVES
BRANCH IF INDICATOR ON
THE D-CHARACTER SPECIFIES THE INDICATOR TESTED.
IF THE INDICATOR IS ON THE NEXT INSfRUCTlON IS TAKEN FROM THE
I-ADDRESS.
BRANCH INSfRUCTION
THIS INSIRUCHON ALWAYS CAUSES THE PROGRAM TO BRANCH TO THE
INSTRUCTION SPECIFIED BY THE I-ADDRESS WITHOUT TESTING FOR
SPECIFIC CONOITIONS.
THIS BRANCH IS HANOLEO BY THE IUBR
ROUTINE.
ENTRY POINT
BRANCH
BRANCH IF CHARACTER EQUAL
THIS INSTRUCTION CAUSES THE SINGLE CHARACTER AT THE BADDRESS TO BE COMPARED TO THE O-CHARACTER.
IF IT HAS THE
SAME BIT CONFIGURATION AS THE O-CHARACTER. THE PROGRAM
BRANCHES TO THE I-ADDRESS.
ADDR
WORD
134C
134E
1350
1352
1354
1356
1358
135A
13SC
135E
1360
1362
1364
1340
1342
1344
1346
1348
134A
1366
1368
136A
1300
1302
1304
D2S0
1
168
169
170
171
172
113
174
175
176
171
178
179
180
181
182
183
184
185
186
187
188
189
190
191
LABEL
I NltALO
NEXTSEQ
NEXTlABEl
138
SerBER
156
UNOSPC
156
UNOSPC
135
135
156
I NVALD
I NVAl.D
UNOSPC
135
I NVALD
158
159
UNZONE N
TWelVE
172
164
SUMUP
E.lGHT
112
168
SUMUP
FOUR
172
SUMUP
186
BAOCMP
181
HOP
075
BRHUSP
195
OPI478
195
OP1418
195
OPI478
195
OPI478
191
NOROWO
SETBER
UNOWM
UNOSPC
UNZONE 0
TWEl VE
UNZONE 1
EIGHT
UNZONE 2
FOUR
UNZONE 3
SUMUP
SETTO
RDI4
140P
BAOCMP
NOROWO
192
193
194
STATEMENT
CLOAD=*E40, EC LEVEl=128211
COMMENTS
BR IF DO BHO: 1
SET A INVALID
DO=DOSK20
BR
SET B INVALID
DO.. OOSK 10
BR
USE TEN' S NUMER IC
H1=HIL
XLATE TEN'S
ROB HI AS,H
ADD TEN'S TO HUNDREDS
TIC=Tl+Hl
ADO CARRY, PO=OO
TOC=TO+PO+C
8R ON INVALID TENS
8R I f Hi B1T1=1
8R ON INVALID HUNDREDS
BR IF DO BIT 1=1
8R IF UNITS NOT SP CH
BR IF 01 B IT 0= 1
SP .CH. HA SK FOR I
Z=DlaKOI
8R IF NOT I
BR IF lZNZ
TAKE UNIT'S NUMERIC
Hl=OlL
BR ON UNITS ZONE
N=Dl BITS23
BR **12.000 ADO 2EEO TO UNIT'S
Hl=Hl+KEO
Pl=OSKOE
Pl=Pl+K20
8R
BR ** 8,000 ADD IF40 TO UNIT'S
Hl"'H1+K40
Pl=O-KEO
BR
BR ** 4,000 ADD OFAO TO UNIT'S
H1=H1 +KAO
P1=0$KOF
BR
** 0 THOUSAND ,ZERO OUT PI
Pl=O
ADD UNIT'S TO TOTAL
T lC=T 1+H1
TOTAL AOOR IN HEX
rOC=TO+Pl+C
READ 1-4 OR 1-7
ROB PI 1+1
BR IF B AODR COMPUTE
BR IF DO BITO= 1
U=T
**A AOOR, TRANSFER ADOR TO A*
8R IF 14 WM
8R IF PI BIT 1=0
DO;DO$K80
**SET B AGOR COMPUTATION STAT
RST INV HNOROS-SET B VALID
DO:DO*-K50
BR
**60 BACK TO COMPUTE B AOOR
SET 1-4 OP STAT
DO=DOSK04
BR iF M L Q OR H OP
BR IF Gl BITO=l
V:U
B* EQUALS A*
SET B STAR VALID
OO=00*-K10
1-40P
BR
**B AOOR COMPUTED, TRANSFER AODR TO B*
V=T
RESET B ADDR COMP
00=00*-K80
(-7 WM
BR ON
BR IF PI BIT 1=0
MASK FOR ,OR I OP
Z=Gl*-K05
BR ON , OR I OP
BR IF Z=O
**1-8 OP,PUT MODIFIER IN 01-A REG.
Dl=Pl
READ 1-8 CH.
ROB PI 1+1
BR IF PI BITI:l
BR IF NO 1-8 WM
SET 1-8 OP STAT
OO=DOSKOZ
PAGE
40
AOOR
WORD
oeAC
oeAE
oe36
oe38
OC3A
DOC
OC3E
oe40
OC42
oe44
oe46
OC48
0020
0022
U024
002&
0000
0002
0004
0006
V008
aDOA
5S86
862B
5019
2245
B45
C645
3683
3625
01360
OB64
0668
OB6A
OB6C
0616
087e
087E
oe60
OC64
oe66
OC68
oe6A
Oe6C
OCbE
OC 10
OC12
JC74
OC16
oe 78
OC7A
OC7C
OC7E
OCEO
OCE2
OCH
OCE6
4026
3615
5886
862B
850B
8515
8515
8515
B167
6169
B179
OlOB
914E
A06C
9CB8
AG62
8C50
A108
807e
934C
8100
840A
9C9C
ADA6
ADA6
981C
8C50
9518
A20E
9704
970.2
85f4
864E
A204
A204
AE6C
A6Et
8D7C
A57C
999C
999C
SEQUENCE NO.
ICYC
IC YC
IC YC
Ie YC
IC VC
IC YC
Icve
Ie YC
IC YC
IC ve
Ie VC
Ie YC
IC YC
IC YC
IC YC
IC YC
IC YC
IC VC
IC YC
lcve
IC YC
IC VC
IC VC
IC YC
ICYC
IC YC
IC YC
IC YC
Ie VC
IC vc
lC YC
IC YC
Ie YC
IC ye
ICYC
Ie YC
IC YC
ICYC
ICYC
IC '¥e
Ie YC
IC YC
IC YC
IC YC
IC YC
IC YC
ICYC
ICVC
ICye
IC YC
IC YC
IC VC
IC YC
195
196
191
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
220
221
222
223
225
226
221
228
229
235
231
238
239
240
241
242
243
244
245
246
241
248
249
250
251
282
283
284
281
28B
289
NEXTSEQ
OPI418
(= {-I
BACK-DATE 1*
BR ON AOOR VALIDITY
VLOADR N N=OO BITS23
Ol=Pl
**1-2 OR i-5,MOOIFIER IN 01-A REG.
VO=OSK40
BLANK OUT B* HI
Vl=OSK40
BLANK OUT B* LO
BR If 1-5
204 15
BR IF 00 BITO= 1
SET 1-2 OP STAT
00=00SK08
12 OR 3, SET INVO A ADDR SUT
OO=OOSK20
U=V
A* EQUALS B*
DO=OOSK 10
**SET B ADDR INVALID STAT
BACKDATE 1*
1= 1-1
BR ON ADDR VALIDITY
201 VlDADR N N=DO BITS23
2lL OPROW N N=Gl BITSH **A &. B AOOR VALID, START DECO
IERR 002 OPROW N N=G1 BITS23
B AOOR INVALID
A ADOR INVALI 0
IERR 002 OPROW N N=Gl BITS23
IERR 002 OPROW N N=Gl BHS23 ** A &. B ADOR BOTH INVALID
225 OPROWO N N=GIL
OP ROW 1 OEC;ODE
239 OPROWL N N=Gll
OP ROW 2 DECODE
284 OPROW2 N N=GlL
OP ROW 3 DECOOE
BR IF 61 BITS=l
OP RO W 4 DECODE
216 OP.INVO
H, Q, OR COL BIN
BR
ISAB 039 STAR
BR
!ERR 028 I NVOOP
INVALID OPS
**********************************************************************
NEXTLABEL
STATEMENT
CLOAO=*E40, EC LE VEl=128211
COMMENTS
LABEL
207
1250P
BLKBU
13
15
BRONMK
VLOADR
VUJADR
VLDADR
VLOAOR
OPROW
OPROW
OPROW
OPROW
OPINVD
*
*
*
*
OPROWO
OPROWO
OPROWO
OPROWO
OPROWO
OPROWO
OPROWO
OPRQWO
OPROWl
OPROWI
OPROWI
OPROWI
OPROWI
OPROWl
OPROWI
OPROWI
OPROWI
OPROWl
OPROWI
OPROWI
OPROWI
OPROWI
OPROWI
OPROW2
OPROW2
OPROW2
OPROw2
0
1
2
3
0
1
2
3
NORMAL OP CODE T ABL E
0
2
4
IMVE
(ERR
ISWM
ICLR
5
6
ICVC
B IBCH
E IZWM
F lZWM
0 IMVE
2 OWZ
3 I MVI
4 IMAD
5 ISWM
6 IEDT
7 I MZS
8 lADD
9 lAoo
A I MPY
B IoVo
C IRAO
D IRAO
E I MRC
f ICMP
0 ICYC
1 lOPO
2 MPRT
3 MPRT
028
055
004
002
037
002
002
009
014
004
004
002
004
028
004
005
004
010
014
005
005
005
011
031
012
033
033
MOVEOP
HALT
SETWM
eLRSfR
HISTRT
BRANCH
ZNWMBT
BRUIT
lOAOOP
MVI0NE
MVZONE
MDFADR
SETWM
START
ZEROSP
AOOOP
SUBTOP
MULTPV
DIVIDE
RSfADo
RSTADo
RECORD
COMPAR
HISTRT
RoRPCH
PRTCMD
PRTCMD
BR
BR
BR
BR
BR
BR
BR
BR
BR
SR
BR
SR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
BR
M - MOVE OP
- HALT 01»
, - SET WM OP
CLEAR STORAGE 01»
I
NO OP, 8, OR 9 OP
B - BRANCH OP
V - BR ON lONE OR \liM
W - BR IF B IT EQUAL
L - LOAD OP
D - MOVE NUMERIC
Y - M()VE ZONE
1# - MODIFY AoOR
a - CLEAR 101M
E - EDIT
Z -MOVE ZERO SUP PRE SS
A - ADO
S - SUB TRAC T
i - MUl. Tl Pl Y
t - DIVIDE
- RESET AOD
- RESET SUBTRACT
P - MOVE RECORD
C - COMPARE
U1 - READ A CARD
2 - PRINT
3 - PRINT,READ
PAGE
41
ADOR
WOI(O
aCEB
aCEA
oeEC
aeEE
OCfO
OCF2
uCf4
oeFS
aeFA
OCfC
A57C
A57C
999C
999C
8D7C
AE40
A814
3613
91CA
'lICe
Ie YC 036
Icye 037
IC VC
ICVC
IC ve
ICye
IC YC
IC YC
IC YC
ICYC
ICYC
IeyC
leyC
IC YC
041
056
057
067
069
074
075
086
109
110
III
115
SEQUENCE NU.
IC VC
lADD
IBCH
IEDT
I SWM
lOPO
MQQQ
INRU
ICYC
IC VC
Ie YC
ICYC
ICYC
Ievc
IC VC
Ieve
Icve
Ieve
IC VC
Ie ye
IC YC
ICYC
IC VC
IC VC
IC YC
Ieye
Ie YC
IC VC
IC VC
IC ve
ICVC
Ie VC
ICYC
IC YC
Ie YC
Ie VC
ICVC
Icye
Ie YC
Icve
IeyC
IC VC
IC YC
ICYC
ICVC
IC VC
IC YC
ICYC
IC VC
ICYC
039
060
093
197
011
039
033
049
054
053
049
059
069
180
079
081
076
078
113
290
291
292
293
294
295
307
308
309
310
328
329
330
331
332
333
334
335
336
331
338
339
340
341
342
343
344
345
346
347
348
IADD
16CH
IERR
I UBR
MBBB
LABEL
OPROW2
OPROW2
OPROW2
OPROWl
OPROW2
OPROW2
OPROW2
OPROW2
OPROW2
OPROW2
NEXTSEQ
tOPD
lOPO
MPRT
MPRT
IC VC
9
lSSO
A MPPP
C
IOCM
0
E IOCM
4
.5
6
7
8
*
*
002
003
RDRPCH
RDRPeH
PRTCMO
PRTCMO
HISTRT
STKSEl
fORMS
002
003
lOAD
UOP
012
012
033
033
037
. ..
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
BR
BR
BR
BR
BR
BR
BR
DO=DOSKOl
BR
BR
PAGE
42
4 - PUNCH
5 - READ,PUNCH
6 - PRINT.P UNCH
7 - PRINT,REAO.PUNCH
PFR
K - STACKER SElECT
F CONTROL CARRIAGE
M - MOVE 1/0
l
LOAD I/O
U - CONTROL UNIT
"
.
•
lAOD
18CH
I MAO
IlWM
MNNN
124
114
052
004
006
iADD
18CH
IMPY
I lWM
MPRT
158
116
170
018
160
IBCH
iClR
IMRC
IZWM
MPRT
012
027
019
021
363
IC VC 072
IC ve 083
CLOAO=*E40. EC lE VEl=1282 11
COMMENTS
STATEMENT
**.* •••••• ******** ••• ****** •• *******
*.
*
300 HAlFWORD BIAS CONSTANT
*
*
FOR EACH MEMORY SllE.
*
*
********* ••• *****************
*
* 1400.* 16,384 * 32,768 * 49,152 *
**.***** ••• *****.***.***********.***
4180 *
8180 *
* 16K * 0180
*------------------------*
9120 *
* 12K * 1120 * SIlO *
*---------------------------*
8K * 20CO * 60CO
*
* Aoeo *
--------*
*--------------8060 *
4K * 3060 * 7060 *
*
*----------------------------*
B830 *
2K * 3830 * 7830 *
*
* - - - - - - _ .-------------------*
8A88
* 1.4K * 3A88 * 7A88 *
*
************************************
**********************************
* CROSS REFERENCE FOR CSECT ICVC *
*****.****************************
"*
107
095
010
014
082
NEXT LABEl
ICye OB7
ICYC 089
ICVC 090
18CH
ICMP
IMVE
JOTA
MPH
034
038
012
067
368
18CH
ICYC
IMVE
JENO
MPRT
035
229
019
135
375
IBCH
ICve
IMVE
JEND
MPRT
036
284
072
145
393
18CH
ICVC
IMVZ
JTPE
MPRY
037
294
020
042
412
18CH
IOVD
I MlS
JTYP
"'OOQ
039
167
054
140
011
18CH
lEDT
I RAD
KE NO
MQOQ
057
075
029
029
018
I8CH
lEOT
ISAB
lERR
MQQQ
06(>
1~3
020
009
02.4
ClOAD=*E40. EC lEVEL=128211
**********************************
* CROSS REFERENCE FOR CSECT ICYC *
**********************************
IC YC
IC YC
IC VC
ICYC
122
123
124
127
revc 135
ICYC 138
lCye 140
ICYC 156
IC YC 158
IOC 159
IC YC 164
Ie YC 168
IeYC 112
IC YC 113
IC YC 117
ICYC 181
ICYC 186
IC YC 191
IC YC 195
IC YC 197
lC YC 202
ICYC 204
ICYC 207
H .. YC 211
IC YC 213
IC YC 214
IC YC 216
Ie YC 225
IC YC 239
Ie YC 284
IC YC
ICYC
ICYC
IC YC
IC YC
IC YC
IC YC
IC YC
IC YC
IC YC
ICYC
IC YC
ICYC
INDX
ICYC
IC YC
[CYC
ICYC
115
111
122
121
151
135
128
137
157
158
10
H1
162
016
108
177
175
193
061
ICYC
ICYC
IC YC
lCYC
ICYC
IERR
IERR
lCYC
ICYC
Ie YC
Ie YC
114
Icve
132
134
196
201
004
054
214
211
212
213
IC YC 119
INDX 023
ICYC 152
ICYC 155
IC YC 139
ICYC 153
lCYC l66
lCVC 170
ICVC 182
ICYC 185
ICYC
IC YC
IERR
MLll
200
206
041
059
MPR T 165
ICVC L88
ICYC 190
PAGE
43
ADOR
WORD
SEQUENCE NO.
IC YO
IC YO
IC YO
IC'tO
IC'tO
ICVO
ICVO
IC'tO
Ie YO
Ie YO
leyo
IC YO
Ie vo
IC YO
Ie YO
Ie YO
Ie YO
Ie YO
Ie YO
ICVO
Ie YO
IC YO
Ie VO
IC YO
Ie YO
IC YO
Ie YO
Ie YO
Ie YO
leyO
Ie YO
Ie YO
IC YO
IC YO
Ie YO
ICYO
Ie YO
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
LA8EL
NEXTSEQ
NEXTlA8EL
T
OP CODE AND 8IAS TA8lE
*
**
*
•*
*
*
*
*
**
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
ClOAO=*E40, EC lEVEl=128211
COMMENTS
STATEMENT
o
-AUX STG ZONE 2-
KRAGER
BITS 4-1=
1
2
3
4
5
6
7
8
9
A
B
C
o
E
F
************.*****************************************************
0* 00 OA 14 IE 28 323C 46 50 5A 01 01 01 01 01 01 *
*-------------------------------------------------*
1* B+0059 ( A INO REG AOOR) 8+044C B+0888 8+0100 8+03E8 B+OOOO *
*------------------------------------------...:-------------*
2* B+005E « 8 INO REG AOOR}
B+OCIC 6+0834 B+044C 8+0064 *
*----------------------------------------------------------*
3* B+0063 (AB INO REG AOORJ
8+OC80 8+0898 8+0480 8+00C8 *
*----------------------------------------------------------------*
8 4*
6+0CE4 B+08FC 6+0514 B+012C *
I
T
*------------------- ----------------------------------*
6+0048 8+0960 B+0518 8+0190 *
*------------------------------------------------*
6*
IB= HAlFWORO BIAS CONSTANT)
B+ODAC 8+09(4 8+050C B+OIF4 *
5*
*-----------------------------------------~------------------*
I FROM KO AUX STG ZONE 0
B+OE10 B+OA28 8+0640 B+0258 *
S=7*
*----------------------_._--------------------------------*
o
8*
B+OE14 B+OA8C B+06A4 B+02BC *
*----------------------------------------------------------------*
9*
8+0ED8 8+0AFO 8 .. 0708 8+0320 *
*----------------------------------------------------------------*
A*
B+OF3C B+OB54 B+076C B+0384 *
*----------------------------------------'-....;.-----------*
16 32 48 64 80 96 11
28 44 60 16 92 01 23 39 *
3 B* 00
*-----------------------------------------------------*
IC 18 OB
IF 12 16 2A
B1
02 15
*
*--------------------------------------------------------------*
0* 10
29 90 80 06
IE f1
*
c*
*----------------------------------------------------------------*
05 19
20 OE OF
13 11
04 18
*
------------------------------------------------------------*
F*
21 22 23 24 25 26 27 C6 06
14 lA
*
E*
******************************************************************
PAGE
44
AOOR
WORD
SEQUENCE NO.
2044
2046
2048
204A
204C
204E
2050
2CBC
2eBE
2C('0
2CC2
2G('4
2CC6
2CC8
2CCA
2CCC
2C('E
2COO
2C02
2C04
2C06
2COS
2COA
2COC
2eOE
2CEO
3404
5Cf2
5E82
lEn
5E09
lCf2
AGBE
3404
14E2
2Cf7
5C09
E648
7C42
f650
1C52
E65f
2(, E2
1643
0040
FFf2
OF02
54E2
C 170
7252
5222
ABCE
H51
4426
A304
7E52
E65f
4406
A304
7E42
ee80
3633
2CE4
2CE6
2eES
2CEA
2G EC
2C EE
2CfO
2Cf2
IDIS 003
lOIS
lOIS
lOIS
lOIS
{DIS
1015
1015
1015
010
011
Ol6
020
023
027
028
036
W1S 031
IERR
JTYP
IOIS
1015
!DIS
1015
lOtS
IRSl
lOIS
lOIS
IO IS
lOIS
lOIS
10[S
1015
lOIS
lOIS
lOIS
1015
lOIS
lOIS
1015
lOIS
10[5
lOIS
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
I 0 [S 01 6
lOIS 011
1015 018
1015 019
lOIS 020
1015 021
lOIS 022
1015 023
1015024
lOIS 025
1015 026
1015027
lOIS 028
lOIS 029
1015 030
1015 031
lOIS 032
lOIS 033
1015 034
1015 035
lOIS 036
lOIS 031
lOIS 038
035
113
oe9
Ol4
016
019
018
145
034
031
LABEL
NEXlSEQ
T
NEXTLABEL
SJATEHENT
CLOAO=*E40. EC i.E VEl=128211
COMMENTS
1400 COMP
STOP ROUTINE
R TAYLOR
SET UP FOR 16 CHARACTER DISPLAY MESSAGE
sroppp
SET MODE K=AO
CPU ZONE AND 1052 MODE
RDH P DA,BE
GET STOP CODE AND ZERO LOWER
ROH H OA, A8
GET SENSE BYTE
HO=HO*-KOI
INSURE 8IT 7 IS OFf FOR DISPLAY
PUT SWITCHE S IN fOR 01 SPLAY
Pl=HO
STH P DA.BE
STORE IT BACK
011 GO
BR
CONTINUE SE T UP
STOP
SET HODE K=AO
SET 1052 MOOE AND CPU lONERT
GO
STH G DA,Be
STORE G REG DURING CONVERT
PO=O$KFF
Pl=PO
INVAliD ADD MESSAGE FFFF
STOPAB
016 TRY8
BR If 00 BIJ2=O
A STAR OK
STH P OA,98
STORE IN K4
TR YB
020 AROUND
BR IF 00 BIT3=O
B STAR
GOOD
STH P OA.9A
STORE B STA~ fOR OSPY
021 CONVI
BR IF 00 BIT 2= 1
BR If A I S BAD
023 TRYA
BR IF 00 BIT3=l
BR If B IS BAD
AROUND
G=V
PUT B INTO G HEX-DEC
lCTO 021 CVTOEC
BAl
CONV
STH H OA,9A
STORE VALID IN K5
TRYA
021 CONVI
BR If DO B1l2=1
G=U
PUT A INTO G HEX-DEC
ICTD 021 CYTOEC
BAL
CONV
STH H DA.98
STORE VALID A IN K4
CONVI
RST S4
RESET S4 FOR ALLMESSAGES HERE
CONVA
00=DOSK03
SET STATS fOR 16 CHAR MESSAGE
00= DO*-K04
RS T BIT 5
RST S5
037 GOTB
BR If TU3=0
B STAR OK
RST TA K=lO
RESET ALTER DISPLAY ACTIVE If ON
ROH G OA,BC
CHECK FOR AUX OR CONTROL AID OP
036 OECBST
BR If G1 BIT 4=0
NOT AUX OR CONTROL A/O OP
STH V DA,9A
OVERRIDE B SJAR DECIMAL ADDRESS
OECBsr
ROH V DA t 8C
RESTORE ORIGINAL 8 SJAR
GOTB
ISTP 006 STOPCD
BR
** IN (STP 1* IS PUT IN GREG OEC EQUIV IN H REG FOR UNPACK,
**********************************
* CROSS REfERENCE fOR CSECT lOIS *
**********************************
INRU 057 JCHL 106 JTPE 007 JTYP ll2 KENO 016 LPCH 025 MPRT 346
LROR 021 MMMM 042 MPRT 251
*
*
lOIS 023
I TRP 058
ITRP 057
PAGE
45
ALiOK
J64E
0650
0652
0054
0b56
v058
065A
U65C
db 5E
0660
0662
0664
0666
0668
066A
066C
Ob6E
0670
Ob72
0674
0676
0618
067A
0642
WORe
16C5
16F3
3042
7032
4426
SOIA
CD5F
8442
0063
3683
50FO
5030
CD6B
8442
5DAO
C5F!
3A95
7AFF
01F7
4ADD
ED43
f03.5
8636
ODED
0644
EOB8
0646
001B
FOBS
0648
064A
1085
064C
8638
0634
0636
Ob38
3645
3613
063A
063C
06lE
0640
Oa2C
062E
0630
DlBD
1030
5226
C220
8658
0210
3643
2F(]1
SE~UENCE
IDVD
IOVD
IDVD
10VD
lOVD
IDVD
IDVD
IDVD
IOVD
IOVO
10VO
IDVO
IDVD
IDVO
IDVD
IOVO
IDVD
IOVD
IDVO
IUVD
IDVO
IOVO
IOVO
10VO
IOVO
IDVO
10VO
IOVO
10VD
IOVO
lOVD
IOVO
IDVD
IDVD
IOVO
IOVO
IDVO
10VD
lOVD
NO.
001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
022
024
025
026
033
035
036
031
038
0.39
040
047
049
050
051
052
053
054
055
056
051
058
059
LABEL
T
*
*
*
*
*
*
*
*
*
*
*
*OJ VI DE
READAF
AFLOOK
NOAWM
*SHI P
BFLOOK
SUB r
SKI P
CKSLSH
10'10 060
061
IDVD
10 VO
IDVD
IDVO
IDVD
IDVD
IDVD
10VD
IOVD
IOVO
IOVD
IDVO
ID VD
062
063
064
065
066
061
068
069
070
011
072
073
SE TMI N
SErS.GN
STOREB
OK
CKTLED
NOTAWM
NEXTSEQ
NEXT LABEL
STATEMENT
CLOAD=*E40, EC LEVEL=I28211
COMMENTS
1400 DIVIDE
KRAGER
THE DO REGISTER IS USED AS A FLAG REGISTER FOR DIVIDE. THE BITS IF ON
~EAN THE FOLLOWING.
BIT 1= THE B FIELD WAS MINUS.
4; THE A FlELO wM WAS DETECTED.
5= THE X POSITION OF THE QUOTIENT HAS BEEN DONE.
6= AN OVERFLOW HAS OCCUREO.
1= B FIELD SIGN POSITION DETECTED.
THE S REG BITS ARE
BIT 0= SUBTRACT DIVISOR.
3= CARRY BIT ON
5- TRIAL SUBTRACT ON
DIVIDE PREPERATION AND A CYCLE LOOP.
RESET 0 AND 1 BIT
OO=DO*-KCO
RE SE T ALL LOW BITS
DO=DO*-KOF
SET SO S3 ANO S5
SET S K=94
SET A AUX REG
S T H U OA, BE
SET B AUX REG
G=V
READ A FielD
ROB Pi U-l
BR I f A NOT A SP CHR
BR I F P 1 SIT 0-= I
AFLDOK
035
GO CORRECT CHAR
CORCHR
BAL
IAOD 160
BR IF PI BITI:::l
BR If NO WORD MARK
NOAWM
037
OO=OO$K08
SET A WM fLAG
SAVE NUMERIC CHAR
HI-PIL
B CYCLE LOOP
READ B FIELD
ROB Pi V+O
BR IF NOT SP CHAR
BR IF PI BUO-= 1
049
BHOOK
GO CORRECT CHAR
BAL
IADD 160
CORCHR
TO=Pil
SETUP FOR ADD SUBr
BR IF SO= 1
BR IF SUST
052
SUBT
se T UP FOR AOD
TO=TOSK90
TOC=TOiH1+C
ADO, SUBT
BR IF TR IAL SUB T
055
SKIP
SR I f 55=1
Pl=TOL+P1H
PUT ORIG IONES ON CHR
BR IF PI BH2:1
sa IF NON STO SIGN
058
CKSlSH
BR IF PI BIT3=1
BR IF STD MINUS SIGN
064
SETMIN
BR
STD PLUS SI GN
.065
SETSGN
I=PlI:!KEO
BR IF .HINI
SR I f NOT SLASH
066
STOREB
I=P 1l:!KO I
BR IF LINI
BR If Nor SLASH
066
STOREB
PI-P1*-K80
REMOVE 0 BIT
BR
066
STOREB
DO=DO$K40
SET B MINUS fLAG
SET SIGN pas FLAG
DO=OO$KOI
BR IF S5=1
BR IF TRIAL SUBr
068
OK
S18 PI V+O
srORE NEW .iESUlT
B STAR -1
V=V-l
BR IF DO BU4=l
BR IF A WM FLAG ON
071
NOTAWH
BR
GO FOR A CYCLE
025
READAF
SR IF 00 BIT5=l
SR IF X POS FLAG ON
075
CKCARY
00=OO$K04
seT x POS FLAG
Hl=O
RESET Hi
PAGE
46
Al)UK
WORD
0632
:Jb1C
067E
0080
0682
Ob84
0086
0688
Qb8A
Ot» 8e
068E
0690
0692
0694
Jo9b
J098
069A
06ge
069E
06AO
06A2
OoA4
ObA6
J6A8
JIJAA
8664
16C3
F583
86'3E
0181
8bFO
0040
5032
e591
3000
5444
f595
2002
4246
e59A
8658
0002
8658
1:222
86ce
.5032
1000
0194
F2ee
8602
06FO
()6f2
fJ6F4
C 5AO
2040
f22B
06F6
8688
06AC
vbAE
J6BAA
i!.oAC
20AE
2680
2682
26B4
2686
26B8
26BA
26Be
26BI:
26CO
L6C2
1045
3543
3583
703A
DF27
95C6
0740
957A
1583
3523
9598
OF 14
0115
3543
1B45
95C2
1523
5224
Sf 30
5f69
3645
OBFO
EOBB
0640
C4C3
OBBB
FOA3
3543
1B38
OF01
FHD
801C
0507
C49B
A79E
CB60
F228
0640
EOC3
OB40
F230
OB60
E092
0114
Fi3E
3523
AbBE
fOC3
1523
1543
A694
0114
SEQUENCE NO.
IEOT
IEOT
IEOT
IEOT
IEOT
IEOT
IEOT
IEDT
IEIH
IEOT
lEOT
IEoT
IEOT
1I:0T
IE01"
IEOT
IEOT
lEOT
IEOI
IEDT
IEOT
IEOT
IEOT
IEOT
lEOT
lEOT
IEOT
lEOT
IEOT
lEDT
IEOT
IEOT
lEOT
lED!
IEOT
IEDT
lEOT
lEOT
IEOT
lEOT
IEOT
lEOT
lEDT
lEDT
lEOT
IEDT
lEOT
lEOT
.lEDT
IEOT
lEOT
IEDT
IEDT
121
122
123
124
125
126
127
128
129
130
LABEL
NEXTSEQ
NEXTLABEl
125
SKIP1
128
074
130
030
NOBENO
TEST2
AENO
ST ART E
051
137
131
NOUNIT
WAVE
WAVE
072
STOREB
SETBOY
SKIPI
NOBENO
AENO
131
132
133
134
135
136
137
138
1.39
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
161
168
169
110
111
112
113
SPEC1
WAVE
RE \I SC N
BREAD
169
NUMRIC
173
ZRO
157
PROCMA
140
154
IC YC 037
BREAD
EXEOT
HI STRT
153
119
OUT
FORAGN
160
Pl4
173
ZRO
164
PIS
PIS
149
150
171
ION
171
NUMRIC
113
RSTZ
ZRO
150
150
SSTORE
BSTORE
ZON
BSTORE
OUT
EXEOT
PRDCMA
PI4
RSTZ
IRO
BsrORE
RSTZ
STATEMENT
BR IF Gl BU5=l
P1=Pl*-K40
Gl=GlSK04
Gl=Gl$K08
STB PI V-I
BR IF Hi BIT 1-= 1
BR
BR IF 01 BIT 1=0
BR
G1=G1*-K08
Gl=Gl$K02
BR
BR IF HI BIT 1=0
BR IF G1 BIT5-l
Gl=Gl$K04
fl=T1*-K40
BR
Gl=G1*-K02
V=V+1
ROB HI V
T l=Hl
T l=l l$K40
Z=T laKFO
BR IF HZ=O
Z=T laK40
BR IF Z=O
Z=T laKOB
BR IF lZ=O
Gl=GUK04
SIB 1"1 V+l
SR IF HI BIT 1=1
BR IF Gl BIT 1=1
BR
Z=Gl*-KDO
SR IF z=o
BR
Z=T laK60
SR IF DO SIT7=O
Z=T laK40
SR IF HZ=O
Z-=T laK40
SR IF 00 SIT1=O
Z=T laK60
SR IF HZNI
BR IF Gl BIT 5=0
SR If Gl SIT 7=0
Gl=Gl$K02
SR
BR IF LI=O
Gl=Gl*-K02
Gl=Gl*-K04
SR
BR If Gl SIT5=O
ClOAO-=*E40, EC lE VEl-= 12 82 Ll
COMMENTS
BR IF ZERO SUPP ON
SET TEMP WM
SET SUPPRESS ON
SET BODY ON
STORE A FLO CHAR IN B FLO
BR IF NO B FLO WM
BR IF A FIELD 101M
RESET BODY
SET A flO TERMINATED
BR IF WM WITH 0
BR IF ZERO SUPP ON
SE T SUPP ON
SET TEMP 101M
READ B FIELD
INSURE NO WM
BR IF 0-9
BR IF BLANK
.
BR IF •
SET SUPP ON
STORE CHAR SACK
BR IF NO S FLO 111M
BR IF EXP EDT ON
TeST FLOAT $ AND DEC CTRl
BR IF BOTH OFF
BR IF NO PI flAG
TEST CHAR
BR IF •
SR IF NO PI FAl.G
TEST CHAR
SR IF NOT •
BR IF SUPPRESS Off
SR If NO EXP EDIT
SET DEC CTRl
BR IF 0
RESET DEC C TRL
RESET SUPPRESS
BR IF SUPPRESS OFF
PAGE
51
ADDR
WORD
2bC4
2845
F514
28C3
3855
A694
5226
5f30
OF4D
C4C5
ElIE
2AB3
26C6
26C8
26CA
26CC
279E
27AO
27A2
27A4
nAb
27A8
27AA
3A45
27AC
27AE
27BO
2782
27B4
2766
27B8
21BA
21BC
21BE
27CO
27(,2
2180
2782
2784
2186
2188
2ISA
278C
2798
279A
279C
278E
[190
F230
3A25
6AFt
C499
f08f
OfFD
E09E
C481
1F3A
1523
E521
SD1C
2F45
F5C8
2fC3
3f55
7F3A
F142
A7AO
1513
1525
A7S0
OF6D
f214
CF40
E086
A180
ElOI
1531
2fB3
A186
2192
2794
2196
27(4
21C6
27C8
27CA
lEOT
lEOT
If: DT
IEOT
IEOT
ItOT
IEOT
028
030
039
049
051
069
011
SEQUENCE NO.
IEDT
IEDf
IEDT
lEDT
IEDT
IEDT
lEDT
IEDT
IEDT
IEDT
IEDr
IEDT
IEIH
IEOT
IEor
lEOT
IEOT
IEDT
{EDT
IEDT
lEDT
IEOT
IEDT
IEOT
lEDT
IEOT
IEOT
lEOT
IEOf
IEOT
lEOT
IEOr
IEOT
IEDT
IEOT
IEOT
lEOT
IEOT
lEOT
IEOf
lEOT
IEOT
IEDT
LABEL
NEXTSEQ
114
175
176
177
178
179
180
181
182
183
184
185
186
187
188
L89
190
191
150
150
FORAGN
XREADB
213
179
188
PI6
205
208
NOPE
179
198
192
193
194
195
196
191
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
ENOlT
ZER02
180
ICYC 031
202
CMP
XTRE
191
180
PR02
198
CMA2
211
191
198
198
PI7
BK2
201
NEXT LABEL
SE T BLANK CHAR
T 1:OSK40
8R IF * FilL OFf
BR If G1 BIT 3=0
fORCE
Tl=OSKOC
Tl-=HSK50
CliAR TO *
BSTORE
BR
V=V-l
READ B FIELD
ROB HI V
TESr CHAR
Z=HlaK40
BR IF BLANK
BR IF Z=O
BK2
FORAGN
BR If Gl BIT6=O
8R IF DEC C T1U. OFF
BUILD
TO=OSK08
MASK
TO=TOSK40
SR IF NO PI FLAG
BR If 00 BIT7=0
PIG
CHANGE MASK
TO:TOSK20
TEST CHAR
TO=TOIIHI
BR IF
BR IF Z=O
PR02
MAY BE •
BR If .LZ=O
CMA2
Z=H1aKFO
NOT 0-9
BR If HZNZ
FORAGN
BR If 0
BR If Z=O
ZER02
STORE CHAR
STB Hl V-I
RESET DEC CTRl
GI=Gl*-K02
BR If fLOATING S ON
XREADB
BR If Gl BU 2=1
HI STRT
BR
FORCE BLANK CHAR
Hl:0SK40
BR If * FILL Off
BR IF Gl 8IT 3=0
XTRE
BUILD
Hl=OSKOC
CHAR
H1=Hl$K50
SroRE CHAR
STB Hi V-I
BR If DONE
Bit If Gl BIT 1=0
ENDIT
BR
XREADB
Gl=Gl*-KOl
Gl:Gl*-KlO
BR
ZER02
TEST CHAR
Z=HlaK60
8R IF NO PI fLAG
BR If 00 B117=0
PH
TEST CHAR
Z=HIIlK40
8R IF NOT ,
BR If HZNZ
NOPE
8R
ZER02
BR If DEC CTRL ON
ZER02
BR IF G1 8IT 6:1
REser FLAGS
Gl=Gl*-K33
Hl=OSKOB
CMP
8R
**********************************
* CROSS REFERENCE fOR CSECT lEDT *
**********************************
129
036
046
033
Oe7
018
lEOT 037
lEOT 049
IEaT 090
IEDT 013
CLOAD=*E40, EC LEVEl=128211
COMMENTS
BSTORE
ICye 244
lEOT
[EDT
lEOT
IEDT
IEDT
IEOT
STATEMENT
IEDT 132
.
PAGE
52
••••••••••••••••••••••••••••••••••
CLOAO=.E40. EC LEVEL=128211
• CROSS REfERENCE fOR CSECT IEDT •
••••••••••••••••••*••••••••••*••••
IEDT
IEOT
lEDT
IEOT
IEDT
IEOT
II:DT
II:DT
IEOT
IEDT
IEOT
IEOI
IEOT
IEOf
IEDT
IEOT
IEOT
lEOT
lEOT
IEOT
IEOT
IEDT
IEOT
IEDT
11:0T
lEOT
I I: OT
012
074
076
077
019
082
086
090
094
098
102
109
118
120
124
125
128
130
.EDT
160
Ib4
IEDT
IEOT
IEOT
lEor
lEOT
lEOT
HoOT
IEDT
IEor
IEDT
133
131
138
140
149
150
153
154
157
169
171
173
119
180
188
191
197
198
U:OT 201
lEOT
lEOT
1EDT
lEOT
lEDT
202
205
208
211
213
IEOf
!EDT
IEDT
IEOT
IEDT
IEOl
lEOT
IEOT
IEDT
IEOT
lEOT
IEOI
lEOT
lEDT
IEDT
IEOT
!EDT
lEOT
lEOT
lEOI
IEOT
lEOT
IEOT
lEDT
IEOT
IEOT
IEOT
IEOT
IEOT
IEOT
IEDT
lEOT
IEOT
lEDT
IEDT
IEOT
IEOT
IEOT
lEOT
IEDT
fEDT
(EDT
IEDI
IEOT
010
121
014
060
056
080
Of4
05.5
IEOT 011
IEOT 019
lEOT 064
IEDT 096
lEOT 081
IEOT 089
IEOf 091
IEOT 134
on
0'35
081
103
113
093
101
lC8
126
128
120
le6
Olb
151
164
165
155
IEOT 105
If 01 114
lEOT 111
IEOT 119
tEOT 121
IEOI 110
I EDT 11Z
IEOT 115
IEOT 133
lED I 112
IEDT 113
IEDT 115
IEDl 118
IEOT
IEOT
IEDT
IEOT
168
160
183
204
1E0T 169
lEDT 19Z
IEDT 201
lEOT ZIZ
l~Z
148
158
H2
144
166
146
15b
196
186
211
203
193
Z16
1"9
189
190
Z09
18Z
lEDT Z13
IEDT 099
IEOT 100
IEOT 137
PAGE
53
ADDR
wORD
OA80
OA82
OA84
OA86
8159
810A
8D04
81DA
A062
810A
936C
8DIC
934C
81DA
810A
2A43
oeC4
OCC8
uCCA
llCCC
0(06
ocoe
0CiJE
206C
lu6E
lUJC
llDE
0118
017A
Ol7C
017E
OlDA
{ERR
IERR
IERR
IERR
IERR
IERR
IERR
{ERR
IERR
IERR
IERR
IERR
IERR
IERR
IERR
IERR
lERR
IERR
IERR
lERR
IERR
IERR
(ERR
IERR
IERR
lERR
IERR
al7e
2A 13
AC68
2A25
3A 13
7Af2
A04'4
56A5
lAC 3
A068
E671
8000
2A23
AC68
E071
80C6
2AF5
0268
2Af7
E56D
8He
f676
nDC
,Hec
OLD£:
1314
1376
13 70
1312
1378
IHA
2062
2064
2066
2J68
20M
136C
D6E
IERR
IERR
IERR
II:RR
IERR
lERR
IERR
IERR
IERR
IERR
IERR
IERR
IERR
lERR
IERR
IERR
IERR
IERR
IERR
{ERR
lERK
{ERR
IERR
06
150d
150A
15 DC
bOI::
1510
1512
1514
1516
1518
151A
1'llC
151E
b20
1522
1524
1:>26
1528
152A
WORD
1222
2C07
1020
4426
7032
5DlA
CD05
8442
EDOS
fDOA
161S
5Df9
Cet8
94fC
5D30
500B
30B5
703A
eCI5
DFI0
5flA
8618
3C 85
8el8
5030
8600
5050
5000
F204
3015
30C5
1050
5032
lCF3
5422
5D30
0015
3C45
50BB
5019
3BB5
783A
CD2l
8442
101'5
FOA6
<:iOIC
50Eg
50lA
C02F
SEQUENCE NGl.
LABEL
IMPY 001
IMPY 002
IMPV 010
IMPV 012
IMPY 013
IMPY 014
IMPY 020
IMPY 022
IMP Y 023
IMPY 030
IMPY 032
IMPV 033
IMPY 034
IMPY 035
IMPl' 036
IMP)' 031
IMPY 038
IMPY 039
IMPY 040
IMPY 041
IMPY 042
IMPY 043
IMPY 044
IMPY 045
IMP'!' 046
IMPl' 047
IMPY 048
IMPV 049
IMPY 050
IMPY 051
[MPY 052
IMP\, 053
IMP\, 054
IMPY 055
IMPY 063
IMPY 064
IMPY 065
IMPY 067
IMPY 068
IMPl' 069
IMPl' 070
IMPl' 071
IMPY 072
IMPY 073
IMPY 074
IMPY 081
IMPY 083
1MPY 084
IMPY 085
IMP'" 086
IMPY 081
IMPl' 088
IMPY 089
T
*
MUL TPY
CKSPCL
NOSPEC
SIGNOK
NOAFWM
AFLOWM
AFLGON
AHADWM
TRUADO
SETAUX
NOBWM
NOTSPC
NONZRO
*
NEXTSEQ
NEXT LABEL
STATEMENT
CLOAD=*E40, EC LE VEl=128211
COMMENTS
KRAGER
1400 MULTI PLY
MULTI PLY SIGN ANALYSIS AND B fIELD CLEAR LOOP.
SET B AUX REG
STH V DA,8C
CL EAR flAG BITS
PO=O
RESET SO AND S6
RST 5 K=82
SET AUX B STAR
G=V
SET AUX A STAR
5TH U DA,8E
READ A fiELD
ROB PI U-I
BR If PI BIfO= 1
032 NOSPEC
BAL
IADD 160 CORCHR
BC 11 If CHAR IS PLUS
BR If PI BIT 2=1
035 SIGNOK
BC ... If CHAR I S PLUS
BR If PI BIT 3=0
035 SIGNOK
IN VER T SIGN CTRL BIT
DO=DOOKO 1
Hl:Pl
BCH If A 111M flAG OFF
SR If PO BlTO=O
038 NOAfWM
BR
050 AHADWM
READ B FIELD
ROB PI V+O
Pl=PIH
SET TO ZERO
Pl=PUKBO
STORE CHAR BACK
STB PI V-I
BCH If A WM FLAG ON
SR If PO BHO=l
048 AH.GON
BR IF Hi BIT 1=0
BCH If A flO WM
046 AFLOWM
READ A fiELD
ROB Hl U-l
BR
038 NOAfWM
PO=POSK80
SET A WM fLAG
BR
038 NOAfWM
ROB PI V+O
READ MLPR
BR
023 CKSPCl
ROB PI G+O
READ PROOue T POS
Pl=PIL
BR If ADD
054 TRUAOD
BR If 00 BIT1=0
Pl=PUK 10
P1=Pl$KCO
SET UP PLUS OR MINUS
ST BPI G+O
STORE UNITS OF Pf{OD
RDH U DA.8E
SET A=AUX
PO=PO*-KOf
ROH G DA,8C
READ B AUX REG
R08 PI V+O
READ MlPR
BR IF PI 81T 1= 1
BCI1 If NO B flO WM
010 NOBWM
PO=POSK40
SET B WM fLAG
T l=PIH
01=1'1
ZERO CHAR
Tl=Tl$KBO
STB Tl V-I
BR If PI BITO=l
083 NOTSPC
BCH IF NOT SPC CHAR
BAL
lAOD 160 CORCHR
Pl=P1*-KfO
8R IF l ZNZ
BCH ON NON o MLPR
086 NONZRO
BR
118 EXIT
HO=Pl
SET MLPR
MUtT IPLY MAIN lOOP.
ROB PI U-l
BR IF PI BITO= 1
BCH If NOT SPC CHAR
098 CHAROK
PAGE
59
ADDR
WOj{D
1~2C
8442
DeC2
4DEB
lE7B
5DDD
152E
1530
1532
1534
1536
1538
1000.
100.2
10.0.4
100.6
100.1:1
lOGA
lODe
lOOE
1010.
1012
10.14
1016
1018
lOLA
10 Ie
1011:'
lO20
1G22
5DFD
9AOl
7DFf
ID·ff
1DFF
7DFF
7DFF
7DFF
90.16
CAlC
IE 83
IDFF
9000.
CAlC
1DFF
90.10.
SCAD
lCAF
4DC 5
5B50
E lAA
20C2
lOL4
lO26
lo28
lUlA
102C
102E
IlJ30
1032
1034
1036
1038
103A
10 3C
5DDD
SBAO
7eAF
toS5
2020
4060
5709
785A
DE44
9526
IJ44
1046
lU48
IJ4A
104C
1041:
1050
1052
00.02
5B50
E ICE
20.02
0020.
5BAD
5COD
lOAF
10:>4
4D8D
1056
1058
7B5A
DC3f
5422
5446
10~A
lO5e
105E
0.020.
7422
SEQUENCE NO.
IMP\,
IMP\,
IMPY
IMP\,
IMPY
IMPY
IMPY
IMPV
IMPY
IMP\,
IMPY
IMPY
IMP\,
IMP\,
IMPY
IMP\,
IMP\,
IMPY
IMPY
IMP\,
IMP\,
IMP\,
IMP\,
IMP\,
IMP\,
IMPY
IMPY
IMPY
IMP\'
IMP\,
IMP\,
IMP\'
IMPY
IMP\,
IMPY
IMPY
IMP\,
IMP\,
IMPY
IMP\,
IMPY
IMPY
IMPY
IMPY
IMPY
IMPY
IMPY
IMP\,
IMPY
IMPY
IMPY
IMPY
IMPY
C96
0.98
0.99
LABEL
CHAROK
10.0.
10.1
10.2
10.3
10.4
10.5
10.6
101
10.8
10.9
110.
HI
112
ADDER
ADDER
ADDER
ADDER
ADDER
ADDER
ADDER
ADDER
CGNT! N
11.3
114
115
116
117
lIB
CKBIT4
EXIT
119
120.
121
122
123
124
125
126
NOCARY
121
128
129
130
NOPRC Y
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
150
151
158
159
•AEND
fINISH
0.
1
2
3
4
5
6
7
NEXTSEQ
NEXTlABEl
UDO 160.
CORCHR
STATEMENT
BAl
RSTS K=lO
Ho.=PIH+HOl
Ho.=HOcKo.7
Pl=Pll
Hl-=Pll
10.4 ADDER N N=Ho. BITS 561
PIC-= P 1iilH 1+C
PIC=PliilHl+C
PIC=P l@H1+C
PI C-= P l@H 1+C
PIC-=P1@H1+C
P lC=P1@Hl+C
CKBIT4
BR
115
118
EXIT
BR If HD BIT4=D
Ho.=HD*-Ko.8
PIC=P1iH1+C
10.4 ADDER 0. BR
BR IF HO BlT4=O
EX IT
118
PIC=P lalH1+C
BR
112
CONTIN
TG=POl
PIC=PliTO.C
PO=PIXlSPOH
ROB T 1 G+O
BR IF 56=0
NOCARY
125
SET S K= l()
RST S K=02
Pl=Pll
TO=Tll
P 1C=P I@TO+C
NOPRCY
BR IF Hl:O
130
SET S K=02
Tl=Pll+TIH
Pl=01
STBT1G-l
8R IF HO BIT 1=0
AENO
136
BR
Nor'ilRO
086
MUUIPL\, ENDING ROUT lNE.
"' "
RST S K=lO
ROB T 1 G+O
FINISH
BR IF 56=0
141
SET S K=10
RS T S K=02
TO=Tll
P 1= POL
PIC=P1iilTO+C
Tl=P1L+TIH
STB T 1 G-l
BR IF PO BIT 1= 1
161
MPYEND
RDH GOA, ac
G=G-l
STH G DA,ac
CLOAD=.E4o., EC lE VE l=1282 11
COMMENTS
RESET S3
SA liE ZGNE BITS
CORR EC J MLPR
STRIP ZONE BITS
MPlV CNAt)
BCH IF MlPR NOT 8
REMOIIE 4 BIT
BCH If MlPR NOT 9
ADD ANY CAND CARRY
SA liE THI S CARR\,
READ PROD POS
BCH If NO PROO CARRY
SET S3
RST S6
RSLT FIELD
PROD FIelD
BCt- IF NO PROD CARRY
SET S6
ADD PROO ZONES
STORE RE5Ul T
BCH81f A FLO WM
Rsr S3
READ PROOU: f
BCH IF NO PROO CARRY
SET S3
RST S6
ADD fIElDS
IN SERf ZONE S
STORE RESUl T
BCI- IF B FlO WM FlG
READ B AUX REG
DECREMENT BAUX -1
STORE B AUX REG
PAGE
60.
AOOR
wORD
lObO
95C8
2CC1
103E
1040
1042
SEQUENCE NO.
IMPY
IMPY
IMPY
IMPY
2601
S07e
161
161
L69
LABEL
NEXTSEQ
063
NEXT LABEL
SET AUX
MPYEND
110
(eyc 037
HISTRT
STATEMENT
BR
PO=O
00=0
BR
**********************************
H~PY
010
IMPY
IMPY
IMPY
IMPY
IMPY
IMPY
IMPY
!I1 VE
IMVE
IMVE
IM\lE
IMVE
1"\IE
IMVE
I.C YC
1M \IE
ICYC
IMVE
IMVE
IMVE
IMVE
I MVE
IMVE
IM\lE
oe9
028
085
016
239
008
225
057
059
047
046
061
040
089
CROSS REFERENCE fOR CSECT
IMVE
*
**********************************
IMVE 035
IMVE 084
IMVE 087
IMVE 042
PAGE
64
AODR
WORD
lOAb
20A8
20AA
lOAC
20AE
2080
20B2
20B4
2086
,WB8
20M
20Be
20BE
50eo
F13C
4BDB
AOBE
4BOD
5Beo
20CO
0445
20C2
20C4
20C6
1645
7B3A
801e
IMVl 004
IMVl 015
IMVZ 016
IMVl 019
SEQUENCE NO.
IMVI
tMVZ
IMVZ
IM"Z
IMVZ
IMVI
IMVZ
IMVI
IMVZ
1M "Z
IM"Z
IMVZ
IM"Z
IMVZ
IMVZ
IMVZ
'MVZ
IMVZ
IMVZ
IMVI
5DlA
5019
3045
5BCO
5030
5049
3045
IC YC
IMVZ
IMVZ
IMVZ
240
012
014
011
001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
Ol8
019
020
lABEL
T
*
*
MVIONE
DIGIT
XU TE
STORE
Ie YC 241
NEXTSEQ
NEXT LABEL
STATEMENT
ClOAO:*E40. EC lE VEl:128211
COMMENTS
MOVE ZONE OR OIGITOPS.
KRAGER
THE ZONE OR DIGiT BITS ARE MOVED FROM ThE A FIELD TO THE B FIElD.
WM'S ARE NOT CHANGED.
READ A fiELD
ROB PI U-I
SET CHAR TO A REG
Dl:Pl
IN SURE 1 BIT ON
Pl=PI$K40
CONVERT CHAR TO BCD
ROB Tl AS,P
READ B fiELD
ROB PI V+O
SAVE B flO WM
GO=?l
IN SURE 1 Bll ON
Pl=PI$K40
CONVERT CHAR TO BCD
ROB PI AS,P
015
BR If MOVE DIGIT OP
DIGIT
BR IF Gl BIT 1=0
Pl:T IH+Pll
MOVE BITS
Olb
XLATE
BR
Pl=TIL+P1H
MOVE DIGIT 8ITS
CONVERT TO NPL
ROB TI AS.P
019
STORE
6R I F GO BIT 1= 1
BR IF 101M FLAG OFF
SET WM IN CHAR
Tl=Tl*-K40
STORE CHAR
ST B T 1 V-I
RTN TO I CYCLE
ICYC 037
HISTRT
BR
**********************************
* CROSS REFERENCE fOR eSECT IMVI *
**********************************
PAGE
65
AilOR
226t
wORD
Z278
571A
5709
3045
50CO
5000
50CO
2Z7A
1045
227C
703A
5EC2
FE04
361.3
D712
A28A
703A
SOIA
0009
3D45
703A
5224
C145
5f30
OFIF
3F45
3583
CFFO
C4C 7
ECC 1
CF38
FeAC
CF50
E088
CFBB
fOBC
Of6D
F238
Of4D
2270
1.2.7 2.
2-274
2-276
227E
tUBa
n82
L2S4
a86
2288
228A
UBC
228E
2290
un
2294
2290
l2.98
2.Z9A
229C
229E
2.2AO
2242
22A4
22A6
UA8
22AA
2ZAC
nAE
2280
22B2
2284
2286
2288
22B4
22BC
22BI::
22C4
22C6
22C8
2.2CA
22CC
22CO
22C2
A2B8
ECC]
3515
lf38
A294
B07C
F53C
2F45
7F38
A294
1515
A2BC
SEQUENCE NO.
IMIS
IMI S
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMI5
IMIS
IMIS
IMIS
IMI5
1I1IS
IMIS
IMIS
I MIS
IMIS
IMIS
IMIS
1MIS
IMIS
IMIS
IMZS
IMI5
IMZS
IMIS
IMIS
IMI5
IMZS
IMZS
IMIS
IMIS
IMIS
IMZ S
IMIS
[MIS
{MIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMIS
IMZS
001
002
003
004
005
006
001
008
009
010
011
020
021
023
024
025
026
027
028
029
030
031
032
on
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
LABEL
T
*
*ZEROSP
PI2
STORE
XX
AFLOwM
INC
TEST
NOBWM
T5TFAP
PIl
SETSUP
NOlAPS
END
ZERO
SIGDGT
NEXTSEQ
NEXTLABEl
STATEMENT
ClOAD=*E40, EC lEVEL=128211
COMMENTS
MOVE WITH ZERO SUPPRESS.
KRAGER
A FIELD DATA IS MOVED TO B FIELD. THE A WM ENDS THE OP. ZONE BITS ARE
REMOVED FROM THE UNITS POSIT ION. HIGHO' 5 AND, S ARE SUPPRESSED.
ROB 01 U-l
READ A FIELD
Pl=DI
INSURE NO WM BIT
Pl=Pl$K40
CONVER T TO BC 0
ROB PI AS. P
REMOVE ZONE S
Pl=P1l
CONVERT TO EBDCIC
ROB PI AS,P
SET TEMPORARY WM
Pl=Pl*-K40
STB PI V~l
READ CDNTROL BYTE
ROH H DAtBS
BR IF NO PI BIT
BR IF HO BIT3"'O
PI2
024
SET PI FLAG
DO=DO$KOI
BR IF A flD WM
BR If D1 BIT 1=0
INC
031
BR
xx
027
STORE DATA
SfB PI V-I
READ A FIElD
ROB PI U-l
BR IF NO AFielD 101M
BR IF P 1 BIT 1= 1
STORE
026
REMOVE 101M
Pl=PlSK40
STORE OAlA
SfB PI V-I
V=V+l
BR IF END OF R VC SCAN
8R IF Gl B1T4=1
054
END
READ B FIELD
ROB Hl V
BR IF NO B FIELD 101M
BR IF HI BIT 1=1
NoeWM
037
REMOVE WM BIT
Hl=Hl$K40
SET B END FLAG
Gl=GUK08
TEST CHARACTER
Z=HIIlKfO
BR IF CHAR WAS A 0
BR IF Z=O
ZERD
055
BR IF CHAR WAS 1-9
BR IF HZ=O
SIGDGT
059
BR IF NOT A SPECIAL CHAR
BR If HI BlTO=l
SETSUP
051
BR IF CHAR NOT & - OR BLANK
BR IF LlNZ
TSTfAP
044
TE ST CHAR
Z=HlaK50
8R IF CHAR I S A &
BR IF HZ=O
SETSUP
051
TEST CHAR
Z-=HIDKOB
BR IF NOT A •
NOTAPS
BR If lZNZ
052
Z=H1aK60
TEST CHAR
BR IF NO PI FLAG
BR IF DO BIT7=O
PH
050
JEST CHAR
Z=HlaK40
BR
PIl
050
BR If HZ=O
8R IF •
ZERO
055
SET ZERO SUPPRESS ON
Gl-=GUK 10
PUT B flD CHAR BACK
STB HI V+1
BR
TEST
032
RETURN TO I CYCLES
BR
HISTRT
Icye 037
BR IF Gl BIf3==O
BR IF ZERO SUPP I S OFF
NOTAPS
052
Hl=O$K40
FORCE BLANK CHAR
STB Hl V+l
STORE DAIA
BR
TEST
032
RESET ZERO SUPPRESS
Gl"'Gl*-K10
BR
NOTAPS
052
PAGE
66
C~OAD=.E40t
**********************************
*
1'1 ZS
1M ZS
1M ZS
1M ZS
l"llS
1,\ l S
1M ZS
PHS
lMZ S
004
024
026
027
031
032
037
044
050
051
PUS
PHS 052
1M Z S
054
PHS 055
1'" Z. S 059
IC YC 245
IMZS
IMZS
IMIS
IMIS
IMZS
IMZS
IMZS
IMIS
IMZS
IMZS
IMZ S
IMI S
IMIS
021
028
025
024
053
034
041
041
040
045
032
038
039
CROSS REfERENCE FOR CSECT IMZS
*
**********************************
IMIS 058
IMIS 049
{MIS 043
I MIS 055
lMIS 050
I MZS 060
EC LEVEL=128211
PAGE
61
ClOAD:*E4D, EC LEVEL=128.211
INDX
DeSCRIPTIVE
ENTRY POINT
INOX{N
ADDR
J718
07lA
011C
071E
0120
0722
0124
0126
0728
072A
072C
012E
0130
0132
0734
0136
0138
OHA
073C
073E
0740
0142
0744
0746
0748
074A
074C
074E
0750
0152
0754
0756
0158
WORD
1002
CD23
57CO
U8]
8726
5019
l7FD
CF31
5FD9
5FCO
lF83
8732
IFf 0
5F43
5FfB
5AEO
50'> 8
0043
6886
SF'> 8
8eeb
C04B
50CO
1083
874C
lOFO
4040
SOFB
50BA
3045
COSO
50(;0
1083
PAGE
68
TEXT
OBJECTIVES
THIS ROUTINE IS eNTERED ONLY FROM I-CYCLES. THIS IS
THE EXCLUSIVE ENTRY POINT. IT IS ENTERED FROM
A- AND/OR B-ADDRESS.
SEQUENCE NO.
INOX
INDX
(NOX
INOX
INDX
INDX
INOX
INOX
INDX
INOX
INOX
INOX
INOX
INDX
INDX
INDX
INOX
INOX
INOX
INOX
INDX
INOX
INOX
INOX
iNOX
INOX
I NOX
INOX
INDX
INOX
INOX
INOX
INOX
INDX
INOX
001
002
003
004
005
006
007
008
009
010
011
012
013
014
01.5
016
017
018
019
020
021
022
023
024
025
026
027
026
029
030
031
032
033
034
035
LABEL
NEXTSEQ
r
NEXT LABEL
1.
SELECT THE CORRECT INDEX REGI STER.
2.
GENERATE AN ADDRESS CONSISTING OF TOTAL OF BASE ADDRESS.
INDEX REGISTER VALUE, AND THE BIAS FACTOR.
3.
RETURN TO I-CYCLES AND READ REMAINDER OF INSTRUCTION.
STATEMENT
COMMENTS
1401 COMPATIBILITY INDEXING ROUTINE
ASEQ
AL07=18
INOXIN
006
HOINVT
010
TENS
HOINVT
TENS
015
NOS IlEC
016
SAVEHI
024
NOUNWM
NO SIlEC
SAVEHI
NOUNWM
ICYe. 127
028
029
TENZON 3
ZONINV
TENUNT
LONI NV
TENUNT
037
NONSP
RST S K=90
BR IF PI BITO=i
ROB 01 AS,P
Dl=01*-K08
BR
Dl=Pl
Dl=OlaKFO
BR IF HI BIT 0= 1
Pl=Hl
ROB HI AS, Il
Hl=Hl*-K08
BR
Hl=HlaKFO
GO=HIXH
Hl=HIH
ROH T AS,H
ROB PI 1.1
BR IF PI BIT 1= 1
1= 1-2
ROB HI IH
BR
BR IF PI BITO=1
ROB PI AS, P
Ill=Pl*-K08
BR
Pl:PlIlKfO
GO= p lL.GOH
HI=PlH
ROB PI T-l
Ill=Pl$K40
BR If III BITO:l
ROB Pi AS.P
IlI=Pl*-K08
12119/66
R. C.. HUANG.
INSURE SO ANO S3 OFf
BR If NO SIlECIAl CHAR
REAO HUNO BCD CHAR FROM TABLE
SP CHAR-STRIP Bl T 4-WEIGHT 8
PUT HUNO IN 01
INVERT HUNO ZONES
BR IF TENS NOT A SPECUL CHAR
SP CHAR-PUT TENS IN PI FOR TlU
READ TENS BCD
STRIP BIT 4-WEIGHT 8
INVERT ZONES
SAVE TENS NUMERIC IN GOH
SET HI FOR TLU
READ INOEX REGISTER ADDRESS
READ UNIT'S
BR IF NO UNIT'S WM
UNIT'S WM. 13 OR 16-BACKDATE
REREAD fEN'S
00 NOT INDEX-RETURN TO I-CYCLE
BR IF UNITS NOT SP CHAR
READ UN ns 6CO
STRIP 4-WEIGHT 8
GO=TENS.UNITS
UN IT' S ZONE IN Hl HI
REAO INOEX REG UNITS
OR IN WM BIT
BR IF NOT SP CHAR
READ UN ITS BCD
SIRIIl 4
AOOR
WORD
075A
075e
015E
0160
0762
SHE
LOfD
6fD3
50BA
C06B
3045
5OCO
1083
56BO
5FAB
4DF3
0164
0166
0168
016A
016C
016E
0170
0172
0174
0716
0778
017A
011C
011E
0180
0182
0184
0186
INOX
INDX
INDX
INDX
INDX
INDX
INDX
(NDX
INDX
INOX
INOX
lNDX
INOX
INOX
INDX
INDX
[NDX
INDX
INDX
INOX
{NDX
[NOX
INOX
INDX
INDX
INDX
INDX
INDX
INDX
INDX
INDX
INDX
INDX
INOX
INOX
INOX
[NDX
INOX
INOX
INoX
INDX
INDX
INDX
INDX
INDX
INIH
74fF
5B09
3045
CD1F
50CO
1083
8180
IDFO
17DF
0108
2AID
1145
54F5
5FEO
64ff
5Af9
H2O
2007
FFlE
2DfB
24AO
f49E
2DIB
l7FD
57Fl
6FFF
5AEO
6B4S
1645
8C8A
30E9
2440
FF 11
819E
0188
01BA
018C
G1SE
0190
0192
0194
0796
0798
019A
019C
079E
01AO
01A2
alA4
01A6
(HAS
OIAA
01AG
01AE
0760
07B2
INOX
INDX
I'll OX
INDX
SEQUENCE NO.
003
008
010
015
ICYC
INDX
INoX
INDX
123
004
007
010
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
ObO
061
062
063
064
065
066
067
068
069
010
071
072
073
074
015
016
011
018
019
080
081
LABEL
NEXTSEQ
NEXT LABEL
038
UNITS
044
HUNDED
054
HONOSP
055
AOoHUN
059
NOlOCA
011
UNITB
010
COMBIN
070
COM6tN
NONS?
UNITS
HUNDED
HONuSP
AOOHUN
NOlOCA
UNITA
COMBIN
ICYC 113
SETTO
UNI TB
066
010
UNlTA
COMBIN
Sf AlEME.NT
BR
INVERT UNITS lONE
Pl=PiaKfO
ADD UNIT'S lONE Of 2 fIELDS
Hl=HI+PI
READ INDEX REG TENS
ROB PI T-l
BR IF TENS NOI A SP CHAR
BR If PI BITO=1
OR IN WM BIT
Pl=PUK40
READS TENS BCD
ROB Pi AS,P
STRIP 4
PI=Pl*-K08
READ INDEX REG HUNDREDS
ROB Tl T
**TOTAL UNIT'S laNES NOW IN TO
IO=HIH
Hl=PlXH+HlL
**CONBINE INDEX TEN'S & UNIT
GOC=GOiHI+C
**ADD THE TWO TENS' & UNITS'
**PUT HUNDRED'S IN PI TO BAl
PI=!l
OR IN WM BIT
Pl=Pl$K40
BR IF PI BITO= 1
BR IF HUNO NOT A SP CHAR
READ HUNDREDS BCD
ROB PI AS,P
STRIP 4
Pl=PI*-K08
BR
INVERT HUNO laNES
Pl=PlaKFO
AD 0 HUNORED S
01C=0 liP 1+C
BR If 01 BIT 1=0 **BR IF NO HUNO IONECARRY
TO=TO+KIO **lONE CARRY,AOD 1 TO UNIT lONE
STRIP I Blr Of HUND.
Dl=Dl*-K40
**SEr TEN'S IN HI TO AOOR AUX ST
Hl"=GOXl
ROB HI AS, H **X'LATE TEN'S FROM fABLE
GOe= GOL +H HC
**ADD TEN'S & UNIT'S IN HEX
**MOVE UNIT lONE TO HI TO BR
Hl=fO
BR IF UNIT'S 8 lONE
BR IF HI BIT 2= 1
NO B IONE,IERO OUT PI
Pl=O
BR IF NOUNI TS A lONE
BR IF Hi BIT3=O
A lONE, AOO OF A0 HE X- 4000 DEC
Pl=Pl+KOF
ADD IT TO TEN-UNITS'
GO=GO+KAO
BR IF NO CARRY
BR IF AC=O
CARRY, AOD ONE MORE
Pl=Pl+KOl
INVERT HUNOREDS'IONES
Ol=DIIlKfO
CROSS HUNDRED'S
Hl=DlX
SHIFT LO BY 1 BIT
HIC= HiL +H 1 +C
ROH T AS, H **X'LATE HUNO+BIAS fROM AUX ST
T le=T 1 +GO **ADD TEN-UN US' TO HUNO & BIAS
DO=DO*-K40 **RESET INVALID AOOR DIGITSTAT
INDEXING COMPLETED
BR
UNIT'S B lONE-SET Pl=lF
Pl=O-KEO
B lONE, AOOIF40 HEX-8000 OEC
GO=GO+K40
BR If UNIT'S A lONE
BR IF HI BIT3=1
BR
AEND
ICYC 124
ICye 125
CLOAD=*E40. EC LEVEl=128211
COMMENTS
**********************************
* CROSS REFERENCE FOR CSECr INOX *
**********************************
ICYC 126
PAGE
69
CLOAD=*E40. EC lEVEl=128211
lrWX 016
UX
1ill [) X
INDX
INOX
INDX
INDX
IN OX
I ,'lOX
l"lU X
INUX
Itll lJX
INDX
l,~
024
028
029
031
038
044
054
055
059
066
010
077
INDX
INOX
INOX
INOX
INOX
INDX
INDX.
INOX
[NOX
INDX
INOX
INOX
INOX
014
020
024
021
033
036
040
050
053
056
079
Oe5
00
**********************************
* CROSS REFERENCE FOR eSECT INOX *
**********************************
I NDX 068
I NOX 080
PAGE
10
CLOAD:*E40. EC LEVEL=128211
INll
DESCRIPTIVE
PAGE
TEXT
THE 140G-lERO EQUIVALENT POSITION, ARE RESTORED.
1.18JECTIVES
INITIALIlE BIAS CONSTANT (NORMALLY) DURING {CPL ROUTINE.
ENT RY PO (NT S
EXAMINE OVERLAY CARD, ANALYZE COLUMNS THAT ARE NOT BLANK.
ADJUST FOR BIAS FACTOR AND STORE NEW VALUE IN THE APPROPRIATE AUXILIARY STORAGE LOCATION.
BEGIN
NORMAL ENTRY POINT FROM BOlA ROUTINE DURING CONTROL STORAGE LOAD.
SET STORAGE PROTECT KEYS TO ZERO.
FILETB
ON RESET OPERATIONS, THE FILE TABLES THAT ARE LOCATED BELOW
ADDR
WORD
fA
LA Fe
lAfE
ldOA
2045
2A07
3B89
2C75
5AA4
(080
C493
5FC8
OF4D
2dO(;
C481
LdOE
7FAO
ABOO
5002
5BA2
6B05
1BA2
2C25
2015
7012
58eo
69tB
,~A
2800
21302
2B04
21306
21308
2810
lb 12
2B14
2B16
2B18
2BIA
Z8lC
lB1E
2820
21322
2d24
21326
2B28
2B2A
2B2C
2B2E
2B30
2B32
2834
2B36
SEQUENCE NO.
INIl
INIl
INIl
INIl
INll
(NIL
INIl
{NIL
INll
INIl
INlI
INIl
IN II
INIl
INIl
IIHl
INIl
INIl
INIZ
lNIl
INIZ
INIl
6800
.(Nll
78C8
ODBO
C4AO
26C7
INIl
INIl
INll
INIZ
INIl
INIl
(Nil
[NIl
INIZ
8lEb
2645
2745
5DA2
1618
71
001
002
003
004
008
010
011
012
LABEL
NEXTSEQ
NEXTLABEL
T
BEGIN
NEXT
018
DONE
008
NEXT
008
NEXT
032
KEEPON
IRST 109
STRPRO
013
014
015
016
017
018
020
021
022
029
030
031
032
033
034
035
036
031
038
039
040
041
042
043
DONE
KEEPON
BACK
STATEMENT
ENTRY POINT USED DURING A RESET OPERATION.
COMMENTS
[NIT IAlllE BIAS CONSTANT
Pl=OSK40
SET STARTING AODRESS
10=0
SELEC T MODULE 0
Tl=0-K80
START ADDRESS
PO=O$K70
LAST MODULE ADDRESS
T=T+l
ADJUST TO ADDRESS 0080 INITIALLY
Z=PlcK80
CHECK END OF I NI HAll lER
BR IF Z=O
GEl DATA
RD8 HI AS,P+l
Z=H1cK40
CHECK FOR UPDATE
BR IF l=O
CONTINUE
STB Hi AS.T+O
STORE OVERLAY IN MODU1.E ZERO
BR
RDH U OA,88
GEl NEW BIAS
ROB T 1 DA.Ae
GET MAS ASSIGNEO HI MEM ADDRESS
Tl=Tl$UO
CREATE NEW HI MEM ADORE SS
STB f l DA,AC
STORE NEW VA1. UE
PO=0$K20
DO BIAS INITIALIZATION
Pl:O$KlO
STH U OA.8A
PUT 1400 0 ADDRESS IN I VIA K1
RDH I AS,P+O
IlC=Il+U1
10C= IO+UO+C
STH I AS.P+2
Z=PlcKBO
BR If INl
00=0
BAL
GO SET STACK KEYS TO a
DO=0$K40
BUILD BLANK AND NO WORDMARK
01:0$K40
ROB Pl OA,Ae
GET HI MEMORY ADDRESS
STH 0 U+2
STORE NO WORD MARK BLANK
AOOR
WORD
2838
2S3A
283C
2150
2152
2154
2156
2158
215A
215C
215E
2160
2162
2164
2166
2168
216A
21bC
216E
2170
2172
2114
1001
f4B5
8240
SE02
3EOD
2FC3
76F8
2728
01A8
C4D6
2707
20W
06AO
E006
f26D
2613
F257
2623
76FO
2607
2707
128E
SEQUENCE NO.
INll
INll
INIl
INIl
INIZ
INIl
IN!1
INll
INIl
{NIL
IN II
INtI
{Nil
INII
INIl
INIl
INll
INIl
INIl
INIl
INll
INIZ
044
045
046
047
048
049
050
051
052
053
054
055
056
0.S7
058
059
060
061
062
063
064
Ob5
LASEl
NEXTSEQ
042
BOlA 018
FILETS
STORET
050
050
061
050
HUN02
NEXTlASEl
STATEMENT
Pl:PI-UO+l
TR!Al SUS TRAC T
HAVENOT OVERSTEPPED MEMORY YET
SR IF AC=1
BR
RDH H OA,88
GET BIAS CONSTANT
GO 256 BYTES BELOW FOR TABLE
HO=HO-KOO
ADJUST TO START ADDRESS
Hl=OSKOC
STH 0 H+2
INCREMENT UNITS POSITION
Dl=Dl+K02
CHECK FOR UNI TS OVERFLOW
I=DlaKOA
STOREr
BR IF NOT UNI TS TEN
BR IF INZ
01::0
MACK UN ITS IERO
OO=OO+K 10
INCREMEN r TEN S
CHECK FOR TENS OVERFLOW
Z=OOaKAO
STOREr
BR IF HINZ
BR IF.TENS NOT TEN
HUN02
BR IF 007= 1
HUNDREDS CARRY
I)()=OSKO 1
MAKE HUNDREDS 1
BR IF 007=1
STORer
DO=05K02
MACH HUNDREDS 2
STH 0 H
00=0
01=0
RTN
**********************************
* CROSS REFERENCE FOR CSECT INII *
SACK
START
**********************************
002
008
018
032
042
INll 047
IN LZ 050
INIZ 061
IN I I
IN II
IN II
IN II
IN II
BDIA
INIl
INII
{Nil
INII
IRST
INIl
004
015
012
0.31
045
068
053
{NIL 058
INIl 017
I Nil 057
I NIl 060
ClOAD=*E40, EC lEVEl=128211
COMMENTS
PAGE
72
ClOAD=*E40, EC lEVEL=128211
INRU
DESCRIPTIVE
OBJECTIVES
ENTRY POINTS
ENTER
STOPCK
CHECK CONDITIONS. DETERMINE WHETHER REMOTE RESTART, SET IC.
CONSOLE lNTERRUPT, ETC., AND GO TO APPROPRIATE ROUTINE FOR
EXECUTION.
1682
1684
1686
11)88
168A
168C
168E
1690
1692
1694
1696
1698
169A
169C
169E
IbAO
16A2
16A4
16A6
WORD
2206
0416
5EFF
EH1
0216
3600
DBS7
5F90
OF59
f4f2
0216
20C1
7Cf2
OOAO
360.0
5A4f
EfE8
FfE2
CBfD
16A8
DBEl
16AA
CFDE
L6AC
5EFZ
13
TEXT
HANDLE NATl VE 110 REQUESTS, EXTERNAL I NTERRUPT IONS. CHANNEL INTERRUPTIONS, SET IC. INSTRUCTION STEP, AND SOFT STOP.
THESE CONDITIONS ACTIVATE A HARDWARE REQUEST LINE.
AOOR
PAGE
SEQUENCE NO.
INRU
INRU
INRU
(NRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
001
002
003
004
005
006
001
OOB
009
010
011
012
013
014
015
016
LABEL
T
*
*
*
*
*
*
*ENTER
011
018
019
020
021
022
023
024
025
026
027
028
029
030
INTRPT
STOPCK
NEXTSEQ
NEXT lABEL
STATEMENT
GOBACK
ENTER FROM ICYC WHEN AN EXCEPTIONAL CONDITION
EXISTS fROM THE PREVIOUS OPERATION.
ENTER HERE FOR HANDLING THE VARIOUS STOP CONDITIONS.
ENTER FROM READ REQUEST ROUTINE WHEN VARIOUS
INTERRUPT CONDITIONS ARE PENDING.
COMMENTS
1400 COMP.SOFT STOP,I/O.CONSOlE REQ. R. TAYLOR
THIS ROUTlNI PERFORMS THE FOLLOWING FUNCTIONS
1.NATIVE 1/0 REQUESTS
2.EXTERNAl INTERRUPT
3.CHANNEt INTERRUPT
4.SET I C
5.1NSTRUCTION STEP
6.S0FT STOP
SET READ MODE & lONE
SET MMSK K=30
BR IF READER NOT ACTIVE
019 I NTRPT
BR IF GO Bn 1=0
PUT RPS IN HI fOR BRANCHING
Hl=RPS
BR If NOT 6 MllLI-SEC TIME-OUT
BR IF H12= 1
019 I NTRPT
SET CPU lONE & MODE
RST MMSK K=31
SET INST STEP lATCH-IF INSf STEP
SET Be K=80
BR TO INTERRUPT IF'INSTSTEP
019 INTRPT
BR IF BB5= 1
READ NEXT OP CODE
ROB H1 I
TEST FOR 1/0 OP
l=H1.K50
049 ICYRTN
BR IF AC=O
SET CPU ZONE & MODE
RST MMSK K=31
ZERO OUT STOP CODE
Pl=O
FROM I-CYCLES,SET STOPCODE TO 00
STH P DAtBE
RST S4.S6 DISPLAY STATS
RST S K=OA
ENABLE INSTRUCTION STEP LATCH
SET BC K=80
RESET TIMER IF ON
GO=IIM
CHANNEL 0 INTRPT,ABORT.BACKUP 1*
056 RETURN
BR If 882=0
059 CONSLE
BR IF B83=0
CONSOLE INTRPT
SET INSTRUC nON COUNTER I NTRPT
BR If B84= 1
042 SEliC
INSf STEP TO BE PERfORMED
058 STEPOY
BR IF BB5= 1
STOP CONDITION SENSED
0.57 SfEPDl
BR If BBO=O
RDH H DA,BE
READ OUT STOPCODE,GOOD IF S4=1
AUDR
WORD
16AI:
2C07
OfC3
ElAO
ClfA
OffB
FOFA
0004
4FFF
EfE8
96AC
CBEA
50EF
16BO
1062
lb84
IbB6
16B8
16BA
lo8C
168E
11>(;0
16FA
16FC
lHE
5lff
1700
.loEA
16EC
ibEE
16FO
16f4
1.6fo
16f8
16E4
A378
FfE2
DBAD
CFAC
Clf5
8082
OEFf
C4E4
9E72
FOf2
lH6
feB
l6E8
l6DE
16EO
16E2
16C2
16C4
16Co
16CB
16CA
l6CC
loCE
1600
16U2
1604
l606
8'990
A044
A8C6
9fOE
3404
EAC8
820A
HeD
HOB
3406
EBD3
E904
9A60
3482
fAOA
9C14
3400
96AC
1M2
1608
160A
l6DC
INRU
INRU
INRU
INRU
INRU
INRU
INRU
009
019
030
041
042
045
049
SEQUENCE NO.
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
{NRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
ICYC
INRU
INiw
INRU
INRU
INRU
INRU
036
010
033
034
027
LABEL
031
032
OB
034
035
036
037
038
039
040
041
AROUND
ICYRTN
TESTRT
CHECK
*
RETURN
STEPDZ
STEPOY
C(JNSLE
NATREQ
CKS6
PO=O
BR If 881=1
BR If S6=1
BR IF S4=0
Z=HIDKOF
BR IF lZNZ
RST S2
HW=Hl
BR If 8B2=0
BR
BR IF 884=0
HO=SWAB
H1=SWCO
8R
8R IF 8B3=0
BR IF B85=1
BR IF BBO=O
BR IF S4=1
8R
Z=HOoKFF
BR IF INl
BR
8R IF LINl
BR IF H03=1
INSURE PO=O FOR 2 CYCLES RETURN
NATIVE REQUEST IN SMALLER LOOP
HONOR TYPEWRITER • WAIT UNfI l DONE
BYPASS SIXTEEN CHARACTER TEST
CHECK FOR REMOTE RESTART
IS NOT REMOTE RESTART
RESET S2 IF PREVIOUSLY ON
SET WUT lATCH.ENA8lE MACH.CHECK
CHANNEL 0 INTRPT,A80RT,BACKUP 1*
STAY IN II WO LOOP,OEVICE CLEARS
BRANCH IF NOT SET IC
READ SWnCHES
READ SWITCHES
GO TYPE OUT NEW INSTRUCTION ADOR
BRANCH IF CONSOLE INTERRUPT
WAIT fOR STAR T KEY
LOOP FOR START KEY
BRANCH TO TEST 16 CHAR. MESSAGES
EXECUTE I CYCLES,NO INTRPT TEST
MA SK FOR HAL T AND 8RANCH
TEST INTERVENTION RETURNS
DO UNCONDITIONAL BRANCH
NOT INTERVENTION STOP,NEXT INSTR
OF AID
STOP,GO TO NEXT INSTR.
8f,4f( 42J,6f-PRINTER,CHAN 0 INT.
INSTRUCTION COUNTER IS BACKEO UP
STOP CONDITION DISPLAY
INSTRUCTION STEP 01 SPLAY
DO CONSOLE INTERRUPT
SET 1052 MODE
NO 1052 REQUEST UP
SERVICE 1052 REQUEST
CLEAR OTHER NATIVE REQUESTS
GO WAIT
SE T 25~0 MODE
BR If PUNCH REQUEST IS ACTIVE
BRANCH IF NOT READER
041
BYPASS
056
030
045
RETURN
STOPCK
AROUND
ISIC 008
059
030
0.30
050
ICYC 041
SHIC
CONSU:
STOPCI<
STOPCK
TESfRT
ICYC
053
{UBR G02
049
049
CHECK
UNCOBR
I eYRT N
ICYRTN
HQQQ
1015
I SfP
INTP
8R
BR
8R
8R
SET MODE K=AO
BR IF TT6=O
CKS6
REQ
8R
BR IF TT2=1
GONE
GOBACK
8R I f S6=1
SET HOOE K=BO
REQEST
8R If PS6= 1
DR IF RS6=0
PRINTC
START
8R
SET MODE K=98
BR IF NOT 1403
BR IF PRS7=0
GOBACK
8R
GO TONA T 1403
SOSTRE
SET MOOE K=80
RESTORE CPU MODE
8R
GO 8ACK TO WAIT
STOPCK
**********************************
* CROSS REFERENCE FOR CSECT INRU *
**********************************
045
003
002
006
063
JTYP 055
065
OBO
069
017
LREQ 001
OBO
MPRT 265
GOBACK
INRU 012
INRU 040
INRU 036
INRU 015
INRU 046
INRU 053
I NRU 054
041
018
ClOAO=*E40, EC lEVEl=12B211
COMMENTS
STATEMENT
NATREQ
STOPCK
8'( PASS
GONE
REQEST
PRI NTC
NEXTlABEl
060
030
041
BYPASS
SEliC
042
043
044
045
046
047
048
049
050
051
052
0.53
054
055
056
057
058
059
060
061
062
063
064
065
066
067
069
077
078
G79
080
081
NEXTSEQ
030
XXXXXX
STOPP?
INSTST
LABEl.
INRU 047
INRU 081
.ITYP 050
JTYP 053
JTYP OB4
JTYP 101
MPRJ 318
PAGE
74
CLOAD=*EltO, EC lEVEl=128211
**********************************
*
CROSS REfERENCE FOR CSECT {NRU
*
**********************************
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRIJ
050
053
056
057
058
059
060
063
065
069
011
080
INRU
INRU
.INRU
INRU
INRU
INRU
INRU
INRU
INRU
INRU
lNRU
INRU
048
O!':l
025
029
028
026
032
061
063
066
061
064
INRU 039
INRU Olt5
INRU 078
lREQ 023
PACE
75
CLOAD;*E40, EC lE VEl=1282 11
INIP
DESCRIPTIVE
PAGE
TEXT
ENTRY POINTS
OBJECTIVES
SET OR RESET ANY OF THE SENSE SWITCHES (8-G" OR ANY Of THE
SW ITCH TYPE FUNC HONS SUCH AS S1'ERU NG FEATURE. 2540/141t-2
EMULATION, ETC.
LABEL
INITIAL ENTRY FROM THE INTERRUPT ROUTINE.
CRTN
RE-ENTRY POINT AFTER fUNCTION CHARACTER IS
IRAN Sl A TEO.
SH TAPE ASS1GNMENTS AND TAPE TRACK AND DENSITY.
AODR
WORD
lFDE
lFEO
IFE2
lFE4
lfEb
IFE8
IFEA
3404
3F22
16F3
2080
3643
1040
A416
2494
24<.16
2498
249A
249(
249E
24AO
24A2
24A4
24A6
24A8
24AA
24AC
24AE
24BO
24B2
24B4
24B6
24B8
24BA
Z4SC
24BE
f2.39
3613
2EA5
3E13
6EF!
EOAB
fOA9
2E77
6Ef9
F4BO
8310
OF3B
FOA8
3623
5fA3
4fff
7AE2
A416
5AE2
aHO
EOA8
E248
LABEL
SEQUENCE NO.
INTP
INTP
INTP
INTP
tNTP
INTP
INTP
INTP
IN fP
INTP
INTP
INTP
INTP
INTP
INJP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
[NTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
INTP
001
002
003
004
005
006
007
008
009
OtO
011
012
013
014
015
016
011
018
019
020
025
026
027
040
050
052
053
054
055
056
057
0.58
064
065
066
r
*
**
*LA8EL
*
CRTN
ERROR
OKSOFR
TAPEST
S5SET
BUSSIT
BACKAG
OKfRS·J
NEXTSEQ
NEXTLABEl
STATEMENT
COMMENTS
R M TAYLOR
11t00 COMP SENSE SW, TAPE DENSITY START RESET INITIALIZE
SHARES REGISTERS IN
INTHE .INTERRUPT ROUTINE
THIS PREfACE
PREG IS DEPENDENT TO THIS 'ROUTINE WHILE HAND
THE CPU ZONE.
T ARE DEPENDENT TO TRANS AND TYPE ROUTI NE SIN TYYP. 00 STATS
5 AND 1 CONTROL COMI4UN ICAT IONS TO AND FROM TVYP
SET MODE K=AO
SET TA K=92
RST LO It- BITS
DO: DO*-KOf
SET Sit
DO:DOSK04
TURN ON BIT5
INSURE S5 AND SO ARE Off
RST S K=84
WAIT FOR REQUEST
STORE
BR
JJ.VP 021
ENTRY AfTER TRANSLATION Of CHARACTER
SERVICED 1ST CHAR
OKfRST
8R IF 00 8lf7=1
058
TURN ON 00 1
DO=OO$KOl
HO=OSKAO
BUILD "ASK
HO=HOSKOI
ELIMINATE SET Of SW A,MASK FOR T
HO=HOaHl
OK SO FAR
OKSOfR
6R I f HI=O
050
NOT VALID
ERROR
8R IF LZ=O
040
HO=O$K17
ELIMINATES CHAR.FROM Q3,Q2 OV 81
HOC=HO+HIH
Al TOYE CLEANS UP OTHERSCA2,A30K)
BR IF AC=O
054 SSSET
At.TOYE
BR
JfYP 411
T
COMPLETE TEST fOR
I=HlaK03
NOT A T
8R IF LZNZ
040
ERROR
SET INDICATOR fOR TAPE
DO=00SK02
MEANINGfUl fOR SS SETTINGS ONLY
TO=HIXH
BUSS OUT B-G,T,OR S I f STERlI NG
TE=Hl
TEMPORARY STORAGE
STH T OA. BC
SR
STORE
JTYP 027
ROH T OA,8C
TEMPORARY STORAGE
Z:HlaKfO
040
ERROR
BR I f HINI
TAPE DENSITY SET
JAPECH
BR I f 00 BIT6=: 1
089
**
16
ADDR
WORD
24CO
24C2
24C4
24C6
24C8
24CA
OFEl
F4A9
4FfF
4FAO
aaJA
C58D
Ol81
fOA9
Of91
f4A9
4FfF
5FA3
2040
A4B4
3000
Of A 1
f4A9
4FfF
4fAO
A4B4
OF81
F4A9
4ffF
ADfC
l4CC
24CE
2400
2402
2404
2406
2408
240A
2480
2482
24B4
2486
2488
248A
248C
248E
l490
2492
oa7A
087e
081E
0880
OA4~
OA46
OA48
OA4A
OA4C
OA4E
OASO
OA52
OA54
OA56
OA58
vA5A
OASC
OA5E
OA60
2DFC
2UFE
2EOO
2E02
2E04
2E06
2EOS
2EOA
2Eoe
5E82
4A65
2f23
9245
bff3
6fF3
6ff)
6ff3
6ff)
OA9D
FOD7
6fES
8A5A
IfFF
bfE1
1f82
If13
5fB9
8E82
2C05
5AE3
E084
3El3
SAD5
3085
1CE2
5Beo
OE4D
SEQUENCE Nfl.
INTI'
INTI'
INTI'
(NTP
INTP
INTP
INTP
INTP
INTI'
INTI'
INTP
tNTP
INTP
INTP
INTI'
INTP
INTI'
INTI'
INTP
INTI'
INTi>
INIP
INTI'
INTI'
INIP
INTI'
INTP
INTP
INTP
INT?
INT?
{NTP
INTP
INTP
[NTP
INTI'
INT?
iNTP
INTP
INTI'
INTP
INTP
INTP
IN TP
(NTP
INTI'
INTP
INTP
INTP
INlP
INTP
INIP
INTP
061
06B
069
087
088
089
090
091
092
093
094
095
096
097
O60
I)Z 62
)?64
<)266
)268
,)264
li3EA
1. '1 Ee
l'lEE
191'0
taf?
lflf 4
IdF6
18F8
I8H
SEQUENCE NO.
IREG
IREG
IREG
IREG
IREG
{REG
IREG
IREG
IREG
IREG
(REG
IREG
IREG
IRf'G
IREG
IREG
IREG
IREG
IREG
iREG
IREG
IREG
IREG
IREG
001
002
003
004
005
006
001
008
009
010
all
012
013
01"+
015
016
017
01B
019
020
021
022
DB
024
LASEL
NEXTSEQ
T
STOREV
STRINA
STREGS
STRUVI
RSTREG
NEXTlABEL
002
005
006
012
01b
lPCB 054
IREG 003
JTPE 020
JTYP 098
lR ST 099
PAGE
86
RUCKER
1400 STORE AND RESTORE REGISTER R::JUTINES
READ CONTROL BVTE
RDH H DA,S8
BR IF 1401 MODEl G
BR If HO BIT 6-= 1
005 STRINA
5TH V DA,8C
STORE ROR-~UNCH AOOR IN B
RBI
STORE U,V,I.G,D REGS
TO=O$KIO
IN BACKUP LOCATIONS OF BUMP
Tl=OSKFO
STH D AS,T+2
STH GAS, T-2
SET TO FOR flU
TO-=O
Tl=Tl*-K60
STH V DA,ac
STH U DA,8E
STH I DA,aA
RTN
RESTORE REGS V,U,I,D,G
RDH V DA f 8e
FROM BACKUP LOCA HONS
RDH U DA.8E
ROH I DA,aA
OF BUMP
HO=O$KIO
Hl=OSKFO
RDH 0 AS,H+2
ROH G AS t H+2
~O=O
RTIII
**********************************
*
l~ EG
IR EG
IR EG
I~ EG
J ~ EG
ClOAD=*E40. EC LEVEL=128211
COMMENTS
5T ATEMENT
LPXF 060
lRXF 048
LOPD 030
MPRT 250
JCHl 105
JC'il 173
CROSS REFERENCE FOR CSECT IREG *
**********************************
JDTA 060
L01>D CH4
LPCH 012
lPXF 061
LRDR 031
LRXF 027
LXFR 101
LX FR 113
MPRT ?55
CLOAo:*E40, EC LEVEL=128211
IRST
DESCRIPTIVE
00 CHECI( SUM R()UTI'IE.
OBJ ECTlVES
ADDQ,
1876
1818
18H
187C
1~7E
1il 80
1882
1884
1886
1888
188A
188C
t88E
11390
IH92
1894
1896
1898
189A
Ul9C
189E
18AO
18A 2
18Aft
18A6
18A8
18A"
18AC
18AE
18BO
18B2
18B4
1886
18B8
ISBA
TEXT
RESET AND INITIALIZE AUXILIARY STORAGE.
RESET STORAGE PROTECT KEYS.
INITlALIZE PRINT CHARACTER COUNTER LENGTH lUCS FEATtJRE).
GO TO INIZ ROUTINE, BUILD FILE TABLES.
WORD
3210
3460
2493
2501
2605
2705
34EO
4F6F
4D6F
486F
4E6F
lEOO
2100
OE08
3400
SC82
1C8S
iC 13
2005
1C82
5C92
SCCS
lC35
3C85
1C92
SCB2
2005
1CB2
5CC2
1025
3083
7CC2
095C
2E05
2f95
SEQUENCE NO.
IRST
IRST
IRST
IRST
IR ST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
001
002
003
004
005
006
007
008
009
010
011
012
013
Oift
015
016
LABEL
NEXTSEQ
T
*
*STREST
IRST011
IRST 018
IRST 01.9
IRST 020
IRST 021
IR ST 022
IRSr 023
IR ST 024
IRST 025
IRST 026
IRST 027
IRsr 028
IRST 029
IRSJ 030
IRST 031
IRST 040
IRST 041
IRST 043
IR ST 045
IR ST 046
IRST 047
IRST 048
NOTNTV
102
DOREST
NEXTLABEL
STATEMENT
COMMENTS
** 1400 SYSTEM RESET
R TAYLOR
** THIS ROUTINE RESETS AND INITIALIZES AUX STORE LOCATIONS AND
OTHER REGISTERS AS REQUIRED
SET MMSK K=81
BLOCK TRAPS
SET MODE K=86
GO=0$K09
IN ITUt IlE TO 09
Gl=O
I"ltTIALIZE TO ZERO
DO=O$KOO
IN ITIAL IlE TO ZERO
Dl=O$KOO
INITIALIZE TO ZERO
SET MODE K=8E
SET FILE MODE 2540 ZONE
fOP=OO
RE SET OP REG
FfO=OO
RESET FLAG
TGRO=OO
RESET FILE TAGS
fBO=DO
RESET FILE BUSS
RST fIB K=80
CHAI~ END ~ESET
SET 0lA8 K=OO
RESET DIAG
RST fIB K=40
INITIAL RESET
SET MODE K=80
SET CPU MODE
ROH P OA, A8
GET K B
PO=PO*-K80
RST lAST CARD INDICATOR
PO-PO*-KOl
RSl 2ND SERIAL READER lAST CARD
Pl=O$KOO
STH P OA, A8
STORE BACK SS B-G UNCHANGED
RDH P OA, AA
GET K9
PO=POH
RESET LOW HALF
PO=PO*-K30
RE SET ALL BUT BITS 0,1
PO-PO$K80
TURN ON BIT 0
STORE K9
STH P OA, AA
RDH P OA, AE
GET KB
Pl=O$KOO
RE SET LOWER BYTE
STH P OA,AE
STORE KB
ROH P OA,88
GE T KC
Pl=Pl*-K20
RESET ERASE BIT
P1=Pl$K08
STH P OA, BB
STORE KC
NATIVE
BR IF P15=0
NATIVE PRl'lTER RESETS
HO=OSKOO
Hl=0$K90
CLEAR TAPE ERROR BYTE
PAGE
81
ADOR
WORD
18Se
l8RE
18CO
18C2
18C4
18C6
18C8
18CA
18CC
18CE
1800
18D2
1804
1806
1808
18DA
1268
3F63
2007
70EA
3F4B
70EA
2C05
7CF2
44fF
IF83
2145
17EO
2FlO
3482
5FEO
49fF
A9EC
0604
2607
81E6
ALSO
C3FB
1600
1210
98EA
ABC6
9004
5C62
5CCS
lC15
3C43
2007
7C62
98B8
3480
42bF
3400
2743
4F7F
5649
565"
426F
534C
1518
258B
C4F4
3486
5A60
3400
2705
5769
128E
3404
FAC8
126A
126C
126E
1270
1272
1214
1216
1218
121A
l.BDC
laDE
18EO
l8E 2
18E4
lllE6
lilE8
OlE6
OlE8
(J 1 EA
o 1 Fe
OlEE
OLEO
OlF2
OlF4
OlF6
OlFB
OLEA
01 FC
OlFE
0200
0202
,)204
0206
0208
?9FC
?9EE
SEQUENCE NO.
IRST
IR Sf
IRST
IR ST
IRST
IR ST
IRST
IRS"'
IRST
IRSr
IRS"'
IR ST
lRST
IR ST
IRST
IRsr
IRST
IRST
IRST
IRST
IR Sf
IR ST
IRST
IRST
IRST
IRST
IRsr
IR Sf
IRST
IR ST
JR Sf
IR ST
IR ST
JR ST
IR ST
IR ST
IRsr
IR ST
lR ST
IR ST
IRST
IRST
IR ST
IR Sf
IR ST
IRST
IR ST
IR ST
IRST
IR ST
IR ST
IR ST
IR ST
049
0.50
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
012
097
098
099
100
101
102
LABEL
SUMMIT
CLEAR
NEXTSEQ
127
CKSUM
109
101
STRPRO
fILETB
BYPASS
IREG 016
ISTP 002
I PLS 005
RSTREG
INSTST
IPlSTR
INIl 047
OK
BYPASS
NATI VE
NEXTlABEl
103
104
105
lOb
107
108
109
110
III
112
113
114
115
116
047
DOREST
STRPRO
lOOP
111
118
119
120
116
lOOP
146
ENTRY
121
122
123
124
125
126
127
128
CKSUM
STATEMENT
Hl=Hl$K06
Pl:O
SIB PI AS,H-l
HI=HI-K04
SIB PI AS,H-I
PO=OSKOO
STH P OA, BE
SM=Hl
HI=Hl*-K08
01=OSK40
STB 01 AS,H
Hl=Hl.K 10
SET MODE K=98
ROB HI AS ,H
PCCl=H1
BR
RST BC K=20
00=0
BAl
BAl
BR IF BA4=1
RST BC K:80
RST MMSK K=81
BAl
BR
BR
ROH P DA,9C
PO".POH
PO"PO*-K70
PO=POSK04
Pl=O
STH P OA,9C
BR
SET MODE K=88
STPO=DO
SET MODE K=80
Dl=0$K04
MI4=OI
GO=DO
G1=00
sr po= DO
SSK STPI AS, GH
Gl=GltJKOl
G1=Gl.K08
BR IF ZNZ
SET MODE K=B8
RDH T AS,O.O
SET MODE K=80
Dl=O$KOO
00=01
RTN
SET MODE K=AO
BR IF TT7=0
ClOAO:*E40, EC lE VEL=128211
COMMENTS
SYS MASK=8F
STORE STOP CODE
STORE MASK
H= 0087
PUT 40 IN TAPE /
STATUS
H = 0097
GET peCl
STORE LENGTH FOR MCS
00 SUM ROUTINE
RESET SYSTEM RESET
SET ALL STACK KEYS TO 0
GO BUILD fILE TABLE S,PROG STORGE
IPl
SET SOFT SlOP
ALLOW TRAPS
REGS MEANINGFUL IF START/RESET
PR INTER STA TS
RESEr LOW HALF
RESET All BUT BITS
TURN ON BIT 5
0
STORE STATS
DO N~RMAL RESETS
SET FILE MODE CPU ZONE
RESET FILE Q
CPU
MODE ANO lONE
SET MACHINE CHECK MASK
MC MASK
SET
Z ERa OUT GREG
ZERO OUT GREG
ZERO CPU Q
RESET 7 BIT
TEST FOR END
NOT DONE YET
SET CHANNEL MODE TO CLEAR ITS Q
DUMMY ACCESS
SET CPU MODE AND ZONE
SET D 1 fOR OTHER ROUTINES
SET 1052 MODE
SK IP EC CHECK I f NOT ON
PAGE
88
AOOR
WORD
29fO
29F2
29F4
29F6
29F8
IBf8
2001
2183
4208
21C5
20E3
4E08
4A08
1A42
1252
6208
4200
12f2
2080
ACEO
4282
4626
4A60
21EB
9BE8
&&64
0650
42A6
1:4C1
26E3
21e5
3163
C9E5
2820
2610
gBES
6A60
A9FO
9268
0628
C4f2
0180
C4F2
2140
4260
6A21
6B31
128E
OEC4
OEC6
0000
0000
~qFA
29FC
29FE
2ADa
2A02
2A04
2AO&
2A08
2AOA
Z9CB
29CA
29(.(
29CE
;>'100
?9D2
2904
2906
;?908
')90A
290e
!'JDE
?9EO
ZCJE2
?9E4
?9E6
29E8
/9EA
29C6
IBES
IBEA
l~EC
IBEE
IBfO
lRF2
IBF4
lRF6
0388
J,98
01H
0000
SEQUENCE NO.
IRST
IRST
IRST
IR ST
IRST
IRSf
IR ST
IR Sf
IRST
IR ST
IRST
IR ST
IRST
IRST
IRST
I RST
IRST
IRST
IRST
IRST
IR ST
IRST
IRST
IRST
IRST
IR ST
IRST
IRST
IR ST
IR S T
IRST
IRST
IRST
IRST
IRST
IRST
IRST
IRST
lRSf
IRSl
lRST
IRST
IRST
IRST
IRST
I RST
IRST
IRST
IRST
tR Sf
IRST
IR Sf
IR ST
129
130
134
135
136
131
138
139
140
1.41
142
143
144
145
146
141
148
149
150
151
152
153
154
155
156
151
LABEL
175
116
117
118
119
180
181
182
183
184
NEXTLABEL
AGAIN
lOIS 028
CONVA
ENTRY
MORE
158
159
160
161
162
163
164
165
166
161
168
169
110
111
112
113
114
NEXTSEQ
165
OOfUNC
150
MORE
164
OKSUM
160
CEKEY
165
OOFUNC
129
065
AGAIN
CLEAR
110
NOTCE
170
NOTCE
CEKEY
OKSUM
DOfUNC
NOTCE
ATABLE
C
C
AENO
RE SERVE
RESERVE
ATABLE
C
AEND
ATABLE
C
CLOAO=*E40, EC LEVEL=128211
COMMENTS
STATEMENT
UO=O
Ul=0$K08
ROH V CS, U+2
Ul=O$KCO
UO=OSKOE
ROH H CS,U+2
ROH T CS,U+2
STH T OA,98
STH V OA.9A
STH V CS.U+2
ROH V CS,U
STH V OAt BE
SET S4
BR
ROH V OC,A8
O=V
ROH T CSt 0
Ol=Ol+KOE
BAL
0=0+2
BR IF 001=0
V=T
BR IF Z=O
OO=O$KOE
Dl=O$KeO
01=01$K06
BR IF T04=1
SET OR K=02
SET BC K=Ol
BAl
STH T CS,D
BR
BR
Z=00aK02
BR IF INI
I=DlaK80
BR If ZNZ
Ol=01+K40
ROH V CSt 0
TO=TOaVO
Tl=TlaVl
RTN
SELECT 0008,OOOA,GENERATEO SUM
GET LOG OUT START ADDRESS
GET fiRST TWO BYTES
GET NEXT TWO BYTES
STORE IN PLACE OF A STAR DISPLAY
STORE IN PLACE OF B STAR DISPLAY
GET LAST TWO BYTES
STORE IN PLACE OF STOP DISPLAY
PREVENT FiRST HALf WORD CONVERT
00 EC LEVEL OR CHECK SUM DISPLAY
SKIP
TABLE Of
CHECK SUM VALUES
BRANCH IF CE KEY ON
STOP ,CHECK SUM ERROR,CE KEY OFF
SET LOG LATCH FOR RETURN
CONTINUE SYSTEM RESET
AODR=OEC4
XCTL'OOOO'
XCTL'OOOO'
OECO THRU OEC2
0280 THRU 02BE
AODR=0388
XCTL'07ffC48A88004E08'
AOOR=0398
XCTL'OOOOOOOOOOOOOOOO'
PAGE
8'1
ADDR
WORD
,nAB
0000
0188
2FF7
SEQUENCE NO.
IRST
IRST
IR Sf
IRST
IR ST
IR ST
IRST
185
186
187
188
189
190
191
LABEL
UND
ATABlE
C
AENO
ATABLE
C
AENO
NEXTSEQ
NEXTLABEL
STATEMENT
AOOR=03AB
XCfL'OOOOOOOOOOOOOOOO'
ADOR=03BB
XCTL'2FF72FIBC4BCOFOl"
*********************.************
*
**********************************
* CROSS REFERENCE FOR CSECT IRST
IR S T
004
047
064
065
101
102
109
116
127
129
146
1.50
160
164
IR sr 165
1'1, ST 170
ST
IRST
I iZ ST
lR Sf
IR ST
IR S T
l~ ST
IRST
JR ST
IR ST
IRST
IR ST
IR ST
I~
BOlA
IR ST
JTYP
IR Sf
IRST
IR ST
INIZ
tR ST
IRST
IRST
IR ST
IRST
IRST
IRST
IRST
I R Sf
434
1G8
0'16
164
072
046
0.39
120
IRST 067
064
163
128
1.52
158
1 ')4
150
166
IRST 161
tRST 168
CLOAO=*E40, EC LEVEl=128211
COMMENTS
PAGE
90
,\OUR
WORD
2AS8
248A
2AAb
2AA8
2AAA
7AAC
?flAE
?ABO
2AB2
?4B4
2A86
2BF5
A.AAA
OE22
2BC5
E190
4FBD
5010
D035
IB45
OB1B
FC8f
7BlA
EIBD
2<\138
2.ABA
2ABC
lASE
;'>ACO
;>AC2
)"C4
)A8C
?A80
21\ 82
2A84
)/'186
('AAO
2AA2
?4A4
2A9C
2A 9E
2A 8E
2490
2A92
2A94
2119b
2498
)A911
1158
115A
il4E
1150
2BF5
4FB5
2040
AAAE
BD7C
2020
EE2l
FFOB
9158
FE29
2B05
AAAA
4EBD
MAE
0015
OBAD
AA96
aBED
EOB8
1885
AAB8
2BE5
AAAA
0060
4426
A304
CE5C
AAA6
OE59
AA88
1154
1156
115C
U5E
-""",
ISAB
ISAB
{SAB
IS AB
!SAB
I SAB
I SAB
ISAB
ISAB
ISAB
ISAB
I SAS
ISAB
ISAB
1 SAB
I SAB
lSAB
I SAB
I SAB
I SAB
I SAB
I SAB
I SAB
I SAB
[SAB
1 ShS
I SAS
I SA8
ISA8
I SAB
I SAB
1 SAB
( SAB
I SAB
I SAB
[ SAB
ISAB
1 SA8
( SAB
{SA8
I SAS
I SAB
I SAB
I SAB
I SAB
I SAS
1 SAB
I SAB
I SAB
I SAB
0181
1152
002
004
005
006
008
LABEL
SEQUENCE NO.
ISAB
I SAB
ISAB
I SAB
ISAB
023
043
025
003
019
001
002
003
004
005
006
007
008
009
010
all
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
T
SE TNZN
C KNXT8
SE TAB I
CKENO
READ
SE TWM
SlSH TS
STORE
OPOONE
TENSON
CKHLf
SETBIN
HNOROS
LC WONE
OK
TEST
SETAZN
STAR
lONESB
NEXTSEQ
STATEMENT
Ct.OAD=*E40, EC LE VEl=1282 11
COMMENTS
KRAGER
1400 STORE A OR B ST AR.
SET NO ZONE S
T1=OSKFO
BR
006 CKENO
BR IF HO BIT 1=0
GO SET B ZONE BIT
026 SHBIN
Tl=OSKCO
SET UP AB ZONE BITS
BR IF S6=1
028 HNORDS
MAKE UN ITS CHAR
T 1=H1LH 1H
ROB PI U+O
SR IF PI BIr 1= 1
BR IF NO W\l
011 SLSHTS
SET 101M IN CHAR
Tl=Tl*-K40
I=TlcKOI
BCH IF lOW BITS = 1
BR IF LZ=O
030 LCWONE
STORE CHAR
STBTIU-l
BR 1F S 6= 1
BC I' IF HNDROS DDNE
020 OPOONE
BCH If TENS DONE
021 TENSON
BR IF S 5= 1
T l=OSKFO
T 1=H1XlH IH
MAKE TENS CHAR
SET S5
BR
008 READ
BR
ICYC 031 HISTRT
SET S6
BR If HO BIT 2=1
025 CKHLf
BR IF HO BIT 3=0
002 SETNIN
BR
037 SETAIN
BR IF HO BIT 3= 1
005 SETA81
Tl=O$KOO
SET B ZONE BIT
BR
006 CKENO
T l=HOL+T 1H
MAKE HNDROS CHAR
BR
008 REAO
BR If PI BIT 1= 1
033
OK
BR If NO WM
Z=T laKAO
CHECK fOR SLASH
BR
034 TEST
l=TlaKEO
CHECK fOR SLASH
STORE
BR If HZNl
BR If NOT A SLASH
013
Tl=f1*-K80
REMOVE 0 BIT
BR
013 STORE
T L=O$KEO
SET A ZONE BIT
BR
006 CKENO
RST S K=06
RST S5 AND S6
G=V
BAt
ICTO 021 CVTOE(
BR If HO BITO=O
BtH ON ZONE BITS
044 ZONESB
BR
004 CKNXTB
GO SET A lONE BIT
BR If HO BITl=l
037 SET AlN
BR
002 SETNZN
**********************************
* CROSS REfERENCE fOR (SECT ISAB *
**********************************
1 SAS 045
I SAB 027
[ SAB 029
NEXTlABEl
I SAB 038
PAGE
91
**.**...........
\1< • •
***.**."' ........ .
*••••••••••••
.tRBS$ 1£f=~lleN~t: fflR l:S£CT fSAI.~ '"
.,•••••••••••••••*•••••
rSAB
ISAB
ISAS
ISA8
ISA8
ISAS
I SAB
ISAB
011
OU
020
021
025
026
028
030
ISAB 033
ISAB 034
ISAB 037
ISAB 039
ISAB 044
lSA8 Q(l9
ISAB 01.
ISA8 ~Ft
I SA8 015
I SA8
I SA8
1 SAB
I SAB
I SA8
I SAB
ISAB
022
004
006
012
030
032
024
ICYC 215
I SA8 042
I
SA8 044
flOOR
2378
237A
237C
237E
7380
2382
2384
2386
2388
;>18A
238C
238E
2390
2392
2394
2396
2398
239A
::>39C
239E
.?JAO
HA2
;>H4
2~Ab
;;> :lA8
23AA
BAC
23AE
.?3BO
23B2
2384
23B6
;>3B8
23BA
23BC
23BE
?3CO
23C2
23C4
23C6
23C8
2"~CA
nee
23CE
2300
2302
WORD
4AE6
0042
2791
bA7F
f48D
5BA 1
6B7f
F480
6A 7F
f496
2EF7
5Ef9
48E6
20AO
ABC8
5202
OEOD
C4BB
FOA6
2C33
2DE5
2D8B
F820
2C07
2065
2D4B
630B
62CO
D03A
2EFf
F818
IEF3
F8I9
OFOD
e4CD
Eoe.9
2e07
2DA3
2FFD
F4AD
63FB
62ED
CBDI
128E
4826
42A6
LABEl
SEQUENCE NO.
I SIC
I SIC
ISIC
I SIC
IS IC
I SIC
IS IC
IS IC
IS IC
151 C
15IC
IS IC
15IC
I SIC
ISIC
IS IC
IS IC
IS IC
IS IC
I SIC
IS IC
IS IC
IS IC
I SIC
IS IC
IS IC
I SIC
I SIC
I SIC
ISIC
ISIC
I SIC
IS IC
ISIC
IS IC
ISle
I SIC
IS IC
1 S IC
I SIC
I SIC
ISle
ISIC
I SIC
I SIC
ISIC
I SIC
IS IC
ISIC
I SIC
IS IC
I SIC
I SIC
001
OOl
003
004
005
006
007
008
009
010
011
T
*
1400
*
*
*
*
* SEliC
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
NEXTSEQ
018
018
023
OUT
ISTP 003
SETBST
rESTHO
041
031
034
eNOTE
ADD
041
024
024
LORDER
050
048
034
UNITS
ENDING
SE TI ST
052
NEXTlABEl
STATEMENT
CLOAD:*E4-0, EC LEVEL=ll8l11
COMMENTS
UYLOR
SET IC ---BAL TO SET B STAR
THIS ROUTINE SETS THE I STAR IF THE SET IC LATCH IS ON, AND
BY USING
DISPLAYS THE DECIMAL A"4D HEX EQUIVALENTS ON THE 1052
SWI TCH SETTINGS IN H REG
THE StEP ADDRESS AND OISPLAY ROUTINE
FROM SOFT srop ROUTINE
SOFT S TOP LOOP, B STAR IS STORED TEMPlY
ENTRY IF SET IC IS FROM
PROGRAM TO SET B STAR ON A BAL BASIS.
IN T TO AllOW
THE MAIN
TEST SWITCHES
T=H
RESET CARR Y LA TCH ,I NSURE S5 OFF
RST S K=14
SET UP F6 FOR TEST
Dl=0-K09
TOC=TOl+Dl+C
CHECK SWI TCH B
ERROR
OUT
BR IF AC=1
TO=TIX
CHECK SWI TCH 0
TlC=Tll+Dl+C
ERROR
OUT
BR IF AC= 1
CHECK SWITCH C
TOC=TOL+Dl+C
GO ON
CHECK COMPLETE
BR IF AC=O
ERROR
SETBST
HO=OSKFF
SET UP INVALID I STAR
Hl=HO
DISPLAY IS FFFF FFfF
I=H
SE T S4, S6
SET S K=OA
GO TVPE INVALID SET IC ME SSAGE
INVI
BR
RDH V DA,88
READ BIAS CONST.
Z=HOIlKOO
TEST HI ORDER
BR IF Z=O
Hi ORDER DONE
LORDER
eNOTE
00 100THS POSI nON
BR IF lZNZ
HE X EQUIV OF 1000
PO=OSK03
( 03E 8)
Pl=OSKEO
Pl=Pl+K08
ADD
BR IF PO SIT 7= 1
GO ADD
HE X EQUI V OF
1000
PO=O
( 0064)
Pl=OSK60
Pl=Pl+K04
ADO IN CONST.
\/lC=V 1+Pl
MEMORY BIASED B STAR
VOC=VO+PO+C
lOW ORDER RETURN
LORDER
BR IF PI BIT 1=0
HO=HO+KFF
SUBT 1 FROM HUNDREDTH
TESTHO
BR IF PO BIT7=0
SUB 1 FROM THOUSANDS
KEEP LO ORDER HO=XO
HO=HO*-KOF
TEST FOR THOUSANDS
TESTHO
BR IF PO BlT7=1
TEST LOW ORDER
l= HIIlKOO
LOW ORDER OK GET OUT
ENDING
BR IF Z=O
GO 00 UNITS
BR If HZ=O
UNIfS
HE X EQUIV OF 10
PO=O
(OA I
Pl=OSKOA
Hl=Hl+KFO
CONTROL TENS COUNT
ADD AGA IN
BR IF AC= 1
ADD
PUT IN UN ITS
VIC=Vl+Hl
HEX CONVERT DONE
VOC=VO+HO+C
FROM SOFT STOP lOOP
BR IF BB BIT 4= 1
SHIST
RTN
WAS B STAR CONYER T
MOVE TO I STAR
I=V
RETORE B STAR
V=T
PAGE
93
I\UiJR
WORD
)JD4
ABC6
SEQUE~CE
NO.
LABEL
ISle 054
NEXTSEQ
I
STP 002
NEXT LABEL
I
NSTST
ClOAO=*E40, EC lEVEl=128211
COMMENTS
STATEMENT
8R
GO SHARE INSTRUCTION STEP
**********************************
*' CROSS REFERENCE FOR CSECT IS IC
I SIC
IS IC
I SIC
ISle
{SIC
ISle
IS Ie
f S Ie
ISle
ISle
008
018
023
024
031
034
041
048
050
052
INRU
ISIC
I SIC
IS IC
I SIC
I SIC
I SIC
I SIC
IS IC
I SIC
044
012
011
038
026
030
025
043
042
050
*
*********'*************************
I SIC 015
JfYP 250
I SIC 040
I SIC 047
I SIC 036
PAGE
94
CLOAD=*E40, EC LEVEl:1282l1
1ST?
DESCRIPTIVE
TEXT
OBJECTIVE
CONVERT TO DECIMAL AND DISPLAY ON THE PR-KB THE ADDRESS Of THE NEXT INSTRUCTION TO BE EXECUTED.
AUDR
WORD
2dCb
2tlC8
2BCA
2BCC
2BCE
2"lDO
COED
SEQUENCE NO.
IS TP 001
hlD2
EID7
CB02
CID7
2080
4486
ISTP 002
I SIP 003
1ST? 004
ISTP 005
ISTP Dab
1ST? OC7
1ST? 008
2b04
A304
ISTP 009
:>'jDb
3000
2bOB
LADA
2C 15
3C43
5FAO
1ST? 010
IS TP all
I SIP 012
1ST? 013
1 S fP 014
ISH' 015
I STP 016
I SfP 017
[STP 018
ISTP 019
1ST? 020
ISTP 021
[STP 022
1 STP 023
ISIP 024
ISTP 025
[STP 026
1 SlP 027
IS IP 02 B
ISTP 029
I H? 030
3643
~BDC
21301:
2BEO
ZA E2.
213E4
8118
SA,)9
5FA5
8118
5A49
5EAO
8n8
5AB9
5EA5
8118
ZAE6
2BE8
2BEA
2rlEC
2BEE
2BFO
Z13F2
2Bf4
28Fb
2Bf8
2BFA
2BFC
5En
3E83
7E92
2F05
3404
2f08
A41b
2BH
IS IP
ISTP
IS TP
ISTP
ISTP
ISTP
002
003
006
008
010
012
LABEL
058
022
037
005
004
058
NEXT LABEL
INSIST
1 NV[
010
008
STQ?CD
010
AROUND
.. TYPEAG
IC TO 021
GO
IRST 100
ISTP 006
ICOM 002
ICOM 002
ICOM 002
ICOM 002
JTYP 027
ISIC 054
STATEMENT
COMMENTS
R.TA YlOR
INSTRUCTION STEP
RESET S4.S5.56,
RST 5 K=OE
00:00$K04
TURN ON BIT 5 fOR CONTROL
SET IC ERROR
BR IF 56= 1
GO
IF NOT SET Ie
BR IF BS BIT4=0
AROUND
MACHINE CHECK lOGOUT
SR IF S4:1
-GO
OOl=XOll.S5=0 FOR NORMAL MESSAGE
SET S4
PUT 1* INTO G fOR CONVERT
G= I
SAL
CYTDEC
SET SO
PREPARE TO UNPACK A HALf WORD
PO=O$KIO
SET TO 14~1 LESS THAN LINE fEED
PO=POSK04
CHARACTER
TO=HIL
TAKE LOW 4 FOR UNPACK
SAL
FIRST UNPACK INTO TO
UNPACK
STORE IN Gl, 4TH POSITION
Gl=TO
TO=HIXL
SECOND UNPACK
UNPACK
UNPACK
BAL
GO=TO
STORE IN GO 3RD POSITION
TO=HOL
GET 3RO
BAL
UNPACK
UNPACK
TI=TO
PUT IN II 2ND POSITION
TO=HOXL
GET LAST
BAL
UNPACK, ANS IN TO 1ST POSITION
UNPACK
RDH H DA,AA
TEST fOR JYPE ROUTINE
HO=HOSK08
SET STAT fOR DISPLAY
STH H DA,AA
STORE STAT
HI=O$KOO
INITIALIZE TO ZERO
SET MODE K= AO
1052- 1400 MOOE .CPU ZONE
SET WRITE LATCH
SET T A K=40
GO TO 1052 STORE ROUTINE ST WAIT
BR
STORE
**********************************
* CROSS REfERENCE fOR CSECT ISTP *
**********************************
** 1400
T
I SIP 031
INRU
I SIC
lOIS
I STP
ISTP
J YPE
NEXTSEQ
PAGE
95
ADDK
oe50
oe52
ae 54
ae 56
ae 58
aC5A
oesc
ae5E
OC4A
OC 4C
ac 4E
ISWM 004
ISWM 009
ISW4 012
WORD
5010
5830
Fl4A
3045
3845
701A
1B3A
8D7C
1045
1845
8C5A
SEQUENCE NO.
I SliM
I SWM
[ SWM
I SWM
I SwM
I SwM
[ SWM
I SWr-l
[SliM
I SWM
ISWM
I SWM
! SWM
{ SWM
ICYC 227
I SWM 014
I SWM 006
001
002
003
004
005
006
001
008
009
010
011
012
013
014
LABEL
T
*
*
SETWM
STOREA
SETAWM
ICYC 243
NEXTSEQ
NEXTUBEl
Sf AYEMENT
CLOAO=*E40, EC LE VEL=128211
COMMENTS
KRAGER
CLEAR OR SET WORD MARK ROUT IN E.
WHEN ENTERING THIS ROUT INE Gl WILL CONT AIN 04 FOR SET 14M OPS
AND 15 FOR CLEAR IfM OPS.
ROB PI U+O
READ A FLO CHAR
READ B FLO CHAR
ROBT1V+O
SET AWM
CK OP FOR SET IfM INST
012
BR IF Gl SH1=0
CLEAR IfM FROM CHAR
Pl=PlSK40
CLEAR 14M FROM CHAR
T l=T l$K40
STB PI U-I
STORE CHAR DEC AOOR
SfS n V-I
STORE CHAR DEC AOOR
ICYC 031
HISTRT
8R
Pl=Pl*-K40
SET 14M OVER CHAR
Tl=rl*-K40
SET 14M OVER CHAR
STOREA
009
BR
**********************************
* CROSS REFERENCE FOR (SECr ISWM *
**********************************
PAGE
96
CLOAO=*E40, EC LEVEl=128211
ITRP
DESCRIPTIVE
TEXT
OBJECT IVES
DETERMINE LOG-OUT MESSAGE.
PERFORM MACHINE CHECK TRAPS.
"DOlt
0210
0212
0214
0220
0222
02H
0226
0228
022A
02ZC
022E
0230
0232
0234
WQRD
3200
0080
8224
3202
2080
57FF
56Ef
C4AC
1812
1EF2
0210
0216
0218
AAOC
3444
10C5
1113
2AOC
ZAOE
2A 10
2A12
2414
2A16
2A18
2ALA
2A lC
2AlE
5EEf
2Fl3
2A20
2A22
5282
1213
2A24
2A2£>
2A28
2663
2A2A
lA2C
6006
7052
7042
3400
5812
5219
C1BO
261B
7E42
SEQUENCE NO.
ITRP
ITRP
I TRP
I TRP
I TRP
I TRP
ITRP
fTRP
I TRP
ITRP
ITRP
lTRP
I TRP
I TRP
ITRP
ITRP
ITRP
ITRP
ITRP
lTRP
ITRP
I TRP
ITRP
ITRP
ITRP
ITRP
ITRP
I TRP
I TRP
I TRP
I TRP
ITRP
I TRP
ITRP
I TRP
ITRP
I TRP
ITRP
ITRP
ITRP
001
002
003
004
005
006
007
008
009
LASEL
PERFORM COMMUNICATIONS SERVICE TRAPS.
NEXTSEQ
NEXTLABEL
ADOR=0210
012
INTO
012
•
ATABLE
MACHCK
INTO
016
RESET
024
GO
RE SET
020
021
LINK U MMSK9:1
SET Sit
Hl=SA
HO=MMSK
SR If ZNZ
STH lOA. 8A
STH H OA, BE
RST MMSK K=Ol
RST MMSK K=31
RST MMSK K=41
SR
MACHINE CHECK TRAP ENTRY
SET fOR MACHINE CHECK LOGOUT
SAVE BRANCH/CONDITION REGISTER
SAVE MMSK REGISTER
GO TO THE MMSK RESET
I STAR IS GOOD If STORAGE WRAP
STORE MMSK,BA REGS FOR MA.CHECK
RESETS MMSK 0.2 IF ON
RESET 2540 READER TRAP
RESET 2540 PUNCH TRAP
SET MODE K=A4
UO=UO*-KCO
Ul=Ul*-KOl
U=U-2
STH U DA.9A
STH U OA,98
SET MODE K:80
ROH 1 DA,8A
HO=MC
Hl=O$KOl
RDH V OA, A8
VO=VO*-KOI
Dl=VO
OO=0$K06
BR IF S4=0
OO=OQ+KO 1
5TH H DA,98
SET MODE TJ GET MICRO ADDRESS
STRIP HIGH BITS IF ON
STRIP 1 BIT
GET TRAPPED MICROWORD ADDRESS
PUT IN FOR DISPLAY
PUT IN FOR DISPLAY
SET CPU MODE AND lONE
GET CORRECT I STAR fOR DISPLAY
LOAD MACHINE CHECK REGISTER
LOAD COUNT
GET SENSE SWITCHES
RE SET BIT 7
PREPARE TO STORE COOED HALT
WRAP STOP CODE
STORAGE WRAP BRANCH
CHANGE STOP CODE TO 07 FOR MC
OVERLAY WITH MC AND COUNT INFO
AEND
022
023
•AEND
024
GO
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
SAVE MICR3 ADDRESS
RESET FOR STORAGE WRAP
ADDR=0220
013
014
015
016
017
018
019
LINK U MMSK8= 1
RST S4
SR
AENO
010
011
COMMENTS
STORAGE WRAP,MACHINE CHECK TRAP ROUTINES
R. TAYLOR
COMMUNICATIONS TRAPS ARE RESET IN 1400 COMPo MODE
T
•
ATASLE
STATEMENT
042
OUT
PAGE
97
r\DDR
WORD
?A2E
5HZ
76F2
1613
3404
5092
3085
7092
26FB
I.FZE
2F08
EAC 2
4F6F
OF20
EAC8
IF2E
C 101
ACDE
ACEO
?A 30
'A 31
2434
2A36
2A.38
243A
ZA3C
ZOE
?A40
Ul42
,7A44
?1\46
?A4t3
?1\4!\
~44C
?A4E
?450
) lEO
.1lE2
OlE4
!ll20
0122
0124
SEQUENCE NO.
ITRP
I TRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
I TRP
ITRP
ITRP
(TRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITRP
ITR?
ITRP
I TRP
ITRP
lTRP
lTRP
ITRP
ITRP
226A
IFOO
026A
22EC
IFOO
02EC
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
Ob3
064
065
066
067
068
069
070
LABEL
NEXTSEQ
NEXTLABEl
aUf
LOOPA
051
lOOPA
LOOP8
054
lOOPS
058
lOIS 027
lOIS 028
NOIST
*
AODR=OlEO
A TABLE
CBTRAP
NOIST
CONVI
CONVA
****
GET MMSK.BA REGISTERS
ROH H DA. BE
STH 0 DA t BE
STORE STOP CODE
DO=OO*-KO 1
STRIP BIT 7
SE T 1052 MODE
SET MODE K=AO
RDH U DA, AA
SWITCH 1052 STATUS IF NECESSARY
TURN BIT ONE ON
UO=UO$K80
STORE NEW STATUS
STH U DA, AA
CHANGE TO
DO=DO+KOF
NEW LINE CHARACTER
RST TA K=F2
RESET All
SE T WRITE
SET T A K=40
WAIT FOR REQUEST
BR IF TT6=0
TE:DO
I S SUE LINE FEED
RESET SHARE REQUEST
RST T A K=02
WAIT FOR REQUEST
BR IF TT6=0
RESET All
RST TA K=F2
DECIMAL CONVERT BYPASSED FOR MC
BR IF 54= 1
TYPE MESSAGE
BR
8R
COMMUNICATIONS BIT SER V ICE TRAP ****
LINK D MMSK5= 1
RST CCTRl K=80
RTN 0 MMSK5=0
AEND
*
AODR=0120
A TABLE
CC TRAP
****
ClOAD=*E40, EC lEVEl=128211
COMMENTS
ST AT EMENT
IGNORE
COMMUNICATION
CHANNEL
COMMUN leAT ION CHAR.SERVICE TRAP *****
LINK H MMSK6= 1
RST CCTRl K=80
RTN H MMSK6=0
IGNORE
COMMUNICATION
CHANNEL
AEND
**********************************
CROSS REFERENCE FOR CSECT ITRP *
**********************************
*
ITRP 011
012
016
024
042
lTRP 051
ITRP 054
ITRP 05B
ITRP
ITRP
ITRP
ITRP
KAAN
(TRP
I TRP
URI'
HR.P
ITRP
ITRP
ITRP
050
006
014
020
038
051
054
056
PAGE
98
ADDK
WORD
1E72
1E74
IE 76
lE18
lE7A
lE1C
1E 7E
E678
2A23
811C
4286
1615
4806
801C
ILlBR 002
rUBR 011
SEQUENCE NO.
IBCH
ISCH
lERR
IUBR
IUBR
IUSR
I UBR
lUBR
1 UBR
IUBR
IUSR
WSR
003
076
007
002
001
002
008
009
011
012
013
014
LABEL
NEXTSEQ
T
UNCOBR
011
IERR 034
AOK
ISCH 045
tBCH 078
lOPO 040
[CYC 031
ISCH 047
I BCH 080
MBBS 084
ISCH
18CH
MNNN
NEXTLA8El
STATEMENT
UNCONOIT IONAL BRANCH
AOK
BR IF 00 BIT 2=0
TO=OSK02
STCDOE
BR
V=I
OO=OO*-KIO
CLOAO=*E40, EC lEVEl=128211
COMMENTS
PAGE
99
R. C. HUANG
BR IF A STAR VALID
12120/66
STORE 1* l"i B*
S* VAliD
I~U
XFER A* TO 1*
HISTRT
BR
RETURN TO I CYCLE
**********************************
* CROSS REFERENCE FOR CSECT WBR *
**********************************
049 IBtH 051 IBCH 053 IBtH 055 IBCH 060 IBCH 068
082 IBCH 125 IClR 028 ICYC 085 INRU 052 lZWM 008
003 MPRT 376 MPRT392 MPRT 410 MQQQ 014 MQQQ 029
IBCH 010
IlWM 023
lBCH 012
JE NO 138
IBCH 014
JEND 146
ADDR
WORD
0100
0102
0400
0402
0404
0406
0408
040A
040C
040E
0410
0412
0414
u416
0418
041A
041C
04lE
0420
0422
0424
0426
503A
8309
8D7C
8424
840E
oOOF
9E72
3685
503A
3045
.5fCO
5109
55CO
C61E
65f7
C4BB
a07C
6f51
E089
801C
0023
9E72
llWM
IZWM
IZWM
IZWM
IIWM
IlWM
Il W'1
IZW,\
002
004
008
009
011
OlQ
021
022
SEQUENCE NO.
IZWM
IZW"
IZWM
(lWM
tzWM
(lWM
IZWM
lZWM
IZW,.
IZ 101M
IZWM
IZWM
IZ w,.
IIWM
IZWM
lZWM
IlW"
IIWM
IlWM
IZ 101M
(lWM
IZWM
IZWM
IC YC
lZWM
IZWM
ICVC
IZWM
IZWM
IZWM
IZWM
237
003
017
238
006
015
022
005
001
002
003
004
005
006
001
008
009
010
Oll
012
013
014
015
016
011
018
019
020
021
022
023
IZWM
NEXTSEQ
UBEl
T
ZNWMBT
MOOlfR
MOOlfR
MODIFR
MODIfR
END
BRIBIT
NorWN
NOlBIT
lEND
14M
020
lZWM 007
0
1
2
3
NEXT LABel
STATEMENT
CLOAD=*E40, EC lEVEl=12B211
COMMENTS
BRANCH ON ZONE, WORD MARK OR BIT TEST. KRAGER
ROB PI V-I
READ B FlELD
004 MODlfR N N=Dl BHS61
DECODE 0 MODIfiER
ICVC 037 HISTRT
BR
INVALID-IGNORE
022 14M
BR
011 NOTW,.
BR
GO TEST ZONE BITS
011 NOTWM
BR If PI BIT 1=1
BR If NO W!4 BIT
IUBR 002 UNCOBR
BR
101M-GO BRANCH
OO=DOSK80
SET BIT TEST fLAG
ROB PI V-I
READ B fIELD
PI=PUK40
IN SURE 1 BIT ON
ROB HI AS,P
CONVERT B FLO TO BCO
Pl=OI
ROB Gl AS,P
CONVERT 0 MODIfIER TO BCD
019
NOT BIT
BR If 00 BITO=O
BR IF NOT BIT TEST
COMPARE BITS
G1"'GI*Hl
OOB END
BR IF ZNZ
(Cve 037 HISTRT
BR
Hl=HlaG 1
COMPARE ZONES
008 END
BR If HZ=O
BR
ICYC 037 HISTRT
021 lEND
BR If Pl BIT 1=1
BR IF NO WM BIT
BR
I UBR 002 UNCOBR
**********************************
* CROSS REFERENCE FOR CSECT IZ..,M *
**********************************
PAGE 100
ClOAD=*E40, EC LEVEL=128211
JCHl
DESCRIPTIVE
ENTRY POINTS
PAGE 101
TEXT
JBJECTIVES
JCHL
THIS IS THE NORMAL ENTRY POINT FOR INITIAL CHANNEL
SElECTION FOR TAPE OPERATIONS. ENTRY HERE IS FROM
JODE FOLLOWING OPERATION DECODE.
1.
PERFORM INITIAL CHANNEL SELECTION.
2.
00 MODE SET, TIE, OR DATA COMMANDS.
00 CONTROL COMMANDS.
CHL25
ENTRY HERE IS FROM CHANNEL lOW (STATUS) TRAP FOLLOWING AN EARLY {INVALIO) TAPE DISCONNECT ON WRITE
OPS. OTHER ENOl NG CONDITIONS BRANCH HERE FROM
WITHIN THIS ROUTINE.
CHl53
ADDR
WORD
ENTRY I S FROM CHANNEL LOW TRAP ENOl NG ROUTINE ON
READ OPERATIONS.
SEQUEI\jCE NO.
JCHl
JCHL
JCHl
JCHl
JCHl
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHl
JCHl
JCHL
JCHl
JCHL
001
002
003
004
005
006
007
OOB
009
010
all
012
013
014
015
016
on
018
019
020
021
022
023
024
025
026
027
028
LABEL
T
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NEXTSEQ
NEXTlABEl
4.
5.
LOOP
WAIT FOR DATA TRAPS AS LONG AS aURST MODE
lATCH IS ON.
SET PARITY AND DENSITY.
6.
CHECK FOR SHORT RECORDS DURING READ OPS.
STATEMENT
COMMENTS
1401 TAPE CHANNEL
TAPE AUX STORAGE DESCRIPTION
***********************************************************************
0080
*
LAST OP WAS A if RITE OR WR IrE TAPE MARK.
*
BIT 0
BI TS 1-3
LAST 1401 DR IVE ADDRESSED.
*
BITS 4-7
TAPE CONTROL UNIT ADDRESS
*
***********************************************************************
***********************************************************************
ooax
BITS 0,1
X EQUALS 1401 TAPE DRIVE NUMBER.
00 FOR 7 TRACK DRIVE TO RUN AT 200 BITS PER INCH.
01 FOR 7 TRACK DRIVE TO RUN AT 556 BITS PER INCH.
10 FOR 1 TRACK DRIVE TO RUN AT 800 BITS PER INCH.
11 fOR All 9 TRACK OR IVES.
*
*
*
*
*
*
*
lAST 01' WAS A BACKSPACE.
*
THIS BIT IS TURNED ON FOR END OF FILE A~D TURNED OFF
*
WHEN THE END OF FILE BRANCH IS TAKEN.
*
BITS4-7
360 TAPE DRIVE ADDRESS.
***********************************************************************
BIT 2
BIT 3
*
***********************************************************************
00B1
LAST TAPE STATUS.
*
***********************************************************************
*
flODR
WORD
SEQUENCE
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
JCHl
JCHl
JCHL
JCHl
JCHl
JCHL
JCHL
JCHL
JCHL
JCHl
JCHl
JCHl
JCHL
JCHl
JCHl
JCHl
JCHl
JC Hl
JCHL
JCHL
JCHl
JCHL
JCHl
JCHl
JCHL
JCHl
JCHL
JCHl
JCHL
JCHl
JCHL
JCHl
JCHl
JCHL
JCHL
JCHL
JCHL
NO.
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
060
061
062
063
064
065
066
067
068
069
070
071
012
073
074
015
016
017
078
019
080
081
LABEL
*
*
NEXTSEQ
NEXTlABEl
***********************************************************************
0090-0093
TAPE SENSE BYTES 0-3
TAPE SENSE BYTES STORED AFTER READ ERROR OR
WHEN TAPE INTERVENTION [S REQUIRED-8F HALT
*
*
CLOAD=*E40. EC lEVEL:128211
COMMENTS
STATEMENT
*
*
*
*
*
*
*
*
*
*
***********************************************************************
***********************************************************************
0094-0095
o ST AR
***********************************************************************
***********************************************************************
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
***********************************************************************
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
BIT 0
BITS 1-6
BIT 7
0096
UNUSED.
END OF FILE BLOCK BIT. BIT
UNUSED.
2 FOR 1401 DRIVE 2 ETC.
*
*
*
***********************************************************************
BIT 0
BITS 1-6
BIT 1
0098
REWIND OR REWIND UNLOAD FLAG.
END OF FILE BLOCK BIT RESET MASK.
UNUSED.
*
*
*
*
***********************************************************************
***********************************************************************
TAPE CONTROL
0099
BYTE ADDRESS.
*
*
***********************************************************************
***********************************************************************
009A
BIT 0
BIT 1
ODD REDUNDANCY FLAG.
9 TRACK OPe
*
*
*
BITS 2-1
TEMPORARY COMMAND STORAGE.
*
***********************************************************************
***********************************************************************
0098
TEMPORARY STORAGE fOR DEVICE ADDRESS.
*
*
***********************************************************************
***********************************************************************
BIT 2
BIT 3
00B9
ERAS E BIT.
ALTERNATE 9 TRACK MODE.
*
*
************************************************************************
***********************************************************************
*
008A
9 TRACK BYTE. BIT 2 IS ON IF 360 DRIVE 2 IS 9 TRACK ETC.*
***********************************************************************
PAGE 102
ADOR
l71E
WORD
17AS
17AA
5FB9
3486
221E
20B5
57CO
4fFF
2B04
2B44
C90B
FDA5
OD8f
2A21
3A23
7AF2
021E
0214
3400
nEA
A044
2B04
FOA1
(9A9
2BOO
l7AC
OllE
17AE
1780
2026
EOAE
'1782
2B40
02IE
CODE
5FAF
6Afl
C494
4F4f
2B42
fDEA
5FEF
fE34
2BOO
2B08
97A6
044B
C4BA
8808
5Fff
5842
1780
H82
1784
1786
1788
178A
17SC
178E
1790
1792
1794
1796
1798
179A
179C
IHE
I7AO
17A2
17A4
17A6
17B2
170A
noc
UOE
I7EO
17E2
17E4
17E6
nE8
17E:A
11EC
17EE
17FO
17F2
17f4
17B4
17B6
1768
17RA
17BG
1IBE
EMS
SEQUENCE NO.
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHt
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHL
JCHl
JCHl
JCHl
JCHL
JCHl
JCHl
JCHi..
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JC Hl
JCHl
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
",CHL
JCHl
JCHL
082
083
084
085
086
081
088
089
090
091
LABEL
*
'"
*
'*"
'" CHNL
NEXTSEQ
NEXTlABEl
OOBB
PHASE ENCODE BYTE. BIT 2 IS ON If 360 DRIVE 2 IS TO
WRITE IN P.E. MODE ETC.
CHlll
CHLl3
098
099
100
115
101
096
CH112
CHL21
CH1l3
NOAOOR
CHl25
lOt
102
103
104
105
106
101
108
109
110
III
112
113
114
115
116
111
118
IREG 016
lOIS 003
CHl21
CHL22
CHL23
RSTREG
STOPPP
108
109
CHl22
CHL23
li2
STAY
CHllO
STAY
090
CHtl2
CH1l4
111
CHtl4
119
120
121
122
123
124
125
126
121
128
129
130
IlL
132
133
134
'"
*
*
"'**********************************************************************
CHl10
0'17
CLOAO=*E40. EC lEVEl=128211
COMMENTS
***"'**"''''*******'''*******'''**'''**'''*********************'''***"'***************
092
093
094
095
096
STATEMENT
099
NOAODR
CHL24
CHOO
CHl31
123
CHL3l
CH134
129
CHL32
108
CHL22
132
208
CHlS2
SENSE
CH132
CHL52
137
CHl50
T l=Hl
SET HODE K=B8
SET MMSK K=71
Pl=OSK80
ROB 01 AS,P+O
GB/OUT=Hl
SET GA K= 20
SET GA K=24
BR If GT BIT4=1
BR If GT BIT 3= 1
BR If GT BIT 1= 1
TO=0$K22
TO=TOSK02
STH T DAf BE
RST MMSK K=11
RST MMSK K=ll
SET MODE K= 80
BAl
BR
SET GA K=20
BR I f GT BIT3=l
BR If GT BIT4=l
SET GA K=OO
RST MMSK K=71
Pi= Pl+K02
BR If HZNZ
BR
SET GA K=04
RST HMSK K= 11
BR If GT BITO=O
TO=GB/IN
TO=TOIlHl
BR If ZNZ
GB/OUT=GO
SET GA K=14
BR IF GT BIT3=O
HO=GB/IN
BR IF H03=0
SET GA K=OO
SET GA K=40
BR
Z=GOaK04
BR I f ZNZ
BR
H1=GB/IN
RDH I OA.98
BR If 002= 1
SAVE DEVICE ADDRESS
CHANNEL EXTERNALS, CPU ZONE
BL OCK All TRAP S-LEVEl 1
P= C080
GET TCU CTRL BYTE
DEVICE ADDR ON BUS OUT
SE T AODR-OUT
SET SELECT-OUT
CHECK op- IN
CHECK STATUS-IN
CHECK SElEC T-IN
SET NO ADDR COMPARE STOP CODE
OR IN BIT 6 TO STOP CODE
STORE STOP CODE
RESET THE BLOCK TRAP REGISTER
MMSK 0 SHOULD BE OFF,RST MMSK 2
RESTORE TO CPU MODE
RESTORE REGS U,V,I,G,D
STOP
RESET SElEC T-OUT
STATUS-IN
OP-IN
RESET AOOR-OUT
RESET THE BLOCK TRAP REGISTER
WAIT FOR APP. 125 MICROSECONDS
BEfORE RE-SELECTING
OP IN-RESET AODR-OUT
RESET MMSK. ALLOW RIP TRAPS
AD DR- IN
DEVICE AOOR fROM BUS IN
COMPARE ADDRESSES
ADOR MISMATCH BR
CMO OR MODE SET ON BUS OUT
CHD-OUT
ST ATUS-IN
BUS IN fOR TESTING
BUSY BIT
RESET SELECT-OUT AND ADOR OUT
ISSUE COMMANO-OUT
RETURN TO SHORT BUSY LOOP
NO T BUSY-MA SK FOR SENSE OP
BR IF NOT SENSE OP
NOT SENSE OP-GET UNIT STATUS
GE T TU C TRl B HE ADR-98
TEST IF FSR OP
PAGE 103
ADDR
WORD
17CO
I1C 2
17C4
17C6
11C8
17eA
HCC
l1CE
17DO
1702
1104
1706
1708
2238
223A
223C
223E
2240
2242
2244
2246
2248
224A
224C
Z24E
2Z 50
2Z 52
2254
2256
2258
225A
225C
2Z 5E
2202
2204
2206
2208
720A
220C
220E
2210
?2 12
2214
043A
043C
043E
0428
0421\
042C
042E
0430
0432
0434
(646
3983
2F01
3013
1FCO
4913
2085
77C8
OEC3
C406
A238
2808
A212
CA40
2848
FOBD
0616
201F
50CO
4FOF
EOC6
2B48
FOCA
2BOO
2B08
FOOl
C903
0214
0602
5549
1645
5BF9
9782
C593
5EC2
EFIO
If25
7EC2
98EA
937C
843A
2443
A25C
FCA8
2A45
97<;6
5F42
CF39
2095
3063
51CO
lFfF
6F17
SEQUENCE NO.
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHL
JCHl
JCHl
JCHL
JCHL
JCHL
JCHL
JCHL
JCHt..
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHL
JCHL
JCHL
JCHl
JCHL
JCHL
JCHL
JCHl
JCHL
JCHl
JCHL
JCHL
JCHL
JCHl
JCHL
JCHL
JCHL
JCHL
JCHL
JCHl
JCHL
JCHL
JCHL
tABEl
138
139
140
141
142
143
144
CHl51
146
148
CHl5f»
CHl51
176
158
CHl62
Oil53
CHL80
150
190
CHl80
CHl87
CHl81
155
CHL81
CHl82
CHl53
157
CHl82
CHL54
CHL55
160
161
CHl54
CHl55
168
CHL60
090
116
CHLlO
CHl62
L15
CHl64
CHl50
CHL51
145
146
147
148
149
l50
CHL56
CHl57
lSI
152
153
154
155
156
151
158
159
l~O
161
162
163
164
165
166
161
168
169
170
NEXH.ABEl
138
135
136
131
NEXTSEQ
CHl61
CHl60
111
172
173
174
115
176
171
178
179
180
181
182
183
184
185
186
187
CHl64
CHl62
CH112
IREG 016
JTPE 002
178
R5TREG
UADMCK
CHL72
166
181
CHl61
CHLll
100
CHl25
189
CHl85
CHlll
STATEMENT
BR IF OO():O
Il=IlSK08
Hl=O
Pl=Pl$K()7
SfS HI AS,P+O
Ol=IlXH+OIL
Pl=OSK80
STB 01 AS, P+ 1
Z=HO*-KOC
BR IF INZ
BR
SET GA K=40
BR
BR IF H04= 1
SET GA K=44
BR IF GT BH3= 1
BRIF 001=0
Pl=Pl+K 11
ROB PI AS,P+O
Ga/OOT=Pl
BR IF GT B1T2=0
SET GA K:44
BR IF GT BIT 3=0
SET GA K=OO
SET GA K=40
BR IF GT BIT 3= 1
BR IF GT BtT4=1
RST MMSK K=21
BR IF 001=0
GO=Gl
00=00*-K40
HI=T 1
BR
BR IF 50=1
ROH H OA, B8
BR IF H12=0
Hl=Hl*-K20
STH H DA,B8
BAl
BR
BR
GO=OSK04
BR
BR IF GS BIT 3=0
TO=0$K40
BR
ROB Hl DA.98
BR IF HIO:l
Pl=0$K90
Pl-=Pl$K06
ROB Ul AS,P+O
Hl=HlIlKFF
Hl=Hl*U 1
ClOAO=*E40, EC LEVEl=lZ8211
COMMENTS
BR IF NOT WR-WTM OP
SEIWR-WTM INO FOR USE IN TRAP
WTN BR FSR THIS OP-SET o STATUS
STATUS BYTE AODR=OO81
STORE STATUS BYTE
UPDATE LAST TU ADR BIT IN TCUBYT
TCU CTRl BYTE AOR=OO80
STORE Teu CNTl BYTE-0080
TEST FOR ANY STATUS OTHER THAN
CHANNEL END OR DEVICE END
ISSUE SERVICE OUT
CHECK CHANNEL END
I S SUE SER VICE OUT
WAIT fOR fAll OF STATUS-IN
CK IF TIE BEING PERFORMED
TIE-GET TIE BYTE IN 0092
TIE BYTE
T f E a HE ON a US-OUT
WAIT FOR RISE OF SERVICE-I N
ISSUE SERVICE OUT
WAIT FOR RISE OF STATUS-IN
RESET SElEC T-OUT
ISSUE SERVICE-OUT
WAIT FOR FALL OF STATUS-IN
WAIT FOR FALL OF OP-IN
IF ON
RESET MMSK
2
CHECK IF MODE SET
MO DE SE T PE RF ORMEO-GE T COMMA NO
RESET MODE SE T FLAG-DOl
RESTORE DEVICE ADDRESS
R ETUR N TO C HA NNEl
NOT NO[)E SET,TEST UNf T CHECK
GET FSR AND ERASE BITS-B90.1.2
ERASE LATCH-HI2
RESET ERASE BIT
RESTORE flAG BYTE IN B9
RESTORE REGS U.V,I,G,D
ERASE COMPLETE-GO 00 WRITE OP
SENSE OP-COMMANO=04
PERFORM SENSE COMMAND
TEST FOR ZERO CHANNEL STA JUS
CHNt STATUS NOT ZERO
STOP
GET EOF BLOCK MASK
BR If NOT REW OR RUN eMO
AOOR OF EOf BLOCK BITSSET P=0096
GEl EOF BLOCK BITS
INVERT MA SK
RESET EOF BLOCK BIT
PAGE 104
AOOR
WORD
0436
0438
2216
2218
221A
221C
221E
2220
2222
2224
2226
2228
222A
222C
222E
2230
2232
2234
2236
2200
0808
080A
08DC
080E
OSEO
08E2
D8E4
D8E6
08E8
0896
0898
OB9A
OA9C
089E
08AO
OBA2
08A4
OSA6
08A8
OBAA
08AC
OBAE
08BO
7FCO
9OE4
76F2
34F6
56F2
5752
2Qh5
3003
2143
5222
C72E
5111
D72E
1045
5079
02lE
2004
EC80
A234
9OE2
2B48
AA31
2095
EDOE
0917
5F1F
2B48
17C8
8aDE
2B42
F098
2BOO
2B08
C5A5
3A79
9796
2A95
0lA3
302B
5FCO
Cf56
4A26
2003
6BOB
6ACD
5E22
1fB9
7EA9
F507
0345
2AC7
9796
0882
08B4
08B6
OS88
088A
08BC
OABE
08CO
08e2
08C4
5730
SEQUENCE NO.
JCHL
JCHl
JCHL
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
JCHL
JCHL
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHl
JCHt
JCHl
JCHl
JCHl
JCHl
JCHt
JCHl
JCHl
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
JCHt
JCHl
JCHl
JCHl
JCHL
JCHl
JCHl
JCHl
JCHl
JCHl
188
189
190
19l
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
221
228
229
230
LABEL
NEXTSEQ
CHl85
CHl81
JoTA 055
202
202
CHl'W
CHL91
WRENo
SENSE
207
205
JDTA 054
222
CHl92
211
211
211
CHl96
CHl97
218
224
SENCHK 0
CHL94
CHl93
lOO
223
250
231
232
233
234
235
236
237
238
239
240
250
240
100
CHlAO
NEXT LABEL
STATEMENT
STB H1 AS.P
BR
STH o oA.BE
SET MODE K=BF
RoH o oA, BE
ROB 01 oA,9A
UO=OSK60
UO=UO$KOo
Ul=0$K04
RDH V OA, ac
BR IF 010=0
CHL90
Ul=UIX
CHUO
BR IF 011=0
UO"'UO*-K40
ol=UO
RST MMSK K-=ll
SET GB K=20
WRENO
BR IF GS2=0
CHl91
BR
oTAEND
BR
SET GA K:44
SENCHK N BR IF HO=NZ
Pl=OSK90
BR IF GT2=0
CHl92
CHL96
BR IF Pl BIT5=1
Ol=GBI IN
SET GA K=44
STB 01 AS,P+1
CHl92
BR
SET GA K;14
CHl91
BR IF GT3=O
SET GA K=OO
SET GA K=40
CHl93
BR IF SO= 1
TO=0-K10
CHL25
BR
TO=O$K90
CHl94
BR IF S5=1
Pl=PI-K02
ROB Hl AS,P
BR IF HI0=O
NONOIS
T=V
UO=OSKOD
T lC=T 1+UO
TOC=TO+PO+C
ROH H OA t 8C
HIC=HI-T I.C
HOC=HO-TO.C
BR IF S3=1
NONOIS
CHlAO
BR IF 015=1
TO:O$KCC
BR
CHL25
ROB 01 V.O
oTA23
CLOAo=*E40, EC LEVEL=129211
COMMENTS
STORE EOF BLOCK BITS IN 0096
MOVE DO flAGS TO CHNl ZONE
SET CHNl MODE AND ZONE
FLAGS NOW IN CHANNEL ZONE
GET 000 REDUN AND 9-TRK FLAGS
FORM WORD SEPARATOR=6o FOR
EVEN REDUNDANCY
EVEN REDUNDANCY MASK=04
GET DATA ADDR-=B-STAR
CK IF EVEN REDUNDANCY
000 REDUNDANCY MASK-=40
CK IF7-TRACK TAPE
9-TRK-MAKE WS-=2D FOR 000 REOUN
SAVE WS FOR TE STI NG
ALLOW LEVEL 1 TRAPS
SET BURST MODE LATCH
BR IF BURST 'LATCH OFF
WAIT FOR TRAPS
GO TO WR I TE END ROUTI NE
ISSUE SERVICE OUT
TEST FOR STATUS NON-ZERO
SET UP STARTING AoOR-0090
CHECK IF SERV-IN IS UP
8R IF SENSE ByTES 0-3 COMPLETED
GET SEN SE BVIE
SEl-OUT AND SERVICE-OUT
STORE SENSE BYTES IN AS 0090-3
GET NEXT SENSE BYTE
SET COM-OUT
WAIT FOR STATUS-IN
RESET SELECT-OUT
ISSUE SERVICE-OUT
BR IF UNIT CHECK ON READ OP
TAPE INT. REQUIRED-SET SF HALT
SET-UNIT CHK ON IPl-STOP CODE
BR IF IPl
SE T AoOR TO 0091
READ SENSE BYTE 1
BR IF NOI SE BIT OFF
GET STARTING B-STAR ADOR.
SET COUNT OF 13
ADD 13 TO B-STAR
PO=O
GET ENDING B-STAR
SUBTACT INCREMENTED B-STAR
FROM ENDING 8-STAR
CK IF LESS THAN 13 CHARACTERS
CK PHASE-ENCODED BIT IN SENSE 3
SET UP STOP COOE-CE
RESTORE lS AND STOP
GET STORED DATA LOCATIONS. BLANK
PAGE 105
"DOR
WORD
JHC6
1)8C8
,)8CA
07FB
C4CF
571B
17B5
7738
20FF
C4C4
90E2
90E4
osce
(l8CE
,)tlOO
)802
Ut:lD4
0806
SEQUENCE NO.
JCHl
JCHl
JCHL
JCHL
JCHl
JCHL
JCHL
JCHl
JCHl
JCHI.
241
242
243
244
245
246
247
248
249
250
LABEL
NEXTSEQ
*
246
CHUI
NONDI S
240
JOTA 054
JDTA 055
NEXTlA8El
0813
090
096
099
100
107
108
109
112
115
111
123
129
132
137
138
146
148
150
155
157
158
160
161
166
168
175
176
118
un
189
190
JC~L
202
205·
207
208
211
217
JChL
JCHl
222
2UI
JaDE
JCHL
JCHL
JCHL
JCHl
JCHl
JCHL
JCHl
JCHL
JCHl
JCHL
JCHL
JCHL
JCHL
JCHl
JCHL
JCHl
JCHl
JCHl
JCHL
JCHl
JCHt
JCHl
JCHl
JCHl
JCHL
JCHl
JCHL
JCHl
JCHl
JCHl
JCHl
JCHL
JCHle
JCHl
JCHl
JCHl
JCHL
JCHL
JCHl
081
114
OS8
120
180
097
108
109
113
0<)6
117
123
125
130
134
135
144
145
150
155
157
••• *•••••• ****.*.** ••••• *•••• *•• **
CROSS REFERENCE FOR CSECT JCHL •
*.***.* •• *•• **.**** •••• *.***.* ••••
148
JCHl 167
JCHl 223
JCHL 128
JEND 128
160
IH
177
163
170
147
175
178
182
JCHl 168
151
198
200
205
131
211
212
218
209
JCHL 200
JCHL 216
JCHl 239
CLOAO-=·E40, EC LEVEL=128211
COMMENTS
OUT THE FIRST 13 LOCAT IONS. SAVE ANY GMWM AND ANY WORD MARKS
TE ST FOR GMWM
Z=DloKOF
BR IF Z=O
CHLAl
SE T BLANK .AND
Dl=DIH
SA VE WOROMARK
Dl=Dl·-KBO
STORE BLANKED OUT DATA
STB 01 V+l
DECREMENT COUNTER
UO=UO+KFF
Z= 0= 12 CHAIUC TERS BLANKED OUT
BR IF ZNZ
CHlAO
BR
OT AEND
BR
OTA23
*
JC Hl
JC HL
JChL
JC HL
JCHL
JCHL
JCHL
JCHl
JC Hl
JCHL
JC Hl
JC HL
JCHL
JCHL
JCHl
JCHl
JCHL
JC HL
JCHL
JCHl
JCHL
JCH
JCHl
JCHL
JCHL
JCHt
JCHL
JCHL
JCHL
JCHL
JChL
JChL
JChL
JCHL
JCHL
JCHL
JCHL
STATEMENT
JEND 080
PAGE 106
ClOAD=*E40, EC LE VEL=1282 11
**********************************
*
CROSS REFERENCE FOR CSECT JCHl
*
**********************************
J CHl
JC Hl
JCHl
JCHL
JCHL
223
224
240
246
250
JCHl
JCHl
JCHl
JCHl
JCHl
225
221
237
243
228
JCHl 248
JCHl 236
PAGE 107
CLOAD=*E40, EC lEVEl-=128211
JOTA
DESCRIPTIVE
PAGE 108
TEXT
ENTIn POINTS
CONTROL OPERATIONS.
0170
NORMAL ENTRY POINT FOR READ OR WRITE TRAPS FROM
JCHL.
OBJECTIVES
1.
SERVICE TAPE CONTROL FOR READ OR WRITE DATA.
2.
TEST FOR GMWM IN STORAGE.
3.
RESET BURST LATCH.
4.
HANDLE WORD MARKS AND WORD SEPARATORS TO AND FROM
TAPE.
DUEND
NORMAL ENTRY FROM JCHl WHEN BURST MODE LATCH IS
OFF (INDICATING DATA END) DURING WRITE OPS. ALSO
USED AS ENTRY AFTER SOME SENSE OPSFOLlOWING A
READ ERROR.
OTA23
ENTERED FROM JCHL.
ADDR
0170
0112
0174
0176
200E
2010
2012
2014
2016
.2018
201A
20IC
20 IE
2020
2022
2024
2026
2028
2030
2032
202A
202C
202E
2034
2036
2038
WORD
2240
elf7
A046
AOOE
5F4F
2B48
5419
5530
05FB
C4Bl
E234
1145
5709
6041
C4AB
1623
7138
0240
019B
0240
E221
3623
0240
3145
F21E
0527
SEQUENCE NO.
JOTA 001
JDTA 002
JO TA 003
JDTA 004
JDTA 005
JDTA 006
JOTA 001
JDTA 008
.IOTA 009
JO TA 010
JOTA 011
JO TA 012
JO fA 013
JDTA 014
JDTA 015
JDTA 016
JOTA 011
JDTA 018
JD TA 019
JD TA 020
JDTA 021
JOTA 022
JOTA 023
JOrA 024
JDTA 025
JOTA 026
JD TA021
JDTA 028
.IOTA 029
LABEL
T
ATABLE
RO
UNO
READ
NORMAL ENDING FOR READ AND
NEXTSEQ
NEXTLABEl
STATEMENT
1401 TAPE READ AND WRITE DATA LOOPS
ADDR;:0170
LINK G MMSK()= 1
006 RD
BR IF S4=1
033 WRIT E
BR
008 READ
BR
GO=GB/IN
SET GA K=44
Ul=GO
ROB G1 V.O
Z:GIDKOF
022
027
DT A15
OT All
024
WSSENT
OTA15
014
DT AlO
WSSENT
020
DT A12
016
020
LOAD
OT A12
DrAIO
LOAD
DrAl2
DTAll
BR IF Z=()
BR IF 006=0
Ul=U 1*-K40
UO=Ol
UO=UOIlGO
BR IF Z=O
00=DO*-K02
STB Ul V+l
RTN G MMSKO=O
BR If S5=1
RTN G MMSKO=O
BR IF 006= 1
DO=DO$K02
RTN G MMSKO=O
Ul=Ul$K40
BR If 007=0
BR IF Gll: 1
COMMENTS
BLOCK LOWER PRIORITY TRAPS
CK IF READ OP
00 WRITE DATA LOOP
DO READ DATA LOOP
GET READ DATA IN FROM TAPE
ISSUE SERVICE-OUT
SAVE READ DATA
GET NEXT STORAGE LOCATION
IE ST FOR GM WM
IN STORAGE
WAS WORD SEPARATOR SENT LAST
WS SENT LAST-INSERT WD MARK
RESTORE WS FOR TEST
TEST DATA BYTE FOR WORD
SEPARATOR CHARACTER
NO WS THIS-RESET WS LAST FLAG
STORE DATA
ALLOW TRAPS-WAIT FOR SERV-IN
CK IF IPL
ALLOW TRAPS
WAS WS SENT LAST
SET WS SENT LAST fLAG
ALLOW TRAPS-WAIT FOR SERVICE-IN
NO WS-REST ~M BIT IN DATA BYTEV
CK IF READ-LOAD OP
TEST IF WO MARK IN STORAGE
ADOR.
WORD
20"3A
203C
203E
2046
2048
204A
2D4C
21J4E
1145
7138
0240
E255
5538
05H
C4Bf
0536
517B
AD58
F251
3623
4FOF
AD5C
l623
5113
6571
4F5F
2B48
0240
2800
2B02
0004
0240
7222
C9E5
3400
0214
0210
021E
98EA
2085
3073
C If9
El1D
200B
2D':>O
2052
2036
2038
203A
203e
2054
2056
2058
205A
205C
20SE
2D3E
2040
2042
2D44
1DE2
10E4
WEb
LOE8
lDEA
lOEC
WEE
IDFO
lOF2
IDF4
IDF6
10F8
lOFA
lOFC
JDTA
JOTA
JOTA
JOTA
JOTA
JDTA
JIHA
JOTA
JOTA
JOTA
JDTA
JOTA
SEQUENCE NO.
JOTA
JDTA
JDTA
JDTA
JOTA
JDTA
JDTA
JOTA
JOTA
JO TA
JOTA
JIHA
JOTA
JDTA
JOTA
JOTA
JOTA
JOTA
JOTA
JOrA
JOTA
JOfA
JOTA
JOTA
JOTA
JDTA
JOTA
JOTA
JOfA
JOTA
JOTA
JOTA
JO fA
JDTA
JOTA
JOTA
JOTA
JOTA
72CO
807C
006
008
014
016
020
022
024
027
033
040
044
045
JDTA
JOlA
JOTA
JOTA
JOlA
JDTA
JOTA
JOTA
JOTA
Jon
JOTA
JOTA
030
031
032
033
034
035
036
031
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
060
06l
062
063
064
065
06&
061
LABEL
WRI IE
044
050
040
WMINST
046
045
048
WRLOAO
OTA22
OTA21
OTA24
GMWM
OTAEND
OTA23
055
IREG 016
0&5
061
DONE
END
004
1306
022
028
024
013
018
014
005
037
033
040
NEXTSEQ
JOTA 029
ICYC 037
NEXTLABEl
STATEMENT
CLOAO=*E40, EC lE VEl=128211
COMMENTS
SET 104M IN DATA BYTE
U1;Ul*-K40
STORE DATA
STB U1 V+l
ALLOW TRAPS-WAIT FOR SERV-I N
RTN G MMSKO=O
CK IF WS SENT LAST
WRLOAO
BR IF 006= 1
GE T OA TA FROM STORAGE
ROB Gl V+l
WM-TEST IF GMWM
I=GlaKOF
GMWM
BR IF 1=0
WMINST
NO WS LAST-CK IF WM IN STORAGE
8R IF Gl1=0
NO WM-CORRECT REDUNDANCY
01=UIH
DTA21
BR
BR IF 007=1
CK IF MOVE OP
OTA22
SET WS SENT LAST FLAG
00=00$K02
SEND WORD SEPARATOR
GB/OUT=UO
OTA24
BR
RESET WS SENT LAST FLAG-006
00=00*-1<.02
CaRR EC T RED UNOANC Y
Ol=UIXH
G1=GlaOI.
DATA ON BUS OUT TO TAPE
GB/OUT=GL
SERVICE AND SElEC TOUT UP
SET GA K=44
RTN G MMSKO=O
ALLOW SERV-IN TRAPS
RE SET SElEC T-OUT
SET GA K=OO
ISSUE CMO-OUT
SET GA K=10
RST BURST MODE LATCH
RST G8 K=20
RTN FOR POSSIBLE LO TRP CaMP
RTN G MMSKO=O
SAVE LAST B-STAR FOR RESTORE lS
SfHV OA,8C
WAIT FOR FALL OF OP-IN
OTA23
BR If GT Bn4= L
SET CPU ZONE
SET MODE K=80
RESET MMSK 2 IF ON
Rsr MMSK K=21
RE SET MMSK o & 2 IF ON
R5T MMSK K:O 1
RESET MMSK1. IF ON
RST MMSK K=11
RESTORE REGS U,V,I,G,D
RSTREG
BAl
Pl:0$K80
1'= 0087-ADOR OF STATUS BYTE
Pl=PUK07
BR IF 54= 1
BR IF READ OP
DONE
BR IF CONTROl-U 01'
END
BR IF Gl BIT 6= 1
0- ST AR AOOR, 0094- 5
Pl=Pl+KOO
STORE B-STAR IN O-STAR
STH V AS,P+O
TAPE SEl END 8R END
HISTRT
BR
**********************************
* CROSS REfERENCE FOR CSECT JOTA *
**********************************
PAGE 109
ClOAO=*E40, EC LEVEL=128211
**********************************
*
CROSS REFERENCE FOR eSECT JOTA
*
**********************************
JDTA 046
JOTA 048
JJTA
JDTA
J [H A
JDTA
JDTA
050
054
055
065
067
JDTA
JDTA
JOTA
JCHL
JCHL
JDTA
JDlA
039
043
036
201
189
0(;3
064
JCHL 249
JCHL 250
JOTA 055
PAGE 110
CLOAD=*E40, EC LE VE L=1282 11
JEND
DESCRIPTIVE
0180
THIS IS THE MAJOR ENTRY TO THIS ROUTINE. TRAP TO
THIS ADDRESS IS THE NORMAL READ ENDING ROUTINE
FROM JCHl. ENTRY CAN ALSO BE A RESULT OF DEVICE
END FROM ANY CHANNEL DEVICE~
EOR
ENTRY AT THIS POINT IS fROM THE IBCH ROUTINE fOR
A BRANCH ON END Of REEL CONDITION.
ERROR
ENTRY AT THIS POINT IS FROM THE IBCH ROUTINE fOR
BRANCH ON TAPE ERROR CONDITION.
J180
0182
,) 184
,)186
JFAO
OFA2
OFA4
OfA6
OfA8
OFAA
0FAC
JfAE
OF BO
OFB2
OFB4
OFB6
OFB8
OFBA
OFBC
OFBE
OF CO
OFC2
OFC4
OFC6
OFC8
WORD
2204
fD86
<1ACA
8FAO
2B40
COAB
00A3
2BOO
0204
2600
5FEF
2B02
fDBO
5FFf
2B08
2C07
2085
57CO
5731
63El
EO<14
207B
55CO
555<)
C4<14
SEQUENCE NO.
JEND
JENO
JENO
JEND
JEND
JENO
JENO
JEND
JEND
JEND
JENO
JEND
JEND
JEND
JEND
JEND
JENO
JENO
JENO
JEND
JENO
JEND
JENO
JENO
JENO
JEND
JENO
JENO
TEXT
08JECTIVES
ENTRY POINTS
ADDR
PAGE III
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
LABEL
NEXTSEQ
NEXH.. ABEl
STAT EHENT
1.
ENDING STATUS.
2.
CHECK FOR SHORT RECORDS (EARLY DISCONNECTl DURING
WRITE OPS.
3.
GENERATE GMWM FOR END OF READ FIELD.
4.
HANDLE TAPE MARKS.
5.
STORE B-STAR IN BACK-UP AREA.
6.
FLAG UNIT CHECK fOR POSSIBLE TIE OPERATION.
COMMENTS
1401 TAPE ENDING ROUTINE ANO RDR-PUNCH REQ-IN
ADDR=0180
II NK lJ MMSK2= 1
CHNL lOW PRIORITY-PREVENT TRAPS
BR IF GT3",O
006 RDRPCH
TEST STATUS-IN
BR
059 ENDING
BR
TRAP FROM RDR-PUNCH REQ-IN
008 REQIN
RDRPCH
AENO
SET GA K=04
ISSUE SELECT OUT
REQIN
BR (f GT BIT 0= 1
BR IF ADDR-IN
013 ADOR
CKADDR
BR If GTl= 1
009 (KADOR
BR IF NOT SELECT-IN
SET GA K=OO
SELECT-IN. RESET SELECT-OUT
RTN U I4MSK2=0
RETURN TO MAIN PROGRAM
SET GA K=OO
AOOR-IN, RE SET SElEC T-OUT
ADDR
HO=GBIIN
PUT ADDRESS IN HO
SET GA K= 10
ISSUE COMMAND OUT
BR IF GT3=0
WAIT FOR STATUS IN
016 Sf ATUS
STATUS
Hl=G8/IN
PUT STATUS IN Hl
SET GA K=40
SET SERVICE OUT
PO=O
SET P FOR
Pl=OSK80
READ-OUT OF
ROB 01 AS,P
TAPE ADDRESS
Vl=OlX
Vl=VlIIHO
LOOK AT CONTROL UNIT ADDRESS
BR IF HZNZ
BR IF NOT TAPE ADDRESS
053 NOT APE
Pl=Pl+K07
SET P fOR
READ-OUT Of TAPE STATUS 8YTE
ROB Gl AS.P
Gl=Gl
PUT Gl ON SUS fOR TESTI NG
SR IF INZ
BR IF STATUS NON-ZERO
053 NOT APE
T
ArABLE
AODR
WORD
OFCA
OFCC
OFCE
OFDO
OFD2
OF04
OF06
OFDd
OFOA
OFOC
OFOE
OHO
OFf2
OFE4
OF80
OF82
OFB4
aF86
()F 88
OF 8A
0f'8C
OF8E
OF 90
OF92
llF 94
!)F96
OF 98
Of9A
,)F 9C
OF9E
lACA
LACC
lACE
1ADO
1A02
1A04
1A06
1 A 08
lAOA
lADC
lADE
lAfO
1A E:2
LAE4
1AE6
lA E 8
1A FA
tAfC
lA88
lA8A
lABC
1A 8E
lA90
7fCO
fB14
4705
1083
55CO
CHO
2007
2195
3163
5300
2215
0764
5221
871F
6223
6223
6223
5249
6237
(494
6345
7300
3515
75CO
5C62
lCE5
6CE 1
C49F
8fE6
A94C
5F5f
OQ04
C188
1623
0191
5130
OlFB
C493
11B 7
f26l
2145
3lF3
E213
F 112
3135
7138
3623
9A04
7222
2B08
2A55
97<;6
3lB9
SEQUENCE NO.
JENO
JEND
JEND
JEND
JEND
JENO
J.ENO
JENO
JENO
JENO
JEND
JENO
JEND
JENO
JENO
JEND
JEND
JEND
JENO
JENO
JENO
JEND
JEND
JENO
JEND
JENO
JENO
JENO
JENO
JEND
JEND
JENO
JEND
JENO
JENO
JEND
JENO
JENO
JENO
JEND
JEND
JENO
JEND
JENO
JENO
JEND
JEND
JENO
JEND
JEND
JfNO
JEND
JENO
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
06B
069
070
071
072
073
074
075
076
017
078
079
080
081
NEXTSEQ
UBEL
CHL43
CHL45
CHL45
CHL45
CHl45
NEXH.ABEL
053
NOTAPE
051
CHL44
042
CHL43
043
CHL45
053
NOT APE
058
147
159
151443
NOH43
43ST AT
0
1
2
3
CHl44
NOTAPE
151441
ENDING
077
WRST[N
081
I Pi
082
STORE
070
MOVE
082
OB2
STORE
STORE
064
EN012
EN012
MOVE
WRST! N
JCHL 100
I PL
CHL25
N
STATEMENT
STB HI AS.P
BR I f H17=0
Pl=OlXUPlH
Pl=Pl*-K08
ROB Gl AS.P+O
BR I f 010=0
UO=O
U 1=()SK90
lJ l=U 1$K()6
ROB VI AS.U+O
VO=OSKI0
BR IF 011=0
VQ=VOX
N=Dl BITS23
VO=V()+VO
V()=VO+V()
VO=VO+VO
GO=VO
VO",V()*Vl
BR I f ZNZ
V1=\l1$GO
STB VI AS.U+O
Gl=GUKlO
ST8 Gl AS.P+O
RDH P DA t CJC
PO=PO*-KEO
PO=POIlHO
BR IF Z=O
BR
BR
G1:G81 IN
RST GB K=20
8R IF S4=0
OO:OO*-K02
BR IF S5=1
ROB Ul V+O
Z=UIIlKOF
BR IF Z=O
Ul=Ul*-KB8
8R IF 007= 1
Ul=0$K40
Ul=UUKOF
BR .[F 006= 1
Btl. IF G17=O
Ul=Ul$K30
ST8 Ul V+l
OO=DOSK02
8R
STH V DA.8e
SET GA K=40
TO=0$K50
BR
Ul=O-KBO
CLOAD=*E4-0. EC LEVEl=ll8l11
COMMENTS
STORE NEW STATUS BYTE
TEST UNIT EXCEPTION BIT
AOOR Of LAST TU CTRL 8YTE=008X
CLEAR WR-WTM BIT fROM AOOR
GET LAST TU C TRL BYTE
BR I f NOT WR-WTM OP LAST
0096-AOOR OF EOF BLOCK
BITS 1-6
GET EOf BLOCK BITS
CONSTANT FOR EOF BL BI T TESTING
IS TAPE UA=XOXX
NO-CHANGE TEST CONSTANT TO 01
TEST 1400 TAPE UNIT ADDRESS
PREPARE
EOF BLOCK
BIT POINTER
SAVE EDF BLOCK BIT POINTER
TEST IF BuiCK
BIT IS ON
BLOCK BIT OFF-SET BLOCK BIT
STORE 8LOCK BITS IN 0096
SET EOf 81T 3 IN TO CTRl BYTE
STORE TU CTRl 8YTE IN 008X
READ OUT 1443 ADORE SS
CL EAR NON-ADORE SS BITS
TE ST ADDRESS
BR IF 1443 ADORE SS
GET STATUS BYTE fROM TAPE
RST BURST MODE LATCH
CK IF WRITE OP
RESET loiS LAST FLAG
BR IF IPL
CONTENTS OF NEXT OA TA lOCA nON
TEST FOR GMWM
IN STORAGE
NO GMWM-SAVE WM BIT POSITION
BR IF MOVE OP
LOAD OP-CLEAR WM
Ul=GM=4f OR GMWM-OF
CK IF TAPE MARK STOREO LAST
8R IF NOT UNIT EXCEPTION
TAPE MARK, 3F OR 7F
STORE TAPE MARK
SET 1M STORED LAST FlAG-D06
GET 8-STAR READY fOR CPU ZONE
ISSUE SERVICE OUT
STOP CODE =52-EARLY TAPE DISC.
STORE STOP CODE AND STOP
IPl. SET GROUP MARK-4f
PAGE 112
CtOAO=*E~O.
AOOR
WORD
U92
7138
20n
2185
111. 94
1A90
lA98
1A9A
3173
lA<:4
lAC6
lACS
111.80
111.82
LA84
lA 86
111.11.2
5752
C743
D422
9AC4
0423
f127
7500
9A82
5EC2
CF47
3523
JTYP
JTVP
JTYP
J TV!>
J TYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTVP
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
058
060
064
065
066
061
068
069
070
071
012
013
014
075
016
017
018
019
080
081
082
083
084
085
086
081
088
LABEL
NEXTSEQ
129
NEXT LABEl
ATTENT
RE SREG
GF1X
085
JVPE 008
010
051
SEeBH
LABEL
RT
Exnz
RT
080
GETWR
081
OKNOW
GETWR
OKNOW
INRU 030
STOPCK
SECBI T
TRY
114
TRYRD
136
MlOP
091
NOTSUM
IRST 004
102
I REG 012
SUMMIT
STOPCD
I NRU 030
104
STOPCK
PASSl
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
101
108
109
110
111
li2
113
114
NOT SUM
S~RUVI
EXI TA
STOPCD
PASS1
PASS4
PASS2
PASS3
TRYRD
109
PASS4
no
PASS2
113
PASS3
STOPPP
STOP
NNRTRR
lOIS 003
lOIS 010
121
Sf ATEMENT
BAL
UO'=0$K10
Ul=0$K40
RDH V AS,U+2
RDH 0 AS,U+2
RDH G AS.U+2
RDH I AS,U+2
RDH T AS.U+Z
RDH P AS t U+2
RDH H DAtU
BR IF HO BIT4=O
BR
BR IF TT 1= 1
8R
ROB HI AS t U-l
BR IF HIO=O
SET T A K=82
BR
SET T A K=40
RST T A K=02
SET MODE K=80
MW=Ul
8R
RDH H AS,U+2
ROH U OA,8E
RDH P DA,AA
BR IF PO BIT 2=0
RST T A K=E2
RST S K=84
PO=PO*-K30
BR IF POO=O
STH P DA,AA
BR IF TT1=0
RST BC K=Ol
BR
BR If TU3= I
BAL
RST S6
SET MODE K= 80
BR
BR IF S4=0
RST TA K=lO
RDH H OA,BE
SET MODE K=80
BR If BSO= 1
Z=HO+KO 1
BR IF lZ=O
HO=0-K20
STHHOA,BE
BR IF S4= 1
BR
BR
BR IF TV BlTO=l
CLOAD=*E40, EC LEVEl=128211
COMMENTS
CHECK ATTENTION
RESTORE
CPU
ZONE
REGS
IN
AUX
CHECK FOR JYPE ROUTINE ENTRY
NORMAL TYPE BRANCH
GO DISPLAY
RESTORE H REG
RE STORE A STAR
GET STATUS FOR TESTING
BR NOT SECONDARY BIT
RESET RUN MOOE.SHARE REQ
RST SO S5
MOVE OR LOAD RTN TO I CYCLE
STORE BLANK 1052 STATUS EXC ER.H
NOT CHECK SUM OPERATION
RST LOG l TCH IN CASE LAST ENTRY
ALTER DISPLAY ACTIVE BRANCH
SAVE REGS IN CASE START/RST USED
ALLOW EXIT fROM SOfT STOP
TRY
t
CYCLE START
NO T A CON SOLE F UNC TI ON
RST ACTIVE FOR C.INTP. ONLY
CHECK CODED HALT
SET CPU MODE AND ZONE
USE DF CODE IF SOFT STOP IS OFF
CHECK FOR XF STOP CODE FROM HALT
SETUP OF AS HALT CODE
STORE APPROPRIATE CODE
SENSE INfO IN AlREADY
PUT SENSE SWITCH BYTE IN DiSPLAY
PUT NEW S SW OR TAPE SETTING IN
READ LATCH
PAGE 125
,\001{
WORD
:HIl
OFC7
EICB
FECE
92EC
9F5J:
A40C
FFE5
890E
C249
C lEC
DFEF
8536
8376
ACOE
CEEA
FHB
5C 82
30lJ
7C82
OFlO
128E
3C 85
7C92
2C05
3400
BD7e
:H14
')316
) j 18
134E
H,)()
1346
;)-)48
)364
,)366
J>68
036A
,)3 6E
,B6C
1 F 5E
li- 60
1 F 62
11'64
11' 66
IF68
IFOA
J3iA
031C
·)"11 E
H2O
.) 322
12 EC
12H
12F 0
12F2
12f- 4
12F 6
12Fii
12F-A
12FC
12FE
2COE
2e 10
2C 12
2C14
2C 16
2C2C
2CZE
2C30
2C 32
2C 34
2C36
2e38
2e3A
2CJC
2C3E
2C40
3F22
3C <;5
.5C58
16f 3
7C92
lOCO
2EOS
2f73
7EEZ
A416
DAAB
F214
8BbE
CFAO
A406
5AEf
OE3F
C499
EOA3
DIU
2F25
3F73
6FEt
C4AA
2E1D
5EF9
SEQUENCE NO.
JTYP
JTVP
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
J TYp
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JT'lP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
LABEL
115
116
117
11B
119
PASSME
120
121
122
123
124
125
126
127
128
129
130
NNRTRR
STAR TO
INITl
NEXTSEQ
121
014
119
142
129
051
123
265
122
128
127
PASSS
SKPSKP
A TTENT
322
480
152
135
135
131
132
133
134
135
l36
fORGET
MLOP
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
1.55
156
151
158
159
160
161
162
IC YC 037
027
178
155
24-3
fiRST
BACK
CKFRsr
157
022
169
174
178
1b3
164
165
166
167
118
CLOAO=*E4-0, EC tE VEl=128211
COMMENTS
STATEMENT
BR IF TU BIT 1=1
BR IF S6= 1
BR IF TT BIT 3=0
BR
BAL
BR
BR IF TU Blf3=l
BR
BR IF 00 BIT 4=1
BR IF S4=0
BR IF TU BIT 1=1
BR
BR
BR
BR IF TT BIT (}:O
BR IF TU BIT 3:1
ROH P OA, AB
Pl=Pl$l(02
STH P OA,A8
RST T A K:O 1
RTN
PO=POSK80
STH P DA,AA
PO=OSKOO
SET MODE K=80
HISTRT
BR
ALTER DISPLAY SET UP
SET TA K=92
PO=POSK90
Gl=POH
OO=OO*-KOf
STH I' OA, AA
RSf S K=8C
HO=OSKOO
Hl=OSK07
STH H DA,BC
BR
STORE
BR IF TT 5=1
ERR4
BR IF 007=0
fIRST
BR
ADCOHp
BR IF TU BITO:l
CKfRST
BR
SETRDL
HO=TI
Z=HOIlK33
BR IF Z=O
CTRLA
BR IF HZ=O
TESTfT
BR IF S 5=0
ERR4
H1=OSK20
Hl=Hl$K07
H1:HIIlHO
BR IF ZNl
ERR4
NNRTRR
GFiX
PASSME
SHADA
ArrENT
FXIlZ
INHL
BEGIN
ST ARlO
SKPSKP
PASS5
TRAN
TE
SHAD
FORGET
FORGET
**
* SETAOA
SETAD
NEXTlABEL
HO=HO~K70
Hl=HO
WR HE LA TCH ON
NOT ALTER DISPLAY
AL T 01 SPLAY
CHECK ATTENTION
EXIT
NOT RUN MODE
All 01 SPLA Y AC TI VE
VIA INRU
ALTER DISPLAY SET TO GO
WR tTE lA TCH ON HERE FOR LI NE FO.
00 CHAR FOR CONSOLE INTERRUPT
GO 00 UNEFEED
NOT ATTENTION
ALTER DISPLAY ACTIVE
SET
INQUIRY
FLAG
RE SET ATTENTION
STORE STATUS
SET CPU MODE AND ZONE
RETURN TO I C YUES
SET REAO,INllIALIZE,AtD ACTIVE
IN MANUAL,lOAD MODE IN STATUS
Gl CHANGED HAN lOAD fORCE,H IF
RSl 00 LOW FOUR BI TS
STORE STATUS
R ST SO AND4ANO 5
OR
IN ITIALIZE B STAR BACK UP
STORE CONTROL DIGIT STATS
GO BACK SOFT SlOP
AL TERNATE caOE IS INVALIO
COUNT ZERO
BR IF READ LATCH
SET READ
pur 1ST CHAR ON BUSS IN
CHECK FOR C
IS A C
A IHRU I POSSIBLE
1ST CHAR
ERROR IF
2ND CHARTESt FOR
I'
IF NOT P, ERROR
CHANGE TO 97 FOR t> ON BUS OUT
PAGE 126
ADDK
WORD
SEQUENCE NO.
LABEL
2C42
A516
2C 1 B
DlAA
C TRLA
2C lA
E21F
J TVP 168
J TYP 169
JTYP 170
?CIC
C9AA
HYP 171
2C lE
2C20
2C 22
2C24
3583
8538
OE4B
F 081
DE IB
F081
8370
Dl8A
35C3
8538
3623
DlAB
3643
8538
JTYP
JTYP
JTYP
J TVP
JTYP
J TVP
JTYP
JTYP
JTYP
JTYP
J TYP
J TVp
JTYP
JTYP
JTYP
JT'YP
J TYP
JTYP
J TVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JlYP
J TYP
JTYP
J TYP
JTYP
JTYP
J TYP
JTYP
J TYP
JTYP
~C26
2C2 B
2C2A
2COO
2C02
7.C04
2e06
7.C08
2COA
lcac
-!4FE
2500
,'502
,>'504
2.,06
?508
250A
250C
250E
2510
2512
2514
Z':i16
/')18
251A
251C
251E
OHD
EOA3
2e15
3e93
6CF3
F48C
8310
E125
F2lD
0191
2040
AS18
3b13
4HF
A41b
e123
DIA3
2520
8370
2522
0040
2524
5FE 1
2526
2528
6EF9
El2C
252A
814E
252C
5CE2
093F
E939
F951
3523
8C08
7CE2
4FFF
E 133
A416
5EC3
104B
252E
2530
2532
2534
2536
2E2A
2E2C
2E2E
2E 30
253E
2540
172
DOMORE
113
174
IE STF T
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
190
197
198
199
200
201
202
203
204
205
206
207
JTYP 208
JTYP 209
J TVP
JTV?
JTYP
J TV?
JTYP
JTYP
JTYP
JTYP
J TVI'
JTYP
JTVP
ERR4
AL TCK
ADDR
ERR4
DOMORE
ERR4
323
TRANSB
182
DISPLY
179
471
184
ALTCK
ALTOYE
ALTER
323
TRANS B
178
ERR4
323
TRANSB
204
01 G
ADRTN
CKCNT
193
417
205
201
198
CKCNT
AL TDYE
MIX
CKMAN
ADDR
199
PUTCHR
027
204
204
417
STORE
01 G
DIG
AU DYE
209
489
SHBY
CSALT
219
235
238
ONE
TWO
THREE
241
fOURTH
ADDR
PUTCHR
CKMAN
DIG
MIX
SETBY
212
213
214
BUllO
241
027
217
2 L8
220
198
178
172
178
ALTER
211
219
NEXTLABEL
01 SPLV
210
215
216
NEXTSEQ
ONE
CKKEY
STORE
STATEMENT
BR
BR I f S5=0
BR IF 006=1
BR IF T04=0
G1=Gl$K08
BR
l=HOIlK04
BR IF ll::O
l=HoaK01
BR IF LI=O
BR
BR I f S5=0
Gl=Gl$ROC
BR
DO=DOSK02
BR IF S5= 1
DO=DO.sK04
BR
I=HlaKFO
BR [ f HZ=O
PO=O$K10
PO=PO$K09
PO=PO+Hl
BR I f AC=O
BR
BR IF Gl BITt..=l
BR If DO Bn7::L
BR IF 55=1
SET S5
BR
DO=DOSKOl
TE=Hl
BR
BR IF Gl BIT4=l
BR If S5=1
BR
RST S5
HO=HIX
HOC=HO+Hl+l
BR IF Gl BIT6=0
BR
ROH P DA,BC
BR IF PI BIT5=l
BR IF PI BIT6= 1
BR IF PI BlT7=l
Gl=GUK02
BR
STH P OA~Be
TE=Hl
BR IF G1 BIT6=!
BR
PO=HOXH
Pl=PlaK04
ClOAD=*E40, EC LEVEL=12B211
COMMENTS
READY FOR ADDRESS NEXT TIME
C VALID FOR 2ND CHAR ONLY
OKAY IF DISPLAY OP
ALTER CONTROL OK IF CE KEY IS ON
CONTROL STORE OP
DO TRANSLATE
IS IT A 0
YES 00 A DISPLAY OP
IS IT A
CHECK FOR EITHER
ALTER OP ,AUX
INPUT ERROR GET OUT
1ST CHAR A MEANS ALTER OP
SET STATS FOR
AUX OP
DO TRAN SLATE
SET
DO BlTo FOR DISPLAY
SET
DO BITS FOR TRANS TABLE CTL
GO TO TRANSLATE TABLE
HOIN,HIOT
TEST FOR NUMERIC
BUILD CONSTANT TO TEST
TRANSLATED CHARACTER
CHARACTER IS HEXIDECIMAL DIGIT
ERROR
ADDRESS COMPLETE
OFF FOR FIRST 2 CHAR
PUT DO 7 0'1 AFTER 1 ST TWO CHAR
FIRST DIGIT CONTROL
A OR 0 1ST CHAR TO BUSSOUT
TURN FOR AODRESS
BUSS OUT CHARACTER
AUX OR CONTROL STORAGE OP
IS T CHAR FLAG
INV SET UP FOR DECIMAL CONVERT
RST 1ST CHAR
FLAG
CROSS EBCDIC CHAR,ADD TO BUSSOUT
EBCDIC+1 AND THROW AWAY HI 4 STS
NOT COMPLETE ADDRESS YET
AL TER CONTROL STORAGE
GET ALTER DISPLAY ADDRESS SUILD
ADDRESS AND CONTROL DIGIT COUNT
ACTUAL B STAR I SIN V PI BITS
CONTROL DIGITS UNTIL FINAL ADDR
ADDRESS COMPLETE
SAVE ADDRESS BUILD FOR FOUR CHAR
BUSS OUT CHAR
CONTINUE IF OTHERWISE
PUT 1ST IN POH
RST 1ST STAT
PAGE 121
AODR
WORD
2542
2544
2546
2548
254A
254C
254E
2538
253A
253C
0148
CC3C
8370
Cl3C
OCC9
F4BC
8370
4ECO
102B
AE2A
4ED3
1018
AE2A
4EDD
AE2A
E 172
AHE
5AEF
8538
7222
4EC6
CDD
A396
A412
42C6
A412
2F53
3F 15
4FFF
160B
E23B
A406
5C82
3083
1e82
128E
?550
2552
2554
OC08
OC IJA
Oli6E
Ot370
OB72
OB74
2E32
2E34
2E 36
2E 38
2E 3A
ZE 3C
21:3E
2EIE
2E20
21: 22
2E24
2E26
2E28
urlO
0712
0714
0716
0901:
0910
0912
0914
0916
OH8
091A
09lC
091E
0920
0922
0924
0926
0928
092A
onc
CFA3
C114
924C
5F30
OHB
C490
85E4
E21B
5224
8376
5AEf
DAA9
8948
lEC 5
OE5B
C4B8
SEQUENCE NO.
JTYp
JTYP
JTYP
JTYP
JTYp
JrtP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JJYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
JiVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JTVp
JTYP
JrYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JfYP
JTYP
JTYP
J TVI'
JTYP
JTYP
JTYP
221
223
230
231
232
233
234
235
236
231
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
210
211
212
273
274
275
276
217
218
279
280
LABEL
NEXfSEQ
ONEOK
NEXT LABEL
231
237
H7
237
ONE OK
ONEOKI
ALTDYE
ONEOKI
231
417
ONEOKI
ALTDYE
TWO
215
ONEOKI
THREE
BUILD
215
BUILD
215
245
254
SUlLO
GETPTT
ADSTRT
323
TRANSB
FOURTH
ADCOMP
GETPTT
CKKEY
WRI IE
CONAUX
252
IS IC 023
025
CONAUX
SET BST
SETWRL
025
SETWRL
ADSIR T
SETlCH
251
022
WRITE
SETROL
275
268
502
ROALTR
NCSDY
CSDIS
SETID
A SEQ
BEGIN
21l
TSDISP
TW
TWBACK
480
TE
278
295
CANEND
TR
286
CONTST
272
416
ROAlTR
TRBACK
CANEND
BR IF G1 BIT 5=0
BR IF POO=O
BR
BR IF G14=0
l=PO+KCO
BR IF AC=O
BR
PO=HOl+POH
Pl:PlaK02
SR
Pl=HOXH+Pll
P1=PlaKO 1
BR
Pl=HOl+PlH
BR
BR IF G1 B1T6=0
SR
HO=H
BR
STH V DA.8C
H=P
BR IF Gl S1f4=l
BAL
BR
V=P
BR
Hl=OSK05
Hl=HUK 10
TE=Hl
DO=OoaKOD
BR IF DO BIT6= 1
BR
RoH P OA. A8
Pl=Pl$K08
STH P .DA. A8
RTN
CLOAD=*E40, EC lEVEl=128211
COMMENTS
NOT AUX SETUP
VALID AUX DIGIT
OP
NO I CON TROLSTORE
TEST FOR 0-3 FOR 1 Sf
VALID 1ST :HAR FOR CONTROL STORE
PUT 2ND IN POL
RST 2ND STAT
PUT 3RD IN PlH
RST 3RD STAT
PUT 4TH IN I'lL
ADDRESS NOT COMPLETE
GET BUSS IN CHAR
STORE ORIGINAL B*
PUT ADDRESS IN H REG
AU)( OR CONTROL STORAGE 01'
CONVERTED ADDRESS. DEC IN B STAR
SET WRITE LATCH
PUT ADDRESS IN B STAR
ISSUE LINE FD
CHARAC TER
BUSS OUT LINE FEED
SET BIT4.bON IF DISp~ 5AND7 RST
IS DISPLAY OPERATION
00 ALTER OPERATION
SET ERROR BIT INQ CLEAR
SET ERROR BI T
TERROR BIT
SET
AL01:0E
NCSDY
TWBACK
TSOI SP
STATEMENT
BR IF TU BITO::1
BR IF Gl BH4=0
BR
ROB Hl Vi-O
Z=H1aKOF
SR IF Z=O
BR
BR IF DO BIT 6= 1
V=V+l
BR
HO=TI
BR IF TT BIT5=l
BR
HO=HO*-KCO
Z:HOaK05
BR IF ZNl
BRANCH IF READ
NOT AUX OR CONTROL STORAGE OP
READ MEMORY CHAR
TEST FOR GMWM
YES WE HAVE ONE,TEST 01 SpLA Y
WR HE ROUTINE
BR IF DISPLAY
INCREMENT Ii STAR
GO ENDING ROUTINE
PUT BUSS IN CHAR IN HO
Al T CODE
CANCEL OR END TEST
BRANCH TO READ ROUTINE
STRIP CASE SITS
EOS TEST
BR IF NOT EOS
PAGE 128
"OOR
WORD
J92E
093&
C232
8376
2fF3
7F38
8316
0938
8710
093A
093e
0946
OEAB
C4C8
2F45
C237
8710
CACS
85AA
0948
CAe 3
J94A
094C
094E
CA4F
8538
DA53
0950
8538
{)952
095E
OEDB
FOD8
FE60
2F45
8710
C26f
85AA
09&0
C269
0962
2F55
0930
(}932
0934
093E
0940
0942
0944
0954
J956
0958
095A
095e
0964
3FD3
09b&
09b8
85AA
2Fl5
SEQUENCE NO.
JTVP
JTYP
JTYP
JTVP
JTYP
J TYP
JTYP
J TVP
JTYP
JTYP
JT't'P
JTVP
JTVP
JTYP
JTYP
JTYP
HYP
JTYP
JTVP
JTYP
J TVI'
JJYP
J T't'P
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
J TVI'
JTYP
281
282
283
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
30t
302
30.3
304
305
306
307
308
309
310
311
3F 53
J TVI' 312
09&C
096E
E273
4Fff
0910
0912
CEEE
JTYP 313
JTYP 314
J TVI' 315
JTYP 316
JTVP 317
HVP 318
HVP 319
JTYP 320
JTYP 321
JTYP 322
JTYP 323
JTYP 324
JTYP 325
JTVP 326
JTYP 327
J TVI' 328
JTYP 329
J TVI' 330
JTYP 331
JTYP 332
JTYP 33.3
0914
5226
0916
8376
0536
0538
053A
5AEF
053C
053E
C4fB
SEB.9
IBC5
eEb6
0540
OBBS
0~42
Foe8
0544
2BlS
857A
OBOD
054&
0548
054A
054C
FODO
3BA3
NEXTSEQ
283
480
NOTALT
284
09bA
A41&
LASEL
TEBACK
CONTST
480
260
295
285
SETINQ
2&0
29&
384
* TR
RTNTR
291
298
323
GOON
300
323
TSTD
303
307
ERRORl
260
CKAL TR
314
384
CHANGE
311
384
ALTLf
TG
GETOUl
316
CKATT
027
314
480
*
AEND
ASEQ
AL07=36
TRAN
TRANSB
STATEMENT
ClOAD=*E40. EC LEVEL=128211
COMMENTS
BR IF NOT ALTER
BR I f DO 8 IT 4= 0
GO ENDING IF ALTER
BR
Hl=OSKOf
BU ILD GMWM
STORE GMWM,INCREMENT ADDRESS
STS Hl 'Hi
GO ENDING
BR
TE
BAL TO SET 10 ERROR
SET 10
BAl
Z=HOaKOA
CK CANCEL
TR~ TO READ CHAR OUT
TR
BR If ZNZ
PUT BLANK IN IN CASE Of READ OP
Hl=0$K40
IF ALTER GO ENDING ROUTINE
TEBACK
BR I f DO BIT 4= 1
SET ERROR
SElID
BAL
READ ROUTINE ENTRY AfTER TRANS.
RTNTR
BR If TT BIT 4= 1
If TT B IT 4= 0
TRA
BR
** READ ROUTINE ST ARTS HERE
SET INQ
BR IF H B1f4=l
KEY CHECK
lOW 4 BITS OF PTT TO BE EXAMINED
GOON
BR IF HO Blf4=l
Xo-X7 GO TO, TRAN S BEG I N
TRANS B
BR
XC-XF POSSIBLE
TSTO
BR IF HO BIT 5= 1
X8-XB GO TO TRANS BEGIN
TRANSB
BR
XC,XE.Xf ARE NOT fUNCTIONAL,
Z=HOaKOD
CHANGE TO 40 FOR READ SET 10 ERR
ERRORl
BR IF LZNZ
OD.ID.fD,30 ARE NOT FUNCTIONAL
CHANGE
BR If HO BIT3=O
BUILD BLANK
Hl=OSK40
SET ERROR BIT
SElIO
BAL
If AlTER,BUSS OUT AND RETURN
GET OUT
BR IF DO B IT 4= 1
RTN AFTER TRANSLATE
TRA
BR
GIVE LINE FEED 01' IF AID ROUTINE
AlTlF
BR IF 004= 1
CHANGE ED OR 20 TO 50 EBCDIC
Hl=OSK50
NOT FUNCTIONAL 00 OR CO ARE CHGE
Hl=Hl$KOO
CHARACTER SET UP BYPASS TRANS
TRA
BR
Hl:OSK LO
DO LINE fEED
Hl:Hl$K05
CKATT
BR If DO BlTo=l
BUSS OUT CHARACTER
TE=Hl
STORE
BR
BR NOT ATTENTION
BR IF TT BIT 0=0
GETOUT
BACK UP B STAR If END Of 01 SPLAY
V=V-l
ATT AND DISPlAY,GO ENDING ROUTE
BR
IE
TRANSLATE BEGIN. BUSS IN CHAR IN HO
NOTALT
TE
**
346
TBlKUP
LOCASE
331
NOTUCB
357
TSLKUP
335
NOTllCO
351
TRANAG
UPCASE
NEXT LABEL
NOlUCB
HO=TI
T l=HO
Tl=Tl*-KCO
BR IF Z=O
BR IF HO BITO=O
Z=TlaKOB
BR If LZNZ
T l=Tl+KOl
BR
Z=T l!lKOO
BR If LZNZ
T L=Tl$KOA
fOR CONSOLE INTERRUPT
PUT PH IN BIAS
STRIP CASE,CK fOR SPACE
IS SPACE GO TABLE
LO WER CA SE CHAR
CK XB
BR NOT UPPER CASE XB
UPPER CASE XB IN XC LOCATIONS
TEST fOR UPPER CASE LOW ORDER 0
NOT XO UPPER CASE
CHANGE BIAS FOR XO CHAR TO XA
PAGE 129
ADD~
WORD
054E
857A
EOFB
OB IF
C40A
2BF3
857A
OA60
OB4B
FOE2
B59E
2B8B
857A
OBOO
EOFA
OBBB
C4FB
3BF5
5BF9
OFAB
FOFE
lFF3
851E
2A65
5FAO
026B
C16B
OFOO
0550
0')52
0554
05 ':iO
ossa
0')54
OSSC
05SE
0560
0562
O?64
0566
0568
056A
056C
056E
0570
0572
0574
0576
0578
0574
057C
057E
:>580
,)582
0')84
0586
0588
0'>811
()58e
O'>8E
0590
0',92
0594
0596
0598
C488
859E
CE13
D526
OF 7D
EC.87
85A6
D527
OFBB
F080
05A8
05AA
05AC
05AE
05BO
0582
OFCB
F08D
85A6
8710
2F45
85AA
2FE7
OfEF
C4C7
5030
OOFB
C4B2
C260
C23F
0584
DD3E
05B6
F53F
059A
059C
059E
05AO
05A2
05A4
OSA6
SEQUENCE NO.
JTYP
JTYP
JTYP
JTVP
JTVP
JTYP
JT'tP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TVP
JfYP
JTYP
J TV?
JTVP
JTYP
JTYP
J T'YP
JTYP
J TVP
J TVP
J TVP
JTYP
JTVP
JT'fP
JTYP
JTYP
JTYP
JTYP
JTYP
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
J TVP
JTYP
334
335
336
331
LABEL
NOTUCO
338
339
340
341
342
343
344
345
346
341
348
349
350
351
352
353
354
355
357
361
3&2
363
364
365
3&6
367
368
369
370
371
372
313
314
375
376
371
378
379
380
381
382
383
384
38.5
386
381
388
389
390
UC I NVX
UCI NV
BI ASSC
NEXTSEQ
NEXTlABEL
357
351
TBLKUP
TBlKUP
340
UCINVX
357
343
TBLKUP
UCINV
344
378
BIASSC
ERROR2
357
TBLKUP
357
TBlKUP
357
TBLKUP
LOCA SE
362
TRCOMP
362
TRCOMP
419
419
TWR
TWR
367
378
312
382
TESTX
ERROR2
UPPER
eVER
366
382
382
ERRRS
OVER
OVER
369
CHEC
369
382
260
CHEC
OVER
SET 10
384
TRA
.398
WORDMK
388
411
394
394
394
NOGMWM
TOMUCH
CKMODE
CKMODE
CKMOOE
TBlKUP
TRCOMP
ERRRS
TESTX
CHEC
UPPER
ERROR2
WORD
OVER
TRA
NOGMWM
CLOAD=*E40, EC LEVEL=128211
COMMENTS
STATEMENT
BR
BR IF HZ=O
Z=T 11lK 11
BR IF ZNl
Tl=OSKOF
BR
BR IF HO BIT5=O
Z=fl1lK04
BR IF LZNZ
BR
T l=Tl +K08
BR
Z=TIIlKOO
BR IF HINI
I=T leKOB
BR IF Z=O
Tl=Tl$KFO
HI:T 1
Z=HleKOA
BR If LlNZ
Hl=H1*-KOF
BR
TO=0$K60
ROB Hl AS,T+O
BR IF 00 BIT5= 1
BR IF Gl BIT 4=1
Z= HleKOO
BR IF ZNl
BR
8R IF HO B IT 0= 1
BR I f G1 BITl=O
l=HIIlK70
BR. IF HZ=O
BR
8RIFGIBIT1=1
Z=HIIlKOB
BR IF LZ=O
I=HIIlKOC
BR IF lz",O
BR
BAL
Hl=0$K40
BR
Hl:OSKEE
Z=HIIlKEE
BR IF
ROB PI V+O
Z= PIIlKOF
BR IF ZNl
BR I f 00 BIT4=O
BR IF 00 B IT 4= 1
BR I f PI BIf 1"=0
8R IF G1 BIT3; l
z=o
GO
CX
CK
CK
01
TABLE
CHAR EXC CO ARE HANDLED HERE
PH FOR
FOR INVALID UPPER CASE
CHAR PUT IN
OF POSI Tl ON
INVAL [0
UPPER CASE
X5,X6,X7 ALLOWED
INVALID CHARACTER
X5,X6,X7 LC PUT IN
GO TABLE
ONLY
XO.XE,XF
ALL EXC NlJ'4S.POUND SIGN IN TABU
LO OK UP POUND SI GN
OR f FOR NUMER IC S
0-9
PUT ANS IN HI
TRANS COMP
FA MUST BE CHANGED TO fO
TRANS COMPLETE FOR 1-9
REG
TRANS COMPLETE FOR 0
lOC4TE
READ TRANSLATED CHARACTER
AL T DISPLAY SET UP
ALTER RTN FOR AUX OR CONTROL OP
NO TABLE ERROR, CK WM FLAG
VAlID SO FAR
INVALID CHARACTER
UPPER CASE CHECK
NO H BAl.L
lOW AND H,UP ANONO H WITH XB,XC
IN VAL ID CHANGE TO BLANK
CONTINUE
VALID CHARACTER
EX IT IF H BALL
COULD BE 78 CHARACTER
COULD BE 7C CHARACTER
INVALID CHARACTER
PUT BLANK IN MEMORY
PUT BLANK IN ACC TO MODE
pur IN EE fOR WM
LOOK FOR WM
BR ANCH IF WORD MARK
READ MA IN STORAGE 8YTE
TEST fOR GROUP MK WD MK
NOT At fER
Al fER OPERA TI ON
READ OPERATION
PAGE 130
,1\ [} OK
WORD
O':iBd
3F45
7F38
85EA
F'542
F138
IF45
A5BA
3513
IF83
90B6
0254
CI02
A494
A4FE
ClS3
DADE
5AOf
00A8
FOEl
896C
8710
8376
05BA
051)C
05BE
\)')CO
J':>U
05C4
d"iC5
OSC8
05C/\
05CC
OSCE
0500
(hD2
0'>04
0')06
0')08
O,>OA
05DC
OSDE
OSEO
O::'E2
d5E4
05E6
0')E8
05EA
O':lEC
107E
1080
1082
11184
1D86
F)88
lD8"
lDSC
W8E
1090
1092
1D94
ID96
lU98
1D9A
ID9C
lO9E
lOAO
lOA2
10A4
IDC8
lOCA
DF6B
F%A
F124
1511
9D7E
3F45
Cf12
OHD
EOBS
9DB6
F08f
If45
90B6
3F73
90B6
0216
8370
CllS
OF4D
C400
CfC9
f550
2FC 5
3f63
90B6
5AEf
CESO
SEQUENCE NO.
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTyp
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JlYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
J TVP
JTYP
JTYP
JT'(P
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
41.5
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
431
438
439
440
441
442
443
LABEL
NEXTSEQ
NEXTLA8El
ORB TI N
STORCH
CKMODE
419
396
391
TWR
RSTBTO
ORBT IN
392
STORCH
467
405
404
I NTP 014
lB6
404
410
CKROLH
CKINQC
THRU
CRIN
AORTN
THRU
EXITB
411
313
260
480
TOMUCH
TG
SET 10
TE
R STB TO
WOROMK
TWRTN
THRU
CKI NQC
EXI TB
TOMUCH
'"
'"
'" TW
419
4L9
381
TWR
TWR
WORO
422
STRING
432
QUADl
421
467
430
TSTlO
CKROLH
CHSPEC
461
CKRDLH
461
434
417
433
CKRDLH
TSTBLK
ALTDYE
ERRS
441
442
441
Tsnow
TESTC
TSTLOW
467
CKRDlH
447
TSTlOW
AEND
STRING
CHSPEC
QUADl
ERRS
TSTBLK
H1=Hl$K40
STB Hi V+1
BR
BR IF G1 BIT 3=0
BR IF Gl BIT7=0
Hl=Hl*-K40
BR
G1=Gl$KO 1
Hl=Hl*-K08
BR
BR IF 00 BIT5=O
BR IF S4=0
BR
BR
BR IF Gl BIT4=1
BR IF TT BIT 5=0
PI=T I
Z=PltlKOA
BR IF LZ=O
BR
BAL
BR
CLOAD=*E40, EC LE VE L= 12 8211
COMMENTS
TAKE WM OUT
STORE ANO lNCR ADDRESS
BR If MOVE MODE
LAST CHAR WM
PUT WM IN
STORE CHAR
SET LAST CHAR WORD MARK I NOICATE
CHANGE EE TO E6
ALI DISP SET UP
CHECK AlT DISP RTN
VALID CHAR FOR CONSOLE INT SETUP
YES RETURN
ALTER RTN fOR AUX OR CONTROL OP
TEST FOR CANCEL
CK BUSS IN CHARACTER
WAS CANCEL
NOT CANCEL GOBON
*'" WRITE ROUT INE
TWR
TSTLO
STATEMENT
PICK
TESTC
BR IF HI BIT 1= 1
BR I f Gl BIT 3=0
BR IF G1 B1T7=0
G1=G1*-KOl
BR
NO WORD MARK
BR If MOVE
BR IF LA ST CHAR. NOT A 101M.
R ST LAST CHAR WAS WOROMARK
Hl=HUK40
BR I f HI BlTO=O
l= HltlKfO
BR IF HZNZ
BR
BR I f L l=O
Hl=Hl*-K40
BR
Hl=Hl$K07
BR
BR IF DO BIT 5=0
BR
BR I f GI BlT4=l
l=HIIlK40
BR I f lNl
BR If TU BlTO=l
BR I f Gl BIT3=0
Hl=O$KCO
HI=Hl$K06
BR
HO=T I
BR IF HO BITO=O
IN SURE
NO WORDMARK
QUADRANT 1
AUAORANT 3
NOT NUMERIC
NUMER IC, GE TOUT
TEST FOR SPECIAL CHARAC TERS
REGAIN QUADRANT2
CHANGE CO,OO,EO TO C7,01.E1
AL T DISP SET UP TEST
YES.THIS QUAD IS ERROR FOR SET
ALTER RTN fOR AUX OR CONTROL ERR
TEST BLANK
NO T A BLANK
BR IF READ LATCH
MOVE MODE
RE EXAMINE PIT CHARACTER
PAGE 131
AOOl<
WORD
wee
IEC 5
C4AO
2A15
2F4D
5fB9
OSSA
IB8B
5CAO
FB27
5CF9
90B 6
5DF9
CFC 1
F537
6DA9
FOB6
fD37
2F 1.5
3f53
CfBA
85CC
F 13f
5224
896C
5ACf
oeDB
FOB3
9DB6
lUCE
1000
1002
lOD4
1006
1008
IDDA
lODC
lODE
lDEO
lOA6
WAS
lllAA
lOAe
IDAE
lDBO
lOB2
liJ B4
lOB6
IDB8
It)BA
lOBe
lelBE
l1)CO
IDe2
1OC4
we ()
0370
lOCO
0312
OF02
OlI4
0640
5C92
3C25
0316
OH8
031A
031C
031E
0380
0382
0384
0386
014E
0150
0152
0154
0156
015a
015A
OI5C
01 SE
0146
0148
0144
7cn
l6F3
2C53
3C 15
4FCF
OFIO
A412
5BE2
F258
4EBD
D141
6B28
5EB3
7BE2
161B
8'16C
32f3
7B28
81B6
SEQUENCE NO.
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TVI'
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JTVP
J TV1'
JTYP
JTY1'
JTVP
JTYP
JTY1'
JTYP
JTYP
JTY1'
J TV1'
J TVP
JTV1'
JTYP
JTYP
JTVP
JTYP
J TVP
JTVP
JTVP
JTYP
444
445
441
451
452
453
454
455
456
451
458
459
460
461
462
463
464
465
466
467
468
469
470
411
472
LABEL
NEXTSEQ
439
TSTlOW
SHIFT
455
NOHB
459
461
ODD
412
467
467
467
DOlFDl
CKRDl.H
469
401
AROUND
Hl
NOI NCR
FUNCT
313
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
465
467
*AL roYE
TE
025
CSAl T
494
498
STEPOV
313
ALfAUX
511
NEXT LABEL
STATEMENT
HO:HO*-KCO
BR IF INI
TO=OSK70
Hl=H1+K40
T1=Hl
NOHB
BR IF GI BIT 1=0
Tl=TlDK08
ROH P AS,T+O
ODD
BR IF HI 8IT7=1
Ht=PO
CKROLH
BR
H1:Pl
BR I f TUO=1
FUNCT
BR IF 61 BIT3:1
CKRDLH
PIC .. PIHO+l
BR IF LINI
CKROLH
BR IF PI BIT3:l
CKRDLH
Hl:OSKlO
Hl:Hl$K05
BR IF TU BITO=O
AROUND
rWRTN
BR
BR I f GI B1T7: 1
NOINCR
V=V+l
BR
TG
PO=TI
I:POaKOD
8R IF LZ=O
OOLFDI
CKRDLH
BR
**
TYPE ENDING
RST S K=BC
RST T A K:IO
RST BC K=04
ROH p DA,AA
PO=POSK20
STH P OA, AA
DO=DO*-KOF
PO=OSK05
PO=POSK 10
TE=PO
RST T A K=Ol
BR
SET WRL
RDB Tl oAtBC
BR IF 00 BIT7=0
STEPOV
Tl=HOL+TIH
All AUX
BR IF G1 BIT5=l
STB Tl CS,V+l
T l=HOXH
STB Tl DA,BC
OO=DOaKOl
BR
TG
VO=VO$KOF
S J BTl AS, V" 1
BAL
CKME
CLOAD=*E40, EC LEVEl=128211
COMMENTS
PICK
BUILD AUX ADDRESS
RETRANSLATE TABLE FOR 1052
US ING MEMORY CHAR AS BIAS
NO H BALL IN STATUS
SHIFT TABLE FOR H BALL
READ TABLE
SElEC TO~~
EVEN
DCDNE
CHECK FUNCTION KEY
IF READ
DONE IF LOAD MODE
TEST FOR LINE FEED
ALL BUT 40~5D
MEMORY CHAR
40 EXIT
BUILD LINE FEED
CHARACTER
NOT READ LA TeH
READ RETURN
WORD MARK 00 NOT INCREMENT
INCREMENT B STAR
TEST ATT IF OISP,6USS OUT, STORE
LOOK AT BUSS IN CHAR
CHECK FOR LINEfEED PTT
IS FUNCTION KEY DO lINEFEED
RST SO,S5,S4
RST
,ALT DISPLY ACTIVE
RE SET CONSOLE INTERRUPT
GET STATUS
SET SECONDARY BI T
STORE I T BACK
LINE FEED
RE SET A HENTION IF ON
GARBAGE WHEN 00 61T7=0
OFF FOR FIRST CHAR OF ALTER BYT
PUT IN 2ND CHAR OF ALTER BYTE
ALTER AUX STORAGE
ALTER AND INCREMENT B STAR
PUT
1ST CHAR IN FOR AUX STORE
STORE FIRST OR SECOND CHARACTER
CHANGE STATE Of DO BIT 7
GO BUSS CHAR OUT
ANa CONTINUE
FORCE DONT CARE DIGIT TO F
STORE ,I\l TERED BYTE
PAGE 132
ADDR
WORD
SEQUENCE NO.
014C
124C
124E
1250
1252
1254
1256
1258
8158
F253
0145
4B28
JTYP 501
JTYP 502
JTYP 503
JTYP 504
JTYP 505
J TVP 506
J TVP 501
JTYP508
JTYP 509
J TVP 510
JHP 511
JTYP 512
JTYP 513
JTYP 514
JTYP 515
JTYP 511
JTYP 518
JTYP 519
JTYP 529
JTVP 530
5BB 1
5BF9
5FAD
8118
5AF9
161B
896C
32F3
5B28
81B6
9252
0280
C4BC
1285
12F3
128E
125A
125C
125E
1244
1246
1248
124A
01B6
01B8
01 BA
01BC
OlAE
JTYP
HYP
JTYP
JT YP
004
022
025
027
HYP
JTYP
JTYP
JTVP
HYP
JTYP
JTYP
JTYP
HYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
HYP
JTYP
JTYP
JTYP
JTYP
051
055
074
076
080
081
085
087
097
102
104
109
110
113
li4
119
121
122
123
121
128
129
135
1.36
142
lOCH
JTYP
INTP
INTP
JVPE
JHP
INRU
JTVP
JTVP
JTVP
JTYP
JTYP
JlVP
JTYP
JTVP
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JU'P
0.31
156
233
012
046
042
062
116
074
017
079
072
051
094
097
102
LABEL
494
505
512
CSOIS
SKIPOV
ICOM 002
313
01 SAUX
517
505
CKME
529
RTNAOR
NEXTLABEl
CLOAO=*E40. EC LEVEL=128211
COMMENTS
STATEMENT
PAGE 133
CONTINUE AFTER ADDRESS CHECK
BR
OFF INITIAllY,WHEN 2ND CHAR UNPK
BR IF DO B1T1=1
DISPLAY AUX STORAGE
BR IF G1 BIf 5= 1
FETCH 1ST BYTE FOR UNPACKtlNC B*
ROB It CS t V.l
T I=T LX
1ST CHAR PUT IN Hl LOW FOR UNPK
Hl=T 1
WHEN 00 BIT7=1 2ND CHAR IN HIL
TO=H1l
00 THE UNPACK
UNPACK
BAL
PUT IN REG fOR BUSS OUT
HL=TO
CHANGE STATE OF 00 BIT 7 •
OO=OOtlKO 1
BUSS OUT CHAR OR END DISP IF ATT
BR
IG
FORCE OONT CARE DIGIT TO F
VO=VO$KOF
READ AUX BYTE FOR DISPLAY
ROB Tl AS,V+l
CKME
BAL
CONTINUE AFTER ADDRESS CHECK
BR
SKIPOV
I=VOaK80
RTNADR
ADDRESS OK
BR IF INI
ALLOW WRAP TO 0000 AUX
YO=VO*-K80
YO=VO*-KOF
RTN
**********************************
* CROSS REFERENCE FOR CSECT JTYP *
**********************************
STEPOV
SKI POY
OISAUX
J TVP 259
JTVP 019
INTP 057
JTYP 251
ISTP 031
JTVP 075
JTYP 120
106
108
111
088
117
114
123
121
125
124
0.58
129
092
118
NEXTSEQ
JTYP 115
JTVP Ll9
J TVP 130
JTYP 253
JTYP 024
JTYP 488
JTVP 151
JTYP 200
JTYP 218
JTVP 315
JYPE 015
JYPE 023
JYPE 032
JVPE 037
ClOAD=*E40, EC lE VEl=128211
**********************************
* CROSS REFERENCE FOR CSECT JTVP *
**********************************
HYP
HYP
JT Yi>
JTVP
JTYP
Jryp
JTYP
JTVP
J T Yi>
jfYP
JTVP
JfVP
JTYP
J T Vi>
JTVP
JTYP
JTYP
JTVP
JTYP
JT VP
JTV?
J TVP
J TVP
JlYP
JfV?
JTYP
JT VP
JT YP
JTVP
JfVP
HYP
JTYP
JT VP
JTYP
J TYP
J TYP
JTV?
JfYP
JTYP
J r VP
JT VP
JTVP
JTYP
JTVP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
152
155
151
169
172
174
118
119
182
184
186
193
198
199
201
204
205
209
215
219
2.31
2.35
231
238
241
243
245
241
251
252
254
260
265
268
211
212
215
218
283
285
286
291
295
296
298
.300
303
301
311
313
JTYP
J TVP
JHP
JTVP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTVP
JTVP
JTVP
HYP
JTYP
JTVP
JlYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JIYP
JlYP
J TVP
JTYP
JTYP
HYP
JTVP
JTVP
JTVP
HYP
JTYP
JTyp
JTVP
JTYP
HYP
JTYP
JTYP
JTVP
JTYP
JTVP
JTYP
JTVP
JTYP
JTVP
128
153
155
159
170
160
152
177
115
119
404
191
168
1'51
194
181
193
201
237
210
221
211
223
212
214
154
243
217
258
249
244
286
122
266
J rYP 161
JTVP 165
JTYP 169
JTYP 111
JTYP 411
JTYP 195
JTYP 201
JTVP 202
JTVP 240
JTYP 242
J TVP 231
JTYP 233
JTYP 291
JTYP 304
JTVP 318
JTYP 497
JTYP 511
212
270
265
216
281
290
280
295
277
292
296
2'58
301
302
307
410
JTYP 288
JTYP 4H
JTVP L83
PAGE 134
•••• *•••••••••••••••••••••••••••••
ClOAO=.E40, EC lEVEl=128211
* CROSS REFERENCE FOR CSECT JTYP •
•••••••••• *•• ****.*****.* •••••••••
JTYP
JTYP
JT YP
JTYP
JTYP
JTYP
JlYP
HYP
JTYP
JTYP
JTYP
JT YP
JTYP
Jf Yi>
JTYP
JTYP
JT YP
HYP
JTYP
JTYP
JTYP
JTYP
JTYP
JT YP
JT YP
JT YP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JfYP
JTYP
JfYP
JTYP
JTYP
JTYP
JTYP
JTYP
jfyp
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
HYP
JTYP
314
316
322
323
331
335
340
343
344
346
357
362
366
361
369
372
378
381
382
384
388
391
392
394
396
398
401
404
405
410
411
416
419
422
427
430
432
433
434
439
442
447
455
459
465
467
469
411
472
417
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JPtP
HYP
JTYP
JTYP
JTYP
JTYP
JIYP
JTYP
JTYP
JTYP
J TYP
JTYP
JTYP
JTYP
JTYP
JlYP
JTYP
JTYP
JlYP
JTYP
JTYP
JTYP
J TYP
JllP
JTYP
JTYP
HlP
JTYP
JTYP
JTYP
JIYP
JTVP
JlYP
JlYP
INTP
305
313
126
173
328
332
331
340
342
326
325
353
370
365
374
367
343
418
368
293
386
395
397
388
394
38.3
468
402
401
406
381
271
362
420
425
427
423
434
432
445
437
436
453
456
474
400
461
469
460
040
JTYP 316
JTYP 181
JTYP 185
JTYP 246
JTYP 291
JTYP 299
JTYP 330
JTYP 355
JTYP 334
JTVP 335
JTY P 339
JTYP 345
JTYP 347
JTYP 349
JTYP 371
JTYP 306
JTYP 372
JTYP 310
JTYP 371
JTYP 380
JTYP 389
JIYP 390
JTYP 463
JTVP 316
JTYP 366
JTYP 405
JTYP 409
JTYP 416
JTYP 411
JTYP 429
JTYP 431
JTYP 441
JTYP 458
JTYP 461
JTYP 192
JTYP 203
JTYP 230
JTYP 234
JTYP 433
JTYP 363
JTYP 393
JTYP 438
JTYP 443
JTVP 426
JTVP 178
JTVP 464
JTYP 475
PAGE 135
ClOAO=*E40, EC LEVEl=12B211
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
480
489
494
498
502
505
512
517
529
J TYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
JTYP
127
208
490
4'92
267
502
503
500
518
JTYP 274
JTYP 501
JTYP 515
JTYP 514
JTYP 282
**********************************
* CROSS REFERENCE FOR CSECT JTYP *
**********************************
JTYP 285
JTYP 318
JTYP 412
PAGE 136
ClOAD=*E40. EC lEVEL=128211
JYPE
OESCRIPT lYE
TEXT
ENTRY POINT
LABEL
THIS IS THE EXCLUSIVE ENTRY FROM THE REQUEST HANDLING ROUTINE FOR HANDLING LOGOUT MESSAGES.
40DR
IF7C
If1E
IF 80
IF82
IFfl4
1F86
If88
IF 8A
If8C
IFSE
lF90
1F92
iF 94
IF96
IF98
IF9A
1FA6
IFA8
IFAA
IFAC
IFAE
IFS!)
IFB2
IFB4
11'1:\6
IF9C
IF9E
IfAO
IFCC
IfCE
WORD
5E08
5032
F827
01A3
FBOD
4FAF
IFIB
A416
4FBf
C5<;6
4A46
1000
<;F88
C190
IC 18
A416
C ICD
.5A<12
3A25
lA83
7A92
0235
2080
4FCF
A416
2D45
IC 18
A416
4FOF
IC 18
SEQUENCE NO.
J YPE
JYPE
JYPE
JYPE
JYPE
JYPE
J YPE
JYPE
J YPE
JYPE
JYPE
J YPE
JYPE
J YPE
JYPE
JYPE
J YPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
J YPE
JYPE
JYPE
J YPE
J YPE
JYPE
JYPE
JYPE
J YPE
JYPE
JYPE
JYPE
J YPE
J YPE
JYPE
JYPE
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
031
038
039
LABEL
NEXTSEQ
NEXT LABEL
**
T
*
*
*
*
*LABEl
024
051
016
FIRST
TEST
JTYP 027
SECOND
021
EXIT
CKENO
014
035
JTYP 027
038
031
LI NEFD
JTYP 027
*
*MORE
JTYP 021
SPACE
COMMENTS
1400
TYPE DISPLAY MESSAGES
R.TAYLOR
THIS ROUTINE TAKES THE UNPACKED HALFWORD(SI AND TYPES OUT
Hl BIT7 TEllS IF IF fIRST OR SECOND HALF OF BYTE, S4 CONTROLS
FIRST OR SECOND BYTE S5 TELLS ROUTINE TO UNPACK ANOTHER BYTE
PI USED TO PROVIOE SPACE BETWEEN TYPED HALF WORDS PO ALSO
SERVES AS LINE fEED CHARACTER AFTER EACH CONVERT AND UNPACK
UPON ENTRY 1052 MODE IS ESTABLISHED CPU REGISTERS RESTORE
RDH H AS,U+2
RESTORE H REG
RDH U DA,8E
RESTORE A STAR
CKEND
BR If PO BIT7=1
OFF TIL ENDING SEQUENCE
CKUNPK
BR IF S5=1
TEST FOR ANOTHER UNPACK
SECOND
BR IF HI BIT7=1
TE=TO
BUSS OUT 1ST
H1=HlaKOl
TURN H1 BIT1 ON FOR 2ND CHAR
STORE
BR
OFF AFTER SECOND
TE=T1
BUSS SECOND
EX IT
BR If SO=O
FIRST TIME THRU SO=l
T=G
MOVE NEXT BYTE IN
RST SO
LAST BYTE Of PRESENT UNPACK
TEST
BR
MORE
BR IF 54=1
GO ON EXCEPT INSTRUCTION STEP
PO= POoKO 1
AL LOW CKEND NE XT TI ME SE T 15
STORE
BR
SPACE
BR IF S4=1
MORE COMING NEED SPACE
RDH T DA, AA
SEC BIT
TO=TOSK20
SET ON
TO=TO*-K08
STH T DA,AA
STORE NEW STATUS
LINEFD
BR IF 00 BlT5=1
SElIC INSTRUCT STEP WANTS S4 OFF
SET S4
TE=PO
GIVE LINE FEED
STORE
BR
NEXT TIME I S DEVICE END SEC ON
S6 IS RESET, RTN IS TO SOFT STP
LOOP AWAITING START KEY EXIT
Pl=OSK40
BUILD SPACE
PO=PooKOl
MAKE PO ODD
STORE
BR
TE=P1
ISSUE SPACE
po=poaK01
MAKE PO EVEN
**
*
STATEMENT
PAGE 131
ADDR
WORD
If' OJ
3400
CBBB
1602
0080
4E86
3040
A416
F247
E241
5EF2
<; 7F6
5E42
1613
9FDA
5E52
1623
9FDA
0040
ABD8
0080
OFll
FOFF
1600
9fDA
If D2
1f- D4
IH:;6
1F 08
1F Oil
IF DC
IF B8
IF flA
IFBC
IfRE
!feb
nCB
iF tA
IFCO
IH2
lfC4
HA2
11"A4
1 IFa
tI Fd
l/FA
lIFe
17FE
lYPE
JYPE
JYPE
JYPE
JYPE
JYPE
J)'PE
JYPE
JYPE
J YPE
008
014
016
),(Pt:
051
054
057
059
063
JYPE
JYPE
JYPE
JYPE
021
024
031
035
038
045
047
SEQUENCE NO.
J YPE
J YPE
JYPE
JYPE
JYPE
J YPE
JYPE
JYPE
JYPE
JYPE
J YPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
J YPE
JYPE
HYP
J YPE
J YPE
JYPE
J YPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
JYPE
073
020
012
017
010
029
021
024
053
04l
047
048
011
050
061
040
041
042
043
044
045
046
047
048
049
050
051
052
0.53
054
055
056
057
058
059
060
ObI
Ob2
063
LABEl
NEXTSEQ
041
NEXT
GETAUX
JTYP 021
051
054
059
ASTAR
045
BSTAR
045
CKUNPK
ISfP 012
CHECK
063
SOF T
NT SOF T
JYPE 056
JYPE 063
045
NEXT LABEl
STATEMENT
ClOAD=*E40, EC LEVEL:128211
COMMENTS
SET CPU MODE
SET MODE K=80
NOT SET IC
BR IF BB BH4=0
SET SOFT STOP .SEnC LATCH RESET
RST BC K=90
SET IC RST S4
RST S4
H= I
SE T SO,S5
SET S K=84
BR
STORE
PUT A STAR 01 SP1.AY IN H
BR IF DO B1T7= 1
ASTAR
PUT B STAR DISPLAY IN H
BR IF DO B1T6= 1
BSTAR
PUT CODED STOP IN H
RDH H DA, BE
CK TERM INA TlON
BR
CHECK
READ A. STAR DISPLAY
RDH H OA,98
SE T IN DISPLAY ROUT
RST STAT
DO=OO*-KOI
GO DO IT
BR
NEXT
GET B STAR DISPLAY
RDH H DA.9A
RST STAT
DO=DO*-K02
GO DO IT
BR
NEXT
RE SET S5 AF TER fLAG TO UNPAC K
RS T S5
BR
GO UNPACK
TYPEAG
RS I S4 THI S I S LAST UNPACK
RST S4
TE ST
Z=HIHO 1
REMOTE RESTART CAPABILITY
BR IF lZ=O
NTSOfT
SET SOFT STOP IF NOT REMOTE RST
RST BC K=80
BR
NEXT
**********************************
* CROSS REFERENCE FOR CSECT JYPE *
**********************************
GET AUX
PAGE 138
CLOAD=*E40, EC LE VEL=1282 11
KAAA
DESCRIPTIVE
PAGE 139
TEXT
START FILE ROUTINE
pnRY POINTS
SR TF IL
MOTSEK
THIS IS THE INITIAL E'HRY POINT.
ATIONS ENTER HERE FROM IOCM.
ALL DISK OPER.-
THIS PORTION IS USED BY ALL SEEKS
REGULAR, ALTERNATE, AND DEFECTIVE TRACK. ENTRY IS FROM KBBE,
KAAQ, OR KBBG.
BBBTw()
ENTRY AT THIS POINT IS FROM THE KBBB ROUTINE
DURING WRITE WiTH ADDRESS. THE DCF IS DECODED TO
A BINARY VALUE IN THIS PORTION OF THE ROUTINE.
,,[JOR
19EC
19EE
19FO
19f2
19F4
19F6
19F8
19FA
19FC
19FE
1AOO
WORD
7622
1812
5C02
3COD
20(7
7052
702
bC24
2053
2E45
5FD8
SEQUENCE NO.
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
02B
029
030
LABEL
NEXTLABEL
STATEMENT
ENTRY AT THIS POINT IS FROM KBBG TO PERFORM HEAD
SELECT DURING ALTERNATE TRACK ENOl NG. ENTRY IS
FROM KAAH DURING MULTI TRACK HEAD SWITCHING.
COMMENTS
KAAA START FILE
R.HUTCHINSON
***********************************************************
T
*
*
*S TART 14XX FILE OPERATION ENTRY FROM I CYCLES
*VREG=BBB Ul=OP Dl=RfW 00 Blll= MOVE
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
NEXTSEQ
HDSLCT
THE FOLLOWING LIST REPRESENTS THE K ADDRESSABLE
LOCATION USED DURING 14XX DISK OPERATION
Kl TEMPORARY I REG STORAGE
K2 TEMPORARY 0 REG STORAGE
K3 COUNT FIELD ADDRESS MAIN STORAGE
K4 fILE DATA FIELD ADDRESS
K5 ZONE XFER INFORMATION & ADDRESS OF SELEC TEO 231 1
KB fILE SET BRANCH CONDITIONS
KB PREV IOUS FILE OP & FILE SET BRANCH CONDITIONS
KE PRESENT fILE MODULE VALUE & 2311 CYL VALUE
Kf WORD COUNT FOR DATA XfER
SRTfl L
READBT
***********************************************************
STH 0 DA,BC
BACK UP K2
STH I OAt 8A
BACK UP Kl
RDH P DA t 8B
READ BIAS CONSTANT
KO
PO=PO-KOO
BUilD STORAGE ADDRESS
Pl=O
CLEAR MARK AREA
STB PI DA,9A
STH P DA,8E
STORE COUNT ADDRESS fiELD K3
P=V+2
MAKE P = BBB+2
UO=0$K05
SET COUNT = 5
HO=O$K40
BU IlD CM- 6 BLANK
ROB Hl P+l
flOOR
WORD
SEQUENCE
lA02
1A04
IA06
lA OB
lAOA
lADC
lADE
lA 10
1A 12
1A 14
1A 16
lA18
3F45
6FEl
C48C
4026
A 70A
3000
C480
2407
25A5
3513
5F40
SFE9
5530
6224
7242
E525
5530
1.513
5550
3,A5
C 12E
25EB
5C40
2455
5055
C4BO
35B5
5F40
Ef40
'>CEA
FA4F
5530
5550
1513
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAllA
KAAA
LAlA
IA iC
1A lE
1A20
U22
1424
tA2l>
1A 28
1A2A
lA2C
11\ 2E
11\ 30
1A32
iA 34
lA 36
lA38
lA3A
lA3C
1A40
1442
1A44
lA46
1A48
11\ 41\
LA4C
lA4E
lA 50
14S2
1A 54
7(51
C4CF
2C85
5150
4026
2530
5f40
K~AA
KAAA
KA'AA
KA'*'A
KAYtA
KA'AA
KA'1IA
KA~A
KA~A
KA\AA
KA~A
KAAl\
KAA'A
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
NO.
031
032
033
034
035
036
031
038
039
040
041
042
043
044
045
046
047
048
049
0.50
051
052
053
054
OS5
056
057
058
059
060
061
062
063
064
065
066
061
068
069
070
071
012
073
014
015
076
071
018
019
080
081
082
083
LABEl
NEXTSEQ
036
NEXT lABEl
\I ALI 0
KAAQ 009
XERROR
030
REAOBT
VAUD
048
AUXAOR
053
DOHI
060
STOl>60
061
KENO 002
068
DOITTO
STOP60
OPGREG
AUXAOR
oDIn
S1"OP60
DOl TTO
068
OPGREG
,...
*
*
*
*
*
*
*
*
*
*
*
STAfEMENT
Hl=Hl$K40
Hl=HlrlHO
BR IF INI
U:V
BR
UO=UO-KOO
BR IF lNZ
GO'=O
G1=0$KAO
Gl=Gl$K01
ROB HI AS.G
HO'=Hl
ROB Gl V
V=V*2
5TH V OA.98
BR IF G1 BIT 2=1
ROB Gl V
G1=G1*-K01
Gl=Gll
Gl=Gl$KAO
BR IF G1 BH4=O
G1=Gl+KOE
ROH P AS,G
GO=0$1(50
Gl=PlXl
BR If I=O
Gl=GUKBO
ROB HI AS.G
BR IF Hi BIT 2=0
BR
BR I f HO BITT: 1
ROB G1 V
Gl=Gll
G1=G1*-K01
PO=PO-Gl+l
BR If Z=O
PO=0$K80
Gt;UIL
ClOAO==*E40, EC LEVEl-=12B211
COMMENTS
DE STROY WORD MARK
COMPARE
BR IF CHAR NOT BLANK
MAKE A STAR. VALID
BR TO SET NO AOOR COMPARE
DEC COUNT
SET AUX 00
A
SET
SET
1
GET MOO PROT AND COMP 01 S.
READ BBB * POSITION
UPDATE V TO BBB+2
STORE V K4
BR IF Nor ,...
READ MOO SELECT BBS+2
STRIP ODD BIT
THROW AWAY HI ORDER
BU IlO ROW A
HOO MODUlE IN ROW A lOOKUP
IN ROW 8 FOR 1400 MODULE 8
14XXMODUlEPOL.NPl SELECT PIH
RESTORE MOl) 5 FOR AUX AOOR
MODULE MISMATCH
nU-50BX
CK FOR MORE THAN 1 MOO SEt
MODULE MISMATCH
BR I f NO OVFLO PROTECT
READ ACTUAL MODULE VALUE BBB+2
STRIP BIT 7
COMPARE EXPECTED AND AC fUAl
CHECK FOR MOD MISMATCH
OPGREG
SET MISMATCH MARK
14XXOP TO G1 lOW
MAKE A STAR VAUD
U=V
SET ROW 3
Gl=Gli-K30
TABLE Of' m HI
ROB HI AS.G
***********************************************************
HI-O
Hl-l
Hl-2
Hl-3
HI.-4
Hl-5
THE FOLLOWiNG LIST REPRESENTS THE BIT
SIGNIFICANCE OF THE H REGI STER
Hl-6 SECTOR OVERLAY
SEEK
Hl-1 READ BACK CHECK
SCAN
HG-3 READ
HIGH
HG-S MOVE
EQUAL
HO-6 RECAUBRATE
TRACK
HG-1 COMPARE 01 SABLE
ADDR Of>
***********************************************************
PAGE 140
AODR
WORD
lA5b
1A58
lA 5A
lA3E
1338
l33A
13 3C
1lZC
132E
1330
1332
l:~ 34
1336
07EC
\l7EE
HFO
07F2
CC3E
CF3F
9CEA
9338
fA2C
ZED
932E
ZEO
F332
3E15
F236
3E43
a7EC
3480
F5EF
5ECF
C4E9
A500
8390
4ECF
8468
490F
56B2
1C52
EEF5
OEF4
FAF5
CEEO
SBFO
01F4
J1F6
J7E8
07EA
07B4
0786
;)788
07BA
011:)C
i17BE
01CO
07(.2
i.l7C4
07C6
07C8
01CA
07CC
a7eE
0700
0102
(1704
0106
0708
01DA
(HOC
070E
E754
0153
F006
CF58
1740
0759
3E23
8108
C659
1745
1685
FB 19
C778
9F6C
SEQUENCE NO.
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
084
085
086
087
088
089
090
091
092
093
094
095
096
O822
2824
2826
2828
282A
282C
282E
2830
2832
2834
2<136
2838
283A
233C
283E
2840
2842
2d44
2846
2848
2844
1B62
1B64
1866
IB68
IB6A
186C
LB6E
IB70
IS 72
0468
()/+6A
J4bC
04bE
0470
0412
0474
0476
0478
041A
047C
3210
5079
OE08
2302
2304
3110
3029
4FDF
43DF
8526
5FCF
SEQUENCE NO.
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
296
291
298
299
300
301.
302
303
304
305
306
301
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
.333
334
335
336
331
338
339
340
341
342
343
344
345
3460
.347
348
LABEL
MonON
SEKOON
RECRTN
HOSleT
P13
*
*
*
ASEQ
CC TE ST
NEXTSEQ
NEXTLABEL
STATEMENT
CLOAD=*E40, EC LE VEL=128211
COMMENTS
pO=O
BUS
RE SET HD REG
FBO=P1
TAG
CONTROL
TGRO=P1
TAG
RESET
TGRO=PO
BUS
NEW CYL TO BUS
FBO: 11
Pl=OSK40
TAG
SET CYl
TGRO=Pl
TAG
RESET
TGRO=PO
BUS
HEAD & DIRECTION
FBO=D1
Pl=OSK20
TAG
SET HEAD
TGRO=Pl
TAG
RE SET
TGRO=PO
BUS
DIFFERENCE
FBO: 10
CHK fOR 0 DIFfERENCE
Z= IO+KO 1
BR IF MOTION SEEK
BR IF AC=O
314 MOT ION
BR IF HI BITO= 1
BR IF OP IS SEEK
323 SEKOON
BAL
325 HOSLCT
KAAF 012 RUSAVS
BR
Pl=OSK80
TAG
SET DIFFERENCE
TGRO=P1
TAG
RE SET
TGRO=PO
Pl=OSK20
BUS
SEEK START
FBO=Pl
Pl=OSKOI
CTRL LATCH
TGRO=P1
BR IF ALT TRK SEEK
324 RECRTN
8R IF Gl BITO=l
BR IF REC 0
324 RECRTN
BR IF GO BIT ')=1
SEEK COMPLE TE BR TO SEEK ENO
KENO 017 SEKEND
BR
GO WAIT FOR ATTEN.
KBBG 008 RECRTN
BR
SEL HEAD ALL OPS EXCEPT SEEK
Pl=OSK04
SEL HEAO
FBO:P I
Pl=Pl+Pl
BR IF PI BlT3=O
327 P13
CTRl
TGRO=Pl
SET CHO CH ANO SI LI
Pl=OSK60
SET FLAGS
FFO=Pl
CLEAR 1ST SCH
GO=GO*-K40
RTN
***********************************************************************
CYCLIC COOE HARDWARE TEST
**
*
***********************************************************************
AlO1=68
SET PRIORITY TO PREVENT OC TRAPS
SET MMSK K=81
MOVE MOO SEL VALUE OURING CC TST
01=Pl
INITIAL RESET OROPS CHAIN END
RST FIB K=40
SET DIAGNOSTIC (j) 1400 Fl LE MOOE
SET DlAC K=lO
SET OIAG INDEX
SET OIAC K=20
DlAG AODR O&COMP GATE,RAISE READ
SET OIAB K=81
SET CONSTANT OF
Pl=0-K20
LOAD OP REG WITH OF
FOP=Pl
LOAO WRITE BUFFER WI TH OF
FEBO=? 1
TST FOR DF IN WR BFR.AlUCHK =ERR
BAL
440 PEDS
GET OP REG BITS
PO=FO?
PAGE 145
CLOAD~*E40,
WORD
047E
;)'.80
:)41'12
0484
0486
;)488
048A
,)48C
048E
0490
0492
0494
ll4'J6
)4'18
0 /+91,
049C
049E
04AO
1l4A2
04A4
J/t A6
04A8
04AA
04AC
lCfF
C4FA
4FCF
.5FCF
C4FA
8512
5BCF
8528
5ECF
C4FA
2310
2390
2013
4FOF
2025
430F
3110
851E
2035
201B
4FDF
8516
5BCF
2085
;)4A E
3023
04HO
8528
04B2
04B4
04B6
3D73
0488
04flA
04BC
04BE
04CO
04(2
8524
3114
851A
20A3
8524
1000
CAfB
04(4
2380
3114
04(6
04C8
851A
2045
04CA
3DE]
04(C
8524
04CE
0400
0402
1000
2390
3114
0404
2308
0406
2D75
0408
30A3
8524
040A
SEQUENCE NO.
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
LABEL
349
351
352
353
354
35.5
*
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
*
381
382
383
384
385
386
387
388
*
389
390
391
392
393
*
394
395
396
391
398
399
400
401
*
*
NEXT LABEL
STATEMENT
EC LEVEL=128211
COMMENTS
MASK FOR CORRECT OP REG BITS
PO=POaKff
BR IF ZNZ
8R IF OP REG NOT FF
FOP=PO
RESET OP REG
PO=FOP
GET OP REG BITS
BR IF ZNZ
BR IF OP REG NOT ALL ZERO
418 ALUCHK
430 SHI FT8
BAL
ADVANCE BIT RING 8 TIMES
GET READ BUfF BITS EXTERNAL B
PO=SD I
TST XFER WR TO RD BFR,DF
441 XOR
BAL
EXIT TO ALUCHK If Of HEX WAS NOT XFERREO TO READ BFR
GET DIAG INFO FROM WR BfR-OADDRPO=DS
418 ALUCHK
BR If ZNZ
BR IF WR BUFf NOT RESET TO ZERO
SET DIAC K=Ol
ADV TO ZONE 1
SET OIAC K=09
ADV TO ZONE 2&SET SEP DATA BIT
P1=O$K01
SET WRITE BIT OF OP REG
FOP=Pl
LOAD OP REG WITH 01
Pl=0$K20
SET WR BFR TO 20
FEBO=P 1
DIAG AOORO&COMP GATE,RAISE READ
SET OIAB K=81
BAL
2 BIT RING ADV WITH WR PHASE A
436 SHIFT2
P1=O$K30
PI= P 1f-KO 1
SET SEARCH EQ lOOP 31 HEX
FOP= P 1
SCH EQ 10 TO OP REG HARDWARE
6 BIT RING ADV WITH DIAG WR PH A
432 SHI H6
BAL
PO=SO I
GET READ BUFF BITS
Pl-=O$KBO
Pl=PUK02
SET Pl TO TEST FOR 82 IN RO BFR
BAL
TEST READ BUfFER FOR 82
441 XOR
Pl=PUK07
PI TO 87 HEX
BAL
TEST CC REG fOR lON,16.17 Off
439
SEn
SET DIAB K=Al
DIAG ADDR O&DIAG COMP PH TURN ON
READ GATE. DIAG AD DR 2 AND OIAG COMP PH TURN ON COMPARE TGR
434 SHIFT4
BAl
4 BIT RING ADV WITH DIAG WR PH A
Pl:O$KOA
BAL
TEST fOR UNEQ COMP AND WR CLK BT
439
SEn
RST FIA K=BO
RST HI LO CC ERR &TRAP LATCH
BR IF OS 4= 1
418 ALUCHK
EX IT If UNEQUAL CaMP NOT RESET
SET olAe K=08
SET SEPERATED DATA BIT
SET DIAB K=Al
OIAG ADDR O&DIAG COMP PH TURN ON
READ GAT E. OI AG AODR 2 AND OIAG COMP PH TURN ON COMPARE TGR
BAL
434 SHIFT4
4 BIT RING ADV WITH DIAG WR PH A
Pl=OSK40
Pl:PUKOE
PI SET TO 4E
BAl
439 SEn
TEST FOR CC REG 16 ON. UNEQ COMP
BIT RING 7 AND WRITE CLOCK ON
RST FIA K=BO
RST HI to CC ERR&TRAP LATCH
SET OIAC K=09
AD\, TO ZONE 3&SET SEP DATA BIT
SET DIAB K=A 1
OIAG AOOR O&DIAG COMP PH TURN ON
READ GATE. OIAG ADOR 2 AND OIAG COMP PH TURN ON COMPARE TGR
SET DIAC K"'40
AOV BIT RING WITH DIAG WR PH A
Pl=OSK70
Pl:Pl$KOA
Pl=7A
439
SET3
BAL
TEST FOR CC16,11, CC ERRUNEQ COMP & WR CLOCK BIT
418
350
356
357
358
359
360
361
NEXTSEQ
ALUCHK
PAGE 146
ADDR
WORD
04DC
040E
04EO
1000
3114
2380
2308
2035
3DA3
8524
1000
3114
04E2
04E4
04E6
04E8
04EA
04EC
04EE
04FO
04F2
04F4
04F6
04F8
04FA
04FC
04FE
0500
() 502
0504
05U6
0508
050A
050C
050E
0510
0512
0514
0516
0518
2308
2055
30B 3
8524
1000
8506
2100
IEOO
OE08
1210
A5DO
8B58
2100
3EOO
OF08
1210
5709
87B4
2308
2308
2308
2308
2308
2308
2308
2308
128E
2112
5ECF
6CO 1
C4AF
84fA
128E
OSlA
051C
051E
0520
0522
0524
0526
0528
052A
052C
052E
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
020
030
036
048
053
060
061
LABEL
SEQUENCE NO.
IDCM
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
1<.AAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
025
037
033
04b
051
056
059
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
*
ALUCHK
CCDONE
SHIFTS
SHI FT7
SHIFT6
SHIFTS
SHlfH
SHIFH
SHIFT2
SHIFH
SEn
PEDS
XOR
RE TURN
NEXTSEQ
NEXTlABEL
STATEMENT
CLOAD=*E40, EC LEVEl=128211
COMMENTS
RST HI LO CC ERRSTRAP LATCH
RST F IA K=BO
DIAG AODROSCOMP GATE,READ-COMP
SET OIAB K=Al
SET SEP DATA BIT
SET DIAC K=OB
ADV BIT RING WITH DIAG WR PH A
SET 01 AC K=40
Pl=OSK30
P 1=3A
Pl=Pl$KOA
TSI CC17,CCERR,UNEQUAL,WR CLK BT
439 SET3
BAL
RST HI LO CC ERRSTRAP LATCH
RST fIA K=80
DIAG ADDR O&DIAG COMP PH TURN ON
SET DlAB K=A 1
READ GATE. DIAG ADDR 2 AND DIAG COMP PH TURN ON COMPARE TGR
ADV BIT RING WITH DIAG WR PH A
SET DIAC K=40
Pl=OSK50
Pl=PlSKOB
P 1=5B
TST CC16,CCERR UNEQ,WR CLKSDA BT
BAL
439 SED
RST HI LO CC ERRSTRAP LATCH
RST F I A K=BO
BR
CC TEST FINISHED
424 CCDCNE
RST DIAG ADDR LATCHES
SET DI AB K=OO
CHAIN END RESET
RST FIB K=80
INITIAL RST,DROP CHAIN END SOl AG
RS r FIB K=40
RELEASE PRIORITY,ALLOW TRAPS
RST MMSK K=Bl
STORE DIAGNOSTIC INFO IN OOBOAUX
BAL
KAAN 029 ERROR
SET ALUCHK,NOT READY AND EXIT
BR
KAAN 052 ALUCHK
RESET DIAGNOSTIC ADDRESS LATCHES
SET 01 AS K=OO
SET NTO LATCH
SET FIB K=80
INITIAL RSr,DROPS NTOSDIAG MODE
RST FIB 1<.=40
RELEASE PRIORITY,AllOW TRAPS
RST MMSK K=81
REPLACE MOD SELECT VALUE I N PI
Pl=Ol
RETURN TO MAIN STREAM
BR
105 SLECT
ADV BIT RING WITH DIAG WR PH A
SET DIAC K=40
SET DlAe 1(=40
SET DlAe 1<.=40
SET OIAC K=40
SET OIAC K;40
SET DlAe K;40
SET OIAe 1<.=40
SET DIAC K=40
RTN
SET DIAG ADDR 3
SET 01 AB K=l1
PO=OS
MA SK FOR EQUAL VALUE S
PO=POIlPI
BR IF NO ERROR
BR IF Z=O
444 RETURN
BR
41B AlueHK
RTN
**********************************
* CROSS REFERENCE FOR eSECT KAAA *
**********************************
PAGE 147
ClOAO:*E40, EC lE VEl::128211
**********************************
* CROSS REFERENCE FOR CSECT KAAA *
**********************************
><,UA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
KAAA
'
BR If AOOR OP
BR IF SCAN OP
BR IF NOT RBCOP
RBC CK CNT 0 wlR If NOT
CK STAT MOD V ERR IF NO
RBC OK OR SEC T OP OK GO
SECT OP CK CNT 0 WlR IF
WlR GO TO ERROR END
AOOR OP CK CNT 0 WLR IF
GO XFER
SEC TOR
0
SCH
NOT 0
NOT 0
***********************************************************
*
*
ENTER HERE WITH STATUS MODIFIER.
*
*
THIS ROUlIN E SET S UP TPE SCH ARGUMENT
*
*
FOR ADDRESS OPERATIONS.
*
*
If COMPARE DISABLE IS ON,
*
*
THE SCH WIll BE MADE ON RECORD 0 ONLY.
*
*
OTHERW ISE A 1ST SCH US ING THE 14XX
*
*
OCF AND THEN THE RO ADOR WILL BE DONE.
*
*
AODR. OP R8e WilL PERFORM TWO R0 SCHS. THE 2ND
*
*
ONE IS DONE TO ORIENT THE 2311 AT REC 1
*
,..*
*
***********************************************************
SH40Dl
187
114
STMOO2
2NOCMP
SE TRO
STRACT
161
SiRAcr
167
STORE
KAAQ 009
XERROR
KAAf 022
171
RESTOP
RCAOOR
KBBB 023
RESECH
STORE
113
114
115
116
177
NEXTSEQ
2NOCMP
E XI TOl
RCAOOR
BR IF G1 BIT 2=0
BR If Gl BIl7=1
SET FIB K:CO
RDH 0 OA,8E
0=0 ... 1
RDH H DA,BC
BR IF Gl BITO= 1
Hl=fBI
STH H DA,Be
BR If Gl BH7=0
PO=O$K01
PO=: PO ... H1
ROB PI 0
PO= POaP 1
BR IF l=O
ST B Hi 0
Ol=Dl"'K03
Hl=O
ST B HI 0
G1=Gl$KOI
RST FIB K=lO
BR
BR IF GO BIl4=1
GO=GO$K20
BR
Gl=GlaK20
BR IF NOT ADDR OP
AOOR OP CK 2ND SCH
SE f NTO RS r FLAG REG
READ COUNT FIELD AOR
K3
GET PRES cn BUMP lOC
BR IF ON AL TER TRK
GEl ACTUAL CYL lOC FROM 2311
STORE CYl IN BUMP
CK IF ENTER ING WITH COMP DISABLE
2311 CYl VALUE PLUS 1
CK FOR CYl OVfLO
GO SH X ERROR C Yl OVflO
STORE CVl IN MAIN
UPDATE TO REC PO S AOOR
ZERO FOR REC
STORE REC o I N MAl N
SET 2ND SCH
SET COLO START
GO SCH 10 ON RO REC
BR If RBC AOOR OP
SET XFER
GO XFER AOOR OP OR SEC T (JP
REMOVE AOOR OP MARK
PAGE 155
AOOR
WORD
2716
2718
3433
A020
SEQUENCE NO.
f401
COlO
C408
8f2C
C421
3583
2ce7
4DCf
A882
271A
271C
21lE
2720
2100
2702
2704
2106
2108
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
LA8El
NEXTSEQ
NEXTlA8El
KAAF 022
RESTOP
*
*
*
*
*
*
*STMOD2
GO=GOSK03
8R
SET LO-EQ , RBC ADOR OP
GO DO 3RD SCH RBC lODR
***********************************************************
*
*
CONTINUE STATUS MODIfIER CHECK
*
*
*************************************************************
191
175
EXI T02
CKSCHI
ClOAD=*E40, EC lEVEL=128211
COMMENTS
STATEMENT
195
KBBB 056
190
CKSCHI
EX ITO 1
EXIT
OPREST
EXIf02
BR IF GO BIT3=i
BR IF GO BIT4=()
BR IF GO BHO=O
8R
BR I F GO BIf 0= 1
Gl=Gl$K08
po=o
EXIT
105
RESUME
FFO=PO
BR
CK SCAN OP
CK RBC
CK SCH
GO XFER RBe OR SCAN
CK SCH
SCAN HIT SET SECT 000
RST CMO CH
***********************************
CROSS REfERENCE FOR CSECT KAAH *
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
018
027
036
046
048
049
050
058
064
077
078
080
087
091
105
III
U5
122
123
124
126
127
132
133
134
135
152
155
161
167
174
115
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAQ
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAH
KAAF
KAAH
KAAH
KAAH
KAAH
016
024
019
042
041
040
038
023
065
077
071
013
089
o'a
048
109
113
116
128
122
119
120
133
129
121
127
049
034
158
161
153
188
**********************************
KAAH 043
KAAH 044
KAAH 195
KAAH 130
KAAH 135
PAGE 156
ClOAO=*E40, EC LEVEl=128211
**********************************
*
KAAH
KAAH
KAAH
KAAH
KAAH
171
181
190
191
195
KAAH
KAAH
KAAH
KAAH
KAAH
114
152
1'11
181
189
CROSS REFERENCE FOR CSECT KAAH *
**********************************
PAGE 151
ADOR
2500
2.502
2504
2506
2508
250A
25DC
250E
25EO
25E2
25E~
25E6
25E8
25EA
25EC
25EE
25FO
25F2
25F4
25f6
25F8
25FA
25FC
0658
085A
WORD
2E07
2fB.5
5612
76E8
5A6F
5E1f
1721
1oE8
507f
1783
556F
1635
4760
5C7F
5770
1713
76EO
0683
FOFO
IEOO
3202
8222
128E
56EO
3785
SEQUENCE NO.
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KlAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KlAN
KAAN
KAAN
KAAN
KlAN
KAAN
KAAN
KAAN
KAAN
KlAN
KlAN
KAAN
KlAN
KAAN
KAAN
KAAN
KAAN
001
002
003
004
005
006
007
008
009
010
all
012
Oll
014
015
Olb
017
018
019
020
021
022
02.3
024
025
026
027
028
02<)
030
031
032
033
034
035
LABH
NEXTSEQ
NEXTLABEL
1400 Fll E COM·P.
T
*
ROUTINE
*
*
*
KlAN
UNUSUAL STATUS 1#
**********.* •• ***.**********.******************************
*
*
*
*
*
*
*
**AUXOOBO
*...
*
*
*
*
*
*
*
*
*
*
*
*1 NEXT
*
*
*
*
*
*
*
*
*ERROR
NOCHEK
ALUCHK
THE FILE EXTERNAL REGS WITH UNUSUAL CONDITION
BITS ARE STORED AS FOLLOWS.
AUX 0082
TC REG
o DC IN CNT
1 TRK OVRUN
2 NRF
3 MAM
4 DATA CK
5 OVERRUN
6 TK COND
AUX 00B3
OS REG
o READV
1 ON LINE
2 UNSAFE
AUX 00B4
OASI REG
o HO COMP
1 SKI P
2--------
AUX 00B5
FGA REG
o ALUCHK
*
*
*
**
•
*
1-------- *
2-------- *
3-------- *
3--TGRI-3 0
*
4 TPGT NOT ER4-------4 WLR
*
*•
5 UNI T EX ...
5 MACH CK
5 EOC
6 STR PR T
6 fLAG ST6*
6 ------*
7 STR WRP
7 SK INC
7 0
7-------- *
*
**** •• ******.***.********************************************
*******••• **.*.************************************************.*.*****
TO DISPLAV FILE OP WHICH STORED UNUSUAL CONDITIONS IDISPLAY INEXT,HEX
2 SUBSTRACT BIAS, HEX 3CONVERT TO DECIMAL 4SUB TRAC T 8,DEC. 5 01 SPLAY THE
RESULTING ADDRESS WITH I/O TYPEWRITER.MANUAl DISPLAY
***********.***********************************.***.****************.**
03b
037
038
039
040
041
042
043
044
045
046
047
048
04<)
050
051
052
053
CLOAD=*E40. EC LEVEL=128211
COMMENTS
STATEMENT
051
NOCHEK
IJRP 011
MACHCK
HO=O
H1=O$KBO
ROH D OA.8A
STH 0 AS. H+2
DO=TC
01=05
01=01*-K02
STH 0 AS.H+2
Ol=TGRI
o 1=Dl*-K08
DO=DASI
00=00*-K30
OO=OlL+OOH
Dl=FGA
Ol=DIL
01=01*-K01
5TH 0 AS.H
Z=OO*-K08
BR IF LZ=O
RST FIB K=80
lINK U MMSK9= 1
BR
RTN
ROH 0 AS,H
01=01$1<80
SE 1 AUX =00
BO
GET I CYCLE BACKUP
PUT I CYC BACK-UP IN BO AUX BFR
GET TC REG
GET OS REG
STRIP LO COMP
STORE Te - OS
GET TGR I REG
REMOVE MOO 20 TRAP BfT
GET OASI REG
SA VE HO COMP SKI P 81 T
MERGE OASI - TGRI
GET FGA REG
STRIP MOD SELS
STRIP INDEX
STORE DAS1-TGRI-fGA
STRIP TRAP GATE BIT FROM TAGRI
CK fOR MACHINE CHECK
TURN ON CH END
CPU ERROR DURING SHARE CYCLE
GO lOG MACHINE CK
GET UNUSUAL CONDITIONS
OR IN AlUCHK.Ft UNKEO CC 1E ST
PAGE 158
ADDR
WORD
OS5C
OB5E
76EO
8390
OEC8
OECA
OECC
OECE
OEDO
OED2
OED4
OED6
OE08
OEOA
OEDe
OEDE
OEEO
OEE2
OEE4
OEE6
OEE8
OEEA
OEEC
OEEE
OHO
2f07
5AEf
OE5'.)
EOD3
3f25
OEB'.)
EOD9
3Fl3
OE33
fOEB
3F21
fE66
3F21
05E6
3F13
5EfF
9E98
EA5E
3EOO
1210
2125
SEQUENCE NO.
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
010
071
012
013
074
015
07b
071
018
079
080
081
082
083
084
085
086
081
088
089
090
091
092
093
094
09'.)
096
097
098
099
100
101
102
103
104
105
106
LABEL
NEXT lABEL
KAAQ 015
SIR UNUSUAL COND WITH ALUCHK
STH D AS, H
GO SET NOT READY & EXIT
NOT ROY
BR
*************************************"'*******"'*************
*
*
*
*
'*"
*
*
*
*
*
'"
*
'"
'"
*
*
*
*
*
*
*
*
*
*
*
'"
*
*
''""
*
*
*
'"
'*"
*
*
*
*
*
*
*
UNSTAl
086
NOrx
089
NOTN
NOlX
NOTN
098
Norv
096
NOMISS
096
NOMISS
145
092
UNSTA2
NOM! SS
NOTV
*
*
*
*
*READRO
THE OAC ERROR STATUS CONDITION
IS DECODED IN THIS ROUJINE.
THE 14XX ERROR BRANCH BYTE IS SETUP AND
STORED IN KB OF AUX 0 STORE.
THE READING OF RECORD 0 FOR ALTERNATE SEEKS
IS ALSO DONE IN THIS ROUTINE.
THE FOLLOWING IS A liST OF OAC ERROR CONDITIONS
AND THE CORRESPONDING 14XX ERROR THAT IS SET
OAT A CK IN COUNT
NO REC FOUND
X ERROR
TRACK OVERRUN
NOT READY
N ERROR
END OF CYliNDER
NRf + WLR
X + WlR ERROR
DATA CHECK
VALIDITY
V ERROR
OVERRUN
VALIDITY
V ERROR
NOT READY
NOT READY
N ERROR
Nor ON LINE
NOT READY
N ERROR
UNSAFE
NOT READY
N ERROR
SEEK INCOMPLETE
Nor READY
N ERROR
MISS ING ADDR MRK
NO REC FOUND
X ERROR
WRONG lGTH REt
MODE ERROR
WlR + V ERROR
*
*
*
*
*
*
*
'"*
'"
*
*
*
*
*
*
*
*
*
*
*
*****************"'*********"'*******************************'"*
'*"
NOlF
STATEMENT
CLOAD=*E40. EC LEVEL; 128211
COMMENTS
NEXTSEQ
Non
Hl=O
HO=TC
Z=HO*-K50
BR If' Hl=O
Hl=HUK20
Z=HO*-KBO
BR IF HZ=O
Hl=Hl$KOl
Z=HO*-K03
BR IF LZ=O
Hl=Hl$K02
BR IF HO BIT3"'0
Hl=Hl$K22
BR IF OASI BITl;O
Hl=HUKOl
HO=DS
BR
BR IF HO BIT6=O
ZERO Hl REG
CALL IN ERROR REG FOR ERROR ASEM
CHK FOR X,[)C CT,NRF
BR IF NOT X
SET X
CK FOR N,TRACK OVERRUN
BR IF NOT N
SET N
CK FOR V,DC OR DATA OVERRUN
BR IF NOT V
SET V
CHECK FOR MISSING ADDRESS MARK
SET X AND V
CK ATTEN
SET N
CALL IN DISK STATUS REG
GO TO UNUSUAL STATUS 2#
BR IF NOT FLAGGED TRACK
*****************"'******************************"'********"'******
*
READ IN RECORD 0 OF OEF. TRACK
*
********************************************"'***"'*****"'*********
SET FIB K=80
RST MMSK K=81
Dl=O$KZO
Nro RESET TO RST ERRORS HOLD MS
ALLOW FILE TRAPS
PAGE 159
AD OR
WORD
OEF2
OEf4
OEF6
OEF8
OEfA
OEFC
OEFE
Of 00
Of 02
Of 04
Of 06
OF08
OFOA
OFOC
OfOE
OHO
407F
2715
4B1F
0340
3763
OE04
2E08
4F1f
3000
3443
3490
2807
2943
5A32
2888
8HO
lebA
lCbC
1C6E
IC 10
lC72
lC 74
iC 16
lC 18
1E98
lE9A
lE9C
lE9E
lEAO
lEA2
lEA4
lEA6
IEA8
lEU
lEAC
lEAE
lEBO
IEB2
iEB4
58E2
519f
78E2
5E32
2F88
58F8
50FO
A7E6
CE22
DE22
EE23
FA23
9EA4
3F13
DA2A
3f83
3f25
2E25
4DEF
2E07
4FEf
3F43
5682
SEQUENCE NO.
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
KAAN
II<
1.
2.
3.
SET ADDRESS SWITCHES TO ADDRESS Of LABEl PCHCHK.
SET MODE SWlTCH TO SAR DELAYED STOP.
WHEN THE ERROR OCCURS, THE PUNCH ATTENTION LIGHT COMES ON AND THE fOllOWING AREAS MAY BE 01 SPLAYED -
PUNCH CrECK LOGOUT AREA AUX
50f6
50F7
50f8
50F9
SOfA
50FB
50fC
50fD
50fE
50FF
*----------*'----------*------~---*----------*----------*----------*----------*----------*----------*----------*
BITS
*'
*
*'
01234567 * 01234561 * 012345&1 * 01234561 * 012345&7 * 01234567 * 01234561 * 01234561 * 01234561 * 01234567 '"
*
*
*
*
*
*
*
*
*
*'
*'
* COLS
1 THRU 8 '" 9 THRU 1&*17 THRU 24*25 THRU 32*33 THRU 40*U THRU 48*49 fHRU 56*51 THRU 64*65 THRU 72*73 THRU80*
>I<
*----------*--------------------*---------*----------*----------*---------*----------*----------*----------*
**'
A BIT BEING ON IN THE LOGOUf AREA SIGNIfIES AN ERROR FOR THAT COLUMN.
'"
THIS AREA MUST BE LOADED WITH BLANKS AFTER EVERY ERROR fOR SUBSEQUENT ERROR ANALYSIS.
*'
*'
*
**
*
*
AUX ADDRESS
*
*
*'
*'
*'
*
*
*
*
*'
*
*'
ROW FORM PUNCH IMAGE ROW
*'
*'
ROW
AUX ADDRESS
*
*
*'
100A - 1013
A BIT BEING Off IN THE ROW fORM PUNCH I MAGE SUfFER
11
1000 - 1009
1014 - lOLD
1
101E - 1027
SIG!'4lflES A HOLE IN THE CARD. THE CARD IS IN THE
*
*
1032
103B
STACKER POCKET.
3
1028 - 1031
*
5
1046 - 104F
4
l03C - 1 C45
105A - 1063
7
1050 - 1059
** 68
9
106E - 1071
1064 - 1060
*
*'******'*"'************************"'********'*************************'***'***************************'********************************'"
12
0
2
'"
'"
'"
'"
ADOR
WORD
0110
0112
2208
9062
10b2
FAEC
5BFF
5ACF
1064
1066
1068
106A
l180
1182
1184
1186
1188
H8A
ll8C
118E
1190
un
1194
11 ,}b
1198
119A
119C
119E
11AO
HA2
llA4
11A6
llA8
llAA
llAC
llAE
11BO
11B2
11B4
11B6
llB8
llBA
llBC
UBE
lltO
llC2
l1C4
11C6
10bC
106E
1070
1072
1074
A2B
9074
5F2C
CbC1
0638
338B
OOOC
DF90
2380
331B
5020
7f20
331F
5f20
60F1
7020
2235
5f20
6CFl
C4B5
CAB4
3F40
2E55
56FD
3FF5
50EO
6OC5
10EO
2215
23CB
2618
C4C2
0080
1495
0208
FOC6
266B
0208
3485
IF80
2635
2668
221.5
SEQUENCE NO.
LPTR
LPTR
LPTR
lPTR
lPTR
LP TR
LPTR
LPTR
LPn
lPTR
lP TR
LPTR
lPTR
lP TR
LPTIt
lP Tit
lPTR
LPTR
lPTR
lP TR
lP TR
lPTR
lPTR
lPTR
lPTR
lPTR
lP TR
LP TR
lPTR
lPTR
LP Tit
lP TR
LP TR
LPTR
lPTR
lP TR
lPTR
lPTR
lPTR
lPTR
lPTR
lPTR
lPTIt
lP Tit
lP TR
lP TR
lP TR
lPTR
lPTR
LP lR
lPTR
lPTR
LPTR
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
Olb
017
018
019
020
021
022
023
024
025
026
021
028
029
030
031
032
033
034
035
036
031
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
LA8El
T
*
*A TABLE
NEXTSEQ
o
049
SETUP
013
053
OK
FALSE
016
041
NOTl2
ROWl2
019
027
PFR
CHKBFR
NOTl2
CHKBFR
039
039
NOERR
NOERR
046
RETURN
048
DONE
PCHCHK
NOERR
ROW12
DONE
SETUP
FAlSE
N
BR IF RPS BIT1=0
HI=RPI
PO=RP2
BR IF DO=NZ
BR
ROB PO AS,V+1
BR IF 00 BHO: 1
BR IF 00 BIrl~O
V1~VI-KOB
PFR
RETURN
ClOAO=*E40. EC lE VEL=128211
COMMENTS
STATEMENT
NATIVE PUNCH TRAP ROUTINE(1400 MODE).
GO= STAT REG
BITO-PUNCH ACTIVE
00= COUNT REG
BITO-ROW 12 INDICATION
AOOR=OllO
LINK U MMSK4= 1
008
ST ART
8R
AENO
START
OK
NEXT LABEL
BR IF GO BIT5=0
BR IF PS BIT1=1
VI:Vl+K80
VI=VI-K07
ROB PI AS.V
STB HI AS,V
VI=VI-K77
ROB HI AS, V
Pl=Pl*HI
ST B PI AS. V
VO=OSK30
ROB HI AS.V
PO=POoHl
BR IF z=o
BR IF RPS BlT4=O
SEJ P K=84
HO=OSK.50
Hl=DOl
HI=Hl$KFO
ROB PI AS, H
PI=PUPO
STB PI AS,H
VO=OSKIO
V I:V l+KOC
OO=OO+KOl
BR IF ZNZ
RST RP K=08
GO=GO*-K90
RTN U MMSK4=0
BR IF LZNZ
DO=OO+K06
RTN U MMSK4=0
GO=GOSK80
RST P K=88
OO=OSK30
OO=OO+K06
VO= OSK 10
RUCKER
5-NORMAl PUNCH(NON-PFR)
BR IF CLUTCH TRAP
GET PFR DATA
GET CHK DATA FROM RP2
CONTINUE IF SETUP HAS OCCURRED
RETURN-FALSE TRAP
SEND NEXT PCH DATA
BR IF NOT ROW 12
BR 1F ROW 12
ADD F4 TO Vl FOR CHK BUFFER
BR IF PFR OP
BR IF NOT NORMAL RUN-IN
PFR OP-MOOIFY VI TO PFR AREA
READ PFR DATA OF LAST CARD
STORE PFR DATA OF THIS CARD
SET ADDR TO PCH IMAGE BUFFER
READ PUNCH DATA
OR THE PUNCH AND PFR DATA
STORE IN IMAGE
SET AODR TO CHECK BUFFER
READ THE CHK IMAGE
CHECK OLD DATA
BR IF OK
BR IF NO CARD THRU CHK STATION
SET PUNCH CHECK & RESTART GATE
SET UP AOOR OF
COLUMN IN ERROR
-AUX STORAGE 50F6-50FF
READ BYTE
OR IN ERROR COLUMNS
STORE BACK ACCUMULATED ERRS
RESET ADDR TO
IMAGE BUFFER
INCREMENT COUNT
BR IF COUNT NOT ZERO
RESET PUNCH COMMAND INTLK
RESET ACTIVE & PFR READ LAST
CORRECT COUNT
SET THE ACTIVE BIT
RESET PUNCH ERRORS
SET COUNT TO 130
-HE X- 36
SET-UP, INITIALIZE VO
PAGE 185
ADDR
WORD
1 U 16
2307
5F2C
0208
1018
1 () 7A
SEQU~NCE
NO.
LABEL
lP TR 054LP TR 055
lPTR 056
NEXTSEQ
NEXTLABEl
ClOAD=*E40, EC tEVEl=128211
COMMENTS
STATEMENT
V 1=0
ROB PO AS, V+1
IUN U MMSK4=O
ADDRESS FOR 1ST BYTE OF IMAGE
1ST RUN-IN CYCLE, SEND PCH DATA
**********************************
* CROSS REfERENCE fOR CSECT lPTR *
**********************************
lPTK
lPTR
LPTR
LPTR
LPTit
LPTR
LP TR
LPTR
lPTR
lPTR
lP TR
008
Oll
016
019
027
039
041
046
048
049
053
LPTR
lPTR
LPTR
LP1R
lPTR
lPTR
lPTR
LPTR
lPJR
LPTR
lPTR
OC6
all
014-
017
018
030
015
042
046
008
012
lPTR 031
PAGE 186
CLOAD=*E40, EC LEVEL=12S211
LPXF
DESCRIPTIVE
PAGE IS7
TEXT
ENTRY POlNT
2.
READ CHARACTER FROM PROGRAM STORAGE 11400 101-lS01.
USE fLU TO READ FROM TRANSLATE TABLE, PUT IN PUNCH
IMAGE BUFFER.
3.
SET UP NEW MASK FOR NEXT CHARACTER, LOOP UNTIL ALL 80
COLUMNS ARE COMPLETE, THEN STORE REGS AND BRANCH TO
PUNCH ENDING ROUTINE.
BEGIN
FROM LPSU, EXCLUSIVE ENTRY POINT.
OBJECTIVES
1.
ADDR
WORD
1488
14BA
2807
2A65
21F7
5179
51F9
51E9
5199
58BO
3885
54AO
1481:
14BE
14<:0
14C2
14C4
14C6
14C8
14CA
14CC
l4CE
1400
5838
1402
1518
9163
1404
1160
1162
1164
1166
1168
116A
116C
116E
3B45
55AO
2DAB
20AB
20AB
20AB
2DAB
20A8
9414
1476
9480
2010
20EB
1478
58eo
1474
141A
H7C
H1E
1480
1482
1484
1486
6B41
7BCO
5805
C504
t':l41
05e8
6741
INITIALIZE FOR TRANSLATE TABLE ADDRESS. SET
REGISTERS TO FF. SET MASK FOR CARD COLUMNS.
SEQUENCE NO.
LP XF
lPXF
LP XF
LPXF
LP XF
LP XF
LP XF
lPXF
LPXF
LPXF
LP XF
LPXF
LPXF
lPXf
LPXF
LPXF
LPXF
lPXF
LP xF
LPXF
LPXF
lP XF
LP XF
lPXF
LP XF
lPXF
lPXF
LPXF
lPXF
LPXF
LP XF
LP xF
LP XF
lPXf
001
002
004
008
009
010
011
LA8EL
NEXTSEQ
T
BEGIN
CLEAR
012
013
014
015
016
NEWMSK
017
018
019
020
021
022
023
024
025
026
027
028
029
8IT421
BU421
IH T421
BIT421
BI T421
BtT421
BI1421
BIT421
ADDIE
030
031
032
033
034
035
036
BYTES
031
038
N
0
1
2
3
4
5
6
7
NEXT LABEL
~ORK
STATEMENT
COMMENTS
1400 PUNCH TRANFERIEBCOIC TO ROW FORM)
RUCKER
10=0
SET CONTROL COUNTER TO 0
TO=0$K60
XLATE TABLE ADDR HIGH
Ul=O$KFF
Cl EAR
Dl=Ul
ALL THE
ACC UMUL ATING
H1=Ul
HO=Ul
REGISTERS
11=U1
Tl=IOL
SET-UP T FOR
Tl=TUKBO
TABLE LOOK-UP OF
ROH G AS.T
NEW MASK( IN GO)
ROB T 1 V+l
READ BYTE FROM STORAGE
T1=T l$K40
CLEAR WORD MARKIIF PRESENT)
ROB G1 AS. T
XLATE TO CONDENSED PUNCH DATA
Gl=GloK01
INVERT BITS 4.2.1
BR UNDER MA SK
021 BIT421 N N=Gl BITS567
ADO 5A(90)-7 PUNCH
P l=Pl +KOA
Pl=P1+KOA
ADO 50(SO)-6 PUNCH
Pl:PI +KO A
ADD 4(170)-5 PUNCH
P1=PI+KOA
ADO 3C( 60 -4 PUNCH
PI=Pl+KOA
ADO 32{SO -3 PUNCH
ADO 2S(40)-2 PUNCH
Pl=PI+KOA
BR
BR TO ADD lE(301-1 PUNCH
029 ADDIE
035 BYTES
BR
NO 1-1 PUNCH
Pl=Pl+K10
ADO IE
Pl=Pl+KOE
TO PUNCH IMAGE BUFFER
STORE
ROB T I AS.P
1 THRU 7
T1=110GO
PUNCH
STB T 1 AS,P
Pl=IOXl
RECOVER PUNCH IMAGE AOOR
037 N
BR IF Gl BITO=O
U1=U loGO
12 PUNCH
039 NE
BR IF Gl BIT 1=0
11 PUNCH
Dl=OloGO
CLOAD=*E40, EC LEVEL=ll8211
LRDR
DESCRIPTIVE
PAGE 189
TEXT
ENTRY POINTS
FEED. REAO AND CLEAR EOF INDICATOR.
CHANGE OP CODE.
CHECK
~OR
ERRORS.
RORENO
ENTER HERE FROM LXFR FOR NORMAL ENDING.
2.
IF THERE ARE ERRORS, SET INDICATOR. READ CONTROL BYTE,
IF 1/0 CHECK STOP IS ON, SET 3F STOP CODE.
BRANCH TO
STOP ROUTINE FOR DISPLAY.
3.
READER NOT READY OR OFF LINE
INTERVENTION REQUIRED STOP.
4.
{PFRI
PFR
ENTER HERE FROM PFR OPS FOR NORMAL ENDING.
SET 4F STOP CODE AND GO TO
OBJECTIVES
i.
(RDRENDI
ADDR
WORD
OEBC
OEBE
OE90
OE92
OE94
OE96
OE98
OE9A
OE9C
OE9E
OEAO
OEAl
OEA4
OEA6
OEA8
OEU
OEAC
OEAE
OEBO
OEB2
OEB4
OEBo
OEBS
OE8A
OE8C
OEBE
13f4
13f6
BfS
13fA
2B40
200B
344.5
3406
5A82
lA85
F99F
3000
3AB5
1A82
5A92
fOBI
C9Bl
lA43
1A92
3400
1593
A5AO
3A43
5DC2
C02S
1583
3AC9
5A89
1Af2
ACBe
0004
IBOO
3406
SSEA
RE SET ERRORS. ALLOW CHECKS.
SEQUENCE NO.
LRDR
LRDR
LROR
LRDR
LRDR
LRDR
LRDR
LRDR
LRDR
LROR
lRDR
LRDR
lRDR
LRDR
LROR
LRDR
LRDR
LRDR
LRDR
lROR
LRDR
lROR
LRDR
LROR
LRDR
lRDR
lROR
lRDR
LROR
lRDR
lROR
001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
018
019
020
021
022
023
024
025
026
027
028
029
030
031
UBEL
T
RDREND
STORE
PFR
CONTI N
REREAD
ERROR
I NTREQ
NOTRDY
NEXTSEQ
START WITH ERROR CONDITION CHECK.
SET 1400 DELAYED
NEXT LABel
STAT EMENT
READ ENDING ROUTINE
SET R K=04
SET RP K=40
GO=GO$K40
SET MODE K= BO
RDH T OA, A8
TO=TO*-K80
BR IF RS1=1
011 STORE
SET RP K=80
TO=TO$K80
STH T OA,A8
RDH T DA,AA
020 ERROR
BR IF RS3=1
BR If RS4= 1
020 ERROR
TO=TO*-K04
5TH T DA,AA
SET MODE K=80
Gl=Gl*-K09
BR
LOPD 030 NOTl25
TO=TO$K04
ROB Pl OA,88
8R IF PI0=0
016 CONT IN
Gl:G 1*-K08
TO=O-KCO
Tl=TO
STH T DA,BE
BR
lOIS 010 STOP
RST RP K= 20
RST R K=80
SET MODE K= BO
IREG 016 RSTREG
BAL
COMMENTS
RUCKER
ALLOW READ CHECKS
SET 1400 DELAYED FEED
SET READER ACTIVE BIT
SET READ MODE, CPU ZONE
READ AND
CLEAR EOF INDICATOR
BR IF NO NEW EOF IND TO BE SET
ACCEPT EOF BIT, READY WILL DROP
SE T t\lEW EOF INDICATOR
STORE BACK CONTROL BYTE
READ ERROR CONTROL BYTE
BR IF READIHOlE COUNTfERROR
BR If VALIDITY ERROR
NO ERROR-CLEAR ERROR BIT
STORE CONTROL BYTE
CPU ZONE AND MODE
RESET READ AND PfR INDICATOR
CONTINUE-BR TO TEST fOR COMB OP
SET ERROR INDICATOR
READ CONTROL BYTE
BR If 110 CHK STOP SWITCH OFf
ERR AND CHK STOP ON-RESET PFR
INDICATOR-SET 3F STOP CODE
IN TO AND H.
STORE S TOP CODE
STOP CODE :OMPLETE
RESET COMMAND INTlK
RESET READ ERRORS(IF ON)
SET READ MODE, CPU ZONE
RESTORE CPU REGS
ADOK
WORD
SEQUENCE NO.
13fC
13FE
3A89
aE:BA
LKOR 032
LRDR 033
LABEL
NEXTSEQ
025
NEXTlABEL
I NTREQ
CLOAD=*E40. EC lEVEl=128211
COMMENTS
STATEMENT
TO=O-K BO
BR
SET 4F STOP CODE IN TO
GO TO INTERVENTION REQ. STOP
**********************************
*
LRDR
lRDR
Ltl.DR
LROH.
LRDR
LRDR
LRDR
002
011
012
016
020
025
028
L XFR
LRDR
LRXf
LRDR
LRDR
lPSU
lXfR
105
DC8
028
022
013
043
Oll
CROSS REFERENCE FOR CSECT LRDR
*
**********************************
LROR 014
LROR 033
PAGE 190
WORD
ADDK
lA 5E
lA60
lA62
IFBO
E9E8
5A82
lASS
7A82
lAC7
21)01
OB30
6AA4
C4EC
EBDf
ClOC
3E99
6fF 1
C4DD
FODC
8B4£
'l6DA
lA64
lAc6
lA68
lAM
lA6C
lA6E
lA10
lA 72
lA 74
lA 76
LA 78
lA 1 A
lA7C
lA 7E
lA 5C
LlH:Q
LKEQ
lREQ
LKEQ
lREQ
006
007
011
013
023
LABEL
SEQUENCE NO.
LREQ
INRU
LREQ
lREQ
tREQ
LkEf.)
LREQ
LREQ
LREQ
LREQ
LREQ
LREQ
LREQ
LRE,;j
lREQ
LREiJ
LREQ
lRE:Q
LREQ
lREQ
lREQ
lREQ
lREQ
lREQ
LREQ
lREQ
lREQ
LREQ
016
069
001
015
011
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
Oll
022
023
T
*
*
*
*
PCHREQ
STAR T
NORST
RDRREQ
BACK
LREQ 020
NEXTSEQ
NEXTLABEl
STAT EMENT
ClOAD=*E40. EC LEVEL=128211
COMMENTS
RUCKER
READ REQUEST ROUT! NE
READ REQUEST LATCH IS SET ONLY DURING RUN-IN
TO HANDLE THE DATA TRANfER AT THA T TIME. IF HARDWARE OJ ( S ON,
OAT A TRANSFER IS BYPASSED.
** BOTH THE READ [. pUNCH DEVICE ENDS ARE TESTED fOR REMOTE RESTART.
RESET PCH REQUEST [. ERROR
RST P K=8B
NORST
Bf!. If NO READ REQ
011
SR If RS6=0
RDH T DA,A8
RESET
EOF
TO=TO*-K80
S TH T OA,AB
BIT
TO=O
T1=0
INITIALIZE COUNT REG TO ZERO
RST R K=03
RESET READ REQ
WA IT ApI'
T=T+2
BR IF ZNZ
013 RORREQ
90 MILL I SECONDS
SR IF PS6=1
TEST PCH REQUEST
006 PCHREQ
023 BACK
BR IF S4=0
BR IF NOT 16 CHAR HALT MESSAGE
HO=0-K90
MA SK FOR 6F PRINTER RETURN
HO=HOIlH 1
CHECK REMOTE RESTART
023 BACK
BR IF Z=O
PR INTER INTERVENTION
SR IF llNI
NOT READER PUNCH INTERVENTI ON
023 BACK
LXfR 101 RETURN
BR
REMOTR RESTART-RETURN TO RDR/PCH
INRU 080 GO BACK
BR
GO BACK TO WAIT LOOP
**********************************
* CROSS REfERENCE FOR CSECT LREQ *
**********************************
lREQ 021
pAGE 191
CLOAD=*E40, EC LEVEL=12B21l
LRTR
DESCRIPTIVE
PAGE 192
TEXT
OBJECTIVES
2.
SET READER ACTIVE AND TRANSFER BI TS.
COMPARE (RESUL TS ARE NOT CHECKEDI.
CLUTCH CYCLE
AFTER RUN IN (DATA I
1.
2.
3.
SET READER TRAP CONDITIONS.
SET READ CARD IMAGE BUFFER 1 ADDRESS.
SET TRAP COUNTER.
1.
2.
3.
RUN IN IDATA)
1.
TRANSFER RPI DATA TO READ CARD [MAGE BUFFER 1.
COMPARE RP2 DATA TO BUFFER, LOG ERRORS, IF ANY.
I~CREMENT BYTE COUNTER, WHEN 120 TRAPS ARE COMPLETED, END
THE OPERATION.
SET READ CARD IMAGE BUfFER 2 ADDRESS (2 fEEO CYCLES ••
**********************************************************************************************************************************
*
*
PROCEDURE FOR ANALVZING READER CHECKS DUE TO HOLE COUNT.
*
*
*
** 1. SET ADDRESS SWITCHES TO ADDRESS OF LABEL -RDRCHK*
*
* 2. SET MODE SWITCH TO SAR DELAYED STOP.
*
* 3. WHEN AN ERROR OCCURS, THE READER ATTENTION LIGHT COMES ON AND THE fOLLOWING AREAS MAY BE DISPLAYED.
*
** READER CHECK LOGOUT AREA-*
*
*
10F8
10f9
10fA
IOFO
10F6
10F7
10FB
10FC
10FE
10FF
* AUX
*
*
*----------*----------*----------*----------*----------*----------*----------*----------*----------*----------*
*
* BITS * 01234561 * 01234567 * 01234567 * 01234561 * 01234561 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 *
*
*
*
*
*
*
*
*
*
*
*
*
*
*
* COLS * 1 THRU 8 * 9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80*
*
*
*----------*----------:c<----------*----------*----------*----------*----------*----------*----------*----------*
*
**
*
**
A BIT BEING ON [N THE LOGOUT AREA SIGNIFIES AN ERROR fOR THAT COLUMN.
THIS AREA MUST BE LOADED WITH BLANKS AfTER EVERY ERROR FOR SUBSEQUENT ERROR ANALVSIS.
**
**
*
---RJW FORM AREA--AUXILIARY STORAGE 3FAO- 4017
---COLUMN FORM AREA--AUXILIARY STORAGE 4020 - 408F
*
A 81T BEING A ZERO INDICATES A HOLE IN THE CARD THAT
A 8IT BEING ON INDICATES A HOLE IN THE CARD THAT IS NOW
*
*
IN THE PRE STACKER STATION.
THIS IS A RESULT OF THE
IS BETWEEN THE FIRST AND SECOND READ STATIDNS.
*
*
fiRST READ STATION TRAPS.
*
4021
* FORMAT
4020
*
BIT ROW COL
ROW
AUX ADDRESS
ROW
AUX AODRESS
*
8IT ROW COL
**
fORMAT IS THE
X
0
*
0
X
SAME
FOR
EACH
9
1
X
3FAO
3FA9
3
3FDC
3FE5
*
1
X
*
CARD COLUMN.
B
3FAA - 3FB3
3FE6 - 3FEF
2
4
2
*
2
12
*
-1AUX 4022-4023
7
3FB4 - 3F8D
5
1
3
3FFO - 3ff9
*
3
11
-1*
4
6
FOR COL 2. AUX
.3fFA - 4003
6
3fBE - 3Ft 7
0
*
4
0
*
4024-4025 FOR
5
7
5
3FC8 - 3FD1
11
4004 - 4000
*
*
5
1
COL 3, ETC.
6
4
400E - 4-011
8
3FD2 - 3FOB
12
*
6
2
*
7
9
*
7.3
*
******************************************************************************************************"**************"*********"'**
*
ADDR
WORD
OlBO
01B2
01B4
2206
5ACF
9146
1146
1148
U4A
114C
EAAE
5BDF
A303
0206
Sf 00
7008
CD8E
20ID
1000
30fB
3465
6Cf 1
C4A3
COAl
3BOO
2E 15
57fO
3ff5
SOEO
6DC5
7DEO
211B
C488
CDeS
HOO
1102
1104
1106
11 08
110A
110C
1l0E
1110
1112
1114
1116
HIB
liLA
lllC
UlE
11,,0
1122
1124
H26
1128
li2A
lUC
112E
7400
1465
02e6
SBDF
1.130
1132
3445
1134
1136
1138
2IA5
113A
113C
ll.3E
1140
1142
1144
30C9
2145
fOC4
3763
01A 1
e4C4
COC5
0004
0206
SEQUENCE NO.
lRTR
LRTR
LRTR
lRTR
lRTR
LRIR
lRIR
LR TR
lRTR
lRTR
lR TR
lR IR
lRIR
lRTR
LR TR
lRTR
tRTR
lR TR
lR TR
lR TR
LRTR
lR TR
tRTR
lRTR
lRTR
lR TR
lRTR
lR TR
lR IR
lRTR
lR TR
lRTR
LR lR
lR lR
lRTR
lR lR
lRiR
lR TR
tRIR
LR TR
LR TR
lR lR
lR TR
LR TR
lRIR
LRTR
lRTR
001
002
003
004
005
006
001
008
009
010
011
012
013
LABEL
T
*
*ATABLE
NEXTSEQ
036
013
OK
o
020
020
021
022
NOTRUN
023
RDRCHK
030
030
024
025
026
021
028
029
030
031
032
NOERR
041
047
033
034
035
0.36
SETUP
037
038
039
040
041
RETURN
042
043
044
045
046
047
041
047
041
RET
STATEMENT
CLOAD=*E40. EC LEVEL=128211
COMMENTS
READER TRAP ROUTINE
RUCKER
NATIVE READER TRAP GO=STATUS REGISTER
ROUTINE-1400 MODE
l-ROR ACTIVE
2-CPU TRANSfER NECESSARY
ADDR=OIBO
LINK U MMSK3=1
PO=RP2
TAKE READ 2 INFO
009 START
BR
AEND
START
014
015
016
011
018
019
NEXT LABEL
SETUP
BR If RPS BIT6=0
PI=RP I
OK
N BR IF Dl=NI
RTN U MMSK 3= 0
ROB HI AS.U
STB PI AS,U+I
NOTRUN
BR IF RS BITO=O
UO=UO+K 10
STB P I AS ,U
UO=UO-KOF
GO=GO$K60
PO=POoHI
NOERR
BR IF I-O
NOERR
BR If RS BITO- 1
SET R K=80
HO=O$K 10
HI=DlL
Hl=Hl$KFO
ROB Pl AS,H
Pl=PUPO
STB PI AS.H
D1=Dl+KOl
RETURN
BR IF lNl
RET
BR IF RSO= 1
S TH GAS, U
GO=GO*-K60
KTN U MMSK3=0
Pl=RP1
GO=GO$K40
UO=O-KCO
Ul=O$KAO
Dl=0$K40
RET
BR IF LINI
Dl=Dl$K06
Z:Dl +KOA
RET
BR IF ZNI
RET
BR If RSO= 1
RST RP K= 20
RTN U MMSK3=0
BR IF READER CLUTCH CYCLE
TAKE READ 1 INFO
CONTINUE IF SE TUP WAS OK
RETURN-fALSE TRAP HAS OCCURRED
READ OLD DATA
STORE NEW DATA
BR If GATE READ COMPLETE
SET U TO IMAGE 2 ADDR.
STORE NEW C~AR IN IMAGE 2 BUF.
RESTORE IMAGE 1 ADDRESS
SET READER ACTIVE & XFER BITS
CHECK OLD DATA
BR IF NO ERROR
BR IF NOT GATE READ COMPLETE
SET READ ERROR
SET UP AODR OF
COLUMN IN ERROR
- AUX STORAGE 1 OF 6-1 OFF
READ BYTE
OR IN ERROR COLUMNS
STORE BACK ACCUMULATED ERRS
INCREMENT BYTE COUNTER BY 1
BR IF NOT GATE READ COMPLETE
STORE XFER BI T STATUS
RESET ACTIVE & XfER BITIIF ONI
TAKE READ 1 INFO
SET THE ACTIVE BIT
SET U TO 3FAO TO ADDRESS
R fAD IMAGE BUFFER
SET READ
LZ=O. UPDATE 01 FOR DECIMAL CNT
TEST fOR ROW 11 END
RETURN IF NOT ROW 11 END
BR IF NOT GATE READ COMP.
RESET COMMAND INTtK
PAGE 193
CLOAO=*E40, EC lEVEl=128211
**********************************
*
LR TR OOq
LRTR
LRTR
LRTR
LRTR
013
020
030
030
LRTR 041
lRTR 041
LRTR OC1
LR TR Oll
LR IR 015
lRTR 021
lRTR 022
LR TR OC9
LR TR 031
LRTR 032
CROSS REFERENCE FOR CSECT lRTR
*
**********************************
lRTR 041
LRTR 044
LRTR 045
PAGE lq4
CLOAD=*E40, EC LEVEl=128211
LRXF
DESCRIPTIVE
PAGE 195
TEXT
ENTRY POINTS
ENTR Y
NORMAL ENTRY PO(NT FROM READ OP DECODE OR FROM PfR
ROUTINE AfTER PUNCHING AND READING HAS OCCURRED
AND COLUMN FURM BUFfER HAS BEEN LOADED FROM THE
ROW FORM BUFFER.
2.
CHECK CHARACTER VALIDITY. STORE BLANK (4-0) IF INVALID.
REPEAT UNTIL CHARACTER COUNT BECOMES O.
END IF NOT COLUMN BINARY.
3.
FOR COLUMN BINARY READ, REPEAT READ OUT OF COLUMN FORM
BUFFER. STORE HIGH COL BIN IN 1400 PROGRAM ADDRESS 501580. STORE LOW COL BIN IN 401-480. END ON FULL CARD.
4.
FOR PFR OP
OBJEC JIVES
1.
ADDR
SET CHARA'CTER COUNT AND INITIALIZE FOR READ TRANSLATE
TABLE LOOKUP. TRANSFER DATA fROM COLUMN FORM BUfFER TO
1400 PROGRAM STORAGE 001-080. USE TLU AND READ TRANSLATE
TABLE.
WORD
0994
0996
0998
2855
7B38
2406
099A
099C
099E
09AO
09A2
09.A4
09A6
09A8
09AA
09AC
09AE
0980
0982
09B4
0986
09B8
09BA
098C
09BE
09CO
09C2
09C.tt
09C6
IBOO
2A55
5C 88
2B73
6003
6DD3
EOBB
6BC 7
C4C 7
F231
2B80
2545
0840
EOEl
2F80
89EO
66C7
C4D1
1C 73
89CA
98EA
8EAO
3C43
SEQUENCE NO.
LRXf
LR XF
LRXF
LR XF
LRXF
LRXF
lRXF
LRXF
LRXF
lRXF
lRXF
lRXf
LRXf
lRXF
LRXF
LRXF
LRXF
lRXF
LRXF
lRXF
LRXF
LRXf
LRXF
lRXF
LRXF
LRXF
LRXF
LRXF
lR XF
001
002
003
004
005
006
007
008
009
OlO
Oil
Ol2
013
014
015
016
017
018
019
020
021
022
023
024
USEL
T
ASEQ
ENTRY
NEXT LABEL
023
N04567
029
018
N0123
NOERR
04-2
MAINRO
042
MAINRO
034
NOH23
031
IREG 016
lRDK 012
TABLUP
RSTREG
PFR
NOERR
N04567
PfRCOM
NOll3
COMMENTS
1400 TRANFER OF OAT A FROM BUMP TO MAINS TORAGE
NEWCHA
VALCHK
STATEMENT
RUCKER
AL07=14
1400 MODE
*
Ol5
Ol6
027
028
029
NEXTSEQ
TRANSFER DATA AS IN STEP
T 1=0$K50
STB 11 V+l
SET MODE K= 30
INDICATOR (S NOW Off
RST R K=80
TO=0$K50
RDH PAS, 1+2
Tl=0$K07
Pl=P l+P 1
Pl=Pl+Pl
BR IF HZ=O
Tl=Tl*PO
8R IF Z=O
8R IF 00 BIT7= 1
SET R K=08
Gl=0$K40
Z= IoaK40
BR IF HZ=O
SET P K=08
BR
T l=T l*PO
6R IF Z=O
PO=PO*-K01
BR
BAl
BR
PO=PO$K04
STORE 50 IN
1400 ADORE SS 000
READ MODE, CPU ZONE
RESET PREVIOUS READ ERRS! (FON)
SET T FOR READ TABLE LOOK-UP
READ COL FORM DATA
SET MASK IN T
SH 1FT
L EfT TWICE
8R IF ROWS 4567 HAVE NO PUNCHES
MASK ROWS 123
8R IF 123 HAVE NO PUNCHES
SKIP VAL ERROR SET IF COL BIN
SET VALIDITY ERROR
SET BLANK IN G FOR STORING
MASK fOR NORMAL READ OP
8R IF NOT PfR
SET PH VALIDITY CHK
MA SK FOR 123
BR If NO 123
CLEAR PO
GO 00 TABLE LOOK UP
RESTORE REGS U,V,I,G.O
GO TO READ END ROUTINE
456 OR 7, OR IN VALUE 4
1.
ADOR
WORD
09CB
09CA
0gec
09CE
0900
0902
0904
0906
0908
090A
090C
09DE
09EO
09E2
09E4
09E6
09E8
09EA
09EC
09EE
09FO
09f2
09f4
09F6
09F8
09FA
09fC
09fE
OAOO
OA02
OA04
OA06
OA08
OAOA
OAOC
OAOE
OA 10
OAl2
OA 1.4
OA16
OAl8
OAIA
OAIC
CAlE
OAZO
OAZl
OA24
OAZ6
OA28
OAlA
OA2C
OAZE
SOBS
3BB5
57AO
6C 75
50B3
C4D6
2BC5
6B(5
EC5C
fC2D
55AO
052C
5030
0067
1545
7538
21FF
C49E
83BO
0840
EOC2
F277
8A2E
ZA07
2C45
2025
2945
6398
62AD
62A9
292f
6024
6198
60AD
58C8
5889
55AO
3545
5f30
DFIB
1545
7538
5989
55AO
3545
5FIO
DF29
1545
1518
CDec
DDOC
8A8A
SEQUENCE NO.
LRXF
LRXF
LRXf
LRXF
LRXF
lRXf
LRXF
LRXF
LRXF
lRXF
LR Xf
LRXF
lRXF
LRXF
LRXF
lRXF
LRXF
lRXF
LRXF
lRXF
LRXF
lRXF
lRXF
lR XF
LR XF
LRXF
LR XF
LRXf
LRXF
lRXf
LRXF
LRXf
LRXF
lRXF
LRXF
lRXF
lRXF
LRXf
LRXF
lRXF
lR XF
LR XF
lRXF
LRXF
lR XF
lRXf
lRXF
LR XF
lRXF
lRXF
lRXF
LR XF
lRXF
030
031
032
033
034
035
036
037
038
0.39
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
LABEL
NEXTSEQ
NEXT LABEL
TABLUP
NOTl23
037
80R9
040
016
OK
VALCHK
016
VALCHK
045
NOWM
BOR9
OK
MAINRO
NOWM
009
IREG 002
NEWCHA
STOREV
027
053
081
PFRCOM
PASS
DONE
PASS
CBREAD
071
STBYfl
078
STBYT2
064
064
LXFR 003
CBREAD
CBREAD
WAIT
S TB YTl
STBYT2
DONE
AEND
STATEMENT
Tl=P1XL
T I=T lSKBO
ROB 01 AS, T
PO=PO$Ol
Tl=P1XH
BR IF INI
Tl:O$KCO
T1=Tl$PO
'BR IF PO BlT2.:0
BR IF PO BIT 3.: 1
ROB G1 AS, T
BR IF Gl BIT 1=0
RDB PI V
BR IF PI BIT1=l
Gl=Gl*-K40
STB Gl V+1
U l=Ul+KFF
BR IF INI
BAl
Z= 10llK40
BR If HlNl
BR If 00 BIT7=l
BR
TO=O
PO=0$K40
Pl=0$K20
I1=0$K40
V lC=V l+Il
VOC=VO+TO+C
VOC=VO+10+1
I1=Il+K22
U=V+2
UIC=UhIl
UOC=UO+TO+C
RDH I AS,P+2
T1=10
ROB Gl AS,T
Gl=Gl$K40
RD8 HI V
BR I f HI BIT 1=1
Gl=G1*-K40
SfB G1 V+1
Tl= I i
ROB G1 AS, T
G1=Gl$K40
ROB HI U
BR If HI BIT1=l
Gl=Gl*-K40
STB G1 0+1
BR IF PI BlTO=O
BR IF PI BIT 1=0
8R
CLOAD=*E40, EC LEVEL=12821l
COMMENTS
SET T FOR TABLE LOOK-UP
OR IN CONSTANT
DO TABLE LOOK-UP FOR 123 OR 4567
OR 12,11,0 TO TABLE VALUE
PUT 89 PUNCHES IN n
BR IF 8 OR 9 PUNCH
OR IN 8-9 B ITS FOR PROPER flU
OR 89 PUNCHES TO BASE
BR IF NOT 12 PUNCH
BR If 12 I: 11 PUNCH-INVALID
00 TOTAL CHAR TABLE LOOK-UP
BR IF INVALID 1400 CHAR
READ MAIN STORAGE
BR If NO WORD MARK
SET WM
STORE CHARAC TER
UP DATE COUNTI-ll
BR IF COUNT NOT 0
STORE V IN 1401 A OR 8 ADDR REG
MASK FOR NORMAL READ OP
BR IF PFR OP
BR IF COL 81N OP
SE T UP TO FOR 8CD TO EBCDIC flU
SET P TO COL FORM BUFFER
ADORE SS -4020ADO 320 TO V TO
UPDATE FROM
C81 TO 401
SET U=V+I00
FOR HIGH 1400
COL 81NARY HALFI5011
READ COL FORM DATA, 2 CHARS
SET CHARI INTO Tl
CONVERT TO E8CDIC
INSURE GOOD DATA AFTER RUN IN
READ ADDRESS 401-480
BR IF NO WORD MARK
SE T WORD MARK
STORE BYTE IN 401-480
PUT CHAR2 INTO Tl
CONVERT TO EBCDIC
IN SURE GOOD DA TA AFTER RUN IN
READ ADDRESS 501-580
BR IF NO WORD MARK
CL EAR WORD MARK
STORE BYTE IN 501-580 AREA
BR IF FUll CARDI80 CHAR) NOT COM
BR IF FUll CARDI80 CHAR) NOT COM
BR TO ROW TO COL TRANSFER
PAGE 196
AOOR
LRXf
lRXF
lRXF
LRXF
LRXF
LRXF
LRXF
lRXF
LR XF
LRXF
LRXF
LRXF
LRXF
LRXF
LR XF
LRXF
LRXF
LR XF
WORD
003
009
016
018
023
027
029
031
034
037
040
042
045
053
064
011
078
081
SEQUENCE NO.
lOPD
l.RXF
l.RXF
LRXF
l.R Xf
lRXf
LRXF
LRXF
LRXF
LRXF
lRXF
LRXF
LRXF
LRXF
LRXF
LRXF
LRXF
lRXF
052
047
039
010
013
050
015
026
024
035
038
020
043
051
079
069
010
052
LABEL
LXFR 098
lRXF 041
LRXF 022
LRXF 080
NEXTSEQ
NEXT LABEl
ST ATEMENT
**********************************
* CROSS REFERENCE FOR CSECT LRXF *
**********************************
CLOAD:*E40, EC LEVEl=128211
COMMENTS
PAGE 197
CLOAD=*E40, EC LEVEL=128211
LSSO
DESCRIPTIVE
PAGE 19i-!
TEXT
ENTRY POINT
TEST.
END OPERATION IF THERE ARE AS lONES.
STKSEl
EXCLUSIVE ENTRY POINT FROM I-CYCLES WHEN K-OP
DECODED.
IS
2.
fORCE READ MODE AND lONE, SAVE STACKER SELECT PITS
AUX STORAGE.
GET READER PUNCH BRANCH CONDITIIJNS.
END If TOO LATE FOR READ STACKERS.
TRANSLATE EBCDIC D-MODIfIER CHARACTER TO BCD FOR BIT
3.
SET INDICATED STACKERS.
OBJECTIVES
1.
ADDR
WORD
2E40
2E42
2E44
2E46
2E48
2E44
2E4C
2E4E
2E50
2E52
2E 54
;>E56
LE58
2E54
2ESC
2ESE
570'1
5DCO
5DB9
EODC
7C52
2206
5C52
6505
5ECF
EC5D
E958
2B02
F95C
2B04
0216
A5BO
LSSO 002
lSSO 014
LS SO 016
SEQUEf\JCE NO.
LSSO
LSSO
L SSO
lSSO
LSSO
lSSO
LSSO
LSSO
lSSO
lSSO
L SSO
LSSO
L SSO
lSSO
LSSO
lSSO
L SSO
It YC 2'35
lSSO 012
LSSO 005
001
002
003
004
005
006
001
008
009
010
OU
012
013
014
015
016
017
LABEL
NEXTSEQ
T
1402
STKSEl
016
016
014
NOTR3
016
END
LSSO 011
LOPO
lSSO 014
038
NEXT LABEL
STATEMENT
RESTORE CPU MobE AND lONE.
COMMENTS
STACKER SElECT COMMAND
RUCKER
Pl=OI
ROB PI AS,P
XlATE EBCDIC TO BCD
Tl=P1
END
BR IF HlNl
BR IF AB ZONE
STH P DA,9A
STORE BYTE FOR lONE CHANGE
SET MMSK K= 30
FORCE READ MODE &. lONE
RDH P DA.9A
READ ST. SEL. BYTE BACK OUT
Gl=GUPl
SAVE PUNCH ST. SH. BITS
PO= RPS
END
BR If POl= 1
BR IF 6 MILll-SECONDS OVER
NOTR3
BR IF PI B1T6=0
BR IF NOT R3 STACKER
SET R K=lO
SET R3 STACKER
BR If PI BIT 7=0
END
BR IF NOT Rl STACKER
SET R K=20
SET R2 STACKER
RST MMSK K=31
RESTORE CPU MODE &. lONE
feST 15
BR
COMPLETE
**********************************
* CROSS REFERENCE FOR CSECT lSSO *
**********************************
!~
CLOAD=*E40, EC lEVEL=128211
lXFR
OESCRIPT IV E TEXT
ENTRY POINTS
OBJECTIVES
WA IT
1.
SET UP ADDRESSES OF COLUMN IMAGE AND ROW IMAGE BUFFERS.
SET ROW IMAGE BUfFER 2 OR BUFFER 1 IF TRANSFER BIT IS
NOT ON (RUN IN).
2.
TRANSFER ROW BITS OF EACH CARD COLUMN FROM ROW IMAGE
BUfFER TO COLUMN IMAGE BUFfER.
NDRMAl ENTRY
USED DURING READ OPERATlONS.
ENTERED FRDM lRXF.
BYTECT
ENTRY USED DURING PUNCH PFR OPERATIONS.
FROM LPSU.
IWDR
OA8A
OA8C
OASE
OA90
OAn
OA94
OA96
OA9S
OA9A
OA9C
OA9E
OAAO
OAA2
OAA4
OAA6
OAA8
OAAA
OAAC
OAAE
OA80
OA82
OA84
OAB6
OAB8
OABA
OA8C
OABE
OACO
OAC2
OAC4
OAC6
OAC8
WORD
3466
0414
0719
EGBA
E40B
2004
DD9A
CE9D
93F4
3406
2045
2115
3183
5400
7008
5111
E431
2035
21A 5
2445
2525
251B
22A3
2807
2907
4486
4C86
4E86
2613
5700
CHB
6965
SEQUENCE NO.
lXFR
lXFR
LXfR
L XFR
LXFR
LXFR
lXFR
L XfR
lXFR
LXFR
LXFR
lXfR
LXFR
LXfR
LXFR
lXFR
lXFR
lXFR
lXfR
lXFR
" lXFR
LXFR
lXFR
lXFR
lXFR
lXFR
LXFR
LXFR
lXfR
LXFR
lXFR
LXFR
lXFR
LXFR
PAGE 199
001
002
003
004
005
006
007
008
LABEL
T
ASEQ
WAIT
2NOHLF
009
010
011
012
NOTRDY
READY
013
014
015
016
017
018
019
020
021
022
XFER
023
024
025
026
027
028
029
BYTEC T
Bl TCT
030
031
032
033
034
RDBYTE
NEXTSEQ
ENTER
NEXTLABEL
STATEMENT
COMMENTS
READER XfER Of ROW IMAGE TO COLUMN BINARY FORM
B.RUCKER
AL07=OA
SET MODE K=B6
SET 2540 lONE & MODE
008 2NDHlf
BR I F GO 8 IT 1= 0
CONTINUE If AC TI VE NOT ON
Z=Dl+K10
WA IT fOR ROW 11
003 WAIT
BR If HZNZ
BEFORE PROCEEDING
003 WAIT
BR I f GO B IT 2= 1
BR BACK IF TRANSfER REQUIRED
SET RP K=20
SET READ COMMAND INTLK
011 NOT ROY
BR IF RS 1=0
TEST READY
012 READY
BR If RPSO= 1
BR IF AVAILABLE-ON LINE
LRDR 028 NOT ROY
BR
GO TO NOT READY HALT
SET MODE K= 80
OK TO CONTINUE
UO=0$K40
SET U TO IMAGE 2
Ul=O$KlO
U= 4018
Ul=Ul$K08
ROH G AS,U
READ TRANSFER 8IT
STH U AS,U+2
CLEAR XFER BIT FROM 4018
Ul=ULX
U=40A It IMAGE BUffER 2
BR If GO 8H2":1
BR If XFER BIT ON
022 XFER
UO=0$K30
SE 1 U TO IMAGE 1
Ul=O$KAO
BUffER AD DR -30AOGO=05K40
SET G TO 2ND BYTE OF
Gl=05K20
COLUMN BUffER
Gl=Gl+K01
AOOR -4021VO=O$KOA
10 GROUPS OF 8 BYTES CNTR
CLEAR
10=0
WORK
11=0
REGISTERS
T=I
P= I
H=I
DO=0$K01
SET MASK FOR COL 1
READ BYTE fROM IMAGE
ROB 01 AStU
BR IF 01 BlTO=l
BITS ARE COMPLIMENT
035 N
11= 11$00
OR BIT IN COL 1
AODR
WORD
OACA
OACC
OACE
OADO
OAD2
OAD4
OA06
OADS
OAOA
OAoe
OADE
OAeo
OAE2
OAE4
OAE6
OAE8
OAEA
OAEC
OAEE
uAfO
OAF2
OAF4
OAF6
OAFS
OAFA
OAFt
OAFE
OBOO
OB02
OB04
01306
0808
oaOA
OBOC
OBOE
OBI0
OB12
OB14
OB16
OB18
OBIA
DB Ie
074F
6B65
E753
6065
F757
6F65
C35B
6865
035F
6A65
E3e3
6C65
F367
6E65
6663
0679
F475
2iAB
F4F2
2010
8AC4
319B
8AC4
7940
6444
7B40
6444
1D40
6444
7F40
6444
C114
5899
5AB9
5C09
5EF9
8AF8
22fF
C4A 1
F423
3130
C020
20FO
8AB8
213F
BAB8
148B
C03E
F439
2118
2525
3466
0331
OBIE
0820
0822
0824
013 26
OB28
OB2A
OB2e
OB2E
01330
OB 32
SEQUENCE NO.
LXFR
lXFR
lXFR
lXFR
LXFR
l XFR
LXFR
lXFR
lXFR
lXfR
lXFR
lXFR
lXfR
LXFR
lXFR
LXFR
LXFR
lXFR
lXFR
lXFR
lXFR
lXFR
LXFR
lXFR
L XFR
lXFR
LXFR
lXFR
l XFR
l XFR
lXFR
lXFR
lXFR
lXFR
LXFR
lXFR
lXFR
l XFR
lXFR
lXFR
lXFR
lXFR
lXFR
LXfR
lXFR
LXFR
lXFR
LXFR
lXFR
l XFR
lXFR
lXFR
lXFR
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
051
058
059
060
061
062
063
064
065
066
061
068
069
070
071
072
013
074
075
016
077
078
079
080
081
082
083
084
085
086
081
lABEL
NEXTSEQ
NEXT LABEL
N
037
NE
NE
039
NEX
NEX
041
NEXT
NEXT
043
NEXTB
NEXTB
045
NEXTBT
NE XTB T
047
BTNEXf
BTNEXT
049
BT DONE
058
056
STORE
RPFRI
055
REAOM
032
RDBYTE
032
ROBYTE
072
STRDON
058
STORE
081
079
HALF
RPFR2
078
HAFIST
026
BITCT
026
BITCr
093
090
DONE
RPFR3
086
DElAY
BTOONE
READM
RPFR1
STORE
STRDON
HAFtST
RPfR2
HALF
DEtA '(
STATEMENT
ClOAD=*E40, EC lE VEl=1282 11
COMMENTS
BR IF 01 BIT 1=1
Tl=TUOO
COL 2
BR IF 01 BIT 2=1
Pl=PUOO
COL 3
BR IF 01 B1T3:l
Hl::Hl$OO
COL 4
BR IF 01 BH4=1
COL 5
10=10$00
BR IF 01 BIT5= 1
TO=TO$OO
COL 6
BR IF 01 BIT6=l
PO::PO$OO
COL 1
BR IF 01 BIT 7=1
HO=HOSOO
COL 8
00=00+00
SHIFT '1ASK LEFT ONE
BR TO STORE IF 6 BIT CHAR ASSEM
BR IF 001::1
CHECK FOR PFR READ
BR IF GO BIT3:: 1
NO- INCREMENT AOR
Ul::Ul+KOA
BR IF AC=O
UPOA IE TO 60
UO=UO+K 10
BR
DECREMENT ADDR BY 10
U1=Ul-'K09
BR
STORE COL ONE OR FIVE
Sf B 11 AS, G+O
G=G+2
**POINT AODR TO EVERY OTHER BYTE
STB T 1 AS, G+O
COL TWO OR SI X
G=G+2
STB PI AS, G.O
COL THREE DR SEVEN
G=G+2
Sfa Hl AS, G+O
COL FOUR OR E IGH f
G=G.2
8R IF Gl B1T4=0
BR IF DONE 2ND 4 BYTES
11= 10
MOVE
T1=TO
2ND
Pl=PO
4
BYTES
Hl=HO
BR
VO=VO.KFF
GROUP CNTR MINUS
BR IF DONE HALF
aRIF Z=O
BR IF GO BIT 3= 1
8R IF PFR READ
NE Xl GROUP OF 8 BYTESS
Ul=Ul-K30
BR IF GO BIT4=0
BR IF 1ST HALF
2ND HALF-RESTORE UO
UO=tJO+KFO
BR
GO DO ANOTHER GROUP
NE XT GROUP OF 8 B VTE S
U l=Ul+K33
GO DO ANOTHER GROUP
BR
GO=GOIJK08
**INVERT 81T 4 - 2ND HALF
BR IF GO BIT4=O
BR IF DONE 2ND HALF
BR IF GO BIT3=l
BR IF PFR RD
U=.50DC
Ul=UI+KO I
Gl=OSK20
G= 4820
SET MODE K= B6
2540 ZONE, READ MODE
BR I f 015=1
WAIT UNTIL ROW 12 HAS 8EGAN
PAGE 200
ADOR
WORD
OB34
0836
OB 38
OB3A
OBlC
OB3E
01340
OB42
OB44
0846
OK48
OB4A
084C
OB4E
0850
013 52
I)B54
OB56
3400
8AB6
21A7
2507
BABt.
F44A
5202
2155
2901
2835
8994
0040
C403
98EA
A5AO
98EA
3466
8E8C
SEQUENCE NO.
L XFR
LXFR
L XFR
lXFR
lXFR
LXFR
l XFR
lXFR
lXFR
lXFR
lXfR
L XfR
lXfR
lXfR
LXFR
LXfR
L XFR
l XFR
LXfR
088
089
090
091
092
093
094
095
096
091
098
099
100
101
102
103
104
105
106
LABEL
NEXTSEQ
NEXT lABEL
025
BHEeT
025
099
BYTECT
ENDING
RPfR3
DONE
LRXf 003
ENTRY
103
IREG 016
lOPO 030
[REG 016
RUNON
RSTREG
NOT 125
RSTREG
lROR 002
RDRENO
ENOl NG
RETURN
RUNON
ClOAD=*E40, EC lEVEl=128211
COMMENTS
STATEMENT
SET MODE K=80
BR
U1=OSKAA
Gl=O
BR
BR If GO B1T3=0
RDH V DA,88
Ul=OSK50
11=0
10=OSK30
BR
Z=UOaK40
BR If Z=O
BAL
BR
BAl
SET MODE K= B6
BR
CPU MOOE
GO DO 2ND HAlf
PfR READ, SET U TO lOAA
G-= 5800
GO DO 2ND HAlf
BR IF NOT PfR RD
RESTORE BIAS(OOOI TO V ADoR REG
SET Ul TO COUNT Of 80
SET I TO PFR
COL BUFFER-3000
BR TO TRANSfER DATA TO MAIN STOR
BR If NO XfER OCCUREo
RESTORE CPU REGS
XfER CYCLE-RETURN TO READ OP
RESTORE CPU REGS
SET 2540 lO~Et READ MODE
GO TO READ END ROUTINE
AEND
**********************************
* CROSS REfERENCE FOR CSECT lXfR *
**********************************
LXFR
lXfR
LXfR
lXFR
LXFR
LxFR
lXfR
lXFR
l xFR
LXFR
LXFR
LXFR
lXfR
lXfR
LXfR
LXFR
lXfR
lXFR
lXFR
LXFR
lXFR
LXfR
lXFR
LXFR
LXFR
LXfR
LXFR
lXFR
LXFR
003
008
011
012
022
025
026
032
035
037
039
041
043
045
041
049
055
056
058
012
018
079
081
086
090
093
099
101
103
lRXf
L XFR
l XFR
LXfR
L XFR
LPSU
L XfR
lXfR
l XfR
L XFR
lXfR
LXfR
L XfR
L XfR
l XfR
L XfR
l XfR
l XFR
LXfR
L XfR
l XfR
L XFR
L XfR
l XfR
L XfR
LXfR
LXfR
lREQ
L XfR
081
004
OC9
010
019
053
018
055
033
035
037
039
041
043
045
047
053
051
050
066
076
014
073
081
on
082
0'13
022
100
LXFR 006
lXFR 007
lXFR 089
L XfK 080
L XfR 051
lXFR 092
LXFR 011
PAGE 201
ClOAD:*E40, EC LE VEL=12BZll
MAAA
OESCRIPJIVE
P·AGEZD2
TEXT
ENTRY POINTS FOR 1440 OPERATIONS
ENTRY POINTS FOR 1401-1460 OPERATIONS
IPl42
IPL 42
ENTRY HERE IS FROM THE I·PL START RESET ROUTINE
WHEN A 1442 LOAD ISSPECIHED.
ENTRY AT THIS POINT IS ·FROM THE IPL START RESET
ROUTINE WHEN A 1442 LOADlS INDICATED.
fHISIS AN
ERROR.
BRANCH TO SET INVALID UNIT STOP CODE.
START
NORMAL ENTRY POINT FROMIOGM FOR EXECUTION OF 1442
INSTRUCTIONS.
AlSO THE ENTRY POINT fOR'RHRYREAD
OR WR ITE OPERATIONS FROM BRANCH ON ERROR 'ROUTINE.
START
ENTRY HERE IS FROM 10CMFOlLOWI NG UNIT ADDRESS G
DEGODE.
BRANCH6ACK TO 1001 TO SET INVALID UNIT.
NOTC
NOTC
ENTRY FROM THE MODIF IER DECODE ROUTl'NEfOllOW ING
I NVAlI 0 MODI FJ ER DETEC nON.
ENTRY FROM MODIFIER DECODE ROUTINE FOllOWING INVALID MODIFIER DETECTION.
8RANCH TO IERR ROUTINE.
RSMSK
RSMSK
ENTRY FROM SENSE COMM'AND AND STATUS DECODE WHEN
THE UN I TIS ADDRE'$SED IfIlC ORREC fly OR T HE UN IT IS
NOT THERE.
THIS ROUTINE IS USED DURING CHANNEL
OPERATIONS 11401-1460 OR 144.0J TO FACILITATE RESETTING MASK ANOSTORING THE STOP CODfAND OTHER
INFORMATION ~EEDED FOR RESTART.
ENTRY AT THIS POINT ENSURES THAT THE MASK IS OfF
PRIOR TO DISPLAYING THE STOP MESSAGE.
SKIP
ENTRY POINT FOR 1442 STACKER SELECT.
RESlCT
RESLCT
ENTRY IS FROM READ COMMAND AND STATUS lOOP OR 1400IFIERDECOOEROUHNE WHEN A RES E:l ECTI ON Of A
CHANNEL DEVICE CREArr-PtlNCH OR PRJ NTERJIS
REQUIRED.
ADDR
WORD
090G
oaEA
1170
1172
11'74
1176
1178
117A
117C
117E
0628
062A
0978
097A
9286
9286
2AS5
2B05
021E
SEA2
56F9
7EA2
2C05
B17C
2A85
9172
221E
3486
SEQUENCE NO.
MAAA
MAfiA
MAfiA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
001
032
033
090
091
092
093
094
095
LABEL
T
IPl42
START
NOTC
RSMSK
RSMSK1
096
097
NOUNIT
133
RESlGr
134
NEXT SEQ
NEXTlABEl
1442
IOCM 015
10CM 015
MODIFIER DECODE AND INITIAL SELECTION.
KRAGER
ZONECK 3
8R
ZONECK 3
BR
T()=O$K90
SET '(ftVALID MODIFIER STOP CooE
Tl=O$KOO
CLEAR LOW STOP CODE BYTE
RST M'MSK K=71
ALLOW TRAPS
ROH H DA,Ae
SAVE
H 1... 00
OP TYPE
STH H DA,AC
FOR ERROR REST-ART
PO:Q5KOO
STeODE
BR
GO STORE STOP CODE
TO=O$K80
S.ET STOP· CODE
RSMSK
BR
SET MMSK K=71
BLOCK TRAPS
SET MODE K=B8
SET 1401 AND CPU MODE
IERR 034
120
121
091
STATEMENT
ENTRY IS FROM THE MOO I f I ERDECOOE(M'KKK)ROUn NE
TO PERFORM INlTIALSELEGTlONANDSEftSEBURING 1442
OR 1443 OPERATIONS.
ENTRY IS FROM REAoeOMMAND
AND STATUS LOOP WHENRESELECTION IS NfCESSARY.
COMMENTS
ADlJR
WORD
097C
097E
14D8
14DA
140C
14DE
14EO
14E2
14£4
14EA
14EC
14EE
14fO
14f2
14F4
14f6
14E6
14E8
2B08
9408
C909
4FAF
2B04
2B44
C9EB
DDEl
8628
2B40
CDEC
5fBF
6ABl
C4E7
2A85
9172
C256
S07C
S265
S286
AE80
S286
140b
1260
1264
12M
'~AAA 032
"'AAA 033
'4AAA 090
MAAA 091
~AAA 120
'1AAA 133
MAAA 137
4AAA 141
C'lAAA 144
MAAA 145
MAAA 151
MAAA 160
'4AAA 161
SEQUENCE NO.
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
MAAA
IPL S
IDCM
MKKK
MAAA
MAAA
!>IS88
055
029
023
121
143
048
136
142
141
145
MAAA
MAAA
MAAA
MAAA
MAAA 148
MAAA 151
MAAA 160
135
136
137
138
139
LABEL
NEXTSEQ
137
137
OPIN
140
141
142
143
144
l45
146
147
148
149
150
l51
152
160
161
162
163
OPINOT
144
141
120
OPINUP
ADDIN
145
151
ADOOK
MJJJ
NOT43
OPI S
OPIS
OPIS
MKKK 028
MAAA 150
MKKK 065
MAAA 137
0
2
3
IOCM
MODO
IDCM
MOOD 053
091
160
003
161
015
019
015
NEXT LABEL
STATEMENT
CLOAD=*E40, EC LEVEl-=128211
COMMENT S
SET GA K=40
SERVICE OUT
BR
BR IF GT4=1
WAIT FOR NO OPIN
GB/OUT=TO
SET BUSS OUT
SET GA K=20
SET ADDRESS OUT
SET GA K=24
SET ADDRESS OUT/SELECT OUT
OP( NUP
BR IF GT4"'1
BR IF OP IN
BR IF GT1=l
OPINOT
BR IF SELECT 1N DOWN
NOUNI T
BR
SET GA K-=04
RESET ADDRESS OUT
AODIN
BR IF GTO=O
WAIT FOR ADDRESS IN
Tl-=GBIIN
TO=TOnT 1
COMPARE ADDRESS
A'1DOK
BR IF Z=O
AD ORE SS OK
TO=0$K80
SET STOP CODE
RSMSK
BR
GO STORE STOP CODE
NOT43
BR IF 00 BIT4-=O
BR IF NOT 1443 SElECTION
PRNTR
BR
OPIS
N N=DO BITS567
ZONECK 3 BR
SENSE
BR
ZONECK 3 BR
**********************************
* CROSS REFERENCE FOR CSECT MAAA *
**********************************
OPIN
OPIN
PAGE 20]
ClOAO=*E40, EC lEVEl=12821L
MBBB
DESCRIPTIVE
ENTRY POINTS FOR 1401-1460 OPERATIONS
PAGEl04
TEXT
SETUP
THIS IS THE NORMAL ENTRY POINT FROM THE STACKER
SELECT ROUTINE.
RETR Y
RESElECT ENTRY POINT WHEN CHANNEL DEVICE IS BUSY.
STATLP
ENDOK
NORMAL ENTRY FROM THE DATA lOOP.
THIS ROUTlNE
PERFORMS NORMAL ENOl NG OF RE AD AND PUNCH
OPERAT.IONS.
CHANNEL END STATUS ENTERS HERE.
END IT
DEVICE END STATUS ENTERS HERE.
RETRY
ENTRY FOR RESElECT WHEN CHANNEL
ENTRY POINTS FOR 1440 OPERATIONS
ENDOK
CHANNEl END STA JUS ENTRY.
RoliR
THI S IS THE NORMAL ENTRY POINT FOR 1442 READ AND
WRITE OPERATIONS.
AOOR
WORD
OFl2
OFl4
Of16
OF 18
OFIA
Of lC
ODOC
OOOE
0010
0012
0014
0016
0018
OOlA
OOlC
ODIE
1645
368.5
MBBB
MBBS
MSSB
MBSB
103
3623
5AE2
S'378
2B08
021E
3400
2C05
56F2
0210
C610
SD7C
5032
9E12
047
075
077
083
SEQUENCE NO.
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBB
MBBS
MOOD 025
MKKK 090
14tH 061
MBBB 080
O(H
043
044
045
046
047
048
075
076
077
078
079
080
OB1
082
083
084
"'KKK
MLll
MPPP
MBBB
LABEL
T
OK
PTR
RETRY
ENOOK
ENOl T
QAlWSY
094
053
030
OB1
NEXTSEQ
NEXTLABEl
STATEMENT
END IT
DEVICE END STATUS ENTRY
COMMENTS
READ COMMAND AND SfATUS lOOP.
KRAGER
OO=DO*-K40
DO=OO$K80
SET FLAG BI T
00=00*-K03
DO=00$K02
SET SENSE OP TYPE
1t0H T DA, BC
MAAA 133
RESLeT
BR
GO READDRESS UNI T
SET GA K=40
SERVICE OUT
RST MHSK K=71
AllOW TRAPS
SET MODE K=80
1401 CPU MODE
PO=O$KOO
RDH 0 DA,BE
083
BR IF 00 BIT5:l
QAlWSY
BR IF 14 OP
083
QAZWSY
BR IF DO BITO= 1
Bft IF STK SEl AND BR 01>
ICYC 037
HISTRT
BR
RDH U OA,8E
RE STORE A S fAR
IUSl 002
UNCOBR
BR
**********************************
* CROSS REfERENCE FfJR cseCT MBBB *
*****4<****4<4<**********************
MPP1> 034
OEV1~E
IS BUSY.
ClOAO=*E40, EC lE VEl=128211
MODO
DESCRIPTIVE
ENTRY POINTS
PAGE 205
TEXT
CKSTOP
ENTRY FROM SENSE STATUS DECODE ROUTINE fOR EQUIPMENT CHECK STATUS WITH 110 CHECK STOP SWITCH ON.
SENSE
NORMAL ENTRY POINT WHEN A SENSE COMMAND IS
DECODED.
ADDR
WORD
2E80
ZE82
2EB4
2E86
2E8B
2E8A
ZESC
ZE90
2E92
2E94
2E96
2E98
2E9A
2Ege
ZE9E
0878
OB 7A
2E8E
2A43
4fAF
2842
,\1ODD 019
MOO~ 022
"1000 026
MDOO 021
""000 030
MODO 052
"1000 055
SEQUENCE NO.
MODO
MOOD
MODO
MODO
MOOD
MODO
MODO
MODO
MODO
MDOO
MODO
MODO
MOOD
MOOD
MDOD
MODO
MODO
MOOD
MODO
fD86
5FOF
fOlD
8F1A
2B48
E092
5fDF
2B48
F098
2B08
C20E
AC80
2AB5
9172
9286
MAAA
MOOD
MOOD
MOOD
162
022
024
027
MOO~ 030
MMMM 047
MODO 032
001
019
020
021
022
023
024
025
026
027
018
029
030
031
032
033
052
053
055
LABEL
T
SENSE
OUTn
NEXTSEQ
NEXTLABEl
STATEMENT
COMMENTS
SENSE COMMAND AND STATUS DECODE. KRAGER
TO=OSK04
SET COMMAND
GB/OUT=TO
SET 8USS OUr
SET GA K= 14
COMMAND OUT
STATUS
022 STATUS
BR IF GT3=O
WAIT FOR STATUS IN
P1=GBI IN
Nfno
BR IF Pl B113=0
026 STATOK
8R IF NOT BUSY
MBBB 047 RETRY
BR
GO RESlEC T UNIT
STATOK
SET GA K=44
SERVICE OUT
SVCIN
027 SVCIN
BR IF GT 2=0
WAIT fOR SERVICE IN
Pl=GBI IN
SET GA K=44
SERVICE OUT
CKSTAf
030 CKST AT
WAIT fOR STATUS IN
BR IF GT3=O
SET GA K=40
SERVICE OUT
BR iF DO 8114=0
055 NTPTR
8R If NOT PRINTER
MMMM 018 CKDAT A
8R
GO TO PRINTER lOOP
CKSTOP
rO=OSKBO
SET ERROR STOP CODE
MAAA 091 RSMSK
8R
GO STORE STOP CODE
NTPTR
IDeM 015
ZONECK 3 BR
**********************************
* CROSS REFERENCE fOR CSECT MOOD *
**********************************
MKKK 069 MMMM 017
CLOAD=*E40. EC lE IIEb=128211
/leJJJ
DESCRIPT tVE
PAGE 206
TEXT
ENTRY POINTS
OPISl 4
PRNTR
THIS IS THE NORMAL ENTRY POINT fROM INITIAL SELECTION ROUTINE FOR A CONTiNUATION Of SelECTION AND
OP CODE DECODE (SPACE AND SKIP STATUS) ETC.
ADDR
10 1C
1200
1204
1206
1208
120A
120C
120E
1210
1212
1214
1216
1218
121A
121C
121E
1220
1222
1224
1226
1228
122A
122(
122E
1230
1232
1234
1236
1238
123A
123C
WORD
8205
SD28
8A88
8028
5F49
5E62
1473
5FB9
Cf2A
6B83
3F23
OBSD
EOB9
CBeD
EOBF
CC 33
OBLO
EOB3
FB2F
3433
SF26
If23
9234
3413
C;F26
lE65
7E62
9224
3E45
lE25
9234
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
001
002
003
004
005
006
001
008
009
010
011
012
013
014
015
016
011
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
NEXTSEQ
LABEL
SEQUENCE NO.
NEXTLABEl
STAT EMENT
ENTRY HERE IS fROM MKKK (FINISH MODIFIER DECODE)
FOR A FORMS AfTER COMMANO OR FROM MPPP (FORMS OP
OECODE) fOR A PRINTER CONTROL COMMAND.
COMMENTS
1443 MODI FI ER OECODE AND INITIAL SELECTION. KRAGER
T
*
PRNTR
OPI SI
OPIS!
OPISl
OPISt
*
*
*
0
2
3
4
004
MKKK 066
"'MMM Ot7
"'KKK 066
OPIS!
N
SETCMO
SENSE
SEfCMD
N=DO BHS61
BR
BR
BR
GO=Hl
RDH H DA,9C
GO=GO*-K01
OECODE
OPERA nON
140 VE COMMAND
REMOVE FLAG BITS
C ONT ROl COMMAND
ADO
021
SPACE
034
CH9
037
031
CH12
CHI
031
029
CHl
AfTER
MKKK 045
TEST
SPACE
032
STORE
AFTER
MKKK 045
TEST
CHi
STORE
024
ADO
032
STORE
CH9
T l=H!
BR IF HI B.lTO=O
Tl=Tl.Tl
Hl=HUK02
l=T lllK90
BR IF HI-=O
I=TlaKCO
BR IF HZ=O
BR IF PO BlTO=i
I=TlaKlO
BR IF HZ=O
BR If HI B1T1= 1
GO=GOSK03
BR
Hl=Hl*-K02
BR
GO=GO$KOI
BR
HO=HO* .... K60
STH H OA,9C
BR
HO-=HOSK40
HO=HO*-K20
BR
SHIFT CMND
BR IF SPACE CMND
lEFT 1 Bl T
SET SKIP flAG
TE Sf BITS
BR IF SK IP TO CH 9
TEST BITS
BR IF SK IP TO CH 12
BR IF 1403
TESf BITS
BR IF SKIP TO CH 1
BR IF COMNO AFTER
SET CMNO HIED
RESET SKIP FLAG
SETCMNO AFTER
RE SET CH 9 AND 12 flAG BITS
STORE
GO BUILD lOW 3 BITS
SET CH 9 BIT ON
RE SET CHNl 12
AODR
WORD
123E
1240
1242
3E25
lE45
9234
'~JJJ
MJJJ
MJJJ
MJJJ
t.lJJJ
'~JJJ
MJJJ
MJ JJ
I-IJ JJ
MJJJ
003
004
007
024
021
029
031
032
034
031
LABEL
SEQUENCE NO.
MJJJ
MJJJ
MJJJ
MJJJ
031
038
039
040
NEXTSEQ
NEXTlABEl
CH12
032
STORE
CLOAD=*E40, EC LEVEL=128211
COMMENTS
STATEMENT
HO=HO$K20
HO:HO*-K40
BR
SET CH 12 BIT ON
RESET CHNL 9
*
**********************************
* CROSS REFERENCE FOR CSECT MJJJ *
**********************************
MAAA
MJJJ
MKKK
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
MJJJ
152
OC3
039
033
014
024
021
028
018
020
MPPP 027
MJJJ 023
MJJJ 036
MJJJ 039
PAGE 207
ClOAD=*E40, EC lEVEl=lZ8211
MKKK
DESCRIPTIVE
ENTRY POINTS
PAGE Z08
TEXT
TEST
ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL
SELECTION FOllOWING SETTING OF CONTROL COMMAND
flAGS.
STRT43
NORMAL ENTRY POINT FROM 10CM ROUTINE FOLLOWING
PRINT OPERATION DECODE. THIS ROUTINE DECODES THE
MODIFIER AND SETS THE COMMAND.
AOOR
ENTRY HERE IS FROM BRANCH ON PRINTER ERROR.
SETUP
ENTRY AT THIS POINT IS FROM THE 1403 PRINTER
ROUTINE FOLLOWING NON INTEGRATED ATTACHED PRINTER
DETECTION.
ADOR
IEfC
lEFE
lFOO
IF02
lF04
IF06
IF08
IFOA
IFOC
lFOE
iF 10
lF12
IF 30
IF 32
lF34
IF36
WORD
5EC2
7812
CB04
9286
07ED
E08B
9170
0728
FOB 1
0768
FC95
9170
5A62
3B23
OBE3
F094
SEQUENCE NO.
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
001
002
003
004
005
006
007
008
009
010
011
012
OD
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
LABEL
T
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
STR fit 3
NEXTSEQ
NEXT lABEl
SETCMD
STATEMENT
FINISH MODIFIER DECODE ISSUE COMI4AND.
ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL
SELECTION WHEN A SET COMMAND IS DECODED.
COMMENTS
KRAGER
*********************************************************************
1443 STATUS BYTE BITS =
NOT USED
BIT 0
BIT 1
NOT USED
BIT 2
NOT USED
BIT 3
BUSY
CHANNEl END
BIT 4
BU 5
DEVICE END
BIT to
UNIT CHECK
BIT 7
CHANNEl 12 DETECTED
*********************************************************************
021
IOCM 015
LEGAL
lONECK 3
024
MAAA 090
SORW
NOTC
029
SMOD
036
MAAA 090
WMOD
NOTC
LEGAL
SORW
SMOD
0.36
WMOD
RDH H DAtB8
STH I DA,8A
BR IF HI BIT 4=0
BR
Z=OlIlKEO
BR IF Hl=O
BR
l=D1tlK02
BR IF ll=O
l=DIIlK06
BR IF ll=O
BR
ROH T OA,9C
T1=T UK02
Z=Tl*-KOE
BR IF llNZ
READ CONTROL BYTE
SAVE I STAR
BR IF M~ OP LEGAL
GO SET UP 05 STOP CODE
TEST MODIFIER
BR IF S OR W MODIFIER
GO SET ERROR STOP CODE
BR IF S MODIFIER
BR IF W MODIFIER
GO SET ERROR STOP CODE
SEI SPACE SUPP fLAG
ADDR
WORD
IF38
IF3A
If3C
IF14
iF 16
iF 18
IFlA
If lC
IHE
LF20
If22
If24
IF26
l.F 28
1F2A
If2C
If2E
IF3E
1f40
1F42
IF44
IF46
1F48
1f4A
iF 4C.
If4E
IF50
IF52
IF54
lF56
IF58
IF 5A
IF5C
0028
002A
002C
002E
005C
005E
0060
0062
0064
0066
0068
006A
006C
006E
0010
0072
0014
0076
0018
007A
7A62
2413
9F24
5E62
FBIC
16F2
9208
2493
5A62
IB23
1A62
76F2
2683
5AC.2
1BB3
FOBE
9918
5AC2
OB13
FOC7
3C85
5A92
1A13
1A92
5E62
2153
3765
CE56
2720
5EA9
IAE5
7AE2
8978
5E'iIl
EB5C
2643
AE80
4f4F
2B42
FDEO
5fOf
f055
2F05
7E92
5E62
E94D
C931
Ifl3
3F43
71;62
2648
021E
AC4A
SEQUENCE NO.
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
HKKK
MKKK
MKKK
MKKK
MKKK
MKKK
033
034
035
036
031
038
039
040
041
042
043
044
045
046
041
048
049
050
051
052
053
054
055
056
051
058
059
060
061
062
063
064
065
066
067
068
069
010
071
072
073
014
075
076
077
078
079
080
081
082
08.3
084
085
LASEL
NEXTSEQ
NEXT LABEL
044
SETUP
040
NEXT
WMOO
FORMS
MJJJ 001
OPISl
NEXT
SETUP
IE ST
050
HPRT 063
NOT NAT
NATV43
NorNAT
054
XXXX
062
IS 100
XXX X
AODR
15100
MAAA 133
RESLCT
SETCMO
010
MODO 019
GOON
SENSE
GOON
STATUS
072
Sf ATUS
091
BUSY
104
086
UCK
CENO
BBBB
Mlll 012
SVC.IN
4
ST ATEMENT
STH T DA,9C
GO=OSKOI
BR
RDH H OA,9C
BR IF HI BIT1=0
STH 0 OA, BE
BR
GO=OSK09
ROH T OA,9C
Tl=Tl*-K02
STH T DA,9C
STH 0 OA,BE
DO=OSK08
RDH T OA, B8
Tl=Tl*-KOB
BR IF LINl
BR
ROH T OA,B8
I=Tl*-K07
BR IF LI=O
PO=POSK80
ROH T OA,AA
TO=TO*-KOI
5TH T DA,AA
RDH H DA,9C
Ol=OSK05
Dl=D1$K60
BR If HO BITO=O
DI=01.K20
TO=HO
TO=TO*-KEO
STH T OA, BC
BR
ROH H OA,AA
BR IF HI BIT6=O
OO=OSKOA
BR
GB/OUT=GO
SET GA K=14
BR IF GT3=O
P1=GBIIN
BR I F P 1 BIT 3= 1
HI=OSKOO
STH H OA, AA
ROH H OA,9C
BR IF PI BIT6=L
BR IF PI BIT4=1
Hl=Hl*-KOl
Hl=HlSK04
STH H OA,9C
SET GA K=44
Rsr MMSK K=71
BR
CLOAD: *E40, EC LEVEl:128211
COMMENTS
BR IF NOT FORMS AFTER CMNO
SAVE A STAR
SET WRITE AND SPACE CMNO
RESET SS A SKIP FLAG
SAVE 0 REGI S TER
SET PR1NTER FLAG ON
BR IF CHNL DEVICE
GO TO NATIV~ ROUTINE
READ CONTROL ByrE
BR IF L443 MODE
SE T 1403 HODE
RESET
ERROR 81T
ERROR BIT
READ PRINTER ADDRESS BYTE
SE T COUNT LOW
SET COUNT HIGH
BR IF 100 POS 1403
MOOIFY COUNT HIGH TO 132 POS
STRIP Of'F
UPPER 3 Bl TS
SAVE UNIT ADDRESS
BR IF NO UNIT CK IN BUFFER
SET UP A SENSE CMNO
SE T BUSS OUT
CMND OUT
WA IT fOR STATUS IN
BR IF PRINTER BUSY
CLEAR OLO STA TUS
BR IF UNIT CK ON
BR IF CHANNEL END ON
RESET FORMS AFTER BIT
SET ACTIVE BIT ON
SERVICE OUT
ALLOW TRAPS
GO TO DATA LOOP
PAGE 209
AOOR
WORD
'JD30
0032
D939
5E62
3f43
7E62
800C
093B
2B08
021E
8F lA
5E62
IF43
CC44
EB45
lE65
4=948
3E25
7H2
E956
2B08
02lE
2M3
9F4C
.0034
.0036
.0038
0054
0056
0058
.o05A
CD3A
003C
OD3E
0040
0042
.0044
0046
QOlt8
004A
QDltC
00ltE
005.0
0052
'~KKK
;~KKK
t>lKKK
"KKK
t>lKKK
MKKK
MKKK
MKKK
MKKK
">1KKK
MKKK
MKKK
MKKK
MKKK
MKKK
t>lKKK
MKKK
MKKK
MKKK
"KKK
MKKK
,'IK KK
t>lKKK
017
021
024
029
036
040
044
045
050
054
051
062
066
070
072
086
090
091
092
095
100
102
104
SEQUENCE NO.
IOCM
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MJJJ
MKKK
MKKK
MKKK
MKKK
MJJJ
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK.
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
MKKK
036
019
022
025
021
031
035
026
048
052
101
060
004
067
072
079
086
074
103
091
091
100
078
086
087
088
.089
090
091
092
093
094
.095
096
C91
098
LASEl
CEND
NOATV
BUSY
NEXTSEQ
090
M8BB 015
095
xvpp
M88B 047
OEVEND
100
100
099
100
101
102
103
104
105
106
CKSTAT
N012
092
UCK
057
101
MKKK 032
MPRT llO
MJJJ 030
/1QQQ
102
043
MJJJ 006
MKKK 098
NEXTLABEL
STAT EMENT
CLOAD:=*E40. EC lE VEL=1282 11
COMMENTS
BR IF PI BIT 5=1
BR If DEVICE END ON
RDH H oA,9C
Hl=Hl$K04
SeT ACTIVE BIT ON
STH H oA,9C
ENoOK
BR
CONTROL CMNO END
OEVENO
BR If PI BIT5=l
8R If DEVICE END ON
seT GA K=40
SERVICE OUT
RST MMSK K=71
ALLOW TRAPS
RETRY
BR
ROH H OA,9C
RESET ACHVE BIT
Hl=Hl*-K04
CKST AT
8R IF PO BITO=O
BR IF 1443
CKST AT
BR IF Hl B1T6=l
BR IF LAST CMNO WAS 55 OR SKI P
H.o=HO*-K60
RE SET CH 9 A 12 BITS
BR IF NO CH 12 BIT
NOl2
BR IF Pl BIT 7"0
HO=HO$K20
SET CH 12 ON
STH H OA,9C
XYP?
BR IF NO UNIT CHECK
BR IF PI B1T6.::0
SET GA K=40
SERVICE OUT
ALLOW TRAPS
RST MMSK K=11
OO=O$KOA
SET SENSE AND PRNTR
8R
AoOR
**********************************
* CROSS REFERENCE FOR (SECT MKKK *
**********************************
NOATV
PAGE 210
CLOAO=*E40, EC lEVEl=128211
Mlll
DESCRIPTIVE
TEXT
ENTRY POINT
SVCIN
NORMAL DATA lOOP ENTRY fOR HANDLING 1443 PRINTER
DATA.
ADDR
2(4A
2C4C
2C4E
2C6A
ZC6C
le6E
ZC 70
Ze72
ZC74
2C 76
ze 78
ZC7A
2C1C
2C 7E
2CS8
2C5A
2(50
2C52
2C54
2C 56
lC5C
2e5E
2COO
2C62
2C64
2C66
2e68
WORD
EDEB
fOCA
8E02
5F38
CC50
OFFB
C4D9
CFSO
IFCS
ZE15
5BEO
4FBF
2B4B
AC4A
2B42
AC4A
Off 5
FOf4
2FAB
AC74
Ee65
27FF
C4D9
AC 72
DF44
2F45
AC5E
SEQUENCE NO.
MLLL
MLll
MLLL
MLLL
MLLL
MUL
MlLL
MLLl
Mlll
MLLL
Mlll
MLLl
MllL
MLLL
MLlL
MUL
MLLl
MLLL
MlLL
MLLl
MLLl
MLLL
MLLL
MLLL
MlLl
MLLl
MLll
MlLl
MlLL
MLLL
MlLL
MLll
Mlll
Mlll
Mlll
MLlL
MlLL
Mltl
001
002
003
004
005
006
007
008
009
010
all
012
013
014
015
016
017
018
019
020
022
026
021
028
029
030
031
032
033
034
035
036
031
038
039
040
041
042
LABEL
T
*
*
*
*
*
*
*
*
*
*
NEXTSEQ
NEXTLABEL
STATEMENT
PRINTER DATA lOOP.
COMMENTS
KRAGER
*********************************************************************
EACH CHARACT ER IS LOOKED UP IN A TRANSLATION TABLE LOCATED IN
AUX STORAGE 1 AND THE CHARACTER AT THAT LOCATION IS SENT TO
THE PRI NTER.
** NOT E ** AUX STG 1 MOVED TO AUX STG q IF 24K MACHI NE
*********************************************************************
SVCIN
015
012
047
DATA
SVCIN
ST nus
036
UNIT03
030
032
WMGM
CKFO
012
SVCIN
012
SVCIN
020
STRIP
020
040
STRIP
PTWM
030
019
043
WMGH
XlATE
WM
031
DECCr
DATA
XLUE
STRIP
WMGM
CKFO
UNlT03
OECeT
PTWM
BR If GT 2= 1
BR IF 6T3=0
BR
ROB HI V.l
BR IF PO BITO=1
Z=H1aKOF
BR IF Z=O
BR IF HI BITO=O
Hl"'Hl*-KCO
HO=O$K10
RDB T1 AS,H
GB/OUT=Tl
SET GA K=44
BR
SET GA K=14
BR
Z=H1*-KFO
BR IF LZNZ
H1=Hl.KOA
BR
BR IF PO BIT6= 1
Dl=Ol.KFF
BR If Z=O
BR
BR IF HI BIT 1=0
Hl=O$K40
BR
WA IT FOR SERVICE IN
OR STATUS IN
READ B FIELD DATA
BR IF 1403
TE ST CHARAC TER
BR IF WMGM
BR IF SPEC I At CHA.R
REMOVE 0 AND 1 BITS
SET UP flU ADDR
TlU CHARACTER
SET BUSS OUT
SERVICE OUT
COMMAND OUT
TEST CHAR
BR IF NOT - & OR BLK
ADD 10 TO CHAR
BR IF PR INT WM CMND
BR OUT If COUNT = 0
BR IF WM IN STORAGE
SET BLANK CHAR
PAGE 211
ADOR
WORD
2C44
2C46
2C48
lfF5
3F 13
AC5E
OE02
OE04
OE06
OEOS
OEOA
OEOC
OEOE
OE14
OElb
OElS
OEIA
OEIC
OElE
OEIO
OEl2
5fDf
OOSB
F090
ceDE
1523
F094
SEQUENt:E· NO.
sooe
2B08
3400
2C05
5032
56F2
8004
2B02
8010
Mltl
HLt_l
HUl
MLll
HLlL
MLll
MLll
Mlll
HLlL
MLll
Mlll
MLtl
Mlll
MLLL
Hllt
HLt.L
MLLL
HLLl
Hlll
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
LABEL
NEXTSEQ
NEXT LABEL
WM
037
*
Hl=OSKFO
Hl=Hl$KO 1
BR
DEceT
STATUS
ObO
053
END
COMBOP
STACK
END
054
MBBS 075
COHBOP
ENOOK
ICYC 213
OPROW
MBBB 071
ENDIT
STACK
2
ClOAD=*E40, EC lEVEl=128l11
COMMENTS
STATEMENT
Pl=(;B/IN
Z=PlttK08
BR IF llNl
BR If PO BITO=O
(;1=Gl*-K02
BR IF LlNl
BR
SET GA K-=40
SET MODE K=80
PO=OSKOO
RDH U DA,SE
ROH 0 OAt BE
BR
SET GA K= 10
BR
SET UP F 1 CHAR
GET STATUS
CK STATUS
BR IF OTHER THAN CE
BR IF 1443
REMOVE PRINT BIT
BR IF COMBINED OP
GO DO NORMAL 1443 END
SERVICE OUT
SET CPU MODE
CL EAR PO REG
RESTOR.E A STAR
RESTORE 0 REGISTER
SlACK STATUS
**********************************
*
"'lll
MLll
HUl
'1llL
MlLL
Mlll
MllL
MLLl
MllL
Mlll
Mlll
Mlll
MLU
MLlL
012
015
019
020
030
032
036
037
040
043
047
053
054
060
HKKK
Mtll
Mlll
HllL
MLll
HUl
MLt.l
HLU
HLLl
MUl
MU_L
Mlll
MUt
HUL
085
012
039
033
018
019
Olb
042
036
040
014
050
052
049
MLtl 013
MLLl 035
MLLL 038
HlLl 045
HUt 029
CROSS REfeRENCE ·FOR CSECT MllL *
**********************************
HUl 031
PAGE I I I
CLOAD=*E40, EC lEVEl=128211
MMMM
DESCRIPTIVE
TEXT
ENTRY POINTS
CKDATA
SENSE
ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL
SELECTION WHEN SENSE OPERATION IS DECODED.
ADDR
OA88
2C80
2C82
2C84
2C86
2e88
2C8A
2C8C
2CSE
2C90
2C92
2C94
2C96
2C98
2C9A
2C9C
2CQE
2eAO
2CA2
2CAE
2CBO
2C82
WORD
AE80
5A92
2B05
7A92
ceOA
0900
fDl2
5A92
3A13
7A92
F92E
5E62
3E45
7E62
0031
3400
021E
2C05
A638
0024
3A99
5AB P
MPPP
MPPP
MPPP
MPPP
MPPP
/011' PI'
MPPP
MPPP
MPPP
MPPP
HPPP
MPPP
001
002
003
004
005
006
0.07
008
009
T
*
NEXT LABEL
FORMS OP DECODE.
fORMS
010
011
012
013
014
015
016
017
018
019
020
021
NEXTSEQ
031
036
NORA
BONLY
028
AFTER
ORINJ
SHIFT
022
023
024
025
026
021
028
029
030
031
032
OJ3
034
035
036
037
038
027
N003
AFTER
NORA
MJJJ 007
N003
OPISl
M8.88 017
03.5
ENDH
SET
012
M8B8 075
ORIN3
ENOOK
SET
BONlY
013.
SHIfT
4
COMMENTS
STATEMENT
KRAGER
RST S6
STH D OA,BE
STH U DA,8E
Hl=Dl
HO=O$KOO
ROB HI AS, H
BR If Hl BIT 2=0
BR IF HI BIT 3=0
SET S6
Hl=Hl$K LO
Hl=H1+HI
Hl=H1+Hl
Hl=Hl+Hl
RDH T OA,9C
r l=H*-KFO
T 1=Tl*-K08
Tl=TUHl
BR IF S6= 1
T l:=Tl*-KO 1
STH T DA,9C
RDH D OA, BB
OO=O$KOB
BR IF 01 8lT4=0
PO=PO$K80
8R
T 1=Tl$KOl
STHT OA.
0138
013A
76E2
2785
214B
2613
2A25
2ACB
2E75
2EAB
20A7
20FF
A1BE
013(;
013E
10'17
21C2
21C4
21C6
21C8
21eA
21CC
5F38
CD45
DF34
E85l
Of75
C4CC
3FA3
3FC5
21CE
A116
21SE
nco
SEQUENCE NO.
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPH
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPH
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
LABEL
NEXTSEQ
NEXT LABEl
TN012
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
151
158
159
160
161
162
163
164
165
166
168
172
NOSKP
143
143
NOSKP
NOSKP
145
112
X1A
WRTCMD
150
SEBUSV
161
Icve 031
PRENDO
HISTRT
166
PREN01
Xl"
STRPRT
SEBUSV
PRENDO
166
ICYC 201
PR ENOL
VLOAOR 0
toPO 035
TESTBR
PRENDI .
WRTCMD
173
114
115
116
117
118
119
L81
185
186
187
188
189
190
191
192
193
194
195
196
191
198
199
*
190
PRBULO
193
204
200
NATV03
NOTWMA
PRHIMA
197
NOSPEC
209
OATAXF
PRBULO
NAIV03
XFER43
BlKTBK
NOSPEC
'*
STATEMENT
Z=GOaKCO
BR If HZNZ
BR IF GO B1T4=0
PO=POSK40
BR IF GO S1T6=1
BR
PRC=GO
RST PRA K:80
BR
RDH 0 DA.BC
SET PRA K=80
SET PRA K=10
PO=PO*-K06
PO=POSK08
RDH U DA,8E
Pl=Pl*-K99
STH P DA,9C
SET MODE K=80
PO=OSKOO
ROH H oA,B8
BR IF Hl BIT 4=1
BR
Z=GlaKOA
BR IF LZ=O
Gl=G1*-K02
BR If OVN BIT7=L
BR
Gl=G1*-K20
BR
PRC=GO
RST PRA K=80
STH D OAt BC
Dl-=OSK80
D1=Ol+K04
DO=OSKOI
TO=OSK20
TO=TO+KOC
HO=OSKI0
HO=HO+KOA
UO:O$KAA
UO=UO+KFF
BR
ROB HI V+1
BR IF PI BIT 0= 1
BR IF HI BIT 1=0
BR IF PO B1T6:1
Z=Hl*-K70
BR IF ZNZ
Hl=Hl$KOA
H1=Hl$KeO
BR
ClOAD=*E40. EC lE VEL= 1282 11
COMMENTS
BR If NOT SKIP TO CH 9
BR If NOT SKIP TO CH 9
SET CH 9 FLAG ON
SR IF CTRt IMMED CMNO
LOAD CARRIAGE DATA
RESET EXT SENSE LATCHES
RELOAD 0 REGISTER
SE T PR INT GATE LATCH
SET BU.SY LATCH
RESET DE AND PRT WM BIT
SET SECONDARY BIT
GET A STAR
RESET CONTROL BITS
STORE STATUS INTO SUMP
RESET 1403 MODE
BR IF 1403 PRINTER
1440 GO 8ACK TO I-CYCLES
SR IF CONTROL COMMAND
SUBTRACT 2 FROM OP CODE
BR If NO 3,6 OR 1 OP CODE
GO TO EXECUTE NEXT lOOP
RESET OP CODE
LOAD CARRIAGE DATA
RESET EXTERNAL SENSE LATCHES
STORE D REGI STER
SET PLB COUNT TO DEC 132
SET PLBAR COUNT Ot
SET PLBAR ADR CONSTANT 2C DEC 44
PLB TA8LE AOOR CONST 7A
SET UP ADOR eONST A9
BR TO PRINT BUfFER LOAD
READ DATA CHARACTER
SR IF 1403 IS DEFINED
BR IF CHARACTER HAS A WM
SR IF PRINT WM
TEST IF CHARACTER IS OX XX 0000
BR IF NOT
ADJUST FOR TLU
OR IN WM-BIT AND ADJUST FOR
TABLE LOOK UP. ADR11XX YYYY
PAGE 221
AOOR
WORD
2100
?t02
2104
2106
2lB4
2lB6
21B8
OF.3B
2FF5
3F 13
A 176
OFFB
C4C6
3025
2F45
AICA
4f6f
2004
SIEO
4BIF
2BfF
C498
.l18A
llBC
2176
2178
2114
217C
2l7E
2180
2182
2184
2186
2198
219A
2l9C
219E
2lAO
21A2
21A4
21A6
2lA8
21AA
21AC
2lAE
lIBO
2lB2
2188
21SA
218C
218E
2190
2192
2194
2196
12AE
12BO
1282
12B4
1286
1288
12BA
12BC
12BE
lE62
21Ff
C488
8188
21fF
C4A2
CD06
3C 13
8188
SEll
61B
F4AO
66A3
ALAE
6603
ED3E
2F45
AICA
CCOC
A 19E
3D25
CD15
2BC3
AlA2
2B25
AIA2
2AF3
3A65
5A89
5032
1AF2
7C62
3400
8258
ACBC
98EA
SEQUENCE NO.
MPKT
MPRT
MPRT
MPRT
MPRi
MPRi
MPRT
MPRi
MPRT
MPRT
MPKT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPR T
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPKT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
200
201
202
203
204
205
206
201
208
209
210
211
212
213
214
215
216
211
218
219
220
221
222
223
221
228
229
230
231
232
233
234
235
236
237
2.38
239
240
2H
242
243
21t4
245
246
247
248
249
250
251
252
253
254
255
LABEL
PRTWMA
NEXTSEQ
NEXT LABel
207
NOWOMA
209
DATAXf
194
XFER43
196
BLKTBK
NOTWMA
N(}WOMA
DATAXF
I NI PR T
PLBCNT
218
PLBCNT
235
148
HUNPOS
STRPRT
223
211
DXFER3
INI PRT
148
STRPRT
231
DXFERI
232
DXFER2
190
PRBUlO
196
231
221
BlKTBK
BlKOUT
XFERRO
241
GOON03
223
DXFER3
223
DXFER3
XFERRO
OXFER3
OXFERI
DXFER2
HUNPOS
BlKOUT
GOON03
I NrREQ
*
*
*RMTRST
STATEMENT
BR IF HI BUl:l
Hl=O$KFO
Hl=HUKOl
BR
Z=HlaKOF
BR IF INZ
Pl=Pl$K20
H1=O$K40
BR
PR=DO
SET PRA K=20
ROB Ul AS,H+O
PRO=U 1
T l=Tl +KFf
BR If INZ
Dl=OI+KFF
BR IF INZ
6R
01=01+KFF
BR I f INI
6R IF PI BHO=O
PO=PO$KOI
BR
Ul=HQX
U1=U1 +00
BR IF DYN S1T3=l
OO=OO.TO
6R
DO=OO+UO
BR IF PI BIT 2=0
Hl=OSK40
BR
BR IF PO 8ITO=O
BR
Pl=PUK20
BR IF PI BlTO= 1
Tl=O$KOC
BR
T 1=0$K20
BR
TO=OSKOF
TO=TOSK60
Tl=TO
ROH U DA,8E
STH T DA. BE
STH P OA,9C
SET MODE K=80
BAl
BR
CLOAO=*E40, EC
COMMENTS
LEVEL~I28211
BR I f DATA-CHARACTER HAS WM
SET HI REG TO HEX Fl
DEC 1
SET UP FOR TE ST GM
BR I f NOT A GROUP MARK WORDMARK
SET BIT TO BLANK REST OF BUffER
INSERT A BLANK IN Hl
LOAD PLBAR
SET READ CALL LATCH
TRANSLATE DATA BY TABLE LOOK UP
LOAD PLB
DECREMENT COUNT BY 1
BR I f COUNT NOT ZERO
DECREMENT PLB 6Y 1
BR TO INITIALIIE PRINT OPERA
DECREMENT PLS BY 1
CONTINUE BUfFER LOAD
BR IF 144.3 PR T ROUlI NE
SET PRINTER CHECK
GO TO START PRINT
SET Ul TO A7
ADO PlBAR COUNT
SR I f PlBAR COUNT .DEC 88
ADO DEC
44 TO PLBAR
ADD DEC 169 TO PLBAR
BR TO CONTINUE BUFFER lOAD
100 PR T POS OR GMWM BLANK OUT
6R IF 100 PRT POSITIONS
SET PRINTER ERROR
SET BIT TO BLANK REST OF BUFFER
BR IF 1403 IS DEFINED
GO TO CONTINUE PRT BUFFER lOAD
CHANGE DA TA COUNT FOR BLK OUT
GO TO CONTINUE PRT BUFFER LOAD
SET ERROR CODE 6F
GET A STAR
STORE STOP CODE TWICE - RESTART
STORE PRT CONDITIONS
R E SE T 1403 MODE
STORE REGS
8R TO INT REQU 01 SPLAY ROUTINE
{REG 006
lOIS 010
STREGS
STOP
IREG 016
ENTRY FROM INTERVENTlllN REQUIRED DISPLAY ROUTINE
PRI NTER REQUEST LINE UP
RSTREG
BAl
GET REGS BACK
PAGE 222
AODR
WORD
lE64
H:6o
lE6S
lE6A
lE6C
lE6E
lE 70
2E07
5EF9
7H2
5C62
3D83
0080
9BFE
IC 14
lC 16
IC 18
IC lA
IC lC
IC IE
lC20
lC22
1C24
IC 26
lC28
lC2A
lC2C
lC2E
lC 30
le32
1C34
1C36
1B FE
1COO
1e02
le04
lC06
le08
lCOA
1coe
lCOE
lC 10
lC 12
lC4C
1C4E
le50
lC52
lC54
1C56
lC58
lC.5A
le5e
lC 5E
1C60
lC62
lC64
le66
lC68
5EC2
DBlE
OOC8
3400
9C4A
CAAC
5EF2
2E65
3EF 3
6EF 1
C4AC
9E62
5C62
1000
CE8l
CAD2
lC65
9COO
3000
3C43
1C83
E94F
5EC2
CBOC
1C65
EECD
FECE
3C25
9C4E
3C45
DAD3
EADA
3C 13
5E92
JEU
7E92
ODOA
D1B8
0040
4EC6
7e62
3400
2e05
AOCA
SEQUENCE NO.
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRJ
MPRJ
MPRJ
MPRT
MPRJ
MPRT
MPRJ
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRT
MPRJ
MPRJ
MPRJ
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPR T
MPRT
MPRT
MPRT
MPRT
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
LABEL
NEXTSEQ
283
*
*
SOSTRE
270
NOCHNl
318
277
271
272
273
274
275
276
277
278
219
280
281
282
283
284
285
286
281
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
277
255
ClROEl
284
297
284
ClROEV
ClRDE2
295
290
ClRDE7
294
295
295
SETCH9
ClRDE3
297
301
ClDEUC
ClRDE4
309
386
NEXT lABel
CLRDEV
STATEMENT
HO=O
Hl=HO
STH H DA,BE
RDH P OA,9C
Pl=Pl$K08
RST S4
BR
CLOAD=*E40, EC lEVEL=128211
COMMENTS
SET HO,HI TO ZERO
SET REMT/RSfRT BUMP lOC TO ZERO
RESTORE PRT CONDITIONS
SET RMT/RSTRT BIT
RESET S 4 - NOT WAIT STATE
ENTRY FROM SOFT STOP lOOP. REQUEST UP
RDH H DA, B8
BR IF NOT CHNl PRINTER
NOCHNl
BR IF HI BIT 5=0
RST PRA K=40
RESET PRT REQUEST LATCH
SET MODE K=80
RESET 1403 MODE
BR
BRANCH BACK
HISTRT
ClRDEl
BR IF PRS BIT4=0
BR IF NOT INITIAL READY
RDH H OA. BE
READ OUT STOP CODE FROM BUMP
HO=OSK60
HO=HOSKOF
SE T UP STOP CODE
HO=HOllHI
CLRDEl
BR IF INI
BR IF NO STOP CODE MATCH
RMTRST
BR
BR TO REMOTE RESTART RE STORE
RDH P OA,9C
READ OUT PRT CONDITIONS
RST SO
CLRDE2
BR IF PRS BITO=1
BR IF De UP
CLDEUC
BR IF PRS BlT4=O
BR IF NOT INITIAL READY, SET UC
RESET CHNl 9 AND 12 INDICATORS
PO=PO*-K60
ClRDEl
BR
CONTINUE
SET SO
SET SO FOR BR BACK TO SIO
PQ=POSK04
SET DE IN PRJ CONO
RESET SECONDARY BIT
PO=PO*-K08
(lRDE3
BR IF PI BIT 6=1
BR IF lST eMD WAS SKP OR SPC SU
RDH H OA, B8
BR IF Hl BIT 4=0
BR IF 1443 IS DEFINED
ClROE7
RST CHNl 9 AND 12 INDICATORS
PO=PO*-K60
BR IF CHANl 9 SENSED
SETCH9
BR IF PRS BIT 2=1
BR IF NOT CHNl 12
CLRDE3
BR IF PRS BIJ3=0
PO=PO$K20
SET CHNl 12 SENseD
ClRDE3
BR
SET CHNL 9 SENseD
PO=POSK40
BR IF HAMMER CHECK
BR IF PRS B1T5=1
ClDEUC
BR IF PRS BIT 6=0
BR IF NO PARITY CHECK
ClRDE4
SET PRINTER ERROR
PO=POSKOl
RDH H DA,AA
SET PTR ERROR BIT
HO=HOSKOl
STH H DA,AA
RST PRT REQUEST AND BUSY LATCH
RST PRA K=50
BR IF NOT FROM BR ON ERROR ROUT
BR IF S5=0
ClRDE6
RST S5
PUT PRT CONDITIONS IN HO t Hl
H=P
STH P OA,9C
STORE PRINTER CONDITIONS
RESET 1403 MODE
SET MODE K=80
PO=O$KOO
BR TO PTR ERROR BRANCH
BR
ERRORI
PAGE 223
ADDR
WORD
lC38
lC3A
lC3C
1C3E
1C40
1C42
1C44
1C46
1C48
1C4A
C5C4
154C
154E
1550
1552
15.54
1556
1558
155A
155C
155E
1560
1562
1564
1566
1568
156A
156C
156E
1570
1572
1574
153A
153C
1HE
1540
1542
1544
1546
1548
1544
2564
2566
;>568
~'HE
1000
C94'3
A91E
'i98E
7C62
3400
2C05
%AC
093B
5E92
3E13
7E92
5EC2
CE5F
fC5F
1C13
1908
2E65
3Ef3
2F05
7H2
3043
7C62
SCA2
5609
1CA2
3400
2e05
A044
5CA2
5069
5C62
5622
fC47
lC13
1043
f840
A908
8216
C960
5E62
LABEL
SEQUENCE NO.
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRf
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRr
MPRJ
MPRT
MPRT
MPRT
MPRT
MPRT
MPKT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRT
309
310
311
.312
313
314
31S
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
Ct.RDE6
RMRSTl
ClRDES
HI STRT
NEXTSEQ
315
066
ClRDES
RESTRT
314
118
014-
RMRSfl
TSTERR
NOTINT
(NRU 030
STOPCK
*
*
*
*
**
*PRTERR
NEXTlABEl
347
335
335
112
CHKSiP
lOIS 003
GENSTP
353
PRTER2
326
ll2
STATEMENT
BR If SO=O
BAL
RST SO
BR If PI BIT4=l
BR
BR
STH P DA.9C
SET MODE K=80
PO=OSKOO
BR
ClOAD=*E40 t EC lEVEl=128211
COMMENTS
BR IF NOT FROMSIO ROUTINE
GO TO ASSEMBLE STATUS
BR IF FROMRMT/RS.TRT
GO BACK TO SIO
GO TO SET UP AGAIN
STORE PRT CONDITIONS
RE SET 1403 MOOE
GO BACK TO CHECK FOR OTHER INTR
ERROR ROUTINE
IF 110 CHECK STOP SWITCH IS ON. PROGRAM ENTERS GENERAL STOP lOOP,
OTHERWISE EXTERNAL SENSE LATCHES BECOMES A RESET.
If AN INVALID SKIP TO CHAN'lEL MODIfiER EXISTStPROGRAM
ENTERS ALWAYS GENERAL STOP LOOP , UNLESS THE MODIFIER
WILL BE CHANGED •
BR IF FROM GENERAL STOP ·lOOP
BR IF PI B1T5=l
GENSTP
ROH H OA, AA
SET PTR ERROR S[T
HO=HOSKO 1
STH H OA. AA
RDH H DAt B8
BR IF I/O CHECK STOP SWI TCH ON
CHKSTP
BR IF tio BITO=l
BR IF INVALIO SKIP MODIFIER
CHKSTP
BR IF PO B1T3=1
RE SET PRT ERROR BI T
PO=PO*-KOI
BR
RETRYO
SET ERROR CODE -6FHO=OSK60
HO=HOSKOf
HI=O$KOO
STORE ERROR CODE
STH H OAt BE
SET FROM GEN STOP LOOP BIT
Pl=Pl$K04
STORE PRT CONDITIONS
STH P DAt9C
RDH P DA,AC
SAVE STATUS REGISTER
P1=DO
STH P OA, AC
SET MODE K= 80
RESET 1403 MODE
PO=OSKOO
GO TO GENERAL STOP LOOP
STOPPP
BR
RDH P OA,AC
RESTORE STATUS REGISTER
DO=Pl
RESTORE PRT CONDITIONS
ROH P DA.9C
RDH D DA,8e
BRIF INVALID SKIP MODIFIER
PRTER2
BR If PO BIT3=l
RS' PR T ERROR BIT
PO=PO*-KOI
RST GENERAL STOP BIT
Pl=Pl*-K04
PRTERR
BR IF PRT ERROR
BR IF PO BIT1= 1
GO TO CONTINUE SIO
RETRYO
BR
*
*
*
BRCHN9
394
369
PRINTER BRANCH CONDITIONS
CKNATV
BAl
WAI143
BR IF PI BIT 4=0
ROH H OA,9C
CHECK IF NA TI VE PR INTER
BR IF 1443 IS DEFINED
READ OUT PRT CONDITIONS
PAGE 224
AOOR
WORD
25<>A
256C
2556
2558
l55A
255C
255E
2560
2562
2510
2512
2514
2.516
2578
256E
2008
lODA
20DC
200E
20EO
20E2
2DE4
20E6
20E8
2DtA
OE6F
801C
8216
5E62
OA6E
CA6F
807C
2080
ADDC
8216
C<;60
5E62
EE6F
807C
9E72
0080
8216
5E62
DA4B
CA4A
3482
2040
4CE6
A914
C1CE
91F2
5E92
FA48
zoee
20CE
2000
2002
2004
200b
20e8
0216
0218
021A
OllC
()21E
1468
146A
146C
146E
1470
l1F2
llF4
UF6
llF8
llFA
11fC
lHE
11 EE
11FO
IlEA
11Ee
SEQUENCE NO.
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
362
363
364
365
366
361
368
369
370
371
372
373
374
375
316
371
378
379
380
381
382
383
384
385
.386
381
388
389
IE 13
~PRT
390
1En
9E72
807C
5CC2
2e05
D91F
128E
890A
5EEf
OE93
FOfl
954C
A650
lC80
01CB
fOEE
EE70
1E25
7E62
9€:]2
DE6B
B07C
lE45
91Ft
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
LABEL
NEXTSEQ
NEXT lABEL
PRBUSY
316
ICYC 031
394
UNBR
HISTRT
CKNATV
316
316
ICYC 031
UNBR
UNBR
HISTRT
319
394
369
WAIT
CKNATV
WAIT43
316
ICYC 037
IU8R 002
UNBR
HISTRT
UNCDBR
394
CKNATV
386
386
ERRORl
ERROR1
122
388
404
WAITOE
NOTCHN
BRANCH
393
ERROR2
IUBR 002
ICYC 037
UNCDBR
HISTRT
398
CHNlPR
WAIT43
BRCH12
UNBR
ERROR
WAIT
ERRORl
NOTCHN
ERROR2
eKNATV
CHNLPR
01 SCON
OKAY
BRANCH
406
407
408
409
410
411
412
413
414
IOCM 051
CHNL
40.3
326
126
OKAY
PRTERR
CONSIO
411
412
NOTl2
BRBACK
IUBR 002
413
ICYC 031
UNCDBR
BRCHO<}
HISTRT
409
ENDING
ENDING
NOTl2
BRBACK
BRCH09
STATEMENT
BR IF HO BIT 1= 1
BR
BAl
RDH H OA.9C
BR IF HO B1T5=0
BR IF HO 81T4=1
BR
SET S K=08
BR
BAl
BR If P1 BIT4=0
RoH H OA,9C
BR If HO BIT 2= 1
BR
BR
RST S4
BAl
RDH H OA,9C
BR If HO BIT 5= 1
BR IF HO BIT4=0
SET MODE K=98
SET S5
P=H
BR
BR If S4=0
BR
RDH H DA,AA
BR If HO BIT1=O
HO=HO*-K01
STH H OA, AA
BR
BR
RDH P OA,B8
PO=O$KOO
BR If PI BIT 5=1
RTN
BR
HO=PRS
Z=HO*-K09
BR If lZ=O
BR
BR
RST S K=88
Z= DlaKOC
BR If LZNZ
BR If HO BIT 2=0
HO=HO*-K20
STH H DA,9C
BR
BR IF HO B1T1=l
BR
HO=HO*-K40
BR
ClOAD=*E40, EC LEVEL=128211
COMMENTS
BR If CHNl q SENSED AND TAKE BR
BR TO EXECUTE NEXT SEQUENTIAL OP
CHECK If NATIVE PRINTER
READ OUT PRINTER CONDITIONS
BR If DE NOT YET UP
BR If SECONDARY BIT ON
BR TO EXECUTE NEXT SEQUENTIAL OP
CHECK If NATIVE PRINTER
BR IF 1443 IS DEFINED
READ OUT PRT CONDITIONS
BR IF CHNl 12 AND TAKE BRANCH
BR TO EXECUTE NEXT SEQUENTIAL OP
BR TO UNCONOITIONAl BRANCH
CK FOR NATIVE PRINTER
READ OUT PRJ CONDITIONS
BR If DE STORED
BR If NOT BUSY
SET 1403 MODE
BR TO WAIT FOR DE UP
BR IF FROM BR ON ERROR
READ OUT PTR ERROR BIT
BR IF NOT P TR ERROR
RESET PTR ERROR BIT
TAKE BRANCH
GO TO I-CYCLES
BR If CHANNEL PRINTER
RETURN TO NATIVE PRINTER
BR TO CHANNEL PR I NTER BRANCH
GO TO ERROR ROUTI NE
GO TO CONTINUE SID
RESET SO AND S4
BR If NOT BR ON CHNL 12
BR If NOT CHNl 12
RESET CHNt 12 BIT
STORE PRT CONDITIONS
TAKE BRANCH ON CHANNEL
BR IF CHNl 9 IS SENSED
GO BACK TO I-CYCLES
RE SET CHNl <} Bl T
PAGE 225
WORD
ADDR
MPRT
'1PRT
''1PRT
,'1PRT
MPRT
'1PRT
,'1PKT
,"'PRT
MPRT
'1PRT
'1PRT
MPRT
MPRT
MPRJ
4PR r
'''PRT
'1PR T
r4PRT
'1PRT
MPRT
MPRT
MPRT
'4PRT
MPRT
t-lP1H
I~PRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
'1PRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRY
MPRT
MPRT
MPRT
MPRT
MPRf
MPRT
033
036
045
046
049
055
063
066
067
074
079
081
087
090
093
098
101
106
107
111
112
115
116
118
120
122
125
126
135
136
139
143
14.5
148
150
161
166
172
190
193
194
196
197
200
204
207
209
217
218
221
SEQUENCE NO.
Ie YC 288
MPRT
MPRJ
MPRT
MPRT
MPRT
MKKK
MPRI
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPIU
MPRJ
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRT
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRf
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRT
MPRT
MPRJ
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
MPRT
r.\PRT
MPRT
MPRJ
MPRT
034041
044
047
052
049
310
048
072
017
079
080
089
091
093
078
099
098
lC6
.334123
114
116
117
120
118
125
lABEL
NEXJSEQ
STATEMENT
ICYC 289
ICYC 292
**********************************
* CROSS REfERENCE FOR CSECT MPRT *
**********************************
ICye 293
MPRJ 054
MPRJ 314
'"'PRJ 058
MPRT 062
MPRT 095
MPRJ 100
MPRT 104
MPRT 355
MPRT 313
MPRT 122
MPRJ 385
MPRT 403
1.32
129
137
133
MPRT 140
143
211
MPRT 222
147
159
t62
MPRl 164-
144
188
'"'PRJ 232
l~l
205
208
1'15
1 '13
1'12
200
1'19
220
214236
NEXJlABEl
MPRT 234
MPRT 203
MPRJ 141
ClOAD=*E4-0. EC lE VEl=128211
COMMENTS
PAGE 226
CLOAD=*E40. EC lE VEl=128Z 11
MQQQ
DESCRIPTIVE
PAGE 228
TEXT
ENTRY POINTS (CHANNEL ATTACHEDPRtNTERt
THESE ENTRY POINTS ARE FROM THE 10CM ROUTINE FOR
BRANCH ON CHANNEL 9 AND 12 INSTRUCTIONS.
PTERR
THIS ENTRY IS FROM THE IOCM ROUTINE FOR HANDLING
B.RANCH ON PRINT.ERERROR' INSTRUCTIONS.
XXXXXX
ENTRY HERE IS FROM THE SOFT STOP ROUTINE (INRUI
WHEN THERE IS A CHANNEL INTERRUPT CONDITION.
OECMT
ENTRY HERE IS FROM THE SENSE STATUS DECODE
ROUTINE.
AOOR
2614
2616
2618
26lA
261C
261E
2620
2622
2624
2626
2628
262A
2638
263A
26.3C
263E
25fE
2600
2602
2604
2606
2608
260A
260C
260E
2610
2612
2640
2642
2644
2646
2648
WORD
5EC2
CB20
5E62
OB2D
5492
El35
5E92
FA27
8D7C
lEl3
7E92
9E72
5886
5790
0739
8D1C
5E62
0620
5492
El35
OEOB
801C
54C2
C1l3
lE45
1E62
9E12
5HZ
OB20
EE49
801C
54C2
SEQUENCE NQ.
MQQQ
MQ.QQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQ(.l
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
MQQQ
001
002
003
004
005
006
007
008
009
010
all
'012
013
014
015
016
011
Ol8
019
020
021
022
023
024
025
026
021
'028
029
030
031
032
033
034
LABEL
NEXTSEQ
NEXTLABEL
BRANCH ON PRINTER ERROR.
T
*PTERR
009
cnER
038
WAn
042
SENSE
CKFER
012
IC YC 031
RESET
HISTRT
RESET
IUBR 002
UNCOBR
DECMT
015
ICYC 031
OECMT
HISTRT
CH9
038
042
025
ICYC 037
WAn
SENSE
REMOVE
HISTRT
REMOVE
029
S T1JR'E
IS03
CH12
BUNK
1503
IUBR 002
UNCOBR
038
034
ICYC 037
WAIT
BLANK
HI STRT
COMMENTS
STATEMENT
ROH H OAt B8
BR I f HI B IT 4= 0
ROH H OA.9C
BR IF HI BITS=l
RDH G OA,AA
BR IF Gl BIT 6=1
RDH H DA.AA
BR IF HO B1T1=l
BR
HO=HO*-KO 1
STH H OA,AA
BR
1= 1-1
ROB 01 1+0
BR IF 01 B1T1=l
BR
RDH H OA,9C
BR I f HI BIT 5= 1
ROH GOAt AA
BR IF Gl BIT6=l
BR IF HO B1T1=l
BR
ROH G OA,B8
BR IF Gl BIT 4=1
HO=HO*-K40
STH H OA,9C
BR
ROH H OAt9C
BR IF Hi BIT5:1
BR IF HO BIT2=l
BR
RDH G DA t B8
KRAGER
READ CONTROL BYTE
. BR IF 1443
READ FORMS BYTE
BR IF PRINTER ACTIVE
READ CHNl STA TUS BYTE
BR IF UNIT CHECK ON
READ ERROR BYTE
BR IF ERROR BIT ON
RESET ERROR BIT
STORE ERROR BYTE
DECREMENT I STAR -1
READ MAIN STORAGE
BR IF NO 14M YET
READ LATCH BITS
BR IF ACTIVE BIT ON
READ CHNl STATUS BYTE
BR If UNIT CHECK ON
BR IF CH 9 BIT ON
BR IF 1403
RE SET CH 9 BIT
STORE BACK
RE AD LA TCH BITS
BR IF ACTIVE BIT ON
BR IF CH 12 BIT ON
AOOR
WORD
264A
264e
26ltE
262C
262E
2630
2632
2634
2636
0980
0990
0992
e1l3
lE25
A610
5E62
OB20
5En
E838
20A3
9F4C
A638
0010
A638
MOQO
MOQQ
MQOO
MQQQ
MOQQ
MQOO
MOQQ
MQQQ
"IQ QQ
MQQQ
MQOQ
Mr.iQQ
Mi.JQiol
003
009
012
015
019
025
028
029
030
034
038
042
045
SEQUENCE NO.
MQQQ
MOQQ
MOOO
MQQO
MQOO
MQQO
MOQO
MQOQ
MQQO
MOOO
MOQO
MQQQ
IOCM
MQQQ
MOQQ
MMMM
10CM
MQOQ
MQOO
MOOO
10CM
MQOQ
MQQQ
MQOO
INRU
053
004
010
035
052
023
031
026
054
032
006
008
0.56
03.5
036
031
038
039
OltO
041
042
043
044
045
055
LABEL
NEXTSEQ
029
028
WAIT
038
015
SENSE
xxxxxx
MQQQ 011
MKKK 051
015
015
NEXT LABEL
CtOAO=*E40, EC LE VEt=128211
COMMENTS
BR IF G1 BIT 4= 1
BR IF 1403
HO=HO*-K20
RESET CH 12 BIT
STORE
BR
READ STATUS BYTE
ROH H DA.9C
WAIT
WAIT FOR ACTIVE BIT TO DROP
BR IF HI BIT 5= 1
ROH H OA,AA
BR IF UN IT CK OFF
OECMT
BR IF Hl BIT 6=0
OO=O$KOA
SET SENSE AND PRINTER
AOOR
BR
OECMT
BR
GO BACK UP I STAR
!lST S7
BR
OECMT
**********************************
* CROSS REFERENCE FOR CSECT MOOQ *
**********************************
1503
MQQO 041
MQQQ 044
MOQO 031
MOQO 039
M·lOQ 035
MQQQ 020
MJQO 022
STATEMENT
M(,jQO 055
PAGE 229
ADDR
0000
0010
0020
0030
0040
0050
0060
0070
0080
0090
OOAO
OOBO
OOCO
0000
OOEO
OOFO
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
20AO
20BO
20~0
2000
20EO
20'FO
'>000
5010
5020
5030
5040
5050
5060
5070
5,080
WORD
40F 1
1A61
6001
50Cl
0040
3040
2011
4A10
08CO
0000
0081
0000
3A31
2A21
1A51
OA01
OOOA
0059
005E
0063
0000
0000
0000
0000
0000
0000
0000
0016
lC18
1034
3405
3421
0000
0000
0032
8000
F900
0900
C900
0005
F800
SEQUENCE NO.
MZll
MZZZ
MZZZ
MZZZ
MZZZ
MZll
MZZZ
MZZZ
MZZZ
'Ull
MZZZ
001
002
003
004
005
006
007
008
009
010
011
IUIZ 012
14Hz 014
MZZZ
MZZZ
MZZZ
MZZZ
MZZZ
MZZZ
MZZZ
MZlZ
MZZZ
MZZZ
MZZZ
MHZ
MZZZ
MZZZ
MZZZ
MHZ
MHZ
MZZZ
MZZZ
MlIZ
MZZZ
MZlZ
MZZZ
MZZZ
MHZ
MZlZ
MZZZ
MZll
MZZI
MZ Zl
MZZZ
MIZZ
MHZ
t4lZZ
MIZZ
lUll
MZ ZZ
MZZZ
MHZ
MlZZ
018
020
024
025
026
021
028
029
030
031
032
033
034
03.5
036
011
038
039
040
041
042
043
044
045
Oit&
041
048
049
050
051
052
053
054
055
056
051,
058
059
060
061
LABEL
T
*
*
CAROWO
ArABLE
CAROlil
CAROW2
CAROW)
CAROW4
CAROW5
CAROW6
CAROW1
CAROWS
CAROW9
CAROWA
CAROWS
CAROWe
CAROW{)
eAROWE
CAROWF
NEXTSEQ
NEXTlA8El
STATEMENT
ClOAO=*E40, EC lEVEl=128211
COMMENTS
AUX STORAGE TABLES
MODULE 0
AUXILIARY STORAGE
AOOR=OOOO
0 1 2 3 4 5 6 7 8 9 ABC 0 E F
AOORESS=OORC
XAUX'40FlF2F3F4F5F6F1F8F9F0187C1D1E1F'BeD TO EBCDIC
XAUX'1A61E2E3E4E5E6E7E8E9E0686C6D6E6f' CONVERSION
XAUX'60DI02D3D4D5D6D1D8D900585C5D5E5F'
TABLE
XAUX' 50CIC2C3C4C5C6C7C8C9C04B4C4D4E4F'
****
XAUX'0040404040404040404040383C3D3E3F'EBCDIC TO BCD
XAUX'3040404040404040404040282C2D2E2F' CONVERSION
XAUX' 2011524040404040404040lBlClOlElF' TABLE 1
XAUX' 4A7040404040404040401 008 OC ODOE OF ,
****
XAUX'08COCIC2C3C4C5400180000000000000'INITIAlIZE AREA
XAUX' 0000000000000004000000008EOOOAOO' OVERLY WI TH
XAUX'00810240042006100000S0003FOOOOOO'OPTIONS ON 2ND
XAUX'0000000000000800E800FFOOOOOOOOOO'FRM LAST LOAOCO
XAUX'3A31321334353637383940404048455C'EBCOIC TO BCD
XAUX'2A212223242526212829404040404650' CONVERSION
XAUX'lA511213141516111S19404040494F56' TABLE 2
XAUX'OAOI0203040506010S0940404040445F'
****
AE~D
*
ArABLE
MOOUl E 2
AUXILI AR Y STORAGE
0 1 2 3 4 5 6 7 B 9 ABC 0 E F
AODR=2000
AOORESS=20RC
*
XAUX'OOOA141E28123C46505AOI0101010101'TENS DEC/HEX***
XAUX· 005900000000044COB BS070003E SOOOO 'HUNDREDS
XAUX'005EOOOOOOOOOOOOOCICOS34044C0064' CONVERSION
XAUX'0063000000000000OC800B9804BOOOCS' DEC TO HEX
XAUX'OOOOOOOOOOOOOOOOOCE40SFC0514012C'AND INDEX REGS.
XAUX' 000000000000000000 48096005180190 'THE VALUES IN
XAUX' 00000000000000000DAC09C405DCOIF4' THI S AREA ARE
XAUX'OOOOOOOOOOOOOOOOOEIOOA2S0640025S' ADDEO TO THE
XAUX'OOOOOOOOOOOOOOOOOE140A8C06A402BC'BIAS CONSTANT
XAUX'OOOOOOOOOOOOOOOOOE080AF007080320'ANO STORED BACK
XAUX'OOOOOOOOOOOOOOOOOF3COB54076C03S4'OURING CSl ****
XAUX'0016324864S096112844601692012339'TENS HEX/DEC***
XAUX'lC180BIF12162A34B134340215343434' OP-CODE
XAUX'lD3429908006341Ef134343434343434' DECODE
XAUX'34051934200EOF34131134041B343434' TABLE
XAUX'3421222324252621060634141A343434'
****
CBROWO
CBROWl
C8ROW2
CBROW3
CBROW4
CBROW5
C8ROW6
C8R0W1
CBROWS
eBROW9
CBROllA
CBROWS
CSROWC
CBROWO
CBROWE
C8ROWF
lEND
*ATABLE
*
CCROWO
CCROWl
CCROWZ
CCROWl
CC!tOW4
CCROWS··
CCROW6
CCROW1
CCROWS
MODULE 5
AUXILIARY STORAGE
0 1 2 3 4 5 6 1 8 9 A 8 C 0 E F
AODR:5000
AODRESS:50RC
XAUX'OOOOOOOOOOO:O()OOOOOOOOOOOOOQOOOOO'WORK AREA FOR
XAU)(' OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGO. 25""0
****
XAUX' 003Z0A3Cl",,1t61E502S5AOOOOOOOOOOOO'fI LE TABLE
XAUX'SOOOOSOlOOOl0440506000000COOOOOO'
** . .
XAUX'F900000000000000E900000000000000'2540
XAUX"09000000000000000000000000000000'
XAUX'C9000000000000000000000000000000'REAO
XAUX'000501060201030S0409000000000000'
XAUX' FS001 A1B7C1D1E1fESOOE06B6C606E6F' TRANSLATE
PAGE 230
AGOR
WORD
5090
50AO
,)OBO
50CO
5000
50EO
0800
C800
0003
40Fl
6001
50C 1
0000
6010
6020
6030
6040
6050
6060
b070
6080
6090
bOAO
60BO
60CO
6000
bOEO
60FO
7UOO
fa 10
/020
7J"30
7040
7050
7060
7070
7080
/U90
70AO
70BO
70CO
7000
70E:0
1JFO
407E
7C61
60Dl
50C1
0000
8000
4021
0000
8000
0000
0000
0000
AOS1
6041
3200
2001
4EC 1
7001
7E61
FOF1
4040
4040
4040
4040
0000
7COO
S061
0000
1625
2219
lEOD
OAOI
SEQUENCE NO.
MZZZ 062
MIIZ 063
MHI. 064
MHZ 065
MIll 066
MlZZ 067
MHZ 068
MIll 070
MHZ 071
MIll 012
MIll 078
MZZZ 079
MZZI 080
MHI 081
MZZZ 082
MZZZ 083
MHl 084
MZll 085
MIll 086
MZZl 087
MZll 088
MZZZ 089
MZZZ 090
MlZZ 091
MHZ 098
MZll 100
MHZ 101
MlZl 103
MZZZ 104
MlZl 105
MZll 111
MZll 112
MHZ 113
MHZ 114
MlZZ 115
MZZZ 116
MZll 117
MIZZ 118
MHl 119
MZZZ 120
MZlZ 121
MHZ 122
MlZZ 123
MZZZ 124
MZZZ 125
MIll 126
MZll 127
LABEL
CCROW9
CCROWA
CCROWB
CCROWC
CCROWD
CCROWE
AEND
*
ATABLE
*
COROWO
CDRmll
GDROW2
CDROW.3
COROW4
NEXTSEQ
NEXTlABEl
ClOAO=*E40, EC LEVEl=12S211
COMMENT S
XAUX' D80000SBSC505E5fOO 00000000000000'
XAUX'C800004B4C404E4FOOOOOOOOOOOOOOOO'
XAUX'OO030230013030300030303030303030'
XAUX' 40FlF2f3F4FSF6f7F061E 2E 3E 4E 5E 6E l'
XAUX'60010203D4DSD601DOOOOOOOOOOOOOOO'
XAUX'50C1C2C3C4CSC6C1COOOOOOOOOOOOOOO'
AUXIllAR Y STORAGE
MODULE 6
0 1 2 345 6 7 8 9 ABC D E F
ADDR=6000
ADDRESS=60RC
XAUX'407E4C5E1A6C7D6E5C4D5D7B7F40406F'CONSOLE
XAUX'7C61E2E3E4ESE6E1E8E9006B4F6CEEEO' PRINTER
XAUX'60D1D2D3D405D607D8D96DSB007C7BDO' TRANSLATE
XAUX'SOClC2C3C4C5C6C7C8C94E4BSf4C40CO'PTT/EBCDIC ****
XAUX'00000000000000000000009394959691'Z540 PUNCH
XAUX'800000000000000000000053S45S5657' TRANSLATE
XAUX'402100000000000000000033343S3637' TABLE 1
XAUX'000000000000000OOOO0201314151617'
****
XAUX'800040002000100008C0040002000100'Z540 PUNCH MASK
XAUX'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO'WORKING
XAUX'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO' STORAGE
XAUX'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO'
****
XAUX'A0818283848S86879088000000000000'2540 PUNCH
XAUX'60414243444S4647S048000000000000' TRANSLATE
XAUX'32002223242S26273028000000000000' TABLE 2
XAUX'20010203040506071008000000000000'
****
CORm~s
COROW6
CORma
CGR.Ow8
COROW9
COROWA
CDROWS
CDROWC
CDROWO
CJROWE
COROWf
AENO
*
ATABLE
*
CEROWO
GER.OWl
CEROW2
CEROW3
GEROW4
CEROW5
CEROW6
CEROW7
CEROW8
CEROW9
CEROWA
CEROWB
GEROwC
CEROWD
CEROWE
CEROWF
AEND
STATEMENT
AUX III AR Y STORAGE
MODULE 7
o 1 2 3 4 S 6 7 8 9 ABC o E F
ADOR=7000
AOORESS=70RC
XAUX'4EC1C2C3C4C5C6C7C8C9404S4C404040'1443
XAUX'700102D3040506070809505B5C404040' GRAPHICS
XAUX'7E61ElE3E4ESE6E7E8E9606B6C404040' TABLE
XAUX'FOF1F2f3F4fSf6F7f8F9401B7C404040'
****
XAUX'40404040404040404040404040404040'WORKING
XAUX'40404040404040404040404040404040'STORAGE
XAUX'40404040404040404040404040404040'WORKING
XAUX'40404040404040404040404040404040'STORAGE
XAUX'0000004BC57fC67AOOOOO0484E1F6C7A'CONSOlE PRINTER
XAUX'1COOOOSB7D4f4C4A7COOOOSB704f4C4A'SPECIAL CHAR
XAUX'S061006BE56ESC6050610068SD6E5C60'RE-TRANSLATE
XAUX'OOOOSf06DS5E407EOOOO5F7B605E407E'EBCOIC/PTT ****
XAUX'1625262728292A2B2C20001F30000000'1403
XAUX'22191A1BICIDIE1F2021162374000000' GRAPHICS
XAUX'2EOOOEOFIOll12131415221718000000'
TABLE 2
XAUX'OA0102030405060708091EOBOCOOOOOO'
****
PAGE 231
CONTROL ADDRESS
0
CtOAD=*E40, EC lE VE l=1282 11 ,PAGE 232
00--
DATE 11/08/68
ADDRESS LI Sf
2
4
6
8
A
C
E
-0000-
BCPt 003
8000
BCPL 004
OBAD
BCPL 004
OBAD
BCPL 004
OBAD
BCPL 004
OBAD
BCPL 004
OBAD
BCPL 004
OBAD
BCn 005
80AC
-0000-
-0010-
SCPL 009
3210
sePL 010
2610
BCPL 011
50CF
BCPL 012
5iAF
BCPL 013
2413
BCPL 014
OCCf
SCPL 015
C4AD
BCPL 016
OCDF
-0010-
-0020-
sePL 011
C48F
BCPL 018
OCEf
sePL 019
C4E3
SCPL 020
OCff
sept 021
C4A8
BePL 022
80DE
BCPt 023
2486
BCPl 024
250·7
-0020-
-0030-
sePL 025
2B08
Bept 026
C9B3
BePL 027
4FAF
BCPl 028
2B04
BCPt 029
2944
BCPL 030
C9BA
Bcn 031
2B40
BePl 032
CDBE
-0030-
-0040-
BePL 033
2B23
BePl 034
4fSf
Bept 035
2B42
Bept 036
fDC6
BCPt 031
5FBf
BCPt 038
C4CA
BePl 039
2B48
BCH 040
FDCf
-0040-
-0050-
SCPl 041
EDCE
BCPt 042
5FFf
BCPt 043
fOSS
BCPL 044
1F48
BCPt 045
f05C
BCPl 046
6F48
BCPL 041
0550
BCH 048
C4CC
-0050-
-0060-
BCPl 049
8100
sept 050
2406
SCPt 051
2611
BCPt 052
2183
8CPl 053
3715
BCPl 054
2501
BCPt 055
4066
BCPl 056
5EEF
-0060-
-0010-
SCPt 051
DE6E
BCPt 058
SB3F
BC Pl 059
6348
BePl 060
136A
SCPt 061
FOEE
BePL 062
161B
BCPl 063
FOE 1
BCPt 064
8100
-0010-
008-0080-
SCPL 065
6EE3
BCPt 066
6EE3
BCPt 061
6EE3
BCPt 068
OE08
BCPt 069
OE04
Bept 010
49EF
BCPl 011
4EDF
BCPL 072
4BFF
-0080-
-0090-
BCPL 013
2E63
BCPl 014
3El5
BCPL 015
4FEf
BCPt 016
2E43
BCPl 011
E598
BCPL 018
4EEF
sen 019
4BFf
BCPl 080
3000
-0090-
-OOAO-
BCPL 081
E5Al
BCPt 082
1lJOO
Bept 083
50EF
BCPl 084
CA2,)
Bept 085
CIA9
BCPl 086
S10A
BCPl 081
240E
Bcn 088
2501
-OOAO-
.- 0080-
BCPL 089
2F04
BCPt 090
5FDf
BCPt 091
DAS8
BCPL 092
ED33
BCPL 093
2flO
SCPt 094
DAC6
BCPl 095
CAB9
BCPt 096
58FF
-OOBO-
-ooco-
BCPL 091
5AEf
SCPt 098
4Ef3
BCPt 099
6F48
BePl 100
2B14
BCPt 101
0550
BCPt 102
C4B4
BePl 103
8100
BCPL 104
FFFf
-OOCO-
-0000-
BCPL 104
fFfF
BCPl 104
FfFF
sePL 104
FfFF
BCPL 104
FFFF
BePL 104
FfFF
BCPt 104
FfFF
BePL 105
FFfF
BCPl 106
2B01
-0000-
-OOEO-
BCPl 101
6A02
BCPt 108
2490
sePL 109
2813
BCPL 110
2901
sept III
4A86
SCPl 112
4C02
BCPt 113
2F15
BCPl 114
5FE9
-OOEO-
-OOFO-
BePL 115
2023
BCPl 116
4D9F
BePL 111
8811
sePl 118
54E8
BCPt 119
6488
SCPL 120
FA16
SCPl 121
0608
BePl 122
88FE
-OOFO-
CONTROL ADDRESS
00--
ADORE SS LIST
CONTROL ADDRESS
0
DATE
2
4
6
8
ClOAo=*E40, EC lEVEL=128211
01--
11/08/68
A
C
E
-0100-
I lWM 002
503A
I lWM 003
8309
18CH 110
5759
I BCH I I I
5EB2
18CH 112
9153
IBCH 107
2513
IBCH 108
251B
IBCH 109
8106
-0100-
-0110-
lPTR 005
n08
LPTR 006
90&2
ICOM 006
2A7F
ICOM 007
128E
ICOM 002
OA&l
ICOM 003
E094
ICOM 004
2Afo
ICOM 005
128E
-0110-
-0120-
IIRP 067
22EC
!TRP 068
1FOO
ITRP 069
02EC
MPRT 112
404f
MPRT 113
1000
MPRT 174
76E2
MPRT 115
2785
MPRT 176
2148
-0120-
-0130-
MPRT 171
2613
MPRT 178
2A25
MPRT 179
2ACB
MPRT 181
2E75
MPRT 185
2EAB
MPRT 186
20A 7
MPR T 187
2 Off
MPR T 188
AlBE
-0130-
-0140-
KAAH 014
3210
KAAH 015
3480
KAAH 016
95FE
JTYP 498
32f3
JTYP 499
1828
JTYP 500
81B6
JTYP 501
8158
JTYP 489
5BE2
-0140-
-0150-
JTYP 490
F258
JTYP 491
4EBo
JTYP 492
0147
JTYP 493
6B28
JTYP 494
5EB3
HYP 495
7BE2
JTYP 496
161B
JTYP 497
896C
-0150-
-0160-
LERR 002
3462
lERR 003
C461
lERR 004
ffEC
LERR 005
I f 00
lERR 006
3400
LERR 007
9E72
LERR 008
3400
lERR 009
801C
-0160-
-0170-
. JDTA 003
2240
JoTA 004
C1F7
JOT ADOS
AD46
JOT A 006
AOOE
IERR 032
2A25
I ERR 033
3A13
IERR 034
7AF2
I ERR 035
A044
-0170-
018-OlSo-
JENO 003
2204
JENO 004
F086
JENO 005
9ACA
JENo 006
SFAO
MPRT 148
56E2
MPRT l49
3000
MPRT 150
2002
MPRT 151
1C63
-0180-
-0190-
MPRT 152
3C83
MPRT 153
5032
MPRT 154
1097
MPRT 155
7C62
MPRT 156
3400
MPRT 151
2e05
MPRT 158
5EC2
MPRT 159
CB23
-0190-
-OlAO-
MPRT 160
807C
MPRT 161
05AB
MPRT 162
fOAO
MPRT 163
1523
MPRT 164
fOAO
MPRT 165
8020
MPR T 166
1525
MPR T 168
A5AA
-OlAO-
- 01BO-
lR TR 005
2206
lRTR 006
5ACf
lRTR 007
9146
JTYP 511
0280
JTYP 518
C4Be
JTYP 519
1285
JTYP 529
12f3
JTYP 530
128E
-OlBO-
-Oleo-
IBCH il3
90B8
18CH 114
807C
IBCH 115
90BO
18CH 116
807C
IBCH ll7
90CO
IBCH li8
90BC
IBCH 119
90B4
18CH 120
90AC
-01CO-
-0100-
18CH 121
5E92
I BCH 122
OA46
1BCH 123
lEU
(BCH 124
1E92
IBtH 125
9E72
lERR 036
561\5
IERR 037
lAC 3
IERR 038
A068
-0100-
-OIEO-
ITRP 061
226A
ITRP 062
1FOO
ITRP 063
026A
IRST 109
3480
IRST 110
426f
IRST I I I
IRST 112
2743
IRST 113
4f7F
-OlEO-
3400
IRST 114
5649
IRST US
5659
I RST 116
426F
IRST 111
534C
IRST 118
151B
IRST 119
258B
IRST 120
C4F4
IRST 121
3486
-OlfO-
-OlfOCONTROL ADDRESS
01-
,PAGE 233
OATE
AOORESS LIST
CONTROL ADDRESS
0
2
11108168
CLDAD=*E40, EC tE VEL=1282 11
02--
4
6
8
A
C
E
-0200-
IRST 122
5A60
IRST 123
3400
tRST 124
2105
IRST 125
5769
IRST 126
128E
ICVC 168
2FAO
ICVC 169
20F3
ICYC 110
8C88
-0200-
-0210-
ITR!> 004
3200
ITRP 005
0080
(TRP 006
8224
MPRT 394
5CC2
MPRT 395
2C05
MPRT 396
D91F
MPRT 391
128E
MPRT 398
890A
-0210-
-0220-
I TRP 010
3202
ITRP 011
2080
ITRP 012
51FF
ITRP 013
56EF
HRP 014
e4Ae
URP 015
7812
URP 016
1Ef2
I TRP 017
0210
-0220-
-0230-
lTRP 018
0216
URP 019
0218
ITRP 020
AAOC
KAAN 196
5652
KAAN 191
491F
KAAN 198
A1eC
BOU 015
2810
BOlA 080
F56C
-0230-
-0240-
BDlA 018
2810
BOlA 030
3210
BOlA 048
2400
BOIA 053
F8eB
BOlA 054
81C9
BOfA 056
2810
SOU 051
25F3
BOIA 061
C54F
-0240-
-0250-
BOlA 062
2810
BOIA 066
0553
BOlA 061
2810
'801 A 012
E53C
IREG 006
2A15
IREG 001
2Bf5
IREG 008
7M8
IREG 009
74AA
-0250-
-0260-
IREG 010
2A01
IREG 011
IB65
IREG 012
1222
IREG 013·
7032
IREG OU.
1812
[REG 015
128E
BOlA 083
2810
BOlA 084
9fFC
-0260-
-0270-
JENO 139
2085
JENO 140
3073
JENO 141
5FeO
JENO 142
5fF9
JENO 143
C4F5
J END 144
EB7f
JEND 145
B01e
JENO 146
9E72
-0270-
028-0280-
-0280-
-0290-
-0290-
-02AO-
-02AO-
-02Bo-
-0280-
-02CO-
KENO 011
4026
KENO 018
5224
KENO 019
1 EOO
KENO 020
2C01
KENO 021
4fCF
KENO 022
40eF
KENO 023
3400
KENO 024
5622
-02eO-
-0200-
KENO 025
1625
KENO 026
5812
KENO 027
021E
KENO 028
2C01
KENO 029
80n
HYP 055
5Fff
JTYP 056
OFC9
JTYP 051
f4FC
-0200-
-02Eo-
JTYP 058
9F5E
JTYP 060
2015
JTYP 064
2145
JTVP 065
5208
JIYP 066
5&08
HYP 061
5408
HVP 068
5808
HlP 069
5Aoa
-02EO-
-02Fo-
JTYP 070
5C08
JTYP 011
5En
JTYP 072
CA78
JTVP 013
9F7C
JTYP 085
5E08
JTVP 086
5032
JTYP 081
5C92
JTYP 088
ECtO
-02fO-
CONTROL AODRESS
02--
,PAGE 234
ADDRESS LIST
CONTROL ADDRESS
DATE
11J08/68
CLOAD=*E40, EC LE VEL=128211
03--
0
2
4
6
-0300-
JTYp 089
IF2C
JTYP 090
1040
HYP 091
1C35
JTYP 092
CClA
JTYP 093
7C92
JIYP 094
FAA4
HYP 095
0610
HYP 096
98DA
-0300-
-0310-
JTYP 114
CFC7
JTYP 11.5
DFC7
JTYP Ill.
ElCB
HYP 117
FECE
JTYp U8
92EC
JTYP 136
3C85
HYp 137
7C92
JTYP 138
2C05
-0310-
-0320-
JTYP 139
3400
JTYp 140
8D7C
JTYP 097
FFAF
JTYp 098
8264
JTYP 09Q
0020
JTYP 100
3400
JTYp 101
96AC
HYp 102
CIB2
-0320-
-0330-
JTYP 103
OF02
JIYP 104
5EF2
JTY I' 105
3400
JTYP 106
CFBO
HYP 107
OEll
HYp 108
FOBF
JTYP 109
3E29
JTYp 110
7H2
-0330-
-0340-
JTYP Hi
C lC5
JTYp 112
A044
JTY I' 113
Acee
JTYP 121
FFE5
JTYP 122
890E
HYP 074
DED3
JTYP 075
A40C
HYP 119
9F5E
-0340-
-0350-
JTYP 120
A40C
JTYP 016
5FOA
JTYP 077
CF5A
HlP 078
3F20
JIYP 079
835C
JTYP 080
2F08
JTYP 081
OF20
JTYP 082
3400
-0350-
-0360-
JTVP 083
4F IF
JTYP 084
96AC
JTYP 1.23
C249
JTY I' 124
CIEC
JTYP 125
DFEF
HYP 126
8536
JTYP 128
ACOE
JTYP 127
8376
-0360-
-0370-
JTYP 477
lOCO
JTYP 418
OF02
JTYP 479
0640
JTYp 480
5C92
JTYP 481
3C25
HYP 482
7C92
JTYP 483
16F3
JTYP 484
2C53
-0370-
8
A
C
E
0.38-0380-
JIyp 485
3C15
JTYP 486
4fCf
JTYP 487
OHO
JTY I' 488
A412
IRST 181
01FF
IRST 181
C48A
IRST 181
8800
IRST 181
4E08
-0380-
-0390-
KAAQ 015
2F13
KAAQ 016
15E5
KAAQ 011
1483
KAAQ 018
9EAA
IRST 184
0000
IRsr
184
0000
IRST 184
0000
IRST 184
0000
-0390-
-03AO-
MNNN 004
5E62
MNNN 005
DB27
MNNN 006
807C
MNNN 003
9E72
IRST 181
0000
IRST 187
0000
IRST 187
0000
IRST 187
0000
-03AO-
-03BO-
IREG 002
5EC2
I REG 003
EA37
1 REG 004
7222
IREG 005
128E
IRST 190
2FF7
IRST 190
2flB
IRST 190
C4BC
IRST 190
OF01
-03BO-
-03CO-
BOlA 347
BOlA
3~8
~AC2
BOlA 349
4C02
BOlA 350
4H2
BOlA 351
2A1B
BOlA 352
2elB
BOlA 353
2ElB
BOlA 354
EOF2
-03CO-
C~CO
BOlA 355
6AC2
BOlA 356
6COZ
BOlA 357
6Ef2
BOlA 358
83B8
BOlA 331
4812
BOIA 332
BOlA 333
292B
BOIA 334
68E2
-0300-
3Q35
-03EO-
BOlA 335
2A25
BOlA 336
2BF5
BOIA 337
3B73
BOlA 338
2C25
BOlA 339
2015
BOIA 340
30B3
BOlA 341
2E05
BOlA 342
2Fl3
-03EO-
-03FO-
BOlA .343
8300
BOlA 373
2505
BOlA 374
251B
BOlA 315
F4FO
BOlA 376
C4F4
BOlA 377
5007
BOIA 381
2413
BOlA 382
883C
-03FO-
-0300-
CONTROL AOORESS
03--
,PAGE 235
ADDRESS LIST
ClOAD=*E40, EC LE VEl=lZ8Z 11 ,PAGE 236
04--
DATE U/08/68
0
2
4
6
8
IlWH 004
IIWM 005
8424
IlWM 006
840E
IlW". 007
OOOF
HWM 008
9E72
IlWH 009
3685
IlWM 010
503A
IZWM 011
IlWM 013
5109
I lWM 014
55CO
I ZWM 015
C61E
IZWM 016
65H
IlWM 017
C488
I ZWM 018
8D7C
IlWM 019
6F51
-0410-
5FCO
-0420-
IZWM 020
E089
I ZWM 021
8D7e
IlWM 022
0021
HWM 023
9E12
JCHl 181
5F42
JCHl 182
eF39
JCHL 183
2095
JCHl 184
3063·
-0420-
-0430-
JCHl. 185
5lCO
JCHl. 186
IfFF
JCHL 187
6Fll
JCHl 188
7FCO
JCHl 189
90E4
JCHl 178
fCA8
JCHl 179
2A45
JCHt. 180
9196
-0430-
-0440-
BOlA 122
5001
lADD 160
ODf5
I ADD 161
FOD9
IADD 162
OOAB
IADo 163
FOD5
IADD 164
001B
1A0D 165
FOOL
1A0D 166
1083
-0440-
-0450-
I ADO 167
3085
IADo 168
128E
1A00 169
1DF3
IADo 170
f95C
lADO l11
ED61
IADO 112
FD64
1A0D 173
1010
UDD l14
FD50
-0450-
-0460-
I ADD 175
1030
IADD 116
FD51
IADo 171
3OB5
IADD 118
128E
KAAA 338
3210
KAAA 339
5019
KAAA 340
OE08
KAAA 341
2302
-0460-
-0470-
KAAA 342
2304
KAAA 343
3110
KAAA 344
3029
KAAA 345
4Fof
KAAA 346
430F
KAAA 341
8526
KAAA 348
5FCF
KAAA 349
lCff
-0410-
CONTROL ADORE SS
-0400-
807C
-0410-
Il"'M 012
A
C
E
-0400-
3045
048-0480-
KAAA 350
C4FA
KAAA 351
4FCF
KAAA 352
5FCF
KAAA 353
C4FA
KAAA 354
8512
KAAA355
5BCf
KAAA 356
8528
KAAA 358
5ECF
-0480-
-0490-
KAAA 359
C4FA
KAAA 360
2310
KAAA 361
2390
KAAA 362
2013
KAAA 363
4FOF
KAAA 364
2025
KAAA 365
430F
KAAA 366
3110
-0490-
-04AO-
KAAA 367
851E
KAAA 368
2035
KAAA 369
201B
KAAA 370
4fOF
KAU 371
8516
KAAA 372
5BCF
KAAA 373
2085
KAAA 374
3023
-04AO-
-04BO-
KAAA 375
8528
KAAA 376
3073
KAAA 377
8524
KAAA 318
3114
KAAA 380
85IA
KAAA 381
lOA3
KAAA 382
8524
KAAA 383
1000
-04BO-
-04C0-
KAAA 384
CAFB
KAAA 385
2380
KAAA 386
3114
KAAA 388
a51A
KAAA 389
2045
KAAA 390
30E3
KAAA 391
8524
KAAA 393
1000
-04CO-
-0400-
KAAA 3942390
KAAA 395
3114
KAAA 397
2308
KAAA 398
2015
KAAA 399
30A3
KAAA 400
8524
KAAA 402
1000
KAAA 403
3114
-0400-
-04EO-
KAAA 404
2380
KAAA 405
2308
KAAA 406
2035
KAAA 407
30A3
KAAA 408
8524
KAAA 409
1000
KAAA 410
KAAA 412
2308
-04EO-
3t14-
KAAA 413
2055
KAAA 414
30B3
KAAA 415
8524
KAAA 416
1000
KAAA 417
8506
KAAA 418
2100
KAAA 419
IEOO
KAAA 420
OE08
-04FO:-
-04FOCONTROL ADDRESS
04--
ADORE S S LIST
CONTROL ADDRESS
0
DATE 11/08/68
2
4
6
8
A
CLOAD=*E40. EC LEVEl=1282 lL
05--
C
E
-0500-
KAAA 42L
1210
KAAA 422
A500
KAAA 423
8B58
KAAA 424
2100
KAAA 425
3EOO
KAAA 426
OE08
KAAA 421
1210
KAAA 428
5109
-0500-
-0510-
KAAA 429
81B4
KAAA 430
2308
KAAA 431
2308
KAAA 432
2308
KAAA 433
2308
KAAA 434
2308
KAAA 435
2308
KAAA 436
2308
-0510-
-0520-
KAAA 437
2308
KAAA 438
lZ8E
KAAA 439
2112
KAAA 440
5ECF
KAAA 441
6COI
KAAA 442
C4AF
KAAA 443
84FA
KAAA 444
128E
-0520-
-0530-
lCYC 164
ZF40
ICYC 1&5
30E9
ICYC 166
8C88
JTYP 322
5AEF
JTYP 323
5EB9
JTYP 324
18C5
JTYP 325
C4FB
JTYP 326
CE66
-0530-
-0540-
HVP 327
OBBB
JTYP 328
FOC8
JTYP 329
2BIB
JTYP 330
857A
JTYP 331
OBOO
JTYP 332
FOOO
JTYP333
3BA3
JTYP 334
B57A
-0540-
-0550-
JlYP 335
EOFB
JTYP 336
OBlF
JTVP 337
C4DA
JTYP 338
2SF3
JTYP 339
857A
JTYP 340
OAbO
JTYP 341
OB46
J TVP 342
FOE2
-0550-
-0560-
JTYP 343
859E
JTYP 344
2B8B
JTY P 345
857A
JTYP 346
OBOO
JTYP 347
EOFA
JTYP 348
OBBB
JTVP 349
C4FB
JTYP 350
36F5
-0560-
-0570-
. JTYP 351
5BF9
JTVP 352
OfAB
JTYP 353
FOFE
JTYP 354
IFF3
JTYP 355
857E
JTYP 351
2A65
JTYP 361
5FAO
JTYP 362
D26B
-0570-
058-0580-
JTYP 363
C16B
JTYP 364
OFOO
JTY P 365
C488
JTYP 366
859E
JTYP 361
CE13
JTYP 368
0526
JTVP 369
OF70
JTYP 370
E081
-0580-
-0590-
J1YP 371
85A6
JTYP 372
0527
JTYP 373
OFBB
JTYP 374
F080
JlYP 375
OFCB
JTYP 376
F08D
JTYP 377
85A6
JTVP 318
8710
-0590-
-05AO-
JTYP 319
2F45
JTYP 380
85AA
JTYP 381
2FE7
JTYP 382
OFEF
JTYP 383
C4C1
JTYP 384
5030
JTYP 385
OOFS
JTYP 386
C4B2
-05AO-
-05BO-
JTVP 387
C260
JTYP 388
C23F
JTYP 38 iJ
D03E
JTYP 390
F53F
JTYP 391
3F45
JTYP392
1F38
JTYP 393
85EA
JTYP 394
F542
-0580-
-05Co-
JTYP 395
FI38
JTYP 396
IF45
JTYP 391
858A
JlY P 398
3513
JTYP 399
IF83
JTYP 400
9086
JTYP 401
D254
JTYP 402
Cl02
-05CO-
-0500-
J T'l'P 403
A494
JTYP 404
JTYP 405
C153
JTYP 406
DADE
JTYP 407
5ADF
JTYP 408
OOAB
J TYP 409
FOE 1
JTYP 410
896C
-0500-
HFE
-05EO-
JTYP 411
8710
JTYP 412
8376
JTY P 416
OF6B
JTYP 417
F56A
JTVP 418
Fl24
JTYP 419
151)
JTYP 420
901E
KENO 030
3480
-05EO-
-05fO-
KENO 031
6004
KENO 032
9872
IMPY 010
7222
IMPY 012
2C07
IMPY 013
1020
IMPY 014
4426
IMPY 020
7032
IMPY 022
50lA
-05FO-
CONTROL ADDRESS
05--
, PAGE 231
CONTROL ADDRESS
0
CLOAo=*E40, EC LE VEL=1282 11
06--
DATE 11/08/68
ADORE SS LIST
2
4
6
8
A
C
E
-0600-
IMPY 023
COOS
IMPY 030
8442
I MPY 032
E008
I MPV 033
FoOA
IMPV 034
161S
IMPY 035
50F9
IMPY 036
CC18
IMPY 037
94FC
-0600-
-0610-
I MPY 046
3CS5
I MPY 041
8618
IMPY 048
5030
IMPY 049
8600
IMPY 038
5030
IMPY 039
SODS
IMPY 040
3OB5
IMPY 041
703A
-0610-
-0620-
I MPY 042
eC15
IMPY 043
OFIO
I MPY 044
5FlA
I MPY 045
8£.18
MAAA 120
2A85
MAAA 121
9172
lOVo 071
D270
IOVO 072
3643
-0620-
-0630-
IOVO 073
2F07
[DVo 014
8664
lDVD 064
3645
10VO 065
361.3
10VD 066
DIBO
10VO 067
7030
10VO 068
5226
10VO 069
C220
-0630-
-0640-
IDVo 010
8658
10VO 058
ODED
10VO 059
EOB8
10VO 060
001B
[OV 0 0& 1
FOB8
10VD 062
1085
10VD 063
8638
IDVD 014
16C5
-0640-
-0650-
IOVO 015
16F3
IOVO 016
3042
10VO 022
7032
10VD 024
4426
10VO 025
SOIA
lOVO 026
C05F
10VO 033
8442
IOVD 035
0063
-0650-
-06&0-
10Vo 03&
3683
IDVo 037
50FO
10VD 039
5030
10VO 040
C06S
10VD 047
8442
IOVo 049
5OAO
IoVo 050
C5Fl
10VO 051
3A95
-0660-
-0610-
IOVO 052
7AFF
IoVD 053
DIF1
IOVO 054
4ADD
I OV 0 055
E043
IDVD 056
F035
10VO 057
8636
IOVO 015
16C3
10VO 076
F583
-0610-
068-0680-
IDVD 077
869E
10VO 018
0187
IOVO 019
86FO
10VO 080
0040
10VO 086
5032
IDVO 088
C591
IDVO 089
3000
10VO 090
5444
-0680-
-0690-
lOVD 091
F595
IOVO ,092
2002
lOVO 09.3
4246
[OVD 094
C59A
10VO 095
·8658
10VD 096
0002
10VD 097
8658
IOVD 098
E222
-0690-
-06AO-
10VO 099
86CC
lOVO 105
5032
IOVO 101
1000
10VO 108
0194
10VO 109
F20C
10VO 110
8602
10VD 116
1000
IDVD 111
5030
-06AO-
-06RO-
10 VO 118
30B5
IDVD 119
2A95
10VD 120
50FD
I OV 0 121
7fAF
IoVo 122
40F8
IDVo 123
7F3A
IoVo 124
F5C3
IOVD 125
3042
-0680-
-06CO-
IOVO 126
8688
IOVO 135
5A82
IoVo 136
3B43
10VO 137
7A82
IDVo 139
3623
10VO 140
2833
10vO 141
2BFF
10VO 142
('.03
-06CO-
-0600-
lOVD 143
86A2
IOVD 149
5A32
10VD 151
5OBO
10VO 152
C05B
IOVO 159
8442
IDVo 161
5830
10VO 162
E061
10VD 163
F069
-0600-
-06EO-
10VD 164
0660
IOVO 165
1830
10VO 166
7B3A
IOVo 161
801C
10VO 110
0663
(OVO 111
86EC
10VO 168
1820
10VO 169
86E4
-06EO-
-06F0-
IOVD 112
(SAD
10VO 113
2040
10VO 114
F22S
I OV 0 115
8688
IMAO 010
57AB
IMAD 071
50FB
IMAO 012
UFO
IMAO 073
1FFo
-06FO-
CONTROL ADDRESS
06--
,PAGE 238
DATE
ADORE 55 LI Sf
CJNTROL AoURESS
0
2
4
6
8
ClOAo:*E40, EC LEVEL=128211
01--
11/08/68
A
C
E
-07CO-
I MAO 0"14
6FA3
I MAD 015
D208
IMAO 076
f58a
[MAO 011
2FlO
IMAO 078
lFBo
{MAO 019
4fBB
IMAO 080
3BC5
I MAO 081
128E
-0700-
-0710-
JT'I'P 260
5C82
JTYP 261
3083
JTYP 262
7C82
JTVP 263
128E
INOX 003
1002
INOX 004
COB
INO X 005
57CO
INDX 006
1783
-0710-
-0120-
INOX 001
8726
INOX 008
5079
I NoX 009
17fO
INDX 010
Cf31
{NOX 011
5FD9
INOX 012
Sf CO
INDX 013
IFa3
INOX 014
8732
-0120-
-ono-
I NO X 015
IFfO
INDX 016
5F43
1 NOX 017
SH8
INDX 018
5AEO
INOX 019
5098
INOX 020
0043
[NDX 021
6886
INO X 022
5F98
-0730-
-0740-
INOX 023
8C06
[NOX 024
C04B
I NOX 025
50CO
INOX 026
1083
[NDX 027
8HC
INDX 028
LDfO
tNOX 029
4040
INOX 030
SofB
-0740-
-0750-
I NOX 031
SoBA
[NOX 032
304S
I NoX 033
COSO
INoX 034
SDeo
INoX 035
1083
IN OX 036
875E
INDX 037
lOFO
INoX 038
6f-03
-0750-
-0760-
INoX 039
SDBA
INOX 040
C06B
I NDX 041
3045
INOX 042
5OCO
INoX 043
1083
INOX 044
58BO
INoX 045
5FAB
INO X 046
4Df3
-0760-
-0770-
INoX 047
74H
INOX 048
5B09
INOX 049
3045
INoX 050
C07F
INOX 051
50CO
INOX 052
1083
INOX 053
8780
INOX 054
10FO
-0770-
078-OHO-
INOX 055
77Df
I NOX OSG
0708
INOX 057
2AIo
INoX 058
1745
INOX OS9
54fS
INDX 060
5FEO
INOX 061
64fF
INOX 062
5AF9
-0780-
-0790-
INOX 063
Ef2D
I NoX 064
2007
INOX 065
fflE
INox 066
2oF6
INOX 061
24AO
INDX 068
F49E
INOX 069
lOIB
INox 070
17FD
-0790-
-07A0-
INOX 071
57Fl
INoX 072
6FFF
1 NDX 073
5AEO
INDX 074
6B4B
INDX 075
1645
INDX 076
8C8A
If!lDX 077
'30E9
INDX 078
2440
-07AO-
-07BD-
INDX 079
Ffl7
I NDX 080
879E
KAAA 105
490F
KAAA 106
5662
KAAA 107
7C52
KAAA 108
EEf5
KAAA 109
OEF4
KAAA 110
fAF5
-07BO-
-07CO-
KAAA I I I
CEEO
KAAA 112
8BFO
KAAA 123
E754
KAAA 124
0753
KAAA 125
fOD6
KAAA 126
CF58
KAAA 127
1740
KAAA 12B
0759
-07CO-
- 0700-
KAAA 129
3E23
KAAA 130
8708
KAAA 131
C659
KAAA 132
1145
KAAA 133
1685
KAAA 134
FB"19
KAAA 135
C778
KAAA 136
9F6C
-0700-
-07EO-
KAAQ 019
2F07
KAAQ 020
49FF
KAAQ 021
2fl5
KAAQ 022
8392
KAAA 103
4ECF
KAAA 104
8468
KAAA 097
3480
KAAA 098
f5Ef
-07E0-
-07f0-
KAAA 099
5ECF
KAAA 100
C4E9
KAAA 101
A500
KAAA 102
8390
KAAA 137
1785
KAAA 138
5778
KAAA 139
2E08
KAAA 140
9E48
-07fO-
CONTROL ADDRESS
07--
,PAGE 239
ADDRESS LIST
CONTR()L ADDRESS
0
ClOAO,.*E40. EC lEVEl=128211 ,PAGE 240
08--
DATE tl/08/68
2
%
8
6
A
C
E
-0800-
BOIA 280
4E02
BOIA 281
2ElB
BOlA 282
2flO
BOlA 283
CAOO
BOlA 284
6E02
BOlA 285
8388
BOIA 302
EtA3
BOlA 303
2020
-0800-
-0810-
BOlA 304
E190
BOlA 305
2EC5
BOlA 306
3E43
BOlA 307
2F85
BDIA 30B
3FA3
BOlA 309
6E12
BOlA 310
2EF7
BOlA 311
3F89
-0810-
-0820-
BOIA 312
8802
BOlA 313
0020
BOlA 314
HA5
BOI A 315
D1AC
BOIA 316
0040
BOlA 311
B308
BOlA 318
2040
BO.IA 319
DlAE
-0820-
-0830-
BOIA 320
4E22
BOIA 321
bEl2
BOlA 322
3Ee9
BOlA 323
5EFl
BOlA 324
8802
BOlA 385
6443
BOlA 386
2505
BOlA 387
7543
-0830-
-0840-
BOlA 388
3808
BOlA 389
0500
80lA 390
3800
BOlA 391
OAC6
801A 392
1212
BOlA 393
2800
BOIA 394
C43A
80lA 399
2440
-0840-
-0850-
BOlA 400
88bE
BOlA 401
OE3F
BOIA 402
FE04
BOlA 403
4E80
BOlA 404
bE80
BOlA 405
FAOA
BOIA 406
OE3F
801A 407
EAOE
-0850-
-0860-
BOlA 408
1212
BOlA 409
B8bE
BOlA 410
OF IF
BDIA 411
FEE6
BOlA 412
4E80
BOlA 413
6E80
BOlA 414
02E2
BOIA 415
4E80
-0860-
-0870-
BOlA 41b
3804
SOIA 417
6E80
BOlA 418
CAF4
BDI A 419
3800
BOlA 420
128E
INTP 109
5E82
INTP 110
4A65
lNTP I I I
2F23
-0870-
IDCM 050
-0880-
088INTP 112
9245
10CM 047
A564
IOCM 048
AD08
5007
10CM 049
A570
5007
5007
A556
-0890-
IOCM 039
57F9
IOCM 040
3F23
IOCM 041
8902
JCHl 217
2B42
JCHL 218
F098
JCHl 219
2800
JCHl 220
2B08
JCHl 221
C5A5
-0890-
-OBAO-
JeHL 222
3A79
JCHl 223
9796
JCHl 224
2A95
JCHl 225
OlA3
JCHl 226
302B
.IICHt. 221
5FCO
JCHL 228
CF5b
JCHl 229
4A26
-08AO-
-08Bo-
JCHL 230
2003
JeHl 231
6BOB
JCHL 232
bAeD
JCHL 233
5E22
JCHL 234
7FB9
JCHl 235
7EA9
JCHL 236
F507
JCHl 237
0345
-08BO-
-08Co-
JCHl 238
2AC7
JCHL 239
9796
JCHl 240
5730
JCHL 242
01FB
JCHl 243
C4CF
JCHl 244
571B
JCHL 245
17B5
JCHL 246
7738
-08eo-
-0800-
JCHL 247
2 OFF
JCHL 248
C4C4
JCHL 249
90E2
JCHL 250
90E4
JCHL 20B
2B4B
JCHL 209
AA31
JCHL 210
2095
JCHl 211
EOOE
-0800-
-08EO-
JCHL212
D917
JCHL 213
5F7F
JCHL 214
2848
JeHl 215
71C8
JCHl 216
B80E
MAAA 033
9286
BOlA 269
OlEO
BOlA 270
EIEF
-OBEO-
-OBFO-
BOIA 271
2E81
BOlA 272
2F05
SOl A 273
6El2
BOI A 274
6E22
BOlA 275
3EE9
BOlA 276
2F71
BDIA 277
8802
BOIA 004
AAFA
-08FO-
-0880-
CONTROL ADDRESS
08--
ADORE S S LIST
CONTROL ADDRESS
0
CLOAD=*E40, EC LE VEL=1282 11 ,PAGE 241
09--
DATE 11/08/68
2
4
6
8
A
C
E
-09CO-
IOCM 042
51F9
IOCM 043
5AC2
IOCM 044
0883
IOCM 045
F08A
IOCM 046
9B11
IOCM 051
9813
MAAA 032
9286
JTYP 265
CFA3
-0900-
-0910-
JTVP 266
C114
JTYP 261
924C
JTYP 268
5F30
JTYP 269
OfFB
JTYP 210
C490
JTYP 271
85E4
JTYP 212
E21B
JTYP 213
5224
-0910-
-0920-
JTYP 214
8316
JTYP 215
5AEF
JTYP 216
DAA9
JTYP 217
8948
JTYP 218
1EC5
JTYP 219
OE58
JTYP 280
C4B 8
JTYP 281
C232
-0920-
-0930-
JTYP 282
8316
JTYP 283
2FF3
JTYP 284
lF38
JTYP 285
8316
JTYP 286
8110
JTYP 281
OEAB
JTYP 288
C4C8
JTYP 289
2f45
-0930-
-0940-
JTYP 290
C231
JTYP 291
8110
JTYP 292
CACB
JTYP 293
85AA
JTYP 295
CAC3
JTYP 296
CA4F
JTYP 291
8538
JTYP 298
OA53
-0940-
-0950-
JTYP 299
8538
JJYP 300
OEDB
JTYP 301
FOD8
JTYP 302
fE&O
JTYP 303
2F45
JTYP 304
8710
JTYP 305
C26F
JTYP 306
85AA
-0950-
-0960-
JTYP 301
C269
JTYP 308
2F55
JTYP 309
3FD3
JTYP 310
85AA
JTYP 311
2F15
JTYP 312
3F53
JTYP 313
E213
JTYP 314
4fFf
-0960-
-0970-
'JlYP 315
A416
JTYP 316
CHE
JTYP 311
5226
JTYP 318
8376
MAAA 133
221E
MAAA 134
348&
MAAA 135
2808
MAAA 136
9408
-0910-
098MQQQ 044
A638
lOCM 052
A5FE
IOCM 053
A614
IOCM 054
A640
5001
5007
lOCM 055
83AO
-0980-
5007
-0990-
MQQQ 045
0010
MQQQ 055
A638
lRXF 003
2B55
LRXF 004
1838
LRXF 005
2406
lRXF 001
IBOO
lR XF 008
2A55
lRXF 009
5C88
-0990-
-09AO-
LRXF 010
2873
lRXf 011
6003
lRXF 012
6003
lRXF 013
EOBB
lRXF 014
6BC1
lRXF 015
C4C1
lRXF 016
F231
lR XF 017
2880
-09AO-
-0980-
lRXF 018
2545
LRXF 019
0840
lRXF 020
EOEl
lRXF 021
2F80
lRXF 022
89EO
lRXF 023
6BC1
lRXF 024
C401
lRXF 025
1C 73
-09BO-
-09CO-
lRXF 026
8(KA
lRXF 021
98EA
lRXF 028
8EAO
LRXF 029
3C43
lRXF 030
5085
lRXF 031
3B85
lRXF 032
51AO
lRXF 033
6C15
-09CO-
-09DO-
LRXF 034
5DB3
lRXF 035
C4D6
lRXF 03&
2BC5
LRXF 031
6BC5
lRXF 038
EC5C
LRXF 039
FC20
lRXF 040
55AO
lR XF 041
052C
-0900-
-09EO-
lR XF 042
5030
lRXF 043
0061
lRXF 044
1545
lRXF 045
1538
lRXF 046
21FF
LRXF 047
C49E
LRXF 048
83BO
lRXF 049
0840
-09EO-
-09FO-
LRXF 050
EOC2
LRXF 051
F277
lRXF 052
SA2E
LRXF 053
2A01
lRXF 054
2C45
UHF 055
2025
LRXF 056
2945
lRXF 057
639B
-09FO-
-0980-
CONTROL ADORE SS
09--
DATE
ADORE SS LIST
CONTRDL ADDRESS
0
2
4
6
8
GlOAD=*E40, EC lEVEl:128211
OA--
ll/08/68
A
C
E
-OAOo-
lRXF 058
62AO
lRXF 059
62A9
lRXf 060
292f
LRXF 061
6024
lRXf 062
6198
lRXF 063
60AO
lRXf 064
58C8
lRXf 065
5889
-OAOO-
-OA 10-
lRXf 066
55AO
lRXF 067
3545
lRXF 068
5F30
lRXF 0&9
DFIB
lRXF 070
1545
lRXF 071
1538
lRXF 072
5989
lRXF 013
55AO
-OA10-
-OA20-
lRXf 014
3545
LRXf 015
5FIO
lRXf 076
DF29
lRXF 077
1545
lRXf 078
7518
lRXF 019
LRXF 080
OOOG
lRXF 081
8A8A·
-OA20-
eDoe
-OA30-
JEND 129
2085
JENO 130
5FGO
JEND 131
4FD5
JEND 132
1083
JEND 133
5FCO
JENO 134
ff-3F
JENO 135
8D7C
JEND 136
IF15
-OA30-
-OA40-
JEND 137
1FGO
JEND 138
9E12
I NT I' 116
6FF3
INTI' 117
6FF3
INTI' 118
6FF3
INTI' 119
6FF3
INTI' 120
6FF3
INTI' 121
OA9D
-OA40-
-OA 50-
INTI' 128
f007
INTI' 129
6FE5
I NTP 130
8A5A
I NfP 131
IfFF
INTP 132
6FE7
INTI' 138
7F82
INTI' 140
IF 13
INTI' 141
5FB9
-OA50-
-OA60-
INTI' 142
8E82
JEND 122
C5EB
JEND 123
3189
JEND 124
&151
JENO 125
C4Fl
JENO 126
7222
JENO 127
.3486
JENO 128
A24C
-OA60-
- OA 70-
JENO 114
5552
JENO ll5
(56B
JENO 116
5042
JEND 117
2005
JENO US
5700
JENO 119
3715
JENO 120
7700
JENO 121
8A6A
-0A70-
OA8-OA80-
IERR 002
B159
IERR 003
810A
I ERR 004
8004
IERR 005
9378
MMMM 017
AE80
lXFR 003
3466
LXFR 004
0414
lXfR 005
0719
-OA80-
-OA90-
LXFR 006
E08A
lXFR 001
E40a
lXFR 008
2004
LXFR 009
009A
lXFR 010
CE90
lXFR 011
93F4
lXFR 012
3406
LXFR 013
204.5
-OA90-
-OAAO-
LXFR 014
2115
txFR 015
3183
lXFR 016
5400
lXFR 017
1008
LXFR 018
5111
lXfR 019
flt31
lXFR 020
2035
lXfR 021
2IA5
-OAAO-
-OA80-
lXfR 022
2445
lXfR 023
2525
lXfR 024
251B
lXFR 025
22A3
lXfR 026
2807
lXFR 027
2907
lXFR 028
4A86
lXfR 029
4C86
-OA80-
-OAGO-
lXFR 030
4E86
LXFR 031
2613
lXFR 032
5100
lXFR 033
C148
LXFR 034
6965
lXFR 035
014F
LXFR 036
6865
lXFR 037
-OACO-
-OAOo-
LXFR 038
G065
lXFR 039
f751
lXFR 040
6F65
lXFR 041
C35B
lXFR 042
6865
lXFR 043
035F
lXFR 044
6A65
lXFR 045
E363
-OAOO-
-OAEO-
LXFR 046
6C65
lXFR 047
F367
lXFR 048
6E65
lXFR 049
6663
lXFR 050
0679
lXFR 051
F415
l XFR 052
21AB
lXFR 053
F4f2
-OAEO-
-OAFO-
LXFR 054
2010
lXFR 055
8AC4
lXFR 056
3l9B
lXFR 057
8AC4
lXFR 058
7940
lXFR 059
6444
l XFR 060
7840
lXFR 061
6444
-OAFO-
CONTROL ADDRESS
E153
OA--
,PAGE 242
OATE 11/08/68
ADDRESS LIST
CONTROL ADDRESS
0
2
4
6
8
A
CLOAO=*E40, EC lEVEL=12821l ,PAGE 243
OB--
C
E
-OB CO-
lXfR 062
7040
lXFR 063
6444
lXfR 064
7f40
lXFR 065
6444
lXFR 066
C114
lXFR 067
5899
lXFR 068
5AB9
lXfR 069
5C09
-OBOO-
-DB 10-
lXFR 070
5EF9
LXFR 071
8AF8
lXFR 072
22FF
lXFR 073
C4A7
lXFR 074
F423
lXFR 075
3130
l XFR 076
C020
lXFR 077
20FO
-OB10-
-OB20-
lXFR 078
8AB8
lXFR 079
213F
LXFR 080
8ABR
lXFR 081
148B
lXFR 082
C03E
lXFR 083
F439
l XFR 084
2IlB
lXFR 085
2525
-OB20-
-OB 30-
LXFR 086
3466
lXfR 087
D331
LXfR 08B
3400
LXFR 089
8AB6
lXFR 090
2U7
lXFR 091
2507
lXFR 092
8AB6
LXFR 093
F44A
-OB30-
-OB40-
LXFR 094
5202
LXFR 095
2155
lXFR 096
2907
LXFR 097
2835
LXFR 098
8994
lXfR 099
0040
L XFR 100
C403
lXFR 101
9BEA
-OB40-
-OB50-
lXFR 102
A5AO
LXfR 103
98EA
LXFR 104
3466
LXfR 105
8E8C
KAAN 052
56EO
KAAN 053
3785
KAAN 054
76EO
KAAN 055
8390
-OB50-
-OB 60-
ICYC 225
9CB8
ICYC 22b
A062
5007
ICYC 227
8C50
ICYC 228
Al08
ICYC 229
807C
JTVP 243
E172
-OB60-
5007
JTYP 244
AElE
JTYP 245
5AEf
JTY,P 246
8538
ICYC 235
9nC
MODO 052
2AB5
14000 053
9172
ICYC 237
8100
ICYC 238
840A
-OB70-
-OB70-
OB8- OB 80-
LPSU 004
3462
LPSU 005
C40l
lPSU 006
3402
lPSU 007
2080
lPSU 008
CFC8
lPSU 009
CEC8
LPSU 010
FFC5
LPSU 011
C14F
-OB80-
-OB90-
lPSU 012
C563
lPSU 013
3462
LPSU 014
F419
lPSU 015
3443
lPSU 016
2400
lPSU 018
2815
lPSU 019
2977
lPSU 020
2C35
-OB90-
-OBAO-
lPSU 021
5909
LPSU 022
2Af7
lPSU 023
5AB9
lPSU 024
5280
lPSU 025
1A8A
lPSU 026
72CA
LPSU 027
C826
lPSU 028
5202
-OBAO-
-OB80-
LPSU 029
2C15
lPSU 030
2007
lPSU 031
F26B
LPSU 032
2A65
lPSU 033
3A43
lPSU 034
b3AB
lPSU 035
6200
lPSU 036
2BF5
-OBBO-
-06CO-
LPSU 037
7B38
lPSU 038
9488
lPSU 039
5EC2
lPSU 040
CEOE
lPSU 041
3AA9
lPSU 042
0080
lPSU 043
8EBA
lPSU 044
0080
-08CO-
-0600-
lPSU 045
3462
lPSU 046
.3415
lPSU 047
3400
lPSU 048
2435
LPSU 049
2513
lPSU 050
2015
lPSU 051
21E1
lPSU 052
3178
-OBOO-
-OB EO-
lPSU 053
8ABE>
lPSU 054
3462
lPSU 055
1443
lPSU 05&
2F40
lPSU 057
8B98
lPSU 058
2B95
lPSU 059
2Al3
lPSU 060
9B5C
-OBEO-
-OBFO-
KBBG 027
2C45
KBBG 028
4ECF
KBBG 029
2C15
KBBG 030
4BCF
KBBG 031
2C07
KBBG 032
4ECF
KBBG 033
4BCF
KBBG 034
128E
-OBFO-
CONTROL ADDRESS
OB--
ADDRESS LIST
CONTROL ADORESS
OATE 11/08/68
0
2
4
6
8
-oeoo-
Ieye 124
8718
ICYC 125
8118
ICye 126
8118
ICYC 121
5198
ICYC 128
0721
ICYC 129
5F19
ICYC 130
5F29
ICYC 131
2345
-OCOO-
-OCID-
ICye 132
C640
ICYC 133
1685
ICYC 134
8e44
ICye 135
ColD
ICYC 136
3025
ICYC 137
8C32
ICye 138
3615
ICYC 139
8C32
-oe10-
-OC2D-
ICYC 140
5fFO
ICYC 141
5FEO
Ieye 142
6BfB
leye 149
6ACO
Icye 151
fBl1
ICYC 152
0617
ICYC 153
C733
ICYC 154
071B
-OC2D-
-Oe3D-
IC YC 155
F096
ICYC 156
57FD
ICYC 157
8719
ICYC 197
5019
ICYC 198
2245
ICYC 199
2345
Icye 200
C645
leyc 201
3683
-000-
-OC4(}-,
ICYC 202
3625
ICYC 203
4026
ICye 204
3615
ICYC 205
5886
ICYC 206
862B
ISWM 012
1045
I SWM 013
1845
I SWM 014
8C5A
-OC40-
-OC50-
ISWM 004
5010
ISWM 005
5B30
I SWM 006
FHA
ISWM 001
3045
ISWM 008
3B45
ISWM 009
70lA
I SWM 010
783A
I SWM 011
807C
-OC50-
-OC60-
ICYC 239
ge9C
ICYC 240
ADA6
ICYC 241
ADA6
ICYC 242
9B1C
ICYC 243
8C50
Ieye 244
9578
IC YC 245
A26E
-OC60-
5007
IC YC 246
9104
ICYC 247
9702
ICye 248
85F4
Icye 249
864E
ICYC 250
A2D4
ICYC 251
A204
ICYC 282
AE6C
IC YC 283
AbEC
-0C70-
-OC70-
A
ClOAD=*E40, EC lEVEl=128211 ,PAGE 244
OC--
C
E
OC8- OC 8(}-,
ICYC 158
8ceE
ICYC 163
8530
ICYC 167
820A
ICYC 111
2007
ICYC 172
6BfB
ICYC 173
6AOD
ICYC 114
5098
ICYC 175
C61B
-OC80-
- OC 9(}-,
ICYC 176
40A6
ICYC 117
0030
ICYC 178
3685
I CYC 119
1655
ICYC 180
80AC
ICYC 186
421\6
IC YC 187
1685
ICYC 188
002C
-OC90-
-OCAO-
IC YC 189
0553
ICYC 190
C440
ICYC 191
5079
ICYC 192
5098
ICYC 193
0025
ICYC 194
3623
ICYC 195
5886
IC YC 196
862B
-OCA(}-,
-OCB(}-,
ICYC 181
30B
ICYC 182
C520
ICYC 183
4206
ICYC 184
1615
ICYC 185
8CAC
KAAQ 013
2F83
KAAQ 014
9EAA
5007
IERR 006
81DA
I ERR 007
A062
5001
I ERR 008
810A
IERR 009
936C
IERR 010
807C
ICYC 159
2FED
-OCCO-
5007
-OCOO-
ICYC 160
20E3
ICYC 1.61
2020
ICYC 162
8C88
IERR 016
934C
JTYP 241
4EDO
JTYP 242
AE2A
IERR 018
810A
IERR 019
810A
-OCOO-
-OCEO-
IeyC 284
807C
ICYC 281
457C
ICYC 288
999C
ICYC 289
999C
ICYC 290
A57C
Icye 291
A51C
ICYC 292
999C
IC YC 293
999C
-OCEO-
-OCf(}-,
ICYC 294
801C
ICYC 295
AE40
ICYC 307
A874
5001
ICYC 308
3613
ICye309
91CA
ICYC 310
91CC
5007
-OCC(}-'
CONTROL ADORE SS
-OCBO-
-OCFOOC--
ADDRESS LIST
CONTROL ADDRESS
a
ClOAO=*E40. EC lEVEl=128211 ,PAGE 245
aD--
DATE 11/08/68
2
4
&
8
A
C
E
-0000-
IC VC 211
B167
ICYC 212
Bl09
ICVC 213
B179
ICYC 214
010B
ICYC 215
914E
(Cye 216
A06e
MBBB· 075
2B08
MBBB 076
021E
-0000-
-0010-
MBSS 077
3400
MSBB 078
2e05
MSBS 079
SbF2
MBSS ()80
0210
MBBB 081
C610
MBSB 082
807C
MBBS 083
5032
MSSS OB4
9E72
-0010-
-0020-
ICYC 201
850S
lCye 208
8515
ICYC 209
8515
ICYC 210
8515
MKKK 066
5En
MKKK 061
EB5e
MKKK 068
26A3
MKKK 069
AE80
-0020-
-0030-
MKKK 08b
0939
MKKK 087
5E62
MKKK 088
3F43
MKKK 089
1E62
MKKK 090
800C
MKKK 095
5E62
MKKK 096
1F43
MKKK 091
CC44
-0030-
-0040-
MKKK 098
ES45
MKKK 099
LEoS
MKKK 100
f948
MKKK 101
3E25
MKKK 102
7E62
MKKK 103
E956
MKKK 104
2S08
MKKK 105
021E
-0040-
-0050-
MKKK 106
26A3
MKKK 101
9f4e
MKKK 091
093B
MKKK 092
2B08
MKKK 093
021E
MKKK 094
8flA
MKKK 070
4F4F
MKKK 011
2B42
-0050-
-0060-
MKKK 072
FOEO
MKKK 073
5fOf
MKKK 014
f055
MKKK ()15
2F05
MKKK ()76
7En
MKKK 077
5E62
MKKK 018
E940
MKKK 019
C931
-0060-
-0010- ·MKKK 080
1f13
MKKK 081
3F43
MKKK 082
1E62
MKKK 083
2B48
MKKK 084
021E
MKKK 085
AC4A
ICYC 031
2F43
ICYC 038
4FFF
-0010-
008-0080-
ICYC 039
FlE2
ICYC 041
5F98
ICYC 041
2E25
ICVC 049
Of61
ICye 050
16C5
Icve 051
16fl
ICYC 052
3f45
IC VC 053
CH7
-0080-
-0090-
ICVC 054
F094
lCVC 055
2Ff7
lCVC 056
3F85
ICYC 057
55EO
Icve 058
5098
ICYC 059
0021
ICYC 060
3613
ICye 061
8CAC
-0090-
-OOAo-
Icve 069
052A
ICye 070
4206
Ieye 011
1b15
ICVC 012
Eb2A
ICYC 073
3615
ICYC 014
1625
ICYC 075
50f 1
ICVC 016
C045
-OOAO-
-ooso-
tcve 071
001B
leyc 018
FOC7
ICYC 019
C664
I cye 080
0040
ICYC 081
C4C2
ICVC 082
05S8
ICYC 083
C4C2
ICYC 084
5886
-OOSO-
-ODCO-
ICVC 085
9El2
ICYC 109
3645
ICVC 110
6Fff
ICYC Hi
5AEO
ICVC 112
5F98
ICYC 113
OF4F
ICVC 114
8C36
ICYC 115
CF5f
-OOCO-
-0000-
levc 116
OFA8
Icve 111
FOOO
Icve 118
OF40
ICYC 119
C40E
ICVC 120
3645
ICVC 121
8C06
ICYC 121
8118
IC YC 122
8f09
-0000-
-OOEO-
ICVC 061
8118
IC YC 036
9682
ICye 086
5559
ICVC 081
FOC2
ICYC 088
ODCS
{CVC 089
FOCl
ICye 090
ED42
I CYC 091
5551
-OOEO-
-OOFo-
ICVC 098
3525
ICye 100
35C3
ICVC 102
5049
ICYC 103
3635
ICYC 104
5198
ICYC 105
5109
IC YC 106
5198
ICYC 107
5098
-OOFO-
CONTROL AODRESS
OD--
ADDRESS UST
CONTROL ADDRESS
-OEOO-
0
DATE 11/08/68
2
B
6
4
A
C lOAD=*E 40, EC lEVEl=128211
OE--
C
E
IOC 108
8e92
MLll 047
51"01"
MlLL 048
MLll 049
F090
MUL 050
CCOE
I'1UL 051
1523
MUl 052
1"094
MUL 053
800e
-OEOO-
00B8
-0£10-
MLLl. 060
280.2
MlLl 061
BOlO
MLll 054
2B08
MlLl 055
3400
MUl 056
2C05
I'1Lll 057
5032
MUl 058
56F2
MlLl 059
B004
-OEIO-
-OE2D-
INT? 171
6AA3
INT? 172
6AA3
INT? 173
6AA3
INT? 1 H64*3
INTP 115
6AA3
INT? 176
6AA3
INT? 177
6AA3
INTP 178
oA45
-OE20-
-OE30-
I NTP 179
6AF7
INT? 180
C403
INT? 194
OE73
INT? 195
FA3e
INT? 196
3BC5
INT? 197
8E7E
INT? 198
2ElD
INTP 199
EE39
-0E30-
-OE40-
INTP 200
3E43
INTP 201
8E14
INTP 202
FE4A
INTP 203
6FA5
INTP 204
8E4E
INTP 205
lAfF
INTP 206
6FA7
INTP 207
7FC 0
-OE40-
-OE50-
INTP 20B
BE38
INTP 209
FA7B
I NTP 2L0
OEOo
INT? 211
C4B7
INT? 212
DE60
INT? 213
3885
INTP 214
1845
INT? 215
8E7E
-OE50-
-OE60-
INT? 216
OED9
INT? 217
f4DB
I NT? 218
18C5
INT? 219
EE6F
INTP 220
INT? 221
EO FE
INTP 222
BE40
INT? 223
3845
-OE6D-
lE4B
INTP 224
8E7E
I NTP 167
2E07
INTP 16B
5FCO
INTP 169
2A13
(NTP 170
9220
INTP 225
OB49
INTP 226
F408
INT? 227
5CE2
-0E70-
-OE70-
OEB-OEBO-
INTP 22S
78CO
I NTP 229
5EF2
INTP 230
5EA9
I NT P 231
0640
INTP 232
7AF2
INTP 233
A412
lRDR 002
2840
lROR 003
2008
-OESO-
-OE90-
LROR 004
1445
lRO.R 005
3406
lRoR 006
5A82
lROR 007
lA85
lROR 008
F99F
lROR 009
3000
LRoR 010
3A85
lROR 011
7A82
-OE90-
-O.EAO-
lRoR 012
5.A92
lROR 013
FOBl
lROR 014
C981
lROR 015
1A43
lROR 016
7A92
lROR 017
340,0,
lROR DIB
1593
lROR 019
A5AO
-DEAO-
....,DEBD-
LROR 020
3A't3
lROR 0,21
50C2
lROR 022
C02B
lROR 023
1583
lROR 024
3AC9
lROR 025
5A89
lRDR 026
7AF2
lROR 027
AC8C
-OEBO·-
I RST 175
0000
IRsr
176
QODO
KAAN 081
21"0,7
KAAN 082
5AEF
KAAN 083
OE55
KAAN 084
ED03
-DECD-
-OECQ-
-OEOD.-
KAAND85
3F25
KAAN 086
OEB5
KAAN 087
ED09
KAAN 088
3F1.3
KAAN DB9
DEB
KAAN 0,90
FOEB
KAAN 0,91
3F23
.UAN 092
FE66
....,DEDO-
-QEEO-
KAAN 0,93
31"27
KAAN 0,94
05E6
KAAN 0,95
3F13
KAAN 0,96
5EEF
KAAN 0,97
9E98
KAAN o,9B
EASE
KAAN 104
3Eo,O
KAAN IDS
1210,
-OEEO-
-OHD-
KAAN 10,6
2725
KAAN 101
4071"
KAAN 108
KAAN 10,9
4B7F
KAAN 110
0,340
KAAN HI
37{).3
KAAN ll2
o,E04
KAAN 113
2E08
-OEFo,-
CONTROL AO.ORESS
2715
OE--
,PAGE 246
ADORE SS Ll Sf
DATE 11108/68
0
2
4
6
-OFOO-
KAAN 114
4F1F
KAAN 115
3000
KAAN 116
3443
KAAN 117
3490
KAAN 118
2801
KAAN 119
2943
KAAN 120
5A32
KAAN 121
2888
-OFOO-
-OF 10-
KAAN 122
8HO
MSSS 043
1645
MA8S 044
3685
M88B 045
1633
MBBS 046
3623
MBBB 047
5AE2
MBBB 048
8978
80IA 423
EE9E
-OHO-
-OF 20-
BOlA 424
1212
BOlA 425
5EFF
BOlA 426
C4A4
BOI A 427
2800
BOlA 428
2020
SOIA 434
9876
KBBB 056
1485
KBBB 057
2703
-OF20-
-OF 30-
KBBB 058
F437
K8BB 059
3765
KBBB 060
E071
KBBB 061
3725
KBBB 062
3445
KBBB 063
8F7A
KBBB 023
1485
KBBB 024
2753
-0F30-
-OF4G-
KBBB 025
FS44
KBBB 026
2118
KBBB 027
E538
KBBB 028
2110
KBSB 029
278B
KBBB 030
4F7F
KBflS 031
3000
KB8B 032
3490
-OF40-
-OF 50-
KBBB 033
2807
KBBB 034
2915
KBBB 035
5A32
KBBB 036
3480
KBBB a37
F56A
KBBB 038
3490
K8BB 039
6CA4
KBBB 040
50C9
-OF 50-
-OF6G-
KBBB 041
60B1
KBBB 042
C4E9
KBB8 043
5C09
KBBB 044
8F60
KBBB 048
9800
KBBB 045
5224
KBB8 046
2F07
KBSB 047
9E06
-OF60-
-OF 7G-
KBBB 064
5A42
KBBB 065
2B6B
KBBB 066
F4F8
KBBB 061
2A1B
K8B8 068
42A6
KBBB 069
4F7F
KBBB 010
3000
KBBB 071
A8BC
-OF70-
CUN TROL ADDRESS
8
A
CLOAO=*E40, EC LE VEL:128211 ,PAGE 247
OF--
C
E
OF8-OF 80-
JEND 043
6223
JEND 044
6223
JENO 045
6223
JENO 046
5249
JEND 047
6237
JENO 048
C494
JENO 049
6345
JEND 050
7300
-OFBO-
-OF90-
JENO 051
3515
JENO 052
15CO
JENO 053
5C62
JENO 054
lCE5
JENO 055
6CEl
JEND 056
C49F
JEND 051
8FE6
JEND 058
A94C
-OF90-
-OFAO-
JENO 008
2840
JENO 009
CDAB
JENO 010
00A3
JENO 011
2800
JENO 012
0204
JEND 013
2800
JENO 014
5FEF
JEND 015
2802
-OFAO-
-OFBO-
JEND 016
FOBO
JEND 011
5FFF
JEND 018
2608
JEND 019
2C07
JENO 020
2085
JEND 021
57CO
JENO 022
5731
JEND 023
63El
-OFBO-
-OFCO-
JENO 024
E094
JEND 025
2078
JENO 026
55CO
JENO 027
5559
JENO 028
C494
JENO 029
7FCO
JENO 030
F814
JEND 031
4705
-OFCO-
-OFOO-
JENO 032
1083
JENO 033
55CO
JENO 034
C110
JENO 0.35
2001
JENO 036
2195
JEND 037
JEND 038
5300
JENO 039
2215
-OFDO-
3163
-OFEO-
JEND 040
0764
JENO 041
5221
JENO 042
871F
JEND 147
5C72
JENO 148
6CEl
JEND 149
C4F4
JENO 150
5C82
JEND 151
lC85
-OFEO-
-OFFO-
JENO 152
7C82
JEND 153
A91A
JENO 154
6DEl
JEND 155
C4F2
JENO 156
5C82
JENO 157
lC13
JEND 158
8HO
5001
CONTROL ADDRESS
-
-OHOOF--
ADORESS U 5T
CONTi{Ol ADDRESS
ClOAO=*E40. EC lEVEl=128211 ,PAGE 248
10--
DATE llJ08/68
0
2
4
6
8
-IOOO:-
I MP't 104
70FF
IMPY 105
7 OFF
I MPY 106
70FF
IMPY 101
70FF
IMPY 108
70FF
IMPY 109
70FF
IMPY 110
9016
IMPY HI
CAlC
-1000:'"
-1010-
IMPV' 112
lE83
IMPY 113
7 OFF
I MPY 114
9000
IMPY 115
CAlC
IMPY 116
10FF
IMPY 117
9010
IMPY 118
SCAD
IMPY 119
10AF
-1010-
-1020:'"
IMPY 120
40C5
IMPY 121
5850
IMPY 122
EUA
IMPY 123
2002
IMPY 124
0020
IMPY 125
5000
IMPY 126
58AO
IMPY 127
10AF
-1020-
-1030-
[MPY 128
EOB5
IMPY 129
2020
IMPY 130
40BO
IMPY 131
5709
IMPY 132
1B5A
IMPY 133
OE44
IMPY 134
9526
IMPY 167
2C01
-1030-
-1040:'"
IMPY [69
2607
IMPY .170
S07C
IMPY 136
0002
IMPY 137
5B50
IMPY 138
ElCE
IMPY 139
2002
IMPY 140
0020
IMPY 141
5BAO
-1040-
-'1050-
IMP" 142
5COO
IMPY 143
70AF
IMPY 14-4
40BO
IMPY 145
185A
IMPY 156
OC3f
IMPY 157
5422
IMPY 158
5446
IMPY 159
7422
-1050-'
-1060-
lMPY 161
9508
lPTR 008
FAEC
lPTR 009
58fF
lPTR 010
5ACF
lPTR 011
A213
lPTR 012
9074
LPTR 049
3485
LPTR 050
IF80
-1060-
-1010'-
lPTR 051
2635
lPTR 052
266B
lPTR 053
2215
lPTR 054
2307
lPTR 055
5F2C
lPTR 056
0208
MJJJ 003
8205
5007
A
t
E
-1070-
108-
-1080-'
IBCH 088
8160
IBCH 090
909C
18tH 091
8A30
tBCH 092
8270
18CH 093
807C
18CH 094
810C
18CH 095
807t
I6CH 096
8900
-1080-
-1090-
18CH 091
90BC
IBCH 098
57F9
I BCH 099
3f63
IBCH 100
8902
18CH 061
C722
18CH 062
8890
IBCH 063
2095
IBCH 064
3043
-1090-
-lOAO-
tBCH 065
52CO
IBCH 066
807C
IBCH 067
Cf22
I BCH 068
9E72
IBCH 069
OF22
18CH 070
9E72
18CH 071
Ef22
IBCH 072
9E72
-10AO-
-lOBO-'
IBCH 073
FF22
IBCH 014
9E72
IBCH 075
C822
I BCH 076
9E72
IBCH 077
OB22
IBCH 078
9E72
18CH 079
EB22
IBCH OBO
9E72
-10BO-
-IOCO-
IBCH 081
FB22
IBCH 082
9E72
I BCH 083
C748
18CH 084
B311
IBCH 101
07C8
IBCH 102
FOBS
IBCH 103
0705
IBCH 104
F08C
-10CO-
-1000-
1BCH 105
5EF9
IBCH 106
90CO
JODE 007
20E5
JOOE 008
3lf5
JOOE 009
2793
JODE 010
3105
JOOE 011
2040
JODE 012
937E
-1000-
-10EO-
IBCH 043
8100
I BCH 044
CE7E
Y8CH 045
9E72
IBCH 046
OE7E
IBCH 047
9E72
IBCH 048
EE7E
IBCH 049
9E72
-lOEO-
5007
IBCH 050
fE7E
IBCH 051
9E72
[BCH 052
CA7E
18CH 053
9E72
l8CH 054
DAlE
18CH 055
9E72
IBC H 056
EA1B
lBCH 057
807C
-10FO-
-101=0CONTROL ADDRESS
10--
ADDRESS LIST
CONTROL ADDRESS
0
ClOAO=*E40, EC LEVEl=128211
11--
DATE U/08/68
2
4
6
8
A
C
E
-1100-
lRTR 013
5fOO
lRTR 014
7008
lRTR 015
C08E
lRTR 01!»
2010
lRTR 017
7000
lRTR 018
30FB
lRTR 019
3465
lRTR 020
6CFl
-1100-
-1110-
LRTR 021
C4A3
lRTR 022
COA3
lRTR 023
3BOO
lRTR 024
2Et5
LRTR 025
51FO
lRTR 026
3FF5
lRTR 027
50EO
lRTR 028
60C5
-1110-
-1l20-
lRTR 029
70EO
lRTR 030
lRTR 031
C4B8
lRTR 032
COC5
lRTR 033
1400
LRTR 034
1465
lR TR 035
0206
lR TR 036
580F
-1120-
2118
-1130-
lRTR 037
3445
lRTR 038
30C9
lRTR 039
2lA5
lRTR 040
2145
LRTR 041
FOC4
lRTR 042
3163
lRTR 043
07A 1
LRTR 044
C4C4
-1130-
-1140-
LRTR 045
COC5
lRTR 046
0004
lRfR 047
0206
LRTR 009
EAAE
LRTR 010
5BOF
LRTR 011
A303
lRTR 012
0206
I SAB 039
0060
-1140-
-1150-
I SAB 040
4426
I SAB 041
A304
ISAB 042
CE5C
ISAB 043
AAA6
ISAB 031
2BE5
ISAB 038
AAAA
I SAB 044
OE59
I SAB 0~5
AA88
-1150-
-1160-
LPXF 021
20AB
LPXF 022
20AB
LPXF 023
20AB
lPXF 024
20AB
LPXF 025
20AB
lP Xf 026
20AB
lPXF 021
941'.
LPXF 028
9480
-1160-
-1170-
. MAAA 090
2A95
MAAA 091
2B05
MAAA 092
021E
MAAA 093
5EA2
MAAA 094
56F9
MAAA 095
1EA2
MAAA 096
2C05
MAAA 091
811C
-1170-
118-1180-
LPTR 013
5f2C
lPTR 014C601
lPTR 015
0638
lPTR 01!»
HBB
LPTR 017
DOOC
lPTR 018
OF9D
LPTR 019
2380
LP TR 020
3318
-1180-
-1190-
LPTR 021
5020
lPTR 022
1f20
LPTR 023
H7f
LPTR 024
5F20
LPTR 025
6Df7
LPTR 026
7020
LPTR 021
2235
LPTR 028
5f20
-1190-
-llAO-
LPTR 029
6CH
lPTR 030
C485
LPTR 031
CAM
LPTR 032
3f40
lPTR 033
2E55
LPTR 034
56fO
LP TR 035
3ff5
LPTR 036
5DEO
-1 lAO-
-l1BO-
LPTR 031
60C5
LPTR 038
70EO
LPTR 039
2215
LPTR 040
23CB
lPTR 041
261B
LPTR 042
C4C2
lPTR 043
0080
lPTR 044
1495
-11BO-
-l1CO-
lPTR 045
0208
LPTR 046
FOC6
LPTR 047
2668
lPTR 048
0208
IOCM 011
8015
IOCM 002
f659
IOCM 003
5109
IOCM 004
0054
-11CO-
-1100-
IOCM 005
5009
lOCM 006
0049
IOCM 007
2A35
IOCM 008
8l7A
IOCM 009
2A53
IOCM 010
811C
IERR 030
2A13
IERR 031
A068
-1100-
-llEO-
JTPE 053
6003
JTPE 054
6003
JTPE 055
·6003
JTPE 056
5EC2
JTPE 057
9462
MPRT 413
1E45.
MPR T 414
91fC
MPR T 411
OE6B
-1 lEO-
-llfO-
MPRT 412
807C
MPRT 404
1080
MPRT 405
07C8
MPRT 406
fOEE
MPRT 401
EE70
MPRT 408
1E25
MPRT 409
1E62
MPRT 410
i TROI. ADDRESS
i6F3
2E05
12--
ADDRESS LIST
CONTROL ADDRESS
0
ClOAO=*E40. EC LE VEl=128211
13--
OATE 11/08/08
2
4
6
8
A
C
£
-1300-
I BCH 024
9098
IBCH 025
90A8
I BCH 026
90BO
IBtH 027
90AC
IBCH 028
90A4
IBCH 029
8104
IBCH 0.30
8104
IBCH 031
8104
-1.300-
-1310-
lBCH 032
8104
IBCH 0.3.3
OBH
18CH 034
807C
18CH 035
8D7t
IBCH 036
80n
IBCH 037
807C
IBCH 038
810A
18CH 039
8D7C
-1310-
-1320-
18CH 040
6003
18CH 041FD1f
IBCH 042
8911
18CH 058
IF43
IBCH 059
7E82
IBCH 060
9E72
KAAA 091
2E07
KAAA 092
F332
-1.320-
-1.330-
KAAA 093
3H5
KAAA 094
f236
KAAA 095
3E43
KAAA 096
87EC
KAAA 088
EA2C
KAAr. 089
2EU
KAAA 090
932E
5007
-1340-
18CH 015
9320
18CH 016
90t4
IBtH 017
8307
18CH 018
on8
18CH 019
FOE6
IBCH 020
8900
IBCH 002
0250
18CH 003
9£12
-1340-
-1350-
I BCH 004
CM]
IBCH 005
00F9
18tH 006
H08
18CH 007
81DA
IBtH 008
5F3A
18tH 009
6Fll
IBCH 010
OF45
IBCH 011
C4CF
-1350-
-1360-
IBCH 012
807C
16CH 013
5E82
l8CH 014
8147
IBCH 021
07C8
IBCH 022
FOEO
18CH 023
8900
lERR 061
F676
lERR 061
910C
-1360-
-1310-
IERR 051
2A23
IERR 052
AOb8
IERR 039
E671
IERR 041
8000
IERR 053
E61l
tERR 054
BOOb
JTPE 002
10EE
JTPE 003
01H
-1310-
-1330-
138-1380-
JTPE 004
F4B9
JTPE 005
2A53
JfPE 006
7AF2
JfPE 007
A044
JTPE 018
0191
JTPE 019
F483
JTPE 020
8258
JTPE 021
5EC2
-1380-
-1390-
JTPE 022
16F5
JTPE 023
20E5
JTPE 024
El54
JTPE 025
07CO
JTPE 026
EOE3
JTPE 027
0700
JTPE 028
EOA9
JTPE 029
204B
-1.390-
-13AO-
JTPE 0.30
6011
JTPE 031
C40E
JTPE 032
25F3
JTPE 0.3.3
9382
JTPE 04-3
0746
JTPE 044
F08D
JTPE 045
0796
JTPE 046
FODE
-13AO-
-i380-
JTPE 047
2573
JJPE 04-8
51E9
JTPE 049
2015
JTPE 050
OA3A
JTPE 051
5001
JTPE 052
BA73
JTPE 06435E9
JTPE 065
36C5
-13BO-
-l3Co-
JJPE 066
9462
JTPE 061
159B
JTPE 062
2020
JTPE 063
9462
JTPE 058
259B
JTPE 059
3625
JTPE 060
9462
JTPE 015
079B
-13CO-
-1300-
JTPE 016
FOOE
JTPE 017
941A
JTPE 008
0700
JTPE 009
EOCF
JTPE 010
2066
JTPE 011
6071
J TPE 012
C403
JTPE 013
2A95
-1300-
-13EO:-
JTPE 014
93B4
JTPE 034
OHB
JTPE 035
Foe9
JTPE 036
012B
JTPE 037
FOC3
JTPE 038
0758
JTPE 039
FOoE
JTPE 040
3F25
-13EO-
-13FO-
JTPE 041
7EC2
JTPE 042
807C
lRDR 028
0004
lROR 029
1800
LRoR 030
3406
lROR 031
98EA
lRoR 032
3A69
lROR 033
8E8A
-13FO-
CONTROL ADDRESS
13--
t
PAGE 251
ADDRESS LIST
CONTROL ADDRESS
0
DATE 11/08/68
2
4
6
·8
A
ClOAD=*EItO, Ee lfVEl=128211 ,PAGE 252
14--
e
E
.., 1400-
JOOE 050
3545
JOOE 051
fD09
JODE 052
FE09
JODE 053
3585
JODE 054
5802
JODE 055
24e5
JODE 056
2815
JODE 057
0812
-HOD-
:-1410-
JOOE 058
5881
JaDE 059
8855
JOOE 0.41
0020
JODE tl48
3F25
JODE 049
943C
J(JOE 002
F758
JOOE 003
36C 5
JOOE 004
EF25
-1410-
-11t20""
JODE 005
2513
JODE 006
9428
JODE 020
2515
JODE 021
3573
JODE 022
2085
JODE 023
4100
JOOE 024
5FE9
JOOE 025
5FeO
-1420-
-1430-
JOOE 026
5019
JODE 021
1042
JODE 028
E195
JOOE 029
Ef3C
JOOE 030
2020
JODE 031
IF25
JOOE 032
7FCO
JODE 033
IDF3
-1430-
,....1440-
JQDE 034
16B
JODE 035
IF35
JOOE 036
57CO
JODE 037
5032
JOOE 038
OFCO
JODE 039
E081
JODE 040
3645
JODE 041
5f4B
-1440-
-1450-
JOOE 042
E057
JOOE 043
2580
JOOE 044
3435
JODE 045
3425
JODE 046
nCE
JODE 013
2080
JODE 014
3843
JODE 015
72AO
-1450-
-1460-
JODE 016
2523
JaOE 017
IF25
JODE 018
7EC2
JODE 019
9428
MPRT 399
5EEF
"PRT 400
OE93
MPRT 401
FOF 1
MPRT 402
954C
-1460-
-1470-
MPRT 403
A650
lPXf 029
2010
lPXF 030
20EB
lPXF 031
58CO
lPXF 032
6BH
lPXF 033
78CO
lPXF 034
5805
-1470-
5001
148-1480-
LPXf 035
C504
LPXF 036
6141
LPXF 031
0508
LPXF 038
6741
lPXF 039
E50C
lPXF 040
6941
LPXF 041
F510
lPXF 042
6F41
-1480-
-1490-
lPXf 043
'Ult
lPXf 044
6E41
lPXF 045
2828
lPXF 046
FOC6
lPXF 041
11 CO
lPXf 048
20A8
LPXF 049
77CO
lPXF 050
20AB
-1490-
-14AO-
LPXf 051
79CO
lPXF 052
2050
lPXF 053
7FeO
l PXF 054
20AB
lPXF 055
5EF9
lPXF 056
7FCO
lPXF 057
5805
lPXF 058
OBAO
-14AO-
-14BO,-
lPXf 059
C48C
lPXf 060
83BO
LPXF 061
98EA
lPXF 062
A74E
lPXF 002
2801
lPXF 004
2A65
LPXF 008
21f1
lPXF 009
5119
-14BO-
:-lIte (}-
lPXF OLD
51F9
lPXF 011
51E9
tPXF 012
5199
LPX.F 013
58BO
lPXF 014
3885
lPXF 015
54AO
LPXF 016
5838
lPXF 017
3845
-14CO-
-1400-
lPXF 018
55AO
lPXF 019
151B
lPXf 020
9163
MAAA 160
9265
MAAA 131
C909
MAAA 138
4fAF
MAU 139
2804
MAAA 140
2844
-1400-
-14EO-
MAAA 141
MMA 142
OOEl
MAAA 143
8628
MAAA 151
C256
MAAA 152
901C
MAAA 144
2B40
MAAA 145
CDEC
MAAA 146
5FSF
-14EO-
C9EB
MAAA 141
6AS1
MAAA 148
C4E1
MAAA 149
2A8S
MAAA 150
9172
5007
IMPY 050
5050
IMPY 051
5000
-14FO-
5001
-14FoCONTROL ADDRESS
14--
ADDRESS Ll ST
CONTROL ADDRESS
0
DATE 11/08/68
2
4
6
8
A
C
ClOAD=*E40. EC lEVEl=128211 .PAGE 253
15-E
-1500-
IMP\, 052
F204
J HP\' 053
3015
I MPY 054
30C5
IMP" 055
1050
IMPY 063
5032
IMPY 064
lCF3
IMPY 065
5422
IMP\, 061
5030
-1500-
-1510-
IMPY 06B
0015
IMP" 069
3C45
I MPY 070
50SS
IMP" 071
5079
IMPY 012
38B5
IMP\, 013
7S3A
IMP\, 014
COli
IMPY OBI
8442
-1510-
-1520-
I HI'\' 083
10F5
IMPY 084
FOA6
I MP'f 085
901C
IMPY 086
5OE9
IMPY 088
50 LA
IHP\' 089
C02f
IMPY 096
B442
IMP\, 098
0002
-1520-
-1530-
IMP\, 099
4DEB
IMPV 100
lE7B
IMP" 101
5000
I MPY 102
50FD
IMPY 103
9AOl
MPRT 341
5CA2
MPRT 34B
5069
MPRT 349
5C62
-1530-
-1540-
MPRT 350
5622
MPRT 351
FC41
MPRT 352
lC13
MPRJ 353
1043
MPRJ 354
f840
MPRT355
A908
MPRT 326
0938
MPRT 327
-1540-
-1550-
MPRT 328
3El3
"'PRT 329
lE92
MPRT 330
5EC2
MPRT 331
CE5f
MPRJ 332
FC5F
MPRJ 333
lC13
MPRT 334
A908
MPRT 335
2E65
-1550-
-1500-
MPRT 336
3EF3
MPRT 137
2F05
MPRT 33B
1Ef2
MPRT 339
3043
MPRT 340
7C62
HPRJ 341
5CA2
MPRT 342
5609
MPR T 343
leA2
-1560-
-1570- ,MPRT344
3400
MPRT 345
2C05
MPRT 346
A044
IEOT 028
5Et2
IEDT 030
51iA
IEDT 031
5109
I EDT 037
3045
-1510-
5001
SEn
158-15 SO-
IEOT 033
C5l9
lEOT 034
2585
[EDT 035
5DCO
IEDr 036
EDOC
I EDT 031
fOOD
IEoT 0.38
3545
IEOT 039
5000
IEDT 040
5Deo
-15S0-
-1590-
IEDT 040
tEOT 048
3613
IEDT 049
EEl8
IEor 050
3513
IEOT 051
5F30
IEDT 052
5fB9
IEOT 053
3845
IEOT 054
OB50
-1590-
FEl4
-15AO-
IEOT 055
FOD1
IEDT 056
C15I
IEDT 057
2A33
IEDT 058
3AC5
IEOT 059
6ABl
IEOT 060
C4CO
IEDT 061
lA93
IEDT 062
3A05
-15AO-
-1560-
IEDT 063
6ABI
lEDT 064
CltCD
IEOT 065
2AB3
I EDT 066
3Ab5
tEOT 067
f23C
IEDT 068
tA25
I EOT 069
bASI
IEOT 010
C4e2
-1580-
-15CO-
IEOT 071
2B45
IEDT 012
7B3A
lEOT 073
OFl9
I EDT 014
0148
IEDT 075
a07t
(EDT 016
A67C
IEDT 017
0543
lEOT 078
9%0
-15CO-
-1500-
IEDT 079
f142
IEDT 080
EOEE
IEDT OBI
A97E
IEDT 090
EOCI
IEOT 091
OBFD
IEDT 092
C4DE
IEOT 093
A996
IEOT 094
0860
-1500-
-15Eo-
IEOT 095
C4E6
IEDT 096
e14e
IEDT 097
·95C2
IEDT 098
0840
IEDT 099
C4C2
IEOT 100
E143
[EDT 101
A99E
IEOT 082
2A45
-15Eo-
-15fo-
IEDT 083
3AB3
IEOT OB4
f276
lEOT 085
3A25
IEOT 086
£tASl
IEDT 081
C4e2
IEDT 088
1525
IEDT 089
95C2
KAAH 018
5EDF
-15fO-
CONTROL ADDRESS
15--
CU)AD=*E40. EC lE VEl;128211 , PAGE 254
16---
DATE 11/08/68
ADDRESS LIST
0
2
4
6
-1600-
KAAH 019
C184
KAAH 020
2C07
KAAH 021
4BCF
KAAH 022
1000
KAAH 023
OFOS
KAAH 024
EllO
KAAH 025
1210
KAAH 026
A854
-1600-
-1610-
KAAH 027
A5DO
KAAH 028
8EC8
KAAH 080
3480
KAAH 081
2007
KAAH 082
2C07
KAAH 083
3E08
KAAH 084
48CF
KAAH 085
4fCF
-1610-
-1620-:-
KAAH 086
40Cf
KAAH 087
021E
KAAH 088
5CC4
KAAH 089
C4A2
KAAH 090
220E
KAAH 091
F8AA
KAAH 092
9B62
KAAH 093
A016
-1620"-
-163.0-
KA.AH 018
2f01
KAAH 079
9EA6
KAAH 036
1000
KAAH 037
1210
KAAH 038
0059
KAAH 039
C8D1
KAAH 040
FOCF
KAAH 041
C44C
-1630-
- t640-
KAAH 042
f148
KAAH 043
C048
KAAH 044
f048
KAAH 045
8f2C
KAAH 046
3000
KAAH 041
AD2e
KAAH 048
A682
KAAH 049
A7Z2
-1640-
-16So-
KAAQ 005
2f·23
KAAQ 006
1421
KAAQ 007
1525
KAAQ 008
9EAA
KAAH 050
9C6A
KAAH 058
1210
KAAH 059
2613
KAAH 060
4E6F
-1650-
-l6Ber-
KAAH 061
2630
KAAH 062
41"61"
KAAH 063
2653
KAAH 064
26FF
KAAH 065
C4f6
KAAH 066
261.3
KAAH 061
4861"
KAAH 068
48CF
-1660-
'-1670'-
KAAH 069
2643
KAAH 070
4E6f
K.AAH 071
DAB 1
KAAH012
3462
KAAH 073
E995
KAAH 074
3480
KAAH 015
2615
KAAH 016
486F
-1670-
CONTROL ADDRESS
8
A
C
E
168-
CONn~oL
-1680'"
KAAH 077
9680
INRU 009
2206
INRU 010
0416
INRU all
5Eff
INRU 012
EFl7
INRU 013
0216
INRU 014
3600
INRU 015
OS97
-1680-
-1690'-
IN/fU 016
51"90
INRU 017
01"59
INRU 018
F4F2
INRU 019
0216
INRU 020
2007
INRU 021
7CF2
INRU 022
OOAO
INRU 023
3600
-1690-
-16AO'-
INRU 024
5A4F
INRU 025
EFE8
INRU 026
FFE2
INRU 027
CBFO
INRU 028
DSEl
INRU 029
CFDE
INRU 030
5H2
INRU 031
2C07
-16AO'-
""16BO"'"
IN~U
032
Of.C]
INRU 033
HAD
INRU 034
ClfA
INRU 035
OFFB
INRU 036
FOFA
INRU 031..., INRU 038
0001t
4FFF
INRU 039
EFE8
-16BO-
-16CO':'
INRU 040
96AC
INRU 060
3404
INRU 061
EAC8
INRU 062
820A
INRU 063
EEeD
INRU 064
HDS
INRU 065
3406
INRU 066
ESD3
-16CO-
-1690'-
INRU 0&1
I NRU 069
9AoO
INRU 077
3482
[NRU 078
FADA
INRU 079
9C14
INRU 080
3400
INRU 081
96AC
INRU 057
A044
-1600-
E904
-16E(}-
INRU 058
ABC6
INRU 059
9FOE
INRU 053
FOF2
INRU 054
fE13
INRU 056
8990
INRU 045
FFE2
INRU 046
DSAD
INRU 047
CFAC
-16EO-
-16fO'-
INRU 048
elfS
INRU 049
I NRU 050
OEFF
INRU 051
C4E4
INRU 052
9E72
INRU 041
CSEA
INRU 042
50EF
INRU 043
51FF
-16FO-
ADDRESS
8082
16--
ADDRESS L1 ST
CONTROL ADDRESS
DATE
4
6
8
11108/68
A
ClOAO=*E40. EC LE VEL=1282 11 ,PAGE 255
17--
0
2
C
E
-1700-
lNRU 044
A378
IADO 004
3585
I ADD 005
lOEE
I ADO 006
571A
IAOO 007
C111
IADO 008
5709
IAOO 009
8442
lAOO 010
5079
-1700-
-1710-
I ADO 011
E1l7
IADO 012
f716
IADD 013
1580
lAOD 014
5030
IAOD 015
COLO
lADO 016
8442
IADD 017
ED25
IADD 018
FD24
-1710-
-1720-
I ADO 019
1580
{ADD 020
2040
lADO 021
57AD
IAOO 022
50FD
lADO 023
C530
IADO 024
3000
[ADO 030
7222
IAOD 032
A40C
-1720-
-1730-
lADD 035
3A95
[ADO 036
7FAF
I ADD 037
40FB
IAOO 038
3fC5
IAOD 039
Of18
lADD 040
fOC2
IAOO 041
OHO
IADD 042
EOC2
-1730-
-1740-
I ADD 043
IF80
IADO 044
0073
IAOO 045
F5CC
[ADO 054
5A82
IAOD 055
3843
IAOO 056
7A82
IAOO 058
IF45
IAOD 059
7f3A
-1740-
-1750-
IADD 060
IAOO 062
571A
IADD 063
C750
I ADO 064
5709
IADD 065
8442
IADD 066
5079
lAOD 067
5030
I ADD 068
C063
-1750-
80n
-1760-
I ADO 069
8442
lADO 070
47AO
1 ADO 071
50fO
IADO 072
7fAf
I ADD 073
0011
IADD 074
C5EF
IADO 075
AA52
lAOO 076
AD60
-1760-
-1770-
I ADO 071
3FF5
IAOO 078
7f3A
I ADO 079
0753
I ADD 080
ElDD
lAOD 081
2020
IADD 082
2785
lADO 083
975C
JCHl 088
5f89
-1170-
118-176G-
JCHL 089
3486
JCHl 090
221E
JCHL 091
2085
JCHL 092
S7CO
JCHl 093
4FFF
JCHL 094
2804
JCHl 095
2844
JCHL 096
C908
-1780-
-1790-
JCHL 097
FDAS
JCHL 098
DD8F
JCHl 099
2A27
JCHl 100
3A23
JCHL 101
7AF2
JCHL 102
021E
JCHL 103
0214
JCHL 104
3400
-1790-
-17AO-
JCHl 105
98EA
JCHL 106
A044
JCHL 107
2804
JCHL 108
FDA7
JCHL 109
C9A9
JCHL HO
2800
JCHL 111
021E
JCHL 112
2028
-17AO-
-1760-
JCHL 11.3
EOAE
JCHL 114
9782
JCHl 129
044B
JCHl 130
C48A
JCHL 131
8808
JCHL 132
SFFF
JCHL 133
5842
JCHl 134
E645
-1780-
-17CO.,..
JCHl 135
C646
JCHl 136
3983
JCHL 137
2F07
JCHL 138
3073
JCHL 139
7fCO
JCHL 140
4973
JCHl 141
2085
JCHl 142
77C8
-17CO-
-1700-
JCHL 143
OEC3
JCHL 144
C4D6
JCHL 145
A238
JCHL 146
2808
JCHL 147
A212
JCHl 115
2B40
JCHl 116
021E
JCHl 117
CODE
-1700-
-17EO-
JCHL 118
.5FAf
JCHL 119
6AH
JCHl 120
C494
JCHL 121
4f4F
JCHL 122
2842
JCHl 123
FDEA
JCHL 124
5fEF
JCHL 125
FE34
-17EO-
-17Fo-
JCHL 126
2800
JCHL 127
2808
JCHl 128
97A6
JYPE 059
0080
JYPE 060
OFll
JYPE 061
FOFF
JYPE 062
1600
J YPE 063
9fOA
-17FO-
CONTROL ADDRESS
17--
OATE 11/08/68
ADDRESS II st
CONTROL i\f}/.)RES'S
0
2
4
6
·8
A
CLOAO:*E40. EC lEVEl=128211 ,PAGE 256
18-
C
E
-1800~
K880 008
3400
IlS 012
2Cf1
lOIS 013
5C09
lOIS Ollt
E648
lOIS 015
7C42
lOIS 016
F650
lOIS 017
7C52
[DIS 018
E65F
101 S 019
F657
-2CCO-
-2Ci)(j-
1015 020
H2b
lOtS 021
A304-
lOIS 022
7E52
lOIS 023
E65F
lOIS 024
44()6
lOIS 025
A304
101 S 026
7E42
lOIS 027
0080
-2 COO-
-2CEO-
1015 028
3633
1015 029
16't3
101 S 030
0040
lOIS 031
FfF2
lOIS 032
OF02
lOIS 033
54E2
lOIS 034
e110
lOIS 035
1252
-2CEO-
-iCFO-
lOIS 036
5222
lOIS 037
ABCE
5007
5007
5001
5007
5001
5007
CONTROL ADDRESS
-2CFO2C--
ADDRESS LIST
CONTROL ADDRESS
0
ClOAO=*E40. EC lE VEl=128211
20--
DATE 11/08/68
2
4
6
8
A
C
E
-2000-
KAAF 036
OFAC
KAAF 037
(52e
KAAf 038
A7CE
KAAF 035
AAC6
KAAF 033
e521
KAAF 034
A728
KAAF 012
3462
KAAF 013
0435
-2000-
-2DI0-
KAAf 014
E08E
KAAF 015
3480
KAAf 016
220E
KAAf 017
OE04
KAAF 018
0340
KAAF 019
OllE
KAAF 020
2340
KAAF 021
FI09
-2010-
-2020-
KAAf 022
2117
KAAF 02.3
2120
KAAf 024
4F1F
KAAf 025
3000
KAAf 026
3485
KAAF 021
0401
KAAF 028
3490
KAAf 029
2801
-2020-
-2030-
KAAf 030
2953
KAAF 031
5A.32
KAAf 032
AD34
JOT A 040
F251
JOTA 041
362.3
JOTA 042
4fOF
JOTA 043
A05e
JOTA 050
2800
-2030-
-2040-
JDTA 051
2602
JOTA 052
0004
JOTA 053
0240
JOT A 033
E255
JDTA 034
5538
JDTA 035
05fB
JOTA 036
e4BF
JOTA 031
0536
-2040-
-2050-
JOTA 038
511B
JoTA 039
A058
JOTA 044
1623
JOTA 045
5113
JOT A 046
651l
JOTA 041
4F5F
JOTA 048
2B48
JoTA 049
0240
-2050-
-2060-
1A00 104
3f85
(ADO 105
1F3A
lAOO 106
f5E8
IADD L01
8D1C
IAOO 113
5222
lAOD 115
5530
lAOo 116
1510
IADO 111
2002
-2060-
-2070- . [ADO 118
2001
lAOO 119
5580
!ADD 120
70BF
1A0D 121
4508
1A00 122
051F
IADO 123
703A
IADO 124
807e
lADO 125
703A
-2010-
208-2080-
IADD 126
5530
1A00 121
A010
[MEM 002
2400
IMEM 003
3779
IMEM 004
2E07
IMEM 005
5A02
IMEM 006
5AA6
[MEM 001
11B8
-2080-
-2090-
IMEM 008
2145
IMEM 009
50A2
IMEM 010
70A1
IMEM 011
F4A2
IMEM 012
5f88
IMEM 013
3F45
IMEM 014
55EO
lMEM 015
0500
-2090-
-20AO-
IMEM 016
0512
IMEM 011
3400
IMEM 018
128E
IMVZ 004
SOlA
IMVZ 005
5079
IMVI 006
3045
IMVI 007
56eo
IMVI 008
5030
-20AO-
-20BO-
II4VI 009
5049
[MVZ 010
3045
I MVZ 011
50eo
(MVZ 012
F13C
IHVZ 013
460B
II4VZ 014
AOBE
IMVZ 015
4BOO
I MVZ 016
58eo
-20BO-
-20CO-
IMVlOl1
0445
IMVZ 018
1B45
I MV I 019
78lA
IMVZ 020
807e
MPRT 39.3
807C
MPRT 386
elCE
MPRT 387
9lF2
MPRT 388
5E92
-20CO-
-2000-
MPRT 389
FA48
MPRT 390
HPRT391
7E92
MPRT 392
9E12
MPRT 317
0080
MPRT 378
8216
MPRT 319
5E62
MPRT 380
OA48
-2000-
IEl3
MPRT 18t
CA4A
MPRT 382
3482
MPRT 383
2040
MPRT 384
4CE6
,",PRT 385
A914
5007
5001
5001
5007
5007
5001
5007
5007
5001
INTP 150
2C05
I NTP 151
5AE3
-20Eo-
-2DEO-
-2DFoCONTROL AOORESS
-20FO20--
,PAGE 277
0
2
4
6
8
HtTP 1.52
EOS4
INTP 15]
INT P 154
5A05
INTi> 155
3085
INTi> 156
7Cf2
INTP 151
]Eil
-2EIO";'
UHP 160
8E82
INTP 161
4FBO
INTP 162
20A]
INTP 163
30B5
-2EZO-'-
JTYP 2.55
31"15
JTVP 256
4FFF
JTYP 251
160B
-21:30:"
JtvP liS' JTVP 247
1222
Ali16
~2E4(}-
lSSOOO2
5709
-lESO:';'
CONTROL ADDRESS
CLO AO=*E40, EC LEVEL=128211 ,PAGE 278
2E--
DATE 11/08/68
AOORESS LIST
C
E
INTP 158
OE40
INTP 159
E092
-2EOO-
58CO
INTi> 164
5FC8
INTi> 165
4B60
INTP 166
8E76
JTYP 254
2F53
-2 El 0-
JTYP 258
E23B
JTYP 259
A406
JTYP 215
7CE2
JTYP 216
4FFF
JTVP 211
E133
-2E20-
JTYP 248
4EC6
JTYP 249
CDO
JTYP 250
A396
JTYP 251
A412
JTYP 252
42C6
JTYP 253
A412
-2E30-
l.SSO 003
50tO
lSSO 004
50B9
LSSO 005
EODC
lSSO 006
7C52
lSSO 007
2206
LSSO 008
5C52
LSSO 009
6505
-2E40-
lSSO oto
5ECF
LSSO 011
EC5D
lSSO 012
E958
lSSO 013
2B02
lSSO 014
F95C
LSSO 015
2804
lSSO 016
0216
lSSO 011
A5BO
-2E50-
-2E60;';'
IMRC 015
3145
IMRC 016
OF67
IMRC 017
1745
IMRC 018
7738
IMRC 019
807C
IMRC 004
7738
IMRC 005
5718
IMRC 006
5F30
-2E60-
-200'-
IAAe ,O(}i
IHRC 008
C4El
I MRC 009
3745
IMRC 010
01EO
IMRC 011
C4El
IMRC 012
DF6B
IMRC 013
1145
IMRC 014
AE6A
-2E70-
-lECO-
01f'8
A
2E8~lE80:"
MDO{) iii 9
2A43
Mt)DD020
4FAF
MODO 021
2B42
MODO 022
FD86
MOOD 023
5FDF
MODO 024
FD10
MODO 025
8FU
MODO 055
9286
-2E80-
-21':90:'-
MOllO 02b
MOOD 027
EOn
MODO 028
5FOF
MODO 029
2848
MOOD 030
FD98
MODO 031
2808
MODO 032
C20E
MODO 033
4C80
-2E9o-
2848'
ADORE SS LIST
AUX STORAGE
0
CtOAD=*E40, EC lE IJEl=1282 11 tPAGE 279
00--
DATE 11/08/68
2
4
6
8
A
C
E
-0000-
MZZZ 005
40H
MIIZ 005
F2F3
MZZZ 005
F4F5
MZZZ 005
F6F7
MZll 005
F8F9
MZZI 005
f078
MZZZ 005
7C70
MIlZ 005
7E7F
-0000-
-0010-
MZZZ 006
7A61
MZZZ 006
E2E3
MZZZ 006
E4E5
MIlZ 006
E6E7
MHI 006
E8E9
MHZ 006
E066
MZZl 006
6C60
MIll 006
6E6F
-0010-
-0020-
MZZI 007
6001
MZZI 007
0203
MZZZ 007
0405
MIlZ 001
0607
MZZZ 001
0809
MHl 001
0058
MZZl 001
5C50
MIll 007
5E5F
-0020-
-0030-
MHI.008
50Cl
MIll 008
C2C3
MZZI 008
C4C5
MZZl 008
C6C1
MZll 008
C8C9
MIll 008
C04B
MIll 008
4C40
MIll 008
4E4F
-0030-
-0040-
lUll 009
0040
MHZ 009
4040
MZZZ 009
4040
MZZZ 009
4040
MllZ 009
4040
MHZ 009
4038
MHI 009
3C30
MZZZ 009
3E3f
-0040-
-0050-
MZZZ 010
3040
MZZI 010
4040
MZll 010
4040
MIlZ 010
4040
MZZZ 010
4040
MllZ 010
4026
MIll 010
2C20
MllZ 010
2E2F
-0050-
-0060-
MIlZ 011
2011
MZZZ 011
5240
lUll 011
4040
MHZ 011
4040
MHZ 011
4040
MHZ 011
4016
MHZ 011
lClO
MIlZ 011
lElF
-0060-
-0070-
MlII 012
4A10
MHZ 012
4040
MZZZ 012
4040
MZlZ 012
4040
MIlZ 012
4040
MIlZ 012
1008
MlZZ 012
OCOO
MZlZ 012
OEOF
-0070-
008-0080-
MZlZ 014
08CO
MIll 014
C1C2
MIll Ou.
C3C4
MlIZ 014
C540
MZZZ 014
0180
MIlZ 014
0000
MlIZ 014
0000
MHZ 014
0000
-0080-
-0090-
MIlZ 018
0000
MHZ 018
0000
MIlZ 018
0000
lUll 018
0004
MlIZ 018
0000
MIlZ 018
0000
MIlZ 018
8EOO
MZlZ 018
OAOO
-0090-
-OOAO-
MHZ 020
0081
MlZZ 020
0240
MZlZ 020
0420
MIlZ 020
0610
MZZZ 020
0000
IUZZ 020
8000
MHZ 020
3FOO
MIlZ 020
0000
-OOAO-
-OOSo-
MIlZ 0240000
MZll 0240000
MlIZ 02%
0000
MlIZ 024
0800
MlIZ 024
E800
MZZZ 024
HOO
MIlZ 024
0000
MZZZ 024
0000
-0060-
-OOCO-
MHZ 025
3A31
MZZZ 025
3233
lUll 025
3435
MZZZ 025
3637
MlIZ 025
3839
MIll 025
4040
MIlZ 025
4048
MHZ 025
455C
-OOCO-
-0000-
MlIZ 02b
2A21
MZZZ 026
2223
MIlZ 026
2425
MIlZ 026
2627
MlIZ 026
2829
MZlZ 026
4040
MlZZ 026
4040
MZZZ 026
4650
-0000-
-OOEO-
MHZ 027
lA51
MHZ 021
1213
lUll 021
1415
MZZZ 027
1011
MZZZ 027
1819
MZZZ 027
4040
Mlll 021
4049
Mlll 027
"F50
-OOEO-
-OOFO-
MllZ 028
OAOI
MZZZ 028
0203
MIlZ 028
0405
MZZZ 028
0601
MZZZ 028
0809
MZZZ 028
4040
MIll 028
4040
MHZ 028
445F
-OOFO-
AUX STORAGE
00--
A$'Oit'E'SS' VI Sf
Atl'X" S'f6~AGE1
-"1{}b~
0>
2'
4
141E
M'tZetL 034, MIlZ' 034
A
ClOAo= ..e40, Ee lE VEL,=128211 , PAGE 280
20-
e
E
6
8
MZZZ 033
3C46
MIlZ 033'
505A
MZZZ, 033
0101
MZZZ, 0'33
0101
MllZ 033
0101
-2000~
2832
KtZlc033', MIll 033' fUZZ 033
aaGA'
-2010;;.'
DATE 11/0'8/68
O~'9"
M'ZIZ 03flt
000'0
MHZ 034
044C
MZZIOH
0888
t4ZZZ 034
0'700
'UZZ 034
03E8
MHI 034
0000
-2010-
0'000
"'2i>2~
MUZ' 0'35'
KIH 035
0000"
MZZZ 035
000'0'
MHZ 035
000'0
MHZ 035
OCIC
MHZ 035
08H
MZZZ 035
044C
MZZZ 035
0064-
-2020-
"''20'304
Mth; 016'
0'0'63'"
MtII 036
MtH 036
0000
MllZ 036
0000
MZZZ 036
Qe8Q
I4ZZZ 036
0898
MZZZ 036
0480
MlZZ 036
OOC8
-2030-
"'204~
O:OSE'
o'OM
Mitl ,037' Kitz> 037
0000
MlIZ 037
0'000
MZZZ 037
0000
MZZZ 037
QCE4
fUZZ 037
Q8FC
MllZ 037
0514
MUZ 037
012C
-2040-
0000'
-,2t)5 ();;.
MZ'n 038
0600
",Z,ll 038
OOOG
MZZZ 038
0000
MllZ 038
0000'
MZZZ 038
0048
MIlZ 038
0960
MHZ 038
0578
MllZ 0'38
0190
-20'50-
-2 Olio-
"lit,
Mllz 0]9
0000
MZZZ 039
0000
MZZZ 039
00'00
MZll 039
OOAC
MHZ 039
09C4
MZZZ 039
Q50C
NllZ 039
DIF4
-2060-
-'2:0.704
Ntz.z040
HZIZ 040
000''0
MZIZ 040
00'00
MHZ 0'40
0000
MZZZ 040
IUZZ 040
QA2S
MZZZ 040
0'640
MZZZ 040
0258
-2070-
DElO
019'
0:0'00'
OOO(} ,
20'8-
-ZOlfo-
Mttl 041
00:00'
KUZ 041
0000
MZIZ 0'41
0'000
MlZZ Oltl
0'0'00
MlIZ 0'41
QE14
MIlZ Qftl
OASC
MHZ 041
Q6A4
MZZZ 041
028C
-2080-
-209~
,.,zH:04!
Mll...z 042
0000
MHZ 042
0000
MHZ 042
0'0'0'0
MUZ 042
OE08
MZZZ 042
DAfD
MZZZ 042
0708
lUll 0'42
-2090-
000:0<
-20'1>'-"'
MU:Z' 043~
0'0'00
KHZ 043
0'000,
MtH 043
0000
MHZ 043
0000
MHZ 043
OflC
fUZZ 043
0854
MZZZ 043
076C
MZZI 043
0384
-20Ao-
":2:08'0;-
,.,;Ht
04'4'
0'016
M!ll 0'44
Mziz 044
6480
MHZ 044
9611
MlIZ 044
2844
MlIZ 044
MHZ 044
9201
MZZZ 044
2339
-2080-
6016
MiLl' 045'
M'nl045
Mzn 045
1216
MlIZ 045
2A34
MZlZ 045
8134
MHZ 045
3402
MIlZ 0'45
1534
MZIZ 045
3434
-20'(;0-
MZZZ 046
341E
MHZ 046
Fl34
MHZ 046
3434
MZZZ 046
3lt34
MZZZ 046
3434
-2000'-
-2o'C(}i.o'
1CU':
~2~O'fyQ:.i.'
M712' 04'7
3~6S
-201"0;';'
AlJX' STciRA:S~:
OBIF
IftZZ:O%"' MUI' 046' ""In
It}34
--2G~tj1
3248'
MIll' 04a"
342F
2990
MIZZ
046
8006
0320
0'41
1914
MiH 047
MIll 047
OF34
MHZ 041
1317
MUZ 041
3404
MIlZ 047
1834
MHZ 047
3434
-2o'EO-
200E
on
MZll 048
2425
MZZZ 048
2621
MHZ 048
0606
'Ull 048
3414
MllZ 0'48
1A34
MZIZ 0'48
3434
-2DFo-
M'iz.t
222'3
20'-'-
ADDRESS LIST
AUX STORAGE
0
DATE 11/08/68
2
4
8
6
A
CLOAD=*E40. EC LEVEL=128211 ,PAGE 281
50--
C
E
-5000-
MZZZ 053
0000
lUll 053
0000
MllZ 053
0000
MlZZ 053
0000
MHZ 053
0000
MHZ 053
0000
MHZ 053
0000
MHZ 053
0000
-5000-
-5010-
MlZZ 05ft.
0000
MllZ 054
0000
MZZZ 054
0000
MllZ 05ft.
0000
fUll 05ft.
MZZZ 054
0000
MHZ 054
0000
MllZ 054
0000
-5010-
0000
-5020-
MHZ 055
0032
MZll 055
OA3e
MZZZ 055
1ft.46
MllZ 055
IE50
MZZZ 055
285A
MZZZ 055
0000
MZll 055
0000
MHZ 055
0000
-5020-
-5030-
MllZ 056
8000
MZZZ 05(0
0801
MZZZ 056
0002
MHZ 056
0ft.40
MHZ 056
5060
MHZ 056
0000
MZZZ 056
oeoo
MHZ 056
0000
-5030-
-5040-
MHZ 051
f900
MlZZ 057
0000
MZZZ 051
0000
MHZ 057
0000
fUZZ 057
E900
MHZ 051
0000
MZZZ 057
0000
MHZ 057
0000
-5040-
-5050-
MHZ 058
0900
MHZ 058
0000
MZZZ 058
0000
MHZ 058
0000
MHZ 058
0000
MZZZ 058
0000
MZZZ 058
0000
MZZZ 058
0000
-5050-
-5060-
MHZ 059
. C900
MlZZ 059
0000
MllZ 059
0000
MHZ 059
0000
MHZ 059
0000
MZZZ 059
0000
MHZ 059
0000
MHZ 059
0000
-5060-
-5010- .MZZZ 060
0005
MlZZ 060
0106
MlZZ 060
0207
MHZ 060
0308
MHZ 060
0409
MHZ 060
0000
MZZZ 060
0000
MZZZ 060
0000
-5070-
508-5080-
MZZZ 061
F800
MZZZ 061
1A78
MLZZ 061
1C10
MZZZ 061
1E1F
MZZZ 061
E800
IUZZ 061
E068
MZZZ 061
6C60
MHZ 061
6E6F
-5080-
-5090-
MZZZ 062
0800
MZZZ 062
0058
MZZZ 0&2
5C50
MHZ 062
5E5F
MZZI 062
0000
MllI 062
0000
MIll 062
0000
MZZZ 062
0000
-5090-
-50AO-
MllZ 063
C800
MIIZ 063
0048
MZZZ 063
4C40
MlZI .063
4E4F
IUZZ 063
0000
MllZ 063
0000
MZZZ 063
0000
MllZ 063
0000
-50AO-
-50BO-
MZZZ 064
0003
MZZZ 064
0230
MZZZ 064
0130
MllZ 06ft.
3030
MZZZ 064
0030
MHZ 064
3030
MZZZ 064
3030
MZZZ 064
3030
-5080-
-50Co-
MZZZ 065
40fl
MllZ 065
F2F3
MZZZ 065
F4F5
MHZ 065
F6f1
MZZZ 065
F061
MZZZ 065
E2E3
MZZZ 065
E4E5
MHZ 065
E6E7
-50CO-
-5000-
MZZZ 066
6001
MZZZ 066
0203
MHZ 066
0405
MZZZ 066
0607
MHZ 066
0000
MZZZ 066
0000
MZZZ 066
0000
MHZ 066
0000
-5000-
-50EO-
MLZZ 067
50C1
MLZZ 0t.7
C2C3
MZZZ 067
. C4C5
MZZZ 067
C6e7
MZZZ 067
COOO
"ZZZ 061
0000
MZZZ 067
0000
MZZZ 067
0000
-50EO-
-50FoAUX STORAGE
-50FO50--
OAre 11/08/68
AbDRESS usr
''fillS< Sl'ORAGl:
0
2
4
6
8
A
ClOAO=*E40, EC lEVEL=128211 ,PAGE 282
60--
C
E
-6C'(}0'-
MZ:H.078
407E
IUZZ078
4C5'E
MHZ 078
7A6e
IUZZ 078
706E
PUll 078
5C40
MlIZ 078
5078
MZZI 078
7F40
MZZZ 078
406F
-6000-
;"~OlC-
MllZ 079
'relit
'Ull 079
ElE3
MIll 079
MHZ 079
E6E7
MIll 079
lUll 079
-6010-
E8E9
0068
MlZZ 079
4F6C
MIll 079
HE5
20-
MtIl081)
'6001
MUZ.OBO
0.103
MIlZ 080
1>405
MZZZ 080
0607
MIll 080
MIlZ 080
6058
MlIl 080
MHI 080
7800
-6020-
;":6030-
MtZil..031
50C1
MiH 081
(:2C3
lUll 081
MlIZ 081
C6C7
lUll 081
cau
MHZ 081
4E4B
MIll 081
MlIZ 081
4otO
-6030-
C4C5
HZZl -082
0000
MZZZ082
0000
lUll 082
0000
MZZZ 082
01100
MlIZ 082
0000
MlIZ' 082
0093
MlIZ 082
9495
MlIl 082
-6040-
-4'»050-
MllZ cd
'8000
HUZ 083
0000
MllZ 083
0000
MZZZ 083
0000
MlZZ 083
0000
MlZZ 083
0053
MlZZ 083
5455
MlIZ 083
5657
-6050-
-6060-
MZU 0"8<\ MllZ084
-6060-
-'flO
-60',.:tr-
";6:010-
0809
007C
5F4C
fEED
9697
0000
MllZ 084
0000
MHZ 084
0000
MHZ 08<\
0000
MZZZ 084
0033
MlZZ 084
3435
MZlI 084
'tall
MUZ -085
0000
MIlZ 085
0000
MZZZ 085
0000
MIlZ 085
0000
MlIZ 085
0000
MZZZ 085
2013
MlZZ 085
MHZ 085
1617
-6070-
1415
3637
608-
-",rZZOS6
800'0
MItZ086
4000
IUZZ 086
2000
MZZZ 086
1000
MlII 086
IUZZ 086
0400
MlIZ 086
0200
HZZZ 086
0100
-6080-
0800
-'609(1-
MZll 0"81
-0-000
MZll 087
0000
MZZZ 081
0000
MlZZ 087
0000
MIlZ 081
0000
MIlZ.087
0000
MZZZ 087
0000
MIlZ 081
0000
-6090-
":6040-
,.lill aDa
kIn OB8
MZZI 088
0000
MZZZ 088
0000
MlIl 088
0000
MZZZ 088
0000
MHI 088
0000
MHZ 088
0000
-60AO-
0000
HZl'I 089
0000
HUI 089
lUll 089
MZZI 089
0000
MZZZ 089
0000
MZZI 089
,()OOO
MAz0000089
MZZZ 089
0000
-6080-
0000
""'&ocn.:..
MI'll 090
:A081
fuZz 090
MHZ 090
8485
MZZZ 090
8687
MHZ 090
9088
HZZZ 090
0000
MZZZ 090
0000
MZIZ 090
0000
-6 oc 0-
'8283
-'6{mO-
MlZ,z091
6041
141lZ091
4243
MIll 091
4445
HZZZ 091
MZZI 091
50~8
MZZZ 091
0000
MZZZ 091
0000
MZZZ 091
0000
-6000-
~647
MZZZ098
'MZZZ 098
2223
MZZZ 098
2425
MlZZ 098
2627
MIll 098
MlZZ 098
·0000
MZZZ 098
0000
HZZZ 098
0000
-60eo-
3028
MHZ 100
0203
MZZZ 100
0405
MZIZ 100
0607
MIlZ 100
1008
MIlZ 100
0000
MZZZ 100
0000
MIll 1M
-60FO-
-6081r-
-'6ija6--
Wi6ueo""60fO-
ti'Ooo
'~200
"'lIZ '1'00
'200l
jAOX·:sTOR;(G"€
o.oon
0000
60--
ADDRESS LIST
AUX STORAGE
0
ClOAD=*E40, EC LEVEl=128211 ,PAGE 283
10--
DATE H/08/68
2
4
6
8
A
C
E
-1000-
MHZ III
4ECl
MZZZ 111
C2C3
MllZ III
(4(5
MZZZ III
C6(1
MZZZ 111
(8e9
MZZZ III
404B
MZZZ 111
4(40
MZZZ 111
4040
-1000-
-1010-
MllZ 112
1001
MZZZ 112
0203
MIIZ 112
MllZ 112
0601
MllZ 112
0809
MZZZ 112
505B
MZZZ 112
5C40
MllZ 112
4040
-1010-
0405
-7020-
MZZZ 113
1E6l
MZZZ 113
E2E3
MZZZ 113
E4E5
MZZZ 113
E6E1
MZZZ 113
E8E9
MZZZ 113
606B
MZll 113
6(40
MZZZ 113
4040
-1020-
-1030-
MIlZ 114
FOF1
MlZZ 114
f2F3
MZZZ 114
F4F5
MZZZ 114
f6f1
MHZ 114
F8F9
MZZZ 114
401B
IUZZ 114
7(40
MllZ 114
4040
-7030-
-7040-
MllZ US
4040
MZZZ 115
4040
MZZI 115
4040
MIlZ 115
4040
MZZZ 115
4040
"IZll 115
MZZZ 115
4040
MZZZ 115
4040
-7040-
4040
-7050-
MZZZ llb
4040
MZZZ 116
404-0
MHZ 116
4040
MZZZ 116
4040
MZZZ 116
4040
MZll 116
4040
MZZZ 116
4040
MZZZ 116
4-040
-7050-
-1060-
MZZZ 117
4040
MlZZ 117
4040
MZZZ 117
4040
MZlZ 111
4040
MZZZ 111
4040
lUll 111
MZZZ 111
4040
MZZZ 11 7
4040
-7060-
4040
MllZ 118
MZZZ 118
4040
MZZZ 118
4040
MIlZ 118
4040
MZZZ 118
4040
MllZ 118
4040
IUZZ 118
4040
MZZZ 118
4040
-7010-
-7070-
4040
108-10eo-
MZZZ 119
0000
MlZZ 119
0048
MZZZ 119
C57F
MZZZ 119
C61 A
MZZZ 119
0000
MllZ 119
0048
MZZZ 119
4E7F
MZZZ 119
6C1A
-1080-
-1090-
MZZZ 120
7COO
MZll 120
005B
MZZZ 120
104F
MZZZ 120
4C4A
MHZ 120
lCOO
MHZ 120
005B
MZZZ 120
1D4f
MllZ 120
4C44
-7090-
-70AO-
MZZZ 121
5061
MZZZ 121
006B
MZlZ 121
E56E
MllZ 121
5(60
MIlZ 121
5061
MZZZ 121
006B
MllZ 121
MZZZ 121
5C60
-10AO-
MllZ 122
MZZZ 122
5f06
MZZZ 122
055E
MllZ 122
'Ull
122
0000
MZZZ 122
5F1B
MZZZ 122
b05E
MllZ 122
-70BO-
0000
-10(0-
MZZZ 123
1625
MZZZ 123
2627
MZZZ 123
2829
MZZZ 123
2A2B
MZll 123
2C20
MZll
123
002F
fUZZ 123
3000
MlZZ 123
0000
-7OCo-
-7000-
MHZ 124
2219
MZZZ 124
lAlB
MZZZ 124
lCI0
MZll 124
1ElF
MZZZ 124
2021
MZZZ 124
1623
MIlZ 124
2400
MZZZ 124
0000
-7000-
-70EO-
MllZ 125
2EOD
MlIZ 125
OEOF
MZZZ 125
1011
MlIZ 125
1213
MIll 125
MZZZ 125
2217
MZll 125
MZZZ 125
0000
-70EO-
MIlZ 126
OA01
MLZZ 126
0203
MZZZ 126
0405
MHZ 126
0601
MHZ 126
0809
IUZl 126
MZll 126
OCOO
MHZ 126
0000
-10fO-
2EOS
-70Bo-
-10Fo-
4D1E
1415
50bE
1800
407E
t,#e:ife**e"'aouPLtCAle
ASSIGNMENTS IN THIS RUN.
MASI
II,
ASI II, AS 1M ASI
MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS I MASI MASI MAS I MASI MASI MA SI MAS/MAS/M ASIMA SI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MA S/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MA SIMA SIMA SIMA SIMA SI MA SI MA SI MAS I MASI MASI MAS I MASI MAS/MA S/MAS/M AS/M AS/MA SIMA SIMA SIMA SIMA SIMA SIMA SI MA SI
MASIMA SIMA SIMA SI MA SIMA 51 MASI MAS I MASI MASI MASI MAS I MA SI MAS I MAS/MAS 1M AS/M ASIMA SIMA SIMA SIMA SIMA SIMA SI MA SI MA SI MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MASfMAS/MAS/MASfMASfMAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASfMAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MA S/MASI
MAS/MAS/MAS/MAS/MASfMAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MASI MAS/MAS/M AS/MASI
MAS/MAS/MASI
MASI
MASI
MAS/MAS/MASI
MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MASI MASI MASI MASI MASI MAS I MAS/M AS/MAS/MAS 1M ASIMA SIMA SI
MAS/MAS/MAS/MAS/MAS/MASfMAS/MAS/MAS/MAS/MAS/MAS/MAS/HA S/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MA SI MA SIMA 51 MASI MASI MASI MASI MASI MASI MASI MAS 1M AS/M AS/M AS 1M AS/M,\ SIMA SIMA SIMA SI MA SIMA SI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASfMAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MA S/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MAS/MAS/MASI
MAS/MAS/MAS/MAS/MAS/MAS/MASI
. MAS/MAS/MAS/MAS/MASI
MAS/MAS/MASI
MASI
**ERROR MESSAGES.*
NO BOUNDARY ERRORS
NO STRING CONTROL BLOCK ERRORS
R25-5401-0
(f)
~
~
~
to
'"o
s:
o
c.
!Eo
I\)
Source Exif Data:
File Type : PDF
File Type Extension : pdf
MIME Type : application/pdf
PDF Version : 1.3
Linearized : No
XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date : 2012:11:29 12:07:09-08:00
Modify Date : 2012:11:29 14:16:09-08:00
Metadata Date : 2012:11:29 14:16:09-08:00
Producer : Adobe Acrobat 9.52 Paper Capture Plug-in
Format : application/pdf
Document ID : uuid:1f804a76-2fee-40b0-b442-d0518f290ce1
Instance ID : uuid:2a4453f4-c6a2-4629-8928-a916a8e0a4b6
Page Layout : SinglePage
Page Mode : UseNone
Page Count : 296
EXIF Metadata provided by EXIF.tools