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