Digital PDFs

AH-E108A-MC

May 1978

84 pages

Original

4.8MB

view download

OCR Version

4.5MB

view download

Document:	CZKCGA0 KMC-11 FREE RUNNING TEEST DEC 1978 bw
Order Number:	AH-E108A-MC
Revision:	000
Pages:	84
Original Filename:	CZKCGA0__KMC-11__FREE_RUNNING_TEEST__AH-E108A-MC__DEC_1978_bw.pdf

OCR Text

FREE RUNNING TEEST

CZKCGAO

AH-E108A-MC

DEC 1978

FICHE 1 OF1

MADE
IN USA

copvrichT 1973

OEORE0

PAGE
:

IDENTIFICATION
PRODUCT

CODE:

AC-E107A-MC

PRODUCT NAME
:

CZKCQAO KMC FREE RUNNING TEST

DATE:

MAY 1978

MAINTAINER:

DIAGNOSTICS

AUTHOR:

Ed Badger

(C)

1978 BY DIGITAL EQUIPMENT CORPORATION

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

ODIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

THE USE OR RELIABILITY OF
NOT SUPPLIED BY DIGITAL.

ITS SOFTWARE ON EQUIPMENT

THAT

0001

Page 2

:
PAGE

ABSTRACT
The

function of

the KMC11

diagnostics

is to

option operates according to specifications.
verfiy that there are no malfunctions and the
of the KMC11 are correct in its environment.
Parameters must be set up to

alert

the

verify

that

the

The diagnostics
all
operations

diagnostics

the

KMC11
configuration.
These
parameters are contained in the
STATUS
TABLE
and
are
generated
in
two_ways: 1)
Manual
Input - the
operator
answers questions. 2) Autosizing - the

program determines the parameters automatically.

CZDMG tests the KMC11 micro-processor free running
tests
are
performed.
A
Lline
unit (MB8201 or M8202) must
be installed.
CZDMG can be used as a heat test diagnostic by manufacturing.
Currently there are
run

sequence

five off

“nsure

Line diagnostics
that

will be detected at an early stage.
NOTE:

an error

Additional diagnostics may be added

that are

should occur

in the

be
it

future.

The five diagnostics are:

1.
2.

DZKCA KMC-11 CPU Micro-Diagnostics
DZKCC Basic W/R and Micro-Processor Tests

DZKCE DDCMP mode

DZKCD KMC-11 Low speed jump and memory tests
Line unit

tests

DZKCF Bitstuff mode line unit tests

REQUIREMENTS

EQUIPMENT
Any PDP11 family CPU (except an LSI=11)
ASR 33 (or equilivalent)
KMC11
or

M8201 or M8202 Lline unit

with minimum 8k memory

0002

Page 3

2.2

:
PAGE

STORAGE
Program will use

BOOTSTRAP

LOADER

all

reside.

memory

Locations

except

where

1500 thru 1640;

ABL

and

contain

the ''STATUS TABLE'' information which is generated at start

diagnostics
by manual
input
(questions)
or
automatically
(auto-sizing).
This area is an overlay area and should not be

altered by the operator.

LOADING PROCEEDURE
ME THOD

ALl programs are in absolute format and are loaded
using
the
ABSOLUTE
LOADER.
NOTE: if the diagnostics are on a media such
as DISK

fog.

the

,MAGTAPE,DECTAPE,

monitor

which

has

CASSETTE;

been

instructions

provided on that specific

media.

MEMORY

=« SIZE

— e NN
VIN
= NN
NN

ABSOLUTE LOADER starting address

8k
12k
16k

20k

24k
28k

=500

3.1.1

Place address of ABS loader into switch register.
(also place "HALT' SW up)

3.1.2

Depress

3.1.3

Depress 'START KEY' on console and release
be loading into CPU)

'LOAD ADDRESS'

key on console and release.
(program should now

0003

Page 4

:
PAGE

STARTING PROCEEDURE
a.
b.
c.

Set switch register to 000200
Depress °'LOAD ADDRESS' key and release
.
Set SWR to zerc for 'AUTO SIZING' or SWR bit0=1 for manual
input (questions) or SWR bit7=1 to use existing parameters

set up by a previous
start
or
a previously
run DM(C11
diagnostic.
.
Depress 'START KEY' and release,
The
program
will
type
Maindec Name and program name (if this was the first start
up of the program) and also the following:
MAP OF DMC11
PC

CSR

STAT1

001500 160010 145310
001510 160020 145320

STATUS
STATZ2

STAT3

177777
177777

000000
000000

The program will type ‘R' and proceed to run
the
diagnostic.
The
above is only an example.
This would indicate the status
table starting at add.
1500 in the program.
In this
example
the
table contains the information and status of two DMC11'S.
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO
SIZING
gsl DONE.
For information of status table see section 8.4 for
e

It the diagnostic was started with

parameter

1input

then

the

SW00=1

indicating

manual

following shows an example of

questions asked and some example answers:

HOW MANY KMC11'S TO BE

TESTED?1

01
CSR_ADDRESS?160010
VECTOR ADDRESS?310
BR PRIORITY LEVEL?
(4,5,6,7)?5
DOES MICRO-PROCESSOR HAVE CRAM?
WHICH LINE UNIT?

M8202 TYPE '2'"?1

the

IF NONE

(Y OR NN

TYPE ‘N'’,

M8201

TYPE

'1'',

IS THE LOOP BACK CONNECTOR ON?Y
SWITCH PAC#1 (DDCMP LINE#)?377
SWITCH PAC#2 (BM873 BOOT ADD)?377

Folloqing the questions the
status
described
above,
the
information
answers

SW00=0

to the

and

questions.

SW07=0

map
is
1in
the

printed
out
as
map reflects the

the diagnostic was started

(AUTO-SIZING)

then no

with

questions are asked

and only
the status-map is printed
out.
f
AUTO~SIZING
s
used
the
status
information
must be verified to be correct
(match the hardware).
if it does not match the
hardware
the
d1agnos§1c
must
be
restarted
with SW00=1 and the questions
answered.

0004

al|

Page 5
4.

:
PAGE

CONTROL SWITCH SETTINGS

SW
SW
SW
SW
SW
SWw

15
14
13
12
11
10
SW 09
SW 08
SW 07
SW 06
SW 05
SW 04
SW 03
SW 02
SW 01
SW 00

Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:
Set:

Halt on error
Loop on current test
Inhibit error print out
Inhibit type out/abell on error.
Inhibit iterations.
(quick pass)
Escape
to next test on error

Loop with current data
C(atch error and loop on it
Use previous status table.
Halt in
ROMCLK
routine

before

clocking

micro-processor

Reserved
Reserved
Reselect KMC11's desired active
Lock on selected test
Restart program at selected test
Build new status table from questions.
(It SW07=0
and
SW00=0
a
new
status
table
is
built by
auto-sizing)

Switch 06 and 08-15 are dynamic and can be changed
as
needed
while the diagnostic is running.
Switches 00-03
and switch 07
are static, and are used only on starting
or
restarting
the
diagnostic.

0005

Page 6
4. 1.

SWITCH REGISTER OPTIONS

sSw 01

:
PAGE

(at start up)

RESTART PROGRAM AT

SELECTED

TEST.

strongly

suggested
that at least one pass has been made before
trying to select a test, the reason being is that
the

program
has
to
clear
areas and set up parameters.
When this switch is used the diagnostic will ask
TEST
NO.?
Answer by typ1ng the number
of the test desired
and carrige return to
begin execution at the
selected
test.

SWw 02

LOCK ON SELECTED TEST.
This
switch
when
used
with
SWO1
will cause the program to constantly Loop on the
selected test.
Hitting any key on
the
console
will
let
it
advance to the next test and loop until a key

is hit again.
If
SW02=0
when
SW01
is
used.
The
program
will begin at the selected test and continue
normal operations.

sSw 03

RESELECT KMC11'S DESIRED ACTIVE.
Please note
that
a
message
is
typed out for setting the switch register

equal to KMC11's active.

this means
if the system has

four
KMC11s;
bits
00,01.,02,03
will
be set in loc
‘DMACTV'
from
the
switch
register.
Using
this
switch(SW00)
alters
that
location;therefore if four
DMC11s are in the
_system
=***D0 NOT***
set
switchs
greater
than SW 03 in the up position.
this would be
a fatal error.
do not select more active DMC11s
than

there is information on in the status table.

ME THOD :

A:
B:
C:

Lcad address 200
Start with SW 00=1
Program will type message
.
.
Set a switch
for
each
KM(C
desired
active.
EXAMPLE: If you have 4 DMC's but only want to
run the first and the last set SWR bits 0
and

Number (IF
VALID)
(excluding 11/05)

3 = 1.

Set

PRESS CONTINUE

with any other

PRESS CONTINUE.

will
)

switch

)

data

settings

)

Llights
i

desired.

0006

Page 7
4.1 .3

DYNAMIC

PAGE
:

SWITCHES

ERROR SWITCHES

SW 12
SW 13
SW 15
SW 08
SW 10

20
3.

Delete print out/bell on error.
Delete error printout.
Halt on the error.
Goto beginning of the test(on error).
Goto next test(on error).

SCOPE SWITCHES

SW06

Halt

SW09

ROMCLK

4.2

Swil

SWi14

before
This

to scope a micro-processor

continue

to resume running.

static

state

before

1is

clocking

allows

instruction

clocked.

the
in

Hit
)

(if enabled by 'SCOP1') on an error;
If an '+' is
printed
in front
of the test no.
(ex.
*TEST NO.
10
)
SW09
1is incorporated
in
that
test
and
therefore
SW09 is usually
the best switch for the
scope loop (SW14=0, SW10=0, SW09=1, Sw08=0).
1f
SW09
is
not enabeled:
and there is a HARD error
(constant);
SWO8
is
best.
(SW14=1,0,
SW10=0,

SW09=0, sw08=1).

routine

instruction.

ogerator

the

micro-processor

for intermittemt errors;

will Loop on test
reguardless
of
error
error.
(SW14=1, SW10=0, SW09=0, SwW08=1,0)

SW14=1

not

Inhibit interations.

Loop on current

test.

STARTING ADDRESS

Starting address is at 000200
there
addresse s for the KMC11 diagnostics.
NOTE:

are
no
other
starting
(See Section 4.0)

It address 000042 is non-zero the program
it
assumes
is
under
ACT11
or
XXDP
control
and
will
act
accordingly after all available KMC11’s are tested the

program will

return to

'XXDP'

‘ACT-11°.

OPERATING PROCEDURE
When program is initially started
messages
as
in
described
section
on
4.0 will
be printed, and program will begin running
the diagnostic

0007

Page 8

5.2

PAGE :

PROGRAM AND/OR OPERATOR ACTION

The typical approach should be

Halt on error

Set SW 13:

2.
3.

(via SW 15=1)

when ever an error occurs.

Clear Sw 15,
)
Set SW 14:
(loop on this test)

(inhibit error print out)

The TEST NUMBER and PC will be
typed
out
and
possibily
an
error
message (this depends on the test) to give the operator

an idea as to the source of the problem.
If it
is
necessary
to know more information concern1ng-the error report;
LOOK IN

THE LISTING for that TEST NUMBER which was typed out and
then
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of
the test CAN BE DETERMINED.

ERRORS
As described previously there will always be
a TEST NUMBER and
PC tgped out at the time of an error (providing SW 13=0 and SW

12=0).

in most cases additional

information will be

ig the the error message to give the operator an

the error.

6.2

supplied

indication of

ERROR RECOVERY
It for some reason the
KMC11
should
'HANG
THE
BUS' (gain
control of bus so that console manual functions are inhibited)

init or power down/up

is necessary

for operator

.to

regain

control
of
cpu.
If
this
should happen;
look in location
'TSTNO® (address 1226) for the number
of the
test
that
was
running
at
the
time of the catastrophic error.
In this way
the operator will have an idea as to what the DMC11 was
doing
at the time of the error.
RESTRICTIONS

STARTING RESTRICTIONS

See section 4.
(PLEASE)
Status table shoul
be verified
d reguardless of how program was
started.
Also it is important to use this listing along with
theblnformatlon
printed
on
the
TTY
to
completly
isolate

problems.

0008

Page 9
7.2

:
PAGE

OPERATING RESTRICTIONS

The first time a KM(11 diagnostic is loaded into core and run
the STATUS TABLE must be set up.
This is done by manual input
(SW00=1) or by autosi21ng
(SW00=0
and
SW07=0).
Thereafter
however
the
status
table
need
not be setup bz subsequent
restarts or even loadin? the next DMC diagnostic
because
the
STATUS
TABLE
is
overlayed.
The
current parameters in the
STATUS TABLE are used when SW07=1 on start up.

7.3

HARDWARE

CONF IGURATION RESTRICTIONS

KMC (M8204)~ Jumper W1 must be in.

LINE UNIT(M8201)~ Jumpers W1, W2, and W4 must be IN.
Jumpers
ggélT?Sg
WS
must
be
OUT.
SW8
of
E26 must be in the ON
LINE UNIT

in the OFF

(M8202)- Jumper W1 must be in.

SW8 of E26

position.

must

MISCELLANEOUS

EXECUTION TIME

ALL KMC11 device diagnostics will
give an "END
PASS'
message
(providing
no
errors
and
sw12=0) within
4 mins.
This is
assuming SW11=1 (DELETE ITERATIONS) is set to give the fastest

possible execution.
on the PDP11
system.

8.2

The actual execution time depends greatly

CPU configuration and the amount of memory in the

PASS COMPLETE

NOTE:
EVERY time the program
is started;
the tests will
run
as_if
SW11
(delete
iterations)
was up
(=1).
This is to

'VERIFY NO HARD ERRORS' as soon as
possible.
Therefore
the
first
pass
<-EACH
TIME
PROGRAM IS STARTED- will be a 'QUICK
PASS' until all
DMC11's
in
system
are tested.
When
the
diagnostic has completed a pass the following is an example of
the print out to be expected.

ENC PASS DZDMG CSR:

ERRORS:

NOTE:

000000

175000 VEC:

0300 PASSES:

The pass count and error counts

are

000001

cumulitive

for

each KMC11
that is running, and are set to zero only
when the diagnostic is started.
Therefore
after
an
overnight run for example, the total passes and errors
for each DMC11 since the diagnostic
was
started
are

reflected in PASSES:

and ERRORS:.

0009

PAGE:

Page 10
B.4

KEY LOCATIONS

RETURN

(1214)

Contains the address where program will return
when
iteration count is reached or if Loop on
test is asserted.

(1216)

Contains the address of the next
peformed.

TSTNO

(1226)

(ontains the number
peformed.

RUN

(1316)

The bit

'RUN'

currentlg

bein

the

always points

tested.

DMACTV (1306)

now

being

the

KM(C11

KkMC11

no.06

EXAMPLE :

(RUN)

Each bit set in this location
indicates
that
the
associated
KMC11 will be tested in turn.
EXAMPLE:
(DMACTV) 1276/0000000000011111 means
that KMC11 no.
00,01,02,03,04 will be tested.
that DMC11

(1404)

These locations contain the information needed
to test up to 16 (decimal) KMC11s seguent1aly.
they
contain
the
(SR,VECTOR
an
STATUS
concerning the configuration of each KMC11.

EXAMPLE:
DMCSR

test

1302/0000000001000000 Means that
is the KMC11 now running.

DMCROO-DMCR17
DMSTO0~DMST17
(1500)-(1640)

test

(DMACTV) 1276/0000000000010001 Means
no.

00,04 will be tested.

Contains the CSR of the

current

KMC11

under

test.

8.4A

'STATUS TABLE'

(1500-1640)

The table is filled by AUTO SIZING or by the manual
parameter
input (questions) as described previously.
Also if desired by
user;
the locations may be altered by hand
(toggled
in)
to
suit the specific configuration.

The example status map shown below
contains
information
for
two
DMC11°'S.
the
table
can_ contain
up
to
16
DMC11°'S.
Foélowlng the map is a description of the bits
for
each
map
entry

MAP OF KMC11
PC

(SR

STAT1

STATUS
STAT2

STAT3

001500 160010 145310 177777 000000
001510 160020 016320

000000

0010

Page 11

:
PAGE

Each map entry contains
&4
wo;ds
which
conta’sn
the
status
information
for
1
KMC11.
The PC shows where i1n core memory
the first of the 4 words is.
In the example above
the
first
KMC'S status is in_locations, 1500, 1502, 1504,
and 1506.
The

second KMC status is located
at 1510, 1512,
Ihfl

information

contained

1514,

in each & word entry

ollows:

CSR:

CSR address

BITS 00-08 IS KMC11

VECTOR ADDRESS

BIT15=1 MICRO-PROCESSOR HAS C(RAM
BIT15=0 MICRO-PROCESSOR HAS CROM
BIT14=1 TURNAROUND CONNECTOR IS ON
NI NN
S
nuin
—-00

STAT1:

Contains KMC11

BIT
NO TURNAROUND CONNECTOR
BIT1
LINE UNIT IS AN M8201
BIT1
LINE UNIT IS AN M8202
BIT12=1 NO LINE UNIT
BITS 09-11 IS KMC11 BR PRIORITY LEVEL

STAT2:

STAT3:

LOw BYTE IS SWITL' PACH#T
HIGH BYTE

IS SWITCH ~AC#2

(DDCMP LINE NUMBER)
(BM873 BOOT ADD)

BIT1=0 KMC11-AR (LOW SPEED)
BIT1=1 KMC11-AL (HIGH SPEED)

and 1516.

is defined as

0011

Page 12

8.5

METHOD OF AUTO SIZING

8.5.1

FINDING THE CONTROL STATUS REGISTER.

The auto-sizing

routine finds a KMC11

:
PAGE

as follows:

starts

at address 16
and tests_all address in increments of 10 up
to and including address 167760.
If the address does not time
out,
the following
is done, the first CROM address is written

to_a 125252 then it
is read back.
If
it
contains
a -1
or
125252 or a 626 or 16520 a DMC11 or KMC11 has been found, if
not, the address is updated by 10 and the search continues.
A
=1

indicates a DMC11 with no CROM, a 125252 indicates a KMC11

with CRAM, a 626 indicates a DMC11-AL and a 16520 indicates
a
DMC11-AR.
Further tests are_ performed at
this
point to
determine
which
Lline unit,
if
any,
is
installed,
if
a
Lloop~back
connector
1is installed and various switch sett1ngs
on the Line unit.
THIS
IS WHY
THE
STATUS
TABLE
MUST
Bt

VERIFIED
BY
THE
USER AND IF ANY OF THE INFORMATION DOES NOT
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE
RESTARTED
AND
THE
QUESTIONS
MUST
BE
ANSWERED.
ALl DMC11's in the system

will be found by the auto-sizer.
If it does not find a
DMC11
the diagnostic must be restarted and the questions answered.

8.5.2

FINDING THE VECTOR AND BR LEVEL

The
vector
area
(address
300-776)
is
filled
with
the
instruction
10T
and_
'.+2'
(next address).
The processor
status is started at 7 and the DMC is programmed to interrupt.
The
PS
1is
lowered by 1 until the DMC interrupts, a delay is
made and if no interupt occures at PS level 3
(because
of
a
bad
DMC11) the program assumes vector address 300 at BR level

5 and the problem should be fixed in the diagnostic.

problem is fixed;
the
correct vector.
If an
the DMC11
interupted
vector.
NOTE:
if the
gp
by
you;
there is

Once the

program should be re-setup again to get
interupt occured;
the address to which
to
is
picked up and reported as the
vector reported is not the
vector
set
a problem and AUTO SIZING should not be

one.

8.6

SOF TWARE SWITCH REGISTER

If the diagnostic is run on an 11/04 or other

C(PU

without

switch
register
then a
software switch register is used to
allow user the same switch options
as
described
previously.
If
the hardware switch register_does not exist or if one does
and it
contains
all
ones
(177777)
this
software
switch
register

is used.

Control:
To obtain control at any allowable time
during
execution
of
the diagnostic
the
operator
types
a CTRL G on the console
terminal keyboard.
As soon as the (TRL G
is
recognized,
by
the diagnostic, the following message will be displayed:

0012

Page 13

PAGE:

SWR=XXXXXX NEW?
Where XXXXXX is the current contents of
the
software switch
register
in octal.
The
software control routine will then
await operator action.
At which time the operator is required
to
type one
or_more of the legal characters:
1) 0 -7, 2)
Line feed(<LF>), 3) carriage
return(<CR>), or
4)
control-U
(CTRL
U).
No
check
1is
made
for
Llegality.
If the input
character is not a <LF>, <CR>, or CTRL U it is assumed
to
be

an octal digit.

To change the contents of the SSR the
ope -ator
simply
types
the
new
desired
value
1in octal - leading
zeros need not be
typed. And terminates the input string with
a
<CR>
or
<LF>
depending
on
the program action desired as described below.

The input value will be truncated to the last
6 digits
typed.
At least
one
digit
must be typed on any g1ven nput string
prior to the terminator before a change to the SSR will occur.

When the input string is terminated with a <CR> the diagnostic
will
continue
execution
from
the
point
at
which
it was
interrupted.
If a <(R> is the only thing_
typed
the
program
will continue without changing the SSR.
The <LF> differs
trom
tgg <CR>286 restarting the program as if it were restarted
at
address

If a CTRL U is typea at any point in the input string prior to
the
terminator
the
input
value will be disregarded and the

prompt displayed
To set

the SSR

diagnostic,

(SWR = XXXXXX NEW?).

for

the

starting

then hit CTRL G,

switches,

first

load

then start the diagnostic.

the

0013

07:54
PAGE 1
07-JUN-78 14:05

PAGE :

SRRARRKRAANKANARNRUENEA,

GSCOPE

SAXANAA
KRRARRA
A KRR RNk W

*.$SCOPE IS USED TO HANDLE SCOPE LOOPS

* ARGUMENT:
)

NUM ===

IF NON-BLANK DESIRED NUMBER OF

INSTR -~

IF NON-BLANK WILL BE THE FIRST INSTRUCTION OF
THE SCOPE ROUTINE
EXAMPLES OF USE:
1)
<<MOV
R1,SA\R1
;s SAVE R1>>
2)
<<MOV
R1,SAVR1>,<MOV
RZ2,SAVRZ>>

IF BLANK 2000.

]TERATIONS

ITERATIONS WILL BE MADE

AS A MACRO I.E.

<<PUSH

<RO,R1,R2,R3,R4&,R5>>>

NOLOOP -

IF BLANK THE FIRST PASS THROUGH THE PROGRAM WILL
INHIBIT ITERATIONS.
IF NON-BLANK ITERATIONS WILL OCCUR ON THE FIRST PASS.

INSTR2 -

IF NON-BLANK WILL REPLACE THE LAST INSTRUCTICN (RTI).
REFER TO ARGUMENT 2 (INSTR) FOR EXAMPLE OF USE.
REMEMBER YOU NEED AN RTI (OR RTS) FOR EXITING THE ROUTINE.

IF THIS ARGUMENT IS IDENTICAL TO THE WORD ‘‘SWO8TBL''

AND THE SWITCH 8 (SW0OB) SCOPE OPTION IS TO BE USED
A DISPATCH TABLE WILL BE CREATED. IF SW08 IS ON A ‘1"’
THE LOWER BYTE OF THE SWITCH REGISTER WILL BE USED TO
INDEX INTO THE DISPATCH TABLE AND SELECT THE STARTING
ADDRESS OF THE SPECIFIED TEST. THE TABLE IS OF THE FORM:

T XU
RO TP

IO O

TABLE -~

$SWOBTBL:

LWORD
.WORD

TST1+42
TST2+2

.WORD

TSTN+2

LTI

01200
01300
01400
01500
01600
01700
01800
01900
02000
02100
02200
02300
02400
02500
02600
02700
02800
02900
03000
03100
03200
03300
03400
03500
03600
03700
03800
03900
04000
04100
04200
04300
04400
04500
04600
04700
04800
04900
05000
05100
05200
05300
05400
05500
05600
05700
05800
05900
06000
06100
06200

LI
T R

=000 NI

NN
s ad D
a0

NN 2 OO0

S WN) —

08-JUN-78
CZKCGA.MAC

sNOTE:

THIS ROUTINE IS CONDITIONALLY ASSEMBLE BY $SWR

;SW14=1
;SW11=1
;SW09=1
;SW08=1

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SW<7:0>

;FOR SW14,SW11,SW09,85W08

SRR

RRANRAAR A AN RN AN AR

A AN R RARRARARERNRRR AR

AR R AR AR R R

0014C2

08-JUN-78

CZKCGA.P1T

07:54

PAGE 3

PAGE :

08-JUN-78 07:53

LTITLE

AC-E107A-MC

:*COPYRIGHT (C) 1978
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS.

01754

* %

**PROGRAM BY DINESH GORADIA
- %

:'*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(C
s *PACKAGE

(MAINDEC-11-DZQAC-C3),

. %

