Digital PDFs

AH-E108A-MC

May 1978

84 pages

Original

45MB

view download

OCR Version

61MB

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_gray.pdf

OCR Text

FREE RUNNING TEEST

CZKCGAO

AH-E108A-MC

DEC 1978

FICHE 1 OF1

MADE
IN USA

copvrichT 1973

OEORE0

1
:
PAGE

IDENTIFICATION
PRODUCT CODE:

AC-E107A-MC

PRODUCT NAME:

CZKCgAO KMC FREE RUNNING TEST

DATE:

MAY 1978

MAINTAINER:

DIAGNOSTICS

AUTHOR :

Ed Badger

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.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF
NOT SUPPLIED BY DIGITAL.

ITS SOFTWARE ON EQUIPMENT THAT IS

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
Line
unit (M8201 or M8202) must
be installed.
CZDMG can be used as a heat test diagnostic by manufacturing.
Currently there are five off

run

sequence

Line diagnostics that are

‘insure that

will be detected at an early stage.
NOTE:

if an error should occur

be
it

Additional diagnostics may be added in the future.

The five diagnostics are:

1.
2.
3.

4.
5.

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

DZKCD KMC-11 Low speed jump and memory tests

DIZKCE DDCMP mode Line unit tests
DZKCF Bitstuff mode Line unit tests

REQUIREMENTS

EQUIPMENT
Anfi PDP11

famig{_CPU (except an LSI-11) with minimum 8k memory

AS 133 (or equilivalent)
KMC11
M8201 or M8202 Line unit

0002

Page 3

2.2

PAGE :

STORAGE
Program will use
all 8K
of
memory
except
where
BOOTSTRAP LOADER
reside. Locations 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 ,MAGTAPE,DECTAPE, or
CASSETTE;
follow
instructions
fog_ the monitor
which
has
been
provided on that specific

media.

=* SIZE

8k
12k
16k

20k
24k
28k

VI = NN
NNN

MEMORY

——d
A NN —

ABSOLUTE LOADER starting address *500

. 1.1

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

3.1.2

Depress

1.3

Depress °'START KEY' on console and release (program should now
be loading into CPU)

'LOAD ADDRESS' key on console and release.

0003

Page 4

PAGE :

STARTING PROCEEDURE
a.
b.
c.

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

zgt up 2¥ a previous

start

agnostic.

previously

run

DMC11

d. Depgzgs 'START KEY' and release. The program will type
Maindec Name and grogram name (if this was the first start
up of the program) and also the following:

MAP OF DMC11

STATUS

CSR

STAT2

STAT3

177777
177777

000000
000000

STAT1

001500 160010 145310
001510 160020 145320

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
elp.

If the diagnostic was started with

parameter

1input

then

the

SW00=1

indicating

manual

following shows an example of the

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)75
DOES MICRO-PROCESSOR HAVE CRAM?
(Y OR N)N
WHICH LINE UNIT?
IF NONE TYPE ‘N'',
IF
M8201

M8202 TYPE

'2'"?1

TYPE

'"1'',

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

Folloug:g the questions the status
descri
above,
the
information
answers to the

stions.

map
is
in
the

printed out
as
map reflects the
If the diagnostic was started
with

SW00=0 and SWO7=0
(AUTO-SIZING) then no
stions are asked
and only
the status-map is printed out.
If AUTO-SIZING
is

used
t
status
information must.be verified to be correct
(match the hardware).
if it does not match the
hardware
the
d1agno§51c
must
be
restarted with SW00=1 and the gquestions
answerad.

0004

Page 5
4.1

CONTROL SWITCH SETTINGS

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

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
Catch 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 gquestions.
(If SW07=0
and
SW00=0 a new status
table
is
built by
auto-sizing)

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

:
PAGE

0005

Page 6
4.1.2

PAGE :

SWITCH REGISTER OPTIONS (at start up)

sSw 01

RESTART PROGRAM AT

suggested

SELECTED

TEST.

1is

strongly

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 typing
the number
of the test desired
and carrige return to
begin execution at the
selected
test.

Sw 02

LOCK ON SELECTED TEST.

SW01

This

switch

when

used

with

will cause the program to constantly lLoop 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
SWO1
1is
wused.
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
Llocation;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.

: A:
ME THOD
?:
:

Lcad address 200

gtart withlfu 00=1
rogram wi

type message

Set a switch
for
each
KMC
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.

PRESS CONTINUE

Set with any

other

PRESS CONTINUE.

will
}

switch

data

settings

Llights
desired.

0006

Page 7
§.1.3

PAGE
:

DYNAMIC SWITCHES

ERROR SWITCHES

Sw 12

Sw 08

SWw 13

sSw 10

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

Swoé

in
ROMCLK
routine
before
clocking
Halt
micro-processor
instruction.
This
allows
the
ator to scope a micro-processor instruction in
_Static
state before
it
1is
clocked.
Hit

the

SW09

cont inue to resume running.

(if enabled by "SCOP1') on an error;

prin ted
in front of the test no.
10
)
SW09
is
incorporated
in

If an '*'

(ex.
+*TEST NO.
that
test
and
the best switch for the

therefore SW09 is usually
SC
loop (SW14=0, SW10=0, SW09=1,
SwW08=0).
If
S
is not enabeled;
and there is a HARD error
(con stant);

SW08

SW09=0, SwW08=1).

will

4.2

Swil

SW14

loop on test

erro r.

1is

best.

(SW14=1,0,

SwW10=0,

for intermittemt errors;
reguardless

error

(SW14=1, SW10=0, SW09=0, Sw08=1,0)

SW14=1

not

Inhibit interations.

Loop on current test.

STARTING ADDRESS

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

are no other
starting
(See Section 4.0)

If addre ss 000042 is non-zero the program assumes
it
is
under
ACT11
or
XXDP control
and will
act
accordlngl{lafter all available KMC11's are tested the
program wi
return to 'XXDP' or 'ACT-=11'.

OPERATING PROCEDURE

when program is initially started
messages
as
described
in
section
4.0 wi Ll
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 (via SW 15=1) when ever an error occurs.

Set SW 13:

g3.

Clear SW 15.
¢
Set SW 14:
(loop on this test)

(inhibit error print out)

The TEST NUMBER and PC will be
t‘ped
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

to_know more information concernlng.the error report;

necessar
LOOK I

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

t{ped_out at

12=0).

the time of an error

(providing SW 13=0 and SW

in most cases additional information will be

supplied

ig the the error message to give the operator an indication of

the error.

6.2

ERROR RECOVERY
If for some reason the KMC11
should
'HANG
THE
BUS' (gain
control of bus so that console manual functions are inhibited)
an init or power down/up is necessary for operator to
regain
control
of
cpu.
__If
this
should happen;
Llook in location

'TSTNO' (address 1226) for the number

running

the

of the

test

time of the catastrophic error.

that

was

In this way

the operator will have an idea as to what the DMC11 was
at the time of the error.

doing

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
theblnformat1on printed on
the
TTY
to completly
isolate

problems.

0008

Page 9
4%

PAGE :

OPERATING RESTRICTIONS
The first time a KMC11 diagnostic is loaded into core and run
the STATUS TABLE must be set up.
This is done by manual input

(SW00=1) or by autosizi
(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
1is
overlayed.
~The
current parameters in the
STATUS TABLE are used when SW07=1 on start up.
7.3

HARDWARE CONFIGURATION RESTRICTIONS

KMC (M8204)~ Jumper W1 must be in.

LINE UNIT(M8201)~ Jumpers W1, W2, and Wé must be IN.
Jumpers
ggén??md WS must
be OUT.
SW8 of
E26 must be in the ON
LINE UNIT (MB202)- Jumper W1 must be in.
in the OFF position.

SW8 of E26

must

MISCELLANEOUS
EXECUTION TIME

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

possible execution.

The actual execution time depends greatly

on ghc PDP11 CPU configuration and the amount of memory in the
system.

8.2

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

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:
000000
NOTE:

175000 VEC:

0300 PASSES:

000001

The pass count and error counts
are
cummulitive
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: 0010

Page 10
8.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)

Contains the number
peformed.

now

being

RUN

(1316)

The bit in 'RUN' always points
to
the
currentl
bein
tested.
EXAMPLE:
1302/00
1
Means that
KMC11
is the KMC11 now running.

KM(C11
(RUN)
no.06

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

;

the

test

These locations contain the information needed
to test up to 16 (decimal) KMC11s sequentialy.

they contain
the
(SR,VECTOR
a
STATUS
concerning the configuration of each KMC11.
DMACTV (1306)

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.

EXAMPLE: _ (DMACTV) 1276/0000000000010001 Means
that DMC11 no.

DMCSR

(1404)

00,04 will be tested.

gongains the CSR of the

current

KMC11

under

est.

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

STATUS

(SR

STAT2

STAT1

STAT3

OO;EOO 160010 145310 177777 000000
001510 160020 016320

000000

Page 11

:
PAGE

Each map entry contains
4
woi'ds
which
contain
the
status
information
for
1
KMC11.
The P(C shows where in 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

1514,

ollows:

CSR:

Contains KMC11

STAT1:

BITS 00-08 IS KMC11 VECTOR ADDRESS
BIT15=1 MICRO-PROCESSOR HAS CRAM
BIT15=0 MICRO-PROCESSOR HAS CROM
BIT14=1 TURNAROUND CONNECTOR IS ON
BIT14=0 NO TURNAROUND CONNECTOR
BIT13=0 LINE UNIT IS AN M8201
BIT13=1 LINE
UNIT IS AN M8202
BIT12=1 NO LINE UNIT
BITS 09-11 IS KMC11 BR PRIORITY LEVEL

STAT2:

LOW BYTE IS SWITL' PACA#1

STAT3:

and 1516.

contained in each 4 word entry is defined as

CSR address

(DDCMP_LINE NUMBER)

HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD)
BIT1=0 KMC11-AR (LOW SPEED)
BIT1=1 KMC11-AL (HIGH SPEED)

0011

Page 12

PAGE :

8.5

METHOD OF AUTO SIZING

8.5.1

FINDING THE CONTROL STATUS REGISTER.

The auto-sizing

routine finds a KMC11

as follows:

starts

at address 1
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
125
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

determine

which

tests are performed

Lline unit,

any,

1is

this

point to

installed,

loop~back connector is installed and various switch settings
on the Line unit.
THIS IS WHY THE STATUS TABLE MUST

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 sg's‘tem

will be found by the auto-sizer.
If it does not find a
c1
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
is
Llowered 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 progtr’:n assumes vector address 300 at BR level
5 and the problem should be fixed in the diagnostic.
Once the

problem is fixed; the
p
-be re-setup again to..?at
correct vector.
If an interupt occured;
the address to which

the

DMC11

interupted

picked

up and reported as the

vector.
NOTE:
1if the vector reported is not the
vector
set
up by you;
there is a problem and AUTO SIZING should not be

8.6

SOF TWARE SWITCH REGISTER

If the diagnostic is run on an 11/04 or other (PU without
a
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 CTRL 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 UW.
No check
is made
for
Legality.
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 <(R> or <LF>
dopcnding 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
given input 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 <CR> is the only thing_
typed
the program
will continue without changing the SSR.
The <LF> differs from
tgg <CR>2b restarting the program as if it were restarted at
address

a CTRL U is typea at any point in the input string

prior to

the terminator the input value will be disregarggd and the

prompt displayed (SWR = XXXXXX NEW?).

To set the SSR for the
starting
switches,
first
load
diagnostic, then hit CTRL G, then start the diagnostic.

the

0013

08-JUN-78

PAGE : 0014C*

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

OVONOWVNH
NN 2OV NN NN =

CZKCGA.MAC

JRRKKRAKAAKAARARKARRANRAR

PGSCOPE

Ankhh

kA krkkhhhk
ke

*.$SCOPE IS USED TO HANDLE SCOPE LOOPS
*ARGUMENT:

-d

L0 1

T T QO N

R N

IR TR T T TN T TR T R S S S S

)
2)

1)
2)
3

NOLOOP -

INSTR2 -

<<MOV
<<MOV_

ITERATIONS

ITERATIONS WILL BE MADE

IF NON-BLANK WILL BE
THE SCOPE ROUTINE
EXAMPLES OF USE:

THE FIRST INSTRUCTION OF

R1,SA\R1
R1,SAVRT1>,<MOV

AS A MACRO I.E. <<PUSH

;:SAVE R1>>
RZ2,SAVR2>>
<RO,R1,R2,R3,R4,R5>>>

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

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.

TABLE - IF

THIS ARGUMENT IS IDENTICAL TO THE WORD ‘‘SWO8TBL''
AND THE SWITCH 8 (SWO8) SCOPE OPTION IS TO BE USED
A DISPATCH TABLE WILL BE CREATED. IF SW0O8 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:

$SWO8TBL :
WORD
.WORD

TST1+2
TST2+2

.WORD

TSTN+2

TR TR

TRFETE

PRTR
FE PR PR PR T

R TR

IF NON-BLANK DESIRED NUMBER OF

IF BLANK 2000.

sNOTE:
THIS ROUTINE IS CONDITIONALLY ASSEMBLE BY $SWR
;FOR SW14,SW11,SW09,$5W08
;SW14=1 LOOP ON TEST
sSW11=1 INHIBIT ITERATIONS

;SW09=1 LOOP ON ERROR
;SW08=1 LOOP ON TEST IN SW<7:0>
06100
06200

’

SRR RR AR AR AR R A A AR A A AR A AR AR

AR AR R AR R AR AR AR Rk R R kR ARk

08-JUN-78

CZKCGA.P11

07:54

PAGE 3

PAGE :

08-JUN-78 07:53
.TITLE
AC-E107A-MC
;*COPYRIGHT (C) 1978
;*DIGITAL EQUIPMENT_CORP.

*MYNARD MASS. 01754

'lPROGRAM BY DINESH GORADIA

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

;*AC=-E107A-MC _ CZKCGAQ KMC FREE RUNNING TEST
:*COPYRIGHT 1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
i

s STARTING PROCEDURE
:LOAD PROGRAM
;LOAD ADDRESS 000200

;SWR=0 AUTOSIZE KMC11
:SW07=1 USE CURRENT KMC11 PARAMETERS
;SW00=1
INPUT NEW KMC11 PARAMETERS
;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

:AND THEN RESUME TESTING
;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE
.SBTTL

001200

000011
000012
000015
000200
177776
177774
177772
177570
177570

000000
000001
000002

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER %% 1200 =xx

STACK=
.EQUIV
-EQUIV

1200

EMT.ERROR
IOT.SCOPE

::BASIC DEFINITION OF ERROR CALL
::BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEF INITIONS

HT=

LF=
CR=
CRLF=
PS=
.EQUIV

12
15
200
177776
PS,PSW

PIRQ=
DSWR=
DDISP=

177772
177570
177570

STKLMT= 177774

::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

RO=

s :GENERAL REGISTER

R2=

¥4

; :GENERAL REGISTER

R1=

: :GENERAL REGISTER

0015A(

08-JUN-78
CZKCGA.P1T

108
109
110
m
112
113
”‘S'
116

117
118
119
120
121
122
123

}%‘5»

126
127

128
129
130
131
132
133
134
135
136
137

138

139
140
141
142

143
144
145
146
147
148
149
150
151
}gg

154
155
156

157
158
159
160
161
162
163

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

PAGE :

BASIC DEFINITIONS

000003
000004
000005
000006
000007
000006
000007

R3=
R4=
R5=
Ré=
R7=
SP=
PC=

000000
000040
000100
000140
000200
000240
000300

PRO=
PR1=
PR2=
PR3=
PR4=
PR5=
PR6=

100000
040000
020000
010000
004000

;%' 'SWITCH REGISTER'' SWITCH DEFINITIONS
SW15=
100000
SW14=
40000
SWi3=
20000
sSwi2=
10000
SWil=
4000

000340

002000
001000
000400
000200
000100
000040
000020

000010
000004
000002
000001

%3
%4
%5
26
x7
%6
%7

;s GENERAL REGISTER
;s GENERAL REGISTER
; ;GENERAL REGISTER
; ;GENERAL REGISTER
; sGENERAL REGISTER
;:STACK POINTER
; ;PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS

PR7=

SW10=
SWo9=
SW08=
Swo7=
SWo6=
SW05=
SWo4=

sSwo3=
Swo2=
SWoi=
SWoo=

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

0
40

100

140
200
240
300

340

;:PRIORITY
;sPRIORITY
;:PRIORITY
;;PRIORITY
::PRIORITY
:;PRIORITY
;;PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;;PRIORITY LEVEL 7

2000
1000
400
200
100
40
20

10
4
2
1

SW09,Sw9
SW08,Sw8
SW07,Sw7
SW06,SW6
SW05,SW5
SW04,SWé
SWO3,Sw3
SW02,Sw2
SWO1,5W1

SW00,Sw0

100000
040000
020000
010000
004000

:*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15= 100000
BIT14= 40000
BIT13= 20000
BIT12= 10000
BIT11= 4000

000400
000200

BIT08=
BITO7=

002000
001000

BIT10=
BITO9=

2000
1000

400
200

0
1
2
3
4
5
6

0016C2

08-JUN~78 07:54 PAGE 5

CZKCGA.P11

164

08-JUN-78 07:53

166
167
168

000004

170

000001

BITO0=

169

171
172
173
174
175
176
177
178

000040

000020

000010
000002

179

182
183

184
185
186
187
188

189
190
191
192
193
}g‘so

BITO01=

000004

000010
000014
000014
000014
000020

000024
000030
000034
000060
000064
000240

100

20
10
4
2

.EQUIv
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

BIT09,BIT9
BIT08,BIT8
BIT07,BIT7
BIT06,BIT6
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2

.EQUIV

BIT00,BITO

.EQUIvV

}g?

PAGE: 0017C %

BASIC DEFINITIONS

BITO6=
BIT05=
BIT04=
BITO3=
BIT02=

165

000100

BITO01,BIT

;*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES
ERRVEC= 4
::TIME OUT AND OTHER ERRORS

RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
I0TVEC= 20

s sRESERVED AND ILLEGAL INSTRUCTIONS
s
wd
;:TRACE TRAP
; :BREAKPOINT TRAP (BPT)
2 INPUT/0UTPUT TRAP (IOT) *xSCOPEx**

PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC= 64
PIRQVEC=240

s :POWER FAIL
s cEMULATOR TRAP (EMT) =xERROR**
;"' TRAP'' TRAP
;. TTY KEYBOARD VECTOR
;s TTY PRINTER VECTOR
; :PROGRAM INTERRUPT REQUEST VECTOR

S3RHRRARSS 8

196
197
198

s INSTRUCTION DEF INITIONS

005746

PUSH1SP=5746

;DECREMENT PROCESSOR STACK 1 WORD

PUSHR0=10046
POPR0=12600
PUSH2SP=24646

;SAVE RO ON STACK
sRESTORE RO FROM STACK
;DECREMENT STACK TWICE

.EQUIV

;BASIC DEFINITION OF ERROR CALL

005726

POP1SP=5726

022626

POP2SP=22626

010046
012600
024646

EMT_HLT

s INCREMENT PROCESSOR STACK 1 WORD

s INCREMENT STACK TWICE

08-JUN-78

CZKCGA.P1T

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

2
:
PAGE

TRAPCATCHER FOR UNEXPECTED INTERUPTS

nONOND INSIASLAS
LSS AN TN T N 1V]
RN PON)
= 2
SUWNN=OVONT
NS
»W

212

" :fififi**."t‘t‘."t'tt'fifi.****.*t*fi'fi.fii.*fit**titt*“"*tti**tt*fi*ifit*it

;

:TRAPCATCAER FOR ILLEGAL INTERRUPTS

*THE STANDARD ‘'TRAP CATCHER'' IS PLACED

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

:‘ :**'****t"**"i*i"*fi'**fi""**'***t****tfi**.***‘*fit!’ttfittfit***!fit‘*l‘*fifi
000000

.=0

000000

LWORD
0.0
:STANDARD INTERRUPT VECTORS

225

.=20

.SBTTL

$SCOPE
PR7
$PWRDN
PR7
$ERROR
PR7
$TRAP
PR7
ACT11 HOOKS

: SCOPE LOOP HANDLER.
* SERVICE AT LEVEL 7.
:POWER FAIL HANDLER
*SERVICE AT LEVEL 7
*ERROR HANDLER
*SERVICE AT LEVEL 7
*GENERAL HANDLER DISPATCH SERVICE
*SERVICE AT LEVEL 7

: :fi‘**“.t*.."’."’**"‘*..*Q*t'fi'**“t"fi**fi'*********tfi.*""‘*Q".*"t

000052

000174
000176

*HOOKS REQUIRED BY ACT11

000040
000046
004070
000052
000000
000040

:SAVE PC

iEggAn

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
::2)SET LOC.52 TO ZERO

WORD

“=$SVPC

000174
000000
000000

DISPREG:0
SWREG:
0

000200
000137

002402

001000
005200
055103

041501
041513

177570
177570

SSYPC=.

.=200

042455
040507

:“RESTORE PC

:SOFTWARE DISPLAY REGISTER
*SOFTWARE SWITCH REGISTER

JMP

.START

MTITLE:

.ASCII

<200><12>/AC-E107A-MC/<200>

DSWR
DDISP

=
=

177570
177570

.=1000

ASCIZ

;GO TO START OF PROGRAM

/CIKCGAO KMC FREE RUNNING TEST/<200>

