60271300F_SMM17_Program_Listings_CRP_Feb75 60271300F SMM17 Program Listings CRP Feb75
User Manual: 60271300F_SMM17_Program_Listings_CRP_Feb75
Open the PDF directly: View PDF 
.
Page Count: 116
| Download | |
| Open PDF In Browser | View PDF |
o
o
o
o
c)
CONTROL DATA®
SMM17
o
L~"
Program Listings
CRP
CONTROL DATA
CORPORATION
CUSTOMER ENGINEERING MANUAL
RECORD of REVISIONS
REVISION
A
(2-1-69)
B
(11-17-69)
C
(9-15-70)
D
(4-12-73->
E
'\.
\
NOTES
Manual released.
Information complete through SMM17 Edition 2.1.
Information complete throueh SMM17 Edition 2. 2
Obsoletin2 all orevious editions
Information complete through SMM17 Edition 2.3.
This edition obsoletes all previous editions.
o.
This edition obsoletes all previous editions.
Information complete through SMM17 Edition 3.1.
This edition obsoletes all previous editions.
Information complete through SMM17 Edition 3.
/
(5-1-74)
F
Information complete through SMM17 Edition 3.1-1.
This edition obsoletes all orevious
-3.'
•
(2-4-75)
Ir-'
(
('
I
\.
...
U)
.!.
:>
1&1
a:
0
I"l
N
C(
u
:2
II:
f
Address comments concerning this
manual to:
Pub No. 602 71300 ~.
© 1969, 1970 1973, 1974, 1975
by Control Data Corporation
Printed in United States of America
/.-......,
Control Data Corporation
Technical Publications Department
4201 North Lexington Avenue
Arden Hills, Minnesota 55112
or use Comment Sheet in the back of
this manual.
(
"
o n
(j
(J
o c) o o o
o o o o
CRPAOD
PAGE
DATE' 01/04/713
1
0011
.... .......................................................
.........
.. .. • . .. . . .. . .. .. . ...
·.. .. .... .. ...
...
•..
...
..
...... .. ... .. .. ... .. ......................................
0013
0014
•
NAM
0001
0002
0003
0004
0005
0006
0007
0008
.~~~~
10154 COPYRIGHT CONTROL DATA CORP 1974
eRPAOD
~
~
•
.. REVISION RECORD
OOOCJ
aOl0
032074 V 3.1
SYSTEM RELEASED
CORRECTED INITIAL MESSAGE TYPEOUT
4-
•..
0016
0017
0016
001CJ
~
.,.
•
•..
002G 0021
0022
•
6027130fl
F
~
WHAT DONE , WHY, AND WHO DID IT
~~
0015
••
.. HOUAYR VERSION
•
•
.............
~
c
~
~
~
~
~
~
~
.
.. • • • • • • .. • . . . .. .
•
..
•
••
~
~
if
.•
•..
•
UPDATED VERSION OF TEST sao
WILL RUN W/COHHON OR INDIVIDUAL
INTERRUPT LINES
•
•
• • •• • • • •
..
. • .. ....
•
••
•
•
•
•
..•
..
00001
00002
00003
0000 ..
00005
00006
00007
· 00008
00009
00010
00011
00013
00014
00015
00016
· 88017
00018
00019
.
.
~.
. ......... -.
· OIlUO ..
00:021
01:022
PAGE
~'.
. ...---.
,
-----.
.................- ....
1
CRPAon
0026
·1723 EQUIPMENT SELECT (Ql0 THRU Q07 : EQUIPMENT NUMBER)
00024
READER, STATION 1
QD~ = 1, QOo
PU~GH, STATION 2
005
0, QU6
=
0031
·1728 OIRECTOR FUNCTIONS (aoo
003l
..
0035
•
•
0036
0037
0036
ADO
AOt
A02
of.
A03
0039
of.
0040
.of.
AO/.
A07
0041
of.
0043
.DIRZCTO~
0045
0046
0047
0048
0049
AOD
A01
.of.
AD?
•
•..
on52
•..
0053
~054
AO:~
A04
= 1.
00031
= 1)
(P~IMA~Y),
00033
QOO
= 1,
QOl
= o.
ALARM
oooso
OG052
00053
00054
•...
00S8
·OIRECTOR STATUS LEVEL? (SECONDARY), QOO : 1, QOt
0060
.y.
".
•
0062
0063
AOO
A01
AO::?
A03
0061t
.of.
AOZ.
0065
0066
..."
A05
60271300
)
~
00055
00056
= 1.
00058
HOPPER EMPTY
STACKER FULL
fAIL TO FEED
READ AREA ~AM
PUNCH ARFA JAH
STACKER AREA JAM
PRE-P.EAO ERROR
00060
OG061
00062
00063
· 0006 ..
· 00065
00066
PAGE
F
"-
'I
AOG
00043
00051
0055
0056
0961
00036
00037
00038
00039
00040
00041
00045
00046
· 00047
00048
00049
LOST DATA
PROTECTED
ERROR
HOTION FAILUP,E
END OF FILE
CHIP SOX
Al0
AU
00035
READY
BUSY
INTERRUPT
DATA
EOP
A06
A09
00028
00029
00030
= O.
AOS
AD7
AO"
00026
CLEAP CONTROLLER.
CLEAR INTERRUPTS.
DATA INTF.RRUPT REQUEST •.
INTERRUPT ON EOP (COLUHN 81 TIME).
INTERRUPT ON ALARM.
FEED CYCLE.
OFFSET.
STATUS LEVEL 1
...
~
0951
AOB
.of.
...
0050
)
- NED T. HURST
~PROGRAHHER
OD30
"-
Cl/04171)
0024
0026
0029
'\
OAT~I
2
"-
"-
'\
!
'\
/
')
"-
)
/-
"-
'\
2
",
J
'\
)
.'
")
/\
)
c)
-,
( )
C')
C) C) C) 0 0 C)
CRPAaO
PAGE'
...
...
0067
0068
60271300
F
(
)
/\
( j
0 0 0 0
0
nATEI 01/04/71)
J
A07
PUNCH ERRO~
AlO
INTERLOCK
00067
00068
PAGE
3
l)
(---)
(J
(
~
PAGE
CRPAOO
nATE. a1/04/75
4
00070
0010
.....
Ot
0013
EQUIPHFNT ADDRESS IN ERROR (OPERATOR ERROR).
TEST MUST BE CALLED AGAIN.
00072
00073
0015
...
02
INSUFFICIENT "EMORV FOR TEST.
00075
0071
0018
...
..
03
PARAMETER IN ERROR (OPERATOR E~ROR).
PARAMETfRS MUST RE SELECTED AGAIN.
04
UNEXP!CTED INTERNAL REJECT.
00080
05
UNEXPECTED EXTERNAL REJECT.
00082
06
UNEXPECTED REPLY
00081t
07
UNEXP€CTED LEVEL 1 STATUS.
A ; ACTUAL STATUS,
Q = EXPECTED STATUS.
00086
00081
08
UNEXPECTED LEVEL 2 STATUS.
A = ACTUAL STATUS,
Q = ~XPECTED STATUS.
00089
00090
09
NO DATA INTERRUPT WHEN EXPECTEO.
A = LEVEL 1 STATUS, Q
0000.
00092
00·093
OA
UN~XPECTEn
0072
0080
..
0082
0084
.,.
0086
0087
..
0089
0090
.
..
0092
0093
".
0095
..,.
00<)6
08
0098
..
..
0101
0102
or.
0107
0106
\
I
)
)
00095
00096
= 0000.
NO fNO-OF-OPERATION INTERRUPT WHEN fXPECTED.
Q
00098
00099
= 0000.
00101
00t02
00
NO ALARM rNT€RRU~T WHEN ExoECTED.
A = LEVEL 1 STATUS, Q
LEVEL 2 STATUS.
00104
00105
OE
UN~XPECTED
ALARM INTERRUPT.
Q = LEVEL 2 STATUS.
00107
00108
=
= LEVEL
1 STATUS,
OF
UNEXPECTEn 1706 BUFFF.REO DATA CHANNEL STATUS.
A = ACTUAL STATUS,
Q; EXPECTED ~TATUS.
00110
00111
10
(lA 1 A EP.ROR
DOlt!
..
..
01.17
•.
11
0118
0120
0121
•..
12
A = l\CTUAL DATA,
A ~ COLUMN NUHBFR,
WRONG CULUHN COUNT
= ACTtJAl COUNT,
A
Q
Q
Q
UNTOENTIFTABLE PATTERN
A = FIRST COLUMN,
Q
= SXPECTED
=
DATA,
PATTERN NUMBER •
= EXPECTEU
= SECONO
00114
00115
COUNT (80 DECIMAL).
00117
00118
00120
00121
COLUMN.
PAGE
F
-"
11
Q
UNEXPECTED E~D-OF-OPERATION INTERRUPT.
= LEVEL 1 STATUS, Q = 0000 •
0113
0114
0115
)
DATA INTERRUPT.
1 STATUS,
A : LEVEL 1 STATUS,
A
0110
0111
1)02713011
= LEVEL
A
...,.
..
..
0104
0105
=
A
009tJ
00077
. 00078
/~
,r-"\
(
)
"l/
/
"\
/
/'\
/
I
..-
'.)
")
,
)
4
)
-")
(
\
--
'\
J
.'
\
/
C)
r---\
j
~\
C
CRPAon
o c) C)
PAGE
..
..
....
0123
012'+
0126
0127
60?71300
I
F
?
r-)
()
c)
C)
DATEa (;1/04175
13
WRONG 170& CURRENT WORD ADDRESS.
A = ACTUAL ADDRESS, Q = EXPECTED ADDRESS.
00123
00124
14
UNT02NTIFIADLr INTERRUPT
A : LEVEL 1 STATUS, Q = 0000
00126
00127
PAGE
5
CRPAon
r
0129
.PRE~TOREO
0131
0132
•...
0133
0131t
0135
•..
0137
.CAUTIONS TO USER
0139
011t0
...
...
...
00271300
PARAMETERS
SECTor
INTLIN~S
00129
(INITIAL ADDRESS + 7) 'SECTIONS TO TEST
(INITIAL ADDRESS + AJ OXYZ WHERE,
X
OATA INTER~UPTLINE
Y = EOP INTERRUPT LINE
Z = ALARM INTERRUPT LINE.
=
THE CHOSEN EQUIPHENT
All EQUAL TO ZERO.
00131
00132
00133
, 00134
00135
00131
ADO~ESS
MUST HAVE BITS 01 THRU 0&
00139
001'.0
PAGE
F
,-\
)
DATE't 01/04175
PAGE
\
)
'\
)
/
\
)
,
'\
6
\
I
'\
/
r
\
o
C~)
CRPAnu
PAGE
0142 PODOO 180Q
0143 POOO1 4352
POOO2 5041
CRPAIJO
7
"-
(
)
L)
I
\
OATES 01/04175
JHP"
ALF
START
3,CRPAOO
00142
00143
0144 POO04 078e p PARAIJR
0145 POOOS Doon iJ RfTURN
ADe:
AOC
PIO
BEGIN
00144
00145
0147
0148
0149
0150
0151 POD06 0001
THE EQUIPHENT ADDRESS FO~ STATION 0, LEVEL 1 STATUS INPUT
IS STO~ED HERE BY THE HONITOR WHEN IT LOADS THE TEST. THE
OPERATOR SPECIFIES THE EQUIPMENT AODRESS WHEN HE CALLS
THE TEST.
NUH
$0001
EO. ADDRESS FOR STATUS INPUT.
3D44
.. OiaO
0181
0182
O·1~3
0184
0185
0004
0005
0006
0007· .
0008
0009
.OOOA
OOOB
OOOC
0000
0042
0043
.. 01144
0045
0047
·0048
0049
0056
OOGB
0069
006C
0060···
006E
006F
F
$OOFF
$068A
MCREST
"'LOCATIONS IN HONITOR
EQU
CONTROLel)
EQU
STOPX(CONTROL+l)
EQU
EXInSTOPX+1)
EQU
REQINT CEXIT+1)
EQU
FClRINTCREQINT+11
EQU
JUHPCREQINT+2)
F.QU
'GENRANCJUHP+U
TVPEOUT(GENRAN+l)
Eau
TTVBZYCTVPEOUT+l)
FOU
EQU
HEXASC(TVPEOUT+2)
EQII
OVRLAY(HEXASC+1)
eau
RELPOS(OVRLAV+1)
EQIJ
HAINLCRELPOS+U
EQU
SETMASK(HAINL+53t
EQU
ST JP (SETMA SK+ll
EQU
LASTVALU (STJPf-U
EQU
lAS'TAOCSTJP+2J
EQU
lDlCORE CLASTAD+2 I
EQU
·tOL1CORCLOLCORE+l)
INFORHCLOL1COR+1)
Eau
SHMCNTCINFORH+13J
EQIJ
EQU
81100 (SHHCNT+21J
BITO(BITUO)
EQU
EQU
8ITHBITO+1)
EQU
81T2 (BIT1+i)
EQU
81 T3 (BIT2+1)
BIT4(BIT3+1)
EQU
SECTrONS = ~ THRU 7.
INTERRUPT LINES
00153
00154
00155
00156
00158
RETURN SMHCONTROL ADDRESS.
00159
ALL STOPS AND ERROR TYPEOUTS
00160
END OF TEST-PASS EXIT
00161
.. 001'62
REQUEST INTERRUPT ADDRESS
FAKE CLEAR INTERRUPT ROUTINE
00163
CHECK SKIPSWITCH FOR PARA" ENTRY · 00164
RANDOM NUMBER GENERATOR
.00165
HESSAGf TYPEOUT ROUTINE
00166
ROUTINE TO WAIT TTV NOT BUSY.
00167
HEX TO ASCII CONVERSION
00168
OVERLAV CALL ROUTINE.
00169
A/Q RELATIVE POSITION TEST~
00170
MANUAL INTERRUPT. ROUTINE.
OOt71
H REGISTER RESET VALUE.
00172
· 00173
STOP/JUMP PARAMETER WORD.
MONITOR AREA LWA+1
00171t
AVAILABLE LOAD CORE FWA.
00175
BANKO LASTADDR
00176
BANK1 LAST AOOR
· 00177
SKO SIZE, HASK SIZE, BUSY SWITCH
00178
SHH PARAMETER NORD.
00179
XXXXXXXX CONSTANT TABLE XXXXXXXX
00180
00181
~
'
'
-
..
-.'
_...... _.
....•
... --~.
,.~
.
,
..
-
...
..
..
00183
00184
00185
7
_... -
................
." ..........., --.
00182
PAGE
.. - .
.......
...
~.-.-
.
.
~
0001
0002
0003
60271300
PA~AHETFRS
'
0158
0159
0160
0161
0162.
0163
0164
·0165 .
0166
0167
0168
0169
0170
.0171
~ 0172
0173
-.... 0174.
0175
017&
0177
0178
0179
"PR£~TORED
SECTaT
NUM
INTLINES NUM
START
JHP
"
0153
. 0154 P0007 DOFF
Q155 P0006 0868
0156 POOD9 1800
POOOA 076A
k
..
EO
'
~
OB147
00148
00149
00150
00151
"
..
~
~
_
POOO~~
/
•• _ _ _ ........
--
-' .. _..... -_ .. ,,- ..........
PAGE
CRPAOO
018&
0187
0186
0189
0190
0191
0192
0193
0194
0195
0196
0197
0198
011}9
0200·
0201
0202
0203
0204
0205·
0206··
0207
0208
-0209 .
0210
0211
EQU
EQU
EQU
EQtJ
EQU
EGU
EQU
EQU
. EQU .
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
(QU
EQU
EQU
EQU· .
EaU
EQU
EQU
EQU
EQU
0070
0071
0072·
0073
0074
0075
007&
0077
. ·0078
0079
007A
0079
007C
0070
007E·
007F
0080
0081
,008'2
0083
0084
0085
0086
0087
ODB8
0089
EGO
... D08A
0212"
OU8S
0091
~21S" ..
·····0092 .'
0069
0216
0056
0217
0213
0214
"0216- ......
·0043 .. · ..........
0219
0220
·0221
0222
0007
OODA
" 0:008
0004
0005'
0223
···0224· .
0225
0226
. '. ····OODA
0009
0140
....
. ··~.1l227
E'lU
EQlI
. EQU·
EQU
EQU
'" EGU
EQU
EQU
·EQU·
EQU
EQU
EQU·
EQU
EQU
8
DATEI 01/04/75
BIT5 (BIT4+1)
BIT6 (BIT5+1)
00186
BIT7CBIT6+U
BIT8 (BIT7+!)
BIT9 (BI T8+1)
8IT1!) (81T9+1)
BITll (BI nO+l'
001se
00187
00189
00190
00191
00192
00193
0019 ..
BIT12 C81Tl1+U
. BtT13 CBIT12.!)
BtT14( BIT13+U
BIT15 (B1.T14+1)
Hoaoo (9.IT15+U
HFFFF (HO 000+1)
HOOOF(HFFFF+U
. H0 0 F 0 ( HOOD F+ U
HOFOO(HOOFO+t)
HFOOO (HOFO 0+1 1
HOOFFCHFOOO+1)
HFFOO (HOOFF+!)
HFFFO (HFFOO+U .
00195
00196
00197
00280
· 002Dl
OOlB2 .
00203
0020,.
00205
00286 "
00207
·HOFFF CHFFFO+U
HFFOF(HOFFF+U
HFOFFCHFFOF+1)
·H7FFFCHFOFF.1) .'
H7FOO (H7FFF+1t :
H078D (H7FOO+U
H007F(H0780+1} ..
H2020 (H007F+1l
TSACTVCH2020+6)
. ·lSFREQC..TSACTV+1J
CONSTC9ITOO)
SHHPAR CSH"CNT)
. ·SJPARCSTJPl .. · ..
RANDOHCGENRAN)
CONVERTCHEXASC)
· 00208
··&UJ209
00210
00211
"
. ,,","""
• • _ ......
• •• _
••• · b
,.
~,
w'
'0
•• , .•. _ .
INDEX TO TEST IN CONTROL.
TEST,· FREQUENCY TABLE
'. 00215 ..
00216
...
" 00217
08Z18 "" .............. .
00219
00'220
HESSAGtTYPEOUn
" 01221
00222
REQNDCREQtNTI
CLRND CFCLRI NT)
"·CONV·(HEXASC)···
· 00223
00224···
· 00225
00226
SHHTYPINGCTTYBZYJ
REG(!140)
· 80221 "
-"."
........
"·60271300
\
)
)
PAGE·· 8
F
\
)
./
'\
......'
.~
...• '"
~-
• .- .'...
~
:---.......
002130021 ..
TAB~E
"
_
~!
08~12
..................
,
..... ;...
,
00198
00199
.
'\
...
_o-.:~
.
__
.~:
•.
:_~
.• _ -......
"_4 .. _
"
..
~
....,.
.
_~." .' ...... ~ .,. .... ' .:~.":"_:..:..:. ~:..:.":"_......:~',:l
' \I
(~)
"-"'-----
(\
(>
c)
(
'\)
n'-----/ LJ
PAGE
GRPAOO
9
(
(-,
"
" _.J
J
-
OATEI
c)
CJ ()
tQU
EQU
EOU
EQU
EQU
EQU
EQU
EOU
EQU
EUll
EQU
F.QU
EO.U
EQU
f.QU
EQU
fQU
EQU
OOl5
DOE6
00E1
00E8
00E9
OOEA
OOEB
OOEe
DOEE
DOfF
OOFO
OOF1
OOF2
OOF3
OOF4
OOF5
OOF6
OUF7
OiJF8
OOF9
ODFA
OOFB
0004
0005
0006
0007
0008
0261
0009
ODED
F.QlJ
EQU
EQU
EQU
EQU
EQlI
EQU
EQU
F.QU
EIlU
FIlU
DODA
EQU
EQll
EQU
oooe
OODC
DODD
EQIJ
oaDe:
EQU
EQU
EQU
DOOF
OOEO
00E2
60271300
EOIJ
0
C) Cj
00229
00230
00231
•
0233
0234
0235
0236
0237
0238
0239
0240
0241
0242
0243
0244
0245
02'+6
0241
0248
02 .. 9
0250
0251
0252
0253
025 ..
0255
0256
0251
0258
0259
0260
('---)
iJ 11 Oltl75
"'OIRECT LOCATIONS USED BY THIS~TEST.
INITIAL AOORESSES OF SUB~OUTINES ARS STORED HERE
".
DURING INITIALIZATION.
0229
0230
0231
0262
0263
0264
0265
0266
0267
0268
0269
c)
(-)
00233
0023,.
00235
00236
00237
00238
00239
002ltO
002.. 1
002,.2
00243
0024"
00245
002 .. 6
002"7
00248
00249
00250
00251
00252
00253
0025" .
00255
00256
00257
00258
00259
00260
00261
00262
00263
0026 ..
00265
00266
00267
00268
00269
SHH ($EI»
STATUSeSHH+!)
rC1D (STATUS+!)
IC100UC10+1)
INITOATAeIC100+1)
INITEOPCINITOATA+l)
INITALARHCINITEOP+l)
ERROR4fINITALARH+l)
ERRORS (ERROR4+1)
ERROR6 (ERROR5+1)
ERROR7 CERROR6+U
ERROR8 (ERROR7+!)
EPROR9 (ERRORB +1)
ERRORA CERROR9+1)
E R.RORA (ERRORA+U
ERROReCERRORB+i)
ERRORO (ERRORC +1)
ERRORE (ERRORO+ 1)
f.RRORF CERP.ORE+l)
GENERATE(ERRORF+1)
SECCGENERATE'+1)
EQUIP(SEC+1)
CHAN(EQUIP+1)
UDCSTAT U04.
BDCCWACBDCSTAT+1t
TI ME (BnCCHA+1)
COLUMN CTIMEH)
BIAS(COLUHN+1)
EOFFLAG (AT AS+!)
OATAIFiEOFFLAG.l.
EOPIF(OATA!F+l)
ALAIF(SOC)
STATION(ALAIF+1)
COUNTERCSTATION+1)
ACTCCOUNTER+U
EXPC I\CT+1)
OFFSTF (E XP+2)
PAGE
F
,"
9
(--"""
(-
\. -
'----
C~PAOO
0211
PAGE'
poooa 5800
poone OBA6
0273
D27lt
0275 POOOD 0844
0216 POOOE 60DE
0217 POOOF 6800
P0010 0887
60211300
".)
DATEI 01/04/75
10
BEGIN
RTJ
...
...
COME HERE IF OPERATOR SETS P = lA, OR
TO RESTART TEST WHEN BIT 10 OF STOP/JUHP WORD IS SET •
CLR
A
INITIALIZE LOOP COUNTER.
STACOUNTER
THP
STA
RE'START
INITIALIZE TEST.
INITIAL
00271
F
40273
0027,.
·00215
00276
00277
PAGE
!.~
)
\
'\
}
)
10
)
' \}
C)
(--)
/
o
PAGE
CRPAOO
0279
0280
0281
,
0283
028,.
0285
0286
0287
0288
0289
0291
0292
0293
0294
0295
0296
0297
02QS
0299
0300
0301
0302
P001!
P001Z
POO13
POD 14
POOlS
P001G
POO17
'\
lj
08"
60F9
caF3
AOoB
0112
1800
0155
11
DATEI 01.104175
• SEC T ION
0
PUN C H
S T A TI C
C H € C K
.00000000000000000000000000000000000000000000000000000000000000000000000
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
00279
00280
002al
.INITIALIZE SE~TION 0
CLR
Sfen
A
STASEC
LOA·
SECTOT
ANDCONST
SAN
LOOPDO-·-l
JHP'
SEC1
00283
00284
0028S
00286
00287
00288
00289
SAVE SECTION NO. FOR ERRORS
SECTIONS TO TEST PARAMETER
CHECK BIT ZERO.
GO TO NEXT SECTION IF CLEAR.
·SECTION 0, LOOP.O
INPUT STATION 0, LEVEL 1 STATUS, EXPECT REPLY.
EXPECT READY STATUS (IGNORE PROTECT AND ENO-OF-FllE STATUS).
•
LOOPOO
lDQEQUIP
Q07 THRU Q1D :: EQUIPHENT NO., ..
QOO : i, aOl THRU Q06 ; o.
•
INP
INPUT STATION 0, LEVEL 1 STATUS
2
JHP·
EXPECT REPLY.
SOOA
(ERROR,.)
RTJERROR 4, INTERNAlREJECT~
(ERROR5)
ERROR 5, EXTERNAL REJECT.
RTJJMp·
LOOPOO
HANG ON REJECT.
STAACT
SAVE STATUS FOR ERROR MESSAGE
SODA
AND
DROP BITS 7 AND 10
=N!FB7F
•
POOln EOFA
P0019
POD1A
P001B
P001C
POO10
POOlE
P001F
POO20
0303 POO21
0304 POD22
0305 POO23
0306 POO?4
0202
180ft
5ftEC
54EO
18FA
600F
AOOO
F87F
B068
54EF
54E8
18F3
EO~-
RTJ- :
RT.J.JHP"
(lC100)
Loopeo
EXPECT READY STATUS.
ERROR 7 IF UNEXPECTED STATUS.
lOOP 100 TIMES AND UNTIL eIT 4
OF STOP/JUHP WORD IS CLEAR.
..
POO25 EOFA
POO26 0000
P0027 0202
POO28 1804
POO21)· 54EC
POO2A . 54F.D
POO23 18F9
POO2C 600F
POO20 AOOO
POO2E FB7F
0320 POO2F B066
0321 P0030 54EF
0322 POO~H 54£8
60271300
CONST
(ERROR])
"SECTION 0, LOOP!
f'
INPUT STATION 3 STATUS, EXPECT REPLY.
EXPECT READY STATUS.
LDQEQ. NO., QOO SET.
LOOPOl
EQUIP
IN(~
$00
SET Q05 AND QOo (STATION 3) •
INP
INPUT STATION"3 STATUS.
2
,JHp·
S01A
EXPfGT REPL Y.
RTJ(ERROR4.
ERROR 4. INTERNAL REJECT.
(ERRORS)
RT.JERROR 5, EXTERNAL REJECT.
JHP·
LOOP01
HANG ON REJECT.
SOl/\
STAACT
SAVE STATUS FOR ERROR MESSAGE.
AND
=N$F07F
DROP PROTECT AND EOF AITS.
0308
0309
0310
0311
0312
0313
0314
0315
0316
0317
0318
0319
EOR-
RTJRTJ-
F
o o
CONST
(ERROR'7)
nC100)
EXPECT READY STATUS.
ERROR 7, UNEXPECTED STATUS.
INCREHENT LOOP COUNTER.
00291
. 00292
00293
0029 ..
00295
00296
00297
00298
00299
00300
00301
. 00302
08303
, 0030 ..
0030S
00306
00308
00309
00310
00311
OD312
00313
00314
00315
00316
00317
00:518
00319
00320
00321
00322
PAGE
11
PAGE
CRPAOO
LOOP01
0323 P0032 18F2
0325
0326
0327
0328
0329
0330
0331
0332
0333
0334
0335
03.36
0337
0338
0339
0340
0341
0342
0343
0344
0345
03,.6
03'+7
03'+8
0349
0350
0351
(;352
0354
0355
0356
0357
0358
0359
0360
03&1
03&2
0363
036'+
0365
036&
0367
0368
0369
0370
POD3l
P003,.
P003S
POOlG
POOl7
P0038
P0039
0032'5
00326
00327
00328
00329
00330
00331
00332
00333
0033 ..
00335
00336
00337 '
00338
00339
·SECfION 0, LOOP 2
SELECT ALL FUNCTIONS CALL BITS IN A) ON STATION 0, EXP~CT
INTERNAL REJECT. IF W IS NOT ZERO EXPECT 1706 STATUS TO BE
BUSY AND REPLY-TERHINATE BUFFER
lOQEQUIP
Ea. NO., QOO SET.
LOOPi12
SET
A
SET ALL BITS IN A.
OUT
2
ATTEMPT FUNCTIONS ON STATION o.
RTJ(ERROR6)
ERROR 6, REPLY.
JHP.'
S02C
INTERNAL REJECT
RTJ(ERRO~5)
ERROR 13, EXTERNAL REJF.CT.
LoaCHAN
GET H
S02C
SQN
1
JMP.
S02B
SET UP Q TO INPUT eDC STATUS.
ADQCONST+12
S02A
GET BOC STATUS. '
INP
-1
STAACT·
SAVE FOR F.RROR MESSAGE.
CHECK REPLY AND BUSY 8ITS
ANn
:NS0102
•
EOFA
0804
0302
54EE
1602
54EO
EDFB
0151
1808
F077
02FE
600F
ADOO
0102
DOGC
54F7
EOFB
F076
02FE
0842
5'+E6
B068
54EF
POOlA
POOlB
POQ3C
POOlO
P003E
P003F
P0040
P0041
P0042
P0043
POD4'+
P0045
P004G
P0047
P004a
POOlt9
P004A S4E8
P004B 18E7
S02A!
<)02B
EORRTJlOOADQINp·
CLR
RTJEO~
RTJRTJJHp·
·SECTION
•
•
LOOP]!
POOItC EOFA
0060
P004E 08Q4
P004F -0302
P0050 54EE
P0051 -1802
POOS2 54ED
P005J EOFB
POOS4 0151
P0055 1808
POOS6 F077
POOS7 02FE
POOS8 600F
POOS9 AOOO
?OOSA 0102
PO 040
S03C
SO 3A
CONST+1
(ERRORF)
CHAN
CONST"11
-1
003.. 0
003 .. 1
EXP£CT BUSY STATUS.
ERROR F IF UNEXPECTED BOC STATUS
TERMINATE BUFFER.
Q
(STATUS)
CONST
CERROR7l
nel00)
LOOP02
003.. 2
003.. 3
003 ....
00345
003 .. 6
003 .. 7
003 .. a
GET STATION 0 STATUS.
EXPECT READY STATUS.
ERROR 1, UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIMES.
, 003 .. 9
00350
00351
00352
0, LOOP 3
SAME AS SECTION 0, LOOP 2 EXCcPT ATTEMPT FUNCTtONS
ON STATION 3.
LOQEQUIP
Ea. NO., 000 SET.
INQ
$60
SET-Q~5 AND QO& (STATION 3).
SET
A
SET ALL BITS IN A.
OUT
2
ATTeM~T FUNCTI6NS ON STATION 3.
RT J(ERRORf»)
ERROR 6, REPLY.
JMp·
S03e
INTERNAL REJECT
RTJ(ERRORS)
ERROR 5, EXTERNAL REJECT.
lO~CHAN
GET W
SQN .
1
JHP.
SO 3B
AOQCONSTt 12
SET fJP Q TO INPUT aoc S TA ruse
IN?
-1
GeT BDC STATUS.
STAACT
SAVE FOR ERROR MESSAGE.
ANQ
=N$0102
CHECK PEPlY AND BUSY BITS
00354
00355
00356
00357
00358
00359
00360
00361
00362
00363
00364
00365
00366
00367
00368
00369
00370
PAGE
F
:~
J
00323
LOOP 100 TIMES
...
&0271300
\
DATE I n1/0417S
12
\
'\
)
'\
)
12
)
(
\
'\
/
(
'\
./
(
\
~
~/
i
(')
~\.
(--'~
( ;
() 0
() () 0
CRPAllO
PI\GE
0371
0372
0373
0374
0375
0376
0377
0378
037Q
POO5B Dooe
P01)'jC 54F7
poosn EOFB
POOSE F070
POO5F 02FE
POOoO 0842
PODol SltE6
P0062 0008
POOfil SItEF
0360 POO64 54E8
0381 P006S 18E6
S03A!
EORRTJlOQAOQ-
S038
INP
CL?
RTJEORRTJRTJJI1P'"
l)
'---'
c---_)
DATEI
13
j)
C-)
(~~)
'-...--'
,r---
~'-)
GONST+l
(ERRORF)
CHAN
CONST+H
EXPECT OUSY STATUS.
ERROR F, UNCXPECTED BOC STATUS.
-1
TERMINATE SUFFER.
Q
(STATIJS)
CaNST
(ERRO~I)
CIC100)
LOOP03
GET STATION 0 STATUS.
EXPf.CT READY STATUS.
ERRO:~ 7, UNEXPECTED STATUS.
INCREMENT lOOP COUNTER.
LOOP 100 TIMES.
41NIT I ALlZE REST OF SECTION 0 TO CHECK STATION? (PUNCH) •
0387
0386
0389
0390 rOO6S EOFA
0391 P006Q FOOU
03Q2" PDOflL\ 0202
0393 POO68 1804
0394 POO6e 54F.C
039'i PO!lGD 54EO
0396 POOflE 18F9
0397 POO6F 600F
0398 POO70 Aooa
POO7! FB1F
0399 PD072 B068
0400 POO73 OFA9
0401 POO74 0161
0402 P007S BD6E
0403 P007G 5ltEF
0404 POO77 5ltE8
0405 po078 18EF
.."SEGTION
S04A
0407
Olt08
0409
0410
0411
0412
0413
0414
0415
0416
0417
"SECTION 0, LOOP 5
INPUT LEVEL 2. STATION 1 OR 2 STATUS, lXPECT REPLY.
EXPECT ZeRO STATUS.
LOOP05
EQUIP
LDQEQ. NO., QOO SET.
INQ
SET Q01 (LEVEL 2).
2
AOQSTATION
SET STA TION NO. BIT.
INP
INPUT LEVEL 2 STATUS.
2
'S05A
JMP·
EXPECT REPLY.
(ERROR4)
ERROR 4, INTERNAL REJECT.
RTJ(ERRO~5)
RTJERROR 5, FXTERNAL REJECT.
JMp·
lOOP05
HANG ON RfJZcr.
".
LOOP'l4
POO7Q
P007A
POO7S
POO7C
P0070
POO7E
f'OO7F
P0080
EOFA
0002
FonD
0202
1804
54r.C
54EO
18F8
60271300
F
SET Q06 (STATION 2).
0, lOOP It
INPUT LEVEL 1, STATION 1" OR 2 STATUS, EXPECT REPLY •
EXPECT REAOY STATUS.
LOQEQUIP
EQ. NO., QOO SfT.
ADQSTATION
SET STATION NO. BIT.
INP
2
INPUT STATION 1 OR 2 STATUS.
Jl1p.
S04A
~XPEC T REPL Y.
(ERROR4)
RT.JERROR 4, INTERNAL REJECT.
(ERRORS)
RT.JERRO~~ 5, f.xn':RNAL REJECT.
Jt1P'"
LOOP04
HANG ON REJECT.
ACT
STASAVE STATUS FOR ERROR HESSAGE.
AND
=N1iFB7F
DROP PROTECT AND (OF RITS.
EORQlS
CONST
EORRTJRrJJI1P·
1
CONST+.3
(ERROR7)
nCl00)
LOOP04
sap
>Iy.
$40
STATION
(~)
(')
_______J
'-...-/
1/04/'75
0383
0384 POO6O OC40
0385 POO67 4COD
EW:l
STQ-
(j
00371
00372
00373
00374
00315'
00316
oa'371
00318
0037Q
00380
00381
00383
00384
00385
00387
00388
00389
00390
00391
00392
00393
00394
00395
00396
00397
00398
fXPECT READY STATUS.
00399
CHECK WHETHER STATION 2.
EXPECT DATA STATUS IF STATION 2.
ERROR 7, UNEXpECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIMES.
00401
00 ..02.
9
00400
00lt03
001t04
001t05
00lt07
80lt08
00lt09
00410
00411
00412
00413
00414
00415
00416
00417
PAGE
13
c)
C~'~,
I-~'.
\
)
C
GRPAOO
0418
0419
0420
0421
POOH!
P0082
POO83
P0084
PAGE
600F
54FD
S41::8
18F4
SGSA
P0065
P008n
POO87
POO81}
P008Q
PODAA
POO80
pooec
POO80
POO8E
POn8F
POO90
POOg!
POO92
P0093
POO94
POO9S
EOFA
FOOD
OA01
0302
1804
54EC
54EO
18F8
EOOD
54E6
13068
OFAQ
0161
BG6E
54EF
5ltES
18EF
S06A
--'\
)
,
(
\
j
REPLY •
JHP"
SOnA
RTJRTJJHP"
LOQRTJEOq-
(ERROR4)
(ERR!JR5)
LOOP06
STATION
(STATUS)
CONST
CONST+3
(ERROR7)
ne100)
LOOPO&
CHECK WHETH~R STATION 2.
EXPECT DATA STATUS IF STATION 2.
ERROR 7, UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIMES.
q
1
Ql~
.SECfION 0, LOOP 7
...
CL~AR INTERRUPT, EXPECT REPL V.
GET STATION 1 OR 2 STATUS, EXPECT REAOY STATUS.
LOOPIJ7
EQ. NO., QOO SET.
LOOEQUIP
SET STATION NO. BIT.
STATION
AOOENA
2
SET A1l1.
CLEAR INTERRUPT.
OUT
2
JM?~ .
S07A
EXPECT REPL Y.
ERROR 4. INTERNAL PEJECT.
RTJ-(ERROR'"
ERROR 5, EXTERNAL REJECT.
RTJ(ERRORS'
HANG ON REJECT •
JHP"
LOOP07
SET ST~TION NO. BIT.
LOQSTATION
S07A
(STATUS)
GET STATION 1 OR 2 STATUS.
RTJEXPECT READY STATUS.
CONST
EORQL:>
9
SQP
CHECK WHETHER STATION 2.
1
eXPECT DATA STATUS IF STATION 2.
CONST+3
EOR(ERROR7)
ERRO~ 7, UNEXPECTED STATUS.
RTJINCREMENT lOOP COUNTER •
.CIC100)
RTJlOOP07
LOOP 100 TIHES.
JMP"
..
P009& EOFA
P0097 FOOD
4'0098 OA02
POO99 0302
PD09A. 1804
P009B 5ltEC
POD9C 54EO
P009D '18F8
P009E EOOD
POO9F 5ltE6
POOAO 8068
POOA1 OFA9
POOA2 0161
POOA3 B06E
POOA4 54EF
POOAS 54E8
POOA6 16EF
60271300
;
~XPECT
EQ. NO., 000 SET.
SET STA nON NO. aIr.
SET AOO.
CLEAR CONTROLLEP.
EXPFCT REPL V.
ERROR 4, INTERNAL RE~ECT.
ERROR S, EXTE~NAL REJECT.
HANG ON REJECT.
SET STATION NO. BIT.
GET STATION 1 OR 2 STATUS.
FXPECT READY STATUS.
SQP
EORRTJRTJJHP'"
'0 ... 6'
-\
SAVE STATUS FOR ERROR MESSAGE.
ERROR 8, UNEXPECTED LEVEL 2 STAT
INCREMENT LOOP COUNTER.
LOOP 100 TIMES.
ACT
(ERRORS)
nr:l00)
LOOPO!)
GET STATUS, EXPECT READY •
LOQEQUIP
AOQSTATION.
ENA
1
OUT
2
LOOP06
0444
Oltlt5
0441
Olt48
0449
0450
0451
0452
01t53
. 0454
. 0455
0456
0457
0458
0459
0460
0461·
0462
0463
STARTJRTJJMP"
0, LOOP 6
..."SECTION CLEAR
CONTROLLER,
0423'
042,.
0425
0426
0427
0428
0429
0430
0431
0432
0433
0434
0435
0436
0437
0438
0439
Olt40
0441
0442
OATI:l fll/04175
14
\,
)
00418
00419
00420
00421
00423
00424
00425
00426
00427
00428
00429
00430
00431
00432
00lt33
tJOlt3 ..
00 ..35
00 .. 36
004a7
00438
00439
00440
00ft41
004112
004.. 4
00445
00 .... '
00,...1
00lt48
00449'
. 00450
. 00lt51
00 ..52
001t53
00lt54
00455
00456
00"'7
00lt58
00459
00lt60
00461
00462
tJOlt63
PAGE
F
)
"-
\
/
\
/
\
r
~-
(
\
/
/
\.
)
)
"\
"-
;'
14
"'
j
"\
)
"\
)
(
-'\
\
o
C) ()
CRPAOO
PAGE
04&5
04&&
0461
~SECTION
•
•
i5
C)
(
'--
OATEI 01/0,.,75
(ERROR7)
EQUIP
STATION
1
2
5080
(ERROR4)
(ERRORS)
S08C
(IC100).
LOOP08
ERROR 7 • UNEXPECTED. STATUS.
Ea. NO~, QOO SET.
SET STATION NO. BIT.
SET.AOO.
CLEAR CONTROLLER.
EXPECT REPLY.
ERROR .4,. INTERNAL REJECT •.
ERROR S, EXTERNAL REJECT.
HANG ON REJECT.
·INCR£HENT LO·OP COUNTE~ •....
LOOP 100 T~HES.
·SECTION 0, LOOP 9
" . .' . _............. ·· .. REQUEST EOP .. INlERR..uP.T .... EXPEC.T. REPLY. ,EXPECT NO· INTERRUPT.
·0506
0507
•
0508 POOCC 54EA
LOOPC9
a51l9 Poaco.. 5ItE·9. ....... . ,
OSlO POOCE 5~EB
. ' 0511· POOCF EOFA
S09A
_._ .... 0-512.. POOOO. ·FDOD
0513 POOD! DAD8
0514 P0002 0302
60271300
F
C)
()
0, LOOP 8
REQUEST DATA INTERRUPT, EXPECT REPLY. EXPECT NO INTERRUPT.
GET STATUS, EXPECT READY STATUS. CLEAR CONTROLLER$ EXPECT REPLY
RTJ(INITOATA)
INITIALIZE DATA INTERRUPT.
RTJ(INITEOP)
INITIALIZE EOP INTERRUPT.
RTJ(INITALARM)
INITIALIZE ALARM INTERRUPT.
LOQEQUIP
EQ. NO., aoo SET.
AOQSTATION
SET STATION NO. BIT.
ENA
4
seT A02.
OUT
2
DATA INTERRUPT REQUEST.
JHp.
S088
EXP~CT REPLY.
RTJ(ERROR4.)
ERROR 4, INTERNAL REJECT.
RTJ(ERROR~)
ERROR 5, EXTERNAL REJECT.
JHp¥
S08A
HANG ON REJECT.
LOASTATION
ANDCONST+6
CHECK WHETHER STATION 2.
SAZ
2
EXPECT NO DATA INTERRUPT IF NOT.
RTJ(ERROR9)
ERROR 9, NO DATA INTERRUPT.
JriP¥
~+2
RTJ(ERRORA)·
ERROR A, UNEX~ECTEO DATA INT.
RTJ(ERRORe) .
ERROR CIFEOP INTERRUPT.
RT J(ERRORE)
ERROR E IF ALARH INTERRUPT.
LDQSTATION
SET STATION NO. BIT.
RTJ(STATUS)
GET.STATION 1 OR 2. STATUS.
EORCONST
EXPECT ·READY STATUS.
QLS
9
SQP
2
·SKIP IF· NOT STATION 2.
.
EOR
=N$OOOC
EXPECT DATA, INTERRUPT STATUS.
0468 POOA1 54E9
LOOPO~
0469 POOA8 S4EA
0410 POOA9 54EB.
0471 POOAA EOFA
S08A
0412 POOAS FOOD
0413 POOAe OA04
0,.74 POOAO 0302
0415 POOAE 1804
0416 PODAF 54EC
0477 PODeo S4EO
0478 PODBl t8F8
· ·0419 P0082 COOO· $086
0480 POOB3 AD71
0481 pooe,. 0102
0,.82 PODBS 54F1
0483 P0086 1802
0484 POOB1 S4F2
.. 0485 P008S 51tF4·
01t86 POOB9 S4F6
0487 P008A EOOD.
.01t88.POOSB SItE6'0489 POOBe BD68
01t90 PooeD OFA9
· OIt91POOBE· C1ft2··
0492 P008F 8000
POOCO OOOC
.. ···-.0493. POOC-i. 5.1t£F-.... .
RT4,..
O'9~POOC2 EOFA
S08e
LDct0,.95. POOC3 FOOD
ADQ.-.~.-- 04M·POtJC4 OADi..:...
'- , .. £NA .....
0497 pooes 0302
OUT
01t98 POOC6 1801t
JHP.
.. 04Q9POOC7 5.ltEC .
. .. RTJ,..
0500 _00C8 5'EO
RTJ0511 poa~9 18F~JHP.
. 0102. ~QllCA·. SItE&'. ~ SC8D
..R.T J- .
0503 POOCB 180e
JMP.
· 8505
o
()
GET STATUS. EXPECT REAOY. CLEAR CONTROLLER. EXPECT REPLY.
RTJ'INIT~OP)
INITIALIZE EOP INTERRUPT.
RT J.. .
CINITOATA1 ..... INITIALIZE DATA INTERRUPT.
RTJ(INITALARH)
INITIALIZE ALARM INTERRUPT •
LOQ'EQUIP
EG. NO., QO 0 SET.
ADQ-. STATION
.. SET STA TION ·tW.· .. BIT.
ENA
8
SET A03.
.
OUT
2
REQUEST INTERRUPT ON fOP.
00465
00lt66
00467
00468
00469
00 .. 70
00,.71
00412
00473
00474
00475
00476
'001t77
00478
00lt79
00480
00481
00482
00483
00484
··QOlt85
001t86
00487
. 00ltS8
00lt89
00490
- 00491·,
00"92
. ......001t93 ...
00lt9 ..
00lt9S
90lt96
00497
00498
..
.... ~..
.
-',
',-
-.•. -~.. ..-..~.----..:..:.--.....- .
-,-.
OO~99.... '.
0050.0
00581
·00582·
08503
00505
.. 00506,
..
00507
00508
4·0509
. 00510
00511
00912
00513
/
00514
PAGE
15
,
... - ..-'-.-
..
- ..... -.:.. ...........
-..:..~-~~~ .. ,
r
PAGE
C,~PAOO
0515
0516
0517
0518
0519
0520
0521
0522
0523
0524
0525
0526
0527
0528
0529
0530
0531
0532
0533
05:J4
0535
0536
0537
0538
PO 003
POOD4
POOD5
PDOD6
POO07
POODa
POOD9
POODA
poooe
poooe
POODO
POOOE
POOOF
PODEll
POOEl
POOE2
POOE3
POOE4
POOES
PODE6
POOE7
POOE8
POOE9
POOEA
1804
54F.C
54ED
18F8
54F4
54F2
54F6
JI'fP·
RTJRTJJH13.
RTJRTJRTJLOORTJEORQLS
SQP
EORRTJLOQADOENA.
OUT
JHp·
IHJRTJJMP·
RTJJMP·
scqa
1:000
54E6
806B
OFA9
0161
806E
54F.F
EO FA
FOOO
DAOl
0302
1804
54EC
54ED
18F8
5ltE8
18E1
S09C
SOqO
SOt;lS
(ERROR.It)
(ERRORS)
S09A
(ERRORC)
(ERRORA'
(ERRORE)
STATION
(STATUS)
CONST
9
1
CONST+l
(ERROR7)
EXPECT REPLY.
ERROR.It, INTERNA~ REJEC T.
ERRO~ 5, EXTERNAL REJECT.
HANG ON REJECT.
.ERROR C IF EOP INTERRUPT.
ERROR A IF DATA INTERRUPT.
ERROR E IF ALARM INTERRUPT.
SET STA TION NO. BIT.
GET STATION 1 OR 2 STATUS.
EXPECT READY STATUS.
CHECK WHETHER STATION 2.
EXPECT DATA STATUS IF STATION 2.
ERROR 7, UNf.XPECTED STATUS.
EQ. NO., QOO SET •.
SE r STA nON NO. 81 T.
SET ADO.
~QUIP
STATION
1
2
ClFA~
CO~TROlLER.
EXPECT REPLY.
ERROR 4t INTERNAL REJECT
ERRO~ S, EXTERNAL REJECT.
HANG ON REJECT.
I~CR~MENT LOOP COUNTER.
LOOP 100 TI MES.
S090
(ERROR,.)
(ERROR5)
soqc
CIC100)
lOOP09
·SI:CTrOU 0, LOOP 10
REQUEST ALARM INTERRUPT, EXPECT REPLY. EXPECT NO INTERRUPT.
•
GET STATUS, EXPECT REAOY. CLEAR CONTROLLER, EXPECT REPLY.
INITIALIZE ALARM INTERRUPT.
UNITALI\RtU
LOOP~A
RTJ(lNITOATAJ
INITtALIZE DATA INTERRUPT.
RTJ-·
(INITEOP)
INITIALIZE EOPINTERRUPT.
RTJEQUIP
EO. NO. 000 SET.
~OAA
lUQSET STATION NO. BIT.
STATION
AoaSET ~O4.
ENA
UO
REQU~ST INTERRUPT ON Al.ARM.
OUT
2
EXPECT REPLY.
SOAB
JHP·
(ERROR4)
ERROR 4, INTERNAL REJECT.
!HJ(ERROR5)
ERRO~ 5, EXTERNAL REJECT.
RTJHANG ON REJEC T.
SOAA
JMP"
ERROR E, UNEXPECTED ALARM INT.
(ERRO~E)
SflAB
RTJ(ERROR~ )
ERROR A IF UAT'A INTERRUPT.
RT.J(ERRORC)
ERROR C IF EOP INTERRUPT.
RTJSTATION
SET STATION NO. BIT.
LOO(STATUS)
GET STATION 1 OR 2 STATUS.
RTJEXPECT REAOY STATUS.
CONST
EO~QLS
9
~QP
CHECK WH~THF.R STATION 2.
1
EXPECT DATA STATUS IF STATION 2.
EOI(CONST+3
ERRO~ 7, UNEXPECTEO STATUS.
(ERROR7.
P.T ..'EQ. NO., QOO SET.
EQUIP
SCAC
LOQSET STATION NO. BIT.
STATtON
Aon-
0540
0541
0542
0543 POOES 54E9
0544'POOEC 54E9
0545 PODEO 5ltEA
0546 POOEE EOFA
0547 POOEF FOOD
0548 POOFO OA1O
0549 POOFl 0302
0550 POOF2 1804
0551 POOF3 54t:C
0552 POOF4 54ED
0553 POOF5 18F8
0554 POOF6 54F6
0555 POOF7 54F2
055'6 POilF8 54FIt
0557 POOF9 ·£000
0558 POOFA 54E6
0559 POOFB B069
0560 POOFC OFA9
0561 POOFO 0161
0562 POOFE ROGE
0563 POOFF 54EF
05&4 POlOG EOFA
05&5 POI01 FOOO
60271JOO
DATEI 01/0417t;
16
..
'----~I
..
}
/
r
\
\
;
\
')
00540
005.. 1
005.. 2
005.. 3
00544
00545
0051t6
005"7
00548
005 .. 9
00550
00551
00552
00553
0055 ..
00555
00556
00557
00558
00559
00560
00561
00562
09563
00964
00565
PAGE
F
~,
-~-----..,-
00515
00516
08517
00518
00519
00520
00521
00522
00523
Olt521t
00525
00526.
00521
00528
00529
00530
00531
00932
00533
0053 ..
00535
00536
00537
00538
\
~
"
\
\
"
'\)
'\
'\
"-
)
'\
/
16
'\
.r~
)
/
.,-
')
I'
"
o
(\
"-
.'
CRPAOO
OS&&
05&7
.. 0568
05&9
0570
0571
0572
0513
PAGE
POI02 DAOl
P0103 0302
POI04 l8~4
POI0S SltF.C·
POI06 54EO
POI07 18F8
POloe S4E8
POI09 18El
0575
0576
0577
0578 P010A
0519 POloe
0580 P010C
0581 POI0D
·0582 POI0E
0583 P010F
.. "··0584 .POlIO
0585 POlt1
0586 P0112
. ... . 0587 P0113
0588' POll ..
0589 POlts
_. ,0590.POl16
0591 P0117
0592 POll8
..... 0593 .PO.t19
059,. POllA
SOAO
ENA
OUT
JMP"
RTJRTJJHP·
RTJJHP·
r----) ()
\.
OATEI
17
1
2
SOAD
(ERROR4)
(ERRORS)
SOAC
nCl00)
LOOPOA
()
o1/0lt/75
SET AOO.
CLEAR CONTROLLER.
EXPECT·REPLY.
ERROR It, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
INCREMENT LOOP COUNT.
LOOP 100 TIMES.
·... SECTION 0, LOOP 11
REQUEST OFFSET, EXPECT REPLY.
GET STATUS, EXPECT READY.
EDFA .. LOOPOB . LDQ-,
EQUIP
EQ. NO •• QOO SET.
FOOD
ADaSTATION
SET' STATION NO. BIT •.
C07l
CONST+8
LOASET A08.
0302
OUT'
2
OFFSET.
JHP··
1804
SORA
E XP€CT REPL Y•
(ERROR4)
54EC
RTJERROR 4, INTERNAL REJECT.
5,.EO
RTJ~ .
CERRORS)
ERROR 5, EXTERNAL REJECT •
JHp·
l8F8
LOOPoe
HANG ON REJECT.
EOOO
SOBA
LoQSTATION
SET STATION NO. BIT •
(STATUS)
54E6
RTJGET.STATION 1 OR 2 STAT.US.
8068 .
CONST
EOREXPECT READY STATUS.
DFA9
QLS
9
...SQP
oi61.
1
CHECK:WH£THER·ST·ATION 2.
B06E
EOR.CONST+3
EXPECT DATA STATUS IF STATION 2.
5ltEF
RTJ(ERROR])
ERROR 7. UNEXPECTED STATUS.
5#tEa
RTJ~
(IC100)'
.. I HCRE HE NT . lOOP COUNT .....
18EF
JHP·
LOOPOB
lOOP 100 TIHES.
....
(
00S6&
00567
00568
00569
00570
00571
00572
00573
00575
00576
00577
00578
00579
00580
00581
OO~2
00583
·005a,.
00585
00586
00587
0.5'8
Od589
08590
00591
00592
. .00.593 ......
. 0859,.
.
-~'.
.
._;
~,,- . . -.. _,_~"' . :~-. .~. _~:~~~~l':::i~.:.::.
·SECTION o~ LOOP 12
08596
::., SELECT ALLAJNOEFI.NEO.f'UNCTIONS, EXPECT . REPLY •..
............ ".
1l05c)1.~.
059ft
.'
GET STATUS, EXPECT READY.
0599 POtts. EOFA
L~OPOC
. LOQEQUIP
EQ. NO., Qio SET
0.S99
.. ·O~o.D .. POU,C.FODO ......... -. .... ... AOQ~
. STATION."
SET.. STATION.' NO •. BIT.··
.. ··.'··'•• 00·....
0601 POt to coon
LOA
=N$FE60
SET A05,AO~,A09 THRU A15.
00601
POtlE FE6D
.......... .....OUT
, .. 2 .....
. ,'-" .0602 P.011F.O.lQ2.
SELECT.ALLUNOEFINED FUNCTIONS • .... :.D0642
0603.P0120 1801t
JHP"
SOCA
EXPECT REPL Y.
00603
060 .. P012l 5'+EC
RTJERROR ~, INTERNAL'REJECT.
0060 ..
CERROR")
. .. ' ..... RTJ'"!
(ERRORS)...... .
...~ ..06.05. P.Q.l.22.. S,.ED
.........816'.5
ERROR .5, EXTERNAL REJECT •
JHp·
0606 POt23 18F7
LOOPOC
HANG ON REJECT.
00606
0607 P0124 EOoO
SOCA
LOQSET STATION NO. 8IT.
STATION
00607
(STATUS), .
. GET STATION .i.OR 2 STATUS._ ... . ......... 0860.1 ..
...u06o.S... Po.t25. 54E6...
'-_'.' ..Rr J-:.006D~ .
0609P8l26 B068
EOR,CONST
. EXPECT READY STATUS~
. 0610 P012T'OFA9
QLS
9
.00618
SQP.
". -G611.P·01. 28 .. .0161 .....
1 ............ ".CHECK ,WHETHERSTATIOH ~..
. ..... .04611. ..
CONST+3
EXPECT DATA STATUS IF STATION 2.
00612
0612 P0129 B06E
EOR0613 P012A 54EF'
RTJ(ERROR7l
ERROR 7, UNEXPECTED STATUS.
00613
0596
... .. ..Jl5.91". .......
.................~
60271300
F
"01."
PAGE
17
-
-. . . .
~
- .........
•••
~
•
_
~' ..... :;--
~
',' - .•••• ".' - . ' ••• ~."'t,"":."
......
~
,. . . . .
~
.. _ . _ .. 0-
~
: . •••• _
.. :",:•• ,,:::-:;:.~
•••
~ :;;.-...~.~
••
. . . . . ..:.. ••
CRPAOO
PAGE'
0614 P012B 54E8
061S P012C 18E,E
RTJJHP'"
00617
..
0620
0621P012D
0622 P012E
0623 P012F
0624 P0130
0625 POlll
0626 P0132
P0133
0621 P013,.
0628 POilS
0629 P0136
0630 P01l7
0631 POll8
0632 P0139
0633 POllA
0634P013B
0635 POllC
0636 POl3o
0637' .P01lt:
0638 P013F
0639 POlitO
0640 P01 .. i
0641 P0142
0642 P0143
0643 P014"
0644 P0145
P0146
0645,P0147
06"6 P0148
. 0647 POl49
06 .. 8 P014A
06"9 P014e
0650 P014C
D651P0140
0652 P014E
0653 P014F
065" PO 150
0655 POlS!
54E9
54EA
54E8
EOFA
FOOD
COOO
FF7F
0302
1801t
54EC'
S4EO
UJF7
SODA
OFA9
0162
54Fl
1802
5ltF2
5ltF4
54F6
EOOO
5ltE6
806B
OFA9
0162
BODO
OOOC
54EF
EOFA ,sooe
FOOD
OAOl
0302
1804
54EC
54EO
l8F8
5000
'54E8
1808
0657 P0152 COOO
0658 P0153 AD 71
0659 P0154 0110
60271300
)
00614
00615
00618
00619
·00620 .,
00621
.yo
0619
\
INCREMENT LOOP COUNTER.
LOo.P 100 TIMES.
CIel00)
LOOPDC
"'SECTION 0, LOOP 13
SELECT ALL FUNCTIONS EXCEPT FEED, EXPECT REPLY.
EXPECT NO INTERRUPT. GET STATUS, EXPECT REAOY.
...
CLEAR CONTROLLER, EXPECT REPLY.
RTJCINITOATAl
INITIALIZE DATA INTERRUPT.
lOOPOO
RTJ. (INITEOP)
INITIALIZE EOP INTERRUPT.
RTJ(INITALARH'
INITTAlIZE ALARM INTERRUPT.
LOQEQUIP
EQ. NO., aDD SET.
SODA
AOQ~
STATION
SET STATION NO. BIT.
LOA·
=NSFF1F
seT ALL BITS EXCEPT A01.
0611
0618
\
OATta 01/04/75
16
\,
J
OUT
JHP'"
RTJRTJJHp· '
QLS
SQP
RTJJHP·
RTJRTJRTJLOQRTJEORQlS
sap
RTJLOQ-.
AOQENA
OUT
JHP'"
RTJ- .
RTJJHP· .
RTJJHP'"
00626··
00627
- 00628
, 00629'
.00630
,80631
00632
80633
CHECK WHETHER STATION 2.
ERROR 9 IF' NO DATA ' INTERRUPT,..,·
2
(ERI:tOR91
"'+2
(ERRORA)
(ERRORC} .
(ERRORE)
STATION
(STATUS)
CONST
00634· ,
01635
ERROR A IF DATA-INTERRUPT.
ERROP. C, UNEXPECTED EOP INT.
ERROR E, ALARM INTERRUPT.
SET STATION NO. BIT.
GET STATION 1 OR 2 STATUS.
EXPECT REAOY STATUS •.
. 00636
'e0637
00638
00639
aO'fto
CHECK WHETHER STAttON 2.
EXPECT DATA, INTERRUPT STATUS.
(ERR.OR])
EQUIP
STATION
ERROR 7, UNE XlIE CT.ED STATUS.
EQ. NO.,QOO SET.
'
SET STATION NO. 8*T~
'S€T ADO.
CLEAR CONTROLLER.
EXPECT REPLY.
ERPOR " INTERNAL REJECT.
ERRO~ 5, EXTER'NAlREJECT.
HANG ON REJECT.
. INCREMENT LOOP 'COUNTER.
LOOP 100 TIHES.
1··
2
SOOO
(ERRORltl
(ERROR5)
sonc
(ICtOD)
LOOPOO
-OO'It~
006....
,006'.5·
:00646 .
006.. 7 .
,-
----0I-61t&. -., -.- ..... ,
, 006.. 9
'00650
00651
006S2
00653
08654
00655
00657
CHECK WHETHER STATION 2.
SKIP lOOP 14 IF STATION 2.,
00658
00659
PAGE
F
\
,----....,
\
)
!
\
\
}
\
)
'.
006 .. 1
. 006.. 2
9
STATION
CONST+6
SECOA---1
LOAANOSAN"
00624
00625
ALL FUNCTIONS EXCEPT FEEO.
EXPECT REPLY.
ERROR 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
2
SODa
(ERROR4-)
(ERROR5)
SODA
9
2
=N$OOOC
EOR
08622
00623 '
)
18
;
()
1
eRPAOD
06&1
0662
0663
0664
O&IlS
0666
0667
06&8
0669
0670
0671
0672
0673
0674
0675
0676
PAGE
/~----\
(
\.'.
I
--'
()
C)
DATEI 01/04175
113
·SEr-rION 0, LOOP 14
•..
P015?
P015;
POtS7
P0158
P01S9
P01SA
P01S0
POise
P01S0
POl5E
P015F
P016n
P0161
0678
0679 P0162
P0163
Ob80 POt64
0681 ~016S
0682 P016E)
0683 P0167
0684 P0168
0665 P0169
0686 P01GA
P01tlB
LOOPI1 t·
EOFA
DUFE
FOOD
0202
54EE
54EC
OUOO
fOOD
54E6
U116B
54EF
SltE8
18FJ
5'300
0618
1804
COF9
0105
l8QF
COF9·
0112
1800
FEA5
6027130(1
F
"END f)F
SECOA
ATrEMPT DATA INPUT, EX~ECT EXT£RNAL REJECT.
GET STATUS, EXPECT READY •
EQUIP
EQ. NO., QOO Sf: T.
LOOINQ
-1
CLEA~ QOO.
ADQSTAT!ON
SET STATION NO. BtT.
INP
2
ATTE~PT OAT~ INPUT.
(ERRO~6)
RTJERROR 6, UNEXPECTED REPLY.
:~T J(ERROR4)
ERROR 4, INTERNAL REJECT.
NOP
0
EXPECT EXTEPNAL REJECT.
STATTON
LUQSET STA TION NO. BIT.
(STATUS)
GET STATION 1 OR 2 STATUS.
RTJEORCONST
EXPEr.T READY ST~TUS.
(ERROR7)
RTJERRO!"! 7 t UNFXPECTEO STATUS.
(leu 0)
RTJINCREMENT LOOP COUNTtR.
LOOPOE
JHP"
LOOP 10 a Tl MES.
SECTlor~
RTJ
JHPIJI
LOASAZ
SF.C 0 '=I
JMP·
LOASAN
JM?
0
ENOSfC
ENO-OF-SECTION STOP.
SEcae
F?EPEAT SECTION.
GO TO NEXT SECTION
SEC
SEC1-"·1
SEC2
SEC
SEC1-··1
SECO
006&1
00662
00663
00664
00665
00&66
00667
00668
00669
00670
00671
00672
00673
00674
00675
00616
00678
00679 .
00680
00681
00682
00683
006S ..
00685
00686
CRPA1JO
PAGE
DATta 01/04175
20
.........................................•.....•............•...........
0688
0689
0690
• SEC T ION
1
REA 0 ERST A TIC
C H EC K
·11111111111111111111111111111111111111111111111111111111111111111111111
0692
·INITIALIZE SECTION 1
SEC1
LOA
SEC TOT
0693 pai6C CROO
P0160
0691t'P016E
0695 P016F
0696 P0170
0697 P017!
0698 P0172
0699 P0173
0700 P017,.
P0175
FE99
A06C
ANOSAZ
ENQ
STQ-
0106
OC20
'tODD
CONST+1
SEC2-.-1
$20-
00&&&
0068'
·00690
GET SECTION PARAMETER.
00692
00693
CHECK FOR BIT 1.
00694
GO TO SECTION 2 IF NOT SET.
SET Q05 (STATION 1).
STATION
1
SEC
LOOPOIt
ENA
STAJHP
DA01
60F9
1800
FEF2
-
00695
00696
00697
00698
SAVE SECTION NO. FOR ERRORS~
GO TO SECTION 0, LOOP It.
-·00699,
00700
!
60271300
,--~
j
f
- -')
!
'\
/
'\
)
F
PAGe:
'\
\
,
\:
~
"
"\
/
"\
I
\
"j
20
..,
\,
j
j
/
'.
-
\
(--)
,~
(~
\.
/
r>
('!
\.
-
C) C)
(')
CRPAUn
PAGE
-"
~
(
\
}
(-)
(~)
()
C) c)
caoo
00702
00703
00701t
·INITIALIZE SECTION 2
LOA
SECTOT
SEC2
01) 706
00707
FEaF
A060
0112
1800
0089
OAD2
60F9
OC40
4000
~
ANDSAN
JMP
ENA
STAEN':!
STQ-
~
CONST+2
GET SECTION PARAMETER.
CHECK FOR BIT 2.
2
SEC3
GO TO NEXT SECTION IF NOT SET.
2
SEC
$40
STATION
SAVE SECTION NO. FOR ERRORS.
SET Q06 (STATION 2) •
·SECTION 2, LOOP 0
SF.LECT FEfO AND ALL INTERRUPTS, EXPECT REPLY.
'If
WAIT 120 MILLISF.CONOS MAX FO~ COLUMN 1 DATA STATUS.
EXPECT STATUS TO OE OATA, INTt::f~RUPT , nusy, READY.
¥
EXPF.CT DATA INTERRUPT.
'fOUTPUT nATA (ZEROS), EXPECT REPLY.
:f.
G~T STATUS, EXPECT 8USY AND ~EAOY.
LOOP FOR COLUMNS 2 THRU 80 WITH & MILLISECONDS MAXIMUM WAIT
OETHEEN C"LUMN~.
WA If (, MSECS MA X FOR EOP S TA TUS.
•4'EXP~CT STATUS TO BE EO?, I NTFRRUPT , READ Y.
EXPECT EOP INTERRUPT.
EXPECT NO ALARM INTERRUPT.
'"
CLEAR INTERRUPTS, EXPr:CT REPLY.
'Jf."
GET STATUS, EXPECT EOP ANO READY.
CLEA~ CONTROlL~R, EXPECT REPLY.
GET STATUS, EXF~CT EOP AND REAOY.
. -80
LOOP?G
ENA
STACOLUMN
INITIALIZE COLUMN COUNTER.
RTJ
OLYPAR
DELAY
0716
0717
0718
..
J119
~
n72D
0721
0722
0723
0724
0725
0726
'J727
.
..
.
0726
072Q
0730
0731
11732
0733 P0181l CAAF
0134 POt8l 6(107
0735 POlS? S8tlil
P0183 0719
0736 P0184 1)81i0
P018~ 096E
0737 P0180 EorA
0736 P0187 0040
0739 P0188 coo:)
P01S9 O\)9F
0740 P018A 0302
0741 PG18S 1804
0742 P018C S4EC
0743 POleo 54~0
0744 P018E 18F7
0745 P018F O~44
f,0271300
~
S70/,
S?U B
0 C-) L)
~,
00708
00709
00710
00711
00712
00713
00714
00716
00711
00718
00719
00720
00721
00722
00723
00724
00725
00726
00727
007ze
00729
00730
00731
00732
00733
00734
00735
RTJ
MOTDP
FEED A CARD TO START HOTOR.
00736
LDf{ ..
EQUIP
$40
=NfOPC}F
EO. NO., aDo SET.
SET flOG CSTATION21.
SET A07, A04 THRU ADO.
00737
00738
00739
OUT
JMP"
RTJRTJJHP"
2
FEEO,CLEAR,ALL INTERRUPTS.
£XPF,l~ T REPL Y.
E'PROR 4, INTERNAL REJEC T.
ERROR 5, EXTERNAL REJEC T.
HANG ON REJECT.
CL;~
.1\
0071t0
00741
007'+2
007 .. 3
00744
007.. 5
INQ
LnA
F
,----'
.. S
F tEO ,
C T ION
2
I N T ERR U P T
- PUN C H
""222 2222222222222222222222222222222222222222222222222222222222222222222
~
0703
0704
(')
DATEI 01/04/71:5
21
..... .. ...... .............. .........................................•
:1702
0706
0707 PD176
PU177
0708 P0178
0709 P0179
0710 P017A
P017S
0711 P017C
0712 P0170
0713 P017E
0714 P017F
()
(
S208
(ERROR4)
(ERROR')}
S20A
PAGE
21
(
PAGE
CRPAOO
0746
0747
. 0748
0749
0750
0751
0752
0753
P019D 6006
P0191 54EA
szoe
P019Z oe40
P0193 54£6
P0194 E007
P0195 0050
P0196 0143
P0197 BOOO
P0198 0003
0754 P0199 54EF
0755 P019A 54£9
0756 PD19B 54EB
S200
0757 P019C 54E5
0758 P0190 5800
P019E 0720
0759 P019F 0006
0760 P01AO oe40
0761 P01Al 54E6
. 0762 P01A2 E007
076:J P01AJ 015A
076,. P01A.. OFCB
0765 P01A5 0133
0766 P01AG E006
0767 P01A 7 0141
0768 P01A8 18F3
0769 PU1A9 OFC5
S201:
0770 P01AA BODO
P01AB 0015
0771 PolAG 5ltEF
0772 P01AO 1825
S20F
0773 P01AE OFCC
0774 P01AF 0133
0775 P01BO E006
0776 P0181 0141
0777 P01Bl l8E9
S20G
0778 P01Bl OFC4
.0779 P01Bit ROOD
P01BS 0000
0780 P01B6 E007
0781 PolS7 0050
0782 P01S8 ollt1
0783 POlB9 F.UJ6C
0784 P01SA 54EF
0785 P01SS 0007
0786 P018e.C056
0787 P01BO oF42
0788 P01SE oe03
0789 P01BF aae?
.. • .. • .. ·UO··· .. • .... •••
.. • .... ··RL··· ........ • .. •
0790 P01Cl) C20fJ
0791 P01e1 600&
07QZ P01CZ 54F1
&0271300
OATEI !l1/04/75.
ZZ
TIHE
UNITEOP)
'40
(STATUS'
r,OLUHN
STARTJENQ
RTJLoaINQ
SQZ
EOR
=N$OOO3
RTJRTJRTJRTJRTJ
UNITOATA)
CINITALARHl
(SMH)
MILLI
RAIJENO
RTJLOQSQN
ALS
SAM
LOQSQZ
JMP·
ALS
EOR
RT JJMP·
AlS
SAM
LOQSQZ
JHp·
AlS
EOR
LOQINQ
saz
EORRTJRAOtOAARS
80
3
(ERRO~7)
TIME
$40
(STATUS)
COLU~N
S20F-"-1
11
S20E-"-1
TIHE
1
5200
5
=N$OD15
(ERROR7J
5201
12
S20G-·-l
TIME
1
S200
It
=N$OOOO
INITIALIZE TIH£ COUNTER.
INITIALIZE EOP INTERRUPT.
SET QD6 .SlATION 2 ••
GET STATION Z STATUS.
SKIP If COLUMN 1.
EXPECT BUSY AND READY.
ERROR 7 IF UNEXPECTED STATUS.
INITIALIZE DATA INTERRUPT.
INITIALIZ~ ALARM INTERRUPT~
GO TO HONITOR AND BACK.
DELAY ONE HILLISECOND.
INCREHENT TIME COUNTER.
SET Q06 (STATION 2'.
GET STATtON t~TATUS.
SICIP IF NOT COLUHN 81.
SKIP IF EOP STATUS.
SKIP IF "AX TIME ALLONA BlE.
WAIT.
SHIFT STATUS INTO POSITION.
EXPEGTEOP,IHTERRUPT,REAOY.
ERROR 7 IF UNEXPECTED STATUS.
SICIP IF DATA STATUS.
SKIP IF MAX 'TIME ALLOWA BlE.
WAIT.
SHIFT STATUS INTO POSITION.
~XPEGT DATA, INTERPUPT, BUSY.
COLUHN
80
1
CONST+l
(ERROR])
COLUMN
SHHPAR
ENQ
2
3
LAQ
a
LOA·
START.J-
COLTIH,a
·TIME
(ERROR9)
EXPECT SUSY UNLESS COLUHN 1.
ERROR 7 If UN£XPECTEO STATUS.
007~6
00747
· 807~e
007~9
00750
00751
08752
· 00753
0075~
00755
00756
00757
· 00758
00759
00760
00761 .
· 00762
00763
08764·
00765
00766
G01'7 00168
00769
··08770
00771
00772·
00773
0.0774
00775
00776
00777
00778
00779
00780
00781
00782
00783
00784
.00785
80786
00787
00188
00789
INITIALIZE TIME COUNTER.
ERRCR 9, NO DATA INTERRUPT.
00790
00791
00792
PAGE
F
'\
)
\
;
\
i
\
22
~
\
I
(>
(~\
(\
\
c--- ,
(-':
C--\
(-~:;
CRPAIJi)
0793
0794
0795
07116
0797
0798
079Q
0800
0801
0802
0803
0804
0805
0606
0807
0808
0809
0810
. 0811
0812
0813
0814
0815
0816
0817
0818
0819
0820
0821
0822
0823
Oli24
0825
0826
0827
0828
U829
0830
0831
08,32
o83:J
01\34
PAGE
P01C3 fODC
P01C4,0145
P01CS 541='6
POICo C07A
P01C; 7 5406
POle8 1826
P01C9 1886
POtCA EOFA
POIGB OD3F
POlce 0844
POtcn 0:302
POICE 18C3
P01CF' 54EC
PO 100 5ltED
P010t 18F3
P01Dl 54F.~
POt03 54F6
P0104 EOFA
P01DS 0040
POlO€! OA02
P0107 0302
P01D8 lb04
POI09 54EC
P01DA '54EO
POIDO 18F8
P01DC OC40
POtDD S4£6
P010E BOOO
POtOF 0011
POtEO 5ltEF
POIEl (OFA
P01£2 0040
P01El OAOl
P01El.'OJ02
P01E5 18U4
PUlEo !:i4E:C
P01E7 54::0
POlES lRF8
P01EQ OC40
Pt) lEA 54[6
P01EB BOOO
P01EC 0011
POlED 54E.F
POtEE 54E'8
0835 PO 1fT· 1H90
0636 P01FU
PDtFl
0837 P01F2
08.SA POtF3
0839 r01F4
0840 l3i)1FS
5800
OR ItF
FFEE
FFF4
FF€A
FFOF
6027lJOfJ
lOO-
saz
Sf: OG'l
S20H
RTJLOARTJJMP·
JHp·
LOQ-
INa
Cll?
OUT
JHP~
S201
S20J
~>20
K
F!TJRTJJt1p.
RTJRT.JLOQINO
ENA
OUT
. JHP· RTJRTJJHp·
F.NQ
RTJFOP
S20L
S20~
~20N
RTJLOr)INQ
ENA
OUT
JHp·
RTJRTJJHP·
ENQ
PfJEOl?
/
(
'-
'\
/
C)
(-~)
(~)
(>
0 C) C)
DATEI 01/04175
23
ALAIF
S2CJH-·-1
(ERRORE)
CONST+15
(JUMP)
S20N
LOOP20
EQUIP
,3F
00793
00794
. 00795
00796
SKIP IF NO ALARM INTERRUPT.
ERROR E IF ALAR~ INTERRUPT.
CHECK STOP/JUHP BIT 15.
:::XIT LOOP IF SET.
FEEfJ CARD AGAIN.
Ea. NO., QO 0 SE'T.
CLEAR 000, SET C06 (STATION 2).
DATA: nooo.
OUTour UATA.
E XPEC T Rt:PL Y. lOOP.
ERROR 4. INTERNAL REJEC T.
ERRO~ 5, EXTERNAL REJECT.
FEEn CAf
1663 P050b
~,OF9
Po~n7
0(;20
16&1t
J1NllSAN
JHp·
ENA
STAE.NQ
STI)CLR
STASTA-
OAU8
166~ P0508 4000
1666 P0509. 0644
1667 P050A 6009
16&8 P05ilO 60E2
1
SEC9
CHECK BIT 8.
GO TO SECTION 9 IF CLEAR.
8
SEC
$20
STATION
A
EOFFLAG
OFFSTF
SAVE SECTION NO. FOR ERRORS.
SET QU5 (STATION U.
CLEAR END-Of-FILE FLAG.
CLEAR OFFSET FLAG.
"SfCTION 8, LOOP 0 - RfAO THRU END-OF-FILE CARD.
"ISFLECT CLEAR,FEED,EOP+ALARH INTERRUPT ON RlADER ,EXPECT
¥
r~EPL V. GO TO HONITOR ANn CACK, EXPECT NO INTE~.P.UPT •
ATTEMPT DATA INPUf. RETURN TO MONITOR IF EXTERNAL REJECT.
•
IF REPLV, STORr. OATA ANn INCREMENT r.OLUMN COUNT, GET
STATUS, fXPECT REAnv AND BUSV. CHF.r:K DATA AFTER 80TH
•
INPUT. WAIT FOR fOP INTERRUPT.
•
1670
1671
1612
1673
1674
1675
1676
1677 posoe nAAF
1678 poson G007
1679 POSOE 5800
..
LOOP~O
P050F 0380
1660 POSH EOFA
16Bl P051t 0020
SAGA
ENA
-80
STARTJ
COLUMN
OLVPAR
INITIALIZE COLUMN COUNTER.
DELAY
LOO-
EQUIP
Ea.
SET
GET
SET
SET
INQ
LOA-
1682 P0512 COE2
1683 P0513 OFca
1661t POC;14 8000
POSit) o(,C)g
1685 P0516 0302
1666 POS17 laoe.
1687 P0518 5'.EC
1688 P0519 S4ED
1669 P051A lAFS
16QO P0510 54EA
16'H POS1G 54E8
1692 POS1D 54E'3
1693 P051F CUOB
1694 P051F 80DC
1695 P0520 0103
1696 P0521 54F6
1697 P0522 54F4
1698 P0523 1818
60271300
CONST+6
S80B
saGe
OFFSTF
ALe;
8
AO"
=N$OC99
our
2
JMP"
RTJRT J-
5808
J~p.
S60A
RTJ-
UNITEO?'
RT J-
UNITALA~M)
RTJLOA-
AD/)-
SAl
RTJRTJJMp·
F
$20
(ERRORI. )
(ERROQ'))
(SHHl
EOP!F
ALAIF
SI\00-·-1
(ERRORE)
'ERRO~C)
S60H
NO., 000 SET.
QOS (SlATION U.
OFFSET FLAG.
AOB (OFFSET) IF FLAG SET.
An7, A04, A03, AND ADO.
FEEO,CLEAR,EOP+ALARH INTS.
EXPECT REPLY.
ERROP. 4, INTERNAL REJECT.
ERRO~ 5, EXTERNAL REJECT.
HANG ON REJECT.
INITIALIZE fOP INTERRUPT.
INITIALIZE ALARM INTER~UPT.
GO TO MONITOR AND BACK.
SKIP IF NO UNEXPECTED INTERRUPT.
ERROR E, ALARM INTERRUPT.·
ERROR C, EOP INTERRUPT.
01659
01660
01661
01662
01663
0166,.
01665
01666
01667
01668
01670
01671
01672
01673
01674
01675
01676
01677
01618
01679
01680
01681
01682
01683
01684
01685
01686
01687
01688
01689
01690
01691
01692
01693
0169,.
01695
01696
01697
01&98
PAGE
It?
-~
,"
PAGE
CRPAOO
1699
1700
- 1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1115
1116
1711
1718
1719
1720
1721
1722
1123
1724
1725
1726
1727
1128
1729
1730
1731
1732
1733,
1734
1735
1736
1137
1738
P0524
P0525
PO,:)26
P0527
P0523
P052Q
P052A
P0528
P052C
P0520
PO':)2E
P052F
P05l0
P0531
P0532
P0533
P0534
PO ,:)3,
P0536
P0531
P0538
P053c)
POSJA
P05JB
Pf)S3C
POSJO
P053£
P053F
POS40
POS41
P0542
POS43'
P0544
P0545
P0546
P0547
P054S
P054c)
P054A
P054B
P054C
P0540
P054E
P054F
P0550,
P055!
EOFA
S8IJO
00lF
02'02
1804
54EC
18F3 1817
S80£
E007
6AOD
0633
0007
OC20
54E6
BOOO
0003
0102
134EF
1806
C007
0101
18E4
5800
0498
coDa
0114
COOC
011A
S4E5
18FA
C800
0351
600F
ADOO
F87F
BODO
0015
54EF
C07A
5406
1804
COOq
0111
18BO
DAI0
5406
16UA
.'~
)
"
\
S80G
SHOH
S801
EQ. NO., aoo SET.
01699
STORE DATA.-
01705
01706
01787
LOQINQ
INP
JMp·
RTJJHp·
JMP·
LOQSTA
EQUIP
$iF
2
S80E
(ERROR,.)
S80C
S801
COLUMN
'8UFFIN+80, Q
RAORTJEOR
COLUMN
$20
(STATUS)
=N$OOO3
SAZ
RTJJHp·
LOASAZ
JHP·
RTJ
S80F··-l
(ERROR7)
S80H
COLUMN
S80G·v·1
S60e
CHECK
LOASAIi
LOI\SAN
RTJJHP·
LOA
EOPIF
S801-·-1
ALAIF
S60J-6-··1
(SI1H)
S80H
EOPIS
SKIP IF HOT ION FAILURE.
WAIT FOREOP INTERRUPT.
GET STATUS UPON ,EOP INTERRUPT.
01120
01721
01722 01723
01724
01725
STIlAND
ACT
=N$FB7F
SAVE FOR ERROR MESSAGE.
IGNORE EOF AND PROTECT BITS.
01726
01·727
EOR
=N$OOlS
EXPECT EOP,INTERRUPT,
01728
CERRO~1)
ERROR 7, UNEXPECTED STATUS.
ENQ
RTJLOARTJJHP·
LOASAN
JMp·
S80J
DATE' 01/04.175
ENA
RT,,JMP·
CONST+15
(JUMP)
S80J
EOFFLAG
S60J-··l
LOOP80
$10
(JUMP) .
LOOP80
SET Q05 (STATION U, CLEAR QOO.
ATTEMPT DATA INPUT.
REPLY.
ERROR 4, INTERNAL'REJECT.
,EXT. REJECT, GO TO HONtTOR.
INCQEHENT COLUHN COUNTER.
SET Q05 (STATION It.
GET STATION 1 STATUS.
EXPECT READY AND BUSY STATUS.
ERROR 1, UNEXPECTED STATUS.
GO READ NEXT COLUMN.
80 COLUMNS READt CHECK DATA.
SEC8A
LOflINQ
EN~
EQUIP
$20
1
01700
01701'01102
01103
0170~
0110e
,01709 '
01110
01711
01712
01713
,01711t
01715
01716
-01717
01718
_ 01719
CHECK STOP/JUHPSIT 1S.
EXIT LOOP IF SET.
EXIT LOOP IF EOF CARD.
lOOP IF NOT.
CHECK STOP/JUHP BIT 4.
LOOP IF SET.
·ENO OF SECTION 8
1140
1741 POS52 EOFA
1742 P0553 0020
1743 P0554 OAul
60271300
S80F
46
EQ. NO., QOO SET.
SET QDS (STATION U.
SET AOO.
~EADY.
01729
01730
01-731 "
01732
Q1733
' 01134
01735
01736
01137
01138
\
/
i
~
- ...
..
01740
01141
011,,2
01743
PAGE
F
-,
46
)
( ')
'
',._..
•....
~-
-....
-
c)
(-PAGE"
CRPAon
1744
1745
1746
1747
1748
1749
P0555
P0556
POSS7
P0558
P0559
P055A
P05SB
1750 P055e
OUT
0302
1804
54EC
54£"O
18F6
5800
0220
JHP"
RTJ...
RTJSEC~q
18A3
47
F
)
()
(~\
(.
u
\
--j
OAT 1:;1 01/04175
CONTROLLER.
017....
017'+5
017 .. 6
01747
017'+8
2
SEC88
ClEA~
(E~ROR4)
017 .. 9
01750
EXPECT PEPL v.
J~P"
(ERROR5)
SEC6A
RTJ
ENDSEC
ERRO~ 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
ENO-OF-SECTION STOP
JMp·
SEes
REPEAT SECTION
•
60271300
'\
#I
PAGE
47
/
I
\
PAGE
CRPAOO
1752
1753
1754
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• SEC T ION
9
~ E A 0
H HEN
0 A T A S TAT U S
.q99q9999999999999999999999999999999999999999999999999999999999999999999
01752
01753
1756
1757 P0550 caoo
. P055EFAA8 .
1758 P055F A074
1759 P05&O 0111
17&0 POS;1 18&4
17&1 P0562 OA09
1762 P05&3 60F9
17&3 POS64 OC20
1764 POS65 4000
1765 P0566 0844
1766 PD567 6009
1767P0568 60E2'
-INITIALIZE SECTION 9
SECTOT·
SEC9
LOA
01756
01157
1769
1770
1771
1772
1773 PQS69 OAAF
1774 P056A 6007
1775 P056B 5800
P056C 0330
1776 POSGO EOFA
1777 P056E 0020
1778 P056F COE2
1779 POS7a OFC8
1760 P0571 6000
P0572 OD99
1781 P0573 0302
1782 P0574 1804
1783 F057S 54EC·
1764 P0576 54EO
1785 P0577 18F5
1786 P0578 54EA
1187 ,.,0579 54EB
1788 P057A SitES
1189 POS1s.caOB
1790 POS7G 800C
1191 P0510 0103
1'192 P057E S4F6
1793 POS7F S4F4
1794 POSSO 1823
1795 POS8! OC20
1196 P0582 54E6
1797 POS83 OFCC
60271300
.,
~
\,
;
\
OATEI 01/04/75
48
ANnSAN
JHP·
ENA
STAENO
STQCLR
STASTA-
GET SECTION PARAHE1ER.
...
1
GO TO NEXT SECTION IF NOT . SET.·
SECA
9
SEC
SAVE SECTION NO. FOR ERRORS.
SET QOS (STATION 1).
$20
01765
01766
01767
CLEA~ ENO-OF-FILE FLAG.
CLEAR OFFSET FLAG.
01169
,01770
01171
. 01772
01773·
01774
01175
..
S908
S90C
OUT
JHPRTJRTJJMPRTJRTJRTJLOAAOI)SAZ
S90D
RTJRT,'JHp·
ENQ
RTJALS
01776·
01177
01178
01779
01780
EQ. NO., QOO SET.
EQUIP
StT
GET
SET
SET
$20
OFFSTF
8
=N$OO99
2
S908
(EP.ROR4)
(ERRORS)
S90A
(lNITEOP)
CINITALARH)
(SH~U
EOPIF
ALAIF
S900-·-1
(ERRORE)
(ERRORe)
5901
QOS (STATION U.
OFF SET FLAG.
A06 (OFFSET) IF FLAG SET.
A07, A04, ADJ, AND AOO.
ClEAR,FEEO,EOP+ALARH INTS.
EXPECT REPLY.
ERRO~ 4, INTERNAL REJECT.
ERROR s, EXTERNAL REJECT
HANG ON REJECT.
INITIALIZE EOP INTERRUPT.
INITIALIZE ALARM INTERRUPT.
GO TO MONITOR. AND BACK.
SKIP IF NO UNEXPECTED INTERRUPT.
ERROR F, ALARM INTERRUPT.
ERROR C, EOP INTERRUPT.
SET Q05 (STATION u.
GET STATION 1 STATUS
$20
(STATUS)
12
01781
01182
01783
01184
01785
01786
01787
01788
01789
01790
01791
01792
01793
01794
01795
01796
01797
PAGE
F
"-
........
01763
·SEcrION 9, LOOP 0 - READ THRU ENO-OF-FILE CARD
SAME AS SECTION 8, LOOP 0 EXCEPT DATA INPUT IS NOT
ATTEHPTEO UNTIL DATA STATUS OCCURS, AND A REPLY
TO DATA INPUT IS EXPECTED.
LOOPgO
ENA
-80
INITIALIZE COLUMN COUNTER
COLUMN
STADELAY
DLYPAR
RTJ
LOIlINQ
LOAALS
ADD
'
Ot76~
STATION
A
EOFFLAG
OFFSTF
•..
S90A
. ....
·01758
01759
G1160 .-.
01761
·01162
CHECK BIT 9.
CONST+9
011S~
\
r
\
-
'\
\
/
\J
/
.,._-.
." ... .. ...
-
~
48
"\
'~
;
\
/
-
')
r
'\
-
\
c-) r)
C-') ()
(-~)
'-~'
PAGE
eRrAOD
1798
1799
1800
1801
1602
1803
1604
1805
1806
1807
1808
180'3
1810
1811
1812
1813
1614
1815
1816
1817
1818
181<3
1820
1821
1622
1823
1824
1825
1~26
S90E-"-l
RAOENO
R.TJSAZ
S90G-"-1
DATA,BUSV9REAOY~STATUS.
ERROR 7, UNEXPECTED STATUS.
NO., QDO SET.
SEl QJ'5 (STATION 1), CLEAR QOO.
INFUT OATA ..
F.:XPEG r REPLY.
ERROR 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
EQ.
~TORE
DATA.
INCREMENT COLUMN COUNTER.
SET a05 (STATtON 1).
GET STATION 1 STATUS.
EXPECT BUSY AND READY STATUS.
(ERROR7)
ERRO~
GO READ NEXT COLUMN.
ao COLUMNS READ. CHECK DATA.
7, UNEXPECTED STATUS.
01798
01799
01800
01801
111802
01803
01804
01805
01806
01807
01808
01809
01810
01811
01812
01813
01814
0181S
01816
01811
01818
01819
01820
01621
01822
01823
01824
SQOH
JHp·
RTJ
S901
COLUMN
S9UH-"'-1
S90C
CHECK
lOASAN
LOASAN
RrJJMP·
LOA
EOPIF
S90J-"'-1
ALAIF
S90K-6-"'·1
(SMM)
S'301
EOPIS
SKIP IF HaTtON FAILUR.E.
01827
01828
01829
HAlT FOR EOP INTERRUPT.
GET STATUS UPON EOP INTERRUPT.
01830
STAANn
ACT
=N$FA7F
SAVE FOR fRROR MESSAGE.
IGNO:{E: EOF AND PROTECT 8ITS.
01632
EOR
-=N$OO15
EXPECT
EOP,tNTF.RRUPT,~EADY.
01834
RTJLUAf.'!.rJ-
(ERROR7)
CONST+15
(JUMP)
S90K
EOFFlAG
S90K-\L-l
LOOP90
ERRCR 7, UNEXPECTED STA ruS.
EXIT LOOP IF EOF CARD.
LOOP TO REAO HORE CARDS.
01835
01636
01837
01838
01839
018ltO
01841
CHECK STOP/JUMP BIT ft.
01643
SQOI
S9CJ
J~p\L
LOAS~N
SCOK
F
C) l) U
lIJA-
1837 ~05B2 5406
1838 P05AJ 1604
60271300
(ERRORS)
S901
COLUMN
BUFFIN+RO,Q
fOP
SAZ
DA10
(ERROR4)
'j
~j
S90G
1806
5406
S90I
EQUIP
$lF
2
S90F
COLUMN
$20
(STATUS)
=N$OOO3
RTJJMP"
CUnq
0111
18 f32
(ERROR])
(
1/04/75
SAl
RT.JJMp·
lDQINa
INP
J!'1p •.
RTJRTJJMP"
LUQSTA
0102
S4EF
1818
EOFA
DOlF
0202
1804
54EC
S4EO
1811
en07
GADD
OSCB
0007
OC20
S4EG
Boon
0003
0102
54EF
P05S4
r0585
P05SG
P05B7
POSB8
I)
EXPECT
ALS
COD7
0101
1809
5800
0433
CODa
OU4
COOC
011A
DATE'
(~)
'*
=N$OOOO
OFC4
BODO
sC?or
49
C_-) ()
EOR
PO'58&
P0587
P0583
P0589
POS8A
P05S8
POS8C
P056n
PDc)8E
P058F
P0590
P0591
P0592
P0593
P0594
P0595
P0596
P0597
PQ596
P059'3
P059A
POS9A
P059C
P059D
POS'3E
P059F
P05AO
P05A1
P05A2
POSAJ
P05A4
P05A5
POSAn
P05A7
JMp·
SqOF
(-~)
C-~)
CHECK ArT 3 (DATA STATUS).
RFTURN TO MONITOR IF CLFAR.
'3AM
oooe
<~\
l __ j
1
S9!lC
P05fl4 0131
posse;; teFft
1827
1826
SitES
1829
1830 P05A8 16FA
1631 PD5Ar~ C800
P05AA D2EF
1832 P05A8 GOOF
1833 P05AC AOOO
P05AU F87F
1834 P05AE AOOO
P05AF 0015
1835 POSSD 5!.EF
1836 rOSB1 C07A
1839
1:8ftO
1841
1842
1843
(---)
l) ()
Jf-lP"
ENA
RTJ-
01825
01"826
CHECK STOP/JUMP BIT 15.
EXIT LOOP IF SET.
$10
(JUMP)
01831
01833
01842
PAGE
49
(~'.
/
."--- ,
CRPAOO
PAI3E
DATE't 01/01t/75
50
..
JHp·
184-4 POsB9 18AF
1846
. 181t7· POsBA ED FA
1848 P05BS 0020
1849
1850
1851
1852
1853
P05BC
POSSD
POSBE
P05BF
POSCO
1851t POSC1
1855 POSC2
'P05C3
1856 P05C4
OAOl
0302
1804
54EC
SitED
60271300
~\
)
--'\
LOOP IF SET.
0181t1t
EQ • NO.9 QOO SET.
SET QOs (STATION U.
SET ADO.
CLEAR CONTROLLER.
EXPECT REPLY.
ERROR 4, INTERNAL 'REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
END-OF-SECTION STOP.
018 .. 6
01"7·· .... ·
018 .. 8
01'8"9
RTJ
EQUIP
$20
1
2
SEC9B
(ERROR4)
(ERROR5)
SEC9A
EHDSEC
JHP·
SEC9
REPEAT SECTION.
.END OF SECTION 9
SEC9A
LDQINQ
EHA
OUT
JHP"
RTJRTJJHp·
18F8
SEC9R
5800
01B6
1898
LOOP90
018S0 .
J
'
-
'\
/
"'
-
•
_ 0• •
_
•
~
...
---
.".
-'-,
- ..
._.-........ -..
-- - ..... - ..
01851
018S2
··01353,
--- .-.... -. ,--
'01854
01855
PAGE
\
-..-
","
- .... --.-'
01856
F
"
. ...
_ ..• _oa..
\
SO
~\,
!
)
\
)
/
I
\
'\
I
()
c) C) C)
()
0 0 0
,------
PAGE
CRPAOD
I
,_/
~
)
)
-~
(-)
C) ()
C~)
(j
\------'
~
~
• SEC T ION
1 0
REA D
1 F
OAT A
I N T ERR U P T
.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA~AAAAAAAAAAAAAAAAAAAA
18&2
1863 P05C5
POSC6
18&4 POSC7
1865 poscs
1866 POSCq
1867 PDSCA
1868 POSCO
1869 P05ce
P05CO
1870 P05CE
1871 P05CF
1872 POSOO
1873 POSD!
1874· POS02
1876
1677
1878
1879
1880
1881 POSO;}
1882 POS04
1883 PO 50S
POSOo
1884 P0507
1865 PO~08
1886 POS09
1887 POSDA
18El8 P0500
P050C
·INITIALIZE SECTION 10
SEC A
LOA
SEC TOT
caoo
FA40
A07S
0111
1657
OAOA
60F9
6800
02CA
OC20
4000
0844
6009
60E2
PARAHETE~.
ANOSAN
J"p.
ENA
STASTA
CONST+l0
1
SEca
SEC
THP
SAVE SECTION NO. FOR ERRORS.
ENQ
STll,CLP.
STASTA-
$20
STATION
SET Q05 (STATION
10
CHECK BIT 10.
GO TO NEXT SECTION IF CLEAR.
u.
A
EOFFLAG
OFFSTF
END-OF-FILE FLAG.
CLEAR OFFSET FLAG.
CLEA~
.SEC nON 10, LOOP 0 - READ THRU END-OF-FILE CARD.
SELECT CLEAR,FEED,AND ALL INTERRUPTS ON READER, EXPECT REPLY.
INPUT ~Nti STORE DATA IN DATA INTERRUPT ~OUTtNE.
WAIT FOR EOP INTERRUPT, EXPECT COLUMN COUNT TO BE 80.
EXPECT NO ALARH INTERRUPT.
ENA
-80
STACOLUMN
INITIALIZE COLU"N COUNTER.
RTJ
OLYPAR
DELAY
SAOA
0020
COE2
OFC8
8000
009F
0302
1804
54EC
S4EO
18F5
·54E9
54F.A
LOOINQ
Ll1AALS
Aon
POSOO
POSOE
PO 50F
POSEO
POSEl
P05E2
POSEJ
f'0'5E4 SitES
POSES 54F5
P05E& conc
OUT
SAOS
SAOG
POSE7 010a
2
SAoe
RTJRTJJHp·
RTJ-
(ERROR4)
RTJRT\JLOASAZ
RTJeLF!
.STfI-
F
EQUIP
$20
OFFSTF
8
=N$OO9F
JMP.
RT.J-
PD5Ea 54FG
POSE') 0844
P05EA 600C
00271300
GET SECTION
•.
•
•
LOOP,,\O
OAAF
6007
5800
02C6
EOFA
(J
')
(~,
OATEI 01/04175
51
........ ................ ..............................................
1858
1859
18&0
1689
1890
1891.
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
r"-.
(~)
(ERRO~5.
SAOA
(INITDATA)
(INITEOP)
( INITALARH)
(SHm
ALAIF
SAOD-\l-1
(ERRO~E)
A
ALAIF
Ea.
NO." 000 S( T.
SET Q05 (STATtON 1).
GET OFFSET FLAG.
SET A08 (OFFSET) IF FLAG SET.
SET A07, A04 THRU ADO.
FECO,CLEAR,ALL INTERRUPTS.
EXPECT REPL V.
ERROR 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
INITIALIZE DATA INTER~UPT.
INIT!ALIZf tOP INTERRUPT.
INITIALIZE ALARM INTERRUPT.
GO TO MONITOR A NO BAC K.
SKIP IF NO ALARM INTERRUPT.
ERROR f, ALARH INTERRUPT.
· 01858
01859
01860
01862
01863
0186 ..
01865
,01866
01867
01868
01869 .
01870
01871
· 01872
01873
' 0187 ..
01816
01877
·01878
01879
01880
01881
01882
01883
Ot88 ...
01885
01886
01887
01888
01889
'01890
· 01891
01e92
01893
01894
01895
01896
01897
01898
01899
a1901)
01901
01902
PAGE
51
c . . (~).
(
.
\.._-
-' .
PA'GE
CRPAOO
1903
1904
1905
1906
1907
1908
1909
1910
··1911·
1912
1913
1914·
1915
1916
.... -1-917'
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
19J7
1938
POSEO
P05EC
P05EI)
P05EE
P05EF
P05FO
P05Fl
P05F2
P05F3
P05F4
P05F5
P05F6
P05F7
P05F6
P05F9
P05FA
P05FB
P05FC
P05FD
P05FE
P05FF
P0£l00
P0601
P0£l02
P060l
P060lt
fJ0605
P0606
P0£l07
P0608
POGOc)
P060A
P0600
P060C
P0600
P060E
P060F
POG10
flOGll
P0612
P061J
1940
1941 P0614
1942 P061S
1943·POG16
1944 P0617
1945 P061S
1946 P0619
1947 P061A
1946 P0618
EQ. NO., QOO SET.
SET Q05 (STATION 1).
-SET A03 AND A01.
SELECT CLEAR INT AND EOP INT.
EXPECT REPLY.
ERROR 4, INTERNAL- REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
01903
01904
01905·
01906
01907
. -- 01908
01909
01910
01911 .
01912
01913
·01914 ."
01915
01916
0191-7·
01918
SAOFA
CERROR4) .
(ERROR5)
SAOCA
EOPIF
1
SAOC
COLUMN
SAOE----l
60
ACT
60
EXP
$11
$10
ERROR
SAOE
JMp·
RTJ
SAOF
CHECK
80
"lAOF
LOA
EOPIS
GET STATUS UPON EOP INTERRUPT.
STAAND
ACT
=N!iFB7F
SAVE FOR ERROR MESSAGE.
IGNORE EOF AND PROTECT BITS.
,91926·
EOR
=N$OO15
EXPECT EOP, INTERRUPT,READY.
·01928
RTJLDARTJJMP·
LOIISAN
JMP-ENA
RTJJMP--
(ERROR1)
CONST+1S;
(JUHP)
SAOG
EOFFLAG
SAOG-·-l
LOOPAO
$10
(JUMP)
LOOPAO
ERROR 7, UNEXPECTED STATUS.
0020
OAllA
0302
181C
5ltEC
54 EO
18F8
C008·
0111
18EF
C007
0109
0950
600F
OC50
40EO
OC11
OA10
5800
0451
1803
5800
EQUIP
LOQINa
ENA
OUT
JMp·
RTJRTJJHp·
lOASAN
JMp·
lOASAZ
INA
STAENQ
STQENQ
ENA
RTJ
SAOCA
EOFA
DATEI 01/04/75
52
SAOO
$20
SA
2
HAlT FOR EOP INTERRUPT.
GET COLUMN COUNT.
SKIP IF 80 COLUMNS READ.
EXPECTED COLUHN COUNT ' : 80.
ERROR 11, WRONG COLUMN COUNT
3 STOPS.
SAOFA
0111
18C2
OA1O
5406
l8BF
SADG
.ENO OF SECTION 10
EQUIP
SFCAA
LOO$20
INll
ENA
·1
OUT
2
JMP·
SECAB
(ERROR.4)
RTJ-
EO FA
0020
OAOl
0302
1804
54EC
54EO
16F8
6027130n
~TJ-
(ERRORS)
JMP--
SECAA
~
...
.-
.-
.-,,'
.
01919
-01926·
01"921
01922
01923
01921t
COLUI1NS READ. CHECK DATA.
0303
C800
0295
£l00F
AOOO
FB7F
AOOO
0015
54€F
COlA
5406
1604
C009
.
01925
01927
01929
01930
01931
01932
CHECK STOP/JUMP BIT 15.
EXIT LOOP IF SET.
01933
01934
01935 .
01936·
01937
01938
EXIT LOOP IF EOFCARD.
lOOP TO READ NEXT CARD.
CHECK STOP/JUMP BIT 4.
LOOP IF SET.
EQ. NO., QOO SET.
SET Q05 (STATION 1).
SET ADO.
CLEAR CONTROllEP..
EXPECT REPl V.
ERRO~ 4, INTERNAL REJEC T.
ERROR 5, fXTERNAl REJECT.
HANG ON REJECT.
·019ltO
019lt1
019lt2
01<)1t3
019lt4
0191t5
019"6
019"7
01948
PAG£- 52
F
/
)
"
'\
j
\
\
)
i
~)
-----'
()
'----
0
C) 0
(-)
0
0 0
PAGE
CRf'AOO
. SECMJ
19 ..Q P061e 5800
PD6lD 015E
1950 POolE 18A6
lQ51 P061F 1801
(
0
'"
':
j
() () C)
('-)
l) l)
(J U
F
(
"- -
DATEI 01/0 .. 175
53
RTJ
ENOSEC
ENO-OF-SfCTION STOP.
019.. 9
JHp·
JHP·
SECA
SEea
REPEAT.SECTtON.
GO TO NEXT SECTION.
01950.
01951
..
.'
60271300
L)
PAGE
53
.
-
..............
_-
CRPAOO
PAGE
DATEr 01/04/75
54
..............................................................................................
• SEC T ION
1 1
8 U F FER E D
REA 0
.y.eSS8BBBBBBBB8SBBABBBBSBBRBBBBBBBBBBBB88BBSSaSB8BSBSBBBBBBBeBBeBBBBBBBSB
1953
1954
1955
"INITIALIZE SECTION 11
1957
SECS
CHAN
1958 POo20 COFB
LOASAZ
1959 POo21 0104
LOA
SECTOT
.1960 P0622 C80D
P0623 F9E3
CONST+11
19&1 P0624 A076
ANOSAN
1962 POo25 0112
2
JHP
SECC
1963 PDo26 1800
P0627 0099
ENA
1964 P062S OAOB
11
STASEC
1965 P0629 60F9
!20
1966 POo2A OC20
ENG
STATION
1961 POolB 4000
STOA
1968 P062C 0844
CLR
€OFFLAG·
1969 POolO ·60D9
STAOFFSTF
STA197fJ. .P062~ 60E2
1971 P062F CODa
LDA
=XBUFFIN+60
P0630 OB60 P
STA
BUFFIN-1
1912 P063i 6800
P0632 OCtOD
,.
1914
1975
1976
1971
1978
1919
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
CHECK BIT 11.
GO TO NEXT SECTION IF CLEAR.
SAVE SECTION NO. FOR ERRORS.
SET Q05 (STATION H.
CLEAR END-OF-FIlE FLAG.
CLEAR OFFSET FLAG.
STORE AT FIRST HORD ADDRESS :-1.
·SECTION 11, LOOP 0 - READ THRU END-OF-FILE CARD.
SELECT CLEAR,FEED,EOP AND ALARM INTERRUPTS ON RFADER, EXPECT
REPLY. INITIATE 60-HORO BUFFERED READ. WHeN 1106 BECOHES
•.,.
NOT BUSY, EXPECT 110& CURRENT WORD AODRESS TO BE FIRST WORD
ADDRESS +80. EXPECT NO ALARM INTERRUPT. WAIT FOR EOP
•
INTERRUPT.
•I.OOPHO LDQEQUIP
EQ. NO., aDo SE T.
SET Q05 (STATION U.
$20
INa
OFFSTF
GET OFFSET FLAG.
LOA8
AlS
SET A 06 COFFSET)IF FLAG SET.
ADI)
SET A07, 1\0lt, A03, AND ADD.
=N$OO99
..
P0633
PO(»34
P063S
P06l6
P0637
P0638
P0639
P063A
P0638
P063C
P063U
P063E
P063F
P0640
POG41
P0642
P0643
P0644
PD64S
EUFA
0020
COE2
OFC8
8000
0099
0302
1604
54EC
·S4EJ)
18F5
54EA
54EB
COOO
oeOF
EOFA
D01F
FOOO
1'100
60271300
-)
GO TO NEXT SECTION IF NO 1706.
GET SECTION PARAHETER.
S90A
OUT
JHP"
RTJRTJJHPtr.
RTJRTJLOA
SBOA
(ERROR,.)
(ERRORS)
LOOPBO
UNITEOP)
CINITALARHJ
=XBUFFIN-l
LOOIN'"
ADO
EQUIP
$lF
=N$1ROO
0195~
01955
01957
01958
. 01959 01960
01961 ..
01962
01963
01964
01965
01966
01961
01968
01969
·01910
01911
01912
01974
01915
. 01916
01911
01978
01919
01980
01981 .
01982
01983
0198"
tNTS.
EXPECT REPLY.
ERROR 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT.
INITIALIZE EOP INTERRUPT.
INITIALIZE ALARHINTERRUPT.
01985
01986
01987
01988
01989
01990
01991
01992
EQ •. NO •• 000 SET.
seT Q05. (STATION 1), CLEAR QOO.
W=05,OA,OR OF FOR BUFFERED WRITE
01993
0199 ..
01995
FEED,CLEAR,EOP~ALARH
2
01953
....
P
PA·GE
F
/'
'\)
54
'.
)
'\
)
.... - ....
n
o o o
PAGE
C~PAon
1996 P0646 C3FE
1997 PU647 S4ES
1998
199q P0648 5800
P0649 0275
2000 P064A SltE5
2001 '"'0648 5ltF6
2002 P064C CODa
2003 P0640 0112
2004 P064E 54F3
2005 P064F 1817
2006 PO 650 C005
2007 P0651 600F
2008 P0652 EBOO
P0653 04BC
200q·P065440EO
2010 P065e; 0674
2011 P0656 0105
2012 fl0657 oe13
2013 P0656 DAtO
2014 P06SCJ 5800
P06SA O.1F6
2015 P0650 1803
2016 P065C 5800
P0650 0378
2017 P06SE C800
P065F 023A
2018 P0660 6f.lOf
2019 POG6t AOOO
P0662 FB7F
Z020 P0663 Aoon
P0664 0015
t?02.1 P0665 S4EF
2022 P066fi COlA
2023 POG67 5406
2024 PO&oR 1804
2025 POG&I) coo')
2026 POG6A 0111
lU27 puGGS lUG7
2028 FOG6C nA10
2029 P06GD 5406
2010 PO&&E 1SC4
20J2
2033
2034
2035
P06GF
POG70
POG7!
POG72
fJ067J
•
saDU
HILLI
RTJRTJ-
(ERRORE)
SAN
SB08-·-1
8DCCWA
LOQ
STO-
EXP
seoe
LOi4
01996
01991
01998
01999
GO TO HONITORANO BACK.
ERRO~ E, ALARM INTERRUPT.
02000
SKIP IF EOP INTERRUPT.
ERRO~ B, NO fOP INTERPUPT.
A
GET BOe CURRENT HORD ADDRESS.
SAVF FOR ERROR MESSAGE.
COMPARE WITIi EXPECTED.
SBGC·"-1
$13
$10
ERROR 13, WRONG WORD ADDRESS.
STOPS.
3
ERROR
02001
02002
02003
02004
02005
02006
02007
02008
02009
02010
02011
02012
02013
0201"
SROO
CHECK
80 COLUMNS READ. CHECK DATA.
EOPIS
GET STATUS UPON EOP INTERRUPT.
02011
02015
02016
STA-
ACT
::N~F87F
SAVE FOR ER~OR MESSAGE.
IGNORE [OF AND PROTECr BITS.
02018
AW)
EOR
:N$0015
EXPECT EOP,INTERRUPT,READY.
02020
RTJ-
(ERROR?)
CONST+15
(JUMP)
EPROR 7, UNEXPECTED STATUS.
02021
02022
02023
0202,.
LOJ\-
P.T .J-
JHP·
LOASAN
F
CER,RORO)
INITIATE INPUT.
GO fO MONITOR.
RETU~N WHEN 1706 IS NOT BUSY.
OeLAV 1 HILLI-SECONO.
S800~.
ACT
BUFfIN-1
ENA
RTJ
suoc
(SMH)
EOPIF
SAZ
ENQ
~ROOA
CSHH)
lOA-
EAO
u
()
OA T£1 011 04/75
RTJ
5T,I.\-
SBOD
5',;
-1
JHp·
lOA-
C)
(
OUT
RT.J-
RT.J-
0844
GOOc}
60E2
0800
rJ4YC
60271300
C)
SBOF.
EOFFLAG
SBOE-·-1
JHP·
LOOP80
[Nil
$10
RTJJM~HI
(JUMP)
LOOPf10
CLR
A
STA-
STA-
EOFFLAG
OfFSTF
RArJ
RUFFIN-1
CHECK STOP/JUMP BIT 15.
EXIT LOOP IF SET.
EXIT lOOP IF END-Of-FILE CARD.
LOOP TO READ MORE CARDS.
CHFCK STOP/JUMP BIT 4.
LOOP IF SET.
ENO-OF-FllE FLAG.
OFFSET FLAG.
FORM FIRST WORD AODRESS +81.
CLEA~
CLfA~
02019
02025
02026
02027
02026
02029
02030
02032
02033
0203,.
02035
PAGE
55
(j
(
\. j
~
(
'-...._.
PAGE
CRPAOO
DATE. 01/04175
S6
2037
"SEcrION 11, LOOP 1 - READ THRU END-OF-FILE CAPO.
SAME AS SfCTION 11, LOOP ,0 EXCEPT INITIATE 81-WORD
2038
BUFFEREO R£AD~ WHENEOP INTE~RUPT OCCURS, EXPECT 1706
2039
•
STATUS TO e~ REJECT AND BUSY. TERMINATE BUFFER.
2040
•
EXPECT 170G CURRENT ADDqESS TO Bf FIRST WORO ADDRESS +80.
2041
LDQEQU IP
E Q. NO., QOO SET .•
LOOPSl
20lt2 P0674 EOFA
INQ
$20'
SET aos (STATION 11.
2043 P0675 0020
LDAOFFSTF
GET OFFSET FLAG.
20 .. " P0676 COE2
ALS
8
SET A08 (OFFSET) IF FLAG SET.
20 ...csPD6710FCS
AOO
=N$009Q
SET A07, A04, A03, ANn AOO.
2046 P0678 6000
P0679 0099
CLEAR,FEEO,EOP+ALARH INTS.
·OUT
2
2047 P067A 0302
EXPECT REPLY.
.
SBIA
JMP'"
2048 P0678 1804
(ERRO~4)
ERROR 4, INTERNAL REJECT.
RTJ20,.9 P067C 54EC
fERRORS)·
ERROR 5, EXTERNAL 'REJECT.
RTJ- l050' P067054EO
HANG ON REJECT.
J"p.
LOOPSI
2051 P067E 18FS
(lNITEOPt
INITIALIZ~ fOP INTERRUPT.
SBiA
RTJ2052 P067F 54EA
INITIALIZE ALARM INTERRUPT.
2053, POi8G,S4EB
UNITALARH)
RTJLOA
=xeUFFIN-1
2054 P0681 COOO
P0682 OaOF P
EO. NO., QGO SET.
EQUIP
lOQ·2055P0683 EOFA
• INa .
SET aDs (STATION 1), CLEAR QOO.
$lF
2056 P0684 00lF
ADQ
W=05,QA,OR OF FOR BUFFERED READ.
=N$1600
2057 P0685 FOOD
'P0686 1800
INITIATE BUFFERED READ.
OUT
-1
2058 P0687 03FE
(SHH)
GO TO HONITOR TILL 06 NOT BUSY.
2059 P0686 54E5
RTJERROR E, ALARM INTERRUPT.
(ERRORE)
RTJ2060 P0689 54F6
EOPIF
LOA2061 P068A CODe
SKIP IFEOP INTERRUPT.
SAN
SB18-·-1
2062 P068R 0112
ERROq a, NO EOP INTERRUPT.
(ERRORS)
206JP06aC54FJ
RTJJMp·'
SB1DA
'2064 P066D !litE
GET BDC STATUS UPON fOP INT.
S818
LDAaDCSTAT
2065 P068E COD4
SAVf FOR ERROR MESSAGE.
ACT
2066 P066F 600F
STACHECK REJECT,REPLY,BUSY BITS.
AND
=NS030Z
2067 P069D ADOO
P0691 0302
EXPECT REJECT AND BUSY.
=N$01D2
EOR
, 2068 P0692 BODO
P0693 0102
ERRO~ F, 1706 STATUS H~ONG.
2069 P0694 54F7 .
IF-RRORF)
RTJLOA ..
GET 1706 CURRENT HORD ADDRESS.
BDCCHA
'Z070 P0695 COD5
SAVE FOR E~ROR MESSAGE.
ACT
2071 POG96 GOOF
STALOQ
=X8UFFYN+80
2072 P0697 EOOO
POG98 0860 P
EXP
2073 POG99 40EO
STOCOMPARE WITH EXPECTED ADDRESS.
EAQ
A
2074 P069A C874
2075 POG98 ,0105
SAl
SB1C-"-1
ENQ
$13
ERROR 13, WRONG CURRENT ADDRESS.
2076 POG9C ,DCt3
3 STOPS.
ENA
$10
2077 P069D OA10
RTJ
ERROR
2078 P069E 5800
POG9F 03Bl
S810
2079 POGAO 1803
80 COLUMNS READ. CHECK OATA.
SBle
CHECK
2080 P06Al 5800
..
.
02037
02038
02039
02040
020 .. 1
020 .. 2
020,.3
020 ....
020.. 5
020 .. 6
,: 020,.7
02'Olt8
020,.9
·02050 ...
02051
02052
02053
0209 ..
~ 02055
. 02056
02057
. 02058
02059
02860
02061
02Q62
02063 .
02064
02065
02066
02067
02068
02069
02010
02071
02072
02073
02074
02075
02076
02077
02078
02Q79
02080
P06A2 0333
2061 POGA3 caoo
POGA4 01FS
60271300
\
)
)
SAiD
LOA
EOPIS
GET STATUS UPON fOP INTERRUPT.
02081
PAGE
F
\
\.
)
56
\.
)
/
./
~
/
)
r----,
( j
r-)
r-) c;
CRPAOO
paGE:
2082 P06A5 600F
2083 PO GAG ADOO
P06A7 FR7F
208 .. POGA8 BODO
PO&A9 0015
.2085 P06AA S4EF
208G POGAB C07A
2087 rOGAe 5406
2088 POGAO 180 ..
2089 P06AE COD9
2090 POGAF 0111
2091 P06BO 16C3
2092 POGBl OA10
2093 POGB2 5.. 0G
. - 209,. P0663 18CO
2096
2097
2098
2099
2100
2101
2102
2103
SB10l\
57
ACT
=N$F87F"
SAVE FOR ERROR MESSAGE.
IGNO~E (OF" AND PROTECT eITS.
02082
02083
EOR
=N$OOlS
EXPECT fOP, INTERRUPT, READV.
0208,.
RrJLOA-
(ERROR])
CONST+15
(JUMP)
SFUE
EOFFLAG
581E-·-l
LOOPBt
ERROR 7, UNlXPECTED StATUS.
02085
02086
02087
02088
02089
02090
02091
02092
02093
0209 ..·
~TJ
S81E
210 .. P068U
2105 POGec
POGRn
2106 PQGBE
2107 P06BF
2108 POGeo
paGel
EOFA
0020
OAOl
0302
IS0 ..
5.. EC
5.. ED
l8F8
5800
oOBE
1"02
1803
1800
FFSE
60271300
Se:C9A
lOQ-
EQUIP
INQ
ENA
OUT
JHp·
RTJRTJ-
S20
EO. HO., QDO SET.
SET Q05· (STATION 11.
SfT ADO.
CLEAR CONTROLLER.
EXPECT REPL '(.
ERROR ~, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJFCT.
ENO-OF-SECTION STOP.
RTJ
1
2
SECSB
(ERRORCt )
(ERRORS)
SECBA
ENOSEC
.+?
SECC
SECB
F
EXIT LOOP IF EOF CARD.
LOOP TO READ HORE CARDS.
CHFCK STOP/JUHP aUT
LOOP IF SET •
Jt4p.
SFcao
S10
CHECK STOP/JUHP BIT 15.
EXIT LOOP IF SET.
(JUMP)
LOOP01
~HP·
.(NO OF SECTION 11
P06B't
P06BS
POGSG
P06B7
PDGB8
POGBQ
POGBA
DArFi 01/04/75
STAAND
JHp·
L!lASAN
JHP·
ENA
RTJ-
u c
()
REPEAT SECTION.
GO TO NEXT SECTION
~.
02096
82097
- 42098
02099
02100
02101.
02102
. 02103
0210 ..
02105
02106
02107
02108
PAGE
57
PAGE
CRPAOD
DATEI
58
!l1/Dlt/75
.....................................................................................
02110'
1 2
PRO TEe T ION
T EST
02111
• SEC T ION
.CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCGCCGCGCCC·· .' 02112·
2UO
2111
2112
0211,.
·INITIALIZE SECTION 12
2114
02115
•
CLEAR PROTECT AIT IN ALL "EHORY LOCATIONS THRU END OF TEST.
2115
02116-.•.
J.VPE OUT MESSAGE· TO OPERATOR TO SET PROTECT SWITCHES
2116·
..
ON COMPUTER CONSOLE AND ON 1728.
02117
2117
02118
2118
•
STOP WITH A = Q = 1728.
42119··.. "
SECC
LOA
SECTOT
GET SECTION PARAHE fER.
·2119 PG6C2 C800
POGC3 F943
02'120
CHEtl< BIT 12.
CONST+12
2120 P06G4 A077
AND, 821·21
2121 P06C5 0111 .
SAN
1
02122
JHp·
GO TO NEXT SECTION IF CLEAR.
SECO
2122 P06C6 1850
02123
ENA
12
2123 P06Cl DADe
SEC ..
SAVE SECTION NO. FOR ERRORS.·,
··02124~·
2124 P06C8·60F9
STA· 02125 .
LOQ
=XBUFFOUT+79
2125 P06C9 EOOO
P06CA OBeo p
PTC2 .... ot126 ,
. LOA =xeUFFOUT+1Q-GRPAOO
·~126 P06CBCOOO
P06CC OBeo
CLEAR PROTECT BITS.
02127 '
CPB
0
2127 P06CD 0700
SECCA
PTC2· . ·02128
INA -1
2128 P06CE 09FE
PTC2
02129
2129 P06CF 0102
SAZ SEepa
· 02130
INQ
2130 P060D DOFE
-1
JHp·
SECCA
02131
2131 P0601 18FB
02132
SEcce
LOA
=XHESSC
2132 P0602 COOO
POGo3 0969 P
· 0213,3·
ENQ
.HESSO-HESSC+l
2133 P0604 DG20
CHESSAGF)
TELL OPERATOR TO SET PROTECT
0213~
2134 P0605 5408
RTJ2135
.
SWITCHES.
' 02135
LOA
=N$1l28
·02136
2136 P0606 CO 00
P0607 1728
Q
,02137
TRA
2137 P060e 0822
a
STOP WITH A = Q = 1728.
92138
2138 P0609 0000
SLS
•
2140
2141
2142
2143
21 ....
2145
2146
2147
2148
21'.9
P060A
P060B
P060C
P0600:
P060E
POGoF
POGEO
P06Et
POGEl
P06E3
0842
5.. E6
COoF
Aoon
FBFF
BODO
0081
54EF
54E8
18F6
60271300
r
\
021 .. 0
021 .. 1
·SECTION 12, LOOP 0
•
GET STATION 0 STATUS, EXPECT PROTECTED (eIT 7)~
LOOPcn
CLP.
Q
RT J(STATUS)
GET STA TION 0" STATUS
LOAACT
AND
=NSFBFF'
IGNORE EOF STATUS.
. 02142
021,.3
021 ....
021.. 5
EaR
=N$0081
EXPECT PROTECTED AND READY.
02146
R,TJRTJJMP·
(ERROR7l
(Ie100)
ERROR 7, UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIMES.
021 .. 7
021,.8
. Loopeo
021~9
. PAGE
F
'.
,(
\
i
"
J
/
')
J
)
)
56
'./
~,
J
c)
0
0
() 0
0
C;?'PAOD
2151
2152
"2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
.2166
2161
2168
Ci
0
0
PAGE
(
'\
)
(J 0 0 C) 0 0
OATEI 01/04175
59
·SECTION 12, LOOP 1
ATTEMPT ALL FUNCTIONS ON STATION 1, EXPECT EXTERNAL REJECT.
GET STATION i STATUS, EXPECT PROTECTED AND READY.
LOOPCl
LOO,EQUIP
EQ. NO., QOO SET.
INQ
$20
SET QOS (STATION It.,
SET
A
SET ALL BITS 1M A.
OUT
2
SELECT ALL FUNCTIONS.
(ERROR(;)
RTJERROR 6, UNEXPECTED REPLY.
(ERROR4)
RTJERROR 4, INTERNALR£JECT.
NOP
a
EXPECT EXTERNAL REJECT.
ENQ
$20
SET Q05 (STATION lJ.
(STATUS)
RTJGET STATION STATUS •.
ACT
LOAAND
=N$FBFF
IGNORE EOF STATUS.
•
PO&E4
P06E5
P06E-&
P06E7
P06EI)
P06E9
P06EA
P06ES
P06EC
PO&ED
P06EE
P06EF
P06FO
P06F1
P06F2
P06F3
P06F4
2110
2171
2172
2173 P06F5
2171t P06F6
2175 P06F7
.2176 P06F6
2177 P06F9
2178 P06FA
2179 P06FB
2180 P06FC
2181 P06FO
21H2 P06FE
2183 P06FF
P0700
2184 P070t
P070Z
218S P0703
2186 P0704
2181 P0705
2189
2190 P0706
P0707
2191 P070a
2192 P0709
2193 P070A
P070S
•
EOFA
0020
oa04
0302
51t£E
54£C
OBOO
OC20
54E6
COOF
ADOO
FBFF
BODO
0081
54EF
54E8
18EF
oelto
54E&
COOF
AOOO
FBFF
BODO
0089
SltEF
18EF
02165
RTJRTJJMp·
(ERROR]) .
(Ie100)
LOOPC1
ERROR 7, UNEXPECTED STATUS.
INCREHENT LOOP COUNT.
LOOP 1'00 TIMES.
02166
D2167
02168
oqeo
P
OC18
5lt08
COOD
1728
&0271300
=N$OO89
EXPECTED PROTECTED,DATA,REAOY.
tJ2·1S4
RT.J-
(ERROR?)
(IC100)
LOOPC2
ERROR 7, UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIHES.
02185
02186
02187
ENQ
RTJLOA
F
02170
02171
·02172
02173
02174
02175
02176
02171
02118
D2179
02180
02181
02182
. 02183
EOR
.fNO OF SECTION 12
LOA
=XMESSE
COOO
02163
02161t
EXPECT PROTECTED AND READY.
RT.JJHp·
54£6
42162.
=N$0081
..
oaoo
02151
02152
02153
0215,.
02155
02156
02157
02158
02159
02160
02161
EOR
"'SECTION 12, LOOP 2
ATTEMPT ALL FUNCTIONS ON STATION 2, EXPECT EXTERNAL REJECT.
•
GET STATION 2 STATUS, EXPECT PROTECTED AND REAOY •
LOOPC?
LOQEQUIP
ED. NO., QOO SET.
IN~
$40
SET QO& (STATION 2).
SET
A
SET ALL BITS IN A.
OUT
2
SELECT ALL FUNCTIONS.
(ERROR6)
RTJERROr. 6, UNEXPECTED REPLY.
CERROR4)
RTJERROR 4, INTERNAL REJECT.
NOP
0
EXPECT EXTERNAL REJECT.
ENQ
$40
SET Q06 (STATION 2).
(STATUS)
RTJGET STATtON 2 STATUS.
LOI\ACT
AND
=NSFBFF
IGNORE EOF STATUS.
EOFA
OD40
0804
0302
5'+EE
54EC
U U
HESSF-MESSE+1
(MESSAGE)
=N1::1728
02189
02190
02191
02192
02193
PAGE
59
('----"")
l
CRPAOO
PAGE
TRA
2194 P070C 0822
2195 P0700 0000
' .. '2196 POrDE· C8"3~"
2197 P070F ADGC
2198 P0710 0113
..·.,2199 P0711- OA02
220D P0712 8043
2201 P0713,6043
2282'f'071'" 5867
2203 P071S 18AC
DATEI 01/04/75
60
021"94 .
. 02195
.. -&2196·:·:-,····
'02197
02198
·02199·,
02200 .', ..... '
Q
o
SLS
··lDA-
SlJ.p· .. · .
ANOSAN
CONST+1
. EHA
EORSTA. RTJ·'
JHP·
3
·2
..
STJP
srJP
SET ENO-OF-SECTION STOP BtT.
EHDSEC .'
·END-OF-SECT'I()N'STOP."
SECC
REPEAT SECTION.
,
. .', lJ22'~· "1JI~
--.' ""- 82202-.. .... _.!?.. - .. ~
,02203 .......
........... - ~"'''' . ' " .........
"""':-"':","!!;o-? ,~ ..' .. -,. • -•..•,- ... '
.. - ..
.~
' ....... "'.... - . .
60271300
(
)
.......
:
~.,
..........
F
,"
."~
. PAGE
',\
I
\
(
) ()
(j
....- ..
..•.. ,
-::
'
- ..........., .......... , ... ,." ............,... - .. ..
~~
.. ..
,"
,
...................... .......
~-
~.-
...
60
'J
.. :, ...... - .... .
i~ ' \
.
}
-..-.............:...-.-.-
o o o o o o (
CRPAOD
PAGE
OAT EI '01/0 .. .175
61
••••••••••••••••••••••••••••••••••••••••••••••••••••••··················02205
• S F. C T ION
1 3
A l ARM
WIT H
NOT
REA 0 Y
02206
.00DoonOODDDDDOODOODODDOODOOO(}OOODODDODoooonOOODDDOODDODOODODODDOOOODDOD . ·02207 .
220·5
2206
2207
2209
221Q
···2211
2212
2213 P0716 C80a
P·0717 F8EF
2214 P0718 A078
2215 P0719 0111
2216 P071A 1348
2217 P07lB DAOO
2216 P071C 60F9
·2219 P0710 0842
2220 P07lE 4000
2221 P071F EOFA
'2222 P07l0 0040
2223 P0721 OAll
2224 P0722 0302
2225 P0723 1804
2226 P0724 54fC
2227 P0725 54 EO
2228 P0726 18F8
2229 P0727 COOO
P0728 0995
2230 P0129 OC29
2231 P012A 5408
2232 P072S COOO
P012C·1728
.INITIAlIZE SECTION 13
•
CLF.A~ CONTROLLER AND SELECT ALARM INTERRUPT ON PUNCH, EXPECT
•
REPLV. TYPE OUT MESSAGE TO OPERATOR TO CAUSE AN ALARM ON 1728.
•
STOP WITH A Q
1728.
S~CO
LOA
SECTOT
GET STA nON PARAMETER.
= =
SECOA
ANOSAN
JHp·
ENA
STACLR.
STQLOQINQ·
ENA
OUT
JMP·
CONST+13
1
ENDTEST .
13
SEC
STAT!ON
EQUIP
$40
$11
2
RTJJ"p.
LOA
ENQ
RTJLOA
HESSE-MESSO+1
(MESSAGE)
=N$1728
P0120 0822
TRA
Q
2234 P012E 0000
SLS
RT.J-
SECOI)
CHECK BIT 13.
GO TO END OF TEST IF CLEAR.
SAVE SECTION NO. FOR ERRORS.
Q
SECDB
(ERROR4)
(ERROR5)
SECDA .
=XMESSD
22~13
o
o
)
EQ. NO., QOO SET.
SEr Q06 (STATION 2).
SET AD4 AND AOO.
SELECT CLEAR AND ALARH INT.
EXPECT REPLY.
ERROR 4, INTERNAL REJECT.
ERRO~5, EXTERNAL REJECT.
HANG ON REJECT.
02214
02215
. -. '2216
02217
02218
02219
02220
02221
02222
02223
022.24
02225
02226
02227
02228
02229
f'
o
TEll OPERATOR TO CAUSE ALARM.
STOP WITH A
= Q = 1728.
·SEcrrON 13, LOOP 0
GET STATION 0 STATUS, DROP BITS 8, 9, AND 11. EXPECT
ALARM STATUS. SET ALARM INTERRUPT "ASK BIT, ~XPECT ALARM INT.
•
LOOPOO
CLR
a
(STATUS)
RTJGET STATION 0 STATUS.
AND
=N$F4FF
DROP BITS 8,9, AND 11.
2236
•
2237
2238
2239 P072F 0842
2240 P07l0 54E6
2241 P0731 ADDO
P0732 FltFF
2242 P0733 8000
P07l4 0024
2243 P0735 54EF
2244 PD7l6 5ltEB
2245 P0137 54FS
2246 P013a S4E8
2247 P0739 18F5
60271300
02209
02210
. 02211
02212
02213
F
02230
02231
02232
02233
02234
02236
02237
02238
02239
02240
022.. 1
EOR
=N$OO24
EXPECT ALARM AND INT. STATUS.
02242
RTJRTJRTJRTJJMP·
(fRROR7)
UNITAlARM)
(ERRORD)
CIC100)
LOOPOO
ERROR 7, 1NEXPfCTEO STATUS.
SET ALARM INT. MASK BIT~
ERROR 0, NO ALARH INTERRUPT
INCREMENT LOOP COUNTER.
lOOP 100 TIMES.
02243
0224 ..
02245
02246
02247
PAGE
61
PAGE
CRPAOO
2249
. 2250
2251
2252
2253
2254
2255
P073A
P07JB
P07lC
P07l0
EOFA
0040
0801t
0302
'~256
P07lE
5~EE
PQ73F
P0740
P07 .. 1
P0742
P0743
·P07 ....
2262 P074S
P07lto
.. 2263P07Ct7
2264 P07lta
2265 P07 .. 9
5.. fC
2257
22-;8
2259
2260
2261
. 2267·
2268
2269
2270 P07 .. A
2271 P074B
2272 P074e
2273 P07ltD
2274 P074E
2275 P074F
2216 P0750
2277 P0751
2278 PQ752
2279 P075J
P0754
2280 P07S,
P07S6
2281 P0751
2262 P07sa
2283 P0759
o
2285
2286
2287
2288
2289
2290
2291
2292
P075A
P07S8
PU75C
P0750
P075E
P07SF
P0760
DaDo
~SECTION
•
4
EOFA
0020
0804
0302
S4E£
54EC.
OBOO
OC20
54E6
ADOO
F4FF
BOOO
002,.
54EF
5ltE8
18FO
)
13, lOOP 1
·ATTEMPT ALL FUNCTIONS ON PUNCH , EXPECT EXTERNAL RFJECT.
GET STATUS, nROP BIT 8,9, AND 11. EXPECT ALARM, NOT READY.
lOQEQUIP
EQ. NO., QOO SET.
INQ
$40
-SET· aU6 (STATlON ,21.
~ET
A
SET All BITS IN A.
OUT
2
SELECT ALL FUNCTIONS.
RT J(ERRORE;)
ERROR 6,UNEXP£CTEOREPLY •...
RTJ(ERROR4)
ERRO~ 4, INTERNAL REJECT.
NOP
0
EXPECT EXTERNAL REJECT.
ENQ
$40.
. SET Q06 (STATION
RTJ(STATUS)
GET STATION 2 STATUS.
AND
=N!F4E7
DROP BITS 3, .. ,8,9, AND 11.
2'.
De40
54E6
ADOO
FltE7
BODO
002At
SltEF·
54E8
l8FO
·loopn2
AOGC
0113
OA02
8043
6043
5819
. 022,.9
02250
02251
02252
02253 .
02254
022$5
02256
02257
02258
02259
02260
: 02261
EOP.
=N$OD24
EXPECT ALARM AND INT. STATUS.
02262
RTJRTJJI1P-
(ERROR71
nCl00)
lOOPOl
ERROR 7, UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100 TIHES •.
02263
0226 ..
02265
13, LOOP 2
ATTEMPT All FUNCTIONS ON READER, EXPECT EXTERNAL REJECT.
GET STATUS, DROP BITS 8,9, AND 11. EXPECT ALAR",NOT READY STATU
. lDQEQ. NO., aDo SET.
EQUIP
SET QDS (STATION 1).
INQ
'120
SET
A
SET All BITS IN A.
OUT
SELECT ALL FUNCTIOHS.
2
(ERRORE))
ERROR 6, UNEXPECTED REPLY.
RTJ(ERROR4)
ERROR 4, INTERNAL REJECT.
RTJEXPECT EXTERNAL REJECT.
NO?
0
SET a05 (STATION 1).
$20
FNo.
(STATUS)
GET STATION 1 STATUS.
RTJ=N$F4FF
DROP BITS 8,9, AND 11.
·ANn
02271
02272
02273
02274
0227S
·02276
02277
02278
, 02279
=N$0024
EXPECT ALARM AND INT. STATUS.
02280
~TJ-
(ERROR7J
(IC100)
LOOP02
ERROq 7. UNEXPECTED STATUS.
INCREMENT LOOP COUNTER.
LOOP 100· TIMES.
02282
02283
RTJJHp·
02281
02285
02286
02287
02288
SET F.Nn-OF-SECTION STOP BIT
FNO-OF-SECTION STOP.
02289
02290
02291
02292
PAGE
F
/0 ~)
~
022'7·, .
02268
02269
02270 .
EOR
-END OF SECTION 13
STJP
LOAANOCONST+1
SAN
3
ENA
2
STJP
EO~STASTJP
RTJ4
ENDSEC
C043
60271300
)
4SECTION
•
•
lOOPD 1
OATEI 01/04175
62
( )
\
62
)
\
)
\
I
)
(
-"
)
o o
r----\
J
CRPAOO
PAGE
6J
DATE' 01/04/75
SECO
2293 P07&1 18S4
.
()
REPEAT SECTION.
02293
I.
60271300
F
PAGE
63
PAGE
CRPAOO
PD762
P076l
P0764
POT65
POT66
POT6T
POT68
P0769
P076A
P076D
POT6C
2310
. 2311·
2312
2313 P0760
2314 P076E
2315 P076F
P0170
2316 P0171
231T P0172
2318 P0773
2319 P017,.
2320 P017S
2321 P0776
2322 P0777
2323 P0778
2324 P0779
F017A
•'"
080S
C008
5402
1803
0004
0000
OA40
5406
1&03
COD8
S403
ENDTEST
PAsseT
STOP IF STOP/JUHP BIT 2 IS SET.
REPEAT TEST IF STOP/JUHP -BIT 6 IS Sf T. EXIT TEST IF NOT.
INCRfHENr PASS COUNTER.
PAsseT
RAO"
BIAS
LOA~NO-OF-TEST STOP.
CSTOPX)
RTJPASSCT+l
JHP" .
IOENT WORD.
NUH
SOO04
··COUNT OF PASSES THRU TEST ...
NUH
0
$40
ENA
(JUHP)
CHECK STOP/JUMP BIT 6.
F
rAGE
eRPAUD
r--
\.
)
CONSh3
DATil iNTERRUPT
YES -SKY P
1821
JMP.
OADG
9UF9
0105
EN/'.
1
IfHR4
6
SUBSAZ
SEC
INTR2A··-l
SF-CHON 6
NO-SI/l
P086'3
PORGA
P086n
POR6e
SAN
SAN
70 OU8
P0871 EOn7
IN TR?A
2605 P081? CAOO
LOOLOA
c) C)
(
OATEI n 1/0417':;
7'3
ANn-
2593 1'0866 Ai) 6E
2Sg4 tJOl\67 0111
25Cf5
2596
2597
2596
2599
2bOO
2601
2602
2603
261)4
(
NO -JUMP
SF.CTION 7
NO-SKIP
ON CHANNEL
YES-SKIP
DATA 'TO OUTPUT
02593
02594
02595
02596
02597
02598
02599
02600
0260!
02"602
02603
02604
02605
P0813 OJ3E
2606
2607
2608
260Q
2610
2611
2612
261.1
2614
2615
2616
2617
2618
2619
2620
2621
2622
262J
2624
262!)
2626
"0874
POA7S
P0876
P0877
POa7S
P087C'j
P087A
P0870
Poa7e
POB70
EOFA
003F
Olll
0007
18E3
CIHD
tNTR,";
681£
DaDA
CIHO
0111
USDA
P087F C{)FA
POSSO OOlF
POB81 0206
POBS? fIJU7
P088J !lAOD
P0884 (?DC
POR8S 01107
P0886 1805
PD887. 0000
PD88R 1800
P0889 egaD
P067~
REJECT-"
COLUMN
INTRE
TEHP
OAlAIS
OATAIF
TMP
SAN
1
JHr'J·
INTRA
EQUIP
$iF
REJECT-'"
COLUHN
BUFf IN+fl n. Q
EXIT
COLUMN
INTRE
INCt:?:::HEtH COLUHN COUNTt::R
EXIT
LnQINQ
INl-'
LOQ-
STA
RAil-
RE Jr r:r
ItHR',
EQUIP
lOQIN1
OUT
RAOJMP·
LOA·
STA"
RAOLOA·
JHP"
NOP
JMP·
LO"'·
$3F
OUTPUT DATA
I NCR~HE NT COLUMN COUNT EP.
DATA INTERRUPT STATUS
SET FLAG
SEC HON 1 (}
YES-SKIP
INPUT DATA
STORS [lATA
0
INTRA
Tf.~f'
2627 f'088 A 611DF
ACT
2628 P0889
Ol}44
STACl?
A
2629 P088C 6400
POB/H) 00 ::0
2630 P08flf OBOC
26,11 P068F 6500
STA
EXP
SET UP fOR ERROR 14
NO INTfRRUPT STATUS
02606
02607
0260a
1)2609
02610
02611
02612
02613
02614
02615
02616
02617
02618
02619
02620
02621
02622
02623
02624
02625
02626
02627
02626
02629
02630
02631
Tt;!~l
A
ST.I\+
REG+2,I
2632 1"0891 OCl4
EN()
2633 P0892 ·CAla
2(d4 POaQ3 5800
PO~94 013C
2635 POS95 18(;6
t::NA
U4
$10
prJ
ERRO".
02632
02633
02634
.JMP"
INTR1:
02635
0
0
0
0
026'37
F'ORQO
0142
2637 PO 891-", 0000
rEMP
26.i8 "'0897 0000
26~9 f'oaqfj 0000
2640 POS9Q 0000
T~P
NW1
NIJi1
OI\Tr.r:-:
NUM
UlPJ')
NLJt-1
02&38
D2&3q
02&'tO
Pl\GE
73
P.t\GE
CRPADO
·2641 P089A 0000
2642 P0890 0000
.2644 P089C
P0890
2646 P089E
2647 P089F
264S P08AO
2649 P08A1
2650 P08A2
··2651 P08A3
2652 P08A4
2653 PQSA5
265ltPOSA6
2655 P08A7
P08A8
···2656 P08A9
2657 P08AA
2658 P08AB
2659· P08AC
2660 P08AO
2661 P08AE
P08AF
2662 PoaBO
2663 P08!31
2664 P08B2
2665 Pil8B3
2666 P08B4
2667 P08e5
2668 P08B6
2669 P08B7
2670 P08BS
2671 P08Bf)
2672 P08BA
2673 P08BB
2674 P08se
2675 P08BD
. 261t5
0000
ALAI:;
ALA IS?
HUH
NUM
OLYPA~
NUH
ENA
RTJ.,JMP·
LOQ·
LOA·
AAQ
STA·
INA
AND-
·DA10
5406
1814
ES10
C81B
OLt
OS34
6819
0907
AG87
OF4..
9800
FEE7 .
0101t
0133
0852
4S11
l11FJ
8800
OL2
FEED
0112
0852
't809
E809
Ol3
0007
A087
OF24
5807
OL4
0142
nOFE
18FC
nL5
1CEO
OF.LI\Y
0000
0000
INCR
6027130U
ARS
SUB
SAZ
SAM
TCQ
STQ·
JHP·
ADO
SAN
TCQ
DATEI 01/04/75
74
o
a
026.. 9
02650
02651·
02652
H7FFF
-·82664
02655
(lX)
PARAH4
OL2-"'-1 .
OL2-·-1
Q
··;·02656'·
02657 .
CHF.CK IF OVER MAX LIMIT
YES COMPLEMENT INCREHENTER
INCR
DL1
PARAH..
REDO
RESTORE NUHBER
DL3-"'-1
CHECK IF AT LOWER 1.1 IT (0)
02662
02663
0266..
02665
Q2666 .
02667
02668
02669
02670
02671
02672
02673
02674
· 02675
ROUND OFF UX)
DO ITERATIONS IN Q
0
PAGE
F
I
\
\~~~
02659 .-.
·02660
02661
YES COMPLEMeNT INCREHENTER
-')
...
02658" "'<:f'~
Q
HILLY
OLS
-1
Dl4
C DLYPARt
0
.....
02653
ROUND OFF
4
...................
D26ft8·
7
4
INQ
JMP'"
JMp·
NUM
HUM
BRI~G UP INCREHENTER tl0X)
BRING UP LAST DELAY TIME (lOX)
ADD TOGATHER
SAVE FOR NEXT PASS
·OELAY
QRS
SQZ
026....
· 0261.5
02646
· 02647
REPEAT CONDITIONS
A
INa
ANI)RTJ·
026 .. 2
0
$10
(.,JUMP)
DL3
INCR
DELAY
INCR
DELAY
7
H7FFF·
STQ·
lOQ·
026ft1
.- '\
j
74
\
'\
'\
)
~
~
.-
'-j
~
r> C" ()
\
-
CRPAOD
PAGE
75
c)
(~)
(
'
(
DATEI U1/04/75
2677
·DELAY ONE MILLISECOND
NU,",
2678 P08BE 0000 . HILLI
0
,STQ·
.. HILLIQ
2679 P08BF 4609·· . ,
2680 P08CO C056
SHHCNT
LOA2681 P08C! OF42
ARS
2
~, .2682 .PQ8C2 OC03 .'
.F.NQ
3
LAQ
2683 P08C3 0882
Q
2684 POBC4 CAOS
LOA·
HILVIlL,Q
-- . 2685 P08tS ,£803
HILLIQ
LOQ·
2686 P08C6 S807
CYCLES
RTJ(MILLI)
2687 POBC1 lCF6
JHP·
.2688P08C8 .0.000 ... . HILLIQ . NUH
0
2689 P08C9 0129
HILVAL
NUH
Si29
NUH
2690 P·08CA OOC1
SC1
: ··:·2691·~08Ca.·O.17A ,..
.NOH
S17A
2692 POBce 0280
NUH
$280
SAVE Il
SHH PARAHET ER
' . MASK VALUE
PUT INDEX VALUE IN Q
02677
02678
02679
02680
02681
.0.2682·
02683
02684
02685
02636
02687.
02688
02689
02690
02691
02692
PTC2
RESTORE' Q
Q REGTEHP SAVE
1.1US CONSTANT
1.5US
'900 NS •
600 ·NS.
.
•
__......
MO'
.........
~
,_, .......
~_
",
~;
.....
,' . . . . . . \ :. . . . .
~.a
....... ~. ~
·DELAY X CYCL~ TIHES
•
X IS THE NUHBER IN THE A-REGISTER.
2694
2695
~ .. -.·,2~96.PIl8CQ.,JJo.on.
poace:
:.~
•••
CYCLES........ HUH
2698 P08Ct:0131
INA
SAH
2700 P08Dt tCFB
JMp·
':':2697'
09FE' '.
.
,.
o.
. ........ " ... .
-1
1 .
. \~
............. - .....
~"
.... ,........
~- ..... '.,.
... ,....... .-.:. '~'.-. :....
(CVCLES)
02700
--_ ....-- ·"·- . -·····-..
.. -..:...: . ,~,
., .... - : ~~ ~'...
.....
.'
........,', ..:,.:- ..........-:
~.
..
,
..
2703
•
2704
..... :t':.
2705
;~270'
.•
. 2787
~
,,··:20701· ........... _.- ...;:. ~ •.
2709
2710
•··27:11
2712 POS02 0000
2713 P08030S2!
•
.....•
GEN
.:. '·2714 ·P08B4· .. aoo ..--."
poaos 019A
2715 P080E) lAOt
..
- ..-.....
~.
.
..
ENA
X PATTERN NO.
RT J(GENERATE)
fILL . OUTPUT BUFf'ER~.AREA HI TH P.ATlE.RN NO •. SPECIFIED IN ...A....
PATTERN 0 = TNO-FIVE (555, AAA. 555, AAA, ETC.)
PATTERN 1 : SHIFTED ONE (OOl~ 002, 004,---,8tO,OOl.002,ETC~)
CALLING SEQUENCE IS
.. PAfTEi·RN 2 :·SHIFTEO ZiRO.CI"FE-9FFO;"FFB, .. --.7FF,FFE.'FO,£TC.J .
PATTERN 3 : RANDOM (WORD(N.l) = NORO'N) + ADDEND)
PATTERN 4
HALF-CARD CFIRSTHAlF OF CARD BLANK)
·PATTfRN .5 -;: EN.o-OF.~FILE . CARt). .. (NO PARIlY. OR HOLE COUNT SItS)
NUH
0
.
=
TRA
STQ
Q
PAT.lNO
SAVE PATTERN MO.· FOR ERRORS.··
__ •
H
......
,,,,.,,
•• ,
. . . . . . . . . . . . . . . . . . . : . , ; _ : - : - . - : ..
.. ·02702.
02703
0270,.
· 02105 .....
02706 '.
02787
·1274•
0270 CJ
02710
· 02711
02112
'272,3
·0271"
PAGE
~ . . . . ."'~' •••
_ : . . . __
.-:::::-~
" ....... _:.. •..• , ... ~ •• , _: .. ;..·10....... __
...
02715
F
~:'~T
,;: " ' "
"~":-
.GENERATE PATTERN
·..·2102·
60271300
,:.
· 02"8
·02699 ..
~.
,.,'
.
.... ...:...... ~ ..... ..:~.-..:....,.:.. ....... .. ~.~
··~7·'·'·······~-':···.-:'"':'.~
..
,,,
..
,.~ ~ ... , .. ,
0269,.
02695
. . '" 0269ft".
02697 .
...-~ ~6.9g;.P.U80.4.. 18FD. -.... ~..... _.... ".-.~JHP.. • ... 2
r':'",~"-'-""'7"""
(
1S
PAGE
CRPAtlO
271&
2717
2116
2719
2720
2721
POSO'
P08DS
P0809
POeOA
poaoe
poaoc
2723 POSOO
poaOE::
2724 P080F
2725 P08ED
P08El
2726 P08E,~
P08E3
2727 r08E4
2728 P08E;
2729 P08E6
2730 POSE7
2731 P08E8
P08E9
27:12 P08EA
POSEB
2733 P08EC
P08EO
273,. P08EE
DATEI 01/0lt-175
76
02716
02717
02718
02'719
02720
02721
1806
JHP·'
1817
1830
1832
1850
1862
JMP·
JHp·
JHP·
JHP·
FATTO
PATT1
PATTZ
PATT]
PAT TitPATTS
PATTiJ
LOA
:NS0555
PATTOA
ENQ
STA
-78
BUFFOUT+7S, Q
EaR
1tNiOFFF
INc.a
1
1
COOO
01555
OCB1
6AOO
02CE
BODO
OFFF
onOl
0141
18F9
JHp·
SQZ
JHP·
STA
PATTOA
A
BUFFOUT+78
LOA
=Nlt-6R
STA
AUFFOUT+79
JHP·
(GEN)
PATH,
ENA
F.'NQ
1
STQSTA
t
PA TTl A
CLR
Q
LLS
5
CL~
08/."
6800
02C6
COOO
0104
6800
02e3
1CE3
2736 P08EF OA01
2737 P08FO DCBl
2738 P08Fl 40FF
273q P08F2 6QQO
P08F3 020C
2740 PORF4 0842
2741 P08F,:) IlFE:5
2742 P08F6 OFCC
2743 P08F', 0834
2741t- P08F8 DOFF
2745 POIJF9 EOFF
2746 r08FA 0141
2747 P08FB 18F6
2748 P08FC OA3F
2749 P08FO ,6800
P06FE 0?81
27c)0 P08FF OAOt
2751 P090a 080e
P0901 0260
2752 P0902 01n2
2753 POqO~~ CODA
POQ04 030e
2754 POgO; OQS4
60271300
AAA
0272&
PARITY.
02727
02728
02729
02730
02731
' 02733
HaLF.: COUNT.
027aft
02136
02737
02738
02739
001
BUFFOUT+78,I
12
AAQ
A
RAC-
I
JI'IP'"
ENIl
02724
02725
02732
-78
ALS
U1QSQZ
'OZ123
555
SHIFT 12-BIT HORD LEFT
ONE PLACE ENO-AROUNQ.
I
1
PATTlA
t3r
STA
8UFFOUT+78
F.r-tA
1
EOR
\3UFFOUT
SAZ
lilA
=N780
INA
81t-
PARITY FOR 80TH PATTERNS 1 + 2.
,027 .. 0
02741
02742
027 ..3
021....
02745
02146
02747
027.. 8
02749
02750
02751
z
HOLE COUNT
=
~64
FOR PATTERN 2,
84 FOR PATTERN 1.
02752
02753
02754
PAGE
F
,--
\
/
\
)
76
\
\
",
I
'\
)
o
{1
\
/
PAGE
CRPAOO
27$5 P09U6 6800
P0907 n2A9
2756 P09D8 lCC9
2758 P09D9 COOO
P09DA OFFE
2759 P090B 18(4
PATT;?
C077
5406
1805
CDOD
PATT]
2761
2762
2763
276 ..
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
271q
2780
2781
2782
278J
2784
2765
2786
P090e
P0900
P090E
P090F
PD910
P0911
P091?
P0913
PD914
P0915
P0916
P0917
P091"
P0919
P091A
P091U
F'091C
PD910
P091E
P091F
P0920
P0921
P0922
P0923
P0924
P0925
P0926
PD927
PD928
P092Q
PD92A
(~)
(~----'\
~
J
o
r-·'
f
'\
DATEI 01/04/75
77
STA
BUFF(JUT+7Q
02755
JHp·
(GEN)
02756.
LOA
=N$OF'FE
JHP·
FATT1+1
LOARTJJHP·
LOA
CONST+12
(JUMP)
BA!';E-l
=XBASE
ENQ
R.T J-
1
FFE
02758
02159
CHECK STOP/JUMP 12.
USE OLD BASE WORD IF SET.
02161
02762
· 02163
02764
OCH4 fJ
oeOl
5407
COOD
1128
AOOO
OFFF
66FC
6800
0248
6800
0247
0822
OA83
60FF
4900
02aF
F8F2
BASE
PATT"A
uO ......
OFE4
DFAC
0632
DOFF
COFF
0101
18F5
1820
60271300
LOA-
D
NUM
AND
$172~
=N$OFFF
51.1\·
STA
DASE
eUFFOUT.
STA
BUFFOU1+1
T~A
Q
ENA
STASTQ
-76
?ATT'.
BASE
A
LLS
4
12
PATT4A
SAZ
JHP"
JHp·
PARITY
STA
INQ
F
FIRST HORO _. SECOND WORD.
12-0I1 AO!) TO FORM NEXT WORn.
JHP"
PATT4A
· 02770
02771
02777
02778
02779
02780
02781
02782
02783
02784
02785
02786
02788
02789
02790
A
-78
BUFFOUT+76,Q
1
1
02767
02768
02769
02773
02774
02775
· 02776
PATT3A
SQZ
02166
02772
Q
I
I
1
CLR
F.NQ
BASE' WORD.
I
CL~
LOA-
02765
GENERATE RA NOOH NUMBER.
eUFFOUT + 78, I
ADa"
QLS
AAQ
RAO-
2788 P0928 as .....
2789 P092C ecat
2790 P092D GACO
PD92E 0281
27q1 P092F onOl
2792 f0930 0141
2793 P0931 18FB
(GE'NRAN)
ALL COLUMNS ZERO EXCEPT 40,79,80
02791
02792
02793
PAGE
77
CRPAOD
PAGE
2794 P0932
P0933
2195 P0934
P09J5
2796 P0936
P0937
2791 P0938
P0939
2798 P093A
2799 P09JB
P093C
2800 PD930
COOO
0801
E80D
FE59
6AOO
0229
6800
0276
OAOit
2802 P093E
2803 P093F
. ·P0940
280lt P09ltl
2805 P091t2
2806P094J
PD94"
2801 PD945
2808 P0946
2809 P091t1
2810 P091t8
P0949
OA03
6800
0221 .
08"
DeaD
6AOO
0260
6800
0274
lC94
PATTe:;
=N!8D1
02794
lOQ
PARA"-3
'02795
STA
BUFFOUT-1,a
STA
aUFFOUH·78
ENA
STA
It
JHP·
(GEN)
ENA
STA
J
ClR
A
-79
8UFFOUT+80,Q
STA
INa
SQZ
J"p.
Jl1P
0001
0141
18F8
lCOD
f'F88
2813
2814 PD94A 0644
2815 P0940 OGBl
2816 P094e BAOO
P094D 0262
2811 P094e 0001
2818 P094F 0141
2819 P095D 18FR
2820 P0951 6800
P095? 0250
282'1 P095J 0"44
2822 P0954·0CBO
2823 P0955 6800
P0956 025A
2824 P09S7 40FF
2825 P0956 OCF3
2626 P0959 e900
P095A 0256
2827 P095B OFC3
282" P095C 0001
b0271300
lM
t::NIl
PATT51\
DATE. 01/04175
73
8UFFOUT+19
02196
PARITY.
02797
HOlF. COUNT.
02·798
021«)9
.02800
02802
02803
ENO-OF-FIlE PATTERN.
eUFFOUT
02804
02885
-02806
O~~07
1
jfi'fA
02810
02813
0281'
02815
02816
PARITY AND HOLF. COUNT.
A
CLR
END
-18
BUFFOUT+78,Q
EOR
INQ
SQZ
Jt1p.
STI\
CL"'.
ENQ
02817
·02818
02819
02820
1
1
·-It
BUFFOUT+78
STO~E
PARITY COLUMN.
A
STA
-79
BUFFOUT+79
PYA
STQENQ
LOA
-12
BUFFOUT+79,I
PYA
AlS
INQ
1
:
. 02'"
1
PATTr;A
(GEN)
.D~TF.RHINE
PARITV
·.M,
'
"~.~.:
"', ":~'. j ".
n!'821..
.0 28't2'·
02823
02824
02825
02826
I
02827
02828
3
PAGE
F
\
'\
)
\
78
)
C)
()
C)
CRPAGD
PAGE:
2829 P0950 OFC1
2830 P095E 0122
2831 P095F 0600
P0960 0250
28.32 P0961 0141
2833 P0962 18F9
2834 P1l963 DOFF
2835 P0964 CtlFF
283& "0965 0101
2831 P0966 18Fl
2836 P0967 leoo
P0968 FF&9
DATE' [11/04/75
19
AlS
1
SAP
2
RA~J
BUFFOUTt 79
sr~7.
1
PYB
JHP"
RAOLI)ASAZ
JMP·
JM?
PYA
02832
02833
0283"
02835
02836
02837
(GE"N)
02838
I
I
1
.MES;,AGE TO OPERATOR IN SECTION 12
MEssa
NUM
tHOOA
AlF
Z. SET p~OT. SWITCH ON 17 X4. ANn 1728. CLEAR SEL STOPZ
2840
2841 P0969 8DOA
2842 P096A 5345
P096B 54?0
02829
02830
02831
028"0
028 .. 1
025 .. 2
POQ6C 5052
P0960
P09&E
P09&F
P0970
POq71
P0972
fJ0973
POq74
P0975
P0976
POq77
P0918
P0979
r097A
P097f3
POc)7C
f'097D
POY7E
P097F
P0980
P09St
P0982
4F54
2~20
5351
495,.
43,.8
204F
4E20
3131
5634
2ClO
414£
4it20
3137
3238
-2ClO
434C
4541
5220
5345
I.C20
5354
4F50
2843 P0983 800A
2844 P0984 4849
1'0985 .5420
P0986 474F
P0981 2C20
POQ8S 4940
P09SQ 4045
P098/\ 444CJ
P098f3 4154
POCJ8C 45 1.C
P09aD 5920
P098E 5;545
60271300
NlJM
ALF
F
$8DOA
Z,HIT GO, IMMEDIATELY SET SEl STOP Z
028 .. 3
028 ....
PAGE
79
CRPAOO
P098F
. POQ90
POQ91
PD992
P0993
POQ94
2845 P0995
2847
···2848 PG99&
P0991
P0998
P0999
P099A
PD998
P099C
P099D
P099E
P099F
P09AO
P09A1
PQ9A2
P09Al
P09A4
P09A5
P09Af)
P09A7
P09Aa
P09A9
P09AA
P09AB
P09AC
2849 P09AO
2850 P09AE
PD9AF
P09BO
P09R1
P09B2
P09Bl
P09B4
r09BS
P09B6
P0987·
PU9B8
P09B9
P09BA
P09BS
P09BC
2851 P09BD
2852 r09BE
P09BF
P09CD
5420
5345
4e2&
5354
1tF50
2D2G
80UA
/
"
)
NUH
HEssn
DATE' 011 1I4/75
80
028 .. 5
S80DA
"HESSAGF TO OPERATOR IN SECTION 13
AlF
Z... CAUSE ALARM ·ON 1728 -(EMPTY INPUT HOPPER· ANO·Z·· ....
4341
5553
4520
.. tltC
'
.~.
. 028 ..1
02146··
•
•
-
. , . 0"
.. _".- ...............
.,
-
. 4_ ....................
4152
4020
1tF4E .
,- -,
.........
,.
~....
. .-,
."
,
'"
... ,."
".
"',
.
,-
-...... -_ ..... _.........
2031
3732
.. . _.
3820
2020
2845
4050·
5459
2049
..
"
.
...
r ........
_ •••
......
4£50
5554
2048
4F50
5045
5220
414£
4420
80DA
4041
4A45
2031
3132
3820
4E4F
5420
5245
4144
5929
2C20
4849
5420
414F
2020
aODA
4J4C
4541
5220
60271300
r'-~\
PAGE:
........... -- ..
"
.... _.-,
HESSE.
NUM
ALF
$800A
Z,HAKE 1728 NOT READY) , HIT GO Z
NUM
ALF
$600A
02851
02852
Z,r.LfAR PRO'T • SWITCH ON 17X4 AND 1728, HIT GO Z
PAGE
,
'\
\.
-- .. ,._..
. 028,.9
02850·
F
\
'-
)
'\
\
)
.- - '\
)
'\
80
'-,
~
\
j
'-
f
-
\
\
)
n
(~
o c;
CRPAOD
P09C!
P09C2
P09Cl
P09C4
POCJC5
P09C&
P09C7
Cj
(~)
P~GL
o
()
(
\
DATEt 01/0,.175
81
51)52
ItF5~
2E20
5357
4954
4348
2ll4F
r09C8 4F20
P09C9 3137
P09CA 5834
P09CH 2041
r09CC 4£44
P09CIJ ?O,H
P09CF. 37 ~J2
P09CF 36?C
P09DO 2048
P090l 4954
P0902 2047
POc)03 4F?O
2853 P0904 SOfiA
2855
2856 P090S 0000
2657 POgOI; On44
7.858 POc)07 6009
2859 POc}08 &0£2
2860 1'0909 C800
POC)OC! 0.136
2861 FOqOa Ot'22
2862 P090C 0111
2863 POCJOr) 1837
2864 POlO£:. 91100
t1fSSF
~CHr:CK
r.:HEr.~
NUl1
OATA REA!')
$80(11'1
02853
FROM CARO
02855
02856
02857
02858
02859
02660
NtJ~
0
CLR
STA-
A
LUA
EOFFlAG
OFFSTF
RUFFTN
SHT~A
Q
SAN
JMP·
EOR
1
CHI{4
BUFFTN+1
SA~
1
P090F 0132
,?865 P09(0 011 t
2866 P09E1 l82A
coca
.mr·
CHK3
LilA
=N!0555
28&6
UlfJ
A
286q
C::/\ ~~
JMP·
1
CHKO
F.NfI
1
L:AQ
A
.1
2867 P09E2
() (J
ClFAR f"NO-OF-FILF. FLAG.
CLEM'. OFFSET FLAG.
=
CHE' 0: WHETtH R COLUMN 1
000.
IF S], lXPECT PATTERN It.
CHc:r.K WHETH;':I~ COL 1 -= GOL 2.
IF
Si1, E. XfJEC
D2861
02862
02863
02864
02865
02866
02867
r fAT TERN 3.
PrJ '}E.~ (J13S5
PO'3E4 0874
POqF.~ 0111
2870 f'O!'JE6 181F
2A71 POCJE7 OA01
28'72 P09ER 0874
2873 P09EQ 0111
2874 P09EA lRl0
00271300.F
SAN
JMP"
CHK1
CHECK WHETHER COLUMN 1
IF SO, EXPlCT PATTERN
555.
o.
CHECI( WHETHER COLUMN 1
IF 'So, I:XPECT PATTERN 1.
= 001.
02868
02869
02870
02871
02372
02873
02874
PAGE
81
PAGE
CRPAOO
2875 P09ES
P09EC
.. ·2876 P09ED
2877 P09EE
2878 P09EF
2879,P09FO
2880 P09F1
2881 P09F2
- -2882 PD9F3
CODA
OFFE
0874
0111
t81A
OA03
0874
0111
lS2C"
DATEI 01/04175
82
LOA
-::N$OFFE
EAO
SAN
JHP·
ENA
EAQ
SAN
JHp··
A
1
CHI<2
3
A
1
. CHK5
02875
CHECI< WHETHER COLUMN
IF
so,
1~'
FFE.·
EXPECT PATTERN 2.
CHECK WHETHER COLUMN 1
= 003.
IF SO, EXPECT PATTERN· 5.-
~CANNOT IDENTIFY PATTERN
ENA
CHECKA
P09F4 OA06
6
'P09F5 687A
PATT~RN NO. e 6 FOR ERRORS~'
- STA·PATTNO
SET OFFSET FLAG.
OFFSTF
RAOP09FG 00E2
DISPLAY FIRST TNO COLUMNS
BUFFIN
LOA
P09F7 CSOD
P09F80118
IN ERROR MESSAGE.
ACT
2889 P09F9 600F
STABUFFIN.1
2890 P09FA E800
LOll
.. P09FB 01:16·
STQEXP
2891 P09.FC '+OEO
ERROR 12, UNIDENTIFIED PATTERN.
ENQ
$12
2892 P09FO OC12
3 STOPS.
ENA
S10
2893 P09F·E GA10
2891t PO'9FF 5851
ERROR
RTJ·
PARITY AND HOLE COUNT WILL BE
=XCHKPAR
LOA
2895 POAOO COOO
POAOl OA37 P
STA(GEN~RATE) .
SET UP RETURN FROH SUBROUTINE.
2896 POA02 64F8
JHP PARITY
GENERATE PARITY AND HOLE COUNT
2897 POA03 1800
POAO'+ FFlt5
2884
2885
...... -2886
2887
2888
02876··
02877
02878
02819
02880
· 02881
02882
· 02884
02885
82886 --'.'
02887
02888
02889
02890
02891
02892
02893
02894
02895
02896
02897
2899 POA05 084'+
2900 POA06 lS1R
CHKO
CLR
JMP"
A
CHECKB
. PA TTERN 0 t TWO-FI VE
2902 POA07 OAOl
2903 POAoe 1819
·Otf1
;.
:io ':;~;' .
02911
. . . ~. ·~··jmi.- •.·. ,:.•. . •~. :.~::.:.-. . ..~--.~:. --.-:~-~.;=~~?~,
029ft3
.
~291tft
••_
. . . . " . _ ,. . .
~
__
........ :
_ _ _ • __ . . . . . . . . . . .)o .. _ _ :• • • • . : . ·.... _ · ·......
~_
.. ....... 429S1 ..
1
(CHECK)
'."
82935
.- .... -.. 02.9'.5 ... 029 ..'
, . 029'7
. CHECK PARITY·A NO·· ·"OLE. ·COUNT.··.. ·.. ._'. 02".-8···-, - --- .
029 .. 9
'02950
INCREMENT COLUMN COUNT.
--:81
CHECKO
.0293'
.LOOPIF.
MorCOLUHN 80 .... '"
.02952
'29'3·
Cl2~S"-· ..--.-.
02955
PAGE
83
.. .... -... ,,~-'"''''-''' " ................ -.. --.. :~.-.-..;..:,.:.
PAGE
CRPAOO
2967
·29S8POAltO
2959 POA41
2960' POA42
·2961 Po-A43
POA44
DATEI 01/04/75
02951
. . ;2958,
112959
02960
. '-92961 '
"OFFSET END-Of-FILE CARD. WAIT NOT BUSY.
OFFSET
HUH
0
EQ. NO., QO 0 Sf T •
EQUIP
LOQSET Q06 CSTATION 2."
INQ
SItO
LOA
aNSOt81
SET A08, "'AO 7 ,A'NO AOO '.
GtlQO
EOFA
0040
coon
0181
2962 POA45 03FE
. 2963 POA460AE1·
2964 POA47 6006
2965 POA48 5 .. E5
·2966 POA49 5800
POAIt" FE73
2967 POAItR 0006
", 2961 ~OA4C C006·
2969 POAItO 0121
2970 POAItE 18FA
2971 POA4F tCFO
OFF~Tl
ERRO~
AND OFFSET.
OUT
ENA
STARTJRTJ
-1
-30
SELECT FEED,
TIHE
(S"")
HILLY
INITIALE TIHE
GO TO HONITOR AND SACK.
Of.'LAY 1 HSEC
RAOLOA- .
SAP
'JHP·
JHp·
TIME
INCREHENT TIHE COUNTER.
...ERROR. STOP
ENTER
2973
2974
2975 PDA50 0000
2976 rOA51 8000
PQA52 0008
2977 POA53 6816
297& POA54 COF9
2979 POA55 'OFC8
2980 POA56 083..
?l361 POA57 6813
2982 POA58 C8F7
2963 POA59 6812
2981t POA5A C074
2985 POA58 5"06
2986 POAse 1804
2QS7 POA5D C8F2
60271300
84
Nur1
CLEA~,
1
WITH ERROR r.OOE IN
0
Q,
NO. OF STOPS fSHIFTEO
~)
STA"
LOAALS
AAQ
STA·
to
SEC
IOENT WORO.
U1A·
02973
'0297,.
02975
. 02916
IN A•
TEST NO. = 00. ERROR STOP.
JHP·
02969
.. 02970
. ,02971
DELAY 30 HSEC FOR 'OFFSET
OFFST!
COFFSET)
::N$0008
STA*
LOARTJ-
02961 '
. ,132964
TIHE
ADO
LOA·
02962
02963
0296 ..
02965
, -82966
02977
02978
82979
02980
02981
02982
02983
02984
02985
02986
02987
8
A
SEC ERR
ERROR
RETAOOR
8tT9
(JUMP)
ABIAS
ERROR
SECTION NO., ERROR CODE.
RETURN ADDRESS IN "EHORY.
STORE WITH BIAS
RTN ADDRESS WITH BIAS
SUBTRACT !A AND STORE LIST ADOR
PAGE
F
,
\,
'\
)
'\
j
84
\,
j
()
C)
C)
CRPAOD
PI\GE
sue-
2988 POA5E 9008
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
300,.
3605
POA5F
POA60
POA61
POA62
POA63
POA6,.
POA65
POA66
POA67
POA68
POA69
PilA6A
POA6e
POA6e
POA60
POA6E
PO.A6f'
680C
COUF
6808
COEO
680A
C007
6809
0844
5,.02
leE7
0006
0000
0000
0.000
0000
0000
0000
ABtAS
STl\·
elf'>
RTJJHP"
NUM
NUH
NUH
NUM
NUM
NUH
NUH
10
SECER~
RETAOOR
ACTUAL
EXPE·~Tf;'n
COL
PATTNO
,--
OATEI
85
BIAS
RETAOOR
ACT
ACTUAL
EXP
EXPECTED
COLUMN
COL
A
(STOPXJ
(ERROR)
(J
C)
RETURN AODRF.SS.
TEST NO. 00, ERROR STOP.
SfCTION, ERROR.
RETUR.N AODRESS.
ACTUAL.
EXPECTED.
COLUMN NUMAFR.
PATTERN NUMBER.
$0008
0
0
0
0
0
0
.y.
.y.
.
3011
3012
3013
3014 POA70 0000
3015 POA71- CI3FE
3016 POA72 OQU1
3017 POA7l oe04
3018 POA7't 1830
Yo
•
ERR4
.....
"ERI:!O:"~
..
".
y.
POl\75
0000
60271300
ERRS
F
. CALLING SEQUENCE IS (FOR EXAMPLE)
OUT
OUTPUT (OR INPUT) •
P-2
REPLY
P-l
P
UN£XPE'CTEO INTERNAL f{EJ.ECT.
RTJ- (ERROR't)
PH
EXTERNAL REJECT.
RETUP..N.
P+2
SUOPOUTINE RETURNS TO HERE.
NUH
0
LOA·
ERR4
INA
FORM P+2, RETURN ADDRESS.
1
E.NO.
ERROR CODE 4, INTERNAL REJECT.
.4
STOP?
2 STOPS.
JMP"
"
~,
o C)
(
\
~j
(
\
'----
1/04/75
·ERROR
4, UNEXPECTED INTERNAL REJECT
.,.
3007
3008
3009
3010
3020
3021
3022
3023
3024
3025
3026
3027
STA.y.
LOASTA"
lOASTA"
LOA-
C) C)
(
UNEXPECTED eXTERNAL REJECT
CALLING SEQUENr.F. IS (FOR EXAHPlEl
OUTPUT (DR INPUT) •
P-3
OUT
?
REPl Y
P-2
INTE.RNAL REJECT
P-l
(ERRORS)
P
UNEXPECTED EXTERNAL REJECT.
RTJptl
RETurm.
SUBROUTINE RETURNS TO HERE.
NUM
0
02988
02989
02990
02991
02992
02993
0299,.
02995
02996
02997
02998
02999
03000
03001
·03002
03003
03004
03005
. - .... - ..
03007
03008
03009
03010
03011
03012
03013
0301 ..
03015
03016
03017
03018
03020
03021
03022
03023
03024
03025
03026
03027
PAGE
85
CRPAOO
PAGE
DATEI 01/04175
86
P+l~ RETURN ADDRESS.
ERROR CODE 5, EXTERNAL REJECT.'
2 STOPS.
ERRS
3028 POA76 C8FE
3029 POA77 OC05
30JO 'POA7818l9 .
5
STOP2
03028
03029 .
'0381t: .
03032-- ."
..• ERRClR6, UNEXPECTED REPLY·
03033
CALLING SEQUENCE IS (FOR EXAMPLE)
OUT
2
OUTPUT COR INPUTl
0303'
P-l
• .
..p .
Q30:l&··-··· -......... .
RT J- CERROR6)··· . .
·UNEXPECTED REPl V.
. P+l
INTERNAL REJECT~ .
03036·
·03037'
p+?
EXTERNAL REJECT.
······_·_·:· .... 3-&3&· .-....•.- ..........•.....- ...
RETURN· .
P+3 . '
SUBROUTINE-RETURNS TO HER.E.
03039
o
NUM
ERRo
030 .. 0
.
ERR6
LOA'"
.~. 03:":1·_······ ........ ,..: ....... .
FORM ·P+J. RETURN AODRESS.·
INA
2
. ERROR CODE 6, UNEXPECTED REPLY •
03042
ENQ
6
2 STOPS.
STOP2
030'3
JHP·
.:- ····3032 .
3033·
3034
..
....
.
" ·.3036· .
3036
3037
•
.....
·a03& .
3039 PDA79 0000
3040 POA7A C8FE
: .... ·30lt1 POA7B 0902
. 30 .. 2 POA7C OC06
3043 POA70 1834
--
...... ~ ..... ...........
'
-....
.."ERROR
30r;7
3058
305'9
3060
3061
3062
3063
3004
3065
3066
3067
3068
60271300
)
•ERRS
POA86·0000
POA87 01lC
POA88 1CFD
POA89 COOO
r(JA8A A070
POA8B 0112
POA6C COOF
POA80 1807
POA8E COOF
F.RRM
8. UNEXPECTED LEVEL 2
. ·t30 .. 6· '"
03047 .
030 ...
030 .. 9
03090
03051
·030'2· .
'O30~9
03960·
03061
03062
03063
03064
03065
03066
. 03067
03068
PAGE
F
"\
\
'\
- -... : ....:
...... ,.:.... , ...... .. -;. ...
03057
030S8
sr~TUS.
\
.-.--,
03053
0305 ..
·03015
ENTER WITH FAILING BITS (IF ANY) IN A-REGISTER. IF FAILURE,
DISPLAY ACTUAL STATUS IN A. EXPECTED STATUS IN Q.
NUM
0
SAN
ERR8C-·-l
(ERRS) .
JMp· .
EXIT IF NO STATUS BITS FAILED.
STATION
LOAANOBITS
SAN
ERR8A-"-1
ACT
LDAER.R.eC
JHP"
ACT
LOA-
\
.
~ 'o-.~ • • • • • • :..~:. ~
030 .. 5
.ERROR 7, UNEXPECTED LEVEL 1 STATUS
··ENTER HITH FAILING ~IT~ (IF·ANV. IN·A-REGISTER. IF FAILURE,
•
DISPLAY ACTUAL STATUS IN A, EXPECTED STATUS IN Q.
ERR7
NUM
0
. SAN·
·1
JHP.
CERR7)
EXIT IF NO STATUS 81TS FAILED •
EORACT
FORM EXPECTED STATUS •.
·STftEXP
SAVE FOR ERRORHESSAGE.
LOA.
. ERR7
RETURN ADDRESS.
ENQ
7
ERROR 7. UNlXPECTEO STATUS.
JHP.
STOPJ
3 STOPS.
.¥
0000
0111
1CFO
aODF
60£0
C8FA
OC07
182F
....~..:-
.
•
3045
·3046
3047
3048 POA7E
3049 POA7F
. J050 POA80
3051 POA8l
3052 POAft2
3053 POA83
3054 POA84
3055 POA8S
~ .:~..:.:.~
')
"\
86
\
"
,
\
,
)
,---
.r-~
)
L,
r i (\
C~)
c)
-'1
( -j'
3073
3074
3075
3076
·3077
3078
3080
3081
3082
3083
3084
3085
3086
3087
3088
3069
3090
3091
3092
309'+
3095
3096
3091
3096
30f;)9
3100
3101
3102
3103
310'+
3105
3106
3107
POA8F
POA90
POA91
POA'lZ
POA93
POA94
POA95
POA'l6
POA97
POA98
e074
0111
1CF"4
OA74
1802
BOOF
6DEO
CHEF
DC08
161C
EOPSAN
JHP·
ERR8B
£RR8C
·ERRO~
".
POA99
POA9A
POA9B
POA9C
POA9D
POA9E
POA9f'
POAAO
POAA1
POAA2
POAAJ
ERRf;)
0000
CODA
0101
lCFC
EOOD
54E6
0842
'tOEO
C8F7
OG09
1811
·ERR01~
..
POAAIt
POAA5
POAA&
POAA7
POAA6
POAA9
POAAA
POAAB
POAAC
POAAD,
POAAE
POAAF
POAao
ERRA
0000
CODA
0111
lCFC
C800
FOEE
60DF
C842
40EO
400A
C8F5
OCOA
160'+
60271300
(
PAGE
CRPAIJO
3069
3070
3071
3072
/-,
(~~j
EN~
JHP"
EORSTALOA·
ENQ
JHP"
".
i
-J
c:: (J
(--j
"-
(~
'--- -_/
r\ 1
',-- _-,J
(-~
'--_/
c)
OATES 01/04175
'37
8ITq
ERRS!]-·-1
(ERRS)
8IT9
ERR8C+1
ACT
EXP
ERR6
8
STOP3
SAVE FOR ERROR MESSAGE.
RETURN ADDRESS.
ERR 8, UNEXPECTED LEVEL 2 STAT •.
3 STOPS.
9, NO DATA INTERRUPT WHEN EXPECTED.
DISPLAY CURRENT STATUS IN A IF NO DATA INTERRUPT OCCURRED.
NUH
0
OATAIF
CHECK DATA INTERRUPT FLAG.
LOASAZ
1
JHP·
CERR9a·
EXIT IF SET.
STATION
LOQ(STATUS)
GET STATUS OF CURRENT STATION.
RTJQ
CLR
EXP
STQRETURN ADDRESS.
LOA·'
ERR9
ENQ
ERROR q, NO DATA INTERRUPT.
9
STOP3
3 STOPS.
JHP"
A, UNEXPECTED OATA INTERRUPT
DISPLAY STATUS UPON INTER~UPT IF DATA INTERRUPT OCCURRED.
NlJM
0
LOASAN
JHp·
LOA
OATAIF
STACLQ
STQSTQLOA·
E.NrJ.
JHp·
F
~
) C__> (
CLEAR OATA INTERRUPT FLAG.
RETURN ADDRESS.
ERROR A, UNEXPECTED DATA INT.
3 STOPS.
03101
03102
03103
.. 0310"
03105
03106
03107
Q
STOP~~
03~.5·
. 030a6
03087
030aa
03089
03090
DaOg1·
03092
EXIT IF NOT SET.
STATUS UPON £JAT A INTERRUPT.
CHECK DATA INTERRUPT FLAG.
ACT
EXP
DATA IF
£RRA
'£A
03080
03081
03082.
03083
03084
03094
·03095
03096
03097
. 03098
03099.
03100
1
CERRA)
DATAIS
03069
03070
03071
03072
03073
Q3074
03075
03076
03077·
03078
PAGE
87
C~~i
(~
(
PAGE
CRPAOO
OAT EI
88
31()9
3110 POA91 689£
3111 POAD2 0844
3112 POAD3 1890
• TWO STOPS FOR AN
STOP2
STACLR
JMp·
3114
3115 POAB4 6698
3116 POASr.; OAI0
3117 POAB6 189A
-THREE STOPS FOR AN ERROR
STOPJ
ERROR
STAENA
'UO
JMp·
ERROR+1
3119
3120
3121 POAB7
3122 POAB8
3123 POAS9
3124 POABA
3125 POABB
3126 POABC
3127 POABO
3128 POABE
. 3129·POABF
3130 POAca
3131 POAC1
ER~OR •
!)
1/04/75
03109
03U.0
STORE RETURN ADDRESS.
2 STOPS.
ERROR
A
ERROR"l
· 0311·1 .
03112
0311 ..
... ··_·03115-·'·
RETURN ADDRESS .
J STOPS.
· 03116
03117
03119
·E.RROR R, NO ENO-OF OPERATION INTERRUPT WHEN EXPECTED.
... : ···-0"124
DISPLAY CURRENT· STATUS IF· NO EOP ··INTERRUPT OCCURRED.
· 03121
NUH
~RRB
0
LnAEOPIF
CHECK EOPINTERRUPT FLAG.
03122
···03t2J
SAl
1
JHp·
(ERRB)
EXIT IF SET.
0312 ..
·03125
LOQSTATION
(STATUS) .
GET STA TUS OF CURRENT STATION. . ... ·03126· ..
RTJQ
CLR
03127
EXP
03128.
STQ-03129 .
RETURN ADDRESS.
LOA·
ERRB
03130
ENQ
$B
ERROR at NO EOP INTERRUPT.
JHp· .
STOP3
3 STOPS.
03131
..
0000
CODB
0101
lCFC
EOOD
54E6
0842
40EO
C8F7
OCIJB
18F2
" •.•
~
-
"_'0 __
.
lll3
31lft
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
·fJ\'RO~
.,.
POAC2
PDACJ
POAC4
POAC5
POACG
POAC7
POAC8
POAC9
PDACA
POAce
POACC
POACJ
POACE
0000
ERRC
cune
0111
lCFC
caoo
FD01
GOOF
0842
·40EO
400a
C8F5
acoc
STACLR
STQSTQLOA·
JMo.
03133
,13134
· 03135
03136
93137·
03138
· 03139
ACT
031,.0
Q
03141
031 .. 2
03143
03144
031 .. 5
031 .. 6
EXP
EOPIF
ERRC·
$C
STOP3
EN~
13E5
60271300
C, UNEXPECTED END-OF OPERATION INTERRUPT
DISPLAY STATUS UPON ·INTERRUPT IF EOP INTER~UPT OCCURRED.
NUM
D
EOPIF
CHECK EOP INTERRUPT FLAG.
LDASAN
1
JMp·
(E~RC)
EXIT IF NOT SET.
LOA
STATUS UPON EOP INTERRUPT.
EOPIS
CLEAR EOP INTERRUPT FLAG.
AOORESS.
ERROR C, UNEXPECTED EOP INT.
:3 STOPS.
RETU~N
F
PAGE
"
f
)
(-
,
\
)
\
/
\
)
88
")
-... .... , ".-.
-
o o
o o o o o c "
I
PAGE:
CRPAOO
3148
3149
3150
J151
3152
3153
315 ..
3155
3156
3157
3158
3159
3160
3161
3162
POACF
PO ADO
POAD1
POAD2
POAOJ
POA04
FOAD5
POADG
POAD7
POADe
POA09
PUAOA
POAOB
3164
3165
3166
3167
3168
3169
3170
POADC
POADO
POADE
POADF
POAEO
PDAE1
3171 POAE2
3172 POAE3
PDAEit
3173 POAES
0000
conc
0101
lCFC
EOOD
54E6
EOFA
0002
02FE
60EO
C8F5
OCOO
1808
·ERROR Et UNEXPECTED ALARM INTERRUPT.
DISPLAY STATUS UPON INTtRRUPT IF ALARM INTERRUPT OCCURRED.
NUH
0
ALAIF
CHECI(ALARH INTERRUPT FLAG.
LOASAN
1
(ERRf)
EXIT IF NOT SET.
JHP"
ALAIS
STATUS UPON ALARM INTERRUP~.
LOA
•ERRE
0000
coDe
0111
1CFC-
caoo
FOB6
60nF
EXP
SAVE FOR ERROR MESSAGE.
ALAIF
CLEAR ALARM INTERRUPT FLAG.
RETURN ADDRESS.
ERROR E. UNEXPECTED ALARM INT.
3 STOPS.
03173
0317 ...
03175
03176
03177
· 03178
"fRROI? F, UNEXPECTED 1706 STATUS
ENTER WITH FAILING BITS (IF ANY) IN A-REGISTER. IF FAILURE,
DISPLAY ACTUAL STATUS IN A, EXPECTED STATUS IN Q.
•
f::RRF
NUH
0
SAN
1
JHp·
(ERRF)
EXIT IF NO STATUS BITS FAILED.
ACT
FORH EXPECTED STATUS.
EO~S'TAEXP
SAVE FOR ERROR MESSAGE.
ERRF
LOLl·
RETURN ADDRESS.
ENQ
$F
ERROR F, UNEXP. 1706 STATUS.
STOP3
3 STOPS.
JHP"
03180
03181
03182
03183
0318 ..
03185.
0318f:
03187
03118
01189
03190
.
oeOF
1RCl
60271300
F
03168
03169
03170 ...
STc}ell'.
STQLI)A·
ENQ
0111
tCFD
BOOF
6DED
C8FA
.03167 .
LEVEL 2 STATUS UPON INTERRUPT.
JHP·
POAEB 0000
D316 ..
0:5165
03166
ACT
ALAIS2
FOB6
40EO
a
l::RRE
$E
STOP3
CJ
031 .. 8
031 .. 9
03t50 -'
· 03151
03152
0.3153
03154
· 03155
03156·
03157
03158
03159
03160
· 03161
03162
STALoa
E800
3176 POAE8 C8F3
3177 PilAE9 DeDE
3178 POAEA 18C9
POAEC
POI\ED
POAEE
POAEF
POAFO
POAF1
PDAF2
o c)
Q 1/04'75
"ERROR 0, NO ALARM INTERRUPT WHEN EXPECTED
...
DISPLAY CURRENT STATUS IF NO ALARH INTERRUPT OCCURRED.
NUM
ERRU
0
ALAIF
CHECK ALARM INTERRUPT FLAG.
LOASAZ
1
(ERRO)
EXIT IF SET.
JHP·
lOQSTATION
(STATUS)
GET STATUS OF CURRENT STATION.
RT JEQ. NO., QOO SET.
EQUIP
LOQSET Q01 (LEVEL 2).
INQ
2
GET LEVEL 2 STATUS.
INP
-1
STAEX?
SAVE FOR ERROR HESSAGE.
LOA·
RETURN ADDRESS.
ERR.D
$0
ERROR 0, NO ALARM INTERRUPT.
ENO
3 STOPS.
STOP3
JHP·
3174 POAE6 0642
3175 POAE7 '+OOC
3180
318'1
3182
3183
3184
3185
3186
3187
3188
3189
3190
OAT EI
89
l)
03171
0311.2
PAGE
89
.. _ .. -
.
CRPAOO
PAGF.
··3192·
•HOT OR
3193
319 .. POAF3 OGOO
319S··POAF· .. ··nODE .. ' -. -.... , -.
3196 POAF5 EOFA
MOTOR~
3197 POAF6 0020
,,·.. ·a198 POAF1·GOOO .. ·· .. ·
. POAF8 0061
3199 POAF9 0302
· ......32'0· .. POAFA i801t .. ·" ...:.. .
OUT
..Jttp.
POD01·000l
3207 POBD2 SltEF
RTJ-
3209 POBO .. 54E6
. 3210 POBU5 AD6C
." :'. 32U:-'Poa06--8t91
3212 POB07 18FB
3213 P08D8 EOFA
; ... ,321" POB090D20
'3215 poeOA OAOl
3216 poeOR 0302
LDQ. INQ·
ENA
OUT
3218 POBOO 54EC
JHP·
RTJ-
.... 3217 PfJ90C"lCE6'
3219 poeOE SiteD
3220 POROF
60271300
)
RTJ. JHp·
18F~·
3222 POB10 0051
3223 POB61 0051
"-
ENQ·
RTJANO·SAZ
JHP·
HOTOqO
BUFFIN·
BUFFOUT
..
FEeD A CARD ON ·READER TO STAR·T ·HOTOR. GET STATUSt EXPECT.
BUSY AND READY. WAIT NOT BUSY. CLEAR CONTROLLER.
NUM
a
RAnCOUNTER··- - ... -. -- .. ---- - INCRF.HENT-t:ARO· GOUNTER-.- .. LOQEQUIP
EQ. NO., QOO SET.
INQ
$20
SET QDS (STATION 11.
LDA =N!0081
-" ....... ··SET··A07 AND·ADO.·· .... .
3201 POAFB S4EC
'RTJ3202 POAFC SitED
RTJ.. ,,3203· ..P8..,.O.. lSF7· . -'.- .. :. ..... -. JHP· .
~ 3201t'POAFE OC20
HOTORS
fNQ
3205 PIlAF.F ·54E6·
RTJ,. .., 3206"POBlJ-e-e&O 0-- :... ....... .. ·EOR-·
. ~ .•.. ·3203· PD8tl3-.. QG20· .•. MOTORC·
DATEI 01/04/75
90
BSS
~ss
2
'HOT-{)RB-- .
CERROR,.)
(ERRORS)
. KOTORA·
$20
(STATUS)
-NS898'3" ..
CERROR7J
$20
(STATUS)
CONST+1
1
HOTOR.C
EQUIP
·$20
1
2
(HOTOR)
(ERROR4)
CERRORS)
HOTORD
SELECT FEED AND CLEAR.
'EXPEor--RE-PL Y.-'.' " .... - ..
ERROR 4t INTERNAL REJECT.
ERROR 5, EXTERNAL·REJECT.
.. HANG ON· REJECT. .
SET Q05 (STATION 1).
GET STATION 1 STATUS.
" ....... EXPECT BUSY AND READY •..
031~2
. 0'3193
..
0319,.
ell~''''-''
, ' •.
~..
.~ . . . . . _
...
~": • . •: .
r
_
............................
:
..... _
...
'~:"' .. ~ • •
r'
03196
· 03197
.tll198.·
'. '- .... 7' .'- ....... , •. ".............
~
~.-
-:-';"
~,
... ", ,-:'.-........... --:
· 03199
. ..._., " ....... ·8-3-288··....,,--_....................... _.... ;...... -....... -...... :.~- ...... ~-0320'1
03202
... "..... - 832·&1· ................ .'
· 0320•.
03205'
,
:... :~' ·.. ··03286· ..... .. ....
ERROR 7, UNEXPECTED STATUS.
SET QOS· (STATION·!).·
GET STATION 1 STATUS.
CHECK A01 (BUSY STATUS).'
. - .' ........... "......._.... - ..... -
., ..... - ...... , .......... '.. ,. ""..... - - _.'... .................
03207
..- .. '.."3204··
Ol209 .
0'1210
O~21t
WAIT NOT BUSY.
EQ. NO., QOO SET.
SET QOS.CSTATION·
SET AOO.
CLEA~ CONTROLLER.
EXPEr.T REPLV. EXIT.
ERROR 4, INTERNAL REJECT.
ERROR 5, EXTERNAL REJECT.
HANG ON REJECT •
03212
03213
1'.
·0321... ·
03215.
03216.
0321·7··..
03218
-- ..
03219
03220· .-
BUFFIN(S1) REAP BUFFER AREA
aUFFOUT(81) WRITE BUFFER AREA
03222·
03223
PAGE
F
)
/
90
f
)
'\
)
o
c)
o o C) o
PAGE
CRPAcn
'-/
OATEI o1/0lt175
91
"INI fIALIZATION OF TEST
322·5
0
3226 POSB2 0000
INIlIAL. NUH
LOA
=XCRPAOO·
·····322·7 POBaJ COO'O .
POBSit 0000 P
STABIAS
3228 POBB5 6008
CLR.
A
3229 POBB6 081t,.
SEC
3230 POBB7 60Ff}
STASTACOUNT£R
3231 PORB8 600E
STATTON
STA···3232 POBB9 6000
03225
03226
03227
60271300
F
·"STO~E
03228
. O~229 ...
03230
·0;'231
.. 03232 .
SAVE.
INITIALIZE SECTION NUHBER.
INITIALIZE LOOP COUNTER.
INITIALIZE· STATION· NUMBER.
'.
.. - ·.32·34- ...
3235 POBSA CO 00
POBBB 07CO fl
-- .3236 POBSC ,60E6
3237 poeso 0922
3238 POBBE 60ES
.·-·32·39· P.(JBBF 0904
3240 POBCO 60E7
3241 POBCt 0907
.3242 PoeC2 60E5 .
3243 POBC3 091E
3244 PORC4 60E9
. 3245 POBCS ·090A
3246 PoaCE) 60fA
32,.7 POBC7 OqOA
32,.8 POBca GOES·
32,.9 POBC9 8000
POBCA OOA6
·3250 posca 60F8
3251 poace 8000
poaco 019E
3252 POBCE 60rc
3253 POBCF 0905
3254 poeoo 60EO
3255 POB01 0904
3256 POB02 60EE
3257 POBo3 0905
JZ58 POBO'+ 60EF
3259 POB05 0908
3260 POB06 60FO
3261 Poe07 'Oc}13
3262 POBoa 60F1
3263 PORoq 0908
32&4 POOoA 6DF2
3265 POBOS 0913
3266 fJoaOC 60F3
3267 POBOo 090a
3268 POBOF. 60FIt
3269 POBOF 0900
o o c
C) C) L)
()
,
. ...
~
-.
.. . . . _ .....
.
'
INITIAL ADDRESSES OF-S~BROUTINES TO ENABLE ONE-NORD.R.ETURN· JUMPS.· .·,·03234·····
03235
LOA
=XSTAT
STAINA
STAINA
STAINA
STAINA
STAINA
ST4INA
. STAADO
STATUS.
tNel00-STAT
IC100
INC10-INC100
IC10
HONITOR-INC10
SMM .
INITDI-HONITOR
INITOATA
INITEI-INITDI .
INITEOP
INITAI-INtTEI
INITALARH
=XGEN-INITAI
(STATUS). = STAT
nC1DO)
INC100
~
(lC10) = INC10
(SHHJ =. HONITOR
(INtroATA) = INITo!
CINITEOP) = INITEI
(INITALARH) = INITA!
= GEN
S·TAADO
GENERATE ..
=XERR,.-GEN
CG.ENERA Tf).
STAINA
STAINA
STAINA
STAINA
STAINA
STAINA
STAINA
STAINA
STAINA
ERROR,.
(ERROR4)
= ERRIt
(ERRORS)
~
ERR5-ER~It
ERRORS
ERR6-ERRS
ERROR6
ERR7-ERR6
ERROR7
ERR8-ERP.7
ERROR8
ERR9-ERR.6
ERROR9
ERRA-ERR9
ERRORA
ERRB-ERRA
ERRORS
ERRC-ERRB
ERRORC
ERRo-ERRC
ERR5
(ERROR6) = ERR6
(ERROR7J
;
, ERRORe)
= ERR8
ERR7
(ERROR9)
~
ERR9
CERRORA)
::
ERRA
( ERRORS)
-
ERRS
(ERRORe) = ERRC
03236... ...
03237
03238
03239 ._ ..
03240
03241
03.2 .. 2 ..... '
032 .. 3
032 .. 4 .
03245
032 .. 6
032 .. 7
(132 .. 8
03249
03250
03251
. 03252.
03253
0325"
03255 .
03256
03257
03258
03259
03260
03261
·032&2
03263
0326 ..
03265
03266
03267
03268
03269
PAGE
91
CRPAOD
327~
3271
3272
3273
327..
PAGE
POBEO'60F5
0900
P09E2-"60F'6 .
POBEJ 090F
POBE4 60F7
ERRQRD
ERRE-ERRD
ERRnRE ......... .
ERRF-ERRE
ERRORF
STA-
INA
POBE1
DATEI 01/04.175.
92
····ST~
INA
STA-
(ERRORO) :: ERRD
. (ERRORE')-" If
(ERRORF)
ER~E'
= FRRF
','
• " ... ' .. _~ •. _: ......... ,......... _ , '
...........
.....
._0'.:'"
3276 POBES COD8
-.,- . ~- .. ,,-.........
LOA-
·3271- POSE6-" SJ.OA· .:...... ' ,.. - "" ... ··RT-J- .. '.'
3278 POBE7 4856
STQ.
- ......
"
.....................-.~:....- .. -":'::.'~ _............ ..
•
_~
. • • • :. . . . . .
: ....
~_ ~
..
.....
, - ' : . :"_ _ : '"_-::_: '4 _ _
'O,"
~' _~ ~.~ ~: :'~~:~ '~. ~
••
. '. . . . .
..
••• :
_
. . . . . .: •• _ "
_
~
......... _ _ _
~.~~;~<:i. .~:;1
BIAS
03276.
CeON") ..... _._ ....... -.'--- ·....CON¥ERT· .. INITI-AL .. AOORESS ..:f·Q· -ASCll··-··-fU7·1····.··.·~·-..-·· .........._ ..- .......... _...........,............... ,-_. _.91·.·.·
SET UP INITIAL AOD~ESSHESSAGE.· ·'327a';.;·
". .. . .'. " :... : .... , .. \'\
.-". ~::: . :::~~. ~::.~-.c--;-.-. . . .·. ~~..:;,.ClV . . . . ~-, . . .~. . . . . . . . . . . .-.- ..,..... """,,. '.......~......·.·~--' . ~ . . .;~~.-.-.-.~~~;~a. ·.·-·~~~~~:.~~~_.::i~~~~ . ~~. .~,~;..:_~~~'-·.~·\_~~.:.L~~.L
3281 POBEA C291
3282 POBER 5~OA
LDARTJ-
TSFREQ-l,Q
CHEXASC)
.·-: ..·l2&3-···poe£G ..·6&s'J..·· .. ··· .. _· ·.. ·.. ·-·STA........ ·£Tlfu::-·1· .. ·....· ..· _.
. 03281 .
3286 POBFD ·5408
3287·POBFl caoo
RTJLOA
EQ
'MESSAGE.
TYPE OUT TITLE.
EQUIPMENT AOORESS FOR STATUS
STAAND .
EQUIP
=N!7F
SIVE IN LaM CORE~
CHECK BITS 6 tHRUO.
.............. - .... .,
03282
H26'· -- --
.-.
-,.::::•mnJi~i f ......... ' .~::.. .. . . ::::::~'m~H--': .':NUK'B~~OF MO~~IN 'I:~~":"-:"::'--:::'~:' "-.. :.-:~~'::~.,~~;:;.~~~.~~~
3306 POC06 COOD
POC07 OB91 P
pocoe
EORSAZ
.. ·JHP.·
LDAAND
. 032'"
NON-ZERO IF ON 1706 OR 1716.
. 03295
INA
-5·
SAZ
INA
SAZ
JHP·
INITA-"-l
-5
SKIP IF W = 07.
INITA-"-!
ERROR1
ERROR IF H NOT' OO,02,07 y OR OC
LOll.
=XBUFFOUT+80
LAST
INFORM
HFODO
CONST+12
A
..... ~ .............................
-::7•. ::.~-:- ... ~"':'.--~.-:~--.~~,,~
,---...........
':<..'... '
,.;.;....:.:
...._.-..... :........:....~....::::.~..:...:..~.~
: 03293· :.
CHECK BITS 15 THRU 11.
SKIP IF H
=
.,.-_ ....
-'
.. '--'. ~ ... ~-- ... ~-.
'"''
....... .-.:. ....
-........\.:~ ..... -....;~ :~.:.;.....
....
03297 . ·· ...... -... -. _............................ -:."'."... ~ .... :,,~-p-:-.~:
03298 '."
.
.
03299
....... "' 9331·t .. · ...... ~.- ..... ~:-.- ...--- •. " --- -.
03301
03382
02.
.'
','
0330~·
.' 0330a.
..
::,
03306
~ :~~.
PAGE
F
!~
i
'
......... '.. "' Oa307
SAVE COMPLEMENT IN Q.
03308
03309
03310
FORM COMPUTFR MEHORY SIZE.
03311
COHPA~E WITH LAST ADOR. OF TEST
03312
.. ..
&027130n
,
03296
SKIP IF W ': 00.
-2
Q
~
..
EXPECT BIT 0 ONLY.
03290
OKAY.
03291
.... ERROR.· EQUIPHENT· AOORESSWRONG •.. ---03292 ,-.. ~
5
INITA-·-l
'0328'.:. .
.__ .- ......... --.-
-....... ~
--:::~-.-:-~
SKIP IF
CHAN
INITA-·-1
ADOAAQ
8077
CONST
1
... . ERROR!
EQUIP
=NSF800
STASAZ
ALS
INA
SAl
ANO-
3312 PDCDU 0834
.~ ..,
"
STATCA
LOA";'
3307 POC08 68.30
3308 POC09 08&2
3309 POCOA C049
3310 pocoa AOSO
3311
INITA
O~287
~-
... _..... _- ·P89F5··Oil1F:· ......... " - .. .
3290 PO~F6 B060
3291 PoaF7 0101
· .. 3292-POOF 8··1818
3293 POBF9CDFA
INITD
3294 POBFA AGDO .
. -POBFB F8ilO·.... : ..
3295 POSFC 6tlFB
3296 POOFO 0108
3291·POBFE·OFCS
32CJ8POBFF 09Fn
. 3299 POCOO 0105
3300· POC01· 09FA .
3301 POC02 0103
3302 POCOl 09FA
3313·POC04 ·0101
3304 POC05 180E .
O~286
.. -_._ . _. . 'o·ii.,-:--"-'- .". .:. ,-.
--:- ... ·~ ... ··.··POSF2···F413, .. -··-,-··· ..
328& POBF3 60FA
..' 3289 POBFIt AGDO
_.
:'
)
/
)
'\
/
\
92
')
I
..- .........__
.
o o
o
~\
J
~----'
()
PAGE
CRPAOD
'3313 POCOE 0139
3314 POCOF 5800
.. ·POCtO . F977· .
INtTZ
3315 POC1t 1800
(
'\
j
()
C~)'
(
DATEI 01/04/75
91
SAM
RTJ
ERROR2···1
PARAM
SKIP IF INSUFFICIENT MEMORY.
ENTeR PARAMETERS
JH?
SEeD
DONT GIVE UP
POC12 F3FE
o
()
0
'03313
0331,.
CONTR~l
03315
,:.1
.EQUIPHENT ADDRESS
ENQ CLR
RTJ
3317
~.3318POC13.0C01.ERRORl
.
3319 POCt4 0844
3320 POC15 5800
......., . ·P·OC·i6
,FE3c} _.
.... -... - ... - ..
3321 POCt7 18F8
JHP·
03317
WRONG, ERROR CODE 1
. ERROR Coo[ 1.
·1 ..
A
2 STOPS.
ERROR
." ...- ..... :-033.1.8 .......... - ......~- .... ,.-.-.-.... ,. __ ..-.- .-_.
".03319
.O!320
...... _ .
.
_ •. •
•. · 1 • • •
HANG. TEST HUST BE CALLED AGAIN •
ERRORt
.
,~.'
_ ..... _
• ' .............
3323
.INSUFFICIENT HEMORV FOR TEST, ERROR CODE 2
3324 paCts OC02
EP.ROR2
ENQ
2
ERROR CODE 2.
,... ,.332.5, POC19 ·.0844....
CLR . .
A.
- 2 STOPS.
3326 POCtA 5800
RTJ
ERROR
POCle FE34
.·ERROR2
-.. 3327 P4C1C 13F8 ..
. 3329·
POC1~ 80DA
3330 POC1E 2043
~ITLE
POC1F 5250
4130
POC21 442C
POC22 2031·'·
.
NUM
HANG •
$60DA
ALF
X, CRPAOO, 1728
NUH
$600A
CA~O
CARRIAGE RETURN, .LINE FEED.
READER/PUNCH TEST.X
.....
~
_ _ .. _
" ..
~
.
. . . . . . _ - . _ . _ • • . •_
~_
. . . . " " ..... '••••••
-
0:1323
0332,.
03325 .
03326
·-03327··
... :.0332.9- ..
03330
. POC20,
. POC233132..
POC24 3820
4341
POC25
POC26 5244
POC27
POC28
POC29
POC2A
POC2S
POC2C
2052
4541
,·ItItItS
522F
5055
ItE43
POC20 1t820
POC2E 5445
POC2F 5354
POC30 2E20
3331 POCl1 800A
60271300
F
CARRIAGE RETURN·
••
_
......
_.~_
.
•• _
••
~~-4"'_
.
.. __ •.. _ .•. _ .............. _ .. ..
03321
. 03331
PAGE
93
_ _ . - . _ :•• , . ,
..... :
•• _ _ ...... _ _ . . - •• _ . _ . . . . . . . . ; - •••• _ _ • • • • • • • • , ... ~,_ ..
o-
CRPAOO
PAGE
'3332 POC3l 4350
OAT E' 01/04/75
94
ALF
.. ··3333 "POC!-It 2656· .... ........ ...
MAINFRAHE TYPE
X,CPOFX
.POC33 3046
·YER.
ALF"
"X,
POC3S 4552
POC36 2E20
POC37 33ZE·····
. POC38 3120
3334 POC39 OOOA
NUH
·.. ··3335 ·POClA-··20 ..' ..... ..
·ALF
$OOOA
,3, tA
. NOH
··0 .. · ..... '.' ...... ".' ... ' ...
03332
·3.1)(' ....
03333·
LF
21 . . . . . . . . . . . . . . . . .- •••.•.
'0333,.
C~
"",,
. . . . . . . """
......
0333-' ..... .; . .:.-- .' :..
..
•.•• ; . . . . . . . . . . . . . . . .
, _ _ ..... _
•• _ _
•
0"-
~
•••: •• ~ .. : .
.,
POC3B 4120
POC3C 3020
3336 POC3t) . QUOO
91·· .. .
3337 Poe3E 0000
B2
HUH
3338. POC3F 2020
·3339 'PDO .. O"ZO .. &· .... ... " -,
POC41 4320
POCltt! 3020
. . . . ."
.. 0 .
..
....
o
HUH
•
.,
,_
. _ •••• , . _ ,
•• . . . _M ••• " ·
•••••••••• _
............. .
I
03337
0333.
S2e20·
·It. FO·-= . :.. "...
ALF
OJ33.'. ...... -... "
-.~....
_.......- ..--:~: .&!3!9'''- .~ .. -. ,----..........;:. .... "- .:.... -_., :...,,'- -........... ,.. ;.~ ....;, .: .. ;;'-~
....
............. ,. ·"flOC.3.. 2620···· ...... ··· '" ..... - ._." " .
ETtTLENUM
3340POClt48DOA
3341
POC~5DOOO
. ,.. ·'··-33,.·2· .... ~. " 0000 U
33 .. 3
0003 0
LAST
NUH
..... - .. '"
OClt6.(
3142)
COM
. t-3!1t2" . . .
...•. ·AIOOPl-oIUSTAT-Q-lNn -
OAT
END
3344
PGH:
OAT·
'033.. 0
033..1·
S800A
o
= 0000
AIDOP1CINITIAL-BUFFIN)
0)
OAT
= OOA5
(
165)
,-.~-
60271300
\
.. ...'
033 .. 3
033....
F
.....
,
..
~
PAGE
\
'\!
(
)
/
"',~~
. ... ....... _~
"
9,.
(
\
/
\
,---
\
J
-r--,
~- !
(-\
('::
C) n C) C)
C!
'~l
(-j
,-.-/
CRPAOO
PAGE
95
(
"\
)
-
r)
(~\
~
(
\
\
-~
--
f\
\_j
./'
-
\
"-)
("
,
)
~
c)
0
/--"!
{
\.
/
(-\.
---
DATE. 01/04/75
"-,£ .Q U I V A-L·E ~ C E··S··
--~------~~~--~--------
......
OfF.LINE
0000
NAME
I··
..
OOFF
015C:!
0160
0161
.. 0162
0163.
0164
CONTRO
STOPX
EXIT
0165
-.0166.
0167
0168
0169
0170
0171
0112
0173
GENRAN 0007
TYPEOU .. 0008.
TTYBZY oooCJ
HEXASC OOOA
OVRlAY .. oooe
RELPOS OOOC
HAINL
0000
SETHAS on42
STJP
0043
017 ..
0175
0176
0177
0178
0179
0180
0181
0182
0183
0184
0185
·0186.
0187
REFERENCED AT LINE NUHBER
VALUr::
0001
0002
0003
REQINf.· ·0004
FCLRIN 0005
JUHP
0006
. lASTVA
lASTAD
LOlCOR
LOLtCD
INFORM
SHHCNT
8lTOO
BITO
BITI
BIT2
8113
BIT4
BITS
DIT6
60211300·· ·F
0044
0045
0047
00 .. 8
0049
0056
·0068
006D
006e
0060
006E
006F
·0070
0071
..
(OOO2S~H
, ·2401,· 2548, 2583, 2738,· 2744,· 2745
, 2775, 278t', 2783, 2824, 2834, 2835
. (000001) , 0160.
(000002)
0161, 2300, 2335, 2357, 2997
(000003) , 0162, 2308
(000004)- , . 0163, ··0 16"~ 0222·
(000005)
0223
(000006) . 0165. 0197. 1168, 1192, 1267, 1311
... 1399 •. 1423,. 1544, .1ssa, 1622, .1636 .
1731, 1731, 1537, 1843 • .1CJ3t,. 1937
, 2023, 2029, 2087, 2093, 2305, 2318
, . 2340, . 2446, -,246 0,2646, . 2762, .. 2943
2985
(000007)
0166, 021CJ, 2166
. - .(000006)
0167. .0168,. 0221,. ...
(000009)
0225
COOOa10)
0169, Q220, 0224, 3282
( 0000111 , 0110·
(000012)
0171
(000013)
0112
. (000066)
0173, 0959
(000061)
0114, 0175, 0218, 2196, 2200, 2201
, 2286, 2290, 2291
COOG068.
(000069)
0176
(00007U
0177
(000072) t· 0118
COOO073)
0179, 3309
(000086)
0180. 0217, 2680
(OOOlOn ., 0181. 0216
(000107)
0182
(000108)
0183
. (000109)
0184
(000110)
0185
(000111)
0166
.(000112)
0187. 2315, 3064(000113) , 0188
~
~.
> •••
~
..
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
. PAGE
95
.
'~,
,_
..
- ...... -...
PAGE
CRPAOO
0188
0189
0190
0191
0192
0193
0194
0195
0196
0197
0196
0199
0200
0201
0202
0203
1)204
0205·
0206
020.7
0208
020Y
0210
·0211
0212
0213
0214
0215
0216
BITl
BIT8
8IT9
UITI0
BIT11
I3IT12
AIT13
DIT1,.
8IT15
HOOOO
HFFFF
HOOOF
HOI1FO
HOFOO
HFOOO .
HOOFF
HFFOO
HFFFO
HOFFF.
HFFOF
HFOFF
H7FFF
H7FOD
H0760
HOO7F
H2020
TSACTV
TSFREQ
CONST
OD72
0073
0074
0075
0076
0077
0078
0079
007A
007B
OOTC
0070
007E
007F
0089
0081
0082
0083
O(1A4
008r:;
0086
0087
0088
0089
QOSA
008a
009t
0092
00&9
(000114)
(OOOlt5)
(000116)
(000117)
(000118)
(000119)
(000120)
(000121)
(000122)
(000123)
(000124)
(000125)
(000126)
(000127)
COOO128)
(000129)
( 000130)
(000131)
(001)132)
COOD133)
(0001.14)
(000135)
(000136)
(000137)
(000138)
(000139)
(0001 .. 5.
(0001,,6)
(000107)
DATEI 01/0ft175
CJ6
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
0189
0190
0191,
0192
0193
0194
0195
0196
0197
0198
0199
0200,
0201,
0202,
0203,
0204
0205
0206
0207
0208
0209
0210,
0211
0212
0213
0214
0215,
3281
0287.
03 .. 9,
0402,
0 .. 89,
0588,
0673,
1104,
, 14&6,
, 1730.
, 2022,
2317,
2538,
, 2586,
0217
0'218
021Q
0220
0221
0222
0223
022,.
0225
OZ2f,
0233
SMHPAR
SJPAR
RANDOM
0056
0043
0007
CONVE:~
aoaA
MESSAG
REqND
CLRND
CONY
SH"TVP
REG
SHH
OOOE!
0004
60?71300
oooe;
aOOA
OOOq
014(1
OOF.5
(000085) ,
(000067)
07~G.
2984, 3069, 3072
0941
2361
2376
3310
2653, 2667
3280
0303, Ol20, 03J8,
0367. 0371, 0374,
D"~6, 0439, 0457,
0524, 0521, 0559,
0591, 0609, 0&12,
06CJft, 0706, 07133,
1167, 121~, 1259,
1504, 1543, 1585,
1758, 1836, 166 .. ,
20116, 2120, 2191,
Z.... 5, 2 ..84, 2 .. 91,
2552, 2556, 2559,
2593, 2761, 3210,
0342,
0378,
Olt60,
0562,
0641,
0796,
12"6,
-1621,
1930,
Z?14,
ZC;12,
2568,
3290,
03 .. 5
0399
Olt80'
0580
0658
0662
1332
1659
1961
2281
2525
2579
3311
1006
«ooooon
(000010)
(000008)
2134, 2192, ~?'3t, 3286
(000004)
(000005)
(000010)
3277
(000009)
(ODD 320) , 2562, 2631
(000229) , 0234, 0757, 0927, 0938, 10213, I1J8
,
,
PAGE
F
'\
\.
/
'\
'\
\
'\
')
/
-)
\
96
\
,.
/
"\/
(-
'\
(j
o
·0
PAGE
CRPAOD
STATUS
00E6
, 1245,
1723,
205c)',
(000230)
0235,
, 0523,
, 0149,
0975,
1177,
, 1607,
, 2161,
, 3155,
(000231)
0236,
(000232)
0237,
0420,
, 0593,
1076,
, 2167,
,
,
,
,0235
0236
leto
IelDa
00E7
00£8
0237
IHITDA
00£9
(000233)
0238
INITEO
OOEA
(000234) •
,
,
,
,,
,
,
0239
0240
INITAL
ERROR4
OOE8
aOEe
(000235)
(000236)
,
,
,
,
,
,
,
,
,
,
02,.,1
ERRORS
OOED
,
,
,
,
(00U237) ,
,
•,
,
,
,
024?
ERROR6
OOEE
(000?38)
0243
ERROR7
OOEF
(000239)
60271300
F
(
)
"'-/
(
\._./
DATEI 11 1'04/75
97
,
,
0234
C)
0238,
0909,
0239,
0908,
1580,
3246,
0240,
0910.
1581,
224,."
0241,
0452,
0569,
0742,
0903,
1069,
1261,
1645,
1852,
2102,
2lt32,
0242,
Olt16,
0535.
0652,
0874,
1058,
1268,
1646,
1892,
2227,
1587, 1692
1997, 2000
13&6,
1786,
2458,
0346,
0558,
0761,
0987,
1250,
1710,
2240,
3205,
1628,
0305,
0441,
. 6614,'
118ft,
2166,
1506,
1629,
2965,
0377,
0587,
0819,
1025,
1272,
1796,
22&0,
3209,
3240
0322,
0462,
,0654,
1303,
224&,
1511,
1897,
3242
0435,
0608,
0831,
1061,
1296,
181&,
2278,
3236
0468,
1.165,
0469,
102?,
1690,
0509,
189,."
.0508,
1136,
1786,
0544.
32,.,.,
01ift5,
12"'3,
1895,
0470,
1023,
1691,
3241}
02'18,
,0,.,76,
0583,
081)5,
0963,
1085,
1320,
1&81,
1891,
2159,
25DO,
0299,
0432,
0552,
0743,
090,."
1070,
1321,
1688,
1909.
2433,
OSlO, 015,.,3, 0623, 0756
1137, 1244, 1367, 1500
1781, 1896, 1991, 2053
0315,
Q499,
060lt,
0815,
0971,
1133,
1362,
1703,
1908,
2178,
3201,
D31h,
0453,
0~70,
0806,
0964,
108&,
1361,
1747,
19,.,7,
2501,
0456,
061t0,
D912,
1013,
1384,
2143.
3087,
0488
0672
OCU9
1153
1530
2162
3126
0351, 0360,
0502, 0537,
0675, . 0834,
litO 5, 1550,
2264, 2282,
0404
0512
0990
214S
3238
0394.
0516,
0629,
0827,
0983,
1148,
144:'h
174&,
194&,
2226,
3218,
03l,."
0477,
0584,
0816,
0912,
1134,
1lt!f.4,
1784,
1988,
3?O 2,
0621, 0755
0622, 0747
1366, 1,.,9Q
1990, 2052
Oft15,
0534,
0651,
o S48,
1019,
1201,
1496,
1163,
1987,
2257,
3252
0363,
0500,
0605,
oe28,
098,."
·1202,
1497,
1810,
2050,
3219,
0431
0551
0669
0873
1057
1240
1577
1809
2049
2275
~
0395
0517
0&30
08,.,9
1020
1241
1578
1853
2103
3254
,
0243, 0332, 0.1&1, 0668, 2158, 2177
, 2256, 2274, 3256
0244, 0304, 0321, 0.'350, 0319, Olt03
PAGE
97
.. - .. .'
'.'
....
PAGE
CRPAOO
,
,
0244
0245
ERROR8
ERROR9
OOFO
ODFl
(000240)
COO024U
0246
ERRORA
OOF2
(000242'
'021t7
ERRORB
OOF3
. (000243)'
DATE.1l 1/04/75
98
,•
,
,
,
,
,
,
04'+0,
0613,
0821,
0989,
1162,
1539,
1835,
2185,
3258 .
02"5,
02.. 6,
0461,
0645,
0833.
1021,
1179,
1617,
1929,
22,.3,
0493,
0674,
0915,·
104.2,
1260,
1713,
2021,
2263,
0528, 0563, 0592
0154, 0771, 0781t
0931, 0943, 0977 .
1051, 1063, . 1075
1281, 1298, 1393
1729. 1803, 1819
2085, 2147, 2166
2281. 2 ..98, 3207
.
-
-...
. ..
.
~
~
-.". ...
.'
. .....
.
.
_..... "-....
0419, 3260
0,.82, 0634, 0792, 0947, 3262
ERRORe
OOF4
0249
0250
ERRORO
ERRORE
00F5
OOF6
ERRORF
OOF7
C000247)
0252
GENERA
OOF8
(000248)
0253
OOF9
SEC
(000249)
EQUIP
OOFA
(000250)
,
•
,
,
,
•,
,
,
,
,
,
,
,
,•
CHAN
OGFO
(000251)
0256
0257
BOCSTA
0004 -
BOCCWA
0005
(000212)
(000213)
0258
TIME
0006
(000214)
,
,
,
,
,
.
0248, 080-8 .. 0965,- 1036, 1518, 2004
0249, 0485, 0519, 0556, 0637,
1283, 1697, '1793,·· 3268
0250. 104S, 2245, 32'70
0251, 0486, 0521, 8554, 0638,
0809,· 0932,,0951, ,11-63, 1175,
1294, 1.373, 1540, 1618, 1696,
1900, 2001, 2060, 3272
0252, -0343, 037-2,·.1-59-6, . 2"9,-
0253,
, 1408,
,• 1632,
0254,
,. 086&,
, 14,.8
,
, 1965,
2600,
,
0255
_.- .......... ...
~
.
--
-- .................- ... . ......
'
-
~
.. ,
. .
~ ~
".
-
.
- -' ....... _,
'''--''
'"
-~-...
... -, .........
.
.~
0255,
0"10,
0529,
0646,
0843,
1014,.
1196,
1489,
1699,
1903,
2097,
2314,
2617,
3293
0335,
2549,
0257,
0258,
1164
,",
--\
0795
1282
1792
-.-
3274 .. ·
1114, 1188, 1222. 1307, 1336
11t19, . 1"32~'147~~ 1~54, 15652896, 2911, 2927, 3250
0285, 0681, 0684, 0699, 0712
1103. 1217,. 1336,1412, ·1425
1453, 1470; 1663, 1762, 1868 .
2124, 2218, 2332,. 2%55, 2591
2978, 3230
029'+, 0311, 0329, 0357, 0390
0426, 0447, 0471,,0,.94, 0511
0546, 0·,6.. , 0578, 0599, 0624·
066'+, 0737, DeaD, 0810, 0822
0869, 0898, 0956, 0966, 0978
1052, 1064,,1080, 1126, 114"
1233, 1263, 1315, 1355, 1436
1502, 1570, 1583, 1640, 1680
1741, 1776, 180~, la47, 1884
1941, 1980, 1993, 2042, 2055
2154, 2173, 2221, 2252, 2270
2320, 2-\26; 2480, ·2563, 2606
2959, 3156, 3196, 3213, 3288
0344,
2602,
1592,
152tJ,
. ,,' - .. ... .., ............. -'-............. _..
~
........ ,. - -...,. - .. _. ..'
...
'
"
-
-~
...
~
'-'
-
..-
•
~
••
"r
" ••..•. ,
'
.--
' . _ _0 , "
~.
. .. _-' ..
.•..
-
'"
.
..,
•••• "
• __
•
.......................
·1
'
"~
.• .... . ...
,
,
••
_
..........
__
H
•••.
,
..
"
'-"-"'--" ..
..,.~
. . . . . . . . . . ,~.
.........
••
~
0'"
, .............
.... -.. .
............. , .... _, - .....
03&4, 0373, 1473, 1956
3295
2065, 2555
1597, 2006, 2070, 2562
.. , ......... .....
,-
0259, 0746, 0759, 0766, 0775, 0791
~
'.
'\
\
J
~j
_.
.............. ,...,.. ....... - -..........
PAGE
"
...
........ .. - ....,,-
..... ..............
F
'.
I
-_ -
..- .. _........ _.' ....... _..
.. -,.
6027130U
_....
2063, 3266
t
0254
-...
~
_- ...._.- ....
02lt7, 0484, 0520, 0555, 0636, 3264
,
,
co 0024'+) ,
,
(0002 .. 5) ,
100(246) ,
-,
,
0251
. ...
.. .............. '
021t8
........
)
~I
98
\
'\
/
-.,
..,.. ~
'.
1
I
J
,'
,
\.._,
j
(-\
C~I
c)
C~:
(J
CRPAOO
0259
c:·
PAGE
COLUMN
0007
(000215)
0260
BIAS
0008
(000216)
0261
EOFFLA
0009
(000217)
DATA If
OODA
(000218)
.. 026.1
EOPIF
oona
. (OOIJ219)
0264
ALA IF
OODC
(000220)
026~
STATIO
DODO
(000221)
02&2
(~)
(~~
'-._/
,..
,
,
,
,
,
,
,
,•
000£
(000222)
0267
.ACT
OOOF.
. (000223)
0268
EXP
OOEO
( 000224)
0269
OFFSTF
00E2
(000226)
60271300
F
0901 ..
1032,
2967·"
0260,
089S,
1151,
1354,
1715,
191",
2931,
0261,
3228,
0262,
1284,
1409,
1619,
1839,
2089.
0263,
310lt
, 2590,
0265,
.. ,
• 127
169 .. ,
,•
,
,
,
,
•,
,•
,
,
,
,
•
,•
,
,
,
,
,
_/
(-\
,~--)
r-. ')
'-...
j
f\
"'-j
(',
\.
-
,i
0
~
/~
/~-)
('
(\
-,
( -\
L'
~j
(
\
\. ../
OATEI 01/04/75
,
,
,
,
,
•
,, .t03D.,
1512,
, 1789,
•
COUNTE
\~
9q
,
026b
r---\
0920, 0925,
1033, 151]9,
2968
073 ... 0750,
0921, 0953,
1231,·,1246,
1314, 1386,
1774, lB12,
·260~, 2609,
2946, 2950,
2299. 2307,
3276
1112, 1165,
1301, 1305,
0936, OQ55, 1011
151", 1515, 2964
0780,
11'39,
1261,
1706,
1821,
2620. 2622,
2951, 29q4
23.34, 2356,
0185
1142
1270
1708
1882
1182,
13ftl.
1477~
1548.
1626; 1630, 16t7.
1S73. 1933, 1969,
2858, .. 2926
0945, 2509~ 2613.
1186,
1397,
1552,
1733.
2025,
1219
1402
1562
1766
2033
U56,
1533,
1825,
3122.
0793,
1291,
1721,
2577,
0385,
0455,
0522,
0586,
0657,
1110,
1871,
3125,
0276,
1290. 13&91693, 1719
2061, 2522
0162,
1124,
1256,
1618,
181,.,
,1,)"',
1171, 1275,
1588. 1610,
1911, 2002.
.313.6, 3143
091t9. 1043,
1370, 1388.
1790, 1827 ..
3151, 3167,
0391, 0 .. 12,
.01t72,.0479,
0530, 05,.7,
0600, 0607,
0666, 0671.
122,., 1344,
1967, 2220,
3154, 3232
2448, 2 .... 9,
2535,
0266,
0448,
0512,
0579,
0647,
0868,
176 .. ,
3086,
0267.
3231
0268, 0301, .0318, 0340.
0418, 1039, 1048, 1377,
1598, 1726. 1832, 1917,
,018, 2066, 2071, .2082,
2182, 2435, 2627, 2889,
3051, 3066, 3068, 3074,
3171. 3186
0269, IJ79, 1523, 1600.
207l, 2629, 2891. 2935,
3075, 3089, 3103, 3128,
3173, 3187
1113, 1128. 1161. 1181,
1280, 1300. 1342, 1357.
1478, 1491. 1538", 1547,
1616. 1625, 1668, 1682,
293G
~
.....
. .. - ... ,.
~.
2988
•• _
,
.. -.....
~.,
..
... '
...
.. .......
-,
..............._ • •
.... ,'..........................
.~
_..
"-.. ...
.
....•
o.
_ _.-
............ ......
.. ,- .... "
,
"
-
....... ...
3083. 3097
. .
. .....
'.
.......
1155.
1534,
1898,
3175
0,.21,
0487,
0557,
0625,
0697,
1480.
2564,
0,.34
0495
0565
0639
0714
1665
3063
.. ...
~
•
_ .....
-"
.........
.........
.0397
1593
2007
2163
29~4, 2990
3101, 31'+0
1919, 2009
2992. 3052
31'+2. 3159
1220,
11Q2,
1563,
1167.
, ",
_
.. 4
1172
1612
1902
2454. 3195
03&9,
1521,
1926.
21,.4,
-,
-', ...
1235
1394
1572
1778
PAGE
99
4* . . . . . . . _
PAGE LOO
CRPAOO
DATEI 01/04/75
, 1874, 1836, 1910, 1982, 2034, 2044
, 28SQ, 2887, 2938
60271300
\
F
PAGE 100
"
\
\.
J
\
\
)
o
C)
CRPAOO
()
(
(
c
\
\,--)
'--
(
(
'\
\~
\
_1
DATE. 01/04/75
PAGE 101
e 0 L S
V " - ........
_.......
_- .. -
:S
OEF.LINE
0142
01lt4
0145
0151
0154
0155
11156
0271
. 0215
028 ..
0294·
0301
0311
. 0318
. OJ2CJ
0335
0338
0341t
Ol47
0357
0364
0367
037~t
0376
0390
0397
0410
0418
0426
0434
0447
0455
0468
0'471
0479
NAttE
AT LINE NUHBER
ADDReSS
R(~·FERENr.EO
CRPAOO
·PARAOR
RETURN
EQ .
SECTOT
0000
0004
OOOS
0006
0007
,212ft, 3227
INTLtN
START
0008
00013
BEGIN.
oooe
RESTAR
SEeD
LOOPOO
SOOI\
LOOPOt
SOlA
LOOP02
S02e
. S02A
SOlA1
S028
LOOP03
S03e
SOJA
S03A1
S038
lOOP04
SOltA
LOOP05
S05A
LOOPD6
S06A
LOOP07
S07A
lOOP08
S08A
.SOlSA
0000
0494
soac
0502
0508
0511
S080
LOOP09
S09A
60271300
F
0011
0018
, 3287
, 0286, 0693, 0707, 0861, 1103, 1(,'12
ta3i, 1,.65, 1658, 1757, 1863, 1960
, 2119, 2213~ 2373
2375
0142
01ltS
t 2324
t 0686, 3315
0218, 0300, 030& .
0297
, OJ17, 0323
oa14
0352
, 0333
,
,
OOIF
,
0025
002C
0033
0039
OOlC
00lt3
0046
004C
,
,
0053
0056
OO'iO
0060
00&8
OOoF
007<3
0081
0085
ooao
OlJCJ&
009E'
a'oA7
OOAA
OOP.2
nocz
OOCA
Doce
OUCF
~.-..
,
0366
, 0396, 0405, 0700
0393
0417, 0421
0414
, 0433, 0442·
, 0430
, 0454, Olt63
, 0451
t
,
0503
0471\'
t
0475
,
,
,
.......
.....
....
0337
0381
, 0362
,
.
0501
0498
0538
0518
PAGE 101
'.
p
••
-
.. -
0007
00E1
00£9
00E8
00££'
0519
S09B
S0ge
0529
··0537
S090
0543
LOOPOA
SOAA
0546
..
0554 .
SOAB·
SOAC
0564
SOAO
0572
. 057&·
LOOPOB
OS86
SOBA
LOOPOC
OS99
.. .
0607
SOGA
LOOPOO
0621
0624
SODA
-"'-'8632,
SGDS" ~
~
065 ..
.- ··0664·
'0679
0684
.... -0693 '
0707
0133
;_.;
O-OF6
0100
0108
010A·
0112
0119
01240120
0130
0139,,, .
.~
0646
SODe
0148
SOOO
0150
: LOGP8£ .. . 01~5
SECDA
0162
SECOB
0168
SEC'1 ····81~··
0176
SEC2
LOOP20 0180
Ol~6.·
... ······07·37······ .. S2.fJA.
S20B
0745
OlaF
0148
S20C
0192
·07S7· .. . S200· .- ·0190
S20£
01A9
0769
0173
S20F
D.1AE
·0718 . ,S20«7 .. ·OlBa
OiC5:
S20GA
0795
0800
S20H
OleA
0808
·0102
S20I
0810
S20J·
'1104
5201(
0816
01DC
0822
01E1·
·.S20L···
. 01£9
0830
S20tt
S20N'
01EE
0834
08lt3 :. . -SEC2A·· ·01F6
0851
SEC28
01FE
0861
0204
SEC3
·0894
LDOP30 0214
0898
S30A
021A
{)223
S30B
0906
,'·0911
.. S30G .. 0229
5300
0917
0230
S30DA
023C
0929
. SlOE
0242
0934
0940
S30F
0248
0261'
0965
SlOG
0966·
S30H
·0262
026A
0974
SlOt
026F
0978
S3DJ
,
6027'1300
DATEI 01/04/7r;
PAGE 102
CRPAOD
,
,
,
,
,
,
,
,.
,
,
t
t
.,
,
,
,
,
t
0515
0536
0533
0573
0553
0550
0571
0568.
. ...... ,-
0594
0582
0606, 0615
0603.·
0655
0631
·0628 ..
058~,
,
.
~.
.-
.-....
0650
0676·
0659
0680
.-
"
-.
-'"
.
..
-
..•.
"
.... : ..........
•••••1
..... _
. . . . .¥
•••••
~w
.... _
..
. ...., ... -
-- .. ----- ....
••• _
-.~~
;-~-.-........
,"
-"
......
. -r· .. •·· ,,-
~'"
,~_
,
'
.
.--. ",.
- ......
...
,-
~-.-
....
-
-...
.. -
... -_... . ..........
..
....
.. -" ........ -
~
-
'
-"-~
..
0·777
40 •• _
.,.
~
•
..
~
•
a •••••
~
_ _. '
_
....
~
- .......
0935
PAGE 102
F
'\
/
\
/
M ....
-
...... ....
~
~
_.4' ___ ""'_
•... .. -.- ...
~
...............
0916, 0933, 094 .. , 0948, 0952
0973
0970
0985
~ ~""'-'
..
.~.
..................
~
.. --- ...............
....
,
,
,
,
,
\
..
0695, 0854
0835
D11~
~,
-~.
.... ,,,,.
02&:9 ,~068 2,. . 0685
0817
0814
0829
0826
t
0798
,08S0'
, .0847
0710, 0853, 1091
, 0872, 0991·
0905
0902
0962
0914, 0928, OCJ39
, 0924
, 0922
/
"
~
,
,
,
..
........ . ..
0163
t
, .0174·
.0801
0794
,
,
,
~
0653
, 0683,
, 0799,
·,·.07.....
,
, 0141
0804
, .0768,
, 0165
,
,
,
,
._-- ..
--~
.•.
_.....
:-
"
........
c
PAGE t03
CRPAOO
0986
0277
S.30K
1006
lOOP31 027E
1014 .
S31A-0288
1022
S318
Ol91
1028
0298
S31C
10..38
02A3
·S310
1043
C2AB
S31E
10 .. 7
S31F
02AF
..... -llJ52 ..
·531,(;
0267
1060
S31H
020F
1064
S31t
02C4
1072
S31J
D2ce
1080
SEC3A
0203
1088
SEC38
020B
020F
1091· . S£C3C
1093
S31TIH 02El
1103
SEC4
02E5
.. 1123
. .LOOP4.O-. 02F2
S40A
OfF6
1126
1136 .
0301
S408
1138
· sltac
0303
S400
0307
1142
1151
S40E
OJ11
.1171
0326
· S40F
1186
0336
S40FA
033A'
1190
sltoe
·1196
SEC4A ·Ol3F
0347
1204
SEC48
1212
SEC5
03ltA
1230
lOOP50 0358
035C
1233
S50A
12.. 3
0367
S508
121t~·
S50e
·0369
037A
1261
5500
1270
0384'S50E
1282
5S1JEA
0391
S50F
1290
0399
S50FA
03A9
1.305
· S50G
·OlAD
·1309·
0382
1315
SEC5A
1323
alBA
SEC5B
.. 1331
SEC6
03BO
03C7
1339
SEC6A
1341
SECGA1 OJC9
LOOP6.Q OleE
·1352
1353
1355 ..
1365
1368
1383
1402
1405
LOP60A
S60A
S60B
sooe
S600
S60DC
S60De!
G0271300
F
0300
0302
0300
03EO'
03FO
0404
0407
(
',--
DATEt 011'04/75
..
0982
1077
102·1
1018
~
1035
10-31
1037
1044
t .1046. ,1059
1056
1071
1068
t 1087
1084
~
, 1089
.
1010
0864, 1090, 1205
~
1170, 1185,. 1189.-1193
1135
t
1132
t 1149, ··1159, ·1174
" 1150
1147
l1lt1 .
1169
1183
t 1203
1200
1106, 1324
, .1289., 1304. 1308, 1312
1242
. t 1239
1253. 1274,. 1293·
,
~
_
...... ......
. '.'-
"'-'"
~
,
......
•
•
,
•,
..
,
.,
.,
.# • •
. ..
....... -
,.
",
.
. , ..
~-
--,
.. ........ ,.... . .
'
••
~
•• 4 •••••••••••
'/ . .
.
~
.. -"'
.- - ..............
..
,
. -."
1345
1364
1361
1372
1315 .
1396
1403
PAGE 103
••••
"
,
,
,
,
,
,
,t
,•
~
...... _
- ... ....
,
,
,
,
,
,
.,
,
.... -
~--
_
.
','
-
1266
1269
1246
1288
1302 - ..
1322
1319
1215, 1456
1475
1434
,1401, 141O, ·1414, 1411, 1420,1424
.
..
.~.
...-......_.
•
.\
,
--
. .•.
.
~
..
_r__ '_._"
......-
---~
......
1407
1~11
llt-18··
1421
1438
", 1"6
56008
S600A
'S600A1"
S60E
SEC68
SEC6C ' ...
040Q
040D
01t1-4
0417
0426'
042£0437
043C
1 ...53
SEC6D
1458
RESYNF
1 .. 65 . '.', SEC7 ..... I}ft3()·
1471
SEC7A
0445
1487
LOOP70 0450
" -1489
. S70A.. 0454
1499
57DB
045F
1510
'S70e
046A
....... ·1520 c. . S7eo.. · ··~ft75
1529
S70E
0480
1547
S70EA
0493
;; :"""1552",, ··S78·E8··· 0498
1~56
578F
049C
1570
LOOP7! 04A6
~ --. .. ·158iJ .... ,S71A···· . "81
1592
S718
04BE
1606
5710
0400
.-" , .: ·:162~··:· .. ·S71CA .. · -04£4··
16~. ~: S71ce:
04£9·
1634
5710
04£0 .
...: :.._·:16ft& ...... "SEE:78 .
0 ifF?.. ..
1648
SEC7C
04FA
t,"
1658
SEC8
0500
"
1~77
. LOOpeD . 050C·'
.~680
S80A
0510
1690.
S80B
0518
1692'
'S8DC
. &510
1699
5800
0524
1706
S80E
052B
.. 1715
S8aF ..
0536
1718
S80G
0539
t719
'S80H
053S'
. 1-7·2·5 ..·· ." '·5801 '.. 0·5ft1-·
1736
58 OJ
D54F
1741
SEC8A
0552
1749
SECSB
OSSA'
1757
SEC9
055D
1'773
LOOP90 0569
···1776·S90A
·0560·
1786
590B
0576
1788
S900
057A
1795 ···5900
'~581
1805
590E
058e
1812
590F
0593
1821
590G·· 059£
1824
S90H
05A1
1825
5901
05A3
,~> .. '.. · ..
60271300
\
DATEI 01.104/75
PAGE 104
CRPAOO
, 1400
, 1406
,-llt16
, 1404
, 1427, 1429, 1445
. , 1442
, ,1 .... 7
, 13.. 0, 1415, 1428, 1430
t ·133 .. ,1452,·1457,·1651
t
1551
, 1546, 1555, 1559
, 1498··
, 1 .. 95
, 1517
, 1513
, 1519, 1525
, 15~6
., 1545
......... .
1549
t 1579~ 1624, 1629. 1633, 1637
. "1576
... , ....... .
. , 1589
, 1591, 1602
-, 1614-..·, ~ .. .....
. .. . _.. ... .
. --.,:
..... :~-.':' ..... ~.~ .. -.. --~.-... ..... ,_ ...... --.;.... ~'.-... ~-~ ......
,
~ ...
-.- .. ......
,
~.-
. -......... ....--,. •..
.......... ---,................. _.-
~
.;
..~ ......, ....................... ~""'_"''''''''''' ..... ~:. . . _.4_ . . . . . _._:;. . . . . ._. ·:·~:_ . .~ . , _. _. . :~_ . . i-.. ~:.............~. . '. ";'.:..-,:,~
,., . . . . , . .
. ~......- ... ~" .....,~,. _... ,.
''''''
..•
..... -
~
...-.:.
•• _. _ _ .: .......
.... ... :..~
~
... - ••• '! .. - . - - ....... - .. _ .................... "':' •.•• '• . • . ~ .•••.••••• , .... - - - - ...... _
.. ....'.- ...........
...... .
. •. ~.;..., ~~. i . _ _ , ..•. _~ .... ; ... ~._ ..... ..: ....
.. -~ :
, 1623
,
,
,
,
,
,
1627
·1647
1644
1451, 1468, 1650, 1750
1735,· ~73! ,
1689
-
-
...... -
-~
..
-
••••• _ ..._ •.- .••• - - - .... ~ .....-
, 1686
.... ..
, 1704, ,1717· .
, 1695
..:.. .....~.
-
"'*'-.
..::.,. ;.. :' .;..
, 1702
, 1712·
, 1716
, 1698, 1714, 1724
.1705,1720,;
-.:
.......
,- ., ".'
..
..-.~ ..
;
~
........... .
, 1722, 1732, 1734
, 1748
1745
, 1661, 1856
t
,
,
,
,
,
,
,
,
,
1841, 1844
17851782
1799, 1623
1791
1802
1808
1818
1822
1794, 1804, 1611,
_
18~O,
1830
PAGE 104
F
\
\
/
I
\
I
/
\
)
"
j
c-j
.... _ _ h
....
..::.:...~"
o
0
CRPAOO
1831
1842
1847
1855
1863
1881
1884
1694
1897
1903
1911
1924
1925
1930
1936
1941
1949
.1956
1980
1990
2006
2016
2017
2D22
2028
2042
2052
2065
2080
2081
2086
2092
2097
2105
2119
2127
2132
2142
2154
2173
2213
2221
2229
2239
2252
2270
2298
2303
2313
2319
2331
PAGE
S90J
S901(
SEC9A
SEC9B
SECA
lOOPAO
SAOA
SAoa
SAOC
SADCA
SAOO
SAOE
SAOF
SAOFA
SAOG
SECAA
SECAS
SECS
Loopeo
SODA
sa08
saoc
saOD
seODA
saOE
LOOPS1
SB1A
selB
SA1C
S810
SB10A
SBtE
SECBA
SECBB·
SECC
SECCA
SEcce
LOOPCO
lOOPC1
LOOPCZ
SECD
SECDA
SECDB
LOOPOD
LOOPOl
lOOPD2
ENOTES
PASSCT
REPEAT
MeREST
END SEC
f>0271300
(J
F
O~A9
0587
OSBA
05C2
05C5
0503
0507
05F.2
05E5
05EO
05F3
0601
0603
0608
0611
0614
061C
0620
0633
063E
065'0
065C
065E
0666
066C
0674
067F
Oa8E
DGA1
06A3
06AB
06B1
06R4
06Be
06C2
06CD
0602.
060A
06E4
06F5
0716
071F
0727
072F
07lA
074A
0762
0767
0760
0774·
077Fl
(
105
'\
I
() ()
(~)
o o
C) o
(
DATE' 01/04175
, .1826
1828,
1854
1651
1760,
1935,
1893
1890
1913
1910
1899
1915
1923
1907
1932,
1948
, 1945
1866,
1989,
, 1986
,
,
,
,
,
1838, 1840
1950
1936
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
•,
,
,
,
,
1934
.
....
."~
.
....
......
....
.
2011
2015
2005
2024,
2051,
2048
2062
2075
2079
2064
2088,
2104
2101
1963,
2131
.,
~..
.-- . ..
... _____ .. _.6
-~.-
1951, 2108
2027, 2030
.... _ ........................
,
-
-~.
...
.... ....
.
.. - .. ..- ...
,
'
-.
2026
2091, 209 ..
2090
.
~
.. ,'.
,"
.
~..
..
.
2107, 2203
.. -, ..........
212q
....... - ...
2ZCJ3
-
,
,
......... - ...
. ,
2003
2149
2168
2187
2122,
2228
2225
2247
, 22&5
2263
, 2216
, 2298,
2306
, 0156
, 0679,
1648,
, 2292,
,
....
2301
0851, 1088, . 1204, 1323, 1446
1749, 185!.i-, 1949, 2105, 2202
2341, 2342, 2343
PAGE 105
,'.,..
.
...
'."
".
SECTlo 0182
2J38
0788
2355
PARA"
2360· .'. . PIO':
~78C
2361
PARA"1 0780
PARAH2 07$£
2362
· PARAttl 978F
2363
2364 .
PARA"" 0790
2365
PARAHE 0791
PARAHF 0197
237·1
PARAHG 0798
2372
2394
PARERR 07AE
··0783
2399
· PAR
INTROU 07C7
2416
07CA
QINT
2417
. .... .. .. - .. -.
-- ... '.. ...
STAT'
07CD
2425
070B
INCCT
2444
~
INC180 ·07EF
07F3 .
tNe10
· lIMI1··· {J.7F9·
21t75
2477
"aMI TO 07FA
07FE
2480
"NTR1
0805 .
. 2lt86· . ···"MiR2
0807
2487.
"NTRJ
08D9
2489
HNTR4
HNTR5
DeDA
·2490·
080E
2494
"NTR6
HNTR,9
0814
2500
WNBGNT· ··0817
2503
2507
INITOI 0816
2520
INITEI 0822
·····2533
"INtTAI 082e·
INTPRC 0836
2547
0847·
2563
INTR
. ··2S81 . ·1.N1'RA·, " 0859
. 258J
Dase
INTRE
2585
INTRl
085E
2592 . INTR2
·0865
260 ..
INTR2A 0671
INTRD
0879
2611
REJECT 0887
·2624·
0889
2626
INTR4
TEHP
0896
2637
2lt65
2lt69
J....
2636
2639
2640·
THP
DATAIS
EOPtS
2641
2642·
2644
ALAIS
AlAIS2
DlYPAR
60271300
DATE. 01/04I7'5
PAGE 106
CRPAOO
0897
089R
·0899
089A'
0898
089C
, 2333, 2336
, 231~, 2397, 241~, 3314
t ·011t .. , 2372
, 23'4
, 2365, 2795
, 2409, 2655, 2661
, 2358 .
,2366,· ·2368 .
, 2370
, 2371, 2380, 2385, 2390
, 2391,.2406
, 2lt02
, 2379,2384,.2389, 2400, 2510, 2523
f·253·6, ·33 .. 2 "- ......... ..
, 2lt37, 3235, 3237, 3342
, 2452, 2461, 2462, 2~63, 2473, 2474
,
,
3237, 3239
3239, .3241
,
2488,32~1,
.....
,
,
."~~
.
' .
,
,
.:-.,.' .... . :. ... -...... -....'............... ~, ................................-......__ .- . . ...;, ....--..- .. -.:.. . ~.!
-- -- .. .... -_..... -.......................... -- ... .
........ ,._.. .... ...
,
-,_. -
.
,- .:....:~ --..:.~.:.,~.:
'
3243
2499, 2502
2~83
2485, 2487, . 2493
, 2 ..92
, 2~90
,. ·2479, 2494,· 2495
, 2516, ~243, 32lt5
, 25~9, 3245, 3247
,- 25~2, 3247·~·321t9··
, 2416, 2416, 2416, 2564
, 2551
., 2591,2616, 2G2?, 2610, 2623, 2635
, 2570, 2580
, 2587
, 2598
, 2601, 2603
, 2608, 2619··
, 2595
t
2567, 2571, 2578, 2585, 2588, 2592
2611, . 2626··
, 0277, 1869, 2614
, 2612, 3100
, 1038, i125,' 1831r1925, 2017,2081
, 2589, 3139
, 1047, 2572, 3170
, 2576, 31·72 .'
, 0735, 0896, 1012, 1125, 1232, 1352
, 1679, 1775, 1883, 2673
F
.
:~ ..' '.1.
" .......... _... _ .. __.. w. .. ..;,.;...:.~_ ..:_
• •.
.--' ...... _.. ....:.-..... -~-
PAGE 106
,.--\
'\
)
\~
.... :...- .. --..:.--:.
"
............ '" - , ..... - -. ~ ....... -~.-
, ·2\58, ·2it7~
,
,
(
\
')
(""-
o o o
()
()
(
PAGE 101
CRPAOO
)
()
o o
c)
C)
(
\
DATEI 01/04175
.• ;'l~.;.. ~.,,~
26"Q
2661
2665 ..
2669
2613
2674
~675
2678
268ft
2689
. 269Ea
OLl
DBA!
Ol2
08AE
0893
OL3' ..
OLIt
DL5
OElAY·
OS87
OSBA
OBBC
0880
HILL!
089E
HILLIQ
HILVAL
. CYCLES
08C9
INCR
D8ca
D8CU
2112
GEN
0802
2723,
2725
2736
PATlO·
PATTOA
PATTI
08EO
2739
PATTiA
PATT'
2158
2161
2·806
2814
2825
2828
28 .. 1·
28 .. 5
PATT3
OlDO
2734,
,
,
.093E
0-;1 .. 3
., ,aa9
094A
··HESSE
2853
2856
HESSF
2885
2899
2902
2905
2907
2914
2916
2'921
2922
2925
2927
2929
2931
2948
2950
2958
CHECI(A
CHKO
CHIU
CHK2
CHK3
CHI<4
CHKltA
CHI(49
CHI<4C
CHK5
CHECKB
CHfCKC
0980 .
CHECK
CHECI(O
CHI(PAR
CHECKE
OfFSET
f
,
.,
,
2700
2756~
............ "-1":'
'r.:,
1';,::,:; ~~
., ,.4_',,_,', ._.:'_ •• ,.: .........
..
'" .~
.:....<.... ~ . ;~. \.~,::~·. . . ~:~d
.' ','" '.;'"
,
, 2810
,. 2874
OA1 ..
• 2863
, 2920
OA22
OA24
OA37'
OA3Y
OAItO
.~~' .~. ':'Y7)~
• "' ..:,~·~·.. -;~.::.:I~~
~
.'
.,~
.....
~ '\',.
." ...
21.33
2229, 2230
2191, 2210··
, ',-~
" ' : '-:--:';'
i
'-"
~
-_ ......
.... ....'- .... , ... "
,
Oc)F4
OA2i
' .... :---:".; .....
Z800i 2810, 2.J8, 32 .. 9
2191
1718, 182 ... 192 .. , 2010. 2080, 2955
OAOS
OA07
DA09
DADS
OAi&
DAle
QA10
OAiF
""-~~'~.~'.~~.:/'(
2786. 2897
09!i~
0904
oqOS
,• 2837
,• 2833
2132,
, .2133.
, 2190,
...... ;~
" , . '. iJo' 'oj
,I,
2193
, 2'21
.095C
.0969
0995
. 2851
.
2785
2720
QI)20
~
.. ~ .. ~ ~ ... ::~~:~~~'~'':''~~'')~
• 2116
,
"
2685
, 2718 .
, 2719
, 2763,·· 17'1t, ar70 .. 2777, ·2907,·2912
091f
HEsse
"ESSO
2649, 2651. 2665 ..
2648, 2659, 2664
1029, 1510, 1999, 266Q, 2687
, 2729
, 2717, 2759
0914·
,
.. ~.;.~ ... :.•....:.. " :.:,.:.~:;.~ ~~:,~
2662 '
, 21 .. 7
D928
PYB
2657
0909
090C
PATTIt
PATTltA
PATT5
.'. PATT5A
PARITY
PYA
, :,".,:-
.
08EF
08F2
PATT3A
602'71300
t
, 3251
2768 .. , .-8ASE··_··
2776
···,,2788 .
2790
2802
, 2660
2656,
• 2'.. .,.
• 2672
• 2670
• 2408 •.
• ~412,
" Q713,
t ' t!9"
, 261'9,
, 268"
• 2686,
'"
",.t"
.. '~~. ::::~'~~E~j
• 2878
• 2866. 2921
, 2918
• 2917
...
~
_ .•.• ....: ....... '_ ., ....
·:\~.~ .. i .'~. ~:~
, 2882
2900. 2903. 2906. 2923
2910
, 2949. ZCJSIt
, 2895
2q37~ 2944, 2947
• 0836, 119n. 1309. 1421, 1556, 1634
• 2971
..........
PAGE 107
~
....... -~ ...; ..
-- .. :
:..~~
.:......;.
. ',"'
I'~!
PAGE 108
CRPAOO
2966
2975
"
,~ . . . . _.,
..........
OFFST1.
, ERROR·
•. '~ .•, :.. _ ........J_ ..... :. .•..
• 2910
, 1382,
0 A49
OASO
: _ ........:;.
DATE' 01/04/75
'4"';,'"
.... _
.
~528~
.'
.
.1605. 1922, 2014. 2078
,2396,·· 263'1t.'··2-89...·,. .2CJ1t·1-,·2·98 2,· 2981
••
•. 2998, 3110, 3112, 3115, 3117, 3320
, 3326
~.gC}8·-
•..• ·MlIAS··· ... · OA61)·. .....• ' 291& .. -.. " ..............•. :.... ""'.
2999.
.J
.,.-.,
,2977 .
.
. >T,. 3D80;'.:~.·
SECERR OA6A"
_ . • 2981
" " . . ..
"-···~';·-'30ft;·;'·;~·~!:T·ADO .~. fJ.6&~··:···' ,.: ....... ;. ..., ·291"3-,-·:2989';···· .. ,'... '. ~ ,,. ,." ...:.. , ......... .
3002
, 3003
'''-~~
...
.........
''--
-.~~
...... :-- ...-.' ...
-.-.~
ID.OA69
ACTUAL
EXPECT
OA6C
OA6D
,2991
, 2«)93
..
.
.....
-::--":-~-
' .. " . <':~, :.;
• , . _',I. ~~. ' ... ~
,'"
'. '" .~. ' . . -.._'.~~.~ .. _~ ......;/~-.. _. . _~ ...__ ~_ ..~ ........:~ ~.. : .:.:.._:;:._~:....._.~_-:,. . ;~~. ~' ...:~/~::~~~:~~~.~. ~::-:~_~j.t;~2~i
.
\:~....·.,.. ~-aI"~',I·
COl :... :~"... UA6E: .. ··;··,".'··, .... ·.. •·· .... :··T.· 2'995-:, ,~,'.;,..:.,.:-.. -.'-.,.. :.. '..... -..... -...... _..........:..............,.......-,-. "" ..... .,.;-~- ..-.- ....::.:..-....:.. :-.-.--.--:-.. ,~ ..,.-'..~.,.-".:-.~
"',:: <3tD5( ·::PAfTNO···OA6·F, . ",: . " ~·~71,. •. ·2886,·29~9
..'
. . . . ';
,:
.::: .... ::~:.
. ' . 301 ....,
ERR~'" ,'OA70·
,',
' , 3,015.', 3251,. 3253
"
' , '
'"
.:' ~:~,: .;.
''".;.··.;.···~-30!7-· ""-EMf-:-:'" ··~o-A-1-S'" ... ,: ... ~- .:, ...... '......... !."·t'~!29·3;;.··3e55 ..·· .>.....,~., .......... :... -... , , .... ~: .. ~ ._ .... ,.: .. ,,;._........,. "..:. ..::.i:~ ....:•.;..~.-' .. ~_ . .: .._~,...:.:..;:~~,.:,.... :;.... ,-~...:...._~... :..·_.:i..;:..-'--:...:::.:.:.:2:;,:;..~{j2iJ
,303CJ
30lt8
ERR6DA79
ERR7
OA7E
, 3""0, ,3255, 3257
, .3050, .3053, 3257, 3259
1}J~rla1",~~}!g~j-~1:;_:-~·~_~:uj~m~~=:2n;::7_9~-:~~~- :---·~_::._~~.=_-~J=·:_~E~~-~~;::~I(·:-::_~-=.~:.:_=_-~·:~'_~:'.E~~~~~~
, 3085, 3090, 3261, 3263
• 3099, 3105, 3263, l265
~~·~-.~7":-.3t~O,;'~, ~.':,~$-l:OP~,,7"~,~.aA8'·:-:-~--·-~ .. ·~··~ .. "·~~:'Ql-8-r~:-3oa ....':'·~",~ .. ~ '~'.: ".~~.:. -, .~.... --._.:-.-:- .... ~~ .... ~ .:.:....'......~'.-:-.-., ".. - .. ---..
-.~··-·--· --,--~.-~.- --~--.·':':·.····311'S<:·.:;;S1'O"3··; :(JA84:~,.<: .... ,...
··~:.,305S~·3~7 ..t~:.3a.:a,.:a10·1 •. 3131, '31 .. 6
.
.'
. .
.. :., .; . : . . . .
. . ~ ;:: '.' ,~:~, ..,"
"". ':>,:.::}';
·3082·
3096
',:'
.'
·£RR9'
ERRA
OA99
OAA~
". > .......;...
.'
--r-·-_· ...._____
.
. . . . , ,3~62'. ·.:U.1'8,:3~'I1:··;;-:
,.;.:;.. . -.·~:..·~3i!-f:.::··~~·~Me. . . ·-!~{)-A&1··~·: .... '.."
3135
3150
.'. .
,ERRC
. OAC2
, 3138, 314,., 3267, 3269
£RRO
OACF
, 3153, 3160. 3269, 3271
·;,c:'''-~·.':;iJ166·.;·_o .. ··ERRE·:~·: :'~OAOG "':"'~"-:-." ·c··
':'.' ,"3183 . ·ERfilF:.· ·OAES·
··,··:·~.169.. ·~31?6.::·Ja!·1 .. ·,-327~:·:::·
'185t,~la8,·,a213;.·,
"
.
.. . ..
_oJ
•
• '• •
'.,~~.
_.•.• _._ ....... _..,_ ........ ,~--.~....;...~.----."-.;.. ~ ..--...:.--... ..:.;;;...._;:....: ... ,.... :._:..~~,l..;....~_;~;.
.
..........
'"
..c ....... •
c.
.'.
, 3200
, 3212 .
··9 .. ·~·322 0..·.: '-", ...,.:. . ~ .... -'"': .. ~ ... ,... ~-~.." ......- '" . -............ -..
~ 1707, 1813,.1971, lQ72, 1992, 200~·'
eo
.~
•••
-
. . . . . . . .'
~."-.
._
••
'":".-
:'-'-",:"-
- - ' : ' ' ' , . , ' ' ' . " " . ' ••
~.~.- :.~
•••
'Il: .........
~.
'. ,.~ . ,.... ,'"
~. . . .
.-
"
;:.: _,~.... ~~'_.,.~::.~._ . ~ . "L.~.< . _. ~,._:" . ,.... '... _.... :. ~::!:: . :.:;!~.::~!::; ~:;~::.~~::~~._~~.~~. . . _. _
.... _........ ;__;,~ . ~ _,,;~ .:~:~. ......;:;::;_L~_ ...~_: .....~ .. _;..~~~:;t·.:;.:~
3223
.'
........... ,
-
0'
8UFFOU
... , ,2-13·1'" a7·33·9-:21·39.· ·:2149, .. 2751., 27!i5 . -.-,
,2711,"2172, '2176:;;'2190~~zt96, 2797 '.
,
·· .. ·.... 3306·;
••.
. , 11~J, 1262, 1~87, 1488, 1501, 1522
, 1582, 1599, 2125 .. 2126, 2605, 2725
0861
....... .
3226
!293
.. --.--"
r: ".
;.::'..;' 319,. ... ' ""tOR.' 'IAF'3 . .
. ,'O!36 .. : ,~~C)7, '1~13"32~7
: .. :.:i:"·'''-3i%-:~·::··: ffOf-OftA·:-ri·AF·;·" 320-a· -- .. · ...
~...
3204
"OTORS
OAFE
3208
"OTORC' 0803 .
,3.21·3 " , ., HOtORD ...... ~. 0.008-~· .. . :.... ~.....
3222 ,.·BU,FF;.iH.OB~O
'
.... ,~ .... , '3H~,:'
NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A.
Z
0
-I
....-<:::>
POSTAGE WILL BE PAID BY
u
CONTROL DATA CORPORATION
Technical Publications Department
4201 North Lexington Avenue
Arden Hills, Minnesota 55112
,.-
/'
,r
FOLD
FOLD
,)
.
.!
c
~~-'::~
.CUT OUT FOR USE AS LOOSE -LEAF BINDER TITLE TAB
C~
c'
(I
L
c
c
c
c
C,'
c
CONTROL DATA
CORPORATION
.~
',!
,.'
8100 34th AVL SO., MINNEAPOLIS, MINN. 55440
PRINTED IN U.S.A.
"-" .
(.__ .)
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 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Modify Date : 2009:08:25 22:07:04-07:00 Create Date : 2009:08:25 22:07:04-07:00 Metadata Date : 2009:08:25 22:07:04-07:00 Format : application/pdf Document ID : uuid:10626031-3bac-4911-a99b-a560f5daaad9 Instance ID : uuid:ebf539f1-3c8b-4f82-a3e9-e6b6f8b517af Page Layout : SinglePage Page Mode : UseNone Page Count : 116EXIF Metadata provided by EXIF.tools