; *AC~E107A-M(C

JAN 19,

1977.

CZKCGAQ KMC FREE RUNNING TEST

;STARTING PROCEDURE
:LOAD PROGRAM
sLOAD ADDRESS 000200

;SWR=0 AUTOSIZE KMC11
;SW07=1 USE CURRENT KM(C11 PARAMETERS
INPUT NEW KMC11 PARAMETERS
: SW00=1
;PRESS START

;PROGRAM WILL TYPE ‘AC~F107A-MC

CZKCGAO KMC FREE RUNNING TEST'*

;PROGRAM WILL TYPE STATUS MAP
;PROGRAM WILL TYPE 'R’'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
sAND THEN RESUME TESTING
;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE
.SBTTL

:*INITIAL ADDRESS OF THE STACK POINTER xxx 1200 xx=
STACK=
1200
.EQUIV
EMT,ERROR
;.BASIC DEFINITION OF ERROR CALL
.EQUIV
10T,SCOPE
;sBASIC DEFINITION OF SCOPE CALL

001200

93
94
95
9%
97

000011
000012
000015
000200
177776

99
100

177774
177772

177570
177570

PIRQ=
DSWR=
DDISP=

5
06
07

000000
000001
000002

RO=
R1=
R2=

101
102

BASIC DEFINITIONS

;*MISCELLANEOUS DEF INITIONS

HT=

LF=
(R=
CRLF=
PS=

.EQUIV

12
15
200
177776

PSS, PSW

STKLMT= 177774

177772
177570
177570

;. CODE FOR HORIZONTAL TAB

:.CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED
;:PROCESSOR STATUS WORD

;:STACK LIMIT REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER
; HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS
20
21
X2

;. GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER

0015A(

08-JUN-78
(ZKCGA.PTT

(07:54
PAGE 4
08-JUN-78 07:53

PAGE :

BASIC DEFINITIONS

108
109
110
m

000003
000004
000005
000004

R3=
Ré4=
RS=
R6=

%3
%4
x5
X6

;s GENERAL
;. GENERAL
s :GENERAL
;o GENERAL

Hlso

000007

PC=

174

; ;PROGRAM COUNTER

117
118
119
120

000000
000040
000100
000140

PRO=
PR1=
PR2=
PR3=

123
}%g

000300
000340

PR6=
PR7=

112
113

116

121
122

126
127

000007
000006

000200
000240

R7=
SP=

x7
%6

;s GENERAL REGISTER
;. STACK POINTER

;*PRIORITY LEVEL DEFINITIONS

PR4=
PRS=

0
40
100
140
200
240

300
340

;.PRIORITY
;:PRIORITY
;PRIORITY
;.PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

;PRIORITY LEVEL 4
soPRIORITY LEVEL S

;;PRIORITY LEVEL 6
;:PRIORITY LEVEL 7

100000

;%' 'SWITCH REGISTER'' SWITCH DEFINITIONS
SW15=
100000

129
130
131

020000
010000
004000

Sw13=
sw12=
SWil=

133

001000

SW09=

000100

Swo6=

128

132

040000

002000

134
135

000400
000200

137
138

000040
000020

140

000004

136

139

141
142
143
144
145
146
147
148
149
150
151

159
160
161
162
163

SW10=

40000

20000
10000
4000

2000

1000

SW08=
Swo7=

400
200

SW05=
SWos=

40
20

SwW02=

000010

SW03=

000002
000001

SWol=
Swo0=
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
LEQUIV

]'gg
154
155
156
157
158

SW14=

.EQUIV

100

2
1
SW09,Sw9
SW08,Sw8
SW07,Sw7
SW06,SW6
SW05,SW5
SW04, SW4
SW03,SW3
SW02,SW2
SWO1,5wW1

SW00,SW0

100000

:*DATA BIT DEFINITIONS (BITO0 TO BIT15)
BIT15= 100000

004000
002000

BIT11=
8IT10=

040000
020000
010000

001000
000400
000200

BIT14=
BIT13=
BIT12=

40000
20000

BIT09=
BIT08=
BIT07=

1000
400
200

10000
4000
2090

0O
1
2
3

0016(2

07:54

PAGE 5

08-JUN-78 07:53
000100

000002
000001

i
L S S U S

QU S

S—

bl w—b ——d

D O YO O 0 00 00 00 00
00 Q0 00 00 00 00 ~J ~J
8 CONOA
O‘OgoNS
NN =
[e AV, ] WN—*OON\JO\AJ\WN—‘OON\I& S

08-JUN-78
CZKCGA.P11

000004
000010
000014
000014
0060014
000020
000024
000030
000034
000060
000064
000240

BASIC DEF INITIONS

BIT06=
BIT05=
BITO4=
8IT03=
BIT02=
BITO1=
BIT00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100
40
20
10
4
2
1
BIT09,8IT9
BIT08.8178
BIT707,BIT7
B8IT706.,81T6
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
BIT01.B8IT1
81T700,B1T0

*BASIC ''CPU’' TRAP VECTOR ADDRESSES
ERRVEC= 4
;+TIME OUT AND OTHER ERRORS
RESVEC= 1
::fi$§FgY$D AND ILLEGAL INSTRUCTIONS
TBITVEC=1
TRTVEC= 1
;. TRACE TRAP
BPTVEC= 1
; ;BREAKPOINT TRAP (BPT)
IOTVEC= 2
;¢ INPUT/0UTPUT TRAP (IOT) =»xSCOPExx
PWRVEC= 2
;:POMER FAIL
EMTVEC= 30
; sEMULATOR TRAP (EMT) #*ERROR«x
TRAPVE (=34
;" 'TRAP'' TRAP
TKVEC=
60
;:TTY KEYBOARD VECTOR
TPVEC=
64
;:TTY PRINTER VECTOR
PIRQVE(C=240
; :PROGRAM INTERRUPT REQUEST VECTOR

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
PUSHR0=10046
:SAVE RO ON STACK
POPRO=12600
¢RESTORE RO FROM STA(CK
PUSH2SP=24646
;DECREMENT STACK TWICE
POP2SP=22626
s INCREMENT STACK TWICE
LEQUIV EMT HLT ;BASIC DEFINITION OF ERROR CALL

:
PAGE

0017¢C2

AY] AINIALANIAINSNLINIAL
NI AN NI NI NI NI A NUINUNI NI NN NN AR PN NI ANINIANINNONININ)
VNNV
N) = —d e
b ) D wd
N~ NN we =0
mmmbbbb:\bbbbbuuwwugwuuummmmmmmmm
VBN NHWN=O
VO N NI WA= OO0 NN NI INN) — ONV0O~NCN W

08-JUN-78
CZKCGA P11

258

07:54
PAGE 6
08-JUN-78 07:53

TRAPCATCHER FOR UNEXPECTED

AR R

PAGE
:

INTERUPTS

AR AN R A A AR A AR N R

RN R

AR R AN KRR AN NP AN R AR R AR

E AR

;THE STANDARD '‘TRAP CATCHER'' IS PLACED

;BETWEEN ADDRESS O TO ADDRESS 776.
;IT LOOKS LIKE 'PC+2 HALT''.
[

SRR

000000

000020

000024
000026
000030
000032
000034
000036

000000
000000

A AN KRR

.=0

000000

. WORD

000052

000020
004134
000340
007122
000340
006506
000340
006410
000340

.SBTTL

$SCOPE
PR7
$PWRDN
PR7
$ERROR
PR7
$TRAP
PR?7
ACT11 HOOKS

000200

000200
000137

002402

001000
001016

001000
005200
055103

041501
041513

177570
177570

RN R

042455
040507

SCOPE LOOP HANDLER.
SERVICE AT LEVEL 7.
;POWER FAIL HANDLER
;SERVICE AT LEVEL 7
sERROR HANDLER
;SERVICE AT LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
;SERVICE AT LEVEL 7

$SVP(=,
.=46
$ENDAD

;:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

.WORD
0
.=$SVP(

::;2)SET LOC.52 TO ZERO
; RESTORE PC

=174
DISPREG:
0
SWREG:
0

.=200

;
:

AR TR AR AR AN AR AR AR AR AR AR AR RN A AN R AR A RARARRNRRAAAN R AR

.=52

000174
000000
000000

AR AR AR KR AN AN R A AR AR RARRKR A RR AR A AR R AR

0,0

*HOOKS REQUIRED BY ACT11

000040
000046
004070
000052
000000
000040

000174
000176

:STANDARD INTERRUPT VECTORS

SRR AR AN A AR

000046

A AR

:SAVE PC

sSOFTWARE DISPLAY REGISTER
;SOFTWARE SWITCH REGISTER

JMP

.START

MTITLE:

.ASCII

<200><12>/AC~E107A-M(/<200>

DSWR
DDISP

=
=

177570
177570

.=1000

.ASCIZ

;GO TO START OF

PROGRAM

/CZKCGAD KMC FREE RUNNING TEST/<200>

0018(2

08-JUN-78
CZKCGA.P11

07:54
PAGE 7
08-JUN-78 07:53

259
260
261
262

.SBTTL

*THIS TABLE

271

276
277
278
279

$8DADR:
$GDDAT:
$BDDAT:

280
281
282
283
284
285
286
287
288
289

SAUTOB:
$INTAG:

000000

S=I8R

001264

b
b
d

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

077
015
000012

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
BYTE
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD

SWR:
.WORD
DISPLAY: . WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
177566
$TP8:
SNULL:
SFILLS: .BYTE
SFILLC: .BYTE
$7PFLG: .BYTE
$REGAD: .WORD

QOO0OOO0OOODO—=OOOOOOOO

STSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:

.=1200

;;START OF COMMON TAGS
:;CONTAINS THE TEST NUMBER
;. CONTAINS ERROR FLAG
;o CONTAINS SUBTEST ITERATION COUNT

;. CONTAINS SCOPE LOOP ADDRESS
,,CONTAINS SCOPE RETURN FOR ERRORS

;CONIAINS TOTAL ERRORS DETECTED

::CONTAINS
;. CONTAINS
;. CONTAINS
;s CONTAINS
;- CONTAINS
;:CONTAINS

ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF °'GOOD' DATA
ADDRESS OF °'BAD' DATA
'GCOD' DATA

;- CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

;;ADDRESS OF SWITCH REGISTER

;;ADDRESS OF DISPLAY REGISTER

;. TTY KBD STATUS

;. TTY XKBD BUFFER
;oTTY PRINTER STATUS REG. ADDRESS
;;TTY PRINTER BUFFER REG.

$CMTAG:

272
273
274
275

SBWN=O

CONTAINS VARIOUS COMMON STORAGF LOCATIONS

:«USED IN THE PROGRAM.

266
267
268
269
270

2 o

(OMMON TAGS

ttttt***fi*t*tfi*ittt*ttt**tk*tttt**ttttttt*ttttttttttttttttttttt

263
264
265

:
PAGE

COMMON TAGS

$REGO:
-WORD
$REG1:
.WORD
$REG?2:
.WORD
$REG3:
.WORD
SREG4:
. WORD
$REGS:
. WORD
$TMPO:
.WORD
$STMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMPS:
. WORD
$TIMES: 0
$QUES:
LASCII
$CRLF:
LASCII
$LF
.ASCIZ

ADDRESS

;- CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
22 INSERT FILL CHARS. AFTER A 'LINE FEED''

;" TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
;. CONTAINS THE ACDRESS FROM
s;WHICH
(SREGO) WAS OBTAINED
::CONTAINS ((SREGAD)+0)
s CONTAINS ((SREGAD)+2)
;- CONTAINS ((SREGAD)+4)
)
+6)
s CONTAINS ((SREGAD
s :CONTAINS ((SREGAD)+10)
;; CONTAINS ((SREGAD)+12)
s sUSER DEF INED
;cUSER DEF INED
2 :USER DEF INED

;:USER DEF INED
..USER DEF INED

MAX NUMBER OF ITERATIONS
JQUESTION MARK
CARRIAGE RE TURN
LINE FEED

t*t***tttttt*iitfltt*kttktttttttt**tttt**ttt!ttiltttitf'iltltttt

"SBTTL

APT MAILBOX-ETABLE

0019C2

08-JUN-78

CZKCGA. P11

07:54

PAGE 8

08-JUN-78 07:53

315
316
317

.EVEN
MA]L:

$MSGTY:
SFATAL:
$TESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:
$MSGLG

WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

$ENV:
SENVM:
$SWREG:
SUSWR:
$CPUOP:

.BYTE
.BYTE
.WORD
.WORD
.WORD

AENV
AENWM
ASWREG
AUSWR

ACPUOP

.BYTE
.BYTE

AMAMS1
AMTYP1

»
*

Sesiven,

000000

001344

339
340

001346
001347

000
000

$MAMST

SMTYP1:
%

345

001350

000000

$MADRT:
- %

347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
302
363
364

365
366
367
368

369
370

0020C]

""tttttttttttk'fittttt*tttt*ttttt**tttttt*ititttitittttttttt'tttttt

SETABLE:

332

PAGE:

APT MAILBOX-ETABLE

001352
001353
001354
001356
001357
001360
001362
001363
001364
001366
001370
001372
001374
001376
001400
00:402
001404
001406

001410
001412
001414
001416

001420
00142¢

000
000
000000
000
000
000000
000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000

000000

000000
000000

$MAMS?:

MTYPZ:
$SMADRZ:

SMTYP3:
SMADR3:

SMTYP4:

$MADRYS:
$VECT]:

SVECTZ2:
$BASE:
$DEVM:
$COW1:
$CDOW2:
$DDWO:
$DDW1:
$DDW2:

$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW/:
$DDWS:

AMADR1
AMAMS?2
AMTYP2
AMADR?

AMTYP3
AMADR3
AMTYP4
AMADR¢
AVECT1
AVECT?
ABASE
ADEVM
ACDW]
ACDW2
ADDWO
ADDW1
ADDW?

ADDW3

ADDW4
ADDWS5
ADDW6
ADDW?7
ADDW8

. sAPT MAILBOX
. :MESSAGE TYPE CODE
;;FATAL ERROR NUMBER

;s TEST NUMBER

: ;PASS COUNT
;:DEVICE COUNT

::1/70 UNIT NUMBER

2 JMESSAGE ADDRESS
s JMESSAGE LENGTH
;cAPT ENVIRONMENT TABLE

; sENVIRONMENT BYTE
; cENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
. cUSER SWITCHES
;:CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40-04,11/45-05
11/70=06,PDQ=07,Q0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
. sHIGH ADDRESS.M.S. BYTE
:¢MEM. TYPE .BLKN#
MEM.TYPE BYTE

~--

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
;:HIGH ADDRESS ,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'' ABO

:;HIGH ADDRESS,M.S. BYTE
: JMEM.
TYPE ,BLKA?2
; sMEM.LAST ADDRESS.,BLK#2
:;HIGH ADDRESS,M.S.BYTE
TYPE ,BLKA3
s cMEM.
2 ;MEM.LAST ADDRESS,BLKA3
;sHIGH ADDRESS,M.S.BYTE
,BLK#S
TYPE M.
2 JME
;s sMEM_LAST ADDRESS,BLK#é
2o INTERRUPT VECTORH1,BUS PRIORITY#1
;s INTERRUPT VECTORNZ2BUS PRICRITY#Z
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
2 JCONTROLLER DESCRIPTION WORD#1
2 2CONTROLLER DESCRIPTION WORD#?
;:DEVICE DESCRIPTOR WORD#0
;;DEVICE DESCRIPTOR WORD#1
;;DEVICE DESCRIPTOR WORD#?
;:DEVICE DESCRIPTOR WORDA3
;<DEVICE DESCRIPTOR WORD#4
;;DEVICE DESCRIPTOR WORD#S
;.DEVICE DESCRIPTOR WORD#6
;:DEVICE DESCRIPTOR WORD#7
. :DEVICE DESCRIPTOR WORDA#S

08-JUN-78

(ZKCGA.PI

371
372

373
374

07:56

001424
001426

375

001430
001432
001434
001436
001440

379
380
381

001442

376
%;g

PAGE 9

08~-JUN-78 07:53

000000
000000

000000
000000
000000
000000
000000

399
400
401
402
403
404
405
289

001442
001444

000000
000000

001446
001450
001452
001454
001456
001460
001462
001464
001466

412
2;2

000000
000000
000000
000000
000000
000000
000000
000001
000000

415

STRTSW:
STAT:
CLKX:
MASKX:
SAVSP:
SAVPC:
ZERO:
ONE :
MEMLIM:

000001
000001
000001
000001
000000

KMACTV:
KMNUM:
SAVACT:
SAVNUM:
RUN:

001502
001504

002072
002276

CREAM:
MILK:

001510
001511

.WORD
.WORD

.WORD

.WORD
.WORD

ADDW9
ADDWIO

ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

;:DEVICE DESCRIPTOR WORD#9
;:DEVICE DESCRIPTOR WORDA10

;:DEVICE
;:DEVICE
;:DEVICE
;:DEVICE
;;DEVICE

DESCRIPTOR WORD#11

DESCRIPTOR WORD#12

DESCRIPTOR WORD#13
DESCRIPIOR WORD#14
DESCRIPTOR WORD#15

000
001510

000
000

.WORD
.WORD

0
0

; ADDRSS OF NEXT TEST TO BE EXECUTED
; ADDRESS FOR LOCK CURRENT DATA

PROGRAM VARIABLES

001470
001472
001474
001476
001500

001506

_WORD
.WORD

PROGRAM (CONTRUL PARAMETERS

NEXT:
LOCK:

283
410
411

$DDW11:
$DDW12:
$DDW13:
$DDW14:
$DDW15:

;
.

%gg
390
391
392
393
394
395
396
397
398

$DDW9:
$ODW10:

00212

$ETEND:

382
%gz

385
%g;

:
PAGE

APT MAILBOX-ETABLE

.WORD
.WORD
WORD
WORD
.WORD
.WORD
WORD
.WORD
.WORD

.BLKW
_BLKW
.BLKW
_BiLkW
WORD
.EVEN
_WORD
.WORD

0
O
O
O
O
O
O
1
O
1
1
1
1
O
KM_.MAP-6
CNTY .MAP-4

SWITCHES AT START OF PROGRAM
KM STATUS WORD STORAGE
STACK POINTER STORAGE
PROGRAM COUNTER STORAGE
HIGHEST LOCATION FOR NPR'S

KMC11 SELECTED ACTIVE

OCTAL NUMBER OF KMC11'S

ORIGINAL ACTIVE DEVICES.
WORKABLE NUMBER.

; POINTER TG RUNNING DEVICES
TABLE POINTER
TABLE POINTER

PROGRAM CONTROL FLAGS

INIFLG:

LOKFLG:
QV.FLG:

.BYTE
.EVEN

.BYTE
.BYTE

.EVEN

0
0

. PROGRAM INITIALIZING FLAG
LOCK ON CURRENT TEST FLAG
QUICK VERIFY FLAG
ON FIRST PASS OF EACH KMC11

ITERATIONS WILL BE

08-JUN-78
C(ZKCGA.P11

07:54 PAGE 10
08-JUN-78 07:53

PAGE:

ERROR POINTER TABLE

2}9

.SBTTL

418

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

419

;*THE

420
421
25%
425
426

452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471

IS OBTAINED BY USING

THE

INDEX NUMBER

;;POINTS TO THE ERROR MESSAGE

;;POINTS TO THE DATA FORMAT

ix
i

25%

444
445
446
447
448
449
450
451

INFORMATION

(ABLE

FOUND

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
[F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

424

429
430
431
432
433
434
435
436
437
438
439
440
441
442
443

ERROR POINTER

0022(2

001512

001512
001514

000000
000000

001516
001520
001522
001524
001526
001530
001532
001534

000000
034020
034263
000000
033654
034167
034526
033677

001540
001542
001544
001546
001550
001552
001554
001556

000000
033725
000000
000000
033747
000000
000000
033725

001536

001560
001562
001564
001566
001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626

000000

034167
034366
033747
034167
034354
000000
034135
034400
000000
034135
034416
000000
034167
034354
033774
034135
034434
034020
000000
000000

DH
DT

$ERRTB:
.EVEN
i
DF
0
0
0
EM12
DH5
0
EM2
DH2
DT13
EM3
0
0
EM4
0
0
EMS
0
0
EM4

DH2
D15
EMS
DH2
DT4
0
DH1
DT6
0
DH1
D17
0
DH2
DT4
EM11
DH1
D110
EM12
0
0

;;POINTS TO THE DATA HEADER
;;POINTS TO THE DATA

;ERROR

JERROR

;ERROR

DOES NOT APPLY IN THIS DIAGNOSTIC.

08-JUN-78

CZKCGA.P11

07:54
PAGE 11
08-JUN-78 07:53

472
475
47%
475
476
477
478
479
480

034020
034167
034366
034044
034210
034452
034067
034231
034464
002034

481

482
483
484
485
486
487
488
489
490
491
492
493
494

495
49
497
498
499

500
501
502
503
504

PAGE:

ERROR POINTER TABLE

EM12
DHZ
DTS
EM13
DH3
DTN

EM14

.=2034

.SBTTL

DH4
DT12

JERROR

;ERROR

JERROR

0023(

APT PARAMETER BLOCK

""tl’*ttt*tti'**tl’**ttt*t****t*t*t**t***t**ttt**tfit*****tk**tt*t*tt

JSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

M "**tl'******t*********"****fi******fi**l | 2342823842323

000024

000044

002034
000024
000200
000044
002034
002034

JSX=.
=24
200
=44
$APTHDR
.=.8X

228222

2322222

:;SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
:;POINT TO APT INDIRECT ADDRESS PNIR.
;;POINT TO APT HEADER BLOCK
;sRESET LOCATION COUNTER

";*t*****t**ttt*****t***fii!’*t*t**k**fitt**tttt****t**ttttt*ttttt*t

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
;INTERFACE SPEC.
002034
002034
002036
002040
002042
002044
002046

000000

001316
000132
000137
000137

000052

$APTHD:
$HIBTS:

$MBADR:

$TSTM:
$PASTM:
SUNJTM:

.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

O
c:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
90.
;:RUN TIM OF LONGEST TEST
95,
;;sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
95.
. ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITION
SETEND-SMAIL/2 ;;LENGTH MAILBOX~E
TABLE (WORDS)

08~-JUN-78

(ZKCGA.P11

PAGE 12

08-JUN-78 07:53

002050
002052
002054

000000
000000
000000

b
o
b

STAT1:
STAT?:

0
0
0

STAT3:

VECTOR AND REGISTER INDIRECT POINTERS

002056
002060
002062
002064
002066
002070
002072
002074
002076

000000
000000
000000
000000
000000
000000
000000
000000
000000

KMRVEC:
:
KMRLVL
KMTVEC:
KMTLVL:
KMCSR:
KMCSRH:
KMCTL:

KMPO4:
KMPO6:

;POINTER
sPOINTER
;POINTER
sPOINTER
;POINTER
sPOINTER
;POINTER
sPOINTER
sPOINTER

TO
TO
TO
TO
TO
TO
TO
TO
TO

KMC11
KMC11
KMC11
KMC11
KMC11
KMC11
KMC11
KMC11
KMC11

RECEIVER INTERRUFT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVILE PS
CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HIGH BYTE.
CONTOL OUT REGISTER
PORT REGISTER(SEL 4)
PORT REGISTER(SEL 6)

;TEMP STORAGE
0
JTEMP:
;.= 440

;KMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS

v
—d

sCONTROL STATUS REGISTER FOR KMC1! NUMBER 00
sVECTOR FOR KMC11 NUMBER 00
;DDCMP LINE# FOR KMC11 NUMBER 00

000001

:
:

.BLKW
BLKW
-BLKW

b o b e

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 01
sVECTOR FOR KMC11 NUMBER 01
;DODCMP LINEX FOR KMC11 NUMBER 01

JBLKW
JBLKW

:CONTROL STATUS REGISTER FOR KMC11 NUMBER 02
:VECTOR FOR KMC11 NUMBER 02
:DDCMP LINEX# FOR KMCT1 NUMBER 02

: .BLKW
:
:

:
:

JBLKW
JBLKW

:
:
:
:

BLKW
BLKW
BLKW
BLKW

s
:
:
:

BLKW
JBLKW
JBLKW
BLKW

000001
000001

L T

000001

KMS300:

-BLKW
.BLKW

0021 6

KMCROO :
KMS100:
KMS200:

— el e

000001
000001
000001
000001

d md

002100
002102
002104
002106

.=2100

KM.MAP:

002100

— e

b
dd
b

CONTROL IND]CATORS FOR CURRENT KMC11 UNDER TEST

TN WA N

;KMC11

AW
A
TN
VTN

545

:
PAGE

APT PARAMETER BLOCK

[elololelololelels)

bum—aoo&\n&ufldwm—aoooowo\nbum-ao NV OONR VNN —=O

bgbbbw A AN N N AN N N N A RN NN(S QW TV, L0, IV, TV, 10,1V, V|V ]

509

07:54

;3RD STATUS WORD

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 03
+VECTOR FOR KMC11 NUMBER 03
:DDCMP L INE# FOR KMC11 NUMBER 03

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 04
SVECTOR FOR KMC11 NUMBER 04
;DDCMP_LINE# FOR KMC11 NUMBER 04

:3RD STATUS WORD

0024C2

08-JUN-78

CZKCGA.P11

07:54

PAGE 13

08-JUN-78 07:53

PAGE:

APT PARAMETER BLOCK

561
562
563
564
ggg

002150
002152
002154
002156

000001
000001
000001
000001

KMCROS5:
KMS105:
____KMS20S:
KMS30S:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 05
JVECTOR FOR KMC11 NUMBER 0%
:DDCMP L INEX
F
;3RD STATUS WORD

567
568
569
g;?

002160
002162
002164
002166

000001
000001
000001
000001

KMCRO6:
KMS106:
KMS206:
KMS306:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 06
JVECTOR FOR KMC11 NUMBER 06
;DDCMP LINE# FOR KMC11 NUMBER 06
:3RD STATUS WORD

572
573
574
g;g

002170
002172
002174
002176

000001
000001
000001
000001

KMCRO7:
KMS107:
KMS207:
KMS307:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 07
;VECTOR FOR KMC11 NUMBER 07
:DDCMP LINE# FOR KMC11 NUMBER 07
:3RD STATUS WORD

577

002200

000001

000001
000001
000001

KMS110:
KMS210:
KMS310:

KMCR10:

.BLKW

.BLKW
.BLKW
.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 10

582
583
584
ggg

002210
002212
002214
002216

000001
000001
000001
000001

KMCR11:
KMS111:
KMS211:
KMS311:

.BLKW
.BLKW
.BLKW
.BLkW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 11
sVECTOR FOR KMC11 NUMBER 11
;DDCMP LINEA FOR KMC11 NUMBER 11
:3RD STATUS WORD

587

002220

000001

578
579
gg?

588
589
gg?

002202
002204
002206

002222
002224
002226

;VECTOR FOR KMC11 NUMBER 10
;DDCMP LINEX FOR KMC11 NUMBER 10
:3RD STATUS WORD

000001
000001
000001

KMS112: .BLKW
KMS212: .BLKW
KMS312: .BLkKW

KMCR12:

.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 12

;VECTOR FOR KMC11 NUMBER 12
;DDCMP LINE# FOR KMC11 NUMBER 12
:3RD STATUS WORD

592
593
594
ggz

002230
002232
002234
002236

000001
000001
000001
000001

KMCR13:
KMS113:
KMS213:
KMS313:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 13
JVECTOR FOR KMC11 NUMBER 13
;DDCMP LINE# FOR KMC11 NUMBER 13
:3RD STATUS WORD

597
598
599
28?

002240
002242
002244
002246

000001
000007
000001
000001

KMCR14: .BLKW
KMS114: .BLKW
KMS214: .BLKW
KMS314: .BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 14
;VECTOR FOR KMC11 NUMBER 14
;DDCMP LINE# FOR KMC11 NUMBER 14
:3RD STATUS WORD

602
603
604
282

002250
002252
002254
002256

000001
000001
000001
000001

KMCR15:
KMS115:
KMS215:
KMS315:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 15
;VECTOR FOR KMC11 NUMBER 15
;DDCMP LINE# FOR KMC11 NUMBER 15
;3RD STATUS WORD

607
608
609
g}?

002260
002262
002264
002266

000001
000001
000001
000001

KMCR16:
KMS116:
KMS216:
KMS316:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 16
JVECTOR FOR KMC11 NUMBER 16
;DDCMP LINE# FOR KMC11 NUMBER 16
:3RD STATUS WORD

612
613
614
g;g

002270
002272
002274
002276

000001
000001
000001
000001

KMCR17:
KMS117:
KMS217:
KMS317:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 17
JVECTOR FOR KMC11 NUMBER 17

;DDCMP LINE# FOR KMC11 NUMBER 17
:3RD STATUS WORD

0025C3

08-JUN-78

CZKCGA.P11

617

(07:54

00230C

PAGE 14

08-JUN-78 07:53

000000

APT PARAMETER BLOCK

KM.END:

000000

PAGE:

0026(2

08-JUN-78

CZKCGA.P11

07:54

PAGE 15

08-JuUN~-78 07:53

618
g%g

621

:
PAGE

APT PARAMETER BLOCK

;KMC11 PASS CGUNT AND ERROR COUNT TABLE

622
623
25?

002302
002302
002304

626
255

’

000000

CNT.MAP:
PACT00: O
ERCT00: 0

;PASS COUNT FOR KM(C11 NUMBER 00

002306
00231C

000000
000000

PACT01: O
ERCTO01: O

;PASS COUNT FOR KMC11 NUMBER 01
;ERROR COUNT FOR KMC11 NUMBER 01

629
gg?

002312
002314

000000
000000

PACT02: O
ERCT02: O

sPASS COUNT FOR KMC11 NUMBER 02
JERROR COUNT FOR KMC11 NUMBER 02

632
ggz

002316
002320

000000
000000

PACT03: O
ERCTO3: 0

;PASS COUNT FCR KMC11 NUMBER 03
*ERROR COUNT FOR KMC11 NUMBER 03

635
ggg

002322
002324

000000
000000

PACTO4: O
ERCTO4: 0

;PASS COUNT FOR KMC11 NUMBER 04
“ERROR COUNT FOR KMC11 NUMBER 04

638
223

002326
002330

000000
000000

PACT05: 0
ERCTO5: 0

;PASS COUNT FOR KMC11 NUMBER 05
*ERROR COUNT FOR KMC11 NUMBER 05

641
gz%

002332
002334

000000
(000000

PACTO6: O
ERCTO6: O

;PASS COUNT FOR KMC11 NUMBER 06
JERROR COUNT FOR KMC11 NUMBER 06

644
&g

002336
002340

000000
000000

PACT07: 0
ERCTO7: 0

;PASS COUNT FOR KMC11 NUMBER 07
*ERROR COUNT FOR KMC11 NUMBER 07

647
223

002342
002344

000000
000000

PACT10: 0
ERCT10: ¢

;PASS COUNT FOR KMC11 NUMBER 10
;ERROR COUNT FOR KMC11 NUMBER 10

650
gg;

002346
002350

000000
000000

PACT11: O
ERCT11: 0

;PASS COUNT FOR KMC11 NUMBER 11
*ERROR COUNT FOR KMC11 NUMBER 11

653
222

002352
002354

000000
000000

PACT12: 0
ERCT12: O

;PASS COUNT FOR KMC11 NUMBER 12
*ERROR COUNT FOR KMC11 NUMBER 12

656
ggg

002356
002360

000000
000000

PACT13: 0
ERCT13: 0

:PASS COUNT FOR KMC11 NUMBER 13
*ERROR COUNT FOR KMC11 NUMBER 13

659
gg?

002362
002364

000000
000000

PACT14: 0
ERCT14: O

;PASS COUNT FOR KMC11 NUMBER 14
JERROR COUNT FOR KMC11 NUMBER 14

€62
&3

002366
002370

000000
009000

PACT1S: 0
ERCT15: 0

;PASS COUNT FOR KMC11 NUMBER 15
*ERROR COUNT FOR KMC11 NUMBER 15

665
%

002372
002374

000000
000000

PACT16: 0
ERCT16: 0

:PASS COUNT FOR KMC11 NUMBER 16
*ERROR COUNT FOR KMC11 NUMBER 16

668
669

002376
002400

000000
000000

PACT17: 0
ERCT17: 0

:PASS COUNT FOR KMC11 NUMBER 17
JERROR COUNT FOR KMC11 NUMBER 17

*ERROR COUNT FOR KMC11 NUMBER 00

00274

08-JUN-78
CZKCGA.P11

07:54
PAGE 16
08-JUN-78 07:53

:
PAGE

APT PARAMETER BLOCK

671
672
673
674
675
676
FORMAT OF

15
/1
1C

16
1

13
r

STATUS TABLE

1_1r
1
1
1
T
R
0
L
1
1
1
1
1

07
1

/1
1
1
1
1
1
1
1
1
[«
«]x]x]«]sxs]«]Jx
11
1
1r
1
1
1
1
1
1
1
1.1
I~
B8
M
r
1
1r
1

1
1r
11
1
r

1
1
1

1
1
1r

1
1
1

1
1

1
1
1

1
1

06
1

1
1
1

VvV

1
1
~]1=+
|
1
1
1

11
1
1
1
1

1
1
1

05
1

1
1
1

1
1

1
1
1

04
1

1
1
1

1
1

1
1
1

03
1

1
1
1

1
1

1
1
1

02
1

1
1
1

01
1

1
1
1

00
1

1
1

1
RI

CSR

1
=*]
1

STAT1

1
=1
1

STAT?2

1
1
1+=]
1
1

STAT3

1
1

DEFINITION OF FORMAT
CSR:

CONTAINS KMC11

CSR ADDRESS

STAT1:

BITS 00-08 IS KMC11 VECTOR ADDRESS
BIT14=1 22?22 TURNAROUND CONNECTOR IS ON
BIT14=0 NC TURNAROUND CONNECTOR

BIT13=0 LINE UNIT IS AN M8201
BIT13=1 LINE UNIT IS AN MB202
BIT12=1 NO LINE UNIT
BITS 09-11 IS KMC11 BR PRIORITY LEVEL
STAT2:

LOW BYTE IS SWITCH PACA#1 (DDCMP_LINE NUMBER)
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD)

STAT3:

BIT0=1 DO FREE RUNNING TESTS ON_KMC

(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY])

00282

08~JUN-78

(ZKCGA.P11

725
726
727
728
729
730
3
732

733
734
735
736
737
738

739
760
761
742
743
744
745
746
747
748
749
750
751

07:54
PAGE 17
08~JUN-78 07:53

3
:
PAGE

PROGRAM INITIALIZATION AND START UP.

;PROGRAM INITIALIZATION
$LOCK OUT INTERRUPTS

‘SET UP PROCESSOR STACK
*SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS

STYPE

002402
002410
002414
002422
002430
002434
002440
002444
002452
002460
002466
002472
002474
002500
002502
002506
002514

002522
002530
002532
002540
002542
002546
002552
002560
002566

002574

002602
002604
002606
002610
002616
002624
002630
002634
002640
002642
002650
002652
002656

012737
012706
012737
013737
005037
105037
105037
012737
012737
012737

012700

005020
022700
001374
005037
012737
012737
132737
001404
013737
000423
013746
013746
012737
012737
012737
022777
001402
000407
022626
012737
012737
012637
012637
105737
001066
022737
001402
104401
004737
017737
005737
€01402
005037
032737
001012
105737

000340
001200
007122
001472
011432
001203
001511
002070
002276
100000

002302

177776
000024
001476

001502
001504
001500

CLRB
MOV
MOV
MOV
MOV

CLRB

23%:

001216
000001
002402

001202
001206

000001

001336

001340

000176

000176
000174

000004
000006
001506
004070
001000
011226
176352
000042
001446
000001
001446

MOV

MOV
MOV
MOV
CLR

002402

000006
000004
002606
177570
177570
177777

.START:

3s:

000004
001240
001242
176436

001240
001242

CLR
cMP
BNE
CLR

001446

20%:

S$ERFLG

:CLEAR ERROR FLAG

*SET UP STACK
-SET UP POWER FAIL VECTOR
:SAVE NUMBER OF DEVICES IN SYSTEM.
:CLEAR SOFT TYPEOUT FLAG

GV.FLG
:ZERO QUICK VERIFY FLAG
#KM.MAP-10,CREAM-GET MAP POINTER.
#CNT.MAP-4 .MILK -GET PASS COUNT MAP POINTER
#BIT15,RUN
*POINT POINTER TO FIRST DEVICE.
#CNT.MAP RO
*PASS COUNT POINTER TO RO

(RO)+
:CLEAR TABLE
#CNT.MAP+100,R0 *DONE YET?

MOV
MOV

#1,8TSTAM
#.START,SLPADR

BITB
BEQ
MOV
BR
MOV

#1,$ENV
38
$SWREG,SWREG
6$+2
N6, -(SP)

* IS IT RUNNING UNDER APT?
* IF NOT CHECK FOR TYPE OF SWITCH REGISTER.
- LOAD SOFTWARE SWITCH REG.
* GO SET UP SOFTWARE SWITCH REG.
*SAVE CURRENT VECTORS

*SET UP FOR TEST 1
-SET UP FOR POWER FAIL BEFORE

STESTING STARTS

MGV

e ,-(SP)

MOV

#177570,SWR

‘SET SWR TO HARD SWR ADDRESS

68+3

SIF = =1 USE SOFT SWR ANYWAY

MOV

#SWREG, SWR

*POINTER TO SOFT SWR

MOV

(SP)+, a#4

;RESTORE VECTORS

INIFLG

HAS

26$ . akl

:SET UP FOR TIMEOUT

MOV
P

#177570.DISPLAY :SET DISPLAY TO HARD SWR ADDRESS
#-1_3SWR
:REFERENCE HARDWARE SWITCH REGISTER

BR
TMP

7%
(SP)+,(SP)+

MOV
MoV

1STB

000042

;LOCK OUT INTERRUPTS

#STACK, SP
#SPWRDN,a#24
KMNUM,SAVNUM
SWFLG

‘KEEP GOING
:CLEAR LAST ERROR POINTER

BEQ

7%:

#340,PS

238
$ERRPC

MOV

6%:

TITLE MESSAGE

#DISPREG,DISPLAY;POINTER TO SOFT DISPLAY REG
(SP)+,a#6

BNE
MP
BEQ

208
#SENDAD, a#42
208

MoV

aSWR,STRTSW

BIT

#SWO00,STRTSW

TST8B

STRTSW

TYPE
JSR

ST
BEQ
CLR

BNE

SIF IT EXISTS AND NOT = -1 USE HARD SWR
TADJUST STACK

;

INITIALIZATION BEEN PERFORMED

BR IF YES
:IF ACT-T1 AUTOMATIC MODE, DON'T TYPE

JMTITLE
PC,CKSWR

;TYPE

7%
.+6
STRTSW

‘IS IT RUNNING IN AUTO MODE?
‘BR IF NO
*1F YES,
CLEAR SWITCHES

17%

‘BR 1 IF swoo-1

TITLE MESSAGE
:CHECK FOR SOFT SWR
sSTORE STARTING SWITCHES

:IF sw00=1,

:BIT7=177

QUESTIONS ARE ASKED.

0029(
2

08-JUN-78

CZKCGA. P11

781
782

783

784
785
786
787
788
789

(07:54
PAGE 18
08-JUN-78 07:53

002716
002720
002724
002726
002732
002734

BPL

001336

17%:

001336

001337
001446

013540
001506

33s:
30%:

16$%:

001446
000006

012704
010437
012437
001411
012437
012437
012437
104416
011074
000762
012700

KMACTYV

TYPE,
HALT

NOACT

BR
TSTB
BEQ

81718

27%:

21%:

001506
010073
002100
001276
001300

24$:

002100

.=2
SENV

sNO DEVICES SELECTED.
;STOP THE SHOW
DISQUALIFY CONTINUE SWITCH
IS IT UNDER APT DUMP MODE?
YES, CHECK IF APT SIZED IT?
IS 1T UNDER Q,V OR RUN MODE?
YES, NEEDS ONLY APT SIZING.
NO, NEEDS REGULAR AUTO.SIZE.
IS IT SIZED BY APT?
YES, NEEDS ONLY APT SIZING.
SIZE ONLY IN AUTO MODE.
GO LJ THE AUTO.SIZE.
GO PRINT THE MAP,
GO DO THE APT SIZING.
FIRST TIME?
:BR IF YES

30%
33%
$ENVM
308
#SW00,STRTSW
PC,AUTO.SIZE

BEQ

21%

BM]
BIT
BEQ
BR

1%
#BIT1!BIT2,STRTSW;1S TEST NO. OR LOCK SELECTED
24%
;IF NO THEN TYPE STATUS
1$
;IF _YES DO NOT TYPt STATUS

TYPE

. XHEAD

TSTB

coms

MOV

5%:

MoV

18:

MGV
MoV
CONVRY
XSTATQ
BR
MOV

001302
001304
001306

16%

27%
#1,8ENV

MOV
BEQ
MOV

16%
PC,APT.SIZE

INIFLG

STRTSW

INIFLG

#KM_MAP
R4

R4, $TMPO

(R&)+,$TMP1
1%
(R4)+,$TMP2
(RG)+ STMP3
(RG)+,$TMPS

#KM.MAP
RO

S IARARR AR A AR NN AN RN AR RN ARRR

0030(2

;BR _IF SW07=0
;ARE ANY DEVICES SELECTED?
;BR IF YES

BNE
BR
TSTB
BMI
BIC
JSR
BR
JSR
1ST8

001446

178

TST

BNE

010725

000001
012124

PAGF
:

PROGRAM INITIALIZATION AND START UP.

001470

000001

:IF USING SAME PARAMETERS DONT TYPE MAP

;SET FLAG
:TYPE HEADER
;SET POINTER
:SET ADDRESS
;SET CSR
sALL DONE IF ZERO

;SET STAT1
;SET STATZ2
;SET STAT3

;TYPE OUT STATUS MAP

;RO POINTS TO STATUS TABLE
RN A AANCARAAARRRAARNARRA
R AR AR RN AR AR AR RR R

;s*AUTO SIZE TEST
so*THIS TEST VERIFYS THAT THE KMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING
:;*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.
:2*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU.DUP,LK,DMC,DZ,KMC).
;;«IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KMCi1, THE FIRST

;2% KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT
;:*ADDRESS 760000.
AR

003106
003112
003116
003122
003126
003132
003134
003142

013746
013746
005037
005037
011037

001510
012737
012703

000004
000006
000006
001302
002066
003240
(00010

000N04

AR AR A AR

MOV
Mov
CLR
CLR
AUSTRT: MOV
BEQ
2%:
Mov
38:
MoV

AR AR R AN AR AR R R

N4, -(S?)
a#6,-(SP)
ané
$TMP2
(ROJ ,KMCSR
AUDONE
#NODEV,
ks
#10,R3

AR R R R AN AR R RN NN R AR

R RAARR

:SAVE LOC 4
JSAVE LOC 6
;CLEAR VEC+2
;CLEAR FLAG

JGET NEXT KMC CSR
;BR IF DONE
JSET UP FOR TIMEOUT

JR3 IS COUNT OF DEVICES BEFORE KMC

RRASR

841
842
843
844
845
846
847
848
849
850
851

003156
003160

003162
003164
003166
003170
003172
003174
003202
003204
003210
003212
003216

012702
012701
005711

PROGRAM INITIALIZATION AND START UP.

003342

4%:

160010

FLOAT:

111204

060401
005201
040401
005703
001371
012737
005711
020137
001403
062701
000771
062700
062701
011037
001447
000761

003244

000004

002066

000010
000010
002066

FY:

0K
:

NODEV:

001302

ERR:

104401

010756
012737
104417
003322

890
891
892

003350
003351
0033.2

TST
MOVB
ADD

Mov
TST

001460

#160010,R1
(R1)
(R2) ,R4
R4 ,R1
R1
R4 ,R1
R3
FLOAT

#ERR ,a#4
(R1)
R1,KMCSR
0K
#10.R1

#10.R0
#10,R1

TST
BNE

$TMP2
1%

RT1

TYPE

003244

#DEVTAB,R?2

CMp
BEQ
ADD
BR
ADD
ADD
MOV
BEQ
BR
CMPB

CONERR
MOV
CNVRT
ERRPC

104401

011023
012737
010137
104416
003330
104401
011044
022626
000737
000001
006
01460
000002
006
001264
006
002066
007
017
007
007
007
007
007
007
007

MoV
Mov

INC
BIC
TST
BNE

000010

122243

000002
005737
001014

(RO) ,KMCSR

AUDONE
FY

(R2)+,-(R3)

#ERR,SAVPC

TYPE

177777
001264

001302

1%:

3%:
4%:

002

004
002

PAGE : 0031C%

CNERR
MGV
MOV
CONVRT
CONTAB
TYPE
KMCM

cMP
BR
ERRPC:
1
BYTE
SAVPC
CONTAB: 2
.BYTE
$REG1
.BYTE

DEVTAB:

KMCSR
.BYTE

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

;R2 IS DEVICE TABLE PONTER

:START WITH ADDRESS 160010

s CHECK ADDRESS IN R1
:}z z? TIMEOUT, GET NEXT ADDRESS

;ANY MORE DEVICES

TO CHECK FOR?

;BR IF YES
;OK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT
;CHECK KMC ADDRESS
;DOES IT MAT(CH
;BR IF YES
sGET NEXT KMC ADDRESS
;D0 IT AGAIN
JSKIP TO NEXT KMC CSR
; GET NEXT KMC ADDRESS
. GET NEXT KMC CSR
. BRANCH IF ALL DONE.
. DO IT AGAIN.
;ON TIMEOUT, INC R2, DEC R3

;$LPADR
sCHECK FLAG IF = 0 TYPE HEADER
:SK]IP HEADER
;s TYPEOUT HEADER MESSAGE
s CONFIGURATION ERROR!!
1!
;SAVE PC FOR TYPEOUT
:TYPE OUT ERROR PC
;TYPE REST OF HEADER

#-1,8TMP2
R1,$REG"

:SET FLAG SO IT ONLY GETS TYPED ONCE
;SAVE R1 FOR TYPEOUT
sTYPE (SR VALUES

(SP)+,(SP)+
0K

6.2
6.4
I

839
840

003146
003152

08-JUN-78 07:53

837
838

PAGE 19

C(ZKCGA.P11

07:54

NNNNNNN—N

08-JUN-78

;ADJUST STACK
;BR TO GET oOUT

08-JUN-78

CZKCGA.PIT

893
894
895
896
897
898

07:54
PAGE 20
08-JUN-78 07:53

003354
003354
003360
003364
003372
003374

032737

001422
104401
005000
000000
027737
101404
104401
000000
000776
017737
013700
000000
012700
012701
010120
005021
022021
022700
001372

:
PAGE

PROGRAM INITIALIZATION AND STARTM UP.

003354
012637
012637

.EVEN

000006
000004
000010

0C1446

010013
175630

:
AUDONE
1$:
MOV
MOV
BIT
BEQ

TYPE

207666
175610
001470

BLOS

ASWR, SAVACT
2§

TYPE
HALT

001470

0003C0
000302

28:
3%:
48:

B8R

MOV
MOV

HALT

,MERR3

SSWR,KMACTY
KMAC TV, RO

MOV
MOV
MOV
CLR

#300,R0
#302.R1
R1, (RO) +
(Ri)+

TMP
BNE

#1000.R0
4

001009

,MNEW

CLR

HALT
CMP

001474

(SP)+,a46
(SP)
+ . a#6
#SW03.STRTSW
38

(RO)+, (R1)+

JRESTORE LOC 6
JRESTORE

LOC 4

JSELECT SPECIFIC DEVICES??
;BR IF NO.

:TYPE THE MESSAGE.

;ZERO DATA LIGHTS

;WAIT FOR USER TO TELL WHAT DEVICES TO RUN

;IS THE NUMBER VALID?
;BR IF NUMBER IS OK.
;TELL USER OF INVALID NUMBER.
;STOP EVERY THING.

;RESTART THE PROGRAM AGAIN.
;GET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
SCONTINUE DYNAMIC SWITCHES.
;PREPARE TO CLEAR THC FLOATING
;VECTOR AREA. 300-776
;START PUTTING 'PC+2 ~ HALT"
. IN VECTOR AREA.

;POP POINTERS

sALL DONE??
:BR IF NO.

:TEST START AND RESTART
003464
003474
003500
003502
003510
003514
003516
003522
003524
003530
003534
003540
003544
003546
003550
003554
003560
003564
003566
003572

003574

003610
003612
003616
003624
003626

012706
013746
013746
005000
012737
005037
005720
022700
001374
162700
010037
012637
012637
000413
022626
162700
162700
022700
001361
012700
000756
012737
032737
001406
104401
012737
000403
013737

001200
000006
000004
003546
000006

.BEGIN: MOV

MOV

000004
68:

157776
007776
001466
000004
000006

7%:

28:

000004
007776
030000

cMP

177776
001446

007712
000240

004146

004354

004146

108:

RO
#28,ans
ane
(RO)
+

#157776.R0

63
#7776,R0
RO, MEMLIM

BR
cMP
SUB

108
(SP)+, (SP)+
#4 RO

MOV
MOV

BNE
MOV
BR

MOV

(SPY+, a4
(SP)+. 346

sSAVE LOC 4
JSTART AT 0
;SET UP FOR TIME OUT
;TO AUTOSIZE MEMORY
2 CHECK ADDRESS IN RO
;IS IT AT LEAST 28k
:BR IF NO

;SAVE 2K FOR MONITORS

;STORE MEMORY LIMIT
;RESTORE LOC 4
JRESTORE LOC 6
; CONT INUE
;ADJUST STACK
;GET LAST GOOD ADDRESS

;SAVE 2K FOR MON]TORS
;1S IT 8K?
;BR IF NO
JIF 8K DON'T SAVE 2K

#340,PS

sLOCK OUT INTERRUPTS
sCHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
sTYPE LOCK SELECTED.

7%
#37400,R0
78

#BIT2,STRTSW

TYPE
MOV

,MLOCK
#NOP, TTST

MOV

BRW, TTST

:SET UP STACK
:SAVE LOC 6

#7776 RO
#30000.
R0

BIT

BEQ

1$:

. ~(SP)

BNE
SuB
MoV

SUB
TMP

037400
000340
000004

CLR
MOV
CLR

#STACK,
SP

6.~ (3P)

JSET UP TO LOCK
s CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE

0032(2

08~JUN-78

C(ZKCGA.P11
949
950

951

952
953

07:54

003634
003642

003650

003652
003656

PAGE 21

08~JUN-78 07:53
012737
032737

011474
000002

104401
000177

007636
175324

001002

PAGE:

PROGRAM INITIALIZATION AND START UP.
001206
001446

3%:
4%

5%:

MoV
BIT

#CYCLE,SLPADR
#S5W01,STRTSW

TYPE
JMP

.MR
d$LPADR

BNE

;START AT ''CYCLE'' FIND WHICH DEVICE TO TEST
;IS TEST NO. SELECTED?

;JBR IF YES
;TYPE R

:START TESTING

0033C2

07:54
PAGE 22
08~JUN-78 07:53

END OF

PAGE :

PASS ROUTINE

954
955
956
957

;END OF PASS
;TYPE NAME OF TEST
;UPDATE PASS COUNT
sCHECK FOR EXIT TO ACT-11

JRESTART TEST

.SBTTL

END OF

PASS ROUTINE

R NI
I
TM

;*INCREMENT THE PASS NUMBER ($PASS)
;*1F THERES A MONITOR GO T0 IT
;*IF THERE ISN'T JUMP TO CYCLE

104401
104417
104401
104417
104401

104417

013700
013720
013720
013777
005077
013777
005077
005337
001035
112737
013737
005037
005037
005237
042737
005327
000001
003013
012737
000001
004046
013700
001405
000005

004710
000240

000240
000240

000137

001324
001203
007614
007741
004104
007747
004112
007755
004120
007766
004126
001504

INC
CLRB

TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE

CNVRT

TYPE

001324

001212
002060

176072
002064
176064

176074
176066

001476

000377
001472
001216
001310
001324
100000

001511
001476

001324
$EOPCT:
$ENDCT:

000042

RESET

$GET42:
$ENDAD
:

$DOAGN:

CNVRT
MOV
MOV
MOV
MOV
CLR
MGV
CLR
DEC
BNE
MOvVB
MOV
CLR
(LR
INC
BIC
DEC
.WORD
BGT
MOV
. WORD
SEOPCT
MoV
BEQ
RESET
JSR
NOP
NOP
NOP

JMP

$PASS
$ERFLG

.MEPASS
~MCSRX
.XCSR
~MVECX
.XVEC

-MPASSX

»XPASS
+MERRX
. XERR
MILK RO
$PASS, (RO) +
SERTTL, (RO) +

KMRL VL , aKMRVEC
akKMRLVL
KMTLVL ,@KMTVEC
aKMTLVL
SAVNUM

$DOAGN
#377 ,QV.FLG

KMNUM, SAVNUM
SERRPC
STIMES
$PASS
#100000,$PASS
{PC)+

.
.
:

INCREMENT THE PASS COUNT
CLEAR ERROR FLAG
TYPE END PASS.

;
;

TYPE "'CSR'’
SHOW IT.

TYPE '® PASSES '

. TYPE VECTOR.
; SHOW IT.
. SHOM IT.

; TYPE ' ERRORS '’

;
;.
;
;
;

104417

$EOP:

P W

000005
005237
105037
104401
104401

LRI

08-JUN-78

CZKCGA.PT

SHOW IT.
SET POINTER TO PASSCNT.
SAVE THE PASS COUNT.
SAVE ERROR COUNT
RESTORE THE RECEIVER INTERRUPT VECTOR.

RESTORE RECEIVER LEVEL
RESTORE THE TRANSMIT INTERRUPT VECTOR.
RESTORE TRANSMITTER LEVEL
ALL DEVICE TESTED?
BRANCH IF NO.
SET QUICK VERIFY FLAG.

; RESTORE DEVICE COUNT.
. CLEAR LAST ERROR PC
;;ZERQO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER

::Egg;; ALLOW A NEG. NUMBER

$DOAGN
%PC)+,3(PC)4

s YES
;cRESTORE COUNTER

a4l RO
$DOAGN

;:GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR

PC, (RO)

;:G0 TO MONITOR
;¢ SAVE ROOM
;:FOR

;sCLEAR THE WORLD

JACTN
a(PC)+

. :RETURN

0034(A

08~JUN-78

CZKCGA.PTT
10710
1011

1012

1013
1014
1015

07:54

PAGE 23

08-JUN-78 07:53

004102
004104

011674
000001

004110
004112
004114

002066
000001
004

004106

006

005037
023716
001413
000406
105777
100065
017766
032777
001056

}82?

004174

000416

1052
1053
1054
1055
1056
1057
1058
1059

004176
004202
004210
004214
004220
004222
004224
004230

013746
012737
005737
012637
000436
022626
012637
000437

000004
004222
177060
000004

1061
1062
1063
1064
1065

004232
004236
004240
004244
004250

105737
001404
105037
005037
032777

001203

002056
000001
006
001324
000001
006
001212

XVEC:

002

004134
004134
004140
004144
004146
004150
004154
004156
004164
004172

004116
004120
004122
004124
004126
004130
004132

$RTNAD:
XCSR:

002

1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
}828

:
PAGE

END OF PASS ROUTINE

XPASS:

002

XERR:

002

iUORD

CYCLE

.BYTE
#MCSR

6.2

.BYTE

4,2

.BYTE
?PASS

6.2

BYTE
$ERTTL

6.2

?MRVEC

:SCOPE LOOP AND INTERATION HANDLER
Y

.SBTTL
AR

SCOPE HANDLER ROUTINE
AN

ARAR AN AR A AR

AR N KEARRRARAAANRARA
KA AR A AR
ANAR
KRN R

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTQ THE DISPLAY REG.(DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG ‘SERFLG) INTO DISPLAY<15:08>

s*THE SWITCH OPTIONS PROVIJDED BY THIS ROUTINE ARE:
FxSW14=1
LOOP ON TEST
:*SW11=1
INHIBIT ITERATIONS
s~CALL

$SCOPE:

001216
013764

TIST:

175070

175064
040000

177776
175046

1$%:

SCOPE

CLR
cvP
BEQ
BR
TSTR
BPL
MOV

BIT

BNE

JMANMNSTART OF

$XTSTR: BR

000004

5%:

000004

001203
001310
004000

MOV
MOV
TST
MOV
B8R

;;SCOPE=]0T

SERRPC
TST1+2, (SP)
¥§rsra

asTKS

* KEYBOARD DONE ?

as$7kB,~2(SP)

$OVER

#BIT14,aSWR
$OVER

:
P

CLEAR LAST ERROR PC
IS THIS TEST #1 2
IF SO DON'T LOOP.

IF NO DONT WAIT.

;.LOOP ON PRESENT TEST?
;. YES IF SW14=1

ngE FOR THE XOR TESTERNNANN
S#ERRVEC,~(SP)

#58 .NERRVEC

an177060

(SP)+ ,@#ERRVEC

$SVLAD

(SP)+, (SP)+
(SP)+ ,@#ERRVEC

;<
1F RUNNING ON THE "XOR'® TESTER CHANGE
ssTHIS INSTRUCTION TO A "NOP'' (NOP=24V)

;;SAVE THE CONTENTS OF THE ERROR VECTOR

;:SET FOR_TIMEOUT

$:TIME OUT ON XOR?

:-RESTORE THE ERROR VECTOR

$:GO TO THE NEXT TEST

;s CLEAR THE STACK AFTER A TIME OUT
; RESTORE THE ERROR VECTOR

MOV
BR
$SOVER
;.LO0P ON THE PRESENT TEST
08 : ; MNNRREND OF CODE FOR THE XOR TESTERANNAN
2$:
TST8B
$ERFLG
; cHAS AN ERROR OCCURRED
4%
174762

3%:

BEQ

(LRB
CLR

BIT

3¢

$ERFLG
$TIMES

#BIT11,3SWR

;:BR IF NO

;s ZERO THE ERROR FLAG
;. CLEAR THE NUMBER OF ITERATIONS TO MAKE

;. INHIBIT ITERATIONS?

0035(2

08~JUN-78

CZKCGA.P11

1066

1067

07:54

004256

004260

PAGE 24

08-JUN-78 07:53

001011

005737

1068

004264

001406

1070
1071
1072
1073
1074
1075

004272
004300
004302
004310
004316
004316

023737
002013
012737
013737

1069

1076

1077

1078

1079
1080
1081
1082
}ggz

004266

004324

004330

004336

004342
004346
004352
004354
004356

005237

113737

011637

013777

013716

005037
013701
000002
000406
000020

BNE

001324

001204

TST

BEQ

001310

001204

000001
004356

001204
001310

001202

001206

INC

::BR IF YES

S$ICNT

;.
IF FIRST PASS OF

PROGRAM

INHIBIT ITERATIONS

;; INCREMENT ITER TION COUNT

001322

$TIMES,SICNT
$OVER
#1,8ICNT
SMXCNT,STIMES
STSTNM
STSTNM,_STESTN

174704

$OVER:

$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER

001444
002066

MOV

CLR
MOV
RT1
BRW:
.WORD
SMXCNT: 20

;;CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
J:REINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF [TERATIONS TO DO
;:COUNT TEST NUMBERS
. ;SET TEST NUMBER IN APT MAILBOX

(SP) ,SLPADR

::SAVE SCOPE LOOP ADDRESS

$LPADR, (SP)

;:FUDGE RETURN ADDRESS

LOCK
KMCSR,R1

004360
004364

1091
1092
1093
}8315.

004374
004400
004402
004406

004372

004737
032777

011226
001000

; RESET LOCK ON DATA.
; R1 CONTAINS BASE KMC ADDRESS.

406
;:MAX. NUMBER OF ITERATIONS

005737
001402
013716
000002

001444

001405

001444

FTmm

174646

.SCOP1: JSR
BIT

BEQ

1%:

1096

TST
BEQ
MOV
RTi

PC,CKSWR
#SW09, asWR
1%
LOCK
1%
LOCK, (SP)

;CHECK FOR SOFT SWR
;IS SW09=1(SET)?
:BR IF NOT SET.

;GOTO THE ADDRESS IN LOCK.
;GO BACK.

;TELETYPE OUTPUT ROUTINE

1097

1098
}?gg

.SBTTL

1101

,';ttttt*ttt*tttttttttttttfittt*tttttttttttrttttttt*tttttttittttttt

1102
1103
1104
1105

;*NOTE3:

1108

;=xCALL:

;*1) USING A TRAP INSTRUCTION

}}%9

:*OR

TYPE

. MESADR

;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

;:1S THERE A TERMINAL?
;:BR IF YES
;:HALT HERE IF NO TERMINAL
s s LEAVE
;:SAVE RO
;.GET ADDRESS OF ASCIZ STRING

1112
1113

1119
1120
1121

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

- %

1109

TYPE ROUTINE

J*ROUTINE TMTM TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

}}89

1116
1117
1118

0036(2

;CHECK FOR FREEZE ON CURRENT DATA

1088
1089
1090

$PASS

CMP
BGE
1%:
MOV
MOV
S$SVLAD: ;INCB
MOVB

1085

1083

PAGE:

SCOPE HANDLER ROUTINE

004410
004414
004416

004420
004422
004424

105737
100002
000000

000430
010046
017600

001257

000002

J*
I

TYPE
ME SADR

$TYPE:

TSTB
BPL
HALT
B8R
MOV
MOV

1%:

3%
RO,-(SP)
a2(SP) RO

08-JUN-78
b

2 5B EIR AR

{
NN

VR NR AR AR S SVB N

NN NANVNWVNIVWNE
D NSNS
DW

d —d ed md D od d e oD
b e
D
e
b e
d
D e
h e

004430
004436
004440
004446
004450
004454
004460
004462
004470
004472
004474
004476
004500
004502

122737

000001

001336

132737
001405
010037

000100

001337

001011

004737

000000
132737
001003

004460
001337

61%:

MOV
ADD

000011

4%:

001254

105366

000001

62%:

. WORD

60%:
3s:

000200

004666
004622
001256

5%:
6%:

7$:

004622
004666

BNE
TST
RTI

cMP8
BEQ
CMPS
BNE
TST
TYPE
$CRLF
CLRB
BR

JSR
cMPB

BNE
MoV

DECB
BLT
JSR
DE(B
B8R

62%

;JRUNNING IN APT MODE
:sNO,GO CHECK FOR APT CONSOLE

62%

;:NO,GO CHECK FOR CONSOLE

#APTSPOOL
, $ENVM ; ;SPOOL MESSAGE

RO,618

#APTCSUP, SENVM

60%

(RO)+,-(SP)
4%
(SP)+
(SP)+ RO
#2,(SP)
#HT, (SP)

#CRLF, (SP)

5%
(SP)+

$CHARCNT

PC,$TYPEC
$FILLC,(SP)+

S$NULL
.~ (SP)

1(SP)

PC,STYPEC
$CHARCNT
7%

TO APT

2 ;SETUP MESSAGE ADDRESS FOR APT
. :SPOOL MESSAGE TO APT
. sMESSAGE ADDRFSS
;:APT CONSOLE SUPPRESSED
;:YES,SKIP TYPE 0OUT
;;PUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATOR
;:IF TERMINATOR POP IT OFF THE STACK
;;RESTORE RO
;JADJUST RETURN PC

: JRETLRN

; :BRANCH [F <HT>
:+BRANCH IF NOT <(CRLF>

;:POP
<CR><LF> EQUIV
;:TYPE A CR AND LF

;;CLEAR CHARACTER COUNT
;.GET NEXT CHARACTER
:.GO TYPE THIS CHARA(TER
;;IS IT TIME FOR FILLER CHARS.?
;s1F NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED
:sAND THE NULL CHAR.
;;DOES A NULL NEED TO BE TYPED?
;;BR IF NO--GO POP THE NULL OFF OF STACK
;:60 TYPE A NULL
;DO NOT COUNT AS A COUNT
;.L00P

cHOR1ZONTAL TAB PROCESSOR
112716

000040
004622
000007

) D
D
b e cd b d

8C.$ATY3

000002

001005
005726
012600
062713
00000
122716
001430
122716
001006
005726
104401
001313
105037
000755
004737
123726
001350
013746

000002
000015

b e

JSR

2%:

174422

e ard e d

#APTENV ,SENV

BI1TB
BNE
MOVB

112046

002770
004737
105337
000770

CMPB
BNE
BITB
BEQ

MOV

004700

000040

:
PAGE

TYPE ROUTINE

004666

d wd

NNNNNNNNVNOROPRORO

b b ed

07:54
PAGE 25
08-JUN-78 07:53

Xm0

e
D ord

D ed
D
D
d
d
ed md
e cand e

b )

)

-—l-l-—)—J—l—i—l—i—l—‘-—‘-—l.fl—l—‘—l—fl—l—l—l-—l—l—l—d_fi—)—l—l—J—l—l—l—l-—‘—‘—l—a-—)—l—a—l_&—fl_}—d_‘—d—l —

e caad cd crd

LS PR IR

CIKCGA.PN

174414
000002

004666
000012

000002

8%:
9% :

MOVB
JSR
BITR
BNE

TST
8R
$TYPEC
TSIB
8PL
MOVB
(MPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHAR:CNT
. WORD
$TYPEX: RTS

#' ,(SP)
PC,.STYPEC

s;.SCHARCNT
(SP)+

Fé3

asTPS
$TYPEC

2(SP) ,asTPB

ng.Z(SP)

S$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+
0

;;REPLACE TAB WITH SPACE
::TYPE A SPACE
. cBRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
. <GET NEXT CHARACTER
JsWAIT UNTIL PRINTER IS READY
;;LOAD CHAR TO BE TYPED INTO DATA REG.
;.1S CHARACTER A CARRIAGE RETURN?

; ;BRANCH IF NO
::g;?;—CLEAR CHARACTER COUNT

;. 1S CHARACTER A LINE FEED?
; ;BRANCH IF YES
. COUNT THE CHARACTER
;. CHARACTER COUNT STORAGE

08-~-JUN-78

CIKCGA.PI1T

07:54

PAGE 26

08-JUN-78 07:53

}};g

SBTTL

1]80