0018(2

08-JUN-78

CZKCGA.P11

07:54

PAGE 7

08~JUN-78 07:53

PAGE: 0019C %

COMMON TAGS

.SBTTL
IR

(OMMON TAGS
Rt

gl ett
2232222328
t
3232222222225

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGF LOCATIONS

;*USED IN THE PROGRAM.

265

273
274
275

001200

212
001214
1215

000000
000
001

$CMTAG:

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
$SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8BDDAT:

$AUTOB:
$INTAG:

SWR:

.=1200

.WORD

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

0
0
0
0
0
0
0
1
0
0
0
0
0

WORD
.BYTE
.BYTE
WORD

O
0
0
O

.WORD

DISPLAY: .WORD
$TKS:
177560
$TKB:
177562

RS AR
o
st Pt

SANN=O

NNWWWWN

001270

000000

DSWR

DDISP

177564

$NULL:
$FILLS:
$FILLC:
$TPFLG:
SREGAD:

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

0
2
12
0
O

.WORD
.WORD
.WORD

O
O
O

$SREG4:
.WORD
$REGS5:
.WORD
$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMP4:
_WORD
$TIMES: 0
$QUES:
.ASCII
$CRLF:
.ASCII
SLF
LASCIZ

O
O
0
O
O
O
O

$REGO:
$SREG1:
SREG2:

$SREG3:

177566

.WORD

SRR A

"SBTTL

AR AR A

;:START OF

COMMON TAGS

;;CONTAINS THE TEST NUMBER
;;CONTAINS ERROR FLAG
;- CONTAINS SUBTEST ITERATION COUNT
;- CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
:-CONIAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;- CONTAINS MAX. ERRORS PER TEST
;- CONTAINS PC OF LAST ERROR INSTRUCTION
:;CONTAINS ADDRESS OF °'GOOD' DATA

;- CONTAINS ADDRESS OF °"BAD® DATA

:;CONTAINS 'GCOD' DATA
;s CONTAINS 'BAD' DATA
; RESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

2 sADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER

2:TTY KBD STATUS

;< TTY KBD BUFFER

$TPS:

$TPB:

301

/?2/
<15

<12>

;2 TTY PRINTER STATUS REG. ADDRESS
:;TTY PRINTER BUFFER REG. ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
+sCONTAINS # OF FILLER CHARACTERS REQUIRED
2o INSERT FILL CHARS. AFTER A 'LINE FEED''

;o' 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

;:CONTAINS THE ADDRESS FROM
;;WHICH (SREGO) WAS OBTAINED
;sCONTAINS ((SREGAD)+0)
; sCONTAINS ((SREGAD)+2)
; 2CONTAINS ((SREGAD)+4)

2 ;CONTAINS ((SREGAD)+6)
; :CONTAINS ((SREGAD)+10)
2 2CONTAINS ((SREGAD)+12)
: JUSER DEF INED

; sUSER DEF INED
:;USER DEF INED
: :USER DEF INED

..USER DEF INED

sMAX. NUMBER OF

*:QUESTION MARK
; sCARRIAGE RETURN
JsLINE FEED

ITERATIONS

AR A AR A AR AR AR AR A AR AR AR AR AR AR R AR AR AR AR AR

APT MAILBOX-ETABLE

R ARk ®

08-JUN-78

CZKCGA.P11

07:54

PAGE 8

08-JUN-78 07:53

316

332

PAGE:

APT MAILBOX-ETABLE

A A

. E VEN
$SMAIL :
$MSGTY:
$FATAL :
$TESTN:
$PASS :
$DEVCT:
SUNIT:

001344

000000
000000

$MSGLG:
$ETABLE:
$ENV:
SENVM:
$SWREG: .
$USWR:
$CPUOP:

A A

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM

ASWREG
AUSWR
ACPUOP

A A AR A AR AR AR AR AR AR AR R A AR R A A AR A AR AR AR AR

00202

R AR

;:APT MAILBOX
s ;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;s TEST NUMBER
s sPASS COUNT
s :DEVICE COUNT
::1/70 UNIT NUMBER
; JMESSAGE ADDRESS
s :sMESSAGE LENGTH

+sAPT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
: ;ENVIRONMENT MODE BITS
::APT SWITCH REGISTER
+sUSER 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=06PDQ=07, 0=10

339

001346
001347

000
000

:
2

..BYTIE
JBYTE

AMAMS1

AMTYP1

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
s sHIGH ADDRESS.M.S. BYTE
::MEM. TYPE BLK#1
MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001

300 NSEC BIPOLAR=002
S00 NSEC MO0S=003
2 ;HIGH ADDRESS ,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'' ABO

2:HIGH ADDRESS.M.S. BYTE

; :MEM. TYPE.BLKIZ

+ JMEM.LAST ADDRESS.BLK#2
..HIGH ADDRESS ,M.S.BYTE
s :MEM. TYPE ,BLKA3

..I‘EH LAST ADDRESS,BLK#3
;sHIGH ADDRESS.M.S.BYTE

::IEH.TYPE.BLK“

$DDW1:
$DDW2:
$DDW3:
$DDWS :
$DDWS :
$DDW6 :
$DDW7 :
$DDW8:

WORD
WORD
WORD
WORD
WORD
.WORD

2 2MEM.LAST ADDRESS.BLK#4
;s INTERRUPT VECTOR#1,BUS PRIORITY#1
+: INTERRUPT VECTORA2BUS PRIORITY#2
;sBASE ADDRESS OF EQUIPMENT UNDER TEST
s :DEVICE MAP
2 :CONTROLLER DESCRIPTION WORD#1
2 sCONTROLLER DESCRIPTION WORD#?2
2 :DEVICE DESCRIPTOR WORDAO
s :DEVICE DESCRIPTOR WORDA1
s :DEVICE DESCRIPTOR WORD#?2
2:DEVICE DESCRIPTOR WORDA3
2 :DEVICE DESCRIPTOR WORDA4
;:DEVICE DESCRIPTOR WORDAS
2 :DEVICE DESCRIPTOR WORDA6
;:DEVICE DESCRIPTOR WORD#7
;sDEVICE DESCRIPTOR WORDA8

08-JUN-78

CZKCGA.P11
371

07:54

001424

372
373
374
375
376
g;g

001426
0014
001432
001434
001436
001440

379
380
381

001442

PAGE 9

08~JUN-78 07:53
000000

000000
000000
000000
000000
000000
000000

001442
001444

000000
000000

001446
001450
001452
001454
001456
001460
001462
001464
001466
001470

000000
000000
000000
000000
000000
000000
000000
000001
000000
000001

001472
001474
001476
001500

000001
000001
000001
000000

405

001502

002072

001504

002276

283
410
411
412
413
2}%

001510
001511

ADDW9

ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

;;DEVICE DESCRIPTOR WORDA#9

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

DESCRIPTOR WORDA#10
DESCRIPTOR WORD#11
DESCRIPTOR WORDA12
DESCRIPTOR WORD#13
DESCRIPIOR WORDA14
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

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.BLKW

_BLKW
.BLKW
.BLkWw
m’%

1
1
1
0

;
;
.

CREAM:

.WORD

KM.MAP-6

. TABLE POINTER

KMNUM:
SAVACT:
SAVNUM:
RUN:

MILK:

;
001506

.WORD

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

PROGRAM CONTROL PARAMETERS

NEXT:
LOCK:

400
401
402
282

289

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

y
.

%gg
390
391
392
393
394
395
396
397
398
399

$DDW9:

0021¢2

$ETEND:

382
%gz

385
%gg

PAGE
:

APT MAILBOX-ETABLE

.WORD

0
0
O
O
0
O
O
1
O
1

CNT .MAP=4

.
.
2
.
.
3
3
;
;

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 TO RUNNING DEVICES

. TABLE POINTER

PROGRAM CONTROL FLAGS

INIFLG:

LOKFLG:
QV.FLG:

.BYTE
.EVEN

.BYTE
.BYTE
VN

; PROGRAM INITIALIZING FLAG

0
0

;s LOCK ON CURRENT TEST FLAG
; QUICK VERIFY FLAG
;2 ON FIRST PASS OF EACH KMC11

ITERATIONS WILL BE

08-JUN-78

CZKCGA.P11

07:54

PAGE 10

08~JUN-78 07:53

2}(7;

.SBTTL

418

;*THIS

419

PAGE:

ERROR POINTER TABLE
ERROR POINTER iABLE
TABLE

CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

420

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

2%%

:*NOTE2:

421

:*NOTE1:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

424

2‘5’;

425
426
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466

467
468
469
470

471

0022C2

i
ix

001512

001512
001514
001516
001520
001522

000000
000000
000000
034020
034263

001524
001526
001530
001532
001534

000000
033654
034167
034526
033677

001540
001542
001544
001546
001550
001552

000000
033725
000000
000000
033747
000000

001536

001554

001556

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

000000

033725

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

;;POINTS TO THE ERROR MESSAGE

DH
DT

$ERRTB:
.EVEN
ix
DF
0
0
0
EM12
DH5
0
EM2
DHZ2
DT13
EM3
0
0
EM4
0
0
EM5S
0
0
EMé4
DH2
DTS
EMS
DH2
DT4
0
DH1
DT6
0
DH1
DT7
0
DH2
DT4
EM11

DH1
DT10
EM12
0
0

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

;;POINTS TO THE DATA FORMAT

;: DOES NOT APPLY IN THIS DIAGNOSTIC.

;ERROR

:ERROR

;ERROR

:ERROR

;ERROR

:ERROR

;ERROR

08-JUN-78

CZKCGA.P11
472
475
474
475
476
477
478
479
480

481

07:54

001630
001632
001634
001636
001640
001642
001644
001646
001650

22%

484
485
486
487
488
489

000024

491

000044

490
492

493

PAGE 11

08~JUN-78 07:53
034020
034167
034366
034044
034210
034452
034067
034231
034464

EM12
DH2
DTS
EM13
DH3
DT11
EM14
DH4
DT12

;ERROR

002034

.=2034

002034
000024

IIRRRRRARRRARRRRRRRRARA
AR AR AR AR AR A
e oo e
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
IIRRRRRARARARRRRRERRRRRRRARAARRRARAANS ARRARARRRAA
AR AR AR AR AR
.$X=.
;;SAVE CURRENT LOCATION
.=24
;:SET POWER FAIL TO POINT TO START OF PROGRAM

.SBTTL

000200

.=44

002034

0023C2

APT PARAMETER BLOCK

200

000044

;:FOR APT START UP

:POINT TO APT INDIRECT ADDRESS PNIR.

SAPTHDR ;;POINT TO APT HEADER BLOCK

002034

494
232

.=.8X

;;RESET LOCATION COUNTER

AR AR

AR RRRRARRAARARRRARARAARARARRARRAER
AR AR
A

.WORD
.WORD
_WORD
.WORD
.WORD
WORD

0
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
90.
:;RUN TIM OF LONGEST TEST
95.
¢:RUN 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~ETABLE (WORDS)

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFACE SPEC.

497 002034
498 002034
499 002036
500 002040
501
002042

502
503

PAGE:

ERROR POINTER TABLE

002044
002046

000000
001316
000132
000137
000137
000052

SAPTHD:
SHIBTS:
SMBADR:
$TSTM:
$PASTM:

SUNITM:

08-JUN-78

CZKCGA.P11

07:54

PAGE 12

08-JUN-78 07:53

505

289

508
509
510
g}%

002050
002052
002054

000000
000000
000000

g}{
515
516
517
518
519
520
521
522
523
ggg

PAGE:

APT PARAMETER BLOCK
;KMC11

CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST

STAT1:
STAT2:
STAT3:

O
O
0

;KMC11 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:

0
0
0
0
0
0
O
0
0

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

TO KMC11
TO KMC11
TO KMC11
TO KNMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11

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

526
527
528
529
gg?

:TEMP STORAGE
e

;KMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS

JTEMP:
0
J.=.+40

534

535
536

537
538
539
5514.9

002100
002100
002102
002104

002100

.=2100
KM.MAP:
KMCROO: .BLKW
KMS100: .BLkW
KMS200: .BLkW

002106

000001
000001
000001
000001

KMS300: .BLkW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC1?! NUMBER 00
:VECTOR FOR KMC11 NUMBER 00
sDDCMP LINE# FOR KMC11 NUMBER 00
:3RD STATUS WORD

542
543
544
5522

002110
002112
002114
002116

000001
000001
000001
000001

KMCRO1:
KMS101:
KMS201:
KMS301:

.BLKW
.BLKW

1
1
1
1

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

547
548
549
gg?

002120
002122
002124
002126

000001
000001
000001
000001

KMCRO2:
KMS102:
KMS202:
KMS302:

.BLKW
.BLKW
.BLKW
.BLkW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 02
JVECTOR FOR KMC11 NUMBER 02
;DDCMP LINE# FOR KMC11 NUMBER 02
J3RD STATUS WORD

552
553
554
ggg

002130
002132
002134
002136

000001
000001
000001
000001

KMCRO3:
KMS103:
KMS203:
KMS303:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 03
sVECTOR FOR KMC11 NUMBER 03
;DDCMP LINE# FOR KMC11 NUMBER 03
:3RD STATUS WORD

557
558
559
560

002140
002142
002144
002146

000001
000001
(00001
000001

KMCRO4:
KMS104:
KMS204:
KMS304:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

+CONTROL STATUS REGISTER FOR KMC11 NUMBER 04
JVECTOR 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

5522

002156

000001

567
568
569
g;?

002160
002162
002164
002166

572
573
574
g;z

.BLKW
.BLKW

- CONTROL STATUS REGISTER FOR KMC11 NUMBER 05
;VECTOR FOR KMC11 NUMBER 05

KMS305:

.BLKW

000001
000001
000001
000001

KMCRO6:
KMS106:
KMS206:
KMS306:

.BLKW
.BLKW
.BLKW
.BLKW

s CONTROL STATUS REGISTER FOR KMC11 NUMBER 06
;VECTOR FOR KMC11 NUMBER 06
:DDCMP LINE# FOR KMC11 NUMBER 06

002170
002172
002174
002176

000001
000001
000001
000001

KMCRO7:
KMS107:
KMS207:
KMS307:

.BLKW
.BLKW
.BLKW
.BLKW

577
578
579

002200
002202
002204

000001
000001
000001

000001

KMCR10:
KMS110:
KMS210:

.BLKW
.BLKW
.BLKW

582

002210

000001

KMCR11:

.BLKW

56k

_KMS205: .BLKW

:3RD STATUS WORD

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

:3RD STATUS WORD

:CONTROL STATUS REGISTER FOR KMC11 NUMBER 10
;VECTOR FOR KMC11 NUMBER 10
;DDCMP LINE# FOR KMC11 NUMBER 10

— v —d -

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 11
;VECTOR FOR KMC11 NUMBER 11
;DDCMP LINE# FOR KMC11 NUMBER 11

587
588
589
gg?

002220
002222
002224
002226

000001
000001
000001
000001

KMCR12:
KMS112:
KMS212:
KMS312:

.BLKW
.BLKW
.BLKW
.BLKW

de h b

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 12
:VECTOR FOR KMC11 NUMBER 12
:DDCMP _LINE# FOR KMC11 NUMBER 12
:3RD STATUS WORD

592
393
394
gg

002230
002232
002234
002236

000001
000001
000001
000001

KMCR13:
KMS113:
KMS213:
KMS313:

.BLKW
.BLKW
.BLKW
.BLKW

d ced o e

sVECTOR FOR KMC11 NUMBER 13

597
598
599
28?

002240
002242
002244
002246

000001
000001
000001
000001

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

sy
P R

:3RD STATUS WORD

602

002250

000001

KMCR15: .BLKW

KMS310: .BLKW

:3RD STATUS WORD

282

002256

000001

KMS315: BLKW

R QU A

553?

ST—

— )

KMCROS:
KMS105:

[ YR WS W §

000001
000001

— b b b

002150
002152

PAGE :

APT PARAMETER BLOCK

— d )—

561
562
563

607

002260

000001

609
2}?

002
002266

000001
000001

KMS116: .&KU

KMS216: .BLKW
KMS316: .BLKW

612

002270

000001

614

002274

000001

KMS117: .gLLKH

608 002262 000001

613 002272 000001

g}g

002276

000001

KMS111: .BLKW
KMS211: .BLKW
KMS311: .BLKW

KMCR16:

KMCR17:

.BLKW

KMS217:

.BLKW

KMS317:

.BLKW

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 13
;DDCMP LINE# FOR KMC11 NUMBER 13

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 14
sVECTOR FOR KMC11 NUMBER 14
;DDCMP LINE# FOR KMC11 NUMBER 14

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 15
sVECTOR FOR KMC11 NUMBER 15
:DDCMP LINE# FOR KMC11 NUMBER 15

:3RD STATUS WORD

Dl ed )

000001
000001
000001

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 16
sVECTOR FOR KMC11 NUMBER 16
:DDCMP_LINE# FOR KMC11 NUMBER 16

