60220400E_SMM17_Program_Listings_PTR_Feb75 60220400E SMM17 Program Listings PTR Feb75

60220400E_SMM17_Program_Listings_PTR_Feb75 60220400E_SMM17_Program_Listings_PTR_Feb75

User Manual: 60220400E_SMM17_Program_Listings_PTR_Feb75

Open the PDF directly: View PDF PDF.
Page Count: 46

o
.
(~)
CONTROL
DATA®
SMM17
c)
CI
o
(--""1
lJ
CONTROL
DATA
CORPORATION
Program
Listings
PTR
CUSTOMER ENGINEERING MANUAL
REVISION
A
(9-20-67)
B
(9-15-70)
C
(4-12-73)
D
(5-1-74)
E
(2-4-75)
RECORD
of
REVISIONS
NOTES
Manual
released.
Information
complete
throue-h
SMM
17
Edition
2
o.
Information
complete
through
SMM17
Edition
2.3.
This
edition
obsoletes
all
previous
editions
Information
complete
through
SMM17
Edition
3.
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.1-1.
This
edition
obsoletes
all
previous
editions.
Address
comments
concerning
this
manual
to:
Pub
No.
60220400
~
Control
Data
Corporation
Technical
Publications
Department
4201
North
Lexington
Avenue
Arden
Hills,
Minesota'
55112
© 1967,
1970,
1973,
1974,
1975
by
Control
Data
Corporation
Pri"nted
in
United
States
of
America
or
use
Comment
Sheet
in
the
back
of
this
manual.
,..
ID
I
o
rtl
N
C(
u
:I
a:
e
,
'--......,.
("
C:.
" "
.......
,
'-
"
"
.....
,.
(" "
o
o
()
()
o
o
o
0001
0002
0003
0004
0005
0006
0007
·0008
0009
0010
Q011
0012
0013
0014
001S
(J016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
OD34
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
PTR004
0001
0002
n003
0004
0005
0006
0007
0006
0009
OOOA
OOOS
OOOC
0000
0042
&0220400 E
PAGE
1
DATEI
12/17/74
NAH
PTR004
12064
COPYRIGHT
CONTROL
DATA
CORP
1974
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• •
• .
..
. . . . . .
•
REVISION
RECORD
• • • • • • . .. .
..
. . . . . .
..
..
..
..
•
MODAYR
VERSION
WHAT
DONE
,
WHY
~
AND
WHO
DID
IT •
• •
• 032074 V
3.1
SYSTEM
RELEASED
•
..
CHANGED
SECTION
10
AND
STAR
l-OF
TAPE
AND
END-OF-TAPE
•
10
PUNCHES
TO
BE
VALID
ON
5,7,OR8
LEVEL
TAPE
..
•
111374
V
3.1-1
CHANGED
LEVEL
IDENTIFY
CODING
TO
FIND
PROPER
•
•
SECTIONS
TLO
•
•
112074
V
3.1-1
MODIFIED
PARITY
CHECK
ROUTINE
FOR
GRACEFULNESS
TlO·
• •
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
• •
ERROR
CODESeHEXIDECIMAL)
• •
1-
EXTERNAL
REJECT
ON
STATUS
REQUEST
• •
2-
INTERNAL
REJECT
ON
STATUS
REQUEST
• •
3-
EXTERNAL
REJECT
ON
DATA
INPUT
• •
4-
INTERNAL
REJECT
ON
DATA
INPUT
• •
5-
INCORRECT
EQUIPMENT
ADDRESS-RESTART
TEST
• •
6-
HORE
THAN
ONE
BIT
PUNCHED
IN
CONTROL
FRAME
• •
7-
ALL
10
LEVEL
CONTROL
PUNCHES
NOT
EQUAL
• •
8-
CONTROL
PUNCH
DID
NOT
HAVE
EVEN
PARITY
• •
9-
NO
PATTERN
COULD
BE
FOUND
FOR
THIS
CONTROL
PUNCH
..
•
A-
INTERRUPT
BUT
INTERRUPT
STATUS
BIT
NOT
SET
• • B-
IMPROPER
STATUS-SHOULD
BE
READY,
BUSY,
POWER
ON,
AND
EXIST
• •
C-
ALARM
AND/OR
LOST
DATA
• •
0-
UNIDENTIFIED
INTERRUPT
• •
E-
DATA
READ
WAS
NOT
DATA
EXPECTED
•
..
F-
FIRST
FRAME
WAS
NOT
ALL
ONES
• •
10-
INTERNAL
REJECT
ON
START
HOTION
FUNCTION
• •
11-
EXTERNAl
REJECT
ON
START
HOTION
FUNCTION
•
EQU
CONTROlel)
RETURN
SMM
CONTROL
ADDRESS.
EQU
STOPXeCONTROL+1)
ALL
STOPS
AND
ERROR
TYPEOUTS
EQU
TSEXITCSTOPX+l)
END
IF
TEST
PASS
EXIT
EQU
DAlINTCTSEXIT+1)
REQUEST
INTERRUPT
EQU
CLRINTeOATINT+l)
FAKE
CLEAR
INTERRUPT
ROUTINE
EQU
JUHPXCDATINT+2'
CHECK
SKIPSWITCHFOR
PARAM
ENTRY
EQU
GENRAN
CJUMPX+
1)
RANDOM
NUMBER
GENERATOR
EQU
TYPEOUTCGENRAN+l)
MESSAGE
TYPEOUT
ROUTINE
EQU
TTYBZYCTYPEOUT+l)
ROUTINE
TO
HAlT
TTY
NOT
BUSY.
EQU
HEXASCCTYPEOUT+2)
HEX
TO
ASCII
CONVERSION
EQU
OVRLAYCHEXASC+1)
OVERLAY
CALL
ROUTINE.
EQU
RELPOS(OVRLAY+l)
A/Q
RELA
TIVE
POSITION
TEST.
EQU
HAINL
eRELPOS+U
MANUAL
INTERRUPT
ROUTINE.
EQU
SETHASKeHAINL+53)
H
REGISTER
RESET
VALUE.
00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00049
PAGE
1
r
(
\...'.'
~~'
I
'--. ,.
~
1"
.
.-
(-
, ...
~.
\
\....
-_.
PTROO"
PAGE
2
OATEI
12/17114
~
0050 0043
EQU
ST
JP(
SE1HASK+U STOP/JU1P
PARAMETER
WORo~
00050 \
0051 0044
EQU
LASTVALUCSTJP+l)
HONITO~
AREA
LWA+1
00051
',..-_.'
0052
0045
EQU
LASTAOCST
JP+2»
AVAILABLE
LOAD
CORE
FWA.
00052
0053
0041
EQU
LDLCORE(LASTAD+2)
BANKO
LAST
AoOR
00053
f'
0054
0048
EQU
LOL1CORCLDLCORE+1J
BANKl
LAST
AODR
00054
"
0055
0049
EQU
INFCRH(LoL1COR+l.
BKO
SIZE.
MASK
SIZE.
'BUSY
SWITCH
00055 ......
,,'
0056
0056
EQU
SMHCNTCINFORH+13)
SHH
PA
f(A
t£TER
NORD.
00056
0051
006B
EQU
BITOOCSHHCNT+21)
XXXXXXXX
CONSTANT
TABLE
XXXXXXXX
00051
0058
0068
EQU
81TOCBITOO)
00058 r
0059
006C
EQU
BIT1CBITO+iJ
00059
\
".
0060
0060
EQU
BIl2e
81T1+1) 00060
0061
006E
EQU
B1
T3(BIT2+it
00061
0062
006F
EQU
8I
T4e
81T3+1)
00062
~
0063
0070
EQU
BIT5(81T4+1)
00063
,
006
.. 0071
EQU
81T6(0115+1)
00064
'-.
..
0065
0072
EQU
8IT7C8IT6+1)
00065
0066
0073
EQU
81T8(8IT1+1)
00066
,/.~,
0067
0074
EQU
81T9(8118+1)
00061
(
0068
0015
EQU
BIT10 C8119+1)
00068
'-.
-
0069
0016
EQU
BIT11
(81T1o+1)
00069
0070
0011
EQU
81112
CBIT11+1) 00010 ,r0.
0011
0018
EQU
81T13(81112+1)
00071
0012
0019
EQU
81
Ti4
(8IT13+1)
00012
0013
001A
EQU
8IT15
(8IT14+1)
00013
001,.
0018
EQU
HOOOO(8IT15+1)
00074
0075
007C
EQU
HFFFF
(HOOOO+U
00075
0016
0070
EQU
HOOOF
(HFFFf+U
00016
\,
0077
007E
EQU
HOOFOCHOOOF+l)
00071
0018
007F
EQU
HOFOO(HOOFO+l)
00078
0019
0080
EQU
HFOOO(HOFOo+1)
00019
I'
0080
0081
EQU
HOOFF
CHFOOO+1)
00080 I
0081
0082
EQU
HFFOO
CHOOFF+1)
00081 \..
0082
0083
EQU
·HFFFO
(HFFOo+U 00082
0083
0084
EQU
HOFFF
CHFFFO+U
00083
r'
0084
0085
EQU
HFFOF
CHOFFFH.
00084
0085
0086
EQU
HFOFF
(HFFOF+1) 00085 \
0086
0081
EQU
H 7FFF (HFOfF+1)
00086
0081
0088
EQU
H1
FDa
(H1FFF+1)
00087
0088
0089
EQU
H0180
CH1FOO+U
00088
(
0089
008A
EQU
H 0
07F
(H07 80+1)
00089
0090
0080
EQU
H2020
CHOD1F+U
00090
0091
0091
EQU
TSACTVIH2020+6)
TABLE
INDEX
TO
TEST
IN
CONTROL.
00091
0092 0092
EQU
TSFREQ(TSACTV+l) TEST.
FREQUENCY
TABLE
00092
i-'
0093
0060
EQU
CONSTtBITOO)
00093
\...
0094
0056
EQU
SHHPARCSHHCNTJ
0009,.
0095
0043
EQU
SJPARCSTJP)
00095
0096
0001
EQU
RANoOHCGENRANl
00096
C.~·
0097
oOOA
EQU
CONVERTCHEXASC)
00097
0098
0008
EQU
HESSAGCTYPEOUTJ
00098
0099
OODA
EQU
CONVCHEXASC)
00099
0100
0008
EQU
TYPECTYPEOUn
00100
OiOl
0004
EQU
TEHP(04)
00101
r
0102
0000
EQU
HANOINT
(MAINL)
00102
"'.......
~
r-"
\
60220400
E
PAGE
2
'---_.
(~'
'-_
...
,
c:
("
l~'
\
I'
-/
o
0,
o
o
o
('"
V
(-"
PTROO4
0103
0001
0104
POOOO
leo
A
0105
POOOl
5054
POO02
5230
POOO3
30,)"
0106
POOO,.
0011
0101
POO05
0008
0108
POO06
OOAl
0109
POO07
0002
0111
POOOS
5800
POOfl9
036,.
0112
POODA
5802
0113
POOOS
180E
P
P
0115
POOOC
0116
pooao
0117
0118
0119
POOOE
POOOF
P0010
0120 POOll
0121 P0012
0122
0000
COOO
0000 P
5402
1806
0011 P
0421
,.000
0123
012,.
0125
0120
0127
0128
0129
0130
0131
0132
0133
0134
0135
0130
0137 POOll 0002
0138
POO!1t
OOOF
0139
POOlS 0000
01,.0 P0016
C8FC
0141 P0017
G8EF
0142
POOlS
lCFJ
60220400
E
PAGE
3
EQU
PTROO4
JHp·
ALF
PARAOR
ADe
RETURN
ADC
EQUIP
HUM
tNTl
HUH
INITIAL
RTJ
INIT1
RERUN
RTJ·
STWOP
JHp·
INPARA
NUH
$0
LOA
PTeU
RERUN
3,PTR004
CNTWRO-l
INITIAL
SAl
S2
INPARA
START
=XPTROOIt
DATES
lZ/17114
FHA
PARAH
INPUT
PARAHETERS
RTJ-
CSTOPX)
INPUT
PARAHETERS
STOP
JHp·
INPl
ORG
•
NUM
$0421
STOP
10
CNTHRO
NUH
$4000
CONTROL
WORD
•
CONTROL
WORD
..
BITS
•
14
RUN
TEST
WITH
6
LEVEL
PATTERNS
..
13
RUN
TEST
WITH
7
LEVEL
PATTERNS
..
12
~UN
TEST
WITH
5
LEVEL
PATTERNS
•
ONLY
ONE
BIT
HAY
BE
SET
IN
THIS
GROUP
•
•
• 11
=1
RUN
TEST
IN
INTERRUPT
HODE
• = 0
RUN
TEST
IN
CHARACTER
HODE
• 10
=1
DELAY
BETWEEN
CHARACTERS
(PARAMETER
DELRO)-CHARACTER
HOD
•
-BIT
11
OF
CONTROL
WORD
=
o.
..
=0
NO
DELAY
BETWEEN
CHARACTERS.
•
..
INT11
NUH
DELRO
NUM
SF
NUH
0
INPl
LOA·
STA·
JHP·
2
INTil
INTi
CINPARA)
INTERRUPT
LINE
1
HAXIHUM
DELAY
BETWEEN
FRAHES-CHARACTER
HOD
00103
00104
00105
00106
00107
0010S
00109
00111
00112
00113
00115
00116
00117
00116
00119
00120
00121
00122
00123
00124
00125
00126
00127
00128
00129
00130
00131
00132
00133
00134
00135
00136
00137
00136
00139
00140
00141
00142
PAGE
3
PTR004
o
144
POOl
CJ
C
8E
0
0145
POOIA B06C
01ft6
P001B
0115
0147 P001C
C8E9
0148
P0010
AOOO
POOlE
FFao
0149
POOIF
B012
0150
P0020
010E
0151
P0021
C8E5
0152
P0022
OCOF
0153
P0023
0133
0151t
P002,.
aOFE
0155
P0025
OFC1
0156
P0026
18FC
0157
P0027
0814
0158
P0028
0842
0159
P0029
2060
0160
P002A
6000
POOZB
0102
0161
P002C
0822
0162
P0020
C201
0163
P002E
0111
0161t
P002F
6800
POOlO
0260
0165
P0031
E804
0166
P0032
ca04
0167
P003l
5404
0168
POOl4
02Bl
P
0169
POOlS
1808
0170
POOl6
ClOl
0171
POOl7
0822
01'72
POOl8
B8FB
0173
POOl9
0103
0174
POOlA C8FQ
0175
POOlB
OOFO
0176
POOlC
6201
0177
POOlO
caD,.
0178
POOlE A076
0119
POOlF
0104
0180
POOltO
COOO
POOlt1
0278
P
0181
P0042
6800
POOltl
FFCl
OU52
P0044
5800
P004S
01A8
0183
P0046
5aoo
P0047
01BO
0184
P0048
0111
0185
POOItCJ
18FC
018&
P004A
6812
0181
P0048
C8C6
0188
P004C
0842
0189
POOltO OFCI
60220400
E
START
STARTl
START2
START]
START4
RINT
STARTS
CNTRLA
CNTRL
LCOOO
LeOOl
PAGE
It
LOA·
EOR-
SAN
LOA·
.
AND
EOR-
SAZ
LOA·
ENQ
SAH
INQ
ALS
JHp·
TRQ
CLR
MUI-
ADD
TRA
LOA-
SAN
STA
INT1
CONST+l
START1-·-1
EQtJIP
=NSFF80
CONST+7
START4-·-1
INTi
15
ST
ARTl-·"l
-1
1
START2
A
Q
COtJST+2
=NSI02
Q
1.a
START5-·-1
INTFLG
Loa·
EQUIP
LOA·
INT1
RT
J-
«OATINn
AOC
INPROC
JHp·
CNTRLA
LDA-
1,
Q
TRA
Q
EOR·
RINT
SAl ,CNTRLA-·-l
LOA·
RINT
INQ
-2
STA-
l,Q
LOA·
CNTWRO
ANO-
CONST.ll
SAZ
CNTRL-"-1
LOA
=XCHECK+1
STA
RE
TURN
RTJ
STHOTION
RTJ
STATUS
SAN
LC001-"-1
JHp.
LeoDa
STA· ,
LC0018
CNTHRO
Q
LOA·
CLR
ALS
1
DATEI
12/17114
CHECK
INTERRUPT
LINE
IS
THIS
READER
ON
LOW
SPEED
HA~8E
NOW
CHECK
EQUIP
AODR
IS
THIS
READER
ON
LOW
SPEED
NO
TRANSLATE
INTERRUPT
LINE
BIT
IN
A
TO
INTERRUPT
LINE
NUMBER
IN
Q
SUlLO
ADDRESS
WHE~E
PROCESSOR
ADDRESS
WOULD
BE
STORED
IF
THIS
INT
LINE
WERE
SELECTED
YES
CLEAR
FLG-NO
OTHER
STATION
ON
THIS
LINE
REQUEST
INTERRUPT
LINE
FROM
SHM
CONTINUE
YES
DID
THIS
TEST
ALREADV
SELECT
THIS
LINE
NO
YES
LOAD
CONTROL
WORD
READ
IN
INTERRUPT
HODE
NO
CHECK
FOR
STOP
HOTION
IF
SO
START
HOTION
READ
ONE
FRAHE'
BLANK
FRAHE
YES
LOOP
BACI(
SAVE
DATA
00144
00145
0014&
00147
00148
00149
00150
00151
00152
00153
00154
00155
0015&
00157
00158
00159
00160
00161
00162
0016l
00164
00165
00166
00167
00168
00169
00110
00171
00172
00173
00171t
00115
0017&
00171
00178
00179
00180
00181
00182
00183
00181t
00185
0018&
00181
00188
00189
PAGE
4
c
~
I
'~
......
.
~
'.
,,..
\
'
.....
_.
('
\
........
c
1""'--'
\"
..
()
/----\
( )
"---./
0.
PTR004
PAGE
5
OATEI
12/17/74'
(")
'--/
0190 P004E 0121 .
SAP
1 SKIP
IF
NOT
8
LEVE.
TAPE
00190
0191 P004F
1806
JHp·
LGOO1A
00191
C)
0192
POO50
0001
INQ
1 00192
0193
POD51
OFCl
ALS
1 00193
0194
P0052 0121
SAP
1 SKIP
IF
NOT
7
LEVEL
TAPE
00194
0195
P0053
1802
JHP"
LC
a01A
00195
r-"',
L)
0196
PODS"
0001
INQ
1
00196
0197
POOS5
Ce07
LC001A
LOA-
LCOOlB
00197
0198
POOS6
BA07
EOR· LCTQ01,Q
GET
HASK
00198
0199
POOS7
0108
SAZ
LCOO2"--1
00199
0200
POO58
OAOF
EHA
SOF
NO
IT
1SNT
ERROR
"'ERR
F 00200
('I
\...J
0201
POOS9
5800
RTJ
ERROR
00201
POO5A
ODFB
0202
POOSB
18EA
JHp·
LCOOO
00202
0203
POOSC
0000 lCOOIB
NUH
0
00203
""-',
l)
020"
POOSD
DOFF
LCTOOl
NUH
SFF
00204
0205
POOSE
007F
NUH
$7F
00205
0206 P005F 001F
NUH
SlF
00206
,..----.-,
(
'I
"'-../ 0208
POO60
5800
LCOO2
RTJ
STATUS
READ
ONE
FRAME
00208
POO61
01A3
0209
POO62
0822 lCRET
TRA
Q
00209
r-"
L 0211
POD63
B06B
LCOI0
EOR-
CONST
00211
0212 P006 .. 0101 SAl
LC011~·-1
SECTION
ONE
ZIGZAG
PATTERN.
00212
0213
POO65
1828
JHP" LC020
NO
00213
0214 P0066 081'" LCOtl
TRQ
A
RESTORE
CHARACTER
0021
...
r'\
V 0215
POO67
0842
CLR
Q
FOR
ZIG-ZAG
PATTERN
00215
0216
POOo8
...
800
STQ
COMPATEN
CLEAR
COMPLEHENT
PATTERN
SWITCH
002t6
P0069
02AS
c~
0218
......
LEVEL
ONE
ZIGZAG
00218
0
o 0220
POO6A
6800 LC012
STA
LCSEC
00220
P006B 0182
0221
POO6C
OFC8
ALS
8 00221
o
0222
:POO60
6800
STA
SeElt
STORE
SECTION
NUHBER
00222
PD06E
DOFC
0223
P006F C800
LDA
CNTWRO
00223
POO70
FFAl
60220400
E
PAGE
5
c
PTROO
..
022,. POO7l
OFCl
0225
POct7.2
012 ..
0226
P0073
COOO
P007 .. 030F P
0227 P0075 E081
0228 P0076 t80A
0229
POO77
UFC1
LC01J
0230 P0078 0124
0231 P0079
COOO
POO7A
0311 P
0232
P007e
OC7F
0233
P007C
1804
.
023
.. P007D
COOO
LC014
POD7E
0313 P
0235
PD07F
OC1F
0236
P008D 4800
lCOl5
POD8l 0289
0237
P0882
G800
.
POOSl
~OFF
0238
pooe4
5800
PD08S 015 ..
0239
•
0240 P0086 5800
POO87
OOEC
0241 P0088 5800 lC01G
POO89
0264
02 .. 2
POO8A
5800
P008B 011B
0243
POOSC
18FB
02~5
P008D
OA02
LC02a
0246
P008E 0874
0247
P008F 0101
02 .. 8
POG90
1806
60220400
E
PAGE
6
ALS
1
SAP
LC013 .. • .. 1
LOA
:XZZ8
LOQ-
HOOfF
JHp·
LC01S
ALS
1
SAP
LC01
....
·-l
LOA
=XZZ7
ENQ
S7F
JHp·
lC01S
LOA
=XZZ5
ENQ
$1F
STQ
PPEXL
STA
LEVELCT
RTJ
SPACE
OVER
RTJ
RES:r
WD
RTJ
GENPATT
RTJ
CHECKREAO
JHp·
LC016
ENA
2
EAQ
A
SAl
LC021-·-1
DATEI
12/17/74
8
LEVEL
·TAPE
YES
DOFf
7
LEVEL
TAPE
YES
NO
MUST
BE
5
lEVEL
TAPE
SPACE
OVER
THE
LEVEL
NUMBER
SHOULD
BE
')
HORE
PUNCHES
RESET
WORDS
CHECK
AND
READ
REPEAT
CYCLE
NOT
DONE
SECTION
TWO
COMP
ZIGZAG
PATTERN
JHp·
LCO
.. O .
NO
00224
00225
80226
00227
00228
00229
00230
00231
00232
00233
00234
00235
00236
00237
00238
00239
002"0
00241
00242
00243
00245
00246
00247
00248
PAGE
£»
"
I
,,--,
I
(-~
....
"
.....
r--
" 0
(--'
"
,-
(
I
"
1"
\
('--
"-,
,r
II
"
,-
"- , .
,r-
/
(j
,,'
.....
(,--)
I)
C)
o
C)
o
o
C)
(J
PTR004
0250
......
0252 P0091 0814 LC021
0253 P0092 0802
0254
P0093 4800
P0094
027A
0255 P0095 1804
0251
P0096
OA03
0258 P0097 0874
0259
P0098 0101
0260 P0099 1837
0262
0264
PQ09A
0814
0265 P009B 0842
0266
P009C 4800
P0090 0211
0268 P009E 6800
POG9F
014E
0269
POOAO
OFC8
0270
POOAl
6800
POOA2
00C8
0271
POOA3
C800
POOA4
FF60
0272
POOA5
OFC1
0273
POOA6
0125
0274
PODA7
COOO
POOA8
0315
P
60220400 E
LC040
•••••
LC041
LC042
PAGE
1
LEVEL
TNO
TRQ
A
SET
Q
STQ
COHPATEN
JHp·
LC01Z
ENA
EAQ
SAl
JHP·
LC080
LEVEL
THREE
TRQ
A
CLR
Q
STQ
COHPATEN
STA
LCSEC
ALS
8
STA
SEER
LOA
CNTHRO
ALS
1
SAP
LC043-·-1
LOA
=XPY8
DATE-
12/17/74
COMPLEHENT
ZIGZAG
PATTERN
RESTORE
CHARACTER
COHP
ZIG-ZAG
PATTERN
SET
COHPLEHENT
PATTERN
SHITCH
USED
LEVEL
ONE
ROUTINE
NO
CK
FOR
HATCHING
SECTION
10
SECTION
THREE
PYRAMI
D
PATTERN
RESTORE
CHARACTER
CLEAR
COMPLEMENT
PATTERN
SHITCH
STORE
SECTION
NUHBER
STORE
SECTION
NUHBER
8
LEVEL
TAPE
YES
00250
00252
00253
00254
00255
00251
00258
00259
00260
00262
00264
00265
00266
00268
00269
00270
00271
00272
00273
00274
PAGE
7
'
........
'
~.~
(,
,
...
········0'
PTROO,.
PAGE
8
DATEI
12/17/74
0275
PODA9
E081
LDQ-
HOUFF
00275
0276
POOAA
&825
STA4
LCLV8
SET
LEVEL
8
SNITCH
00276
0277
POOAS
180C JHP4 LC045 00277
0278
POOAC
0842 LC043
CLR
Q
NOT
LEVEL
8
SO
CLEAR
LEVEL
8
SWITCH
00278
0279
POOAD
4822 STQ·
LCLV8
00279
0280
POOAE
OFC!
ALS
1 00280
(}281
POOAF
0124
SAP
LC044-·-1
7
LEVEL
TAPE
00281
0282
POOBO
COOO
LOA
=XPY7
YES
00282
POOB1
0317 P
0283
POOB2
OC7F
ENQ
S7F 00283
0284
POOB3
1804
JHp·
LC045 0028,.
0285
POOS4
COOO
LC044
LOA
=XPY5
NO
HUST
BE
LEVEL
5
TAPE
00285
PODB5
0319 P
0286
POOR6
OC1F
ENQ
SlF
0028&
0287
POOS7
4800 LC045
STQ
PPEXL
00287
PDOB8
0254
0288
POOSq
&800
STA
LEVELCT
00288
POOBA
00C8
0289
POOBS
5800
RTJ
SPACEOVER
SPACE
OVER
THE
9
REHAINING
LEVEL
CONTROL
00289
POOBC
011'0
0290 •
PUNCHES
00290
02CJl
POOFJD
5800
RTJ
RESTND
RESET
WORDS
IN
GENERATE
PATTERN
ROUTINE
00291
POOBE
00B5
02CJ2
POOBF
5800
LC04G
RTJ
GENPATT
GENERATE
ONE
FRA"E
OF
THE
PYRAHID
PATTERN
002CJ2
POOCD
0220
0293
PODCl
E800
LDQ
SECTENDSW
00293
PODC2
0248
02CJ4
POOC3
0146
SQZ
LC047-4
-1
LAST
FRAHE
OF
CYCLE
0029,.
02CJ5
POOC4
AOOO
AND
=N$7F
YES
CORRECT
GENERATION
ERROR
FROM
00295
POOCS
007F
r·
..
··
0296
POOC6
E800
LOQ
COHPATEN
GENPATT
ROUTINE
00296
PODC7
0247
02CJ7
PODC8
0143
SQZ
LC047-:I'--1 .
COHPLEHENT
PATTERN
00297
0298
PODC9
E806
LDQ·
LCLV8
YES
00298
0299
POOCA
0141
SQZ
LC047-4
-1
LEVEL
8
TAPE
00299
0300
pooce
8072
AOD-
CONST.7
YES
ADO
LEVEL
8
TO
PATTERN
0080 00300
0301
POOCC
5800 LC047 RTJ
CHECKREAD
CHECK
AND
READ
FRAHE
00301
POOCD
0009
0302
PODCE
l8FD
JHp·
LC046
REPEAT
CYCLE
NOT
DONE
00302
0304
PODCF
0000
LCLV8
HUH
0 00304
('
.'
....
0306
POODO
DA04
LC080
ENA
CK
FOR
HATCHING
SECTION
10
00306 '
...
-'
60220400
E
PAGE
8
(
o
"r-'
,
u
o
o
o
c
o
0-
o
0'
o
o
PTR004
0307
PODOl
0874
0308 P0002 010 1
0309 P0003 1806
0311 •••••
0313
PoOO~
0814
LCOSl
031~
POOOS
0802
0315 P0006 4800
P0007
0237
0316 P0008
18C5
0318
POOD9
DADS
0319
POOOA
0874
0320
POODS
0101
0321
POODC
181F
0323
0325
POOOO
OS14
0326
POOOE
6800
POODF
010E
0327
POOEO
OFCS
0328
POOEl
6800
POOE2
0088
0329
POOE3
f800
POOE4
FF2D
0330
POOES
C081
60220400 E
LC100
•••••
LC101
PAGE
9
DATE.
12/17/74
EAQ
A
SAZ
LC081-·-1
SECTION
FOUR
COHP
PYRAMID
PATT
JHp·
LC100
'
NO
LEVEL
FOUR
TRQ
A
SET
Q
STQ
COHPATEN
JHP·
LCO~2
ENA
EAQ
SAl
JMp·
LC20a
LEVEL
FIVE
TRQ
A
STA
LCSEC
ALS
8
STA
SEER
LOQ
CNTWRD
LOA-
HOOFF
COHPLEMENT
PYRAHID
PATTERN
RESTORE
CHARACTER
SET
COMPLEMENT
PATTERN
SWITCH
USE
THE
LEVEL
3
ROUTINE
TO
CHECK
PATTERNS
CI(
FOR
HATCHING
SCCTION
IO
SECT
FIVE
ALL
ONES
I
ALL
ZEROS
NO
ALL
ONES
AND
ALL
ZEROS
RESTORE
CHARACTER
STORE
SECTION
NUHBER
00307
00308
00309
00311
00313
00314
00315
00316
00318
00319
00320
00321
00323
00325
00326
00327:
00328
00329
00330
PAGE
9
PTROOIt
0331
POOE6
OFAI
0332
POOE7
0171t
0333
POOE8
OFltl
0334
POOE9
OFAl
0335
POOEA
0171
0336
POOES
OFlt2
0337 POOEt 6800
POOED
02lF
0338
POOEE
5800 '
POOEF
OOEA
0339
POOFO
OAFO
03ltO
POOF1
6800
POOF2
0230
0341
POOF3
OAFS
031t2
POOflt
6800
POOF5
0239
031t3
POOF6
5800
POOF7
0224
031t4
POOF8
5800
POOf'9
OOAD
0345
POOFA
18FS
0347
POOFS
OA06
0348
POOFC
0874
0349
POOFO
0101
0350
POOFE
l81F
0352
0354
POOFF
0814 .
0355 POI00 6800
POIOt
OOEC
0356 POI02 OFce
0357
P0103 6800
POl04
0066
0358 P0105 E800
POI06 FFoe
60220400
E
' LCI02
LCI03
LC200
•••••
LC201
PAGE
10
QLS
SQH
ARS
QLS
SQH
ARS
STA
RTJ
ENA
STA
ENA
STA
RTJ
RTJ
.JHp·
ENA
EAQ
SAl
1
LCI02-·-1
1
1
LC1D2-·-1
2
PPEXL
SPACEOVER
-2
GENOIt
-10
GENal
GENOl
CHECKREAD
LC10l
JHp·
LC800
LEVEL
SIX
TRQ
A
STA
LCSEC
ALS
8
STA
SEER
LOQ
CNTHRD
DATEI
12/17/74
8
LEVEL
TAPE
NO
7
LEVEL
TAPE
NO
USE
5
LEVEL
T~E
STORE
EXTRACT
VALUE
GENERATE
ONE
FRAHE
OF
THE
PATTERN
CYCLE
REPEAT
NO
DONE
WITH
CYCLE
NO
OK
FOR
HATCHING
SECTION
10
SECTION
SIX
C9,36
PATTERN
C9
-36
PATTERN
RESTORE
CHARACTER
STORE
SECTION
NUMBER
00331
00332
00333
00334
00335
00336
00337
00338
00339
00340
00341
00342
00343
00344
00345
00347
00348
00349
00350
00352
00354
00355
00356
00357 .
00358
PAGE
10
/.
".
(,
C
C
(~
1.......
~
~.
i--"'"
~
..
~
(
'-'"
('
i-""
\".
I"-~"
(~.
I
I,
,
(
,
c
,,---.....,
( .
,,-
....
,
u
(j
,,--.,
(
".,
~
o
PTROQ4
0359
POI07 C081
0360
POI08
OFA!
o 0361 POlO'} 0174
0362
P010A
OF41
0363
P010e
OFAl
0364
P010C 0171
0365
POI00
OF42
Ol66
POI0E 6800 LC202
P010F
01FO
0367
POI10 5800
POll1
00C8
0368
P0112
OAF8
0369
P0113 6600
POtt4
022F
0370
POll5
0901
0371 P0116 6800
POl17 0220
0372 P0118 5800 LC203
POll9
0217
0373
POllA 5800
P011e
008B
0374
POllC
18FB
o
c
0376
P0110
OA07
LC800
0377
POIIE
0874
0378
P011F 0101
0379
POllO
1831
0380 P0121 '*800 LC801
P0122
ooce
0381
POll3
5800
P0124
00B5
0382
P0125
586A
0383
POll6
E800
P0127
FEOE
0384
P0128
0806
0385
P0129
COOO
POllA 0000 P
0366
POl2B 5402
0387
P01ZC
1803
0388
POll0
0404
C)
0389
POl2E 0000
PAssel
o 602Z0400 E
PAGE
11
LOA-
HOOFF
QLS
1
SQH
lC202---1
ARS
1
QLS
1
SQH
LC202---l
ARS
2
STA
PPEXL
RTJ
SPACEOVER
ENA
-7
STA
GENC3
INA
1
STA
GENC4
RTJ
GENC9
RTJ
CHECKREAO
JMP- LC203
ENA
·7
EAQ
A
SAZ
LceOl---l
JHP-
LCENO
STQ
LCSEC
RlJ
SPACEOVER
RTJ4
CLR
LDQ
EQUIP
RAO-
PASSCl.
LOA
=
XPTR004
RTJ-
CSTOPX)
JHP-
LC802
NUH
$040'*
NUH
0
OATEI
12/17/7'*
8
LEVEL
TAPE
NO
7
LEVEL
TAPE
NO
USE
5
LEVEL
TAPE
STORE
EXTRACT
VALUE
RESTORE
COUNTERS
GENERATE
ONE
FRAME
CHECK
AND
READ
ONE
FRAME
CK
FOR
END
OF
TAPE
CODE
END
OF
TAPE
PUNCH
NO
ERROR
COULD.
NOT
FIND
THIS
LEVEL
PUNCH
10
LEVELS
OF
8
PUNCHES
IS
END
OF
TAPE
CLEAR
INTERRUPTS
PASS
COUNT
END
OF
TEST
STOP
STOP
10
00359
00360
00361
00362
00363
00364
00365
00366
00367
00368
00369
00370
00371
00372
00373
00374
00376
00377
00378
00379
00380
00381
00382
00383
00384
00385
00386
00387
00388
00389
PAGE
11
PTR004
0391 P012F
OAF9
LC80Z
0392
POll0
6805
03C}3
POll1
5600
LC80lA
P013Z 0130
0394
P0133
0802
Ol95
POll4
COOO
LT802
POIJS 0000
0396
P0136 0101
Q3C}7
POl37
18F9
0398
POll8
OA40
LC80lB
0399
P0139
S64A
0400
POll
A
1802
0401
POllS
180B
0402 POl3C C075
ET
0403
POll0
5846
0404
POl3E
1802
0405 P013F
t805
0406
P0140 5800
ET5
P0141
FECA
0407
POl42
1800
P0143
FEFc}
0408
POt44
1800
ET6
P0145
FEFE
040!)
P0146
COOO
ETl
POl47 0000 P
0410
P014e
5403
0411
P0149
C015
ET2
0412
P014A
5406
0413
P014B
1802
0414
P014C
1803
0415
P0140
5800
ET3
P014E
FEBD
0416 P014F
1800
ET4
P01S0
FEEC
0418 POl51
OA09
LCENO
0419
P01S2
5603
0420 P01S3 1800
P01S4
FEFl
0422
P0155
0000
ERROR
0423
P0156
6814
0424
P01S7
5838
0425
P01S8 C800
P0159
0095
&022.0400 E
PAGE
12
ENA
-6
STA· L T 802+1
RTJ
DELM
RAO·
l T802+1
LOA
=NO
SAZ
.
LC802B-·-l
JMP"
LC802A
ENA
$40
RTJ"
JUMP
JMP·
ET
JMP· ETl
LOA-
CONST+l0
RTJ·
JUMP
JMP"
ET5
JMp·
ET6
RTJ
INPARA
JMP
CNTRLA
JMP
CNTRL
LOA
=XPTR004
RTJ-
nSEXIT)
lDA-
CONST+I0
RTJ-
(JUHPX)
JHp·
ETl
JHp·
ET4
RTJ
INPARA
JMP
ENA
9
RTJ·
ERROR
JHP
LCOOO
HUH
$0
STA·
SEER
RTJ·
CLR
LOA
LeCNT
CNrRLA
DATEI
12/17/74
PTCZ
HAS
6
HS
BEEN
DELAYED
NO
YES
REPEAT
TEST
YES
NO
CHECK
FOR
RE-ENTRY
OF
PARAMETERS
YES
NO
RE-ENTER
PARAMETERS
DONE
RETURN
TO
SHH
WITH
BIAS
IN A
CHECK
FOR
RE-ENTRY
OF
PARAHETERS
RE-ENTER
PARAMETERS
DO
NOT
RE-ENTER
FARAMETERS
REPEAT
TEST-FREQUENCY
NOT
ZERO
NO
PATTERN
COULD
BE
FOUND
FORTH
S
CONTROL
PUNCH
RETURN
ERROR
ROUTINE
CLEAR
INTERRUPTS
00391
003c}2
00393
00394
00395
00396
00397
00398
00399
00400 .
00401
00402
0040l
00404
00405
00406
00401
00408
0040c}
00410
00411
00412
00413
00414
00415
00416
00418
00419
00420
00422
00423
00424
00425
PAGE
12
/
I
(
\
.......
,.
o
u
o
PTR004
042& P01SA
OFC8
0427
POiSa
880F
.~-
"~I
v
0428
P015C
G80E
0429
P015D C8F7
0430
P01SE
6800
0431
P015F C043
c··
0432
P01&0 A074
0433
POISl
0114
0'+34
P0162
Ca09
0435
POl&3
9000
POl&4 0000 P
u 043&
PD1&5
660&
0437
POl66
0844
0438
POlG7
5402
0 ..
39
POl68
1806
0440 P01&9 0408
0441
P01GA
0000
0442
P01GB
0000
04
.. 3 P016C 0000
c
04"
P0160
0000
0,.,.5
P01&E
COOD
P016F 0408
04 ..
6P0170
68F8
0
....
7
P017l
5829
0448
P0172
1CE2
o
o
o
C
'"
)
C~.
&0220400 E
CI
C)
PAGE'
13
ALS
8
ADO-
SEER
STA-
SEER
LOA-
ERROR
STA.
RETAOR
LOA-
STJP
ANO-
CONST+9
SAN
CHER1---1
LOA·
RETAOR
SUB
a:XPTROO4
STA·
RETAOR
CHERI
CLR
A
RTJ-
(STOPX)
JHP-
E1
10
NUH
$0408
SEER
NUH
$0
RETADR
NUH
$0
CHFRAH
NUH
0
CHREAD
NUH
0
E1
LOA
=NS
.. 08
STA- ID
RTJ-
SEL
JHP-
(ERROR)
DATEI
12/17/74
BIAS
RETURN
ADDRESS
NO
STOP
10
SECTION
I
ERROR
RETURN
ADDRESS
.
EXPECTED
FRAHE
READ
SELECT
DATA
INTERRUPT
EXIT
200
0042&
00427
00428
00429
00430
00431
00432
00433
00 ..
34
00435
00436
00437
00438
00439
00440
00441
00442
00443
00 .. 44
00445
00446
004
.. 7
00448
PAGE
13
PTR004
PAGE
14
0450
P0113 0000
RESTHo
NUH
0
0451 P0114 0842 ClR Q
0452
P0175
CEOD
LOA-
CLEVELCT),Q
0453
P011& 6800
STA
HORo
P0111
0191
0,. 5,.
P0178
6800
STA
HORO+1
P0119
0190
0,.55 P011A 0001
INQ
1
0,.56
P017a
CE07
LOA-
CLEVELCT)
,Q
0457
P017C 6800
STA
HORO.2
P0170
0180
0458
P011E 080,.
SET
A
0459
P017F 6800
STA
PPSH
POISO
0188
0460
PDl8l
lCFl
JMP-
(RESTWO)
0461
P0182 0000
LEVELCT
NUH
0
0,.63
P0183
0000
JUMP
NUM
a
046,.
P0184
018,.
SWS
JUMP1---1
0,.65
P0185
A043
ANO-
STJP
0466
POl86
0112
SAN
JUMP1---1
0467
P0187 08Fe
RAO-
JUHP
0,.68
P0188
lCFA
JHp·
CJUMP)
0469
PD189 6805 JUHP1 STA- JUHP3 .
0470 P018A 5401;
RTJ-
(JUMPX)
0471 POiSS
1602
JHp·
JUMP2
0472
P018C
oaF6
RAO-
JUMP
0473
P0180 lCF5
JUMP2
JMP- (JUHP)
0,.15 P01SE 0000 JUHP3
NUH
0
60220'+00 E
DATEI
12/17/7,.
RESTORE
WORDS
IN
GENERATE
PATTERN
ROUTINE·
RESTORE
WORD
AND
WORD+1
RESTORE
WORO+2
EXIT
CHECK
STOP/JUMP
WORD
FOR
JUMP
A =
JUHP
HASI(
BIT
NOT
SET
IN S lOP/JUHP
WORD
SAVE
JUMP
HASI(
JUMP
SWITCH
SET
YES
NO
EXIT
00450
00451
00,.52
01),.53
00,.5,.
00,.55
00,.5&
00,.57
00458
00459
00,.60
00461
00,.63
0046,.
00465
00,.66
00467
00468
00469
00470
00471
00472
00473
00475
PAGE
14
( ,
\..
...
('~
''-.
...
-.,
r
\....
(-,
\.
~
I \ ,
(--"
"-
..
,
~
I
\
\..
..
r--
f'"
\
'-
,-r'
to
/'
o
u
o·
PTROOlt
0477 P018F 0000
0478
P0190 E800
c PtJ191 'FE14
0"79
POl9Z C800
P0193
00A8
0480
P0194
0102
0481 P019S
OA02
0482
POl96
03FE
Olt83
P0197
DAltO
Olt8lt
P0198
03FE
C~·
01t85
P0199
lCFS
C:
0467
P019A 0000
0488
POi98
E800
POlge
FE69
0489
POl90
caDO
[ POl9E
OOAO
0490 POl9F 0102
0491
POIAO
OAOlt
Olt92 POIAI 03FE
0493
POIA2
OA20
Olt94 POIA3 03FE
01t95
POIA4
0400·
0496
P01AS
lCF4
c
c'
60220400
E
c
o
PAGE
15
CLR
HUH
D
lOQ
EQUIP
LOA
INTHODE
SAl Z
ENA
2
OUT
-1
ENA
$40
OUT
-1
JHp·
(CLRt
SEL
NUH
0
LDQ
EQUIP
LOA
INTHODE
SAl 2
ENA
4
OUT
-1
ENA
$20
OUT
-1
EIN 0
JHp·
(SEL)
DATEI
12/1717
..
YES,
CLEAR
INTERRUPTS
INTERRUPT
HOOE
STOP
HOTION
SELECT
DATA
INTERRUPTS
YES,
SELECT
DATA
INTERRUPT
INTERRUPT
HOOE
START
HOTION
.
00477
001t78
00479
00480
00481
00482
001t83
00lt8lt
001t85
00487
00486
00lt89
00490
00491
00492
00493
00491t
00'+95
00496
PAGE
15
PTR004
PAGE
16
0498
POlA&
0000
0499
P01A7
&6C4
0500 P01A8
5800
CHECKREAD
NUH
0
STA·
CHFRAHE
RTJ
STATUS
STA·
CHREAD
EOR'"
CHFRAHE
SAN
CH02-"-1
P01A9 0058
0501
P01AA
&8C2
0502
P01AB
B6CO
0503
POlAC
0116
0504
POlAD
C800
CHOl
LOA
SECTENDSW
P01AE
Ol5F
0505
P01AF
&827
0506
P01S0 0101
0507
P01Bl
58Cl
0508
P01B2
lCF3
0510
P01Bl
C323
CH02
0511
POla4
0112
0512 P01S5
OAOE
0513
P01B6
1618
0514
POlS7
C8B5
0515
P01B8
&820
0516
P01B9 9800
P01BA
0033·
0517 P01BB 0822
0518 P01BC
78BO
0519
P01BD
0102
0520 P01SE
OA08
0521
P01!3F
180F
0522
POtCO
OFEl
CH03
0523
P01Cl
0131
0524
P01C2
18FD
0525
POlC3 A087
0526
P01C4 0102
0527
POlC5
OAO&
0526
•
0529
P01C6
1808
0530
P01C7 C811
0531 POlC8
&800
P01C9
FFA3
as
32
POlCA
5800
POlcn
Ol7A
0533
POlCC
1800
P01CD
FE94
0535
POtCE &809
CH04
0536
P01CF
58aF
0537
POlDO
C807
0538 P01Dl
OC10
0539
P01D2 F896
60220400
E
STA·
CH1STHO
SAl 1
RTJ·
~ESTHD
JHP"
(CHECKREAD)
LOA.
CHlSTWD
SAN
2
ENA
$E
JHp.
CH04
LOA"
CHREAO
STA·
SAVECH
SUB
LCSEC
TRA
Q
SPA"
CHREAD
SAZ
2
ENA
S8
JMP"
CH04
LLS
1
SAM
1
JHp·
CH03
ANO-
H7FFF
SAl 2
ENA
$&
JHptL
CHait
LOA"
SAVECH
STA
CHREAD
RTJ
SEND
JHP
LCRET
STAtL
SAVE
RTJtL
CLR
LOA.
SAVE
ENQ
$10
ADQ·
10
OATEI
12/17/74
CHECKAND
READ
A :
THE
NEXT
FRAHE
TO
BE
READ
AND
CHECK
READ
ONE
FRAME
STORE
FRAHE
JUST
READ
FRAHE
EQUAL
WITH
FRAHE
HAN
TEO
YES
.
SAVE
THE
END
OF
PATTERN
CYCLE
SWITCH
FOR
NEXT
PASS
IUSE
AS
1ST
FRAHE
OF
CYCLE)
00498
00499
00500
00501 .
00502
00503
00504
00505
0050&
00507
00508
NO
THIS
HAY
THE
FIRST
HaRD
OF
CYCLE
AND
00510
00511
ERROR-DATA
READ
HAS
NOT
EXPECTED
DATA
00512
00513
PUNCHES
00514
.00515
00516
00517
00518
00519
00520
ERROR-CONTROL
PUNCH
DID
NOT
HAVE
EVEN
PARI
00521
00522
YES
00523
00524
CLEAR
BIT
15 00525
00526
ERROR-HORE
THAN
ONE
BIT
PUNCHED
PER
FRAME
00527
CONT~OL
PUNCH
00528
00529
00530
00531
CHECK
FOR
END
OF
SECTION
STOP
00532
PATTERN
00533
CLEAR
INTERRUPTS
SET
UP
STOP
10
00535
00536
00537
00538
00539
PAGE
16
I'
,
I
--,
/--,
'-
~----
I
\,
~',
"
/----,
,---
..
/
r'
\
\,
~
u
o
C)
o
o·
PTROOlt
PAGE
17
OATEI
12/11174
o 0540
P010l
4895 STQ·
to
005ltO
05"1
P01D4
5880
RTJ·
ERROR·
00541
o 05 .. 2 P010S
1807
CH05
JHp·
CH01
RETURN
00542
05 ..
3
POlO£)
0000
CH1STN
HUH
a 1ST
NORD
SWITCH
005 .. J
05 .. 4
Pol07
0000
SAVE
NUH
0 00544
0545
Pol08
0000
SAVECH
NUH
• 00545
o
o
[
o
o
()
o
o
o
c
60220
.. 00 E
PAGE
17
o
o
PTR004
PAGE
18
0547 P0109 0000
SPACEOVER
NUH
0
0548
POIDA
DAF6
ENA
-9
0549
P01DB
6814
SPOV
STA.
CTLV
0550 P010C58QO
SPOV1
RTJ
STATUS
POIDO
0027
0551 P010E
B800
EOR
LCSEC
POIOF
OOOE
0552
P01ED
0117
SAN
SPOVERR-
--1
0553 P01E1 080E
RAO-
CTLV
0554
POIE2
caOD
LOA-
CTLV
0555 P01E3 0101 SAl SPOV2---1
0556 P01E4 18F7 JHP-
SPOVl
0557PD1E5
6800
SPOV2
STA
CH1STWO
P01E6
FFEF
0558 P01E7
lCFt
JHP-
(SPACEOV
ER)
0560 POtES
OA07
SPOVERR
ENA
7
0561 POIE9 5800
RTJ
ERROR
POIEA
FF6A
0562
POIEB
1800
JHP
LCOO2
P01EC
FE73
056,.
POlED
0000
LCSEC
NOH
0
0565 P01EE 0000
LCCNT
NUH
0
OS66
POIEF
DODO
CTLV
NUH
0
60220400 E
OATEI
12/17/74
SPACE
OVER
THE.
9
REHAINING
PATTERN
CONTROL'
READ
ONE
FRAME
ALL
10
CONTROL
FRAME
HUST
BE
EQUAL.
EQUAL
YES
LAST
FRAME
NO
NEXT
FRAME
CLEAR
1ST
WORD
OF
CYCLE
SWITCH
YES
-.ERR 7
ALL
LEVEL
CONTROL
PUNCHES
NOT
EQUAL·
LEVEL
CONTROL
WORD
LEVEL
COUNT
00547
00S ..
8
00S49
OOSSO
005S1
00552
00553
00554
00555
00556
00557
00558
00S60
00561
00562
00564
00565
00566
PAGE
18
(~
\.
(-"
''---_/
C
("
',,--
~
("
.......
,
..
.,.
r "
~.
('
"-
..
-
r
('
,
...
~
(
/"-~
(
C~
c
r'
\
....
u
o
o
o
0··
PTROOft
PAGE
19
OATEI
12/17/7"
o 0568 P01FO 0000
STHOTION
HUH
0
START
PAPER
TAPE
HOTION
00568
0569 P01F1 E800
STH1
LOQ
EQUIp·
00569
P01'F2
FEll
o 0570 P01F3 06ft4
CLR
A 00570
0571 P01F" 0201 INP
SHREJ1-·-1
INPUT
STATUS
00511
0572 P01F5
A06C
AND-
CONST+1
0002 00572
0573
P01F6 0101
SAZ
1 00573
o 0514 P01F7 lCF8
JHp·
C
STHOTION)
0057"
05.75 P01F8
OAlO
STH2
ENA
$20 00575
057&
P01F9 0305
OUT
SHREJ2-·-1
START
HOTION
00576
0577 P01FA 1CF5
JHP·
(
STHOTIONJ
EXIT
00577
o.
0578 P01FB 0901
INA
1
INTERNAL
REJECT
ON
STATUS-ERR
2 00576
0579 P01FC 0901
SHREJ1
INA
1
EXTERNAL
REJECT
ON
STATUS-ERR
1 00579
0580 P01FD
1804
JHp·
SHREJ3 00580
0581 P01FE 0901
INA
1
INTERNAL
REJECT
ON
START
HOTION-ERRll 00561
0582 PlUFF 0902
SHREJ2
INA
2
EXTERNAL
REJECT
ON
START
HOTION-ERR10
00582
0583
P02an
09£0
INA
-$12
00583
0584
P0201 5800 SHREJ3 RTJ
ERROR
00584
P0202
Ff52
0585 P0203
18£0
J"p.
STHl
TRY
AGAIN
00585
c
o
o
o
o
o
o
60220400
E
PAGE
19
o
PTR004
0588
P020 .. 0000
0589
POZ05
C800
P0206
FEOS
0590
P0207
A076
0591
POZ08
6836
0592
P0209
010C
0593
P020A E800
P020a
FOFA
0594
P020C OA04
0595
P0200
6800
P020E 009B
0596
PD20F 03FE
0597
P0210 0400
0598 P0211 5866
0599
PD212 0820
0600 POZ13 C800
POZ14 0093
0601
P0215
1CEE
0602
P0216 C800
P0211
FDFA
0603
P0218
A075
0604
P0219 0101
0605
P021A
5830
0606
P021B C073
0607
P021C 6821
0608
POZiO
E800
P021E
FOE7
0609
P021F 0225
0610 PD220
6833
0611 P0221
A06E
0612
P0222 0117
0613
POZ23 583F
0614
P0224
C819
0615
POl25
D9FE
0616
POl26
6817
0617
P0227 0101
0618
POZ28
18F4
0619
P0229
180A
0620 POl2A
GOFE
0621
P02lB
0217
0622
P022C 6829
06Z3
POl20
0813
0624
P022E
OAI0
0625
P022F
5406
0626
P02l0
18E5
0627
POl31 C824
0628
P0232
lCOl
PAGE
20
STATUS
NUH
0
LOA
CNTWRO
ANO-
CONST+l1
STA¥
INTHOOE
SAl
ST1-.-1
LDQ
EQUIP
ENA
4
STA
INFLG
OUT
-1
EIN 0
RTJ·
CHECK
RAO·
INTCH
LOA
FRAME
JHp·
(STATUS)
ST1
LOA
CNTWRO
AND-
CONST+I0
SAl 1
RTJ·
DEL
LOA-
BIT8
STA·
ERCNT
ST2
LOQ
EQUIP
INP
ERR1-.-1
STA·
RSTATUS
AND-
CONST+3
SAN
ST3-.-1
RTJ·
DELI't
LOA·
ERCNT
INA
-1
STA·
ERCNT
SAZ
1
JHp·
ST2
JHp·
ST4
ST3
INQ-1
INP ERR3-
Wo
-l
STA·
RCHAR.
RAO·
CHCH
ENA
$10
RTJ-
(JUMPX)
JHp·
ST1
LOA·
RCHAR
JMp·
(STATUS)
0630 POl33
COOO
ST4
P0234
0509
LOA
=NS509
STA
CHFRAH
0631
P02l5
6800
P0236 FF35
60220400
E
OATEI
12/17/74
CHECK
STATUS
AND
READ
,ONE
FRAHE
OF
DATA
IS
INTERRUPT
HOOf
SELECTED
NO
SET
FLAG
SELECT
DATA
INTERRUPT
WAIT
FOR
INTERRUPT
FRAHE
JUST
READ
CHECK
FOR
DELAY-CHARACTER.
HOOE
ONLY
DELAY
NOT
SELECTED
SET
WAIT
lOOP
COUNT
DATA
READY
YES
DELAY
1 HS,
RETURN
TO
MONITOR
OECREHENT
LOOP
COUNT
SKIP
IF
TIHED
OUT
CONTINUE
LOOPING
REPORT
TIMEOUT
ERROR
REPEAT
CONOITION
SET
EXPECTED
STATUS
PTC2
PTC2
PTC2
PTC2
PTCZ
PTC2
PTC2
PTC2
PTCZ
PTC2
PTC2
PTC2
PTC2
00588
00589
00590
00591
00592
00593
00594
00595
00596
00597
00598
00599
00600
00601
00&02
00603
00&04
00605
00606
00607
00608
00609
00610
00611
00612
00613
00614
00&15
00616
00617
00618
00619
00620
00621
00622
00623
00624
00625
00&2&
00&27
00628
00630
00631
PAGE
20
('"
\
.....
_-",.,
c
c
c
c
c
c
c
/'
\
''--.J'
C)
0,
o·
o
o
Cj
c:
o
c-
o
o
c
o
o
('\
PTROO
..
0632 P0237 cete
0633 P0238
G800
P0239 FF33
063 .. P023A
OA20
0&35
P023S 5800
P023C FF18
0637 POllO 0000
OG38
P023E 0000
0639 P023F 0000
06 .. 0
P02ltO
0000
OG42
P02 .. i 0000
0643 P02lt2
D8FE
06lt4 P02 .. 3
D8FO
OG45
P02 .... 08FC
06lt6 P0245
D8FS
0647 P02 .. 6
caoc
OG
.. 8
POZ
.. 7
A081
0649 P02 .. 8
saF8
OG50
P0249 6809
0651
POZ
.. A
460A
0652 P02 .. a
08
....
0653 P02ltC 68F ..
OG5
.. P02 .. 0
COOO
P02ltE 0000
0655 P02ltF' 5402
065&
P0250 18C5
0657 P0251 0 .. 28
0658 P0252 0100
0659 P0253 0000
0660 P0251t 0000
OG61
P0255 0000
0662 P0256
FFFF
066,. P0257 0000
OG65
P0258
C80D
P0259
FDBA
0666 P025A
0861t
0667 P025B 6819
0668 P025C 5806
0669 P025D 0817
60220,.00 E
P
PAGE
21
LOA·
RSTATUS
STA
CHREAD
ENA
$20
RTJ
ERROR
ERCNT
NUH
0
INTHODE
NUH
SO
INTCH
NUH
0
CHCH
NUH
0
CTER
NUH
$0
ERR
..
RAO.
CTER
ERR3
RAO·
CTER
ERR2
RAO·
CTER
ERRl
RAO·
CTER
LOA·
SECERR
AND-
EOR·
CTER
STA-
SECERR
STQ·
EQCOrJE
CLR
A
STA·
CTER
LOA
DATE.
12/17/7
..
PTC2'
SET
ACTUAL
STATUS
PTC2
PTC2
REPORT
ERROR
20-
NO
DATA
STATUS
PTC2
WAIT'LOOP
COUNT
PTC2
INTERNAL
REJECT
ON
DATA
INPUT-ERR"
EXTERNAL'
REJECT
ON
DATA
INPUT-ERR3
INTERNAL
REJECT
ON
STATUS
REQUEST-ERR2
EXTERNAL
REJECT
ON
STATUS
REQUEST-ERR1
HOOFF
DOFF
::)(PTROO"
RTJ-
(STOPX)
ERROR
STOP
JHP-
sr1
NUH
SO
..
28
STOP
10
SECERR
HUH
S0100
SECTION.
ERROR
NUHBER
RSTATUS
NUH
SO
STATUS
OF
EQUIP
EQCODE
NUH
SO
EQUIPHENT
CODE
AT
TIHE
OF
ERROR
RCHAR
NUH
$0
CHARACTER
JUST
READ
NUH
-10
NOT
USED
DEL
NUH
0
LOA
DELRD
PARAMETER
DELRD
IS
THE
NUHBER
OF
HILLISECO
TCA
A
DELAY
BETWEEN
READING
FRAHES-CHARACTER
HOD
STA-
DELCT
TO
PARAHETER
DELRD.
DEL1
RTJ-
DELH
DELAY
ONE
HILLISECOND
AND
GO
TO
SHH.
RAO-
OELcr
UPDATE
DELAY
COUNTER
00632
00G33
0063"
00&35
00637
00638
00&39
006 .. 0
006 ..
2
006"3
006 ....
00G45
00G
.. 6
00G,,7
00G
.. 8
00G49
00G50
00&51
00&52
00653
00&5
..
00&55
00&56
00657
00658
00659
00660
00661
00662
00661t
0066~
0066&
00667
00668
00669
PAGE
21
PTR004
0670
P025E C816
0671
P025F
0101
0672
P0260
18FB
0613
POl61
lCF5
06.75 P02&2 0000
0676
P0263
E800
P0264
0009
0677
P026S
C201
0678
P0266
09FE
0679
P0267
0101
0680
POZ68 18FD
0681
P0269
C80A
0682
P026A 6800
POZ6B
FD99
0683
P026C
5401
0684P026D
0000
0685
P026E 012C
0686
P026F
DOC"
0687
P0270
0226
0688
P0271
0168
0689
P0272
1CEF
0690
p0273
0000
0691
P0274
0000
DELH
PAGE
22
LOA·
DELcr.
SAZ
1
~HP·
DELl
JHp·
(DEL)
NUH
a
LOQ
HCHPTR
LOA-
l,Q
INA
-1
SAZ
1
JHP.
·-2
LOA·
STA
RTJ-
HCHPTR
NUH
0
NUH
300
NUK
200
NUM
550
NUH
360
RET
JHP.
(DELH)
HR
NUM
a
DELCT
HUH
0
0693
P027S
0276
P
RANADD
ADC
RAN
0694
P0276
0000
RAN
NUH
0
60220400
E
DATEI
12/17114
REPEAT
ONE
HILLISECOND
DELAY
GET
HACHIHE
TYPE
CODE-
0-3
GET
COUNT
VALUE
DELAY
FOR
ONE
HILLISECOND
THEN
RETURN
CONTROL
TO
SHH
HR
PRESTORED
ADDR
OF
RET
RETURN
(CONTROL)
'1704/14
COUNT
CALUE
1774
COUNT
VALUE
600
NS
COUNT
VALUE
900
NS
COUNT
VALUE
EXIT
DELAY
COUNTER
STORAGE
ADDRESS
FOR
RANDOM
HUHBER
RANDOH
NUHBER
STORED
HERE
PTC2
PTC2
PTC2
PTC2
PTC2
PTC2
PTC2
00670
00&71
00672
00673
00675
00676
00677
00678
00679
00680
00681
00682
00683
00684
00685
00686
00687
00688
00689
00690
00691
00693
00694
PAGE
22
(
\-
(
C,'
C~
c
(~)
o
o·
PTROO,.
PAGE
23
OATEI
12/17/7,.
o·
0696
P0277 0000
CHECK
NUH
0
00696
0697
P0278 C073
LDA-
BIT8
PTC2
00697
o 0698
POl79
68Cl
STA·
[RCNT
SET
MA
IT
LOOP
COUNT
PTC2
. 00698
0699
P027A C82f
CHECKA
LOA·
INFLG
CHECK
INTERRUPT
FLAG
00699
0700 POl7B
OlOF
SAZ
CH-·-l
NOT
SET
00700
0701 P027C
COOO
CHECKl
LOA
=XCHECKA
00701
c-
P0270
027A
P
0702
P027E 6800
STA
RETURN
00702
P027F F08S
0703 P02S0
CSBC
LOA·
ERCNT
PTC2
00703
0701t
P02Sl
09FE
INA
-1
PTC2
00704
o 0705 P0262
68BA
STA·
EReNT
CECREHENT
LOOP
COUNT
PTC2
00705
0706
P02S') 0101
SAZ
1 SKIP
IF
TIHHED
OUT
PTC2
00706
0707
P0284 5401 RTJ-
(CONTROL)
RETURN
TO
SHH
PTC2
00707
0708 POl85 0644 ClR A
HERE
IF
TIHED
OUT
PTC2
00706
r
,,--
...
~/-.,
0709 P0286 6820 STA.
STAT
ZERO
PARAHETERS
PTC2
00709
0710 P02S7 6820 STA.
FRAME
PTC2
00710
0711 P028S OAll
ENA
$21
PTC2
00711
0712
POl89
6821 STA·
ERC
SET
ERROR
CODE
PTC2
00712
0713 P028A
180e
JHP.
CHA
REPORT
ERROR
21-
TIHEOUT
WAITING
FOR
I
NT
PTC2
00713
0714
P028B E81F
CH
LoQ·
ERC
00714
0715 P02SC 0151
SQN
1 00715
0716 P0280 lCE9 JMp.
(CHECK)
00716
0717 P028E C049
CHECKB
LDA-
INFORH
00717
0718 P028F
A06B
AND-
CONST
00718
0719
P0290 0105
SAZ
CHA-·-l
IS
TTY
BUSY
00719
0720 P0291
CO
00
CHECK2
LOA
=XCHECKB
YES
00720
POZ92
028E P
0721 PD293 6800
STA
RETURN
00721
P0291t
F07D
0722
P0295 5401 RTJ--
(CONTROL)
.
RETURN
TO
SHH
00722
0723
P0296
OAOI
CHA
ENA
1
NO
00723
o
0724
P0297 6812 STA·
INFLG
00724
0725 P0298 C889
LOA.
SECERR
00725
0726
P0299
AU81
ANO-
HOOFF
FORH
SECTION
AND
ERROR
CODE
00726
0727 P029A 0810
EOR·
ERC
00727
o 0128 P029B
6aOA
STA·
SE
00728
0729 P029C 0844 ClR A 00'729
0130 P0290 6800 STA·
ERC
00730
0731 P029E 5800
RTJ
CLR
CLEAR
INTERRUPTS
00731
P029F
FEEF
o
0732
POZAO
CODa
LOA
=XPTROO4
00732
PU2A1
0000 P
0733
P02A2 5402
RTJ-
CSTOPX)
00733
0734
P02A3
1808
JHp·
CH1A
00734
o 0735
POZA
.. 0,.18
NUH
$418
STOP
10
00735
0736
P02A5 0100
SE
NUH
$100
SECTION,ERROR
NUMBER
00736
0737 P02A6 0000
STAT
NUH
$0
STATUS
OF
EQUIPHENT
00737
0738
P02A7 0000
FRAHE
NUH
$0
CHARACTER
JUST
READ
00738
0739
P02A8 0000
EXIT
NUH
a
00739
0740 P02A9 0000 INFlG
NUH
0 00740
0741
POZAA
DODO
ERC
NUH
0 00741
071t2
P02AO
0841t
CH1A
CLR
A 00742
("
)
60220400
E
PAGE
23
o
PTRDOlt
D743
P
02AC
68FC
D744
P02AO
5800
CH1
P02AE
FEES
D745
P02AF
lCC7
0741 •
0748
•
0749
P02BO
OODD
INTFLG
075D
P02a1 0000
INPROC
.0751
P02B2 48FS
0752 P02B3 E800
P02a ..
FD51
0753 P02B5 08lt4
0754 P02B6
D2FE
0755 P02B7 66EE
0756 P020S
AOGO
0757 P02S9 01Dl
0758
P02BA
l80F
0759
P02BB
EBF4
INTENA
0760
P02BC
0151
0761
POlSO
1809
0762
P0213E
C8F2
INTENB
0763 P02Bf 6600
P02CO
0000
0764 P02C1 0001
0765
POlCZ
"8D3
0766 P02C3
E8E4
0767
P02C
.. 1400
INTEN1
POlC5 0000
0768 P02C6
DADA
INTEN2
0769
P02C7 68E2
0770 POlC8
l81E
0771 P02C9 £800
INPR1
P02CA
F03B
0772 P02CS
C8DA
D773
P02CC
AODO
P02CD
0403
0774
POZCE
BODO
pozeF
0403
0775
P02DO
0103
0776
POZO!
DAOB
0777
POZOZ
6807
0778
P02D3
1813
0779
POZ04
C8Dl INPR2
078D
P0205
AOOO
POZ06
00f)0
0781 P0207 0103
0782
P0208
DADe
0783 P020,) 680D·
078'+ P020A
18DC
602Z0400 E
PAGE
21t
STA·
INFLG
RTJ
SEL
SELECT
DATA
INTERRUPT
JHp·
(CHECK)
THIS
ROUTINE
PROCESSES
INTERRUPTS
INTERRUPT
EXIT
STATE
VALUE
IN
Q
UPON
ENTRY
NUH
0
NUH
0
STQ·
EXIT
EXIT
INfERRUPT
STATE
VALUE
LOQ
EQUIP
CLR
A
INP
-1
STATUS
STA·
STAT
ANO-
CONST+2
INTERRUPT
8IT
SET
SAl INTENA-·-l
DID
THIS
EQUIPMENT
INTERRUPT
JHP·
INPRl
YES
LOQ·
INTfLG
NO
SON
INTENB-·-1
IS
THIS
ONLY
STATION
ON
INT
LINE
JHp·
INlEN2
YES
LOA·
INPROC
NO
STA+
O.Q
PASS
RETURN
ADDRESS
TO
PTP
INQ
1
INTERRUPT
ROUTINE
STQ·
INTEN1+1
LOQ·
EXIT
ALSO
PASS
Q
ALONG
JMP+
0
GO
TO
INT
PROCESSOR
IN
PTP
TEST
EHA
SA
ERROR-INTERRUPT
STATUS
NOT
SET
STA·
ERC
JHp·
INPR5
LOQ
EQUIP
LOA·
STAT
AND
=H14D3
STATUS
SHOULD
BE
POWER
ON.
EXISTENCE.
EOR
=NS403
READY
AND
BUSY
SAZ
INPR2-·-1
ENA
SB
ERROR-
1M
PROPER
STATUS
STA·
ERC
"Hp.
INPRS
LOA.
STAT
AND
=N$60
CHECK
FOR
ALARM
AND
LOST
DATA
SAZ
INPR3-·-1
ENA
IC
ERROR-ALARH:AND/OR
LOST
DATA
STA·
ERe
JHp·
I
NPRS
00743
007 ....
007 ..
5
007 .. 7
007 .. 8
00749
00750
00751
00752
00753
00754
00755
D0756
00757
00758
00759
OD760
00761
00762
00763
00764
00765
00766
00767
00768
00769
00770
00771
00772
00773
00774
00775
00776
00777
00778
00779
D078D
00781
00782
00783
00784
PAGE
Z"
c
r
\
.........
('
,--
c
c
u
0,
o
o
o
[
0,
o
o
o
o
()
(j
PTR004
0785
POZOB
C8CA
INPR3
0786
P020C
AO&E
0787
P02DO
0106
0788
POZOE
0844
0789
P020F
OOFE
0790
POZEO
02FE
0791
POZE1
68CS
0792
P02E2 0001
0793P02E3
1803
0794
POZE4
DADO
INPR4
0795 P02E5
6BC,.
0796
POlE6
C8C2
INPR5
0797P02E7
BDGC
0798
P02E8 03FE
0799
P02E9 08,.,.
0800
P02EA
669E
11801
P02EB
EaBC
0802
P02EC
1CCIt
0801t P02EO 0000
GENPATT
0805
P02EE
084"
0806
P02EF 681E
0807 P02FO E818
0808
P02Fl
C8lA
0809
POZF2
0106
0810 P02F3
OFAl
0811 P02F4 0161
0812
P02F5
l80C
0813 P02F6 0844
GENt
0814
P02F7 6814
0815 PD2F8 E812
081&
P02F9
OF21
GEH2
0817 P02FA
0814
0818 'P02FB
A082
0819
P02FC 011,.
0820 P02FO caoc'
0821 P02FE
G80A
0822
P02FF 680C
0823
POlOO
6800
0824 POlOl
4807
PPOUT
0825 P0302
C80C
0826 POlOl 0101
0827
POlO4 0852
0828 POlD5 C807
0829
P0306
08B4
0830 POl07 lCE5
60220%00 E
PAGE
25
LOA·
STAT
ANO-
CONST.3
SAl
INPR,.-.-1
CLR
A
INQ
-1
INP
-1
STA·
FRAHE
INQ
1
JMp· INPR5
ENA
$0
STA·
ERC
LDA·INFLG
EOR-
CONST.l
OUT
-1
CLR
A
STA·
INFLG
LDQ.
EXIT
JHp·
CINPROC)
HUM
0
CLR
A
STA·
SECTENDSW
LDQ·
WORD
LOA·
PPSN
SAZ
GEN2-·-1
QLS
1
SQP
GEN1-·-1
JMp·
PPOUT
CLR
A
STA·
PPSW
LOQ·
HORO.2
QRS
1
TRQ
A
AND-
HFFOO
SAN,
PPOUT-'·-l
"
LOA-
NORD.!
STA·
WORD
STA·PPSW
STA·
SECTENDSW
STQ.
WORD
LOA·
COMPATEN
SAZ
1
TCQ
Q
LOA·
PPEXL
LAQ
A
JMp.
(GENPATT)
DATE_
12/17/74
DATA
INTERRUPT
NO
YES-INPUT
ONE
FRAME
ERROR-UNIDENTIFIED
INTERRUPT
CLEAR
INTERRUPTS
CLEAR
FLAG
EXIT
INTERRUPT
STATE
VALUE
GENERATE
PATTERN
FOR
8,
7,
OR
5
LEVEL
EXIT
WITH
PATTERN
IN
A
SECTION
END
'SNITCH
PATTERN
SWITCH
LEFT
PATTERN
DONE
YES
LAST
PATTERN
• 1
NO
YES
RIGHT
PATTERN
··HO
SKIP
TO
GEN2
COHPLEMENT,PATTERN
SWITCH
EXIT
WITH
PATTERN
IN A
00785
00786
00787
00788
,00769
00790
00791
00792
00793
0079lt
00795
00796
00797
00798
00799
00800
00801
00802
00804
00805
00806
00807
00606
00809
00810
00611
00812
00813
0081lt
00815
00816
00817
00816
00819
00820
00821
00822
00823
00824
00825
00826
00827
00828
00829
00830
PAGE
25
C
'."'
.-
PTR004
PAGE
2&
DATE'
12/17/74
oe32
POlOS
7F7F
WORD
NUH
STf1F 00832
083l
P0301)
TF7F
NUH
S7F7F on833
083,.P030A
3EFF
NUH
SJEFF 0083,.
0835 P030a FFFF
PPSW
NUH
-SO
00835
\,
...
-
0836 P030C
DOFF
PPEX·L
HUH
SFF
LEVEL
EXTRACT
'0083&
0837 P030D 0000
SECTENDSW
NUH
0
SECTION
ENDSMITCH
00837
08J8
poaOE 0000
COHPATEN
NUH
0
COMPLEHENT
PATTERN
SWITCH
00838
("
I\. .'
oa40
••
ZIGZAG
PATTERN
LEVEL
GENERATE
NORDS
00840
OS41
P030F
7F7f
lZS
NUH
$7F7F
LEVEL
8
STORE
IN
WORD
AND
NORD+1
00S41
0842
P03l0
7£FF
NUH
STEFF
STORE
IN
WORD+2
00842
0843P0311
7EFF
ll7
HUH
STEFF
LEVEL
7 00843
084,. POl1Z 3F7F
NUH
$3F7F 00844
OS4S
POl13
7BFF
zzs
HUH
S7BFF
lEVEL
5 00845
081t&
P031 ..
OFDF
NUH
SOFDF
0084&
0847
••
PYRAMID
PATTERN
LEVEL
GENERATE
WORDS
00847
0848 P0315
fFOO
PY8
NUH
$ffOo
LEVEL
8 008 .. 8
0849
P0316 .. 1FE
HUH
S .. lFE 008 .. 9
0850
P03l7
FEOO
PY7
NUH
.FEDO
LEVEL
7 00850
0851
POll8
20FE
HUH
.20fE
00851
OS52
POll9
FBOO
PY5
HUH
IFBOO
LEVEL
5 00852
0853 POllA 083E
NUH
'083E
00853
('
"-.
..
C~
6D220
..
00
E
PAGE
26
('
(~
o
PTROO
..
PAGE
27
OATEI
12/17/7
..
0655
POllB
0000
GENOZ
NUH
$0
GENERATE
ONES
AND
ZEROS
PATTERN
00655
0856 POJ1C 08 ....
CLR
A
ONE
CYCLE
EQUAL
10
ONES
AND
3
ZEROS
WORD
0085&
0857
POll0
68fF
STA·
SECTENDSW
00857
0858 POl1E C810
LOA·
GENal 00858
0859
POJ1F 0103
SAZ
GEN01-·-1
00859
0860 POl20 060E
RAO·
GENOl
008&0
0861 POl21
OAFF
ENA
-0
008&1
0'
0862
P0322 180A
JHP·
GENEX
00862
OB63
POl23
C80C
GEN01
LOA·
GENa
.. 008&3
086
.. POl2 ..
OUS
SAN
GEN02-·-1
008&4
0865 POl25
OAF'S
ENA
-10
SET
END
OF
CYCLE
SWITCH
008&5
0866
POll6
68E6 STA·
SECTENOSW
00866
0867 POl27
6807
STA·
GENOl
00667
0868 POl28
OAFC
ENA
-l
008&8
0669
P0329
6806
STA·
GENO
.. 00869
0870 POl2A 0805
GENOl
RAO·
GENa
.. 00870
0871
POllS
OAOO
ENA
$0 00871
0872 POlZC
A80F
GENEX
AND·
PPEXL
EXTRACT
LEVELS
WANTED
00872
087l
POl20
tCEO
JHp·
(GENOlJ 00873
087 .. POl2E FFF5
GENOl
NUH
-10
0087 ..
c 0875 POl2F
FFFC
GENO,.
NUH
-3
00875
o 0877 POllO 0000
GENC9
NUH
$0
GENERATE
C9
AND
l6
PATTERN
00877
0878
P03l1
08 .... .
CLR
A
ONE
CYCLE
EQUAL
7·C9S
AND
7
l6S
00878
0879
P03l2
680A STA·
SECTENOSW
00879
0880
POlll
C810
LOA·
GENCl
00880
0881
POll
.. 010 ..
SAZ
GENC1-·-1
00881
0882
POllS
080E IUO·
GENCl
00882
o
088l
POl36
CODa
LOA
=N$C9
00883
POll7
OOC9
088"
P03la
1809
JHp·
GENCEX
0088 ..
0885
POlJ9
caDa
GENC!
LOA·
GENC
.. 00885
o
0886
P03lA
011 ..
SAN
GENC2-·-1
00886
0687
POl30
OAF8
ENA
-7
00887
tJ8SS POJ3C 6800 STA·
SECTENOSW
SET
END
OF
CYCLE
SWITCH
00888
0889
POl30
6S0&
STA·
GENC3
00889
0890 POJlE
680&
STA·
GENC
.. 00890
0891
POl3F
0805
GENC2
RAO·
GENC
.. 00891
0892 POl .. O
OA3&
ENA
$36
00892
0893
POl41
A8CA
GENCEX
AND·
PPEXL
EXTRACT
LEVELS
WANTED
00893
089
..
P0342
1CED
JHp·
(GENC,))
00894
C)
0896
P0343 FFF8
GENC!
NUH
-$7
00896
o
60220400
E
PAGE
27
o
o
~.
(
\
.'
PTR004
PAGE
28
DATEI
12/17/74
0897 P0344 FFF8
GENC4
NUH
-$7
00897
0699
•
00899
41900
• THIS
ROUTINE
CHECKS
FOR
END
OF
SECTION
STOP. 00900
tJCJ01
• 00901
(.
I~.
0902
P0345
0000
SEND
NUH
0
00902
0903
POl46
5800
RT~
CLR
CLEAR
INTERRUPTS.STOP
HOTION
00903
P0347 FE47
0904
P0340
C8FC
LOA·
SEND
RETURN
ADDRESS
00904
0905
P0349
68DB
STA·
SNUtt+1
00905
0906
P034A C800
LOA
LCSEC
00906
P0348 FEAl
0907 POl4C
OFC8
ALS
8 00907 ;,,'
..
,
0908 POl40 6806 STA·
SHUH
SECTION
NUMBER
00908
0909
P034E
COOD
LOA
=XPTROO4
00909
P034F
DODD
P
0910
P03S0
5402
RTJ-
(STOPX)
00910
0911 P03S1
1804
JHp·
SENOl
00911
0912
P0352 0402
NUH
$402
10
00912
0913
P0353 0000
SNUH
NUH
0
00913
091'+ POJ5'+ 0000
NUM
a
00914
0915 P0355 C075 SENOl
LDA-
CONST+I0
00915
",
0916 POlS6
A043
ANO-
STJP 00916
0917
P0357 0105
SAZ
SEND2-··!
CHECK
FOR
RE-ENTER
PARAHETER
STOP
00917
0918
P0358
C06C
LDA-
CONST+1
00918
0919
P0359
A043
ANO-
STJP 00919
0920
P035A 0102
SAZ
SEN02-··1
00920
0921
POlse
5800
RTJ
INPARA
RE-ENTER
PARAHETERS
00921
P03SC
FCAF
0922
P035D C800 SEN02
LOA
CNTWRO
00922
POJSE
FCB3
(-
'-
0923
P03SF A076
AHD-
CONST+l1
00923
0924
POlGO
6800
STA
INTHOOE
00924
P0361
FEOC
0925
P0362
0101t
SAl
SEN03-·-1
00925
0926
P0363
COOD
LOA
-=XCHECK+l
00926
P036'+ 0278 P
0927
P03DS 6800
STA
RETURN
00927
P0366
FC9E
0928
P0367
5800
SEND3
RTJ
SEL
SELECT
OATA
INT,
START
HOTION
00928
P0368
FEll
0929
P0369
C800
LOA
CHREAD
00929
POl6A FE02
(~
\
....
-
0930
POlGB
1CD9
Jttp·
(SEND)
00930
c·
G0220'+00 E
PAGE
28
r
I.
(I
'~
o
o
o·
o
o
C>
o
c
PTROOCt
0932
POJ6C 0050 INIT
0933
P036D 0000
INITl
09lCt •
0935 •
0936 •
0937
PD36E
COOO
POl6F 0000 P
0936 P0370 540A
0939
P0371
Ct800
P0372 004F
0940
P0373 6800
pOli4
004E
0941 POl75 EO'll
09Ct2
P0376 C291
0943 POl77
5ltOA
094Ct
P0378
684F
0945
P0379
COOO
P037A 03A] P
0946
POl7S
E800
P037C 0026
0947
P0370
5408
0949
POl1E
COOO
P037F 0383 P
0950
P0380 6800
POl81 Fe83
0951
P0382
5401
0952
P0383 5800 INtTB
P0384
FC87
D953 P03S5 C800
P0386
Feac
0954
POlS7 6800
P03S8
FC7E
0955
P0389
cooo
P03SA 0272 P .
0956
P03SB 6800
P03ec
FEE6
0957
POl8D 0842
0958 P038E
4813
0959
P038F C056
0960 POJ90
AOOO
P0391
OC04
0961
P039Z 0109
0962
P0393
0822
0963
P03c)4
A06D
0964
P0395
0115
D965
P0396
0822
0966
P0391
A015
0961
P0398
0111
0C:J68
P0399
0808
INITC
0969
P039A
0807
0910 P039B
0806
60220400
E
PAGE
29
DATEI
12/17/74
ADC
TE-INIT 00932
NUM
SO
INITIALIZATION
ROUTINE
00933
THIS
ROUTINE
IS
ONLY
USED
AT
LOAD
TIHE
0093Ct
AND
WILL
DESTROYED
WHEN
THE
NEXT
TEST
IS
00935
LOADED
00936
'
LOA
=)(PTROO4
00937
RTJ-
(CONV)
00938
SrQ IA
00939
STA
IA+l
00940
LDQ-
TSACTV
00941
LDA-
TSFREQ-l,Q 00942
RTJ-
ICONV
J
009Ct3
STA· HEAOE-l
0094Ct
LOA
=XHEADING
00945
LOQ
HEADeT
009Ct6
RTJ- (TYPE. 00947
LOA
=XINITB
00949
STA
RETURN
00950
RTJ-
ICONTROL)
RETURN
TO
SHH
00951
RTJ
INPARA
INPUT
PARAMETERS
00952
LOA
INT11 ' 00953
STA
INTl
00954
LOA
:)(RET 00955
STA
HR
00956
CLR
Q
PTC2
00957
STQ.
MCHCDE
MACHINE
TYPE
CODE
PTC2
00958
LDA-
SHHPAR
PTC2
00959
AND
=NSC04
PTC2
00960
SAl INITC+3 SI(IP
IF
170Ct/171 ..
PTC2
00961
TRA
Q
SAVE
MACHINE
DEFINITION BITS
PTC2
00962
AND-
BIT2
PTC2
00963
SAN
INITC+2 SI(IP
IF
1714
PTC2
00964
TRA
Q
RESTORE
PTC2
009&5
AND-
8ITI0
PTC2
00966
SAN
INITC+l SKIP
IF
600
NS
HACHINE
PTC2
00961
RAO·
"CHCDE
PTC2
00968
RAO·
MCHCDE
PTC2
00969
RAO·
"CHCDE
PTC2
00970
PAGE
29
PTR004
PAGE
30
OATEI
12/17/74
0971
Poagc
COOO
LOA
=XSTART
POl90
0019 P
0972
POJ9E 6800
STA
RETURN
POl9F
FC65
0973
P03AO
5401
RTJ-
(CONTROL)
RETURN
TO
SHH
0974
POlA1 0000
HCHCOE
NUH
0
HACHINE
COOE-0=04,14
1=74~2=600,l=900
0976
P03A2 0026
HEADCT
AOC
HEADE-HE
ADING+1
0977
POlA3 800A
HEADING
NUH
SSOOA
0978
POlA4 2050
ALF
X, PTR004.
1721/77
READER
TEST.X
POJA5
5452
POJA6 3010
P03A7 342C
POlA8 2031
POlA9 3732
POlAA
312f
POlA8
3737
P03AC
2052
POlAO
4541
P03AE It4lt5
P03AF 5220
P03BO
5445
POlB1 535ft
P03BZ 2E20
0979
P03Bl
800A
NUH
S800A
0980
POlBlt 2043
ALF
Je,
CP2f,
VER.
l.1-1
X
POlB5
5032
P03S6 462C
POla7
2056
P03B8 4552
P0389
2E20
P03aA 332E
POlSO
3120
PUlBC
l120
0981
POlaD 800A
NUH
S8DOA
0982
P03IJE
2049
AlF
3,
IA
.::
P03BF 4120
POlCO
3020
098l
POlCl
0000
IA
NUH
SO
0984
P03CZ 0000
NUH
10
0985
P03C3 2C20
NUH
IlC20
OQ86
P03C4
2046
AlF
4,
FC
=
POlC5 4320
P03C6 3020
P03C7 2020
0987
P03ce
SODA
HEADE
NUH
S800A
0988
POlC9 03C9 P
TE
lOC
..
0989
END
PGH=
OlCA
'"
970)
COH= 0000 C
0)
OAT
=
DODO
(
0)
60220ltOO E
00971
00972
00973
PTC2
00974
00976
00977
00978
00979
00980
00981
00982
00983
00984
00985
00986
00987
00988
00989
PAGE
30
",
....
'
'
..........
.
I '-.
,)
[
.-
.
(
I
'-..
("
I,.
f'
I.
........
("
'-
I"~--
(,
',,~,
"
(,-,
~
,
r'
l\,.
,,,,,--.....,,
l
,,-,-/
{',
'-
,,;
(j
"..--,
~)
PTROO,.
PAGE
31
OATEI
12/17/74
o
()
E
QUI
V
ALE
N C E S
----~~--~-~~-~~~~-----
OEF.LINE
NAHE
VALUE
REFERENCED
AT
LINE
NUHBER
0000
I
DOFF
(000255)
0036
CONTRO
0001
(
000001)
,
0037,
0683,
0707,
0722,
0951,
0973
o
0037
STOP X
0002
(000002)
t
00
JS,
0117, 0386,
0438,
0655,
0733
,
0910
0038
TSEXIT
0003
(000003)
, OOag,
0410
0039
OATINT
0004
(000004)
,
0040,
0041,
0167
c
0040
CLRINT
0005
(000005)
0041
JUHPX
0006
(000006)
,
0042,
0412,
0470,
0625
0042
GENRAN
0007
cooooon
•
0043,
0096
0043
TYPEOU
0008
(
000008)
,
0044,
0045,
0098,
0100
0044
TTVBZY
0009
C
000009)
-
0045
HEXASC
OOOA
(000010
) ,
00
1t6,
0097,
0099
0046
OVRLAY
OOOB
(
000011)
,
00"7
0047
RELPOS
oooe
(000012)
,
0048
0046
HAINL
0000
(000013)
,
0049,
0102
01149
SETHAS
004Z
(000066)
0050
0050
STJP
0043
(000067)
0051,
0052,
,
0919
00-95,
_
0431,·
0465,
0916
0051
LASTVA
0044
(000068)
0052
LASTAD
0045
(000069)
,
0053
0053
LOLCOR
0047
(00007U
,
0054
0054
LOL1CO
0048
(000072)
0055
0055
INFORM
0049
(000073)
0056,
0717
o
0055
SMHCNT
0056
COOO086) ,
0057,
0094
0057
BITOO
006B
(000107)
,
0058,
0093
0058
BITO
006B
(000107)
,
0059
0059
BIU
006C
(000108)
,
0060
()
0060
BIT2
0060
C
000109)
,
,0061,
0963
0061
BIT3
006E
(000110»
,
0062
0062
BIT4
006F
(
000111)
,
0063
0063
BITS
0070
COOO112) ,
0064
0054
BIT6
0071
(000113)
,
0065
o
0065
BIT7
0072
(000114)
,
0066
0066
alT8
0073
(000115)
,
0067, 0606,
0697
0067
.
BIT9
0074
(000116)
,
0068
0068
BIT10
0075
(
000117)
0069,
0966
0069
BIT11
0076
cOOOl16t
,
0070
o
o
60220400
E
PAGE
31
o
n
/--
"-
(
"-
\.....j
C'
r"
(
\
...
,/'-',
I
\..,
PTR004
PAGE
32
OATE.
12/17/74
0070
BIT12
0077
(000119)
•
0071
C~'
0071
BIT13
0078
(000120
) ,
0072
Oll72
BIT14
0079
(000121)
•
0073
r-'
0073
BIT15
007A (
000122)
,
0074
I
0074
HOOOO
007B
(000123)
,
0075
~,
..
0015
HFFFF
007C
(000124)
,
0076
0076
HOOOF
0070
'00012S)
,
0077
0071
HOOFO
001E
(000126)
,
0078
,~
r
0078
HOFOO
007F
(
000127)
,
0079
0079
HFOOO
0060
(000128)
,
0080
0080
,HOOFF
0061
(000129'
,
0081,
,0221,
0275, 0330,
0359,
0648
•
0726
(
0081
HFFOO
0082
(000130
) ,
0082,
0818
0082
HFFFO
0083
(000131)
0083
''-'-
•
0083
HOFFF
0084
(000132)
,
0084
0084
HFFOF
0085
COOO133) ,
0085
(,--',
0085
HFOFF 008&
(000134)
,
0086
0086
H7FFF
0087
(000135)
•
0087,
0$25
0087
H7FOO
0088
C
000136)
t
0088
0088
H0780
0089
COOO137) ,
0089
0089
H007f
008A (
000138)
,0090
r-'
0090
H2020
008B
(000139)
,
0091
0091
TSACTV
0091
(000145)
,
0092.
0941
0092
TSFREQ
0092
(00014&)
t
0942
0093
CONST
006B
(000107)
t
0145,
0149.
0159,
0178,
0211,
0300
•
0402,
0411, 0432,
0572,
0590,
0603
,
0611,
0718,
0756, 0786,
0797,
0915
,
0918,
0923
0094
SHHPAR
0056
(000086)
•
OQS9
r
0095
SJPAR 00
..
3 COOO067) 1
009&
RANOOH
0007
(000007)
0097
CONVER
DOOA
(000010)
0098
HESSAG
0008
(000008)
0099
CONV
DOD
A
(000010)
,
09J8~
0943
( ,
0100
TYPE
0008
(000008)
,
0947
0101
TEHP
0004
(000212)
0102
HANUIN
0000
(OOOOl'3J
0103
PT
0001
(000001)
('"
I,
'-
r"
'\
,-,,-
C'"
•
(--
\
,""
..
~
r---
&0220"00
E
PAGE
32
~-.
('
'----
-
~
'.'
(-"
~.)
o
PTROO,.
PAGE
33
DATE.
12/17/74
o
S'Y
H B 0 L S
--
..
~---
...
~---
..
o
DEF.LINE
NAME
ADDRESS
REFERENCED
AT
LINE
NUMBER
o
0104
PTROO,.
0000
,
0116,
0385,
0409,
0,.35,
0651t,
0732
,
0909,
0937
0106
PARADR
0004
0107
RETURN
0005
,
0181,
0682,
0702,
0721,
0927,
0950
o ,
0972
0108
EQUIP
0006
,
0147,
0165, 0383,
0478,
0488,
0569
,
0593,
0608,
0752,
0771
0109
INTi
0007
,
0141,
0144,
0151,
016&,
0954
0111
INITIA
0008
,
0107
0112
RERUN
OOOA
,
0104
0113
STWOP
oOOB
0115
INPARA
OOOC
,
0112, 0142,
0406,
04115,
0921,
0952
0121
CNTWRO
0012
,
0106,
0177, 0187,
0223,
0271,
0329
,
0358, 0589,
0&02,
0922
0137
INT11
0013
,
0140,
0953
0138
DELRO
0014
,
0665
0140
INP1
0016
,
0118
01,.4
START
0019
,
0113,
0971
0151
STARTl
0021
,
0146
0153
START2
0023
,
0156
,,--
.......
l)
0157
START3
0027
,
0153
01&4 START4
002F
,
0150
0168
RINT
0034
,
Ot72,
0174
0170
STARTS 003& ,
0163
,..---...,
u
0177
CNTRLA
0030
,
0169,
0173,
0407,
0416
0182
CNTRL
00 .... ,
0179,
0408
0183
.
LCOOO
0046
,
0185,
.0202,
0420
0186
LCOOl 004A ,
01S4
0197
LC001A
0055
,
01
e
H,
0195
o
0203
Leo01B
005C ,
0186,
0197
0204
LeTOOl
0050
,
0198
0208
LC1l02
0060
t
0199,
0562
0209
LCRET
0062
,
.0533
o
0211
LCOI0
0063
0214
LC011
0066
,
0212
0220
LC012
006A ,
0255·
0229
LCOl3
0077
,
0225
0234
LC014
0070
,
0230
0236
Le01S
0080
,
0228.
0233
0241
LC016
0088
,
0243
o
&0220400
E
PAGE
33
r"
(
\""
.. -
I
r---.
\
.......
"
~ ~
(:-~~
r--"
I,
'---
~
\_,
PTROOIt
PAGE
34
DATEI
12/17/74
0245
LC020
0080
,
0213
('
'-
...
/
0252
LC021
0091
,
02
..
7
0257
LCOltO
00<)&
,
0248
02&4
LC041
009A
,
0259
('
02&8 LCOlt2
009E
,
0316
I,
0278
LC043
OOAC
,
0273
\,'
.........
0285
LCO
....
00B4
9
0281
0287
LCO
..
S
00B7
,
0277,
0284
("
0292
LCO
..
6
OOBF
,
0302
0301
LC047
OOCC
,
0294, 0297,
0299
I.
0304
.LCLV8
OOCF
,'0216,
0279,
0298
030&
Le080
0000
, 02&0
0313
LC081
000
..
,
0308
(-',
0318
LCIOO
0009
,
0309
'---_
..
'
0325
LC101
0000
•
0320
0337
LC102
OOEC
,
0332,
0335
0343
LC103
OOF6
, 031t5
r---..
0347
LC20a
oaFB
,
0321
I,
03SIt
lC201
DOFF
,
03lt9
03&6
LC202
010E
,
0361,
036
..
0372
LC203
0118
,
0374
,r'
0376
LC800
0110
,
0350
0380
LC801
0121
,
0378
0389
PASSCT
012E
,
03aft
0391
LC802
o12F
,
0387
0393
LC802A
0131
,
0397
0395
L1802
013
.. ,
0392,
039
..
I "-
0398
LC802B
0138
,
0396
0402
ET
013C
•
0400
0
..
06 ETS
0140
,
alto
..
",
0408
ET6
014
..
, 0
..
05·
\".
0409
ETl
0146
, 0
..
01
0
..
11
E12
0149
0
..
15
E13
0140
, Olt13
,.,."
,
0416
ET4
.
01
.. F , 0 ..
14
~.
0
..
18
.
LCEND
0151
,
0379
0
..
22
ERROR
0155
,
0201,
0
..
19,
0429,
0
....
8,
05
..
1,
0561
•
058
...
0635
",-.
0
..
37
CHERl
0166
, 0
..
33
(
0"40
IC
0169
, 0
..
1t6,
0539,
0540
01t41 SEER Ol6A ,
.0222,
0270, 0328, 0357,
0
..
23,
0"27
,
0428
0
..
42
RETADR
016B
, 0
..
30,
0
..
3
..
,
0436
,r-,
04
..
3
CHFRAH
01&C ,
0,.99,
OS02,
0631
{
o 4
It
..
CHREAD
01&0 ,
0501, 0514,
05.18,
0531,
0633.
092iJ
'----'
0
....
5
E1
01&E , 0
..
39
C'
Olt-;O
RESTWO
0173
.,
0240, 0291,
0
..
60,
0507
0461
LEVELC
Ot82
,
.0237,
0288,
0452,
0
..
56.
'"
0
..
63
JUMP
0183
,
0399,
0
..
03,
0
..
67,
0
..
68,
0
..
72,
01t73
0469
.JUHPl
0189
•
0"64,
0
..
66
(
0
..
73
JUHP2
0180
,
0471
.....
_.
C'
6022040D
E
PAGE
31t
{~
"'--
....
-
r
r'
("j
r·····
, '\
( )
,-,./
U
()
(---)'
'",--",
PTROOI+
PAGE
35
OATEI 12/17/71+
C)
0475
JUHP3
018E
,
01+69
0477
CLR
018F
,
0382,
01+21+,
0465,
0536,
0731,
0903
(:=J,
0487
SEL
01CJA
,
Olt1+7,
01+96,
0744,
0928
0498
CHECKR
01Ae. ,
0242,
0301,
0344,
0373,
0508
0504
CH01
01AD
,
0542
0510
CH02
01B3
,
0503
r\
0522
CH03 01CO ,
0524
0535
CHOft
01CE ,
0513,
0521,
0529
~
0542
CH05
0105
0543
CH1STH
0106
,
0505,
0510',
0557
0_
0544
SAVE
0107
,
0535,
0537
0545
SAVECH
0108
t
0515,
0530
0547
SPACEO
0109
,
0238, 0269,
0338, 0367.
0381.
0558
05,.9
SPOV
0108
C>
0550
SPOVl OiOC ,
0556
0557
SPOV2
01E5
..
0555
0560
SPOVER
01E8
,
0552
0564
LCSEC OlEO ,
0220, 0268,
0326,
0355,
0380,
0516
C '
0551,
0906
0565
LCCNT
01EE , Oft25
0566
CTLV
01EF
,
0549,
0553,
0554
0568
STHOTI 01FO ,
0182,
0574,
0577
0569
STH1
01Fl
,
0585
0575
STH2
01F8
0579
SHREJl
01FC ,
0571
0582
SHREJZ
01FF
,
0576
0'
0584
SHREJ3
0201
,
0580
0588
STATUS
0204
,
018
J,
0206, 0500,
0550i
0601,
0628
0602
STl
0216
,
0592,
0626,
0656
0608
ST2
0210
,
0618
C)
0620
S13
022A ,
0612
0630
S14
0233
,
0619
0637
ERCNT
0230
, 06
07,
0614,
0616,
0698,
0703,
0705
()
0638
INTHOD
023E
,
0479, 0489,
0591,
0924
0639
INTCH
023F
,
0599
0640
CHCH
0240
,
0623
0642
CTER
0241
,
0643,
0644.
0645, 0646,
0649,
0653
C
0643
ERR4
0242
0644
ERR3
0243
,
0621
0645
ERR2
0244
0646
ERRl
02ft5
,
0609
()
0658
SECERR
0252
,
06lt
7,
0650,
0725
0&59
RSTATU
0253
,
0610,
0632
0660
EQCODE
0254
,
0651
06&1
RCHAR
0255
,
0&22,
0627
C\
0664
OEl
0257
,
0605,
0673
0668
DEll
025C
,
0672
0675
DELH
0262
,
0393,
0613, 0668.
0689
~.
~)
60220,.00
E
PAGE
35
0
r-"
()
(->
"r·,.
I\.
"...--,
I
"
'"
~
l-..._,
C
r"
1
I,.,
..
r)
PTROO4
PAGE
36
DATEI
1'IJ17/71+
('-
0684
"CHPTR 026D ,
0676
\.
0689
RET
0272
, 0951j
0690
HR
0273
• -
0681.
0956
(
0691
DELCT
0274
,
0667,
0669,
0670
\
0093
RANADD
0275
'-..-
0694
RAN
0276
,
0693
069G
CHECK
0277
,
0180, 0598,
0716,
07,.5,
0926
0699
CHECKA
027A •
0701
('
0701
CHECKl 027C
"-.
0714
CH
028B ,
0700
0717
CHECKB
028E
•
0720
0720
CHECK2
0291
(
0723
CHA
0296
,
0713,
0719
0736
SE 02AS ,
0728
'
..
-.
0737
STAT
02AG ,
0709, 0755,
0772, 0779,
0785
0738
FRAME
02A7 ,
0600,
0710,
0791
,r·
"
0739
EXIT 02A8 ,
0751,
076G,
0801
.(
07
.. 0 INFLG
OZA9
,
0595,
OG99,
072,.,
0743.
0796.
0800
0741
ERC
02AA
,
0712.
071,.,
0727, 0730.
0769,
0777
,
0783,
0795
/'
074Z
CHU
02AB ,
073,.
07
....
CH1
02AD
0749
INTFLG
02BO
,
o1G4,
0759
0750
INPROC
02B1 ,
0168. 0762,
0802
0759
INTENA
OZBB
,
0757
07G2 INTENB 02BE •
0760
-'.
0767
INTENl
02C4
•
0765
07G8 INTEN2 02Cf) ,
0761
~
0771
INPR1
02e9
,
0758
\
077Q
INPR2
020
.. ,
0775
0785
INPRJ
020B
,
0781
0794
INPR4
02E4
,
0787
0796
INPR5
02E6
,
0770.,
0778, 0784.
0793
(
0804
GENPAT
02EO •
0241.
0292,
0830
"-
0813
GENl 02FG •
0811
0816
GEN2
02F9
,
0809
0824
PPOUT
0301
•
08'12,
0819
,~-
0832
HORD
0308
, 0
..
53,
0454,
0457.
0807,
0811j,
0820
\,.
,
0821,
0824
0835
PPSW
030B
,
0459,
0808, 0814.
0822
0836
PPEXL
030C
,
0236,
0287,
0337, 0366,
0828,
0872
/'
,
0893
(
I,
0837
SECTEN
0300
,
0293,
-0504.
0806,
0823,
0857,
0866
'-.
-
,
0879,
0888
0838
COHPAT
030E
,
0216,
025'+,
0266,
0296,
0315,
8825
(-'
08lt1
ZZ8
030F
,
0226
' .
0843
ZZ7
0311
•
0231
.
..
0"45
ZZ5
0313
,
0234
08lt8
PYa
0315
,
0274
(--'
0850
PY7
0317 0282
I
,
,
'.
0852
PY5
0319
,
0285
C.'
60220400
E
PAGE
36
('
\.....-
('
''''''~''
.
('
I,
(J
r,.--.,
I \
....
../'
o
C)
o
o
o
o
PTR004
0655
GENDZ
0318
08&3
GEN01
0323
0870
GEN02 Ol2A
0872
GENEX
032C
0874
GENOl
032E
0875
GENO
..
032F
0877
GENC9
0330
0885
GENCl
0339
0891
GENCl
033F
0893
GENCEX
0341
0896
GENCl
0343
0897
GENC4
034
..
0902
SEND
0345
0913
SNUM
0353
0915
SEN01
0355
0922
SEND2
0350
0928
SEND3
0367
0932
INtT
036C
0933
INIT1
0360
0952
INIT8
0383
0968
INITC
0399
0974
MCHeDE
03A1
0976
HEADCT
03A2
0977
HEADIN
03A3
09B3
lA
03C1
0987
HEADE
03C8
0986
TE
03C9
60220400
E
PAGE
37
DATEI
12/17/74
•
0343,
0873
,
0859
•
0864·
,
0862
,
0342,
0858, 0860,
0867.
•
0340,
0863,
0869,
0870
,
'0372,
0894
,
0881
,
0886
,
0884
,
0369,
0880,
0882,
0889
,
0371.
0885,
Oa90,
0891
•
0532,
0904,
0930
,
0905,
0908
,
'0911
•
0917,
0920
,
0925
,
0932
•
0111
•
0949
,
0961.
096
...
0967
,
0958,
0968,
096')'
0970
,
0946
•
0945,
0976
,
0939,
0940
,
0944,
0976
,
0932
PAGE
37
y,.-.-
.....
"-
"
,~~"
.....
~
.
r~
1,,_
..
-,
r---.
(
~
\.
PTROO~
PAGE
38
DATE.
12/17/74
r-
....
I
\.,
...... A L P H A a E T I
CAL
S 0 R T o F S Y H B o L S
•••
r---
BITO
0058
BITOO
0057
BITl
0059
BIT10 0068 BIT11 0069 \
"-
81T12
0070
BIT13 0071
BIT14
0072
BIT15 0073,
8IT2
0060
BIT3
0061
BIT~
0062 BITS
0063
BIT6 0064
8IT7
0065
BIT6
0066
BIT9 0067
CH
071"
CH01
0504
CH02
8510
("
CH03
0522
CHOS
05~2
CHl
07~4
CHIA
0742
CH1STW
0543 I
CHA
0723
CHCH
0&40
CHECIC
0&96
CHECK1
B70t
CHECK2
0720 \..
~
CHECKA
0699
CHECKB
0717
CHECKR
0498
CHfRAH
' 0 .... 3
CHOIt
. 0535
CHREAD
04'+4
CLR
0417
CLRINT
0040
CHERl
0437
CNTRL
0182
('~'
CNTRLA
0177
CNTWRD
0121
COMPAT
0838
CONST
0093
CONTRO
0036 I
CONY
0099
CONYER
0097
CTER
06 .. 2
CTLV
0566
DATINT
0039 "-
DEL
066
.. DELl 0668
DELCT
0691
DELH
0615
DELRD
0138
El
04'+5
EQCODE
0660
EQUIP
0108
ERC
07 .. 1
ERCNT
0637
ERR!
0&
..
&
ERRZ
0645
ERR3 06 .... ERR4. 06 ..
3,
ERROR
0422
ET
0402
ETl
0409
ET2
0411
ET3
0415
ETIt
0416
ET5 040&
ET6
0"08
EXIT
0739
FRAHE
0738
GENt
0813
GEN2
0816
GENCl
0885
GENCZ
081)1
GENC3
0896
GENe4
0897
GENCI)
0871
GENCEX
0893
GENEX
0872
GENOl
0863
GEN02
0870
r--
GEN03
0874
GEN04
0875
GENOl
0855
GENPAT
0804
GENRAN
00
..
2
HODOO
0074
HOOOF
0076 H007F
0089
HOOFO
0077
HOOFF
0080
H0780
0088
HOFOO
0078
HOFFF
0083
H2020
001)0
H7FOD
0087
H7FFF
0086
HEADcr
0976
HEADE
0987
HEADIN
0977
liEXASC
0045
HFOOO
0079
HFOFF
0085
HFfOO
0081
HFFOF
0084
HFFFO
0082
HFFFF
0075
1 0000 tA
0983
ID
0 .... 0
INFLG
0740
INFORM
0055
IN11 0932
INITl
0933
INtTB 0952 INITC 0968
INITIA
0111
I~Pl
0140 INPAIU
0115
INPRI 0771 INPR2 0779
r'
INPR3
0785
INPR4 079 .. INPRS
0796
INPROC
0750
INTi·
0109
IN111
0137
INTCH
0639
INTEN1
0767
INTEN2 0768
.INTEMA
0759 \
INTENB
0762
INTFLG
0749
INTHOD
0638
JUHP
0 ..
63
JUMP1
0469
JUMP2
0
..
73 JUHP3 0475
JUMPlC
0041
LASTAO
0052
LASTVA
0051
LCOOO
0183
LCOOI
0186
LCOOIA
0197
LCGOIS
0203 LC002 0208
(.
LCOI0 0211 . LCOll
0214
LC012
0220
LCOl3 0229 LCOl4
1234
\
LCot5
0236
LC016 0241 LC020
02"5
LC021 0252 LC040 0257
LC041
0264
LCO~2
0268
LCO
..
3·
D278 LC044 0285 LC045 0287
LCOIt&
0292
LC047 0301
Lcoeo
0306
LC081 0313 LCI00 0318 (
Lel01
0325 LC102
0337
LCI03·
03
..
3 LC200 0347. LC201 035 ..
I.C202
0366
LC20a 0372 LC800
0376
LC801 0380 LC802 0391
\.
LC802A
0393
LC802B 0398
LCCNT
0565
LCEND
0418
LCLV8
0304
LCRET
0209
LCSEC
0564
LCTOOI
0204
LOL1CO
005 ..
LOl.COR
0053
r'
LEVELC
0461
LT80Z 0395
MAINL
00 .. 8
HANUIN
0102
HCHCDE
0974
I.
HCHPTR
0684
HESSAG
0098
HR
0690
OVRLAY
0046
PARAOR
0106
'~-
...
PASSCT
0389
PPEXL
0836
PPOUT
0824
PPSW
0835
PT
0103
PTR.OOIt
010~
PY5
0852
PY7
0850
pya
08 .. 8
RAN
069 ..
IUNADD
0693
RANDOM
0096
R.CHAR
0661
RELPOS
0047
RERUN
0112 r'
RESTMD
0 .. 50
RET
0689
RETAOR
04 .. 2
RETURN
0107
RIMT
0168 " .
RSTATU
0659
SAVE
0544
SAVECH
0545
SE
0736
SECERR
0658
..
SECTEN
0837
SEER
04 .. 1
SEl
0487
SEND
0902 SENDl 0915
SEN02
0922
SEND3
0928 .
SETHAS
0049
SJPAR 0095
SHMCNT
0056 I
,r-'
SHMPAR
0094
SHREJI 0579 SHREJ2
0582
SHREJ3
0584'
SHUH
0913 ,
SPA
CEO
05 .. 7
SPOV
0549
SPOV1
0550
SPOV2
0557
SPOVER
0560 "
r'
\,
....
_-
60220400
E
PAGE
38
('"
r'
\"-
.
('
l)
PTR004
PAGE
39
DATEI
12/17/74
ST1 0602 ST2 0608 ST3
0620
STIt
0630
START
0144
START1
0151
START2
0153
STARTJ
0157
START4
0164
STARTS
0170
STAT
0137'
STATUS
0588 STJP
0050
STH1
0569
STH2
0575
STHOTI
0568
STOPX
0037
STWOP
0113
TE
0988
TEMP
0101
TSACTV.
00Q1
TS£)(1T
00J8
TSFREQ
0092
TTVBZV
0044
TVPE
0100
TVPEOU
0043
WORD
0812
ZZ5
0845
ZZ7
0843
ZZ8
0841
r"
r \
l
'-.,'/
()
c
/",
u
60220400
E
PAGE
39
G
\
........
",
(
,,-
i
"
I
I
'"
I
:
(
r
\.
'.
r-"
\
"-
\.
(~.
C'·
r"
\
,.
(-.
o
o
o
o
,.,....--,
u
o
COMMENT
SHEET
MANUAL
TITLE_C_O_N_T_R_O_L_D_A_T_A_S_M_M_l_7_P_R~O_G_R
__
A_.M
__
L_IS_T_I.-;.N-....;G
__
S_P_T...;..R~
__
Customer
Engineering
Manual
PUBLICATION
NO.
_6_0_22_0_4_0_0
____
_
REVISION
___
E_,
__
_
FROM:
NAME:
______________________________________________________
_
BUSINESS
ADDRESS:
__________________________________________________
__
COMMENTS.:
This
form
is
not
intended
to
be
used
as
an
order
blank.
Your
evaluation
of
this
manual
will
be
welcomed
by
Control
Data
Corporation.
.
Any
errors,
suggested
additions
or
deletions,
or
general
comments
may
be
made
below.
Please
include
page
number
references
and
fill
in
publication
revision
level
as
shown
by
the
last
entry
on
the
Record
of
Revision
page
at
the
front
of
the
manual.
Customer
engineers
are
urged
to
use
the
TAR.
NO
POSTAGE
STAMP
NECESSARY
IF
MAILED
IN
U.
S.
A.
FOLD
ON
DOTTED
LINES
AND
STAPLE
STAPLE STAPLE
FOLD FOLD
-------------------------------------------~
FOLD
BUSINESS
REPLY
MAIL
NO
POSTAGE STAMP NECESSARY
IF
MAILED
IN
U.S.A.
" POSTAGE WILL
BE
PAID
BY
CONTROL
DATA
CORPORATION
Technical
Publications
Department
4201
North
Lexington
Avenue
Arden
Hills,
Minnesota
55112
FIRST
CLASS
PERMIT
NO.
8241
MINNEAPOLIS,
MINN.
FOLD,
W
Z
:::i
C>
Z
0
-'
~
~
:;:)
U
r"-
\
"
~-,
I
'
.....
" ... "
(~~'
("
r'--"
I
, "
r"
' ..
r'
\
"-
~,
(
r'
1
"-
/'
I
'"
,r'-
~
.......
,.
(
(
/-
"
(
"
"
r'
f
\
......
_
.....
(~
"
11
("
I.
,,~
~
r"
f,
e'
('
,---
c--·
[
c)
o
o
o
o
o
o
o
o
,"--"0\
( I
. )
CONTROL
DATA
~
~CUT
OUT
FOR
USE
AS LOOSE
-LEAF
BINDER
TITLE TAB
......
CONTROL
DATA
CORPORATION
8100
34th
AVE.
SO.,
MINNEAPOLIS. MINN.
51440
HINTED
IN
U.S."'.
/'
/'
\
\
....
I
\,
(
c
.~
I

Navigation menu