1181

1182

1183

1184
1185

1186
1187
1188
1189
1190

1191

1192
1193

004672

004700

004706

004710
004716

004716
004720

004722
004726
004730

004736

1197
1198

004766
004770

1200
1201

004776
005000

1199

1202

SATY3:

112737

000001

005136

SATY4:
$ATYC:

000403

010046
010146

105737
001450
122737

001031

062766

004762

004774

005004

005134
000001

001336

000100

001337

017600

000004

005737

001316

001375
010037
105720

001376
163700

006200

000002

000004

001332

001334
000004

001316

000004

005046

1208

005036

013746

177776

1209

1210
1211
1212

1213

1214
1215

1216
1217
1218
1219
1220

1221
1222
1223

1224
1225

1226

1227
1228
1229

1230

1231
1232
1233

005042

005046
005050
005050

005054

005056
005062

005064
005070
005072
005100
005106

005112
005116
005122

062766

004737

000000

105737

001416

005737
001413

005737
001375
017637
062766
005237

105037
105037

105037

005126
005130

012601
012600

005134
005135
005136

000
000
000

005132

000207

005140

000200
000001
000100

000002

000004

004410

3s:

48
5%
108:

005136
001336

001316
000004
000002
001316

005136
005135
005134

MOVB

#1,$FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV

RO,=-(SP)
R1,~(SP)

;;PUSH RO ON STACK
$:PUSH R1 ON STACK

SYIF NOT:

B8R

11$:
001320
000004
12%:

$MFLG:
SLFLG:
$FFLG:

SATYC

SMFLG
S$
FAPTENV,SENV

;sSHOULD TYPE A MESSAGE?
*:IF NOT:
BR
::OPERATING UNDER APT?

NAPTSPOOL,SENVM ::SHOLLD SPOOL MESSAGES?
3
::IF NOT:
BR

MOV

34 (SP) ,RO

;:GET MESSAGE ADDR.

TST

SMSGTYPE

::SEE IF DONE W/ LAST XMISSION?

