60411400C_SMM17_Program_Listings_SMM_Feb75 60411400C SMM17 Program Listings SMM Feb75
User Manual: 60411400C_SMM17_Program_Listings_SMM_Feb75
Open the PDF directly: View PDF 
.
Page Count: 152
| Download | |
| Open PDF In Browser | View PDF |
o
o
o
o
o
o
CONTROL DATA®
SMM17
o
CJ
0,
,-./
c
Program Listings
SMM
o
o
o
o
r---,
~)
'CONTROL DATA:
I
COR
P 0 RAT ION',
.
CUSTOMER ENGINEERING MANUAL
\~
REVISION RECORD
\..... -
DESCRIPTION
REVISION
A
(~
Manual released.
Information complete through SMM17 Edition 3. O.
(4-16-73)
B
Information complete through Edition 3. 1.
This edition obsoletes all previous editions.
(5-1-74)
C
(2-4-75)
Information complete through Edition 3.1-1. This edition obsoletes all previous editions.
(
"
---.'
C~
('
c
("
' ...
Publication No.
60411400 . . . . . . .
,'
("'
I
'- .• ,
Address comments concerning this
manual to:
© 1973. 1974. 1975
by Control Data Corporation
Printed in the United States of America
~
Control Data Corporation
Publications. and Graphics Division
4201 North Lexington Avenue
Arden Hills. Minnesota 55112
or use Comment Sheet in the back of
this manual.
I
Ii"
o o o o o o
PAGE
SHHOOO
NAH
0001
o
C) C'·
OATES 12/17/74
1
120&4 COPYRIGHT CONTROL DATA CORP 1974
SHHOOO
..
HAINTENA~CE
.........................................................................
001.1
0012
tnJ13
0017
OFDO
lIFDE
·:OFDF
0018
O~AO
0019
0001
OlJOS
0006
0001
0002
001S
0016
0020
,0021
OD22
0023
002,.
1J02S
-0026
0027 .
EQU
EQU
EGU
EQU
EQU
C:QU
EQU
EQU
EQU
EQU
EQU
0003
000 ..
0005
EQU
EQU
0008
002CJ .
003t
0031 .
0000
0032
0003
0033
0004
EQU
EQU
EQU
EQU
EQU
EQU
0001
0002
0034
DOnS
0035
0006
003&
0037
0038
0007
0009
Eau
EQU
EQU
EQU
EQU
EQU'
EQU
EQU
OOOA
OOOB
DaDe
OOOE
OOOF
EQU
0010
0011
0012
0048
0015
EQU
EQU
EQU
EQU
EQU
0049
0016
EQU
0045
()
••
••
••
••
••• 1700 SYSTEM
HONITOR •••
••
••
••
EXECUTIVE -PROGRAH F~R SMH17 3.1-1 U8RARY OIAGNOSTICS
•
••
••
••
••
••
........................................................................
0010
00ft6
0047
o o
~
0006
0007
0008
0lJ9CJ
0042
0043
00 ....
(j
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .••••••••A . .. .
ooas
0040
0041
)
..................... .................................................
0103
aoolt
0039
(
0013
0014
60411400
e
PASSHH(SFFF-S22)
PASSJ CSFFF-12U
PASEQ(SFFF-S20)
PRELDR(SOEAO)
NAME(1)
HUXRT ACNAHEt-1tJ
T£STE Q CHUXRTA+U
PT (1)
CROtzt
HT(3)
OP(4)
CDDCS)
SMHCONTROL PARAMETER.
STOP~4 L"P PARAHETER.
LI8R~R~ LOADER EQUIPKENT ADDRESS
PRELOADER S~ARTING ADDRESS
TEST ADDR FOR ALF 3.10 STATEMENT
TEST ADDR OF ftULTIPL£X RTN ADDR
ADOR FOR PASSING EQUIP ADDRESS
t.OAD£R
DEVICE
TYPE
EQUATeS
HT8(8)
STARTCQ)
WEST1 (START+l'
WEST2CWEST1+1)
WEST3CWEST2+1)
WEST4 ("EST3+1)
WECHST U4EST4+1)
WE CWECHST+1)
ILT(WE+U
PRGCLKClLT+2)
HACT (PRGCLK+U
OATlGHCHACT+U
TSTNAHC DATLGH+1)
PRGERRCTSTNAH+2)
HNTERRCPRGERR+l)
ITESYHCHNTERR+U
IOESYHCITESYH+l)
PRESYHCIOESYH+1)
AFESYH CPRESYH+l)
PEESYHCAFESYH+l)
PFESYHCPEESYH+l)
CHANNO(PFESYH+1)
START OF TEST
STATUS 1 EQUIP ADDRESS
STATUS 2 EQUIP ADDR.CO=NONE)
STATUS 3 EQUIP ADDR.CO=NONE)
STATUS 4 EQUIP ADDR. CD=NONE)
CAHN STATUS ADOR. (O=NONE)
EQUIP ADDRESS
INTERRUPT lINE DATA (2 WORDS)
PROGRA~ CLOCK
DSA ACTIVE CELL
DATA LENGTH TRANSFERE CEDL
TEST NAME
PROGRAt ERROR NUHBER
HONITORERROR NUHBER
INTERRUPT TIHE ERROR SYMBOL
1/0 TIME ERROR SYMBOL
PROGRAHHED ERROR SYHBOL
ADDRESSING FAULT ERROR SYBOL
PAREITY ERROR SYHBOL
PROTECT FAULT SYHBO
CHANNEL NO W FIELD
PAGE
1
PAGE
SHMOoO
0050
0051
0052
0053
0054
0055
0056
0057
00'58
0059
0060
0061
0062
0063
0064
0065
0066
0061
0068
0069
0010
0071
0072
0073
0014
007.5
0076
0071 '
0078
0079
0080
0081
00,82
0083
0084
0085
0086
0087
0088
0089
0090
0091
0092
0093
0094
0095
0096
0097'
0098
0099
0100
0101
60411400
(j
()
£QU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
Eau
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU,
EQU
EQU
EQU
EQU
EQU'
EQU
EQU
EQU
EQU ,
EQU'
EQU
EQU
EQU
PAGE
C
('"
.
EQUIPMENT NO.
EQUIPTCCHANNO+l)
STATION NUHBER
S r ATNO CEQUIPT +1)
INTERRUPT LINE NUHBERS
ITLINS(STATNO+l)
TIHE EXPECTED
XTIHEUTLINS+U
TIHER (XTIHE+l)
ACTUAL TIHE
STATUS CONTROL HORD.
STCNTLCTlHER+lt
LAST OPERATION.
LOPER CSTCNTL+U :
LAST OfERATION RESPONSE
LOPRSPCLOPER+U
LAST OPERATION CAl
LOPERAILOPRSP+l)
LAST 0 FERATION CQ)
LOPERQ'LOPERA+1J
LAST INSTRUCTION
LI NST CL OPERQ+ 1 )
lAST INSTRUCTION RESPONSE
LINRSPCLINST+l)
LAST INSTRUCTION (AI
LINSTACLINRSP+l)
LAST INSTRUCTION (~t
LINSTQ'LINSTA+l)
INTERRUPT HASK REGISTER
IHRfLINSTQ+U
CONTENTS OF PREG AT ERROR TIHE
PRE'CIHR+U
CONTENTS OF TRAPNO AT ERROR TIHE
LINENO(PREG+1)
EXPECTED HASK VALUE.
EXIHR ILINENO+U
STATUS 1 RESPONSE.,
ST1RSP'EXIHR+l J
SKIP STATUS 2 INFO
SKlP7 CST1RSPtU
STATUS 2 RESPONSE
ST2RSP(SKIP7+1)
SKIP CHANNEL ,INFO
SKIPS IST2RSP+1J
CHANNEL STATUS RESPONSE
CHRSP (SKIP5+1 J
CHANNEL ADDRESS RESPONSE
CHARSP 1 CHRSP+U
SKIP CHANNEL STATUS 3
SKIP5ACCHARSP+l)
CHANNEL STATUS 3 RESPONSE
CH3RSPISKIP5A+l)
STATUS 1
ST1CCH3RSP+1)
SKIP STATUS 2 INFO
SKIP8 (ST1+1)
ST2 (SKIP8+!)
STATUS 2
SKIP CHANNEL INFO
SKIP" IST2+1)
CHANNEL STATUS
CHST(SKIP4+U
CHANNEL ADDRESS
CHADRCCHST+l)
CHECK STATUS 3 CHA~NEL
SKIP4A (CHADR+!)
CHANNEL STATUS 3
CHST3ISKIP4A+U
EXPECT STATUS U
XSTl CCHST3+iJ
SKIP£) (XST1+1)
SKIP STATUS Z lNFO
EXPECTED 'STATUS 2
XS T2C SK IP6 +1)
SKIP CHANNEL 'INFO
SKIP2 CXST2+1)
E~PECTED C~ANNEL STATUS
XCHST (SKIP2+U
EXPECTED ,CHANNEL ADDRESS.
XCHADRIXCHST+1)
STATUS 3 CHANNEL SHT'
SKIP2A(XCHADR+l)
STATUS 3 EXPECTED CHANNEL STATUS
XCHST3(SKIPZA+l)
ADDRESS 00 CALLER FOR MULTIPLEX
CALLP (XCHST3+U
ADDRESS OF MULTIPLEX CALLER
HPlCRTNICALlP+U
RECOGNIZE INTERRUPT 8ITOO
RBUCHPXRTN+l)
TEST COMMAND LIST LENGTH
TSCOMLCRBIT+1)
SDATAIXCHST3-LINENO) LENGTH OF STATIC ERROR INFO
TSDATACTSCOHL-7+S0ATA) LNGTH OF ,VOLITILE TSOATA AREA
TDATA CTSCOHL+SOATA) , TOTAL LENGTH OF, TEST COMMEND ARE
ADDRESS OF ERROR/OPERATION FILE
ERRFLECSTART+$BJ
1 ONLY=O
NUHBER OF FILES
CRLUNOCERRFLE+l)
CURRENT STATION/UNIT
CRSUNO(CRLUNO+l)
EaU
EQU
EQU
0011
0018
0019
001A
0019
001C
0010
001£
001F
0020
0021
0022
0023
0024
0025
0026
0021
0028
0029
002A
002B
002C
0020
002E
002F
DOlO
0031
0032
0033
0034
0035
'0036
0037
0038
0039
003A
OOlB
OOlC
0030
003E
003F
0040
0041
0042
00"3
004ft
0019
0056
0050
OOOB
OOOC
0000
DATE' 12/17/14
2
I
( \J
()
f \!
,
() (l ()
o Cl
,
I
2
:~
,
,
()
.
/
o
n
'--
SHHDOO
0132
0133
013,.,
0135
Ot36
0137'
0138
3
o
o o
C)
OATEI 12/17/71t
........................................................................
•
ERROR 10 = OOX8
•
•
FOR ALL HONITOR ERRORS
•
OUJ8
0109 .
.OJ.3!
(
PAGE
0.10"
0105
OUJ6
01G7
0110
0111
0112
'0113
0111t
0115
0116
:0117·
0111
0119
0120
0121
0122
otza
012 ..
0125
0126
0127
0128
0129
0130
n
•
•
SHH ERROR
-NUMBER
•
•
•-EQU
xx
HEHPECS01)
HEHORYPARITY £RROR. A3=INTERRUPTED PROGRAHADDRESS. •
EQU PROTECT($02J PROTECT FAULT. A3=INTERRUPTEO PROGRAH ADDRESS.
EQU
·CLRPPCS031 MONITOR HESSAGE. CLEAR COHPUTER PROTECT ·SWITCHCESJ.
EQU UNREQICSOItJ UNREQUESTED INTERRUPT. A3 = DECIHAL LINE NUMBER.
EQUILBZY CSOS) INTERRUPT LINE REQUEST CONFUCT. A3=REQUESTORS 1-A,
••••
Q3=ASSIGNfD INTERRUPT PROCESSORS ADDRESS.
EQUDATAREJCS06J TELETYPE REJECTED DATA -AFTER DATA I NT£RRUPT •
0006
EQU ITIHERCS07J HBS -COULD NOT RETURN TO TEST AFTER INTERRUPT WITHIN
0007
••••
THE TIHE SPECIFIED BY THE TEST.
EQU .NOHOCORCS10J LOAD AREA INSUFFICIENT fOR lEST. RETRIED AFTER TESTS
aal0
••••
IN CORE RAN, ABORTED IF NONE. A3~TEST 10, Q3=ASSIGNED IA.
EQU ILLRBDCS11) LO.oER ENCOUNTERED ILLEGALRBD BLOCK 10. A3=ID WORD.
0011
••••
Q3 = CODE OF LOAD ERROR,. IF ANY. LOAD ABORTED.
EQU
NOXFRCS12) NO RBD TRANSFER BLOCK FOUND. LOAD ABORTED.
0012
EQU CKSHERCSt3' CHECKSUM ERROR. CCARO OR PAPER TAPE' ATTEHPT RELOAD.
0013
EQU PTALARHCS14' PAPER TAPE READER ~LARH. A3=STATUS. ATTEMPT ~ELOAD.
Oat ..
EQU CRALARH1S1S) CARD READER ALARH_ A3aSTATUS. ATTEHPT RELOAD.
001S
EQU
CREOP(S16) IHPROPER CARO READER EOP. A3=COLUHN COUNT. TRY RELOAD
0016
EQU
"TPE(117) LOAD TAPE PARITY ERROR. A3=STATUS. Q3=TIHES ERROR
0011
••••
RECURRED (LOAD RETRY ABORTED ON ITH, SUCCESSFUL IF LESS)
EQU OPALARHfS18) OISK PACK ALARH. A3=STATUS. Q3=TIHES ERROR RECURRED
·0018
••••
(LOAD RETRY ABORTED ON 50TK, SUCCESSfUL IF LESS)
EQU COPALHCS19J CART. OISK ALARH. A3aST.TUS~ Q3=TtMES ERROR RECURRED.
0019
••••
'LOAD RETRY ABORTED ON 50TH,SUCCESSFUL LOAD IF LESS)
EQU OLLERR(SlA) OVERLAY LOADING ERROR ON OVLYSC"BS) RELOAD SYSTEM
D01A
0020 .
EQU COR"ODt'2OJ POST-LOAD, PRE-EXECUTION TEST HODIFICATION STOP. HC,
••••
HAKE CORE CHANGES WHERE TESTeS) LOADED. HC, RUN TO RESTART
EQU HUTEXCCS21) ANY TWO OF THE' FOlLONING TESTS HAVE BEEN
0021
••••
LOADED CONCURRENTlY- HY1.HY2,~H,RPT
0001
0002
0003
0001t
0005
•
•
........•........•.......•..............•.............................
0139
~.
0140
•• 10 ERRORS REPORTED DURING LIB LIST INCLUDE STOPA4/Q4 = 1ST/3RD
. RECORD WORDS. CA4=BLOCK 10, Q4=PROGRAH ADDRESS OF BLOCK OATA
•
D14Z
011t3
014 ..
••
0146
0147
•
If ID:RBD6LK. $4050)
••
•
••
• •••••••• .v. ........ .v. . . . . . . . . . . . . . . . . . . . . . . 9 • • VV.;l.N • • • • • • • J;Io • • • • • • • • • • • • • • •
60411400
C
PAGE
3
PAGE
S"HOOO
•••••••••••••••••••.
0148
01'49
•
01.50
• HOOAYR VRSN
•
•
•
•
•
•
0151
0152
0153
015,.
0155
0156
0158
0159
0160
0161
01'62
0163
0164
0165
0166
0167.
0172
017,.
0177
0178
0179
0180
0181
• 062774·V 3.1
•
••
•
•
•
0185
0186 .
0187'
0188
0189
0190
073074 'v 3.1-1
080674
• 081074
•
0191
0192
• 08157lt
0193
• 120374
•
0194
EJW
...
HSS
•
•
•
•
ADD CHECK FOR ONE OF THE FOLLOWING TESTS
TO BE IN CORE AT THE SAKE TI"E- HYl "Y2 HEH RPT
IF HORE THAN ONE IS IN CORE- ERROR 21 IS REPORTED
EJN
...
0J:82
0183
0184
• .
•
•
,. ADDED COPYRIGHT HSG. EJH
•
•
•
•
•
•...
01.76
••
EJW
3. FIXED MBS THREADING PROBEEHS ON CR 600 NS
• 05107..
017S
P~OBLEHS
CHANGED ENA 6 TOENA ,.
2. ADDEO LINE PRINTER DRIVER TO MONITOR
•
0.1:73
IHPROVE HBS INTERRUPT PROCESSING HSS/TLO
CHANGE TTY INPUT PACKAGE FORHAT
NO PREFEX- HEX NUHBERS
N PREFEX- DEC NUMBERS
B. PREFEX-SET BITS
P PREFEX- SET P REGISTER AND GO
EJW
IHPLEMENTED 8000 LOADER DEVICE TYPE 8
OVERLAY 7. ADDEO EQUATE FOR LON CORE CELL
SE2CUSED IN EDIT .AS 8000/1732 PRELOADER SWAP
FLAG WILL BE ZERO EXCEPT DURING QL-BINARYTRANSFER AND PRELOADER SWAP)
ADDED HT8-EQUftTE
CHANGED DEVICE CHEC KIN' LIB) 'lISTTO INCLUDE
8000 TAPES. CORRECTED TTY INPUT ERROR HESS.
N.E.JUNGJOHANN CDC CE HUNICH
ADDED 'ISERR CALL TO REPORT ERROR FROH INTERRUPT
STATE
TLO .
IHPROVE CARTRIDGE DISK LOADER
'JU
ADDED OHIT TTYPEOUTCKTOTTY·INPUT PACKAGE ·SO NO
TYPEOUTS OCCURE IF BIT -08 IS SET. EJW
HOVEDLP DRIVERTOHINIHIZE CORE REQ
CORRECTED SENSING FOR HACHINE TYPES
EJW
CORRECTED EXIT Of lP DRIVER
EJH
SPEEDUP TO TAPE LOADER-ERROR 17 NOH ALARMII NEJ
••••
FIXED HBS PROTECT PROBLEH CAUSED BY.RIE325 LOGIC
ADDITIONS AND HPX CHANGES. H.S.SATTER
FIXED PROTECT FAULT IN HBS RIE025
II NEJ
...
•
•
•
...•
•
•
JU
JU
JU
JU
JU
JU
JU
JU
•
•
•
•'"
•
'"
•
•
0195
0196
••
0190
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
60411400
)
1. FIXED HANUAL INTERRUPT
•
•
0171
WHAT WAS DONE. WHY. AND BY MHOH.
042274
....
0169 .
0110
................................ .
SYSTEH RELEASED
• 061074
•
061574
01'68
REVISION RECORD
032074 V 3.1
•
•
•
•
•
·050774
•...
•
•
0157
,,\
DATEI 12/17/74
4
(~
/
120674
PAGE
C
(
"
;
/
\
()
'-
/
It
()
,- -j
C~1
0 C) 0
C)
C)
(~)
PAGE
SHHOOO
0200
02Dl
0 0
0000
0000 1C25
SHHOOO
ORG
..IHp·
(
""\
-j
~)
(---_.
0 C) 0 n 0 0
\. ~~/
DATEI 12/17/74
S
0
(INTX)
SHH INITIALIZATION ROUTINE.
.......................................... .............................
~
82D~
020ft
0205
0206
0207
•
ADDRESS POINTERS AND' PARAHETERS
•
•
•.........................................................................
a209 0001 037E
0210 0002 03DD
a211 0003 0391
0212 0004 0285
0213 ,0005 0283
0211t 0006 004C
0215 0007 05BIt
0216 0008 0522
0217 ' 0009 05AA
0~18 ' OOOA 03B8
0219 OOOB 05CF.
0220 OOOC ,D301t
0221 0000 0280
0222 OOOE 0781
0223 ooaF 0762
0221t 0010 OB29
0225 OD11 0891
0226 0012 OC7E
0227 0013 OC6F
0228 0014 DCeit
0229 0015 OD30
0230 0016 0076
0231 0017 0086
0232 0018 OOFS
0233 0019 DEoa
0234 o01A DEoa
023S 001B DEll
0236 OOtC OB23
0237 0010 oeOF
0238 DOlE 0009
0239 GOlF 00E3
0240 0020 ODAS
0241 0021 OACE
02ltZ 0022 DA7E
0243 0023 OA9A
02 Itlt 00Z4 0181
0245 0025 099C
0246 0026 o9E9
02ft7 0027 0220
021t8 0028 026A
021t9 0029 09CA
0250 002A 08BE
0251 0028 08E7
CONTROL
STOP
601t111t00
C
ADC
ADC
ADC
REQIT
AOC
FAKE
ADC
..IUHP
ADC
AOC
GENRDM
TYPEOUT AOC
AOC
TTYBZY
ADC
JiEXASC
ADC'
OVRLAY
RELPOS
AOC
HANUALIN AOC
AOC
INPTTY
MONPP
AOC
ADC
FN
ADC
HNTRST
CKST
AOC
REeKST· ADC
ADC
ERROR
ADC
CLOCK
ADC
RO"OLY
ACC
FIXOLY
ADC
SPB
CPB
ADC
ADe
RO
ADC
WR
ADC
HOG
ADC
AOC
FHAI
FHAEI
AOC
HSINIT
ADC
ADC,
RINT
ADC
CSELIN
SELIN
ACC
ADC,
INTPRC
ADC
INTX
ADC
HPX
PFRT
AOC
SHERROR ADC
TYSEL
AOC
ASCHEX
ADC
ASCDEC
AOC
CONTRO
PRESTP
EXIT
REQINT
FCLRtNT
..IUHPX
GENRAN
MESSAGE
TTeuSY
QOHASC
OVERLAY
AQPOS
HAINl '
INTTY
SPPOOO
FNEOQO
HNEDOD
CKEODO
REf 000 .
EREOOO
TIEOOO
XDeooo
FXEODO
SPEOOO
CPEOOO
RDEOOO
WREDDO
HGEOOO
RIE02'j
FHEOOD
posooa
HSEOOO
RIEOOO
OSEOOO
SIEOOO
PROCESS
INSHH17
HPEODO
PFR
SHHERRS
INf025
CONHEX
CONDEC
S"" "ULTILPEX ROUTINE
ALL STOPS AND ERRORS TYPEOUTS
EXIT TEST WHEN PASS IS COHPLETED
REQUEST INTERRUPR ADDRESS
DO NOTHING ROUTINE FAKES CLRINT
..lUMP ROUTINE
RANDOM' NUMBER GENERATOR
OUTPUT MESSAGE TO THE TELETYPE
WAIT TTY SOFTWARE BUSY
HEX TO:ASCII CONVERSION ROUTINE
OVERLAY CALL ROUTINE
POINT TO RELATIVE POSITION TEST
HANUAL INTERRUPT ROUTINE
SET SH" PROTECT PATTERN
AODR OF SET HOG FLAG ROUTINE
RECOGNIZE INT RETURN
ADDR OF "8S INITIALIZE
RECOGNIZE INTERRUPT
DE-SELECT INTERRUPT
CHANG~D TO HCINIT IN INITIALIZE
ADOR F HBS HULTIPLEXER
PHR FAILURE INTRPT RESTART ADOR.
SHH ERROR MESSAGE ROUTINE
FWAOF "BS PACKAGE
ASCII TO HEX CONVERSION ROUTINE
ASCII TO DECIHAL CONVERSION
PAGE
5
(~
'--- -
C) c-'
PAGE
SHHOOO '
0252
0253
025"
0255
0256
0257
02!jS
0259
0268
02~1
0262
0263
026"
0265
0266
0267
11268
0269
0270
0271
02'.72
0273
0274
0275
0276
02,71
0278
0279
0280
0281
0282
0283
0284
0285
AOC
AOC
NUM
002E DODO.
NUH
102F 0000
NUH
0030 0000
HUH
00'31 0000
NUH
0032 0100
NUH
0033 DODD
NUH
HOG2
0034 0000
NUH
ILO
0835 0000
0036 SOlE, AUTOPP
NUH
0037 0000. CALLPT
NU"
NUH
TKR
0018 0000
NUH
TI<16
0039 0000
TI(32
NUH
003A 0000
NUH'
TI<64
003B 0000
TI<128
NUH
003C 0000
XCOHUS
ADC
0030 OOCA
NUH
003E 0000 ' IOOATA
IOTHl
NUH
003F DODD
NUH
IOTM2
00"0 0000
NUH
IOTH3
0041 0000
SETH ASK NUH
00lt2 FFFF
NUH
STJP
001t3 0200
LASTVALU AOC
0044 0794
NUH
0045 0000 ' LASTAD
HUH
INBI1
0046 7F3F
LDLCORE NUH
00lt7 7FFF
LDLICOR NUH
0048 FFFF
NUH
INFORH
001t9 DODO
LASTOV
NUH
004A 0000
OVFWA
NUH
004B 0000
PRGlOAD
ADINST
INTFLG'
IOACT
NULL
HEXWORD
ASCHO
002e '0622
0020 OA32
DATEI 12/11/74
6
lOCONT
INTSTK
•
0
0
0
0
..
...'
0
•
SSDIE
•
•
•
•COHUSE
•
•
•
•SFFFF
S200
EHIlHONl
SO
S7f3F
S7FFF
SFFFF
SO
0
LOAD CONTROLLER
AOOR OF HBS STACK COUNT
HBS INT HAS OCCUREO
OSA ACTIVE
REQUEST DSA STOP ACTIVITY
PTC2
PTC2
PTC2
INHIBIT SHH17 INTS DURING HOG
INTERRUPT LOCKOUT
PTC2
PROTECT CONSTANT
ADDROF LAST RTJ TO "NTR
TIME REMAINDER
16 USEe CLOCK
32 USEe CLOCK
6 ..,: US EC CLOCK
128 USEC CLOCK
PTC2
RD/WR TIHE RUNNI"G.
SOOO-C 112) (HSEC)
FAST CLOCk
FAST CLOCK
8000-' 112) (HSEC)
8000-HILLISECOND SLOW CLOCK
HASK LINES TO BE UESO BY SHH
STOP/JUHP FOR TEST IN CONTROL.
HONITOR UfA+l
LAST LOAD LWA+l
RBO INPUT BUFFER
LAST ADDRESS OF BANK 0
LAST ADDRESS OF BANK 1
INFORHATION WORD (SEE TABLE)
LIB OVRLAY POSITION, IF NON ZERO
CURRENT OVERLAY FHA ON LIB.
.........................................................................
•
•
•
..•••
0
INFOR" = INFORMATION HORD
0286 '
BITS 15 TO 12--CORE SIZE
0287
0288
0000 =- ItK
0001= 8K
0010 =12K
0289
0290
0291
0292
BIT 11--HASK SIZE
a = 4 BIT "ASK
1 =16 BITHASK
•
0011 =161<
•
0100=2 OJ<
•
0101 =21tK
•
0110 ,=28K
•
0111 =321<
•
BITS 3 TO O--BUSY SWITCHES
BITS 7 TO ·4--BUSY SWITCHES
•..
0001 = TELETYPE
0001 0000 = 1716,06 NO. 1
0010 = PAPER TAPE READER
0010 0000 = 1716,06 NO. 2
•
0100 = PAPER TAPE PUNCH
0100 0000= 1716,06 NO. 3
..•
1000 = CARD READER
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0293
0294
0295
0296
0297
0299
0300
0301
0302
0303
03DIt
60411400
,I'),
,
~
PAGE
C
.~-'"
f
\
()
" . , Of
•
6
(~
,
/
•
\
.
,
"
,',
()
o
o o o o
PAGE
SMHOOO
Ol06
030.7
0308
0309
0317
0318
0319
0320
0321
C)
o
c
C)
DATEI 12117/74
7
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
•
•
JUHPX PROCESSING ROUTINE
•
•........................................................................•
0305
0311
0312
0313
031"
0315
8316
o
o
()
NUH·
o
STA·
JUMP1
STQ·
JUHPJ
o
LDANUH
a
JUHPO-·-l
SAN
0051 0111
SWN
JUHP2-·-1
0052 0197
CHSTOP)
RTJ·
0053 SC70 . JUHPO
.JHp·
JUHP2
ODSft 1806
. 0055 0011
NUH
S11
' ••••••••••••••••••• SHH PARAHETER HORO
.
OO"C 0000 . JUHPX
00"0 68DB
OOltE "aOB
OOltF COOO
0050 DODO
MISHX
•
•
03:22
0323
•
•
•
•
•
•
•
•..
032,.
0325
0326
0327
0328
0329
1)3l0
0331
..
0332
0333
•
0334
0335
0336
•
..•
....
.....
0337
03.38
0339
OlltO
03ft1
03"2
031t3
....
0344
OlltS
•
0346
0347
0349
0056 0200
0350
0351
03.52
0057 1191
0058
KANUAlINTERRUPT SWITCH,
OR SKIP SWITCH SET-
..............................
10.
BITS
15
lit
13 : lOADER TYPE
12
001=PT 010=CARDS 011=HAG TAPE
101 = 1739 1000: 8000 TAPE
100=85X
11 = CORRECTION STOP
10 = SELECT LINE PRINTED ORIVER
9
= SKIP
8
7
=
SEL HBS PACKAGE «INITIALIZATION
= BUILD TEST lIST.
6
5
= TYPE
ft
3
2
HEX CORRECTION ON lOAD
TIME ONLY)
= SEL TTY INPUT PACKAGE (INITIALIZATION TIHE ONLY)
0 UT I N NON INTERUPT HODE
= LOAD TESTS AT EVEN $100
= HEMORY SPEED
0
0
0=1.1HS
1=1.5"S
1
=
= REPEAT
o
= TYPE OUT LIBRARY LIST
Q.l.
1
0=900NS
1
1=600NS
«INITIALIZATION TIME ONLY)
(INITIALIZATION TIHE ONLY)
SHMCNT
NUH
10200
SHH17 CONTROL PARAMETER NORD.
••••••••••••••••••• lOADER EQUIPMENT ADDRESS •••••••••••••••••••••••••
EQUIP
NUH
$1181
EQUIP ADDR FOR MT OR OP LOADER.
JUHPl
NUH
o
DODO
60ltlf400
.JUHP ROUTINE - ENTER SUBROUTINE
HITH A CONTAINING THE .JUMP HASK.
C
PAGE
7
C)
PAGE
SHHOOO
JUHP3
JUHP2
03.58
0359
0360
0361
0362
0059 0000
005A OAOO
005B 68F4
OOSC E8EF
0050 !Ja06
005E E8FA
005F A8F8
0060 0111
0061 08EA
0062 10£9
0364
0365
0366
0361
OJ68
0369
0370
0371
0063 0000
006ltC8DF
0065 5CA6
0066 0132
0061 ceDB
0068 lCFA
0069 C851
006A lCF8
lOSTJP
0353
035ft
0355
0356
03S1
60411400
f
\/
.
1\
J
(j
SHHSJ
OATEI 12/17/74 .
8
-.
NUH
ENA
STALOQ·
RTJLDQANDSAN
RAO-JHp·
HISHX
JUHPX
LDSTJP
JUHP3
JUMPl
1
JUHPX
CJUHPX)
NUH
LOARTJSAH
LOAJ"P-LOAJHP.
LASTVALUE
(RapOS)
SMMSJ----l
STJP
(LOST JP)
HSTJP
(LDSTJP)
Q-REG lEHP SAVE
RESET MANUAL INTERRUPT SWITCH.
D
LOAD APPROPRIATE STOP/JUHP ·HORD.
PROCESS THE PARAHETER STOP.
JUHP BIT SET IN STOP/JUMP WORD
NO
YES
LOAD AREG WITH
APPROPRIATE STOP/JUHP NORD.
DETERMINE RELATIVE POSITION.
ANEG
S"H REQUEST.
APOS
TEST REQUEST.
Q
=
=
USE SMM STJP.
PAGE
C
/
/
\
8
r\
)
(\
\
)
o
o
()
(J
PAGE
SHHOOO
.~
0373
0371t .
0375
0376
0377
-
0379
0380 .
9381
03e2
0383·
038 ...
0385
.0386
0387
0388
8389
0390
0391
0392
0393
039" .
0395
0396
0397
0398 .
039'
OltDO
OItOl
0,.02
.Olt03
01t01t
C
')
__J
o o o o o
()
DATEI 12/17/7,..
CJ
................••. ...•.•............. ....•...•...•..•.............
~
~
.;
........................................................................
•
•
BITOO
0068 0001
D06e .0002 . .BtT01
BIT02
0060 0001t
BIT03·
a06E a008
006F 0010 . BITO ..
8IT05
0070 0020
BITOG
0071 001t0
BIT07
0072 0080
BIT08
0073 0100
BtT09
Oa71t 0200
0075 OltOO
9IT10
BITll
0076 0800
BIT12
0077 1000
BIT13
0078 2000
BtT14
0079 .. 000
BIT15
007A 8000
HOOOO
0078 DODO
HFFFF
007e FFFF
0070 OOOF
HDOOF
HOOFO
007E OOFO
HOFOo
o07F OFOO
HFOOO
0088 FOOD
HoOFF
OOIU ~OFF
HFFOo
0082 FFOO
HFFFO
0083 FFFO
008,. OFFF
HoFFF
Olt05 0085 FFOF· HFFOF
HFOFF
01t06' 0086 FOFF
H7FFF
01t07 0087 7FFF
H7FOG
Olt08 0088 7FOO
0409 00890780 . H0780
HOO7F
Oltl0 008A 007F
H2020
0.. 11 0088 2020
0.. 12 oose 0108
Cla8
HFEFO
Olt13 0080 FEFO
HOEOO
Oft14 008E OEOD
007B
0.. 15
60411ltOO
o
C)
CONSTANT TABLE
MUH
NUH
NUH
NUH
NUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUK
NUH
NUH
NUK
NUH·
NUH
NUH
NUH
NUH
HUH
NUH
NUH
HUH
EQU
1
Z
It
8
110
S20
SltO
S80
SlOt
S200
lltOD
S800
S100D
S2000
SItOOO
S80'0
SOOOO
IFFFF
SoOoF
$OOFo
10FOO·
SFOOO
SODFF
SFFOO
SFFFO
SoFFF
SFFOF
IFOFF
S7FFF
$7FOO
S0780
$007F
S2020
S108
SFEFD
$OEOO
ZEROCHDOOO)
USED IN HBS
HNE006-HNE010
EQUIP NUMBER HASK
-S102
EXIT INTERRUP INSTRUCTION
PAGE
9
C)
SHHOOO
PAGE
........................................................................
04J.7
0.. 18
0419
0420 .
0421
04'22
0.. 23
.
•
TEST
LIST
TABLES
AND
PARAHETERS
•
•
•
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
0.. 25
0426
0427
0"28
008F'
OOaf 0002
0090 0000
0091 OGOO
0430
0431
0432
0.. 33
0434
0"35
0436
0.. 37
0438
0439
0092
0093
009 ..
0095
0096
0891
0098
0099
D09A
0098
0101"
0201
0000 .
0000
0000
0000
0000
0000
·0000
0000
TSFREQ
04,.1
04 .. 2
04 ..3
04"
0,. ..5
0....6
0....7
04 ... 11
0.... 9
0.. 50
009C
0090
009E
009F
OOAO
OOAl
OOAl
DOAl
OOA ..
OOAS
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
TSEQAD
0~2
00A6
00A7
OOA8
00A9
OOAA
OOAa
OOAC
OOAD
0000
0000
0000
0000
0000
0000
0000
0000
TSIAAD·
0453
0.. 5..
0455
0456
0.. 57
0458
0459
0460
0461
0,.63
0464
0,.65
0,.66
,
TSSEL
TStNtT
TSACTV
aOAE ooon
OOAF 0000
TSTJP
0000 0000
0081 DODD
00B2 0000
0003 0000
60411,.00
(~/
10
()
ORG'
NUH
NUH'
NUH
NUH
NUH
NUM
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
.:
2
. 0 .
0
S0181
S0201
0
0
NUMBER OF TESTS SELECTED
NUMBER OF TESTS INITIALIZED
TABLE INDEX TO TEST IN CONTROL.
COMMAND TEST
MEMORY TEST
1ST ZERO· ENTRV TERMINA TES LIST .
0
0
0
0
0
0
0
a
TEST EQUIPHENT ADDRESSES
0
0
0
0
0
D
0
0
0
0
0
INITIA L AODR OF INDIVIDUAL TESTS
0
0
0
0
a
0
0
0
INDIVIDUAL TEST STOP/JUHP PARAHS
a
a
0
PAGE
C
(~
J
()
10
r~
\
/
(j
'---
)
C) 0 C) c) 0 0 0
S""OOO
0~67 . OOB ..
0.. 6, 00B5
0469 0086
0.. 78 '08B7
Olt71. aoae
Olt72 00B9
0 ..73
OD8A
01t75
0.. 76
0.. 77
Olt78
0.. 79
OOBB
OOBC
OOBD
OOBE
OOOF
0.. 81
00C1
00e2
00C3
OOCIt
00C5
00C6
o.. eo oDeD
Olt82
Olt83
04alt
0485
Olt86
PAGE
0000
0000 .
0000
0000
0000
0000
0000
0001 - BO
0001
B1
82
0001
B3
0001
0001
Bit
85
0001
86
0001
0001
87
HSTOP
03E8
ISER
0225
TTOTTI
·0516
0000
RWDFLG
0507
0508
0509
0510
0511
c
')
J
C) 0
Cl 0 0 0 0
DATEI 1ZIL7,7,.
11·
a
NUH
MUH
NUK
HUH
NUH
HUH
HUH
a
0
O'
a
a
8ZS
BZS
SZS
BZS
BZS
BIS
BIS
8ZS
ADC
ADC
ADC
HUH
0
HONITOR STOP/JUHP PARAHETER.
80CU
80-87 ARE HONITOR PSEUDO-REGS.
THEY SHOUlD BE USED WHEN
POSSIBLE Bur WITH THE EFFORT
NECESSARY TO PREVENT
INTER-ROUTINE CONFLICT.
B1(U
92(1)
8311)
81tU)
B5e1l
BG(U
B7elt
STOPX
ISERR
TTYPE
0
TTY INPUT PACKAGE 'OUTPUT ENTRY ,
BECOHES NONZERO WHEN DISK AT EOF
' • • • • ¥ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .~ . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
0"88
01t89
0490
0.. 91
0492
o It 9"
01t95
0.. 96
0.. 97
01f98
0.. 99
0500
0501
0902
0503
050'It
0505
0506
HSTJP
0
(-)
•
COHHONTEST COHHUNICATION
•
•
.......•.•.......
.....•..............•..•
~
DOCA
OOCB
OOCC
OOCD
OO.CE
OOCF
DODO
0001
0002
0003
0004
DaDE
GOOF
ODED
OOEl
OOE2
00E3
DOE ..
00E5
ODCA
0000
0000
0000
0000
0000
0000
011t0
0003
0000
0001
OOOA
0000
0000
0000
7F4F
0000
0000
2020
2020
60 ..111t00
COHUSE
02
TEHPLOC
ORG
NUH
NUH
NUH'
NUH
NUH
HUH
AOC
NUH
NUH
NUH
BZS
NUH
STOP8FR
PRLFLG
TEHPTS
CHAR1
CHAR2
C
NUH
NUH
NUH
NUH
NUH
~
........ ....................
AREA
~
SCA
'0
0
0
a
0
a
REG
$03
0
S01
TEHPLOC (10)
0,0,0
S7FltF
a
RESERVED FOR RANDOM PROTECT
• LOCATIONS 01, 02, AND 03 ARE
FOR THE 1706/16 BOC
• RESERVED(TEST
NUHBER SOF)
TEST
• COHHON
STORAGE USED BY ALL TESTS
FOR USE ONLY BY COHHAND TEST
STOPX BUFFER AREA
USED BY DDIT DURING QL-BIN
0
$2020
12020
PAGE
11
c~
C)
(~~~
PAGE
S""OOO
0513
0100
60411400
ORG
12
DATE' 12/17/7'+
$100
PAGE
C
(\
)
/
'\
)
(j
r~
'.
/
12
(j Cj
')
0 0 0 0 0 0 C:
SHHOOO
0515
0516
0517
OS18
12519
0520
0521
0522
0523
0100
0101
0102
0103
0104
0105
0106
0107
0108
052" 0109
0525 OlOA
0526 01DB
0527 OIOC
0528 0100
.0529 010E
0530 OlOF
0531 0110
0532 0111
0533 01'12
0534 0113
0535 OU4
0536 0115
0537 0116
0538 0117
0539 0118
0540 . 0119
0541 011A
0542 0118
05,.3 . 011C
0544 0110
05 ..5 OtlE
OS,., 011F
125,.7 0120
0548 0121
05 ..9 0122
05~0
0123
0551 012..
0552 0125
0553 0126
0554 0127
0555 0128
0556 0129
0557 012A
0558 0129
0559 012C
0560 0120
0561 012E
0562 01ZF
056.3 0130
0564 0131
0565 0132
0566 0133
0567 0134
PAGE
LEVO
0000
5424
0000
0000
0000
51t24
0000
0000
0000
542"
0000
0000
0000
5lt24
0000
0000
0000
5.42"
0000
0000
0000
542"4
0000
LVOADR
LEVl
LVIADR
LEV2
LV2AOR
LEV3
LV3ADR
LEVit
LV4ADR
LEV5
LV5AOR
LEV6
DODO
0000
5"2"
0000
0000
0000
5424
0000
0000
0000
5424
0000
0000
0000
LV6AOR
lEV7
LV7AOR
LEV8
51,21,'
0000
0000
0000
5424
0000
0000
0000
51,24
0000
0000
0000
5424
0000
0000
0000
60411400
C
NUH
RTJNUH
NUH
NUH
RTJHUH
NUH
NUH
RTJHUH
NUH
NUH
RTJHUH
NUH
NUH
RTJNUH
NUH
NUH
RT.JNUH
NUH
HUH
RT.JNUH
NUH
NUH
RTJHUH
NUH
NUH
RTJNUH
LV8AOR
NUH
NUH
LEV9
. RTJNUH
NUH
LV9AOR
NUH
LEViO
RTJNUH
LV10AOR NUH
NUH
LEVi1
RTJNUH
LV11AOR NUH
NUH
LEV12
RTJNUH
LV12AOR NUH
LEV13
NUH
(~)
(~..
c ,
I
---"
(~)
C-)
(~
,,-j
0 0
0 C) C)
(\
,-----/
OATEI 12/17/74
13
0
UNTPRC)
0
0
0
(INTPRC)
0
0
0
(INTPRC)
0
0
0
(lNTPRC)
0
o.
OVERFL OW FLAG
OVERFLOW FLAG
OVERFLOW FLAG
OVERFLOW FLAG
0
UNTPRC)
O.
OVERFL·C)tf FLAG
0
0
UNTPRCJ
0
OVERFL Of FLAG
0
0
CINTPRC)
0
0
OVERFLOW FLAG
0
( INTPRC)
0
OVERFL Of FLAG
0
0
CINTPRC)
0
OVERFL Of FLAG
0
0
(INTPRC)
0
OVERFLOW FLAG
0
0
UNTPRC)
O·
OVERFL G4 FLAG
0
0
UNTPRC)
a
OVERFLOW FLAG
0
OVERFL ow FLAG
0
0
( INTPRC)
0
0
PAGE
13
('
PAGE
SHHOOO
0568 0135
0569 ' 0136
0579 0137
0571 0138
OS72 0139
OS73 01lA
OS74 0138
057,5
013C
057.6
0571
0518
013E
013F
0130
5424
0000
0000
0000
5424
0000
0000
0000
5424
0000
0000
LV14AOR
LEViS
LV15AOR
DVERFL OW FLAG
0
0
UNTPRCI
0
0
0
( INTPRC)
0
OVERFL OW FLAG
OVERFL Of FLAG
O·
~
,
.
•
PROCESS SYSTEH INTERRUPTS
•
•••• ! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0140 001t0
0586 0180
0589 0181
0590 0182
0591 0183
OSQ2 0184
0593 0185
0594 ' 0186
, 0595 0187
021t6
0000
REG
BZS
REGf(4)
AXREPT
PROCESS
ADC,'
NUH
STQ·
lDQ·
SNO
STo.ADQSTQSTATRH
STA- .
QRS
EORQLS
TRA
LDASTALOASTARAOLOASTALDAANOSAl
LOAANDSAN
REPORT
4834
EaFD
0181
4678
FoaD
4820
0188 6AB8
0189 oaoc
,0596
-- 0591
0598 ' 018A 6AB7
0599 0188 OF22 ,
860'0 018C 8268
0601 0180 OFA2
0602 018E 0821
06D3 018f COFF
060,1t 0190 6AB2
0605 0191' C825
0606 0192 6AAD
060'1 01g3·DeED
0608 0191t CCEC
0609 0195 GOFF'
0610 0196, C056
0611 0197 A013
0612 0198 0105
0613 0199 CO 56
0614 019A A06S
0615 0198 OU2
0616 019C 5400
0190 0998
0617 019E COFF-
0618
( INTPRCI
0
........................................ ...............................
0580
0581
0582
0583
0584
0586
LV13AOR
LEV14
RTJNUH
NUH
NUH
RTJNUH
NUH
NUH,
RTJNUH
NUH
DATEI 12/17/74
lit
019F OOFA
60411400
RTJ~
PROC
LDAINo.
o
QTEHP
PROCESS
1
(H0001U yQ
HFEFO
PROCZ+l
REG+1,Q
A
REG+2.Q
2
BITOO,Q
2
H
'I
SAVE Q
SAVE OVERFLOW CONDITION CHaT
fIRHWARE ON DUAL BANK 1700)
CALCULATE THE, DELTA (-10Z)
INTERRUPT EXIT VALUE.
CAl
CH) WHEN INTERRUPT OCCURRED
CLEAR INTERRUPT LINE BIT
fROH HASK REG
REG+3,Q
o.TEHP
REG,Q
PROCESS
(PROCESSI
I
, SHHCNT
BIT08
PROC---1
SHHCNT
BITOD
PROC
INEOOO
(I) WHEN INTERRUPT OCCURRED
HOVE (Q) WHEN THE INTERRUPT
OCCURRED TO THE REG 'TABLE.
TEST INTERRUPT ROUTINE ADDRESS
STORE IN I
SKIP HBS CHECKS IF .NOT SELECTED.
LOOK FOR LIB LIST SELECTION
YES, SKIP tlBS CALL
GET THIS TESTS PROCESS AODR
I
-5
PAGE
C
.'---\
•
ALL REG. FOR ALL INTP. LEVELS
\
(\
(j
n
14
f\
:
/
n
~)
0' 0 C) 0 C) 0
PAGE
S""OOO
0619
0620
0621
0622
0623
0624
0625
0626
0627
0628
0629
0630
06'31
0632
0633
063,.
0635
0636
0631
0638 '
0639
06ltO
DIAO 0165
DIAl 0001
01A2 0162
01A3 0112
01A,. 1853
01A5 1830
01A6 EOOO
01A7 0000
01A8 011E
01A9 CC06
01AA 0103
01AB aGOC
01AC '6A95
01AO 180C
OIAE 1t0FF
OlAF OF22
olBO OOFS
01Bl 0171
0182 0006
O1B3 OOOA
DlB5 5CC"
0166 0000
0187 OltOO
0198 S.. FF
01B90814,
OtBA 808E
01BB 0500
018C6818
061t8 01BO C600
06 ..9, 018E0102
065,0 01BF 0103
0'42
06,43
0644
0645
06,.6
06,.7.
0651
06'52
PROC1
PROC2
SQP
INQ
SQP
SAN
JHPJHPLDQ
QTEHP
SAN
' LOASAl
TRK
STA·
JHp·
STQQRS
INQ
SQH
INQ
INQ
ENA
RTJNUH
01B,. DAD It
PROCO
EXITL
XLEVOZ '
01CD 8081
01e1
,065J 01'C2
0654 ' 01C3
0655 01C ..
0656 01C5
0657 01C6
0658 01C7
0659 DIC8
0660 81C9
01CA
0661 01CB
0662 01CC
01CD
0663 01CE
0664 01CF
0100
0665 0101
0666 0102
0103
084 ..
6EFB
ccao
60'+11"00
C
()
C) 0
')
-~
"---
n
'---_/
0 0 0 C\ 0 Co,
DATEI 12/17/74
15
PROC2---1
1
PROC1---l '
PROC2---1
CHPEPF
INTONl
=NSO
PROCD---1
( AXREPTJ
3
DID, INT. OCCUR ON LINE 1 OR 0
YES
LINE 0
YES HAS LINE 0 BEEN REQUESTED
INT HAS OCCURRED ON LINE 1
LOAD INTERRUPT EXIT VALUE.
AlERO = UNREQUESTEO INTERRUPT.
SKIP IF R£PORTER NOT BUSY.
A
REGfo2.Q
EXITL
I
2
-$A
1
SlD-SA
SA
UNREQI
CAXREPT)
TEHPORARILY DISABLE THIS LINE
AND EXIT INTERRUPT STATE.
SAVE EXIT VALUE FOR REPORTER.
FORH HEX LINE NUHBER.
CONVERT
TO
DECIHAL
EQUIVALENT.
(ERROR CODE)
REPORT ERROR
0
EIN
RTJTRQ'
AOO11"
STALDAAoe
SAl
0
H0600
HAKE EUT INTERRUPT INST
0
EXLEV
CO ),Q
LEVO+2
CHKH6S-·-1
RESTORE
ADD-
H7FFF
IU
A
A
CXLEV 02) ,Q
, CPROCESS)
1
EXITOS-·-l
HOG2
EXIT03-·-1
EXIT05-·-1
REG+2,Q
GO TO THE INT ROUTINE
OVERFLOW
EXIT03
CLR
STA·
LOA·
INA
SAZ
LOASAl
SQN
LOA+
TRA
LOA
H
REG+3,Q
RESET VIA SAHE IN HUX CONTROL.
EXIT 05
STALOA
SFF
REG+l.Q
I
A
RAOLOQ
TK16
REG,Q
UPDATE COUNTER
CHKH8S
0901
0106
C03,.
0101
0153
C600
01,.2
0821
CADO
FF7S
GOFF
CAOO
FF70
0039
EADO
FF6C
C) C
C~l
(~~
CONDITION
USE CURRENT MASK
FOR HBS
CHECK FOR HBS INT STACK
REQU EST O=NO
SKIP FOR EXTERNAL INTERRUPT
REPLACE THE MASK
CHBS)
PAGE
15
PAGE
SHHOOO
0104 OBDO
0105 OCFB
0106 480F
0107 EAIB
0108 0844
0109 OZ01
01DA A060
01DB 0114
010C0809
0100 E808
010E 011t0
OIDF 18F1
OlEO 085 ..
OtEl 8810
01E2 E803
01E3 0116
OlE,. C800
01ES 038E
0684 01E6 0112
0685 01E7 CAOF
0686 01E8 0111
0687 . 01£9 0001
0688 OlEA CAOC
0689 OlEa 60FF
0690 alEC COfF
0691 01EO·1888
0692
0693 01EE OOAl
0694 01EF OOEl
0695 01FO OOCl
0696 01Fl 0091
. 0698
0699 01F2 0000
0700 01F3 ·0900
0701 01F4 0000
9702 01Fs 0000
0703 OlF6 0517
0667
066.8
0669
067.0
0671
0612
0673
0674
0675
0676
067.1
0678
0619
068:0
0681
0682
0683
PROC3
ANo.-
SAN
RAO·
Loa'"
SQZ
JHp·
TCQ
ADD·
LOQ·
SAN
LOA
PROCIt
SAN
LOA·
SAN
INQ
LOA'"
STALDAJHp·
-SLOM
NUH
NUH
NUH
NUH
PROCS
PROC5A
PROG6
•
SLSPIO
..
NUH
HUH
NUH
NUH
ADC
SLSPAO
o
-4
EXIT INTERRUPT STATE
INTERRUPT ON LINE 1
A
CHECK INTERRUPT STATUS OF EACH
STATION IN THE LOW SPEED PACKAGE
QTEHP
SlSPIO+4,Q
1
nODft
HAS THIS STATION INTERRUPTED
NO
8IT02
PROC4-·-1
QTEHP
QTEHP
PROC6-"-1
PROG3
HAVE ALL STATIONS BEEN CHECKED
NO.ONE HORE
A
SLSPIO+3
QTEMP
PROC5A-·-1
INTACT
INTERRUPT FROM THE TELETYPE
YES, Q: -1
S"HTYPING IN INT •. HODE
NO, HAS A TEST REQUESTED THE
TELETYPE INTS.
NO. GO TO HESSIN, CHECK HAN.INT.
STORE THE INT. ROUTINE ADDRESS
IN THE I REGISTER AND GO CHECK
TO ,SEE IF THE INT HAS REQUESTED
PROC5-·-1
SLSPAD+ft,Q
PROC5A-·-1·
1
SlSPAD+lt, Q
I
t·
PROC2
SPEED PACKAGE TABLES·" ·STATION ADDRESSES ••
~721 PAPER TAPE READER
SAl
1729 CARD READER
SEt
17.23 PAPER TAPE PUNCH
SC1
1111, 1112, 1113 TELETYPES
SCJ1
.... REQUEST ADDRESSES ••
·0
1721
1729
o
1723
o
1711, 1712, 1113
o
SHH HESSAGE REQUEST
HESSIN
......................................................................................
0705
0706·
0107
•
•
CHECK FOR HEMORY PARITY ERROR OR· PROTECT FAULT
•
•..
ON UNREQUESTED LEVEL 0 INTERRUPTS. IF NEITHER,
...•
ENTER POMER FAILURE ROUTINE.
•
•..................................... ...........................................•.
0108
0109
0110
0711
0713
01.11t
0715
0716
0717
8718
NUH
ENQ·
STQ·
LOQ·
GLR
INP
EXLEV
INTON1
DATEI 12/11174
16
~
01F7
01F8
01F9
01FA
BlFB
01FC
60FF
EOlt8
0174
C473
A087
6413
STALOQSQH
LOAANDSTA-
CHPEPF
I
FLAG EXIT VALUE AS ZERO.
LOL1COR
CKPE,..·-l
CBITD 8)
H7FFF
(BITOOJ .
SKIP If DUAL BANK 1700.
OTHERWISE, STRIP OFF
OVERFLOW BIT ON TRAP ADDRESS.
PAGE
60411400 . C
\
n n
(
()
16
n n
f\
,
)
f\
)
o o o o o o o
PAGE
SHHOOO
0719
072D
01F.D
01FE
0721. CllFf
072~
0200
0723· 0201
084"
0101
1817;
CKPE
01El
lStA
CI(PF
0724 . ,0202 E~73
02113 OOFE
PFEOOO
0725
0726
0727
0728
0729
0730
. 0731
0732
0733
07i,.
0135
0736
0737
0738
0739
07 ItO
07lt1
or,,;!
07"3
0744
07"5
0746
0747
071t8
D7"9
0750
0751
0752
0753
021J" ....73
0205 ODFO
0206 E201
0207 ODFO
0208 C201
0209 BODO
DaDA 5"00
0208 09FE
020C 0133
0200 090e
020E
020F
0210
0211
0121
181,.
£056·
0212 0162
0213 1400
021" OEF2
0215 QA01"
0216 0901
0217 E82F
0218 D15A
0219 Elt73
D21A 582C
0219 D47B
021C OAt8
0210 OC7F·
PF
PE
PWR
021£ 0000
021F 1CFE
0220 C.. 7B
0221 09FE
0754· 0222 647B
0755 0223·EOFF
0756 022fJ "1894
0759
0760
0761
0762
0763
0764
0165
0766
0767
0768
PFE005
"
0500
4800
5800
1805
022#( E80A
022B CCF9
022C 6205
0220 18F5
60411400
XITINT
ISERR
0225 0000
0226
0227
0228
0229
PFR
C
o o o o o o o o
c
17·
DATEI 12/17/7,.
CLR
SNP
JHp·
SPF
JHP"
LOQINQ
STQINQ
LDQ-
PE
PFEOOO·"-1
PWR
(BnOS)
-1
( BITDS)
INQ
-2
A
1,Q
=NS5400
PTC2
PTC2
PTC2
MUST BE
PTC2
GET TRAP ADDRESS
PTC!
PTC2
PTC2
PTC!
GET ADDR DF CALLING INST
PTC2
PTC2
GET THE INSTRUCTION
PTC2
CHECK·fOR LEGAL RTJ- INST WITH
INA
SAH·
INA
SAP
JHP"
LOQQLS
SQP
JHP+
-CONTROL
PFE005-·-1
CONTROL-SELIN-1
PFE005-·-1
XITINT
SHKCNT
DELTA BETWEEN CONTROL-SELPTC2
NOT LE GAL
PTC2
CHECK UPPER BOUNDS
PTC2
NOT LEGAL RTJ- INST
PTC2
lEGAL-EXIT
PTC2
PTC!
ENA
INA
LDQ" ,
SQN
LDQRTJ'"
RAOENA
ENQ
SLS
JHP'"
LDAINA
STALOQJHP"
PROTECT-HEHPE
HEHP£
REPORT
XITINT-"-l
(BIToS)
REPORT
CH 0000)
S18
LDAEOR
OFA7
C)
NUH
lIN
STQ·
RTJ"
JHp·
LDQ·
LOA·
STAJHP·
CKPf-"-1
-2
1,Q
REPORT PARITY ERROR
7
SKIP IF HBS NOT SELECTED.
GO "TO HaS
PF-~1
PFE010
17F
o
PTCZ
(FORH ERROR CODE)
IGNORE REPORT IF REPORTER BUSY
(ERROR INfO)
REPORT ,ERROR.
POWER FAILURE CAUSED INTERRUPT.
............ ; POWER. FAILURE IRPT DETECTED' •
'''-1)
(HOOOO)
-1
(HOOOO)
I
EXITL
O.
o
ISERRQ
BUSY
ISERRl
ISERRQ
( ISERR)
5,Q
XITINT
RESTORE HC RESTART JUHP.
(EXIT VALUE)
RESTORE REGS, EXIT INTRPT STATE.
ROUTINE TO REPORT ERRORS FROH
INTERRtpT STATE
SAVE Q (TEST BIAS)
CHECK STOPX-ERR-HSG FOR BUSY
NOT BUSY RETURN
BUSY RETURN
BUSY RETURN ADDRESS TO IA+5
EXIT THROUGH EXITL IF BUSY
PAGE
17
PAGE
SHHOOO
0770
0171
0772
0773
0774
0775.
0776 '
0777
0816
0817
0818
08-19
(~
'-
/
NOT BUSY·
( ISERRZ)
NOT BUSY-EXIT TO TEST
ISERR2
ISERRQ
NUH
NUH
.•
NOT BUSY EXIT ADDRESS
SAVE Q
.BUSY
NUH
0
THIS SUBROUTINE CHECKS TO SEE
IFSTOPX-HSG-SHHERR HAS
INTERRUPTED
ENQ
LOA·
SAN
SQZ
INQ
JHP·
ENQ
LOASUB·
SAZ
SQZ
INQ
JHp·
QRS
RAO·
JHp· -
-2
FLGHSG,Q
RPT02B-·-l
RPT01-·-1
1,
RPTOO
-5
(8IT08) ,I
ADR6,Q
RPT02A-·-l
RPT02C-·-l
1
RPT02
1
BUSY
(BUSY)
•
RPTOO
RPTOl
RPT02 .
RPT02A
RPT02B
RPT02C
•REPORT
0246 0000
•
0247- '0400
0248:6820
0249 "820
024A 58EA
024B 1808
024C
02,.0
024E
024F
0250
0251
0252
EA12
C201 .
68DD
COOO
0256
6201
'18DO
0253
0254
0255
0256
0257
COOO
0223
6806
C812
E812
(j
ISERR
(ISERR)
ISERR2
•
OCFO
CA2A
011B
01lt2
0001
18FB
0 CFA
C573
9A29
0103
0144
0001
18F9
OF21
08FO
lCEF
601tll,.00
RAO.v
LOA·
STA·
EIN
JHp·
ISERR1
0233 0000 '
0234 0000
0236
0237
0238
0239
023A
023B
02JC
0230
023E
023F
02.. 0
0241
0242
0243
0244
0245
0799
0800
0801
0802 0803
0804"
0805·
0806
080'7 0808
0809
. 0810
0811
0813
0814
D8F&
CCF5
6803
0400
lCOl
0235 0000
0779
0780
0781
0782
0783
0784
0785
0786
. ---0787
078'8
0789
0790
0791
0792
0793
0794
0795
0796
0797
0812
022E
022F
0230
0231
0232
DATEI 12/17/7'+
18
a
- HUH
0
a
DETERHINE IF .SHHERRS, STOPX,
OR TYPEOVT ROUTINE INTERRUPTED
SKIP IF FLAGS CLEAR.
COHPARE TRAP ADDRESS TO 1ST
AND LAST ROUTINE ADDRESSES.
SKIP IF HATCH
ADO 1 FOR BUSY RETURN
EXIT RFOH BUSY CHECK
SYSTEH INTERRUPTION ERROR -REPORT
EIN
STA·
STQ·
RTJ·
JMp·
ENTA
ENTQ
BUSY
RPT06
LOQ· '
LDASTA·
LOA
RTNHSG,Q
1,Q
RPTRTN
=XRPT10
RPT05
STAJHp·
1,Q
XITINT
PLUGRTA CELL WITH REPORTER ADR.
RETURN TO INTERRUPTED ROUTINE.
RPT06
LOA
=XXITINT
NO,HSG INTERRUPTION
RPT10
STA·
LOA·
LDQ·
RPTRTN
ENTA
ENTQ
REPORT AND EXIT INT STATE.
INTERRUPTED MESSAGE COMPLETE.
•
•
RPT04
SAVE ERROR CODE
STOPX A3 ,INFO
MAS stOPX-HSG-SHHERR 8USY
NOT BUSY RETURN
BUSY RETURNS HITH Q POINTING TO
BUSY -ROUTINE
ROUTINE FOUND BUSY, INTERJECT
THIS MESSAGE AFTER ROUTINE FINI
SAVE APPROPRIATE -RTA
PAGE
C
n n
()
n
() () (j
n
18
(j
n n
.-......
~,~
0
()
~/
0
0
0
0
0 0 0
5HHOOO
PAGE
0820 0258 5'+28
0821 . 0259 68EC
0822 . 025A 1'+00
0823 025B 0000
RPTRTN
0825
0826
0827
0828
0829
0830
0831
0832
0833
0834
0835
0836
0837
0838
RTNSHR
RTNSTP
RTNHSG
FLGSHR
FLGSTP
fLGHSG
ADRl
AOR2
ADR3
AOR4
ADR5
flOR6
ENTA
ENTQ
025C
0250
025E
02SF
0260
0261
0262
0263
026ft
0265
0266
0267
0268
0269
0269
03E7
0521
0000
0000
0000
.02613
001ft
'0659
0079
OOCC
0053
0000
0000
0846
0869
RTJSTA·
JHP- .
NUH
(SHERROR)
REPORT CA=O)
AOC
ADC
ADC
NUH
NUH
NUH
AOC
ADC
AOC
SHtERRS-1
STOPX-1
HESSAGE-1
0
0
0
SHHERRS+l
ENDSHR-SHHERRS-I
PRESTP-I+ENDSHR
ENOSTP-PRESTP-1
HESSAGE+1-ENDSTP
ENDHESS-HESSAGE-I
0
ADe
AOC
AOC
NUH
NUH
() 0
0
0 0
0
0
DATEI 12/17/7'+
19
REPORT ERROR.
FLAG REPORTER NOT BUSY.
RETURN TO·ORIGINAL MESSAGE USER.
(0)
a
ROUTINE
ENTRY
ROUTINE
ADDRESSES.
ACTIVE
FLAGS.
ROUTINE ADDRESSES
NOT REfLECTING BUSY CONDITION.
PTC2
PTC2
ERROR CODE
ERROR INFO
0
.•
PROCESS
•....................•................
~
02&4
026B
0848 026C
0849 0260
08S0 026E
08S1 026F
0852 0270
0853 0271
0854 02:72
08'5S 0273
0856 027ft
0851 0275
08S8 02"76
08S9 0277
0860 0278
0861 0279
0.86,2 027A
0863 0218
0864 027C
0865 0270
. 086& 021E
0867, 027F
0870
0871
)
• • • Q~ • • • • • ~.~ • • ~ • • • • • • ¥ • • • • • • • • • • • • • • • • • ~O~.O • • • • • • • • • • • ~ • • • ~ • • • • • ~ • • • ~.
0840
0841
08'42
0843
0844
0847
(
0000
08F3
.680E
CaFC
6800
OAOB
0144
480B
EOFF
489A
0910
680ft
0844
5402
1806
0008
0000
0000
0000
0000
68EO
lCEA
C
NUH
RAO·
STA·
LOA-STA"
ENA
SQZ
SHERI
SHERID
SHERCD
SHERRTA
SHERQ
ENDSHR
HAINL
0280 0000
0281 6050
0282" 1CFD
60411400
SHHERRS
STQ-LOQSTQ·
INA
STA· .
CLR
RTJJHp·
NUH
NUH
NUH
NUH
NUH
STA·
JHp·
NUH
STAJHP· .
0
FLGSHR
SHERCD
SHfI£RRS
SHERRTA
S8
SHER1-·-l
SHERIl
I
SHERQ+I
$10
'SHERIO
A
eSTOP)
EHOSHR-I
$0008
$0
.........
HONITOR ERRORS
~
........................
SHH ERROR ROUTINE
FLAG BUSY TO INT ERROR REPORTER.
A: ERROR CODE
(QZERO = NO)
EXTRA . INFOYES. Q CONTAINS 3RD AREG.
I CONTAINS 3RD QREG.
INCREASE STOP COUNT.
$0
STOP ID
ERROR CODE
REPORTED RETURN ADDRESS.
EXTRA ERROR INFORHATION
FLGSHR
(SMMERR)
CLR BZYFLAG.
EXIT ROUTINE.
0
SO
0
HISWX
(KAINL)
FORCE PARA" STOP NEXT JUHPX CALL
RETURN
PAGE
19
C)
c·
,,---.-.
l\
PAGE
S"HOOO
FCLRINT
087a 0283 0000
0874 0284 lCFE
0875
0876
·0877
0878
0879
8880 .
0881
08·82
0883
0893
. 0894
0895
0285
028&
0287
0288
•
•
•
•..
•
•
REQINT
REQIN2
0000
40BB
OCOF
0133
0289 OFCl
028A OOFE
0288 18FC
REQIN3
REQIN4
028C 0814
0280 OFC2
028£ 8000
REQIN6
0908
0909
0290 01F6
0290 40BO
029E E091
REQIN7.
onf 'tOFf
0912
0913
02Al e4S0
02A2 0146
02A3 S40e
02A4 0138
02A5 C1A6
02A6 0102
02A7 S40C
02A8 0124
60411400
n
REQIN8
02A9 CCDB
BO .
15
REQIN4-·-1
1
•
REQUEST INTERRUPT
SAVE REQUESTORS EQUIPHENT ADR.
FIND THE ADDRESS IN WHICH TO
STORE lKE REQUEST ROUTINE ADORES
-1
REQIN3
A
2
o
LVOADR
82
-1
REaIN7-·-1
-4
SLSPIO+4,Q
STQLDQSTQLDALDQSQZ
RTJSAM
LOASAl
RTJSAP
LOA·
(ADDRESS INTO WHICH THE·
REQUESTING INTERRUPT ROUTINE%S
ENTRY ADDRESS WILL BE STOREDJ
REQUEST IS FOR INT LINE 1.
FIND OUT IF STATION IN
1
RECUN5
=XS.SPAD+4
STATION HAS BEEN FOUND HOVE ITS
92
ADDRESS TO POINTER.
REQIN7-·-1
INQ
J"p.
ADQ
(MULTIPLY DECIHAL LINE NO. BY 4)
THE SLOH SPEED PACKAGE IS
REQUESTING THIS INTERRUPT
STATIONS FOUND
NOT YET
90
REQIN6~·-1
SAZ
SQZ
0299 FOOO
02A002AS
o
NUH
STQENQ·
SAH
ALS
INQ
JHp·
TRQ
ALS
ADDADC
STAINQ
SQN
ENQ
LDA+
SUB-
029A 18F9
9919
0920
()
REQIN5
0907
091ft
0915
a916
0917
0918
!ij
XLVOAOR
0298 0145
0299 0001
0911
=
~
0905
0906
0918
REQUEST INTERRUPT CALL'
PROCESSOR PACKAGE
ENTER WITH A = INTERRUPT LINE
Q EQUIPMENT ADOR
CALL+1 = INTERRUPT ROUTINE ENTRY
CHECK FOR 2 TESTS REQUESTING THIS LINE
•
..................•.........
...........................................
0896 . 02aF 0103
0897 0290 .6090
0898 0291 OOFE
0899 Ot.92 0158'
0900 0293 OCFB
0901 0294.C600
0295 01F2
09'02 0296 90B9:
0903 0297 0103
0904
o
NUH
(FCLRINTJ
JHP"
........................................................................
0884
088(.
0887
0888
0889
0890
0891
0892
DATE' 1,2/17/74
20
TSACTV
I
TSIAAD-1,Q
(B2)
REQIN8-·,-1
(RELPOS)
REQIN9-·-1
TSIAAD, I
REQIN8-·-1
(RELPOS)
REOIN9-·-1
(REQINTt
CHECK AGAINST DUAL TEST REQ1S.
GET PREVIOUS PROCESSOR ADDRESS.
SKIP IF' LINE IS FREE.
SKIP IF PREY REQ NOT SAME TEST.
SKIP = REQ!NG TEST LAST IN LIST.
SKIP = PREY REQ NOT SAME TEST.
PAGE
C
() ()
()
/)
/
n n
(\)
.
20
n n n n
:; 0 0 0 0 0 0 0 0 0
SHHOOO
09~1
02AA
0922 OZAS
0923 . 02AC
0924' 02AO
0925 OZAE
0926 02AF
1)927 OZBO
OgZ8 0281
Og29 0292
0930 0283
PAGE
64BO
0809
lCD8
.. OFF
DA05
E091
E2A5
5428
5403
18FE
0934
....•
0935
0936
0937
•...
0938
..
0939
0940
0941
0942
•
0944 ' 02B4
0285
094,6 02B6
0947 02B7
0948 0288
09,.5
0953
0954
0955
0956
0957
09S8
09S9
0960
0961
0962
0299
OZBA
ozaB
02BC
0280
02BE
OlBF
02CO
02Cl
02C2
0203
02C4
02CS
02C6
0049
AD62
6049
DADO
68A6
G8A6
68A6
5406
OBOO
0400 '
COOF
0104
C056
A072
0111
1810
5ltOF
COOO
0747
02C7 0009
02C8
0964 02C9
0965 02CA
0966 02eB
0967' 02ce
0963
('\
0
"--/
0
0
-)
0 0 0
L~
DATE, 12/17/74
CB2)
REGINT
(REQINTJ
t
ILBZY
TSACTV
TSIAAO"'l,Q
CSHERROR)
CSTOP+1) =EXIT
·-1
...•
0933
0951
09.52
21
0
SATISFY REQUEST.
EXIT T e CALLER.
(ERROR STOP Q3
(ERROR CODE)
= PRE V PROC
ADR)
=
(ERROR STOP AJ
REQUESTORIS IAI
REPORT ERROR.
DROP TESTFROH LIST. (HC-RESTART
FROH REQfR IA AT ERROR STOP OK)
•••••• .o••• ~ •••••••••• " . . . . . . . . . . . . . . . . . . . . . o . . . . . . . . . . . . ~ . . . . . . . . . . . . . . ..
OQ32
0949
0950
REQIN9
STARAO·
JHp·
STQENA
LDQLDQRTJRTJJHP·
c_~
5lt08
0844
608F
6090
60FF
60411400
C
HCINIT
BUILOTL
SHSTART
TSLISl
•
•"-
BUILO TEST EXECUTION LIST
...
A=}(XYY, Q=EQUIPHENT ADDRESS. FOR TEST LOAD.
WHERE XX=1EST NUMBER, YY=TEST ,RERUN COUNT •
A=FfOOt Q=LOAD ADDRESS, TO SELECT IA OF NEXT TEST ENTRY.
A=OOOl TO lERHINATE LOAD STRING WITHIN LIST •
A=OOOO TO TERMINATE TEST LIST •
LDAANOSTAENA
STA·
STA·
STA·
RTJNOP
EIN
LOASAl
LDAANDSAN
JHP"
RTJLOA
ENQ
RTJCLR
STASTASTA-
INfORM
HFFOO
INFCRH
CLEAR'
SOFTWARE BUSY
SHITCHES
.,
...•
•.
PTC2
PTC2
0
FLGSHR
FLGSTP
FLGHSG
(JUHP)
0
0
TSSEL
TSLIS1-"-1
SHMCNT
CLEAR
REPORTING ROUTINE
CHECK THE SKIP SWITCH
BUSY FLAGS
(SETHASK ENTRY PRIOR TO ENABLE.
TEST lIST EHPTY
AZERO = YES. BUILD TEST LIST.
BIT07
TSLIS1-··1
INITA
(HONPP)
=XTYPBTL
9
(TYPEOUn
A
TSSEL
TSINIT
I
IS BIT 7 Of-SHH PARAMETER SET
NO EXECUTE PRESTORED LIST
RESET MONITOR PROTECT PATTERPTC2
PTC2
TYPEOUT-
BUILD TEST LIST
PTC2
CLEAR NUHBER OF TESTS SELECTED
NUHBER OF TESTS LOADED
CLEAR I
PAGE
21
c\
PAGE
SHHOOO
0968 ozeD 61A6
0969 02CE C192
0970 02CF E19C
0971 0200 540E
0972 0201 B082
0973 0202 0112
097 .. 0203 41A6
0975 020,. 18F9
0976 0205 8082
0977 0206 619Z
0978 ' 0207 0108
0979 0208419C
0980 0209 008F
0981 020A OAOA
0982 0208 B08F
0983 020e 0103
098 .. 0200 0844
0985 020E DOFF
0986 020F' 18ED
02EO .0eOl .
02Et 'tOFF
02£2 0842
02E3 0191
02E.. OFlt8
02£5 09FO
02£6 0113
02E1 01"1
02E8 1816
02E9 EOFF'
02EA 04JF8
02E8 0113
02EC 01ltl
02EO 1811
02EE EOFF
02EF O'lF6
02FO 0113
02Fl 01ltl
02f'2 18DC
02FJEOFF'
02F''' D9FO·
02F5 0113
02F6 01ltl
02F7 1807
02F8 EOFF
02F9 DOFF
02FA OAOA
60411400
(j
()
n n
TSLIS3
TSLIS4
INITAC'
()
INITA
INtTAl
CLEAR LOAD ADDRESS ENTRY.
PRESENT FREQ. AND TEST NUMBER
PRESENT EQUIPHENT HUHBER
DISPLAY ENTRY ,VIA A/Q OR TTY.
SELECTIA OPERATION
A ZERO '& YES
STORE XA FOR NEXT TEST ENTRY.
TSIAAD,I
TSFREQ.I
TSEQAO,I
( INPTTY)
HFFOO
TSLIS4-·-1
TSIAAO, I
TSLIS2
HFFOO
TSFREQ,I
INITA-·-l
TSEQAO, I
TSSEL
10 '
TSSEL
INtTA-·-l
STALDALOQRTJEORSAN
STQJHp·
EORSTASAZ
STQRAOENA
EORSAl
CLR
RAOJMP·
RESTORE ENTRY.
AZERO
= TERMINATE
TEST LIST.
INCREMENT· NO. OF TESTS SELECTED
OETERHINE IF LIST IS FULLAZERO = YES. EXECUTE LIST.
TABLE IS NOT FULL.
A
I
CLRIA
..
0988
0990
0991
0992
0993
0994·
0995
0996
0991
09'l8
0999
1000·
1001
1002
1003
1004
1005
,1006
1007·
1008
1009
1010
1011
1012
10'13
1014
1015
1016·
CLRIA
TSLIS2
OATEI 12/17/74
22
CHECK HUTUALLYiEXClUSIVE TESTS- HY1.2,MEH,RPT
EHQ
STQCLR
LOAARS
INA
SAN
SQZ
JHP'"
LDQINA
SAN
1
I
Q
TSFREQ-l, I
8
-2
INITA2
I
-2
3
NO·
1
INITA2
I
-1
3
1
INITA2
SQZ
JHp·
LDQINA
SAN
SQZ
JHP·
LOQINA·
SAN
SQZ
JHp·
LOQRAOENA
GET TEST FROM LIST
CK FOR MYl CO2)
NO
YES,Cf( 'FLAG IF SECOND TEST
THIS IS 2NO TEST-SO ERROR
THIS IS 1STTEST~SAVE I IN Q
CK FOR.RPT (09)
NO·
YES-CK FLAG IF' THIS 2ND' TEST.
THIS IS 2NO TEST-SO ERROR
THIS IS 1ST TEST-SAVE I AS FLAG
CtC,FOR MY2 (12)
NO
YES-CK FLAG IF SECOND TEST
THIS 'IS 2ND TEST-SO ERROR
THIS IS 1ST TEST-SAVE I AS FLAG
CK FOR HEM tllt)
:s
I
-9
3
1
1
INITA2
I
I
YES-CK FLAG
THIS IS 2ND
THIS IS 1ST
UPDATE LIST
'IS THIS IS 2ND TEST
TEST-SO ERROR
·TEST-SAVE I AS FLAG
INDEX
10
PAGE
C
n n
..
n
n
22
n n n
1"
,
Ii
(j
()
(\
\~
0 0
0
~)
0 0 0 0 0
5MMOOO
1017
1018
1019
10io
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
.103,.
11).35
1036
1037
1038
1039
10CtO
1041
1042
104'3
U141t
10 ..5
1046
, lnft7
1048
10 .. 9
,105D
. 1051
105.2
1053
lOS,.
1055
105.6
1057
1058
105.9
1060
1061
1062
1063
1065
1066
D2FB
02FC
02FD
02FE
02Ff
0300
0301
0302
0303
PAGE
BOFF
010C
18E5
C291
ADS2
0822
'C191
Of4S
0872
INITA2
030ft 08 ....
0305
0306
0307
oa08
0309
030A
0308
G30C
0300
030E
OlOF
. 0310
03!:1
03'12
. 0313
0314
8315
0316
0317
0318
0319
031A
0318
. 03te
0310
031£
031F
0320
0321
0322
0323
0324
0325
0326
0327
0328
60Ff
OAZl
S4Z8
1 ..78
OSlt2
OAEF
608C
oa4 ..
6EOO
INITA3
INITAA
FFeo
EORSAZ·
-IMp·
LOA- .
ANDTRA
LOAARS
EAQ
CLR
STAENA
RT.J.O
JMPCLR
ENA.
STACLR
STA
C~
(J () 0
0
()
0 0 C)
DATEI 12/17/7,.
23
I
CHECK FOR END OF LIST
INITA3-"~1
INITAl
TSFREQ-l,Q
HFfOO
Q
TSfREQ-l,I
8
CI( 'NEST TEST IN THE LIST
GET 2ND TEST 10 fOR HSG
Q
COMBINE 1ST AND 2ND. TEST IDS
A
I
S21
(SHERROR)
(H 0000.
ERROR CODE
REPORT ERROR $21
START OVER AGAIN
Q
-16
Bl
A
(XLVOADR)
,Q
CLEAR ALL INTERRUPT LINE REQUEST
BY STORING ZERO IN, THE ADDRESS
INQ
.0004
4
fOR EACH LINE REQUEST
Doae
RAGBl
LOACOBC
Bl
0101
SAZ
1
-IHP·
INtTAA
lafO
SHHCNT
CHECK fOR HaS SELECTION
£056
LOQQLS
OFA7
7
SQP
SKIP IF NOT SELECTED
0161
1
(ADlNST)
CLEAR HBS INT STACKER
61t2D
STATEST
OCFB
ENG
-4
STA+ .
SLSPAO+4,Q
CLEAR THE IfHERRUPT RESERVATION.
6600 . INITAB
01F6
INQ
REQUESTS FOR THE SLOW SPEED
0001
1
SQZ
PACKAGE
01 .. 1
1
JHp·
INUAB
18FB
STQCLEAR LOCATION 02 fOR THE 1716.
02
.. 002
TSlNIT
TSIHIT ZERO:1ST SM" ENTRY OR BTL
LOAC090
OTHERWISE, PREPARE CONTROL TO
EXECTL-·-l
SAZ
Dl08
Q
RESTART ALL TESTS NOH IN CORE.
0822
TRANSFR TRA
. LDQTSIAAD-1,Q
LOAD TEST IA
E21\5
HUXRTA,Q
STORE IA AT TEST ADDRESS FORRTA
1,205
STQINA
09FE
-1
TSACTV
6091
STA0101
SAZ
IXT1-··1
JHp·
BEGIN HUXING AT 1ST LIST ENTRY
TRANSfR
18F9
JHp·
1810
IXT1
INITlC
".
IF HASTER CLEARITEST RESTART USED TO HE-CREATE ERROR CONDITION, SAME
SEQUENCE HAY NOT OCCUR IF ANY OF ORIGINAL TEST LIST fINISHED AND
• EXITED,
SINCE THESE ARE NOT RESTARTED.
•
0329 CO ....
OlZA 6045
60411400
C
EXECTL
LOA·
STA-
LASTVALUE
LASTAD
RESET LOAD ADDRESS.
PAGE
23
c!
~--
L'
PAGE
SHHOOO
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
•
- EKE CUTE TEST LIST •
•
PREPARES B1 FOR LOAO OO~ROL
•
•
•
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
1068
106·9 .
1070
1071
1072
1073 .
1075
1076
1077
1078
1079
1080
1081
1082
1083
10S4
1085
1086
1087
1088
1089
032B C08F
032C 8090
0320 0101
032E lS1C
032F6091
0330 E056
0331 OFA4
0332 0171
0333 1815
0334 EOOO
0335 056E
0336 4025
0337 COOO
0338 0750
0339 EOOD
033A 0012
1104
1105
1106
11 07
1108
1109
1110
1111
1112
1113
111".
1115
11"16
'. j
n n
LOAEORSAZ
tNITIA
STALDQQLS
SQH
033B S4C5
034B 40FF
03ltC EIA6
0356
0357
0358
0114
E090
0151
1847
18D9
A081
60BC
C056
n
PRE-EKECUTION TEST "ODIFICATION.
START. OF HSGFOR C·HANGES
lDQ
=KPREEXo-PREEXS+1
RTJCLR
RTJSAZ
STASTQINA
(TTOTTI)
A,Q
CINPTTY)
INITIB
STQRTJ- .
RTJLDQSTQLOQSQZ
STQLDAARS
SAN
LDQSQN
INIT4D
0350 OF48
0355
INTX
=XPREEXS
LDQ
INIT2
J"p.
JHp·
ANDSTALDl-
INIT4E
INITF
INITC
1.
STQt.DA
JMp·
INITIB
,.
ELSE PREPARE FOR POST-LOAD,
LDQINITI0
RESET CONTROL POINTER
CHECK SHH PARAMCHECK PRE-EXECUTION TEST HOD.
INITiS
=Xt£SSA3
fUO-
INIT,.
0340 01ltl
034E 4045
Ol4F C192
0351
0352
0353
0354
INIT10
NUHBER OF TESTS TO BE LOADED
NUMBER OF TESTS LOADED
TSSEL
T5tNIT
INITIA
INIT2
TSACTV
SHHCNT
LDQ
JHp·
033C
0330
033E
033F
60411400
(\
INtTl
JHp·
0846
1090
540E
1091
0109
1092
60FF
1093 0340 .. 578
1094. 0341 ·0901
1095 0342 DOFF
1096 0343 ES70
1091 . 03 .... 18F8
1098 03 .. 5 EOOO
0346 0284
1099 03lt7 4025
1100 03lt8 5408
1101 03.. 9 5401 .
110,2 OaltA E090
11 U.3
DATEI 12/17/74
24
LENGTH OF "SG
"SG TO OPERATOR
ZERO REGS FOR 1ST DISPLAY
STOP OR TTY INPUT FOR CHANGE
SKIP OUT TO TERMINATE
I
UPDATE CORE WITH NEW WORD
FOR POSSIBLE NEXT CHANGE
UPOA TE ADDRESS
GET NEXT CELL FOR NEXT DISPLAY
(HOaOO) .1
1
I
(HODDO) .1
INITiO
=XMCINIT
INTX
(TYPEOUT)
FORHAT TEST HEADINGS (A = ZERO)
ALL TESTS HAVE BEEN INITIALIZED.
CCO~TROL)
TSINIT
I
IS THERE AN IA TABLE ENTRYi
QZERO = NO.
YES. USE ENTRY FOR LOAD ADDRESS.
TS lAAD. I
INIT4o-·-1
LASTAD
TSFREQ,I
POSITION TEST NUHBER.
A=O = LOAD STRING TERHINATOR
TER"INATOR FIRST ENTRY
QZERO :: YES.
HOVE TABLE UP ONE ENTRY.
RUN LOADED TESTS.
8
INITF-·-l
TSINIT
INITltE-·-1 .
EXIlC
INIT1A
HOOFF
STORE TEST NUHBER.
B1
SHHCNT
PAGE
C
(
. \)
!)
'.
/
-')
/
(j
n
21t
() () ()
,f)
\
J
n
,n
J
'-.......
J
/
c)
0 (J 0 0 0 0 0 0
PAGE
S"HOOO
1117 035CJ A06F
1118 03SA 0107,
1119 03SB COltS
1120 035C AD81
1121 0350' 0104
1122 03SE COltS
112a 035F AOe2
1124 0360 8073
1125 0361 6045
1126 ' 03&2 COltS
1127 0363 61A6
1128 ' 0364542C
112CJ 0365 £090
1130 0366 0136
13..31 0367 OCJEF
1132 0368 0113
1133 0369 0142
1134 ' 03GA 62A6
113,5 0368 18C3
1136 036C 182F
1137 0360 CZ9C
1133 036E 0090
036F £ZA6
113~
11,.0 : 0370 0;10'1
1141 0371 6206
1142 0372C400
0373 0696
11"3 0374 0113
11 .... ' 0375 C205
11 .. 5 037& 083,.
11"~ 0177,6205
1147 0378 OA30
1148 0379 AZ02
11 .. 9 037A 0111
1150 ' 0378 18B4
1151, 037C 0091
1152 0370 18AO
INITD
INITCJA
INITB
BIASED
INIT5
(
-)
0 0
0
0
0 0 0 0
DATEI 12/17/74
25
LOAD AT EVEN ONE HUNDREDS IF 'SET
LDARAOLDQSAZ
STALDA+
BIT04
INITo-·-l
LASTAD
HOOFF
INITO-·-1
LASTAD
HFFOO
BIT08
LASTAO
LASTAD
TSIAAD,I
, PRGLOAD)
TSINIT
INITB-·-l
-NOMOCOR
INIT9A-·-l
INIT9A-·-l
TSIAAo,Q
INITIA
EXITC
TSEQAD,Q'
TSINI1
TSIAAD,Q
1
TESTEQ,Q
RBD004 '
SAN
LDAAAQ
STAENA
' ANDSAN
JHp·
RAOJHp·
BIASEo-·-l
MUXRTA,Q
A
HUXRTA,Q
$30
NAHE+l,Q
INIT5-·-1
INIT1A+1
TSACTV
IHI11
AZERO = NO.
~RBDD04
ZERO IF NEGATE
BY NAM CARD COL. 6ft'
BIAS RTAFOR CONTROL ENTRY.
CHECK ,.TM CHARACTER OF NAHE
fOR RUN-ALONE TESTS.
AZERO = RUN-ALONE. GO TO CONTROL
WITH TSACTV = TSINIT+l
TSINIT)
(THIS HAKES TSAOTV
ANDSAZ
LDAANOSAl
LoAANDAODSTALDASTARTJlDQSAM
INA
SAN .,
SQZ
STAJHP'"
JHp·
SKIP IF 'AOR ALREADY EVEN 100
0100
STORE ItUTIAl ADDRESS IN TABLE.
GO LOAD TEST
CAREG)=TERHINATE FLAG ON RETURN.
APOS
CODE OF TERHINAL ERROR.
AZERO = LACK OF AVAILABLE LOAD
CORE. IF NOT 1ST LOAD OF STRING,
RESET LOAD ADDRESS TO ZERO.
RUM TESTS NOW IN CORE AND ,RETRY.
OTH£RNISE, DELETE LIST ENTRY.
=
(O,ONT PASS ,ZERO ADDRESS)
PASS EQUIPHENT ADDRESS TO 'TEST.
HUXRTA BIASED BY LOADER-
=
=
. . . . . . . . ", . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9 • • • •
1154
•
.1155
1156
1157
1158
1159
...•
1161 ,037£ 0000
1162 037F C042
1163 0380 0821
1164 0381 0400
1165 0382 DADO
COHTRO
CONTROL ROUTINE
FOR HUL TIPLEXING TESTS
•..........., ...............................•....•........................
60411400
C
NUH
lOATRA
EIN
ENA
.'
RESET HASK.
o
INSURE INTERRUPTS ENABLED.
SETHASK
H
o
PAGE
25
0 c=
PAGE
SHHOOO
1166 0383 5406
1167 - 0384,0800
1168 038~ C091
1169 0386 9090
1170 0387 0131
1171 0381 (1)91
1172 0389 0891
1173 _ 038A E091
1174 0389 C2AF
1175 038C 6043
1176 0380 E2A5
1171 038E 0141
1178- 038F £205
CONTRl
CONTR3
1181
1182
...
...
1179
lieD
CONTR7
0390 161B
118"
1185
EXIT
0391 0000
0392 E091
1190 - 0193-C291
039" 09FE
0395 G291
11,93, 0396 A1)81
1194 0391 0101
1195 0396 1CF8
11'16 0399 OOFE
1197 039A 4091
1198 0198 C2B1
1199 039C 62BO
1200 0190 OOF6
120'1 019E 0149
1202 D39F 0009
1191
1192
EXITB
EXITC
1Z0'3
03AOC2A7
03Al 62A6
1205 03A2 'C29D
1206 ' 03A3 629C
1207 OlA4 C293
1208 01A5 6292
1204
1212
03A6
OJA7
OlA8
03A9
1213
03AA 40AF
1209
121,0
1211
121,.
1Zt'5
1216
1217
PREPARE STJP TO CONTAIN
INDIVIDUAL STOP/JUMP PARAM.
(HC-RESTART IF NO BTL ENTRY)
IA+HUXFTA CONTAINS RETURN ADD.
1
HUXRTA,Q
CHOaOO) ,Q
CHECK IF ALL PASSES ARE COMPLETE
OlAB
DlAe
03AO
OlAE
18F3
"09B
EXITO
40A5
C08F
09FE
608F
E090
(
\)
,
NUH
LOQLDAINA
STAANOSAZ
JHp·
INQ
STQLDASTAINQ
SQZ
INQ
LOASTALDASTAlDA-
0001
60411400
n
LAST TEST TO WHICH CONTROL WAS
GIVEN
END OF TEST LIST
START AT.TOP OF LIST
~
1186
1188
CHECK SKIP SWITCH
(JUMP)
a
TSACTV
TSINIT
CONTR1-·-1
TSACTV
TSACTV
TSACTV
TSTJP-l,Q
STJP
TSIAAD-l,Q
IF THEY ARE, CLEAR ALL ENTRIES IN THE TABLES
•
ENTER' WITH
A= INITIAL ADOR OF TEST
•
•..................................................... ......................................................
11'~3
1189
RTJ- ,
NOP
LDASUBSAM
STARAO- ,
lOQLOASTALOQSQZ
LDQJMP-
DATEI 12/11174
26
STAINQ
JHP'"
STQSTQSTQlDAINA
STALOQ-
o
,
TEST PASS COMPLETION ROUTINE.
TSACTV
TSfREQ-1,Q
-1
REDUCE TESTS FREQUENCY NUHBER.
TSfREQ-1,Q
HOOFF
EXITB-·-l
(EXIT)
SKIP = DELETE TEST FROM LIST.
REPEAT TEST.
-1
TSACTV
TSTJP+1,Q
TSTJP,Q
TSFREQ-TSEQAD+1
EXITD-"'-l
TSEQAD-TSFREQ-1
TSIAAD+l.Q
TSIAAD,Q
TSEQAO+l,Q
TSEQAD,Q
TSFREQ+1,Q
TSFREQ, Q
1
MAINTAIN HULTIPLEX ORDER.
(NEGATIVE TERMINAL VALUE FOR Q)
HOVE ENTRY IN TABLE UP ONE PLACE
GO BACK AND HOVE NEXT ENTRY
EXITC
TSEQAD-1
TS lAAD-l
TSTJP-l
TSSEL
-1
TSSEL
TSINIT
PAGE
C
n
()
(
() (j
()
\
I
26
()
()
\
J
n
)
'-
./
c)
0
0 0 0 0 0 0 0
PAGE
SMMOOO
1218 . 03AF 0141
1219 03BO DOFE
1220 03B1 4090
1221 03B2 0154
1222 03B3 0111
1223 03B4 OCE3
1224 03B5 1600
03B6 02£0
1225 0387 5401
(-
o o o o o o
c
DATEI 12/17/74
27
= INIT4
1
-1'
EXITG
SQZ
INQ
STQSQN
SAN
ENQ
JMP+
TSINIT
EE-·-1
EXIlG-·-l
TSLISI-INITA
INITAtQ
OTHER TESTS IN COREQZERO = NO. TEST LIST EMPTYGO BUILD 'TEST LIST.
OR CONTINUE LOADING FROM LIST.
EE
RTJ-
(CONTROL)
CONTINUE HUXING TESTS IN CORE.
QZERO
JMP TO EXITC
..........................................."'.............................
1227
,1228
1229
1230
1231
1232
1233
123 ...
1235
•
CONVERTS THE CONTENTS A·- (HEX) TO ASCII CODE
EXIT WITH Q EQUAL TO THE UPPER TWO CHARACTER AND
A EQUAL TO THE LOWER TWO CHARACTER
USES BO TRANSIENTLY •.
•
•
•
0388 0000
0389 08 ... 2
OlBA 4819
123.6 03BB OFC4
1237 038C 6031
1238 03SD aCOF
1239 03BE 08B6
1240 03BF ODF5
121ft 03CO 0172
1Z42 03C10011
,1243 03C2 0814
1244 03C3'0930
1245 03C .... EBOf
12"6 Ole5 OFAF
1Z47 ' 03C6 0173
1248 0"C7,OFC8
1249 83ce 6232
1250 03Cc) 1805
1251 OleA F08l
1252 03ca 8232
1253 03CC 6232
125,. 03CO 0153
1255 03CE 0805
1256 03Cf C031
1257 0300 18EA
1258 0301 E032
1259 03D2 lCES
1260 0303 0000
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
COMAse
CONVOO
CONVOl
CONV02
CONV03
ENDCNV
CONVO,.
NUM
CLR
STQ·
lLS
STAENQ
LAQ
INQ
SQM
INQ
TRQ
INA
LDQ·
QLS
SQH
ALS
STAJHp·
AOQADOSTASQN
RAO·
LOAJMp·
LDQJHp·
HUH
0
Q
CONV04
4
HEXHDRD
SF
A.Q
-SA
CONV01-·-1
$11
,A
$30
CONY04
15
CONV02-·-1
8
ASCHD,Q'
CONV03
H7FFf
ASCWD,Q
ASCHD,Q
ENDCNV-·-1
CONVO,.
HEXHORD
CO moo
ASCHD
(CONASC)
0
••• HEX TDASCII CONVERSION •••
PTC2
' MASK OFF HEX DIGIT.
QNEG = 0 THRU 9, ADO S30.
QPOS = A lHRU F, ADO $41
TO THE DIFFERENCE.
CHECK CHARACTER POSITIONCOUNT EVEN = UPPER.
PTC2
COUNT . ODD :: LOHER.
Q
0 FOR 1ST HO, Q=1 FOR 2NPTC2
PTC2
SKIP OUT ON SECOND HORD.
BUHB INDEX
PTC2
=
EXI,T ROUTINE.
INDEX
PTC2
.......... ........•........•...............•. ..•.•.•.........•........
~
1262
1263
1264
•
•
&0 .. 11400
C
~
DUAL BANK RELATIVE CORE POSITION TEST
EXIT WITH A=NEG IF A GREATER THAN Q ON ENTRY
•
•
PAGE
27
PAGE
SHHOOO
1265
1266
1267
1268
1269
1270
1271
1272
1273
127'+
1275
1276
1277
1218
1279
1280
1281
1283
128'+
1285
1286
1287
1268
1269
1290
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
A=POS IF Q = OR GREATER THAN A ON ENTRY
•
•
CA=O IF A=Q ON ENTRY)
•.......... .......... .................................
...............•
~
030'+
0305
0306
0307
0306
0309
03DA
030B
OlOC
0000
0133
0163
DA01.
1804
0162
0864
0834
1Cf'7
AQPOS
RP1
RP2
RP3
~
~
a
NUH
SAH
SQP
ENA
JHP· .
SQP
TCA
AAQ
JHP·
RELATIVE CORE POSITION
RP1-·-1
RP2-·-1
1
RP3
RP3-·-1
A
A
, AQPOS)
A , Q
BOTH POS OR NEG.
........... ............................................................
~
•
STOPX PROCESSING ROUTINE
•
•
•..........•...........•.•................ ......•.......................•
•
~
0300·
030E
03DF
03EO
03E1
03E2
03E3
03E4
03E5
03E6
03E7
03E8
03E9
03EA
03ES
OlEC
03EO
03EE
03Ef
03FO
03Ft
03F2
03F3
NUH
RAO
0
FLGSTP
BUSY FLAG TO INT ERR REPORTEPTC2
RTJ
JUHPX
CHECK fOR MONITOR STOP FIRST
caDO
NOP
LOA·
STA·
LOA
PRESTP
STOPX
JUMP!
FC7l
1802
JHP*
STOPX+1
NUH
RTJ
0
LOQSTQ·
STA·
LOA
I
LOQ·
STQ·
INQ
STQ·
RTJ*
LOQ
STOPX
XSAVE
1
XSAVE+1
AQPOS
TSACTV
SAP
LOA
STOPX1-·-1
=XEREI0U+l
APOS = TEST ENTRY TO STOPX.
ANEG = SHH ENTRY,
SUB·
SAZ
ENQ
STQ·
STOPX
STOPX1-·-1
0
USRPNT
CHECK FOR HBS CALLAZERO= YES, USE TEST·POINTER.
USRPNT INDEXES TEST LIST TABLES,
TSACTV IF TEST ENTRY.
PRESTP
0000
0800
FE8D
5800
FC6A
OBOO
C6F9
680'+
STOPX
0000
5800
oteo
EOFF
'+86F
6874
CeDO
FCSIt
ESF7
486B
0001
.. eGA
03F4 58DF
03F5
03F6
1304 . oaF7
1305 03F8
D3f'9
1.306 D3FA
1307 03FB
1308 D3FC
1309 03FO
ESOO
FC9A
0125
COOO
0016
9BED
0101
acoo
'+8SB
60411400
()
DATEI 12/17/7'+
28
n
STOPXl
0
GO INTO STOPX NON FROH THE TEST
PRESERVE PRESENT STOPX ACTIVITY.
TTBUSY
IREG,
ISAVE
BIAS
LASTVALUE
AND
AREG.
(MONITOR LHA+U
USED BY A/Q TTY
DETERMINE RELATIVE POSITION.
PTC2
PTC2
PTC2
=
PAGE
C
/~,
I
/
()
(
n
28
()
()
(\
,
)
~
:
0
0 0 0 0 0
n C)
PAGE
SH"OOO
0
(-
)
0 0
n
0 C) 0
(-)
'--/
OATEI 12/17/7'+
29
'.,
1310
OlFE 0151
iall
1343
1344
1345
134&
1347
1.348
1349
1350
1351
03FF OCOB
,0ltOO CAOD
0401 FCAD
04026850
Olt03 E800
Olt04.FCBS
0405 0195
0406 OFAF
0407 0172
0408 FOOD
0'+09 ·F070
04'U OFAl
0408 086 ..
OltOC 0852
0400 08F4
OltO£ 6840
040F EC4E
0410 C8'+F
Olt11 AOOO
0412 0200
0413 0113
0414 C803
0415 984C
0416 0121
04170800
0418 6848
'0419 0010
041A OAOE
041B 08B'+
041C 0112
0410 684'+
041E 1802
{)'+IF 0010
0420 483E
04~1 C839
0422 AOOO .
0423 0100'
0,.2,. &835
0425 OF24
0426 OAOF
0427 0894
0"28 &856
0.. 29 0864
042A '6855
0'+29 6855
042C E820
1353
135,.
1355
1356
1357
042D
O.. ~E
042F
0..30
0431
1312
1313·
131,.
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331 .
1332
1333
1334 .
1335
1336
1337
1338
1339
1340
1341.
1342
60411,.00
0
STA·
LOQ
SJX
HSTJP
BRING UP HONITOR STJP
SWN
QLS
STOPX3-·-1
15
STOPX2-·-1
BIllS
HONITOR STOP
YES
IS HSTJP BITO SET
NO SET IT.
ADQ
QLS
TCA
TCa
CAQ
5TA·
LOQ·
LOA·
AND
SAN
STOPX4
STOPXS
5TOPX6
LOA·
SUS'"
SAP
LOA·
STA·
INQ
ENA
LAQ
SAN
STA·
JHp·
INQ
STQ·
LOA·
AND
STA·
QRS
ENA
LAQ
STA'"
CKID
OA03
A8JO
0107
A82A
09FE
1
SQH
STOPX2
STOPX3
= ZERO
SQN
ENQ
LOA
11
TSTJP-l,Q
1
A
Q
A
HTSTJP
(XSAVE+ll
SJX
=NS0200
STOP)(It-·-l
STOPX
BIAS
STOPXS-·-1
STOPX
RTA
$10
SE
A
IF SHH ENTRY.
LOGICAL
OR
OPERATION
LOAD EhTRY 10,
BIAS RTAAZERO
.=
YES.
UNBIAS RTA.
(RESULT NEGATIVE fOR HBS
ENTRIES. USE ENTRY VALUE).
ENTRY 10 PLUS ONE STOP.
(PREPARE DATA INDEX FLAG)
2
BIAS
STOPX6
S10
10
HTSTJP
=NS100
OHITTO
'+
SF
A
STOPCNT.
NO. ADDITIONAL STOP NECESSARY.
AHENDED 10 TO BE REPORTED. '
PREPARE OHIT-TYPEOUT FLAG.
STOPCt~T
:: DATA PAIR COUNT (A/Q).·
TCA
STA·
STA'" .
LOQ·
NEGCNT
AQCNT
OHITTO
NEGONT
COMPLEHENT Of STOPCNT.
AQONT = ACTUAL STOPS TO BE HADE.
ENA
AND·
SAZ
AND·
INA
3
10
10,.8-·-1
HTSTJP
-1
DECIDE STOP TYPE.
A
=
U,2,4, OR 8)
SKIP If END-Of-TEST OR ERROR.
PAGE
29
C) 0
('
"'--
.
PAGE
SHHOOO
1358 0432 0106
1359 0433 013F
136D 0434 0154
1361 ' 0435 OCFE
1362 0"36 1802
1363 0437 015B
1364 0438 4848
1365 ' 0"39 5829
136'6 Olt3A 011f
1367 043B 5800
043C 0080
1368 0430 OAOl
1369 Olt3E 681t0
1370 043F 086,.
1371 04ltO 683F
1372 oIt" 1 683F
1373 Olt42 01ltO
1374 D4ltJOAOC
1375 Oltltlt A81A
1316 0445A815
1371 ,04"6 9109
1378 01t .. 7 5800
0448 0162
1379 0449 5819
1046
102
101
ENA
ST4·
TCA
STAo.
STA·
CI(SJ48
1388
RTJ
SKPXIT
04.. C 0000
0440 B812
0"4E 0101
NEWSJ
0450 C80a
0"51 60FF
0452 £800
0453 FC05
STPEXIT
044f 587A
1389
0454 0844
1391
0455 6800
0456 FE09
0457 lC90
1390
1393 0458 0000
139" . 0459 oaoo
1395 Olt5A 0000
1396 0458 0000
1397 045C 0000
1398 0450 0000
1399 045E 0000
1400 045F 0000
1401 0460 0000
1402 0461 0000
lit 0'4
Ilt05
1406
Cl n
1\
l
/
RTJ·
SAN
LDANUH
EOR·
SAZ
RTJ"
LOA·
STALDQ
101-·-1
CKSJ,.8-·-1
101-"-1
-1
102
CKSJ48-··1
AQCNT
AQTTY
SKPXIT-·-l
STPTYP
1
STOPCNT
A
NEGCNT
AQeNT
STPEXIT-"-1
IC
SKIP IF PARA" STOP
SKIP IF S/~ aIT NOT SET.
OTHERWISE = END-Of-SECTION STOP.
(ONLY ONE ACTUAL STOP
UNLESS OHIT TYPEOUT SET)
OKIT TVPEOUT SET- (STOP 4 OR 8)
NO. AQTTY PREPARES TYPEOUT DATA.
(DISPLAY/ENTRY, ,ASCII DATA PREP)
SKIP TO EXIT IF STOP1,2 + OHITTO
GO TO STOPX TYPEOUT ROUTINE.
PREPARE FOR SINGLE,
STJP ENTRY STOP,
RE-TYPEON CHANGE.
(BYPASS STOP AFTER CORE HOD RE-START)
10
HTSTJP
STPEXIT-·-l
TTeUSY
AQTTY
STP£XIT-·-l
o
Q
SJX
STPEXIT-·-l
STPTYP
ISAVE
I
=
SKIP
ERROR OR EOT STOP NOT SET
(COHPLETE TYPEOUT BEFORE STOP)
GO TO A/Q/TTY FOR STOP.
(A=OHIl TYPEOUT FLAG ON RETURN)
OHIT TYPEOUT NOT SET,
CHECK FOR STOP/JUHP
PARAHETER CHANGE.
SKIP IF NO CHANGE.
TYPE NEN PARAHETER
RESTORE
JUHP3
CLR STOPX BUSY FLAG.
CLR
STA
FLGSTP
ENDSTP,
J"p.
(STOPX)
EXIT SlOP ROUTINE
USRPNT
oHITTO
HTSTJP
ISAVE
XSAVE
HUH
NUH
NUH
HUM
NUM
HUH
NUH
NUH
HUH
NUH
o
o
o
o
o
o
o
o
o
o
INDEX TO TEST LIST TABLES.
FLAG=O, OHITTYPEOUTS NOT SET.
PSUEDO STOPO JUHP PARAH.
1 ON ENTRY
RETURN ADDR OF STOPX ENTRY· RTJ.
RETURN AODRESS+l OF ENTRY RTJ.
IDENTITY Of STOPX INSTIGATOR.
STOP/JUMP PARAH OF INSTIGATOR.
RETURN AOOR OF STOPX INSTIGATOR.
LISTING. LOADED ADoR DIfFERENCE.
NUH
LOASUB·
STOP8FR
STOPCNT
o
A/Q DISPLAY/ENTRY,
TYPEOUT DATA PREP.
(TYPEOUT BFR MINUS TWO TIMES
10
SJX
RTA
BIAS
AQTTY
0462 0000
0463 COEl
0,.6,. 981A
60,.11400
SQl
ENA
AND·
ANO·
SAl
1380 ' 044A 0115
1381 0"4B COOO
li82
1383
1384
1385
1386
1387
SAl
SAH
SQN
EHQ
JHp·
SQN
STQ·
RTJ· '
SAN
RTJ
DATEI 12/17/74
30
A
PTC2
PAGE
C
(~
)
() ()
()
,
I
•
(j
3D
()
")
'.~
c)
0
t~
'-..--
0 0
0
0
PAGE
SHHOOO
1 .. 01
1"08
1409
1410
1411
1412
1413
141ft
·1415
1 .. 26
1427
1428
1429
0465 98.19
0"66 685E
0467 685£
01t68 8860
01t69 885F
046A 0500
046B 080C
046C 0113
Olt60 C800
0"6E FeOJ
Olt6F 0821
0470 C8EO
Oft71 EeED
0472 5839
0413 6C51
0474 0850
0475 ftC4F
Olt76 08.. E
0477 AOOO
0478 FFOO
D479 OFFO
047A 4000
0,*78 0000
0..7C 68CF
0470·1804
1431
1432
1433
047£ 0000
047F 0000
0480 0000
1416
1 .. 17
llt18
, llt1 9
1420
11021
1422
1423
1421t
1425
1435
1436
1437
0401
0482
0483
0484
1438 0485
1439 0486
14,.0 Olt87
1441 Olt88
1442 0489
1443 048A
0488
1441t . 048C
1445 048D
1 ....6 048E
1447 , O.. 8F
1440 0"90
1449 0491
1.450 0492
14S.1 0493
1.. 52 0494
1453 0"95
0,.96
14S4 0497
£806
0142
6800
FBBE
015F
E8F4'
014C
680&
OCOA
CAOD
FCOS
A8EB
B8ED
010l
0147
DOFE
18F8
cacc
1802
ocoe
6AOO
Fe18
0400
60 .. 11400
()
C
AQl
AQ1A
CKIONM
0 C
J
C~)
0 0 0 n' - 0
SUO·
STA·
STA·
ADO·
ADO·
lIN
TRH
SAN
LOA
STOPCNT
BFRl
BFR2
S7FFF
S1FFF
0
A
AQ1A-*-1
SEntASI(
TRA
LOA·
LDQ·
RTJ*
STA'"
RAO·
STQ*
RAO·
AND
H
10
SJ)(
CKAQ
(BFRU
8FRl
(BFRU
BFR1
=NSFFOO .
STOP COUNT
= DATA
BFR FHA)
LIGHT OVERFLOH LAHP ON 1ST STOP.
(FOR 65k ASSURANCE)
DISPLAY CURRENT H-REG AT
1ST STOP. USE SYSTEH
HASKFOR H.C. START
FRO" TEST FHA
CHECK FOR A/Q STOP, TTY INPUT.
1ST DATA BFR HORO = 10.
2ND DATA BFR WORD
=STJP.
16
STOPCNT
NEGCNT
AQCNT
NUH
NUH
NUH
0
0
DATA PAIR COUNT.
COMPLEMENT OF STOPCNT.
ACTUAL AQ STOP COUNT.
SINGLE
LOQ·
SQZ
STA
USRPNT
2
STJP
rUSRPNT POINTS TO STOPX USER)
SKIP IF USER IS SHH.
(ACTIVE TESTIS STJP PARAH) -
SQN
LDQ"
SQZ
STA"
ENQ
LOA
SCAN4-"
IDSAVE
SCAN4-·-1
SJX
10
TSFREQ-l,Q
IS ID .: SHH
NI CHANGE·TEST STJP
ANO"
EOR·
SAZ
SQZ
INQ
JHP"
LOA·
JHp·
ENQ
STA
CKIONH+1
IOSAVE
SCAN2-·-1
NEWHASK-· .... 1
-1
SCANID
SJX
SCAN .... 1
11
TSTJP-1,Q
fIN
0
SJPARAH
SCANIO
SCAN2
SCAN4
NEWHASK
~-
OATEI 12/1117 ..
31
LLS
STQNUH
STA·
JHP·
IOSAVE
r-)
~_/
0
0
NEHSJ
SINGLE
0
PLUG STJP INTO TEST OR SHH STJP
SKIP IF THIS IS THE TEST
SKIP IF LIST HAS BEEN EXAUSTEO
STORE IN USER'S STJP TABLE ENTRY
PAGE
31
(~'
~)
0
f\
(~-'
PAGE . 32
SMHOOO
1455
1456
1"57
1458
1459·
1460
1 ..61
1462
1.463
14&4
1465
1466
1467
1468
1469
1470 .
i47!
1472
1473
049801AO
0499 C8C7
0"9A 0105
049B 581B
04
CLR
STA·
LOA
, TTYPE
MESSAGE
0516 0000
0517 0800
0518 FOlt8
1607
o
DATEI12J17J74
35
NUH
RAO
1600
C)
.'•
.'........."...................... ......................" ..........................
1595
1599
'\
j
aSIA FBB9
051B C8FA
051C 6806
051D 0844
051E 68F7
OS1FC800
0520FBB3
05211805
JHp· :
09·22 '0450
HESS AGE ADC
0523 0800
RAO
0524 FD3C
RAD·
1611 0525 'D8FO
HESSAO ' RTJ
1612 0526 5800
0527 0083
RAO
161,3 0528 0800 .
0529 fBIF
STA·
1614 092A 6878
CLR
1615 052B 0844
SQP
1616 D52C 01&3
QLS
1617' 0520 OFAl
QRS
1&18 ' Q5ZEOF21
INA
1619 052F 0901
STA1620 0530 6879
LOA·
1621 0931 'C874
SAN
1622 05'32 0111
ENQ
1623 0533 OCOl
162,. 053,. 0852
NOTFORH TCQ
STQ·
1625 0535 4871'
LDQ· ,
162& 0536 ESEB
RTJ
1627 05375800
D538 FBZA
1609
1610
60lt11400
C
,
ENTRY FOR HSG OUTPUTFROH TTYINPUT OR
SET BUSY fLAG FOR INT ERROR
FLl.iHSG
A
TTYPE
TEHPLOC
HESSAO
STPEXIT
Fc.GNSG
(FOR SttttCNT ,BIT15 '. HSTJP 91T09 POSSIBILITY)
FLAG BUSYTO INT ERROR REPORTER.
TTYPE
TTBUSY
NONZERO ENTRY AS A FLAG
PRESERVE HSG ACTIVITY
INFORM
SET ,TTY BUSY SWITCH
ADM
A
3
1
1
1
TTYHSG
ADDR
NOTFORH-·-l
1
Q
CNTNUH
HESSAGE
LDSTJP
SKIP IF THIS IA A FULL HESSAGE
DROP 'BIT,1S FLAG IN WORD COUNT
SET OR CLEAR LP DRIVER FLAG
RESTORE A REG
(COMPLEHENT WORD COUNT)
'LOAD 'APPROPRIATE STOP/JUHP WD)
PAGE
35
PAGE
SHHOOO
1628
1629
1630
1631
1632
0539
053A
053B
053C
0530
AlS
SAP
JHp·
OFC1
0121
1833
C800
FB18
053£ 4800
053F FB35
1633 0540 010"
,1634, 05 ..1 ,C804
1635 05 .. 2 0102
1636 0543 1800
05"4 03C6
163'7 0545 E862
1638 0546 02FE
,1639 0;1f7 OFCE
16"0 0548 0121
16'+1 05.. 9 18FC
16 .. 2 054A CODA
0540 OltOO
1643 054C 0300
16"4 0540 OFlt2
1645 OSltE03FE
16ft6 05ltF C856
16ft7 0550 0113
16"8 0551 C857
1649 0552 OOFE
1650 0553,1812
1651 0554 C800
0555 FBOO
,,1652 0556 OFOl
1653 0557 013B
165,. 0558 080C
1655 0559 A800
NOTFMl
MEssa
0563
0564
1667 0565
1668 0566
1669 0561
1670 0568
1671, 0569
1672 056A
1673 056B
L04
OHITT TYPE-OUT SET
YES
GET SHH PARAHETER
AND
8ITI0
CHECK IF PRINTER SELECTED
SAl
LOA·
SAZ
JHP
NOTFH1
TTYPE
NOlFH1
SKIP ,TO TTY OUTPUT
GET POSSIBLE TTY INPUT PACKAGE RTM ADD
IF RTN AOOR
ZERO. USE TTY .
IF NON ZERO. USE LINEPRINTER
LoQINP
ALS
SAP
JHp·
LOA
OUT
ARS
OUT
LOA'"
SAN
LOA'"
INQ
JHp·
LOA
1666
60411ltOO
1 \)
,
HESSA2
DR42
HESS
-1
14
1
STATUS
HAlT NOT BUSY
"'-3
=N$l+OO
o
2
SELECT
(10
HOOE
-1
SELECT WRITE HOoE
H8DDA
(AZERO
AODR
HESSO-'"
-1
= LINE
FEED.
CARRIAGE RETURN ENTRY)
HESSA2+1
SHHCNT
ALS
SAlt
TRH
AND
HESSA1-·-1
BIT01
IS LEVEL 1 INT. ENABLED
SAZ
HESSA1-·-l
NO, USE NON-INT. HOOE TYPEOUT
SET
STA·
STA'"
ENA
OUT
EIN
JHP'"
HESS Al
OOFE
CC41
OFC8
03FE
OFce
03FE
0830
0839
C83B
1665
7
1
HESSA3
SHHCNT
055AF911
1656 ' 055B 0107
1&57 055C 0804
1658 0550 6841
1659 055E 6845
1660 D55F OA04
1661 , 0560 '03FE
1662 0561 0400
1663 0562 1811
DATE' 12/17/7..
36
INQ
LOA'"
ALS
OUT
ALS
OUT
RAO·
RAO·
LOA'"
10
A
A
HESS6
,.INTACT
-1
o
NO INTERRUPTS
INDICAtE INTERRUPT HOOE ACTIVE.
SELECT DATA INTERRUPTS
FUNCTION HAY REJECT
HESSA4
-1
(AOOR)
a
-1
8
-1
CNTNUH
AOOR
CNTNUH
PAGE
C
/
'\
36
)
~
0
0 c) 0
0 0
056C 0101
0560 18F6
056E OAFE
056F A800
0570 FAD8
167.8 0571 6800
0572 FA06
1619 0573 08~4
1680 057«. 6800
0575 FCES
1681 0576 lCAB
1682 . 0577 00011.
0978 E82F
1~83
1684' 0519 0223
1G85 097A A076
1686 0578 0104
1681 051C OA02
1,688 0510 03FE
1689 057£ 5400
1690 057F181A
1691, 0580 C826
1692 0581 0119
167"
1679
1676
1677
1693
1722
C) 0
PAGE
5HHOOO
1694
1695 : 0582
1696 0583
1697. 058,.
1698 0585
1699 0586
liDO 0587
170.1 0588
17·02 0589
17.03 OS8A
1704 0588
1705 058e
1706 D580
1107 058E
1708 050F
1709 0590
1710 0591
1711 0592
1712 0593
1713 0594
1714 0595
1715. 0596
1716· 0597
1717 0598
1718 0599
1719 059A
1720 059B
C)
SAl
JHP·
1
StA
INFORM
HESSA,.
CLR
STA
A
FLGHSG
ENDHES
JHP·
HUH
LOa·
tNP
SO
HESSIN
HESSIC
At~o-
SAl
ENA
OUT
RTJJHp·
HESS1A
,.,.
LDA'"
SAN
MESS3
.0500
IIt~
CLR
STA·
ENA
ANDSTA-
oa44
6810
OAFE
A049
6049
l80F
DOFE
MESStB
ca18
0104
ce17
OFC8
0300
1805
CC13
0309
HESS1
0811
0811
caOE
0864
680e
OC04
0400
1008
t-1ESS2
HESS2A
HESS
HESS4-o.-1
8IT11
HESS1A-o-l
2
-1
UlIUWALINl)
HESS2A
CNTNUH
MESS1B-"'-1
A
INTACT
-1
INQ
-1
LDA·
SAZ
LOA·
ALS
OUT
JMp·
LOA·
OUT
RAO'"
RAO·
LOA·
TCA
STA·
ENQ
EIN
c)
(J Cl (J
~\
LAST WORD OUTPUT
NO
CLEAR TTY BUSY SHITml
CLR RE FORTER FLAG.
NO
INPUT STATUS
MANUAL ,INTERRUPT
YES
CLEAR MANUAL tNT
GO TO HANUAL 'INT ROUTINE
ALLOWS ONE EXTRA INTERRUPT SO YH
THE TELETYPE IS NOT BUSY ,mEN
THE INlERRUPT IS CLEARED
CLEAR DATA INT
FUNCTION HAY REJECT
CLEAR INT HaDE ACTIVE FLAG
INFOR~1
JHP~
NOP
C
$2
-1
0
INFOR ...
MESS2A
JHP·
059C OBOO
60411400
ENA
OUT
0 0
H1ESSAGE)
...
OA02
03FE
~
C) 0 0
oATEI 12/17/74
AND
ENA
)
\
37 .
MESSA2
-1
INFORM
HESSA3
,
(
"ESS6
HESS1-"-1
, ADDR)
CLEAR TTY BUSY SWITCH
RETURN TO SM" INT ROUTINE.
FIRST CHAR .OF HORO
YES
8
HE 55,.-11-1
HESS2
«AODR) .
MESS4-t'-1
AOOR
CNTNUH
HESS6
A
HESS6
4
o·
CHESSIN)
OUTPUT LAST CHAR OF WORD
COMPLEMENT CHAR SWITCH
LOAD EXIT STATE VALUE.
RETURN 5HH tNT ROUTINE
0
PAGE
37
(~"
PAGE
SHHOOO
HESS ..
1123 0590 ce04
1724, 059E 0113
17,2,5 059F DADa
05A05400
17~6
1727. 05A1 02,.6
1728 05A2 18El
172,9 05A3 0000
1730 05A"'FFFF
1731 05A5 0000
1732 05A6 0000
1733 05A7·Q091
1734. 09A8 SODA
1735 05A9 0000
1736
1737
XREPORT
INTACT
HESS6
AOOR
CNTNUH
HESS
H8DOA
TTYHSG
•
•
TTBUSY
OSAA DODO
05AB 6808
1739
1140
1741
17"2
OSAC
OSAO
OSAE
OSAF
1743
1744
1745
1746
17"7
OAOl
A800
FA9A
0101
oseo 18FC
05Bl C802
05B2 lCF7
TV8ZYA
0583 0000
•
•
•
1755
,1756
1765
1766
09B4 '0000
0505 60C2
0596 0852
GENRAN
ose8 C816
D5B9 281"
GENHORE
0587 40Cl
OSBA 60CO
0588 40BF
058C OFE8
0502C28£
60411400
(~
\,
1I
f\
\
)
()
INTERRUPT HODE ACTIVE SWITCH
CHAR SWITCH
$0
-so
SO
SO
o
EQUIPMENT ADDRESS FOR TELETYPE
ASCII CODE FOR TTY CR, LF.
HULTI-PART MESSAGE FLAG
=1 IF CALL IS ONLY A PARTIAL HSG
=0 IF CALL IS A COMPLETE HSG
o
TEST TELETYPE BUSY SWITCH
1
LOOP UNTIL NOT 8USY
1
8USY
YES.
$91
SBoOA
TYBZYA
INFORM
TTBUSY+3
TYBZYA
CTTBUSY)
NO
o
EXIT
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
176'7 ' 0580 D9AA
1768 058E 6810 '
1769 DsaF 00C9
1770 05CO 4800
1771 05Cl 0002
1172
COt
REPORT
HESS3
RANDOM NUMBER GENERATOR
ENTER ROUTINE WITHQ= NUMBER OF HORDS TO 8E GENERATED
A= FWA OF STORAGE AREA
.,.
1754
1761
SKIP REPORT IF REPORTER 8USY
(ERROR CODEa
REPORT REJECT.
~
1753 .
1762
1763
1164
SAl
JHp·
LOA·
JMp·
NUM
•..
1752
1758
NUH
STA·
ENA
AND
UREPORT)
XREPORT-·
oATAREJ
•............................. ....•...........•.....................•..
1749
1750
1751
1759
1760
LOA·
SAN
ENA
RTJAOC
J"p.
NUH
NUH
NUH
NUH
NUH
NUH
NUH
38
f\
STMORE
HUM
STATCQ
STQlOA·
Hut·
STASTQLLS
INA
STA·
INQ
STQl&
ENQ
LDA-
o
(PRODUCT ADDRESS)
87
Q
86
R1
(COHPLEMENT WORD COUNT)
R
BS'
B4
8
-$55
R1
-$36
R
2
81t-l,Q
PAGE
C
1\
(j
c)
38
Cl
()
f
~\
c~
o o o c)
0
PAGE
S"HOOO,
1713
177"1775
1776
177,7
05C36 ..C2
0504 00C2
05C5,.DOCt
0506 CDCl
05C7 0111
,llt8, OSC8 lCEB
1779 '·05C9 OOFE
1780' 05CA0151
1781, 05ce'18EC
178e 05CO l8F5,
1183 oseD 7FFF
1784 oseE ABAO
GEN1
R
Ri'
1786 '
'
1788
1189
STA';'
RAO- ,
RAOLOASAN;
JHp·
INQ,
o
,-----~,
)
(
'-
---'
o
C) C) C) o o
DATEI 12/11/7",'
39
(B7)
87
B6
86
GEN1-·-l .
(GENRAN) ,
-1
SQN
l'
JHp·
JHp·
NUH
NUH
'ENHORE
STHORE
$7FfF
SABAD,
NO
ALL: NUMBERS HAVE BEEN GENERA'
GENERATE 3 HORE NUMBERS
STORE ONE HORE NUHBER
~ • • • • • • • • • • • • III . . . . . . . . . . . . . . . . . . .4 • • • • • • • • ~~ • • • • • • • • • • • • • • • • • • • • • • • • • • • v.~.
•
1. 767
'.'.
•
,1790 '
LOAD OVERLAY ROUTINE
ENTER WITH AREG
OVERLAY NUMBER
=
•
•II,
.'
•••••••••• ": ..... ~ ...............................!' •••••••••••• """" ••••••••••••
1791
I
OVERLAY
OSOf 0000
1793
1794·
17')5
1796
1797
1798
1799
,1800
1801 '
1802 '
0500 E091 ,
0501 £291
0502 0F-E8
0503 60BC'
050.. B04A
0505 0116
0506 60BC
050760B£
0506 coDa
NUH
LDQLDQ·
LLS
STAEORSAN
STA- ,
STALOA
0
TSACTV
TSFREQ-1.Q
0
Bl
LASTOV
OVRLA1-·-1
81
POINTS TO TESTHAKING CALL'
=
RESULTING AREG
DVXX, WHERE
XX = TEST,
OVERLAY NUHBER
V=
83
SKIP FOR SEARCH IF-LIB NOT
POSITIONED FOR IMMEDIATE LOAD.
PTC2
CLEAR ERROR FLAG ON ENTRY
LOCONT
OVRBL2 '
CPRGLOAD)
OVRL01-·-1 '
OVERLAY
(OVERLAY)
SEARCH AND LOAD OVERLAY.
ANEG :: SUCCESSfUL LOAD.
TERMINAL "ERROR ENCOUNTERED.
RETURN TO CALLER AT P+20N ERROR
=XOVRLA1+1
05D9 05DO
18'\13 ' 050A 6848
1804 050B 1810
1805 osoe 5lt2C
1806 0500 0131
1801 OSOE 08FD
1808 OSOF lCEF
1809 05EO' 0842
1810 05El COS6
181t OSE2 .A079
1812 05E3 0105
1813 05E4 COSG
1614 05E5A077
1815 05£6 0113
1816 05E7 4800
05E800f1
1817 05E9 183A
1818 05EA 4800
05E8,00EE
1819 OSEC18FO
STA·
~
60411400, C
OVRLA1
JHP·
RTJSAH
OVRLOl
-LDRCHK
LOADNX
CDDSK
RAO""
JHp·
CLR
LDAANOSAZ
LDAANDSAN
STQ
SHHCNT ,
BITt.. '
lOADNX-"'-t
SMHCNT
BIT12
ODOSK-·-1
DPNAHL'
JHp·
STQ
LOADRBD
CDPNAK
- JHP'"
LOADNX
Q
NOT OP OR CART DISK
CHECK FOR CART DISK
CART DISK LOR
DISK PACK - CLEAR ADDRESS WORD
LOAD N EXT BLOCK
CLEAR CART DISK ADDRESS HORD
'PAGE
39
o
(~
'PAGE
SHHOOO
182.1
1822
05EO OC02
OSEE E646
18~3
05EF "04S
182,. OSFo OCol
1825 OSFl E6"6
1826 OSF2 40"A
1827 OSF3 0111
1828 05Flt 181F
,1629 OSF5 BOlt"
1830 ' O!iF6 0101
1831 05F7 t82C
1832 OSF8 'COltS
1833 05F9 09f'E
1834 OSFA 60CO
1835 OSFS E091
1836 05FC ClAS
1837 05F06045
183& OSFE E04B
1839 05FF 0832
18 .. 0 ' 0600 40BD
1841 0601.0842
1842 0602 40C2
1843 0603 1806
1845
18 .. 6
1847
1848
18"9
1850
1851
0604 0844'
0605, OOFE
0606 66BO
0607 0141
060818FC
0609 ,.OBC
060A 180F
18'53
0609 0117 '
060C'E446
0600 CaSE
060E 60Cl
060F OA11
0610 40,SF
0611 60BE
0612 1806
185ft
18"55
1856
1857
1858
1859
1860
1862 0613 011F
1863 " 0614 COCO
186,4 0615 0901
1865 0616 6045
1866, 06170804
1867 0618 60CZ
1868 0619 COBE
1869 061A 0104
1870 0618 EOCl
1871 061C.40FF
60411400
!\
/
()
(,.-~
,
I
,f
OVRBLl
OVRBL2
TSTCLR
TSTFND
ILLBLK
STB7Bl
XFRBLK
CKFLAGS
ENQ
LOQSTQENQ
LDQSTQSAN
JHp·
EORSAl
JHp·
LOAINA
STALOQLDASTALDQAAQ
STQCLR
STQJHp·
OVERLAY "ARKER BLOCK READ.
RECORD LIBRAY POSITION
HITH OVERLAY DATA FHA.
OVERLAY/TEST NUMBERS.
2
UNBll) tG
OVFWA
1
UNBIU .Q
LASTOV
OVRBl.l-·-1
XFRBLK
LASTOV
OVRBL2-·-t
LOAORBD
LASTAD
AZERO
= LOAD OPERATION
CONSIDER OVRBLK AS XFRBLK.
SKIP ON COHPARE, OR
CONTINUE SEARCH.
~1
SAVE LAST AD. RESTORED INXFR8LK
POINTS TO TEST IN CONTROL
RELOCATION FACTOR
USED FOR RELOCATION IN RBDBLI<
UNBIASED OVRLAY FHA-TEST LENGTH.
BS
TSACTV
TSIAAD-l,Q
LASTAO
OVFWA
Q
BIASED FHA OF OVERLAY AREA.
B2
Q
B7
TSTFND
CLR
INQ
STASQZ
JHp·
STQJHp·
A
-1
IB2),Q
CLEAR LOAD AREA.
1
TSTCLR+l
B1
CKFLAGS
SAN
LOQLDASTAEttA
STQSTAJHP'"
XFRBLK-··l
CINBIU
B3
86
ILLRBD
S4
SAN'
LDAINA
STASET
STALDASAZ
LDQSTQ-
INDICATE
TEST
FOUND
REPORT 'ANY RECORD LOAD ERRORS.
IGNORE ERROR ON SEARCH OPERATION
PREPARE STOP INFOA3
BLOCK ID (FIRST NORD)
Q3 = LOAD ERROR CODE IF ANY.
(ERROR CODE)
=
B3
CKFLAGS-1
FLAG ERROR WITH CODE.
REPORT ERROR, TERHINATE LOAD.
LOADRBD-·-l
AZERO = LOAD OPERATION, XFRBLK
IS RBDLOAD TERHINATING BLOCK.
(PROJECTED TEST LWA +11
RESET TEST LOAD AREA FHA.
85
1·
LASTAD
A
B7
B3
CKTFLG··-l
B6
I
SET TERMINATE FLAG.
ERROR Fl AG SET.
PREPARE STOP INFO Al/Q3.
PAGE
C
F~
•
OVRBLK
DATEI 12/17/74
40
)
{
\I
,
I
'\
(\,
\.
/
40
(
\)
,
'l ()
co o o c) o o o
SMMOOO
1872
1873
1874
1875
1876
..
.--
PAGE
DolO EOBF
DolE· 5428
061F CDC2
0&20 0102
0621 lCOl
CKTFLG.
DATE I 12/17/74
41
B4
(SHERROR)
B7
LOADRBD-o-l
CLOCONT) •
REPORT ANY LOAD ERRORS.
CHECK TERHINATE FLAGCONTINUE LOAD IF CLEAR.
EXIT LOAD CONTROLLER .IF SET.
• • • • • "' . . . . . . . . . . . . . . . . . ~...,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .0 • • • • • • • • • •
1878
1879
1880
1881'
1882 .
....
•
•
•
•
LOAD CONTROL
USES Bl,B2,B3,B4,B5,B6,B7
ENTER WITH'Bl ::: TEST HUMBER FOR LOAD
ENTER WITH Bl
FFFF FOR LIB' LIST
..•
•
•
•
•
•••••••••••••••• ~ . . . . . . . . . ¥ •••• ~ . . . . . . . . . . . . . . . . . . . . . . . . . . . . "' . . . . . . . . . . . . .
.1883·
18S4
1885
1887
1888
1889
1890 .
LDQRTJLDASAl
JMP"
o o o o o o
062Z 000.0
0623 5409
0624 '08 .. 6
0625 60 .. A
1891 06l660BE
1892 0627 oOBF
189~
0628 60C1
1894 0629 60C2
1895 062A 587E
1896 0628 COBC
1897 ; 062C 0117
1898 0620 COBE
1899 062E 0105
1900 . 062F 09£8
1901 ' 0630 0132
1902 0631 COC2
19U3 0632 0101
1904 D633'18E5
1905 ,0634 C446
.1906 0635 BOOO
1907. 0036'2A48
190.8 . 0637 0115
1909 0638 C056
1910 0639 A074
191.1 DolA 0119
1912 D63B COBC
1913 063e 164A
191" 063DBBF8
19i5 063E D9AF
1916 06lF 084Z
1917. 06 .. 0 OFE3
1918 0641 0112
1919 0642 COBC
1920 . 0643 1AOl
1921 . 06.... 18DE
1922 0645 1807
60"411400
C
LOCONT
LOAORBD
LORBDt
LDRBDC!
LDRBD3
HEXCOR
=
NUH
RTJCLR
STASTASTASTASTARTJ·
LOASAN
lDASAZ
INA
SAM
LDASAl
JMp·
LDAEORALF
SAN
LOAANDSAN
NOTHCB
RBDTAB
LOAJHp· .
EOR·
INA
CLR
LLS
SAN
LOAJMp·
-lMp·
JHp·
$0
CTTYBlYJ
A,Q
LASTOV
83
B4
B6
B7
LOADER
Bl
LORB03-·-1
B3
LDRe03-·-1
-HTPE
LORBD2- tl-l
B7
LDRBDJ-.... l
CKFLAGS'
( IN9I1)
CSTOPXHSG BFR SHARES LOR BFR)
CLEAROVERLAY POSITION FLAG,
ERROR CODE FLAG,
ERROR STATUS FLAG,
ERROR COUNT FLAG,
LOAD TERHINATE FLAG.
LOAD OR SEARCH OPERATIONLOAD, CHECK ERROR FLAGAZERO E NO ERROR.
IF'CODE LOWER THAN MTPE, REPORT,
THEN ATTEMPT RECORD RELOAD.
IF HTPE OR HORE, GHECKTERHINATE
FLAG FOR SUCCESSFUL LOAD.
REPORT ERROR, RETRY OR ABORT.
CHECK Reo BLOCK TYPE.
0
1,9H
NOTHCB~9-1
SHHCNT'
BIT09
ReOTAB-9-1
B!
RBDBlK
HEXCOR
-$50
Q
SKIP IF NOT HEX CORRECTION BLOCK
OR 'CHECK SliM PARAMETER WORD.
SKIP TO IGNORE EDITED PROG HODS.
LOAD .H AS RBD DATE
3
RBDTAB-·-l
81
RBDTAB,Q
LOADRBO
NAMelK
IGNORE NON RBO-TYPE BLOCKS.
PAGE
41
c
'"
PAGE
SH"OOO
0646 18ftO
06,.7 1801
06,.8 18C2
,~925
1926 06.. 918C1
1927 06"A18C8
1928 06ft8 lSAI
i929 064C 0113
1930 0640 08ltZ
1931 06ltE OA12
1932, 06.. F 18CO
1933 0650 ,A081
193 .. 1)691 S4UA
1935 0652 OC06
1936 0653 9646
1937 06SIt 0101
1938 0655 18CO
1939 0656 C0ge
19"0 0657 A07F
19ft1 0658 0101
1941 0659 1886
1943 065A OC03
1944 065B £6"6
19lt5' 065C 40BB
1946 0650 COltS
19"7 065£ 0832
1948 065F OOFE
19,.9 0660 ,40CO
1950 0661 540C
1951 0662 0121
1952 ' 066;) 1813'
1953 0664 EOCO '
1954 11665 COlt6
1955 0666 sltoe
1956 0667 912E
195,7 0668 COlt7
1958 ' 0669 B087
1959 066A 0103
1960 0668 EOlt7
,1.961 066C coco'
1962 0660 SltOC
1963 066E 012C
1961t 066F COltS
1965 0670 013A
1966 0611 C07A
1967 0672 6045
1968 0673 E090
1969 0674 62A6
1970 0675 18EIf:
1971 0676 Eoec
1972 0677 COltS
1973 0678 60Cl '
1974 0679 OAI0
1975 067A 1895
1923
1924
60411"00
~)
n n
DATEI 12/17/7 ..
42
JHP·
JHp·
JHp·
JMp·
JMp·
JHP·
NAHBlK
SAN
ClR
ENA
JHP4
NAHCDHP ANDRTJENQ
EORSAZ
JHPLDR ' JHp·
lDAAMDSAZ
JH1'·
ENQ
CORCtfK
LOGSTQlDAAAQ
INQ
STQRTJSAP
JHP·
lDQlDARTJSAP'
LOAEORSAl
lDQLDARTJSAP
SKIPOK
lOASAH
LDASTA- '
lOQSTAJHp·
lDQNOGO
lDASTAENA
JHP"
RBOOlK
CKFLAGS
ILLBLK
ILLBLK
XFR8LK
OVRBLK
NAHCOHP-·"l
Q
HOXFR
ST97B3
HOOFF
CHEXASC)
16 '
UNBIU,Q
1
lOADRBO
Bl
HOFOO
CORCHK-4-1
LDRCHK
(Q3=BZSBlK. ZEROED IN NAH9lK)
(Q4=ENTBLK. CONSIDERED ILLEGAL)
(Q5-EXTBLK. CONSIDERED ILLEGAL)
AZERO :: TNO NAHBLKS IN TEST.
(CONSIDERATION FOR CARD INPUT) ,
IGNORE OVERLAY NUHBER
CONVERT 10 NUMBER TO ASCII CODE.
COHPARE WITH HAM BLOCK NUHBER
CHECK fOR OVERLAY SEARCH
HOT OVERLAY SEARCH,
OVERLAY SEARCH OPERATION
3
(INBI!) ~Q
BO
lASTAD
Q
-1
85
(RElPOS)
1
NOGa
B5
INBI1
(RELPOSJ
HOGO-·-1
lDlCORE
H7FFF
SKIPOK-·-J
LDLCORE
BS,
(RELPOS)
COREOK-4-1
LASTAD
COREOK-4-1
BIT1S
LASTAD
TSINIT
TSIAAD,Q
CORCHK
81
LASTAD
B6
NOHOCOR
ST87B3
SAVE TEST lENGTH.
TEST LOAD ADDRESS
PROJEC lEO TEST lWA+l TO Q
SAVE TEST LNA
FHA A LWA iJ
ANEG
YES
=
LWA TO Q
INPUT BUFFER FHA TO A
INBIl A UtA a
AHEG:: YES'XINBII A TEST A FHA
CONSIDER' A DUAL BANK 1700X
IS BANK a FULL il
AZERO = YES. CONTINUOUS MEMORY.
NO. ADDITIONAL CHECKSNECESSARY%
81<0 LWA :: OR A TEST LWA
APOS
YES.
IS FWA IN BKl a
AMEG :: YES.
NOT IN CONTIGUOUS HEH.
=
a
INSUFFICIENT LOAD CORE.
REPORT AND RETURN TO CALLER.
«ERROR CODE)
PAGE
C
(\
)
n
/\,
I
(~/
,
!~
\
/
42
() (j
()
\
J
(\
J
~
~
C) 0 0 0 C: C!
PAGE
SHHOOO
197&
1977 .
197.8
197.9
198.0·
1981 .
1982
1983·
198,.
1985
067S
067C
0&70
067E
067F
0680
0681
0&82
0683
0684
0&85
COREOI(
OCID
C6lt6
AOIlB
E~itS
40BD
0101
OCOO
1t814
EOBB
1800
fF7E
2008
2009
2010
2011
2012
.20iJ
201ft
201S
2016
.2017
2018
2019
2020
2021
202'2
2023
2024
2025
43
ENQ
LOA- .
ANDLDQSTQSAZ
·ENQ
STQ·
LOQJHP
)
(
C) c)
(OJ
~
C_) C) 0 0 C) C C'
OATEI 12/17/74
NEGATE RELOCATION IN RBO UNPACK
ROUTINEa CHECK LAST WORD OF
HAHBLK COHHENTS.
eYES/NO = ASCII 1/0 J
29
ClNBIU,Q
BI'TOO
LASTAO
B2
1
0
RBDOO,.
BO
TSTCLR
TEST LENGTH TOQ.
ClR TEST LOAD AREA
...•...•..•...........•...•.............•.................. ..••........
~
01987
1988
1989
1990
1991
1992
1994
1995
. 199'6
1997
1998
.1.999
2000
2001
200'2
2003
2004
2005
2006
2007
C)
0
l~)
•
..
...•
RBD UNPACK ROUTINE
USES BO.82 TRANSIENTLY
•
•
•
•
... ~ • • • • • • • • • • • • • • • • • • • 9 • • • • • • • • • • • ..., • • • • • • • • • • • ~ . • • • • • • • • • • • • • • • • • • • • • • • •
0686
0&87
0&88
0689
068A
060B
068C
.0101
RBDBLK
109B
OCDl .
40FF
40BB
C5,.6
E746
~068D FOltS
068£ 40eo
RBDOOl
060F OFC4
D69000e9
0691 Eoa8
RBD003·
06:92 E71t6
0693 OFCJ
0694 0122
0695 FOOO
RBOOO4
0696 0000
RBDOO5
.0697 44BO
0698 OFCD
0699 0121
069A 1896
RBD007
0698 OOBD
069C EOBB
069D ODFB
069E 0141
069F 18EF
06AO EOFF
RBD009
0&A1 ODOS
06A2 ItOFF
06A3 ·C546
06A4 OCOl
06A5 408B
60411400
C
SAZ
JHp·
ENQ
STQS1Q- .
LOAlDQADQSTQALS
RAOLDQlDQ-
ALS
SAP
ADQHUH
STQALS
SAP
JHp·
RAOLDQINQ
SQZ·
JHp·
LDQINQ
STQLOAENQ
STQ-
LOAD OR SEARCH OPERATIONIGNORE RECORD IF NOT LOAD.
1
LOADRBD
1
t
BO
(INBIU.I .
UNBI!) ,S
LASTAO
B2
It
BO
BO
CINBIU ,8
SET SUe-BLOCK TO 1
RELOCA TI Ott BYTE
ORIGIN ADDRESS
ADO RE LOCATION FAClOR
REseT CURRENT ADDRESS COUNTER
POSITION RELOCATION BYTE
INCREHENT SUB-BLOCK HORD COUNT
LOAD DATA WORD
3
RBDOOS-·"1
0
0
(S2)
13
RBDOO7-"-1
LDRB02 C=CKFLAGS)
Bl
BO
-$4
RBD009-·-1
RSDOOl
I
5
I
UNBIU .1
1
80
RELOCATION NEEDED- SKIP IF NO.
YES
«VALUE PLUGGED IN NAHBLK)
NO - STORE WORD IN PROGRAH
LAST WORD IN SLOCK
EXIT ReD PROCESSOR.
INCREASE CURRENT ADDRESS
LOAD SUB-SLaCK WORD COUNTER
IS THIS SUB-BLOCK COMPLETE
NO-GET NEXT DATA
INCREHENT SUB-BLOCK ORDINAL
LOAD RELOCATION BYTE
SET SUB-BLOCK COUNTER TO 1
PAGE
43
PAGE
SMMOOO
2026
RBD003
OraA6 10EA
.............•...... ....................................................
~
2028
,2029
•
•
•
,2030 '
2031 '
2033
2034
2035
06A7
oaoo
06AB D3FE
06AC 0001
D6AD C8F9
2045
2046
06AE OFC7.
06AF 8075
0680 'OBOO
DftA9 E057
06AA OA01,
2047'
0691 03FE
2048
2049
2050
2051
0682 02FE
, 2052
2068
HTLORl
0683 ,A06E
8684 6840
06B5 0101
06B6 OABO
0687
0688
2055 OGS9
2056 ' OGSA
2057 06BB
2058 06BC
2059 0690
2053
2054
HTUNIT
LOADER
06A8 0000
2038
2039
2040
,.20,.1
2042
2043
2044
0940
0800
03FE
E057
COBC
0123,
COSO
06BE 0111
OGSF 1820
OGGO GOOD
06Gl 'FF5F
206.3 06G2 60FF
2064 01iC30864'
2065 06C4' 80lt6
206,6 ,0605 70BS
206.7 , 06C6 OBOO
2068 06G7 02FE
2069 06C8 OFCE
2070 06C9 0121
2071 06CA 18FC
2072 06C8 C073
2073 06CC 03FE
2074 06eD 01AO
2075 OGeE 0500
2861
2062
60411"00
')
,
/
(~
f\
I
()
•
•
•
MAGNETIC TAPE LOADER
READ AND ASSEHBLE ONE RBD RECORD
USES BO~B2 TRANSIENTLY •. 83,alt,B6,B7 FOR INTRALOAD CONTROL COMHUNICATION.
•
-.•
•
•
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
20a,! '
,2037
DATEI '12/17/74
44
HTLOR3
HTLDR4
HTLDR5
"TLD~6
NUH
, NUH
LDQENA
OUT
INQ
LOAALS
ADDNOP
OUT
INP
ANDS1A· ,
SAZ
ENA
INA
NOP
OUT
LDQLDASAP
. LDASAN
o
o
EQUIP
1
-1
CL.EAR CONTROLLER
HTUtUT
7
BIllO
o.
-1
SELECT UNIT.
INPUT STATUS z.
"ASK. OFF 7~TRACK STATUS BIT.
1
AZERO
-1
8IT03
FLAG7T
s
9 TRACK.
5-14C
S4C
o
-1
EQUIP
81
3
B2
1·
HTLDRW
=N-160
STATCA
ADD- '
SPANOP
INP
ALS
SAP
I
LOAOUT
SOV
lIN
HT EQUIP ADDRESS
1
JHp·
LOA
JHp·
(USED IN EDln :
H1 EQUIP ADDRESS
LIB LIST a
ANEG = YES
1ST PASS LIB LIST -REWIND LIB
OVERFLOW
A
INeIl
aD
o
-1
14
HTLDR6-··1
HTLOR4
BIT08
CHECK.
INPUT STATUS 1.
•••
HAlT NOT BUSY'
START READ HOTION.
-1
o
o
LOCKOUT INTERRUPTS DURING READ
PAGE
C
(\
(j
44
~
c)
0
0
0
0
0
PAGE
S"HOOO .
2076
2077 .
207a
2079
2080
2081
2082
2083
20a4
.2085
208&
2087.
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
.210.0
2101
2102
2103
2104
2105
2106
2101
2108
2109
l110.
. 2111
2112
2l1.a
2114 .
2115
2116
2117 '
2118
21t9
2120 .
2121
2122
212.3 :
212,.
2125
2126
2127
G6CF
0600
0601
0602
0603
0601t
0605
0606
0607
0608
0609
06DI
060B
06DC
0600
060E
060F
06EO
06El
06£2
OOFE
0844 . HTlOR7
'020F
7588
COFF
0901.
01,!8
DaDo
0400
E057
02FE
OFCE
0121
t8FB
.182A
60FF
18FO
OBOO
0001
02FE
HTL07A
HTLD7B
HTlDR8
D6E~6806
06E4 AOoF
06ES 0111
06£6 18E8
06E7 0400
06E8 COOO .
06E9 0000
06EA OFC4
06EB 0123
06EC C075
06EO' 03FE
06EE 1801
06EF OFC6
06FO 012E
06Fl ·DDCl
D6f'2 C8F6
06F3 60BF
06F4 OA17
06F5 60BE
06F6 COCt
06F7 09F7
D6F80104
06F9 cooo
06FA 0180
06FB OlFC
06FC 18C3
06FD OA17
06FE 60C2
D6FF CO 00
0700 0000'
0701 0116
0702 E057'
0703 0001
60411400
C
INQ
CLR
INP
SPAlOAINA
SAN
NOP
EIN
LOQINP
AlS
SAP
JHp·
JHP·
STAJHP·
HTlDR9
NOP
INQ
INP
S1A· .'
ANOSAN
JHp·
HTLD11
SAVIT
HYLDRli
. HTLDPE
EIN
LOA0
ALS
SAP
lDAOUT
JHP·
ALS
SAP
HTes
HTL014
HTL015
FlAG7T
0
0
0
RAOLOA·
STAEN4
ST4LDAINA
SAl
LDA
OUT
JHp·
ENA
STALOANUH
SAN
LOQINQ
(
)
() 0
() 0
0
0
0
DATE. 121'171'74
45
0
-1
A
. HTlDR9-·-1
(eo). I
I
1
HTlDR8"'·-1
0
EQUIP
-1
14
HTl07a-·-l
HTL01A
HTLD16
I
HTLDR7
SET 0=0.
READ DATA.
SICIP IF BUFFER· NOT EXCEEDED .
ENABLE INTERRUPTS, READ ABORTED
WAIT NOT· BUSY
ABORT LOAD IF BUFFER EXCEEDED
READ NEXT FRAHE
0
1
-1
SAvtT
BIT04 .
HTlDl1···1
HTlDR7-1
0
D
,.
STATUS INPUT
SAVE STATUS
SKIP IF ·EOF
NO
ENABLE INTERRUPTS, READ COMPLETE
·0
HTLOPE-"'-l
81110
-1
MTLDR3
6
HTlD15-·-1
. B6
SAVIT'
B4
HTPE
B3
B6
-8
HTL014-·-1 .
=NS180
HTSS-·-l
HTLDR3
HTPE
B7
0
0
HTL013-·-1
EQ UIP
CHECK FOR FILEHARK
SKIP IF NO FILE HARK.
REWIND TO LOAD POINT
CHECK FOR ALARH
SKIP = LOAD OK.
PARITY ERROR, BUHPERROR COUNT •
GET STATUS BACK
ERROR STOP A3=LAST FAULTY STATUS
(ERROR CODE)
AZER0=7 RETRIES. ABORT RECOVERY.
BACKSPACE ONE RECORD.
RETRY.
(E RROR CODE I
SET TE~INATE FLAG.
(NON-ZERO = 7 TRACK) .
PACK DATA BEFORE EXIT IF 7-TRACK
1
PAGE
45
0
0
C'
PAGE
S""OOO
0704 OAOI
0705 OBOO
070r. OJFE
0707 lCAO
0708 C046
0709 60B8
010A !tUFF
21~"
2135 070B 093C
2136 070e 60BO
.2137 0700 081t2
2138 070E CltBB
2139 07DF OFC6
2140 0710 DOBB
2141 0711 BItBB
21 .. 2 07120FC4
21ftl 0713 OFE2
214'+ 0711t OOSB
21 ..S 0715 BltBB
2146 0716 OFE6
21;'1 ' 0711 DOBe
2148 ·0718 BItBe
21 .. ' 0719 OFE6
2150 . 071A OOBS
2151 071B Blt8B
2152. 071C OPE2
2153· 0710·4ltFF
2154. 071E 081t2
2155 071F. DOFF
2156 0720 OFE"
2157 0721·00Be
2158 0722 SlteB
2159 0123 OFE6
2160 . 0724'0099
2161 . 0725 BItBB
2162 0726 OFE6
2163 . 0727 00 Be
2164 . 0728 B489
2165 0729 4ltFF
2166 072A DOFF
2167 072B.i4FF
2168 072C DOFF
2169 0720 COFF
2170 072E BOBO
2171 072F 0102
2172 0730 0098
2173 0731 1808
2174 0732 1804
2175 0733 0014
2128
2129
2130
2131
2132
21a3
2177
0747 8DDA
60411ltOO
( \/
\
n
f"J
/
HTLD16
HTL013
HTL017
ENA
NOP
OUT
JHp· .
LOA,STASTAINA
STACLR
LDAALS
RAoEORALS
LLS
RAOEORLLS
RAOEORLLS
RAO-
EOR-
HTLD18
TypeTL
LLS
STQCLR
RAOLLS
RAO- .
EORLLS
RAOEORLLS
RAOEORSTQRAOSTARAOLDAEORSAZ
RAOJHP"
JHP"
ess
NUH
DATEI 12/17/74
46
1
0
-1
(LOADER)
INBI1
BO
CBUFFE R FHA)
60
a2
CHAXIMUH 16-BIT WORD COUNT
IN RBD BLOCK)
t
Q
( BO)
6
BO
( BOI
4
2
BO
eB0)
6
eo
(eo)
6
BO
FRAME 1+8X.
UPDATE FRAME ADDRESS.
FRAME 2+8)(.
FRAME 3+8X.
FRAHE 4+8X.
CaD)
FRAME 5+8X.
2
(I)
HORO 1+3)(.
Q
I
It
BO
C801
6
eo
(BO)
6·
80
CBO)
tIl
I
nt
I
I
e2
HTLD18-"-1
80
HlLD17
HTL016
(20)
UPDATE WORD ADDRESS.
FRAHE 6+8)(.
FRAME 7+8X.
FRAHE 8+8)( •
HORO 2+3)(.
WORD 3+3)(.
(HAXIHUM WORD ADDRESS)
PACKING CQHPLETENO.
YES. EXIT LOADER
ROOH FOR LONGEST LOADER
$800A
PAGE
C
() ()
()
'.
/
()
\
/
n n
46
n n
n
o o o o o o o o o c\
o o o o o o o o c
SHHOOO
2178
PAGE
. ALF .
0748 .,255
DATEI 12/17111t
"7.
X,ButLO TEST LISTX
01.. 9 .. 94C
074A 4.,20
0748 54lt5
07ltC5354
074D 20 .. e
07.. E 4953
07ltF 5 .. 20
2179 0750 a'ooA
2180. 0751 2050
0752 '5245
0753 20lt5
0754 58lt5
0755 4355
0756 54'9
0757 ItF4E
0758 2043
0759 ltF52
07SA 5245
PREEXS
NUH
Alf
!SDDA
Z, PRE-EXECUTION CORRECTION STOP Z
0758 1t3SJt
075C 494F
0750 4E20
075E 5354,
075F ltF50
0760 2020
2181 . 0761 80DA
2182
2183
218 ..
2185
2186
2187 .
2188
2189
2190 0762 0000
2191 0163 0842
2192 076 .. 0700
2193 . 0765 ODOl
2194 01660141
2199 0767 18FC
2196 0768 01AD
2197 0169 E044
2198 07GA C036
2199 07GB OOFE
2200 076C 0600
2201 0760 0830
2202' 076E 01A1
22Da 076F 18FB
220.. 0770 OCOO
2205 0711 081 ..
2206 0772 E201
2201' 0773 0700
2208 0774 0901
601t11"00
C
PREEXD
NUH
S800A
••
••••• •••••••••••
........,o••••••• •• ••• ••••••• ••••••••••••••••..
..
~
~
~
•
•
•
•
•
~
~.o
~
....
~
PROTECT PROCESSOR PREPARATION
SET HONITOR AND AUTOLOAD ADDRESSES
CLEAR MONITOR ENTRY',POIN1S
CLEAR COHHON LOM CORE
..•
............................................................."'...............................•
SPPOOO
SPB1.
SPB2
SPB4
SPB5
SPB6
SPB7
NUH
CLR
CPB
INQ
SQZ
JHP·
SOV
LOQLOAINQ
SPB
AAQ
SOV
JHP"
ENG
TRQ
LDQCPS
INA
a
Q
0
1
SPB4-·-1
SPBZ
0
LASTVALUE
AUTOPP
-1
0
0
SPB6-·-1
SPB5
CONTROL-1
A
1,Q
0
1
PTC2
KILL TKE OVERFLOH
GET THE 8801E CONSTANT
PROTECT
AUTOLOAD
AND
MONITOR
PTC2
PTC2
PTC2
AREA
A, Q = ENTRY POINT ADDRESS-i.
ENTRY POINT TO Q.
UNPROTECT ENTRY POINT
INCREHENT ENTRY POINT ADDRESS.
PAGE
47
PAGE
SHHOOO
2209
2210'
2211
2212
2213
2214
2215
2216
2217
2218
2219
222,0
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
0775
0776
0777
0778
0779
077A
0778
077C
0770
077E
077F
0780
0822
0909
0101
18Fa
E030
C088
0700
0001
0830
01A1
18FB
lCE1
SPB8
SPB9
0
A,Q = tEXT ENTRY POINT ADDRESS.
EXIT
PTC2
CLEAR COHHON COHHUNICATION AREA
1
0
SPBEND-·-1
SPB9
CSPPOOO)
..
••
•
' CHECK FOR TTY INPUT SELECTION
•
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
IHTTY
0781 0000
0782 5800
0783 FE26
0781t 680F
0785 48DF
0786 OA40
0787 A800
0788 FaCD
0789 0114
078A C809
078B E809
078COOOO
0780 ·tCF3
078E E091
078F C2AF
071)0 'A073
0791 0106
0192 18F7
0793 0001
079.. 0001
0795 0002
07960003
. 0797 .OD04
INTTYl
INTTY2
TTEHP
ENoMONl
HUH
RTJ
0
TTBUSY
WAIT MESSAGE END BEFORE STOP.
STA·
STQ·
ENA
AND
TTEHP
TTEHP+1
S40
SHHCNT
(BIT06
SAN
LOA'"
LOQ·
SLS
JHp·
LoQLDAANOSAZ
JHP·
HUH
HUH
NUH
NUM
HUM
INTTY2-·-1
TTEMP
TTEHP+1.
0
UNTTY)
TSACTV
TSTJP-1,Q
BIT08
TELAQ-·-l
INlTYl
1
=FOR
SMM PARAHETER BIT
TTY INPUT SELECTION)
SKIP IF TTY INPUT SELECTED
REGISTER DISPLAY/ENTRY.
EXIT KITH NEW REGS.
GET ACTIVE STOP-JUMP WORD
LOOK FOR' OHIT TYPEOUTS
SKIP IF NOT SET TO TTY PACKAGE
USE REGISTER DISPLAYS
1
2
3
4
•••••••••••• q ••••••••••••••••••••••• ~••••••••••••••• ~ • •••••••••••••••••
•
•
•
....
TELETYPE INPUT ROUTINE
EXPECTS TO BE ENTERED WITH :A+Q
CONTAINING PARAMETERS TO BE CHANGED
UPON EXIT A + Q WILL HAVE OPERATORS
REACTION TO PARAMETERS OFFERED'
INPUT HAY BE IN
HEX- INDICATED BY NO PREFEX
DEC- PREFEXEo BY N, WITH ANY COMBINATION OF 0-9
8IT- PREFEXEO BY S-IE S.1,12915 ETC
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
2253
2254
2255
2256
2257
2258
2259
60411400
n
Q
-SELIH-1
SPB8-·-1
SP87
XCOHUS
H7FOO
..............................................,...•.....................
SPBEND
2251
2252
n
TRA
INA
SAZ
JHp·
LOQlDAcpa
INQ
AAQ
SOV
. JHp·
JHP· •
OATEI 12/17/74
48'
/\
j
PAGE
C
(j
'f)
n
(j
48
n
(j
(------
\
)
')
c)
0
0
0
0
0
PAGE
SHHOOO
:!260 ' 0798 COFF
2261 07Q9 680B
2262 079A 5800
079B OOEA
2263 079C 0844
ZZ6At. 0790 6800
079E 011F
2265 079F 1827
2266 OlAO .5409
2267 07~1'08ltlt
2268 07A2 SiteS
,2269 01A3 00:00
2270 07AIt 0000 '
2271 07A5 60FF
22.72 07A6 C800
07A1 0116
227'3· 07A8 0102
2V.4 07A9 1800
07AA OOFB
2275 07AB EOE8
. Z27~ 01AC C8E6
2277 07AD 1C03
2278 07AE 0844
2279. 07AF 60FF
228'0 07BO 5802
2281 07B11811='
2282 0782 0001
2283 07B3 EOOO
07B4 0091
2284 01B5 COl ...
2285 07B6 5lt09
2286 07B7 oaFE
2287 07B8 Q2FE
2288 0789 A06E
2289 07BA0101
2290 07BB 18FC .
2291 07BCODFE
2292 . 01BD 0800'
2293 07aE 02FE
2294· 07BF Anoo
07CO 007F
2295 07Cl 6805
2296 07C2 09AIt
Z297 01C3 0122
2298 D7C4 095B
2299 07CS 1CEe
2300 07C6 5409
2301 . 07C7 0844
2302 07C8 6800
07C9 OOF,.
2303 07CA COOO
07CB 0801t
2304 07ce OC02
60411400
0 0
0
C
TELAQ
EXITEX
EXTEXl
POINT
EXREAD
READ
STAT
HES1
0 0 0
0 0
0 0 0 C'
0
DATEI 12/17/74
49
LDA-
STA- ,
RTJ
I
EXlTEX+4
HES2
ClR
STA
A
SETPFG
. JHp·
RTJCLR
RTJLOANUH
STALOA
0
I
SETPFG
SAZ
JHP
SETPGO
LDQ·
LOA·
JHP9.
CLR
STA.RTJ- .
'JHP· '
NUH
LDQ
c_ ~
HES1
CTTYBZYJ
A
(TrOTTI)
D
LF/CR
TO TTY
(ENTRY I.
RESTORE ENTRY I
2'
TTEMP+l
TTeHP
«INTTYJ
.A
NEW Q VALUE
SET POINTER TO A
I
READ
ANYL
1
=N!91
81TD9
LOARTJ- (TTYBlY)
OUT
-1
-1
IMP
. ANDBIT03
SAl
1
JHp·
STAT
INQ
-1
NOP
INP
-1
AND
=NS7F
STA·
INA
SAP
INA
JHP*
RTJCLR
STA
TTEHP+4
-S5B
HES1
$5B
'READ)
(TTYBlY.
A
LOA
=XBELL·
ENQ
2
GET FIRST .CHAR
TTY READ CHAR
SELECT READ HODE
WAIT FOR NOT .BUST
STATUS INP
BUSY A
YES
NO,
INP DATA
CLEAR POSSIBLE PARITY BIT
SAVE DATA
CK FOR RUBOUT CHARACTER
YES- SO SKIP
EXIT REWD
SETPFG'
PAGE
49.
PAGE
SHHOOO
07CO
07CE
2306 07CF
2307. 0700
2308 0701
2309 0702
2310 0703
2311 0704
2312 0705
2313 . 0706
231ft • 0707
2315, 0708
2316 ' 0709
2317. 07DA
2318 070B
2319 070C
2320 0700
2321 070E
2322 070F
2323 D7EO
07E1
2324 07£2
2325 . 07E3
2326 07E4
2327 07E5
2305
5800
FD47
180E
09f"2 . ANYL·
.0111
18CO
ANYLI
0900
0112
DOFF
1809
ANVL2
09E7
0122
C8BO
lazc'
D9F8
0111
1845
09FO
0112
1800
OOCO
09FC
0101
181'.
1869
2329 07E6 OOB't
2330 07E7 09CF
2331. 07E8 01:32
2332 07E9 0930
2333 07EA lCFB
2334 07EB 0904
2335 07EC 0112
2336 07EO 09FB
2337 07EE !8FA
2338 07EF D8F6
2339 01FO 'O
DP12
OP02
B4
DP12-·-1
DPALARH
B3
( DP1LDR)
3341 0609 0000
3342 O&OA2050
3343 · 060B 0000
DPNAHL
H2050
DPADR
NUH
HUH
NUH
$2050
0
06DC
0600
06DE
06DF
06EO
OaEl
06£2
06E3
DPRDHR
HUH
lOQINQ
NOP
INP
STA·
LDAlDQAAQ
INA
STAINQ
STQLDQINQ
TRQ
ANDSAl
3336
3337
3338
3339
3345
3346
3341.
334,8
3349
3350.
3351
3352
3353
3354
3355
3356
3357
3358
,3359
3360
3361
3362
3363
3364
3365
06E4
06E5
06E6
06E7
06E8
06£9
OGEA
06EB
O&EC
06ED
06E£
06EF
Of»FO
OSFl
· 06F2
06F3
· 06',.
Of»FS
; 06F6
06F7
06F8
DP11
DODO.
EOS7
0001
DODO
·OZFE
68F9
C046
EOBB
0832
09FE
60BB
0001
....BB
E051
CDDOVLY
DP08
INQX
0003
33.72
3.373
3114 06F9
337, O&FA
3376 06F9
3377 ; 86FC
0814
A080
0102
FOOD
17FC
COBB
'.03FE
'S80B
1CE8
'E077
08B2
0143
D8£3
5810
18EF
60aF
·oeOl
lEDF
DoFO
06fE
06FF
0700
0701
0702
E057
02FE
OFCE
'0121
l8FB
33~6
3367
336S
3369
3310
3311
3'79
33
__ 0
3381
3382.
3383
3384
DP09
OPERR
HUH
LOAOUT
RTJ·
JHP*
LOQLAQ
SQZ
RAO·
RTJ¥
.IHP·
STA~
ENQ
. JKP·.
CKDPAL
0000
&0411400
. AOQ-
' ADQX
NUH
LDQINP
ALS
SAP
JHp·
C
J
:1)
\.J
0 0 0 C)
('j
.(\,
"-.)
'-~.;
DATEI 12/17/74
75
ST,,·
LOASAZ
ENA
STAJHp·
3334
333S
(
ERROR FLAG.
(ERROR CODE)
FLAG ERROR TO LOR CALLER.
EXIT LOADER.
0
0
EQUIP
1
DISK PACK READ/WRITE ROUTINE.
0
-1
OPADR
IN8Il
aD
INPUT ADDRESS STATUS (FOR RETRY)
PREPARE BUFFER ADDRESS
Q
-1
BO
1
(BO) .
EQUIP
3
A
HFOOO
AD QX-·
0
STORE BUFFER LHA+1 IN FWA-1.
$17FC
BO
-1
CKOPAL·
(DPRDWR)
BIT12
Q
DPERR-·-l
DPAOR
LDAOR
OP08
B4
1
(DPRDHRt,Q
0
EQUIP
-1
lit
1
CKDPAL+1
DATA.
CHECKALARH STATUS.
READ
RETURN HERE FROM
STATUS IF ALAR" SET.
CHECK DEfECTIVE TRACK FLAG.
IF SET,INCREASE TO NEXT SECTOR
ERROR
~AG
= LAST
FAILING STATUS
EXIT TO CALLERS ERROR ROUTINE.
INPUT STATUS.
CHECK EUSYHAlT NOT BUSY.
. PAGE
75
C~)
(\
,---j
(~'\
SHHOOO
3385
3386
3387
3388.
338g·
07030FCC
0704 0122
0705 D8F7
0706 OFC6
0707 lCFS
3391
3392 .
3393·
3394
3395
3396
3391
3398
3399
3400. ,
3401
3."02
0108 0000
0709 C8Dl
070A ,E057
07·08 0001
Oloe 0800
0700 03FE
070E 58EE
OlOF lCF8
0110 OFC,.
01110121
0712 D8C8
071318F5
60 ..11400
()
PAGE
NODPAl
LOADR
LOAOR1
ALS
SAP
RAO·
ALS
JHP·
HUH
LOA·
LDQIHQ
NOP
OUT
RTJ"
..IMP·
ALS
SAP
RAO·
JHp·
DATEI 12/17/74
76
12
NODPAl-"-1
CKDPAL
6
CCKDPAl}
CHECK ALARtfRETURN TOP+2 ON ALARH.
RESTORE STATUS HORD.
0
LOAD ADDRESS ROUTINE.
OPADR
EQltP
1
0
-1
CKDPAL·
(LDAOR)
It
LDADR1-"-1
DPADR
LDADR+1
POSITION FILE.
CHECK ~ARH STATUS.
'NO ALARH'
RECEIVED AlARH.
CHECK FOR ILLEGAL ADDRESS.
INCREASE ADDRESS IF ILLEGAL,
REPEAT FUNCTION.
PAGE
C
() ()
:~
)
('
\.
)
76
n
(~
\
J
...--....\
'--~
C) 0
n 0 n
"--
(~)
"-f
/
PAGE
SHHOOO
•••••••••••••••••••
•
ORG
06'C2 DOCl
06C3 COCl
' 06Clt 09CD
D6Cs 010E
34lt2 06C6 1829
3,. .. 3 06e7, C"6
3444 06C8 B812
3 ..45 06C9 0113
34.. 6 D6CA E046
34 ... 7, 06C8 C201
3 .... 8' 06CC '6800 '
3449,' 06CO OC3CJ
3450 ' 06CE C6lt6
3451' 06CF 0111t
3452 ' 0600 CODO
3,.93 ' 0601 OA10
3 ..54 0602'60C6
3455, 06DJ 68E4
3456 060" COBF
3457 0&05 0'102
CDPRD£R
60411 .. 00
C
COP02
COPUlA
COP03
COPO,.
CDP10
CoPl0A
COP11
NUH
NUH
lDQlOAALS
AOOOUT
LOASAZ
EORSAZ
LOAClR
SAZ
STQ·
JHP·
stA·
ENA
STA·
RTJLOAVFo
STA·
ENQ
STQRTJ'"
JHP·
EQU
RAoLOAINA
SAZ
J"p.
LDAEOR·
SAN
LOQ' lOASTA·
£NQ
LOASAN
LDAENA
STASTA·
LOASAZ
' . .,,1
0 0 0 C)
(j
OATEI 12/17/74
COO DISK DRIVER OVERLAY
•
COUN1T
COll0R
COPOl
L~
77
3405
340&
3407 '
06A7
3"08
3409 OGA7 0000
Jctl0 06A8 0005
3411 06A9 EOS7
3412 06AA C8Fe
34i3 ' OGAB OFC9
34!4 OGAC 8073
3415 e6AD 03F8
3416 06AE coac
3417 06AF 0107
3lt18 O&BO B01C
3419 06Bl 0106
3.. 20 06B2 C827
3421 0693 08.. 2
3422 OGBIt 0103
3423 ; 06B5 .. 824
342 .. 06B6 1803
3425 06B7 6822
3426 06B8 OA10
3.. 2.7 06B9 6822
3~28" 06B~ sa.. c
3.. 29 0&99 cooo
3430 ' O&BC 180&
3431 _ 0680 68FA
3432 068E OC39
3433; 068F 40BB
3434 D6CO 581C
3"35 06Cl 1806
3436
0006
3'+38
3439
3440"
34lf1
CJ
(~)
0
(,
•••••••••••••••••••••••
"TUNIT
0
5
EQUIP
COUNtT
9
BIT08
COP01-- ;
B1
CDP02-·-2
HFFFF
COP02- 4 -1
CDPNAH
Q
COP02-·-1
CDPNAH
COF02A
CDPNAM
$10
COPAOR
COLOAOR
CARTRIDGE DISK lOADER TYPE
SELECT UNIT
SKIP :: TEST LOADING (NOT SEARCH)
ALLOW LISTING OF PRODR. HOD.
SKIP IF' PREVIOUS READ NOT NAHBLK
SPEED UP SEARCH
(BYPASS 'QUICK LOOK BINARY)
REWIND FILE TO SHH
ON FIRST SUBROUTINE ENTRY
D
N8/S189 X8/CJHPOF
CDPD2 '
57
80
CDRDWR
COP1D
CJHPDFCCOP03-CoP02)
06
B6
-50
CDP11---1
0009
(INBIU
CHl050
COP1DA··-l
INBIl
1.Q
COPNAN
57
CINeIU ,Q
CDP11-·-1
D
110
RWOFlG
COP02
B..
CDP12-·-1
HOOIFYCOP02 INSTRUCTION
FOR SUBSEQUENT PASSES
(BUFFER TO INCLUDE EOF HARKER)
READ DATA
OPERATION OK. eNO ALAR")
RETURN HERE ON ALARH
CERROR COUNT)
AZERO = ABORT
RETRY -OPERATION 50 TIHES
CHECK BLOCk TYPE
SKIP IF NOT NAHBLK
SAVE NEXT NAMBlK SECADoR
CHAXIHUM Reo RECORD lENGTH)
CHECK (LWA.l) FOR
SHH EDIT END OF FILE FLAG
RESET RENI NO
ON NEXT SUBROUTINE ENTRY
SET DISK EOF FLAG
ERROR FLAG
PAGE
77
!
,..-'"
1
"--)
C'
(\
'----------
~-
(
\
PAGE
SHHOOO
"
,
....
31t58. 0606 OA1CJ
3459 0607 609E
3460. 0608 lCCF
COP12
ENA
STAJHP· .
3462 0609· 0000
3lt63· U60A 2050
3464 06DS 0000
COPNAH
CH2050
COPAIiR
NUH
NUH
NUH
CORONR
3"6:6 ~ 06DC OQOO
a461 0600 E851
346·' . 06DE 0001
3469 060F· 0900
3470 06EO·02FE
3471 06£1 68F9
3472 06E2 OOFD
3473 06E3 COBa·
3"74 06E4 0901
3475· 06E503F£
3476 06E6 E057 ·C008
34rt·,06E1 0003·
3478 06E8 CO.,6
3479 06E9 03FE
3 .. 80: 06EA·5808
3lt81 06E81CFa
CDERR .
3482 06£C 60BF
3,.,3 06ED aeOl
3484 06£E lEED
C009
3"85 06EF 5817
3486 06FOOOF£
3487 06F1 18Fl
06F2 0000
06F3 E057
. 3"'~ 06F4 02FE
3492 06'5 6000
3"9.3 06F6 0000 .
06F7 OFCE
349.1t
06F8 0121
31t95
3 .. 96 06F9 18F9
3497. 06FAO'CC
3498 06F8 0129
349.9 . 06FC 08F5
~500 . 06F·O OOFE
3501. 06FE 02FE
3502 O~FF 0001
350.3· 0700 .02f'E
350,. . 0701 OFCE·
3S05, 0102· 0121 .
3506· . 0703 18FC
3507 0701t .CBFl
3508 0705 1CEe
3lt89 :
CI(CDAL
3498
60"11"00
n
COSTAT
COO9A
COOge
NOCDAl
NUH
lOa-
INQ
NOP
INP
5TA·
INQ
LOAINA
OUT·
LOQINQ·
LOAOUT
RTJ·
OATEI 12/17114
78
COPALH
B3
(eD1l0R)
o.
$2050
0
0
EQUIP
1
0
-1
COPAOR
-2
90
1
-1
EQUIP
3
INSIt
CART. DISK READ/WRITE ROUTINE
INPUT ADDRESS STATUS (FOR RETRY)
BUFFER LENGTH FOR 1739
LOAD BUFFER lENG.TH
-1
CICCOAL
JH~:
(CIRDWIU
STAENQ
JHp· .
RTJ·
INQ
JHp·
B4
1
NUH
LDQINP
STANUH
AlS
SAP
JHp· .
ALS
SAP
RAO·
INQ
IMP
INQ
tNP
AlS
SAP
JHp·
LOA·
JHp·
(ERROR CODE)
FLAG ERROR TO.LOR CALLER
EX1T
(CORONR) ,Q
COLDAOR
-1
CDoa-3
RECOVERY
0
EQUIP
-1
0
0
14
1
CKCDAL+l
12
NOCOAl-··!
CICCDAl
-1
-1
1
-1
RESTORE ORIVE ON ·ALARH
·14
"COO9B-~-1
WAIT BUSY TO DROP
COO9A
COSTAT
(CKCDAlJ
PAGE
C
,,"
"
78
(----\
o
o C)
()
o
C) n
PAGE
3510
3511
3512
3513
3514
3515.
3516
3517
3518
3519
3520
3521
3522
3523
352,.
3525
3526
3527
3528 .
3529
3530
3531.
3532
3533 .
3534
3535
3536
3537'
3538
3539
3540 .
35 ..1'
3542
3543
3544 .
35,.5 .
3546
35lt1
35lt,S ,
35 ..9
3550.
3551
3552 .
3553
355,.
3555
3556
3557
3558
070ft 0000
0707 E057
0708 0001'
0709 DADO
070A 03FE
070B OOFE
070C 02FE
0700 A06F
070E 0111
07DF 18FC
0710 ODOIt
071102FE
0712 A070
07136000
0714 0000
0715 COOO
0716 180F
0717 68Fl .
071.8 C8FB
OOOF
0719 0101t
871AC800 0718 AoOO
071C FFOF
0710 181C
071E DOFC
071F0800
0720 02FE .
0121 A082
0722 6000
0723 0000.
0724 C8B6.
0725 OC1F
07260882
0727 00£2
0728 0172
0729.8072
072A OCE2
072B 0010
072C AODO
072DFF.80
072£ 087lt
072F EOSl
0730 0882
0731'A082
0732 .. 000 .
0733 0000
073 .. 98£E .
0735 0122
0736 0864
0737 0920
60411400
C
COLOAOR
LDlOR3
F3J
F33GO
CDCUAO
COLDA2
NUH
lOQINQ
ENA
OUT
INQ
INP
ANOSAN
JHP4\
INQ
INP
ANDSTA0
LOA"
VFD
STA·
LOA·
EQU
SAZ
LOA"
ANO
JHP· .
INQ
NOP
IMP
ANDSTANU"
LOA"
ENQ
LAQ
INQ
SQM
ADOENQ
INQ
AND
EAQ
CDHWHS
. LDQLAQ
ANDSTQNUH
SUB·
SAP
TCA
INA
c
J
r-,
\_)
o
(~
,
./
DATE. 12/17/74
79
0
EQUIP
1
0
-1
-1
-1
eITOIt
1
LDAOR3
4
-i.
HOOOF'
0
0
D
HAlT feR EOP
FILE ADDRESS STATUS
GET ACTUAL FILE ADDRESS
CHECK FOR SEEK COMPLETE BITS •••
ZERO FOR 1739
N8/S18, X8/CJHP
CDLDAOR+3
F33
CJHP(F3JGO-CDLDADR-3)
SKIP IF 1739
It
CDFAOR
HUST BE A 1733-2
=NFFOF
COEXT
-3
0
-1
HF·FOO
0
0
COPAOR
StF
•••
.....
..•..
GET CYLINOER POSITION
Q
-$10
.' CO LDA 2-·-1
BIT07
-S1o
SlD
=NSFF80
IS SECTOR ADDRESS ILLEGAL C1739J
YES INCREMENT CYLINDER/HEAD
ZERO SECTOR ADDRESS
A
. HOOFF
Q'
HFFOO
0
••••
•••
....•••
0
CDCUAD
2
A
$20
SKIP IF FORWARD SEEK
COHPLEMENT CYL ADDRESS
SET BIT 5 REVERSE SEEK
PAGE
79
PAGE
SHHOOO
3559
3560
3561
3562
'3563
3564
3565
3566
3561
3568
3570
3571
3572
3573
3574
3575
0738
0739
o73A
0738
073C
0730
073E
073F
0740
0741
B8FA
E057.
OOOt
03FE
58B5
10C8
OFC5
0121
089A
18C5
COA01
06A8
•
•
•
D6ft8 0006
0619 18FF
064S
3577
3578·
3579
3580
3581 ' 06A8 0007
'3582 06A9 18FF
3584
3'585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3611 ...
•
•
•
0647
06A8
06A9
06'AA
06A8
06AC
06AD
06AE
06AF
0680
0681
0682
DODD
0008
C057
A083
0908
0822
C8F9
09FB
0136
C8F6
608F
OA17
60BE
6DC2
lCF2
0904
OFC8
8000
l .... Z
03FE
60411"00
()
"
EOR·
LOQINQ
OUT
RTJ·
JHp·
ALS
SAP
RAO·
JHp·
CONHHS
EQUIP
1
-1
CKCDAL
(CDLOADR)
5
ORG
HTUNIT+1
j
(J
.'
HT8UN
"T8LOR
•••
•••
•••
CHECK FOR AORS ERROR
COPADR
COLOADR+l
INSERT LOADER TYPE 6 HERE
HUH
NUH
6
SleFF
ORG
HTUNtT+l
INSERT LOADER TYPE 7 HERE
7'
NUH
HUH
S1eFF
......
~
ORG
HTUNIT
0
AOC
LOAANDINA
TRA
LOA· '
INA;
0
MT8
EQUIP
HFFFO '
8
SAM
HT8LOX
PUT IN THE HEAD AND SECT·
COA01-·~1
......................
06A7
06B3
0684
0685
06B6
D6B7
0688
06B9
3605 068A
3606 ,068B 6813
3607 068C 00F7
n
COEXT
OATEI 12/17/7 .. ·
80
LOA·
STAENA
STASTAJ"p.
INA
AlS
8000 HAGTAPE LOADER OVERLAY
•••••••••• ..JU
JU
UNIT NUHBER
ENTRYCOEVICE TYPE)
GET ,HES
HASKDIRECTOR BITS
JU
Q
....
-MTS
..HT8l0X-·-l
HT8UN
B..
HTPE
B3
B7
'HT8l0R'
..
8
GET UNIT NR
HIHUS IS LEGSL (0-3)
TO ERRORB-BOX
ERROR CODE'ILLEGAl ,UNIT)
TERMINATE FLAG
EXIT ORI VER
ADD
=N$1 .... 2
UNIT o HODE 0
OUT
STA·
INQ
-1
SELECT UNIT
SAVE SELECT CODE
HT8ll
-8
PAGE
C
i
)
/~
'"
)
80
()
()
\
---
0
0
n
'--- -
{)
~~,
(J 0
C) 0 C)
PAGE
5HHOOO
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618'
3619
3620
3621
3622
3623
3624
3625
3626
3627.
3628
3629
3630
3631
3632
3633
3634 .
069D 02FE
06BE aFCF
o6BF 0131
06CO 18FC.
HT8LOY
06Cl 02FE
06C2 A079
06C3 680C
06C4 0008
06C5 0103
06C6 C808
06C7 0910
D6C8 03FE
HT8lZ
06C9 COBC
06CA 0125
06CB CaBO
D6CC 0113
06CO 1822
DGCE DODD
HTBli
oeCF DODO. · HT89TR
MT8l3
0600 C046
0601 D9FD
0602 6066
D6DJ C81C
0604 64BB
0605 OOBS
0606 COBB
0607 8000
0608.00AO
3635 0609 64B8
3636 D60A 9901
.3637. DGOB 60F.F
3638 060e C07A
3639 0600 6ltFF
36'.0 ' 060E ODF7
MT8L5
3641 060F 02FE
3642 D6EOA06C
3'ft3 06£1 0101
3' .... 06E2 18FC
36 .. 5 06E3 COBB · HT8llt
36 .. 6 06E .. 09fE
J61t7 06E5 0800
3648 o6E6 03F£
HT8L6
3649 06'£7 o2FE
a650 06E8 0131
3651 06£9 18FO
HT8l7
3652 06EA 6000
3653 06E8 0000
365,. D6EC A075
3655 . o6EO 0105
3656 06EE 0008
3657 06£F'COoO · HT8lRW
06fO 2700
3658 06F1 03FE
60411400
C
INP
ALS
SAH
JHP'"
INP
ANOSTA·
INQ
SAZ
LOA·
INA
OUT
LOASAP
lOASAN
.JHP·
0
0
lOAINA
STALOA·
STARAOlOAADD
STAINA
STALOASTAINQ
INP
ANDSAZ
JHp·
LDAINA
NOP
OUT
INP
SAM
JHp· .
STA0
ANDSAZ
INQ
LDA
OUT
(
81 .
-1
15
HT8l0Y-4-1
4-3
-1
BITi4
HT89TR
8
HT8L2-·-1
HT8l1
t10
-1
Bl
HT8lJ-·-l
B2
HT8Ll-"'-1
HT8LRW
0
a
INBIl
-2
Bo
. HT8LRW
(BO'
80
aD
1
r) 0 0 () 0 0
OATEI 12/17/74
GET STATUS
CHECKREAOY
NOT READY, WAIT
RESTATUS (DELAY FOR 7/9 TRACK)
ZERO IS
7 TRACK
SKIP ,FOR 7 TRACK
GET SELECT FUNCTION
SELECT HOOE 1
FOR 9 TRACK
HI NUS IS' lIST
ZERO ON fIRST PASS lIST
FIRST PASS lISTS REWIND TAPE
HOLDS SELECT FUNCTION
ZERO IS SEVEN TRACK.
RBO BUFFER FNA ($XF3F)
FWA-2
READ COHTROL WORO(SCOOOJ
INTO FWA-2
FWA-i
::NSAO
lENGTH
(BO)
LWA INTOF"A-l
lWA+l
1
I
BIT15
(l)
-8
-1
BITOl
(j (;
S8000
TERMINATE FUNCTION INTO LWA+l
GET STATUS
CHECK BUSY
MT8l4~·-1
HT8l5
BO
-1
0
-1
. -1
MT8L7··-1
HT8L6
0
0
BIT10
HT8LB··-l
HANG ON BUSY
FWA-l
FWA-2
START BUFFER.FWA-2 IN A
GET STATUS
HINUS IS EOP
WAIT FOR EOP
HOLDS STATUS
CHECK FOR FIlEHARK
ZERO MEANS NO EOF
8'
=N$2700
REWIND TO
-1
lOADPOINT
PAGE
81
{'\
'-
/
r-(
\
PAGE
SHHOOO
06F2 laoo
06F3 C8F7
06F4 AOOO
06F5 01EC
3662 06F6 OlaF
3663 06F7DOCl
3664 06F8 .OA17
3665 06F9 60BE
3666 DDFA C8FO
3667 06FB 60BF
3668 D6FC COCl
366«) 06FD 09F7
3670 . 06FE 0105
3671 06FF COOO
0700 2600
3672 0701 0008
3673 0702 aYE
3674 0703 18EE
3675 0704 OA17'
3676 . 0705 60C2
3677 0706 C8C8
3678 8707 0101
3679 0708 1C9F
3659
3660
3661
3683
3684
3685
3686
3687
3688 070F
3689 ' 0710
3690 . 0711
3691 07..12
3692 0713
3693 0714
3694 0715
3695 0716
3696 0717
3697 0718
3698 0719
3699 '071A
3700 071B
3701. 011C
3702 0710
3703 071E
3704 07iF
3705 0720
3706 0721
3707 0722
3708 0723
C48B
OFE6
DOBB.
B488
OFE8
J
n
HT8lC
HTel11
\
)
•
00B8
C4BS
OFCZ
'OFEIt
44FF
DOFf
0842
00B8
B4BB
OFE6
DOBB
BltBS
OFE6
008a
a4e8
OFE4
&0411400
•
HTelO
0709 C046 . HT8lE
070A 60BB
070B.60FF
070C 093e
0700 60BD
HT8lF
070E 08lt2
3681
3682
:~
HT8l8
HTalB
JHp·
lOA·
AND
DATEI 12/17/74
82
"T8L3
HT8L7+1
=NS1EC
SAl
RAOENA
STAlOA·
STAlOAINA
SAZ
lOA
. HT8I.C----l
SD
HTPE
B3
"T8l7+1
B4
B6
-8
HT8lo-·-1
=N$2600
INQ
OUT
JHp·
ENA
STALOA·
SAl
JHp·
-1
KT8l8
HTPE
B7
HT8CJTR
t1T8LE-· ... 1
IHTaLOR)
lOASTASTAINA
STACLR
LDALLS
RAOEORLLS
RAOLDAALS
llS
STQRAOClR
RACEORllS
RADEORllS
RAOEORllS
a
IHBU
BO .
READ REC(RD
GET STATUS BACK
lP/EOT/ILl/LD/PF/PEI
ZERo= NO ERROR
UPDATE ERROR COUNT
ERROR CODE
INTO B-BOX
ERROR ST AT US
INTO'B-BOX
ERROR 7 TIHES EXIT
BACKSPACE FUNCTION
BACKSPACE ON ERROR
AHo REPEAT READ
TERHINAT E FLAG
GET TRACK BIT
SKIP FOR 7 TRACK
EXIT lOADER
FHA OF INPUT DATA
I
60
B2
Q
CBo)
6
BO
CBO)
8
BO'
(BO) .
HAX. BUFFER AoOR.
STORE 8 FRAMES IN
3COHPUTER HORDS
FRAHE 1
FRAHE 2
FRAME 3
2
It
HORD 1
(1)
I
Q
BO
(90)
&
80
CBOl
6
BO
CBO'
4
FRAHE ,.
FRAHE 5
FRAHE 6
PAGE
C
()
/\
(\
)
(
\/
.
82
()
o
o
'----
~.
PAGE
S"HOOO
3709 0721t .....FF
3710 0725 DOFF'
3'711 . 0726 OF£2
3712·' 0727 0088
3713 0728 BltBB
3714 0729 OFE6
3715 07lA DOBa
3716 072B Bltee
371.7 072C OFE8
3718 072D .... FF
3719 072E DOFF
3720. 072F COFF
3721 0730 B080
3722 0731·0102
3723 0732 DOBB
372.. 0733 180A
3725 0734 l8Da
.3726
I
2
eo
CBO'
6
FRAHE 7
. (80)
FRANE 8
aD
a
HORD .3
(I)
RAO~
I
I
LOAEORSAl
RAOHTSL10
OOCA
OOCA DODO
0998
60411,.00
C
•
•
•
~'
'-. -_./
WOROoZ
Cl)
STQRAOLLS
RAoEORLLS
RAOEORLLS
STQ-
()
(\
DATE. 12/17/74
83
82
HT8Ll0-·-1
SKIP IF COMPLETE
80
JHp·
JHp·
CONTINUE
EXI·r CONVERSION
"T8LF
HT8Ll1
•
06A8.
3729
3730 '.
3731 ;
3732
3733 06A8 0000
37a .. 06A9.18FF
3736
3137
3738
o o o
o o
()
ORG
JU
"TUNIT+1
DUHMY OVERLAY TO AID HBS LOAD
NUH
HUH
0
8
S18FF
ORG
cOtWSE
HUH
ORG
0
0
THIS ORG IS TO FORCE OVERLAY
BLOCK FOR HBS OVERLAY
HBSOL Y
PAGE
83
(\
\
j
PAGE
SH"OOO
........................................................................
•
•
BEGIN HBS SUBROUTINES
•
•
•
..
3740
37 ..1
3742 '
3743.
314"
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
3746 ' OCJ9B 0000
'3747 099C COFF
3148 0990 010&
37 .. 9 099£ 0901
3750 099F 0111
3751 09AO 1811
3752 09Al 0142
3753 09A2 C034
3754 09A3 0111
3755 09A41CF6
3756 09A5 081"
3751 09A6 D42D
37-58 09A7 E"20
3759 09A8 6620
3760 . 09A9 OF42
3761, 09AA 0822
3762 094B COFF
37.63· 09AC .6AOO :
09AO 0082
3764 ' 09AE OFA2
3765 09AF 1ltOO
09BO 0189
3766 09Bl 0F.22·
3767 : 0992CAOO
0993 0090
3768 0984 807A
3769 09BS 6AOO'
09B6 009A
.3778 0997 602E
.3771 0998 C091
3772 0999 6876
371.3 . 099l CAOO
0990 00B3
3774 09BC 6091
37.75 0980 S.. lF
377,6 09BE 4127
3777 OCJSF OG3B
3778 09CO C143
3779 09Cl 0113
378,.0 09C2 C860
3781 ' OeJe3 £1091
3782 09C" 18E9
3783 09C5 OAFE
601t11400
n
DATEI 12/17/74
84
NUK
LDASAl
INA
SAN
JHP·
SQZ
LOA·
SAN
JHp· '
TRQ
RAOlDQ5TAARS
TRA
LDASTA
PROC2A
PROCO-·-l
HOG2
PROC2e-·-1
C1HEOOO)
A
CADINSn
CADINST)
cADtNSn ,Q
2
Q
I
INT003-1,Q
PROC9
QLS
JHPt- .
2
EXnL
PROC2A
QRS
LOA
2
INT002-1,Q
EORSTA'
BITtS
INT002-1,Q
STALDASTA·
LOA
. INTFLG
TSACTV
INTUOS
IN1004-1,.o
INEO 00
PROCO
PROC2B
PROC10
0
1
PROCO-·-l
1
1
TSACTV'
(FHAEI)
lIN£NO,'I
TK6It
RBIT,I
PRCC10-·-1 .
'INTOOS
TSACTV
PROC,)
-1
STARTJSTQRAOlOASAN
LOA·
STAJHp·
ENA
NOT REQUESTED-SKIP HBS CHECK
SKIP IF NOT HBS INT
DONl STACK LINE DINTS
NO DID HBS LOCK OUT SHH
INTS
CONTINI£
YES STACK THE EXIT STATE
'VALUE AND PROCESS ROUTINE
ADDRESS
START HaS 1NT SYS
ADD FLAG TO INT TIMER LOCA,TION
SET 'INT OCCUREO FLAG
"AKE SlRE THE TEST
TABLE POINTER IS CORRECT
POSITION ERR FILE TO I
SAVE FOR ER~ HSG
UPDATE 64US CLOCK
SKIP FOR RECOGNIZE INT .BIT
RESTORE THE POINTER
AND EXIT
THROUGH HONITOR
PAGE
C
n
(j
81t
()
n
( '\)
~\
/
r- 1
\,-"'
n
\.,-/
0 (J
n
(~)
0
PAGE
S""OOO.
378..
3785
37&6
09C6
09C7
09C8
09C9
3787
•
3188 . 09CA 0000
IN£025
318CJ 09CB &81C
37CJO 09ce C"31
3791 09CO DCOF
INE027
3792 09CE 60Cl
379,3 09CF 40CO
3194 0900 0138
3795 0901 0106
INE029
3796 DtD2 COCl
3797 0903 £D.cO
3798 o90 It A087
3799 · 0905 OF01.
aeon 090.6 ODFE
3801· 0907 18F6
. 3802 09D8 lCFl 'INE030
.3803
3804
•
3805
•
380&
•
3807
•
3808 · 0909El01 ·IMEoal
3809 . 09DA OFE4
INED51t
3810 090B .A07D
3811 090C BOCO
3812 · 09DD 0106
3813 090E OFE8
3814 09DF .A070
. 381S 09EO BOCll
381& 09El 0102
3817 09E2 E108
3818 09E3 18F&
INE056
3819 09EIt OfF4
3820' OCJES "OBC
INE051
INE059
3821 09£6 lltOO
09E7 0000
•
NUM
STA·
LDAENQ
STASTQSAM
SAZ
LDALOQANDALS
.INQ
JMP·
JMP·
LDQLlS
ANDEORSAl
LlS
ANOEORSAZ
LOQJHp· .
LLS
STQJHP+
0 0 n
!\
(\,
\_)
\'''-~/
n,---'
..--~
\
DATEI 12/17/7"
INFORM
INFORM
RIED13
0
INE059+1
CCALLPT)
Sf'
B6
B5
I"E031-·-1
IN£030-·-1
B6
B5
H1FfF
1
-1
INE027
(INE025J
Ill.I .
It
HOOOF
85
INE056··-1
8
HOOOF
'85
INE056- 9 -1
IL 1+1,1
INE054
GO PROCESSHBS INtERRUPT
CONVERT THE BINARY POSITION
INTO A HEX NUMBER AND FIND
THE INTERRUPT LINE USED
GEl INT. SELECT HORD
START BIT COUNT AT 15
BIT ON-StaP
Att 'BITS DONE
. UPDATE
BIT
POSITION
AND BIT
COUNT
LOOP
COMPARE THE BIT POSITION
SELECTED HITH THE 8ITS
IN THE INTERRUPT LINE
TABLE TO DETERMINE THE
GET THE IMT.TABlE.IN THE FORH
8TBT B=8ITNUHBER
T=TRAPNUHBER
IFT"E SELECTED BIT
NUMBER COMPARES
HITH8,THEN
USE T AS THE
TRAP NUHBER
20
81
0
GO.TO SPECIfIED PROCESS ROUTINE
.... ...................................................................•
•
•
........ .................................................................•
3823
3824
3825
3826
3827
3828
3829
3831
C~-)
85
ANDSTA.JMP
AO"9
6049
1800
0136
C)
()
\.,-
~
•
•
•
•
•
09E8
HOG1
0000
&0 ..11400
C
CONTROL ~ ROUTINE. DETERMINE IF OK TO TRADE.
CHECK FOR S"H17 INTERRUPTS WAITING TO BE PROCESSED ON
1ST IN 1ST OUT BASIS. HOVE INTSTO TOP OF STACK.
HUL TIlPEX
IF OK
·4
~
NUH
0
HOG FLAG
PTC2
PAGE
85
)
l~\
()
( ------ \
\
'-
PAGE
SHHOOO
38~2
09£9 0000
3833
09EA OCFD
agEB'CEFO
09EC6037
09EO C035
09£E0101
09EF lCF9
OCJFO C8F1
09Fl'0103
09F2 08 ....
09F368F,.
09F .. ·1CFIt
09F5 ·S,.1F
89F6 C8F2
D9F7 61"2
09F8 C037.
89F961ltl
~a31t
HPEUOD
3835
3836
383,7
3838
HPEOO5
3839
38 .. 0
38 ..1
38 .. 2
38,,3
HPE007
.38 ....
3"5
38 .. 6
38.. 1
38%8
3849
3i50
3851 09FA C838
3852 09FB 011A
3853 09FC C83 ..
3854 09FD OFC1
38!i5 09FE 68:'2
3856 . OCJFF 0131
3857 OAOO lCE8
HPE020
. 3858 OA01 541E
38!)9 8A02 COOO
OA03 0 A29
3860 DAD .. 6105
3861 DADS 5.. 01
.3862 OA06 E820 . HPE025
3863 OA07 .. 11t4
386.. OA08 C07A
3865 OA09 9829
3866 OAOA 6827
3861 OAOB 0190' .
3868 DAGCOCOl
3869 OAOO CA26
"PE03S
3870 OAOE OOFE
3871 OAOF 6A2ft
3872 . OA10 C822
3873 . OA11 09FE
3874 OAl2 6820
387S' OA13 o81E
3876 OA1,. 01A2
3877 OA15 0002
3878 OA16 t8F6
3819 OA17 E144
"PE030
388n OA18 OF22
3881 OA19 CA"6
3882 DA1A 60FF
3883 OA1B C268
601tl1,.00
f)
(,
--
)
()
SAZ
JHP. LOA"
· SAZ
CLR
STAJ"PRTJ· LOASTALOASTALOA·
SAN
LOA·
ALS
STA·
SAH
JHp·
RTJLOA
STARTJLOQ·
STQLDASUB·
STA·
SNO
ENQ
LOA"
INQ
STALOAINA
STA·
RAOSOy
INQ
JHP·
LOQQRS
LOA·
STALDA-
'.
'-2·
(HPEOOo) ,Q
CALLPT
ItO
HPE005-·-1
(HFEOOO)
HOGl
HPEOO7··-1
A
. HOGl
(HPEOOO)
(FNAEIt
"PEOOO
HPXRTN,I
CALLPT
CALLP,I
INTSTIC
HPEOZS-··1
HPXCNT
1
HPXCNT
. HPE020··-1
(HPEOOo)
eFWIU
=XHPE015
HUXRTA,I
(CONTROL)
IN1000
TSCOHL,I
BI115
INTSTK;
STKLGH
0
1
INTOOO,Q
-1
INTOOO,Q
INTSTK
;..1
INTSTK
STKLGH
HPE030·--1
2
HPE03S
TSCOHL,I
2
INTOO3-1,Q
I
BITOQ,Q
GET ADDRESS OF
CALL TO
HONITOR
IS INT LOCK-OUT ON
NO-SKIP
EXIT
IS HOG FtAG SET
o=
NO
l=YES
CLEAR IT
CONTINUE
POSITIa. ERR FILE TO I
PTC2
SAVE RETURN ADDRESS
CALLERS AOoR TO ERR FILE
CHECK FOR SH"17 STACKED
INTERRUPTS
ARE ANY WAITING
YES-SKIP
LOOK AT TRADE SNITCH
TO 0 ETERHINE IF
ITS TRADE TIKE
YES-S1CIP
NO-EXIT
GO TRADE
GET CURRENT EXIT STATE
VALUE
SET UP LENGTH
OF STACK
CLEAR FOSSIBLE OVERFLOW
HOVE STACK
'UP ONE
SLOT
DECRE"ENT THE STACK
CHECK FOR LAST
HOVE
. NOT FIla SHED GET
NEXT
GET· EXIT'STATE VALUE FRO"
TEHP CELL
GO' TO TESTS INT PROCESSOR
THROUGH INT ROUTINE
REPLACE HASK BIT FOR
PAGE
C
(~
I
..
•
HUH
ENQ
lOA·
· STALOA-
OATEI 12/17/7..
8&
i
()
I~
:
.
/
)
()
\
J
86
c)
() n
\
)
f\
/
u o
(')
o
o
SHHOOO
3884
3885
3886
3887
3888
3889
3890
. 3891
3S92
aa93
389'
3895
389'
-3891
3898
3899
3900
3901
PAGE
OAIC 086C
DAI0 DFA2
OAIE 6600
OA1F 0142
OA20 4400
OA21 01A7 .
OA22 0814
OA23 SOOO
OAZIt 0103
OA25 '400
OA26 0181
OA27.1400
OA28019E
OA29
OA2A
OA28
OA2C
OA20
5ltlF
Cl1t!
6880
Clltl
6037
DA2E 1C6A
OA2F 0000
OA:;O 5555
OA31 0000
OA32 0000
3902 OA33 0000
.3983 OA31t 0000
390ft OA35 8000
.3905, JJU6 0000
3906 OA31 DODO
3907 OA38 000'0
3908 OA39 0000 .
3909 OA3A 0000
3910 OA38 0000 '.
3911
3912
3913
3911t
3915
3916
3917
3918
3919
3920
0000 ,
0000
DODO
0000
0000
9000'
0.45 DODO
3921 -. OA46 0000
3922 DAIo1 0000
3923· OA48 0000
3924 OA49 0000
3925 OA4A 0000
3926 OA48 0000
3921 OAttC 0000
3928 DAltO 0000'
3929 OAItE 0000
3930 OA4F 0000
3931
OA50 '0000
60 .. 11400
C
DATEI 12/17/14
EAM
QlS
STA+
A
2
THIS: LINE ONLY
REG+2.Q
IN SAVE AREA
STQ+
PROC2+1
TRQ
ADO
=N1103
A
AND SHH INT. PROCESSOR RETURN
ADDRESS FOR STACKED SHH
INTERRUPTS
PROG .
GO TO
RTJLOASTA·
lDA-
(FWAEIt .
MPXRTN,I
MPEOOO
CALLP .. I·
CAlLPT
POSITION CURRENT ERRFLE TO I
REPLACE MULTIPLEX EXIT
ADDRESS
REPLACE ADDR.OF
CALLER
CONTINUE
LAST'TSACTV :WHEN INT OCCURRED
STA~
HUH
NUH
NUH
NUH
HUM
NUM
NUH
NUH
HUH
NUH'
INT001
PROCESS
REPLACE THE DELTA VALlE
JHP+ .
HPE010
Jl1P·
INT005
HUH
HPXCHT
NUH
NUH
STKLGH
INTSTK
NUH
INTOOD . NUH
NUH
NUH
NUH
OA3C 0000
OA3D 0000
OA3E 0000
OA3F
OA40
OA41
DA42
OA43
OA44
87
STA+
HPEDIS
o (J
(
NUM
NUH
NUH
NUH
NUH
NUM
NUH
NUH
NUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
..
CHPEOOD)
SHH'CONTROL
$5555
...•
•.
•
•
•
•
8 OnO"-LENGTH
NO OF ENTRIES IN STACK
EXIT STATE VALU HIGHEST PRIOR
....•
•
•
•
•
-'
~
o
o·
o
o
o
o
o
'0
o
D
o
·0
o
o
o
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT
TIMER ,TRAPl
TIMER .TRAP 2
TIMER .TRAP 3
TIMER ,TRAP 4
TIMER ,TRAP 5
TIMER ,TRAP 6
TIMER ,TRAP 7
TIMER ,TRAP 8
TIMER, TRAP 9
TIMER ,TRAP 10
TIMER ,TRAP 11
TIMER ,TRAP 12
TIMER ,TRAP 13
TIMER .TRAP 14
TIMER .TRAP 15
PAGE
87
PAGE
SHHOOO
3932
3933· OA51
393,. . OA52
3935 OA53
3936· OA54
3931' OA55
3938 OA56
3939 OA51
3940 . OA58
39 ..1 OA59
3942 OA5A
3943 OA58
39 .... OA5C
3945 OASO
3946 OA5E
3947 OA5F
3948
.39.. 9 ·OA60
3950. OA61
3951· OA62
3952 OA63
3953 OA6"
395 .. OA65
3955 OA66
3956 OA61
39~7
OA68
.3958 OA69
3959 OA6A
3960 OA68
3961 OA6C
3962 OA60
3963 OA6£
,3969
3966
3967
3968
3969
3970
3971
,397,2
3973
397,.
3915
3976
3977
3918
3979
3980
3981 .
OA6F
OA70
OA71
OA12
OA73
OA7"
OA75
OA16
OA11
OA18
OA19
OA7A
OA7B
OA7e
OA10
0000
0000
0000.
0000
INT002
0000
0000
0000
0000
0000
0000
0000
0000 :
0000
OODI .
·0000
•
INT003
DODO
0000
0000 .
·0000
0000·
0000
0000
0000.
DaDa
oaoo
0000
0000
0000
0000
8000
.,
.'
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
0
0
0
0
0
0
0
0
0
. 0
a
O.
0
0
0
0
0
O.
0
0
0
·0
o·
0
0
0
a
0
0
0
,
INT. PROCESSOR ADDRESS TABLE
SYSTEM nHER
TRAP 1
TRAP 2
TRAP 3
TRAP 4
TRAP 5
TRAP 6
TRAP 7
TRAP 8
TRAP 9.
TRAP 10
TRAP 11
TRAP 12
TRAP 13
TRAP 11t
TRAP 15
PROCESS ADDRESS TABLES
TRAP 1
TRAP 2
TRAP 3
TRAP It
TRAP 5
TRAP 6
TRAP 7
TRAP 8
TRAP 9
TRAP 10
TRAP 11
TRAP 12
TRAp·13
TRAP lit
TRAP ,15
TEST ACTIVE POINTER TABLE
0000 . INTOO,.
0000.
0000 .
0000
0000
0000
0000
0000 .
0000
0000
0000
0000
0000
0000
0000
60411400
n
•
DATEI 12/1117,.
88
NUH
NUH
NUH
HUH
HUH
HUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
NUH
NUH
0
0
0
0
0
0
a
0
0'
0
0
0
·0
0
·0
TRAP 1
2
3
4
5
6
7
8
9
10
11
12
13
1,.
15
PAGE
C
r~
\
!
88
()
\
I
n n
()
.--.....
~
/
r,
~-'
0
() 0
,-_l
0
0
o·
PAGE
SHHOOO
..•
3983
398 ...
3985
3986
3987.
3988
DSEO DO . NUH
047EOOOO
GA7F C8FE
LOA·
OA80 6037
STAOA81 COOO
LOA
0482 OAaE
39a9 OA83 541F
RT.IRTJ
3990 " OA8,. :5800, '
OAa5 FFlt4
RAO3991 8A86 D03A
CLR
3992 OA87 084 .. '
STA3993 OA88 6035
STA,3994 OAS9 6143
3995 OA8A 6127
STA3996 OA89603,.
STAENQ
3997 OA8C OCOl
399,8 OAaD 1637
.IHPDSE010
ENA
3999 OA8E DADO
, 4000, GA8' :6A81'
' STA·
STA·
"001. . .OA90 6ABF.•
STAo
. 't002 OA91 GAeD
QlS
't003 OA92 OF.'A2
STA+
4004 OA93 6600 '
OA94 0103
QRS
4005 OA95,OF22
4aO,6 OA96 C26B'
LDAEAM
ft007 OA97 0869
JMP
4008 OA98 180'0
OA99 FF.38
4009
'tOl0
•
4011 ' OA9A 0000 ' ,SIEODa
NUH
40j,Z ' OA9B C8FE
lDA09
~Ot3 ' OAge 6037
STAoAC1D OCD1 '
ENQ
"01~
'lOA4015 OA9E C63?,
STA·
4016 ' OA9F 681A
4017 , OAAO 00D2
ENQ
LDA40t.8 OAAl C637
4019 OAAl ,681A
STA·
RT.I4Q?O OAA3 S41F
EN'1
4021 OAAft 'De03 '
4022 DAAS E637
LOQ'"
. 1,023 OAA6 DOFf
INQ
LOA402 .. OAA7 C201
';02'5 OAA8 6107
STALDA, '-026 0llA9 C2D2
10027 OAAA 6108
STA';028, OAAB 0842
CCR
eaQ.29 ' DAAC I,OBO
STQ-O
LDA
OAAO'COOO
4D~O
OAAE OAB8
.:
60411400
C
C) C)
~-)
c)
() 0
(
~\
,_/
(,
\_j
( ')
DATEI 12/17/71t
89
DESELECT INTERRUPT-INTERRUPT BIT
IN STATUS WORD GIVEN IN CALL
O·
DSEOOO
CALLPT
. =XDSE010
GET CALL
ADDRESS
GIVE THE PROCESSING ADDRESS
Cf ..AEIt
INE025
POS CURRENT ERR FILE TO I
TO THE SELECT ROUTINE
TK32
UPDATE 32 ' USEC COUNTER
CLEAR
INTERRUPT LOCKOUT
RECOGNIZE INT
AND LINE NO.
ALLOW ,SH"17 INTS
RETURN TO
CALLER
CLEAR THIS TRAPS T"BlES
TIHER (HARDWARE)
SYSTEM'TIHER (OVERLOAD) ,
PROC ESS ADDRESS
SET SHH PROCESS ADDRESS
TO ZERO.
A'
ILO
'RBIT,I
LtHENO,l
HOG2
1
(CALLPT) ,a
0
INTOO1-1,Q
INTOO2-1,'1
I"TOO3-1,'1
2
LVOADR,a
2'
BITOO.Q
H
INE029
RESTORE THE MASK BIT
GO BACK FOR NEXT SELECTION
SELECT THIS INTERRUPT-'BIT '
IN STATUS WORD GIVEN IN CALL
0
SI&:OOO
CAlLPT
l'
(CALCPTJ ,Q
S1E010+1
2
(CALlPTl ,Q
SIE012+1
(FHAEIJ
3
CCALLPTJ .Q
... 1
1,a
IlT,!
2,Q
II T+1,I
-Q
B2
=XSIE010
GET CALL
ADORESS
TIHE
GET TIME EXPECTED
TO SHOW ERR TIME
MOVE PROCESS
. ADDRESS
POS CURRENT ERR FILE TO I
GET INTERRUPT DATA IN 8TBT
FORH
B=BIT 'POSITION It~ STATUS'
ONE HORD
T=TRAP NO.
SAVE IN TESTS ERROR FILE
INITIALIZE INT
' ,MORo
GIVE THE PROCESSING
PAGE
89
(
')
\.. ___ --J
f
{
'-'
\
(
\
~~
"_/
(
,
PAGE
SHHOOO
Ita31
~
4032
"033:
403"
4035
1t036
"031
4038
40.39
. "OltO
4Q~1
.. 042
. ItO'-.3 .
4044'
ltD",;
40"6
ItOlt7
,.048
1t0'-CJ
405Q
4051
40S2 .
4053
1t091t
It055 .
1t056
4057
..058
"059·
RTJ
OAAF 5800
OABO. FF19
LOAOA81 C080
STAOA92 611CJ
CLR
OAB3 08""·
STADAB" 6035
RAeOAes 003A
ENQ
OAB6 OC04
OA87 :1637 .
J"POA88 COOO . SIE010
LOA
OAe9 0000
STA'"
OAB~ 6A95
OAge ca08. SlE012· LOA
OAec 0000 .
. STA·
OAaD 6AAl
LOAOABE C091
STA·
OABF 6AAE
TRQ
OACO '0814
EOROAC1809"D
ALS
IJAC2 OFC4
STAOAC3 6080
ENQ
aACIt OCOF·
LoAOA05 COBC
LAQ
OAC6 0892
LOAOAC? C26B
. LDQIIAca £101
OA09 540ft
RTJ"
OACA FFFE
HUK
RTJOACB .SltlF
JHP
OACC'180D
OACD FFO"
",'
4060
.. 061
1t062
..063
.. 86.. ·.
lt065
DACE
OACF
DADO
OAOl
OA02
OA03
OAOIt
4"~6
ltD61 OAD5
4068 OA06
"069 OA07
.. 070 OA08
4qtl . OAD9
.. 012 DADA
4073 OAoe
.407,4 OAOC
It075 DADO
'17.6 OAOE
1t077 OAOF
1t078 OAEO
4079 OAEl
0000
C8FE
o03A
6037
OCOl
4034
S41F
6141
0143
0800
6125
541S
0437
611A
6119
E121
D03A
0141
181F
0037
•RIED 00
RIEOO6
RIEOQa
HUH
LOA'"
RAOSTAENQ
STQRTJSTARAOTR"
STARTJLOASTASTALDQRAOSQZ
JHP'"
RAO-
OATEI 12/17/74 .
90
INE025
82
ITUNS,I
A
ILO
TK32
It
CCALLPn,Q
=NSO·
ADDRESS TO SELECT RounNE
SAVE INTERRUPT
WORD FOR ERR HSG
CLEAR
INTERRUPT LOCKOUT
USEC COUNTER
UPDATE 32
ALL DONE
EXIT
HOVE TIHE OF ERR
INT002-1,Q
. =NSO
TO TABLE
PUT PROCESS
INT003-1,Q
TSACTV
INTOOIt-l,Q
·A
B2
4'
ADOR IN TABLES
USE THIS VALUE FOR
INTERRUPT PROCESSING
aUILO
INTERRUPT
WORD
82
SF
Bl
Q
BITDO,Q
WEST1,I
(REQIT)
-1
CFNAEIl
INE029
CONVERT HEX CHAR
TO'INT LINE
NOM HAVE LINE NO.
EQUIP; ADDRESS
PROCESS ADoRESS=-l
pas CURRENT ERR FILE TO I
GO BACK fOR NEXT SELECTION
RECOGNIZE INTERRUPT
0
RIEOOO
TI<32
CALLPT
1
HOG2
(FWAEI)
CALlP,I
RBIT,I
A
I"R,I
CCLOCK'
CCALLPT)
XTIME,I
TJ:t£R.I
lINENO.I
-TK32
RIEOO8-"'-1
RIED13
CALLPT
GET CALL
ADDRESS
UPDATE 32US COUNTER
STACK S""17'INTERRUPTS
POSITION FOR CURRENT ERROR elK I
SAVE CALLERS ADDRESS
SET RECOGNIZE BIT
SAVE "ASK FOR
ERR HSG
SAMPLE THE TIKE
SET· TIHE
INFO
INTEST AREA·
HAS INTERRUPT OCCURED
UPDATE 32US CLOCK
YES
ADJUST CALLPT
PAGE
60411ltOO. C
(\
(~
)
\
/
\}
.
90
1\
.
)
I~··~
.
./
)
c;
0
C) C)
0
()
,--,'
SHHOOO
4080
OAE2
OAE3
4081 OAE4
OAES
4082 OAE6
4083 OAE7
4084 OAE8
4085 OAE9
40.86 OAEA
40·87 OAEB
4088 OAEC
4089 OAEO
4090' OAEE
40«31 OAfF
4092 DAFO
4093 DAFI
ft094 OAF2
OAF!
4095 OAF4
ft096 OAFS
4097 OAF6
4098 DAF7
4099 OAF8
4100 OAF9
4101 OAFA
4102 OAFB
4103 OAFC
4104 OAFD
OAFE
4105 OAFF
4106 .
4107
4108
4109
4110 DaDo
OBOl
4111 ·OB02
OB03
41~2
"113 OB04
4114 0905
4115 0806
ItL16 0807
4117· 0908
41'18 OB09
4119 neOA
DBDB
4120 oeoc
4121 0800
4122 080E
0
PAGE
S800
OOEE
5800 .
014A
0822
OAFE
8037
6037
0142
OA03
1810
5415
RIEOO7
0864
8118
611B
0139
COOO
OAF7
541£
6105
5401
541F
RIED09
Clft1
6037
18E2
OAO~
RIEDll
oe07
RIE012
1800
01i9
4035
RIE013
•
()
0
EADO
fF50
C102
Q112
DADa
1802
OAOA
81.41
541E
6105
COOO
OBOF
667B
OItOO
1201
RIE015
RIE020
0 0
RTJ
IOE050
COpy STATUS
RTJ
IOE200
CHECK STATUS
TRA
ENA
ADDSTA-
()
",---/
TIH£R,I
TIMER,I
RIED11-·-1
=XRIE009
RTJSTARTJRTJLOASTAJHP"
ENA
ENG
JHP
(FHAI)
HU)(RTA,I
(CONTROL)
(FWAEIJ
CALLP,I
CALLPT
RIEOO6
4
7
REE004
SET RETURN
ENTRY POINT
GO TRADE
POSITICN FOR CURRENT ERROR BLK I
RESTORE
CALL POINT
LOOP UNTIL INTERRUPT
SET TIKE ERR CODE
AND
EXIT
STQ-
ILO
LOQ
INTOOJ-1,Q
SET INT LOCKOUT
NO HORE INTERRUPTS HILL
BE P~CESSEO UNTIL SELIN
OR OSELIN EXECUTED
GET INTERRUPT PROCESS ROUTINE
ADDRESS
LOASAN
ENA
JMp·
ENA
ADDRTJSTALOA
"EST2 7 1
RIED1S-"-1
ENA
JMP·
RTJTCA
AOOSTASAH
LOA
STAEIN
JHP-
C)
Q
RESET
CALL
POINT
TO TIMER IF NO
STATUS
ERROR
GET THE
ELAPSED
TIHE AND
DECREHENT TIHER
TO TIHE ERROR
SET up· TO TRADE
SQZ
0.
\.J
OATEI 12/17/74
«31
-1
CALLPT
CAlLPT
RIE007-·-1
3
RIE012
, CLOCK)
A
v-
..•
n
L~)
8
RIE020
10
CALLP,I
'FHAl)
HUXRTA,I
=XRlE025
CHODDo) ,Q
SET UP NORHAL RETURN
FOR TESTS
INTERRUPT
PROCESSOR
FOR HUX RETURN
RETURN HERE FROH TEST INT PRoe
0
l,Q
GO PROCESS INT
•••••••••••• ".v •••••••••••••••••••••••••• ••••••••••••••••••••••••••••••
•
•
~
4124
4125
60411400
C
PAGE
91
r-"
(
-
j
,
C'
r--1
:
'~-j
(----\
PAGE
SHHOQQ
4126
..121
41~8
.,
•.
•
RETURNFROH '~ST INTERRUPT PROCESSOR. IF INTERRUPT OCCURED
WHEN THtS TEST DID NOT HAVE CONTROL ,RETURN TO INTERRUPTED
TEST OTHERWISE RETURN TO TEST.
RIE025
NOP
RTJLOAARS
AMOTRA
41ao
080F OBOO '
0810 S41F
4134' 0811 Cl01
"13, ' 0812 OFIt!
4136 8813 A01D
42.31 OB14 0822
4138' OB15 CAOO
0816 FFS1
4139 OB11 9800
0818 FF16
1.132
,4J:33
0819 0106
41ltO
41_1
,4142
4143
41,.4
OB21 El05
411t6
..
4152
4153
4154,
INTOQ5
SAZ
RIE03o-·-1
INT005
SkIP FOR TEST
2
FORH THE DELTA VALUE
RETURN TO INTERRUPTED TEST
RIE030
RTJ-O
LoQJHP-
(FWAI)
HUleRYA,'I
(HOOOO) ,Q
GO TO NORMAL RETURN FOR
RINT CAll
HGEOOa
NU"
ENA
STA
.1
HOGI.
SET THE HOGFLAG-ALLOMS
CONTINOUS PROCESSING
OF "OM CALLS
STAJHP·
HOG2
STACK 5M"11 INTS
o
(HGEOOO),
PTC2
(PRE-PROCESSING OF HOW INT
STILL OCCURS)
•
.....................................................
...... ...... ......•
"159
~
4160 :
4162 ' 0829 0000,
4163· 082A 5426
.416" oa28 541F
4165 082C C800
0820 .461tE
G82E 6110
,4~66
"167 .
DS2F E037
OS30 C202
60411"00
/
EOR
NOM HAVE THE LINE NO.
DETERMINE WHO HAD CONTROL
•
"158
\
tNT004-1,Q
........................................................................
•
•
FUNCTION ROUTIN£
•
4156
4157 '
('\
Q
EXITl:
0826FEC1 '
OB21 .6034
0828 U;FA
~.
ILT,I
8
HOOOF
REQUIRED FOR PROTECT PROCESSOR
GElFMA OF ERROR BLK TO I-REG
GET THE LINE NO.
TSACTV'
41,.7' 09221678
4149 0823 '0000
4150 082 .. ·8AOl
4151 . 082S 6800
tFNAEI)
STAQLS
JHP.
OB1E 1 .. 00
091F 0199
41"5', OB28 .5ltlE
'0
lOA
lOA
081A C800
D919 ,FF13
881C 6891
OBlo OFA2
......
4168
•
.,
.'
•........................................................................•
"'29,
...
DATEI 12/1117..
92
FNEOOO
NUH
~
~
'
o
CHPX)
RTJRTJLOA
=AFN
POSITION, FOR CURRENT ERROR BlK I
SET FN
STALoQLOA-
LOPER,I
CALLPT
2,Q
INTO 'LAST OPERATION
GET CALL ADDRESS
TI'HER VALUE TO A
CFWAEU
PAGE
C
()
()
l\
"
)
92
()
n
/
C)
o
o o
PAGE
SHHOOO
4169
4170
SAP
LDQ
0831 0124
0832 EOOO
0833 OCOF
4171 . OB.31t 0700
4172 0935 A087
FNEO 02
4173 OB36 &11A
4174 OB37 6119
4175 OB38 5415
4176 OB39 E037
4177 OB3A C201
4178 0938 &OBC
.. 179 OB3C OCOO
1t180 . 0930 OFE4
4181 DB3E EAItE
4182 OB3F 4850
4183· OB40 OCOO
41S4 OB41 OFE4
4185 OB42 EA4A
418& OB43 4840
4187 OBlt4 COBC
4188 OBitS A08A .
4189
4190
419~
4192
4193
41g4
OB4& 810&
OBlt7 E437
OBlt8 OFFO
OBlt9 611f
OBltA 4120
OBitS 5818
DeltC 5800
DaltO QOAD
41.CJ6 . 08ltE 5800
1t19.5
4197
fNEO 05
OBItF OOBF
0850 1t11E
OB51 EOBC
4199 0852 4090
4200 0953 E037
4201 . OB54 C202
1t202 0855 0123
421J3 OB56 ·EOOO
1t198
OB57 OOOF
420 .. · OB58 0600
4205 OB59 ueOl
1t20~
4207
4208
4209
FNEO 01 .
OBSA· C617 .
OB5B 0131
OB50 5875
OBSD EOBD
4210 085E
4211 ·OB5F
.4212 0860
4213 OB61
FNE010
DF21
D03C
EA2F
1600
0962 0000
4214
4215
4216
0963 0000
OB64 DC03
OB65 C637
601,11,.00
FNE015
C
CPB
ANDSTASTARTJLDQLDASTAENQ
LLS
LOQ·
STQ·
ENQ
LLS
LOQ·
STQ·
LDAANOADDLDQLLS
STASTQRTJ·
RTJ
C)
o
(
DATEI 12/17/74
93
FNE002-·-1
=XIOE135
TEST FOR NON-PROTECTED 110
ADDRESS OF 1/0 INSTRUCTION
o
CLEAR ITS PROTECT BIT
DELETE BIT 15 OF TIHE PARAH
SET TIKE IN ERR MESSAGE
H7FFF
XTIHE,I
TIMER,I
(CLOCK)
CALLPT
1,Q
B1
o
It
IOT001,Q
rOT002
o
It
IOT001,Q
IOT002+1
B1
H001F
SAMPLE TIME
EXAMINE THE
RESPONSE CONTROL
AND STUFF
THE
JUMPS ON
REPLY
AND
REJECT
• RJ 2X=HNG
• RJ lX=ERR
• RJ OX=CNT
..
• R.P X2=HNG·
• RP X1=ERR
• RP XO=CNT
(CALLPTJ
1&
LOPERA, I
LOPERQ,I
FNE01S
IOEI00
GET THE DIRECTOR BITS FOR THIS
FUNCTION AND ADD ON
THE Ii E PORTION
GET THE ACTUAL FUNCTION CODE
SNAP A AND Q
SET LAST OPERATION (U .
SET LAST OPERATION ca)
CHECK FOR 17X6 OPERATION
SET UP OUTPUT
RTJ
IOE130
EXECUTE OUTPUT
STQLoQSTQLDQLDASAP
LOQ
LOf'RSP,1
B1
B2
CALLPT
SPB
ENQ
LoASAH
RTJ·
LDQQRS
RAOLOQ·
JHP+
NUM
ENQ
LDA- .
n
C)
HE,I
. 2,Q
FNE007-·-1
=)(IOE135
o
1
CCALLPTJ ,Q
FNEG10-·-1
IOE050
B2
1
TK128
IOT002,Q
O,Q
•3
CCALLPTJ.Q
SAVE THE RESPONSE CODE
(RP=2,ER=1,IR=O)
GET TI fER VALUE
BIT 15 FOR NON-PROTECTED ·1/0
SKIP IF BIT NOT SET
110 INSTRUCTION ADDRESS
RESET PROTECT BIT
DOES CALLER WANT STATUS
NG-St(IP
COpy THE STATUS
CONVERT RESPONSE CODE TO
O=RJ
l=RP
UPDATE 128 USEC COUNTER
BRAMCH ON RESPONSE
DOES CALLER WANT 17X&
PAGE
93
PAGE
SHHOOO
4217. 0866 0112
4218 0867 £120
1t219 0868 1805
4220 0869 E106
4221 . OB6A F076
4222 0868 0123
.. 223 086C ,.120
1t22,. 0860 Cl1F
1t225 '086E lCF4
4226 086F OFC2
,.227 0870 0125
"228 OB71 CIIF
4229 OB724120,
4230 0873 5800
OB7.. 0090
4231 OB75 1808
4232 OB76 Cl06
,4233 0877 9076
4234 OB78 0822
4235 OB79 4120
42~6 097A 18F2
4237
..238
.. 239
.. 240
1t2ft1
4242
"2it3
,.244
42ltS
42"6
4247
1t2 .. 8
42 .. 9
4250
"25.1
4252
4253
4254
4255
4Z56
.. 257
4258
.. 259
,.260
"261
4262
097B'S415
087C 0864
OB7D 811B
OB7E 6118
OB7F 0134
Oe80 CI1F
0881 E120
0882 003B
0883 18CA
0884 QAOl
0885 1802
08&6 OA02
aB87 aC04
0888 610F
OB89 1637
OB8A OCOS
0889 1637
OB8C 088A
0880 0886
088E 0078
008F 0000
0890 0000
FNE018
FNE019
•
•
•
•FNE020
FNE030
FHE034
FNE036
FNE038
IOT001
IOT002
FNE016:"·-1
LOPERQ 9 I'
FNE017
HE.I
8IT11
FNE018-·-1
LOPERQ,I
LOPERA,I
(FNE015)
SAN
LOQJHP·
LOQAOQSAP
STQLOAJHP·
ALS
SAP
LOASTQRTJ
FNE019-·-1 .
LOPERA,I
LOPERQ 9I
10E120
JHP·
LDASUBTRA
STQJ"p.
FNEOO5
HE,I,
BI111
Q
LOPERQ,I
FNE017
RTJ"'!
TCA
ADDSTASAH
LDALOQRAoJHP·
ENA
' JHP·
ENA
ENQ
STAJHPENQ
JHPADC
ADC
AOC
HUH
NUH
YES-SKIP
NO
SET UP FOR FN/TERH XFER
THIS IS A FUNCTION REQUEST
2
(CLOCK)
A
TIMER.I,
TIHER91
FNE030-·-1
LOPERA,I
LQPERQ,I
' TI<64
FNEOO5
1
FNE036
2
4
HNTERR,I'
CCALLPT) ,Q
5
CCALLPT) ,Q
FNE038
FNE034
FNE020
•
•
THIS IS A TERHINATE REQUEST
SET UP FOR INPUT
00 THE INPUT
THIS IS A 1716 BUFFERED
TRANSFER REQUEST'
ENTER HANG ON RESPONSE
DECRE" fNT THE "SEC TIHER
(CALCUCATE USECS IN LAST 'LOOP'
GET THE CURRENT CLOCK
DECREHENT
THE
TIMER
SKIP IF ERROR
GET THE OPERATION
CODES AND
UPDATE 6,.
USEC COUNTER
HANG
TIME ERROR (CODE 1),
RESPONSE ERROR (CODE 2.
EXIT TO
USER AT
ERROR RETURN
EXIT TO
USER AT NORHAL RETURN
CCNT)
CONTINUE ADDR
(ERR)
ERROR ADOR
CHNG)
HANG AODRR
REJECT BRANCH INSTRUCTION
REPLY:BRANCH INSTRUCTION
.......................
.............................................................•
•
•
•
60411400
n
FNEO 17
DATE' 12/17/74
~
426,.
4265
4266
4267
()
FNED16
94
•
PAGE
C
f \/
,
•
HONITOR STATUS
(\
()
/~
j
()
94
(j
f \/
"
o
PAGE
SMHOOO
,,270
OB91 0000
08925 .. 26
OB93 541F.
"273 OB94 C,,37
4274' OB95 611A
"275 0896 6118
4Z.76 OB97 5415
4Z77 0898 003A
4218 0899 0037
.. 279 089A 0037
4280 OB99 583G
.4281 OB9C 5600
0890 0092
4282 099E GOOE
4283 OB9F OCFO
4284 08AO F037
4Z85 DBAl 4037
42.86 08AZ DADO
4287 OBA3 EZ01
4288 OBA4 411C
4289 DBAS DFEa
4~90
08A6 61lBC
4291 OBA7 DADO
4292
4293· D8A8 OFE4
429,. 06A9 6080
429·5 08AA OFA4
4~96
DATEI 12/17/7'+
95
........................................................................
4268
4271
.. 272
o
o o
C) C>
OBABC331
4297 .. 08AC EOBC
4298 08AO 827B
4299 OBAE EOBD
4300 08AF A2GB
4301 OBBO D03B
4302 OBBl 011D·
4303 0882 C09E
4301t OB83 0118
4305 OBB4 S41S
4306 OBBS 0864
4a07 08B6 8118
4a08 OB87 611B
4309 OBB8 0131
4310 OB99 18DF
4311 OBBA OAOO
4312 OBe8 1802
4313· 08BC OA03
4314 OBeo OC08
431S OBaE 1802
4316 oeSF oe09
4317 OBCO 60BF
4318 OSCl Cl0A
60411"00C
MNEODO
HNEOOG
NUH
RTJRTJLDAST4START .IRAORAORAORTJ"
RTJ
STAENQ
ADQSTQENA
lOQSTQLLS
STAENA
•••• THE FOLLOWING
LLS
STAQLS
lOALDQEORLOQANDRAOSAN
LOASAN
RTJTCA
HNE01D
HNE012
HNE014
MNEOl6
HNEOl8
ADDSTASAH
JHP·
ENA
JHP·
ENA
ENQ
JHP·
ENQ
STALDA-
o
(HP)()
(FNAEI)
(CALLPT)
XTIHE,! '
TIHER,I
(CLOCI()
TI(32
CALLPT
CALLPT
IOE050
IOE200
93
-2
CALLPT
CALLPT
o
HONITOR STATUS
POSITION FOR CURRENT ERROR BLK I '
SET TH E TIHER
INTO THE ERROR MESSAGE
TIHE LIHIT
GET THE CURRENT CLOCK
UPDATE 32US COUNTER
ADJUST CALL POINT SO STATUS
ROUTINE CAN FIND THE PARAHETER
COpy THE STATUS
CHECK .THE STATUS
SAVE THE CHECK RESULT
RESET
THE
CALL POINT
Q
A
GET STATUS
OCBS 0000
SAVE STATUS CONTROL HORD
STCNTL, I
CONTROL WORD
BSOO OOOC
8
C=CO WITION 1 OR 0
B1
8=8IT NUMBER
a
INST IS ONLY GOOD FOR ST1-5T2- CHANST
S=ST AT US TYPE
4
5000 OOOB
B2
0005 OOOB
4
GET THE STATUS WORD
ST1,9
COHPLI"ENT THE STATUS
91
HO 000 ,Q
IF C=1
HASK OUT ALL BUT THE
B2
BITOO ,Q
CONTROL BIT
UPDATE 64
USEC COUNTER
TI< SIt
ZERO SAYS HANG (CONDITION HET)
MNE016-·-1
SO LOOK FOR STATUS ERROR
B3
ZERO SAYS STATUS Ok
HHE012-·-1
SO CHECK FOR TIHER EXPIRED
( CLOCK)
DECRE" ENT 11 HER
A
IF EXPIERED
TIHER,I
GO .TO ERROR
TltER,I
HNE010-·-l
LOOP
HNE006
STATUS TIME ERROR
o
"NE014
STATUS ERROR CODE 3
3
ERROR RETURN
8
·HNE018
NORHAL RETURN
9
B4
CHECK DSA ACTIVE FLAG
HACT, I
1,Q
PAGE
95
(\
\~/
PAGE
SH"OOO
.. 319 OB'C2 0107
4320 08C3 084,.
4321 ' OBC4 610A
4322 OBC5 C02F
It323 OBC6 09FE
432" 08C7 602F
4325 OBC8 O~11
.. 326 08C9 6030
.. 327 OBCA COBF
.. 328 OBCe 1800
oecc 00A8
HNE020
NO-SKip
YES-CLEAR IT
"NE020-··1
A
HACT,I
to"CT
-1
IOACT
HNE020-·-1
NULL
B4
REE004
REDUCE NO. OF OS" USERS
WAS THIS THE LAST USER
YES-ALLON A/Q READ/WRITE REQ
EXIT MONITOR STATUS
4337
4338
4339
4340
4341"
4342
"343
~
...... ........•......••
~
'
•
•
•................................................... •...................•
4332
4333
4334 '
4335
COpy ALL STATUS AS DETERHINED BY ADDRESSES
IN THE ERROR/OPERATION FILE.
~
OBeD
OBCE
oeCF
oeDO
OBOl
OBD2
0803
OBO ..
0805
OB06
oe07
0808
0809
OBDA
DaDe
oeDC
oeOD
oeOE
OBOF
DeED
OBEl
DBE!
OBE3
OBE4
oeE5
OBE6
OBE7
oeES
OBE9
OBEA
OBES
OBEC
,r~.
10TOoO
·4952
4552
5250
524A
0000
El0l
5831
583A
6131
4129
E102
O03e
0151
1812
5833
6133
412B
DOlA
El03
D03A
014A
582C
6135
4120
El0ft
oOlA
014F
5826
6136
412E
lCES
El05
60411400
n
SAl
CLR
STALDAINA
STASAN
STALDAJHP
•
•
•
43~t
43ft'"
DATE' 12/17/74
..........................................•.•...
4330
4345
4346
43 .. 7
4348
,+3 .. 9
4350
4351
,.352
4353
4354
4355
4356
'4357
,.35,8
4359
4360
4361
4362
4363
4364
4365
,.366
4367
4368
96
IOE050
IOE053
IOE055
RESPONSE MNEMONICS
1,IR
1,ER
1,RP
1,RJ
AlF
ALf
ALF
ALF
NUH
LDQRTJ·
RTJ¥
STASTQLDQRAOSQN
JHp·
RTJ.
STASTQRAOLoQRAOSQZ
RTJ·
STASTQLOQRAOSQl
RTJ"
STASTQJHp·
LOQ-
a
COpy STATUS
GET THE EQUIP STATUS 1 ADDRESS
SET UP FOR INPUT
'INPUT STATUS
STORE THE STATUS
STORE THE RESPONSE
GET THE EQUIP STATUS 2 ADDRESS
UPDATE 64US COUNTER
YES-SKIP
NONE-JUHP
INPUT STATUS
STORE THE STATUS
STORE lHE RESPONSE
UPDATE 32US COUNTER
GET EQUIP 3 STATUS ADDRESS
UPDATE 32US COUNTER
NONE-SKIP
INPUT STATUS
STORE THE STATUS
STORE THE RESPONSE
GET EQUIP ,. STATUS ADDRESS
UPDATE 32US COUNTER
NONE-SKIP
INPUT STATUS
STORE THE STATUS
STORE THE RESPONSE
EXIT AFTER 4TH STATUS
GET THE ADDRESS OF THE CHANNEL
WEST1,I
IOE120
10E13o
ST1,I
ST1RSP,I
HEST2,t
TK64
IOE053··-1
10E055
10E13o
ST2,I
ST2RSP,I
TK32
NEST3,I
TK32
10E055-·-1
IOE130
CHST,I
CHRSP,t
WEST4,I
TK32
10E058-·-1
10E130
CHADR,I
CHARSP. I
nOE050)
HECHST,I
PAGE
C
f
,
'\)
/
~
f
)
()
96
i\
j
r\.I
'.
(~
.,
'\j
.....--,
,
r---......
\
I
'"----
0
C) C) 0
4369 OBED 01"9
4370 08EE 0038·
4371 OBEF 581F
4372 OBFO 6135
4373 OSF1 4120
4374 OBF2El05
4375 OBF3 F07f)
437& OBF4 S81A .
It377 OBFS 61a&
4378 OBFf) 412E
·4379 DBF7 lC09
IOE058
4380 OBFS 0000
4381 08F9 0000: 10T003
IOE100
.. 382 OBFA 0000
4383 DBFB 6123
4384 _ DBFe COOD
DBFO 4F54·
4385 OBFE 6121
,.386 OBFF coon
4387 ocao DlDA
,.388 oeOl 680E
4389 oe02 C1Zl
4390 oe03 leF&
IOE120
4391 oe04·0000
4392 oe05 COOO .
Dca6 .. 94E
4393 Dca7 .6121
439,. DC08 COOO
4395 oe09 a20A
439& OCOA 6805
4397 OCOB.0844
4398 Dcoe 6123
4399 DeOD 1CF6
1t"11
STALOAVFD
STA"
CLR
STAJHp·
-)
r-)
(~,
C) 0
0
c) n'-,'
DATEI 12/17/74 .
97
IOE058-·"1
TK64
IOE130
CHST,I
CHRSP,I
WECHST, I
BIT11
IOE130
CHADR,I
CHARSP, I
CIO£050)
..
0
0
LINSTA,I
=AOT
LINST ,I
D
N8/S0l;X8/INTREJ
IOE135
LINSTA~I
CI0E1DO)
•
=AlN
.-
LINST ,I
D
N8/$02,X8/INTREJ
10E135
NONE .SKIP
UPDATE 6 .. US COUNTER
INPUT STATUS
STORE tHE STATUS
STORE THE RESPONSE
SET UP TO
COpy THE CURRENT
INPUT STATUS
STORE THE ADDRESS
STORE THE RESPONSE
EXIT
REPLY BRANCH INSTRUCTION
ERR FLAG
THIS IS AN OUTPUT REQUEST
(A) TO ERROR MESSAGE
SET LAST INSTRUCTION
INTO ERR HESSAGE
FORH OUTPUT INSTRUCTION
WITH REJECT INFORMATION
GET DATA FOR 110 CALL
EXIT
THIS AN INPUT REQUEST
SET LAST INSTRUCTION
INTO ERROR HESS AGE
FORH INPUT INSTRUCTION
WITH REJECT INFORMATION
A
LINSTA, I
U0E120)
SET CAt TO ERROR MESSAGE
EXIT
•
INPUT/OUTPUT INSTRUCTIONS. THE 1/0 INSTRUCTION IS
FORHED BY EITHER IOE1no OR IOE120.
IOE130
IOE135
10E1,.0
NUH
NUH
JHP
·•..
•
•
•..................................................................................
oeOE 0000
DeOF 0000
OC10 1800
OC11 0001
..•
.. lt12
,.413
441,.
4415
STALOAVFO
STA·
LDAJMp·
NUH
LOA
"
~
,.1,07
,.410
SQZ
RAORTJ·
STA"
STQLOQADQRTJ·
STASTQJMp·
NUH
NUK
NUM·
STALOA
C
()
................................................ ..............................
•
•..
THIS IS THE ONLY ROUTINE THAT CAN EXECUTE
4401 .
,.402
,.403
440r.
4lt05
44·06·
,.lt09
0
PAGE
SMMOOO
c)
C)
10E145
OCl2 4124
OC13 OC02
&0,.11400
C
STQENQ
•
•IOE1,.S
EXECUTE 1/0 INSTRUCTION
DEVICE REPLY
LI tiSTQ, I
2
READIWRITE OVERLAYS IOE140+1
FOR FAST RETURN
(Q) TO ERROR HESSAGE
GET RESPONSE NUHBER AND
..
PAGE
97
(~
\
-_/.
(>
\.-,--
(--\
\._/
(
\,
- --
PAGE
SHHOOO
4416
4417
441~
4419
4420
4421
4422
4423
OC1,.
OC15
OC16
OC17
OC18
DC19
DCIA
5816
lCF8
4124
OCOO
18F8
18FC
18.00
442 ..
4425
-
)
4426
4427
4428
4429
4430
4431
4432
4433
4434
4lt35
4436
4437
4438
1t439
4440
4441
4442
4443
4444
4445
44lt6
4447
4450
4451
4452
4453
4454
4455
4456
4451
4458
4459
4460
1t461
4462
4463
4464
4lt65
4466
OC18 DOlF
OCIC 01Al
DCI016Fl
OCIE 0041
OCIF 0J;A4
OC20 C040
DC21 603F
OC22 C03E
OC2318EB
OC24 COOO
OC25 0000
OC26 68E7
OC27 4124
OC28 OCOl
OC29 18EA
DC2A 0000
OC2B ',OBC
OC2C EAAO
I
r-'
(
)
10E150
IOE155
•
•
•
10£156
IOE160
10E170
OC2E lCFB
DDOA
7FF4
OC2F
OC30
OC31
OC32
oe33
OC34
OC35
OC36
OC31
OC38
OC39
OC3A
OClB
oe3C
OC30
OC3E
DC3F
0000
DADO
66C1
CI05
0113
CI03
10E200
0111
1810·
E037
DOlA
C202
E203
0892
0861t
All5
0874.
6130
RTJ'"
JHp·
STQENQ
JHP"
JHPw.
Jf-lp·
RA«r
SOV
JHP·'
RAoSOV
LDASTALDAJHp·
IOE157
IOT004
OC2D 4122
60411400
,~'\..\
10E165
IOE202
LDAADC
STA·
STQENG
JHp·
NUH
STQLDQ·
STQJMP·
EQU
EQU
NUH
ENA
STA·
LDASAN
LDASAN
JHPw.
LDQRAoLDAlOQLAQ
TeA
ANDEAQ
STA-
DATEI 12/17/74
98
SET NHENDtUC IN ERR HSG
EXIT
(Qt TO ERROR MESSAGE
INT REJECT NUMBER
10E170
CIOE130)
LINSTQ.I
o
I0E165
o
o
INT REJECT ~ •• DEVICE NOT HERE
EXT REJECT ••• HERE NOT READY
READIWRITE OVERLAYS 10E155
WITH STA- 100ATA TO ENABLE
HILLISEC COUNTER
INCREMENT FAST CLOCK
SKIP ON 1 HILLISEC
KEEP TRYING
INCREMENT SLOW CLOCK
SKIP ON TIME OUT ERR
REFRESH FAST
CLOCK
GET DATA AND
REPEAT 1/0
SET ERROR ADDRESS
FOR TIME OUT
1
(Q) TO ERROR MESSAGE
EXT REJECT NUMBER
10E150
10E160
IOTHI
10£156-·-1
10E135
IOTH3
IOE157-·-1
IOTH2
IOTH1
IODATA
IOE135
IOE130
LINSTQ,I
IOE165
•
SAVE RESPONSE NUHBER
Bl
SET RESPONSE NHENONIC
IOTOOO, Q
TO ERR MESSAGE
LINRSP.I
(IOE170)
INTREJeIOE155-IOE135-1t
IOPFUOE135-IOE155) ,
a
CHECK STATUS /
CLEAR THE
ERROR SWITCH
IS THERE A CHANNEL
YES-SKIP
IS THERE A STATUS 3
YES-SKIP
. No-JUHP
YES-CALCULATE EXPECTED CHAN STAT
UPDATE 32
USEC COUNTER
GET THE MASK
GET THE VALUE
CALCULATE.THE
EXPECTED STATUS BY
USING THE MASK, VALUE
AND ACTUAL STATUS
STORE EXPECTED STATUS
o
IOT003
WECHST, I
IOE202-·-:1
WEST3,I
10£202-·-1
IOE208
CALLPT
TK32
2;Q
3.Q
Q
"A
CHST,I
A
XCHST,I
PAGE
C
:)
,~
,f
T
\
n
98
(~
\
)
(,
J
()
,
J
r--\
~\
'-
),
(-----,
\,
"
\_-
0
()
0
'-~
(~)
0 C) C) 0
PAGE
SHHOOO
OC40 8135
OC41 0101
OC42 0886
OC43 Cl05
OC44 0112
OC45 Cl0"
OC46 010e
OC47 E031
OC48 0039
OC .. 9 C20"
OC4A E205
4lt78 oe48 08B2
4479 aCftC 086"
,.480 OCftO'A136
4lt81 OC4E 0874
4482 OC4F 613E
4"83 OC50 B136
448' OC51 0101
4ft85 OC52 D8A6
""'86 OC53 C102
4487 D054 010C
4488 OC55 D03A
4489 OC56 E037
4490 OC57 C206
OC58 E207
41t91
4492 OC59 0892
41t93 OC5A 0861t
4lt9 .. OC59 A133
4495 005e 0874
4496 OC5D 6138
4,.97 OC5E B133
4498 OC5F 0101
4499 OC60 0898
4500 DC61 E037
4501 OC62 D03A
4502 OC63 C4~7
.. 503 OC64 E201
450,. OC65 0882
4505 OC66 0864
4506 OC67 A131
,.507 OC68 0874
,.508 OC69 6139
4509 OC6A B131
4510 DC69 0101
4511 OC6C DB8C
4512 OCoD C888
4513 DC6E ICCO
4514, OC6F 0000
4515 OC70 5426
4516 OC71 541F
4517 DC72 S8BC
4518
4519 OC73 OC07
"461
4468
4469
4470
4471
4472
4ft73
,.,.74
"475
,."76
, "477
60lt11400
e
IOE204
1OE206
10E208
10E212
10E214
REEOOO
REE002
...
EORSAZ
RAO·
LDASAN
LDASAZ
LDQ-
ruo-
LDA' LDQLAQ
TCA
ANDEAQ
STAEORSAZ
RAO·
LDASAl
RAD-'
LDQLDALDQLAQ
TCA
ANDEAQ
STAEORSAl
RAO·
LDQRAOLDALDQLAQ
TCA
ANDEAQ
STAEORSAZ
RAO·
LOA·
JHp·
NUH
RTJRTJRTJ·
ENQ
C~~ ()
0 0 0
c)
C)
DATEI 12/17/74
99
CHST,I'
IOE204-·-1
tOT003
HECHST,I
IOE206-·-1
HEST'hl
IOE208-·-1
CALLPT
TK16
a
DOES EXPECTED EQUAL ACTUAL
YES-SKIP
NO-SET ERR FLAG
CHECK AGAIN FOR CHANNEL
YES-SKIP
IS THERE A STATUS 4
NO-SKIP
CALCULATE EXPECTED STATUS
USEC COUNTER
UPDATE 16
GET THE HASK
GET THE VALUE
CALCULATE THE
EXPECTED ADDRESS BY
USING THE MASK,VALUE
AND ACTUAL ADDRESS
STORE EXPECTED ADDRESS
DOES EXPECTED EQUAL ACTUAL
YES-SKIP
NO-SET ERR FLAG
IS THERE A STATUS 2
NO-SKIP
USEC COUNTER
UPDATE 32
YES-CALCULATE EXPECTED STATUS
GET THE HASK
GET THE VALUE
CALCULATE THE
EXPECTED STATUS BY
USING THE HASK,VALUE
AND ACTUAL STATUS
STORE EXPECTED STATUS
ODES EXPECTED EQUAL ACTUAL
YES-SKIP
NO-SET ERR FLAG
CALCULATE EXPECTED STATUS 1
USEC COUNTER
UPDATE ~2
GET THE HASK
GET THE VALUE
CALCULATE THE
EXPECTED STATUS BY
USING THE HASK,VALUE
AND ACTUAL STATUS
STORE EXPECTED STATUS
ODES ACTUAL EQUAL EXPECTED
YES-SKIP
NO-SET THE ERR FLAG
LOAD THE ERROR FLAG
AND EXIT
RECHECK STATUS
7
POSITION FOR CURRENT ERROR- BLK I
CHECK THE STATUS
RETURN (A)=D=NO ERRS
NORMAL RETURN TO BE
"to
s,O
Q
A
CHADR,I
A
XCHADR,I
CHADR,I
10£208-·-1
tOTOO3,
HEST2,I,
IOE212-·-1
TK32
CALLPT
6,Q
7,Q
Q
A
ST2,1
A
XSTZ,I
ST2,1
10E212-·-1
10T003
CALLPT
TI(!2
(CALLPrJ
1,Q
Q
A
ST1,1
A
XST1, I
ST1,I
IOE214-·-1
10T003
tOT003
(10£200)
CHPX) ,
CFWAEU
10E200
PAGE
99
()
\",j
c)
(-\,
,,-j
(
\.._--~
,.520
"521
4522
,.523
,.52,.
,.525
4526
,.521
,.528
,.529
,.530
,.531
4532
4533
OC1,.
OC15
OC76
OC11
OC18
OC19
OC1A
OC7B
OC7C
OC7o
OC1E
OC1F
DC80
OC81
OC62
OC83
4534
0102
OA03
OC06
6lOF
C102
0101
0002
Cl0F
o03A
1631
0000
5426
5lt1F
5800
FF4E
18EE
REE004
REE005
REE006
CKEOOO
,.541
4548
4549
,.550
4551
,.552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
4563
456,.
'+S65
n
REEOO4-·-l
3
6
HNTERR,I
WEST2,I
REEOO5-·-1
2
HNTERR,1
TK32
(CAlLPT) ,Q
(HPX)
(FWAEI)
IDE050
POSITION FOR CURRENT ERROR BlK I
COpy STATUS
JHP'"
~EE002
GO TO RE-CHECK ROUTINE
0
•
•
•
.....
•
•
•..........................................................................•
•
•..
OC84
OC85
OC86
OC87
OC88
OC89
OC8A
OC8B
OC8C
DC aD
OC8E
ocaF
OC90
OC~H
OCQ2
OC93
OC94
OC95
OCCJ6
DC97
OC98
OC99
0000
EOOO
0026
C013
5406
1201
541F
El0F
CA10
6819
081,.
0842
56&3
Cl1D
DFCC
5868
OFC8
60BE
C11E
OFC4
5863
BOBE
60411,.00
,~
i
)
USED IF A=O
STATUS ERROR CODE 3
ERROR RETURN
SAVE ERROR CODE
IF THERE IS A
STATUS 2
ADJUST RETURN
ADORES
USEC COUNTER
UPDATE 32
EXIT
COpy AND CHECK STATUS
SAZ
ENA
ENQ
STALOASAl
INQ.
LDARAOJHPNUH
RTJRTJRTJ
..........................................................................
453&
4531
4538
4539
4540 .
4541
4542
,.543
4545
45'+6
DATEI 12/17/7,.
PAGE 100
SHHOOO
(~)
I
ERROR ROUTINE
THIS ROUTINE SETS UP THE SHH ERROR CALl
FOR ALL HBS 1/0 DETECTED ERRORS. THE ERROR DATA IS
PICKED UP FROM THE TESTS ERROR FILE.
EREO 00
NUH
LoQ
LOARTJJHPRTJLDQLOA·
STA·
TRQ
CLR
RTJ·
LDAALS
RTJ·
ALS
STALDAALS
RTJ"
EOR-
•
=XERE045-1
CHECK OUT TYPEOUTS
BIT08
(JUMP)
1,Q
(FHAEI)
HNTERR,I
ERT004,Q
ERTa05
A
YES CALL JUMP ROUTINE
POSITION CURRENT ERR FILE
GET CONTINUE ADDRESS
BASEr ON HBS
ERROR CODE
RE-INITIALIZE POINTER
HAKE HBS CODE 1ST ENTRY
GET LAST OPERATION (ASCII)
CONVERT WR/RD/FN CODE
CONVERT ASCII
SAVE LAST 110
CODE
GET LAST 1/0 RESPONSE
GET RESPONSE CODE
CONVERT ASCII
ADD THE RESPONSE CODE
Q
ERE025
LOPER, I
12
ERE070
8
Bl
LOPRSP,I
4
ERE070
B3
PAGE 100
C
(~
'-
/
r
f'\
\
/
/~
/
()
\
~-~
;
C1 0
0
0 C) 0 c) C) 0
DC9A
OC9B
OC9C
DC9D
OC9E
OC9F
DCAD
OCAl
DCA2
OCA3
DCA4
OCA5
OCA6
OCA7
OCA8
OCA9
OCAA
DCAe
OCAC
OCAD
DeAE
OCAF
OC80
OCBl
OC82
OCBl
OCB4
OCB5
OCB6
OCBl
OCB8
OCB9
OCBA
4599 DCBB
4600 OCBC
4601 OCBO
4602 OCBE
4603 DeaF
4604 Deco
460.5 OCCl
460& oce2
4607 , OCC3
4608 DCC4
4609 OCC5
4610 OCC6
4611 OCC7
4612 OCC8
4613 OCC9
4614 oceA
4615 occe
4616 OCCC
4617 OCCD
4618 DCCE
5859
Cl1F
5857
C120
5855
C131
5853
CCE2
6876
E8EO
C202
6874
OC05
1400
DCA8
DCAE
OC83
0005
OC86
OCD5
56JO
5848
Cl1C
5842
1853
5828
5843
1850
C1J9
583C
ClOZ
0111
1812
C133
5837
C138
583;
Cl03
010a
C135
5831
C130
582F
C104
0100
C136
562B
C13E
5829
18lA
Cl05
0106
C13S
60411400
C
ERTOO5
ERT004
ERE050
ERE060
ERE080
ERE082
RTJ·
LDARTJ·
LDARTJ·
LoARTJ·
LOA·
STA·
LDQ·
LDASTA·
ENQ
JHPADC
ADC
ADC
ADC
AOC
ADC
RTJ·
RTJ·
LDARTJ·
JHP·
RTJ·
RTJ·
JMp·
LDARTJ·
LDASAN
JHp·
LDA-
RTJ"
LDARTJ"
LOASAZ
LDARTJ·
LDARTJ·
LDASAZ
LDARTJ·
LDA-
EREoa5
RTJ·
JHp·
LOASAZ
LDA-
C)
(1
'--~
0
C) n () 0
~
oATEI lZ/17/74
PAGE 101
SHHOOO
4;66
It567
456&
4569
,.,70
It571
,.572
.. 573
,.57,.
4575
4576
.. 577
4578
4579
4580
4581
4582
4583
4584,
4585
4586
4587
458.8
4589
4590
4591
459.2
4593
459"·
4595
4596
4591
4598
c-~
£RE025
LOPERA,I .
ERED25
LOPERQ,I
ERE025
ST1,I
ERE025
(EREDOO)
ERTOOl
EREDOD
2,G
ERTOO2
5
SET NO. IN TABLE
GET CA) FOR ERR TBL
GET CQ) FOR TABLE
GET ACTUAL STA TUS 1
SAVE SECT/ERROR CODE
GET THE ADDR OF THE
ERROR CALLER
PTC2
PTC2
PTC3
(0)
•
ERE050
ERED60
ERE04D
ERE060
ERE090
ERED1D
ERE035
STCNTL, I
ERE025
ERE040·
ERE010
ERE035
ERED4D
XST1, I
ERE025
WEST2,I
ERE082-·-1
ERED85
5T2,1
ERE025
)(ST2, I
ERE025
NEST3,I
ERE085-·-1
CHST,1
ERE025
XCHST ,I
ERE025
NEST4,I
ERE015-4'-1
CHADR,I
ERE025
XCHAOR,I
ERED25
ERE040
HECHST,I
ERE015-·-1
CHST,1
CONTINl£ ADDRESS
ERROR CODES DO STATUS TIME OUT
01 I/O TIME OUT
02 1/0 RESPONSE
03 STATUS
04 INT TIHE OUT
GET ALL ACTUAL STATUS
GET ACTUAL CLOCK (MILLISEC)
GET STATUS CONTROL WORD
REPORT THE ERROR
GET STATUS
AND CLOCK
REPORT THE ERROR
GET EXPECTED STATUS 1
IS THERE A STATUS 2
YES-SKIP
NO-JUMP
GET ACTUAL AND EXPECTED
STATUS 2
IS THERE A STA TUS 3
NONE-SKIP
YES GET ACTUA'L
AND EXPECTED
STATUS
IS THERE A STATUS 4
NONE-SKIP
YES GET ACTUAL
AND EXPECTED
STATUS
IS THERE A 1706/1716
NO
YES GET ACTUAL
PAGE 101
r-}----' r)
(
-,
"-- .
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
"636
.. 637
4638
4639
4640
4641
.. 6 .. 2
"643
4644
46 .. 5
4646
46 .. 7
.. 646
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
.4659
4660
4661
4662
"663
4664
'+665
4666
4667
4668
4669
.. 670
4671
OCCF
OCOO
OCD1
OC02
OC1)3
OCD4
OCD5
OC06
OC07
OC08
OC09
OCDA
ocoe
OCDC
OCOO
OCDE
DCOF
OCEO
OCEl
OCE2
OCE3
OCE4
OCES
OCE6
OCE7
OCE8
DCE9
OCEA
DCEe
DCEC
OCEO
aCEE
OCEF
OCFO
DCF1
OCF2
OCF3
OCF4
OCF5
OCF6
OCF7
DCF8
OCF9
OCFA
OCFB
DCFC
OCFD
OCFE
DCFF
0000
0001
OOOZ
0003
582"
C13D
5822
C136
5820
1831
5809
5821
C125
581B
C127
5819
C119
5817
1828
0000
CI02
010B
C133
5811
CI03
0107
C135
5800
CI04
0109
C136
5809
1807
Cl05
0104
C135
5804
Cll6
5802
lCEB
0000
6A26
0001
lCFC
0000
Cl1A
58F9
lCFC
0000
0134
OFCl
0134
OAI0
1804
OAlO
1802
OAZO
60411400
.f'-..
'.
'
DATEI 12/17/7 ..
PAGE 102
SHHOOO
ERE015
ERE090
ERE010
ERE012
ERE020
ERE025
ERE035
ERE070
ERED72
ERE014
RTJ·
LOARTJ·
LDARTJ·
JHP·
RTJ·
R.TJ4
lOARTJ·
LoARTJ·
LOARTJ·
JHp·
NUH
LDASAZ
LDARTJ·
LOASAZ
LOARTJ·
LDASAZ
LOARTJ4
JHp·
LOASAl
LDARTJ·
lOARTJ·
JHp·
NUH
ST4·
INQ
JHp·
NUH
LDARTJ·
JHP·
NUH
SAM
AlS
SAM
ENA
JHp·
ENA
JHp·
ENA
ERE025
XCHST,I
EREG25
CHADR,I
ERE025
ERE040
EREUD
ERE035
IHR,I
ERE025
lIt£NO,I
ERED25
ITLINS, I
ERE025
ERE040
.
HEST2,I
ERE012- 4-1
ST2,1
ERE025
WEST3,1
ERE012-·-1
CHST,I
ERED25
WE~4,I
ERE020-·-1
CHADR,I
ERE025
ERE020
WECHST,I
ERE02D-·-l
CHST,I
ERE025
CHADR, I
ERE025
(EREOID)
•ERTOO3,Q
AND
EXPECTED STATUS
GET CHANNEL ADDRESS
ACTUAL AND EXPECTED
REPORT THE ERROR
GET MASK VALUE
GET SPECIFIC LINE NO.
GET LINES ASSIGNED THIS TEST
REPORT THE ERROR
IS THERE A STATUS 2
NO-EXIT
YES
IS THERE A STATUS 3
NONE-SKIP
YES GET IT
IS THERE A STATUS 4
NONE-SKIP
IS THERE A 1706/1716
ZERO SAYS NO
YES-GET ACTUAL VALUES
EXIT
TO ERROR TABLE
1
(ERE02,)
•XTIHE,I
GET EXPECTED TIHE
ERE025
CEREOl5)
EXIT
•ERE072-·-1
1
ERE074-·-1
S10
ERE076
$30
ERE076
$20
HR=10=RfPLY
RO=ZO=EXT REJ
FN=30=INT REJ
PAGE 102
C
\.
-'
.'
"')
(l
(\
\
l
r~
"
J
f\
\
./
" \J
,----/
C) 0
() (J 0
0
0004
0005
0006
0007
0008
OOOg
ODOA
OOOB
OOOC
0000
DOOE
OOOF
0010
0011
0012
0013
001 ..
DOtS
0016
0017
0018
0019
OOlA
001B
ODtC
0010
DOlE
OD1F
"6~9
.. 700 0020
4701 0021
4702 OD22
4703 OD23
"70" DDZ4
4705 0025
4706 0026
4707 0027
0028
4708 0029
4709 0021
4710 . 002B
4711 OD2C
4712 0020
4713 . DD2E
4714 002F
lCF6
4812
E091
C2c)1
A082
OFCC
E80D
680C
0844
58E5
OF21
Ca08
0874
OFC4
B06E
6804
Oa44
5402
1811
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
E800
FF58
.. OFF
E201
OOFE
OA10
S.. 06
1201
1103
~D411400
l~
C
ERE076
ERE040
ERE100
ERTOOO
ERTOOl
ERT002
ERTOOJ
ERE045
JHPSTQ·
LOOLOAANOALS
LOQ·
STACLR
RTJ·
QRS
LOA·
EAQ
ALS
EORSTA·
CLR
RTJJHp·
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
NUH
HUH
NUH
NUH
NUH
NUH
NUH
NUH
Loa
STQLOQINQ
ENA
RTJ. JHPJHP-
C) ()
() 0
0
() C)
OATEI 12/17/74
PAGE 103
SHHOOO
4672
4673
467 ..
4675
4676
,.677
4678
4619
4680
4681
4682
4683
4684
.. 685
4686
4687
4688
4689
4690
.. 691
4692
4693
469 ..
4695
4696
4697
4698
c) 0 0
CERE07o»
ERTOOO
TSACTV
TSFREQ-l,Q
HFFOO
12
ERTOOO
ERlaOO
A
ERE025
1
ERTOOD
A
4
BITOJ
ERlOOO
A
( STOP)
ERE045
EXIT
NUHBER .OF STOPS
GET TEST NUHBER
NOH HAVE $XXYZ
ADD A BLANK
TO THE TABLE
NO. OF STOPS
GET TEST NO.
SET NO. OF STOPS
ADD IN
THE ERROR STOP
REPORT ERROR
•
•
•
.•
-
S)(XYZ PARAHETER
SSSEE PARAMETER
TEST RETURN AODRESS
HBS ERROR CODE 0000-0004
LAST OPER FN/RO/WR - 10/20/30
LAST OFERATION CA)
LAST 0 FERATION (0'
STATUSl
0
EREOOO
BLANK
GET REPEAT CONDITIONS
...
..
•.
...
.
I
ADDRESS
1,Q
-1
$10
CHECK REPEAT CONDITIONS
3.1
REPEAT
NO
(JUMP)
1,Q
PTe2
PAGE 103
c_--)
c~
c-'
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
4716
4717
,.718
,.719
4120
4721
4722
4723
4724.
4726
4727
•
•
•
•
•
•
•
TIHE CLOCK ROUTINE
SUHS ELASPEo TIHE SINCE ROUTINE HAS LAST CALLED
ALL USEC COUNTERS ARE CLEARED
ELASPEO TIHE IS ADDEO TO TCLOCK
ROUTINE CALL
RT J(CLOCK.
UPON LEAVING ROUTINE (A)=TClOCK (VALUE IN
TIED 00
TIE001
NUM
RAORAORAOLoAALS
AOOALS
ADOALS
ADoALS
LOQ·
HUI·
LRS
AOOCLR
DVI
HSEC)
•
•
•
•
•
•
•
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
0030
0031
,.728 0032
47Z9 0033
4130 0034
4731 0035
4732 0036
4733 0031
413ft 0038
4135 0039
473& . 003A
4737 0038
4138 003C
4739 8030
47"0 . 003E
4741 003F
,.1 .. 2 0040
47"3 0041
00,.2
474 .. 0043
4745 0044
4746 0045
47;'7
4748 00"6
4749 00lt7
4750. OD48
4751 0049
004A
4752 0048
4753 004e
4754 00.. 0
4755 OOItE
..75& 004F
It757 0050
4758 0051
4759 0052
4760 0053
0054
4761 0055
0000
O03C
o03B
D039
C03C
OFC1
8039
OFC1
803A
OfC1
8039
OFC"
E834
2A31t
OF67
8038
0842
3000
03E8
4038
8831
6830
9109
6039
OCOf
CAOO
FCF6
0107
9039
0125
40BE
OA07
5428
EOBE
0844
6AOO
FeEC
ODFE
60411400
n
DATEI 12/17/74
PAGE 104
SHHOOO
TIED 02
•
TIED 03
STQADO·
STA·
SUBSTAENQ
LOA
Q
=N1000
TKR
TClOCK
TClOCK
15
IHTOO1-1tQ
SAP
STQENA
RTJLOQCLR
STA
INQ
-1
sua-
PROCESSING CONSTANTS
208US TOTAL NO INTS ACTIVE
ADO 3.3US EACH ACTIVE INT
128 USEC COUNTER
HULTIPLY BY TWO
AND ADO NEXT USEC COUNTER
CONTINUE THIS PROCESS
UNTIL LAST
USEC
COUNTER IS ADDED
HULT 8Y 16 TO GET HICROSEC
HAKE Q REFLECT HEHORY SPEED
SPEED fACTOR
DIVIDE 8Y 128
ADO RENlINOER FROH LAST CLOCK
TIME
CONVER T USEC TO HILLISEC
SAVE REHAINOER
PTC2
PTC2
RUNNING TOTAL
I REG= CURRENT ERROR FILE ADDR
PRGClK, t
TK16
TI£004... ·-1
TK16
TIE004···1
BJ
ITIHER
(SHERROR)
83
A
INT001-1,Q
SAl
TIED 04
-
0
TK128
TK6It
T1(16
TI<128
1
TK64
1
TK32
1
TI
C'
,,--.
L)
0
r"--'
~)
0
..:
en
::)
0
f
0
0
n
~
~
~d
"-
~I
~I
Ol
~I
~I
NO POSTAGE STAMP NECESSARY IF MAILED IN U. S. A.
FOLD ON DOTTED LINES AND STAPLE
STAPLE
STAPLE
C)
C
FOLD
FOLD
-------------------------------------------~
FIRST CLASS
PERMIT NO. 8241
MINNEAPOLIS, MINN.
,r '.
BUSINESS REPLY MAIL
W
('
Z
NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A.
:::::i
C>
Z
0
....
«
....
POSTAGE WILL BE PAID BY
=>
u
CONTROL DATA CORPORATION
""
(
I
Publications and Graphics Division
4201 North Lexington Avenue
A.rden Hills" Minnesota 55112
....
r-.........
~,
r
i
' •..
f"'-""
FOLD
FOLD
1\
'-
(""
'-
(
C·
I'
I
I
e)
C~
('
"
~
:~ rtI r I} I ftI~ Jt ~t ~ ~ ~ ~ ;~ ~ t~ ; ~t ~; ; t;~t ~; ~tr ;~ }~ t~ t~ ~ ~ r~ }t~j ~ E
I
~
('
',,--
j
~ ~CUT OUT FOR USE AS LOOSE -LEAF BINDER TITLE TAB
C_~
C
/
('
I,
\,.
(
'-
"
(-
\... f
(
. -.-. .
-
)
~
CONTROL DATA
\.
8100 34th AVE. SO., MINNEAPOLIS, MINN. 55440
PRINTED IN U.S.A.
..
'
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Modify Date : 2009:08:25 23:03:56-07:00 Create Date : 2009:08:25 23:03:56-07:00 Metadata Date : 2009:08:25 23:03:56-07:00 Format : application/pdf Document ID : uuid:8ba2877e-5d8a-42e6-a2c1-9af552024912 Instance ID : uuid:5e6007ea-53fc-4a10-9493-d436359b7095 Page Layout : SinglePage Page Mode : UseNone Page Count : 152EXIF Metadata provided by EXIF.tools