(S Y

002212
002214
002216

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 17
sVECTOR FOR KMC11 NUMBER 17
:DDCMP_LINE# FOR KMC11 NUMBER 17

[ R

583
584
5532

:3RD STATUS WORD

00252

08-JUN-78

CZKCGA.P11
617

07:54

002300

PAGE 14

08-JUN-78 07:53
000000

APT PARAMETER BLOCK
KM.END: 000000

PAGE :

08~JUN-78

CZKCGA.P11

07:54

PAGE 15

08~JUN-78 07:53

:
PAGE

APT PARAMETER BLOCK

CNT.MAP:
PACTOO:
ERCTOO:

sPASS COUNT FOR KMC11 NUMBER 00
;ERROR COUNT FOR KMC11 NUMBER 00

PACTO1:
ERCTO1:

©Oo

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

PACTO02:

OO0

;PASS COUNT FOR KMC11 NUMBER 02
;ERROR COUNT FOR KMC11 NUMBER 02

PACTO03:

;PASS COUNT FCR KMC11 NUMBER 03
sERROR COUNT FOR KMC11 NUMBER 03

PACTO4:

OO0

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

PACTOS:

OO0

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

PACT06:

OO0

;PASS COUNT FOR KMC11 NUMBER 06
;ERROR COUNT FOR KMC11 NUMBER 06

PACTO7:

OO0

;PASS COUNT FOR KMC11 NUMBER 07
sERROR COUNT FOR KMC11 NUMBER 07

PACT10:

sPASS COUNT FOR KMC11 NUMBER 10
;ERROR COUNT FOR KMC11 NUMBER 10

PACT11:

;PASS COUNT FOR KMC11 NUMBER 11
sERROR COUNT FOR KMC11 NUMBER 11

PACT12:

sPASS COUNT FOR KMC11 NUMBER 12
sERROR COUNT FOR KMC11 NUMBER 12

PACT13:

©CO

sPASS COUNT FOR KMC11 NUMBER 13
sERROR COUNT FOR KMC11 NUMBER 13

PACT14:

ERCT14:

OO0

sPASS COUNT FOR KMC11 NUMBER 14
+ERROR COUNT FOR KMC11 NUMBER 14

PACT15:
ERCT15:

OO0

sPASS COUNT FOR KMC11 NUMBER 15
;ERROR COUNT FOR KMC11 NUMBER 15

PACT16:

OO0

sPASS COUNT FOR KMC11 NUMBER 16
;ERROR COUNT FOR KMC11 NUMBER 16

PACT17:

;KMC11 PASS COUNT AND ERROR COUNT TABLE

;PASS COUNT FOR KMC11 NUMBER 17

ERCTOZ2:
ERCTO3:

ERCTO4:
ERCTOS:

642

002334

000000

ERCTO6:

ERCTO7:

ERCT10:

ERCT11:

655
656
ggg

ERCT12:

002356
002360

000000
000000

ERCT13:

ERCT16:

ERCT17:

;ERROR COUNT FOR KMC11 NUMBER 17

0027C2

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

R SRR SNV N
BEIE
RE S
Sl
TP O
T

12
A

HET WL o
Sur MR
B
e
T

08
SR
G

R
TR Fipe TIE
%
Rha TR BN
f¥ingeiniungninie
SN
55 Pie SNC To0 i
B
PR

STATUS TABLE

SIEe SR TR IR S
SNE
R
_ N S
SERE B0 DU Sl
SR T
SR ST Rk S
S
TRL O
tH
&«
¥
F
e
SRS G

00
R

CSR

Gt e
SRS S
C.7Y
0.
K
]
SRR SIS (MBS Sl SRR |

STAT1

Wl
I~
IR

SRt Bl AR ol Fn SR i
TGy G
ol S
Sise Racl S
SN
8
N
e
Mah GSle S8 08 SRG CURR BT
L
|
T
DY AR
MR A
Ry ek e
Bl TONE SRR TN R
BEY B

STAT2

S
SR
S

ROl Er
SOOI
Gber ey sl Ghie (SR Sk SNCI Bt SO
T
BEE TG it S0k ¥
(BN e
SR Bille el Gl R
SR TR T
Boas i
cEDY e
RO GRp DR B
A
e

STAT3

cRgl
T
Gl R
SN

DEFINITION OF FORMAT
CSR:

CONTAINS KMC11

CSR ADDRESS

STAT1:

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

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

LOW BYTE IS SWITCH PACA#1

(DDCMP_LINE NUMBER)

HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD)

BITO=1 DO FREE RUNNING TESTS ON KMC
(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLYJ)

00282

08~JUN-78

CZKCGA.P1T

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
;TYPE TITLE MESSAGE
012737
012706
012737

013737
005037
105037

000340
001200
007122
001472

011432
001203
001511
002070
002276
00000
002302

177776

000024
001476

132737
001404
013737

000423
013746
013746
012737
012737
012737
022777
001402
000407
022626

012737
012737

001012
105737

#340,PS
#STACK, SP
#SPWRDN,a#24
KMNUM,SAVNUM

#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,RO :DONE YET?
238
*KEEP GOING
$ERRPC
:CLEAR LAST ERROR POINTER
#1,STSTAM
*SET UP FOR TEST 1
#.START,SLPADR -SET UP FOR POWER FAIL BEFORE
#1,8ENV

001216
000001
002402

001202
001206

MOV
MOV
MOV
MOV
CLR
cMP
BNE
CLR
MOV
MOV

000001

001336

BITB

001340

000176

23%:

000006
000004
002606
177570
177570
177777

3%:

000004
001240
001242

176436

000176
000174
000004
000006
001506

001240
001242

004070

000042

001000
005737

MOV
MOV
MOV
MOV

CLR
CLRB
CLRB

001502
001504
001500

002402

012737

.START:

011226
176352

000042

001446
000001

001446

7%:

*TESTING STARTS
:

IS IT RUNNING UNDER APT?

3s
: IF NOT CHECK FOR TYPE OF SWITCH REGISTER.
$SWREG,SWREG
- LOAD SOFTWARE SWITCH REG.
6$+2
* GO SET UP SOFTWARE SWITCH REG.
aN6,~(SP)
*SAVE CURRENT VECTORS
a#6 ,-(SP)
2
#6S . ak
*SET UP FOR TIMEOUT
#177570, SWR
:SET SWR TO HARD SWR ADDRESS
#177570.DISPLAY :SET DISPLAY TO HARD SWR ADDRESS

BEQ
B8R
P
MoV
MOV
MOV
MOV
TSTB
BNE

6$+2
:IF = =1 USE SOFT SWR ANYWAY
78
:IF IT EXISTS AND NOT = -1 USE HARD SWR
(SP)+, (SP)+
*ADJUST STACK
#SWREG, SWR
*POINTER TO SOFT SWR
#DISPREG,DISPLAY-POINTER TO SOFT DISPLAY REG
(SP)+,aN
*RESTORE VECTORS
(SP)+.a46
:
INIFLG
*HAS INITIALIZATION BEEN PERFORMED
208
‘BR IF YES

ggg

20%:

*CLEAR SOFT TYPEOUT FLAG
*CLEAR ERROR FLAG
:ZERO QUICK VERIFY FLAG

BEQ
MOV
BR
MOV
MGV
MOV
MOV
MOV
P

6$%:

SWFLG
SERFLG
QV.FLG

;LOCK OUT INTERRUPTS
*SET UP STACK
:SET UP POWER FAIL VECTOR
:SAVE NUMBER OF DEVICES IN SYSTEM.

TYPE

#-1,3SWR

:REFERENCE HARDWARE SWITCH REGISTER

sggmw.w.z

:IF ACT=11 AUTOMATIC MODE, DON'T TYPE

,MTITLE

;TYPE TITLE MESSAGE

. +6
STRTSW

‘BR IF NO
*IF YES,
CLEAR SWITCHES

17%

‘BR IF sw00=1

JSR
MOV
TST

PC, CKSWR
aSWR, STRTSW
EY7¥

BIT

#SWO00,STRTSW

TSTB

STRTSW

BEQ
CLR

BNE

:CHECK FOR SOFT SWR
;STORE STARTING SWITCHES
+1S IT RUNNING IN AUTO MODE?

:1F SWO0=1,
‘BIT7=17?

QUESTIONS ARE ASKED.

0029(2

BPL

TST

010725

001336

17%:

001336

001337
000001
012124

27%:
001446

013540
001506

33%:

30%:
16%:

001446
000006

PAGE:

PROGRAM INITIALIZATION AND START UP.

001470

000001

001446

001506
010073
002100
001276

BMI
BIC
JSR
BR
JSR

TSTB
BEQ
T1STB
8MI

27%

#1,SENV

308
33%

SENVM

308

#SWO00,STRTSW
PC ,AUTO.SIZE

16$

PC,APT.SIZE

INIFLG

e AR

AR A AR AN AR

001302
001304
001306

YES,

CHECK IF APT SIZED IT?

IS IT 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 LO THE AUTO.SIZE.
GO PRINT THE MAP.
; GO DO THE APT SIZING.

sFIRST TIME?
:BR IF YES
;IF USING SAME PARAMETERS DONT TYPE MAP

gBIT1!BIT2.STRTSU;IS TEST NO. OR LOCK SELECTED

1$:

5%:

002100

TSTB

0030CZ

;BR IF SW07=0
sARE ANY DEVICES SELECTED?
;BR IF YES
sNO DEVICES SELECTED.
;STOP THE SHOW
;DISQUALIFY CONTINUE SWITCH
. IS IT UNDER APT DUMP MODE?

P 4
$SENV

BIT
BEQ
BR
coms
TYPE
MOV
MoV
MOV
BEQ
MOV
MGV
MoV
CONVRT
XSTATQ
BR
MOV

21%:
24%:

001300

BNE
1YL,
HALT
BR
TSTB
BEQ
BITB
BNE
BR

17%
KMACTV
16%
NOACT

TETETE
LR PR
R
R
N Y

CZKCGA.P11

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

08-JUN-78

:IF NO THEN TYPE STATUS
:1F _YES DO NOT TYPE STATUS
:SET FLAG

: TYPE HEADER

RG , $TMPO

1(24>o.sm>1

(R4)+,$TMP?
(RG)+.$TMP3
(RG)+.STMPS

#KM.MAP
RO
AR

:SET POINTER
;SET ADDRESS
:SET CSR
cALL DONE IF ZERO
;SET STAT1
:SET STAT2

:SET STAT3

:TYPE OUT STATUS MAP

;RO POINTS TO STATUS TABLE

AR AR AR AR AR AR

AR AR AR AR AR AR AR A R AR AR AR R

AR ARk k&

;s*AUTO SIZE TEST
;:*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.
;:*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 KMC11, THE FIRST
s:% KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT
; :*ADDRESS 760000.
R

013746
013746
005037
005037
011037
001510
012737
012703

000004
000006
000006
001302
002066

003240
000010

000004

AR A A A A AR

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

3%:

MoV

A A AR A AR AR R AR R AR AR A AR AR AR R AR R R AR AR AR AR AR RN R AR AR

N4 ,-(SP)
a#6,-(SP)
ané
$TMP2
(ROJ ,KMCSR
AUDONE
#NODEV, axé

#10,R3

sSAVE LOC 4
:SAVE LOC 6
sCLEAR VEC+2
;CLEAR FLAG
sGET NEXT KMC CSR
;BR_IF DONE
sSET UP FOR_TIMEOUT

;R3 IS COUNT OF DEVICES BEFORE KMC

08~JUN-78

CZKCGA.P11

07:54

PAGE 19

08-JUN-78 07:53

012702
012701
005711

PROGRAM INITIALIZATION AND START UP.

003342
160010

003244

4%:
FLOAT:

000004

002066

FYs

000010
000010
002066
NODEV:

001302

003244

ERR:

001460

MOV
MoV
TST
MOVB
ADD
INC
BIC
TST
BNE
MOV
TST
cMP
BEQ
ADD
BR
ADD
ADD
MOV
8EQ
BR
CMPB
RTI
TST
BNE
TYPE
CONERR
MOV

CNVRT
ERRPC

#DEVTAB ,R2
#160010,R1
(R1)
(R2) ,R4
R1
R4 ,R1

FLOAT
#ERR,a#4

(R1)
R1,KMCSR

OK
#10,R1
FY

#10,RO
#10,R1
(RO) ,KMCSR
AUDONE
FY

(R2)+,-(R3)

$TMP2
1%
#ERR, SAVPC

4%:

002

30
883332

006

004

003336

006

002

006

003324

SIZTRERENAIG

877

ERRPC:

CONTAB:

TYPE
KMCM

CMP
BR

(SP)+,(SP)+
oK

.BYTE
SAVPC

6.2

.BYTE
$REG1
.BYTE

6.4

KMCSR
DEVTAB: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

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

sANY MORE DEVICES TO CHECK FOR?
:BR IF YES

sOK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT
s CHECK KMC ADDRESS
;DOES IT MATCH
:BR _IF YES
sGET NEXT KMC ADDRESS
;DO IT AGAIN
sSKIP 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

:SLPADR

;CHECK FLAG IF = 0 TYPE HEADER
:SKIP HEADER

: TYPEOUT HEADER MESSAGE

: CONF IGURATION ERROR!!!!
sSAVE PC FOR TYPEOUT
:TYPE OUT ERROR PC

“SET FLAG SO IT ONLY GETS TYPED ONCE
*SAVE R1 FOR TYPEOUT
;TYPE CSR VALUES

3%:

#-1,8TMP2
R1,$REG1

1$:

NNNNNNN=
N
~

001302

CNERR
MGV
MOV
CONVRT
CONTAB

;R2 IS DEVICE TABLE PONTER

s START WITH ADDRESS 160010

*TYPE REST OF HEADER

TYPE

177777
001264

PAGE : 0031CJ

;ADJUST STACK
:BR TO GET ouT

08-JUN-78

CZKCGA.P11

07:54

PAGE 20

08-JUN-78 07:53

893
003354
003354
895 003354 012637 000006
896 003360 012637 000004
003364
003372
003374
003400
003402
003404
003412
003414
003420

032737
001422
104401
005000
000000
027737
101404
104401
000000

000010

.EVEN
1$:

AUDONE:

0C1446

001474

007666

906 003422 000776
907 003424 017737 175610 001470
908 003432 013700 001470

2s:

910 003440 012700 0003C0
911 003444 012701 000302
912 003450 010120

3s:
48:

909

003436

000000

913

003452

005021

915

003456

022700

914

003454

g}g 003462

022021

001372

00100"

820
922
923

924

925

926
927
928

003464

003470
003474

012706

013746
013746

000006
000004

012737

003546

003500

005000

003510
003514
003516

005037
005720
022700

003502

000006

938
939
90
9%1

003560
003564
003566
003572

022700
001361
012700
000756

030000

003602

032737

000004

003554

003574

%%
945

003610
003612

948

MOV
MOV
MOV

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

cMP

(RO)+, (R1) +

HALT

CLR

003616
003624
003626

162700

012737
001406
104401

012737

000403
013737

;.BEGIN: MOV

(R1)+

#1000 R0

68:

007776
001466
000004
000006

78:
28:

000004

007776

000340
007712

a6, -(5P)
awG.-(SP)

MOV

#28, a0

BNE
suB
MOV
MOV
MOV
B8R
cMP
SUB

6$
#7776.R0
RO, MEML IM
(SP)+, a4
(SP)+. a6
108
(SP)+,(SP)+
#4 RO

CLR
TST
P

SUB

037400
177776

001446

000240

004146

004354

004146

108:

b
(RO)+
#157776.R0

#7776 ,RO

cMP
BNE
MOV
B8R

#30000,R0
78
#37400,R0
78

BIT

#BITS,STRTSW

MOV
BR

#NOP,TTST
3$

MoV

BEQ
TYPE

1%:

#STACK,
SP

MOV
MOV
CLR

000004

157776

001374
162700
010037
012637
012637
000413
022626
162700

96
97

aSWR,SAVACT
2%
,MERR3

=2
ASWR,KMACTV
KMACTV RO

BNE

001200

003522
003524
003530
003534
003540
003544
003546
003550

9%3

#SW03,STRTSW
3$
,MNEW
RO

JRESTORE LOC 6

;RESTORE LOC 4

;SELECT 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.
sTELL USER OF INVALID NUMBER.
;STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
;GET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
;CONTINUE DYNAMIC SWITCHES.
;PREPARE TO CLEAR THC FLOATING
sVECTOR AREA. 300-776
sSTART PUTTING "PC+2 - HALT''
;IN VECTOR AREA.
;POP POINTERS
;ALL DONE??
;BR IF NO.

sTEST START AND RESTART

929
930
931
932
933
934
935
936
937

(SP)+,ak6
(SP)+.ak

B8R
MOV
MOV

918

921

MOV
MOV

BIT
BEQ
TYPE
CLR
HALT
CMP
BLOS
TYPE
HALT

010013
175630

:
PAGE

PROGRAM INITIALIZATION AND START UP.

897
898
899
900
901
902
903
904
905

MOV

:SET UP STACK
;SAVE LOC 6
<SAVE LOC 4

;START AT 0
;SET UP FOR TIME OuT
:TO AUTOSIZE MEMORY
s CHECK ADDRESS IN RO
+IS IT AT LEAST 28K

:BR IF NO

sSAVE 2K FOR MONITORS

sSTORE MEMORY LIMIT
sRESTORE LOC 4
sRESTORE LOC 6
s CONT INUE
+ADJUST STACK
:GET LAST GOOD ADDRESS

:SAVE 2K FOR MONITORS
IF

#340,PS

:LOCK OUT INTERRUPTS

1%
,MLOCK

sBR_IF NO LOCK DESIRED.
:TYPE LOCK SELECTED.
sSET UP TO LOCK
+ CONTINUE ALONG.
sPREPARE NORMAL SCOPE ROUTINE

BRW,TTST

CHECK FOR LOCK ON TEST

0032(2

08-JUN-78

CZKCGA.P11
949

950
951
952
953

07:54

003634

003642
003650
003652
003656

PAGE 21

08-JUN-78 07:53
012737

032737
001002
104401
000177

011474

000002
007636
175324

PAGE:

PROGRAM INITIALIZATION AND START UP.
001206

001446

38:

48:

5%:

MoV

BIT
BNE
TYPE
JMP

#CYCLE,SLPADR

#SW01,STRTSW
5%
.MR
a@$LPADR

0033(Z

;START AT ''CYCLE'' FIND WHICH DEVICE TO TEST

:1S TEST NO. SELECTED?
:BR IF YES
;TYPE R
sSTART TESTING

08-JUN~78

CZKCGA.P11

07:54

PAGE 22

08~JUN~78 07:53

PAGE:

END OF PASS ROUTINE

954
955
956
957

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

ggg

JRESTART TEST

gg?

.SBTTL

962

MRt

ggg

;*IF THERE ISN'T JUMP TO CYCLE

9%3
964
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990

003662
003662
003664
003670
003674
003700
003704
003710
003714
003720
003724
003730
003734
003740
003744
003750
003754
003762
003766
003774
004000
004004
004006
004014

000005
005237
105037
104401
104401
104417
104401
104417
104401
104417
104401
104417
013700
013720
013720
013777
005077
013777
005077
005337
001035
112737
013737

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

001212
002060
176072
002064
176064

000377
001472

005037

001216

993
994
995
996
997
998
999
1000
1001
1002
1003

004032
004036
004044
004046
004050
004052
004054
004056
004060
004064
004066

005237
042737
005327
000001
003013
012737
000001
004046
013700
001405
000005

001324
100000

1007
1008
1009

004070
004072
004074

004076
004100
004100

005037

004710
000240
000240

000240

000137

176074
176066

001476

004022

1004
1005
1006

;*INCREMENT THE PASS NUMBER ($PASS)
;*IF THERES A MONITOR GO TO IT

991

992

END OF PASS ROUTINE

001511
001476

001310

000042

RESET
INC
CLRB
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
MOV
MOV
MOV
MOV
CLR
MCV
CLR
DEC
BNE
MOVB
MOV

CLR

001324

INC
BIC
DEC
$EOPCT: .WORD
BGT
MoV
SENDCT: .WORD
SEOPCT
$GET42: MOV
BEQ
RESET
$ENDAD: JSR
NOP
NOP

$DOAGN:

$PASS
SERFLG
.MEPASS
+MCSRX
.XCSR
+MVECX
,XVEC
~MPASSX
. XPASS
+MERRX
_XERR
MILK RO
SPASS, (R0) +

SERTTL, (RO)+
KMRLVL ,@KMRVEC
aKMRLVL
KMTLVL ,@KMTVEC
SKMTLVL

;
;
:
;
;

2222222222222

INCREMENT THE PASS COUNT
CLEAR ERROR FLAG
TYPE END PASS.
TYPE "CSR’’
SHOW IT.
TYPE VECTOR.
SHOW IT.
TYPE "' PASSES "'
SHOW IT.
TYPE '’ ERRORS '’
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

SAVNUM

s ALL DEVICE TESTED?

SERRP(

s CLEAR LAST ERROR PC

$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

: T INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
:;LOOP?

$DOAGN
#377.,QV.FLG
mm SAVNUM

STIMES

ané2 RO
$DOAGN
PC, (RO)

NOP
JMP

;
;
.
:
;
;
;
;
s
;
;
s
;

eIt

: BRANCH IF NO.
s SET QUICK VERIFY FLAG.
. RESTORE DEVICE COUNT.

;s ZERO THE NUMBER OF ITERATIONS

:¥YES
..RESTME COUNTER

::GET MONITOR ADDRESS
;BRANCH IF NO MONITOR

..CLEAR THE WORLD

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

;:ACTN

a(PC)+

; sRETURN

0034C2

08-JUN-78

CZKCGA.P11

07:54

PAGE 23

08=JUN-78 07:53

1010
1011

004102
004104

011474
000001

1013

004110

002066

1012 004106

006

1014

004112

000001

1016
1017

004116
004120

002056
000007

1019
1020

004124
004126

001324
000001

004132

001212

1015 004114

1018 004122

1021

}85.%

004130

SRTNAD:
XCSR:

002

004

002

006

002

006

002

PAGE:

END OF PASS ROUTINE

.WORD
1

.BYTE

6.2

.BYTE

4,2

.BYTE

6.2

BYTE

6.2

KMCSR

XVEC:

XPASS:

KMRVEC
1

XERR:

$PASS
1

$ERTTL

}85%

CYCLE

;SCOPE LOOP AND INTERATION HAADLER

1026
}85%

.SBTTL

1029

SCOPE HANDLER ROUTINE

;;ttfittttttttttttttttttttttttittttttttttttttttttttttttttttttttttt

1030
1031
1032
1033

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTC THE DISPLAY REG. (DISPLAY<7:0>)

1035

;xSW11=1

1037

s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

1034

txSW14=1

1036

;*CALL

1038
1039
1040
1061
1042

004134
004134
004140
004144

1044

004150

1043

1045
1046

004146

005037
023716
001413
000406
105777

001216
013764

032777

040000

$SCOPE:

TTST:

175070

004154
004156

100065
017766

004172

001056

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

004232

105737

001203

28:

105037

001203

48:

1047

1048

1049
1050
1051

1060

004164

004232

1062

004236

001404

1064
1065

004244
004250

005037
032777

1063

004240

175064

177776

175046

INHIBIT ITERATIONS

SCOPE

::SCOPE=10T

CLR
CMP
BEQ

$ERRPC
TST142,(SP)
$XTSTR

TSTB

a$TKS

8PL
MOV
BIT

BNE

SOVER
a$TKB, ~2(SP)

#BIT14,aSWR

SOVER

;>
s
;
:
*

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

: IF NO DONT WAIT.
:

;:LOO
ON PRESENT
P TEST?

SIYES IF SWi4=1

SHAANNSTART OF CODE FOR THE XOR TESTERAMANN
$XTSTR: BR
6$
::1F RUNNING ON THE "XOR'* TESTER CHANGE
*:THIS INSTRUCTION TO A 'NOP'* (NOP=240)

000004

5%:

000004

001310
004000

1$:

LOOP ON TEST

MOV
MOV
ST
MOV
B8R
cMP
MOV
B8R

(SP)+,@#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+,@#ERRVEC
SOVER

TSTB

SERFLG

@WERRVEC,~(SP)
#58 Q¥ERRVEC

an177060

::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
::TIME OUT ON XOR?
:-RESTORE THE ERROR VECTOR
::GO TO THE NEXT TEST
*:CLEAR THE STACK AFTER A TIME OUT
:-RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST

6$: ;MAAMNEND OF CODE FOR THE XOR TESTERAW#A#

174762

3$:

BEQ

CLRB

(LR
BIT

; HAS AN ERROR OCCURRED

*:BR IF NO

$TIMES
#BIT11,3SWR

*:CLEAR THE NUMBER OF ITERATIONS TO MAKE
*:INHIBIT ITERATIONS?

SERFLG

*:2ERO THE ERROR FLAG

0035(2

08~JUN-78

CZKCGA.P11
1066

07:54

004256

PAGE 24

08-JUN~-78 07:53
001011

BNE

1067

004260

005737

001324

1069
1070
1071
1072
1073

004266
004272
004300
004302
004310

005237
023737
002013
012737
013737

001204
001310

001204

000001
004356

001204
001310

004316
004324

113737
011637

001202
001206

001322

1068

1074

1075
1076

004264

004316

1077

004330

1079

004342

1078

004336

001406

013777

001202

005037

001444

013716

1080

004346

013701

1082
}832

004354
004356

000406
000020

1081

004352

000002

001206

174704

1%:

1087

1090
1091
1092

1093

}8315'

;:IF FIRST PASS OF PROGRAM

INC
CMP
BGE
MOV
MOV

S$ICNT
$TIMES,SICNT
$OVER
#1,8ICNT
SMXCNT ,$STIMES

;2 INCREMENT ITER'TION COUNT
;;CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
;;REINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO

MOVB
MOV

STSTNM,STESTN
(SP) ,$SLPADR

MOV

$LPADR, (SP)

MOV

KMCSR,R1

MOV
CLR

002066

RTI

BRW:
WORD
$MXCNT: 2C

STSTNM

INHIBIT ITERATIONS

;:COUNT TEST NUMBERS

;;SET TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS

$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER

LOCK

406

; ;FUDGE RETURN ADDRESS

; RESET LOCK ON DATA.

; R1 CONTAINS BASE KMC ADDRESS.
;:MAX. NUMBER OF ITERATIONS

;CHECK FOR FREEZE ON CURRENT DATA
004360
004364

004372
004374
004400

004402

004406

004737
032777

001405
005737
001402

013716
000002

011226
001000

174646

.SCOP1: JSR
BIT

BEQ
TST
BEQ

001444

MOV

1%:

RTI

1096

PC,CKSWR
#SW09,aSWR
1%
LOCK
1%

LOCK, (SP)

;CHECK FOR SOFT SWR
;1S SW09=1(SET)?

;BR IF NOT SET.

:GOTO THE ADDRESS IN LOCK.
;G0 BACK.

;TELETYPE OUTPUT ROUTINE

1097

1098
}(1)33

.SBTTL

1101

;;ttttttttlttttt.tttt'ttttfittttttfitttttttttttttttt*tttttttttttttt

1102
1103

2*NOTE1:

1105

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

:*NOTE2:

”89

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

2*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

- %

1108

s*xCALL:

1109

:*1) USING A TRAP INSTRUCTION

”}?

"'on

TYPE

;e
i*

TYPE
MESADR

$TYPE:

TSTB
BPL
HALT
BR
MOV
MoV

. %

1112
1113

TYPE ROUTINE

s*ROUTINE T2 TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

1104

1116
1117
1118
1119
1120
1121

0036(2

::BR IF YES

$PASS

$SVLAD: ;INCB
$OVER:

TST

BEQ

}832
1088
1089

PAGE:

SCOPE HANDLER ROUTINE

004410
004414
004416
004420
004422
004424

105737
100002
000000
000430
010046
017600

001257

000002

1%:

,MESADR

;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

STPFLG
1%

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

3%
RO,=(SP)
@2(SP) ,RO

PAGE 25

08-JUN-78 07:53

122737

07:54

D o se
n nN

08-JUN-78
CZKCGA.P1T

A ST RPN ST TR ] R, Svd S et S A S

d e

000100

001337

004460
004700

e el e e

001336

001337

~
~

3FRE X8 £¥
SERER
NNV
ro8RS
v

004502

288 88 3333

O
RO
LB NN
BB LI NAANNNNN
IR b
FUNANIIB EUERRAR

AR DR R RN

dddddddddddddd-‘dddd-‘dddddddddd—ld—‘d-‘-‘-‘d—.—‘—.—l—‘ — e
o cd wh o
o e T
v
v
w—d - D
e — b
D o
e
e e
o o

61%:
62%:

2%:

000001

000040

004574

000002

60%:
3%:

000011

4%:

000200

105037

000755
004737
123726
001350
013746
105366
002770
004737
105337
000770

:
PAGE

TYPE ROUTINE

004666
004622
001256

5%:
6%:

001254

000001

7%:

004622
004666

CMPB
BNE
BITB
BEQ
MOV
JSR

. WORD

BITB
BNE
MovB
BNE
TST
MOV
ADD
RTI

CMPB
BEQ
CMPB
BNE

TST
TYPE
$CRLF
CLRB
BR

JSR
CMPB
BNE
MOV

DECB
BLT
JSR
DECB
BR

#APTENV ,SENV

62%

;sRUNNING IN APT MODE

;sNO,GO CHECK FOR APT CONSOLE

#APTSP
,OOL
SENVM ;:SPOOL MESSAGE TO APT

62%

#HT, (SP)

;:NO,GO CHECK FOR CONSOLE
;:SETUP MESSAGE ADDRESS FOR APT
5 :SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
s :APT CONSOLE SUPPRESSED
;. YES,SKIP TYPE OUT
;sPUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATOR
;:IF TERMINATOR POP IT OFF THE STACK
;;RESTORE RO
2 sADJUST RETURN PC
s sRETLRN
2 :BRANCH IF <HT>

#CRLF
, (SP)

;sBRANCH IF NOT <CRLF>

RO,61$

8C.$ATY3
#APTCSUP, SENVM

608
(RO)+,-(SP)
48
(SP)+
(SP)+,R0
#2,(SP)

5%
(SP)+

$CHARCNT

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

1(SP)

;;CLEAR CHARACTER COUNT
2 :GET NEXT CHARACTER
2:G0 TYPE THIS CHARACTER
;:1S IT TIME FOR FILLER CHARS.?
s:IF NO GO GET NEXT CHAR.
;:GET #
FILLER CHARS. NEEDED
;;AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?

PC,STYPEC
$CHARCNT
7%

GO TYPE A NULL
-:DO NOT COUNT AS A COUNT
s .LOOP

PC.STYPEC
SFILLC,(SP)+

SNULL
.- (SP)

;::BR IF NO--GO POP THE NULL OFF OF STACK

;HORIZONTAL TAB PROCESSOR
112716

000040
004622
000007

8%:
004666

9%:

MOvB
JSR
8118

,(SP)

PC,.STYPEC

g;.SCHARCNT
(SP)+

174422

000002
000015

$TYPEC.

174414

000002

:ER,Z(SP)

000002

$CHARCNT
S$TYPEX
#LF,2(SP)
$TYPEX

004666
000012

2%
as$TPS
$TYPEC
2(SP) ,as$TPB

1%:

INCB
$CHARCN
: . WORD
T
$TYPEX: RTS

(PC)+
0

;sREPLACE TAB WITH SPACE
::TYPE A SPACE
;:BRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
22GET NEXT CHARACTER
ssWAIT UNTIL PRINTER IS READY
:;LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
::E§§;.CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?
; :BRANCH IF YES
::COUNT THE CHARACTER
;:CHARACTER COUNT STORAGE

08-JUN-78
~
@

D
D

D
D d e
D nd D e e

— e o D e e e
e e o e el e

000001

005136

$SATY4:
$SATYC:

000004

e
d e

VONOWVS WO
-

3s:
gz:

105737
001416

MOVB

#1,8FFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV

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

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

108:

11$:
001320
000004
128:

SMFLG

CMP8

WAPTENV,SENV

2 :SHOULD TYPE A MESSAGE?
;.IF NOT:
BR

BITB

: ;OPERATING UNDER APT?
;:IF NOT:
BR
WAPTSPOOL ,SENVM ;s SHOLLD SPOOL MESSAGES?

MOV
ADD

@4 (SP) RO
#2,4(SP)

BNE
MOV

13
RO, SMSGAD

TSTB

$MSGTYPE

(RO)+

BNE
SuB
ASR
MOV
MOV
BR
MOV
ADD
MOV
JSR

2%
$SMSGAD ,RO
RO
RO, SMSGLGT
#4.SMSGTYPE
S
@4 (SP) 48
#2,4(5P)
177776.-(SP)
PC,STYPE

T1STB

S$FFLG

SENV

ST
BNE
MOV
ADD

$MSGTYPE
118
@4 (SP)
, SFATAL
#2,4(SP)

.WORD

BEQ
BEQ

INC
LR

CLRB

MOV
MOV
SMFLG:
SLFLG:
$FFLG:

SATYC

TSTB

BEQ

001316

005046

;.70 REPORT FATAL ERROR
::TO TYPE A MESSAGE

BNE

18:

q.SFFLG
#1.SMFLG

MOVB

BEQ

2s:

D e =D e

SATY3:

001337

ittt et
22222832232222222;

$ATY1: MOVB

001336

APT COMMUNICATIONS ROUTINE

005136

005134

e e =D e
) d e
b o

e o

AN
N NN NI NN

1222

:
PAGE

APT COMMUNICATIONS ROUTINE
.SBTTL

SHEEREL $BSRIR QL8 TRIRRRRT2BY

—

CZKCGA.P1

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

RTS
.BYTE

.BYTE
.BYTE

APTSIZE=200
APTENV=001
APTSPOOL=100

12%

$SMSGTYPE
WPLE

SLFLG

SMFLG

(SP)+,R1
(SP) +.RO

PC
0
0
O

;:;IF NOT:

;;GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;;SEE IF DONE W/ LAST XMISSION?
;:IF NOT: WAIT
;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE
::SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
:sPUT LENGTH IN MAILBOX
;:TELL APT TO TAKE MSG.
::PUT MSG ADDR IN JSR LINKAGE

- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK
::CALL TYPE MACRO

+sSHOULD REPORT FATAL ERROR?
;:IF NOT: BR
: sRUNNING UNDER APT?
;:IF NOT: BR
s cFINISHED LAST MESSAGE?

soIF NOT: WAIT
::GET ERROR #
: :BUMP RETURN ADDR.

;:TELL APT TO TAKE ERROR

. :CLEAR FATAL FLAG

;:CLEAR LOG FLAG
2 ;CLEAR MESSAGE FLAG
::POP STACK INTO R1
;:POP STACK INTO RO
: :RETURN

;JMESSG. FLAG
;:L0G FLAG

;sFATAL FLAG

00382

08-JUN-78

CZKCGA.PT1T

07:54

PAGE 27

08-JUN-78 07:53

1234
1235
1236
1237
1238
1239
1240
1241
1242
1243

APT

000040

TTY

INPUT RNOUTINE

" ENABL

LSB

.DSABL

LSB

‘;t...tt..litt.'t"'tt...itlt.l't'fi'tfi.tttt.ttfittt.t.t't..ttttt.fl

$*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:
%

88288
byl
v
RRRRR

005150
005154
005156
005164
005172
005200
005202
005206

005214
005220

005230
005236
005240
005250

005256

011646
016666

105777
100375
117766
042766
026627
001013
105777
100375
117746
042716
022627
000750
026627
002407
026627

005140
005142

e el

TN
SRR
&fldflhflChog; SRURURSRY

1255
1256
}Sgg

0039C2

':t...t.t".t.t..'ii.fifi.'tt..tfitttttttl'.tt.tt'tttt'tt.t't.ttlttt

8
2
5

1252

PAGE:

COMMUNICATIONS ROUTINE

APTCSUP=040

1244
1245
1246
1247
1248
1249
1250
1251

1253
1254

042766

000002

000004

174070

174064
177600
000004

MOV
MOV

000002

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

TSTB

a$TkS

MCVB

aS$TKB,4(SP)

cTMP
BNE

4L(SP) 423
3s

BPL

000004
000004
000023

174036

RDCHR
RETURN HERE

BIC

2%:

174032
177600

#AC<177>,4(SP)

006004

000140

000004

000175

000040

000004

3s:

4%:

;:A CHARACTER
:;READ THE TTY

TSTB

a$TKS

MOVB

a$TKB,-(SP)

cMP
BNE
B8R

(SP)+,#21
2$
18

2218 IT A CONTROL-Q?
s+IF NOT DISCARD IT
2 :YES, RESUME

BPL

#5C177, (SP)

4(SP) ,#140

BLT
cwP
BGT

48
4(SP) . m75
43
#40,4(SP)

BIC
RTI

e R AR A AR AR AR

TTY

;«PUSH DOWN THE PC
;:SAVE THE PS
;:WAIT FOR

;:GET RID OF JUNK IF ANY
2:IS IT A CONTROL-S?
;;BRANCH IF NO
;:WAIT FOR A CHARACTER
;;LO0P UNTIL ITS THERE
;;GET CHARACTER

BIC

000021

;o INPLT A SINGLE CHARACTER FROM THE
; ;CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

JsMAKE IT 7-BIT ASCII

2:1S IT UPPER CASE?
s ;BRANCH IF YES

::1IS IT A SPECIAL CHAR?
. :BRANCH IF YES
ssMAKE IT UPPER CASE
;.60 BACK TO USER

A AR A A AR AR AR AR AR AR AR

AR R AR AR AR AR AR AR R AR AR R

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:
*

RDLIN
RETURN HERE

MOV

1283
1284

005264
005270

012703
022703

005514
005523

1288

00
005302

1
12%713

000177

CLR
MOV

10%:

cMP
BLOS
RDCHR
MOvB
CMPB
BNE

R3,=(SP)

=(SP)
#STTYIN,R3

#STTYIN+7
,R3
4%
(SP)+, (R3)
#177,(R3)
5%

:2INPUT A STRING FROM THE TTY

;sADDRESS OF FIRST CHARACTER WILL BE ON THE STAC
s :TERMINATOR WILL BE A BYTE OF ALL 0'S

::SAVE R3

;:CLEAR THE RUBOUT KEY
;:GET ADDRESS
s ;BUFFER FULL?
::BR IF YES
::ggTREAD ONE CHARACTER FROM THE TTY
215 1
BR I

08=JUN-78

CZKCGA.P11

07:54

PAGE 28

08~JUN=78 07:53

1290

005310

005716

129%
1293

005314
005322

112737
104401

1291

005312

129

005326

1296

005334

1295

1297

1298

1299

001007

012716

0053232

005303

005340

103434

005342

020327

111337

000134
005512

005512

1301
1302
1303
1304
1305
1306

005354
005356
005360
005366
005372
005374

005716
001406
112737
104401
005016
122713

000134
005512

1308

005402

104401

005523

122713

000022

1307

1309

005400

001003

005406

000726

005414

001011

1310

005410

1312
1313

005416
005420

1311

1314
1315
1316
1317
1318

105013
104401

005424
005430
005432
005436
005440

104401
000717

005454

001305

1323

005462

104401

1325
1326
1327
1328

005470
005472
005474
005502

1319
1320

005444
005450

1322

005456

1321

1324

005466

1329

005510

1332

005514

1330 005512
1331 005513

1333
1334
1335
1336
1337
1338

1339
gl-‘?
13‘2

1343
1344
1345

005523
005530
005535
005542
005546
005554

104401
000712
111337

5%:

000025

8$:

001312

4$:

005512

3$:

177777

136
043536
015
036440
020040
020075

005560

#'\,9%
,9%

::TYPE A BACK SLASH

::BACKUP BY ONE

CMP

R3,4STTYIN

BLO

TYPE

ST
BEQ
MOVB
TYPE
CLR
CMPB

(R3),9%

(SP)
7$
#'\,9%
.98
(SP)
#25,(R3)

*:BR IF NO

::SET THE RUBOUT KEY
;1STACK EMPTY?
“:BR IF YES

::SETUP TO TYPEOUT THE DELETED CHAR.
1:GO TYPE
::GO READ ANOTHER CHAR.
*:RUBOUT KEY SET?
“:BR IF NO
::TYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
::IS CHARACTER A CTRL U?

BNE

“:BR IF NO

::G0 START OVER

LSCNTLU

::TYPE A CONTROL 'V’

CMPB

#22.(R3)

::IS CHARACTER A '"“R'“?

CLRB
TYPE

(R3)
LSCRLF