(RO +

::FIND END OF MESSAGE

ADD

BNE
MOV

TSTR

#2,4(SP)

1$
RO, SMSGAD

; :BUMP RETURN ADDR.

SIIF NOT: WAIT
::PUT ADDR IN MAILBOX

BNE
Sus

2%
$MSGAD RO

MOV
MOV
B8R
MOV

RO, SMSGLGT
#4 . SMSGTYPE
5
34 (SP) .48

::PUT LENGTH IN MAILBOX
S:TELL APT TO TAKE MSG.

MOV

177776.,-(SP)

::PUSH 177776 ON STACK

ASR

010037
012737
000413
017637

::TO REPORT FATAL ERROR

;:T0 TYPE A MESSAGE

BIIB
8EQ

1¢:

#1.$FFLG

1, SMFLG

BNE

001332

005006
005012
005020
005022

005030

MOVB

T7ST8
BEQ
CMP8

2s:

1203
1204
1205
1206
1207

SATY1:

005134

004754

1196

005136

000001

132737
001425

004750

000001

APT COMMUNICATIONS ROUTINE

;'-ttfl'tttttttttttttttttttttttttttlttttttttttttttttttntttttt-tttttt

112737

004740
004746

1194

1195

1157;7

PAGE:

APT COMMUNICATIONS ROUTINE

ADD

JSR

#2,4(SP)

PC,S$TYPE

::SUB START OF MESSAGE

;:GET MESSAGE LNGTH IN WORDS

;:PUT MSG ADDR IN JSR L INKAGE

- -BUMP RETURN ADDRESS

1:CALL TYPE MACRO

.WORD

TS18

$FFLG

ST
BEQ

SENV
12%

::RUNNING UNDER APT?
S:IF NOT:
BR

S$FFLG
SLFLG
SMFLG

S:CLEAR FATAL FLAG
;:CLEAR LOG FLAG
1:CLEAR MESSAGE FLAG

BEQ

128

2 sSHOULD REPORT FATAL ERROR?

::IF NOT:

ST
BNE
MOV
ADD
INC

$MSGTYPE
118
@4 (SP) ,$FATAL
#2.64(SP)
SMSGTYPE

MOV
MOV

(SP) +,R1
(SP)+,R0

;:POP STACK INTO R1
*:POP STACK INTO RO

0
0
O

1 :MESSG. FLAG
1:LOG FLAG
P:FATAL FLAG

CLRB
CLRB
CLRB

RTS

.BYTE
.BYTE
.BYTE

.EVEN

APTSI2E=200
APTENV=001
APTSPOOL=100

;sFINISHED LAST MESSAGE?
SIIF NOT: WAIT
::GET ERROR #
::BUMP RETURN ADDR.
:;TELL APT TO TAKE ERROR

: RETURN

0038(2

08~JUN-78

P M-IV
SOEIRAR

CZKCGA.PI

07:56

PAGE 27

08-JUN-78 07:53

APT

000040

D ad i gd

APTCSUP=040

—b

X 2F oF 3 ¥ 2 ¥ 8
NOWN
S NN = OV~
NN —
AN
N VI ol 2

d e

D e

D i e

NN NN NN AINNNS

pnd e
e e

.ENABL

LSB

.DSABL

LSB

INPUT RNUTINE

;*THIS ROUTINE WILL

s*CALL:

005202

005206
005210
005214
005220
005224
005226
005230
005236
005240

005246

005250
005256

011646
016666
105777
100375
117766
042766
026627
001013

105777

100375
117746
042716
022627
001366
000750
026627
002407
026627

003003

042766
000002

RDCHR

174064
177600

000004
000004
000023

1S18B
BPL

98TKS
1%

BIC
P

NAC<177>,4(SP)
4(SP) ,#2%

000004

174036

MOVB

B8NE

000004

000140

000004

000175

000040

000004

@$TKB,-(SP)

BIC

#AC177,(SP)

BNE

cMP
BLT

4(SP) 4140
4%

86T
8IC
RT1

4%
#40,4(SP)

4%:
AN

:;BRANCH IF NO

MOVB

B8R

3s:

AR R RAN A AN AN

¥
i
;%

1288
1289

005262
005264
005270
005274
005276

005302
005306

010346

005046
012703
022703

1
122713
001022

005514
005523

000177

$:LOOP UNTIL ITS THERE
Y:GET CHARACTER

YIMAKE IT 7-BIT ASCII

$:1IS IT A CONTROL-Q?

;;YES, RESUME

4(SP) ,.m75

5.1S IT A SPECIAL CHAR?

;:1F NOT DISCARD IT

::1S 1T UPPER CASE?
;;BRANCH IF YES

; BRANCH IF YES
;sMAKE IT UPPER CASE
..G0 BACK TO USER

RN RN NAARARARARA AR AR RARN AR AN RN A AR ARARRN AR

;o INPUT A STRING FROM THE TTY
; sADDRESS OF FIRST CHARACTER WILL BE ON THE STAC
;s TERMINATOR WILL BE A BYTE OF

1%:

MOV

MP
BLOS

#STTYIN,R3

#STTYIN+7 ,R3
4%

;sGET ADDRESS

;sBUFFER FULL?
;:BR IF YES

10%:

MOVB
CMPB

(SP)+,(R3)
¥177,(R3)

::GET CHARACTER
;oIS 1T A RUBOUT

~-(SP)

INPUT A STRING FROM THE TTY

2 :SAVE R3

BNE

OFF

“WAIT FOR A CHARACTER

R3,-(SP)

RDCHR

TTY

:-GET RID OF JUNK IF ANY
XIS IT A CONTROL-S?

$SRDLIN: MOV

2$:

STRIPPED

(SP)+,#21

RDL IN
RETURN HERE

CLR

STACK

. .PUSH DOWN THE P(
. :SAVE THE PS

@$TKB,4(SP)

as$TKS

cTMP

BIT

;:WAIT FOR
;. cA CHARACTER
;;READ THE TTY

TSTB

BPL

174032
177600
000021

(SP) ,-(SP)
4(SP) ,2(SP)

;*THIS ROUTINE WILL

005260

;.WITH PARITY

$RD{HR: MOV
MOV

. *CALL:

1282
1283
1284
1285
1286

;. CHARACTER IS ON THE

000002

1%:

TTY

;o INPLT A SINGLE CHARACTER FROM THE

000004
174070

1281

INPUT A SINGLE CHARACTER FROM THE

RETURN HERE

o %

1272
1273

TTY

;"it.ifi.tt.t*t..""Qtt'l.i!tttfi'ttt'.tt..‘tfittttttt.ttttltt.'itt!

005172
005200

1271

0039(2

.'.'itfi..*iti'tt'l"tfitifil"fitfi.tttttttfittfi.tt.t.t..fi't....QQQQ.!'QQ

1259
1260

1262
1263
1264
1265
1266
1267
1268
1269
1270

PAGE :

COMMUNICATIONS ROUTINE

LSBTTL

005140
005142
005150
005154
005156

1261

ALL 0O'S

;:CLEAR THE RUBOUT KEY

2:G0 READ ONE

J:BR IF NO

CHARACTER FROM THE

TTY

08~JUN-78

CZKCGA.P11
1290
1291
1292
1293

1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311

1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332

1333
1334
1335
1336
1337
1338
1339
}332(1)
13‘2

1343
1344
1345

07:54

005310

005312
005314
005322

005326
005232
005334
005340
005342
005346

005352
005354
005356
005360
005366
005372
005374
005400
005402
005406
005410
005414

005416
005420
005424
005430
005432
005436
005440
005444
005450
005454
005456
005462
005466
005470
005472
005474
005502
005510
005512
005513
005514

005523
005530
005535
005542
005546
005554

PAGE 28

08-JUN-78 07:53
005716

001007
112737
104401

012716
005303
020327
103434
111337
104401

000746
005716
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013
104401
104401
000717
104401
000712

111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000007

136
043536
015
036440
020040
020075
005560

TST

000134
005512
177777

BNE
MOVB
TYPE

005512

6%:

005514

005512
005512
58:

000134
005512

005512

000025

7%:

005523
000022

8%:

001313
005514
001312

48:

005512
005512
000015

3%:

177777
001314

000004
005514

006525
005015
051412
000040
042516
000

PAGE:

TTY INPUT ROUTINE

000002
200004

000012
€00
(51127
020127

(SP)

;.15 THIS THE FIRST RUBOUT?

6%
#'\,9%
,9%

;:BR IF NO
;. TYPE A BACK SLASH

MoV
DEC
CMP
BLO
MovB
TYPE
BR
TST
BEQ
MOVB
TYPE
CLR
CMPB
BNE
TYPE
BR
CMPB
BNE

#-1,(SP)
R3
R3,#STTYIN
4%
(R3),9%
9%
2%
(SP)
7%
#'\,9%
.98
(SP)
#25,(R3)
8%
L SCNTLU
1%
#22,(R3)
3%

MovBe
TYPE
M8
BNE
CLRB
TYPE
TST
MOV

(R3),98
9%
#15,(R3)+
23
~1(R3)
LSLF
(SP)+
(SP)+,R3
(SP) ,~(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

CLRB
TYPE
TYPE
BR
TYPE
BR

MOV
MOV
Mov
RTI
9%:
BYTE
.BYTE
STTYIN: .BLKB

(R3)
.SCRLF
LSTTYIN
2%
. SQUES
1%

;. SET THE RUBOUT KEY
;.BACKUP BY ONE
;. STACK EMPTY?
;sBR_IF YES
;2SETUP TO TYPEOUT THE DELETED CHAR.
;:G0 TYPE

;G0 _READ ANOTHER (HAR.
;sRUBOUT KEY SET?
;:BR IF NO
;. TYPE A BACK SLASH

;o CLEAR THE RUBOUT KEY
;:1S CHARACTER A CTRL U?
::BR IF NO
;. TYPE A CONTROL 'V’
;.60 START OVER
;:1S CHARACTER A '““R'%?
: :BRANCH IF NO

;:CLEAR THE CHARACTER
;.TYPE A ''CR'' & "LF'*
;. TYPE THE INPUT STRING
;.60 PICKUP ANOTHER CHACTER
s:TYPE A '2°
;. CLEAR THE BUFFER AND LOOP

:cECHO THE CHARACTER

:sCHECK FOR RETURN
::LOOP IF NOT RETURN
:sCLEAR RETURN (THE 15)
;.TYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE STACK
; ;RESTORE R3

:;ADJUST THE STACK AND FUT ADDRESS OF
]
FIRST ASCII CHARACTER ON IT

$CNTLU:
SCNTLG:
SMSWR:

LASCIZ
.ASCIZ
.ASCIZ

s sRETURN
O
;s STORAGE FOR ASCII CHAR. Y0 TYPE
O
;s TERMINATOR
7
;cRESERVE 7 BYTES FOR TTY INPUT
/*U/<15><12>
< ;CONTROL 'U°!
/°G/<15><12>
;- CONTROL ''G"’
<153<12>/SWR = /

SMNEW:

.ASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

e KRR AR RN AR AT AT

NEW =/

ARRANRNRRRARRE AR RARRARAR AR AR ARN RN ENRRR AR AR N A&

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE 1T TO BINARY,
;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

THE

0040(2

08-JUN-78
CZKCGA P11

READ AN OCTAL NUMBER FROM THE

;*THEN BE RETYPED. THE
;*CALL:
%
RDOCT
- X
RETURN HERE

INPUT

[S TERMINATED BY TYPING A CARRIAGE RETURN.

;;READ AN OCTAL NUMBER
;;LOW ORDER BITS ARE ON TOP OF THE STACK
;:HIGH ORDER BITS ARE IN $4IOCT

. %

005644
005646
005652
005654
005656

010037
005001
005002

112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
105010
104401
000000
104401
000730
000000

000004

000002

$RDOCT: MoV

1%:

005706

(RO +,~(SP)
3s

MovB

BEQ
MR8
8GT
cMPB
BLT

000060

000067

000012
005716

001312

ASL
ROL
ASL
ROL
8IC
ACD
BR
3s:
TST
MOV
MOV
MOV
MoV
MOV
RTI
4%:
TST
CLRB
TYPE
5%:
. WORD
TYPE
8R
$HIOCT: .WORD

000002
005764
006044
006046

—

. :PICKUP THIS CHARACTER
;o IF ZERO GET OUT
. sMAKE SURE THIS CHARACTER
;s IS AN OCTAL DIGIT

#'0,(SP)
A3
#'7.(SP)
4%
R1
R2
R1
R2
R1
R2
#4C7,(SP)
(SP)+ R1

ASL
ROL

177770

;:PROVIDE SPACE FOR THE
.« INPUT NUMBER
. +PUSH RO ON STACK
. ;PUSH R1 ON STA(CK
;;PUSH R2 ON STACK
;sREAD AN ASCIZ LINE
. .GET ADDRESS OF 1ST CHARACTER
. ;AND SAVE IT
.. CLEAR DATA WORD

(SP)+,R0
RO,5%
R1
R2

CLR
CLR

2%:

;
010546
016605
012537
012537
012537

(SP) ,=(3P)
4(SP) ,2(SP)
RO,~(SP)
R1.-(SP)
R2,~(SP)

Mov
MoV
MOV
MoV
RDLIN
MOV
MOV

so%2
1

s:%8
;:STRIP THE ASCII JUNK
;J:ADD IN THIS DIGIT
;.L00P
. CLEAN TERMINATOR FROM STACK
;+SAVE THE RESULT

(SP)+
R1,12(SP)

R2,SHIOCT

(SP)+,R2

;.POP STACK INTO R2
22POP STACK INTO R1

(SP)+ ,R1
(SP)+ R0

;sPOP STACK INTO RO

. ;RETURN
;s CLEAN PARTIAL FROM STACK
;:SET A TERMINATOR
s TYPE UP THRU THE BAD (CHAR.

(SP)+
(RO)

;:Il?.'

. SQUES
1%

..chl

.lF..

;:TRY AGAIN

;HIGH ORDER BITS GO HERE

INPUT OCTAL N_MBER ROUTINE

$INPUT: MOV
MOV
MOV
MoV
MoV

RS,=(SP;
2(SP) ,RS

(RS) +,WHAT

(R5)+,L0LIM
(RS)+,HILIM

005636

005640
005642

011646
016666
010046
010146
010246
104403
012600

005569
005562
005570
005572
005574
005576
005600
005602
005606
005610
005612
005614
005616
005622
005624
005630
005632
005634

2LEEL REBH

OV~
oy

:
PAGE

TTY

o*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'‘ WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

uuxuuugf

WO OO~ YV R VLN
)Y, |

1346
1347
1348

_l—l—d—-l—l—l_‘-—)—d—l—l—d_l—l—l—l.—l—l—ld—l—‘ —
NW
NN
NN N NN
~N
ViAW VL IVAVIV VIV

07:54
PAGE 29
08-JUN-78 07:53

SAVE REGISTER RS.
GET FIRST PARAMETER ADDRESS.
GET MESSAGE ADDRESS.
GET LOW LIMIT FOR THE
#

GET HIGH LIMIT FOR THE #.

0041C2

(7:54
PAGE 30
08-JUN-78 07:53

005742
005746
005752
005756

005762
005764
005766

005770
005774
005776

012537
112537
112537
010566

104401
000000
104404

READ AN OCTAL

006050
006052
006053
000002

INLP1:

WHAT :

006046

(R5)+,WHERE
(RS)+,LOBITS
(R5)+ ,ADRCNT
R5,2(SP)

.WORD
RDOCT

B8GT

; READ OCTAL # FROM KEYBOARD.
;. IS IT IN HIGH LIMIT?
; BRANCH IF NO.

B8GE

* BRANCH If YES.

TYPE

CMP

2%:

001313
006050

3s:

4%:

000002
006053

013716
005037
000002

001442
001444

;

(SP) ,HILIM

SAVE THE RETURN ADDRESS.
TYPE

LSCRLF

;
Y

TYPE
TYPE

MOV

WHERE ,R5

* GET BUFFER ADDRESS.

ADD

#2,(SP)

* NEXT SEQUENTIAL NUMBER.

BNE
TST
MOV
RTI
_WORD
.WORD
.WORD
.BYTE
BYTE

4%
(SP)+
(SP)+,RS

: BRANCH IF NOT DONE.
: POP THE STACK POINTER.
;; POP THE REG.S

TYPE

MOV

.ADVANCE :
CLR
RT!

. SQUES

INLP1

(SP) ,(R5)+

;

ADRCNT

8
o

000004

001460

.SAV05: MoV

KR8y

-—— O
e
ek

Soo & g8

[LN],
S e gy
HOSO

001266
001264

001262

Sv05:

ADVANCE TO NEXT TEST HANDLER
MOV
LOCK

NEXT, (SP)

4 (SP) ,SAVPC

MOV

RS5,$REGS

MOV

R2,$REG?2

MOV
Mov

MOV
MOV
RTI

b wnd

[V 18

f‘\\)&l\)fi

md
—d

001262
001264
001266
001270

: CRUNCH STACK WITH ADDRESSOF SC
; RESET TIGHT LOOP ADDRESS
; CHECK TO SEE IF OLD TEST GETS REPEATED

;SAVE R7 (PC)

;SAVE RS

R4, SREGS
R3,$REG3

;SAVE R4
;SAVE R3

R1,$REG!
RO, $REGO

:SAVE R1
;SAVE RO
;LEAVE.

.RESOS5: MOV

$REGO,RO

MOV
MOV

$REGZ,R2
$REG3,R3

MOV

O
O
O
0
O

;SAVE R2

JRESTORE RO-R5

8385

"
H
~N

001274
001272
001270

: COUNT BY 1.

; SAVE RO-R5
010537
010437
010337
010237
010137
010037
000002

llfl,

THAN LOW LIMIT.

SAVE THE # IN RIGHT PLACE.

;SAVE PC OF TEST THAT FAILED AND RO-RS
016637

THE MESSAGE.

IS IT MORE

.
006054
006060
006064

;

TYPE

0042(2

. GET ADDRESS OF INBUFFER
; GET LOWMASK BITS.
; GET # OF #'S TO BE GENERATED.

(SP),LOLIM

DE(CB

LOLIM:
HILIM:
WHERE:
LOBITS:
ADRCNT:

PAGE:

TTY

MOV
MOVB
MOVB
MOV

CMP

001312

NUMBER FROM THE

006044

N
o

IR
ONOWNHWN
- OV
NS WO

—d

d rd ) ek d —d

D D

D eed e e

ek D d —

IR IR
22 2 3 aE aF aF o LR BE 2 2F 2 2 W o o F (W N
NNV
D 2 — b el rd e

08-JUN-78
CIKCGA.P1T

$REG1,R1T

JRESTORE RO
sRESTORE R1
JRESTORE R
JRESTORE R3

08-JUN-78

C(ZKCGA.P1T
1458
1459
1460
1461
1662

07:54

08~-JUN-78 07:53

006146
006152
006156

013704
013705
000002

READ AN OCTAL

NUMBER FROM THE

001272
001274

1465

1666

006160

104401

010046

1468
1469
1470
16477
1472
16473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484

006170
006172
006174
006176
006202
006210
006214
006220
006224
006230
006236
006240
006246
006252
006256
006262
006264

1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496

006274
006276
006300
006302
006304
006306
006310
006312
00631
006316
006322

010346
010446
010546
017601
062766
012137
112137
112137
013137
122737
001003
042737
013704
113705
012700
010403
042703
062703
110320

1498
1499
1500

006330
(06332
006336

b
d

006270

006324

SIS

SR2o38IR

\fimmmmmgm

caed

1497

006166

~N
[+

1485

;RESTORE R4

<RESTORE RS

. LEAVE

s CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

006164

1467

:
PAGE

TTY

$REGS R4
$REGS5.RS

MOV

MOV
RTI

1463

1464

PAGE 31

001313

.CONVR:
.CNVRT:

010146

000241
006004
000241
006004
000241
006004
005305
001362
012703
114023
105337
001374
105737
001405
112723
105337
001373
105013
104401
005337
001313
012605
012604
012603
012601
012600
000002

000012
000002
006402
006404
006405
006406
000003
177400
006406
006404
011122
177770
000060

000012
1%:

006404
006406

2%:
3s:

TYPE

MOV
MOV
MoV
MoV
MOV
MOV
ADD

MOV
MovB
MOVB
MOV
CMPB
BNE
BIC

MOV

MOVB
MOV

> T

,$CRLF

R1.=(SP)

R3,~(SP)
R& ., ~(SP)
RS .=(SP)

12(SP)
.R1

#2,12(SP)
(R1)+,WRDCNT
(R1)+. CHRONT
(R1)+,SPACNT
a(R1)+,BINWRD

gg.CHRCNT

#177400 ,BINWRD
, R4
BINWRD
CHRCNT.RS
#TEMP RO

#177770.R3

ROR

cLe

R4 ,.R3

#060,R3
R3, (RO)+

R4
RS

011164

006404

4%:

Move

5%:

MOvB

6%:

CLRB

006405

o0
011164
006402

RO,~-(SP)

MOV
BIC

ADD
MOVB
CLC

#MDATA ,R3
CHRCNT
4%
SPACNT

(3}3
#040, (R3) +
SPACNT

5%
(R3)
.MDATA

WRDCNT
1%

(SP)+,R5

(SP)+,R4
(SP)+,R3
(SP)+,R1

(SP)+,R0

- S

0043(2

08-JUN-78

CZKCGA.P11

T ST

ORI

1514
1515
1516
1517
1518
519

07:54

006402
006404
006406

PAGE 32

08-JUN-78 07:53

PAGE:

READ AN OCTAL NUMBER FROM THE TTY

000000
000000
006405
000000

0044(23

WRDCNT: 0
{HRCNT: O
SPACNT=CHRCNT
+1
BINWRD: 0

520
521
522

;TRAP DISPATCH SERVICE
JARGUMENT OF TRAP IS EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER

ggz

;TO SELECTED SUBROUTINE
.SBTTL

TRAP DECODER

527

'-;ttt*tttttttttttttt*t*ttt*t*ttttttttt*tt**tttttttttttttt**tttttt

ggg
528
529
530

;*THIS ROUTINE WILL PICKUP THE LOWER EYTE OF THE ‘'TRAP'' INSTRUCTION
J*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

;*OF THE DESIRED ROUTINE.

éé}

T S

533
534
535
536
537
538
Ll ar ar a X ol Tk 2 ¥

539
540

:*GO TO THAT ROUTINE.

006410
0006412
006416
006420
006422
006424
006430

010046
016600
005740
111000
006300
016000
000200

000002

$TRAP:

MOV
MOV
TST
MOVB
ASL
MOV
RTS

;o THIS

IS USE

006444

THEN USING THE ADDRESS OBTAINED IT WILL

RO,~(SP)
2(SP) .RO
-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

::SAVE RO
;:GET TRAP ADDRESS
; :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
;:GO TO ROUTINE

541

564
545
g 9

006432
006434
006442

011646
016666
000002

000004

000002

TO HANDLE

$TRAP2: MOV
MGV
RTI

THE '‘GETPRI'’ MACRO

(SP) ,~(SP)
4(SP},2(SP)

::MOVE THE PC DOWN
1IMOVE THE PSW DOWN
* RESTORE THE PSW

.SBTTL

550
ggg

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
:«BY THE "TRAP'* INSTRUCTION.

ggz

;

243

555

ggg

006444

006446

006432

004410

TRAP TABLE
THE ROUTINES CALLED

ROUT INE

$TRPAD: .WORD
$TYPE

STRAP?

;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

::CALL=RDCHR
::CALL=RDLIN
::CALL=RDOCT
;:CALL=SCOP1
::CALL=SAVO5

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
CALL TO LOOP ON CURRENT DATA HAN
CALL TO REGISTER SAVE ROUTINE

006450
006452
006454
006456
006460
006462
006464
006466

005140
005260
005560
004360
006066
006126
007356
007326

SRDCHR
SRDLIN
SRDOCT
.SCOP1
.SAVOS

568
569

006472
006474

007442
007506

-DATACLK
; :CALL=DATACLK
TRAP+13(104413) CALL TO CLOCK DATA
-TIMER
;:CALL=TIMER
TRAP+14(104414) CALL TO DELAY A CLOCK TICK

N o S

558
559
560
561
562
563
564
565
566

567

006470

007374

.RES05

::CALL=RESO5

.MSTCLR ::CALL=MSTCLR
.DELAY
::CALL=DELAY

-ROMCLK ;:CALL=ROMCLK

TRAP+7(104407)

CALL TO REGISTER RESTORE ROUTINE

TRAP+10(104410) CALL TO ISSUE A MASTER CLEAR
TRAP+11(104411) CALL TO DELAY

TRAP+12(104412) CALL TO CLOCK ROM ONCE

08-JUN-78
(ZKCGA P11
1570
1571
1572

1573

1574
1575
1576
1577

07:54
PAGE 33
08-JUN-78 07:53

006476
006500
006502

006504

005720
006160
006164
006054
.

SRR

1587
1588
1589
1590
1591
1592
1593
1594
1595

1596
1597
1593

104406
011605
162705
011504
110437

006304
061504

042704
062704
012437
012437
011437
105737
001403
005737
001040
104401
104401

1625

005737

NN = OV

)

005737
001402
104401
104401
104417
104401
104417
104401
112737
005737
001402
104401
000000

172520

$ERROR:

000207
020000

172522
Haon
~
S

032777
001107
021637
001404
011637
105037

011226
010000

001406
105777
100003
112777

_aa: pury oooooooorOrO
ONONONON
NN R; )
= b b b b ok b D bk

1599
1600
1601
1602
1603

A AR

AR AR A AN AR AR RN R AR R AR

;ERROR HANDLER
004737
032777

0045C2A

$INPUT
;. CALL=INPUT
TRAP+15(104415) CALL TO OCTAL # INPUT ROUTINE
. CONVRTY 5 : CALL=CONVRT
TRAP+16(104416) CALL TO
. CNVRT
TRAP+17(104417) CALL TO
s ;CALL=CNVRT
.ADVANCE
;. CALL=ADVANCE
TRAP+20(104420) CALL TO ADVANCE TO NEXT

1586

PAGE:

TRAP TABLE

1578

1579
1580
1581
1582
1583
1584
1585

XBX:

001216
001216
001203

1%:

000002

001214

177007
001512

006734
006746
006760
001203

006734

006746

MOV
SuB
MOV
MovB
ASL
ADD
ASL
8iC
ABD
MOV
MoV
MOV
TSTB
TST

001313
001313
001444

177777

SAV05

BEQ

006760

010011
007777
007114
010066
007106
001313

JSR
BIT
BEQ
TSTB
BPL
mov8e
BIT
BNE
cMP
BEQ
MOV
CLRB

TYPMSG:

BNE

TYPE
TYPE
TST

BEQ
1%:

001203

TYPE

TYPE
CNVRT

TYPE
CNVRT
TYPE
MovB

TST
BEQ
TYPE

ERRMSG: 0
WRKO.FM:

TST

PC.CKSWR

#SW12.,aSWR
XBX
asTPS
XBX
#207,a87PB

#Sw15,aswR

HALTS
%gP).SERRPC

(SP) ,$ERRP(
$ERFLG

(SP) ,RS

#2 RS

(RS) R4
RG,SITEMB
R4
(R5) .R4
R4

#177001
R4
#$ERRTB
R4
(R4 )+ ,ERRMSG
(R4)
+ DATAHD
(R4) ,DATABP
SERFLG

TYPMSG
DATABP
TYPDAT

. SCRLF

RAARRAAAN AR

AR ANk

;CHECK FCR SOFT SWR
;BELL ON ERROR?
;BR IF NO BELL

;TTY READY.

;DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY.
;DELETE ERROR PRINT 0OUT?

:BR IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
:BR IF YES
sRECORD BEING HERE
;PREPARE HEADER

;SAVE ALL PROC REGISTERS
;GET THE PC OF ERROR
;GET ADDRESS OF TRAP CALL
;GET ERROR INSTRUCTION
;

COPY ERROR # FOR APT HANDLING

;MULT BY TWO
:DOUBLE I7
SMULT AGAIN
;CLEAR JUNK
;GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER

;GET DATA TABLE
:TYPE HEADREER
;B8R IF YES
;DOES DATA TABLE EXIST?
:BR IF YES.

.SCRLF

LOCK
1%

+MASTEK
-MTSTN
XTSTN
.MERRP(

LERTABO
.SCRLF

#-1,SERFLG
ERRMSG
WRKO.FM

JSHOW IT
JTYPE PC.

JSHOW IT

;GIVE A CR/LF
;NO MORE HEADER UNLESS NO DATA TABLE.
;1S THERE AN ERROR MESSAGE?
;BR IF NO.

:TYPE

;

DATAHD

ERROR MESSAGE

*DATA HEADER?

08-JUN-78

CZKCGA.P11

1626
1627
1628
1629
1630
1€31

1632
1633
1634

1635
1636
1637
1638
1639

1640
1641
1642

1643

1644

1645

1646
1647
1648
1649
1650
1651
1652
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

07:54
PAGE 34
08-JUN-78 07:53

006742
006744
006746
006750
006754
006756
006760
006762
006764
006772
006774
007002
007006

007010
007012
007020
007022
007026
007030
007032
007036
007040
007042
007046
007054
007056
007064
007066
007074
007100
007104
007106

007110

007112
007114

007116
007120

001402
104401
002000

005737

001402
104416
000000
104407
122737

001007
113737

004737
000000
000777
022737
001403
005777

100005
010046

016600
000000
012600
005237
032777
001007
032777
001407

013737

012706
000177
000002
000001
006

001460

000001
003
001202

:
PAGE

TRAP TABLE

BEQ

TYPDAT

TYPE

DATAHD: O

006760

TYPDAT:

000001

001336

001214
004710

007006

004070

000042

172212

000002
001212
000400

172164

002000

172154

001442
001200

001206

172102

002

CMPB

#APTENV,SENV

.WORD
BR
ggg

O
9%
ngNDAD,a#42

;. ERROR # GOES HERE.
; LOCK HERE.
sIF ACT=11 AUTOMATIC MODE, HALT!'!

TST

aSWR

JHALT ON ERROR?

PC,S8ATYS

007150
007152
007156

007162
007170

.GOTO TOP OF TEST?
;BR IF YES

#SW10,aSwWR

BYTE

3.2

XTSTN:

;GOTO NEXT TEST?

:BR IF NO
;SET FOR NEXT TEST

#STACK,SP
SSLPADR

JRESET SP
;GOTO SPECIFIED TEST
;SLPADR

$TSTNM
ENTER HERE ON POWER FAILURE

000024
000026

172062

000024

AR AR RN AT RN AARRA

POUER DOWN ROUT INE

$PWURDN:

POWER DOWN AND UP ROUTINES
RN RAAAR AR AR AR AN RN AR AN R NRRA AR RN AR AN AR Rk ®

MOV

#SILLUP,Q#PWRVEC

MOV

R1,-(SP)

MOV
MoV
MoV
MOV
MoV

007316
007174

$ERTTL

#SW08,aswR
1%

6,2

SAVP(C
1

SRR

007312
000340

2(SP) RO

1
BYTE

2%:

.SBTTL

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000

:BR IF NO HALT ON ERROR
;SAVE RO
;SHOW ERROR PC IN DATA LIGHTS
JHALT
;GET RO
JUPDATE ERROR COUNT

23
NEXT,SLPADR

MOV
JMP
RTI

; CALL APT SERVICES.

EXITER

BEQ
MOV

—

007122
007130
007136
007140
007142
007144
007146

‘DATA TABLE?
*BR IF NO.

3%
$ITEMB, 68

BNE
MOVB

BIT

1%:

DATA HEADER

* SHOW
:
DATA TABLE
*RESTORE PROC REGISTERS
;. IS APT RUNNING ?
: SKIP APT CALL IF NOT.
. COPY ERROR #.

8PL
1%:
PUSHRO
MOV
HALT
POPRO
EXITER: INC
BIT
BNE

ERTABO:

002

DATABP
RESREG

JSR

6%:
9%:
3%:

;

TST
BEQ

CONVRT
DATABP: 0
RESREG: RESOS

HALTS:

;BR IF NO

;TYPE

MOV
MoV
MOV
MOV

;;SET FOR FAST UP

#3460, Q¥PWRVEC+2 ;;PRIO:7
RO,-(SP)
;:PUSH RO ON STACK
R2,-(SP)
R3,-(SP)
R4 ,~(SP)

R5,-(SP)
ASWR,-(SP)

;:PUSH R1

ON STACK

:;PUSH R2 ON STACK
; PUSH R3 ON STACK
;;PUSH R4 ON STACK

;:PUSH
:PUSH
SP,$SAVR6
;:SAVE
#$PWRUP
, @#PWRVEC ., SET

R5 ON STACK
QSWR ON STACK
SP
UP VECTOR

0046A

000776

BR
C

012601
012600
012737
012737
104401
007556
000002
000000
000776
000000

D e

e wand

\J'?I)\J\J\I\IV\J\IVV\I\J\JV\JV\J
NN
N
AN NN NN
XV
Sricht
RSCONOWVSRNN
2O 0NN WO

~
AN
n
o

TYPE

CNVRT
CLRB
CLR
MOV

CLR

MSTCLR
MOV
MOV
MOV

171764

007122
000340

MOV
MOV
MOV
MOV
MOV
MOV

000024
000026

TYPE

$PWRMG : é¥?RD
SILLUP:

$SAVR6:
PFTAB:

002

.BYTE

172540

.DELAY:

D wwd
e
D
d ced
b e
ed el i
b
d

W
~

vk
d

MoV

007372

000002

007374
007374
007402
007406

152777
013677
062746

000100
000300

172504
172476

000002

172466

172470
000002

.MSTCLR:

;

CLEAR LAST ERROR P(
RESTORE DEVICE ADDRESS.
CLEAR THE CSR.

(SP)+,aSWR
(SP)+,RS
(SP)+ ,Ré4

;POP STACK INTO aSwR

;;POP STACK
:;POP STACK

INTO RS
INTO R4

(SP)+ ,R3
;POP STACK INTO R3
(SP)+ _R2
;POP STACK INTO R2
(SP)+,R1
;POP STACK INTO R1
(SP)+ R0
;POP STACK INTO RO
#SPWRDN
, a#PWRVEC ;:SET UP THE POWER DOWN VECTOR
#340,a#PWRVEC+2 ;:PRIO:7
MPFAIL

;:REPORT THE POWER FAILURE
. ;POMER FAIL MESSAGE POINTER

;:THE POWER UP SEQUENCE WAS STARTED
;s BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE

#20,3KMP04

sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;POKE CLOCK DELAY BIT

ROMCLK

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

BISB

#BIT4,aKMPO4

;JPORT4 _1BUS*11

;1S CLBCK BIT SET?

;BR IF NO

#BIT6,8KMCSRH

RTI

:SET MASTER CLEAR
#BITOG!BIT7,aKMCSRH_ ;CLEAR MASTER CLEAR AND RUN
;RETURN

BlSB
MOV
ADD

#17T1,aKMCSRH
3 (SP) +,akKMPO6
#2,-(SP)

8I1(B
:
ROMCLK

;CLEAR ERROR FLAG.

12111

RT1

152777
142777

JPFTAB
$ERFLG
$ERRPC
KMCSR,R1
(R1)

B8EQ

NN NNNSNNNNN

172522

JMPFAIL

3.2
$TSTANM

121224
8IT

007354

007356
007356

ROMCLK

1%:

000020

HALT

B8R

#SILLUP,3#PWRVEC ;<SET FOR FAST DOWN
$SAVR6,
SP
;:GET SP
$SAVR6E
J:WAIT LOOP FOR THE TTY
$SAVR6
JoWAIT FOR THE INC
1%
WORD
;;0F

$PWRUP: MOV
MOV
CLR
1%:
INC
8NE

000024

007556
007320
001203
001216
002066

000020

h md

D d wd b

000001
003
001202

007316
007316
007316

AR AR R AR AN RN AN A AN AN RRR RS ARRRA
AR AN AAARA
AN RN AN A ARA AN CARN
R

*POWER UP ROUTINE

104407
104417
105037
005037
013701
005011
104410
012677
012605
012604
012603
012602

007312

: sHANG UP

012737
013706
005037
005237
001375

.~2

007174

:
PAGE

POWER DOWN AND UP ROUTINES

007172

(ZKCGA.P11

07:54
PAGE 35
08-JUN-78 07:53

08-JUN-78

:SET ROM]
sLOAD INSTRUCTION IN SEL6
cADJUST STACK

0047C2

VB W20V~
(N 8)

U!‘J\\I'\.h\.h\h\h\}\l\\‘\‘
VJV\
SARARRRNY
~N

D e

d d e

NN NN NN N NN

D D d e

—

1741

007412
007420

007422
007424
007432
007440

007442
007442
007446
007452
007460
007466
007474
007500
007502
007504

007506
007506
007512
007516
007516
007520
007522
007530
007532

007532
007534

007536
007544
007546
007552
007554
007556
007614
007635
007641
007666
007712
007741
007747
007755
007766
007777
010011
010013
010066

08-uUN-78 07:53
032777
001401
000000
152777
142777
000002
013637
062746
152777
027777
142777

005337
001364

171620

000003
000007

172436
172430

011122
000002
000020
172402
000020
011122

172410
172400
172374

000002

000001

013637
062746
104412
021364
032777
001772

104412
021364

032777
001372
005337
001361

1%:

172344

011122

051127
042116
000

047516
051516
041517
051123

041505
051501
047522
051505
000

010073

042526

043040
050040

042040
043125
020113
020072
020072
042523
051522
020124
020124
000
020040
020040
041520
026455
020127
020122
052103

aKMCSR,aKMCSR

#8174 ,3KMCSRH

RTI

MOV
ADD

81T
8EQ

LASCI

NUM:
CSR:
VEC:

LASCI
.ASC]
.ASCI
LASCI

;WASTE

TIME

;CLEAR STEP LU

a(SP)+, TEMP
#2,-(SP)

;MOVE COUNT TO TEMP
;ADJUST STACK

;RETURN

sNEXT WORD IS INSTRUCTIOM, ROMCLK PC 5304

;PURT4_IBUS* REG11

#2,3KMPO4

;IS PGR CLOCK BIT CLEAR?

:BR If

ROMCLK

LASCI
.ASC]
.ASCI
.ASCI
MERRZ:
MERR3:
.ASCI
MLOCK:
.ASCI
MCSRX:
.ASCI
MVECX:
.ASCI
MPASSX: .ASCI
MERRX:
.ASCI
MTSTN:
.ASCl
: .ASCI
MASTEK
MNEW:
.ASCI
MERRPC: .ASC]
XHEAD:
.ASCI
LASCI

STEP

JPUT TICK COUNT IN TEMP
;ADJUST STACK
;SET STEP LU
;DEC TICK COUNT
;BR _If NOT DONE

ROMCLK

MPFAIL:
MEPASS:
MR:

;HALT BEFORE CLOCKING INSTRUCTION

TEMP
1%

.BLKW 1

8IT
BNE
DEC
BNE
RTI

000002
050200

a(SP)+ TEMP
#2,-(SP)
#B1T4,3KMCSRH

021364

172330

JHALT IF SW06 -1
;BR IF SW06 =0

#BIT1!BITO,dKMCSRH ., CLOCK INSTRUCTION
#BIT2!BIT1!BITO,3KMCSRH
;CLEAR ROMO, ROMI,

021364

2s:
000002

:
PAGE

#5W06,aSWR
1%

.DATACLK:
MOV
ADD
1%:
B1S8
tme
8I1CB
DEC
BNE

. TIMER:

011122
000002

8IT
BEQ
HALT
BISB
BI(B
RTI

3s:

000002

SOWER DOWN AND UP ROUTINES

000100

010132
010171
010243
010317

010357
010375

PAGE 36

YES

JNEXT WORD IS INSTRUCTION, ROMCLK PC 5304

:PORT4_IBUS* REG1?
;1S PGM CLOCK BIT SET?
:BR IF YES

¥2 ,KMP04
2%
TEMP
13

S b bt NN NI N N NI NI NI NN N N NN

1738
1739
1740

07:54

08-JUN-78
CIKCGA PN

sDEC COUNT
¢BR _IF NOT DONE

SRETURN

<200>/PWR FAILED. RESTART AT TEST /
<200>/END PASS C2KCG
/
<200>/R/
<200>/NO DEVICES PRESENT./
<200>/INSUFF ICIENT DATA!/

<200>/L0OCK ON SELECTED TEST/

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
5T§ST NO: /
*

;ggo>§SET

<200>/

SWITCH REG

TO KMC11°S DESIRED ACTIVE./

MAP OF KMC11

—————

STATUS/

-~/

<200>/
PC
(SR
STAT
STATZ2
<200>/======
wmccme
emccee
esceme
<200>/HOW MANY KMC11°'S TO BE TESTED?/
<200>/CSR ADDRESS?/

<200>/VECTOR ADDRESS?/

STAT3/
ecceeo /

0048C2

08-JUN-78
(ZKCGA.P11

) b —d b =

e
e

b md

PRIO:

044504

MODU:
LINE:
8M:
CONN:
NOACT:
CONERR:
CNERR:
KMCM:

MLDER:

.EVEN
XSTATa:

LASCIZ

:
PAGE

002
.EVEN

<200>/BR PRIORITY LEVEL?

(4,5,6,7)?/

LASCIZ
ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

<200>/WHICH LINE UNIT? IF NONE TYPE 'W'',
<200>/SWITCH PACH#1 (DDCMP LINE #)?/
<200>/SWITCH PACA2 (BM873 BOOT ADD)?/
<200>/1S THE LOOP BACK CONNECTOR ON?/
<200>/NO DEVICES ARE SELECTED/
<200><200>/KMC11 AT NONSTANDARD ADDRESS
<200>/EXPECTED
FOUND/
/7 (kMC) /

S
.BYTE

6.3

.ASCIZ

$TMPO

003
001306

POWER DOWN AND UP ROUTINES

003

b e e
b

D e wh

e e

d
d oD

b ed ad o

003

ed ok

003

ZETRORETESYLIR2 232 E3BI&

b e} =k
b e
o

020122
044127
053523
053523
051511
047516
046513
054105
046513
040517

011076

BYTE
$TMP1
.BYTE
STMP?
.BYTE
$TMP3
.BYTE
$TMPS

M8201

PC:

/ LOADING ERROR /

6.3
6.3
6.3
6,2

JBUFFERS FOR INPUT=-QUTPUT
011122

000000

TEMP:

011164

000000
011226

MDATA:

011164

=440
.=, 440

e =D

NN NN

041200

[=]

010416
010455
010567
010625

elelelelelelolels]

[+ 39, F AL

3NVAAAAAA
NNPNORNNPONIN

R SL LA et Nt

2)
(2)
(2)
(2)

07:54
PAGE 37
08-JUN-78 07:53

RREaaEENy
[AVE 1,V
SJ\OO‘J\O
N NN
N NN

e
b

d wd

d e

b
b

D =D

elelelelalelelelelele]

W= O
NOWVMS

e
d o

b wmd wd

b
b
b o
b

b wd wwd wd

00 00 Go 00 00 00 00 00

b oD

b e

0]
o

b md oD

SROUTINE USED TO CHANGE SOFTWARE SWITCH
JREGISTER USING THE CONSOLE TERMINAL

022737
001075
132737
001071
022777
001404
022777
001061
010246
010346
010446
012737
005002
012704
104401
104417
011466
1046401
004737
022703

000176

001240

000001

001336

000007

167772

000207

177777

177777
005535

005546
011434
000015

CKSWR:

#SWREG, SWR

8118
BNE

#1,3ENV
(KSWRS

BEQ

(MpP

167762

011432

(MP

BNE

cMp
BNE

1%:

MOV

CKSWRZ2:

CNVRT
SOFTSW
TYPE
JSR

MOV
MOV
MOV
CKSWR1: CLR
MOV

CKSWR3:
(KSWR&4:

TYPE

CKSWRS

#7,38TKB
#207,a8TKB
CKSWRS

R2.-(SP)

R3,~(SP)
R4 ,~(SP)
#-1,SWFLG
R2
#-1,R4
- SMSWR

. SMNEW

PC , INCHAR

#15.R3

;1S THE SOFT SWR BEING USED?

;BR IF NO

. IS IT RUNNING UNDER APT?
; EXIT IF YES.

JWAS CTRL G TYPED? (7 BIT ASCID)

;BR IF

YES

;WAS CTRL G TYPED? (8 BIT ASCID)
.BR IF NO

;STORE R2

;STORE R3
JSTORE R4
;SET SOFT TYPE QUT FLAG
;CLEAR NEW SWR CONTENTS
;SET FLAG TO ALL ONES
;TYPE "SWR= "'

sTYPE OUT PRESENT CONTENTS
;OF SOFT SWITCH REGISTER
;TYPE 'NEW? °°
sGET RI SPONSE

‘WAS IT A CR?

TYPE ‘1",

0049C2

IF M

08~JUN-78
CZKCGA. P11

011334

001424
022703 000012
001416
022703 000025
001754
022703 000007
001762
005004
*
042703 177770
006302
006302
006302
050302
:
000752
© 012766 002402 000006
48:
005704
.
A
5$:
001002 e
010277 167622 *- . <.
.
005037 011432
S
6$:
012604
012603
F
~
012602
coLTe
,

000207,

, 011432 + 000000 |

011434

105777

167604

BEQ
cMP
BEQ
CMP
BEQ
CMP
BEQ
CLR
BIC
ASL
ASL ASL
BIS
BR
MOV
TST
BNE
MOV
CLR
MOV
> MOV
: MOV

. (KSWRS: RTS

sWELG:

PAGE:

T CINCHAR:“TSTB

SOFTSW:TM 1",

’’’’’’’

:BR IF YES
¢WAS IT CTRL U?

:BR IF YES(START OVER)
sIF CNTL G GET NEXT CHAR

;1T MUST BE A DIGIT SO CLR FLAG

:ONLY 0-7 ARE LEGAL SO MASK OFF BITS
:SHIFT R2 3 TIMES

#.START,6(SP)
R4
6%
R2.aSWR
-SWFLG
(SP)+.R4
(SP)+,R3
(SP)+,R2
PC

aszxs

OWRE

- a$TKB,R3-

'3STPS

R3,3$TPB

“#BiT7.R3
JPC
-

)

:BR _IF YES

sWAS IT A LF?

CKSWR4
R4
#177770,R3

.BYTE.- 6,2
’gfi\::
%*~SWREG .
F

5%
#12,R3
4%
#25,R3
CKSWR1

011440 £100375 1
o
e
8PL
011442. 017703- 167600
So..
.
MOV,
011446
. 105777 167576
.
.
0
.07
ISIB.
011452
. 100375. "
< - o
~
B
. 010377 .167572 011454
.
. MOV
.011460 042703° 000200
- - - - :
... “BIC:
1011464 000207
e
e
SRS
011466 ‘000001 , e .
011470 " 0000%e r -002
011472 000176

POWER DOWN AND UP ROUTINES

O‘J\NOgNOO\N

QOB NONNIO

e
d od o

SNINENINININIDND
D NN
ANNITON)
= =d

d ard
ed o
e
—

vl el end wnd e

PIIIIIIIL

VSN
O C NS WA -

b
b
b
b e
b
b oD
o

b el ced b

D d e

b ad —

e wd wed wd wnd mad

d e

b b e wad

) ek

011336
oizizlelelelalelalelele] elelololelale]

1818
1819
1820
1821
1822
1823

07:54 PACE 38
- 08~JUN-78 07:53

- T~

;ADD LAST DIGIT
;GET NEXT CHARACTER
:LF WLS TYPED SO GO TO START
:IS FLAG CLEAR?
:IF NOT DON'T CHANGE SOFT SWR
:IF_YES-THEN WRITE NEW CONTENTS TO SOFT SWR
:CLEAR TYPEOUT FLAG

:RESTORE R4

*RESTORE R3

*RESTORE R2
:RETURN_

0050c2

08-JUN-78

(ZKCGA.P11

07:54

PAGE 39

08-JUN-78 07:53

PAGF:

POWER DOWN AND UP ROUTINES

1856
1857
1858
1859

:
sROUTINE USED TO ''CYCLE'® THROUGH UP TO 16 KMC11'S
sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC

1861
1862

;BE_RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
;SETUP NECESSARY.

1860

1864

1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

JAND RUNS THE SPECIFIED KMC11°'S.

011474
011500
011502
011506
011510
011512
011514
011520
0115246
011532
011540
011546
011550
011556
011564
011572
011574
011600

005737
001004
104401
000000
000776
000241
006137
005537
062737
062737
022737
001006
012737
012737
033737
001747
013700
013702

001470

CYCLE:

010725

"TST

BNE
TYPE
HALT

KMACTV
1%
.NOACT

THIS ROUTINE ~MUST«

;ARE ANY KMC11'S TO BE
JBR IF 0K,
;NO XMC11'S SELECTED!!
;STOP THE SHOW.

TESTED?

001502
001504

BR
cLC
ROL
ADC
ADD
ADD
cMP
BNE
MOV
MoV
BIT
BEQ
MOV
MOV

;DISQUALIFY CONT. SW.
;CLEAR PROC. CARRY BIT.
RUN
;UPDATE POINTER
RUN
:CATCH CARRY FROM RUN
¥4 MILK
;UPDATE POINTER
#10, CREAM
;UPDATE ADDRESS POINTER.
#KM.MAP+200, CREAM
2%
SKEEP GOING; NOT ALL TESTED FOR.
#KM_MAP,CREAM
;RESET ADDRESS POINTER.
#CNT .MAP MILK
;RESET PASS COUNT POINTER
RUN,KMACTV
;1S THIS ONE ACTIVE?
1%
;BR IF NO
CREAM,RO
:GET ADDRESS PGINTER
MILK R2
;GET PASS COUNT POINTER

011037

002056

MOV

(RO) ,KMRVEC

011622
011626
011632
011636
011642
011646
011652

012037
012037
012037
012237
012237
012700
013737

002050
002052
002054
001324
001212
000002
002066

1894
1895

011664
011672

013737
005237

002070
002072

1897
1898
}ggg

011704
011710
011716

060037
013737
060037

002074
002074
002076

013737
060037
013737

002056
002060
002060

1883
1884

1885

1886
1887
1888
1889
1890
1891
1892

1893

1896

1901
1902
1903

1904
1905
‘}38?

1908
1909
1910

1911

011604

011610

011614

011660

011676

011722
011730
011734

011742
011746
011754

011760
011766
011770

011770

012037

042737

005237

013737

060037
013737
060037

1%:

001500
001500
000004
000010
002300

001504
001502
001502

002100
002302
001500

001502
001504
001470

2%:

002066

177000

002070

002072

002062
002062
002064

032737
001447

000002

005737

000042

MOV

002056

BIC

MOV
MCV
MoV
MOV
MOV
MOV
MOV

002070

INC

002072
002074

002060

002062

001446
4%:

sJLOAD SYSTEM CTRL. REG

#177000, KMRVEC

:CLEAR UNWANTED BITS

(RO) +,STAT1
(RQ)+,STAT?
(RO)+,STAT3
(R2) +,8PASS
(R2) +,SERTTL
#2 RO
KMCSR, KMCSRH

;LOAD VECTOR

;LOAD
;LOAD
;LOAD
sLOAD
;LOAD
;SAVE

STATI
STAT?
STAT3
PASS COUNT
ERROR COUNT
(ORE THIS WAY!

KMCSRH

KMCSRH, KMCTL
KMCTL

ADD
MOV
ADD

RO ,KMPO4
KMPO4 , KMPO6
RO,KMPO6

MOV
ADD
MOV

KMRVEC.KMRLVL
RO, KMRL VL
KMRLVL ,KMTVEC
RO,KMTVEC
KMTVEC,KMTLVL

;
;TX LVL

BIT
BEQ

#SW01,STRTSW
7%

;1S TEST NO.
;BR IF NO

ansl

JRUNNING IN AUTO MODE?

ADD
MOV
ADD

002064

(RO) + KMCSR

MOV
INC
MoV

002076

KMCTL ,KMPO4

RO,KMTLVL

;PTY LVL
:
;TX VEC

SELECTED

0051(2

104401
104415

BNE

001313

TYPE
INPUT
TTSTN

BYTE
BYTE

N
nN

013762

001202

5%:

000002

001202

000004

001206
007636
000002

001446

001312

013701
000177

013762
002066

PAGE
:

001206

167062

7$:
8%:

,SCRLF

;BR IF YES

1000
$TSTANM
O
1
MoV
MP
MOV
BNE
1
BNE
CMP
BNE
MOV

(PC)+, (RO)

;CMP FIRST WORD TQ 12737

6%
$TSTNM,2(RO)
6%
#STSTNM,
4 (RO)
3
RO, $LPADR

;BR _IF NOT SAME

BIC
BR

#5W01,STRTSW
8%

TYPE

. $QUES

TYPE

6%:

016400

012737

POWER DOWN AND UP ROUTINES

007777

(=] =lelela] o

e
d
b
d
b

mah

012002

elolelololelels]

07:54
PAGE 40
08-JUN-78 07:53

001044

n NINININININ)

NN
OO

—

P b

it el

b b D e ad D

0 OO0 O0OO0

e vasd

08-JUN-78
(ZKCGA PN

TST
WP
BNE

#7ST1,RO
(PO

+,3(PC)+

(RO)
+
RO,#TLAST+10
5%

MOV
MOV

#TST1,SLPADR
KMCSR,R1

JMP

@$LPADR

;DOES STSTNM MAT(H?

:BR

;1S LAST WORD OK?
;BR IF NO
;1T IS A LEGAL TEST SO DO I

;POP RO
;AT END YET?

;BR IF NO
JYES ILLEGAL TEST NO.
;TRY AGAIN

:PREPARE SLPADR ADDRESS
;R1 = BASE KMC11 ADDRESS
;GO START TESTING.

;ROUTINE USED TO "'AUTO SIZE'' THE KMCTN
;CSR_AND VECTOR.
THE CSR MAY BE ANY WHERE IN THE FLOATING
sNOTE;

wnorony

WIS
~

ur @

Srur@ur Ginr G

Qur P

Ponr P

elelelelelalelelelelelale]

[ 4

DSUSTLSTELNT
ST ST ST S LN T, V1 N1,V

ADDRESS RANGE (160000:164000)
AND THE VECTOR MAY BE ANY WHERE
FLOATING VECTOR RANGE (300:770)

000005
012702
005022
022702
001374
005037
012702
005037
032737
001002
000137
012737
104415
010317
000001

IN THE

AUTO.SIZE:

RESET

002100

002300
001472
002100
001470
000001

001446

012554
000001

001306

CSRMAP: MOV
1$:
CLR
cMP
BNE
CLR
MOV
CLR

BIT
BNF
JMP

MoV
INPUT
NUM
1

#KM_MAP
R?
(R2)
+
#KM_END ,R2
1%
KMNUM
#KM.MAP
R2
KMACTV

#SW00,STRTSW
. +6
7%

#1,8TMP4

JINSURE A BUS INIT.
sLOAD MAP POINTER.
;ZERO ENTIRE MAP
;ALL DONE?
;BR IF NO
JSET OCTAL NUMBER OF KMC11*'S TO0 O

sR2 POINTS TO KMC MAP
JCLEAR ACTIVE
JQUESTIONS?
;JBR IF YES
J1F NO SKIP QUESTIONS

JSTART WITH 1

00522

08~JUN-78

CZKCGA.P1T

07:54
PAGE 41
08~JUN-78 07:53

1968
1969
1970

000020
001302
000
001
013737
104401
104416
013214
005237

1971

1972

1973

1974
1975
1976
1977
1978
1979

104415

010357
160000
164000
001304
000
001
013722
104415
010375
000000
000776
001304
000
001
013712
104401

010416
004737
022703
101014
022703
103411

012704
006303
005304
001375
042703
050312
000403

16.

001302
001313

001472

12%:

.BYTE
.BYTE
MOV
TYPE
CONVRT

INC
INPUT
CSR
160000
164000

$TMP4

.BYTE
.BYTE

WHICH

001306

$TMP3

001304

MoV

INPUT
VEC

$TMP2
, KMNUM

.$CRLF

$TMP3, (R2) +

JKMNUM - HOW MANY
;TYPE WHICH KMC IS BEING DONE
J$TMPS IS WHICH KMC

;STORE CSR IN mMAP

001304

776
$TMP3
.BYTE
.BYTE

10%:

013506
000024
000027

000011

170777

50s%:

000752

012410

PAGE
:

POWER DOWN AND UP ROUTINES

$TMP2

104401
001312

104401
010455
004737
022703
001422
022703
001412
022703
001403
104401
001312
000760

8$:
9%:
16%:

013506
000021
000022
000116

MOV
TYPE
PRIO
JSR
cMwP
BHI
P
BLO
MOV
ASL
DEC
BNE
BIC

8IS
8R

TYPE
$QUES
BR

TYPE
MODU
JSR

cMP
BEQ
cMP
BEQ
CMP
BEQ

TYPE

$QUES
BR

$TMP3, (R2)

;STORE VECTOR IN MAP

PC,INTTY

;sASK WHAT BR LEVEL
sGET RESPONSE

#24 ,R3

S0%
#27 ,R3
508
#11,Ré
R3
Ré
=4
#170777 ,R3

‘BR IF LESS THAN 4
;BR IF GREATER THAN 7
;R4 = NUMBER OF SHIFTS

sSHIFT R3 LEFT

:DEC SHIFT COUNT

:BR IF NOT DONE

sBIC UNMWANTED BITS

R3,(R2)
8%

;PUT BR LEVEL IN STATUS MAP
; CONT INUE

108

sRESPONSE IS OUT OF LIMITS
;TRY AGAIN

PC,INTTY

JASK WHICH LINE UNIT
;GET REPLY

#21,R3

30%

;'l1ll

#22,R3

;l?ll

#116,R3

:ONll

16%

;TRY AGIAN

31%
32%

;IF NOT A 1,2 OR N TYPE '""*

0053(2

08~JUN-78

(ZKCGA.P11

2026

2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043

2044
2045
2046
2047
2048
2049
2050
2051
2052
2053

2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066

07:54

012412

012416
012420
012422
012426
012434
012436
012440
012444
012450
012452
012456
012460
012462
012464
012466
012472
012474
012500
012500

012502
012504
012506
012510
012512
012513
012514
012520
012522
012524

012526
012530
012532
012533
012534
012540

012542
012546
012550
012554
012560
012566
012570

08-JUN-78 07:53

052722

022222
000450
052712
052762
104401
010665
004737
022703
001406
022703
001406
104401
001312
000763
052722
000402
042722
104415
010567
000000
000377
001304
000
001
113722
104415
010625
000000

000377
001304
000
001
113722
005722

005337
001225
000137
012701
012737
005011
005711

2067
2068
2069
2070
2071
2072
2073
2074

012572
012574
012600
012604
012606
012612
012616
012624

001140
005061
005761
001133
012711
005061
012761
052711

2076
2077
2078
2079

012636

001116

2075

012630

012640
012640

PAGE 42

022761

010122

30%:

000004

31%:

308:

013506
000131
000116

040000

17%:

040000

18%:
19%:

001304

001304
001302

013114
160000
013206

33s:

000004

000006
000006
002000
000004
125252
020000

125252

PAGE:

PCGWER DOWN AND UP ROUTINES

010000

020000
000002

000006

000004

78:
2%:

BIS

CMP
BR
BIS
BIS
TYPE
CONN
JSR
CMP
BEQ
CMP
BEQ
TYPE
$QUES
BR
BIS
BR
BIC
INPUT
LINE
0
377
$TMP3
BYTE
BYTE
MOva
INPUT
BM
0

377
$TMP3
BYTE
BYTE
MOVB
TST

DEC
BNE
JMP
MOV
MOV
CLR
TST

BNE
CLR
TST
BNE
MOV
CLR
MOV
BIS

CMP

#BiT12,(R2)+

(R2)+,(R2)+
338
#BIT13,(R2)
#81T71,4(RD)
PC,INTTY
#131,R3
17%
#116 ,R3
18%

30%
#BI1714,(R2)+
19%
#BIT14,(R2)+

JSET BIT 12 IN _STAT2 IF NO LU

;POP OVER STAT2 AND STAT3

;SET BIT 13 IN STAT2 IF MB8202
;SET BIT1 IN STAT3 FOR HIGH SPEED MICRO-CODE.

;ASK IF LOOP-BACK IS ON
;GET REPLY
;Y
N
;IF NOT Y OR N TYPE '*2*'
:TRY LGAIN
s TURNAROUND IS CONNECTED
;NO TURNAROUND

O
1
$TMP3, (R2) +

;STORE SWITCH PAC IN MAP

O
1
$TMP3, (R2)+
(R2) +

:STORE SWITCH PAC IN MAP
;POP OVER STAT3

$TMP2
12%
138
#160000,R1
#6S axns
(R1)
(R1)

3s
6(R1)
6(R1)
3%
#81T10, (R1)
4(R1)
#125252,6(R1)
#BIT13,(R1)

#125252,4(R1)

0054(C2

sDEC KMC COUNT
;BR IF MORE TO DO
s CONT INUE
¢SET FOR FIRST ADDRESS TO BE TESTED
JSET FOR NON-EXISTANT DEVICE TIME OQUT
;CLEAR SELO
;IF KMC11 KMCSR S/B 0

:IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KM(1
;CLEAR SEL6
;IF KMC11 THEN KMRIC S/B =0!
;BR_IF NOT KMCT
;SET ROMO
sCLEAR SEL4
;WRITE THIS TO SEL6
SWRITE IT!

:WAS IT WRITTEN?

BNE
3%
;IF NO IT IS NOT CRAM
;AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A KMC11 CSR ADDRESS.
21%:
22%:
Mov
R1,(R2)+
;STORE CSR IN CORE TABLE.

08-JUN-78
(ZKCGA.PTT

012642
012646
012652

012711
005061
012761
052711
012761
052711
122761
001003
052712
000441
032761
001406

052712
052762

000427
032761

001023
012761
012761
052711
012761
052711

OO@VO«mbwm-floog\lgu‘?

012761
012711

156122
012761
012711
156122
005722
005011
005237
022737
001410
005011
005061
062701

hONbNObOgNGJ\OJ\N

b
d
b

AINPONONS
= 2

NN
N

N NN

od
b

N N

i md
o

AN AN N W AN A U

HmAaameaaaadganaaas

(elelelelelelelelelelelelolels]

D cnd w——d

OQO

b amd
D wnd
b cnd nd
d cmd e
e
d

032761
001402
052712
005722

Db b ad b b ad ed = O

)

LSTNT, NN TNT,ST,87,87,87,
81,87, ST XY, 1,§7,87,¥7,8

(07:54
PAGE 43
08-JUN-78 07:53

022701
001225
005037
005737

001423
013701
010137
000241
006137
005237
005301
001371
012737
013737
000137
104401

001000
000004
122113
000400
021264
000400
000377

15%:

000006
000006

000004

000002

000004

060000
000002

000004

000010

000004

000100
122113
000400
021264
000400
000010

000004
000006

000006
000004

040000

001400
000004
021344
001400
000004
001472
000020

000006

20%:

000006

MOV
CLR
MOV
BIS
MOV

8IS
MPB
BNE
BIS
BR
817
BEQ
BIS
BIS
BR
8IT
BNE
MoV
MOV
BIS
MOV
B1S
BIT
BEQ
BIS
TST
MOV
MOV
B1s8
Mov
MOV
BIS8
IST

001472
3%:

000006
000010
164000

14%:

001470
001472

13%:

001472
001476

4%:

001470
001470
000006
001470
013222
007641

PAGE:

POWER DOWN AND UP ROUTINES

010000

021324

000004
001474

CLR
INC
cMP
8EQ
CLR
CLR
ADD
WP
BNE
CLR
TST
BEQ
MOV
MoV
CLC
ROL
INC
DEC
BNE

MOV

5%:

MOV
JMP

TYPE

#BIT9, (R1)

4(R1)
#122113,6(R1)
#B178, (R1)
#021264,6(R1)
#8178, (R1)

#377.4(R1)
.+10

58£T12,(R2)

0055(C2

;CLEAR LINE UNIT LOOP

.CLEAR PORT4
sLOAD INSTRUCTION (CLR DTR)
. CLOCK INSTRUCTION
;LOAD INSTRUCTION
;CLOCK INSTRUCTION

;IS IT ALL ONES?
:BR IF NO
cIF

YES,

NO LINE UNIT,

SET

STATUS BIT

#BIT1,4(RT)
;1S SWITCH A ONE?
416
;BR IF M8201
#BIT13!BIT14,(R2) ;MB8202 ASSUME CONNECTOR
#BIT1,4(R2)
;SET BITY IN STAT3 FOR HIGH SPEED MICRO-CODE...
20%
;CONNECTOR ON)

#B8I1T13,4(R1)

;1S MRDY SET

#B81T76,4(R1)

:LOAD PORT4

208

#122113,6(R1)

#8178, (R1)
#021264 ,6(R1)
#BIT8,(R1)

#8I173,4(R1)

208
#BIT14,(R2)
(R2)+
#021324 ,6(R1)
#8179!8IT8,(R1)
4(R1),(RO)+

#021344,6(R1)

;BR IF M8201 NO CONNECTOR (ON LINE)

;LOAD INSTRUCTION

;CLOCK INSTRUCTION(SET DTR)
;LOAD INSTRUCTION
;CLOCK INSTRUCTION(READ MODEM REG)

;IS MRDY SET NOW?

;BR IF NO CONNECTOR
;SET STATUS BIT FOR CONNECTOR
;POP POINTER
:PUT INSTRUCTION IN PORT6
;PORT4_LU 15
:STORE DDCMP LINE # IN TABLE

;PORT6_INSTRUCTION

#BIT8!BIT9,(R1) ;CLOCKTM INSTR.
4(R1),(R2)+
:STORE BM873 ADD IN TABLE
(R2)+
:POP OVER STAT3
(R1)
:CLEAR ROMI

KMNUM

#20,KMNUM

;UPDATE DEVICE COUNTER

;ARE MAX. NO. OF DEV FOUND?

13$
(R1)
6(R1)
#10.R1

JYES DON'T LOOK FOR ANY MORE.
;CLEAR BIT 10
;CLEAR SEL 6
;UPDATE CSR POINTER ADDRESS

;BR IF MORE ADDRESS TO CHECK.

#164000,R1

KMACTV
KMNUM
5%
R1
KMNUM
R1,SAVNUM

JWERE ANY KMC11'S FOUND AT ALL?
;ERROR AUTO SIZER FOUND NO KMC11'S IN THIS SYS.
:SAVE NUMBER OF DEVICES

KMACTV
E?ACTV

;GENERATE ACTIVE REGISTER OF DEVICES.
;SET THE BIT

43
#6346
KMACTV,SAVACT
VECMAP

;BR IF MORE TO GENERATE
;JRESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.

-MERRZ

;NOTIFY OPR THAT NO KMC11°'S FOUND.

08~JUN-78

07:54

(ZKCGA.P1T

08-JUN-78 07:532

013200

013222
013230
13232

032737
001114
012737

jard

b
D
d and
d e

32640
3246
3252
3256
3262

lelelelelelelalelelelslele]

d e

3270
3272
3276
3300
3306
3312
013314

176
177
178
179
180
181
182
183
184
185
186
187
188

189
190
191

013320
013326
013330

W
W

purd

013336
013342
o

VB W=
OOV

NN
=

2
h oD o
D
b o}
D oo oD ok
D cmd nh D
b
h
D cd ed md od
b
b
b md
D
b ek od oD
h D d

013220

000001
002
001306

013214

000000
000776
012716
000002

ASTACTURNTNT NSNS LN ST NN TS LWL N LN LN LN T,N T, NY N N1, O TN 1S 1N T,V 1,8 ] ASTASTANTANTAN 1A N LS TAN TN TN TN TN TN T ST, ToN 1N T TN T, ¥ Y, ¥

013202
013204
013206
013212

013354
013356
013360
013364
013366
013374
013376
013404
013406
013412
013414
013420
013426
013432
013434
013436
013440
013442
013446
013452
013454

013460
013462
013470

012737
012702
012700
012701
010120

012721
022021
020127
101771
013737
006037
103063
012704
016437
011201
012761
012711
012761
012711
105200
001376
162704
001404
016437
000767
052762
005011
062702
000735
051662
042762
016405
006305
006305
006305
006305
042705
050562
022626
012716

000002
012737
000207

CLR

HALT

013102

6%:
WHICH:

002

001446

000340

000022
000020

002100
000300
000302

VECMAP:

1%:

000004

000012
013472
000200
001000
12111
001400

001276

2%:

177776

000004
000006
7%:

000002

013472

177776

005300

000002

000010
000002
000007
013474

000002

6%:
3s:
4%:

000020

5%:

#14%, (SP)

2.2

BIT
BNE

ggUOO.STRTSU

MoV
MOV
MoV
MOV
MOV
MoV
MOV

MOV
ROR
BCC
MOV

MOV
Mov
MOV
MOV
MoV
MGV
INCB
BNE
suB
BEQ
MOV
BR
BIS
CLR
ADD

BR
BIS
BIC

81C
BIS
cMp

013404

.BYTE

MOV
ASL
ASL
ASL
ASL

170777
000002

004134

PAGE:

0056(4

sMAKE DATA LIGHTS ZERO

;STOP THE SHOW
;DISABLE CONT. Sw.

JENTETED BY NON-EXISTANT
JRETUNN TO MAINSTREAM

TIME-OUT.

mP
ctMP
BLOS

0C1000
001470
001276

B8R

MoV
RTI

$TMP4

000001

013414

POWER DOWN AND UP ROUTINES

005000

2137
2138
2139
2160
VWA WVNIWAWMNWNAWMIWNES
S
SN S
NN NS WO VNN HWr

2136

PAGE 44

MoV
RTI
mMov
RTS

#340,a422
#6%,a420

#KM_MAP ,RZ2
#300,R0

#302 ,R1
R1,(RO)+
#6,(R1)+

;SET IOT TRAP PRIO TO 7
sSET IOT TRAP VECTOR

JSET SOFTWARE POINTER

JFLOATING VECTORS START HERE.

;PC OF IOT INSTR.
cSTART FILLING VECTOR AREA
JWITH (+2; 107

(RO+,(R1)+
SADD 2 TO RO +R1
R1,#1000
18
;BR IF MORE TO FILL
KMACTV,STMPO
;STORE TEMPORALLY
$TMPO
sBRING OUT A BIT
5%
;BR IF ALL DONE
#12.R4
;R4 IS INDEX REGISTER
BRLVL (R4) ,PS
JSET PSTO 7
(R2) .R1
#200,4(R1)
#MIT9,(R1)
.SET ROMI
#121111,6(R1)
;PUT INSTRUCTION IN PORT6
#BIT9!BIT8,(R?) ;FORCE AN INTERRUPT
RO
sSTALL

.=2

#2 R4

6%
BRLVL (R4) ,PS
’$
#5300,2(R2)

;FOR TIME TO INTERUPT

JGET NEXT LOWEST PS LEVEL

;BRIF R4 =0
sMOVE NEXT LOWER LEVEL IN PS
;BR TO DELAY
sNO_INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC11

(R1)
#10,R2

:CLEAR ROMI
:POP SOFTWARE POINTER

(SP) ,2(R2)
#7,2(R2)
BRLVL+2(R4)
,RS
RS
RS
sg

;GET VECTOR ADDRESS
sCLEAR JUNK
GET BR LEVEL OF kMC11
JSHIFT LEVEL &4 PLACES
;TO THE LEFT FOR THE
;STATUS TABLE

#170777 ,RS

RS5,2(R2)

(SP)+,(SP) +
#3%,(SP)
#$SCOPE,a#20
Pr

;KEEP GOING

s CLEAR UNWANTED BITS

;PUT BR LEVEL IN STATUS TABLE
;POP 10T JUNK OFF
;SET FOR RETURN
;

RESTORE

STACK

SCOPE VECTOR

JALL DONE WITH "AUTO SIZING''

PRO
PRO
PRé4
PRS
PR6
PR?7

sLEVEL
:LEVEL
sLEVEL
JLEVEL
;LEVEL
JLEVEL

INTTY:

TST8
BPL
MOV
TST8B
BPL
Mov

aslxs

165520
000240

BIC

RTS

:
PAGE

a$TKkB,R3

aszps

R3.38TPB

gng?!BITS,RS

;WAIT FOR DONE
;PUT CHAR IN R3
sWAIT UNTIL PRINTER

IS READY

;ECHO CHAR
;MASK OFF LOWER CASE

JRETURN

APT
. SIZE:

002300
002100
013756
000001

1%:

ASR
ASR
BIS
ASL
ASL
ASL
ASL
BIS
MoV

013760

013754

000010
000010

756
754

TST
DEC
BEQ
ADD
ADD

#KM_MAP R3

BASE, (R$)+

(R1)+,1(R3)

(R3)
(R3)
PRIRTY, (R3)
(R3)
(R3)
(R3)
(R3)
VECTR, (R3)+
(R2)+,(R3)+
(R3)+

#10,BASE
#10,VECTR

Se e Sy e,

R
TP
YR
R PR YR

MoV
CLR
e
BGT
MOV
MOV
MOvB

[l
»

I IN IS IR I I TR TP

3%:

$BASE ,3ASE
SVECT1,VECTR
SVECT1+1 PRIRTY
$DEVM, KMACTV
KMACTV, SAVACT
#$DDWO,R2
#KM.MAP ,R3
(R3)
+
#KM.END ,R3

;PUSH R2 ON STA(K
PUSH R3 ON STACK
CLEAR THE LOCAL VARIABLE
CLEAN UP LOCAL VARIABLE
GET THE DEVICE COUNT
SAVE THE NO. OF DEVICES
GET EXTRA INFO, BITS POINTER
GET BASE CSR ADDRESS
GET THE VECTOR
GET THE PRICRITY
SAVE THE KMC'S SELECTED ACTIVE
SAVE THE ACTIVE REGISTER
GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD
GET POINTER TO DEVICE MAP
CLEAR DEVICE MAP
IS WHOLE DEV.MAP CLEARED?
NO, THEN GO ON.
RESTORE DEV.MAP POINTER.
LOAD CSR ADDRESS
GET EXTRA INFO. BITS
SET IT IN RIGHT POSITION.
SET IT IN RIGHT POSITION.
GET PRIORITY IN STATI
SET THEM IN RIGHT POSITION

AR NI R

013756
013754
013760
001470
001474

RO, SAVNUM
#SMAMS
1 ,R1

;:PUSH RO ON STACK
:;PUSH R1 ON STACK

001376
001476
001346
001372
001366
001367
001374
001470
001402
002100

RO,=(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
VECTR
PRIRTY
$CDOW1,RO

SeNiN.NL N,

RESET
MOV
MOV
Mov
MOV
CLR
CLR
MOV
MOV
MOV
MoV
MOvVB
McvBe
MOV
MOV
MOV

013754
013760

—

005723
005300
001407
062737
062737

BRLVL:

165526
165524

—

013652
013654
013660
013664
013670
013672
013674
013700
013702
013704
013706
013710
013714
013716
013720
013722
013724
013732

000005
010046
010146
010246
010346
005037
005037
013700
010037
012701
013737
113737
113737
013737
013737
012702
012703
005023
022703
003374
012703
013723
112163
006213
006213
053713
006313
006313
006313
006313
053723
012223

165532

532

105777
100375
017703
105777
100375
010377
042703
000207

VHAAWLY

Gur Py
G

NN NN NN

2202

POWER DOWri AND UP ROUTINES

000000
000000
000200
000240
000300
000340

pour Quu-Qine Guuar G

S8000000
288BIL3R

IS AN [a VT N T ST, N1, 8]

CZKCGA.P11

07:54
PAGE 45
08~JUN~78 07:53

NOAWNMESHSOO

08-JUN-78

GET THE VECTOR IN STATI,
GET THE STAT2 FROM DDWXX
SKIP OVER STAT3
COUNT BY 1

ALL DONE?

INCREMENT BASE CSR ADDRESS BY 10
INCREMENT VECTOR ADDRESS BY 10

0057(1

08-JUN~78

CZKCGA. P

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257

07:54

013740
013742
013742
013744
013746
013750
013752
013754
013756
013760

PAGE 46

08-Jun-78 07:53

000747
012603
012602
012601
012600
000207
000000
000000
000000

PAGE:

POWER DOWN AND UP ROUTINES

2%:

MOV
MOV
MOV
MOV
RTS
VECTR:
.WORD
BASE :
.WORD
PRIRTY: .WORD

;

SET THE NEXT MAP ENTRY

(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0
PC
O
0
O

;.POP STACK
;.POP STACK
;.POP STACK
;;POP STACK
; RETURN

INTO
INTO
INTO
INTO

R3
R2
R1
RO

0058(/

08-JUN-78

(ZKCGA.P11

07:54
PAGE 47
08-JUN-78 07:53

PAGE
:

FREE RUNNING TESTS

2258
2259
2260
2261
2262
2263
2264
2265

JENFRARARRAAAARANARNARARARRAAN

TEST

waamansnnsnnnatnsrnttnvvnnn

;*FREE RUNNING FLAG MODE DATA TEST

s*TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA

c*LINE UNIT LOOP IS SET FOR THIS TEST.
;*ALL FOLLOWING TESTS ARE FREE RUNNING AND ARE PERFORMED
s*ONLY ON KMC'S WITH LINE UNITS. IF YOU WISH TO PERFORM

;*THESE

FREE RUNNING TESTS ON A KMC

(NORMALLY

;*WILL RUN BY LOADING AND STARTING DZK(CG
% WITH SWITCH 7 = 1

RSl

ittt

THE

FREE RUNNING

TESTS

sl sttt
22222022220
z

013762

013764
013772

014000
014004
014010
014014
014020
014022

014024
014026
014032
014036

SRSpunNa=
NOONO
oo

e
e
b

oSO

cod
ed ol
b
b wnd e

——b
e
b

NN NN

b wmd
b

b
b
el

COO00O000000

2303

014042
014046
014052
014054
014060
014062
014064
014070
014072
014074
014076
014102
01

000004
012737
012737

';tfittttt*tt*tit*ttttttt*tt*tt*tttt*tttttt*tttttttttttttt*ttttttt

000001
015006

004737
013700
062700
012702

022474
021360
000002
021362

005300
001375
005037
005037
012711

021306

105022

012711
105227
001375
005037
005711
100405
005237
001373
104014
000771
052711
005037
105711
100404
005237
001373
104014
012761
005061
142711
005037
105711
100020

001202
001442

TST1:

10%:

021310

040000
100000

000000
011122

18:

011122

004043
011122

2%:

011122

021430
000006
000040
011122

000004

SCOPE
MOV
MoV
$SKIPT
JSR
MOV
ADD
MOV
CLRB
DEC
BNE
CLR
CLR
MOV
BIT
BEQ
MOV

INCB
BNE
CLR

TST
aMl

INC
BNE
ERROR
BR
BIS
CLR
TST8B

B8M]
INC
BNE
ERROR
MOV
CLR
BICB

3%:

CLR

1STB
BPL

#1,8TSTAM
#TST2 NEXT

14%

PC.LDRVRF
RCOUNT ,RO

#2,RD

#RBUF ,R2

(R2)+
RO
108
TFLAG
RFLAG
#MIT14,(RY)

#BIT1S,STATI
.+6

#MITIS,(RD)

#0
4

TEMP
{(R1)
414
TEMP
1%
14
18
#4043, (R1)
TEMP
(R1)
.12
TEMP

14
#BASEMC,4(R1)

6(R1)

#40,(R1)
TEMP
(R1)

;R1

: LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
CONTAINS BASE KMC11 ADDRESS

JFIRST

TEST LOAD & VERIFY.

;CLEAR RECEIVER BUFFER
;CLEAR 2 MORE LOCATIONS
;CLEAR OUT RECEIVE BUFFER
. CLEAR BUFFER
;DONE YET!
;NO
JSET TFLAG 70 O
;SET RFLAG TO O
JMASTER CLEAR
; CRAM?
:BR IF NO
sIF CRAM SET RUN
;DELAY
;DELAY
sGET SET TO DELAY
JRUN SET?
:BR IF YES

;INC DELAY
;BR IF NOT DONE
JERROR RUN NOT SET

;TRY AGAIN

JBASEMC I, LU LOOP
JGET SET TO DELAY
;RDI SET?
;BR IF YES
JINC DELAY
:BR IF NOT DONE
;ERROR,RDI NOT SET
;SET UP BASEM(C ADDRESS
;CLEAR COUNT
;CLEAR RQl
JGET SET TO DELAY
;IS RDI GONE?
:BR IF YES

0059(2

08-JUN~78

07:54
PAGE 48
08-JUN-78 07:53

014150
014154
014156
014162
014164

FREE

INC
BNE

000002
000004
000006

TSTB

= -

8%:

000041

648

g OSmgOb
b

000006
000040

65%:

000044
011122

4%:

wviuang

MOV
MoV

18%:

BPL

001302
001304

015006

011122
021362
021360
000040
011122

000004
000006

011122

6%:

011122

021314
021312
000040
011122

000004
000006
7%:

011122
011122
000022

000002

011122

014432

001276

ERROR
JMP
ERROR

81s8
ISTB
BPL
CLR
BI(B
TSTB

8MI]
BISB

CLR

1STB

8M]
INC
BNE
ERROR
Mov
MoV
BICB

5%:

000040
011122

:
PAGE

RUNNING TESTS

011122

e
PONINON) b e b
[V,
X 3 W= OV
N &H

[aS1aST1AN
T N1,V V)
WWN
R
WA NN
NN

CZKCGA P11

16%:
11%:

CLR

1STB
BPL
INC
BNE
ERROR

81s8
(LR

TSTB
aMi

INC
BNE
ERROR
MOV
MoV
Bi(B
CLR
1ST8

8PL
INC
BNE
ERROR
CLR

MoV
TST8
B8M]

INC

BNE
DEC

TEMP

3%
2(R1)

18%
4(R1),$TMP?
6(R1) ,$TTMMP3
16
14%
14
#41,(R1)
(R1)

64%
6(R1)

#40,(R1)
(R1)

#44,(R1)

TEMP
(R1)
L4112

TEMP
4%
14
#RBUF ,4(R1)
RCOUNT ,6(R1)
#40, (R1)
TEMP
(R1)

.+12

TEMP

14
#40,(R1)
TEMP

(RY)

412

TEMP

6%
14

#T1BUF ,4(R1)

TCOUNT ,6(R1)
#40,(R1)

TEMP
(R1)
412
TEMP

7%
14

TEMP

#22,8TMPO
2(R1)
17%
TEMP
11%
$TMPO

s INC DELAY
;BR IF NOT DONE
;IS THERE A CNTL O ERROR
:BR IF NO
;SAVE SEL4 FOR TYPEOUT
;SAVE SEL6 FOR TYPEOUT
;CNTL O ERROR

;FATAL ERROR STOP

JERROR RDI STILL SET
;ASK FOR CNTL I

;WAIT FOR RDI

JBR IF NOT SETY
;SET FULL DUPLEX
;CLEAR RQI
JRDI UP?
;BR IF YES
JREC BA/CC

.GET SET TO DELAY

;IS RDI SET?
;BR IF YES
;INC DELAY
JBR IF DELAY NOT DONF
JERROR RDI NOT SET
;LOAD REC BA
;LOAD REC COUNT

;CLEAR RO!
JGET SET TO DELAY

;RDI GONE?
;BR IF YES
- INC DELAY
:BR IF NO DONE
JERROR RD] STILL SET
JXMIT BA/CC

;GET SET TO DELAY
sRDI SET?
;BR IF YES
. INC DELAY
;BR IF NOT DONE
JERROR RDI NOT SET
;LOAD XMIT BUFFER
;LOAD COUNT
;CLEAR RQ]
;GET SET TO DELAY
+RD1 GONE?
:BR IF YES
s INC DELAY
.BR IF NOT DONE DELAY
JERROR RD] STILL SET
:GET SET TO DELAY
JGET SET FOR LONG DELAY
JRDO SET?
;BR IF YES
. INC DELAY
JBR IF DELAY NOT DONE
;DEC DELAY COUNT

0060(2

08-JUN-78
C(ZKCGA.P1

07:54
PAGE 49
08~JUN-78 07:53

014436
014440
0164442
014450
014452

014454

512
514
522
524
526

001367
104014
016137
001001
104014

032761
001032
005737
001401
106014
012737
132761
001401
104014
022761
001401
104014
023761
001401
104014
142761

000453
005737
001401

104014
012737
132761
001401
104014

022761
001401
104014
023761
001401
104014

013700
012702
012703
010337
112205

FREE

000002

001300

000004

000002

021306
021306
000002

021314

000004

021312

000006

000207

000002

021310

000001

021362

000004

0%:

112304
120504
001401
104013

2425

014676
014702
014704
014710
014712
014716

005300
001367
005713
001401
104014
142761
005737
001640

012700

000207
021310

021306
022442
014744

BNE
ERROR

MoV

BNE
ERROR

BNE
TST
BEQ
ERROR
MOV
BITB
BEQ
ERROR
cMp
BEQ
ERROR
W
BEQ
ERROR
BICB
B8R
TST

BEQ
ERROR
MoV

BI18B

000006

021360
021314
021362
001302

PAGE
:

TESTS

BIT

13%:

021310
000002

021360

17%:

12%:

177777
000001

177777

RUNNING

000002
1

BEQ
ERROR
e
BEQ
ERROR
cMP
BEQ
ERROR
MOV
MOV
MOV
MoV
MOVB
MOVB
(MPB
BEQ
ERROR
DEC
BNE
TST
BEQ
ERROR
8ICR
1ST
BEQ
TST

BEQ
JSR
MoV

14
#-1, (FLAG

#8170,2(R1
44
14

¥TBUF
4 (R1)

.+4
i4

TCOUNT,6(R1)

.+
14
#207.2(R1)
15%

RFLAG

RYA

14
#-1.RFLAG

#8170,2(R1)
. +4
14

#RBUF
, 4 (R1)

.+4
14
RCOUNT
, 6(R1)
.
14
RCOUNT RO
#TBUF ,R2
#RBUF .R3

R3,$TMP?

(R2)+.RS
(R3)+ R4

RS RS

0*4
13
RO

9%
(R3)
.+4
14
#207,2(R1)
RFLAG
168

JBR _IF NOT DONE DELAY
;ERROR RDG NOT SET
s SAVE SELZ2
;BR IF 0K
;ERROR!!! SEL2 - 0..!.
JREC OR XM;T?
JBR IF REC
;FIRST TIME HERE?
:BR IF YES
JERROR MULTIPLE XMIT DONES
JSET

TFLAG T0 -1

;IS IT CONTROL O
;BR IF NO
;XMIT ERROR
JXMIT 3A CORRECT?
;BR [F YES
;XMIT BA ERROR

;s COUNT 0K?
:BR IF YES
JXMIT COUNT ERROR
;CLEAR RDO AND BITS (-2
; CONT INUE
;FIRST

TIME HERE?

.BR IF YES
JERROR MULTIPLE REC DONES
;SET RFLAG TO -1
JIS IT CNTL O
:BR IF NO
JRECEIVE ERROR
JREC BA CORRECT?
;BR [F YES
;REC BA ERROR
;COUNT 0K?

;BR IF YES
JREC COUNT ERROR
;GET SET TO CHECK DATA

;R2 POINTS 7O GOOD DATA
:R3 POINTS TO RECEIVE DATA
:SAVE ADDRESS FOR TYPEOQUT
:R5 = XMIT DATA

;R4 = RECFIVE DATA

;CHECK DATA
;BR IF 0K
:DATA ERROR
;DEC COUNT
:BR IF NOT DONE

;THIS SHOULD BE 0,

ELSE

16$

;1T RECEIVED TO MUCH!'!
ERROR
;CLEAR RDO AND BITS 0-2
;REC DONE?
:BR IF NO
JXMIT DONE?
;BR IF NO

#25% RO

JPOINTER TO EXPECTED SOFT COUNTS

TFLAG

PC, SHUTDOWN

: SHUTDOWN KM(

0061(2

08-JUN-78
C(ZKCGA.PTT
2626

26427

2628

2629
2630
2631
2632
2633
2434
2435
2436
437
2438
2639
2640
2641
2442
2643
2444
2445
2646
2447
2448

07:54

PAGE 50

08-JUN-78 07:53

014722

014726

014732

014734
014736
014740
014742
014744
014747
014752
014754
014762
014770
014776

012701
012702
122021
001007
005302
001374
000421

015004
015006

021633
000010

000
000
000
021433
021435
021437
021441

21s:

22%:

000
000

25%:

001300
001302
001304
0C1306

23%:

24%:

015006

14%:

2463
2464

2465
2466
2467
2468
2669
2470
2471
2472
2473
2474

26475
2676
2477
2678

2479
2480
2481

#BASEM(C+3 R1

MOV
CMP8
BNE
DEC
BNE
BR
.BYTe

#10,R?
(RO)+, (R1)+
23%
R2
22%
24%
0.0,0,0,0,0.0,0

MOVB
MOVB

BASEMC+3,$TMP]
BASEMC+5,$TMP2

MOVB

BASEMC+11,$TMP4

ERROR

JPOINTER TO ACTUAL COUNTS

; COUNT
;COMPARE SOFT ERROR COUNTS
;IF ERROR BR 23%
:DCC COUNT
sCONTINUE CHECKING IF NOT DONE
JALL COUNTS OK, GET OQuT
,EXPECTED ERROR COUNTS

BASEM(C+7,$TMP3
17

:SCOPE

;SCOPE THIS TEST

SRARAANRRNRRNNNARKARRARNRARE

JEST

Att
A
A A A AR NN
t
by

;*OVERUN TEST
;*IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE
;*BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS

MRS

;

AL AR RES

Rl sttt
2223233222222

TEST 2

MRS

015006
015010
015016
015024
015030
015034
015036
015040
015044
015050
015054

0
0
0
0
0
0
0

NNN_._n_ag
NSO MNO

2455
2456
2457
2458
2459
2460
2461
2462

MoV

MovBe

2449
2450

2451
2452
2453
2454

:
PAGE

FREE RUNNING TESTS

000004
012737

012737

004737
004537
021314
000044
012700
012703
005037
105761
100407
005237
001372
005303
001370
104014
000421
132761
001002
104014
000423

012705

016104
020504
001404

000002
015200

001202
001442

TSTZ:

ARR
s
l
YT T
2222232333222 23222)

SCOPE
MOV
MOV

#2,STSTNM
#TST3 NEXT

$SKIPT

108

sR1

; LOAD THE NO. OF THIS TEST
. POINT TO THE START OF NEXT TEST,
CONTAINS BASE KMC11 ADDRESS

022030
022410

JSR

PC,BASELD

RS . XFRELD

-LOAD KMC BASEMC ADDRESS
;LOAD XMIT BA/(CC

000010
000015
011122
000002

44
MOV
MOV
CLR
ISIB

#10,R0
#15.R3
TEMP
2(R1)

RO = RETRANSMISSION COUNT

INC

TEMP

JSR

TBUF

1%:

011122

000001

BMI

BNE
DEC

BNE
ERROR
BR
BITB
BNE

000002

ERROR

000004
000006

118:

.+20

1$
R3
1%
14
108
#BIT0,2(R1)
11$
14
108

‘o

*DELAY COUNT

;CLEAR DELAY COUNTER
;1S RDY O SET?
:BR IF SET
s INC DELAY COUNTER
;BR IF _NOT DONE DELAY

sDEC DELAY COUNT
;BR IF DELAY NOT DONE
;ERROR, RDY O NOT SET
JGET OUT
;18 IT (NTL 0?
sBR IF YES

w2y

#BIT2.RS

;ERROR, NOT CNTL O
s CONT INUE
JPUT 'EXPECTED'' IN RS

BEQ

12¢

;1S ORUN SET?
;BR IF YES

MOV
CMP

6(R1) ‘R%
RS, R4

JPUT "FOUND'' IN R4

006272

08-JUN~78

07:54
PAGE 51
08-JUN-78 07:53

OWUi:hJON§¢UCFC>8flFw;

b
e
d o
e

NNV

Goar Gover

VAW
N
A WA

oo Qe Qs

2682
2483
2484
2485
2486
2487
2488
2489
2490
2691
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505

elelelolelelelelololale]

(ZKCGA.P11

022704
001413

000001

0462761
005037
005300
001337
004737

000207
011122

106015

104420

042761
005037
000726

000002

12%:

000002

10%:
138:

022442

000207
011122

:
PAGE

FREE RUNNING TESTS

CMP
BEQ
ERROR
8IC
CLR
DEC
BNE

#1,R4
138
15

#207.,2(R1)

TEMP
RO
1%
PC.SHUTDOWN

JSR
ADVANCE
B8IC
#207,2(R1)
CLR
TEMP
BR
1%

;DATA (K ERROR?
;BR IF YES
;ERROR, ORUN NOT SET
;CLEAR RDO
JRESET DELAY
;DEC RETRANS COUNT
s COUNT INUE
s SHUTDOWN KM(C
.SCOPE THIS TEST
;IGNOR THIS ERROR
JRESET DELAY
. CONT INUE

SRNKARRRANRARRAARNKRAARKRARAAR

[EST

AR A A AR A AR AR AN

= .OST DATA TEST

A RAAARE RN

:*IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE
*BUFFER VERIFY THAT A LOST DATA ERROR OCCURS.
AR

:
015200
015202
015210

000004
012737
012737

015216

104410

015220
015224
015230
015232
015234
015240
015242
015244
015250
015254
015260
015262
015266

015270
015272
015274
015276
015300
015306
015316
015312
015314
015320
015324
015326
015330
015332

004737
004537
021362
000020
004537
021314
000044
012703
005037
105761

100407
005237
001372
005303
001370

104015
004737

R RN R

AR A AN RN R AR AN RARARARR AN RAN

RN R AR AANAANRRA

TEST 3

..tttttttttttttt*ttttttittt*ttt*tttt*ttttttt*ttttitttttttttttttifi

000003
015236

001202
001442

TST3:

022030
022356

SCOPE

MOV

#TSTL NEXT

MSTCLR
$SKIPT
JSR
JSR
RBUF

10$
PC,BAScLD
RS ,RFRELD

TBUF

000015
011122
000002

1$:

011122

#15,R3
TEMP
2(R1)
. +20

DEC

BR
BIT8
BNE
ERROR

10%
#8170,2(R1)
11%
14

MOV
MOV

#BI1T4
RS
6(R1) R4

BEQ

12$

INC
BNE

000020
000006

000002

11%:

(MP

022442

12%:

R5 ,XFRELD

MOV
(LR
TS18B
8M]

BNE
ERROR

000001

#3,8TSTANM

MOV

20
JSR

022410

104014

000417
132761
001002
104014
000411
012705
016104
020504
001401

AR AR

ERROR

JSR

TEMP
1%

18
14

. LOAD THE NO. OF THIS TEST

. POINT TO THE START OF NEXT TEST.

:R1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC11

.LOAD KMC BASEMC ADDRESS
;LOAD RECEIVE BA/CC
.BA
;CC
sLOAD XMIT BA/CC

;BA

.CC

;DELAY COUNT
. CLEAR DELAY (COUNTER
.15 RDY Q SET?
:BR IF SET
s INC DELAY COUNTER
;BR IF NOT DONE DELAY

«DEC DELAY COUNT

;BR IF DELAY NOT DONE
;ERROR, RDY O NOT SET

JGET QUT
IS IT CNTL 0?
;BR IF YES
JERROR NOT CNTL O

108

: CONT INUE

RS ,R4

. 1S LOSY DATA SET?

PC,SHUTDOWN

JPUT .EXPECTED ' IN RS
JPUT “TOUND'" IN R4

:BR IF YES

JERRQR, LOST DATA NOT SET

s SHUTDOWN KM(

00632

08-JUN-78

(ZKCGA.P1

2538
2539
2540
2541
2542
2543
2544
2545
2546

07:54
PAGE 52
08-JUN-78 07:53

:
PAGE

FREE RUNNING TESTS

015336

108:

: SCOPE

;SCOPE THIS TEST

SRRARAREENAAAANARAANNRRANRAR

TEST

anannaunnnntnsnnndnansanann

s*TRANSMIT NON-EXISTENT MEMORY TEST

;*IN FREE RUNNING MODE, LOAD A TRANSMIT BA THAT WILL TIME OUT
;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS

;;t'lttii'fitlt*fiflttttttttfi**tfitttt*'ttttttttttttttttttttttttt.t

2547

2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566

2567
2568
2569

2570
257
2572
2573

2574
2575
2576
2577
2578
2579
2580
2581

2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593

mm————
e
cee———

SRR NA AR A AR AR AR AN AN AN AR A RN AN AR A AR RN AN

015336
015340
015346

000004
012737
012737

015354

104410

015356

004737
004537
177320

015362
015366
015370
015372

015376
015402
015406

015410

015414
015416
015420

015422
015424
015426
015434
015436
015440
015442
015446
015452
015454
015456
015460
015464

000004
015464

001202
001442

TST4:

SCOPE

MOV
MOV

MSTCLR

022030
022410
000015
011122
000002

18:

011122

000001

000400
000006

118:

022442

108:

; LOAD THE NO. OF THIS TEST
. POINT TO THE START OF NEXT TEST.

;RT CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11

$SKIPT
JSR
JSR
177320
140044
MOV

#15,R3

cLOAD KMC BASEMC ADDRESS
;LOAD XMIT BA/CC
;BA
. CC
;DELAY COUNT

TST8B
aml
INC
BNE
DEC
BNE
ERROR

2(R1)
.+20
TEMP
13
R3
1%
14

;IS RDY O SET?
;BR IF SET
s INC DELAY COUNTER
;BR IF NOT DONE DELAY
sDEC DELAY COUNT
:BR IF DELAY NOT DONE
;ERROR, RDY O NOT SET

CLR

B8R
8118

000002

#4,3TSTANM
#TSTS5 NEXT

A NN AN AN AR RN AN RN RRNAN RN RRA

BNE
ERROR
BR
MoV
MOV
P
BEQ
ERROR

JSR
;SCOPE

10%
PC,BASELD
RS ,XFRELD

TEMP

;CLEAR DELAY COUNTER

108
#8I1T70,2(R1)

118
14
108
#BI1T18.R5
6(R1) R4
RS,R%
.+
15

PC,SHUTDOWN

SGET ouT
;IS IT CNTL 0?

:BR IF YES
;ERROR, NOT CNTL O
s CONT INUE
sPUT "EXPECTED'" IN RS
JPUT "FOUND'' IN R4
:1S NON-EX-MEM SET?
sBR IF YES
;ERROR NON-EX-MEM NOT SET

2 SHUTDOWN KMC
;SCOPE THIS TEST

SNANAARARENRRRRARARRNRNRRARY

TEST

annnnnvennansnsenennnnnrenann

s*RECEIVE NON-EXISTENT MEMORY TEST
;*IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME ouT
;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS
JIRARAR AR

AN AR AR R RN AR AR AR AN N AN E AR R RN RN AR AN AR AR AR AN R R AR RAN O A AN

015464
015466

000005

001202

TSTS:

AN AR AN AN N A AR AR A AR

SCOPE

MOV

#5,8TSTNM

A AR

AR RN AR R R AR AR R AR R RN

N AR A RN

; LOAD THE NO. OF

THIS TEST

00642

08-~JUN-78

(IX(GA.P11

2601
2602
2603
2604
2605

2606
2607
2608
2609
261C
2611

2612
2613
2614

2615
2616
2017
2618

2619

2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649

015474

PAGE

08-JUN-78 07:53
01273%7

015502

104410

015504
015510
015514
015516
015520
015524
015526
015530
015534
015540
015544
015546
015552
075554
015556
015560
015562
015564
015572
015574
015576
015400
015604
015610
015612
015614
015616
015622

004737
004537
177320

160044

004537
021314
000044
012703
005037
105761
100407
005237
001372

015622

NTST6 NEXT

$SKIPT
JSR
JSR

022030
022356

177320
140044
JSR

022410

TBUF
44

000015
011122
000002

MOV

1%:

011122

13276
100

000001

012705
016104
020504
001401

000400
000006

004737

022442

104015

:
PAGE

MOV

001442

005303

001370
104014
000417

FREE RUNNING TESTS

MSTCLR

8382

2594
2595
259
2597
2598
2599
2600

07:56

CLR
1STR
eM]
INC
BNE

;LOAD KM(C BASEM( ADDRESS
;LOAD RECEIVE BA/(C
;BA
;CC
;LOAD XMIT BA/CC

;BA
,CC

cCLEAR DELAY (OUNTER
;IS RDY O SET?

JBR IF SET
;INC DELAY COUNTER
;BR IF NOT DONE DELAY
.DEC DELAY COUNT
;BR IF DELAY NOT DONE

#B170,2(R1)

B8R

14
108

11%
14

108

JERROR, RDY O NOT SET
JGET OUT

;IS IT CNTL O7?

;BR IF YES
;ERROR, NOT CNTL O

. CONT INUE

MOV

#B81T8,RS

;PUT “EXPECTED'' IN RS

RS ,Ré

;1S NON~-EX-MEM SET?

MOV

ERROR

JSR

;SCOPE

ADDRESS

;DELAY COUNT

TEMP
2(R1)
.+20
TEMP
18

81718

B8EQ
10%:

#15,R3

R3
1%

BNE
ERROR

118:

RS ,XFRELD

DEC
BNE

ERROR
B8R

000002

10%
PC,BASELD
RS ,RFRELD

. POINT TO THE START OF NEXT TEST,

;R1 CONTAINS BASE KMC11
;MASTER CLEAR KMC11

6(R1) R4

. *4

JPUT “FOUND'' IN R4

:BR IF YES

PC.,SHUTDOWN

;ERROR NON-EX-MEM NOT SETY

s SHUTDOWN KMC

;SCOPE

JHRARATNAANRAARRRARAANNARRRR

THIS TEST

TEST

nwancanantnnernatanennnstnnnne

;*PROCESSOR ERROR TEST
;*IN FREE RUNNING MODE, DO A BASEMC TRANSFER REQUEST AFTER A
:*BASEMC HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS.

;:ttt"t""fit*ttttttl.titittttilttt'tfit'fin'lfitt‘t'ltiitittttfi‘

T o
»

015622
015624
015632

000004
012737
012737

015640

104410

015642
015646
015652
015654
015656
015662
015666

004737
152711
105711
100376
162711

005037
105761

000006
015740

001202
001442

RRARARA

1ST6:

Mov

MOV

000040
011122
000002

“28:

13%:

AN RN A A A AN

SCOPE

MSTCLR

022030
000043

$SKIPT
JSR

AR A N AR ANARR AR AR R AR AR AR R RN AN N ANNARRNRRNRRR R R kR

#6,8TSTNM

#TST7 NEXT
10%
PC ,BASELD

BISB

#4%,(R1)

BPL
BICB

=2
#40, (R1)

1STR

CLR
TSTB

LOAD THE NO. OF

THIS TEST

. POINT TO THE START OF NEXT TEST,.
:R1 CONTAINS BASE KMC11 ADDRESS

IMASTER CLEAR KMC11

:LOAD BASEMC ADDRESS

*2ND BASEMC REQUEST

(R1)

‘RDI

SET?

TEMP
2(R1)

*GET SET TO DELAY
JRDO SET?

‘BR IF NO
:CLEAR RQIl

0065(2

08-JUN-78

CZKCGA.P11

26350
2651
2652

2653
2654
2655
2656
2657
2658
2659
2660
2661
2602
2663
2664
2665
2666

07:54

015672
015674
015700

015702
015704
015706
015714
015716
015720
015722
015726
015732
015734
015736
015740

PAGE 54

08~JUN-78 07:53

100405
005237
001372

104014
000770
132761
001002
104014
000407
012705
016104
020504
001401
104015

BMI
INC
B8NE

011122

000001

000002

001000
000006

148:

11%:

10%:

2667

ERROR
BR
BI1B
ANE
ERROR
BR
MoV
MOV
cMP
BEQ
ERROR
;SCOPE

148
TEMP
13%

14
138
#BI1T0,2(R1)
11%
14
10%
#BIT9,RS
€(R1) R4
R5,R4
L+
15

:BR IF YES
:INC DELAY
;BR IF NOT DONE DELAY

;ERROR, RDO NOT SET
:TRY AGAIN
;1S IS CNTL 0?
;BR IF YES
SERROR NOT CNTL O
2 CONT INUE
;PUT 'EXPECTED'' IN RS
;PUT "FOUND'' IN R4
;1S PROC ERROR SET?
:BR IF YES
;ERROR, PROC ERROR NOT SET
:SCOPE THIS TEST

SRRARKAKNARARAARNKAARNARRRARY

2668
2669
2670

TEST

AN A ANk A A

A kAR AR AR A AR AR RN

;*PROCESSOR ERROR TEST
s*IN FREE RUNNING MODE DO A RQ] WITH AN ILLEGAL 10 CODE
J*VERIFY THAT A PROCESSOR ERROR OCCURS

2671

s IARRRA

2672
2673

;

2674

2675

2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698

5;82

016056

2699
2700
2701
2702

:
PAGE

FREE RUNNING TESTS

015740
015742
015750

000004
012737
012737

015756

104410

015760
015764
015770
015772
015774
016000
016004
016010
016012
016016
016020
016022
016026
016032
016034
016036
016040

004737
152711
105711
100376
142711
005037
105761
100405
005237
001372
104014
000770
132761
001002
104014
000407
012705

016044
016050
016052
016054

016104
020504
001401
104015

KRR AR

000007
016056

001202
001442

TST7:

022030
000046

000040
011122
000002

1%:

011122

000007

001000
000006

000002

118:

108:

AR AR AR AN AN AR R AR

AR AR AR AR A A AR AR AAN A AR RN

R AR R AR AR AR N

TEST 7
A EA AN AR RARNRRAA N AR AR AR AR A AR R AR R RARNRRNRRRR R AR NN

SCOPE
MOV
MOV

MSTCLR

$SKIPT
JSR
BISB
TSTB
8PL
BICB
CLR
1STB
BMI
INC
BNE
ERROR
B8R
BITB
BNE
ERROR
BR
Mov

MOV
cMP
BEQ
ERROR

:SCOPE

#7,$TSTNM
#TST10,NEXT

10$
PC ,BASELD
#46,(R1)
(RD
.~
#40, (R1)
TEMP
2(R1)
+14
TEMP
1%
14
1%
#8170,2(R1)
118
14
10%
#BIT9,RS

6(R1) R4
R5,R4
.+
15

R R kAL

; LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
MASTER CLEAR KMC11
sLOAD KMC BASEMC ADDRESS
sRQI AND ILLEGAL CODE
;WAIT FOR RDI
:BR_IF NO RDI
;CLEAR RaQl
sCLEAR COUNTER
;RDY O SET?
:BR IF YES
;BUMP COUNTER DELAY
;BR IF NOT DONE
2ERROR NO RDY O
;TRY AGAIN
;1S IT CNTL O
:BR IF YES
sERROR, NOT (NTL O
s CONT INUE
JPUT "EXPECTED'' IN RS

;PUT "FOUND'' IN R4
;1S PROC ERROR SET?
;BR IF YES
;ERROR PROC ERROR NOT SET
;SCOPE THIS TEST

0066(2

08-JUN-78

CZKCGA.PIT

2706
2707
2708
2709
2710
2711
2712
2713
2714

2715
2716
2717
2718
2719
2720

2721
2722
2723
2724
2725
2726
2727
2728

2729

2730
2731

2732
2733
2734
2735

2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2756
2755
2756
2757
2758
2759
2760
2761

07:54
PAGE 55
08-JUN-78 07:53

FREE RUNNING

:
PAGE

TESTS
SRRRRAAAAARARRAAARRNNRARAANNY

s *HALF

DUPLEX

TEST

Arnaa st a v ek A

NN RS

TEST

;*IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP
s*SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES

KRR AR AR

;

AR AR AR R

RN AN A AN R AR A ARA AR AR AN AARRAN AR

RN AR

TEST 10

[

016056
016060
016066

000004
012737
012737

016074

104410

004737
004537
021362
000044

004537

016126
016132
016136
016140
016144
016146
016150
016152
016154
016156

021314
000044
012703
005037
105761
100406

005237
001372
005303
001370

000010
016156

001202
001442

RN AR

75110:

SCOPE
MOV
MOV
MSTCLR
$SKIPT
JSR
JSR
RBUF
44
JSR
TBUF
44

022136
022356

022410

000003
011122
000002

mov

CLR
TSTB

4%:

011122

000401

104014

5%:

10%:

AR AR AR RN AN AR AR AR R AR KRR AR NRA RN A AR R ARARAARR N

#10,STSTNM
#TSTT1 NEXT

: LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.

JRT CONTAINS BASE KMC11 ADDRESS

;MASTER CLEAR KM(C11

10%
PC ,BASELH
RS ,RFRELD

;LOAD BASEMC AND HALF DUPLEX
:LOAD RECEIVE BUFFER
.BA
.CC
;LOAD TRANSMIT BUFFER

RS ,XFRELD

;BA
;CC

#3 .R3

;LOAD DELAY COUNT

TEMP
2(R1)

. CLEAR DELAY
;IS DONE SET?

8M]
INC
BNE
DEC
ggE

5%
TEMP
4%
R3
?33

:BR IF YES (ERROR)
:INC DELAY
:BR IF DELAY NOT DONE
;DEC DELAY COUNT
:BR IF DELAY NOT DONE

ERROR

sERROR DONE WITH HALF-DUPLEX

SRNRRANRANAARNAAARRARRANARRER

TEST

naa v e aa

v kA A Ak kAR

;*RESUME TEST
;*THIS TEST SENDS AND RECEIVES A BUFFER AND SHUTS DOWN THE
J*KMC. THEN A MASTER CLEAR IS ISSUED AND A BASEMC WITH RESUME
;*BIT SET IS GIVEN, ANOTHER BUFFER IS SENT AND RECEIVED.

s*DATA IS CHECKED.

SRR RAR AR R

AN AR RN AN A RRARRAARA AR

AR AR

AN A AR R AR R AR ARANARNAAA RN AR AR

TEST N

[

S e R

016156
016160
016166

000004
012737
012737

016174

104410

016176
016202
016206
016210

005037
005737
001003
004737

000011
016370

020050
020050
022030

001202
001442

AR AR AN

TST11:

;JBSKIPT
1%:

SCOPE
MoV
Mov

AR AT AR AN AR

#11,8TSTNM
#TST12 NEXT

Tg;CLR

CLR
TST
BNE
JSR

RN A RRR

AN RRNN AR AN A RN AR RRRRIARRRARRENR

; LOAD THE NO. OF THIS TESY
. POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
SMASTER CLEAR KMC11%

RE SUME
RE SUME
2%
PC,BASELD

sCLR RESUME FLAG
;FIRST OR SECOND PASS?

;BR IF SECOND
;BASEMC

0067(2

0B-JUN~78

CZKCGA.P11

07:54

PAGE 56

08~JUN~-78 07:53

2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778

016214
016216
016222
016226
016230
016232
016236
016240
016242
016246
016252
016256
016262
016264
016270
016272
016274

000402
004737
004537
021362
000044
004537
021314
000044
012703
012700
005037
105761
100407
005237
001372
005303
001370

2780
2781
2782
2783

016300
016302
016310
016312

000433
042761
005300
001361

2785
2786
2787

016320
016324
016330

012703
012700
112205

2790
2791
2792
2793
279
2795
2796
2797
2798
2799
Sgg?

016336
016340
016342
016344
016346
016352
016356
016360
016366
016370
016370

001401
104012
005300
001371
004737
005737
001004
012737
000705

2779

2784

2788
2789

016276

016314

016332
016334

022246
022356

2%:
3%:

022410
000030
000002
011122
000002

4%:

011122

104014

012702

PAGE:

FREE RUNNING TESTS
BR
JSR
JSR
RBUF
44
JSR
TBUF
44
MOV
MOV
CLR
TSTR
BM]
INC
BNE
DEC
BNE

3%
PC.RESUM
RS.RFRELD

RS ,XFRELD
#30,R3
#2,R0O
TEMP
2(R1)
.+20
TEMP
43
R3
4%

ERROR

000207

B8R
8IC
DEC
BNE

000002

021314

10%
#207,2(R1)
RO
4%
#TBUF ,R2
#RBUF ,R3
#44 RO
(R2)+,R5
(R3)+ R4
R5.R4
7%
12
RO
6%
PC.,SHUTDOWN
RE SUME
8%
#-1 ,RESUME
1%

MOV

021362
000044

6%:

112304
120504

7%:

022442
020050
177777

020050
8%:
10%:

2802
2803

MoV
MOV
MOVB

MOVB
CMPB

BEQ
ERROR
DEC
BNE
JSR
TST
BNE
MOV
B8R

. SCOPE

s CONTINUE
JBASEMC WITH RESUME BIT
JRECEIVE BUFFER
:BA
;CC
JXMIT BUFFER
;BA
.CC
;DELAY COUNT
JNEED TWO DONES
;CLEAR DELAY COUNTER
;IS RDY O SET?
;BR IF SET
;INC DELAY COUNTER
;BR IF NOT DONE DELAY
;DEC DELAY COUNT
;BR IF DELAY NOT DONE

;ERROR, RDY O NOT SET

;GET ourt
;. CLEAR DONE
:TWO DONES YET?
;BR IF NOT
;ADDRESS OF GOOD DATA
;ADDRESS OF RECEIVED DATA
. COUNT
;LOAD GOOD DATA
;LOAD FOUND DATA
; COMPARE DATA
;BR IF 0K
;DATA ERROR
:DONE YET?
;BR IF NOT
: SHUTDOWN KMC
.
;BR IF ALL DONE
;SET FLAG FOR SECOND PASS
s CONTINUE

:SCOPE THIS TEST

INRARRRACRRNRARRRARRRRNRANAN TEST 12 ANant

2804
2805
2806
2807
2808
2809

A AR AR

2810

JxIF IT IS PRESENT, OTHERWISE LINE UNIT LOOP IS SET.

2812
2813

;

2815

RN AN

2811

2814

2816
2817

ARk AR E AR

;*FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER)
;*THIS TEST REPEATEDLY QUEUES UP 7 RECEIVE BUFFERS AND
;%7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS
;*ARE RECEIVED. TRANSMIT COUNTS RANGE FROM 2 1O 104.
;*DATA IS A BINARY COUNT PATTERN. THE RESUME FUNCTION
;*1S CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR
AR

A RN R R R AR

AR R R R E AR AN

R AR AR R AR

AR R AR

TEST 12

[mm———ecceca———

016370
016372

000004
012737

000012

001202

TST1¢:

SCOPE
MOV

AR AR AR AR R AR KRR R KRR N KR A AR R RN AR R R AR AR A RN RRANCE

#12,8TSTNM

; LOAD THE NO. OF THIS TEST

0068(2

08-JUN-78

(ZKCGA PN

2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
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

0/7:54
PAGE 57
08-JUN-78 07:53

C16400

012737

016406

104410

016410

012737
013700

010077

003662

001442

MOV
MSTCLR

000340
002050

177437
017132
163410
0174622
163402

PAGE
:

FREE RUNNING TESTS

177776

$SKIPT
Mov

ENDEX1
#340,PS

ASR
ASR
ASR
ASR

RO
RO
RO
RO

MoV

163412

;R1

POINT TO THE START OF NEXT

CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KM(C11

;LOCK OUT INTERRUPTS

STAT1.,RO

;GET BR LEVEL

BIC

#177437 ,R0

;PUT BR LEVEL IN RO

MOV
MOV
MoV

RO, aKMRLVL
#OISR,aKMTVEC
RO, aKMTLVL

;LOAD LEVEL
;LOAD OUTPUT VECTOR
sLOAD LEVEL

MOV

163404

#SEOP NEXT

#11SR,aKMRVEC

sSHIFT RIGHT 4

TIMES

;LOAD INPUT VECTOR

JINITIALIZE ALL BUFFER LISTS AND COUNT LISTS

016544
016552
016556
016562

016566

016572

016576
016600
016604
016606
016612
016616

016622
016624
016626
016630
016632
016634
016642
016650
016652
016656

012737
012700
012703
010320
062703
022700
001372
012720
022700
001373
012700
013720
022700
001373
012737
012711
012711
012700
005037
012705
005025

022705
001374
012704
013724
022704
001373
005002
005004
005711

100376
152761

032737
001002
052711
022737

000104
020054
020346

021306
1%:

100104
020072
020110

2%:

020222
021306

3s:

020110

020240

000005
040000

021304

100000
127777

020050
020256

CLRTARB:

2%:

021302

020240
021306
020256

4%:

5%:

000700

040000

004000
000005

000002

002050

021304

MoV
MOV
MoV
MoV
ADD
cMP

BNE
MoV
o
BNE

#104,TFLAG
#XMITBA+2 R0
#RBUFF ,R3
R3,(RO)+
#104 ,R3
#XMITBA+20,RO

sTFLAG CONTAINS COUNT
;RO POINTS TO BA LIST
:R3 CONTAINS BUFFER ADDRESS
;LOAD BA LIST WITH REC BA
sUPDATE BUFFER ADDRESS
;END OF REC BUFFERS?

MOV
MOV
CMP
BNE
MOV
MOV
BIT
BEQ
MOV

1%
:NO LOAD NEXT ONE
#TBUFF, (RO) +
;LOAD BA LIST WITH XMIT BA
#XMITBA+3RO
6
;END OF XMIT BUFFERS?
2%
sNO LOAD NEXT BUFFER
#RCNTAB+2 RO
;RO POINTS TO COUNT LIST
TFLAG, (RO) +
;LOAD COUNT OF 104
#RCNTAB+20,RO
;END OF REC COUNT LIST?
3t
:BR IF NO
#5,FLAG ;LOOP COUNT
MITI4, (R)
;SET MASTER CLEAR
#BIT15,STATI
2 10P?
.+6
;BR IF NO
#BIT15,(R1)
;SET RUN ON IOP

CLR

RESUME

Moy

#-1.R0O

Mov
(LR
Me
BNE

#RDNTAB RS
(R5)+
#RBUFFE ,RS
2%

MOV
mp

TFLAG, (R4) +
#XCNTAB+16,R4

01"
BNE
CLR
CLR
TST
BPL

BISB
BIT

BNF
BIS

(MP

#XCNTAB R4
4%
R2
R4

(R1)

.=2
#8176,2(R1)
#BIT14,STATI

.46
#BIT11,(R1)

#5,FLAG

;RO IS INPUT DONE COUNTER

;CLEAR RESUME FLAG

.GET READY TO CLEAR ALL RECEIVE
;BUFFERS

SEND OF BUFFER?
;BR IF NO

;R4 POINTS TO XMIT COUNT LIST

;LOAD XMIT CHAR COUNT
+DONE?
JBR IF NO
;R2 IS OUTPUT DONE COUNTER
;R4 IS USED AS INDEX IN OISR
;1S RUN SET?
;WAIT FOR RUN

;SET IEO
;LOOP BACK CONNECTOR?

:BR _IF YES
;SET LINE UNIT LOOP

sFIRST TIME?

TEST.

00693

08-JUN-78

CZKCGA.P11

&
WNINDN)
— —
OO SO

D
b oD
e
e

Se8eY I3BBVY

=00 [+RaNTo
NV, ¥ Y WH

2910
2911

017022
017024
(17030
017036
017040
017044
017046

NNNNNNN

2907
2908

017016

-l

2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905

2878
2879

016664
016666
016672
016674
016700
016704
016712
016716
016722
016724
016730
016734
016726
016742
016746
016750
016754
016754
016760
016762
016764
016766
016772
016774
016776
017000
017002
017004
017006
017010
017012

elelelelelele]

2874
2875
2876
2877

07:54
PAGE 58
08-JUN-78 07:53

001003
052711
000402
052711

060143

000144
011122
000022
177776
000020

001300
SCAN:

017102
000034

SCANZ:

017102
000034

8%:

017102

012700
012002
005005
005003
010237
112204
120504

001401
104013
005205
005203
021003
001366
062700
022700
001356
012700
032737
001003
162737

000040
021304

005337
001402
000137
005337
001402
000137
104001

000762

6%:

000002
020312

021306

005337
001242
152711
005737
001775
000400
000004
104420

5%:

001302

005337
000403

:
9%

020256

000001
000001

000146
021304

011122
016716
001300
016716

PAGE
:

FREE RUNNING TESTS

8%
SCAN1
#34 R4
9%
SCAN1

MoV
MOV
CLR

#RDNTAB,RO
(RO)+,R2
RS

CLR
MOV
MOVB
cMPB
BEQ
ERROR
INC
INC
CMP
BNE
ADD
cmP

021304

021306

1%
#143,(R1)

BNE
8IS
BR
BIS
CLR
Mov
CLR
CMP
BEQ
JMP
cMP
BEQ
JMP
CMP
BEQ
JMP

BNE
MOV
A H
BIT
BNE
DEC
BR
18:
SuB
2%:
DEC
BNE
ENDEX:
BIS8
1%:
TST
BEQ
BR
ENDEX1: SCOPE
ENDEX?2: ADVANCE
SCAN1:
DEC
BEQ
JMP
°%:
DEC
BEQ
JMP
2%:
ERROR
BR

#144, (R1)
TEMP
#22,$TMP1
PS
#20,R0

SCANZ
SCAN1

#34 ,R2

R3
R2, $TMP?
(R2) +,R4
R5,R4
.4
13
R5
R3
(RO) ,R3
(33
#2 RO
ggDNTAB+34.RO

#1,R0

#BITO,FLAG
1%

TFLAG

#40,TFLAG
FLAG

CLRTAB
#146, (R1)
FLAG
1%
ENDEX1
TEMP
1%
SCAN

$TMP?
2%
?CAN
ENDEX1

;BR _IF NOT
;SET IEI,RQI,BASEMC 1
; CONTINUE
;SET IEI, RQI, RFC BA/(CC
;SET UP FOR DELAY COUNT
JGET SET FOR DELAY
;JALLOW INTERRURTS
s INPUT DONE?
;BR IF YES
;BR IF NO
JXMIT DONE FOR ALL MESSAGES?
:BR IF YES
:BR IF NO
JREC DONE FOR ALL MESSAGES?
;BR IF YES
;BR IF NO

;GET FIRST REC BUFFER
;R2 POINTS TO BUFFER

JRS5=EXPECTED
;R3 = COUNT

;SAVE ADDRESS FOR TYPEOUT
.GET RECEIVE DATA
2IS IT CORRECT?
;BR IF YES
;DATA ERROR

JNEXT CHARACTER

JINC COUNT
;DONE YET?
:BR IF NO
sGET NEXT REC BUFFER
;DONE YET?
:BR IF NO

JSET RO TO 1
. CHANGE CHAR COUNT FOR NEXT LOOP
;BR TO SUB 40
;DEC BY ONE
: CONT INUE
sSUBTRACT 40 FRON XMIT COUNT
:DEC LOOP COUNT

:GO DO IT AGAIN

:SHUT DOWN KM(C
JHAS INTERRUPT OCCURED?
;BR [IF NO
;ALL OK GET OuT
.SCOPE THIS TEST

;DECREMENT DELAY COUNTER
;BR IF ZERO
;BR IF NOT DONE DELAY

;DEC DELAY COUNT
;BR IF DONE DELAY
;BR IF NOT DONE
;ERROR HUNG
;GET OurT

00702

08-JUN-78

(ZKCGA.P1T

07:54

PAGE 59

08-JUN-78 07:53

sgg?

: INPUT INTERRUPT SERVICE ROUTINE

2932
2933
2934
2935
2936
2937
2938

017132
01713
017140
017144
017146
017152
017154

2940
2961
2962
29643
2944
2945
2966
2947

017170
017172
017176
017202
017206
017210
017212
017216

2939

2968
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985

PAGE:

FREE RUNNING TESTS

017162

017220
017224
017226
017230
017232
017234
017236
017244
017250
017252
017254
017260
017262
017266
017270
017272
017274
017302
017310
017312
017314
017316
017320
017322
017330
017336
017340
017342
017346
017350
017352
017354
017356
017362
017364
017370
017372
(17376

022700
001421
005737
001432
032711
001407
012761

012761

000404
005061
005037
142711
105711
100776
005737
001403

152711
000002
105011
000002
005700
100006
012761
005061
000434
001003
005061
000430
032700
001013
000241
006100
016061
016061
000241
006000
000412
000241
006100
016061
016061
000261
006000
142711
105711
100776
005200
001003
152711
000002
022700
001411
032700
001003

000017

1ISR:

020050

000002

021430

010000

000004

000006

000006
020050
000040

138:
12%:

020050

000041
14%:
8s:

021430
000006

000004

7%:

000006

000010

020052
020220

18:

000004
000006

2%:

020052
020220
000040

000004
000006
3%:

000041
000017
000010

6%:

(MP
BEQ
TST
BEQ
BIT
BEQ
MOV

#17,R0
12%
RE SUME
8%
#8IT1,(R1)
13%
#BASEMC,4(R1)

;PROC. ERROR DONE?
;BR IF YES
;IS THIS A RESUME INTERRUPT
;BR _IF NO
sCNTL OR BASEM(C?
;BR IF CNTL I
;LOAD BASEMC ADDRESS

12%
6(R1)
RE SUME
#40, (R1)
(R1)
.=
RE SUME
14%

s CONTINUE
sSELECT FULL DUPLEX
;CLEAR RESUME FLAG
;CLEAR Ral
;IS RLI GONE?
;BR IF NO
;BASEMC OR CNTL 17
;BR IF IT WAS CNTL 1

MOV

#B8IT12,6(R1)

BISB
RTI
CLRB
RTI
TST
BPL
MOV
CLR

#41,(R1)

BR
CLR
CLR
BICB
TSTB
B8MI
TST
BEQ

BNE

CLR
BR
8IT
BNE
CLC
ROL
MOV
MoV
CLC
ROR
BR
cLe
ROL
MOV
MoV
CLC
ROR
81cB
1STB
BMI
INC
BNE
BISB
RT]
CMP
BEQ
BIT
BNE

;WITH RESUME BIT SET

;ASK FOR CNTL I
JRETURN
(R1)
;CLEAR BSEL O
JRETURN
RO
;FIRST TIME HERE?
7$
;LOAD BASEMC IF MINUS
#BASEMC,4(R1)
;SET UP BASEMC ADDRESS
6(RD)
;CLEAR COUNT
3%
- CONTINUE
1%
JCNTL I FULL DUPLEX IF O
6(R1)
sSELECT FULL DUPLEX
3%
s CONTINUE
#8173 ,R0
JXMIT?
2%
;BR _IF YES
;CLEAR CARRY
RO
;MAKE RO EVEN
RECBA(R0) ,4(R1) ;LOAD REC BUFFER
RCNTAB(RQ) ,6(R1) ;LOAD COUNT
;CLEAR CARRY
RO
;GET RO BACK
3s
s CONT INUE
:CLEAR CARRY
RO
sMAKE IT EVEN
XMITBA(RO) ,4(R1);LOAD XMIT BUFFER
RCNTAB(RO) ,6(R1) ;LOAD COUNT
:CLEAR CARRY
RO
sPUT IT BACK
#40, (R1)
;CLEAR RQI
(R
JWAIT FOR
.~2
;RDI TO GO AWAY
RO
s INC_COUNT
6%
;IF 0 ASK FOR CNTL |
#41,(R1)
;ASK FOR CNTL |
;RETURN
#17,RO
;DONE YETI?
43
JBR IF YES
#BI73,R0
JXMIT?
5%
:BR IF YES

0071(2

08-JUN-788
(ZKCGA.P11

2988
2989
2990
299

2992

017400
017404
0174606
017412
017414
017420

152711

000002
152711
000002
152711

000002

FREE

RUNNING

000044

#44,(RT)

RTI

5%:

BISB

#40, (R1)

000046

4%:

BISB

#46,(R1)

RT1
RTI

;ASK FOR REC BA/CC

;RETURN

JASK FOR XMIT BA/CC
;RETURN
;FORCE PROC. ERROR

;RETURN

. OUTPUT INTERRUPT SERVICE ROUTINE

017422
017430
017432
017436

017440
017444
017452
017454
017460
017462
017470
017472
017474
017500
017504
017510
017512
017520
017522
017524
017532
017540
017542
017546
017552
017554
017562
017570
017572
017574
017600
017606
017610
017616
017620
017626

017630
017634
017642
017644
017646
017654
017656
017662
017666

032761
001463
005737
001006
005237
022761
001525
022700
001035
022761
001031
005200
012711
12711
05227

sesgssns

o
BBEEBEEE8888555888888
N
SUERRUR
LB TR o NRARERNS Lele . RNTo QU PRV [ S P o)

BISB

000040

2993
2995

:
PAGE

TESTS

000001

000002

OISR:

021304

001000

TST

BNE

INC

000006

000017
001000

9%:

000006

040000

817
BEQ

MoV

000000

177277

020050

000100
040000

000002
002050

INCB
BNE
MOV
TST
8PL
MOV
BIT

BNE
BIS
BI1S

004000
000143
001302
001304

017076
000004

000002

020110

000004

020111

000004

020110
000004
020240

000002
000016

cMp
BEQ
cmp
BNE
cMP
BNE
INC
MoV

100000

000004
000006

BIT
BEQ

11%:

001302
000006

«%:

5%:

R1l

MoV
MOV
ERROR
P
JMP
BIT
BNE
P
BEOQ
P
BEQ
MOV
MOV
ERROR
CLR
CMP
BEQ
ADD
cMP
BNE

#BIT0,2(R1)
1%
FLAG
9%
FLAG

#BIT9,6(R1)
10%
#17,RO
11%
#BIT9,6(RT)
11%
RO
#8714, (R1)
#BIT15,STATI

.+14

#BIT15,(R1)
#0
=4
#-1,RESUME
<R5>

#B1T6,2(R1)

#81T14,STATT
.+6
#8IT11,(R1)
#143, (R1)
4(R1) ,$TMP2
?éRl),STMP3
(SP)+,(SP)+

ENDEX1
021T2.2(R1)
2

#TBUFF ,4(R1)

#TBUFF+1,4(R1)
3]
#TBUFF RS
3(R1).STMP2

;1S THIS AN ERROR?
;BR IF NO
;IS THIS SHUT DOWN INTERRUPT?
;BR IF NO
;JYES MAKE FLAG NON-ZERO
;SHUT DOWN BIT SET?
JYES ALL IS OK
;RESUME INTERRUPT?
;BR IF NO

;PROC. ERROR BIT SET?
;BR IF NO
;BUMP COUNTER (10 20)
JMASTER CLEAR DEVICE
JKMC OR KMC?
;BR IF xMC
;SET RUN ON KMC
;DELAY ON KMC
:SET RESUME FLAG
:RUN SET?
;BR IF NO
;SET IEO

;LOOP BACK CONNECTOR?

;BR IF YES
JSET LINE UNIT LOOP
;ASK FOR PORT

(BASEMC REQUEST)

;RETURN
;SAVE FOR ERROR TYPEOQUT
.SAVE FOR ERROR TVPEOUT
JCNTL O ERROR
;ADJUST STACK
JGET QUT

sRECEIVE?
;BR IF YES
;IS XMIT BA CORRECT?
.

;BR IF 0K
;]S XMIT BA CORRECT?

]
.

;BR IF

;RS

; SA
; XM

»
.

YES

EXPECTED
FOUND FOR TYPEOQUT

BA ERROR

RS
;RS
S INDEX REG
XCNTAB(RS5) ,6(R1) ;IS CHAR_COUNT 0K
F YES
6%
BR
'
»
.

#16,R5

NC INDEX
ON E LIST YET?
R I F NO
WU’-

2986
2987

(07:54
PAGE 60
08~JUN~-78 07:53

007272

08-JUN~78
(ZKCGA.P1T

07:54

017670
017672
017706
017704
017712
017716
017724
017726
017730
017734
017736
017742
017750
017752
017756
017762
017764
017766
017770
017776

PAGE 61

08-JUN-78 07:53
106003

016162
062702
016162
062702
142761
000002
105011
105061

00000 2
012705
026561
001406
062705
022705
001367
104004
005005
026561
001406
062705
022705
001367
104005
016164
062704
016164
062704

142761
000002

000004
000002
000006
000002
000207

FREE

020312

6%:

000002
10%:

000004

2%:

000002
000020

020240

3%:
7%:

000002
000016
000004
000002
000006
000002
000207

ERROR

MOV
ADD
MoV
ADD
BICB
RTI
CLRB

8%:

020256
000002

]

JXMIT COUNT ERROR
XMIT DONE BA
s INC INDEX
) .XDNTAB(R2) :STORE XMIT DONE (CC
s INC INDEX
L2(R1)
:CLEAR RDO
,XDNTAB(R2) sSTORE

;RETURN

(

MOV
cMP
BEQ
ADD
cMP

#2 RS
RECBA(RS) ,4(R1)
3s
#2,R5
#20 RS

RTI

2%+4

;CLEAR SELO
;CLEAR SELZ2
JRETURN
JSET UP R5 AS INDEX
- COMPARE WITH LIST OF CORRECT BA'S
BR

IF 0OK?

*INCREMENT RS
YEND CF LIST?

ERROR
CLR
cMP
BEQ
ADD
CMP

‘BR IF NO
4
;REC BA ERROR
R5
;RS IS INDEX
XCNTAB(RS) ,6(R1); CHECK FOR CORRECT REC
8%
:BR IF YES
#2 ,R5
: INCREMENT RS
#16,R5
JEND OF LIST?

ERROR
MoV
ADD
MOV
ADD
BI(B

5
;REC _COUNT ERROR
4(R1) ,RDNTAB(R4)
;STORE REC BA
#2 R4
2 INC INDEX
6(R1) ,RDNTAB(
; R4)
STORE REC DONE (C
#2 R4
s INC INDEX
#207,2(R1)
:CLEAR RDO

BNE
020256

4(R1)
']
s

CLRB

BNE
000006

:
PAGE

TESTS

020312

000002
000002
020052

RUNNING

R7I

;BR IF NOT

;RETURN

;BUFFERS
020050
020052
020052

020110
020110
020113
020116
020120
020123
020126
020130
020133
020136

020140

020143
020146
020150
020153
020156
020160
020163

000000

: 0
RESUME
RE(BA:
XMITRA: BLKW

000017
000
003
006
010
013
016
020
023
026
030
033
036
040
043
046
030

053

001
004
007
011
014
017
021

024
027
031
034
037

041
044
047
051
054

JREC & XMIT BA LIsT

TBUFF
:
BYTE

01102.3‘4'SI657

012
015

.BYTE

10,11,12,13,14,15,16,17

022
025

.BYTE

20,21.22,23,24,25.26,27

032
035

.BYTE

30.31,32,33,34,35,36,37

042
045

.BYTE

60,61,42.43,44,45,46,47

052

.BYTE

50,51,52,53,54,55,56,57

002
005

055

: TRANSMIT DATA

COUNT

0073(2

08-JUN-78

(ZkCGA.PI

3098
3099
3100
3101
3102
3103
3104
3105
3106

07:56

PAGE 62

08-JUN-78 07:53

3107

020166
020170
020173
020176
020200
020203
000206
020210
020213

020216

056
060
063
066
070
073
076
100
103

3109
g}}?

020220
020240

3112
3115
3116
3117
3118
3119
3120
3121
3122
3123

3113

057
061
064
067
071
076
077
101
104

PAGE:

FREE RUNNING TESTS

062
065

.BYTE

60,61,62,63,64,65,66,67

072
075

.BYTE

70,71,72,73,74,75,76,77

102
105

.BYTE

100,101,102,103,104,105,106,107

000010
000007

RCNTAB:
XCNTAB:

.BLKW
.BLKW

10
7

RECEIVE COUNT TABLE
s TRANSMIT COUNT TABLE

020256

000016

RDNTAB:

.BLKW

;RECEIVE DONE TABLE (BA/CC)

020346
020346
020452
020556
020662
020766
021072
021176
021302

000104
000104
000104
000104
0001 Y%
0001u4
000104
000000

RBUFF :
RBUFF1:
.BLKB
RBUFF2:
.BLKB
RBUFF3:
.BLKB
RBUFF4:
.BLKB
RBUFF5:
.BLKB
RBUFF6:
.BLKB
RBUFF7:
.BLKB
RBUFFE: 0

104
104
104
104
104
104
104

020312

106

107

000016

XDNTAB:

.BLKW

XMIT DONE TABLE (BA/CC)

;RECEIVER BUFFERS

;END OF RECEIVER BUFFERS

3125

3126
3127
3128
3129
3130
3131
3132
3133
3134
3135

3136
3137
3138
3139
3140
31641

31642
3143
%}2?
3146
3147
3148
3149
3150
3151
3152
3153

JBUFFER AREA
e
021304
021306
021310
021312
021314
021322
021330
021336
021344
021352

000000
000000
000000
000044
041101
044107
047115
052123
055131
032464

021360
021362

000044
021430

021430

022030

042103
045111
050117
053125
030460
033466

(43105
046113
051121
054127
031462
034470

FLAG:
TFLAG:
RFLAG:
TCOUNT:
TBUF:

0
0
0
44
.ASCII/ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/

.EVEN
RCOUNT: 44
RBUF:
.-.446
.EVEN
BASEM(: .=.+256.

: SUBROUTINES
,mTeme——eees

022030

BASELD:

;THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS
JAND PUTS KMC INTO FULL~DUPLEX MODF

(0074(2

08-JUN-78

(IKCGA.P1T

07:54
PAGE 63
C8-JUN-78 07:53

2R aossaaas

940000

Mov

100000
000000

MOV

BIT
BEQ

1%:

b b O =

004000
000043

— O\ =2

—d
b b e (DO

022034
022040
022044
022046
022050

——

022030

021430
000006
000040

2%:
000004

3s:

000041

64%:

000006
000040

65%:

022134

022234

022240
022242
022244

100000

000000
1%:

004000

000043

—

022142
022146
022152
022154
022156
022160
022164
022170
02¢172
022174
022202
022206
022212
022214
022216
022222
022224
022226

040000

3199

BASELH:

H
N
~

LRI
RO 28BRIR

b mrd

b macd o

mred

b v

md sod

A WA LN AN O AN NN N U AN

022136

:
PAGE

SUBROUT INES

021430
000006
000040

2$:
000004

3s:

000041
002000
000040

64%:
000006
65%:

INCB
BNE
TST
BPL
BIS
BISB
TSTB
BPL
MOV
CLR
BICB
TS78
BMI
BIS8
1518
BPL
CLR
8I1(B
1ST8B
BM]
RTS

#BIT14, (R1)
#BIT15,STAT1
.+6
#BIT15,(R1)
#0

#8IT11,(R1)
#43,(R1)
(R1)

#BASEMC,4 (R1)

6(R1)

#40, (R1)
(R1)

#41,(R1)
(R1)

649
6(R1)

#40,(R1)
(R1)

65%
PC

;MASTER CLEAR
;. CRAM?
;BR IF NO
;IF CRAM SET RUN
;DELAY
;BR IF NOT DONE DELAY
;IS RUN SET?
;BR IF NO
;SET LU LOOP
JBASEM(C REQUEST
JRDY I SET?
;BR IF NO
;LOAD BASEM(C ADDRESS
,CLEAR CC
;CLEAR RQI
;RDY I CLEAR?
;BR IF NO
;ASK FOR CNTL 1

;WAIT FOR RDI

;BR IF NOT SETY
cSET FULL DUPLEX
;CLEAR RQ]
JRDI UP?
:BR IF YES
;RETURN

sTHIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS
JAND PUTS KMC INTO HALF-DUPLEX MODE
MGV
BIT
BEQ
MOV
INCB
BNE
TST
BPL
BIS
B8IS8

TSTB
BPL
MoV
CLR
BI(8B
1STB

BM]

#8IT14,(RY)
#BIT15,STATY
.6

#81T15,(RY)
#0

#1711, (RD)
#63_(R1)
(R1)

#BASEMC,4 (RT)
6(R1)
#40,(R1)
(R1)

81S8
TSTB
EPL
MOV

#41,(R1)

TSTB
8MI]

(R1)
65%

BICB
RTS

(R1)
648
#BIT10,6(R1)
#40,(R1)

;MASTER CLEAR
; CRAM?
;BR IF NO
;IF CRAM SET RUN
sDELAY
;BR IF NOT DONE DELAY
;IS RUN SET?

;BR IF NO

JSET LU LOOP
;BASEMC REQUEST
;RDY I SET?
;BR IF NO
;LOAD BASEMC ADDRESS
;CLEAR (C
;CLEAR RQl
;RDY I CLEAR?
;BR IF NO
;ASK FOR CNTL |

JWAIT FOR RDI

:BR IF NOT SETY
JSET HALF DUPLEX
.CLEAR RQ!
;RDI UP?
;BR [F YES

JRETL

0075(2

08-JUN-78

(ZKCGA.PIT

3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3226
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240

3241

3242

3243
3244

3245
32646
3247
3248

3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262

3263
3264
3265

07:54

PAGE 64

08-JUN-78 07:53

PAGE
:

SUBROUT INES

022246

RESUM:

:THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS

;WITH RESUME BIT

022246

012711

040000

022252
022256
022262
022264
022266

032711
105227
001375
005711
100376

100000
000000

022270
022274
022300
022302
022304
022312
022320
022324
022326
022330
022334
022336
022340
022344
022350
022352
022354

(52711
152711
105711
100376
012761
012761
142711
105711
100776
152711
105711
100376
005061
142711
105711
100776
000207

004000
000043
021430
010000
000040

000041
000006
000040

022362
022364
022366
022372

022376
022402
022404
022406

105711
100376
012561
012561

142711
105711
100776
000205

000044
000004
000006
000040

022434

022436
022440

000004
000006

152711
} 5

000040

8 12561
012561
142711
105711
100776
000205

000004
000006
000040

.4
(R1)

BPL

3%:

648:

65%:

1%:

2%:

1%:

2%:

#BIT15,STATY
. +6
#81T15,(R1)
#0
1%

INTO FULL~DUPLEX MODE

JMASTER CLEAR

; CRAM?
;BR IF NO
;JF CRAM SET RUN
;DELAY
;BR IF NOT DONE DELAY
;1S RUN SET?

;BR_IF NO

8IS

#BIT11,(R1)

TSTB

(R1)

JRDY

#BASEMC,4(R1)

;LOAD BASEMC ADDRESS

(R1)

JRDY 1

B1S8
BPL

MOV

XFRELD:

BNE
1ST

#43,(R1)
2%

Mov
Bi1CB

#BIT12,6(R1)
#40,(R1)

8MI]
BISB

3s
#41,(R1D)

TS18

TSTB
8PL
CLR
BI(B
TSTB
BM]

(R
643
6(R1)
#40,(R1)
(R1)
65%
PC

;SET LU LOOP

;BASENMC REQUEST
|

SET?

;BR IF NO

;SET RESUME BIT
;CLEAR ROI
CLEAR?

:BR IF NO
;ASK FOR CNTL 1

;WAIT FOR RDI
;BR_IF NOT SETY
JSET FULL DUPLEX
. CLEAR RQl
:RDI UP?
;BR _IF YES
JRETURN

;THIS SUBROUTINE LOADS THE KMC WITH A RECEIVE BA/(C

8158

#4464, (R1)

8PL
MOV
MOV

1%
(R5)+,4(R1)
(R5)+,6(R1)

:BR IF NO
;LOAD REC BA
sLOAD REC CC

(RY)

;1S RDY 1

SRETURN

1STB

(R1)

8I(CB

#40,(R1)

BM]

TSTB

RTS

022410
022410
022414
022416
022420
022424
022430

2%:

RFRELD:

152711

#8IT14,(R1)

RTS

022356
022356

MoV

8IT
BEQ
Mov
INCB
1%:

SET AND PUTS KMC

;THIS

SUBROUTINE LOADS

JREC BA/CC REQUEST

JROY I

SET?

;CLEAR RQI

:BR_IF NO

THE

CLEAR

KMC WITH A TRANSMIT BA/(C

B1S8

#40, (R1)

MOV
BICB

(R5)+,6(R1)
#40,(R1)

sLOAD XMIT CC
;CLEAR RQI

BM]

;BR IF NO

T1STB
BPL
MOV
1STB

RTS

(R1)
1%
(R5)+,4(R1)
(R1)

JXMIT BA/CC REQUEST

;RDY 1 SET?
;B8R IF NO
;LOAD XMIT BA

;IS RDY

sRETURN

CLEAR

0076(2

OB-JUN-78
(ZKCGA.P11

3266
3267
3068

%sgg

07:54
PAGE 65
08-JUN-78 07:53

PAGE:

SUBROUTINES

022442

SHUTDOWN:
;THIS SUBROUTINE FORCES

THL

BIC
B8ISB
TSTB

#207,2(R1)
#46,(R1)
(R1)

;CLEAR ANY OUTPUT DONES
;ASK FOR JLLEGAL REQUFST
“RDI SET?

BI(CB
TSTB

#40,(R1)
2(R1)

;CLEAR RQI
*OUTPUT DONE SET?

3271
3272
3273

022442
022450
0226454

042761
152711
105711

000207
000046

3275
3276

022460
022464

142711
105761

000040
000002

3278
3279

022472
022474

000207
012711

040000

RTS
LDRVRF: MOV

3274

3277

3280

3281
3282
3283
3284

3285
3286
3287
3288

3289
3290
3291
3292
3293
3294

3295
3296

3297
3298
3299

3300

3301
3302

022456

022470

022500

022504
022506
022512
022514

100376

100375

042711

005000
004737
(05011
010061

1%:

140000

022614

3s:

000004

8PL
BPL

PC
#8IT14,(R1)

THE BASEMC

*BR IF NOT

*RETURN
;MASTER CLEAR KM(C-11.

#MBIT1SIBIT14, (R1)

SAND SHUT IT DOWN.

RO
PC,SETMAP
(R1)
RO,4(R1)

;CLEAR UPC POINTER.
;SET MICRO-CODE POINTER IN R?2.
sSTART WITH THE CLEAN WORLD.
-LOAD CRAM ADDRESS.

;UPDATE UPC POINTER.

012261
012711
012711

000006
002000
022000

MOV
MOV
MOV

(R2)+,6(R1)
*LOAD INSTRUCTION WORD.
81110, (R1)
*SET ROM 0.
#8IT13181T10, (R1)
SWRITE IT...

022536
022542

022700
003363

002000

P
B8GT

#2000, R0
3s

SOVER FLOW?
*BR IF NO.

MOV
cTMP

#1710, (R1)
6(R1)_(R?)+

*SET ROM O.
:CHECK IF RIGHT?

#2000,R0

RTS

022534

022544
022550
022552
022554

022560
022564
022570
022572
022576

022600

005200

004737
005000
005011
010061

012711
026122

001402
104401
005200

022700

022614

011054

9% :

002000

gggz

022612

3305

022614

012702

023650

3307
3308
%g?g

022626
022630
022634

001402
012702
000207

3311

023650

032737

6%:

002000
000006

040000

022620

VERFY:

000004

003362
012711

000207

INC

000002
027654

JSR
CLR
CLR
MOV

BEG
TYPE
INC

8GT
MOV

002054

SETMAP: MOV

BIT

3%:
L OMAP ;

BEQ
MOV
RTS

TABLE

‘BR IF NO

BIC

CLR
JSR
CLR
MOV

TO UPDATE

022520
022526
022530

022606
022606

3306

100002

KMC

PC,SETMAP
RO
(R1)
RO,4(R1)

o3
.MLDER
RO

;SET MICRO~CODE POINTER IN RZ2.
SSET UPC POINTER.
sSTART WITH THE CLEAN WORLD.
;LOAD CRAM ADDRESS.

‘BR IF GOOD.
*LOADING ERROR.
;BUMP UPC POINTER.

*1S IT DONE?

6%
#1114, (R1)

:BR IF NO.
JMASTER CLEAR KM(C-11.

#LOMAP ,R?2

;LOAD ADDRESS OF LOW SPEED.

3$
#HIMAP R?
PC

*BR IF NO.
;LOAD HIGH SPEED ADDRESS.
JRETURN TO CALLER.

#8I1T1,STAT3

*RETURN.

*IS IT HIGH SPEED?

;LOW SPEED (REMOTE) MICRO-CODE.

0077(2

08-JUN-78

(ZKCGA.P11

3313
3314

%g%g

07:54

PAGE 66

08~JUN-78 07:53

027654

PAGE:

SUBROUT INES

. 27654

HIMAP:

JHIGH SPEED (LOCAL) MICRO-CODE.

00782

08~JUN-78

CZKCGA.PIT

3317

07:54
PAGE 67
08-JUN-78 07:53

PAGE
:

SUBROUT INES

033654
033677
033725
033747
033774
034020
034044
034067

040522
051124
042522
0462522
041505
042522
047117
047111

051516
047101
042503
042503
044505
020105
051124
042524

EM2:
EM3:
EM4:
EMS:
EM11:
EM12:
EM13:
EM14:

LASCIZ
LASCIZ
.ASCI1Z
.ASC12Z
.ASCI2
LASCIZ
LASCIZ
LASCIZ

<200>/TRANSMIT BA ERROR/
<200>/TRANSMIT COUNT ERROR/
<200>/RECEIVE BA ERROR/
<200>/RECEIVE COUNT ERROR/
<200>/RECEIVE DATA ERROR/
<200>/FREE RUNNING ERROR/
<200>/CONTROL OUT ERROR/
<200>/INTERNAL DDCMP ERROR COUNTS NON ZERO/

034135
034167
034210
034231
034263

054105
054105

042520
042520
032114
042523
020503

DH1:
DH2:
DH3:
DH4:
DHS:
.EVEN

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
ASCIZ

<200>/EXPECTED
<200>/EXPECTED
<200>/ SEL4

DT1:

034302
034304
034306
034310
034312
034314

034316

034320
034322
034324
034326
034330
034332
034334
034336
034340
034342
034344
034346
034350
034352
034354
034356
034360
034362
034364
034366
034370
034372
034374
034376
034400
034402
034404
234406

034410

034412
034414
034416

042523
0460502
046513

004
004
002

004

DT2:

004

002

004

DT3:

DT4:

DTS:

002
010

DT6:

DI7:

4,2
6,4

6.4
4.2

6.4

.BYTE

4,2

.BYTE

3.7

.BYTE
3REG4

3,2

.BYTE
$REGS
.BYTE

6.4
6,2

.BYTE

3,10

.BYTE

3.4

$TMP2
2

§REG4

$REG4
.BYTE

002

6.4

.BYTE

$REGS

004

6.4

$REGS

002

<200>/BASEMC+3 THRU BASEMC+12 /

<200>/KMC11

.BYTE

$REG4

002

004

.BYTE
$REGS
.BYTE
$REGS
.BYTE
§REG2

$REGS

004

007

.BYTE
$REGZ
.BYTE
$REGS
.BYTE
§REGO

FLAG

FOUND
ADDRESS/
FOUND/
SEL6/

4,2

IS HUNG/

0079¢2

08-JUN-78

(IKCGA_P11

07:54
PAGE 68
08-JUN-78 07:53

034420
034422
034424
034426
034430
034432
034434
034436
034440
034442
034444
034446
034450
034452
034454
034456
034460
034462
034464
034466
034470
034472
034474
034476
034500
034502
034504
034506
034510
034512
034514
034516
034520
034522
034524
034526
034530
034532
034534
034536
034540

003
001274

010

004
002
007

DT10:

004

002
004

DT11:

002
002

DT12:

002
002
002

002
002

000001

3,10

.BYTE
$REG5
.BYTE
$REGS
.BYTE

3,7

3,4
4,2

3.4
6,2

gTMPZ

BYTE
$TMP2
BYTE
$TMP3
10
BYTE

6,4

.BYTE

3,2

6,2
3,2

BASEMC
+4

002

006
001272

BYTE
$REGS
.BYTE
$REG4
BYTE
§REG2

$TMPI

002

004

PAGE
:

SUBROUT INES

DT13:

BYTE
3,2
$TMP2
.BYTE
3,2
BASEMC+6
.BYTE
3,2
$TMP3
BYTE
3,2
BASEMC+10
BYTE
3,2
STMPS
.BYTE
3,2
gASEMC+12
BYTE

6.4

BYTE
$REG4

6,2

$REGS

002
CORMAX:
.END

00802

07:54

AUSTRT
003126
AUSWR = 000090
AUTO.S
012124

AVECT1= 000000
AVE(CT2= 000000

BIT4
BITS
BIT6
BIT7
BITS
BITS

I T

o TO T

TR I

T TR

T A T TR T I T

BASE
BASELD
BASELH
BASEM(C
BINWRD

BITO
BIT00
BITO1
BIT02
BITO3
BITO4
BITOS
BIT06
BIT07
81708
BITO9
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2
BIT3

PAGE :

SYMBOL TABLE

T L ¥ P T T L L

ABASE = 000000
ACDW1 ACDW2 =

PAGE

08-JUN-78 07:53

013756
022030
022136
021430
006406
000001

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010

000020

000040
000100
000200
000400
001000
BM
010625
BPTVEC= 000014
BRLVL
013472
BRW
004354
CHRCNT
006404
CKSWR
011226
CKSWR1
011302
CKSWR2
011314
CKSWR3
011320
CKSWR4
011324
CKSWRS
011430
CLKX
001452
CLRTAB
016566
CNERR
011023
CNT.MA
002302
CNVRT = 104417
CONERR
010756
L

08-JUN-78
CIKCGA.PIT

010665
003330
104416
034540
000015
001502
000200
010357
012126
011474
006760
104413
006746
177570
104411
003342
034135
034167
034210
034231
034263
DISPLA
001242
DISPRE
000174
= 177570
DSWR
DT1
034302
DT10
034434
DT11
034452
DT12
034464
DTI13
034526
DT2
034320
DT3
034336
DT4
034354
DTS
034366
DT6
034400
D17
034416
DIDMH = 000000
EMTVEC= 000030
EM11
033774
EM12
034020

EM13

EM14
EM2

Em3

EM4
EM5
ENDEX
ENDEX1
ENDEX?2
ERCTO0
ERCTO?
ERCTOZ
ERCTO3
ERCTO4

034044
034067
033654
033677
033725
033747
017062
017076
017100
002304
002310
002314
002320
002324

ERCTOS
ERCTO6
ERCTO7
ERCT10
ERCT1
ERCT12
ERCT13
ERCT14
ERCT1S
ERCT16
ERCT17

ERR
ERRMSG
ERRPC
ERRVEC=

002330
002334
002340

002344
002350
002354
002360
002364
002370
002374

002400
003244
006734

003322
200004
ERTABO 007106
= 000205
EXIT
EXITER
007042
FLAG
021304
FLOAT
003156
FYy
003202
HALTS
006764
HILIM
006046
HIMAP
027654
HT
= 000011
IISR
017132
INCHAR
011434
INIFLG
001506
INLP1
005762
INPUT - 104415
INTTY
013506
I0OTVEC= 00020

KMACTV
KMCM

KMCROO
KMCRO1
KMCRO2
KMCRO3
KMCRO4
KMCRO5
KMCRO6
KMCRO?7

KMCR10

KMCR11
KMCR12

KMCR13
KMCR14
KMCR15

KMCR16

KMCR17

KMCSR
KMCSRH

KMCTL

001470

011044
002100

002110
002120
002130
002140
002150
002160
002170
002200

002210
002220
002230
002240
002250
002260
002270
002066
002070
002072

KMNUM
KMPO4

KMPO6

KMRL VL

KMRVE
C
KMS100
KMS101
KMS102
KMS103
KMS104
KMS105
KMS106
KMS107
KMS110
KMS111
KMS112
KMS113
KMS114
KMS115
KMS116
KMS117
KMS200
KMS201
KMS202
KM5203
Ki15204
KMS205
KMS206
Ms207
KMS210
KMs211
KMS¢12

KMS213
KMS214
KMS215
KMS216
KMS217
KMS300
KMS301
KMS302
KMS303
KMS 304
KMS305
KMS306
KMS 307
KMS310
KMS311
KMS312
KMS313
KMS314
KMS315
KMS316
KMS317

001472
002074
002076
002060
002056
002102
002112
002122
002132
002142
002152
002102
002172
002202
002212
002222
002232
002242
002252
002262
002272
002104
002114
002124
002134
002144
002154
002164
002174
002204
002214
002224
002234
002244
002254
002264
002274
002106
0021176

002126
002136
002145
002156
002166
002176
002206
002216
002226
002236
002246

0081(2

MNEW
MODU
MPASSX
MPFAIL
MR
MRESET=
MSTCLR=
MTITLE
MISIN
MVECX

NEXT
NOACT
NODEV

NUM

OISR
oK
ONE
PACTO0
PACTO1
PACTO2
PACTO3
PACTO4
PACTOS5
PACTO6
PACTO?
PACT10
PACT11
PACT12

010013
010455
007755
007556
007636
004000
104410
001000
007777
007747

001442
010725
003240

010317

017422
003220
001464
002302
002306
002312
002316
002322
002326
002332
002336
002342
002346
002352

104407
021310

002054

STKLMT= 177774
STRTSW
001446

Sv05
SWFLG
SWR
SWREG
SW0
SwW00
SwW01
Sw02
SW03
SW04
SW05
Swo6
Sw07
SW08
SW09

SW1

SW10
SW11
Swi12
SW13
SW14
Sw15

SW2

sWw3

Swé
SW5
Sw6

Sw7

=
=
=
=
=
=
=
=
=
=
=

006074
011432
001240
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

= 000002

=
=
=
=
=
=
=

=
-~
-

002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200

X5
X6
X7
ZERO
$SAPTHD
SATY(
$ATY]
SATY3
$ATYS
$AUTOB
$BASE
$8DADR
$BDDAT
$CDW1
$COW2
$CHARC
$CMTAG
$CM1
$CM2

TYPDAT
TYPE
TYPMSG

VEC
VECMAP
VECTR
VERFY

WHAT
WHERE
WHICH
WRDCNT
WRKO.F
X8X
XCNTAB
XCSR
XDNTAB
XERR
XFRELD
XHEAD
XMITBA
XPASS
XSTATQ
XTSTN
XVEC

X0
X1
X2

006750

104401
006650
010375

013222
013754
022544
005764
006050
013214
006402
006736
006536
020240
004104
020312

ninan

000103
000104
000105
000106
000107
001462

002034
004716
004672
004700
004710
001234
001372
001222
001226
001376
001400
004666
001200
000006
000014
$CM3
000006
$CM4
000005
$CNTLG
005530
SCNTLU
005523
001344
= 177777
001313
001402
001404
001426
001430
001432
nuun

STAT3

HHn

000240
012600
005726
= 022626
010416
013760
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
010046
005746
024646
000024
001511
021362
020346
021302
020346
020452
020556
020662
020766
021072
021176
020220
021360
104402
104403
020256
104404
020052
006762
022246
020050
000010

001474
001476
001460
001456
104406
016716
017102
016730
104405
022614
022442
011466
006405
001200
001450
002050
002052

000400
001000
T1BITVE
000014
TBUF
021314
TBUFF
020110
TCOUNT
021312
TEMP
011122
TFLAG
021306
TIMER
104414
TKVEC
000060
TLAST
016370
TPVEC
000064
TRAPVE
000034
TRTVEC
000014
TST1
213762
TST10
016056
TST11
016156
TST12
016370
1ST2
015006
TST3
015200
1574
015336
TSTS
015464
TST6
015622
1ST7
015740
T1ST
004146
TWOSYN= 010000
i

= 177772

SAVACT
SAVNUM
SAVPC
SAVSP
SAVO5 =
SCAN
SCANT
SCAN2
SCOP1 =
SETMAP
SHUTDO
SOFTSW
SPACNT=
STACK =
STAT
STAT1
STATZ2

Sw8
SW9

PIRQ

RFRELD
022356
ROMCLK= 104412
RUN
001500
R6
=%000006
R7
=2000007

LDRVRF
022474
LF
= 000012
L INE
010567
LOBITS 006052
LOCK
001444
LOKFLG 001510
LOLIM
006044
LOMAP
023650
MASKX
001454
MASTEK
010011
MCSRX
007741
MDATA
011164
MEMLIM 001466
MEPASS 007614
MERRPC
010066
MERRX
007766
MERRZ
007641
MERR3
007666
MILK
001504
MLDER
011054
MLOCK
007712

002356
002362
002366
PACT16
002372
PACT17
002376
PARB]I
T= 040000
PERF OR= 004537
PF TAB
007320
PACT13
PACT14
PACT1S

002062
002300
002100

0020€4

PAGE
:

TABLE

001434
001436
001440
001406
001410

001412
001414
001416
001420
001422
001424
001326
001374
004100
204070
004054
001336

KMTVEC
KM.END
KM.MAP

SYMBOL

KMTLVL

07:54
PAGE 71
08-JUN-78 07:53

08-JUN-78

(ZKCGA.P11

$EOPCT

001337
003562
004046

0082(2

08-JUN-/8

(ZKCGA.P11

$ERFLG
SERMAX
SERROR

$ERRPC
$ERRTB
SERTTL
SETABL
SETEND
SFATAI
$FFLG

SFILLC

$FILLS
$GDADR
$GDDAT
$GET42

$HD
=
$HIBTS
BHIOCT
SICNT
SILLUP
$INPUT
$INTAG
SITEMB

07:54

PAGE 72

08-JuUN-78 07:53

001203
001215
006506

SLPADR
SLPERR
$MADR1

001216
001512
001212
001336
001442
001320
005136

SMADRZ
$MADR3
$MADR4
SMAIL
sMAMS1
SMAMS?2
SMAMS3

001255
001220
001224
004060

$MBADR
$MFLG
SMNEW
$MSGAD

001256

SMAMSS

000000
002034
005716
001204
007312
005720
001235
001214

SLF
$LFLG

001314
005135

. ABS.

034540

ERRORS DETECTED:

$MSGLG
$MSGTY
$MSWR
$MTYP1
MTYP?2
$MTYP3
MTYP4
SMXCNT

SYMBOL

001206
001270
001350

PAGE:

TABLE

001354
001360
001364
001316
001346
001352
001356

SNWTST=
$SOVER
$PASS
$PASTM
$PWRDN
SPWRMG
$PWRUP
$QUES
$RDCHR
$RDLIN

002042
007122
007306
007174
001312
005140
005260

$SWRMK=
$TESTN
$STIMES
$TKB
$TKS
$TMPO
$TMP1

002036
005134
005546
001332

$R’DSZ =
$REGAD
$REGO
$REG1

000007
001260
001262
001264

$TMP3
001304
$TMP4
001306
$TN
- 000013
$TPB
201252

001362

001334
001316
005535
001347
001353
001357
001363
004356

$N
= 000012
SNULL
001254

$RDOCT

$REGZ
SREG3
$REG4
$REGS
$RTNAD
$S
=
$SAVR6
$SCOPE

CORE USED:

46K

000
O

122/48=2.5

(91

PAGES)

005560

001266
001270
001272
001274
004102
000014
007316
004134

$SETUP= 000000
$SVLAD
004316

DSKZ:CZKCGA,DSKZ: CZKCGA/SOL=CZKCGA.MAC,CZKCGA.P11/EQ:DZDMH
RUN-TIME: 29 18 .7 SECONDS

RUN=TIME RATIO:

000000
004330
001324

$SVPC - 000040
$SWR
= 164000
$SWREG
001340

$TMP2

$TPFLG
$TPS
$TRAP
$TRAPZ
$TRP
=
$TRPAD
$TSTM
$TSTNM

$TTYIN
$TYPE

000000
001322
001310
001246
007244
001276
001300

001302

001257
001250
006410
006432
000021
006444
002040
001202

005514
004410

$TYPEC
$TYPEX
$UNI1

SUNITM
SUSWR
$VECTM1
SVECT2
$XTSTR

004622
004670
001330
002044
001342
001366
001370
004174

$Y
= 000000
$$GET4= 000000
.

.ADVAN
.BEGIN
.CNVRT
.CONVR

.DATAC
.DELAY
.MSTCL
.RESO5
-.ROMCL
.SAVO5
.SCOP1
.START

= 034540

006054
003464

006164
006160
007442
007326
007356
006126
007374
006066
004360
002402
007506

.TIMER
.8X
- 002034

0083(2