60220300E_SMM17_Program_Listings_PTP_Feb75 60220300E SMM17 Program Listings PTP Feb75
60220300E_SMM17_Program_Listings_PTP_Feb75 60220300E_SMM17_Program_Listings_PTP_Feb75
User Manual: 60220300E_SMM17_Program_Listings_PTP_Feb75
Open the PDF directly: View PDF 
.
Page Count: 68
u
,
....
-
....
I
II
'~
o
o
o
o
o
o
o
o
C)
C)
o
o
CONTROL
DATA®
SMM17
Program
Listings
PTP
CONTROL
DATA
CORPORATION
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
through
SMM17
Edition
2.
O.
Information
complete
through
SMM17
Editon
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
concernirig
this
manual
to:
Pub
No.
60220300
Control
Data
Corporation
Technical
Publications
Department
4201
North
Lexington
Avenue
Arden
Hills,
Minnesota'
55112
© 1967,
1970~
1973~
1974,
1975
by
Control
Data
Corporation
Printed
in
United
States
of
America
or
use
Comment
Sheet
in
the
back
of
this
manual.
r--·
\..
..
~
(-.....
I
''''-
...•.
,
....
('
\
..
,
..
I J
',---,/
c)
o
"--'
( \
"-./)
o
'\
C
·--...
0001
0002
0003
0004
0005
0006
0007
0008
OOog
0010
0011
0012
0013
0014
0015
0016
0017
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
002'3
OOJO
0031
0032
0033
0034
0035
0036
0037
OOJR
003'3
0040
0041
0042
0043
f)044
0045
0046
0047
0048
004'3
PTP003
6022fJ301l E
PA'3E 1
nAT
E t 1 I]
12
0
17
5
NAH
PTPOl]3
101~4
CQPYRIGHT
CONT~OL
DATA
CORP
1974
••••••••••••••••••••••••••••••••••••••••••••••••••••••
·····················00002
•
····00003
~
..
~
~
• • • • • • REVISION
RECORD
............
{Io
• • • • • • •
••••
00004
•
····00005
{Io
H01AYP
VE~SIO~
~HAr
DONE,
WHY,
AND
WHO
DID
IT
•••
·00006
•
····00007
•
032074
V
1.1
SYSTEM
~ELEASEO
····00006
•
····00009
•
062074
CHANGEO
SECTION
ID
CHARACTERS
TO
8E
VALID
···00010
{Io
WHEN
TESTING
5,70R
~
LEVEL
TAPE.
CHANGEn
START
•••
00011
{Io
OF
TAPE.
END
OF
TAPE,
10
BLOCKS
TO
REFLECT
···00012
•
5,7
OR
~
LEVEL
TESTI~G
EJW
···00013
{Io
•••
00014
•
062674
ADDEO
VALIDATION STATUS BIT
CHECKING
EJW
···00015
•
···00016
••••••••••••••••••••••••••••••••••••••••••••••••••••••
·····················00017
••••••••••••••••••••••••••••••••••••••••
00019
• •
00020
•
IT?l
FUNCTIONS •
00021
..
•
00022
• AITS
HEX
•
00023
•
00
0001
CLfAR EOUIPtt::NT •
00024
•
01
0002
CLEAR
INTER~UPT~
tI-
00025
•
02
0004
DATA
INT.
REQUEST
•
00026
•
03
DOnS
NOT
USED
•
00027
•
n4
0010
nne
ON
ALARM
•
00028
..
05
0020
START
MOrrON
• 0002'3
".
06
0040
'STOP
HOT
ION
•
00030
•
07
•
00031
".
TO
NOT
USEO
•
00032
¥
15
•
00033
•
...
00034
'.
.....
¥".
•
00035
•
17?3
STATUS
'1'
00036
\0-
•
00037
...
BITS
H::X
•
00036
II' 00
0001
PEADY
..
0003'3
•
01
0002
BUSY
•
00040
..
02
0001t.
INTERRUPT •
00041
..
113
0001.\
DATA
READY
•
00042
¥
04
001n
NOT
USED
•
00043
..
05
0020
ALARM
...
00044
•
06
0040
V~lInATION
ERROR
···0004.5
•
07
0060
PROTECTED
•
00046
" 06
0100
NO
PUNCH
..
00047
¥
09
0200
TAPE
BRE
AK
..
0()046
•
10
0400
POWEP
ON
•
00049
PAGE
1
0050
OOS1
0052
0053
0054
0055
PTPOOJ
&0220300
E
•
•
..
•
..
PA~F.
11
0"00
12
TO
15
2
DATEl
10/20f75
TAPE
SUPPLY
LOH
NOT
US,ED
..
•
•
..
•
........................................................
00050
00051
00052
00053
ODDS,.
00055
PAGE
2
r-
(,
r-'
'.....
~
,,,--
...........
"-
r""
I
'-._--,-
,,-----'"
(-"
"-,
("
" "
(
\,
",-
~
('
/'
(
"
(
~-,
I
\
....
c---'
I )
"--/
u
o
o
o
o
o
o
-,
(
')
~
o
,0
o
o
(
,-..\
)
0057
00'59
0050
0061
0052
0063
0064
0065
0066
0067
0068
006Q
0070
0071
0072
0073
0074
0075
0076
0077
0078
0079
0080
0081
0082
0063
00':14
0085
0086
0087
0088
0089
0090
0091
0092
0093
0094
0095
0096
0097
0098
OOQ9
0100
0101
0102
0103
0104
010'3
0106
PTPQ03
6022:]300
E
PA';E 3
OATF.I
10/20175
•
E~ROR
conES(HEXIDECIHALJ
~
ER~OR
1 -
EXTERNAL
REJECT
ON
A
CLEAR
EQUIPMENT
FUNCTION.
CHECK
·EQUIPMENT
~OO~r:SS
FOQ
CORRECT
CODE.
•
ER~OR
2 -
INT~~NAL
QEJECT
ON
AN
EQUIPMENT
CLEAR
FUNCTION.
SEE
·t:RRtJR
1.
·tRR~R
J -
EXTERNAL
~F.JEcr
ON
STATUS.
SEE
ERROR
1.
·ERROR
,. -
INT~RNAL
~EJ~CT
ON
STATUS.
SEE
E~~OR
1.
•
ER~~q
5 -
~FTER
AN
EQUIPMENT
CLEAR.
ONLY
POWER
ON
AND
~EADY
STATUS
·OrT~
SHOULD
O~
SET.
•
ERROR
6 -
EXT~RNAL
REJECT
ON
A
DATA
INTERRUPT
REQUEST
FUNCTION.
•
ER~OR
7 -
INTERNAL
REJECT
ON
A
DATA
INTERRUPT
REQUEST
FUNCTION.
•
E~~OR
R -
EXTERNAL
~EJECT
ON
A
START
HOTION
FUNCTION.
•
FP.~OR
q -
INTERNAL
REJECT
ON
A
START
HOTION
FUNCTION.
•
ER~OQ
A -
EXTERNAL
~EJECT
ON
STATUS
AFTER
OUTPUTTING
A
START
HOTION.
•
FRROR
B -
INTERNAL
REJECT
ON
STATUS
AFTER
OUTPUTTING
A
START
HOllON.
•
ER~OR
C -
AFT~R
OUTPUTTING
AN
EQUIPMENT
Cl~AR
AND
START
MOTION
FUNCTIO
•
ONLY
POHF~
O~,
BUSY,
ANO
READY
STATUS
BITS
SHOULD
MAVE
BEEN
·SET.
CHECK
ST~TUS.
•
ON
ERRORS
1
TO
C
•
THE
TEST
HILL
REPEAT
IN
THE
SAME
LOOP
UNTIL
THE
ERROR
CONDITION
IS
•
CORRECTED.
O~
ERRORS
'3
AND
C
STATUS
BITS,
TAPE
LOW,
ALARM
ANO
PROTECT
·ARE
NOT
CHE~KEO.
THE
CHECKING
OF
THESE
BITS
IS
DONE
IN
THE
PUNCH
FRAME
•
QRIVER
(SEE LISTING
TAG
PPT).
..
ER~OR
0 -
EXTERNAL
~EJECT
ON
A
CLEAR
OR
REQUESr
INTE~RUPT
FUNCTION.
..
ER~OR
[ -
INr~RNAL
qEJECT
ON
A
CLEAR
OR
REQUEST
INTERRUPT
FUNCTION.
• THIS
ERROR
HILL
REPEAT
ON
THE
SAME
LOOP
UNTIL
THE
ERROR
..
CONDITION
IS
CORRECTED.
•
ER~OR
F -EXTERNAL
REJECT
ON
A
STOP
MOTION
AND
CLEAR
INTERRUPT
..
FUNCTION.
•
ERROR
10
-
INTERNAL
REJECT
ON
A
STOP
HOTION
AND
CLEAR
INTERRUPT
•
FU~CTION.
•
ERRORS
11
~NJ
12
ARE
NOT
USED.
•
ERROR
13
-
EXTERNAL
REJECT
ON
STATUS
AFTER
OUTPUTTING
A
CLEAR
INTERRUP
•
AND
STOP
HOTION
FUNCTION.
•
ERRO~
14
-
I~TERNAL
REJECT
ON
STATUS
AFTER
OUTPUTTING
A
CLEAR
INTERRUP
•
ANn
STOP
MOTION
FUNCTION.
•
ERROR
15
-
A~TER
OUTPUTTING
A
STOP
~OTION
AND
CLEAR
INTERRUPT
FUNCTION
·ONLY
POWER
ON
AND
R~ADY
STATUS
SHOULD
HAVE
9EEN
SET.
•
BEFORE
ERRORS
F
TO
1'3
THE
rEST
DELAYS
10MS.
TO
ALLOW
THE
LAST
FRAME
TO
•
BE
PUNCHEO
A~D
BUSY
STATUS
TO
OROP.
ALSO
THE
TEST
HILL
~EPEAT
IN
THE
..
SAME
LOOO
UNTIL
THE
ERROR
CONDITION
IS
COR~ECTEO.
ERROR
15
DOES
NOT
..
CHECK
FOR
TAPE
LOW,
ALARM
AND
PROTECT
STATUS
BITS.
..
~RRO~
16
EXTERNAL
REJECT
ON
A
CLEAR
INTERRUPT
FUNCTION.
..
ERRO~
17
-
INTERNAL
REJECT
ON
A
CLEAR
INTERRUPT
FUNCTION.
•
ERROR
18
-
EXTERNAL
REJECT
ON
A
DATA
INTERRUPT
REQUESl
FUNCTION.
•
ER~OR
lq
-
I~TERNAL
REJECT
ON
A
DATA
INTERRUPT
REQUEST
FUNCTION.
•
ER~ORS
lA
TO
iF
ARE
NOT
USED.
•
ERROR
20
-
EXTERNAL
REJECT
ON
A
CLEAR
INTERRUPT
OR
DATA
INTERRUPT
..
REQUEST
FUNCTION.
000'37
00059
00060
00061
00062
0()()63
00064
00065
00066
00067
00068
00069
00070
00011
00012
00013
00014
00015
00076
00077
00078
0007Q
00060
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095
00096
00097
00096
011099
00100
00101
00102
00103
0010
..
00105
00106
PAGE
3
0107
0106
0109
0110
0111
0112
0113
0114
0115
0116
0117
0118
0119
0120
0121
0122
0123
0124
0125
0126
0127
012A
0129
0130
0111
0132
0133
0134
0135
013&
0137
0138
0139
0140
0141
0142
PTP001
60220300
E
P~GE
4
DA
Tn
10/20175
•
rR~OR
21 -
INTERNAL
REJECT
ON
A
CLEAR
INTERRUPT
OR
DATA
INTERRUPT
00107
•
R[QU~ST
FUNCTION.
00108
•
ERROR
S
22
AN~
23
ARE
NOT
USED.
00109
•
ER~OP
24
-
EXTERNAL
REJECT
ON
STATUS
JUST
8EFORE
OUTPUTTING'THE
00110
•
NEXT
FRAME
OF
DATA.
00111
•
rR~O~
25 -
INTERNAL
REJECT
ON
STATUS
JUST
BEFORE
OUTPUTTING
THE
00112
•
NEXT
FRAME
OF
OATA.
00113
..
ER~OP
2&
-
EXTERNAL
RfJECT
WHEN
OUTPUTTING
FRAME
OF
OATA.
00114
4f.ERR1P.
27
-
HlfER!:!UPT
STATUS
(flIT
2'
IS
SET.,
ONL'"
DATA
INTERRUP
T
01)
115
·REQUESTED
9UT
~ATA
READY
STATUS
IS
NOT
SET.
0011&
·F.RROR
28 -
INTERRUPT
BIT
IS
SET.,
BUT
DATA
INTERRUPT
AND
ALARH
INTERRUPT
00117
·~ITS
n~E
CLEAQ.
00116
·[RRO~
29 -
INTERRUPT
AND
DATA
READY
BITS
SET,
BUT
INTERRUPT
HODE
IS
NOT
00119
·SELECTEO
9Y
rYE
PROGRAM.
00120
•
ER~OP
2A
:
ALARM
STATUS
UP
AND
TAPE
BREAD
STATUS
UP.
THE
TEST
WILL
00121
..
HII~G
HERE
UNTIL
THE
B~.EAK
IS
~EPAIREDAND
THE
PUNCH
MAOE
00122
•
p.E~nY.
00123
•
f.R~O~
28
~
AL~~M
STATUS
IS
SET
BUT
NO
ALARM
8IT
CAN
BE
FOUND,
POWE~
ON
00124
•
IS
SFT
ANO
fADE
BREAO
ANn
TAPE
LOW
A~E
RESET.
00125
..
ERROR
2C
-
START
HOTION
HAS
BF.EN
OUTPUTTEO
AND
REAOY
STATUS
IS
SET.
00126
•
BUT
BUSV
IS
~ESET.
00121
•
ERROR
?O-
POWF.~
ON
STATUS
MOT
SET
00128
•
ER~O~
2E
-
TH~
PUNC~
HAS
D~OPPED
READY
AND
WILL
HANG
HERE
UNTIL
IT
IS
00129
•
MADr
PEAnv
A~AIN
BY
THE
OPERATO~.
00130
•
ER~OP.
2F -UNIDENTIFIED INTERRUPT.
00131
•
ERROR
30
-
ALARM
IS
SET
ANO
POWER
ON
IS
RESET.
CHECK
STATUS.
00132
•
ER~OR
31
-
EXTERNAL
REJECT
ON
STATUS. .
00133
•
ER~OR
32
-
INTERNAL
REJECT
ON
STATUS.
001J~
~
ERROQ
33
-
EXTERNAL
R~JECT
ON
A
START
HOT
ION
FUNCTION.
00135
•
ER~O~
34 -
tNTERNAL
REJECT
ON
A
START
HOTION
FUNCTION. 0013&
·ERR~R
35
-
EXT~RNAL
~EJECT
ON
STATUS
WHEN
ENTERING
INTERRUPT
PROCESSOR
00131
.OR
AFTER
~A~ING
PUNCH
REAOY
ANO
STARTING
HOTION
FOLLOWING
A
TAP~
BREAK.
00133
·ERPOR
36
-
INT~RNAl
QEJECT
ON
STATUS
WHEN
ENTERING
INTERRUPT
PROCESSOR
00139
·op
~FTER
MA~ING
PUNCH
READY
AN~
STARTING
HOTION
FOLLOWING
a
TAPE
BREAK.
00140
• ER10R
40
-
TIMEOUT
WAITING
FOR
AN
INTERRUPT
PTC2
00141
•
ER~OP
41 -
VALIO~TION
ERRO~-
STATUS
BIT &
~ET
···00142
PAGE
4
c:-'
('
"-
...
c
/",",
(
\
..
,.r'
(
('
\"
(~
'-.
",
(~'
I I
'-../
(~)
",---
....
,'
U
c)
0
PTPOO3
PAIjF. 5 DATE'
10/20175
0
0144
OGOl
E'1U
CONTPOL
(U
RETUqN
SHH
CONTROL
aDDRESS.
00144
0145
0002
EQU
STOPX
(CONTROL+
1)
ALL
STOP~
ANO
EPROR
TYPEOUTS
00145
rO
"",
0146
U
0147
0148
00:]3 EQU ElCIHSTOPX+l1 ENOOF TEST-PASS
EXIT
00146
OOOlt
EflU
NONDATAI
NT
(EXI
It-
it
REQUEST
INTER~UPT
ADDRESS
00t47
0005
EQU
FCLRINT(NONOATAINT+lt
FAK~
INTERRUPT
CLEAR
~OUTINE
00148
0149
0006 Eau JUMPX(NONOATAINT.2)
CHECK
SKIPSHITCH
FOR
PARAH
ENTRY
001ftg
C)
0150
0151
0152
ona7
E1U
GENRAN(JU!'4PX"lJ
RANDOM
NUMBE~
GENfRATOR
00150
oooa
EQU
TYPEOUT(GEN~AN+l)
HESSAGE
TYPEOUT
ROUTINE
00151
00013
EQU
TTYBZY(TYPEOUT+l)
ROUTINE
TO
HAlT
TTY
NOT
BUSY.
00152
0153
OOOA
EQU
HEXASC(TYPEOUT+2)
HEX
TO
AseII
CONVE~SION
00153
0154
Ofll1B
EQU
OVI?LAY
(HEXASC+
U
OVERLAY
CALL
ROUTINE.
00154
0
0155
0156
0157
oonc
EQU
RELPOS
(OVP.LAY+1)
A/a
qELATIVE POSITION TEST.
00155
0000
EOU
HAINU RFLPOSt-t)
HANUAL
INTER~UPT
ROUTINE.
00156
0042
EOU
SETHASK(HAINLt-531 H REGISTER
RESET
VALUE.
00157
0158
004.3 Eall
~T
JP
(SETMA
SKt-U STOP/JUMP
PARAMETER
HO~O.
00158
0
0159
0160
0161
004'+
EQU
LA
STVALU
(ST
JPH
J
HONITO~
A~EA
LWA+l
0015Q
0045
EOU
LASTAO(STJP+2)
AVAILABLE
LOAD
CORE
FHA. 00160
0047
Eau
LDLr.O~E(LASTAD·2)
BANKO
LAST
AOOR
00161
0162
00
'
..
'3
EQU
LOLlr.OR(LDLCO~E
..
t)
SANKl
LAST
AOOR
00162
C
0163
0164
0165
0166
0167
0166
0169
0049 Eau INFORM(LOLICOR+11
BKO
SIZE,
MASK
SI1E,
BUSY
SWITCH
00t63
O()56
EQU
SMMCNT(INFORM+13)
SHH
PARAHETER
WORD.
00164
0068
EQU
fHTO
0 (SHMCNT+2U
XXXXXXXX
CONSTANT
TABLE
XXXXXXXX
00165
005'3
fQU
BITO
(enoo.
00166
006C
EQU
BITl
(BITO"1)
00167
0060
E'lU
8IT2
(BIT1+!)
00166
006E
(au
BIT3 (81T2+11
00169
0170
OOoF
fQU
AIT4(8IT~+1)
00170
0171
0070
EQU
8I
T5
(BIT4+
1l
00171
(---')
0172
0173
\....J
0174
0071 E1U BIT6
(FHT5.1)
00172
0072
EQU
13
IT 7 {
131
T
6+
11
00173
0073
EaU
BIT8(B1T7+1)
00174
0175
0074
FQU
BIT9(91T8+11
00175
C),
0176
0177
0176
0075
EQU
9ITI0(RIT9+it
00176
0076
[au
'SIT11(
AIT10+U
00t77
0077
EQU
9IT12(BIT11+t)
00178
0179
0078
EQU
BITt3(
BIT12+ U
00t79
CI
0180
01!\1
0182
007Q
E(lU
81T14
(fUT13+
U
00180
007A
EI)U
81
T15
(81
Ti4+
U
00181
007g
EQU
HOOOO(81T15+1)
00182
01'\3
007C
Eau
HFFFF
(HO
00
0 +
11
00183
0184
007r)
Eau
HOOOf"{HFFFF+U
00184
C)
01R5
01R6
01R7
007E
fQU
HOOFO(HOOOF+1)
00185
007F Eau
HOFOO(HOOFO+U
00186
0080
EQU
HF(100(HOFOO"U
00187
0188
OO~t
EQU
HOOFF(HFOOO+ll
00186
(-"
0189
~I
0190
,
0191
0()82 Eau HFFOO(HOOFF+1t
00189
0033
[aU
HFFFO(HFFOO+i)
00190
O(J1i4
fau
HO
FFFC
HFFFO+1)
00191
0192
00a5
EOU
HFFQF(HOFFF"U
00192
C:
01g3
0194
01g5
QO~6
EaU
HFOFFCHFFOF+ll
00193
0387
Eau
H7FFFCHFOFF+U
00194
0988
Eau
H7FOO(H7FFF+1)
00195
01g6
0089
fllU
H0780 (H7FOO+t)
00196
0 EO?20300 E
PAGE
C;
~.""
U
()
0197
019~
019Q
0200
0201
0202
0203
0204
0205
0206
0207
0208
0209
02tO
0211
PTPQ03
008:\
00'89
0091
OOg2
0"68
0056
00 /
.3
0007
OODA
0008
0005
OOOB
0043
0003
o
OO.A
60220300
E
PI\GF.
EOU
EQU
EQU
EflU
EQU
EQU
EQU
EQU
EQU
EQIJ
EQU
EQU
EQU
EQU
E'QU
DArn
10/20175
H007F(H078U+U
H2020CH007Ft-U
TSACTV(H2020t-6)
TSFRFQ
(TSACTVtU
CONSTCBITOO)
SHMPAR (SHHCNTJ
SJPARCSTJP)
RANDOM
(GENRANl
C'Ot\lVERH
HEXASCI
HESSAG
(TYPEOUTl
CLRNO«
FCLP.INTl
TYPE
(TYPEOUT)
SJ(STJP)
TSEXIT
(EXIT)
CONV(HEXASC)
TABLE
INOEX
TO
TEST
IN
CONTROL.
TEST,
FREOUENCY
TABLE'
00191
00198
00199
00200
00201
00202
00203
00204
00205
00206
00201
00206
00209
00210
00211
PAGE
c
(----'
\"".,,'
,...-"
I.,
\""
\,
....
(
\
..
, .
c
u
()
o
o
o
c
o
o
o
o
o
prpoo
3
0213
POOOO
1808
0214
ponnl
5054
PonOl
5030
POOO3
3033
0215 POlliJ4
ao
.113
0216
POOO5
01]29
0217
PonOil
OOCl
0218
POOO7
0002
0220
POOOS
5623
0221
rOOO'J
18QO
POOOA
OOFJA
0223
0224
0225
0226
0227
0228
0229
0230
0232
POOOS
caoo
POaGe
04'5Q
0233
pooo:)
0105
0234
rOf)OE
CtilA
0235
POOOF
Ot05
0236
P0010
OQFE
0237
POOlt
6817
0238 POt)12 5401
0239
POl)13
tcoa
POO14
0391
0240
POO15
COOO
POOl?
0026
0241
POO17
f400
POO18
0043
0242
POO19
OFA6
0243
POOIA
0173
02'+4 POOto
9000
P001C
0000
0245
Ponl0
6ROA
0246
POOH:
CBOO
P001F 004F
01)2211300
E:
p
P
P
P
PAGE
7
PTPOflJ JMp·
ALF
PARAD!"?
AOC
R~TU~N
ADC
EQUIP
NUM
PHl
NU..,
START
RTJ¥
INPA~A
STWOP
JMP
r.NT~L
DATE'S
10/20/75
START
3,PTPOOJ
r:NfWPO-l
INITIAL
$Cl
~2
~ESTA~T
FOR
THE
TEST
GET
PARAMETERS
AND
GO
TO
CONTROL
PTC2
PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
•
PTC2
•
TRADE
OFF
CONTROL
DURING
PTC2
•
WAIT
FO~ INTE~~UPTS
PTC2
..
WILL
ONLY
TRADE
OFF
1000
TIMES
WAITING
PTC2
•
FOR
THE
INTERRUPT
TO
OCCURE
-
IF
NOT
PTC2
•
THEN
REPORT
ERRO~
40
PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
CHECK
LOA
INT1'100F
SHM
WILL
PASS
CONTROL
TO
HE~E
PTC2
SAZ
CHECKl
CHECK
IF
TEST
IN
INT
HOOE
PTC2
LOA·
COJNTl
TIMEOUT
COUNTER
PTC2
SAZ
CHECK2
PTC2
INA
-1
PTC2
STA·
~OlJNTl
PTC2
RTJ-
(G()~TROU
NO
TIME
OUT
-
RTN
TO
SMM
PTC2
CHECKl
JMP
(OELAV)
TEST
CURR~NTLY
IN
CHARACTER
1'1
ODE
PTC2
CHECK2
LOA
=XCHECK4
Loa
STJD
QLS
6
saM
CHECK3
CKEP
IF
NO
BI
AS
REQUIRED
SUO
=XPTPOO3
STA·
GHECK4+1
SET
DISPLAY
RTN
AOOR
CHECK]
LOA
sr::;rIONS
00213
00214
00215
00216
0!l217
00218
00220
00221
00223
00224
00225
00226
00227
00228
00229
00230
00232
00233
00234
00235
00236
00231
00236
00239
00240
00241
00242
00243
0024
....
00245
0021t&
PAGE
7
PTP003
0247
P0020
8071
0248
POO21 6S'05
024Q POO22
0844
0250
P0023
5402
0251
POO24 1BEE
0252
POO2e;
OJ06
0253
P0026
0000
0254
P0027'0024
P
0255
POO2S
0000
0257
0256
0259
021)0
0261
0262
0263
021)4
0265
0266
0267
0266
0269
0270
0271
0272
0273
0274
0276
POo?,q
5800
P002A
0538
0277
POO2S
0000
0276
P002e
CAOO
0279
P0020
AS10
0280
POO2E
E83F.
0281
P002F
0141
0282
POO30
0874
0283
POOll
6808
0264
P0032
51\00
POOll
02ES
0285
POOl4
COOO
POOlS
0000
p
0286
POOl6
5402
0287
P0037
1606
0288
0036
p
02SCJ
P003S
0331
60220300
E
PAGE
8 OATEt
10/20/75
AOO-
IUTI)
SET
ERROR
40
STA·
CHE~K4
SET
SECT/ER~OR
CLR
A
RTJ-
(STOPX)
REPORT
ERROR
40
JHP·
CHECKl
NUH
$308
CHf.'CI{4
NUH
0 SECT/ERR
ADC
CH~CK4-2
RTN
AOOR
COUNT!
NUH
{)
PfC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
• PTC2
• PTC2
•
INITIALIZE
AND
GET
PARAMETERS
PTC2
• TEST PARAHETERS- PTC2
•
CNTW~O-
PTC2
• 81
TS-
PTC2
•
14
RUN
TEST
WITH
8
LEVEL
PATTc~NS
PTC2
•
13
RUN
TEST
WITH
7
LEVEL
PATTERNS
PTC2
•
12
RUN
TEST
WITH
5
LEVEL
PATTERNS
PTC2
•
ONLY
ONE
BIT
MAY
BE
SET
IN
THIS
GROUP
PTC2
•
11
1::
RUN
TEST ENTIRELY IN INTTERPT
HOOE
PTC2
• 0 =
~UN
TEST
IN
BLTH
INT
ANO
CHARACTER
MOOE
PTC2
• 10 1 =
OMIT
OElAY IN
CHARACTER
HODE
PTC2
• 0 =
INCLUOE
DELAY
IN
CHARACTER
HOOE
PTC2
•
7-0
fEST SfCTIONS PTC2
• PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
···~··········PTC2
INITIAL
RTJ
INTT!
INPAR.A
NUM
$0
LOA·
CNTWRO
ANO·
INPAR2
LOQ.
INMONLY
SQZ
1
EAQ A
STA·
CNTWRO
RTJ
CHCHM
INPUT
PARAMETERS
REHOVE
RIT10
INTER~UPT
HQOE
ONLY
FLAG
SWITCH
TO
CHARACTER
MODE
LOA
=XPTP003
RTJ-
(STOPX)
JHP·
INPAR!
ORG
~
NUH
$0331
PARAMETER
STOP
STOP
10
PTC2
PTC2
PTC2
00247
00248
0024Q
00250
00251
00252
00253
00254
00255
00257
00256
00259
00260
00261
00262
00263
00264
00265
00266
00267
00268
00269
00270
00271
00272
00273
00274
00276
00277
01)278
00279
01)280
00281
00282
00283
00284
00285
0028&
00287
00288
00289
PAGE
c
l
, ....
c
C~
I
\
/
I
'"
c
(~
'
......
"
C~
u
u
o PTPOOJ
PAGE
q
OAT
E'I
10/20175
0291
P003Q
403F
CNTlHO
NlJt1
$403F
CON
TROL
WORD
00291
0292
PO
OJ
1\
001E REPf1\f
NUH
30
REPEAT
PATTERN
CYCLE
COUNT
PTC2
00292
0293
POO1'3
OGOO
Of
lAY A
NUM
~O::;OO
INCREASE
DELAY
CHAR
Tn
INT
MODE
,LESS
8ETWEPTC2
00293
0294
PO
iLtC
OFOO
DfLAYA
NUH
$OEOO
PTC2
00294
0295
PO
0
~8
0400 DflAYC
NUM
~OI+Of)
OECREASE
DELAY
INT
TO
CHAR
HOOE
SWITCHING
PTC2
00295
0296
POOl-=':
11002
TNTl1
NUt1
2 INTERRUPT LINE
ASSIGNHEHT
••
..
00296
0298
POO3F
5800
INPA~1
RTJ
CiHNH
SET
UP
FOR
INT
HOOE
IF
IT
WAS
IN
IT
BEFORE
00296
POO40
02FF
0299
P0041
Cf\F7 LOA·
CNTWRO
00299
0300 POO42
AI)
76
AND-
CONST-t·l1
0800
00300
0301
POO43
6829
STA~
INIfO'JlY
INITIALIZE
INT
ONLU
FLAG
PTC2
00301
0302
POO4
lt
C,\F9
lDA.f.
TNTU
PTC2
00302
0303
POO45
I)~C.l
~rA"
INTi
HOVE
INT
LI
NE
BIT PTC2
00303
03!l4
PO!)4~
C8F2
LOA"
CNTWI).O
00304
c
0305
P0047
AO
75 ANO-t::ONST.tO
041)0
00105
0306
P004iJ
6825
STA-l/o
OMI
TOEt.
INITIALIZE
OMLU
CHAR
fJlOOE
DELay PTC2
00106
0307
POOld lCE1
JMP""
HNPARAJ
00307
0308
POO4A
F7FF
INPA~2
NUM
$F7FF
00306
c
0310
POOI+U
0000
CHJMr'f:,
NUM
$0
CHECK
IF
JUMP
SWITCH
6
IS
SET
00310
0311
POO4C
C075
lOA-
CONST+l0
00311
0312
POO4fl
5800
RTJ JU"fP
REOIS~LAY
PARAMETE~S
IF
STOPO
AND
JMP
6
IS
00312
POO4:::
l12Afl
0313
P004t:"
1802
JHP""
C-fJPl
YES
JMUP
6
IS
SET
00313
0314
P0050
1GFA
JMp·
(CHJMPfl)
NO
RETURN
00314
031'.) POOSt 5R09 CHJPt
RTJ~
PJPM~A
00315
0316
POOC;Z
C81.A
CHJP1A
lOA~
HP10Nl
Y
00316
0317
POO53 E800
LOQ
INTMOOE
00317
P0054
01+11
0318
POf)5S
0143
SQZ
CI-fJP2-""-1 INT
MODE
WAS
SELECTED
BEFO~E
""NO CHJP2
00316
0319
P0055
011C
SAN
Ci-I
JP4-
"-1
YES
INTS
ONLY
BEEN
SELECTED
NO
CHJP4
00319
0320
POO57
OA02
ENA
2
NO
CLEAR
INTS
REQU~ST
00320
0321
P0053
1803
JMP·
CHJPJ
00321
0322
POOC;g
o
109
CHJP2
SAZ
CHJP4-""-1 INT
ONLY
BEEN
SELECTED
""NO
CHJPI+
00322
0323
POO5A
OA04
ENA
4
00323
c
.
0324
P0053
E!JO[)
CHJP3 lOQ
PSTATUS
YES
SELECT
INTS
00324
P005e
04~7
0325
PO'JSO
0500
lIN
0 INHABIT
INTERRUPT
SO
THAT
YOU
OONT
GET
00325
0326
""
ONE
RIGHT
AFTER
YOU
REQUEST
ONE
00326
o
0327
POO5E
ORoa
Nr)P
0
00327
0328
P005F
0310
OUT
ERRO-""-l
REQUEST
DATA
INTERRUPT ..
..,.EROE-OO
.. •
00328
032Q
POOO']
OFC2
AlS 2
00329
o
6022:J300
E
PAGE
("'\
\ I
c-··
(~
'-
.....
('"
\....
..
C
('-
I
'
.....
"
..
PTPOO~
PAGF
10
oAT!:1
10/20/75
(~
0330
POOGl
6800
STA
STATECH
IF
INT
SELECTED
SET
STATE
CHANGE
SW
00330
',--
.
P0052
0405
0331
POOG'3
C805
CHJP4
LOA'"
eNTW!:!"
0332
POOG4
A076
AND-
:ONsr+u
0333
P0065
6600
STA
INTHOOE
00331
r
00332
00333
POOGo
03FF
0334
POOG7
OAtO
FNA
$10
0335
POOG3
5800
RTJ
JUMP
~EPE'AT
CONDITIONS
P006Q 07.8B
00334
00135
r-"'-
(
"-
0336
P006A
lA~7
JMp·
CHJPIA
YES
00336
0337
PODGfl
lCOF
Jtww.
C~HJMP6)
00137
,-
I
f"
033Q
POOGe
0000
IUMONL
Y
NUM
$r:J
~UN
TEST
IN
INT
MODE
ONLY
0033Q
0340
POOGD
0000 OMIF1EL
NUM
~o
OMIT
DELAY
IN
CHAR
HOOE
00340
'-.
0341
POf]6E
0000 SECTION
NUH
'1'1
SECTION
NUHBER.
00341
('
0343
POOGF
'H7A E?RF.
RAO·
CTERS
00343
0344
P0071J
Of\7:'J
E~Rn
RAO·
CTI='RS
IN
REJECT
00344
0345
P0071
OAoe
ENA
lC
00345
0346
P0072
51378
R.T
J"
E~~ORS
00346
0347
POO73
130E JM!n CHJPtA
00347
(
I
(
'-
r '
(
00220300
E
PAGE
10
(
o
o
PTPOO3
PAGF
11
OAT!:I
10/20175
o 034Q
POO74
C892
CNTRL
LOA"
INTi
00349
0350
P0075
BOoC
fOR-
GONST+l
CHECK
INTFRRUPT
LINE
00350
0351
POO76
0115
SAN
CNTRL1-"-1
IS
THIS
PUNCH
ON
LOW
SPEED
00351
0352
POO77
C6RE
LOA"
EQUIP
HAVBE
NOW
CHECK
EQUIP"AOn~
00352
0353
P007~
AOOO
AND
=N$FFIlO
00353
r007Q
FFHO
0354
P007A
13072
EOR.-
CONST.7
00354
o
0355
P0070
alOE
SAZ
CNTRL4-"-1
IS
THIS
PUNCH
ON
LOW
SPEED
00355
0356
POO
7C
C8/lA
CNTRLI
L!lA"
INTI
NO
00356
0357
POO70
OCOF
PJQ
15
00357
0358
P007E 0133
CNTRL2
SA'"
CNTRLJ-"'-l
00356
0359
P007F
O!lFE
INQ
-1
00~359
031)0
POOllll
OFCl
ALS
1 IN A
TO
INTERRUPT
LINE
00360
0361
P0081
18FC JHP" CNTRl2
NUMBER
IN
Q
00361
0302
P0082
0814
CNTRL~
TRQ
A
00362
0363
00083
Og42
CLR
Q
00363
0364
P0084
21160
MUI-
CONST+2
0036,.
'''--
0365
POO85
8000
ADD
=N$102
BUILD
ADDRESS
WHERE
PROCESSOR
00365
P0085
0102
0366
Pooa7
0822
TRA
Q
ADORESS
WOULD
BE
STORED
IF
001&6
[
0367
P0088
C201
LOA-
1,0
THIS
INT
LINE
WFRE
SELECTED
00367
0368
POOI}g
011g
SAN
CNTRL5-"-1
HAS
THI
S LI
NE
BEEN
SELECTED
00366
0369
POO8A
6800
CNTRL4
STA
INTFLG
YES
CLEA~
FLG-NO
OTHER
00369
POO3) OJR4
0370
POORe
E800
LJQ
EOJIP
00370
"OOHD
FF71J
0371
P008~
C800
LOA
INp
00371
POO~F
FF77
0372
pongo
t;404
RTJ-
(NONDATAINT)
REQUSST
INTERRUPT
LINE
FROM
SHH
00372
0373
POOgl 0410 P REQIrn
AOC
INTENTRY
00373
0374
POOg~
1808 J~p" (:NT18
CONTINUE
00374
0375
Pon93
C201
CNTRL5
LD"~-
1,0
YES
00375
0376
P0094
OR2?
T~A
Q
00376
o
0377
P0095
B~FB
EOC!tI-
"R!:OINT
DID
THI
S
TEST
ALREADY
SELECT
00377
0378
POOgS
0103
SA
Z CNT1B-"-1 THIS LINE
00378
037«3
POOg7
CJ}Fg
LOA'"
RE'1I
NT
NO
00379
0380 P0091l
O~Ff)
INQ
-2
00380
o
1l3S1
PO
0 9'J
6201
STA- 1,(1
00381
o
0383
,.
...........
,.
................
,..,.,..,.
........
,.
......................
,.
.................
,.,.·
...
•
......
,.··
......
•
..
,.PTC2
00383
0384
..
PTC2
00364
0385 •
CONTROL
ROUTINE
PTC2
00385
G
0386
..
VERIFIF.S
IF
THE
OEVICE
ONLOH
SPEED
PC
KG
OF
TOHER
CONFIGUPTC2
00366
03~7
..
BUILDS
HEX
TNT
LINE
ASSIGNMENT
PTC2
00367
0388
..
RfQUESTS INT
LINE
F~OH
MONITOR
PTC2
00388
0389
,.
INITIALIZES
HaDE
SWITCHF.S
PTC2
00369
c 0390
..
~L~ARS
THF
PUNCH.
CHECKS
STATUS-
ROY,RWR
ON
PTC2
00390
0391
,.
STARTS
HOTIIN,
CHECKS
STATUS-
ROY,BZY,OATA,PWR
ON
PTC2
00391
03Q2
,.
INITIALIZES
INT
WAIT
COUNTER
PTC2
00392
c
60220300
E
PAGE
11
o
o
03Q3
0394
0395
03CJ7
0398
0399
0'+00
0401
0402
0403
0'+05
0406
0407
0408
0409
0410
0411
0412
0413
0414
0415
0416
0417
0418
0419
0420
0421
0422
0423
0424
0425
0426
0427
0428
0429
PTP003
P0091\ 0844
P0098
6600
P009C 03C9
POOgO
6800
P009E
CBgA
P009F
A8AA
POOAO
81116
POOAl
6897
POOA2
f800
POOA3
0400
POOA4
OAOl
POOAS
033F
POOAIj
023C
POnA7
f)86'.
POO
A8
AOOO
POOA9
F75F
POOAA
0000
POOAiJ
0401
POOAC
0101
POOAD
1834
POOAt
OA
10
POOAF
5ROO
POf)BO
0244
POOBl
16F"0
POOR2
E800
PO·OBl
03FO
POOB4
OA20
POOBI)
0325
POOR&
0222
POOB7
6854
POOB6
A8FO
POOB9
8000
POOBA
04013
P0069
0101
POOBe
1819
pooao
OA10
POOBE
5800
POOBF
0235
POOCO
18Ft
POOGl
COCO
POOC2
0113 P
60220300
E
..
•
PAGE.
12
DATEI
10/20'75
TRAOES
OFF
TO
SMM
MONITOR
PTC2
PTC2
...
~
..........................................................
·············PTC2
CNT19
CLR
A
STA
INTfo100E
STA.
SECTION
LOA·
GNTWRO
ANO·
INPAR2
EOR-
CONST+11
STA·
CNTWRO
eNT!
LDQ
PSTATUS
ENA
1
OUT
fRq1-·-1
INP
ERR3-·-1
STA·
ERSTAT
CNTtl\
AND
=N1F75F
EOR
=N$401
SAZ
1
Jf1p.
F~R5
ENA
$10
RTJ
JUMP
JHp·
CNTl
CNT2
LOQ
PSTATUS
ENA
t20
our
Eq~8-"'-1
INP
ERRA-·-1
STA·
E~STAT
AND·
C~T1A+1
EOR
=N$40B
SAZ
1
JHp·
ER~C
ENI\
$10
RTJ
JU'1P
JHp·
CNT2
CNT2/\
LOA
=XGSOOA
YES
CLEAR
INT
HOOE
SWITCH- INDICATE
CHAR
HOOE
PTC2
CLEAR
SECTION
NUMBER
PTC2
STA~T
PUNCH
IN
INTERRUPT
HODE
SET
BIT
t!
(INT
HODE)
GLEAR
THE
PUNCH
0800
··ER01-02··
··EQOJ-04··
00
NOT
CHECK
PROTECT
ALARM
OR
TAPE
LOW
BIT
EXPECT
POWER
ON
,
READY
•••
ERROR
EXT£R
STATUS
BITS
REPEAT
CONDITIONS
YES
NO-
CONTINUE
S
TART
MOT
ION
PTC2
PTC2
"·EROS-09··
··EROA-OB··
DO
NOT
CHECK
PROTECT
ALARM
OR
TAPE'LOW
BIT
EXPECT
ROY,
BZY,OATA,
PWR
ON
PTC2
••
ERROR
EXTER
STATUS
BITS
··EROC~····
~EPEAT
CONDITIONS
YES
NO-
SET
UP
FOR
INT
HOOE
PTC2
00393
00394
00395
00397
00396
00399
00400
00401
00402
00403
00405
00406
00407
00408
00409
00"10
00"11
00412
00413
0041"
00"15
00"16
00417
00418
00419
00420
00421
00422
00423
00424
00"25
00
..
26
00lt27
00428
00
'+2
9
PAGE
12
c
c
c
(
"-
".-
~,
(
\,
(--
(".-
\
'-.-
('
r-"
'1,,--
,~
l,
C
C
r
u
u
o
o
PTPOO3
PAGE'
13
DATEI
10/20/75
o 0433
Pooe3
6800
STA
PPT
FO~CE
RTN
AOoR
FO
SECTIONS
START
TO
DRIIJERPTC2·
00430
POOC4
0339
G 0431
POOC:;;
COB7
LOA-
H7FFF
00431
0432
POOCo
6800
STA
COUf\Hl
5ET
I
NT
WAIT
LOOP
COUNT
PTC2
00432
POOCT
FF60
0433
POOCS
COOO
LOA
=XCHECK
SET
RETURN
AOOR
FOR
AFTER
TRADE
OFF
PTC2
00433
POOCg
0008
P
o
0434
POOCl\
6800
STA
~ETIJ~N
PTC2
00434
POOCt]
FF3q
0435
PonCG
6600
STA
I
NP.tOO£
SET
tNT
HODE
SWITHC
TO
NON-ZERO
lINT MODEl PTC2
00435
pooco
0398
o
0436
PODCE'
6300
STA
OKINT
OK
FOR
tNT
TO
OCCU~E-SET
TO
NON
ZERO
PTC2
00436
pooeF
0395
0437
POOOI)
6300
')fA
FtR'STINT
NON
ZERO
FOR
FIRST tNT
FLAG
PTC2
00437
POOOl
039.2
0438
POOO2
E800 lOQ
PSTATUS
00438
PO
00.3
0300
0439
POOO
..
OA
04
ENA
!i4
REQUEST
DATA
INTERRUPTS
00439
0440
paoos
U30A
OUT
~RR6-"'-1
...
·ER06-07··
00440
[ 0441
POOOS
5401
RTJ-
(CONTROl)
RETURN
TO
SMM
00441
o
o
o
o
60220300
E
PAGE
13
o
o
n
PTP003
0443
POO07
0812
ERRC
0444
POOD8
0811
ERRB
0445
POOO9
n~10
ERRA
0446
POODA
O'30F
£QR9
0447
POOO!3
080E
ERR8
0448
POODe
OA07
0449
poonu
~IJOO
0450
POOOE
1~03
0452
POOOF
081)A EPR7
0453
POOEt)
01\0.9
ERR6
0454
POOEt 0IJ08
fR~5
0455
POOE2
~807
ERP4
0456
POOE3
0606
ERP.3
0457
POaE'.
0805
ERRZ
0458
PODES
0804
ER!U
0459
POOF.6
OA
00
0460 POOEl 5Jl03
0461
POOE3
18q9
60
~20300
E
PAGE
14
DATE.
RAO'"
CTE:RS
PAO·
CTERS
RAO"
r:T~RS
RAO·
CTERS
RAO'"
CTERS
ENA
7
IHJ'"
ERRORS
JHp·
CNT2
RAO'"
CTt:RS
RAO'"
CT::RS
RAO·
CT::PS
~AO'"
r.TERS
RAO·
CT~P.S
P.AO·
CTERS
=?AO·
CT~RS
ENA
0
RTJ'"
E'RQO~S
JMp·
CNTi
10/20/75
00443
00444
00445
00446
00447
00448
00449
01)450
00452
00lt53
00lt54
00455
00456
00457
00458
00lt59
00460
00461
PAGE
14
C~
C~
c
r
I
c
c
C:
r I
"-./
u
r-'
U
o
o
G
o
o
[
o
o
o
,r)"
\ .
(j
0463
0464
0465
0466
0467
0468
0470
0471
0472
0473
0474
0475
0476
0477
0478
0479
04'10
04lJl
0482
0483
0484
0435
0486
0487
0488
0489
04QO
0'+91
0492
0493
0494
0495
0496
04'l7
0498
0499
0500
0501
0502
0503
0;04
PTPOOJ
POOE9
0000
PO
OE,~
0000
POOEO
8RFO
POOEC
68Fj:;
POOED
CROO
POOEE
FF7F
POOEF
88F9
POOFO
61319
POOFl 4800
POOF2
001A
POOF3
C800
POOF4
0371
POOFS
0101
PilOF6
01304
POOF7
6817
POOFR
0844
POOF':}
68fF
POOFA
C8E'F
POOFO
680F
POOFC
r,1)43
POOFO
AO
74
POOFE
0114
POOFF
CIJOB
P0100
9000
POlOt
0000 P
POI02
fl808
POI0.l 5800
PO-104
0217
P010e; 084'+
POI0o
5402
POl07
1808
POln8 0328
POtOr:}
9000
POI0A 0000
POI0:-l 000f)
P010e
0000
PO!OO
0000
POtOE 0000
POl
OF
51\00
POllO
022F
POIU
tcoa
60220300
E
PAGE
15
OATf1
10/20175
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2·
• '
PTC2
-
ERROR
REPORTING
PTC2
•
PROCESS
ERRORS
1
THROUGH
C PTC2
•
PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTCZ
CTERS
NU~
!O
ERROR~
NUM
$0
ADO·
CTF:RS
STA.
CTE~S
FORM
ERROR
CODE
PTC2
LOA
Sf.~TION<)
CUTRENT
TEST
SECTION
PTCZ
ADO.
CT'::RS
STA·
SEC=:RR
FORM
SSEE
FOR
MSG
prC2
STQ
EREaUIP
CURRENT
HA~OHARE
AOOR
PTC2
LOA
INTHOOE
SAZ
t SKIP
IF
IN
INT
HODE
PTC2
SET
A
STA-\\
MODE!
0=
INT
HOOE,
1 =
CHAR
MODE
PTC2
CLR
1\
STA"
CTt~S
RESET
ERROR
COUNT
PTC2
LOA·
fRRORS
STA·
RfTAOR
SET
~TN
AnOR
IN
HSG
PTC2
LOA-
SJ
AND-
CONSr+9
SAN
OVER-·-l
LOA·
RETAOR'
SUB
=XPTPOOJ
BIAS
IF
NEC~SSARY
PTC2
srA-
~ETADR
OVER
RTJ
CHCHH
WAIT
UNTILl
PROGRAM
CONTROL
IS
RETURN
CL~
A
RTJ-
(STOPX)
JMp·
ERROR!
NUH
~O328
STOP
ID
SEC
ERR
NUM
$0
RETAnR
NUM
$0
ERSTAT
NUH
$0
EREQIJIP
NUM
'ri()
NUH
$1)
MOOEt
NUM
$0
SET
=
INT
HaDE
CLR
=
CHAR
HaDE
ERRO~1
RTJ
CrHNH
SET
UP
FOR
INT
HOOE
IF
IT
WAS
IN
IT
8EFORE
JMP"
(ERRORS)
00463
00464
00465
00466
00467
00468
00470
00471
00472
00473
00474
00475
00476
00477
00478
00479
00480
00481
00482
00483
00464
00465
00486
00487
00488
00469
00490
00491
01)492
00493
00494
00495
00496
00497
00498
00499
00500
00501
00502
00503
00504
PAGE
15
0506
0507
050':\
0~09
0510
0512
0513
0514
0515
0516
0517
0518
051Q
0520
0521
0522
0523
0524
0525
0526
0527
0528
052Q
0530
0531
0532
0533
0535
0536
0537
0538
0539
0540
0541
PTP003
P0112
0000
P0113
OAF5
P0111t
68FO
POllS
0844
POll!)
580.0
POU7
02E6
POll0
!J6Fq
P0119
CfJF8
POl1A
0101
POllS
16Fq
POI1C
E600
POll]
FF1A
POllE
CU77
P011F
08B4
P0120
0102
P0121
OA1F
P012?
1807
P0123
C078
P0124
OSB,.
P0125
0102
P0126
OAlF
P0127
1~O2
P012S
COBl
P012Q
5800
P012A
0203
P0128
E800
P012C
FFoe
P0120
C06S
P012E
08B4
P012F
0111
P0130
1865
POl31
O~44
P013:?
6BOO
PO
13·3
0238
60220300
E
PAGE
1&
OATEI
10120175
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2·
• PTC2
•
FORMAT
TAP~
LEAOER PTC2
• PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
FREQSW
NUH
•
CSOO!\
ENA
-10
STA·
FREQSW
CSOOC
CLR
~
~TJ
PPf
RAO.
F~EQSW
LOA·
F'?E'QSW
SAZ
r:sooo
JMP·
CSI}OC
CSOOIJ
LOO
CNTHPO
LOA-
8IT12
LAO
A
SAZ
2
ENA
SH"
JMo ..
CSOOD1
LD~-
eIT13
LAQ
A
SA
Z 2
EN/\
$7F
JMP.
CSOOOl
LOA-
HOOFF
CSOODl RTJ 'PPT
CSOOO
LOQ
CNTWRD
LOA- CI)NST
LAQ
A
SAt,!
1
JMp·
CS201)
CLR
A
STA
CDMPATEN
FREQUENCY
SWITCH
SET
FREQUENCY
SWITCH
FOP
10
FRAMES
SfT
PUNr.H
CHARACTER
TO
ZERO
WXIT
TO
DRIVER
SKIP
AFTER
10
FRA"ES
CHECK
If'
LEVEL
[3
SET SECTION
10
CHECK
IF
LEVEL
NO
S~T
MASK
IF
YES
MUST
BE
1\
LEVEL
PUNCH
ONE
FRAME
CONTROL
WORD
SECTION
ONE
ZIGZAG
NO
5
SELECTF:O
7 SELECTED
SELECYEO
OF
ALL
ONES
CLEAR COHPLEHENT PATTERN
SWITCH
PTC2
PTC2
PTC2
PTC2
PTC2
0001
00506
00507
00506
00509
00510
00512
001)13
00514
00515
00516
00517
00516
00519
00520
···00521
···00522
···00523
""·00524
···00525
···00526
···00527
···00526
···0052Q
···00530
···00531
···00532
···00533
00535
00536
00537
00538
00539
00540
00541
PAGE
16
c,
C~
C.'
c
r'
f
\,
'.,
(
('
I
I '.
,r
I
"-
(-'
,-
.
C'
,,----.
';
'-
{~
'---
c
~
I
~'
\
V
C
0
0
PTPt)03
PAGE'
17
DATn
10/20175
0
0542
P0134
OCOI
E'No.
1
00542
0543
P0135
COOO
LOA
=XC5Z00
00543
G
POl3o
0195
P
CI
0545
•••••
SE~TION
1 ZIGZAG 0051t5
(~
0
n547
..
THIS
PORTION
IS
USED
BV
ROTH
SEC
1
ANO
2
00547
('"
0548
P0137
4,~4A
CSIOO
STQ·
C510A
STO~E
PUNCH
S£GTION
NUMBER
00548
0549
P013i1
OFA8
o.LS
~
00549
,-j'
0550
P013Q
483C
STo."
S107A
00550
0551
P013A
4800
STo. SECTION
00551
[
POll!]
FF32
0552
POllG
6845
STA·
~S109
00552
0553
POll0
E600
LOQ
CNTWRO
00553
POllE
FEFA
0554
POl3F
CO
77 LDA-
CONSr.12
YE'S
1000
00554
0555
P0140
08B4
LAQ
A
00555
0556
POl4l
0104
SAZ
CSI01-"-!
5
LEVEL
PATTERN
·"NO
SKIP
CSI01
00556
0557
POllt2
EOOO
LOo.
=lCZZ5
YES
00557
P0143
0313
P
'-,
0558
P0144
OA
IF
ENA
't.tF
EXTJ;lACT
VALUE
00558
U
0559
P0145
1808
JMP·
CSI03
00559
0560
P0140
C07!\
CSIOl
LOA-
CO~ST.13
00560
0561
P0147
08B4
LAO.
A
00561
C'J
0562
P0148
0104
SAZ
CS10?-·-1
7
LEVEL
PATTERN
·"NO
SKIP
CSI02
00562
0563
P0149
EOOO
LOo.
=XZZ7 '
YES
00563
P014A
0371
p
0564
P0148
OA7F
ENA
$7F
00564
0565
PO'14C
H04
JMp·
CSI03
00565
C\
056fl
P014)
EOOI1
CSI02
LOQ
=XZZ6 6
LfVEl
PATTERN
00566
POl4E:
Ol6F
P
0567
P014F
CO
81 LDA-
HOOFF
00567
0568
P0150
6800
CSI03
STA
PP~XL
00566
0
P0151
021R
0569
P0152
4840
STo.·
LEVELCT LEVEL
COUNT
00569
0570
PO
15.1
5830
RTJ·
RES
TWO
RESTORE HORD,
WOPO.l,
AND
WORO+2
00570
0571
PO
15'.
OAFS
CSI04
ENA
-10
00571
C)
0572
P015S
683E
STA"
SPACERS
PUNCH
10
SECTION
PUNCHES
IN LEVEL
ONE
00572
0573
P0156
CIJ2C
CSI05
LOA· CStOA
LOAD
WITH
SECTION
PUNCH
NUMBER
00573
0574
POlS7
5"00
RTJ
PPT
00574
P0158
02A5
0575
P01Sg
083A RAO·
S?ACE~S
00575
C)
0576
P015A
C839
LOA" SOACERS
00576
0577
POlSa
0101
SAZ
1 LAST
PUNCH
00577
0578
POlse
18Fq
JHp·
eSt05
NO
lOOP
BACK
00578
C"!
60220300
E
PAGE
17
0
C\
n
'-
./
('
\
....
('
I
'--._,.
(~'
'--
..
-.
('
\....
..
c·
/
PTP003
PAGE
18
OATEI
10/20175
0579
P0150
C600 CI05A
LOA
R::PEAT
YES
C_~
00579
P015E
FEOS
0560
P015F
0864
TCfI
A 00560
('-
0561
P016() 68.34 STA"
CYCLES
NUH9ER
OF
TIM£~
TO
REPEAT
ONE
CYCLE
00581
~-.-.
051\2
P0161
5800
CSI0E)
I?,TJ
G=':NPATT
OF"
ZIGZAG
ZERO
PATTERN
00562
P0162
01EB
0583
P016J
5800
PTJ
PPT
PUNCH
CHARACTER
00583
~
P0164
0299
\
058lt
00165
5800
RTJ
O~LAY
DELAY
(SA H
TOOTH)
00584
\
.........
P016n
02JF
0585
P0167
C800
LOA
SC:CTENnsW
00585
P0163
0205 ,r--"
I
0586
P0169
0111
SAN
1
DONE
HI
TH
ONE
CYCLE
00586
\
...
~
0567
P015A
lRF6
Jf04p\f-
CSI06
NO
00587
0588
P016'l
5818
RTJ"
RE~THO
RESTORE
HORO,
WORO+-l,
AND
HORO"2
00586
0589
P016G 0828
RAO"
CYCLES
001)89 !
.,..-
.
0590
P0160
CR27
LOA"
CYCLES
00590
0591
PQ16E
0101
SAZ
CSI07-·-1
DONE
WITH
THE
NUMBER
OF
CYCLES
00591
~
05Q2
P016F
18Fl
JMP"
C5t06
00592
0593
P0170
5800
CSI07
RTJ
CHGHH
WAIT
UNTILL
PROGRAM
CONTROL
IS
RETURN
005CJ3
,
POt7l
01AA
059lt
P0172
5lt02 RTJ- (
STOPX)
••
STOP
END
OF
SECTION
005CJ4
0595
P017.1
1803
JMP"
(;5108
00595
0596
P0174
0302
HUH
'nn2
10
00596
0597
P017S
0100 S107A
HU"1
$100
SECTION !
OR
2
00597
I
'-
059CJ
P0176
58!l0 CSI01l
RTJ
r::'frNH
SET
UP
FOR
INr
MOOE
IF
IT
WAS
IN IT
BEFORE
00599
P0177
01Cfl /
0600
P0171\ 5800
RTJ
Ci-fJMP6
CHECK
FO~
RE-ENTRY
OF
PARAMETERS
00600
I,
"
P017g
FEn!
060!
P017A
OA20
ENA
~~o
00601
0602
PO!7B
5800
RTJ
J:J~P
RF..:PEAT
S:CTION
00602
(
POI1C
0176
0603
P0170
180F
JMP· Cl05A
YF..:S
00603
'-
0604
PO.11E
E800
LOO
CNTHRO
NO
00604
P017F
FEB9
i-'
0605
POt80
lC!)l
JMp·
(::S109)
00605
r
0606
POllH
01'95 P
CSI09
A£'IC
r,S200 THIS
EXIT
IS
CHANGED
AT
THE
START
OF
SEC.
00606
'--.
0607
P01~2
0001
CSI0'\
NUH
$1
SECTION
PUNCH
NUMBER
00607
c:
0609
P018
J 0000
RES
TWO
NUM
$0
RESTORE
WORDS
IN
GENERATE
PATTERN
00609
('
0610
PO
16tt
OCOO
ENIl
0
00610
0611
P0185
CEllO
LOA·
(LEVELCn,Q
RESTORE
WORO
ANO
WORO.l
00611
'--.-
0612
POl80
0600
STA
WORD
00612
P0187
OIEl
r'''--''
0613
P01SB 6800
STA
HORO+l
00&13
\'
P0189
OLEO
',--
..
0614
P018A 0001
INO
1
00614
r
'-..-'
60220300
E
PAGE
11\
('--
~.
(~'
...........
r---.
~,
.
I
~)
C)
G
o
[
o
o
c\
PTP003
0615
PO
1133
CE07
0615
POl8e
6800
POt8a
0100
0617
P01SE
OR04
0618
P013F
6BOO
P0190
010B
061Q
P019l
leFl
06~1
P0192
0000
0622
P019:J
0000
0623
P019
'•
0000
0625
POIQIj
OA02
0626
P019r,
0884
0627
PO
197
0111
062R
P019a
1807
0630
0632
PO.19"l
oe02
0633
P019A
4800
P019a
01D3
0634
POlge
CO
00
P019!l
019F
P
0635
P019E
1898
0637
P01c)F' OA04
0638
POIAO
08B4
0639
POtAl
0111
0640
P01~2
1862
&0220300
E
PAGF
lq
LOA"
(L
EVELCT) , Q
STA
WO~D"2
SET
A
STA
PPSW
JMP'" (
RES
TWO)
LEVELcr
NUH
~O
SPACEPS
NUM
~n
CYCLES
NU~
$0
CS20!)
ENA
2
LA!)
A
SAN
1
JMP·
CS400
('
DATE!
10/20'75
RESTO~E
S~CTION
2
N:J
WORO"2
SECTION
~
COMPLE~ENT
ZIGZAG
PATTERN
eS201
CS400
ENQ
?
STQ
r::OMPATEN
LOA
=l(CS400
JMP"
CStOO
ENA
4
LAQ
A
SAN
1
J~IP·
CS800
YFS
SET
COMPLEMENT
PATTERN SWITCH
LOAD
SECTION
NUMBER
IN
Q
LOAD
EXIT
VALUE
-
BIAS
IN A
SECTION It
NO
00615
00616
01)617
00618
00619
00621
00622
00623
00625
00626
OOG27
00626
00630
00632
00633
00634
00635
00637"
00636
00639
00640
PAGE
19
PTPOOJ
0642
.............
0644
POIA3
O~44
0645
n01A4 6600
POtA5 01C9
0646
PO
tAo
OC03
0647
POtA7
COOO
P01A6
0204
P
06413
•
0650 POtA9
48513
CS401
0651
P01A/\
OFA8
0652
POtAO 4800
POtAe FECt
0653
POIA) 4848
06S4
?OtAE
6853
0655
P01AF
0844
0656
POtOO
6653
0657
P01['lt
£800
POtR2
FF.86
0658
POtel
C077
0659
POI04
06R4
0660
POtB5
0104
0661
pota6
fOOO
POtR7 037c) P
0662
P0198
OAIF
0663
P01SQ 180C
0654
P01SA C078 CS,.,02
0665
P01!3g 08B4
0666
P01BC
0104
0667
POtRO
EOOO
POtBe:
0377
P
0668
POIBF
OA
7F
0669
PO
tCO
1605
0670
POtCl
EOOO
CS403
POtC~
0375 P
0671
POICl
C081
0672
POtC4 663F
0673
POtCS 6800 CS404
POtC6 OtA6
0674
POtC7
48CA
0675
POtGa
56BA
0676
POtcC)
OAFS
0677
POtCA 68CS
60220300
~
PAGE
20
OATEI
10/20/75
SECTION 4
PYRAMID
PATTERN
CLR
A
STA
COt.1PATF.N
ENQ
3
LOA
=XCS800
STQ'"
CS400
QLS
~
STQ
S~CTION
STO'"
CS40A
STA4
CS40C
CL~
A
~TA·
CS40E
LOQ
eN
THRO
LOA-
CO~ST+12
LAn
A
SAZ
~S402-"-1
LOQ
=XPY5
ENA
'HF
JMP'"
r,S404
LDA-
CONST+13
LAQ
A
SAZ
CS403-·-1
LO'}
=XPY'7
ENA
~7F
JHP·
CS404
LOQ
=XPY8
LOA-
HOOFF
STA4
CS40E
STA
PP~XL
STO'"
LEVELeT
RTJ"
P.ESTHD
ENA
-to
STA'"
SPACERS
CLEA~
COI1PLEMENT
PATTERN
SWITCH
SET
SECTION
IO
THIS
PORTION
IS
USED
BY
BOTH
SEC. 4
ANO
8
STORE
PUNCH
SECTION
NUH9ER
CLEAR
THE
8TH
LEVEL
SH
5
LEVEL
PATTERN
YES
ElCTRACT
VALUE
7
LEVEL
PATTERN
YES
El(TRACT
VALUE
1000
5
OR
7
NOT
SE~ECTED
SO
PUNCH
IN
8
LEVEL
MODE
SET
THE
8TH
LEVEL
SH
LEVEL
COJNT
RESTOQE
HORO,
HORD+l,
AND
HORD+2
PUNCH
10 SECTION
PUNCHES
00642
00644
00645
···00646
00647
00&49
00650
00651
00&52
00653
00&54
00655
0065&
00657
00&58
00659
006&0
00661
00&62
00663
00&64
00&65
006&6
00667
00&68
006&C)
00670
00671
00612
00673
00&7,.,
00&75
00&76
00&77
PAGE
20
,~-
,/
(
I '-
(
I
''-....,/
o
o
o
o
c
()
o
PTP003
0678
POlC3
C837
0679
P01CC
5600
POICD
0230
0680
POlCE
D8C4-
Ob81
POICF
C8C]
0682
POIOO
0101
0683
POlOt
l8F9
0684
P0102
GRon
POlO:} Ff"66
06135
POI04
0864
0686
POUlS
088E
06B7
PGl06
5800
POlO'
0176
0688
0639
rOlDd
E800
POID3
0194
0690
0691
POID4
3148
0692
POI0[J
AOOO
PO
IDe
007F
0693
POlOD
E800
P010E
0190
06'34
POE1F
0143
0695
POIEil
E823
0696
P01El
0141
0697
POtE'?
8072
0698
POIEl
5800
PillE4
0219
0699
POIE7
5800
POIE6
OlaF
0700
POIE7
C800
POIE~
0185
0701
P01Eg
0111
0702
PO
lEA
UIES
0703
POlES
5897
0704
POIEC 08A7
0705
POIP]
CRA6
0706
POIEE
0101
0707
POIEF
18E6
07118
POIFO
5800
POlFl
012A
0709
POIF?
5402
0710
POIF3
1803
0711
PO
IF
4
0302
0712
POIF5
0000
0714
POIF6
5800
POIF7
0148
0715
POIF8
5ROO
POIF9
FE51
0716
POIFA
OA20
0717
POIF9
5800
POIFG
OOF8
602211300
E
CS405
CS40r,
CS407
CS401\
CS40':}
CS40A
CS40B
PAGE
21
LOA"
CS400
r;>TJ
Pf)T
RAO·
SPACERS
LOA· SPAceRS
SAZ
1
JMP. CS40C;
LOA
REPEAT
TCA
A
STA~
CV'GLES
RTJ
G::~PATT
LOQ
S~r;TFNOSW
saz
CS408-'*'-1
ANO
=:Hi7F
LOQ
COI1PATEN
SOZ
CS406-·-1
LOQ"
CS40E
SOZ
CS408-·-1
AOD-
CONST
..
7
RTJ
PPT
RTJ
OEU\Y
lOA
SECTENOSW
SAN
1
JHP"
CS407
RTJ"
RE<.iTWO
RAO"
CYGLES
LOA.
CYCLES
SAZ
CS409-"-1
JMPV.
CS407
RTJ
CHCHH
RTJ-
(STOPX)
JMP"
~S!JOB
NUM
to
302
NUM
$0
RTJ
r,HrNM
RTJ
CHJHP6
E"'A
$20
RTJ
JUMP
OATES
10/20175
PUNCH
CHARACTER
LAST
CHAR
PUNCHED
NO
YES
NUMBER
OF
TIMES
TO
REPEAT
ONE
CYCLE
OF
PYRA~IO
PATTERN
A
WILL
CONTAIN
THE
PATTERN
TO
BE
PUNCHED
Q
WILL
BE
SET
WHEN
LAST
CHAR
OF
CYCLE
IS
IS
IN
A
LAST
CHAR
YES
COMPLEMENT
PATTERN
6TH
LEVEL
YES
PIJNCH
CHARACTER
DELAY
(SAW
TOOTH)
DONE
WITH
CYCLE
NO
YES
RESTORE
WORDS
DONE
WITH
THE
NUMBER
OF
CYCLES
NO
W~IT
UNTILL
PROGRAM
CONTROL
IS
RETURN
••
STOP
END
OF
SECTION
STOP
10
SECTION
It
OR
8
SET
UP
FOR
INT
MODE
IF
IT
WAS
IN
IT
BEFORE
CHECK
FOR
RE-ENTRY
OF
PARAMETERS
REPEAT
SECTION
0067S
00679
00680
00681
00682
00683
00684
00685
00686
00687
00&88
00669
00690
00&91
00692
00693
00&94
00695
0069&
00697
00&98
00699
00700
00701
00702
00703
00704
00705
00706
00707
00706
00709
00710
00711
00712
00714
01)715
00716
00717
PAGE
21
PTP003
0718
P01FO
t804
0719
P01FE
E800
POIFF
FE·J9
0720
PO
201)
lCOl
0722
P0201
0204
p
0723
P0202
0004
0724
POl03
0000
072&
P0204
OA08
0727
P020r;
0~84
0728
P0200
0111
0729
P0207
1807
0731
0733
P020S
aC04
0734
P020Q
4800
P020A
0164
073S
P020B
COOO
P020r.
020E
0736
P020~
189B
0738
P020E
OAtO
073Q
P020F
0884
0740
P02tO
0111
0741
P02tt
1851
0743
60220300
E
p
CS40C
CS401
eS40E
CS80!)
PAGE
22
JMP"
CS406'
LOQ
CNTWRO
JMP"
(CS40C)
Aoe
eS800
NUM
$4
NUM
to
ENA
!\
LAQ
A
SAN
1
JHP"
CSI000
OATES
10/20/75
YES
NI)
NEXT
SECTION
SECTION
PUNCH
NUMBER
8TH
LEVEL SHITCH
SECTION 8
NO
S~~TION
~
COHPLEME~T
PYRAMIO
PATTERN
FNO
4 SET SECIONT
10
STQ
CO'1PATEN
LOAD
SECTION
NUHBER
IN
LOA
=XCSI000
LOAD
EXIT
VALUE
-BIAS
0
IN A
JMP"
CS401
A~O
SET =OHPL£MENT PATTERN
SWITCH
CSI000
ENA
$10
LAO
A
SAN
1
JMP·
CS2000
SECTION
10
NO
......
S~CTION
10
ALL
ONES
AND
ZEROS
00718
00719
00720
01)722
00723
00724
00726
00727
00728
00729
00731
••
..
00733
00734
00735
00736
00736
00739
00740
00741
00743
PAGE
22
.....
,'_.
r-"
l '
'-
..
'
(~
'-.,
\.
,/
(
('
\..---
C~
C~
c
I
\~
c
CJ
c
CI'
c'
/",
II
"
\..../.
c
()
07'+5
07'+6
07'+8
0749
0750
0751
075?
0753
075'+
0755
0756
0757
0758
075Q
0760
0761
0762
0763
0764
0765
0766
0767
0768
076Q
0770
0771
0772
0173
0774
0775
0776
0777
0778
0779
PTP003
P0212
OFCB
P021J
61\00
P0214
FE59
P0215
OAO?
P0216
6640
P0217
C07S
P021fl
6800
fl0219
FE53
P021A
OAFO
P0211)
6800
P021e
0173
P021D
OAF5
P021E
6BOO
P021F
016F
P0220
6600
P0221
FF71
P0222
5835
P0223
C8l,3
P0224
5800
P0225
0108
P0225
0800
f"0227
FF6B
P0228
eBOO
P022,)
FF6Q
P022A
0101
P022!)
18F7
P022C
C800
P022n
FEOC
P022E
0864
P022F
6600
P02~0
FF63
P0231
5800
P0232
0149
P0233
5600
P02l4
01C9
P0235
5800
P!J236
016F
PU2l7
caon
P0238
0135
P0239
0111
P023A
16F6
P023!l
0600
P023e
FF57
P023D
CRoa
P023E.
Ffl55
P023F
0101
P02'+0 16FO
60220300
E
PAGE
23
...
..
...
CS1001
ALS
8
STA
S~CTION
ENA
C;
ST.\"
CS1007
LOA-
CO~STt'10
SH
OMITOEL
E.NA
-2
STA
r.EN04
ENA
-10
STA
G~"'03
STA
SPACERS
P.TJ·
SETEXl
CSI002
LDA·
eS1007
RTJ PPT
RAO
SpACERS
LOA
SPACERS
SAZ
1
JMP·
CS1()02
CSI00.~
LOA
PEPEAT
TCA
A
SU
CYCLES
CS10:J4
RTJ
GENOZ
PTJ
PPT
RTJ
DELAY
LDA
srCTENDSW
SA~
1
JHp·
CSI00'+
RAO
CYCLES
LOA
CYCLES
SAZ
1
JHP"
CS1004
DATE'
10/20,'75
THIS SECTION SET OliIT
DELAY
SWITCH
SO
00745
TIiAT
PUNCHING
IS
DONE
AT
HIGH
SPEED.
0()746
ONE
CYCLE
EQUALS
10
ALL
ONES, 1
ALL
ZEROS
0()7'+6
···0074q
00750
···00751
SET
SEerION
10
···00752
SET OHIT
DELAY
SW
BUT
DONT
CHANGE
SIT
00753
to
OF
THE
CONTqOL
WORD
SO
THAT
OHITOELAY
00754
MAY
BE
RESET.
00755
RESTORE PATTERN GFNERATER
00756
00757
00758
00759
SET
UP
EXTRACT
VALUE
00760
00761
PUNCH
S~CTION
NUMBER
10
TIMES
00762
00763
0076'+
DONE
0()765
NO
0()766
YES
00767
00768
00169
SET
UP
PATTERNS
00770
PIJNCH
00771
00772
00773
OONE
WITH
ONE
CYCLE
00774
NO
00775
YES
00776
011777
SECTION COHPLETED
00778
NO
ONE
HORE
CYCLE
0077Q
PAGE
23
'
......
_.-'
PTPOO
3
PAGF
21t
DATE'
10/20/75
0780
P02lti
5800
~TJ
CHCHH
YES
00180
(~
.......
'
P0242
0009
07111
P024)
540?
RTJ- (STOPX)
00781
0782
P0244
1803
JMP"
CS1006
00782
0783
P02lt5
0302
NUM
$0102
STOP
to
00783
0784
P0246
1000
CS1005
NUM
$1300
00784
0786
P0247
5800
eS101l!;
RTJ
C'i!NM
00786
P024~
OOF7
0787
P021t'}
5600
RTJ CHJMP6
CHECK
FOR
RE-ENTRY
OF
PA~AMETERS
00787
P024A
FEOO
071J8
P024B
DA20
ENA
t?'J
00186
("
0789
P024C
5800
RTJ JUMP
~~PEAT
SECTION
00789
P02ltO
OOA7
0790
P024E
lROO
JMP·
CS1003
YES
00790
0791
P024F
E800
LOQ
CNTHRD
NO
00191
P025G
FOER
0792
P0251
O/HIt
TRQ
t>.
00192
0793
P025?
111)75
·ANO-
CONST.10
~ESfT
OMIT
DELAY
SWITCH
00793
0794
P0253
6600
STA
OMtTQEL
00794
P02S4
FE18
0795
P0255
180n
JMP"
C32000
NEXT
SECTION
00795
0797
P02'56
01)10
CS10J7
NUM
~10
00197
.~"
0799
P02'57
0000
SETEXL
NUM
0
00799
0800
P025R
C08l
LOII-
HOOFF
DOFF
00600
0801
pr125g
OFAl
QLS
1
00801
0802
PO?5A
0174
SOM
SETf'l(t-""-1
LEVEL 8
00802
0803
PO~?l)
OFAl
QLS
1
00803
0804
P025C
ilF41
ARS
1
00804
0805
P0250
0171
saH
SETEX1-"-1
00805
0806
P025E
OFlt2
ARS
2
00806
0807
P025F
6800
SETE'I(l
STA
PI"C'XL
00801
P0260
010C
0808
PO
261
lCF5
Jr1P"
(
SETEXU
00806
\
.........
0810
P0262
OAlO
CS2000
E'NA
?i20
00610
\'
'--
60220300
E
PAGE
24
r
....
__
.
c
,-----,,'
(-'
'\
"'--/
(
"-/
r-
\
~
,~)
C"I'
PTPOO3
PAGt:'
25
OATE!
10/20175
(_."
,~.J
0811
P0263
06B4
LAQ
A
00611
0812
P0264
0111
SAN
1 SEC
nON
20
00812
(,':
0613
P0265
tll47
Jt-'p.
cSltoon
NO
00813
C'
0815
......
SEC
nON
20,
C9,
36
PATTERN
00615
,...--..,\
~
)
,----,,'
0617
•
THIS
SECTION SET OHIT
OELAY
SHITCH
SO
THAT
00811
,"-"\
0616
• PUNCHING
IS
OONF:
AT
HIGH SPEEO.
00618
( "
0619
•
ONE
CYCLE
EQUALS
7 C9S
ANO
7,
36S
00819
''-.,../'
0820
P026~
OFC8
C~?,OOl
ALS
8
···00820
0821
!=IOl67
6800
STA
SECTION
00821
,"--""",
P0268
FEOS
I
0822
P0269
OAO&
ENA
6
···00822
(
0823
P026A
6641
STA·
CS2001
SET SECTION
10
···00823
0824
P02Ed] C07S
LOA-
CONST+l0
00824
,
0625
P026C
6800
STA
O~ITOEL
00825
L)
POZ60 FOFF
0826
P02bE
OAF6
FNA
-7
RESTORE
GENERATF
PATTERN
00826
0827
P026F
&800
STA
GENC3
00621
f10270
0133
r-,
0826
P0271
0901
INI\ 1
00628
L;r
0829
P027Z
6800
STA
G::~CIt
00829
P0273
0131
0630
P0271t 51\E2
RTJ"
SETEXl
seT
UP
EXTRACT
VALUE
00830
r--.
0831
P027S
OAFS
rNA
-10
00831
L}
0832
P0276
6600
STA
SPACERS
00832
P0277
FF1B
0633
P027.I}
C83l
CS20:l2
LOA·
CS2007
PUNCH
SECTION
NUMBER
10
TIMES
00633
0834
P0279
5600
RTJ PPT
00634
,~
P027A
0183
("--')
0635
P02711
0600
RAO
SPACERS
00635
P027C
FF16
0836
P0270
C600
LOA
SPACERS
00636
0'
P027E
FF14
0837
P027F
0101
SAZ
1
THA
TALL
00637
0838
P0280
18F1
JHP·
CS2002
NO
lOOP
BACK
00638
0839
P02S1
caGO
CS2003
LOA
REPEAT
YES
00839
"'-""-
P0282
FOB7
('I
0840
P0281
0864
TCA
A
00640
'-./
0841
P0284
6800
STA
CYCLES
00841
P028S
FFOE
..,,-
...
0842
P0286
5600
CS20n4
RTJ
G~NC9
00642
L:
P0287
0109
0643
P0288
5800'
RTJ
PPT
00643
P0289
0174
.
.,...
...
'~r
"I
60220300
E
PAGE
25
0
"'
....
< )
..............
(''''')
;--......
"-
...
PTPOOJ
PAGE
26
DATEt
10120175
\..
0844
P028A
5800
RTJ
DELAY
00844
P0288
011A
0845
POZ8e
C80fJ
LOA
SECTENDSW
00845
P028n
OOEO
0846
P02/lE
0111
SAN
1
DONE
WI
TH
CYCt.E
00846
0847
P02IJF
18F6
JMP"
CS2004
NO
00847
0848
P0290
0800
RAO
CYCLES
YES
00648
POZtH
FF02
0849
P029~
caOD
LOA
CYCLES
008'+9
P02Q3
FFOO
0850
P02')4
0101
SAZ
1
.00850
0851
P02Q,
18F!J
JMP"
CS2004
00851
0852
P0296
5600
RTJ
CHCHM
OU852
P0297
0084
0853
P0298
5402
RTJ-
(STOPX)
00853
0854
P0299
11\03
Jt4p"
CS2006
STOP
AT
END
OF
SECTION
00854
0855
P029A
0302
NUH
$0302
STOP
YO
00655
0856
P029B
2000
CSZOrJ5
NUH
$2000
SECTION
NUMBE~
00856
0858
POZ9C
580!)
CS201J6 RTJ
C~INH
00858
P0290
OOA2
0859
P029E
5800
RTJ CrtJHP6
CHECK
FOR
RE-ENTRY
OF
PARAHETERS
00859
POZ9F FOA9
0860
P02AO
OA20
ENA
$20
00660
",
0861
r02Al
51\0!J RTJ JUMP ·REPEAT SECTION
00861
P02A2
0052
0862
p·o
2A
3
18Dn
JMP"
CS2003
YES
00862
0861
P02A4
E600
LDQ
CNTWRD
00863
P02A5
FI)93
0864
P02A&
0814
TRQ
A
00864
0865
P02A7
AO
75
ANO-
CONST+l0
RESET
OMIT
DELAY
00865
0866
P02A8
6800
STA
OHITnEL
00866
P02AI)
FOC3
oe67
PO:?AA
1802
Jt"P.
CS4000
00867
0869
P02AB
0020
CS20()7
NUM
$20
00869
(.
'-..
.'
PAGE
26
I \
."---.,/
.""
'\
U
o
C:I
o
c
o
c
o
PTPOO3
0671
0872
0873
0874
0875
0877
P02AC
OA07
0678
P02AO
0884
087Q
POZAE
OAFS
0880
P02AF 664'+
0681
P02BO
OA07
0882
P02Bl
SAOO
P02BZ
014S
0883
P02B3
01140
0664
P02B4
ca3F
0865
P0285
0101
0886
P02S6
18F9
0867
P02S7
E800
P02BR 01E8
0886
P02B9
OA42
0889
P02BA 03'+F
0890
P02BB
02'+A
0891
P02BC
6800
P02BO FE40
08g2
P02BE
AGOO
P1l2RF
F75Tl
0893
P02CO
BODO
P02C!
0401
089'+ P02C2
0101
0895
P02C3
1841
oagG P02C4
OA10
0897
P02CS
582F
Oag6 P02C6 18FO
OgOO
P02C?
5800
P02C8
0053
OQOl
P02C'3
0804
OQ02
P02CA
5402
0903
P02C8
1803
0904
P02CC
0304
0905
P02CO 0000
0907
P02CE
COOO
P02CF FF37
6022()300
E
PAGf
27
DATEI
10/20f75
•••
JI.
•••••
JI.
••••••••••••••••••••••••••••••••••••••••••••
••••••••••••••
PTC2.
00871
00872
00573
0()874
00875
• PTC2
•
PROCESS
END
OF
TEST
REQUIRE~ENTS
PTC2
• PTC2
••••
JI..JI..JI.
•••••
JI.
•••••••••••••••••••••••••••••••••••••••
••••••
JI.
•••••
Jl.Jl.pTC2
CS40[J0
EN4
7 SET END
OF
TAPE
COOE
LACl
A
CSEN')
FNA
-10
STAJI.
OELAYS
···00677
00878
00879
00880
CSENr.
ENA
RTJ 7
PPT
···00681
PTC2
00882
RAO·
OELAYS
LOA·
DELAYS
SAZ
I 1
JHP·
CSEN4
CSEN2
'LOQ
PSTATUS
ENA
$42
OUT
ERRF-·-1
INP
ERR13-·-1
STA
ERSTAT
At-JO
=N$F75D
EOR
=N$401
SAZ
1
JMP·
ERR15
ENA
$10
RTJ·
JUMP
JMp·
CSEN2
RTJ
::H~HI1
RAO·
PIlSSCOUNT
R.T
J-
(STOPXl
JHp·
CS':Nl
NUH
$0304
PASSGOUNT
NUH
0
CSF.Nl
LOA
=t-I-200
LAST
END
OF
TAPE
PUNCH
NO
STOP'
HOTION
AND
CLEAR
INT
REQUEST
··EROF-10··
··ER13-14··
REPEAT
CONDITIONS
YES
CHANGE
TO
CHARACTER
HOOE
END
OF
r::ST
S.TO?
STOP
10
PTC2
00683
00654
00885
00886
00687
00888
008eq
ooeqo
008Ql
006Q2
00893
008Q4
008Q5
006Q6
00897
00898
0090n
00901
00902
00903
00904
00905
00907
PAGE
27
PTPOO3
PA~E
26
0908
P02DO
680C
STAw.
CTEN?t
0909
P020t
C80a
LOA
RETURN
P02D2 FOl2
09tO
P0203
6806
~TAw.
crENt
OCJ11
P020r.
GOOO
CSFN1/\
LOI\
=XCSE'N1B
POZD5
020A p
0912
POZ!)6
GROO
STA
RETURN
P0207
~02D
0913
POlO8 5«'01 RTJ-
(CONTROL)
0914
P02D'3 0000
CT~N1
NUH
0
0915
POZOA
D60? C$ENIA
RAOw.
CTEN2t-1
0916
P0209
COOO
CTEN2
LOA
=NO
POZOC
0000
0917
POZOO
0101
SAZ
CSF.N1C-""-1
0918
P02DE
113FS
JMP"
CSEN1A
OCH9
P020F
CIlF9
CSF.Nlr.
LO~'"
CT~N1
0920
1-'02E:]
6600
STA
RETURN
POZEl
F02l
0921
P02E2
OA40
ENA
'340
0922
POZEl
5Rl1
'RTJ""
JUMP
0923
P02E,.
180?
JHP""
CSENG
0924
P02E5
1805
JMP·
CSEN7
0925
P02Eo 5800
CS~No
RTJ
CHJMP6
POlE?
F063
OCJZ6
P02E8 11\00
JMP
CNTiB
P02E"'3
FORO
0927
P02EA 5800
CSEN7
PTJ
CHGHH
P02ES 0030
0928
POlEe
COOO
LOA
=XPTPon3
POZED
0000 P
092Q P02EE
5403
~TJ-
nSEXln
0930
P02EF
5800 PTJ
CHJMPfl
P02Fll
FOSA
0931 P02F1 1 a
00
JMP
eNTIA
P02F2 FOAl
0933
P02FJ
DOOO
DELAYS
NUH
0
60220300
E
DATEI
tO/20/75
HAS
10
HS
BEEN
DELAYED
NO
YES
~EPEAT
TEST
YES
NO
CHECK
FOR
RE-ENTRY
OF
PA~AMETERS
nONE
RETURN
TO
SMM
WITH
BIAS IN A
CHECK
FOR
RE-ENTRY
OF
PARAMETERS
REPEAT
TEST-FREQUECY
NOT
ZERO
00908
00909
00910
00<}11
00912
00913
0091,.
00915
0091&
00917
00Q18
00919
00920
00921
00<}22
00923
00<}2"
00925
0092&
00921
00928
00929
00930
00931
00933
PAGE
28
(
\. ... '
(---'
''"'--
...•
r
\
...
I
\.'" .
r
'"'--
.. '
c·
c
c
c.
,r
I \
o
PTPOO.3
PAG~
29
DATEI
10/20/75
0935
P02F4
0000
JUMP
NUM
SO
CHECK
TO
MAKE
~UR£
TEST
IS
NOT
IN
INT
MODE·
00935
Oc]lE)
PU2F5
&800
STA'"
JJMP2 0093&
0c]37 P02F&
AO'+3
ANO-
SJ
IS
9IT
SET
IN
STOP/JUMP
WORO
00937
0c]38 P02F 7
0113
.
SAN
3
IF
NO
00
NOT
GO
TO
SHM
UNLESS
THE
SKIP
SW
00938
0c]]9 P02FB 0182
SHS
2
IS
SET
HEM~S
OPERATER
WANTS
TO
CHANGE
00939
0c]40 P02F':j 08FA
RAO'"
JUMP
THE
STOP/JUHP
WORD
00940
0c]41 P02FA lCFQ
JMP'"
(
JUMP)
00941
0c]42 P02FB 5820 RTJ'"
CfiCHM
00942
0c]43 P02FC C306
LOA"
JUMP2
00943
0c]44
P02FJ
5'+06
RTJ-
« J'JI1PX)
JUMP
~WITCH
SET
00944
0c]45
P02F€
1R02
JMP'"
JUMP1
YES
00945
o 094&
P02FF
03F4
RAO'"
JUMP
NO
0094&
0<]47
PO
300
5133F
JU~Pl
RTJ"
CHtNM
00947
0c]48 POJO!
lCF2
JMP'"
(JUMP)
00946
0950
PO.'~02
oono
JUMP2
NUH
$0
00950
0c]52
..................................................................................
•••
.........
······~
...
PTC2
00952
Oc]53
'10
PTC2
00953
0c]54 •
ERRO~
PROCESSING PTC2
00954
0c]55
v.
REPORT
ERRORS
F
THROUGH
19
PTC2
00955
0956
..
PTC2
00956
0957
........................................................................................
••
..
•••••••••
..
·PTC2
001357
0c]59
P0103
00E9 P Cl£RS
Aoe
CfERS
00959
0<]60
P0304
DeFF
E~R1tj
RAO·
(:
lER.S)
00960
0951
P030'5
OCFO
ERR14
PAO'"
(CIERS)
IN
REJECT
00961
0<]&2
POlO€>
OCFC
ERR13
PAO·
C1ERS)
00962
09&3
P0307
DCFB
ERR12
RAO'"
(G1ERS) IN
REJECT
00963
0<]64
P0308
(lCFA
ERR11
~AO'"
(:lERS)
00964
0965
P0309
OCF9
ERQl0
R.AO~
t::1ERS)
IN
~EJECT
00965
0966
P030A
DCF8
EQR.F
PAO'"
(~lERS)
00966
01367
P030R
DAOE
ENA
'bE
00967
0968
P030G 5800
RTJ
ERRORS
00968
P030D
FDOC
0969
P030E
18A8
JHP~
CSEN2
00969
0970
P030F
OCFJ
ERR17
RAO·
(C
1ERS)
IN
REJECT
00970
0971
P0310
OCF2
EP.~1S
RAO'"
CaERS)
00971
o
0972
flO
311
OA15
ENA
~15
00972
0C]73
PO
312
5800
RTJ
e:R~ORS
00973
P0313
FOO6
60220300
E
o
o
r
\,
(--'
...
..
~.
~-.'
.r-
......
\.
....
I~"""'"
(
........
,.
PTPOOJ
PAGE'
30 oATFI
10/20175
r
'--..,
0974
P03l4
tlHO JMP·
CHCHME
0097,.
0975
PO}15
;)CEO
ERR19
PAO"-
(~
lERS) IN
REJECT
00975
0976
P0310
OCEC
ERR1'3
RAO"
(
C1ERS)
0097&
~
0977
P03l7
OA17
ENA
$17
0971\
PO
31~
5AOO
RTJ
ER~ORS
00977
\
00976
'-
.
P0319
FOOD
0979
POllA
1828
JMP'"
CliINME
00979
j
~,
'
...
,r~"
'-. -
(~.
r-
"
..........
c.
F)0220
300
E
PAGE
30
o
u
o
o
o
o
o
o
c)
o
o
0981
0982
0983
0984
0986
0987
Oq86
098Q
0990
0991
0995
0996
0997
0998
09Q9
1000
1001
1002
1003
1004
1005
1006
1007
1008
100Q
1010
1011
1012
1013
1014
1015
1016
PfPOOl
POllB
0000
P031C
caOD
P031[)
0148
PO
HE
0111
P031F
181C
POl20
coon
POl2!
0334
P
POJ22
6ROO
P0323 FCEt
POl2lt
E800
POl2S
017E
P0326
OA02
P0327
03E7
P0328
0844
P0329
6"00
P032A
013A
P032!]
C8t3
P032~
A~OO
POl20
013A
P032E
0115
P032F
C800
P03l0
0135
POl31
6800
P033:?
1600
P0333
DaDA
P033ft
eooo
P0335
OOOB
P
P0336
6BOO
POll7
Fceo
POll8
C079
P0339
6800
POl3A
FCEO
POl3!]
COOO
PO~13C
0000
P
P0330
tCOO
P031E
0000
60220300 E
PA:;E
31
DATE'
10/20/75
••••••••••••••••••••••••••
~
•••••••••••••••••••••••••••
··············PTC2·
..
PTC2
•
CHANGE
TO
CHARACTER
HOOE
IF
IN
INT
MOOEPTC2
•
PTC2
~
•
•
..
..
CHECK
IF
IN
INTERRUPT
HaDE
IF
so
WILL
CLEAR
THE
INTERRUPT
REQUEST
AND
THAN
HAlT
UNTIL
SHH
PASS
CONTROL
BACK
TO
THE
PUNCH
TEST
BEFORE
IT
RETURN
TO
(CHCHM)
PTC2
............................................................
••••••••
..
·····PTC2
CHCH~
NUH
0
LOA
I NP100E
SAN
'1
JHp.
CHCHM2
LOA
=XCHCHHl
STA
~ET!JRN
CHCHHE
LOQ
PSTATUS
ENA
2
OUT
ER~16-·-1
CLR
A
STA
OK!NT
LOA·
SVINTHO
ADO
STATECH
SAN
CH~HH1~·-1
LOA
tNTHOOE
STA·
SVI~THO
JHP PPTlA
CHCHMt
LOA
=XCHECK
STA
RETUR.N
L
O.A-
BIT
1,.
STA
COUNTl
CHCH~2
LOA
=XPTP003
JHP.
(CHCHM)
SVINTHO
NW1
0
PTC2
1 =
INT
HaDE,
0 =
CHAR
MODE
PTC2
SKIP
IF
IN
INT
HDOE
PTC2
IN
CHAR
MODE,
SO
EXIT
PTC2
PTC2
UPDATE
RETURN
AOOR
FOR
AFTER
TRAOEOFF
PTC2
GET
ADDR
OF
PUNCH
PTC2
CLEAR
INT
REQUEST
··ERIG-17··
CLEAR
OK
FO~
tNT
SO
THAT
INTS
GENERATED
AFTER
THIS
TI~E
CAN
BE
CAUGHT
AS
ERRORS
PTC2
1
IF
STATE
CHANGE
FROH
CHAR
TO
INT
HaDE
PTC2
DOES
THE
TEST
HAVE
CONTROL
NO
1ST
TIHE
EXIT
INT
STATE
RETURN
TO
SHH
VIA
INT
EXIT
THE
PUNCH
TEST
NOW
HAS
CONTROL
SET
tNT
WAIT
LOOP
COUNT
IA
TO
A
GEG
GO
ON
PTC2
PTC2
SAVE
INT
HaDE
SHITCH- l=INT
HaDE,
0=CHARPTC2
00981
00982
00983
00981+
00966
00967
00988
00989
00990
00991
00993
009Q,.
00995
00996
00991
00
q98
009Q9
01000
01001
01002
01003
01004
01005
01006
01007
01006
01009
01010
01011
01012
01013
010t4
01015
01016
PAGE
31
PTPDO
3
PAGE
32
1018
P033F '
OUOO
CHINH
NUH
$0
1019
P0340 C600
LOA
INTMODE
P03ltl
012,.
1020
P03,.2 0111
SAN
1
1021.
P0343
tCOO
JHP
(CHtNHt
P034,.
FFFA
1022
P03,.5
E8UO
CHINHE
LOQ
PSTATUS
.
P0346
0150
1023
POl47
OA14
ENA
$14
1024
P0348 0500
lIN
0
1025
P03,.Q
OJCB
OUT
ER~18-·-1
1026
P03,.A 6800
STA
ST4TECH
P034B 011C
1027
P034C 1CF2
JHP·
(CHINH)
60220300
E
DATEI
10/20115
.
CHANGE
BACK
TO
tNT
MODE
SKIP
IF
IN INT
MOOE
PTC2
HERE
TO
EXIT
IF
IN
CHAR
HOOE
~TC2
YES
'HAN
RESELECTED
INTERRUPTS
ALSO
SELECT
ALARH
INTERRUPT
··ER18-.1q··
GO
SET
UP
CHAR
BUT
OONT
PUNCH
UNTIt.
INT
OCCURS.
01018
01019
01020
01021
01022
01023
0102,.
01025
01026
01027
PAGE
32
c
\
'-
..
'
/",,0.
I
I.
.....
(
I
\'-
c.
('
\.
.....
'
PTP003
PAGf
33
10213
P0340
0000
GENPATT
NUM
0
1030
P034E
01344
CL~
A
1031
P034F
681E
STA.f.
SEGTENDSW
1032
P0350
E818
LDQ"
WORD
1033
P0351
calA
LOA· P?SW
1034
P0352
0106
SAl
G::N2-"'-1
1035
P0353
OFAl
QLS
1
1036
P0354.
0161
SQP
G::Nl-"'-l
1037
P0355
180C
JMP'"
pOOUT
10,18
P0356
0344
GENl
CLR
A
103Q
P0357
6814
STA·
PP~W
o
1040
P0358
E1U2
LDQ.f.
WJ~D+2
1041
P035q
OF21
GEN2
QRS
1
1042
P035/\
0814
TRQ
A
1043
P03S!)
A08l
ANO-
HFFOO
1044
POlSI';
0114
SAN
PPOUT-"'-1
1045
P0350
Cf\OC
LOA'"
WOROH
1046
P035E
6~OA
STA'"
HJ~D
1047
P035F
680C
STA
• PPSH
1048
P0360
6800
STA·
SECTENOSW
10413
P0361
4"07
PPOUT
STO·
WORD
1050
POl62
C80C LOA·
COMPATEN
1051
P036]
0101
SAZ
1
1052
POJ64
0652
TCQ
a
1053
P036S
C807
LOA· PPI:XL
1054
P0366
0884
LAQ
A
1055
P0367
lCES
JMP·
(GENPATT)
o
()
1057
P0368
7F7F
WORD
NUt1
$7F7F
1058
P036q
7F7F
NUM
~7F7F
105'3
P036A
3EFF
NUH
$3EFF
1060
P036B
FFFF PPSH
NUt-!
-$0
1061
P036C
OOFF
PPEXL
NUM
$FF
1062
P0360
0000
SECTENDSW
NUH
!)
1063
P036E
0000
COHPATEN
NUI1
0
1065
.....
1066
P036F
7F7F
lZB
NUM
~7F7F
1067
POl70
7EFF
NUM
$TEFF
1068
P037!
7EFF
Zl7
NUH
~7EFF
1069
P0372
3F7F
NUM
$3F7F
1070
P0373
7BFF
ZZS
NUM
~7BFF
1011
P0374
OFDF
NUH
$OFDF
1072
••
1073
P037S
FFOO
. PY8
toIUM
tFFOO
60220300
E
DATEt
10/20/75
GENERATE
PATTE~N
FOR
8,
7,
OR
5 LEVEL
EXIT
WITH
PATTERN
IN
A
SECTION
END
SWITCH
PATTERN SWITCH
LEFT PATTERN
DONE
YES
·.NO
SKIP
TO
GEN2
LAST PATTERN + 1
NO
YES
RIGHT PATTERN
COMPLEHENT
PATTERN
YES
SECTION 2
AND
8
EXIT
WITH
PATTERN
IN
A
LEVEL
EXTRACT
SECTION
END
SWITCH
COMPLEMENT
PATTERN
ZIGZAG PATTERN
LEVEL
GENERATE
LEVEL 8
STORE
IN
HORD
AND
STORE
IN
HORO+2
LEVEL 7
LEVEL 5
WORDS
WORD+l
PYRAHID PATTERN LEVEL GENERATE
WORDS
LEVEL 8
010213
01030
01031
01032
01033
01034
01035
01036
01037
01038
010313
01040
01041
01042
01043
01044
01045
01046
01047
01048
01049
01050
01051
01052
01053
01054
01055
01057
01058
010513
01060
01061
01062
01063
010&5
01066
01061
01068
01069
01070
01011
01072
01013
PAGE
33
,r--,
il '.-
(---
"-
~
C~
..
~,'
r
I
I,
'-.-'
('
\'---"
-
prpOO3
PAGF.
34
DATEI
10/20175
(--
1074
POJ76 41FE
NUM
$41FE
0107,.
.'-
........
1075
POl77
FEOO
PY7
NUH
$FEOO
LEVEL
7
01075
1076
P037~
?OFE
NUM
$20FE
1077
P017Q
FBOO
PY5
NUH
$~ROO
LEVEL
5
1078
P037A
083E
NU~
~OB3E
01076
('
01077
01078
,,-
r-"
1
"
(--,-
\""
'"
(
....
r-
(
......
c.
60220300
E
PAGE
34
\
.........
JJ
(
r'
..,
I
..
-
l)
",--"'.
I
I I
'''--
....
/
".',
L)
("I
"-/
p rl-'oo 3
PAGE
35
OATn
10/20/75
1080
POng
0000
GENOZ
HUH
$0
Gf.NERATE
ONES
AND
ZEROS
PATTERN
011)80
10Rl
P037C
0~44
CL~
~
ONE
CYCLE
EQUAL
10
ONES
AND
'3
ZEROS
HaRD
01081
C~)
1082
POl70
68EF SUJf.
SECTENDSW
01082
1083
POJ7E C810 LOA·
GE~03
01083
101\4
P037F
0103
SAZ
G::~Ol-
·-1
01084
1085
P0380
081lE
RAO"
GEN03
01085
C)
1086
P0381
OAFF
ENA
-0
01086
1087
P0382
laOA
JMP·
GENEX
01087
tOll8
P038l
CaGC
GENOl
LOA"
G~N04
01088
108Q
P0384
0115
SAN
G~~02-·-1
01089
(~.~\
1090
P038S
OAFS
ENA
-HI
SET
END
OF
CYCLE
SWITCH
01090
\...~
1091
P038& 68E6 STA·
SECTENDSW
01091
1092
PO.187
6807
STA·
GEN03
01092
1093
PO.l88
OAFC
ENA
-3
01093
1094
POla'} 61'06 STA·
GE...,04
01094
0
lOgS
P03RA
0805
GEN02
RAO·
GE:N04
01095
1096
P0163
OAOO
ENI\
$0
01096
1097
P038C A80F
GENFX
ANn'"
P?~Xl
EXTRACT
LEVELS
WANTED
01097
1098
P03t\[) lCED
JMP·
(
GENOZ)
01098
(
~
"\
1099
P038E FFFS
GENOl
NUM
-UI
01099
1100
P038F
FFFC
GcNOIt
NUM
-3
01100
\
L
C)
1102
P0390
0000
GFNC9
NUH
$0
GENERATE
C9
AND
36
PATTERN
01102
0
It03
P0391
0844
CL~
A
ONE
CYCLE
EQUAL
7 C9S
AND
7 36S
OUll3
1104
P0392
6S0A
STA·
SECTENOSW
01104
11013
PO:i93 CillO
LOA-tI-
GENC3
01105
1106
P0394
0104
SAZ
GENC1-"'-1
01106
C)
1107
P03qS
D80E
RAO·
GENC3
01107
1108
P03Q6
COOO
LOA
=N!CQ
01108
P03Q7
OOC9
1109
P0398
18!J9 JMP"
GENCEX
01109
C)
1110
POJ99
CRoa
GENet
LDAll'
G::NC4
01110
1111
PO
3Ql\
0114
SAN
G::NC2-·-1
01111
1112
P039a
OAF8
ENA
-7
01112
1113
P03'3C
6800
STA·
SECTENDSW
SET
END
OF
CYCLE
SHITCH
01113
1114
P0390
6806
STAv.
GENC3
01114
---"',
1115
P039E
6806
STAv.
GENC4
01115
( \
'-..../
1116
P039F
0805
GENC2
RAO·
GENC4
01116
1117
POlAO
OA36
ENA
$3fl
01117
1118
PO
3Al
A8CA
GENC':X
ANO·
PPEXL
EXTRACT
LEVELS
WANTED
01118
,..---'"
111'3 P03A2 lCED Jfo1P·
(G=:NC9)
01119
{
"I
1120
P03A3 FFF8
GENCJ
NUM
-$1
01120
~
1121
P03A4 FFF8
GE~Cr.
NUM
-~7
01121
(~":
"'---"'
60220300
E
PAGE
35
/'-',
I
I,
~/
r-'
~-)
(---"\)
PTPOO,3
1123
POJAS
0000
1124
1125
1126
1127
11213
11213
1130
1131 P03A6
CI\OO
P03A7
FCC4
1132
POJA" 8300
POJAg
OO£1E
lLH
P03AA
0101
1134
PDJATJ
lCF9
1135
P03AC
5~44
1136
PO:SAO
01JA
1137
POJAE
CROO
P03A~
FC89
1138
P03BO
A076
1139
POJB! 0101
1140 POlB2 lCF2
1141
P0383
CROO
003134
FeBR
1142
P03AS 0101
1143
P03B6
lCfE
1144
P0307
181F
1145
P03aR
CROO
P03fl9
FG7F
1146
P031)A
B076
1147
POJSS 6800
P039C
FC7C
1148
P03BO
AfJ76
1149
P0313E
OF4A
1150
POJ6F 6800
POlCO
nOA5
1151
POlet
EROO
POJe?
OOEl
1152
P03C.J 0101
1153
POle4
0910
1154
P03C5
090?
1155
P03Co 030A
1156
P03C? Cf\OO
P03ca
0090
1157
P03C(~
&aon
P03CA
0090
1158
P03Ctl 0101
1159
POlec
leoa
11&0
P03CD 1600
P03CE 003F
1161
60220300
E
DELAY
•
•
•
•
•
".
•
OELAYO
DELAY1
PAGE
3&
NUM
$0
LOA
INMONLY
AD)
STATECH
SAZ
1
JMp·
(OELAY)
P.TJ·
MINUS
SAM
OELAY1-.-1
LOA
c~n'PTJ
ANO-
CONSTfU
SAZ
1
JMp·
(')ELAY)
LOA
OHITOEL
SAZ
1
JMP·
(!1ELAY)
JMp·
OELAY2
LOA
CNTWRO
EOq- CONsr.u
STA
CNfWRO
ANO-
CONSTfU
ARS
10
STA
INTHOOE
LOQ
PSTATUS
SAZ
1
INA
UO
INA
$2
OUT
ERQ20-.-1
LOA
INTHOOE
STA
STATECH
SAZ
t
JMp·
(O~LAYl
JHP
PPT1A
OATE'
10/20175
THIS
ROUTINE
WILL
GENERATE
A
RANDOM
NUM.
IF
THE
NUH
IS
NEG
IT
WILL
COMPLEMENT
BIT
11
OF
THE
CONTROL
WORD
(INT
MODE
=1
DELAY
=0
AND
SELECTED
THE
I~T
IF
1,
AND
CLEAR
THE
INT
REQUEST
IF
ZERO.
THE
DELAY
IS
A
SAW
TOOTH
DELAY
WITH
A
RANDOM
HIGH
SPEED
PUNCH
WITHIN
THE
DELAY
ALSO
CHECK
TO
SEE
IF
CHANGING
HODE
TOO
RUN
~F.ST
IN
INT
MODE
ONLY
YES
0800
DELAY
DR
INT
HOOE
(DELAY
IS
IN
CHAR
r-fOOE)'
tNT
THAN
EXIT
OMIT
QELAY
IN
CHAR
HODE
YES
COMPLEMENT
BIT 11
REQUEST
INT
OR
CLEAR
INT
REQUEST
REQUEST
ALARM
INTERRUPT
CLEAR
INTS
0600
OBO
0
REQUEST
INT
··ER20-21··
NQW
IS
IT
CHAR
MODE
NO
YES
RETURN
TO
~HH
VIA
INT
EXIT
AND
WAIT
UNTILL
THE
PUNCH
RECEIVES
PROGRAM
CONTROL
01123
01124
01125
01126
01127
01128
01129
01130
01131
01132
01133
0113,.
01135
01136
01137
01138
01139
01140
01141
011,.2
011,.3
011,.4
01145
0114&
01147
01148
011,.9
01150
01151
01152
01153
01154
01155
0115&
01157
01158
01159
01160
01161
PAGE
36
(
,_.-.
........
"
I
/",
(
(~
\,
~
..
)
--
"J
( ,
.....
__
oJ'
..-
"
U
r",
L:'
C)
PTPOO.t
PA:iE
37
DATEI
10/20175
C~"I
1163
P03GF
00£9
P
C2ER:;
ADG
CTERS
01163
0
1165
P030Q
OGFE
ERR21
RAO"
(G2ERSt IN REJECT
01165
11&6
P030l
OCFO
ERR2!l
RAO"
(C2ERS)
01166
1167
P03D~
0.U9
ENA
t.tq
01167
C;
11GB
POJOl
5800
i<TJ
ER~ORS
01168
P0304
F015
1169
POJOS
18£2
JMP"
OF:LAYl
01169
,r-')
l"-.,../
0
1171
P0306
C817
DELAY?
LOA""
TIto1E
01171
1172
P0307
0816
RAO·
UME
01172
1173
PO.108
0108
SAZ
DELAY3-"-1
COUNT
UP
TO
ZERO
01173
1174
P030,) 8800
ADO
OELAYA
AnD
DELAY
PARAMETERS
01174
P030A
FG60
(--""'1
1175
P030f3
0131
SAH
1
01175
1176
POJOC
18F9
JMP~
O::LAY2
01t76
\
1177
PO
:~OD
5813
RTJ"
MINUS
01177
1178
P030E 0121
SAP
1
01178
tJ
1179
P030F
13CO JMP"
OELAYO+1
01179
1180
P03Ell
18F5
Jt1P·
O~LAY?
01180
1181
POlEt
CROD
OFLAY3
LOA4
TtME+l
01181
1182
P03E2
8800
ADO"
TIHE+2
01182
~--\
1183
P03E3
6BOA
sn'"
TIriE
CHANGE
N~GATIVE
NUMAER
01183
t I
1184
P03Elt-
G8DA
STA
..
TIME+1
01164
,----/J
1185
P03E5
8BOn
ADO
DELAYA
01185
P03EE)
Fe55
1186
P03E7
01AO
SOV
0
01166
C)
1187
P03E3
0123
SAP
n=:LAY4-"-1 STILL POSITIVE ....
YES
SKIP
DELAY4
01181
1188
1>03E9
ca06
LOA"
TIME+2
NO
THAN
RESET
THE
DELAYS
01186
1189
POJEA
61\03 STA"
TIME
01189
1190
PO
JE9 6803
STA'"
TIME+l
01190
",.-,
1191
POJEC lCBS OfLAY4 JMP.
(DELAY)
EXIT
AFTER
OELAY
01191
L~I
l1q2
POlED FFBF
TIME
NU~
-$'
..
0
01192
1193
P03EE
FFOF
NUI1
-$1.0
01193
l1q4
P03EF FFBF
NUM
-$ltO
01194
C)
1195
POJFO
0000
MINUS
NUM
~IJ
01195
1196
P03Fl
COOO
MINl
LOA
=~$AB
RANDOM
NUHBER
GENERATER
01196
PO
,JF2
OOAa
1197
P03F3
8800
ADO
OELAYC
HILL
GENERATE
A
NEGATIVE
NUH
EVERY
3
OR
HO
01191
r--"
P03F4
FC48
(~
1198
P03F5
6flFC
STAlL
HIN1+1
01198
119<3
P03F6
0131
SAM
1
01199
1200
P03F7
lCF8
JHp·
(
MINUS)
EXIT
Ol20tl
1201
P03F8
OF48
ARS
S
01201
0
1202
P03F<J
A061
ANO-
HOOFF
01202
1203
P03FA
68F7
STAlL
HINIH
01203
1204
P03FB 060lt
SET
A
01204
,-~-,
L'
60221130n
E:
PAGE
37
r-',
L~:
I~··
~
\_~
I
('"
.')
PTP003
PAGE
38
1205
P03FC 1CF3
JMP·
(MINUS. EXIT·
01205
c
(
('
'-.
r-
'-
...•...
60220300
~
PAGE
38
1 I
"-.J
o
()
o
o
o
------.
( )
"-...---
~~"'.
()
1207
1208
1209
1210
1211
1212
1213
1214
1215
PTPOO
3
1217
?03FO
0000
1218
P03Ff.
6600
P03FF
OOA5
1219
P0400
0"44
1220
P0401
6300
P0402
FF39
1221
P0403
0804
1222
P0404
6860
1223
P0405
CRbO
1224
P040~
0111
1225
POlt07
182E
1226
P0403
CR5F
1227
P0409
0103
1228
P040A
OR44
1229
PO'+OB
685C
1230
F040:;
5401
1231
P040D
ES5e
1232
P040e:
le02
1234
1235
1236
1237
1238
1240
..
P040F
!lO
00
1241
P0410
0000
1242
PO
It
11
'+657
1243
P0412
0844
1244
P0413
E800
P0414
008F
1245
P0415
020F
1246
P0416
A060
1247
P0417
0101
1248
P0418
1819
60220300
E
PA:;E
39
D ATEI
10/20175
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
..
01207
01208
01209
01210
01211
01212
01213
01214
01215
..
PTC2
•
PUNCH
DRIVER PTC2
..
PTC2
•
~
•
•
PUNCH
THE
CHAR
IN A
••
AFTER
INTERRUPT
HODE
OR
CHAR
MODE
A
CHECK
OF
ALL
STATUS
RITS
••
PUNGHS
IN
PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
PPT
PPT1C
PPTBB
PPT14
NUM
0
I:NTRY
STA
PCHAR
SET
PUNCH
CHARACT£R
CLR.
A
STA
SVINTHO
CLEAR
INT
HODE
SWITCH
SET A
STA·
OKI~T
OK
FOR
NEXT
INT
TO
OCCURE
LOA· INTHOOf
CHFCK
HOOE
SWITCH
SAN
PPTBB
SKIP
IF
IN
INT
HOOE
JMp·
PPT1
HERE
IF
CHAR
MODE
LOA· STATECH VERIFY
THAT
HODE
HAS
CHANGED
-
CHAR
TO
SAZ
PPf1A
1=INT
MODE,
O=CHAR
MODE
CLR
A
RETURN
TO
SHH
AND
WAIT
FOR
NEXT
INT
STA·
STATECH
INDICATE
CHAR
HODE
RTJ-
{CONTROL)
LO~"
INTEXVA
YES
PTC2
PTC2
PTC2
PTC2
PTC2
PTC2
PTC2
PTC2
INTPTC2
PTC2
PTC2
PTC2
JHp.
UNTENTRY)
RETURN
TO
S"H
AND
WAIT
FOR
INTERRUPT
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
• PTC2
•
O~IVE~
INTER~UPT
P~OCESSOR
PTC2
• PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
INTFLG
NUM
0
INTENTRY
NUH
0 INT
ENT,RY
STlt·
INTEXVA
INTENO
CLR
A
LOQ
PSTATUS
INP
E3536-·-1
ANO-
CONsr"2
SA?
INTENA-·-l
DID THIS EQUIPMENT INTERRUPT
JI1P·
INTEN2
YES
01217
01218
01219
01220
01221
01222
01223
01224
01225
01226
01221
01228
01229
01230
01231
01232
01234
01235
0123&
01237
01238
01240
01241
01242
01243
···01244
01245
01246
01241
01248
PAGE
3q
1249
1250
1251
1252
1253
125ft
1255
125&
1257
1259
12&0
12&1
12&2
1263
12&5
12&&
12&7
12&6
12&9
1270
1271
1272
1273
1274
1275
127&
1278
1279
1260
1261
1282
PTPOOl
P0419
ERF5
P041A
0151
P0418
lS1£)
P041e
C8F1
P0410
6600
POlt1E
0000
P041F
0001
POft20 ft603
P0421
ER47
P01.22
1400
P0423
0000
P042'.
0901
PO
I.Z5
OQ01
P0426
093ft
P0427
880!)
P04Z'}
FCLt5
P042g
S805
P042A
0844
P042B
5402
P042r::
1~O4
P042D
0308
P042~
0000
P042F
0430
P
P0430
18E1
1284
P0431
E637
1285
P0432
C832
1286
P0433
0111
602203IJO
E
PAGF
40
OATEl
10/20175
INTH.fA LDQ· INTFLG
NO
SQN
INTEt.fB-·-1
IS
THIS
ONLY
STATtON
ON
INT LINE
JMp·
INTEN2
YES
INTENB LOA· INTENTRV
NO
STAt-
0,0
PASS
RETURN
ADDRESS
TO
PTR
INQ
1 INTERRUPT ROUTINE
STr)·
INTEN1"1
LDQ·
INTEXVA
ALSO
PASS Q
ALONG
INTENt
JMP
..
0
GO
TO
INT PROCESSOR
IN
PTR TEST
•••
~
•••
~
••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
• PTC2
•
REPLY
-REJECT PROCESSOR PTC2
41-
PTC2
.........................................................
••
..
··········PTC2
INA
t
E353&
INA
1
INA
$34
ADO
SECTION
STA"
ERP.35A
CL~
A
RTJ-
(STOPX)
ERRORS
35
AND
36
JMP·
E~R358
NUM
~308
ERR35J\
NUM
0
AOC
ERR35B
ERR358
JMp·
INTENO
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
• PTC2
• DRIVER STATUS PROCESSOR PTC2
• PTC2
.......................................................
··············PTCZ
INTEN2 LOQ·
INTEXVA
LOA· OKINT
SAN
PPT1-·-1
HAS
CONTROL
PASSED
BACK
TO
SHH
BEFORE
INT
01249
01250
01251
01252
01253
01254
01255
01256
01257
01259
01260
01261
01262
01263
01265
01266
01261
01268
01269
01270
01271
01272
Q1273
01274
01275
D1Z76
01278
01279
01280
D1281
01282
01284
01285
01286
PAGE
40
\
......
,-,
'
r
(
......
"-'.
l
......
(
'"''
(-'
.......
,.
" )
\..j
,,,."
'.,
( )
'-..
.. /
lJ
o
o
o
o
()
c)
o
o
r\
~
o
PTPOO3
paGE
41
DATEI
10/20/75
1287
P043lt 18ltF
Jt1P·
FR~2F
NO
ERqOR
··ER2F-··
.
01267
1288
POftJ5 0844 PPTl
CLR
A
01286
1269
P0436
f.82D
LOo.· FIRSTINT FIRST INT
AFTER
START
HOTION
01269
1290
P0437
0142
S07
2
YES
01290
1291
POlt38
6829
STA· FIRSTINT
THAN
OO~T
PUNCH
THE
CHARACTER
01291
1292
P043g
1CCl JMp· (PPT) EXIT
OF
FIRST
INT
TO
CSOOA
PTC2
01292
1293
P04.3A
682A STA·
OKINT
1294
POlt3g
6620
STA·
WAIT
1295
POlt.'JC
E867 PPTll)
LOa."
PSTATUS
12c)6
P04·31J
0250 INP
E~q,24-·-1
1297
P043€
6864
STA·
STATUS
1298
P043F
A071
AND-
8IT6
12q9
P044!J 0101
SAZ
1
1300
P0441
5629
RTJ"
VAL
ERR
1301
POlt42
CRoO
LOA"
STI\TUS
1302
P044.'J B626
EO~·
RADP
1303
....
1304
P0444
0103 SAl
PPT2-·-t
1305
P0445
806E
EOI{-
BITl
1306
P04ft.~
010C
SAZ
PflT4-·-1
1307
P0447
1863
JMP.
CHAT
1308
P0441\
00
FE
PPT2
INa.
-1
1309
P0449
C85B
PPT3
LOA·
PCHAP
1310
POlt4A
0307
OUT
PPT4A-·-1
1311
P0448
OAI0
EN~
$10
1312
P044C A043
AND-
SJ
1313
P044fJ
0103
SAZ
PPTJA-·-l
1314
PO
'.4E 5800
RTJ
JUMP
P044F
FEA4
1315
P0450
18£1]
JMp·
PPTlB
1316
P0451 lCAS
PPT3A
JHP" ( PPT)
1317
P0452
i83A
PPT4A
JMP·
ERR26
1318
P0453
C812 PPT4 LOA· INTHOOf
1319
P045!J 011B
SAN
PPT5-·-1
1320
P0455
C~OC
LOA·
P?TRET
1321
P045!) 6300
STA
RETURN
P0457
FBAD
1322
P04SI\ C077 lDA- BIT12
1323
P0459
6800
STA
COUNTl
SET
P045A
FRCO
1324
P045B 5401 RTJ- (CONTROl)
13215
fJ045C C806 PPT4B
LOA"
PflTCHK
1326
P045fl 6800
STA
RETURN
P045E
FOA6
1327
P045F
18DC
JMP· PPT1B
1328
P0460 1'J2B PPT5
JMP'<l
ERR27
1330
P0461
045C P
PPTR~T
AOC
PPT4B
1331
P0462
0008
P
PPTCYK
ADe
CHeCK
60220300
E
INPUT
ST"TUS
··ER24-25"·
LOOK
FOR
VA
LIOA
TID
ERROR
SKIP
IF
STATUS
OK
REPORT
:E~ROR
RESTORE
STATUS
ONLY
REAOY,BUSY,nATA
AND
POHER
ON
STATUS
BITS
SET
NO
WAS
JUST
THE
DATA
BIT
MISSING
NO
THAN
CHECK
OTHER
BITS
YES
NO-
THEN
CHECK
OTHER
BITS
PUNCH
CHARACTER
REPEAT
CONDIT
IONS
YES
EXIT
CHAR
HAS
BEEN
PUNCHED
EXTERNAL
REJECT
PUNCH
NOT
READ.,
TO
PUNCH
CHAR.
IF
IT
IS
IN INT
MODE
NO
-
CHAR.
HOOE
INT
WAIT
LOOP
GOUNT
SMH
WILL
RETURN
HERE
HAS
PUNCH
REJECTED
OVER
BIA
SED
BIASED
ERROR
tOMS
000l)
PTC2
PTC2
PTC2
PTC2
··ER21-····
01293
01294
···01295
01296
···01297
···01298
•
..
·01299
••
..
01300
..
··01301
01302
01303
01304
01305
01306
01307
01306
···01309
01310
01311
01312
01313
01314
01315
01316
01317
01316
0131,}
01320
01321
01322
01323
01324
01125
01326
01327
01326
01330
01331
PAGE
41
1332
1333
1334
1335
1336
13,17
1336
1339
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1356
1360
1361
1362
1363
1365
1366
1367
1368
136<3
PTPOO
3
P0463
FFFF
P0464-
0000
P0465
0000
P0466
0000
P0467
0000
P0468
0000
P0469
0408
P046A
0000
P0468
4611
P046e
C800
P0460
FCOO
P046E
0941
P046F
6609
P0470
CRF9
P0471
6608
P0472
C830
P0471
6807
P0414
01\44
P0475
5402
POlt16
1607
P0477
0328
P0471\
0000
P0479
0000
P047A
0000
POlt7B
0408
P047e
0000
P0470
E8FE
P047E
OAOl
P047F
03FE
P0480
18C7
1311
P0481
0000
1372
P04S?
06FE
60220300
E
PAGE
42
OATn
10/20115
Fr~STINT
NUM
-'Sa
01332
OKINT
NUM
$0
OK
FOR
INT
SW
SET =
ON
01333
INTHOOE
NUM
$0
INT.HOOE
SW
SET =
ON
01334
WAIT
NUM
$0
01335
STAT>:'CH
NU~
~o
STATE
CHANGE
F~OH
CHAR
TO
INT
=ONE
01336
INTf)(VA
NUM
~O
01337
RBO?
NU"1
$0408
REAOY~
BUSY,
HORE
DATA,
POWER
ON
01336
..
TAPE
LOW,
AND
PROTECT
HAY
BE
ADDEO
IN
IF
S
01339
VAlERR
NUM
a
···01341
STQ·
VALEI<4
SAVE
a
···01342
LOA
SeCTION
···01343
INA
$41
FORM
SSEE
···01341t
STA·
VALER1
···01345
LOA"
VAL
ERR
···01346
ST4·
VALER2
SET
TTN
ADOR
···01341
LOA· STATUS
···01348
STA·
VALER3
SET
ACT
STA
TUS
···01349
CL~
A
···01350
RTJ-
( STOPX)
RF.:PRT
ERROR
41
···01351
JHp·
VALERS.
···01352
NUH
$0328
···01353
VALER1
NtJM
0 SSEE
···01354
VALER?
NU"1
0
RTN
ADOR
···01355
VALf~3
NUM
a
ACT
STATUS
···01356
NUM
$408
EXP
STATUS
···01357
VALER4
NUM
0
SAVE
a
C~LL
• ..
·01358
VALERS
LOQ"
VALER4
RESTORE Q
···01360
ENA
1 • ..
·01361
OUT
-1
00
COR
CONTROLLER
···01362
JHp·
PPT2
••
..
01363
..............................................................
··············PTC2
• PTC2
..
ER~OR
PROCESSOR PTC2
•
ERRORS
24
THROUGH
30
PTC2
.............................................................
··············PTC2
01365
01366
01367
01368
01369
CTER
ERR30
NUM
to
RAO·
CTER
01371
01372
PAGE
42
I
r-,.
\
'.
C-.~
("
'
..
-
,...---.....
(
\
.......
'
~.
I
'-
..
/.
\
....
c
c·
\
'-_'/
(~)
,
~
\
---)
,..-....,
( I
r
_______
I
0-
PTPOO
3 .
PAGE
43
DATE:
10/20/75
r"'_
.......
l_)
1373
P0483
08FO
ERR2F
RAO·
eTER
01373
1374
P0484
OSFG
RAO·
CTER.
01174
1375
P0485
ORFB
ERR20
RAO·
GTER
01375
,.---
..
,
1376
P0486
08FA
ERR2G
RAO·
CTF.R
01:176
L)
1377
P0487
06F9
ERR2B
RAO"
CTER
01377
1378
P0488
OaFS
RAO·
eTER
01376
1379
PD46'~
OSF7
ERR29
RAO'"
CTER
01379
C)
1380
P048A 06F6
ERR23
RAO"
CTER
01360
1381
P0488
08F5
ERR27
RAO·
CfE'R
01381
1382
P046G
ORF4
ER~26
RAO·
CTER
01382
1383
P0481) 08F3
ERR25
RAO·
CP':R
01363
(-"
1384
P048E
ORF2
ERR2ft
RAO·
eYER
01384
l)
1385
P048F
CAF1
LOA"
CTER
01385
1386
POft90 0923
INA
$23
01386
1387
P0491
6600
ADO
SECTION
01367
PD492
FaOB
0
1388
P0493
6300
'5TA"
SEGER
01368
1369
PD49ft 084ft CLR· A
01389
1390
P049S
68EB STA·
CTER
01390
1391
P0496
Gaoo
LOA
INTMO'lE
01391
I' P04,}?
FFCO
1392
P0498
OtOl SAZ 1
01392
1393
P0499
080ft
SET
A
01393
1394
P049A 660B
STA\I-
MODE
01394
It
'
1395
P049B S600 RTJ
CHCHM
01395
P049C FE7E
"--./
1396
P0490
5402
RTJ- (STOPX)
01396
1397
POft9E
1608
JHP"
ER1
01397
1398
P049F
0328
NUH
$0328
STOP
10
01398
C)
1399
P04AO
0000
SECER
NU~
$0
01399
1400
P04Al
0000
NUM
0
01400
1401
P04A2 0000
STATUS
NUM
$0
STATUS
01ft01
1402
P04A3 0000
PSTATUS
NUM
!O
PUNCH
CONNECTED
CODE
FOR
STATUS
01402
C'
Ilt03
POftA4
0000
PCHAR
NUM
to
PUNCH
GHAR
01403
)
1404
P04A5 0000
MODE
NUH
$0
SET
=
INT
HODE
CLR
=
CHAR
HODE
01ft04
1405
P04A6 5800 ERl
RT
J
CHINM
CHANGE
BACK
FROM
CHAR
TO
INT
MODE
PTC2
01'+05
P04A7 FE97
c:'
1406
POftA8
1800
JHP
PPT1
TO
DRIVER
TO
BEGIN
DATA
OUPUT
PTC2
01406
P04A9 FF69
Ilt07
POltAA
C8BE
CHRT
LOA"
RBOP
CLEAR
THESE
BITS
FROH
STATUS
01407
1408
P04A~
09F7
INA
-$"
BUT
NO
BIT 3 01ft08
1409
P04AC
8800
EOR
STATUS
01ft09
C)
POftAO
FFF4
1410
PD4AE
6887
STA·
WI\IT
01410
1411
P04AF 0822
TRA
Q 01ft11
1412
P04BO
OA04
ENA
4 01lt12
0
1413
P0481
0884
LAQ
A
01413
If
.14
P04B2 0111
SAN
C'i
8Tl-"-1
PH
BIT
SET
01414
1415
P048-3
1813
JHP'"
CH9TS
NO
0141S"
1416
P04B4
OA08
GHBT!
ENA
$8
YES
01ft16
0
1417
P04B5 08B4
LAO
A 01lt17
1418
P041J5 0116
SAN
r,HOT2-"-1
DATA
INTERRUPT
MUST
BE
SET
01416
1419
P04B7
OA20
ENA
t20
01419
0
60220300
E
PAGE
It3
C)
r-··
.....
C_J
(-_
..
\
PTP003
PAGE
44
1420
P04B8
0884
LAQ
A
1421
P04B9 0102
SAZ
CHQTIA-·-l
1422
P04BA
OA08
F.NA
$R
1423
P048B 1805 JMP·
CH;:HEST
1424
P04!Jr. 18r.0
CHBT1A
JHP·
ER~26
1~·25
P0413D
C8A7
CHr:JT2
LOA·
INTHOOE
1426
P04BE
0106
SAZ
CH!3T3-"-1
1427
P04BF
DADe
ENA
$C
1428
P04CO
0876
CHBTEST
EAQ
A,Q
1429
P04el
48A4 STQ·
WArT
14-10
P04C2 0113
SA~
C-iAT8-"-1
1431
P04C3 E80F LoQ·
PSTATUS
1432
P04C4 lSR:}
JHln
PPT2
1433
P04C5
1S3C3
CHBT.~
JMP·
E~R2q
1434
"
1435
P04e6
C072
CHSTS
.LOA-
CONST+7
1436
P04e7
0884
LAa
A
1417
P04C!i 0111 SAN' 1
14:18 P04C9
1811
JMP·
r.1-ir:JT9
1439
P04CA
869E
EOR"
R9,)P
1440
P04CR
6890
STA"
RQOP
1441
P04CC
A072
ANO-
CONSTH
1442
P04CD
0116
SAN
Cfun8A-"-1
1443
P04CE
COOO
LOA
=XMESSPC
P04CF 0549
fJ
1444
P0400
OCOB
ENQ
M::SPCE-MFSSPC+l
1445
P04D1
56CjB
RTJ·
OUTt1ESS
1446
P040?
C072
LOA-
CONST+7
1447
P0403
1656
JMP"
c~nT6A
1448 P04fJ4
caoo
CHBT'lB
LOA
=XMESSPS
P0405
0553 P
144q
00406
OCOA
ENO
MESPSE-MESSPS+l
14'10 P04!)'7 5B55 RTJ"
OUTHESS
1451
P0401l C072
LOA-
CO'''ST+7
1452
P040Q
1850
JHp·
CHBT6A
1453
P040A
OA20
CH8n
ENA
'£20
1454
P0401J
06Bft
LAQ
A
1455
P04DC
0111
SAN
1
1456
P040D 1860
JMp·
CY9T12
1457
P040E C07lt
LOA-
CONST+q
1458
P040F
0884
LAO
A
145q
P04EO
0111
SAN
1
1460
POltEl
lR31
JMP·
CL.f!3TI0
1461 P04F.2
OA2A
ENA
$2A
1462
P04E3
ESSE
CHBrt5
lOQ·
STI\TUS
1463
P04E4 4600
STQ
ERSTAT
P04E5
Fe25
1464
P04E6
EeOD
LDO
PSTATUS
P04E7 FF88
1465
P04E8 5800
RTJ
ERRORS
P04EC3
FeOD
1466
P04EA 5800
RTJ
C'iCHH
P04EB FE2F
60220300
::
OATEI
10/20
f75
ALARM
tNT
SET
YJ:S
NO
E~ROR
CLEAR
tNT BIT
FROM
STATUS
NO
··E~ROR
• ..
ER28-··
.. •
YES
INT
HODE
SELECTED
.YES
"-NO SKIP
CHBT3
At-Iy
OTHE~
BITS
SET
PUNCH
CHAR
••
ERROR
tNT
BUT
DID
NOT
SELECT
IT·"
0080
P~OTECT
BIT
SET
N.D
Y~S
CLEAR
OR
SET
nn
IN
RBOP
0080
PROTECT
SW
JUST
SET
NO
JUST
CLEAqEO
0080
CHECK
FOR
OTHER
BIrs
IN
STA
TUS
SW
JUST
SET
NO
ALARM
BIT
SET
NO
YES
0200
ALARM
IS
SET,
IS
TAPE
BREAK
SET
NO
VES
··ER2A-
.... .,.·
MOVE
RIGHT
STATUS
TO
ERROR
ROUTINE
OUTPUT
ERROR
CHANGE
TO
CHAR
HOOE
AND
GET
BACK
CONT~OL
01420
01421
01422
01423
01424
01425
01426
01427
01428
01429
01430
01431
01432
01433
01434
01435
01436
01437
01438
01439
01440
01441
01442
01443
01444
01445
01,.46
01,.47
01448
01,. .. 9
01450
01451
01452
01453
0145,.
01455
01456
01457
01458
01459
01,.60
01461
01,.62
01463
0146,.
01465
01466
.
PAGE
44
(
.......
(
r '
I"
..
PTPOO3
PAGE
itS
DATFI
10/20175
1467
P04EC
COOO
LOA
=XrHBf16 PTC2· 01it67
r04E::l 04F3 P
1468
P04EE 6800
STA
~ETURN
RESET
RTN
ADOR
FOR
AFTER
TRADEOFF
PTC2 01it68
()
P04EF
PH5
1469
P04FfJ C077
LDA-
IHTt2
PTC2
01it6<}
1470
P04Fl
6600
STA
COUNT1
SET
INT
WAIT
LOOP
COUNT
PTC2
01470
P04~2
Fe35
1471
P04F3
E8AF
CHAT1G
LDQ"
PSTATUS
SMH
WILL
RETURN
TO
HERE
01471
1472
P04F4
021A INP
ER~31-·-1
....
ER31-32·
..
01472
1473
P04F5
AOGB
ANO-
CO~ST
0001
01it73
1474
P04F6
0111
SAN
1
WAIT
UNTILOP£RATOR
HAKES
PUNCH
READV
01474
1475
P04F7
S401
RTJ-
(
CONTROl)
NOT
READY
-
~ETURN
TO
SHM
PTC2
01475
o
1476
POltF3
OA20
ENA
'21)
READV
01476
1477
P04FQ 0.313
OUT
ERR33-"-1
START
HOTION
....
ER33-34
....
01477
1478
P04FA 0210 INP F.'RR35-·-1
01476
147<}
POltF8
A06E
ANO-
CONST+]
ODDS
01it7<}
o
1460
P04FC 0111
SAN
1
DATA
REAOY
TO
ilE
PUNCHED
01it60
1481
P04F[)
5401
RTJ-
'(CONTROl)
NO
-
~ETURN
TO
SMH
PTC2
01481
1482
P04FE
coon
LOA
=XCHfCK
01482
P04FF 00013 P
1483
P0500
6800
STA
R.ETURN
PTC2
01483
P0501
FR03
1484
P0502
CO
77
LDA-
3IT12
PTC2
01484
1485
POSO.3
6600
STA
COUNT1
SET
INT
WAIT
LOOP
COUNT
PTC2
01485
POS04
Fa2l
1486
P0505
5800
RTJ
CH!NH
01486
P0500
FE38
1487
P0507
1800 JHP PPT1C
01467
P050B FEF7
14'38
P0509
COE9
P
C3ERS
ADC
CTERS
01488
1489
POSOA
OCFE
ERR36
ttAO"
(
:3ERSJ
0146<)
1490
P050!]
OCFD
ERR35
RAO"
(:;3ERS)
014<}0
1491
P050C
DeFC
ERR34
RAO·
(~lERS'
01491
1492
poson
DCFB
EPR.H
RAO""
c::
3ERSl
01492
14q3
P05!lE
DCFA
ERR32
RAO"
(C1ERS) 014<}J
1494
P050F
DCF9
ERq,31
RAO"
C;JERS)
01494
14QS
P0510
OA30
ENA
$30
01495
1496
POS11
laD1
JMP"
CH~T15
014<}6
1l.97
P0512
CU75
CHBTtO
LOA-
CONSH·I0
NO
THEN
IS
POWER
OFF
OftOO
014<}7
14<}8
POS13
0804
LAQ
A
014<}8
1499
PO
')1'"
0102
SAl
CHBT4-"-1
POHER
OFF
014<}<}
1500
POS1!:)
1800
JMP
E~~30
YES
...
ERROR
.... ERJO-....
01500
o POS16 FF6B
1501
POS17 C076
CHBTr.
LDA-
CONST.11
0800
01501
1502
POS1S
OBA4
lAQ A
01502
1503
P051Q
0112
SA~
CfiBT5-""-1
~UNCH
TAPE
SUPPLY
LOW
BIT SET
01503
o
1504
P051"
1800 JHP
ERR2B
NO
".ERRoR
aUT
ALARM
WAS
SET
.... ERR2B-..
01504
POS1B
FF6B
1505
P051C
OQ20
C~8T5
INA
$21)
ADO
IN
ALARM
BIT
01505
1506
P0510
8600
EOR
~BOP
01506
C)
POS1E
FF4A
1507
P051F
61\00 STf\
ROOP
SET
OR
CLEAR
'BITS IN
RBDP
01SG7
P0520 FF48
60220'300 E
PAGE
45
PTPOO3
PA.iE
,.&
OATEI
10/20/75
1508
P0521
A!J75
ANO-
CONST+11
0800·
01508
1509
P052~
0104
SAl C>iBT&-·-t
'1ESSAGE"
BEEN
TYPE-OUT
01509
1510
P0523
coon
LOA
=XMESSTl
NO
01510
P0524
055C P
1511
P0525
aC09 (Nfl M::STLE-MESSTL+1
01511
(~
\."
'
1512
P0526
580&
RTJ-lL
OUTHESS
01512
1513
P0527
COOO
CHBTf>
LOA
='4"iOC20
YES
RETURN
01513
P052f\
OC20
1514
P052~
EI\OO
CHE3T6A
LOQ
WAIT
01514
P052A
FF313
1515
P052f1
11\94-
JMP"'"
C-t!.HEST
CHECK
FO~
OTHE~
STA
TUS
BI
TS
01515
1516
P052G 0000
OUTM!::SS
NUM
$1)
OUTPUT
MESSAG'E
01516
1517
P0520
&80£
STA"'"
AM~SS
01517
1518
P052E
4"OE
STQ-lL
QMESS
01516
1519
P052F
5800
RTJ
CHCHM
01519
P0530
FOEA
1520
P0531
OAOl
MESSt
ENA
t
01520
(
1521
P0532
Atl4q
ANO-
III/FORM
01521
1522
P0533
0101
SAl
1
TELETYPE
BUSY
01522
1523
PO
534
18FC
JHp·
MESSl
WAIT
UNTILL
ITS
NOT
BUSY
01523
1524
P053t)
CSO&
LOA"
AMESS
01524
1525
P0535
ER06 LOQ·
QMF:SS
01525
1526
POC;37
5408
RTJ-
(TYPE)
TYPE/OUT
01526
1527
P053g
5800
RTJ
CHINH
01527
P0539
FE05
152R P053A
leF1
JHP.
(OUTHESS)
01528
152<3
P0538
0000
AMES:)
NUM
10
01529
1530
P05"3C
0000
QMES,)
NUM
$0
01530
1531
POS]!)
OAOl
CHBT12
ENA
1
01531
1,]J2
P053E
080'+
LAQ
r-
01532
,,-
"
\
1533
P053F
0102
SAZ
C'i'H13-"-1
READY
01533
1534
P0540
OA2E
ENA
ru:
NOT
REAOV
MUST
GIVE A
START
HOTION
01534
15,15
P0541
113Al
JMp·
CHill1']
AFTER
ERROR
OUTPUT
·~ER2E-····
01535
1536
P0542
OAu2
CH8rt
~
ENA
2
01536
15:J7
POC;lt3
088,.
LAO
A
01537
1538
P0544
010?
SAl
G-t9Tt,.-lJ.-l
BlJSY
BIT
NOT
SF.:T
01538
1539
P0545
1800
JMP
E~~2C
YES
··J:~2C-··lJ.·
01539
P0546
FF3F
1540
POSlt7
1800
CH9Tt,.
J~P
FPR20
COULD
NOT
FINO 81T
···ERR20-··
01540
P051t8 FF3C
15,.1
P051t9
BnOA
Hf:SSPC
NU"1
$8!10A
01541
1542
P054A
5055
ALI='
9,PUNCH
PROTECT
OFF.
01542
P054B 4Elt3
P054C 4'120
POS4D
5052
PO'54E
4F51t
PO.,4F
4543
PO
550
5420
C'-
P05S1
4F46
POl)52
4620
1543
P0553
fHlOA
M£SPCE
NUt1
$f'OOA
01543
1544
0553
P
EQU
H:SSPS(HESPCE)
01544
1545
P0554
5055
ALF
8,PUNCH
PROTECTEO
01545
POS55
4£43
50220300
E
PAGE
46
PTPOO3
Pl\:iE
47
DATEI
10/20/75
P0556
4620
P0557
5052
o
P0558
4F54
P055g
4543
P05SA
54it5
P0559
4421)
1546
P055r;
MJOA
HESPS~
NUH
$l}10A
01546
1547
OS5C P
~Q_U
M~SSTL(M~SPSF)
01547
1548
P05S-1
5055
AL~
7,PUNCH TAP£
LOW
01S46
POC;5E
4£43
POSSF '+g2D
o
P0560
5441
POC;6!
5045
P0562
204C
POS6]
4F57
1549
PD564
8f'10A
MESTLF.
NUM
~6IJOA
01549
C)
o
,..--.
I '
~I
6022ilJOO
E PAGE '+7
o
-C)
,--'"
(
';,
PTPOOJ
1551
1552
1553
155,.
1555
1556
1558
P056S
0000
1559
P056&
COOO
P0567
0000 P
1560
P050S
5'.OA
1561
P056g
,.~"6
1562
P056A 6648
1563
P056S
E091
1564
PO'56G
C2,)1
1565
P056D 540A
1566
PO'56E
664')
1567
P056F
OA01
1566
POS70 A049
1569
P0571
0500
1570
P0572
0102
1571
POli73 0400
1572
P0574
18FA
1573
POS75
COOO
P0576
0594
P
1574
P0577
E31C
1575
PO'57!J
5408
1576
POS7Q
OAOl
1577
P057A
AO,.9
1578
POli7B 0500
1S7Q
PO'57C
0102
1SRO
POS7:) 0400
1581
POS7E 18FA
15132
POS7F
CROO
P05R!)
FA85
1583
PO
58!
bS300
POli02 FF20
1584
P0583
COOO
P0584
05M
p
1585
P05S5
6800
POS86
FA7E
1586
P05S37
5401
1567
P0588
liSOO
P05SQ
FAA!
1588
POS8A
CROO
P058S
FAB2
1589
P058C 6600
P05fH)
FA7Q
1590
POS8E
coon
P056F
OQ74
P
1591
P05QO
6800
P05,)1 FA7l
60220300
E
PA:iE
46
DATF1
10/20/75
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2.
•
PTC2
•
INITIALIZE
ROUTINE
PTC2
•
lytlE
MESSAGES,
INPUT
PARAMETERS,
SET
SOME
SWITCHES
PTC2
•
PTC2
••••••••••••••••••••••••••••••••••••••••••••••••••••••
··············PTC2
INITl
NUM
•
PTC2
LOA
=XPTPOOJ
PTC2
RTJ-
(CONV)
CONVERN
ROUTINE
FOR
TESTS
IA
PTC2
STO·
Itt
STA·
IAU
LDQ-
TSA~TV
PTC2
lOA-
TSF~EQ-l,Q
PTC2
RTJ-
(CJNV)
CONVJ::RT
NUMBF.R
OF
PASSES
PTC2
ST4'" 'iF.AI)E-l
TO
MSG
BUFFER
PTC2
HUT·1 a
ENA
1
AND-
INFORM
lIN
0
SAZ
2 SKIP
IF
NOT
BUSY
PTC2
EIN
0
TELETYPE
BUSY
SW
IS
SET
WIAT
JHP·
IN!
TiS
lOOP
IF
BUSY
PTC2
LOA
=XHEAU
LOa·
H~OUNT
RT
J-
(TVPE)
TYPEOUT
INITIALIZE
MSG
PTC2
INITlC
ENA
1
ANO-
INFORM
lIN
0
SAZ 2
EIN 0
JMp. INIT1C
WAIT
FOP.
TTY
BUSY
TO
DROP
PTC2
INIT1 4
LOA
EQUIP
STA
PSTATUS
SET
PUNCH
CONNECTEn
CODE
FOR
STATUS
PTC2
LOA
=XINIT2A
PTC2
STA
~FTURN
SET
RF.TURN
AOOR
FOR
AFTER
TRADEOFF
PTC2
RTJ-
(CONTROl)
RETUNR
TO
SMM
PTC2
INIT2A
RTJ
INPARA
INPUT
PARAMETERS
PTC2
LOA
TNT11
MOVF
INTERRUPT
LINE
ASSIGNMENT
PTC2
STA
INTt
TO
FRONT
OF
THE
T~ST
PTC2
LOA
=XCNTRL
PTG2
STA
RF.TURN
SET
REf
URN
ADDR
PTC2
01551
01552
01553
01554
01555
01556
01558
01559
01560
01561
01562
01563
01564
01565
01566
01561
01568
01569
01570
01511
01512
01513
0151,.
01515
01516
01517
01578
01519
01580
01581
01582
01583
01584
01585
01586
01581
01588
01589
01590
01591
PAGE
48
r
\
'
.......
",~
,
(
I
/'-
(
...
r
I
"-
,.-
I
"
C---
(-~'
r--·
(,.
C"
.-"~.,,,
(~'
'--_._'
('
~
LJ
r-'"
I I
\ '
'-..-/
o
(~\
, \
~)
o
o
C
··')
-,
r"""
~'
15<)2
1593
1594
1595
1596
1597
15g8
159g
1600
1601
1602
1603
1604
1605
PTPOO3
PO
S92 SltOl
P0591
01)25
HCOlJtH
P059!t
BOOA
H~AO
POSgC;
20S0
POS96
54S0
P05g7
3fHO
P059fJ 332C
P059g
2031
POS9A
3732
POSQR
332F
POSQC
37]7
POS90
20S0
POS9f
554E
P05gF
4148
P05AO
20S4
POSAl
4553
P05A2 542E
POSA3
80DA
P05A4
2043
PilSA5
5032
P05A6 462C
P05A7
20S6
P05A3
4552
P05A9 2E20
P05AA 332E
P05AQ
3120
POSAC
3120
P05AO 800A
P05AE
2049
P05AF
4120
P05IJO
3020
P05Al
0000
IA
P05B2 0000
P05B3
2C20
P05R4
2046
P05BS
4320
POSB6
3020
P05a7
2020
POSBS
BOOA
HEAIJE
1;0220300 E
PA~E
49
OATEI
10/20/75
RTJ- (CONTROl)
RETURN
TO
SHM
PTC2
01592
AOC
HEAOE-HEAOt1
01593
NUM
~ROOA
0159,.
ALF
X,
PTPOO·3.
1723/n
PUNCH
TEST.X
01595
NUM
S60DA
015g6
ALF
X,
CP2F,
VER.
3.1-1
X
···01597
NUM
$SOOA
01598
ALF
3,
IA =
01599
NUM
$0
01600
NUM
$0
01601
NUM
$2C20
01602
ALF
4.
FC
=
01603
NUM
~6,)OA
0160,.
END
01605
I
\"
. '
\
.....
,
L
PTP003
PAGE
SO
DATEI
10/20/75
PGM=
0589
(
1465)
COM
=
oooa
(
0)
OAT
= 0000 ( 0)
'I".
....
,r
.....
~
,-
('
......
_ ...
60220300
E
PAGE
50
c;
o·
o PTPOOl PA'iE'
51
DATEI
10/20/75
ME
QUI
V
ALE
N C f. S
-----------------------
o M
OEF.LINE
NAME
VALUE
REFERENCED
AT
LINE
NUMBER
0000
I
OOFF
(000255)
0144
CONTRO
0001
(0000011
, 011+5,
0238,
0441, 0913,
1230,
1324
,
1475,
1481, 1586,
1532
0145
STOPX
0002
(000002)
,
0146, 0250,
0286. 0494,
0594,
0709
t
0761,
0853,
0902,
1271,
1351,
1396
o
0146
EXIT
0003
(0001)03)
,
0147,
0210
0147
NONDAT
0004
(OOOOa,., ,
014~,
0149,
0372
0148
FCLRIN
0005
(000005'
,
0207
0149
JUHPX
0006
(000006)
,
0150,
0944
0150
GFNRAN
0007
(000007)
,
0151,
020ft
0151
TYPEOIJ
0008/
(000008'
,
0152, 0153,
0206,
0208
0152
TTYBZY
0009
(000009)
0153
HEXASC
OOOA
(000£110) ,
0154,
0205,
0211
0154
OVRLAY
OOOB
(000011)
,
0155
0155
RELPOS
OOOC
(000012)
,
0156
0156
MAINL
0000
(000013)
.,
0157
0157
SET
MAS
0042
(000066)
, 015A
0158
STJP
0043
(OOOO&n ,
0159, 0160,
0203,
0209,
0241
0159
LASTVA
0044
(000068)
0160
LAS
TAO
0045
(000
05Q'
. ,
.0161
0161
LOLCOR
0047
(000071)
, 01&2
0162
LOLIGO
0048
(000072'
, 01&3
0163
INFORM
0049
(000073)
,
01&4,
1521,
1568,
1577
0164
SMHCNT
0056
(OOOO~6)
,
0165,
0202
0165
BITOO
006B
(00010n
t
0166,
0201
0166
BITO
0068
(000107)
,
0167
0167
BITl
006e
(000108'
,
0168
0168
81T2
0060
(000109'
t
0169
0169
BIT3
006E
(000110)
,
0170,
1305
0170
SIT4
006F
(00D1111
,
0171
0171
BITS
~070
(000112)
,
017?
0172
BIT6
.
0071
(000113)
,
0173,
0247,
1298
1)173
9IT7
0072
(000114'
,
0174
0174
BITS
0073
(000115)
,
0175
0175
8IT9
0074
(000116)
,
0176
o
0176
BITI0
00715
(000117)
,
0177
0177
aIT11
0076
(000116)
,
0178
0178
IHT12
0077
(000119'
0119,
0522,
1322,
1469~
14A4
0179
BIT13
0078
(000120)
,
0180,
0527
0160
BITt4
0079
(000121)
,
0181,
1012
0181
BIT15
007A
(000122)
,
0162
o
60220300·
E
PAGE
51
o
0182
0163
0164
0185
0186
0167
01613
01S9
0190
0191
0192
0193
0194
0195
0196
0197
0198
01Qq
0200
0201
0202
0203
0204
0205
0206
0207
0208
0209
0210
1]211
PTP003
HOOOO
HFFFF
HOOOF
HOOFO
HOFOO
HFOOO
HOOFF
HFFOO
HFFFO
HO!='FF
HFFOF
HFOFF
H7FFF
H7FOO
HO'780
HOO7F
H2020
TSACTV
TSFREQ
CONST
SHHPAR
SJPAR
RANDOM
CONVER
MESSAG
CLRND
TYPE
SJ
TSExrr
CONV
60220300
E
007B
a07C
0070
007£
007F
0060
0081
00A2
00'83
0084
0085
0086
0087
0068
OO~q
n08A
008B
0091
0092
0068
0056
0043
0007
OOOA
OOOB
0005
0008
0043
0003
OOOA
,
0181
,
0184
• tl18c)
,
01R6
•
0187
,
0188
(000123)
(000124)
(000125'
(000120)
(000127)
(000128)
(00012Q)
,
0189, 0532,
0567,
0671,
0800,
1202
(000130)
(000131)
(00013~)
(000133'
(000134)
(000115)
(000136)
(000137)
(000138)
(00013
C
n
(0001lt5J
(0001lt6)
(000107)
(000086)
(0001)1)7)
(000007)
(000010'
(OOOD08)
(OOOOO?)
0190,
1043
,
0191
,
0192
,
0193
,
019lt
,
0195,
0431
•
019!;
0197
,
019S
, 019'3
,
0200,
1564
,
0300,
,
0364,
,
0658,
,
066'5,
,
1441,
,
1497,
1563
0305,
0402,
0664,
1138,
1446,
1501,
0111,
0467,
0697,
1146,
1451,
'1508
(000008)
,
1.526,
1575
(000057)
,
0486,
OQ37,
1112
(000003)
t
OQ2Q
(000010)
t
1560,
1?65
0332, 0350,
0354'
0536,
0554,
0560
0753,
0793,
0824
1148, 1246,
1435
1457,
1473,
llt79
PAGE
S2
,r""
"
"-
.....
~
I
\
'\
...
(
('
.....
_
..
1\
\~
/~--'}
~j
')
C
(----',
\~'
o·
PfPOO3
PAGE
53
DATc::a
10/20/75
C!
M S Y M
13
a L S
-------------
M
OEF.LINE
NAME
ADDRESS
REFERENCED
AT
LINE
NUHBER
0
0213
PTP003
0000
,
0244,
0285,
0490,
0928,
1014,
1559
0215
PARAO~
0004
0 02H>
RETURN
0005
,
0434, 0909, 0912, 0920,
0998,
1011
,
1321, 1326,
1468,
1483,
1565,
1591
0217
EQUIP
0006
,
Q352,
0370,
1,S2
0218
INTl
0007
,
0301,
034Q,
0356,
0371,
15139
r-'1
0220
START
0008
,
0213
V
0221
STWOP
0009
0232
CHECK
1)008 ,
0433,
1010,
1131,
1482
0239
CHECK1
0013
,
0233,
0251
0
0240
CHECK2
0015
,
0235
0246
CHECK3
DOlE ,
0243
0253
CHF.CK4
0026
,
0240,
0245,
0248,
0254
0255
COUNTl
0026
,
0234,
02"37,
0432,
1013,
1323,
1470
C ,
1485
0276
INITIA
0029
,
0216
0277
INPARA
0028
,
0220,
0307,
0315,
1587
0291
CNTWRD
0039
,
0215,
0276,
0283,
0299,
U304,
0331
,
0400,
0403,
0521,
0535,
0553,
0604
,
0657. 0719,
'0791,
08&3,
1137,
1145
,
1147
0292
RfPEAT 003A •
0579,
1)684,
0767,
0839
0293
DELAYA
OOlA
,
1174
0
0294
DELAYR
003C ,
1185
0295
OELAYC
0030
,
1197
0296
INT11
DOlE
,
0302,
1588
0296
INPARl
003F
,
0287
C
0308
tNPAR2 004A ,
0279,
0401
0310
CHJHP6
0048
,
0314,
0337,
0600,
0715, 0767,
0859
,
0925,
0930
0315
CHJPl
0051
.,
0313
"..--.,
0316
CHJPtA
0052
,
0336,
0347
I
'I
0322
CHJP2
0059
0318
V 1)324
CHJPJ
DOSS
, 1)321
0331
CHJP4
0063
,
0319,
0322
0339
INHONL
006C
,
0260, 0301, 0316,
1131
0
0340
OHITOE
0060
0306,
0754, 0794,
0825,
0866,
1141
0341
SECTIO
006E
,
0246,
03Q9,
0474,
0551,
0652,
0750
,
0621,
1266,
1143,
1387
,.----.
0343
ER~E
Ol)6F
L)
0344
ERP.D
0070
,
0328
034Q
CNTRL
0074
,
0221,
1590
("
U
f'"
V
60220300
E
PAGE
53
C;
r-'-\
U
(~'
)
PTP003
PAGE
54
0356
CNT~L1
007C
,
0351
035~
CNTRL2
007E
,
0361
0362
CNTRL3
0082
,
0358
0369
CNTRL4
OOBA
,
0355
0373
REQINT
0091
,
0377,
0375
CNTRL5
0093
,
0368
0397
CNT1B
OOgA
,
0374,
0405
CNTt
00A2
,
0416,
0410
CNTiA 00A8 ,
0422
0417
CNT2
0082
,
0428,
0429
CNT2A
OOCl
044.J
ERRC
0007
,
0425
0444
ERR
A
0008
044?
ERRA
0009
,
0420
0446
ERP9
OOOA
0447
ERR8
OODB
,
0419
0452
ERR7
OOOF
0453
ERR6
OOEO
,
0440
0454
ERR5
00E1.
,
0413
0455
ERR4
00E2
0456
ERR3
00E3
,
0408
0457
ERR2
00E4
0458
ERRt
00E5
,
0407
0470
CTE~S
00E9
,
0343,
,
0447,
,
0457,
,
0959,
0471
ERqO~'5
OOEA
,
0346,
,
0973,
0492
OVER
0103
, D488
0497
SEC
ERR
0109
,
0476
0498
RETAOR
0104
,
0465,
0499
ERSTAT
010B
0409,
0500
EREQUr
010e
,
0477
0'502
MODEl
010E
,
0481
0503
ERROR1
010F
,
0435
0512
FREQSW
0112
,
0514,
0513
CSOOA
0113
,
042CJ
0515
CSOOC
0115
0520
0521
CSOOO
011C
,
0519
0533
CSOODl
0129
,
OS26,
.
0535
CSOOO
012B
0548
CSI00
0137
,
0635
0560
CSI01
0146
,
0556
0566
CS102
0140
,
0562
0568
CSI03
0150
,
0559,
0571
CS104
0154
0573
CS105
0156
,
0578
0579
Cl05A
0150
,
0603
0582
CS106
0161
,
0587,
0593
CS107
0170
,
0591
0597
S107A
0175
0550
0599
CSI01J
0176
,
0595
60220301)
::
OATEI
10/20'75
0379
0378,
01)26,
0931
0461
0450
0344,
04'+3,
.0444,
0445,
0452, 0453,
0454,
0455,
0458,
0472,
0473,
0475,
1163,
1488
0449, 0460,
0484,
OS04,
0978,
1168,
1465
0489,
0491
0421,
0891,
1463
0517,
0518
0531
0565
0592
0446
0456
0483
0968
PAGE
54
(~
'\.....
..
r'"
',,-,
.'
r'
'-.
\,
/
i
'.
'-.
('"
\....
,,----..
I
\
( !
~
c)
0
0
0
PfP003
PAGE
55
OATEI
10/20/75
r\\
0606
CS109
0181
~
0552,
0605
\...J
0607
CS10A
0182
,
054B,
0573
0609
RES
TWO
01~3
,
0570,
0588~
0619,
0675~
0103
0
0621
LEVEL:::
0192
,
0559~
0611,
0615,
0674
0622
SPACS~
0193
,
0572,
0575~
0575,
0677,
0580,
0581
,
0759~
0763,
0764,
0832,
0835,
0836
0623
CYCLES
0194
,
0581,
0589,
0590,
0686,
0704,
0705
0 '
0759,
0116,
0777,
0841~
o
I\lt8,
0849
\
0525
CS200
01,95 ,
0539,
0543,
0606
0632
CS201
0199
0
0637
CS400
019F
,
0628,
0634
0650
CS401
01A9
,
0136
0664
CSlt02 018A , D660
0670
CSlt03
01Cl
,
0666
C'
0673
CS404
01CS ,
0663,
0669
0678
CS405
01CB ,
0683
068lt
CS406
01D2 ,
0718
0687
CSlt07
0106
~
0702,
0707
0698
CSlt08
01E3
,
0691,
06Q4,
0696.
Q
0701}
CSlt09 01FO ,
0706
0712
CS40A
01F5
,
0653
0714
CS409
01F6
,
0710
0722
CS40C
0201
,
0654,
0720
(J723
CS400
0202
,
0650,
0678
0724
CS40E
0203
~
0656,
0672~
0695
0726
CS800
0204
,
06ltO,
01),.7,
0722
0738
CS1000
020E
,
072g,
0735
(""
0749
CS1001
0212
U
0761
CSI002
0223
,
0766
0767
l:S1003
02~C
,
0790
0770
CSI0!l4
0231
,
0775,
0779
C
0784
CS1005
0246
0786
CSI006
0247
0782
0797
CSI007
025.6
,
0752,
0761
0799
SETEXL
0257
,
0750, 0808,
0830
0807
SEJEXl
D25F ,
0802,
0805
C
0810
CS2000
0262
0741,
0795
"r
,
0820
CS2001
0266
0833
CS2002
0278
,
0836
0839
CS200J
0261
,
0852
0
084?
CS2004
0286
0847,
0851
0856
CS200S
0298
0858
CS200&
029C
,
0854
0869
CS2007
02AR ,
0821,
0833
r--'
.....
0877
CS,.noo
02AC t
0813,
0867
~)
0879
CSEND
02AE
0881
CSEN4
0280
, 081\6
0687
CSEN2
0287
t
0898,
0969
0905
PASSCO
.02CO ,
0901
0
0907
CSEN1 02CE , OQ03
"
0911
CSEN1A
0204
,
0918
r--,
G
60220300
::
PAGE
55
0
0
('
;'
('~
\.
C~
C
('
C~
PTPOO3 P4GE
56
DATEI
lO/2onS
~
0914
CTENl
0209
t
0910,
0919
C~
0915
CSEN18
020A
,
0911
0916
CTEN2
0200
,
0906,
0915
0919
CSEtUC
020F
,
0917
('
OCJ25
CSEN6 02E& ,
0923
0927
CSEN7'
o2EA , 092'+ \..
...
0933
OELA
YS
02F3
,
0680,
0883,
0884
0935
JUMP
02F4
t
0312,
0315,
0415,
0'+Z7,
0602,
0717
/.-....
0789,
0861,
0897, 0922,
0940,
0941
(
I •
,
0946,
0948,
1314
\..
0947
JUMPl
0300
,
0945
0950
JUMP2
0302
,
0936,
0943
0959
CIERS
0303
,
0960, 0961,
OCJ62,
0963,
0964,
0965
(~
,
0966,
OCJ7o,
0971,
0975,
0976
I
'
..
0960
ER~15
0304
,
0895
0961
ERR14
0305
0962
ERR13
0306
,
0890
,".
~
0963
ERR12
0307
\,
0964
ERR11
0308
OCJ65
ERRIo
0309
.
0966
ERRF OlOA ,
0889
(
0970
ERR17 OlOF
0971
ERR16
0310
,
lOot
09715
ERR19
0315
0976
ERR18
0316
,
1025
0993
CHCHH
o31B
,
0284, 0492, 0593,
0708, 0780,
0852
,
0900,
0927,
0942,
1015,
1395.
1'+66
I \..
, 151,}
0999
CHCHHE
0324
,
0974
1010
CHCHHl
0334
t
0997,
1006
('
~.
1014
CHCHH2
0338
,
0996
1016
SVINP1
033E
1004,
1008,
1220
I\..
,
1018
CHINH
033F
,
0296,
0503, 0599,
0714, 0766,
0858
,
0947,
1021,
1027,
1405, 1486,
1527
",'
"
1022
CHINHE 03'+5 ,
0919
'
....
1029
GENPAT
0340
.,
0582, 0687,
1055
1038
GENl
0356
,
1036
1041
GEN2
0359
,
1034
1049
PPOUT
0361
,
1037,
1044
I"
1057
HORD
0368
,
0612,
0613,
0616,
1032,
1040,
1045
,
1046,
1049
1060
PPSH
036B
0618,
lU33,
1039,
1047
t061
PPEXL
036C
, o
56!1,
0673,
.1]807,
1053,
1097,
1118
1062
SECTEN
0360
,
0585,
0689,
0700,
0773.
0845,
1031
,
1048,
1082,
1091,
1104,
1113
/'
~,
1063
COMPAT
036E
,
0541,
0633,
0645,
0693,
073
..
,
1050
\
"-
1066
ZZ8
Ol6F
•
0566
1068
ZZ7
0371
,
0563
('
1070
ZZ5
0373
t
0557
1073
PY8
0375
0670
\
r-",
I
\'....
~
60220300
E
PAGE
56
(
('
\
'".--
(~
I I
"----/
0
0
0
0
PAGE
PTPOOJ
57
DATEt
10/20/75
0
1075
PY7
0377
,
0667
1077
PY5
0379
, 06&1
1080
GENOZ
037B
,
0770,
1098
/"-'\
1088
GENOl
0383
,
1064
\.J
1095
GEN02 018A ,
1089
1097
GENEX
Ol8C
,
1087
109Q
GENOl
038E
,
0758,
1083,
1065,
1092
1100
GEN04
03aF
,
0756,
1088,
1094,
1095
(,
1102
GENC9
0390
,
0842,
1119
--./
1110
GENCt
0399
,
1106
1116
GENC2
039F
,
1111
1118
GENCEX
OlAl
,
1109
C'
1120
GENe3 OlA3 ,
0827,
1105,
1101,
1114
1121
GENC4
OlA4 ,
0829,
1110,
1115,
1116
1123
DELAY
03A5 ,
0239,
0584, 0699,
0772,
0844,
1134
,
1140,
1143,
1159,
1191
C
1135
OELAYO
OlAC ,
1179
114':) oELAYl
03B8
,
1136,
1169
1163
C2ERS
OleF
,
116«;,
1166
1165
ERR21
0300
C
1166
ERR20
0301
,
1155
1171
oElAY2
0306
,
1144,
1176,
1180
1181
oELAY3
03E1
,
1173
1191
oELAY4 03EC ,
1187
1192
TIME
03Eo
,
1111,
1172,
1181, 1162,
1183,
1164
,
1188, 1189,
1190
1195
MINUS
03FO ,
1135, 1177,
1200,
1205
1196
HINt
03F1
,
1198,
1203
1217
PPT
03Fo
,
0430,
0516, 0533,
0574,
0583,
0619
('"
,
069S,
0762,
0711,
0834,
0843,
0882
! ,
1292,
131&
'''--''''
121<J PPT1C
0400
,
1487
1226
PPTBR
0408
,
1224
"---,,
1231
PPTIA
0400
,
100Q,
1160,
1227
I
I,
1240
INTFLG
040F
0369,
1249
"----/
1241
INTENT
0410
,
0373,
1232,
1252
1243
INTEND
0412
,
1276
1249
INTENA
0419
,
1247
C!
1252
INTENB
041C
,
1250
1257
INTENl
0422
,
1255
12&6 E3,:)36
0425
,
1245
1274
ERQ35A
042E
•
1269
0 127& ERR353
0430
1272.
1275
1284
INTEN2
0431
,
1248,
125t
1288
PPT1
0435
,
1225,
121J6,
1406
1295
PPTtB
04'3C ,
1315,
1327
~,
1308
PPT2
0448
,
1304,
1363,
1432
U
1309
PPT3
0449
1316
PPTJA
0451
,
1313
t
1317
PPT4A
0452
1310
,
1318
PPT4
0453
,
1306
0
t325
PPT4Il
045C
t
1330
1326
PP15
0460
,
1319
C'
60221130U
f»AGE
57
c:.
0
0
()
,/-,
(
,
..
c
('
\.
('
\..
....
,
.~
'-...
..
PTPO!J3
PAGE
58
OATEt
to/20/75
,'--"""
1330
PPTRET
0461
,
1320
('-- .
1331
PPTCHK
0462
,
1325
1332
FIRSTI
0463
,
0437,
1289,
1291
1333
OKINT
0464
,
0436,
1003,
1222,
1285,
1293
~~
1334
INTMOO
0465
,
0232,
0317,
0'333,
0:,H8,
0435,
0476
I
,
0994,
1007, 1019,
1150,
1156,
1223
"
,
1318,
1391,
1425
1335
HAIT
0466
,
1294,
1,.10,
1429,
1514
,-"
1336
STATr:C
0467
0330,
100'),
1026,
1132,
1157,
1226
,
1229
'I.
...
1337
INTEXV
0468
,
1231,
12'*2,
1256,
1284
1338
RBOP
0469
,
1302, 1407, 143q,
14'+0,
1506,
1507
('
,
1341
VALERR
046A ,
1300,
13ft6
" "
1354
VALER1
0478
,
1345
1355
VALER2
047Q ,
1347
1356
VALER3
Olt7A
,
134Q
/'
1358
VALER4
047e
,
1342,
1360
1360
VAlER5
0470
,
1352
1371
CTER
0481
,
1372,
1373,
1374,
1375, 1376,
1377
,
1378,
137Q,
1360,
1361,
1362,
1363'
,
1384,
1385,
1390
1372
ERR30
0482
,
1500
1373
ERR2F
0483
•
1287
1375
ERR20
0465
, 15'+0
1370
ERR2C
0486
,
1539
1377
ERR20
0487
,
1504
\
..
1379
ERRZ9
048q
,
1433
1380
ERR28 04/JA ,
1424
1381
ERR27
046B
1328
,/
1382
ERR26
048C
,
1317
i,
1383
ER~25
0480
,
1384
ERR24
048£
,
1296
1399
SECER 04AO ,
1388
r-
....
1401
STATUS 04A2
1297,
1301,
1348,
1409,
1462
I
,
1402
PSTATU 04A.3 ,
0324,
0405,
0417,
0438,
0867,
OQ99
I"
,
1022,
1151,
1244,
1295,
1431,
1464
,
1471,
1583
140-3
PCHAR
04A4 ,
1216,
1309
1404
HOOE
04A5 ,
1394
"
1405
ERl
04A6 ,
1397
1407
CHor
04AA
,
1307
1'.16
CHaTl
0484
,
1414
(
..
1424
CHfHlA 04BC ,
1421
"
1425
CH8T2 04BO ,
1418
1428
CHlHES 04CO ,
1423,
1515
1433
CHBT3
04C5
,
1426
r-
1435
CHBT8
04C6
1415,
1430
I,
1448
CHBT8B
0404
,
1442
"
1453
CHBT9
040A , 1431\
1462
CHBT15
04£3
,
1496,
1535
r-"
1471
CHBT16
04FJ
, 14&7
1488
C3ERS·
OSOC)
,
14SQ,
1490,
1491, 1492,
1493,
1494
\"
....
,.
r-
I
"
60220300
E
PAGE
5&
C
C
..
_~
l\
(j
o
u
o
o PTPOO3 PI\';F.
59
DATEI
10/20175
1489
E~R36
050A
o
1490
ERR35
0508
,
1478
1491
ERR34
050e
1492
ERR13
0500
,
1417
1493
ERR32
050E
o
1494
ERR31
050F
,
1472
1497
CHBTI0
0512
,
1460
1501
GHBT4
0517
,
1499
1505
CHBT5
051C
,
1503
o
1'313
CHRTf)
0527
,
150Q
1514
CH8T6A
0529
,
14'+7,
1452
1516
OUTMES
052C
,
14,.5,
1450,
1512,
1528
1520
MESSl
0531
,
1523
1529
AMESS
0538
,
1517,
1524
1530
QHESS
0'53C ,
1518,
1525
1531
CH1H12
0530
,
1456
1536
CHeTIJ
0542
,
1533
11540
r.H9T14
05,.7
,
1538
c
1541
MESSPC
0549
,
1443,
1444
1541
HESPCE
0553
,
1444,
154,.
1544
HESSPS
0553
,
1448,
1449
1546
MESPSE
05SC
~
144Q,
1547
1547
HESSTL
055C
,
1510,
1511
1549
HFSTLE
0564
,
1511
1558
INIT1
0565
,
0276
1567
INITt3
056F
,
1572
1576
INITtC
0579
,
1581
G
1582
INIT1A
057F
1587
INIT2A 0'588 ,
1584
1593
HCOUNT
0593
,
1574
1594
HEAD
0594
,
1573,
1593
o
1600
IA
0581
,
1?61,
1562
1604
HEAOE
0588
"
1566,
1593
o
o
o
( o
I o
60220300
E
PAGE
59
o
('
"\...
.
...-
·c:
(
.•.
--
C~
('
'-.
.'
PTPOO
3
PAGE
60
OATEI
10/20/75
~
~,
..,...,.""
A l P H t\ B E T I
CAL
S a
~
T a F S Y H
!3
a l S
•••
MHMH
AMESS
1529
BITO
0166
BITOI)
0165
BITt
0167
BITI0
0116
C."
B1TH
0177
BI
Ti2
1)178
SITU
0179
GIT14
0180
BIT15
0181
BIT2 01613 O1T3 1)169
FHT~
0170 BITS
0171
BIT6
0172
BIT7
0173
BITS
Oi7~
gnq
017S CI0SA
0579
GIERS
0959
C2ERS
1163
C3EPS
148~
CHBT
1407
CHBrt
1416
CHBTI0
1~97
C
CHBrt 2
1531
CHRT13
1536
CHBrt4 15,.0
CHBT15
1~62
CHBT16
1471
CHBTtA
1'+24
CHBT2
1~25
CHBTl
1433
CHBT4
1501
CHBT5
1505
CHBl6
1513
CHHT6A
1";1
~
CHBT!\
1435
CHRTSB
1448
CHRT9
1453
CHBTES
1428
CHCHM
n9q3
CHGH'It
1010
CHCHH2
1014
CHCHME
0999
r'
CHECK
0232
CHECKl
0239
CHECI{2
02'+0
CHECK3
0246
CHECK4
0253
CHINM
11]18
CHINME
1022
CHJMPr,
0310
CHJPl
0315
CHJP1A
0316
'-..
CHJP2
O.'t22
CH.JP3
0324
CHJP~
0331
CLRNO
0207
eNTl
0405
CNTIA
0410
C'HI8
03q7
C~T2
0417
CNT2A
0429
CNTRL
0349
CNTRL1
0356
CNTRL2
0358
CNTRL1
03&2 CNTRl4 o
36q
GNTRl-;
0375
,/
(
CNTWRO
0291
COMPAT
1063
CaNST
0201
CONTRa
014'+
CONV
0211
\,
-.'
CONVER
0205
COUNT1
0255
CSOOO
0535
CSOOA
0513
GSOOC
0515
CSOOO
0521
CSOOOl
t1533 CS100
05~A
CSI000
0736
CS100t
0749
CSI002
0761
CSI003
0767
CS1004
0770
CSI005
0784
CSI006
0766
r-
eSl007
0797
CSI01
0560
CSto?
05&6
CSI03
0568
CSI04
0571
CSI05
0573
eSl06
0582
CSI07
0593
CSI08
0599
CSI09
0606
CSI0A
0607
CS200 0&25 eS200f) 0810 CS2001
0620
CS2002
0833
CS2003
0839
eS2004
0842
CS2005
0856
CS2006
0856
CS2001
0869
CS201
0612
CS400
0637
CS~OI)O
0877
CS401
0650
CS402
0664
CS403 0670 CS404
0673
CS405 0676 CS406
0664
CS407
0687
"-
eS406
06138
eS409
0708
CS40A
0712
CS40B
0714
CS40e
0722
CS40D
0723
CS40E
0724
essoo
0726
eSEN1
OQ07
eSENtA
nql1
(-'
eSENIA
0915
CSENIC 091Q
CSEN2
,
0887
CSEN4
0881
CSENG
0925
CSEN7
0927
CSENO
087Q eTEN1
0914
CTEN2
0916
CTER
1371
CTERS
0470
CYCLES
0623
DELAY
1123
DELAVO
1135
DELAY!
11lt5
OELAY2
1171
DELAY3
1181
rJF.LAY4
11131
DEL
AVA
0293
DELAY8
0294
OELAYC
0295
DELAYS
0933
£3536
1266
EQUIP
0217
ERl
1405
(~
EREQUI
0500
ERRl
0458
ERP-I0
0965
ERRl1
0964
ERR12
0963
ERR13
0962
ERR14
0961
E~RIC)
0950 ERR16
OQ71
ERR17
0970
ERR18 0<H6 ERR19 (]975 ERR?
0457
ER~20
1166
ERR21
1165
ERR24
1384
ERR25
13R3
F.RR2&
1382
ERR27
1361
ERR26
1360
(~'
ERR29
1379
ERR2B
1377
ElH.2C
1376
ERR20
1375
ERR2F
1373
ERR3
'0456
ERR30
1372
ERR31
1494
ERR32
1493
ERR'33
1492
\'"
'"
ERR34
1491
ERR35
1490
E~R35A
1274
ERR358
1276
ERR36 14SQ
ERR4
0455
ERRS
0454
ERRI)
0453
ERR7
0452
ERR6
0447
c-'
ERR9
0446
ERP.A
04'.5
ERRB
0444
ERRC
'0443
ERRO
0344
ERRE
0143
ERRF
096Fl
ERROR1
0503
ERRORS
0471
ERSTAT
0499
EXIT
0146
FCLPIN (l148
FIRSTI
1332
FREQSW
0512
GENl
1018
GEN2
1041
GENel
1110
GENC2
1116
GENC3
1120
GENe4
1121
GENC9
1102
GENCEX
1118
GE~EX
·1097
GENal
1086
GEN02
1095
C
GEN03
10<;19
GENO,.
1100
Gc.:NOZ
1060
GENPAT
1029
GENRA
N
0150
HOOOO
0182
HOOOF
0184
H007F.
0197
HOOFO
0185
HOOFF
0188
'"
H0780
0196
HOFOO
G186
HOFFF
0191
H2020
0198
H7FOO
0195
H7FFF
019~
HCOUNT
i.593
HEAD
1594
HEAOE
1604
HEXASC
0153
C
HFOOO
0187
HFOFF
0193
HFFOO
0169
HFFOF
0192
HFFFO
0190
HFFFF
0183
I
0000
IA
1600
INFORM
0163
INITl
1558
l
C
60220300
E
PAGE
60
('
C
('
o
o
o
o PTP003
PAGF.
61
OATEa
10/20/75
o INITIA
1582
INITIO
1567
INtTtC
1576
INIT2A
1587
INITIA
0276
IN~ONL
0339
I~PARI
1)298
INPA~?
0308
I~PARA
0277
INTI
0218
o
INTll
02g6
INTENO
1243
INTENt
1257
INTEN2
1284
INTENA
1249
INTENB
1252
INTENT
1241
INTEXV
1337
INTFLG
1240
INTMOO
1334
JUMP
Og35 JUMPI ']'347 JUHP2 0950
JUMPX
0149
LASTAO
0160
LASTVA
0159
LOLICO
0162
LOU:;
01{
0161
LEVELC
0621
HAINL
0156
HESPCI::
1543
MESPSE
1546
"'ESSt 1520
MESSAG
0206
HESSPC
15,.,1
o
HESSPS
1:;44
HESSTL
1547
MESTLE
1549
MINl
1196
HINUS
1195
HOOE
14114
HODEl
0502
NONOIH
0147
OKINT
1333
OMITOE
03,.,0
OUTMES
1516
OVER
04'32
OVRLAY
0154
PARAOR
0215
PASSCO
0905
PCHAR
140
:J
PPEXL
1061
ppour
10413
PPSW
1060
PPT
1217
o PPT1
1288
PPT1A
1231
PPftB
1295
PPT1C
1219
PPT2
1308
PPT3
1109
PPT3A
1316
PPT4 1318
PPT4A
1317
PPT4B
132C;
PPT5
1326
PPTBEl
1226
PPTCHK
1331
PPTRET
1330
PSTATU
1402
PTPOO]
0213
PY5
1077
PY7
1075
PY8
1073
QMESS
1530
o
RANDOM
0204
~BOP
1331\
RELPOS
0155
~EPEAT
0292
REQINT
0373
RESTWO
0609
RETADR
0,.,98
~F.rU~N
0216
S107A
0597
SECER
1399
SEC
ERR
(lit97
SECTEN
1062
SfCTIO 0341
SETEX1
0807
SETEXL
0799
SETMAS
0157
SJ
!J209 SJPAR
0203
SHHCNT
0164
SMHPAR
0202
SPACER
0622
START
0220
STATEC
1336
STATUS
1401
STJP
0158
[:
STOPX
0145
STWOP
0221
S
VI
NTI1
1016
TIHf
1192
TSACTV
0199
TSEXIT 0210
TSFREQ
0200
TTYBZY
0152
TYPE
0208
TYPEOU
0151
VALERl
1354
VALF.R2
1355
VALE~'l
1356
VALER4
1358
VALER5
1360
VALERR
1341
HAlT
1335
WORD
1057
ZZC;
1070
ZZ7
1068
ZZ8
1066
o
o
o
o
I o
t
60220300
~
PAGE
61
o
o
('~
c
c.~
c
c
c
c
c
',-
(
(
C.'
('
C
C
C
C
C
("
o
o
o
o
c;
o
[
o
o
o
o
(J
o
o
COMMENT
SHEET
MANUAL
TITLE
CONTROL
DATA
SMM17 PROGRAM LISTINGS
PTP
Customer
Engineering
Manual
PUBLICATION
NO.
_6_0_2_2_0_3_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
:::;
(!)
z
0
.....
<
l-
=>
U
r-
0
',
(,
r--'.
\
'-......"
C"~
C
('
.....
-
.'
C
~
........
,.-
r"
I"~
..
(""'
"
r
....
I,
"
..
, '
('
'-.
(
\,
roo
I
"-
c:
('
'
....
C'
C.~
r"
......
_
......
("
'-
C
('
o
o
o
o
o
o
o
o
[
o
o
o
o
o
o
o
o
".
-
CONTROL
DATA
(~
~
'-.....
-'
r
........
~
I
',-.,~
....
C
••
CUT
OUT
fOR
USE AS LOOSE
-LEAF
BINDER
TITLE
TAB
("
'--
.~"
C~
r'
\'-..,
C~
C"
..
'
,/""
(
\,
i-
('
"
CONTROL
DATA
CORPORATION
8100
34th
AVE.
SO., MINNEAPOLIS,
MINN.
55440
'IINTED IN
U.S.A.