::CLEAR THE CHARACTER
“:TYPE A "CR
& 'LF"

BNE

TYPE
B8R

S$TTYIN
2

TYPE
CMPB

,9%
#15,(R3)+

TYPE
BR
MOvB

. SQUES
is
(R3),9%

::BRANCH IF NO

*:TYPE THE INPUT STRING
::GO PICKUP ANOTHER CHACTER
S:TYPE A '2°
:;CLEAR THE BUFFER AND LOOP
::ECHO THE CHARACTER
::CHECK FOR RETURN

BNE

001314

TYPE

JSLF

::TYPE A LINE FEED

000004
005514

MOV
MOV
MOV
MOV

(SP)+,R3
(SP) ,=(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

::RESTORE R3
;:ADJUST THE STACK AND PUT ADDRESS OF THE
32
FIRST ASCII CHARACTER ON IT

BYTE
BYTE

0
0

CLRB

TST

000002
000004

000
000

000007

::1S THIS THE FIRST RUBOUT?

#-1,(SP)

DEC

TYPE

005514

105063

000002

7$:

001313

005512
000015

012603
011646
016666
012766

005512

(SP)

MOV

MOVB

005512

104401
122723

005726

MOVB
TYPE

6$:

005514

104401

1300 005352 000746

BNE

005512

177777

005346

PAGE:

TTY INPUT ROUTINE

9%:
006525
005015
051412
000040
042516
000

STTYIN:

RTI

.BLKE

=1(R3)

(SP)+

::LOOP IF NOT RETURN

:;CLEAR RETURN (THE 15)

::CLEAN RUBOUT KEY FROM THE STACK

: :RETURN

::STORAGE FOR ASCII CHAR. TO TYPE
: : TERMINATOR

::RESERVE 7 BYTES FOR TTY INPUT

000012
000
051127

SCNTLU:
$CNTLG:
SMSWR:

.ASCIZ
.ASCIZ
.ASCIZ

/%U/<15><12>
::CONTROL 'V
/*G/<15><12>
::CONTROL '@
<155<12>/SWR = /

020127

SMNEW:

.ASCIZ

.EVEN

.SBTTL

NEW = /

READ AN OCTAL NUMBER FROM THE TTY

;,'t!tttttttttttttttt*tttitttttfi*ttttttttttttititittttttittttt!itt

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

0040C7

08-JUN-78
CZKCGA.P1T

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

READ AN OCTAL NUMBER FROM THE

;*OCTAL DIGITS.

S AT

s*xCALL:
%
I*
i

AN AV

000004

2%:

MRRERR R
WWNW

MoV
MOV
Etg

(SP)+,R0O
RO,5%
g;

BEQ

CMPB

—d

000012
005716

BLT
ASL
ROL
ASL
ROL

4%
R1
R2
R1
R2

ROL
BIC

R2
#*C7,(SP)

ADD
BR

3%:

TST

R
R

000002

012537
012537

005764
006044
006046

(SP)+

(SP)+,R0

TYPE

.UmD

$HIOCT:

(SP)+ R1
2%

MOV

CLRB

SS:

R1.,12(SP)
R2,$HIOCT
(SP)+,R2

RTI
TST

001312

#'7,(SP)

MoV
MOV
MOV
Mov

4%:

#'0,(SP)

ASL

177770

(RO)+,-(SP)

BGT

CMPB

<
NNN
W

000067

4 (SP) ,2(SP)
RO,~-(SP)
R1,-(SP)
R2,-(SP)

MOVB

(SP) ,-(SP)

MoV
MoV
MoV
MOV

RDLIN

005706

000060

RDOCT
RETURN HERE

$RDOCT: MOV

000002

1%:

Y
YU W
LR S
e YN S

IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED

THE COMPLETE NUMBER MUST

:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

Rovova W NN
00
8883 &8 wn—=
CEL
1401

TTY

s*FOLLOWED BY A CARRIAGE RETURN-LINE FEED.

NN NN NN
N

1346
1347

PAGE : ooa1cJ

(SP)+ ,R1

(SP)+

(RO)

TYPE

0. SQUES

.WORD

B8R

;;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF

;:HIGH ORDER BITS ARE IN $HIOCT

THE STACK

;:PROVIDE SPACE FOR THE

;¢ INPUT NUMBER
. :PUSH RO ON STACK

;;PUSH R1 ON STACK
;;PUSH R2 ON STACK

:sREAD AN ASCIZ LINE

. :GET ADDRESS OF 1ST CHARACTER
;;AND SAVE IT
;:CLEAR DATA WORD
;:PICKUP THIS CHARACTER
;s IF ZERO GET OUT

2 sMAKE SURE THIS CHARACTER

;IS AN OCTAL DIGIT
Jo%2
E

;.%8
;:STRIP THE ASCII JUNK

;:ADD IN THIS DIGIT
2 :LOOP

. sCLEAN TERMINATOR FROM STACK

+sSAVE THE RESULT

;:POP STACK INTO R2
;:POP STACK INTO R1

;:POP STACK INTO RO

2 :RETURN
;sCLEAN PARTIAL FROM STACK

;sSET A TERMINATOR

+sTYPE UP THRU THE BAD CHAR.

2 2TRY AGAIN

. 'Y "

;sHIGH ORDER BITS GO HERE

INPUT OCTAL NUMBER ROUTINE

$INPUT: MOV

MOV

MOV
MOV
MoV

R5,-(SP)

;

(RS)+,WHAT
(R5)+,LOLIM
(R5)+,HILIM

; GET MESSAGE ADDRESS.
; GET LOW LIMIT FOR THE #
; GET HIGH LIMIT FOR THE #.

2(SP) ,R5

SAVE REGISTER RS.

; GET FIRST PARAMETER ADDRESS.

012537
112537
112537
010566

006053
000002

104404

WN=O

021637
003003
021637
002005

vl vl

104401
104401

ol sl vl <

000762
013705

MOV
MOVB
MovB

INLP1:

WHAT :

006046

006044

001312
001313

2%:

006050

3%:

000002
006053

4%:

MOV
TYPE
.WORD
RDOCT
CMP

R5,2(SP)
O

,SQUES

:TYPE

WHERE ,R5

ADD

#2,(SP)

TST
:?Y

(SP)+
(SP)+ ,R5

.WORD
.WORD
.WORD
.BYTE
.BYTE

.ADVANCE :

CLR
RTI

READ OCTAL # FROM KEYBOARD.
IS IT IN HIGH LIMIT?

; BRANCH IF NO.
; IS IT MORE THAN LOW LIMIT.
; BRANCH IF YES.
;

INLP1

MOV
MOV

TYPE THE MESSAGE.

;
;

,SCRLF

000004

.SAV05: MoV

; GET BUFFER ADDRESS.

(SP),(R5)+

ADRCNT
4%

; COUNT BY 1.
; BRANCH IF NOT DONE.
; POP THE STACK POINTER.
; POP THE REG.S

SAVE THE # IN RIGHT PLACE.

; NEXT SEQUENTIAL NUMBER.

O
O
O
O
O

ADVANCE TO NEXT TEST HANDLER

MOV

LOCK

NEXT, (SP)

4 (SP) ,SAVPC

BERRSRR
RIRSR8Y

001274
001272
001270
001266
001264
001262

SvV05:

MoV
MOV
MOV

RS,$REGS
R4 ,SREG4
R3,$REG3

MOV

R1,$REG]

MOV
MOV
RTI

R2,$REG?2
RO,$REGO

:SAVE R7 (PC)

;SAVE RS
;SAVE R4
:SAVE R3

;SAVE R2
:SAVE R1

:SAVE RO

;LEAVE.

3883
vy
RS

;RESTORE RO-R5
013700
013701
013702
013703

.RESO5: MOV
MOV
MOV

MoV

$REGO,RO
$REG1,R1
$REG2.R2

$REG3,R3

> CRUNCH STACK WITH ADDRESSOF SC

: RESET TIGHT LOOP ADDRESS
; CHECK TO SEE IF OLD TEST GETS REPEATED

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

"" 7 *

TYPE <CR>,<LF>

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

0042C2

GET ADDRESS OF INBUFFER
GET LOWMASK BITS.
GET # OF #'S TO BE GENERATED.
SAVE THE RETURN ADDRESS.

(SP) ,HILIM

TYPE

;
001442
001444

(R5)+ ,WHERE
(R5)+,LOBITS
(R5)+,ADRCNT

2%
(SP) ,LOLIM
3%

TYPE

:
PAGE

TTY

BGT
CMP
BGE

DECB
BNE

LOLIM:
HILIM:
WHERE:
LOBITS:
ADRCNT:

013716
005037
000002

READ AN OCTAL NUMBER FROM THE

006050
006052

000000

LSEEUENRURESBRNERR AN VRNV

D e

D d

D D e

D d e

) D e

D e

il o il

Rt et aE 2T Pt aF 2P 2P 0 F 0 F o0 o O o BB BB
DD

104401

CZKCGA.P11

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

SeNLNLN,

08~JUN-78

;RESTORE RO
;RESTORE R1
JRESTORE R2

;RESTORE R3

08-JUN-78

07:54

CZKCGA.P11

1458
1459

PAGE 31

08-JUN-78 07:53

006146
152

013704
013705

000002

READ AN OCTAL NUMBER FROM THE

001272
001274

MOV
MOV
RTI

:
PAGE

TTY

$REG4 R4
$REG5.RS

JRESTORE R4
;RESTORE R5

s LEAVE

{CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

- CONVR:

D e e e

BEEEEEESE
SNZRETIREEE
SRS2285555550 090
W= 238 ~N 2oRER2E3 SRENRG

001313

N
&S

1%:

006404

177400
006406
006404
011122
177770
000060

006406

MOV

a(R1)+,BINWRD

BNE

2%
#177400 ,BINWRD
BINWRD
, R4

MOVB
MOVB

BIC

2%:

MOV

3%:

MOV
MOV

MOVB

BIC

ADD

MOVB

&
S

;
293

255

006405

g
o

000040
006405
011164
006402

5%:
6%:

CHRCNT.RS

#TEMP,RO
R4 ,R3
#177770.R3
#060,R3
R3,(RO)+

ROR

DEC

4%:

#3,CHRCNT

cLC

006404

(R1)+.CHRCNT
(R1)+.SPACNT

ROR
ROR

~
Wh=O

RO, ~-(SP)
R1.-(SP)
R3.-(SP)
R&4,=(SP)
RS.-(SP)
312(SP) ,R1
#2,12(SP)
(R1)+,WRDCNT

CcLC

011164

,SCRLF

MOV
MOV
MOV
MOV
MOV
MOV
ADD
MOV

cLC

e e e
s e o
) e e e

e e e e o e e i
wviviuoavaiwnanunaug

TYPE

CMPB

~
o

i e
e e

D e e e

e e

D e e e e

000012

) e

- CNVRT:

BNE
MOV

MOVB

DECB

3s
#MDATA ,R3

-(RO),(R3)+
CHRCNT

BNE
TSTB
BEQ

48
SPACNT
6$

DECB

SPACNT

MOVB

BNE

CLRB
TYPE

DEC

BNE
MOV
MOV
MOV
MOV
MOV
RTI

#040, (R3)+

(R3)

,MDATA

WRDCNT

1%
(SP)+,RS
(SP)+.Ré%
(SP)+.R3
(SP)+.R1
(SP)+.R0

00432

08-JUN-78

CZKCGA.P11

07:54

1514
1515

006402
006404

1517
1518
1519
1520
1521
1522

006406

1516

PAGE 32

08~JUN~-78 07:53
000000
000000

WRDCNT: 0
CHRCNT: 0

000000

BINWRD: 0

006405

:TRAP DISPATCH SERVICE
;ARGUMENT OF TRAP IS EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER

;TO SELECTED SUBROUTINE
.SBTTL

1527

AR AR AR AR

1528

1529

A AR AR A AR A AR ARAAARAAARAA AR AR

A AN

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

:*GO TO THAT ROUTINE.

1533

006410

010046

1535

006416

005740

006422

006300

006412

006420

006424
006430

016600

$TRAP:

000002

111000

016000
000200

MOV

RO,-(SP)

::SAVE RO

-(RO)

; ;BACKUP BY 2

MOV
MOVB
ASL

006444

MOV
RTS

1541

}gfig

2(SP) ,RO
(RO) ,RO

$TRPAD(RO)
,RO
RO

;:GET TRAP ADDRESS

;:GET RIGHT BYTE OF TRAP

:;POSITION FOR INDEXING

;;INDEX TO TABLE
;:G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE ''GETPRI'' MACRO

1544

006432

011646

}gztys

006442

000002

1545

A A A A AR R A AR AR R R

;*0OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

;gg}

1538
}2{3.3

TRAP DECODER

:*THIS ROUTINE WILL PICKUP THE LOWER EYTE OF THE ''TRAP'' INSTRUCTION

1530

1537

0044C2

SPACNT=CHRCNT+1

}ggg

1536

PAGE:

READ AN OCTAL NUMBER FROM THE TTY

}ggz

1534

006434

016666

000004

000002

$TRAP2: MOV

MGV
RTI

(SP) ,~(SP)

4(SP) ,2(SP)

;:MOVE THE PC DOWN

;:MOVE THE PSW DOWN
;;RESTORE THE PSW

}gzg

.SBTTL

1550
}ggg

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE '‘TRAP'' INSTRUCTION.

}ggz

ROUT INE

$TRPAD:

.WORD
STYPE

S$TRAP2
;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

; ; CALL=RDCHR
;:CALL=RDLIN
; ;CALL=RDOCT
;;CALL=SCOP1
;:CALL=SAV0S
;;CALL=RESOS
;;CALL=MSTCLR
;;CALL=DELAY

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

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
CALL TO REGISTER RESTORE ROUTINE
CALL TO ISSUE A MASTER CLEAR
CALL TO DELAY

TRAP TABLE

1555
}ggg

006444
006446

006432
004410

1558
1559
1560
1561
1562
1563
1564
1565
1566

006450
006452
006454
006456
006460
006462
006464
006466

005140
005260
005560
004360
006066
006126
007356
007326

$RDCHR
$RDLIN
SRDOCT
.SCOP1
.SAVDS5
.RESO5
.MSTCLR
.DELAY

1568
1569

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

1567

006470

007374

.ROMCLK ;;CALL=ROMCLK

TRAP+12(104412) CALL TO CLOCK ROM ONCE

08~JUN-78

07:54

PAGE 33

08-JUN-78 07:53

006458

PAGE
:

TRAP TABLE

005720

006502

D
D
e

ALt

T332

BEQ

006760

TST

001313
001313
001444

1%:

001203

BNE

TYPE
TYPE
TST
BEQ
TYPE

TYPE
CNVRT
TYPE
CNVRT
TYPE

MovB

TST
BEQ
TYPE

010011
007777
007114
010066
007106
001313
177777
006734

TYPMSG:

HALTS
ggp).sennpc

(SP) ,$ERRPC
SERFLG

(SP) ,RS

#2.RS

(RS) R4

R4, SITEMB
R4
(R5) R4
R4
#177001
R4
#$SERRTB
R4
(R4)+ ,ERRMSG
(R&)+,DATAHD
(R4) ,DATABP

SERFLG
TYPMSG

DATABP
TYPDAT

+SCRLF
. SCRLF

e
d

006746

TST

;TTY READY.

;DON'T WAIT IF TTY NOT READY.

;PUSH A BELL AT THE TTY.

;DELETE ERROR PRINT OUT?
;BR IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
:BR IF YES

;RECORD BEING HERE
- PREPARE HEADER
sSAVE ALL PROC REGISTERS
;GET THE PC OF ERROR
;GET ADDRESS OF TRAP CALL
;GET ERROR INSTRUCTION
. COPY ERROR # FOR APT HANDL ING
sMULT BY TWO
:DOUBLE IT
;sMULT AGAIN
;CLEAR JUNK
:GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER
:GET DATA TABLE
;TYPE HEADREER
sBR IF YES
;DOES DATA TABLE EXIST?
:BR IF YES.

LOCK
18

+MASTEK
MTSTN
XTSTN
+MERRP(
.ERTABO
. SCRLF

#-1,3ERFLG
ERRMSG
WRKO.FM

ERRMSG: 0

WRKO.FM:

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

DATAHD

§a§

006734
006746
006760
001203

#5W15,asWR

322222223

YPE

PC.

IT
IVE A CR/LF
MORE HEADER UNLESS NO DATA TABLE.
m

177001
001512

SAVO05

MOV
SuB
MOV
MOvB
ASL
ADD
ASL
8IC
ADD
MoV
MoV
MOV
1STB

PC,CKSWR
#SW12,aSWR
XBX
asTPS
XBX
#207,a87P8

e
D e
e

ettt

258

1%:

JSR
BIT
BEQ
TSTB
BPL
MovBe
BIT
BNE
cMP
BEQ
MoV
CLRB

(21 %5

001216
001203

001216

XBX:

e
e
e
e
o
D e

atd

T HERE AN ERROR MESSAGE?
I F NO.
YPE

000207
020000

&N
V—i
~

172522
-_—

$ERROR:

i
e
e
e
e o
e
e
e
o
o
o
e
e

sen

e e
D e
e e
e e
e

172520

)

011226
010000

001214

:ERROR HANDLER

000002

0045C2

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

—

ARSI
RRER 23 3RERERERES 82 333538 egBEERuwgi?nvmmmvnnunnvununn
a2 BIBJINAN A 33
3

CZKCGA.P11

ERROR MESSAGE

*DATA HEADER?

08-JUN-78

CZKCGA.P1

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

PAGE :

TRAP TABLE

001402

TYPDAT

104401

000000

P& YPE

DATAHD :
TYPDAT:

006760

DATABP
RESREG

DATABP: 0

001336

001214
004710

007006

004070
172212

D ol

23332333333

1640

) ——d

000001

000042

RESREG:
HALTS:

#APTENV,SENV

$1TEMB, 68
PC,$ATYS
0
9%

6%:
9%:
3%:

{:ENDAD LaN62
aSWR
EXITER

1%:

2(SP) ,RO

SARA n

v
i —
il
b
b

i Vi

o oo

—

)

000002
001212
000400

172164

002000

172154

001442
001200
172102

001206

EXITER:

SERTTL
12008.35\&

#SW10,aSWR

2%
1%:

NEXT,SLPADR

JMP

RTI
2%:
ERTABO:
.BYTE

#STACK, SP

aSLPADR

002

XTSTN:

002

;BR IF NO

?AVPC

.BYTE
STSTNM

DATA HEADER

‘DATA TABLE?
;BR IF NO.

; SHOW

DATA TABLE

‘RESTORE PROC REGISTERS
IS APT RUNNING ?

: SKIP APT CALL IF NOT.
.

;
;
;

COPY ERROR #.
CALL APT SERVICES.
ERROR # GOES HERE.
LOCK HERE.
B3| F ACT=11 AUTOMATIC MODE, HALT!!
.

.
.

sHALT ON ERROR?
;BR IF NO HALT ON ERROR
;SAVE RO
;SHOW ERROR PC IN DATA LIGHTS

JHALT

;GET RO
;UPDATE ERROR COUNT
:GOTO TOP OF TEST?
;BR IF YES
sGOTO NEXT TEST?
:BR IF NO
;SET FOR NEXT TEST
;RESET SP
2GOTO SPECIFIED TEST

;SLPADR

6.2

3'2

;ENTER HERE ON POWER FAILURE

.SBTTL

POWER DOWN AND UP ROUTINES

SRR AR AR AR A AR A AR R AR AR AR A AR A AR AR AN R R AR R R AR AR AR AR R AR R R A AR AR R R RN ®

007122
007130
007136
007140
007142
007144
007146
007150
007152
007156
007162
007170

012737
012737
010046
010146

007312
000340

172062
007316
007174

000024
000026

000024

;POWER DOWN ROUT INE

$PWRDN : MOV
MOV
MoV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
HALT

#SILLUP,@#PWRVEC ;;SET FOR FAST UP
#340,a#PWRVEC+2 ;;PRIO:7
RO,=(SP)
PUSH RO ON STACK
R1,-(SP)
PUSH R1 ON STACK
R2.-(SP)
PUSH RZ ON STACK
R3,=(SP)
PUSH R3 ON STACK
R4 ,=(SP)
PUSH R4 ON STACK
R5,=(SP)
PUSH R5 ON STACK
aSWR,~(SP)
PUSH @SWR ON STACK
SP,$SAVR6
SAVE SP
..

#$SPWRUP ,a#PWRVEC ;;SET UP VECTOR

0046(2

N'u\l\l
NN~
gP PR EE SN
333 EESEER
NN e aoronaads
T SRR fiOOOO
S8
S228RERERE2

(ZKCGA.P11

007172

000776

b S&

288
>

000024

REERS

007556
007320
001203
001216
002066
171764

22
33

*ro

NN N N
SN

88 g g

007312
007316
007316
007316

007122
000340

000024
000026

NOVn

001375

D e
e
o
e
- e

012737
013706
005037
005237

$PWRUP: MOV
MOV
CLR
1%:
INC
BNE
TYPE
CNVRT
CLRB
CLR
MOV
CLR
MSTCLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE

$SAVRG6:

172540

000020

172522

152777
142777
000002

000100
000300

172504
172476

152777

000002
172470
000002

172466

013677
062746

ettt

2222222222220

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
$SAVR6,
SP
. sGET SP
$SAVR6
.;WAIT LOOP FOR THE TTY
$SAVR6
;:WAIT FOR THE INC
1%
WORD
;:0F
JMPFAIL
. PFTAB

$ERFLG
$ERRPC

CLEAR ERROR FLAG.
CLEAR LAST ERROR PC
RESTORE DEVICE ADDRESS.
CLEAR THE CSR.

KMCSR.R1

(R1)

(SP)+,aSWR
;POP STACK INTO aSwR
(SP)+,R5
; ;POP STACK INTO R5
(SP)+ R4
:;POP STACK INTO R4
(SP)+,R3
;;POP STACK INTO R3
(SP)+,R2
:;POP STACK INTO R2
(SP)+ R1
;;POP STACK INTO R1
(SP)+,R0O
:;POP _STACK INTO RO
#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,#PWRVEC+2 ;;PRIO:7
MPFAIL

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

;:THE POWER UP SEQUENCE WAS STARTED
.. BEFORE THE POWER DOWN WAS COMPLETE
;sPUT THE SP HERE

.DELAY:

#20,3KMPO4

1%:

gss

RTI

BYTE

g
&

.WORD

. sHANG UP

PFTAB:

002

g8v

NNNNNN

ittt

*POWER UP ROUTINE

SILLUP:

LAt

000020

:
PACE

oTM

BR
R

007174
007202
206

POWER DOWN AND UP ROUTINES

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

08-JUN-78

#B1T4 ,aKMPO4
1%

.MSTCLR:

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;POKE CLOCK DELAY BIT
<NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
+PORT4_1BUS*11

;1S CLOCK BIT SET?
:BR IF NO

#BI1T6,aKMCSRH
:SET MASTER CLEAR
#BIT6IBIT7,aKMCSRH_ ;CLEAR MASTER CLEAR AND RUN

sRETURN

.ROMCLK:

#B1T1,3KMCSRH
@ (SP) +,aKMPO6
#2,-(SP)

sSET ROMI
sLOAD INSTRUCTION IN SEL6
sADJUST STACK

0047(2

08-JUN-78
CZKCGA.P11
1738
1739
1740
1741
1762

007424
007432

1745
1746

;;22

1747
1748

1749

007412
007420
007422

032777
001401
000000

007440

000002

007442
007442

013637

007446
007452

007460

152777
142777

171620

000003
000007

172436
172430

000002
000020

027777

172402

007466
007474
007500
007502
007504

142777
005337
001364
000002
000001

000020
011122

1756
1757
‘1';28

007506
007506
88;21 g

013637
062746

011122
000002

1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770

007516
007520
007522
007530
007532
007532
007534
007536
007544
007546
007552

104412
021364
032777
001372
005337
001361

1773
(2)
(2)
(2)
(2)
(?)
(2)
(2)

007556
007614
007636
007641
007666
007712
007741
007747

050200
042600
051200
200
044600
046200
103
126

010317
010357
010375

051105
124
052
200
041520
200
020200
200
200
200
200
200

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

007554

007755
007766
007777
010011
010013
010066
010073
010132
010171
010243

104412
021364
032777
001772

000002

1$:

BISB
BICB

RTI

172410
172400

3%:
.TIMER:

“

172344

172330

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

MPFAIL:
MEPASS:
MR:
MERR2:
MERR3:
MLOCK:
MCSRX:
MVECX:
MPASSX:
MERRX:
MTSTN:
MASTEK:
MNEW:
MERRPC:
XHEAD:

NUM:
CSR:
VEC:

JHALT IF SW06 =1
:BR IF SW06 =0
;HALT BEFORE CLOCKING INSTRUCTION

#2,-(SP)
#BIT4,AKMCSRH

;PUT TICK COUNT IN TEMP

;ADJUST STACK
;SET STEP LU

cMP

aKMCSR,akKMCSR

;WASTE TIME

MOV
ADD

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

sMOVE COUNT TO TEMP
;ADJUST STACK

#2 ,aKMPO4
1%

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4_IBUS* REG11
;1S PGM CLOCK BIT CLEAR?
:BR IF YES

#2,3KMPO4L
2%
TEMP
1%

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IBUS* REG11
;1S PGM CLOCK BIT SET?
:BR IF YES
sDEC COUNT
:BR_IF NOT DONE

ROMCLK
021364
BIT
BEQ
ROMCLK
021364
BIT
BNE
DEC
BNE

RTI

043040
050040

a(SP)+,TEMP

BICB
#BIT4,3KMCSRH
DEC
TEMP
BNE
1%
RTI
.BLKW 1

172374

000002

051501
047522
051505
000
042523
020072
020040
020040
020040
026455
047510
051503
042526

PAGE:

#BIT1!BITO,@KMCSRH ;CLOCK INSTRUCTION
#BIT2!BIT1!BITO,aKMCSRH
;CLEAR ROMO, ROMI, STEP

18:

011122

051127
042116
000
047516
051516
041517
051123
041505

#SW06, aSWR
13

ADD
BISB

28:

000002

BIT
BEQ
HALT

.DATACLK:
MOV

011122

062746
152777

POWER DOWN AND UP ROUTINES

000100

1750
1751
1752
1753
;I;gg

}77;5

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

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCII
LASCII
LASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

;CLEAR STEP LU
;DEC TICK COUNT
;BR _IF NOT DONE
sRETURN

sRETURN

<200>/PWR FAILED. RESTART AT TEST /
<Z200>/END PASS CZKCG /
<200>/R/
<200>/NO DEVICES PRESENT./
<200>/INSUFFICIENT DATA!/
<200>/LOCK ON SELECTED TEST/
/CSR: /
/VEC: /

/PASSES: /
/ERRORS: /
/TEST NO: /
/»/
<200>/SET SWITCH REG TO KMC11'S DESIRED ACTIVE./
/PC: /
<200>/
MAP OF KMC11 STATUS/
<200>/
/
<200>/ PC
CSR
STAT?
STATZ2
STAT3/
<200>/
/
<200>/HOW MANY KMC11'S TO BE TESTED?/
<200>/CSR ADDRESS?/
<200>/VECTOR ADDRESS?/

0048(2

08-JUN-78

CZKCGA.P11
(2)
(2)
(2)

(2)

(2)
(2)
(2)
(2)
(2)
25;

(2)

1774
1775

1776

1777

1778

1779

1780

1781

1782
1783

1784

07:54

08-JUN-78 07:53

010416
010455
010567

041200
200
200

010665
010725
010756
011023
011044
011054

200
200
100200
200
024040
046040

011074

000005

011100

001276

011104

001300

011110

001302

011114

001304

011120

001306

010625

011076
011102

011106
011112

011116

PAGE 37

200

020122
044127
053523

053523

051511
047516
046513
054105
046513
040517

006

003

006

003

006

003

006

003

006

002

051120
041511
052111

052111

052040
042040
030503
042520
024503
044504

PRIO:
MODU:
LINE:

BM:

CONN:
NOACT:
CONERR:
CNERR:
KMCM:
ms.sgz:

011122

1790

011164

1792
1793

1800

1801
1802
1803
1804
1805

1806

1807
1808

1809

011226

000000

TEMP:

000000

MDATA:

011164

.=.+40

011226

.=.+40

000176

001240

132737

000001

001336

000007

167772

000207

167762

001075

011244
011246
011254
011256
011264

001071
022777
001404
022777
001061

011236

011266

010246

011274

012737

177777

012704
104401

177777
005535

011270
011272

011314

1817

022737

011234

1813
1816

6.3

.BYTE

6.3

BYTE

6.2

$TMPS

;REGISTER USING THE CONSOLE TERMINAL

011302

1814
1815

.BYTE

PC: /

;ROUTIME USED TO CHANGE SOF TWARE SWITCH

1810

1811
1812

6.3

$TMP3

}Qg

1799

.BYTE

$TMP2

.EVEN

<200>/1S THE LOOP BACK CONNECTOR ON?/
<200>/NO DEVICES ARE SELECTED/
<200><200>/KMC11 AT NONSTANDARD ADDRESS
<200>/EXPECTED FOUND/
/ (KMC) /
/ LOADING ERROR /

6.3

STMP1

IF M8201

<200>/SWITCH PAC#2 (BM873 BOOT ADD)?/

.BYTE

$TMPO

1794

1797

LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<200>/BR PRIORITY LEVEL? (4,5,6.7)2/
<200>/WHICH LINE UNIT? IF NONE TYPE 'N'',
<200>/SWITCH PACA#1 (DDCMP LINE #)?/

:BUFFERS FOR INPUT-OUTPUT

1788

1798

.ASCIZ
.ASCIZ
.ASCIZ

XSTATQ: S

};g(}

1791

PAGE:

POWER DOWN AND UP ROUTINES

1785

1789

011304
011310
011316
011320

011324

011330

010346
010446

005002

104417

011466
104401

004737

022703

CKSWR:

1%:

005546
011434
000015

011432

CMP

#SWREG, SWR

BITB

#1,SENV

BNE

BNE
cMP
BEQ
cMP
BNE

:1S THE SOFT SWR BEING USED?

CKSWRS

:BR IF NO

CKSWRS
#7,38TKB
1%
#207,a8TKB
CKSWRS

: EXIT IF YES.
;WAS CTRL G TYPED? (7 BIT ASCID)
:BR IF YES
;WAS CTRL G TYPED? (8 BIT ASCII)
:BR IF NO

; IS IT RUNNING UNDER APT?

MOV

R2.,=(SP)

MOV

#-1,SWFLG

MOV
TYPE

#-1,R4
. SMSWR

;SET FLAG TO ALL ONES
:TYPE "‘SWR= "'

,SMNEW
PC, INCHAR
#15.R3

;OF SOFT SWITCH REGISTER
:TYPE 'NEW? **
:GET RFSPONSE
‘WAS IT A CR?

MOV
MOV

CKSWR1: CLR

CKSWR2: CNVRT

SOF TSW
CKSWR3: TYPE

CKSWR4: JSR

R3,~(SP)
R4 ,~(SP)
R2

;STORE R2

:STORE R3
;STORE R4

:SET SOFT TYPE OUT FLAG

;CLEAR NEW SWR CONTENTS

:TYPE OUT PRESENT CONTENTS

TYPE ‘1",

0049C2

IF M

08-JUN-78

CZKCGA.P1T
1818
1819
1820
1821
1822
1823
1826
1825

1826
1827
1828
18%8
18
1831
1832
1833

07:54

011334
011336
011342
011344
011350
011352
011356
011360

011362
011366
011370
011372
011374
011376
011400
011406

08~-JUN-78 07:53
001424
022703
001416
022703
001754
022703
001762
005004

042703
006302
006302
006302
050302
000752
012766
005704

1834
1835
1836
1837
1838
1839
}z?

011410
011412
011416
011422
011424
011426
011430

001002
010277
005037
012604
012603
012602
000207

}gfi%

011432

000000

1844
1845
1846
1847
1848
1849
1850
}gg;

011434
011440
011442
011446
011452
011454
011460
011464

105777
100375
017703
105777
100375
010377
042703
000207

1853
1854
1855

011466
011470

000001
006

011472

PACE 38

000176

BEQ
cMP

BEQ
CMP
BEQ
CMP
BEQ

000025

000007

CLR

177770

167622
011432

000006

4$:
5%:

6$%:

167600
167576
167572

000200

002

8IC
ASL
ASL
ASL
BIS
BR
MoV
TST

BNE
MoV

CLR
MOV
MoV
MOV
CKSWR5: RTS

SWFLG:
167604

PAGE:

POWER DOWN AND UP ROUTINES

000012

002402

5%
#12,R3
4%
#25,R3
CKSWR1
#7,R3
CKSWR4
R4

#177770,R3
R2
R2
R2
R3,R2
CKSWR4
# .START,6(SP)
R4

6%
R2,aSWR

SWFLG
(SP)+,R4
(SP)+ ,R3
(SP)+,R2
PC

INCHAR: TSTB
BPL
MOV
1STB
BPL
MGV
BIC
RTS

SOFTSW: 1
MBYIE

SWREG

asTKS
.~4
a@$TkB R3
a$TPS
.4
R3.,3$TPB
#8177 ,R3
PC

- 6,2

;BR IF YES
;WAS IT A LF?

;BR IF YES
;WAS IT CTRL U?
;BR IF YES(START OVER)
;IF CNTL G GET NEXT CHAR
;1T MUST BE A DIGIT SO CLR FLAG

JONLY 0-7 ARE LEGAL SO MASK OFF BITS
JSHIFT R2 3 TIMES

;ADD LAST DIGIT
;GET NEXT CHARACTER
;LF WAS TYPED SO GO TO START
;1S 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

00502

08-JUN-78 07:54 PAGE 39

CZKCGA.P11

08-JUN-78 07:53

POWER DOWN AND UP ROUTINES

1856
1857

1858
1859

JROUTINE USED TO "‘CYCLE'' THROUGH UP TO 16 KMC11'S
sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC

1860
1861
1862

sAND RUNS THE SPECIFIED KMC11°'S.
THIS ROUTINE sMUST+
;BE_RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
:SETUP NECESSARY.

1865
1866
1867
1868
1869
1870
1871
1872
1873

011474
011500
011502
011506
011510
011512
011514
011520
011526

005737
001004
104401
000000
000776
000241
006137
005537
062737

1875
1876
1877
1878
1879
1880
1881
1882
1883
1884

011540
011546
011550
011556
011564
011572
011574
011600
011604
011610

022737
1
012737
012737
033737
001747
013700
013702
012037
011037

001502
001504
002066
002056

012037
012037
012037
012237
012237
012700
013737
005237
013737
005237

002050
002052
002054
001324
001212
000002
002066
002070
002070
002072

1874

1885

1886
1887
1888
1889
1890
1891
1892
1893
1894
1895

1896

PAGF : oos1cJ

011532

011614

011622
011626
011632
011636
011642
011646
011652
011660
011664
011672

011676

062737

042737

013737

001470

CYCLE:

010725

1%$:

001500
001500
000004

001504

002300

001502

002100
002302
001500

001502
001504
001470

000010

177000

002072

001502

002072
002074

060037
013737
060037

1901
1902
1903
1904
1905
}?’89

011722
011730
011734
011742
011746
011754

013737
060037
013737
060037
013737
060037

002056
002060
002060
002062
002062
002064

002060

1908
1909
1910
1911

011760
011766
011770
011770

032737
001447

000002

001446

005737

000042

CMP
BNE
MOV
MoV
BIT
BEQ
MoV
MoV
MOV
MOV

#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
sGET PASS COUNT POINTER
(RO) + ,KMCSR
;LOAD SYSTEM CTRL. REG
(RO) ,KMRVEC
;LOAD VECTOR

MOV
MGV
MOV
MOV
MOV
MOV
MoV
INC
MOV
INC

(RO) +,STAT1
(RO)+,STAT2
(RO)+,STAT3
(R2)+,$PASS
(R2)+ ,SERTTL
#2 RO
KMCSR ,KMCSRH
KMCSRH
KMCSRH,KMCTL
KMCTL

ADD
MOV
ADD

RO, KMPO4
KMPO4 , KMPO6
RO, KMPO6

MOV
ADD
MOV
ADD
MOV
ADD

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

;PTY LVL
H
;TX VEC
:
;TX LVL

BIT
BEQ

#SW01,STRTSW
7%

;1S TEST NO. SELECTED
;BR IF NO

TST

ans2

JRUNNING IN AUTO MODE?

MOV

002076

002062
002064

4%:

;ARE ANY KMC11'S TO BE TESTED?
;BR IF OK.
sNO KMC11'S SELECTED!!
;STOP THE SHOW.

RUN
RUN
#4 ,MILK

BIC

002070

011704
011710
011716

002074
002074
002076

2%:

KMACTV
1%
NOACT

BR
CLC
ROL
ADC
ADD

ADD

002056

1897
1898
}%

TST
BNE
TYPE
HALT

#10, CREAM

#177000, KMRVEC

;DISQUALIFY CONT. SW.
;CLEAR PROC. CARRY BIT.
;UPDATE POINTER
:CATCH CARRY FROM RUN
sUPDATE POINTER

;UPDATE ADDRESS POINTER.

:CLEAR UNWANTED BITS

;LOAD
;LOAD
;LOAD
;LOAD
;LOAD
;SAVE

STATI
STAT
STAT
PASS COUNT
ERROR COUNT
CORE THIS WAY!

KMCTL ,KMPO4

08-JUN-78

CZKCGA.PIT
1912

07:54

08-JUN-78 07:53

011774

001044

1915
1916
1917

012004
012006
012010

007777
000001
001000

1919

012014

1921
1922

012016
012022

012700
022710

1926
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934

012026
012020
012036
012040
012046
012050
012054
012060
012066
012070
012072

001020
023760
001014
022760
001010
010037
104401
042737
000412
005720
020027

1913
1916

1918

1920
1923

1935
1936

011776
012002

104401
104415

015012

001202

012015

001

012024

PAGE 40

BNE

001313

TYPE
INPUT

}8;;

1939
1940
}&;

012106
012114
012120

012737
013701
000177

;BR IF

;CMP FIRST WORD TO 12737

.SCRLF

YES

013762

001202

000002

001202

000004

001206
007636
000002

001446

5%:

MoV
CMP

#1ST1,RO
(PC)+, (RO)

BNE
cMP
BNE
MP
BNE
MoV
TYPE
BIC
BR
TST
cMP

6%
$TSTNM,2(R0O)
6%
#STSTNM,4(RO)
6%
RO, $LPADR
.MR
#5W01,STRTSW
8%
(RO) +
RO,#TLAST+10

6%:

016400
001312
013762
002066
167062

001206

1943

$STSTAM

.BYTE

BYTE

1944
1945
1946
1947

7$:
8%:

MOV

(POY+,a(PC)+

BNE
TYPE
BR

5%
. $SQUES
4%

MOV
MOV
JMP

#TST1,SLPADR
KMCSR,R1
aSLPADR

;BR_IF NOT SAME
;DOES STSTNM MAT(H?
;BR IF NO
;IS LAST WORD OK?
;BR IF NO
;1T IS A LEGAL TEST SO DO IV

;POP RO
;AT END YET?
:BR IF NO
;YES ILLEGAL TEST NO.

:TRY AGAIN

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

sROUTINE USED TO ''AUTO SIZE'' THE KMC11
:CSR_AND VECTOR.
;NOTE:
THE CSR MAY BE ANY WHERE IN THE FLOATING
:
ADDRESS RANGE (160000:164000)

1948
}g’;g

1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967

MTSTN
1
1000

012737

001351
104401
000731

PAGE:

POWER DOWN AND UP ROUTINES

000

012076
012100
012104

;
:
012124
012124
012126
012132
012134
012140
012142
012146
012152
012156
012164
012166
012172
012200
012202
012204

000005
012702

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

002100
002300

001472
002100
001470

000001

001446

012554
000001

001306

AUTO.SIZE:
RESET
CSRMAP: MOV
1$:
CLR
cMP
BNE
CLR
MOV
CLR
BIT
BNE
JMP
MoV
INPUT
NUM
1

AND THE VECTOR MAY BE ANY WHERE IN THE
FLOATING VECTOR RANGE (300:770)

#KM.MAP ,R2
(R2) +
#KM.END ,R2
1%
KMNUM
#KM.MAP ,R2
KMACTV
#SW00,STRTSW
.+6
14 ]
#1,8TMPS

s INSURE A BUS INIT.
;LOAD MAP POINTER.
:ZERO ENTIRE MAP
sALL DONE?
:BR _IF NO
sSET OCTAL NUMBER OF KMC11'S TO 0
;R2 POINTS TO KMC MAP
sCLEAR ACTIVE
;QUESTIONS?
;BR IF YES
:1F NO SKIP QUESTIONS
;START WITH 1

00522

CZKCGA.P11

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

001302
001313

1968
1969
1970
1971

N
W nn

08-JUN-78

001472

16.
$TMP2
.BYTE
.BYTE

12%:

001306

MOV
TYPE
CONVRT
WHICH
INC

INPUT
CSR
160000
164000
$TMP3
.BYTE
.BYTE

§§c>
-

— e O

PAGE
:

POWER DOWN AND UP ROUTINES

83
£8

CEEEELEEPRrPi
P s $88388888 838282858

1981

001304

MoV

INPUT
VEC

1
$TMP2 ,KMNUM

.SCRLF

$TMP4

$TMP3, (R2) +

KMNUM = HOW MANY
sTYPE WHICH KMC

IS BEING DONE

;8$TMPS IS WHICH KMC

;STORE CSR IN MAP

776
$TMP3
.BYTE

001304

108:

013506
000024
000027
000011

170777

NS WN=O

50%:

8%:
9%:
16%:

013506
000021
000022
000116

MOV
TYPE
PRIO
JSR
CMP
BHI
cMP
BLO
MoV
ASL
DEC
BNE
BIC
8IS

$TMP3, (R2)
PC,INTTY

#24 ,R3

;STORE VECTOR IN MAP
sASK WHAT BR LEVEL

:GET RESPONSE

*BR IF LESS THAN 4
:BR IF GREATER THAN 7

;R4 = NUMBER OF SHIFTS
sSHIFT R3 LEFT

R3,(R2)
8%

sDEC SHIFT COUNT
:BR _IF NOT DONE
;BIC UNWANTED BITS
:PUT BR LEVEL IN STATUS MAP
- CONT INUE

$QUES
BR

108

sRESPONSE IS OUT OF LIMITS
:TRY AGAIN

TYPE

.4
#170777 ,R3

TYPE

MODU
JSR
CMP
BEQ
CMP
BEQ
cMP
BEQ
TYPE

012410

$QUES

PC,INTTY
#21,R3

308

#22 ,R3

318
#116,R3
32%
16%

sASK WHICH LINE UNIT
;GET REPLY
;.'1ll

:l?ll

;INOI

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

:TRY AGIAN

0053c2

08~JUN-78

CZKCGA.P1T

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

012412

052722
022222
000450
052712
052762

32%:

000004

31%:

30%:

013506

BIS
CMP
BR
BIS
BIS

TYPE
CONN
JSR

CMP

000131

000116

040000

17%:

040000

18%:
19%:

BEQ
CMP
BEQ
TYPE
$QUES
BR
BIS
BR
BIC

BYTE
MOVE
INPUT
8M
0

001304

001304
001302

33%:

013114

013206

000004

7%:

2%:

002000
000004
125252
020000
125252

010122

377
$TTMMP3
.BYTE
BYTE
MOVB
TST
DEC
BNE

17%
#116.R3
18$

#1351,R3

308
#BIT14, (R2)+
198
#BIT14, (R2)+

0
1
S$TMP3,(R2)+

0
1
STMP3,(R2)+
(R2)+
$TMP2
128

CLR

(R1)

MOV
TST

#6S , ak
(R1)

3s
6(R1)

TST

6(R1)

MOV

#81710, (R1)

MOV
BIS

#125252,6(R1)
#BIT13,(R1)

CLR

cng

000004

;SET BIT 13 IN STAT2 IF MB202
;SET BIT1 IN STAT3 FOR HIGH SPEED MICRO-CODE.
;ASK IF LOOP-BACK IS ON
.'(YiET REPLY

138
#160000,R1

BNE

000006

sSET BIT 12 IN STAT2 IF NO LU
;POP OVER STAT2 AND STAT3

PC,INTTY

JMP
MOV

BNE
CLR

000006
000006

#BIT12, (R2)+
(R2)+, (R2)+
33§
¥BIT13, (R2)
#81T1,4(R2)

0054(2

;IF NOT Y OR N TYPE ""2*'

:TRY LGAIN
s TURNAROUND IS CONNECTED

:NO TURNAROUND

INPUT
LINE

0
377
$TMP3
.BYTE

160000

PAGE:

PCWER DOWN AND UP ROUTINES

010000

020000
000002

4(R1)

5125252.4(R1)

:STORE SWITCH PAC IN MAP

sSTORE SWITCH PAC IN MAP
;POP OVER STAT3
sDEC KMC COUNT
;BR IF MORE TO DO
: CONT INUE
+SET FOR FIRST ADDRESS TO BE TESTED
sSET FOR NON-EXISTANT DEVICE TIME OUT
:CLEAR SELO
sIF KMC11 KMCSR S/B 0
sIF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KMC1
;CLEAR SEL6

;IF KMC11 THEN KMRIC S/B =0!
sBR IF NOT KMC11
;SET ROMO
sCLEAR SEL4
JWRITE THIS TO SEL6
JWRITE IT!
:WAS IT WRITTEN?
;IF NO IT IS NOT CRAM

é?;.THIS POINT

IT IS ASSUMED THAT R1 HOLDS A KMC11

22%:

R1,(R2)+

MoV

CSR ADDRESS.

sSTORE CSR IN CORE TABLE.

08-JUN-78
CZKCGA.P11

2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091

012642
012646
012652
012660
012664
012672
012676
012704
012706
012712
012714
012722

2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131

012730
012736
012740
012746
012750
012756
012764
012770
012776
013002
013010
013012
013016
013020
013026
013032
013036
013044
013050
013054
013056
013060
013064
013072
013074
013076
013102
013106
013112
013114
013120
013124
013126
013132
013136
013140
013144
013150
013152

2092

2132
2133
2134
2135

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

012724

013154
013162
013170
013174

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

052712

052762
000427
032761
001023
012761
012761
052711
012761
052711
032761
001402
052712
005722
012761
012711
156122
012761
012711
156122
005722
005011
005237
022737
001410
005011
005061
062701
022701
001225
005037
005737
001423
013701
010137
000241
006137
005237
005301
001371

012737
013737
000137
104401

001000
000004
122113
000400
021264
000400
000377

060000

158:
000006
000006
000004

000004

000002

000004

000010

000004

000100
122113
000400
021264
000400
000010

000004
000006

000004

001472
000020

000006

001472

3%:

000006
000010
164000

148:

001470

13%:

001472

001472
001476

4%:

001470
001470

000006
001470
013222
007641

208 :

000004
001474
58:

00552

MoV
CLR
MOV
BIS
MOV
BIS
CMPB
BNE
BIS
BR
8IT
BEQ

#BIT9, (R1)
4(R1)
#122113,6(R1)
#BI1T8, (R1)
#021264 ,6(R1)
#BIT8, (R1)
#377,4(R1)
.+10
#BIT12, (R2)
20%
#8IT1,4(R1)
.+16

sCLEAR LINE UNIT LOOP
:CLEAR PORT4
;LOAD INSTRUCTION (CLR DTR)
;CLOCK INSTRUCTION
;LOAD INSTRUCTION
sCLOCK INSTRUCTION
;1S IT ALL ONES?
;BR IF NO
:IF YES, NO LINE UNIT, SET STATUS BIT

BIS
BR
BIT
BNE
MOV
MOV
BIS
MoV
BIS
BIT
BEQ
BIS
TST
MOV
MoV
BIS8
MOV
MOV
BIs8
TST
CLR
INC
CMP
BEQ
CLR
CLR
ADD
cMP
BNE
CLR
TST
BEQ
MoV
MoV
CLC
ROL
INC
DEC
BNE

#BIT1,4(R2)
208
#BIT3,4(R1)
208
#BI1T6,4(R1)
#122113,6(R1)
#8178, (R1)
#021264 ,6(R1)
#BIT8,(R1)
#BIT3,4(R1)
208
#81T14, (R2)
(R2) +
#021324,6(R1)
#BIT9!BIT8,(R1)
4(R1),(R2)+
#021344,6(R1)
#BIT8!BITY,(R1)
4(R1),(R2)+
(R2)+
(R1)
KMNUM
#20,KMNUM
13%
(R1)
6(R1)
#10.R1
#164000,R1
2%
KMACTV
KMNUM
5%
KMNUM,R1
R1,SAVNUM

sSET BIT1 IN STAT3 FOR HIGH SPEED MICRO-CODE...
sCONNECTOR ON)
;1S MRDY SET
;BR IF M8201 NO CONNECTOR (ON LINE)
:LOAD PORT4
;LOAD INSTRUCTION
sCLOCK INSTRUCTION(SET DTR)
;LOAD INSTRUCTION
sCLOCK INSTRUCTION(READ MODEM REG)
;1S 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
;CLOCKTM INSTR.
sSTORE BM873 ADD IN TABLE
:POP OVER STAT3
:CLEAR ROMI
sUPDATE DEVICE COUNTER
¢ARE MAX. NO. OF DEV FOUND?
sYES DON'T LOOK FOR ANY MORE.
sCLEAR BIT 10
sCLEAR SEL 6
;UPDATE (SR POINTER ADDRESS

BIS

000006

040000
021324
001400
000004
021344
001400
000004

PAGE:

POWER DOWN AND UP ROUTINES

010000
000002

MoV
MOV
JMP
TYPE

;1S SWITCH A ONE?
:BR_IF M8201

#BIT13!BIT14,(R2) ;MB202 ASSUME CONNECTOR

KMACTV
KMACTV
R1
4%

#6, ané
KMACTV,SAVACT
VECMAP
.MERR2

;BR IF MORE ADDRESS TO CHECK.
sWERE ANY KMC11'S FOUND AT ALL?
;ERROR AUTO SIZER FOUND NO KMC11'S IN THIS SYS.

;SAVE NUMBER OF DEVICES
;GENERATE ACTIVE REGISTER OF DEVICES.
;SET THE BIT

:BR _IF MORE TO GENERATE
sRESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.
sNOTIFY OPR THAT NO KMC11°'S FOUND.

08~JUN=78

CZKCGA.P11

2136

07:54

013200

08=JUN-78 07:53

%}2?

013212

000002

2142

013214

000001

2146

013222

032737

2143 013216
002
g}zg 013220 001306

2151

013230 001114
013232 012737
013240 012737
013246 012702
013252

012700

2152 013256 012701
2153 013262 010120
2154 013264 012721
2155 013270 022021

2156
2157

2158
2159

2160

013272
013276

013300
013306

013312

020127
101771

013737
006037
103063

CLR

013102

002
000001

001446

000340
013414
002100

000022
000020

001276

013356
013360
013364
013366
013374
013376

001376
162704
001404
016437
000767
052762

013472

177776

005300

000002

2176
2177

013406
013412

062702
000735

000010

2178
2179

013404

013414
013420

2180

013426

2182
2183
2184
2185
2186

013434
013436
013440
013442
013446

051662
042762

016405

2181 013432 006305

2187
2188

2189

2190
2191

013452
013456
013460

013462

013470

006305
006305
006305
042705
050562

022626
012716
000002

012737
000207

BNE
MOV
MOV
MOV

28:

000004

000006
7%:

000002

000002
000007

013474

000002

6$:

3$:

4$:

*STOP THE SHOW
:DISABLE CONT. SW.
:ENTE"ED BY NON-EXISTANT TIME-OUT.

=2
#14$, (SP)

*RETUNN TO MAINSTREAM

2.2
#SW00, STRTSW

#302.R1
R1, (RO) +
#4.(R1)+
(ROY+, (R1)+

*PC OF IOT INSTR.
*START FILLING VECTOR AREA
‘WITH .+2; IOT
*ADD 2 TO RO +R1

MOV
ROR

KMACTV,STMPO
$TMPO

MOV
MOV
MOV
MOV
MOV
MOV
MGV

#12,R4
*R4 IS INDEX REGISTER
BRLVL(R4).PS
:SET PS TO 7
(R2) .R1
#200.4(R1)
#8179, (R1)
;SET ROMI
#121111,6(R1)
:PUT INSTRUCTION IN PORT6
#BIT9!BIT8,
(R1) :FORCE AN INTERRUPT

BNE
SuB
BEQ
MOV
BR
BIS

=2
#2.R4
6$
BRLVL(R4)
,PS
78
#5300, 2(R2)

:FOR TIME TO INTERUPT
:GET NEXT LOWEST PS LEVEL
BR IF R4 = 0
:MOVE NEXT LOWER LEVEL IN PS
:BR TO DELAY
;NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC11

ADD
BR

#10.R2
2%

*POP SOFTWARE POINTER
*KEEP GOING

BCC

IN(B

CLR

#300,R0

*STALL

(R1)

RTS

:STORE TEMPORALLY
*BRING OUT A BIT

:BR IF ALL DONE

ASL

RTI

;BR IF MORE TO FILL

(SP) ,2(R2)
#7,2(R2)

MOV

;FLOATING VECTORS START HERE.

R1,#1000
1%

BIS
BIC

cMP
MOV
000020

:MAKE DATA LIGHTS ZERO

MOV
MOV
MOV
cMP

ASL
ASL
ASL
BIC
BIS

013404

0056(2

;SET 10T TRAP PRIO TO 7
*SET IOT TRAP VECTOR
*SET SOFTWARE POINTER

MOV

170777
000002

004134

PAGE:

5%
#340,a422
#4$ 3420
#KM.MAP ,R2

P
BLOS

177776

105200

005011

BYTE
$TMPS

VECMAP: BIT

001000

2169
2170
2171
2172
2173
2174
2175

18:

000004

012704 000012
016437 013472
011201
012761 000200
012711 001000
012761 121111
012711 001400

013354

WHICH:

RTI

MOV

000302

2161 013314
2162 013320
2163 013326
2164 013330
2165 013336
2166 013342
2167 013350
2168

6$:

HALT
B8R
MOV

000300

001470
001276

POWER DOWN AND UP ROUTINES

005000

2137 013202 000000
z1§s 013204 000776
2139 013203 012716

2147
2148
2149
2150

PAGE 44

:CLEAR ROMI

BRLVL+2(R4)
,RS
R5
RS
RS
#170777.RS
RS,2(R2)

*GET VECTOR ADDRESS
:CLEAR JUNK

:GET
BR LEVEL OF KMC11

SHIFT LEVEL 4 PLACES

:TO THE LEFT FOR THE
*STATUS TABLE

;CLEAR UNWANTED BITS
*PUT BR LEVEL IN STATUS TABLE

(SP)+,(SP)+
#3%,(SP)

*POP 10T JUNK OFF STACK
“SET FOR RETURN

#$SCOPE,@#20

: RESTORE SCOPE VECTOR

*ALL DONE WITH

"AUTO SIZING

08~JUN-78

013472

000000
000000
000200
000240
000300
000340

506

105777
100375
017703
105777
100375
010377
042703
000207

—

165532

—_

540

FERERERERREY

002100
013756
000001
013760

—

e e

W' ANWNWWNN NN

&S
PN

e e

D e

e e

D e

j=lelelelelelelelelelelelelelelelalelelelelole)

013716
720

JLEVEL
:LEVEL
*LEVEL
sLEVEL
sLEVEL
*LEVEL

INTTY:

TSTB
BPL
MoV
TSTB
BPL
MOV
BIC
RTS

aszxs

:WAIT FOR DONE

a$TKB,R3
QSZPS

;PUT CHAR IN R3
sWAIT UNTIL PRINTER IS READY

3,a$TPB
#BIT7!BITS,R3

;ECHO CHAR
:MASK OFF LOWER CASE

APT.SIZE:
RESET
MoV
MoV
MoV
MOV
CLR
CLR

013754
013760

013754

O
0
4
5
6
7

PRO
PRO
PR4
PRS
PR6
PR7

165520
000240

002300

:
PAGE

BRLVL:

165526
165524

001376
001476
001346
001372
001366
001367
001374
001470
001402
002100

POWER DOWN AND UP ROUTINES

wviun
W

W NN

i=lellelelelelelelale]

—

D e

e e

CZKCGA.P11
NN NONDn

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

MOV
MOV

013756
013754
013760
001470
001474
3%:

1%:

MOV
MOV
MOvB
MCVB
MOV
MOV
MOV
MoV
CLR
P
BGT
MoV
MOV
MOvVB
ASR
ASR

BIS

ASL
ASL
ASL
ASL

BIS
MoV
TST
DEC
BEQ

ADD
ADD

*RETURN

RO,=(SP)
R1.-(SP)
R2.-(SP)
R3.-(SP)
VECTR

;:PUSH RO ON STACK
1:PUSH R1 ON STACK
*:PUSH R2 ON STACK
::PUSH R3 ON STACK
:"CLEAR THE LOCAL VARIABLE

$CDW1.RO
RO, SAVNUM
#SMAMS 1 R1

* GET THE DEVICE COUNT
: SAVE THE NO. OF DEVICES
: GET EXTRA INFO, BITS POINTER

PRIRTY

$BASE ,BASE

SVECTi,VECTR

CLEAN UP LOCAL VARIABLE

: GET BASE CSR ADDRESS

: GET THE VECTOR

SVECT1+1,PRIRTY
SDEVM_KMACTV
KMACTV,SAVACT
#$DDWO . R?
#KM.MAP ,R3
(R3)+
#KM.END .R3
3$
#KM.MAP ,R3

:
:
*
*
¢
*
*

(R1)+,1(R3)

* GET EXTRA INFO. BITS

BASE, (R$)+
(R3)
(R3)

PRIRTY, (R3)
(R3)

GET THE PRIORITY
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

* SET IT IN RIGHT POSITION.
* SET IT IN RIGHT POSITION.

* GET PRIORITY IN STAT1

* SET THEM IN RIGHT POSITION

(RS)

;

(R})

(]

(R3)

VECTR, (R3)+

(R2)+. (R3)+
(R3)+
RO
2%

#10,BASE
#10,VECTR

o
"

"
"

: GET THE VECTOR IN STAT1.

*
*
*
*

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(2

08-JUN-78

CZKCGA.P1T

07:54 PAGE 46
08-JUN=-78 07:53

013740
013742
013742
013744
013746
013750
013752
013754
013756
013760

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

;;POP STACK INTO R3
;;POP STACK INTO R2

0
0
0

;;POP STACK INTO R1
;:POP STACK INTO RO
; RETURN

00582

08-JUN-78

CZKCGA.PTT

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

:
PAGE

FREE RUNNING TESTS

JRRRAAARANNRRNNRNRAARRRARRRAN

TEST

]

A A kA

;*FREE RUNNING FLAG MODE DATA TEST

A AR AR A R®

s*TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA
s*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 THE FREE RUNNING TESTS

;*WILL RUN BY LOADING AND STARTING DZKCG
:* WITH SWITCH 7 = 1

TEST 1

AR ARt

Rttt

sttt

T2 22223222222222222%;

013762

013764
013772

014000
014004
014010
014014
014020
014022
014024
014026
014032
014036

000004
012737
012737

004737
013700
062700
012702

105022
005300
001375
005037
005037
012711

012711
105227
001375
005037
005711
100405

005237
001373
104014
000771

000001
015006

001202
001442

022474
021360
000002
021362

021306
021310
040000
100000

000000

1%:

011122

2%:

011122

#1,8TSTNM

$SKIPT
JSR
MOV

14%
PC.,LDRVRF
RCOUNT ,RO

#2 R0

BNE
CLR

108
TFLAG
RFLAG
#BIT14,(R1)
#BIT15,STAT
.+6
#BIT15,(R1)
#0
.=b
TEMP
(R1)
.+14
TEMP
1%
14

CLR
MOV
BIT
BEQ
MoV
INCB
BNE
CLR
TST
BMI
INC
BNE
ERROR

CLR

TSTB

BMI

BNE

ERROR
MoV
CLR

BI(CB
3%:

CLR
TSTB

BPL

ettt

#TST2 NEXT

ADD

MOV
CLRB
DEC

INC

000004

iRttt

SCOPE
MOV

BR
BIS

004043
011122

021430
000006
000040
011122

MOV

108:

011122

TEMP
(R1)

.+12

TEMP

14
#BASEMC,4(R1)
6(R1)

#40,(R1)
TEMP
(R1)

22322222202

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

CONTAINS BASE KMC11 ADDRESS

FIRST TEST LOAD & VERIFY.
CLEAR RECEIVER BUFFER

CLEAR 2 MORE LOCATIONS

#RBUF ,R2
(R2)+
RO

1%
#4043, (R1)

2222222

Ll
-

L4
-

.
-

L4
-

.
N

.
-

.
.

.
-

E
-

.
-

.
.

.
-

]
-

.
.

.
-

CLEAR OUT RECEIVE BUFFER
CLEAR BUFFER
DONE YET!
NO
SET TFLAG TO 0
SET RFLAG TO 0
MASTER CLEAR
CRAM?
BR IF NO
IF CRAM SET RUN
DELAY
DELAY
GET SET TO DELAY
RUN SET?

BR IF YES
INC DELAY
BR IF NOT DONE
ERROR RUN NOT SET
TRY AGAIN

BASEMC I, LU LOOP
GET SET TO DELAY

RDI SET?
BR IF YES
INC DELAY
BR IF NOT DONE
ERROR,RDI NOT SET
SET UP BASEMC ADDRESS
CLEAR COUNT
CLEAR RQI
GET SET TO DELAY
IS RDI GONE?
BR IF YES

0059C2

08-JUN-78

CZKCGA.P1

2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328

2329
2330
2331

07:54

014150
014154
014156
014162
014164
014172
014200
014202
014206
014210
014210
014214
014216
014220
014224

014230
014232
014234

PAGE 48

08-JUN-78 07:53

005237
001373
105761
100011
016137
016137
104016
000137
104014
152711
105711
100376
005061
142711

105711
100776
152711

011122

001302
001304

015006

18%:

8%:

000041

64%:

000006
000040

65%:

000044
011122

2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348

014240
014244
014246
014250
014254
014256
014260
014266
014274
014300
014304
014306
014310
014314
014316
014320
014324

005037
105711
100404
005237
001373
104014
012761
013761
142711
005037
105711
1 00004
005237
001373
104014
152711
005037

000040
011122

2351

014334

00404
005237

011122

2354
2355
2356
2357

014344
014352
014360
014

012761
013761
142711
005037

021314
021312
000040
011122

2360

014374

005237

011122

2
2364
Sggg

014404
014410
014416

005037
012737
105761

011122
000022
000002

2367

014424

005237

011122

2365

014432

005337

001276

100004

INC

000002

000004
000006

A ¥

011122

021362
021360
000040
011122

PAGE : OOéOC#

FREE RUNNING TESTS

000004
000006

5%:

011122

TEMP

3%
2(R1)

18%
4(R1),$TMP2
( R1) ,$TMP3
6
48
4

41,(R1)
R1)
64%
6(R1)
#40, (R1)
(R1)

65%

#44 ,(R1)
TEMP

(R1)
.+12

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

.+12

TEMP

14
#40, (R1)

6%:

TEMP
(R?)

412

TEMP

6%
14

000004
000006

#TBUF ,4(R1)
TCOUNT ,6(R1)

7%:

#40, (R1)
TEMP
(R1)
.+12
TEMP

001276

16%:
11%:

7%
14

TEMP
#22,8$TMPO

2(R1)

17%
TEMP
11%
$TMPO

;s INC DELAY
:BR IF NOT DONE
;1S THERE A CNTL O ERROR
:BR IF NO
;SAVE SEL4 FOR TYPEOUT
;SAVE SEL6 FOR TYPEOUT
sCNTL O ERROR
sFATAL ERROR STOP
JERROR RDI STILL SET

;ASK FOR CNTL I
;WAIT FOR RDI
;BR IF NOT SETY
;SET FULL DUPLEX
;CLEAR RQI
;RDI UP?
:BR IF YES
;REC BA/CC
;GET SET TO DELAY
;IS RDI SET?
:BR IF YES
;INC DELAY
;BR IF DELAY NOT DONE
;ERROR RDI NOT SET
:LOAD REC BA
;LOAD REC COUNT
;CLEAR RQI
;GET SET TO DELAY
sRDI GONE?
;BR IF YES
:INC DELAY
;BR IF NO DONE

sERROR RDI STILL SET
JXMIT BA/CC
;GET SET TO DELAY
sRDI SET?
:BR IF YES
. INC DELAY
;BR IF NOT DONE
;ERROR RDI NOT SET
;LOAD XMIT BUFFER

sLOAD COUNT
<CLEAR RQI

;GET SET TO DELAY
sRDI GONE?
;BR IF YES
+INC DELAY
.BR IF NOT DONE DELAY
;ERROR RD] STILL SET
sGET SET TO DELAY
sGET SET FOR LONG DELAY
;RDO SET?
;BR IF YES
s INC DELAY
sBR IF DELAY NOT DONE
;DEC DELAY COUNT

08~-JUN-78
CZKCGA.P1

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

014436
014440
014442

014450

001367
104014

016137
001001
104014

000002

001300

000004

000002

021306

Sosnoon

n NN =2

§ b3
N

v
W

— —

) wd —

—d —d ——d

elelelelelelole] =lelelele]

3 SEERIRRLES

2379

014556

17%:

12%:

177777
000001

021306
000002

021314

000004

021312

000006

000207

000002

021310
177777

:
PAGE

FREE RUNNING TESTS

13%:

BNE
ERROR
MOV
BNE
ERROR
BIT
BNE
TST

BEQ
ERROR
MOV
BITB
BEQ
ERROR
CMP
BEQ
ERROR
cMP
BEQ
ERROR
BI(B
BR
TST

BEQ
ERROR

11%
14

2(R1) ,$TMP1
.+
14

#BI1T2,2(R1)
13%
TFLAG

.+
14
#-1,TFLAG

#BIT0,2(RD)
.+4

14
#TBUF ,4(R1)

.+
14

TCOUNT,6(R1)

.+4
14
#207,2(R1)
15%
RFLAG

.+4
14
#-1 ,RFLAG

000001

021310
000002

021362

000004

#RBU
,4 (R1)
F

021360

000006

RCOUNT ,6(R1)

021360
021314
021362

001302

#81T70,2(R1)
.44
14

9%:

14
RCOUNT RO
#TBUF ,R2
#RBUF ,R3
R3, $TMP2

(R2)+,RS
(R3)+,R4

RO
9%

(R3)

000207
021310
021306
022442
014744

000002

15%:

14
#207,2(R1)
RFLAG

16%

TFLAG

16%
PC , SHUTDOWN

#25%,R0

;BR _IF NOT DONE DELAY
;ERROR RDG NOT SET

;SAVE SEL?2
;BR IF 0K

JREC OR XMIiT?
;BR IF REC
;FIRST TIME HERE?
;BR IF YES
JERROR MULTIPLE XMIT DONES
;SET TFLAG TO -1
;IS IT CONTROL O
:BR IF NO
;XMIT ERROR
JXMIT 3A CORRECT?
:BR IF YES
;XMIT BA ERROR
;COUNT 0K?
;BR IF YES
JXMIT COUNT ERROR
;CLEAR RDO AND BITS 0-2
2 CONT INUE
;FIRST TIME HERE?
;BR IF YES
;ERROR MULTIPLE REC DONES
sSET RFLAG TO -1
;IS IT CNTL O
;BR IF NO
;RECEIVE ERROR
;REC BA CORRECT?
;BR IF YES
;REC BA ERROR
s COUNT 0K?
:BR IF YES
sREC COUNT ERROR
;GET SET TO CHECK DATA

;R2 POINTS TO GOOD DATA
;R3 POINTS TO RECEIVE DATA
:SAVE ADDRESS FOR TYPEOUT

;RS = XMIT DATA
;R4 = RECEIVE DATA

;CHECK DATA

;BR IF 0K

;DATA ERROR

;DEC COUNT
;BR IF NOT DONE

;THIS SHOULD BE 0, ELSE
21T RECEIVED TO MUCH!'!
: ERROR

;CLEAR RDO AND BITS 0-2
!REC DONE?
;BR IF NO
JXMIT DONE?
:BR IF NO
;sSHUTDOWN KMC
JPOINTER TO EXPECTED SOFT COUNTS

0061(2

08~JUN-78

CZKCGA.P11

07:54

PAGE 50

08-JUN-78 07:53

2426
2427
2428

014722
014726
014732

012701
012702
122021

2430
2631
2632

014736
014740
014742

005302
001374
000421

2429

2433
2434
2435
2436
2437
2438
2439
2440
2441
2442

0147

014744
014747
014752

014754
014762
014770
014776
015004
015006
015006

021433
000010

218:
22%:

001007

000
000
000
113737
113737
113737
113737
104017

000
000
000

021433
021435
021437
021441

000
000

25%:

001300
001302
001304
001306

23%:

‘
24%:
14%:

2445

#BASEMC+3 ,R1
#10,R2
(RO)+, (R1)+

JPOINTER TO ACTUAL COUNTS
. COUNT
;COMPARE SOFT ERROR COUNTS

DEC
BNE
BR

R2
22%
24%

sDEC COUNT
;CONTINUE CHECKING IF NOT DONE
JALL COUNTS OK, GET ouT

BNE

23%

;IF ERROR BR 23%

.BYTE

0,0,0,0,0,0,0,0 ,EXPECTED ERROR COUNTS

MOVB
MOVB
MOVB
MOVB
ERROR

BASEMC+3,$TMP1
BASEMC+5,$TMP?2
BASEMC+7,$TMP3
BASEMC+11,$TMP4
17

. SCOPE

;SCOPE THIS TEST
TEST 2

A A A A AR AR A A AR AT AR

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

2449

2450

gzg;

R AN

R R A AR AR A AR A AR AR R AR AR AR NN R R R R AR R P AAARARRR AR

AR AR RR

7 - TESY &

2453

2481

MOV
MOV
CMPB

IRRARANRRNARNRARRAARAARAARAN

2446
2447
2448

2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2476
2475
2476
2477
2478
2479
2480

PAGE:

FREE RUNNING TESTS

015006
015010
015016

000004
012737
012737

015024
015030
015034
015036
015040
015044
015050
015054
015060
015062
015066
015070
015072
015074
015076
015100
015106
015110
015112
015114
015120
015124

004737
004537
021314
000044
012700
012703
005037
105761
100407
005237
001372
005303
001370
104014
000431
132761
001002
104014
000423
012705
016104
020504

015126

001404

;;ttat-t‘tnttttattttttttttttttt.antt\ntatttttttttfitttfimtttttttt\u

000002
015200

001202
001442

022030
022410
000010
000015
011122
000002

TST2:

SCOPE
MOV
MOV

$SKIPT
JSR
JSR
TBUF
44
MOV
MOV
CLR
TSTB
B8MI]
INC
BNE
DEC
BNE
ERROR
BR
BITB
BNE
ERROR
BR
VoV
MOV
CMP

18:

011122

000001

000004
000006

000002

11%:

BEQ

#2,8TSTNM
#TST3 NEXT
10%
PC ,BASELD
RS ,XFRELD
#10,R0
#15,R3
TEMP
2(R1)
.+20
TEMP
1%
R3
1%
14
108
#B8170,2(R1)
11%
14
108
#BIT2.RS
6(R1) R4
R5,R4

12§

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

.LOAD KMC BASEMC ADDRESS
;LOAD XMIT BA/CC
;BA
+CE
;RO = RETRANSMISSION COUNT
sDELAY COUNT
;CLEAR DELAY COUNTER
;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
;GET OUT
IS IT CNTL 0?
:BR IF YES
;ERROR, NOT CNTL O
2 CONT INUE
JPUT “EXPECTED'' IN RS
JPUT "FOUND'' IN R4
;1S ORUN SET?

:BR IF YES

0062(2

08-JUN-78

(ZKCGA.P1T
2482
2483
2484
2485
2486
2487
2488
2489
2690
2491
2492
2493
2494

07:54

PAGE 51

08-JUN-78 07:53

015130
015134
015136
015140
015146
015152
015154
015156
015162
015164
015172
015176

022704
001413
104015
042761
005037
005300
001337
004737
104420
042761
005037
000726

000001
000207
011122

CMP

000002

128:

000002

108:
13%:

2495

2496

13%
15
#207,2(R1)
TEMP
RO

JSR
PC,SHUTDOWN
ADVANCE

BIC
CLR
BR

#207,2(R1)
TEMP
1%

;DATA CK ERROR?

:BR IF YES
;ERROR, ORUN NOT SET
sCLEAR RDO
sRESET DELAY
;DEC RETRANS COUNT

s COUNT INUE

s SHUTDOWN KMC
;SCOPE THIS TEST
;IGNOR THIS ERROR
;RESET DELAY
s CONTINUE

JRRAKARAANRARRARARRARRRAAAAN

2497

[EST

A A

AN A A A AR AR AR AR AR

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

2498
2499

2500
2501
2502
2503
2504
2505
2506
gggg

015200
015202
015210

000004
012737
012737

%ggg

015216

104410

2511
2512
2513
2314
2515
2516
2517

015220
015224
015230
015232
015234
015240
015242

004737
004537
021362
000020
004537

2519

015250

005037

000003
015236

001202
001442

TST3:

;

022030
022356

SCOPE
MOV
MOV

MSTCLR

$SKIPT

JSR
JSR

RBUF

JSR

TBUF

000015
011122
000002

005237

011122

2528
2529

015300
015306

132761
001002

000001

104014
000411
012705
016104
020504
001401
104015
004737

ARt

sttt

Ittt

22222233

2322222%%

TEST 3

022410

015262

015310
015312
015314
015320
015324
015326
015330
015332

::ttttQt;ttttttttttttttttt*ttttttttttfittttfittttfittltttttttttttttt

2522

2530
2531
2532
2533
2534
2535
2536
2537

#1 R4

BEQ
ERROR
BIC
CLR
DEC

BNE

022442
000207
011122

PAGE :

FREE RUNNING TESTS

000020
000006

18:

MOV
CLR

TSTB

11$:

128:

PC.BASELD
RS .RFRELD

RS.XFRELD
#15.R3
TEMP

2(R1)

;R1 CONTAINS BASE KMC11 ADDRESS
*MASTER CLEAR KMC11

;LOAD KMC BASEMC ADDRESS
:LOAD RECEIVE BA/CC

:BA

*LOAD XMIT BA/CC

;BA

:CC

*DELAY COUNT
:CLEAR DELAY COUNTER

*IS RDY O SET?

.+20
TEMP
18
R3
18
14

*BR IF SET
< INC DELAY COUNTER
*BR IF NOT DONE DELAY
*DEC DELAY COUNT
*BR IF DELAY NOT DONE
*ERROR, RDY O NOT SET

BITB

#BIT0,2(R1)

<IS IT CNTL 0?

BNE
ERROR
BR

108

*GET 00T

11%
14
108

*BR IF YES
*ERROR NOT CNTL O
: CONT INUE
=

MOV
CMP

6(R1) .R%
RS,R4

*PUT 'FOUND''
IN Ré4
*1S LOST DATA SET?

ERROR

MOV

BEQ
022442

108

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

BMI
INC
BNE
DEC
BNE
ERROR

B8R

000002

#3,$TSTAM
#TST4 NEXT

JSR

#BIT4 RS

:PUT

"EXPECTED'*

12§

*BR IF YES

PC, SHUTDOWN

*SHUTDOWN KMC

IN RS

*ERROR, LOST DATA NOT SET

0063(2

08-JUN~78
(ZKCGA.P11
2538

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

015336

10%:

2541

2546

2547

;

2548

2549

570
2571
2572
2573
2574
2575
2576
2577
2578
2579
Sgg?

015336
015340
015346

000004
012737
012737

015354

104410

015356
015362
015366
015370
015372
015376
015402
015406
015410
015414

004737
004537
177320
140044
012703
005037
105761
100407
005237
001372

015416
015420
015422

015454

015426
015434
015436
015440
015442
015446
015452
015454
015456
015460
015464

000004
015464

001202
001442

TST4:

022030
022410

000015
011122
000002

1%:

011122

005303
001370
104014

000417
132761
001002
104014
000411
012705
016104
020504
001401
104015
004737

000001

000400
000006

118:

022442

SCOPE
MOV
MoV

MSTCLR
$SKIPT
JSR
JSR
177320
140044
MOV
CLR
1STB
BMI
INC
BNE
DEC
BNE
ERROR

000002

10%:

2582

R d R

wanwa e

ittt

BITB
BNE
ERROR
BR
MOV
MOV
cTMP
BEQ
ERROR
JSR
s SCOPE

AR AR AR A AN AR AR AR AR

#4 ,8TSTNM
#TSTS NEXT

AN A AN AR

et t22 222222222222

10%

PC,BASELD
RS ,XFRELD

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

108

#81T70,2(R1)
118
14
108
#BIT8.RS
6(R1) R4
R5,Ré
L+
15
PC,SHUTDOWN

AR AR AR AR AR AR R AN

AR A AR

; LOAD THE NO. OF THIS TEST
. POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;LOAD KMC BASEMC ADDRESS
;LOAD XMIT BA/CC
;BA
:CC
;DELAY COUNT
;CLEAR DELAY COUNTER
;IS RDY O SET?
:BR IF SET
- INC DELAY COUNTER
;BR IF NOT DONE DELAY
sDEC DELAY COUNT
;BR IF DELAY NOT DONE
;ERROR, RDY O NOT SET

sGET QUT

IS IT CNTL 0?
;BR IF YES
;ERROR, NOT CNTL O
2 CONT INUE
JPUT "EXPECTED'' IN RS
sPUT "FOUND'' IN R4
;1S NON-EX-MEM SET?
;BR IF YES
;ERROR NON-EX-MEM NOT SET
;SHUTDOWN KMC
;SCOPE THIS TEST

JRRAANRARERARARARANRNRARARAR

2584
2585

TEST 5

s*RECEIVE NON-EXISTENT MEMORY TEST

wunnnnnnnananentnenvnnennnnn

s*IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OuT

2586

;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS

Zggg

2589

2590

2592
2593

4§

TEST &

2583

2591

TEST

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

2545

569

;SCOPE THIS TEST

s*TRANSMIT NON-EXISTENT MEMORY TEST

2543
2544

2553
25564
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568

; SCOPE

SRRARRAA A A ARAAARAAANARNANANRRAY

2542

2550
2551
2552

PAGE:

FREE RUNNING TESTS

015464
015466

000004
012737

AR A AR

RA AR A AR AR R AR AR AR AR AR R AR R AN R R AR AR RARR R AR RARR AR

TESYT S

SRR AR AR A A AR AR R RN R AR R AR AR AR AR AR R R AR AR AR AR R AR R A NN R R AR

000005

001202

1S15:

SCOPE
MOV

#5,8TSTNM

RRRRRRRR

: LOAD THE NO. OF THIS TEST

00642

Vi(W IV IV TV 1V ) v

004737
004537

022030
022356

004537
021314
000044
012703
005037
105761

022410

100407

005237
001372
005303
001370

177320
1460044

000015
011122
000002

JSR
TBUF
G
MoV
CLR
T1STB
B8MI]
INC
BNE
DEC
BNE
ERROR
BR
BITB
BNE
ERROR
BR
MOV
MOV
cMP

1%:

011122

104014

000417
132761
001002
1064014
000411
012705
016104
020504
001401
104015

015622

MSTCLR
$SKIPT
JSR
JSR

004737

000001

000002

000400
000006

11%:

BEQ

022442

ERROR
JSR

:
108

108

PC ,BASELD

R5,RFRELD

R5,XFRELD

V-—e

—

D e
e
e e
sk e
e s
et ) e
e e

o
T R
A WA
b N AR
8103 SRR RORERNSarS
b3
wn

015572

177320
1460044

#TST6 NEXT

MOV

BOR=BO R

104410

001442

015502

015622

:
PAGE

FREE RUNNING TESTS

012737

015474

eteieiedelelelelelelelelelelelote) o

259%

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

L A

08~JUN-78

C(ZKCGA.PT

: SCOPE

;R1

. POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KMC11

.LOAD KMC BASEMC ADDRESS
;LOAD RECEIVE BA/CC
;BA
0L

;LOAD XMIT BA/CC
:BA

L5
;DELAY COUNT
.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
JERROR, RDY O NOT SET
;GET ourt
;IS IT CNTL 0O?
;BR IF YES
;ERROR, NOT CNTL O

; CONT INUE

;PUT "EXPECTED'' IN RS
;PUT "FOUND'' IN R4

;1S NON-EX-MEM SET?
:BR IF YES
sERROR NON-EX-MEM NOT SET

;SHUTDOWN KMC

;SCOPE THIS TEST

SRAARRRARANRRARRAAAAANANANAR

[EST

Attt aaat s et aatavttartastnn

:*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.

AR AR R AR AR AR AR T AR AR AR AR AR

AR R AR AR AR

AR A RAR AR

R AR

JEST &

s
.

015622
015624
015632

000004
012737
012737

015640

104410

015642
015646

004737
152711
105711
100376
142711
005037
105761

000006
015740

022030
000043

000040
011122
000002

001202
001442

1576:

12%:

13%:

SCOPE
MOV
MOov

MSTCLR
$SKIPT
JSR
BISB
T1STB

BPL
BI(B
CLR

TSTB

#6,8$TSTNM
#TST7 NEXT

10%

PC ,BASELD

#45,(R1)
(R}
s
#40, (R1)
TEMP

2(R1)

113233223223222%;

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

;2ND BASEMC REQUEST
;RDI SET?
;BR IF NO
;CLEAR RQ]
;GET SET TO DELAY
JRDO SET?

0065¢4

015672

015706

000002

14%:

000001

:
PAGE

FREE RUNNING TESTS

011122

001000
000006

— e

11%:

10%:

BMI
INC
BNE
ERROR
BR
BITB
BNE
ERROR
BR
MOV
MOV
cMP
BEQ
ERROR

;BR IF YES
s INC DELAY
;BR IF NOT DONE DELAY
sERROR, RDO NOT SET

#BIT0,2(R1)

;TRY AGAIN

:1S 1S CNTL 0?
;BR IF YES
;ERROR NOT CNTL O
; CONT INUE

;PUT "EXPECTED'' IN RS

;PUT "FOUND'' IN R4

;1S PROC ERROR SET?
:BR IF YES
;ERROR, PROC ERROR NOT SET

:SCOPE

:SCOPE THIS TEST

SRARRAAKAANARAAARRARNKAARAARY

TEST

AA kA n st

ket

:*PROCESSOR ERROR TEST
;*IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE
;*VERIFY THAT A PROCESSOR ERROR OCCURS

MRt

hkkbek ki

22222223 2222222222%

TEST F

011122

000001

001000
000006

000002

11%:

108:

ERROR
BR
BITB
BNE
ERROR
BR
MOV
MOV
CMP
BEQ
ERROR

:SCOPE

#40, (R1)
TEMP

2(R1)
.+14

70,2(RD)

&Hon

1%:

BICB
CLR
1STB
8MI
INC
BNE

BPL

000040
011122
000002

020

TSTB

#46,(R1)
(Rl)

BISB

108

PC ,BASELD

——

015772

022030
000046

#TST10,NEXT

R SArrem
P
bl
3
0

004737
152711
105711
100376
142711
005037
105761

MSTCLR
$SKIPT
JSR

#7,STSTNM

015760
015764
015770

dd eI
Il
I 2t t
2222322222322

104410

001202
001442

SCOPE
MOV
MOV

015756

000007
016056

1817:

DO~

000004
012737
012737

W+

RSttt

015740
015742
015750

-2s

2650
2651

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

o B2BER

08-JUN-78

CZKCGA.P1T

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

;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11

:LOAD KMC BASEMC ADDRESS
:RQI AND'ILLEGAL CODE
:WAIT FOR RDI
:BR_IF NO RDI
:CLEAR Ral
:CLEAR COUNTER

:RDY O SET?
:BR IF YES
:BUMP_COUNTER DELAY
:BR IF NOT DONE
:ERROR NO RDY 0

:TRY AGAIN

IS IT CNTL 0
:BR IF YES
:ERROR, NOT CNTL O
CONTINUE

:PUT "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.P11

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

PAGE :

FREE RUNNING TESTS

2706

SRRKAKKAXARAARAARNKARNKRARAAAN

2707
2708

TEST

;*HALF DUPLEX TEST

Anata ke a kA

h A kA A

kAR Ak

:*IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP

s*SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES
LR

105761
100406

005237
001372
005303
001370
000401
016156

ettt

T332
2322232332222222311

;;tttttt;*tttttttttttttttt*tttt*ttttttttttttttttt*ttttttttttt*ttt

000010
016156

001202
001442

104410

004737
004537
021362
000044
004537
021314
000044
012703
005037

TEST 10

.
000004
012737
012737

TST10:

022136
022356

022410

SCOPE
MOV
MOV

#10,$TSTNM
#TST11 _NEXT

MSTCLR

$SKIPT

PC,BASELH
RS ,RFRELD

JSR

RS5,XFRELD

MOV
CLR

#3,R3
TEMP

TBUF
44

000003
011122
000002

4%:

011122

TSTB

104014

?3;

;R1 CONTAINS BASE KMC11 ADDRESS

;LOAD BASEMC AND HALF DUPLEX
;LOAD RECEIVE BUFFER
;BA
+€C

;LOAD TRANSMIT BUFFER

;BA
F o

2(R1)

;LOAD DELAY COUNT
.CLEAR DELAY
;IS DONE SET?

?35

:BR IF DELAY NOT DONE

;ERROR DONE WITH HALF-DUPLEX

BMI
INC
BNE
DEC

5%
TEMP
4%
R3

ERROR

ggf

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

;MASTER CLEAR KMC11

10%

JSR
JSR
RBUF
44

;.
.

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

SHRRRRRRRRRARRRAAARARNRKARAR

TEST

AArAn

ekt kA kA kAR ARk x

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

A AR AR

AR AR A AR AR A AR A A AR AR AR R R R AR R

R A AR

AR AR AR R R AR

IESE W)

¢
L4

016156
016160
016166

000004
012737
012737

016174

104410

016176
016202
016206
016210

005037
005737
001003
004737

SRR

000011
016370

001202
001442

TST11:

A AR AR A

SCOPE

MoV
MOV

AR AR R AR R AR AR AR R AR AR AR AR AR AR R AR

#11,8TSTNM
#TST12 NEXT

MSTCLR

020050
020050
022030

;$SKIPT 108
CLR

15:

TST

BNE

JSR

AR AR R AR AR R

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

sR1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC11i

RE SUME

;CLR RESUME FLAG

:BR _IF SECOND

RE SUME

PC,BASELD

;FIRST OR SECOND PASS?
sBASEMC

0067¢2

08-JUN-78

CZKCGA.P11

07:54

2762
2763
2764
2765
2766
2767
2768
2769
2770

016214
016216
016222
016226
016230
016232
016236
016240
016242

2772

016252

2775

016264

PAGE 56

08-JUN-78 07:53
004737
004537

022246
022356

004537
021314
000044

022410

021362
000044

005037

005237

2785
2786

016320
016324

012702
012703
012700

2%:
3%:

000030

000002

011122
000002

4%:

011122

000207

PAGE
:

FREE RUNNING TESTS

BR
JSR
JSR
RBUF
&b
JSR
TBUF
44
MOV
MOV
CLR

PC,RESUM

R5,RFRELD

RS ,XFRELD

#2,RO
TEMP

2(R1)
.+20

TSTB

B8MI
INC
BNE
DEC
BNE
ERROR

TEMP
4%
R3
4%
14
108
#207,2(R1)
RO
48
#TBUF ,R2
#RBUF ‘R3

000002

021314
021362
000044

#44 RO

6%:

(R2)+,RS
(R3)+.R%

7%:

2794
2795
2796
2797
2798
2799
2800

016346
016352
016356
016360
016366
016370
016370

004737
005737
001004
012737
000705

022442
020050
177777

020050
8%:

10%:

; CONT INUE
;BASEMC WITH RESUME BIT
JRECEIVE BUFFER
;BA
4
JXMIT BUFFER
;BA

s CC
;DELAY COUNT
;NEED 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
sADDRESS OF GOOD DATA
;ADDRESS OF RECEIVED DATA
s COUNT
;LOAD GOOD DATA
;LOAD FOUND DATA
;COMPARE DATA
:BR IF OK
:DATA ERROR
;DONE YET?
;BR IF NOT
+SHUTDOWN KMC

*BR IF ALL DONE

MoV

*SET FLAG FOR SECOND PASS
* CONT INUE

; SCOPE

:SCOPE THIS TEST

JERARARARRRRARANRRARRAAARARENY

TEST

Aahnm ke
ek ek kA Ak k&

;*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 TO 104.
;*DATA IS A BINARY COUNT PATTERN. THE RESUME FUNCTION
;*1S CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR
s*IF IT IS PRESENT, OTHERWISE LINE UNIT LOOP IS SET.
A

A AR A AR A A

A A A AR AR AR AR AR AR AR AR R AR R AR RN R AR AR R

z.-TEST 12
B

2816
2817

016370
016372

000004
012737

000012

001202

TsT12:

A A

SCOPE
MOV

A A A

A A A AR AR AR A AR AR AR R AR AR AR AR AR AR

#12,$TSTAM

0068(2

AR AR R AR AR

R AR

: LOAD THE NO. OF THIS TEST

08~JUN-78

CZKCGA.PT1T

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

C16400

012737

003662

MOV

001442

104410

012737
013700

PAGE
:

FREE RUNNING TESTS

MSTCLR
$SKIPT

177776

#340,PS

ASR
ASR
ASR
ASR

RO
RO
RO
RO

sSHIFT RIGHT 4 TIMES

#1ISR,aKMRVEC
RO,aKMRLVL
#OISR,aKMTVEC
RO,aKMTLVL

;LOAD
;LOAD
;LOAD
;LOAD

BIC

MOV
MOV
MOV
MoV

163404

ENDEX1

. POINT TO THE START OF NEXT TEST.

;R1 CONTAINS BASE KMC11
JMASTER CLEAR KMC11

MOV

163412

#$EOP NEXT

STAT1,RO

#177437 ,R0O

ADDRESS

;LOCK OUT INTERRUPTS

sGET BR LEVEL

;PUT BR LEVEL IN RO

INPUT VECTOR
LEVEL
OUTPUT VECTOR
(EVEL

SINITIALIZE ALL BUFFER LISTS AND COUNT LISTS
021306
1%:

020110
020110

012700
013720
022700
001373
012737
012711
012711
012700
005037
012705
005025
022705

2%:

020222
021306
020240
090005
040000

3%:
021304

020050
020256

CLRTAB:

2%:

021302

4%:

5%:

004000

000005

CLR

RE SUME

MOV

000002
002050
021304

#-1.RO

;RO_IS INPUT DONE COUNTER

:CLEAR RESUME FLAG

MOV

#RDNTAB RS

cMP

#RBUFFE ,R5

:END OF BUFFER?

MOV

#XCNTAB,R4

;R4 POINTS TO XMIT COUNT LIST

cMP
BNE
CLR
CLR
TST
BPL

#XCNTAB+16,R4
4%
R2
R4
(R1)
=g

;DONE?
;BR IF NO
;R2 IS OUTPUT DONE COUNTER
;R4 IS USED AS INDEX IN OISR
;IS RUN SET?
;WAIT FOR RUN

BIT
BNE

#BIT14,STATI
.+6

;LOOP BACK CONNECTOR?
:BR_IF YES

#5,FLAG

sFIRST TIME?

CLR

BNE

020240
021306
020256

022737

BEQ
MOV

#104, TFLAG
:TFLAG CONTAINS COUNT
#XMITBA+2,RO
RO POINTS TO BA LIST
#RBUFF ,R3
*R3 CONTAINS BUFFER ADDRESS
R3, (RO)+
“LOAD BA LIST WITH REC BA
#104 ,R3
*UPDATE BUFFER ADDRESS
#XMITBA+20,R0 :END OF REC BUFFERS?
1%
*NO LOAD NEXT ONE
#TBUFF,(RO)+
-LOAD BA LIST WITH XMIT BA
#XMITBA+36,R0O -END OF XMIT BUFFERS?
28
:NO 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?
3
*BR IF NO
#5,FLAG ;LOOP COUNT
#BIT14, (R1)
:SET MASTER CLEAR
#BITIS.STAT1
:10P?
46
*BR IF NO
#B1T15.(R1)
*SET RUN ON IOP

BIT

100000
177777

000100
040000

MOV
MOV
MOV
MOV
ADD
CMP
BNE
MOV
CMP
BNE
MOV
MOV
CMP
BNE
MOV
MOV

MOV

BISB
BIS

(R5)+

TFLAG, (R4)+

#B8176,2(R1)
#BI1T11,(R1)

:GET READY TO CLEAR ALL RECEIVE

:BUFFERS

;B8R IF NO

:LOAD,XHIT CHAR COUNT

:SET IEO

sSET LINE UNIT LOOP

0069¢2

08-JUN-78

CZKCGA.P11

2874

2875

07:54

016664

052711

000143

016674

052711

000144

016712
016716

005037
022700

016672

2878
2879

016700
016704

2880
2881

2
2883
2884

001003

016666

2876

2877

PAGE 58

08~JUN-78 07:53

005037
012737

011122
000022

177776
000020

001402
000137
022702

017102
000034

016736 000137
016742 022704

017102
000034

2889

016750

000137

017102

2891
2892

016754
016760

012700
012002

020256

2894

016764

005003

016774
016776
017000
017002
017004

120504
001401
104013
005205
005203

2885

2886
2887

2888

2890

2893

2895
289

2897
2898
2899
2900
2901

2902
2903
2904
2905
2906
2907

016722
016724
016730

000402

016734

001402

016746

001402

016754

016762

016766
016772

017006
017010
017012
017016
017022
017026

021003
001366
062700
022700
001356
012700

017036

001003

2908

(17030

2910

017040

2913

017054

2909

2911
291%
2914

005337

000403
162737

017060

001242

017062
017066
017072

2919
2920

017076
017100

2918

032737

017044
017046

2915
2916
2917

005337

152711
005737
001775

000001
000001

000040
021304

000146
021304

005337

011122

2923
2926

017110
017114

000137
005337

016716
001300

2926

017122

000137

016716

22353

017130

2927

017120

017126

SCAN:

SCAN2:

8s$:
98:

5%:

001402

00140

104001

000762

6$:

021304

4$:

021306

017102

000004
104420

000002
020312

2921

2925

001300

001302

000400

017106

1$:

017074

2922

BNE

005005

010237
112204

PAGE:

FREE RUNNING TESTS

BIS

#143, (R1)

BIS

#144, (R1)

CLR
CMP

PS
#20,R0

BEQ

B8R

CLR
MOV
BEQ
JMP
C(MP

JMP
cMP

1$:

28:

ENDEX:
18:

1%:
2%:

*SET IEI.RQI,BASEMC
I

TEMP
#22,8TMP1

*SET UP FOR DELAY COUNT
*GET SET FOR DELAY

SCAN2
SCAN1
#34 ,R2

“BR IF YES
*BR IF NO
:XMIT DONE FOR ALL MESSAGES?

* CONT INUE

:SET I1EI, RQI, REC BA/CC

*ALLOW INTERRUPTS
*INPUT DONE?

*BR IF YES

SCAN1
#34 R4

“BR IF NO
*REC DONE FOR ALL MESSAGES?

SCAN1

*BR IF NO

MOV
MOV

#RDNTAB RO
(RO) +,R2

:GET FIRST REC BUFFER
*R2 POINTS TO BUFFER

CLR

*R3 = COUNT

CMPB
BEQ
ERROR
INC
INC

RS.R4
.+
13
RS
R3

<IS IT CORRECT?
*BR IF YES
:DATA ERROR
*NEXT CHARACTER
“INC COUNT

JMP
CLR

MOV
MOVB

cMP
BNE
ADD
cMP
BNE
MOV
8IT

BNE

R2,$TMP?
(R2)+,R4

*BR IF YES

*RS=EXPECTED

:SAVE ADDRESS FOR TYPEOUT
:GET RECEIVE DATA

(RO) .R3
6%
#2 RO
#RONTAB+34,R0
5%
#1,R0

:DONE YET?
*BR IF NO
*GET NEXT REC BUFFER
:DONE YET?
:BR IF NO
SSET RO TO
1

:BR TO SUB 40

#81T0,FLAG
TFLAG

;CHANGE CHAR COUNT FOR NEXT LOOP
*DEC BY ONE

BR
sus

2$
#40,TFLAG

+CONT INUE
“SUBTRACT 40 FRON XMIT COUNT

BNE

CLRTAB

GO DO IT AGAIN

DEC

BISB
ST
BEQ

FLAG

#146,(R1)
FLAG
1%

:DEC LOOP COUNT

*SHUT DOWN KMC
:HAS INTERRUPT OCCURED?
*BR IF NO

ENDEX1

*ALL OK GET OuT

DEC

TEMP

:DECREMENT DELAY COUNTER

ENDEX1: SCOPE
ENDEX2: ADVANCE

SCAN1:

:BR IF NOT

BEQ

DEC

021306

BEQ

“SCOPE THIS TEST

*BR IF ZERO

JMP
DEC

SCAN
$TMP1

:BR IF NOT DONE DELAY
*DEC DELAY COUNT

JMP

SCAN

*BR IF NOT DONE

ENDEX1

*GET ouT

BEQ

ERROR

:BR IF DONE DELAY

*ERROR HUNG

0070C2

08-JUN-78

CZKCGA.P1T

07:54

PAGE 59

08~JUN-78 07:53

PAGE : 0071(%

FREE RUNNING TESTS

a
N

000017

_;_A_a_a:_a_a
J‘NOI‘OW

N§\

N NNN NNNNNNNN
n- b b
o NN NON Vi s
n o on

SPGB
Qo
P G P G o

eiolelelelolelelelaleleleale]

s INPUT INTERRUPT SERVICE ROUTINE
I1ISR:

020050
000002

021430
010000

142711

000004
000006

000006
020050
000040

13%:
12%:

020050
000041
14%:

8%:

021430
000006

000004
7%:

000006

000010

020052
020220

1%:

000004
000006

2%:
020052
020220

000040

000004
000006

000010

RTI

CLRB
RTI
TST
BPL
MOV
CLR
BR
BNE
CLR
BR
BIT
BNE
CLC
ROL
MOV
MOV
CLC
ROR
BR

CLC

ROL
MOV
MOV

CLC

000041

000017

CMP
BEQ
TST
BEQ
BIT
BEQ
MoV
MOV
BR
CLR
CLR
BICB
TSTB
BMI
TST
BEQ
BISB

6%:

ROR

BI(CB
TSTB
8MI
INC

#17 ,RO
12%
RE SUME

8%
#81T1,(R1)
138
#BASEMC,4 (R1)
#BIT12,6(R1)
12%
6(R1)
RE SUME
#40, (R1)
(R1)

RE SUME

14%
#41,(R1)

(R1)

BEQ

BIT
BNE

:BR IF YES
;1S THIS A RESUME INTERRUPT
:BR_IF NO
;CNTL OR BASEMC?
:BR IF CNTL I
;LOAD BASEMC ADDRESS
;WITH RESUME BIT SET

: CONT INUE
sSELECT FULL DUPLEX
;CLEAR RESUME FLAG
;CLEAR RQI
;IS RLI GONE?

;BR IF NO
;BASEMC OR CNTL I?
;BR IF IT WAS CNTL I

sASK FOR CNTL 1
JRETURN

:CLEAR BSEL 0
;RETURN
RO
;FIRST TIME HERE?
7%
;LOAD BASEMC IF MINUS
#BASEMC,4 (R1)
;SET UP BASEMC ADDRESS
6(R1)
;CLEAR COUNT
3%
s CONTINUE
1%
sCNTL I FULL DUPLEX IF O
6(R1)
sSELECT FULL DUPLEX
3%
2 CONT INUE
#8173,R0
JXMIT?
2%
;BR IF YES
;CLEAR CARRY
RO
;MAKE RO EVEN
RECBA(RO) ,4(R1) ;LOAD REC BUFFER
RCNTAB(RO) ,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) sLOAD COUNT
sCLEAR CARRY
RO
;PUT IT BACK
#40, (R1)
:CLEAR RQI
(R1)
JWAIT FOR
.-2
;RDI TO GO AWAY
RO
s INC COUNT

BNE
BISB
RTI
CMP

;PROC. ERROR DONE?

#41,(R1)

#17.,R0O

#B173,R0

JIF 0 ASK FOR CNTL I

;JASK FOR CNTL I
;RETURN
DONE YET?

5%:

BISB

#40, (R1)

000046

4%:

BISB

#46,(R1)

s OUTPUT

INTERRUPT SERVICE ROUTINE

BIT
BEQ
TST
BNE
INC
cMP
BEQ
cMP
BNE
cMP
BNE
INC
MOV
BIT
BEQ
MoV
INCB
BNE
MOV
TST
BPL
MOV
BIT
BNE
BIS
BIS
RTI
MOV
MOV

#BI1T0,2(R1)

;1S THIS AN ERROR?

FLAG

*1S THIS SHUT DOWN INTERRUPT?

040000
100000

000000

177777

020050

000100
040000

000002
002050

004000
000143
000004
000006

001302
001304

017076
000004

000002

020110

000004

020111

000004

020110
000004

001302

020240

000006

000002
000016

118:

ERROR

1%:

4%:
5%:

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

CMP
BNE

118

#BIT9,6(R1)

11%
RO
#B81T14,(R1)

#BIT15,STAT1
.+14
#BIT15,(R1)
#0
.~4

#-1 _RESUME
(R1)

.-2
#8176,2(R1)
08%714.STAT1
#81711,(R1)
#143, (R1)
4(R1) ,$TMP?

?é“"“sTTMMP3
(SP)+,(SP)+

ENDEXT

#8172,2(R1)
2$
zIBUFF.k(Rl)

:SET RESUME FLAG
sRUN SET?
:BR_IF NO
:SET IEO
sLOOP BACK CONNECTOR?
:BR_IF YES
sSET LINE UNIT LOOP
sASK FOR PORT (BASEMC REQUEST)
sRETURN
;SAVE FOR ERROR TYPEOUT
:SAVE FOR ERROR TYPEOUT
sCNTL O ERROR
sADJUST STACK
:GET out
sRECEIVE?

IF YES
IS XMIT BA CORRECT?
IF 0K
zIBUFF+1.4(R1)
XMIT BA CORRECT?
YES
#TBUFF RS
XPECTED
3(R1).STMP2
OUND FOR TYPEOUT
RS
XCNTAB(RS) ,6(R1)
6%
#2 RS
#16,R5

(1]

000006

001000

9%:

#BIT9,6(R1)
108
#17,R0

;BR IF NO
*YES MAKE FLAG NON-ZERO
sSHUT DOWN BIT SET?
;YES ALL IS OK
sRESUME INTERRUPT?
:BR IF NO
;PROC. ERROR BIT SET?
:BR IF NO
;BUMP COUNTER (TO 20)
sMASTER CLEAR DEVICE
sKMC OR KMC?
:BR _IF KMC
:SET RUN ON KMC
:DELAY ON KMC

000017

FLAG

000006

m>X

021304
001000

BR IF NO

021304

OISR:

000002

RTI

000001

RTI

052711
000002
016137
016137
104016
022626
000137
032761
001053
022761

000040

PR
L
gz mn-——grfi
T
wg'flffl‘
8

012711
105227
001375
012737
005711
100376
012761
032737

;sASK FOR REC BA/CC
;RETURN
;ASK FOR XMIT BA/CC
;RETURN
.FORCE PROC. ERROR
;RETURN

017500
017504
017510
017512
017520
017522
017524
017532
017540
017542
017546
017552

#44,(R1)

RTI

T TR T L

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

BISB

TR PR

017422
017430
017432
017436
017440
017444
017452
017454
017460
017462
017470
017472
017474

000044

TR TR TR PR P

152711

000002
152711
000002
152711
000002

3022

017400
017404
017406
017412
017414
017420

:
PAGE

FREE RUNNING TESTS

VONOWVSWN-=O

S
R

2987

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

08-JUN-78
CZKCGA.PTT

0072¢2

08-JUN-78

CZKCGA.PTT

3042
3043
3044
3045
3046
3047

07:54

017679
017672
017700
017704
017712
017716

PAGE 61

08-JUN-78 07:53

104003

016162
062702
016162
062702
142761
000002

020312

022705
001367

104005

016164
062704
016164
062704

142761
000002

JXMIT COUNT ERROR

#2,R2

- INC INDEX

BICB

#207.2(R1)

;CLEAR RDO

CLRB
CLRB

(R1)
2(R1)

;CLEAR SELO
;CLEAR SELZ2

MOV
CMP
BEQ
ADD
CMP
BNE
ERROR
CLR

#2,R5
RECBA(RS) ,4(R1)
3%
#2 RS
#20 ,R5
2%+4
4
RS

;SET UP R5 AS INDEX
;COMPARE WITH LIST OF CORRECT BA'S
BR IF 0K?
*INCREMENT RS
JEND CF LIST?
:BR IF NO
;REC BA ERROR
“RS IS INDEX

BEQ
ADD
CMP
BNE
ERROR

8%
#2,R5
#16,R5
7%
5

:BR IF YES
:INCREHENT RS
JEND OF LIST?
;BR IF NOT
JREC COUNT ERROR

#2 R4

s INC INDEX

#2 R4
0207 2(R1)

s INC INDEX
:CLEAR RDO

ADD

000004

28:

000002
000020

020240

ADD

4(R1) ,XDNTAB(R2) :STORE XMIT DONE BA

000002
10%:

2
020052

ERROR

MOV

104004

005005
026561
001406
062705
022705
001367

6%:

020312

105011
105061

000002
012705

PAGE
:

FREE RUNNING TESTS

000006

3%:
7%:

000002
000016
020256

8%:

020256

RTI

CMP

#2,R2

s INC INDEX

;RcTURN
;RETURN

XCNTAB(RS) ,6(R1):CHECK FOR CORRECT REC COUNT

MOV

4(R1) ,RDNTAB(R4)

MOV

6(R1) LRDNTAB(R4): STORE REC DONE CC

ADD

ADD
BI(B

000002

6(R1) ,XDNTAB(R2) :STORE XMIT DONE CC

RTI

{

;STORE REC BA

;RETURN

;BUFFERS

RESUME: 0
RECBA:

XMITBA:

020163

JREC & XMIT BA LIST

TBUFF
:
.BYTE

01102:304'50617

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

40,41,42,43,44,45,46,47

052
055

.BYTE

50,51,52,53,54,55,56,57

002
005

3097

BLKW

; TRANSMIT DATA

0073(2

08-JUN-78

020216

.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

RCNTAB:
XCNTAB:

.BLKW
.BLKW

10
7

JRECEIVE COUNT TABLE
s TRANSMIT COUNT TABLE

RDNTAB:
XDNTAB:

.BLKW
.BLKW

16
16

sRECEIVE DONE TABLE (BA/CC)
;XMIT DONE TABLE (BA/CC)

RBUFF :

RRZRRRR

il )

b -

062
065

020220
020240
020256
020312

RBUFF1:
.BLKB
RBUFF2:
.BLKB
RBUFF3:
.BLKB
RBUFF4:
.BLKB
RBUFF5:
.BLKB
RBUFF6:
.BLKB
RBUFF7:
.BLKB
RBUFFE: 0

e ol el

NN N N N NN N

b
b
— b

104
104
104
104
104
104
104

;RECEIVER BUFFERS

;END OF RECEIVER BUFFERS

;BUFFER AREA

043105
046113
051121
054127
031462
034470

ol
o Hw
N - o0

W W NN

PAGE :

FREE RUNNING TESTS

ge==—ct ;

SVENRURLEPRVRRRENNS OBIG NN

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

N NN N N LN N NN N N NN N N NN N NN NN

=0 BB IR ARAOS

CZKCGA.P1T

000044
021430

3143

022030

FLAG:
TFLAG:
RFLAG:
TCOUNT:

0
0
O
44

RCOUNT:

.EVEN
BASEMC:

.=, +256.

TBUF :

RBUF :

LASCII/ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/

.=.446

;SUBROUTINES

022030

BASELD:

;THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS
sAND PUTS KMC INTO FULL-DUPLEX MODE

0074C2

08~JUN-78

C(ZKCGA.P11

07:54 PAGE 63
08-JUN-78 07:53
01271

040000
100000

000000

1%:

SRR

NN NN N NN NN NN NN NN W

T T
e R R e e SRR B R AR E 3y oo SR
INYIT22RER

3162

004000
000043

021430
000006
000040

2%:
000004
3%:

000041

64%:

000006
000040

65%:

BASELH:

022136
022142
022146
022152
022154
022156

022160
022164
022170
022172

012711
012711

105227

001375
005711

100376
052711
152711
105711

040000
100000
000000
1%:

004000
000043
021430
000006
000040

2%:
000004

3%:

000041
002000
000040

022244

:
PAGE

SUBROUTINES

64%:

000006
65%:

MOV
BIT
BEQ
MOV
INCB
BNE
TST
BPL
BIS
BISB

#BIT14,(R1)

#8%T15.STAT1
.+

:81T15.(R1)

#8IT11, (R1)
#43,(R1)
(R1)

TSTB
BPL
MOV

4 (RT)
#BASEMC,

TSTB

#40,(R1)
(R1)

CLR
BICB

BMI
BIS8B
TSTB
BPL
CLR
BI(B
TSTB
BMI
RTS

6(R1)

#41,(R1)
(R1)

648
6(R1)

#40, (R1)
(R1)

65%

;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
;BASEMC REQUEST
;RDY I SET?

;BR IF NO

;LOAD BASEMC ADDRESS
;CLEAR CC
;CLEAR RQI
;RDY 1 CLEAR?
;BR IF NO
;ASK FOR CNTL I
;WAIT FOR RDI
;BR IF NOT SETY
sSET FULL DUPLEX
;CLEAR RQI
;RDI UP?
;BR IF YES
;RETURN

;THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS
sAND PUTS KMC INTO HALF-DUPLEX MODE
MCV
BIT
BEQ
MOV
INCB
BNE
TST
BPL
8IS
BIS8
TSTB

BPL
MOV
CLR
BICB
TSTB
B8MI
BISB
TSTB
BPL
MOV
BICB
TSTB
BMI]
RTS

#BIT14,(R1)
lBéT15.STAT1
o

#BIT15,(R1)
#0

#BIT11,(R1)

#43,.(R1)
(R1)

#BASEMC,4(R1)
6(R1)

#40, (R1)
(R1)

#41,(R1)
(R1)

€48
#BI1T10,6(R1)
#40, (R1)
(R1)

65%

:MASTER CLEAR
: CRAM?

sBR IF NO
;IF CRAM SET RUN
;DELAY
sBR IF NOT DONE DELAY
;IS RUN SET?
:BR IF NO
;SET LU LOOP
;BASEMC REQUEST
;JRDY 1 SET?
:BR IF NO
;LOAD BASEMC ADDRESS
;CLEAR CC
;CLEAR RQI
;RDY I CLEAR?
:BR IF NO
;ASK FOR CNTL I
JWAIT FOR RDI
;BR IF NOT SETY
JSET HALF DUPLEX
;CLEAR RQI
;RDI UP?
;BR IF YES
JRETLY

0075C2

08-JUN-78

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

PAGE
:

SUBROUT INES

N
W
KKK RIRRIKKIKIKI
N
nN
ORUINY OV
WV W — o

(ZKCGA.P11

022246

022246
022252

RESUM:

01271

040000
100000

000000

1%:

004000
000043

3226

021430
010000
000040
000041

000006
000040

022352
022354

MOV
BIT
BEQ
MoV
INCB
BNE
TST
BPL
BIS

#BIT14,(R1)
#BIT15,STATI
.+6
#BIT15, (R1)
#0
.~4
(R1)
1%
#8IT11,(R1)

;MASTER CLEAR
; CRAM?
:BR IF NO
;1F CRAM SET RUN
;DELAY
;BR IF NOT DONE DELAY
;1S RUN SET?
;BR _IF NO
;SET LU LOOP

1STB

(R1)

MDY 1 SET?

#BASEMC,4(R1)
#81T12,6(R1)

:LOAD BASEMC ADDRESS
:-SET RESUME BIT

(R1)

sRDY I CLEAR?

BISB
TSTB
BPL
CLR
BICB

#41,(R1)
(R1)
649
6(R1)
#40, (R1)

sASK FOR CNTL I
;WAIT FOR RDI
;BR _IF NOT SETY
;SET FULL DUPLEX
;CLEAR Ral

BMI

65%

BISB

BPL

MOV
MOV

000004
000006

3%:
64%:

65%:

BI(CB
TSTB

B8MI

1STB

RTS

022356
022356
022362
022364
022366
022372

2%:

;THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS
;WITH RESUME BIT SET AND PUTS KMC INTO FULL=DUPLEX MODE

RFRELD:

000044

1%:

000004
000040

2%:

3265

022410
022414
022416
022420
022424
0224
022434
022436
022440

XFRELD:

000040

1%:

2%:

#40,(R1)
3%

(R1)

;BASENC REQUEST

;BR IF NO

;CLEAR ROl
:BR IF NO

;RDI UP?

;BR IF YES

RETURN

sTHIS SUBROUTINE LOADS THE KMC WITH A RECEIVE BA/CC
BISB
1STB

#44,(R1)
(R1)

MOV
MOV
8I(B

(R5)+,4(R1)
(R5)+,6(R1)
#40,(R1)

BMI

B8PL

TSTB

RTS

022410

#43,(R1)

sREC BA/CC REQUEST
sRDY I SET?

:BR IF NO

;LOAD REC BA
;LOAD REC CC
:CLEAR RQI

(R1)

:1S RDY I CLEAR

sRETURN

:BR _IF NO

;THIS SUBROUTINE LOADS THE KMC WITH A TRANSMIT BA/CC
BISB
1STB
BPL
MOV
MOV
BICB

#40,(R1)
(R1)
1%
(R5)+,4(R1)
(R5)+,6(R1)
#40,(R1)

BMI
RTS

2%
RS

TSTB

(R1)

JXMIT BA/CC REQUEST
sRDY | SEV?
:BR IF NO
;LOAD XMIT BA
sLOAD XMIT CC
;CLEAR RQI
;1S RDY I CLEAR
:BR _IF NO
sRETURN

007624

08-JUN-78

(ZKCGA.P11

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

022442

SHUTDOWN:

;THIS SUBROUTINE FORCES THE KMC

022442
022450

000207
000046

;00002
1%:

000040
000002

2%:

“BR IF NOT

TYPE

022614

BEQ

9%:

002000
040000
012702
032737
001402
012702
000207

BPL

TSTB
BPL
BICB
TSTB

011054

002000

022612

;CLEAR ANY OUTPUT DONES
:ASK FOR ILLEGAL REQUEST
*RDI SET?
:BR IF NO
*CLEAR RQI

000004
002000
000006

000004
000006
002000
022000

023650
000002
027654

002054

INC
cMP
BGT
MOV
RTS

SETMAP: MOV
BIT
BEQ
MOV

3%:

LOMAP:

THE BASEMC

#207,2(R1)
#46, (R1)
(R1)
1%
#40, (R1)

LDRVRF : MOV
BIC
CLR
JSR
3%:
CLR
MOV
MOV
MOV
MOV
INC
P
BGT
VERFY:
JSR
CLR
6%:
CLR
MOV
MOV
MP

022614

TO UPDATE

BIC
BISB

RTS

040000
140000

022614

PAGE :

SUBROUT INES

RTS

2(R1)

TABLE

*OUTPUT DONE SET?

*RETURN

#BIT14, (R1)
:MASTER CLEAR KMC-11.
#B8IT15IBIT14, (R1)
sAND SHUT IT DOWN.
RO

;CLEAR UPC POINTER.

(R1)
RO,4(R1)

:START WITH THE CLEAN WORLD.
:LOAD CRAM ADDRESS.

PC, SETMAP
(R2)+,6(R1)

:SET MICRO-CODE POINTER IN R2.

:LOAD INSTRUCTION WORD.

#81T710. (R1)
SET ROM 0.
#8IT131BIT10, (R1)
:WRITE IT...
RO

:UPDATE UPC POINTER.

#2000.R0O

*OVER FLOW?

PC.SETMAP

:SET MICRO-CODE POINTER IN R2.

RO
(R1)
RO.4(R1)

;BR IF NO.

*SET UPC POINTER.
:START WITH THE CLEAN WORLD.

:LOAD CRAM ADDRESS.

#81710, (R1)

:SET ROM O.

9%
LMLDER
RO

;BR IF GOOD
;LOADING ERROR.
;BUMP UPC POINTER.

6(R1) _(R2)+

#2000,R0

;CHECK IF RIGHT?

cIS 1T DONE?

;BR IF NO.

;RETURN.

#LOMAP R?2

;LOAD ADDRESS OF LOW SPEED.

;BR IF NO.

#BIT14,(RT)

#BIT1,STAT3
#HIMAP ,R2

JMASTER CLEAR KMC-11.

;1S IT HIGH SPEED?

;LOAD HIGH SPEED ADDRESS.

JRETURN TO CALLER.

;LOW SPEED (REMOTE) MICRO-CODE.

0077c2

08-JUN-78

(ZKCGA.P11
3313
3314

%}g

07:54

PAGE 66

08-JUN-78 07:53
027654

027654

PAGE:

SUBROUT INES
.=27654

HIMAP:

JHIGH SPEED (LOCAL) MICRO-CODE.

0078(2

08-JUN-78

CZKCGA.P11

07:54

PAGE 67

08-JUN-78 07:53

3317

051516

600

034067

200

047111

034135
034167
034210
034231
034263

200
200
020200

054105
054105
042523

034302
034304
034306
034310
034312
034314
034316
034320
034322

000003
006
001266

001272
004
001262
00000 B
006

004

034326

006

004

034332

004

002

034340

000003
006

004

034344

006

004

034350

004

002

034354
034356
034360

2
003
001274

007

034364
034 366

001272
00000 2

034362

200

040502

046513

004

.ASCIZ
.ASCIZ
.ASCI1Z
.ASC1Z
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

<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/

DH1:
DH2:

DHS:

LASCIZ
.ASCIZ
-ASCIZ
.ASCIZ
ASCIZ

<200>/EXPECTED
FOUND
ADDRESS/
<200>/EXPECTED
FOUND/
<200>/ SEL4
SEL6/
<200>/BASEMC+3 THRU BASEMC+12 /
<200>/KMC11 IS HUNG/

DT1:

DH3:

020503

DH4:
.EVEN

006

004

034374

006

002

034402

000003
003

010

034406

003

004

.BYTE

$REG2
.BYTE
$REG4
.BYTE

002

034370

EM2:
EM3:
EM4:
EMS:
EM11:
EM12:
EM13:
EM14:

004

003

PAGE
:

SUBROUTINES

DT2:

DT3:

gREGO
.BYTE
SREGS
.BYTE
$REG4

gREGZ

$REGS
.BYTE

DT4:

DT7:

4,2

6.4
6.4
4.2

6.4
6.4

.BYTE

3.7

.BYTE
3REG4

3'2

.BYTE

6.4

.BYTE

6.2

.BYTE

3.10

.BYTE
$REG4
.BYTE
gLAG

3.4

gREGé

$REGS

002

6.4

4,2

STHPZ

$REGS
DT6:

6.4

$REG4
.BYTE

$REGS

DTS:

<200>/TRANSMIT BA ERROR/

4,2

0079C2

08~JUN-78

CZKCGA.P11

07:54

034420
034422

034424
034458
0344
034432

0344
034436

034440

034442

PAGE 68

08-JUN-78 07:53

003

010

003
001272
004

004
002

000003
003

007

003

004

006

002

006

004

006

002

003

002

003

002

003

002

003

002

003

002

003

002

003

002

003

002

006

004

006

002

001274

001266

001274

034444

001272

034450
034452

001302
000002

034456

001302

034462
034464

001304
000010

034470

001300

034474

021434

034500

001302

034504

021436

034510

001304

034514

021440

034520

001306

034524
034526

021442
000002

034532

001274

034536

001272

034446

034454

034460

034466
034472

034476
034502
034506

034512

034516
034522

0345

034534

034540

000001

SUBROUT INES

.BYTE

3,10

.BYTE
$REGS
BYTE

3.4

$REGS

DT10:

4,2

$REG?2

3
.BYTE

3,7

.BYTE

3,4

.BYTE

6,2

.BYTE

6.4

$REGS
$REG4
DT11:

$TMP2
2
$TMP2

YIE - 6.2

pT12:

$TMP3
10

BYTE

3.2

.BYTE

3,2

BYTE

3,2

JiE:

3.2

.BYTE

3,2

BYIE

3.2

.BYTE

3,2

.BYTE

3,2

BYTE

6.4

BYTE

6,2

$TMP1

BASEMC
+4
$TMP2
BASEMC+6
$TMP3

BASEMC+10

STMPS

D118

BASEMC+12
2
$REGS

$REG4

CORMAX:
.END

PAGE:

0080c2

08~JUN-78

CZKCGA.P1T

ABASE = 000000
ACDW1 = 000000
ACDW2 = 000000

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

AENV =
AENWM = 000000

AUSTRT 003126
AUSWR = 000000
AUTO.S 012124
AVECT1= 000000
AVECT2= 000000
BASE
013756
BASELD 022030
BASELH 022136
BASEMC 021430
BINWRD 006406
BITO = 000001
BITO0 = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BIT04 = 000020
BITO5 = 000040
BITO6 = 000100
BIT07 = 000200
BITO8 = 000400
BITO09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4
= 000020
BITS
= 000040
BIT6 = 000100
BIT7 = 000200

BIT8

BIT9

B8M

ATESTN= 000000

AUDONE 003354
AUNIT = 000000

010665
003330

104416
034540
000015
001502
000200
010357
012126
011474
006760
104413
006746
177570
104411
003342
034135
034167
034210
034231
034263
001242

177570
034302

034452

002330
002334
002340

002344
002350
002354
002360
002364

002370
002374
002400
003244
006734
003322
ERRVEC= 200004
ERTABO 007106
= 000205
EXIT
EXITER
007042

FLAG
FLOAT
FY
HALTS
HILIM

HIMAP
HT
=

IISR
INCHAR
INIFLG

INLP1

= 001000

010625

000014
013472
004354
006404
CKSWR
011226
CKSWR1
011302
CKSWR2 011314
CKSWR3 011320
CKSWR4
011324
CKSWR5 011430
CLKX
001452
CLRTAB 016566
CNERR
011023
CNT.MA 002302
CNVRT = 104417
CONERR
010756

ERCTOS5
ERCTO6
ERCTO7
ERCT10
ERCT1
ERCT12
ERCT13
ERCT14
ERCT15
ERCT16
ERCT17
ERR
ERRMSG
ERRPC

INPUT =
INTTY
IOTVEC=
KMACTY
KMCM
KMCROO
KMCRO1
KMCROZ2

= 000400

BPTVEC=
BRLVL
BRW
CHRCNT

APT.SI 013540
ASWREG= 000000

PAGE :

SYMBOL TABLE

ENDEX?2
ERCTO0
ERCTO1
ERCTOZ
ERCTO3
ERCTO4

017100
002304
002310
002314
002320
002324

KMCRO3
KMCRO4
KMCRO5
KMCRO6
KMCRO?
KMCR10
KMCR11
KMCR12
KMCR13
KMCR14
KMCR15
KMCR16
KMCR17

KMCSR
KMCSRH
KMCTL

002072

KMS315
KMS316
KMS317

0081(2

LOBITS
LOCK
LOKFLG
LOLIM
LOMAP

MASKX
MASTEK
MCSRX
MDATA

MEML IM
MEPASS
MERRPC
MERRX

MERR2
MERR3

MILK
MLDER
MLOCK
MNEW
MODU
MPASSX
MPFAIL
MR

MRESET=
MSTCLR=

MTITLE
MTSTN
MVECX

NEXT
NOACT
NODEV
NUM
OISR
oK
ONE
PACTO0
PACTO1

PACTO2
PACTO3
PACTO4
PACTOS
PACTO6
PACTO?7
PACT10

PACTN
PACT12

PACT13 002356
PACT14
PACT1S5
002366
PACT16 002372
PACT17 002376
PARBIT= 040000
PERFOR= 004537
PFTAB
007320
PIRQ = 177772
PIRQVE= 000240
POPRO = 012600

POP1SP= 005726
POP2SP= 022626

PRIO
PRIRTY
PRO
PR1
=
PRZ
=
PR3
=
PR4
=
PR5
=
PR6
=
PR7
=
PS
=
PSW
=

010416
013760
000000
00004
000100
000140
000200
000240
000300
000340
177776
177776

PUSHRO= 010046

QV.FLG
RBUF
RBUFF
RBUFFE
RBUFF1
RBUFF2
RBUFF3
RBUFF4
RBUFF5
RBUFF6
RBUFF7

001511
021362
020346
021302
020346
020452
020556
020662
020766
021072
021176

RCNTAB
RCOUNT
RDCHR =
RDLIN =
RDNTAB

020220
021360
104402
104403
020256

RESREG
RESUM
RESUME
RESVEC=
RESO5 =
RFLAG

006762
022246
020050
000010
104407
021310

RDOCT = 104404
RECBA
020052

RFRELD

022356

000400
001000
000014

ROMCLK= 104412
RUN
001500
R6
=%000006
R7
=%000007
SAVACT 001474
SAVNUM 001476
SAVPC
001460
SAVSP
001456

021314

020110
021312
011122
021306
104414
000060
016370
000064
000034
000014
213762
016056
016156
016370
015006
015200
015336
015464
015622
015740

SAVO5 = 104406
SCAN

016716

SETMAP
SHUTDO
SOFTSW
SPACNT=
STACK =
STAT
STAT1

022614
022442
011466
006405
001200
001450
002050

SCANT
017102
SCAN2
016730
SCOP1 = 104405

STAT2
STAT3

002052
002054

STKLMT= 177774
STRTSW 001446

SV05
006074
SWFLG
011432
SWR
001240
SWREG
000176
SW0
= 000001
Sw00 = 000001
SWO01
= 000002
SW02 = 000004
SW03 = 000010
Sw04 = 000020
SWw05 = 000040
SWo6 = 000100
Sw07 = 000200
SW08 = 000400
SW09 = 001000
SW1
= 000002
SW10 = 002000
SW11
= 004000
swi2 = 010000
SWwi3 = 020000
SW14 = 040000
SW15
SW2

= 100000
= 000004

Swé

= 000020

SW3

SW5
Swé6
Sw7

= 000010

= 000040
= 000100
= 000200

TWOSYN=
TYPDAT
TYPE
=
TYPMSG
VEC

001344

177777
001313
001402
001404
001426
001430
001432
001434
001436
001440
001406
001410
001412
001414
001416

VECMAP
VECTR
VERFY

WHAT
WHERE
WHICH
WRDCNT
WRKO.F
XBX
XCNTAB
XCSR
XDNTAB

001420
001422
001424
001326
001374

XERR

XFRELD

XHEAD
XMITBA
XPASS
XSTATQ
XTSTN
XVEC

X1
X2

nmunnnn

KM. END
KM.MAP
LDRVRF
LF
=
L INE

PAGE
:

SYMBOL TABLE

KMTLVL
KMTVEC

C(ZKCGA.P11

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

08-JUN-78

000102

0082(2

08~JUN-78

CZKCGA.P11

SERFLG
SERMAX

SERROR
SERRPC
SERRTB
SERTTL
SETABL
SETEND

SFATAL
$FFLG

07:54

PAGE 72

08-JUN-78 07:53

001203
001215

$LPADR
SLPERR

006506
001216
001512
001 %12
001336
001442

$MADR1
SMADR2
$MADR3
$MADRS
SMAIL
SMAMS1

001 3%2
0051
001256

SMAMS2
SMAMS3

SFILLC
$FILLS 001255
$GDADR 001220
$GDDAT 001224
$GET42 004060
$HD
= 000000
$HIBTS 002034
$HIOCT 005716
SICNT
001204
SILLUP 007312
$INPUT
005720
$INTAG 001235
SITEMB 001214

SLF

$LFLG
. ABS.

SMAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG

$MSGTY
$MSWR
SMTYP1
$MTYP2
$MTYP3
$MTYP4
SMXCNT

001314

005135

034540

ERRORS DETECTED:
DSKZ:CZKCGA,DSKZ

SNULL

PAGE:

SYMBOL TABLE

001206
00121
001350
001354
001360
001364
001316
001346
001352
001356

001362
002036
005134
005546
001332
001334

001316
005535
(001347
001353
001357
001363
004356

= 000012
001254

SNWTST= 000000
SOVER
004330

SPASS
$PASTM
$PWRDN
$PWRMG
SPWRUP
$QUES

$RDCHR
SRDLIN
$RDOCT

RUN-TIME RATIO: 122/48=2.5
CORE USED:
46K
(91 PAGES)

001340
000000
001322
001310
001246
001244

005140
005260

$TMPO
$TMP1

001276
001300
001302

$Y
= 000000
$$GET4= 000000
.
= 034540

001250
006410
006432

001202

.DELAY
.MSTCL
.RESO5
-ROMCL
.SAVO5
.SCOP1
.START

004410

-$X

$TMP2
$TMP3
$TMP4
$TN
=
$TPB
$TPFLG
$TPS
$TRAP
$TRAPZ2
$TRP =
$TRPAD
$TSTM
$TSTNM

$SVLAD

$TYPE

$SETUP= 000000

: CZKCGA/SOL=CZKCGA.MAC, CZKCGA.P11/EQ:DZDMH

004622
004670
001330
002044

$SWREG
$SWRMK=
$TESTN
$TIMES
$TKB
$TKS

005560
000007
001260
001262
001264
001266
$SREG3
001270
$REG4
001272
$REG5
001274
$RTNAD 004102
$S
= 000014
$SAVR6 007316
$SCOPE
004134

STYPEC
$TYPEX

001324
002042
007122
007306
007174
001312

$RDSZ =
SREGAD
$REGO
SREG]1
SREGZ

000

RUN-TIME: 29 18 .7 SECONDS

$SVPC = 000040
$SWR = 164000

004316

STTYIN

001304
001306
000013
201252
001257

000021

006444

002040

005514

SUNI1
SUNITM
SUSWR
SVECT1
SVECT2
$XTSTR

.ADVAN
.BEGIN
.CNVRT
.CONVR
.DATAC

.TIMER

001342
001366
001370
004174

006054
003464
006164
006160
007442

007326
007356
006126

007374

006066

004360
002402

007506

= 002034

0083(2