Full text of ""
HAINDEC-10-DFSXA '
SEQ 0001
IDENTIFICATION
PRODUCT CODE: AH-7336F OD
DIAGNOSTIC CODE: DFSXA
PRODUCT NAME: DFSXAGO KLlO '^TE20 TEST
VERSION: 0.7
DATE RELEASED: AUGUST 1985
MAINTAINED BY: 36-BIT DIAGNOSTIC ENGINEERING
AUTHORS: JOHN R. KIRCHOFF
EDWARD CROULEY
FRANK BERNA6Y
RICHARD STOCKDALE
COPYRIGHT (C) 1976,1981,1984,1985
DiilTAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUiPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE I ITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL lQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
nAINDEC-10-DFSXA
PAGE 1 SEQ 0002
TABLE OF CONTENTS
'1
MAINDEC-IO-DFSXA
PAGE 1
SEQ 0002
1.0
1.1
1.1.1
1.1.2
\2
1.2.1
1.2.2
1.3
1.4
1.5
2.0
2.1
2.1.1
2.1.2
2.1.2.
2.1.2.
2.3
2.3.1
2.3.2
2.3.3
2.4
3.0
3.1
TABLE OF CONTENTS
GENERAL PROGRAM DESCRIPTION
PROGRAM PURPOSE
TEST SUMMARY
MD-10-DFSXA CORE MEMORY MAP
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOFTWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
FAILURE ASSUMPTIONS
OPERATING INSTRUCTIONS
LOADING AND STARTING PROCEDURES
LOADING PROCEDURES
STARTING PROCEDURES
1 INITIAL START-UP
2 "DFSXA" CONSOLE COMMANDS
PROGRAM OPTIONS
CONSOLE SWITCH REGISTER
CORE MEMORY LOCATIONS
ACCUMULATOR USAGE
EXECUTION TIMES
ERROR INFORMATION
ERROR REPORTING PROCEDURES
HAINDEC-10-DFSXA
PAGE 2
SEQ 0003
MAINDEC-10-DFSXA
PAGE 2
SEQ 0003
TABLE OF CONTENTS (CON'T)
4.0 PERFORMANCE AND PROGRESS REPORTS
4.1 PERFORMANCE REPORTS
4.2 PROGRESS REPORTS
4.2.1 THE PROGRAM TEST "TRACE" TYPEOUT
4.2.2 INITIAL DIALOGUE PRINTOUT
4.2.3 BOOT-DUMP TEST PRINTOUT
4.2.4 'tFSXAX: LOADING PRINTOUT
4.2.5 THE END OF PASS PRINTOUT
5.0 DEVICE INFORMATION
6.0 MAINTENANCE PROCEDURES
6.1 INTRODUCTION
6.2 PRELIMINARY CHECKS
6.3 BOTTOMS-UP APPROACH
6.4 TOPS-DOWN APPROACH
7.0 MISCELLANEOUS
8.0 HISTORY
9.0 DOCUMENT
10.0 LISTING
MAINDEC-10-DFSXA
PAGE 3
SEQ 0004
1.0
1.1
MAINDEC-10-DFSXA
PAGE 3
GENERAL PROGRAM l SCRIPTION
PROGRAM PURPOSE
■WD-IO-DFSXA" is the KL10 Channel/DTE20 interaction test
for the KL10 computer system. It provides the service engineer
with a software tool that permits interactive testing of all
data channels Into and out of the KLlO's internal memory. The
program can test up to eight KL10 I/O Channels (RH20 HASSBUS
Controllers or NI20 or CI20 Ports) along with up to four front
end PDP-11 Channels (DTE20 KL10 to PDP-T1 interfaces).
The RH20 Channels
operation:
may be tested in one of two modes of
A, In internal loopback mode (deviceless) or
B. By writing/reading data to/from either an RPOA disk
pack or a TU16 magtape drive.
The NI20 or CI20 Ports are tested in much the same way as an
RH20 Channel in internal loopback mode. Data transfers occur
from KLIO memory over the CBUS back to memory over the EBUS
interface (called a 'write') or in the opposite direction (a
•read').
The DTc^O Channels may be tested as follow:
A. With only ihat minimum PDP-11
required to transfer data between
resident software
•11" and "10" core.
The program provides comprehensive error and status reports
that permit the service engineer to evaluate system performance
and aid in detecting and isolating interactive system problems
to the faulty subsystem. This is the only program within the
set of DECSYSl
-20
diagnostics _ _ _ __
testing of both the PDP-1T front-ends and the KLIO I/O channels.
that provides simultaneous
SEQ OOOA
K.
a
cc
ar
w^
o
0
o
0
0
L.
tc
t)
a(
HAINDEC-10-DFSXA
PAGE 4
SEQ 0005
MAINDEC-10-DFSXA
PAGE 4
1.1.1 TEST SUMMARY
T1D-10-DFSXA" consists of 27(8) separate tests carefully
desianed and loqically sequenced to proiz-ide maxifnun fault
resolution (to a failing sub-system) with the mini/num active
hardware configuration. The following is a orief description
of each test:
TSTOl
TST02
TST03
TST04
TST05
TST06
TST07
TST10
This test verifies that the "W-BOX" is halted and then
tests that the status bits of all selected channels
have been properly initialized during program start-up.
This test verifies that the MASS8US enable bit can be
set in all selected RH20's.
This test verifies the ability of each selected channel
to perform a non-interactive "write" operation in non-
inter rupt mode.
This test verifies the ability of each selected channel
to perform a non-interactive "read" operation in non-
inter rupt mode.
This test repeats
it is executed in
the "write" operation
interrupt mode.
of TST03 except
This test repeats the "read" operation of TST04 except
it is executed in interrupt mode.
This test verifies the ability or the channel to
execute a read reverse channel control word. (NI20 or
CI20 ports are not included in this test).
This cest verifies the ability of each selected channel
to jump through core (channel jump CCU), halt properly,
and store the correct channel status. (NI20 or CI^O
ports are not included in this test).
****NOTE****
If the "RELIABILITY MODE" switch option is
selected (refer to paragraph 2.3.1) Tests 01
through 10 are executed on the first pass only.
Subsequent passes iterate tests 11 through 27
continuously until the program is stopped by
the user. (Control-C).
TST11 This test verifies that
"write" interactively.
all selected channels can
SEQ 0005
M.
cc
He
N.
sc
d(
3
0.
a^
P.
d(
0.
T(
ar
MAINDEC-IO-DFSXA
PAGE 5
SEQ 0006
TST12
TST13
TST14
TST15
TST16
TST17
TST20
TST21
TST22
TST23
TST2A
TST25
MAINDEC-10-DFSXA
PAGE 5
This test verifies that all selected channels can
"read" interactively.
This test verifies that all
"read reverse" interactively.
selected channels can
This test verifies that all selected channels can
successfully perform a "write" while the other channels
are "reading' .
This test verifies that each selected channel can
successfully perform a "write" white the other channels
are executing a "read reverse".
This test verifies that each selected channel can
successfully perform a "read" operation while the other
channels are performing a "write".
This test verifies that all channels can properly
execute a sicip channel control word (CCW). :nI2D or
CI20 ports are not included in this test).
This test verifies the RH20 "zero fill" feature for all
selc.ted channels. (NI20 or CI20 ports are not included
in this test).
This test verifies that each selected channel can read
from every core location above the progr-am's first free
location.
This test verifies that each selected channel can write
into every core location above the program's first free
location.
This test verifies that all selected channels can write
and read back using random variables as the test
parameters. The random variables are: (1) data size.
(2) data pattern, (3) and memjry buffer address. (NI20
or CI20 ports are not included in this test).
Same as TST23 except CPU interactive testing is done in
the background. (NI20 or CI20 ports are not included
in this test).
Same as TST23 except that memory interactive testing is
done in the background. (NI20 or CI20 ports are not
included in this test).
SEQ 0006
Q.
tab
2.3
PRO
2.3.1
CON
mod
lef
man
han
SW1
A.
SUI
HAINOEC-10-DFSXA
PAGE 6
SEQ 0007
MAINDEC-10-DFSXA
PAGE 6
SEQ 0007
♦***NOTE****
If the "INHUSR" switch is set
tests (26 S 27) are inhibited.
the next two
*********** *********
->* 'XLDCP" *< — >* "CTY" *
*********** *********
TST26 Same as TST23 except that a CPU interactive test is
executed in user mode in parallel with the random
channel operations. (NI20 or CI20 ports are not
included in this test).
TST27 Same as TST23 except that a memory test is executed in
user mode in parallel with the random channel
operations. (NI20 or CI20 ports are not included in
this test).
1.1.2 MD-10-DFSXA CORE MEMORY MAP
*****************
000000 * *
* EXEC PAGE *
* TABLE *
* *
*****************
001000 * *
* ♦
* SUBRTN *<-
* *
*****************
010000 * *
* KLDDT *
* *
*****************
020000 ♦ *
* DIAMON *
* *
*****************
030000 * *
* FIXED *
* *
*****************
030600 * *
* *
* "DFSXA" *
* ♦
* ♦
*****************
MEMLOW * *
* FREE CORE *
MAXMEM * *
*****************
SUI
18
26
27
28-
HAINDEC-10-DFSXA
PAGE 7
SEQ 0008
1.3
1.4
1.5
MAINDEC-10-DFSXA
PAGE 7
SEQ 0008
1.2 SYSTEM REQUIREMENTS
1.2.1 HARDWARE REQUIREMENTS
0 KL10 CPU with at least 64K of memory.
0 PDP-11 console orocessor with CTY.
0 At least one RH20 MASSBUS controller.
1.2.2 SOFTWARE REQUIREMENTS
0 MD-10-DFSXA DECSYSTEM-20 SYSTEMS EXERCISER
o MD-10-DDQDA DECSYSTEM-10 SUBROUTINE PROGRAM
0 MD-10-DDQDC DECSYSTEM-10 DIAGNOSTIC MONITOR
0 MD-10-D6QDA DECSYSTEM-10 KLIO DIAGNOSTIC CONSOLE PROGRAM
0 MD-11-DXQBA-M DEC/X11 USER'S DOCUMENTATION/REFERENCE MANUAL
RELATED DOCUMENTS AND STANDARDS
0 Related hardware manuals for all devices installed in the
system under test.
0 Diagnostic Engineering Standards and Conventions Programming
Practices. DOC. NO. 175-003-009-00
DIAGNOSTU HIERARCHY PREREQUISITES
'DFSXA" asstmes that the following diagnostic programs have
been loaded ana run error free:
p PDP-1 i based DTE20 Diagnostic
c E-BOX Diagnostics
0 M-BOX Diagnostics
0 Basic RH20 Diagnostics
0 PDP-1 0 based DTE20 Diagnostic
0 Memory Diagnostics
0 TU16 Basic and Reliability Tests
0 RP04 Basic and Reliability Tests
FAILURE ASSUMPTIONS
'!)FSXA" assumes that the program
memory and predictably started_Dy /tCLDCP" to place the
in the console command mode {•DFSXA>' level).
can be loaded into KLIO
program
2.3.2 CORE
2.3.3.
(Not
ACCUl
Tl
perf(
2. A
EXECI
Tl
from
test
MAINDEC-10-DFSXA
PAGE 8
SEQ 0009
MAINDEC-10-DFSXA
PAGE 8
SEQ 0009
2.0
2.1
OPERATING . .STRUCTIONS
LOADING AND STARTING PROCEDURES
♦•♦♦NOTE****
The following procedures assume that the user
has read the "KLDCP" and "DIAMON" documentation
and is familiar with the use of these programs
to load and control other KL10 diagnostics.
2.1.1 LOADING PROCEDURES
A. 1^ ing from RP04 disk pack:
1. Mount the diagnostic pack on RPO and ready the device
2. To instruct *XLDCP" to load from the pack, type:
RPO <CR>
3. To load KL10 microcode , configure memory, load
"SUBRTN", load 'XLDDT" and initialize the system,
type:
BT<CR>
4. To command "KLDCP" to load the program, type:
P DFSXA.A10 <CR>
5. After the program has been loaded, 'XLDCP" will
respond by typing:
>.
6. Proceed to the STARTING PROCEDURE.
HAINDEC-10-DFSXA
PAGE 9
SEQ 0010
MAINDEC-10-DFSXA
PAGE 9
SEQ 0010
B. Loading from the RX01 floppy disk:
1. Mount the floppy containing the program to be loaded
2. To ensure that "KLDCP" will input from the floppy,
type:
RXO <CR>
3. Repeat Steps (3) through (6) in paragraph 2.1.1(A)
above.
MAINDEC-10-DFSXA
PAGE 10
SEQ 0011
HAINDEC-10-DFSXA
PAGE 10
2.1.2 STARTING PROCEDURES
2.1.2.1 INITIAL START-UP
A. After loadinc "DFSXA", KLDCP awaits further commands and
responds by typing:
>.
B. To start 'DPSXA", set up the desired console switch register
options as described in paragraph 2.3.1. To start the
program, type:
STD <CR>
C. Upon starting, "DFSXA" will type appropriate introductory
messages and
1) Enter console command mode by typing a prompt:
DFSXA>
2) Or auto-starc by exerc.aing the default system
configuration (all RH20's in loopback mode and all
front ends in non-DEC/XII mode)
SEQ 0011
HAINDEC-IO-DFSXA
PAGE 11
SEQ 0012
MAINDEC-10-DFSXA
PAGE 11
SEO 0012
2.1.2.2 'fXA" CONSOLE COMMANDS
A. Cofflrnand Summary
The following list is typed out during the initial program
start-up or when the user types the *flELP" command.
A AUTO SELECT & 60
BL BOOT LOAD FRONT END
BH BOOT LOAD S HALT FRONT END
BT BOOT TEST FRONT END
CP PRINT CPU STATUS
0 ENTER DDT
E EXAM SPECIFIED REGISTER(S)
6 GO START TESTING SELECTED DEVICES
H TYPE THE HELP FILE
MB PRINT MBOX STATUS
N PRINT NAMES OF LEGAL REGISTERS
PC PRINT SYSTEM CONFIGURATION
PT PRINT CURRENTLY SELECTED PARAMETERS
PSW PRINT SWITCHES
PST PRINT STATISTICS
R REMOVE THE SPECIFIED DEVICE (S) FROM TEST SELECTION
S SELECT THE FOLLOWING DEVICE (S)
TM PRINT PROGRAM RUNTIME (ELAPSE TIME SINCE PROGRAM STARTED)
Z ZERO TEST SELECTION TABLE
•> TYPE THIS MESSAGE
4.0
PERF
4.1
PERF
T
summ
a n
para
erro
appe
TEST
<C0:
WORD
WORD
CHN
<C1:
WORD
WORD
CHN
<C2:
WORD
WORD
CHN
<C3:
WORD
WORD
CHN
4.2
PROG
T
prog
4.2.1
THE
E
•T»AL
type
as s
wher
trac
HAINDEC-10-DFSXA
PAGE 12
SEQ 0013
MAINDEC-10-DFSXA
PAGE 1?
1
SEQ 0013
B. The "A" Command
This command instructs "DFSXA" to size the system, and start
the exerciser testing the default configuration. This results
in all available RH20^s being tested ii: loopback mode and all
front ends being tested in non-DEC/Xll mode.
The user types:
A <CR>
and the system responds by typing:
CURRENT DEVICE SELECTION:
CO:
CI
C2
C3
C4
C5
FO
F3
4.2.2 INIT
LOADING "DFSXAX*
=> 001
=> 002
=> 003
ETC.
INTO FE# 3
MAINDEC-10-DFSXA
PAGE 13
SEQ OOK
C. The *BL" Command
This command is used to load a selected front end with a
PDP-11 binary file. This file is normally the pre-configured
copy of the DEC/X11 exerciser program for the front end (other
than the master front end). To use it proceed as follows:
1) Insure that the file to be loaded is mounted in the
load device and that device is selected by "KLDCP"
as the input device.
2) Insure that "DIAMON" has been loaded and started.
3) Now type:
S FN:
to select front end number "N".
4) Now type:
BL FN:
after which "DFSXA" will respond by typing:
FILE:
after which you type the name of the file. Then "DFSXA"
wi' I type:
EXT:
after which you will type the file extension followed
by a <CR>
5) "DFSXA" will now call "DIAMON" and load the PDP-11
front end with the file named.
6) After the PDP-11 has been loaded it will be self
started and ready to accept input from its console.
C.I The "BH" Command
This command does the same as the 'BL" command except that
the program loaded into the PDP-11 does not self start. When
you are ready to run the PDP-11 program, set the "CONTINUE
switch on the PDP-11.
NAINDEC-10-DFSXA
PAGE U
SEQ 0015
MAINDEC-10-DFSXA
PAGE U
SEQ 0015
D. The 'BT" Command
This command causes 'DFSXA" to transfer data to and from the
selected front end PDP-11 core. The data transferred is checked
and any ' errors detected during transmission are reported. To
boot test a front end simply type:
BT FN:
where "N" is the number of the front end selected for test.
E. The "CP" Command
A. 2. 3
4.2.4
This command causes 'DFSXA" to read the CPU status words and
print it on the console CTY. To read the CPU status, type:
CP <CR>
The program will respond by typing:
EA: XXX, XXX, XXX, XXX, XXX, etc.
ER: XXX. XXX, XXX, XXX etc.
where "EA" is the content of the left half of the CPU status
and "ER" is the content of the right half. "XXX" indicate and
identify which bits were asserted (set=1).
F. The "0" Command
4.2.5
This command transfers control from "DFSXA" to "KLDDT" to
allow the user to use DDT commands.
6. The "E" Command
This command allows the user to print out the contents of
certain, registers within, the RH20 or device interfaces. Refer
to the 'XELP" ,fi.l,e ftype "H") to get a complete description of
how to us the i command.
5.0
NAINDEC-10-DFSXA
PAGE 15
SEQ 0016
Z. A
HAINDEC-10-DFSXA
PAGE 15
6. The "G" Command
This command is used to instruct DFSXA to start exercising
the system using those devices selected by the last set or
select commands.
H. The "H" Command
This command causes "DFSXA" to type out the help file which
summarizes how to use the various commands.
I. The "ns" Command
SEQ 0016
6.0
6.1
6.2
This command causes 'DFSXA" to print out the contents of the
n-BOX status. To dump this status simply type:
HB <CR>
and "DFSXA" will type:
MA: AAAAAAAA
UD: N RF: XXX, XXX, XXX ETC.
6.3
whAre: A,N,X indicate the status
J. The "N Command
This command causes "DFSXA" to type out a list of all the
register mnemonics that can be used by the "E" command to
examine device registers.
NAINDEC-iO-DFSXA
PAGE 16
SEQ 0017
A. A ,i
HAINDEC-iO-DFSXA
PAGE 16
SEQ 0017
6.A
K. The "PC" Command
This command causes 'DFSXA" to size the system and print out
a list of all devices found on the target system. To print the
configuration simply type:
PC <CR>
and "DFSXA" will type:
SYSTEM CONFIGURATION:
C0<T3.0,>
C1<P0,>
C2<>
C3<>
C4<>
C5<>
F0«:
F3R:
which indicates that you have the following configuration:
o A tape unit on Channel 0 as device #3 and slave device #0
0 A pack on Channel 1 as device #0
0 Channels 2 through 5 in loopback
0 A master Front End *0
0 A restricted Front End #3
L. The 'VV Command
7.0
This command causes DFSXA to type out the contents of the
test selection table. To print the current test selection,
type:
PT <CR>
after which "DFSXA" responds with:
CURRENT DEVICE SELECTION
C0<3.0,>
C1<0,>
C2<>
C3<>
C4<>
C5<>
f?;
NAINDEC-10-DFSXA
PAGE 17
SEQ 0018
PROGRAM:
tjeap tnki.^
MAINDEC-10-DFSXA
PAGE 17
M. The "R" Command
This command is used to remove one or more devices from the
current selection table. To remove a device, type:
R CN:M <CR>
where: N is the channel number
M is the device number on that channel
More than one channel can be referenced by typing a string as:
R CN:M;CX:Y;CA:
N. The "S" Command
This command is used to add one or more devices to the test
selection table. Its syntax is the same as the "R" command
described above. To select device, type:
3 on channel A you would type:
S C4:3 <CR>
0. The "PSW" Command
This command prints the current console switch settings and
available switches.
P. The •T'ST" Command
This command prints the accumulated statistics for all
devices.
0. The "in" Command
This command instructs "DFSXA" to type out program runtime.
To accomplish this simply type:
TM <CR>
and "DFSXA" types:
RUNTIME: HH:«H:SS
SEQ 0018
PROGRAM:
VERSION:
DATE:
UPDATE AU
REASON FOI
PROGRAM:
VERSION:
DATE:
UPDATE AU
REASON FOI
1
PROGRAM:
VERSION:
DATE:
UPDATE AU
REASON FO
1
2
PROGRAM:
VERSION:
DATE:
HAINDEC-10-DFSXA
PAGE 18
SEO 0019
UPDATE AUT
REASON FOF
HAINDEC-10-DFSXA
PAGE 18
SEQ 0019
Q. The "2" Command
This command causes '
table so that no devices
DFSXA"
> are se
to zero the device selection
lee ted to run.
2.3
PROGRAM OPTIONS
2.3.1
CONSOLE SWITCH REGISTER
There are two sets of switches that the user can use to
modify the operation of "DFSXA . They are referred to as the
left and right hand switches. The left hand switches are set
manually and consist of the PDP-11 switch register. The right
hand switches are set by typing into "KLDCP" and are software
switches in KL10 memory.
A. Left Hand
Switches (PDP-11 Console)
SWITCH NO.
SYMBOL
STATE
FUNCTION
15
ABORT
0
1
Normal operation
Abort at end of pass
H
RSTART
0
1
No function
Print to:als and restart "DFSXA"
13
TOTALS
0
1
No function
Print totals and continue run
12
NOPNT
0
1
Normal typeouts
Inhibit all typeouts except forced
11
PNTLPT
0
1
Normal typeout
Print on line printer
10
DING
0
1
No function
Ring bell on error
9
LOOPER
0
1
Continue on after error
Loop on error
a
ERSTOP
0
1
No function
Halt on error
UPDATE AU
REASON FOI
1
PROGRAM
•
•
VERSION
:
DATE:
UPDATE
AU
REASON
FOI
Mi
R
D
A
A
CI
B
A
I
R
PROGRAM
•
•
VERSION
•
•
DATE:
UPDATE
AU
REASON
FO
CI
M
INITIAL
R
INITIAL
A
DATE:
«■«»
NAINDEC-
PAGE 19
J-DFSXA
SEQ 0020
DFSXA DECS
7
6
5
4
3
2
MAINDEC-10-DFSXA
PAGE 19
PALERS 0 No function
1 Print test numbers to allow trace
RELIAB 0 No function
1 Loop on TST11-TST27 on passes
after initial pass
TXTINH 0 Not used
INHPAG Not used, program runs paged
nODDVC Not used
INHCSH 0 Allow cache
1 Inhibit cache
OPRSEL 0 Enter auto-test mode upon program
load or restart (same as typing "A"
to command interpreter)
1 Enter command interpreter upon
initial load or program errors
CHAIN This switch used by "DIAHON" to
control chaining operations
SEQ 0020
B. Right Hand Switches (Type in to "IKLDCP")
SWITCH NUMBER SYMBOL STATE FUNCTION
18 (AGOOOG)
INHUSR
0
1
26 (1000)
LOOPTS
0
1
27 (400)
SPCTST
0
1
28-35 (000-
177)
TSTNUM
Run all tests
Inhibit user mode tests
(Tests 26 & 27)
Sequence through all tests
Loop on current test continuously
No function
Loop on test specified by SU<28:35>
Select test to loop on if Switch 27=1
DFSXA DECS)
DFJ
MAINDEC-10-DFSXA
PAGE 20
SEQ 0021
DFSXA DECSY
MAINDEC-10-DFSXA
PAGE 20
SEQ 0021
2.3.2 CORE MEMORY LOCATIONS
2.3.3.
2. A
(Not appLicabI
.e)
ACCUMULATOR USAGE
Throughout
most of
perform specil
fu progr
AC17
P
AC16
CNTRL
AC15
DEV
ACU
LIMIT
ACT 3
Ac12
PNTR
AC11
ERRDAT
ACIO
PATRN
AC7
CCW
AC6
GOOD
ACS
BAD
AC4
CLKCNT
AC3
DATAPT
AC2J
,0
EXECUTION TIMES
used to
Stack pointer
Generally contains the channel # being tested
Contains the device # if one is being tested
General purpose counter for iterative loops
General use
Pointer
Used to index error stack
Used to index data patterns table
Used to index CCU word test table
Contains what data should have been
Contains what data actually was
Clock count index
Data pointer
General purpose use
The time for one complete program pass may vary anywhere
from one minute to greater than one hour depending upon the
test configuration being tested.
NAINDEC-10-DFSXA
PAGE 21
SEQ 0022
3.0
3.1
MAINDEC-10-DFSXA
PAGE 21
SEO 0022
ERROR INFORMATION
ERROR REPORTING PROCEDURE^)
There are several different error message formats dependent
upon the function being checked when the error was detected.
The error calls themselves are user defined traps and are
described below:
A. "FAULT" Error Message Format
♦♦* TST05 - TRANSMISSION ERROR DURING WRITE ***
ERROR PC: 031133
<C0:>
CM
PT
U1
W2
EA
ER
MA
CNR,MBE,CMD; PIA: 1
DTE. GO; NBC: 1 MFC: WRITE
CLP: 57351
WC : 0 DAC • 0
SBUS,NXM,IOPF,MBPAR,CDIR,ADRP,PWR,
WD: 1
00032354
CHN PRG
0/ CHN JMP TO 57347
57347 / XFER 20 WRDS TO 43245
57350 / SKTp 160 WRDS i LAST XFR
B. 'TAULTl" Error Message Format
PIA: 0
RF: CPU MEM RD
ERf
<C(
CM
PT
Ul
W2
EA
ER
MA
► TST03 - NOT ALL RH20 STATUS BITS=0 ***
»0R PC: 030775
):>
CNR.MBE, PIA: 0
DTE; 60; NBC: 1 MFC: READ
CLP: 57350
WC: 0 DAC: 44245
SBUS,NXM,I0PF,M8PAR,CDIR,ADRP,PWR, PIA: 0
00000002 WD2: 2 RF: CPU MEM RD
OFSXA DECS
MAINDI
PAGE <
-10-DFSXA
SEQ 0023
DFSXA DECS
MAINDEC-10-DFSXA
PAGE 22
SEQ 0023
C. "FAULT2" Error Message Format
♦♦♦ TST25 - DATA ERROR IN BOOT-DUMP TEST ***
PC: 062730
CHN: 13 REC SIZE: 256. WRDS BAD: 237. BUF ADR: 0
ADR
000A3245
000A32A6
000A3247
00043250
000A3251
BAD
000000
771777
777777
777777
777777
000000
777777
777777
777777
777777
GOOD
000000 000240
000000 OQOOOO
000000 OOOQOO
000000 "
000000
XOR
OOOOOQ
777777
777777
777777
777777
000240
777777
777777
777777
777777
D. •TAULT3" Error Message Format
*♦* TST23 - RANDOM EVENT TESTINb
ERROR PC: 031766
♦♦♦ CHANNEL 0 LOGOUT ERROR ♦++
GOOD DAC: UC=0 AND ADR= 0037456
BAD DAC: UC=1 AND ADR= 0037455
**
DFSXA DEC<
3(
NAINDEC-10-DFSXA
PAGE 23
SEQ 0024
DFSXA DECS
MAINDEC-10-DFSXA
PAGE 23
E. 'TAULK" Error Message Format
♦♦♦ TST1A - CHANNEL #N DEVICE #M (ERROR DESCRIPTOR) ***
ERROR PC: PPPPPP
TS: (DTE STATUS REG - ENCODED)
TC: (T010 BYTE COUNT REG - ENCODED)
Note: This is followed by the run summary
printout for all selected devices as
described in paragraph A.1 below.
♦+♦ THIS IS A FATAL ERROR-THE UNIT IS BEING DROPPED! ♦♦♦
F. 'TAULT5" Error Message Format
(Not used in this version.)
6. •TAULT6" Error Message Format
SEQ 0024
♦** TST22 - CHANNEL #13 DEVICE # 0 FATAL BOOTSTRAP ERROR **♦
ERROR PC: 062566
TS: RM,T011DN.PIOENB, PIA: 0
TC: CNT: 0
DFSXA DECSY
333
356
5U
NAINDEC-10-DFSXA
PAGE 2A
SEQ 0025
DFSXA DECSY!
HAINDEC-10-DFSXA
PAGE 24
PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
There is only one performance report and that is the runtime
summary, this printout is invoked each time the program enters
a new test if the "TOTALS" switch is set to a "l" (refer to
paragraph 2.3.1.). It also gets printed as part of a "FAULT4"
error message when fatal errors are reported. The summary
appears as follows:
TEST SUMMARY-RUNTIME:
0:0:37
<C0:>
WORDS WRITTEN:
A5056.
WRITE RETRIES:
0.
WRITE ERRORS:
0.
WORDS READ:
422A.
READ ERRORS:
0.
DATA ERRORS:
0.
CHN ERRORS:
0.
<C1:>
WORDS WRITTEN:
45056.
WRITE RETRIES:
0.
WRITE ERRORS:
0.
WORDS READ:
4224.
READ ERRORS:
0.
DATA ERRORS:
0.
CHN ERRORS:
0.
<C2:>
WORDS WRITTEN:
45056.
WRITE RETRIES:
0.
WRITE ERRORS:
0.
WORDS READ:
4224.
READ ERRORS:
0.
DATA ERRORS:
0.
CHN ERRORS:
0.
<C3:>
WORDS WRITTEN:
45056.
WRITE RETRIES:
0.
WRITE ERRORS:
0.
WORDS REAu-
4224.
READ ERRORS:
0.
DATA ERRORS:
0.
CHN ERRORS:
0.
PROGRESS REPORTS
4.2
There are several different progress repo'*ts to indicate
program status and progress as described below:
4.2.1 THE PROGRAM TEST "TRACE" TYPEOUT
.^ Each. time the program begins a new test it checks the
T>ALERS switch on the PDP-11 and if it is set the program
types out an arrow followed by the test number to be executed
as shown below:
=> NNN
where '>1NN" is the test
tracing program sequence.
number. This feature is useful for
SEO 0025
DFSXA DECS'
87<
MAINDEC-IO-DFSXA
PAGE 25
SEQ 0026
DFSXA DECSY
I
HAINDEC-10-DFSXA
PAGE 25
SEQ 0026
DFSXA DECSY;
97A
4.2.2 INITIAL DIALOGUE PRINTOUT
This printout occurs on the initial start-up of the program
after the user types "STD" to start "DFSXA":
DECSYSTEM KLIG CHANNEL/DTE20 INTERACTION TES^ (DFSXA)
VERSION #.*, SV=#.##, CPU#=##*#. MCV=#**, MCi' #. H0=**, #*HZ
SWITCHES = SSSSSS SSSSSS
CLK SOURCE = NORMAL. CLK RATE = FULL. AC BLK 0
145;
CACHE: 0 12 3
MEMORY MAP =
FROM
TO
SIZE/K
00000000
01377777
384
PI LEVEL (1-7)?
DATA MASK (C-777777777777)?
SYSTEM CONFIGURATION:
Note: System configuration as determined by the
is typed here as described above for the '
149(
Iran is
jprogri
?C' command.
Note: The command list is printed only if "?" is typed.
THE AVAILABLE COMMANDS ARE:
A AUTO SELECT S GO
BL BOOT LOAD FRONT END
BH BOOT LOAD & HALT FRONT END
BT BOOT TEST FRONT END
CP PRINT CPU STATUS
0 ENTER DDT
E EXAM SPECIFIED REGISTER(S)
G GO START TESTING SELECTED DEVICES
K TYPE THE HELP FILE
MB PRINT M60X STATUS
N PRINT NAMES OF LEGAL REGISTERS
PC PRINT SYSTEM CONFIGURATION
PT PRINT CURRENTLY SELECTED PAr<AMETERS
PSU PRINT SWITCHES
PST PRINT STATISTICS
R REMOVE THE SPECIFIED DEVICE (S) FROM TEST SELECTION
S SELECT THE FOLLOWING OEVICE(S)
TM PRINT PROGRAM RUNTIMti ELAPSE TIME SINCE PROGRAM STARTED)
2 ZERO T5ST SELECT lOK TABLE
? TYPE THIS MESSAGE
TYPE "?" FOR .EL"
DFSXA> (Which indicates a readiness to accept keyboard commands)
Notes: i) If the '\)P«SEL" switch is not set the "Pi LEVEL" and
169<
173^
2062
oou
1)ATA MASK requests dre deleted and the default used.
2) After the initial dialogue, subsequent starts print
only the first two lines of the printout shown above.
SEQ 0027
DFSX/
3015
MAINDEC-10-DFSXA
PAGE 26
SEQ 0028
DFSXA
)15
4.2.4
4.2.5
5.0
HAINDEC-10-DFSXA
PAGE 26
SEQ 0028
DFSXA
4.2.3 BOOT-DUMP TEST PRINTOUT
The program will perform a boot/dump test on all selected
front-ends (except that front end containing 'XLDCP") at start-up.
The following printout occurs as each front end is tested:
BOOT-DUMP TEST FE* N
Where "N" is the front end number (in octal).
"DFSXAX" LOADING PRINTOUT
The program must load each front end selected for test with
a copy of "DFSXAX" (11 code resident in DFSXA). As each
front end is loaded the following message gets typed:
LOADING "DFSXAX" INTO FE# N
Where "H" is the front end number.
THE END OF PASS PRINTOUT
At the loaical end of each program pass a pass counter gets
updated and tne following printout occurs as determined by the
setting of the "EP" count given to 'XLDCP".
END PASS N.
Where '>!" is the number of passes in decimal.
. .The default is that the end pass printout occurs after the
initial pass, and then every lOOth pass there after unless the
tP command is given to XLDCP to change the default count.
DEVICE INFORMATION
Refer to the appropriate device manuals for the hardware and
•"•tware information needeci for a more detailed analysis of the
fault information reported by the program
16
Z. A
NAIN0EC-10*DFSXA
PAGE 27
SEO 0029
DFSXA D
1
16
NAINDEC-10-DFSXA
PAGE 27
6.0 MAINTENANCE PROCEDURES
6.1 INTRODUCTION
SEQ 0039
DFSXA
6.2
This section does not attempt to describe a complete set of
troubleshooting procedures for the DECSYSTEn-20. Its purpose is
to provide the novice user with some basic ideas of now to use
DFSXA ' as a maintenance tool.
PRELiniNARY CHECKS
6.3
A. Visually inspect the system to verify that it is cabled up
properly and list what channels are available to test.
B. Insure that any devices to be tested are properly loaded and
ready to "write".
C. Any RH2Cs to be tested in loopback without devices connected
must be properly terminated.
BOTTOMS-UP APPROACH
A. .After powering up the system, verify the integrity of the
PDP-11 front end system by running all the 11 based 11
diagnostics off line. This includes the DEC/X11 run time
exercis*»r for each front end.
B. Now load "KLDCP" into the master front end and load and run
all of the 11 based 10 diagnostics described in paragraph
I.A.
C. Finally load and run all the 10 based 10 diagnostics
described in paragraph 1.4.
D. You ar9 now ready to load and run "DFSXA" to verify system
integrity and detect interaction problems. "DFSXA" should be
run in the following modes:
1. With the "SXA11" loaded and all channels in
loop-back mode.
2. With the "SXA11" loaded and all c^annels
having devices using a device while the remaining
RN20's operate in loop back.
W
NAINOEC-IO-DFSXA
PAGE 28
V^«%Ck — Ik^ lAt * ««#«n^ A t*t
SEQ 0030
DFSXA D
6.A
TOPS-DOWN APPROACH
NAINDE
PAGE )
:-10-DFSXA
SEQ 0030
DFSXA DE
7.0
A. Power up the system - boot It - and load 'XLDCP".
B. Use the error and status reports provided by "DFSXA" to
localize the problem to the minimum failing subsystem. (Use
the "S ' and "^ ' commands to selectively modify the test
configuration dependent upon the error information provided).
C. Once the problem has been isolated to a subsystem, use the
the individual subsystem diagnostics to isolate the problem
to the field replaceable unit.
MISCELLANEOUS
None.
PROGRAM:
ijear mu.
HAINOEC-IO-OFSXA
SEQ 0031
DFSXA OE
8
PROGRAM:
VERSION:
DATE:
MAINDEC-10-DFSXA
0.7
AUGUST 1985
SEQ 0031
DFSXA DE
UPDATE AUTHOR: HITESH VYAS
REASON FOR UPDATE: MODIFY CCU BUILD ROUTINE TO SUPPORT FOUR MEG MEMORY.
THIS VERSION AFFECTS TST21 THRU TST27 AND ROUTINE
MODIFIED ARE BLDLST AND RMEM CDFSXAM.MAC3.
REWRITTEN PSW ROUTINE PER GREG SCOTT.
NOTE: IT IS RECOMMENDED THE USER SHOULD TEST CHANNEL
WITH MASSBUS DEVICES AND DEVICELESS SEPARATELY
TO GET MORE ACCURATE RESULT FROM THE DIA6.
PROGRAM:
MAINDEC-10-DFSXA
VERSION:
0.6
DATE:
APRIL 1983
UPDATE AUTHOR: RICHARD STOCKDALE
REASON FOR UPDATE:
1. ADDED CODE TO SUPPORT NI/CI PORTS. UP TO 8 PORTS ARE
SUPPORTED. NO DISTINCTION IS MADE BETWEEN HOW NI AND CI
PORTS ARE HANDLED. MOST OF THE TESTS SUPPORT NI/CI PORTS
WITH THF EXCEPTION OF READ REVERSE, RH20 SKIP, AND RH20
CHANNEL JUMP TEST. AN ADDITIONAL MODULE 'DFSXAM.POR* IS
ADDED WHICH CONTAINS PORT MICROCODE AND THE MICROCODE
LOAD ROUTINES.
PROGRAM:
VERSION:
DATE:
UPDATE AUTHOR:
MAINDEC-10-DFSXA
0.5
OCTOBER 1981
RICK JEVON
REASON FOR UPDATE:
1. ADDED CODE TO REPORT MEMORY ERRORS.
2. ADDED CODE TO RHCFG1 FOR KLIPA DETECTION.
PROGRAM:
MAINDEC-10-DFSXA
VERSION:
0.4
DATE:
FEBRUARY 1978
UPDATE AUTHOR: BILL SCORZELLI
REASON FOR UPDATE:
SEQ 0032
DFSXA DE
UPDATE AUTHOR: BILL SCORZELLI
REASON FOR UPDATE:
1. ADDED 'TIEMZRO" AFTER PGMINT TO ZERO OUT MEMORY SO WE
CAN START WITH A NEW SLATE. IF THERE W;.S AN MB PARITY
ERROR IN MEMORY BEFORE THIS PROGRAM WAS LOADED A
♦♦•TRANSMISSION ERROR*** WOULD OCCUR. 'liEMZRO'^' RESOLVES
THIS PROBLEM.
2. TEST 11 FAILED BECAUSE OF HARDWARE ECO REV #11. THIS
WAS FIXED BY CLEARING "DONE" AT THE END OF TEST 10.
SEQ 0032
PROGRAM:
MAINDEC-10-DFSXA
VERSION:
0.3
DATE:
JANUARY 1977
UPDATE AUTHOR: JOHN KIRCHOFF
REASON FOR UPDATE:
MAKE PROGRAM CHANGES FOR PDP-11/34 PROCESSOR AND BM873-YH ROM.
REQUIRED CHANGES IN WAIT TIMES FOR BOOT/DUMP TESTING AND
DIFFERENT RESETTING OF THE 10-11 DOORBELL.
ADDED OCTAL PATCH LOAD FORMAT TO THE BOOTLOAD OPERATIONS.
ADDED 'BH" BOOT LOAD t HALT OPERATION.
CORRECTED PROBLEM WHEN ALL 8 CHANNELS ARE PRESENT, THE "CHNPRG"
BUFFER AREA WAS ONLY 30 WORDS INSTEAD GF THE 32 WORDS REQUIRED.
ALSO, THE .\'AME WAS CHANGED TO "DECSYSTEM KL1& CHANNEL/DTE20
INTERACTION TEST" FROM •T)ECSYSTEM 2040 SYSTEM EXERCISER" TO
REFLECT THE ACTUAL PURPOSE OF THE PROGRAM.
PROGRAM:
VERSION:
DATE:
UPDATE AUTHOR:
MAINDEC-10-DFSXA
0.2
AUGUST 1976
JOHN KIRCHOFF
ED CROWLEY
REASON FOR UPDATE:
COMPLETE REDESIGN AND UPGRADE TO INCLUDE DTE20 TESTING.
MAJOR CHANGES MADE TO ALL PORTIONS OF PROGRAM.
INITIAL RELEASE:
INITIAL AUTHOR:
DATE:
DFSXA - A
FRANK BERNA6Y
FEB. 1976
DFSXA DEC
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 1
SEQ 0033
DFSXA DEC!
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AUG-85 U:12:04 PAGE 1
SEQ 0033
DFSXA DEC
DOCUMENT
**************
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
**************
COPYRIGHT 1985
DIGITAL EQUIPMENT CORPORATION
HAYNARD, MASS. 01754
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AUG-85 U: 12:04 PAGE 2
SEQ 0034
DFSXA DEC
TADi c nc rnuTCkiTC
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 2
SEQ 0034
TABLE OF CONTENTS
*******************
30 ASSEMBLY PARAMETERS
333 GENERAL MASSBUS DEVICE DEFINITION FILE
356 RH20 BIT DEFINITIONS
514 MASSBUS DEVICE BIT ASSIGNMENTS
879 DTE DEFINITION TABLES
974 NIZ0/CI20 Definitions
1455 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
1490 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
1696 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
1734 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
2062 PROGRAM INITIALIZATION
2252 MAJOR TESTS
3098 RANDOM TESTING
3340 RHiO INTERRUPT SERVICE
3555 MISCELLANEOUS
3871 CHANNEL SETUP ROUTINE/RH20 CLOCKING
4551 INTERACTION TESTS
4662 CONTROL ROUTINES
5690 TIMED WAITS
6017 N CHANNELS CONTROL ROUTINE
6414 TOTALS PRINTING ROUTINES
6508 COMMAND CONTROL
DFSXA DECS
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 3
SEQ 0035
TAOi c nr rruircftiTc
DFSXA DECS)
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
TABLE OF CONTENTS
*******************
90A2 ERROR HANDLER FOR TYPING CHANNEL STATUS
9383 ERROR REPORT ROUTINES
982A SCOPE LOOP HANDLER
9899 RH20 CONTROLLER COMMANDS
10005 MASSBUS DEVICE COMMANDS
1058A PROGRAM HALTING ROUTINE
10761 CONTROL PARAMETERS
10987 OPERATOR MESSAGES
11184 SYSTEM GENERATOR
11956 NI/CI PORT MICROCODE AND RELATED ROUTINES
123AA DTE20 ROUTINES FOR DFSXA
12674 DTE 20 PROGRAM LOAD
12868 DTE20 FRONT END CONFIGURATION
12911 Di£20 EXERCISOR DATA TRANSFER ROUTINES
13040 DTE20 REGISTER EXAMINE ROUTINES
13113 DTE20 CONTROL ROUTINES
13553 PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
13702 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
13955 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
14147 *STOR* RESERVED STORAGE. SEPT 18.1979
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 3
SEQ 0035
DFSXA DE
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AUG-8S 14:12:04 PAGE 4
SEQ 0036
DFSXA DEI
..J
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AU6-85 U:12:04 PAGE 4
SO
1
15
17
19
23
HAINDEC-10-DFSXA
PRODUCT CODE: HAINDEC-10-DFSXA
PRODUCT NAME: DECSYSTEM CHANNEL/DTE20 INTERACTION TEST
SEQ 0036
DFSXA DEC
AUTHOR:
DATE:
JOHN R.KIRCHOFF
ED CROULEY
FRANK BERNABY
FEBRUARY 1978
*****************************************************************
ASSEMBLY PARAMETERS
*****************************************************************
32 User mode interception flags
AO Enable PI facility definition
47 Timer definitions
65 Time factors for device operations
72 Switches
78 Assembly parameters
96 Optional starting addresses
11' Accumulator definitions
138 Error list format characters
146 ERSTCK offset values
168 Text macros
194 Miscellaneous macros
210 OPDEF's
285 MASSBUS device commands
306 Write device register commands
315 Operational device commands (TU16 magtape)
321 Operational device commands (RP04 disk pack)
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 5
«^x
SEO 0037
DFSXA dec;
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
326 NI/CI Port conwnands
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 5
SEQ 0037
*****************************************************************
333 GENERAL MASSBUS DEVICE DEFINITION FILE
****«******************************1r********4*** *****************
336 HASSBUS device definition file conditional assembly switches
347 Current NASS6US devices
*****************************************************************
356 RH20 BIT DEFINITIONS
*****************************************************************
359 Device code for the RH20
377 RH20 CONO bit assignments
396 RH20 CONI bit assignments
435 OATAO-DATAI for the drive registers (00-37)
450 DATAO-DATAI for RH20 secondary block address register (70)
459 DATAO-DATAI for RH20 primary block address register (72)
467 DATAO-DATAI for RH20 secondary transfer control register (71)
482 DATAO-DATAI for RH20 primary transfer register (73)
49? DATAO-DATAI for the RH20 interrupt vector register (74)
499 RH2^ register assignments
************* t************************** *************** ********
514 MASSBUS DEVICE BIT ASSIGNMENTS
*****************************************************************
517 HASSBUS device register bit assignments (Registers 00-17)
560 NASSBUS device control register bit assignments (DRCR REG-00)
621 HASSBUS device status register bit assignments (DRSR REG-01)
665 Bit assignments for MASSBUS device error register #1 (DRER1 REG-02)
688 Bit assignments for HASSBUS Haint Reg (0)
712 Bit assignments for HASSBUS device attention summary register (DRAS REG-04)
DFSXA DEC
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 6
ISA
SEO 0038
DFSXA DECI
_J
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7* DECDOC VER 00.25 21-AUG-85 14:12:04
728 Bit assignments for MASSBUS devices desired track sector register (DRDTS REG-05)
739 Bit assignments for MASSBUS frame counter register (DRFC RE6-05)
774 Bit assignments for MASSBUS devices track/sect look ahead register (DRLA RE6-07)
788 Bit assignments for MASSBUS device error register #2 (DRER2 RE6-10)
799 Bit assignments for MASSBUS tape control register (DRTC REG-10)
828 Bit assignments for MASSBUS device drive offset register (DROFF REG-11)
835 Bit assignments for MASSBUS device desired cylinder register (DRDCY REG-12)
842 Bit assignments for MASSBUS device current cylinder register (DRCCY REG-13)
850 Bit assignments for rA^SBUS device serial number register (DRSN RE6-14)
864 Bit assignments fo ;>SjauS devices error register #3 (DRER3 REG-15)
871 Bit assignments for MASSBUS device ECC pattern register (DREC2 REG-17)
*****************************************************************
879 DTE DEFINITION TABLES
*****************************************************************
881 CONG DTN,E
893 CONI DTN,E
903 COMMO region
913 Special bits
923 Special DTE flags for master & KLDCP
948 DTE commands
962 Program load binary - accumulators
PAGE 6
SEQ 0038
OFSXA DECS
93
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AU(i U:12:04 PAGE 7
SEQ 0039
DFSXA DECS
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7
974
DECDOC VER 00.25 21-AUo U: 12:04 PAGE 7
*************************************************************** t*
NI20/CI20 Definitions
*****************************************************************
SEQ 0039
977 CI20/NI20 Port CONI/CONO CSR Bit Assignments
1011 CI20/NI20 Microword Field Definitions
1A11 Microword Macros (Note: If ADDR not specified, 'ADDR'+I is used).
*********************************** 4******* **********************
1455 *PARAH* CONSOLE DATA SWITCH ASSIGNMENTS. SEPT 18.1979
*****************************************************************
1460 DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPEH IN IN USER MODE)
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING. PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
1490 ♦PARAM* PROGRAM/SUBROUTINE PARAMETERS. SEPT 18.1979
*****************************************************************
1493 SPECIAL SUBPROGRAM LINKAGES
1504 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
*****************************************************************
1696 ERROR HANDLING UUO DEFINITIONS. SEPT 18,1979
**** ^************************************************************
*****************************************************************
1734 ♦FIXED* FIXED CONTROL AND DISPATCH STORAGE. SEPT 18.1979
*****v******** ********************************************* ******
***«**************♦*♦********♦•♦•*•***•*••**♦**••******•*••*•***•
2062 PROGRAM INITIALIZATION
*****************************************************************
2068 START - Initialization of program
2105 STARTA • Program re-cycle point
2119 SI - Test control
2219 TSTEND - End of test program control
2239 SLOOP - Scjpe loop utility
DFSXA DECS
9«
9J
0027
DFSXA DECSYSTEM KLIO CMANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 8
2252 MAJOR TESTS
2255 TST01 - Check for state of selected RH20's and CI/NI Ports
2295 TST02 - Test MASSBUS enable bit
2322 TST03 - Check that each channel can do write, individually
2372 TST04 - Check that each channel can do read, individ^fally
2435 TST05 - Test write command under interrupt control
2486 TST06 - Test read command under interrupt control
2539 TST07 - Test read reverse command
2590 TST10 - Test that each RH20 can jump through core, loopback only
2634 TST11 - Do write transfer on all channels (data checking)
2684 TST12 - Do read transfer on all channels (data checking)
2731 TST13 - Do read reverse transfer on all channels (data checking)
2785 TST14 - Do write while others are reading
2833 TST15 - Do write while others are reading reverse
2882 TST16 - Do read while others are writing
2929 TST17 - Test skip feature, RH20 loopback only
2979 TST20 - Test zero feature, RH20 loopback only
3029 TST21 - Write all channels through memory (si2e=1 & split=0)
3064 TST22 - Read all channels through memory (si2e=1 & split=0)
SEQ 0040
DFSX/
0028
DFSXA DECSYSTEM KLIO ChANNEL/DTE20 INTERACTION TEST - VER 0.7*
DECDOC VER 00
21-AUG-85 14:12:04 PAGE 9
SEQ 0041
DFSXA
Q028
DFSXA OECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7
3098
DECDOC VER 00. ^i 21-AUG-85 U: 12:04 PAGE 9
************************************************ *«t ******** ******
RANDOr^ TESTING
A****************************************************************
3101
TST23 " Perform random testing of selected devKe(s)
This test is provided to fill any gap in the preceding tests. The
preceding tests purposely avoided performing any random event. This
uas to keep the testing as controlled as possible. Because some
things may have been overlooked in creating these tests, this test
uill perform random events in random order.
3164
3207
3251
3296
The variables will be: 1. Data size
2. Data pattern
3. Buffer address
TST24 - Perform same random testing, now with CPU interation
TST25 - Perform same random testing, now with memory interation
TST26 - Perform random testing, CPU interation in user mode
TST27 - Perform random testing, memory interation in user mode
3340
3555
*****************************************************************
RH20 INTERRUPT SERVICE
*****************************************************************
3343 INTRHN - Interrupt routines
3404 NVPORT - Handle non-vectored interrupt from an NI/CI port
3429 RHINT - RH20 common interrupt service
*****************************************************************
MISCELLANEOUS
*****************************************************************
3558 RAND - Random number generator
3569 RANLG - Random length routine
3585 RHEHSET - Random memory selection initialization
3596 RNDCHN - Generate channel program of randai length
This routine will generate a channel program with the following
random variables: 1. Data size, 2. Buffer address
SEQ 0041
DFSXA
y>29
DFSXA DECSYSTEH RLIO CHANNEL/0TE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 10
1A2A
BAtlUfiD • n*u«l nn r»i\Hnm unrH l«nnfli
SEQ 0042
DFSXA
J
029
DFSXA OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
3628 RANURD - Develop random word length
36A2 RANBUF - Develop device buffer partitions
3657 RANADR - Generate random buffer address
368A RHEM - Random memory select ft setup
3710 RNDCnP - Perform random data compare for tests 23 through 27
37A6 RE6EN - Regenerate the channel programs for read
3782 RANCLR - Clear buffer before reading random data
3797 UPDC - Update tape desired locations
3825 RNDCLK - Clock possible RH20 loop back operations
*****************************************************************
3871 CHANNEL SETUP R0UTINE/RH20 CLOCKING
*****************************************************************
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 10
SEQ 0042
DFSXA
3874
3942
3971
3995
4008
4021
4036
4051
4059
4079
4111
4136
4169
4205
$STCHN - Channel setup routine
SCHERR - Check for channel errors
SRHIN - Initialize the RH and channel
$DTIN - Initialize the DTE20
SPORIN - Initialize the RH and channel
$CLERR - Clear all possible error flags
$STLP - Relocate loop point
STRAP - Trap catcher setup for interrupts
SWCKB - Write clock all RH's and get data from selected RH
SUCLKC - Write clock selected and read clock unselected
IRCKB - Read clock all RH's and send data on selected RH
SRCLKC - Read clock selected and write clock unselected
SZCLK - Simulate writing the device
SWCL< - Simulate writing the device
ISO
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
t21&
ftACLK * ({auilafa r«jiriinn frnm limuirm
1
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 11
SEO 0043
DFSXA D
030
OFSXA DECSYSieU KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
4235 SRCLK - Simulate reading from device
4269 $SKCLK - Simulate reading from device
4315 SLWRR - Load the write register with data
4333 SEBLA - Send EBL to all RH's
4345 $LJHP - Put channel jumps throughout DATBUF
4359 SCLJMP - Clear channel program
4369 yRLDI - Load all write registers
4383 $LJnPA - Setup a jump always through memory
4403 .UCLK1 - Set UCLK table
4425 .RCLK1 - Set RCLK table
4447 .URRS - Write register commands
4461 SYSCLK - Clock SYSGEN devices in loopback
4511 SETLPB - Setup clock table for SYSCLK
4528 SETPAR - Setup left and right halves for SYSEXE
♦♦♦♦*♦•♦*••**♦♦******♦♦*******»♦•*•♦***♦****»*#♦♦♦♦•♦♦»**♦♦**♦♦**
4551 INTERACTION TESTS
4554 CPUITU - CPU interaction test
4604 SETUSR - Setup user base address register and page table
4619 HEHITU - Memory interaction test
4662 CONTROL ROUTINES
♦♦♦♦♦**♦♦**♦♦♦♦•*****»**•**»•***♦♦*»***»**♦*»*♦»****»****«**»»•»*
4665 BLOLST - Build channel CCU's for walking data test
4719 BLDDTE - Build DTE20 CCW's for walking data test
4754 SURT - Start the write on all channels
4835 SRD - Start all RH20*s reading data
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 11
SEQ 0043
DFSXA
131
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST • VER 0,7*
491S SMTn - Start thm writ* on this channel
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 12
SEQ 0044
DFSXA C
n
DFSXA OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 12
A915 SURTO - Start the write on this channel
4972 STWRT - Start the RH20 writing
4987 SWTDV - Start write on device
(DEV)=-1<0:13> selected=<14> TU16=<15> SLV=<16:17>,.DEV#
5016 SURTRP - Start write on RP04
5049 SRDDV - Start read on device
(DEV)=-1<0:13> selected=<14> TU16=<15> SLV=<16:17>,,DEV#
5072 CHKRDY - Check ready state of test device
5086 SRDRP - Start read on RP04
5117 SRDO - Start this RH20 reading data
5174 POROUT - Write data to port (to start it)
5184 STRD - Start the RH20 reading
5199 UPDVPT - Update media pointer
5207 SRDR - Start all RH20's reading data in reverse
5254 SRORO - Start read reverse on one unit
52^5 STRDR - Start the RH20 reading (reverse)
5290 REVCOR - Change entry in STWRD2 for read reverse command
5304 STZRO - Start selected channel doing skip read (zero fill) with
last transfer bit on
5348 CHKLOG - Check the correctness of the logout data
5381 CHKLGA - Check all channels for correct logout
5414 OTECLOG - Check DTE20 logout
5455 SSTDAT - Setup routine for DATBUF - used on simulated writes
5472 SSTDEV - Setup device buffer - used on simulated reads
5488 STREV - Load DATBUF - load rev DMYBUF - clear DEVBUF
SEQ 0044
DFSXA DE
DFSXA DECSYSTEN KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7* DECDOC VER 00.25
5502 STREV1 - Load DEVBUF - load rev DMYBUF - clear DATBUF
21-AUG-85 14:12:04 PAGE 13
SEQ 0045
DFSXA DE
12
DFSXA OECSYSTEH KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7* DECDOC VER 00.25
5502 STREV1 - Load DEVBUF - load rev DMYBUF - clear DATBUF
5515 SLDBUF - Load buffer routine
552A SCLBUF - Clear buffer routine
5532 SGTNMI - Get first free number
5543 SKPLD - Setup DEVBUF and DATBUF for skip test
5557 ZROLD - Setup DEVBUF and DATBUF for zero test
5576 SKPCHK - Check for zeroed DATBUF on skip read test
5605 ZROCHK - Check for zero fill pattern in DEVBUF
5629 SELRH - Select an RH and fix clock tables
5676 SELDV - Setup registers DEV and CHNDEV
************************* ***********«t**************t*************
5690 TIMED WAITS
*****************************************************************
5693 U1SEC, U600MS, WA50MS, W300MS, Wl SO/IS, WAOMS, WIOMS, WIMS, WIOOUS.
U50US. W20US. U10US, TIMER - Timed wait using meter board
5739 WCNRl - Wait for channel to logout
5763 WTDNEO. WTDNE - Timed wait for I/O completion, interrupt
5b!l WCMDN - Timed wait for I/O completion, non-interrupt
5908 WCMD6 - Timed wait for DTE20
5961 WCMD7 - Timed wait for NI/CI port
********************************************** *««*t**1^«r**********
6017 N CHANNELS CONTROL ROUTINE
*******************************************i^***«t******* *********
6020 SCWRTA - Start n channels writing
6059 ICWRTZ - Start n channels writing using dummy buffer
6102 STPOS - Position all unselected tape units
6141 $TPOSR - Position all unselected tape units
21-AU6-85 14:12:04 PAGE 13
SEQ 0045
DFSXA D{
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
6172 tCRDRA - Start n channels readina backward
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 14
SEQ 0046
DFSXA DE
..J
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
6172 SCRDRA - Start n channels reading backward
6218 SCRDRZ - Start n channels reading backward using dummy buffer
626A $CRDA - Start n channels reading
6304 $CRDZ - Start n channels reading using the dummy buffer
63A6 RCMP1 - Random data compare
6377 SETCTL - Setup controller tables for execution
6397 TRMTBL - Terminate test tables
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 14
SEQ 0046
DFSXA DEC
1
6414
6508
TOTALS PRINTING ROUTINES
*****************************************************************
6417 PRTOT - Print totals
6441 PUSTAT - Print write statistics
6458 PRSTAT - Print read statistics
6477 PTIME - Print the run time
COMMAND CONTROL
*****************************************************************
6511 SETPRM - Setup the variable parameters for system exerciser
6584 DO.G - GO command
6661 DO.D - DDT or Dn or DL commands
6707 AUTOS - Auto select and go
6761 DO.H - Type command list to user
6772 DO.N - Type names of legal registers
6780 DO.TM - Print runtime
6789 DO.TR - Complement trace option
6800 DO.B, 00. BL - Perform boot test or boot load commands
6838 00. CP - Print CPU status
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
6849 DO.MB - Print HBOX status
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 15
SEQ 0047
DFSXA DEC
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7* DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 15
SEQ 0047
6849 DO.MB - Print MBOX status
6859
DO.E - Examine controller or device registers
6880
DCS - Select specified device(s)
6926
DO. S3 - Select just RH20 or DTE20 (no devices specified)
6964
D0.S4 - Select the slave
6990
D0.S5 - Do pack acknowledge
7009
SCHER1 - Read error routines
7012
Read error while fetching status
7021
Not on-line error
7032
Write lock error while selecting
7041
Rewind failure
7046
Drive didn't go to BOT
7052
PCKER1 - Pack acknowledge errors
7055
Read/write error-won't accept command
7064
Volume valid not set
7073
Device not ready
7078
Position error during pack selection
7086
DO.R - Delete specified device(s)
7116
DO.Z - Reset all device tables
7141
DO.P - Print selection table (or switches)
7318
DECRH - Decode RH20 and specified devices
7369
CMOERR - Command error handler
7378
CMOERP - Command error handler (for NI/CI port)
7388
DECRHX - Decode RH20 and specified devices
7422
PRTALL - Print all of the device registers
!
!
i
i
i
DFSXA DEC
1
1
1
DFSXA DECSYSTEM KLiO CHANNEL/0TE20 INTERACTION TEST - VER 0,7*
7437 PRTTAP - Handle TU16 examine request
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 16
SEO 0048
DFSXA D
DFSXAT n
15
DFSXA DECSYSTEH KLIO
7A37
7457
7478
7487
7524
7563
7590
7617
7659
7671
7683
7691
7717
7727
7750
77-^2
7795
7807
7825
7841
7882
7925
7948
7980
8007
CHANNEL/0TE20 INTERACTION TEST - VER 0,7*
PRTTAP - Handle TU16 examine request
PRTPCK - Handle RP04 examine request
PRTPOR - Print NI/CI port registers
PRTRHG - Handle RH20/DTE20 examine request
PRTPOG - Handle NI/CI port examine request
PRTDTG - Handle DTE2n examine request
GETRG - Decode specified register
RH20 Registers
Decode DTE20 register type
Decode port register type
Setup to leave
GETCHR - Get next character group
RNGCHK - Range check value in AGO
TU16RG - Print TU16 registers
RP04RG - Print RP04 registers
RH20R6 - Print RHPO registers
PRTID - Print drive identification
PRTHDR - Print the header for exam command
PRTCR - Print command register
PRTSR - Print the status reg
PRTER - Print the error register
PRTMT - Print maint register
PRTWR - Print maint register (RP04)
PRTAS - Print atten summary resgister
PRTFC - Print frame counter register
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 16
SEQ 0048
DFSXA OECSYSTEH KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VEP 00.25 21-AUG-85 14:12:04 PAGE U
een /w\y a
DFSXA
E6
DFSXA OECSYSTEN KLIO
8018
8035
80A6
8078
8103
8121
8170
8209
8223
824A
8256
8278
8291
8300
83A1
8367
8377
8388
8424
84A6
8496
8536
8576
8620
8663
CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
PRTTS - Print track ft sector register
PRTCHK - Print check character register
PRTTC - Print tape control register
PRTCSR - Print CSR register
PRTLAR - Print LAR register
PRTENG - CSR bits
PRTALU - Print 2901 register contents
DENMSG - Density message
FHTWS6 - Format message
PRTLA - Print look ahead register
PRTOFF - Print offset
PRTDC - Print desired cylinder
PRTCC - Print current cylinder
PRTER2 - Print error 2
PRTER3 - Print error 3
PRTEC1 - Print error check 1
PRTEC2 - Print error check 2
PRTCHI - Print decoded logout word 1
PRTCH2 - Print decoded logout word 2
PRTCPU - Print CPU status
PRTHBE - Print MBOX status
PRTDT - Print the type register
PRTSN - Print the serial # register
PSTAT - Print RH20 status
PPTCR - Print RH20 primary TCR
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 17
SEQ 0049
DFSXA OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 18
SFQ nnw
DFSXA
DFSXA DECSYSTEN KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
8687 DMFC - Command decode table
872A PSTCR - Pr^'r RH20 2nd TCR
8735 PIVR - Print RH20 interrupt vector
8745 PWRR - Print RH20 write register
8755 PRDR - Print RH20 read register
8765 PPBAR - Print primary block address register
8776 PSBAR - Print 2nd block address register
8786 RHCFG - Print the configuration for RH20's and associated devices
8836 DEVCFG - RH20 reporter - prints local configuration
8863 PKCFG - RH20 device reporter
8877 TPCFG - Handle TM02 and the selected slave
8902 SELPRM - Select PI level and data mask
89A0 INPOCT - Input an octal character
8957 INPLIN - Input a line
8982 ENARH - Enable RH20's if entering SETPRM normally
9034 ZROSUM - Zero summary table
9042 ERROR HANDLER FOR TYPING CHANNEL STATUS
***t**«**** ************************************ t*t************t**
9045 $FAULT - Error handler used to report test failures
9067 STZBRK - Status breakdown routine
9086 STZRH - Print RH20 message
9120 STZDV - Print dev message
9139 STZDT - Print DTE20 message
9168 D«PRHS - Dimp RH20 status and print TCR
9176 DWPTCR - Dump primary transfer control register
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE ^e
SEQ 0050
DFSXA DECSYSTEH KLlO CHANNCL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 19
CFO nn^i
DFSXA
DFSXA DECSYSTEH KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
9184 DMPRHl - Dump channel word 1
9192 DHPRH2 - Dump channel word 2
9200 DMPDSF - Dump device status
9208 DHPDER - Dump device error
9216 D«PCPH - Dunp CPU status
9224 DnPMBH - Dump NBOX status
9232 DNPPRG - Print channel program
9279 DNPJHP - Decode channel jmp
9290 DNPADR - Print address
9300 DHPHLT - Print halt
9310 DHPXFR - Print transfer word
9326 DMPSKP - Print skip command
9340 DHPLST - Print last xfr bit
9347 SSUCHK - Check on halt on error & loop on error
(If "OPRSEL" switch set, return to command interpreter)
SPOPF - Pop in same direction as push
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 19
SEQ 0051
9383
93^6
♦***♦♦*♦♦♦«**♦•••»*•*•••♦»♦***•»•**»»•♦»»•»•»»» t #••*•••»*••••»•••
ERROR REPORT ROUTINES
9386 SFALTI - Error handler for special cases
9410 $FALT2 - Error handler for data errors
9489 $FALT4 - Error handler for fatal device errors
9547 $FALT5 - Error handler for fatal errors
9581 $FALT6 - Error handler for DTE20 fatal errors
9609 $FALT3 - Error handler for logout errors
9673 DTE20 - Logout error reporter
OFSXA DECSVSTEH KLiO CHANN€L/0TE20 INTERACTION TEST - VER 0.7*
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 20
SFQ 0052
r
DFSXA
DFSXA OECSYSTEW KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
9706 DTE20 reading
V741 DTE20 writing
97^3 SDTCMP - Dats comparison routine
9811 PSHBAD - Error data push routine
9824 SCOPE LOOP HANDLER
***************************rY********* ************************* t**
9827 SSCOPE - Handles loading of loop address
9878 TRACE - Trace option
*****************************************************************
9899 RH20 CONTROLLER COMMANDS
*****************************************************************
9902 $USBAR - Load the secondary block address register
9912 SWSTCR - Load the secondary transfer control register
9922 SWIVR - Load the interrupt vector register
9931 SUURR - Load the write register
9940 SWDIAG - Load the diagnostic register
9948 SRROR - Read the read register
9958 SRIVR - Read the interrupt register
9968 $RPTCR - Read the primary transfer register
9978 SRPBAP - Read the primary block address register
9987 SRSTCR - Read the secondary transfer control register
9997 SRSBAR - Read the secondary block address register
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 20
SEQ 0052
DFSXA DECSYSTE»1 KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7"
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 21
10005 MASSBUS DEVICE COMMANDS
10008 $WCR - Write control register - Register #0
10023 SWERI - Write error register - Register #2
10038 $WMR - Write maintenance register - Register #3
10052 $WAS - Write attention sunwnary - Register #4
10067 $WFC - Write frame counter/desired address register - Register *5
10082 $WTC - Write tape control/error register #2 - Register *10
10096 $WOFF - Write offset register - Register #11
10110 $WDC - Write desired cylinder register - Register #12
10124 $WER3 - Write error register 3 - Register #15
10138 $RCR - Read control register - Register #0
10154 $RDS - Read status register - Register #1
10170 SRERI - Read error register 1 - Register #2
10185 $RMT - Read maintenance register - Register #3
10P01 $RAS - Read attention summary register - Register #4
10217 $RFC - Read frame counter/desired addres^ - Register #5
10*^32 $RTC - Read tape control
10248 $RCK - Read check character
10264 $RDT - Read drive type register - Register #6
10279 $RLA - Read look ahead register - Register #7
10295 $RER2 - Read error register 2 - Register #10
10311 $ROFF - Read offset register - Register #11
10326 $RDC - Read desired cylinder register - Register #12
10342 $RCC - Read current cylinder register - Register #13
SEQ 0053
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 22
SEQ 0054
J
0041
DFSXA DECSYSTE- LlO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AUG-85 U:12:04 PAGE 22
10584
10358 $RSN - Read serial # register - Register #U
10373 $RER3 - Read error register 3 - Register #15
10389 SRECI - Read ECC position - Register #16
10A05 $REC2 - Read ECC patte.-n - Register #17
10420 RDLAR - Read LAR
10437 LDRAR - Load RAR
10458 .DATO - Table of DATAO's
10477 .DATI - Table of DATAI's
10495 .CNI - Table of CONI's
10513 .CNSZ - Table of CONSZ's
10531 .CNSO - Table of CONSO's
10549 .CNO - Table of CONO's
10567 INTSRV - Table of interrupt service instructions
*********************** t***«********************«*********t******
PROGRAM HALTING ROUTINE
♦♦***♦♦*♦***•♦♦•**♦♦•• t*»»»***«»**»*»**»*»»»»»*«t**t»*» •**•*»***•
10587 PRGHLT - Program halt routine
10611 STCKER - Stack error (ERSTCK)
10624 T8LERR - Table error - bad index
10634 RDEVER - Read error from drive
10644 HAPERR - MEMSEG error
10656 SIZERR - SIZER error
10667 ERA8RT - Fatal error abort check
If "DPRSEL" switch set go to cofWiand interpreter, otherwise resta'"t
program at STARTA".
10681 PAGERR - Handle user mode page fail
SEQ 0054
0042
OFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
DECDOC VER 00.25 21-AU6-85 14-12:04 PAGE 23
SEQ 0055
OFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
10761
DECDOC VER 00.25 21-AUG-85 Ur 12:04 PAGE 23
************************************************ ***t*******t ****.,
CONTROL PARAMETERS
*****************************************************************
SEQ 0055
1076A Totals block
10798 Memory locations used by memory scan routines
10805 RH20 ID words
10907 CCULST - Forward channel transfer instructions
10919 RCWLST - Reverse channel transfer instructions
10931 SKPCCW - Skip read channel transfer commands
10943 CLKAMT - Clock amount for device simulations
***t********************************* ****************************
10987 OPERATOR MESSAGES
*****************************************************************
11050 EMESG - Error message formats
11139 INTERR - Illegal interrupt detected
*****************************************************************
11184 SYSTEM GENERATOR
*****************************************************************
11187 SYSGEN - System generator - Setup RP04 or TU16 I/O test
11278 SYSCMD - Command decoder
11336 HNDATA - Handle ATA for SYSEXE
11357 TIMOP - Setup time limit
11366 TIMCHK - Check for any time outs
11382 TIMOUT, TIMOT - Print timeout message
11422 SYSEXE - Test generator EXE
11453 REWRCL - Rewind or recal all desired units
11488 SPACM - Space command
11527 WRITE - Start write
"1
OFSXA OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 24
SEQ 0056
043
DFSXA OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AUG-85 U:12:04 PAGE 24
11956
11555 READ - Start read
11583 $TREW - Perform rewind
11616 $DRCL - Perform recal
11644 $DVWT - General wait for device ready
11675 $WTM - Perform URTM
11689 NOTIMP - Feature not currently implemented
11701 $EOF - Write logical EOF
11716 $TBSR - Perform BSR
11732 SSPBSR - Perform BSR
11751 $TPU - Position tape at right spot
11832 $TPU - Check for rewind state
This drive must rewind if it is writing.
First record selection and drive is selected.
11854 $PEF - Find logical EOF and position beyond mark
11886 SDSEK - Perform seek on RP04
11901 CLNTAP - Clean spot on tape
11922 BSRCLN - Reposition tape & clean if write errors
************«**********************i^**t****** ********************
NI/CI PORT MICROCODE AND RELATED ROUTINES
********************w*************«r*************«*«*** ***********
11959 IPALOD - Load microcode and verify it
12062 CALPAR - Calculate parity for a CRAM location
12111 NI/CI Port microcode
SEQ 0056
DFSXA
OFSXAT
S4
)5
}44
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 25
SEQ 0057
DFSXA
DFSXAT
I
1044
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7
12344
DECDOC VER 00.25 21-AUG-85 14:12:04 PAGE 25
******************************* 4r********* ************************
DTE20 ROUTINES FOR DFSXA
*«***************************««t«ttk'* ******* ************************
SEQ 0057
12347 BOOTH - Perform boot of -11
12430
12467
12513
12542
12566
12569
12607
12646
Call:
MOVE
BOOTH
Error return
Normal return
A,[WC,,DA3
This routine will bootstrap the restricted DTE indicated by
index stored in AC "CNTRL . The routine receives two arguments
in AC "A" (the word count S T010 address).
12384 DUMP11 - Perform dump of -11
Call:
MOVE
DUMP11
Error return
Normal return
A.CWCDAJ
This routine will dump the restricted DTE indicated by
index stored in AC "CNTRL". The routine receives two
arguments in AC "A" (the word count and TOlO address).
DMP11 - Special routine for BOOTH - reads no data from 11
BTDP - Dump/boot data test
Master DTE20 KLDCP restart
DTEDAT - DTE20 data generation routine
DTECMP - DTE20 data compare routine
The ROM dump saves PDP-11 registers R0-R7 in PDP-11 addresses 40-56
and the first 12 DTE20 registers in PDP-11 addresses 130-156.
DTELOAD - Fetch and load SXA11 into selectded front end
LDPRG - Request program name and extension from operator
!)45
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
DECDOC VER 00.25 21-AUG-R5 14:12:04 PAGE 26
SEQ 0058
DFSXA
DF<;XAT
J
45
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
12674
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 26
SEQ 0058
*************************************************** **tlr*4^**«r4t***4^*
0TE20 PROGRAM LOAD
12677 LDPR6A - Program selection and PDP-11 bootstrap setup
12718 LPRG1 - Program load "All"
12789 GTURD - Get program word
12813 GTLIN - Get next line of data
12834 LDERl - Error messages for loading routines
12868 DTE20 FRONT END CONFIGURATION
*************************** ********i^*«r«r ****************** ********
12871 FECFG - Configure front ends
************************************************ *********l^**«,tlr***
12911 0TE20 EXERCISOR DATA TRANSFER ROUTINES
*****************************************************************
12914 STWTF - Start DTE20 writing forward
12938 STRDF - Start DTE20 reading forward
12969 MWTF - Master to -11 xfr
12988 MRDF - Master to -10 xfer
13006 MSTAT - Master fetch status from -11
************************************************ tt***************
13040 DTE20 REGISTER EXAMINE ROUTINES
************************************************ *****t^**4^****i^« A*
13043 DT20RG - Print table for examine command
13065 PRTTSG - Print DTE20 status register
13096 PRTTCG - Print T010 byte count
16
DFSXA DECSYSTEM KL10 CHANNEL/0TE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 27
SEQ 0059
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7*
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 27
*****************************************************************
13113 DTE20 CONTROL ROUTINES
13116 $11DB0 - Wait for T011DB to reset
13129 WFBSET - Wait for bit to set
13145 WFBCLR - Wait for bit to clear
13161 $11DN - Wait for T011DN or T011ER
13175 SIODN - Wait for T010DN or T010ER
13188 SCMDSRT - Start program command to -11
13211 SDOCMD - Do program command
13235 SEXMll - Examine -11 address
13255 $EXE11 - Execute a console command
13265 SETCOM - Setup DTE communications region
13311 DTEAVL - DTE20 availability table
13329 INTF10. INTF11, INTF12, INTF13 - DTE20 interrupt service routines
13369 FEINT - Common DTE20 interrupt service
13424 COMMO - Special COMMO area for DTE#0
13441 COMMl - Special COMMO area for DTE*1
13455 C0MM2 - Special COMMO area for DTE#2
13469 CQMM3 - Special CQMMO area for DTE#3
13483 Special Doot area
13526 Tables for program commands
SEQ 0059
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7'
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 28
SEQ 0060
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7
13553
DECDOC VER 00.25 21-AU6-85 14:12:04 PAGE 28
13702
13955
KU7
*****************************************************************
PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
*****************************************************************
SEO 0060
13556 LDPBIN
*****************************************************************
SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
******************* *«r*i^t ******************************** 1^***1^****
************************************************ *****************
SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
************************************************ ******^**********
*STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
■^WmaMW*
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO X558(1242) U:07 21-Aua-85 Page 1
DFSXAT MAC 25-Jul-85 20:06 *PARAM» CONSOLE DATA SWITCH ASSIGNMENTS. SEPT 18.1979
SEQ 0061
DFSXA
DFSXAT
8
9
10
11
12
13
14
15
16
17
18
19
20
22
23
2A
25
26
27
28
29
OECSYSTE« KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 1538(1242) 14:07
25-Jul-85 20:06 -"
MAC
QOOOOO
000007
♦PARAM* CONSOLE DATA SWITCH ASSIGNMENTS. SEPT 18.19
• HAINDEC-10-DFSXA
HCNVER=000
DECVER=007
1:Aua-85 Page 1
SEQ 0061
XLIST
LIST
LALL
NAME
TITLE DFSXA
XALL
;• PRODUCT CODE:
;♦ PRODUCT NAME:
;• AUTHOR:
;•
\MCNVER,\DECVER*
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7'
HAINDEC-10-DFSXA
DECSYSTEM CHANNEL/DTE20 INTERACTION TEST
JOHN R.KIRCHOFF
ED CROWLEY
FRANK BERNABY
;♦ DATE:
FEBRUARY 1978
000137
000137
000000 000007
LOC 137
MCNVER..DECVER
NOSYM
r
PFSXA_ OECSYSTEM.KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aua-85 P«ae 2
^rf w«
(9
DFSXA
OFSXAT
n
DECSVSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page 2
MAC 25-Jul-85 20:06 ASSEMBLY PARAMETERS
SUBTTL ASSEMBLY PARAMETERS
SEQ 0062
200000
400000
020000
010000
004000
002000
000060
007740
012377
400000
020000
020000
000020
000024
002000
004000
001000
040000
400000
460000
0o.'017 777577
702200 000000
702240 000000
000012
QQ0003
000003
000003
;• User mode interception flags
AP.P0V=1B19 ;
AP.REN=1B18 ;
AP.ILM=1B22 ;
AP.NXM=1B23 ;
AP.PAR=1B24 ;
;• Enable PI facility definition
CP.NXM=1B25 ;
ZROFIL=60 ;
CP.ERS=177B30
pushlist overflow
reenable flag
mefflory violation
NXM error
parity error
ALWPI =PI CLR*PI0N*CHN0N*1 ^7
non-existent memory flag
beginning of zero fill area
check CP errors with this mask
;* Timer definitions
CIC=1B18
CITD=1B22
ITD=1B22
TIM=20
MTR=24
TTBN=1B25
TTBF=1B24
CTB=1B26
IT0=1B21
BE6PA6==400000
INITIM=CIC*CITD*ITO
LPAGE==1 7777577
OPDEF LDTIMC702200..0]
OPDEF RDTIM[702240,,0]
clear interval timer
clear interval timer done
timer done flag
address of timer
address of meter
turn on time base
turn off time base
clear time base
interval timer on
beginning of virtual page
last page accessed
;• Time factors for device operations
REWOP==*D10
SPC0P==*D3
WRT0P==*D3
R00P==*D3
[fl
Pf|XA_ PECSYSTEM.KL10 CHANNEUDTE20 INTERACTION TEST -_yER 0,7 MACRO I53B(1242) 14:07 21-Aug-85 Page 3
nccwA
DFSXA
DFSXAT
71
72
73
74
75
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) K:07 21-Aug-85 Page 3
MAC 25-Jul-85 20:06 ASSEMBLY PARAMETERS
SEQ 0063
DFSXA
DFSXAT
78
79
400000
000400
001000
000001
000001
000001
041600
042123
042146
042411
042250
042331
042364
QQ0001
000001
020000
000200
mm
030000
030000
030000
043621
036334
043621
030600
043621
043621
377000
377000
123457 654321
QOOOOO
444663 704100
645560 000000
000000
000000
;* Switches
INHUSR==1B18
SPCTST==1B27
L00PTS==1B26
;* Assembly parameters
PGMEND==1
EXCASB==1
MEMMAP==1
LUU01==$FAULT
LUU02==$FALT1
LUU03==$FALT2
LUU04==$FALT3
LUU05=$FALT4
LUU06=$FALT5
LUU07=$FALT6
KL10==1
KL10P0==1
TRPENB==20000
DEBUG==200
ITERAT==777777
;* Optional starting addresses
SADR1==BE6IN
SADR2==BEGIN
SADR3==BEGIN
SADR5==PRGHLT
SADR6==STPRM1
SADR7==PRGHLT
SADR8==START
SADR9==PRGHLT
SADR10==PR6HLT
SADR11 ==377000
ICCW==377000
PAREA1==123457,, 654321
PAREA2==0
PAREA3==SIXBIT/DFSXA/
PAREA4==SIXBIT/TMP/
PAREA5==Q
PAREA6==0
inhibit user mode tests
loop on specific test
loop on current test
assemble end statement
exec mode
memory mapping
setup dispatch for LUU01
setup dispatch for LUU02
setup dispatch for LUU03
setup dispatch for LUU04
KLIO execution
trap enable bit - turn on paging
program debug area
user mode iterations
; Control-C starting
: altmode starting at command decoder
; go to ERRCVR on illegal UUOS
; initial control word address for mapping
: random number base
PflHA. DECSYSTEM.KLip 5;HANNEi,/OTE20 INTERACTION IESL:_yER 0.7 MACRO 1538(12^2) 14:07 21-Aug-85 Page 4
nCCWA
DFSXA DECSVSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12<2) M,:07 21-Aug-85 Page 4
DFSXAT MAC 25-Jul-85 20:06 ASSEMBLY PARAMETERS
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
13A
135
136
137
138
139
HO
636470
HI
636470
H2
636470
U3
556316
U4
556316
1A5
K6
H7
U8
H9
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
SEQ 0064
DFSXA
DFSXAT
000016
000015
000015
000014
000013
000013
000012
000011
000010
000007
000006
000005
000004
000003
000003
000002
000001
000000
166250
164466
164464
456470
455764
000001
000002
000004
000005
000006
000007
000010
QQ0001
000002
000003
000012
000001
000002
000003
000004
000005
;* Accumulator definitions
CNTRL==16
FE==15
DEV==15
LIMIT==14
AC13==13
LPCNT==13
PNTR==12
ERRDAT==11
PATRN==10
CCU==7
G00D==6
BAD==5
CLKCNT==4
DATAPT==3
D==3
C==2
B==1
A==0
;♦ Error list format characters
STX.RH=SIXBIT/STX.RH/
STX.DV=SIXBIT/STX.DV/
STX.DT=SIXBIT/STX.DT/
MS.ETX=SIXBIT/MS.ETX/
MS.EOT=SIXBIT/MS.EOT/
;* ERSTCX offset values
RHIDW==1
RHSTAT==2
RHWRD1==4
RHURD2==5
RHCPU==6
RHMBE==7
RHETX==10
DVID==1
DVDS==2
DVER==3
DVETX==12
DTIDW=1
DTSTAT=2
DTCPU=3
DTMBE=4
DTETX=5
controller index #
front end index reg
device index register
CONI from current RH
channel status word 2
error stack pointer
data pattern index
channel control word index
good data word
bad data word
temp AC 3
temp AC2
temp AC ADR
temp AC ADR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 5
bf^MA
DFSXA
OFSXAT
166
167
168
169
170
171
172
173
17A
175
176
177
178
179
180
181
^B■^
183
184
185
186
187
188
189
190
191
192
193
19A
195
196
197
198
199
200
201
202
203
204
205
206
207
208
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 5
MAC 25-Jul-85 20:06 ASSEMBLY PARAMETERS
;* Text macros
SEO 0065
TEXT*]>
TEXT
TEXT»]>
•3>
TEXT
DEFINE TMSG(TEXT),<PNTMSG
DEFINE TMSGC(TEXT),<PNTMS6
DEFINE TMSGD(TEXT).<PNTMSG
DEFINE TMSGCD(TEXT),<PNTMSG
DEFINE FMSG(TEXT),<PNTMSF
DEFINE FMSGC(TEXT),<PNTMSF
DEFINE FMSGD(TEXT).<PNTMSF
DEFINE FMSGCD(TEXT).<PNTMSF
:* Miscellaneous macros
r DEFINE FAULT(TEXT).<.FLT
DEFINE FAULT1(TEXT),<.FLT1
DEFINE FAULT2(TEXT),<.FLT2
DEFINE FAULT3{TEXT),<.FLT3
DEFINE FAULT4(TEXT).<.FLT4
DEFINE FAULT5(TEXT).<.FLT5
DEFINE FAULT6(TEXT),<.FLT6
CASCIZ *TEXT*3>
CASCIZ •
CASCIZ *TEXT
CASCIZ *
CASCIZ *TEXT*J>
CASCIZ *
CASCIZ *TEXT
CASCIZ •
CASCIZ •TEX^*]>
CASCIZ 'TEXT*]>
CASCIZ •TEXT*]>
CASCIZ •TEXT-J>
CASCIZ •TEXT*3>
CASCIZ •TEXT*]>
CASCIZ 'TEXT»]>
r
DFSXA
DFSXAT
209
210
211
212
213
2K
215
216
217
218
219
220
221
222
223
22A
225
226
227
228
229
230
231
232
233
23A
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5(538(1242) 14:07 21-Aug-85 Page 6
MAC 25-JuL-85 20:06 ASSEMBLY PARAMETERS
SEQ 0066
254000 067640
254000 067642
254000 067644
254000
001000
002000
003000
004000
005000
006000
007000
260740
260740
260740
256016
256016
256016
256016
256016
256016
260740
260740
260740
2oJ740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
260740
067646
000000
000000
000000
000000
000000
000000
000000
042602
042651
033017
043570
043536
043553
043521
043504
043467
042777
042773
043003
043006
043011
043034
043040
043024
043030
043020
043014
033336
033361
033220
033264
033507
033462
033442
035121
;* OPDEF's
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
SKPRTN
SKPHLF
SKPRST
RST
.FLT
.FLT1
.FLT2
.FLT3
.FLT4
.FLT5
.FLT6
DATCMP
SCOPE
STCHN
.CONO
.CONSZ
.CONSO
.CONI
.DATAI
.DATAO
WSTCR
WSBAA
UIVR
UURR
UDIAG
RSTCR
RSBAR
RPTCR
RPBAR
RIVR
RRDR
WCLK
RCLK
WCLKC
RCLKC
LJMPA
LJMP
LURR
CLPBUF
CJRST CAOS (P)
POPJ P,]J
CJRST CANDi \nm
SKPRTN3J
cjrst cpop p,
skprtn:j
cjrst cpop p,
POPJ PJ]
.1883 ; error in test call
288] ; error in data test
388] ; data compare error
488] ; logout error call
C588]
688] ; fatal DTE reporter
788] ; DTE error reporter
PUSHJ p,$dtcmp5
PUSHJ P.SSCOPE]
PUSHJ P,$STCHN]
XCT .CNO(CNTRL)]
XCT .CNSZ(CNTRL)]
XCT .CNSO(CNTRL)J
XCT .CNKCNTRL)]
XCT .DATKCNTRD]
XCT .DATO(CNTRL)]
cpushj p,$wstcr]
pushj p,$wsbar]
pushj p,$wivr]
pushj p.swwrr]
pushj p,$wdiagj
:pushj ?,$rstcr]
:pushj p,$rsbar]
:pushj p.srptcr]
;pusHj p.srpbar]
.PUSHJ P,$RIVR]
;PUSHJ P,$RRDR]
.PUSHJ P,$WCLK]
"pushj p,$rcli(]
:pushj p.swclkc]
;pushj p,$rclkc]
.pushj p,$ljmpa]
;pushj p,$ljmp]
.pushj p,$lwrr]
pushj p.sclbuf]
call
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!538(1242) 14:07 21-Aug-85 Page 7
t^^SK AA^ ^
DFSXA
DFSXAT
DECSYSTEH KLIO (:hANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 7
MAC 25-Jul-85 20:06 ASSEMBLY PARAMETERS
SEQ 0067
^
.^5
30
)1
>607A0
607A0
60740
154QA0
^00240
7006A0
70QA00
700200
1607A0
607A0
[60740
^00600
700600
]60740
|60740
60740
160740
60740
60740
[60740
[6C740
[60740
J60740
60740
60740
60740
[60740
^00200
700200
>60740
[60740
[60740
[60740
[60740
60740
60740
60740
[60740
60740
[60740
60740
[60740
60740
60740
[60740
60740
60740
033203
033246
033167
QQQOOO
QOOOOO
000000
000000
200000
035050
035063
035116
000400
012377
035126
035642
036053
033101
033157
033117
033147
033163
042120
033472
035770
036021
036100
227760
027760
043305
043165
043177
043211
043223
043235
643401
043247
043261
043273
043317
043331
043413
043425
043437
043355
043367
043343
OPOEF
UCLKB
OPDEF
RCLKB
OPOEF
ST .OOP
OPOEF
PO ITAL
OPOEF
cp;ni
OPOEF
pi:ni
OPOEF
MBERA
OPOEF
RSET
OPOEF
StTDAT
OPOEF
SETDEV
OPOEF
LOBUF
OPOEF
I OF
OPOEF
ION
OPOEF
GTNMBR
OPOEF
CURTA
OPOEF
CROA
OPOEF
CHKERR
OPDEF
CLRERR
OPOEF
RHINI
OPDEF
PORINI
OPDEF
CLRLOG
OPDEF
P)PF
OPDEF
C .RJMP
OPDEF
CiORA
OPDEF
CRDRZ
OPDEF
CURTZ
OPDEF
CRDZ
OPDEF
SYSINI
OPDEF
CLFL6S
lUS device comm
OPDEF
ROT
OPDEF
RCR
OPDEF
ROS
OPDEF
RER
OPDEF
RMT
OPDEF
RAS
OPDEF
RSN
OPDEF
RFC
OPDEF
RTC
OPDEF
RCK
OPOEF
RLA
OPOEF
RER2
RER?
OPOEF
OPOEF
REC1
OPDEF
REC2
OPDEF
RDC
OPDEF
RCC
OPDEF
ROF
.PUSHJ
.PUSHJ
PUSHJ
JRST
CONI
CONI
BLKI
CONO
!pushj
;pusHj
!pushj
CONO
P,$UCKBJ
P.SRCKBJ
P,$STLP]
APR J
PI J
APAjB19J
P.SSTDATJ
P.SSTDEVJ
P,$LDBUFJ
PI,PI0FFJ
UVW.W PI.ALWPIJ
,PUSHJ P,lGTNM]
^PUSHJ P.SCWRTAJ
P,$CRDA]
P,$CHERRJ
P.$CLERR3
P,$RHIN]
P,$PORINJ
P,$CLOGJ
P,$POPF]
P,$CLJMPJ
P.$CRDRAJ
P,$CRDRZJ
P,$CWRTZJ
P,$CRDZ]
CCONO APR,1B19+1822*377B31]
CCONO APR,1B22+377B313
CONO
.PUSHJ
:pushj
;pusHj
,PUSHJ
PUSHJ
PUSHJ
PUSHJ
PUSHJ
PUSHJ
.PUSHJ
!pushj
;pusHj
;pusHj
.PUSHJ
;pusHj
.PUSHJ
PUSHJ
,PUSHJ
PUSHJ
PUSHJ
pu«;hj
,PUSHJ
PUSHJ
PUSHJ
PUSHJ
PUSHJ
.PUSHJ
.PUSHJ
PUSHJ
PUSHJ
P.SRDT]
P,$RCR]
P,$RDS3
P,$RERn
P,$RMT]
P,$RAS]
P.SRSNJ
P,$RFC]
P.SRTC]
p.$rckJ
P,$RLAJ
P,$RER2]
P.$RER3]
P,$REC1]
P.$REC2J
P.$RDC]
P,$RCC]
P.$ROFF]
0055
fitlH^T E5^^^^^^5c'^H.\9 S^^^^k^'^^^^® ^'*^l?^iil?y I^ILcT^I? °'^ ^'^^^^ 1538(1242) 14:07 21-Aug-85 Page 8
cen nnxo
OFSXA
OFSXAT
305
306
307
308
309
310
311
312
313
3U
315
316
317
318
319
320
321
322
323
32A
325
326
327
328
329
330
331
332
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U.07 21-Ajg-85 Page 8
MAC 25-JuL-85 20:06 ASSEMBLY PARAMETERS
SEQ 0068
J6Q7A0
560740
[6Q7A0
160740
260740
260740
260740
260740
260740
260740
260740
260740
256016
260740
256016
043121
043044
043132
043110
043143
043077
063532
063646
063677
06336S
064100
043451
043521
04
;* Write device register commands
OPDEF UTC CPUSHJ P.SWTC]
OPDEF WCR CPUSHJ P,$UCR]
OPDEF WOF CPUSHJ P,$U0FF]
OPDEF WFC CPUSHJ P,$UFC]
OPDEF UDC CPUSHJ P,$WDC]
OPDEF WAS CPUSHJ P,$WAS]
;* Operational device commands (TU16 magtape)
OPDEF REW CPUSHJ P.$TREW3
OPDEF WTM CPUSHJ P.SWTM]
OPDEF BSR CPUSHJ P,$TBS,<]
;* Operational device commands (RP04 disk pack)
OPDEF D.RCL CPUSHJ P.SDRCLj
OPDEF D.SEK CPUSHJ P,$DSE<]
;♦ NI/CI Port commands
OPDEF RDLAR CPUSHJ P,$RDLAR]
OPDEF RDCSR C.CONIJ
OPDEF LDRAR CPUSHJ P.SLDRARJ
OPDEF LDCSR C.CONOJ
DFSXA
nCCVAT
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 9
MAT OC— ii.l-OC on. Ax. <!CftieBAi MAccaiic ncijtrc rxcrfutrtnu cue * *
ecfi nnj.a
I DFSXA
L
DFSXA
OFSXAT
333
334
(55
{36
37
338
339
340
ii
344
346
348
349
350
551
352
353
354
355
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 9
25-JUI-85 20:06 ' ' '•'
MAC
QQOOOl
000000
000001
000001
000000
000001
000001
GENERAL MASSBUS DEVIC^ DEFINITION FILE
SU8TTL GENERAL MASSBUS DEVICE DEFINITION FILE
;f ******************************** *******«t ****** *********************
;* MASSBUS device definition file conditional assembly switches
;f************ ********************************************************
SEO 0069
RH20==1
RH10==0
NAGTAP==1
HHDISK==1
FHDISK==0
DISK==MHDISK!FHDISK
; assemble RH20 MASSBUS controller definitions
; do not assemble RH10 definitions
: assemble the aeneral magtape definitions
: do not assemble moving head disk definitions
; do not assemble fixed-head disk definitior-
; generalised disk definitions
;#********************************************************************
;♦ Current MASSBUS devices
;#********************************************************************
TU16==1
>
IFN
XLIST
IFN
MAG TAP, <
RH20,<LIST
; assemble TU16 definitions
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 1536(1242) 14:07 21-Aug-85 Page 10
cFQ nnjo
DFSXA
DFSXA
DFSXAT
356
357
358
359
360
361
362
363
36A
365
366
367
368
369
370
371
372
373
37A
375
376
377
378
379
380
381
382
383
384
387
388
389
390
391
392
393
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) K:07 21-Aug-85 Page 10
25-Jul-85 "" "' "■■"" '
MAC
20:06
000200
Q0020A
000210
0d02U
0005AO
0005AA
Q00S50
000554
000560
000564
000570
000574
004000
RAECLR=1824
Ȥ
MBCCLR=1625
XECLR=1B26
0400
WE=1B27
0200
RCLPA=1B28
0100
DSCR=1B29
0040
ATTEN=1330
0020
ST0P=1B31
0)10
DNCLR=1B32
0)07
PIA=7B35
0 )40
BUSLP=1B30
0)10
RHEBL=1B32
DTRA=1B26
RHCLK=1B35
000001
RH20 BIT DEFINITIONS
SUBTTL RH20 BIT DEFINITIONS
* Device code for the RH20
DT0=200
0T1=204
0T2=210
DT3=214
RH0=540
RH1=544
RH2=550
RH3=554
RH4=560
RH5=564
RH6=570
RH7=574
;#**«**************************************«*******************•*****«
;* RH20 CONO bit assignments
register accesr error clear
MASSBUS controller clear
transfer error clear
MASSBUS controller enable
reset the coiwnand list pointer
delete secondary command register
attention interrupt (enable)
stop the transfer
clear command done
PI channel mask bits
enable maintenance looping
end of block
tranfer bit in diag register
SCLK
SEQ 0070
DFSXA
DFSXAT
DFSXA OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION
DF<;XAT MAP 9^..liil.A<; POrHA DUPH RTT
TEST - VER 0.7
nFPTMTTinMt;
MACRO X53B(1242) 14:07 21-Aug-85 Page 11
CFQ nn7i
DFSXA
DFSXA
DFSXAT
394
395
396
397
398
399
AOO
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 11
MAC 25-JUL-85 20:06 RH20 BIT DEFINITIONS
;* RH20 CONI bit assignments
;f ************«*****************«****«;***** ****i^* ****** ***************
SEQ 0071
020000
200000
100000
200000
luJOOO
040000
020000
000400
000200
000100
000040
000020
360760
000000
000000
000000
400000
200000
100000
040000
020000
010000
004000
002000
002000
001000
000400
000200
000100
000040
000020
000010
000007
774000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
LNXM=1B4
LPAR=1B1
SBERR=1B2
DBPE=1B18
DREX=1B19
LUCER=1B20
S«CER=1B21
MBXER=1B22
DRESSER=1B23
RAEER=1B24
HBXHLT=1B25
CNR=MBXHLT
D0VRER=1826
HASSEN=1827
DRATTN=1B28
SCRFUL=1829
ATTNEN=1830
PCRFUL=1831
C«DDN=1B32
PIA=7B35
RH.ERS=D8PE+DREX+LUCER+
MBOX non-existent memory
MBOX parity error
SBUS error
DATA BUS parity error
drive exception
long word count error
short word count error
M-BOX error
drive response error
register access error
the M-BOX is halted
new 'channel not ready'
data overrun error
MASSBUS enabled
drive needs attention
secondary command register is full
the attention interrupt is enabled
primary command register is full
command is done
term
SWCER+MBXER+DRESSER+RAEER
Channel status word 1 bit defintions
CH.PAR=181
CH.SER=182
CH.WCZ=1B3
CH.NXM=1B4
CH.LER=1fl9
CH.RHE=1B10
CH.LWC=1B11
CH.SWC=1812
CH.0VR=1B13
memory parity error
not SBUs error
word count not = 0
channel non-existent memory
last transfer error
RH20 error
long word count error
short word count error
channel overrun error
tn.uvn-ioij ; cndnnei overrun error
CH.ERS=CH.PAR+CH.SER+CH.UCZ+CH.NXM*CH.LER+CH.RHE+CH.LWC*CH.SUC+CH.OVR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(124'
DFSXAT MAC 2S-Jul-85 20:06 RH20 BIT DEFINITIONS
14:07 21-Aug-85 Page 12
SEQ 0072
DFSXA
OFSXA
DFSXAT
A33
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i;53B(124"^ 14:07 21-Aug-85 Page 12
MAC 25-Jul-85 20:06 RH20 BIT DEFINITIONS
;/(f***«***************************** ***********************************
;* DATAO-DATAI for the drive registers (00-37)
;/|r*****4r ****************************** At****** ************ *********•*••
SEQ 0072
004000
001000
000400
000200
000007
000000
004000
000000
000000
000000
000000
400000
200000
}77777
004000 000000
000007 000000
}77777
000007 000000
}77777
004000
002000
400000
000020
200000
000200
000007
LR=1B6
LDBIT=1B24
PE=1B8
0RAES=1B9
TRA=1B10
DRSEL=7B17
EP=1B18
PAR=1B19
RDAT=177777B35
load register bit
LR definition used in HRLI instructions
parity error detected
disable register access error stop
async transfer in progress
mask for drive select bits
write as even parity
parity received on last register read
mask for the 16 data bits in the register
;* DATAO-DATAI for RH20 secondary block address register (70)
LR=1B6
DRSEL=7817
R0AT=177777B35
load register
drive select mask
mask for the 16 data bits
;* DATAO-DATAI for RH20 primary block address register (72)
DRSEL=7B17
RDAT=177777B35
mask for drive select bits
mask for the registers data bits
000000
LR=1B6
000000
PCLP=1B7
000000
XFR==1B0
000000
SIZE1==1813
000000
CHJMP==181
QOOOOO
000000
STORE=1B10
DRSEL=7B17
^m
0TES=1B19
BLKCNT=1777B29
000077
FNCTN=77B35
;♦ DATAO-DATAI for RH20 secondary transfer control register (71)
load register bit
reset the command list pointer
channel transfer instruction
byte count of 1
channel jump instruction
store the M-BOX error status
mask for the drive select
disable transfer error stop
mask for the block count
mask for the function
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO t53B(1242) 14:07 21-Aug-85 Page 13
DFSXAT MAC 25-Jul-85 20:06 RH20 BIT DEFINITIONS » » ^^^ qq^^
DFSXA
DFSXAT
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 13
MAC 25-JuL-85 20:06 RH20 BIT DEFINITIONS
; 4^*************************************4^****** ****************** ******
;* DATAO-DATAI for RH20 primary transfer register (73)
;4f********************************************************************
000007 000000
200000
177700
000077
000777
770000
760000
750000
740000
730000
720000
710000
700000
000000
000000
000000
000000
000000
000000
000000
000000
SEQ 0073
DRSEL=7B17
0TES=1B19
BLKCNT=1777B29
FNCTN=77835
; mask for the drive select bits
; inhibit transfer error stop
; mask for the block count
; mask for the function bits
;f************************* *******************************************
;* DATAO-DATAI for the RH20 interrupt vector register (74)
;/|f************ ********************************************* ***********
IADDR=777835
; mask for the interrupt address
;4r********************************************************************
;* RH20 register assignments
;f******************************************************************t*
RHDIA6=7785
RHURR::7665
RHRDR=7585
RHIVR=7485
RHPTCR=73B5
RHPBAR=72B5
RHSTCR=71B5
RHSBAR=70B5
LIST
; RH diagnostic register
; RH write register
; RH read register
; interrupt vector index register
; primary transfer control register
; primary block address register
; secondary transfer control register
: secondary block address register
OFSXA DECSYSTEH KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO 1538(1242) 14:07 21-Aug-85 Page 14
1 DFSXAT MAC 25-Jul-85 20:06 MASSBUS DEVICE BIT ASSIGNMENTS
SEQ 0074
1 r
I 1
iDFSXA
DFSXAT
5U
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
53A
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
DECSYSTEH KL10 CHANNEL/DTE20 INTERACTION TEST - VER OJ MACRO X53B(1242) 14:07 21-Aug-85 Page 14
MAC 25-Jul-85 20:06 HASSBUS DEVICE BIT ASSIGNMENTS
SUBTTL MASSBUS DEVICE BIT ASSIGNMENTS
;4P***********************t*********n:** ******************* t ************
;* MASSBUS device register bit assignments (Registers 00-17)
•ir**********t*******i *************************************************
SEQ 0074
OFSXA
DFSXAT
010000
020000
030000
040000
050000
050000
060000
070000
140000
110000
110000
120000
130000
100000
150000
160000
170000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
010000
020000
030000
040000
050000
060000
070000
140000
110000
110000
120000
130000
100000
150000
160000
170000
DRCR=065
DRSR=1B5
DRER1=2B5
DRnR=3B5
0RAS=4B5
DRDTS=5B5
ORFC=5B5
DRDT=6B5
0RLA=7B5
DRER2=1485
DRTC=11B5
0R0FF=1185
DRDCV=1265
0RCCy=13B5
DRSN=1065
0RER3=1565
0REC1=16B5
ORE C2= 1785
control register
status register
error register #1 of 3
maintainability register
attention summary pseudo" register
desired track and sector register
frame counter register
drive type register
track/sector look *head register
error register #2 of 3
tape control register
offset register
desired cylinder address register
current cylinder address register
serial number register
error register #3 of 3
ECC position register
ECC pattern register
; Left hand definitions for device registers
OR.CR=0B23
0R.SR=1B23
DR.ER1=2823
DR.«R=3B23
DR.AS=4B23
DR.FC=5B23
DR.DT=6823
DR.LA=7B23
0R.ER2=K823
0R.TC=11823
0R.0FF=11B23
OR.OCr=12B23
0R.CCy=13823
0R.SN=10B23
DR. ER3= 15823
0R.ECU16B23
DR.EC2=17B23
(\CCWA
r\cr c wc TCI
ut ^n ruAkttici /rvTCin t^TCBArrinu rcrr
wCQ n 7 MAran «C7o/ll/o\ ly.A7 01.
.oc n... 1C
OFSXA
OFSXAT
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
57A
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 HACRO X53B{1242) U:07 21-Aug-85 Page 15
WAC 25-Jul-85 20:06 HASSBUS DEVICE BIT ASSIGNMENTS
;* MASS8US device control register bit assignments (DRCR RE6-00)
;#*t* ************************** ******************t*tt*****t********t**
SEC 0075
OFSXA
DFSXAT
000001
000076
004000
000001
000003
000021
000023
000005
000007
000011
000013
000015
000017
000031
000051
000053
000061
000063
000071
000073
; CoNMon bit assignments
G0B:T=1B35
FNCTN=37B34
DVA=1624
XLIST
LIST
?o bits
ive function bits
the
the nve
drive available in dual-port operations
XLIST
IFN
HHO]SK.<LIST
: Moving head disk function set
; (functions include the "60" bit)
N00P=1
UL0AD=3
R0PRST=21
PCKACK=23
SEEK=5
RECAL=7
CLEAR=11
RELSE=13
0FFSET=15
RTNCTR=17
SEARCH=31
UTCHD=51
WTCHHD=53
UTD=61
UTHD=63
RDD=71
RDHD=73
>
a no-op
head unload
read-in preset
pack acknowledge
seek to cylinder
recalibrate the positioner
drive clear
release from present port
offset heads from track center line
return to centerline
do a block search
write check data
write check header and data
write data
write header and data
read data
read header and data
LIST
XLIST
IFN
«AGTAP.<LIST
nrcvA r\crcvcTcii iri in ruAkiuci /nrc^n tkiTcoirTirui tcct .. uco n 7 mtron ycToMO/.O) i/.n? 7i-«..<.-ac Om..^ ix.
r
■ 1
DFSXA DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST ■• VER 0.7 MACRO J;53B(1242) U:07 21-Aug-85 Page 16
DFSXAT MAC 25-Jul-85 20:06 HASSBUS DEVICE BIT ASSIGNMENTS
SEO 0076
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
6U
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
000001
000003
000007
000011
000013
000027
000031
000033
000051
000057
000061
000065
000071
000077
100000
040000
020000
010000
004000
001000
000400
000200
000100
; Magnetic tape function set
; (functions include the "GO'
NO0P=1
UL0AD=3
RyND=7
CLEAR=11
RELSE=13
WTFM=27
SPFUDR=31
SPBAJ(R=33
WTCKF=51
WTCKR=57
WTF=61
yTFLIG=65
RDF=71
RDR=77
>
LIST
bit)
a no-op
unload the drive
rewind tape
drive clear
release from present port
write a file mark
space forward a record
space backward a record
write check forward
write check reverse
write forward
write forward with long IRG
read forward
read reverse
;* MASSBUS device status register bit assignments (DRSR REG-01)
: Common bit assignments
ATA=1B20
CERR=1B21
PIP=1B22
«OL=1B23
WRL=1B24
NEUT=1826
DPR=1B27
DRY=1B28
VV=1B29
attention active (causes attn summary)
composite error (must check error regs)
positioning is in progress
medium is on line
drive has been manually write protected
drive not busy on either port
drive present (always=1 if single port)
drive ready to accept another command
volume valid
XLIST
IFN
0ISK.<LIST
nccw* DPrcvcTca iri in ruAkiuci /hTcsn rkircoArrrniu tcct . uco n 7 mtron 1^i^Dl^^3/.^3^ iz.n7 ?i-A..<«-fic o^r,^ i7
r
)64
DFSXA
DFSXAT
DECSVSTEN KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3:53B(12A2) 14:07 21-Aug-85 Page 17
MAC 25-JuL-85 20:06 MASSBUS DEVICE BIT ASSIGNMENTS
SEO 0077
m
: Cofflmon to all disks
SI
»1
ll
002000
LBT:
>
=1825
•
LIST
XLIST
LIST
XLIST
IFN
HA6TAP.<LIST
; For mag- tape
dewues
000001
Ml
000100
002000
SLA=1B35
B0T=1B3A
EOF=1B33
IDB=1B32
SDyN=1B31
PES=1B30
SSC=1B29
E0T=1B25
last block transferred
slawe attention
tape at BOT
end of file detected
identification burst read
slowing-settling down
phase encoded status
slave status change
end of tape
LIST
DFSXA
DFSXAT
nr^MA
nprcvcTFH iri in ruikiktci /nrc^n luicokrrxnu tcct
uco n 7 MAron v^utn?^?) M..n7 ^i.A.ui.ac oa/t« ia
I
DFSXA
DFSXAT
663
66A
665
^
668
669
670
671
672
673
67A
675
676
677
678
679
680
681
682
683
684
685
OECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X538(1242) ^^:07 21-Aug-85 Page 18
HAC 25-Jul-85 20:06 (USSBUS DEVICE BIT ASSIGNMENTS
;• Bit assignments for HASSBUS device error register #1 (0RER1 REG-02)
CRC error -data check-
drive unsafe for operation
attempted operation incomplete
drive timing error
non ex function
illegal format
frame counter error
non standard gap
LRC error
incorrectable data
data bus parity
format error
synchronous data bus parity error
reaister modification has been refused
illegal register addresss
tried to issue a non- implemented command
SEO 0078
: Common fo" all devices
100000
CRC=1B20
K )000
UNS=1B21
2)000
OPI=1B22
DTE=1B23
((AOOO
NCF=1B24
((2000
IT«=1B25
((1000
FCE=1B26
NSG=1B27
( Q200
LRC=1B28
( 01 00
INC=1B29
OQOAO
dpar=ib:o
( 0 )020
FRT=1B3
(Q )010
CPAR=1B32
RHR=1B33
(0 )004
(00002
ILR-1834
000001
ILF=1B35
"' ~1
DFSXA
DFSXAT
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
7yu
715
716
717
718
719
720
721
722
72-S
72^
725
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 19
MAC 25-Jul-85 20:06 MASSBUS DEVICE BIT ASSIGNMENTS
;* Bit assignments for MASSBUS Maint Reg (0)
SEQ 0079
OOOOAO
MCLK=1B30
000100
DSCLK=1B29
000013
FMTURT=13
000015
F«TRD=15
000011
000007
TCWRT=11
GLBWRT=7
000001
DMD=1B35
; put drive in mai'nt mode
XLIST
LIST
XLIST
LIST
XLIST
IFDEF
LIST
TU16.<LIST
;• Bit assignments for MASSBUS device attention summary register (DRAS REG-OA)
;4f*********4*************** ****************************** «***«*«******
000200
000100
0R0AT=1828
; drive-0 needs attention
DR1AT=1B29
■ drive-1 needs attention
000040
0R2AT=1B30
DR3AT=1B31
• drive-2 needs attention
000020
000010
' drive-3 needs attention
DR4AT=1B32
• drive-4 needs attention
QOOOOA
29292?
DR5AT=1B33
• drive-5 needs attention
DR6AT=1B3A
0R7AT=1B35
' drive-6 needs attention
• drive-7 needs attention
000001
XLIST
IfN DISK,<LIST
A /\/\^ ^
I DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO Z53B(124P) U:07 21-Aua-a5 Paae 20
OFSXA OECSYSTEN KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 HACRO :53B(1242) U:07 21-Aug-85 Page 20
OFSXAT MAC 25-Jul-85 20:06 MASSBUS DEVICE BIT ASSIGNMENTS
726
727
7i8
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
SEQ 0060
^77777
100000
KOOOO
J20000
iioooo
34000
}2000
50000
HOQOO
)20000
700002
)003
020
, )012
)00011
;* Bit assignments for MASSBUS devices desired track sector register (DRDTS REC 05)
;jy*********s***«*******t ***************** ************ ****************t
XLIST
LIST
LIST
XLIST
IFN
MAGTAP,<LIST
;4f**********************************' I ********** ***********************
;* Bit assignments for MASSBUS frame counter register (DRFC REG-05)
;f*********** ********************************************** ***********
FRACIES=1 77777835
LIST
; mask for 16-bit frame count
XLIST
LIST
;#********************************************************************
; Bit assignments for MASSBUS device drive type register (ORDT REG-06)
;4f*********** ********************************************** ***********
DTNBA=1B20
DTTAPE=1821
0THOVH=182i
0TCHN7=1B2!
DT0RR=1B24
DTSPR=1B25
DV.ERR=3fl19
OV.TAP=DTTAPE
OV.PCK=DTMOVH
RS04D2=2
RS04D4=3
RP04D-2Q
TU45D-12
TU16D=11
XLIST
IFN
not block addressed bit
tape drive bit
moving head device
seven-channel tape drive
drive request required
slave present
equate to 600000
magtape ID word
disk pack ID word
sec
Its
an
RS04
Its
an
RS04-4
micro
its
an
RP04
its
a
TU45
us
a
TU16
DISK.<LI3T
PF§XA. PECSYSTEB_KL10 CHANNEL/0TE20 INTERACTION TEST.vVER 0,7 MACRO J[53B(1242) 14:07 21-AuQ-85 Page 21
DFSXA
DFSXAT
772
773
77A
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
)3
}4
)5
}6
)7
)8
)9
110
iu
P5
116
!17
18
19
\0
1
\\
I'*
}5
OECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER
MAC 25-Jul-85 20:06
u.,^v,.w., ..-. ..., 0-7 MACRO X53B(1242)
MASSBUS DEVICE BIT ASSIGNMENTS
M*:07 21-Aug-85 Page 21
SEQ 0081
000000
)00020
$00040
)0060
WCOOO
ioo^oo
01000
)2000
)0007
)0Q10
)Q360
53400
)040Q0
)10000
4f**4»***** ************************************************** *********
* Bit assignments for NASSBUS devices track/sect look ahead register (DRLA REG-07}
f**************************************************** ****************
XLIST
LIST
XLIST
LIST
LIST
XLIST
IFN
MHDISK,<LIST
4P* ****** *************************************************************
* Bit assignments for MASSBUS device error register #2 (DRER2 REG-10)
/If********************************************************************
XLIST
LIST
LIST
XLIST
IFN
HAGTAP.<..IST
;f***************************************************** ***************
;♦ Bit assignments for MASSBUS tape control register (DRTC REG-10)
;f ********************************************************************
XLIST
IFDEF
CORDMP==0
SVNTRK==1B31
ASCMD==2B31
C0MPAT==3B31
BPI2Q0==0B27
BPI556==1B27
BPI800==1B2$
BPI160==1B?i
TCSSC=7835
TCEP=1B32
TCFSC=17B31
TC0EN=7B27
TCIRLE=1824
TCIAyE=1B|3
TCFCS=1B22
LIST
>
LIST
XLIST
IFN
TU16.<LIST
format for 9 channel core dump
format for 7 channel
tape control slave select code mask
tape control even parity
tape control format select code field
tape control density select mask
tape control inhibit record length error
tape control inhibit abort on write error
tape control frame count status
MHDISK.<LIST
lOFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO Z53B(1242) 14:07 21-Aua-85 Paae 22
0069
IDFSXA
OFSXAT
DECSYbTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER
MAC 25-Jur-85 20:06
..,^v..w., -.-. .w., 0.7 MACRO S!538(1242) U:07 21-Aug-85 Page 22
HASSBUS DEVICE BIT ASSIGNMENTS
SEQ 0082
* Bit assignments for HASSBUS device drive offset register (DROFF RE6-11)
ft ****** ***t***********************«*****t*******tt********t*********
XLIST
LIST
#**************************************************•***********•*****
• Bit assignments for HASSBUS device desired cylinder register (DRDCY REG-12)
#**************•*******«********************•************************
007777
CYLADR=7777B35
cylinder field of register
Ji
1070
^WVi. 5ICSYSTEM.KL10 j;HANNEt/DTE20 INTERACTION JEST_-_yER.gt7_HACROJ53B(12A2) U:07 21-Aug-85 Page 23
iDFSXA
1 r
DFSXA
DFSXAT
SAO
8A1
8A2
8A3
8AA
8A5
8A6
8A7
848
8A9
850
851
852
853
85A
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
674
875
876
877
878
DECSYSTEW KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 23
MAC 25-Jul-85 20:06 MASSBUS DEVICE BIT ASSIGNMENTS
;4f«*«**********<r*******t*************** ********** A**********! *********
;* Bit assignments for MASSBUS device current cylinder register (DRCCY RE6-13)
;^* ********************************************************** *********
SEQ 0083
000777
170000
007400
000360
000017
CYLADR=777B35
>
LIST
cylinder field
;4P* ******************************************************** ***********
;* Bit assignments for MASSBUS device serial number register (DRSN REG-14)
;4f*************************************** *****************************
; The register stores each digit as a "bed" number
DIGI1=17B23
DIDI2=17827
DI6I3=17B31
01614=17835
XLIST
IFN
thousands digit
hundreds digit
tens digit
units digit
MHDISK.<LIST
;#********************************************************************
;• Bit assignments for MASSBUS devices error register #3 (DRER3 REG-15)
j^********************************************************************
XLIST
LIST
;f********* **************************************************** *******
;* Bit assignments for MASSBUS device ECC pattern register (DREC2 REG-17)
;#******• *************************************************************
XLIST
LIST
>
LIST
DFSXA
PARAM
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
5^§?^, P.|CSYSTE«^ICL10 j;HANNEL/DTE20 INTERACJIQN TEST -_yER_0,7 MACRO 3(538(1242) 14:07 21-Aug-85 Page 24
i DFSXA
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20
MAC 25-JUI-85 20:06
INTERACTION TEST -
VER 0,7 MACRO j;53B(1242>
1 14:07 21-Aug-85 Page 24
i
DFSXAT
DTE DEFINITION
TABLES
SEQ 0084
879
380
SUBTTL
DTE DEFINITION TABLES
■
;* CONG DTN,E
010000
004000
CR11==1B23
; clear
reload button
|o4
SR11==1B24
; set reload button
585
020000
T011D8==1B22
; TO-11
doorbell
386
001000
CL11PI==1B26
; clear
11 requesting interrupt
,
B87
388
001000
DN610C==1B26
; clear
ten doorbell
000100
CLT011==1B29
'
; clear
T011 DONE and error
389
000040
CLT010=-=1B30
; Clear
T010 DONE and error
390
000020
PILDEN==1B31
■
; priority load enable
; PI LEVEL 0 enable
391
392
893
000010
PI0ENB==1B32
;* CONI DTN,E
894
895
100000
RM==1B20
■ restricted bit
896
040000
DEADn==1B21
• power
■ TO-10
fail flag
897
001000
TO10DB==1B26
doorbell
898
000400
T011ER==1B27
• TO-11
byte xfer error
899
000020
T010ER==1B31
• TO-10 byte xfer error
900
000100
T011DN==1B29
'
• TO-11
done
901
902
903
90A
905
000040
T010DN==1B30
; TO-10
done
;♦ COMMO region
" r
000140
EPTEBP==140
• TO-11
byte pntr
906
000141
EPTTBP==141
• TO-10
byte pntr
907
29815?
EPTDII==142
■ dispatch interrupt address
908
000144
EPTEPW==144
■ examine protection word
909
000145
EPTERW==145
' examine relocation word
910
999^^6
EPTDPW==146
deposit protection word
911
912
913
000147
EPTDRW==147
deposit relocation word
;* Special bits
9U
915
Mim
T010MK==1 77777
, 16 bit
' mask
916
005160
DMPSRT==SR1 1 ! CLl 1PI ! CLT011 ! CLTOK
J.'PILDEN
917
001365
R0MC0D==1365
918
000001
DTEWTF==01
919
000002
DTERDF==02
920
777547
PR6SIZ=-<STARTZ-
■SPCBT>8777777
921
m^n
SXASIZ=-<SXA2-SXABT>8777777
" ■■" ■ ■■-.*.■;
DFSXA^ DECSYSTEM^KLIO £HANNEL/DTE20 INTERACTION^ TEST^-^VER^O. 7 MACRO X53B(1242) 14:07 21-Aug-85 Page 25
f*r0^ AAor
DFSXA
072
DFSXA
DFSXAT
922
923
924
925
926
927
928
929
930
931
932
933
93A
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 25
MAP PS-.liil-RS Pn-flA RTF nPFINITinW TARI F<:
MAC
000440
000441
000442
000443
000444
000445
000446
000447
000450
000451
000452
000453
000454
000455
000456
000457
066127
066143
066147
066153
066157
260740
260740
2OJ740
260740
260740
260740
260740
260740
260740
260740
260740
065776
066020
066043
066061
064730
064702
065724
065756
065766
065365
065407
000001
000002
000003
000011
000012
000013
000014
000036
DTE DEFINITION TABLES
;* Special DTE flags for master S KLDCP
SEQ 0085
$STD=440
$DDT=441
$STL=442
$STM=443
$DTFLG=444
$DTCLK=445
$DTCI=446
$DTT1 1=447
$DTF11=450
$DTCMD=451
$DTSEQ=452
$DT0PR=453
$DTCHR=454
$DTMTD=455
$DTMTI=456
$DTSUR=457
0TEAVL=DTEAV1-10
DTERWF=DTERW1-10
0TEFBP=DTEFB1-10
DTESBP=DTESB1-10
DTELEN=DTELE1-10
;* DTE commands
-10 start address
DDT start Address
loader start address
monitor start address
response flag
clock interrupt flag
DTE interrupt instruction
10 to 11 arg
11 to 10 arg
10 to 11 cmd
operation sequence M
operational DTE20 #
last typed character
monitor TTY output flag
monitor TTY input flag
console switch register
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
CMDSRT
DOCMD
EXM11
EXE 11
0UMP11
BOOTH
U11DB0
U11DN1
U10DN1
6ETURD
GETLIN
CPUSHJ
[PUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
CPUSHJ
P.$CMDSRT]
P,$DOCMD]
P.IEXMin
P,$EXE113
P.SDMPin
P.JBTIi:
P.S11DB0]
P,$11DN3
P,$10DNJ
P.GTWRD3
p,gtlin:
command pending
perform above commands
examine the -11
deposit into -11
dump -11 core into -10
boot -11 from -10 core
wait for -11 DB to clear
wait for 11 done to set
wait for 10 done to set
get -11 word into ACO
get ASCII line from device
;* Program load binary - accumulators
BINBYT=
BINBC=
6IN6A=
BINT1=
BINT2=
BINP1=
BINP2=
1
2
3
11
14
AWC11= "OZO
data byte
byte count
byte address
temp 1
temp 2
pointer 1
pointer 2
converted word count
DFSXA
PARAM
)73
DFSXA
i\r rwar
DECSYSTE«^KL10 £HANNEL/0TE20 INTEIRAj;TION^TEST^-.y§R_0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 26
^Ft\ A/\OZ
DFSXA
DFSXA
DFSXAT
97A
975
976
977
978
979
980
981
982
983
98A
985
986
987
988
989
990
991
992
993
99A
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(12A2) U:07 21-Aug-85 Page 26
MAC 25-Jul-85 20:06 NI20/CI20 Definitions
SUBTTL NI20/CI20 Definitions
;* CI20/NI20 Port CONI/CONO CSR Bit Assignments
SEQ 0086
400000
200000
100000
040000
020000
010000
004000
002000
000100
000040
000020
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
400000
200000
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
PORTP=1B0
CSRRQS=181
CSRCHN=1B2
DINIT=1B3
PI00RQ=184
RQINT=1B5
CRAHPE=186
nBERR=1B7
IDLE=1B11
0CO«P=1812
EC0«P=1B13
PCLEAR=1818
TSTEBF=1819
GENEPE=1820
SELLAR=1821
SINCYC=1822
SPARE 1=1823
EBUSPE=1824
FOUERR=1825
HVRERR=1826
CHDQAV=1827
RESQAV=1B28
SPARE2=1829
PDSABL=1830
PENAflL=1831
nPRyN=1B32
PIA00=1B33
PIA01=1B34
PIA02=1B35
port present
diag request CSR
diag CSR changed
diag initialised
PI Level 0 interrupt in progress
request interrupt
CRAM parity error
HBUS error
IDLE loop
disable complete
enable complete
port clear
diag test EBUF
diag generate E8US parity error
diag select LAR/SQR
diag single cycle
spare bit
EBUS parity error
free queue error
data mover error
command queue available
response queue available
spare bit
disable
enable
mproc run
PIA field bit 0
PIA field bit 1
PIA field bit 2
n r
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 21
rrn /V\a7
r
DFSXA
■"~~1
OFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X538(1242) 1A:07 21-Aug-85 Page 27
DFSXAT MAC 25-Jul-85 20:06 NI20/CI20 Definitions
1009
1010
1011
1012
1013
10U
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
103A
1035
1036
1037
1038
1039
mo
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
SEQ 0087
|r***»* *************** **4*****************************************t***
* CI20/NI20 Microword Field Definitions
These definitions are arranged for the macro which generates pairs
of microwords as (addr & parity flags t left 20 bits, right 36 bits).
These are of the form:
Word 1: Bits 00-11 ■
12-35 -
Word 2: Bits 00-34 -
35
In detail:
Word 1
Bits 00-11
12-23
Word 2: Bits
Hicroword load address (0000-7777)
Bits 0-23 of microword to load
Bits 24-57,59 of microword to load
Force Bad Parity flag
Microword load address
MUJMPFLD
MUPAR
NWOUTPUTENA
MUMGCFLD
MUSORCEFLD
NWFUNCTFLD
HWDESTFLD
NUCCENA
NURAMODE
MWPORTAFLD
HyPORTBFLD
HWSKIPFLD
MUBUSCTLFLD
NUCARRY
HWCTRLFLD
HWTIMEFLD
nWSPAREOO
MyMARKBIT
ss
- Force bad parity flag
The microwords are generated using a set of field definitions
describing how the two words are to be constructed. Each field
is defined as a bit position in the first word, a bit position
in the riaht word, and a magnitude describing the size of the
field. Tnese »re defined as follows:
.Lxxxx - Specifies the rightmost bit position of the field
in the left word. If the field does not appear in
left word, this will be zero.
.Rxxxx - Specifies the rightmost bit position of the field
in the right word. If the field does not appear
in right word, this will be zero.
.Mxxxx - Specifies the maximum magnitude of the field in
the word.
r:
..a ffHi Uttrn'Mm^tfrnP^
OFSXA
OFSXAT
1063
106A
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
108A
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
DECSVSTER KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 28
MAC 25-Jul-85 20:06 NI20/CI20 Definitions
The microwords are generated as follows:
Left word = ((value AND .Mxxxx) times .Lxxxx) .' next field ...
Right word = ((value AND .Mxxxx) times .Rxxxx) ! next field ...
Parity is calculated prior to loading into the CRAM. The parity
bit may be specified explicitly by specifying EVEN or ODD. The
microcode loader will ensure that the word has the specified
parity. If not specified, the correct parity will be calculated.
Sample microword definitions:
(a) Specify: J 1000. OUTENA, SORCE fid = 2, DEST fid = 3
load address = 120
Type: MWORD <ADDR=120.J=1000.0ENA,SORC=2,DEST=3>
SEO 0088
000100 000000
000000
007777
010000
000000
007777
004000
000000
000001
002000
000000
000001
000001
000000
001777
000000
100000 000000
000007
000000
000000
000007
000000
100000 OOOOOQ
000007
.LADDR=1B11
.RADDR=0
.MADDR=7777
.LJ=1B23
.RJ=0
.MJ=7777
.LPAR=1824
.RPAR=0
.MPAR=1
.L0ENA=1825
.ROENA=0
.H0ENA=1
.LMGC=1835
.RM6C=0
.mQC=V77
.LSORC=0
.RS0iRC=182
.MSO«C=/
.LSAO^O
.RSAa=0B2
.LSAB=0
.RSA8=1B2
.MSA8=7
MU load address
MU jump field (00:11)
MW parity (12:12)
MU output enable (13:13)
MU magic number field (14:23)
MU source field
Source = AQ
Source = AB
(24:26)
DFSXA
PARAM
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
liMWjiip iMtliTiNMi
mieyt»Xi4'i^^i^^t.t ,fm^mt.'4tii j«wii»i>i'w
1
DFSXA
DECSYSTEM KL10
CHANNEL/DTE20
OFSXAT
MAC 25-Jul-
85 20:06
11U
000000
1115
200000
000000
1116
000007
1117
1118
000000
1119
300000
000000
1120
000007
1121
1122
000000
1123
400000
000000
112A
000007
1125
1126
000000
1127
500000
000000
1128
000007
1129
1130
000000
1131
600000
000000
1132
000007
1133
1134
000000
1135
700000
000000
1136
000007
1137
1138
000000
1139
010000
000000
1K0
000007
1U1
1142
000000
1143
000000
1144
000007
1145
1146
000000
1147
010000
000000
1148
000007
1149
1150
000000
1151
020000
000000
1152
000007
1153
1154
000000
1155
030000
000000
1156
000007
1157
1158
000000
1159
040000
000000
1160
000007
1161
INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 29
NI20/CI20 Definitions
; Source = OQ
r
SEQ 0089
.LS0O=0
.RS0O=2B2
.«S0Q=7
.LSOe-0
.RS0B==3B?
.«soe=7
.LS0A=0
.RS0A=4B2
.LSDA=0
.RSDA=5B2
.«SDA--:7
.LSDQ=0
.RSDQ=6B2
.MSD0=7
.LSDO=0
.RSD0=7B2
.MSD0=7
.LFUNC=0
.RFUNC=185
.WFUNC=7
.LPLUS=0
.RPLUS=0B5
.«Pl.US=7
.LSM]N=0
.RSMIN=1B5
.«SMIN=7
.IR«IN=0
.RRMIN=2B5
.«RHIN=7
.LOR=0
.ROR=3B5
.N0R=7
.LANP=0
.RAND=4B5
.«AND=7
Source = OB
Source = OA
Source - DA
Source = DO
Source = DO
MW function field (27:29)
R PLUS S function
R MINUS S function
R MINUS S function
R OR S function
R AND S function
r"
DFSXA
DFSXAT
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
117A
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
DECSYSTE« KLIO CHANNEL/DTE20
MAC 25-Jul-85 20:06
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 30
NI20/CI20 Definitions
SEQ 0090
DFSXA
FIXED
050000
000000
000000
000007
060000
000000
000000
000007
070000
000000
000000
000007
001000
000000
000000
000007
000400
000000
000000
000001
000000
000000
000001
000400
000000
000000
000001
000200
000000
000000
000001
000010
000000
000000
000017
000000
400000
000017
000000
010000
000037
8«
000037
.LNAND=0
.RNAND=565
.MNAND=7
; NOT R AND S functi
on
.LX0R=:0
.RX0R=6B5
.«X0R=7
; R XOR S function
.LXNOR=0
.RXN0R=7B5
.MXN0R=7
; R XNOR S function
.LD=0
.RD=1B8
.TO=7
; MW destination fie
Id
(30:32)
.LCENA=0
.RCENA=1B9
.«CENA=1
; NW CC enable
(33:33)
.LDISA=0
.RDISA=0B9
.nDISA=1
; NU CC disable
.LENA=0
.RENA=1B9
.«ENA=1
; MW CC enable
.LRA«=0
.RRA«=1810
.«RA«=1
: nw RAM mode
(34:34)
.LA=0
.RA=1B14
.«A=17
; WW Port A field
(35:38)
.LB=0
.RB=1B18
.W=17
; nu Port 6 field
(39:42)
.LSK=0
.RSK=ia23
.«SK=37
; P1W skip field
(43:47)
.LCCON=0
.RCC0N=03B23
.«CC0N=37
; Select CC 'on' (CCCSRCHNG)
DFSXA
DECSYSTEH KLIO CHANNEL/Dl
MAC 25-Jul-85 20:06
DFSXAT
1210
)00037
1211
1212
1213
12K
)00000
ri5
!o0037
1216
1217
1218
000000
1219
010000
1220
000037
1221
1222
000000
1223
020000
1224
000037
1225
1226
000000
1227
030000
1228
000037
1229
1230
000000
1231
040000
1232
000037
1233
123A
000000
1235
050000
1236
000037
1237
1238
000000
1239
060000
1240
000037
1241
1242
000000
1243
8oO037
1244
1245
1246
000000
1247
100000
1248
000037
1249
1250
000000
1251
110000
1252
000037
1253
1254
OQOOOO
1255
1% )OQQ
1256
OOOOj)'
1 1257
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 31
NI20/CI20 Definitions
; Select CC 'off (CCGRNTCSR)
SEO 0091
.LCCOF=0
.RCCOF=01B23
.HCC0F=37
.LCCCA=0
.RCCCA=0B23
.«CCCA=37
.LCC6C=0
.RCC5C=01B23
.«CC6C=37
.LCCFZ=0
.RCCFZ=02B23
.«CCFZ=37
.LCCCC=0
.RCCCC=03623
.«CCCC=37
.LCCEB=0
.RCCEB=4B23
.HCCE8=37
.LCCAF=0
.RCCAF=5B23
.«CCAF=37
.LCC8F=0
.RCC8F=6
.«CC8F=3
.LCCXA=0
.RCCXA=7
.«CCXA=3
.RCC8F=6B23
.LrCER=0
.RCCER=10B23
.«CCER=37
.LCCIA=0
.RCCIA=11B23
.«CCIA=37
.LCCHB=0
.RCC«=1i
.RCCW-12B23
3=37
Select CCCBUSAVAIL
Select CCGRNTCSR
Select CCFEOO
Select CCCSRCHNG
Select CCEB'ARERR
Select CCRCVRBUFAFUL
Select CCRCVRBUFBFUL
Select CCXMTRATTN
Select CCEBUSRQST
Select CCINTRACTIVE
Select rCMBSIGN
■,tiM<J9U^.Pf^Fi,u^V{4^^V'^'-^ -
■?^.wi.WBiijiH'.p;ii,*
mvifsmiwv^m
DFSXA
DFSXAT
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
127A
1275
1276
1277
1278
1279
1280
1281
1282
1283
128A
1285
1286
1287
1288
1289
1290
1291
1292
1293
129A
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
DECSYSTEM KLIO CHANNEL/DTE20
MAC 25-Jul-85 20:06
000000
130000
000037
000000
KOOOO
000037
000000
150000
000037
000000
160000
000037
000000
170000
000037
000000
200000
000037
000000
210000
000037
000000
230000
000037
000000
220000
000037
000000
240000
000037
000000
001000
000007
000000
001000
000007
000000
002000
000007
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 32
NI20/CI20 Definitions
; Select CCMVRPARCHK
SEQ 0092
.LCCMP=0
.RCCMP=13B23
.MCCMP=37
.LCCCP=0
.RCCCP=14B23
.MCCCP=37
.LCCPP=0
.RCCPP=15B23
.MCCPP=37
.LCCCE=0
.RCCCE=16B23
.MCCCE=37
.LCCLW=0
.RCCLW=17B23
.MCCLU=37
.LLSAD=0
.RLSAD=20B23
.MLSAD=37
.LSKMB=0
.RSKM8=21B23
.MSKM8=37
.LLDLM=0
.RLDLM=23B23
.MLDLM=37
.LRDLM=0
.RRDLM=22B23
.MRDLM=37
.LSKCN=0
.RSKCN=24B23
.MSKCN=37
.LBUS=0
.RBUS=1826
.MBUS=7
.LSELP=0
.RSELP=1B26
.«SELP=7
.LSELM=0
.RSELM
.MSELM
RSELM=2B26
Select CCCBUSPARERR
Select CCPLIPARERR
Select CCCHANERR
Select CCCBLSTWD
Load SAD Reg
Select MBUS field
Load Local Mem
Read Local Mem
Select constant field
MU bus control field (48:50)
Select PLI field
Select Mbus field
„__.!
rvcrcwcTCia vi in ruAuAiCi /rvrrin tuTcoar r tnu rcrr _ lica A 7 mAran «eiB/i^y')\ iy .at ii.
>..._ac n--. Y*
DFSXA
DFSXAT
1310
11
12
13
U
15
1316
1317
1318
1319
1320
1321
1322
1323
132A
1325
1326
1327
1328
1329
1330
1331
II!
]m
1336
1337
38
39
1341
r '
1331
133«
133<
13A(
14
;5
1
1
1
1
1
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
DECSYSTE« KL10 CHANNEL/DTE20
MAC 25-Jul-85 20:06
QOQOOO
003000
000007
QOOOOO
004000
000007
QOOOOO
005000
000007
QOOOOO
000400
000001
QOOOOO
000020
000017
QOQOOO
000000
000017
QOOOOO
000020
000017
QOOOOO
QQOOAO
000017
000
060
'01 7
QOOOOO
000100
000017
QOOOOO
Q0Q120
000017
000000
OQOUO
000017
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 33
NI20/CI20 Definitions
; Select Fmtr field
SEO 0093
.LSELF=0
.RSELF=3B26
.MSEI.F=7
.LSELC=0
.RSELC=4B26
.MSELC=7
.LSELE=0
.RSELE
.MSELE
.RSELE=5B26
.LCRY=0
.RCRr=1B27
.«CRY=1
.LOP=0
.R0P=1B31
.«0P=17
.LJZ=0
.RJZ=00B31
.«JZ=17
.LCJS=0
.RCJS=01B31
.MCJS=17
.LJ«AP=0
.RJ«AP=02B31
.HJ«AP=i;
.LCJP=0
.RCJP=03B31
.«CJP=17
.LPUSH=0
.RPUSH=04B31
.HPUSH=17
.LJSRP=0
.RJSRP=05B31
.«JSPP=17
.LCJV=0
.RCJV=06B31
.MCJV=17
Select Cbus field
Select Ebus field
MW carry (51:51)
MW control field (52:55)
Jump zero instruction
Conditional JS6 pipeline instruction
Jump MAP instruction
Conditional jump pipeline instruction
Push/cond load counter instruction
Cord J SB R/Pipeline instruction
Conditional JLffip vector instruction
i nccwA
rkCr?wcTCH vi in ruAkiuci /i\rcon tkiTC&Arr tnu rrcr . ucd n 7 mtron vczb/ii/.o\ i/.n7 oi-A...-ac d... 7/
1
DFSXA
DFSXAT
1358
1359
1360
1361
1362
1363
136A
1365
1366
1367
1368
1369
70
71
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
138A
1385
1386
1387
1388
1389
1390
1391
1392
1393
139A
1395
1396
1397
1398
1399
1400
U01
K02
1403
1404
1405
DECSYSTEN KLIO CHANNEL/DTE20
MAC 25-Jul-85 20:06
QQOOOO
QQ0160
000017
QQOQOO
550200
000017
1406
1407
1408
Q90QQC
W4
000017
QOOQOO
000260
000017
QOOOOO
000300
000017
000000
000320
000017
000000
000340
000017
000000
000360
000017
000000
000010
000001
QOOOOO
5Q0004
000001
QOOOOO
QQ0002
000001
QQOOQO
mW
000001
INTERACTION TEST « VER 0,7 MACRO 1538(1242) 14:07 21-Aug-85 Page 34
NI20/CI20 Definitions
; Cond jump R/Pipeline instruction
1 r
SEQ 0094
.LJRP=0
.RJRP=07B31
.WJRP=17
.LRFCT=0
.RRFCT=10B31
.«RFCT=17
.LRPCT=0
.RRPCT=11B31
.«RPCT=17
.LCRTN=0
.RCRTN=12B31
.«CRTN=17
.LCJPP=0
.RCJPP=13B31
.«CJPP=17
.LLDCT=0
.RLDCT=14B31
.MLDCT=17
.LLOOP-0
.RL00P=15B31
.ML00P=17
.LCONT=0
.RC0NT=16B31
.MC0NT=17
.LTUB=0
.RTWB=^17B31
.MTUB=17
.LTIM=0
.RTIM=1B32
.«TIM=1
.LSPAR=0
.RSPAR=1B33
.WSPAR=1
.LF1AR»C=0
.R«ARt(=l834
.««ARK=1
.L8AD=0
.R8AD=1B35
.MBAD=1
Repeat loop, counterfO instruction
Repeat pipeline, counterfO instr
Conditional RTN instruction
Cond jump pipeline and pop instr
Load counter and continue instruction
Test end loop instruction
Continue instruction
Three way branch instruction
time field
1st spare bit
mark bit
force bad parity
nrcvA
rtErcvcTEM iri in ruiuikici /nrcsn turcoArrirtU tcct . ucb n 7 mron ^^xa^^•3lO\ iz.n? oi.a..m.bc o>m« tc
DFSXA
OFSXAT
U09
U10
U11
H12
K13
1415
1A16
U17
UI8
H19
H20
H21
}^22
U23
K24
U25
U26
H2?
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTICN TEST - VER 0.7 MACRO X538(1242) 14:07 21-Aug-85 Page 35
HAC 25-Jul-85 20:06 N120/Ci20 Definitions
* Hicroword Macros (Note: If ADDR not specified, 'ADDR'+I is used).
Left word = ((value AND .Mxxxx) times .Lxxxx) 1 next field ...
Right word = ((value AND .Mxxxx) times .Rxxxx) I next field ...
Samples: MWORD <J=1000,OENA,SORC=2,DEST=3>
MUORD <J=0,0ENA,SORC=2.DEST=3>
#******* t***«r******************t****t*********************** *********
CALC - Insert field value into the microwords under construction
DEFINE CALC($ARG1)<
IFE .L'$AR61-1B11,<XADDR=$AR62>
IFN .L'$AR61-1811,<XML=XML!«$ARG2t.M'$ARG1>*.L'$ARG1>
3(MR=WR!«$ARGH.M'$ARG1>*.R'$ARG1»>
SEQ 0095
; CONCAT - Build string argument
DEFINE C0NCAT($A)<
$8=<SIXBIT /$A/> -36
$CHR=$CHR 6+$B> "
; get right justified character in
octal and accumulate in string
: FIELD - Decode argument in the form XXXX=NNNN into XXXX and NNNN
DEFINE FIELD($ARG)<
$CHR=0 ; init string argument
$6ARG=0 : init numeric argument
IRPC $ARG,<IFN $GARG.<$ARG2=$AR65*8*$ARG>
IFIDN "=".iARG,<$6AR6=1
$ARG2=0>
IFE $GAR6.<C0NCAT $AR6>
IFE $GARG,<$ARG2=1»
CALC \'$CHR> ; enter into microword
; MWORD - Build microwords
MWORD (SFLDX
init left word
DEFINE
WL=0
XMR=0 ; init right word
IRP $FLD,<DEFINE MFLDdAXFIELD tA>
MFLD $FLD>
XML=XML!XADDR ''D24
IADDR=XADDR*r
EXP J;ML,MR> ; done
iDFSXA DFr<;V<;TFM KI10 THANNFI /DTF?n TNTFRArTinN TffiJ - VFR 0.7 MAfRO X^i^^tk(^7L?) U:07 ?1-Aiia-flS P»at> 1
1083
DFSXA
PARAM
K55
U56
K57
U58
K59
U60
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
DECSYSTEM KLIO CHANNEL/DTE20
KLM 18-Sep-79 17:16
INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 1
♦PARAM* CONSOLE DATA SWITCH ASSIGNMENTS. SEPT 18,1979 SEQ 0096
SUBTTL tPARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
DEFINE S,<; ***♦*♦****♦♦♦♦*♦*******♦*♦•***•*♦*♦*♦♦**»**♦***♦•*•♦•**♦****♦«♦♦♦**♦*>
; t******************-******************** **************** ***************
;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
; **********************************************************************
ABORT PROGRAM ON PASS COMPLETION
RESTART TEST, PRINT TOTALS
PRINT TOTALS, CONTINUE
INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
RING BELL ON ERROR
ENTER EXERCISE/CHECK LOOP ON ERROR
HALT ON TEST ERROR
PRINT ALL ERRORS
RELIABILITY MODE
INHIBIT ERROR TEXT
INHIBIT PAGING
1 : r
400000
200000
100000
AB0RT==
RSTART=
T0TALS=
400000
=200000
=100000
040000
020000
010000
N0PNT==
PNTLPT=
DIN6==
040000
=020000
010000
002000
001000
L00PER=
ERST0P=
PALERS=
=004000
=002000
=001000
000400
000200
000100
RELIAB=
TXTINH=
INHPAG=
=000400
=000200
=000100
000040
000020
000010
HODDVC=
INHCSH=
OPRSEL=
=000040
=000020
=000010
000004
CHAIN==
000004
000002
KAHZ50=
=000002
MODIFY DEVICE CODE
INHIBIT CACHE
OPERATOR SELECTION
CHAIN CONTROL SWITCH
KA10 50 HERTZ POWER
SWITCH 17 RESERVED !!!
DFSXA
FIXED
2009
2010
2011
|012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
203/
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
DFSXA DFr<;Yf;TFM KL10 THANNFI /DTF?0 TNTFRArTinN TF5;T - VFR 0.7 MAPRn tS^RM?^?) U:07 71-AiJO-R5 Paop 7
DFSXA
PARAM
H90
H91
1A92
1493
K9A
U95
U96
K97
K98
U99
1500
1501
1502
1503
150A
1505
1506
1507
1508
1509
1510
1511
1512
1513
15U
1515
1516
1517
1518
1519
1520
1521
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) U:07 21-Aug-85 Page 2
KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
SUBTTL *PARAM* PROGRAM/ SUBROUTINE PARAMETERS, SEPT 18,1979
• **********************************************************************
.-♦SPECIAL SUBPROGRAM LINKAGES
FILE SELECT LINK
FILE READ LINK
LOAD LINKAGE ADDRESS
DDT LINKAGE ADDRESS
OPERATIONAL MODE CHECK LINKAGE ADDRESS
SUBROUTINE LINKAGE ADDRESS
♦SPECIAL SUBROUTINE FATAL HALTS
♦USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
**********************************************************************
ADDRESS TAG REASON
SEQ 0097
027772
027773
FSELNK=
27772
FRDLNK=
27771
)2777^
LDLNK=
27771,
)27775
DDTLNK=
27775
)27776
MODLNK=
27776
027777
SUBLNK=
27777
1010
1011
1012
1013
1014
1015
1016
1017
1020
NOEXEC
PLERR
PLERRl
MUOERR
DTEBER
DTECER
CPIERR
EOPERR
LUOERR
PROGRAM NOT CODED FOR EXEC MODE OPERATION
FATAL PUSH LIST POINTER ERROR
INITIAL PUSH LIST POINTER ERROR
MUUO WITH LUUO HANDLER WIPED OUT
DTE20 INTERRUPT WITHOUT DOORBELL
DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
CPU INITIALIZATION ERROR
END OF PROGRAM ERROR
INTERRUPT WITH LUUO HANDLER WIPED OUT
**********************************************************************
DFSXA
DFSXAM
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO )!53B(1242) 14:07 21-Aua-85 Paae 3
DFSXA
PARAM
1522
1523
152A
1525
1526
1527
1528
1529
1530
1531
1532
1533
153A
1535
1536
1537
1538
1539
1540
15A1
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 3
KLM 18-Sep-79 17:16 *PARA)1* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
SEQ 0098
260740
263740
261740
262740
254000
254200
254100
254500
037000
037040
037100
037140
037200
037240
037300
037340
037400
037440
037500
000000
000000
000000
000000
000000
000000
000000
000000
265000 030011
037640 000004
037600 000004
000003
000003
000003
000003
000003
000003
000003
000003
000003
000003
000003
**•*•*****••*********«:••••*****«***«* ******** ****** *******************
OPERATOR DEFINITIONS (NON-UUO'S)
**********************************************************************
OPDEF 60 [PUSHJ P.]
OPDEF RTN CPOPJ P,]
OPDEF PUT CPUSH P,]
OPDEF GET [POP P,:
OPDEF PJRST [JRST ]
OPDEF HALT [JRST 4,]
OPDEF JHSTF [JRST 2,]
OPDEF JEN [JRST 12, J
SUBROUTINE CALL
SUBROUTINE RETURN
PUT DATA ON PUSH LIST
GET DATA FROM PUSH LIST
JRST TO ROUTINE THAT RTN'S
DEFINITION FOR DDT
DEFINITION FOR DDT
DEFINITION FOR DDT
**********************************************************************
SUBROUTINE INITIALIZATION CALL
**********************************************************************
DFSXA
DFSXAM
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
OPDEF PGMINT [JSP 0,SBINIT]
.-SUBROUTINE INITIALIZATION
**********************************************************************
HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION),
**********************************************************************
OPDEF FATAL [37B8!15B12!4J .-FATAL PROGRAMMING HALT
OPDEF ERRHLT [378811481 2 143 .-PROGRAM ERROR HALT
**********************************************************************
TERMINAL INPUT UUO'S
ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
**********************************************************************
OPDEF TTICHR [3788! OBI 2! 33
OPDEF TTIYES [37B8!1B12!3]
OPDEF TTINO [37B8!2B12!3:
OPDEF TTIOCT [37B8!3B12!33
OPDEF TTIDEC [37B8!4B12!3]
OPDEF TTICNV [37B8!5B12!33
OPDEF TTLOOK [37B8!6B12!3]
OPDEF TTALTM [37B8!7B12!3]
OPDEF TTSIXB [37B8!10B12!33
OPDEF TTYINP [37B8!11B12!3]
OPDEF TTICLR C37B8!12B12!3]
TTY, INPUT ANY CHARACTER
TTY, NORMAL RETURN Y
TTY. NORMAL RETURN N
TTY, INPUT OCTAL WORD
TTY, INPUT DECIMAL WORD
TTY, INPUT CONVERTABLE WORD
TTY, KEYBOARD CHECK
TTY, ALT-MODE CHECK
TTY, INPUT SIXBIT WORD
TTY. IMAGE MODE INPUT
TTY. CLEAR INPUT
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aua-85 Paae 4
i fVCCWA
OFSXA
PARAM
1565
1566
1567
1568
1569
1570
1571
1572
1573
157h
1575
1576
1577
1578
1579
1580
1581
1582
1583
158A
1585
1586
1587
1588
1589
1590
1591
1592
1593
159«
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) H:07 21-Aug-85 Page 4
KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS. SEPT 18.1979
SEO 0099
.•TERMINAL OUTPUT UUO'S.
037000
037000
037740
037740
037600
037640
037000
037040
037100
037200
037000
037040
037500
037500
037040
037040
037100
037100
037140
037140
037200
037200
037240
037240
037300
037300
037340
037340
Qi'440
037440
037400
037400
037600
037600
037540
037540
037700
037740
037640
037640
037700
037700
000000
000001
000000
000001
000003
000003
000000
000000
000000
000000
000000
000000
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000003
000003
QOOQOO
000001
000000
000001
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
PNTA
PNTAF
PNTAL
PNTALF
PS I XL
PSIXLF
PNTMS6
PNTMSF
PSIXM
PSIXMF
PNTCI
PNTCIF
PNTCHR
PNTCHF
PNT1
PNT1F
PNT2
PNT2F
PNT3
PNT3F
PNTA
PNT4F
PNT5
PNT5F
PNT6
PNT6F
PNT7
PNT 7F
PNT11
PNT11F
PNTADR
PNTADF
PNTOCT
PNTOTF
PNTHW
PNTHWF
PNTOCS
PNTOCF
PNTDEC
PNTDCF
PNTDS
PNTDSF
,3788
[3788
:37B8
"788
788
C3788
:37B8
:37B8
*^37B8
.37B8
C37B8
:37B8
^^3788
37B8
.37B8
:37B8
.37B8
C37B8
:37B8
37B8
3788
.3788
C37B8
37B8
J7B8
[37B8
37B8
[37B8
*^37B8
37B8
[37B8
37B8
^3788
IM
.3788
C37B8
^VB8
7B8
781
781
..78
C37&
! 0812103
! 081211]
!17812!03
!17B12!1]
!14B12!33
1581213]
10812
11812
12812
14812
10B12
11B12
'12812
0]
0]
0]
0]
0]
0]
'0]
1281211]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
0]
1]
3]
3]
?^
0
I1B12
11812
12B12
12812
13812
13B12
14812
14812
15B12
15812
16812
16812
17812
17B12
111812
111812
110812
110812
114812
114812
113812
113812
116812
117812
115812
115812
116812
116812
?^
PRINT ASCII WORD
PRINT ASCII WORD FORCED
PRINT ASCIZ LINE
PRINT ASCIZ LINE FORCED
PRINT SIXBIT'Z LINE
PRINT SIXBIT'Z LINE FORCED
PRINT MESSAGE IMMEDIATE
PRINT MESSAGE IMMEDIATE FORCED
PRINT SIXBIT'Z MSG IMMEDIATE
PRINT SIXBIT'Z MSG IMM FORCED
PRINT CHARACTER IMMEDIATE
PRINT CHARACTER IMMEDIATE FORCED
PRINT CHARACTER
PRINT CHARACTER FORCED
PRINT ONE OCTAL DIGIT
PRINT 1 OCTAL DIGIT FORCED
PRINT TWO OCTAL DIGITS
PRINT 2 OCTAL DIGITS FORCED
PRINT THREE OCTAL DIGITS
PRINT THREE OCTAL DIGITS FORCED
PRINT FOUR OCTAL DIGITS
PRINT FOUR OCTAL DIGITS FORCED
PRINT FIVE OCTAL DIGITS
PRINT FIVE OCTAL DIGITS FORCED
PRINT SIX OCTAL DIGITS
PRINT SIX OCTAL DIGITS FORCED
PRINT 7 OCTAL DIGITS
PRINT 7 OCTAL DIGITS FORCED
PRINT 11 OCTAL DIGITS
PRINT 11 OCTAL DIGITS FORCED.
PRINT PHYSICAL ADDRESS
PRINT PHYSICAL ADDRESS FORCED
PRINT FULL WORD OCTAL
PRINT FULL WORD OCTAL FORCED
PRINT OCTAL HALF WORDS. 6 SP 6
PRINT OCTAL HALF WORDS. 6 SP 6 FORCED
PRINT OCTAL. SUPPRESS LEADING O'S
PRINT OCTAL. SUPPRESS LEADING O'S FORCED
PRINT DECIMAL. SUPRESS LEADING O'S
?Aim DECIMAL. SUPRESS LEADING O'S FORCED
PRINT DECIMAL. SPACES FOR LD O'S
PRINT DECIMAL. SPACES FOR LD O'S FORCED
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aua-85 Paae 5
r\tcw«
n
087
DFSXA
PARAM
1609
1610
1611
1612
1613
16U
1615
1616
1617
1618
1619
1620
1621
1622
1623
162A
1625
1626
1627
1628
1629
1630
1631
1632
1633
163A
1635
1636
1637
1638
1639
16A0
16A1
1642
16A3
1644
1645
1646
1647
1648
1649
1650
1651
1652
DECSYSTEM KLlO CHANNEL/0TE20 INTERACTION TEST - VER 0.7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 5
KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS. SEPT 18.1979
SEQ 0100
0
0
0
0
0
O!
57200
(7000
J7040
037240
037100
17140
(7000
J7040
.37000
037040
037000
037040
037040
037540
037200
037040
037100
037140
000002
000002
000002
000002
000002
000002
030242
030242
000040
000040
030243
030243
000007
037040 000026
037400 000002
000004
000004
000004
000004
000004
OPDEF
PNTNM
OPDEF
PNTSIX
OPDEF
PNTSXF
OPDEF
DROPDV
OPDEF
PNTCU
OPDEF
PNTCUF
OPDEF
PCRL
OPDEF
PCRLF
OPDEF
PSP
OPDEF
PSPF
OPDEF
PCRL2
OPDEF
PCRL2F
OPDEF
PBELL
OPDEF
PFORCE
DEFINE
PMSG
PSIXM
DEFINE
PMSGF
PSIXMF
788
.,788
l37B'
78
78
78
.-788
3788
^3788
3788
3788
4B12
OBI 2
1B12
5B12
2B12
3B12
OBI 2
1B12
OBI 2
1B12
OBI 2
1B12
1B12
23 .-PRINT PROGRAM NAME
2] .-PRINT SIXBIT WORD
2] .-PRINT SIXBIT WORD FORCED
23 .-CLOSE LOGICAL FILE. USER MODE
2] .-PRINT DF10 CONTROL WORD
2] .-PRINT DF10 CONTROL WORD FORCED
CRLF3 .-PRINT CARRIAGE RETURN/LINE FEED
CRLF] -PRINT CARRIAGE RETURN/LINE FEED FORCED
403 .-^RINT SPACE
403 :PRINT SPACE FORCED
CRLF2J .-PRINT CARRIAGE RETURN/LINE FEED (TWICE)
CRLF23 ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
73 .-PRINT TTY BELL
[3788118121263 .-PRINT FORCE, CONTROL 0 OVERRIDE
(ARG).<
[SIXBIT\ARG'.\3>
(AR6),<
CSIXBIT\ARG'.\3>
.-SIXBTZ — MACRO TO GENERATE SIXBIT DATA FOR PRINTING
CONSERVES CORE OVER ASCIZ
DEFINE SIXBTZ (ARG).< CSIXBIT\ARG'.\3>
.•CONSOLE SWITCH INPUT UUO.
.•READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
; USER MODE.
OPDEF SWITCH [3788 II OBI 2! 23 .-INPUT CONSOLE SWITCHES
.■CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
.•EITHER IGNORE CLOCK. ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
OPDEF CLOKOP [37881 13B12143 .-CLOCK OPERATION UUO - PDP-11 CLOCK
OPDEF MTROP [3788!4B12!43 .-CLOCK OPERATION UUO - DK20 METER
;KL10 ONLY CACHE OPERATION UUO'S
OPDEF CINVAL [378811812143 .-CACHE INVALIDATE
»,,-x .-CACHE FLUSH
INVALIDATE
OPDEF CFLUSH 3788 1 2812 !4J .-CACHE FLUSH
OPDEF CWRTBI [3788! 381 2! 43 .-CACHE WRITE-BACK t
r
088
DFSXA
PARAM
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
166A
1665
1666
1667
1668
1669
1670
1671
1672
1673
167A
1675
1676
1677
1678
1679
1680
1681
1682
1683
168A
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
DECSVSTEN KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X538(1242) U:07 21-Aug-85 Page 6
KLM 18-Sep-79 17:16 *PARA«» PROGRAM/SUBROUTINE PARAMETERS. SEPT 18.1979
;END OF PASS/PROGRAM UUOS
037500 000004
037700 000004
037000
037500
037440
037540
037640
037600
037740
037340
037300
037240
037300
037340
037400
000004
000002
000002
000002
000002
000002
000002
000002
000002
030000
030000
000004
000004
000004
000004
037700 000002
SEQ 0101
.-PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT.
.•DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
OPDEF ENDUUO C37B8! 12B12I4] ;UUO TO DISPLAY LIGHTS
OPDEF EOPUUO [37B8!16B12!4: ;END OF PROGRAM UUO
;MEMORY MANAGEMENT UUO'S
;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING. PAGING.
.•ADDRESS CONVERSION. ETC...
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
OPDEF
MAPMEM
MEMZRO
MEMSEG
MAPADR
MAPCNK
MAPSET
MAPPNT
C3788
[37B8
C37B8
C37B8
C3788
C37B8
[3768
0B12I4J
12B12
11B12
13B12
15B12
14B12
17B12
2J
22
21
22
22
22
MAP MEMORY
ZERO MEMORY
SETUP MEMORY SEGMENT
VIRTUAL TO PHYSICAL ADR CONVERT
MAP MEMORY CHUNK
SET KI10 EXEC PAGE MAP
PRINT MEMORY MAP
DEVICE CODE MODIFICATION UUO
ALLOWS THE MODIFICATION OF lOT'S TO ONE DEVICE TO BE CHANGED TO
lOT'S TO A DIFFERENT DEVICE CODE.
OPDEF
OPDEF
MODPCU
MODPCP
IFNDEF
IFNOEF
C37B8!7B1212]
C3788!6B12!2:
.•MODIFY PERHIPFRAL CODE. USER
.MODIFY PERHIPERAL CODE, PROGRAM
MODDVL,<MODDVL==BEGIN>
MODDVU,<MODDVU==BEGIN>
.••DIAMON" FILE SELECTION AND READ UUOS
OPDEF F SELECT [37B8!5BU!4J
OPDEF FREAD C37B8!6B12!4]
OPDEF FRD36 [37B8!7812!43
OPDEF FRD8 [37B8 1 10812143
FILE SELECTION
FILE READ - ASCII DATA
FILE READ - 36 BIT DATA
FILE READ - 8 BIT DATA
;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
OPDEF PNTMGN [37B8! 16B12I2] .-PRINT MARGIN VALUE
IFNDEF
XLIST
KLOLD.<LIST
DFSXA
PARAM
1696
1697
1698
1699
1700
1701
1702
1703
170A
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
172A
1725
1726
1727
1728
1729
1730
1731
1732
1733
f ■ -■
DECSYSTEH KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J:53B(12A2) U;07 21-Aug-85 Page 7
KLM 18-Sep-79 17:16 ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
SUBTTL ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
•ERROR HANDLER PARAMETERS
\
0102
OFSXA
DFSXAM
036000 000000
035000 000000
035040 000000
035100 000000
034000 000000
OPDEF
ERUUO
[3688]
OPDEF
ERLOOP
:3588:
OPDEF
ERLP1
:3588!1B12]
OPDEF
ERLP2
:358812B123
OPDEF
REPTUO
C3488:
ERROR CALL UUO
ERROR LOOP. CHECKS PC, REPT,REPT1, ERROR
ERROR LOOP IF PC'S MATCH
ERROR LOOP IF ANY ERROR
REPEAT LOOP UUO
;THE ERROR HANDLER MACROS
;A MACRO TO REPORT AN ERROR AND LOOP
DEFINE ERROR (ADR, FORMAT, CORECT, ACTUAL, F,D,ERR)<
SALL
ERUUO FORMAT, [T,,[SIX8IT\F' \]
CORECT,,ACTUAL
CSIXBITVD' \J,,ERR]
XALL
ERLOOP ADR ;IF ERROR, LOOP TO ADR
;A MACRO TO REPORT AN ERROR AND NOT LOOP
DEFINE ERR0R1 (FORMAT, CORECT, ACTUAL. F,D,ERR)<
ERUUO FORMAT, [T,,[SIX8IT\F' \:
CORECT,, ACTUAL
CSIXBITVD' \J..ERRJ
SALL
XALL>
>;END OF KLOLD CONDITIONAL
XLIST
LIST
DFSXA
FIXED
173A
1735
1756
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
DtCSYSTEH KL10 CHANNEL/DTE20
KLM 18-Sep-79 17:18
030000
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
♦FIXED* FIXED CONTROL AND DISPATCH STORAGE. SEPT 18.1979
SUBTTL *FIXED» FIXED CONTROL AND DISPATCH STORAGE. SEPT 18.1979
LOC 30000
PROGRAM STARTING ADDRESSES
THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
OF END OF PASS. POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
NODE). OR ANY NUMBER OF SPECIAL FEATURE TESTS.
SEQ 0103
030000 254 00 04 00 027776
030001 254 00 0 00 030600
030002 254 00 1 00 027774
030003 254 00 1 00 027774
030004 254 00 0 00 030000
030005 254 00 0 00 030000
030006 254 00 0 00 030000
03000^
030C07 254 00 1 00 027775
030010 254 00 0 00 030630
030011 254 00 1 00 027777
030012 G^/.»000 000000
030013 000000 043621
030014 000000 030600
030015 000000 043621
030016 000000 043621
0300^7 000000 377000
BEGIN:
tSTART;
JRST
JRST
DIA6MN: JRST
SYSEXR: JRST
SFSTRT: JRST
PFSTRT: JRST
REENTR: JRST
SRTDDT;
DDTSRT:
BE6IN1:
S6INIT:
RETURN: 0
START1 ;
START2:
START3:
START4:
STARTS:
JRST
JRST
JRST
5ADR7
SADR8
SADR9
S ADR 10
SADR11
aMODLNK
START
aLDLNK
aLDLNK
SADR1
SADR2
SADR3
aDDTLNK
START A
aSUBLNK
STAND-ALONE START
MODE CHECK STARTING ADDRESS
DIAGNOSTIC MONITOR START
SYSTEM EXERCISER START
SPECIAL FEATURE START
POWER FAIL RESTART
REENTER START (USUALLY USER MODE ONLY)
COMMONLY MISTAKEN NAME FOR "DDTSRT"
DDT START
LOOP START (END OF PASS COMES HERE)
PMGINT LINKAGE
RETURN ADDRESS STORAGE
OPTIONAL STARTING ADR/ INSTRUCT IONS
OFSXA
FIXED
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1805
1804
1805
1806
1807
1808
1809
1810
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO :538(1242) U:07 21-Aug-85 Page 2
KLH 18-Sep-79 17:18 tFIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18.T979
SEQ 0104
DFSXA
DFSXAn
030020
030021
030022
030023
030024
030025
030026
030027
030030
030031
030032
030033
030034
030035
030036
030037
03004C
030041
030042
030043
030044
030045
030046
030047
030050
030051
030052
030053
030054
030055
030056
444663
645560
123457
000000
000000
000000
000000
oooooo
000000
777777
OOOOOO
OOOOOO
777777
OOOOOO
CJOOOO
OOOOOO
OOOOOO
OOOOOO
777777
OOOOOO
OOOOOO
Ou-»000
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
704100
OOOOOO
654321
OOOOOO
777777
060615
000007
030000
030000
777777
OOOOOO
OOOOOO
777777
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
777777
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
OOOOOO
•PROGRAM FIXED PARA^ETER AREA
PNTNAM: PARE A3 ;SIXBIT PROGRAM NAME
f»NTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
RANDBS: PARE A 1 ; RANDOM BASE NUMBER
SWTEXR: PAREA2 .-SYSTEM EXERCISER SyiTCHES
ITRCNT: ITERAT .-PROGRAM ITERATIONS
tPNAME: PGMNAM .-POINTER TO PROGRAMS NAME
iPVER: MCNVER..DECVER .HCN t DEC VERSION LEVEL
tnODVL: MODDVL .DEVICE CODE CHANGE LOWER LIMIT
SMODVU: MODDVU .-DEVICE CODE CHANGE UPPER LIMIT
lEMODE: IFNDEF EXCAS8.<0> IFDEF EXCASB.<-1> .-EXEC ALLOWED
$UHODE: IFNDEF USRASfl.<0> IFDEF USRASB.<-1> ;USER ALLOWED
lOSKUP: IFNDEF DS»CUPD.<0> IFDEF DSKUPD.<-1> .-DISK UPDATE MODE
$WIAP. IFNDEF MEnMAP.<0> IFDEF MeMMAP.<-1> .ALLOW MEMORY RTNS
PAREA7.- PAREA5 .-OPTIONAL PARAMETER
PAREA8; PAREA6 ;OPTIOfiAL PARAMETER
.-PROGRAM VARIABLE PARAMETER AREA
USER: 0
KAIFLG: 0
KLFL6: 0
MONFLG: -1
WNCTL:
MONTEN:
CLOCKF :
CONSW:
PASCNT: 0
RUNFLG: 0
TESTPC: 0
ERRPC :
ERRTLS:
TICKS:
MARGIN:
lONETM:
0
0
0
0
0
0
0
0
0
0 = EXEC. -1 = USER MODE FLAG
PROCESSOR TYPE. 0 = KAIO. -1 = KIIO
PROCESSOR TYPE. 0 = KA/KI. -1 = KLIO
DIAG ^WNITOR SPECIAL USER FLAG
DIAG MON/SYS EXR FLAG
-1= LOADED BY 10
CLOCK TICKED FLAG
CONSOLE SWITCH SETTINGS
PROGRAM PASS COUNT
PROGRAM RUN FLAG
SUBTEST PC
ERROR PC
ERROR TOTALS
PROGRAM RUNN'NG TIME
KI10 MARGIN kJRD VALUE
SUBROUTINE INITIALIZATION FLAG
EQ 0092
DFSXA
FIXED
1811
1812
1813
18U
1815
1816
1817
1818
1819
1820
1821
1822
1823
182A
1825
1826
1827
1828
1829
1830
1831
1832
1833
183A
1835
1836
1837
1838
1839
18A0
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 3
KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
; ******************* **«•*•******«**«****************«*****«*****«**«'***
.-SPECIAL PROGRAM DISPATCH ADDRESSES
• **********************************************************************
SEQ 0105
030057
030060
030061
030062
030063
030064
030064
030065
030065
030066
030067
030070
030071
030072
030073
030074
030075
030076
030077
030100
030101
030102
030103
030104
030105
030106
030107
030110
030111
030112
030113
030114
030115
030116
030117
030120
030121
030122
030123
037 12 0 00 000004
254 00 0 00 030010
037 16 0 00 000004
000000 043621
000000 036334
350 00 0 17 000000
263 17
255 00
255 00
255 00
255 00
255 00
255 00
255 00
255 00
255 00
255 00
255 00
255 00
254 04
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 030102
000000 000000
000000 000000
000000 000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
BEGEND:
SBEND1 :
t6END2:
L TLC:
ALFMGO:
CPOPJl:
UUOSKP:
CPOPJ :
UUOEXT:
UUORTN:
$UORTX:
SUUOER:
SITRHL:
$ITRX1:
SUSRHL:
$RSRTX:
SRSRTY:
RESRT1:
RESRT2:
SPARER:
ERMORE:
SPSHER:
ITRCHli
ENDUUO
JRST BEGINl
EOPUUO
SADR5
SADR6
AOS
RTN
JFC
JFC
JFC
JFC
JFC
JFC
JFC
JFC
JFC
JFC
JFC
JFC
HAL
0
0
0
(P)
END OF PASS
KEEP RUNNING PROGRAM
END OF PROGRAM - NO RETURN
CONTROL C XFER ADDRESS
ALTMODE XFER ADDRESS
SKIP RETURN
SKIP RETURN FROM UUO
NON-SKIP REGULAR RETURN
UUO RETURN
ADDITIONAL USERS UUO ROUTINE
ADDITIONAL UUO LINKAGE
INITED AS (JRST SUOERX)
ApDITIONAL INTERRUPT LINKAGE
ApDITIONAL POWER FAIL LINKAGE
;NITED as (JRST RESRTX)
ADDITIONAL PARITY ERROR LINKAGE
ADDITIONAL ERROR HANDLER LINKAGE
IMPROPER TRANSFER HALT
INITED AS (JRST PSHERR)
PC & FLAGS OF CURRENT INTERRUPT
INITED AS (JRST SITRCD
; **********************************************************************
; PROCESSOR CONTROL STORAGE
• *************************************************** *****************ir*
$ACCO: 0
SSVPI : 0
ISVAPR: 0
SSVPAG: 0
SSPAGI: 0
SSVUUO: 0
SSVUPC: 0
REPTU: 0
SCOPE : 0
XCORFLG:0
XCOREC: 0
XACTFL: 5
XACTUL: 0
XDISCR: 0
INTERRUPT SAVED ACO
INTERRUPT SAVED PI
INTERRUPT SAVED APR
INTERRUPT SAVED PAG (DATAI)
INTERRUPT SAVED PAG (CONI)
.•CURRENT USERS UUO
;PC OF CURRENT USERS UUO
REPEAT UUO ITERATIONS
ERROR HANDLER SCOPE LOOP FLAG
" CORRECT FLAG
" CORRECT DATA
" ACTUAL FLAG
" ACTUAL DATA
" DISCREPENCY DATA
DF
DF
I 0093
OFSXA
DECSYSTEM KLIO
CHANNEL/DTE20 INTERACTION TEST •
- VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 4
:0NTR0L AND DISPATCH STORAGE, SEPT 18,T979
FIXED
<LM
18-Sep-
79 17:18
•FIXED* FIXED (
SEO 0106
1862
; ******** ******************* ***********t*******************************
1863
;UUO DISPATCH
FABLE
186A
• ********************t************************ *************** **********
XLIST
. . .,.
1866
LIST
1867
0301 2A
041600
030070
JUODIS: LUU01,
,$UUOER
,""-,= ■ ^ " " -;
1868
030125
042146
042123
LUU03,
.LUU02
1869
030126
042250
042411
LUU05.
,LUU04
1870
030127
042364
042331
LUU07-
,LUU06
1871
030130
030070
030070
LUU01 1
,,LUU010
1872
030131
030070
030070
LUU013
,,LUU012
1873
030132
030070
030070
LUU015
,,LUU014
187A
030133
030070
030070
LUU017
,,Lb'U016
. ■ 1 . - t
1875
0301 3A
030070
030070
LUU021
,,LUU020
1876
030135
030070
030070
LUU023
,,LUU022
1877
030136
030070
030070
LUU025
,,LUU024
1878
030137
030070
030070
LUU027
,,LUU026
1879
030140
030070
030070
LUU031
,,LUU030
1880
1881
1882
030141
030070
030070
LUU033
.,LUU032
'
; **********************************************************************
1883
.-MEMORY MANAGMENT STORAGE
188A
; **********************************************************************
1885
1886
030142
OOOOOO
OOOOOO
I)F22F: 0
;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
1887
030143
OOOOOO
)00000
HAPNEU: 0
;MEM0RY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
1888
030144
OOOOOO
)00000
NEMTOT: 0
;T0TAL MEMORY SIZE IN K (1024.)
1889
030145
OOOOOO
OOOOOO
NEMLOW: 0
; LOWEST USABLE MEMORY
1890
1891
1892
030146
HEMSIZ; BLOCK '
*D41
jMEMORY SEGMENT POINTER TABLE
; **********************************************************************
1893
;PRINT CONTROL
STORAGE
189A
; **********************************************************************
1895
1896
030217
OOOOOO
OOOOOO
PNTFLG: 0
;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
1897
030220
OOOOOO
OOOOOO
PNTENB: 5
»DI SF: 0
iPRINT ENABLE
1898
030221
OOOOOO
OOOOOO
;PRINT DISABLED FLAG
1899
030222
OOOOOO
OOOOOO
PNTINH: 0
; INHIBIT PRINT INPUT CHECKS
1900
030223
OOOOOO
OOOOOO
PNTSPC-- 0
•PRINT SPACE CONTROL
1901
030224
OOOOOO
OOOOOO
JPTIME: 0
^rWCNT: 0
;TYPE-IN WAIT TIME
]2Qi
030225
OOOOOO
OOOOOC
;TIME WAITED
1903
81^^ raS 88W
JDVOI^F: 0
rTYFiL: 0
'■'"■" :'"■' '■-■
[LOGICAL DEVICE INITED FLAG
;TTY EXEC FILLERS FLAG
1905
030230
OOOOOO
OOOOOO
rTYSPD: 0
■TTY EXEC BAUD RATE
1906
030231
OOOOOO
)00000
)00000
UTCHR: 0
■ACTUAL TYPED IN CHAR
1907
030232
yooooo
[CHRIN: 0
•UPPER CASED & PARITY STRIPPED CHAR
1908
030233
OOOOOO
!W
iTYPNB: 0
•TYPED IN NUMBER
1909
030234
OOOOOO
KRif : 0
•FREE CR/LF FLAG
1910
030235
OOOOOO
)00000
STABF ; 0
•TAB CONVERSION FLAG
1911
030236
030237
oocooo
)00000
Ifff: 0
ivTF: 0
•FORM FEED CONVERSION FLAG
1912
■
)00000
•VERTICAL TAB CONVERSION FLAG
1913
19U
mf^
JSRLFF: 6
JSRCRF: 0
•USER LF F LLERS
•USER CR F LlERS
i 0094
OFSXA
FIXED
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 5
KLM 18-Sep-79 17:18 tFIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,7979
SEO 0107
030242
030242
030243
030243
030244
030245
030246
030247
030250
030250
030251
030252
030253
030254
030255
030256
030257
03026C
030261
030262
030263
030264
030274
030277
030300
030301
015 012 000 000 000
015 012 015 012 OuO
054 000 000 000 000
056 000 000 000 000
040 000 000 000 000
Oil 000 000 000 000
055 000 000 000 000
053 000 000 000 000
052 000 000 000 000
IOC 000 000 000 000
050 000 000 000 000
051 000 000 000 000
007 0000000000
077 000 000 000 000
057 000 000 000 000
044 000 000 000 000
000000 000012
000000 000040
oonooo 000012
030265
03)270 60 02 51 56 64 00
030271 60 56 64 00 00 00
030272
60
60
a
51
64
56 64 00
00 00 "'
00
**********************************************************************
THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
MOVEI NAME
PNTA ;0R PNTAF
CRLF:
I
CRLF2:
/
COMMA:
PERIOD:
SPACE :
TAB:
MINUS:
HYPEN:
PLUS:
AST:
ATSIN:
lFP:
RTP:
BELL:
QUEST:
SLASH:
DOLLAR:
RADIX:
RADLSP:
RADLSC:
ASCII/
ASCII/
ASCII/./
ASCII/./
ASCII/ /
ASCII/ /
ASCII/-/
ASCII/*/
ASCII/*/
ASCII/a/
ASCII/(/
ASCII/)/
BYTf ■''> 007
ASCJ
ASC..;/i
ASCJI/$/
*D10
40
*D10
.•DECIMAL PRINT RADIX
.•DECIMAL PRINT LEADING CHAR
; DECIMAL PRINT LEADING CHAR COUNT
; *****************************************t****t****** *****************
.-USER MODE OUTPUT FILE INFORMATION
• **********************************************************************
SOBUF : BLOCK 3
lOUTNM: SIXaiT /PRINT/
»OUTEX: SIXBIT /PNT/
BLOCK 2
.-LOGICAL FILE OUTPUT BUFFER HEADER
.•FILE NAME
.•FILE NAME EXTl>JSION
; ************************* **************************************t******
.■DISK UPDATE MODE FILE INFORMATION
; ************************************************ •*******************t»*
SI6UF : BLOCK 3
flNNM: SIXBIT /PRINT/
llNEXT: SIXBIT /PNT/
BLOCK 2
n
DFSXA
FIXED
1963
1%A
1%5
1%6
1967
1968
1969
1970
1971
1972
1973
197A
1975
1976
1977
1978
1979
1980
1981
1982
1983
198A
1985
1986
1987
1988
1989
1990
1991
1992
1993
199A
1995
1996
1997
1998
1990
2000
2001
2002
2003
200A
2005
2006
2007
2008
DECSYSTEM KLIO CHANNEL/DTE20
KLM 18-Sep-79 17:18
030303 m*iV 030303
03030A
030504 000000 000000
030505 000000 000000
030506 000000 000000
030507 000000 000000
03051 C 000000 000000
030511 000000 000000
030512 000000 000000
030513 000000 000000
0305K 000000 000000
030515 000000 000000
INTERACTION TEST - VER 0.7 MACRO J:538(12A2) 14:07 21-Aug-85 Page 6
♦FIXED* FIXED CONTROL AND DISPATCH STORAGE. SEPT 18,7979
.•PUSHDOWN LIST CONTROL INFORMATION
PLIST: PLIST-PLISTE,.PLIST
PLISTS: BLOCK 200
PLISTE: 0 ;END OF PUSHDOWN LIST
; •**********•********************##**********************•******#«**##*
.-POWER LINE CLOCK FREQUENCY FLAG
; ************************************************ *********t**t**t******
SEO 0108
CYCL60: 0
;0 = 60. -1 = 50 CYCLE
;KL10 CACHE CONTROL FLAGS
• ******* t ************** **t ******************* t*******t *****************
CSHFLG: 0
CSHMEM: 0
.•ALLOW CACHE IF 0
.•CACHE MEMORY SEGMENTS U 0
• **********************************************************************
.-NUMBER INPUT DIGIT FLAG
• **********************************************************************
TTNBRF: 0
.•-1 IF ANY DIGIT TYPED
• **********************************************************************
.-KLIO S KIIO "INHPAG" SWITCH PAGING PREVENTION
• **********************************************************************
PVPAGI: 0
lU NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
; **********************************************************************
.•ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
• **********************************************************************
XERHIl: 0
XERHI2: 0
J;ERHI3: 0
;IF NON-ZERO. XCT'D AT START OF XERUUO
;IF NON-ZERO. XCT'D AT END OF XERUUO
;IF NON-ZERO. XCT'D AFTER "PC" OF XERUUO
; **********************************************************************
.•SPECIAL USERS UUO INTERCEPT INSTRUCTION
; **********************************************************************
SSUUO: 0
;IF NON-ZERO. XCT'D AT START OF SUORTN
ik.r «*k« A
Ji^ V ^ ^ A
> V • «^*t
t^ »\ /\ ^ ^««a«««
0K^ ^4
■ 1
1
DFSXA
FIXED
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
202A
2025
2026
2027
2028
2029
2030
2031
2032
2033
203A
2035
2036
203/
2038
2039
2040
20A1
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
DECSYSTEH KLIO CHANNEL/DTE20
KLM 18-Sep-79 17:18
030516 000000 000000
030517 000000 000000
030520 000000 000000
030521 000000 000000
030522 000000 000000
030523 000000 000000
030524 000000 000000
030525 000000 000000
030577
030577 000000 000000
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 7
*FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,T979
USER MODE MONITOR TYPE FLAG
HONTYP: 0
;0 = TOPSIO, -1 = TOPS20
SPECIAL USERS MUUO INTERCEPT INSTRUCTION
SIMUUO: 0
;IF NON-ZERO, XCT'D AT START OF MUUOER
SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
**************************************************** ********** ******
$SOUTER:i
:1F NON-ZERO, XCT'D AT END OF USER MODE ERROR
********************************************************************
'SWITCH" CALL USAGE CONTROL
********************************************************************
$$TOGGLE:0
:1F NON-ZERO. USE C(CONSU) FOR SWITCHES
********************************************************************
SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
********************************************************************
$$TAX1: 0
$$TAX2: 0
;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
********************************************************************
SMIO (KS-IO) PROCESSOR TYPE FLAG
********************************************************************
SMIO:
;IF -1 THIS IS A KS-IO
*************************************************** Ik* ***************
RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
********************************************************************
SWPTAB: 0
;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
********************************************************************
SPECIAL FUTURE EXPANSION ROOM
********************************************************************
********************************************************************
END OF FIXED STORAGE
*****ii ***->)*********************************************************
ENDFIX: 0
.OC
30577
;END OF FIXED STORAGE
SEO 0109
1
wr^^u^vrkA
kVP^A VfttV^^l
tr^ A ^ AAA^^^
VPk d A '^ J 'W At f^^ «%4
nr «« .
097
DFSXA
DFSXAM
2062
2063
206A
2065
2066
2067
2068
2069
2070
2071
2072
2073
207A
2075
2076
2077
2078
2079
2080
2081
2082
2083
208A
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) U:07 21-Aug-85 Page 1
MAC 29-Jul-85 11:4A PROGRAM INITIALIZATION
SEQ 0110
030600
030600
030601
030602
030603
03060A
030605
030606
030607
030610
03061 1
030612
030613
0306U
030615
030616
030617
030620
030621
030622
030623
030624
030625
030626
030627
476 00
476 00
402 00
336 00
260 17
265 00
037 12
202 17
201 00
0
0
0
0
0
202 00 0
7 010 24
7 010 20
700 04 0
7 024 20
7 024 20
4uJ 00 0
402 00 0
7 024 20
260 17 0
254 00 0
260 17 0
260 17 0
00 030143
00 030511
00 030521
00 030056
00 067651
00 030011
00 000002
00 075012
00 540000
00 000417
0 00 000001
0 01 000000
00 227760
0 00 004000
0 00 001000
00 000510
00 000511
0 00 002000
00 041563
00 036312
00 036171
00 033200
037 10 0 00 000002
260 17 0 00 065163
SUBTTL PROGRAM INITIALIZATION
SALL
.DIREC FLBLST
; First line binary listing only
;/|r«****t4t***********4t*«"*****«*l^******4r**4r4r**** ************************
;* START - Initialization of program
; /If ******************************* ***i^** ********************* A ****•**••
START:
R:
Rl:
R2:
R3:
SETOM
SETOM
SETZM
SKIPN
GO
PGMINT
MEMZRO
MQVEM
MOVE I
MOVEM
CQNI
CONO
SYSINI
CONO
CONO
SETZM
SETZ.^
CONO
GO
JRST
GO
GO
SWITCH
GO
MAPNEU
PVPA6I
$$TOGGLE
SONETM
csetzm dialg*
setzm strace*
setzm tstdis
move ctstdis--tstdi
blt tstdis+27
rtn:
P.SAVEP*
5^0000
417
PA6,1
PAG,(1)
MTR,TTBF
MTR.CTB
510
511
MTRJTBN
ENARH
SETPRM
TRMTBL
STRAP
DTELOAD
S+IJ
setup for new mapping
initialize console software switch
one time flag already set?
no - clear dialogue flag and
clear special trace flag and
disable test data area
initialize P reg, do CPU mem map
zero memory before we start
save initialized P pointer
get shadow memory oage entry
put it into page 377 slot
get page bits
write them back and turn on paging
initialize the I/O system + CPO fi
turn time base off
clear time base
clear high count
clear low count
turn base on
enable RH20's and NI/CI ports
?o select the required devices
erminate test tables
set trap catcher for interrupts
ags
get the console
load "SXAll.Air
restricted FE's
switches
' into
1
li\rFuA rxrrrurrru uiirt mitikiri /ivrr'^A Tkirrni^Ttnti rrrr _ wrn n 7 u« mn inn / ^ 'ij ^\ l/.n** oi.*. or r>-_- *)
098
DFSXA
OFSXAM
2103
21 OA
2105
2106
2107
2108
2109
2110
2111
2112
2113
21U
2115
2116
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 31538(1242) U:07 21-Aug-85 Page 2
MAC 29-Jul-85 11:44 PROGRAM INITIALIZATION
;/(f***»* ***************************************************************
;* STARTA - Program re-cycle point
•if******4^******i*4r ****************************************************
SEQ 0111
030630
030631
030632
030633
030634
030635
030636
030637
030640
402 00
402 00
402
402
201
202 00
402 00
200 00
251 00
00
00
00
00 075025
00 074777
00 074776
00 075024
00 000200
00 060631
00 044153
00 067657
00 044202
;*
STARTA: SET2M
SETZM
SETZM
SETZM
novEi
nOVEM
SETZM
MOVE
BLT
TSTNM
INTCNT
ERRLP#
TSTLP*
200
DATLEN
RH.DNE
CRH.DNE.,RH.DNE+1]
RH.ERR+13
im"t test number
clear interrupt count location
error loop address
test loop address
set default data length
clear status and errors
INCCWA
r\crcwcTCM 4/1 in tlkmuci yrvrcnn f kiTCBArr in&i tcct _ wcb A 7 MArart «C7o/l1/'l\ l/.n7 01_<..__DC d_»
OFSXA
DECSYS
DFSXAM
MAC
2117
2118
2119
2120
2122
030641
2123
030642
2124
030643
2125
2126
030644
2127
030645
2128
030646
2129
2130
030647
213
1
030650
213
2
030651
213
3
213
4
030652
213
5
030653
21^
6
030654
21^
7
213
8
030655
2139
030656
2U0
030657
2U1
21A2
03066C
2H3
030661
2K4
030662
2U5
2U6
030663
2K7
030664
2K8
030665
2U9
2150
030666
2151
030667
2152
030670
2153
2154
030671
2155
030672
2156
030673
2157
2158
030674
2159
030675
2160
030676
2161
2162
030677
2163
030700
2164
030701
2165
2166
2167
030702
030703
2168
030704
216
9
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 3
29-Jul-85 11:44 PROGRAM INITIALIZATION
;4f**********t**t***************«*****»* *******************************
;* SI - Test control
;4f***** *************** <***********************************************
SEO 0112
260 17 0 00 030775 SI:
260 17 0 00 030764
254 00 0 00 030641
260 17 0 00 031024
260 17 0 00 030764
254 00 0 00 030644
260 17 0 00 031041
260 17 0 00 030764
254 00 0 00 030647
260 17 0 00 031077
260 17 0 00 030764
254 00 0 00 030652
260 17 0 00 031144
260 17 0 00 030764
254 00 0 00 030655
260 17 0 00 031203
260 17 0 00 030764
254 00 0 00 030660
260 17 0 00 031244
2o: 17 0 00 030764
254 00 0 00 030663
260 17 0 00 031303
260 17 0 00 030764
254 00 0 00 030666
260 17 0 00 03134) S2:
260 17 0 00 030764
254 00 0 00 030671
260 17 0 00 031377
260 17 0 00 030764
254 00 0 00 030674
260 17 0 00 031432
260 17 0 00 030764
254 00 0 00 030677
260 17 0 00 031471
260 17 0 00 030764
254 00 0 00 030702
GO
GO
JRST
TSTOl
SLOOP
.-2
i8
JRST
TST02
SLOOP
.-2
JRST
TST03
SLOOP
.-2
60
GO
JRST
TST04
SLOOP
.-2
GO
GO
JRST
TST05
SLOOP
.-2
i
JRST
TST06
SLOOP
.-2
JRST
TST07
SLOOP
.-2
f
JRST
TSTIO
SLOOP
.-2
GO
GO
JRST
TST11
SLOOP
• £
GO
GO
JRST
TST12
SLOOP
.-2
i
JRST
TST13
SLOOP
.-2
t
JRST
TST14
SLOOP
check state of sele
call scope loop uti
loop condition dete
test MASSBUS enable
call scope loop uti
loop condition dete
check write
call scope loop uti
loop condition dete
check read
call scope
loop uti
loop condition dete
; check write under ii
: call scope loop uti
; loop condition dete
; check read under ini
: call scope loop uti I
; loop condition detec
; check read reverse
; call scope loop uti
; loop condition dete
; check RH20 jump
: call scope loop uti
; loop condition dete
; write transfer on a I
: call scope loop uti I
: loop condition detec
; read transfer on al
; call scope loop uti
; loop condition dete
read reverse on all
call scope loop uti
loop condition dete
write while others reading
call scope loop utility
loop condition detected
ted RH20s/ports
ity
ted
bit
ity
ted
ity
ted
ted
terrupt
ity
ted
errupt
ity
ted
ity
ted
uy
ted
I channels
ity
ted
channels
ity
ted
channels
ity
ted
r\tcw«
iNcrcvcTCM 1^1 in rukkikict /nrcon turcBArrrn^ tcct _ t.xo n 7 mkron *C7o/1'}/.0^ i/.n7 oi_«../.-OC o^^^ j.
DFSXA
DECSYS
DFSXAM
MAC
2170
030705
2171
030706
2172
030707
2173
21 7A
030710
2175
030711
2176
030712
2177
2178
030713
2179
030714
2180
030^5
2181
2182
030716
2183
030717
218A
030720
2185
2186
030721
2187
030722
2188
030723
2189
2190
030724
2191
030725
2192
030726
2193
21 94
030727
2195
03073C
2196
030731
2197
2198
030732
2199
030733
2200
030734
2201
2202
030735
2203
030736
2204
030737
2205
2206
030740
2207
030741
2208
030742
2209
2210
030743
2211
030744
2212
030745
2213
22H
030746
2215
030747
2216
030750
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 4
29-JUL-85 11:44 PROGRAM INITIALI2A^TI0N
SEQ 0113
260 17 0 00 031525
260 17 0 00 030764
254 00 0 00 030705
260 17 0 00 031562
260 17 0 00 030764
254 00 0 00 030710
260 17 0 00 031615
260 17 0 00 030764
254 00 0 00 030713
260 17 0 00 031653
260 17 0 00 030764
254 00 0 00 030716
260 17 0 00 031711
260 17 0 00 030764
254 00 0 00 030721
260 17 0 00 031744
260 17 0 00 030764
254 00 0 00 030724
260 17 0 00 031777
260 17 0 00 030764
254 00 0 00 030727
260 17 0 00 032050
260 17 0 00 030764
2y 00 0 00 030732
260 17 0 00 032112
260 17 0 00 030764
254 00 0 00 030735
037 10 0 00 000002
602 00 0 00 400000
254 00 0 00 030751
260 17 0 00 032154
260 17 0 00 030764
254 00 0 00 030743
260 17 0 00 032217
260 17 0 00 030764
254 00 0 00 030746
JRST
TST15
SLOOP
.-2
JRST
TST16
SLOOP
.-2
JRST
TST17
SLOOP
60
GO
JRST
TST20
SLOOP
• £
GO
GO
JRST
TST21
SLOOP
.-2
JRST
TST22
SLOOP
.-2
JRST
TST23
SLOOP
.-2
60
GO
JRST
TST24
SLOOP
.-2
GO
GO
JRST
TST25
SLOOP
.-2
SWITCH
TRNE
JRST
INHUSR
TSTEND
JRST
TST26
SLOOP
JRST
TST27
SLOOP
wrfte white others reading reverse
call scope loop utility
loop condition detected
read while others are writing
call scope loop utility
loop condition detected
RH20 loopback skip
call scope loop utility
loop condition detecteo
RH20 loopback zero
call scope loop utility
loop condition detected
write thru memory
call scope loop utility
loop condition detected
read thru memory
call scope loop utility
loop condition detected
random
call scope loop utility
loop condition detected
random, CPU interaction
call scope loop utility
loop condition detected
random, memory interaction
call scope loop utility
loop condition detected
inhibit
yes
user mode tests?
; random, CPU interaction
: call scope loop utility
: loop condition detected
; random, mem interaction
: call scope loop utility
: loop condition detected
in user mode
in user mode
.. J
r
DFSXA
DFSkAH
2217
2218
2219
2220
2222
2223
222A
2225
2226
2227
2228
2229
2230
2231
2232
2233
223A
2235
2236
2237
2238
2239
2240
22A1
22(^2
2243
2244
2245
2246
2247
2248
2249
2250
2251
DECSYSTE^ KL10 rHANNEI/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 5
MAC 29-Jul-85 11:<,4 PROGRAM INITIALIZATION
;• TSTEND - End of test program control
SEQ 0114
030751
030752
030753
030754
030755
030756
030757
030760
030761
030762
030763
030764
030765
030766
030767
030770
030771
030772
030773
030774
260 17 0 00 032521
202 00 0 00 030022
037 10 0 00 000002
607 00 0 00 000400
254 00 0 00 030761
037 12 0 00 000004
254 00 0 00 030671
037 16 0 00 000004
336 00 0 00 075017
254 00 0 00 030057
254 00 0 00 036334
037 10
602 00
263 17
606 00
254 00
4u,-« 00
312 00
25'. 00
263 17
0 00 000002
0 00 001000
00 090000
00 000400
00 030064
00 000377
00 075025
00 030064
00 000000
TSTEND:
TSTENO:
60
NOVEM
SWITCH
TLNN
JRST
ENDUUO
JRST
EOPUUO
SK.IPN
JRST
JRST
RAND
RANDBS
RELIA8
TSTENO
S2
STRACE
BE6END
STPRM1
get random #
provide new base for tests 23-27
get the console switches
reliability switch set?
no - exit or keep looping
display end of pass count
repeat just tests 11-27 if set
end of program
special trace switch set?
no - enter beginning of test
yes - back to command prompt
;* SLOOP - Scope 'oop utility
SLOOP; SWITCH
TRNE LOOPTS
RTN
TRNN SPCTST
JRST CPOPJI
ANDI 377
CA«t TSTNM
JRST CPOPJI
RTN
?et the console switches
OOP on current test?
yes - return
loop on selected test?
no - do skip return (no loop)
mask out all but test # bits
are we at the right test^
no - do a skip return
yes - 'eturn and loop on this test
r
1102
OFSXA
DFSXAM
2252
2253
225A
2255
2256
2257
2258
2259
2260
2261
2262
2265
226A
2265
2266
2267
2268
2269
2270
2271
iin
2273
2274
2275
2276
nn
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
DECSYSTEN ICLIO CHANNEL/DTE20 INTERACTION TEST
MAC 29-Jul-85 11:44 MAJOR TESTS
VER 0,7 MACRO J:538(1242) 14:C7 21-Aug-85 Page 6
030775
050776
030777
051000
051001
051002
051003
051004
051005
051006
051007
051010
051011
051012
051015
051014
051015
031016
031017
031020
031021
051022
051025
202 17 0 00 075015
201 OO 0 00 000001
260 17 0 00 042651
700 14 0 00 000400
205 16
336 00
2!i4 00
331 00
00 inm
16 060647
OC 031022
16 060633
254 00 0 00 031016
260 17
201 00
256 00
002 00
201 00
256 00
002 00
254 00
GO 05:»
xy.f
00 002000
16 043553
00 067660
00 775177
16 045556
00 067664
00 031022
260 17 0 00 055147
256 00 0 16 045521
312 00 0 00 067672
002 00 0 00 C67673
253 16 0 00 031002
263 17 0 OC 000000
SEO 0115
SU8TTL MAJOR TESTS
;* TST01 - Check for state of selected RH20's and CJ/NI Ports
TST01 :
MOVEM
HOVfcl
SCOPE
I OF
P,SAVEPT#
1
; Check controller type
T01L1
MOVSI
SKIPN
JRST
SKI PI.
JRST
CNTRL,-10
REQSTCCNIRL)
T01L3
CHTyPE(CNTRL)
T01L2
RH20
MOVE]
o TONS ^
FAULT,
MOVE!
.CONSZ
MBXHLT
<M-80X NOT HALTED>
775177
JRST
NI/CI pert
FAUITI <NOT ALL RH20 STATUS BIT§=0>
T01L3 ; continue
save iitack pointer
set up test nuRjber
setup loop control
turn off PI system
fm'tial "^^ controller index
this controller selected?
no - go select another
is this controller an RH20?
no - check NI/CI port
initialize the RH20
get flao
skip if hal ted
get check bits
skip if none set
T01L2:
PORINI
.CONI
CAME
PAULT1
; initialise the port
; read th<» CSR register
C40C003,,0] : data correct?
<PORT CSR BITS NOT 40000^000000
Select next control Ic
T01L3:
A06JN
RTN
CNTRLJOUI
loop till done
exit test
DFSXA
OECSYS
DFSXAH
MAC
2293
2294
2295
2296
2297
2298
031 02A
2299
031025
2:00
031026
2' 01
2302
2303
2 30 A
031027
Il05
031030
2306
031031
2307
031032
2: 08
2:09
2:10
2:11
031033
031034
c 13
031035
23U
031036
2315
2316
2317
2318
031037
2319
031040
OECSySTEW KL10 CHANNEL/DTE20 INTERACTION TEST
29-Jui-85 11:44 MAJOR TESTS
VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 7
202 17 0 00 075013
201 00 0 00 000002
260 17 0 00 042651
205 16 0 00 771770
335 00 0 16 060633
331 00 0 16 060647
254 00 0 00 031037
260 17 0 00 033117
201 00 0 00 000400
256 00 0 16 043553
002 00 0 00 067702
253 16 0 00 031030
263 17 0 00 000000
SEO 0116
;* TST02 - Test MASSBUS enable bit
;#************t****«i*************** ******************** ***************
TST02:
HOVEM
MOVE I
SCOPE
P.SAVEPT
2
; Check controller type
T02L1
WVSI CNTRL.-10
SKIP6E CHTyPE(CNTRL)
SKIPL REOST(CNTRL)
JRST T02L2
RH20
RHINI
WVEI
.CONSO
FAULT1
M8E
<«ASS BUS NOT ENABLED>
Select next controller
T02L2:
AOBJN
RTN
CNTRL.T02L1
save stack pointer
set up test number
setup loop control
im't controller index
is this controller an RH20?
yes - controller selected?
no - go select another
init the RH20
get NASSBUS ENABLE bit
skip if set
loop till done
done with test
I <|<M>MfiMiH(Bi l.«|i.HII>ftt>>i
OFSXA DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J:53B(12A2) U:07 21-Aug-85 Page 8
DFSXAH MAC 29-Jul-85 11:44 MAJOR TESTS
SEO 0117
031041
031042
031043
031044
031045
031046
031047
031050
031051
031052
031053
031054
031055
031056
031057
031060
J31061
031062
031063
031064
031065
031066
031067
031070
031071
031072
031073
151074
)i^075
03(07
202 17 0 00 075013
201 00 0 00 000003
260 17 0 00 042651
205 16
261 17
405 16
336 00
254 00
051074 26
0i^075 25
00 777764
00 000016
00 nmi
16 060647
00 031074
205 07 0 00 nmy
205 10 0 00 mv,^
260
260
200
260
260
260
2o.'
260
332
001
260
004
260
003
17
17
00
17
17
M
17
17
00
??
00
00 033167
00 033117
07 061342
00 033017
00 035050
00 034274
00 033336
00 035445
16 044167
00 067707
00 034744
00 067716
00 042602
00 C67721
253 10 0 00 031053
253 07 0 00 031052
260 17 0 00 063665
m
? 17 0 00 000016
16 0 00 031Q4S
1/ 0 00 OOOOOo
;• TST03 - Check that each channel can do write, individually
TST03:
HOVEM
MOVE!
SCOPE
P.SAVEPT
; Check controller selection
T03L1
novsi
PUT
AND]
SKIPN
JRST
CNTRL,-14
CNTRL
CNTRL.-1
REQST(CNTRL)
T03L2
Loop on ecu and data pattern
HOVSI
ro3A: novsi
CCW.-7
PATRN.-20
Do a write sequence
T03B:
STLOOP
RHINl
HOVE
STCHN
SETDAT
60
UCLK
60
SKI PE
FAULT
60
FAULT3
DATCMP
FAULT2
CCULST(CCU)
SyRTO
ucnoN
RH.ERR(CNTRL)
<TRANSMISSION ERROR DURIN6 yRlTE>
CHKL06
<yRITE TEST>
save stack pointer
set up test nunber
setup loop control
init controller index
save controller index
make into controller number
controller was selected?
no - get another one
init channel list pointer
init data pattern pointer
set error loop here
init channel
get control word
setup channel
put it into buffer
start the write operation
clock the operation to completion
wait for end done
skip if no error
<DATA ERROR DURIN6 URITE>
Select next data pattern/CCW
check channel logout data
do data compare
AOBJN
A06JN
GO
PATRNJ03B
CCy,T03A
$E0^
Select next controller
I03L2:
3FT
/•objn
R'V
CNTRL
:ntrl.to3li
do all data patterns
do all CCy's
write end of file
restore controller index
loop till done
done ¥\\y\ test
EQ 0105
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 9
DFSXAM MAC 29-JuL-85 11:A4 MAJOR TESTS
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
238A
2385
2386
2387
2388
2389
2390
2391
2392
2393
239A
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
SEQ 0118
F
Dl
Dl
031077
031100
031101
031102
031103
03110't
031105
031106
031107
031110
031111
031112
031113
031114
031115
031116
031117
031120
031121
031122
031123
031124
031125
031126
031127
031130
031131
031132
202 17 0 00 075013
201 00 0 00 000004
260 17 0 00 042651
205 16
261 17
405 16
336 00
00 777764
00 000016
00 mm
16 060647
254 00 0 00 031141
205 07 0 00 mn\
205 10 0 00 777760
260 17
260 17
200 00
260 17
260 17
260 17
2oJ 17
260 17
332 00
001 00
332 00
254 00
201 01
367 01
260 17
004 00
260 17
003 OC
00 033167
00 033117
07 061342
00 033017
00 035063
0 00 034517
0 00 033361
00 035445
16 044167
00 067726
16 060633
00 031127
00 005000
00 031126
00 034744
00 067735
" 042602
067737
§?
;* TST04 - Check that each channel can do read, individually
TST04: MOVEM P,SAVEPT
MOVE I 4
SCOPE
; Check controller selection
MOVSI CNTRL,-14
T04L1 : PUT CNTRL
ANDI CNTRL, -1
SKIPN REQST(CNTRL)
JRST T04L2
; Select CCW and data pattern
MOVSI
MOVSI
T04A;
; Do read sequence
CCW,-7
PATRN.-20
T04B:
STLOOP
RHINI
MOVE
STCHN
SETDEV
60
RCLK
60
SKIPE
FAULT
SKIPE
JRST
MOVE I
SO J 6
60
FAULT3
DAT CMP
FAULT2
CCWLST(CCW)
SRDO
WCMDN
RH.ERR(CNTRL)
<TRANSMISSION ERROR
CHT^PECCNTRL)
.+3
1.5000
CHKLOG
<READ TEST>
save stack pointer
set up test number
setup loop control
init controller index
save controller index
make into controller number
controller was selected?
no - get another one
init channel list pointer
init data pattern pointer
set error loop here
init channel
get control word
setup channel
clear the input buffer
start the read operation
clock it to completion
wait for command done
skip if not errors
DURING READ>
DTE?
no - continue
yes - delay a
bit
check channel logout data
<DATA ERROR DURING READ>
do data compare
" — I
EO 0106
OFSXA
DFSXAM
2A12
2A13
2AK
2A15
2A16
2417
2418
2A19
2420
2A21
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
OECSYSTFM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B{1242) 14:07 21-Aug-85 Page 10
29-JUL-85 11:44
MAC
031133
031134
031135
301 16 0 00
254 00 0 00 ._
331 00 0 16 060647
000010
031137
031136 260 17 0 00 067744
031137 253 10 0 00 031111
031140 253 07 0 00 031110
031141 262 17 0 00 000016
031142 253 16 0 00 031103
031143 263 17 0 00 000000
HAJOR TESTS
If RM20 with devices, also clear attention bits
SEQ 0119
Di
Dl
CAIL CNTRLJO
JRST .+3
SKIPL REOST(CNTRL)
60 WOVE I 377
WAS
CAI
RTNJ
Select next data pattern/CCU
AOBJN
AOBJN
PATRNJ04B
CCW,T04A
Select next controller
T04L2:
GET
AOBJN
RTN
CNTRL
CNTRL,T04L1
RH20?
no - continue
skip if RH20 only
clear attention
do all data patterns
do all ecu's
restore controller index
loop till done
done with test
3 0107
OFSXA
DFSXAM
2A33
|A3A
^435
?437
>A38
5439
h^o
JAAl
2AA2
2AA3
2AAA
2AA5
2AA6
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
?459
2460
2461
2462
2463
2464
2465
2466
2467
2468
?469
>470
>471
5472
[473
>474
i475
2476
2477
?478
>479
5480
5481
5482
2483
DECSYSTEM KLlO (:hANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 11
MAC 29-Jul-85 11:44 MAJOR TESTS
;* TST05 - Test write command under interrupt control
;#***********************t* *******************************************
SEQ 0120
031144
031145
031146
031147
031150
031151
031152
031153
031154
031155
031156
031157
031160
031161
031162
031163
031164
031165
031166
031167
031170
031171
031172
031173
031174
031175
031176
031177
031200
031201
031202
202 17 0 00 075013
201 00 0 00 000005
260 17 0 00 042651
402 00 0 00 074777
205 16
261 17
405 16
336 00
254 00
00 777764
00 000016
00 777777
16 060647
00 031200
205 07 0 00 77777^
205 10 0 00 777760
260
r6C
200
260
260
2o.»
260
260
332
001
260
004
260
003
253
253
260
m ]i
17
17
00
17
17
17
17
17
00
'J
17
^0
7
263
]^
00 033167
00 033117
07 061342
00 033017
00 035050
00 034274
00 033336
00 035402
16 044167
00 067707
00 034744
00 067716
00 042602
00 067721
0 00 031157
0 00 031156
0 00 063665
0 00 000016
0 00 031151
0 00 000000
TST05i
MOVEM
MOVE I
SCOPE
SETZM
P.SAVEPT
INTCNT
; Check controller selection
MOVSI CNTRL,-14
T05L1 : PUT CNTRL
ANDI CNTRL. -1
SKIPN REQST(CNTRL)
JRST T05L2
: Select CCU and data pattern
MOVSI
T05A: MOVSI
CCW,-7
PATRN.-20
Do a write sequence
T05B:
STLOOP
RHINI
MOVE
STCHN
SETDAT
GO
UCLK
GO
SKIPE
FAULT
GO
FAULT3
DAT CMP
FAULT2
CCWLST(CCU)
SWRTO
WTDNEO
RH.ERR(CNTRL)
<TRANSMISSION ERROR DURING WRITE>
CHKL06
<WRITE TEST>
save stack pointer
set up test number
setup loop control
init interrupt count loc
;nit controller index
save controller index
make into controller number
controller was selected?
no - get another one
init channel list pointer
init data pattern pointer
; set error loop nere
; init channel
; get control word
: setup channel
; put it into buffer
; start the write
; clock the operation to completion
; wait for all interrupts
; skip if no error
Select ne''
AOBJN
AOBJN
GO
<DATA ERROR DURING WRITE>
daia pattern/CCW
PATRNJ05B
CCW.T05A
$E0F
check logout data
do data compare
Select next controller
T05L2:
GET
AOBJN
RTN
CNTRL
CNTRL. TC5L1
do all data patterns
do all ecu's
write end oT file
restore controller index
loop till done
done with test
0 0108
DFSXA
DFSXAM
DECSVSTEH KLIO CHANNEL /DTE 20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page 12
MAC 29-Jul-85 11:44 MAJOR TESTS
;• TST06 - Test read cowmand under interrupt control
SEQ 0121
of;
DF<
031203
031204
031205
031206
031207
031210
031211
031212
031213
031214
031215
031216
031217
031220
031221
031222
031223
031224
031225
031226
031227
031230
031231
031232
031233
031234
031235
031236
031237
031240
202 17 0 00 075013
201 00 0 00 000006
260 17 0 00 042651
205 16 0 00 777764
261 17 0 00 000016
405 16 0 00 imii
336 00 0 16 060647
254 00 0 00 031241
205 07 0 00 mm
20^. 10 0 00 777760
260 17
260 17
200 00
260 17
260 17
260 17
2o.' 17
260 17
332 00
001 00
332 00
254 00
201 01
367 01
260 17
004 00
260 17
003 00
033167
.. 033117
07 061342
00 033017
035063
034517
033361
035402
044167
067726
060633
031233
005000
031232
034744
067735
042602
067737
00
00
00
00
00
00
16
00
16
00
00
00
00
00
00
00
253 10 0 00 031215
253 07 0 00 0312U
031241 262 17 0 00 0Q0016
031^42 -
031i
55 1^ g gg mm
>63
000000
TST06:
HOVEM
HOVE I
SCOPE
P.SAVEPT
6
; Check controller selection
HOVSI CNTRL.-14
T06L1: PUT CNTRL
ANDI CNTRL. -1
SKIPN REQST(CNTRL)
JRST T06L2
: Select CCU and data pattern
MOVSI CCU.-7
T06A: HOVSI PATRN.-20
: Do a read sequence
TC68:
STL OOP
RHINI
HOVE
STCHN
SETDEV
60
RCLK
60
SKIPE
FAULT
SKIPE
JRST
HOVE I
SOJG
60
FAULT3
DATCHP
FAUL T2
CCWLST(CCU)
SRDO
WTDNEO
RH.ERR(CNTRL)
<TRANSMISSION ERROR
CHTYPE(CNTRL)
.♦3
1.5000
CHKLOG
<READ TEST>
: save stack pointer
: set up test number
; setup loop control
init controller index
save controller index
make into controller number
controller was selected
no - get another one
init channel 1st pointer
init data pattern pointer
; set error luop here
; init channel
; get control word
; setup channel
; clear the input buffer
; start the read operation
; clock it to completion
; wait for cmd done
; skip if no error
DURING READ>
; DTE?
; no - continue
; yes - delay a
bit
: check channel logout data
<DATA ERROR DURING READ>
Select next data pattern/CCW
AOBJN
AOBJN
PATRNJ06B
CCW.T06A
Select next controller
T06L2: GET
AOBJN
RTN
CNTRL
CNTRL. T06L1
do data compare
do all data patterns
do all ecu's
restore controller index
loop till done
done with test
"1
r-
i
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 HACRO X53B(1242) U:07 21-Aug-85 Page 13
OFSXAM MAC 29-Jul-85 11:44 MAJOR TESTS
2537
2539 ;* TST07 - Test read reverse command
2540 ;f **«****************************# *t*****t*****t****t********t ********
SEQ 0122
031244
031245
031246
031247
031250
031251
031252
031253
031254
031255
031256
031 25 r
031260
031261
031262
031263
031264
031265
031266
031267
051270
031271
031272
031273
031274
031275
031276
031277
031300
031301
031302
202 17 0 00 075013
201 00 0 00 000007
260 17 0 00 042651
205 16 0 00 777764
261 17 0 00 000016
405 16
337 00
331 00
254 00
00 mm
16 060633
16 060647
00 031300
205 07 0 00 limy
205 10 0 00 777760
260
260
200
260
260
2oJ
260
260
260
332
001
260
004
260
003
17
17
00
17
17
17
17
17
17
00
00
17
00
17
00
00 033167
00 033117
07 061351
00 033017
00 034666
00 035063
00 034640
00 033361
00 035402
16 044167
go 067750
00 034744
00 067760
00 042602
00 067764
253 10 0 00 031257
253 07 0 00 031256
262 17 0 00 000016
253 16 : :" ," :"'
263 17 0 00 000000
0 00 031250
TST07:
MOVEM
MOVE I
SCOPE
P.SAVEPT
; Check controller selection
T07L1
MOVSI
PUT
AND I
SKIP6
SKI PL
JRST
CNTRL.-14
CNTRL
CNTRL,-1
CHTyPE(CNTRL)
REQST(CNTRL)
T07L2
Loop on ecu and data pattern
MOVSI
T07A: MOVSI
CCW,-7
PATRN.-20
Do a read reverse sequence
T07B:
STLOOP
RHINI
MOVE
STCHN
GO
SETDEV
GO
RCLK
GO
SKIPE
FAULT
GO
FAULT3
DATCMP
RCULST(CCU)
REVCOR
SRDRO
WTDNEO
RH.ERR(CNTRL)
save stack pointer
set up test number
setup loop control
init controller index
save controller index
make into controller number
IS this controller an RH20 or DTE?
yes - controller was selected?
no - get another one
init channel list pointer
init data pattern pointer
set error loop nere
init channel
get control word
setup channel
change entry in STWRD2 for revrse cmd
clear the input buffer
start the read reverse command
clock 't to completion
wait for cmd done
skip if no error
iDFSX
IDFSK
31
!1
31
31
31
<TRANSMISSION ERROR DURING READ REVERSE>
CHKLOG ; check channel logout data
<READ REVERSE TEST>
do data compare
FAULT2 <DATA ERROR DURING READ ftEVERSF>
Select data pattern/CCW
AOBJN
AOBJN
PATRNJ07B
CCW.T07A
Select next controller
T07L2:
GET
AOBJN
RTN
CNTRL
CNTRL, T07L1
do ail data patterns
do all ecu's
restore controller index
loop till done
done with tes'
0110
DFSXA
DFSXAM
2588
?589
>590
>591
>592
>593
259A
2595
2596
2597
2598
2599
2600
2601
2602
2603
260A
2605
2606
2607
2608
2609
2610
2611
2612
2613
261A
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST
MAC 29-Jul-85 11:44 MAJOR TESTS
VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 14
SEQ 0123
031303
031304
031305
031306
031307
031310
031311
031312
031313
031314
031315
031316
031317
031320
031321
031322
031323
031324
031325
031326
031327
031330
031331
031332
031333
031334
031335
031336
031337
031340
202 17
201 00
260 17
700 14
260 17
205 16
335 00
336 00
254 00
331 00
254 00
00 075013
00 000010
00 042651
00 000400
00 033462
00 imi^
16 060633
16 060647
00 031337
16 060647
00 031337
200
260
260
260
260
201
256
00?
2uJ
240
331
002
135
312
002
201
256
00
17
17
17
17
00
00
00
01
01
00
00
05
06
00
00
00
00 067773
00 033017
00 034570
00 035343
00 033400
00 002000
16 043553
00 067774
00 000016
00 000002
01 377001
0 00 070000
0 00 070005
00 000005
00 070006
00 005410
16 043570
253 16 0 00 031311
263 17 0 00 000000
; /IT* *********************««***********«:***************** ***************
;* TSTIO - Test that each RH20 can jump through core, loopback only
;/|f* ****************************************************** *************
TSTIO:
MOVEM
MOVE I
SCOPE
lOF
LJMP
P.SAVEPT
l6
Check controller selection
T10L1
MOVSI
SKIP6E
SKIPN
JRST
SKIPL
JRST
Selected
MOVE
STCHN
GO
MOVE I
.CONSO
FAULTl
MOVE
ASH
SKIPL
FAULTl
LDB
CAME
FAULTl
MOVE I
.CONO
CNTRL,-10
CHTYPE(CNTRL)
REQST(CNTRL)
T10L2
REQST(CNTRL)
T10L2
tIBI+DATBUF]
STRD
U40MS
$RE6L
MBXHLT
save stack pointer
set up test number
setup loop control
turn off PI system
load jumps through memory
init controller index
is this controller an RH20?
yes - controller was selected?
no - get another one
this RH in loopback mode?
no - get another one
get 1st jump instruction
setup the channel
start RH20 reading data
wait for channels to stop
raise and lower EBL
get halted flag
n« ■
ere because halted?
et RH number
?AC1)*4=>(AC1)
did MBOX logout?
<MBOX NEVER HALTED>
1,CNTRL
1,2
ICCW+1(1)
<MBOX NEVER STORED STATUS>
BAD,CPOINT 22, ICCW+1(1), 35]
GOOD, BAD ; did channel halt in right place
<MBOX HALTED AT WRONG INSTRUCTION>
XECLR+DNCLR+RAECLR+MBE ; get init bits
; issue
; Select next controller
T10L2: AOBJN CNTRL,T10L1
RTN
loop till
done with
done
test
)111
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20
INTERACTION TEST -
VER 0,7 MACRO J!53B(1242) 14:07 21-Aua-85 Page 15
DFSXAM
MAC
29-JUI-85 11:44
MAJOR
TESTS
SEQ 0124
l^U
2633
;4f***»**********<r********t************»**********************»*r****Hr**
2634
;* TST11 - Do write transf'^r on all (
:hannels (data checking)
2635
2636
2637
;/|f**«****«r***t4r*********t* ********************************* **•*••****«
031341
202 17 0 00 075013
TSTll:
MQVEM
P.SAVEPT
; save stack pointer
2638
031342
201 00 0 00 000011
MOVE I
l1
; set up test number
2639
031343
260 17 0 00 042651
SCOPE
; setup loop control
2640
031344
402 00 0 00 074777
SETZM
INTCNT
; in t interrupt count location
2641
031345
403 16 0 00 075011
SETZB
CNTRL,SAVCTL*
; init controller index, save location
2642
2643
2644
031346
200 14 0 00 074755
MOVE
LIMIT, AMTCTL*
; setup limit
; Select an RH20 (or NI/CI oort)
„
2645
2646
2647
2648
2649
2650
031347
260 17 0 00 035234
T11L:
GO
SELRH
; get an RH20 #
; Loop
on CCWs
and data patterns
031350
515 07 0 00 77777^
HRLZI
ecu, -7
; init ecu pointer
2651
2652
2653
2654
2655
031351
515 10 0 00 777760
T11A:
HRLZI
PATRN,-20
; init pattern pointer
: Do a
write sequence
031352
260 17 0 00 033167
TUB:
STLOOP
; set error loop here
= .'
2656
031353
260 17 0 00 033157
CLRERR
; clear all error flags
2657
031354
260 17 0 00 035665
CWRTZ
: start write on all channels
2658
031355
200 03 0 00 070015
MOVE
DATAPT, [POINT 18,DEVBUFJ'
2659
031356
200 00 0 07 061342
MOVE
CCULST(CCW)
; get CCU
2660
031357
260 17 0 00 033017
STCHN
; setup in ICCU
2661
031360
260 17 0 00 035050
SETDAT
; load write buffer
2662
031361
2oJ 17 0 00 034274
60
SWRTO
; start write operation
2663
031362
260 17 0 00 033203
UCLKB
; clock all controllers
2664
031363
260 17 0 00 035402
60
UTDNE
; wait for completion
2665
031364
260 17 0 00 033101
CHKERR
; perform error check on all RH's
2666
031365
001 00 0 00 070016
FAULT
<TRANSMISSION ERROR>
2667
031366
260 17 0 00 034744
60
CHKLOG
; check channel logout
2668
031367
004 00 0 00 067716
FAULT3
<WRITE TEST>
2669
031370
260 17 0 00 042602
DAT CMP
: do data comoare
2670
2671
2672
2673
2674
031371
003 00 0 00 070022
FAULT2
<DATA ERROR DURIN6 INTERACTIVE WRITE>'
; Select next data pattern/CCW
031372
253 10 0 00 031352
AOBJN
PATRNJ11B
; do all data patterns
2675
031373
253 07 0 00 031351
AOBJN
CCW,T11A
: do all ecu's
2676
2677
2678
2679
2680
031374
260 17 0 00 063665
60
$EOF
; write end of file
; Select next RH/port
031375
367 14 0 00 031347
S0J6
LIMIT, T11L
; loop on RH's
2681
031376
263 17 0 00 000000
RTN
; done with test
1
1
DFSXA
DFSXAM
2682
2683
268A
2685
2686
2687
2688
2689
2690
2691
2692
2693
269A
2695
2696
2697
2698
2699
2700
2701
2702
2703
270A
2705
2706
2707
2708
2709
2710
2711
2712
2713
27^^
2715
2716
2717
2718
2719
2720
2721
2722
2721
272t*
2725
2726
2727
2728
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) K:07 21-Aug-85 Page 16
MAC 29-Jul-85 11:^4 MAJOR TESTS
;4f**«****«***************4'**«r* ********************************** ******
;* TST12 - Do read transfer on all channels (data checking)
;/>***********♦*********♦**♦♦**************************♦******♦********
SEO 0125
031377
03KOO
03U01
03U02
03U03
031405
03U06
03H07
03U10
03U11
03U12
03U13
03UU
03U15
03U16
03U17
03U20
03U21
03U22
03U23
03U2A
03U25
03U26
03U27
03U30
03U31
202 17
201 00
260 17
403 16
200 14
00 075013
00 000012
00 042651
00 075011
00 074755
031404 260 17 0 00 035234
515 07 0 00 777771
515 10 0 00 777760
260
260
260
200
260
260
260
260
2oJ
260
001
260
004
260
003
17
17
17
00
17
17
17
17
17
17
00
17
00
17
00
00 033167
00 033157
00 036100
07 061342
00 033017
00 035063
00 034517
00 033246
00 035402
00 033101
00 070016
00 034744
00 067735
00 042602
00 070032
253 10 0 00 031407
253 07 0 00 031406
367 14 0 00 031404
263 17 0 00 000000
TST12:
MOVEM
MOVE I
SCOPE
SETZB
MOVE
P.SAVEPT
CNTRL.SAVCTL
LIMIT, AMTCTL
; Select an RH20 (or NI/CI port)
T12L: 60 SELRH
; Loop on CCU's and data patterns
save stack pointer
set up test number
setup loop control
im't controller index, save location
setup limit
get an RH
HRLZI
HRLZI
T12A;
: Do a read sequence
CCW,-7
PATRN,-20
1128:
STLOOP
CLRERR
CRDZ
MOVE
STCHN
SETDEV
60
RCLK8
60
CHKERR
FAULT
60
FAULT3
DAT CMP
FAULT2
CCWLST(CCU)
SRDO
UTDNE
<TRANSMISSI0N ERR0R>
CHKL06
<READ TEST>
init ecu pointer
init pattern pointer
set error loop here
clear all error flags
start read on all channels
get ecu
start up channel
clear DATBUF and setup DEVBUF
start read operation
clock all controllers
wait for done flag
perform error check on all RH's
check channel logout data
<DATA ERROR DURIN6 INTERACTIVE READ>
Select next data pattern/CCW
perform data compare
A06JN
A06JN
PATRNJ12B
CCW,T12A
Select next RH/port
SO J 6
RTN
LIMIT, T12L
do all patterns
do all CCU's
loop on RH's
done with test
DFSXA
OECSYSTEM KLIO CHANNEL/DTE
DFSXAM
MAC
29-Jul-85 11:44
2729
2730
2731
|732
2733
273A
03U32
202 17 0 00 075013
2735
031433
201 00 0 00 000013
2736
031434
260 17 0 00 042651
2737
031435
403 16 0 00 075011
2738
031436
200 14 0 00 074755
2739
27A0
2741
2742
031437
260 17 0 00 035234
2743
031440
333 00 0 16 060633
2744
031441
254 00 0 00 031467
2745
2746
2747
2748
031442
515 07 0 00 77777^
2749
031443
515 10 0 00 777760
2750
2751
2752
2753
031444
260 17 0 00 033167
2754
031445
260 17 0 00 033157
2755
Cil446
260 17 0 00 036021
2756
031447
335 00 0 16 060647
2757
2758
2759
2760
031450
260 17 0 00 070041
2761
031451
331 00 0 16 060647
2762
2763
2764
031452
260 17 0 00 070045
2765
031453
260 17 0 00 035063
2766
031454
260 17 0 00 034640
2767
031455
260 17 0 00 033246
2768
031456
260 17 0 00 0^5402
2769
031457
260 17 0 00 OiilOl
2770
031460
001 00 0 00 070016
2771
031461
260 17 0 00 034744
2771
031462
004 00 0 00 070050
2771
031463
260 17 0 00 042602
277k
031464
003 00 0 00 070032
277^
277t
031465
253 10 0 00 031444
2777
031466
253 07 0 00 031443
2778
2179
2780
278^
031467
367 14 0 00 031437
2782
031470
263 17 0 00 000000
MAJOR TESTS
;* TST13 - Do read reverse transfer on all channels (data checking)
SEQ 0126
TST13: NOVEM
HC^EI
SCOPE
SETZB
MOVE
; Select an RH20
P.SAVEPT
li
CNTRL.SAVCTL
LIMIT. AMTCTL
T13L:
GO
SKIPLE
JRST
SELRH
CHTyPE(CNTRL)
T13X
save stack pointer
set up test number
setup loop control
init controller index, save location
setup limit for test
get an RH
IS this an NI/CI port?
yes - skip this one
Loop on ecu's and data patterns
HRL2I
T13A: HRLZI
CCU.-7
PATRN.-20
Do a read reverse sequence
T138:
STLOOP
CLRERR
CRDRZ
SKIPGE
60
SKI PL
GO
SETDEV
60
RCLKB
GO
CHKERR
FAULT
GO
FAULT3
DAT CMP
FAULT2
A06JN
AOBJN
REQST(CNTRL)
[MOVE RCWLST(CCU)
STCHN
go revcor
rtn:
reqst(cntrl)
cmove ccwlst(ccu)
STCHN
RTNJ
SRDRO
WTDNE
<TRANSMISSION ERROR>
CHKLOG
<READ REV TEST>
init CCW pointer
init pattern pointer
set error loop here
clear all error flags
start read on all channels
skip if device only
get ecu
start up channel
skip if RH20
setup DEVBUF for RH's, clear DATBUF
start the read operation
clock all controllers
wait for done flag
perform error check on all RH's
check channel logout data
<DATA ERROR DURING INTERACTIVE READ>
ferform data compare
J
PATRN,T13B
CCU.T13A
Select next RH/port
T13X:
SOJG
RTN
LIMIT. T13L
do all patterns
do all ecu's
loop on RH's
done with test
_J
r
DFSXA
OFSXAM
280A
2805
2806
2807
2808
2809
2810
2811
281?
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
282A
2825
2826
2827
2828
2829
2830
DECSVSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 18
MAC 29-JuL-85 11:44 MAJOR TESTS
;• TST14 - Do write while others are reading
031471
031472
031473
031474
031475
03U77
031500
031501
031502
031503
031504
031505
031506
031507
031510
031511
031512
031513
031514
031515
031516
0315^7
031520
031521
031522
031523
031524
SEO 0127
DFS)
|0F5)
202 17
201 00
260 17
200 14
403 16
00 075013
00 000014
00 042651
00 074755
00 075011
031476 260 17 0 00 035234
515 07 0 00 77777}
515 10 0 00 777760
260 17 0
260 17 0
260 17
200 00
260 17
260 17
260 17
260 17
2o-' 17
260 17
001 00
260 17
004 00
260 17 0
003 00 0
00
00
00
07
00
00
00
00
00
00
00
00
00
00
00
033167
033157
036100
061342
033017
035050
034274
033220
035402
033101
070016
034744
070053
042602
070060
253 10 0 00 031501
253 07 0 00 031500
260 17 0 00 063665
367 14 0 00 031476
263 17 0 00 000000
TST14:
MOVEM
MOVE I
SCOPE
MOVE
SETZB
PjSAVEPT
LIMIT. AHTCTL
CNTRL.SAVCTL
; Select an RH20 (or NI/CI port)
T14L: GO SELRH
; Loop on CCU's and data patterns
save stack pointer
set up test ninber
setup loop control
init amount of RH's selected
init controller index, save location
get an RH
HRLZI
HRLZI
ecu, -7
PATRN.-20
Do a write sequence
T14A:
STLOOP
CLRERR
CRDZ
MOVE
STCHN
SETDAT
GO
WCLKC
GO
CHKERR
FAULT
GO
FAULT3
OATCMP
FAUL T2
CCULST(CCU)
SURTO
yTDNE
init CCW pointer
init pattern pointer
set error loop here
clear all error flags
start read on all channels
get ecu
start the selected channel
load DATBUF and clear DEVBUF
start write operation
clock both read and write operations
wait for done
perform error check on all RH's
check channel logout data
<TRANSMISSI0N ERR0R>
CHKLOG
<WRITE-0THERS READING>
; perform data compare
<DATA ERROR ON WRITE WHILE OTHERS READING>
Select next data pattern/CCW
AOBJN
AOBJN
GO
PATRNJ14A
CCW,T14A-1
$EOF
Select next RH/port
SOJG
R7N
LIMIT. T14L
do all patterns
do all CCW's
write end of file
loop on RH's
done with test
.-■HiivW-iw--'-**^-" ll-K*^*!*/-'*
„-...-„;
)115
DFSXA
DFSXAM
283T
2832
2833
2835
2836
2837
2838
2839
28A0
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
DECSYSTEN <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 19
MAC 29-Jul-85 11:44 MAJOR TESTS
* TST15 - Do write while others are reading reverse
f* **************************************************** ***************
SEO 0128
031525
031526
031527
031 530
031531
031533
031534
031535
031536
031537
031540
031541
031542
031543
031544
031545
031546
031547
031550
031551
031552
031553
031554
031555
031556
031557
031560
031561
202 17
201 00
260 17
200 14
403 16
00 075013
00 000015
00 042651
00 074755
00 075011
031532 260 17 0 00 035234
515 07 0 00 77777^
515 10 0 00 777760
260
260
260
200
260
260
260
260
CO)
260
260
001
260
004
260
003
17
17
17
00
17
17
17
17
17
17
17
00
17
00
17
00
00 033167
00 033157
00 036021
07 061342
00 033017
00 035076
00 035050
00 034274
00 033220
00 035402
00 033101
00 070016
00 034744
00 070071
00 042602
00 070076
253 10 0 00 031535
253 07 0 00 031534
260 17 0 00 063665
367 14 0 00 03153?
263 17 0 00 000000
TST15:
MOVEM
HOVE I
SCOPE
HOVE
SETZB
P.SAVEPT
LIHIT.AMTCTL
CNTRL.SAVCTL
; Select an RH20 (or NI/CI port)
T15L: GO SELRH
: Loop on ecu's and data patterns
save stack pointer
set up test number
setup loop control
init amount of RH's selected
init controller index, save location
get an RH
HRLZI
HRLZI
ccy,-7
PATRN,-20
n5A;
; Do a write sequence
init ecu pointer
init pattern pointer
T158:
STLOOP
CLRERR
CRDRZ
HOVE
STCHN
GO
SETDAT
GO
WCLKC
GO
CHKERK
FAULT
GO
FAULT3
DATCMP
FAULT2
CCWLST(CCU)
STREV
SWRTO
wiiNE
<TRANS«ISSI0N ERR0R>
CHKLOG
<WRITE-OTHERS READ REV>
; perform data compare
<DATA ERROR ON WRITE WHILE OTHERS READING REVERSE>
set error loop here
clear all error flags
start read reverse on all channels
get control word
start the selected channel
load DATBUF and DHYBUF, clear DEVBUF
setup DATBUF
Start write on this channel
clock read and write operations
wait for done
perform error check on all RH's
check channel logout data
Select next data pattern/CCW
A06JN
A06JN
GO
PATRNJ15B
CCW,T15A
$EOF
Select next RH/port
SOJG
RTN
LIHIT,T15L
do all patterns
do all CCW's
write end of file
loop on RH's
done with test
r
DFSXA
DFSXAM
2880
2881
2882
2883
288A
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 20
MAC 29-Jul-85 11:44 WJOR TESTS
;• TST16 - Do read while others are writing
save stack pointer
set up test nunber
setup loop control
init amount of RH's selected
init controller index, save location
SEO 0129
031562
202 17 0 00 075013
TST16:
NOVEM
P.SAVEPT
031563
201 00 0 00 000016
HOVE I
li
031564
260 17 0 00 042651
SCOPE
031565
200 14 0 00 074755
MOVE
LIMIT. AMTCTL
031566
403 16 0 00 075011
SET2B
CNTRL.SAVCTL
031570
031571
031572
031573
031574
03157S
031576
031577
031600
031601
031602
031603
031604
031605
031606
031607
031610
031611
031612
031613
031614
031567 260 17 0 00 035234
515 07 0 00 777^7^
515 10 0 00 777760
260 17
260 17
260 17
200 00
260 17
260 17
260 17
260 17
2oJ 17
260 17
001 00
260 17
004 00
260 17
003 00
00 033167
00 033157
00 035665
07 061342
00 033017
00 035063
0 00 034517
0 00 033264
00 035402
00 033101
00 070016
00 034744
00 070110
00 042602
00 070114
253 10 0 00 031572
253 07 0 00 031571
367 14 0 00 031567
263 17 0 00 000000
; Select an RH20 (or NI/CI port)
T16L: GO SELRH
: Loop on ecu's and data patterns
HRLZI
HRLZI
T16A:
: Do a read sequence
CCW,-7
PATRN,-20
T16B: STLOOP
CLRERR
CWRTZ
MOVE
STCHN
SETDEV
GO
RCLKC
60
CHKERR
FAULT
GO
FAULT3
DATCMP .
FAULT2 <DATA ERROR ON READ WHILE
ccwLST(ccu) ;
SRDO
UTDNE
<TRANSMISSION ERROR>
CHKLOG
<READ-OTHERS WRITING>
Select next data pattern/CCW
AOeJN
AOBJN
PATRNJ16B
CCW,T16A
Select next RH/port
SOJG
RTN
LIMIT, T16L
get an RH
init CCW pointer
init pattern pointer
set error loop here
clear all error flags
start write on all channels
get Ciitrl word
start the selected channel
clear DAT8UF and load DEVBUF
start read on this channel
clock write and read operations
wait for done
perform error check on all RH's
check channel logout
gerform data compare
THERS WRITINO
do all patterns
do all ecu's
loop on RH's
done with test
DFSXA DECSVSTEW KLlO CHANNEL/DTE20 INTERACriON TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 21
DFSXAM MAC 29-JuL-85 11:4A MAJOR TESTS
SEQ 0130
2927
'928
5929
?930
?931
>932
^933
293A
2935
2936
2937
2938
2939
29A0
29A1
29A2
29A3
29AA
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
^59
iO
J1
>962
J963
031615
031616
031617
031620
031621
031622
031623
031624
031625
031626
031627
031630
031631
031632
031633
031634
031635
031636
031637
031640
031641
031642
031643
031644
031645
031646
031647
031650
C31651
051652
202 17 0 00 075013
201 00 0 00 000017
260 17 0 00 042651
476 00 0 00 075016
200 14 0 00 074755
476 00 0 00 000016
260 17 0 00 035234
337 00 0 16 060633
531 00 0 16 060647
254 00 0 00 031651
205 07 0 00 77777y
205 10 0 00 777760
260
260
260
260
2o.'
260
260
260
260
001
260
004
260
003
17
17
17
17
}7
17
17
17
17
00
17
00
17
00
00 033167
00 033157
00 036100
00 034704
00 035132
00 034517
00 033407
00 035402
00 033101
00 070016
00 034744
0 00 070124
0 00 035161
0 00 070126
253 10 0 00 031631
253 07 0 00 031630
367 14 Q 00 0316:3
263 , ' 0 CG 000000
* TST17 - Test skip feature. RH20 loopback only
TST17:
nOVEM
HOVE I
SCOPE
SETOM
MOVE
SETOM
P.SAVEPT
1?
SKPPRG*
LIMIT, AHTCTL
CNTRL
; Select an RH20 (or NI/CI port)
T17L: 60 SELRH
SKIPG CHTyPE (CNTRL)
SKIPL REaST(CNTRL)
JRST TX17
: Loop on CCW's and data patterns
MOVSl
T17A: HOVSI
CCU,-7
PATRN,-20
; Do skip sequence
T17B:
STLOOP
CLRERR
CRDZ
60
60
60
60
60
CHKERR
FAULT
60
STSKP
SKPLD
SRDO
SSKCLK
UTDNE
<TRANSMISSI0N ERR0R>
CHKLOG
FAULT3 <SKIP TEST>
60 SKPCHX
save stack pointer
set up test number
setup loop control
set skip program flag
init amount of RH's selected
init controller index
get an RH
IS this controller an RH20?
yes - RH20 loop back?
no - get another one
init ecu pointer
init pattern pointer
set error loop here
clear all error flags
perform start on deselected units
setup skip list
load DEVBUF and clear DATBUF
start read operation
wait for done
perform error check on all RH's
check channel logout data
check that DATBUF is all zeros
FAULT2 <DATA ERROR-BUFFER CONTAiwED N0N-2ER0 DATA>
Select next data pattern/CCU
A06JN
A06JN
PATRNJ17B
CCW,Tl7A
Select next RH/port
TX17;
SOJG
RTN
LiHJT,Tl7L
do all patterns
do all ecu's
loop on RH's
done with te?t
SEQ 0118
DFSXA
DFSXAM
2977
2978
2979
2980
2981
2982
2983
298A
2985
2986
2987
2988
2989
2990
2991
2992
2993
299A
2995
2996
2997
2998
2999
3000
3001
3002
3003
300A
3005
3006
3007
3008
3009
3010
3011
3012
3013
30U
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 22
MAC 29-Jul-85 11:44 MAJOR TESTS
;* TST20 - Test zero feature, RH20 loopback only
SEQ 0131
031653
031654
031655
031656
031657
031660
031661
031662
031663
031664
031665
031666
031667
031670
031671
031672
031673
031674
031675
031676
031677
031700
031701
031702
031703
031704
031705
031706
031707
031710
202 17
201 00
260 17
476 00
200 14
476 00
00 075013
00 000020
00 042651
00 075016
00 074755
00 000016
260 17 0 00 035234
337 00 0 16 060633
331 00 0 16 060647
254 00 0 00 031707
205 07 0 00 77777}
205 10 0 00 777760
260 17
260 17
260 17
260 17
CO} 17
260 17
260 17
260 17
260 17
001 00
260 17
004 00
260 17
003 00
00 033167
00 033157
00 035665
00 034677
00 035143
00 034274
00 033311
00 035402
00 033101
00 070016
00 034744
00 070137
00 035211
00 070142
253 10 0 00 031667
253 07 0 00 031666
367 14 0 00 031661
263 17 0 00 000000
TST20:
MOVEM
MOVE I
SCOPE
SETOM
MOVE
SETOM
P.SAVEPT
26
SKPPR6
LIMIT, AMTCTL
CNTRL
; Select an RH20 (or NI/CI port)
T20L: GO SELRH
SKIPG CHTYPE (CNTRL)
SKIPL REQST(CNTRL)
JRST TX20
; Loop on CCW's and data patterns
MOVSI
T20A: MOVSI
CCW,-7
PATRN,-20
Do zero fill sequence
T20B:
STLOOP
CLRERR
CWRTZ
GO
GO
GO
GO
GO
CHKERR
FAULT
GO
FAULT3
GO
FAULT2
STZRO
ZROLD
SWRTO
$ZCLK
WTDNE
<TRANSMISSION ERROR>
CHKLOG
<ZERO FILL TEST>
ZROCHK
save stack pointer
set up test number
setup loop control
set skip program flag
im't amount of RH's selected
init RH index
get an RH
IS this controller an RH20?
yes - RH20 loop back?
no - get another one
im't CCW pointer
init pattern pointer
set error loop here
clear all error flags
perform start on deselected units
setup the skip list
fill DEVBUF & clear DATBUF
start write operation
wait for done
perform error check on all RH's
check channel logout data
check for data pattern in DEVBUF
<DATA ERROR-BUFFER CONTAINED BAD ZERO FILL DATA>
Select next data pattern/CCW
AOBJN
AOBJN
PATRN-T20B
CCU,T20A
Select next RH/port
TX20:
SOJG
RTN
LIMIT, T20L
do all patterns
do all CCW's
loop on RH's
done with test
■■~1
DFSXA
DFSXAM
3027
3028
3029
3030
3031
3032
3033
303A
3035
3036
3037
3038
3039
30A0
30A1
30A2
30A3
30AA
3045
30A6
30A7
30A8
30A9
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(12A2) K:07 21-Aug-85 Page 23
MAC 29-Jul-85 11:A4 MAJOR TESTS
;* TST21 - Write all channels through memory (size=1 & split=0)
;f ft********** ********** *«***t**ltl^*«i*ft*********** ******** *************
SEQ 0132
Dl
Dl
031711
031712
031713
031 7U
031715
031716
031717
031720
031721
031722
031723
031724
031725
031726
031727
031730
031731
031732
031733
031734
031735
031736
031737
031740
031741
031742
031743
202 17 0 00 075013
201 00 0 00 000021
260 17 0 00 042651
200 00
202 00
201 ■
201
201
402 00
200 00
251 00
07
10
14
260
260
260
254
260
205
260
260
260
001
260
004
c(i
254
17
17
17
00
17
16
17
17
17
00
17
00
14
00
00
00
00
00
00
00
00
00
030145
060551
000004
000000
000200
061017
070154
061026
00 032727
00 033157
00 034026
00 031742
00 034131
00 177770
00 033203
00 035402
00 033101
00 070016
00 034773
00 070155
00 060551
00 031724
300 00 0 00 000000
263 17 0 00 000000
TST21 :
T21L;
TX21:
MOVEM P.SAVEPT
MOVE I 21
SCOPE
MOVE
MOVEM
MOVE I
MOVE I
MOVE I
SETZM
MOVE
BLT
GO
CLRERR
GO
JRST
GO
MOVSI
UCLKB
GO
CHKERR
FAULT
60
FAULT3
ADDM
JRST
CAI
RTN
MEMLOU
MEMLST*
CCW,4
PATRN,0
LIMIT, 200
TAPED C
[TAPEDC.,TAPEDC+1]
TAPEDC+7
UPDC
BLDLST
TX21
SWRT
CNTRL,-10
UTDNE
<TRANSMISSI0N ERR0R>
CHKLGA
<URITE ALL CHANNELS THRU
LJMiT,MEMLST
:21L
save stack pointer
set up test number
setup scope loop control
get address of first available loc
save It
setup index
init PATRN index
I'nit update constant
reset desired position counter
update desired
init all RH20':
counter
build required channel 1st (CCWLST+4)
found non-existent memory
start the data transfer
init controller index
clock operation
wait for completion
any errors?
did it logout correct data address?
MEM0RY>
update MEMLST
repeat till non-existent memory found
filler
done with
test
DFSXA
DFSXAM
3062
1Q63
|06A
5065
50o6
5067
5068
069
5070
5071
5072
5073
507A
075
076
5077
3078
3079
3080
5081
5082
5083
508A
5085
5086
5087
5088
3089
3090
3091
3092
3093
3094
3095
3096
3C97
DECSYSTEM K.IO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21 -Aug-85 Page 24
MAC 29-Jul-85 11:44 MAJOR TESTS
;* TST22 - Read all channels through memory (size=1 t split=0)
S£0 0133
D
D
031744
031745
031746
031747
031750
031751
031752
031753
031754
031755
031756
031757
031760
031761
031762
031763
031764
031765
031766
031767
031770
031771
031772
031773
031774
0.11775
051776
202 17 0 00 075013
201 00 0 00 000022
260 17 0 00 042651
200 00
202 00
201 ~
201
201
402 00
200 00
251
07
10
14
260
260
26C
254
260
205
2^^
260
260
001
260
004
254
00
17
17
17
00
17
16
17
17
17
00
17
00
14
00
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
00 030145
00 060551
00 000004
00 000000
00 000200
00 061017
00 070154
00 061026
00 032727
00 033157
OC 034026
00 031 775
00 034213
00 777770
00 033246
00 035402
00 033101
00 070016
00 034773
00 070164
00 060551
00 031757
TST22:
T22L:
300 00 0 00 000000
263 17 0 00 000000
TX22:
HOVEM
HOVE I
SCOPE
MOVE
NOVEM
HOVE I
MOVE I
MOVE I
SETZM
MOVE
BLT
GO
CLRERR
GO
JRST
GO
novsi
RCLKB
GO
CHKERR
FAULT
GO
FAULT3
ADDn
JRST
CAI
RTN
P-SAVEPT
2^
MEflLOU
ME«LST#
CCU-4
PATRN.O
LIMIT, t'OO
TAPE DC
CTAPEDC-.TAPEDC+I]
TAPEDC+7
UPDC
BLDLST
TX22
SRD
CNTRL,-10
yTDNE
<TRANSMiSSI0N ERROR>
CHKLGA
<READ ALL CHANNELS
LIMIT. ME MLST
T22L
save stack pointer
set up test number
setup scope loop control
get address of first available loc
save it
setup index
init PATRN index
init update constant
reset desired position counter
update desired counter
init all RH20's
build required channel 1st (CCWLST+4)
found non-existent memory
start the data transfer
init controller index
clc.k operation
wait for completion
any err^ 's?
; did it
THRU MEMORY>
; update
: repeat
loqout correct data address?
MEMLST
till non-existent
memory found
filler
done with test
DFSXA
DFSXAM
3114
3115
3116
3117
3118
3119
3120
3121
1122
$123
5124
;i25
3126
3127
3128
3129
3130
1131
5132
;i33
J134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST -
MAC 29-Jul-85 11:44 RANDOM TESTING
VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page 25
SEO 0134
DF
OF'
SUBTTL RANDOM TESTING
TST23 - Perform random testing of selected devue(s)
This test is provided to fill any gap in the preceding tests. The
preceding tests purposely avoided performing any random event. This
was to keep tne testing as controlled as possible. Because some
things may have been overlooked in creating these tests, this test
will perform random events in random order.
The variables will be: 1. Data size
2. Data pattern
3. Buffer address
save stack pointer
set up test number
setup scope loop address
clear interrupt count location
clear desired position counter
• • •
• • •
get random base
setup in work storage
get NEMLOU
move past buffers
init MEMLST
init memory select
select memory chunk
done - used all of memory
get repeat count for variables
generate channel program with
random variables
update desired counters
start the write
Generate elks to RH20's in Loopback
NDCLK will skip when done
wait for devices to get done
check for transmission errors
RAND0M>
check logout data
regenerate channel program
start the read operation
generate required clocks
RNDCLK will skip when done
wait for I/O complete
031777
202 17 0 00 075013 T
ST23: HOVEM
P.SAVEPT
032000
201 00 0 00 000023
MOVE I
2i ]
032001
260 17 0 00 042651
SCOPE
032002
402 00 0 00 074777
SETZM
INTCNT
032003
402 00 0 00 061017
SET2M
TAPEDC
032004
200 00 0 00 070154
MOVE
CTAPEDC.,TAPEDC*1]
032005
251 00 0 00 061026
BLT
TAPEDC +7
032006
200 00 0 00 030022
MOVE
RAND6S
032007
202 00 0 00 036152
NOVEM
BASE
032010
200 00 0 00 030145
HOVE
NEMLOU
032011
271 00 0 00 020000
ADD I
•D8192
032012
202 00 0 00 060551
MOVEM
MEMLST
032013
2o.' 17 0 00 032540
60
RMEMSET
032014
260 17 0 00 032626 T23L1: 60
RMEM
032015
25'. 00 0 00 032046
JRST
T23X
032016
201 13 0 00 000012
MOVE I
LPCNT.-D10
032017
260 17 0 00 032546 T23L2: GO
RNDCHN
032020
260 17 0 00 032727
GO
UPDC ;
032021
260 17 0 00 034131
GO
SWRT
032022
260 17 0 00 032755
GO
RNDCLK
032023
254 00 0 00 032022
JRST
.-1
032024
260 17 0 00 035402
60
UTDNE
032025
260 17 0 00 033101
CHKERR
032026
001 00 0 00 070172
FAULT
<TRANSMISSI0N ERROR IN RA
032027
260 17 0 00 034773
60
CHKL6A
032030
004 00 0 00 070200
FAULT3
<RANDOM EVENT TESTING>
032031
260 17 0 00 032673
60
RE GEN
032032
260 17 0 00 034213
260 17 0 00 032755
254 00 0 00 032033
260 17 0 00 035402
60
SRD
032033
60
RNDCLK
032034
JRST
.-1
032035
60
WTDNE
J
1
1 ^ r
Q 0122
DFSXA
DFSXAM
5150
5151
5152
153
51 5A
3155
3156
3157
3158
3159
3160
3161
DECSYSTEW <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U;07 21-Aug-85 Page 26
MAC 29-Jul-85 11:44 RANDOM TESTING
SEO 0135
OF
DF
032036
032037
032040
032041
032042
032043
032044
032045
032046
032047
260 17
001 00
260 17
004 00
260 17
003 00
00 033101
00 070172
00 034773
. 00 070200
0 00 032650
0 00 070205
367 13 0 00 032017
254 JO 0 00 032014
300 00 0 00 000000
263 17 0 00 000000
T23X:
CHKERR
FAULT
GO
FAULT3
GO
FAULT2
SOJG
JRST
CAI
RTN
; check for hardware errors
<TRANSMISSI0N ERROR IN RAND0M>
CHKLGA
<RAND0M EVENT TESTING>
RNDCMP
<DATA COMPARE ERR0R>
check logout data
check data
LPCNT,T23L2
T23LT
repeat with same variables 10 times
repeat till all memory used
filler
done with test
1
.._J
r"
~J
1
DFSXA
DFSXAM
n62
5163
51 6A
5165
3166
5167
3168
3169
3170
3171
3172
3173
31 7A
3175
3176
3177
3178
3179
3180
3181
3182
3183
31 8A
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) U:07 21-Aug-85 Page 27
MAC 29-Jul-85 11:44 RANDOM TESTING
;^***«*******«*<r***************«**********************«** *************
;* TST24 - Perform same random testing, now with CPU fnteration
^ ^ 1
SEO 0136
032050
032051
032052
032053
032054
032055
032056
032057
032060
032061
032062
032063
032064
032065
032066
032067
032070
032071
032072
032073
032074
032075
032076
032077
032100
032101
032102
032103
032104
032105
032106
032107
032110
032111
202 17 0 00 075013
201 00 0 00 000024
260 17 0 00 042651
TST24:
402 00
200 00
202 00
200 00
271 00
202 00
260 17
260 17
254 00
201 13
260 17
260 17
260 17
260 17
260 17
001 00
260 17
004 00
260 17
260 17
2oJ 17
260 17
001 00
260 17
004 00
260 17
003 00
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
00 074777
00 030022
00 036152
00 030145
00 020000
00 060551
00 032540
00 032626
00 032110
00 000012
00 032546
00 032727
00 034131
00 033707
00 033101
00 070172
00 034773
00 070200
00 032673
00 034213
00 033707
00 033101
00 070172
00 03''>773
00 070200
00 032650
00 070205
367 13 0 00 032065
254 00 0 00 032062
300 00 0 00 000000
263 17 0 00 000000
T24L1:
T24L2:
T24X;
MOVEM P.SAVEPT
MOVE I 24
SCOPE
SETZM
MOVE
MOVEM
MOVE
ADDI
MOVEM
GO
GO
JRST
MOVE I
GO
GO
GO
GO
CHKERR
FAULT
GO
FAULT3
GO
GO
GO
CHKERR
FAULT
GO
FAULT3
GO
FAULT2
SO J 6
JRST
CAI
RTN
INTCNT
RANDBS
BASE
MEMLOW
•D8192
MEMLST
RMEMSET
RMEM
T24X
LPCNT,*010
RNDCHN
UPDC
SWRT
CPUITR
<TRANSMISSION
CHKLGA
<RANDOM EVENT
REGEN
SRD
CPUITR
<TRANSMISSION
CHKLGA
<RANDOM EVENT
RNDCMP
<DATA COMPARE
LPCNT,T24L2
T24L1
ERROR IN
TESTIN6>
ERROR IN
TESTING>
ERROR>
; save stack pointer
; set up test number
; setup scope loop control
; clear interrupt count location
; get random base
; setup in work storage
; get MEMLOW
; move past buffers
; init MEMLST
; init memory setup
; select a chunk of memory
; done - all memory used
; get repeat count for variables
; generate channel program with
random variables
; update desired counters
; start the write
; perform CPU interaction testing
; check for transmission errors
RANDOM>
: check logout data
; regenerate channel program
; start the read operation
; perform CPU testing
; check for hardware errors
RANDOM>
; check logout data
; check data
repeat with same variables 10 times
repeat till all memory used
filler
done with test
I 0124
DFSXA
DFSXAM
3205
3206
3207
3208
3209
3210
3211
3212
3213
32U
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:536(1242) 14:07 21-Aug-85 Page 28
MAC 29-Jul-85 11:44 RANDOM TESTING
;4f***«********* *******************************************************
;* TST25 - Perform same random testing, now with memory interation
;/(f*********** ************************************************* ***•***•
SEQ 0137
032112
032113
032114
032115
032116
032117
032120
032121
032122
032123
032124
032125
032126
032127
032130
032131
032132
032133
032134
032135
032136
032137
032140
032141
032142
032143
032144
032145
032146
032147
032150
032151
032 152
032153
202 17 0 00 075013
201 00 0 00 000025
260 17 0 00 042651
TST25:
402 00
200 00
202 00
200 00
271 00
202 00
00 074777
00 030022
00 036152
00 030145
00 020000
00 060551
260 17 0 00 032540
260 17 0 00 032626
254 00 0 00 032152
201 13 0 00 000012
260 17 0 00 032546
260
260
260
260
001
260
004
260
2oJ
260
260
001
260
004
260
003
17
17
17
17
00
17
00
17
17
17
17
00
17
00
17
00
00 032727
00 034131
00 033767
00 033101
00 070172
00 034773
00 070200
00 032673
00 034213
00 033767
00 033101
00 070172
00 034773
00 070200
00 032650
00 070205
367 13 0 00 032127
254 00 0 00 032124
300 00 0 00 000000
263 17 0 00 000000
T25L1:
T25L2:
T25X:
MOVEM
MOVE I
SCOPE
SETZM
MOVE
MOVEM
MOVE
ADD I
MOVEM
GO
GO
JRST
MOVE I
GO
60
60
60
CHKERR
FAULT
60
FAULT3
60
60
60
CHKERR
FAULT
60
FAULT3
60
FAULT2
SOJG
JRST
CAI
RTN
P.SAVEPT
2$
INTCNT
RAND8S
BASE
MEMLOW
*D8192
MEMLST
RMEMSET
RMEM
T25X
LPCNT,*D10
RNDCHN
UPDC
SWRT
MEMITR
<TRANSMISSION ERROR IN
CHKLGA
<RANDOM EVENT TESTING>
REGEN
SRD
MEMITR
<TRANSMISSION ERROR IN
CHKLGA
<RANDOM EVENT TESTING>
RNDCMP
<DATA COMPARE ERROR>
LPCNT,T25L2
T25L1
; save stack pointer
; set up test number
; setup scope loop control
; clear interrupt count location
: get random base
; setup in work storage
; get MEMLOW
; move past buffers
; fnit MEMLST
; init memory select
; select a memory chunk
; done - all memory used
; get repeat count for variables
; generate channel program with
random variables
; update desired counters
; start the write
; perform memory interaction testing
; check for transmission errors
RANDOM>
; check logout data
; regenerate channel program
; start the read operation
; perform memory testing
; check for hardware errors
RANDOM>
: check logout data
; check data
repeat with same variables 10 times
repeat till all memory used
filler
done with test
T
1 r
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 29
DFSXAM MAC 29-JuL-85 11:44 RANDOM TESTING
SEQ 0138
;4f*************************************************-V*** ***************
;* TST26 - Perform random testing, CPU interation in user mode
;f************************************************* ********** *********
032154 202 17 0 00 075013
0321 S^. 201 00 0 00 000026
032156 260 17 0 00 042651
032157
402 00
032160
260 17
032161
200 00
032162
202 00
032163
200 00
032164
271 00
032165
202 00
032166
032167
032170
032171
032172
032173
032174
032175
032176
032177
032200
032201
032202
032203
032204
032205
032206
032207
032210
032211
032212
032213
032214
032215
032216
00 074777
00 033750
00 030022
00 036152
00 030145
00 020000
00 060551
260 17 0 00 032540
260 17 0 00 032626
254 00 0 00 032215
201 13 0 00 000012
260 17 0 00 032546
260 17
260 17
260 17
260 17
001 00
260 17
004 00
2o.» 17
0
0
0
0
0
0
0
0
260 17 0
260 17 0
260 17
001 00
260 ^7
004 00
260 17
003 00
00 032727
00 034131
00 033702
00 033101
00 070172
00 034773
00 070200
00 032673
00 034213
00 033702
00 033101
00 070172
00 034773
00 070200
00 032650
00 070205
367 13 0 00 032172
254 00 0 00 032167
300 00 0 00 000000
263 17 0 00 000000
TST26:
T26L1 :
T26L2:
T26X:
MOVEM
MOVE I
SCOPE
SETZM
60
MOVE
NOVEM
MOVE
ADD I
MOVEM
GO
GO
JRST
MOVE I
GO
CHKERR
FAULT
GO
FAULT3
60
GO
60
CHKERR
FAULT
60
FAULT3
60
FAULT2
SOJG
JRST
CAI
RTN
P,SAVEPT
26
INTCNT
SETUSR
RANDBS
BASE
MEMLOU
*D8192
MEMLST
RMEMSET
RMEM
T26X
LPCNT.*D10
RNDCHN
UPDC
SURT
CPUITU
<TRANSMISSION
CHKLGA
<RANDOM EVENT
REGEN
SRD
CPUITU
< TRANSMISSION
CHKLGA
<RANDOM EVENT
RNDCMP
<DATA COMPARE
LPCNT.T26L2
T26L1
ERROR IN
TESTING>
ERROR IN
TESTING>
ERROR>
; save stack pointer
; set up test number
: setup scope loop control
; clear interrupt count location
; establish user page table
; get random base
; setup in work storage
; get MEMLOU
; move past buffers
; init MEMLST
; init memory select
; select a memory chunk
; done - all memory used
; get repeat count for variables
; generate channel program with
random variables
; update desired counters
; start the write
; perform CPU interaction testing
; check for transmission errors
RANDOM>
; check logout data
; regenerate channel program
; start the read operation
; perform CPU testing
; check for hardware errors
RANDOM>
: check logout data
; check data
repeat with same variables 10 times
repeat till all memory used
filler
done with
test
•^
Q 0126
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 30
DFSXAM MAC 29-Jul-85 11:44 RANDOM TESTING
329A
3295 •j|f*************************t************************************t*****
3296 ;* TST27 - Perform random testing, memory interation in user mode
3297 ;f ************************************************t*******************
SEQ 0139
r
OF
OF
032217
032220
032221
032222
032223
032224
032225
032226
032227
032230
032231
032232
032233
032234
032235
032236
032237
032240
032241
032242
032243
032244
032245
032246
032247
032250
032251
032252
032253
032254
032255
032256
032257
032260
032261
202 17 0 00 075013
201 00 0 00 000027
260 17 0 00 042651
402 00
260 17
200 00
202 00
200 00
271 00
202 00
00 074777
00 033750
00 030022
00 036152
00 030145
00 020000
00 060551
260 17 0 00 032540
260 17 0 00 032626
254 00 0 00 032260
201 13 0 00 000012
260 17 0 00 032546
260
260
260
260
001
260
004
2o.'
260
260
260
001
260
004
260
003
17
17
17
17
00
17
00
17
17
17
17
00
17
00
17
00
00 032727
00 034131
00 033762
00 033101
00 070172
00 034773
00 070200
00 032673
00 034213
00 033762
00 033101
00 070172
00 034773
00 070200
00 032650
00 070205
367 13 0 00 032235
254 00 0 00 032232
300 00 0 00 000000
263 17 0 00 000000
TST27:
T27L1:
T27L2:
T27X:
NOVEM
HOVE I
SCOPE
SETZM
GO
HOVE
HOVEM
MOVE
ADD I
MOVEM
GO
GO
JRST
HOVE I
GO
GO
GO
GO
CHKERR
FAULT
GO
FAULT3
GO
GO
GO
CHKERR
FAULT
GO
FAULT3
GO
FAULT2
SOJG
JRST
CAI
RTN
P.SAVEPT
2f
INTCNT
SETUSR
RANDBS
BASE
MEMLOU
*D8192
MEMLST
RMEMSET
RMEM
T27X
LPCNT,*D10
RNDCHN
UPDC
SWRT
MEMITU
<TRANSMISSION ERROR IN
CHKLGA
<RANDOM EVENT TESTINO
REGEN
SRD
MEMITU
<TRANSMISSION ERROR IN
CHKLGA
<RANDOM EVENT TESTING>
RNDCMP
<DATA COMPARE ERROR>
LPCNT,T27L2
T27L1
; save stack pointer
; set up test number
; setup scope loop control
; clear interrupt count location
; go setup user page table
; get random base
: setup in work storage
: get MEMLOU
; move past buffers
; init MEMLST
; init memory select
; select a memory chunk
; done - all memory used
; get repeat count for variables
; generate channel program with
random variables
; update desired counters
; start the write
; perform memory interaction testing
; check for transmission errors
RANDOH>
: check logout data
; regenerate channel program
; start the read operation
; perform memory testing
; check for hardware errors
RANDOH>
: check logout data
check data
repeat
repeat
with
till
same variables 10 times
all memory used
filler
done with
test
r
OFSXA DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) U:07 21-Aug-85 Page 31
OFSXAM MAC 29-Jul-85 llrAA RH20 INTERRUPT SERVICE
SU8TTL RH20 INTERRUPT SERVICE
;* INTRHN - Interrupt routines
SEO QUO
032262
032263
03226A
032265
032266
032267
032270
032271
032272
032273
032274
032275
032276
032277
032300
032301
032302
032303
03230A
032305
032306
032307
032310
032311
000000 000000
261 17 0 00 000016
201 16 0
260 17 0
262 17 0
25A 12 1
00 000000
00 032362
00 000016
00 032262
000000 000000
261 17 0 00 000016
201 16 0
260 17 0
262 17 0
25A 12 1
00 000001
00 032362
00 000016
00 032270
OOCOOO 000000
261 17 0 00 000016
201 16 0
260 17 0
262 17 0
25A 12 1
CO.
262 17
25'. 12
00 000002
00 032362
00 000016
00 032276
000000
261 17
201 16
17
000000
0 00 000016
0 00 000003
0 00 032362
0 00 000016
1 00 03230A
INTRHO: 0
PUT
MOVE I
60
GET
JEN
INTRH1: 0
PUT
MOVE I
GO
GET
JEN
INTRH2: 0
PUT
MOVE I
60
GET
JEN
INTRH3: 0
PUT
MOVE I
60
6ET
JEN
CNTRL
CNTRL.O
RHINT
CNTRL
aiNTRHO
CNTRL
CNTRL. 1
RHINT
CNTRL
aiNTRHl
CNTRL
CNTRL. 2
RHINT
CNTRL
aiNTRH2
CNTRL
CNTRL. 3
RHINT
CNTRL
aiNTRH3
channel 0
channel 1
channel 2
channel 3
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 32
DFSXAM MAC 29-JuL-85 11:4A RH20 INTERRUPT SERVICE
032312
032313
0323K
032315
032316
032317
032320
032321
032322
032323
03232A
032325
032326
032327
032330
032331
032332
032333
03233A
032335
032336
032337
0323A0
0323A1
000000
261 17 0
201 .
260 17 0
000000
00 000016
262 17 0
25A 12 1
16 0 00 OOOQOA
"00 032362
00 000016
00 032312
000000
261 17
201 16
260 17
262 17
25A 12
000000
0 00 000016
0 00 000005
0 00 032362
0 00 000016
1 00 032320
000000 000000
261 17 0 00 000016
201 16 0
260 17 0
262 17 0
25A 12 1
00 000006
00 032362
00 0000 i
00 03?i:^
000000
261 17
201 16
260 17
262 17
25A 12 1 00 03233A
00000.
0 00 UOOilo
0 00 000007
0 00 032362
00 000016
INTRH<»;
INTRH5;
INTRH6:
INTRH7:
0
PUT
CNTRL
MOVE I
CNTRL.A
GO
RHINT
GET
CNTRL
JEN
aiNTRHA
0
PUT
CNTRL
MOVE I
CNTRL. 5
GO
RHINT
GET
CNTRL
JEN
aiNTRH5
0
PUT
CNTRL
MOVE I
CNTRL, 6
GO
RHINT
GET
CNTRL
JEN
aiNTRH6
0
PUT
CNTRL
MOVE I
CNTRL. 7
GO
RHINT
GET
CNTRL
JEN
aiNTRH7
SEQ 01 A 1
: channel A
OFS
OFS
3
3
3
; channel 5
; channel 6
; channel 7
0323A2
000000
0323A3
261 17
0323AA
AOO 16
0323A5
256 00
0323A6
AAA 00
0323A7
316 00
032350
25A 00
032351
350 00
032352
305 16
032353
25A 00
000000
00 000016
000000
0A352I
070211
070211
032357
000016
000010
0323A5
00
16
00
00
00
00
00
00
03235A 037 01 0 00 07021?
032355 262 17 0 00 000016
032356 25A 00 0 00 062666
032357 260 17 0 00 032362
032360 262 17 0 00 0Q0Q16
032361 25A 12 1 00 0323A2
;4r* *******************************************************************
;* NVPORT - Handle non-vectored interrupt from an NI/CI port
NVPORT;
NVPORO:
0
PUT
SETZ
RDCSR
AND
CAMN
JRST
AOS
CAIGE
JRST
CNTRL
CNTRL,
CA00003,,210]
[A00003,,210]
NVPORT
CNTRL
CNTRLJO
NVPORO
initialize controller number
read CSR data
mask off extraneous data
these bits set?
yes - this port interrupted
no - point to next controller
done yet?
no - loop till done
Unknown interrupt
NVP0R1
FMS6C ^.UNKNOWN INTERRUPT OCCURRED :>
GET CNTRL
JRST INTERR+I
GO RHINT
GET CNTRL
JEN aNVPORT
DFSXA
DFSXAM
3A27
3A28
3A29
3A30
3A51
3A32
3A33
3A3A
3435
3436
3A37
3A38
3A39
3AA0
3AA1
3AA2
34A3
344A
3AA5
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7
MAC 29-Jul-85 11:44 RH20 INTERRUPT SERVICE
MACRO 1538(1242) U:07 21-Aug-85 Page 33
SEO 0142
0^2362
261 17 0 00 000000
032363
261 17 0 00 000001
032364
261 17 0 00 000002
032365
261 17 0 00 000015
032366
200 01 0 00 000016
032367
242 01 0 00 000002
032370
402 00 0 16 044167
032371
337 00 0 16 060633
032372
254 00 0 00 032406
032373
256 00 0 16 043521
032374
202 00 0 16 044153
032375
606 00 0 00 000200
032376
476 00 0 16 044167
032377
602 00 0 00 001000
032400
476 00 0 16 044167
032401
332 00 0 16 044167
032402
254 00 0 00 032453
03240!
201 00 0 00 400000
032404
256 00 0 16 043570
032405
254 00 0 00 032505
032406
032407
032410
032411
0324^2
032413
032414
032415
032416
032417
032420
032421
032422
032423
032424
256 00 0 16 043521
202 00 0 16 044153
606 00 0 00 000010
476 00 0 16 044167
332 00 0 16 063316
254 00 0 00 070220
200 00
602 00
476 00
16 044153
00 561000
16 044167
7 000 30 0 00 007740
476 00 0 16 044167
200 00 0 01 377001
641 00 0 00 100000
603 00 0 00 360760
476 00 0 16 044167
;4f* *******************************************************************
;• RHINT - RH20 common interrupt service
RHINT:
PUT
0
PUT
1
PUT
C
PUT
DEV
MOVE
I.CNTRL
LSH
1.2
SETZM
RH.ERR(CNTRL)
SKIPG
CHTyPE(CNTRL)
JRST
RHINO
port interrupted
RDCSR
MOVEM
RH.DNE(CNTRL)
TRNN
RESQAV
SETOM
RH.ERR(CNTRL)
TRNE
MVRERR
SETOM
RH.ERR(CNTRL)
SK I PE
RH.ERR(CNTRL)
JRST
IRHOA
MOVE I
PCLEAR
LDCSR
JRST
EXO
RH20 interrupted
RHINO:
.CONI
MOVEM
TRNN
SETOM
SKIPE
JRST
MOVE
TRNE
SETOM
CONSZ
SETOM
MOVE
TLC
TLNE
SETOM
RH.DNE(CNTRL)
CMDDN
RH.ERR(CNTRL)
MTNCMD(CNTRL)
CGO HNDATA
JRST EZO]
save AC'S
get index for logout area
init flag location for error
NI/CI port?
yes - go handle
read CSR register
save status
data transfer completed?
no - set error flag
data mover error?
yes - set error flag
error flag set?
yes - continue
no - get port clear bit
and reset the port
exit
do a CONI
save status
command done?
no - error caused by no DONE or ATA
performing motion cmd?
yes - go handle ATA
here on rewind without SSC=1
RH.DNE(CNTRL)
DBPE*LUCER+Sy
RH.ERR(CNTRL)
: get status
DBPE*LUCER+SWCER*MBXER*DOVRER
APR.CP.ERS
RH.ERR(CNTRL)
ICCW*1(1)
(SBERR)
(CH.ERS)
RH.ERR(CNTRL)
set error flag
skip if no CPU errors
set error flag
get logout status
complement SBUS bit
any errors?
yes - set errjr flag
DFSXA
DFSXAN
;79
;80
;81
'•82
;83
;8A
;85
;86
;87
;88
;89
190
191
192
193
;9A
;95
196
197
3A98
3A99
1500
J501
502
J503
350A
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
35?6
3528
35?9
35iO
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 34
MAC 29-Jul-85 11:44 RH20 INTERRUPT SERVICE
SEC 0143
032425
032426
032427
032430
032431
032432
032433
032434
032435
032436
032437
032440
032441
032442
032443
032444
032445
032446
032447
032450
032451
032452
032453
032454
032455
032456
032457
032460
032461
032462
032463
032464
032465
032466
032467
032470
15
00
331
254
260 17
300 00
506 00
602 00
476 00
16 060753
00 032450
00 043177
00 OOOOOQ
16 044153
00 040000
16 044167
331 00 0 16 044167
254 00 0 00 032477
260 17 0 00 064132
254 00 0 00 032514
261
504
261
554
261
260
300
261
11
16
11
00
11
17
00
11
00 070222
00 000015
00 000016
16 044153
00 000000
00 043211
00 000000
00 000000
331 00 0 16 044167
254 00 0 00 032477
321 15 0 00 032455
261 11
261 11
550 00
2o' 11
400 00
337 00
260 17
261
261
261
11
11
11
00 070223
00 000016
16 044153
00 000000
00 000000
16 060633
00 043024
00 000000
01 377001
01 377002
700 05 0 00 000000
261 11 0 00 000000
700 10 0 00 000000
261 11 0 00 000000
032471 261 11 0 00 070224
032472 333 00 0 16 060633
IRDEO:
IRHO:
IRHOA:
IRKO:
032473
032474
03^476
254 00 0 00 070225
201 00 0 QC OQC')]]
?6r U 0 00 C43U44
300 00 0 00 OOOCOO
SKI PL
JRST
RDS
CAI
HRLM
TRNE
SETOH
SKI PL
JRST
60
JRST
PUSH
HRL
PUSH
HLRZ
PUSH
RER
CAI
PUSH
SKIPL
JRST
JU«PL
PUSH
PUSH
HRRZ
PUSH
SETZ
SKIP6
RPTCR
PUSH
PUSH
PUSH
CPCNI
PUSH
MBERA
PUSH
PUSH
SKIPLE
JRST
MOVE]
UCR
CAi
DEV-CHNDEV(CNTRL)
IRHO
RH.DNE(CNTRL)
CERR
RH.ERR(CNTRL)
RH.ERR(CNTRL)
EXRHO
BSRCLN
EZO
ERRDAT,[STX.DV]
CNTRL,OEV
ERRDAT.CNTRL
RH.DNE(CNTRL)
ERRDAT.O
ERRDAT.O
RH.ERR(CNTRL)
EXRHO
OEV.IRKO
ERRDAT.CSTX.RH]
ERRDAT,CNTRL
RH.DNE(CNTRL)
ERRDAT.O
CHTYPE(CNTRL)
ERRDAT,
ERRDAT,1CCU*1(1)
ERRDAT. ICCW*2(1)
ERRDAT. 0
ERRDAT. 0
ERRDAT. CHS. ETX3
CHTyPE(CNTRL)
[MOVE] PCLEAR
LDCSR
JRST EXO]
CLEAR
currently jsi'ng a device?
no - bypass the following
read device statui
filler
save the status
any errors?
yes - set error flag
any errors?
no - exit
attempt to clean tape
exit without updating ]NTCNT
start of text for device status
merge DEV with CNTRL
save unit id
get device status
save device status
read error 1
filler
save error 1 on stack
any errors?
no - exit ••
device selected?
no - enter start to error text for RH
put ]D on stack
pet RH20 status
put on stack
clear ACO
is this controller an RH20?
yes - read primary transfer reg-^-'cer
save on stack
push status word 1 on stack
push status word 2 on stack
get KL status
put on stack
get M-BOX status
put on stack
terminate the list
is this controller an N]/C] port?
yes - set port clear bit and
exit
no - get drive clear cmJ
i- sue It
fi Uir
SEQ 0131
DFSXA
OFSXAM
3531
3532
3533
353A
3535
3536
3537
3538
3539
3540
3541
35A2
35A3
35AA
35A5
35A6
3547
3548
3549
3550
3551
3552
3553
3554
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z53B(1242) 14:07 21-Aug-85 Page 35
MAC 29-Jul-85 11:44 RH20 INTERRUPT SERVICE
SEQ 0144
032477
032500
032501
032502
032503
032504
032505
032506
032507
032510
032511
032512
032513
032514
032515
032516
032517
032520
201 00 0 00 005410
256 00 0 16 043570
201 00 0 00 000377
331 00 0 16 060647
260 17 0 00 043077
300 00 0 00 000000
EXRHO:
MOVE I
.CONG
MOVE I
SKIPL
WAS
CAI
XECLR+DNCLR+RAECLR+MBE ; get im't command
* issue
377 ; clear all attention bits
REQST(CNTRL)
700 04
350 01
200 00
316 00
Exit after clearing a few things
00
16
16
00
402 00 0 16
402 00 0 16
370 00
262 17
262 17
262 17
262 17
263 17
0
0
0
0
0
0
00
00
00
00
00
00
027760
063260
063272
070230
063260
063304
074777
000015
000002
000001
000000
000000
EXO:
EZO:
CLFLGS
AOS
MOVE
CAMN
SETZM
SETZM
SOS
GET
GET
GET
GET
RTN
1,CHNX(CNTRL)
aSYSPRG(CNTRL)
CSIXBIT/PRGETX/:
CHNX(CNTRL)
DEVBSY(CNTRL)
INTCNT
DEV
C
1
0
skip if RH20 only
clear APR figs
update program count (SYSGEN only)
get next cmd
skip if not at end
reset p'' inter
clear busy flag
deduct from interrupt count
restore AG's ...
SEQ 013?
DFSXA
DFSXAM
J555
^>56
)57
)58
559
5560
(561
3562
3563
356A
3565
3566
3567
3568
3569
3570
3571
3572
3573
357A
3575
3576
3577
3576
3579
3580
3581
3582
5583
|58A
5585
586
5587
3588
3589
3590
3591
3592
3593
DECSYSTEM KLIO CHANNEL/0TE20 INTERACTION TEST - VER 0,7 MACRO X53B(12^2) H:07 2'-Aug-85 Page 36
MAC 29-Jul-85 11 :U MISCELLANEOUS
SEO 0U5
032521
032522
032523
032524
032525
032526
032527
032530
032531
032532
032533
03253A
032535
032536
032537
032540
0325A1
032542
032543
032544
032545
200 00 0 00 036152
270 00 0 00 070231
241 00 0 00 777777
447 00 0 00 036152
263 17 0 00 000000
200 00
202 00
135 "
213
517
540 01
260 17
202 00
253 01
ZbZ U
01
00
00
00 036152
16 061077
00 070232
00 000001
00 000001
16 044541
00 032521
01 OOOOQO
00 032534
00 000000
SUBTTL MISCELLANEOUS
;* RAND - Random number generator
RAND:
HOVE
BASE
ADD
[5432173352163
ROT
-1
EQVB
BASE
RTN
; get base
/If* *♦*»*♦*♦*♦♦*♦*♦♦»♦**♦♦♦♦♦♦*♦***•*»**»**♦»***»•******♦*♦*»***•♦*♦♦♦**
* RANL6 - Random length routine
/If* **************************************************** ***************
RANLG: MOVE BASE ; get the base
HOVEM RN8ASE(CNTRL) : save it for this channel
LDB B, [POINT 11,CHNXFR(CNTRL; J3j ; get length
MOVNS B : make negative
HRLZS B ; put into left half
HRR 6,DAT6UF(CNTRL) ; merge beginning of data area
GO RAND : generate random data
MOVEM (B) ; store it in buffer
AOBJN B,.-2 ; do all required locations
RTN
; /If* **************************************************** ***************
;* RMEMSET - Random memory selection initialization
; /If***************************************************** ***************
save lowest useable address
clear control
200 00 0 00 060551
RMEMSET :M0VE
MEMLST
^71 00 0 00 040000
ADD I
•D16**D1024
620 00 0 qq qZ7777
202 00 0 00 075007
TRZ
<*D16»*D1024>-1
MOVEM
RNDMEM#
402 00 0 00 075010
SETZM
RNDMFST*
263 17 0 00 000000
RTN
™1
S£0 0133
DFSXA
DFSXAn
DECSYSTEW KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B{1242) 14:07 21-Aug-85 Page 37
MAC 29-Jul-85 11:44 MISCELLANEOUS
r
SEQ 0146
Df
032546
032547
032550
032551
032552
032553
032554
032555
032556
032557
032560
03256*
032562
032563
032564
;• RNDCHN - Generate channel program of random length
••
;* This routine will generate a channel program with the following
:* random variables: 1. Data size, 2. Juffer address
2t 17 0 00 033157
2tJ 17 0 00 032575
RNDCHN:
CLRERR
60
RANBUF
Check controller selection
205 16 0
261 17 0
405 16 0
336 00 0
254 00 0
00 777764
00 000016
00 777777
16 060647
OC 032562
MOVSI
RNDCH1: PUT
AND I
SKIPN
JRST
CNTRL,-14
CNTRL
CNTRL.-1
REOST(CNTRL)
RNDCH2
Generate channel program
205 00 0 00 600000
202 OC 0 00 074765
260 17 0 00 032565
260 17 0 00 032605
260 17 0 00 032526
26? 17 0 00 000016
23< 16 0 00 032551
263 17 0 00 000000
MOVSI
MOVEM
(381)
CHNCCUjT
RANURD
RANADR
RANLG
Select next controller
RNDCH2: GET
AOBJN
RTN
CNTRL
CNTRL. RNDCH1
clear all errors
setup device buffer partitions
init controller index
save controller index
make into controller number
RH20 selected?
no - get another one
fetch 600000,. 0
clear channel CCU location
develop word count. 20 thru 512
develop address
load up buffer
restore controller index
loop till done
,^^^J
SEO 0134
DFSXA DECSYSTE« KLiO CHANNEL/DTE20 INTERACTION TEST - VER
DFSXAM MAC 29-Jul-85 11:A^ MISCELLANEOUS
0.7 MACRO J[53B(1242) U;07 21-Aug-85 Page 38
SEO 0^^?
01
Dl
;»*
032565
032566
032567
032570
032571
032572
032573
032574
307 00
201 00
303 00
201 00
137 00
263 17
00 ,
00 001 000
00 07023A
00 000000
;• RANWRD - Develop random word length
RANURD: GO
LDB
CAIG
HOVE I
CAILE
HOVE I
DPB
RTN
RAND
[POINT
•D20
•D512
•D512
[POINT
10,0.35]
11.CHNCCW.13]
Jenerate randowi number
eep only 10 bits
greater then 20?
no - Biake right
less than or equal to 512?
no - make right
store word count
032575 205 16 0 00 77776(*
032576
032577
032600
032601
032602
032603
032604
336 00
254 00
200 00
270 00
202 00
16 060647
00 032603
16 061326
00 030145
16 061063
253 16 0 00 032576
263 17 0 00 000000
•• RANBUF - Develop device buffer partitions
RANBUF: HOVSI CNTRL.-14
RAN8F1: SKIPN
JRST
HOVE
ADD
HOVEH
RANBF?: A06JN
RTN
REQST(CNTRL)
RANBF <r
DEVPRT(CNTRL)
HEHLOW
RNPNTRCCNTRL.^
CNTRL. RANBF 1
init controller index
selected?
no - get another one
get base partition
add in base address
store pointer
do all selected controllers
exit
DFSXA
OFSXAM
DECSrSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3!533(1242) U:07 21-Aug-85 Page 39
MAC 29-Jul-85 11:A4 MISCELLANEOUS
r'
SEQ 0U8
OF!
DF!
0^2605 301 16 0 00 000010
032606 254 00 0 00 032622
032607 200 00 0 16 04A541
032610 037 13 0 00 000002
032611 25A 00 0 00 0A3657
032612 434 00 0 00 074765
032613 260 17 0 00 033017
032614
402 00
032615
200 00
032616
242 00
032617
335 00
032620
202 00
032621
263 17
16 061273
16 060723
00 000001
16 060647
16 061273
00 000000
032622 200 00 0 16 044541
032623 434 00 0 00 074765
032624 260 17 0 00 033017
032625 263 17 0 00 000000
;* RANADR - Generate random buffer address
RANADR: GAIL
JRST
MOVE
MAPADR
JRST
roR
STCHN
RANADl: SETZM
MOVE
LSH
SKIPGE
MOVEM
RTN
RADRDTE.-MOVE
I OR
STCHN
RTN
CNTRL.10
RADRDTE
DATBUF(CNTRL)
MAPERR
CHNCCW
SCLKRN(CNTRL)
CHNLEN(CNTRL)
1
REOST(CNTRL)
SCLKRN(CNTRL)
DAT8UF(CNTRL)
CHNCCU
DTE20
get virtual address
convert to physical
get rest of CCW
setup program
clear location
get length
double It
device selected?
no - save as clock count
exit
ge' virtual address
get rest of CCW
start DTE20
-.-.^J
;eo 0136
DFSXA
OFSXAM
5682
J683
S684
S686
J687
$688
S689
5690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 40
MAC 29-Jul-85 11:44 MISCELLANEOUS
SEQ 0149
DFI
OF!
;f* ************************************ **********************«««*t***4
;* RMEM - Random memory select ft setup
;f ********************* tt *********************************************
?et base
irst time?
no - advance to next 16<
is this last address access?
yes, take a non-skip RTN
setup memory
used up all of memory
16K not available
init controller index
get base partition
make virtual address
save
loop till done
032626
032627
032630
032631
032632
032633
032634
200 00 0 00 075007 RMEM: MOVE
332 00 0 00 075010 SKIPE
271 00 0 00 040000 ADDI
476 00 0 00 075010 SETOM
202 00 0 00 075007 MOVEM
311 00 0 00 070235 CAML
254 00 0 00 030065 JRST
RNDMEM
RNDMFST
•D16**D1024
RNDMFST
RNDMEM
CLPAGE]
CPOPJ
032635
032636
032637
037 11 0 00 000002
254 00 0 00 043657
322 00 0 00 030065
MEMSE6
JRST
JUMPE
MAPERR
CPOPJ
032640
032641
305 00 0 00 437777
254 00 0 00 043657
CAIGE
JRST
400000+<*D16**D1024>-
MAPERR
■1
032642
032643
032644
032645
032646
032647
205 16 0 00 777764
200 00 0 16 061326
271 00 0 00 400000
202 00 0 16 044541
253 16 0 00 032643
254 00 0 00 067640
MOVSI
MOVE
ADDI
MOVEM
AOBJN
SKPRTN
CNTRL.-14
DEVPRT(CNTRL)
400000
DAT8UF(CNTRL)
CNTRL..'-3
Q 0137
DFSXA
OECSYS
DFSXAM
MAC
3708
3709
■710
:711
;712
3713
032650
:7H
032651
3715
032652
3716
:717
032653
:718
03265 '>
:719
032655
:720
032656
;721
:722
3723
372A
032657
3725
032660
3726
3727
3728
032661
:i729
:730
:;731
:732
032662
:733
;734
032663
:735
03266A
:736
:737
032665
:738
032666
:739
:7A0
032667
;7A1
032670
■.H^2
032671
Z7^i
032672
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 41
29-Jul-85 11:44 MISCELLANEOUS
;* RNDCMP - Perform random data compare for tests 23 through 27
SEQ 0150
205 16 0 00 777764
201 11 0 00 044203
402 00 0 00 044135
261 17 0 00 000016
405 16 0 00 777777
336 00 0 16 060647
254 00 0 00 032665
200 00 0 00 075025
301 00 0 00 000023
254 00 0 00 070236
402 00 0 16 044136
260 17 0 00 036127
476 00 0 00 044135
26? 17 0 00 000016
2o< 16 0 00 032653
261 11 0 00 070241
336 00 0 00 044135
350 00 0 17 000000
263 17 0 00 000000
RNDCMP: MOVSI CNTRL,-14
MOVEI ERRDAT,BADLST
SETZM BADFLG
RNDCP1: PUT CNTRL
ANDI CNTRL, -1
SKIPN REQST(CNTRL)
JRST RNDCP2
; Check test range
MOVE
CAIL
JRST
; Continue
SETZM
GO
SETOM
RNDCP2: GET
AOBJN
PUSH
SKIPN
AOS
RTN
TSTNM
23
CSKIPLE CHTYPE(CNTRL)
JRST RNDCP2
JRST .+1]
BADCNT(CNTRL)
RCMPl
BADFLG
CNTRL
CNTRL, RNDCPl
ERRDAT,CMS.E0T]
BADFLG
(P)
im't controller index
1m"t stack
init bad flag
save controller index
make into controller number
RH20 selected?
no - get another one
?et test number
ests 23-27?
yes - check to see if this is an
NI/CI port and if so exit
clear bad count location
perform data compare on this buffer
error return
restore controller index
repeat for all RH's
termini^'^e list
skip i data error(s) found
none i f here
DFSXA
OFSXAn
37AA
27A5
^7A6
37A7
3748
3749
3750
3751
3752
3753
375A
3755
3756
3757
3758
3759
3760
3761
3762
3763
376A
3765
3766
3767
3768
3769
3770
3771
3772
3773
377A
3775
3776
3777
3778
3779
3780
3781
3782
3783
378A
3785
3786
3787
3788
3789
3790
3791
3792
3793
379A
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) U:07 21-Aug-85 Page 42
MAC 29-Jul-85 11:44 MISCELLANEOUS
;* RE6EN - Regenerate the channel programs for read
032673 205 16 0 00 777764
032674
032675
032676
032677
032700
032701
032702
032703
032704
032705
032706
032707
032710
032711
032712
032713
032714
032715
032716
032717
032720
032721
032723
032724
032725
032726
402 00
200 00
251 00
201 11
00 044153
00 067657
00 044446
00 044347
261 17 0 00 000016
405 16 0 00 mm
336 00 0 16 060647
254 00 0 00 032714
305 16 0 00 000010
260 17 0 00 070242
260 17 0 00
260 17 0 00
337 00 0 16
254 00 0 00
20n 15 0 16
2oJ 17 0 00
262 17 0 00
253 16 0 00
263 17 0 00
070244
032717
060647
032714
060753
064022
000016
032700
000000
210 01 0 16 060723
517 00 0 00 000001
540 01 0 16 044541
032722 260 17 0 00 035121
200 00
270 00
202 00
263 17
16 061326
00 030145
16 061063
00 000000
REGEN: MOVSI CNTRL.-14
SETZM RH.DNE
MOVE CRH.DNE,.RH.DNE+1]
BLT ERSTCK+77
MOVEI ERRDAT,ERSTCK
RE6N1: PUT CNTRL
AND I CNTRL, -1
SKIPN REQST(CNTRL)
JRST REGN2
CAIGE CNTRL, 10
60 C60 RANAD1
SKPRTN]
GO CMOVE CHNXFR(CNTRL)
GO SETCOM
RTNJ
GO RANCLR
SKIP6 REOST(CNTRL)
JRST REGN2
MOVE DEV,CHNDEV(CNTRL)
GO $TP82
REGN2: GET CNTRL
A08JN CNTRL, REGN1
RTN
im"t controller index
clear all errors
save controller index
make into controller number
skip if channel selected
update index
setup channel
setup DTE20
clear the buffer
device selected?
no - bypass next sequence
et device number
ackspace TU16
restore controller index
do all RH20's
;* RANCLR - Clear buffer before reading random data
RANCLR: MOVN
HRLZS
HRR
CLR8UF
MOVE
ADD
HOVEM
RTN
B,CHNLEN(CNTRL)
8
8,DAT8UF(CNTRL)
DEVPRTCCNTRL)
MEMLOU
RNPNTR( CNTRL)
; get length
; put into left half
; merge with virtual address
; clear the buffer
; get beg of device bjffer partition
; add in 1st free location
; setup pointer for read operation
; exit
SEQ 0151
;EQ 0139
DFSXA
DFSXAH
3795
3796
3797
3798
3799
"ioo
J01
l02
3803
380A
3805
3806
3807
3808
3809
3810
3811
3812
3813
38U
3815
3816
3817
3818
3819
3820
3821
3822
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) K:07 21-Aug-85 Page 43
MAC 29-Jul-85 11:44 MISCELLANEOUS
• f ************* tt***************t******t*t*****************«t********t
;* UPDC - Update tape desired locations
save controller number
im't controller index
skip if channel selected
update index
get device number
continue if TU16
if not - go look at other devices
read status
skip if at EOT
rewind tape
skip in not =0
if = 0-rewindl I !
move pointer up one
do all RH20's
get controller number
get device number
SEO 0152
df:
DFl
032727
032730
202 16 0 00 075022
205 16 0 00 777770
UPDC:
MOVEM
CNTRL.TEMP
novsi
CNTRL.-10
032731
337 00 0 16 060647
254 00 0 00 032745
UPDC1 :
SKIPG
REOST(CNTRL)
032732
JRST
UPDC 2
032733
200 15 0 16 060753
MOVE
DEV.CHNDEV(CNTRL)
032734
607 15 0 00 000004
TLNN
DEV.4
032735
254 00 0 00 032745
JRST
UPDC2
032736
260 17 0 00 043177
RDS
032737
005 00 0 00 070247
FAULT4
<RDS FAILED>
032740
602 00 0 00 002000
TRNE
EOT
032741
254 00 0 00 032751
JRST
UPDCRW
032742
336 00 0 16 061017
SKIPN
TAPEDC(CNTRL)
032743
254 00 0 00 032751
JRST
UPDCRW
032744
350 00 0 16 061017
AOS
TAPEDC(CNTRL)
032745
253 16 0 00 032731
UPDC2:
AOejN
CNTRL.UPDC1
032746
200 16 0 00 075022
UPDCX:
HOVE
CNTRL.TEMP
032747
200 15 0 16 060753
MOVE
DEV.CHNDEV(CNTRL)
032750
263 17 0 00 000000
RTN
032751 260 17 0 00 063532
032752 005 00 0 00 070252
032753 350 00 0 16 061017
032754 254 00 0 00 032746
UPDCRW: GO $REW
FAULT4 <REWIND ERROR
AOS TAPEDC(CNTRL)
JRST UPDCX
- UPDCRW>
rewind tape
clear desired counter
exit if not error
DFSXA
DFSXAM
DECSVSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO t53B(1242) U:07 21-Aug-85 Page 44
MAC 29-Jul-85 11:A^ MISCELLANEOUS
SEO 0153
3823
3824
3825
3828 032755
3829 032756
3830 032757
3831 032760
3832
3833 032761
383A 032762
3835 032763
3836 032764
3837 032765
3838
S39 032766
40 032767
3841
3842 032770
3843 032771
3844 032772
3845 032773
3846
3847 032774
3848
3849
3850
3851 032775
3852 032776
3853 032777
3854 033000
3855 033001
3856 033002
3857 033003
3858 033004
3859 033005
3860 033006
3861 033007
3862 033010
3863
3864 033011
3865 033012
3866 033013
3867 033014
3868 033015
3869 033016
3870
DF
OF
205 16 0 00 77777Q
333 00 0 16 061273
260 17 0 00 032775
253 16 0 00 032756
205 16 0 00 777770
402 00 0 00 000004
335 00
434 04
253 16
16 060647
16 061273
00 032763
332 00 0 00 000004
263 17 0 00 000000
205
335
16
00
260 17
00 777770
16 060647
00 033352
253 16 0 00 032771
254 00 0 00 067640
370 00 0 16
333 00 0 16
2o< 17 0 00
332 00
254 00
200 00
404 00
260 17
350 00
256 00
256 00
263 17
256 00
256 00
260 }7
202 00 1
350 00 0
263 U 0
00
00
16
00
00
16
16
16
00
061273
060633
000000
075026
033011
061063
070257
043006
061063
033546
033556
000000
16 033526
16 033536
00 043014
16 061063
16 061063
00 000000
;• RNDCLK - Clock possible RH20 loop back operations
RNDCLK: MOVSI
SKIPLE
GO
AOBJN
novsi
SETZN
SKIP6E
I OR
AOBJN
SKIPE
RTN
MOVSI
SKirCE
GO
AOBJN
SKPRTN
CNTRL,-10
SCLKRN(CNTRL)
CLKRH
CNTRL..-2
CNTRL,-10
CLKCNT
REQST(CNTRL)
CLKCNT. SCLKRN(CNTRL)
CNTRL..-2
CLKCNT
CNTRL,-10
REQST(CNTRL)
SUEBL
CNTRL..-2
Handle RH20 clocking
CLKRH:
CLKRHU:
XCT
XCT
RRDR
HOVEM
AOS
RTN
SCLKRN(CNTRL)
CHTyPE(CNTRL)
WRTPHSf
CLKRHy
aRNPNTR(CNTRL)
[i..-n
RNPNTR(CNTRL)
.RCLKKCNTRL)
.RCLKO(CNTRL)
.UCLKKCNTRL)
.UCLKO(CNTRL)
aRNPNTR(CNTRL)
RNPNTR(CNTRL)
init controller index
count elapsed?
no - clock the RH20
loop till done
init controller index
zero CLKCNT register
selected for loopback?
yes - or in count
loop till done
done?
no - exit so another task can be done
init controller index
selected?
yes - go generate EBL for this RH
loop till done
deduct one
NI or CI port?
yes - exit
in write phase?
yes - enter write phase
get 18 bit byte ♦ parity bit
Keep just the 19 data bits
load into write register
update the pointer
set read clock
reset read clock
set write clock
reset write clock
read the byte
save it
update the pointer
OFSXA
DFSXAn
3886
3890
3891
3892
3893
389A
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
39U
3915
3916
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page 45
MAC 29-Jul-85 11:A4 CHANNEL SETUP R0UTINE/RH20 CLOCKING
SUBTTL CHANNEL SETUP ROUTINE/RH20 CLOCKING
;• $STCHN - Channel setup routine
SEQ 0154
03501^
033020
033021
033022
033023
033024
033025
033026
033027
033030
033031
033032
033033
033034
033035
033056
033037
033040
033041
033042
033043
033044
033045
033046
033047
033050
033051
033052
033053
033054
033055
033056
033057
301 16 0 00 000010
254 00 0 00 066066
202 00
550 01
240 01
202 00
205 00
541 00
202 00
201 00
202 00
16 060737
00 000016
00 000002
01 060663
00 200000
01 060663
377000
060664
060664
01
01
01
200 00 0 16 043605
202 00 0 01 377003
201 00 0 01 377003
337 00 0 16 060633
260 17 0 00 043003
135 02 0 00 070232
202 02 0 00 060631
202 02 0 16 060723
00
00
201
135 00
43'. 00
270 00
202 00
01 060664
16 061113
00 070260
00 070261
00 060631
16 061127
231 02 0 00 000200
322 03 0 00 033075
275 03 0 00 000200
217 00
350 00
205 00
137 03
202 00
00 000003
00 000002
00 600000
00 070262
01 060664
$STCHN: CAIL
JRST
nOVEM
HRRZ
ASH
NOVEM
MOVSI
HRRI
NOVEM
HOVE I
NOVEM
NOVE
NOVEM
NOVEI
SKI PC
UIVR
LDB
NOVEM
NOVEM
NOVEI
NOVEM
LOB
I OR
ADD
NOVEM
IDIVI
JUNPE
SUB I
NOVMS
AOS
NOVSI
DPS
NOVEM
CNTRL JO
SETCOM
CHNXFR(CNTRL)
B, CNTRL
B.2
CHNPRG(B)
(CHJMP)
CHNPRG(B)
ICCU(6)
CHNPRG+KB)
CHNPRG+KB)
INTSRV(CNTRL)
ICCW+3(B)
ICCU*3(B)
CHTVPE(CNTRL)
; skip if RH20 or RH20 device
; setup DTE comm area
; save CCU for this channel
; get controller number
; (B)»4=>(B)
; store CCU
; get channel jump instruction
: merge in address
; put into first location
: generate halt address
; store as halt
; get interrupt linkage
; put it into last slot
; get address
; is this controller an NI/CI port?
; no - put it into dispatch register
C, [POINT 11.CHNXFR{CNTRL)J3] ; get word count
C.DATLEN ; store as word length
C,CHNLEN(CNTRL) ; save for devices
CHNPRG+KB)
STURDKCNTRL)
[POINT 22. CHNXFR(CNTRL). 55]
[38n
DATLEN
STURD2(CNTRL)
get term
save it
address
C.*D128
D,STCHN1
D.*D128
D
(381)
D. [POINT 11.0.133
CHNPRG+KB)
adjust
save it
divide b
kip
of words in sector
b)fpass skip adjustment if multiple
find difference between count and
even multiple
make positive
adjust sector count
set transfer bits
merge in skip count
store the skip word
DFSXA
DFSXAM
5917
5918
5919
5920
3921
3922
3923
392A
3925
3926
3927
3928
3929
3930
3931
3932
3933
393A
3935
3936
3937
3938
3939
3940
39A1
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 46
MAC 29-Jul-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
SEO 0155
DF!
DFl
033060 200 00 0 01 060663
033061 621 00 0 00 200000
033062 202 00 0 01 060663
033065 135 00 0 00 070262
033064 272 03 0 00 060631
033065 200 00 0 00 060631
033066 202 00 0 16 060723
033067 201 00 0 01 060665
033070 202 00 0 01 060665
033071 201 00 0 01 060665
033072 202 00 0 16 061113
033073 205 00 0 00 600000
033074 202 00 0 16 061127
033075 402 00 0 01 377001
033076 402 00 0 01 377002
033077 201 11 0 00 044347
033100 263 17 0 00 000000
033101 202 16 0 00 075022
033102 205 16 0 00 777764
033103 336 00 0 16 060647
033104 25'. 00 0 00 033112
033105 200 00 0 00 075025
033106 301 00 0 00 000023
033107 254 00 0 00 070263
033110
033111
033112
033113
033114
033115
033116
332 00
254 00
253 16
200 16
254 00
16 044167
00 033115
00 033103
00 07502?
00 067640
STCHN1:
WOVE CHNPRG(B)
TLZ (181)
NOVEM CHNPRG(B)
LDB [POINT 11.AJ3]
ADDM D.DATLEN
MOVE DATLEN
NOVEM CHNLEN(CNTRL)
HOVEI CHNPR6*2(B)
HOVEM CHNPR6*2(B)
MOVE I CHNPRG*2(B)
MOVEM STyRDi(CNTRL)
MOVSI (381)
MOVEM STWRD2(CNTRL)
SETZM ICCW*1(B)
SETZM ICCW*2(B)
MOVEI ERRDAT.ERSTCK
RTN
?et xfer word
urn off last xfer bit
put it back
right just count
adjust length
get length
save it
get halt address
store it into program
gen term address
save it
gen 600000., 000000
save term CCW
clear word 1
clear word 2
setup error stack
exit
* SCHERR - Check for channel errors
SCHERR: MOVEM
MOVSI
$CHER2: SKIPN
JRST
CNTRL.TEMP*
CNTRL.-14
REQST(CNTRL)
$CHER1
; Check test range
200 16 0 00 075022
263 17 0 00 000000
HOVE
CAIL
JRST
; Continue
SKiPE
JRST
SCHERI: AOejN
MOVE
SKPRTN
SCHERX: MOVE
RTN
TSTNM
:3
CSKIPLE CHTYPE(CNTRL)
JRST $CHER1
JRST .f1]
RH.ERR(CNTRL)
SCHERX
CNTRL,$CHER2
CNTRL.TEHP
CNTRL.TEHP
save index
init controller index
selected?
no - go update selection
?et test number
ests 23-27?
yes - check to see if this is an
NI/CI port and if so exit
; yes - errors?
; yes - take error exit
; loop till done
; restore controller number
; exit (*2)
; restore controller number
; exit (+1)
DFSXA
DFSXAM
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
A017
401£
DECSVSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO :538(1242) 14:07 21-Aug-85 Page 47
MAC 29-Jul-85 11:44 CHANNEL SETUP ROUTJNE/RH20 CLOCKING
;4f************* ************************* ******************************
;* SRHIN - Initialize the RH and channel
;/|f****«******************t********************************************
SEQ 0156
033117
033120
033121
033122
033123
033124
033125
033126
033127
033130
033131
033132
033133
033134
033135
033136
033137
033140
033141
033142
033143
033144
033145
033146
033147
033150
033151
033152
033153
033154
033155
033156
336 00 0 16 060633
254 00 0 00 033140
331 00 0 16 060633
254 00 0 00 033147
201 00
256 00
201 00
256 00
201 00
256 00
403 00
260 17
4C2 00
402 00
2CC 00
251 00
263 17
00 006000
16 043570
00 000200
16 043570
00 000400
16 043570
00 074777
00 043011
16 060767
00 060737
00 070266
00 060746
00 000000
00
00
201
402 00
402 00
200 00
251 00
263 17
201 00
256 00
402 00
402 00
402 00
200 00
251 00
263 17
00 400000
16 043570
00 074777
16 060767
00 060737
00 070266
00 06C746
OO GOi'OOO
SRHIN:
SKIPN
JRST
SKI PL
JRST
NOVEI
.CONO
NOVEI
.CONO
NOVEI
.CONO
SETZB
WD I AG
SETZM
SETZM
MOVE
BLT
RTN
CHTYPE(CNTRL)
SDTIN
CHTYPE(CNTRL)
SPORIN
MBCCLR+RAECLR
RCLPA
MBE
INTCNT
CHNBAR(CNTRL)
CHNXFR
[CHNXFR,.CHNXFR*1]
CHNXFR+7
is this controller a DTE?
)fes - go handle
IS this controller an NI/CI port?
yes - go handle
no - get channel clear bit
do CONO
get RESET CMD LST PNTR bit
do CONO
3et MASSBUS enable bit
0 CONO
clear ACO
insure loop back is cleared
init sector t track
clear location
get BLT pointer
clear region
exit
OFSX
DFSX
44
44
44
44
44
44
44
44
44
44
44
44
44
44
;^****************««*********************t*****t*t********************
;* SDTIN - Initialize the DTE20
;#************************************************************t*******
0 00 001170
SDTIN:
HOVE I
PILDENIPIOENBICLT0101CLT0111DNG10C
0 16 043570
.CONO
0 16 060767
SETZM
CHNBAR(CNTRL) ; init sector & track
0 00 060747
0 00 070267
0 00 060752
SETZM
CHNXFR+10 ; clear location
MOVE
CCHNXFR*10..CHNXFR*11] ; get BLT pointer
BLT
CHNXFR+13 ; clear region
0 00 000000
RTN
; exit
;#***********************************************t*******«************
;* SPORIN - Initialize the RH and channel
;4f**************** ************************************ ****************
SPORIN: MOVEI
.CONO
SETZM
SETZM
SETZM
MOVE
BIT
RTN
PCLEAR
INTCNT
CHNBAR(CNTRL)
CHNXFR
rCHNXPR.,CHNXFR+1]
CHNXFR f7
yes - write 'port clear'
bit
clear interrupt count
init itctor i track
clear location
"et BLT pointer
ciea" region
exit
r
SEQ 0U4
DFSXA
DFSXAM
A019
A020
A021
A022
4023
402A
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 48
MAC 29-JUL-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
;/(f* ************************************** *****************************
;* $CLERR - Clear all possible error flags
SEQ 0157
033157
033160
033161
033162
033163
033164
033165
033166
033167
033170
033171
033172
033173
033174
033175
033176
033177
200 00 0 00 067657
402 00 0 00 044153
251 00 0 00 044446
00 044347
00 070270
00 377000
201 11 0
200 00 0
402 00 0 . .
251 00 0 00 377037
263 17 0 00 000000
200 00
202 00
550 00
242 00
435 00
202 00
260 17
005 00
263 17
17 000000
00 074776
00 000007
00 000004
10 000000
0 16 061017
0 00 063730
0 00 070271
0 00 000000
033200 200 00 0 00 070275
033201 202 00 0 OC 030072
033202 263 17 0 00 000000
$CL2RR: MOVE
SETZM
BLT
MOVE I
$CL0G: MOVE
SETZM
BLT
RTN
[RH.DNE,,RH.DNE+1]
RH.DNE
ERSTCK+77
ERRDAT,ERSTCK
[ICCW,,ICCW+1J
ICCW
ICCW+37
build BLT pointer
clear DONE & error flags
and error stack
; init stack pointer
; get BLT pointer
; clear 1st logout area
; clear rest or area
; exit
* $STLP - Relocate loop point
/)f****tlr*t^*tlr *:**ilr*tlr****llr*********llr** ************* Ar********^^* ********•••*
$STLP: MOVE (P)
MOVEM ERRLP
HRRZ CCW
LSH 4
lORI (PATRN)
MOVEM TAPEDC(CNTRL)
GO $TPU
FAULT4 <P0SiiI0NING ERR0R>
RTN
get loop address
save it
fetch CCW index
raise four times
add in pattern index
setup in desire position counter
position selected device
exit
;/jf***** ****************** ♦********-Y*************** *********************
;* STRAP - Trap catcher setup for interrupts
;#************♦*****************************************************♦*
STRAP: MOVE fJSR INTERR]
MOVEM SITRXI
RTN
; get instruction
; pu*" in SUBRTN trap routine
; exit
SEO 0U5
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 49
DFSXAM MAC 29-Jul-85 11 :4A CHANNEL SETUP ROUTINE/RH20 CLOCKING
SEQ 0158
Dl
01
4057
A058
A059
A060
A061
4062
033203
200 12 0 00 070015
4065
033204
200 04 0 00 060631
4064
033205
242 04 0 00 000001
4065
4066
033206
260 17 0 00 061156
4067
033207
260 17 0 00 061143
4068
033210
337 00 0 ■ 6 060633
4069
033211
331 00 0 • 6 060647
4070
033212
254 00 0 10 033215
4071
033213
260 17 0 )0 043014
4072
033214
136 00 0 )0 000012
4073
033215
367 04 0 00 033206
260 17 0 00 033453
4074
033216
4075
033217
263 17 0 )0 000000
4076
4077
4078
4079
4080
4081
4082
03322C
200 00 0 00 070257
4083
033221
137 00 0 00 070276
4084
4085
033222
200 12 0 00 070015
4086
033223
20n 04 0 00 060631
4087
033224
cHi 04 0 00 000001
4088
4089
033225
333 00 0 16 060633
4090
033226
254 00 0 00 033234
4091
033227
331 00 0 16 060647
4092
033230
254 00 0 00 033233
4093
033231
256 00 0 16 033526
4094
033232
256 00 0 16 033536
4095
033233
260 17 0 00 061307
4096
033234
260 17 0 00 061245
4097
033235
260 17 0 00 061260
4098
4099
033236
337 00 0 16 060633
4100
033237
331 00 0 16 060647
4101
033240
254 00 0 00 033243
4102
4103
033241
260 17 0 00 043014
4104
033242
136 00 0 00 000012
4105
4106
033243
367 04 0 00 033225
4107
033244
260 17 0 00 033453
4108
033245
263 17 0 00 000000
;* iWCKB - Write clock all RH's and get data from selected RH
SUCKB:
SUB1
MOVE
PNTR. [POINT 18,DEVBUFJ
MOVE
CLKCNT,DATLEN
LSH
CLKCNT.1
; double count
GO
SCLK1
; set all SCLK's
GO
SCLKO
; reset all SCLK's
SKIPG
CHTYPE(CNTRL)
; is this controller an RH20?
SKIPL
REQST(CNTRL)
; RH20?
JRST
syB2
; no - avoid next 2 instruction
RRDR
: read data from selected unit
IDPB
PNTR
; save data in DEVBUF
SOJG
CLKCNT.SWBI
: do all clocks
GO
$EBLA
; generate EBL
RTN
SUB2:
;/(>*********************************************************♦**********
;* SWCLKC - Write clock selected and read clock unselected
;4P**** ************************************'******************** ********
SUCLKC:
$WC1;
$UC2:
MOVE
DPB
C1,.-1]
[POINT 19,WRE6
,35:
; get all ones data byte
; store in send location
MOVE
MOVE
LSH
PNTR, [POINT 18, DEVBUF]
CLKCNT,DATLEN
CLKCNT,1
; double count
SKIPLE
JRST
SKIPL
JRST
XCT
XCT
GO
GO
GO
CHTYPE(CNTRL)
.♦6
REQST(CNTRL)
.♦3
.WCLKKCNTRL)
.WCLKO(CNTRL)
WRLDRG
SCLK6
SCLK7
; is this controller an RH20?
; no - skip ahead 6
; RH20 loop back?
; no - skip ahead 3
; set e.11 SCLK's
; reset all SCLK's
; load write registers
; clock unselected RHs with read clocks
SKIPG
SKIPL
JRST
CHTYPE(CNTRL)
REQST(CNTRL)
$WC2
; Port?
; RH20?
; no - avoid 2 instructions
RRDR
IDPB
PNTR
; reaa data from selected unit
; save data in DEVBUF
SOJG
GO
RTN
CLKCNT,$WC1
SE6LA
; do all clocks
; generate EBL
SEQ 0U6
DFSXA
DFSXAM
A109
Alio
4111
A112
4113
411A
4115
4116
4117
4118
4119
4120
4121
4122
4123
4124
♦123
4126
4127
4128
4129
4130
4131
4132
4133
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) )^'.07 21-Aug-85 Page 50
MAC 29-Jul-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
SEQ 0159
D
D
033246
033247
033250
033251
033252
033253
033254
200 04 Q 00 060631
242 04 0 00 000001
242 10 0 00 000001
033256
033257
03J260
033261
033262
033263
200 00
602 04
200 00
137 00
0 10 061376
0 00 000001
0 10 061377
0 00 070276
033255 260 17 0 00 033476
260 17
260 17
367 04
242 10
260 17
263 17
0 00 061204
0 00 061171
0 00 033251
0 00 777777
0 00 033453
0 00 000000
;#»♦•***♦♦♦♦♦*♦»**♦***♦♦♦♦♦♦♦*•♦♦♦♦***«**•#**♦♦♦♦♦♦*♦***♦♦*♦*■♦♦**♦*♦♦♦
;* $RCKB - Read clock all RH's and send data on selected RH
;/|r« *******************************************************************
SRCKB: MOVE CLKCNT,DATLEN
LSH CLKCNT.l
LSH PATRN.l
$RB: HOVE DATPTB(PATRN)
TRNE CLKCNTJ
HOVE DATPTB+KPATRN)
DPB [POINT 19.WREG,353
GO URLDl
GO SCLK3
GO SCLK2
SOJG CLKCNT.SRB
LSH PATRN.-l
GO SE6LA
RTN
get amount of clocks
double count
double index
get byte
count even?
no - get odd byte
save in write register
load all write registers
set all SCLK's
reset all SCLK's
perform all clocking here
bring index back to normal
generate EBL
lOFSXA DECSYSTE« KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 51
IDFSXAM MAC 29-JuL-85 11 :44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
SEQ 0160
DF
DF
4134
4135
4136
4137
4138
4139
033264
200
04 0 00 060631
4140
033265
242
04 0 00 000001
4141
033266
?42
10 0 00 000001
4142
4143
033267
200 00 0 10 061376
4144
033270
602
04 0 00 000001
4145
033271
200
00 0 10 061377
4146
4147
033272
337
00 0 16 060633
4148
033273
331
00 0 16 060647
4149
033274
334
00 0 00 000000
4150
033275
260
17 0 00 043006
4151
4152
4153
033276
260
17 0 00 061217
033277
260
17 0 00 061232
4154
4155
033300
337
00 0 16 060633
4156
033301
331
00 0 16 060647
4157
033302
254
00 0 00 033305
4158
4159
033303
256
00 0 16 033546
4160
033304
256
00 0 16 033556
4161
4162
4163
4164
033305
367
04 0 00 033267
033306
2hJ
10 0 00 mm
4165
033307
260
17 0 00 033453
4166
033310
263
17 0 00 000000
;* SRCLKC - Read clock selected and write clock unselected
$RCLKC: MOVE
LSH
LSH
SRC:
HOVE
TRNE
MOVE
SKIP6
SKI PL
SKI PA
UURR
GO
60
SKIP6
SKI PL
JRST
XCT
XCT
LSH
60
RTN
CLKCNT,DATLEN
CLKCNT.I
PATRNJ
DATPT8(PATRN)
CLKCNTJ
DATPT8+1 (PATRN)
CHTYPE(CNTRL)
REQST(CNTRL)
SCLK4
SCLK5
CHTYPE(CNTRL)
REOST(CNTRL)
.♦3
.RCLKKCNTRL)
.RCLKO(CNTRL)
S0J6 CLKCNT,$RC
PATRN, -1
SEBLA
Jet amount of clocks
ouble count
double index
get byte
count even?
no - get odd byte
IS this controller an RH20?
device selected?
no - load into write register
clock unselected RH's in write mode
is this controller an RH20?
skip if RH20 loop back
skip ahead 3 if device selected
set read clock
reset read clock
perform all clocking here
bring index back to normal
generate EBL
n
SEQ 0U8
DFSXA
DECSYST
DFSXAM
MAC
A167
4168
A169
4170
A171
4172
033311
4173
033312
4174
4175
033313
4176
4177
033314
4178
033315
4179
4180
033316
4181
033317
4182
4183
033320
4184
033321
4185
4186
033322
4187
033323
4188
4189
033324
4190
4191
033325
4192
033326
4193
4194
033327
4195
033330
4196
4197
033331
4198
033332
4199
4200
033:: 3
4201
033:: 4
4202
033335
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 52
29-Jul-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
;* $ZCLK - Simulate writing the device
SEQ 0161
DF
DF
200 04 0 00 060631
242 04 0 00 000001
SZCLK:
MOVE
LSH
CLKCNT.DATLEN
CLKCNTJ
; yet amount of clocks
; double count
200 12 0 00 070015
MOVE
PNTR, [POINT 18,DEV8UFJ
333 00 0 16 060633
254 00 0 00 033322
SZA:
SKIPLE
JRST
CHTyPE(CNTRL)
$ZB
; is this controller an RH20?
; no - continue
256 00 0 16 033526
256 00 0 16 033536
XCT
XCT
.UCLKKCNTRL)
.UCLKO(CNTRL)
; set the clock
; rset the clock
260 17 0 00 043014
136 00 0 00 000012
RRDR
IDPB
PNTR
; yes - get byte from read regi
; put into DEVBUF
260 17 0 00 033331
300 00 0 00 000000
$ZB:
GO
CAI
SUUCLK
; unselected write clock
367 04 0 00 033314
SOJG
CLKCNT.tZA
; update clock amount
260 17 0 00 033331
254 00 0 00 033325
60
JRST
SUUCLK
.-1
; finish unselected write clock
260 17 0 00 033453
263 17 0 00 000000
$ZEBL:
GO
RTN
SEBLA
; here if done
Zf^ 00 0 16 061273
254 00 0 00 067640
SUUCLK:
SOSGE
SKPRTN
SCLKRN(CNTRL)
260 17 0 00 061217
263 17 0 00 000000
60
GO
RTN
SCLK4
SCLK5
>EQ 0U9
DFSXA
DFSXAM
4203
A20A
A205
4206
A207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 53
MAC 29-JuL-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
;* $UCLK - Simulate writing the device
SEO 0162
033336 331 00 0 16 060647
033337 263 17 0 00 000000
033340 333 00 0 16 060633
033341 254 00 0 00 033352
033342 200 04 0 00 060631
033343 242 04 0 00 000001
033344 200 12 0 00 070015
033345 256 00 0 16 033526
033346 256 00 0 16 033536
033347 260 17 0 00 043014
033350 136 00 0 00 000012
033351 367 04 0 00 033345
033352
033353
033354
033355
033356
033357
033360
$UCLK: SKIPL
RTN
REQST(CNTRL)
SKIPLE CHTYPE(CNTRL)
JRST $UEBL
MOVE CLKCNT.DATLEN
LSH CLKCNTJ
MOVE PNTR, [POINT 18,DEVBUF]
SUA:
XCT
XCT
RRDR
IDPB
SOJG
.WCLKKCNTRL)
.WCLKO(CNTRL)
PNTR
CLKCNT,$WA
333 00 0
263 17 0
201 00
260 17
402 00
260 17
263 17
16 060633
00 000000
00 000010
00 043011
00 000000
00 043011
00 000000
$WEBL: SKIPLE CHTYPE(CNTRL)
RTN
MOVE I RHEBL
UDIAG
SETZM
WDIAG
RTN
; device selected
; yes - exit
; is this controller an RH20?
; no - continue
; get amount of clocks
; double count
; set the clock
; rset the clock
; get byte from read register
; put into DEVBUF
; update clock amount
; is this controller an RH20?
; no - return
n
SEQ 0150
DFSXA
DFSXAM
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 54
MAC 29-JuL-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
;* $RCLK - Simulate reading from device
SEQ 0163
033361
033362
033363
033364
033365
033366
033367
033370
033371
033372
033374
033375
033400
033401
033402
033403
033404
033405
033406
331 00
263 17
200 04
242 04
16 060647
00 000000
00 060631
00 000001
242 10 0 00 000001
200 00
602 04
200 00
333 00
254 00
0 10 061376
0 00 000001
0 10 061377
0 16 060633
0 00 033376
033373 260 17 0 00 043006
256 00
256 00
0 16 033546
0 16 033556
033376 367 04 0 00 033366
033377 242 10 0 00 777771
333
263
201
2oJ
402
260
263
00
17
00
17
00
17
17
16 060633
00 000000
00 000010
00 043011
00 000000
00 043011
00 000000
$RCLK:
$RA:
$REBL:
SKIPL
RTN
MOVE
LSH
LSH
REQST(CNTRL)
CLKCNT,DATLEN
CLKCNT.I
PATRNj
MOVE
TRNE
MOVE
DATPT8(PATRN)
CLKCNTJ
DATPTB+1 (PATRN)
SKIPLE
JRST
CHTYPE(CNTRL)
.+4
UURR
XCT
XCT
.RCLKKCNTRL)
.RCLKO(CNTRL)
SOJG
CLKCNT,$RA
LSH
PATRN, -1
SKIPLE
RTN
MOVE I
UOIAG
SETZM
WDIAG
RTN
CHTYPE(CNTRL)
RHEBL
devices selected?
yes - exit
get amount of clocks
double count
double index
is this controller an RH20?
no - skip the following
yes - load it into the write register
set the SCLK
reset the SCLK
do all bytes
bring index bacK to normal
is this controller an RH20?
no - return
get EBL clock
generate EBL
clear ACO
clear EBL
exit
1
:Q 0151
DFSXA
DFSXAM
4267
A268
A269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
DECSYSTEM KLIO I:HANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 55
MAC 29-Jul-85 11:44 CHANNEL SETUP ROUTINE/RH20 CLOCKING
./ ;* SSKCLK - Simulate reading from device
SEO 0164
033407
033410
033411
033412
033413
0334 K
033415
033416
033417
033420
200 00 0
137 00 0
200 04 0
242 04 0
242 10 0
200 00 0
602 04 0
200 00 0
333 00 0
254 00 0
00 070257
00 070276
00 060631
00 000001
00 000001
10 061376
00 000001
10 061377
16 060633
00 033424
033421 260 17 0 00 043006
033422
033423
033424
03342S
256 00 0
256 00 0
260 17 '
300 00 0
16 033546
16 033556
00 033434
00 000000
033426 367 04 0 00 033414
033427
033430
260 17 0
2:>' 00 0
00 033434
00 033427
033431 242 10 0 00 777777
033432
033433
033434
033435
033436
033437
033440
033441
260 17 0
263 17 0
00 033453
00 000000
375 00 0 16 061273
254 00 0 00 067640
260 17 0 00 061307
260 17 0 00 061245
260 17 0 00 061260
263 17 0 00 000000
$SKCLK:
$SA:
$SB:
SSEBL;
SURCLK:
MOVE
DPB
C1,,-1]
:P0INT 19.WREG,
MOVE
LSH
LSH
CLKCNT,DATLEN
CLKCNT.I
PATRNJ
MOVE
TRNE
MOVE
DATPT8(PATRN)
CLKCNTJ
DATPTB^KPATRN)
SKIPLE
JRST
CHTYPE(CNTRL)
$SB
UURR
XCT
XCT
.RCLKKCNTRL)
.RCLKO(CNTRL)
GO
CAI
JURCLK
SOJG
CLKCNT,$SA
GO
JRST
SURCLK
.-1
LSH
PATRN,-1
60
RTN
$E8LA
cted read clock
SOSGE
SKPRTN
SCLKRN(CNTRL)
GO
GO
GO
RTN
URLDRG
SCLK6
SCLK7
et amount of clocks
ouble count
double index
is this controller an RH20?
no - continue
yes - load it into the write register
set the SCLK
reset the SCLK
unselected read clock
do all bytes
finish unselected read clock
bring index back to normal
raise EBL
exit
load write register
I r
SEO 0152
DFSXA
lOFSXAM
i A315
I A31A
A315
' A316
I A317
! A318
A319
! A320
I A321
A322
A323
432A
A325
A326
4327
A328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
DECSYSTEH KL10 CHANNEL/DTE20 INTERACTJON TEST - VER 0,7 MACRO X538(1242) 14:07 21-Aug-85 Page 56
MAC 29-Jul-85 11:44 CHANNEL SETUP R0UTJNE/RH20 CLOCKING
;* $LURR - Load the write register with data
SEQ 0165
033442
033443
033444
033445
033450
033451
033452
033453
033454
03345:
033456
033457
033460
033461
r
iDF
OF
515 16 0 00 777766
337 00 0 16 060633
331 00
254 00
16 060647
00 033430
033446 135 00 0 00 070277
033447 260 17 0 00 043006
253 16
241 06
263 17
00 033443
00 000022
00 000000
261
515
335
260
253
17
16
00
17
16
262 17
263 17
0 00 000016
00 777770
16 060647
00 033352
00 033455
00 000016
00 000000
SLURR: HRLZi
SKIP6
SKIPL
JRST
LDB
UURR
SLURRI: AOBJN
ROT
RTN
CNTRL,-*D10
CHTYPE(CNTRL)
REQST(CNTRL)
SLURRI
[POINT 18, GOOD. 35:
CNTRL.SLyRR+1
GOOD, *D 18
get controller index
IS this controller an RH20?
yes - selected?
no - get another one
get byte
write the write register
go back if more to do
position next byte
exit
;* SEBLA - Send EBL to all RH's
^^r* ************* ******************************************************
SEBLA: PUT CNTRL
HRLZI CNTRL. -10
SKIP6E REQST(CNTRL)
60 SUEBL
AOBJN CNTRL.. -2
GET CNTRL
RTN
save CNTRL
init controller index
selected?
yes - set/reset EBL
do all RH's
restore CNTRL
exit
SEQ 0153
DFSXA
DFSXAM
A3A4
A3A5
43A6
A3A7
A548
A350
A351
1 4352
I 4353
I 435A
' 4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
437?
4373
4374
4375
4376
4377
4378
4379
4380
DECSVSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 57
MAC 29-Jul-85 11:44 CHANNEL SETUP R0UTINE/RH20 CLOCKING
;• SLJMP - Put channel jumps throughout DATBUF
SEO 0166
033462
033463
033464
033465
033466
033467
033470
033471
033476
033477
033500
033501
033502
033503
033504
033505
033506
DF!
DF!
200 06
201 00
202 06
350 00
367 00
621 06
202 06
263 17
00 070300
00 001200
06 777777
00 000006
00 033464
00 200000
06 777777
00 000000
033472 402 00 0 00 044541
033473 20C 00 0 00 070301
033474 251 00 0 00 045741
033475 263 17 0 00 000000
261
337 00
331 00
334 00
256 00
253 16
262 17
263 y7
17 0
16 0
' 0
0
0
0
0
0
0
00 000016
00 777770
16 060631;
16 060647
00 OOQOOO
16 033566
00 033500
00 000016
00 000000
$LJ«P:
MOVE
GOOD, [181 ♦DATBUF ♦I 3
novEi
1200
HOVEM
GOOD. -1 (GOOD)
AGS
GOOD
SOJG
.-2
TLZ
GOOD.(IBI)
WVEM
GOOD. -1 (GOOD)
RTN
; store channel jinp
; update imp E field
; dn it iJOD times
; c Ar jmp bit
: put in halt cmd
;• SCLJMP - Clear channel program
$CLJ«P: SETZM
WOVE
BLT
RTN
DATBUF
[DATBUF,. DATBUF ♦I]
DATBUF ♦I 200
; clear 1st location
; clear remainder
;* WRLD1 - Load all write registers
•#*****************t******t **•••*••*********%************•** **********
yRLDI: PUT
MOVSI
SKIP6
SKI PL
SKIPA
XCT
AOBJN
GET
RTN
CNTRl
CNTRL,-10
CHTVPE(CNTRL)
REOST(CNTRL)
.yRRS(CNTRL)
CNTRL.. -4
CNTRL
; save CNTRL
; init controller index
; is this controller an RH20?
; yes - not selected/device selected?
; no - continue
; write into register
: do all RH's
; restore CNTRL
SEO 0154
Of SKA
DFSXAM
4581
A382
A585
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
DECSYSTE« KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 HACRO 1538(1242) U:07 2l-Aug-85 Page 58
MAC 29-Jul-85 11:44 CHANNEL SETUP ROUTINE/RH20 CLOCKING
SEO 0167
033507
033510
033511
033512
033513
033514
033515
033516
033517
033520
033521
033522
033523
033524
033525
DFl
DFl
200 01
200 00
240 00
435 00
661 00
202 00
661 01
350 00
202 01
312 01
344 01
200 00
661 GO
202 00
263 17
00 030145
00 030144
00 000012
00 001777
00 200000
00 060551
00 200000
00 000001
01 777777
00 060551
00 033517
00 030145
00 200000
01 000000
00 000000
;* SLJMPA - Setup a jump always through menory
$LJ«PA:
MOVE
MOVE
ASH
lORI
TLO
HOVEW
TLO
AOS
PWVEN
CAME
AOJA
HOVE
TLO
«OVE«
RTN
1,HE«L0U
HE«T0T
•D1Q
1777
(181)
HEMLST
1.(181)
1
1,-1(1)
1.MEMLST
N^MLOW
(181)
(1)
get 1st address
get total K
convert to physical address
merge in bits <26:35>
set to jump instruction
sat/e it
set (ACI) to channel jump
make it jump .'^1
put it one location back
skip if last one stored
if not continue storing
get 1st address
make jump
store into memory
exit
EQ 0155
DFSXA
DFSXAM
A401
4A02
AA03
4A0A
A405
4A06
4A07
4408
4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 59
MAC 29-Jul-85 11:44 CHANNEL SETUP ROUTINE/RH20 CLOCKING
SEQ 0168
033526
033527
033550
033531
033532
033533
033534
033535
033536
033537
033540
033541
033542
033543
033544
033545
033546
033547
033550
033551
033552
033553
033554
033555
033556
033557
033560
033561
033562
033563
033564
033565
540
544
550
554
560
564
570
574
14 0 00 070302
14 0 00 070302
00 070302
00 070302
00 070302
14
14
14
14
14
14
540
544
550
554
560
564
570
57^
14
14
00 070302
00 070302
00 070302
540 14
544 14
550 14
554 14
560 14
564 14
570 14
574 14
540 14
544 14
550 14
.•'54 14
560 14
564 14
570 14
5^4 14
0 00 070303
0 00 070303
00 070303
00 070303
00 070303
00 070303
00 070303
00 070303
0 00 070304
0 00 070304
00 070304
00 070304
00 070304
00 070304
00 070304
00 070304
00 070305
00 070305
14 0 00 070305
14 0 00 070305
14 0 00 070305
14 0 00 070305
14 0 00 070305
'■■ 0 OC 070305
;• .UCLKI - Set WCLK table
.WCLKl: DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
.WCLKO: DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
RHO.CRHD
RH1.LRHD
RH2,LRHD
RH3.LRHD
RH4,CRHD
RH5,CRHD
RH6,CRHD
RH7.CRHD
lAG+LR*
lAG+LR*
IAG*LR*
IAG*LR+
lAGHR-^
lAGHR*
IAG*LR*
IA6*LR*
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
DTRA+RHCLK]
RHO.CRHDI
RHl.CRHDI
RH2,CRHDI
RH3.CRHDI
RH4.CRHDI
RH5,[RHDI
RH6,[RHDI
RH7.CRHDI
A6+LR+DTRAJ
A6HR+DTRA]
AG*LR*DTRA]
AG+LR+DTRA]
AG+LR+DTRAJ
AG+LR+DTRA]
AGHR+DTRAJ
AG*LR+DTRA]
;* .RCLKl - Set RCLK table
.RCLKl: DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
.RCLKO: DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
RHO,CRHDIAG+
RH1,CRHDIAG*
RH2.LRHDIAG*
RH3aRHDIAG^
RH4.CRHDIAG^
RH5,[RHDIAG^
RH6,iRHDIAG^
RH7.LRHD1AG+
LR+BUSLP
LR+BUSLP
LR+BUSLP
LR+BUSLP
LR+BUSLP
LR+BUSLP
LR^BUSLP
LR+BUSLP
♦RHCLK]
♦RHCLK]
♦RHCLK3
+RHCLK]
♦RHCLK]
+RHCLK]
♦RHCLK]
♦RHCLK]
RHO.CRHDIAG+LR
RH1,CRHDIAG*LR
RH2.LRHDIAG+LR
RH3.CRHDIAG+LR
RH4,CRHDIAG^LR
RHS.CRHDIAG^LR
RH6,CRHDIAG>LR
RH7.CRHDIAG+LR
♦BUSLP]
♦BUSLP]
♦BUSLP]
+BUSLP]
♦BUSLP]
♦BUSLP]
♦BUSLP3
♦BUSLPJ
EQ 0156
OFSXA
DFSXAn
AAA 5
AAA6
AAA8
AAA9
AA50
AA51
AA52
AA53
AASA
AA55
AAS6
AA57
AA58
DECSYSTE« KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 60
MAC 29-Jul-85 n.-AA CHANNEL SETUP ROUT1NE/RH20 CLOCKING
•* .URRS - Write register commands
033566
033567
033570
033571
033572
033573
03357A
033575
033576
SEQ 0169
7
7
7
7
7
7
7
7
5A0 1
5AA 1
550 1
55A 1
560 1
56A 1
570 1
57A 1
76A000 000000
00 033576
00 033576
:: J3576
00 033576
0 00 033576
0 00 033576
00 033576
00 033576
0
0
0 00
0
.URRS:
URE6:
DATAO
DATAO
OATAO
DATAO
DATAO
DATAO
DATAO
DATAO
RHURR^
LR
RH0,yREG
RH1,UREG
RH2.UREG
RH3.yREG
RHA,yREG
RH5,UREG
RH6,WREG
RH7,WREG
"1
SEQ 0157
i.SXA
DECSYSTEM KLIO CHANNEL/DTE20
INTERACTION TEST -
VER 0.7 MACRO X53B(1242)
14:07 21-Aug-85 Page 61
1
DFSXAM
MAC
29-Jul-85 11:44
CHANNEL SETUP R0UTINE/RH20 CLOCKING
SEQ 0170
AA59
1
4A60
.^***«»*»************«*t***<t*-v*********** *••♦****************♦♦♦♦♦***•
AA61
;* SYSCLK - Clock SYSGEN devices in loopback
4^62
•/(f********************<r«*************************** ******** ***********
4A63
• "
4464
033577
205 16 0
00 777770
SYSCLK: MOVSI
CNTRL,-10
CHTYPE(CNTRL)
; init controller index
4465
033600
333 00 0
16 060633
SKIPLE
; Is ."lis controller an RH20?
4466
033601
254 00 0
00 033604
JRST
.+3
; no - continue
4467
033602
333 00 0
16 061273
SKIPLE
SCLKRN(CNTRL)
; count elapsed?
; no - clock the RH20
4468
033603
260 17 0 00 033623
GO
SYSRH
4469
033604
253 16 0
00 033600
AOBJN
CNTRL,SYSCLK+1
• loop on controller
4470
4471
033605
205 16 0 00 777770
MOVSI
CNTRL,-10
CLKCNT
• init controller index
4472
033606
402 00 0
00 000004
SETZM
• zero CLKCNT reg
• is this controller an RH20?
4473
033607
333 00 0
16 060633
SKIPLE
CH^YPE(CNTRL)
4474
033610
254 00 0
00 033613
JRST
.-^3
■ no - continue
4475
033611
335 00 0
1o 060647
SKIPoE
REQST(CNTRL)
■ skip if not selected for loop back
4476
033612
434 04 0
16 061273
I OR
CLKCNT, SCLKRN(CNTRL)
4477
033613
253 16 0
00 033607
AOBJN
CNTRL,.-4
; loop on controller
4478
4479
033614
332 00 0
00 000004
SKIPE
CLKCNT
; skip if done
4480
4481
4482
033615
254 00 0
00 033577
JRST
SYSCLK
• repeat until done
033616
205 16 0
00 777770
MOVSI
CNTRL.-10
; init controller index
4483
033617
335 UO 0
16 060647
SKIPGE
REQST(CNTRL)
• skip if not selected
4484
033620
260 17 0
00 033352
GO
$WEBL
• go generate EBL for this controller
• do all RH20's
4485
033621
253 16 0
00 033617
AOBJN
CNTRL,.-2
4486
033622
263 17 0
00 OOOOOO
RTN
4487
4488
; Handle RH20 c
locking
4489
4490
033623
370 00 0
16 061273
SYSRH: SOS
SCLKRN(CNTRL)
■ deduct one
4491
033624
332 00 0
16 060767
SKIPE
CHN8AR(CNTRL)
• skip if not in write phase
4492
033625
254 00 0
00 033641
JRST
SYSRHW
• enter write phase
4493
033626
200 00 0
16 054543
MOVE
DEVBUF(CNTRL)
get left half
load into write register
4494
033627
260 17 0 00 04300O
WWRR
4495
033630
256 00 0
16 033546
XCT
.RCLKKCNTRL) !
set read clock
4496
033631
256 00 0
16 033556
XCT
.RCLKO(CNTRL)
reset read clock
4497
033632
260 17 0 00 035357
60
W10US
wait for byte to be processed
4498
033633
370 00 0
16 061273
SOS
SCLKRN(CNTRL)
update clock
4499
033634
200 00 0
16 050542
MOVE
DMYBUF(CNTRL)
get right half
load it
4500
033635
260 17 0
00 043006
WWRR
4501
033636
256 00 0
16 033546
XCT
.RCLKKCNTRL) !
set read clock
4502
033637
256 00 0
16 033556
XCT
.RCLKO(CNTRL)
reset read clock
4503
033640
263 17 0
00 OOOOOO
RTN
4504
4505
033641
256 00 0
16 033526
SYSRHW: XCT
.WCLKKCNTRL)
set write clock
4506
033642
256 00 0
16 033536
XCT
.WCLKO(CNTRL)
reset write clock
4507
033643
260 17 0 00 043014
RRDR
read the byte
4508
033644
263 17 0 00 OOOOOO
RTN
r
SEQ 0158
DFSXA
OFSXAM
4509
4510
451 1
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 62
MAC 29-Jul-85 11:44 CHANNEL SETU" ROl)TINE/RH20 CLOCKING
;* SETLPB - Setup aock table for SYSCLK
SEQ 0171
033645
033646
033647
033650
033651
033652
033653
033654
033655
033656
033657
033660
033661
033662
033663
033664
033665
033666
033667
033670
033671
033672
033673
033674
033675
033676
033677
033700
033701
205 16
337 00
331 00
254 00
332 00
254 00
200 00
242 00
202 00
253 16
263 17
00
16
16
00
16
00
16
00
16
00
00
777770
060633
060647
033656
063304
033656
060723
000001
061273
033646
000000
556 06
552 06
200 00
260 17
506 00
200 00
260 17
506 00
dO<
16 054543
16 050542
16 054543
00 033671
16 054543
16 050542
00 033671
16 050542
17 0 00 000000
402 00
602 00
350 00
242 00
332 00
254 00
135 00
640 00
263 17
00 000005
00 000001
00 000005
00 777777
00 000000
00 033672
00 070306
00 000001
00 000000
SETLPB: MOVSI
STLPB1: SKIP6
SKI PL
JRST
SKIPE
JRST
MOVE
LSH
MOVEM
AOBJN
RTN
STLPB2:
CNTRL,-10
CHTYPE(CNTRL)
REQST(CNTRL)
STLPB2
DEVBSY(CNTRL)
STLPB2
CHNLEN(CNTRL)
1
SCLKRN(CNTRL)
CNTRL,STLPB1
im't controller index
fs this controller an RH20?
yes - in loop back?
no - go update index
busy?
yes - ignore this device
get length
convert to count
setup in table
loop back if more devices to check
exit
• /If********************************************************************
;* SETPAR - Setup left and right halves for SYSEXE
;#******************* ****t**««r*****t«r ****** ************#«r*«r ***********
SETPAR: HLRZM
HRRZM
MOVE
GO
HRLM
MOVE
GO
HRLM
RTN
GENPAR: SETZM
TRNE
AOS
LSH
SKIPE
JRST
LDB
TRC
RTN
GOOD,DEVBUF(CNTRL)
GOOD,DMYBUF(CNTRL)
DEVBUF(CNTRL)
GENPAR
DEVBUF(CNTRL)
DMY8UF(CNTRl)
GENPAR
DMYBUF(CNTRL)
BAD
1
BAD
-1
GENPAR+1
[POINT 1,BAD,35D
save left half
save right half
get left half
get parity
set parity
get right half
generate parity
set parity
exit
clear bad
skip if AC0<35> set
if so count it
shift in next bit
skip if done
if not loop back
get Isb of count
complement the bit
SEQ 0159
DFSXA
DFSXAM
^551
4552
4553
A55A
4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) U:07 21-Aug-85 Page 63
MAC 29-Jul-85 11:44 INTERACTION TESTS
SUBTTL INTERACTION TESTS
• /If********************************************************************
;* CPUITU - CPU interaction test
;;(f****«****«»**********************Hf********«********** ********* t*****
SEQ 0172
Dl
Dl
033702
033703
033704
033705
033706
033707
033710
033711
033712
033713
033714
033715
033716
033717
033720
033721
033722
033723
033724
03372S
033726
033727
033730
7 010 14
:^5 00 0
00
5^1 ..
254 02
254 01
700 14
?01
0
0
0
0
1
0
0
203 00
260 17
344 12 .
7 020 04
200 05 0
271 05 0
336 00 0
254 00 0
7 020 04
317 05 0
254 00 0
260 17 0
254 00 0
200 00 0
23' 00 0
263 17 0
0 00 070307
CPUITU:
DATAO
PAG.C1B2KDMYBUF
00 016000
MOVSI
A,(^B7)
00 033706
HRRI
A,CPUITR-1
00 OQOOQO
00 033707
JRSTF
aA
PORTAL
. + 1
00 012377
CPUITR:
ION
00 044541
MOVE I
PNTR.DATEUF
12 000000
MOVES
(PNTR)
00 032755
GO
RNDCLK
00 033711
AOJA
PNTR,. -2
0 00 035443
DATAI
TIM,TIMH
00 035443
MOVE
BAD.TIMH
00 000002
ADD I
BAD, 2
00 074777
CPUITA:
SKIPN
INTCNT
00 033731
JRST
RSTUSR
0 00 035443
DATAI
T1M,TIMH
00 035443
CAM6
BAD,TIMH
00 035415
:-
JRSl
WTDXU
00 033726
GO
CPUJOB
00 033717
JRST
CPUITA
; CPU j
Ob
00 070310
CPUJOB:
MOVE
[DATBUF,,DATBUF]
00 054543
BLT
DEVBUF
00 000000
RTN
establish user page table base
get user, user lOR, public
address of portal
enter user I/O mode
enter CPUITR in user mode
turn on PI system
get DATBUF address into PNTR
do move onto itself
clock RH20's
loop back until done clocking
read the time base
grab high value
adjust up by 2
skip if all devices not done
skip return in exec mode
read base again
skip if limit not exceeded
exit
perform CPU task again
loop back
; get BLT pointer
; BLT buffer onto
onto self
1 r
SEQ 0160
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO JI53B(12A2) 14:07 21-Aug-85 Page 64
DFSXAM MAC 29-Jul-85 11:44 INTERACTION TESTS
SEQ 0173
Dl
Dl
A 583
^584
4585
m
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
033750
033751
033752
033753
033754
033755
033756
033757
033760
033761
; Reset user mode
033731
700 14 0 00 000400
7 010 04 0 00 000001
RSTUSR: lOF
033732
DATAI
PA6.B
033733
242 01 0 00 000011
LSH
B/59
033734
271 01 Q 00 000430
505 01 0 00 777770
ADD I
B,43Q
B.-10
033735
HRLI
033736
200 05 0 01 000000
MOVE
BAD,(B)
033737
202 01 0 00 000002
MOVEM
B.C
033740
201 00 0 00 033744
MOVE I
RUSR1
033741
202 00 0 01 000000
MOVEM
(B)
033742
253 01 0 00 033741
AOBJN
B..-1
033743
000000 000000
0
033744
i^i 11 8 n m^i
RUSR1 : MOVEM
BAD.(C)
033745
AOBJN
C..-1
033746
7 010 14 0 00 070311
263 17 0 00 000000
DATAO
PAG.C1B2]
033747
RTN
200 01
200 00
202 00
270 00
253 01
200 00
23' 00
201 00
202 00
263 17
00 070312
00 070313
01 000000
00 070314
00 033752
00 070315
00 050777
00 043700
00 050502
00 000000
turn off PI system
get base value
convert to address
add in offset
make AOBJN pointer
save old link
save pointer
get address
setup new address
put through 430-437
turn off user mode
put old tink back
put old back
reset user base
exit
;^«r **************************************************** *******•••*•***
;* SETUSR - Setup user base address register and page table
SETUSR: MOVE B.C-*D256..<DMYBUF8777000>J ; get pointer
MOVE C560000, ,§60001] ; get Tst entry
MOVEM (B) ; make entry in table
ADD 12,, 22 : update both halves
AOBJN B,.-2 ; continue through table
MOVE [400,,<DMYBUF6777000>+4003 ; get BLT pointer
BLT <DMyBUF8777000>+777 ; BLT 2nd half of exec page
MOVEI PA6ERR ; get page fail address
MOVEM <DMyBUF8777000>*502 ; get page fail new PC
RTN ; exit
up
r
SEQ 0161
DFSXA
DFSXAM
A617
A618
A619
A620
A621
A622
4623
462A
A625
A626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X538(1242) 14:07 21-Aug-85 Page 65
MAC 29-JUI-85 11:44 INTERACTION TESTS
;* MEMITU - Memory interaction test
;/|f**4*****4r*************t****************«t****************************
SEQ 0174
DP!
OF!
033762
033763
033764
033765
033766
033767
033770
033771
033772
033773
033774
033775
033776
033777
034000
034001
034002
034003
034004
034005
034006
034007
034010
034011
034012
034013
034014
034015
034016
034017
034020
034021
034022
034023
034024
034025
7 010 14
205 00 0
541 00 0
254 02 1
254 01 0
700 14
201 12
201 03
402 00
260 17
260 17
254 00 .
7 020 04
200 05 0
271 05 0
336 00 0
254 00 0
7 020 04
317 05 0
254 00 0
260 17 0
254 00 0
0
0
0
0
0
0
0
201
203
670
203
630
367
242
301
201
271
301
201
263
03
02
00
12
00
12
02
03
03
03
12
12
12
17
0 00 070307
00 016000
00 033766
00 OQOOOO
00 033767
00 012377
00 044541
00 000001
00 000002
00 034012
00 032755
00 033773
0 00 035443
00 035443
00 000002
00 074777
00 033731
0 00 035443
00 035443
00 035415
00 034010
00 034001
00 000001
00 000100
12 000000
00 000003
12 000000
00 000003
00 034012
00 000001
00 001000
00 000001
00 001000
00 060544
00 044541
00 000000
MEMITU:
MEMITR:
MEMITA:
DATAO
MOVSJ
HRRI
JRSTF
PORTAL
ION
MOVE I
MOVE I
SETZM
60
GO
JRST
DATAI
MOVE
ADD I
SKIPN
JRST
OATAI
CAMG
JRST
GO
JRST
; Memory job
MEMJOB: MOVE I
MOVE I
MEMJBA: MOVES
TDO
MOVES
TDZ
SO J 6
LSH
GAIL
MOVE I
ADD!
GAIL
MOVE I
RTN
PA64C1B2KDMYBUF/1000>]
A.(^B7)
A.MEMITR-1
aA
+1
JR,DATBUF
C
MEMJBA
RNDCLK
.-2
TIM.TIMH
BAD,TIMH
BAD, 2
INTCNT
RSTUSR
TIM,TIMH
BAD,TIMH
WTDXU
MEMJOB
MEMITA
D.I
CJOO
(PNTR)
PNTR.D
(PNTR)
PNTR,D
C, MEMJBA
D.I
D.IOOO
D.I
PNTR, 1000
PNTR,. ZEROS
PNTR,DATBUF
establish user paae table base
get user, user I/O. public
get address of portal
enter user I/O mode
enter memory test in user mode
turn on PI system
get first address of test area
setup page mask
kill any iteration
do memory job
clock RH20*s
loop back until clocking done
read base value
grab high value
adjust up by 2
skip if all devices not done
--urn in exec mode
skip rt
read bi
skip if
exit
perform
limit not exceeded
memory task again
loop back
set mask
set iteration
test bit as 0
set masked bit
test bit as 1
reset bit
change 100 times
shift mask
skip if less than page boundary
reset mask
update PNTR
less than end of device buffer?
no - reset PNTR
exit
SEO 0162
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20
INTERACTION TEST -
VER 0.7 MACRO :53B(1242)
14:07 21-Aug-85 Page 66
DFSXAM
MAC
29-JUI-85 11:44
CONTROL ROUTINES
SEQ 0175
4662
SUBTTL
CONTROL ROUTINES
4663
4664
•#******♦♦**♦*******♦* ♦*t*********************************************
4665
;* BLDLST - Bui
Id channel CCW's for walking data test
4666
4667
4668
;^***«:***«***** ********•*•****************%*********•*****•*•**«*****#
034026
205 16 0 00 777764
BLDLST: MOVSI
CNTRL, -14
fm't controller index
4669
034027
402 00 0
00 000001
SETZM
B
init CCW index
4670
034030
261 17 0
00 000016
BLDA: PUT
CNTRL
4671
034031
405 16 0
00 777777
AND I
CNTRL, -1
Ub72
034032
336 00 0
16 060647
SKIPN
REQST( CNTRL)
is channel selected?
4673
034033
254 00 0
00 034075
JRST
BLDB ;
no
4674
4675
034034
205 00 0
00 200000
MOVSI
(CHJMP) ;
get jump instruction
4676
034035
541 00 0
01 060663
HRRI
CHNPRG(B)
merge in address
(,677
034036
202 00 0
01 377000
MOVEM
iccw(B) ;
store in channel program
t,t7b
t,b79
034037
200 00 0
00 060551
MOVE
MEMLST ;
get MEMLST
4680
034040
271 00 0
00 000200
ADDI
200
adjust address
4681
034041
311 00 0
00 070235
CAML
CLPAGEJ
is this last address access?
4682
JRST
[GET CNTRL
;
4683
034042
254 00 0
00 070316
rtn: . :
yes exit
4684
034043
037 11 0
00 000002
MEMSEG
perform MEMSEG
4685
034044
254 00 0
00 043657
JRST
MAPERR ;
exit
4686
JUMPE
[GET CNTRL
(,687
4688
4689
034045
322 00 0
00 070316
RTNJ
take non skip exit if no memory
034046
301 16 0
00 000010
CAIL
CNTRL, 10
skip if RH20 or RH20 device
4690
4691
4692
034047
254 00 0
00 034101
JRST
BLDDTE ;
make list for DTE20
034050
2uJ 00 0 07 061360
MOVE
SKPCCW(CCW)
get skip CCW
4693
034051
434 00 0
00 060551
lOR
MEMLST
merge in address bits
4694
034052
202 00 0
01 060663
MOVEM
CHNPRG(B)
store the channel CCW into ICCW
4695
034053
202 00 0
16 060737
MOVEM
CHNXFR( CNTRL)
save it
4696
034054
402 00 0
01 060664
SETZM
CHNPRG+1 (B)
clear word 2
4697
034055
201 00 0
01 060664
MOVE I
CHNPRG+1 (B)
get term CLP
4698
034056
202 00 0
16 061113
MOVEM
STWRDKCNTRL) :
save it
4699
034057
135 00 0 00 070320
LDB
[POINT 11,SKPCCW(CCW),13J
; get word count
4700
034060
202 00 0
00 060631
MOVEM
DATLEN
save it
4701
034061
202 00 0
16 060723
MOVEM
CHNLENC CNTRL)
save for devices
4702
034062
402 00 0 01 377001
SETZM
ICCU+KB)
clear word 1
4703
034063
402 00 0
01 377002
SETZM
ICCU+2(B)
clear word 2
4704
034064
270 00 0
00 060551
ADD
MEMLST
adjust address
4705
034065
661 00 0 00 600000
TLO
(3B1)
merge in xfer bits
4706
034066
202 00 0
16 061127
MOVEM
STWRD2( CNTRL)
save it
4707
034067
200 00 0
16 043605
MOVE
INTSRV(CNTRL)
get interrupt instruction
4708
034070
202 00 0
01 377003
MOVEM
ICCW+3(B)
save it
4709
034071
201 00 0
01 377003
MOVE I
ICCW+3(B)
get vector address
4710
034072
337 00 0
16 060633
SKIP6
CHTYPE (CNTRL)
is this controller an NI/CI port?
4711
034073
260 17 0
00 043003
UIVR
no - store in RH
4712
034074
350 00 0 00 060551
AOS
MEMLST ;
update MEMLST
4713
034075
271 01 0
00 034030
BLD6: ADDI
B,4
update channel index
4714
034076
262 17 0
BLD6B: GET
CNTRL
4715
034077
253 16 0
AOBJN
CNTRL, BLDA
adjust controller index
4716
034100
254 00 0 00 067640
SKPRTN
exit back to caller
J.
DF:
DF:
EQ 0163
DFSXA
DFSXAM
A717
A718
A719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 67
MAC 29-Jul-85 11:44 CONTROL ROUTINES
•#***«*****•••*♦*******************************♦***♦*♦****♦******•*♦**
;* BLDDTE - Build DTE20 CCWs for walking data test
SEQ 0176
034101
034102
034103
034104
034105
034106
034107
034110
034111
034112
034113
034114
034115
034116
034117
034120
034121
034122
034123
034124
034125
034126
200 00 0 07 061360
434 00 0 00 060551
202 00 0 16 060737
135 15 0 00 070321
242 15 0 00 000003
135 00
202 00
242 00
202 00
210 00
137 00
00 070232
16 060723
00 000002
16 066157
00 000000
00 070322
201 00 0 00 400000
434 00 0 00 070323
202 00 0 15 000141
202 00 0 15 000140
261 17
202 00
200 01
133 00
367 01
20? 00 0
2oJ 17 0
00 000001
16 066153
16 066157
00 000000
00 034123
16 066147
00 000001
034127 260 17 0 00 066112
034130 254 00 0 00 034076
BLDDTE
MOVE
I OR
MOVEM
LDB
LSH
LDB
MOVEM
LSH
MOVEM
MOVN
DPB
MOVE I
I OR
MOVEM
MOVEM
PUT
MOVEM
MOVE
IBP
SOJG
MOVEM
GET
GO
JRST
SKPCCW(CCW)
MEMLST
CHNXFR(CNTRL)
FE,CPOINT 3,CNTRL,35:
FE,3
get skip CCU
merge in address bits
save it
get DTE #
convert to conwn index
[POINT 11,CHNXFR(CNTRL)J3:
CHNLEN(CNTRL)
2
DTELEN(CNTRL)
times 4 for DTE bytes
setup data length
[POINT 12,DTEC0M(FE)J9]
400000 ;
[POINT 9 J ;
EPTT8P(FE) ;
EPTE8P(FE) ;
B
DTESBP(CNTRL)
B,DTELEN(CNTRL) ;
B ~1
DfEF8P(CNTRL)
B
SETCM1 ;
BLDB6 ;
get virtual address
convert to byte pointer
store T010 pointer
store T011 pointer
compute finish byte pointer
complete DTE20 init
exit back to build list
>E0 0164
OFSXA
DECSYSTEM KL10 CHANNEL/DTE20
INTERACTION TEST -
VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 68
DFSXAM
MAC
29-Jul-85 11:44
CONTROL
ROUTINES
A752
A753
•^ri^*********)^***********^********)^*^***********************************
i*75^
;* SWRT
- Start
the write on all channels
A755
;/|f**********«***«t**tlt*******«r****«r***********4r******4^i^****l^*******4r***tlt
A756
4757
034131
476 00 0 00 075026
SWRT:
SETOM
WRTPHS ; set the write phase
4758
034132
402 00 0 00 074777
SETZM
INTCNT ; clear interrupt counter
4759
4760
; Select a controller
4761
4762
034133
205 16 0 00 777764
MOVSI
CNTRL,-14 ; init controller index
4763
034134
261 17 0 00 000016
SWRT1 :
PUT
CNTRL
4764
034135
405 16 0 00 777777
AND I
CNTRL,-1
4765
034136
336 00 0 16 060647
SKIPN
REQST(CNTRL) ; skip if controller was selected
4766
034137
254 00 0 00 034207
JRST
SURTX ; check index
4767
4768
; Check
test range
4769
4770
034140
200 00 0 00 075025
novE
TSTNM ; get test number
23 ; !ests 23-27?
4771
034141
301 00 0 00 000023
CAIL
4772
JRST
CSKIPLE CHTYPE (CNTRL) ; yes - check to see if this is an
4773
JRST SWRTX A NI/CI port and if so exit
4774
034142
254 00 0 00 070324
JRST .+1] v^
4775
4776
; Im'tiah'ze channel data
4777
4778
034143
200 00 0 16 060723
MOVE
CHNLEN(CNTRL) ; get length of xfer
4779
034144
272 00 0 16 044011
ADDM
TOTURT(CNTRL) ; update amount written
4780
034145
350 00 0 00 074777
AOS
INTCNT* ; update # of expected interrupts
4781
03^146
200 15 0 16 060753
MOVE
DEV,CHNDEV(CNTRL)
4782
4783
; Check
controller type
4784
4785
034147
333 00 0 16 060633
SKIPLE
CHTYPE (CNTRL) ; is this controller an NI/CI port?
4786
034150
254 00 0 00 034160
JRST
SWRT1A ; yes - go handle
4787
034151
336 00 0 16 060633
SKIPN
CHTYPE (CNTRL) ; is this controller a DTE'>
4788
034152
254 00 0 00 034204
JRST
SWRT18 ; yes - go handle
4789
4790
: RH20
i i ;■ :-■;;''■;/ ' ' '^
4791
4792
034153
332 15 0 16 060753
SKIPE
DEV,CHNDEV(CNTRL) ; skip if controller only
4793
034154
260 17 0 00 034352
GO
SWTDV ; start write on device
4794
034155
321 15 0 00 034207
JUMPL
DEV.SURTX ; jump if device was selected
4795
034156
260 17 0 00 034341
60
STWRT ; startup the write transfer
4796
034157
254 00 0 00 034207
JRST
SWRTX ; continue
SEQ 0177
DF!
DF!
n.'.
■ ■■ 4w ■■■&■■
SEQ 0165
DFSXA
DFSXAM
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
DECSYSTEM <L10 CHANNEL/0TE20 INTERACTION TEST - VER 0.7 MACRO J(53B(1242) 14:07 21-Aug-85 Page 69
MAC 29-JUI-85 11:44 CONTROL ROUTINES
SEQ 0178
of:
OF'
03A160
034161
034162
034163
034164
034165
034166
034167
034170
034171
034172
034173
034174
034175
034176
034177
034200
034201
034202
034203
034204
034205
034206
034207
034210
034211
034212
400 GO
260 17
201 00
434 00
256 00
200 01
242 01
200 00
202 00
201 00
260 17
201 00
260 17
200 00
260 17
201 00
260 17
201 00
367 00
254 00
0 00 OOQOOO
0 00 043456
0 00 000010
0 00 075005
0 16 043570
0 00 075005
0 00 000001
0 00 070327
0 01 000040
0 00 054543
0 00 034564
0 00 044541
0 00 034564
0 00 060631
0 00 034564
0 00 000000
0 00 034564
0 00 011610
0 00 034202
0 00 034207
260 17 0 00 065514
005 00 0 00 070330
254 00 0 00 034207
262 17 0 00 000016
253 16 0 00 034134
260 17 0 00 035355
263 17 0 00 000000
; NI/CI port
SWRT1A: SETZ
LDRAR
HOVE I
lOR
LDCSR
MOVE
LSH
MOVE
MOVEM
MOVE I
GO
MOVE I
GO
MOVE
GO
MOVE I
60
MOVE I
SOJG
JRST
MPRUN
PILVL
1,PILVL
J'!
[JSR
40(i;
DEVBUF
POROUT
DAT8UF
POROUT
DATLEN
POROUT
0
POROUT
*D5000
SWRTX
NVPORT]
set port start address
to 0
get 'MPRUN* bit
include PIA level
start the port
get PIA assignment
multiply by 2
get interrupt instruction
save it
get EBUS buffer address
give to port
get CBUS buffer address
give to port
get transfer length
give to port
get command (write)
give to port
wait a bit
loop
continue
; DTE
SURT16:
GO STUTF ; start write
FAULT4 <DTE20 WRITE STARTUP FAILED>
JRST SWRTX ; continue
Select next controller
SWRTX:
GET
AOBJN
CNTRL
CNTRL.SWRT1
W20US
repeat if more RH20's
wait 20 microseconds
■ *v
r
SEO 0166
DFSXA
DFSXAM
A833
A83A
4835
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4846
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
DECSVSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 70
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;ft •*•*•***#•********** t*t**t******«** ************************ ****'**t*
;• SRD - ;tart all RH20's reading data
SEO 0179
034225
034226
034227
034230
034231
034232
034233
034234
034235
034236
034237
034240
OF
DF
034213 402 00 0 00 075026
034214 402 00 0 00 074777
034215 205 16 0 00 777764
034216 261 17 0 00 000016
034217 405 16 0 00 777777
034220 336 00 0 16 060647
034221 254 00 0 00 034270
034222 200 00 0 00 075025
034223 301 00 0 00 000023
034224 254 00 0 00 070336
200 00 0 16 060723
272 00 0 16 044025
350 00 0 00 074777
333 00 0 16 060633
254 00 0 00 034241
336 00 0 16 060633
254 00 0 00 034265
332 15
260 17
321 15
260 17
254 00
16 060753
00 034434
00 034270
00 034570
00 C34270
SETZM
SETZM
URTPHS
INTCNT
SRD:
; Select a controller
SRD1;
MOVSI CNTRL,-14
PUT CNTRL
ANDI CNTRL. -1
SKIPN REQST(CNTRL)
JRST SRDX
; Check test range
HOVE
CAIL
JRST
TSTN«
3
SKIPLE CHTVPE(CNTRL)
JRST SRDX
JRST .♦n
; Initialize channel data
HOVE CHNLEN(CNTRL)
ADDH TOTRD( CNTRL)
AOS INTCNT
; Check controller type
SKIPLE CHTYPE(CNTRL)
JRST SRD1A
SKIPN CHTYPE (CNTRL)
JRST SRD1B
RH20
SKIPE DEV,CHNDEV(CNTRL)
GO SRDDV
JUHPL OEV.SRDX
60 STRD
JRST SRDX
clear write phase
clear interrupt counter
init controller index
skip if controller was selected
check index
?et test number
ests 23-27?
yes - check to see if this is an
NI/CI port and if so exit
get amount to be read
update accumulated
update # of expected interrupts
is this controller an NI/CI port?
yes - go handle
is this controller a DTE?
yes - go handle
skip if no device selected
start device read
jump if device selected
start RH^O reading data
continue
>E0 0167
DFSXA
DFSXAM
4877
A878
A879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 71
MAC 29-Jul-85 11:44 CONTROL ROUTINES
SEO 0180
DFI
OF!
034241
034242
034243
034244
034245
034246
034247
034250
034251
034252
034253
034254
034255
034256
034257
034260
034261
034262
034263
034264
034265
034266
034267
034270
034271
034272
034273
400 00
260 17
201 00
434 00
256 00
200 01
242 01
200 00
202 00
201 00
260 17
201 00
260 17
200 00
260 17
201 00
260 17
201 00
367 00
254 00
0 00 OOQOOO
0 00 043456
00 000010
00 075005
16 043570
00 075005
00 000001
00 070327
01 000040
00 054543
00 034564
00 044541
0 00 034564
0 00 060631
00 034564
00 000001
00 034564
00 011610
00 034263
00 034270
260 17 0 00 065533
005 00 0 00 070341
254 00 0 00 034270
262 17 0 00 000016
253 16 0 00 034216
260 17 0 00 035355
263 17 0 00 000000
NI/CJ port
SRD1A:
; DTE
SRD1B:
SET7
LDRAR
MOVE I
I OR
LDCSR
MOVE
LSH
MOVE
NOVEM
MOVE I
GO
MOVE I
GO
MOVE
GO
MOVE I
60
NOVEI
SOJG
JRST
GO
FAULT4
JRST
■RUN
ILVL
1.PILVL
1,1
[JSR NVPORTj
40(1)
DEV8UF
POROUT
DAT8UF
POROUT
DATLEN
POROUT
1
POROUT
*D5000
SRDX
STRDF
<DTE20 FAILED READ>
SRDX
Select next controller
SRDX:
GET
AOBJN
GO
RTN
CNTRL
CNTRL.SRD1
U20US
set port start address
to 0
get 'MPRUN' bit
include PIA level
start the port
get PIA assignment
multiply by 2
get interrupt instruction
save it
get EBUS buffer address
give to port
get CBUS buffer address
give to port
get transfer length
give to port
get command (reaa>
give to port
wait a bit
loop
continue
start read
failed
continue
repeat loop for all Rh20*s
wait 20 microseconds
SEO 0168
DfSXA
DFSXAM
4913
49U
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
DECSVSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO :53B(1242) 14:07 21-Aug-85 Page 72
HAC 29-Jul-85 11:44 CONTROL ROUTINES
SEO 0181
034274
034275
034276
034277
034300
034301
034302
034303
034304
034305
034306
034307
03431C
03431 1
034312
034313
034314
034315
034316
034317
034320
034321
036322
034323
034324
034325
034326
034327
034330
034331
034332
034333
034334
034335
476 00 0 00 075026
200 15 0 16 060753
200 00
372 00
350 00
16 060723
16 044011
00 074777
333 00 0 16 060633
254 00 0 00 034312
336 00 0 16 060633
254 00 0 00 034336
331 00 0 16 060647
254 00 0 00 034352
260 17 0 00 034341
260 17 0 00 035355
263 17 0 00 000000
4u.' 00
260 17
201 00
434 00
256 00
200 01
242 01
200 00
202 00
201 00
260 17
201 00
260 ^7
200 00
260 \7
201 00
260 17
201 00
367 00
263 17
00
00
00
00
16
00
00
00
01
00
00
00
00
16
00
00
00
00
00
00
000000
043456
000010
075005
043570
075005
000001
070327
000040
054543
034564
044541
034564
060723
034564
000000
034564
011610
034334
000000
SWRTO - Start the write on this channel
on
DF«
I
i
Initialize channel data
SWRTO:
SET0«
WRTPHS
MOVE
DEV.CHNDEV(CNTRL)
MOVE
CHNLEN(CNTRL)
ADOn
TOTWRT(CNTRL)
AOS
INTCNT
; Check
controller type
SKIPLE
CHTYPE(CNTRL)
JRST
SWRTOA
SKIPN
CHTYPE(CNTRL)
JRST
SWRTOB
; RH20
SKI PL
REOST(CNTRL)
JRST
SWTDV
GO
STWRT
60
W20US
RTN
; NI/CI
port
SWRTOA:
SETZ
LDRAR
HOVE I
MPRUN ;
I OR
PILVL
LDCSR
novE
1.PILVL ;
LSH
1J
novE
tjsR nvport:
HOVEM
40(1)
HOVE I
DEV8UF
CO
POROUT
HOVE I
DATBUF
GO
POROUT
HOVE
CHNLEN(CNTRL)
GO
POROUT
HOVE I
0
GO
POROUT
HOVE I
•D5000
SOJG
• 9
RTN
indicate writing
; get amoun* of xfer
- update accumulated
update * of expected interrupts
is this controller
)fes - go handle
IS this controller a DTE?
yes - go handle
an NI/CI port?
skip if controller was selected
start write on selected device
startup the write transfer
simulate search
exit
set port start address
to 0
get 'HPRUN' bit
include PIA level
start the port
get PIA assignment
multiply by 2
get interrupt instruction
save it
get EBUS buffer address
give to port
get CBUS buffer address
give to port
get transfer length
give to port
get command (write)
give to port
wait a bit
loop
exit
r"
EG 0169
DFSXA
DFSXAM
A963
4965
A966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
498
498
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
500*^
5010
5011
501?
5015
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 73
MAC 29-Jul-85 11:44 CONTROL ROUTINES
SEQ 0182
054336 260 17 Q QQ 065514
034337 005 00 0 00 070345
034340 263 17 0 00 000000
034341
034342
034343
034344
034345
034346
034347
034350
034351
03A352
034353
034354
034355
034356
034357
034360
034361
034362
034363
034364
034365
034366
034367
034 37C
034371
03437?
0343^5
034374
034375
054376
034377
260 17
4ui 00
607 15
25; 00
200 00
260 17
005 00
200 00
221 00
213 00
405 00
202 00
260 17
005 00
CJ
434 .
:56 00
201 00
20? 00
00
16
00
00
16
00
00
16
00
00
00
16
00
00
'■ii
17
00
263 17
034454
061273
000004
034400
061047
043121
070352
060723
000005
000000
177777
060767
043110
070355
OlolJ
75005
.43570
177761
061003
042777
061033
000000
; DTE
SWRTOB:
60
fault;
RTN
STyTF
<DTE20 FAILED URITE>
start write on DTE20
failed
exit
;* STWRT - Start the RH20 writing
let transfer bit
135 15 0 00 070351 STURT: LDB
DEV. [POINT 3,REQST
201 00 0 00 001000
MOVE I
OTRA
260 17 0 00 043011
UDIAG
201 00 0 00 001600
MOVE I
MBE+XECLR+RCLPA
434 00 0 00 075005
I OR
PILVL
256 00 0 16 043570
.CONO
201 00 0 00 77761
HOVEI
<-1B29ftBLICCNT*UTF>
263 17 0 00 000000
USTCR
RTN
toad it into register
set RH20 status
or in desired PI level
issue CONO
?et write command
oad it into transfer control
return
;• SWTDV - Start write on device
;♦
;• (DEV)=-1<0:13> selected=<14> TU16=<15> SLV=<16:17>,.DEV#
CHKRDY
SCLKRN(CNTRL)
DEV,(1B15)
SURTRP
TAPETC(CNTRL)
SUTDV: 60
SETZM
TLNN
JRST
MOVE
WTC
FAULT4 <WTC FAILED>
MOVE CHNLEN(CNTRL)
IMULI 5
MOVNS
ANDI FRAMES
HOVEM CHN6AR(CNTRL)
WFC
FAULT4 <yFC FAiLEO>
MUVEI MBE+XECLR+RCLPA+DNCLR
lOR PILVL
.CONO
move: v-1R29£BL<CNT*WTF>
MOVEM CHNrCR(CNTRL)
WSTCR
AOS TAPE£C(CNTRL)
RTN
check that devi still ready
delete any clocks that maybe
skip if TU16
startup RP04
get tape control rea
write tape control
get data length
mulitply by 5
make negative
keep only low 16 bits
save frame count
load into frame counter
or in PI level
usue seijp
get coTmdno
sav ' command
issue it
update posiiion count
exit
SEQ 0170
DFSXA
DFSXAM
501 A
5015
5016
5017
5018
5019
5020
5021
5022
5023
502A
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
50A0
50A1
50A2
50A3
504A
50A5
5046
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO !I!53B(1242) U:07 21-Aug-85 Page 74
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;* SWRTRP - Start write on RP04
SEQ 0183
034400
034401
034402
034403
034404
034405
034406
034407
034410
034411
034412
034413
034414-
034415
034^16
034417
034420
034421
034422
034423
034424
034425
034426
034427
034430
034431
034432
034433
200 00 0
231 00 0
332 00
350 00
213 00
242 00
405 00
435 00
202 00
201 00
260 17
005
402
260
005 00
260 17
005 00
201
260 17
005 00
200 00
260 17
201
434
00
00
17
00
00
256 00
260
00 0
17 0
263 17 0
16 060723
00 000200
00 000001
00 000000
00 000000
00 000006
00 177700
00 000061
16 06.003
00 000023
00 043044
00 070360
00 000000
00 043110
00 070555
00 043132
00 070363
00 000631
00 043143
00 070366
16 060767
00 042773
00 001610
00 075005
16 043570
16 061003
00 042777
00 000000
SWRTRP: MOVE
IDIVI
SKIPE
AOS
MOVNS
LSH
AND I
lORI
MOVEM
MOVE I
UCR
FAULT4
SETZM
WFC
FAULT4
UOF
FAULT4
MOVE I
woe
FAULT4
MOVE
USBAR
MOVE I
lOR
.CONO
MOVE
WSTCR
RTN
A,CHNLEN(CNTRL)
A,*D128
B
A
A
A, 6
A,BLKCNT
WTF
CHNTCR(CNTRL)
PCKACK
<WCR FAILED>
<WFC FAILED>
<W0FF FAILED>
631
<WDC FAILED>
CHN8AR(CNTRL)
M8E+XECLR+RCLPA+DNCLR
PILVL
CHNTCR(CNTRL)
get record length
divide it by # of words in sector
if remainder not equal to 0
update BLKCNT in ACO
make negative
position it
delete unwanted bits
merge in write command
save it
?et pack ackn command
oad up commmand
clear AC
clear track and sector
insure 18 bit mode
get maint cylinder
load it up
get BAR
load it
or in PI level
issue setup
get TCR
load it
exit
SEQ 0171
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !I!53B(1242) U:07 21-Aug-85 Page 75
DFSXAM MAC 29-JuL-85 11:A4 CONTROL ROUTINES
50A7
50A8
5QA9
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
506h
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
SEQ 0184
034434
034435
034436
034437
034440
034441
034442
034443
034444
034445
034446
034447
034450
034451
034452
034453
034454
034455
034456
034457
034460
034461
034462
034463
034464
260 17
402 00
607 15
254 00
200 00
260 17
005 00
201 00
434 00
256 00
201 00
402 00
202 00
260 17
350 00
263 17
260 17
005 00
6uc 00
005 00
260 17
005 00
602 00
005 00
263 17
00 034454
16 061273
00 000004
00 034465
16 061047
00 043121
00 070352
00 001610
00 075005
16 043570
00 177771
16 060767
16 061003
00 042777
16 061033
00 000000
00 043177
00 070247
00 010000
00 070371
00 043211
00 070375
00 040000
00 070400
00 000000
'ff1t*1i1iii**i(*ti** if If******************* tilt***** Hi!****** ************ I!******
;* SRDDV - Start read on device
;* (DEV)=-1<0:13> selected=<U> TU16=<15> SLV=<16:17>,,DEV*
'0i,*i,iti,****i,********* ***************************** ********************
SRDDV:
CHKRDY
SCLKRN(CNTRL)
DEV.(1B15)
SRDRP
TAPETC(CNTRL)
GO
SETZM
TLNN
JRST
MOVE
WTC
FAULT4 <UTC FAILED>
MOVEI MBE+XECLR+RCLPA+DNCLR
PILVL
I OR
.CONO
MOVEI
SETZM
MOVEM
WSTCR
AOS
RTN
<-1B298BLKCNT+RDF>
CHN8AR(CNTRL)
CHNTCR(CNTRL)
TAPECC(CNTRL)
check that device stUl ready
delete unwanted clocks
skip if TU16
startup RP04
?et tape control register
oad the tape control
or in PI level
issue setup
get command
clear BAR - which means reading TU16
save TCR
issue it
update position pointer
exit
20***************** **************************■(!************************
;* CHKRDY - Check ready state of test device
;0********************************************************************
CHKRDY: RDS
FAULT4 <RDS FAILED>
TRNN MOL
FAULT4 <DEVICE 0FF-LINE>
RER
FAULT4 <RER FAILED>
TRNE UNS
FAULT4 <DEVICE UNSAFE>
RTN
fetch device status
skip if still on line
read error reg
skip if still safe
return inline
SEQ 0172
DFSXA
DFSXAM
508A
5085
5086
5087
5088
5089
5090
5091
5092
5093
509A
5095
5096
5097
5098
5099
5100
5101
5102
5103
510A
5105
5106
5107
5108
5109
5110
5111
5112
5113
51K
DECSYSTEM KLIO (;HANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 76
MAC 29-Jul-85 11:A4 CONTROL ROUTINES
• /(>«**«****♦******♦*♦****•♦*****************•***************«♦******•♦*
;* SRDRP - Start read on RP04
;f ******************************* *************************************
SEQ 0185
03AA65
03AA66
034467
034470
034471
034472
034473
034474
034475
034476
034477
034500
034501
034502
034503
034504
034505
034506
034507
034510
034511
034512
034513
034514
034515
034516
200 00
231 00
332 00
350 00
213 00
242 00
405 00
435 00
202 00
201 00
260 17
005 00
402 00
260 17
005 00
201 00
260 17
005 00
200 00
260 17
201 00
434 00
256 00
200 00
260 17
2o< 17
16 060723
00 000200
00 000001
00 000000
00 000000
00 000006
00 177700
00 000071
16 061003
00 000023
00 043044
00 070360
00 000000
00 043110
00 070355
00 000631
00 043143
00 070366
16 060767
00 042773
00 001610
00 075005
16 043570
16 061003
00 042777
00 000000
SRDRP:
MOVE
IDIVI
SKIPE
AOS
MOVNS
LSH
AND I
lORI
MOVEM
MOVE I
UCR
FAULT4
SETZM
WFC
FAULT4
MOVE I
UDC
FAULT4
MOVE
WSBAR
MOVE I
I OR
.CONO
MOVE
USTCR
RTN
A,CHNLEN(CNTRL)
A/D128
B
A
A
A, 6
A,BLKCNT
RDF
CMNTCR(CNTRL)
PCKACK
<WCR FAILED>
<WFC FAILED>
631
<WDC FhILED>
CHN8AR(CNTRL)
MBE+XECLR+RCLPA+DNCLR
PILVL
CHNTCR(CNTRL)
get record length
divide it by # of words in sector
if remainder not equal to 0
update BLKCNT in ACO
make negative
position it
delete unwanted bits
merge in write command
save it
?et pack ackn command
oad up commmand
clear AC
clear track and sector
?et maint cylinder
oad it up
get bar
load it
or in PI level
issue setup
get TCR
load it
exit
SEQ 0173
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) U:07 21-Aug-85 Page V
DFSXAM MAC 29-Jul-85 11:AA CONTROL ROUTINES
5115
5116
5117
5118
5119
5120
5121
5122
5123
51 24
5125
5126
5127
5128
5129
5130
5131
5132
5133
51 3A
5135
5136
5137
5138
5139
5U0
5141
5142
5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
SEQ 0186
Df
DF
034517
034520
034521
034522
034523
034524
034525
034526
034527
034530
034531
034532
034533
034534
034535
U34536
034537
034540
034541
034542
034543
034544
034545
034546
034547
034550
034551
034552
034553
034554
034555
034556
034557
034560
402 00
200 00
272 00
350 00
200 15
00 075026
16 060723
16 044025
00 074777
16 060753
333 00 0 16 060633
254 00 0 00 034S35
336 00 0 16 060633
254 00 0 00 034561
331 00 0
254 00 0
260 17 0
260 17 0
263 17 0
00
4uJ
260 17
201 00
434 00
256 00
200 01
242 01
200 00
202 00
201 00
260 17
201 00
260 '
200 00
260 17
201 00
260 17
201 00
367 00
263 17
0
0
0
0
0
0
0
0
0
0
0
. 0
17 0
0
16 060647
00 034434
00 034570
00 035355
00 000000
00 000000
00 043456
00 000010
00 075005
16 043570
00 075005
00 000001
00 070327
01 000040
00 054543
00 034564
00 044541
00 034564
16 060723
^^ 034564
00 000001
00 034564
00 011610
00 034557
00 000000
;* SRDO - Start this RH20 reading data
: Initialize channel data
SRDO:
SETZM
MOVE
ADDM
AOS
MOVE
URTPHS
CHNLEN(CNTRL)
TOTRD(CNTRL)
INTCNT
DEV,CHNDEV(CNTRL)
Check controller type
RH20
SKIPLE
JRST
SKIPN
JRST
SKIPL
JRST
t
RTN
; NI/CI port
SRDOA: SE TZ
LDRAR
MOVE I
I OR
LDCSR
MOVE
LSH
MOVE
MOVEM
. MOVE I
60
MOVE I
GO
MOVE
60
MOVE I
60
MOVE I
SO J 6
RTN
CHTYPE(CNTRL)
SRDOA
CHTYPE(CNTRL)
SRDOB
REQST(CNTRL)
SRDDV
STRD
W20US
NVPORT]
MPRUN
PILVL
1,PILVL
CJSR
40(1)
DEV8UF
POROUT
DATBUF
POROUT
CHNLEN(CNTRL)
POROUT
1
POROUT
*D5000
indicate reading
amount of xfer
update accumulated
update * of expected interrupts
is this controller an NI/CI port?
)^es - go handle
is this controller a DTE?
yes - go handle
skip if controller was selected
start dev reading
start RH20 reading data
simulate search
exit
set port start address
to 0
get 'MPRUN' bit
include PIA level
start the port
get PIA assignment
multiply by 2
get interrupt instruction
save it
get EBUS buffer address
give to port
get CBUS buffer address
give to port
get transfer length
give to port
get command (read)
give to port
wait a bit
loop
exit
SEQ 0174
DFSXA
OFSXAM
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 78
MAC 29-Jul-85 11:44 CONTROL ROUTINES
SEQ 0187
Dl
Dl
034561 260 17 0 QQ 065533
034562 005 00 0 00 070341
034563 263
??8
00 000000
034564
034565
034566 256 00 0 16 043467
034567 263 17 0 00 000000
201 01 0 00 000050
367 01 0 00 034565
034570
034571
034572
034573
034574
034575
034576
034577
034600
135
201
260
201
434
256
201
260
2o<
15
00
17
00
00
00
00
17
17
0 00 070351
0 00 001040
00 043011
00 001600
00 075005
16 043570
00 177771
00 042777
00 000000
034601 550 00 0 00 000010
034602 137 00 0 00 070403
034603 263 17 0 00 000000
; DTE
SRDOB:
60 STRDF
FAULT4 <DTE20 FAILED READ>
RTN
; start read
; failed
; exit
;* POROUT - Write data to port (to start it)
POROUT: MOVE I 1,*D40
SOJG 1..
.DATAO
, RTN
wait a few microseconds
give to port
return
;* STRD - Start the RH20 reading
STRD: LDB DEV, [POINT 3,REQST(CNTRL),33 ; set device address to nxm device
MOVEI BUSLP+DTRA ; get bus loop and transfer bits
WDIAG ; load it into diag register
MOVEI MBE+XECLR+RCLPA ; get CONO E field
lOR PILVL ; merge in PI level
.CONO ; issue CONO to RH20
MOVEI <-lB298BLKCNT+RDF> ; get read command
WSTCR ; load it into transfer control
RTN ; return
#*******•********•**•**•••*********•*************•****•*******•**•*♦*
* UPDVPT - Update media pointer
/|f***4r«i^t«[*i^4ri^«r*******t*****llr Up**** ************************* *••***•*«••
UPDVPT: HRRZ PATRN ; get pattern count
DPB CPOINT 5. CHNBAR(CNTRL), 273 ; store in selected word
RTN ; exit
OFSXA
DECSYSTEM KLiO CHANNEL/DTE20
INTERACTION TEST -
VER 0,7 MACRO X53B(1242) 14:07 21-Auq-85 Page 79
DFSXAM
MAC
29-JUL-85 11:44
CONTROL
ROUTINES SEQ 0188
5205
2|0§
5207
•/|f****«*llr******************«*********«r**********«***4^** *••*******••***
;* SRDR
- Start
all RH20's reading data in reverse
*******************************************************
5208
5209
5210
;#*♦♦♦♦
********
; Initialize channel data
034604
201
00 0 00 mm
SRDR:
MOVE I
-1 ; indicate reading reverse
5213
034605
202
00 0 00 075026
MOVEM
WRTPHS
5214
034606
402 00 0 00 074777
SETZM
INTCNT ; clear interrupt counter
5215
034607
205
16 0 00 777764
MOVSI
CNTRL,-14 ; init controller index
5216
034610
261
17 0 00 000016
SRDRl :
PUT
CNTRL
5217
034611
405
16 0 00 mm
AND I
CNTRL,-1
5218
034612
333 00 0 16 060633
SKIPLE
CHTYPE(CNTRL) ; is this controller an NI/CI port?
5219
034613
254 00 0 00 034634
JRST
SRDRX ; yes - skip thi';
5220
034614
336 00 0 16 060647
SKIPN
REQST(CNTRL) ; skip if contr er was selected
5221
034615
254
00 0 00 034634
JRST
SRDRX ; check index
5222
034616
200 00 0 16 060723
MOVE
CHNLEN( CNTRL) ; get amount
5223
034617
212
00 0 16 044025
ADDM
TOTRD(CNTRL) ; update accumulated
5224
034620
350 00 0 00 074777
AOS
INTCNT ; update # of expected interrupts
5225
034621
200
15 0 16 060753
MOVE
DEV,CHNDEV(CNTRL)
5226
5227
; Check
controller type 1
5228
5229
034622
336
00 0 16 060633
SKIPN
CHTYPE (CNTRL) ; is this controller a DTE?
5230
034623
254
00 0 00 034631
JRST
SRDRA ; yes - go handle
5231
5232
; RH20
5233
5234
034624
335
15 0 16 060753
SKIPGE
DEV,CHNDEV(CNTRL) ; skip if RH20 only!
5235
034625
2o;
17 0 00 034434
60
SRDDV ; start device read
5236
034626
321
15 0 00 034634
JUMPL
DEV, SRDRX ; jump if device selected
5237
034627
260
17 0 00 034655
GO
STRDR ; start RH20 reading reverse
5238
034630
254
00 0 00 034634
JRST
SRDRX ; continue
5239
5240
; DTE
(
5241
5242
034631
260
17 0 00 065533
SRDRA:
GO
STRDF ; start read
5243
034632
005
00 0 00 070341
FAULT4
<DTE20 FAILED READ>
5244
5245
5246
034633
254
00 0 00 034634
JRST
SRDRX ; go update loop control
; Select next controller
5247
5248
034634
262
17 0 00 000016
SRDRX:
GET
CNTRL
5249
034635
253
16 0 00 034610
AOBJN
CNTRL, SRDRl ; repeat for all RH20's
5250
034636
260
17 0 00 035355
GO
W20US ; wait 20 microseconds
5251
034637
263
17 0 00 000000
RTN
DF!
DFl
SEQ 0176
OFSXA
OFSXAM
5252
5253
525A
5255
5256
5257
5258
5259
5260
5261
5262
5263
526A
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
528A
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 80
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;* SRDRO - Start read reverse on one unit
;/|f*****»tmr******************************«**** ********* ******♦***♦♦*♦**
SEQ 0189
OF
DF
034640
034641
034642
034643
034644
034645
034646
034647
034650
034651
034652
034653
034654
034655
034656
034657
034660
034661
034662
034663
034664
034665
034666
034667
034670
034671
034672
034673
034674
034675
034676
200 00 0 16 060723
272 00 0 16 044025
350 00 0 00 074777
200 15 0 16 060753
301 16 0 00 000010
254 00 0 00 034561
201
202
331
254
260
260
263
00
00
00
00
17
17
17
00 777777
00 075026
16 060647
00 034434
00 034655
00 035355
00 000000
135
201
260
201
43':
256
201
260
263
15
00
17
00
00
00
00
17
17
0 00 070351
0 00 001040
0 00 043011
0 00 001600
0 00 075005
0 16 043570
0 00 U7777
0 00 042777
0 00 000000
301 16
263 17
200 01
242 01
205 00
331 00
200 00
202 00
263 17
00 000010
00 000000
00 000016
00 000002
00 600000
01 060664
00 070404
16 061127
00 000000
SRDRO: MOVE CHNLEN(CNTRL) ; get amount
; update accumulated
; update expected interrupt count
skip if RH20
go start DTE20 read operation
get -1 into <18:35>
indicate reading reverse
skip if RH20 only
start device read
start RH20 reading reverse
simulate search
;/|f********************************************************************
;* STRDR - Start the RH20 reading (reverse)
;#*****************************************♦«*************************
MOVE
CHNLEN(CNTRL)
ADDM
TOTRD(CNTRL)
AOS
INTCNT
MOVE
DEV.CHNDEV(CNTRL)
GAIL
CNTRLJO
JRST
SRDOB
MOVE I
-1
MOVEM
WRTPHS
SKIPL
REQST(CNTRL)
JRST
SRDDV
GO
STRDR
60
U20US
RTN
STRDR: LDB
DEV. [POINT 3,REQST(CNTRL),33 ; set device address to nxm device
MOVEI BUSLP+DTRA
UDIAG
MOVEI M8E+XECLR+RCLPA
lOR PILVL
.CONO
MOVEI <-lB298BLKCNT+RDR>
WSTCR
RTN
get bus loop and transfer bits
load it into diag register
get CONO E field
merge in PI level
issue CONO to RH20
get read reverse command
load it into transfer control
return
;;jf********************** *************************************** *******
;* REVCOR - Change entry in STURD2 for read reverse command
;#**********************************♦*********************************
REVCOR: CAIL
RTN
MOVE
LSH
MOVSI
SKIPL
MOVE
MOVEM
RTN
CNTRLJO
B,CNTRL
B.2
(Sbd
CHNPR6+1(B)
C7B2+DATBUF-13
STWRD2(CNTRL)
get controller number into register B
convert to channel index
generate 600000,, 000000 in ACO
skip if skip was needed
fetch this word if skip not needed
save it
EQ 0177
DFSXA
OFSXAM
J02
503
504
505
506
507
5308
5309
5310
5311
5312
5313
53U
5315
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325
5326
5327
5328
5329
5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 81
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;* ST2R0 - Start selected channel doing skip read (zero fill) with
;* last transfer bit on
SEQ 0190
DFSl
DFSl
034677
034700
034701
034702
034703
034704
034705
034706
034707
034710
034711
034712
034713
034714
034715
034716
034717
034720
034721
034722
034723
034724
034725
034726
034727
034730
034731
034732
034733
034734
034735
034736
034737
034740
034741
034742
034743
0
0
0
0
0
0
202 00 0
200 00 0
?02 06
61 17
JOO 01
242 01
205 00
541 00
200 06 0 10 060565 STZRO: MOVE 600D,DATPTN(PATRN)
202 06 0 00 000060 MOVEM 600D,ZR0FIL
202 06 0 00 000061 MOVEM GOOD.ZROFIL+1
202 06 0 00 000062 MOVEM 600D,ZR0FIL+2
00 000063 MOVEM 600D,ZR0FIL+3
00 000001 STSKP: PUT B
00 000016 MOVE B,CNTRL
00 000002 LSH B,2
00 200000 MOVSI (CHJMP)
01 060663 HRRI CHNPR6(B)
01 377000 MOVEM ICCW(B)
00 061342 MOVE CCWLST
621 00 0 00 200000 TLZ (181)
202 00 0 01 060663 MOVEM CHNPRG(B)
200 00 0 07 061360 MOVE SKPCCU(CCU)
01 060664 MOVEM CHNPR6+1 (B)
01 060665 SETZM CHNPR6+2(B)
01 377001 SETZM ICCU+KB)
01 377002 SETZM ICCW+2(B)
16 043605 MOVE INTSRV(CNTRL)
01 377003 MOVEM ICCW+3(B)
01 377003 MOVEI ICCW+3(B)
16 060633 SKIP6 CHTyPE(CNTRL)
CO} 17 0 00 043003 WIVR
201 00 0 01 060665 MOVEI CHNPRG+2(B)
202 00 0 16 061113 MOVEM STWRDI (CNTRL)
205 00 0 00 600000 MOVSI (3B1)
202 00 0 16 061127 MOVEM STURD2(CNTRL)
200 00 0 00 060631 MOVE DATLEN
242 00 0 00 000001 LSH 1
202 00 0 16 061273 MOVEM SCLKRN(CNTRL)
135 00 0 00 070405 LDB A, [POINT 11 ,CHNPR6(B) J
135 01 0 00 070406 LDB B,CPOINT 11 ,CHNPRG+1(B)
270 00 0 00 000001 ADD A,B
202 00 0 00 060631 MOVEM DATLEN
262 17 0 00 000001 GET B
263 17 0 00 000000 RTN
202 00 0
402 00 0
402 00 0
402 00 0
200 00 0
202 00 0
201 00 0
337 00 0
get good data pattern
setup fill area
save register B
get controller index
TB)*4— >(B)
fetch jump command
merge in address
store in first location
get 20 word xfer
clear last xfer bit
store it away
get skip command
store it away
insure halt at 3rd location
clear word 1
clear word 2
get interrupt linkage
setup it up
get address of vector
is this controller an NI/CI
no - load it into RH20
get termination CLP
save it
get termination CCW
save it
get length
double count
. save clock amount
33
.133
; accumulate record length
: save length
: get B back
; exit
port:
SEQ 0178
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO )!53B(1242) U:07 21-Aug-85 Page 82
OFSXAM MAC 29-Jul-85 11:4A CONTROL ROUTINES
SEQ 0191
D
D
l50
5353
034744
201 11 0 00 044347
034745
301 16 0 00 000010
5554
034746
254 00 0 00 035013
034747
200 01 0 00 000016
034750
242 01 0 00 000002
5358
5359
034751
260 17 0 00 035365
5360
034752
254 00 0 00 034762
5361
034753
135 05 0 00 070005
5: 63
034754
200 06 0 16 061113
5:64
034755
312 05 0 00 000006
5165
034756
254 00 0 00 034762
200 00 0 01 377002
5:66
034757
5.67
034760
316 00 0 16 061127
5368
034761
254 00 0 00 067640
034762
261 11 0 00 070407
5371
034763
261 11 0 00 000016
5372
034764
261 11 0 16 061113
5373
034765
135 00 0 00 070005
5374
034766
261 11 0 00 000000
5375
034767
261 11 0 16 061 127
2o' 11 0 01 377002
5376
034770
5377
034771
261 11 0 00 070224
5378
034772
263 17 0 00 000000
;* CHKLOG - Check the correctness of the logout data
CHKLOG: MOVE I
CHKA: GAIL
JRST
MOVE
LSH
60
JRST
LDB
MOVE
CAME
JRST
MOVE
CAMN
SKPRTN
LOGERR: PUSH
PUSH
PUSH
LOB
PUSH
PUSH
PUSH
PUSH
RTN
ERRDAT,ERSTCK
CNTRLJO
DTECLOG
B,CNTRL
B,2
UCNR1
LOGERR
im't error stack pointer
check DTE20 logout
; get^^ controller number into register B
Jouble twice to form channel index
wait for channel to logout
channel hung! ! ! !
BAD.CPOINT 22. ICCW+KB) ,353
G006.STURD1(CNTRL)
BAD.GOOD
LOGERR
ICCW+2(B)
STURD2(CNTRL)
ERRDAT.CSIXBIT/STXLOG/]
ERRDAT.CNTRL
ERRDAT.STWRDKCNTRL)
[POINT 22.ICCW+1(B),35J
ERRDAT.A
ERRDAT.STURD2(CNTRL}
ERRDAT,ICCW*2(B)
ERRDAT.CHS.ETX]
get .logged out CPC
get good Cf
skip if same
logout error! !
get stored data address
IS it correct?
save RH20 ID
put onto stack
get CLP logged out
put onto stack
put onto stack
put onto stack
L
L
SEO 0179
DFSXA
DFSXAH
5379
5580
5381
5382
5583
558A
5585
5586
5587
5588
5589
5590
5591
5592
5593
559A
5595
5596
5597
5598
5599
5A00
5A01
5A02
5403
5A0A
5A05
5406
5407
5408
5409
5410
5411
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 83
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;• CHKL6A - Check all channels for correct logout
;4f*****************^** **************************** ft*******************
SEO 0192
DF
DF:
034773 205 16 0 00 777764
034774 201 11 0 00 044347
034775 261 17 0 00 000016
034776 405 16 0 00 VlVl
Oli.777 336 00 0 16 060647
035000 254 00 0 00 055006
035001 200 00 0 00 075025
035002 301 00 0 00 000023
035003 254 00 0 00 070410
035004 260 17 0 00 034745
03500: 300 00 0 00 000000
035006 262 17 0 00 000016
035007 253 16 0 00 034775
055010 3u- 11 0 00 044347
055011 550 00 0 17 000000
055012 265 17 0 00 000000
CHKLGA: MOVSI
MOVE I
CKLGA1
PUT
AND I
SKIPN
JRST
CNTRL,-14
ERRDAT.ERSTCK
CNTRL
CNTRL.-1
REQST(CNTRL)
CKLGA2
Check test range
MOVE
CAIL
JRST
; Continue
60
CAI
CKLGA2: GET
AOBJN
CAIN
AOS
RTN
TSTNM
3
SKIPLE CHTyPE(CNTRL)
JRST CICLGA2
JRST .♦13
CHKA
CNTRL
CNTRL. CKLGA1
ERRDAT.ERSTCK
(P)
init controller index
setup print stack
skip if there
go update
?et test number
ests 23-27?
yes - check to see if this is an
NI/CI port and if so exit
check the logout
do it on all channels
skip if no error
setup skip
return
--' ' '■■ ■t^iy*
SEO 0180
DFSXA
OFSXAM
5A12
5A13
5AU
5A15
5A16
5A17
5A18
5A19
5420
5A21
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U;07 21-Aug-85 Page 84
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;• OTECLOG - Check DTE20 logout
SEO 0193
OF
OF
035013 135 15 0 00 070321
035014 242 15 0 00 000003
035015 335 00 0 16 066143
035016 254 00 0 00 035022
035017 332 00 0 16 066143
035020 254 00 0 00 035041
035021 254 00 0 00 035030
0TECL06:LDB
LSH
FE.C
FE.3
POINT 3.CNTRL.35J
SKJP6E
JRST
StCiPE
JRST
DTERyF(CNTRL)
DTECL1
DTERWF(CNTRL)
DTECL2
JRST 0TECL3
035022
035023
035024
035025
035026
035027
035030
035031
035032
035033
035034
035035
035036
035037
035040
035041
035042
035043
035044
035045
035046
035047
200 00 0 15 000141
312 00 0 16 066147
DTECLI
254 00
200 00
316 00
254 00
00 035030
15 000140
16 066153
00 067640
261
261
261
261
261
261
2o'
261
11 0 UO 070413
11 0 00 000016
DTECL3;
11
11
11
11
11
11
263 17
200 00
312 00
254 00
200 00
312 00
254 00
254 00
16 066143
16 066153
16 066147
15 000141
15 000140
00 070224
00 000000
0 15 000140
0 16 066147
0 00 035030
0 15 000141
0 16 066153
0 00 035030
0 00 067640
DTECL2:
MOVE
CAME
JRST
MOVE
CAMN
SKPRTN
PUSH
PUSH
PUSH
PUSH
PUSH
PUSH
PUSH
PUSH
RTN
MOVE
CAME
JRST
MOVE
CA«E
JRST
SKPRTN
EPTT8P(FE)
DTEF8P(CNTRL)
DTECL3
EPTEBP(FE)
DTES8P(CNTRL)
ERRDAT.CSlXBIT/STXDLG/3
ERRDAT.CNTRL
ERRDAT,DTERWF(CNTRL)
ERRDAT.DTESBP(CNTRL)
ERROAT,DTEFBP(CNTRL)
ERRDAT.EPTTBP(FE)
ERRDAT.EPTEBP(FE)
ERRDATJMS.ETXJ
EPTEBP(FE)
DTEF8P(CNTRL)
DTECL3
EPTT8P(FE)
DTES8P(CNTRL)
DTECL3
DTE20 reading
DTE20 writing
error, no DTE20 startup
reading, is TO-10 BP
incremented properly?
no
TO-11 BP should not change
all ok
writing, TO-11 BP
incremented properly?
no
TO-10 BP should not change
i
EO 0181
D«-SXA
OECSVSTEM KLIO CHANNEL/DTE
DFSXAM
MAC
29-Jul-85 11:44
5453
5A5A
5455
5A56
545?
5458
035050
260 17 0 00 034601
5459
035051
200 06 0 10 060565
210 01 0 00 060631
5460
035052
5461
035053
517 00 0 00 000001
5462
035054
541 01 0 00 044541
5463
035055
260 17 0 00 035116
5464
035056
210 01 0 00 060631
5465
035057
517 00 0 00 000001
541 01 0 00 054543
5466
035060
5467
035061
260 17 0 00 035121
5468
035062
263 17 0 00 000000
5469
5470
5471
5472
5473
5474
5475
035063
260 17 0 00 034601
5476
035064
200 06 0 10 060565
5477
035065
210 01 0 00 060631
5478
035066
517 00 0 00 000001
5479
035067
541 01 0 00 054543
5480
035070
260 17 0 00 035116
5481
035071
210 01 0 00 060631
5482
035072
517 00 0 00 000001
5483
035073
5<«* 01 0 00 044541
035074
260 17 0 00 035121
5485
035075
263 17 0 00 000000
rERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 85
CONTROL ROUTINES
;• SSTDAT - Setup routine for DATBUF - used on simulated writes
SEO 0194
$STDAT;
60
MOVE
MOVN
HRLZS
HRRI
LOBUF
MOVN
HRLZS
HRRI
CLRBUF
RTN
UPDVPT
GOOD,DATPTN(PATRN)
B.DATLEN
B
B. DATBUF
B.DATLEN
B
B.DEVBUF
update media pointer
fetch data pattern
get data buffer size
put size into left half as neg #
merge starting address
load up the specified buffer
get length again
put negative number into left half
merge in receiving buffer base addrs
go clear the receiving buffer
exit
;4f* *******************************************************************
;• SSTDEV - Setup device buffer - used on simulated reads
SSTDEV:
60
UPDVPT
MOVE
G00D,DATPTN(PATRN)
novN
B,DATLEN
HRLZS
B
HRRI
B.DEVBUF
LD8UF
MOVN
B,DATLEN
HRLZS
B
HRRI
B, DATBUF
CLRBUF
RTN
update media pointer
fetch data pattern
get data length
put H into left half as minus value
merge in base address of source
load source buffer with data
get length
make minus
get base of destination
clear receiving buffer
DFS
DFS
c
5
c
c
i
i
5
5
SEQ 0182
DFSXA
DFSXAM
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 31538(1242) 14:07 21-Aug-85 Page 86
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;• STREV - Load DAT8UF - load rev DMYOUF - clear DEVBUF
;f* *******************************************************************
SEQ 0195
035076
035077
035100
035101
035102
035103
035104
035105
035106
035107
035.10
035111
035112
035113
0351U
035115
DF!
DF!
260
241
210
517
541
260
241
263
17
06
01
00
01
17
?^
260 17
241 06
210 01
517 00
541 01
260 17
241 06
263 17
00 035050
00 0000^2
" 0606!l
000001
050542
00 035116
00 000022
00 000000
00
00
00
0 00 035063
0 00 000022
0Q0QO1
050542
0
0
0
0 00 035116
0 00 000022
0 00 000000
00
STREV:
SETP^
ROT
NOVN
HRLZS
HRRI
LDBUF
ROT
RTN
'ODD •D18
a.DATLEN
B
B.OmBUF
600D,*D18
load DATBUF and clear DEVBUF
swap halves of good
get length
put into left half
get buffer address
load up buffer
put good back
• /If* ********** «********«*t**********t*t*t******t**********t************
;• STREVI - Load DEVBUF - load rev DMYBUF - clear DATBUF
;/|f*«*******************4*«4«******«***t***************«********t******
STREV1: SETDEV
ROT
NOVN
HRLZS
HRRI
LDBUF
ROT
RTN
G00D/D18
B.DATLEN
B
B.DMYBUF
GOOD. "018
clear DATBUF and load DEVBUF
swap halves
get length
put into left half
?et buffer address
oad DMYBUF
put good back
SEQ 0183
OFSXA
DFSXAM
5513
55U
5515
5516
5517
5518
5519
5520
5521
5522
5523
552A
5525
5526
5527
5528
5529
5530
5531
5532
5533
553A
5535
5536
5537
5538
5539
55AO
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53P(1242) U:07 21-Aug-85 Page 87
MAC 29-Jul-85 11:4A CONTROL ROUTINES
^. /If* *♦»*♦♦«♦*♦******♦■«♦♦♦*♦**♦***««♦**** **•♦■*******♦*♦*♦******••****♦♦*
;* SLDBUF - Load buffer routine
;/(f******************* ************************** ♦********•****•*♦**•••*
035116 202 06 0 01 000000
035117 253 01 0 00 035116
035120 263 17 0 00 000000
035121 A02 00 0 01 000000
035122 253 01 0 00 035121
035123 263 17 0 00 000000
03512A
035125
035126
035127
035130 A02
035131 25A
332
263
350
301
00 0 16 060647
17 0 00 000000
00 0 00 000016
16 0 00 OOOOU
00 0 00 000016
00 0 00 035124
SLDBUF: MOVEM G00D,(B)
AOBJN B,.-1
RTN
; store good into buffer
; do all
;/|f**************** ********************************************* *******
;* SCLBUF - Clear buffer routine
;/)f***** ********************************************************* ******
SCLBUF: SETZM (B)
AOBJN B,.-1
RTN
; clear specified location
; do all words
; exit
;^*************************V******************************************
;* SGTNMI - Get first free number
;/jf**** *************************************************** *************
SGTNMI: SKIPE REQST(CNTRL)
RTN
SGTNM: AOS CNTRL
GAIL CNTRL. U
SETZM CNTRL
JRST SGTNMI
; skip if not currently selected
; exit back to user
; update controller index ••
; make check
SEQ 0196
SEQ 0184
DFSXA
DFSXAM
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:S3B(1242) U:07 21-Aug-85 Page 88
MAC 29-JUI-85 11:44 CONTROL ROUTINES
•#**********************♦♦■*♦**♦*****«*«***************♦*♦*****♦******•
;* SKPLD - Setup DEVBUF and DATBUF for skip test
SEQ 0197
035132
035133
035134
03: 135
035136
035137
035140
035141
035142
035143
035144
035145
035146
035147
035150
035151
035152
035153
035154
035155
035156
035157
035160
200 06
260 17
200 06
210 01
271 01
517 00
541 01
260 17
263 17
200 06
260 17
200 06
210 01
271 01
517 00
261 17
541 01
260 17
262 17
541 01
2uJ 06
260 17
263 17
10 060565
00 035063
00 070414
00 060631
0 00 000020
0 00 000001
0 00 044561
0 00 035116
0 00 000000
10
00
00
00
00
00
00
00
00
00
00
00
00
00
060565
035050
070414
060631
000020
000001
000001
044561
035116
000001
054563
070415
035116
000000
SKPLD: MOVE
SETDEV
MOVE
MOVN
ADD I
HRLZS
HRRI
LDBUF
RTN
600D.DATPTN(PATRN)
GOOD, [123456, ,1234563
B,DATLEN
B,20
B
B, DATBUF +20
get data pattern
Ic
load (good) in DEVBUF
get not normally used pattern
get data length
deduct 1st part
put count in left half
merge in address
load -1 in remainder of buffer
•^«r******«4r«r*4r****«*******t*******4r«r************************t *********
;* 2R0L0 - Setup DEVBUF and DATBUF for zero test
;/(f********************************************************************
ZROLD: MOVE
SETDAT
MOVE
M0V«
ADD I
HRLZS
PUT
HRRI
LDBUF
GET
HRRI
MOVE
LDBUF
RTN
GOOD,DATPTN(PATRN)
GOOD, [123456,, 1234563
B,DATLEN
B,20
B
B
B,DATBUF+20
B
B,DEVBUF+20
GOOD, C654321,, 6543213
get data pattern
toad (good) into DATBUF
get not normally used pattern
get length
deduct first part
put count into left half
save word
merge in address
load up buffer
get word back
merge in address
?et another not normally used
oad up second part of DEVBUF
exit
SEQ 0185
OFSXA
DFSXAM
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
558A
5585
5586
5587
5588
5589
5590
5591
5592
5593
559A
5595
5596
5597
5598
5599
5600
5601
5602
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 89
MAC 29-Jul-85 11:44 CONTROL ROUTINES
;* SKPCHK - Check for zeroed DATBUF on skip read test
;4P*****Hr*********************** ******************************* ********
SEQ 0198
035161
035162
035163
C35164
035165
035166
035167
035170
035171
035172
035173
035174
035175
035176
035177
035200
035201
035202
035203
035204
035205
035206
035207
035210
261
402
201
261
261
205
200
200
404
312
260
253
210
271
517
200
312
260
253
261
262
336
350
263
17
00
11
11
11
01
06
05
05
05
17
01
01
01
00
05
05
17
01
11
17
00
00
17
00 000001
16 044136
00 044203
00 070416
00 000016
00 777760
10 060565
01 044541
00 060550
00 000006
00 042640
00 035170
00 060631
00 000020
00 000001
01 044561
00 070414
00 042640
0 00 035200
0 00 070241
00 000001
16 044136
17 000000
00 000000
SKPCHK: PUT
SETZM
MOVE I
PUSH
PUSH
MOVSI
MOVE
SKCHKl: MOVE
AND
CAME
GO
AOBJN
MOVN
ADD I
HRLZS
SKCHK2: MOVE
CAME
60
AOBJN
PUSH
GET
SKIPN
AOS
RTN
B
BADCNT(CNTRL)
ERRDAT,BADLST
ERRDAT,[SIXBIT/STXDAT/:
ERRDAT,CNTRL
B,-20
GOOD,DATPTN(PArRN)
BAD, DATBUF (B)
BA.'^.DATMSK
BAD, GOOD
PSHBAD
B, SKCHKl
B,DATLEN
B,20
B
BAD,DATBUF+20(B)
BAD, C123456,, 1234563
PSHBAD
B,SKCHK2
ERRDAT,CMS.EOTJ
B
BADCNT(CNTRL)
(P)
save register B
clear bad count
setup push list
location
save index
get count of 1st part
get good pattern
get tebt word
and with mask
skip if correct
save bad
go back after update register B
get data length
deduct 1st part
put count into left half
get word from buffer
skip ^ equal
save I id
check all of part 2
terminate list
get original register B back
skip if any errors
skip return if no errors
exit
SEO 0186
DFSXA
DFSXAM
5603
S05
lot
507
>608
5609
5610
5611
5612
5613
56K
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 90
MAC 29-Jul-85 11:44 CONTROL ROUTINES
• /If************************************* **************** ♦•***•*****♦***
;* ZROCHK - Check for zero fill pattern in DEVBUF
;#****************************************»***************************
SEQ 0199
035211
261 17 0 00 000001
ZROCHK: PUT
B
; save register B
035212
402 00 0 16 044136
SETZM
BAl NT(CNTRL)
; clear bad count location
035213
201 11 0 00 044203
MOVE I
ERRDAT,BADLST
: setup push list
035214
261 11 0 00 070416
PUSH
ERRDAT,[SIXBIT/STXDAT/J
035215
261 11 0 00 000016
PUSH
ERRDAT.CNTRL
035216
210 01 0 00 060631
MOVN
B,DATLEN
; get length , , . ^ .
035217
517 00 0 00 000001
HRLZS
B
; put negative length into left h
035220
200 06 0 10 060565
MOVE
GOOD,DATPTN(PATRN)
; get compate pattern
035221
200 05 0 01 054543
ZRCHK1: MOVE
BAD,DEVBUF(B)
; get test word
035222
404 05 0 00 060550
AND
BAD.DATMSK
; and with mask
035223
404 06 0 00 060550
AND
GOOD,DATMSK
035224
312 05 0 00 000006
CAME
BAD, GOOD
; check = 0
035225
260 17 0 00 042640
GO
PSHBAD
: save bad
035226
253 01 0 00 035221
AOBJN
B,ZRCHK1
; go back after update register B
035227
261 11 0 00 070241
PUSH
ERRDAT.CMS.EOT]
035230
262 17 0 00 000001
GET
B
; get original register B back
035231
336 00 0 16 044136
SKIPN
BADCNT(CNTRL)
; skip if any errors
035232
350 00 0 17 000000
AOS
(P)
; skip return if no errors
035233
263 17 0 00 000000
RTN
; exit
half
SEQ 0187
OFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 91
DFSXAM MAC 29-Jul-85 11:4A CONTROL ROUTINES
SEQ 0200
5627
5628
5629
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
035234
035235
035236
035237
035240
035241
035242
035243
035244
035245
035246
035247
035250
035251
035252
035253
035254
035255
035256
035257
035260
035261
035262
035263
035264
035265
035266
035267
035270
035271
035272
035273
035274
035275
035276
035277
035300
035301
035302
035303
035304
035305
260 17
336 00
254 00
402 00
205 02
331 00
254 00
306 16
254 00
200 00
337 00
200 00
202 00
337 00
200 00 ,
202 00 0
337 00 0
200 00
202 00
337 00
200 00
202 00
337 00
200 00
202 00
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
5d: 00
253 02
200 00
202 00
202 00
202 00
202 00
202 00
337 00
263 17
200 15
201 00
202 00
200 00
251 00
402 00
263 17
00
16
00
00
00
02
00
02
00
00
02
02
01
02
02
01
02
02
01
02
02
01
02
02
01
00
00
00
01
01
01
01
01
16
00
16
00
00
00
00
16
00
035126
060647
035316
000001
777764
060647
035266
000000
035266
070417
060633
033536
061232
060633
033526
061217
060633
033556
061260
060633
033546
061245
060633
033566
061307
000001
035241
067641
061217
061232
061245
061260
061307
060647
000000
060753
000163
061017
070154
061026
061017
000000
;* SELRH - Select an RH and fix clock tables
;/|f***4r*«**********4r *******•«[** *************************** *************
SELRH:
SELl :
SEL2:
GTNMBR
SKIPN
JRST
SETZM
MOVSI
SKI PL
JRST
CAIN
JRST
MOVE
SKIPG
MOVE
MOVEM
SKIPG
MOVE
MOVEM
SKIPG
MOVE
MOVEM
SKIPG
MOVE
MOVEM
SKIPG
MOVE
MOVEM
AOS
A06JN
MOVE
MOVEM
MOVEM
MOVEM
MOVEM
MOVEM
SKIPG
RTN
MOVE
MOVE I
MOVEM
MOVE
BLT
SETZM
RTN
REQST(CNTRL)
SELERR
B
C,-14
REQST(C)
SEL2
CNTRL,(C)
SEL2
cjfcl:
CHTYPE(C)
.WCLKO(C)
SCLK5(B)
CHTYPE(C)
.WCLKKC)
SCLK4(B)
CHTYPE(C)
.RCLKO(C)
SCLK7(B)
CHTYPE(C)
• RCLKKC)
SCLK6(B)
CHTYPE(C)
.WRRS(C)
WRLDRG(B)
B
CSELI
[rtn:
SCLK4(B)
SCLK5(B)
SCLK6(B)
SCLK7(B)
WRLDRG(B)
REQST(CNTRL)
DEV,CHNDEV(CNTRL)
163
TAPEDC
[TAPEDC-JAPEDC+I]
TAPEDC+7
TAPEDC (CNTRL)
get next RH
check to see if selected
selection error
setup table index
skip if controller selected
here if device selected
skip if not the selected RH
here if the selected RH
get NOOP
IS this controller an NI/CI port?
no - get DATAO
put into table
is this controller an NI/CI port?
no - get DATAO
put into table
is this controller an NI/CI port?
no - get DATAO
put into table
is this controller an NI/CI port?
no - get DATAO
put into table
is this controller an NI/CI
write
table
no - get
put into
update 6
do all but selected
get terminator
port?
register load command
RH
terminate table
skip if device selected
exit
get device #
get limit
put into TAPEDC and put
into all locations
reset desired postion counter
SEQ 0188
OFSXA
DFSXAM
567A
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) U:07 21-Aug-85 Page 92
29-JUI-85 11 :U
MAC
CONTROL ROUTINES
SEQ 0201
;* SELDV - Setup registers DEV and CHNDEV
035306
035307
035310
035311
035312
035313
0353U
035315
035316
035317
205 15
135 01
606 01
254 00
137 01
202 15
263 17
253 15
037 01
254 00
n?
777770
060605
00 000010
00 035315
00 070420
16 060753
00 000000
00 035307
00
00
070421
036334
SELDV: MOVSI
SELDV1: LDB
TRNN
JRST
DPB
MOVEM
RTN
SELDV2: AOBJN
SELERR: FMS6D
JRST
DEV,-10
B,SELPNT(DEV)
BJO
skDV2
B.CPOINT 4,DEVJ7]
DEV,CHNDEV(CNTRL)
DEV,SELDV1
<SELECTION ERROR>
STPRMI
setup device index
fetch selection byte
skip if selected
if not update DEV
setup CHNDEV
exit
took for first selected device
go to conunand decoder
>EQ 0189
OFSXA
DFSXAM
5690
5691
5692
5693
569A
5695
5696
5697
5698
5699
5700
5701
5702
5703
570A
5705
5706
5707
5708
5709
5710
5711
5712
5713
57U
5715
5716
5717
5718
5719
5720
5721
5722
5723
572A
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 93
MAC 29-Jul-85 11:44 TIMED WAITS
SUBTTL TIMED WAITS
;* W1SEC, U6Q0MS, W450MS, W300MS- W150MS. W40MS, W10MS, WIMS, WIOOUS,
;* W50US, W20US, WIOUS, TIMER - Timed wait using meter board
SEO 0202
035320
035321
035322
035323
035324
035325
035326
035327
035330
035331
035332
035333
035334
035335
035336
035337
035340
035341
035342
035343
035344
035345
035346
035347
035350
035351
035352
035353
035354
035355
035356
035357
035360
035361
035362
035363
035364
260 17
260 17
260 17
260 17
260 17
260 17 0
263 17 0
260 17
260 17
263 17
260 17
260 17
263 17
260 17
260 17
260 17
260 17
201 01
254 00
201 01
254 00
2u! 01
254 00
201 01
254 00
201 01
254 00
201 01
254 00
201 01
254 00
201 01
702 04
702 05
606 00
254 00
263 17
00 035327
00 035335
00 035343
00 035343
00 035345
00 035345
00 000000
00 035335
00 035335
00 000000
00 035335
00 035336
00 000000
00 035336
0 00 035343
0 00 035343
0 00 035343
0 00 005670
0 00 035360
00 007640
00 035360
00 001750
00 035360
00 000144
00 035360
00 000012
0 00 035360
0 00 000005
00 035360
00 000002
00 035360
00 000001
01 460000
00 000000
00 020000
00 035361
00 000000
U1SEC: GO
GO
GO
GO
GO
60
RTN
W600MS: GO
GO
RTN
W450MS: GO
GO
RTN
U300MS: GO
W150MS: GO
GO
GO
MOVE I
JRST
W40MS: MOVE I
JRST
U10MS: MOVE I
JRST
WIMS: MOVE I
JRST
W100US: MOVE I
JRST
U50US
W20US
U10US
TIMER
MOVE I
JRST
MOVEI
JRST
MOVEI
LDTIM
RDTIM
TRNN
JRST
RTN
U600MS
W300MS
U40MS
U40MS
W10MS
U10MS
W300MS
W300MS
U300MS
W150MS
W150MS
W40MS
W40MS
W40MS
B,*D3000
TIMER
B.*D4000
TIMER
B,*D1000
TIMER
B,*D100
TIMER
B,*D10
TIMER
B,*D5
TIMER
B,*D2
TIMER
B,*D1
INITIM(B)
A
A,ITD
.-2
wait 1 second
wait 600 milliseconds
wait 450 milliseconds
wait 300 milliseconds
wait 40 milliseconds
80 milliseconds
120 milliseconds
get 30 millisecond value
wait total of 150 milliseconds
wait 40 milliseconds
go start interval timer
wait 10 milliseconds
wait 1 millisecond
wait 100 microseconds
wait 50 microseconds
wait 20 microseconds
wait 10 microseconds
clear clock and DONE, turn clock on
skip if time up
skip if timer done set!
if not wait
exit
SEQ 0190 i
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(12A2) U:07 21-Aug-85 Page 94
DFSXAM MAC 29-Jul-85 11 :U TIMED WAITS
SEQ 0203
5737
^>738
5739
'm
57A4
57A5
57A6
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
035365
035366
035367
035370
035371
035372
035373
035374
035375
035376
035377
035400
; /If* ik*»***flr**********4r*******#***<r«*****tlr**4lr***********4r ***************
;* WCNR1 - Wait for channel to logout
;/|f«r **************************************************** ***************
254 00 0 00 035401
WCNR1: SKIPLE CHTYPE(CNTRL)
JRST WCNR1P
7 020 04
200 05 0
350 00 0
201 00
256 00
254 00
7 020 04
311 05 0
254 00 0
263 17 0
0 00 035443
00 035443
00 000005
00 002000
16 043536
00 067640
0 00 035443
00 035443
00 035372
00 000000
; RH20
DATAI
MOVE
AOS
WCNRA: MOVE I
.CONSZ
SKPRTN
DATAI
CAML
JRST
RTN
TIM,TIMH
BAD,TIMH
BAD
CNR
TIMJIMH
BAD,TIMH
WCNRA
is this controller an NI/CI port?
yes - go handle
read clock
get high value
update limit
get channel not ready bit
skip if still busy
exit if logged out
read clock
skip if limit not exceeded
continue to wait
timeout! ! I
035401 254 00 0 00 067640
; NI/CI port - the microcode does the wait so no need to wait here
WCNR1P; SKPRTN ; done - exit
SEO 0191
DFSXA
DFSXAM
5761
5762
5763
576A
5765
5766
5767
5768
5769
5770
5771
5772
5773
577A
5775
5776
5777
5778
5779
5780
5781
5782
5783
578A
5785
5786
5787
5788
5789
5790
5791
5792
5793
579A
5795
5796
5797
5798
5799
5800
5801
5802
5803
580A
5805
5806
5807
5808
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 95
MAC 29-JuL-85 11:A4 TIMED WAITS
SEQ 020^
035402
035402
035403
035404
035405
035406
035407
035410
035411
035412
035413
035414
035415
035416
035417
035420
035421
035422
035423
035424
035425
035426
035427
035430
035431
035432
035433
0^5434
035^35
0354i6
035437
035440
035441
035442
035443
035444
700 14 0
7 020 04
200 05 0
271 05 0
7 020 04
317 05 0
254 00
332 00
254 00 0
700 14 0
263 17 0
260 17
700 14
261 17
205 16
261 17
405 16
336 00
254 00
00 012377
0 00 035443
00 035443
00 000002
0 00 035443
00 035443
00 035416
00 074777
00 035406
00 000400
00 000000
00 033731
00 000400
00 000016
00 777764
00 000016
00 777777
16 060647
00 035437
332 00 0 16 044153
254 00 0 00 035437
Gi.' 00
200 00
037 16
037 00
200 15
260 17
200 17
254 00
0 00 070425
0 00 075025
0 00 000003
0 00 030242
0 16 060753
0 00 063205
0 00 075013
0 00 042073
262 17 0 00 000016
253 16 0 00 035421
262 17 0 00 000016
263 17 0 00 000000
000000 000000
000000 000000
;* WTDNEO, WTDNE - Timed wait for I/O completion, interrupt
;#******•**••*** ****************************** *tir******«r*****ilr*tlr******tlr
UTDNEO:
UTDNE: ION
UTDN1
UTDXU:
WTDNX:
UTDNX1
DATAI
MOVE
ADDI
DATAI
CAM6
JRST
SKIPE
JRST
lOF
RTN
GO
I OF
PUT
MOVSI
PUT
AND I
SKIPN
JRST
SKIPE
JRST
TMSGC
MOVE
PNTOCS
PCRL
MOVE
GO
MOVE
JRST
WTDNX2: GET
AOBJN
GET
RTN
TIM,TIMH
BAD,TIMH
BAD, 2
TIM,TIMH
BAD,TIMH
WTDNX
INTCNT
WTDNl
RSTUSR
CNTRL
CNTRL,-14
CNTRL
CNTRL, -1
REQST(CNTRL)
WTDNX2
RH.DNE(CNTRL)
WTDNX2
<SOFTWARE TIMEOUT
TSTNM
DEV,CHNDEV(CNTRL)
TIMOT
P,SAVEPT
SSWCHK
CNTRL
CNTRL, WTDNXl
CNTRL
turn on interrupt system
read time base
get low value
adjust by 2
read base
skip if limit not exceeded
time out exit
skip if all devices done
if not, repeat the above loop
turn off PI system
exit
reset possible user mode
turn off PI system
save CNTRL
init controller index
skip if selected
if not go update index
this channel been interrupted?
if done go update index
IN TEST >
; get M
; print it
get any associated device number
print message
restore stack pointer
exit after switch chk (ERSTOP,LOOPER)
scan all controllers
?et controller number back
ake software timeout return
Locations for time base
TIMH:
TIML:
0
0
high value <0:35>
low value <1:23>
SEQ 0192
DFSXA
DFSXAM
5809
"]10
ill
12
(13
58U
5815
5816
5817
5818
5819
5820
5821
5822
5823
582A
5825
5826
5827
5828
5829
5830
5831
5832
5833
583A
5835
5836
5837
5838
5839
5840
58A1
58A2
58A3
58A4
58A5
5CA6
58A7
5848
58A9
5850
5851
5852
5853
5854
5855
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;538(12A2) U:07 21-Aug-85 Page 96
MAC 29-Jul-85 11:44 TIMED WAITS
;^*«*«***» ******* ******♦♦♦*♦♦****«♦******♦***** ****♦♦***♦*****♦♦«*♦***
;* WCMDN - Timed wait for I/O completion, non-interrupt
;4f*********** *********** **********************************************
SEQ 0205
035445 402 00 0 16 044167
035446 7 020 04 0 00 035443
035447 200 05 0 00 035443
035450 271 05 0 00 000002
035451 333 00 0 16 060633
035452 254 00 0 00 035602
035453 336 00 0 16 060633
035454 254 00 0 00 035546
035455 7 020 04 Q 00 035443
035456 317 05 0 00 035443
035457 254 00 0 00 070441
035460
035461
035462
035463
035464
035465
035466
035467
035470
035471
035472
035473
035474
035475
035476
035477
201 00 0
256 00 0
254 00
201 00
256 00
476 CO
7 000 30
476 00 0
337 00
254 00
260 U
300 00
602 00
476 00
336 00
254 00
00 000010
16 043553
00 035455
00 774000
16 043536
16 044167
0 00 007740
16 044167
16 060647
00 035476
00 043177
00 000000
00 040000
16 044167
16 044167
00 035536
WCMDN: SETZM RH.ERR(CNTRL)
DATAI TIM,TIMH
MOVE BADJIMH
ADD I BAD, 2
; Check controller type
SKIPLE CHTYPE(CNTRL)
JRST WCMD7
SKIPN CHTYPE(CNTRL)
JRST WCMD6
; Start of timer loop
clear error flag
read time base
get low value
adjust by 2
is this controller an NI/CI port?
yes - go handle
is this controller a DTE?
yes - go handle
WCMD1: DATAI TIM.TIMH ; read base
CAM6 BADJIMH ; skip if low value not yet up to limit
JRST [TMS6 < SOFTWARE TIMEOUT AT >
LDB [POINT 22, (P), 353
PNTOCS
PCRL
60 TIMOT
MOVE P,SAVEPT ; restore stack pointer
JRST $SWCHK3 ; exit after switch chk (ERSTOP,LOOPER)
RH20 - check for cmd done and for errors
WCMD2:
MOVE I
CMDDN
.CONSO
JRST
WCMD1
MOVE I
RH.ERS
.C0NS2
SETOM
RH.ERR(CNTRL)
CONSZ
APR,CP.ERS
SETOM
RH.ERR(CNTRL)
SKIPG
REQST(CNTRL)
JRST
WCMD2
RDS
CAI
TRNE
CERR
SETOM
RH.ERR(CNTRL)
SKIPN
RH.ERR(CNTRL)
JRST
WCMD5
wait for errors or command done
done set?
no - check timeout
get just errors f ig
any error?
yes - set error flag
any CPU errors?
yes - set error flag
device selected?
no - continue
yes - read status
error occurred?
yes - set error flag
any errors so far?
no - exit
SEQ 0193
DFSXA
OFSXAM
5856
5857
5858
5861
5862
5863
586A
5p5
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
588A
5885
5886
5887
5888
5889
5890
5891
5892
5893
589A
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST
MAC 29-JUI-85 11:44 TIMED WAITS
VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 97
SEQ 0206
035500
035501
035502
035503
035504
035505
035506
035507
035510
035511
035512
035513
035514
035515
035516
035517
03552C
035521
035522
035523
035524
035525
0^5526
03^527
035530
035531
035532
035533
035534
035535
035536
035537
035540
035541
035542
035543
035544
035545
337 00 0 16 060647
254 00 0 00 035517
260
254
261
504
540
261
260
300
261
260
300
261
254
17
00
11
00
00
11
17
00
11
17
00
11
00
261 11
261 11
256 00
261 11
260 17 0
261 11 0
2u-' 01
242 01
261 11
261 11
700 05
261 11
700 10 0
261 11 0
261 11 0
0
0
0
0
00 064132
00 035445
00 070222
00 000015
00 000016
00 000000
00 043177
00 000000
00 000000
00 043211
00 000000
00 000000
00 035521
00 070223
00 000016
16 043521
00 000000
00 043024
00 000000
00 000016
00 000002
01 377001
01 377002
00 000000
00 QOOOOO
00 000000
00 000000
00 070224
201 00
256 00
201 00
331 00
260 U
300 00
700 04
263 U
0 00 005410
0 16 043570
0 00 000011
0 16 060647
00 043044
00 000000
00 027760
00 000000
Errors occurred - check for devices
SKIPG REQST(CNTRL)
JRST WCMD3
any device selected?
no - RH20 only - continue
Errors occurred on a device - attempt to handle
60
JRST
PUSH
HRL
HRR
PUSH
RDS
CAI
PUSH
RER
CAI
PUSH
JRST
BSRCLN
UCMDN
ERRDAT,[STX.DV]
DEV
CNTRL
ERRDAT,
ERRDAT,
clean tape if TU16 writing
here if TU16 writing
here if RP04 or TU15 reading
ERRDAT,
UCMD4
; Save error data
WCMD3:
UCf1D4:
PUSH
PUSH
.CONI
PUSH
RPTCR
PUSH
MOVE
LSH
PUSH
PUSH
CPCNI
PUSH
MBERA
PUSH
PUSH
ERRDAT, CSTX.RhJ
ERRDAT, CNTRL
ERRDAT,
ERRDAT, A
B, CNTRL
8,2
ERRDAT,ICCW+1(B)
ERRDAT, ICCW+2(B)
ERRDAT,
ERRDAT,
ERRDAT, [MS. ETXJ
get PTCR
save it
get controller number
convert to channel index
save word 1
save word 2
Clear RH20 and exit
WCMD5:
MOVE I
XECLR+DNCLR+RAECLR+MBE
.CONO
MOVE I
CLEAR
SKI PL
REQST(CNTRL)
WCR
CAI
; filler
CLFLGS
; clear any CPU flags
RTN
r'
SEQ 0194
1 D^bXA
DFSXAM
DtLbYb!
MAC
5906
5907
5908
5909
5910
5911
5912
5913
035546
59U
035547
5915
5916
5917
5918
5919
5920
5921
035550
5922
5923
5924
5925
035551
5926
035552
5927
035553
5928
5929
5930
5931
035554
5932
035555
5933
035556
5934
035557
5935
035560
5936
035561
5937
035562
5938
035563
5939
035564
5940
035565
5941
035566
5942
5943
5944
5945
035567
5946
035570
5947
035571
5948
035572
5949
035573
5950
035574
5951
035575
5952
035576
5953
035577
5954
5955
5956
5957
035600
5958
035601
iM <L10 CHANNEL/DTE20 INTERACTION TEST
29-Jul-85 11:44 TIMED WAITS
VER 0,7 MACRO !l!538(1242) 14:07 21-Aug-85 Page 98
SEQ 0207
7 020 04 0 00 035443
UCMD6:
DATAI
317 05 0 00 035443
CAM6
JRST
254 00 0 00 070441
201 00 0 00 000560
256 00 0 16 043553
254 00 0 00 035546
201
00
0 00 000420
256 00 0 16 043536
476
00
0 16 044167
256
00
0 16 043521
20?
00
0 16 044153
7 Ji
)o :
50 0 00 007740
476 00 0 16 044167
201
00 0 00 001170
256 00 0 16 043570
336 00 0 16 044167
263
17
0 00 000000
261
11
0 00 070450
261
11
0 00 000016
200 00 0 16 044153
261
11
0 00 000000
700 05
0 00 000000
261
11
0 00 000000
700
10 0 00 000000
261
11
0 00 000000
261
11
0 00 070224
700 04
0 00 027760
263
17 0 00 000000
• Jlf* *******************************************************************
;* WCMD6 - Timed wait for DTE20
; Start of tinier loop
TIMJIMH
BADJIMH
CTMSG
; read base
; skip if low value not yet up to limit
< SOFTWARE TIMEOUT AT >
LDB [POINT 22. (P),35J
PNTOCS
PCRL
60 TIMOT
MOVE P,SAVEPT ; restore stack pointer
JRST $SWCHK3 ; exit after switch chk (ERSTOP,LOOPER)
Check for done
MOVE I TOl ODN ! TOl 1 DN ! TOl OER ! TOl 1 ER
.CONSO
JRST WCMD6
; Done - check for errors
TOIOERITOIIER
RH.ERR(CNTRL)
MOVE I
.C0NS2
SETOM
.CONI
MOVEM
CONSZ
SETOM
MOVE I
.CONO
SKIPN
RTN
RH.DNE(CNTRL)
APR.CP.ERS
RH.ERR(CNTRL)
PILDENIPIOENB'CLTOIO
RH.ERR(CNTRL)
; Error occurred - save error data
PUSH
PUSH
MOVE
PUSH
CPCNI
PUSH
MBERA
PUSH
PUSH
ERRDAT,[STX.DT3
ERRDAT.CNTRL
RH.DNE(CNTRL)
ERRDAT,0
ERRDAT,0
ERRDAT,0
ERRDAT.CMS.ETX3
; Clear error and exit
CLFL6S
RTN
; wait for done or error
; not yet - check timeout
; get error bits
; any errors?
; yes - set error flag
; read status
: save status
; any CPU errors?
• yes - set error flag
!CLT011!DNG10C
; clear DTE20
; any error?
; no - exit
put error data on stack
put channel * on stack
put DTE2G status on stack
put CPU status on stack
put M60X status on stack
terminate message
clear CPU flags
EQ 0195
DFSXA
DFSXAM
5959
5960
5961
5962
5963
596A
5965
5966
5967
5968
5969
5970
5971
5972
5973
597A
5975
5976
5977
5978
5979
5980
5981
5982
5983
598A
5985
5986
5987
5988
5989
5990
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO j;53B(12A2) U:07 21-Aug-85 Page 99
MAC 29-Jul-85 11:4A TIMED WAITS
SEQ 0208
C35602
035603
035605
035606
035607
03561C
035611
035612
035613
0356U
035615
035616
7 020 OA 0 00 0354A3
317 05 0 00 035AA3
03560A 25A 00 0 00 070A41
201 00 0 00 00020
256 00 0 16 04355
2'iA 00 0 00 035602
201 00 0
256 00 0
A76 00 0
7 000 30
A76 00 0
3ir 00 0
254 00 0
00 001000
16 043536
16 044167
0 00 007740
16 044167
16 044167
00 035636
;* WCMD7 - Timed wait for NI/CI port
;/|f*****************«4r*****««"**4*****«********4********tlr**«************
; Start of timer loop
TIMJIMH
WCMD7: DATAI
GANG
JRST
rcdd bdSG
?AD«TIMH ; skip if low value not yet up to limit
TMS6 < SOFTWARE TIHEQUT AT >
LDB [POINT 22, (P), 35:
PNTOCS
PCRL
60 TIMOT
MOVE P.SAVEPT
JRST SSWCHKJ
; Check for completion
MOVE I RESQAV
.CONSO
JRST WC.»1D7
; Done - check for errors
MOVE I MVRERR
.CONSZ
SZTOM RH.ERR(CNTRL)
CONSZ APR„CP.ERS
SETOM RH.ERR(CNTRL)
SKIPN RH.ERR(CNTRL)
JRST WCMD8
restore stack pointer
exit after switch chk (ERSTOP,LOOPER)
; get completion bit
; set?
; no - check timeout
get error bit
an error occurred?
yes - set error flag
any CPU errors?
yes - set error flag
skip if errors
exit
OFSXA
DFSXAM
SQQT
599ii
b993
599A
5995
5996
5997
5998
5999
6000
6001
6002
6003
600A
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 11^38(1242) 14:07 21-Aug-85 Page 100
MAC 29-JUL-85 11:44 TIMED WAITS
s«=Q 0209 ;
Save error data
035617 261 11 0 GO 070223
035620 261 11 0 00 000016
035621 256 00 0 16 043521
035622 261 11 0 00 000000
035623 400 00 0 00 000000
035624 261 11 0 00 000000
035625 200 01 0 00 000016
035626 242 01 0 00 000002
035627 261 11 0 01 377001
035630 261 11 0 01 377002
035631 700 05 0 00 000000
035632 261 11 0 00 000000
035633 700 10 0 00 000000
035634 261 11 0 00 000000
035635 261 11 0 00 070224
035636 201 00 0 00 400000
035637 256 00 0 16 043570
035640 700 04 0 00 027760
035641 263 17 0 00 000000
rusH
PUSH
.CONI
PUSH
SFTZ
PUSH
MOVE
LSH
PUSH
PUSH
CPCNI
PUSH
MBERA
PUSH
PUSH
ERRDAT,CSTX.RH1
ERRDAT,CNTRL
ERRDAT,
A,
ERRDAT,A
B.CNTRL
B,2
ERRDAT,ICCW+1(e)
ERRDAT,ICCW+2(B)
ERRDAT,
ERRDAT,
ERRDAT, [MS. ETX]
get status
clear AC
save It
get control Ler number
convert to channel index
save word 1
save word 2
Clear port and exit
UCMD8:
MOVE I
LDCSR
CLFL6S
RTN
PCLEAR
get 'port cUar' bit
do it
clear any CPU flags
DrSXA
DFSXAf*
6475
6476
6477
6478
6479
648C
6481
6482
648!
648<
648?
648^
648/
648?
648^
649(
6491
649J
649:
649^
649!
649<
649;
649{
649<
650(
650'
650;
650:
650-
650:
650(
650
DFSXA
OFSXAM
6017
6018
6019
6020
6C21
6022
6023
602A
60c 5
6026
6027
6028
602'5
6030
6031
6032
6033
603A
6035
6036
6037
6038
6039
60A0
60A1
60A2
6043
604A
60A5
60A6
60A7
60A8
60A9
6050
6051
6052
6C53
6054
6055
6056
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JUL-85 11:44
INTERACTION TEST - VER 0,7 MACRO 2536(1242) 14:07 21-Aug-85 Page 101
N CHANNELS CONTROL ROUTINE
SUBTTL N CHANNELS CONTROL ROUTINE
/^************************************ ********************************
* SCURTA - Start n channels writing ^^^^^^
#*************•******************************************************
SEQ 0210
035642
035643
C'5644
^jj j45
035646
035647
035650
035651
035652
035653
035654
035655
202 16 0 00 000005
205 16 0 GO 777764
261 17 0 GO 000016
405 16 0 00 linn
336 00
254 00
333 00
254 00
306 05
254 00
0 16 060647
0 GO 035661
0 16 060633
0 GO 035661
0 16 000000
0 GO 035661
201 00 0 GO 000020
137 00 0 GO 070403
035656 200 00 0 07 061342
035657 260 17 0 GO 033017
035660 260 17 0 GO 034274
035661 262 17 0 GO 000016
035662 253 16 0 GO 035644
035663 200 16 0 GO 000005
035664 263 17 0 GO 000000
SCWRTA: MOVEM CNTRL, BAD
MOVSI CNTRL, -14
; Select channel
$CU1
save selected RH
im't controller index
PUT
CNTRL
AND I
CNTRL, -1
SKIPN
REQST(CNTRL)
JRST
$CW?
SKIPLE
CMT /E(CNTRL)
JRST
$CJ2
CAIN
BAD, (CNTRL)
JRST
$CW^
; Start a write
MOVE I 20
DPB [POINT 5,CHNBAR(CNTRL),273 ; store
is it there and unselected?
no - check next channel
NI/CI port?
yes - check next channel
is this a selected unit?
yes - check next channel
select track 17.
MOVE
STCHN
CCWLST(CCW)
GO
SWRTO
; Check next c
hannel
$CW2: GET
AOBJN
CNTRL
CNTRL, $CW1
; Done - exit
MOVE
PTN
CNTRL. BAD
; get channel word
; start the channel
; start write
; update index-then loop back
; get selected RH back again
; exit
DFSXA
DFSXAM
6057
6058
6059
6060
6061
6062
6063
606A
6065
6066
6067
6068
6069
6070
6071
6072
6073
607A
6075
6076
6077
6078
6079
6080
6081
6082
6083
608A
6085
6086
6087
6088
6089
6090
6091
6092
6093
609A
6095
6096
6097
6098
6099
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3!53B(1242) K:07 21-Aug-(55 Page 102
MAC 29-JuL-85 11:44 N CHANNELS CONTROL ROUTINE
•/^************************************************ ********************
;* SCWRTZ - Start n channels writing using dummy buffer
;#***********••********♦**********************************************
SEQ 0211
035665
035666
035667
035670
035671
035672
035673
035674
035675
035676
035677
035700
035701
035702
035703
035704
035705
035706
035707
035710
035711
035712
035713
260 17 0 00 035714
202 16 0 00 000005
205 16 0 00 777764
261 17 0 00 000016
405 16 0 00 min
336 00
254 00
333 00
254 00
306 05
254 00
0 16 060647
0 00 035707
0 16 060633
0 00 035707
0 16 000000
0 00 035707
201 00 0 00 000020
137 00 0 00 070403
510 00 0 07 061342
541 00 0 00 050542
260 17 0 00 033017
2uJ 15 0 16 060753
260 17 0 00 034274
262 17 0 00 000016
253 16 0 00 035670
200 16 0 00 000^05
200 15 0 16 060r53
263 17 0 00 000000
SCWRTZ;
$CWZ1:
GO
MOVEM
MOVSI
PUT
AND I
STPOS
CNTRL.BAD
CNTRL,-14
CNTRL
CNTRL.-1
position all unsel units for writes
save selected RH
init controller index
Select channel
SKIPN
JRST
SKIPLE
JRST
CAIN
JRST
Start a write
MOVE I
DPS
HLLZ
HRRI
STCHN
MOVE
GO
REQST(CNTRL)
$CUZ2
CHTYPE(CNTRL)
$CWZ2
BAD, (CNTRL)
$CWZ2
20
is it there and unselected?
no - check next channel
NI/CI pert?
yes - cKeck next channel
is this a selected unit?
yes - check next channel
[POINT 5, CHN8AR(CNTRL), 27]
get track 17.
CCWLST(CCW)
DMYBUF
DEV,CHNDEV(CNfRL)
SWRTO
Check next channel
$CWZ2;
GET
A08JN
Done - exit
MOVE
MOVE
RTN
CNTRL
CNTRL, SCWZI
CNTRL.BAD
DEV.CHNDEV(CNTRL)
get channel word
merge address with byte count
start the channel
get device #
start the write operation
update CNTRL, loop till done
get selected RH back again
get device # back
exit
DFSXA DECSYSTEM KLIO CHANNLL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 103
DFSXAM MAC 29-JuL-85 11:A4 N CHANNELS CONTROL ROUTINE
SEQ 0212
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
035714 202 16 0 00 000005
035715 476 00 0 00 075026
035716 205 16 0 00 77777Q
035717 337 00 0 16 060647
035720 254 00 0 00 035740
035721 306 05 0 16 000000
035722 254 00 0 00 035740
035723 200 15 0 16 060753
035724 607 15 0 00 000004
035725 254 00 0 00 035740
035726 200 00 0 16 061033
035727 301 00 0 00 000162
035730 254 00 0 00 035736
035731 260 17 0 00 0640s5
035732 005 00 0 00 070451
035733 260 17 0 00 064112
035734 260 17 0 00 064112
035735 260 17 0 00 064112
035736 200 00 0 16 061033
035737 202 00 0 16 061017
035740 253 16 0 00 035717
035741 200 16 0 00 000005
035742 200 15 0 16 060753
035743 402 00 0 00 075026
035744 263 17 0 00 000000
;* $TPOS - Posi
*******************************************************
tion all unselected tape units
*******************************************************
$TPOS: MOVEM CNTRL,BAD
SETOM
MOVSI
$TP0S1: SXIPG
JRST
CAIN
JRST
MOVE
TLNN
JRST
MOVE
CAIL
JRST
GO
FAULT4
GO
GO
GO
MOVE
MOVEM
$TP0S2: AOBJN
MOVE
MOVE
SETZM
RTN
WRTPHS
CNTRL,-10
REQST(CNTRL)
$TP0S2
BAD,(CNTRL)
$TP0S2
DEV,CHNDEV(CNTRL)
DEV,4
$TP0S2
TAPECC(CNTRL)
162
$TPOS2-2
$PEF
<POSITION ERROR - $PEF>
CLNTAP
CLNTAP
CLNTAP
TAPECC(CNTRL)
TAPEDC(CNTRL)
CNTRL.STPOSI
CNTRL,BAD
DEV,CHNDEV(CNThL)
WRTPHS
save selected RH
set write phase for $PEF
I'm't control Ler index
IS it there and unselected
no
controller selected?
yes
get device #
skip if tape
if not - bypass next section
get current position
skip if not beyond EOF
if beyond-go look at others
position beyond EOF
move tape up 3 inches
move tape up 3 inches
move tape up 3 inches
get current position
make desired position
update cntrl-loop back
get selected *^H back again
get DEV index back
clear write phase flag
exit
DFSXA
DFSXAM
6139
61 AO
6U1
6U2
6U3
61 AA
61A5
61 A6
61A7
61 A8
61A9
6150
6151
6152
6153
61 5A
6155
6156
6157
6158
6159
6160
6161
6162
6163
61 6A
6165
6166
6167
6168
6169
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5:53B(12A2) 1A:07 21-Aug-85 Page 10A
MAC 29-Jul-85 11:AA N CHANNELS CONTROL ROUTINE
/>*******•**♦************♦**************•************•••**************
* STPOSR - Position all unselected tape units
/^******************* ********** ***************************************
SEQ 0213
0357A5 202 16 0 00 000005
0357A6 A02 00 0 00 075026
0357A7 205 16 0 00 11717^
035750 337 00 0 16 0606A7
035751 25A 00 0 00 03576A
035752 306 05 0 16 000000
035753 25A 00 0 00 03576A
03575A 200 15 0 16 060753
035755 607 15 0 00 OOOOOA
035756 25A 00 0 00 03576A
035757 550 00 0 00 000007
035760 2A2 00 0 00 OOOOOA
035761 A35 00 0 10 000000
035762 202 00 0 16 061017
035763 260 17 0 00 063730
03576A 253 16 0 00 035750
035765 200 i6 0 00 000005
035766 200 15 0 16 060753
035767 2o< 17 0 00 000000
STPOSR: MOVEM
SETZM
MOVSI
STPORI: SKIPG
JRST
CAIN
JRST
MOVE
TLNN
JRST
HRRZ
LSH
lORI
MOVEM
GO
$TP0R2: AOBJN
MOVE
MOVE
RTN
CNTRL,8AD
WRTPHS
CNTRL.-10
REQST(CNTRL)
$TP0R2
BAD,(CNTRL)
$TP0R2
DEV,CHNDEV(CNTRL)
DEV,A
$TP0R2
ecu
A
(PATRN)
TAPEDC(CNTRL)
$TPU
CNTRL,$TP0R1
CNTRL.BAD
DEV,CHNDEV(CNTRL)
save selected RH
setup write phase for $TPU
init controller index
is it there and unselected
no
skip if not selected CNTRL
here if selected CNTRL
?et device number
ape?
no - bypass next section
get CCW index
add in PATRN index
save it
position tape
update CNTRL, loop till done
get selected RH back again
get device index back
exit
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 105
DFSXAM MAC 29-JuL-85 11:AA N CHANNELS CONTROL ROUTINE
SEQ 02^^
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6iS3
618^
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
035770 260 17 0 00 035745
035771
035772
035773
035774
035775
035776
035777
036000
036001
036002
036003
036004
036005
036006
036007
036010
202 16 0 00 000005
205 16 0 00 777764
261 17
405 16
336 00
254 00
333 00
25'' 00
3Cj 05
0 00 000016
0 00 777777
0 16 060647
0 00 036014
0 16 060633
0 00 036014
0 16 000000
254 00 0 00 036014
201 00 0 00 000020
137 00 0 00 070403
331 00 0 16 060753
200 00 0 07 061351
335 00 0 16 060753
200 00 0 07 061342
036011 260 17 0 00 033017
036012 200 15 0 16 060753
036013 260 17 0 00 034640
036014 262 17 0 00 000016
036015 253 16 0 00 055773
036016 200 16 0 00 000005
036017 200 15 0 16 060753
036020 263 17 0 00 000000
•/^***»****- ***********************************************************
;* SCRDRA - Start n channels reading backward
•#********•**************♦*********************•'**********************
SCRDRA: GO
MOVEM
MOVSI
Select channel
STPOSR
CNTRL.BAD
CNTRL,-14
SCRRl
PUT
AND I
SKIPN
JRST
SKIPLE
JRST
CAIN
JRST
CNTRL
CNT° ,-1
REQiT(CNTRL)
$CRR2
CHTYPE(CNTRL)
$CRR2
BAD, (CNTRL)
$CRR2
position tape
save selected RH
init controller index
IS It there and unselected?
no - check next channel
NI/CI port?
yes - check next channel
is this a selected unit?
yes - check next channel
Start a read to dummy buffer
MOVEI
DPB
SKIPL
MOVE
SKIPGE
MOVE
STChN
MOVE
GO
20
get track 17.
[POINT 5, CHNBAR( CNTRL), 27: ; save it
CHNDEV(CNTRL)
RCWLST(CCW)
CHNDEV(CNTRL)
CCWLST(CCW)
DEV,CHNDEV(CNTRL)
SRDRO
Check next channel
$CRR2;
GET
A06JN
Done - exit
MOVE
MOVE
RTN
CNTRL
CNTRL, SCRRl
CNTRL, BAD
nr7,CHNDEV(CNTRL)
skip if device selected
get channel word
skip if RH20 only selected
get forward pointer
start the channel
get device number
start read reverse
loop back
get selected RH back
get device number back
exit
"1 r-
1
DFSXA
DFSXAM
6216
6217
6218
6219
6220
6221
6222
6223
622A
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 106
MAC 29-JUL-85 11:44 N CHANNELS CONTROL ROUTINE
#**•«****************•****•***********♦******************************
* SCRDRZ - Start n channels reading backward using dummy buffer
#*********. '.•**•***********•*•********************************** *******
SEQ 0215
036021 260 17 0 00 035745
036022 202 16 0 00 000005
036023 205 16 0 00 777764
036024
036025
^36026
U36027
03b030
036031
036032
036033
036034
036035
036036
036037
036040
036041
036042
261 17 0 00 000016
405 16 0 00 viin
336 00 0 16 060647
254 00 0 00 036046
333 00 0 16 060633
254 00 0 00 036046
306 05 0 16 000000
254 00 0 00 036046
201 00 0 00 000020
137 00 0 00 070403
331 00
510 00
16 060753
07 061351
335 00 0 16 060753
510 00 0 07 061342
541 00 0 00 051541
036043 260 17 0 00 033017
036044 200 15 0 16 060753
036045 260 17 0 00 034640
036046 262 17 0 00 000016
036047 253 16 0 00 036024
036050 200 16 0 00 000005
036051 200 15 0 16 060753
036052 263 17 0 00 000000
SCRDRZ: GO
MOVEM
MOVSI
; Select channel
STPOSR
CNTRL.BAD
CNTRL,-14
$CRRZ1
PUT
AND I
SKIPN
JRST
SKIPLE
JRST
CAIN
JRST
CNTRL
CNTRL,-1
REQST(CNTRL)
$CRRZ2
CHTYPE(CNTRL)
$CRRZ2
BAD, (CNTRL)
$CRRZ2
position tape
save selected RH
init controller index
is it there and unselected?
no - check next channel
NI/CI r"-t?
yes - c'- ='k next channel
is thii; -. selected unit?
yes - check next channel
Start a read to dummy buffer
MOVE I
DPS
SKIPL
HLLZ
SKIPGE
HLLZ
HRRI
STCHN
MOVE
GO
20
[POINT 5,CHNBAR(CNTRL),2^2
CHNDEV(CNTRL)
RCWLST(CCW)
CHNDEV(CNTRL)
CCWLST(CCU)
DMYBUF+777
DEV,CHNDEV(CNTRL)
SRDRO
Check next channel
$CRRZ2;
GET
AOBJN
Done - exit
HOVE
MOVE
RTN
CNTRL
CNTRL, SCRRZI
CNTRL, BAD
DEV,CHNDEV(CNTRL)
get track 17.
skip if device selected
get channel word
skip if RH20 selected
get forward CCW
merge in address
start the channel
get device number
start the read reverse
loop back
get selected RH back
get device number back
exit
L
DFSXA
DFSXAM
6262
6263
626A
6265
6266
6267
6268
6269
6270
6271
filll
bill
6275
6276
till
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO H;53B(1242) U:07 21-Aug-85 Page 107
MAC 29-Jul-85 11:44 N CHANNELS CONTROL ROUTINE
•#**•***********************************************♦****************♦
;* $CRDA - Start n channels reading
SEQ 0216
036053
036054
036055
036056
036057
036060
036061
036062
036063
036064
036065
036066
036067
03607C
036071
0360^2
036073
036074
036075
036076
036077
202 16 0 00 000005
205 16 0 00 777764
261 17
405 16
336 00
254 00 0
333 00 0
254 00 0
306 05 0
254 00 0
00 000016
00 777777
16 060647
00 036073
16 060633
00 036073
16 000000
00 036073
201 00 0 00 000020
137 00 0 00 070403
200 00 0 07 061342
260 17 0 00 033017
200 0 16 060753
260 1/ 0 00 034517
262 17 0 00 000016
253 16 0 00 036055
200 16 0 00 000005
200 15 0 16 060753
263 17 0 00 000000
SCRDA:
M0VE«
MOVSI
CNTRL,BAD
CNTRL,-14
; Select channel
$CR1 : PUT CNTRL
ANDI CNTRL, -1
SKIPN REQST(CNTRL)
JRST $CR2
SKIPLE CHTYPE(CNTRL)
JRST $CR2
CAIN BAD. (CNTRL)
JRST $CR2
; Start a read to dummy buffer
save selected RH
im't controller index
is It there and unselected?
no - check next channel
NI/CI port?
)fes - check next channel
is this a selected unit?
yes - check next channel
MOVE I
DPS
MOVE
STCHN
MOVE
GO
20 .
[POINT 5, CHNBAR(CNTRL), 27]
CCWLST(CCW)
get track 17.
DEV,CHNDEV(CNTRL)
SRDO
Check next channel
$CR2;
GET
AOBJN
Done - exit
MOVE
MOVE
RTN
CNTRL
CNTRL, $CR1
CNTRL, BAD
DEV,CHNDEV(CNTRL)
get channel word
start the channel
get device number
start read operation
get selected RH back
get device number back
exit
1
DFSXA
DFSXAM
6302
6303
630A
6305
6306
6307
6308
6309
631 C
6311
6312
6313
63U
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
633?
6335
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 108
MAC 29-JUL-85 11:44 N CHANNELS CONTROL ROUTINE
•#*******•**************•*************************************♦*******
;* SCRDZ - Start n channels reading using the dummy buffer
•#*************•*****•*♦**********************************************
SEQ 0217
DF!
DF!
036100 260 17 0 00 035745
036101 202 16 0 00 000005
0^6102 205 16 0 00 777764
036103
036104
036105
036106
036107
C36110
036111
036112
056113
036114
056115
056116
056117
056120
036121
0561 ?2
056125
261
405
17 0
16 0
556 00 0
254 00 0
555 00 0
254 00 0
506 05 0
254 00 0
00 000016
00 nnn
16 060647
00 056122
16 060655
00 056122
16 000000
00 056122
201 00 0 00 000020
157 00 0 00 070405
■JIO 00 0 07 061542
541 00 0 00 050542
260 17 0 00 055017
200 15 0 16 060755
2oJ 17 0 00 054517
262 17 0 00 000016
255 16 0 00 056105
056124 200 16 0 00 000005
056125 200 15 0 16 060755
036126 263 17 0 00 000000
$CRDZ:
GO
MOVEM
MOVSI
STPOSR
CNTRL,BAD
CNTRL,-14
; Select channel
$CRZ1 : PUT
AND I
SKIPN
JRST
SKIPLE
JRST
CAIN
JRST
CNTRL
CNTRL,-1
REQST(CNTRL)
$CRZ2
CHTYPE (CNTRL)
$CRZ2
BAD, (CNTRL)
$CRZ2
position tape
save selected RH
init controller index
is it there and unselected?
no - check npxt channel
NI/CI port?
yes - check next channel
is this a selected unit?
yes - check next channel
Start a read to dummy buffer
MOVE I
DPS
HLLZ
HRRI
STCHN
MOVE
60
20
[POINT 5, CHNBAR( CNTRL), 27:
CCWLST(CCU)
DMY8UF
DEV,CHNDEV(CNTRL)
SRDO
get channel word
merge in address
start the channel
get device number
start read operation
Check next channel
$CRZ2;
GET
AOBJN
Done - exit
MOVE
MOVE
RTN
CNTRL
CNTRL, $CRZ1
CNTRL, SAD
DEV.CHNDEV(CNTRL)
get selected RH back
get device number back
exit
n
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A?) U:07 21-Aug-85 Page 109
DFSXAM MAC 29-Jul-85 11:4A N CHANNELS CONTROL ROUTINE
;* RCMP1 - Random data compare
SEQ 0218
DF
DF
63^*^
63A5
63A6
6347
63A8
63A9
036127
261 11 0 00 070A16
6350
036130
261 11 0 00 000016
6351
036131
200 00 0 16 061077
6352
6353
635A
036132
202 00 0 00 036152
036133
135 01 0 00 070232
6355
0361 3A
213 00 0 00 000001
6356
036135
517 00 0 00 000001
6357
6358
6359
036136
5A0 01 0 16 0AA5A1
036137
260 17 0 00 032521
6360
0361A0
202 00 0 00 000006
6361
0361A1
AOA 06 0 00 060550
636?
0361A2
200 05 0 01 000000
6363
636A
6365
0361A3
AOA 05 0 00 060550
0361 AA
312 05 0 00 000006
6366
0361A5
260 17 0 00 0A26A0
6367
6368
6369
6370
0361A6
253 01 0 00 036137
0361A7
336 00 0 16 0AA136
6371
036150
350 00 0 17 000000
'- .72
o373
637A
036151
263 17 0 00 000000
036152
OuJ 00 0 00 000000
RCMP1
RCf1P2:
PUSH
PUSH
MOVE
MOVEM
LDB
MOVNS
HRLZS
HRR
GO
MOVEM
AND
MOVE
AND
CAME
60
SKIPN
AOS
RTN
ERRDAT,[SIXBIT/STXDAT/]
ERRDAT,CNTRL
RNBASE(CNTRL)
BASE
save controller number
get random base
move It to base
B, [POINT 11.CHNXFR(CNTRL),13]
B
B
B,DATBUF(CNTRL)
RAND
GOOD
600D.DATMSK
BAD.(B)
BAD,DATMSK
BAD, GOOD
PSHBAD
AOBJN B.RCMP2
BADCNT(CNTRL)
(P)
make length negative
put it in left half
merge beginning of virtua
get random number
put number into good
and good with mask
get word to check
and with check mask
compare good with bad
go put bad on stack
loop back
skip if errors found
setup skip if no errors
page
BASE:
n
r
DFSXA
DFSXAM
6375
6376
6377
6378
6379
6380
63R1
6382
6383
638A
6385
6386
6387
6388
6389
6390
6391
6392
6393
639A
6395
6396
6397
6398
6399
6A00
6A01
6A02
6A03
6A04
6A05
6A06
6A07
6A08
6A09
6A10
6A11
6A12
6A13
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 110
MAC 29-JuL-85 11:AA N CHANNELS CONTROL ROUTINE
•#**********************♦♦*****•**************************************
;* SETCTL - Setup controller tables for execution
SEQ 0219
DF
Df
036153
0361 5A
036155
036156
036157
036160
036161
036162
036163
0361 6A
036165
036166
036167
036170
03617*
036172
036173
0361 7A
036175
036176
036177
036200
036201
036202
036203
03620A
036205
200 00
337 00
200 00
202 00
337 00
200 00
202 00
337 00
200 00
202 00
337 00
200 00
202 00
263 17
0 00 070A17
SETCTL: MOVE
0 16 060633
SKIPG
0 16 033526
MOVE
0 OA 061156
MOVEM
0 16 060633
SKIPG
0 16 033536
MOVE
0 OA 0611 A3
MOVEM
0 16 060633
SKIPG
0 16 0335A6
MOVE
0 OA 061 20A
MOVEM
0 16 060633
SKIPG
0 16 033556
MOVE
0 OA 061171
MOVEM
0 00 000000
RTN
A02 00
205 16
331 00
25A 00
260 17
53 J 00
253 16
200 00
202 00
202 00
202 00
202 00
263 17
0 00 OOOOOA
0 00 imn
0 16 0606A7
0 00 036177
0 00 036153
0 00 OOOOOA
0 00 036173
0 00 0676A1
0 OA 061 1A3
0 OA 061156
0 OA 061171
0 OA 061 20A
0 00 000000
CJFCL]
CHTYPE(CNTRL)
.WCLKKCNTRL)
SCLKKCLKCNT)
CHTYPE(CNTRL)
.WCLKO(CNTRL)
SCLKO(CLKCNT)
CHTYPE(CNTRL)
.RCLKKCNTRL)
SCLK3(CLKCNT)
CHTYPE(CNTRL)
.RCLKO(CNTRL)
SCLK2(CLKCNT)
get NOOP
IS this controUer an NI/CI port?
no - get clock set command
put in table
is this controller an NI/CI port?
no - get clock clear command
put clock clear into table
is this controller an NI/CI port?
no - get read clock
save It
is this controller an NI/CI port?
no - get read reset clock
save It
exit
;4f ********************************************************************
;* TRMTBL - Terminate test tables
;#********************************************************************
TRMTBL: SETZM
MOVSI
SKI PL
JRST
GO
AOS
TMTBL1: AOBJN
MOVE
MOVEM
MOVEM
MOVEM
MOVEM
RTN
CLKCNT
CNTRL,-10
REQST(CNTRL)
TMTBL1
SETCTL
CLKCNT
CNTRL,TRMTBL+2
[RTN J
SCLKO(CLKCNT)
SCLKKCLKCNT)
SCLK2(CLKCNT)
SCLK3(CLKCNT)
init index
init controller index
is this controller selected
no - select next one and check
yes - build test table entry
update index
do all controllers
?et return instruction
erminate SCLKO
terminate SCLK1
terminate SCLK2
terminate SCLK3
exit
r
___j L
036206
036207
036210
036211
036212
036213
0362K
036215
036216
036217
036220
036221
036222
036223
03622A
036225
036226
037
260
205
261
405
336
25A
200
01
17
16
17
16
00
00
15
0 00 070456
0 00 036260
777764
DFSXA DECSYSTEM KLlO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:44
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
INTERACTION TEST - VER 0,7 MACRO X53B(1242)
TOTALS PRINTING ROUTINES
SU9TTL TOTALS PRINTING ROUTINES
14:07 21-Aug-85 Page 111
SEQ 0220
D
D
•#*•*****•************•***********************************************
;* PRTOT - Print totals
./^********** **********************************************************
00
0 00 000016
0 00 inin
0 16 060647
0 00 036221
0 16 060753
PRTOT;
PT0T1;
260 17
260 17
260 17
262 17
253 16
263 17
00 040016
00 036227
00 036242
00 000016
00 036211
00 000000
037 15 0 00 000001
037 01 0 00 000056
263 17 0 00 000000
PT0T2:
PTDEC:
FMSGC
GO
MOVSI
PUT
AND I
SKIPN
JRST
MOVE
GO
GO
GO
GET
AOeJN
RTN
PNTDCF
PNTCIF
RTN
<TEST SUMMARY-RUNTIME:
PTIME
CNTRL,-14
CNTRL
CNTRL.-1
REQST(CNTRL)
PT0T2
DEV,CHNDEV(CNTRL)
PRTHDR
PWSTAT
PRSTAT
CNTRL
CNTRL, PTOTl
print the time
im't controller index
skip if selected
otherwise - select another
get device number if setup
(if not setup then = 0)
print the header
print write statistics
print read statistics
update CNTRL index, loop till done
exit
print in decimal
print the period
exit
i
r
DFSXA
DFSXAM
6A39
6AA0
6AA1
64A2
6AA3
6AA4
6AA5
6AA6
6A47
6AA8
6A49
6A50
6A51
6A52
6A53
6A5A
6A55
6A56
6A57
6A58
6A59
6A60
6A61
6A62
6A63
6A6A
6A65
6A66
6A67
6A68
6A69
6A70
6A71
6A72
6A73
6A7A
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) K:07 21-Aug-85 Page 112
MAC 29-Jul-85 11:AA TOTALS PRINTING ROUTINES
;/|f***«************************************************ ****************
;* PWSTAT - Print write statistics
•#********************************************************************
SEQ 0221
036227
036230
036231
036232
036233
03623A
036235
036236
036237
J362A0
0362A1
0362A2
0362A3
0362AA
0362A5
0362A6
0362A7
036250
036251
036252
036253
03625A
036255
036256
036257
037 01
200 00
260 17
037 01
200 00
260 17
037 01
200 00
260 17
037 01
263 17
0 00 070463
PUSTAT: FMSG
0 16 0AA011
MOVE
0 00 03622A
GO
0 00 070A67
FMS6
0 16 0AA055
KOVE
0 00 036224
GO
0 00 070473
FMSG
0 16 044041
MOVE
0 00 036224
GO
0 00 030242
PCRLF
0 00 000000
RTN
037 01
200 00
260 17
037 01
200 00
260 17
037 01
200 00
2oJ 17
037 01
200 00
260 17
037 01
263 17
0 00
0 16
0 00
0 00
0 16
0 00
0 00
0 16
0 00
0 00
0 16
00
00
00
070477
044025
03f'^4
07 j3
04'. 71
036;: ^'4
070507
044121
036224
070513
044105
036224
030242
000000
<W0RDS WRITTEN: >
TOTURT(CNTRL) ; get value
PTDEC ; print decimal
< WRITE RETRIES: >
WTRIES(CNTRL) ; get value
PTDEC
< WRITE ERRORS: >
WRTERS(CNTRL) ; get value
PTDEC
; end of line
; Gxit
;#*♦********•*************•******•*»********•**•********^ *************
;* PRSTAT - Print read statistics
.ffid,******************** **********************************************
PRSTAT: FMSG
MOVE
GO
FMSG
MOVE
GO
FMSG
MOVE
GO
FMSGC
MOVE
GO
PCrtL.
RTN
<WORDS READ: >
TOTRD(CNTRL)
PTDEC
< READ ERRORS:
RDERS(CNTRL)
PTDEC
< DATA ERRORS:
BADDATCCNTRI )
PTDEC
<CHN EPPr.o: >
CHNERS(..JRL)
PTDEC
!09
DrSXA
DFSXAM
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) 14:07 21-Aug-85 Page 113
MAC 29-JUL-85 11:44 TOTALS PRINTING ROUTINES
* PTIME - Print the run time
#t************ *******************************************************
.J 0222
036260
036261
036262
036263
036264
036265
036266
036267
036270
036271
036272
036273
036274
036275
036276
036277
036300
036301
036302
036303
036304
036305
036306
036307
036310
036311
261 17 0
261 17 0
7 020 04
200 00 0
200 01 0
244 00 0
234 00
037 15
037 01
200 00
336 00 0
254 00 0
230 00 0
037 15 0
037 01 0
20C 00
336 00 0
254 00 0
230 00 0
037 15 0
037 01 0
262 17 0
262 17 0
263 17 0
00 000000
00 000001
0 00 035443
00 035443
00 035444
00 777764
00 070517
00 000001
00 070520
00 000001
00 000000
00 036310
00 070521
00 000001
00 070520
00 000001
00 000000
00 036310
00 070522
00 000001
00 030242
00 000001
00 000000
00 000000
PTIME:
PTIM1
PUT
PUT
DATAI
MOVE
MOVE
ASHC
DIV
PNTDCF
FMSG
MOVE
SKIPN
JRST
IDIV
PNTDCF
FMSG
MOVE
SKIPN
JRST
IDIV
PNTDCF
PCRLF
GET
GET
RTN
A
B
TIM,TIMH
A.TIMH
B,TIML
A,-*D12
A.[*D3600000000]
<:>
A,8
A
PTIMX
A.[*D60000000:
<:>
A,B
A
PTIMX
A. [*D1 000000]
B
A
save A
save B
read time base
get high value
get low value
right justify
convert to hours
print hours
print colon
get remainder
skip if non-zero
exit
convert to minutes
print minutes
get remainder
skip if non-zero
take exit
convert to seconds
print seconds
exit
0:).' 02 0 00 000001
254 00 0 00 036304
PTIMX: PNT2F
JRST
.'^TIMI
1210
DFSXA
DFSXAM
6508
6509
6510
6511
6512
6513
65H
6515
6516
6517
6518
6519
6520
6521
6522
6523
652A
6525
6526
6527
6528
6529
6530
653''
6532
6533
6534
6535
6536
6537
6538
6539
65A0
65A1
6542
65A3
6544
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 114
MAC 29-JUL-85 11:44 COMMAND CONTROL
SUBTTL COMMAND CONTROL
./If**** ****************************************************************
;* SETPRM - Setup the variable parameters for system exerciser
;#*********************************************♦**********************
SEQ 0223
036312 332 00 0 00 074775
036313 254 00 0 00 036334
036314 476 00 0 00 074775
036315 402 00 0 00 060647
036316 200 00 0 00 070523
036317 251 00 0 00 061323
036320 260 17 0 00 041574
036321 260 17 0 00 041470
036322 260 17 0 00 041372
036323 260 17 0 00 065453
036324 260 17 0 00 041563
036325 402 00 0 00 074755
036326 037 10 0 00 000002
036327 607 00 0 00 000010
036330 254 00 0 00 036502
036331 037 01 0 00 070524
036332 334 00 0 00 000000
036333 037 00 0 00 061436
036334
036335
036336
036337
036340
200 17 0 00 075012
037 01 0 00 070530
037 01 0 00 000076
037 00 0 00 000040
260 17 0 00 041542
SETPRM: SKIPE
JRST
SETOM
SETZM
MOVE
BLT
GO
GO
GO
GO
GO
SETZM
SWITCH
TLNN
JRST
FMSGCD
SKI PA
DIALG
STPRM1
DIALG
REQST
[REQST.,REQST-t-1]
SCLKX
ZROSUM
SELPRM
RHCFG
FECFG
ENARH
AMTCTL
OPRSEL
AUTOS
<TYPE ? FOR HELP>
; Print List of available commands
STPRMO: PNTMSG CMESG
configure first time?
no - continue
set dialogue flag
clear first slot in request table
get BLT pointer
clear all test tables
zero summary table
specify PI level and data mask
configure RH20/Ports and devices
configure DTE's
enable RH20's and NI/CI ports
clear amount controllers selected
get switches
operator selection?
no - auto select and go
print command message
Print prompt "DFSXA>" and look for a command
STPRM1
MOVE
FMSGC
PNTCIF
PSP
GO
P,SAVEP
<DFSXA>
INPLIN
restore inited P pointer
print prompt
input a line
!11
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 115
DFSXAM MAC 29-JjL-85 11:4A COMMAND CONTROL
SEQ ^I2i^
65A5
6546
65 ',7
65A8
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
036341
036342
036343
036344
036345
036346
036347
036350
036351
036352
036353
036354
036355
036356
036357
036360
036361
036362
036363
036364
036365
036366
036367
036370
036371
036372
036373
036374
036375
036376
036377
036400
036401
036402
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
254 00
306 00
2>' 00
306 00
254 00
302 00
306 00
25h 00
254 00
0 00 000077
0 00 036333
0 00 000101
0 00 036502
0 00 000102
0 00 036546
0 00 000103
0 00 036607
0 00 000104
0 00 036443
0 00 000105
0 00 036621
0 00 000110
0 00 036525
0 00 000115
0 00 036614
0 00 000116
0 00 036532
0 00 000120
0 00 037075
0 00 000122
0 00 037034
0 00 000123
0 00 036641
0 00 000124
0 00 062736
0 00 000132
0 00 037061
0 00 000107
0 00 036405
0 00 000010
0 00 000015
0 00 036334
0 00 037332
; Decode command
CAIN
1 I'pl 1
JRSI
STPRMO
CAIN
"A"
JRST
AUTOS
CAIN
'B"
JRST
DO.B
CAIN
JRST
DO.CP
CAIN
"D"
JRST
DO.D
CAIN
JRST
DO.E
CAIN
"H"
JRST
DO.H
CAIN
"M"
JRST
D0.M8
CAIN
"N"
JRST
00. N
CAIN
iipii
JRST
DO.P
CAIN
"R"
JRST
DO.R
CAIN
"$••
JRST
DO.S
CAIN
"T"
JRST
SYSGEN
CAIN
"Z"
JRST
DO.Z
CAIN
"G"
JRST
00.6
CAIE
10
CAIN
15
JRST
STPRM1
JRST
CMDERR
typed a question mark?
yes - pnnt list of commands
auto select command?
yes - go handle
is it BT FN: or BL FN: or BH FN:?
yes - go handle
CP command?
yes - print CPU status
DDT or Dn or DL commands?
yes - go handle
EXAM command?
yes - go process
HELP command?
Ses - go do it
B command?
yes - print MBOX status
print register names command?
fes - go handle
RINT command?
yes - go handle
rE-INIT command?
yes - go handle
SELECT command?
yes - go handle
TEST command?
yes - enter system generator
ZERO table command?
yes - re-init table
GO command?
yes ' go handle
is it end of line?
CR or LF?
go ask for another command
no - command error
— i
}212 I
OFSXA
DFSXAM
6582
6583
658A
6585
6586
6587
6588
6589
6590
6591
6592
6593
659A
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609
6610
6611
6612
6613
66U
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 116
MAC 29-JuL-85 11:44 COMMAND CONTROL
* DO.G - GO command
/If********************************************************************
SEQ 0225
036403 336 GO 0 00 074755
036404 254 00 0 00 070552
036405 260 17 0 00 041561
036406 306 00 0 00 000015
036407 254 00 0 00 030624
00 000000
00 000060
00 000001
00 041561
00 000015
00 036422
00 000003
00 000060
00 000001
00 036413
202 01 0 00 075025
323 01 0 00 037332
303 01 0 00 000027
254 00 0 00 037332
260 17 0 00 036171
260 17 0 00 033200
036410
400 01 0
036411
275 00 0
036412
272 00 0
036413
260 17 0
036414
306 00 0
036415
254 00 0
036416
242 01 0
036417
275 00 0
036420
272 00 0
036421
254 00 0
036422
036423
036424
036425
036426
03642.'
036430
036431
036432
036433
036434
036435
036436
036437
402 00 0
402 00 0
402 00
201 00
202 00
402 00
200 00
251 00
00 074777
00 074776
00 075024
00 000200
00 060631
00 044153
00 067657
00 044202
DO.G: SKIPN AMTCTL ; skip if devices selected
JRST [FMS6C <N0 UNITS SELECTED !>
FMS6C <PLEASE SELECT THE DESIRED UNITS BEFORE TYPING 6.>
JRST STPRM1] ; return to command decoder
; Now check to see if a particular test was specified
GO
CAIN
JRST
INPBYT
15
R2
Decode the test specified
SETZ
SUB I
ADDM
DO. GO: GO
CAIN
JRST
LSH
SUBI
ADDM
JRST
It
1
INPBYT
15
DO. 61
66
1
DO. 60
Range check the test number
D0.G1:
MOVEM
JUMPLE
CAILE
JRST
1.TSTNM
1,CMDERR
1,27
CMDERR
TRMTBL
STRAP
; Test initialization
SETZM INTCNT
SETZM ERRLP*
SETZM TSTLP#
MOVE I 200
MOVEM DATLEN
SETZM RH.DNE
MOVE [RH.DNE, ,RH.DNE+1]
BLT RH.ERR+l!
get next byte
carriage return?
yes - run them all
clear test number
convert to octal
add to test number
get next byte
carriage return?
yes - run them all
left shift one octal digit
convert to octal
add to test number
Loop till see CRLF
save test number
too small? yes - error
too large?
yes - error
terminate test tables
set trap catcher for interrupts
clear interrupt count location
error loop address
test loop address
set default data length
clear status and errors
)213
DFSXA
DFSXAM
6631
6632
6633
663A
6635
6636
6637
6638
6639
66A0
66A1
66A2
66A3
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 117
MAC 29-JUL-85 11:44 COMMAND CONTROL
SEQ 0226
Dispatch to test
036440 200 01 0 00 075025
MOVE
XCT
036441 256 00 0 01 070554
036442 254 00 0 00 036334
JRST
1.TSTNM
C60
GO
GO
GO
GO
GO
GO
GO
GO
GO
60
GO
GO
GO
GO
GO
GO
GO
GO
GO
GO
GO
GO
STPRM1
TST01
TST02
TST03
TST04
T5T05
TST06
TST07
TST10
T.T11
TST12
TST13
TST14
TST15
TST16
TST17
TST20
TST21
TST22
TST23
TST24
TST25
TST26
TST27]-1(1)
jet test number
jispatch to test
return to command prompt
02^^
OFSXA
DFSXAM
6659
6660
6661
6662
6663
666A
6665
6666
6667
6668
6669
6670
6671
6672
6673
667A
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 118
MAC 29-JuL-85 11:44 COMMAND CONTROL
#***«*********»*********♦******»*****•***♦******************■*********
* DO.D - DDT or Dn or DL commands
/If***************************************** ***************************
SEQ 0227
036443
036444
036445
036446
036447
036450
036451
036452
036453
036454
036455
036456
036457
036460
036461
036462
036463
036464
036465
036466
036467
036470
036471
036472
036473
036474
036475
036476
036477
036500
036501
260 17 0 00 041561
306 00 0 00 000015
254 00 0 00 070604
306 00 0 00 000114
254 00 0 00 036470
400 01
275 00
272 00
260 17
306 00
254 00
242 01
275 00
272 00
254 00
0 00 000000
0 00 000060
0 00 000001
0 00 041561
0 00 000015
0 00 036462
0 00 000003
0 00 000060
0 00 000001
0 00 036453
202 01
323 01
303 01
2y 00
462 00
254 00
0 00 075025
0 00 037332
0 00 000027
0 00 037332
0 01 042721
0 00 036334
037 01 0
400 01 0
350 00 0
200 00 0
332 00 0
037 02
302 01
254 00
037 00
254 00
00 070606
00 000000
00 000001
00 000001
01 042721
00 000000
00 000027
00 036472
00 030242
00 036334
DO.D;
GO
CAIN
JRST
CAIN
JRST
INPBYT
15
[GO
JRST
I li I I
D0.D2
DDTSRT
STPRMIJ
Decode the test specified
SETZ
SUBI
ADDM
DO. DO: GO
CAIN
JRST
LSH
SUBI
ADDM
JRST
66
1
INPBYT
15
D0.D1
66
1
DO. DO
Range check the test number
DO.Dl
MOVEM
JUMPLE
CAILE
JRST
SETCMM
JRST
; 'DL' command
D0.D2:
D0.D3;
FMSGC
SETZ
AOS
MOVE
SKIPE
PNT2
CAIE
JRST
PCRL
JRST
1,TSTNM
KCMDERR
1,27
CMDERR
TSTDIS(l)
STPRM1
<DisabLed tests - >
1,
1
1
TSTDISd)
1,27,
00. D3
STPRM1
get next byte
carriage return?
yes - start DDT
was It a 'DL' command
yes - go handle
clear test number
convert to octal
add to test number
get next byte
carriage return?
yes - go handle
left shift one octal digit
convert to octal
add to test number
loop till see CRLF
save test number
too small? yes - error
too large?
yes - error
no - complement the flag
return to command prompt
heading
initialize test number
point to next test
get for printing
disabled?
yes - print it
done yet?
no - loop till done
return to command prompt
0215
DFSXA
DFSXAM
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 119
MAC 29-JUL-85 11:44 COMMAND CONTROL
;* AUTOS - Auto select and go
SEQ 0228
261 17 0 00 000016
405 16 0 00 111111
336 00 0 16 066127
254 00 0 00 036520
AUT0S1: PUT
AND!
SMPN
JRST
; Check for D
336 00 0 16 060633
SKIPN
JRST
036502 205 16 0 00 777764
036503
036504
036505
036506
036507
036510 254 00 0 00 070612
036511 331 00 0 16 060633
036512 254 00 0 00 070617
036513 205 01 0 00 400000
036514 205 15 0 00 11111^
036515 260 17 0 00 043305
036516 254 00 0 00 070624
036517 253 15 0 00 036515
036520 262 17 0 00 000016
036521 253 16 0 00 036503
036522 260 17 0 00 037110
036523 254 00 0 00 036334
036524 254 00 0 00 030624
AUTOS: MOVSI CNTRL,-14
; Select controller
CNTRL
CNTRL,-1
CHNAVL (CNTRL)
AUT0S2
CHTYPE (CNTRL)
[MOVE I B,1
MOVEM B,REQST(CNTRL)
SETZM CHNDEV(CNTRL)
AOS AMTCTL
JRST AUT0S2]
Check for NI/CI port
SKIPL
JRST
CHTYPE (CNTRL)
CSETOM REQST(CNTRL)
SETZM CHNDEV(CNTRL)
AOS AMTCTL
JRST AUT0S2:
; RH20
MOVSI
MOVSI
RDT
JRST
AOBJN
B. 400000
DEV,-10
CDP8
MOVEM
SETZM
AOS
JRST
DEV..-2
DEV, [POINT 3,B,35
B,REQST(CNTRL)
CHNDEV(CNTRL)
AMTCTL
AUT0S2]
Select next controller
AUT0S2: GET
AOBJN
CNTRL
CNTRL. AUT0S1
Print selection table
GO
JRST
JRST
PRT8L
STPRM1
R2
init controller index
save controller index
zero AOBJN count
does channel exist?
no - select next channel
is this controller a DTE20?
yes - just indicate selected
enter channel selection
clear channel DEV flag
update selection amount
do alt channels
is this controller an NI/CI port?
yes - indicate such
clear channel DEV flag
update selection amount
do all channels
set bit 0
setup device index
attempt read of device type
; merge DEV with loopback indication
enter channel selection
clear channel DEV flag
update selection amount
do alt channels
look for nonexistent device (if none
available, don't use channel)
do all channels
print selection table
no available channels
ok, go run tests
DFSXA
DFSXAM
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
677A
6775
6776
6777
6778
6779
6780
6781
6782
6783
678A
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 120
MAC 29-Jul-85 11:44 COMMAND CONTROL
/^***«*************************** *************************************
* DO.H - Type comrnand List to user
#*************************•******************************************
036525 037 01 0 00 061436
036526 037 00 0 00 061711
036527 037 00 0 00 062167
036530 037 00 0 00 062437
036531 254 00 0 00 036334
036532 037 01 0 00 062437
036533 254 00 0 00 036334
036534 037 01 0 00 070631
036535 260 17 0 00 036260
036536 037 01 0 00 030242
036537 254 00 0 00 036334
036540 462
036541 332
036542 037
036543 336
036544 037
036545 254
00 0 00 075017
00 0 00 075017
01 0 00 070634
00 0 00 075017
01 0 00 070637
00 0 00 036334
DO.H: PNTMSF CMESG
PNTMSG HMESG
PNTMSG EMESG
PNTMSG NMESG
JRST STPRM1
; get commands message'
; get help message
; print error type out format
; get register names message
; return
* DO.N - Type names of Legal registers
DO.N: PNTMSF NMESG
JRST STPRM1
; get names message
; return
* DO.TM - Print runtime
/If********************************************************************
DO.TM: FMS6C <RUNTIME: >
GO PTIME
PCRLF
JRST STPRM1
; return to interpreter
f ********************************************************************
* DO.TR - Complement trace option
/jf****»*******»*******************************************************
DO.TR: SETCMM STRACE
SKIPE STRACE
FMSGCD <CTRACE on]>
SKIPN STRACE
FMSGCD <CTRACE off]>
JRST STPRM1
complement the switch
set now?
yes - print such
set now?
no - print such
return to interpreter
SEQ 0229
1 r
1 0217
DFSXA DECSYSTEM KLIO CHANNE V20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 121
DFSXAM MAC 29-Jul-85 11 :A. COMMAND CONTROL
#***»*******•********••**********************************************
* DO.B. DO.BL - Perform boot test or bootload commands
SEQ 0230
DF
DF
6798
6799
6800
6801
6802
6803
036546
260 17 0
680A
036547
202 00 0
6805
036550
260 17 0
6806
036551
302 00 0
6807
036552
254 00 0
6808
036553
260 17 0
6809
036554
302 00 0
6810
036555
254 00 0
6811
036556
260 17 0
681?
036557
303 00 0
6813
036560
254 00 0
6814
036561
305 00 0
6815
036562
254 00 0
6816
036563
405 00 0
6817
036564
271 00 0
6818
036565
202 00 0
6819
C36566
260 17 0
6820
036567
306 00 0
6821
036570
254 00 0
6822
036571
302 00 0
6823
036572
254 00 0
6824
036573
306 02 0
6825
036574
254 00 0
6826
036575
402 00 0
6827
036576
30? 02 0
6828
036577
ly 00 0
6829
036600
476 00 0
6830
036601
254 00 0
6831
036602
302 02 0
6832
036603
254 00 0
6833
036604
260 17 0
6834
036605
037 01 0
6835
036606
254 00 0
00 041561
00 000002
00 041561
00 000040
00 037332
00 041561
00 000106
00 037332
00 041561
00 000063
00 037332
00 000060
00 037332
00 000007
00 000010
00 000016
00 041561
00 000057
00 036573
00 000072
00 037332
00 000124
00 065024
00 075000
00 000110
00 036602
00 075000
00 036604
00 000114
00 037332
00 065213
00 070643
00 036334
DO.B: 60 INPBYT
MOVEM A,C
DO.BL: GO INPBYT
CAIE
JRST CMDERR
GO INPBYT
CAIE "F"
JRST CMDERR
GO INPBYT
CAILE "3"
JRST CMDERR
CAIGE "0"
JRST CMDERR
ANDI 7
ADDI 10
MOVEM CNTRL
GO INPBYT
CAIN "/"
JRST .+3
CAIE
JRST CMDERR
CAIN C."T"
JRST BTDP
SETZM LDHALT*
CAIE C."H'"
JRST .+3
SETOM LDHALT
JRST .+3
CAIE C.'l"
JRST CMDERR
GO LDPRG
FMS6D <PR0GRAM LOAD ERROR !>
JRST STPRM1
get next byte
save It
get next byte
should be space
next
should be F
get #
convert to CNTRL index
setup index
get next
stash or colon ok
should be colon
was command "BT"
yes
was command "BH"?
yes, boot load and halt PDP-11
was it bootload
no-error
load program
return to interpreter
r
DFSXA
DFSXAM
6836
683?
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 122
MAC 29-JuL-85 11:44 COMMAND CONTROL
* DO.CP - Print CPU status
036607
036610
036611
036612
036613
260 17 0 00 041561
302 00 0 00 000120
254 00 0 00 037332
260 17 0 00 040757
254 00 0 00 036334
036614
03661 5
036616
036617
036620
260 17 0 00 041561
302 00 0 00 000102
254 00 0 00 037332
260 17 0 00 041034
254 00 0 00 036334
DO.CP: GO
CAIE
JRST
GO
JRST
INPBYT
iipii
CMDERR
PRTCPU
STPRM1
; get next byte
; skip if P
; wrong command
; print CPU status
; continue at command prompt
SEQ 0231
OF
DF
#***********************♦*********•**********************************
* DO. MB - Print M80X status
/^******** ************************************************************
DO. MB:
GO
INPBYT
CAIE
•B"
JRST
CMDERR
GO
PRTMBE
JRST
STPRM1
get next byte
skip if B
command error
print MBOX error register
continue at command prompt
EQ 0219
DFSXA
DFSXAM
6857
6858
6859
6860
6861
6862
6863
686A
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTiON TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 123
MAC 29-JUL-85 11:44 COMMAND CONTROL
SEQ 0232
D
D
036621
036622
036623
036624
036625
036626
036627
036630
036631
036632
036633
036634
036635
036636
036637
036640
260 17
254 00
260 17
254 00
135 15
260 17
254 00
134 00
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
0 00 037341
0 00 037447
0 00 037716
0 00 037332
0 00 070650
0 00 040016
0 00 037373
0 00 000012
0 00 000073
0 00 036621
0 00 000015
0 00 036334
0 00 000054
0 00 036334
0 00 041561
0 00 036623
;* DO.E
;#*****
DO.E:
DO. El:
D0.E2:
- Examine controller or device registers
***************************************************************
GO
JRST
GO
JRST
LDB
GO
JRST
I LDB
CAIN
JRST
CAIN
JRST
CAIE
JRST
GO
JRST
DECRHX
PRTRHG
RNGCHK
CMDERR
DEV, [POINT 3,0,35:
PRTHDR
PRTALL
PNTR
DO.E
15
STPRM1
It • I
sfPRMl
INPBYT
DO. El
go decode the RM20 and devices
go handle just RH20 controller
skip if range ok
no - numeric error
setup device index
print the header
dump all device registers
get next byte
IS it end of selection
yes - go handle next entry
is it end cf line (CR)?
go ask for another command
skip if comma
return to command decoder
get next byte
process next entry
SEQ 0220
DFSXA
DFSXAM
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
689A
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 124
MAC 29-JUL-85 11:44 COMMAND CONTROL
•/^********************************************** **********************
;* DO.S - Select specified device(s)
•#*****■»-•************************************************************
SEQ 0233
r
c
c
036641
036642
036643
036644
036645
036646
036647
036650
036651
036652
036653
036654
036655
036656
036657
036660
036661
036662
036663
036664
036665
036666
036667
036670
036671
036672
036673
036674
036675
036676
036677
036700
036701
036702
036703
036704
036705
036706
036707
036710
260 17 0
254 00 0
260 17 0
254 00 0
135 15 0
201 00 0
260 17 0
300 00 0
200 07 0
260 17 0
254 00 0
602 00 0
201 01
602 00
201 01
306 01
260 17 0
260 17 0
254 00 0
606 00 0
254 00 0
602 00 0
254 00 0
606 01 0
260 17 0
4uJ 00 0
137 01 0
563 00
137 01
202
0
0
15 0
350 00
134 00
306 00 0
254 00 0
306 00 0
254 00 C
302 00 0
254 00
260 17
254 00
00
00
00
00
00
00
00
00
15
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
16
00
00
00
16
00
00
00
00
00
00
00
00
00
00
037257
036711
037716
037332
070650
000011
043044
000000
060605
043305
036766
040000
000014
020000
000010
000014
036724
043177
036766
010000
036773
004000
037002
000004
036750
060647
000007
000015
070420
060753
074755
000012
000073
036641
000015
036334
000054
036334
041561
036643
DO.S:
DO. SI
D0.S2:
GO
DECRH
JRST
DO. S3
GO
RNGCHK
JRST
CMDERR
LDB
DEV. [POINT 3,0,35]
MOVE I
CLEAR
UCR
CAI
MOVE
CCW,SELPNT(DEV)
RDT
JRST
SCMER1
TRNE
DV.TAP
MOVE I
B,14
TRNE
DV.PCK
MOVE I
B,10
CAIN
B,14
GO
D0.S4
RDS
JRST
SCMER1
TRNN
MOL
JRST
SCMER2
TRNE
URL
JRST
SCMER3
TRNN
B,4 ^
60
D0.S5
SETZM
REQST(CNTRL)
DPB
B,CCU
HRROS
DEV
DPB
B, [POINT 4, DEV, 17]
MOVEM
DEV,CHNDEV(CNTRL)
AOS
AMTCTL
I LDB
PNTR
CAIN
JRST
DO.S
CAIN
15
JRST
STPRM1
CAIE
t
JRST
STPRM1
GO
INP8YT
JRST
DO. SI
go decode the RH20 and
go handle just RH20 or
range check number
no - numeric error
setup device index
get drive clear
issue
filler
get byte pointer
read the type register
read error during selection
skip if not tape
get TU16 ID
skip if not pack
set ID for RP04
skip if not TU16
?o select the slave
etch status of device
read error
skip if on line
selection error - not on line
skip if not write locked
device write locked
skip if TU16
attempt to set VV if RP04
clear previous selection
enter device selection
put all ones in left half
setup selection code
put in channel table
update selection amount
get next byte
IS it end of selection char
yes - go handle next selection
is it end of line (CR)?
go ask for another command
skip if comma
return to decoder
process it
devices
DTE20 controller
r
5EQ 0221
DFSXA
DFSXAM
692A
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 125
MAC 29-JuL-85 11:44 COMMAND CONTROL
• /Iff +*«******************••*****•• **************************************
;* ;i.S3 - Select lust RH20 or DTE20 (no devices specified)
•#**>.*****************************************************************
SEQ 0234
Check DTE
036711 336 00 0 16 060633
036712 254 00 0 00 070651
036713 331 00 0 16 060633
036714 254 00 0 00 070656
036715 205 01 0 00 400000
036716 205 15 0 00 mm
036717 260 17 0 00 043305
036720 254 00 0 00 070663
036721 253 15 0 00 036717
036722 037 01 0 00 070670
036723 254 00 0 00 0'o334
DO. S3:
SKIPN
JRST
CHTYPE(CNTRL)
[MOVE I B,1
MOVEM B,REQST(CNTRL)
SETZM CHNDEV(CNTRL)
AOS AMTCTL
JRST D0.S2]
; Check NI/CI port
SKIPL
JRST
Check RH20
MOVSl
MOVSI
ROT
JRST
AOBJN
FMSG
CHTYPE(CNTRL)
CSETO B,
MOVEM B,F, :.ST(CNTRL)
SETZM CHNDEV(CNTRL)
AOS AMTCTL
JRST D0.S2J
B, 400000
DEV,-10
[DPS
MOVEM
SrTZM
AOS
JRST
DEV,.-2
<
DEV, [POINT 3,B.35
B,REQST(CNTRL)
CHNDEV(CNTRL)
AMTCTL
D0.S2]
is this controller a DTE?
yes - just indicate selected
enter controller selection
clear channel device flag
update selection amount
go check remainder of line
is this controller an NI/CI port?
yes - just indicate selected
enter controller selection
clear channel device flag
update selection amount
go check rcijlnder of line
set bit 0
setup DEV index
attempt read
; merge device number with AC1<0>
enter controller selection
clear channel device flag
update selection amount
go check remainder of line
search for nonexistent device
ALL DEVICE SLOTS FULL ON THIS CONTROLLER. CAN'T PERFORM LOOP BACK TEST.
SELECT ANOTHER CONTROLLER OR SELECT DEVICE ON THIS CONTROLLER. >
JRST STPRM1 ; return to command decoder
0222
DFSXA
DFSXANI
6962
6963
696A
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
69SA
6985
6986
6987
6988
6989
6990
6991
6992
6993
699A
6995
6996
6997
6998
6999
7000
7001
7002
7003
7004
7005
7006
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 126
MAC 29-JUI-85 11:44 COMMAND CONTROL
* D0.S4 - Select the sld\je ^^^^
#*********************••********•*************♦**********************
SEQ 0235
036724
036725
036726
036727
036730
036731
036732
036733
036734
036735
036736
036737
036740
036741
036742
036743
036744
036745
036746
036747
037 01 0
260 17 0
254 00 0
263 17 0
275 00 0
435 00 0
202 00 0
260 17 0
300 00 0
260 17 0
300 00 0
606 00 0
254 00 0
036750
036751
036752
036753
036754
036755
036756
036757
036760
036761
036762
036763
036764
036765
^60
J54 00
260 17
17 0
0
300 00 0
606 00 0
254 00 0
263 17 0
00 070724
00 041527
00 036724
00 000000
00 000060
00 002000
U 061047
00 043121
00 000000
00 043177
00 000000
00 010000
00 036773
00 063532
00 037007
00 043177
00 000000
00 000002
00 037011
00 000000
201 00 0
260 17 0
254 00 0
260 17 0
254 00 0
606 00 0
254 00 0
606 00 0
254 00 0
201 00 0
202 00 0
260 17 0
254 00
263 17
00
00
00
00
00
00
00
00
00
00
00
00
00
00
000021
043044
037013
043177
037013
000100
037020
000200
037026
000631
075021
064100
037030
000000
D0.S4:
FMS6
GO
JRST
RTN
SUBI
lORI
MOVEM
WTC
CAI
RDS
CAI
TRNN
JRST
GO
JRST
RDS
CAI
TRNN
JRST
RTN
<WHAT SLAVE?>
INPOCT
D0.S4
60
BPI160
TAPETC(CNTRL)
MOL
SCMER2
$REU
SCMER4
BOT
SCMER5
input the #
1 1 legal
carnage return-leave old selection
convert to octal
merge in density
save TC reg
make selection
filler
get status
Tiller
skip if online
off line error
rewind tape
rewind error during selection attempt
get status
skip if at BOT
not at BOT
exit
#*•*******************•♦*********************************************
* D0.S5 - Do pack acknowledge
4f ********************************************************************
D0.S5: MOVEI
WCR
JRST
RDS
JRST
TRNN
JRST
TRNN
JRST
MOVEI
MOVEM
D.SEK
JRST
RTN
RDPRST
PCKER1
PCKER1
VV
PCKER2
DRY
PCKER3
631
SYS.C#
PCKER4
get read-in preset command
issue it
would accept
get status
error
skip if volume valid set
would set
skip if ready
not ready for operation
get maint cylinder address
save it
position on maint cylinder
position error
make selection
DFSXA
DFSXAM
7007
7008
7009
7010
7011
7012
7013
70U
7015
7016
7017
7018
7019
7020
7021
7022
7023
702A
7025
7026
7027
7028
7029
7030
7031
7032
7033
703A
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 127
MAC 29-JuL-85 11:44 COMMAND CONTROL
#***»******************♦*****************•*************♦♦♦******♦****
* SCMER1 - Read error routines
SEQ 0236
036766 037 01 0 Oa 070727
036767 200 00 0 00 000015
036770 037 17 0 00 000003
036771 037 01 0 00 070731
036772 254 00 0 00 036700
036773 037 01 0 00 070727
036774 200 00 0 00 000015
036775 037 17 0 00 000003
036776 037 01 0 00 070750
036777 260 17 0 00 040046
037000 260 17 0 00 040112
037001 254 00 0 00 036700
037002 037 01 0 00 070727
037003 200 00 0 00 000015
037004 037 17 0 OO 000003
037005 037 01 0 00 070765
037006 254 00 0 00 036777
037007 037 0! 0 00 071003
03>'0,u 254 00 0 00 036777
037011 037 01 0 00 071020
037012 254 00 0 00 036777
;* Read error while fetching status
SCMER1: FMS6C <DEV >
MOVE DEV
PNTOCF
FMSGD < READ ERROR WHILE FETCHING STATUS.
DROPPING THE DEVICE FROM SELECTION. >
JRST D0.S2 ; continue selection
;* Not on-line error
SCMER2: FMSGC <DEV >
MOVE DEV
PNTOCF
FMSGD < NOT ON-LINE.
MAKE THIS DEVICE READY IF YOU WANT TO USE IT >
SCMER7: GO PRTSR ; print status
GO PRTER ; print error #1
JRST DO. S2 ; continue selection
;* Write lock error while selecting
SCMER3: FMSGC <DEV >
MOVE DEV
PNTOCF
FMSGD < IS WRITE LOCKED.
WRITE ENABLE THIS DEVICE IF YOU WANT TO USE IT,>
JRST SCMER7 ; continue selection
;* Rewind failure
SCMER4: FMSGCD <REWIND FAILURE DURING SELECTION ATTEMPT - DROPPING DEVICE !>
JRST SCMER7 ; continue selection
;* Drive didn't go to BOT
SCMER5: FMSGCD <DRIVC DIDN'T GO TO BOT - DROPPING DEVICE!>
JRST SCMER7 ; continue selection
n
^I2i^
DFSXA
DFSXAM
7050
7051
7052
7053
705A
7055
7056
7057
7058
7059
7060
7061
7062
7063
706A
7065
7066
7067
7068
7069
7070
7071
7072
7073
707A
7075
7076
7077
7078
7079
7080
7081
7082
7083
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !I!53B(12A2) U:07 21-Aug-85 Page 128
MAC 29-Jul-85 11:4A COMMAND CONTROL
•#********************♦***********************************************
;* PCKER1 - Pack acknowledge errors ^^^^
)#♦»*******************♦♦***♦*****************************************
;* Read/write error-won* t accept command
PCKER1: FMSGC <DEV >
MOVE DEV
PNTOCF
FMSGD < WON'T ACCEPT PACK ACKNOWLEDGE COMMAND.
DROPPING DEVICE FROM SELECTION. > . ^ , .
JRST PCKER5 ; continue with out selection
SEQ 0237
037013 037 01 0 00 070727
0370U 200 00 0 00 000015
037015 037 17 0 00 000003
037016 037 01 0 00 071032
037017 25A 00 0 00 037021
037020 0'7 01 0 00 071051
037021 260 17 0 00 0A00A6
037022 260 17 0 00 040112
037023 260 17 0 00 040115
037024 260 17 0 00 040606
037025 254 00 0 00 036700
037026 037 01 0 00 071067
037027 254 00 0 00 037021
037030 G:>'' 01 0 00 071105
037031 260 17 0 00 040573
037032 260 17 0 00 040602
037033 254 00 0 00 037021
;* Volume valid not set
PC!(ER2: FMSGCD <V0LUME VALID DIDN'T SET FOR THIS uEVICE-SELECTION IS ABORTED. >
PCKER5: GO PRTSR
GO PRTER
GO PRTER1 ; go print error 1
GO PRTER2 ; go print error 2
JRST DO. S2
;* Device not ready
PCKER3: FMSGCD <THIS DEVICE WON'T 60 TO THE READY STATE-SELECTION IS ABORTED. >
JRST PCKER5
;* Position error during pack selection
PCKER4: FMSGCD <POSITIONING ERROR DURING SELECTION SEQUENCE - SELECTION ABORTED. >
GO PRTDC ; print desired
GO PRTCC ; print current
JRST PCKER5
DFSXA
DFSXAM
708A
7085
7086
7087
7088
7089
7090
7091
7092
7093
709A
7095
7096
7097
7098
7099
7100
7101
7102
7103
71 OA
7105
7106
7107
7108
7109
7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123
7124
7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 129
MAC 29-JuL-85 11:44 COMMAND CONTROL
#***************•*****•**********************************************
* DO.R - Delete specified devke(s)
SEQ 0238
037034
037035
037036
037037
037040
037041
037042
037043
037044
037045
037046
037047
037050
037051
037052
037053
037054
037055
037056
037057
037060
260 17
254 00
260 17
254 00
135 15
200 07
402 00
137 00
370 00
134 00
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
037061
037062
037063
037064
037065
037066
037067
037070
037071
037072
037073
037074
0 00
0 00
0 00
0 00
0 00
0 15
00
00
0 00
0 00
0 00
00
00
0 00
0 00
0 00
0 00
0 00
037257
037056
037716
037332
070650
060605
000000
000007
074755
000012
000073
037034
000015
036334
000054
036334
041561
037036
402 00 0 16 060647
370 00 0 00 074755
254 00 0 00 037045
260 17 0 00 041561
306 00 0 00 000015
254 00 0 00 037070
302 00 0 00 000123
254 00 0 00 037332
260 17 0 00 041574
254 00 0 00 036334
402 00
200 00
251 00
402 00
254 00
00 060647
00 070523
00 061323
00 074755
00 036334
DO.R:
DO.Rl
D0.R2:
GO
JRST
GC
JRST
LDB
MOVE
SETZM
DPB
SOS
I LDB
CAIN
JRST
CAIN
JRST
CAIE
JRST
GO
JRST
DECRh
D0.R3
RN6CHK
CMDERR
DEV, [POINT 3,0,353
CCW,SELPNT(DEV)
ecu
AMTCTI.
PNTR
* * . ' *
DO.R
15
STPRMl
STPRMl
INPBYT
DO.Rl
; Deselect just RH20
D0.R3: SETZM REQST(CNTRL)
SOS AMTCTL
JRST D0.R2
go decode the RH20 i devices
go handle fust RH20 controller
range checK number
no-numeric error
setup device index
get byte pointer
clear ACO
clear selection entry
deduct one from selection amount
get next byte
is it end of selection char
yes-go process next entry
IS it end of line (CR)?
go ask for another command
skip if comma
ret to decoder
get next byte
process it
delete RH20/port
deduct one form selection amount
go check remainder of line
#****•**•**************************•*•*******************************
* DO.Z - Reset all device tables
#*********************♦**♦*******************************************
; First check to see if a zero statistics command was given
DO.Z:
GO
CAIN
JRST
INPBYT
15
DO.ZD
Zero statistics
CAIE
JRST
GO
JRST
I IQ* (
CMDERR
ZROSUM
STPRMl
; Zero device tables
DO.ZD:
SETZM REQST
MOVE [REQST,, REQST+1]
BLT SCLKX
SETZM AMTCTL
JRST STPRMl
get next byte
carriage return?
yes - go zero device tables
ZS command?
no - error
yes - zero statistics
and exit
; clear first e.itry
; get pointer
; clear the rest
; clear selection amount
; go back to command interpreter
,.J
DFSXA
DFSXAM
7139
7K0
7K1
7142
7U3
7144
7145
7146
7147
7148
7149
7150
7151
715?
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5:538(1242) 14:07 21-Aug-85 Page 130
MAC 29-JUL-85 11:44 COMMAND CONTROL
•#*******«************************•***•*******************************
;* DO.P - Print selection table (or switches)
SEQ 0239
037075
037076
037077
037100
037101
037102
037103
037104
037105
037106
037107
037110
037111
037112
037113
037114
037115
037116
037117
037120
260 17
306 00
254 00
306 00
254 00
306 00
254 00
254 00
00
00
00
00
00
00
00
00
041561
000103
037165
000124
037105
000123
037171
037332
260 17 0 00 037110
300 00 0 00 000000
254 00 0 00 036334
037 01
205 16
402 00
261 17
405 16
336 00
254 00
476 00
135 01
0 00 071123
0 00 777764
0 00 075004
0 00 000016
0 00 mm
0 16 060647
0 00 037156
0 00 075004
0 00 071131
037121 336 00 0 16 060633
037122 254 00 0 00 071132
037123 331 00 0 16 060633
DO.P: GO
CAIN
JRST
CAIN
JRST
CAIN
JRST
JRST
; PT command
DO.PT:
PRTBL :
PTBLA:
GO
CAI
JRST
FMSGCD
MOVSI
SETZM
PUT
AND I
SKIPN
JRST
SETOM
LDB
INPBYT
DO. PC
t ijl I
DO.PT
DO. PS
CMDERR
PRTBL
STPRM1
get next character
PC command?
yes - go ha. idle
PT command?
yes - go handle
PSW or PST commands?
yes - go handle
no - report error
print the selection table
no devices present
re-enter interpreter
<CURRENT DEVICE SELECTION:>
CNTRL,-14
P.FLG#
CNTRL
CNTRL,-1
REQST(CNTRL)
PTBL3
P.FLG
B, [POINT 6, CNTRL, 353
init controller index
clear print select flag
skip if selected
if not then update CNTRL
set print flag
get number
Check for DTE
SKIPN
JRST
CHTYPE (CNTRL)
CFMSG <F> , ,:
LDB [POINT 3, CNTRL, 35]
PNTOCF
FMSG <:>
JRST ptbl2a:
is this controller a DTE?
yes - print
Check if NI/CI port
SKIPL CHTYPE (CNTRL)
JRST [FMSG <C> ,:
LDB [POINT 3, CNTRL, 35]
PNTOCF
FMSG <:>
is this controller a DTE?
yes - print
^221
DFSXA
DFSXAM
7185
7187
7188
7189
7190
7191
7192
7193
71 9A
7195
7196
7197
7198
7199
7200
7201
7202
7203
720A
7205
7206
7207
7208
7209
7210
7211
7212
7213
12\i^
7215
7216
7217
7218
7219
7220
7221
7222
7223
122k
7225
722t
7227
7228
7229
7230
7231
7232
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 131
MAC 29-JUL-85 11:44 COMMAND CONTROL
SEQ 0240
7186
037124 254 00 0 00 071170
037125
037126
037127
037130
037131
037132
037 01
135 00
037 17
037 01
00 071137
00 070321
00 000003
0 00 070520
337 00 0 16 060647
254 00 0 00 037155
00 000074
00 777770
15 060605
00 000007
00 000010
00 037153
00 000015
00 000003
00 000004
00 037152
00 071176
00 043261
00 043652
00 000007
00 000003
00 071177
00 C37135
00 000076
00 030242
00 000016
00 037113
00 075004
00 071200
00 075004
17 000000
00 000000
037133
037 00 0
037134
205 15 0
037135
200 07 0
037136
135 01 0
037137
606 01 0
037140
254 00 0
037141
550 00 0
037142
037 17 0
037143
606 01 0
037144
23 ■ 00 0
037145
037 01 0
037146
260 17 0
037147
260 17 0
037150
405 00 0
037151
037 17 0
037152
037 01 0
037153
253 15 0
037154
037 01 0
037155
037 01 0
037156
262 17 0
037157
253 16 0
037160
336 00 0
037161
037 01 0
037162
332 00 0
037163
350 00 0
037164
263 17 0
JRST
XCT [FMSG < Port-0>
FMS6 < Port-1>
FMSG < Port-2>
FMSG < Port-3>
FMSG < Port-4>
FMSG < Port-NI>
FMSG < Port-6>
FMSG < Port-CI>J(B)
PTBL2A]
RH20
FMSG
LDB
PNTOCF
FMSG
SKIPG
JRST
; RH20 + devices
PNTCI
MOVSI
PTBLl : MOVE
LDB
TRNN
JRST
HRRZ
PNTOCF
TRNN
JRST
FMSG
RTC
GO
AND I
PNTOCF
FMSG
PTBL2: AOBJN
PNTCIF
PTBL2A: PCRLF
PTBL3: GET
AOBJN
SKIPN
FMSGD
SKIPE
AOS
RTN
<C>
[POINT 3,CNTRL.35J
<:>
REQST(CNTRL)
PT8L2A
"<"
DEV,-10
CCW,SELPNT(DEV)
B,CCW
B,10
PTBL2
DEV
B,4
PTBL2-1
<•>
RDEVER
7
<'>
DEV, PTBLl
••>■'
CNTRL
CNTRL,PTBLA
P.FLG
<+++ NO DEVICES
P.FLG
(P)
; get number
; devke(s) selected?
; no - terminate
im"t device index
?et byte pointer
etch selection byte
skip if selected
if not then update DEV
fetch device number
skip if TU16
here if RP04
read the tape control
read error
keep just slave address
print it
SELECTED
; test
; skip
; skip
; if not
; exit
all possible RH20's
if any selected
if table empty
setup skip return
Q 0228
DFSXA
DFSXAM
7233
723A
7235
7236
7237
7238
7239
72A0
72A1
72A2
72A3
72AA
72A5
7246
72A7
72A8
72A9
7250
7251
7252
7253
725A
7255
7256
7257
7258
7259
7260
7261
7262
7263
726A
7265
7266
7267
7268
7269
7270
7271
7272
7273
727A
DECSYSTEM KLIC CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO S!53B(12A2) 1A:07 21-Aug-85 Page 132
MAC 29-JUL-85 11:AA COMMAND CONTROL
SEQ 02A1
037165 260 17 0 00 0A1372
037166 260 17 0 00 065A53
037167 260 17 0 00 0A1563
037170 25A 00 0 00 03633A
037171
037172
037173
0371 7A
037175
037176
260
306
25A
306
25A
25A
17
00
00
00
00
00 0A1561
00 000127
00 037201
00 0001 2A
00 037177
00 0 00 037332
037177
037200 c
260 17 0 00 036206
^5A 00 0 00 03633A
037201 037 10 0 00 000002
037202 202 00 0 00 075020
037203 205 01 0 00 777761
03720A
037205
037206
037207
037210
037211
037212
037213
03721 A
037215
037216
037217
037220
037 00
200 00
6ii 00
33A 02
201 02
037 00
037 00
253 01
1 01 037221
0 01 0372A0
0 00 075020
0 00 071206
0 00 000116
0 02 000000
0 00 0302A2
0 00 03720A
037 00 0 00 071207
135 00 0 00 07121A
037 02
037 00
25A 00
00 000000
00 0302A3
00 03633A
; PC command
DO. PC: GO
60
GO
JRST
RHCFG
FECFG
ENARH
STPRM1
; PS command (PSW or PST)
DO. PS:
GO
CAIN
JRST
CAIN
JRST
JRST
INP8YT
"W"
DO. PSW
DO. PST
CMDERR
PST (Print statistics) command
DO. PST: 60
JRST
PRTOT
STPRM1
PSW (Print switches) command
00. PSW: SWITCH
MOVEM
MOVSI
DO.PSO: PNTMSG
MOVE
TONE
SKIPA
MOVE I
PNTCI
PCRL
AOBJN
PNTMSG
LDB
PNT2
PCRL2
JRST
SWPSAV*
1,-SWTLEN
aSWPNTd)
SWTAB(I)
SWPSAV
2,["Y"]
2 ."N"
(5)
1, DO.PSO
CASCIZ/ 000077
CPoint 6, SWPSAV, 35J
STPRM1
configure system
configure DiE's
enable RH20's and NI/CI ports
return to command decoder
get next character
PSW command?
yes - go handle
PST command?
yes - go handle
no - report error
go print totals
return to command decoder
get program switches
save switches
Load number of switches
Print the switch name
Get the switch mask
Is the switch set?
Yes
No
Print the "Y" or "N"
Print CRLF
Loop for all of them
TSTNUM /] ; Print the test label
Load switch setting
Print 2 digits
Print 2 CRLFs
return to command decoder
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) 1A:07 21-Aug-85 Page 133
DFSXAM MAC 29-Jul-85 11:44 COMMAND CONTROL
SEQ 02^2 I
DFS
DFS
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302
7303
7304
7305
7306
o07
7308
7309
7310
7311
7312
7313
7314
7315
037221
037221
037222
037223
037224
037225
037226
037227
037230
037231
037232
037233
037234
037235
037236
037237
037240
037241
037242
037243
037244
037245
037246
037247
037250
037251
037252
037253
037254
037255
037256
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
400000
200000
100000
040000
G^JOOO
010000
004000
002000
001000
000400
000020
000010
000000
000000
000000
071215
071243
071250
071255
071262
071267
071274
071301
071306
071313
071320
071325
071332
071360
071365
000017
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
400000
001000
000400
SWPNT: [ASCIZ /
Left Half Switches
11 10 SWITCH SET?
15 400000 ABORT /]
[ASCIZ/ 14 200000
[ASCIZ/ 13 100000
[ASCIZ/ 12 040000
[ASCIZ/ 11 020000
[ASCIZ/ 10 010000
[ASCIZ/ 9 004000
[ASCIZ/ 8 002000
[ASCIZ/ 7 001000
[ASCIZ/ 6 000400
[ASCIZ/ 2 000020
[ASCIZ/ 1 000010
[ASCIZ /
Right Half Switches
TO SWITCH SET?
400000 INHUSR /]
[ASCIZ/ 001000
[ASCIZ/ 000400
SWTLEN==. -SWPNT
SWTAB: ABORT,. 0
RSTART,,0
TOTALS,, 0
NOPNT,,0
PNTLPT.,0
DING,,0
LOOPER,,0
ERST0P,.0
PALERS,,0
RELIA6,,0
INHCSH,,0
OPRSEL,,0
INHUSR
LOOPTS
SPCTST
RSTART
TOTALS
NOPNT
PNTLPT
DING
LOOPER
ERSTOP
PALERS
RELIAB
INHCSH
OPRSEL
LOOPTS
SPCTST
/]
/]
/]
/]
/]
n
/]
/]
/]
/]
/]
/]
/]
1 r
EQ 0230
DFSXA
DFSXAM
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 134
MAC 29-Jul-85 11:44 COMMAND CONTROL
SEQ 0243
df:
DF!
037257 201 01 0 00 000005
037260
037261
037262
037263
037264
037265
037266
037267
037270
037271
037272
037273
037274
037275
037276
037277
037300
037301
037302
037303
037304
037305
037306
037307
037310
037311
037312
037313
037314
037315
037316
037317
037320
037321
037322
037323
037324
037325
037326
037327
037330
037331
260 17
306 00
254 00
302 00
367 01
322 01
260 17
260 17
254 00
135 16
201 00
256 00
201 00
256 00
260 17
306 00
254 00
302 00
254 00
261 17
260 17
306 00
254 00
3uc 00
254 00
262 17
333 00
254 00
254 00
262 17
2o3 17
0 00 041561
0 00 000106
0 00 037317
0 00 000103
0 00 037260
0 00 037333
0 00 041561
0 00 037716
0 00 037332
0 00 070650
00 002000
16 043570
00 000400
16 043570
. 00 041561
0 00 000057
0 00 037303
00 000072
00 037332
00 000012
00 041561
0 00 000015
0 00 037315
0 00 000073
0 00 037315
0 00 044541
0 16 060633
0 00 037335
0 00 067640
0 00 000012
0 00 000000
402 00
260 17
260 17
254 00
137 00
271 16
303 16
254 00
305 16 0
254
254
00
00
00 000016
00 041561
00 037716
00 037332
00 070321
00 000010
00 000013
00 037332
00 000010
00 037332
00 037276
• /jf***«******* ******** **********
;* DECRH - Decode RH20 and spec
•#*****************************
DECRH: MOVEI B,5
***************************************
if fed devices
***************************************
60
CAIN
JRST
CAIE
S0J6
JUMPE
GO
GO
JRST
LDB
MOVEI
• CONO
MOVEI
.CONO
DECRHA: GO
CAIN
JRST
CAIE
JRST
PUT
GJ
CAIN
JRST
CAIN
JRST
GET
SKIPLE
JRST
SKPRTN
DECRHl: GET
RTN
DECDTE: SETZM
f§
JRST
DPS
ADD I
CAILE
JRST
CAIGE
JRST
JRST
INPBYT
DECDTE
B,DECRH+1
B,CMDERR+1
INPBYT
RNGCHK
CMDERR , ,„
CNTRL, [POINT 3, A. 35]
MBCCLR
M8E
INPBYT
I t yl I
.+3
CMDERR
PNTR
INPBYT
15
DECRHl
• "."
DECRHl
DAT8UF
CHTYPECCNTRL
CMDERP
PNTR
CNTRL
INPBYT
RNGCHK
CMDERR
[POINT 3, CNTRL. 35]
CNTRL, 10
CNTRL, 13
CMDERR
CNTRL, 10
CMDERR
DECRHA
place Limit on space between command
and select
get next byte
skip if not F
go handle DTE address
skip if C
search for char "C"
command error if ACO=0
get next byte
is it numeric
no
pick it up
clear RH2D
clear RH20
get MASSBUS enable
set it in RH20
get next byte
slash or colon ok
skip if colon
no-error
save pointer
get next byte
skip if not carriage
if
exit
skip
exit
pop and
is this
return
not end of selected char
throw away
controller an
yes - command error
take skip return
retrieve byte pointer
exit
NI/CI port?
clear receiving
get next byte
is it numeric
no
; address ok?
; no
; exit
register
r
EQ 0231
DFSXA
DFSXAM
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
738A
7385
7386
7387
7388
7389
7390
7391
7392
7393
73'^A
7395
7396
7397
7398
7399
7A00
7401
7A02
7A03
7A04
7A05
7A06
7A07
7A08
7A09
7A10
7A11
7A12
7A13
7A1A
7A15
7A16
7A17
7A18
7A19
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 1A:07 21-Aug-85 Page 135
MAC 29-JuL-85 11:44 COMMAND CONTROL
/^*********** ********************** ***********************************
* CMDERR - Command error handler
/If********************************************************************
SEQ 02AA
037332 037 01 0 00 0A4514
037333 037 01 0 00 071372
037334 254 00 0 00 036334
037335 037 01 0 00 044514
037336 037 01 0 00 071372
037337 037 01 0 00 071400
037340 254 00 0 00 036334
037341 201 01 0 00 000005
037342
037343
037344
037345
037346
037347
037350
037351
037352
037353
037354
037355
037356
037357
037360
037361
037362
037363
037364
037365
037366
037367
037370
037371
037372
260 17
302 00
306 OC
334 06 0
3o.' 01 0
322 00 0
260 17 0
303 00 0
254 00 0
305 00 0
'54 00 0
(35 16 0
306 06 0
271 16 0
260 17 0
302 00 0
254 00
260 17
306 00
263 17
306 00
263 17
306 00
263 17
254 00
00 041561
00 000103
00 000106
00 000000
00 037342
00 037332
00 041561
00 000067
00 037332
00 000060
00 037332
00 070650
00 000106
00 000010
00 041561
00 000072
00 037332
00 041561
00 000015
00 000000
00 000073
00 000000
00 000133
00 000000
00 067640
CMDERR: PNTMSF CMDLIN
FMSGCD <C0MMAND FORMAT ERROR !>
JRST STPRM1
./^************************************ ********************************
;* CMDERP - Command error handler (for NI/CI port)
•#********************************************************************
CMDERP: PNTMSF CMDLIN
FMSGCD <COMMAND FORMAT ERROR !>
FMSGCD <NI/CI PORT IS NOT ALLOWED DEVICES>
JRST STPRMl
•#********************************************************************
;* DECRHX - Decode RH20 and specified devices
;#********************************************************************
DECRHX: MOVE I
GO
CAIE
CAIN
SKIPA
SOJG
JUMPE
GO
CAILE
JRST
CAIGE
JRST
LDB
CAIN
ADD I
60
CAIE
JRST
GO
CAIN
RTN
CAIN
RTN
CAIN
RTN
SKPRTN
B.5
INPBYT
"C"
I ir > (
'F'
GOOD. A
B.DECRHX^-l
CMDERR
INPBYT
CMDERR
"0"
CMDERR
CNTRL, [POINT 3.0,35]
GOOD.'*F"
CNTRL,10
INPBYT
11,11
CMDERR
INPBYT
15
place limit on space between command
and select
get next byte
skip if C
search for F or C
search for character "C
command error if ACO=0
get next byte
skip if equal /less than octal 7
no - error
skip if equal / greater than octal 0
no - error
fetch controller number
was it an F
yes
get next byte
skip if colon
no - error
get next byte
skip if not carriage return
exit
skip if not end of selected character
exit
skip if not bracket
exit
skip exit
OF
OF
r
L
SEQ 0232
DFSXA
DFSXAM
7A20
7421
Ikll
Ikll
7A2A
7426
mil
7A28
7A29
7A30
7431
7432
7433
lUlk
7435
7436
7437
7438
7439
7441
7442
7443
7444
7445
7'*U7
7448
7^i*9
7450
7451
7452
745?
7454
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 136
MAC 29-Jul-85 11:44 COMMAND CONTROL
•#******♦******************♦******************************************
;* PRTALL - Print all of the device registers
SEQ 0245
D
D
037373
037374
037375
037376
037377
037400
037401
037402
037403
037404
037405
037406
037407
037410
037411
037412
037413
037414
037415
037416
037417
037420
037421
037422
037423
333 00 0
254 00
260 17
260 17
602 00
254 00
602 00
254 00
037 00
254 00 0
16 060633
00 037443
00 043305
00 043652
00 040000
00 037405
00 020000
00 037424
00 071410
00 037332
260 17
306 00
254 00
306 00
254 00
302 0'
254 0
260 1?
254 00
256 00
2r- 00
205 02
256 00
253 02
254 00
00 041561
00 000015
00 037420
. 00 000054
0 00 037420
00 000133
00 037332
00 037560
0 00 037500
01 037723
00 037414
00 777766
02 037723
00 037421
00 037500
PRTALL: SKIPLE CHTYPE(CNTRL)
JRST PRTPOR
RDT
60 RDEVER
TRNE DV.TAP
JRST PRTTAP
TRNE DV.PCK
JRST PRTPCK
TMSGD <DEVICE TYPE NOT REC06NI
is this an NI/CI port?
yes - go print port registers
read device type
got read error
skip if not tape
print tape registers
skip if not pack
; print pack registers
hD>
; report command error
JRST CMDERR ; report command error
;* PRTTAP - Handle TU16 examine request
PRTTAP: 60
CAIN
JRST
CAIN
JRST
CAIE
JRST
60
JRST
XCT
JRST
PTAP1 : MOVSI
XCT
AOBJN
JRST
INPBYT
15
PTAP1
If 11
PTAPI
I iri *
CMDERR
6ETR6
PRTEX
TU16RG(B)
.-3
C,-12
TU16RG(C)
pAtex
get next byte
skip if not carriage return
all tape registers
if not comma
all tape registers
if open bracket
error
ister decoded
exam
skip
exam
skip
command
the
get the reai
here if all
;re if all registers processed
print decoded register
loop back for next register
setup register index
print a register
loop back print all registers
exit
r
L
SEQ 0233
OFSXA
DFSXAM
7A55
7A56
7A57
7A58
7459
7A60
7A61
7462
7463
7464
7465
7466
7467
7468
7469
7470
7471
7472
7473
7474
7475
7476
7477
7478
7479
7480
7481
7482
7483
7484
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 137
MAC 29-Jul-85 11:44 COMMAND CONTROL
#***»***********•*****•♦*********************************************
* PRTPCK - Handle RP04 examine request
/>*»*********************♦*******************************♦***********♦
SEQ 0246
'?
037424
037425
037426
037427
037430
037431
037432
037433
037434
037435
037436
037437
037440
037441
037442
037443
037444
037445
037446
260 17
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
256 00
254 00
?05 02
256 00
253 02
254 00
0 00 041561
0 00 000015
0 00 037437
0 00 000054
0 00 037437
0 00 000133
0 00 037332
0 00 037560
00 037500
01 037745
00 037433
00 777760
02 037745
00 037440
00 037500
260 17 0 00 040346
260 17 0 00 040371
260 17 0 00 040452
254 00 0 00 037500
PRTPCK: GO
CAIN
JRST
CAIN
JRST
CAIE
JRST
60
JRST
XCT
JRST
PPCK1: MOVSI
XCT
AOBJN
JRST
INPBYT
15
PPCK1
PPCK1
I irt •
CMDERR
GETR6
PRTEX
RP04RG(B)
.-3
C,-20
RP04RG(C)
c,.-i
PRTEX
get next byte
skip if not carriage return
exam all tape registers
skip if not comma
exam all tape registers
skip if open bracket
command error
get the register decoded
here if alt registers processed
print decoded register
loop back for next register
setup register index
print a register
loop back print all registers
exit
#********************♦♦**********************************************
* PRTPOR - Print NI/CI port registers
PRTPOR: GO
GO
GO
JRST
PRTCSR
PRTLAR
PRTALU
PRTEX
; print CSR register
; print LAR register
; print ALU registers
; exit
J
r
SEQ 0234
DFSXA
DFSXAM
7A85
7486
7A87
7488
7489
7490
7491
7492
7493
7494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21
MAC 29-Jul-85 11:44 COMMAND CONTROL
■'S,0-b
.e 138
SEQ 0247
037447
037450
037451
037452
037453
037454
037455
037456
037457
037460
037461
037462
037463
037464
037465
037466
037467
037470
037471
037472
037473
037474
037475
037476
037477
037500
037501
333 00 0 16 060633
254 00 0 00 037502
336 00 0 16 060633
254 00 0 00 037532
037 01
037 01
550 OU
037 17
037 01
037 01
037 01
135 00
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
254 00
205 02
256 00
253 02
135 00
254
0 00 000074
0 00 071137
0 00 000016
C 00 000003
0 00 070520
0 00 000076
0 00 030242
0 00 000012
0 00 000015
0 00 037475
0 00 000073
0 00 037475
0 00 000133
0 00 037332
0 00 037560
.. 0 00 037500
00 0 01 037766
0 00 037471
0 00 nmi
0 02 037766
J 00 037476
0 00 000012
0 00 036631
•#**********************•*********************************************
;* PRTRH6 - Handle RH20/DTE20 examine request
; Check controller type
PRTRHG: SKIPLE CHTYPE (CNTRL)
JRST PRTPOG
SKIPN CHTYPE(CNTRL)
JRST PRTDTG
; RH20
00
PRHG1
PRTEX:
PNTCIF
1 1^1 1
FMSG
<C>
HRRZ
CNTRL
PNTOCF
FMSG
<:>
PNTCIF
PCRLF
LDB
PNTR
CAIN
15
JRST
PRHGl
CAIN
JRST
PRHGl
CAIE
JRST
CMDERR
GO
GETR6
JRST
PRTEX
XCT
RH20RG(B)
JRST
.-3
MOVSI
C.-6
XCT
RH20RG(C)
AOBJN
C,.-1
LDB
PNTR
JRST
D0.E2+1
IS this controller an NI/CI port?
yes - go handle
fs this controller a DTE?
yes - go handle
get next byte
skip if not carriage return
exam all tape registers
skip if not semicolon
exam all tape registers
skip if open bracket
command error
get the register decoded
return to t processor
print decoded register
loop back for next register
setup register index
print a register
loop back print all registers
get terminating byte again
return to E processor
0235
DFSXA
DFSXAM
7522
7523
752^
7525
7526
7527
7528
7529
7530
7531
7532
7533
753A
7535
7536
7537
7538
7539
75A0
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 139
MAC 29-JUL-85 11:44 COMMAND CONTROL
;,rf ********************************************************************
;* PRTP06 - Handle NI/CI port examine request
SEQ 0248
037502
037503
037504
037505
037506
037507
037510
037511
037512
037513
037514
037515
037516
037517
037520
037521
037522
037523
037524
037525
037526
037527
037530
037531
037 01
037 01
550 00
037 17
037 01
550 01
0 00 000074
0 00 071137
0 00 000016
0 00 000003
0 00 070520
0 00 000016
01
00
256 00
037 01
iiT
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
0 01 071160
0 00 000076
0 00 030242
0 00 000012
0 00 000015
0 00 037526
0 00 000073
0 00 037526
0 00 000133
0 00 037332
0 00 037560
0 00 037500
256 00 0 01 071416
254 00 0 00 037522
260 17 0 00 040346
260 17 0 00 040371
260 17 0
254 00 0
00 040452
00 037500
PRTPOG: PNTCIF
FMS6
HRRZ
PNTOCF
FMSG
HRRZ
XCT
PNTCIF
PCRLF
LDB
CAIN
JRST
CAIN
JRST
CAIE
JRSI
GO
JRST
XCT
JRST
P0RPG1: GO
GO
GO
JRST
I 1^1 I
<C>
CNTRL
<:>
1, CNTRL
[FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
PNTR
15
P0RP61
' * • ' '
PORPGI
I ir I I
CMDERR
GETRG
PRTEX
[GO
GO
60
JRST
.-3
PRTCSR
PRTLAR
PRTALU
PRTEX
< Port-0>
< Port-1>
< Port-2>
< Port-3>
< Port-4>
< Port-NI>
< Port-6>
< Port-CI>J(1)
PRTCSR
PRTLAR
PRTALU
CMDERR] (B)
get next byte
skip if not carriage return
exam aU registers
skip if not semicolon
exam all registers
skip if open bracket
command error
get the register decoded
return to t processor
print decoded register
loop back for next register
print CSR register
print LAR register
print ALU registers
exit
DFSXA
DFSXAI*
794(
794/
794f
794^
795(
7951
795^
795:
795^
7955
795e
795?
795?
795S
796C
7961
7962
7963
796^
7965
7966
796?
796f
796^
797C
7971
7972
797^
797^
797'
797(
797;
0236
DFSXA
DFSXAM
7561
7562
7563
756A
7565
7566
7567
7568
7569
7570
7571
7572
7573
757A
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page UO
MAC 29-Jul-85 11:44 COMMAND CONTROL
#*******************••***♦****•***♦**********************************
* PRTDT6 - Handle DTE20 examine request
/lf******************************<. *************************************
SEQ 0249
037532
037533
037534
037535
037536
037537
037540
037541
037542
037543
037544
037545
037546
037547
037550
037551
037552
037553
037554
037555
037556
037557
037 00
037 01
135 00
037 17
037 01
037 01
037 01
135 00
306 00
254 00
306 00
254 00
302 00
254 00
260 17
254 00
256 00
254 00
205 02
256 00
253 02
254 00
0 00 000074
0 00 070455
0 00 070321
0 00 000003
0 00 070520
0 00 000076
0 00 030242
0 00 000012
0 00 000015
0 00 037554
0 00 000073
0 00 037554
0 00 000133
0 00 037332
0 00 037560
0 00 037500
0 01 065634
0 00 037550
0 00 iimi
0 02 065634
0 00 037555
0 00 037500
PRTDT6:
PDT61
PNTCI
1 Iv't 1
FMS6
<F>
LDB
[POINT 3,CNTRL,35]
PNTOCF
FMS6
<:>
PNTCIF
">"
PCRLF
LDB
PNTR
CAIN
15
JRST
PDTG1
CAIN
JRST
PDTG1
CAIE
"['•
JRST
CMDERR
60
GETR6
JRST
PRTEX
XCT
DT20R6(B)
JRST
.-3
MOVSI
C.-6
XCT
DT20RG(C)
AOBJN
C,.-1
JRST
PRTEX
get next byte
skip if not carriage return
exam all tape registers
skip if not semicolon
exam all tape registers
skip if open bracket
command error
get the register decoded
return to E processor
print decoded register
loop back for next register
setup register index
print a register
loop back print all regi' rs
go exit
DFSXA
DFSXAK
7978
7979
798C
7981
7982
7983
798^
7985
7986
7987
798?
798S
799C
7991
799^
7993
799^
799!
799<
799(
799i
799<
800(
800'
800;
eoo:
800-
0237
DFSXA
DFSXAM
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
760A
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634
7635
DErSYSTEM KLIO CHANNEL/DTE20 iNTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 141
MAC 29-Jul-85 11:44 COMMAND CONTROL
f ********************************************************* ***********
* GETRG - Decode specified register
/^************************************************* *******************
SEQ 0250
037560
037561
037562
037563
037564
037565
037566
037567
037570
037571
037572
037573
037574
037575
037576
037577
037600
037601
037602
037603
037604
037605
037606
037607
037610
037611
037612
037613
037614
037615
037616
037617
037620
037621
037622
0?"'623
0.524
037625
260 17
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
0 00 037673
0 00 000021
0 00 020722
0 00 000000
0 00 021123
0 00 000001
0 00 021261
0 00 000002
0 00 023324
0 00 000003
0 00 020323
0 00 000004
0 00 021503
0 00 000005
0 00 021124
0 00 000006
0 00 020713
0 00 000007
0 00 024716
0 00 000010
0 00 025103
0 00 000011
GEIRG:
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
01 0
0 00 020715
0 00 000000
0 00 024124
0 00 000001
0 00 024101
0 00 000002
0 00 024724
. 00 000003
0 00 024701
0 00 oooo:4
00 022322
00 000005
00 024502
00 000006
00 024107
00 000020
0
0
0
0
0
0
GO
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
CAIN
MOVE I
6ETCHR
B,21
C/'CR"
B,0
C,"DS"
BJ
C/'EI"
B,2
C/WT"
B,3 .
C."AS"
B,4
C'TC"
B.5
C/'DT"
8,6
C/'CK"
B.7
C,"SN"
B,10
C,"TC"
BJI
get the next character group
set up if command error
CONTRL register?
yes - decode such
STATUS?
yes - decode such
ERROR 1?
yes - decode ruch
MAINT?
yes - decode such
ATTENTION SUMMARY?
yes - decode such
FRAME COUNTER?
yes - decode such
DRIVE TYPE?
yes - decode such
CHECK CHAR?
yes - decode such
SERIAL *?
yes - decode such
TAPE CONTRL?
yes - decode such
jif*************************************************** *****************
* RH20 Registers
#«*»**»********•*********♦*****************************♦*************
COMMAND STATUS?
yes - decode such
Primary transfer?
yes - decode such
PRIMARY BLOCK ADDRESS?
yes - decode such
SECONDARY TRANSFER?
yes - dfrode such
SECONDAf ■ BLOCK ADDRESS?
yes - decode such
INTERRUPT VECTOR?
yes - decode such
ADDRESS BUFFER?
yes - decode such
CHANNEL PROGRAM DUMP?
yes - decode such
CAIN
C,"CM
MOVE I
B,0
CAIN
C/'PT
MOVE I
B.I
CAIN
C."PA
MOVE I
B.2
CAIN
C."ST
MOVE I
B.3
CAIN
C."SA
MOVE I
B.4
CAIN
C."IR
MOVE I
B.5
CAIN
C."R8
MOVE I
B.6
CAIN
C."PG
MOVE I
B.20
0238
DFSXA
DFSXAM
7636
7637
7638
7639
76A0
76A1
76A2
76A3
76A4
76A5
76A6
IbUl
76A8
76A9
7650
7651
7652
7653
765A
7655
7656
7657
7658
7659
7660
7661
7662
7663
766A
7665
7666
7667
7668
7669
7670
7671
7672
7673
767A
7675
7676
7677
7678
7679
7680
7681
7682
7683
768A
7685
7686
7687
7688
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO !i:53B(12A2) 14:07 21-Aug-85 Page K2
MAC 29-Jul-85 11:AA COMMAND CONTROL
SEQ 0251
037626
037627
037630
037631
037632
037633
03763A
037635
037636
037637
0376A0
0376A1
0376A2
0376A3
0376AA
0376A5
0376A6
0376A7
037650
037651
037652
037653
03765A
037655
037656
037657
037660
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
306 02
201 01
335 00
25A 00
201 01
306 02
201 01
306 02
2u' 01
337 00
0
0
0
0
0
0
0
0 00 025123
0 00 000005
00 023101
00 000007
00 023706
00 000011
00 021103
00 000012
. 00 020703
0 00 000013
0 00 021262
00 00001 A
00 021263
00 000015
00 020661
0 00 000016
0 00 020662
00 000017
16 060633
00 037670
037661
201 01
037662
316 02
037663
201 01
03766A
316 02
037665
201 01
037666
316 02
037667
201 01
0 00 000002
0 00 025123
0 00 000000
0 00 025103
0 00 000001
._ . 0 16 060633
254 00 0 00 037670
0 00 000002
0 00 071 A23
0 00 000000
0 00 071A25
0 00 000001
0 00 071A27
0 00 000002
037670
037671
037672
CAIN C,"TS"'
MOVEI B.5 .,
CAIN C/'LA"
MOVLI B,7 .,
CAIN C,"OF"
MOVEI 8,11 .,
CAIN C,"DC"
MOVEI B,12 ..
CAIN C/'CC"
MOVEI 8.13^.,
CAIN C,"E2"
MOVEI B,1A^.,
CAIN C,"E3"
MOVEI BJ5 ..
CAIN C."C1"
MOVEI B,16^..
CAIN C,"C2"
MOVEI BJ7
SKIP6E CHTYPE(CNTRL)
JRST GETRGX
TRACK AND SECTOR?
yes - decode such
LOOK AHEAD?
yes - decode such
OFFSET?
yes - decode such
DESIRED CYLINDER?
yes - decode such
CURRENT CYLINDER?
yes - decode such
ERROR 2?
yes - decode such
ERROR 3?
yes - decode such
CHECK 1?
yes - decode such
CHECK 2?
yes - decode such
RH20?
yes - exit
/If********************************************************************
* Decode DTE20 register type
/(f***************************** ***************************************
MOVEI B.2 ,,
CAIN C/'TS"
MOVEI B,0 .
CAIN C,"TC"
MOVEI BJ
SKIPG CHTYPE(CNTRL)
JRST GETRGX
set up if command error
10 STATUS?
yes - decode such
10 BYTE COUNT?
yes - decode such
DTE?
yes - exit
/If************* *******************************************************
* Decode port register type
/If********************************************************************
MOVEI B.2
CAMN C.CSIXBTZ /CSR/]
MOVEI B,0
CAMN C.CSIXBTZ /i^R/l
MOVEI BJ
CAMN CCSIXBTZ /ALU/]
MOVEI B.2
set up if command error
CSR register?
yes - decode such
LAR register?
yes - decode such
ALU registers?
yes - decode such
332 00 0 00 000002
GETRGX: SKIPE
C
350 00 0 17 000000
AOS
(P)
263 17 0 00 000000
RTN
;/(f******************* ************************ *************************
;* Setup to leave
• /If********************************************************************
; skip if register C empty
; setup skip
; exit
0239
OFSXA
DFSXAM
7689
7690
7691
7692
7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
770A
7705
7706
7707
7708
7709
7710
7711
7712
7^3
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 143
MAC 29-JUL-85 11:44 COMMAND CONTROL
•#********************•****••*****************************************
;* 6ETCHR - Get next character group
SEQ 0252
037673
037674
037675
037676
037677
037700
037701
037702
037703
037704
037705
037706
037707
037710
037711
037712
037713
037714
037715
037716
037717
037720
037721
037722
205 03
402 00
260 17
306 00
263 17
306 00
263 17
306 00
263 17
306 00
263 17
306 00
263 17
137 00
253 03
254 00
0 00 iiini^
0 00 000002
00 041561
00 000135
00 000000
00 000054
0 00 000000
0 00 000073
0 00 000000
0 00 000000
0 00 000000
0 00 000015
0 00 000000
0 03 037713
0 00 037675
0 00 037332
07 07 0 00 000002
00 07 0 00 000002
00 07 0 00 000002
303 00 0 00 000067
263 17 0 00 000000
301 00 0
350 00 0
263 17 0
00 000060
17 000000
00 000000
GETCHR: MOVSI
SETZM
GTCHR1: GO
CAIN
RTN
CAIN
RTN
CAIN
RTN
CAIN
RTN
CAIN
RTN
DPB
AOBJN
JRST
D.-4
C
INPBYT
I in I I
0
15
RGPNT(D)
D.GTCHR1
CMDERR
RGPNT: POINT 7,C,28
POINT 7,C,35
POINT 7,C,35
setup Limit to pair size
clear character receiver
get next byte
close bracket?
yes - exit
comma?
yes - exit
semicolon?
yes - exit
null?
yes - exit
carriage return?
yes - exit
store byte
get another character
command error
byte 0
byte 1
overwrite byte 1 on error
;* RNGCHK - Range check value in ACO
RNGCHK: CAILE
RTN
CAIL
AOS
RTN
"0"
(P)
skip if less than or equal to 7
not octal
skip if less than 0
setup skip
exit
Q 0240
DFSXA
DFSXAM
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
77A0
7741
7742
7743
7744
7745
7746
7747
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 144
MAC 29-JUL-85 11:44 COMMAND CONTROL
•/>***«*********************•******************************************
;• TU16RG - Print TU16 registers
)#**•*•******•**********♦*********************************************
SEQ 0253
037723
037724
037725
037726
037727
037730
037731
037732
037733
037734
037735
037736
037737
037740
037741
037742
037743
037744
260
260
260
260
260
260
260
260
260
260
300
300
300
300
300
037
260
254
17
1 7
17
17
17
17
17
17
17
17
00
00
00
00
00
01
17
00
0 00 040033
0 00 040046
0 00 040112
0 00 040160
0 00 040235
0 00 040263
0 00 041077
0 00 040305
0 00 041140
0 00 040313
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 071430
0 00 041757
0 00 037332
TU16R6: 60
GO
60
60
60
60
CAI
CAI
CAI
CAI
CAI
FMS6D
60
JRST
PRTCR
PRTSR
PRTER
PRTMT
PRTAS
PRTFC
PRTDT
PRTCHK
PRTSN
PRTTC
<ILLEGAL REGISTER
DMPPRG
CMDERR
FOR
print
print
print
print
print
print
print
print
print
print
pos i t
pos i t
pos i t
pos i t
- posit
Tul6>
; duflip
: hand I
command register
status register
error register
maint register
atten summary
frame counter
device type
check character
serial #
tape control
'on
'on
'on
'on
ion
for
for
for
for
for
register
registe'-
register
register
register
12
13
14
15
16
channel program
e command error
Q 02«1
OFSXA
OFSXAM
7748
77A9
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 145
MAC 29-JUL-85 11:44 COMMAND CONTROL
f******************************************** ************* ***********
* RP04RG - Print RP04 registers
fft**********************************'^ *******************************
SEQ 0254
037745
037746
037747
037750
037751
037752
037753
037754
037755
037 ^'56
037757
037760
037761
037762
037763
037764
037765
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17
260 17
260 17
260 17
260 17
00 040033
00 040046
00 040112
00 040202
00 040235
00 040271
00 041077
00 040543
00 041140
00 040552
00 040573
00 040602
00 040606
00 040652
00 040677
00 040703
00 041757
RP04RG: 60
GO
PRTCR
PRTSR
PRTER
PRTMR
PRTAS
PRTTS
PRTDT
PRTLA
PRTSN
PRTOFF
PRTDC
PRTCC
PRTER2
PRTER3
PRTEC1
PRTEC2
DMPPRG
print command register
print status
print error 1
print maint
print atten summary
print track I sector
print device type
print Look ahead
print serial #
print offset
print desired cylinder
print current cylinder
print error 2
print error 3
print error check 1
print error check 2
dump channel program
DFS)
DFS)
8^
81
8"
8'
8'
8'
8'
8'
8'
8'
8
8
8-
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
n
EQ ^21^2
DFSXA
DFSXAM
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
778A
7785
7786
7787
7788
7789
7790
7791
7792
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page U6
MAC 29-JuL-85 11:44 COMMAND CONTROL
* RH20RG - Print RH20 registers
SEQ 0255
037766
037767
037770
037771
037772
037773
037774
037775
037776
037777
040000
040001
040002
040003
040004
040005
040006
040007
260 17
260 17
260 17
260 17
260 17
260 17
260 17
300 00
300 00
300 00
300 00
300 00
300 00
300 00
300 00
300 00
260 17
254 00
0 00 041204
0 00 041252
0 00 041360
0 00 041334
0 00 041365
0 00 041341
00 041353
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
. 00 000000
0 00 000000
0 00 041757
0 00 037332
RH20RG: 60
GO
GO
60
GO
60
60
CAI
CAI
CAI
CAI
CAI
CAI
CAI
CAI
CAI
60
JRST
PS TAT
PPTCR
PPBAR
PSTCR
PSBAR
PIVR
PRDR
DMPPRG
CMDERR
register 7
register 10
register 11
register 12
register 13
register 14
register 15
register 16
register 17
dump channel program
command error
DFS
DPS
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
n
r
EQ 0243 !
DFSXA
DFSXAM
7793
7794
7795
7796
7797
7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) 14:07 21-Aug-85 Page 147
MAC 29-JUL-85 11:44 COMMAND CONTROL
fHitifiiiiiilili********* *********************** ****************************
* PRTID - Print drive identification
fft********************************************* **********************
SEQ 0256
DF!
DF!
040010
040011
040012
040013
040014
040015
040016
040017
040020
040021
040022
040023
040024
040025
040026
040027
040030
040031
040032
260 17 0 00 040016
260 17 0 00 040046
260 17
260 17
260 17
263 17
00 040112
00 041077
00 041140
00 000000
037 00
037 00
550 00
037 16
037 00
301 16
254 00
550 00
332 00
037 16
037 00
037 00
263 17
0 00 000074
0 00 071137
0 00 000016
0 00 000003
0 00 070520
0 00 000010
0 00 040030
0 00 000015
0 00 000015
0 00 000003
0 00 000076
0 00 030242
0 00 000000
PRTID;
GO
PRTHDR
GO
PRTSR
GO
PRTER
GO
PRTDT
GO
PRTSN
RTN
; print the status register
; print the error register
; print the driy/e type register
; print the serial * register
; exit
ff 1,1,*************************************** ***************************
* PRTHDR - Print the header for exam command
/^»****«************* ***************************** ********************
PRTHDR: PNTCI
TMSG
HRRZ
PNTOCS
TMSG
GAIL
JRST
HRRZ
SKIPE
PNTOCS
PNTCI
PCRL
RTN
<C>
CNTRL
<:>
CNTRLJO
.+4
DEV
DEV
I 1^1 I
; skip if no device
r
L
r"
SEQ 024A
DFSXA
DFSXAM
7823
782A
7825
7826
7827
7828
7829
7830
7831
7832
7833
783A
7835
7836
7837
7838
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO Z53B(1242) K:07 21-Aug-85 Page U8
MAC 29-JuL-85 11:44 COMMAND CONTROL
.ft1,ii**1t*if It ************************* ***********************************
]* PRTCR - Print conwnand register
• fft********************* ***************************** *****************
SEQ 0257
DF
DF
040033
040034
040035
040036
040037
040040
040041
040042
040043
040044
040045
037
260
260
202 00
602 00
037 01
037
135
037 01
037 01
263 17
01 0 00
17 0 00
17 0
0
0
0
01
01
00
00
00
00
0 00
00
01
00
00
071436 PRTCR: FMSG
<CR: >
043165
RCR
043652
60
RDEVER
000001
MOVEM
B ^
004000
TRNE
1B24
071437
FMSG
<DVA>
071440
FMSG
< CMD: >
071442
LDB
B. [POINT 5.B.34]
041274
PNTMSF
aDMFC(B)
030242
PCRLF
000000
RTN
; read the command register
; read error
; put into register B
; skip if drive a\/ailabLe=0
; right justify command
; print command
; end of line
r
L,
SEQ 02A5
DFSXA
DFSXAM
7839
78A0
78A1
78A2
7843
78A4
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 149
MAC 29-Jul-85 11:44 COMMAND CONTROL
•#**»»***************•♦**♦♦****♦*******•******************************
;* PRTSR - Print the status reg
SEQ 0258
Dl
040046
040047
040050
040051
040052
040053
040054
040055
040056
040057
040060
040061
040062
040063
040064
040065
040066
040067
040070
040071
040072
040073
040074
040075
040076
040077
040100
040101
040102
040103
040104
040105
040106
040107
040110
040111
260 17
260 17
202 00
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
60? 01
G^'' 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
037 00
263 17
0 00 043177
0 00 043652
0 00 000001
0 00 071443
0 00 100000
0 00 071444
0 00 040000
0 00 071445
0 00 020000
0 00 071446
0 00 010000
0 00 071447
0 00 004000
00 071450
00 002000
00 071451
. 00 000400
0 00 071452
0 00 000200
0 00 071453
0 00 000100
0 00 071454
0 00 000040
0 00 071456
0 00 000020
0 00 071457
0 00 000010
0 00 071461
0 00 000004
0 00 071462
00 000002
00 071463
00 000001
00 071464
00 030242
00 000000
PRTSR: RDS
GO
MOVEM
PRTSR1: TMS6
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
PCRL
RTN
RDEVER
B
<DS: >
B.ATA
<ATA,>
B.CERR
<ERR,>
B,PIP
<PIP,>
B.MOL
<MOL,>
B.WRL
<WRL.>
B,EOT
<EOT,>
B.DPR
<DPR,>
B,DRY
<DRY,>
b.SSC
<SSC/VV,>
B.PES
<PES,>
B.SDWN
<SDUN.>
B.IDB
<ID8,>
B,EOF
<TM,>
B.BOT
<80T,>
B,SLA
<SLA;>
read the status
read error from drive
save it
skip if -ATA
print ATA
composite error?
positioning?
SEQ 02A6
.DFSXA
'DFSXAM
7880
7881
7882
7883
788A
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
^Bv9
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
79U
7915
7916
7917
7918
7919
7920
7921
7922
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 150
MAC 29-Jul-85 11:44 COMMAND CONTROL
• ffttit ********** ******************** ***********************************
':* PRTER - Print the error register
■0********************************************************************
SEQ 0259
040112
040113
040114
040115
040116
040117
040120
040121
040122
040123
040124
040125
040126
040127
040130
040131
040132
040133
040134
040135
040136
040137
040140
040141
040142
040143
040144
040145
040146
040147
040150
040151
040152
040153
040154
040155
040156
040157
260 17
260 17
202 00
037 00 0
602 01 0
037 00
602 01
037 00 0
602 01 0
037 00
602 01
037 00
602 01
037 00
602 01
037 00
C02 01
037 00
602 01
037 00 0
602 01 0
037 00
602 01
037 00 0
60? 01 0
0:.^ 00
602 01
037 00
602 01
037 00
602 0.
037 00
602 01
037 00
602 01
037 00
037 00
263 17
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
043211
043652
000001
071465
100000
071466
040000
071467
020000
071470
010000
071471
004000
071472
002000
071473
001000
071474
000400
071475
000200
071476
000100
071477
000040
071500
000020
071502
000010
071503
000004
071505
000002
071506
00C001
071507
030242
000000
PRTER: RER
GO
HOVEM
PRTER1: TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
PC
R^
RDEVER
B
<E1: >
B,CRC
<C0R.>
B,UNS
<UNS.>
B.OPI
<0PI,>
B.DTE
<DTE,>
B.NEF
<NEF.>
B.ITM
<CS.>
B.FCE
<FCE,>
B^NSG
<NSG.>
B.LRC
<PEF,>
BJNC
<INC,>
B,DPAR
<DPAR,>
B.FMT
<FMT,>
B,CPAR
<CPAR,>
B.RMR
<RMR.>
B.ILR
<ILR,>
B.ILF
<ILF;>
read error 1
read errorl
save it
SEQ 02i*7
DFSXA
DFSXAM
7923
792^
7925
7926
7927
7928
7929
7930
7931
7932
7933
793A
7935
7936
7937
7938
7939
7940
7941
7942
7943
7944
7945
OEl:ySTEM KLIO CHANNEL/DTE20 interaction test - VER 0,7 MACRO 5!53B(1242) 14:07 21-Aug-85 Page 151
MAC 29-JUL-85 ^^^M COMMAND CONTROL
•#*♦*»****************** t*********** ************** ********************
;* PRTMT - Print maint register ^^^^^
•#********************************************************************
SEQ 0260
040160
040161
040162
040163
040164
040165
040166
040167
040170
040171
040172
040173
040174
040175
040176
040177
040200
040201
037 01
260 17
260 17
202 00
135 00
037 03
037 01
135 00
037 02
037 01
602 01
057 01
602 01
037 01
602 01
037 01
037 01
263 17
0 00 071510
0 00 043223
0 00 043652
0 00 000001
0 00 071512
0 00 000001
0 00 071513
0 00 071515
0 00 000001
0 00 071516
0 00 000100
0 00 071520
0 00 000040
0 00 071521
0 00 000001
0 00 071522
0 00 030242
0 00 000000
PRTMT:
FMS6
RMT
GO
MOVEM
LDB
PNT3F
FMSG
LDB
PNT2F
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
PCRLF
RTN
<MT:
MDF: >
RDEVER
B
[POINT 9,B,28]
< MOP: >
[POINT 4,B,34]
< CLKS: >
B,1B29
<SWC,>
BJB30
<MC.>
B.I
<MM;>
read the maintenance register
read error
put into register B
5248
OFSXA
OFSXAM
79A6
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961
7962
7963
7964
7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 152
MAC 29-JuL-85 11:44 COMMAND CONTROL
* PRTMR - Print maint register (RP04)
ff ■kit1i1i*1flt1i1t It************ 1fk1t1ck1i*1i1i**1t ******* It**************************
SEQ 0261
040202
040203
040204
040205
040206
040207
040210
040211
040212
040213
040214
040215
040216
040217
040220
040221
040222
040223
040224
040225
040226
040227
040230
040231
040232
040233
040234
037 01
260 17
260 17
202 00
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
or 01
0:.'' 01
263 17
0 00 071523
0 00 043223
0 00 043652
0 00 000001
0 00 001000
0 00 071526
0 00 000400
0 00 071527
0 00 000200
0 00 071530
0 00 000100
0 00 071531
0 00 071533
0 00 000040
0 00 071535
0 00 000020
0 00 071536
0 00 000010
0 00 071537
0 00 000004
0 00 071541
0 00 000002
0 00 071543
0 .0 000001
0 00 071545
0 00 071546
0 00 000000
PRTMR:
FMSG
RMT
60
MOVEM
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
FMSGD
RTN
<MT:
RDEVER
B
BJ826
<SBD.>
BJB^7
<ZDT.>
B,1828
<DEN.>
B,18^9
<ECCE,>
BJ830
<MUR.>
BJB^I
<MRD,>
B,1b32
<MSCL)(,>
BJ833
<MIND,>
B,1834
<MCLK.>
B.I
<DMD.>
<;>
FNCT;
read the maintenance register
read error
put into register B
CNTRL;
)249
DFSXA
DFSXAM
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999
8000
8001
8002
8003
8004
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 153
MAC 29-JUL-85 11:44 COMMAND CONTROL
;* PRTAS - Print atten summary resgfster
•/>**************•*****************************************************
SEQ 0262
040235
040236
040237
040240
040241
040242
040243
040244
040245
040246
040247
040250
040251
040252
040253
040254
040255
040256
040257
040260
040261
040262
037 01
260 17
260 17
202 00
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
263 17
00 071547
00 043235
00 043652
00 000001
00 000200
00 071550
. 00 000100
0 00 071552
0 00 000040
0 00 071554
0 00 000020
0 00 071556
0 00 000010
0 00 071560
0 00 000004
0 00 071562
0 00 000002
00 071564
00 000001
00 071566
00 030242
00 000000
PRTAS;
FMSG
RAS
GO
MOVEM
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
PCRLF
RTN
<AS:
RDEVER
B
8,1828
<ATA7.>
8,182$
<ATA6.>
8,1830
<ATA5,>
8,1831
<ATA4.>
8,183^
<ATA3,>
8,183^
<ATA2,>
8,1834
<ATA1,>
<ATA0;>
read atten summary
read error
put into register 8
J
DFSXA DECSVSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 15A
DFSXAM MAC 29-JuL-85 11:44 COMMAND CONTROL
SEQ 0263
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
o ^ ■* ^
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042
8043
040263
037 01 0
040264
260 17 0
040265
260 17 0
040266
037 16 0
040267
037 01 0
040270
263 17 0
040271
040272
040273
040274
040275
040276
040277
040300
040301
040302
040303
040304
040305
04C306
040307
040310
040311
040312
037
260
260
202
037
135
037
037
135
037
037
263
037
260
260
037
037
?63
01
17
17
00
01
00
15
01
00
15
01
17
00 071570
00 043247
00 043652
00 000003
00 030242
00 000000
00 071571
00 043247
00 043652
00 000001
00 071572
00 071574
00 000000
00 071575
00 071600
00 000000
00 070747
00 000000
01
17
17
03
01
17
0 00 071601
0 00 043273
0 00 043652
0 00 000001
0 00 030242
0 00 000000
#♦***********************♦*******************************************
* PRTFC - Print frame counter register
PRTFC: FMS6 <FC: >
RFC
60 RDEVER
PNTOCS
PCRLF
RTN
#♦***********•*******************************************************
* PRTTS - Print track & sector register
#***♦•***************♦*******************♦*******♦*******************
; read frame counter
; read error
; print it
; end of line
PRTTS: FMSG
RFC
GO
HOVEM
FMSG
LDB
PNTDEC
FMSG
LDB
PNTDEC
FMSGD
RTN
<TS; >
RDEVER
B
<TRK: >
[POINT 5,B.27]
<. SECTOR: >
[POINT 5,B,35J
<.>
read track and sector
read error
put into register B
* PRTCHK - Print check character register
/jf«»** »***♦*♦**»***♦*♦♦*♦♦♦*♦************* ****************************
PRTCHK: FMSG <CK: >
RCK
GO RDEVER
PNT3F
PCRLF
RTN
; r?ad check char
; re*'j error
0251
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 155
DFSXAM MAC 29-JuL-85 11:44 COMMAND CONTROL
SEQ 0264
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073
8074
8075
040313
040314
040315
040316
040317
040320
040321
040322
040323
040324
040325
040326
040327
040330
040331
040332
040333
040334
040335
040336
040337
040340
040341
040342
040343
040344
040345
261 17
037 01
260 17
260 17
202 00
602 01
057 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
135 02
037 01
037 01
135 02
037 01
037 01
135 00
037 01
037 01
2oi 17
263 17
0 00 000002
0 00 071602
0 00 043261
0 00 043652
0 00 000001
0 00 100000
0 00 071605
0 00 040000
0 00 071607
0 00 020000
0 00 071610
0 00 010000
0 00 071611
0 00 000010
0 00 071613
00 071615
00 071617
02 040513
, 00 071620
0 00 071622
1 02 040523
0 00 071623
0 00 071625
0 00 000001
0 00 030242
0 00 000002
0 00 000000
0
0
1
0
; /If*** ************************************** ***************************
;* PRTTC - Print tape control register
•#********************************************************************
PRTTC:
PUT
FMSG
RTC
GO
HOVEM
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
FMSG
LDB
C
<TC;
FLGS: >
RDEVER
B
BJB20
<ACCL,>
BJB21
<TCW.>
B,1B22
<FCS.>
B.1B^3
<EAO-DTE,>
BJB32
<EV PAR,>
< DEN: >
C, [POINT 3,B,27]
PNTMSF aDENMSG(C)
FMSG < FMT: >
LDB C, [POINT 4,B,31]
PNTMSF aFMTMSG(C)
FMSG < SLV: >
LDB [POINT 3,B.35]
PNT1F
PCRLF
GET C
RTN
save register C
read tape control
read error
put into register B
0252
DFSXA
DFSXAM
8076
8077
8078
8079
8080
8081
8082
8083
808A
8085
8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103
8104
8105
8106
8107
8108
8109
8110
8111
8112
8113
811A
8115
8116
8117
8118
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 156
MAC 29-JUL-85 11:44 COMMAND CONTROL
•#*********•****************♦*****************************************
;* PRTCSR - Print CSR register ^^^^^^^
.01,1,1,**1i*1i1c1r*iiii*ii***ii*1i* **********************************************
SEQ 0265
040346
040347
040350
040351
040352
040353
040354
040355
040356
040357
040360
040361
040362
040363
040364
040365
040366
040367
040370
037 01 0
256 00 0
202 00 0
037 13 0
261
261
17 0
17 0
200 04 0
400 05 0
404 04 0
434 04 0
322 04 0
603 04 0
256 00 0
242 04 0
345 05 0
037 01 0
262 17 0
262 17 0
263 17 0
00 071626
16 043521
00 074766
00 000001
00 000004
00 000005
00 074766
00 000000
00 071630
00 071631
00 040365
00 400000
05 040406
00 000001
00 040360
00 030242
00 000005
00 000004
00 000000
PRTCSR: FMSG
RDCSR
MOVEM
PNTHUF
PUT
PUT
MOVE
SETZ
AND
I OR
PRTCSO: JUMPE
TLNE
XCT
LSH
AOJGE
PRTCSX: PCRLF
GET
GET
RTN
<CSR: >
CSRENS*
4
5
4,CSRENS
4 ',[777770,. 777770 J
4, C000004,, 0000043
4, PRTCSX
4,400000
PRTENG(5)
4,1
5, PRTCSO
5
4
print out the data
read CSR register
save the data
print it out
save AC'S
get data into ACl
clear bit index
clear port ID and PI bits
set bits so both are printed
zero? )fes - exit
no - bit set?
yes - print it
left shift one bit
increment and keep looping
restore AC's
return
040371
Gi' 01 0 00 071632
PRTLAR: FMSG
<LAR: >
040372
201 00 0 00 400000
MOVE I
PCLEAR
040373
256 00 0 16 043570
LDCSR
040374
201 00 0 00 040000
MOVE I
SELLAR
040375
256 00 0 16 043570
LDCSR
040376
260 17 0 00 043451
RDLAR
040377
037 17 0 00 000003
PNTOCF
040400
037 01 0 00 071634
FMSG
< (Adr:
040401
260 17 0 00 043451
RDLAR
040402
242 00 0 00 777777
LSH
-1
040403
037 17 0 00 000003
PNTOCF
040404
037 01 0 00 071636
FMSGD
<)>
040405
263 17 0 00 000000
RTN
.fftclilcic****************************************************************
':* PRTLAR - Print LAR register
• 01,1,******************************************************************
print out the data
get 'port clear' bit
stop the port
get 'DIAG Sel LAR' bit
write to CSR register
read LAR
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO :53B(12A2) U:07 21-Aug-85 Page 157
DFSXAM MAC 29-Jul-85 11:AA COMMAND CONTROL
SEQ 0266
8119
8120
8121
8122
8123
8124
8125
8126
8127
8128
8129
8130
8131
8132
8133
81 3A
8135
8136
8137
8138
8139
81A0
8K1
8142
8143
8144
8145
8146
3147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8160
8161
8162
8163
8164
8165
8166
8167
040406
040407
040410
040411
040412
040413
040414
040415
040416
040417
040420
040421
040422
040423
040424
040425
040426
040427
040430
040431
040432
040433
040434
040435
040436
040437
040440
040441
040442
040443
040444
040445
040446
040447
040450
040451
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
260 17
255 00
255 00
037 01
037 01
037 01
037 01
Gi' 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
037 01
0 00
0 00
00
00
0 00
0 00
0 00
00
00
00
0 00
00
00
00
00
0 00
0 00
0 00
0 00
00
00
0
0
0 00
00
00
0 00
0 00
0 00
0 00
00
00
00
00
00
071637
071641
071643
071645
071647
071651
071653
071655
071657
071661
071663
071665
071667
071671
071673
071677
000000
000000
071703
071705
071707
071711
071713
071715
071717
071721
071723
071725
071727
071731
071733
071735
071737
260 17 0 00 071743
255 00 0 00 000000
255 00 0 00 000000
.#*♦********»******•»**♦♦*♦•♦***************************♦♦************
;* PRTENG - CSR bits
PRTENG: FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
GO
JFCL
JFCL
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
GO
JFCL
JFCL
<PortP >
<CsrRqs >
<CsrChn >
<Dim't >
<P]00Rq >
<RqInt >
<CramPE >
<MeErr >
<Bit08 >
<Bit09 >
<Bit10 >
<IdLe >
<Dcomp >
<Ecomp >
<Bit14
CFMSG
LDB
PNT1F
rtn:
<ID=>
[POINT
00
01
02
03
04
05
06
07
08
09
10
11
12
13
14
3,CSRENSJ7]
<PClr >
<TEbijf >
<GenEPE
<SelLAR
<SinCyc
<Spare1
<EbusPE
<FQErr >
<MVE rr >
<CmdQAV
<ResQAV
<Spare2
<DisabL
<Enable
<MPRun )
CLDB
SKIPN
RTN
FMSG
PNT1F
RTNJ
16
17
18
19
20
21
22
23
24
25
26
21
28
29
30
31
* 32
[POINT 3.CSRENS.35]
<Pia=>
33-35
34
35
DFS>
DFS)
85
85
85
85
85
85
85
85
85
85
85
85
85
8!
8!
8!
8!
8'
8'
8'
8'
8
8
8
8
8
8i
8<
8i
8
8
8
8
8
8
8
8
8
8
8
8
8
8
8
- #* f\ -»
•^es^ •/r Tr* / 4 '^y n \ 1/ .n"? 1l_*..-._0C D^^^ 1CQ
Q 0254
DFSXA
DFSXAM
8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
81 8A
8185
8186
8187
8188
8189
8190
8191
8192
8193
81 94
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 158
MAC 29-JUL-85 11:44 COMMAND CONTROL
•#*******•************************************************************
':* PRTALU - Print 2901 register contents
SEQ 0267
040452
040453
040454
040455
040456
040457
040460
040461
040462
040463
040464
040465
040466
040467
040470
040471
040472
040473
040474
040475
040476
040477
040500
040501
040502
040503
040504
040505
040506
040507
040510
040511
040512
037 01 0 00 071751
037 01 0 00 071754
201 00 0 00 004005
260 17 0 00 040505
037 13 0 00 000001
037 01 0 00 071762
201 00 0 00 004006
260 17 0 00 040505
037 17 0 00 000003
037 01 0 00 071770
201 00 0 00 004010
260 17 0 00 040505
037 17 0 00 000003
037 01 0 00 071776
201 00 0 00 004011
26C 17 0 00 040505
037 17 0 00 000003
037 01 0 00 072004
201 00 0 00 004014
260 17 0 00 040505
037 17 0 00 000003
037 01 0 00 072012
201 00 0 00 004015
260 17 0 00 040505
037 13 0 00 000001
Oi.' 01 0 00 030242
263 17 0 00 000000
242 00 0 00 000001
260 17 0 00 043456
201 00
256 00
256 00
263 17
00 220010
16 043570
16 043504
00 000000
PRTALU: FMSG
FMSGC
MOVE I
GO
PNTHWF
FMSGC
MOVE I
60
PNTOCF
FMSGC
MOVE I
GO
PNTOCF
FMSGC
MOVE I
GO
PNTOCF
FMSGC
MOVE I
GO
PNTOCF
FMSGC
MOVE I
GO
PNTHWF
PCRLF
RTN
PRTALS: LSH
LDRAR
MOVE I
LDCSR
.DATAI
RTN
<ALU Registers :>
< R5 (Data word):
4005
PRTALS
< R6 (Cmd word):
4006
PRTALS
< RIO (EBUS buff adr)
4010
PRTALS
< R11 (CBUS buff adr)
4011
PRTALS
< R14 (Word count):
4014
PRTALS
< R15 (Last lOP word)
4015
PRTALS
1
220010
print it
print it
; print it
>
print it
print it
; print it
position correctly
load the RAR
single step once
write to CSR
read EBUF contents
return
DFS
DFS
8
8
8
8
8
8
8
8
8
8
8
8
8
e
U f •»#% / 4 *% / n \
OC n*-.* ICO
I
^J
Q 0255
DFSXA
DFSXAM
8207
8208
8209
8210
8211
8212
8213
821A
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5!53B(1242) 14:07 21-Aug-85 Page 159
MAC 29-JUL-85 11:44 COMMAND CONTROL
ft1,1,*1,1,1,*1,1,1c'k**********t*if ********************************************
* DENMS6 - Density message
ffi,*******************************************************************
SEQ 0268
DF5
DF!
040513
040514
040515
040516
040517
040520
040521
040522
0405?^
0405c?^
040525
040526
040527
040530
040531
040532
040533
040534
040535
040536
040537
040540
040541
040542
000000
000000
000000
000000
000000
000000
000000
000000
000000
oocooo
000000
000000
000000
000000
000000
000000
000000
000000
oonooo
GuJOOO
000000
000000
000000
000000
072020
072022
072024
072024
072026
072030
072032
072034
072036
072040
072042
072044
072045
072030
072032
072034
072047
072052
072055
072060
072063
072066
072071
072074
DENMSG: [ASCIZ/200 BPI/]
[ASCIZ/556 BPI/3
tASCIZ/800 BPI/]
[ASCIZ/800 BPI/]
[ASCIZ/1600 BPI/]
CASCIZ/ILLEGAL 5/]
[ASCIZ/ILLEGAL 6/]
CASCIZ/ILLEGAL 7/1
#********<k************* **********************************************
* FMTMSG - Format message
ff1,1,ic*K******* ********************************************************
FMTMSG:
asciz/cordmp/]
asciz/7-trk/]
asciz/ascii/]
_asciz/ibm/]
:asciz/illegal 4/]
:asciz/illegal 5/]
"asciz/illegal 6/]
ASCIZ/ILLEGAL 7/2
ASCIZ/ILLEGAL 10/]
.ASCIZ/ILLEGAL 11/]
CASCIZ/ILLEGAL 12/]
ASCIZ/ILLEGAL 13/]
ASCIZ/ILLEGAL 14/]
ASCIZ/ILLEGAL 15/]
.ASCIZ/ILLEGAL 16/]
CASCIZ/ILLEGAL 17/]
• .rr\ n -J ui/-nr> •r'»n/11/T\ 1/ .m 11.
.>_oc o«/«o i>;n
;EQ 0256
DFSXA
DFSXAM
82A2
82A3
82AA
82A5
82A6
82A7
8248
82A9
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
826A
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z538(1242) 14:07 21-Aug-85 Page 160
MAC 29-JUL-85 11:44 COMMAND CONTROL
.0i,iii,t ********* *******************************************************
':* PRTLA - Print look ahead register
.ff********************************************************************
SEQ 0269
DF
DF
040543
040544
040545
040546
040547
040550
040551
040552
040553
040554
040555
040556
040557
040560
040561
040562
040563
040564
040565
040566
040567
040570
040571
040572
037 01 0 00 072077
260 17 0 00 043317
260 17 0 00 043652
135 00 0 00 072100
037 15 0 00 000000
037 01 0 00 070747
263 17 0 00 000000
037 01
260 17
260 17
202 00
135 00
037 15
037 01
602 01
037 01
602 01
037 01
602 01
037 01
6uJ 01
037 01
037 01
263 17
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
072101
043343
043652
000001
072102
000000
072103
100000
072105
010000
072107
004000
072111
002000
072113
030242
000000
PRTLA: FMSG <LA: >
RLA
GO RDEVER
LDB [POINT 4,0,29]
PNTDEC
FMSGD <•>
RTN
read the look ahead
read error
get sector
print It
ft********************************************************************
* PRTOFF - Print offset
f ********************************************************************
PRTOFF: FMSG
ROF
GO
HOVEM
LDB
PNTDEC
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
PCRLF
RTN
<0F: >
RDEVER
8
[POINT 8,8,35]
B.1B20
<SGCH,>
B.1B23
<FMT22,>
B,1B24
<ECCI,>
B,1825
<HCI,>
FLGS: >
read offset
read error
put in register B
get offset value
print it
L
A r- 0^ .
;EQ 0257
DFSXA
iDFSXAM
8276
8277
8278
8279
8280
8281
8282
8283
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
DECSYSTEM KL10 CHANNEL/DTE20
MAC 29-JUL-85 11:44
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 161
COMMAND CONTROL
•#***«********♦»*******♦♦♦♦♦*****♦*****♦******************************
;* PRTDC - Print desired cylinder
. 01,1,1,* iiiiiii,*********** ********** ***************************************
SEQ 0270
r
Dl
Dl
040573
040574
040575
040576
040577
040600
040601
037 01
260 17
260 17
135 00
037 15
037 01
263 17
0 00 072114
0 00 043355
0 00 043652
0 00 000000
0 00 070747
0 00 000000
040602 037 01 0 00 072116
040603 260 17 0 00 043367
040604 260 17 0 00 043652
040605 254 00 0 00 040576
PRTDC: FMS6 <DC: >
RDC
GO RDEVER ^ ^ ,„
PRTDC1: LD8 [POINT 9,0.35]
PNTDEC
FMSGD <•>
RTN
; read cylinder position
; error ^ _ .
; keep just last 9 bus
; print it
f* *♦♦*»**♦*****»**♦***♦♦♦*»*********♦***♦****** **********************
* PRTCC - Print current cylinder
/(f* *******************************************************************
PRTCC: FMSG
RCC
GO
JRST
<CC: >
RDEVER
PRTDC1
; read current position
; error
; print it
r
n -7 tkrnn *C7QA1'5/•5^ 1/.n7 OI-Ann-fl^ D:
1A?
r
SEQ 0258
DFSXA
df:xam
8298
8299
8300
8301
8302
8303
830A
8305
8306
8307
8308
8309
8310
8311
8312
8313
83U
8315
8316
8317
8318
8319
8320
8321
8322
8323
832A
8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 162
MAC 29-JUI-85 11:44 COMMAND CONTROL
^iii,*********** *********************************************** ********
.* PRTER2 - Print error 2 ...^^.^
•Hi,*******************************************************************
SEQ 0271
r
!
C
iC
040606
040607
040610
C4061 1
040612
040613
040614
04061 5
040616
040617
040620
040621
040622
040623
040624
040625
040626
040627
040630
040631
040632
040633
040634
040635
040636
040637
040640
040641
040642
040643
040644
040645
040646
040647
040650
040651
037 01
260 17
260 17
202 00
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
60? 01
Gi' 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
263 17
0 00 072117
0 00 043331
0 00 043652
0 00 000001
0 00 100000
0 00 072120
0 00 020000
0 00 072122
0 00 010000
0 00 072123
0 00 004000
0 00 072125
0 00 002000
0 00 072126
0 00 001000
0 00 072127
' 00 000400
00 072130
00 000200
. 00 072131
0 00 000100
0 00 072132
0 00 000040
0 00 072133
0 00 000020
0 00 072134
0 00 000010
0 00 072135
00 000004
00 072136
00 000002
00 072137
00 000001
00 072140
00 071546
00 000000
0
0
0
0
0
0
0
0
PRTER2: FMSG
RER2
GO
MOVEM
TRNE
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
FMSGD
RTN
<E2: >
RDEVER
B
BJB20
<AC UNS,>
B.1B22
<PLU.>
B.1B^3
<30VU,>
B.1824
<IXE.>
BJB^5
<NAS->
8,1826
<MHS,>
B.1827
<WRU.>
8,1828
<FEN.>
8.18^9
<TUF.>
8,1830
<TDF.>
8,18^1
<MSE->
8,18^2
<CSU,>
8.18^3
<WSU,>
8,18^4
<CSF,>
8,1B!5
<UCU.>
<;>
read error 2
error
put into register B
• V V ^%ai
uirnn *C70/1^/^^ l/.n? OI-A-.n-fiC Oano 1AT
SEO 0259
DFSXA
DFSXAM
8339
83A0
834 1
, 83A2
I 8343
83AA
834 5
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 163
MAC 29-Jul-85 11:44 COMMAND CONTROL
;» PRTER3 - Print error 3
SEQ ^212
040652
040653
040654
040655
040656
040657
040660
040661
040662
040663
040664
040665
040666
040667
040670
040671
040672
040673
040674
040675
040676
037 01
260 17
260 17
202 00
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
0 00 072141
PRTER3: FMSG
0 00 043413
RER3
0 00 043652
GO
0 CO 000001
MOVEM
0 00 100000
TRNE
0 00 072142
FMSG
0 (0 040000
TRNE
0 (0 072144
FMSG
0 (0 000100
TRNE
0 CO 072145
FMSG
0 CO 000040
TRNE
0 CO 072146
FMSG
0 00 000020
TRNE
0 CO 072147
FMSG
0 CO 000010
TRNE
0 CO 072150
FMSG
0 CO 000002
TRNE
0 CO 072151
FMSG
0 CO 000001
TRNE
0 CO 072152
FMSG
0 00 071546
FMSGD
<E3: >
RDEVER
B
8,1820
<OCYL,>
B,182l
<SKI->
B.1B^9
<ACL.>
B,1830
<DCL,>
8.18^1
<PRE.>
8,18^2
<UUR->
8.1B!4
<VUF,>
8,18^5
<PSU,>
<;>
• m^ * » *\ ^
>K1^^»^ « ^V V^ftl
-7 u>rnn WC7D^11/')^ 1/.nV Ol-A.m.fii; Dana 1 AA
SEO 0260
DFSXA
DECSYST
EM KL10
DFSXAM
MAC
29-JuL-
8365
8366
8367
8368
8369
8370
040677
037 01
8371
040700
260 17
8372
040701
260 17
8373
040702
254 00
8374
8375
8376
8377
8378
8379
8380
040703
037 01
8381
040704
260 17
8382
040705
260 17
8383
040706
037 15
8384
040707
037 01
8385
040710
263 17
CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 164
■85 11:44 COMMAND CONTROL
;/>********************* ***********************************************
;* PRTEC1 - Print error check 1
I #•******************•*********************♦** ************************
SEQ 0273
0 00 072153
PRTEC1: FMS6
<C1: >
0 00 043425
REC1
0 00 043652
GO
RDEVER
0 00 040706
JRST
PTEC2A
0 00 072154
0 00 043437
0 00 043652
0 00 000000
0 00 070747
0 00 000000
;/>**********************♦*********************************************
;* PRTEC2 - Print error check 2
;/^********************************************************************
PRTEC2: FMSG <C2: >
REC2
GO RDEVER
PTEC2A: PNTDEC
FMSGD <•>
RTN
261
DFSXA
DFSXAM
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8A00
8A01
8A02
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415
8416
8417
8418
8419
8420
8421
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 165
MAC 29-JuL-85 11:44 COMMAND CONTROL
;* PRTCH1 - Print decoded Logout word 1
•#*********************♦*♦********************************************
SEQ 0274
040711 200 01 0 00 063260
040712 200 01 0 01 377001
040713 037 00 0 00 072155
040714 331 00 0 00 000001
0 00 072162
0 00 200000
0 00 072167
0 00 100000
0 00 072171
0 00 040000
0 00 072173
0 00 000400
0 00 072175
0 00 000200
0 00 072176
0 00 000100
0 00 072177
0 00 000040
0 00 071520
0 00 000020
0 00 072200
0 00 072201
0 00 072203
0 00 000003
0 00 030242
0 00 000000
040715
254 00
040716
603 01
040717
037 00
040720
607 01
040721
037 00
040722
603 01
040723
037 00
040724
603 01
040725
037 00
040726
603 01
040727
037 00
040730
603 01
040731
037 00
040732
603 01
040733
037 00
040734
603 01
040735
Oi.^ 00
040736
037 00
040737
135 00
040740
037 16
040741
037 00
040742
263 17
PRTCH1: MOVE
MOVE
PTCH1A: TMSG
SKIPL
JRST
TLNE
TMSG
TLNN
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TMSG
LDB
PNTOCS
PCRL
RTN
B,CHNX
B,ICCW+1(B)
<W1 : >
B
; get channel index
; fetch word 1
[PNTCI "<"
TMSG
PNTCI
PCRL
RTNJ
B.(CH.PAR)
<CWPE.>
B,(CH.SER)
<ADRPE,>
B,(CH.UCZ)
<NWCZ,>
B,(CH.LER)
<LER,>
B,(CH.RHE)
<RHE.>
B.(CH.LUC)
<LWC,>
B,(CH.SWC)
<SWC,>
B.(CH.OVR)
<OVR;>
< CLP: >
[POINT 22,B,35]
; skip if actual logout data
<WORD 1 NOT URITTEN>
memory parity error?
yes - print it
not SBUS error?
yes - print it
word count not 0?
no - print it
A ^ ^ m
0262
DFSXA
OFSXAM
8A22
8423
8A2A
8425
8426
8427
8428
8429
8430
8431
8432
8433
8434
8435
8436
8437
8438
8439
8440
8441
8442
8443
DECSYSTEM KLIO
MAC 29-JuL
040747
040750
040751
040752
040753
040754
040755
040756
CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z53B(1242) 14:07 21-Aug-85 Page 166
-85 1 1:44 COMMAND CONTROL
•#**********************♦*********************************************
;* PRTCH2 - Print decoded Logout word 2
)#******************•****•************************•*******************
SEQ 0275
040743 200 01
040744 200 01
040745 037 00
040746 331 00
254 00
135 00
037 16
037 00
135 00
037 16
037 00
263 17
0 00 063260
0 01 377002
0 00 072204
0 00 000001
0 00 072213
0 00 072220
0 00 000003
0 00 072221
0 00 072203
0 00 000003
0 00 030242
0 00 000000
PRTCH2:
MOVE
B,CHNX
MOVE
B.ICCU+2(B)
PTCH2A:
TMS6
<U2: WC:
SKIPL
B
JRST
[PNTCI •'<"
TMSG <WORD 2
PNTCI ">"
PCRL
RTNJ
LDB
[POINT 11,BJ3:
PNTOCS
TMSG
< DAC: >
LDB
[POINT 22, B, 353
PNTOCS
PCRL
RTN
; get channel index
; fetch word 2
; skip if valid data
11. .>»<<• ir-rn 1 1 ">/ ^\ 1/ . nf 11_«..__OC r>«<.>> 1iL7
)263
DFSXA
DFSXAM
8AAA
8A45
8AA6
8AA7
84A8
84A9
8A50
8A51
8A52
8A53
8A5A
8A55
8A56
8A57
8A58
8A59
8A60
8A61
8A62
8A63
8A6A
8A65
8A66
8A67
8A68
8A69
8A70
8A71
8A72
8A73
8A7A
8A75
8A76
8A77
8A78
8A79
8A80
8A81
8A82
8A83
8A8A
8A85
8A86
8A87
8A88
8A89
8A90
8A91
8A92
8A93
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) U:07 21-Aug-85 Page 167
MAC 29-Jul-85 11:AA COMMAND CONTROL
SEQ 0276
0A0757
0A0760
0A0761
0A0762
0A0763
0A076A
0A0765
0A0766
0A0767
0A0770
0AO771
0A0772
0A0773
0A077A
0A0775
0A0776
0A0777
0A1000
0A1001
0A1002
0A1003
0A100A
0A1005
0A1006
0A1OO7
0A1O10
0A1011
0A1012
0A1013
OA101A
0A1015
0A1016
0A1O17
0A1020
0A1021
0A1022
0A1O23
0A102A
0A1O25
0A1O26
0AI027
0A1030
0A1031
0A1032
0A1033
700 05
202 00
037 00
603 01
037 00
603 01
037 00
603 01
037 00
603 01
037 00
603 01
037 00
603 01
037 00
603 01
037 00
603 01
037 00
602 01
037 00
602 01
037 00
037 00
135 00
Oj'' 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
602 01
037 00
037 00
263 17
0 00 000000
0 00 000001
0 00 072223
0 00 OOAOOO
0 00 07222A
0 00 002000
0 00 072226
0 00 001000
0 00 072227
0 00 OOOAOO
00 072231
00 000200
00 072233
00 000100
- 00 072235
0 00 OOOOAO
0 00 072237
00 000020
00 0722A0
00 000020
00 0722A1
00 000010
00 0722A3
00 0722A5
. 00 071625
0 00 000000
0 00 072247
00 200000
00 072251
00 004000
00 072224
00 002000
00 072226
00 001000
00 072253
00 000400
. 00 072231
0 00 000200
0 00 072233
0 00 000100
00 072235
00 000040
00 072237
00 030242
00 000000
0
0
0
0
0
0
0
0
0
• /If************
;* PRTCPU - Pr
;/|f************
PRTCPU: CPCNI
MOVEM
PRTCP1: TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TLNE
TMSG
TRNE
TMSG
TRNE
TMSG
TMSG
LDB
PNT1
TMSGC
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
TRNE
TMSG
PCRL
RTN
*********************************************************
int CPU status
********************************************************
B
<EA: >
B.(1B6)
<SBUS.>
B.(1B7)
<NXM,>
B,(1B8)
<IOPF.>
B.(1B9)
<MBPAR.>
B,(18l6)
<CDIR,>
B,(1811)
<ADRP->
B,(18l2)
<PUR,>
B,(1813)
<SWP.>
B,18^1
<SWPDNE,>
B.1B32
<INTREQ;>
< PIA: >
[POINT 3,B,35]
<ER: >
B,1B19
<SWPBSY,>
BJB24
<SBUSt>
BJB2§
<NXM,>
B,1B26
<PGF,>
B.1B^7
<MBPAR,>
B.1B28
<CDIR.>
B.182^
<ADRP.>
BJ836
<PWR.>
fetch CPU status
put into register B
.^*<k^ mi c ^f\ f A '\ J 'w
..-OC O^^^ 1/.0
0264
DFSXA
DFSXAM
8A9A
8A95
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :538(1242) 14:07 21-Aug-85 Page 168
MAC 29-JUL-85 11:44 COMMAND CONTROL
#♦♦*»»»**•************♦#*♦♦♦******•*****♦********•******♦**♦*******♦*
* PRTMBE - Print M80X status
#**♦»****************•*♦♦********************•***********************
SEQ ^m
041034
041035
041036
041037
041040
041041
041042
041043
041044
041045
041046
041047
041050
041051
041052
041053
041054
041055
041056
041057
04106C
041061
041062
041063
041064
041065
041066
041067
041070
041071
041072
041073
041074
041075
041076
700 10
202 00
037 00
135 00
037 10
037 00
135 00
037 01
037 00
603 01
037 00
603 01
037 00
607 01
037 00
603 01
254 00
135 01
306 01
037 00
306 01
037 00
037 00
263 17
135 01
3or 01
037 00
306 01
037 00
306 01
037 00
306 01
037 00
037 00
263 17
0 00 000000
0 00 000001
00 072254
00 072203
00 000000
00 072255
0 00 072257
0 00 000000
0 00 072260
0 00 100000
0 00 072262
0 00 040000
0 00 072263
0 00 140000
0 00 072264
0 00 004000
0 00 041064
0 00 072265
0 00 000000
0 00 072266
0 00 000003
0 00 072270
0 00 030242
0 00 000000
0 00 072265
0 00 000000
0 00 072272
0 00 000001
0 00 072276
0 00 000002
0 00 072301
0 00 000003
0 00 072303
0 00 030242
0 00 000000
PRTMBE: MBERA
MOVEM
PRTMB1: TMS6
LDB
PNTADR
TMSG
LDB
PNT1
TMSG
TLNE
TMSG
TLNE
TMSG
TLNN
TMSG
TLNE
JRST
LDB
CAIN
TMSG
CAIN
TMSG
PCRL
RTN
PRTMB2: LDB
CAIN
TMSG
CAIN
TMSG
CAIN
TMSG
CAIN
TMSG
PCRL
RTN
B
<MA: >
[POINT 22.B.35]
< WD: >
[POINT 2,8, n
< RF: >
B.(1B2)
<SWP >
B.(1B3)
<CHN >
B,(3B3)
<CPU >
B,(1B6)
PRTI1B2
B, [POINT 2,B,5]
B,0
<MEM RD>
B.3
<CACHE RD>
B, [POINT 2,B,5]
B,0
<MEM WRT(STATUS)>
B,1
<MEM URT(DATA)>
B.2
<MEM URT>
B,3
<CACHE WRT>
read MBOX status
save it
.,,-'\i\ .k.-ri-r^i /-T im>i TrpT \.im t\ f tlA/*on *ClQ/1O/.'0\ 1/ .D? 71-Aiin-fl't Dane 1A0
r
0265
DFSXA
DFSXAM
853A
8535
8536
8537
8538
8539
8540
85A1
85A2
8543
8544
8545
8546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 169
MAC 29-JuL-85 11:44 COMMAND CONTROL
/^***»********* ************************************************ *******
* PRTDT - Print the type register
/>********************************************************************
SEQ 0278
041077
041100
04'' 101
041102
041103
041104
041105
041106
041107
041110
041111
041112
041113
041114
041115
041116
041117
041120
041121
041122
041123
041124
041125
041126
041127
041130
041131
041132
041133
041134
041135
041136
041137
037 01
260 17
037 01
037 01
037 01
037 01
037 01
202 00
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
602 01
037 01
135 01
306 01
037 01
306 01
037 01
3u^ 01
037 01
306 01
037 01
306 01
037 01
037 01
263 17
0 00 072305
0 GO 043305
0 00 000040
0 00 000074
0 00 072306
0 00 000076
0 00 000040
0 00 000001
0 00 100000
0 00 072311
0 00 040000
0 00 072312
0 00 020000
0 00 072313
0 00 010000
0 00 072314
0 00 004000
0 00 072315
0 00 002000
0 00 072316
0 00 072317
0 00 000020
0 00 072320
0 00 000012
0 00 072322
0 00 000011
0 00 072324
0 GO 000002
0 00 072326
G GO 000003
0 GO 072330
0 00 030242
0 00 000000
PRTDT;
FMSG
RDT
PSPF
PNTCIF
FMSG
PNTCIF
PSPF
MOVEM
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
LDB
CAIN
FMSG
CAIN
FMSG
CAIN
FMSG
CAIN
FMSG
CAIN
FMSG
PCRLF
RTN
<DT: >
<READ ERR0R>
B
B,DTNBA
<NSA.>
B,DTTAPE
<TAP,>
B,DTM0VH
<MOH,>
B,DTCHN7
<7CH,>
B,DTDRR
<DRQ->
B,1B^5
<SPR*^
B.CPOINT 9.B,35]
B.RP04D
< RP04>
B,TU45D
< TU45>
B,TU16D
< TU16>
B,RS04D2
< RS04-2US>
B,RS04D4
< RS04-4US>
read type register
save in register B
/•hv^^/V V fttvm A /* T T /\ftl TCPT
uca r\ 7 UAron *C7DM')/.^^ 1/.n7 ^LAiin-S*; Pane 170
r'
Q 0266
DFSXA
DFSXAM
857A
8575
8576
8577
8578
8579
8580
8581
8582
8583
858A
8585
8586
8587
8588
8589
8590
8591
8592
8593
859A
8595
8596
8597
8598
8599
8600
8601
8602
8603
860A
8605
8606
8607
8608
8609
8610
8611
8612
8613
86U
8615
8616
8617
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 170
MAC 29-JUL-85 11:44 COMMAND CONTROL
.#♦**»********************♦*•********************♦********************
;* PRTSN - Print the serial * register
•#♦*******************************************************************
SEQ 0279
df:
DF!
041140
041141
041142
041143
041144
041145
041146
041147
041150
041151
041152
041153
041154
041155
041156
041157
041160
041161
041162
041163
041164
041165
041166
041167
041170
041171
041172
041173
041174
041175
041176
041177
041200
041201
041202
041203
261 17 0
037 01 0
260 17
037 01
037 01
037 01
037 01
037 01
202 00
135 02
037 01
135 02
037 01
135 02 0
037 01 1
0
135 02
037 01 1
037 01 0
262 17 0
263 17 0
00
00
00
00
00
00
00
00
00
00
02
00
02
00
02
00
02
00
00
00
000002
072332
043401
000040
000074
072306
000076
000040
000001
072333
041164
072334
041164
071622
041164
072335
041164
070747
000002
000000
PRTSN:
PUT
FMSG
RSN
PSPF
PNTCIF
FMSG
PNTCIF
PSPF
MOVEM
LDB
PNTMSF
LDB
PNTMSF
LDB
PNTMSF
LDB
PNTMSF
FMSGD
GET
RTN
C
<SN:
<READ ERR0R>
I I,. I I
B
C, [POINT 4,B,23]
aHEXCOD(C)
C. [POINT 4,B,27]
aHEXCOD(C)
C, [POINT 4,B.31J
aHEXCOD(C)
C, [POINT 4,B,353
aHEXCOD(C)
<•>
c
000000
oonooo
GuJOOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
067671
072336
072337
072340
072341
072342
072343
072344
072345
072346
070136
072347
071137
067663
067715
070455
; Hex table
HEXCOD
[ASCIZ/O/J
[ASCIZ/1/]
[ASCIZ/2/:
[ASCIZ/3/:
[ASCIZ/4/]
[ASCIZ/5/]
[ASCIZ/6/:
[ASCIZ/7/J
[ASCIZ/8/J
[ASCIZ/9/3
[ASCIZ/A/3
[ASCIZ/B/3
[ASCIZ/C/J
[ASCIZ/D/J
[ASCIZ/E/3
[ASCIZ/F/J
save register C
read serial #
save data (serial *)
get first byte
print it
get 2nd byte
print it
restore register C
L
fvr- ^ ^ u r» rru
in riiALikici /iNTon TMTCDArTinw TPCT - uFD n 7 KAren Y'j^RflPA?) ^L'.07 ?1-Aua-85 Paae 171
t\(
a 0267
DFSXA
DFSXAM
8618
8619
8620
8621
8622
8623
8624
8625
8626
8627
8628
8629
8630
8631
8632
8633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645
8646
8647
8648
8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 KACRO 2538(1242) 14:07 21-Aug-85 Page 171
MAC 29-JUL-85 11:44 COMMAND CONTROL
#*<,***********************•******************************************
* PSTAT - Print RH20 status
SEQ 0280
DF
DF
041204
041205
041206
041207
041210
041211
041212
041213
041214
041215
041216
041217
041220
041221
041222
041223
041224
041225
041226
041227
041 230
041231
041232
041233
041234
041235
041236
041237
041240
041241
041242
041243
041244
041245
041246
041247
041250
041251
037 00
602 01
037 00
602 01
037 00
602 01 -
037 00 0
602 01 0
037 00 0
602 01 0
256 00 0 16 043521 PSTAT: .CONI
202 00 0 00 000001 MOVEM
037 00 0 00 072350 PSTAT1 : TMS6
602 01 0 00 400000 TRNE
037 00 0 00 072351 TMSG
602 01 0 00 200000 TRNE
00 072352 TMSG
00 100000 TRNE
00 072353 TMSG
00 040000 TRNE
00 072355 TMSG
00 020000 TRNE
00 072357 TMSG
00 010000 TRNE
00 072360 TMSG
00 004000 TRNE
037 00 0 00 072361 TMSG
602 01 0 00 002000 TRNE
00 072362 TMSG
00 001000 TRNE
00 072363 TMSG
00 000400 TRNE
00 072364 TMSG
0 00 000200 TRNE
0 00 072365 TMSG
0 00 000100 TRNE
0 00 072366 TMSG
0 00 000040 TRNE
0 00 072370 TMSG
0 00 000020 TRNE
0 00 072372 TMSG
0 00 000010 TRNE
037 00 0 00 072374 TMSG
037 00 0 00 072245 TMSG
135 00 0 00 071625 LDB
037 16 0 00 000003 PNTOCS
037 00 0 00 030242 PCRL
263 17 0 00 000000 RTN
037 00 0
602 01 0
037 00
602 01
0
0
037 00 0
602 01
037 00
6v^ 01
037 00
602 01
037 00
602 01
037 00
602 01
B
<CM: >
B.DBPE
<DPE,>
B,DREX
<DEE,>
B,LWCER
<LWCE,>
B,SWCER
<SCWE,>
B,M8XER
<CE,>
B, DRESSER
<DRE.>
B.RAEER
<RAE,>
B,M8XHLT
<CNR,>
B,DOVRER
<DOE.>
B,MASSEN
<M8E,>
B,DRATTN
<MBA,>
B.SCRFUL
<SCRF,>
B,ATTNEN
<MBAE.>
B,PCRFUL
<PCRF,>
B,CMDDN
<CMD;>
< PIA: >
[POINT 3.B,35:
read the status
save it
j»sTi-'\/\ ffciTrnArTTrtfci TCPT
\/CD n 7 MAron VKXD(1')L0\ IA-H? Pl-Aim-ftS Panp 17?
EQ 0268
DFSXA
DFSXAM
8661
8662
8663
866A
8665
8666
8667
8668
8669
8670
8671
8672
8673
867A
8675
8676
8677
8678
8679
8680
8681
8682
8683
868A
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) U:07 21-Aug-85 Page 172
MAC 29-JUL-85 11:AA COMMAND CONTROL
• fftiiiii,********* *******************************************************
':* PPTCR - Print RH20 primary TCR ^^^^^
•01,*******************************************************************
SEQ 0281
DF
DF
041252
0A1253
04125A
041255
041256
041257
041260
041261
041262
041263
041264
041265
041266
041267
041270
041271
041272
041273
260 17
202 00
037 00
602 01
037 00
602 01
037 00
037 00
135 00
332 00
434 00
217 00
037 16
037 00
135 01
037 00
037 00
263 17
0 00 043024
0 00 000001
0 00 072375
0 00 200000
0 00 072376
0 00 000001
0 00 072377
0 00 072400
0 00 072402
0 00 000000
0 00 072403
0 00 000000
0 00 000003
0 00 072404
0 00 071442
1 01 041274
0 00 030242
0 00 000000
PPTCR:
RPTCR
MOVEM
B
; save it
PPTCR1:
TMSG
<PT: >
DTCR:
TRNE
B,DTES
TMSG
<DTE;>
TRNE
BJ
TMSG
<G0;>
TMSG
< NBC: >
LDB
[POINT 9,B,29]
SKIPE
; skip if zero
I OR
[-1B26]
; extend negative sign
MOVMS
; make postive
PNTOCS
TMSG
< MFC: >
LDB
B, [POINT 5,8.34]
PNTMSG
aDMFC(B)
; print command
PCRL
RTN
t r»kr r>u k
fNrrrucTrM i/i ^ f\ ruAkiMC
1 /^Ton TUTCDArTinw tp<:t - upr n 7 MAi RO XS^RHPA?) 14:07 21-Aua-85 Paae 173
L
EQ 0269
DFSXA
DFSXAM
8685
8686
8687
8688
8689
8690
8691
8692
8693
869A
8695
8696
8697
8698
8699
8700
8701
8702
8703
870A
8705
8706
8707
8708
8709
8710
8711
8712
8713
87U
8715
8716
8717
8718
8719
8720
8721
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 173
MAC 29-Jul-85 11:44 COMMAND CONTROL
•#♦**»***•*************♦♦♦♦*******************************************
;* DMFC - Command decode table ^^^^^^^
•/^******** *********************************** *************************
SEQ 0282
r
0
D
041274
041275
041276
041277
041300
041301
041302
041303
041304
041305
041306
041307
041310
041311
041312
041313
041314
041315
041316
041317
041 32C
041321
041322
041323
041324
041325
041326
041327
041330
041331
041332
041333
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
oocooo
000000
000000
000000
000000
000000
000000
000000
000000
oonooo
OuJOOO
000000
000000
000000
000000
000000
000000
072406
072407
072414
072415
072420
072423
072425
072427
072433
072435
072437
072441
072445
072450
072071
072074
072452
072455
072460
072463
072466
072471
072476
072501
070030
072505
072511
072514
070040
072517
072523
072526
DMFC:
.ASCIZ/NOP/J
:ASCIZ/UNL0AD (REWIND OFF-LINE)/]
:asciz/seek/j
:asciz/recal(rewind)/:
:asciz/drive clear/]
:asciz/release/]
:asciz/offset/]
:asciz/return to center/]
:asciz/read-in/]
:asciz/pack ackn/]
:asciz/erase/]
:asciz/urite tape mark/]
.■ASCIZ/SEARCH(SPACE)/]
:asciz/space rev/]
:ASCIZ/ILLE6AL 16/]
ASCIZ/ILLEGAL 17/]
ASCIZ/ILLEGAL 20/]
.asciz/illegal 21/]
:asciz/ille6al 22/]
casciz/illegal 23/]
casciz/write check/]
casciz/urite chk hdr & data/]
[asciz/illegal 26/]
casciz/write check rev/]
casciz/write/]
casciz/write hdr & data/]
casciz/illegal 32/3
casciz/illegal 33/]
casciz/read/]
casciz/read hdr s data/]
casciz/illegal 36/]
casciz/read rev/]
/fNTnn fiiTcoArTtnn TCCT _ WCD D 7 MAron 1['i1fi(^7L7) U-O? PI-Aun-fiS Paop 174
SEQ 0270
OFSXA
DFSXAM
8722
8723
8724
8725
8726
8727
I 8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
DECSYSTEW KLIO
MAC 29-JuL
CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 174
•85 11:44 COMMAND CONTROL
#**♦«*»*•**♦**»*******♦*♦♦************♦******************************
• PSTCR - Print RH20 2nd TCR
/^•♦»*** ********************************************** ****************
SEQ 0283
041334
041335
037 01
260 17
041336 202 00
041337 260 17
041340 263 17
0 00 072530
C 00 043034
0 00 000001
0 00 041255
0 00 000000
041341
041342
037 01
260 17
041343 037 06
041344 037 01
041345 263 17
0 00 072531
0 00 043020
0 00 000001
0 00 030242
0 00 000000
PSTCR: FMS6 <ST: >
RSTCR
MOVEM B
GO DTCR
RTN
; read STCR
; save it
; print it
f*** ******************************************************** *********
* PIVR - Print RH20 interrupt vector
^»***»**************»t*t*****»»****»*******»**************»**********
PIVR:
FMS6
RIVR
PNT6F
PCRLF
RTN
<IR;
; print the address
^ r r> o A
f\r r r u r
rri. ...in r.,»».i.ci /fxTon f luTCD A r T t ow TccT - v/FD 0 7 MAfRn XS^RMPA?) 14:07 ?1-Aua-85 Paae 175
SEQ 0271
DFSXA
DECSYSTEM KL10
DFSXAM
MAC
29-JuL-
87A3
87A^
8745
87A6
87A7
J748
041546
037 01
I7A9
041347
300 00
J750
041350
037 06
$751
041351
037 01
8752
041352
263 17
8753
8754
8755
8756
8757
8758
041353
037 01
8759
041354
260 17
8760
041355
037 06
8761
041356
037 01
8762
041357
263 17
CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO :53B(1242) 14:07 21-Aug-85 Page 175
•85 11:44 COMMAND CONTROL
/>»*tk «**»•♦♦»»*»»********♦* *******************************************
* PWRR - Print RH20 write register
#♦*****»****♦*♦******♦♦♦♦*♦****•*****♦••*******•******♦**•******•****
SEQ 0284
0 00 072532
0 00 000000
0 00 000001
0 00 030242
0 00 000000
0 00 072534
0 00 043014
0 00 000001
0 00 030242
0 00 000000
PURR: FMSGC <WRR: >
CAI
PNT6F
PCRLF
RTN
; read the write register
; print it
* PRDR - Print RH20 read register
PRDR: FMSG
RRDR
PNT6F
PCRLF
RTN
<R8:
; read the read register
nrru* fNCrcwcTCM yi
in ruAMnci /r>TcDn fwTCDArTiniu tf<;t - vFR n 7 MACRn 153B(1242) 14:07 21-Aua-85 Paqe 176
SEQ 0272
r
DFSXA
DFSXAM
8763
876A
8765
8766
8767
8768
8769
8770
8771
8772
8773
877A
8775
8776
8777
8778
8779
8780
8781
8782
8783
DECSYSTEM KLiO
MAC 29-Jul
CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 176
-85 11:AA COMMAND CONTROL
•#*»*»♦•****»»**»♦**»**♦♦**♦•«•***♦**»**••*•**♦*********♦***•*********
;• PPBAR - Print primary block address register
.#**♦♦*«****♦********♦♦♦♦♦**••****•*****♦***************♦♦************
SEQ 0285
0A1360 037 01
0A1361 260 17
0A1362 037 13
0A1363 037 01
041 364 263 17
0 00 072535
PPBAR:
FMSG
0 00 043030
RPBAR
0 00 000001
PNTHWF
0 00 030242
PCRLF
0 00 000000
RTN
041365 037 01
041366 260 17
041367 037 13
041370 037 01
041371 263 17
<PA:
; read the PBAR
; print it
;* PSBAR - Print 2nd block address register
0 00 072536
PSBAR:
FMSG
0 00 043040
RSBAR
0 00 000001
PNTHWF
0 00 030242
PCRLF
0 00 000000
RTN
<SA:
; read the SBAR
; print it
f\C
cvA ncrcvcTCM ^i in ruAwwFi /nTP?n iNTFRAfTinN TFST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 177
SEQ 0273
DFSXA
DFSXAM
878A
8785
8786
8787
8788
8789
8790
8791
8792
8793
879A
8795
8796
8797
8798
8799
8800
8801
8802
8803
880A
8805
8806
8807
8808
8809
8810
8811
8812
8813
88U
8815
8816
8817
8818
8819
8820
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JUL-85 11:4A
INTERACTION TEST - VER 0,7 MACRO 2538(1242)
COMMAND CONTROL
14:07 21-Aug-85 Page 177
SEO 0286
041372
041373
041374
041375
041376
041377
041400
037 01
402 00
200 00
251 00
00 072537
00 066127
00 072545
00 066136
205 16 0 00 77777^
256 00 0 16 043521
603 00 0 00 400000
8821
041401
8822
8823
8824
8825
041402
8826
041403
8827
041404
8828
041405
8829
8830
8831
8832
041406
8833
041407
254 00 0 00 072576
201 00 0 00 000400
256 00 0 16 043570
256 00 0 16 043536
260 17 0 00 041410
253 16 0 00 041377
263 17 0 00 000000
#**♦«*•*♦*»*************♦************************************♦*******
* RHCFG - Print the configuration for RH20's and associated devices
/^********<»**** **************************************** ****************
RHCFG: FMSGCD <SYSTEM C0NFIGURATI0N:>
SETZM CHNAVL
MOVE [CHNAVL, ,CHNAVL+1]
BLT CHNAVL +7
MOVSI CNTRL,-10
; Handle NI/CI port
RHCFG1: .CONI
TLNE
JRST
400000
[MOVE I
LDCSR
RDCSR
CAME
JRST
SETOM
FMS6
LDB
PNTOCF
PNTCIF
XCT
PCLEAR
[400003,, 0]
RHCFG2
CHNAVL(CNTRL)
<C>
[POINT 3,CNTRL,35:
clear configuration table
• • •
init controller index
read CSR register
is this an NI/CI port?
yes - verify that the proper
bits are set
a NI/CI port?
no - continue
RH20
MOVE I
MOVEM
PNTCIF
PCRLF
JRST
MBE
• 1^1 I
[FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
FMSG
1
CHTYPE(CNTRL)
RHCFG23
<Port-0>
<Port-1>
<Port-2>
<Port-3>
<Port-4>
<Port-NI>
<Port-6>
<Port-CI>3(CNTRL)
MOVE I
.CONO
.CONSZ
GO DEVCFG
Select next controller
yes - get MASSBUS enable bit
Eerform CONO instruction
it set (RH20 exists)?
yes - print report for this RH20
RHCFG2: AOBJN
RTN
CNTRL,RHCFG1
check
exit
all 8 RH20's
^211^
DFSXA
DFSXAM
883A
8835
8836
8837
8838
8839
88A0
88A1
88A2
88A3
88AA
88A5
88A6
88A7
88A8
88A9
8850
8851
8852
8853
885A
8855
8856
8857
8858
8859
8860
8861
8862
8863
886A
8865
8866
8867
8868
8869
8870
8871
8872
8873
887A
DEC^YSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 178
MAC 29-JuL-85 11:AA COMMAND CONTROL
#*******♦******•*****************************************************
* DEVCFG - RH20 reporter - prints Local configuration
#************************•*******************************************
SEQ 0287
0A1A10
0A1A11
0A1A12
0A1A13
0A1A1A
0A1A15
0A1A16
0A1A17
0A1A20
0A1A21
0A1A22
0A1A23
0A1A2A
0A1A25
0A1A26
0A1A27
0A1A30
0A1A31
0A1A32
0A1A33
0A1A3A
OA1A35
0A1A36
0A1A37
0A1AA0
0A1AA1
0A1AA2
0A1AA3
0A1AAA
A76 00
037 01
135 00
037 17
A76 00
256 00
16
00
00
00
16
16
066127
071137
070321
000003
060633
0A3521
037 00 0
205 15 0
260 17 0
25A 00 0
602 00 0
260 17 0
602 00 0
260 17 0
332 00 0
260 17 0
253 15 0
037 01 0
037 01 0
263 17 0
00 00007A
00 vin^
00 0A3305
00 0A1A30
00 OAOOOO
00 0A1AA5
00 020000
00 0A1A3A
00 000000
00 0A1A37
00 0A1A20
00 000076
00 0302A2
00 000000
037 01 0
201 00 0
33A 00 0
037 01 0
135 00 0
037 17 0
037 01
A02 00
263 17
00 072037
00 000010
00 000000
00 070726
00 072616
00 000003
00 071177
00 000000
00 000000
DEVCFG:
DVCFG1
DVCFG2:
SETOM
FMSG
LDB
PNTOCF
SETOM
• CONI
PNTCI
MOVSI
RDT
JRST
TRNE
GO
TRNE
GO
SKIPE
GO
AOBJN
PNTCIF
PCRLF
RTN
CHNAVL(CNTRL)
<C>
[POINT 3,CNTRL.35J
CHTYPE(CNTRL)
DEV,-10
DVCFG2
DV.TAP
TPCFG
DV.PCK
PKCFG
QTCFG
DEV,DVCFG1
indicate channel available
print C
get controller number
print it
indicate RH20
print open bracket "<"
setup device index
read type register
return nere if non-existent
skip if not tape
go report tape drive
skip if not pack
go report disk pack
skip if device was reported
go report questionable device
scan all devices
* PKCFG - RH20 device reporter
PKCFG: FMSG
MOVEI
PKCFG1: SKIPA
QTCFG: FMSG
LDB
PNTOCF
FMSG
SET2M
RTN
<P>
10
<?>
[POINT 3,DEV,35]
print the "P"
selected and RPOA
skip next entry point
print the question mark
get the device number
print it
print the comma
clear the AC
exit
•n A -7 MAron *C7D/1'5/.0^ 1/. .n7 31-.Aiin-R^ Dana 170
0275
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) K:07 21-Aug-85 Page 179
DFSXAM MAC 29-JuL-85 11:AA COMMAND CONTROL
•#•*******************************************************************
;* TPCFG - Handle TM02 and the selected slave
•#*•********************♦*********************************************
SEQ 0288
8875
8876
8877
8878
8879
8880
04KA5
037 01 0 00 072A26
8881
0A1A46
135 00 0 00 072616
888?
0A1AA7
037 17 0 00 000003
888";
0A1A50
205 06 0 00 777770
8^84
0A1A51
550 00 0 00 000006
8885
0A1A52
260 17 0 00 0A3121
8)86
0A1A53
300 00 0 00 OOOOOO
8)87
0A1A5A
260 17 0 00 0A3305
8)88
0A1A55
300 00 0 00 OOOOOO
8W9
0A1A56
602 00 0 00 002000
8190
0A1A57
260 17 0 00 0A1A6A
8i91
0A1A60
253 06 0 00 0A1A51
889?
0A1A61
037 01 0 00 071177
8893
0A1A62
A02 00 0 00 OOOOOO
889A
8895
8896
0A1A63
263 17 0 00 OOOOOO
0A1A6A
037 01 0 00 071176
8897
0A1A65
550 00 0 00 000006
0A1A66
037 17 0 00 000003
)899
0A1A67
263 17 0 00 OOOOOO
TPCFG:
TPSLV:
PRTSLV;
FMSG
LDB
PNTOCF
MOVSI
HRRZ
UTC
CAI
RDT
CAI
TRNE
GO
AOBJN
FMSG
SETZM
RTN
FMSG
HRRZ
PNTOCF
RTN
<T>
[POINT 3,DEV,353
GOOD, -10
GOOD
DTSPR
PRTSLV
GOOD, TPSLV
<,>
GOOD
init slave index
get slave address
make selection
filler
read drive type register
filler
skip if slave is not present
print slave tt
loop back looking for available slave
clear ACO
exit
fetch slave #
print it
return
., ^».-u ^. <rt /........n /fTrin TkiTCQArr rnu tcct _ wCD n 7 MATDn i^XRl \')L0\ ^L'.C\7 ?1-Aiin-fiS PaaP 180
0276
DFSXA
DFSXAM
8900
8901
8902
8903
890A
8905
8906
8907
8908
8909
8910
8911
8912
8913
89U
8915
8916
8917
8918
8919
8920
8921
8922
8923
892A
8925
8926
8927
8928
8929
'J930
8931
8932
8933
893A
8935
8936
8937
DECSYSTEM KLIO CHANNEL/ME20 INTERACTION TEST - VER 0.7 MACRO 2538(1242) 14:07 21-Aug-85 Page 180
MAC 29-JuL-85 11:44 COMMAND CONTROL
•/^***«************************************ ****************************
;* SELPRM - Select PI level and data mask
./^***************** ************************ ***************************
SEQ 0289
041470
041471
041472
041473
041474
041475
041476
041477
041500
041501
041502
041503
041504
041505
041506
041507
041510
041511
041512
041513
041514
041515
041516
041517
041520
041521
041522
041523
041524
041525
041526
201 00 0 00 000001
202 00 0 00 075005
476 00 0 00 060550
037 10 0 00 000002
607 00 0 00 000010
263 17 0 00 000000
037 01
260 17
254 00
254 00
137 00
254 00
037 01
402 00
200 01
260 17
254 00
254 00
312 01
136 00
254 00
316 01
263 17
5ic 01
254 00
242 02
133 00
312 01
254 00
202 02
263 17
00 072617
00 041527
00 041476
00 041504
00 072623
0 00 041477
0 00 072624
0 00 000002
0 00 072632
0 00 041527
0 00 041504
0 00 041515
0 00 072633
0 00 000001
0 00 041507
0 00 072632
0 00 000000
0 00 072633
0 00 041525
0 00 iniTi
00 000001
00 072633
00 0-1521
00 060550
00 000000
0
0
0
0
0
SELPRM: HOVE I
MOVEM
SETOM
SWITCH
TLNN
RTN
SLPRM2: FMS6C
GO
JRST
JRST
DPB
JRST
SLPRM3: FMSGC
SETZM
MOVE
SLPRM4: GO
JRST
JRST
CAME
I DPB
JRST
SLPRM5: CAMN
RTN
CAMN
JRST
LSH
IBP
CAME
JRST
SLPRM6: MOVEM
RTN
1
PILVL#
DATMSK
OPRSEL
<PI LEVEL (1-7)?>
INPOCT
SLPRM2
SLPRM3
[POINT 5,PILVL,35J
.-4
<DATA MASK (0-777777777777) ?>
grab PI level #1
select that level
set the data mask
operator options select?
no
input an octal character
not octal number - repeat response
type carriage return
force wait for carriage return
B, [POINT 3,CJ
INPOCT
SLPRM3
SLPRM5
B. [POINT 3,C.35]
B
SLPRM4
B. [POINT 3,C]
B, [POINT 3,C,35]
SLPRM6
C.-3
B
B. [POINT 3.C.35J
C, DATMSK
clear character buffer
setup byte pointer
grab octal character
non-numeric input
type <CR> - check termination
skip if last byte deposited
deposit the byte
if not repeat input
skip if any characters typed
first thing typed was carriage return
skip if not equal to last byte
shift C right 3 places
update the byte pointer
skip if at end
deposit data mask
exit
^ r- ^ ** k
rru ... -irt /-..ik.tin /r\Tnn TMTCDArTinw TccT _ wcD C\ 7 KiArDn *«>TRM?^?) 1^:07 ?1-Aija-85 Paoe 181
^m
lOFSXA
IDFSXAM
8938
8939
89A0
894 1
89A2
8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
DECSYSTEM KL10 CHANNEL/DTE20
MAC 29-Jul-85 11:44
041527
041530
041531
041532
041533
041534
041535
041536
041537
041540
041541
041542
041543
041544
041 54S
041546
041547
041550
041551
041552
041553
041554
041555
041556
041557
041560
041561
041562
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 181
COMMAND CONTROL
;* INPOCT - Input an octal character
.#*»t *********************************************************** ******
r
SEQ 0290
037 00 0
254 00 0
306 00 0
254 00 0
303 00
263 17
305 00
263 17
350 00
350 00
263 17
00 000003
00 041527
00 000015
00 067640
00 000067
00 000000
00 000060
00 000000
17 000000
17 000000
00 000000
402 00 0 00 044514
200 00 0 00 072634
251 00 0 00 044540
200 12 0 00 072635
201 02 0 00 000120
037 00
254 00
or
0
0
00 0
0
0
367 02 0
201 00 0
136 00 0
306 00
254 00
00
00
00
00
00
00
00
00
000003
041547
000012
000015
041557
041547
00001 5
000012
137 00 0 00 000012
200 12 0 00 072635
134 00 0 00 000012
263 17 0 00 000000
INPOCT: TTICHR
JRST .-1
CAIN 15
SKPRTN
CAILE 67
RTN
CAI6E 60
RTN
AOS (P)
AOS (P)
RTN
; get a character
; skip if not carriage return
; if CR then skip return
; is character less than 10?
; no - exit non-numeric
; is it greater or equal to 0?
; no - exit non-numeric
; setup double skip return
; exit
f«**«»**** *•***♦*♦«***♦♦**♦♦*****»»*****• ****************************
* INPLIN - Input a line
4f**«****** ******************************** ***************************
INPLIN: SETZM
MOVE
BLT
MOVE
MOVE I
INPLN1: TTICHR
JRST
IDPB
CAIN
JRST
SOJG
MOVE I
IDPB
INPLN2: DPB
MOVE
INPBYT: ILDB
RTN
CMDLIN
[CMDLIN,.CMDLIN+1]
CMDLNX
PNTR. [POINT 7, CMDLIN]
C.*D80
.-1
PNTR
15
INPLN2
C.INPLN1
1§
PNTR
PNTR
PNTR, [POINT 7, CMDLIN]
PNTR
; clear input line
; # of characters allowed in buffer
; input a character
; put character into buffer
; skip if not carraige return
; setup for exit
; repeat until carriage return
; generate carriage return
; put into buffer
; put CR into buffer
; get first character into ACO
rxcrcwcTCM y\ ^r\ ruAwwci /r>TC5n TWTPBArTinw tf<;t - VFR 0.7 MACRO 5:538(1242) 14:07 21-AuQ-85 Page 182
r
3 0278
DFSXA
DFSXAM
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991
8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003
9004
9005
9006
9007
9008
9009
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022
9023
902";
9025
9026
9027
9028
9029
9030
9031
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i;53B(1242) 14:07 21-Aug-85 Page 182
MAC 29-JUL-85 11:44 COMMAND CONTROL
.ffiiiiiii,********* *********************************** ********************
':* ENARH - Enable RH20's if entering SETPRM normally
.01,*******************************************************************
SEQ 0291
DF
DF
041563 205 16 0 00 777770
041564 336 00 0 16 066127
041565 254 00 0 00 041572
041566 333 00 0 16 060633
041567 254 00 0 00 072723
041570 201 00 0 00 000400
041571 256 00 0 16 043570
041572 253 16 0 00 041564
041573 263 17 0 00 000000
ENARH: MOVSI CNTRL,-10
; Select controller
ENAR1: SKIPN CHNAVL(CNTRL)
JRST ENAR2
; Check for NI/CI port
SKIPLE
JRST
CHTYPE(CNTRL)
[GO IPALOD
SKI PA
JRST
CSKIPN
JRST
FHSGC
XCT
FMSGC
XCT
FMSGD
JRST
fnit controller index
controller found?
no - get next one
; is this controller an NI/CI port?
; yes - load microcode
STRACE
ENAR2
<[L0ADED TEST MICROCODE INTO >
[FMS6 <PORT-0>
<P0RT-1>
<P0RT-2>
<P0RT-3>
<P0RT-4>
<P0RT-NI>
30RT-6>
sP0RT-CI>](CNTRL)
FMS6
FMSG
FMS6
FMSG
FMSG
FMSG
FMSG
<]>
ENAR2]
RH20
MOVE]
.CONG
FMSGD
SETZM
JRST
M8E
<*** ERROR LOADING MICROCODE INTO >
[FMSG <PORT-0>
FMSG <P0RT-1>
FMSG <P0RT-2>
FMSG <P0RT-3>
FMSG <P0RT-4>
FMSG <P0RT-NI>
FMSG <P0RT-6>
FMSG <P0RT-CI>](CNTRL)
< - PORT WILL NOT BE TESTED ***>
REQST(CNTRL)
ENAR2] ; and continue
; Select next controller
ENAR2: AOBJN CNTRL.ENAR1
RTN
get enable bit
issue
loop till donv»
exit
L
r'
r~
M.p>#*uA rvrr-rur-Tria LriiA ruAkifclCl
/nTon inTCDAfTinw TCCT - UPB 0 7 MATPH 1!S3Rn?4?) 14:07 ?1-Aua-85 Paoe 183
3 0279
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 183
DFSXAM MAC 29-Jul-85 i1 :44 COMMAND CONTROL
SEQ 0292
Dl
Dl
9032
9033
9034
9035
9036
9037
9038
9039
9040
9041
•f******** ***»*»***♦**♦♦♦*♦*♦•**************♦* ************************
•* ZROSUM - Zero summary table
•#**•*******♦**♦*»****************************************************
041574 402 00 0 00 044011
041575 200 00 0 00 072733
041576 251 00 0 00 044135
041577 263 17 0 00 000000
ZROSUM: SETZM TOTURT , «. ,,
MOVE [TOTURT,, TOTURT+1 J
BLT BADFL6
RTN
; clear 1st entry
; get BLT pointer
; clear to BADFLG
; exit
hPcvA nFr<;v<;TFM i^i in fHANNFl /DTFPO INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 184
fm r\'\r\t i
r
iC
EQ 0280
DFSXA
DFSXAM
9042
90A3
90A4
90A5
9046
90A7
90A8
9049
9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9064
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST " VE? 0,7 MACR0J53B(1242) 14:07 21-Aug-85 Page 184
MAC 29-JuL-85 11:44 ERROR HANDLER FOR TYPING CHANNEL STATUS
SUBTTL ERROR HANDLER FOR TYPING CHANNEL STATUS
•#******•***********•*************************************************
;* SFAULT - Error handler used to report test failures
'•#**♦*******************♦*♦*******************************************
SEQ 0293
D
D
041600
041601
041602
041603
041604
041605
041606
041607
041610
041611
041612
041613
041614
041615
041616
SFAULT: TMSGC
037 00 0
200 00 0
037 16 0
037 00 0
550 00 0
037 17 0
037 00 0
037 00 0
550 00 0
370 00 0
037 06 0
037 00 0
260 17 0
262 17 0
254 00 0
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
072734
075025
000003
072747
030113
000000
072750
072751
030114
000000
000000
030242
041617
075027
042073
*** TST>
MOVE
PNTOCS
TMSG
HRRZ
PNTAL
TMSG
TMSGC
HRRZ
SOS
PNT6
PCRL
GO
GET
JRST
TSTNM
<- >
ssvuuo
< ***>
<ERR0R PC;
$SVUPC
STZ8RK
SSUCHK
get test number
print it
get descriptor address
print descriptor
get PC
adjust PC
print it
type status decoded
take call address off
exit after switch chk
the stack
(ERST0P,L00PER)
nPcvA nprc:v<:TPM ifi in rHANNFi /DTFPO INTERACTION TEST - VER 0.7 MACRO 1!53B(1242) 14:07 21-Aug-85 Page 185
^rr\ AlAy
EQ 0281
DFSXA
DFSXAM
9065
9066
9067
9068
9069
9070
9071
9072
9073
907A
9075
9076
9077
9078
9079
9080
9081
9082
9083
908A
9085
9086
9087
9088
9089
9090
9091
9092
9093
909A
9095
9096
9097
9098
9099
9100
9101
9102
9103
91 OA
9105
9106
9107
9108
9109
9110
9111
9112
9113
91U
9115
9116
9117
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST " VE? 0,7 MACR0J53B(12A2) K:07 21-Aug-85 Page 185
MAC 29-JuL-85 11:AA ERROR HANDLER FOR TYPING CHANNEL STATUS
#***«**************•*************************************************
* STZBRK - Status breakdown routine .^..x..^******
01,i,1i*******if *********************************************************
SEQ 0294
0A1617
0A1620
041621
041622
041623
041624
041625
041626
041627
041630
041631
041632
041633
041634
041635
041636
041637
041640
041641
041642
041643
041644
041645
041646
041647
041650
041651
041652
041653
041654
041655
041656
041657
041660
041661
041662
041663
041664
041665
041666
041667
041670
041671
261
200
200
316
263
316
254
316
254
316
254
402
253
254
11
11
00
00
17
00
00
00
00
00
00
00
11
00
00 070241
00 072754
11 000000
00 070241
00 000000
00 070223
00 041635
0 00 070222
0 00 041672
00 070450
00 041710
11 000000
00 041621
00 043636
200 00
312 00
254
261
00
17
402 00
03^
00
00
200 16
550 00
037 16
037 00
037 00
037 00
260 17
135 00
306 00
350 00
306 00
350 00
306 00
350 00
260 17
260 17
260 "
17 0
260 17
260 17
260 17
262 17
254 00
0 11 000010
0 00 070224
0 00 043636
0 00 000016
0 11 000000
0 00 000074
0 00 071137
0 11 000001
0 00 000016
0 00 000003
00 000072
00 000076
00 030242
00 041727
00 072755
00 000061
16 044041
0 00 000071
0 16 044071
0 00 000077
0 16 044071
0 00 041732
0 00 041735
00 041740
0 00 041751
0 00 041754
0 00 041757
0 00 000016
0 00 041621
STZBRK: PUSH
MOVE
STZBK1: MOVE
CAMN
RTN
CAMN
JRST
CAMN
JRST
CAMN
JRST
SETZM
AOBJN
JRST
ERRDAT.CMS.EOT]
ERRDAT,C-*D100,.ERSTCK3
(ERRDAT)
CMS. EOT]
CSTX.RH]
STZRH
[STX.DV]
STZDV
CSTX.DT]
STZDT
(ERRDAT)
ERRDAT, STZBK1
STCKER
terminate entire stack
initialize stack
get first entry on stack
skip if not EOT
if so - exit
skip if not RH message
if so print that message
skip if not device message
if so print that message
skip if not DTE20 message
if so print that message
delete stack entry
complete the loop
stack error - no EOT found
ffi,1,1,1,i,1,*1,i,1c**********************************************************
* STZRH - Print RH20 message
01,1,1,1,1,1,**************************************************************
STZRH: MOVE
CAME
JRST
PUT
SETZM
PNTCI
TMSG
MOVE
HRRZ
PNTOCS
PNTCI
PNTCI
PCRL
STZRH1: GO
LDB
CAIN
AOS
CAIN
AOS
CAIN
AOS
GO
GET
JRST
RHETX(ERRDAT)
[MS.ETX]
STCKER
CNTRL
(ERRDAT)
I 1^1 I
fet'h ETX
continue only if stack correct
halt on stack error
save controller number
delete entry on stack by clearing STX
<C>
CNTRL, RHIDW(ERRDAT)
CNTRL
fetch ID
get into
print it
AGO
1 1^1 1
DMPRHS
[POINT 6.RHSTAT+1
WTF
URTERS(CNTRL)
RDF
RDERS(CNTRL)
RDR
RDERS(CNTRL)
DMP7CR
DMPRH1
DMPRH2
DMPCPH
DMPMBH
DMPPRG
CNTRL
STZBK1
: dump RH20 status
(ERRDAT), 35] ; get command
skip if not write forward
update write error count
SKip if not read forward
update read error count
SKip if not read reverse
updat read error count
dump the TCR
print word 1
print word 2
print CPU status
print MB status
go di4mp channel program
get CNTRL back
go back for next entry
i hFtiVA
nFr^v<;TFM Kiin channfl/DTEPO interaction TEST - VER 0,7 MACRO i;53B(1242) 14:07 21-Aug-85 Page 186
pcA moc
SEQ 0282
DFSXA
DECSYSTI
EM KL
10 CHANNEL/DTE2
DFSXAM
MAC
29-J
uL-85 11:44
9118
9119
9120
9121
9122
9123
0A1672
261
17 0 00 000016
91 24
041673
200
00 0 11 000012
9125
041674
312
00 0 00 070224
9126
041675
254 00 0 00 043636
9127
041676
261
17 0 00 000015
9128
041677
402
00 0 11 000000
9129
041700
550
16 0 11 000001
9130
041701
554
15 0 11 000001
9131
041702
260
17 0 00 040016
9132
041703
260
17 0 00 041743
9133
041704
260
17 0 00 041746
91 3A
041705
271
11 0 00 000002
9135
041706
262
17 0 00 000015
9136
041707
254 00 0 00 041652
9137
9138
9139
91A0
91A1
9K2
041710
261
17 0 00 000016
9U3
91 A4
041711
200
00 0 11 000005
91A5
041712
312
00 0 00 070224
9U6
91A7
9U8
9U9
9150
041713
254
00 0 00 043636
041714
^vA
00 0 11 000000
041715
550
16 0 11 000001
9151
9152
9153
91 5A
041716
260
17 0 00 040016
041717
200
01 0 11 000002
9155
9156
9157
041720
2oO
17 0 00 065657
041721
200
01 0 11 000003
9158
9159
9160
041722
260
17 0 00 040761
041723
200
01 0 11 000004
9161
9162
9163
91 6A
9165
041724
260
17 0 00 041036
041725
262
17 0 00 000016
041726
254
00 0 00 041621
FERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 186
ERROR HANDLER FOR TYPING CHANNEL STATUS
;* STZDV - Print dev message
.^tllillili**************** **************************** *******************
SEQ 0295
STZDV: PUT CNTRL
MOVE DVETX(ERRDAT)
CAME CMS.ETX]
JRST STCKER
PUT DEV
SETZM (ERRDAT)
HRRZ CNTRL, RHIDU(ERRDAT)
HLRZ DEV,RHIDW(ERRDAT)
60 PRTHDR
60 DMPDSR
GO DMPDER
ADDI ERRDAT, 2
GET DEV
JRST STZRH1
save controller index
fetch DV message terminator
skip only if correct
halt on stack error
save device register
delete entry by clearing STX
?et controller number
etch device #
print the header
dump device status
dump device error 1
adjust stack
get device back
print RH20 status, wordi ,word2, CPU, mem
;* STZDT - Print DTE20 message
•#*•*•****♦*«***********♦♦*♦*****»********************♦***************
STZDT: PUT
CNTRL
MOVE
CAME
JRST
DTETX(ERRDAT)
CMS.ETX]
STCKER
SETZM
(ERRDAT)
HRRZ
CNTRL, DTIDU(ERRDAT)
GO
PRTHDR
MOVE
GO
B,DTSTAT(ERRDAT)
PRTTSG+2
MOVE
GO
B,DTCPU(ERRDAT)
PRTCP1
MOVE
GO
B,DTM8E (ERRDAT)
PRTr«1
GET
CNTRL
JRST
STZ8K1
; save channel index
; fetch DTE20 message terminator
; skip only if correct
; delete entry by clearing STX
; get channel index
; print header
; print DTE20 status
; print CPU status
; orint MBOX status
; get cntrl back
; go back for next entry
t\tfi)it
nPrc;y^TFM ifi in fMANNFi /DTFPO INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 187
^i»A /%nn^
SEQ 0283
DFSXA
DFSXAM
9166
9167
9168
9169
9170
9171
9172
9173
91 7A
i 9175
: 9176
i 9177
; 9178
i 9179
I 9180
9181
i 9182
9183
i 91 8A
I 9185
9186
I 9187
i 9188
I 9189
I 9190
I 9191
i 9192
9193
91 9A
9195
9196
9197
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-Jul-85 11:AA
041 727 200 01 0 11 000002
0A1730 260 17 0 00 0A1206
0A1731 263 17 0 00 000000
0A1732 200 01 0 11 000003
0A1733 260 17 0 00 04125A
0A173A 263 17 0 00 000000
0A1735 200 01 0 11 OOOOOA
0A1736 260 17 0 00 0A0713
0A1737 263 17 0 00 000000
0A17A0 200 01 0 11 000005
0A17A1 2c.- 17 0 00 0A07A5
0A17A2 263 17 0 00 000000
INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aur85 Page 187
ERROR HANDLER FOR TYPING CHANNEL STATUS
ffti,************! ****************************** ************************
* DMPRHS - Dump RH20 status and print TCR
#****************«****t********»********************** ****** «*******♦
SEQ 0296
DMPRHS: MOVE B.RHSTAT(ERRDAT)
GO PSTAT1
RTN
; fetch RH20 status
; print RH20 status
; exit
• )fi,************ ******************************** ***********************
':* DMPiCR - Dump primary transfer control register
J #*♦***** *************************************************************
DMPTCR: MOVE B.RHSTATO (ERRDAT)
GO PPTCR1
RTN
; fetch PTCR
; print it
; exit
f»»************************************************* *********** ******
* DMPRHI - Dump channel word 1 ^^ ^
#«*»**•**************************************************************
DMPRHI: MOVE B.RHWRDI (ERRDAT)
60 PTCH1A
RTN
; fetch channel word 1
; print it
#»*»*******************•***************»*****************************
* DMPRH2 - Dump channel word 2
/If********************************************************************
DMPRH2: MOVE
GO
RTN
B.RHURD2(ERRDAT)
PTCH2A
; dump channel word 2
; print it
RF
«;xA DFCSYSTEH KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO. ?53B(12A2) 14:07 21"Aug-85 Page 188
ccn nOQ7
SEQ 0284
DFSXA
DFSXAM
9198
9199
9200
92C1
9202
9203
920A
9205
9206
9207
9208
9209
9210
9211
9212
9213
92U
9215
9216
9217
9218
9219
9220
9221
9222
9223
9224
9225
9226
9227
9228
9229
DECSYSTEM KL10 CHANNEL/DTE20
MAC 29-JuL-85 11:44
INTERACTION TEST - VER 0,7 MACRO 1536(1242) 14:07 21-Aug-85 P<ige 188
ERROR HANDLER FOR TYPING CHANNEL STATUS
•#***»***♦******•♦**•♦**♦♦*♦**»****•************'***♦*****************
;* DMPDSR - Dump device status ...........
•#*♦*»»*****»**»♦***•**♦**♦**«***•*♦**********•****************•******
041 74i 200 01 0 11 000002
041744 260 17 0 00 040051
041745 263 17 0 00 000000
041746 200 01 0 11 000003
041747 260 17 0 00 040115
041750 263 17 0 00 000000
041751 200 01 0 11 000006
041752 260 17 0 00 040761
041753 263 17 0 00 000000
041754 200 01 0 11 000007
041755 2c-' 17 0 00 041036
041756 263 17 0 00 000000
DMPDSR: MOVE B.DVDS(ERRDAT)
GO PRTSR1
RTN
; fetch device status
; print it
; exit
* DMPDER - Dump device error
DMPDER: MOVE B,DVER(ERRDAT)
GO PRTER1
RTN
; fetch error 1
; print it
: jxit
.^*** ♦***»*: ********************************************* '*******♦*****■*
;* DMPCPH - Dump CPU status
DMPCPH: MOVE B.RHCPU(ERRDAT)
GO PRTCP1
RTN
; fetch CPU status
; print CPU status
; exit
f* ♦»♦»»«***«*♦*•*******♦**♦»*****•*♦****♦* ****************************
• OMPMBH - Dump MBOX status
DMPMBH: MOVE B,RHMBE(ERRDAT)
GO PRTMB1
RTN
; fetch MB status
; print MB status
; exit
SEQ 0297
nF*;yA DFfSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO ?53B(1242) 14:07 21-Aug-85 Page 189
ccn nooa
SEQ 0285
DFSXA
DFSXAM
9230
9231
9232
9233
923A
9235
9236
9237
9238
9239
9240
92A1
92A2
9243
9244
9245
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257
9258
9259
9260
9261
9262
9263
9264
9265
9266
9267
9268
9269
9270
9271
9272
9273
9274
9275
9276
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 189
MAC 29-Jul-85 11:44 ERROR HANDLER FOR TYPING CHANNEL STATUS
. 01,^1,1,1, t*t unit t** ******************* ***********************************
':* DMPPRG - Print channel program
.0tt******* ******************************************* ****************
SEQ 0298
041757
041760
041761
041762
041763
041764
041765
041766
041767
041770
041771
041772
041773
041774
041775
041776
041777
042000
042001
042002
042003
042004
042005
042006
042007
04c010
042011
042012
042013
042014
042015
042016
042017
042020
042021
042022
042023
042024
042025
0420?6
042027
336 00
263 17
261 "
201
261
17
01
17
0
0
0
0
0
200 02 0
242 02 0
201 02 0
037 00 0
201 00 0
037 16 0
037 00 0
334 00 0
260 17 0
200 00 0
603 00 0
254 00 0
607 00 0
254 00
260 17
363 01
037 00
254 00
135 00
33? 00
2oJ 17
336 OC
260 17
200 00
350 00 0
607 00 0
254 00 0
260 17 0
262 17 0
262 17 0
263 17 0
16 060737
00 000000
00 000001
00 000004
00 000002
00 000016
00 000002
02 377000
00 072756
02 401000
00 000003
00 072760
00 000000
00 042035
02 000000
00 400000
00 042006
00 200000
00 042041
00 042030
00 042023
00 030242
00 041774
00 072761
00 000000
00 042046
00 000000
00 042061
02 000000
00 000002
00 200000
00 042003
00 042071
00 000002
00 000001
00 000000
DMPPRG:
037 00 0 00 000074
037 00 0 00 072762
037 00 0 00 000076
037 00 0 00 030242
254 00 0 00 042020
DMP1
DMP2:
DMP3:
DMPX;
DMPER1
SKIPN
RTN
PUT
HOVE I
PUT
HOVE
LSH
HOVE I
THS6D
HOVE I
PNTOCS
TMSG
SKI PA
GO
HOVE
TLNE
JRST
TLNN
JRST
GO
SOJLE
PCRL
JRST
LDB
SKIPE
GO
SKIPN
GO
MOVE
AOS
TLNN
JRST
GO
GET
GET
RTN
PNTCI
TMSG
PNTCI
PCRL
JRST
CHNXFR(CNTRL)
B
B,4
C
CCNTRL
C.2
CJCCW(C)
<CHN PRG>
-ICCU(C)
< / >
DMPADR
(C)
(1B0)
DMP3
(181)
DHPHLT
DHPJMP
B.DHPER1
DHP1
[POINT 22,(C).35]
DMPXFR
DMPSKP
(C)
C
(1B1)
DMP2
DMPLST
C
B
<CHN PRG ERR>
DMPX
call by data xfr operation?
no
save register B
put limit on length of program
save register C
get controller number
aouble twice for channel index
put 1st address into register C
get address minus 377000
print address
get instruction
skip if not xfr word
go analyze xfr wrd
skip if jump
go handle halt
print jump and change register C . .
error in channel program (exceeded limit)
continue program scan
get address
skip if skip command
dump xfr word
skip if xfr word
dump skip word
re-retch command
update register C
cneck 1st xfr
continue fetch
print last xfer
exit
exit
»^ M Ai^n J
DFSXA DECSYSTEH KLiO CHANNEL/DTE20 INTERACTIONTESJ r.VER 0e7,NAp.Rp..?53B(]242) 14:07 21-Aug-85 Page 190
CEO nOQQ
SEQ 0286
OFSXA
DFSXAM
9277
9278
9279
9280
9281
9282
9283
928A
9285
9286
9287
9288
9289
9290
9291
9292
9293
929A
9295
9296
9297
9298
9299
9300
9301
9302
9303
930A
9305
9306
9307
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-Jul-85 11:44
INTERACTION TEST - VER 0,7 MACRO :53B(12A2) 14:07 21-Aug-85 Page 190
ERROR HANDLER FOR TYPING CHANNEL STATUS
SEQ 0299
042030 037 00 0 00 072765
042031 135 00 0 00 072761
042032 202 00 0 00 000002
042033 037 16 0 00 000003
042034 263 17 0 00 000000
042035 ifOO 00 0 00 000002
042036 037 16 0 00 000003
042037 037 00 0 00 072760
042040 263 17 0 00 000000
042041 037 00 0 00 072770
042042 135 00 0 00 072761
042043 037 16 0 00 000003
042044 037 00 0 00 030242
042045 23 • 00 0 00 042020
•#***»***♦****•*******♦**************»************************♦*******
;* DMPJMP - Decode channel jmp
•f ******* t ******************************************** ****************
DMPJMP: TMSG <CHN JMP TO > ,_
LDB [POINT 22,(C).35]
MOVEM C
PNTOCS
RTN
; get address of jmp
; load pc
; print it
; exit
#♦*************•*****♦**♦********•***********************************
* DMPADR - Print address
#**************♦****♦******♦*•*******■********************************
OMPADR: HOVE C
PNTOCS
TMSG < / >
RTN
; get address
; print it
; pnot slash
; exit
•#**.***************************************•*************************
;* DMPHLT - Print halt
•#************************♦*•♦****************************************
DMPHLT: TMSG <HALT AT >
LDB CPOINT 22,(C).35J
PNTOCS
PCRL
JRST DMPX
DFSXA
DFSXAM
9308
9309
9310
9311
9312
9313
93U
9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
933A
9335
9336
9337
9333
9339
9340
9341
9342
9343
9344
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 191
MAC 29-Jul-85 11:44 ERROR HANDLER FOR TYPING CHANNEL STATUS
#♦*******************•******•***************************************♦
* DMPXFR - Print transfer word
/^********************** *************************** *******************
SEQ 0300
OFl
df:
042046
042047
042050
042051
042052
042053
042054
042055
n'.2056
042057
042060
042061
042062
042063
042064
042065
042066
042067
042070
037 00 0
135 00 0
037 16 0
037 00 0
135 00 0
037 16 0
200 00 0
607 00 0
263 17 0
037 00 0
263 17 0
00 072772
00 072774
00 000003
00 072775
00 072761
00 000003
02 000000
00 100000
00 000000
00 072777
00 000000
037 00
135 00
037 16
037 00
200 00
603 00
254 00
263 17
0 00 073001
0 00 072774
0 00 000003
0 00 073002
0 02 000000
0 00 100000
0 00 0''?057
0 00 000000
DMPXFR: TMSG
LDB
PNTOCS
TMSG
LDB
PNTOCS
MOVE
TLNN
RTN
DMPREV: TMSG
RTN
<XFER >
[POINT 11,(0,133
< WRDS TO >
[POINT 22,(C),35]
(C)
(1B2)
< IN REV>
check rev bit
skip if rev set
z^***-*****************************************************************
* DMPSKP - Print skip command
#********************************************************************
DMPSKP: TMSG
LDB
PNTOCS
TMSG
MOVE
TLNE
JRST
RTN
<SKP >
[POINT 11,(C),13]
< URDS>
(C)
(1B2)
DMPREV
; get command
; check reverse bit
; print reverse bit
042071 037 00 0 00 073004
042072 263 17 0 00 000000
/>***********************♦********************************************
* DMPLST - Print Last xfr bit
*********************************************************************
DMPLST: TMSGD < S LST XFR>
RTN
I rtccvA
ncrcvcTCM fc'iin ruAwwPi /nTF?n iwTFRArTinN TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 192
>#><•» /\Y/N 1
iDF
I 0288
DFSXA
DFSXAM
93A5
93A6
93A7
93A8
93A9
9350
9351
9352
9353
9354
9355
9356
9357
9358
9359
9360
9361
9362
9363
936A
9365
9366
9367
9368
9369
9370
9371
9372
9373
937A
9375
9376
9377
9378
9379
9380
93P1
9Z'i2
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO li;53B(12A2) 1A:07 21-Aug-85 Page 192
MAC 29-JUL-85 11 :AA ERROR HANDLER FOR TYPInG CHANNEL STATUS
•^*** ********************************************* ********************
';* SSWCHK - Check on halt on error & loop on error
• *
!•* (If "OPRSEL" switch set, return to command interpreter)
•#********************************************************************
SEQ 0301
0A2073 A02 00 0 00 07A777
0A207A 037 10 0 00 000002
0A2075 603 00 0 00 010000
0A2076 037 01 0 00 000007
0A2077 037 10 0 00 000002
0A2100 603 00 0 00 000010
0A2101 25A 00 0 00 0A2115
0A2102 603 00 0 00 002000
0A2103 037 1A 0 00 OOOOOA
0A210A 316 17 0 00 075013
OA2105 263 17 0 00 000000
0A2106 607 00 0 00 OOAOOO
0A2107 253 17 0 00 0A2110
0A2110 607 00 0 00 OOAOOO
CA2111 263 17 0 00 000000
0A2112 350 00 0 00 030053
0A2113 261 17 0 00 07A776
0A211A 263 17 0 00 000000
0A2115 336 00 0 00 075017
0A2116 25A 00 0 00 03633A
0A2117 263 17 0 00 000000
0A2120 253 11 0 00 0A2121
0A2121 200 00 0 11 000000
0A2122 263 17 0 00 000000
SSWCHK: SETZM
SWITCH
TLNE
PBEi.L
SWITCH
TLNE
JRST
TLNE
ERRHLT
CAMN
RTN
TLNN
AOBJN
TLNN
RTN
AOS
PUT
RTN
SSWCHO;
SKIPN
JRST
RTN
INTCNT
DING
OPRSEL
$SUCHO
ERSTOP
P,SAVEPT
LOOPER
P,.+1
LOOPER
ERRTLS
ERRLP
STRACE
STPRM1
clear interrupt count
get switches
ring bell on error?
yes - print the bell
get switches
enter command decoder?
yes - check for STRACE first
halt on error?
yes - halt
stack pointer ho: been restored?
yes - return
loop on error?
increment stack
loop on error?
no - exit
update error count
get PC word and put it on the stack
loop back
special trace switch set?
no - return to command decoder
yes - just return
DF
DF
#♦*******************♦***********************************************
* $POPF - Pop in same direction as push
/>**********************♦*********************************************
$POPF
AOBJN
MOVE
RTN
ERRDAT,.+1
(ERRDAT)
update ERRDAT
get status word
exit
rtrcvA
hcr«:v«:TPM tcno rHAWNFi /RTFPO INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 193
/•frt nTA'i
Dl
0289
DFSXA
DFSXAM
9383
9384
9385
9386
9387
9388
9389
9390
9391
9392
9393
939A
9395
9396
9397
9398
9399
9A00
9A01
9A02
9403
9404
9405
9406
9407
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 193
MAC 29-JuL-85 11:44 ERROR REPORT ROUTINES
SUBTTL ERROR REPORT ROUTINES
#************♦******♦♦*♦*•»*******************************************
* $FALT1 - Error handler for special cases
ffitt******** ***************************************** *****************
r
SEQ 0302
DF
DF
042123
042124
042125
042126
042127
042130
042131
042132
042133
042134
042135
042136
042137
042140
042141
042142
042143
042144
042145
201
261
261
256
261
260
261
240
261
261
240
700
261
700
261
261
700
261
254
11
11
11
00
11
17
11
16
11
11
16
05
11
10
11
11
04
11
00
00
00
00
16
00
00
00
00
16
16
00
00
00
§s
00
00
00
00
044347
070223
000016
043521
000000
043024
000000
000002
377001
377002
777776
000000
000000
000000
000000
070224
027760
000000
041600
SFALTI
MOVE I
PUSH
PUSH
.CONI
PUSH
RPTCR
PUSH
ASH
PUSH
PUSH
ASH
CPCNI
PUSH
MBERA
PUSH
PUSH
CLFLGS
PUSH
JRST
ERRDAT.ERSTCK
ERRDAT.CSTX.RH]
ERRDAT,CNTRL
ERRDAT,0
ERRDAT.O
CNTRL.^
ERRDAT.ICCW+KCNTRL)
ERRDATJCCW+2(CNTRL)
CNTRL,-2
ERRDAT,0
ERRDAT.O
ERRDAT,CMS.ETX]
ERRDAT.O
JFAULT
init stack
generate STX
save RH #
get controller status
save it
fetch PTCR
save It
(CNTRL)*4=>(CNTRL)
(CNTRL)/4=>(CNTRL)
get EBOX status
save It
get M80X status
save M60X status on stack
terminate the list
clear EBOX figs
save it
go report it
t\f^'iii
nFr^v«;TFM kiIO fHANNFL/DTE20 INTERACTION TEST - VER 0.7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 194
ern mm
Q 0290
DFSXA
DFSXAM
9A08
9A09
9A10
9A11
9A12
9413
9AU
941!)
9416
9417
9418
9419
9420
9421
9422
9423
9424
9425
9426
9427
9428
9429
9430
9431
9432
9433
9434
9435
9436
9437
9438
9439
9440
9441
9442
9443
9444
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 194
MAC 29-Jul-85 11:44 ERROR REPORT ROUTINES
.fftttiii,******** *******************************************************
]* $FALT2 - Error handler for data errors
.01,********** ***************************************** ****************
SEQ 0303
Dl
Dl
$FALT2: TMSGC
042146
042147
042150
042151
042152
042153
042154
042155
042156
042157
042160
042161
042162
042163
042164
042165
042166
042167
0421 7C
042171
042172
042173
042174
042175
042176
042177
042200
042201
042202
037
200
037
037
550
037
037
037
550
370
037
037
205
541
261
200
316
254
316
254
253
254
26?
CO ■
00
00
16
00
00
17
00
00
00
00
06
00
11
11
17
00
00
00
00
00
11
00
17
00
00 072734
00 075025
00 000003
00 072747
0 00 030113
0 00 000000
0 00 072750
0 00 073007
0 00 030114
0 00 000000
00 000000
00 030242
00 777700
00 044203
00 000016
11 000000
00 0704U
00 042176
0 00 070241
0 00 042174
0 00 042165
0 00 043636
0 00 000016
0 00 042073
402 00 0
260 17 0
11 000000
00 042120
202 00 0 00 000016
336 00 0 16 044136
254 00 0 00 042165
*** TST>
$F1
$F1A:
$F2;
MOVE
PNTOCS
TMSG
HRRZ
PNTAL
TMSG
TMSGC
HRRZ
SOS
PNT6
PCRL
MOVSI
HRRI
PUT
MOVE
CAMN
JRST
CAMN
JRST
AOBJN
JRST
GET
JRST
SETZM
POPF
MOVEM
SKIPN
JRST
TSTNM
<- >
ssvuuo
< ♦»*>
<ERROR PC;
SSVUPC
ERRDAT,-100
ERRDAT,BADLST
CNTRL
(ERRDAT)
[SIX8IT/STXDAT/]
$F2
[MS. EOT]
$F1A
ERRDAT. $F1
STCKER
CNTRL
SSWCHK
(ERRDAT)
CNTRL
BADCNT( CNTRL)
$F1
get test number
print It
get descriptor address
print descriptor
print more border
get PC
adjust PC
print it
get stack limit
mit error stack
save CNTRL
get stack entry
skip if not beginning of msg block
go print data errors
skip if not end of message
terminate and check switches
keep scanning stack
found incorrectly formatted stack
get CNTRL index back
go check switches
clear STX
update index
load CNTRL index
continue if any errors
if not go scan stack
r
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION_TEST_- yER_0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 195
ccn nxni.
L
r
Q 0291
DFSXA
DFSXAM
9A45
9AA6
9AA7
9AA8
9AA9
9A50
9A51
9A52
9A53
9A5A
9A55
9A56
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
9483
9484
9485
9486
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 195
MAC 29-JUL-85 11:44 ERROR REPORT ROUTINES
SEC 0304
042203
042204
042205
042206
042207
042210
042211
042212
042213
042214
042215
042216
042217
042220
042221
042222
042223
042224
042225
042226
042227
042230
042231
042232
042233
042234
042235
042236
042237
042240
042241
042242
042243
042244
042245
042246
042247
037 00
550 00
037 16
037 00
135 00
332 00 0
200 00 0
037 15
037 00
550 01
272 01
200 00
037 15
037 00
135 00 0
037 16 0
00 073012
00 000016
00 000003
00 073014
00 070232
00 075016
00 060631
00 000000
00 073017
16 044136
16 044121
00 000001
00 000000
00 073022
00 070260
00 000003
037 00
303 01
201 01
260 17
301 "
00 0
0 00 073025
0 00 000005
0 00 000005
0 00 042120
00 400000
260 17 0
037 10 0
037 00 0
260 17 0
cui 00 u
037 13 0
037 00 0
260 17 0
432 00 0
037 13
037 00
200 00
037 13
037 00
367 01
254 00
00 073033
00 000000
00 000011
00 042120
00 000005
00 000000
00 000011
00 042120
00 000005
00 000000
00 000011
00 000005
00 000000
00 030242
00 042226
00 042165
ADR
$F3:
TMSG
HRRZ
PNTOCS
TMSG
LDB
SKIPE
HOVE
PNTDEC
TMSG
HRRZ
ADDM
MOVE
PNTDEC
TMSG
LDB
PNTOCS
TMSGCD
CAILE
MOVE I
POPF
CAIL
60
PNTADR
PNTCI
POPF
MOVEM
PNTHW
PNTCI
POPF
XORM
PNTHW
PNTCI
MOVE
PNTHW
PCRL
SOJG
JRST
<CHN: >
CNTRL ; get controller number
; print it
< REC SIZE: >
[POINT 11,CHNXFR(CNTRL),133 ; get size .
SKPPRG ; skip if not skip testing
DATLEN ; if so then get DATLEN
; print it
<. WRDS BAD: >
B.8ADCNT (CNTRL) ; get bad #^ ^
B.8ADDAT (CNTRL) ; update bad data count
B ; get into 0
; print it
<. BUF ADR: >
[POINT 22.CHNXFR(CNTRL).35]
<
BAD
B.5
B.5
GOOD
BEGPAG
[ANDI 777
lOR DATBUF (CNTRL)
MAPADR
JRST MAPERR
RTNJ
11
BAD
11
BAD
11
BAD
B.$F3
$F1
XOR >
skip if less than limit
set limit
get address
is address below page 400
delete page #
: tab
; get bad word
; save in bad
; tab
; get good
; xor with bad word
; tab
; get xor data
process all items
otherwise go scan stack
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST_- VER.O.^ MACRO X53B(1242) 14:07 21-Aug-85 Page 196
ceo nxf\K
EQ 0292
DFSXA
DFSXAM
9487
9A88
9A89
9A90
9A91
9A92
9A93
9A9A
9A95
9A96
9A97
9A98
9A99
9500
9501
9502
9503
950A
9505
9506
9507
9508
9509
9510
9511
9512
9513
951A
9515
9516
9517
9518
9519
9520
9521
9522
9523
952A
9525
9526
9527
9528
9529
9530
9531
9532
9533
953A
9535
9536
9537
9538
9539
95A0
95A1
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(12A2) U:07 21-Aug-85 Page 196
MAC 29-JUL-85 11:AA ERROR REPORT ROUTINES
•#*******♦****♦*********♦♦*♦********♦*********************************
;* SFALTA - Error handler for fatal device errors
|.f ********************************************************************
SEQ 0305
SFALTA: FMSGC
0A2250
0A2251
0A2252
0A2253
0A225A
0A2255
0A2256
0A2257
0A2260
0A2261
0A2262
0A2263
0A226A
0A2265
0A2266
0A2267
0A2270
0A2271
0A2272
0A2273
0A227A
0A2275
0A2276
0A2277
0A2300
0A2301
0A23O2
0A2303
0A230A
0A2305
0A2306
0A2307
0A2310
042311
042312
042313
042314
042315
042316
042317
042320
042321
042322
042323
042324
042325
037 01
200 00
037 17
037 01
550 00
037 17
037 01
550 00
037 17
037 01
550 00
037 01
037 01
037 01
550 00
370 00
037 06
037 01
301 16
254 00
260 17
260
260
2oJ
260
261
260
037 01
262 17
402 00
370 00
260 17
254 00
200 00
306 00
254 00
306 00
254 00
200 17
201
254
0 00
0 00
0 00
00
00
00
00
00
0 00
0 00
0 00
00
00
00
00
00
0 00
17
17
17
17
17
17
00
00
00
00
00
00
00
00
00
00
00
00
16
00
00
0 00
00
0 00
0 00
0 00
0 00
00
00
00
00
072734
075025
000003
072747
030113
000001
073040
000016
000003
073044
000015
000001
072750
072751
030114
000000
000001
030242
000010
042321
041204
040046
040112
041077
041140
000016
036206
073047
000016
060647
074755
037110
036334
075025
000100
042324
000101
036334
075030
044347
075024
260 17 0 00 065655
260 17 0 00 065707
254 00 0 00 042301
200 17 0 00 075012
037 10 0 00 000002
*** TST>
$FLT4:
MOVE
PNTOCF
FMSG
HRRZ
PNTALF
FMSGC
HRRZ
PNTOCF
FMSG
HRRZ
PNTIF
FMSG
FMSGC
HRRZ
SOS
PNT6F
PCRLF
CAIL
JRST
GO
i
60
60
PUSH
GO
FMSGCD
POP
SETZM
SOS
GO
JRST
MOVE
CAIN
JRST
CAIN
JRST
MOVE
MOVE I
JRST
$FLT48: GO
GO
JRST
$FLT4A:
$FLT4C;
MOVE
SWITCH
TSTNM
<- >
SSVUUO
<*** CHANNEL tt>
CNTRL
< DEVICE * >
DEV
< ***>
<ERROR PC: >
SSVUPC
CNTRL, 10
$FLT4B
PSTAT
PRTSR
PRTER
PRTDT
PRTSN
P, CNTRL
PRTOT
<+++ THIS IS A FATAL
P, CNTRL
REQST(CNTRL)
AMTCTL
PRT8L
STPRM1
TSTNM
100
IFLT4C
101
STPRM1
P,$$$P*
ERRDAT,ERSTCK
aTSTLP
PRTTSG
PRTTCG
$FLT4A
P,SAVEP
; get test number
; print it
; get descriptor address
; print descriptor
; get controller number
print more border
get PC
adjust PC
print it
; print DTE20 status
; print RH20 status
; print device status
; print device error
; print device type
; print serial #
; save controller number
; print totals
ERROR - THE UNIT IS BEING DROPPED! +++>
; get it back (controller number)
; release device
; deduct one device
; print selection table
; enter command interpreter if none selected
; get current test number
; DTE20 startup load
; DTE20 boot test
; re-init push list
; re-init error stack pointer
; continue testing
; print DTE20 status
; print DTE20 b/te count
; restore P pointer
^f-/\ AlrtT
I DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACJIONJEST^- VER^g,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 196-1
?Fo n^nA
EQ 0293
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 196-1
DFSXAM MAC 29-Jul-85 11:44 ERROR REPORT ROUTINES
SEQ 0306
95A2 042326
9543 042327
9544 042330
603 00 0 00 000010
254 00 0 QQ 036334
254 00 0 00 030626
TLNE
JRST
JRST
OPRSEL
STPRM1
R3
operator selection?
yes, back to command process
no, load remaining DTE20's and go
^^/\ f\'^^^/
OF
SXA DECSYSTEM. KLIO CHANNEL/DTE20 INTERACTIONJEST^- yERJ,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 197
^FO 0^07
SEQ 0294
DFSXA
DFSXAM
95A5
95A6
95A7
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5:538(1242) 14:07 21-Aug-85 Page 197
MAC 29-JuL-85 11:44 ERROR REPORT ROUTINES
•#*********************♦♦*************♦*************•*****************
;* $FALT5 - Error handler for fatal errors
SEQ 0307
$FALT5: TMSGC
042331
042332
042333
042334
042335
042336
042337
042340
042341
042342
042343
042344
042345
042346
042347
042350
042351
042352
042353
042354
042355
042356
042357
042360
042361
042362
042363
037 00 0
200 00 0
037 16
037 00
550 00
037 17
037 00 0
550 00 0
037 16 0
037 00 0
550 00 0
037 01
037 00
037 00
550 00
370 00 0
037 06 0
037 00 0
260 17 0
260 17 0
260 17
260 17
260 17
2o-> 17
260 17
260 17
254 00
00 072734
00 075025
00 000003
00 072747
00 030113
00 000000
00 073040
00 000016
00 000003
00 073044
00 000015
00 000000
00 072750
00 072751
00 030114
00 000000
00 000000
00 030242
00 041204
00 041252
00 040046
00 040112
00 040711
00 040743
00 041077
00 041140
00 042073
*** TST>
MOVE
PNTOCS
TMS6
HRRZ
PNTAL
TMSGC
HRRZ
PNTOCS
TMSG
HRRZ
PNT1
TMSG
TMSGC
HRRZ
SOS
PNT6
PCRL
GO
60
GO
GO
GO
GO
GO
GO
JRST
TSTNM
<- >
ssvuuo
<*** CHANNEL #>
CNTRL
< DEVICE # >
DEV
< ***>
<ERROR PC: >
SSVUPC
PSTAT
PPTCR
PRTSR
PRTER
PRTCH1
PRTCH2
PRTDT
PRTSN
$SUCHK
; get test number
; print it
; get descriptor address
; print descriptor
; get controller number
print more border
get PC
adjust PC
print it
print RH20 status
print primary register
print device status
print device error
print word 1
print word 2
print device type
print serial #
go check switches
em mOC
DFSXA DECSYSTEM_KLip CHANNEL/DTE20 INTERACTIONJEST^- yERj,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 198
SFQ 0308
r
SEQ 0295
DFSXA
DFSXAM
9579
9580
9581
9582
9583
958A
9585
9586
9587
9588
9589
9590
9591
9592
9593
959A
9595
9596
9597
9598
959 i
9600
9601
9602
9603
960A
9605
9606
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(12A2) 14:07 21-Aug-85 Page 198
MAC 29-JuL-85 11:AA ERROR REPORT ROUTINES
.#*♦♦»**»*»♦♦*♦ »**********t»******»*»*********************************
;* $FALT6 - Error handler for DTE20 fatal errors
./>*»**»**»•♦**»**********♦*♦******•*♦♦****•*♦****♦*************♦******
SEQ 0308
04236A
0A2365
0A2366
042367
0A2370
0A2371
042372
042373
042374
042375
042376
042377
042400
042401
042402
042403
042404
042405
042406
042407
042410
037 00
200 00
037 16
037 00
550 00
037 17
037 00
550 00
037 16
037 00
550 00
037 01
037 00
037 00
550 00
370 00
037 06
037 00
260 17
260 17
254 00
0 00 072734
0 00 075025
0 00 000003
0 00 072747
0 00 030113
0 00 000000
0 00 073040
0 00 000016
0 00 000003
0 00 073044
0 00 000015
0 00 000000
0 00 072750
0 00 072751
0 00 030114
0 00 000000
0 00 000000
0 00 030242
0 00 065655
0 00 065707
0 00 042073
$FALT6: TMS6C
•** TST>
HOVE
PNTOCS
THS6
HRRZ
PNTAL
TMS6C
HRRZ
PNTOCS
TMS6
HRRZ
PNT1
THS6
TMS6C
HRRZ
SOS
PNT6
PCRL
60
GO
JRST
TSTNM
<- >
tsvuuo
<•** CHANNEL #>
CNTRL
< DEVICE # >
DEV
< ***>
<ERROR PC: >
SSVUPC
PRTTSG
PRTTCG
$SUCHK
get test number
print it
get descriptor address
print descriptor
get controller number
print more border
get PC
adjust PC
print it
print DTE20 status register
print DTE20 byte count
go check switches
\
f"
^r-rt r\'\f\^
DFSXA
DECSYSTEM. KLIO rHANNEL/DTE20 INTERACTIQNJEST^- yER^O.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 199
<:fq 0^09
SEO 0296
OECSYSTEM KLIO fHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3!53B(1242) K:07 2i-Aug-85 Page 199
— ' -' " " ERROR REPORT ROUTINES
•#♦*♦«♦*•*♦•****•*****♦♦♦*♦******•*********♦*»**********♦*********•***
;• $FALT3 - Error handler for Logout errors
.giitiiii*********************** *****************************************
DFSXA
OECSYSTf
m KLIO CHANNEL/DTE2
DFSXAM
MAC
29-JuL-85 11:44
9607
9608
9609
9610
9611
9612
042411
261 11 0 00 070241
9613
042412
200 11 0 00 072754
96U
9615
9616
042413
037 00 0 00 072734
961?
042414
200 00 0 00 075025
9618
042415
037 16 0 00 000003
9619
042416
037 00 0 00 072747
9620
042417
550 00 0 00 030113
9621
042420
037 17 0 00 000000
9622
042421
037 00 0 00 072750
9623
042422
037 00 0 00 072751
962A
042423
550 00 0 00 030114
9625
042424
370 00 0 00 000000
9626
042425
037 06 0 00 000000
9627
042426
20C 00 0 11 000000
9628
042427
316 00 0 00 070241
9629
042430
254 00 0 00 042073
9630
042431
316 00 0 00 070407
9631
042432
254 00 0 00 042437
9632
042433
316 00 0 00 070413
9633
042434
254 00 0 00 042500
963A
042435
253 11 0 00 042426
9635
042436
254 00 0 00 043636
9656
9637
042437
4ui 00 0 11 000000
9638
042440
0^7 00 0 00 073064
9639
042441
260 17 0 00 042120
9640
042442
202 00 0 00 000001
9641
042443
350 00 0 01 044105
96A2
042444
037 16 0 00 000003
9643
042445
037 00 0 00 073067
9644
042446
260 17 0 00 042120
9645
042447
316 00 0 11 000001
9646
042450
254 00 0 00 042460
9647
042451
037 00 0 00 073073
9648
042452
200 00 0 11 000000
9649
042453
037 16 0 00 000003
9650
042454
037 00 0 CO 073076
9651
042455
260 17 0 00 042120
9652
042456
037 16 0 00 000003
9653
042457
334 00 0 00 000000
SEQ 0309
$FALT3: PUSH
MOVE
TMSGC
ERRDAT.CMS.EOT]
ERRDAT,[-*D100..ERSTCK]
<
*** TST>
MOVE
PNTOCS
TMS6
HRR2
PNTAL
TMSG
TMSGC
HRRZ
SOS
PNT6
$FLT3Z: MOVE
CAMN
JRST
CAMN
JRST
CAMN
JRST
AOBJN
JRST
$FLT3;
SETZM
TMSGC
POPF
MOVEM
AGS
PNTOCS
TMSGD
POPF
CAMN
JRST
TMSG
MOVE
PNTOCS
TMSG
POPF
PNTOCS
SKI PA
TSTNM
<- >
$SVUU0
< ***>
<ERR0R PC: >
SSVUPC
(ERRDAT)
[MS. EOT]
$SUCHK
CSIX8IT/STXL06/]
$FLT3
CSIX8IT/STXDLG/]
$FLT3B
ERRDAT. $FLT3Z
STCKER
(ERHDAT)
<++♦ CHANNEL >
B
CHNERS(B)
< LOGOUT ERR0R+*+>
1 (ERRDAT)
$FLT3A
<G00D CPC: >
(ERRDAT)
< BAD CPC: >
terminate the stack
get test number
print it
get descriptor address
print descriptor
get PC
adjust PC
onnt it
get stack entry
skip if not EOT
go check switches
found correct entry
DTE20
scan stack
can't find anything
clear STX entry
get RH20 ID
save in index register
update channel error count
print it
get good CPC
skip if CLP error
jump ahead if they are
get bad
print it
skip around throw away
ccn noQ7
DFSXA DECSYSTEM.KL10 CHANNEL/DTE20 INTERACTIONJEST^- yER^O.7 MACRO 1518(^2) 14:07 21-Aug-85 Page 200
«;fq 0310
L.
SEQ 0297
DFSXA
DECSYS1
DFSXAM
MAC
965A
9655
0A2460
9656
0A2461
9657
0A2A62
9658
0A2463
9659
0A2A6A
9660
0A2A65
9661
0A2A66
9662
0A2467
9663
0A2470
966A
0A2471
9665
0A2A72
9666
0A2A73
9667
0A2A74
9668
0A2A75
9669
042A76
9670
0A2477
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 200
29-Jul-85 11:44 ERROR REPORT ROUTINES
SEQ 0310
260
260
316
254
037
135
037
037
260
135
037
037
135
037
037
254
17
17
00
00
00
00
16
00
17
00
16
00
00
16
00
00
0 00 042120
0 00 042120
11 000001
00 042426
00 073101
00 073107
00 000003
00 073110
. 00 042120
0 00 070262
0 00 000003
00 073114
00 073107
00 000003
00 030242
00 042426
$FLT3A:
POPF
POPF
CAMN
JRST
TMSGC
LDB
PNTOCS
TMSGC
POPF
LDB
PNTOCS
TMSG
LDB
PNTOCS
PCRL
JRST
KERRDAT)
$FLT3Z
<G00D DAC: WC=0 AND ADR= >
[POINT 22.(ERRDAT),35] ; get address
; print it
<BAD DAC: WC= >
[POINT 11, A, 133
< AND ADR= >
[POINT 22.(ERRDAT),35]
$FLT3Z
throw away CLP
get word 2
skip if bad ,
otherwise - go back to process stack
ccn f\OQa
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 201
SEQ 0311
L_
SEQ 0298
it)
DFSXA
DFSXAM
9671
9672
9673
967A
9675
9676
9677
9678
9679
9680
9681
9682
9685
9684
9685
9686
9687
9688
9689
9690
9691
9692
9693
969A
9695
9696
9697
9698
9699
9700
9701
9702
9703
9704
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 201
MAC 29-JuL-85 11:44 ERROR REPORT ROUTINES
^ti,*********** ********************************************** *********
* DTE20 - Logout error reporter
.01,*******************************************************************
SEQ 0311
042500
042501
042502
C42503
042504
042505
402 00 0 11 000000
037 00 0 00 073064
260 17
202 00
350 00
00 042120
00 000001
01 044105
037 16 0 00 000003
042506 037 00 0 00 073117
042507
042510
042511
042512
042513
0'.2514
042515
042516
042517
042520
042521
042522
042523
042524
042525
042526
042527
261 17 0 00 000001
261 17 0 00 000002
261 17 0 00 000003
261 17 0 00 000004
261 17 0 00 000005
260 17
202 00
260 17
202 00
260 17
202 00
260 17
202 00
260 17
20? 00
0 00 042120
0 00 000001
0 00 042120
0 00 000002
0 00 042120
0 00 000003
0 00 042120
0 00 000004
0 00 042120
0 00 000005
322 01 0 00 042600
327 01 0 00 042557
$FLT3B: SETZM
TMSGC
POPF
MOVEM
ACS
PNTOCS
PUT
PUT
PUT
PUT
PUT
POPF
MOVEM
POPF
MOVEM
POPF
MOVEM
POPF
MOVEM
POPF
MOVEM
JUMPE
JUMPG
(ERRDAT)
<+++ CHANNEL >
B
CHNERS(B)
TMSGD < LOGOUT ERROR +++>
1
2
3
4
5
1
2
3
4
5
1.$FLT3G
l.$FLT3E
; clear STX entry
; get channel ID
; put in index register
; update channel error count
; print it
; save some AC's
; get DTERWF
; get DTES8P
; get DTEFBP
; get EPTTBP
; get EPTEBP
; no DTE20 startup
; DTE20 writing
cm njQO
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION^TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 202
SEQ 0312
SEQ 0299
I
DFSXA
DFSXAM
9705
9706
9707
9708
9709
9710
9711
9712
9713
97U
9715
9716
9717
9718
9719
9720
9721
9722
9723
972A
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734
9735
9736
9737
9738
9739
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 202
MAC 29-Jul-85 11:AA ERROR REPORT ROUTINES
SEQ 0312
0A2530
0A2531
0A2532
0A2533
042534
042535
042536
042537
042540
042541
04^542
042543
042544
316 03 0
254 00 0
0 000004
0 042540
037 00 0 00 073123
200 00 0 00 000003
037 13 0 00 000000
037 00 0 00 073127
200 00 0 00 000004
057 13 0 00 000000
316 02 0 00 000005
254 00 0 00 042550
037 00 0 00 073133
200 00 0 00 000002
037 13 0 00 000000
042545 037 00 0 00 073146
042546 200 00 0 00 000005
042547 037 13 0 00 000000
042550 037 00 0 00 030243
042551 26? 17 0 00 000005
042552 2oi 17 0 00 000004
042553 262 17 0 00 000003
042554 262 17 0 00 000002
042555 262 17 0 00 000001
042556 254 00 0 00 042426
;* DTE20 reading
$^LT3C
<G00D TO-10 BP: >
0,3
< BAD TO-10 BP:
0,4
CAMN
JRST
TMSG
MOVE
PNTHU
TMSG
MOVE
PNTHW
$FLT5C: CAMN
JRST
TMSG <
DTE20 WRITE BP CHANGED DURING READ
GOOD TO-11 BP: >
0,2
2-5 ,
$FLT3D
MOVE
PNTHW
TMSG
MOVE
PNTHW
$FLT3D: PCRL2
GET
GET
GET
GET
GET
JRST
< BAD TO-11 BP:
0,5
5
4
3
2
1
$FLT3Z
Q 0300 j
OFSXA
DFSXAM
97A0
97A1
97A2
97A3
97AA
97A5
97A6
97A7
97A8
97A9
9750
9751
9752
9753
975A
9755
9756
9757
9758
9759
9760
9761
9762
9763
976A
9765
9766
9767
9768
9769
9770
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z53B(12A2) 14:07 21-Aug-85 Page 203
il.): nn ,..1 oc 11.// CDDOD DCDnOT DnilTIMP?
MAC 29-JUL-85 11:AA
0A2557 316 03 0 00 000005
0A2560 25A 00 0 00 0A2567
0A2561 037 00 0 00 073152
0A2562 200 00 0 00 000003
0A2563 037 13 0 00 000000
0A256A 037 00 0 00 0731 A6
0A2565 200 00 0 00 000005
0A2566 037 13 0 00 000000
0A2567 316 02 0 00 OOOOOA
0A2570 25A 00 0 00 0A2550
0A2571 037 00 0 00 073156
0A2572 200 00 0 00 000002
0A2573 037 13 0 00 000000
0A257A 037 00 0 00 073127
0A2575 200 00 0 00 OOOOOA
0A2576 037 13 0 00 000000
0A2577 25A 00 0 00 0A2550
0A2600 037 00 0 00 073171
0A2601 23 ■ 00 0 00 0A2550
ERROR REPORT ROUTINES
SEQ 0313
r
DF
Df
* DTE20 writing
$FLT3E:
$KLT3F;
CAMN
JRST
TMSG
MOVE
PNTHW
TMSG
MOVE
PNTHW
CAMN
JRST
TMSG
3/5
$FLT3F
<G00D TO-11 BP;
0,3
< BAD TO-11 BP:
0,5
2, A
$FLT3D
DTE20 READ BP CHANGED WHILE WRITING
GOOD TO-10 BP:
MOVE
PNTHW
TMSG
MOVE
PNTHW
0,2
< BAD TO-10 BP;
0,A
JRST $FLT3D
$FLT3G: TMSG <N0 DTE20 STARTUP>
JRST $FLT3D
»- A /\^/\4
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACJIQNJEST^- yER_g,7 MACRO 3:53B(12A2) 1A:07 21-Aug-85 Page 20A
cpo (\J,^L
L
Q 0301
DFSXA
DFSXAM
9771
9772
9773
977A
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792
9793
979A
9795
9796
9797
9798
9799
9800
9801
9802
9803
980A
9805
9806
9807
9808
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) K:07 21-Aug-85 Page 20A
MAC 29-JuL-85 11:44 ERROR REPORT ROUTINES
SEQ 0314
Of
Dl
042602
042603
042604
042605
042606
042607
042610
042611
042612
042613
042614
042615
042616
042617
042620
042621
042622
042623
042624
042625
042626
042627
042630
042631
042632
042633
042634
042635
042636
042637
336 00 0 16 060633
254 00 0 00 067640
336 00 0 00 075026
254 00 0 00 042610
331 00 0 16 060647
254 00 0 00 067640
402 00 0
200 06 0
0
0
0
135 01 0
213 00 0
201
261
261
11
11
11
517 00
541 01
201
200 05
200 06
0
0
02 0
335 00 0
250 06 0
404 05 0
404 06 0
3iJ 06
260 17
350 00
253 01
261 11
336 00
350 00
263 17
16 044136
10 060565
00 044203
00 070416
00 000016
00 073175
00 000001
00 000001
00 044541
00 054543
01 000000
02 000000
00 075026
00 000005
00 060550
00 060550
00 000005
00 042640
00 000002
00 042622
00 070241
16 044136
17 000000
00 000000
;* $DTCMP - Dat
$DTCMP: SKIPN
SKpRTN
SKIPN
JRST
SKIPL
SKPRTN
SETZM
MOVE
MOVE I
PUSH
PUSH
LDB
MOVNS
HRLZS
HRRI
MOVE I
DTLP: MOVE
MOVE
SKIPGE
EXCH
AND
AND
CAME
60
AOS
AOBJN
PUSH
SKIPN
AOS
RTN
*******************************************************
a comparison routine ^^^^^^^^^
*******************************************************
CHTYPE(CNTRL)
WRTPHS
.+3
REQST(CNTRL)
BADCNT(CNTRL)
GOOD,DATPTN(PATRN)
ERRDAT,BADLST
ERRDAT,[SIXBIT/STXDAT/]
ERRDAT,CNTRL
B, [POINT 11,CCWLST(CCU)
B
B
B,DATBUF
CDEVBUF
BAD,(B)
GOOD,(C)
WRTPHS
GOOD, 8 AD
BAD,DATMSK
GOOD,DATMSK
GOOD, BAD
PSHBAD
C
B,DTLP ^
ERRDAT,[MS.EOT]
BADCNT(CNTRL)
(P)
; is this controller a DTE?
; yes - exit
; skip if writinq
; if reading - skip ahead 3
; skip if RH20 loop back
; if device - exit
; clear bad count location
; fetch data pattern
; setup push list
.1
save controller number
3] ; get record length
make negative _ , . , ^ ^ ,^
put negative legnth into left half
setup pointer
setup pointer 1
get word to be checked
get device word
skip if reading
exchange roles if writing
and with mask
and with mask
check
save bad
update register C
?o back after update AC1
erminate list
skip if errors found
setup skip return
exit
■n mn"^
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACHONJEST^- VER J,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 205
r
<:fq 0^15
I L
EQ 0302
DFSXA
DFSXAM
9809
9810
9811
9812
9813
98U
9815
9816
9817
9818
9819
9820
9821
9822
9823
DECSYSTEM KLiO
MAC 29-JuL
CHANNEL/DTE20
•85 11:4A
INTERACTION TEST - VER 0,7
ERROR REPORT ROUTINES
MACRO 3:538(1242) 14:07 21-Aug-85 Page 205
SEQ 0315
Dl
Dl
042640
042641
042642
042643
042644
042645
042646
042647
042650
350
201
315
263
201
261
261
261
263
00
00
00
17
00
11
11
11
* "^
1 1
•#**♦*♦♦***♦♦**»*♦*•*♦♦♦♦♦♦♦♦♦*********♦************♦******•**•*******
;* PSHBAD - Error data push routin? ^ ^^^
update bad count
generate 5
skip if BADCNT less than 5
prevent pushing more than 5 items
get read address
push address on stack
put bad on the stack
push good on stack
0 16 044136
PSHBAD: AGS
BADCN'^NTRL)
0 00 000005
HOVE I
5
0 16 044136
CAMGE
BADCNT(CNTRL)
0 00 000000
RTN
0 01 000000
HOVE I
(8)
0 00 000000
PUSH
ERRDAT.O
0 00 000005
PUSH
ERRDAT.BAD
0 00 000006
PUSH
ERRDAT,GOOD
0 00 000000
RTN
•en r\tr\T
DFSXA DECSYSTEM_KL1P CHANNEL/DTE20 INTERACTIONJEST^- VER 0.7 HACRO )!53B(1242) 14:07 21-Aug-85 Page 206
SFQ 0316
EQ 0303
DFSXA
DFSXAM
982A
9825
9826
9827
9828
9829
9830
9831
9832
9833
983A
9835
9836
9837
9838
9839
98A0
98A1
98A2
98A3
98AA
98A5
98A6
9847
98A8
98A9
9850
9851
9852
9853
985A
9855
9856
9857
9858
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X55B(1242) 14:07 21-Aug-85 Page 206
r.AC 29-JuL-85 11:44 SCOPE LOOP HANDLER
SUBTTL SCOPE LOOP HANDLER
SEQ 0316
042651 202 00 0 00 000001
042652 307 00 0 00 000027
042653 336 00 0 01 042721
042654 334 00 0 00 000000
042655
042656
042657
042660
042661
042662
042663
042664
042665
042666
042667
042670
042671
042672
042673
042674
042675
042676
042677
042700
042701
042702
042703
042704
042705
042706
042707
042710
042711
042712
042713
042714
042715
042716
042717
042720
042721
042722
254 00
402 00
202 00
037 10
607 00
254 00
260 17
260 17
262 17
254 00
603 00
260 17
550 00
370 00
370 00
202 00
202 00
200 00
274 00
2\}1 00
037 07
334 00
254 00
037 10
607 00
332 00
260 17
200 00
303 00
263 17
261 17
205 16
260 17
253 16
262 17
263 17
0 00 073176
0 00 075016
0 00 075025
0 00 000002
0 00 200000
0 00 042667
0 00 036206
0 00 041574
0 00 000000
0 00 030630
0 00 100000
0 00 036206
0 17 000000
0 00 000000
0 00 000000
0 00 074776
0 00 075024
0 00 000017
0 00 073200
0 00 075030
0 00 000003
0 00 000000
0 00 036334
0 00 000002
0 00 001000
0 00 075017
0 00 042752
0 00 075025
0 00 000027
0 00 000000
0 00 000016
0 00 777764
0 00 033117
0 00 042715
0 00 000016
0 00 000000
202 17 0 00 075013
•#*»♦****•*♦»******•»•*♦♦*♦****************************•**************
;* SSCOPE - Handles loading of loop address
SSCOPE: MOVEM
CAIG
SKIPN
SKI PA
JRST
SETZM
MOVEM
SWITCH
TLNN
JRST
GO
60
GET
JRST
$SCA: TLNE
60
$SC0P1: HRRZ
SOS
SOS
nOVEM
HOVEM
HOVE
SUB
MOVEM
TTALTM
SKIPA
JRST
SWITCH
TLNN
SKIPE
60
MOVE
CAILE
RTN
PUT
MOVSI
RHINJ
AOBJN
GET
RTN
1
27
TSTDISd)
XX
[GET
rtn:
SKPPR6
TSTNM#
RSTART
$SCA
PRTOT
ZROSUM
STARTA
TOTALS
PRTOT
(P)
ERRLP
TSTLP
P
CI, J]
$$ip
STPRM1
PALERS
STRACE
TRACE
TSTNM
27
CNTRL
CNTRL,-14
CNTRL, .-1
CNTRL
; Test enable/disable storage
TSTDIS: MOVEM P.SAVEPT
BLOCK 30
get into ACI
within range?
test disabled?
no - proceed
yes - return
clear skip program flag
get data switches
skip if restart up
otherwise skip ahead
print totals
zero summary table
reset stack entry
restart test
skip if totals not set
otherwise print totals
get PC
back up PC to point to
start of test
save in error loop address
save in test loop address
save re-init P pointer
altmode typed?
no - continue
return to command prompt
get data switches
trace program flow?
special trace set?
yes - print trace data
get test number
within range?
no - exit
save CNTRL
initialize controller number
initialize the device
loop till done
restore CNTRL
exit
; save stack pointer
en r\X(\L
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO );53B(1242) 14:07 21-Aug-85 Page 207
SEQ 0317
SEO 0304
DFSXA
DFSXAM
9876
9877
9878
9879
9880
! 9881
9882
9883
988A
9885
9886
9887
9888
9889
9890
9891
9892
9893
989A
9895
9896
9897
9898
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 207
MAC 29-Jul-85 11:AA SCOPE LOOP HANDLER
0i,i,i,m,i,i,i,i,in,** I,********* *********************************************
* TRACE - Trace option ^^^^^*^*****
fft************************************************ *******************
SEQ 0317
OA2752 037 01 0 00 0302A2
042753
04275A
OA2755
0A2756
0A2757
OA2760
0A2761
0A2762
0A2763
04276A
0A2772
201 00 0 00 073201
037 17 0 00 000001
200 00 0 00 075025
037 03 0 00 000001
332 00 0 00 075017
260 17 0 00 036260
336 00 0 00 075017
037 01 0 00 0302A2
263 17 0 00 000000
101 102 103 10A 105
000 00 0 00 000000
TRACE: PCRLF
MOVE I
PNTALF
MOVE
PNT3F
SKIPE
no
SKIPN
PCRLF
RTN
[ASCIZ/=> /]
TSTNM
STRACE
PTIME
STRACE
; print trace header
; get test number
; print it
; special trace switch set?
; yes - print the time
; special trace switch set?
; no - print a final CRLF
SUBNM: ASCIZ/ABCDEFGHIJKLMNOPQRSTUVWXYZ/
SUBPNT: Z
; working location for trace
ccn n7n«;
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO Z53B(12A2) U:07 21-Aug-85 Page 208
SEQ 0318
I
iDFSXA
jDFSXAM
i 9899
9900
9901
9902
9903
990A
9905
9906
9907
9908
9909
9910
9911
9912
9913
991 A
9915
9916
9917
9918
9919
9920
9921
9922
9923
992A
9925
9926
9927
9928
9929
9930
9931
9932
9933
993A
9935
9936
9937
9938
9939
9940
99A1
99A2
994 3
9944
9945
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JuL-85 11:44
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 208
RH20 CONTROLLER COMMANDS
SUBTTL RH20 CONTROLLER COMMANDS
/>*♦*******•**********♦**♦♦*♦************♦*********•******************
* SWSBAR - Load the secondary block address register
#♦*«********»**♦*****♦**♦*****♦**************************************
042773 505 00 0 15 000000
042774 434 00 0 00 073202
042775 256 00 0 16 043467
042776 263 17 0 00 000000
042777 505 00 0 15 000000
043000 434 00 0 00 073203
043001 256 00 0 16 043467
043002 263 17 0 00 000000
043003 434 00 0 00 073204
043004 256 00 0 16 043467
043005 263 17 0 00 000000
043006 434 00 0 00 073205
043007 256 00 0 16 043467
043010 263 17 0 00 000000
043011 434 00 0 00 073206
043012 256 00 0 16 043467
043013 263 17 0 00 000000
SUSBAR: HRLI
I OR
XCT
RTN
(DEV)
[RHS8AR+LR]
.DATO(CNTRL)
; merge in device address
; merge in register address+load bit
; send data
; exit
.ffti,******************** **********************************************
':* SWSTCR - Load the secondary transfer control register
•#*****♦********•*****♦***♦*******************************************
SUSTCR: HRLI
I OR
XCT
RTN
(DEV)
CRHSTCR+LR+STORE+DTESJ
.DATO(CNTRL)
merge in device address and
register address+store+dis stop
write the register
;* $WIVR - Load the interrupt vector register
$UIVR: I OR
XCT
RTN
CRHIVR+LR]
.DATO(CNTRL)
; merge register select with data
; do DATAO
0i,i,t *****************************************************************
* $UWRR - Load the write register
0********************** **********************************************
SUURR:
I OR
XCT
RTN
[RHWRR+LR]
.DATO(CNTRL)
; merge register select with data
; do DATAO
* SWDIAG - Load the diagnostic register
ff ******************************************* *************************
SWDIAG: lOR
XCT
RTN
CRHDIAG+LR]
.DATO(CNTRL)
; merge register select with data
; do DATAO
SEQ 0318
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 209
isrcuiu M*r oo-i.-i-oc 11././. DuOC\ mKiTDni I PR mMMANns
SEQ 0319
SEQ 0306
DFSXA
DrSXAM
^9A6
. 8
9
9' J
99!) 1
9952
9953
9954
9955
9956
9957
9958
9959
9960
9961
9962
9963
996A
9965
9966
9967
9968
9969
9970
9971
9972
9973
997A
9975
9976
9977
9978
9979
9980
9981
9982
9983
9984
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JUL-85 11:44
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 209
RH20 CONTROLLER COMMANDS
•#******•***************♦*********************************************
;* $RRDR - Read the read register ^^^^
'#♦*******************************************************************
043014 205 00 0 00 750000
043015 256 00 0 16 043467
043016 256 00 0 16 043504
043017 263 17 0 00 000000
043020 205 00 0 00 740000
043021 256 00 0 16 043467
043022 256 00 0 16 043504
043023 263 17 0 00 000000
043024 205 00 0 00 730000
043025 256 00 0 16 043467
043026 256 00 0 16 043504
043027 263 17 0 00 000000
043030 205 00 0 00 720000
043031 256 00 0 16 043467
043032 256 00 0 16 043504
043033 263 17 0 00 000000
$RRDR: MOVSI
XCT
XCT
RTN
(RHRDR)
.DATO(CNTRL)
.DATKCNTRL)
et register
0 DATAO
do DATAI
return
•#*************•******************************************************
;* $RIVR - Read the interrupt register
•#•************•********♦*********************************************
$RIVR: MOVSI
XCT
XCT
RTN
(RHIVR)
.DATO(CNTRL)
.DATKCNTRL)
et register
0 DATAO
do DATAI
return
•/>*♦•*•***************************************************************
;* SRPTCR - Read the primary transfer register
J*****************************************-****************************
SRPTCR: MOVSI
XCT
XCT
RTN
(RHPTCR)
.DATO(CNTRL)
.DATKCNTRL)
get register
do DATAO
do DATAI
return
•#***•********************♦*******************************************
;♦ SRPBAR - Read the primary block address register
SRPBAR: MOVSI
XCT
XCT
RTN
(RHPBAR)
.DATO(CNTRL)
.DATKCNTRL)
get register
do DATAO
do DATAI
return
SEQ 0319
<;fq 0^07
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 210
I OC 1 i . / /
DLion rniuTDni i co rnMMAKinc:
SEQ 0320
SEQ 0307
r
DFSXA
lOFSXAM
9985
9986
9987
9988
9989
9990
9991
9992
9993
9994
9995
9996
9997
9998
9999
10000
10001
10002
10003
1000A
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 210
MAC 29-JUL-85 11:44 RH20 CONTROLLER COMMANDS
•#***»***************♦*♦♦♦********************************************
;* SRSTCR - Read the secondary transfer control register ^^^^,,,,,
.#«*****************************************♦*************************
SEQ 0320
043034 205 00 0 00 710000
043035 256 00 0 16 043467
043036 256 00 0 16 043504
043037 263 17 0 00 000000
SRSTCR: MOVSI
XCT
XCT
RTN
(RHSTCR)
.DATO(CNTRL)
.DATKCNTRL)
get register
do DATAO
do OATAI
return
• ffi,********************* **********************************************
':* SRSBAR - Read the secondary block address register
.0t***ii***************************************************************
043040 205 00 0 00 700000
043041 256 00 0 16 043467
043042 256 00 0 16 043504
043043 263 17 0 00 000000
SRSBAR: MOVSI
XCT
XCT
RTN
(RHSBAR)
.DATO(CNTRL)
.DATKCNTRL)
et register
0 DATAO
do DATAI
return
SFQ 0308
DFSXA DECSYSTEM KLiO CHANNEL/DTF20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 211
iCrrCTu M*r la-L.I-QC 11././. HACCQIK DPUirP mMMANF)^
SEQ 0321
SEQ 0308
j
DFSXA
DFSXAM
10005
10006
10007
10008
10009
10010
10011
10012
10013
10014
10015
10016
10017
10018
10019
10020
10021
10022
10023
1002A
10025
10026
10027
10028
10029
10030
10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10041
10042
10043
10044
10045
10046
10047
10048
10049
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 211
MAC 29-Jut-85 11:44 MASSBUS DEVICE COMMANDS
SUBTTL MASSBUS DEVICE COMMANDS
•#****♦**♦***************♦♦*******************************************
;* $UCR - Write control register - Register 00
)#***********»****♦**********************************♦********♦*******
SEQ 0321
043044
043045
043046
043047
043050
043051
043052
043053
043054
261 17
505 00
256 00
201 00
256 00
254
201
256 00
254 00
00
00
0 00 000000
0 15 004000
0 16 043467
0 00 010000
0 16 043553
0 00 067644
0 00 004400
0 16 043570
0 00 067646
043055
043056
043057
043060
043061
043062
043063
043064
C43065
261 17 0
505 00 0
256 00 0
201 00 0
256 00
254 00
201 00
256 00
254 00
00 000000
15 024000
16 043467
00 010000
16 043553
00 067644
00 004400
16 043570
00 067646
043066
261 17 0 00 000000
043067
505 00 0 15 034000
043070
256 00 0 16 043467
043071
201 00 0 00 010000
043072
256 00 0 16 043553
043073
254 00 0 00 067644
043074
201 00 0 00 004400
043075
256 00 0 16 043570
043076
254 00 0 00 067646
$UCR: PUT , ^
HRLI DR.CR+LDBIT(DEV)
XCT .DATO(CNTRL)
MOVEI DRESSER
.CONSO
SKPRST
MOVEI RAECLR+MBE
.CONO
RST
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
)fes - get RAE clear bits
issue
error exit
•#******»***♦***•**♦**************************************************
;* $yER1 - Write error register - Register 02
.ffnttmiii************** ************************************************
SWERI: PUT ; save ACO ^ • ^^
■ --- setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
)fes - get RAE clear bits
issue
error" exit
•#***»♦***********»*******♦*****************♦**♦**********************
;* $WMR - Write maintenance register - Register #3
.01,1,1,*****************************************************************
PUT
HRLI
DR.ER1+LDBIT(DEV)
XCT
.DATO(CNTRL)
MOVEI
DRESSER
.CONSO
SKPRST
MOVEI
RAECLR+MBE
.CONO
RST
-
$WMR:
PUT
HRLI
DR.MR+LDBIT(DEV)
XCT
.DATO(CNTRL)
MOVEI
DRESSER
.CONSO
SKPRST
MOVEI
RAECLR+MBE
.CONO
RST
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
)fes - get RAE clear bits
issue
error exit
<?FQ 0^09
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7
M.r -in_i..i_oc 11. /i. MAccQiic ncurrF rnMMANn<;
MACRO X538(1242) 14:07 21-Aug-85 Page 212
SEQ 0322
SEO 0309
DFSXA
DFSXAM
10050
i 10051
! 10052
10053
1005A
10055
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065
10066
10067
10068
10069
10070
10071
10072
10073
10074
10075
10076
10077
10078
10079
10080
10081
10082
10083
10084
10085
10086
10087
10088
10089
10090
1009:
10092
10093
DECSYSTEW KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2538(1242) 14:07 21-Aug-85 Page 212
MAC 29-JUL-85 11:44 MASSBUS DEVICE COMMANDS
/>♦»*»•»»♦»»****•***»**♦♦♦*****♦*******•************•****♦************
* $WAS - Write attention summary - Register #4
0i,til1l1t1i**1i************ **************************** *******************
SEQ 0322
043077
043100
043101
043102
043103
043104
043105
043106
043107
261 17
505 00
256 00
201 00
256 00
254 00
201 00
256 00
254 00
043110
043111
043112
043113
043114
04311S
045116
045117
043120
261 17
505 00
256 00
201 00
256 00
254 00
201 00
256 00
254 00
043121
261 17
043122
505 00
043123
256 00
043124
201 00
043125
256 00
043126
254 00
043127
201 00
043130
256 00
043131
254 00
00
15
16
00
16
00
00
16
00
000000
044000
043467
010000
043553
067644
004400
043570
067646
00 000000
15 054000
0 16 043467
0 00 010000
16 043553
00 067644
00 004400
16 043570
0
0
0
0
0 00 067646
0 00 oorooo
0 15 IKCOO
0 16 043467
0 00 CI 0000
0 16 043553
0 00 067644
0 00 004400
0 16 043570
0 00 067646
$UAS:
PUT
HRLI
XCT
KOVEi
.CONSO
SKPRST
MOVE]
.CONO
RST
DR.AS+LDBIT(DEV)
.DATO(CNTRL)
DRESSER
RAECLR+MBE
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
issue
error exit
ffttl,** *;***** ******************************************** *************
* $UFC - Write frame counter/desired address register - Register #5
f(mn,****ii*** *********************************************************
$WFC:
PUT
HRLI
DR.FC*iDBir(DEV)
y.a
.DATO(CNTRL)
MOVtl
DRESSER
.CONSO
SKPRS5
MOVE I
RAECLR+MBE
.*.0N0
RST
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
issue
error exit
»»*•»*♦***»••♦»*♦****♦♦♦♦**♦•*
#10
• $WTC - Write tape control/error register #2 - Register #
iljf»**A*********i
*********
***********
$yTC;
PUT
HRLI
DR.TC*LDBIT(DEV)
XCT
.DATO(CNTRL)
MOVE I
DRESSER
.CONSO
SKPRST
MOVE I
RAECLR+MBE
.CONO
RST
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
issue
error exit
SFQ 0310
I
I
DFSXA
ncc V Ak
DECSYSTEM KL10 CHANNEL/DTE20 INTCRACTION TEST - VER OJ MACRO 25380242) 14:07 21-Aug-85 Page 213
MAT DQ-h.:-A«; ^^■LL •ia';«;rm<' DFvifF COMMANDS
SEQ 0323
r
SEC 0310
DFSXA
DFSXAM
1009A
10095
10096
10097
10098
10099
10100
10101
10102
10103
1010A
10105
10106
10107
10108
10109
10110
10111
10112
1011:5
101U
10115
10116
10117
10118
10''^9
10120
10121
10122
10123
10124
10125
10126
10127
10128
10129
10130
10131
10132
10133
1013A
10135
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JuL-85 11:4A
INTERACTION TEST
MASSBUS DEVICE
0A3132
0A3133
043134
043135
043136
043137
043(40
043141
043142
043143
043144
043145
043146
043147
043150
043151
C43152
043153
043154
043155
043156
043157
043160
043161
043162
043163
043164
17
00
261
505
256 00
201 00
256 00
254 00
201 00
256 00
254 00
261 17
505 00
256 00
201 00
256 00
254 00
201 00
256 00
254 00
00
15
16
00
16
00
00
16
00
00
15
:6
00
16
00
00
16
00
261 17
505 GO
256 00
201 "'
256 00
254 00
201 00
256 00
254 00
000000
114000
043467
01 0000
Oh3553
067644
004400
043570
067646
000000
124000
043467
010000
C43553
067644
004400
043570
067646
00 0
0 00 000000
0 15 154000
0 16 043467
. 00 010000
0 16 043553
0 00 067644
0 00 004400
0 16 043570
0 00 067646
■ VER 0.7
COMMANDS
MAC«0 X538(1242) 14:07 21-Aug-85 Page 213
SEQ 0323
• ^♦i>*«***«**i»*«******** ***»♦**'<'*****♦«*■'■***"**'******•**• ***************
;* $WOFF - Write offset register - Register #11 .......
•/^***inr*»*** *****«******♦♦**•»♦**•**»*«*#*••** ************************
JWOFF: PUT
HRLI
XCT
MOVE!
.CONSO
SKPRSr
move:
.CONO
RST
DR.OFf -^LDBiTtDEV)
.DATO(CNTRL)
DRESSER
RAECLR^MBE
sawe ACO
setup r'iig address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
i'^?ue
tiror exit
.#***********•***•**»*****♦****♦»-»************************************
:* $WDC - Write desired cylinder register - Register #12
• #****•»»******»■*******«♦*«******•*******'»•****************♦***********
;dc;
PUT
HRLI
XCT
i'lOVE I
.CONSO
SKPRST
MOVE I
• CONO
RST
DR.DCy+LDBIT(DEV)
,DATO(CNTRL)
DRESSER
RAECLR+MBE
save ACO
setup reg address + device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
issue
error exit
•#*!*•****»»*♦»***♦****•*♦**♦****•*«*♦*»*************♦***************•**
;* $WER3 - Write error register 3 •• Register #15
•#**»*««*********'V*********************"**«*************^* ************
$WER3:
PUT
HRLI
XCT
HOVE I
.CONSO
SKPRST
MOVEi
.CONO
RST
DR.ER3<lDBIT(DEV)
.DATO(CNTRL)
DRESSER
RAECLR+MBE
save ACO
setup reg address * device address
write the register
get drive response error bit
drive errored?
no - normal exit
yes - get RAE clear bits
issue
error exit
SEQ 0311
OFGXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 214
KtcCXi. tiir oQ_i, .!-««; 11-^.^. »ia<;<;rii^ dfvicf commands
SEQ 0324
SEQ 0311
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:44
10136
10137
10138
10139
101A0
10U1 043165 505 00 0
10142 043166 256 00 0
10143 043167 256 00 0
10144 043170 603 00 0
10145 043171 254 00 0
10146 043172 261 17 0
10147 043173 201 00 0
10148 043174 256 00 0
10149 043175 262 17 0
10150 043176 263 17 0
10151
10152
10153
10154
10155
10156
10157 043177 505 00 0
10158 043200 256 00 0
10159 043201 256 00 0
10160 043202 603 00 0
10161 043203 254 00
10162 043204 261 17
10163 043205 201 00
10164 043206 256 00
10165 043207 26? 17
10166 043210 2o< 17
10167
10168
10169
10170
10171
10172
10173 043211 505 00
10174 043212 256 00
10175 043213 256 00
10176 043214 603 00
10177 043215 254 00
10178 043216 261 17
10179 043217 201 00
10180 043220 256 00
10181 043221 262 U
10182 043222 263 17
INTERACTION TEST - VER 0,7
MASSBUS DEVICE COMMANDS
MACRO :53B(1242) 14:07 21-Aug-85 Page 214
SEQ 0324
15 000000 $
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
15 010000 1
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
0 15 020000
0 16 043467
0 16 043504
0 00 000200
0 00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
.._ J
glUtimtiiiili*****:**^ ******************************************* *********
* $RCR - Read control register - Register #0 ........*
01,1,******************************************************************
$RCR;
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.CR(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+HBE
generate register & device address
select the register
read the register
bailed? . ^ , . ,
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
01,1,1,1,1,1,1,1,1,1,1,1,********************************************************
* $RDS - Read status register - Register #1
01,1,1,*****************************************************************
$RDS: HRLI DR.SR(DEV)
XCT .DATO(CNTRL)
XCT .DATKCNTRL)
TLNE (TRA)
SKPHLF
PUT
MOVEI RAECLR+MBE
.CONO
GET
RTN
generate register S device address
select the register
read the register
failed? ^ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
f****»»****** ******************************* *************************
* SRERI - Read error register 1 - Register #2
/>*»♦»♦*»***♦•»******♦*•***********************************************
$RER1
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVEI
.CONO
GET
RTN
DR.ERKDEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register i device address
select the register
read the register
failed?
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
SEQ 0312
DFSXA
nccvAM
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 215
MAr PO-ImI-R'? ^^'.U MASSBUS device COMMANDS
SEQ 0325
SEQ 0312
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7
DFSXAM MAC 29-JuL-85 11:A4 MASSBUS DEVICE COMMANDS
0,7 MACRO :53B(i2A2) K:07 21-Aug-85 Page 215
SEQ 0325
10183
10184
10185
10186
10187
10188
10189
10190
10191
10192
10193
1019A
10195
10196
10197
10198
10199
10200
10201
10202
10203
10204
10205
10206
10207
10208
10209
10210
10211
10212
10213
10214
10215
10216
10217
10218
10219
10220
10221
10222
10223
10224
10225
10226
10227
10228
10229
043223
505 00 0
043224
256 00 0
043225
256 00 0
043226
603 00 0
043227
254 00 0
043230
261 17 0
043231
201 00 0
043232
256 00 0
043233
262 17 0
043234
263 17 0
15 030000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
043235
043236
043237
043240
043241
043242
043243
043244
043245
043246
505 00 0
256 00 0
256 00
603 00
254 00
261
201
17
00
256 00
26? 17
2o< 17
15 040000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
043247
505 00 0
043250
256 00 0
043251
256 00 0
043252
603 00 0
043253
254 00 0
043254
261 17 0
043255
201 00 0
043256
256 00 0
043257
262 17 0
043260
263 17 0
15 050000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
•#****•*• t **♦«**♦♦******♦♦*♦♦****♦♦************* **********************
;* $RMT - Read maintenance register - Register #3
•#****•******•**•*****************************************************
$RMT:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTW
DR.MR(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register I device address
select the register
read the register
failed? „ . ^
no - skip return with ACO right
say/e ACO
clear possible error state
do it
restore ACO
error return
•#*****•*****»*******♦************************************************
;* $RAS - Read attention sunmary register - Register #4
'#************♦*********♦♦********************************************
$RAS:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.AS(DEV)
,DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register S device address
select the register
read the register
failed? „ . ,
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
•#***»♦**••***************♦*******************************************
;* $RFC - Read frame counter/desired address - Register #5
./^** ******************************************************************
$RFC:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.FC(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? „ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
r
DFSXA
DFSXAM
10230
10231
10232
10233
1023A
10235
10236
10237
10238
10239
10240
102A1
102A2
10243
10244
10245
10246
10247
10248
10249
10250
10251
10252
10253
10254
10255
10256
10257
10258
10259
10260
10261
10262
10263
10264
10265
10266
10267
10268
10269
10270
10271
10272
10273
10274
10275
10276
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 216
MAC 29-Jul-85 11:44 MASS8US DEVICE COMMANDS
/y***»************************** ******************* *******************
* $RTC - Read tape control ^^^^^^^
/^•**************************************** ***************************
SEQ 0326
DF
Df
043261
043262
043263
043264
043265
043266
043267
043270
043271
043272
043273
043274
043275
043276
043277
043300
043301
043302
043303
043304
043305
043306
043307
043310
043311
043312
043313
043314
043315
043316
505 00 0
256 00 0
256 00 0
603 00 0
254
261
201
00 0
17 0
00 0
256 00 0
262 17 0
263 17 0
15
16
16
00
00
00
00
16
00
00
110000
043467
043504
000200
067642
000000
004400
043570
000000
000000
505 00
256 00
256 00 0
603 00 0
254 00
261 17
201 00
256 00
262 17
2o< 17
15 070000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
505 00 0
256
00
0
256
00
0
603
00
0
254
00
0
261
17 0
201
00
0
256 00
0
262
17 0
263 17 0
15 060000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
$RTC;
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.TC(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register i device address
select the register
read the register
failed? ^ „ . ,
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
#******•*************************************************************
* $RCK - Read check character
/^********************** **********************************************
$RCK:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.LA(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? . ^ „ . ,
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
;#********************************************************************
;* $RDT - Read drive type register - Register #6
;#********************************************************************
$RDT:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.DT(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? „ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 217
or 1 1
SEQ 0327
D
n
L
DFSXA
DFSXAM
10277
10278
10279
10280
10281
10282
10283
10284
10285
10286
10287
10288
10289
10290
10291
10292
10293
1029A
10295
10296
10297
10298
10299
10300
10301
10302
10305
10304
10305
10306
10307
10308
10309
10310
10311
10312
10313
10314
10315
10316
10317
10318
10319
10320
10321
10322
10323
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 217
MAC 29-JUL-85 11:44 MASSBUS DEVICE COMMANDS
#*********************♦**♦*******************************************
* $RLA - Read Look ahead register - Register #7 ..........***
#***************************•****************************************
SEQ 0327
Dl
Dl
043317
043320
043321
043322
043323
043324
043325
043326
043327
043330
043331
043332
043333
043334
043335
043336
043337
043340
043341
043342
043343
043344
043345
043346
043347
043350
043351
043352
043353
043354
505 00 0
256 00 0
256 00 0
603 00 0
254 00 0
261 17
201 00
256 00
262 17
263 17
15 070000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
505 00
256 00
256 00
603 00
254 00
261 17
201 00
256 00
26? 17
2o< 17
0 15 140000
0 16 043467
0 16 043504
0 00 000200
0 00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
505 00
256 00
256 00
603 00
254 00
261 17
201 00
256 00
262 17
263 17
15 110000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
SRLA:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONG
GET
RTN
DR.LA(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? ^ « . .
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
;* $RER2 - Read error register 2 - Register #10
$RER2:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONG
GET
RTN
DR.ER2(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? . ^ ^ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
;* $ROFF - Read offset register - Register #11
]ffl,1,*if ****************************************************************
SROFF: HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.OFF(DFV)
.DAlG(CNfRL)
• DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? „ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
L
r"
DFSXA
■^r/*w*u ut/*
OECSySTE5„KL10_SHANNEL/OTE20 INTEJACTIONJEST^-^VER^O^/ MACRO X538(12«2) K:07 21-Aug-85 Pag, 218
SEQ 0328
EQ 0315
r
DFSXA
DFSXAM
1032A
10325
10326
10327
10328
10329
10330
10331
10332
10333
10334
10335
10336
10337
10338
10339
103A0
103A1
103A2
103A3
103AA
103A5
103A6
10347
103A8
103A9
103;0
10351
10352
10353
1035A
10355
10356
10357
10358
10359
10360
10361
10362
10363
1036A
10365
10366
10367
10368
10369
10370
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 218
MAC 29-JUI-85 11:44 MASSBUS DEVICE COMMANDS
.#t •♦»*••*******»****♦♦♦♦♦***♦**♦♦*******♦*•♦***♦************** *******
;* $RDC - Read desired cylinder register - Register #12
.^********************************************************************
SEQ 0328
D
D
043355
043356
043357
043360
043361
043362
043363
043364
043365
043366
043367
043370
043371
043372
04337!
043374
043375
043376
043377
043400
043401
043402
043403
043404
043405
043406
043407
043410
043411
043412
505
256
256
603
254
261
201
256
262
263
00 0 15 120000
00 0 16 043467
00 0 16 043504
00 0 00 000200
00 0 00 067642
17 0 00 000000
00 0 00 004400
00 0 16 043570
17 0 00 000000
17 0 00 000000
505 00 0
256 00 0
256 00 0
603 00 0
254 00 0
' 1? '
261
201 00
256 00
26? 17 0
<o< 17 0
15 130000
16 043467
16 043504
00 000200
00 067642
00 000000
00 0C4400
16 04357'^
00 000000
00 000000
505 0(
256 OC
256 00
603 00
254 00
261 17
201 00
256 00
262 17
263 17
15
16
16
00
00
00
00
16
00
00
100000
043467
043504
000200
067642
000000
004400
043570
000000
000000
$RDC:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.DCY(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register K device address
select the register
read the register
failed? . „ . ,
no - skip return with ACO right
save ACO
clear possible error state
do it
rejtore ACO
error return
• ft, *••♦*♦****♦*♦*♦**♦♦♦* t**** *•♦♦•**♦♦•**♦*♦♦*♦*♦**•*♦♦** *************
;* $RCC - Read current cylinder register - Register #13
.#♦****•*******»****»***♦♦♦••***•*****•*******************************
$RCC:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONG
GET
RTN
DR.CCY(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(T )
RAECLR+MBE
generate register & device address
select the register
read the register
failed? ^ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
, »**«*♦«*****♦♦******♦♦♦♦♦**♦******♦*******************•*************
* $RSN - Read serial # register - Register #14
•#***************♦*****♦♦********•*••*********************************
$RSN:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONG
GET
RTN
DR.SN(DEV)
.DATO(CNTRL)
.P-vTKCNTRL)
ClrtA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? „ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
SEQ 0316
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 219
""""■■ ma<:c:pik fiFuirF rnMMANDs
•JQ_ I,. I -Qc; 11 .1.1.
SEQ 0329
r
SEQ 0316
DFSXA
DFSXAM
10371
10372
10373
10374
10375
10376
10377
10378
10379
10380
10381
10382
10383
1038A
10385
10386
10387
10388
10389
10390
10391
10392
10393
1039A
10395
10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10411
10412
10413
10414
10415
10416
10417
OECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JuL-85 11:44
043413
043414
043415
043416
043417
043420
043421
043422
043423
043424
043425
043426
043427
043430
0-.3431
043432
043433
043434
043435
04^36
043437
043440
043441
043442
043443
043444
043445
043446
043447
043450
505 00
256 00
256 00
603 00
254 00
0 15
0
261
201
17
00
256 00
262 17
263 17
150000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
505 00 0
256 00 0
256 00 0
603 00
254 00 0
261 17 0
00
201
256 00
26? 17
2o< ~
0
0
0
17 0
15 160000
16 043467
16 043504
00 000200
00 067642
00 000000
00 004400
16 043570
00 000000
00 000000
505
00
0 15
256
00
0 16
256
00
0 16
603
00
0 00
254
00
0 00
261
17 0 00
201
00 0 00
256 00
0 16
262
17 0 00
263
17
0 00
170000
043467
043504
000200
067642
000000
004400
043570
000000
000000
INTERACTION TEST - VER 0,7 MACRO 1538(1242) 14:07 21-Aug-85 Page 219
MASSBUS DEVICE COMMANDS
#***«»**»**»**»*******t ♦♦*♦****♦*•»***♦**♦**•♦•••**♦•••***» **********
* $RER3 - Read error register 3 - Register #15
#*♦**♦**♦*♦***♦****♦•*♦♦»♦♦*****************•••**********************
SEQ 0329
$RER3:
HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.ER3(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? ^ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
#»♦♦*»*****»»♦*****♦»♦♦ t*»»t*»****»*»******»*************************
• SRECI - Read ECC position - Register #16
#»*#♦♦•*•**♦•***•**•*♦♦♦•*•*******♦**********************************
SRECI
HRLI
XCT
XCT
TLNE
StCPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.ECKDEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
bailed? „ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
ft *•****♦*♦***»*****♦*♦**♦*********** ********************************
* $REC2 - Read ECC pattern - Register #17
f *♦♦*♦**♦**♦*♦♦*»***♦ ♦♦♦♦t •♦♦**»»***»*****«»****♦********************
$REC2: HRLI
XCT
XCT
TLNE
SKPHLF
PUT
MOVE I
.CONO
GET
RTN
DR.EC2(DEV)
.DATO(CNTRL)
.DATKCNTRL)
(TRA)
RAECLR+MBE
generate register & device address
select the register
read the register
failed? ^ . ^
no - skip return with ACO right
save ACO
clear possible error state
do it
restore ACO
error return
SEQ 0317
DFSXA
rvccv&M
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 220
MAT 50-1,.1-R'? ^^^LL MASSBUS DEVICE COMMANDS
SEQ 0330
r
SEQ 0317
DFSXA
DFSXAM
10A1S
10A19
10A20
10A21
10A22
10A23
1042A
10A25
10A26
10427
10A28
10A29
10A30
10431
10432
10433
10434
10435
10436
10437
10438
10439
10440
10441
10442
10443
10444
10445
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO J;53B(1242) 14;07 21-Aug-85 Page 220
MAC 29-Jul-85 11:44 MASSBUS DEVICE COMMANDS
f***« ******* ************************* ************************
* RDLAR - Read LAR
SEQ 0330
043451
043452
043453
043454
043455
043456
043457
043460
043461
043462
043463
043464
043465
201 00 0 00 040000
256 00 0 16 043570
256 00 0 16 043504
135 00 0 00 073207
263 17 0 00 000000
2o' 17
400 00
256 00
262 17
242 '
661
00
00
256 00
263 17
0 00 000000
0 00 000000
0 16 043570
0 00 000000
0 00 000026
0 00 400000
0 16 043467
0 00 000000
The data is returned righ.t justified in ACQ:
Bits 23-34 - CRAM Address
35 - 0 - Left half of CRAM word
1 - Right half of CRAM word
4f*********************************** *************************
SRDLAR: MOVEI SELLAR
LDCSR
.DATAI
LDB [POINT 13,0.13]
RTN
get 'select LAR' bit
write to CSR register
do the DATAI
position correctly
return
#**************♦*******♦♦♦***********************************
* LDRAR - Load RAR
This assumes that 'Diag Test EBUF' bit is not set in CSR, so a DATAO
loads the RAR). The sign bit set in the data specified in the DATAO
causes the RAR to be loaded instead of the CRAM.
Data to load is in AC1 : Bits 23-34 - CRAM Address
35 - 0 - Left half of CRAM word
1 - Right half of CRAM word
f ********************************************* ***************
SLDRAR: PUT
SETZ
LDCSR
GET
LSH
TLO
.DATAO
RTN
0
0
*D22
400000
save address
clear 'select LAR' bit
write ♦lo CSR register
restore address
position data correctly
set sign bit
do the DATAO
SEQ 0318
DFSXA
nCCVAM
DECSYSTEM KLiO CHANNEL/DTE2G INTERACTION TEST - VER 0,7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 221
MAT 5Q-iiil-R«; 11 .^^ MAfiSRlJS DEVICE COMMANDS
SEQ 0331
SEQ 0318
DFSXA
OFSXAM
10A56
10A57
10A58
10459
10460
10A61
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10485
10486
10487
10488
10489
10490
10491
10492
DECSYSTEM KLiO CHANNEL/DTE2C INTERACTION TEST - VER 0.7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 221
MAC 29-Jul-85 11:44 MASSBUS DEVICE COMMANDS
•#***«*****************♦*♦**♦*****************************************
'•* .DATO - Table of DATAO's
)#*********************♦♦*****♦****************************•**********
SEQ 0331
043466
043467
043470
043471
043472
043473
043474
043475
043476
043477
043500
043501
043502
043503
043504
043505
043506
043507
043510
043511
043512
043513
043514
043515
043516
043517
043520
254 00 0
7 540 14
544 14
550 14
554 14
560 14
564 14
570 14
574 14
200 14
204 14
210 14
214 14
00 043645
0 00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
- 00 000000
0 00 000000
0 00 000000
00 000000
00 000000
0
0
254 00 0 00 043645
7
7
7
7
7
7
7
7
7
7
7
7
540 04
544 04
550 04
554 04
560 04
564 04
-70 04
574 04
200 04
204 04
210 04
214 04
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
0 00 000000
254 00 0 00 043645
.DATO:
JRST
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
DATAO
JRST
TBLERR
RHO,
RH1,
RH2,
RH3,
RH4,
RH5,
RH6,
RH7,
DTO,
DTI,
0T2,
DT3,
TBLERR
here on index error
DATAO to RHO
DATAO to RH1
DATAO to RH2
DATAO to RH3
write to DTE *0
write to DTE ff^
write to DTE *2
write to DTE #3
here on index error
•/>**********************♦*********************************************
;* .DATI - Table of DATAI's
•#*********************♦*********************************•************
.DATI: DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
DATAI
JRST
RHO,
RH1,
RH2.
RH3.
RH4,
RH5,
RH6,
RH7,
DTO,
DTI.
DT2,
DT3.
TBLERR
read from DTE #0
read from DTE #1
read from DTE #2
read from DTE #3
here on index error
SEQ 0319
DFSXA
nFf;yAM
OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 222
MAC 29-JuL-85 11:44 MASSBUS DEVICE COMMANDS
SEQ 0332
SEQ 0319
OFSXA DECSYSTEM KLlO CHANNEL/DTE20
DFSXAM MAC 29-JuL-85 11:A4
10A93
10A94
10A95
10A96
10497
10498 043521 7 540 24
10499 043522 7 544 24
10500 043523 7 550 24
10501 043524 7 554 24
10502 043525 7 560 24
10503 043526 7 564 24
10504 043527 7 570 24
10505 043530 7 574 24
10506 043531 7 200 24
10507 043532 7 204 24
10508 043533 7 210 24
10509 043534 7 214 24
10510 043535
10511
10512
10513
10514
10515
10516 043536 7 540 30
10517 043537 7 544 30
10518 04354C 7 550 30
10519 043541 7 554 30
10520 043542 7 560 30
10521 043543 7 564 30
10522 043544 7 570 30
10523 043545 7 ?74 30
10524 043546 7 200 30
10525 043547 7 204 30
10526 043550 7 210 30
10527 043551 7 214 30
10528 043552 254 00 0
INTERACTION TEST
MASSBUS DEVICE
■ VER 0,7
COMMANDS
MACRO X53B(1242) 14:07 21-Aug-85 Page 222
SEQ 0332
/>*****•*****•********•*****•*****************************************
* .CNI - Table of CONI's
/J********************* ***********************************************
0 00 000000
0 00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
,CNI:
254 00 0 00 043645
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
1 00 000000
00 043645
CONI
CONI
CONI
CONI
CONI
CONI
CONI
CONI
CONI
CONI
CONI
CONI
JRST
RHO.
RH1,
RH2.
RH3,
RH4,
RH5,
RH6,
RH7,
DTO,
DTI,
DT2,
DT3,
TBLERR
; here on index error
#**»*****************************************************************
* .CNSZ - Table of CONSZ's
#***********•************♦*******************************************
.CNSZ: CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
CONSZ
JRST
RHO,aO
RHi.aO
RH2,aO
RH3,S0
RH4,aO
RH5,aO
RH6,aO
RH7,aO
DTO,aO
DTI.aO
DT2,aO
DT3,aO
TBLERR
; E field in ACO
SEQ 0320
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERAHION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 223
nFfiXAM MAC ?9-Jul-85 11:44 MASSBUS DEVICE COMMANDS
SEQ 0333
SEQ 0320
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page ?:^3
DFSXAM MAC 29-Jul-85 11:44 MASSBUS DEVICE COMMANDS
SEQ 0333
10529
10530
10531
10532
10533
10534
10535
10536
10537
10538
10539
10540
10541
10542
10543
10544
10545
10546
10547
10548
10549
10550
10551
10552
10553
10554
10555
10556
10557
10558
10559
10560
10561
10562
10563
10564
043553
043554
043555
043556
043557
043560
043561
043562
043563
043564
043565
043566
043567
043570
043571
043572
04357?
043574
043575
043576
043577
043600
043601
043602
043603
043604
540 34
544 34
550 34
554 34
560 34
564 34
570 34
574 34
200 34
204 34
210 34
214 34
254 00 0
7
7
7
7
7
7
7
7
7
7
7
7
.ff 1,1,1, t*** ****************** *******************************************
':* .CNSO - Table of CONSO's
•#♦♦******♦♦*****»*****♦****************•*****************************
540 20
544 20
550 20
554 20
560 20
564 20
570 20
.-74 20
200 20
204 20
210 20
214 20
254 00 0
1 00 000000
.CNSO: CONSO
RHO.aO
1 00 000000
CONSO
RHi.ao
1 00 000000
CONSO
RH2,aO
1 00 000000
CONSO
RH3,aO
1 00 000000
CONSO
RH4.aO
1 00 000000
CONSO
RH5,aO
1 00 000000
CONSO
RH6,aO
1 00 000000
CONSO
RH7,aO
1 00 000000
CONSO
DTO.aO
1 00 000000
CONSO
DTI.aO
1 00 000000
CONSO
DT2,aO
1 00 000000
CONSO
DT3,aO
00 043645
JRST
TBLERR
•^************»*******'
;* .CNO - Table
of CON(
• If********************
1 00 000000
.CNO: CONO
RHO,aO
1 00 oooooc
CONO
RHl,aO
1 00 000000
CONO
RH2,aO
1 00 oooooc
CONO
RH3,aO
1 00 oooooc
CONO
RH4,aO
1 00 oooooc
CONO
RH5.aO
1 00 oooooc
CONO
RH6,aO
1 00 oooooc
CONO
RH7.aO
1 00 000000
CONO
DTO.aO
1 00 oooooc
CONO
DTl,aO
1 00 oooooc
CONO
DT2,aO
1 00 oooooc
CONO
DT3,aO
TBLERR
00 043645
JRST
; here on index error
; here on index error
SEQ 0321
DFSXA
DFSXAM
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 224
MAC 29-Jul-85 11:44 MASSBUS DEVICE COMMANDS
SEQ 0334
SEQ 0321
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) K:07 21-Aug-85 Page 22^^
DFSXAM MAC 29-Jul-85 11:AA MASSBUS DEVICE COMMANDS
SEQ 0334
10565
10566
10567
10568
10569
10570
10571
10572
10573
10574
10575
10576
10577
10578
10579
10580
10581
10582
10583
•/>***«*♦♦»***♦*********♦**♦•♦**♦************♦*************************
'■* INTSRV - Table of Interrupt service instructions
•f ****♦***♦»*******»•** t **********************************************
043605
043606
043607
043610
043611
043612
043613
043614
043615
043616
043617
043620
264 00
264 00
264 00
264 00
264 00
264 00
264 00
264 00
0 00 032262
0 00 032270
0 00 032276
0 00 032304
0 00 032312
0 00 032320
0 00 032326
0 00 032334
264 00 0 00 066173
264 00 0 00 066201
264 00 0 00 066207
264 00 0 00 066215
INTSRV: JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
INTRHO
INTRH1
INTRH2
INTRH3
INTRH4
INTRH5
INTRH6
INTRH7
INTF10
INTF11
INTF12
INTF13
; linkage for RHO
; DTE 20
SEQ 0322
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 225
r\ccvAM MAT 30. i..i.R>; ^\^^LL PROfiRAM HALTING ROUTINE
SEQ 0335
r
SEQ 0322
DFSXA
DFSXAM
1058A
10585
10586
10587
10588
10589
10590
10591
10592
10593
10594
10595
10596
10597
10598
10599
10600
10601
10602
10603
1060A
10605
10606
10607
10608
DECSYSTEM KLIO
MAC 29-JuL
CHANNEL/DTE20
-85 11:44
INTERACTION TEST - VER 0,7 MACRO 3:536(1242) 14:07 21-Aug-85 Page 225
PROGRAM HALTING ROUTINE
SUBTTL PROGRAM HALTING ROUTINE
#**»*»•*♦******♦•*♦**♦*♦♦♦ t* «*•♦•**•*•********♦*♦♦***♦ ♦*♦*♦**♦**♦****
* PR6HLT - Program halt routine ^^^x*****
0i,t1,ii***1i*iH> **************************************** *****************
SEQ 0335
043621 515 16 0 00 777764
043622
043623
043624
043625
043626
043627
043631
043632
043633
043634
043635
700 05
202 00
700 15
202 00
700 10
202 00
0 00 OOOQOQ
0 00 044347
0 00 000000
0 00 044350
0 00 000000
0 00 044351
043630 700 04 0 00 027760
256 00
202 00
253 16
700 04
254 00
0 16 043521
0 16 044352
0 00 043631
0 00 200000
0 00 030007
PRGHLT: HRLZI
CPCNI
MOVEM
PICNI
MOVEM
HBERA
HOVEM
CLFLGS
.CONI
MOVEM
AOBJN
RSET
JRST
CNTRL,-14
ERSTCK
ERSTCK+1
ERSTCK+2
ERSTCK*3(CNTRL)
CNTRL,.-2
S.-TDDT
init controller index
get CPU status
save it
get PI status
save it
get M-BOX error flags
save the")
clear E-BOX flags
do controller CONI
save it
get all of them
reset APR
halt program
SEQ 0323
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER OJ MACRO j;53B(1242) 14:07 21-Aug-85 Page 226
DFSXAM MAC 29-Jul-85 11:44 PROGRAM HALTING ROUTINE
SEQ 0336
SEQ 0323
DFSXA,
OFSXAM
10609
10610
10611
10612
10613
1061A
10615
10616
, 10617
10618
10619
I 10620
10621
10622
I 10623
1062A
1 10625
t 10626
! 10627
10628
10629
10630
10631
10632
10633
1063A
10635
10636
10637
10638
10639
10640
10641
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(12A2) 14:07 21-Aug-85 Page 226
MAC 29-Jul-85 11:44 PROGRAM HALTING ROUTINE
.fftntn ***************************** **^************************ ********
':* STCKER - Stack error (ERSTCK)
.0********* *********************************** ************************
043636 OV 01 0 00 073210 STCKER: FMS6CD <ERR0R MESSAGE STACK (ERSTCK) HAS INCORRECTLY FORMATTED MESSAGE. >
043637 505 01 0 CO 777770 HRLI B,-10 ^ .
043640 200 00 0 01 000000 HOVE (B) ; get item
043641 037 13 0 00 000001 PNTHWF
043642 037 01 0 00 030242 PCRLF
043643 253 01 0 00 043640 AOBJN B,.-3
043644 254 00 0 00 043672 JRST ERABRT
.Urn,******************************************************************
';* TBLERR - Table error - bad index
.#••*»******»***»******♦♦♦********♦**************♦********************
SEQ 0336
043645
043646
043647
043650
043651
037 01 0 00 073226
200 00 0 00 000016
037 06 0 00 000001
037 01 0 00 030242
254 00 0 00 043672
043652
043653
043654
043655
043656
TBLERR: FMSG
<TA6LE ERROR-
INDEX=>
MOVE
CNTRL
PNT6F
PCRLF
JRST
ERABRT
; exit
•#*♦**♦•»*****♦♦♦•»***♦♦♦*♦*♦♦»*•»****»**********•******♦***♦*********
;• RDEVER - Read erro-" from drive
.0********************** ***************************** *****************
; save ACO
; return with save ACO
261 17 0 00 000000
RDEVER: PUT
A
037 00 0 00 000074
PNTCI
"<"
Gi' 00 0 00 072306
TMSG
<READ ERR0R>
037 00 0 00 000076
>Ni:i
25<. 00 0 00 067646
RST
SEQ 0324
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST ; VER 0.7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 227
DFSXAM MAC 29-Jul-85 11 :44 PROGRAM HALTING ROUTINE
SEQ 0337
SEO 0324
DFSXA
DFSXAM
10642
106A3
106A;
106A5
106A6
106A7
106A8
106A9
10650
10651
10652
10653
1065A
10655
10656
10657
10658
10659
10660
10661
10662
10663
1066A
10665
10666
10667
10668
10669
10670
10671
10672
10673
1067A
10675
10676
10677
10678
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JuL-85 11:AA
INTERACTION TEST - VER 0.7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 221
PROGRAM HALTING ROUTINE
* MAPERR - MEMSEG error
SEQ 0337
0A3657 202
0A3660 037
0A3661 200
0A3662 037
0A3663 037
0A366A 25A
00 0 00 000005
01 0 00 073232
00 0 00 000006
13 0 00 000001
01 0 00 0302A2
00 0 00 0A3672
0A3665 037 01 0 00 073237
0A3666 200 00 0 00 000006
0A3o67 037 13 0 00 000001
0A3670 037 01 0 00 0302A2
0A3671 25A 00 0 00 0A3672
0A3672 200
0A3673 037
0A367A 607
0A3675 25A
0A3676 037
0A3677 25A
17 0 00 075012
10 0 00 000002
00 0 00 000010
00 0 00 030630
01 0 00 0732A5
00 0 00 03633A
j
MAPERR: MOVEM BAD
FMS6C <MEMSE6 ERROR-
MOVE GOOD
PNTHUF
PCRLF
JRST ERABRT
ADR=>
; save ACO
; error abort check
#*»»***♦******♦*»•*******♦*♦••••*****•*****•****♦***•****************
♦ SIZERR - SIZER error
#•**•#••♦♦♦**♦♦***********•********♦****•************♦***************
SIZERR: FMSGC <SIZER ERROR IN SIZADR. ADR=>
MOVE GOOD
PNTHUF
PCRLF ^ ^ ,
JRST ERABRT ; error abort check
/^♦•♦****»»************* *♦*****♦****•****•*•** ************************
* ERABRT - Fatal error abort check
*
* If "OPRSEL" switch^set go to command interpreter, otherwise restart
* program at "STARTA". ^^^^^
f ♦♦****♦♦♦**•**•****•*** t*4******«************^ **********************
ERABRT: MOVE P,SAVEP
SWITCH
TLNN OPRSEL ; operator selection?
JRST STARTA -no - restart program
FMS6CD <ENTERING COMMAND INTERPRETER>
JRST STPRM1
SEQ 0325
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 228
DFSXAM MAC 29-Jul-85 11 :44 PROGRAM HALTING ROUTINE
SEQ 0338
SEQ 0325
DFSXA
DFSXAM
10679
10680
10681
10682
10683
1068A
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697
10698
10699
10700
10701
10702
10703
10704
10705
10706
10707
10708
10709
10710
10711
10712
10713
10714
OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 228
MAC 29-Jul-85 11:44 PROGRAM HALTING ROUTINE
#**•«****♦************•**********************************************
* PAGERR - Handle user mode page fail .....^. .*******
^iiiiii*******************-********* *************************************
SEQ 0338
043700
043701
043702
043703
043704
043705
043706
043707
043710
04371 1
043712
043713
043714
043715
043716
043717
043720
043721
043722
043723
043724
043725
043726
043727
043730
043731
043732
043733
043734
043735
043736
200 17 0
7 010 04
242 01 0
037 01
037 01
260 17
037 01
200 00
037 17 0
037 01 0
135 02
037 01
037 01
200 02
607 02
0
1
0
0
0
037 01 0
603 02 0
037 01
603 02
037 01
603 02
037 01
603 02
037 01
037 01
1 3? 00
037 17
037 01
200 02
135 00
037 16
00 075012
0 00 000001
00 000011
00 073254
00 073264
00 036260
00 073267
00 000001
00 000003
00 073271
00 073273
02 043773
00 073274
01 000500
00 400000
00 073276
00 400000
00 073300
00 004000
00 073302
00 002000
00 073304
00 001000
00 073306
00 073311
00 073313
00 000003
00 073314
01 000501
00 073313
00 000003
PAGERR: MOVE
OATAI
LSH
FMSGC
FMSGC
60
FMSGC
MOVE
PNTOCF
FMSGC
LDB
p,SAVEP ; restore stack pointer
PAG, 8 ; read UBR , . , . .
B *D9 ; convert to physical address
<PAGE FAIL TRAP WHILE IN USER M0DE.>
<RUNTIME: >
; pnnt time
PTIME
<UBR
B
<CQDE: >
C, [POINT 4, 500(B), 5]
PNTMSF 8PGC0DE(C)
FMSGC <FLGS: >
C, 500(B)
C.dBO)
<EXE AnR,>
C,(180)
<USER ADR,>
C.(1B6/
<PT PUB,>
C,(1B7)
<PT CACHE, >
C,(1B8)
<PA6ED REF,>
<ADR: >
[POINT 22,C,35]
MOVE
TLNN
FMSG
TLNE
FMSG
TLNE
FMSG
TLNE
FMSG
TLNE
FMSG
FMSGC
LDB
PNTOCF
FMSGC
MOVE
LDB
PNTOCS
get UBR
print it
get page fail code
print code
get page fail word
skip if user reference
skip if exec reference
skip if not public
<PC : >
C,501(B)
C^OINT 22,C,35J
print address
get PC word
print it
DFSXA
DFSXAM
10715
10716
10717
10718
10719
10720
10721
10722
10723
1072A
10725
10726
10727
10728
10729
10730
10731
10732
10733
10734
10735
10736
10737
10738
10739
107A0
10741
10742
10743
10744
10745
10746
10747
10748
10749
10750
10751
10752
10753
10754
10755
10756
10757
10758
10759
10760
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z53B(1242) 14:07 21-Aug-85 Page 229
MAC 29-Jul-85 11:44 PROGRAM HALTING ROUTINE
SEQ 0339
Dl
Dl
043737
043740
043741
043742
043743
043744
043745
043746
043747
043750
043751
043752
043753
043754
043755
043756
043757
043760
043761
043762
043763
043764
043765
043766
043767
04377C
043771
043772
043773
043774
043775
043776
043777
044000
044001
044002
044003
044004
044005
044006
044007
044010
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
603 02
037 01
254
0 00 073274
0 00 400000
0 00 073316
0 00 20Q000
0 00 073320
00 100000
00 073322
00 040000
00 073324
0 00 020000
0 00 073327
0 00 010000
0 00 073331
0 00 004000
0 00 073333
0 00 002000
0 00 073335
0 00 001000
0 00 073337
0 00 000400
0 00 073341
0 00 000200
0 00 073343
0 00 000100
0 00 073345
0 00 000040
00 073350
00 0 00 043672
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
073352
073355
073362
073365
073371
073374
073400
073403
073407
073413
073417
073421
073424
073430
FMSGC <FLGS: >
TLNE C,(1B0)
FMSG <0VRLFW,>
TLNE C,(1B1)
FMSG <CRYO.>
TLNE C.(1B2)
FMSG <CRyi,>
TLNE C,(1B3)
FMSG <FLT OVRFLW,>
TLNE C,(164)
FMSG <BYT FLG,>
TLNE C,(1B5)
FMSG <USER,>
TLNE C,(1B6)
FMSG <USER IOT,>
TLNE C,(1B7)
FMSG <PUBLIC,>
TLNE C,(1B8)
FMSG <ADR INH,>
TLNE C,(1B9)
FMSG <TRP 1.>
TLNE CdBlO)
FMSG <TRP 2,>
TLNE C,(1B11)
FMSG <FLT UNDR FLW,>
TLNE C,(1B12)
FMSG <N0 DIV>
JRST ERA6RT
; Page fail codes
PGCODE: CASCIZ/ILLEGAL CODE O/J
CASCIZ/PROPRIETARY VIOLATION/]
CASCIZ/REFILL ERROR/]
CASCIZ/ADDRESS COMPARE/]
CASCIZ/ILLEGAL WRITE/]
CASCIZ/PAGE TABLE PARITY/]
CASCIZ/AR DATA PARITY/]
CASCIZ/ARX DATA PARITY/]
CASCIZ/SECTION NO ACCESS/]
CASCIZ/MAP NOT IN CORE/]
CASCIZ/MAF AGE/]
CASCIZ/PAGE NO ACCESS/]
CASCIZ/PAGE NOT IN CORE/]
CASCIZ/PAGE AGE/]
r
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 230
MAr ?Q-ImI-RS 11:^^ CONTROL PARAMETERS
SEQ 0340
D
L_
SEQ 0327
OFSXA
DFSXAM
10761
10762
10763
1076A
10765
10766
10767
10768
10769
10770
10771
10772
10773
10774
10775
10776
10777
10778
10779
10780
10781
10782
10783
1078A
10785
10786
10787
10788
10789
10790
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 230
MAC 29-JuL-85 11:4A CONTROL PARAMETERS
SUBTTL CONTROL PARAMETERS
•#********************♦***♦*******************************************
)#*****♦**************♦***********************************************
SEQ 03AO
Df
Df
0A4011
0AA025
0A40A1
0'«A055
0AA071
0AA105
0AA121
0AA135
0AA136
0AA152
000 00 0 00 000000
0AA153
0AA167
0AA203
0AA3A7
0AA513 mm mm
0AA51A
0AA5A0 000000 000000
0AA5A1
mm mm
0505A1
0505A2
05A5A2
05A5A3
0605A3 ivm mm
mm mm
TOTURT:
TOTRD:
WRTERS:
UTRIES:
RDERS:
CHNERS:
BADDAT :
BADFLG:
BADCNT:
CONTST:
RH.DNE:
RH.ERR:
BADLST:
ERSTCK:
CMDLIN:
CMDLNX:
DATBUF :
DMYBUF ;
DEVBUF ;
BLOCK
1A
BLOCK
1A
BLOCK
1A
BLOCK
1A
BLOCK
1A
BLOCK
1A
BLOCK
U
Z
BLOCK
U
BLOCK
*D1
BLOCK
U
BLOCK
1A
BLOCK
*D100
BLOCK
-1
BLOCK
0
BLOCK
*D100
*D20
*D20A8
-1
BLOCK
*D20A8
-1
BLOCK
*D20A8
-1
save total # of words written
save total * of words read
save total * of errors
count # of write retries for tape
save total # of read errors
count # of channel errors
count # of data compare errors
random data error flag
pushdown list for text items
interrupt done flags
interrupt error flags
store addr's of text for error printout
error stack for interrupt service
command line buffer
end of input line
SEQ 0328
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 231
DfIxam MAC 29-JUI-35 11:AA CONTROL PARAMETERS
SEQ 0341
u
SEQ 0328
DFSXA DECbYSTEM KLIO CHANNEL/DTE20 INTERACTION^TEST - VER 0
DFSXAH MAC 29-JuL-d5 11:4A CONTROL PARAMETERS
,7 MACRO X53B(1242) K:07 21-Aug-85 Page 231
SEQ 03A1
Dl
Dl
10791
10792
10793
1079A
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807
10808
10809
10810
10811
10812
10813
10814
10815
10816
10817
10818
10819
10820
10821
10822
10823
10824
10825
10826
10827
10828
10829
10830
10831
10832
10833
10834
10835
10836
10837
10838
10839
10840
060544
060545
060546
060547
060550
060551
060552
060553
060554
060555
060556
060557
0*0560
060561
060562
060563
060564
06056S
060566
060567
060570
060571
060572
060573
060574
060575
060576
060577
060600
060601
0606C2
0606C :
060604
060605
060606
060607
060610
060611
060612
060613
060614
000 00 0 00 000000
777777 777777
252525 252525
001777 777760
777777 777777
000000 000000
000000 000000
000000 000000
000000 000000
.ZEROS:
.ONE?:
.ALT1:
.ALT2:
DATMSK :
Z
-1
25?525252525
1777777760
-1
;• Memory locations used by memory scan routines
000001
000001
000001
000001
OOC001
000001
000001
000001
000000
042104
104210
146314
210421
2-">
^525
314631
356735
421042
463146
525252
567356
631463
673567
735673
777777
34 04 0
30 04 0
24 04 0
20 04 0
14 04 0
10 04 0
04 04 0
00 04 0
000000
111111
222222
333333
444444
555555
666666
777177
000000
210421
421042
631462
042104
252525
463146
673567
104210
314631
525252
735673
146314
356735
567356
777777
16 060647
16 060647
16 060647
16 060647
16 060647
16 060647
16 060647
16 060647
MEMLST:
HEMLMT :
HEMVRT:
HEMVLM:
;• RH20
RHID:
SELPNT;
0
0
0
0
ID words
..000000
..111111
..222222
..333333
.,555555
..666666
..777777
current memory address (physical address)
end of this segment (physical address)
beginning of segment (virtual address)
end of segment (virtual address)
RHO ID
RH1 ID
RH2 ID
RH3 ID
RH4 ID
RH5 ID
RH6 ID
RH7 ID
DATPTN: BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
POINT
POINT
POINT
POINT
POINT
POINT
POINT
POINT
(4)0.0.0
(4)1.1.1
(4)2.2.2
(4)3.3.3
(4)4.4.4
(4)5.5.5
(4)6.6.6
(4)7.7,7
(4)l6.l0
(4)11.11
(4)12.12
(4)13.13
(4)14.14
(4)15.15
(4)16.16
(4)17,17
0.0.0.0.0.0
1.1.1.1.1.1
2.2.2.2.2.2
3.3.3.3.3.3
4.4.4.4.4.4
5.5,5,5,5.5
6,6.6.6.6.6
7.7.7.7.7,7
l6.10.l6.10. 10. 10. 10
11.11.11.11.11.11.11
12.12.12,12.12,12.12
13,13,13.13.13.13,13
14.14.14.14.14.14.14
15.15.15.15.15.15.15
16.16.16.16.16.16,16
17.17.17.17.17,17,17
4.REQST(CNTRL).7
4.REQST(CNTRL),11
4.REQST(CNTRL).15
4.REQST(CNTRL).19
4.REQST(CNTRL).23
4, REQST(CNTRL). 27
4,REQST(CNTRL),31
4.REQST(CNTRL).35
pointer
pointer
pointer
pointer
pointer
pointer
pointer
pointer
for
for
for
for
for
for
for
for
device
device
device
device
device
device
device
device
0
1
2
3
4
5
6
7
SEQ 0329
DFSXA DECSYSTEM KLiO CHANNEL /DTE 20 INTERACTION TEST ;VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 232
nflxAM MAC :9-Jul-85 11:44 CONTROL PARAMETERS
SEQ 0342
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO
DfSXAM MAC :9-Jul-85 11:4A CONTROL PARAMETERS
X5lB(^2^2) U:07 21-Aug-S5 P2je 232
SEO 0342
108A1
108A2
108A3
108A4
: 108A5
1 108A6
! 108A7
! 108A8
i 108A9
! 10850
I 10851
i 10852
10853
10854
I 10855
! 10856
10857
10858
10859
10860
10861
10862
10863
10864
10865
10866
10867
10868
10869
10870
10871
10872
060615
060615
060631
060631
060632
060633
060634
060635
060643
060647
060650
060651
060663
060723
06073'
060753
060767
061003
061017
061033
061047
015 012 104 105 103
000 00 0 00 000000
000 00 0 00 000000
777777
777777
777777
000000
000000
000000
000000
777777
777777
777777
000000
000000
000000
000000
DECSYSTEM^KLIO CHANNEL/DTE20 INTERACTION TEST (DFSXA)
X
DATLEN:
SIZE: Z
SPLIT: Z
tenth of record
split between buffer address's
; Channel type table
CHTYPE: EXP
EXP
EXP
EXP
-1
-1
-1.-1,-1,-1.-1,-1
0,0.0.0
less 0 - RH2b
equal 0 - DTE
more 0 - NI/CI port
; Request table for unit selection
REQST: EXP 0
EXP 0
EXP 0.0.0.0,0,0,0.0,0.0
- no channel
- channel exists (no devices)
- channel exists (devices)
; equal 0 - no channel
; less 0 '
; more 0
; Tables for storing information used by interrupt service
CHNPRG :
CHNLEN:
CHNXFR:
CHNDEV:
CHNBAR :
CHNTCR:
TAPEDC:
TAPECC:
TAPETC:
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
•D32
14
14
14
14
14
14
14
14
channel program area
save length of record
save CCW here
currently selected device
block address registers
tranfer control registers
tape desired post ion
current position of tape -
slave address for tape unit
if TU16:
SEQ 0330
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO «3B(1242) 14:07 21-Aug-85 Page 233
DFSXAM MAC 29-Jul-85 11:44 CONTROL PARAMETERS
SEO 0343
SEQ 0330
DFSXA
DFSXAM
10873
1087A
10875
10876
10877
10878
10879
10880
10881
10882
10883
1088A
10885
10886
10887
10888
10889
10890
10891
10892
10893
10894
10895
10896
10897
10898
10899
10900
10901
10902
10903
10904
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 233
MAC 29-Jul-85 11:44 CONTROL PARAMETERS
SEQ 0343
061063
061077
061113
061127
061143
061156
061171
061204
061217
061232
061245
061260
061273
061307
061323
061324
061325
061326
061327
061330
061331
061332
061333
061334
061335
061336
061337
061340
061341
000 00 0 00 000000
lirm 777777
777777 777777
000000
000000
000000
000000
000000
000C30
000000
000000
000000
000000
OuJOOO
000000
000000
002000
004000
006000
010000
012000
014000
016000
020000
022000
024000
026000
RNPNTF
1: BLOCK
14
RNBASE
: BLOCK
14
STWRD'
: BLOCK
14
STWRDc
I: BLOCK
14
SCLKO
BLOCK
*D11
SCLKl
BLOCK
*D11
SCLK2
BLOCK
*D11
SCLK3
BLOCK
*D11
SCLK4
BLOCK
•D11
SCLK5
BLOCK
*D11
SCLK6
• BLOCK
*D11
SCLK7
• BLOCK
•D11
SCLKRN: BLOCK
14
WRLDRG: BLOCK
14
SCLKX
: Z
-1
-1
DEVPRT: <0**D1024>
<1*»D1024>
<2**D1024>
<3**D1024>
<4**D1024>
<5**D1024>
<6**D1024>
<7**D1024>
<10**[
)1024>
<11**l
)1024>
<12**l
)1024>
<13**I
>1024>
pointer table for TST54
preserved random base seed for data comp
preserved CPC for checking logout CPC
preserved DAC for checking logout DAC
table for random clock counts (SOSLE)
table for writing write registers
end of clock tables
1st partition
2nd "
3rd "
SEQ 0331
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO J:538(1242) 14:07 21-Aug-85 Page 234
DFSXAM MAC 29-JuL-85 11:44 CONTROL PARAMETERS
SEQ 0344
I
SEQ 0331
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1PA2) U:07 21-Aug-85 Page 234
DFSXAM MAC 29-JuL-85 11:44 CONTROL PARAMETERS
SEQ 0344
10905
10906
10907
10908
10909
10910
10911
10912
10913
10914
10915
10916
10917
10918
10919
10920
10921
10922
10923
10924
10925
10926
10927
10928
10929
10930
10931
10932
10933
10934
10935
10936
10937
10938
10939
10940
10941
10942
10943
10944
10945
10946
10947
10948
10949
10950
10951
10952
061342
061343
061344
061345
061346
061347
061350
061351
061352
061353
061354
061355
061356
061357
061360
061361
061362
061363
061364
061365
061366
061367
061370
061371
061372
061373
061374
061375
600400
600600
601000
602000
604000
610000
620000
700400
700600
701000
702000
704000
710000
720000
600400
6uJ600
601000
602000
604000
610000
620000
000000
000000
000000
000000
000000
000000
000000
044541
044541
044541
044541
044541
044541
044541
044541
044550
044600
044640
044740
045140
045540
000000
000000
000000
000000
000000
000000
000000
000040
000060
000100
000200
000400
001000
002000
f(i,1iii***1i1i*****1******** ************************** ********************
* CCULST - Forward channel transfer instructions
0i,ii*iiii************************************ ******** *******************
CCWLST: 3B1+20813+DATBUF
3B1+30813+DATBUF
3BU40B13+DATBUF
3B1+100B13+DATBUF
3B1+200B13+DATBUF
381 +40081 3+DATBUF
3B1+1000B13+DATBUF
/>**•*♦***♦♦***********♦*♦********************************************
* RCULST - Reverse channel transfer instructions
ffi,i,iiiiiiii*ii************************************************************
RCWLST: 782+2081 3+DAT8UF
782+3081 3+DATBUF +7
782+4081 3+DAT8UF +37
782+100813+DAT8UF+77
7B2+200B13+DATBUF+177
782+40081 3+DATBUF +377
7B2+1000813+DATBUF+777
reverse channel word (20 word)
reverse channel word (30 words)
reverse channel word (40 words)
reverse channel word (100 words)
reverse channel word (200 words)
reverse channel word (400 wrds)
reverse channel word (1000 words)
* SKPCCW - Skip read channel transfer commands
ffti,******************************************************************
SKPCCW:
381+20813
381+30813
381+40813
381+100813
381+200813
3B1+400B13
381+1000813
skip 20 words
skip 30 words
skip 40 words
skip 100 words
skip 200 words
skip 400 words
skip 1000 words
fft*******************************************************************
* CLKAMT - Clock amount for device simulations
/^************ ********************************************************
CLKAMT:
40
60
100
200
400
1000
2000
SEQ 0332
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO J:538(1242) 14:07 21-Aug-85 Page 235
DFSXAM MAC 29-Jul-85 11:44 CONTROL PARAMETERS
SEQ 0345
1
SEQ 0332
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) K:07 21-Aug-85 Page 235
DFSXAM MAC 29-JuL-85 11 :A4 CONTROL PARAMETERS
SEQ 0345
10953
10954
10955
10956
10957
10958
10959
10960
10961
10962
10963
10964
10965
10966
10967
10968
10969
10970
10971
10972
10973
10974
10975
10976
10977
10978
10979
10980
10981
10982
10983
10984
10985
10986
061376
061377
061400
061401
061402
061403
061404
061405
061406
061407
061410
061411
061412
061413
061414
061415
061416
061417
061420
061421
061422
061423
061424
061425
061426
061427
061430
061431
061432
061433
061434
061435
000001
000001
000001
000000
000001
000000
000001
000001
000000
000001
000000
000000
000000
000000
000000
000001
000000
000001
000000
000000
000000
000000
000000
000001
000001
000001
000001
000000
oonooi
GuJOOO
000001
000001
000000
000000
042104
210421
104210
421042
146314
631463
210421
042104
252525
252525
314631
463146
356735
673567
421042
104210
463146
314631
525252
525252
567356
735673
631463
146314
673567
356735
735673
567356
mm
mm
DATPTB: 1.,0
1,.0
1.. 042104
0, ,210421
1,, 104210
0, ,421042
1,. 146314
1,, 631463
0, ,210421
1,, 042104
0, ,252525
0,, 252525
0, ,314631
0, ,463146
0,, 356735
1,, 673567
0, ,421042
1,, 104210
0., 463146
0, ,314631
0, ,525252
0, ,525252
0,, 567356
1,, 735673
1,, 631463
1,, 146314
1,, 673567
0,, 356735
1,, 735673
0,. 567356
\.,mm
\,.mm
SEQ 0333
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 236
DFSXAM MAC 29-Jul-85 11:44 OPERATOR MESSAGES
SEQ 0346
SEQ 0333
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
OFSXAM MAC 29-Jul-85 11:44
INTERACTION
OPERATOR
TEST - VER
MESSAGES
0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 236
SEQ 0346
10987
10988
10989
10990
10991
10992
10993
10994
10995
10996
10997
10998
10999
11000
11001
11002
11003
11004
11005
11006
11007
11008
11009
11010
11011
11012
11013
11014
061436
061436
015 012 124 110 105
SU8TTL OPERATOR MESSAGES
CMES6: ASCIZ/
THE AVAILABLE COMMANDS ARE:
AUTO SELECT S GO
BOOT LOAD FRONT END
BOOT LOAD & HALT FRONT END
BOOT TEST FRONT END
PRINT CPU STATUS
ENTER DDT , ^
EXAM SPECIFIED REGISTER(S)
GO START TESTING SELECTED DEVICES
TYPE THE HELP FILE
PRINT MBOX STATUS
PRINT NAMES OF LEGAL REGISTERS
PRINT SYSTEM CONFIGURATION
PRINT CURRENTLY SELECTED PARAMETERS
PSW PRINT SWITCHES
^^^ REMOVE^THE^SPECIFIED DEVICE(S) FROM TEST SELECTION
SELECT THE FOLLOWING DEVICE(S) ^ „,,«.„.„ rr^nrrisx
PRINT PROGRAM RUNTIME (ELAPSE TIME SINCE PROGRAM STARTED)
ZERO DEVICE SELECTION TABLE
ZERO STATISTICS
TYPE THIS MESSAGE
A
BL
BH
BT
CP
D
E
G
H
Ho
N
PC
PT
R
S
TM
Z
zs
SEQ 0334
i DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 237
IDFSXAM MAC 29-JuL-85 11:44 OPERATOR MESSAGES
SEO 0347
L_-
r
SEQ 033A
lOFSXA
IDFSXAM
11015
11016
11017
11018
11019
11020
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) U:07 21-Aug-85 Page 237
MAC 29-JuL-85 11:A4 OPERATOR MESSAGES
SEQ 0347
061656
061656
015 012 124 131 120
CMC cr*" AQrT7/
TYPE IN THE DESIRED COMMAND SEQUENCE FOR THIS DEVICE,
THE SEQUENCE WILL TERMINATE AT CARRIAGE RETURN.
CMDS(UTF.RDF,REW.SPF.SPR)?
L_
SEQ 0335
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 31538(1242) 14:07 21-Aug-85 Page 238
DFSXAM MAC 29-Jul-85 11 :44 OPERATOR MESSAGES
SEQ 0348
SEQ 0335
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) U:07 21-Aug-85 Page 238
DFSXAM MAC 29-Jul-85 1 1 :4A OPERATOR MESSAGES
11023 061711 015 012 124 110 105 THE^COMMAND FORMAT IS: CMD(SPACE)CN:X.Y,Z(CR)
il8?c EXAMPLE: CO:(CR) > SPECIFIES JUST CHANNEL 0(RH20 #0)
Will tXAHf-Lt. ci:1.2,A(CR)— > SPECIFIES DEVICES 1,2,4 ON CHANNEL 1
110P8 THEREFORE. SC3:1,2(CR) > SELECTS DEVICES 1 ,2 ON CHANNEL 3
Vin?Q R C3:r(CR) > REMOVES DEVICE 1 FROM TEST LIST
]]g|5 Z(CR) > ZEROS TEST SELECTION LIST
11031
]]rM NOTE- 1 MORE THAN ONE SELECTION CAN BE MADE ON THE SAME LINE
Will ^^^ ' BY SEPARATING THE DEVICE DESIGNATION WITH A SEMI-COLON.
]]^ll EXAMPLE: S CO: ;C1 : ;C3: (CR) < SELECTS C0.1.&3 ALL IN ONE LINE
11037
]]§^9 2. THE EXAM COMMAND HAS THE FOLLOWING FORMATS
}]8J? 0 CN:(CR)-WHICH MEANS PRINT ALL REGISTERS ON RH20 'V
iig/? 0 CN: [REG. REG.... 3-WHICH MEANS PRINT, ONLY
Wcli THE SPECIFIED REGISTERS ON RH20 'V ^ .^..
RJa 0 CN:M(CR)-UHICH MEANS PRINT ALL REGISTERS ON DEV •>!"
] HSs 0 CN:MCREG, REG.... 3-WHICH MEANS. PRINT ONLY THE
11046 SPECIFIED REGISTERS ON DEV "M"
11047 /
SEQ 0348
L-
SEQ 0336
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 239
DFSXAM MAC 29-JuL-85 11:44 OPERATOR MESSAGES
SEQ 0349
r
SEQ 0336
DFSXA
OFSXAM
11048
110A9
11050
11051
11052
11053
1105A
11055
11056
11057
11058
11059
11060
11061
11062
11063
1106A
11065
11066
11067
11068
11069
11070
11071
11072
11073
1107A
11075
11076
11077
11078
11079
11080
11081
11082
11083
1108A
11085
11086
11087
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JUL-85 11:44
INTERACTION
OPERATOR
TEST - VER
MESSAGES
0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 239
SEQ 0349
062167
062167
015 012 Oil 124 110
•#*•*»****♦•***********♦♦♦*♦******************************************
;♦ EMESG - Error message formats
'#♦*»*•**♦*****»•**♦****♦*♦*♦*****•*************************♦•********
CMC C/*» ACr'T/
THe'eRROR MESSAGE FORMAT'S ARE AS FOLLOWS:
CONTROLLER HARDWARE ERROR-
<CM:> < M= CONTROLLER *
DECODED RH20 STATUS REG
DECODED CHN STATUS WORD 1
DECODED CHN STATUS WORD 2
EBOX ENABLES
EBOX ERROR FLGS
DECODED MBOX ERROR REG
*»*
(HEADER TEXT)
***
CM:
XXXX;XXX;XXX;
<—
Wl:
XXX;XXX;XXX;
<—
W2:
XXX : XXX: XXX;
< —
EA:
XXX;XXX;XXX;
<—
ER:
XXX;XXX;XXX
<—
MA:
XXXXX
<—
DEVICE ERROR -
<CM:N> < M=CONTROLLER # AND N= DEVICE #
•♦* (HEADER TEXT) ***
DS:
XXXXXXXXXXXXX
<
El:
XX\XXXXXXXXXX
<
CM:
XXXXXXXXXXXXX
Wl:
XXXXXXXXXXXXX
W2:
XXXXXXXXXXXXX
EA:
XXXXXXXXXXXXX
ER:
XXXXXXXXXXXXX
MA:
XXXXXXXXXXXXX
CSR
: XXXXXXXXXXXXX
<
LAR
: XXXX
<
DECODED DEVICE STATUS REG
DECODED DEVICE ERROR REG #1
CONTROL AND STATUS REG
LATCH ADDRESS REG
SEQ 0337
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 31538(1242) 14:07 21-Aug-85 Page 240
DFSXAM MAC 29-JuL-85 11:44 OPERATOR MESSAGES
SEQ 0350
1
SEQ 0337
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:AA
INTERACTION
OPERATOR
TEST - VER
MESSAGES
0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 240
SEQ 0350
11088
11089
11090
11091
11092
11093
1109A
11095
11096
11097
11098
11099
11100
11101
11102
11103
11104
11105
11106
11107
11108
11109
11110
11111
11112
11113
1111A
11115
11116
11117
11118
11119
11120
11121
11122
11123
1112A
11125
11126
11127
11128
11129
11130
11131
11132
11133
1113A
11135
11136
062A37
062A37 015 012 015 012 12A
NMES6: ASCIZ/
THE NAMES OF THE LEGAL REGISTERS ARE AS FOLLOWS;
DEVICE COMMON:
CR- CONTROL REGISTER
DS- STATUS REGISTER
El- ERROR 1
MT- MAINTENANCE
AS- ATTENTION SUMMARY
DT- DRIVE TYPE
SN- SERIAL NUMBER
TU16 SPECIFIC:
FC- FRAME COUNTER
CK- CHECK CHARACTER
TC- TAPE CONTROL
RP04 SPECIFIC:
TRACK AND SECTOR
LOOK AHEAD
OFFSET
DESIRED CYLINDER
CURRENT CYLINDER
ERROR 2
ERROR 3
ERROR CHECK 1
ERROR CHECK 2
RH20 SPECIFIC;
?^
COMMAND
PRIMARY
PRIMARY
SECONDARY
SECONDARY
STATUS
TRANSFER
BLOCK ADR
TRANSFER
BLOCK ADR
INTERRUPT VECTOR
READ BUFFER
CHN PRG
PORT SPECIFIC;
CSR-
LAR-
CONTROL AND STATUS
LATCH ADDRESS
SEQ 0338
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J[53B(1242) U:07 21-Aug-85 Page 2A1
MAC 29-Jul-85 11:44 OPERATOR MESSAGES
SEQ 0351
SEQ 0338
DFSXA
DFSXAM
11137
11138
11139
11U0
11141
11U2
11143
11144
11145
11146
11147
11148
11149
11150
11151
11152
11153
11154
11155
11156
11157
11158
11159
11160
11161
11162
11163
11164
11165
11166
11167
11168
11169
11170
11171
11172
11173
11174
11175
11176
11177
11178
11179
11180
11181
11182
11183
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO );53B(1242) 14:07 21-Aug-85 Page 241
MAC 29-JuL-85 11:44 OPERATOR MESSAGES
.ffnt*********** ******************** ***********************************
':* INTERR - 1 1 Legal interrupt detected
• 0i,i,*** ***************************************************************
SEQ 0351
062665
062666
062667
062670
062671
062672
062673
062674
062675
062676
062677
062700
062701
062702
062703
062704
062705
062706
062707
062710
062711
062712
062713
062714
062715
062716
062717
062720
062721
062722
062723
062724
062725
062726
062727
062730
062731
062732
062733
062734
062735
000000 000000
037 01 0 00 030242
037 01 0
7 540 24
00 073432
0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 544 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 550 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 554 24 0 00 000000
037 13 0 00 000001
037 01 0 00 030242
037 01 0 00 072250
7 560 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 564 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 570 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 ?74 24 0 00 000000
037 13 0 00 000001
037 01 0 00 073434
7 200 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 204 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 210 24 0 00 000000
037 13 0 00 000001
037 01 0 00 072250
7 214 24 0 00 000000
037 13 0 00 000001
037 01 0 00 030242
254 00 0 00 043621
INTERR: 0
PCRLF
FMSGC
<RH'S:
>
CON I
RHO.
PNTHUF
FMSG
<
>
CONI
RH1.
PNTHWF
FMSG
<
>
CONI
RH2,
PNTHWF
FMSG
<
>
CONI
RH3.
PNTHWF
PCRLF
FMSG
<
>
CONI
RH4,
PNTHWF
FMSG
<
>
CONI
RH5,
PNTHWF
FMSG
<
>
CONI
RH6,
PNTHWF
FMSG
<
>
CONI
RH7,
PNTHWF
FMSGC
<DT'S:
>
CONI
DTO,
PNTHWF
FMSG
<
>
CONI
DTI,
PNTHWF
FMSG
<
>
CONI
DT2,
PNTHWF
FMSG
<
>
CONI
DT3,
PNTHWF
PCRLF
JRST
PRGHLT
end of line
tab over
; stop program
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
DFSXAM MAC 29-JuL-85 11:AA
11 184
11185
11186
11187
11188
11189
11190 062736 134 00
11191 062737 306 00
11192 062740 254 00
11193 062741 306 00
11194 062742 254 00
11195 062743 302 00
11196 062744 254 00
11197 062745 037 01
11198 062746 037 01
11199 062747 260 17
11200 062750 205 16
11201 062751 337 00
11202 062752 336 00
11203 062753 254 00
11204 062754 200 15
11205 062755 037 01
11206 062756 260 17
11207 062757 550 01
11208 062760 242 01
11209 062761 205 00
11210 062762 202 00
11211 062763 037 01
11212 062764 037 03
11213 062765 254 00
11214 062766 5v: 00
11215 062767 254 00
11216 062770 303 00
11217 06c771 254 00
11218 062772 137 00
11219 06:773 202 00
11220 06;:774 242 00
11221 062775 402 00
11222 062776 337 00
11223 062777 202 00
INTERACTION TEST - VER
SYSTEM GENERATOR
0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 242
SEQ 0352
r"
iDF
DF
;* SYS6EN - 3y£
;#************<
0 00 000012
SYS6EN: ILDB
0 00 000115
CAIN
0 00 036534
JRST
0 00 000122
CAIN
0 00 036540
JRST
0 00 000015
CAIE
0 00 037332
JRST
0 00 030242
PCRLF
0 00 073436
FMSGCD
0 00 063136
GO
0 00 777770
MOVSI
0 16 060633
SYSGl: SKIPG
0 16 060647
SKIPN
0 00 063055
JRST
0 16 060753
MOVE
0 00 073446
FMSGC
0 00 040016
GO
0 00 000016
HRRZ
0 00 000002
LSH
0 00 600000
SYSG4: MOVSI
0 00 074765
MOVEM
0 00 073453
FMSG
0 00 000003
TTIOCT
0 00 062764
JRST
0 00 000020
CAIGE
0 00 062761
JRST
0 00 002000
CAILE
0 00 062761
JRST
0 00 070234
DPB
0 16 060723
MOVEM
0 00 000001
LSH
0 16 061273
SETZM
0 16 060647
SKIPG
0 16 061273
MOVEM
SUBTTL SYSTEM GENERATOR
#**********************♦*********************************************
SYSGEN - Gystem generator - Setup RP04 or TU16 I/O test ^^^^^^^^^^^
PNTR
'T1"
DO.TM
lip 1 1
DO.TR
15
CMDERR
<*»** SYSTEM TEST
SETMEM
CNTRL,-10
CHTYPE(CNTRL)
REQST(CNTRL)
SYSGX
DEV,CHNDEV(CNTRL)
<TEST PARAMETERS FOR
PRTHDR
B,CNTRL
B.2
(5bi)
CHNCCW
<DATA SIZE (20-2000) ?>
.-1
20
SYSG4
2000
SYSG4
[POINT 11, CHNCCW, 133
CHNLEN(CNTRL)
1
SCLKRN(CNTRL)
REQST(CNTRL)
SCLKRN(CNTRL)
get next byte
skip if not time command
do time command
skip if not trace command
do trace command
skip if CR
if not - command error
GENERATOR ****>
setup SYSPRG area
init controller index
is this controller an RH or DTE?
yes - selected?
no - go check next controller
get possible device number
print header
fetch controller number
convert to channel index
get xfer S 1st xfr bits
setup for channel CCW
get size
it greater than 20
than or equal to 2000
IS
no
less
no
save length , ,
double for possible clock count
clear location
skip if device selected
setup count
L
DFSXA
DFSXAM
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) V.:07 21-Aug-85 Page 243
MAC 29-JuL-85 11:44 SYSTEM GENERATOR
SEQ 0353
r
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
DFSXAM MAC 29-JuL-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 243
SEQ 0353
Dl
Dl
11224
11225
11226
11227
11228
11229
11230
11231
11232
11233
11234
11235
11236
11237
11238
11239
11240
11241
11242
11243
11244
11245
11246
11247
11248
11249
11250
11251
11252
11253
11254
11255
11256
11257
11258
11259
11260
11261
11262
11263
11264
11265
11266
11267
11268
11269
11270
11271
1127,?
11273
11274
11275
063000
037 01 0
063001
037 01 0
063002
037 01 0
063003
200 00 0
063004
037 16 0
063005
037 01 0
063006
037 03 0
063007
254 00 0
063010
315 00 0
U63011
254 00 0
063012
137 00 0
063013
200 00 0
063014
260 17 0
063015
037 01 0
063016
037 03 0
063017
254 00 0
063020
202 00 0
063021
135 01 0
063022
213 00 0
063023
517 00 0
063024
540 01 0
063025
260 17 0
063026
260 17 0
063027
331 00 0
063030
254 00 0
063031
603 15 0
063032
254 00 0
063033
201 00 0
063034
260 17 0
063035
3uJ 00 0
063036
037 01 0
C 63037
037 03 0
063040
254 00 0
063041
303 00 0
063042
254 00 0
C 63043
402 00 0
(63044
137 00 0
063045
037 01 0
(63046
037 03 0
(63047
254 00 0
063050
303 00 0
063051
254 00 0
(63052
137 00 0
(63053
037 01 0
063054
260 17 0
(63055
253 16 0
063056
037 01 0
063057
402 00 0
063060
200 00 0
063061
251 00 0
063062
254 00 0
073457
000076
073464
030145
000003
072622
000003
063006
030145
063000
073467
074765
033017
073470
000003
063016
000006
070234
000001
000001
074765
035116
033660
000015
.. 063053
00 000010
00 063053
000631
043143
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00 000000
00
00
00
00
00
16
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
073473
000003
063037
000022
063036
060767
070403
073476
000003
063046
000023
063045
073501
061656
063063
062751
073502
063304
073506
C63337
063240
SYSG5:
SYSG6:
SYS67:
SYSGS:
SYS69:
SYSG10
SYSGX:
FMSG
PNTCIF
FMSG
MOVE
PNTOCS
FMSG
TTIOCT
JRST
CAMGE
JRST
DPB
MOVE
STCHN
FMSG
TTIOCT
JRST
MOVEM
LDB
MOVNS
HRLZS
HRR
LDBUF
GO
SKIPL
JRST
TLNE
JRST
MOVE I
UDC
CAI
FMSG
TTIOCT
JRST
CAILE
JRST
SETZM
DPB
FMSG
TTIOCT
JRST
CAILE
JRST
DPB
PNTMfF
GO
AOBJN
FMSGD
SETZM
MOVE
BLT
JRST
<MEM0RY BUFFER STARTCX >
< OR = TO >
MEMLOW ;
<)?>
.-1
MEMLOW ;
SYSGS ,„ ;
[POINT 22,CHNCCW.35]
CHNCCW i
<DATA PATTERN?>
.-1
GOOD
B,CPOINT 11, CHNCCW, 13J
B
B
B. CHNCCW
SETPAR
DEV
SYSG10
DEV, (1814)
SYSG10
631
<SURFACE(0-22)?>
.-1
22 „
SYSGS
CHN8AR(CNTRL)
[POINT 5-CHNBAR(CNTRL)
<SECT0R(0-23)?>
.-1
23
SYS69
[POINT 5,CHNBAR(CNTRL)
SMESG
SYSCMD
CNTRL,SYSG1
<STARTING TEST>
DEVBSY
[DEVBSY,,DEVBSY*1]
REWFLG+7
SYSEXE
get MEMLOW
is It greater or equal to (MEMLOW)
no
get CCW
setup channel program
wait for pattern
put into good
get count
make negative
put into left halt
merge in address
load up buffer _ .
setup SYSLH & SYSRH for this device
skip if device selected
no - loop back
skip if RP04
qo to end of selection routine
et maint cylinder address
oad desired with maint address
filler
?:
; wait for surface input
; input correct?
; no
; clear BAR location
,35]
wait for sector input
not correct input
; print command string request
; decode command string
; look at all RH20's
; clear device busy flag
; get BLT pointer
; insure all flags =0
; enter the EXE
SEQ 0341
DFSXA DECSYSTEM KLiO CHANf;EL/DTE20
DFSXAM MAC 29-Jul-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 244
r
SEQ 0354
A02 00
205 01
260 17
402 00 0
137 00 0
154 00
137 00
134 00
137 00
200 00 .
316 00 0
■ 0
DFSXA DECSYSTEM KLIO CHANf:EL/DTE20
DFSXAM MAC 29-JuL-85 11:44
11276
11277
11278
11279
11280
11281 063063
11282 063064
11283 063065
11284 063066
11285 C63067
11286 063070
11287 063071
11288 063072
11289 063073
11290 063074
11291 063075
11292 063076
11293 063077
11294 063100
11295 063101
11296 063102
11297 063103
11298 063104
11299 063105
11300 063106
11301 063107
11302 063110
11303 063111
11304 063112
11305 063113
11306 063114
11307 063115
11308 063116
11309 063117
11310 063120
11311 063121
11312 063122
11313 063123
11314 063124
113^5 063125
11316 063126
11317 063127
11318 063130
11319 063131
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 244
SEQ 0354
D
D
201 00
316 00
201 00
316 00
201 00
316 00
201 00
316 00
201 00
316 00
201 00
316 00
201 00
20? 00 1
o 00 0
306 00 0
25'. 00 0
302 00 0
254 00 0
134 00
253 01
037 01
262 17
254 00
350 00
200 00
0
0
0
0
0
0
0
202 00 1
263 17 0
16
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
16
00
00
00
00
00
00
00
00
00
00
00
00
16
00
063^60
111 70
041542
000007
073507
000012
073510
000012
073511
000007
0^3512
000061
073513
000071
073514
000071
073515
000007
073516
000007
073517
000033
073520
000031
063272
000012
000015
063126
000054
063132
000012
063066
073521
000000
063055
000001
070230
063272
000000
#*♦*»»*»♦»*****•♦***♦♦♦♦♦♦♦**♦***************************************
* SYSCMD - Command decoder ^^^^^^^^^^*
SYSCMD: SETZM
MOV SI
GO
SYSCMl: SETZM
DPB
ILDB
DPB
ILDB
DPB
MOVE
CA«N
HOVE I
CAMN
MOVE I
CAMN
MOVE I
CAMN
MOVE I
CAMN
MOVE I
CAMN
HOVE I
CAHN
HOVE I
HOVEM
ILDB
CAIN
JRST
CAIE
JRST
ILDB
A06JN
FMS6D
GET
JRST
SYSCMX: AOS
MOVE
HOVEM
RTN
let command
9
CHNX(CNTRL)
B.-IO
INPLIN
ecu
[POINT 7,CCU.6J
PNTR
[POINT 7,CCWJ3]
PNTR
[POINT 7,CCW.20J
ecu
[ASCIZ/UTF/]
UTF
[ASCIZ/RDF/]
RDF
[ASCIZ/RDR/]
RDF
[ASCIZ/REW/]
RUND
[ASCIZ/RCL/]
RUND
[ASCIZ/SPR/]
SPBAKR
[ASCIZ/SPF/]
SPFUDR
aSYSPRG(CNTRL)
PNTR
15
SYSCMX
SYSCME
PNTR
B, SYSCMl ; ao uati^ a
<fHERE IS A LIMIT OF 8 C0MHANDS1!I>
; restore stack
SySGX ; return to request
B ; update pointer
[SIXBIT/PRGETX/]
aSYSPRG(CNTRL) ; terminate program
; exit
clear program index
maximum /> of commands=8.
input the line
clear receiving register
save 1st byte
get next
get next
Set
TF?
yes - write operation
RDF?
yes - read operation
Rdr?
yes - read operation
REU?
yes - rewind operation
RECAL?
yes - recal operation
SPR?
es - get operation *
PF?
yes - get operation #
put into program area
get next Byte
skip if not carriage return
skip if comma
command error
get next byte
10 back and decode
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:44
r
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 245
SEQ 0355
SEO 0342
DFSXA
DFSXAM
11320
11321
11322
11323
11324
11325
11326
11327
11328
11329
11330
11331
11332
11333
1133A
11335
11336
11337
11338
11339
I 113A0
113A1
113A2
113A3
11344
11345
11546
: 11347
: 11348
11349
11350
11351
11352
11353
11354
DECSYSTEM <L10
MAC 29-Jul
063132
063133
063134
063135
063136
063137
063140
063141
063142
063143
063144
CHANNEL/DTE20
-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
063145
063146
063147
063150
063151
063152
06315:
063154
063155
063156
063157
063160
063161
063162
06316?
063164
037
01 0 00 073531
037
01 0 00 044514
26?
17 0 00 000000
254
00 0 00 063055
205
01 0 00 77777^
201
00 0 00 044541
505
00 0 00 000001
202
00 0 01 063272
271
00 0 00 000020
253
01 0 00 063141
263
17 0 00 000000
00
17
402 00
200 00
606 00
476 00
201
260
300 00
336 00
254 00
260 17
300 00
6ur 00
263 17
402 00
402 00
254 00
0 16 044167
0 16 044153
0 00 000200
0 16 044167
0 00 000377
0 00 043077
0 00 000000
0 16 063330
0 00 063163
0 00 043177
0 00 000000
0 00 000100
00 000000
16 063330
16 063316
00 067640
0,7 MACRO X538(1242) 14:07 21-Aug-85 Page 245
r
SEQ 0355
SYSCME: FMSGCD
PNTMSF
GET
JRST
<C0M«AND SEQUENCE ERR0R>
CMDLJN
SYSGX :
SETMEM:
novsi
MOVE I
HRLI
MOVEM
ADD I
AOBJN
RTN
B.-10
DAT8UF
B
SYSPRG(B)
20
B..-2
; repeat the command
; setup index
; get beginmng address
; make indexable by register B
; put into pointer location
)• HNDATA - Handle ATA for SYSEXE ^_^
■*****»**»**»***»******t ♦♦•*****»♦***•••*•♦**•*♦•*••*♦*•**•*♦** *******
9 "
HNDATA: SETZM
MOVE
TRNN
SETOM
MOVE I
WAS
CAI
SKIPN
JRST
RDS
CAI
TRNN
RTN
SETZM
HNDATX: SETZM
SKPRTN
RH.ERR(CNTRL)
RH.DNE(CNTRL)
DRATTN
RH.ERR(CNTRL)
377
REWFLG(CNTRL)
HNDATX
SSC
REWFLG(CNTRL)
MTNCMD(CNTRL)
clear possible error if command=0
get RH20 status
skip on drive atten
indicate interrupt error
get ATA pits
clear any ATA
filler
skip if unit was rewinding
complete space operation
read status
filler
slave status change = 1
no
clear rewind flag
clear motion flag
yes - end rewind
SEQ 0343
DFSXA DECSYSTEM KLlO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
0.7 MACRO J:53B(1242) 14:07 21-Aug-85 Page
^46
SEQ 0356
r
SEQ 0343
DFSXA
DFSXAM
11355
11356
11557
11358
11359
11360
11361
11362
11363
11364
11365
11366
11367
11368
11369
11370
11371
11372
11373
11374
11375
11376
11377
11378
11379
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-JuL-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page '46
SEQ 0356
063165
063166
063167
063170
063171
0631 72
063173
063174
0631 /5
063176
063177
063200
063201
063202
063203
.#*♦♦«•»•••*♦*♦*****•**♦♦♦♦•**•*****♦****♦*♦***♦♦************♦********
;• TIMOR - Setup time limit ^^^^^^^
.^*»»*»***»*** *•*♦♦***♦♦♦**♦♦♦*♦**♦♦********* *************************
7 020 04 0 00 035443
270 00 0 00 035443
202 00 0 16 063342
263 17 0 00 000000
TIMOR: DATAI TIMJIMH
ADD A.TIMH
MOVEM A,SYSLMT(CNTRL)
RTN
; read time base
; add to factor
; save upper limit
; exit
•#*♦♦********•♦***♦****»♦♦*♦********************•*********************
;* TIMCHK - Check for any time outs
J#**»**t«*************** **********************************************
205 16 0
337 00 0
336 00 0
254 00 0
336 00 0
7 020 04
200 00 0
315 00 0
260 17 0
253 16 0
263 17 0
00 777764
16 060633
16 060647
00 063202
16 063304
0 00 035443
16 063342
00 035443
00 063204
00 063172
00 000000
TIMCHK: MOVSI
TIMCK1: SKIP6
SKIRN
JRST
SKIRN
DATAI
MOVE
CAMGE
GO
TIMCK2: AOBJN
RTN
CNTRL,-14
CHTYRE(CNTRL)
REQST(CNTRL)
TIMCK2
DEV8SY(CNTRL)
TIM.TIMH
A,SYSLMT(CNTRL)
A,TIMH
TIMOUT
CNTRL.TIMCKI
init controller index
is this controller an RH or DTE?
yes - selected?
no - go get another index
skip if still bus/
read time base
get device limit
skip if limit not exceeded
report timed out
update Index
SEQ 0344
r
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 247
DFSXAM MAC 29-Jul-85 11 :44 SYSTEM GENERATOR
SEQ 0357
SEQ 03A4
DFSXA
DFSXAM
11380
11381
11382
11383
1138A
11385
11386
11387
11388
11389
11390
11391
11392
11393
11394
11395
11396
11397
11398
11399
IKOO
11401
11402
11403
11404
11405
11406
11407
11408
11409
11410
11411
11412
11413
11414
11415
11416
11417
11418
11419
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 247
MAC 29-Jul-85 11:44 SYSTEM GENERATOR
. 01,1,** i> ******** *********************** ********************************
':* TIMOUT, TIMOT - Print timeout message
.0************** ******************************************************
SEQ 0357
063204 037 00 0 00 073537
063205 260 17 0 00 040016
063206
063207
063210
063211
063212
063213
063214
063215
063216
063217
063220
063221
063222
063223
063224
063225
063226
063227
063230
063231
063232
063233
063234
063235
063236
063237
336 00 0 16 060633
254 00 0 00 063232
331 00 0 16 060633
263 17 0 00 000000
260 17
260 17
260 17
260 17
260 17
260 17
260 17
700 04
201 00
256 00
201 "
256 00
402 00
402 00
402 00
263 17
00 0
0 00
0 00
0 00
0 00
0 00
0 00
0 00
0 00
0 00
0 16
00
0 16
0 16
0 16
0 16
0 00
041204
041252
040711
040743
041757
040757
041034
027760
002000
043570
000400
043570
063316
063330
063304
000000
260 17 0 00 065655
260 17 0 00 065707
260 17 0 00 040757
260 17 0 00 041034
700 04 0 00 027760
263 17 0 00 000000
TIMOUT: TMSGC <SYSEXE TIMEOUT MESSAGE FOR >
TIMOT: 60
SKIPN
JRST
SKI PL
RTN
GO
GO
GO
GO
GO
GO
GO
CLFLGS
MOVE I
.CONO
MOVE I
.CONO
SETZM
SETZM
SETZM
RTN
TIMOTX: GO
GO
GO
GO
CLFLGS
RTN
PRTHDR
CHTYPE(CNTRL)
TIMOTX
CHTYPE(CNTRL)
PSTAT
PPTCR
PRTCH1
PRTCH2
DMPPRG
PRTCPU
PRTMBE
MBCCLR
M8E
MTNCMD(CNTRL)
REWFL6(CNTRL)
DEV8SY(CNTRL)
PRTTSG
PRTTCG
PRTCPU
PRTMBE
is this controller
yes - go handle
is this controller
yes - exit
a DTE?
an NI/CI port?
CM
PTCR
UD1
UD2
PROG
CPU status
MB status
any CPU errors
reset
print
print
print
print
print
print
print
clear
get hard
issue it
get MASSBUS enable
set bit
clear motion fig
clear rewind flag
clear busy fig
; print 0TE20 status
; print DTE20 byte count
; print CPU status
; print MBOX status
SEQ 0345
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO :53B(1242) 14:07 21-Aug-85 Page 248
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0358
SEQ 03A5
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:AA
1U20
11421
1H22
1U23
1U2A
1U25
1U26
1U27
11428
11429
11430
11431
11432
11433
11434
11435
11436
11437
11438
11439
11440
11441
11442
11443
11444
11445
11446
11447
11448
11449
11450
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 248
SEQ 0358
063240
063241
063242
063243
063244
063245
0632'':^
063247
063250
063251
063252
063253
063254
063255
063256
063257
063260
06327?
063304
063316
063330
063342
063354
201
700
260
260
260
260
260
260
260
700
302
001
037
254
037
254
11
14
17
17
17
17
17
17
17
14
11
00
07
00
01
00
0 00 044347
0 00 012377
0 00 033645
0 00 063355
0 00 063454
00 063503
00 063412
00 033577
00 063171
00 000400
00 044347
00 073545
00 000003
00 063240
00 073551
00 036334
OuJ 00 0 00 000000
;* SYSEXE - Tes
t qenerator EXE
*******************************************************
SYSEXE:
MOVE I
ION
ERRDAT,ERSTCK
GO
SETLP8
60
REWRCL
60
WRITE
60
READ
60
SPACM
60
SYSCLK
60
lOF
CAIE
TIMCHK
ERRDAT,ERSTCK
FAULT
<SYSEXE ERROR
TTALTM
JRST
SYSEXE
FMSGD
<ENTERING COM
JRST
STPRMl
; Parameters for Tl & Dl
CHNX :
BLOCK
*D10
SYSPRG:
BLOCK
*D10
DEV8SY:
BLOCK
*D10
MTNCMD :
BLOCK
•DIO
REUFLG:
BLOCK
*D10
SYSLMT:
BLOCK
*D10
SYSEND:
Z
REPORT>
init error stack
turn on interrupts
setup the clocks for loop
rewind/recal all selected
start any write operation
start any read operation
do any space
clock RH20 in loop back
check for time outs
turn off PI system
skip if no errors
typed
back
units
skip if altmode
, if not continue
INTERPRETER>
; if type enter interpreter
; channel index
; program area
; busy flags
; establish rewind flag table
; time limit for operations
; end parameter area
SEQ 0346
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO S;53B(1242) 14:07 21-Aug-85 Page 249
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0359
SEQ 0346
DFSXA
DFSXAM
11A51
1U52
1U53
IIASA
1U55
1U56
1U57
1U58
1U59
1U60
1U61
11A62
11 463
1U6A
11A65
11A66
11A67
11A68
11A69
11A70
11A71
11A72
11A73
nA7A
11A75
11A76
11A77
11A78
11A79
11A80
11A81
11A82
11A83
11A8A
11A85
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-Jul-85 11:AA
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO 5:53B(12A2) 1A:07 21-Aug-85 Page 2A9
SEQ 0359
063355
063356
063357
063360
063361
063362
063363
06336A
063365
063366
063367
063370
063371
063372
063373
06337A
063375
063376
063377
063A00
063A01
063A02
063A03
063A0A
063A05
063A06
063A07
063A10
063A11
205 16
337 00
25A 00
332 00
25A 00
200 01
200 00
302 00
25A 00
200 15
607 15
25A 00
550 01
2A2 01
201 00
260 17
201 00
A3A 00
256 00
201 00
260 17
300 00
A76 00
A 76 00
A7<S 00
2u' 00
260 17
253 16
263 17
0 00 77777^
0 16 0606A7
00 063A10
16 06330A
00 063A10
16 063260
16 063272
. 00 000007
0 00 063A10
0 16 060753
0 00 OOOOOA
0 00 063A10
0 00 000016
0 00 000002
0 01 377003
0 00 0A3003
0 00 001A50
0 00 075005
16 0A3570
00 000007
00 0A30AA
. 00 000000
0 16 063316
0 16 063330
16 06330A
00 000012
00 063165
00 063356
00 000000
0
0
0
0
0
#*♦****♦*♦*♦*********•*♦♦♦*♦*****************************************
* REWRCL - Rewind or recal all desired units ......^
/>♦*•**♦•♦************♦•♦****•***♦************************************
REWRCL: MOVSI
REU1: SKIPG
JRST
SKIPE
JRST
MOVE
MOVE
CAIE
JRST
MOVE
TLNN
JRST
HRRZ
LSH
MOVE I
UIVR
MOVE I
I OR
.CONO
MOVE I
UCR
CAI
SETOM
SETOM
SETOM
MOVE I
GO
REU2: AOBJN
RTN
CNTRL,-10
REQST(CNTRL)
REU2
DEVBSY(CNTRL)
REU2
B,CHNX(CNTRL)
aSYSPRG(CNTRL)
RWND
REU2
DEV,CHNDEV(CNTRL)
DEV.(1B15)
REU2
B,CNTRL
B.2
ICCW+3(B)
XECLR+MBE+DNCLR+ATTEN
PILVL
RUND
MTNCMD(CNTRL)
REUFLG(CNTRL)
DEVBSY(CNTRL)
RE WOP
TIMOR
CNTRL,REW1
init controller index
skip if selected
if not go update
skip if not busy
bypass on busy
get program index
get next command
skip if rewind or recal
get device number
skip if tape
bypass
get control *
convert to channel index
generate interrupt address
load it
(jf
in PI level
get rewind command
issue
filler
set motion flag
set rewind flag
set the dev busy
get rewind factor
setup time limit for
check all devices
exit
rewind operation
SEO 03A7
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 250
DFSXAM MAC 29-Jul-85 11:AA SYSTEM GENERATOR
SEQ 0360
SEQ 0347
DFSXA
OECSYSTEW KLIO CHANNEL/DTE20
OFSXAM
MAC
29-JUI-85 11:44
1K86
1U87
1K88
1U89
1K90
1U91
063412
205 16 0 00 77777^
11A92
063413
337 00 0 16 060647
1U93
063414
254 00 0 00 063452
1U9A
063415
332 00 0 16 063304
1U95
063416
254 00 0 00 063452
1U96
063417
200 01 0 16 063260
1U97
063420
200 00 1 16 063272
1U98
063421
306 00 0 00 000031
1K99
063422
254 00 0 00 063425
11500
063423
302 00 0 00 000033
11501
063424
254 00 0 00 063452
11502
063425
200 15 0 16 060753
11503
063426
607 15 0 00 000004
11 504
063427
254 00 0 00 063452
11505
063430
550 01 0 00 000016
11506
063431
242 01 0 00 000002
11507
063432
201 00 0 01 377003
11508
063433
260 17 0 00 043003
11509
063434
201 00 0 00 001450
11510
063435
434 00 0 00 075005
11511
063436
256 00 0 16 043570
11512
063437
201 00 0 00 y77777
11513
063440
260 17 0 00 043110
11514
063441
300 00 0 00 000000
11515
063442
20n 01 0 16 063260
11516
063443
2uJ 00 1 16 063272
11517
063444
260 17 0 00 043044
11518
063445
300 00 0 00 000000
11519
063446
476 00 0 16 063316
11520
063447
476 00 0 16 063304
11521
063450
201 00 0 00 000003
11522
063451
260 17 0 00 063165
11523
063452
253 16 0 00 063413
11524
063453
263 17 0 00 000000
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 250
SEQ 0360
;• SPACM - Space command ^^^^^^^^^^*
SPACM;
SPC1:
SPC2;
MOVSI
SKIPG
JRST
SKIPE
JRST
HOVE
MOVE
CAIN
JRST
CAIE
JRST
MOVE
TLNN
JRST
HRR2
LSH
MOVE I
UIVF«'
MOVE I
I OR
.CONO
MOVE I
UFC
CAI
MOVE
MOVE
UCR
CAI
SETOM
SETOM
MOVE I
GO
AOBJN
RTN
CNTRL,-10
REQST(CNTRL)
SPC2
DEVBSY(CNTRL)
SPC2
B.CHNX(CNTRL)
aSYSPRG(CNTRL)
SPFWDR
.+3
SPBAKR
SPC2
DEV.CHNDEV(CNTRL)
DEV.(1B15)
SPC2
B.CNTRL
B.2
ICCU+3(B)
XECLR+MBE+DNCLR+ATTEN
PILVL
<-18FRAMES>
B,CHNX(CNTRL)
aSYSPRG(CNTRL)
MTNCMD(CNTRL)
DEVBSY(CNTRL)
SPCOP
TIMOP
CNTRL,SPC1
im't controller index
skip if selected
if not go update
skip if not busy
bypass on busy
get program index
get next command
space forward
yes
space reverse
get device number
skip if tape
here if pack
get controller number
convert to channel index
?en interrupt address
oad into RH20
or in PI level
?et frame count
oad frame count
setup SYSPRG index
get command
issue
filler
set motion command
set the device busy
get space factor
set time limit for operation
check all devices
exit
SEQ 0348
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:44
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 251
SEQ 0361
r
SEQ 03A8
063A5A
063A55
065456
063A57
063A60
063A61
063A62
063A63
063A64
063A65
063466
063467
063470
063471
063472
063473
063474
063475
063476
063477
06350C
063501
063502
205 16 0
337 00 0
336 00
254 00
332 00
254 00
200 01
200 00 1
302 00 0
OFSXA DECSYSTEM KLIO CHANNEL/DTE20
DFSXAM MAC 29-JuL-85 11:44
11525
11526
11527
11528
11529
11530
11531
11532
11533
11534
11535
11536
11537
11538
11539
11540
11541
11542
11543
11544
11545
11546
11547
11548
11549
11550
11551
11552
254 00
200 15
550 01
242 01
402 00
402 00
260 17
335 00
476 00
476 00 0
0
0
0
201 00
260 17
253 16
263 17
00 777770
16 060633
16 060647
00 063501
16 063304
00 063501
16 063260
16 063272
00 000061
00 063501
16 060753
00 000016
00 000002
01 377001
01 377002
00 034274
16 060647
16 060767
16 063304
00 000003
00 063165
00 063455
00 000000
INTERACTION TEST - VER
SYSTEM GENERATOR
0.7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 251
SEQ 0361
WRITE
URT1:
URT2:
MOV SI
SKIP6
SKIPN
JRST
SKIPE
JRST
MOVE
MOVE
CAIE
JRST
MOVE
HRRZ
LSH
SETZM
SETZM
GO
SKIPGE
SETOM
SETOM
MOVE I
GO
A06JN
RTN
CNTRL,-10
CHTYPE(CNTRL)
REQST(CNTRL)
URT2
DEVBSY(CNTRL)
WRT2
B.CHNX(CNTRL)
aSYSPRG(CNTRL)
WTF
WRT2
DEV.CHNDEV(CNTRL)
B.CNTRL
B.2
ICCU+KB)
ICCU+2(B)
SURTO
REQST(CNTRL)
CHN6AR(CNTRL)
DEVBSY(CNTRL)
WRTOP
TIMOP
CNTRL.URT1
init controller index
is this controller an RH20?
yes - selected
no - check next controller
busy?
yes - bypass
get program index
get next command
write?
no - bypass
get device number
get controller number
make into channel index
clear word 1
clear word 2
start the write
skip if not loop back
indicate writing to SYSRH
set the device Busy
get write factor
setup time limit for write operation
check all devices
exit
SEQ 0349
r
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-Jul-85 11:44
INTERACTION TEST - VER 0.7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 252
SYSTEM GENERATOR
SEQ 0362
SEQ 03A9
DFSXA
DFSXAM
^ 11553
1155A
11555
11556
11557
11558
11559
11560
11561
11562
11563
1156A
11565
11566
11567
11568
11569
11570
11571
11572
11573
1157A
11575
11576
11577
11578
11579
11580
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 252
MAC 29-JuL-85 11:4A SYSTEM GENERATOR
#»«♦«*****♦♦*♦**••*♦**♦♦♦*♦***♦*******•♦*****♦*♦**********•**********
• READ - Start read
SEQ 0362
063503
0o3504
063505
063506
063507
063510
063511
063512
063513
06351A
063515
063516
063517
063520
063521
063522
063523
06352A
063525
063526
063527
063530
063531
205 16 0
337 00 0
336 00
25A 00
332 00
254 00
200 01
200 00
302 00 0
25A 00 0
200 15
200 01
242 01
402 00
402 00
260 17 0
335 00 0
402 00 0
476 00 0
201 00 0
260 17
253 16
263 17
00 77777^ READ: MOVSI CNTRL,-10
16 060633 RD1: SKIPG CHTYPE{CNTRL)
16 060647 SKIPN REOST(CNTRL)
00 063530 JRST RD2 ^ ^
16 063304 SKIPE DEVBSY(CNTRL)
00 063530 JRST RD2
16 063260 MOVE B.CHNX(CNTRL)
16 063272 MOVE aSYSPRG(CNTRL)
00 000071 CAIE RDF
00 063530 JRST RD2 ^ _ ^
16 060753 HOVE DEV.CHNDEV(CNTRL)
00 000016 MOVE B.CNTRL
00 000002 LSH B,2 ,_^
01 377001 SETZM KCU+I B
01 377002 SETZM ICCW+2(B)
00 034517 GO SRDO _ ^
16 060647 SKIPGE REQST(CNTRL)
16 060767 SETZM CHNBAR(CNTRL)
16 063304 SETOM DEVBSY(CNTRL)
00 000003 MOVE] RDOP
00 063165 60 TIMOP ,
00 063504 RD2: AOBJN CNTRL,RD1
00 000000 RTN
init controller index
is this controller an RH20?
yes - selected
no - check next controller
busy?
yes - bypass
get program index
get next command
read?
no - bypass
get device number
get controller number
convert to channel index
clear word 1
clear word 2
start read operation
skip if not loop back
indicate reading to SYSRH
set the device busy
get read factor
setup time limit for read operation
check all devices
exit
SEQ 0350
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B{1242) 14:07 21-Aug-85 Page 253
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0363
r
SEC 0350
OFSXA
DFSXAM
11581
11582
11583
1158A
11585
11586
11587
11588
11589
11590
11591
11592
11593
1159A
11595
11596
11597
11598
11599
11600
11601
11602
11603
1160A
11605
11606
11607
11608
11609
11610
11611
11612
11613
DECSYSTEIi KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X538(1242) U:07 21-Aug-85 Page 253
MAC 29-Jul-85 11:AA SYSTEM GENERATOR
.#»»♦«♦•*•*♦♦•♦•****♦**♦♦•♦♦♦*******•*•*♦••♦♦•***•*********•**********
;• STREW - Perform rewind ^^^^^
./>***♦*»*•**•****•*»**♦♦***♦*♦**♦**•**••**•****************••*********
SEO 0363
063532
063532
063533
06353A
063535
063536
063537
0635A0
063541
0635A2
0635A3
0635AA
0635A5
0635A6
0635A7
063550
063551
063552
063553
06355A
06355S
063556
063557
063560
063561
063562
063563
06356A
201 00
260 17
201 00
260 17
005 00
606 00
254 00
606 00
350 00
202 00
260 17
005 00
202 00
260 17
260 17
005 00
202 00
201 00
260 17
Gu." 00
A02 00
263 17
300 00 0
005 00 0
260 17 0
005 00 0
202 00 0
00
00
00
00
00
00
00
00
00
00
00
17
00
00
00
00
00
00
00
00
00
00
00
00
00
16
00
00001 1
0A30AA
000000
000007
0A30AA
070360
0A31 77
0702A7
OAOIOO
0635A0
OAOOOO
000000
07A77A
0A3211
070375
07A772
0A33O5
073560
07A771
0A3A01
073563
07A773
000011
0A30AA
070360
061033
000000
JTREW:
$REU:
MOVEI CLEAR
UCR
CAI
MOVE I RWND
UCR
FAULTA <UCR FAILEO
RDS
FAULTA <RDS FAILED>
TRNN CERR+SSC
JRST .-3
TRNN CERR
AGS (P)
NOVEM D.STAT*
RER
FAULTA <RER FAILED>
HOVEM D.ERR1*
RDT
FAULTA <RDT FAILED>
MOVEM D.DT*
RSN
FAULTA <RSN FAILED>
MOVEM D.SNA
MOVE I CLEAR
UCR
FAULTA <WCR FAILED>
SETZM TAPECC(CNTRL)
RTN
get drive clear
issue
filler
get rewind command
issue it
get status
skip if error or slave status change
skip if error
setup normal return
save the status
capture the error register
save it
read the drive type register
save it
read serial numoer
save it
get drive clear command
issue it
clear position indicator
exit
SEQ 0351
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM MAC 29-Jul-85 11:AA
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO «53B(12A2) 1A:07 21-Aug-85 Page 25A
SEQ 036A
SEQ 0351
DFSXA
OFSXAM
116U
11615
11616
11617
11618
11619
11620
11621
11622
11623
1162A
11625
11626
11627
11628
11629
11630
11631
11632
11633
1163A
11635
11636
11637
11638
11639
116A0
116A1
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 254
MAC 29-Jul-85 11:AA SYSTEM GENERATOR
•/>***»***♦****•*********♦*********************************************
'#***♦**♦***************♦♦♦******••♦♦♦********************************
SEQ 0364
063565
063566
063567
063570
063571
063572
063573
063574
063575
063576
063577
063600
063601
063602
063603
063604
063605
065606
063607
063610
06361 1
063612
063613
201 00
260 17
005 00
260 17
005 00
606 00
254 00
606 00 0
350 00 "
202 00
260 17
005 00
202 00
260 17
005 00
202 00
260 17
005 00
202 00
201 00
260 17
005 00
263 17
0 00 000007 $DRCL; HOVE I
RECAL ;
0 00 043044
UCR
0 00 070360
FAULT4
<WCR FAILED>
0 00 043177
RDS
0 00 070247
FAULT4
<RDS FAILED>
0 00 040100
TRNN
CERR+SSC
0 00 063570
JRST
.-3
0 00 040000
TRNN
CERR
0 17 000000
AGS
(P)
0 00 074774
HOVEM
D.STAT# ;
0 00 043211
RER
0 00 070375
FAULT4
<RER FAILED>
0 00 074772
MOVEM
D.ERRl* ;
0 00 043305
RDT
0 00 073560
FAULT4
<RDT FAILED>
0 00 074771
MOVEM
D.DT# ;
0 00 043401
RSN
0 00 073563
FAULT4
<RSN FAILED>
0 00 074773
MOVEM
o.sm
0 00 000011
MOVE I
CLEAR ;
0 00 043044
UCR
0 00 070360
FAULT4
<UCR FAILED>
0 00 000000
RTN
get recal command
issue It
get status
skip if error or slave status change
skip if error
setup normal return
save the status
capture the error register
save it
read the drive type register
save it
read serial ft
save it
get drive clear command
issue it
exit
SEQ 03^2
DFSXA
DFSXAM
116A2
116A3
116A5
116A6
116A7
116A8
116A9
11650
11651
11652
11653
11654
11655
11656
11657
11658
11659
11660
11661
11662
11663
1166A
11665
11666
11667
11668
11669
11670
11671
11672
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 255
MAC 29-JUI-85 11:44 SYSTEM GENERATOR
/y* ********** *********************************************************
* $DVWT - General wait for device ready
/>********************************************************************
SEQ C365
Dl
Dl
063614
063615
063616
063617
063620
063621
063622
063623
063624
063625
063626
063627
063630
063631
063632
063633
063634
063635
063636
063637
063640
063641
063642
063643
063644
063645
260
17
0
005
00
0
606 00 0
005
00
0
606
00
0
254
00
0
606
00
0
350
00
0
260
17
0
005
00
0
202
00
0
260
17
0
005
00 0
202
00
0
602
00
0
005
00
0
260
17
0
005
00 0
202
00
0
260
17
0
005
00
0
202
00
0
201
00
0
260
17
0
005
00
0
2o<
17
0
00 043177 SDVUT: RDS
00 070247 FAULT4 <RDS FAILED>
00 010000 TRNN MOL
00 073566 FAULT4 <MEDIUM 0FF-LINE>
00 040200 TRNN CERR+DRY
00 063614 JRST $DVWT
00 040000 TRNN CERR
17 000000 AOS (P)
00 043177 SDVREG: RDS
00 070247 FAULT4 <RDS FAILED>
00 074774 MOVEM D.STAT*
00 043211 RER
00 070375 FAULT4 <RER FAILED>
00 074772 MOVEM D.ERRI*
00 040000 TRNE UNS
00 073572 FAULT4 <UNIT WENT UNSAVE>
00 043305 RDT
00 073560 FAULT4 <RDT FAILED>
00 074771 MOVEM D.DT#
00 043401 RSN
00 073563 FAULT4 <RSN FAILED>
00 074773 MOVEM D.SN*
00 000011 MOVEI CLEAR
00 043044 UCR
00 070360 FAULT4 <WCR FAILED>
00 000000 RTN
get status
skip if still on-line
skip if error or device ready
skip if error
setup normal return
read status
save the status
capture the error register
save it
test unsafe
read the drive type register
save it
read serial ft
save it
get drive clear command
issue it
exit
-1
SEQ 0353
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 256
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0366
1 r-
DFSXA
DFSXAM
11673
1167A
11675
11676
11677
11678
11679
11680
11681
11682
11683
1168A
11685
11686
11687
11688
11689
11690
11691
11692
11693
1169A
11695
11696
11697
11698
11699
11700
11701
11702
11703
1170A
11705
11706
11707
11708
11709
11710
11711
11712
11713
DECSYSTEM KLIO CHANNEL/DTE20
MAC 29-Jul-85 11:4A
0636A6
0636A7
063650
063651
063652
063653
06365A
063655
063656
063657
063660
063661
063662
063663
063664
063665
063666
063667
063670
063671
063672
063673
063674
063675
063676
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 256
SYSTEM GENERATOR
#*****♦•******♦******♦♦♦♦♦♦******************************************
* $UTM - Perform WRTM
/^*»******************** ************************* *********************
SEQ 0366
r
c
c
200 00 0
260 17 0
005 00
201 00
260 17
005 00
350 00
254 00
16 061047
00 043121
00 070352
00 000027
00 043044
00 070360
16 061033
00 063614
000000
037 01
037 01
550 00
037 06
037 01
254 00
337 00
263 17
200 15
607 15
263 17
260 17
005 00
260 17
005 00
263 17
000000
0 00 073576
0 00 073314
0 00 063656
0 00 000001
0 00 030242
0 00 030007
0 16 060647
0 00 000000
0 16 060753
0 00 000004
0 00 000000
0 00 063646
0 00 073607
0 00 063646
0 00 073607
0 00 000000
$UTM: MOVE TAPETC(CNTRL)
WTC
FAULT4 <WTC FAILED>
MOVEI WTFM
UCR
FAULT4 <WCR FAILED>
AOS TAPECC(CNTRL)
JRST SDVWT
; get tape control register
; select the slave
; get the WTM command
; issue itl
; update position count
; device wait
•#******•***************♦*********************************************
;* NOTIMP - Feature not currently implemented
'#********************************************************************
NOTIMP;
0
FMS6C
FMSGC
HRRZ
PNT6F
PCRLF
JRST
<THIS FEATURE NOT CURRENTLY IMPLEMENTED>
<PC: >
NOTIMP
SRTDDT
;#********♦***********************************************************
;* $E0F - Write logical EOF
•/>********************************************************************
$EOF: SKIP6 REQST(CNTRL)
RTN
MOVE DEV,CHNDEV(CNTRL)
TLNN DEV,4
RTN
WTM
FAULT4 <WTM FAILED>
WTM
FAULT4 <WTM FAILED>
RTN
; skip if device selected
; exit if RH20 loop back
; get device #
; skip if TU16
; exit if RP04
; write tape mark
; write tape mark
; return
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 257
DFSXAM MAC 29-Jul-85 11 :44 SYSTEM GENERATOR
SEQ 0367
SEQ 0354
DFSXA
DFSXAM
117H
11715
11716
11717
11718
11719
11720
11721
11722
11723
1172A
11725
11726
11727
11728
11729
11730
11731
11732
11733
1173A
11735
11736
11737
11738
11739
11740
117A1
11 7A2
117A3
117AA
11745
11746
11747
11748
DECSYSTEM <L10 CHANNEL/DTE20
MAC 29-Jul-85 11:44
063677
063700
063701
063702
063703
063704
063705
063706
063707
063710
063711
063712
063713
063714
063715
063716
065717
063720
063721
063722
063723
063724
063725
063726
063727
INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 257
SYSTEM GENERATOR
ffi,*********** ************************************************** ******
* tlR^R ~ P^rforfn BSR
01,iH,i,i,1,**************************************************************
SEQ 0367
201 00
260 17
300 00
201 00
260 17
005 00
201 00
260 17
005 00
370 00
254 00
0 00 000011
0 00 043044
0 00 000000
0 00 ^77777
0 00 043110
0 00 070355
0 00 000033
0 00 043044
0 00 070360
0 16 061033
0 00 063614
201 00 0
260 17 0
300 00 0
201 00 0
260
17
0
005
00
0
201
00
0
260
17
0
005
00
0
2o.'
17
0
005
00
0
606 00
0
254
00
0
263
17
0
00 000011
00 043044
00 000000
00 ^77777
00 043110
00 070355
00 000033
00 043044
00 070360
00 043177
00 070247
00 000200
00 063723
00 000000
$TBSR: MOVE I CLEAR
UCR
CAI
MOVEI <-1&FRAMES>
UFC
FAULT4 <WFC FAILED>
MOVEI SPBAKR
UCR
FAULT4 <WCR FAILED>
SOS TAPECC(CNTRL)
JRST $DVWT
get drive clear
issue
filler
select one record space
load It
; issue the space command
; update tape position counter
; wait for completion
#******»*******************♦************♦**•*********♦***************
* SSPBSR - Perform BSR ^^ ^^^^
01,1,1,1,****************************************************************
SSPBSR: MOVEI CLEAR
UCR
CAI
MOVEI <-':&FRAMES>
UFC
FAULT4 <WFC FAILED>
MOVEI SPBAKR
UCR
FAULT4 <UCR FAILED>
RDS
FAULT4 <RDS FAILED>
TRNN DRY
JRST .-3
RTN
get drive clear
issue
filler
select one record space
load it
; issue the space command
; get status
; wait for ready
; exit
L„
SEQ 0355
r"
DFSXA
DFSXAM
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 258
MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0368
SEO 0355
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 258
DFSXAM MAC 29-JuL-85 11 :A4 SYSTEM GENERATOR
SEQ 0368
11749
11750
11751
11752
11753
11754
11755
11756
11757
11758
11759
11760
11761
11762
11763
11764
11765
11766
11767
11768
11769
11770
11771
11772
11773
11774
11775
11776
11777
11778
11779
11780
11781
11782
11783
11784
11785
11786
11787
11788
11789
11790
11791
11792
11793
11794
11795
;* $TPU - Posit
063730
063731
063732
063733
063734
063735
063736
063737
063740
063741
063742
063743
063744
063745
063746
063747
063750
063751
063752
063753
063754
063755
063756
063757
063760
063761
063762
063763
063764
063765
063766
063767
063770
063771
063772
063773
063774
063775
063776
063777
064000
064001
200 15
337 00
254 00 0
607 15 0
254 00
335 00
254 00
261
261
17
17
402 00 0
260 17 0
005 00
602 00
254 00
200 01
322 01
274 01
322 01
201 02
321
._ 01
213 00 0
334 02 0
476 00 0
200 00 0
405 00 0
2o; 17 0
005 00 0
200 00 0
260 17 0
005 00 0
260 17 0
005 00 .
606 00 0
254 00 0
602 00 0
254 00 0
350 00
217 00
212 01
262 17
262 17
263 17
16 060753
16 060647
00 067640
00 000004
00 067640
00 075026
00 064027
00 000001
00 000002
00 075006
00 043177
00 070247
00 002000
00 064017
16 061017
00 064017
16 061033
00 064014
00 000033
00 063756
00 000001
00 073612
00 075006
00 000001
00 Mmi
00 043110
00 070355
00 000002
00 043044
00 070360
00 043177
00 070247
00 040200
00 063766
00 040000
00 064002
17 17177 t
00 000001
16 061033
00 000002
00 000001
00 000000
»»*»«******t**** ***************************************
ion tape at right spot ^^^^
**»*»♦*♦♦*♦♦***•**************♦♦******♦**♦******♦****♦*
get device being used by this channel
skip if device selected
otherwise - return
continue if TU16
otherwise- return
skip if reading
go position for writing
save register B
save register C
reverse fig
get current status
skip if not at EOT
if there - rewind tape
get desired post ion
if zero - then rewind
deduct current tape position
if no difference - exit
get space reverse
go space reverse
make negative
get space forward
set going reverse
Set record difference
eep only low 16 bits
load it
get space command
issue the space command
get status
skip on error or ready
continue wait
skip if no error
positioning error
setup skip return
make register 8 +
update channel pos pointer
return
$TPU:
MOVE
DEV.CHNDEV(CNTRL)
$TP:
SKIPG
SKPRTN
REQST(CNTRL)
TLNN
DEV,4
SKPRTN
SKIP6E
WRTPHS
JRST
$TPW
PUT
B
PUT
C
SETZM
REVFLG*
RDS
FAULT4
<RDS FAILED>
TRNE
EOT
JRST
$TPZ
MOVE
B,TAPEDC(CNTRL)
JUMPE
B.STPZ
SUB
B,TAPECC(CNTRL)
JUMPE
B.STPBI
MOVE I
CSPBAKR
JUMPL
B,$TPR
MOVNS
B
SKI PA
C.CSPFWDR]
$TPR:
SETOM
REVFLG
MOVE
B
AND I
FRAMES
UFC
FAULT4
<WFC FAILED>
MOVE
C
WCR
FAULT4
<WCR FAILED>
RDS
FAULT4
<RDS FAILED>
TRNN
CERR+DRY
JRST
.-3
TRNE
CERR
JRST
$TPE
AOS
-2(P)
$TP1:
MOVMS
B
ADDM
C.TAPECC(CNTRL)
$TPX:
GET
C
GET
B
RTN
•
SEQ 0356
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 259
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0369
SEQ 0356
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 259
DFSXAM MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0369
11796
11797
11798
11799
11800
11801
11802
11803
11804
11805
11806
11807
11808
11809
11810
11811
11812
11813
11814
11815
11816
11817
11818
11819
11820
11821
11822
11823
11824
11825
11826
11827
11828
11829
064002
064003
064004
064005
064006
064007
064010
064011
064012
064013
064014
064015
064016
064017
064020
064021
064022
064023
064024
064025
064026
; Positioning error-find how many records passed
260 17
005 00
322 00
434 00
217 00
270 00
272 00
322 00
0 00 043247
0 00 073613
0 00 063775
0 00 073616
0 00 000001
0 00 000001
16 061033
0 00 063777
260 17 0 00 063677
005 00 0 00 073617
262 17 0 00 000002
262 17 0 00 000001
254 00 0 00 067640
260 17 0 00 063532
005 00 0 00 073622
254 00 0 00 064014
607 15 0 00 000004
2o< 17 0 00 000000
260 17 0 00 063677
005 00 0 00 073625
263 17 0 00 000000
tTPE: RFC
FAULT4
JUMPE
I OR
MOVMS
ADD
ADDM
JUMPE
; Backspace one
$TPB: BSR
FAULT4
$TPB1: GET
GET
SKPRTN
; Rewind tape
$TPZ: GO
FAULT4
JRST
<RFC FAILED>
$TP1
[-1819]
B
B
TAPECC(CNTRL)
$TPX
<BSR FAILED>
C
B
SREU
<REW FAILED>
STPBl
read frame counter
jump if all records passed
extend sign
make B +
find number of records passed
update current position counter
take exit
backspace one record
get back register C
get back B
exit good
rewind tape unit
exit
Backspace for random data TESTG - called from REGEN
$TPB2: TLNN DEV,4
RTN
BSR
FAULT4 <BSR FAILURE>
RTN
continue if TU16
exit if RP04
backspace one record
exit
SEQ 0357
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:536(1242) U:G7 21-Aug-85 Page 260
DFSXAM MAC 29-Jul-85 11 :44 SYSTEM GENERATOR
SEQ 0370
SEQ 0357
DFSXA
DFSXAM
11830
11831
11832
11833
1183A
11835
11836
11837
11838
11839
118A0
118A1
118A2
118A3
118AA
118A5
118A6
118A7
118A8
118A9
11850
11851
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VEK 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 260
MAC 29-JUL-85 11:44 SYSTEM GENERATOR
.ffHlilil,********* ******************************* ************************
':* $TPW - Check for rewind state . .
;* This drive must rewind if it is writina.
;* First record selection and drive is selected.
.01,***************************************************************** *
SEQ 0370
064027
064030
064031
064032
064033
064034
064035
064036
064037
064040
064041
064042
064043
064044
200 00
305 00
254 00
200 00
301 00
254 00
260 17
263 17
254 00
332 00
254 00
260 17
263 17
254 00
0 16 061017
0 00 000162
0 00 064040
0 16 061033
0 00 000162
0 00 067640
C 00 064045
0 00 000000
0 00 067640
0 16 061017
0 00 067640
0 00 063532
0 00 000000
0 00 067640
$TPW:
$TPUl
MOVE
CAI6E
JRST
MOVE
CAIL
SKPRTN
60
RTN
SKPRTN
SKIPE
SKPRTN
GO
RTN
SKPRTN
TAPEDC(CNTRL)
get desire post ion
162
skip if beyond EOF
$TPW1
if not - go check for rew
TAPECC(CNTRL)
get current tape positon
162
skip if must be positioned
• ok - return
$PEF
• attempt to position to EOF
; error
; ok
; skip if must rewind
TAPEDC(CNTRL)
; ok - then exit
$REW
; issue rewind
; error on rewind
; ok
state
SEQ 0358
DFSXA DECSYSTEM KLiO rHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 261
DFSXAM MAC 29-JuL-85 11:44 SYSTEM GENERATOR
SEQ 0371
SEQ 0358
DFSXA
DFSXAM
11852
11853
11854
11855
11856
11857
11858
11859
11860
11861
11862
11863
1186A
11865
11866
11867
11868
11869
11870
11871
11872
11873
1187A
11875
11876
11877
11878
11879
11880
11881
11882
11883
DECSYSTEM KLIO rHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X538(1242) U:07 21-Aug-85 Page 261
MAC 29-Jul-85 11:AA SYSTEM GENERATOR
•#***«******************♦**************♦******************************
;* $PEF - Find logical EOF and position beyond mark ........
J #♦***************************♦**************** ***********************
SEQ 0371
06A0A5
06A0A6
06A0A7
06A050
06A051
06A052
06A053
06A05A
06A055
06A056
06A057
06A060
06A061
06A062
06A063
06A06A
06A065
06A066
06A067
06A070
06A071
06A072
06A073
06A07A
06A075
06A076
06A077
261 17
202 05
A02 00
201 06
201 00
260 17
300 00
201 00
260 17
005 00
201 00
260 17
005 00
260 17
005 00
606 00
25A 00
350 00
602 00
350 00
313 06
25A 00
262 17
306 05
350 00
2u.' 05
263 17
0 00 000006
0 00 075022
0 00 000005
0 00 000162
0 00 000011
0 00 0A30AA
0 00 000000
0 00 Mini
0 00 0A3110
0 00 070355
0 00 000031
0 00 0A30AA
0 00 070360
0 00 0A31 77
0 00 0702A7
0 00 000200
0 00 06A062
0 16 061033
0 00 OOOOOA
0 00 000005
0 16 061033
0 00 06A051
0 00 000006
0 00 000002
0 17 000000
0 00 075022
0 00 000000
$PEF:
$PEF1
PUT
MOVEM
SETZM
MOVE I
MOVE I
UCR
CAI
MOVE I
UFC
FAULTA
MOVE I
UCR
FAULTA
RDS
FAULTA
TRNN
JRST
AOS
TRNE
AOS
CAMLE
JRST
GET
CAIN
AOS
MOVE
RTN
GOOD
BAD, TEMP
BAD
GOOD, 162
CLEAR
U7777
<WFC FAILED>
SPFWDR
<UCR FAILED>
<RDS FAILED>
DRY
.-3
TAPECC(CNTRL)
EOF
BAD
GOODJAPECC(CNTRL)
$PEF1
GOOD
BAD, 2
(P)
BAD, TEMP
save good
save bad
clear bad
set limit to search
get drive clear
issue
filler
Jet record # = -1
oad frame counter
get space forward command
issue
get status
skip on ready
wait
correct current positon
skip if no tape mark
update bad ^ , . .
skip if tape position passed limit
repeat commano
get good back
skip if more than 2 tries
setup skip return
get bad back
exit
SEQ 0359
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO J!53B(12A2) 1A:07 21-Aug-85 Page 262
DFSXAM MAC 29-Jul-85 11 :AA SYSTEM GENERATOR
SEQ 0372
SEQ 0359
A02 00
260 17
005 00
200 00
260 17
005 00
201 00
260 17
005 00
254 00
0 00 000000
0 00 043110
00 070355
00 075021
00 043143
00 070366
00 000005
00 043044
00 070360
00 063614
0
0
0
0
0
0
0
0
OFSXA DECSYSTEM KLiO CHANNEL/DTE20
OFSXAM MAC 29-Jul-85 11:44
11884
11885
11886
11887
11888
11889 064100
11890 064101
11891 064102
11892 064103
11893 064104
11894 064105
11895 064106
11896 064107
11897 064110
11898 064111
11899
11900
11901
11902
11903
11904 064112
11905 064113
11906 064114
11907 064115
11908 064116
11909 064117
11910 064120
11911 064121
11912 064122
11913 064123
11914 064124
11915 064125
11916 064126
11917 064127
11918 064130
11919 064131
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 262
SEQ 0372
201 00
260 17
005 00
201 00
260 17
005 00
260 17
005 Ov
606 00
254 CO
6u-^ 00
005 00
201 00
260 17
005 00
263 17
0 00 000011
0 00 043044
0 00 070360
0 00 000025
0 00 043044
0 00 070360
0 00 043177
0 00 070247
0 00 000200
0 00 064120
0 00 040000
00 073630
00 000011
00 043044
00 070360
00 000000
•#♦**»***********♦****♦♦♦*♦*******************************************
;* IDSEK - Perform seek on RP04 ...^.^x******
.****»»****************♦♦********♦******************♦*****************
SDSEK: SETZM
WFC
FAULT4 <WFC FAILED>
MOVE SYS.C
WDC
FAULT4 <WDC FAILED>
MOVEI SEEK
WCR
FAULT4 <WCR FAILED>
JRST $DVWT
• r I Pdr ACO
; load the track and sector register
; get cylinder address
; load it
; get seek command
; issue the space command
; wait for completion
;• CLNTAP - Clean spot on tape
CLNTAP: MOVEI CLEAR
WCR
FAULT4 <WCR FAILFD>
MOVEI 25
UCR
FAULT4 <WCR FAILED>
RDS
FAULT4 <RDS FAILED>
TRNN DRY
JRST .-3
TRNE CERR
FAULT4 <ERASE ERROR - CLNTAP>
MOVEI CLEAR
UCR
FAULT4 <UCR FAILED>
RTN
get drive clear command
issue the command
get erase command
issue the erase
get status
wait for ready
loop until ready
skip if no error
SEQ 0360
r"
OFSXA
DFSXAM
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 263
MAC 29-Jul-85 11:44 SYSTEM GENERATOR
SEQ 0373
4 4 r\^f\
SEQ 0360
200 00
602 00
25A -
200
00
15 0
607 15 0
25A 00 0
336 00
25A
260
00
17 0
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
OFSXAM MAC 29-JuL-85 11:44
11920
11921
11922
11923
11924
11925
11926
11927
11928
11929
11930
11931
11932
11933
11934
11935
11936
11937
11938
11939
11940
11941
11942
11943
11944
11945
11946
11947
11948
11949
11950
11951
11952
11953
11954
11955
INTERACTION TEST - VER
SYSTEM GENERATOR
0,7 MACRO 2536(1242) 14:07 21-Aug-85 Page 263
SEQ 0373
064132
064133
064134
064135
064136
064137
064140
064141
064142
064143
064144
064145
064146
064147
064150
064151
064152
064153
064154
064155
064156
064157
064160
064161
064162
064163
064164
064165
064166
064167
064170
005 00 0
606 00 0
254 00 0
350 00 0
201 00 0
260 17 0
005 00 0
260 17 0
260 17 0
201 00 0
00
434
256 00
200 00
260 "
005 00
550 01
2mJ
402 00
402 00
200 00
260 17
263 17 0
0
0
0
17 0
0
0
01 0
0
0
0
0
00
00
00
16
00
00
16
00
00
00
00
00
16
00
00
00
00
00
00
00
16
16
00
00
00
00
01
01
16
00
00
030046
200000
067640
06075?
000004
067640
060767
067640
043211
070375
100700
067640
044055
00001 1
043044
070360
063712
064112
005610
075005
043570
060767
043110
070355
000016
000002
377001
377002
061003
042777
000000
;* BSRCLN - Repo
»*»****t***»*»**»****»* **************** *♦***•*****♦***
siti'on tape & clean if write errors
BSRCLN:
MOVE
TRNE
SKPRTN
HOVE
TLNN
SKPRTN
SKIPN
SKPRTN
RER
FAULT4
TRNN
SKPRTN
AOS
MOVE I
UCR
FAULT4
60
60
MOVE I
I OR
.CONO
HOVE
WFC
FAULT4
HRRZ
LSH
SETZM
SETZM
MOVE
USTCR
RTN
CONSU
1819
DEV,CHNDEV(CNTRL)
DEV,4
CHNBAR(CNTRL)
<RER FAILED>
CRC+NSG+LRC+INC
WTRIES(CNTRL)
CLEAR
get switches
skip if not inhibited
exit
get device code
skip if TU16
if RP04-exit
skip if writing
exit if reading
fetch error register
skip if media failure
if not-exit
update * of write retries
get drive clear
issue
do backspace
clean 3 inches
get init bits
<WCR FAILED>
$SP8SR
CLNTAP . --
XECLR+DNCLR+RCLPA+RAECLR+MBE
PILVL . . . ^n
; init RH20
CHN8AR(CNTRL) ; get frame count
; load frame counter
<UFC FAILED>
B,CNTRL
B,2
ICCW+KB)
ICCW+2(B)
CHNTCR(CNTRL)
get controller number into AC1
convert to channel index
clear status word 1
clear status word 2
get command
load it up and start write
exit
SEQ 0361
DFSXA
DFSXAH
DECSYSTEH KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO »53B(1 242) 14:07 21-Aug-85 Page 1
POR5-Jun-83 12:52 NI/CI PORT HICROCODE AND RELATED ROUTINES
ciiDTTi wi/ri DODT MirRnrnnp ANn RFi ATFD ROUTINES
SEQ 0374
SEQ 0361
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
DFSXAM POR 5-Jun-83 12:52
11956
11957
11958
11959
11960
11961
11962
11963
1196A
11965
11966
11967
11968
11969
11970
11971
11972
11973
1197A
11975 06A171
11976 06A172
11977 06A173
11978 06A17A
11979 06A175
11980 064176
11981 064177
11982 064200
11983
11984 064201
11985 064202
11986 064203
11987 064204
11988 064205
11989 064206
11990 064207
11991 064210
11992 0642^1
11993
11994
11995
11996 064212
11997 064213
11998 064214
11999 064215
12000 064216
12001
12002
12003
12004 064217
12005 064220
402 00
260 17
255 00
476 00
260 17
263 17
350 00
263 17
0 00 075002
0 00 064201
0 00 000000
0 00 075002
0 00 064201
0 00 000000
0 17 000000
0 00 000000
476
261
2c'
261
261
261
201
201
256
00
17
17
17
17
17
04
00
00
0 00 075003
0 00 000000
0 00 000001
0 00 000002
0 00 000003
00 000004
00 064325
00 400000
16 043570
200 02 0 04 000000
316 02 0 00 073635
254 00
200 03
00 064263
04 000001
254 00 0 00 064217
135 00 0 00 073636
202 00 0 00 074763
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
NI/CI PORT MICROCODE AND RELATED ROUTINES
SUBTTL NI/CI PORT MICROCODE AND RELATED ROUTINES
fft nil* t******************* ********************************************
* IPALOD - Load microcode and verify it
SEQ 0374
Returns:
+1 - Error occurred loading/verifying microcode
+2 - Ok
Microcode format: The microcode is given in 2 word segments
(specifying address and 60 CRAW bits). The ucode is in a
table beginning at the address given in AC1. The end of
this table is indicated by a word containing -1.
Word 1: Bits 00-11 - Microword load .ddress (0000-7777)
12-35 - Bits 0-23 of microword to load
Word 2: Bits 00-34 - Bits 24-57,59 of microword to load
35 Force Bad Parity flag
0t********************************************** *********************
IPALOD: SETZM
GO
JFCL
SETOM
GO
RTN
AOS
RTN
IPACOM: SETOM
PUT
PUT
PUT
PUT
PUT
MOVE I
MOVE I
LDCSR
MVFLA6*
IPACOM
MVFLA6
IPACOM
(P)
MVNUM*
0
1
2
3
4
4.IPAMIC
PCLEAR
; Load microwords
IPACOO: MOVE
CAMN
JRST
MOVE
JRST
2.(4)
2.[-n
IPACOX
3.1(4)
IPAC01
; Load bits 0-29
IPAC01: LDB
MOVEM
[POINT 12.2.11]
CADDR#
clear verify flag
load microcode
error - ignore
set verify flag
verify microcode
error - return
set up proper return
return
init number of verify errors
save some AC's
get address of table in AC4
get 'port clear' bit
write to CSR register
get first word
end of list?
yes - exit
get second word
go load word
get actual CRAM load address
save address
SEO 0362
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 2
DFSXAM POR 5-Jun-83 12:52 NI/CI PORT MICROCODE AND RELATED ROUTINES
SEQ 0375
1/ T An n r\r\ nnnnm
i CM
1
convert to address for_RAR
SEO 0362
DFSXA
DFSXAM
12006
12007
12008
12009
12010
12011
12012
12013
120U
12015
12016
12017
12018
12019
12020
12021
12022
12023
1202A
12025
12026
12027
12028
12029
12030
12031
12032
12033
1203A
12035
12036
12037
12038
12039
120A0
120A1
120A2
120A5
120AA
12045
120A6
120A7
120A8
120A9
12050
12051
12052
12053
1205A
12055
12056
12057
12058
12059
DECSYSTEW <L10 CHANNEL/DTE20
POR 5-Jun-83 12:52
INTERACTION TEST - VER 0.7 MACRO J:53B(12A2) K:07 21-Aug-85 Page 2
NI/CI PORT MICROCODE AND RELATED ROUTINES
SEQ 0375
06A221
06A222
06A223
06A22A
06A225
06A226
06A227
064230
064231
064232
064233
064234
064235
064236
064237
064240
242 00
660 00
202 00
260 17
200 01
621 02
246 02
242 03
622 03
660 03
260 17
200 00
621 00
336 00
256 00
332 00
00 000001
00 000001
00 075014
00 043456
00 000003
00 777700
00 000006
00 mm
00 000002
00 000001
00 064273
00 000002
00 770000
, 00 075002
0 16 043467
0 00 075002
064241 260 17 0 00 073637
064242
064243
064244
064245
064246
064247
064250
064251
064252
064253
064254
064255
064256
064257
064260
064261
064262
064263
064264
064265
064266
064267
064270
064271
064272
200 00
620 00
260 17
200 00
621 00
336 00
256 00
3i- 00
254 00
256 00
621 00
202 00
316 02
312 03
350 01
0 00
0 00
0 00
00
00
00
16
0 00
00
16
00
00
00
00
00
075014
000001
043456
000003
770000
075002
043467
075002
064261
043504
770000
074770
074767
074770
075003
271 04 0 00 000002
254 00 0 00 064212
337 00 0 00 075003
350 00 0 17 nni'^
2b2 17 0 00 000004
262 17 0 00 000003
262 17 0 00 000002
262 17 0 00 000001
262 17 0 00 000000
263 17 0 00 000000
\\l
1
MOVEM
SAVRAR*
LDRAR
MOVE
1.3
TLZ
2,777700
LSHC
?'^
LSH
3.-6
TR2E
3.2
TRO
3.1
GO
CALPAR
MOVE
2
TLZ
770000
SKIPN
MVFLA6
.DATAO
SKIPE
MVFLAG
60
[.DATAI __^
TLZ 770000
MOVEM CUORDL*
RTN3
Load bits 30-
59
MOVE
SAVRAR
TRZ
1
LDRAR
MOVE
3
TLZ
770000
SKIPN
MVFLAG
.DATAO
SKIPN
MVFLAG
JRST
IPAC02
.DATAI
TLZ
770000
MOVEM
CUORDRf
CAMN
2.CW0RDL
CAME
3.CW0RDR
AOS
1 .MVNUM
Point to nexl
: microword
>AC02: ADDI
4.2
)RST
IPACOO
Done
'ACOX: SKIPG
MVNUM
AOS
-5(P)
GET
4
GET
3
GET
2
GET
1
GET
0
RTN
convert to address for RAR
set bit 12 (for left 30 bits)
save address loaded
load RAR with it, . , ^, ^
get word 2 (has 'bad panty' flag)
now AC2 has CRAM bits 0-23 ^ ^ ,,,
now get bits 0-30 in AC2 (left half)
right justify AC3 (right half)
bit 59 set?
yes - set rightmost bit
calculate parity
get left 3D bits
clear leftmost 6 bits
load?
yes - load it
verify?
yes - read CRAM
clear leftmost 6 bits
save it
get RAR address (for left 30 bits)
clear bit 12 (for right 30 bits)
load address
get right 30 bits
clear leftmost 6 bits
load?
yes - load it
load?
yes - next location
yes - read CRAM
clear leftmost 6 bits
save it
valid data?
get error count
increment by 2
loop till done
any verify errors?
no - set up RTN+2
restore AC s
return
SEQ 0363
DFSXA
DFSXAM
nPfiYSTFM KL 10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3;53B(1242) 14:07 21-Aug-85 Page 3
POR 5-Jun-83 12:52 NI/CI PORT MICROCODE AND RELATED ROUTINES
SEQ 0376
SEO 0363
DFSXA
DFSXAM
12060
12061
12062
12063
1206A
12065
12066
12067
12068
12069
12070
12071
12072
12073
12074
12075
12076
12077
12078
12079
12080
12081
12082
12083
1208A
12085
12086
12087
12088
12089
12090
12091
12092
12093
1209A
12095
12096
12097
12098
12099
12100
12101
12102
12103
12104
12105
12106
12107
12108
DFCSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 3
POR 5-Jun-83 12:52 NI/CI PORT MICROCODE AND RELATED ROUTINES
#»**»•»*»♦••»••**•******♦•**•**•*•****•***•***♦*•*••**•*•*■**********
* CALPAR - Calculate parity for a CRAM location
SEQ 0376
064273
261 17
064274
261 17
064275
261 17
064276
261 17
064277
402 00
064300
602 03
064301
476 00
064302
620 03
064303
400 04
064304
200 05
064305
210 06
064306
632 05
064307
344 04
064310
2uJ 05
064311
210 06
064312
632 05
064313
344 04
064314
064315
064316
064317
064320
064321
06432?
06432:
064324
0 00 000004
0 00 000005
0 00 000006
0 00 000007
0 00 074764
0 00 000001
0 00 074764
0 00 000001
0 00 000000
0 00 000002
0 00 000005
0 00 000006
0 00 064305
0 00 000003
0 00 000005
0 00 000006
0 00 064311
606 04 0 00 000001
431 02 0 00 400000
332 00
660 03
262 17
262 17
,• 17
, . 17
00 074764
00 000001
00 000007
00 000006
00 000005
00 000004
00 000000
Arquments: AC1 - Contains 2nd word of microword as put together
^ by the microword macro MWORD. This is only used
to look at bit 35 which is a flag specifying bad
AC2 - Bits 0-29 (Right justified)
AC5 - Bits 30-59 (Right justified)
Function: Calculate good parity and insert into Bit 12 of the
microword which is Bit 18 in AC2.
Return: +1 always. AC's are unmodified, except bit 18 of AC2.
CALPAR I
PUT
PUT
PUT
PUT
SETZM
TRNE
SETOM
TRZ
SETZ
HOVE
MOVN
TDZE
AOJA
MOVE
MOVN
TDZE
AOJA
4
5
6
7
CALMAR#
3.1
CALMAR
3,1
':|
6.5
5-6 ,
4. .-2
5,3
6,5
5.6 ^
4. .-2
save AC'S
clear MARK bit location
MARK bit set?
yes - note the fact
ensure MARK bit is zero
clear count of number of 1's
get left half
calculate number of 1 's
get right half
calculate number of 1 's
Now, the parity is even if bit 35 of AC4 is zero, and odd if bit 35 set
TRNN
XORI
Done - exit
SKIPE
TRO
GET
GET
GET
GET
RTN
4.1
2.400000
CALMAR
V
6
5
4
; bit 35 set?
; no - complement bit 18
MARK bit set initially?
yes - set it now
restore AC's
return
L_
SEQ 0364
DFSXA
DFSXAM
niAO
^'''''^^y^Tt^Sr''' ''*'^fA'^^'Vm<^^i'iL^^rW%^m^''^^ ''"*"''" '"' '
SEQ 0377
SEQ 0364
nF«ii(A DFCSYSTFM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page A
DFSXAM POR5-jin-g3 12:52 NI/CI PORT MICROCODE AND RELATED ROUTINES
SEQ 0377
12109
12110
12111
12112
12113
12114
12115
12116
12117
12118
12119
12120
12121
12122
12123
12124
12125
12126
12127
12128
12129
12130
12131
12132
12133
12134
12135
12136
12137
12138
12139
12140
12141
12142
12143
12144
12145
12146
12147
12148
12149
12150
12151
12152
12153
12154
12155
12156
12157
12158
12159
12160
12161
12162
12163
064325
064327
064331
064333
064335
064337
064341
064343
064345
064347
064351
064353
064355
064357
064361
064363
064365
064367
064371
064373
064375
000000
000100
000200
000300
000400
000500
010000
020000
030000
040000
050000
060000
000600 060000
000700 070000
OulOOO 110000
001100
001200
001300
001400
001500
001600
001700
002000
002100
002200
002300
002400
320440
120000
320450
140000
000200
000000
210000
170000
500010
220000
250000
230000
♦ NI/CI Port microcode
R5 - Data word
R6 - Command
R7 - 377 mask
RIO - EBUS buffer address
R11 - CBUS buffer address ^^, ^.^
R12 - lOP function word (Examine EBUS)
R13 - lOP function word (Deposit EBUS)
R14 - Word count
R15 - Last EBUS transfer word
R16 - RESQAV bit
017 •. MWRFRR bit
Reset the 2910 stack
I PANIC: MUORD
MUORD
nUORD
MUORD
MUORD
MUORD
<ADDR=0,JMAPJ=1,S0A,AND.B=5.D=2>
<CJPP,J=2,S0A,AND,B=6.D=Z>
<CJPP.J=3,S0A,AND,B=10,D=2>
<CJPP,J=4,S0A,AND,B=11,D=2>
<CJPPJ = 5,S0A,AND,B=14,D=2>
<CJPP.J=6,S0A.AND,B=12,D=2>
Build 377 mask
<LDCT,J=6,S0B,AND,B=7.D=2>
<RPCT,J=7, SOB, PLUS. B=7.D=7^CRY>
<JMAP,J=l1,S0B,PLUS,B=7,D=2,CRY>
MUORD
MUORD
MUORD
Build lOP masks (into R12,R13)
MUORD <LDCT,J=32,SD0,OR,D=2,B=12,SKCN,MGC=440>
MUORD <RPCT,J=12,S0B,OR,D=7,B=12> ^ ^ ,^„
MUORD <LDCT:j=32,SD0,OR,D=2,B=13,SKCN,MGC=450>
MUORD <RPCT,J=14,SOB,OR,D=7,B=13>
Build RSPQAV,MVRERR bits (into R16,R17)
0
1
2
3
4
5
6
7
10
11
12
13
14
MUORD
MUORD
<CONT,SDA. AND, A=7, 8=16, D=2,SKCN,MGC=200>; 15
" : 1 6
<C0NT',S0A,0R,A-16,B=17,D=7>
Read EBUS address (into RIO)
MUORD
MUORD
MUORD
MUORD
<cjp,j=21,cena,ccer>
<ldct;j=50,sdo,or,b=io,d=2,sele,mgc=io>
<RPCT,J=22>
Read CBUS address (into RID
MUORD <CJP,J=25.CENA,CCER>
MUORD <JMAP,J=25>
17
20
21
22
23
24
DFSXA )ECSYSTEM KLIO CHANNEL/DTE20
DFSXAM ^OR 5-Jun-83 12:52
1216^,
12165
12166
12167
12168
12169
12170
12171
12172
12173
121 74
12175
12176
12177
12178
12179
12180
12181
12182
12183
12184
12185
12186
12187
12188
12189
12190
12191
12192
12193
12194
12195
12196
12197
12198
12199
12200
12201
12202
12203
12204
12205
12206
12207
12208
12209
12210
12211
12212
12213
12214
12215
12216
12217
12218
J64377
064401
064403
064405
064407
064411
064413
064415
064417
064421
064423
064425
002500
002600
002700
003000
003100
003200
003300
003400
003500
003600
003710
004011
064427
064431
064433
064435
064437
064441
064443
064445
064447
064451
064453
064455
064457
064461
500010
260000
310000
270000
500010
320000
350000
330000
500010
360000
000000
000000
100010
luJllO
100210
100310
100410
100500
100610
100710
101010
101100
101200
101300
101400
101500
010100
000000
020000
000020
040000
100200
060000
110000
070000
000004
000200
000000
000000
000000
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 4-1
NI/CI PORT MICROCODE AND RELATED ROUTINES
MUORD <LDCT,J=50,SD0,OR,B=11,D=2,SELE,M6C=10> ; 25
MUORD <RPCT,J=26> ; 26
; Read transfer length (into R4)
MUORD <CJP,J=31.CENA,CCERi ; 27
» $ffi?;i=iS:SD0.OR.B=4.D=2.SELE.«GC-1O> ':
MWORD <RPCT,J=32> ; 32
; Read command (into R6)
MWORD <CJP,J=35,CENA,CCER> ; 33
MUORD <LDCT;j=5O,SD0,OR.8=6.D=2.SELE,M6C=10> ; 35
MUORD <RPCTJ=36> ; 36
Decode command (0 - write (CBUS to EBUS)
;. 1 - read (EBUS to CBUS))
MWORD <CJP,J=1000.SOA,OR,A=6,CENA,CCFZ> ; 37
MUORD <JMAP.J=1100> ; ^0
• ;^**** ********* ***♦*****-****************♦■**'**************************
• URITE COMMAND
'•;>*****************<***************************************************
SEQ 0378
Initialize CBUS, etc.
MUORD <ADDR•-1000.J^^.V^J=1001 ,SELC-MGC=100>
MUORD <LDCT,J=1000,S0B,AND,D=2,B=14>
MUORD <RPC1,J=1002>
MUORD <LDCT,J=1000,SELM,MGC=20>
MUORD <RPCT,J=1004>
Issue START CBUS
MUORD <LDCT,J=10,SELC,M6C=200>
MUORD <RPCT,J=1006>
Look for word available
MUORD <CJP,J=1011,CENA,CCCA>
MUORD <JMAP,J=1007>
Read into R5
MUORD <C0NT,SELC,MGC=4>
MUORD <CONT,SD0,OR,B=5,D=2,SELM,MGC=200>
Urite to EBUS
MUORD <CONT,S0A,OR,A=13,D=2>^
MUORD <CONT, SAB, PLUS, A=!0,D=2>
MUORD <CONT, SAB, PLUS, A=14,D=2>
1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
DFSXA
DFSXAM
^^'"''^v^^.ifr^'s?''"' '~^55??rfflR{'sicSo?5SE''AjD''s^ESTiP§^ift^^s^^^°' ''-'"'■'' "''' '-'
'i/\1/AA AA'^AA/
Munor* ^rnwT cnA nP R=1«; r)=?.nFNA.SFLE.MGr=4>
1016
SEQ 0379
OFSXA
DFSXAM
12219
12220
12221
12222
12223
1222A
12225
12226
12227
12228
12229
12230
12231
12232
12233
12234
12235
12236
12237
12238
12239
12240
12241
12242
12243
12244
12245
12246
12247
12248
12249
12250
12251
12252
12253
12254
12255
12256
12257
12258
12259
12260
12261
12262
12263
12264
12265
12266
12267
12268
12269
12270
12271
Mill
12273
DECSYSTEM KLIO CHANNEL/DTE20
POR 5-Jun-83 12:52
INTERACTION TEST - VER 0,7 MACRO li;53B(1242) 14:07 21-Aug-85 Page 4-2
NI/CI PORT MICROCODE AND RELATED ROUTINES
SEQ 0379
064463
064465
064467
064471
064473
064475
064477
064501
064503
064505
064507
064511
101600
101700
102010
102110
102200
102304
102410
102530
102630
102710
103020
103110
064513
064515
064517
064521
064523
064525
064527
064531
064533
064535
064537
064541
064543
064545
064547
064551
064553
064555
064557
064561
002004
000001
220000
200000
002004
000020
240000
000000
000000
070000
000000
070000
110011
110110
110211
110310
110411
I I J500
110611
110711
111011
111100
111200
111300
111400
111500
111611
111711
112004
112111
112200
112300
010100
000000
020000
000020
040000
100220
060000
110000
070000
000000
000000
000000
002004
000001
200000
160000
000010
210000
002040
000002
muord <cont,s0a,or,b=15.d=2,oena,sele,m6r=4>
Sword <cont,sob,plus,b=14,d=2,cry.sele,mgc=i>
muord <cjp,j=1022.cena,ccer>
mword <jmap,j=1020> ^ _, ,
mword <cont,s0a.or,a=5.oena.sele,m6c=4>
mword <ldctj=400,sele.mgc=20>
mword <rpct,j=1024>
Check for error
MWORD <CJP,J=3000.CENA,CCCE>
MWORD <CJP,J=3000,CE.M,CCCP>
MWORD <CJP,J=1007,CENA,CCCA>
MWORD <CJP,J=2000.CENA,CCLW>
MWORD <JMAP,J=1007>
1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
•#♦•*********•*****♦**************************************************
' READ COMMAND
'/^************************************************************ ********
; Initialize CBUS, etc.
MWORD <ADDR=1100.JMAP,J=1101,SELC,M6C=100> ; 1100
MWORD <LDCT,J=1060,S0B,AND,D=2,B=14> ; 101
MWORD <RPCTJ=1102> ^„ ; ] 02
MWORD <LDCT,J=1000,SELM,M6C=20> ; 03
MWORD <RPCT,J=1104> ; 1104
Issue START CBUS
MWORD <LDCT,J=10.SELC,M6C=220> ; 1105
MWORD <RPCT,J=1106> ; 1106
; Look for ready for word
MWORD <CJP,J=1111.CENA,CCCA> ; 1107
MWORD <JMAP.J=1107> ; lilO
; Read into R5
MWORD <CONT.S0A,OR,A=12,D=2>^ ; 1111
MWORD <C0NT. SAB, PLUS, A=i0,D=2> ; 2
MWORD <CONT, SAB, PLUS, A=14,D=2> , ; 1113
MWORD <CONT SOA 0R,B=15,D=2,0ENA,SELE,M6C=4> ; 4
MWORD <C0NT,S0B.PLUS,B=l4,D=2,CRY,SELE,MGC=1> ; 5
MWORD <CJP,J=11^0,CENA,CCER> ; 16
Sffig $^l'3??:J=11J SD0,OR,B-5,D-2,SELE,MGC=1O> \ 1
MWORD <RPCT,J=112l> ; 1121
Write to CBUS
MWORD <CONT,S0A,OR.A=5,OENA,SELF,MGC=40> ; 1122
MWORD <C0NT.SELC,MGC=2> ; 1123
SEQ 0367
DFSXA
DFSXAM
DFfSYSTFM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 4-3
POR 5-Jun-83 12:52 NI/CI PORT MICRCIODE AND RELATED ROUTINES
rhprlf fnr prror
SEQ 0380
SEQ 0367
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
DFSXAM POR 5-Jun-83 1?:52
INTERACTION TEST - VER 0,7 MACRO J:53B(12A2) U:07 21-Aug-85 Page 4-3
NI/Cl PORT MICRC-ODE AND RELATED ROUTINES
SEQ 0380
12274
12275
12276
12277
12278
12279
12280
12281
12282
12283
12284
12285
12286
12287
12288
12289
12290
12291
12292
12293
12294
12295
12296
12297
12298
12299
12300
12301
12302
12303
12304
12305
12306
12307
12308
12309
12310
12311
12312
12513
12314
12315
12316
12317
12318
12319
12320
12321
12322
12323
12324
12325
12326
12327
12328
064563
064565
064567
064571
064573
064575
064577
064601
064603
064605
064607
064611
064613
064615
064617
064621
064623
064625
064627
064631
064633
064635
112430 000000
112530 OOOQOO
112611 070000
112720 000000
200uK
200120
200210
200320
200400
200520
200620
200700
201000
201120
064637
064641
064643
300010
300130
300200
300330
300430
300500
300600
300730
000000
010000
000140
030000
002004
070040
050000
000200
000002
110000
000140
010000
002004
050040
030000
000200
000002
070000
400040 002004
400140 012004
400240 022004
Check for error
MWORD <CJP,J=3000,CENA,CC'"E>
MWORD <CJP,J=3000,CENA,CCCP> ^, _^,
MWORD <CJP;j=1107.SAB,AND,A=4,B=14,CENA,CCFZ>
MWORD <JMAPJ=2000>
1124
1125
1126
1127
01,1,1,1,1,1,1,11***** *********************************************** ********
OK - All done - set STOP and STORE
01,1,1,1,****************************************************************
MWORD <ADDR=2000.LDCT,J=1000>
MWORD <RPCT,J=2001>
MWORD <LDCT,J=1000,SELC,MGC=140>
MWORD <RPCT.J=2003>
Write bit 'RspQAV in CSR to indicate done
MWORD <CONT,S0A,A=16,0R.OENA,SELE,MGC=4>
MWORD <CJP,J=2007.CENA.CCGC,SELE,MGC=40>
MWORD <JMAP.J=2005>
MWORD <C0NT,S0A,A=1,0R,D=l,SELE,i%C=200>
Request interrupt
MWORD <C0NT.SELE.MGC=2>
MWORD <JMAP,J=20ll>
2000
2001
2002
2003
2004
2005
2006
2007
2010
2011
01,1,1,*****************************************************************
Error - All done - set STOP and STORE
01,1,******************************************************************
MWORD <ADDR=3000ADCT,J=1000,SELC,MGC=140> ; 3000
MWORD <RPCT,J=3001> ; 3001
Write bit 'RspQAV* in CSR to indicate done
MWORD <C0NT.S0A.A=16,0R,0ENA,SELE,MGC=4> ; 3002
MWORD <CJP,J=3065,CENA.CCGC,SELE.MGC=40> ; 3003
MWORD <JMAP,J=3003> ,„„ ; 3004
MWORD <CONT,SOA.A=1,OR,D=1,SELE,MGC=200> ; 3005
Request interrupt
MWORD <C0NT,SELE.MGC=2> ; 3006
MWORD <JMAP,J=3007> ; 3007
01,1,1,*****************************************************************
Utility routines to read 2901 registers ^^^^^^
0i,i,i,t********* **************************************** ''**************
MWORD <ADDR=4000,JMAP,J=4000,SOA-OR,D=1.A=0,OENA.SELE,MGC=4>
MWORD <JMAP.J=4061,SOA.OR,D=1.A=1,OENA.SELE,M6C4>
MWORD <JMAP J=4002,SOA,OR,D=1,A=2,OENA.SELE,MGC=4>
SEQ 0368
r
DFSXA
DFSXAM
?ES^"^^^!iiiS-Sf??f^^"'"° "'^S!?^I'?&,}^§!clio?^gE''*^o''S^E2Tl§'§a?tSJs'^^" ''■*"'-" "'' '-'
i-iT-in Az./^/c /f\mj.r\ f\xo(\f\/.
MunRn <JMAP.J=4O03.S0A-OR-D=l.A=3.0ENA,SELE,MGC=4>
SEQ 0381
SEO 0368
DFSXA DECSYSTEn KLiO CHANNEL/DTE20
DFSXAM POR 5-Jun-83 12:52
INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page A-A
NI/CI PORT MICROCODE AnD RELATED ROUTINES
SEQ 0381
0646A5
06A6A7
06A651
064653
06A655
06A657
06A661
06A663
064665
064667
064671
064673
064675
064677
064701
400340
400440
400540
400640
400740
401040
401140
401240
401340
401440
401540
401640
401740
402040
777777
032004
042004
052004
062004
072004
102004
112004
122004
132004
142004
152004
162004
172004
202004
mm
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
MUORD
-1
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
<JMAP
J=4003,SQA.OR,D=
J=4Q04,SOA,OR,D=
J=4005,S0A.OR,D=
J=4006,S0A,OR.D=
J=4007,S0A,OR,D=
J=4010.S0A,OR,D=
J=4011,S0A,OR,D:
J=4012.S0A,OR,D=
J=4013,SOA.OR,D:
J=4014,S0A,0R,D=
J=4015.S0A,OR,D=
J=4016.S0A,OR,D:
J=40I7,SOA.OR.D:
J=4020.S0A,OR,D^
:1,A=3,0ENA,SELF,f1GC=4>
:1,A=4,0ENA,SELE,M6C=4>
:1,A=5,OENA,SELE.MGC=4>
:1,A=6,0ENA,SELE,MGC=4>
:1.A=7.0ENA.SELE,MGC=4>
:l,A=l6,0ENA.SELE,MGC=4>
:1,A=11,0ENA,SELE,MGC=4>
=1,A=12.0ENA.SELE.MGC=4>
:1,A=13,0ENA,SELE,MGC=4>
M,A=14.0ENA,SELE,MGC=4>
=1,A=15.0ENA.SELE,MGC=4>
=1.A=16,0ENA,SELE.MGC=4>
=1,A=17,0ENA.SELE,MGC=4>
=1.A=20,0ENA,SELE.MGC=4>
SEQ 0369
DFSXA
DFSXAM
DEC5YSTEM KLlO CHANNEL/DTE20
DTE 29-Mdr-83 11:23
INTERACTION TEST - VER 0.7 MACRO
DTE20 ROUTINES FOR DFSXA
j;53B(1242) 14:07 21-Aug-85 Page 1
SEQ 0382
SUBTTL DTE20 ROUTINES FOR DFSXA
SEO 0369
DFSXA 0EC5YSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) K:07 21-Aug-85 Page 1
OFSXAM DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
SEQ 0382
123AA
123A5
123A6
123A7
12348
123A9
12350
12351
12352
12353
1235A
12355
12356
12357
12358
12359
12360
12361
12362
12363
1236A
12365
12366
12367
12368
12369
12370
12371
12372
12373
1237A
12375
12376
12377
12378
12379
12380
12381
06A702
06A703
06A70A
06A705
06A706
06A707
06A710
06A711
06A712
06A713
06A71A
06A715
06A716
06A717
06A720
06A721
06A722
06A723
06A72A
06A725
06A726
06A 727
202 00
550 00
260 17
00 075023
00 0301A5
00 06A766
200 00 0 00 0736A3
5A0 00 0 00 075023
135 15 0
2A2 15 0
202 00
201 00
256 00 0
260 17 0
005 00 0
007 00 0
260 17
0\j:^ 00
007 00
201 00
256 00
260 17
005 00
263 17
25A 00
00 070321
00 000003
15 OOOIAO
00 0200A0
16 0A3570
00 06572A
00 0736AA
00 073651
00 065756
00 073656
00 073663
00 020100
16 0A3570
00 06572A
00 0736AA
00 000000
00 0676A0
SUBTTL DTE20 ROUTINES FOR DFSXA
#*******»••♦****♦«•*•*♦♦♦♦******•************************************
* BOOTH - Perform boot of -11
Call: MOVE A,[UC.,DAJ
BOOTH
Error return
Normal return
This routine will bootstrap the restricted DTE indicated by
index stored in AC "CNTRL . The routine receives two arguments
in AC "A" (the word count & T010 address)
'•#«♦**♦*♦******♦* ***************************************************
$BT11: MOVEM A cMPl#
HRRZ A.MEMLOW
GO DMP11
MOVE APPOINT 36,0]
HRR A, TEMPI
FE, [POINT 3, CNTRL. 353
FE,3
EPTEBP(FE)
TOllDBICLTOlO
$BT11X: LDB
LSH
MOVEM
MOVE I
. CONO
UllDBO
FAULTA <800T11 W11DB0 TIMEOUT>
FAULT6 <FATAL BOOTSTRAP ERROR>
U11DN1
FAULTA <B00T11 U11DN1 TIMEOUT>
FAULT6 <T011ER SET DURING BOOT>
MOVEI CLT011IT011DB
.CONO
UllDBO
FAULTA <B00T11 UllDBO TIMEOUT>
RTN
SKPRTN
save boot argument
generate argument = 0,,(MEMLOW)
setup for boot by dumping 0
get size field
merge in address
get CNTRL »
convert to COMMO index
setup front end pointer
get -11 doorbell
ring . ^
wait for -11 doorbell to go =0
; wait for T011 done
; clear TOllDN and T011ER
; wait for -11 DB to clear
; take error exit
; take normal exit -11 running
SEQ 0370
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 2
DFSXAM DTE 29-Mdr-83 11 :23 DTE20 ROUTINES FOR DFSXA
15XR?
SEQ 0383
SEQ 0370
OFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST
OFSXAM DTE 29-Mdr-83 11:23 DTE20 ROUTINES
■ VER 0,7 MACRO
FOR [;FSXA
!I!53B(1242) U:07 21-Aug-85 Page 2
SEQ 0383
12382
12383
1238A
12385
12386
12387
12388
12389
12390
12391
12392
12393
1239A
12395
12396
12397
12398
12399
12A00
12A01
12402
12403
1240A
12405
12406
12407
12408
12409
12410
12411
12412
12413
12414
12415
12416
12417
12418
12419
12420
12421
12422
12423
12424
12425
12426
12427
064730
064731
064732
064733
064734
064735
064736
064737
202
260
260
260
260
260
201
256
00
17
17
17
17
17
00
00
0 00 075022
0 00 035320
00 035320
00 035320
00 035320
00 035320
00 005160
0 16 043570
064740 260 17 0 00 035320
064741
064742
064743
064744
064745
064746
064747
064750
064751
064752
064753
064754
064755
064756
064757
064760
064761
064762
064763
064764
064765
201 00
256 00
201 00
256 00
260 17
Oo? 00
007 00
201 00
256 00
200 00
540 00
135 15
242 15
202 00
574 00
405 00
256 00
260 17
005 00
263 17
254 00
0 00 001365
0 16 043467
0 00 031000
0 16 043570
0 00 065724
0 00 073670
0 00 073700
0 00 000030
0 16 043570
0 00 073643
0 00 075022
0 00 070321
0 00 000003
0 15 000141
0 00 075022
0 00 007777
0 16 043467
0 00 065766
0 00 073706
0 00 000000
0 00 067640
* DUMP11 - Perform dump of -11
Call: MOVE A,CWC,.DA]
OUMPl 1
Error return
Normal return
This routine will dump the restricted .DTE indicated by
index stored in AC "CNTRL". The routine receives two
arguments in AC "A" (the word count and T010 address).
#********************♦♦****♦*********************♦*******************
$DMP1 1
MOVEM
GO
^
60
60
MOVE I
.CONO
60
MOVE I
.DATAO
MOVE]
.CONO
UllDBO
FAULT4
FAULT6
MOVE I
.CONO
MOVE
HRR
LD6
LSH
MOVEM
HLRE
AND I
.DATAO
WlODNl
FAULT4
RTN
SKPRTN
A, TEMP
UISEC
WISEC
WISEC
WISEC
WISEC
DMPSRT
WISEC
ROMCOD
save dump argument
wait 5 seconds ,, „, ,
necessary for slow 11/34 s
due to ROM RC networks
get dump startup flags
issue to DTE
wait one second
T011DB!CR11!DNG10C
coded value
into TOIOBC
doorbell and
; get
; put
; get
; ring
; wait to reset
<DUMP11 W11DB0 TIMEOUT OR RELOAD ERROR>
<T010DB SET-NOT IN SEQUENCE>
PILDENIPIOENB ; enable PI 0
reload clear
APPOINT 36, OJ
A.TEMP
F^, [POINT 3, CNTRL, 35]
FE,3
A.EPTTBP(FE)
A, TEMP
l\,7777
<DUMP11 WlODNl TIMEOUT>
get size field for byte pointer
merge in address
get CNTRL #
convert to COMMO index
set it up in COMMO region
get word count
clear unwanted bits
load TOIOBC
wait T010DN to set
take error return
take normal return
SEQ 0371
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 3
DFSXAM DTE 29-Mar-83 11 :23 DTE20 ROUTINES FOR DFSXA
12428
SEQ 0384
SEO 0371
DFSXA
OFSXAM
12A28
12A29
12A30
12A31
12A32
12A33
12A3A
12A35
12A36
12A37
12A38
12A39
12A40
12AA1
12AA2
12AA3
12AAA
12AA5
12AA6
12AA7
12AA8
12AA9
12A50
12A51
12A52
12A53
12A5A
12A55
12A56
12A57
12A58
12A59
12A60
12A61
12A62
12A63
12A6A
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0 7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 3
DTE 29-Mar-83 11:23 DTE20 ROUTINES FOR DFSXA
#♦*♦»*♦*********♦*****♦***♦******************************************
SEQ 038A
06A766
06A767
06A770
06A771
06A772
06A773
06A77A
06A775
202 00 0
260 17 0
260 17 0
260 17 0
260 17 0
260 17 0
201 00
256 00
00 075022
00 035320
00 035320
00 035320
00 035320
00 035320
00 005160
16 0A3570
06A776 260 17 0 00 035320
06A777
065000
065001
065002
065003
06500A
065005
065006
065007
065010
065011
065012
065013
06501 A
065015
065016
065017
065020
065021
065022
065023
201 00
256 00
201 00
256 00
260 17
005 00
007 00
201 00
256 00
200 00
5A0 00
135 15
2A2 15
20? 00
5r. 00
A05 00
256 00
260 17
005 00
007 00
263 17
00 001365
16 0A3A67
00 031000
16 043570
00 06572A
00 073713
00 073700
. 00 000030
0 16 043570
0 00 073643
0 00 075022
0 00 070321
0 00 000003
0 15 0001A1
0 00 075022
00 007777
16 0A3467
00 065766
, 00 073723
0 00 073730
0 00 000000
DMP11 - Special routine for BOOTH - reads no data from 11 ^^^^^^^^
********************************************************************
DMP11
MOVEM
GO
MOVE I
.CONO
60
MOVE I
•DATAO
MOVE I
• CONO
U11DB0
FAULT4
FAULT6
MOVE I
.CONO
MOVE
HRR
LDB
LSH
MOVEM
HLRE
AND I
.DATAO
W10DN1
FAULT4
FAULT6
RTN
AJEMP
WISEC
W1SEC
U1SEC
WISEC
WISEC
DMPSRT
WISEC
ROMCOD
save dump argument
wait 5 seconds ,,,,,,
necessary for slow 11/34's
due to ROM RC networks
; get dump startup flags
; issue to DTE
; wait one second
T011DB!CR11!DNG10C
coded value
into T010BC
doorbell and
; get
; put
; get
; nng
; wait to reset
<DMP11 W11DB0 TIMEOUT OR RELOAD ERROR>
<T010DB SET-NOT IN SEQUENCE> .
PILDENiPIOENB ; enable PI 0
reload clear
A. [POINT 36, OJ
A, TEMP
FE, [POINT 3,CNTRL,35]
FE,3
A,EPTTBP(FE)
A, TEMP
k,7777
<DMP11 W10DN1 TIMEOUT>
<T010ER SET DURING DUMP>
get size field for byte pointer
merge in address
get CNTRL *
convert to COMMO index
set it up in COMMO region
get word count
clear unwanted bits
load T010BC
wait for T010DN to set
take error return
SEQ 0372
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(12A2) 14:07 21-Aug-85 Page 4
DFSXAM DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
1?A65 .........^.....^..***,
SEQ 0385
SEQ 0372
DFSXA
DFSXAM
12465
12A66
12A67
12A68
12A69
12A70
12A71
12A72
12A73
12A7A
12475
12A76
12A77
12A78
12479
12480
12481
12482
12483
12484
12485
12486
12487
12488
12489
12490
12491
12492
12493
12494
12495
12496
12497
12498
12499
12500
12501
12502
12503
12504
12505
12506
12507
12508
12509
12510
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 2536(1242) U:07 21-Aug-85 Page 4
utLbT:>.tn^NL.u_^n«|ji|jicL^i. 0TE20 ROUTINES FOR DFSXA
.#***»***•***•***•*****♦♦♦*♦♦*****♦***********************************
;* BTDP - Dump/boot data test ^^^^^^^^^^*^..***
)#***«*♦*♦♦*********************************♦*♦***********************
SEQ 0385
065024 201 00 0 00 000101
065025 260 17 0 00 042651
065026 336 GO 0 16 066127
065027 254 00 0 00 036334
065030 331 00 0 16 066127
065031 254 00 0 00 065102
065032 037 01 0 00 073735
065033 260 17 0 00 065035
065034 254 00 0 00 036334
065035 201 00 0 00 000400
065036 202 00 0 00 060631
065037 137 00 0 00 070232
065040 205 10 0 00 777760
065041
260 17
065042
201 00
065043
202 00
065044
201 00
065045
202 00
065046
402 00
065047
201 00
065050
20? 00
065051
4uJ 00
065052
200 00
065053
260 17
065054
007 00
0 00 065111
0 00 000240
0 00 044541
0 00 000005
0 00 044542
0 00 044543
0 00 000026
0 00 044553
0 00 044554
0 00 073745
0 00 064702
0 00 073746
065055 200 00 0 00 073751
065056 260 17 0 00 064730
065057 007 00 0 00 073752
065060 260 17 0 00 065126
065061 003 00 0 00 073755
065062 037 07 0 00 000003
065063 253 10 0 00 065041
065064 335 00 0 16 066127
065065 263 17 0 00 000000
BTDP:
BTDPl ;
TSTBT;
TBTl:
MOVE I
SCOPE
SKIPN
JRST
SKI PL
JRST
101
DTEAVL(CNTRL)
STPRMl
DTEAVL(CNTRL)
BTDP2
set boot test to test 101
this DTE20 not available
master selected
FMS6CD <ENTERING FRONT END BOOT-DUMP TEST>
GO
JRST
MOVE I
MOVEM
DPS
MOVSI
BTDPl
STPRMl
; get value = 256.
oiic ; setup in size loc
[POINT 11,CHNXFR(CNTRL)J33
*D256
SIZE
PATRN,-20
DTEDAT
240
DATBUF
5
DATBUF +1
DATBUF +2
26
DATBUF +12
DATBUF +13
[-*D256,, DATBUF]
GO
MOVE I
MOVEM
MOVE I
MOVEM
SETZM
MOVE I
MOVEM
SETZM
MOVE
BOOTH
FAULT6 <B00T ERROR>
MOVE [-*D256..DEVBUF]
DUMPl 1
FAULT6 <DUMP ERROR>
GO
DTECMP
FAULT2 <DATA ERROR IN BOOT-DUMP TEST>
setup data pattern index
load up data buffer
set 1st location to 11 'JJOP" ..
set 2nd location to 11 "RESET"
set 3rd location to halt 11
set power fail vector to halt
so can tell if ROM doesn't start
11 will halt at 30
get dump argument
write the -i1
; get xfer argument
; read from -T1
compare (DATBUF )=(DEVBUF)
TTALTM
AOBJN PATRN,TBT1
SKIPGE DTEAVL(CNTRL)
RTN
; skip on altmode
: do all 16 data patterns
SEQ 0373
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO :53B(1242) 14:07 21-Aug-85 Page 5
DFSXAM DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
SEQ 0386
12511
r
SEQ 0373
DFSXA
DFSXAM
12511
12512
12513
1251A
12515
12516
12517
12518
12519
12520
12521
12522
12523
12524
12525
12526
12527
12528
12529
12530
12531
12532
12533
12534
12535
12536
12537
12538
12539
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 5
DTE 29-Mdr-83 11:23 0TE20 ROUTINES FOR DFSXA
SEQ 0386
065066
065067
065070
065071
065072
065073
06507A
065075
065076
065077
065100
201 00 0
202 00 0
201 00
202 00
201 00
202 00
201 00
202 00
00 000240
00 044541
00 000005
00 044542
00 000137
00 0441)43
00 100000
00 044544
201 00 0 00 044541
260 17 0 00 064702
254 04 0 00 065100
065101 254 04 0 00 030000
065102
065103
065104
065105
065106
065107
065110
037 01
037 01
0 00 073763
0 00 000003
254 00 0 00 036334
037 01 0 00 073773
037 01 0 00 074003
260 17 0 00 065035
254 04 0 00 030000
.^*»*»»******«» **•*•**♦♦♦*♦♦*•♦*♦***•**•*****♦****•********•*• ********
MOVE!
MOVEM
MOVE I
HOVEM
MOVE I
MOVEM
MOVE I
MOVEM
MOVEl
BOOTH
HALT
HALT
BTDP2: FMSGC
TTIYES
JRST
FMS6
FMS6D
GO
HALT
240
DATBUF
5
DATBUF +1
137
DATBUF +2
100000
DATBUF +3
DATBUF
PDP-11 "NOP"
PDP-11 "RESET"
PDP-11 "JMP"
to KLDCP restart address
; restart KLDCP
; boot error
BEGIN
<MASTER DTE20 SELECTED, CONTINUE ?>
STPRMl ; no
<STARTING MASTER DTE20 BOOT-DUMP TEST>
<RESTART BY TYPING "STD" WHEN KLDCP RESTARTS>
BTDPl
BEGIN
SEQ 0374
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 6
DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
SEQ 0387
^■iKLr\
r
SEQ 0374
DFSXA
DFSXAM
125A0
125A1
125A2
125A3
125AA
125A5
125A6
125A7
125A8
125A9
12550
12551
12552
12553
1255A
12555
12556
12557
12558
12559
12560
12561
12562
12563
DECSYSTEM KL10 CHANNEL/DTE20
DTE 29-Mdr-83 11:23
065111
065112
065113
06511 A
065115
065116
065117
065120
065121
065122
065123
0651 2A
065125
INTERACTION TEST - VER 0,7 MACRO J;53B(12A2) U:07 21-Aug-85 Page 6
DTE20 ROUTINES FOR DFSXA
•#»**»*•♦•**»♦*»♦*••*♦••***♦*♦**********♦*****************************
;* DTEDAT - DTE20 data generation routine ......***********
.ffiltiHii,***************** **********************************************
SEQ 0387
260 17
200 06
210 01
517 00
5A1 01
A05 06
202 06
253 01
210 01
557 00
5A1 01
260 17
263 17
0 00 03A601
0 10 060565
00 060631
. 00 000001
0 00 0AA5A1
0 00 )77777
0 01 000000
0 00 065117
0 00 060631
0 00 000001
0 00 05A5A3
0 00 035121
0 00 000000
;*
DTEDAT: 60
MOVE
MOVN
HRLZS
HRRI
AND I
MOVEM
A06JN
MOVN
HLRZS
HRRI
CLR8UF
RTN
UPDVPT
GOOD.DATPTN(PATRN)
B,SIZE
B
B.DATBUF
GOOD, 177777
GOOD,(B)
B..-1
B.SIZE
B
B.DEVBUF
update media pointer
fetch data pattern
get data buffer size
and setup buffer address
16 bits only for DTE20
load up buffer
get recieve buffer size
and setup buffer address
clear receive buffer
SEQ 0375
DFSXA DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION I|ST - VER 0.7 I
DFSXAM DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
7 MACRO X53B(12A2) U:07 21-Aug-85 Page 7
SEQ 0388
1256A
SEQ 0375
DFSXA DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION JEST - VER 0,7 MACRO X53B(1?42) U:07 21-Aug-85 Page 7
OFSXAM DTE 29-Mdr-83 1 1 :23 DTE20 ROUTINES FOR DFSXA
SEO 0388
1256A
12565
12566
12567
12568
12569
12570
12571
12572
12573
12574
12575
12576
12577
12578
12579
12580
12581
12582
12583
1258A
12585
12586
12587
12588
12589
12590
12591
12592
12593
12594
12595
12596
12597
12598
12599
12600
12601
12602
12603
12604
065126
065127
065130
065131
065132
065133
065134
065135
065136
065137
065140
065141
065142
065143
065144
06514':
065146
C65147
0.5150
063151
065152
0651 -3
0651 1>;
065155
065156
065157
065160
065161
065162
0 16 044136
0 10 060565
0 00 044203
0 00 070416
0 00 000016
0 00 060631
0 00 000001
0 00 044541
0 00 054543
200 05 0 02 000000
200 06 0 01 000000
404 05 0 00 060550
404 06 0 00 060550
402
00
200
06
201
11
261
11
261
11
210
01
517
00
541
01
201
02
305 02
254 00
307 02
254 00
305 02
254 00
307 02
23 00
0 00 054563
0 00 065153
00 054572
00 065155
00 054617
00 065153
00 054631
0 00 065155
312 06 0 00 000005
260 17 0 00 042640
350 00 0 00 000002
253 01 0 00 065137
261 11 0 00 070241
336 00 0 16 044136
350 00 0 17 000000
263 17 0 00 000000
•#t •♦«*••»♦•♦••**•*••***♦•♦*♦***«****» ********************************
;• OTECMP - 0TE20 data compare routine .....********
The ROM dump saves PDP-11 reaisters gO-R7 in PDP-11 addresses 40-56
and the first 12 DTE20 registers in PDP-11 addresses 130-156.
DTECMP: SF "1 BADCNT(CNTRL)
M' . 600D,DATPTN(PATRN)
Ml;EI ERRDAT.BADLST
PUSH ERRDAT.CSIXBIT/STXDAT/J
PUSH ERRDAT.CNTRL
MOVN B,SIZE
HRLZS B
HRRI B.DATBUF
MOVE I CDEVBUF
DTECM1: MOVE BAD.(C)
MOVE G00D,(B)
AND BAD.DATMSK
AND GOOD.DATMSK
CAIGE CDEVBUF ♦<40/2>
JRST DTECM2
CAIG C,DEVBUF+<56/2>
JRST DTECM3
CAIGE C,DEVBUF+<130/2>
jRST DTECM2
CAIG C,DEVBUF+<154/2>
JRST DTECM3
DTECM2: CAME GOOD, BAD
60 PSH8AD
DTECM3: AOS C
AOBJN B.DTECM1
PUSH ERRDAT.CMS.EOT]
SKIPN BADCNT(CNTRL)
AOS (P)
RTN
clear bad count location
fetch data pattern
setup push list
init list
save CNTRL #
get and make record length negative
negative length to left half
setup good pointer
setup Bad pointer
get word to be checked
get good word
check 0 to 37
bypass 40 to 56
check 60 to 127
bypass 130 to 154
compare
save error
check all of buffer
terminate list
skip if errors found
SEQ 0376
DFSXA OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 8
DFSXAM DTE 29-Mdr-83 11 :23 DTE20 ROUTINES FOR DFSXA
SEQ 0389
12605
SEQ 0376
DFSXA
DCCSYSI
DFSXAM
DTE
12605
12606
12607
12608
12609
12610
065165
12611
12612
06516A
12613
065165
12614
12615
065166
12616
065167
12617
12618
065170
12619
065171
12620
12621
065172
12622
065173
12623
1262A
065174
12625
065175
12626
065176
12627
12628
065177
12629
065200
12630
06520'
DCCSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO )!53B(12A2) U:07 21-Aug-85 Page 8
DTE 29-Mdr-83 11:23 DTE20 ROUTINES FOR DFSXA
SEQ 0389
200 16 0 00 07A015
261 17 0 00 000016
A05 16 0 00 111711
336 00 0 16 066127
25A 00 0 00 065177
331 00 0 16 066127
25A 00 0 00 065177
336 00 0 16 0606A7
25A 00 0 00 065177
201 00 0 00 000100
260 17 0 00 0A2651
260 17 0 00 065202
262 17 0 00 000016
253 16 0 00 06516A
263 17 0 00 000000
;• DTELOAD - Fetch and load SXA11 into selectded front end
•#•**♦♦•••**•***•*♦*♦•****•♦••*•*♦••**•***•***•*•***•*•***************
DTEL0AD:«0VE CNTRL.C-A, ,103
DTEL01: PUT
AND I
SKIPN
JRST
SKIPL
JRST
SKIPN
JRST
MOVE I
SCOPE
GO
DTEL02: GET
A06JN
RTN
CMRL
CNTRL.-1
DTEAVL(CNTRL)
DTEL02
DTEAVL(CNTRL)
DTEL02
REQST(CNTRL)
DTEL02
100
SRTX11
CNTRL
CNTRL,DTEL01
this DTE20 not available
this DTE20 master
this DTE20 not selected
Load SXA11 into FE
SEQ 0377
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 9
DTE 29-Mar-83 11:23 0TE20 ROUTINES FOR DFSXA
SEQ 0390
12631
MAfwvki^ tlrvrr-uJiu** TftiTn rPM
SEQ 0377
DFSXA
OFSXAM
12631
1<632
12633
1263A
12635
12636
12637
12638
12639
126A0
126A^
126A2
126A3
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 9
DTE
06520
06520.
06520A
065205
065206
065207
065210
065211
065212
"29-Mdr-83 11:23
037 01
200 00
37 01
37 01
374016
500016
00001
200 00 0 00 Q74Q24
260 17 0 00 064702
005 00 0 00 074025
42
4
2
260 17 0 00 035327
263 17 0 00 000000
DTE20 ROUTINES FOR DFSXA
SRTX11
SEQ 0390
FMSGC
MOVE
PNT1F
PCRLF
MOVE
BOOTH
FAULT4
GO
RTN
<L0ADING
CNTRL
'DFSXAX" INTO FE# >
8et bootstrap pointer
oot up the -11
[SXASIZ,.SXABT]
, www I. u^
<LOAD FAILED-DROPPING FRONT END>
W600MS ; wait for PDP-11 to stabilize
.-exit
DFSXA
DFSXAM
126AA
126A5
126A6
126A7
126A8
126A9
12650
12651
12652
12653
1265A
12655
12656
12657
12658
12659
12660
12661
12662
12663
1266A
12665
12666
12667
12668
12669
12670
12671
12672
12673
DECSYSTEM KLIO
DTE
M KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 10
29-Mar-83 11 :23 DTE20 ROUTINES FOR DF§XA
SEQ 0391
065213 037 01 0 00 07A03A
06521 A 037 10 0 00 000003
065215 25A 00 0 00 065233
065216 336 00 0 00 000000
065217 25A 00 0 00 065233
065220 202 00 0 00 066A11
065221 037 01 0 00 07A036
065222 037 10 0 00 000003
065223 25A 00 0 00 065233
06522A 336 00 0 00 000000
065225 200 00 0 00 07A0A0
065226 202 00 0 00 066A12
065227 A02 00 0 00 07A753
065230 316 00 0 00 07A0A0
065231 A76 00 0 00 07A753
065232 25A 00 0 00 065236
065233
06523A
065235
037 01
037 01
00 000007
00 07A0A1
25A 00 0 00 065213
LDPR6 - Request program name and extension from operator
•♦♦*♦**************?********************************************
LDPRG
*♦*
FMSG
TTSIXB
JRST
SKIPN
JRST
MOVEM
ASKEXT: FMSG
TTSIXB
JRST
SKIPN
MOVE
MOVEM
SETZM
CAMN
SETOM
JRST
ASKERR: PBELL
FMSGD
JRST
<FILE: >
ASKERR
ASKERR
FILNAM
<EXT: >
ASKERR
[SIXBIT/All/]
FILEXT
AllFLG*
CSIXBIT/All/]
AllFLG
LDPR6A
LDPRG
ge*- file name
null name ?
ok, store it
get file ext
null, use "All"
"All" file, set process flag
SEQ 0379
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(12A2) 1A:07 21-Aug-85 Page 11
DFSXAM DTE 29-Mar-83 11 :23 DTE20 PROGRAM LOAD
1?ft7^, SUBTTL DTE20 PROGRAM LOAD
SEQ 0392
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 11
DFSXAM DTE 29-Mar-83 11 :23 0TE20 PROGRAM LOAD
SEQ 0392
12674
12675
12676
12677
12678
12679
12680
12681
12682
12683
12684
12685
12686
12687
12688
12689
12690
12691
12692
12693
1269A
12695
12696
12697
12698
12699
12700
12701
12702
12703
12704
12705
12706
12707
12708
12709
12710
12711
12712
12713
12714
12715
065236
065237
065240
065241
065242
065243
065244
065245
065246
065247
065250
065251
065252
065253
065254
065255
065256
065257
065260
065261
065262
065263
065264
065265
065266
065267
201 00 0
260 17 0
201 00
037 05
254 00 0
602 00 0
254 00 0
00 000101
00 042651
00 066411
00 000004
00 065427
00 177000
00 065427
135 15
242 15
201 00
202 00
476 00
202 00
476 00
00
00
00
15
15
15
15
070321
000003
066321
000145
000144
000147
000146
200 00 0 00 074043
260 17 0 00 064730
005 00 0 00 074044
200 00 0 00 074050
251 00 0 00 066657
201 00 0 00 000240
53J 00 0 00 075000
201 00 0 00 000000
202 00 0 00 067052
200 00 0 00 074051
260 17 0 00 064707
005 00 0 00 074052
065270 260 17 0 00 035327
065271 336 00 0 00 074753
065272 254 00 0 00 066463
SUBTTL DTE20 PROGRAM LOAD
#********•*****•******♦**♦*******♦*******♦*♦*************************
* LDPR6A - Program selection and PDP-11 bootstrap setup ^^^^^^^^^^^
#*********************♦*♦*♦********************♦***♦***♦*************
LDPRGA: MOVEI 101
SCOPE
MOVEI AJILNAM
FSELECT
JRST LDERl
TRNE 177000
JRST LOERl
LDB FE, [POINT 3,CNTRL.35]
LSH FE,3
MOVEI FEWC
MOVEM EPTERW(FE)
SETOM EPTEPW(FE)
MOVEM EPTDRW(FE)
SETOM EPTDPW(FE)
MOVE [-*D20,,PRGDMP]
DUMPl 1
FAULT4 <PGM LOAD DUMP ERR0R>
MOVE [PRGDMP+4,,LOC0+4]
BLT LOCO+17
MOVEI 240
SKIPE LDHALT
MOVEI 0
MOVEM PllHLT
MOVE [POINT 36,SPCBT:
GO SBTllX
FAULT4 <PGM LOAD BOOT ERROR>
GO W600MS
SKIPN
JRST
A11FLG
LDPBIN
Jet filename
0 lookup . , , ^«.«
error - check selection at KLDCP
get CNTRL #
convert to COMMO index
set up examine relocation
set protection to maximum
setup deposit relocation
set protection to maximum
transfer 1st 20 words from PDP-II
install trap vectors in bootstrap
"BL" or 'BH" command?
"BH" - install halt
"BL" - install NOP in boot
load PDP-11 bootstrap
wait for PDP-11 to stabilize
loading "All" or 'BIN"?
BIN
SEQ 0380
DFSXA
DFSXAM
12716
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO «53B(1242) 14:07 21-Aug-85 Page 12
DTE 29-Mdr-83 11:23 DTE20 PROGRAM LOAD
SEQ 0393
Ht*****
SEQ 0380
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 12
DFSXAM DTE 29-Mar-83 11:23 DTE20 PROGRAM LOAD
SEQ 0393
12716
12717
12718
12719
12720
12721
12722
12723
1272A
12725
12726
12727
12728
12729
12730
12731
12732
12733
1273A
12735
12736
12737
12738
12739
127A0
127A1
12742
127A3
1274A
1274 5
12746
12747
12748
12749
12750
12751
12752
12753
12754
12755
12756
12757
065273
065274
065275
065276
065277
065300
065301
065302
065303
065304
065305
065306
065307
065310
065311
065312
065313
065314
065315
065316
065317
065320
065321
065322
065323
065324
065325
065326
065327
065330
065331
065332
065333
200 00 0 00 074056
402 00 0 00 066321
251 00 0 00 066367
402 00 0 00 075001
260 17
254 00
306 00
254 00
302 00
254 00
134 00
302 00
254 00
476 00
254 00
302 00
254 00
0 00 065407
0 00 065451
0 00 000073
0 00 065273
0 00 000105
0 00 065431
0 00 000012
0 00 000117
0 00 065312
0 00 075001
0 00 065314
0 00 000040
0 00 065433
260 17 0 00 065365
254 00 0 00 065435
202 00 0 00 066367
661 00 0 00 740000
202 00 0 00 066321
2oJ 17 0 00 065365
254 00 0 00 065435
272 00 0 00 066367
137 00 0 00 074057
205 01 0 00 777734
260 17
254 00
272 00
202 00
253 01
254 00
0 00 065365
0 00 065334
0 00 066367
0 01 066322
0 00 065326
0 00 065445
LPRGl : MOVE
SETZM
BLT
SETZM
GETLIN
JRST
CAIN
JRST
CAIE
JRST
ILDB
CAIE
JRST
SETOM
JRST
CAIE
JRST
GETWRD
JRST
MOVEM
TLO
MOVEM
GETURD
JRST
ADDM
DPB
MOVSI
LPRG2: GETWRD
JRST
ADDM
MOVEM
AOBJN
JRST
[FEWC,,FEWC+1]
FEWC
CHKSUM
LDOCTF*
LEOFE
At I I I
, .V
LPRGl
A."E"
LDER2
A.PNTR
A,"0"
.+3
LDOCTF
.+3
A," •'
LDER3
LDER4
A, CHKSUM
A, 740000
A, FEWC
LDER4
A, CHKSUM
A, [POINT 16, FEWC. 19]
B,-*D36
LPR63
A, CHKSUM
A,FEDAT(B)
B,LPRG2
LDER8
clear Load buffer
get Line of data in cmdLin
found EOF
skip if not comment Line
skip comment Line
-11 Load line.
no-error in file
let next byte
, octal format?
yes, load octal patch format
is it space
no - format error
?et next word
ormat error
update checksum
set examine verification bits
save word count
?et next word
ormat error
update checksum
load address
setup index
get next word
send through DTE20
upf^'te checksum
sa.' ~d
?o for next word
00 many words
SEQ 0381
DFSXA
DFSXAM
12758
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 13
DTE 29-Mar-83 11:23 DTE20 PROGRAM LOAD
SEQ 0394
I f\rt r> -rr
M^ *• a I I naH9
SEQ 0381
DFSXA
DFSXAM
12758
12759
12760
12761
12762
12763
1276A
12765
12766
12767
12768
12769
12770
12771
12772
12773
1277A
12775
12776
12777
12778
12779
12780
12781
12782
12783
1278A
12785
12786
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(12A2) 14:07 21-Aug-85 Page 13
DTE 29-Mar-83 11:23 DTE20 PROGRAM LOAD
SEQ 0394
065334
065335
065336
065337
065340
065341
065342
065343
065344
065345
065346
065347
065350
065351
065352
065353
065354
065355
065356
065357
065360
065361
065362
065363
065364
332 00
260 17
202 00
270 00
602 00
254 00
00 075001
00
01
065357
066322
00 066367
00 1?7777
0 00 065447
201
256
00
00
260 17
00
16
00
005 00 0 00
005 00 "
135 00
326 00
00
00
00
020000
043570
065724
074060
074065
074071
065273
201 00 0 15 066261
202 00 0 15 000145
202 00 0
476 00 0
476 00 0
254 00 0
202 00
272 00
210 00
405 00
350 00
263 17
15 000147
15 000144
15 000146
00 067640
01 066322
00 066367
00 066367
00 MlVl
00 000001
00 000000
LPR63: SKIPE
60
MOVEM
ADD
TRNE
JRST
MOVE I
.CONO
W11DB0
FAULT4
FAULT4
LDB
JUMPN
LDPRG4: MOVE I
MOVEM
MOVEM
SETOM
SETOM
SKPRTN
LPRG5:
MOVEM
ADDM
MOVN
AND]
AOS
RTN
LDOCTF
LPRG5
A,FEDAT(B)
a.chksOm
LDER9
T011DB
; octal toad?
; yes, compute file checksum word
; put file checksum in load buffer
; checksum should = 0
; checksum error
<PGM LOAD U11DB0 TIME0UT>
<PGM LOAD XFR ERROR>
[POINT 16,FEWC,35]
LPRG1
DTECOM(FE)
EPTERU(FE)
EPTDRW(FE)
EPTEPW(FE)
EPTDPW(FE)
A.FEDAT(B)
A.CHKSUM
A,CHKSyM
B
get doorbell
ring -11
wait for -11
flag
to get all data
was word count = 0?
no, continue load
get base address of COMMO region
setup
setup for deposit
set protection to maximum
put last word in load buffer
update checksum
compute file checksum
SEQ 0382
DFSXA
DFSXAM
12787
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5(53B(1242) 14:07 21-Aug-85 Page 14
DTE 29-Mdr-83 11:23 DTE20 PROGRAM LOAD
SEQ 0395
.^^^^^^^^a.^J.i4.i,«.*.***.***********************************************
SEQ 0382
OFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER
DFSXAM DTE 29-Mdr-83 11:23 DTE20 PROGRAM LOAD
0,7 MACRO X53B(1242) U:07 21-Aug-85 Page U
SEQ 0395
12787
12788
12789
12790
12791
12792
12793
1279A
12795
12796
12797
12798
12799
12800
12801
12802
12803
1280A
12805
12806
12807
12808
12809
12810
0 00 000006
0 00 000012
0 00 000054
0 00 065401
0 00 000015
0 00 065402
0 00 075001
0 00 065404
0 00 000006
0 00 000040
0 00 074072
0 00 065.366
0 17 000000
0 00 000006
0 00 000000
065404 242 06 0 00 000003
065405 137 00 0 00 074073
065406 254 00 0 00 065366
065365
402 00
065366
134 00
065367
306 00
065370
254 00
065371
306 00
065372
254 00
065373
332 00
065374
254 00
065375
2A2 06
065376
302 00
065377
137 00
065400
254 00
065401
350 00
065402
200 00
065403
263 17
;*
6TWRD: SET2M
GTURD1: ILDB
CAIN
JRST
CAIN
JRST
SKIPE
JRST
LSH
CAIE
DPS
JRST
GTURDX: AOS
GTWRD2: MOVE
RTN
GTWRD2: LSH
DPS
JRST
GOOD
A,PNTR
• II II
Gtw^DX
15
GTURDZ
LDOCTF
GTWRD2
GOOD, 6
1 1 1 1
[POINT 6,GOOD,35J
GTWRD1
(P)
A, GOOD
GOOD, 3
[POINT 3. GOOD, 35]
GTURDl
clear receiving register
get next byte
skip if not comma
take normal exit
is it end of line
yes
octal format?
yes
reposition byte
skip if space
save high byte
loop looking for comma
set up skip return
get word
exit
; position previous data
; insert this octal
; loop looking for comma
SEQ 0383
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 15
DFSXAM DTE 29-Mar-83 11 :23 DTE20 PROGRAM LOAD
SEQ 0396
12811
f****************************************
SEQ 0383
DFSXA
OFSXAM
12811
12812
12813
12815
12816
12817
12818
12819
12820
12821
12822
12823
1282^
12825
12826
12827
12828
12829
12830
12831
DECSYSTEW KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 31536(12^2) 14;07 21-Aug-85 Page 15
DTE 29-(1dr-83 11:23 DTE20 PROGRAM LOAD
.#♦**«*****************♦♦♦**♦**********♦******************************
SEQ 0396
065A07
065A10
065A11
065A12
065A13
065AU
065415
065416
065417
065420
065421
065422
065423
065424
065425
065426
201 01
200 12
037 06
254 00
136 00
306 00
254 00
367 01
254 00
200 12
134 00
254 00
336 00
263 17
037 01
254 00
0 00 000226
0 00 072635
0 00 000004
0 00 065423
0 00 000012
0 00 000012
0 00 065420
0 00 065411
0 00 065443
0 00 072635
0 00 000012
0 00 067640
0 00 000000
0 00 000000
0 00 074074
0 00 036334
GTLIN:
GTLN1 :
GTLN2:
GTEOF :
MOVE I
MOVE
FREAD
JRST
IDPB
CAIN
JRST
SUJG
JRST
MOVE
ILDB
SKPRTN
SKIPN
RTN
FMSGD
JRST
B,*D150
PNTR, [POINT 7,CMDLIN]
GTEOF
A,PNTR
AJ2
6TLN2
B,6TLN1
LDER7
PNTR, [POINT 7,CMDLIN]
A,PNTR
<FILE READ ERROR>
STPRMl
get length limit
get byte pointer
get byte
go check for eof
store character
skip if not carnage return
setup for exit
repeat if room
length error
init byte pr iter
?et first byte
ake normal exit
skip if error
exit of EOF
abort
SEQ 0384
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0.7 MACRO J:53B(1242) 14:07 21-Aug-85 "age 16
DFSXAM DTE 29-Mar-83 11 :23 DTE20 PROGRAM LOAD
SEQ 0397
12832
1 '\OT7
•^************************************************************ ********
SEQ 0384
DFSXA
OFSXAM
12832
12833
1283A
•!2835
12836
12837
12838
12839
128A0
128A1
12842
12843
12844
12845
12846
12847
12848
12849
12850
12851
12852
12853
12854
12855
12856
12857
12858
12859
12860
12861
12862
12863
12864
12865
12866
12867
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 ■'age 16
DTE 29-Mdr-83 11:23 DTE20 PROGRAM LOAD
•#*****♦****************♦*****************•********************■*******
;* LDER1 - Error messages for Loading routines ...x.^^^**
)#***********************♦♦**********♦*************♦*************♦***♦
SEQ 0397
065427 037 01 0 00 074100
065430 254 00 0 00 036334
065431 037 01 0 00 074111
065432 254 00 0 00 036334
065433 037 01 0 00 074123
065434 254 00 0 00 036334
065435 037 01 0 00 074133
065436 254 00 0 00 036334
065437 037 01 0 00 074142
065440 254 00 0 00 036334
065441 037 01 0 00 074150
065442 254 00 0 00 036334
065443 037 01 0 00 074157
06544A 254 00 0 00 036334
065445 037 01 0 00 074165
065446 254 00 0 00 036334
065447 Oi'' 01 0 00 074174
065450 254 00 0 00 036334
065451 037 01 0 00 074201
065452 254 00 0 00 036334
LDER1
LDER2
LDER3
LDER4
LDER5
LDER6
LDER7
LDER8
LDER9
LEOFE
FMSGD <FSELECT FAILURE CHECK DEVICE SELECTION>
JRST STPRM1
FMSGD <FORMAT ERROR - E MISSING AS FIRST CHARACTER>
JRST STPRM1
FMSGD <FORMAT ERROR - SPACE MISSING AFTER E>
JRST STPRM1
FMSGD <FORMAT ERROR - LINE TOO SHORT>
JRST STPRM1
FMSGD <PRG LOAD -11 BOOT ERROR>
JRST STPRM1
FMSGD <FORMAT ERROR - COMMA MISSING>
JRST STPRM1
FMSGD <LENGTH ERROR ON INPUT LINE>
JRST STPRM1
FMSGD <FORMAT ERROR - TOO MANY WORDS>
JRST STPRM1
FMSGD <CHECKSUM ERROR IN FILE>
JRST STPRM1
FMSGD <EOF BEFORE XFR BLOCK>
JRST STPRM1
SEQ 0385
DFSXA
DFSXAM
12868
1 *^oy r\
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 17
DTE 29-Mar-83 11:23 DTE20 FRONT END CONFIGURATION
SUBTTL DTE20 FRONT END CONFIGURATION
SEQ 0398
SEQ 0385
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER Of MACRO X53B(12A2) U:07 21-Aug-85 Page 17
DFSXAM DTE 29-Mdr-83 11:23 DTE20 FRONT END CONFIGURATION
SEQ 0398
12868
12869
12870
12871
12872
12873
1287A
12875
12876
12877
12878
12879
12880
12881
12882
12883
1288A
12885
12886
12887
12888
12889
12890
12891
12892
12893
1289A
12895
12896
12897
12898
12899
12900
12901
12902
12903
1290A
12905
12906
12907
12908
12909
12910
065453
06545A
065455
065A56
065457
065460
065461
065462
065463
0654^ '
065' )
065466
065467
065470
065471
065472
065473
065474
06547S
065476
065477
065500
065501
065502
065503
065504
065505
065506
065507
065510
065511
065512
065513
700 14
402 00
402 00
402 00
402 00
200 16
201 00
256 00
256 00
254 00
201 00
256 00
476 00
037 01
135 00
037 16
201 00
256 00
254 00
037 01
253 16 0
700 14 0
263 17 0
350 00 0
350 00 0
037 01 0
200 00 0
242 00 0
306 00 0
254 00 0
00 000400
00 066137
00 066140
00 066141
00 066142
00 074015
0 00 000027
0 16 043570
0 16 043553
0 00 065477
0 00 000020
16 043570
16 066127
00 070455
00 070321
00 000003
00 100000
. 16 043553
0 00 065502
0 00 074206
0 00 065461
0 00 012377
0 00 000000
16 066127
16 066127
00 074207
00 000453
00 777746
16 nnn
00 065477
476 00 0 16 066127
037 01 0 00 074210
254 00 0 00 065477
SUBTTL DTE20 FRONT END CONFIGURATION
•#*»******************♦*♦*♦♦******************************************
;♦ FECFG - Configure front ends ^^^^^^^^^
J/^********** ****»*******♦***♦*********♦*«*****♦*•♦******♦♦***♦**♦**♦**
; this routine runs with PI off
FECFG:
FECF1:
FECF2:
FECF3;
I OF
SETZM
SETZM
SET2M
SETZM
MOVE
MOVE I
.CONO
.CONSO
JRST
MOVE I
.CONO
SETOM
FMS6
LDB
PNTOCS
MOVE I
.CONSO
JRST
FMSGD
AOBJN
ION
RTN
AOS
AOS
FMSGD
MOVE
LSH
CAIN
JRST
SETOM
FMSGD
JRST
DTEAVL+10
DTEAVL+11
DTEAVL+12
DTEAVL+13
CNTRL,[-4,.10]
PILDEN+7
FECF2
PILDEN
DTEAVL(CNTRL)
<F>
[POINT 3,CNTRL,353
RM
FECF3
<R:>
CNTRLJECFl
DTEAVL(CNTRL)
DTEAVL(CNTRL)
<M:>
SDTOPR
-*D26
-IO(CNTRL)
FECF2
DTEAVL(CNTRL)
< RUNNING RESTRICTED>
FECF2
setup front end index
load up PIA's
toad register
skip if there
go update index if not there
get zero level
disable interrupts
set available
get front end #
print it
get restricted bit
skip if restricted
master
print as restricted
update index
turn Pi's back on
exit
indicate master
get operational DTE20 *
master and control
not control, treat as restricted
SEQ 0386
DFSXA
DFSXAM
12911
SUBTTL DTE20 EXERCISOR DATA TRANSFER ROUTINES
SEQ 0399
SEQ 0386
iOFSXA
lOfSXAM
12911
; 12912
J 12915
I 159U
12915
I 12916
i 1^917
12918
I 12919
12920
1 12921
! 12922
12923
1292A
12925
12926
12927
12928
12929
12930
12931
12932
12933
1293A
12935
DECSVSTEM KLIO CHANNEL/DTE20
DTE 29-Mdr-83 11:23
INTERACTION TEST - VER 0,7 MACRO J!53B(1242) U:07 21-Aug-85 Page 18
DTE20 EXERCISOR DATA tRANSFER ROUTINES
SUBTTL 0TE20 EXERCISOR DATA TRANSFER ROUTINES
•#♦••*•♦•*«»••**♦♦•♦*♦*•♦♦♦******♦*•*♦♦*•*•***♦*******♦***************
*•* STUTF - Start DTE20 writing forward ^^ ^^^^^
SEQ 0399
0655U
065515
065516
065517
065520
065521
065522
065523
06552A
065525
065526
065527
065530
065531
065532
350 00 0 16 066K3
331 00 0 16 066127
25A 00 0 00 065556
135 15 0 00 070321
2A2 15 0 00 000003
201 00 0 00 000001
137 00 0 00 074215
201 00 0 00 000017
137 00 0 00 074216
201 00
256 00
260 17
005 00
263 17
25A 00
00 020000
16 043570
GO 065724
00 074217
00 000000
00 067640
STUTF
AGS
SKI PL
JRST
LDB
LSH
MOVE I
DPS
MOVE I
DPB
DTERWF(CNTRL)
DTEAVL(CNTRL)
MUTF
; master startup different
FE, [POINT 3,CNTRL.35] ; get CNTRL * .
FE,3 ; convert to COMMO index
DTEWTF ; get write forward command
[POINT 16,DTEC0M(FE),35]; set up command
[POINT 4,DTEC0M(FE),3]
T011DB
; set examine verification bits
MOVE I
.CONO
U11DB0
FAULT4 <STWTF TIMEOUT>
RTN
SKPRTN
; get doorbell flag
--'-" it
for doorbell to clear
; ring it
; wait
; error exit
; normal exit
SEQ 0387
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 5538(1242) 14:07 21-Aug-85 Page 19
DFSXAM DTE 29-Mdr-83 11:23 DTE20 EXERCISOR DATA TRANSFER ROUTlNtS
SEQ 0400
12936
.*♦**•****♦****************♦•***************♦*************************
SEQ 0387
DFSXA
DFSXAM
12936
12937
12938
12939
12940
129A1
129A2
12943
129A4
12945
12946
12947
12948
12949
12950
12951
12952
12953
12954
12955
12956
12957
12958
12059
12960
12961
12962
12963
12964
12965
12966
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 19
DtLbYbitH^i^Liu_LMA|j.||.c^/uic^u c^^2^ EXERCISOR DATA fRANSFER ROUTINES
I*** »•******••***•***♦♦♦♦♦♦*•*♦*♦♦* **********************************
• STRDF - Start DTE20 reading forward ^^^^^
/^* **•**••♦****»♦••*•»♦♦♦♦*♦***♦***•*** *******************************
SEQ 0400
065533 370 00 0 16 066143
065534 331 00 0 16 066127
065535 254 00 0 00 065572
065536 135 15 0 00 070321
065537 242 15 0 00 000003
065540 201 00 0 00 000002
065541 137 00 0 00 074215
065542 201 00 0 00 000017
065543 137 00 0 00 074216
065544 201 00 0 00 020000
065545 256 00 0 16 043570
065546 260 17 0 00 065724
065547 005 00 0 00 074222
065550 005 00 0 00 074225
065551 210 00 0 16 066157
065552 405 00 0 00 007777
065553 660 00 0 00 010000
065554 256 00 0 16 043467
065555 23' 00 0 00 067640
STRDF
SOS
SKIPL
JRST
LDB
LSH
MOVE I
DPB
MOVE I
DPB
DTERWF(CNTRL)
DTEAVL(CNTRL)
MRDF
; master start different
FE, [POINT 3,CNTRL,35] ; get CNTRL * .
FE,3 ; convrt to COMMO index
DTERDF ; get write forward command
[POINT 16,DTECOM(FE),35]; setup command
[POINT 4,DTEC0M(FE),3]
T011D8
; set examine verification bits
MOVE I
.CONO
U11DB0
FAULT4 <STRDF TIMEOUT>
FAULT4 <RESTRICTED DTE20 READ START ERROR>
; get doorbell flag
; ring it
; wait for it to clear
MOVN DTELEN(CNTRL)
AND I V17
TRO 1B23
.DATAO
SKPRTN
; get word count
; set interrupt bit
; start transfer
; normal exit
SEO 0388
r
DFSXA
DFSXAM
12967
•#•♦♦«*♦*» t**t ************************************************** ******
SEQ 0401
DFSXA DECSYSTEW KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12
SEO 0388 gf|;j„ DTE 29-Mdr-83 11 :23 0TE20 EXERCISOR DATA tRANSFER ROUTINE
/e
X53B(12A2)
S
U:07 21-Aug-85 Page 20
SEQ 0A01
12967
12968
12969
12970
12971
12972
12973
1297A
12975
12976
12977
12978
12979
12980
12981
12982
12983
12984
12985
12986
12987
12988
12989
12990
12991
12992
12993
1299A
12995
12996
12997
12998
12999
13000
13001
13002
13003
065556
065557
065560
065561
065562
065563
06556A
065565
065566
065567
065570
065571
065572
06557!
06557A
065575
065576
065577
065600
065601
065602
065603
065604
260 17 0 00 065776
037 00 1
037 00 1
037 00 1
037 00 1
16 066427
16 066433
16 066443
16 066437
210 00 0 16 066157
405 00 0 00 007777
660 00 0 00 100000
037 16 0 00 000003
260 17 0 00 066020
037 15 0 00 000004
254 00 0 00 067640
260 17 0 00 065776
037 00 1
037 00 1
037 00
260 17
037 15
16 066427
16 066433
16 066447
00 066020
00 000004
210 00 0 16 066157
405 00 0 00 007777
660 00 0 00 010000
256 00 0 16 043467
254 00 0 00 067640
MWTF
CMDSRT
PNTMS6 aLDDIAG-IO(CNTRL)
PNTMSG SLDDLY-IO(CNTRL)
PNTMSG aLDIlAD-IO(CNTRL)
PNTMSG aLDllBC-lO(CNTRL)
MOVN
AND I
TRO
PNTOCS
DOCMD
FATAL
SKPRTN
DTELEN(CNTRL)
7777
100000
set diag 3
set the delay
load to -11 address
load -11 byte count address
get data length
set INT10 bit
load -11 byte count
perform above commands
fatal DOCMD error
normal exit
* MRDF - Master to -10 xfer
MRDF: CMDSRT ^^^ _ ^
PNTMSG 8LDDIAG-10(CNTRL)
PNTMSG aLDDLY-IO(CNTRL)
PNTMS6 aLDIOAD-IO(CNTRL)
DOCMD
FATAL
MOVN
AND I
TRC
.DATAO
SKPRTN
DTELEN(CNTRL)
7777
1823
set diag 3
load delay count
load -ITs BA
do above commands
fatal DOCMD error
get word count
; set interrupt bit
; start transfer
; normal exit
SEQ 0389
DFSXA DFCSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 21
DFSXAM DTE 29-Mdr-83 11 :23 DTE20 EXERCISOR DATA tRANSFER ROUTINES
SEQ 0402
13004
.#»♦*»»♦******»»♦****»***♦**♦*******•************•*****♦**************
SEQ 0389
OFSXA
DFSXAM
1300A
13005
13006
13007
13008
13009
13010
13011
13012
13013
1301A
13015
13016
13017
13018
13019
13020
13021
13022
13023
1302A
13025
13026
13027
13028
13029
13030
13031
13032
13033
13034
13035
13036
13037
13038
13039
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) U:07 21-Aug-85 Page 21
g^P'^"=59:|iii;-^3 11:^3"^ DTE20 EXERCISOR DATA tRANSFER ROUTINES
0i,i,ti,**t>*ii******f ****************************************************
* MSTAT - Master fetch status from -11 ........********.
ffHt*************************************** ***************************
SEQ 0^02
065605 135 15 0 00 070321
065606 242 15 0 00 000003
065607 201 15 0 15 000002
065610
065611
065612
065613
0656U
065615
065616
065617
065620
065621
065622
065623
06562A
065625
065626
065627
065630
065631
065632
200 00 0 16 066403
260 17 0 00 066043
202 00 0 15 066261
350 00 0 00 000015
200 00 0 16 066417
260 17 0 00 066043
202 00 0 15 066261
350 00 0 00 000015
200 00 0 16 066423
260 17 0 00 066043
202 00 0 15 066261
201 15 0 15 000002
200 00 0 16 066413
260 17 0 00 066043
202 00 0 15 066261
350 00
2u.' 00
260 17
202 00
00 000015
16 066407
00 066043
15 066261
065633 263 17 0 00 000000
MSTAT;
LDB
LSH
MOVE I
MOVE
EXM11
MOVEM
AGS
MOVE
EXM11
MOVEM
AOS
MOVE
EXM11
MOVEM
MOVE I
MOVE
EXM11
MOVEM
AOS
MOVE
EXM11
MOVEM
RTN
FE, [POINT 3,C'JTRL,35]
FE.3
FE.2(FE)
DTEST-IO(CNTRL)
DTECOM(FE)
FE
DTTAD-IO(CNTRL)
DTECOM(FE)
FE
DTTUC-IO(CNTRL)
DTECOM(FE)
FE.2(FE)
OTEAD-IO(CNTRL)
DTECOM(FE)
FE
DTEyC-IO(CNTRL)
DTECOM(FE)
get DTE *
convert to index
move pointer ahead by 2
get address of status
examine the area
save it
update offset
get address of 10 address
do examine
save it
update FE ^^ .
get address of T010 byte count
do examine
save it
update by 2
get DTE to 11 address
examine
save it
get address of T011 BC
examine
save it
exit
SEQ 0390
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0 7 HACW^ 14:07 21-Aug-85 Page 22
DFSXAM DTE 29-Mdr-83 11 :23 DTE20 REGISTER EXAMINE ROUTINES
SEQ 040
13040
1 TA/ 1
SUBTTL DTE20 REGISTER EXAMINE ROUTINES
SEQ 0390
OFSXA
DFSXAM
13QA0
130A1
.5a/.
130A5
130A6
130A7
130A8
13049
13050
13051
13052
13053
1305A
13055
13056
13057
13058
13059
13060
13061
13062
DECSYSTEMKLIO CHANNEL/DTE20 INTERACTION TEST - VER 0 7 MACRO Z
niF ?9-Mi»r-fl3 11:53 DTE20 REGISTER EXAMINE ROUTINES
TEST - VER 0.7 MACRO 3;53B(12A2) U:07 21-Aug-85 Page 22
DTE
t'EO %^
065634
065635
065636
065637
065640
065641
065642
065643
065644
065645
065646
065647
065650
065651
065652
065653
065654
260 17
260 17
300 00
300 00
300 00
300 00
300 00
300 00
300 00
300 00
500 00
300 00
300 00
300 00
300 00
300 00
254 00
00 065655
00 065707
DO 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 000000
00 OQQOOO
00 000000
00 OQQOOO
00 037332
SUBTIL DTE20 REGISTER EXAMINE ROUTINES
•#•*•»♦*•••*»•»*••**»•♦♦♦*♦♦**•******♦*♦•♦•••******•**♦*•*********•***
;• DT20RG - Print table for examine conwand .......*.*****
DT20RG: 60
GO
A
:a
w
CA
CA
CA
CA
CA
CA.
CA
CA
JRST
PKTTS6
PRTTCG
CMDERR
print 10 status
print 10 byte count
code 2 XNU
code 3 XNU
code 4 XNU
code 5 XNU
code 6 XNU
code 7 XNU
code 10 XNU
code 11 XNU
code 12 XNU
code 13 XNU
code 14 XNU
code 15 XNU
code 16 XNU
code 17 XNU
bad index into table
DFSXA DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0 7 MACRO K:07 21-Aug-85 Page 23
DFSXAM DTE 29-Mar-83 11:23 DTE20 REGISTER EXAMINE ROUTINES
SEQ 0^04
13063
1306A
13065
13066
13067
13068
13069
13070
13071
13072
13073
1307A
13075
13076
13077
13078
13079
15380
13081
13082
13083
1308A
13085
13086
13087
13088
13089
13090
13091
13092
13093
065655
065656
065657
065660
065661
065662
065663
06566A
065665
065666
065667
065670
065671
065672
065673
06567A
065675
065676
065677
065700
065701
065702
065703
065704
065705
065706
256 00 0
202 00 0
037 01
602 01
037 01
6U2 CI
037 01
602 01
037 01
602 01
037 01
602 01 -
037 01 0
602 01 0
037 01
602 01
037 01
602 01
037 01
602 01
037 01
037 01
135 00 .
037 17 0
037 01 0
2oi 17 0
16 043521
00 000001
00 071571
00 100000
00 074234
00 040000
00 074235
00 020000
00 074237
00 001000
00 074241
00 000400
00 074243
00 000100
00 074245
00 000040
00 074247
00 000020
00 074251
00 000010
00 074253
00 072245
00 071625
00 000003
00 030242
00 000000
#t« T* ******************************** ********************************
* (-/RTTSG - Print DTE20 status register ...^x.*****
;^************* **************************************** ***************
PRTTSG:
.CONI
MOVEM
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
TRNE
FMSG
FMSG
LDB
PNTOCF
PCRLF
RTN
B
<TS: >
BJB20
<RM,>
BJB21
<DEAD11,>
BJB22
<T011DB,>
BJB26
<T010DB,>
B,1B27
<T011ER,>
BJB29
<T011DN,>
B,1B30
<T010DN,>
BJB31
<T010ER,>
B,1B32
<Pi0ENB,>
< PIA: >
[POINT 3,B,35]
fetch status
save in register B
is RM on
SEQ 0392
miin if,''''''29vn^r^%'''''' '~'^?^^s'g?GiPfR-E^^iSfVo8'T;sE!"'"'"' ''■■" ''""'-'' '''' ''
13094
SEQ 0405
.**♦******************************************************************
SEQ 0392
DFSXA
DFSXAM
1309A
13095
13096
13097
13098
13099
13100
13101
13102
13103
1310A
13105
13106
13107
13108
13109
13110
13111
13112
DECSYSTEM
DTE
.. KLIO CHANNEL/DTE20
29-Mdr-83 11:23
065707
065710
065711
065712
065713
0657U
065715
065716
065717
065720
065721
065722
065723
256 00 0
202 GO 0
037 01
602 01
037 01
037 01
135 00
335 00
INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 24
DTE^O REGISTER EXAMIN^ ROUTINES
•#***«********♦****•****♦♦**♦*****♦*****♦******♦**********************
:* PRTTCG - Print T010 byte count ...........
•#***»♦**♦************♦♦***♦**♦********♦■******************************
B
<TC: >
8,1823
<T010I8;>
< CNT: >
[POINT 12,8,35]
SEO 0405
434 00 0
217 00 0
037 17
037 01
263 17
16 043504
PRTTCG: .DATAI
00 000001
MOVEM
00 074255
FMSG
00 010000
TRNE
00 074256
FMS6
00 074260
FMSG
00 074262
LDB
00 000000
SKIPGE
00 074263
I OR
00 000000
MOVMS
00 000003
PNTOCF
00 030242
PCRLF
00 000000
RTN
[-1823]
skip if positive
SEQ 0393
DFSXA
DFSXAM
13113
111 1 /.
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST "VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 25
DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
SUBTTL DTE20 CONTROL ROUTINES
SEQ 04t>5
SEQ 0393
OFSXA
DFSXAM
13113
1311A
13115
13116
13117
13118
13119
13120
13121
13122
13123
1312A
13125
13126
13127
13128
13129
13130
13131
13132
13133
1313A
13135
13136
13137
13138
13139
13U0
13141
13U2
13U3
13UA
13U5
131A6
13U7
13U8
13H9
13150
13151
13152
13153
1315A
13155
13156
13157
13158
DECSYSTEM KLIO CHANNEL/DTE20
DTE 29-Mdr-83 11:23
06572A
201 00 0 00 020000
$11DB0: MOVE I
T011DB
065725
260 17 0 00 0657A5
60
WFBCLR
065726
263 17 0 00 000000
RTN
AOS
065727
350 00 0 17 000000
(P)
065730
201 00 0 00 QOIOQO
256 00 0 16 043536
MOVE I
TOIODB
065731
.CONSZ
065732
263 17 0 00 OOQOOO
RTN
065733
254 00 0 00 067640
SKPRTN
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 25
DTE20 CONTROL ROUTINES
SUBTTL DTE20 CONTROL ROUTINES
•#**********♦**********♦♦*♦♦***'<**************************************
•* $11DB0 - Wait for T011DB to .eset ........^^*
)#*♦*****♦************♦♦****♦****«****************♦**♦**************♦*
; get doorbell flag
SEQ 04i)<6
065734
065735
065736
065737
065740
065741
065742
065743
065744
065745
065746
065747
065750
065751
065752
065753
065754
065755
261 17 0 00 000001
201 01 0 00 nnn
256 00 0 16 043553
367 01 0 00 065736
322 01
262 17
00 065743
00 000001
254 00 0 00 067640
262 17 0 00 000001
263 17 0 00 000000
261 17 0 00 000001
201 01 0 00 inni
25b 00 0 16 043536
367 01 0 00 065747
322 01 0 00 065754
262 17 0 00 000001
254 00 0 00 067640
262 17 0 00 000001
263 17 0 00 000000
get T010 doorbell fig
skip if not set
take error return
take skip return
•#*******♦**************♦♦********************************************
'•* WFBSET - Wait for bit to set
)/>***♦****************♦*♦♦********•***********************************
WFBSET: PUT
MOVE I
.CONSO
SOJG
JUMPE
GET
SKPRTN
GET
RTN
1
1.-1
1,.-1
1,.+3
1
1
; a long delay
; timed out
•#*•******************************************************************
;* WFBCLR - Wait for bit to clear
WFBCLR: PUT 1 ^
MOVEI 1.-1
•CONSZ
SOJG 1,.-1
JUMPE l,.+3
GET 1
SKPRTN
GET 1
RTN
; a long delay
; timed out
SEQ 0394
OFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST "VER 0 7 MACRO X53B(1242) 14:07 21-Aug-85 Page 26
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
13159
SEQ C407
• #***********-. -'t*****************************************************
SEQ 039A
DFSXA
DFSXAM
13159
13160
13161
13162
13163
1316A
13165
13166
13167
13168
13169
13170
13171
13172
13173
1317A
13175
13176
13177
13178
13179
13180
13181
13182
13183
1318A
13185
DECSYSTEM KLIO .^
DTE 29-Mar-83
CHANNEL/DTE20
~ 11:23
INTERACTION TEST
DTE20 CONTROL
- VER 0,7
ROUTINES
MACRO 3;53B(12A2) U:07 21-Aug-85 Page 26
SCO 0407
065756
065757
065760
065761
065762
065763
06576A
065765
065766
065767
065770
065771
065772
065773
065774
065775
201
260
263
350
201
256
263
254
00
17
17
00
00
00
17
00
0 00 000500
0 00 06573A
0 00 000000
0 17 000000
0 00 000400
0 16 043536
0 00 000000
0 00 067640
201
00
?6C
17
263
17
350
00
201
00
256 00
263
17
254
00
00
00
00
17
00
16
00
00
000060
065734
000000
000000
000020
043536
000000
067640
• #♦****♦**«***'. ********************************************************
':* $11DN - Wjit for TOllDN or T011ER ........*
'#*****»♦**■ **********************************************************
$11DN:
MOVE I
T011DNIT011ER
60
WFBSET
RTN
AOS
(P)
MOVE I
TOllER
.CONSZ
RTN
SKPRTN
; get done & error flag for TOll xfr
; skip if no error
; TOll error occurred
; no TOll error
•#****************♦*****♦*********************************************
'•* $10DN - Wait for TOIODN or TOIOER
$10DN:
MOVE I
TOIODNITOIOER
•
GO
WFBSET
RTN
AOS
(P)
MOVE I
TOIOER
.CONSZ
RTN
SKPRTN
; get done £ error flag for TOlO xfr
get error flag
skip if no errors
TOlD error return
TOlO normal return
SEQ 0395
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 27
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
SEQ '%08
13186
;#*********************♦**********************************************
SEQ 0395
DFSXA OECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST " VER 0
OFSXAM DTE 29-Mdr-83 11:23 0TE20 CONTROL ROUTINES
VER 0,7 MACRO 51536(1242) 14:07 21-Aug-85 Page 11
StO 'X08
13186
13187
13188
13189
13190
13191
13192
13193
1319A
13195
13196
13197
13198
13199
13200
13201
13202
13203
13204
13205
13206
13207
13208
065776
065777
066000
066001
066002
066003
066004
066005
066006
066007
066010
066011
066012
066013
066014
066015
066016
066017
261 17
200 00
202 00
476 00
402 00
037 01
201 00
202 00
205 01
402 00
201 00
256 00
336 00
367 01
337 00
037 15
262 17
263 17
0 00 000000
0 00 030046
0 00 075015
0 00 030521
0 00 030046
0 00 000026
0 00 000411
0 00 000451
0 00 000010
0 00 000444
00 020000
16 043570
00 000444
00 066012
00 000001
00 000004
00 000000
00 000000
0
0
0
0
0
0
0
0
•#*♦*»**•*♦♦**♦♦******♦♦♦*****************♦****************«*♦*****♦**
:* SCMDSRT - Start program command to -11 ^^^^^^^^*
save ACO
get console switches
save them for DOCMD to put back
set use (CONSW) as switches
clear console
set forced mode
get command start op code
setup
get long delay
clear response fig
get doorbell bit
issue
skip when done
wait ^ ^
skip if responded
program fatal error
restore ACO
exit
SCMDSRT: PUT
A
MOVE
CONSW
MOVEM
SCONSU*
SETOM
$$T0G6LE
SETZM
CONSW
PFORCE
MOVE I
1827111
MOVEM
SDTCMD
MOVSI
B,10
SETZM
SDTFLG
MOVE I
T011D8
.CONO
SKIPN
SDTFLG
SOJG
B..-1
SKIPG
B
FATAL
GET
A
RTN
SEQ 0396
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 28
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
SE'l 0409
13209
•#***»********♦**•****************************************************
SEQ 0396
DFSXA
DFSXAM
13209
" 10
DECSYSTEM KLIO CHANNEL/DTE20 INTERACHQN JEST - VER
13219
13220
13221
13222
13223
1322A
13225
13226
13227
13228
13229
13230
13231
13232
DTE
29-Mdr-83 11:23
tn^L-iu.. ,u.. .U-, 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 28
0TE20 CONTROL ROUTINES
SEO 0^09
066020
066021
066022
066023
06602A
066025
066026
066027
066030
066031
066032
066033
066034
066035
066036
066037
066040
0660A1
066042
261 17
201 00
202 00
205 01
402 00
201 00
256 00
336 00
367 01
337 00
037 15
200 00
202 00
402 00
200 00
606 00
350 00
262 17
263 17
0 00 000000
0 00 000410
0 00 000451
0 00 000010
0 00 000444
00 020000
16 043570
00 000444
. 00 066027
0 00 000001
0 00 00000^.
00 075015
00 030046
00 030521
00 000450
00 MlVl
17 invi
00 000000
00 000000
• /If*************************************
;* SDOCMD - Do program command
• /|f*************************************
*******************************
*******************************
SDOCMD:
PUT
MOVE I
MOVEM
MOVSI
SETZM
MOVE!
.CONO
SKIPN
SOJG
SKIP6
lATAL
MOVE
MOVEM
SETZM
MOVE
TRNN
AGS
GET
RTN
1827110
$DTCMD
B,10
SDTFLG
T011DB
$DTFL6
B,.-1
B
SCONSW
CONSU
S$T0GGLE
A.SDTFII
kAVin
-1(P)
A
save ACO
get do command op code
setup op code
get delay count
clear response flag
get doorbell flag
issue
wait for response
skip if responded
program fatal error
get saved switches
restore them
allow real switches again
get response code
skip if not successful
setup normal return
restore A
SEQ 0397
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 29
DFSXAM DTE 29-Mar-83 11 :23 DTE20 CONTROL ROUTINES
Si; 3 0410
13233
13234
.#********************************************************************
SEQ 0397
DFSXA
DFSXAM
13233
1323A
13235
13237
13238
13239
132A0
132A1
13242
132A3
132AA
132A5
13246
13247
13248
13249
13250
13251
13252
13253
13254
13255
13256
13257
13258
13259
13260
13261
13262
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 29
DTE 29-Mdr-83 11:23 0TE20 CONTROL ROUTINES
.|^***»********* ************************************** *****************
'•#*************************♦******************************************
Sii'Q 0410
066043
066044
066045
066046
066047
066050
066051
066052
066053
066054
066055
066056
066057
066060
066061
066062
066063
066064
066065
242
435
00
00
202 00
205 01
402 00
201 00
256 00
336 00
367 01
337 00
037 15
200 00
405 00
263 17
0 00 000020
0 00 000412
0 00 000451
0 00 000010
0 00 000444
0 00 020000
0 16 043570
0 00 000444
0 00 066052
0 00 000001
0 00 000004
0 00 000450
0 00 ymii
0 00 000000
260 17 0 00 065776
037 00 0 00 000000
260 17 0 00 066020
263 17 0 00 000000
254 00 0 00 067640
$EXmi: LSH
lORI
MOVEM
MOVSI
SETZM
MOVE!
.CONO
SKIPN
SOJG
SKIPG
FATAL
MOVE
AND!
RTN
A/D16
l627!12
SDTCMD
8,10
$DTFL6
TOllDB
SDTFLG
B..-1
B
SDTFll
M7777
position 11 address into <4:19>
get exam op code
set up command
get delay
clear response flag
get to -11 doorbell bit
issue
skip if done
wait if not
skip if DTE responded
program fatal error
get data from -11 address
get low 16 bits
exit
■#♦*****•******♦******♦*♦*********************************************
;* SEXEll - Execute a console command ........***
I-*********************************************************************
$EXE11: CMDSRT
PNTMSG A
DOCfID
RTN
SKPRTN
start of command sequence
execute console command
start here
error
ok!
SEQ 0398
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0 7 MACRO X53B(1242) 14:07 21-Aug-85 Page 30
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
SliQ 0411
13263
13264
**********************************************************************
SEQ 0398
r
OFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
VER 0,7 MACRO X53B(12A2) 14:07 21-Aug-85 Page 30
SliQ 0411
13263
1326A
13265
13266
13267
13268
13269
13270
13271
13272
13273
1327A
13275
13276
13277
13278
13279
13280
13281
13282
13283
1328A
13285
13286
13287
13288
13289
13290
066077
066100
066101
066102
066103
0661 OA
066105
066106
066107
066110
066111
135 00 0 00 07A264
434 00 0 00 070323
202 00 0 15 000141
202 00 0 15 000140
261 17
202 00
200 01
133 00
367 01
202 00
262 17
00
16
16
00
00
16
00
000001
066153
066157
000000
066106
066147
000001
.|***«********* ************************** *****************************
;♦ SETCOM - Setup DTE communications region ^^.^^^
'#♦♦♦****»***•****•***♦*♦******************•♦**************************
066066
135 15 0 00 070321 !
JETCOM: LDB
066067
242 15 0 00 000003
LSH
066070
202 00 0 16 060737
MOVEM
066071
135 00 0 00 070232
LDB
066072
202 00 0 16 060723
MOVEM
066073
242 00 0 00 000002
LSH
066074
202 00 0 16 066157
MOVEM
066075
210 00 0 00 000000
MOVN
066076
137 00 0 00 070322
DPB
LDB
I OR
MOVEM
MOVEM
PUT
MOVEM
MOVE
IBP
SOJG
MOVEM
GET
FE, [POINT 3,CNTRL,35]
FE,3
get CNTRL address
convert to COMMO index
CHNXFR(CNTRL) i,sa\/e xfr wrd
[POINT 11,CHNXFR(CNTRL),13] ; get word. count
CHNLEN(CNTRL) ; save for devices
2 ; times four for byte count
DTELEN(CNTRL) ; store as word length
[POINT 12,DTEC0M(FE),19J
[POINT 18.CHNXFR(CNTRL),35]
[POINT 9, J ; build byte jointer
EPTTBP(FE) ; "^ '
EPTEBP(FE)
save in TOID pointer location
save in T011 pointer location
6
DTES8P(CNTRL)
B,DTELEN(CNTRL)
B,.-1
DTEF8P(CNTRL)
B
save start byte pointer
save finish byte pointer
SEQ 0399
DFSXA OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 31
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
■JEQ 0412
13292 066112 200 00 0 16 043605
SETCM1: MOVE INTSRV(CNTRL)
r-f\T#\ T T / r r \
; setup interrupt linkage
SEQ 0399
DFSXA
OFSXAM
13291
13292
13293
1329A
13295
13296
13297
13298
13299
13300
13301
13302
13303
1330A
13305
13306
13307
13308
13309
13310
13311
13312
13313
133U
13315
13316
13317
13318
13319
13320
13321
13322
13323
1332A
13325
13326
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST " VER 0,7 MACRO 3!53B(12A2) 14:07 21-Aug-85 Page 31
DTE 29-Mdr-83 11:23
066112 200 00 0 16 0A3605
066113 202 00 0 15 0001 A2
DTE20 CONTROL ROUTINES
■JEQ 0A12
06611 A
201 00
066115
202 00
066116
202 00
066117
A76 00
066120
A76 00
15 066261
15 0001A5
15 0001A7
15 0001AA
15 0001A6
066121
066122
066123
0661 2A
066125
066126
066127
066137
0661 A3
066153
066157
066163
066167
A02 00 0 16 0661A3
201 11 0 00 0AA3A7
200 00 0 00 075005
A35 00 0 go 000170
256 00 0 16 0A3570
263 17 0 00 000000
SETCMl: MOVE
MOVEM
MOVE I
MOVEM
MOVEM
SETOM
SETOM
SETZM
MOVE I
MOVE
OR I
.CONO
RTN
; setup interrupt linkage
; set base address of COMMO region
INTSRV(CNTRL)
EPTDIKFE)
DTECOM(FE)
EPTERW(FE)
EPTDRW(FE)
EPTEPW(FE)
EPTDPW(FE)
DTERWF(CNTRL)
ERRDAT.ERSTCK
PILDEN!PIOENB!CLT011!CLT610-
; exit back inline
; setup error stack
set DTE20 PI level
•* DTEAVL - DTE20 availability table ^^^^
J*********************************************************************
CHNAVL: BLOCK 10
DTEAV1: BLOCK
PORAVL: BLOCK 10
DTERW1
DTEFB1
DTESBl
DTELE1
BLOCK
BLOCK
BLOCK
BLOCK
A
A
A
A
channel availability table (RH20's)
0 - unavailable
-1 - available
DTE availability table
-1 - available and restricted
+1 - available and master
(NI/CI ports)
0 - unavailable
-1 - available
DTE20 read/write flags
DTE20 finish byte pointers
DTE20 start byte pointers
DTE20 transfer lengths
SEQ OAOO
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 32
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
S;EQ 0A13
13327
13328
*^ ^^ ...*^4« vki-rp-^n Tftirrl? _ rvTOA i m^*- ^m»*i tp\^ f^AmiiiAA r«/Mifr'inoc
SEQ (KOO
DFSXA
DFSXAM
13327
13328
13329
13330
13331
13332
13333
1333A
13335
13336
13337
13338
15339
133A0
133A1
133A2
133A3
133AA
133A5
133A6
133A7
133A8
133A9
13350
13351
13352
13353
13354
13355
13356
13357
13358
13359
13360
13361
13362
13363
1336A
13365
13366
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST " VER 0.7 MACRO J!53B(1242) U:07 21-Aug-85 Page 32
DTE 29-Mdr-83 11:23 0TE20 CONTROL ROUTINES
.k.k*********** *******************************************************
':* INTF10, INTF11, INTF12, INTF13 - DTE20 interrupt service routines
'.0i,i,\ki,i,i,i,*************************************************************
JiEQ 0413
066173
066174
066175
000000
261 17
201 16
000000
0 00 000016
0 00 000010
066176 260 17 0 00 066223
066177
066200
066201
066202
066203
262 17
254 12
000000
261 17
201 16
0 00 000016
1 00 066173
000000
0 00 000016
0 00 000011
066204 260 17 0 00 066223
066205
066206
066207
066210
066211
262 17
254 12
000000
261 17
201 16
0 00 000016
1 00 066201
000000
0 00 000016
0 00 000012
066212 260 17 0 00 066223
066213
066214
066215
066216
066217
26? 17
2o' 12
000000
261 17
201 16
0 00 000016
1 00 066207
000000
0 00 000016
0 00 000013
066220 260 17 0 00 066223
066221
066222
262 17
254 12
0 00 000016
1 00 066215
INTF10: 0
PUT
MOVE I
60
INTF11
INTF12:
INTF13:
GET
JEN
0
PUT
MOVE I
GO
GET
JEN
0
PUT
MOVE I
GO
GET
JEN
0
PUT
MOVE I
60
GET
JEN
CNTRL
CNTRLJO
FEINT
CNTRL
aiNTFlO
CNTRL
CNTRL .11
FEINT
CNTRL
aiNTFII
CNTRL
CNTRL, 12
FEINT
CNTRL
aiNTF12
CNTRL
CNTRL. 13
FEINT
CNTRL
aiNTF13
DT:20 #0. channel 10
DTE20 #1. channel 11
DTE20 #2, channel 12
DTE20 *3, channel 13
SEQ 0401
r
13367
13368
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 33
DFSXAM DTE 29-Mdr-83 11:23 DTE20 CONTROL ROUTINES
SEQ 04r
**********************************************************************
SEQ (KOI
DFSXA
DFSXAM
DECSYSTEM KL10 CHANNEL/DTE20
DTE 29-Mdr-83 11:23
1337^
1337^
1337/'
13378
13379
13380
13381
13382
13383
1338A
13385
13386
13387
13388
13389
13390
13391
13392
13393
1339A
13395
13396
13397
13398
13399
13A00
13A01
13A02
13403
13A0A
13A05
13A06
13A07
13A08
13A09
13A10
13411
13412
15413
13414
13415
13416
13417
INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 33
DTE20 CONTROL ROUTINES
• FEINT - Common DTE20 interrupt service .....**************
SEQ 041-
'>66223 261 17 0 00 000000
r 6224
)6j225
066226
066227
256 00 0
202 00 0
201 00 0
256 00 0
16 043521
16 044153
00 001170
16 043570
066230 402 00 0 16 044167
066231
066232
066233
066234
066235
066236
066237
200 00 0
602 00 0
476 00 0
602 00 0
254 00 0
602 00 0
254 00 0
16 044153
00 040420
16 044167
00 000040
00 066241
00 000100
00 066241
06624C 476 00 0 16 044167
066241
066242
066243
066244
066245
066246
066247
066250
066251
066252
066253
066254
066255
066256
066257
066260
7 000 30
476 00 0
5:)' 00 0
254 00 0
261 11 0
261 11 0
261 11 0
700 05 0
261 11 0
700 10 0
261 11 0
261 11 0
700 04 0
370 00 0
262 17 0
263 17 0
0 00 007740
16 044167
16 044167
00 066256
00 070450
00 000016
00 000000
00 000000
00 000000
00 000000
00 000000
00 070224
00 027760
00 074777
00 000000
00 000000
FEINT: PUT
.CONI
MOVEM
MOVE I
• CONO
RH.DNE(CNTRL)
; read DTE20 status
PILDEN!PIOENBICLT011!CLT010!DN610C ^^
; clear DTE20
SETZM RH.ERR(CNTRL)
MOVE RH.DNE(CNTRL) ^^^^
TRNE DEAD11!T011ER!T010ER
SETOM RH.ERR(CNTRL)
TRNE TUIODN
JRST .+4
TRNE T011DN
JRST .+2
SETOM RH.ERR(CNTRL)
CONSZ
SETOM
SKIPL
JRST
PUSH
PUSH
PUSH
CPCNI
PUSH
MBERA
PUSH
PUSH
CLFLGS
FEINTX: SOS
GET
RTN
APR,CP.ERS
RH.ERR(CNTRL)
RH.ERR(CNTRL)
FEINTX
ERRDAT.CSTX.DT]
ERRDAT.CNTRL
ERRDAT.O
ERRDAT,0
ERRDAT,0
ERRDAT,CMS.ETX]
INTCNT
0
set error f I ag
T010 done
T011 done
some other error
CP error
any errors?
no
save errors
read CP
read MBOX
decrement interrupt pending count
SEQ 0402
DFSXA
DFSXAM
I 13418
i 13419
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST -VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 34
DTE 29-Mdr-83 11:23 DTE20 CONTROL ROUTINES
SEQ 04'
066261
DTECOM:
DTE20 cofflffl base address
rriMMH 4-krii rnMMT mncf fnllnu
SEO 0^02
I
OFSXA
DFSXAM
41 8
A19
A20
:A22
423
424
425
426
13427
13428
13429
13430
13431
13432
13433
13434
13435
13436
13437
13438
13439
13440
13441
13442
13443
13444
13445
13446
13447
13448
13449
13450
13451
13452
OECSYSTEM KL10 CHANNEL/DTE20 INTERA
DTE 29-Mdr-83 11:23 DTE
TION TEST
0 CONTROL
- VER 0.7
ROUTINES
MACRO X53B(1242) 14:07 21-Aug-85 Page 34
<iEQ 04-
066261
066261
066261
066262
066263
066264
066265
066266
066267
066270
066271
066271
066272
066273
066274
066275
066276
066277
066300
000000
000000
000000
000000
000000
000000
QOOOOQ
000000
000000
000000
000000
000000
000000
000000
QQOOOO
000000
000000
000000
000000
Gu.'OOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
OTECOM:
DTE20 comm
COMMO thru
base address
C0MM3 must follow
:• COMMO - Special COMMO area for DTE#0 ......
COMMO:
DTCMAO: 0
DTCMBO: 0
OTSTAO: 0
DTADAO: 0
OTUCAO: 0
DTSTBO: 0
DTADBO: 0
DTUC80: 0
V = verification, 4 bits - 0-3
BC = byte count, 12 bits - 9-20
CMDA = command. 16 bits - 19-35
(<V>.<BC
(<V>,<BC
(<Before
(<Before
(<Before
(<Before
(<Before
(<Before
>,<CMDA>)
>,<CMDB>)
TOl0CM>,<After
TOl0AD>.<After
TOl0WC>,<After
T0l1CM>,<After
T0llAD>,<After
T0l1BC>.<After
T010CM>)
T010AD>)
TOIOWO)
T011CM>)
T011AD>)
TOIIBO)
•#♦****♦*******•********♦♦*♦************♦*****************************
;♦ C0MM1 - Special COMMO area for DTE*1 ......
)#**«***********♦****♦♦****♦******************♦***********************
C0MM1 :
DTCMA1: 0
DTCMB1: 0
DTSTA1: 0
DTADA1: 0
DTWCA1: 0
DTSTB1: 0
DTADB1: 0
DTWCB1: 0
«V>.<BC>.<CMDA>)
(<V>,<BC>,<CMDB>)
(<Before TOl0CM>,<After T010CM>)
(<Before T010AD>,<After T010AD>)
(<Before TOIOWO, <After TOIOWO)
(<Before T011CM>,<After T011CM>)
(<Before T0l1AD>.<After T011AD>)
(<Before TOIIBO, <After TOIIBO)
SEQ 0403
DFSXA
DFSXAM
13453
15454
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST -VER 0 7 MACRO J[53B(1242) 14:07 21-Aug-85 F ^qe 35
DTE 29-Mdr-83 11:23 DTE20 CONTROL ROUTINES
i;EO w
S'EO 0403
DFSXA DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0 7 MACRO X53B(1242) U:07 21-Aug-85 f >
DFSXAM DTE 29-Mdr-83 11:23 DTE20 CONTROL ROUTINES
qe 35
!;E0 04
13453
13454
13455
13456
13457
13458
13459
13460
13461
13462
13463
13464
13465
13466
13467
13468
13469
13470
13471
13472
13473
13474
13475
13476
13477
13478
13479
13480
066301
066301
066302
066303
066304
066305
066306
066307
066310
066311
06631 1
066312
066313
066314
066315
066316
066317
066320
000000
000000
000000
000000
QQQOOO
000000
QOOOQO
000000
000000
000000
000000
ouoooo
OQOOOO
QQOOOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
;* C0MM2 - Special COMMO area for DTE*2 ....... ...^*
C0MM2:
DTCMA2:
DTCMB2:
DTSTA2:
0TADA2:
DTUCA2:
DTSTB2:
DTADB2:
0TUCB2:
(<V>,<BC
(<V>,<BC
(<Before
(<Before
(<Before
(<Before
(<Before
(<Before
>,<CMDA>)
>,<CMDB>)
TOlOCM>.<After
T010AD>,<After
T010WC>,<After
T011CM>,<After
TOllAD>,<After
T011BC>.<After
T010CM>)
T010AD>)
TOIOWO)
T011CM>)
(011AD>)
TOIIBO)
;* C0MM3 - Special COMMO area for DTE#3 ......**********
C0IW3:
0TCMA3:
0TCMB3I
DTSTA3;
0TADA3:
0
0
0
0
DTWCA3: 0
DTST83: Q
DTADB3: 0
DTUCB3: 0
«V>,<BC
(<V>,<BC
(<Before
(<Before
(<Before
(<Before
(<Before
(<Before
>.<CMDA>)
>,<CMDB>)
T010CM>,<After
TOl0AD>,<Aner
TOIOWO. <After
T011CM>,<After
T011AD>.<After
TOIIBO. <After
T010CM»
T010AD>)
TOIOWO)
T011CM>)
T011AD>)
TOIIBO)
J
DF3XA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) U:07 21-Aug-85 Page 36
DFSXAM DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
SEQ 0417
13481
13482
13483
13484
13485
13486
13487
13488
13489
13490
13491
13492
13493
13494
13495
13496
13497
13498
13499
13500
13501
13502
13503
13504
13505
13506
13507
13508
13509
13510
13511
13512
13513
13514
13515
13516
13517
13518
13519
13520
13521
13522
13523
066321
066322
066366
066367
066370
066410
066411
066412
066413
066414
066415
066416
066417
066420
066421
066422
066423
066424
066425
066426
066427
066430
066431
066432
066433
066434
066435
066436
OOOCOO 000000
OOOCOO
000000
000000
000000
000000 000000
000000
000000
000000
oocooo
000000
000000
000000
000000
000000
000000
000000
OuJOOO
000000
OOOnoo
OOOuOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
174434
174474
174534
174574
174416
174456
174516
174556
174422
174462
174522
174562
174420
174460
174520
174560
174414
174454
174514
174554
;/(f***«r******* ************************** ******************************
;* Special boot area
; /If ************************************************ A '***********•******
; reserved for word count
; reserved for data
; rhecksum area
; PDP-11 program load dump area
FEWC:
FEDAT:
CHKSUM:
PRGDMP:
0
BLOCK *D36
0
0
BLOCK 20
0
; Lookup block
FILNAM:
FILEXT:
0
0
; Status registers
DTEST:
174434
174474
174534
174574
DTEWC:
174416
174456
174510
174556
DTEAD:
174422
174462
174522
174562
DTTAD:
174420
174460
174520
174560
DTTWC:
174414
174454
174514
174554
DTE#0
DTE#1
DTE#2
DTE#3
DTE#0
DTE#1
DTE*2
DTE#3
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO j;53B(1242) 14:07 21-Aug-85 Page ^'
DFSXAM DTE 29-Mar"83 11:23 DTE20 CONTROL ROUTINES
SEQ 0418
iici/.
DFSXA
DFSXAM
1352A
13525
13526
13527
13528
13529
13530
13531
13532
13533
13534
13535
13536
13537
13538
1353"
135A0
135A1
135A2
135A3
135A4
135A5
135A6
135A7
135A8
135A9
13550
13551
13552
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO Z53B(1242) 14:07 21-Aug-85 Page ^7
DTE 29-Mar-83 11:23 DTE20 CONTROL ROUTINES
;* Tables for program commands
; /If************ ***************************** ***************************
SEQ 0418
066437
066440
066441
066442
066443
06C '■44
066445
066446
066447
066450
066451
066452
066453
066454
066455
066456
066457
066460
066461
066462
000000
000000
000000
000000
000000
000000
000000
GtOOOO
000000
ooooor
ooooc.
000000
oocooo
000000
000000
000000
000000
000000
000000
000000
074265
0^4270
r %273
074276
074301
074305
074311
074315
C74321
074324
}74327
074332
074335
074341
074345
074351
074355
074361
074365
074371
LDOIAG: CASCIZ/DE 174436:0/]
[ASCIZ/DE 174476:0/]
CASCIZ/DE 174536:0/]
[ASCIZ/DE 174576:0/]
LDDLY: [ASCIZ/,DE 174400:37777/]
CASCIZ/.DE 174440:37777/]
[ASCIZ/,DE 174500:37777/]
CASCIZ/,DE 174540:37777/]
LD11BC: [ASCIZ/.DE 174416:/]
CASCIZ/,DE 174456:/]
CASCIZ/.D: 174516:/]
CASCIZ/,DE 174556:/]
LD11AD: CASCIZ/,DE 174422:3000/]
CASCIZ/,DE 174462:3000/]
CASCIZ/,DE 174522:3000/]
CASCIZ/,DE 174562:3000/]
LD10AD: CASCIZ/,DE 174420:3000/]
CASCIZ/.DE 174460:3000/]
CASCIZ/,DE 174520:3000/]
CASCIZ/,DE 174560:3000/]
DTE^O-estabh'sh word mode
DTE#1
DTE/»2
DTE#3
DTE#0-Load up delay count
DTE#1
DTE#2
DTE*3
DTE#0-set 11 BC address
DTE*1
DTE#2
DTE*3
DTE#0-load T011AD in DTE*0
0TE#1
DTE*2
DTE*3
DTE*0-load T010 address in DTE*0
DrE*1
DTE#2
DTE#3
„_.J
DFSXA
DFSXAM
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
CNV
26-«ar
CHANNEL
-83 10:3
PROGRAM LOAD PDP-11 bInARY TO LOAD BLOCK CONVERSION
SEQ 0419
iT";';^
CIIDTTI
OOnnOAM I HAD OnD.11 QTMADV TO I HAH Ql nfir mMl/PDCmM
DFSXA
DFSXAM
13553
13554
13555
13556
13557
13558
13559
13560
13561
13562
13563
13564
13565
13566
13567
13568
13569
13570
13571
13572
13573
13574
13575
13576
13577
13578
13579
13580
13581
13582
13583
13584
DECSYSTEM KL10 CHANNEL/0TE20
CNV 26-Mar-83 10:34
INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SUBTTL PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
• /(f**** ************************************************ ****************
;* LDPBIN
• /jf*********** *********************************************************
SEQ 0419
066463
066463
066464
066465
066466
066467
066470
066471
260 17 0 00 066560
254 00 0 00 066636
322 01
306 01
00 066463
00 000377
254 00 0 00 066463
302 01 0 00 000001
254 00 0 00 066626
066472 202 01 0 00 074762
066473
066474
066475
066476
066477
066500
066501
066502
066503
066504
066505
LDPBIN:
C11LP: GO
JRST
JUMPE
CAIN
JRST
CAIE
JRSI
G11BYT
CERR4
BINBYT, C11LP
BINBYT, 377
C11LP
BINBYT, 1
CERRO
MOVEM BINBYT,C11SUM#
260 17 0 00 066560
254 00 0 00 066636
332 00 0 00 000001
254 00 0 00 066630
GO
JRST
SKIPE
JRST
G11BYT
CERR4
BINBYT
CERR1
260 17 0 00 066547
322 11 0 00 066632
GO
JUMPE
Gil WD
BINT1,CERR2
201 02 0 11 mm
321 02 0 00 066632
CULPA: MOVE I
JUMPL
BINBC,-6(BINT1)
BINBC,CERR2
260 17 0 00 066547
2ui 11 0 00 074754
322 02 0 00 066565
GO
MOVEM
JUMPE
Gil WD
BINT1,ADR11#
BIN8C.SRTBLK
; get 8 bit byte
; illegal EOF?
; discard nulls
; discard deletes
; verify constant 1
; junk?
; init checksum
; EOF?
; verify constant 0
; junk?
; get byte count
; zero byte count?
; get data byte count
; less than 6?
; get address
; save as block start address
; BC=6='s PDP-11 start block
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20
CNV 26-Mar-83 10:34
'TERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 2
PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SEQ 0420
DFSXA
DFSXAM
13585
13586
13587
13588
13589
13590
13591
13592
13593
13594
13595
13596
13597
13598
13599
13600
13601
13602
13603
1360A
13605
13606
13607
13608
13609
13610
13611
13612
13613
136K
13613
13616
13617
13618
13619
DECSYSTEM KLIO CHANNEL/DTE20
CNV 26-Mar-83 10:34
•TERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 2
oROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SEQ 0420
066506
066507
066510
066511
066512
066513
066514
066515
066516
201 13 0 00 000074
305 02 0 00 000074
200 13 0 00 000002
200 14 0 00 000013
200 11
202 11
350 00
242 13
202 13
00 074754
00 074756
00 000013
00 inin
00 074757
066517 200 03 0 00 074375
066520 200 11 0 00 074056
066521 402 00 0 00 066321
066522 251 11 0 00 066367
066523 260 17 0 00 066560
066524 254 00 0 00 066656
066525 137 01 0 00 000003
066526 643 03 0 00 100000
066527 350 00 0 00 000003
066530 367 14 0 00 066523
066531 260 17 0 00 066600
066532 005 00 0 00 074065
066533 201 11 0 00 000074
066534 27? 11 0 00 074754
066535 2?.- 02 0 00 000074
066536 327 02 0 00 066506
066537 260 17 0 00 066541
066540 254 00 0 00 066463
C.UPB:
MOVEI BINP1,AUC11*2
CAI6E BINBC,AWC11*2
MOVE BINP1,BINBC
MOVE BINP2.BiNP1
MOVE BINT1.ADR11#
MOVEM B1NT1,B11ADR*
AOS BINP1
LSH BINP1,-1
MOVEM BINP1,B11CNT#
MOVE
SETZM
BLT
C1 1 DATA: 60
JRST
DPB
TLCE
AOS
SO J 6
C11D0: GO
FAULT4
C11DID: MOVEI
ADDM
SUBI
JUMPG
GO
JRST
setup converted word count
does fUe have that many?
no - use what is in file
set count for fetch
setup converted start address
round up byte count
divide by 2
setup converted word count
MOVE BJNBA, [POINT 8.FEDAT,353; setup converted word former
BINT1,[FEWC,,FEWC+n
FEWC
BINT1,CHKSUM
6118YT
CERR4
BINBYT,BINBA
BIN8A, (POINT 0,0.27)
BINBA
BINP2,C11DATA
C11XFR
<PGM LOAD XFR ERROR>
BINT1,AUC11*2
BINT1,ADR11
BIN8C,AWC11*2
BINBCCIILPB
CK11SUM
C11LP
clear storage area
?et data byte
OF?
stuff into buffer
switch bytes
advance word every two
loop filling buffer
transfer block to PDP-11
advance block start address
decrement 11 byte count to go
loop till all of this block done
verify checksum
get next olock
DFSXA
DFSXAM
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 3
CNV 26-Mdr-83 10:34 PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SEO 0421
i^APn ^hk^L\ PAO 17 n nn n^/^s^n
rifii<siiM: nn
fiiinvT
a(>t- checksum bvte
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20
INTERACTION TEST -
DFSXAM
CNV
26-Mar-83 1C
):34
PROGRAM
LOAD PD
13620
066541
260
17 0 00
066560
CK11SUM
: GO
13621
066542
254
00 0 00 066636
JRST
13622
066543
200
11 0 00
074762
MOVE
13623
066544
606
11 0 00 000377
TRNN
1362A
066545
263
17 0 00
000000
RTN
13625
066546
254
00 0 00 066634
JRST
13626
13627
066547
260
17 0 00 066560
G11UD:
GO
13628
066550
254
00 0 00 066636
JRST
13629
066551
202
01 0 00 074760
MOVEM
13630
066552
260
17 0 00
066560
GO
13631
066553
254
00 0 00 066636
JRST
13632
066554
200
11 0 00
000001
MOVE
13633
066555
242
11 0 00
000010
LSH
1363A
066556
434
11 0 00
074760
I OR
13635
066557
263
17 0 00
000000
RTN
13636
13637
066560
037
10 0 00
000004
G11BYT:
FRD8
13638
066561
263
17 0 00
000000
RTN
13639
066562
202
00 0 00
000001
MOVEM
136A0
066563
272
01 0 00
074762
ADDM
13641
066564
254
00 0 00
030064
JRST
136A2
136A3
066565
260
17 0 00
066541
SRTBLK:
GO
136AA
136A5
066566
205
11 0 00
740000
MOVSI
136A6
066567
202
11 0 00
066321
MOVEM
136A7
066570
200
11 0 00
074754
MOVE
136A8
066571
137
11 0 00
074U57
DPS
136A9
13650
066572
2u!
00 0 00
020000
MOVE I
13651
066573
256
00 0 16
043570
.CONO
13652
066574
260
17 0 00
065724
U11DB0
13653
066575
005
00 0 00
074376
FAULT4
13654
066576
005
00 0 00
074403
FAULT4
13655
066577
254
00 0 00 065351
JRST
SEQ 0421
G11BYT
CERR4
BINT1,C11SUM
BINT1,377
CERR3
G11BYT
CERR4
BIN6YT,BYTESV*
G11BYT
CERR4
BINT1,BINBYT
BINT1,8
BINT1.BYTESV
BIN8YT
BINBYT,C11SUM
CP0PJ1 ;
CKIISUM ;
BINT1, 740000 ;
BINTl.FEUC ;
BINT1,ADR11
BINT1, [POINT 16,FEWCJ9:
T011D8
?et checksum byte
OF?
verify checksum result
should be 8 bits of 0
chenksum error?
get RH byte
EOF?
save
et left half byte
OF?
position left half byte
include right half byte
read 8 bit data byte
EOF
skip return
verify checksum
set examine verification bits
and zero word count
setup start address
<P6M START W11DB0 TIMEOUT>
<P6M START ERROR>
LDPRG4 ; completed
DFSXA
DFSXAM
13f.5ft
'1
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 4
CNV 26-Mar-83 10:34 PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SEQ 0422
n
DFSXA
DF3XAM
13656
13657
13658
13659
13660
13661
13662
13663
1366A
13665
13666
13667
13668
13669
13670
13671
13672
13673
13674
13675
13676
13677
13678
13679
13680
13681
13682
13683
1368A
13685
13686
13687
^^6B8
1J689
13690
13691
13692
13693
1369A
13695
13696
13697
13698
13699
13700
13701
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) K:07 21-Aug-85 Page 4
CNV 26-Mar-83 10:34 PROGRAM LOAD PDP-11 BINARY TO LOAD BLOCK CONVERSION
SEQ 0422
066600 200 11 0 00 07475?
066601 202 11 0 00 074761
066602 661 11 0 00 740000
066603 202 11 0 00 066321
066604 200 11 0 00 074756 -►
066605 272 11 0 00 074761
066606 137 11 0 00 074057
066607 402 00 0 00 000012
066610 200 11 0 00 074757
066611 361 110 00 066615
066612
066613
066614
066615
066616
066617
066620
066621
066622
066623
066624
066625
066626
066627
066630
066631
066632
066633
066634
066635
066636
066637
?00 00 0 12 066322
27?
344
00
1?
0 00 07'i76^
0 00 066611
210 11 0 00 074761
405 11 0 00 ^77777
202 11 0 12 06632?
201 00 0 00 020000
256 00 0 16 043570
260 17 0 00 065724
005 00 0 00 074060
263 17 0 00 000000
2i> ■ 00 0 00 067640
03? 01 0 00 074407
254 00 0 00 036334
037 01 0 00 074415
254 00 0 00 036334
037 01 0 00 074423
254 00 0 00 036334
037 01 0 00 074431
254 00 0 00 036334
037 01 0 00 074440
254 00 0 00 036334
C11XFR: MOVE BINT1,B11CNT
MOVEM BINT1.C11CKS# ;
TLO BINTl, 740000 ;
MOVEM BINT1,FEWC ;
MOVE BINT1,B11ADR j
ADDM BINT1.C11CKS
DPS BINT1. [POINT 16.FEWC,19J
SETZM BINT2
MOVE BINT1,B11CNT
C11CLP: SOJL BINT1,C11CDN ;
im"t converted checksum
set examine verification bits
setup word count
setup load address
C11CDN:
CERRO:
CERR1 :
CERR2:
CERR3i
CERR4:
MOVE
ADDM
AOJA
MOVN
ANDI
MOVEM
MOVE I
.CONO
WllDBO
FAULT4
RTN
SKPRTN
FMSGD
JRST
FMSGD
JRST
FMSGD
JRST
FMSGD
JRST
FMSGD
JRST
FEDAT(BINT2)
C11CKS
BINT2,C11CLP
BINTI.cnCKS
BINTl, 177^77
BINT1,FEDAT(BINT2)
T011DB
finished all data words?
get 16 bit word
add to checksum
loop and increment data address
negate checksum
strip back to 16 bits
<PGM LOAD WllDBO TIMEOUT>
; error
<PGM LOAD
STPRMl
<PGM LOAD
STPRMl
<PGr-1 LOAD
STPRMl
<PGM LOAD
STPRMl
<P6M LOAD
STPRMl
- CONSTANT 1 ERROR>
- CONSTANT 0 ERROR>
- BYTE COUNT ERROR>
- FILE CHECKSUM ERROR>
- ILLEGAL EOF>
1
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 1
OFSXAB MAC 18-M«ir-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
13702 SUBTTL SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0423
DFSXA
STOR
DFSXA
DFSXAB
13702
13703
13704
13705
13706
13707
13708
13709
13710
13711
13712
13713
137U
13715
13716
13717
13718
13719
13720
13721
13722
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i;53B(1242) U:07 21-Aug-85 Page 1
MAC 18-Mdr-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0423
066640
SUBTTL
SPCBT:
SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
;*DFSXA PDP-11 BOOTSTRAP
DECVER=1
MCNVER=0
.TITLE DFSXAB DFSXA PDP-11 BOOTSTRAP
LIST MCMD
DSABL G8L
DSABL REG
A6S
ENABL AMA
*JOHN R. KIRCHOFF
♦DECSVSTEMIO DIAGNOSTIC ENGINERRING
♦DIGITAL EQUIPMENT CORPORATION
♦MARLBORO. MASS. 01752
DFSXA
STOR
DFSXA
DFSXAB
13723
DECSYSTEM KLIO CHANNEL/DTE20
MAC 18-Mar-77 13:23
INTERACTION TEST - VER 0,7 MACRO J(53B(1242) 14:07 21-Aug-85 Page 2
SPECIAL PDP-n SECONDARY BOOTSTRAP PROGRAM
:.SBTTL DEFINITIONS
SEQ 0424
DFSXA
STOR
"1
DFSXA DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) K:07 21-Aug-85 Page 2
DFSXAB MAC 18-Mar-77 13:23 SPECIAL PDP-il SECONDARY BOOTSTRAP PROGRAM
SEQ 0424
13723
13724
13725
13726
13727
13728
13729
13730
13731
13732
13733
13734
13735
13736
13737
13738
13739
13740
13741
13742
13743
13744
13745
13746
13747
13748
13749
13750
13751
13752
13753
13754
13755
13756
13757
13758
.SBTTL DEFINITIONS
R0=
R1 =
R2=
R3=
R4=
R5=
SP=
PC=
PS=
XO
XI
22
j:3
Z4
X5
X6
X7
M777t
ERRVEC=4
PR7= 340
DLYCNT=0
DEXWD3=2
DEXWD2=4
DEXUD1=6
TENAD1=10
TENAD2=12
T010BC=14
T011BC=16
T010AD=20
T011AD=22
T010DT=24
T011DT=26
DIAG1=30
DIAG2=32
STATUS=34
DIAG3=36
T011DB=4000
T010DB=400
INT11C=2000
DEXD0N=4
.•GENERAL REGISTERS
;DTE20 ADDRESS OFFSETS
DFSXA
STOR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J(53B(1242) U:07 21-Aug-85 Page 3
DFSXAB MAC 18-Har-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0425
15759
.-.SBTTL MEMORY MAPPING AND RELOCATE LOAD PROGRAM
DFSXA
STOR
DFSXA
DFSXAB
13759
13760
13761
13762
13763
1376A
13765
13766
13767
13768
13769
13770
13771
13772
13773
13774
13775
13776
13777
13778
13779
13780
13781
13782
13783
1378A
13785
13786
13787
13788
13789
13790
13791
13792
13793
13794
13795
13796
13797
13798
13799
13800
13801
13802
13803
13804
13805
13806
13807
13808
13809
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO Z53B(1242) 14:07 21-Aug-85 Page 3
MAC 18-Mar-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0425
DFSXA
STOR
066640
066641
066642
066643
066660
066660
066661
066662
066663
066664
066665
066666
066667
066670
066671
066672
066673
066674
066675
066676
066677
066700
066701
066702
066703
066704
066705
066706
066707
066710
066711
066712
066713
066714
066715
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
oooooo
OuJOOO
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
oooooo
066640
000240
000416
000074
000340
000005
012706
000776
012737
000340
177776
010105
162705
000034
005000
062700
001000
005710
000774
010006
005046
005046
162700
000600
010004
010003
062703
000400
012702
000276
012701
000200
012120
005302
001375
;.SBTTL MEMORY MAPPING AND RELOCATE LOAD PROGRAM
LOCO=.
240
416
74
340
.-LOf-O:
.=0
NOP
BR
5
12706
776
12737
340
177776
066716 OOOOOO 000114
12120
5302
1375
114
.•START;
MAP3:
MAP2
PR 7
LOC LOC0+<40/2>
.=40
RESET
MOV
MOV
10105 ;
MOV
162705 ;
SUB
34
5000 ;•
CLR
62700 .-MAPI: ADD
1000
5710
TST
774
BR
10006 ;MAP2: MOV
5046
CLR
5046
CLR
1627C0 ;
SUB
60C
10004 ;
MOV
10003 ;
MOV
62703 ;
ADD
400
12702 ;
MOV
276
12701 ;
MOV
200
MOV
DEC
BNE
JMP
START
#STACK.SP
#PR7.PS
R1,R5
#STATUS,R5
RO
#1000, RO
(RO)
MAPI
RO,SP
-(SP)
-(SP)
#600, RO
R0,R4
RO.Ri
#400, R3
;BUS TIMEOUT TRAP RETURN ADR
;PUT PRG OUT OF TRAP VECTORS
.•SETUP STACK
;SET PRIORITY 7
;6ET DTE20 STATUS REG ADDRESS
.•MAKE DTE20 BASE ADDRESS
;MAP MEMORY
.-WHEN NXM FOUND
; TRAPS TO MAP2
;PUT STACK AT END OF MEMORY
; ft CLEAR LAST TWO LOCATIONS
;USE LAST 600 IN MEMORY
;SAVE START ADDRESS
.•SETUP LOAD BUFFER POINTER
;AT LAST 200 IN MEMORY
#<STARTZ-STARTA>/2,R2
#STARTA,R1
(R1)+,(R0)+
R2
MAP3
(R4)
.•RELOCATE PROGRAM
.•START RELOCATED PROGRAM
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J(53B(1242) 14:07 21-Aug-85 Page 4
DFSXAB MAC 18-Ma'-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
13810 :.SBTTL PDP-11 SECONDARY BOOTSTRAP
SEQ 0426
DFSXA
STOR
DFSXA
DFSXAB
13810
13811
13812
13813
138K
13815
13816
13817
13818
13819
13820
13821
13822
13823
1382A
13825
13826
13827
13828
13829
13830
13831
13832
13833
1383A
13835
13836
13837
13838
138'?
13840
13841
13842
13843
13844
13845
13846
13847
13848
13849
13850
13851
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 4
MAC 18-Mar-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
;.SBTTL PDP-11 SECONDARY BOOTSTRAP
SEQ 0426
066740
066740
066741
066742
066743
066744
000000
000000
000000
000000
000000
066746
066747
066750
066751
066752
066753
066754
066755
066756
066757
066760
066761
066762
066763
066764
066765
066766
066767
066770
066771
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
OuJOOO
000000
000 'r
''OOu./o
UOOOOO
000000
000000
000000
000000
000000
010300
(62700
000002
010037
000004
066745 000000 005000
032765
004000
000034
001774
005065
000010
010065
000012
032765
000004
000034
001774
022765
000017
000006
001404
012765
002400
000034
000000
;;*LOADS DATA FROM THE TEN INTO THE PDP-11
;;* RUNS FROM THE LAST 600 LOCATIONS OF MEMORY
LOC LOC0+<200/2>
.=200
10300
162700
2
10037
4
5000
32765
4000
34
1774
5065
10
10065
12
32765
4
34
1774
22765
17
6
1404
12765
2400
34
0
;STARTA:MOV
SUB
MOV
R3,R0
#2.R0
RO,ERRVEC
;MAKE AFTER RELOC ADR'S ONLY
.•DIFFERENT BY RELOCATION
;SET BUS TRAP TO FATAL HALT
;;*WAIT FOR DOORBELL FROM TEN AND THEN TRANSFER LOAD BLOCK
;LOADLP:CLR
:-i$:
;2$:
BIT
BEQ
CLR
MOV
BIT
BEQ
CMP
BEQ
MOV
HALT
RO
#T011DB,STATUS(R5)
1$
TENAD1(R5)
R0,TENAD2(R5)
#DEXD0N,STATUS(R5)
.-WAIT FOR DOORBELL
.•EXAMINE TEN FOR WORD COUNT
2S
#17,DEXWD1(R5)
;DID EXAMINE WORK
3$ ;YES, BITS 0-3 SHOULD BE ONES
#TO10DB!INT11C.STATUS(R5)
;N0. NOTIFY TEN
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO JI53B(1242) U:07 21-Aug-85 Page 5
DFSXAB MAC 18-Mar-77 13:23 "
SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0^27
13852
.•.•♦TRANSFER LOAD DATA BLOCK TO PDP-11
DFSXA
DFSXAB
13852
13853
1385A
13855
13856
13857
13858
13859
13860
13861
13862
13863
1386A
13865
13866
13867
13868
13869
13870
13871
13872
13873
1387A
13875
13876
13877
13878
13879
13880
DECSYSTEM KLIO CHANNEL/DTE20
MAC 18-Mar-77 13:23
INTERACTION TEST - VER 0,7 MACRO J:53B(1242) U:07 21-Aug-85 Page 5
SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0i*27
066772
066773
066777
067000
067002
067003
06700A
067005
067006
067007
067010
067011
067012
067013
000000
000000
000000
066775 000000
066776 000000
000000
OOjOOO
000000
000000
000000
000000
000000
oococo
000000
000000
000000
000000
016502
000002
00UA7
010304
010224
016524
000004
067001 000000 005200
010065
000012
032765
000004
000034
001774
016524
000002
005302
002365
16502
2
1447
10304
10224
16524
4
5200
10065
12
32765
4
34
1774
16524
2
5302
2365
.-•TRANSFER LOAD DATA BLOCK TO PDP-11
4$:
5$:
MOV
DEXWD3(R5),R2
;6ET WORD COUNT
BEQ
PR6SRT
.-WORD COUNT = 0. XFR
MOV
R3,R4
.•SETUP STORAGE ADDRESS
MOV
R2,(R4)+
;SAVE
MOV
DEXWD2(R5),(R4)
+ .-SAVE LOAD ADDRESS
INC
RO
.-NOW GET DATA
MOV
R0,TENAD2(R5)
BIT
#DEXD0N, STATUS (R5)
BEQ
5$
:)V
DEXUD3(R5).(R4)
+ .-STORE DATA WORD
DEC
B6E
R2
4$
;C0MPLET:D BLOCK ?
.-NOT YET
;NOW GO LOAD INTO MEMORY
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J[53B(1242) 14:07 21-Aug-85 Page 6
DFSXAB MAC 18-Mar-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
13881 ;;*LOAD DATA BLOCK INTO PDP-11 MEMORY
SEQ 0428
DFSXA
STOR
1442?
DFSXA
DFSXAB
13881
13882
13883
1388A
13885
13886
13887
13888
13889
13890
13891
13892
13893
1389A
13895
13896
13897
13898
13899
13900
13901
13902
13903
13904
13905
13906
13907
13908
13909
13910
13911
13912
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) U:07 21-Aug-85 Page 6
MAC 18-Mar-77 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0428
067014
067015
067016
067017
067020
067021
067022
067023
067024
067025
067026
067027
067030
067031
067032
067033
067034
067035
067036
067037
000000
OQOOOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
oocooo
000000
000000
000000
000000
000000
010304
012400
010002
062402
062402
005300
002375
005702
001404
012765
002400
000034
000000
010304
012400
012401
112421
112421
005300
003374
067040 000000 012765
067041 000000 002000
067042 OuJOOO 000034
067043 000000 000701
10304
12400
10002
62402
62402
5300
2375
5702
1404
12765
2400
4
;*L0AD DATA BLOCK INTO PDP-11 MEMORY
PRGLD
10$:
I
10304
12400
12401
112421
112421
5300
3374
12765
2000
34
701
11$:
1$:
2$:
MOV
MOV
MOV
ADD
ADD
DEC
BGE
TST
BEQ
MOV
HALT
MOV
MOV
MOV
MOVB
M0V6
DEC
B6T
MOV
BR
R3,R4
(R4)+.R0
R0-R2
(Ri)+.R2
(R4)+,R2
RO
10$
R2
11$
.-SETUP BUFFER POINTER
;GET WORD COUNT
;INIT CHECKSUM
;ADD IN LOAD ADDRESS
.•COMPUTE LOAD BLOCK CHECKSUM
; CHECKSUM = 0 ?
;YES, OK
*T010DB!INT11C.STATUS(R5)
R3,R4
(R4)+,R0
(R4)+.R1
(R4)+,(R1)+
(R4)+.(R1)+
RO
1$
;N0. NOTIFY TEN
.•LOAD BUFFER POINTER TO R4
.•GET WORD COUNT
.-GET LOAD ADDRESS
.-LOAD BYTES INTO MEMORY
#INT11C. STATUS (R5) ; CLEAR DOORBELL
LOADLP
DFSXA DECSYSTEM KLlO £HANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 1538(1242) 14:07 21-Aug-85 Page 7
DFSXAB MAC 18-«ar-?7 13:23 SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEQ 0429
13913
;;*START PROGRAM JUST LOADED
n
DFSXA
DFSXAB
13913
139U
13915
13916
13917
13918
13919
13920
13921
13922
13923
13924
13925
13926
13927
13928
13929
13930
13931
13932
13933
13934
13935
13936
13937
13938
13939
13940
13941
139^.2
13943
13944
13945
13946
13947
13948
13949
13950
13951
13952
13953
13954
DECSYSTEM KLIO CHANNEL/DTE20
MAC 18-rdr-77 13:23
INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 7
SPECIAL PDP-11 SECONDARY BOOTSTRAP PROGRAM
SEO 0429
067044
067045
067046
067047
067050
000000
000000
000000
000000
ocoooo
016504
000004
012765
002000
000034
067051 000000 010600
067052
067053
067054
067055
067056
067057
000000
000000
000000
000000
000000
000000
000240
005704
001404
032704
000001
001003
067060 000000 000114
067061
067062
067063
067064
067065
067066
067067
000000
000000
000000
000000
000000
000000
000000
000137
003000
022704
000001
001002
000137
000200
067070 000000 000000
16504
4
12765
2000
34
10600
P11HLT: 540
5704
1404
32704
1
1003
114
137
3000
22704
1
1002
137
200
;*START PROGRAM JUST LOADED
PRGSRT:MOV
1$:
:2$:
MOV
MOV
.-NOP
TST
BEQ
BIT
BNE
JMP
JMP
CMP
BNE
JMP
067071
^^67240
STARTZ;
LOC
;3$.
HA' T
.^ ■:k
•STARTZ
; STACK:
:C
C
.:nd
SPCBT+*
D256
DEXUD2(R5),R4 ;GET START ADDRESS
#INT11C,STATUS(R5) .-CLEAR DOORBELL
SP,RO
R4
1$
#1,R4
2$
(R4)
3000
#1,R4
3$
200
.-PUT STACK ADR IN RO
;NOP OR HLT FOR BL OR BH
;IF ADR 0, START AT 3000
;IF ADR ODD. CHECK IF ONE ALSO
.•START AT START ADDRESS
;ADR = 0. START A; 3000
;BAD ADDRESS
;ADR = 1. START AT 200
;BAD START ADDRESS
.-END
ELOCATION AREA
LOCO
DFSXA
DFSXAX
13955
13956
13957
13958
13959
13960
13961
13962
13963
13964
13965
13966
13967
13963
13969
13970
13971
13972
13973
13974
13975
13976
DECSYSTEM
MAC
067240
.. KL10 CHANNE
18-Mar-77 13:
/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
3 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SUBTTL SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SXABT:
;*DFSXA PDP-11 RESTRICTED DTE20 BYTE TRANSFER
DECVER=1
MCNVER=0
.TITLE DFSXAX DFSXA PDP-11 RESTRICTED DTE20 BYTE TRANSFER
.LIST MCMD
.DSABL GBL
.DSABL REG
.ABS
.ENABL AMA
;*J0HN R. KIRCHOFF
;*DECSYSTEM10 DIAGNOSTIC EN6INERRING
.-♦DIGITAL EQUIPMENT CORPORATION
.-♦MARLBORO, MASS. 01752
SEQ 0430
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 2
DFSXAX MAC 18-Mar-77 13:23 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SEQ 0431
'1
DFSXA
DFSXAX
13977
13978
13979
13980
13981
13982
13983
1398A
13985
13986
13987
13988
13989
13990
13991
13992
13993
13994
13995
13996
13997
13998
13999
14000
1A001
K002
H003
HOOA
H005
14006
14007
14008
14009
14010
14011
14012
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 2
MAC 18-Mar-77 13:23 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SEQ 0431
.SBTTL DEFINITIONS
R0=
R1 =
R2=
R3=
R4=
R5=
SP=
PC=
PS=
XO
XI
X2
X5
24
X5
X6
X7
M777t
ERRVEC=4
PR 7= 340
DLYCNT=0
DEXWD3=2
DEXUD2=4
DEXUD1=6
TENAD1=10
TENAD2=12
T010BC=14
T011BC=16
T010AD=20
T011AD=22
T010DT=24
T011DT=26
DIAG1=30
DIA62=32
STATUS=34
DIA63=36
T011DB=4000
T010DB=400
INT11C=2000
DEXD0N=4
.-GENERAL REGISTERS
;DTE20 ADDRESS OFFSETS
DFSXA DECSYSTEM KL10 CHANNEL/DTE20
DFSXAX MAC 18-Mar-77 13:23
INTERACTION TEST - VEfl 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 3
SPECIAL PDP-II RESTRICTED 0TE20 BYTE TRANSFER
SEQ 0432
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) U;07 21-Aug-85 Page 3
DFSXAX MAC 18-Mar-77 13:23 SPECIAL PDP-II RESTRICTED DTE20 BYTE TRANSFER
SEQ 0432
140 1 3
14014
14015
14016
14017
14018
14019
14020
14021
14022
14023
14024
14025
14026
14027
14028
14029
14030
14031
14032
14033
14034
14035
V036
14037
14038
14039
067240
067241
067242
067243
067260
067260
0u7261
067262
067263
067264
067265
067266
067267
067270
067240
000000 000240
000000 000416
000000 000400
000000 000340
000000
000000
000000
000000
000000
000000
000000
000000
000000
000005
012706
000776
012737
000340
177776
010105
162705
000034
067271 000000 000446
LOCO:
SXALO=.
240
416
400
340
LOC SXAl6+<40/2>
.SBTTL PROGRAM STARTUP
.=0
NOP
BR
BUSTO
PR7
.=40
START
;BUS TIMEOUT TRAP ADR
;PUT PR6 OUT OF TRAP VECTORS
5
12706
776
12737
340
177776
10105
162705
34
446
.•START: RESET
MOV
MOV
MOV
SUB
BR
#STACK.SP
#PR7,PS
R1,R5
#STATUS,R5
SXALP
.•SETUP STACK
;SET PRIORITY 7
.-GET DTE20 STATUS REG ADR
;MAKE DTE20 BASE ADDRESS
:G0 RUN
DFSXA OECSYSTEM KLIO
DFSXAX MAC
M KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO |53B(1242) 14:07 21-Aug-85 Page 4
18-Mar-77 13:23 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SEQ 0433
4 i f\i r\
I A r V i f\r\r
DFSXA
DFSXAX
1A0A0
U0A1
1A0A2
1A0A3
UOAA
1A0A5
H0A6
14047
14048
14049
14050
14051
14052
14053
14054
14055
14056
14057
14058
14059
14060
14061
14062
14063
14064
14065
14066
14067
14068
14069
14070
14071
14072
14073
14074
14075
14076
14077
14078
14079
14080
14081
14082
14083
14084
14085
14086
14087
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3!53B(1242) 14:07 21-Aug-85 Page 4
MAC 18-Mar-77 13:23 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SEQ 0433
067340
067340
067341
067342
067343
067344
067345
067346
067347
067350
067351
067352
067353
067354
067355
067356
067357
067360
067361
067362
067363
067364
067365
067366
067367
067370
067371
067372
067373
067374
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
OuJOOO
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
032765
004000
000034
001774
005065
000010
005065
000012
032765
000004
000034
001 774
022765
000017
000006
001404
012765
002400
000034
000754
016500
000002
001771
022700
000001
001404
022700
000002
001425
067375 000000 000762
;.S8TTL SXAll DOORBELL WAIT LOOP
LOC SXAl6+<200/2>
.=200
32765
4000
34
1774
5065
10
5065
12
32765
4
34
1774
22765
17
6
1404
12765
2400
16500
2
1771
22700
1
1404
22700
2
1425
762
;PUT PROGRAM AT 200
;*0N STARTUP
;* R5 = DTE20 BASE ADDRESS
;* SP = GOOD STACK POINTER
SXALP: BIT
§10
CLR
CLR
:-i$=
BIT
2$:
3$:
#T011DB,STATUS(R5)
SXALP
TENADKRS)
TENAD2(R5)
;UAIT FOR DOORBELL
.•EXAMINE TEN
#DEXD0N.STATUS(R5)
8IQ
1$
CMP
#17,DEXUD1(R5)
•VALID EXAMINE ?
6E0
3$
•YES. BIT 0-3 SET
MOV
#T010DB
INT11C,STATUS(R5)
BR
SXALP
■NO, NOTIFY TEN
MOV
DEXWD3(R5)
,R0
•GET COMMAND
BEQ
2$
•INVALID COMMAND
C«P
#1,R0
•WRITE COMMAND. 1 ?
ito
SXAWRT
•YES
Clip
#2,R0
•READ COMMAND. 2 ?
810
SXARD
•YES
m
2$
; UNKNOWN COMMAND
DFSXA
STOR
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO |53B(1242) 14:07 21-Aug-85 Page
DFSXAX MAC 18-Mdr-77 13:23 SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
SEQ 0434
i/noo
CDTTl r\CCWA I.IDTTC OnilTTklC
DFSXA
STOR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 5
DFSXAX MAC 18-Mdr-77 13:23 SPECIAL PDP-11 P^STRICTED DTE20 BYTE TRANSFER
1A088
14089
14090
14091
14092
14093
14094
14095
14096
14097
14098
14099
14100
14101
14102
14103
14104
14105
14106
14107
14108
14109
14110
14111
14112
14113
14114
14115
SEQ 0434
067376
067377
067400
067401
067402
067403
067404
067405
067406
067407
067410
067411
067412
067413
067414
067415
067416
067417
067420
067421
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
016501
000004
012765
000000
000036
012765
037777
000000
012765
003000
000022
052701
100000
010165
000016
012765
002000
000034
000137
000200
16501
4
12765
0
36
12765
17777
0
12765
3000
22
52701
100000
10165
16
12765
2000
34
137
200
.SBTTL DFSXA WRITE ROUTINE
SXAWRT:M0V DEXWD2(R5) ,R1 ;6ET BYTE COUNT
MOV
*0,DIAG3(R5) ;SET WORD MODE
MOV #37777, DLYCNT(R5) ;SET MIN DELAY
MOV #3000, T01 IAD (R5) ;SET TO-11 ADDRESS
BIS #100000, R1 ;SET INTIO BIT
MOV R1,T011BC(R5) ;SET TO-11 BYTE COUNT
MOV #INT11C,STATUS(R5) ;CLEAR DOORBELL
JMP SXALP
.-WAIT FOR NEXT COMMAND
"1
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACR0^«3B(1242) 14:07 21-Aug-85 Page 6
DFSXAX MAC 18-Mar-77 13:23 SPECIAL PDP-11 RESTRICTED 0TE20 BYTE TRANSFER
SEQ 0435
nrrwA Dc«r\ BrtiiTr&ic
DFSXA
STOR
"1
DFSXA
DFSXAX
14116
14117
14118
14119
14120
14121
14122
14123
14124
14125
14126
14127
14128
14129
14130
14131
14132
14133
14134
14135
14136
14137
14138
14139
14140
14141
14142
14143
14144
14145
14146
DECSYSTEM KLIO CHANNEL/DTE20
MAC 18-Mar-77 13:23
067422
067423
067424
067425
067426
067427
067430
067431
067432
067433
067434
067435
067436
067437
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
012765
000000
000036
012765
037777
000000
012765
003000
000020
012765
002000
000034
000137
000200
INTERACTION TEST - VER 0,7 MACRO !i;53B(1242) 14:07 21-Aug-85 Page 6
SPECIAL PDP-11 RESTRICTED DTE20 BYTE TRANSFER
.SBTTL DFSXA READ ROUTINE
#0.DIAG3(R5) ;SET WORD MODE
#37777, DLYCNT(R5) ;SET MIN DELAY
#3000,T010AD(R5) ;SET TQ-10 ADDRESS
#INT11C, STATUS {R5) .-CLEAR DOORBELL
SEQ 0435
DFSXA
STOR
067440 000000 000000
067441
067640
12765
§6
;SXARD:
MOV
0
MOV
12765
3000
20
#
MOV
12765
2000
34
9
MOV
137
200
JMP
0
•BUS TO:
HALT
.=77^
iSTARTZ
.•STACK:
:0
0
SXAZ:
LOC
•.END
SXABT+*
LOCO
D256
SXALP
;UAIT FOR NEXT COMMAND
;BUS TIMEOUT HALT
DFSXA
STOR
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0436
CIIPTTI
*<:TnR* RF<:FR\/pn «;TnRAr;F <;fpt ir io7Q
DFSXA
STOR
1
DFSXA
STOR
1AU7
141A8
KU9
14150
14151
14152
14153
1415A
14155
14156
14157
14158
14159
14160
14161
14162
14163
14164
14165
14166
14167
14168
14169
14170
14171
14172
14173
14174
14175
14176
14177
14178
14179
14180
14181
14182
14183
14184
14185
14186
14187
14188
14189
14190
14191
14192
14193
14194
14195
14196
14197
14198
14199
14200
14201
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 1
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
; PROGRAM LITERALS
XLIST
IFNDEF $LPAPER,<LIST>
LIT
SEQ 0436
067640
067640
067641
067642
067643
067644
067645
067646
067647
067650
067651
067652
067653
067654
067655
067656
067657
067660
067661
067662
067663
067664
067665
067666
067667
067670
067671
067672
067673
067674
067675
067676
067677
067700
067701
067702
067703
067704
067705
067706
067707
067710
067711
067712
067713
067714
067715
067716
067717
350
263
405
254
262
254
262
263
042721
402 00
402
402
200
251
263
00
17
00
00
17
00
17
17
00
00
00
00
17
044153
115 055
17 000000
00 000000
00 ^77777
00 067640
00 000000
00 067640
00 000000
00 000000
042722
00 074775
075017
042721
067650
042750
000000
00
00
00
00
00
040
110
104
116
114
06?
1U!
102
060
116
101
000
117
114
060
124
111
000
044154
102 117
400003
120 117
117
114
000
124
040
040
125
124
000
124
124
000
040
122
123
123
123
000
103
111
117
060
060
000
115
102
117
101
000
124
115
117
122
125
040
105
127
040
123
124
124
060
060
000
101
125
124
102
000
122
111
116
117
122
127
000
122
124
000000
122 124
122
123
040
060
060
000
123
123
040
114
000
101
123
040
^22
111
122
000
111
105
040
040
064
063
060
000
123
040
105
105
000
116
123
105
040
116
111
000
124
123
130
040
105
000
101
110
124
040
075
000
040
102
116
060
060
060
000
040
116
116
104
000
123
111
122
104
107
124
000
105
124
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0^7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 1-1
KLM 18-Sep-79 17:18 """
*ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0437
^Lor\o nA775n nnn nnn nnn nnn nnn
DFSXA
STOR
n
DFSXA
STOR
U202
14203
14204
14205
14206
14207
14208
14209
14210
14211
14212
14213
14214
14215
14216
14217
14218
14219
14220
14221
14222
14223
14224
14225
14226
14227
14228
14229
14230
14231
14232
14233
14234
14235
14236
14237
14238
14239
14240
14241
14242
14243
14244
14245
14246
14247
14248
14249
14250
14251
14252
14253
14254
14255
14256
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO !I!53B(1242) 14:07 21-Aug-85 Page 1-1
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0437
067720
067721
067722
067723
067724
067725
067726
067727
067730
067731
067732
067733
067734
067735
067736
067737
067740
067741
067742
067743
067744
067745
067746
067747
067750
067751
067752
067753
067754
067755
067756
067757
067760
067761
067762
067763
067764
067765
067766
067767
067770
067771
067772
067773
067774
067775
067776
067777
070000
070001
070002
070003
070004
070005
070006
000
104
V/5
0«0
116
111
124
115
117
122
125
040
000
122
124
104
105
040
116
101
201
260
300
263
124
115
117
122
125
040
Oh J
122
122
122
123
123
104
105
040
116
101
126
000
000 000
101 124
122 122
104 125
107 040
124 105
122 101
111 123
116 040
117 122
122 111
122 105
000 000
105 101
105 123
101 124
122 122
104 125
107 040
104 000
00 0 00
17 0 00
00 0 00
17 0 00
122 101
111
116
117
122
122
122
123
105
105
105
124
101
122
104
107
104
105
000
200000
115 102
123
040
122
111
105
105
105
101
126
040
000
124
122
125
040
040
122
000
000
101
117
122
127
000
116
123
105
040
116
101
000
104
124
101
117
122
122
000 ...
000377
043077
000000
000000
116 123
000
040
122
111
122
000
123
111
122
104
107
104
000
040
000
040
122
111
105
000
123
105
040
116
101
126
000
104
105
124
000
101
117
122
122
122
123
000
116
040
105
115
116
040
105
101
00
105
110
104
102
105
123
104
124
26 0
044541
117 130
111
122
104
107
104
105
000
040
122
105
000
040
122
111
105
105
105
000
115 102
126
101
000
117
126
124
040
125
01 377001
117 130 040
105
114
000
130
105
117
123
123
040
122
124
000
040
122
122
124
000
DFSXA
STOR
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 HACRO X53B(1242) 14:07 21-Aug-85 Page 1-2
STOR KLH 18-Sep-79 17:18 tSTOR* RESERVED STORAGE, SEPT 18,1979
u?S7 n7nnn7 no ini iu i?4 ins
SEQ 0438
DFSXA
STOR
DFSXA
STOR
U257
14258
K259
1A260
1A261
U262
K263
U264
U265
U266
1A267
U268
U269
14270
14271
14272
14273
14274
14275
14276
14277
14278
14279
14280
14281
14282
14283
14284
14285
14286
14287
14288
14289
14290
14291
14292
14293
14294
14295
14296
14297
14298
14299
14300
14301
14302
14303
14304
14305
14306
14307
14308
14309
14310
14311
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page ^-2
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0438
070007
070010
070011
070012
070013
070014
07001 5
070016
070017
070020
070021
070022
070023
070024
070025
070026
070027
070030
070031
070032
070033
070034
070035
070036
070037
070040
070041
070042
070043
070044
070045
070046
070047
070050
070051
070052
070053
070054
070055
070056
070057
070060
070061
070062
070063
070064
070065
070066
070067
070070
070071
070072
070073
070074
070075
110
104
127
040
122
117
44
124
115
117
122
104
105
040
116
124
124
127
000
104
105
040
116
124
124
122
200
260
260
263
2uJ
260
263
122
122
105
127
055
122
101
000
104
105
040
122
127
040
122
101
000
U7
055
122
101
126
101
040
122
111
125
116
22 0
114
101
117
116
103
000
105
040
107
124
111
000
122
111
116
117
101
122
104
107
105
111
122
000
101
122
104
107
105
111
105
00
17
17
17
00
17
17
105
105
123
122
117
123
104
000
101
122
117
111
110
117
123
104
000
122
117
123
104
000
124
124
116
123
124
000
00 054543
101 116 123
123
105
000
101
117
122
111
101
105
124
000
101
117
122
111
101
105
104
123
040
122
124
122
125
040
122
126
111
000
124
122
125
040
122
126
101
07
00
00
00
07
00
00
101
126
124
111
124
040
111
000
124
122
116
124
111
124
040
111
000
111
124
040
040
000
111
122
000
040
122
111
116
103
040
105
000
040
122
111
116
103
040
000
061351
033017
034666
000000
061342
033017
000000
104 040
040
000
124
110
122
116
000
101
117
040
105
114
110
122
116
000
124
110
122
122
000
124
000
105
105
105
107
000
040
122
127
040
105
105
105
107
000
105
105
105
105
000
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO |53B(1242) 14:07 21-Aug-85 Page 1-3
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18.1979
14^1? 07007^ in^ ir.i 1P4 ini 040
SEQ 0439
DFSXA
STOR
U312
K313
U3U
1431 5
1A316
14317
14318
14319
14320
14321
14322
14323
14324
14325
14326
14327
14328
14329
14330
14331
14332
14333
14334
14335
14336
14337
14338
14339
14340
14341
14342
14343
14344
14345
14346
14347
14348
14349
14350
14351
14352
14353
14354
14355
14356
14357
14358
14359
14360
14361
14362
14363
14364
14365
14366
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 1-3
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18.1979
SEQ 0439
DFSXA
STOR
070076
070077
070100
070101
070102
070103
070104
070105
070106
070107
070110
070111
070112
070113
070114
070115
070116
070117
070120
070121
070122
070123
070124
070125
070126
070127
070130
070131
070132
070133
070134
070135
070136
070137
070140
070141
070142
070143
070144
070145
070146
070147
070150
070151
070152
070153
070154
070155
070156
070157
070160
070161
070162
070163
070164
104
105
040
122
127
040
122
101
040
122
122
117
123
124
104
105
040
105
110
117
123
124
123
124
104
105
055
105
116
105
lio
117
101
132
106
124
104
105
055
105
116
105
104
117
114
101
101
122
117
111
110
117
123
104
122
123
105
124
040
111
101
122
117
101
111
124
040
111
113
105
101
122
102
122
124
104
055
040
000
105
111
105
101
122
102
122
124
104
040
040
040
000
061017
127 122
124
122
116
124
111
124
040
111
105
105
101
110
127
116
124
122
116
104
114
110
127
116
111
123
124
122
125
040
101
040
132
104
000
122
114
123
124
122
125
040
101
040
132
106
104
000
101
117
040
105
114
110
122
116
126
000
104
105
122
107
101
117
040
040
105
105
122
107
120
124
101
117
106
103
111
116
105
101
000
117
114
124
101
117
106
103
111
102
105
111
101
000
040
103
105
110
105
000
122
101
110
114
122
115
000
105
061020
111 124
114
101
123
125
117
000
101
114
116
040
040
122
000
104
040
122
127
040
105
105
105
107
105
000
055
122
111
000
040
122
122
127
040
122
111
000
040
000
040
122
106
117
116
117
122
124
000
040
040
000
040
122
106
117
116
101
122
114
124
000
105
040
116
124
115
131
000
040
DFSXA
STOR
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3(538(1242) 14:07 21-Aug-85 Page 1-^
KLM 18-Sep-79 17:18 •STOR* RESERVED STORAGE. SEPT 18.1979
SEQ 0440
14367 070165 101 114 114 040 103
DFSXA
STOR
DFSXA
STOR
U367
K368
1A369
1A370
14371
H372
K373
1437A
14375
14376
14377
14378
14379
14380
14381
14382
14383
14384
14385
14386
14387
14388
14389
14390
14391
14392
14393
14394
14395
14396
14397
14398
14399
14400
14401
14402
14403
14404
14405
14406
14407
14408
14409
14410
14411
14412
14413
14414
14415
14416
14417
14418
14419
14420
14421
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) 14:07 21-Aug-85 Page 1-4
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0440
070165
070166
070167
070170
070171
070172
070173
070174
070175
070176
070177
070200
070201
070202
070203
070204
070205
070206
070207
070210
07021 1
070212
070213
070214
070215
070216
070217
070220
070221
070222
070223
070224
070225
070226
070227
070230
070231
070232
070233
070234
070235
070236
070237
070240
070241
070242
070243
070244
070245
070246
070247
070250
070251
070252
070253
101
110
114
122
115
124
115
117
122
116
104
122
115
116
123
000
104
103
122
122
114
101
123
125
117
122
111
116
117
040
117
101
040
124
124
000
101
117
105
117
40C003
015 012
114
116
040
040
122
101
123
040
122
122
115
116
105
040
111
000
124
115
040
122
040
116
124
115
131
116
123
105
040
101
000
104
126
124
116
000
101
120
105
000
116
111
122
117
122
260
254
636470
63o470
556316
201 00
256 00
254 00
60 62
117
116
125
103
105
17
00
000210
125 116
103
105
110
105
000
123
111
122
111
116
000
117
105
105
107
000
040
101
122
000
116
105
124
125
072
063145
032514
113
040
122
040
122
000
543217
26 13 0
00 12 0
26 13 0
000017
333 00
254 00
254 00
556316
260 17
127
124
120
103
104
0 00
0 00
164466
166250
456470
0 00 400000
0 16 043570
0 00 032505
47 45 64 70
335216
16 060737
00 000000
00 074765
777577
0 16 060633
0 00 032665
0 00 032662
254
200
260
263
122
101
000
122
104
00
00
17
17
104
111
000
105
040
455"
00
00
16
00
00
123
114
000
127
105
'64
032614
067640
060737
066066
000000
040 106
105
000
111
122
104
000
116
122
DFSXA
STOR
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO J{53B(1242) 14:07 21-Aug-85 Page 1-5
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0441
1442? 070254 117 1?? 040 055 040
DFSXA
STOR
UA22
UA23
UA2A
UA25
1AA26
1AA27
14A28
1AA29
1AA30
1AA51
1AA32
1AA33
1AA3A
1AA35
1AA36
1AA37
1AA38
1AA39
lAAAO
1AAA1
1AAA2
1AAA3
1AAAA
1AAA5
1AAA6
1A4A7
1AAA8
1AAA9
1AA50
1AA51
1AA52
1AA53
1AA5A
1AA55
1AA56
1AA57
1AA58
1AA59
1AA60
1AA61
1AA62
1AA63
1AA6A
1AA65
1AA66
1AA67
1AA68
1AA69
1AA70
1AA71
1AA 72
1AA73
1AA7A
KA75
1AA76
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(12A2) 1A:07 21-Aug-85 Page 1-5
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
SEQ 0AA1
07025A
070255
070256
070257
070260
070261
070262
070265
07026A
070265
070266
070267
070270
070271
070272
070273
07027A
070275
070276
070277
070300
070301
070302
070303
07030A
070305
070306
070307
070310
070311
070312
070313
07031 A
070315
070316
070317
070320
070321
070322
070323
07032A
070325
070326
070327
070330
070331
070332
070333
07033A
070335
070336
070337
0703A0
0703A1
0703A2
117 122 OAO 055 OAO
125 120 10A 103 122
127 000 000 000 000
iiiin
16 060737
000000
00 000000
0 16 060633
0 00 033112
0 00 033110
0607A0
060750
377001
12A
116
107 OAO 105 122 122
117 122 000 000 000
26A 00 0 00 062665
00 23 0 00 033576
00 000006
OAA5A2
0AA5A2
001001
001000
0000A1
OOOOAO
00 000005
000050
0AA5A1
000000
050000
560001
000002
050A00
0 00 000016
263 17 0 00 000000
26 13 0 07 061360
00 03 0 00 000016
20 1A 0 15 066261
AA 11 0 00 000000
333 00 0 16 060633
25A 00 0 00 03A207
25A 00 0 00 03A1A3
26A 00 0 00 0323A2
10A 12A 105 062 060
OAO 127 122 111 12A
105 OAO 123 12A 101
m 12A 125 120 OAO
106 101 111 11A 105
10A 000 000 000 000
333 00 0 16 060633
25A 00 0 00 03A270
25A 00 0 00 03A225
10A 12A 105 062 060
OAO 106 101 111 11A
000001
00 26 0
600000
26 13 0
333 00
25A 00
25A 00
060737
0607A7
377000
120 117 123 111
111 117 116 111
00 22 0
20C000
0AA5A1
77A000
77A000
77A000
77A000
00 01 0
100000
0AA5A1
100000
7?/A00
560000
000002
OOOAOO
262 17
n
DFSXA
STOR
DF.CSYSTEfi KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12'
KLM 18-Sep-/9 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 1-6
SEQ 04A2
1AA77 0703A? 105 10A OAO 122 105
DFSXA
STOR
1AA77
KA78
1A479
V,A80
U/>81
1AA82
H483
U48A
1AA85
1AA86
1AA87
1AA88
1AA89
1AA90
1AA91
1AA92
1AA93
1AA9A
1AA95
1AA96
1AA97
1AA98
1AA99
1A500
1A501
1A502
1A503
1A50A
1A505
1A506
1A507
1A508
1A509
1A510
1A511
1A512
1A513
1A51A
1A515
1A516
1A517
1A518
1A519
1A520
1A521
1A522
1A523
1A52A
1A525
1A526
1A527
1A528
1A529
1A530
U531
DF.C':YSTEri KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3;53B(12A2) U:07 21-Aug-85 Page 1-6
n
KLM
0703A?
0703AA
0703A5
0703^6
0703^7
07031.0
0703'n
070352
070353
07035A
070355
0703^56
070:)57
070360
07C361
070362
070363
07036A
070365
070366
070367
070370
070371
070372
070373
07037A
070375
070376
070377
07( ,30
07U-401
070A02
070A03
070A0A
070A05
070A06
070A07
070A10
07nA11
U70A12
070A13
070A1A
070A15
070A16
070A17
070A20
070A21
070A22
070A23
070A2A
070A25
070A26
070A27
070A30
070A51
18-Sep-79 17:18
105 10A OAO 122 105
101 10A 000 000 000
10A 12A 105 062 060
OAO 106 101 111 11A
105 10A OAO 127 122
111 12A 105 000 000
AO 03 0 16 0606A7
127 12A
101 111
000 000
127 106
101 111
000 000
127 103
101 111
000 000
127 117
106 101
10A 000
127 10A
101 111
000 000
10A 105
105 OAO
055 11A
000 000
122 105
101 111
000 000
10A 105
'\vy OAO
101 106
10 05 0
700000
26 13 0
26 13 0
63 6A 70
333 00 0
25A 00 0
25A 00 0
63 6A 70
123A56 123A56
65A321 65A321
63 6A 70 AA A1 6A
235 00 0 00 000000
22 OA 0 00 000015
123 105 11A 105 103
■ 111 117 116 OAO
122 122 117 122
012 000 000 O'^O
012 123 117 .06
^27 101 122 105
12A 111 115 105
125 12A OAO 111
OAO 12A 105 ^^J
*STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0AA2
DFSXA
STOR
103
11A
000
103
11A
000
122
11A
000
106
111
000
103
11A
000
126
117
111
000
122
11A
000
126
125
105
16 060767
OAA5A0
01 060663
01 06066A
5A 57 A7
16 060633
00 035006
00 03500A
A4 5A A7
OAO
105
000
OAO
105
000
OAO
105
000
106
11A
000
OAO
105
000
111
106
116
000
OAO
105
000
111
116
000
106
10A
000
106
10A
000
106
10A
000
OAO
105
000
106
10A
000
103
106
105
000
106
10A
000
103
123
000
12A
105
0:5
015
12A
OAO
117
116
DFSXA DECSYSTEM KLIO CHANNEL/DTE20
STOR KLM 18-Sep-79 17:18
INTERACTION TEST -
*STOR* RESERVED
VER 0,7 MACRO
STORAGE, SEPT
:53B(1242)
18,1979
14:07 21-Aug-85 Page 1-7
SEQ 0443
14532
070432
124 040 000 000 000
14533
070433
040 123 117 106 124
14534
070434
127 101 122 105 040
14535
070A35
124 111 115 105 117
14536
070436
125 124 040 101 124
14537
070437
040 000 000 000 000
14538
070440
00 26 0 17 000000
14539
070441
037 00 0 00 070433
14540
070442
135 00 0 00 070440
14541
070443
037 16 0 00 000003
1m542
070444
037 00 0 00 030242
14543
070445
260 17 0 00 063205
14544
070446
200 17 0 00 075013
14545
070447
254 00 0 00 042073
14546
070450
636470 164464
14547
070451
120 117 123 111 124
14548
070452
111 117 116 040 105
14549
070453
122 122 117 122 040
14550
070454
055 040 044 120 105
14551
070455
106 000 000 000 000
14552
070456
015 012 124 105 123
14553
070457
124 040 123 125 115
14554
070460
115 101 122 1^1 055
14555
070461
122 125 116 1 . Ill
14556
070462
115 105 072 OtO 000
14557
070463
127 117 122 104 123
14558
070464
0^0 127 122 111 124
14559
070465
124 105 116 072 040
14560
070466
000 000 000 000 000
14561
070467
011 12? 122 111 124
14562
070470
IU-- 040 122 105 124
14563
070471
122 111 105 123 072
14564
070472
040 000 000 000 000
14565
070473
Oil 127 122 111 124
14566
070474
105 040 105 122 122
14567
070475
117 122 123 072 040
14568
070476
000 000 000 000 000
14569
070477
127 117 122 104 123
14570
070500
040 122 105 101 104
14571
070501
072 040 040 040 040
14572
070502
000 000 000 000 000
14573
070503
Oil 122 105 101 104
14574
070504
040 105 122 122 117
14575
070505
122 123 072 040 040
14576
070506
040 000 000 000 000
14577
070507
Oil 104 101 124 101
14578
070510
040 105 122 122 117
14579
070511
122 123 072 040 040
14580
070512
000 000 000 000 000
14581
070513
015 012 103 110 116
14582
070514
040 105 122 122 117
14583
070515
122 123 072 040 040
14584
070516
040 040 000 000 000
14585
070517
032644 722000
14586
070520
072 000 000 000 000
DFSXA DECSYSTEM KLiO CHANNEL/DTE20
STOR KLM 18-Sep-79 17:18
INTERACTION TEST -
•STOR* RESERVED
VER 0,7 MACRO
STORAGE, SEPT
X53B(1242)
18,1979
14:07 21-Aug-85 Page 1-8
SEQ 0444
DFSXA OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) U:07 21-Aug-85 Page 1-8
STOR KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 04A4
1A587
070521
000344 703400
K588
070522
000003 641100
U589
070523
060647 060650
14590
070524
015
012 124 131 120
K591
070525
105
040 077 040 106
1A592
070526
117
122 040 110 105
1A593
070527
114
120 015 012 000
1A594
070530
015
012 104 106 123
14595
070531
130
101 000 000 000
14596
070532
015
012 116 117 040
14597
070533
125
116 111 124 123
14598
070534
040
123 105 114 105
14599
070535
103
124 105 104 041
14600
070536
000 000 000 000 000
14601
070537
015
012 120 114 105
14602
070540
101
123 105 040 123
14603
070541
105
114 105 103 124
14604
070542
040
124 110 105 040
14605
070543
104
105 123 111 122
14606
070544
105
104 040 125 116
14607
070545
111
124 123 040 102
14608
070546
105
106 117 122 105
14609
070547
040
124 131 120 111
14610
070550
116
107 040 107 056
14611
070551
000 000 000 000 000
14612
070552
037 01 0 00 070532
14613
070553
037 01 0 00 070537
14614
070554
254
00 0 00 036334
14615
070555
260
17 0 00 030775
14616
070556
260
17 0 00 031024
14617
070557
2oJ
17 0 00 031041
14618
070560
260
17 0 00 031077
14619
070561
260
17 0 00 031144
14620
070562
260
17 0 00 031203
14621
070563
260
17 0 00 031244
14622
070564
260
17 0 00 031303
14623
070565
260
17 0 00 031341
14624
070566
260
17 0 00 031377
14625
070567
260
17 0 00 03(432
14626
070570
260
17 0 00 C31471
14627
070571
260
17 0 00 031525
14623
070572
260
17 0 OC :31562
14629
070573
260
17 0 00 031615
14630
070574
260
17 0 00 031653
14631
070575
260
17 0 00 031711
14632
070576
260
17 0 00 031744
14633
070577
260
17 0 00 031777
14634
070600
260
17 0 00 032050
14635
070601
260
17 0 00 032112
14636
070602
260
17 0 00 032154
14637
070603
260
17 0 00 032217
14638
070604
260
17 0 00 030007
14639
070605
254 00 0 00 036334
14640
070606
015 012 104 151 163
14641
070607
141
142 154 145 144
DFSXA DECSYSTE« KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0^7 MACRO X53B(12«2) 14:07 21-Aug-85 Page 1-9
STOR KLM 18-Sep-79 17:18
*ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0445
~~l
OFSXA
STOR
U6A2
U6A3
U6A4
U6A5
H6A6
U6A7
U6A8
1A6A9
1A650
1A651
1A652
1A653
1A65A
1A655
1A656
1A657
1A658
1A659
1A660
1A661
1A662
1A663
1A66A
1A665
1A666
1A667
1A668
1A669
1A670
1A671
1A672
1A673
1A67A
1A675
1A676
1A677
1A678
1A679
1A680
1A681
1A682
1A683
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 1-9
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0AA5
070610
070611
070612
070613
07061 A
070615
070616
070617
070620
070621
070622
070623
07062A
070625
070626
070627
070630
070631
070632
0706b3
07063A
070635
070636
070637
0706A0
0706A1
0706A2
0706A3
0706AA
0706A5
0706A6
0706A7
070650
070651
070652
070653
07065A
070655
070656
070657
070660
070661
OAO 16A 1A5 163 16A
163 OAO 055 OAO 000
201 01 0 00 000001
202 01 0 16 0606A7
A02 00 0 16 060753
350 00 0 00 07A755
25A 00 0 00 036520
A76 00 0 16 0606A7
A02 00 0 16 060753
350 00 0 00 07A755
25A 00 0 00 036520
AO 03 0 00 000001
137 15 0 00 070623
202 01 0 16 0606A7
A02 00 0 16 060753
350 00 0 00 07A755
25A 00 0 00 036520
015 012 122 125 116
12A 111 115 105 072
OAO 000 000 000 000
015 012 133 12A 1?2
101 103 105 OAO 157
156 135 015 012 000
015 012 133 12A 122
101 103 105 OAO 157
1A6 1A6 135 015 012
000 000 000 000 000
120 122 117 107 122
101 115 OAO llA 117
101 lOA OAO 105 122
^t^ 117 122 OAi 015
012 000 000 000 000
00 03 0 00 000000
201 01 0 00 000001
202 01 0 16 0C06A7
A02 00 0 16 060753
350 00 0 00 07A755
25A 00 0 00 036700
A7A 01 0 ^0 000000
202 01 0 i6 0:D6A7
A02 00 0 16 060753
350 00 0 00 07A755
1A68A
070662
25A 00 0 00 036700
1A685
070663
137 15 0 00 070623
1A686
07066A
202 01 0 16 0606A7
1A687
070665
A02 00 0 16 060753
1A688
070666
350 00 0 00 07A755
1A689
070667
25A 00 0 00 036700
1A690
070670
015 012 101 11A llA
1A691
070671
OAO 10A 105 126 111
1A692
070672
103 105 OAO 123 11A
1A693
070673
117 12A 123 OAO 106
1A69A
07067A
125 11A 11A OAO 117
K695
070675
116 OAO 12A 110 111
1A696
070676
123 OAO 103 117 116
DFSXA
STOR
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO »53B(12A2) 1A:07 21-Aug-85 Page 1-10
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0AA6
DFSXA
STOR
K697
14698
1A699
H700
14701
14702
14703
14704
14705
14706
14707
14708
14709
14710
14711
14712
14713
14714
14715
14716
14717
14718
14719
14720
14721
14722
14723
14724
14725
14726
14727
14728
14729
14730
14731
14732
14733
14734
14735
14736
14737
14738
14739
14740
14741
14742
14743
14744
14745
14746
14747
14748
14749
14750
14751
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 1-10
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18.1979
SEQ 0446
070677
070700
070701
070702
070703
070704
070705
070706
070707
070710
070711
070712
070713
070714
070715
070716
070717
070720
070721
070722
070723
070724
070725
070726
070727
07073C
070731
070732
070733
070734
070735
070736
070737
070740
070741
070742
070743
070744
070745
070746
070747
070750
070751
070752
070753
070754
070755
070756
070757
070760
070761
070762
070763
070764
070765
124
105
101
120
122
117
103
123
123
124
124
103
117
040
105
040
103
040
040
122
122
127
123
077
015
040
040
040
122
114
^d■
107
12'.
012
120
124
105
040
040
103
056
040
117
116
115
124
104
105
104
U40
127
124
105
015
040
122
122
116
105
115
120
113
124
105
040
110
117
114
117
114
104
105
124
103
117
056
110
114
000
012
000
122
105
040
105
103
040
125
104
111
110
126
106
123
124
015
116
116
105
101
110
105
040
131
131
101
117
040
012
111
117
054
047
122
040
040
040
056
114
101
105
116
114
122
105
105
040
110
117
114
000
101
101
000
104
000
105
122
127
040
110
123
123
122
116
105
111
122
105
111
012
117
055
056
113
111
126
122
040
117
116
040
111
00
12
114
040
124
106
114
102
124
015
105
116
122
124
105
040
103
126
117
111
116
114
000
124
126
000
105
000
101
122
110
106
111
124
056
117
107
040
103
117
114
117
000
124
114
015
105
123
111
105
111
125
124
125
124
000
040
114
103
040
117
117
101
105
012
103
117
040
122
122
123
124
111
116
123
124
105
000
040
105
000
126
000
104
117
111
105
116
101
015
120
040
104
105
115
105
116
000
040
111
012
040
040
103
101
106
040
040
123
056
000
127
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-11
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18.1979
SEQ 0447
^•^tTk^ S
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST -
STOR KLM 18-Sep-79 17:18 ♦STOR* RESERVED
VER 0.7 MACRO
STORAGE, SEPT
J:53B(1242)
18,1979
14:07 21-Aug-85 Page 1-11
SEQ 0447
14752
070766
12? Ill
124 105 040
14753
070767
114 117
103 113 105
14754
070770
104 056 015 012 127
14755
070771
122 111
124 105 040
14756
070772
105 116
101 102 114
14757
070773
105 040
124 110 111
14758
070774
123 040
104 105 126
14759
070775
111 103
105 040 111
14760
070776
106 040
131 117 125
14761
070777
040 127
101 116 124
14762
071000
040 124
117 040 125
14763
071001
123 105
040 111 124
14764
071002
056 015
012 000 000
14765
071003
015 012
122 105 127
14766
071004
111 116
104 040 106
14767
071005
101 111
114 125 122
14768
071006
105 040
104 125 122
14769
071007
111 116
107 040 123
14770
071010
105 114
105 103 124
14771
071011
111 117
116 040 101
14772
071012
124 124
105 115 120
14773
071013
124 040
055 040 104
14774
071014
122 117
120 120 111
14775
071015
116 107 040 104 105
14776
071016
126 111
103 105 041
14777
071017
015 012
000 000 000
14778
071020
015 012
104 122 111
14779
071021
126 105
040 104 in
14780
071022
104 116
047 124 040
14781
071023
107 117
040 124 117
14782
071024
O-^J 102
117 124 040
14783
071025
055 040
104 122 117
14784
071026
120 120
111 116 107
14785
071027
040 104
105 126 111
14786
071030
103 105
041 015 012
14787
071031
000 000 000 000 000
14788
071032
040 127
117 116 047
14789
071033
124 040
101 103 103
14790
071034
105 120
124 040 120
14791
071035
101 103
113 040 101
14792
071036
103 113
116 117 127
14793
071037
114 105
104 107 105
14794
071040
040 103
117 115 115
14795
071041
101 116
104 056 015
14796
071042
012 104
^22 117 120
14797
071043
120 111
116 107 040
14798
071044
104 105
126 111 103
14799
071045
105 040
106 122 117
14800
071046
115 040
123 105 114
14801
071047
105 103
124 111 117
14802
071050
116 056 015 012 000
14803
071051
015 012
126 117 114
14804
071052
125 115
105 040 126
14805
071053
101 114
111 104 040
14806
071054
104 111
104 116 047
OFSXA OECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-12
STOR KLM 18-Sep-79 17:18 ♦STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0448
OFSXA
STOR
14807
U808
U809
1A810
1A811
K812
U813
U8U
U815
U816
1A817
K818
K819
K820
K821
U822
K823
U824
U825
1A826
U827
K828
14829
14830
14831
14832
14833
14834
14835
14836
14837
14838
14839
14840
14841
14842
14843
14844
14845
14846
14847
14848
14849
14850
14851
14852
14853
14854
14855
14856
14857
14858
14859
14860
14861
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO :53B(1242) 14:07 21-Aug-85 Page 1-12
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
SEQ 0448
071055
071056
071057
071060
071061
071062
071063
071064
071065
071066
071067
071070
071071
071072
071073
071074
071075
071076
071077
071100
071101
071102
071103
071104
071105
071106
071107
071110
071111
071112
071113
071114
071115
071116
071117
071120
071 n
0711^2
071123
071124
071125
071126
071127
071130
071131
071132
071133
071134
071135
071136
071137
071140
071141
071142
071143
124
040
124
104
105
105
116
101
105
000
015
123
111
117
107
040
122
040
105
105
116
101
105
000
015
111
111
122
104
107
1o>
116
125
040
114
117
117
056
015
122
104
105
105
116
00
037
135
037
037
254
103
040
055
040
055
040
106
110
105
055
103
040
102
104
000
012
040
103
116
117
124
105
123
055
103
040
102
104
000
012
124
116
122
125
040
103
040
105
055
105
116
122
015
012
105
105
040
103
072
06 0
01
00
17
01
00
000
120
060
120
061
123
117
111
126
123
124
111
117
056
000
124
104
105
047
040
110
101
124
123
124
111
117
056
000
120
111
107
117
122
123
124
123
116
040
103
040
124
012
103
116
126
123
124
015
00
105
122
123
111
105
111
123
122
015
000
110
105
040
124
124
105
104
101
105
111
123
122
015
000
117
117
040
122
111
105
111
105
103
123
124
101
105
000
125
124
111
105
111
012
124
040
040
103
114
117
040
124
012
000
111
126
127
040
117
040
131
124
114
117
040
124
012
000
123
116
105
040
116
114
117
121
105
105
111
102
104
000
122
040
103
IK
117
000
00
00
00
00
00
000
157
000
157
000
000016
070455
070321
000003
070520
037155
000 000
162 164
000 000
162 164
000 000
DFSXA DECSYSTEM KLiO
STOR KLM
n KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 1-13
18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18,1979
SEQ 0449
DFSXA
STOR
mi 1 / /
nt r\ 1 in icf izt iz/
DFSXA
STOR
1A862
1A863
K864
U865
14866
1A867
K868
U869
U870
U871
U872
K873
U874
U875
14876
14877
14878
14879
14880
14881
14882
14883
14884
14885
14886
14887
14888
14889
14890
14891
14892
14893
14894
14895
14896
14897
14898
14899
14900
14901
14902
14903
14904
14905
14906
14907
14908
14909
14910
14911
14912
14913
14914
14915
14916
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242)
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,i?79
14:07 21-Aug-85 Page 1-13
SEQ 0449
071144
071145
071146
071147
071150
071151
071152
071153
071154
071155
071156
071157
071160
071161
071162
071163
071164
071165
071166
071167
071170
071171
071172
071173
071174
071175
071176
071177
071200
071201
071202
071203
071204
071205
071206
071207
071210
071211
071212
071213
071214
071215
071216
071217
071220
071221
071222
071223
071224
071225
071226
071230
071231
071232
040
055
040
055
040
055
040
055
040
055
040
055
037
037
037
037
037
037
037
037
037
135
037
037
256
254
056
054
053
117
1l!
123
124
053
120
062
120
063
120
064
120
116
120
066
120
103
01
01
01
01
01
01
01
01
01
00
17
01
00
00
000
000
053
040
103
105
105
053
000000
040 040
040
067
124
000
00
015
040
040
040
143
012
040
060
123
110
124
040
055
055
060
067
116
000
06 0
012
114
110
123
150
040
040
040
127
040
055
055
040
157
000
157
000
157
000
157
111
157
000
157
111
00
00
00
00
00
00
00
00
00
00
00
00
01
00
000
000
053
104
105
114
104
015
164
000
164
000
164
000
164
000
164
000
164
000
162
000
162
000
162
000
162
000
162
000
162
000
071140
071142
071144
071146
071150
071152
071154
071156
071137
070321
000003
070520
071160
037155
000 000
000
040
105
123
105
040
012
000131
040 040
000
116
126
040
103
053
000
060
124
115
000
040
060
123
Oil
000
060
Oil
125
000
00 075020
040 040 040
" 146
154
151
163
061
040
040
124
123
012
040
055
055
145
141
167
145
040
040
040
111
040
015
055
055
040
164
146
164
015
061
061
040
103
105
040
040
055
055
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-14
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0450
A-H '\fW
ACC ACC ACC ACC A/A
DFSXA
STOR
OFSXA
STOR
U917
U918
14919
K920
U921
1A922
14923
14924
14925
14926
14927
14928
14929
14930
14931
14932
14933
14934
14935
14936
14937
14938
14939
14940
14941
14942
14943
14944
14945
14946
14947
14948
14949
14950
14951
14952
14953
14954
14955
14956
14957
14958
14959
14960
14961
14962
14963
14964
14965
14966
14967
14968
14969
14970
14971
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) 14:07 21-Aug-85 Page 1-14
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0450
071233
071234
071235
071236
071237
071240
071241
071242
071243
071244
071245
071246
071247
071250
071251
071252
071253
071254
071255
071256
071257
071260
071261
071262
071263
071264
071265
071266
071267
071270
071271
071272
071273
071274
071275
071276
071277
071300
071301
071302
071303
071304
071505
071306
071307
071310
071311-
.071312
071313
071314
071315
071316
071317
071320
071321
055 055
040 055
015 012
065 040
060 060
040 101
124 040
000 000
040 040
040 062
060 060
123 124
040 040
040 040
040 061
060 060
117 124
040 040
040 040
040 060
060 060
117 120
040 040
040 040
040 060
060 060
116 124
040 040
040 040
040 060
OoJ 060
111 116
040 040
040 040
040 060
060 0^0
117 1,.'
040 040
040 040
040 060
060 060
122 123
040 040
040 040
040 060
060 060
101 114
040 040
040 040
040 060
060 060
105 114
040 040
040 040
040 060
055 055 040
055 055 040
040 040 061
040 064 060
060 060 040
102 117 122
040 040 040
000 000 000
061 064 040
060 060 060
040 040 122
101 122 124
040 000 000
061 063 040
060 060 060
040 040 124
101 114 123
040 000 000
061 062 040
064 060 060
040 040 116
116 124 040
040 000 000
061 061 040
062 060 060
040 040 120
114 120 124
040 000 000
061 060 040
061 060 060
040 040 104
107 040 040
040 000 000
040 071 040
060 064 060
040 040 114
120 105 122
040 000 000
040 070 040
060 062 060
040 040 105
124 117 120
040 000 000
040 067 040
060 061 060
040 040 120
105 122 123
040 000 000
040 066 040
060 060 064
040 040 122
111 101 102
040 000 000
040 062 040
060 060 060
DFSXA
STOR
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-15
KLM 18-Sep-79 17:18 tSTOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0451
1/.Q7'5 nTITOI AX.*! t\d.r\ f\/.t\ A/rt 111
DFSXA
STOR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 1-15
STOR KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18.1979
040 040 111
103 123 110
040 000 000
040 061 040
060 060 060
040 040 117
123 105 114
040 000 000
040 040 040
040 122 151
164 040 110
146 040 123
164 143 150
015 012 040
040 040 040
061 060 040
040 123 127
103 110 040
105 124 077
040 040 040
040 055 055
055 055 040
055 055 055
040 040 055
040 015 012
OhO 040 040
060 060 060
040 040 111
125 123 122
040 000 000
040 040 040
060 061 060
040 040 114
120 124 123
040 000 000
040 040 040
060 060 064
040 040 123
124 123 124
040 000 000
103 117 115
116 104 040
122 115 101
105 122 122
041 015 012
000 000 000
116 111 057
040 120 117
040 111 123
117 124 040
114 117 127
040 104 105
103 105 123
000 000
111 103
SEQ 0451
DFSXA
STOR
14972
071322
062 060
14973
071323
116 110
14974
071324
040 040
14975
071325
040 040
14976
071326
040 060
14977
071327
061 060
14978
071330
120 122
14979
071331
040 040
14980
071332
015 012
14981
071333
040 040
14982
071334
147 150
14983
071335
141 154
14984
071336
167 151
14985
071337
145 163
14986
071340
040 040
14987
071341
040 040
14988
071342
040 040
14989
071343
111 124
14990
071344
040 123
14991
071345
015 012
14992
071346
040 040
14993
071347
055 055
14994
071350
040 055
14995
071351
055 055
14996
071352
055 055
14997
071353
040 040
14998
071354
040 064
14999
071355
060 060
15000
071356
116 110
15001
071357
040 040
15002
071360
Oh} 040
15003
071361
040 060
15004
071362
060 060
15005
071363
117 117
15006
071364
040 040
15007
071365
040 040
15008
071366
040 060
15009
071367
060 060
15010
071370
120 103
15011
071371
040 040
15012
071372
015 012
15013
071373
115 101
15014
071374
106 117
15015
071375
124 040
15016
071376
117 122
15017
071377
000 000
15018
071400
015 012
15019
071401
103 111
15020
071402
122 124
15021
071403
040 116
15022
071404
101 114
15023
071405
105 104
15024
071406
126 111
015 012
15025
071407
15026
071410
104 105
000
DFSXA
STOR
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242)
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
14:07 21-Aug-85 Page 1-16
SEQ 0452
DFSXA
STOR
1 cr\T» n"7i/ii
1AC A/n n/ 171 iirt
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B{1242) 14:07 21-Aug-85 Page 1-16
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0452
15027
15028
15029
15030
15031
15032
15033
15034
15035
15036
15037
15038
15039
15040
15041
15042
15043
15044
15045
15046
15047
15048
15049
15050
15051
15052
15053
15054
15055
15056
15057
15058
15059
15060
15061
15062
15063
15064
15065
15066
15067
15068
15069
15070
15071
15072
15073
15074
15075
15076
15077
15078
15079
15080
15081
071411
071412
071413
071414
071415
071416
071417
071420
071421
071422
071423
071424
071425
071426
071427
071430
071431
071432
071433
071434
071435
071436
071437
071440
071441
071442
071443
071444
071445
071446
071447
071450
071451
071452
071453
071454
071455
071456
071457
071460
071461
071462
071463
071464
071465
071466
071467
071470
071471
071472
071473
07147;
071475
071476
071477
105
105
040
107
104
260
260
260
254
040
040
122
116
015
17 0
17 0
17 0
00 0
17 43 63
000000
17 54 41
000000
17 41 54
000000
111 114
101
107
122
040
015
103
104
Oil
040
01
104
101
105
120
li.-
127
105
104
104
123
126
120
123
000
111
124
102
123
105
103
125
117
104
116
103
106
116
120
111
114
111
040
124
012
122
126
103
000
05 0
123
124
122
111
117
122
117
120
122
123
054
105
104
000
104
115
117
114
061
117
116
120
124
105
123
103
123
105
116
124 131 120
116 117 124
105 103 117
111 132 105
012 000 000
00 040346
00 040371
00 040452
00 037332
62 17 V
071422
62 17 V
071424
65 17 n
114 105 107
040 122 105
123 124 105
106 117 122
125 061 066
000 000 000
072 Oil 000
101 000 000
115 104 072
000 000 000
00 000001
072 040 000
101 054 000
122 054 000
120 054 000
114 054 000
114 054 000
124 054 000
122 054 000
1j1 054 000
103 057 126
000 000 000
123 054 000
127 116 054
000 000 000
102 054 000
054 000 OOC
124 054 000
101 073 000
072 040 000
122 054 000
123 054 000
111 054 000
105 054 000
106 054 000
054 000 000
105 054 000
107 054 000
106 054 000
103 054 000
DFSXA
STOR
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-1 1
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0453
icnfio n7i«;nr» in/. ior> ini iod n^A
DFSXA
STOR
1
DFSXA
STOR
15082
15083
1508A
15085
15086
15087
15088
15089
15090
15091
15092
15093
1509A
15095
15096
15097
15098
15099
15100
15101
15102
15103
1510A
15105
15106
15107
15108
15109
15110
15111
15112
15113
1511A
15115
15116
15117
15118
15119
15120
15121
15122
15123
1512A
15125
15126
15127
15128
15129
15130
15131
15132
15133
15134
15135
15136
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) K:07 21-Aug-85 Page 1-17
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0453
DFSXA
STOR
J
071500
071501
071502
071503
071504
071505
071506
071507
071510
071511
071512
071513
0715U
071515
071516
071517
071520
071521
071522
071523
071524
071525
071526
071527
071530
071531
071532
071533
071534
071535
071536
071537
071540
071541
071542
071543
071544
071545
071546
071547
071550
071551
071552
071553
071554
071555
071556
071557
071560
071561
071562
071563
071564
071565
071566
104
000
106
103
120
000
115
120
000 000
122 115
111
111
115
104
07
114
114
124
106
11 0
Oil 115
040 000
01 04 0
Oil 103
072
123
115
115
115
116
000
123
132
104
105
040
127
103
115
124
103
000
102
104
105
103
000 000
Oil 103
114
115
II--
115
054
115
000
115
000
104
073
101
101
000
101
072
127
122
123
000
111
000
103
000
115
015
123
124
000
124
000 000
101 124
000
101
000
124
000 000
101 124
000 000
101 124
000 000
101 124
000 000
101 124
101 122 054
000 000 000
124 054 000
101 122 054
000 000 000
122 054 000
122 054 000
106 073 000
072 Oil 115
072 040 000
00 000001
117 120 0/2
000 000 000
00 000001
114 113 123
000 000 000
103 054 000
054 000 000
073 000 000
072 Oil 106
124 072 040
000 000 000
104 054 000
124 054 000
116 054 000
103 105 054
000 000 000
116 124 122
040 000 000
122 054 000
104 054 000
103 114 113
000 000 000
116 104 054
000 000 000
114 113 054
000 000 000
104 054 000
012 000 000
072 Oil 000
101 067 054
000 000 000
101 066 054
000 000 000
101 065 054
000 000 000
101 064 054
000 000 000
101 063 054
000 000 000
101 062 054
000 000 000
101 061 054
000 000 000
101 060 073
DFSXA
STOR
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 1-18
KLM 18-Sep-79 17:18 •STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0454
151 77 n7i«;A7 nnn r\f\r\ f\(\f\ t\f\r\ r\nr\
DFSXA
STOR
DFSXA
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TES
STOR
KLM
18-Sep-79 17:18 *STOR* RESER
15137
071567
000 000 000 000 000
15138
071570
106 103 072 Oil 000
15139
071571
124 123 072 040 000
15U0
071572
124 122 113 072 040
151A1
071573
000 000 000 000 000
15142
071574
10 05 0 00 000001
15U3
071575
056 Oil 123 105 103
15HA
071576
124 117 122 072 040
15K5
071577
000 000 000 000 000
15146
071600
00 05 0 00 000001
15147
071601
103 113 072 040 000
15148
071602
124 103 072 Oil 106
15149
071603
114 107 123 072 040
15150
071604
000 000 000 000 000
15151
071605
101 103 103 114 054
15152
071606
000 000 000 000 000
15153
071607
124 103 127 054 000
15154
071610
106 103 123 054 000
15155
071611
105 101 117 055 104
15156
071612
124 105 054 000 000
15157
071613
105 126 040 120 101
15158
071614
122 054 000 000 000
15159
071615
Oil 10/ 105 116 072
15160
071616
040 000 000 000 000
15161
071617
10 03 0 00 000001
15162
071 62C
Oil 106 115 124 072
15163
071621
040 000 000 000 000
15164
071622
04 04 0 00 000001
15165
071623
Oil 123 114 126 072
15166
071624
040 000 000 000 000
15167
071625
Ou 03 0 00 000001
15168
071626
103 123 122 072 040
15169
071627
000 000 000 000 000
15170
071630
nin^ 777770
15171
071631
000004 000004
15172
071632
114 101 122 072 040
15173
071633
000 000 000 000 000
15174
071634
040 050 101 144 162
15175
071635
072 040 000 000 000
15176
071636
051 015 012 000 000
15177
071637
120 157 162 164 120
15178
071640
O'tO 000 000 000 '^OO
15179
071641
103 163 162 122 161
15180
071642
163 040 000 000 000
15181
071643
103 163 162 103 150
15182
071644
156 040 000 000 000
15183
071645
104 151 156 151 164
15184
071646
040 000 000 000 000
15185
071647
120 111 060 'O 122
15186
071650
161 040 000 Guu 000
15187
071651
122 161 111 156 164
15188
071652
?s§ ?2n2? ??? ?§s
15189
071653
15190
071654
\f,f^%i^^
15191
071655
SEQ 0454
DFSXA
STOR
OECSYSTER KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J[53B(1242) 14:07 21-Aug-85 Page 1-19
KLH 18-Sep-79 17:18 *STOR» RESERVED STORAGE, SEPT 18.1979
SEQ 0455
1^100 (\7M.^t. (\L(\ r\r\(\ c\c\r\ nnn nnn
n
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 1-19
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0455
15192
071656
040 000 000 000 000
15193
071657
102 151 164 060 070
15194
071660
040 000 000 000 000
15195
071661
102 151 164 060 071
15196
071662
040 000 000 000 000
15197
071663
102 151 164 061 060
15198
071664
040 000 000 000 000
15199
071665
111 144 154 145 040
15200
071666
000 000 000 000 000
15201
071667
104 143 157 155 160
15202
071670
040 000 000 000 000
15203
071671
105 143 157 155 160
15204
071672
040 000 000 000 000
15205
071673
102 151 164 061 064
15206
071674
040 000 000 000 000
15207
071675
111 104 075 000 000
15208
071676
21 03 0 00 074766
15209
071677
037 01 0 00 071675
15210
071700
135 00 0 00 071676
15211
071701
037 01 0 00 000001
15212
071702
263 17 0 00 000000
15213
071703
120 103 154 162 040
15214
071704
000 000 000 000 000
15215
071705
124 105 142 165 146
15216
071706
040 000 000 000 000
15217
071707
107 145 156 105 120
15218
071710
105 040 000 000 QUO
15219
071711
123 145 154 114 101
15220
071712
122 040 000 000 000
15221
071713
123 151 156 103 171
15222
071714
1m < 040 000 000 000
15223
071715
123 160 141 162 145
15224
071716
061 o;o 000 000 ooo
15225
071717
105 142 165 163 120
15226
071720
105 040 000 000 000
15227
071721
106 121 105 162 162
15228
071722
040 000 000 000 000
15229
071723
115 126 105 162 162
15230
071724
040 000 000 000 000
15231
071725
103 155 144 121 101
15232
071726
126 040 000 000 000
15233
071727
122 145 163 121 101
15234
071730
126 040 000 000 000
15235
071731
123 160 141 162 145
15236
071732
062 040 000 000 000
15237
071733
104 151 163 141 142
15238
071734
154 040 000 000 000
15239
071735
105 156 141 142 154
15240
071736
145 040 000 000 000
15241
071737
115 120 122 165 156
15242
071740
040 000 000 000 000
15243
071741
00 03 0 00 C.'4766
15244
071742
120 151 141 075 m^
15245
071743
135 00 Q qq 071741
336 00 0 00 000000
15246
071744
DFSXA
STOR
152^7
152A8
152A9
15250
15251
15252
15253
1525A
15255
15256
15257
15258
15259
15260
15261
15262
15263
1526A
15265
15266
15267
15268
15269
15270
15271
15272
15273
1527A
15275
15276
15277
15278
15279
15280
15281
15282
15283
1528A
15285
15286
15287
15288
15289
15290
15291
15292
15293
1529A
15295
15296
15297
15298
15299
15300
15301
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO
<LM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT
X53B(12A2)
18,1979
U:07 21-Aug-85 Page 1-20
SEQ 0456
071745
071746
071747
071750
071751
071752
071753
071754
071755
071756
071757
071760
071761
071762
071763
071764
071765
071766
071767
071770
071771
071772
071773
071774
071775
071776
071777
072000
072001
072002
072003
072004
072005
072006
072007
072010
072011
072012
072013
072014
072015
072016
072017
072020
072021
072022
072023
07202^
072025
072026
072027
072030
072031
072032
072033
263 17 0 00
037 01 0 00
037 01 0 00
263 17 0 00
101 114 125
145 147 151
145 162 163
015 012 040
040 050 104
141 040 167
144 051 072
040 040 040
000 000 000
015 012 040
040 050 103
040 167 157
051 072 040
040 040 040
000 000 000
015 012 040
060 040 050
125 123 040
146 146 040
162 051 072
000 000 000
015 012 040
061 040 050
125 123 040
146 146 040
16? 051 072
GuJ 000 000
015 012 040
064 C40 050
162 144 040
165 156 164
040 040 040
000 000 000
015 012 040
065 040 050
163 164 040
120 040 167
144 051 072
000 000 000
062 060 060
120 111 000
065 065 066
120 111 000
070 060 060
120 111 000
061 066 060
102 120 111
111 114 114
101 114 040
111 114 114
101 114 040
000000
071742
000001
000000
040 122
163
072
122
141
157
164
000
065
164
162
040 040
040 040
000 000
122 066
155
162
040
040
000
122
105
142
141
040
000
122
103
142
141
040
000
122
127
143
051
040
000
122
114
111
157
040
000
040
000
040
000
040
144
144
040
040
000
061
102
165
144
040
000
061
102
165
144
040
000
061
157
157
072
040
000
061
141
117
162
040
000
102
000
102
000
102
000 000
060 040
000
105
065
105
066
Oon
^^(
000
107
000
DFSXA DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-21
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0457
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-21
STOR KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18,1979
SEQ 0457
15302
072034
111 114 114 105 107
15303
072035
101 114 040 067 000
15304
072036
103 117 122 104 115
15305
072037
120 000 000 000 000
15306
072040
067 055 124 122 113
15307
072041
000 000 000 000 000
15308
072042
101 123 103 111 111
15309
072043
000 000 000 000 000
15310
072044
111 102 115 000 000
15311
072045
111 114 114 105 107
15312
072046
101 114 040 064 000
15313
072047
111 114 114 105 107
15314
072050
101 114 040 061 060
1531S
072051
000 000 000 000 000
15310
072052
111 114 114 105 107
15317
072053
101 114 040 061 061
15318
(72054
000 000 000 000 000
15319
(72055
111 114 114 105 107
15320
( 72056
101 114 040 061 062
15321
( 72057
000 000 000 000 000
15322
( 72060
111 114 114 105 107
15S23
( 72061
101 114 040 061 063
15324
(72062
000 000 000 000 000
15325
(72063
111 114 114 105 107
15326
(72064
101 114 040 061 064
15327
( 72065
000 000 000 000 000
15328
( 72066
111 114 114 105 107
15329
( 72067
101 114 040 061 065
15330
( 72070
000 000 000 000 000
15331
(72071
111 114 114 105 107
15332
( 72072
1u( 114 040 061 066
15333
( 72073
000 000 000 000 000
15334
( 72074
111 114 114 105 107
15335
( 72075
101 114 040 061 067
15336
( 72076
000 000 000 000 000
15337
( 72077
114 101 072 Oil 000
15338
(72100
06 04 0 00 000000
15339
(72101
117 106 072 040 000
15340
(72102
CO 10 0 00 000001
15341
(72103
056 Oil 106 114 107
15342
(72104
123 072 ^^40 000 000
15343
(72105
123 107 103 110 054
15344
(72106
000 000 OJO 000 000
15345
(72107
106 115 124 062 062
15346
(72110
054 000 000 000 000
15347
(72111
105 103 103 111 054
15348
(72112
OCJ 000 000 000 000
15349
072113
110 103 111 054 000
15350
(72114
104 103 072 040 000
15351
(72115
00 11 0 00 000000
15352
(72116
103 103 072 040 000
15353
(72117
105 062 072 040 000
101 103 040 125 116
15354
(72120
15355
( 72121
\\i ?n ^ m w>
15356
072y22
DFSXA
STOR
DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 1-22
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0458
DFSXA
STOR
15357
15358
15359
15360
15361
15362
15363
1536A
15365
15366
15367
15368
15369
15370
15371
15372
15373
15374
15375
15376
15377
15378
15379
15380
15381
15382
15383
15384
15385
15386
15387
15388
15389
15390
15391
15392
15393
15394
15395
15396
15397
15398
15399
15400
15401
15402
15403
15404
15405
15406
15407
15408
15409
15410
15411
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT
3:538(1242)
18,1979
14:07 21-Aug-85 Page 1-22
SEQ 0458
072123
072124
072125
072126
072127
072130
072131
072132
072133
072134
07213*^
072136
072137
072140
072141
072142
072143
072144
072145
072146
072147
072150
072151
072152
072153
072154
072155
072156
072157
072160
072161
072162
072163
07216/-
07216
07?166
072167
072170
072171
072172
072173
072174
072175
072176
072177
072200
072201
072202
072203
072204
072205
072206
07^207
72210
72211
8
063 060 126 125 054
000 000 000 000 000
111 130 105 054 000
116 101 123 054 000
115 110 123 054 000
127 122 125 054 000
106 105 116 054 000
124 125 106 054 000
124 104 106 054 000
115 123 105 054 000
103 123 125 054 000
127 123 125 054 000
103 123 106 054 000
127 103 125 054 000
105 063 072 040 000
117 103 131 114 054
000 000 000 000 000
123 113 111 054 000
101 103 114 054 000
104 103 114 054 000
120 122 105 054 000
125 127 122 054 000
126 125 106 054 000
120 123 125 054 000
103 061 072 040 000
103 062 072 040 000
127 061 072 Oil 000
127 117 122 104 040
061 040 116 117 124
040 127 122 111 124
^d^ 105 116 000 000
037 00 0 00 000074
037 00 0 00 072156
037 00 0 00 000076
037 OC ^ no 030242
263 1/ J uO 000000
103 12^ '^^ 105 054
000 000 OUJ 000 000
101 104 122 120 105
054 000 000 000 000
116 ^27 103 132 054
000 000 000 000 000
114 105 122 054 000
122 110 105 054 000
114 127 103 054 000
117 126 122 073 000
Oil 103 114 120 072
040 040 000 000 000
00 26 0 00 000001
127 062 072 Oil 127
103 072 040 040 Oil
goo 000 OQQ 000 000
127 117 122 104 040
062 040 116 117 124
040 127 122 111 124
DFSXA DECSYSTEH KLlO CHANNEL/DTE20
STOR KLH 18-Sep-79 17:18
INTERACTION TEST - VER 0.7 MACRO 1538(1242)
*STOR* RESERVED STORAGE, SEPT 18,1979
14:07 21-Aug-85 Page 1-23
SEQ 0459
DFSXA
STOR
15A12
15A13
15AU
15A15
15A16
15417
15418
15A19
15420
15421
15422
15423
15424
15425
15426
15427
15428
15429
15430
15431
15432
15433
15434
15435
15436
15437
15438
15439
15440
15441
15442
15443
15444
15445
15446
15447
15448
15449
15450
15451
15452
15453
15454
15455
15456
15457
15458
15459
15460
15461
1546?
154.,^
15464
15465
15466
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 1-23
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0459
072212
072213
072214
072215
072216
072217
072220
072221
072222
072223
072224
072225
072226
072227
072230
072231
072232
072233
072234
072235
072236
072237
072240
072241
072242
072243
072244
072245
072246
072247
072250
072251
072252
072253
072254
072255
072256
072257
072260
072261
072262
072263
072264
072265
072266
072267
072270
072271
^nni
072273
072274
072276
072277
072300
124
037
037
037
037
263
26
Oil
040
105
123
000
116
111
000
115
054
103
000
101
OOC
120
123
123
105
111
121
011
040
015
Ol!
123
131
120
115
Oil
000
42
Oil
000
123
103
103
36
115
104
103
040
115
122
101
000
115
122
124
105
00
00
00
00
17
13
0
104
040
101
102
000
130
117
000
102
000
104
000
104
000
127
127
127
054
116
073
120
000
012
000
127
054
107
101
127
000
02 0
122
000
127
110
120
02 0
105
000
101
122
105
124
124
000
105
124
101
116 000 000
00 000074
00 072207
00 000076
00 030242
00 000000
00 000001
101 103 072
000 000 000
072 040 000
125 123 054
000 000 000
115 054 000
120 106 054
000 000 000
120 101 122
000 000 000
111 122 054
000 000 000
122 120 054
000 000 000
122 054 000
120 054 000
120 104 116
000 000 000
124 122 105
000 000 000
111 101 072
COO 000 000
105 122 072
000 000 000
120 102 123
000 000 000
106 054 000
072 Oil 000
104 072 040
000 000 000
00 000001
106 072 040
000 000 000
120 040 000
116 040 000
125 040 000
00 000001
115 040 122
000 000 000
103 110 105
104 000 000
115 040 127
'" 123 124
123 051
000
040
050
125
000
115
050 104
101
051 000 000
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 1538(1242) 14:07 21-Aug-85 Page 1-24
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0460
DFSXA
STOR
15A67
15A68
15469
15470
15471
15472
15473
15474
15475
15476
15477
15478
15479
15480
15481
15482
15483
15484
15485
15486
15487
15488
15489
15490
15491
15492
15493
15494
15495
15496
15497
15498
15499
15500
15501
15502
15503
15504
15505
15506
15507
15508
15509
15510
15511
15512
15513
15514
15515
15516
15517
15518
15519
15520
15521
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J:53B(1242) 14:07 21-Aug-85 Page 1-24
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0460
072301
072302
072303
072304
072305
072306
072307
072310
072311
072312
072313
072314
072315
072316
072317
072320
072321
072322
072323
072324
072325
072326
072327
072330
072331
072332
072333
072334
072335
072336
072337
072340
072341
072342
072343
072344
072345
072346
072347
072350
072351
072352
072353
072354
072355
072356
072357
072360
072361
072362
072363
072364
072365
072366
072367
115
122
103
040
104
122
105
000
116
124
115
067
104
123
00
Oil
000
Oil
000
Oil
OOC
Oil
055
Oil
055
123
14
105
124
101
127
124
105
122
000
123
101
117
103
122
120
11 0
122
000
124
000
124
000
122
062
122
064
116
04 0
10 04 0
00 04 0
061 000
063
064
065
066
067
070
071
102
103
104
104
114
000
123
000
103
104
122
103
104
115
115
123
000
000
000
000
000
000
000
000
000
000
115
120
105
127
000
103
000
105
122
101
116
117
102
102
103
000
115 040 127
000 000 000
103 110 105
122 124 000
072 040 000
101 104 040
122 117 122
000 000 000
101 054 000
120 054 000
110 054 000
110 054 000
121 054 000
122 073 000
00 000001
120 060 064
000 000 000
125 064 065
000 000 000
125 061 066
000 000 000
123 060 064
125 123 000
123 060 064
125 123 000
072 040 000
00 000001
00 000001
00 000001
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
000 000 000
072 on 000
105 054 000
105 054 000
103 105 054
000 000 000
127 105 054
000 000 000
054 000 000
105 054 000
105 054 000
122 054 000
105 054 000
105 054 000
101 054 000
122 106 054
000 000 000
DFSXA
STOR
1618
1618
1618
1618
1618
1618
1618
1618
1619
1619
1619
1619
1619
1619
1619
1619
1619
1619
1620
1620
1620
1620
1620
1620
1620
1620
1620
1620
1621
1621
1621
1621
1621
1621
1621
1621
1621
1621
1622
1622
1622
1622
1622
1622
1622
1622
1622
1622
1623
1623
1623
1623
1623
1623
1623
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J[53B(1242) 14:07 21-Aug-85 Page 1-25
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18.1979
SEQ 0461
DFSXA
STOR
"1
OFSXA
STOR
15522
15523
1552A
15525
15526
15527
15528
15529
15530
15531
15532
15533
1553A
15535
15536
15537
15538
15539
15540
155A1
155A2
155A3
1554A
15545
155A6
155A7
15548
15549
15550
15551
15552
15553
15554
15555
15556
15557
15558
15559
15560
15561
15562
15563
15564
15565
15566
15567
15568
15569
15570
15571
15572
15573
15574
15575
15576
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO S:53B(1242) 14:07 21-Aug-85 Page 1-25
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0461
072370
072371
072372
072373
072374
072375
072376
072377
072400
072401
072402
072403
072404
072405
072406
072407
072410
072411
072412
072413
072414
072415
072416
072417
072420
072421
072422
072423
072424
072425
072426
072427
072430
072431
072432
072433
072434
072435
072436
072437
072440
072441
072442
072443
072444
072445
072446
072447
072450
072451
072452
072453
072454
072455
072456
115
000
120
000
103
120
104
107
Oil
040
06
102
000
103
000
115
124
124
117
116
000
11 0
777777
Oil 115
040
116
125
104
111
106
116
123
122
050
116
104
040
122
122
123
117
1^:
122
116
103
122
122
111
120
101
105
000
127
040
040
000
123
110
103
123
040
111
101
000
111
101
000
117
116
050
116
106
105
105
105
122
104
122
103
000
105
105
106
000
105
040
105
000
105
116
101
103
122
000
122
124
115
000
105
050
105
120
122
114
114
000
114
114
101 105 054
000 000 000
122 106 054
000 000 000
104 073 000
072 040 000
105 073 000
073 000 000
102 103 072
000 000 000
00 000001
777000
106 103 072
000 000 000
120 000 000
114 117 101
122 105 127
104 040 117
055 114 111
051 000 000
105 113 000
103 101 114
127 111
000 000
126 105
105 101
000 000 000
114 105 101
000 000 000
106 123 105
000 000 000
124 125 122
124 117 040
116 124 105
000 000 000
101 104 055
000 000 000
103 113 040
113 116 000
101 123 105
000 000 000
111 124 105
101 120 105
101 122 113
000 000 000
101 ^22 103
123 120 101
051 000 000
101 103 105
105 126 000
114 105 107
105
051
111
114
040 062 061
DFSXA
STOR
1623
16231
1623«
1624(
1624'
1624:
1624!
1624-
1624!
1624(
1624'
16241
1624<
16251
1625
1625i
1625:
1625-
16251
1625(
1625
16251
1625'
16261
1626
1626,
1626
1626'
1626
1626i
1626
1626
1626
1627
1627
1627
1627
1627
1627
1627
1627
1627
1627
1628
1628
1628
1628
1628
1628
1628
1628
1628
1628
1629
1629
DFSXA
STOR
DECSYSTEH KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-26
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0462
DFSXA
STOR
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(12A2) U:07 21-Aug-85 Page 1-26
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18,1979
SEQ 0462
15577
072457
000
000 000 000 000
15578
072460
111
114 114 105 107
15579
072461
101
114 040 062 062
15580
072462
000 000 000 000 000
15581
072463
111
114 114 105 107
15582
072464
101
114 040 062 063
15583
072465
000 000 000 000 000
15584
072466
127
122 111 124 105
15585
072467
040
103 110 105 103
15586
072470
113
000 000 000 000
15587
072471
127
122 111 124 105
15588
072472
040
103 110 113 040
15589
072473
110
104 122 040 046
15590
072474
040
104 101 124 101
15591
072475
000
000 000 000 000
15592
072476
111
114 114 105 107
15593
072477
101
114 040 062 066
1559A
072500
000
000 000 000 000
15595
072501
127
122 111 124 105
15596
072502
040
103 110 105 103
15597
072503
113
040 122 105 126
15598
072504
000
000 000 000 000
15599
072505
127
122 111 124 105
15600
072506
040
110 104 122 040
15601
072507
046
040 104 101 124
15602
07251C
101
000 000 000 000
15603
072511
111
114 114 105 107
1560A
072512
101
114 040 063 062
15605
072513
000 000 000 000 000
15606
072514
111
114 114 105 107
15607
072515
lu!
114 040 063 063
15608
072516
000
000 000 000 000
15609
072517
122
105 101 104 040
15610
072520
110
104 122 040 046
15611
072521
040
104 101 124 101
15612
072522
000
000 000 000 000
15613
072523
111
114 114 105 107
156U
072524
101
114 040 063 066
15615
072525
000 000 000 000 000
15616
072526
122
105 101 104 040
15617
072527
122
105 126 000 000
15618
072530
123
124 072 040 000
15619
072531
111
122 072 040 000
15620
072532
015
012 127 122 122
15621
072533
072
040 000 000 000
15622
072534
122
102 072 040 000
15623
072535
120
101 072 040 000
15624
072536
123
101 072 040 000
5625
072537
015
012 123 131 123
5626
072540
124
105 115 040 103
5627
072541
117
116 106 111 107
5628
072542
125
122 101 124 111
5629
072543
117 116 072 015 012
15630
072544
000 000 000 000 000
066127 066130
15631
072545
DFSXA
STOR
1629:
16293
1629^
1629!
1629e
1629(
1629i
1629<
1630(
16301
1630J
1630]
1630^
1630!
1630<
1630/
1630{
1630<
1631(
163r
1631 ;
1631:
1631^
1631 :
1631(
1631i
1631!
1631<
1632(
1632
1632i
1632:
1632-
16321
1632(
1632:
16321
1632'
16331
1633
1633;
1633:
1633-
1633:
1633(
1633
16331
1633'
16341
1634
1634,
1634
1634'
1634
16341
DFSXA
STOR
DECSYSTEI KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-27
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0463
DFSXA
STOR
DFSXA DECSYSTEI KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J;53B(1242) U:07 21-Aug-85 Page 1-27
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18,1979
15632
15633
15634
15635
15636
15637
15638
15639
15640
15641
15642
15643
15644
15645
15646
15647
15648
15649
15650
15651
15652
15653
15654
15655
15656
15657
15658
15659
15660
15661
15662
15663
15664
15665
15666
15667
15668
15669
15670
15671
15672
15673
15674
15675
15676
15677
15678
15679
15680
15681
15682
15683
15684
15685
15686
072546
072547
072550
072551
072552
072553
072554
072555
072556
072557
072560
072561
072562
072563
072564
072565
072566
072567
072570
072571
072572
072573
072574
072575
072576
072577
072600
072601
072602
072603
072604
072605
072606
072607
072610
072611
072612
072613
072614
072615
072616
072617
072620
072621
072622
072623
072624
072625
072626
072627
072630
072631
072632
072633
072634
•Sep
120 157 162 164 055
060 000 000 000 000
120 157 162 164 055
061 000 000 000 000
120 157 162 164 055
062 000 000 000 000
120 157 162 164 055
063 000 000 000 000
120 157 162 164 055
064 000 000 000 000
120 157 162 164 055
116 111 000 000 000
120 157 162 164 055
066 000 000 000 000
120 157 162 164 055
103 111 000 000 000
037 01 0 00 072546
037 01 0 00 072550
037 01 0 00 072552
037 01 0 00 072554
037 01 0 00 072556
037 01 0 00 072560
037 01 0 00 072562
037 01 0 00 072564
201 00 0 00 400000
256 00 0 16 043570
256 00 0 16 043521
312 00 0 00 067672
254 00 0 00 041406
476 00 0 16 066127
03/ 01 0 00 071137
135 00 0 00 070321
037 17 0 00 000003
037 01 0 00 000074
256 00 0 16 072566
201 00 0 00 000001
202 00 0 16 060633
037 01 0 00 000076
037 01 0 00 030242
254 00 0 00 041406
00 03 0 00 000015
015 012 120 111 040
114 105 126 105 114
040 050 061 055 067
051 077 000 000 000
00 03 0 00 075005
015 012 104 101 124
101 040 115 101 123
113 050 060 055 067
067 067 067 067 067
067 067 067 067 067
067 051 077 000 000
44 03 0 00 000002
00 03 0 00 Q0Q002
044514 044515
SEQ 0463
DFSXA
STOR
163)4?
16348
16349
1635C
16351
16352
16352
16354
16355
16356
16357
16358
1635S
1636C
16361
16362
1636!
1636<
1636!
1636d
1636?
1636t
1636^
1637(
16371
16372
16373
1637^
1637!
1637<
1637?
1637i
1637<
1638(
1638^
16382
1638:
1638^
16381
1638(
1638;
1638<
1638<
1639(
1639"
163V;
1639:
1639^
1639:
1639(
1639;
16391
1639<
16401
1640
DFSXA
STOR
) CHANNELmE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-28
KLW 18-Sep-79 17:18 *STOR* RESERVED STORASe, SEPT 18,1979
DECSYSTEM KLIO CHAW
'^T
SEQ 0464
DFSXA
STOR
OFSXA
STOR
15687
15688
15689
15690
15691
15692
15693
1569A
15695
15696
15697
15698
15699
15700
15701
15702
15703
1570A
15705
15706
15707
15708
15709
15710
15711
15712
15713
157U
15715
15716
15717
15718
15719
15720
15721
15722
15723
1572A
15725
15726
15727
15728
15729
15730
15731
15732
15733
15734
15735
15736
15737
15738
15739
15740
15741
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J[53B(1242) 14;07 21-Aug-85 Page 1-28
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
1
SEQ 0464
072635
072636
072637
072640
072641
072642
072643
072644
072645
072646
072647
072650
072651
072652
072653
072654
072655
072656
072657
072660
072661
072662
072663
072664
072665
072666
072667
072670
072671
072672
072673
072674
072675
072676
072677
072700
072701
072702
072703
072704
072705
072706
072707
072710
072711
072712
072713
072714
072715
072716
072717
072720
072721
072722
07272Z
44 07 0 00 044514
015 012 133 114 117
101 104 105 104 040
124 105 123 124 040
115 111 103 122 117
103 117 104 105 040
111 116 124 117 040
000 000 000 000 000
120 117 122 124 055
060 000 000 000 000
120 117 122 124 055
061 000 000 000 000
120 117 122 124 055
062 000 000 000 000
120 117 122 124 055
063 000 000 000 000
120 117 122 124 055
064 000 000 000 000
120 117 122 124 055
116 111 000 000 000
120 117 122 124 055
066 000 000 000 000
120 117 122 124 055
103 111 000 000 000
037 01 0 00 072645
037 01 0 00 072647
037 01 0 00 072651
037 01 0 00 072653
037 01 0 00 072655
037 01 0 00 072657
03' 01 0 00 072661
037 01 0 00 072663
135 015 012 000 000
336 00 0 00 075017
254 00 0 00 041572
037 01 0 00 072636
256 00 0 16 072665
037 01 0 00 072675
254 00 0 00 041572
015 012 052 052 052
040 105 122 122 117
122 040 114 117 101
104 111 116 107 040
115 111 103 122 117
103 117 104 105 040
111 116 124 117 040
000 000 000 000 000
040 055 040 120 117
122 124 040 127 111
114 114 040 116 117
124 040 102 105 040
124 105
104 040
015 012
260 17
00 000
64171
DFSXA DECSYSTEM KL10
STOR KLH
« KL10 CHANNEL/0TE20 INTERACTION TEST - VER 0.7 MACRO J53B(1242)
18-Sep-79 17:18 •STOR* RESERVED STORAGE. SEPT 18.1979
14:07 21-Aug-85 Page 1-29
SEQ 0465
DFSXA
STOR
157A2
15743
1S74A
1«;"'^5
'.5746
15747
15748
15749
15750
15751
15752
15753
15754
15755
15756
15757
15758
15759
15760
15761
15762
15763
15764
15765
15766
15767
15768
15769
15770
15771
15772
15773
15774
15775
15776
15777
15778
15779
15780
15781
15782
15783
15784
15785
15786
15787
15788
15789
15790
15791
15792
15793
15794
15795
15796
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3[53B(1242) 14:07 21-Aug-85 Page 1-29
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0465
072724
072725
072726
072727
072730
072731
072732
072733
072734
072735
072736
072737
072740
072741
072742
072743
072744
072745
072746
072747
072750
072751
072752
072753
072754
072755
072756
072757
072760
072761
072762
072763
072764
072765
072766
072767
072770
072771
^72112
072771
072771,
072775
072776
072777
073000
073001
073002
073003
073004
073005
073006
073007
073010
073011
073012
334 00
254 00
037 01
256 00
037 01 0
402 00 0
254 00 0
044011
015 012
055 055
055 055
055 055
055 055
055 055
055 055
055 055
055 055
012 052
124 123
055 040
040 052
015 012
117 122
072 040
777634
00 06 0
103 110
122 107
040 057
00 26 0
1u< 110
122 107
122 000
103 110
115 120
040 000
110 101
101 124
130 106
000 000
26 13 0
040 127
040 124
040 111
105 126
123 113
040 127
000 000
040 046
124 040
015 012
015 012
117 122
072 Oil
103 110
00 000000
00 072676
00 072704
16 072665
00 072714
16 060647
00 041572
044012
015 012 055
055 055 055
055 055 055
055 055 055
055 055 055
055 055 055
055 055 055
055 055 055
055 055 015
052 052 040
124 000 000
000 000 000
052 052 000
105 122 122
040 120 103
000 000 000
044347
11 000003
116 040 120
015 012 000
040 000 000
02 000000
116 040 120
040 105 122
000 000 000
116 040 112
040 124 117
000 000 000
114 124 040
040 000 000
105 122 040
000 000 000
02 000000
122 104 123
117 040 000
116 040 122
000 000 000
120 040 000
122 104 123
000 000 000
040 114 123
130 106 122
000 000 000
105
040
000
116
HI 12i
120 105
OQQ 000
072 040
DFSXA
STOR
DECSYSTEM KLlO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-30
KLM 18-Sep-79 17:18 tSTOR* RESERVED STORAGE. SEPT 18,1979
SEQ 0466
n
DFSXA
STOR
15797
15798
15799
15800
15801
15802
15803
1580A
15805
15806
15807
15808
15809
15810
15811
15812
15813
158K
15815
15816
15817
15818
15819
15820
15821
15822
15823
1582A
15825
15826
15827
15828
15829
15830
15831
15832
15833
1583A
15835
15836
15837
15838
15839
158A0
158A1
15842
15843
15844
15845
15846
15847
15848
15849
15850
15851
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 1-30
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18.1979
SEQ 0466
073013
073014
073015
073016
073017
073020
073021
073022
073023
073024
073025
073026
073027
073030
073031
073032
073033
073034
073035
073036
073037
073040
073041
073042
073043
073044
073045
073046
073047
073050
073051
073052
073053
073054
073055
073056
073057
073060
073061
073062
073063
073064
073065
073066
073067
073070
073071
073072
073073
073074
073075
073076
073077
073100
073101
000 000 000
040 122 105
123 111 132
040 000 000
056 040 040
104 123 040
104 072 040
056 040 040
106 040 101
072 040 000
015 012 015
104 122 Oil
101 104 Oil
117 117 104
130 117 122
012 000 000
405 00
434 00
037 13
254 00
263 17
00
16
00
00
00
015 012 052
040 103 110
116 105 114
000 000 000
040 104 105
103 105 040
000 000 000
015 012 053
040 124 110
111 ■"
000
103
105
000
127
102
000
102
104
000
012
Oil
Oil
Oil
040
000
000777
044541
000002
043657
000000
052 052
000
040
072
000
122
101
000
125
122
000
101
102
107
Oil
015
000
Oh
123
040 106 101
IV. 040 105
117 122 040
124 110 105
116 ill 124
123 040 102
116 107 040
117 120 120
041 040 053
015 012 000
015 012 053
040 103 110
116 105 114
040 114 117
125 124 040
122 117 122
053 015 012
107 117 117
103 120 103
000 000 000
Oil
103
000 000
015 012
101
103
101
040
000
126
043
000
053
111
040
124
122
055
040
040
105
104
105
053
000
053
101
040
107
105
053
000
104
072
000
116
043
000
111
040
000
053
123
101
101
122
040
125
111
111
122
104
053
000
053
116
000
117
122
053
000
040
040
000
104 040
072 040
000 000
117 117
DFSXA DECSYSTEM KLIO
STOR KLM
n KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-31
18-Sep-79 17:18 tSTOR* RESERVED ST0RA6e, SEPT 18,1979
SEQ 0467
• rac^'t M-^V4A«\
4 A J ^ i A
r
DFSXA
STOR
15852
15853
15854
15855
15856
15857
15858
15859
15860
15861
15862
15863
15864
15865
15866
15867
15868
15869
15870
15871
15872
15873
15874
15875
15876
15877
15878
15879
15880
15881
15882
15883
15884
15885
15886
15887
15888
15889
15890
15891
15892
15893
15894
15895
15896
15897
15898
15899
15900
15901
15902
15903
15904
15905
15906
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-31
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18.1979
SEO 0467
073102
104 040 104 101 103
073103
072 040 127 103 075
073104
060 040 101 116 104
073105
040 101 104 122 075
073106
040 000 000 000 000
073107
00 26 0 11 000000
073110
015 012 102 101 104
073111
040 104 101 103 072
073112
040 127 103 075 040
073113
000 000 000 000 000
073114
040 101 116 104 040
073115
101 104 122 075 040
073116
000 000 000 000 000
073117
040 114 117 107 117
073120
125 124 040 105 122
073121
122 117 122 040 053
073122
053 053 015 012 000
0/^3123
107 117 117 104 040
073124
124 117 055 061 060
073125
040 102 120 072 040
073126
000 000 000 000 000
073127
040 102 101 104 040
073130
124 117 055 061 060
073131
040 102 120 072 040
073132
000 000 000 000 000
073133
015 012 104 124 105
073134
062 060 040 127 122
073135
111 124 105 040 102
073136
120 040 103 110 101
073137
116 107 105 104 040
073140
lU' 125 122 111 116
073141
107 040 122 105 101
073142
104 015 012 107 117
073143
117 104 040 124 117
073144
055 061 061 040 102
073145
120 072 040 000 000
073146
040 102 101 104 040
073147
124 117 055 061 061
073150
040 102 120 072 040
073151
000 000 000 000 000
073152
107 117 117 104 040
073153
124 117 055 061 061
073154
040 102 120 072 040
073155
000 000 000 000 000
073156
015 012 104 124 105
073157
062 060 040 122 105
073160
101 104 040 102 120
073161
040 103 110 101 116
073162
107 105 104 040 127
073163
110 111 114 105 040
073164
127 122 111 124 111
073165
073166
073167
073170
116 107 015 012 107
117 117 104 040 124
117 055 061 060 040
102 120 072 040 000
DFSXA DECSYSTER KLiO CHANNEi /DTE20 INTERACTION TEST - VER 0
STOR KLH 18-Sep-79 17:1^
unn..*w., .U-, .ur, V.7 HACRO
*STOR* RESERVED STORAGE. SEPT
^m
42) 14:07 21-Aug-85 Page 1-32
SEQ 0468
n
DFSXA DECSYSTEH KLIO CHANNE. /DTE20 INTERACTION TEST - VER 0,7 HACRO J:53B(1242) 14:07 21-Aug-85 Page 1-32
STOR KLM 18-Sep-79 17:^ *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0468
15907
073171
116 117 040 104 124
15908
073172
105 062 060 040 ) ?3
15909
073173
124 101 122 124 125
15910
073174
120 000 000 000 000
15911
073175
26 13 0 07 061342
15912
073176
262 17 0 00 075027
15913
073177
263 17 0 00 000000
15914
073200
000001 000001
15915
073201
075 076 040 000 000
15916
073202
704000 000000
15917
073203
714200 200000
15918
073204
744000 000000
15919
073205
764000 000000
15920
073206
774000 000000
15921
073207
26 15 0 00 000000
15922
073210
015 012 105 122 122
15923
073211
117 122 040 115 105
15924
073212
123 123 101 107 105
15925
073213
040 123 124 101 103
15926
073214
113 040 050 105 122
15927
073215
123 124 103 113 051
15928
073216
040 110 101 123 040
15929
073217
111 116 103 117 122
15930
073220
122 105 103 124 114
15931
073221
131 040 106 117 122
15932
073222
115 101 124 124 105
15933
073223
104 040 115 105 123
15934
073224
123 101 107 105 056
15935
073225
015 012 000 000 000
15936
073226
124 101 102 114 105
15937
073227
G-J 105 122 122 117
15938
073230
122 055 040 111 116
15939
073231
104 105 130 075 000
15940
073232
015 012 115 105 115
15941
073233
123 105 107 040 105
15942
073234
122 122 117 122 055
15943
073235
011 101 104 122 075
15944
073236
000 000 000 000 000
15945
073237
015 012 123 111 132
15946
073240
105 122 040 105 122
15947
073241
122 117 122 040 111
15948
073242
116 040 123 111 132
15949
073243
101 104 122 056 Oil
15950
073244
101 104 122 075 000
15951
073245
015 012 105 116 124
15952
073246
105 122 111 116 107
15953
073247
040 103 117 115 115
15954
073250
101 116 104 040 111
15955
073251
116 124 105 122 120
15956
073252
^22 105 124 105 122
15957
073253
015 012 000 000 000
15958
073254
015 012 120 101 107
15959
073255
105 040 106 101 111
15960
im\^
114 040 124 122 101
120 040 127 110 111
15961
\ I
DFSXA
STOR
15962
15963
15964
15965
15966
15967
15968
15969
15970
15971
15972
15973
1597A
15975
15976
15977
15978
15979
15980
15981
15982
15983
15984
15985
15986
15987
15988
15989
15990
15991
15992
15993
15994
15995
15996
15997
15998
15999
16000
16001
16002
16003
16004
16005
16006
16007
16008
16009
16010
16011
16012
16013
16014
16015
16016
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO !i:53B(1242) 14:07 21-Aug-85 Page 1-33
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0469
073260
073261
073262
073263
073264
073265
073266
073267
073270
073271
073272
073273
073274
073275
073276
073277
073300
073301
073302
073303
073304
073305
073306
073307
073310
073311
073312
073313
073314
073315
073316
073317
073320
073321
073322
073323
073324
073325
073326
073327
073330
073331
073332
073333
073334
073335
073336
073337
073340
073341
073342
073343
073344
073345
073346
114
040
040
056
015
124
Oil
015
072
015
105
36
015
123
105
104
125
101
120
102
120
103
120
040
000
015
072
00
015
011
1i.'
127
103
000
103
000
106
126
054
102
114
125
000
125
111
120
103
101
116
124
054
124
054
106
116
105
125
115
000
012
111
000
012
Oil
012
072
04 0
012
072
130
122
123
104
124
054
124
110
101
122
000
012
Oil
26 0
012
000
126
054
122
000
122
000
114
122
000
131
107
123
000
123
117
125
054
104
110
122
000
122
000
114
104
111
105
104
000
125
105
000
102
000
117
000
116
122
105
000
116
072
000
122
000
104
000
040
123
117
000
122
115
000
125
000
103
Oil
01 000500
106 114 107
000
040
000
122
054
120
000
103
054
105
106
000
104
000
000
1 01
000
040
000
125
000
101
000
104
054
000
122
000
Oil
105
054
105
122
040
000
040
105
107
105
000
101
000
00 000002
120 103 072
000
114
000
060
000
061
000
040
114
000
040
000
122
000
122
054
114
000
040
000
040
000
040
000
040
040
000
122
000
131
000
131
000
124
106
000
124
054
105
000
105
124
102
000
122
054
120
000
120
000
124
122
000
106
000
054
000
054
000
117
127
000
106
000
054
000
040
000
111
000
111
000
061
000
062
000
125
106
Br
81 ■
BA(
BAI
6AI
BAI
BAI
BA:
BEi
BEi
BEi
BEi
BEI
BII
BII
BII
BI
BII
BII
DFSXA DECSYSTEM <L10 CHANNEL/D^
STOR KLM 18-Sep-79 17:18
INTERACTION TEST - VER 0,7 MACRO 3:536(1242) 14:07 21-Aug-85 Page 1-34
♦STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0470
BI^
BIS
DFSXA
STOR
16017
16018
16019
16020
16021
16022
16023
1602A
16025
16026
16027
16028
16029
16030
16031
16032
16033
16034
16035
16036
16037
16038
16039
16040
16041
16042
16043
16044
16045
16046
16047
16048
16049
16050
16051
16052
16053
16054
16055
16056
16057
16058
16059
16060
16061
16062
16063
16064
16065
16066
16067
16068
16069
16070
16071
OECSYSTEM KLIO CHANNEL/DTl.!0 INTERACTION TEST - VER 0,7 MACRO j;53B(1242) 14:07 21-Aug-85 Page 1-34
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0470
073347
073350
073351
073352
073353
073354
073355
073356
073357
073360
073361
073362
073363
073364
073365
073366
073367
073370
073371
073372
073373
073374
073375
073376
073377
07340C
073401
073402
073403
073404
073405
073406
073407
073410
073411
073412
073413
073414
073415
0734^6
073417
073420
073421
073422
073423
073424
073425
073426
073427
073430
073431
073432
073433
073434
073435
114
116
126
111
101
104
120
111
131
114
116
122
114
117
101
123
115
000
111
101
111
120
124
040
124
101
124
122
101
101
1u!
000
123
117
040
123
115
117
040
000
115
107
120
116
103
120
116
116
105
120
101
015
123
015
123
127
117
000
114
114
105
122
105
040
101
000
105
040
122
104
123
120
000
114
114
124
101
101
120
131
122
101
111
122
124
122
000
105
116
101
123
101
124
103
000
101
105
101
117
105
101
117
040
000
101
107
054
040
000
114
040
040
117
124
126
124
000
106
105
000
104
040
101
000
114
040
105
107
102
101
000
040
040
124
130
101
111
000
103
040
103
000
120
040
117
000
120
000
107
040
123
107
124
103
000
107
105
122
Oil
104
Oil
000
104
000
105
103
060
120
101
111
111
000
111
122
000
122
103
122
000
105
127
000
105
114
122
000
104
120
131
040
040
124
000
124
116
103
000
040
111
122
000
040
000
105
101
123
105
040
117
000
105
000
110
000
124
000
000
111
000
107
117
000
122
122
117
117
000
114
122
000
105
117
105
000
107
122
000
040
105
111
000
101
101
000
104
120
131
000
111
117
105
000
116
116
105
000
101
000
040
103
000
040
111
122
000
040
000
047
000
047
000
DFSXA
STOR
DECSYSTE« KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-35
KLM 18-Sep-79 17:18 •STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0471
OFSXA
STOR
16072
16073
1607A
16075
16076
16077
16078
16079
16080
16081
16082
16083
1608A
16085
16086
16087
16088
16089
16090
16091
16092
16093
1609A
16095
16096
16097
16098
16099
16100
16101
16102
16103
1610A
16105
16106
16107
16108
16109
16110
16111
16112
16113
161U
16115
16116
16117
16118
16119
16120
16121
16122
161?^
1612A
16125
16126
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO 3:538(1242) 14:07 21-Aug-85 Page 1-35
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0471
073436
015 012 0!:2 052 052
073437
052 040 123 131 123
073440
124 105 115 040 124
073441
105 123 124 040 107
073442
105 116 105 122 101
073443
124 117 122 040 052
073444
052 052 052 015 012
073445
000 000 000 000 000
073446
015 012 124 105 123
073447
124 040 120 101 122
073450
101 115 105 124 105
073451
122 123 040 106 117
073452
122 040 000 000 000
073453
104 101 124 101 040
073454
123 111 132 105 050
073455
062 060 055 062 060
073456
060 060 051 077 000
073457
115 105 115 117 122
073460
131 040 102 125 106
073461
106 105 122 040 123
073462
124 101 122 124 050
073463
130 040 000 000 000
073464
040 117 122 040 075
073465
040 124 117 040 040
073466
000 000 000 000 000
073467
00 26 0 00 074765
073470
104 lOl 124 101 040
073471
120 101 124 124 105
073472
122 116 077 000 000
073473
123 125 122 106 101
073474
1u< 105 050 060 055
073475
062 062 051 077 000
073476
123 105 103 124 117
073477
122 050 060 055 062
073500
063 051 077 000 000
073501
00 05 0 16 060767
0/3502
123 124 101 122 124
073503
111 116 107 040 124
073504
105 123 124 015 012
073505
000 000 000 000 000
073506
063304 063305
073507
35 07 0 00 000007
073510
26 07 0 00 000007
073511
17 07 0 00 000007
073512
127 124 106 000 000
073513
122 104 106 000 000
073514
122 104 122 000 0)0
07:515
122 105 127 000 0)0
07:516
122 103 114 000 0)0
07:517
123 120 122 000 0)0
07:520
12: 120 106 000 0)0
124 110 105 122 105
040 111 123 040 101
07 3c2
073523
0735<I4
040 114 111 115 1 1
124 040 117 106 040
CERF
CERF
CERF
CERF
CERF
CERF
CH.E
CH.L
CH.L
CH.^
CH.C
CH.F
CH.F
CH.J
CH.J
CH.V
CHAJ
CHJf
CHK/
CHKl
CHKI
CHKl
CHK!
CHN/
CHNE
CHNI
CHNI
CHNI
CHNI
CHNI
CHNI
CHNI
CHN
chn;
chn:
cht
CIC
citi
CK1
1
DFSXA
stor
DECSYSTEM KLiO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 1-36
KLM 18-Sep-79 17:18 •STOR* RESERVED STORAGE, SEPT 18.1979
n
SEQ 0472
CKL(
CKLC
DFSXA
STOR
16127
16128
16129
16130
16131
16132
16133
161 3A
16135
16136
16137
16138
16139
16U0
16K1
161A2
16U3
16UA
161A5
161A6
161A7
161A8
161A9
16150
16151
16152
16153
1615A
16155
16156
16157
16158
16159
16160
16161
16162
16163
1616A
16165
16166
16167
16168
16169
16170
16171
16172
16173
161 7A
16175
16176
16177
16178
16179
16180
16181
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(12A2) 1A:07 21-Aug-85 Page 1-36
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0A72
073525
073526
073527
073530
073531
073532
073533
07353A
073535
073536
073537
0735A0
0735A1
0735A2
0735A3
0735AA
0735A5
0735A6
0735A7
073550
073551
073552
073553
07355A
073555
073556
073557
073560
073561
073562
073563
07356A
073565
073566
073567
073570
073571
073572
073573
07357A
073575
073576
073577
073600
073601
073602
073603
07360A
073605
073606
073607
073610
073611
073612
073613
070
115
0A1
000
015
115
123
116
122
012
015
105
111
12A
123
106
123
105
117
120
105
111
117
lOA
105
12A
000
122
101
000
u^
101
000
115
115
055
000
125
127
125
105
015
123
12A
116
125
12A
115
105
000
127
101
000
OAO
101
0A1
000
012
101
105
103
122
000
012
130
115
OAO
101
117
131
OAO
122
117
116
116
115
OAO
122
105
000
10A
111
000
123
111
000
105
OAO
11A
000
116
105
116
000
012
OAO
125
117
122
llA
120
116
000
12A
111
000
000000
122 106
103
116
0A1
000
103
116
121
105
117
000
123
105
105
115
107
122
123
105
OAO
122
12A
107
115
111
120
122
000
12A
11A
000
116
llA
000
10A
117
111
000
111
116
123
000
12A
106
122
12A
122
131
11A
12A
000
115
llA
000
117
10A
015
000
117
10A
125
OAO
122
000
131
OAO
117
105
105
OAO
105
122
122
12A
105
OAO
101
116
122
015
000
OAO
105
000
OAO
105
000
111
106
116
000
12A
12A
101
000
110
105
105
OAO
105
OAO
105
105
000
OAO
105
000
000031
103 OAO
115
123
012
000
115
OAO
105
105
015
000
123
12A
125
123
OAO
000
130
122
105
000
122
103
116
12A
105
012
000
106
lOA
000
106
10A
000
125
106
105
000
OAO
OAO
126
000
111
101
OAO
103
116
111
115
lOA
000
106
10A
000
106
CKLG
CKLG
CL11
CLEA
CLK
CLKA
cue
cue
CUD
CLKE
CLKR
CLKR
CUL
CLN1
CLOG
CLTC
CLTC
cmc
CMDE
CMDE
CMDL
CMDL
CMDC
CMES
CNR
CNTL
CNTF
DFSXA
STOR
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO I53B(12A2) 1A:07 21-Aug-85 Page 1-37
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18,1979
SEQ 0A73
DFSXA
STOR
16182
16183
1618A
16185
16186
16187
16188
16189
16190
16191
16192
16193
161 94
16195
16196
16197
16198
16199
16200
16201
16202
16203
1620A
16205
16206
16207
16208
16209
16210
16211
16212
16213
162U
16215
16216
16217
16218
16219
16220
16221
16222
16223
1622A
16225
16226
16227
16228
16229
16230
16231
16232
16233
16234
16235
16236
DECSYSTEM KLIO CHANNEL/DTE20
KLM 18-Sep-79 17:18
INTERACTION TEST -
*ST0R* RESERVED
VER 0,7 MACRO
STORAGE, SEPT
:53B(1 242)
18,1979
14:07 21-Aug-85 Page 1-37
SEQ 0473
073614
073615
073616
073617
073620
073621
073622
073623
073624
073625
073626
073627
073630
073631
073632
073633
073634
073635
073636
073637
073640
073641
073642
073643
073644
073645
073646
073647
073650
073651
073652
073653
073654
073655
073656
073657
073660
073661
073662
1)73663
073664
073665
073666
073667
073670
073671
073672
073673
073674
073675
073676
073677
073700
073701
073702
101 111
000 000
777777
102 123
114 105
000 000
600000
122 040
104
000
106
101 111 114 105 104
000 000 000 000 000
122 105 127 040 106
101 111 114 105 104
000 000 000 000 000
102 123 122 040 106
101 111 114 125 122
105 000 000 000 000
105 122 101 123 105
040 105 122 122 117
122 040 055 040 103
114 116 124 101 120
000 000 000 000 000
777777 777777
30 14 0 00 000002
256 00 0 16 043504
621 00 0 00 770000
202 00 0 00 074767
263 17 0 00 000000
44 44 0 00 000000
102 117 117 124 061
061 040 127 061 061
104 102 060 040 124
111 115 105 117 125
124 000 000 000 000
106 101 124 101 114
Oh} 102 117 117 124
123 124 122 101 120
040 105 122 122 117
122 000 000 000 000
102 117 117 124 061
061 040 127 061 061
104 116 061 040 124
111 115 105 117 125
124 000 000 000 000
124 117 061 061 105
122 040 123 105 124
040 104 125 122 111
116 107 040 102 117
117 124 000 000 000
104 125 115 120 061
061 040 127 061 061
104 102 060 040 124
111 115 105 117 125
124 040 117 122 040
122 105 114 117 101
104 040 105 122 122
000 000 000
061 060 104
123 105 124
117 124 040
117 ni
124 117
102 040
055 116
DFSXA DECSYSTEH KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53e(1242) 14:07 21-Aug-85 Page 1-38
STOR KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 04 7A
COW
com
DFSXA
STOR
16237
16238
16239
162A0
162A1
162A2
162A3
162A4
162 A 5
16246
162A7
162A8
162A9
16250
16251
16252
16253
16254
16255
16256
16257
16258
16259
16260
16261
16262
16263
16264
16265
16266
16267
16268
16269
16270
16271
16272
16273
16274
16275
16276
16277
16278
16279
16280
16281
16282
16283
16284
16285
16286
16287
16288
16289
16290
16291
DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO j;538(1242) 14:07 21-Aug-85 Page 1-38
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
SEQ 0474
073703
073704
073705
073706
073707
073710
073711
073712
073713
073714
07371 5
073716
073717
073720
073721
073722
er^3723
073724
073725
073726
073727
073730
073731
073732
073733
073734
073735
073736
073737
073740
073741
073742
073743
073744
073745
073746
073747
073750
073751
073752
073753
073754
073755
073756
073757
073760
073761
073762
073763
073764
073765
073766
073767
073770
073771
111
121
105
104
061
104
111
124
104
040
102
115
040
105
040
122
104
040
116
115
OOC
124
122
040
116
115
015
105
040
124
055
040
015
116
125
000
125
040
116
115
000
115
127
060
105
117
114
105
000
115
127
061
105
000
117
040
104
107
120
012
122
106
040
102
104
124
012
777400
102 117
105 122
000 000
777400
104 125
040
105
000
115
127
061
105
000
120
061
040
117
122
117
122
000
120
061
040
117
000
061
123
125
040
000
105
111
122
105
117
125
105
000
105
000
104
105
040
117
125
105
015
124
124
124
103
116
122
000
101
122
111
117
115
123
012
105
105
105
105
117
125
123
116
000
120
061
040
117
000
061
061
124
125
040
101
122
000
061
060
124
125
000
060
105
122
104
000
116
116
117
116
117
115
123
000
044541
117 124
122 117
000 000
054543
115 120
122
000
124
122
116
124
120
124
115
122
062
114
104
116
105
117
000
101
117
040
055
040
000
101
040
060
105
054
124
040
105
103
000
061
060
124
125
000
061
104
111
124
122
104
117
000
061
104
111
124
000
105
124
111
125
000
124
107
116
104
124
120
124
000
040
122
000
040
122
000
040
122
102
104
124
000
123
104
040
103
040
111
077
COMM
COMM
COMM
COMM
COMM
COMP,
CONSi
CONT
CORDI
CP.E
CP.N
CPAR
CPOP
CROP
CPU I
CPUI
CPUI
CPUJ
CR11
CRAM
CRC
CRLF
CRLF
CRYO
CRYl
CSHF
CSHM
CSRC
CSRE
CSRR
CTB
CWOR
CUOR
CYCL
CYLA
0
D.DT
D.ER
D.SN
O.ST
DATA
DATE
DATL
DATf
DATF
OATF
DFSXA
STOR
OECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO J53B(1242) 14:07 21-Aug-85 Page 1-39
KLM 18-Sep-79 17:18 ♦STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0475
DBPE
DCK
hrruN
OFSXA
STOR
16292
16293
1629A
16295
16296
16297
16298
16299
16300
16301
16302
16303
1630A
16305
16306
16307
16308
16309
16310
16311
16312
16313
163U
16315
16316
16317
16318
16319
16320
16321
16322
16323
16324
16325
16326
16327
16328
16329
16330
16331
16332
16333
1633A
16335
16336
16337
16338
16339
163A0
16341
163A2
163A3
16344
16345
16346
DECSYSTEM KL10 CHANNEL/DTE20
KLM 18-Sep-79 17:18
INTERACTION TEST -
*STOR* RESERVED
VER 0,7 MACRO
STORAGE, SEPT
J:53B(1242)
18,1979
14:07 21-Aug-85 Page 1-39
SEQ 0475
073772
073773
073774
073775
073776
073777
074000
074001
074002
07i003
074004
074005
074006
074007
074010
074011
074012
074013
074014
074015
074016
074017
074020
074021
074022
074023
074024
074025
074026
074027
074030
074031
074032
074033
074034
074035
074036
074037
074040
074041
074042
074043
074044
074045
074046
074047
074050
074051
074052
074053
074054
074055
074056
074057
074060
000
123
111
101
040
060
124
120
124
122
122
040
116
124
110
114
122
122
000
000
124
116
123
104
040
055
040
000
105
124
124
107
104
105
104
105
124
000
015 012
000
101
107
124
124
102
104
124
000
123
040
131
040
042
116
103
123
123
000
000
122
040
105
105
117
125
105
000
124
102
120
042
040
040
120
124
015
000
104
042
101
116
105
111
104
130
124
043
000010
114 117
777577
114 117
116
106
042
117
040
107
123
040
040
000
106
104
l^J
040
124
000
106
Oil
105
000
41
101
055
120
106
040
000
111
000
130
000
21 21
067240
101 104
077 077
000 000
777754
120 107
117 101
125 115
122 122
066374
44 44 0
120 107
117 101
117 117
122 122
066321
20 20 Q
120 107
111
104
111
122
105
000
114
000
124
000
00
077
000
114
122
116
117
116
000
105
000
072
000
00
000
124
115
122
062
117
115
123
000
101
131
111
123
127
113
040
101
012
000
101
040
130
111
106
000
040
105
117
107
116
104
000
072
000
Oil
000
00
012
000
114
104
105
000
015
. 000
066370
115 040
104 040
120 040
117 122
066644
00 066640
115 040 114
104 040
124 040
117 122
066322
00 066321
115 040 114
102
105
000
OBPE
DCK
OCOMI
ODTLI
DDTSI
DEAD
DEBUl
DECD
DECRI
DECRI
DECRI
DECRI
DECVI
DENM:
DEV
DEVB
DEVB
DEVC
DEVP
DF22
DIAG
DIAL
DIDI
DIGI
DIGI
DIGI
DING
DINI
DISK
DMD
DHFC
DHPl
DMP1
DMP2
DMP3
DMPA
DHPC
DMPD
DMPD
DMPE
DNPH
DMPJ
OFSXA DECSYSTEH KLIO CHANNEL/DVE20 INTERACTION TEST - VER 0^7 MACRO %5l^{\l'*2) 14:07 21-Aug-85 Page 1-40
STOR KLH 18-Sep-79 17:18 " —
1
*ST0R* RESERVED STORAGE, SEPT 18,1979
SEQ 0476
DMPL
mm
hMDDI
OFSXA
STOR
163)47
16348
16349
16350
16351
16352
16353
16354
16355
16356
16357
16358
16359
16360
16361
16362
16363
16364
16365
16366
16367
16368
16369
16370
16371
16372
16373
16374
16375
16376
16377
16378
16379
16380
16381
16382
16383
16384
16385
16386
16387
16388
16389
16390
16391
163V?
16393
16394
1639b
16396
16397
16398
16399
16400
16401
DECSYSTEM KLIO CHANNEL/DVE20 INTERACTION TEST - VER 0,7 MACRO X538(1242) 14:07 21-Aug-85 Page 1-40
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
SEQ 0476
074061
074062
074063
074064
074065
074066
074067
074070
074071
074072
074073
074074
074075
074076
074077
074100
074101
074102
074103
074104
074105
074106
074107
074110
074111
074112
074113
074114
074115
074116
074117
074120
074121
074122
074123
074124
074125
074126
074127
0'4130
074131
074132
074133
074134
07^135
074136
074137
074140
074U1
074142
074143
074144
074145
074146
074147
117
061
040
117
120
117
106
122
00
101
061
124
125
107
101
122
117
20 0
040
102
115
000
040
040
105
000
127
060
105
000
114
130
122
000
00 06 0
00 03 0
106 111
122
105
101
105
122
122
015
012 000
106
123
105
103
124
040
111
114
125
040
103
110
113 040
104
111
103
105
105
114
105
111
117
116
000 000 000
106
117
122
124
040
105
117
122 040
105
040
115
123
111
116
101
123 040
^d^
123
124
110
101
122
124
105
122
000 000 000
106
117
122
124
040
105
117
122 040
123
120
101
040
115
111
111
116
107
106
124
105
105
015 012
106
117
' 2
124
040
:j3
117
122 040
114
111
116
1?4
117
117
110
117
122
012
000 000
120
122
107
117
101
104
m
?^i m
000 000 000
104
104
111
124
115
104
040
122
00 066321
00 000006
00 000006
114 105 040
104
117
000
114
106
122
105
105
040
103
015
000
115
122
055
111
107
106
040
101
015
000
115
040
122
000
105
101
105
103
126
123
124
012
000
101
122
040
123
040
111
103
103
012
000
101
122*',122
055 040
103
123
040
122
000
115
122
055
105
040
124
000
040
040
;;f
000
105
123
101
040
000
101
122
040
040
123
015
000
114
055
117
122
DFSXA DECSYSTEM KLlO
STOR KLM
n KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO X53B(1242) 14:07 21-Aug-85 Page 1-41
18-Sep-79 17:18 tSTOR* RESERVED STORAGE, SEPT 18,1979
SCO 0477
"n
DFSXA DECSYSTEM KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0-7 MACRO X53B(1242) U:07 21-Aug-85 Page 1-41
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979
16A02 074150
16403 074151
16404 074152
16405 074153
16406 074154
16407 074155
16408 074156
16409 074157
16410 074160
16411 074161
16412 074162
16413 074163
16414 074164
16415 074165
16416 074166
1641? 074167
16418 074170
16419 074171
16420 074172
16421 074173
16422 074174
16423 074175
16424 074176
16425 074177
16426 074200
16427 074201
16428 074202
16429 074203
16430 074204
16431 074205
16432 074206
16433 074207
16434 074210
16435 074211
16436 074212
16437 074213
16438 074214
16439 074215
16440 074216
16441 074217
16442 074220
16443 074221
16444 074222
16445 074223
16446 074224
16447 074225
16448 074226
16449 074227
16450 074230
16451 074231
16452 074232
16453 074233
16454 074234
16455 074235
16456 074236
SEQ 0477
106
117
122
115
101
124 040
105
122
122
117
122
040 055 040
103
117
115
115
101
040
115
111
123
123
111
116
107 015
012
000 000
000 000
000
114
105
116 107
124
110 040
105
122
122
117
122
040
117
116
040
111
116
120
125
124
040
114
111
116
105
015
012 000 000
106
117
122
115
101
124 040
105
122
122
117
122
040 055
040
124
117
117 040
115
101
116
131
040
127
117
122
104
123 015
012 000 000 000
000
103
110
105
103
113
123
125
115
040
105
122
122
117
122
040
111
116
040
106
111
114
105
015 012
000
105
117
106 040
102
105
106
117
122
105
040
130
106
122
040
102
114
117 103
113
015
012
000 000 000
I^J
072
015 012
000
115 072
015 012
000
040
122
125
116
116
111
116
107 040
122
105
12]
124
122
111
103
124
105
104
015
012 000 000 000 000
00 20 0
15 1
)66261
40 04 0
15 1
366261
123
124
127
124
106
040
124
111
115
105
117
125
124 000 000
123
124
122
104
106
040
124
111
115
105
117 125
124
000 000
122
105
123
124
122
111
103
124
105
104
040
104
124
105
062
060 040
122
105
101
104 040
123
124
101
^22
124
040 105
122
^22
117
122
054
000 000
122
115
000 000
104
105
054
000
104
W
061
000
000
.^J
DFSXA DECSYSTEH KLiO
STOR KLH
H KLIO CHANNCL/DTE20 INTERACTION TEST - VER 0-7 MACRO 1538(1242) 14:07 21-Aug-85 Page 1-42
18-Sep-79 17:18 *STOR» RESERVED STORAGE, SEPT 18,1979
SEQ 0478 i
1
r
DFSXA
STOR
16A57
16A58
16A59
16A60
16A61
16A62
16A63
16A6A
16A65
16A66
16A67
16A68
16A69
16A70
16A71
16A72
16A73
16A7A
16A75
16A76
16A77
16A78
16A79
16A80
16A81
16A82
16A83
16A8A
16A85
16A86
16A87
16A88
16A89
16A90
16A91
16A92
16A93
16A9A
16A95
16A96
16A97
16A98
16A99
16500
16501
16502
16503
1650A
16505
16506
16507
16508
16509
16510
16511
DECSYSTEM <L10 CHANNEL/DTE20 INTERACTION TEST - VER 0,7 MACRO J!53B(1242) U:07 21-Aug-85 Page 1-42
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE. SEPT 18.1979
r
SEO 04 78
07A237
07A2AO
0742A1
07A2A2
07A2A3
07A2AA
07A2A5
07A2A6
0742A7
07A250
074251
074252
074253
074254
074255
074256
074257
074260
074261
074262
074263
074264
074265
074266
074267
07427C
074271
074272
074273
07A274
074275
074276
074277
074300
074301
074302
074303
074304
074305
074306
074307
074310
074311
074312
074313
074314
074315
074316
074317
074320
074321
Q74322
074323
074324
074325
124
102
124
102
124
122
124
116
124
116
124
122
120
102
124
124
102
Oil
040
00
117
054
117
054
117
054
117
054
117
054
117
054
111
054
103
117
073
103
000
14 0
777777
00 22 0
104 105
064
060
104
064
060
104
064
Go.'
104
064
060
054
067
072
067
054
067
072
067
054
064
000
105
064
000
105
065
000
105
065
000
104
064
063
000
104
064
063
000
104
067 064
072 063
067
054
067
072
067
054 .
054 104
067 064
000
104
064
063
000
104
061 061 104
000 000 000
061 060 104
000 000 000
061 061 105
000 000 000
061 061 104
000 000 000
061 060 104
000 000 000
061 060 105
000 000 000
060 105 116
000 000 000
072 040 000
061 060 111
000 000 000
116 124 072
000 000 000
00 000001
770000
16 060737
040 061 067
063 066 072
000 000 000
040 061 067
067 066 072
000 000 000
040 061 067
063 066 072
000 000 000
040 061 067
067 066 072
000 000 000
105 040 061
064 060 060
067 067 067
000 000 000
105 040 061
064 064 060
067 067 067
000 000 000
105 040 061
065 060 060
067 067 067
000 000 000
105 040 061
065 064 060
067 067 067
000 000 000
105 040 061
m m
105 040
064 065
061
066
DFSXA DECSfSTEN KLIO CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO
STOR KLN 18-Sep-79 17:18 *ST0R» RESERVED STORAGE. SEPT
W"^^
42) 14:07 21-Aug-85 Page 1-43
SEQ 0479 i
r
I DFSXA
STOR
16512
16513
165U
16515
16516
16517
16518
16519
16520
16521
16522
16523
1652A
16525
16526
16527
16528
16529
16530
16531
16532
16533
1653A
16535
16536
16537
16538
16539
165A0
165A1
16542
165A3
16544
16545
16546
16547
16548
16549
16550
16551
16552
16553
16554
16555
16556
16557
16558
16559
16560
16561
16562
16563
16564
16565
16566
DECSfSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 HACRO J[53B(1242) 14:07 21-Aug-85 Page 1-43
KLM 18-Sep-79 17:18 *ST0R* RESERVED STORAGE. SEPT 18.1979
SEQ 0479
074326
074327
074330
074331
074332
074333
074334
074335
074336
074337
074340
074341
074342
074343
074344
074345
074346
074347
074350
074351
074352
074353
074354
074355
074356
074357
074360
074361
074362
074363
074364
074365
074366
074367
074370
074371
074372
074373
074374
074375
074376
074377
074400
074401
074402
074403
074404
074405
074406
074407
074410
074411
074412
074413
074414
072 000
054 104
067 064
072 000
054 104
067 064
072 000
054 104
067 064
072 063
000 000
054 104
067 064
072 063
000 000
054 104
067 064
072 063
000 000
054 104
067 064
072 063
000 000
054 104
067 064
072 063
000 000
054 104
067 064
07? 063
OuJ 000
054 104
067 064
072 063
000 000
054 104
067 064
072 063
000 000
00 10 0
120 107
124 101
127 061
060 040
105 117
120 107
124 101
105 122
000 000
120 107
117 101
040 103
124 101
000 000 000
105 040 061
065 061 066
000 000 000
105 040 061
065 065 066
000 000 000
105 040 061
064 062 062
060 060 060
000 000 000
105 040 061
064 066 062
060 060 060
000 000 000
105 040 061
065 062 062
060 060 060
000 000 000
105 040 061
065 066 062
060 060 060
000 000 000
105 040 061
064 062 060
060 060 060
000 000 000
105 040 061
064 066 060
060 060 060
000 000 000
105 040 061
065 062 060
060 060 060
000 000 000
105 040 061
065 066 060
060 060 060
000 000 000
00 066322
115 040 123
122 124 040
061 104 102
124 111 115
125 124 000
115 040 123
122 124 040
122 117 122
000 000 000
115 040 114
104 040 055
117 116 123
116 124 040
105 m 122
015 012 000
DFSXA
STOR
DECSVSTEH KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO 1538(1242) 14:07 21-Aug-85 Page 1-44
KL« 18-Sep->9 17^18 ^STOR* RESERVED STORAGE. SEPT 18.1979
SEa 0480
DECSYSTEM KL10 CHANNEL/DTE20 INTERACTION TEST - VER 0.7 MACRO j;53B(1242) U:07 21-Aug-85 Page 1-A4
KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18.1979
OFSXA
DECSYSTEM KL10 CHANNEL/DTE2
STOR
KLM
18-Sep-79 17:18
16567
074A15
120 107 115 040 114
16568
07A416
117 101 104 040 055
16569
074417
040 103 117 116 123
16570
074420
124 101 116 124 040
060 040 105 122 122
16571
074421
16572
074422
117 122 015 012 000
16573
074423
120 107 115 040 114
1657A
074424
117 101 104 040 055
16575
074425
040 102 131 124 105
16576
074426
040 103 117 125 116
16577
074427
124 040 105 122 122
16578
074430
117 122 015 012 000
16579
074431
120 107 115 040 114
16580
074432
117 101 104 040 055
16581
074433
040 106 111 114 105
16582
074434
040 103 110 105 103
16583
074435
113 123 125 115 040
1658A
074436
105 122 122 117 122
16585
074437
015 012 000 000 000
16586
074440
120 107 115 040 114
16587
074441
117 101 104 040 055
16588
074442
040 111 114 114 105
16589
074443
107 101 114 040 105
16590
074444
117 106 015 012 000
16591
16592
074552
000000 000000
16593
1659A
16595
074553
16596
16597
16598
16599
074753
16600
16601
16602
075031
000000 000000
16603
030000
SEQ 0480
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 075032
CPU TIME USED 01:44.225
61P CORE USED
ENDSLD;
IFDEF
PATCH:
>
LIST
0
DEBUG. <
BLOCK DEBUG
.•PATCHING AREA
; PROGRAM VARIABLES
VAR
IFDEF PGMEND.<
END: 0
END BEGIN
^lii» ^921 4558 4559 4560 4623
5089 5090 5092 5093 5094 5095
6480 6483 6485 648$ $4S9 ^A^O
^^0
5019
5374
Am
Am
Am
SEQ 0481
A11FLG
ABORT
AC13
ADR 11
ALTMGO
ALUPI
AHTCTL
ANXn
AP.ILM
AP.NXM
AP.PAR
AP.POV
AP.REN
APR
AROV
AROVU
ASCMD
ASKERR
ASKEXT
AST
ATA
ATSIN
ATTEN
ATTNEN
AUTOS
AUTOS 1
AUT0S2
AWC11
B
136#
5089
6480
9664
12421
12742
12793
13259
12664#
1465#
123#
13583#
1819#
45#
2642#
6913
1733#
36#
37#
38#
34#
35#
259
1733*
1733#
807#
12651
12657#
1934/»
626#
1935*
386#
41 5#
6530
671 4#
6717
972#
135#
3886
4587
4694
5295
5330
5462
5508
5567
5613
5662
5732
6368
6906
7215
7600
3921
5090
6483
10637
12422
12743
12794
12664
7301
267
2642
6935
262
7848
11472
8650
c551
6752
6726
13586
3574
3887
4588
4696
5296
5333
5464
5509
5569
5614
5663
5886
6481
6909
7321
7602
4558
5092
6485
11361
12433
12744
12805
4559
5093
6486
11362
12453
12748
12820
4560
4623
4624
4625
5342
5019
5020
5022
5023
5024
5025
5094
5095
5340
5374
5733
5734
5885
5998
5999
6489
6490
6492
6495
12360
6496
6498
6502
6804
7332
7396
11375
11376
12359
12396
12416
12417
12420
12454
12457
12458
12459
126 i2
12728
12730
12732
12733
12737
12749
12754
12755
12761
12762
12763
12781
12782
12783
12784
12821
12826
12828
13191
13207
13214
13228
13229
13231
13238
SEQ 0481
12666 12714
13583 13591* 13591 13614 13647
2691
6944
2738
6955
2791
7097
2839
7111
2888
7137
2936
9524
2986
6526 6587 6725 6733 6744
282
283 3471
5846
5936 5987 13394
12653 12659 12670*
11509
6710*
6734
13587
3575
3888
4589
4697
5298
5340
5465
5518
5570
5616
5664
5887
6484
6911
7327
7604
6745
13613
3576
3891
4590
4702
5314
5341
5466
5519
5579
5621
5680
5888
6489
6932
7328
7606
6751*
13615
3577
3579
3580
3785
3786
3787
3881
3882
3883
3885
3892
3900
3915
3917
3919
3926
3927
3929
3935
3936
4591
4592
4594
4595
4607
4609
4611
4669
4676
4677
4703
4708
4709
4713
4741
4743
4745
4747
5091
5315
5316
5318
5319
5322
5324
5325
5326
5327
5329
5342
5344
5356
5357
5362
5366
5373
5376
5460
5461
5477
5478
5479
5481
5482
5483
5493
5494
5495
5507
5527
5528
5549
5550
5551
5552
5563
5564
5565
5566
5584
5586
5590
5591
5592
5593
5594
5597
5599
5608
5623
5635
5644
5647
5650
5653
5656
5657
5660
5661
5681
5683
5715
5718
5720
5722
5724
5726
5728
5730
5889
6000
6001
6002
mi
6354
6355
6356
6357
0362
6495
6501
6722
6723
6741
6742
f.895
6897
7210
6898
6933
6941
6942
7449
6949
7469
6952
6953
7167
7193
7211
7391
7397
7515
7555
7582
7594
7596
7598
7608
7610
7612
7614
7621
7623
7625
7627
7629
7631
J 0469
...
7633
7635
7638
7640
7642
7644
7646
7648
7650
767A
7676
7678
7680
7831
7835
7836
7846
7848
7860
7862
7864
78oS
7868
7870
7872
7874
7876
7897
7899
7901
7903
7905
7907
7909
7911
7913
7935
7938
7940
7942
7954
7955
7957
7959
7961
7974
7986
7987
7989
7991
7993
7995
7997
7999
8054
8056
8058
8060
8062
8065
8068
8071
8262
8306
8307
8309
8311
8313
8315
8317
8319
8321
8333
8335
8347
8348
8350
8352
8354
8356
8358
8401
8403
8405
8407
8409
8411
8413
8415
8418
8450
8452
8454
8456
8458
8460
8462
8464
8466
8480
8482
8484
8486
8488
8490
8500
8502
8505
8517
8519
8523
8524
8526
8528
8530
8546
8547
8559
8560
8562
8564
8566
8568
8587
8588
8590
8630
8632
8634
8636
8638
8640
8642
8644
8646
8667
8669
8671
8674
8680
8681
8729
8921
8925
9154
9157
9160
9171
9179
9187
9195
9203
9211
9269
9454
9455
9456
9463
9464
9485
9640
9641
9793
9795
9804
9818
10615
10616
10619
10685
10686
11208
11242
11243
11244
11245
11282
11312
11316
11326
11469
11470
11496
11505
11506
11507
11515
11536
11541
11570
11571
11572
11761
11768
11769
11770
11771
11773
11803
11804
11813
11949
11950
11951
11952
12549
12550
12559
12577
12578
12579
12583
12599
12750
12755
12756
13069
13071
13073
13075
13077
13079
13081
13083
13085
13199
13204
13205
13217
13222
13223
13241
13246
13247
B11ADR
13592*
13592
13663
B11CNT
13595*
13595
13657
13668
BAD
130*
2622
2623
4541
4543
4547
4568
4569
4573
5362
5364
5586
5587
5588
5594
5595
5616
5617
5770
5772
5816
5817
5829
5914
5967
6023
6035
6113
6135
6144
6151
6167
6177
6188
6213
6222
6308
6319
6341
6362
6363
6365
9475
9479
9482
10647
i'858
11859
11876
11880
11882
12582
12584
12596
BADCNT
3732
12602
5580
5600
5609
5624
6370
9443
9454
9785
BADDAT
6468
9455
10773*
BADFLG
3715
3735
3741
9039
10774*
BADLST
3714
5581
5610
9428
9787
1C780*
12574
BASE
3123
3173
3216
3261
3306
3561
3564
3572
6352
BEGEND
1815*
2234
BEGIN
98
99
100
1680
1681
1746*
12529
12539
16603
BEGIN1
1762*
1816
BEGPAG
58*
9466
BELL
1938*
BINBA
966*
13597
13605
13606
13607
BIN6C
965*
13579
13580
13584
13587
13588
13615
13616
BINBYT
964*
13562
13563
13566
13569
13573
13605
13629
13632
BINP1
969*
13586
13588
13589
13593
13594
13595
BINP2
970*
13589
13608
BINT1
967*
13577
13579
13583
13591
13592
13599
13601
13613
13634
13645
13646
13647
13648
13657
13658
13660
13661
13676
13677
13678
7652
7654
7662
7664
7666
7850
7852
7854
7856
7858
SEQ 0482
7887
7889
7891
7893
7895
7915
7917
7919
7931
7932
7964
7966
7968
7970
7972
8001
8024
8026
8029
8053
8263
8266
8268
8270
8272
8323
8325
8327
8329
8331
8360
8362
8392
8393
8395
8428
8429
8431
8437
8440
8468
8470
8473
8476
8478
8508
8510
8512
8514
8516
8549
8551
8553
8555
8557
8592
8594
8624
8626
8628
8648
8650
8652
8654
8657
8926
8928
8930
8933
8934
9219
9227
9237
9238
9255
9679
9680
9790
9791
9792
10691
10694
10697
10712
11207
11328
11329
11331
11461
11468
11542
11543
11544
11564
11569
11774
11777
11791
11792
11794
12551
12554
12555
12557
12558
12761
12781
12785
12816
12823
13087
13090
13100
13102
13105
13284
13286
13288
13290
4591
4597
4635
4636
4640
5619
5748
5749
5754
5769
6055
6063
6075
6097
6105
6233
6259
6267
6278
6299
9795
9798
9799
9801
9820
9806 9814 9816 10775* 12572
6374*
13639 13640
13614
13663
13622
13664
13623
13665
13632
13668
13633
13670
0470
I
I
BINT2
BIS
968* 13667 13672 13674 13678
1733*
i ^ ^f\ AA i *»■< r
SEQ 0483
JC
BINT2
BIS
BLDA
BLDB
BLDBB
BLDDTE
BLDLST
BLKCNT
BOT
BPI160
BPI200
BPI556
BPI800
BSRCLN
BTDP
BTDP1
BTDP2
BUSLP
BYTESV
C
C11CDN
C11CKS
C11CLP
C11DAT
C11DID
C11D0
CIILP
CULPA
C11LPB
CI 1 SUM
C11XFR
CADDR
CALMAR
968#
1733#
4670*
4673
471 4#
4690
3047
478*
654*
812*
809*
810*
811*
3490
6825
12479
12476
390*
4442
13629*
134*
5636
6804
7585
7624
7653
8068
8921
9249
9794
10716
11772
13670
13658*
13670*
13603*
13613*
13610*
13560*
13579*
13586*
13569*
13610
12005*
12081*
13667 13672 13674 13678
4715
4713*
4751
4722*
3082
487*
6984
6972
SEQ 0483
5864
12470*
12482*
12531*
4428
4443
13629
3434
5637
6824
7586
7626
7663
8069
8925
9258
9796
10718
11775
13676*
i<658
13674
13608
13562
13616
13569
13657*
12005
1 2081
4668*
4981
7874
11925*
12538
4429
4444
13634
3550
5639
6827
7595
7628
7665
8074
8928
9263
9803
10720
11781
5009 5025 5064 5095 5193
5284
4430
5188
3896
5642
6831
7597
7630
7675
8579
8930
9264
10694
10722
11793
4431
5279
3897
5643
7451
7599
7632
7677
8588
8932
9268
10695
10724
11812
4432 4433 4434 4435 4437 4438 4439 4440
3898
5645
7452
7601
7634
7679
8589
8934
9283
10697
10726
12580
3907
5646
7453
7603
7637
7686
8590
8936
9284
10698
10728
12582
3912
5648
7471
7605
7639
7695
8591
8964
9293
10700
10730
12587
4592
5649
7472
7607
7641
7711
8592
8971
9304
10702
10732
12589
4597
5651
7473
7609
7643
7712
8593
9239
9314
10704
10734
12591
4598
5652
7517
7611
7645
7713
8594
9240
9317
10706
10736
12593
4630
5654
7518
7613
7647
8049
8595
9241
9319
10709
10738
12598
4648
5655
7519
7620
7649
8065
8597
9242
9330
10712
10740
4441
4653
5658
7584
7622
7651
8066
8920
9244
9333
10713
11762
13664 13673 13676
13564
'3622
12083
13619
13640
'210?
CALPAR
CCA
12016
1733*
12077*
CCW
128*
2339
2346
2362
2389
2396
2426
2453
2460
2564
25J1
2650
2659
2675
2699
2707
2723
2748
2824
2848
2856
2873
2J97
2905
2921
2948
2971
4692
4699
4722
5323
6043
6083
6158
6197
6199
6909
7094
7096
7209
7210
9790
11284
11285
11287
CCWLST
2346
2396
2460
2510
2659
2707
2762
2808
2856
2476
2503
2510
2530
2557
2757
2762
2777
2800
2808
2998
3021
3038
3073
4041
6242
6244
6286
6327
6891
11289
11290
2905
5320
6043
6083
6199
CERR
6244
9790
7850
]^l"
95 11597 11624 11626 11651 11653 11786 11788 11914
SEQ 0484
CERR
CERRO
CERR1
CERR2
CERR3
CERR4
CH.ERS
CH.LER
CH.LUC
CH.NXM
CH.OVR
CH.PAR
CH.RHE
CH.SER
CH.SUC
CH.UCZ
CHAIN
CHJMP
CHKA
CHKLGA
CHKLOG
CHKRDY
CHKSUn
CHNAVL
CHNBAR
CHNCCU
CHNDEV
CHNERS
CHNLEN
CHNOFF
cmoN
CHNPRG
CHNTCR
CHNX
CHNXFR
CHTYPE
CIC
CITD
CK11SU
62A4
627#
13567
1357A
13577
13625
13561
432#
427#
429#
426#
431 #
423#
428*
424#
430#
425#
1485*
474#
5353#
3055
2354
4992
12723
6716
3987
6325
361 6#
3479
5795
6260
11204
6471
3671
5123
1733#
45
3883
4697
5010
3543
3574
4695
2268
3893
4283
4930
5823
6940
11201
49#
50#
13618
6286
3484
13688*
13691*
13580
13697*
13572
3476
432
432
432
432
432
432
432
432
432
3884
5403
3090
2408
5054
12742
8790
4000
10868*
3616
3773
6087
6289
11465
9641
<785
5158
1733*
3885
5298
5027
3546
3764
4724
2305
3955
4319
5130
6033
7171
11370
59
59
13620*
6327
5852
13694*
9790
7850
10910*
11595
11597 11624 11626 11651 11653 11786 11788 11914
SEQ 0484
13604 13621 13628 13631 13700*
8407
8411
8415
8401
8409
8403
8413
8405
4675 5317
3142
2468
5075*
12748
8791
4014
11260
3637
3804
6098
6300
11502
9680
3898
5222
3887
5318
5044
8392
3880
4729
2404
3974
4374
5132
6073
7180
11389
13643
3152
2522
12754
8792
4491
11261
3667
3816
6116
6331
11540
10772*
3924
5257
3888
5322
5066
8428
3896
6354
2518
3976
4465
5218
6186
7349
11391
3188
2573
12762
8804
5003
11267
3678
4781
6136
6342
11568
4520
10865*
3900
5324
5097
11281
3902
9235
2551
4068
4473
5229
6231
7425
11531
3195
2667
12782
8839
5039
11547
11210
4792
6154
6427
11706
4701
11219
3915
5325
5112
11444*
3988
9449
2602
4089
4515
5331
62/6
7492
11559
3232
2715
12783
8989
5065
11575
11218
4872
6168
6724
11754
4730
13273
3917
5333
10869*
11461
3989
9459
2743
4099
4710
5397
6317
7494
3239
2771
13489*
13314*
5107
11931
11235
4921
6196
6732
11928
3277
2816
13601
5203
11946
11236
5126
6198
6743
3284
2865
6041
11242
5225
6203
6912
3322
2913
6081
11245
5234
6214
6934
3329
2963
5384*
3013
5351*
6194 6239 6284
5260
6241
6943
5667
6243
6954
4778 4859 4922 4956 4999 5019
5684
6249
10867*
5089
3919
5340
11953
11496
3990
10866*
2942
4147
4772
5642
6381
7655
3926
5341
11515
4001
12^
29'
4n
4783
5645
6384
7667
3927
10864.#
115S6
4n:;
13271
3439
4177
4787
5648
6387
8818
3929 4676 4694 4696
11564
4003
13272
3511
4210
4853
5651
6390
8843
4015
13279
3524
4226
4865
5654
6721
8994
4016 4017
3726
4248
4867
5742
6730
9776
3852
4260
4928
5821
6931
10851*
n
CKLGA1
CKLGA2
^1 4 4 r\ t
187*
;9i
5407
5398
S406*
SEQ 0485
1
—
CKL6A1
5387#
5407
CICLGA2
CL11PI
CLEAR
5391
886#
584#
5398
916
606#
5406*
SEQ 0485
3528
5900
6888
11587
11609
11638
11669
11719
11735
11861
11904
11916
11938
CLK
1733#
CLKAMT
109A6#
1733#
CLKCLR
CLKCNT
131#
3834
3836
3839
4063
4064
4073
4086
4213
4087
4106
4114
4115
4119
4128
41 39
4140
4144
4162
4172
4173
4189
4214
^22(^
4240
4241
4245
4256
4275
4276
4280
4294
4472
4476
4479
6383
6386
6389
6392
6400
6405
6408
6409
6410
6411
CLKDIS
1733#
CLKENB
1733#
CLKRH
3830
3851*
.
CLKRHU
3855
3864#
CLKU
1733#
CLNTAP
6127
6128
6129
11904*
11942
CLOCKF
1801#
CLT010
889#
916
3998
5938
12368
13305
13377
CLT011
888#
916
3998
5938
12376
13305
13377
CNDDN
CHDERP
CMDERR
417*
7350
6581
3460
7381 #
6614
5840
8654
6616
6687
6689
6807
6810
6813
6815
6823
6832
6843
6854
6865
6886
7092
7128
7151
7248
7328
7331
7341
7359
7363
7365
7372*
7398
7401
7403
7409
7434
7446
7466
7512
7549
7555
7579
7709
7747
7792
11196
13062
CMDLIN
7372
7381
8960
8961
8963
8976
10783*
11322
12817
12825
CMDLNX
8962
10784*
CMDQAV
100C#
CMESG
6536
6764
10989*
CNR
CNTLC
CNTRL
41 0#
1818#
119#
5750
230
231
232
233
234
235
2265
2266
2268
2291
2304
2305
2306
2318
J331
2332
2333
2334
2352
2367
2368
2381
2382
2383
2384
2402
2404
2415
2417
2430
2431
2445
2446
2447
2448
2466
2481
2482
2495
2496
2497
2498
2516
2518
2534
2535
2548
2549
2550
2551
2552
2571
2585
2586
2601
2602
2603
2605
2618
2630
2641
2690
2737
2743
2756
2761
2792
2840
2889
2937
2942
2943
2987
2992
2993
3050
085
3347
3348
3350
3354
3355
3357
:361
3362
3364
3368
3369
3371
;375
3376
::378
3383
3385
3389
::390
:392
3396
3397
3399
3408
3409
:414
;415
::421
3425
3436
3438
3439
;i445
M7
3449
3450
3459
3461
3463
:467
;469
::472
3477
3479
3483
3485
;:487
;494
3495
3496
3502
3507
3508
:511
3524
;:536
3543
3544
3546
3547
;:573
:574
3577
3607
3608
3609
3610
;623
3624
3645
:647
3649
3651
3653
;;660
:663
3670
;671
3673
3674
3677
:702
;703
:705
3706
3713
3717
3718
;719
:726
3732
:737
3738
3749
3756
:757
;758
;761
3764
3770
3773
3776
]777
:785
376.
3791
3793
3800
m
3804
3811
3813
3814
3815
3816
;821
:828
:829
3831
3833
3835
:836
3842
:843
;845
3851
3852
3856
;859
:860
!861
3864
3865
3867
3868
.677
:880
:881
3890
3893
3896
3898
:901
:902
:905
3924
3930
3933
3945
3946
3948
3955
3961
3963
3964
3967
3974
3976
:98^
4000
4014
4044
t?^f
4069
4089
4091
4093
4094
4099
4100
4147
4148
4155
4156
4253
4159
4160
4180
4181
4197
4208
4210
4218
4219
4226
4238
4248
4254
4341
4260
4283
m
4289
m
4319
4320
4327
4336
4337
4338
4340
4372
4373
4375
4378
4379
4464
4465
4467
L_
4469
4498
4471
4499
4473
4501
i.HXK
4475
4502
4476
4505
4477
4506
A AAA
'Si i^l
LA7n
LA7^
4485
4516
LA70
4491
4520
Z,AftA
4493
4495
4523
4496
4531
SEQ 0486
0473
4469
4471
4473
4498
4499
4501
4532
4533
4535
4701
4706
4707
4762
4763
4764
4844
4845
4846
4928
4930
4935
5044
5055
5058
5132
5137
5158
5248
5249
5331
5334
5336
5390
5397
5406
5450
5535
5537
5667
5672
5684
5814
5821
5823
5935
5937
5940
6031
6033
6035
6081
6087
6092
6133
6135
6136
6182
6183
6184
6223
6227
6228
6267
6268
6272
6309
6313
6314
6354
6357
6370
6422
6423
6424
6710
6714
6715
6818
6908
6912
7162
7163
7164
7356
7360
7361
7655
7667
7812
8989
8994
9007
9129
9142
9150
9443
9446
9449
9776
J782
9785
9935
9944
9952
10013
10028
10043
10175
10189
10190
10284
10299
10300
10394
10409
10410
10840
11200
11201
11281
11305
11318
11375
11378
11389
11478
11479
11480
11520
11523
11530
11558
11559
11560
11684
11704
11706
11877
11928
11931
12572
12576
12602
12887
12889
12895
12973
12974
12975
130:4
13268
13271
133:8
13342
13392
13395
13397
4475
4502
4536
4710
4765
4853
4956
5065
5187
5257
5339
5407
5538
5742
5845
5946
6041
6093
6144
6186
6229
6273
6315
6381
6425
6716
6931
7167
7362
7815
9018
9163
9454
9789
9953
10057
10205
10315
10590
11202
11339
11391
11483
11531
11562
11728
11937
12610
12899
12976
13272
13347
13401
4476
4505
4538
4714
4772
4859
4975
5066
5203
5258
5353
5417
5539
5781
5847
5947
6050
6097
6146
6188
6231
6274
6317
6382
6427
6721
6933
7171
7364
8793
9020
9235
9455
9806
9962
10072
10206
10316
10604
11204
11340
11406
11491
11532
11564
11754
11946
12612
12900
12978
13273
13351
4477
4482
4483
4485
4490
4491
4493
4495
4496
4506
4668
4514
4515
4516
4518
4520
4522
4523
4531
4670
4724
4779
4671
4672
4682
4686
4689
4695
4698
4715
4726
4729
4730
4732
4742
4743
4746
4778
4781
4785
4787
4792
4829
4830
4843
4860
4865
4867
4872
4909
4910
4921
4922
4923
4993
4996
4999
5003
5010
5012
5019
5027
5039
5068
5089
5107
5112
5124
5126
5130
5215
5217
5218
5220
5222
5225
5229
5260
5267
5278
5293
5295
5300
5315
5328
5356
5363
5367
5371
5372
5375
5384
5387
5388
5420
5423
5429
5432
5436
5438
5439
5440
5447
5580
5600
5609
5612
5624
5633
5639
5665
5782
5783
5784
5785
5788
5795
5800
5801
5802
5848
5853
5854
5859
5868
5881
5886
5901
5933
5986
5988
5989
5995
6000
6023
6024
6028
6029
6051
6055
6063
6064
6066
6067
6071
6073
6075
6098
6105
6108
6110
6113
6116
6120
6131
6132
6148
6151
6154
6161
6165
6167
6168
6177
6U8
6194
6196
6198
6203
6208
6209
6213
6214
6222
6233
6239
6241
6243
6249
6254
6255
6259
6260
6276
6278
6284
6289
6294
6295
6299
6300
6308
6319
6325
6331
6336
6337
6341
6342
6350
6351
6384
6385
6387
6388
6390
6391
6401
6402
6406
6432
6433
6445
6448
6451
6462
6465
6468
6^n
6723
6724
6730
6731
6732
6742
6743
6751
6752
6934
6940
6942
6943
6953
6954
6973
7110
7160
7173
7180
7182
7199
7202
7226
7227
7332
7349
7404
7406
7425
7492
7494
7501
7529
7532
7S68
8804
8806
8816
8818
8832
8839
8841
8843
8985
9030
9092
9096
9097
9105
9107
9109
9116
9123
9240
9391
9396
9397
9398
9399
9429
9437
9442
9459
9468
9501
9512
9519
9522
9523
9559
9593
9814
9816
9865
9866
9868
9869
9907
9917
9926
9963
9972
9973
9982
9983
9991
9992
10001
10002
10087
10101
10115
10129
10142
10143
10158
10159
10174
10221
10222
10236
10237
10252
10253
10268
10269
10283
10330
10331
10346
10347
10362
10363
10377
10378
10393
10606
11207
10628
10833
10834
10835
10836
10837
10838
10839
11219
11221
11223
11260
11261
11267
11270
11342
11346
11352
1 1353
11362
11369
11370
11371
11373
11407
11408
11456
11457
11459
11461
11462
11465
11468
11492
11494
11496
11497
11502
11505
11515
11516
11519
11534
11536
11537
11540
11541
11546
11547
11548
11551
11565
11755
11568
11569
11574
11575
11576
11579
11612
11678
11768
11770
11792
11805
11838
11841
11847
11874
11949
11953
12365
12418
12455
12472
12475
12484
12509
12613
12615
12618
12621
12628
12629
12633
12688
12879
12904
12907
12917
12918
12921
12941
12942
12945
12960
12992
12993
12994
12998
13009
13014
13019
133§3
13279
13285
13286
13292
13301
13334
13352
13356
13360
13361
13365
13375
13380
13582
13384
SEQ 0486
'^"H
0474
COMHO
C0WI1
13430#
13444#
SEQ 0487
COMMO
13A30#
C0MM1
13A4A#
C0MM2
13A58#
C0HM3
13472#
COHMA
1927#
COMPAT
808#
CONSW
1802#
11925
13192
13195
13226
CONTST
10776*
CORDMP
805#
CP.ERS
AA#
3A71
5846
5936
5987
13394
CP.NXM
A2#
CPAR
682«
7913
CPOPJ
1822*
3693
3697
.
CP0PJ1
1820*
2246
2249
13641
CPUITA
4570#
4576
CPUITR
3185
3192
4559
4562*
CPUITU
327A
3281
4557*
CPU J OB
A575
4580*
CR11
883#
12409
12446
CRAMPE
986#
CRC
670#
7889
11935
CRLF
1615
1616
1922*
CRLF2
1619
1620
1924*
CRYO
1733*
CRY1
1733#
CSHFLG
1981*
CSHMEM
1982*
CSRCHN
982#
CSRENS
8083*
8083
8087
8140
8160
CSRRQS
981*
CTB
56#
2091
CUORDL
1202A#
12024
12041
CUORDR
12040#
12040
12042
CYCL60
1975*
CYLADR
838*
845*
0
133*
7707
3908
7708
3909
3911
3914
3922
4629
4647
4650
4652
4654
4655
4656
7694
D.DT
11605*
11605
11634*
11634
11665*
11665
D.ERR1
11602*
11602
11631*
11631
11660*
11660
D.SN
11608*
11608
11637*
11637
11668*
11668
D.STAT
DATAPT
DATBUF
11599*
132*
2610
11599
2658
3577
11628*
11628
11657*
11657
3663
3677
3705
3787
4348
4362
4363
4364
4563
4580
4628
4659
A811
4891
4954
5156
5299
5462
5483
5552
5567
5586
5594
6357
7348
9468
9793
10785*
10910
10911
10912
10913
10914
10915
10916
10922
10923
10924
10925
10926
10927
12551
2113
10928
12579
3897
11327
12489
12491
12492
12494
12495
12496
12517
12519
12521
12523
12525
DATLEN
3904
3922
3923
4063
4086
4114
4139
4172
4213
4240
4275
4700
4813
4893
5337
5343
5460
5464
5477
5481
5493
5507
5549
5563
5591
5613
6627
9451
10845*
OATMSK
5587
5617
5618
6361
6363
8907
8936
9799
9800
10796*
12584
12585
DATPTB
4118
4120
4143
4145
4244
4246
4279
4281
10954*
DATPTN
5309
5459
5476
5546
5560
5585
5615
9786
10816*
12547
12573
SEQ 0487
DBPE
DCK
hroMP
419 3468 8626
SEQ 0488
1
OBPE
^02#
419
3468
8626
DCK
1733#
OCOMP
989#
ODTLNK
U99#
1760
DDTSRT
1760#
6666
DEAD11
896#
13383
1
DEBUG
93#
16594
16595
DECDTE
7325
7356*
DECRH
6883
7089
7321*
7327
DECRH1
73A5
7347
7352*
DECRHA
7337,
7366
DECRHX
6862
7391*
7397
DECVER
A#
9
26
1781
DENMSG
8066
8212*
DEV
12U
3435
3479
3494
3504
3549
3773
3804
3805
3816
4781
4792
4794
4872
487A
4921
4975
4994
5056
5126
5187
5225
5234
5236
5260
5278
5667
5679
5680
5683
5684
5686
5795
5867
6087
6098
6116
6117
6136
6154
6155
6168
6203
6214
6249
6260
6289
6300
6331
6342
6427
6739
6741
6746
6866
6887
6891
6910
6911
6912
6950
6952
6957
7015
7024
7035
7058
7093
7094
7208
7209
7213
7223
7817
7818
8847
8856
8870
8881
9127
9130
9135
9504
9562
9596
9905
9915
10012
10027
10042
10056
10071
10086
10100
10114
10128
10141
10157
10173
10188
10204
10220
10235
10251
10267
10282
10298
10314
10329
10345
10361
10376
10392
10408
11204
11248
11250
11465
11466
11502
11503
11540
11568
11706
11707
11754
11757
11825
11928
11929
DEVBSY
35A7
11576
2658
4518
11272
11273
11373
11408
11446*
11459
11480
11494
11520
11534
11548
11562
DEVBUF
4062
4085
4175
4216
4493
4531
4533
4535
4581
4809
4889
4952
5154
5466
5479
5570
5616
9794
10789*
12500
12559
12580
12587
12589
12591
12593
DEVCFG
8828
8839*
DEVPRT
3649
3703
3791
10893*
DF22F
1886#
DIAGMN
1749#
DIALG
2076*
2076
6514
6517
0I0I2
856*
DIGI1
855*
DIGI3
857*
DIGI4
858#
DING
1471*
7306
9354
DINIT
983*
DISK
344*
637
725
771
DMD
697*
DMFC
7836
8681
8690*
DHP1
9248*
9257
DMP11
12361
12433*
DMP2
9255*
9266
0MP3
9251
9258*
OMPADR
9248
9293*
DHPCPH
9113
9219*
DMPDER
9133
9211*
DMPDSR
9132
9203*
DMPER1
9255
9272*
DMPHLT
9253
9303*
DMPJMP
9254
9282*
SEQ 0488
1
DHPLST
DMPnSH
hMDDDn
9267
''^}t
1
7701
01 1«;
07^*;« 11 ^OR
SEQ 0489
DMPLST
DMPMBH
DMPPRG
DHPREV
DMPRHl
DnPRH2
DMPRHS
DMPSKP
DMPSRT
DMPTCR
DMPX
OMPXFR
DMYBUF
DNCLR
DNG10C
DO.B
DO.BL
DO.CP
DO.D
DO. DO
D0.D1
D0.D2
D0.D3
DO.E
DO. El
D0.E2
DO.G
DO. GO
D0.G1
DO.H
DO. MB
DO.N
DO.P
DO. PC
DO. PS
DO.PSO
DO.PST
DO.PSW
DO.PT
DO.R
DO.Rl
D0.R2
D0.R3
DO.S
DO. SI
D0.S2
DO. S3
DO.SA
D0.S5
DO.TH
DO.TR
DO.Z
9267
91U
77A6
9322#
9111
9112
9102
9262
91 6#
9110
9268#
9260
AA99
6328
388#
887#
6553
6805«
6555
6557
6676#
6678
6669
6697#
6559
6864#
6869#
6577
6603#
6605
6561
6563
6565
6567
7U6
7150
7261 #
7247
7245
7148
6569
7091 #
7098#
7090
6571
6885#
691 4#
6884
6899
6907
6783#
6792#
6575
9343#
9227#
7769
9335
9187*
9195*
9171#
9329*
12402
9179*
9276
9313*
4532
10787*
2625
3998
6803*
6841*
6664*
6682
6686*
6695*
6702
6862*
6877
7521
6587*
6609
6613*
6764*
6852*
6775*
.'144*
7236*
7243*
7268
7252*
7257*
7155*
7089*
7106
7112
7110*
6883*
6922
6936
6931*
6967*
6993*
11192
11194
7121*
7791 9115 9235* 11398
12439
9307
4536
SEQ 0489
4538 4557 4607
3532
5938
5006
12409
5041
12446
5061
13377
4612
5109
4613
5898
4615
11472
4622
11509
5495
11943
5509 6084
6245
6871
7100
6916
6945
6969
6956 7019 7030
7071
DO.ZD
DOLLAR
nnuRFP
7123
1941*
L^^M
7134*
n
Rf^L?
SEQ 0490
DO.ZD
7123
7134*
DOLLAR
1941*
OOVRER
411*
3468
8642
DPAR
680*
7909
DPR
632*
7860
DR. AS
545*
10056
10204
DR.CCY
553*
10345
DR.CR
541*
10012
10141
DR.DCY
552*
10114
10329
DR.DT
547*
10267
DR.ECl
556*
10392
[>R.EC2
557*
10408
DR.ER1
543*
10027
10173
DR.ER2
549*
10298
DR.ER3
555*
10128
10376
DR.FC
546*
10071
10220
DR. LA
548*
10251
10282
DR. MR
544*
10042
10188
DR. OFF
551*
10100
10314
DR.SN
554*
10361
DR.SR
542*
10157
DR.TC
550*
10086
10235
DROAT
715*
DR1AT
716*
DR2AT
717*
DR3AT
718*
DRAAT
719*
DR5AT
720*
DR6AT
721*
DR7AT
mn
DRAES
441*
DRAS
524*
.
DRATTN
413*
8646
11341
DRCCY
533*
DRCR
520*
DRDCY
532*
DRDT
527*
DRDTS
525*
DREC1
537*
DREC2
0RER1
522*
DRER2
529M
DRER3
535*
DRESSE
407*
419
8636 10014
10029 10044
DREX
403*
419
8628
DRFC
526*
DRLA
528*
DRMR
523*
DROFF
531*
DRSEL
443*
454*
462* 476*
485*
DRSN
Ih*
DRSR
521*
DRTC
530*
SEQ 0490
10058 10073 10088 10102 10116 10130
DRV
DSCLK
hero
7000
7862 11651 11746 11786 11872 11912
SEO 0491
U-
DRY
DSCLK
DSCR
DSKUPD
DTO
DTI
DT2
DT20RG
DT3
DTADAO
DTADAl
DTADA2
DTADA3
DTADBO
DTADB1
DTADB2
DTADB3
0TCHN7
DTCNAO
DTCHA1
0TCHA2
DTCHA3
DTCMBO
DTCHB1
DTCNB2
DTC«B3
DTCPU
OTCR
DTDRR
DTE
DTEAD
DTEAV1
DTEAVL
DTECLl
DTECL2
DTECL3
DTECLO
0TECM1
DTECH2
DTECM3
OTECHP
OTECOM
DTEDAT
0TEFB1
OTEFBP
0TELE1
OTELEN
DTEL01
DTEL02
OTELOA
DTERDF
DTERyT
633#
692#
385#
1786
362#
363#
364#
7582
365#
13A3A#
13A48#
13462*
13476#
13437*
13A51#
13A65#
13479*
757*
13431*
13445*
13459*
13473*
13432*
13446*
13460*
13474*
163*
8669*
758*
673*
13029
942
942*
12918
5421
5424
5426
5354
12582*
12588
12590
12504
4734
12487
944
944*
946
946*
12612*
12616
2101
919*
943
7000
10470
10471
10472
7585
10473
7862 11651 11746 11786 11872 11912
SEQ 0491
8553
9157
8730
8555
7895
13510*
13317*
12472
IJ942
5428*
5446*
5430
5417*
12599
12592
12594
12572*
12774
12545*
13324*
4746
13326*
4732
12629
12619
12610*
12948
13323*
10488
10489
10490
13046*
10491
10506
10507
10508
1052'.
10525
10526
10542
10543
10544
10560
10561
10562
11170
11173
11176
10509 10527 10545 10563 11179
12475 12509 12615
5435* 5448 5451
12596*
12598*
12618 12875 12876 12877 12878 12887 12899 12900 12907
12925 12928 12949 12952 13016 13021 13026 13031 13036 13277 13295 13419*
5429 5440 5447 13289
4743 12960 12978 12998
12622 12628*
13275 13286
DTERWF
OTES
DTESB1
943*
477*
94S
131
5423
8669
5438
9916
12917 12941 13301
SEQ 0492
OTERUF
9A3#
5420
5423
5438
12917
12941 13301
DIES
A77#
486*
8669
9916
DTESB1
945
13325*
DTESBP
9A5#
4742
5432
5439
5450
13285
DTEST
130U
13500*
OTETX
165#
9144
DTEWC
1303A
13505*
DTEUTF
91 8#
12924
DTIDU
161»
9150
'
DTLP
9795#
9804
DTMBE
164«
9160
DTMOVH
756#
762
8551
'
DTNBA
75A#
8547
DTRA
392#
4406
4407
4408
4409
4410 4411 4412 4413 4415
4A20
4421
4422
4976
5188
5279
DTSPR
759#
8889
DTSTAO
13433#
DTSTA1
13AA7#
DTSTA2
13461*
DTSTA3
13475*
OTSTAT
162#
9154
DTSTBO
13436#
DTSTB1
13450#
DTSTB2
13464#
DTSTB3
13478*
DTTAD
13019
13515*
DTTAPE
75 5#
761
85^.9
■
DTTUC
13024
13520*
OTUCAO
13435*
DTUCA1
13449*
'>■"'" ' ■ ^' . ■
DTUCA2
13463*
DTWCA3
13477*
DTUCBO
13438*
I - - - '■_'■.'■ _ '■
DTUCB1
13452*
DTWCB2
13466*
DTWCB3
13480*
DV.ERR
760*
' -
DV.PCK
762*
6896
7431
8852
\i - - - •■
OV.TAP
761*
6894
7429
8850
DVA
567*
0VCFG1
8848*
8856
0VCFG2
8849
8856*
DVOS
157*
9203
OVER
158*
9211
OVETX
159*
9124
DVIO
156*
EBUSPE
997*
ECOHP
990*
EHE SG
6766
11053*
ENAR1
8989*
9030
ENAR2
8990
8998
9009
9021
9030*
ENARH
2095
6525
7238
8985*
END
16602*
SEQ 0492
4416 4417 4418 4419
ENOFIX 2061*
ENOSLD 16592*
For 655* 787? 11875
SEO 0493
r'
ENDFIX
2061 #
•
ENOSLD
16592#
EOF
655#
7872
11875
EOT
660#
3809
7858
11766
EP
AA4#
EPTDII
907#
13293
EPTDPU
91 0#
12694
12778
13299
,
EPTDRU
911#
12693
12776
13297
EPTEBP
905#
4739
5431
5442
5446
12367
13282
EPTEPU
908#
12692
W777
13298
EPTERU
909#
12691
12775
13296
EPTTBP
906#
4738
5428
5441
5449
12420
12457
13281
ERABRT
ERMORE
ERRDAT
10620
1835#
126#
10631
10652
10663
10673*
10742
3493
3495
3497
3500
3506
3507
3509
3513
3514
3515
3518
5520
3522
3714
3740
3754
3937
4028
5351
5370
5371
5372
5374
5375
5376
5377
5385
5A09
5435
5436
5438
5439
5440
5441
5442
5443
5581
5582
5583
5598
5610
5611
5612
5622
5866
5869
5872
5875
5880
5881
5883
5885
5888
5889
5891
5893
5894
5945
5946
5948
5950
5952
5953
5994
5995
5997
5999
6002
6003
6005
6007
6008
6349
6350
9070
9071
9072
9081
9082
9089
9093
9096
9103
9124
9128
9129
9130
9134
9144
9148
9150
9154
9157
9160
9171
9179
9187
9195
9203
9211
9219
9227
9379
9380
9389
9390
9391
9393
9395
9397
9398
9401
9403
9404
9406
9427
9428
9430
9435
9440
9533
9612
9613
9627
9634
9637
9645
9648
9657
9660
9667
9676
9787
9788
9789
9805
9819
9820
9821
11425
(1435
12574
12575
12576
12601
13302
13400
13401
13402
13405
13408
13410
ERRLP
2110#
2110
4040
6624*
6624
9368
9850
ERRPC
ERRTLS
ERSTCK
1806#
1807#
3753
9367
3754
3937
4026
4028
5351
5385
5409
9071
9389
9533
9613
10593
10596
10599
10604
10781*
11425
11435
13302
ERSTOP
1474#
7308
9359
EXO
3454
3527
3542*
EXCASB
81#
1733#
1784
EXIOT
EXRHO
3488
3503
3532*
EZO
FCE
FE
3465
676*
120*
3491
7901
4726
3549*
4727
4734
4738
4739
5417
5418
5428
5431
5441
5442
5446
5449
12365
12366
12367
12418
12419
\m
12455
12456
12457
12689
12691
12692
12693
12694
12774
12775
12776
'[2777
12921
12922
12925
12928
12945
13033
12946
12949
12952
13009
13010
13012
13016
13018
13021
13023
13026
13028
13031
13036
13268
13269
13277
13281
13282
13293
13295
13296
13297
13298
13299
FECF1
12881*
12895
FECF2
1288A
12895*
12905
12909
FECF3
12893
12899*
FECFG
6524
7237
12874*
FEDAT
12755
12761
12781
13487*
13597
13672
13678
FEINT
13336
13345
13354
13363
13372*
FEINTX
13398
13414*
FEWC
12690
12721
Mm
12744
12749
12771
13486*
13599
13600
13646
13648
13661
13665
FHDISK
343*
344
571
FILEXT
12662
13496*
FILNAH
12655
12682
13495*
r
SEQ 0493
FNT
FHTMSG
FMTRD
681*
8069
694*
7911
8226*
SEQ 0494
FMT
681 #
7911
FMTMSG
8069
8226*
FMTRD
694#
FMTURT
693#
FNCTN
479#
488*
566*
FOV
1733#
FOVU
1733*
FQUERR
998#
FRAMES
7A2#
5002
11512
11722
11738
11778
FRDLNK
U97#
FSELNK
1A96#
FXU
1733#
G11BYT
13560
13571
13603
13620
13627
13630
13637*
G11UD
13576
13582
13627*
GENEPE
993#
GENPAR
4534
4537
4541*
4546
GETCHR
7593
7694*
GETRG
7447
7467
7513
7550
7580
7593*
GETRGX
7656
7668
7686*
GLBURT
GOBIT
GOOD
696#
565*
129*
2623
4323
4328
4348
4350
4351
4353
4354
4531
4532
5309
5310
5311
5312
5313
5363
5364
5459
5476
5492
5497
5506
5511
5518
5546
5548
5560
5562
5571
5585
5588
5615
5618
5619
6360
6361
6365
7396
7405
8883
8884
8891
8897
9786
9796
9798
9800
9801
9821
10649
12792
10660
11241
11857
11860
11877
11879
12547
1255'
12554
12573
12583
12585
12596
12800
12802
12805
12808
12809
GTCHR1
7696#
7708
GTEOF
12819
12828*
GTLIN
960
12816*
GTLN1
12818*
12823
GTLN2
12822
12825*
GTURD
959
12792*
GTURD1
12793*
12803
12810
GTURD2
12799
1^808*
6TURDX
12795
12804*
GTURD2
12797
12805*
HEXCOD
8589
8591
8593
8595
8602*
HMESG
6765
11022*
HNDATA
3464
11339*
HNDATX
11347
11353*
HYPEN
1932*
lADDR
495*
ICCU
108*
2620
2622
3474
3514
3515
3886
3891
3892
3935
3936
4029
4030
4031
4677
4702
4703
4708
4709
5319
5326
5327
5329
5330
5362
5366
5373
5376
5888
5889
6002
6003
8393
8429
9242
9244
9397
9398
11470
11507
11543
11544
11571
11572
11951
11952
IDB
656*
7870
IDLE
988*
ILF
685*
7919
ILR
684*
7917
INC
679*
7907
11935
INHCSH
1482*
7311
INHPAG
1479*
SEO 0494
RHI\
RHME
RHPE
RHPl
RHRC
RHSE
RHS1
RHS1
RHUF
RHUF
RHUF
RM
RnE^
RMEr
RMR
RNB/
RND(
RND(
RND(
RND(
RND(
RND(
RND(
RNDr
RNDf
RNG(
RNPr
Ron(
RPO^
RPO^
RPO^
RQII
RSO^
RSO^
RSO'
RSJi
RSTl
RTNI
RTP
RUNI
RUSI
RUNI
SI
S2
SADI
SADI
SADI
SADI
SADI
SADI
SADI
SADI
SADI
INHUSR
INITIM
INPBYT
INPLIN
INPLN1
INPLN2
INPOCT
INTCNT
INTERR
INTF10
INTFIl
INTF12
INTF13
INTRHO
INTRHI
INTRH2
INTRH3
INTRHA
INTRH5
1NTRH6
INTRH7
INTSRV
INXM
lOCLR
IPACOO
IPAC01
IPAC02
IPACOM
IPACOX
IPALOD
IPAMIC
IRDEO
IRHO
IRHOA
IRKO
ITD
ITERAT
ITM
I TO
ITRCH1
ITRCNT
J0B41
JOBAOR
JOBCN!
JOBDD r
JOBFF
JOBOPC
JOBREL
JOBREN
JOBSA
74#
59#
659A
7121
7696
65AA
8966*
8970
6968
2109
A780#
3A22
10579
10580
10581
10582
33A6#
3353*
3360*
3367*
3374*
3381*
3388*
3395#
3890
1733#
1733#
11996*
12000
12037
11976
11998
8995
11990
3493*
3480
3451
3504
51*
94*
675*
57*
1839*
1779*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
2207
:;^32
6603
7144
8978*
8960*
8971
8975"*
8913
2441
4780
4054
13332*
13341*
13350*
13359*
3351
3358
3365
3372
3379
3386
3393
3400
4707
12048
12004*
12047*
11979
12052*
11975*
1^128*
3502*
3506*
3508*
5734
1779
7899
59
7313
6664
7243
11283
8922
2640
4839
11142*
13339
13348
13357
13366
10570
10571
10572
10573
10574
10575
10576
10577
5328
11984*
6676
7323
6803
7329
8943*
3118 3171
4861 4924
6805
7337
3214
5125
6808
7343
3258
5214
6811
7357
6819
7393
6841
7399
3303
5224
3548
5259
3985
5774
6852
7407
4013
6623
6876
7410
4570
9352
6921
7440
4637
13414
7105
7460
4758
SEQ 0495
10570* 13292
JOBSYM
JOBTPC
1733*
1733*
SEQ 0496
'1
JOBSYM
JOBTPC
JOBUSY
JOBUUO
JOBVER
KA10
KAHZ50
KAIFLG
KIlO
KL10
KL10P0
KLFL6
KLOLD
LAPRAL
LAPRP1
LAPRP2
LAPRP3
LAPRP4
LAPRP5
LAPRP6
LAPRP7
LAROVT
LBT
LCADEN
LCADRP
LCASDE
LCASLD
LCASLO
LCASUB
LCASUD
LCCAER
LCCASD
LCHNOF
LCHNON
LCIOPF
LCNTRP
LCNTXT
LCNXER
LCPAER
LCPWRF
LCSAER
LCSBER
LCSLOA
LCSLOO
LCTRP
LCWSX
LD10AD
LD11AD
LOnBC
LDATAF
LDBIT
LDCAER
LDCASD
1733#
1733#
1733#
1733#
1733#
1733
U87#
1796#
1733
90#
9U
1797#
1695
1733#
1733#
1733*
1733*
1733*
1733*
1733*
1733*
1733*
641*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
12994
12975
12976
1733*
439#
1733*
1733*
SEQ 0496
1733
1733
13549*
13544*
13539*
10012 W027 10042 1GC56 10071 10086 10100 10114 10128
LDDIAG
LDDLY
122^3
12974
SEQ 0497
LDDIAG
LDDLY
LDERl
LDER2
LDER3
LDERA
LDER5
LDER6
LDER7
LDER8
LDER9
LDHALT
LDIOPF
LDLNK
LDNXER
LDOCTF
LDPAER
LDPBIN
LDPR6
LDPRGA
LDPRGA
LDPWRF
LDSAER
LDSBER
LEBXnH
LEBXML
LECAER
LECASD
LEIOPF
LENXER
LEOFE
LEPAER
LEPURF
LESAER
LESBER
LEUPFW
LEVNCD
LEVNPA
LEVNPD
LEXCMP
LFLGCL
LFLGDS
LFLGEN
LFLGST
LFP
LIMIT
LINSTF
LINT
LIOCLR
LIOPFE
LKNTRP
LKTRP
12973
1297A
1268A
12r31
12738
127A1
12850*
12853*
1282A
12757
12764
6826*
1733*
1A98#
1733*
1272A*
1733*
12715
6833
12774*
12668
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
12727
1733*
1733*
1733*
1733*
1733*
173'*
173 J*
1733*
1733*
1733*
1733*
1733*
1733*
1936*
122*
2975
1733*
1733*
1733*
1733*
1733*
1733*
12992
12993
12686
12841*
12844*
12747
12856*
12859*
12862*
6826
1749
12724
13559*
12649*
13655
12680*
13529*
13534*
12838*
12847*
SEQ 0497
6829
12704
1751
12735
12759
12798
12672
12865*
2642
2986
2680
3025
2691
3040
3057
2738
3075
2781
3092
2791
2829 2839 2878 2888 2925 2936
LLACBL
LLDUSB
SEQ 0498
L_
LLACBL
1733#
LLDUSB
1733#
LLPRCN
1733#
LMBXMH
1733#
LHBXnL
1733#
LHUUO
1733#
LHUUOP
1733#
LNXM
399#
LNXMEN
1733#
LNXnER
1733#
LOCO
12700
12701
13761* 13771
LOGERR
5360
5365
5370*
LOOPER
U73#
7307
9363 9365
LOOPTS
76#
2243
73K
LPAGE
60#
3692
A681
LPAR
A00«
LPAREN
1733#
LPARER
1733#
LPCNT
124#
3131
3157 3180
LPDOVT
1733#
LPFUPC
1733#
LPGFTR
1733#
LPICH1
1733#
LPICH2
1733#
LPICH3
1733#
LPICHA
1733#
LPICH5
1733#
LPICH6
1733#
LPICH7
1733*
LPICHA
1733*
LPICLR
1733*
LPIIP1
1733*
LPIIP2
1733*
LPIIP3
1733*
LPIIPA
1733*
ir'IPS
1733*
LPIIP6
1733*
LPIIP7
1733*
LPIOFF
1733*
LPION
1733*
LPNTRP
1733*
LPRCH1
1733*
LPRCH2
1733*
LPRCH3
1733*
LPRCHA
1733*
LPRCH5
1733*
LPRCH6
1733*
LPRCH7
1733*
LPRFMH
1733*
LPRFML
1733*
LPRG1
12721*
mi^
}2772
LPR62
12752*
W756
LPRG3
12753
12759*
SEQ 0498
13815
3200
3224 3244 3269 3289 3314 3334
"~]
ILPRG5 12760 12781*
LPTRP 1733*
SEQ 0499
I
-. J
LPRG5
12760
12781*
LPTRP
1733#
LPURFE
1733#
LPURFL
1733#
LR
438#
453*
470* 4406 4407 4408
4420 4421 4422 4428
A44Q 4441 4442 4443
11935
4418
4419
443
4439
LRC
678#
7905
LREQSE
1733#
LRQCLR
1733#
LSADEN
1733#
LSADRP
1733#
LSBSEN
1733#
LSBUSE
1733#
LSCAER
1733#
LSCASD
1733#
LSECMO
1733#
LSIOPF
1733#
LSMODE
1733*
LSNTRP
1733*
LSNXER
1733*
LSPAER
1733*
LSPURF
1733*
LSSAER
1733*
LSSBER
1733*
LSTRP
1733*
LTBASH
1733*
LTBASL
1733*
LTRP3T
1733*
LTRPAE
1733*
LTRPEN
1733*
LUSCMP
1733*
LUUO
1733*
LUU01
83*
'866
1867
LUU010
1866
1871
LUU011
1866
1871
LUU012
1866
1872
LUU013
1866
1872
LUU014
1866
1873
LUU01 5
1866
1873
LUU016
1866
1874
LUU017
1866
1874
LUU02
84*
1866
1868
LUU020
1866
1875
LUU021
1866
1875
LUU022
1866
1876
LUU023
1866
1876
LUU024
1866
1877
LUU025
1866
1877
LUU026
1866
1878
LUU027
1866
1878
LUU03
85*
1866
1868
LUU030
1866
1879
SEQ 0499 !
4409
4429
4444
4410
4430
4458
4411
4431
9906
4412
4432
9916
4413
4433
9925
4415
4434
9934
4416
4435
9943
4417
4437
LUU031
LUU032
1866
1866
SEQ 0500
LUU031
LUU032
LUU033
LUUOA
LUU05
LUU06
LUU07
LUUOI
LUCER
LWRITE
HAGTAP
MAPERR
MAPNEU
MARGIN
HASSEN
MBCCLR
MBE
NBERR
nexER
HBXHLT
MCLK
HCNVER
MEMITA
HEMITR
MEMITU
MEMJBA
MEnJOB
HEMLMT
MEMLOU
MEMLST
MEMMAP
MEMS I Z
HEMTOT
HEMVLM
HEMVRT
MHDISK
MINUS
NODDVC
HODDVL
MODDVU
MODLNK
MOL
MONCTL
nONFLG
nONTEN
MONTYP
MPRUN
HPVU
1866
1866
1866
86#
87#
88#
1733#
40A#
1733*
341 #
3665
1887#
1809#
41 2#
381 #
383#
8825
10194
10414
987#
406#
409*
691*
3#
4637*
3229
3319
4631
4642
10801*
1889*
12360
3037*
4679
82*
1890*
1888*
10803*
10802*
342*
1931*
1481*
1680
1681
1500*
629*
1799*
1798*
1800*
2013*
1005*
1733*
1879
1880
1880
1866
1866
1866
1866
SEQ 0500
350
3696
2072
8644
3979
2312
9025
10210
11404
419
410
9
4643
3236
3326
4649*
4647*
3036
<037
4693
1787
4387
344
1680*
1681*
1746
5077
1869
1869
1870
1870
419 3468 8630
598
3700
7333
2625
10017
10226
11472
3468
2274
26
4624
4622*
4653
649
4685
11402
3532
10032
10241
11509
8634
2615
1781
4627*
736
9470
3983
10047
10257
11943
8640
796
10647*
4978 5006
10061 10076
10273 10288
5041 5061 5109 5190 5281
10091 10105 10119 10133 10147
10304 10320 10335 10351 10367
5898 7335
10163 10179
10382 10398
3071 3124 3174
3057
4704
574
1782
1783
3072*
4712
3072
4723
3217
3262
3307
3650
3792
4386
4397
11228
11233
10800*
3126
3176
3219
3264
3309
3588
4391
4395
785 825
861
6902 6978 7854 11649
4802 4882 4945 5147
MRDF
MS. EOT
Mr CTW
12943
144*
12991*
ICO
5598
C777
5622
C/./.7
9070
cfia/.
9073
i;qq7
9433 9612 9628 9805 12601
Anno onon Q^'3K oiz<; o^n^ i?Ain
SEQ 0501
MRDF
12943
12991*
MS. EOT
144#
3740
5598
5622
MS.ETX
143#
3522
5377
5443
MSTAT
13009#
MTNCMD
3463
11353
11406
11447*
MTR
53*
2090
2091
2094
HVFLAG
11975#
11975
11978
12019
nVNUM
11984*
11984
12043
12052
MVRERR
999*
3448
5984
MWTF
12919
12972*
NEF
674*
7897
NEUT
631*
NMESG
6767
6775
11089*
NOOP
578*
603*
NOPNT
1469*
7304
NOT IMP
11692*
11695
NSG
677*
7903
11935
NVPORO
3410*
3416
NVP0R1
3413
3424*
NVPORT
3407*
3426
4807
4887
NXMU
1733*
OFFSET
586*
OPI
672*
7893
OPRSEL
1483*
6529
7312
8909
OPTIME
1901*
P
212
213
216
218
242
243
244
245
i
257
263
264
278
279
280
K ^
297
298
299
3' 3
317
318
319
956
957
958
959
;
2325
?375
2438
2489
i067
3114
3167
5835
5916
5920
5969
""1
P.FLG
P11HLT
PAG
PAGERR
PALERS
PAR
PARCLR
PARDIS
PAREAl
PAREA2
PAREA3
PAREA4
PAREA5
PAREA6
PAREA7
PAREA8
9070
5894
9073
5953
9433
6008
9612
9090
9628
9125
9805
9145
12601
9404
13410
11478
11519
12021
12034
12036
SEQ 0501
4950
5152
9357 9542 10675
9519
11881
7161*
12706
1733*
4614
1475*
445*
1733*
1733*
110*
111*
112*
113*
114*
115*
1788*
1789*
9522
11981
7161
13924*
2087
10684*
7309
1777
1778
1775
1776
1788
1789
9532
12053
7166
2088
9859
9540
12603
7228
219
246
265
281
300
323
960
2542
3210
5973
9807
12804
7230
227
247
268
287
301
324
1526
2593
3254
6371
9847
13122
228
248
269
288
302
328
1527
2637
3299
6540
9852
13167
229
249
270
289
303
330
1528
2687
3742
7231
9874
13181
236
250
271
290
304
950
1529
2734
4039
7687
10673
13230
237
251
271
291
308
951
1733*
2788
5410
7723
10684
238
252
273
292
309
952
1821
2836
5601
8951
11598
239
253
274
293
310
953
2084
2885
5625
8952
11627
240
254
275
294
311
954
2258
2932
5797
9361
11654
241
255
276
295
312
955
2298
2982
5831
9364
11790
4557 4587 4599 4622 10685
0489
PARENB
PARU
BACrkIT
SEQ 0502
1
PARENB
PARU
PASCNT
PATCH
PATRN
PCKACK
PCKER1
PCKER2
PCKER3
PCKER4
PCKER5
PCLEAR
PCLP
PCRFUL
PDISF
PDLOVU
PDSABL
PDTG1
PE
PENABL
PERIOD
PES
PFSTRT
PGCODE
PGMEND
PGMNAM
PI
PIOORQ
PIA
PIAOO
PIA01
PIA02
PICHNl
PICHN2
PICHN3
PICHN4
PICHN5
PICHN6
1733#
1733#
1803#
16595*
127#
2722
3074
4277
12485
581#
6995
6999
7001
7005
7062
991 #
471*
416*
1898*
1733*
1003#
7575
440#
1004*
1928*
658*
1755*
10695
80*
1780
260
984*
389*
1006*
1007*
1008*
1733*
1733*
1733*
1733*
1733*
1733*
SEQ 0502
2340
2749
4043
4279
12508
5028
6997
7066*
7075*
7080*
7067*
3452
8652
7577
7866
10746*
16601
10842*
261
418*
2361
2776
4116
4281
12547
5098
7057*
7076
3525
7584*
2390
2801
4118
4299
12573
7083
4011
2425
2823
412
520
2454
2849
4130
5309
2475
2504
2529
2558
2580
2651
2674
2872
2898
2920
2949
2970
2999
3020
4141
4143
4145
4164
4242
4244
4246
6160
5459
5476
5546
5560
5585
5615
2700
3039
4258
9786
6012
8107 8799 11991
266
267
PICHN7
PICHNA
1733*
1733*
PICLR
45
^7lH^
PILDEN
890*
916
3998
5938
12414
12451
12881
12885
PILVL
4803
4805
4883
4885
4946
4948
4979
5007
5282
8906*
8906
8916
11473
11510
13305
11944
13304
PIOENB
891*
3998
5938
12414
12451
13377
PIQFF
266
1733*
PI ON
45
1733*
PIP
7W
7852
PIVR
8738*
1
13305
5042
13377
5062
5110 5148 5150 5i91
'1
PKCFG
PKCFG1
Dl tCT
8853 8866*
8868*
SEQ 0503
1CU,7i»
1QiL7
L_.-
I 0490
PKCFG
PKCFG1
PL I ST
PLISTE
PLISTS
PLUS
PNTENB
PNTEXT
PNTFLG
PNTINH
PNTLPT
PNTNAM
PNTR
PNTSPC
PORAVL
POROUT
P0RPG1
PORTP
PPBAR
PPCK1
PPTCR
PPTCRl
PRDR
PR6DMP
PRGHLT
PRGSIZ
PRHG1
PRSTAT
PRTALL
PRTALS
PRTALU
PRTAS
PRTBL
PRTCC
PRTCH1
PRTCH2
PRTCHK
8853
8868#
1967#
1967
1968#
1933#
1897#
1776#
1896#
1899#
U70#
1775#
125#
4650
7573
12817
1900#
13320*
4810
5159
7545
980*
1111
li^bl
nib
8668*
7781
12696
101
920*
7508
6431
6868
8176
7483
7734
6756
7082
8392*
8428*
7737
8866*
1967
1969*
SEQ 0503
7305
4062
4651
8963
12820
4812
5161
7547
8768*
7464
8666*
9180
8758*
12700
103
7510
6461*
7425*
f180
7554
7757
7155
7764
9574
9575
8038*
4072
4652
8968
12825
4814
5177*
7557*
7471*
9571
13490*
105
7517*
8184
7559
7983*
7159*
8294*
11396
11397
4085
4657
8973
12826
4104 4175 4184 4216 4222 4563 4564 4566 4628 4649
4658 4659 6869 6914 7098 7342 7352 7506 7520 7543
8975 8976 8978 11190 11286 11288 11306 11311 12732 12793
4816 4890 4892 4894 4896 4953 4955 4957 4959 5155 5157
11395
106 10590* 11182
PRTCP1
8451*
9158
9220
PRTCPU
6844
8449*
11399
PRTCR
7730
7753
7828*
PRTCSO
8091*
8095
PRTCSR
7481
7552
7557
PRTCSX
8091
8096*
PRTDC
7081
776:
8281*
PRTDC1
l^lt
mi
PRTDT
7801
PRTDTG
7495
i^
PRTEC1
1161
PRTEC2
7768
8380*
8188
8173*
9525
11414
8081*
8192 8196 8201*
8539* 9517 9576
„_...;.^...,j
) 0491
PRTENG
PRTER
8093
7029
8124*
7068
7732
7755
7800
7885* 9516 9573
SEQ 0504
L._
PRTENG
PRTER
PRTER1
PRTER2
PRTER3
PRTEX
PRTFC
PRTHDR
PRTID
PRTLA
PRTLAR
PRTHB1
PRTMB2
PRTHBE
PRTHR
PRTWT
PRTOFF
PRTOT
PRTPCK
PRTP06
PRTPOR
PRTRHG
PRTSLV
PRTSN
PRTSR
PRTSR1
PRTTAP
PRTTC
PRTTCG
PRTTS
PRTTSG
PSBAR
PSHBAD
PSTAT
PSTAT1
PSTCR
PTAP1
PTBL1
PTBL2
PTBL2A
PTBL3
PTBLA
PTCHIA
PTCH2A
PTDEC
PTEC2A
PTim
PTIHE
PTINX
PT0T1
PT0T2
PVPAGI
PWFCLR
8093
8124#
7029
7068
7732
7755
7800
7885*
9516
9573
7069
7888#
9212
7070
7765
8303*
7766
8344#
7448
7454
7468
7474
7484
7514
7520*
7551
7735
801 0«
6429
6867
7798
7810*
9131
915?
11206
11387
7798#
7760
S2U7»
7482
7553
7558
8106*
8501 #
9161
9228
8515
8523#
6855
8499#
11400
11416
7756
7951 #
7733
7928*
7762
8259#
6420#
7252
9520
9841
9846
7432
7460#
7493
7527*
7426
7481 #
7492*
?738
???t'
7802
8579*
9518
9577
7028
7067
7731
7754
7799
7844*
9515
9572
7847#
9204
7430
7440*
7739
8049*
9537
9605
11412
13047
13099*
7758
8021*
9155
9536
9604
11411
13046
13068*
7779
8779*
5589
5596
5620
6366
9802
9814*
12597
7775
f623*
9514
9570
11394
8625«
9172
7778
3727*
7442
7444
7451*
7209#
7223
7212
7216
7223*
7176
7194
7203
7225*
7165
7226*
7162#
7227
8394*
9188
84304r
9196
tiW
6446
6449
6452
6463
6466
6469
6472
8383*
6500*
6506
6421
6480*
6784
9890
10689
6491
6497
6505*
6423#
6433
•'_
6426
t^Z2»
'
1994#
2073
" ■
1733#
SEQ 0504
7560 7581
7587
PURR
I PWSTAT
8748*
6444*
BflAOit
SEQ 0505
0492
PURR
PWSTAT
QTCFG
QUEST
R
R1
: RADIX
! RADLSC
RADLSP
RADRDT
RAECLR
RAEER
RANAD1
RANADR
RANBF1
RANeF2
RANBUF
RANCLR
RAND
RANDBS
RANLG
RANURD
RCLPA
RC«P1
RCHP2
RCWLST
RD1
RD2
RDAT
RDD
RDERS
RDEVER
RDF
RDHD
RDOP
RDPRST
RDR
READ
RECAL
REENTR
REGEN
REGN1
REGN2
RELIAB
RELSE
REPT
REPn
REPTU
87A8#
6A30
8855
1939#
2072#
2096#
2097#
2100#
1942#
194A#
1943#
3661
380#
10U7
10367
408«
3670#
3618
36A7#
36A8
3603
3768
2112
1777#
3572#
3617
38A«
3734
6359#
2564
11559*
11561
593*
6465
7219
8283
61 5#
594#
70*
580#
616*
11430
583#
1757#
3144
3756*
3759
1477*
^Wi
1733*
1855#
r
6444#
8869«
6596
9544
3677#
2625
10163
10382
419
3762
3660«
3653
3653#
364 5#
3785#
3561#
2223
3619
3631*
3981
6349*
6368
2757
11579
11563
455#
9107
7428
8296
5064
11577
6993
5284
11558#
11619
3190
3777
3771
2226
607#
SEQ 0505
6758
3532
10179
10398
8638
3979
10194
10414
5898 10017 10032 10047 10061
10210 10226 10241 10257 10273
11943
10076 10091
10288 10304
10105
10320
10119
10335
10133
10351
3578
3122
4978
3631
3172
5006
6359
3215 3260 3305
5041 5061 5109 5190 5281 11943
6197 6242 10922#
11567 11579*
463*
9109 10771*
7830 7845
8305 8346
5096 5193
9108
'985
7886 7930 7953
8372 8382 10637*
9106 11294 11296 11566
8012 8023 8040 8052 8249 8261
3234 3279 3324 3749*
3776*
7310
,„: J
0493
REQSET
REQST
1733*
m
TAIft W? TA7X
2417
^710
m
m
\kr\
m
w
A-^
V<^
276)
40A9
2943
4091
2993
4100
SEQ 0506
REQSET
1733#
REQST
2266
2306
2334
2384
3673
2417
2448
2498
2552
2603
2^05
3843
2756
3948
2761
29^1
2993
3536
3610
3647
3719
3758
3770
3802
4475
3835
406?
4091
4100
4148
4156
4208
4238
4320
4338
4375
4483
4516
4672
4765
4846
4935
4975
5137
5187
5220
5267
5278
5390
5535
5633
6315
5637
5665
5785
5848
5859
i
5901
6031
6071
6110
6148
6184
6229
7110
6274
7134
6402
7164
11202
6515
6519
6723
6731
6742
m
6933
10836
^m
}953
10838
7135
7202
9020
9523
11457
9782
10333
10834
10839
10840
10858*
1l22t
11371
11492
11532
11546
11560
11574
11704
11755
12621
RESQAV
1001#
3446
5978
RESRT1
1832#
I
RESRT2
1833#
RETURN
1764#
REVCOR
2566
2759
5293*
'
REVFLG
11763#
11763
11776
REU1
11457*
11483
REU2
11458
11460
11464
11467
11483*
REUFLG
11274
11346
11352
11407
11448*
11479
REUOP
67#
11481
REURCL
11428
11456*
RGPNT
7707
7711*
RH.DNE
2114
5947
2115
6628
3445
6629
3459
10778*
3467
11340
3483
13375
3496
13382
3508
3751
3752
4024
4025
5788
5935
RH.ERR
2116
2352
2402
2466
2516
2571
3438
3447
3449
3450
3461
3469
3472
3477
3485
3487
3502
3961
5814
5845
5847
5853
5854
5933
5937
5940
5986
5988
RH.ERS
RHO
5989
41 9#
366#
6630
5843
4406
10779*
11339
11342
13380
13384
13392
13395
13397
4415
4428
4437
4450
10462
10480
10498
10516
10534
10552
11145
RH1
RH10
RH2
367#
340#
368«
4407
4416
4429
4438
4451
10463
10481
10499
10517
10535
10553
11148
4408
4417
4430
4439
4452
10464
10482
10500
10518
10536
10554
11151
RH20
339#
354
RH20RG
7515
7518
7775*
RH3
:69«
409
4418
4431
4440
4453
10465
10483
10501
10519
10537
10555
11154
RH4
::70#
4410
4419
4432
4441
4454
10466
10484
10502
10520
10538
10556
11158
RH5
]7U
4411
4420
4433
4442
4455
10467
10485
10503
10521
10539
10557
11161
RH6
]72»
4412
4421
4434
4443
4456
10468
10486
10504
10522
10540
10558
11164
RH7
1710
4413
4422
4435
4444
4457
10469
10487
10505
10523
10541
10559
11167
RHCFG
6523
7236
8789*
RHCFG1
8797#
8832
RHCFG2
8803
8821
8832*
RHCLK
393#
4433
4406
4434
4407
4435
4408
4409
4410
4411
4412
4413
4428
4429
4430
4431
4432
RHCPU
152*
9219
RHDIAG
502*
4406
4407
4408
4409
4410
4411
4412
4413
4415
4416
4417
4418
4419
4420
4421
4422
4421
4429
4430
4431
4432
4433
4434
4435
4437
4438
4439
4440
4441
4442
4443
4444
9943
RHEBL
391*
4228
4262
RHETX
154*
9089
;.'■
RHID
10807*
RHIDW
148*
9096
9129
9130
RHINO
3440
3458*
RHINT
3349
3356
3363
3370
3377
3384
3391
3398
3424
3432*
SEQ 0506
RHIVR
RHMBE
eUPRAP
??
*
*
9925
9227
Q0A1
9961
n
SEQ 0507
RHIVR
505#
9925
9961
RHMBE
153#
9227
RHPBAR
507#
9981
RHPTCR
506#
9971
RHRDR
50A#
9951
RHSBAR
509#
9906
10000
RHSTAT
K9#
9103
9171
9179
RHSTCR
508,-
9916
9990
RHURD1
150#
9187
RHURD2
151#
9195
RHURR
503#
4458
9934
RM
895#
12891
RMEM
3129
3178
3222
3267
3312
3687*
RMEMSE
3128
3177
3221
3266
3311
3588*
RMR
683#
7915
RNBASE
3573
6351
10875*
RNDCH1
3608#
3624
RNDCH2
3611
3623*
RNDCHN
3133
3181
3225
3270
3315
3602*
RNDCLK
3137
3146
3828*
4565
4632
RNDCMP
3154
3197
3241
3286
3331
3713*
RNDCP1
371 7#
3738
RNDCP2
3720
3727
3737*
RNDNEM
3591#
3591
3687
3691
RNDNPS
3592*
3592
3688
3690
RNGCHK
6864
6885
7091
7330
7358
7720*
RNPNTR
3651
3793
3856
3859
3867
3868 10874*
ROMCOD
91 7#
12407
12444
RPOA
646
703
748
781
792
832 868
RP04D
766#
8560
RPOARG
7469
7472
7753*
RQINT
985#
RSOA
700
732
778
RS04D2
764#
^566
RS04D4
765#
8568
RSTART
1466#
7302
9839
RSTUSR
4571
4586*
4638
5779
RTNCTR
5B7M
RTP
1937#
RUNFLG
1804#
RUSR1
4593
4597*
RWND
6054f
11298
11300
11463
11475
11590
t
2122*
2154*
2230
SADR1
98#
1753
SADRIO
106#
1769
SADR11
107#
1770
SADR2
99#
1755
SADR3
100#
1757
=■
SA0R5
lOU
1818
SADR6
102#
1819
SADR7
103#
1766
SADR8
104#
1767
SEQ 0507
875
™J
SADR9
SAVCTL
SAVEP
SAVEPT
SAVRAR
SBERR
SBINIT
SCLKO
SCLK1
SCLK2
SCLK3
SCLKA
SCLK5
SCLK6
SCLK7
SCLKRN
SCLKX
SCMER1
SCMER2
SCMER3
SCMERA
SCMER5
SCMER?
SCONSW
SCOPE
SCRFUL
SOWN
SEARCH
SEEK
SEL1
SEL2
SELDV
SELDV1
SELDV2
SELERR
SELLAR
SELPNT
SELPRM
SELRH
SETCM1
SETCOM
SETCTL
SETLPB
SETMEM
SETPAR
SETPRM
SETUSR
SFSTRT
SINCYC
SIZE
105#
25AU
2258#
2885
9361
12008*
401*
1539
A067
A066
4126
4125
4152
4153
4096
4097
3670
5339
6520
6893
6903
6905
6981
6985
7028*
13193*
228*
414*
657*
588*
582*
5637*
5638
5679*
5680*
5682
5634
994*
5680
6522
2646
4749
3765
6380*
4514*
11199
4531*
2096
3259
1753*
995*
10846*
1768
2641
2084
2258
2932
9874
12008
3475
1763*
6386
6383
6392
6389
4200
4201
4310
4311
3674
10887*
7136
6901
6979
7034*
7043*
7048*
7039
13193
1856*
8648
7868
11895
5658
.>640
5686
5686*
5687*
8109
6891
8905*
2695
13292*
3878
6404
11427
11326*
11247
6514*
3304
12483
2690
6540
2298
2982
12029
6408
6409
6410
6411
5647
5644
5653
5650
1329
11221
10889*
7014*
7023*
7044
13225
2737
9540
2325
3032
10879*
10880*
10881*
10882*
5660
5661
5662
5663
3836
11223
2792
10673
2375
3067
2840
10684
2438
3114
2889
2489
3167
SEQ 0508
2542
3210
'593
5254
?637
5299
2687
5797
2734
5835
2788
5920
28Zt
5973
10883*
10884*
10885*
10886*
3851
4197 4306
4467
4476 4490 4498 4522 4993 5055
7049
5658*
10429
7094
2742
13268*
7209
2796
10833*
2844
2893 2941
2991
5632*
4607*
12549 12557
12.^77
SIZE1
SI7FRR
473*
10659*
SEQ 0509
L
n
"n
SIZE1
A73#
SIZERR
10659*
SKCHKI
5586*
5590
SKCHIC2
5594*
5597
SKPCCW
4692
4699
4722
5323
10934*
SKPCHK
2%:
5579*
SKPLD
2957
5546*
SKPPRG
2935*
2935
2985
9450
9836
SLA
SLASH
SLOOP
653*
1940*
2123
7876
2127
2131
2135
2139
2143
2147 2151 2155 2159 2163
2167 2171
2179
2183
2187
2191
2195
2199
2203 2211 2215 2242*
SLPRM2
8912*
1914
SLPRM3
8915
919*
8923
SLPRMA
8922*
927
SLPRM5
8924
928*
SLPRM6
8931
936*
smo
2044*
SMESG
11016*
11268
SPACE
1929*
SPACM
11431
11491*
SPARE 1
996*
SPARE2
1002*
SPBAKR
610*
11302
11500
11725
11741
11772
SPC1
11492*
11523
SPC2
11493
11495
11501
11504
11523*
SPCBT
920
12708
13704*
13954
SPCOP
68*
11521
SPCTS^
75*
2245
7315
SPFWDR
609*
11304
11498
11775
11867
SPLIT
10847*
SR11
884*
916
SRD
3084
3145
3191
3235
3280
3325
4838*
SRD1
4844*
;910
SRD1A
4866
4880*
SRD1B
4868
4903*
SRDDV
4873
5054*
5138
5235
5268
SROO
2399
2513
2710
2908
2958
5122*
6290 6332 11573
SRDOA
5131
5145*
SRDOB
5133
5168*
5263
SRDR
5212*
SRDR1
5216*
5249
SRDRA
5230
5242*
SRDRO
2568
2766
5257*
6204
6250
' ' ,
SRDRP
5057
5089*
SRORX
5219
5221
5236
5238
5244
5248*
SRDX
4847
4854
4874
4876
4899
4905
4909*
SRTBLK
13584
13643*
SRTDDT
1759*
10608
11698
SRTX11
12626
12632*
SSC
659*
7864
11350
11595
11624
START
10',
1747
2071*
START 1
17u6*
SEQ 0509
2175
V,
%\
%\
$1
$V
$v
%'i
$i
%:
$i
n
x/
x^
START2
START3
1767*
1768*
SEQ 0510
XI
L
1
START2
1767#
START3
1768#
STARTS
1769#
STARTS
1770#
STARTA
1762
2108#
9844
10676
STARTZ
920
13953#
STCHNl
3908
3935*
STCKER
9083
9091
9126
9146
STLPB1
4515#
4523
STLPB2
4517
4519
4523*
STOP
387*
STORE
475#
9916
STPRMO
6536*
6549
STPRMl
102
223^
5688
6515
6786
6797
6835
6845
7157
7239
7253
7274
12480
12533
12831
12839
13692
13695
13698
13701
STRACE
2077#
2077
2233
6792
STRAP
2098
4054#
6619
STRD
2612
4875
5139
5187*
STRDF
4903
5168
5242
12941*
STRDR
5237
5269
5278*
STREV
2858
5491*
STREV1
5505*
STSKP
2956
5314*
STWRD1
3901
3930
4698
5334
STURD2
3905
3933
4706
5300
STURT
4795
4937
4975*
STUTF
4323
4966
12917*
STX.DT
142#
5945
9079
13400
STX.DV
141#
3493
5866
9077
STX.RH
140#
3506
5880
5994
STZBK1
9072M
J082
9117
9165
STZBRK
9062
9070*
STZDT
9080
9142*
STZDV
9078
9123*
STZRH
9076
9089*
STZRH1
STZRO
SUBLNK
SUBNM
SUBPNT
SVNTRK
SUCER
SUPNT
SUPSAV
SWPTAB
SWRT
SURTI
SW^TIA
SWRT1B
SWRTO
SEQ 0510
W
9436 9635 10614*
6540*
6580
6590
6658
6667
6691
6704
6757
6768
6776
6856
6873
6875
6918
6920
6961
7102
7104
7130
7138
7374
7384
9372
9526
9531
9543
9857
10678
11440
12473
12842
12845
12848
12851
12854
12857
12860
12863
12866
13689
6793 6795 8997 9371 9860 9889 9892
5363
5336
5372
5367
10876*
5375 10877*
.D
.D
9075 9390
9102*
3006
1501*
9896*
9897*
806*
405*
7261
7258*
2050*
3049
4763*
4786
4788
2349
9136
5309*
1763
419
7276*
7258
3136
4830
4800*
4823*
2463
3468
7299
7263
3184
2662
8632
7271
3228
2811
3273
2860
3318
3008
4757*
4920* 6046 6088 11545
I
SURIO^
SURTDB
4929
4931
4943*
4966*
SEQ 0511
! .L
i -I
.J
L
SURiOM
A929
4943*
SURTOB
A931
4966*
SURTRP
A995
5019*
SURTX
4766
4773
4794 4796
SUTAB
7262
7301*
SUTDV
4793
4936
4992*
SUTEXR
1778#
SUTLEN
7259
7299*
SXABT
921
12637
13957* 14146
SXALO
K015#
14025
14042
SXASIZ
921#
12637
SXAZ
921
14145*
SYS.C
7003#
7003
11892
SYSCLK
446A#
4469
4480 11432
SYSCm
11284*
11312
SYSCMD
11269
11281*
SYSCME
11310
11321*
SYSC«X
11308
11316*
SYSEND
11450#
SYSEXE
11275
11425*
11438
SYSEXR
1751*
SYSG1
11201*
11270
SYSG10
11249
11251
11268*
SYSGA
11209*
11215
11217
SYSG5
11225*
11234
SYSG6
11238*
SYSG7
11250*
SYSG8
11255*
11259
SYSG9
11262*
11266
SYSGEN
6573
11190*
SYSGX
11203
11270*
11315 11324
SYSLMT
11362
11375
11449*
SYSPRG
3544
11305
11318 11329
SYSRH
4468
•490*
SYSRHW
4492
4505*
TOILI
2266*
2291
T01L2
2269
2284*
T01L3
2267
2280
2291*
T02L1
2305*
2318
T02L2
2307
2318*
T03A
2340*
2362
T03B
2344*
2361
T03L1
2332*
2368
T03L2
2335
2367*
T04A
2390*
2426
T04B
2394*
2425
T04L1
2382*
2431
T04L2
2385
2430*
T05A
2454*
2476
T05B
2458*
2475
T05L1
2446*
2482
T05L2
2449
2481*
T06A
2504*
2530
SEQ 0511
4819 4825 4829*
11445* 11462 11497 11516 11537 11565
T06B
IQ6L1
>508*
>496*
lOI.
SEQ 0512
L_.
T06B
T06L1
T06L2
T07A
T07B
T07L1
T07L2
T10L1
T10L2
TllA
TUB
T11L
T12A
T12B
T12L
T13A
T13B
T13L
T13X
TUA
TUL
nsA
T15B
T15L
TIbA
T16B
T16L
T17A
T17B
T17L
T20A
T20B
T20L
T21L
T22L
T23L1
T23L2
T23X
T2AL1
T24L2
T24X
T25L1
T25L2
T25X
T26L1
T26L2
T26X
T27L1
T27L2
T27X
TAB
TAPECC
TAPEDC
2508#
2496#
2A99
2558#
2562#
25A9#
2553
2602#
260A
2651 #
2655#
26A6#
2700#
2704#
2695#
2749#
2753#
27A2#
27AA
2805#
2796#
2849#
2853#
28A4«
2898#
2902#
2893«
29A9#
2953*
29A1#
2999*
3003#
2991*
3045*
3080*
3129*
3133*
3130
3178*
3181*
3179
3222*
3225*
3223
3267*
3270*
3268
3312*
3315*
3313
1930*
5012
3041
2529
2535
2534*
2581
2580
2586
2585*
2630
2606 2630*
2675
2674
2680
2723
2722
2727
2in
lilt
2781
2781*
2823 2824
2829
2873
2872
2878
2921
2920
2925
2971
2970
2975
3021
3020
3025
<058
3093
3158
3157
3160*
3201
3200
3203*
3245
3244
3247*
3290
3289
3^92*
3335
3334
3337*
SEQ 0512
5068
3042
6120
3043
6131 10871* 11612 11684 11728
3076 3077 3078 3119 3120
11770 11792 11805 11841
3121 3811 3813 3821
11874 11877
4044 5669
TAPETC
5670
4996
^^i
567
697
m\
1Q872* 1T§78
n«
10870* 11768 11838 11847
SEQ 0513
5670
5671
5672
6132
10872*
6161
10870*
11768
11838
11847
TAPETC
4996
5058
6973
11678
10528
TBLERR
10461
10474
10492
10510
10546
10564
10627*
TBT1
12487*
12508
TCDEN
81 6#
TCEP
81 4#
TCFCS
81 9#
TCFSC
81 5#
TCIAUE
818/r
TCIRLE
81 7#
TCSSC
81 3#
TCWRT
695#
TEMP
3800
3815
3945*
3945
3964
3967
11858
11882
12396
12417
TEMPI
12359*
12359
12363
TESTPC
1805#
TICKS
1808#
TIM
52#
11360
4567
11374
4572
4634
4639
5747
5753
5768
5771
5815
TIMCHK
11369#
11433
TIMCK1
11370#
11378
TIMCK2
11372
11378*
TIMER
5716
5719
5721
5723
5725
5727
5729
5732*
TIMH
4567
4568
4572
4573
4634
4635
4639
4640
5747
5748
5771
5772
5807*
5815
5816
5828
5829
5913
5914
5966
11361
11374
11376
TIML
5808#
6484
TIMOP
11360*
11482
11522
11550
11578
TIMOT
5796
5834
5919
5972
11387*
TIMOTX
11390
11411*
TIMOUT
11377
11385*
TMTBLl
6403
6406*
T010DB
897#
13123
T010DN
901*
5925
13178
13386
T010ER
899#
>925
5931
13178
13182
13383
T010MK
91 5#
T011DB
885#
12368
12376
12409
12446
12766
12930
12954
13119
13201
T011DN
900#
5925
13164
13389
T011ER
898#
5925
5931
13164
13168
13383
TOTALS
1467#
7303
9845
TOTRD
4860
5124
5223
5258
6462
10768*
TOTWRT
4779
4923
6445
9037
9038
10767*
TPCFG
8851
8880*
TPSLV
8884#
8891
TRA
442#
10348
10144
10364
10160
10379
10176
10395
10191
10411
10207
10223
10238
10254
10270
TRACE
9861
9881*
TRMTBL
2097
6400*
6406
6618
1
TRPENB
92#
TST01
2122
2258*
6635
TST02
2126
2298*
2325*
6636
6637
TST03
2130
TST04
2134
2375*
6638
TST05
2138
2438*
6639
SEQ 0513
12421 12433 12454 12458
5828 5913 5966 6482
5753 5754 5768 5769
5967 6482 6483 11360
13219 13243 13650 13680
10285 10301 10317 10332
r
TST06
TST07
SEQ 0514
TST06
2U2
2489*
6640
TST07
2U6
2542*
6641
TST10
2150
2593*
6642
TSTll
2154
2637*
6643
TST12
2158
2687*
6644
TST13
2162
2734*
6645
TSTU
2166
2788*
6646
TST15
2170
2836*
6647
TST16
21 7A
2885*
6648
TST17
2178
6649
TST20
2182
2982*
6650
■*
TST21
2186
3032*
6651
TST22
2190
3067*
6652
TST23
21 9A
3114*
6653
TST24
2198
3167*
6654
TST25
2202
3210*
6655
TST26
2210
3254*
6656
TST27
22U
3299*
6657
TSTBT
12485*
TSTDIS
2078
2079
2080
6690
6699
9832
9874*
TSTEBF
992#
TSTENO
2227
2233*
TSTEND
220B
2222*
TSTLP
2111#
2111
6625*
6625
9534
9851
TSTNM
2108
2248
3724
3953
4770
4851
5395 5792 6613 6634
9527
9553
9587
9617
9837*
9837
9862 9886
TTBF
55#
2090
TTBN
54#
2094
TTNBRF
1988#
TTYFIL
1904*
TTYSPD
1905*
TU16
35U
706
803
TU16D
768#
8564
TU16RG
7449
'452
7730*
TUA5D
767M
8562
TX17
2944
2975*
TX20
2994
3025*
TX21
3048
3060*
TX22
::083
3095*
TXTINH
1478#
ULOAD
579#
604*
UNS
671#
5081
7891
11661
UPOC
3080
3135
3183
3227
3272
3317 3800*
UPDC1
3802*
3814
UPDC2
3803
3806
3814*
UPDCRU
3810
3812
3819*
UPDCX
381 5#
3822
UPDVPT
5202#
5458
5475
12545
USER
1795*
USERF
1733#
USRAS6
1785
i .
USRCRF
1914*
USRLFF
1913*
SEQ 0514
6686 9051 9416 9495
UUODIS
UUOEXT
1867*
18i3*
SEQ 0515
UUODIS
UUOEXT
UUORTN
UUOSKP
VV
U100US
uions
U10US
U150MS
W1MS
U1SEC
U20US
U300MS
WAOMS
WA50MS
W50US
U600nS
WCMDI
ucnD2
ucnD3
WCMD4
UCMD5
ucnD6
UCMD?
ucnos
UCMDN
UCNR1
UCNR1P
UCNRA
WFBCLR
WFBSET
UREG
WRITE
URL
URLD1
yRLDRG
URT1
URT2
URTERS
WRTOP
WRTPHS
UTCHD
UTCHHD
WTCKF
UTCKR
UTO
UTDN1
UTDNE
UTDNEO
UTDNX
UT0NX1
UTDNX2
WTDXU
1867#
1823#
182A«
1821#
63A#
5724#
5701
4497
5708
5722#
5697*
4831
5698
2613
5707#
5726#
5697
5828#
5849
5860
5876
5855
5824
5822
5990
2351
5359
5743
5750*
13120
13132*
4083
11429
630*
4123
4095
11531*
11533
6451
69*
3854*
589*
590*
611*
612*
591*
5771*
2664
2465
5773
5783*
5786
4574
SEQ 0515
6998
5702
5730*
5710
12397
4911
5704
5699
5704*
5842
5854*
5880*
5882*
5898*
5913*
5966*
6012*
2401
5742*
5760*
5755
13148*
13165
4121
11530*
r904
4372*
'.309
11551
11535
9105
11549
3854
5775
2712
2515
5780*
5801
5789
4641
5720*
5712*
12398
4938
5705
5700
12399
5140
5707
5712
12400 12401
5250 5270
5710*
5713 5714
12405 12434
5728*
5718*
12435 12436 12437 12438 12442
12641 12712
5927
5980
5814* 5865
13179
4273 4450
7856
5656 5664
11551*
11539
10769*
4757
4838
4451 4452 4453 4454
10888*
4920 5122 5213 5266
4455
4456 4457 4458*
6107
6137 6145 9779 9797 11759
2768
2570
5800*
5779*
2813
5766*
2862 2910 2960 3010 3052 3087 3139 3148 5767*
WTF 61 3# 4981 5009
UTFLIG 614*
4 4^ a4
5026 9104 11292 11538
SEQ 0516
UTF
UTFLIG
UTFM
UTHD
UTRIES
XECLR
XFR
XX
ZRCHK1
ZROCHK
ZROFIL
ZROLD
ZROSUn
S$$P
(snuuo
SSOUTE
$STAX1
S$TAX2
SSTOGG
$$UUO
SIODN
$11DB0
$11 DN
(AC CO
$ARG2
SB
61 3#
6U«
608#
592#
6AA8
382#
A72#
9063#
561 6#
3015
A3#
3007
6521
9532#
2019*
2025*
2037*
2038*
2031#
2008*
958
956
957
18A6«
12128*
12138*
12151*
1216A*
12177*
12195*
12211*
12221*
12231*
122A5*
12261*
12271*
12286*
12299*
123K*
12330*
12337*
12128*
12138*
12151*
12164*
12177*
12195*
12211*
12221*
12231*
12245*
12261*
12271*
4981
11681
10770*
2625
9063
5621
5608*
5310
5560*
7129
9532
5009 5026 9104 11292 11538
SEQ 0516
1212r
1213a
12151
12164
12177
12195
12211
12221
1?231
ii245
12261
12271
12286
12299
12314
12330
12337
12128
12138
12151
12164
12177
12195
12211
12221
12231
12245
12261
^227^
11937
3532
9834
5311
9037*
9854
12129*
12139*
12155*
12165*
12178*
12196*
12212*
]2222M
12232*
12249*
12262*
^2272»
)22B7»
12300*
12318*
12331*
12338*
12129*
12139*
12155*
12165*
12178*
12196*
12212*
4978
5312
9842
2074 13194 13227
13178*
13119*
13164*
12129
12139
12155
12165
12178
12196
12212
^2222
12232
12249
12262
^2272
12287
12300
12318
12331
12338
12129
12139
12155
12165
12178
12196
12212
^2222
12232
12249
12262
)2272
5006 5041 5061 5109 5190 5281 5898 11472 11509 11943
5313
12130*
12143*
12156*
12169*
12179*
12197*
12216*
12223*
12233*
12250*
12263*
12276*
12288*
12306*
12319*
12332*
12339*
12130*
12143*
12156*
12169*
12179*
12197*
12216*
12223*
12130
12143
12156
12169
12179
12197
12216
12223
12233
12250
12263
12276
12288
12306
12319
12332
12339
12130
12143
12156
12169
12179
12197
12216
m
12250
12263
12276
12131*
12144*
12157*
12170*
12184*
12201*
12217*
12224*
12241*
12254*
12264*
^22770
12292*
12307*
12326*
12333*
12340*
1213U
12144*
12157*
12170*
12184*
12201*
12217*
12131
12144
12157
12170
12184
12201
12217
12224
12241
12254
12264
12277
12292
12307
12333
12340
12131
12144
12157
12170
12184
12201
12217
12224
12241
12254
12264
]2277
12132*
12145*
12158*
12171*
12185*
12202*
12218*
12225*
12242*
12255*
12265*
12278*
12293*
12311*
12327*
12334*
12341*
12132*
12145*
12158*
12171*
12185*
12202*
12218*
12225*
12242*
12255*
12265*
12278*
12132
12145
12158
12171
12185
12202
12218
12225
12242
12255
12265
12278
12293
12311
12327
12334
12341
12132
12145
12158
12171
12185
12202
12218
12225
12255
12265
12278
12133*
12146*
12162*
12172*
12193*
12206*
12219*
12229*
12243*
12259*
12266*
12279*
12294*
12312*
12328*
12335*
12342*
12133*
12146*
12162*
12172*
12193*
12206*
12219*
12229*
12243*
12259*
12279*
12133
12146
12162
12172
12193
12206
12219
12229
12243
12259
12266
12279
12294
12312
12328
12335
12342
12133
12146
12162
12172
12193
12206
12219
12229
12243
12259
12137*
12150*
12163*
12176*
12194*
12207*
12220*
12230*
12244*
12260*
12267*
12285*
12295*
12313*
12329*
12336*
12137*
12150*
12163*
12176*
12194*
12207*
12220*
12230*
12244*
12260*
12267*
12285*
12137
12150
12163
12176
12194
1*^207
12220
12230
12244
12260
12267
12285
12295
12313
12329
12336
12137
12150
12163
12176
12194
12^07
12220
12230
12244
12260
12267
12285
12286* 12286 12287* 12287 12288* 12288
12299* 12299 lljOO* iJJOQ lS06* Hm
• •%9«<a. a^V^^ «^«<S^ «^9«a 4nv«nM 4^V<n
>95* 12295
113# l|313
SEQ 0517
I
L-
IQ 0504
SBEND1
$BEND2
$BT11
$BT11X
$CHER1
$CHER2
ICHERR
SCHERX
SCHR
12286*
12299*
12314*
12330*
12337*
1816*
1817*
955
12365*
3949
3948*
271
3962
12128*
12138*
12151*
12164*
12177*
12195*
12211*
12221*
12231*
12245*
12261*
12271*
12286*
12299*
12314*
12330*
12337*
tCHRIN
1907*
SCLBUF
254
SCLERR
272
SCLJMP
277
SCLOTj
275
SCMDSR
950
$CR1
6272*
ICR2
6275
SCRDA
270
$CRDRA
278
SCRDRZ
279
tCRDZ
281
$CRLF
1909*
KRR1
6182*
$CRR2
6185
SCRRZI
6227*
SCRRZ2
6230
$CRZ^
6313*
$CRZ2
6316
SCUl
6028*
6032
SCU2
SCURTA
269
280
SCWRTZ
12286
12299
12314
12330
12337
12359*
12709
3956
3963
3945*
3967*
12128
12138
12151
12164
12177
12195
12211
12221
12231
12245
12261
12271
12286
12299
12314
12330
12337
5527*
4024*
362*
4029*
13191*
6295
6277
6267*
6175*
6221*
6307*
6209
6187
6255
6232
6337
6318
6051
6034
6023*
6062*
12287*
12300*
12318*
12331*
12338*
3963*
12129*
12139*
12155*
12165*
12178*
12196*
12212*
12222*
12232*
12249*
12262*
12272*
12287*
12300*
12318*
12331*
12338*
6189
6234
6320
6036
12287
12300
12318
12331
12338
12129
12139
12155
12165
12178
12196
12212
12222
12232
12249
12262
12272
12287
12300
12318
12331
12338
6279 6294*
6208*
6254*
6336*
6050*
12288*
12306*
12319*
12332*
12339*
12288 12292* 12292
12306 12307* 12307
12319 12326* 1232
12332 12333* 1232
12339 12340* 12340
12293* 12293
12311* 12311
12327* 12327
12334* 12334
12341* 12341
12294*
12312*
12328*
12335*
12342*
12294
12312
12328
12335
12342
12295* 12295
12313* 12313
12329* 12329
12336* 12336
SEO 0517
12130*
12130
12131*
12131
12132*
12132
12133*
12133
12137*
12137
12143*
12143
12144*
12144
12145*
12145
12146*
12146
12150*
12150
12156*
12156
12157*
12157
12158*
12158
12162*
12162
12163*
12163
12169*
12169
12170*
12170
12171*
12171
12172*
12172
12176*
12176
12179*
12179
12184*
12184
12185*
12185
12193*
12193
12194*
12194
12197*
12197
12201*
12201
12202*
12202
12206*
12206
12207*
12207
12216*
12216
12217*
12217
12218
12219*
12219
12220*
12220
12223
12224*
12224
12225*
12225
12229*
12229
12230*
12230
12233*
12233
12241*
12241
12242*
12243*
12243
12244<f
12244
12250*
12250
12254*
12254
12255*
12255
12259*
12259
12260*
12260
12263*
12263
12264*
12264
12265*
12278*
12265
12266*
1??66
12267*
12267
12276*
12276
^ 22770
12277
12279*
12279
12285*
12285
12288
12292*
12292
12293*
12293
12294*
12294
12295*
12295
12306*
123116
12307*
12307
12311*
12311
12: 12*
12312
12313*
12313
12319*
123 9
12326*
12333*
]m
12327*
12327
12335*
12342*
12328
12329*
12329
12332*
123:2
12334*
12334
12335
12336*
12336
12339*
12339
12340*
12340
12341*
12341
12342
I .RS
; .RS
.RS
.RS
j.RS
.RS
I.R1
.Rl
.R)l
.R)(
.UC
i .U(
i '^^
.ZE
Q 0505
ICU21
ICWZ2
m[
6093
6074
6076 6092*
f-
SEQ 0518
BOC
BSR
3 0505
iCU21
6066#
6072
6093
$CWZ2
6074
6076
6092*
SDDT
926«
$DEVCH
1733*
JDHPI 1
95A
12396*
$DOCnD
951
13214*
$DRCL
11619*
11889*
SDSEK
324
iOSKUP
W.
SDTCHR
SDTCI
931 #
toTCLK
930#
$OTCND
934#
13198
13216
13240
«>TCWP
227
9776*
$0TF11
933#
13228
13249
$DTFLG
929#
3975
13200
13203
13218
13221 13242 13245
iDTIN
3998*
WTMTD
938#
»DTMTI
939#
SDTOPR
936#
12902
SDTSEQ
935*
SDTSUR
$DIT11
940#
932*
1733*
' ■
SOVCHl
tOVOFF
IDVREG
1903*
11655*
SDVUT
11647*
11652
11685
11729
11898
SEBLA
4074
4107
4132
4165
4194 4301 4336*
SEMODE
1784*
$EnF
2363
2477
2676
2825
2874 11704*
$EXEn
953
13258*
SEXHII
952
13238*
,,■ - - ' -
$r1
9430*
0435
9444
9486
■ i ■■ ■ /
SFIA
9434
J437*
tr?
9432
9440*
$F3
9465*
9485
$FALn
$FALT2
$FALT3
84
9389*
9413*
9612*
$FALU
9492*
$FALT5
88
9550*
$FALT6
89
9584*
$FAULT
83
9048*
9407
$FFF
1911*
$FLT3
9631
9637*
$FLT3A
9646
9655*
$FLT38
9633
9676*
$FLT3C
9709
9719*
$FLT3D
9720
9732*
9755
9767
9770
$FLT3E
SFLT3F
$FLT3G
9704
9744
9702
9743*
9754*
9769*
1
$F!.T?Z
9627*
9634
9658
9670
9739
*■ '
SEO 0518
—.-.-3
0 0506 I
$FLT4
$FLT4A
• r I T/ B
9512*
9519*
9538
SEQ 0519
r"
$FLTA
SFLTAA
IFLTAB
$FLKC
951 2#
951 9#
9513
9529
9538
9536#
95A0#
SEQ 0519
SGARG
12128*
12128
12129*
12138*
12138
12139*
12151*
12151
12155*
121 64*
12164
12165*
12177*
12177
12178*
12195*
12195
12196*
12211*
12211
12212*
12221*
12221
12222*
12231*
12231
12232*
122A5*
12245
12249*
12261*
12261
12262*
12271*
12271
12272*
12286*
12286
12287*
12299*
12299
12300*
123K*
12314
12318*
12330*
12330
12331*
12337*
12337
12338*
SGTNM
268
5537*
$GTNM1
5535*
5540
SIBUF
1959*
SINEXT
1961*
SINNM
1960*
IITRHL
1827*
SITRX1
1823*
4055
SLDBUF
265
5518*
SLDRAR
330
10448*
SLJMP
252
4348*
SLJNPA
251
4386*
SLPAPE
K152
$LWRR
253
318*
4327
SLURR1
4321
4327*
(HHAP
1787*
SHODVL
1782*
snoDvu
1783*
SOBUF
1950*
SONETn
1810*
2075
$OUTEX
1952*
SOUTNM
1951*
SPAPER
1733
IPARER
1834*
$PEF
6124
11844
11857*
$PEF1
11861*
11878
SPNAME
1780*
fPOPF
276
9379*
SPORIN
274
3977
4011*
$PSHER
1838*
$PVER
1781*
$RA
4244*
4256
SRAS
292
10204*
12129
12139
12155
12165
12178
12196
12212
^2222
12232
12249
12262
^2272
12287
12300
12318
12331
12338
12130*
12143*
12156*
12169*
12179*
12197*
12216*
12223*
12233*
12250*
12263*
12276*
12288*
12306*
12319*
12332*
12339*
12130
12143
12156
12169
12179
12197
12216
12223
12233
12250
12263
12276
12288
12306
12319
12332
12339
12131*
12144*
12157*
12170*
12184*
12201*
12217*
12224*
12241*
12254*
12264*
^22770
12292*
12307*
12326*
12333*
12340*
12131
12144
12157
12170
12184
12201
12217
12224
12241
12254
12264
^2277
12292
12307
12326
12333
12340
12132*
12132
12133*
12133
12137*
12137
12145*
12145
12146*
12146
12150*
12150
12158*
12158
12162*
12172*
12162
12172
12163*
12176*
12163
12171*
12171
12176
12185*
12115
12193*
12193
12194*
12194
12202*
122)2
12206*
12206
^2207»
1220*^
12218
12219*
12219
12220*
12230*
12220
12225*
12225
12229*
}2229
12230
12242*
12243*
12243
12244*
12244
12255*
12255
12259*
12259
12260*
12260
12265*
12265
12266*
12266
12267*
12267
12278*
12278
12279*
12279
12215*
12235
12293*
12293
12294*
12294
12295*
12313*
12295
12311*
12311
12312*
12312
12313
12327*
123§5*
12328
12329*
12329
12334*
12334
12335
12336*
12336
12341*
12341
12342*
12342
,ERU
'exe
FAT
FAU
FAl
FAL
FAU
FAli
FAL
FAl
FIE
FHS
FH!
FH!
$RB
IRC
1 Aiy
n
SEQ 0520
FHS
SRB
A118#
4128
IRC
AU3#
4162
$RCC
303
10345*
SRCK
296
10251*
SRCKB
256
4114*
$RCLK
2A8
4238*
$RCLKC
4139*
$RCR
288
10141*
SRDC
302
10329*
SRDLAR
328
10429*
$RDS
10157*
$RDT
287
10267*
$REBL
26U
4260*
SRECI
300
10392*
$REC2
301
10408*
SRERI
290
10173*
$RER2
298
10298*
$RER3
299
10376*
$REU
3819
6980 1 1 587*
11818
$RFC
29A
10220*
SRHIN
273
3974*
$RIVR
2A5
9961*
$RLA
297
10282*
SRMT
291
1C188*
SROFF
304
10314*
SRPBAR
24A
9981*
SRPTCR
243
9971*
SRRDR
246
9951*
SRSBAR
242
10000*
$RSN
293
10361*
SRSRTX
1830#
SRSRTY
1831#
SRSTCR
241
O990*
$RTC
295
1 J235*
$SA
4279*
4294
SSB
4284
'♦291*
$SCA
9840
9845*
$SC0P1
984 7#
SSCOPE
228
9830*
SSEBL
4301*
SSKCLK
2959
4272*
$SPAG1
1850#
SSPBSR
11735#
11941
SSTART
1747*
SSTCHN
229
3877*
SSTD
925#
SSTOAT
263
5458*
SSTDEV
264
5475*
$STL
927#
$STLP
257
4039*
$STH
928#
tSVAPR
1848#
SSVPAG
1849#
11849
I
SEQ 0520
FMS
FRD
FRD
FRE
FSE
GET
GET
GET
GO
SSVPI
18A7#
tSVUPC
1853#
9058
9423
9508
IWt
9600 9624
9590 9620
ssvuuo
1852*
9054
9419
9498
SSUCHO
9358
9371*
$SWCH<
5798
5836
5921
5974
9064
9352* 9438
$TABF
1910*
STBSR
319
11719*
$TP
11755*
$TP1
11791*
11801
$TPB
11810*
$TPB1
11771
11812*
11820
$TPB2
3774
11825*
$TPE
11789
11799*
STPORI
6U8*
6165
$TP0R2
6U9
6152
6156
6165*
STPOS
6062
6105*
STPOSI
6110*
6133
$TP0S2
6111
6114
6118
6122
6133*
STPOSR
6144*
6175
6221
6307
$TPR
11773
11776*
15TPU
4045
6163
11754*
$TPW
11760
11838*
$TPW1
11840
11847*
$TPX
11793*
11806
$TPZ
11767
11769
11818*
STREW
317
11586*
STTCHR
1906*
STWCNT
1902*
$TYPNB
1908*
SUMODE
1785*
$UORTX
1825*
SURCLK
4291
4296
4306*
$USRHL
1829*
SUUOER
1826*
'867
SUWCLK
4186
4191
4197*
$VTF
1912*
SUA
4218*
4224
SUAS
313
10055*
SWB1
4066*
4073
SWB2
4070
4073*
SWC1
4089*
4106
SWC2
4101
4106*
SWCKB
255
4062*
SWCLK
247
4208*
SWCLKC
249
4082*
SUCR
309
10011*
SUDC
312
10113*
SWDIAG
240
9943*
SWEBL
3844
4211
4226*
4339
4484
SWERI
10026*
SWER3
10127*
SUFC
311
10070*
SWIVR
238
9925*
SEQ 0521
9578 9606 9629
SUMR
tUHFF
10041*
inriQQ*
SEQ 0522
SEQ 0509
sunR
$UOFF
SUSBAR
SUSTCR
$UTC
$UTM
SWWRR
$ZA
$ZB
$ZCLK
$ZEBL
XACTFL
%ACTUL
XADDR
ZCOREC
XCORFL
XDISCR
XERHI1
XERHI2
XERHI3
XML
10041*
310
10099*
237
9905*
236
9915*
308
10085*
.
318
11678*
239
9934*
A1 77#
4189
4178
4186*
3009
4172*
4194*
1859#
1860#
12128#
12128
12129
12129*
12130
12130*
12131
12131*
12132
12132*
12133
12133*
12137
12137*
12138
12138*
12139
12139*
12143
12143*
12144
12144*
12145
12145*
12146
12146*
12150
12150*
12151
12151*
12155
12155*
12156
12156*
12157
12157*
12158
12158*
12162
12162*
12163
12163*
12164
12164*
12165
12165*
12169
12169*
12170
12170*
12171
12171*
12172
12172*
12176
12176*
12177
12177*
12178
12178*
12179
12179*
12184
12184*
12185
12185*
12193*
12193
12194
12194*
12195
12195*
12196
12196*
12197
12197*
12201
12201*
12202
12202*
12206
12206*
12207
12207*
12211
12211*
12212
12212*
12216
12216*
12217
12217*
12218
12218*
12219
12219*
12220
12220*
12221
12221*
12222
12223
12223*
12224
12224*
12225*
12229
12229*
12230
12230*
12231
12231*
12232
1 2232*
12233
12233*
12241*
12241
12242
12242*
12243
12243*
12244
12244*
12245
12245*
12249
12249*
12250*
12254
12254*
12255
12255*
12259
12259*
12260
12260*
12261
12261*
12262
12262*
12263
12263*
12264
12264*
12265
12265*
12266
12266*
12267
12267*
12271
12271*
12272
12272*
12276
12276*
\2277
12277*
12278
12278*
\227^
12279*
12285*
12285
12286
12286*
12287
12287*
12288
12288*
12292
12292*
12293*
12294
12294*
12295
12295*
12299
12299*
12300
12300*
12306*
12306
12307
12307*
12311
12311*
12312
12312*
12313
12313*
12314
12314*
12318
12318*
12319
12319*
12326*
12326
12327
12327*
12328
12328*
12329
12329*
12330
12330*
12331
12331*
12332*
12333
12333*
12334*
12335*
12336
12336*
12337
1858#
1857#
1861#
12337*
12338
12338*
12339
12339*
12340
12340*
12341
12341*
12342
12342*
2000#
2001 #
2002#
12128#
12128
12129*
12129
12130*
12130
12131*
12131
12132*
12132
12133*
12133
12137*
12137
12138#
12138
12139*
12139
12143*
12143
12144*
12144
12145*
12145
12146*
12146
12150*
12150
12151#
12151
12155*
12155
12156*
12156
12157*
12157
12158*
12158
12162*
12162
12163*
12163
12164#
12164
12165*
12165
12169*
12169
12170*
12170
12171*
12171
12172*
12172
12176*
12176
12177*
12177
12178*
12178
12179*
12179
12184*
12184
2185*
12185
12193*
12193
12194*
12194
12195#
12195
12196*
12196
12197*
12197
12201*
12201
; 2202*
12202
12206*
12206
12207*
12207
12211*
12211
12212*
12212
12216*
12216
12217*
12217
12218
12219*
12219
12220*
12220
12221*
12221
MlllH
^2222
12223*
12223
12224*
12224
2225*
12225
12229*
12229
12230*
12230
12231*
12231
12232*
12233*
12241*
12241
2242*
12242
12243*
122^3
12244*
12244
12245*
12245
M2ii9lt
12249
12250*
12250
Vc2lkn
12254
2255*
12259*
12259
12260*
12260
12261*
12261
}22(i2ll
12262
12263*
12263
y22ti^n
12264
2265*
12265
12266*
12266
12267*
12267
12271*
12271
^22720
^2272
12276*
12276
12277*
12277
2273*
12278
}2279M
12279
12285*
12285
12286*
12286
12287*
12287
12288*
12292*
12292
2293*
12293
12294*
12294
12295*
12295
12299*
12299
12300*
12300
12306*
12306
12307*
2311*
12311
12312*
^2312
12313*
12313
12314*
12314
12318*
12318
12319*
12319
12326*
12326
2327*
12327
12328*
12323
12329*
12329
12330*
12331*
12331
12332*
12332
12533*
12333
2334*
12334
12335*
12335
12336*
12336
12337*
12337
12338*
12338
12339*
12339
12340*
12340
12341*
12341
12342*
12342
SEQ 0522
SE0 0510 "" \mm \mti\i\\i \i\mm \wiii\i\ii iiii?j iiu? mis i^iii m^m s«0523
SEQ 0510
XMR
.ALT1
.ALT2
.CNI
.CNO
.CNSO
.CNSZ
.DATI
.DATO
.JB41
.JBAPR
.JBCNI
.JBDDT
.JBFF
.JBOPC
.JBREL
.JBREN
.JBSA
.JBSYM
.JBTPC
.JBUSY
.JBUUO
•JBVER
• LA
.LADDR
.LAND
.LB
.L6AD
.LBUS
.LCCAF
12128#
12138#
12151*
1216A#
>177#
195#
21 U
221 #
231 #
i2A5#
12261*
12271*
12286*
12299*
1231A*
12330*
12337*
1079A*
10795*
233
230
232
231
23A
10253
235
100A3
10252
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1733*
1194*
12295
12337
1082*
1158*
1198*
12150
12278
1406*
1298*
1234*
12128
12138
12151
12164
12177
12195
12211
12221
12231
12245
12261
12271
12286
12299
12314
12330
12337
10498*
10552*
10534*
10516*
9953
10269
9907
10057
10268
12150
12311
12338
12128
12128
12128
12151
12129*
12139*
12155*
12165*
12178*
12196*
12212*
12222*
12232*
12249*
12262*
12272*
12287*
12300*
12318*
12331*
12338*
9963
10284
9917
10072
10283
12151
12314
12339
12193
12129
12129
12157
12129
12139
12155
12165
12178
12196
12212
12222
12232
12249
12262
}2272
12287
12300
12318
12331
12338
9973
10300
9926
10087
10299
12184
12326
12340
12241
12130
12130
12164
12130*
12143*
12156*
12169*
12179*
12197*
12223*
12233*
12250*
12263*
122i *
12288*
12306*
12319*
12332*
12339*
9983
10316
9935
10101
10315
12216
12327
12341
12285
12131
12131
12171
12130
12143
12156
12169
12179
12197
12216
12223
12233
12250
12263
12276
12288
12306
12319
12332
12339
9992
10331
9944
10115
10330
12217
12328
12342
12306
12132
12132
12178
12131*
12144*
12157*
12170*
12184*
12201*
12217*
12224*
12241*
12254*
122W*
)2277»
12326*
12333*
12340*
10002
10347
9952
10129
10346
12218
12329
12326
12133
12133
12194
12131
12144
12157
12170
12184
12201
12217
12224
12241
12254
12264
]2277
12292
12307
12326
12333
12340
10143
10363
996^
101
10'
12223
12330
12137
12137
12212
12132*
12145*
12158*
12171*
12185*
12202*
12218*
12225*
12242*
12c' ♦
12265*
12278*
12293*
12311*
12327*
12334*
12341*
10159
10378
9972
10158
10377
12259
12331
12150
12138
12219
12132
12145
12158
12171
.2185
12202
12218
12225
12242
12255
12265
12278
12293
12311
12327
12334
12341
10175
10394
9982
10174
10393
12260
12332
12194
12139
12220
12133*
12146*
12162*
12172*
12193*
12206*
12219*
12229*
12243*
12259*
12266*
12279*
12294*
12312*
12328*
12335*
12342*
10190
10410
9991
10189
10409
12261
12333
12242
12143
12242
12133
12146
12162
12172
12193
12206
12219
12229
12243
12259
12266
12279
12294
12312
12328
12335
12342
12271
12334
12278
12144
12262
12137*
12150*
12163*
12176*
12194*
12207»
12230*
12244*
12260*
12267*
12285*
12295*
12313*
12329*
12336*
10206 10222
10480*
10001 10013
10205 10221
10462*
12278
12335
12145
12263
12137
12150
12163
12176
12194
12207
^2220
12230
12244
12260
12267
12285
12295
12313
12329
12336
1
SEQ 0523
10237
10028
10236
12292
12336
12146
12266
„,j
SEO 0511
.LCCBF
-icrrA
1238*
12U*
12206 1??31 12254
' !
i
SEO 0524 i
L_.
r
. .LCCBF
.LtCCA
i .LCCCC
I.LCCCE
.LCCCP
.LCCEB
.LCCER
.LCCFZ
.LCCGC
.LCCIA
.LCCLW
.LCCMB
.LCCMP
.LCCOF
.LCCON
.LCCPP
.LCCXA
.LCENA
.LCJP
.LCJPP
.LCJS
.LCJV
.LCONT
.LCRTN
.LCRY
.LD
.LDISA
.LENA
.LFUNC
.LJ
.LJMAP
.LJRP
.LJSRP
.LJZ
.LLDCT
.LLDLM
.LLOOF
.LLSAD
1238#
12K#
1226#
1270#
1262#
1230#
12A6#
1222#
1218#
1250#
127A#
125A#
1258#
1210#
1206#
1266#
12A2#
1178#
12276
1342#
12276
1374#
133a
135A#
1386#
12262
1370#
1322#
1174#
12150
12259
12332
1182#
1186#
1138*
1086#
12155
12178
U222
12250
12288
12331
1338#
12265
1233A
1358#
1350#
1330#
1378#
12249
1286#
1382*
1278#
12206 12231 12254
SEQ 0524
12229
12230
12155
12184
12293
12232
12155
12277
12155
12277
12129
12150
12263
12138
12128
12151
12260
12333
12128
12156
12179
12224
12254
12293
12332
12128
12279
12335
12137
12266
12276
12277
m
12312
12162
12278
12162
12278
12130
12151
12271
12139
12129
12157
12261
12334
12129
12157
12184
12225
12255
12294
12333
12139
12294
12336
12143
12285
12169 12176 12221 12264
12169
12293
12169
12293
12131
12211
12272
12220
12130
12164
12262
12335
12130
12158
12185
12229
12264
12300
12334
12156
12300
12337
12145
12287
12176
12312
12176
12312
12132
12212
12292
12263
12131
12171
12263
12336
12131
12162
12193
12230
12265
12306
12335
12163
12313
12338
12157
12306
12184
12184
12133
12216
12295
12132
12178
12266
12337
12132
12163
12194
12231
12266
12307
12336
12170
12319
12339
12206
12206
12217
12299
12133
12194
12295
12338
12133
12164
12195
12232
12267
12312
12337
12177
12326
12340
12221
12221
12218
12311
12137
12212
12314
12339
12137
12165
12196
12233
12276
12313
12338
12185
12327
12341
12229
12229
12219
12314
12138
12216
12326
12340
12138
12169
12197
12241
)2277
12319
12339
12193
12328
12342
12230
12230
12220
12318
12139
12217
12327
12341
12139
12170
12201
12242
12278
12326
12340
12207
12329
12231
12231
12232
12232
12254
12254
12264
12264
12223 12259 12260 12261
12143
12218
12328
12342
12143
12171
12202
12243
12279
12327
12341
^2222
12330
12144
12219
12329
12144
12172
12206
12244
12285
12328
12342
12233
12331
12145
12220
12330
12145
12176
12207
12245
12286
12329
12241
12332
12146
12242
12331
12146
12177
12221
12249
12287
12330
12255
12333
12164 12171 12178 12194 12196 12201 12224 12242 12244
0512
.LMARK
.LNGC
1402#
1098*
12143 12145 12150 12157 12164 12171. 12178 121?3 121,96 122Q1 12211 ]2212 1221? SEO 0525
r"
.LMARK
.LMGC
.LNAND
.LOENA
.LOP
.LOR
.LPAR
.LPLUS
.LPUSH
.LRAM
.LRDLM
.LRFCT
.LRMIN
.LRPCT
.LSOA
.LSOB
.LSOQ
.LSAB
.LSAQ
.LSDO
.LSDA
.LSDQ
.LSELC
.LSELE
.LSELF
.LSELM
.LSELP
.LSK
.LSKCN
.LSKMB
.LSMIN
.LSORC
.LSPAR
.LTIM
.LTWB
.LXNOR
.LXOR
.MA
.MADDR
.MAND
1A02#
1098#
12220
12295
12333
1162#
1Q9A#
12333
1326#
115A#
12223
12331
1090#
1U2#
13A6#
1190#
1290#
1362#
1150#
1366#
12250
11 22#
12271
12335
1118#
1114*
1110#
1106*
113A#
1126#
1130#
13K#
1318#
12295
1233A
1310#
1306#
1302*
1202#
1294#
1282#
1U6#
1102*
1398*
1394*
1390*
1170*
1166*
1196*
12295
12337
1084*
1160*
12143
12223
12299
12334
12219
12334
12143
12259
12332
12138
12267
12128
12292
12336
12137
12143
12150
12193
12157
ii299
12335
12271
12196
12150
12311
12338
12145
12224
12306
12335
12150
12241
12311
12336
12157
12244
12312
12337
'223
5335
12!
12i
12!
71
137
12144
12262
12333
12145
12266
12334
12146
12271
12335
12164
12249
12314
12338
m
12151
12292
12336
12171
12262
12318
12339
12311
12339
12157
12295
12337
12178
12263
12326
12340
lit
12164
12311
12338
12193
12266
12327
1234:
12327
12341
12171
12314
12339
12196
12271
12328
12342
12328
12342
12178
12326
12340
12201
U272
12329
12211
12287
12330
12212
12292
12331
12219
12293
12332
SEQ 0525
12329 12330 12331 12332
12184
12327
12341
12212
12328
12342
12216
12329
12219
12330
12138 12139 12217 12218 12220 12260 12261 12263
12144
12286
12129
12295
12337
12138
12146
12288
12130
12311
12338
12139
12158
12307
12131
12314
12339
12144
12165 12172 ,2179 12195 12197 12202 12225 12243 12245
12217 12218 12260 12261
12145 12157 12164
12201
12164
12311
12336
12211
12171
12312
12337
12241
12178
12314
12338
12132
12326
12340
12146
12278
12171
12249
12219
12318
12339
12133
12327
12341
12194
12151
12328
12342
12220
12184
12329
12216
12330
12219
12331
12223
12332
12259
12333
12262
12334
12242 12263
12178 12212 12266
12272
12220
12326
12340
12287
12223
12327
12341
12306
12224
12328
12342
12262 12263 12266 12292 12293
12329 12330 12331 12332 12333
12212 12244
12143 12145 12150
12151
12314
12339
12184
12326
12340
12216
12327
12341
12217
12328
12342
12218
12329
12223 12259
12330 12331
12260
12332
12261
12333
12271
12334
12278 12292
12335 12336
12128 12129 12130 12131 12132 12133 12137 12150 12194 12242 12278
.HB
^m
12128
12151
12129
12157
12130 12131 12132 12133 12137 12138 12139 12143 12144 12145 12146 \.„ ' ^,^
12164 12171 12178 12194 12212 12219 12220 12242 12262 12263 12266 SEQ 0526
n
n
■ MB
.MBAD
.HBUS
.MCCAF
.HCCBF
.MCCCA
.MCCCC
.MCCCE
.HCCCP
.MCCEB
.HCCER
.MCCFZ
.HCCGC
.HCCIA
.MCCLU
.MCCMB
.MCCMP
.HCCOF
.HCCON
.HCCPP
.HCCXA
.MCENA
.MCJP
.MCJPP
.HCJS
.HCJV
.HCONT
.MCRTN
.MCRY
.MD
.MDISA
.NENA
.HFUNC
.HJMAP
.HJRP
.HJSRP
1200#
12150
12278
U08#
1300#
1236#
12A0#
1216#
1228#
1272#
126A#
1232#
1248#
122A#
1220#
1252#
1276#
1256#
1260#
1212#
1208#
1268#
12A4#
1180#
12276
13A4#
12276
1376#
1336#
1356#
1388#
12262
1372#
132A#
1176#
12150
12259
12332
118A#
1188#
1U0#
1088#
12155
12178
Mill
12250
12288
12331
1340#
12265
1233A
1360#
1352#
12128
12151
12229
12230
12155
12184
12293
12232
12155
12277
12155
mil
12129
12150
12263
ii138
12128
12151
12260
12333
12128
12156
12179
12224
12254
12293
12332
12128
12279
12335
12i;
121!
12276
12277
12162
12278
12312
12162
12278
12162
12278
12130
12151
12271
12139
12129
12157
12261
12334
12129
12157
12184
12225
12255
12294
12333
12139
12294
12336
12130
12164
12206 12231 12254
12169
12293
12169
12293
12131
12211
mil
12220
12130
12164
12262
12335
12130
12158
12185
12229
12264
12300
12334
12156
12300
12337
12131
12171
12176
12312
12176
12312
12132
12212
12292
12263
12131
12171
12263
12336
12131
12162
12193
12230
12265
12306
12335
12163
12313
12338
12184
12184
12133
12216
12295
12132
12178
12132
12163
12194
12231
12266
12307
12336
12170
12319
12339
12133
12194
12169 12176 12221 12264
12206
12206
12217
12299
12133
12194
12295
12338
12133
12164
12195
12232
12267
12312
12337
12177
12326
12340
12137
12212
12221
12221
12218
12311
12137
12212
12314
12339
12137
12165
12196
12233
12276
12313
12338
12185
12327
12341
12138
12219
12229
12229
12219
12314
12138
12216
12326
12340
12138
12169
12197
12241
Mill
12319
12339
12193
12328
12342
12139
12220
12230
12230
12220
12318
12139
12217
12327
12341
12139
12170
12201
12242
12278
12326
12340
12207
12329
12143
12242
12231
12231
12144
\22h2
12145
12263
12146
12266
SEQ 0526
12232
12232
12254
12254
12264
12264
12223 12259 12260 12261
12143
12144
12145
12146
12218
12219
12220
12242
12328
12329
12330
12331
12342
12143
12144
12145
12146
12171
12172
12176
12177
12202
12206
12207
12221
12243
12244
12245
12249
12279
12285
12287
12327
12328
12329
12330
12341
12342
ilfii
12241
12255
12332
12333
.MJZ
.HLDCT
S80#
12137 12143 12145 IJIS? 12164 12171 12178 12194 12196 12201 12224 12242 12244 SEQ 0527
L_
.MJZ
.MLDCT
.MLDLM
.MLOOP
.MLS AD
.HMARK
.MMGC
.nNAND
.nOENA
• MOP
.MOR
.MPAR
.MPLUS
.MPUSH
.MRAM
.MRDLM
.MRFCT
.MRMIN
.MRPCT
.MSOA
.MSOB
.nSOQ
.nSAB
.nSAQ
.MSDO
.nSDA
.MSDQ
.MSELC
.HSELE
.MSELF
.MSELM
.HSELP
.NSK
.nSKCN
• nSKPio
.NSMIN
.nSORC
.HSPAR
.mm
.NTU6
.MXNOR
1332#
1380#
12249
1288#
1384#
1280#
1404#
11J0#
12220
12295
12333
1164#
1096*
12333
1328#
1156*
12223
12331
1092#
1144*
1348*
1192*
1292*
1364*
1152*
1368*
12250
1124*
12271
12335
1120*
1116*
1112*
1108*
1136*
1128*
1132*
1316*
1320*
12295
12334
1312*
1308*
1304*
1204*
1296*
1284*
1148*
1104*
1400*
1396*
1392*
1172*
12137
12266
12143
12223
12299
12334
12219
12334
12143
12259
12332
12138
12267
12128
12292
12336
12137
12143
12150
12193
12157
12299
12335
12271
12196
12143
12285
12145
12224
12306
12335
12223
12335
12144
12262
12333
12145
12287
12150
12241
12311
12336
12262
12336
12145
12266
12334
12157
12306
12157
12244
12312
12337
12271
12337
12146
12271
12335
12164 12171 12178 12194 12196 12201 12224 12242 12244
SEQ 0527
.C(
.CI
12164
12249
12314
12338
12171
12262
12318
12339
12178
12263
12326
12340
12193
12266
12327
12341
12196
12271
12328
12342
12201
^2272
12329
12211
12330
12212
12292
12331
12219
12293
12332
12338
12311
12339
12326
12340
12327
12341
12328
12342
12329
12330
12331
12332
12151
12292
12336
12157
12295
12337
12164
12311
12338
12171
12314
12339
12178
12326
12340
12184
M127
12341
12342
12216
12329
12219
12330
12138 12139 12217 12218 12220 12260 12261 12263
.C(
.C(
.Di
.DJ
• Fl
.Fl
.Fl
.Fl
.Fl
12144
12286
12129
12295
12337
12138
12146
12288
12130
12311
12338
12139
12158
12307
12131
12314
12339
12144
12165 12172 12179 12195 12197 12202 12225 12243 12245
12219 12223 12259 12262
12331 12332 12333 12334
12132
12133
12151
12184
12216
12:26
12327
12328
12329
12330
12:40
12341
12342
12146
12194
12220
12242
12263
.Fl
.Fl
12217 12218 12260 12261 12278
12145 12157 12164 12171 12178 12212 12266
12201
12164
12311
12336
12211
12171
12312
12337
12241
12178
12314
12338
12249
12219
12318
12339
y2272
12340
12287
12327
12341
12306
12342
12262 12263
12329 12330
12266 12292 12293
12331 12332 12333
12212 12244
12143 12145 12150
"1
.MXOR
.ONES
"§fJ
107
m ^^s A
4 «kn^ 4
SEQ 0528
L_
.nxoR
.ONES
.RA
.RADDR
.RAND
.RB
.RBAD
.RBUS
.RCCAF
.RCCBF
.RCCCA
•RCCCC
.RCCCE
.RCCCP
.RCCEB
.RCCER
.RCCFZ
.RCCGC
.RCCIA
.RCCLU
.RCCnB
.RCCMP
.RCCOF
.RCCON
.RCCPP
.RCCXA
.RCENA
.RCJP
.RCJPP
.RCJS
.RCJV
.RCUO
.RCLK1
.RCONT
.RCRTN
.RCRY
.RD
.RDISA
.RENA
.RFUNC
.RJ
1168#
10793*
1195*
12295
12337
1083#
1159#
1199#
12150
12278
U07#
1299*
1235#
1239#
1215#
1227#
1271#
1263*
1231#
12A7#
1223#
1219#
1251#
1275#
1255#
1259#
1211*
1207*
1267#
1243#
1179#
12276
1343#
12276
1375*
1335*
1355*
3861
3860
1387*
12262
1371*
1323*
1175*
12150
12259
12332
1183*
1187*
1139*
1087*
12155
12178
12150
12311
12338
12128
12128
12151
12229
12230
12155
12184
12293
12232
12155
Mill
12155
ii277
12129
4160
4159
12150
12263
12138
12128
12151
12260
12333
12128
12156
12179
12151
12314
12339
12129
12129
12157
12276
12277
12162
12278
12312
12162
12278
12162
12278
12130
4254
4253
12151
12271
12139
12129
12157
12261
12334
12129
12157
12184
12184
12326
12340
12130
12130
12164
12206 12231 12254
12169
12293
12169
12293
12131
4289
4288
12211
\2272
M22Q
12130
12164
12262
12335
1213
1215.
12185
12216
12327
12341
12131
12171
12217
12328
12342
12132
12178
12176
12312
12176
12312
12132
4437*
4428*
12212
12292
12263
12131
12171
12263
12336
12184
12184
12133
4496
4495
12216
12295
12132
12178
12266
12337
12132
12163
12194
12218
12329
12133
12133
12194
12169 12176 12221 12264
12206
12206
4502
4501
12217
12299
12133
12194
12295
12338
12133
12164
12195
12223
12330
12137
12137
12212
12221
12221
5649
5652
12218
12311
12137
12212
12314
12339
12137
12165
12196
12259
12331
12150
12138
12219
12229
12229
6391
6388
12219
12314
12138
12216
12326
12340
12138
12169
12197
12260
12332
12194
12139
12220
12220
12318
12139
12217
12327
12341
12139
12170
12201
12261
12333
12242
12143
12242
12271
12334
12278
12144
12262
12278
12335
12145
12263
12292
12336
12146
12266
SEQ 0528
12230 12231
12230 12231
12232 12254
12232 12254
12264
12264
12223 12259 12260 12261
12143
12218
12328
12342
12143
12171
12202
12144
12219
12329
12144
12172
12206
12145
12220
12330
12145
12176
12207
12146
12242
12331
12146
12177
12221
WW WW Wfi IP Wi IP W W lil iil W '"«»
• XvXm «>(«X# «X«n9 •X*7<t «^94* «^9«n 4^*^^ 4^*iy invna lovno lOTtn
;EQ 0516
J
.RJHAP
.RJRP
.RJSRP
.RJZ
.RLDCT
.RLDLM
.RLOOP
.RLSAD
.RMARK
.RM6C
.RNAND
.ROENA
.ROP
.ROR
.RPAR
.RPLUS
.RPUSH
.RRAM
.RRDLM
.RRFCT
.RRMIN
.RRPCT
.RSOA
.RSOB
.RSOQ
.RSAB
.RSAQ
.RSDO
.RSDA
.RSDQ
.RSELC
.RSELE
.RSELF
.RSELH
.RSELP
12222
12250
12288
12331
1339#
12265
12334
1359#
1351#
1331#
1379*
122A9
1287#
1383*
1279#
H03#
1099*
12220
12295
12333
1163#
1095#
12333
1327#
1155#
12223
12331
1091*
1U3#
1347#
1191#
1291*
1363#
1151#
1367*
12250
1123#
12271
12335
1119#
1115#
11114f
1107#
1135#
1127*
1131#
1315#
1319#
12295
12334
1311#
1307#
1303*
12224
12254
12293
12332
12128
12279
12335
12137
12266
12143
12223
12299
12334
12219
12334
12143
12259
12332
12138
12267
12128
12292
12336
12137
12143
12150
12193
12157
12299
12335
12271
12196
12225
12255
12294
12333
12139
12294
12336
12143
12285
12145
12224
12306
12335
12223
12335
12144
12262
12333
12229
12264
12300
12334
12156
12300
12337
12145
12287
12150
12241
12311
12336
12262
12336
12145
12266
12334
12230
12265
12306
12335
12163
12313
12338
12157
12306
12157
12244
12312
12337
12271
12337
12146
12271
12335
12231
12266
12307
12336
12170
12319
12339
12232
12267
12312
12337
12177
12326
12340
12241
m77
12319
12339
12193
12328
12342
12242
12278
12326
12340
12207
12329
12243
12279
12327
12341
m22
12330
12244
12285
12328
12342
12233
12331
12245
12286
12329
12241
12332
12249
12287
12330
12255
12333
SEQ 0529
12164 12171 12178 12194 12196 12201 12224 12242 12244
12164
12249
12314
12338
12292
12338
12151
12292
12336
12171
12262
12318
12339
12311
12339
12157
12295
12337
12178
12263
12326
12340
12326
12340
12164
12311
12338
12193
12266
12327
12341
12327
12341
12171
12314
12339
12196
12271
12328
12342
12328
12342
12178
12326
12340
12201
}2272
12329
12211
12287
12330
12212
12292
12331
12219
12293
12332
12329 12330 12331 12332
12184
12327
12341
12212
12328
12342
12216
12329
12219
12330
12138 12139 12217 12218 12220 12260 12261 12263
12144
12286
12129
12295
12337
12138
12146
12288
12130
12311
12338
12139
12158
12307
12131
12314
12339
12144
12165 12172 12179 12195 12197 12202 12225 12243 12245
12132
12326
12340
12146
12133
12327
12341
12194
12151
12328
12342
12220
12184
12329
12216
12330
12219 12223 12259 12262
12331 12332 12333 12334
12242 12263
12217 12218 12260 12261 12278
12145 12157 12164 12171 12178 12212 12266
12201
12164
12311
12336
12211
12171
12312
12337
12241
12178
12314
12338
12249
12219
12318
12339
^2272
12220
12326
12340
12287
12223
12327
12341
12306
12224
12328
12342
12262
12329
12263 12266 12292 12293
12330 12331 12332 12333
12212 12244
■"~i
;E0 0517
.KSK
.RSKCN
1203#
1295#
12143 12145 12130
SEQ 0530
EG 0517
.RSK
1203#
.RSKCN
1295#
12143
12145
12130
.RSKMB
1283#
•RSMIN
1U7*
.RSORC
1103#
.RSPAR
1399#
.RTIM
395#
.RTUB
391*
.RXNOR
•171#
.RXOR
167#
.WCLKO
:865
4094
4181
4219
.UCLKI
:864
4093
4180
4218
.yRRS
4377
4450#
5655
.ZEROS
A658
10792#
SEO 0530
441 5« 4506
4406# 4505
5643
5646
6385
6382
EQ 0518
r
B00T11
BSR
955# 12497
319# 11810
12526
11827
4 ** « 'xrt
12638
1 11 TO
1 TITO
101/?
1 01//.
151/; 5
131ZA
SEQ 0531
EO 0518
12A97
12638
—
~
^
- -■ -•
—
— ----—
BOOTH
95 5#
12526
1
3SR
31 9#
11810
11827
SEO 0531
CALC
H22#
12128
12129
12130
12131
12132
12133
12137
12138
12139
12143
12144
12145
12146
12150
12151
12155
1^156
12157
12158
12162
12163
12164
12195
12165
12169
12197
W70
12171
12172
12176
12177
12178
12179
12184
12217
12185
12193
12194
12196
12201
12202
12206
12207
12211
12218
12219
12220
12221
^222
12223
12224
12225
^2229
12230
12231
12232
12241
12242
12243
12244
12245
1«^9
12250
12254
12255
12259
12260
12261
1cc62
1^263
12264
12265
12266
12267
12271
12272
12276
12277
}227i
12279
".' - ■■
12285
12286
12287
lll?9
12292
12293
12294
12328
12295
12299
12300
^2306
12307
12311
12312
!
12313
123U
12318
12326
12327
12329
12330
12331
12532
12yS5
1233A
12335
'" ■'_■;
CFLUSH
CHKERR
12336
1651#
271#
12337
12338
12339
12340
12341
12342
2665
2713
2769
2814
2863
2911
2961
3011
3053
3088
3140
3150
3186
\
CINVAL
CLFLGS
3193
1650#
285#
3230
3237
3275
3282
3320
3327
3542
5904
5957
6014
9405
10601
11401
11418
13412
<
CLOKOP
16A5#
i
CLR6UF
254#
3789
5467
5484
12561
i
CLRERR
27211
2656
2705
2754
2806
2854
2903
2954
3004
3046
30S1
3602
CLRJMP
277»
i
CLRLOG
275»
. ■'
CMDSRT
950#
12972
12991
13258
CONCAT
1429#
12128
12129
12130
12131
12132
121^3
12137
12138
12139
12143
12144
12145
12146
12150
12151
12155
12156
12157
12153
12^
12163
12164
12165
12169
12170
12171
12172
12176
12177
12178
12179
12184
12185
12.^3
17194
12195
12196
12197
12201
12202
12206
12207
12211
12212
12216
12217
12218
12219
i;\':?o
12221
^2222
12223
12224
12225
-12229
12230
12231
12232
12233
12241
12242
12243
■?.'44
12245
12249
12254
12255
Hill
■; ■ ' ' I
12260
12261
12262
12263
12264
12265
12366
12*^67
12271
n272
12276
^2277
12278
^2279
1228S
12286
12287
12288
12292
12293
12294
12295
12299
12300
12331
12306
•2307
12311
12312
''\ '
12313
12314
12318
12319
12326
12327
12328
12329
12330
12332
12333
12334
12335
12336
12337
12338
12339
12340
12341
12342
CPCNI
259#
3517
5890
5949
6004
8449
9400
10592
13404
CRDA
270M
CRDRA
278M
CRDRZ
2790
2755
2855
CRDZ
281 #
2706
2807
2955
CyRTA
269#
CyRTBI
1652#
CWRTZ
280#
2657
2904
3005
D.RCL
323#
D.SEK
324#
7004
DAT CMP
2270
2356
2410
2470
2524
2575
2669
2717
2773
2818
2867
2915
i
Docno
951#
12983
12995
13260
OROPDV
1612#
DUHP11
954#
12501
12697
ENDUUO
1658#
1815
2229
EOPUUO
1659#
1817
2231
ERLOOP
1703#
ERLP1
1704#
ERLP2
1705#
■"; " ■- -■ ' '■]
ERRHLT
1546#
9360
ERROR
1712#
ERROR 1
1723#
- -^
EQ 0519
r
ERUUO
EXE11
170,
702f
953#
« 9A^A
4 'VA'^r
SEQ 0532 !
Q 0519
ERUUO
1702#
EXE11
95 3#
Exmi
952#
13015
13020
13025
13030
13035
FATAL
15A5#
12984
12996
13206
13224
13248
FAULT
196#
2353
2403
3141
2467
3151
2517
3187
2572
^^^6
2714
2770
3276
2815
3283
2864
2912
^^m
3012
305A
3089
3194
3231
3238
3321
3328
FAULT1
198#
2276
2279
2287
2314
2617
2621
2670
2624
2718
FAULT2
200#
2357
2411
2471
i576
277i,
2819
2868
2916
2966
3016
3155
3198
3242
3287
3332
12505
FAULT3
202#
2355
2409
2469
2523
2574
2668
2716
2772
2817
3285
m
2914
2964
3014
3056
3091
3143
3153
3189
3196
3233
3240
3278
3330
FAULTS
20A#
3808
3820
4046
4824
4904
4967
4998
5005
5030
5033
5035
5038
5060
5076
5078
5080
5082
5100
5103
5106
5169
5243
6125
11592
11594
11601
11604
11607
11611
11621
11623
11630
11633
11636
11640
11648
11740
11650
11743
11656
1165?
11662
lJ§§t
11667
11671
11680
11683
11710
11712
11724
11727
11745
11765
11780
11783
11785
11800
11811
11819
11828
11866
11869
11871
11891
11894
11897
11906
11909
11911
11915
11918
11934
11940
11948
12371
12374
12379
12412
12425
12449
12462
12639
12698
12710
12769
12770
12933
12957
12958
13611
13653
13654
13684
FAULTS
206#
FAULT6
208#
12372
12375
12413
12450
12463
12498
12502
FIELD
1435*
12128
12129
12130
12131
12132
12133
12137
12138
12139
12143
12144
12145
12146
12150
12151
12155
12156
12157
12158
12162
12163
12164
12165
12169
12170
12171
12172
12176
12177
12178
12179
12184
12185
12193
12194
12195
i|i9(:
12197
12201
12202
i^^QS
12207
12211
12216
12217
12218
12219
12220
12221
12223
12224
12229
12230
12231
12232
12241
12242
12243
12244
12245
12249
12250
12254
12255
12259
12260
12261
12262
12263
12264
12266
12267
12271
12272
12276
}2277
12278
12279
12285
12286
12288
12292
12293
12294
12295
12299
12300
12306
12307
12311
12312
12313
12314
12318
12319
12326
12327
12328
12329
12330
12331
12332
12333
12334
12335
12336
12337
12338
12339
12340
12341
12342
FMSG
182#
6444
6447
6450
6461
6464
6467
6488
7192
6494
6958
7198
6967
7172
7175
7181
7184
7186
7187
7188
7189
7190
7191
7193
7201
7217
7222
7500
7503
7528
7531
7533
7534
7535
7536
7537
7538
7539
7540
7S67
7570
im
7833
7834
7928
7934
7937
7939
7941
7943
7951
7956
7958
7960
7962
7963
7965
'967
7969
7971
7973
7975
7983
7988
7990
7992
7994
7996
7998
8000
8002
8010
8021
8025
8028
8038
8050
8055
8057
8059
i061
8063
8064
m
8070
S081
8106
8113
8124
8125
8126
8145
8127
8128
8129
1130
8131
8132
8134
8135
8136
8137
8138
8146
8147
8173
8148
8247
1149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8163
J259
8265
8267
8269
8273
8281
8294
8303
8308
8310
8344
m
ils^
'318
§357
8322
8324
8326
8328
8330
8332
8334
1336
8351
355
8359
8361
8370
8380
8539
8543
1548
8550
8552
8554
8805
J558
8561
8563
8565
8567
8569
8580
8584
8727
1738
8758
8768
8779
1809
8810
8811
8812
8813
8814
8815
8816
8840
8866
8869
8872
8880
8892
)896
9000
9001
9002
9003
9004
9005
9006
9007
9011
9012
9013
9014
10717
9015
9016
9017
9Q1§
9497
9503
9506
10627
10699
10701
10703
10705
10707
10719
10721
10723
10725
10727
10729
10731
10733
10735
10737
10739
10741
11147
11150
11153
11157
11160
11163
11166
11172
11175
11178
11211
11225
11227
11230
11238
11255
11262
12535
12649
12657
12888
13070
13072
13074
13076
13078
13080
'P^
13084
13086
13088
135§2
13101
13103
15104
F«SGC
184#
3420
6420
m
6541
6588
6695
8919
I999
7014
9010
7023
7034
7057
8174
8178
8182
8186
8194
8748
8912
9492
9500
9507
10648
10659
12531
190#
12632
6531
10688
10690
10693
10696
10708
10711
10715
11144
11169
11205
11693
11694
FHSGCD
6794
6796
7043
7048
7066
7075
7080
7159
7373
7382
7383
8789
SEQ 0532
...J
Q 0520
FMSGD
9521
187#
10614
5687
B9^ I
IO1
11198
7017
1321 12478
7026 7037 7060 7229
rtAAo nmo <iT7i 11 71 7
7745
7976
8031
10iL71
8117
I^ATS
8286
i5flAi
SEQ 0533
EQ 0520
FMS6D
FRD3e
FRD8
FREAD
FSELEC
GET
GETLIN
GETURD
GO
9521
187#
8337
128A4
13697
1687#
1688»
1686«
1685#
1529#
3421
A747
625A
9063
9869
10353
12055
13231
960#
959#
1526#
2138
2166
2194
2363
2570
2742
2860
2963
3055
3144
3191
3239
3286
3349
3618
4067
4191
4534
4823
4957
5242
5700
5864
6250
6463
6635
6649
6803
6883
m
7460
10614
5687
8364
12847
13700
13637
12818
12683
2367
3425
4829
6294
9116
10149
10369
12056
13290
12726
12740
2076
2139
2167
2195
2399
2573
2757
2862
2965
3080
3145
3192
3241
<m
3356
3619
4074
4194
4537
4831
4959
5250
5701
5919
6290
6466
6636
6650
6805
6885
7089
7329
7467
10677
6834
8384
12850
2430
3549
4909
6336
9135
10165
10384
12057
13338
12746
2095
2142
2170
2198
2401
2612
2759
2865
2991
3082
3146
3195
3259
3311
3363
3631
4095
4200
4565
4873
4966
5269
5702
5972
6307
6469
6637
6651
6808
6899
7091
7330
7481
11198
7017
859(
1285
2481
3550
5248
6432
9163
10181
10400
12058
13347
12752
2097
2143
2171
2199
2408
2613
2762
2874
3006
3084
3148
3197
3266
3312
3370
3734
4096
4201
4575
4875
4992
5270
5704
6046
6332
11321
7026
2534
3551
5344
6501
9268
10196
10416
12104
13356
2098
2146
2174
2202
2418
2614
2766
2893
3007
3087
3152
3221
3267
3315
3377
3762
4097
4291
4631
4890
5054
5359
5705
6062
6359
6521
6639
6653
6819
7121
7343
7483
9019
12859
2585
3552
5406
6502
9269
10212
10451
12105
13365
3350
3623
5569
6751
9437
10228
11314
12106
13416
|122
h50
'178
210
465
i662
2771
2910
3009
3128
3177
3225
3272
3318
3391
3765
4123
4301
4642
4894
5140
5458
5708
6124
6404
6523
6641
6655
6841
6980
7144
7358
7550
3357
3737
5599
l^^
10243
11323
12107
2123
2151
2179
2211
2468
2664
2796
2913
3010
3129
3178
3227
3273
3319
3398
3768
4125
4309
4749
4896
5155
5475
5710
6127
6421
6524
6642
6656
6844
7745
1143'
12894
3364
3776
5623
7348
9735
10259
11793
12628
2126
2154
2182
2214
2477
2667
2811
2941
3013
3133
3181
3228
3274
3322
3424
3774
4126
4310
4793
4903
5157
5589
5712
6128
6429
6525
6643
6657
7029
7219
7399
7553
7976
12536
12901
3371
4341
5800
7352
9736
10275
11794
13138
2127
21 '^5
2183
2215
2513
2676
2813
2956
3015
3135
3183
3229
3277
3324
3464
3819
4132
4311
4795
4911
5159
5596
5713
6129
6430
6544
6644
6664
7067
7236
7407
7554
8031
12671
12908
3378
4379
5802
8074
9737
10290
11812
13141
2130
2158
2515
2695
2816
2957
3045
3136
3184
3232
3279
3325
3490
3830
4152
4339
4810
4937
5161
5620
5714
8117
12830
13688
3385
4682
6050
8097
9738
10306
11813
13154
2131
2159
2187
2349
2522
2710
2825
2958
3047
3137
3185
3234
3280
3326
3578
3844
4153
4468
4812
4938
5168
5697
5779
6175
6446
6603
6646
6676
3392
4686
6092
iQ98
9834
10322
11879
13157
2134
2162
2190
2351
2566
2712
2844
2959
3049
3139
3188
3235
3281
3329
3603
4045
4165
4<i84
4814
4953
5235
5698
5796
6204
6449
6618
6647
6756
m
7243
7440
7559
8286
12841
13694
3399
4714
6208
8597
9843
10337
12054
13207
2135
2163
2191
2354
2568
2715
2858
2960
3052
3142
3190
3236
3284
3331
3617
4066
4186
4497
4816
4955
5237
5699
5834
62?1
6452
6619
6648
6784
6876
7081
7252
7447
7580
SEQ 0533
SEQ 0521
f
7593
7696
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
7746
7753
775A
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7775
7776
7777
7778
7779
7780
7781
7791
7798
7799
7803
7801
7802
7830
7845
7886
7930
7953
7985
8012
8023
8040
8052
8139
8160
8176
8180
8184
8188
8192
8196
8249
8261
8283
8296
8305
8346
8372
8382
8730
8828
8851
8853
8855
8890
8913
8922
8995
9062
9102
9110
9111
9112
9113
91U
9115
9131
9132
9133
9152
9155
9158
9161
9172
9180
9188
9196
9204
9212
9220
9228
9248
9254
9260
9262
9267
9467
9514
9515
9516
9517
9518
9520
9525
9536
9537
9570
9571
9572
9573
9574
9575
9576
9577
9604
9605
9802
9841
9842
9846
9861
9890
10689
11199
11206
11247
11269
11283
11377
11387
1139A
11395
11396
11397
11398
11399
11400
11411
11412
11414
11416
11427
11428
11429
1U30
11431
11432
11433
11482
11522
11545
11550
11573
11578
11818
11844
11849
11941
119A2
11976
11979
12016
12022
12361
12397
12398
12399
12400
12401
12405
12434
12435
12436
12437
12438
12442
12479
12487
12504
12538
12545
12597
12626
12641
12709
12712
12760
13046
13047
13120
13165
13179
13336
13345
13354
13363
13560
13571
13576
13582
13603
13610
13618
13620
13627
13630
13643
GTNMBR
268#
5632
HALT
153U
1836
12527
12529
12539
lOF
266#
2261
2596
4586
5776
5780
11434
12874
ION
267#
4562
4627
5767
11426
12896
JEN
1533*
3351
3358
3365
3372
3379
3386
3393
3400
3426
13339
13348
13357
13366
JRSTF
1532*
4560
4625
LDBUF
265*
5463
5480
5496
5510
5553
5568
5572
11246
LDCSR
331*
3453
3526
4804
4884
4947
5149
6013
8108
8110
8204
8800
10430
10450
LDRAR
11992
330*
4801
4881
4944
5146
8202
12009
12031
LDTIM
62*
5732
LJMP
252*
2597
LJMPA
251*
LURR
253*
MAPADR
1668*
3664
9469
MAPCNK
1669*
MAPMEM
1665*
MAPPNT
1671*
MAPSET
1670*
I1BERA
261*
3519
5892
5951
6006
8499
9402
10598
13407
MEMSEG
MEMZRO
MFLD
1667*
1666*
12128*
3695
2083
12128
4684
12129*
12129
12130*
12130
12131*
12131
12132*
12132
12133*
12133
12137*
12137
12138*
12138
12139*
12139
12143*
12143
12144*
12144
12145*
12145
12146*
12146
12150*
12150
12151*
12151
12155*
12155
12156*
12156
12157*
12157
12158*
12158
12162*
12162
12163*
12163
1216A*
12164
12165*
12165
12169*
12169
12170*
12170
12171*
12171
12172*
12172
12176*
12176
12177*
12177
12178*
12178
12179*
12179
12184*
12184
12185*
12185
12193*
12193
12194*
12194
12195*
12195
12196*
12196
12197*
12197
12201*
12201
12202*
12202
12206*
12206
12207*
12207
12211*
12211
12212*
12212
12216*
12216
12217*
12217
12218*
12218
12219*
12219
12220*
12220
12221*
12221
)2222»
12222
12223*
12223
12224*
.2224
12225*
12225
12229*
12229
12230*
12230
12231*
12231
12232*
12232
12233*
12233
12241*
12241
12242*
12242
12243*
12243
12244*
12244
12245*
12245
12249*
12249
12250*
12250
12254*
12254
12255*
12255
12259*
12259
12260*
12260
12261*
12261
12262*
12262
12263*
12263
12264*
12264
12265*
12265
12266*
12266
12267*
12267
12271*
12271
12272*
12272
12276*
12276
\2277n
12277
12278*
12278
12279*
12279
12285*
12285
12286*
12286
12287*
12287
12288*
12288
122920
12292
12293*
12293
12294*
12294
12295*
12295
12299*
12299
12300*
12300
12306*
12306
12307*
12307
12311*
12311
12312*
12312
12313*
12313
12314*
12314
12318*
12318
12319*
12319
12326*
12326
12327*
12327
12328*
12328
12329*
12329
SEQ 0534
SEQ 0522
12330* 12330 12331*
■[0XX7M 10XT7 l577fl*
12331
12332*
12332
12333*
^7XL()M
12333
12334*
12741*
12334
127^1
12335*
1274?*
12335
1274?
12336* 12336
SEQ 0535
MODPCP
MODPCU
MTROP
nUORD
NAME
PBELL
PCRL
PCRL2
PCRL2F
PCRLF
PFORCE
PGMINT
PICNI
PJRST
PMSG
PMSGF
PNTl
PNT11
PNTl IF
PNTIF
PNT2
PNT2F
PNT3
PNT3F
PNTA
PNTAF
PNT5
PNT5F
PNT6
PNT6F
PNT7
PNT7F
PNTA
PNTADF
PNTADR
PNTAF
PNTAL
PNTALF
PNTCHF
12330*
12337*
1678*
1677*
1646*
UA7*
12150
12176
12207
12230
12260
12285
12313
12336
7*
1621*
1615*
8492
9669
1619*
1620*
1616*
8073
9893
1623*
1539*
260*
1530*
1625*
1628*
1581*
1595*
1596*
1582*
1583*
1584*
1585*
1586*
1587*
1588*
1589*
1590*
1591*
1592*
1593*
1594*
1567*
1598*
1597*
1568*
1569*
1570*
1580*
12330
12337
12128
12151
12177
12211
12231
12261
12286
12314
12337
9
9355
5794
8521
6453
8096
10618
13196
2082
10595
i072
6700
6505
9060
8740
12331*
12338*
12129
12155
12178
12212
12232
12262
12287
12318
12338
12670
5833
8532
7273 9732
6473
8198
10630
12531
12338
12130
12156
12179
12216
12233
12263
12288
12319
12339
5918
8659
6500
8274
10651
8141
7272
7936
7933 8041
9425
8750
8503 9472
\2
59
12131
12157
12184
12217
12241
12264
12292
12326
12340
5971
8682
6785
8570
10662
12132
12158
12185
12218
12242
12265
12293
12327
12341
6703
9061
7225
8741
11143
8474 8506 9563 9597
8164 9505 12634
9887
9568 9602 9626
8760 9510 10629
>333*
5340*
12133
12162
12193
12219
12243
12266
12294
12328
12342
7267
9101
7505
8751
11156
12333
12340
12137
12163
12194
12220
12244
12267
12295
12329
7821
9256
7542
8761
11181
12334*
12341*
12138
12164
12195
12221
12245
12271
12299
12330
7878
9275
7572
8771
11197
12334
12341
12139
12165
12196
y2222
12249
^2272
12300
12331
7921
9306
7837
8782
11697
12335*
12342*
12143
12169
12197
y222l
12250
12276
12306
12332
8399
9426
7944
8820
12635
12335
12342
12144
12170
12201
12224
12254
^2277
12307
12333
8420
9484
8003
8858
13092
12336* 12336
SEQ 0535
12145
12171
y2202
)222S
12255
12278
12311
12334
8435
9569
8014
9511
13110
12146
12172
12206
12229
12259
12279
12312
12335
8442
9603
8042
9881
11696
9055
9499
9420
9884
9557 9591
9621
, PNTCHR
iPMTri
1579*
7507
7?AA
7>;aa
7Rin
78?r)
8396
8398
843?
8434
8846
9094 9099 9100
SEQ 0536
•J
EQ 0523
PNTCHR
PNTCI
1579#
1577#
7207
lin
11^
7810
7820
8396
8398
8432
8434
8846
9094
9099
9100 SEQ 0536
9272
9274
9481
10638
PNTCIF
1578#
6437
6542
7224
7499
7504
7541
7571
8542
8544
8583
8585
8808
8819
8857
11226
PNTCU
1613#
PNTCUF
1614#
PNTDCF
1606#
6436
6487
6493
6499
PNTDEC
1605#
8027
8030
8251
8264
8285
8383
9452
9457
PNTDS
1607#
PNTDSF
1608«
PNTHU
1601«
9476
9480
9483
9713
9717
9726
9730
9748
9752
9761
9765
PNTHUF
1602»
8084
8177
8197
8770
8781
10617
10650
10661
11146
11149
11152
11155
11159
PNTMGN
PNTMSF
11162
1692#
1574#
11165
11168
11171
11174
11177
11180
3420
5687
6420
6444
6447
6450
6461
6464
6467
6470
6488
6494
6531
6541
7023
6588
6589
6695
6764
6775
6783
6794
7061
6796
6834
6960
6v67
7014
7018
7027
7034
7038
7043
7048
7057
7066
7075
7080
7159
7172
7175
7181
7184
7186
7373
7187
7188
7189
7190
7191
7192
7193
7198
7201
7217
7222
7229
7372
7381
7382
7383
7500
7503
7528
7531
7533
7534
7535
7536
7537
7538
7539
7540
7567
7570
7745
7828
7834
7836
7928
7934
7937
7939
7941
7943
7951
7956
7958
7960
7962
7963
7965
7967
7969
7971
7973
7975
7976
7983
7988
7990
7992
7994
7996
7998
8063
8000
8064
8002
§010
8021
8025
8028
8031
8050
8055
8057
8059
8146
8066
8067
§06?
8070
8081
8106
3113
8117
8126
8128
8129
8130
8131
8 32
8133
8134
8135
8136
8137
8138
8139
8145
8147
§1*8
§H2
§150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8163
8173
8174
8178
8182
§!§§
8190
8194
8247
8252
8259
8265
8267
8269
8271
''273
8281
8286
8294
8303
8308
8310
8312
8314
8316
8318
8320
8322
8324
o326
§|28
8330
llll
8334
8336
8337
8^44
8349
8351
8353
8355
8357
8359
8361
8363
8364
8370
8380
8384
8539
8543
8548
8550
8552
8554
8556
8558
8561
8563
8565
8567
8569
8580
8584
8589
8591
8593
8595
8596
8727
8738
8748
8758
§768
8779
8789
8805
8809
8810
8811
8812
8813
8814
8615
8816
8840
im
8869
8872
8880
8892
8896
f912
8919
8999
9000
9001
9002
9003
9004
9006
9007
9008
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9494
9497
9500
9503
9506
9507
9521
10614
10627
10646
10659
1067/'
10687
]m
10690
10693
10695
10696
10699
10701
10703
10705
10707
10708
10711
10715
10717
10721
10723
10725
10727
10729
10731
10733
10735
10737
10739
10741
11144
11147
11150
11153
11157
11160
11163
11166
11169
11172
11175
11178
11198
11205
11211
11225
12478
11227
11230
11238
11255
11262
11268
11271
11313
11321
1132
11439
11693
11694
12531
12535
12536
12632
12649
12657
12671
12830
12838
1284
12844
12847
12850
12853
12856
12859
12862
12865
12888
12894
12901
12908
13070
1307,
13074
13076
13078
13080
13082
15084
13086
13088
13089
13101
13103
13104
13688
1369
13694
13697
13700
PNTnSG
1573#
5791
5830
5911
5968
m
6763
t76(
u767
7261
7270
7433
7§11
7814
7847
7849
7851
785:
7855
7859
78oi
/863
7865
7867
7§69
WA
7873
7875
7877
7888
789C
7892
7894
7896
7898
7900
7902
7904
7906
7908
7910
7912
7914
7916
79U
7920
8394
8397
8402
8404
8406
8408
8410
8412
8<.14
8416
8417
1430
8432
8439
8451
8453
8481
845^
8457
8459
8461
8463
8465
8467
8469
8471
472
8475
1477
8479
8483
8527
8485
8487
8489
8491
8501
8504
^l
8509
511
1513
i518
8525
8529
8649
8531
8625
8627
8629
6631
8635
8637
1639
)641
8645
8647
8651
8653
8655
§656
§§68
8670
8672
8673
9313
1679
m
9053
9056
9057
9095
9243
9246
9273
9282
9295
9303
9316
9332
9343
9415
9418
9421
9422
9445
9448
EO 0524
9453
9458
9462
QM9
9552
Of,??
9555
9558
96^8
9561
9643
9564
9647
9565
9650
im
9589
9662
9592
9666
9595
9677
9598
9683
SEQ 0537 !
.,^J.
PNTNM
PNTOCf
PNTOCS
PNTOCT
PNTOTF
PNTSIX
PNTSXF
POPF
PORINI
PORTAL
PSIXL
PSIXLF
PSIXM
PSIXMF
PSP
PSPF
PUT
RAS
RCC
RCK
RCLK
RCLKB
RCLKC
RCR
RDC
RDCSR
RDLAR
ROS
RDT
RDTIM
REC1
REC2
REPTUO
RER
RER2
9453
9599
9711
12976
1609#
1604#
8116
13091
1603#
9098
9594
1599#
1600#
1610#
1611#
276#
9695
274#
258«
157U
1572#
1575#
1576#
1617#
1618#
1528#
3408
5216
6423
9237
10070
10287
11985
13284
292#
303#
296#
248«
256Xr
250*
288#
302*
329*
328*
289*
11647
287*
63*
300*
301*
1706*
290*
298*
9458
9616
9715
12992
7016
818:
13109
5793
9245
9618
9441
9697
2284
4561
9462
9619
9724
12993
7025
8185
5832
9285
9642
9465
9699
4626
9552
9622
9728
12994
7036
8189
5917
9294
9649
9474
9555
9623
9746
13259
7059
8193
5970
9305
9652
6543
8541
8545
8582
2332
2382
2446
3432
3433
3434
5314
5387
5566
6480
6481
6714
9239
9368
9429
10085
10099
10113
10303
10319
10334
11986
11987
11988
i<333
13342
13351
7984
3295
8039
2400
2514
2569
2711
2767
3086
2909
7829
8282
3410
2 444
8082
8111
ni4
3481
:807
5075
11655
11744
11764
6740
6892
6951
5733
8371
8381
8801
5850
11784
7427
955
963,
9750
7174
8807
7813
9315
9661
9561
9643
9759
7183
8842
7819
9318
9665
9564
9647
9763
.'200
8871
8013
9331
9668
9565
9650
9769
7214
8882
8419
9417
9681
10639
7221
8898
8438
9447
10714
9589
7502
9496
8441
9460
11229
9592
m
7530
9502
8658
9554
12890
9595
9677
12974
7569
10692
12981
9478 9639 9644 9651 9655
9598
9683
12975
8112
10710
SEQ 0537
52
88
9656 9663 9678 9691 9693
8586
2496
2549
3347
3354
3361
3368
3375
3382
3389
3396
3435
3717
:756
4336
4372
4670
4741
^763
4844
5579
7^42
5781
5783
6028
6066
6182
6227
6272
6313
7162
8049
8085
8086
8579
9092
9123
9127
9142
9685
9686
9687
9688
9689
9865
10011
10026
10041
10055
10127
10146
10162
10178
10193
102)9
10225
10240
10256
10272
10350
10366
10381
10397
10413
10448
10637
11761
11762
11857
11989
12077
13372
12078
12079
12080
12612
13132
13148
13191
13214
13360
5870 6900
11870 11910
8540 8848
6976 6982
6996
7844 11348 11593 11622
8887 11603 11632 11663
3498
8304
5079
5873 7885 11600 11629 11658 11933
I
0525
RER3
REU
299*
317*
8345
SEQ 0538
--J L
"]
EQ 0525
RER3
REU
RFC
RHINI
RIVR
RLA
RHT
ROF
RPBAR
RPTCR
RRDR
RSBAR
RSET
RSN
RST
RSTCR
RTC
RTN
S
SCOPE
SETDAT
SETDEV
SIXBTZ
SKPHLF
SKPRST
SKF9TN
>99#
17#
>94#
73#
lA5#
291 #
504#
2A4»
24 3#
2A6#
242#
262#
293#
21 9#
24U
295#
1527#
2681
32A8
3778
4056
4312
4600
5083
5378
5659
6015
6438
7700
8015
8338
8742
8950
9236
9808
9974
10307
11379
11748
12380
13093
13307
1457*
228
2887
263#
264#
1634*
21 5#
10349
21 7#
21 3#
8345
8011
2273
8739
8248
7929
8260
8769
3512
3866
8780
10607
8581
10019
8728
7218
1823
2728
3293
3794
4075
4329
4616
5114
5411
5666
6056
6454
7702
8032
8385
8752
-953
9270
9817
9984
10323
11392
11795
12426
13111
13417
2260
2934
2348
2398
7675
10145
10365
10016
215
8022
2311
7952
5884
4071
11606
10034
8051
2081
2760
3338
3817
4108
4342
4660
5141
5444
5673
6099
6474
7704
8043
8400
8762
8979
9286
9822
9993
10338
11409
11826
12464
13121
13624
2300
2984
2462
2512
7677
10161
10380
10031
217
11799
2345
8666
4103
11635
10049
SEO 0538
2327
3034
2661
2567
7679
10177
10396
10046
3707
2395
9394
4183
11666
10063
2459 2509 2563 9867
4221
2244
2250
2764
2782
3553
3565
3840
3853
4133
4166
4355
4365
4683
4687
5164
5170
5468
5485
5685
5703
6138
6169
6503
6970
7706
7721
8075
J099
8421
1436
8772
1783
9031
9040
9296
9321
9835
9864
10003
10150
10354
10370
11419
11484
11829
11845
12510
12563
13125
13142
13635
13638
2377
3069
2810
2709
10192
10412
m
2292
2830
3581
3862
4195
4330
4832
5180
5498
5706
6215
6986
7724
8118
8443
8833
9074
9323
9870
10166
10385
11524
11850
12604
13158
13685
2440
3116
2859
2765
4507 8759
10078 10093 10107 10121 10135 10641
10075
3847
2319
2879
3593
3869
4202
4400
4912
5195
5512
5709
6261
7006
7803
8142
8493
8859
9173
9336
9894
10182
10401
11552
11883
12630
13166
2491
3169
5491
2907
10090
3965
2369
2926
3625
3938
4209
t^n
5204
5520
5736
6301
7232
7822
8162
8522
8874
9181
9344
9908
10197
10417
11580
11919
12643
13170
2544
3212
5561
5505
10208 10224 10239
10104
4198
2421
2976
3638
3968
4227
4503
4962
5251
5529
5756
6343
7353
7838
8165
8533
8894
9189
9362
9918
10213
10433
11613
11955
12786
13180
2595
3256
5547
10255
10118
4307
2432
3026
3654
3991
4232
4508
4968
5271
5536
5777
6372
7412
7879
8199
8571
8899
9197
9366
9927
10229
10455
11641
11980
12806
13184
2639
3301
10271
10132
4716
2483
3061
3675
4004
4239
4524
4983
5286
5554
5803
6393
7414
7922
8206
8598
8910
9205
9369
9936
10244
11319
11672
11982
12829
13208
2689
12471
10286
5368
2536
3096
3681
4018
4261
4539
5013
5294
5573
5905
6407
7416
7945
8253
8660
8929
9213
9373
9945
10260
11332
11705
12025
12897
13232
2736
12625
10302
5433
2587
3161
3743
4032
4266
4549
5046
5301
5602
5941
6412
7688
7977
8275
8683
8937
9221
9381
9954
10276
11351
11708
12059
12934
13251
2790
12681
10318
5452
2631
3204
3766
4047
4302
4582
5069
5345
5626
5958
6434
7698
8004
8287
8731
8948
9229
9471
9964
10291
11363
11713
12108
13038
13261
2838
10333
5752
EQ 0526
^m
7351
11930
7417
11932
8946
11"
936
9777
12381
9783
12427
11354
12779
11756
12827
11758
12935
11814
12966
11843
12985
11846
13003
11848
13126
11851
13139
SEQ 0539
n
STCHN
STLOOP
SWITCH
SYSINI
TMS6
TMS6C
TMSGCD
TMSGD
TTALTM
TTICHR
TTICLR
TTICNV
TTIDEC
TTINO
TTIOCT
TTIYES
TTLOOK
TTSIXB
TTYINP
U10DN1
U11DB0
U11DN1
WAS
yCLK
WCLKB
UCLKC
UCR
UDC
UDIAG
UFC
WIVR
UOF
USBAR
WSTCR
WTC
WTM
UWRR
5760
11927
13155
229#
3668
257#
1640#
282#
171*
7863
7900
8404
8457
8487
8531
8651
9282
9555
9728
173#
9623
179#
176*
1561#
1554#
1564*
1559*
1558*
1556*
1557*
1555*
1560*
1562*
1563*
958*
956*
957*
313*
247*
255*
249*
309*
11670
312*
240*
311*
238*
310*
237*
236*
308*
318*
239*
7351
11930
13171
2347
3680
2344
2100
2089
5830
7865
7902
8406
8459
8489
8625
8653
9295
9561
9746
5791
9638
9461
7433
9855
8943
11212
12532
12424
12370
12373
2419
2350
2663
2812
3529
11682
5037
3986
5004
3894
5034
5040
4982
4997
11709
3858
7417
11932
13185
2397
6044
2394
2206
5915
7867
7904
8408
8461
8491
8627
8655
9303
9564
9750
8475
9659
9243
11437
8966
8046
11936
13262
2461
6085
2458
2225
5968
7869
7906
8410
8463
8501
8629
8656
9313
9589
9757
9048
9662
9343
12507
9777
12381
13686
2511
6201
2508
2242
7811
7871
7908
8412
8465
8504
8631
8668
9316
9595
9763
9057
9677
9783
12427
2565
6247
2562
6528
7814
7873
7910
8414
8467
8507
8633
8670
9322
9598
9769
9413
11385
11354
12779
11
M
7S^7
7875
7912
8416
8469
8509
8635
8672
9329
9619
10639
9422
11756
12827
11758
12935
2708
11237
11814
12966
11843
12985
11846
13003
11848
13126
2758 2763 2809 2857
7849
7877
7914
8417
8471
8511
8637
8673
9332
9622
2753
9353
7851
7888
7916
8430
8472
8513
8639
8679
9418
9647
2805
9356
7853
7890
7918
8433
8477
8518
8641
9053
9421
9650
2853
9541
7855
7892
7920
8439
8479
8520
8643
9056
9445
9666
2902
9838
7857
7894
8394
8451
8481
8525
8645
9095
9448
9711
2953
9858
7859
7896
8397
8453
8483
8527
8647
9246
9453
9715
11851
13139
2906
3003
10674
7861
7898
8402
8455
8485
8529
8649
9273
9458
9722
SEC 0539
9550 9558 9565 9584 9592 9599 9614
9643 9683
11231 11239 11256 11263
12650 12658
12461
12378
3537
2464
3051
2861
5029
11720
5105
4229
5032
4711
5108
5011
5059
11711
4150
12411
11344
5099
11726
11253
4231
5102
5332
5045
6974
12448 12768 12932 12956 13652 13683
5902
11736
11893
4263
11513
11471
5067
8885
6889
11742
4265
11723
11508
5113
11679
6994
11782
4977
11739
5194
4251 4286 4325 4494
11476
11862
5189
11779
5285
4500
11517
11868
5280
11865
11954
11588
11896
11591
11905
11610
11908
11620
11917
11639
11939
11890 11947
.CON I
.CONO
;3*
iO*
329
331
>285
^626
$458
J533
581
391
5934
5996
{984
m
8797
4012
8844
1060'
504!
1306,
13374
5111
SEQ 0540
EQ 0527
.CONI
233#
329
.CONO
230#
5192
5283
10106
10120
10321
10336
12A03
12410
13306
13378
.CONSO
232#
2275
10117
10131
.CONSZ
231 #
2278
.DATAI
234#
8205
.DATAO
235*
5179
.FLT
220#
2353
3054
3089
.FLT1
221#
2276
.FLT2
222#
2357
3155
3198
.FLT3
223*
2355
3056
3091
.FLU
224*
3808
5076
5078
11607
11611
;-: :-■
11667
11671
11785
11800
11915
11918
12710
12769
.FLT5
225*
.FLT6
226*
12372
2285
2626
5899
10134
10352
12415
13651
2313
12883
5751
10431
10454
2403
3141
2279
2411
3242
2409
3143
3820
5080
11621
11680
11811
11934
12770
3458
5882
3533
3980
5939
7334
1014!
10164
10361
10383
12440
12447
13681
2616
5841
12892
13135
5844
5932
12022
12038
12020
12035
2467
2517
3151
3187
2287
2314
2471
2525
3287
3332
2469
2523
3153
3189
4046
4824
5082
5100
11623
11630
11683
11710
11819
11828
11940
11948
12933
12957
5934
3982
7336
10180
10399
12452
5996
3984
8826
10195
10415
12767
5926 5979
5985
13099
12408
2572
3194
2617
2576
12505
2574
3196
4904
5103
11633
11712
11866
12371
12958
8827
8623
3999
9026
10211
11403
12882
10015
13124
8797
4012
10018
10227
11405
12886
8844
4980
10033
10242
11474
12931
10030 10045
13151 13169
12423
12445
2666
2714
32:1
3238
2621
2624
2670
2718
12460
2770
3276
12964
2815
3283
9392
5008
10048
10258
11511
12955
10059
13183
13002
2864
3321
10603
5043
10062
10274
11945
13202
13068
5063
10077
10289
12369
13220
13374
5111
10092
10305
12377
13244
SEQ 0540
10074 10089 10103
2912
3328
2962
11436
3012
2774 2819 2868 2916 2966 3016
2668
3233
4967
5106
11636
11724
11869
12374
13611
2716
3240
4998
5169
11640
11727
11871
12379
13653
nn
Z27B
5005
5243
11648
11740
11891
12412
13654
2817
3285
5030
6125
11650
11743
11894
12425
13684
2866
3323
5033
11592
11656
11745
11897
12449
2914
3330
5035
11594
11659
11765
11906
12462
2964 3014
5038
11601
11662
11780
11909
12639
5060
11604
11664
11783
11911
12698
12375 12413 12450 12463 12498 12502
EQ 0528
;eq 0528
>EQ 0529
n
EQ 0529
EO 0530
;eo 0530
EQ 0531
:0 0531
EQ 0532
EQ 0532
EQ 0533
Q 0533
Live Music Archive
Librivox Free Audio
Metropolitan Museum
Cleveland Museum of Art
Internet Arcade
Console Living Room
Books to Borrow
Open Library
TV News
Understanding 9/11