Digital PDFs

AH-T977A-MC

April 1985

132 pages

Original

5.4MB

view download

OCR Version

4.5MB

view download

Document:	CZIDVA0 IDV11-D IDV11-D 5 CHA CNT DIA APR 1985 bw
Order Number:	AH-T977A-MC
Revision:	000
Pages:	132
Original Filename:	CZIDVA0__IDV11-D__IDV11-D_5_CHA_CNT_DIA__AH-T977A-MC__APR_1985_bw.pdf

OCR Text

TOVIL0 &
I10YA

llm e

i i

I
[T
i
i

B1
SEQ 0001

USER DOCUMENTATION

MACRO V05.00

Wedrnesdey 03-Oct-84 14:03

Page 2

.REM £

IDENTIFICATION
Product Code:

AC-T976A-MC

Product Neme:

CZIDVAO IDVi1-D

Product Dete:

SEP 1984

Mainteiner:

CSS Munich

Authors:

Peter Seebach

The

information

S CHA.

in this document

CNT DIAG

oubject

change without

notice end should not be conetrued es @& commitment by digital
equipment corporetion.
Digitel equipment corporetion sesumes no
responeibility for eny errors thaet mey appeer in this document.
No responsibility is sseoumed for
softwere on equipment that is not
offilioted compenies.

the uee
euwpplied

or
by

relisbility
digitel
or

of
its

COPYRIGMT (C) 1964 8Y DIGITAL EQUIPMENT CORPOR-TION
The following ere tredemerks of digital equipment corporstion:

OIGITAL
0eC

POP
OECUs

UNIBUS
DECTAPE

MASSBUS

C1
MACRO V0S.00

Wednesdey 03-Oct-84 14:03

Systea requirements

Running the diegnostic on @ FALCON,
Related documents and stenderde

Oisgnostic hiersrchy prerequisites
Execution time

VONOVRBWNFHFDO
O

Error

Performence and progress reports
Print commend utilization

Device

Opersting instructions

OWVBWNMDO

informstion

Gereral

Progrem sbstrect

Extended p-table dislogue
Clock questions
Quick ster
procedure
Using the X
o SETUP utility

Pege 3

CONTENTS

NNNRNNNNNONIN

e o o o ot oo o

TABLE OF

USER DOCUMENTATION

Commends
Switches

Flege

Herdwere questions

Softwere gquestions

informetion

information tables

Test summeries

Specificelly Selectable Test.

S¢Q 0002

D1
USER DOCUMENTATION

MACRO v05.00

General

1.0

Wednesday 03-Oct-84 14:03

SEQ 0003

Pege 4

: forration

......................

The CZIDV?? disgnostic provides @ series of tests to verify the
integrity end functionality of the IDV11-D five chennel counter.
Thies diasgnostic can be used by field service for functionesl testing,

by the engineer for design tests, end by menufecturing for
checkout end repeir.
The following specisl festures ere
The di

tic

is oot

implemented.

for field service 90 that

if the user

types "N’ to the
*
HARDUARE * end "CHANGE SOF TWARE ~
questions, an sutometic configuretion routine will be run,
finds all devices

in the address rengs 171000 to 171770,

This

prints

e list of all IAV/IDV1]1 devices found, and cerries out the
five chanegl counter test

if a counter

is found .

this festure

has speciel significance when the XXDPe+ SETUP utility
(eee section 2.9).

is used

The “PRINT” cosmend cen be used to obtein 8 list of test titles,

8 printout of the IAV/IDV1l1 configuration that the di

tic

is using, or a printout of the error stetistics sccumuleted by
the disgnostic. Help on how
to repest the sutoconfiguration cen
aleso be obtained. For more information, see section 4.0,

I? the evaluate fleg “EVL" is set, any
unit on which more than S
arrors ere detected following 8 "START” commend is dropped from
trsting.

The progrea supports up to 16 units,

all selected tests being

run on one unit before proceding to the next unit.

This diegnostic hes been written for use with the diegnostic

runtime services softwere (supervieor).
these services provide
the interfece to the operator and to the softwere environment.
this program cen be used with XXOP.,
For & completes description of the runtime services, refer to the
XXDP+ user's menual.
there is @ brief description of the

runtime services in section 2 of this document.
1.2

Systes requirements

;--Lgi . proceseor ;;;“;-;iniu of 28k of memory.
b. Console terminal with

interfece address 777560.

XXDP+

loed device (RX,RK,RL ECT.)

IDV11-D five chavnel counter module to be checked.

Test connector (2G-MOOBA-00) end voltege source (21-24V OC)

CE]
USER DOCUMENTATION

MACRO V0S.00

1.3

Wedneeday 03-Oct-84 14:03

SEQ 0004

Pege 4-1

Running the diegnostic on @ FALCON

To run the disgnostic on a FALCON besed system, @ bootstrep
progrem is needed in eddition to the above requierments.
This could be in the FALCON MACRO ODT rom (KXT11-A2),
8 MXV-11 boerd.

or on

If you have insteiled the Felcon Mecro-0DT rom KXT11-A2 for
booting the XXDP+ medie with the diegnostic on it, some of the
IAV/IDV-11 default addresees are used, preventing the
diegnostics autometic configuretion routine from working
correciiy. To use the diegnostic, the sddresses must be entered
senuelly using the stertup questions.

:
NOTE
A) Once the XXDP+ media i® booted, the console "BREAK” key should
not be preseed as it mey cause error mesesges to be printeoc.

8) I,0 P

sddresees from 160000 to 173776 are used by the

KXT:.‘;00T prom,
or
higher.

so the firet IAV/IDV11 esddress must be 174000

C) FALCON dose not support vectcrs over 374,
IAV/IDV11 vectors over 374,

1.4

Therefore you cen’'t use

Relsted documents and stenderds

XXDP+ User menuel (CHQUS)

IAV/IDV11 Option description YG-COSNC-00

1.5

Diegnostic hierarchy prerequisites

Before rumning this diagnostic, the appropriate LSI-11 CPU,
asmory end peripheral standerd diegnostics should be run to verify
correct operation of the system.
1.6

Execution time

Execution times v:a with the CPU type. The following times
ere typical on o
-11/723 ¢+ system for one unit:
quick
quick

verify
verify

= no ,execution time for 1 pess *
= yes.execution time for 1 pees =

30 sec.
9 eec.

F1
| VBER BOCUMENTATION

MACRO V05.0C

2.0

Wednesday 03-Oct-84 14:03

Pege S

Operating instruct.ons

............................

This section contains & brief description of the runtime

services. for detailed information,
menual (CHQUS).

refer to the XXDP+ user's

There sre eleven legel commands for the diagnostic runtime

services (supervisor).

this section lists the commends and

gives @ very brief description of them.
has more details.

The XXDP+ user's manusl

COMMAND

EFFECT

START
RESTART
CONTINVE

PROCEED

start the disgnostic from an initisl state
start the diegnostic without initiulizin’
continue at test thet wes interrupted (after ftc)
continue from an error halt

ADD

activate a unit for testing (all units ere

EXIT

return to XXDP+ monitor (XXDP. operstion only!)

considered to be active at stert time

DROP
PRINT

desctivete @ unit
print test titles, IAV/IDV-11 configuration,

DISPLAY
FLAGS
ZFLAGS

type @ list of ell device information
trpo the state of all flege (see section 2.3)
clesr ell flege (eee section 2.3)

error stetistice, or how to reconfigure.
(see section 4.0)

A commend cen be recognized b¥ the firet three charecters.

you mey,

for exemple, type

instead of "START”,

There are several switches which are used to le{
mrv-oor-

operstion. These switches ere appended to the lege

All of the legel ewitches ere tabulated below with o bno'

description of

esch.

is designated by

In the descriptions below,
8 decimal number

"ddddd”.

/TESTS:LIST

execute only

/PASS : D0DDO

execute doddd pesees (ddddd = 1 to 64000)

/FLAGS : FLGS

/EO0P : DDODD

/UNITS:LIST

those tests epecified

the list.
ist is @ string of test
nusbers, for example - /tests:1:5:7-10.
this liet will ceuse tests 1,5,7,3,9,10 to
be run.
all other tests will not be run.
set specified flags.
in section 2.3.

flagse sre described

report end of pess messege after every
ddddd pesses
only.
(ddddd
= 1 to 64000)

TEST/ADD/DROP onIy those units specified

61
USER DOCUMENTATION

MACRO v05.00

\Wednesday 03-Oct 84

in the

l1.st.

14:03

Page S

list exemple

—_———

/UNITS:0:5:10-12

Exemple of switch useage:

START/TESTS:1-5/PASS:1000/E0P: 100
1) tests 1

through S will be

executed, 2) all units will tested 1000 times and 3) the end of
pass messeges will be printed sfter each 100 pesses only.
A
switch con be recognized by the first three cherecters.
You mey,
for example,

type

“/TES:1-5"

instesd of

"/TESTS:1-S~,

Below is @ table that specifies which switches cen be used by
each commend.

START
RESTART

CONTINUE

PROCEED

TESTS

PASS

FLAGS

EOP

UNITS

X
X

OROP
ADO

X
X

PRIN7

DISPLAY

X
X
X

FLAGS

ZFLAGS

EXIT

Flegs are used to set up certain operetional parameters such e

looping on error.
All flegs ere clesred st stertup and rcaom
clesred until explicitly set using the flage switch.
Fl
also clesred after a stert commend unlees set using
.Y

switch. The ZFLAGS commend mey also be used to clur ell flags.
With the exception of the stert and zfleges commands,

commends affect the state of the flage;
they remain set or
cleered as specified by the lest fleg switch.
FLAG

EFFECT

HOE

halt on error - control is returned to

LOE

loop on error

IERs

IBE»

IXEs

PRI
80€E

runtime services commend mode
irhibit sll error reports

inhibit all error reporte except
first level
(first level contans
error type, number, pc, test end unit)
inhibit extended error reports (those
celled by PRINTX mecros)

direct messeges to line printer
"Bell” on error

SEQ 0006

use units 0,5,10,11,12 (unit numbers = 0-63)

The effect of this commend will be:

HT
USER DOCUMENTATION

MACRO VOS.00

Wednesday 03-Oct-84

14:03

SEQ 0007

Pege 5-2

PNT
UAM

print test number es test executes
unettended mode (no menual intervention)

IDR

inhibit progrem dropping of units (not

ISR

inhibit statistical reports (not appliceble)

required since units are only dropped if
EVL is used.
execute autodrop code
loop on test
execute evaluation ie. drop unit if more
then S errors occur after @ START or RESTARY

ADR
LO7
EVL

command.

serror messeges ere described

See the XXDP. user's manual for
specify more then one fleg with
to cause the progrem to loop on
and type & "bell” on error, you

in section 3.1

more details on flege.
You may
the flag switch.
For example,
error, inhibit error reports
mey use the following string:

/FLAGS:LOE: IER:BOE

2.4

Herdware questions

When the diegnostic is started, the runtime services will prompt
the user for herdwere informetion by typing “CHANGE MW (L) ?*
This disgnostic has been preloaded such thet

if you answer

“N”

to the question, it will sutomaticelly sesrch for up to 16
IAV/I0V11 units in the sddress renge 171000 to 171770. Defeult
vectors equel to the low 9 eddress bits will be sssumed for
sodules with sddresses over 171400,
To run the diegnostic with epecific modules which need not be

the sbove address
renge., you must anewer "Y” to the "CHANGE
" guestion. The runtime services will then sek for the

number of unites (in decimel). To keep down memory requirements,
the meximum number of units supported is 16. You will then be
ssked the following questions for esch unit:
MODE REGISTER ADODRESS (0) 171400 ?

In reply., you should enter an eddress
160000 to 177770.

in octal

in the renge

VECTOR ADORESS (0) 400 ?
PRIORITY LEVEL (FOR OUTPUT MODULES,

TYPE

“0”) (0) 4

(FOR LSI WITH FIXED PRI. USE LEVEL 4 ONLY)

The following

questions.

illustrates the response to the hardweare

In this example,

CHANGE HARDWARE (L)

? Y <cr>

the ueer response

is underlined :-

11
USER DOCUMENTATION

MACRO V0S5.00

Wednesday 03-Oct-84

14:03

SEQ 0008

Page S5 3

S®UNITS (D) ? 2 <em>

WwITO
MODE REGISTER ADDRESS (0) 171400 ? <cr>
VECTOR ADDRESS (0) 400 ? <cr>
PRIORITY LEVEL (FOR OUTPUT MODWES,

TYPE

“0") (0) 4

(FOR LSI WITH FIXED PRI. USE LEVEL 4 OMLY)

? O <cr>

-----

UNIT 1

MODE REGISTER ADORESS (0) 171000 ? 171410 <cr>
VECTOR ADDRESS (0) O ? 410 <cr>

PRIORITY LEVEL (FOR OUTPUT MODULES. TYPE RETURN) (0) O ? & <cr>
(FOR LSI WITH FIXED PRI. USE LEVEL & ONLY)

Notice that the defsult velue for the priority level ch

when 8 non-default response is given. This ies true for all
of
the hardware questions, 80 be careful when specifying multiple
units!

2.5
R

Software questions
I

After you have answered the herdware questions or after @

restart or continue commend, the runtime services will ask for
software paramsters.
These perameters govern the disgnostic
operating modes. you will be prompted by “CHANGE Sw (L) ?”. the

normal response for field service

is to type

"N“.

The next guestion to be "QUICK VERIFY MODE 2”. This is intended
for @ quick test of the module integrity before connecting wp
test equipment for full tests.

QUICK VERIFY MODE (L) N ?
If the enewer to this question i3 "Y", only one iteration of
each test will be performed. Otherwise, some testing is done
more then once. Repeatedly teeti
e piece of logic in this way
often detects feults which a single test would not. Therefore,
to fully test the hardware, the asnswer to this question should
be

"N”,

The following

questions.

illustrates the response to the softwere

The user response

is underlined:

CHANGE SOFTWARE (L) ? Y <cr>
QUICK VERIFY MODE (L) N ? <cr>

Jl
USER DOCUMENTATION

MACRO V05.00

2.6

Wednesday 03-Oct-84 14:03

SEQ 0009

Page S 4

Extended p-teble dislogue

When you enswer the hardware questions, you are building entries
in & table that describes the devices under test.
The simplest

way to build this teble is to answer sll questions for esch
unit to be tested.
I1If you ere testing seversl identical devices,

this becomes tedious since most of the snswers are the same for
each unit,

To (llustrate @ more efficient method, suppose you are testing
four IDV-11 D modules.
You cculd answer the hardware questions for each of the four units

es shown in section 2.4,

The runtime services can take multiple unit specifications
however. Let's build the same table using the multiple
specificetion feature:

CHANGE HARDMARE (L)

? Y <crm>

OUNITS (D) ? & <cr>
WwWITO
MODE REGISTER ADORESS (0) 171400 ? 171400.171410.171420,171430 <cr>

PRIORITY LEVEL (FOR OUTPUT MODWWLES,

TYPE

“0") (0) 4

(FOR LSI WITH FIXED PRI. USE LEVEL 4 ONLY)

you can see

? <cr>

----

in the above dislogue, the runtime services will

bu‘{d a8 many entries es it can with the informetion given in

any one pess through the questions. In this example, the 4 IDV11-0
modules ot addresees 174000, 174010, 174020 end 174030 ere set
up with vectors 400,410,420 and 430.

All have priority levsl 4

2.7 Clock questions

If there is no line time clock on the system, the user is ssked
to type 2 cheracters 6 seconds spert on the console. This should
be done es accurately
es p-esible since the interval is used by
the disgnostic to celculate velues for device timeouts.

2.8 Quick stert-up procedure

(XXDP+)

To stert-up this progrem:

1. Boot XXDP.
2.

Give the dete and snswer XXDP

+ questions

I<1
USER DOCUMENTATION

MACRO V05.00

Wednesday 03-Oct-84 14:03

Type "R ZIDV??".

Type

SEQ 0010

Page 5-5

( Normally the revision and patch

level are typed insted of the
question marks. The form shown
here ceauses the latest version to
be run, )

"START"

S. For standerd configuretions using eddresses 171400 to

171770 anewer the "CHANGE HW" question with "N, To test
specific devices or those at non-stenderd eddresses answer
“Y" and snower all of the hardwere questions.

Answer “he "CHANGE SW” question with "N”

{ou followm this procedure you will be using only the
defaults for flegs and software parameters.
These defeults
ere described in sections 2.3 and 2.5.
2.9 Using the XXDOP+ SETUP utility
To ensble the disgnostic to sutometicelly esteblish the IXVil

configuretion in the field, the hardwere
p tasble is preset for
16 units, each with & mode sddress of 0. If the XXDP+ SETUP
utility is used to pnoot the p teble for s perticuler
conhr.rotuon. the disgnostic will not eutometically
establish the configuration et stertuwp. In this cese, the
disgnostic can be mede to do sutomatic configuretion by
anewering the hardware questions to give 16 units with mode
eddresses of 0.
EG. CHANGE MARDMARE (L) ? ¥ <cr>

OUNITS (D) ? 16 <cr>
wITo
MODE REGISTER ADDRESS (0) O ? 0.0.0.0.0,0,0.0.0,0,0,0.0.0.0.0 <cr>

......

PRIORITY LEVEL (FOR OUTPUT MODWES,

(FOR LSI WITH FIXED PRI.

TYPE

“0”) (0) 4

USE LEVEL 4 ONLY)

? 0 <cr>

-----

L1
USER DOCUMENTATION

MACRO V0S5.00

3.0 Error

Wednesdsy 03-Oct 84 14:03

SEQ 0011

Page 6

information

There are three levels of error messages that mey be

issued by @

diegnostic : general, besic and extended.
General error
messeges ore alweys printed unless the "IER" fleg is set
(section 2.3). The generel error message is of the form :
NAME
TYPE
NUMBER
ERROR MESSAGE
where

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

NAME = disgnostic name
TYPE = grror type (SYS FATAL, DEV FATAL, HARD or SOFT)
NUMBER = error number
UNIT NMBER = 0 - N (N is lest unit in ptable)
TST NMBER = test and subtest where error occurred
PC: XXXXXX =

address of error messege call

Besic error messages ere

that contein some edditionel

informetion about the error,
ere olugo printed unless
the "IER” or "IBR” flags sre set (section 2.3).
These messages
ere printed after the sssocisted general message.

Extended error

contein supplementery error

informetion

such ss
ister contents or
mxood/bod deta.
These ere alweys
printed unless the “IER”, "“IBR” or "IXR” flege ere set (section
2.3). Theeoe mevsages sre printed efter the sesociated general
error mesesage and any 8esociated besic error messsges.
3.2 Specific error messages
All epecific error mes

descriptions

in gsection

s are explained with the test

6.0.

M1
MACRO V05.00

Wednesday 03-Oct-84 14:03

Page 7

4.0 Performance end progress reports

At the end of each pess, the pess count is given slong with the
total number of errors reported since the di
tic wes sterted.
The "EOP” switch can be used to control how often the end

of poes messege is printed.

Section 2.2 describes switches.

4.1 Print commend utilizetion
.............................

The “PRINT” commend cen be used to find out how meny errors heve

occurred on each unit since the diegnostic wee sterted.

In eddition, the commend cen be uesed to display the
configuration thet the disgnostic is currently using, to print e
list of test titles, or to show how to meke the di
tic
reestablish the configuration.. The following examples show how
the print commend can be '19ed. User input is underlined :

<cr>

TYPE T,R,C,S OR HELP (S) H ?

<cm>

THE FOLLOWING COMMANDS ARE ACCEPTED
T

- PRINT TEST TITLES

R - PRINT HOM TO REESTABLISH THE SYSTEM CONFIGURATION

C - PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC
S - PRINT STATISTICS TVABLE

TYPE T,R,C.S OR MELP (S) W ?

If you tgpc *H*, "HELP”" or any cherecter other then *“T", "R",
“C* or *S*, the routine prints the sbove help message listing
the acceptsble commends.

TEST TITLES.
e
S
COVBNONEUNE

USER DOCUMENTATION

RESET TEST

R-W BIT TEST
A 9513 SUBREGISTER TEST

INTERRUPT TEST
REFERENCE FREQUENCY TEST
SIGNAL GEMERATION ON COUNTER INPUT
EXTERNAL LOOPBACK, NOT ISULATED
EXTERNAL LOOPBACK, ISOLATED
UP/DOMN COUNTING APPLICATION TEST
VISUAL LED TEST

SPECIFICALLY SELECTABLE

SEQ 0012

N1
MACRO v05.00

USER DOCUMENTATION

Wednesday 03-Oct-84 14:03

Page

7-1

<crm>

DR> PRINT

TYPETRCSM'(LP(S)T’S‘CN

IOV/IAV11 MOOULE STATISTICS.
UNIT
0

ERRORS

DROPPED

YES
NO

6
UNTESTED

1
2

Here, unit O has shown no feults, unit 1 has hed 6 errors and
been dropped from testing, end unit 2 hes not yet been tested.
Unit 2 is shown as not dropped. 1If the disgnostic had not yet
been stertud, the unit would stil] not be shown ss dropped
(unlike the display commend).

DR> PRINT <cr>
-

----

IOV/IAV1) MOMMLE CONFIGURATION.

MLV
O

UNIT

ADDRESS

VECTOR ID/MOOE
ASSUMED

MODWLE
TYPE

171000

NONE

0607000

DOIG. OUT

1007000
3207000

AN.
IN
CANNOT
TESTED WITH THIS DIAG
sse CANNOT BE TESTED WITH THIS DIAG sss

171410
171010

410
NONE

0307002
2607000

171710

NONE

UNKNOWN

171420
171700
171400

420
NONE
400

3007000

OIG.
AN.

IN
OUT

COMMEND
CANNOT

CANNOT
CANNOT

TESTED WITH THIS DIAG
TESTED WITH THIS DIAG

TESTED WITH THIS DIAG

UNKNOWN

FIVE CHA. CONT

The third column is labeled "VECTOR ASSUMED” for the following
ressons. If the dnwtoc ie confi
sutometicelly by
answering “NO” to the “CHANGE
* QUESTION, davices with
sddresses lower then 171400 sre sssumed to have no vector. Above

this addrees, the vector is sssumed to be the same as the low 9
bits of the eddress. if the hardware questions were answered,
the vector is printed as it was typed, except t!est zero vectors
are printed as “NONE"“.
The sbove example is selected to illustrate the different
features of the configuration printout.

................................................................

If addressing the unit under test ceuses 8 bus t i meout, then
"UNKNOWN" is printed for the ID/MODE end MODWRE TYPE. This is

shown for unit S.
wes

This would normally only occur

ncorrectly typed

in the hardwere quest ons.

.f the asddress

B2
USER DOCUMENTATION

MACRO v0S5.00

Wednesdey 03-Oct-84 14:03

SEQ 0014

Pege 7-2

DR> PRINT <cr>

To reestablish the system configuretion,

answer the

hardwere guastion typing "0” es the mode addreess for 16 units.
eQ. mode register eddress (0) 0 2 O,,..00vvevvnves
.................

Typing

"R" gives you

informetion on how to reestablish

the

system configuretion. This is necesnery if the H/W questions
have been answered or the herdwere iteelf hee been changed and
you want to find out what is in the system without rebooting the
diegnostic.

C )
C

USER DOCUMENTATION

MACRO V05.00

5.0 Device

Wedrnesdey 03-Oct-84

14:03

Page 8

information tables

The hardware p tables contain 3 worde for eech device. These are
ueed tO seve the anewers to the stertup hardwere questions, snd

cen be displeyed on the console by using either the "DISPLAY"

commend dto:nlnd in section 2.1 or the "PRINT" cosmmend described
in section

The hardwere p tadble

ie set up for field service for 16 units,

each with a mode addvress of 0. If the user t‘no "NO” to the
*CHANGE HMARDMARE* end "CHANGE SOF TWARE” gmestione, an sutometic
configuretion routine will be run. This finds sll devices in the
sddress renge 171000 to 171770, prints @ list of ell IXvVil
devices found, and cerries out the IDV11-D teste if & counter wes
found.

reseing

The herdwere table set wWp by the configuretion routine

in effect until chenged by the haerdwere questions, even

if the herduare configuretion

iteelf

is altered.

Using the XXDPe« SETUP utility, the tebies cen be preloeded to
contein informstion for epecific systems. Mowever, speciesl cere
sust be taken if it is desired to restore the self configuring
feature of the disgnostic. See section 2.9,

SEQ 0015

De
USER DOCUMENTATION

MACRO VO0S.00
6.0 Test

Wednesdey 03-Oct-84 14:03

SEQ 0016

Pege 9

summar ‘es

.......................

This test checks thet accessing the device MODE,
INR registers does not cause o8 NXM trep.

CSR,

CCR endg

The following error mey be printed :
Error 101

This could mean that the device sddress switch e
incorrectly set, thet the address wee entered incorrectly in
the stertup o . retions, or that the device does not respond.

Test 2

- Reset Test.

This test checks that the device MOD AND INR registers are

correctly

In the

set or reset after o bus reset.

NOTE: The CSR and the CCR
register can not be clesred by
90 they will not tested in this test.

Error 201

LED BIT IN MOD REGISTER NOT CLEARED AFTER BUS RESET

Error 202

LED BIT IN MOD REGISTER CAN'T BE SET

Error 203

Test 3

init

ADDRESS
: AMMAAA, GOOO
: GGGGGG, BAD:B888888

- Register R/W Bit Test.

This test checks that the resd/write bite of each register cen

eoll be set,

8ll clesred and individuelly eet.

the following errors mey be printed

Error 301

Error 302

Error 303

: REGISTER READ/WRITE BITS COULD NOT BE INDIVIDUALLY SET
ADORESS
: AAMMAAA, GOOD:GGGGGG, BAD:B8BB88BB, R/W BITS:RRRRRR

TEST 4

ADDRESS
s AMAAAA , GOOD
s GGGGGG, BAD:B0B888, R/W BITS:RRRRRR

AM 9513 SUBREGISTER TEST

FIVE CHANNEL

COUNTER

E2
USER DOCUMENTATION

MACRO V05.00

Wednesdey 03-Oct-84 14:03

SEQ 0017

Page 9-1

.....................................................

THIS IS THE FIRSTY TEST TO REFERENCE THE AM9I513

SUBREGISTERS.

FOR ALL FIVE CHANNELS IT TESTS

THAT IN TOGGLE MOOE THE OUTPUT CAN BE SET AND CI.EARED.

IT THEN TESTS THAT THE LOAD AND HOLD REGISTERS
CAN BE LOADED AND READ OUT.
ERROR 401,

ERROR - UNABLE TO CLEAR 'OUT'

403

IN TOGGLE A 'CLEAR TOUT'

BIT

CHA,:

COMMAND WAS LOADED.

THE STATE WAS READ BACK AS SET.

ERROR 402

ERROR - UNABLE TO SET

'OUT'

BIT

A 'SET TOUT' COMMAND WAS LOADED,
WAS READ BACK AS CLEAREC.

ERROR 404

CHA,.:

AND THE STATE

ERROR WRITING TO LOAD REGISTER OF CHA.:
WRITTEN:

XXXXXX,

READ:

XXXXXX

THE LOAD REGISTER WAS LOADED WITH THE SPECIFIED
VALUE, BUT ANOTHER VALUE WAS READ BACK.

ERROR 405

ERROR WRITING TO HOLDO REGISTER OF CHA.:
WRITTEN: XXXXXX,
READ: XXXXXX

THE HOLD REGISTER WAS LOADED WITH THE SPECIFIED
VALUE, BUT ANOTHER VALUE MAS READ BACK.

TEST S -

INTERRUPT TEST

- FIVE CHANNEL COUNTER
A

THIS TEST CHECKS THAT THE INTERNAL INTERRUPT LOGIC IS ABLE
TO CAUSE AN INTENRUPT USING THE VECTOR AND THE PRIORITY LEVEL
SELECTED IN THE START UP QUESTION.
AT FIRST ME SELECT TOUT TOGGEL MODE FOR THE FIRST CHANNEL
.
THEN ME CLEAR TOUT AND SET THE INTERRUPT ENABALE BIT FOR
THE SELECTED CHANMNEL
.

NOW WE TEST THAT THE 'SET TOUT'

COMMAND WILL SET THE INTERRUPT

REQUEST BIT IN THE INTERRUPT REGISTER.
AFTER THAT WE SET THE MASTER ENABLE BIT TO LOOK THAT THE
INTERRUPT WILL ALSO CAUSE AN INTERRUPT FOR THE
SELECTED CHAMNEL AND AT THE CORRECT PRIORITY LEVEL.
NOM WE CHECKX THAT THE INTERRUPT HAS CLEARED THE MASTER ENABLE BIT.
THE SEQUENCE ABOVE IS REPEATED FOR ALL CHANNELS.

ERROR 501,502

ERROR - INR REGISTER INCORRECT AFTER LOAD 'CLEAR TOUT'

ERROR 503

ERROR - IR BIT IN THE INR REGISTER NOT RESETED AFTER B8IT CLEAR

GOOD s NNNNNN

GOOOD : NNNNNN

BAD 1 NNNNNN

BAD : NNNNNN

COMMAND

Fo
MACRO v05.00

USER DOCUMENTATION

ERROR $04,505

Wednesday 03-Oct-84 14:03

Page 9 2

ERROR - UNEXPECTED INTERRUPT DETECTED
AN INTERRUPT WAS DETECTED BEFORE ALL CONDITIONS

REQUIRED FOR AN INTERRUPT WERE SATISFIED.
ERROR 506

ERROR - EXPECTING ONE INTERRUPT, ENCOUNTEREC :XXxX
A *'SET TOUT'

COMMAND WAS LOADED TO PRODUCE ONE

INTERRUPT, HOMEVER, THEN INDICATED NUMBER WAS
DETECTED.
ERROR S07

ERROR

ERROR - BAD INTERRUPT VECTOR DETEC1CO
SET UP VECTOR :NNN

FOUND VECTOR:NNN

S08

ERROR - INTERRUPT DID NOT OCCURED AT THE CORRECT PRIORITY LEVEL

509

ERROR - MASTER CLEAR BIT IN INR REGISTER NOT RESETED AFTER INTERRUPTY

SET UP:NNN

FOUND
: NNN

INR CONTENS IS

: NNNNNN

AM 9513 REFERENCE FREQUENCY TEST

- FIVE CHANNEL COUNTER

THIS IS A TEST OF THE REFERENCE FREQUENCY.
THE SMMZ FREQUENCY IS SELECTED AND THE LOAD

ALL FIVE COUNTERS

ARE LOADED AND ARMED FOR THE DURATION OF THREE

NOP INSTRUCTIONS.

A TEST IS MADE THAT ALL COUNTERS

HAVE A VALUE OIFFERENT THAT 10000 AND THAT THE

2W BETWEEN ALL FIVE COUNTERS IS NOT GREATER

ERROR 601

UNEXPECTED DIFFERENCE BETWEEN COUNTER
SHOULD NOT BE GREATER THAN 2

COUNT DOWN FROM 10,000 AT S MHZ FOR 3 NOP INSTRUCTIONS

COUNTER
COUNTER
COUNTER
COUNTER
COUNTER

TEST

1
2
3
4
S

VALUE:
VALUE:
VALUE:
VALUE:
VALUE:

XXXXXX
XXXXXX
XXXXXX
XXXXXX
XXXXXX

SIGNAL GENERATION ON COUNTER INPUT

- FIVE CHANNEL COUNTER

THIS IS A TEST OF SIGNAL GENERATION ON TIMER 1NPUT.
THE INTERNAL LOOPBACK MODE IS SELECTED AND THE OUTPUT
FROM CHANNEL N-1 IS USED AS INPUT TO THE COUNTER.
THE COUNTER IS ALLOMED TO RUN FOR FIVE NOP INSTRUCTIONS.
A TEST

IS THEN MADE

THAT

THE COUNTER INCREMENTED.

SEQ 0018

_G}_

MACRO V05.00

USER DOCUMENTATION

Wednesday 03-Oct-84 14:03

Pege 9-3

THIS IS REPEATED FOR ALL FIVE COUNTER.

ERORO 701

COUNTRE X DID NOT INXCREMENT
THE COUNTER SHOULD HAVE INCREMENTED AWAY FROM ZERC.

TEST 8

- EXTERNAL LOOPBACK,

NOT ISOLATED

THIS IS A TEST OF EXTERNAL LOOPBACK, NOT ISOLATED.
THE FREQUENCY OUTPUT CONTROL REGISTER AND THE

SMHZ LOOPBACK FREQUENCY ARE SELECTED.

THE SOURCE

AND GATE OUTPUTS ARE THEN USED AS INPUT TO THE

COUNTER.
THE COUNTER IS ALLOWED TO RUN FOR THREE
NOP INSTRUCTIONS, AND A TEST IS AADE THAT THE COUNTER
INCREMENTED.
THIS IS REPEATED FOR ALL FIVE COUNTERS.
ERROR 801,

802

COUNTER X DID NOT INCREMENT, SOURCE X

ENSURE THAT TEST CONNECTOR IS INSTALLED

COUNTER
X DID NOT INCREMENT, GATE
X

ENSURE THAT TEST CONNECTOR IS INSTALLED
THE COUNTER SHOULD HMAVE INCREMENTED AWAY FROM ZERO.
THE INPUT WAS EITHER A SOURCE OR A GATE SIGNAL.

TEST 9 - EXTERNAL LOOPBACK,

ISOLATED

THIS IS A TEST OF EXTERNAL LOOPBACK, ISOLATED.
THE FREQUENCY OUTPUT FOUT IS SWITCHED OFF THEN

COUNTER 1 IS SET UP FOR 100 KHZ SIGNAL GENERATION ON
OUT1. OUT1 IS LOOPBACK TO SOURCE 1.2 OF COUNTER
2
TEMN THE COUNTER IS ALLOMED TO RUN FOR IOOPASSESG'A
THREE NOP LOOP.
A TEST IS THEN MADE THAT THE COUNTER INCREMENTED.
THIS SEQUENCE ABOVE 1S REPEATED WITH ALL COUNTERS.

COUNTER 2 IS USED FOR SIGNAL GENERATION AND OUT2
IS LOOPBACK TO SOURCE 3+4 OF COUNTER 3.
COUNTER 3 IS USED FOR SIGNAL GENERATION AND OUT3

IS LOOPBACK TO SOURCE
5 + GATE 1.
E.T.C.

THE LOOPBACK SIGNAL FREQUENCY IS APPOXIMATLY

ERROR 901,

902

100 kMz.

COUNTER X DID NOT INCREMENT, SOURCE X
ENSURE THAT TEST CONNECTOR IS INSTALLED

COUNTER X DID NOT INCREMENT, GATE X

ENSURE THAT TEST CONNECTOR IS INSTALLED
THE COUNTER SHOULD HAVE INCREMENTED AWAY FROM ZERO.
THE INPUT WAS EITHER A SOURCE OR A GATE SIGNAL.

SEQ 0019

He
USER DOCUMENTATION

MACRO v0S5.00

Wednesdey 03-Oct-84 14:03

THIS IS AN UP/DOWN APPLICATION TEST.

SEQ 0020

Pege 9-4

TMIS TEST

USES THE OUTPUTS FROM TOUT N= 3 AND 4 AS INPUT TO
COUNTERS 1 AND 2.
WHEN TOUT Ne4 SETS AND TOUT Ne3
IS SET, THEN COUNTER 1 SHOULD INCREMENT.,
THE
SIGNAL TOUT N=3 SETS WMILE TOUT Ne4 IS RESET,
AND COUNTER 2 SHOULD NOT INCREMENT.

THIS

SYNCHRONOUS SETTING AND CLEARING OF TOUT N=3 AND 4,°
OUT OF PHASE BY 90 DEGREES, IS REPEATED
10000 TIMES.
AFTER THIS LOOP COUNTER 1 MUST

HAVE A VALUE OF 10000 AND COUNTER 2 MUST HAVE

A VALUE OF ZERO.
THE SAME LOOP IS THEN PERFORMED
WITH TOUT N=3,4 OUT OF PHASE BY 90 DEGREES IN

THE OTHER DIRECTION.
FOR THIS TEST COUNTER 2
MUST HAVE A VALUE OF 10000 AND COUNTER 1 MUST
CONTAIN A VALUE OF ZERO.
ERROR 1001

BAD COUNTER VALUE, EXPECTED 10000, DETECTED XXX
OUTPUTS 3 AND 4 WERE TOGGLED TO PRODUCE A COUNT
OF 10000. THESE SIGNALS WERE INPUTED TO COUNTER 1
WHICH WAS SET TO THE ACTIVE HIGH MODE. A COUNT
OF 10000 SHOULD HAVE RESULTED, BUT THE INDICATED
VALUE WAS DETECTED.

ERROR 1102

BAD COUNTER VALUE, EXPECTED O, ENCOUNTERED XXX

OUTPUTS 3 AND 4 WERE USED AS INPUT TO COUNTER 2.
COUNTER 2 WAS SET TO ACTIVE LOW, AND THESE SIGNALS
SHOULD NOT HAVE INCREMENTED THE COUNTER.
ERROR 1003

BAD COUNTER VALUE, EXPECTED O, ENCOUNTERED XXX
OUTPUTS 3 AND 4 WERE USED AS INPUT TO COUNTER 1.
COUNTER 1 WAS SET TO ACTIVE LOW, AND THESE SIGNALS
SHOULD NOT HAVE INCREMENTED THE COUNTER.

ERROR 1004

BAD COUNTER VALUE, EXPECTED 10000, DETECTED XXX
OUTPUTS 3 AND 4 WERE TOGGLED TO PRODUCE A COUNT

OF 10000. THESE SIGNALS WERE INPUTED TO COUNTER 2
WHICH WAS SET TO THE ACTIVE HIGH MODE. A COUNT
OF 10000 SHOWLD HAVE RESULTED, BUT THE INDICATED
VALUE WAS DETECTED.

ERROR 1005

ERROR LOADING TOGGLE, WRITTEN XXX,

READ:

XXX

EVERY TIME A TOGGLE OUTPUT IS SET OF CLEARED,

THE SIGNAL IS READ BACK AND TESTED FOR THE CORRECT

STATE.

IF THE EXPECTED STATE IS NOT DETECTED,

THIS ERROR MESSAGE IS PRODUCED.

12
USER DOCUMENTATION

MACRO V05.00

Wednesday 03-Oct-84 14:03

Page 9 S

6.1 SECIFICALLY SELECTABLE TES
..........................

This test

is a visual test.

It fleshes the LED on end off on

every module in the system that

is found by the sutometic

configuretion routine or selected

The test runs until
Errors

“CNTL C”

in the herdware questions.

is typed.

This test has no error messages.
&

SEQ 0021

Jc
PROGRAM HEADER AND TABLES

1081

1083
1084 002000
1085

1086
1087
1088
1089
1090
1091 002000
1092
1109
1110 002000
1111

Wednesdey 03-Oct

14:03

Page

.TITLE PROGRAM HEADER AND TABLES
PROGRAM MEADER
.SBTTL

1046
1047
1073
1078

1080 000000

MACRO V05.00

.ENABL
.

002000

ABS,AMA
2000

B8GNMOD
R4
HE

;
:

THE PROGRAM HEADER IS THE INTERFACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
POINTER ALL

HEADER

CZIDV,AR,0,150,0,340

SEQ 0022

PROGRAM HEADER AND TABLES
DISPATCH TABLE

MACRO V05.00 Wednesdey 03-Oct-84 14:03 Page 11

1123

.SBTTL

1126

1129

1124
1125

{igg
1130 002122
1131

DISPATCH TABLE

joe

THE DISPATCH TABLE CONTAINS THE STARTING AODURESS OF EACH TEST.

; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
DISPATCH 11.

SE@ 0023

PROGRAM HEADERREANDP-TABL
TABLES
E
DEFAULT HARDWA

MACRO V05.00 Wednesday 03-Oct-84 14:03 Page 12

5E@ 0024

1133

.SBTTL

1141
1142

joe
: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

114

1143
1144
{izz

DEFAULT HARDWARE P-TABLE

: THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,
: AND IS USED AS A “TEMPLATE"” FOR BUILOING THE P-TABLES.
‘--

1147

1{:8 002152
1

1159 002154
1160 002156
fig‘% 002160
1163 002162

BGNMM
171400
000400
000200

DFPTBL
.MORD
.WORD
.WORD

ENOHW

171400
400
PRIO4

; MODE REGISTER ADORESS
i VECTOR ADODRESS
: PRIORITY LEVEL

PROGRAM HEADER AND TABLES
SOF TWARE P-TABLE

MACRO V05.00 Wednesday 03-0Oct-84 14:03 Page 13
SOFTWARE P-TABLE

1165

.SBTTL

1167
1168

jee
; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE

1166

1169

; PROGRAM AS OPERATIONAL PARAMETERS.,

1170

1171

AT RUN TIME.

HER

1172
1173

1174 002162
1175
1163

figg 002164
1186 002166

THESE PARAMETERS ARE

SET UP AT ASSEMBLY TIME AND MAY BE VARIED B8Y THE OPERATOR

BGNSW
000000

Qve:

SFPTBL
. WORD

ENOSW

(4]

: QUICK VERIFY 2 (0O = NO)

S€Q 0025

N2
MACRO v0S5.00

PROGRAM HEADER AND TABLES

MARDWARE PARAMETER COOING SECTION

.SBTTL

1188
1169
1190
1191
1192
1193
1194
1195
1196

uWednesdey 03-Oct-84

14:03

Pege

SEQ 0026

HARDWARE PARAMETER CODING SECTION

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

MACROS ARE NOT EXECUTED AS MACHINE

INSTRUCTIONS BUT

INTERPRETED BY THE SUPERVISOR AS JATA STRUCTURES.

ARE

THE

MACROS ALLOM THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

1224

1225
1226
1227
1228
1229
1230

002166

BGNHRO

002170
002200
002210

10%:

§i

1197

1198
1199
1200
1210
1211
1212
1213
1214
1215
1216
1223

Gl:

LNLIST
.ASC12

G1,0,0,5,177776, YES

6G2,2.0.0,770,YES

G3.4,0,340,0,6, YES

002222

002222
002250

002270
002307

115
126
120

012

117
105

122
015

104
103
111
050

G2:
G3:

.ASCI2

.ASCII
.ASCIZ
LIST
.EVEN

s MODE ADORESS
: VECTOR
; PRIORITY

BEX

/MODE REGISTER ADDRESS/
/VECTOR ADORESS /
/PRIORITY LEVEL /

<12><15>/(FOR LSI WITH FIXED PRI.
BEX

USE LEVEL 4 ONLY)/

B3
MACRO vV0S5.00

PROGRAM HEADER AND TABLES

SOF TWARE PARAMETER CODING SECTION

.SBTTL

1232
1233
1234
1235
1236
1237
1238
1239
1240

Pege

SEQ 0027

SOF TWARE PARAMETER CODING SECTION

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

BGNSF
7

1253

108:

1254 002366
1255
1256

+ QUICK VERIFY MODE

GPRML
.EVEN

1257
1258 002374
1259

T
ENDSA

1266

1268 002374
1269
1270
1271
1272
1273 002416
1274

14:03

1 THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
t THAT ARE USED BY THE SUPERVISOR 7O BUILD P-TABLES.
THE

1241
1242
1243 002364
1244

1267

ednesdey (3-Oct-84

121

125

111

Gl6:

MNLIST
.ASCIZ
LIST
.EVEN

ENDMOD

8EX

/QUICK VERIFY MODE/

8EX

C3
GLOBAL AREAS

MACRO V05.00

Wednesdey 03-Oct-84

SOF TWARE PARAMETER CODING SECTION

14:03

Page

SEQ 0028

.TITLE GLOBAL AREAS
.SBTTL
GLUBAL EQUATES SECTION

1286

1287
1315
1325
1326 002416
1327
1328
1329
1330
1331
1332
1347
1348 002416

BGNMO0
*

HE GLOPAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
USED IN MORE THAN OMNE TEST.

EQUALS
:

s BIT DIFINITIONS
3

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

8IT1S==
8IT14-«
8IT13e«
81712+
B8ITile=
8IT10==
8I709=+
8IT08=+
817107=«
8I706==
8I705=8IT04==
8I703-=
81702+~
8IT01ee
B8IT00=-=

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

8179==
8178
8IT7==
8I16-=
B8I15=«
8IT4=>
8I73es
8IT2==
8ITi==
8IT0==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1}

BIT09
B8IT08
B8IT07
B81IT06
BIT05
BITO4
BIT703
8IT02
8]IT01
81700

s EVENT FLAG DEF INITIONS
+
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040
000037
000036
000035

000034

EF.STARTe»

32.

EF .NEMeEF . PHRee

29.
28,

EF.RESTARTes
€F .CONTINUE==

31.
30,

’
'

s PRIORITY LEVEL DEFINITIONS
000340

}

PRIO7== 340

1 START COMMAND WAS ISSUED

1+ RESTART COMMAND WAS ISSUED
i CONTINUE COMMAND WAS ISSUED

1 A NEW PASS MAS BEEN STARTED
1 A POMER-FAIL/POMER-UP OCCURRED

D3
MACRO V05.00
GLOBAL AREAS
GLOBAL EQUATES SECTION
000300
000240
000200
000140
000100
000040

Wednesdey 03-Oct-84 14:03

SEQ 0029

Pege 16-1

PRIO6=+ 300

PRIOS==
PRIO4=«
PRIO3=>
PRIO2==
PRIO1=+

240
200
140
100
40

PRIO0O== O
:

tOPERATOR FLAG BITS
]

EVL e

LOTe=

ADR=«
IOUeISRee
UAMe =
B80E=-

20
40
100
200
400

PNTeo

PRI==
IXEee
IBE=IERee
LOE =~
HOE==

1000

2000
4000
10000
20000
40000

100000

000002
000004
000006

MREA=e
MREB->
MREC-=

2
4
6

sCOUNTER COMMAND AND STATUS REGISTER
sCOUNTER CONTROL REGISTER
sCOUNTER INTERRUPT REGISTER

177400
177500

Be-

177400

tMIGH BITS MUST BE SET

177700
000042

CSLOA==
CéARM==
CSDAS=»
CiMAR==
CéINL1==
CoIN2=»
CsCTNe=
C8STNe=

1008
40!8
200!8
377'8
350!8
357:8
340!8
330:!8

MeTOG==

171000
171770

IXSTA=e 171000
IXENDe= 171770

177440

177600
171177
177750
177787
177740
177750

CSI0AC== 300:8

1LOAD COUNTER
1ARM ALL SELECTED COUNTERS
1SAVE AND DISARM ALL SELECTED COUNTERS
1MASTER RESET
s INITIALIZE COMMAND 01
1 INITIALIZE COMMAND 62
sCLEAR TOUT
1 SET TOUT
1OISARM ALL COUNTERS

1COUNTER MODE WREGISTER,

OUT

TOGGLE

+ FIRST STANDARD IOV/IAV-11 ADORESS
1 LAST STANDARD IOV/IAV-11 ADORESS

E3
MACRO V0S5.00
GLOBAL AREAS
SECTION
DATA
GLOBAL
1373
1374

1375
1376
1377

1378
1379
1380 002416
1381
1382 002422
1383
1384
1385 002430
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395

.SBTTL

i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
+ IN MORE THAN ONE TEST.
:--

MOO: :
CSR::

CCR::
INR::
VEC::
PRIO: :

+ MODE REGISTER ADDRESS OF CURRENT WJT
1 COMMAND AND STATUS REGISTER ADDRESS OF WT

O
O
O
O

s+ COUNTER CONTROL REGISTER A ADDRESS OF WIT
i INTERRUPT REGISTER ADORESS OF CURRENT WUT
+ VECTOR ADORESS OF CURKENT WT
1 PRIORITY LEVEL OF CURRENT WT

SAVPRI : :
BITMSX: :

WORD
MORD

O
O

+ SAVED PRIORITY
1 FOR BIT MAP

NUMBER: :

MORD

1 GENERAL NUMBER

BITMSL::
BITMS2: :

COUNTR: :

LOOP: :

002514
002516
002520
002322
1427 002324
1428 002326
1429 002530

.WORD
WORD
.WORD
.WORD

O
O

1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426

WORD
WORD

1 WORKING STORAGE

GROUP: :

1412

GLOBAL DATA SECTION

[A4

1396
1397
1398

1399

SEQ 0030

Page 17

Wednesdey 03-Oct-84 14:03

ELEMNT: :
CNTVAL : :
SRC: :

NXMFLG: :
BIV::

.WORD
WMORD

MORD
WORD

.WORD

BLKW
MORD

WORO

.WMORD

.WORD

O
O

1 GENERAL BIT MASK
3 GENERAL BIT MASK

1 GENERAL COUNTER

s CURRENT GROUP

5
O

s HOLDS VALUES FROM COUNTERS
1+ SOURCE FOR A TEST

s CURRENT ELEMENT

3 GENEFRAL LOOP COUNT

¢ SET IF NXM TRAP OCCURS

s HOLD VECTOR OF INTERRUPT

s IF INTERRUPT DID NOT OCCUR THROUGH
1 SPECIFIED VECTOR

G000 :

WORD

1 EXPECTED CONTENTS

SFI::

.WORD

t+ FLAG TO FORCE ERROR PRINTOUTS

BAD: :

WORD

1 ACTUAL CONTENTS

ANS: :

.WORO

+ TEMPORARY STORE FOR MANUAL INPUTS

INTFLA: :
INTFL2: :

WORD
.WORD

O
O

s+ DONE INTERRUPT FLAG
+ ERROR INTERRUPT FLAG

ITRONT: :
ITROEF : :

ECNT::

.MORD
.WORD

LWORD
LWORD
.WORD
.WORD
.WORD
LWORD
LWORD

O
10

100000
100000
100000
100000
100000
100000
100000

1 ITERRATION COUNTER
s+ JTERRATION DEFAULT

;
;
;
;
;
;
;

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

COUNT
COUNT
COUNT
COUNT
COUNT
COUNT
COUNY

FOR
FOR
FOR
FOR
FOR
FOR
FOR

WT
WT
WT
WT
WUT
WT
WT

O - BIT 15 IS SET TO
1 - FLAG NOT TESTED.
2
3
4
S
6

1467

1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484

1485
1486

TSTFLG::
TSUFLG::

LOPFLG::

LOTFLA::

::
CONMSK

r-r-r-x;r-wnotb-JO\ULbcthfiflo
NOWN-O

)

-l

PARAMETER ADORESS FOR UNIT
PARMETER ADORESS FOR UNIT

UNIT DROPPED FLAGS
CLEARED AT
SET IF ANY
CLEARED AT
SET IF ANY

SET
SET
SET
SET
SET
SET
SET
SET
SET
SEY
SEY
SET
SET
SET
SET
SET

IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF

LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP

START OF EACH PASS
TEST IS SELECTED
START OF EACH UNIT'S PASS
TEST IS SELECTED

CHECX
CHECK
CHECK
CHECK
CHECX
CHECK
CHECX

ROUTINE
ROUTINE
ROUTINE
ROUTINE
ROUTIMNE
ROUTINE
ROUTINE

CALLED
CALLED
CALLED
CALLFD
CALLED
CALLED
CALLED

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

UNIT
UNIY
UNIT
UNITY
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

VONOUVMBUWN-O

1462
1463
1464
1465
1466

OROPED
::

|§

1447

1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461

000000000000
O0O0OVLO

GPADD::

1441
1442
1443
1444
1445
1446

1433
1434
1435
1436
1437
1438
1439
1440

[

1430 002532
1431 002534
1432

SEQ 0031

Pege 17-1

5§ a8 R

GLOBAL DATA SECTION

UWednesdey 03-Oct-84 14:03

§ § 53383RR800058558

MACRO V05.00

GLOBAL AREAS

10
11
12
13
14
15

SET 8Y INIT CODE IF LOOP ON TEST I5 SELECTED
TEST CONTROL MASK SET UP BY INIT CO0E

G3
MACRO V05.00
GLOBAL DATA SECTION
GLOBAL AREAS

Wedneedesy 03-Oct-84 14:03

1487

1488
1489
1490
1491
1492

: LOW BYTE IS OEVICE COOE

1493

1494

SEQ 0032

Pege 17-2
8IT O IS SET IF
BIT 1 IS SET IF
BIT 2 IS SET IF
B8IT 3 IS SET IF
BIT
4 IS SET IF
ABOVE
BITS S, 6 AND 7

WT
WT
WT
WT
WUT

IS
IS
IS
IS
IS

DIGITAL INPUT
DIGITAL OUTPUT
ANALOGUE INPUT
ANALOGUE OUTPUT
NONE
OF THE

ARE UNUSED

BIT 8 IS ALWAYS SET TO SELECT BASIC
INTERNAL LOGIC TESTS

1495
1496
1497
1498
1499
1500
1501
1502
1503

BIT 9 SET TO SELECT FIELD INPUT/OUTPUT
TESTS

BIT 10 IS SET IF LOOPBACK TESTING IS
SELECTED AND ALLOWVED FOR CURRENT WUT
BIT 11 IS SET IF MANUFACTURING LOOPBACK
AND INPUT/QUTPUT TESTS ARE SELECTED

BIT 12 IS SET IF A SPECIFICALLY
SELECTABLE TEST IS CHOSEN
BITS 13,

14 AND 15 ARE UNUSED

002704
002706

000000
000000

MODE
::
GAIN:
:

MODE FOR DIGITmi./ANALOGUE CONVERSIONS
GAIN FOR DIGITAL/ANALOGUE CONVERSIONS

002710

000000

PADD:
:

ADDRESS OF PROMPT FOR DECIMAL

INPUT ROUTINE

H3
GLOBAL AREAS

MACRO V05.00

GLOBAL DATA SECTION
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531 002712
1532 002742
1533
1534 002772
1535 003022
1536
1537 003052
1538 003102
1539
1540 003132
1541 003162
1542
1543 003212
1544 003242
1545
1546 003272
1547 003322
1548
1549 003352
1550 003402
1551
1552 003432
1553 003462
1554

Wednesday 03-Oct 84 14:03
.RADIX
.NLIST

000012

SEQ 0033

Page 18
10
BEX

+ ANALOGUE/DIGITAL CONVERSION TABLES USED BY ROUTINES DACON AND ADCON.
i VOLTAGE UNIPOLAR TABLE MOOE 0 (0-10V)
: BITS

5000,2500,1250, 62 S,
0.,
O,
0.

[}

500,

250,

125,

78,

39,
63,

19,
531,

78,
125,

39,
63,

19,
53]
.

766

011610
000000

004704

002342

004704
000L00

002342

001161
000000

2500, 1250, 625,
o,
O,
0.

500

31 2,

156,
250,

001750
000000

000754

000372
000000

1000,

12 S,

31,
15.
62,
m. m. 625,

000764
000000

000372

000175
000000

500,

000372
000000

000175

000076
000764

15,
625

953,

000031
000000

6.
250 .

781,

000144

000000

000031

000014
000764

000014

000006
000372

000764

VUPTASB::

62,

25,
)

31,

15,

125,

3 L)
125,

1,
563,

aVv

[ 1")

uv
mv

813, 906,

813, 906. 953,

977,

391,

uv
;

vV 6=10

sV G=20

V1)
av

G=50

aV G=100
uv

781. 391,

391, 195.

98,

('] G=200

I3
GLOBAL AREAS

MACRO V05.00

GLOBAL DATA SECTION
1556
1557
1558
1559
1560 003512
1561 003542
1562
1563 003572
1564 003622
1565
1566 003652
1567 003702
1568
1569 003732
1570 003762
1571
1572 004012
1573 004042
1574
1575 004072
1576 004122
1577
1578 004152
1579 004202
1580
1581 004232
1582 004262
1583

Wednesdey 03-Oct-84 14:03

Page 19

tVOLTAGE BIPOLAR TABLE (-10 s BITS
023420
000000

011610
000000

004704

011610
000000

004704
000000

002342

003720
000000

001750
000000

000764

001750
000000

000764
000000

000372

000764
000000

000372
000000

000175

000310
000000

000144

+10V) MOOE
7

312,

312,
500,

156,
250,

39,
63,

19,
5l1,

883

78,
125,

19,
531,

766,

as1

813,

977

mvV

WV G=20

VBPTAB: : 10000, 5000,2500,
1250, 625,
0.
oo
ou
L}
.
5000,2500,1250, 625,

156,

¢ 250.

0O,

2000,1000,
0.
0,

500,
0O,

250,
.

125,
62,
31,
0, 500, 250,

1000,
o.

S00, 250,
o.
oo

125,
[

500, 250, 625,

9s3,

488

500,
0.

250,
O,

125,
0,

31,
15,
62,
7,
500, 250, 625, 813,

977,

244

6,
12,
SC9, 250,

3,
125,

781, 391,

62,

31,

15,

000144
000000

000031

100,

S50,

25,
0,

500,

12,

6.
250,

3.
125,

1,
563,

391. 195.

000062
000000

000014
000764

S0,

25,

1.2,

1,
563,

O,
781,

195,

0, 500, 250,

125,

98.

;

3
s

G=1
Gr2

G=5

G=10

mV G=50

3wy
49

mv G=100

uwv

G=200

J3
MACRO VO05.00
GLOBAL DATA SECTION
GLOBAL AREAS
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1679
1601
1602
1603
1604
1605
1606
1607
1608
1609

Wednesday 03-Oct-84 14:03

1CURRENT 0-20 mA TABLE
: BITS
004312
004342

023420
000000

011610
000000

004704

004372
004422

011610
000000

004704
000000

004452
004502

003720
000000

004532
004562

I0TAB::

- MOOE e
8

SEQ 0035

Page 20

312,
500,

156,
250,

78,

125,

39,
63,

883

;

156,
250,

125,

39,
63,

19,
531,

441

125,

62,
500,

31,
15,
250, 625,

813,

977

62,

31,
15,
250, 625.

10000,5000,2500,1250, 625,
o,

002342

5000,2500,1250,
o,
0,
O,

625,
O,

002750
000000

000764

2000,1000,
o,
0,

500,
0,

250,
O,

001750
000000

000764
000000

000372

1000,
o,

500,
0,

250,
0,

125,
0,

004612
004642

000764
000000

000372
000000

000175

004672
004722

0n0310
000000

000144

200,

100,

50,

@5,

004752
005002

000144
000000

000031

100,
0.

50,
o.

25,
o.

12,
500.

6,
250,

1610 005032
1611
1612

000062
000000

000014
000764

50.
0.

25.
0,

12.
500,

60
250,

125, 563,

0, 500,
0,

500,

31,

1S,

78,

813,

uvA
nA

;

488

;

250, 625,

813,

953"

244

;
;

12,
6.
500, 250,

125,

781,

;

125. 563, 781, 391,

;

781. 391. 195,

; nA
24

G=100

G=200

I<3
MACRO V05.00

GLOBAL DATA SECYION

Wednesday 03-Oct-84 14:03

1614

1 CURRENT 4 - 20 MA TABLE (MOOE 3)

1644
1645

001750
000009

001440

000620

000000

000310

C00310

000144

000120

000050
000024

000012

000010

8000,4000,2000,1000,
o'
o.
o.
o'

500, 250,
o.

o0,

1600,
o,

800,
O,

400,
0.

200,
0,

100,
0.

°.

400,

200,

100,

50,

25,

°0

2C,

10,

160,

80,

40,

20,

10.

.RADIX
.LIST

8
BEX

o.
S,

o.
2,

500,

125,

003720

I4TAB::

ownw
O

003720

007640

8 ou 8

: BITS

1615
161¢€
1617
1618
1619 005112
1620 005142
1621
1622 005172
1623 005222
1624
1625 005252
1626 005302
1627
1628 005332
1629 005362
1630
1631 005412
1632 005442
1633
1634 005472
1635 005522
1636
1637 005552
1638 005602
1639
1640 005632

1641 005662
1642
1643

SEQ 0036

Page 21

GLOBAL AREAS

125,

62,

31,

31.
250,

15,
625.

15,

vA G=2

500, 250. 625, 813,

12,
500,

250,

6.
250,

125, 563,

125. 63, 781,

625. 313,

250,

125,

781

625, 313,

156,

0,
313,

18,

156.

G=5
6G=10

G=50
G=100

G=200

GLOBAL AREAS

MACRC V05.00 Wednesday 03-Oct-84 14:03 Peage 22

SEQ 0037

GLOBAL DATA SECTION
1647
1660

1661 005712
005712
005714
005716
005720

000000
000000
000000
000000

ERRTYP: :
ERRNBR: :
ERRMSG: :
ERRBLK: :

ERRTBL

.WORD
.WORD
.WORD
.WORD

O
O
O
O

M3
MACRO V05.00
GLOBAL ARERS
GLOBAL TEXT SECTION

Wednesday 03 Oct-84 14:03
.SBTTL

1663
1664
1665

SEQ 0038

Page 23

GLOBAL TEXT SECTION

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

1666

i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
; MORE THAN ONE TEST.

1667
1668
1669

1670
1671

LNLIST

1672
1673
1674

B8E&X

+ NAMES OF DEVICES SUPPORTED BY PROGRAM

1675

DEVTYP

1676 005722
1677
1683
1684
1685
1686 005732
1687

<IDV11-D»>

: TEST DESCRIPTION
:

OESCRIPT

1694

1695
1696
1697
1698

1709
1710 005772
1711
1712
1713
1714

: FORMAT STATEMENTS USED IN PRINT CALLS
045

116

045

NODEV::

.ASCIZ

\sNsAees NO DEVICES FOUND IN RANGE

.LIST
.EVEN

BEX

171000 TO 171770 ssesN\

N2
GLOBAL AREAS

MACRO V0S5.00

GLOBAL ERROR REPORT SECTION
1723
1724
1725
1726
1727
1728
1729
1730
1731
1747
1748 006064
1749 006064
1750 006114
1751 006120
1752
1753
1754 006122
17,5 006122
1756 006156
1757 006162
1758
1759 006164
1760 006164
1761 006210
1762 006214
1763

Wednesday

.SBTTL

GLOBAL ERROR REPORT

14:03

SEQ 0039

03-Oct

THE GLOBAL

Pege 24

ERROR REPORT

SECTION

SECTION CONTAINS MESSAGE PRINTING AREAS

: USED BY MORE THAN TEST TO OUTPUT ADOITIONAL ERROR INFORMATION.
:

BGNMSG

004737

PRINTB
014434

014434

JSR
ENOMSG

PRINTB

EER]
#GO0BAD, GOOD, BAD
PC, CHKMAX

PC ., CHXMAX

BGNMSG

EERS
, BCSR
OEMGA
PC ., CHKMAX

ENOMSG

PRINT GOOD AND BAD
CHECK FOR TOO MANY ERRORS

EER
#EMG3,
GOOD, BAD , 8M00

JSR
ENDMSG

PRINTB

;
;

1764

1765
1766 006216
1767 006216

1768 006242
1769 o VN
1770
1771
1772
1773 006250
1774 006250
1775 006272
1776 006276
1777
1778
1779 006300
1780 006300
1781 006332
1782 006336
1783
1784
1785 006340
1786 006340
1787 006344
1788

BGNMSG

004737

014434

PRINTB

JSR
ENDMSG

BGNMSG

004737

014434

PRINTB

EER6
#EMGA ,BAD
PC,CHKMAX

EERA
#EMG1,R]

JSR
ENDMSG

PC ., CHKMAX

BGNMSG

EERB
#EMG2
RS, G000, BAD

PRINTS

ENDMSG

BGNMSG
JSR
ENDOMSG

PC, CHKMAX

EERG

PC, CHKMAX

1789
1790

1791
1792
1793 006346
1794 006346

PRINTB

(BASIC) AND PRINTX (EXTENOED) CALLS ARE USED TO CALL PRINT SERVICES.

BGNMSG

PRINTB

ERR104
0€104 ,NUMBER

tERROR MESSAGE

—

——

b4
GLOBAL AREAS

MACRO V05.00

GLOBAL ERROR REPORT SECTION
1795 006372
1796 006376
1797
1798 006400
1799
1800
1801 0064 30
1802

1803
1804
1605

004787

004737

006710
006710
006734
006740

006742
006742
006766
006772

006774
006774
1842 007014
007042
007046
1845
007050
1847 007050
1848 007070
1849 007116
1850 007122
1851

014434

PC ., CHKMAX

BGNMSG

ERR10S
0€105,NMBER

PRINTB

JSR
ENDMSG

004737

014434

PRINTB
PRINTB

ERR106
€106, GROUP
0€106A,COUNTR,R3
PC . CHXMAX

1ERROR MESSAGE

1ERROR MESSAGE
1ERROR MESSAGE

ERR107
#€107,GROP
0€107A,COUNTR,
RS

1ERROR MESSAGE
1ERROR MESSAGE

ERR108
08
, NUMBER
0€1

1ERROR MESSAGE

Cl14434

PC ., CHXMAX

014434

ERR109
0€109, NUMBER
PC .,CHXMAX

1ERROR M SSAGE

014434

ERR110
0€110,NUMBER
PC . CHKMAX

1ERROR MESSAGE

014434

ERR111
0€111,NMBER
PC ., OHKMAX

sERROR MESSAGE

014434

ERR112
0€112,NUMBER
PC . CHKMAX

1CRROR MESSAGE

014434

ERR301
#€3501
#GO0BAD ,R2,BAD
PC, CHKMAX

BGNMSG

004737

PC . Cr(MAX

PC . CrKMAX

014434

SEQ 0040

Pege 24-1

JSR
ENDMSG

BGNMSG

004737

006706

014434

Wednesdey 05-Oct-84 14:03

014434

PRINT8
PRINTB
JSR

ENDMSG

ERRSO2
#€3502
#GOOBAD,R2,BAD
PC . CHXMAX

1tERROR MESSAGE

1ERROR MESSAGE
1ERROR MESSAGE

o
GLOBAL AREAS

MACRO V05.00

GLOBAL ERROR REPORT SECTION
1852
1853
1854
1855
1856
1857
1858
1859
1660

007124
007124
007144
007150
007152
007152
007176
007202

1861
1862 007204
1663 007204
1864 007224
1865 007254
1866 007260
1867
1868
1869 007262
1870 007262
1871 007302
1872 007332
1873 007336
1874
1875
1876 007340
1877 007340
1878 007360
1879 007404
1880 007410
1881
1882
1883 007412
1884 007412
1885 007436
1886 007442
1887
1888 007444
1689 007444
1890 007464
1691 007304
1892 007310
1893 007314
1694 007516
1895 007542
1895 007344
1897 007350
1898 007352
1899 007356

14:03

BGNMSG

004737

014434

PRINTB

004737

014434

ERRSOS
o113

BGNMSG

ERRSO4
0E114,INTFLA
PC , CHXMAX

tERROR MESSAGE

ERRSOS
0€E114A
0€1148,VEC.BIV
CHXMAX

1ERROR MESSAGE
1ERROR MESSAGE

PRINTS

JSR
ENDMSG
PRINTB
PRINTS

JSR
ENDMSG

PRINTB
PRINTS
JSR
ENDMSG

ERRS06
#€306
€GOOBAD
, GOOD . BAD

BGNMSG

004737

014434

004737

014434

012702
012701
012103

000001
002452

003761
004737

004737

PRINTB
PRINTB

1ERROR MESC "€
1ERROR MESSALE

1ERROR MESSAGE
1ERROR MESSAGE

JSR
ENDMSG

1ERROR MESSAGE

sCHANNEL NUMBER
sALL CHANNELS?
tMORE TO PRINT

014434

tERROR MESSAGE

PC . CHXMAX

BGNMSG

004737

SEQ 0041

Pege 24 -0

JSR
ENDMSG

BGNMSG

1900

1901 007560
1902 007360
1903 007606
1904 007626
1905 007632
1906
1907 007634
1908 007634

wednasdey 03-Oct-84

ERR116
0€116,NIMBER,R2
0€1168

PC . CHXMAX

ER116A
#E116A ,NUMBER,R2

1 SOURCE

D4
GLOBAL AREAS

MACRO V05.00

GLOBAL ERROR REPORT SECTION
1909 007662
1910 007702
1911 007706
1912
1913 007710
1914 007710
1915 007734
1916 007754
1917 007760
1918
1919 007762
1920 007762
1921 010006
1922 010026
1923 010032
010034
010034
010056
010076
010102
010104
010104
010126
010132

010134
010134
010156
010162
010164
010164
010206
010226
010232

010234
010234
010260
010300
010304

1961
1962
1963
1964
1965

010306
010336
010405
010455
010542

CO4737

Wednesdesy 03-Oct-84 14:03
PRINTB

014434

004737

#1168

JSR
ENOMSG

PC, CHKMAX

BGNMSG

ER1168

PRINTB

SEQ 0042

Pege 24-3

: SOURCE

#€116,R2,R3
#€1168

PC, CHCKMAX

N14434

ER116C

004737

014434

#E116A,R2,R3
#€1168
PC ., CHKMAX

014434

ERR120
#€120,RS
#1168
PC . CHXMAX
ERR121
#€121,R5

014434

BGNMSG
PRINTB
JSR

014434

PRINTS

004737

014434

045
045
045
045

101
101
101
10i

045

PRINTB
JSR

014434

004737

101

1ERROR MESSAGE

PRINTB
PRINTB

ENDMSG

107
122
101
107
103

NLIST BEX
GOOBAD: .ASCIZ
EMG1:
.ASCIZ
EMG2:
.ASCIZ
EMG3:
.ASCIZ
EMGA:
.ASCIZ

1ERROR MESSAGE

ERR122
#€121,R5
PC ., CHXMAX

1ERROR MESSAGE

ERR123
#£120,R5
0€1168
PC ., CHIXMAX

tERROR MESSAGE

ERR124
#€124,(R5),RO
#€1168
PC ., CHXMAX

/8AGO0D
: 5068A

1ERROR MESSAGE

/
D
: SO68N
BA

7UAREGISTER AT #OSSA DOES NOT RESPONOWN/

/8AADDRESS: S068A, GOOD;8O68A, BAD:SO06%N/
/8AGO0D;
/8ACSR REGISTER CONTENTS IS :8OGSN/

., BAD;

, MOD REGISTER CONTENTS:®O06%N/

E4
GLOBAL AREAS

MACRO V05.00

GLOBAL ERROR REPORT SECTION
1966
1967
1968
1969
1970

191

1972
1973
1974
1975

Wednesdey 03-Oct-84 14:03

Page 24-4

.LIST BEX
.EVEN

122
122
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101
101

101
101
101
101
101
101
101
101
101
101
101

€102:
£103:
€104;
€105:
€106:
E106A;
€107:
€E107A:;
€108:
€109:
€110:;

€l11:
€112:
€113:
El1l4:
€114A:;
€1148:

€115:
STRVAL:

STAVA2:
CNTXT:

€116:
E116A;
E1168:
€120:
€121:
€124:
€%01:
€502:
€S06:
ESO7:
ESO7A:

NLISY

.ASCIZ
.ASCIZ
.ASCIZ

BEX
/7ERROR - SPECIAL MODULE BIT IN MADR IS NOT SET/
ZERROR - 'CT MOD' BIT IN MEDR IS NOT SET/
/SAERROR

2013
2014
2015
2016

'OUT’'

BIT NR:

wDwN/

/8ACOUNTER #01sA
DOID NOT INCREMENTSA, SOURCE sU2wN/
/8ACOUNTER #D1#A DID NOT INCREMENTSA, GATE wD2wN/
/SAENSURE THAT TEST CONNECTOR IS INSTALLEDWN/
/8ABAD COUNTER VALUE, EXPECTED 10000, DETECTED: wOSwN/
/9ABAD COUNTER VALUE, EXPECTED O, DETECTED: wDS#N/
/SAERROR LOADING TOGGLE, WRITTEN #068A, READ: SO6¥N/
/8AINR REGISTER INCCRRECTWN/

/8AIR B1T IN INR REGISTER NOT RESETED AFTER BIT CLEARWN/
/SAINTERRUPT DID NOT OCCURRDED AT THE CORRECT PRIORITY LEVELWN/
/SAMASTER ENB BIT IN INR REGISTER NOT CLEARED AFTER INTERRUPTHN/
/8AINR REGISTER COUNTENS IS :#06%N/

8EX

2010

- UNABLE TO CLEAR

/SAERRCR - UNABLE TO SET 'OUT' BIT NR: sOsN/
/SAERROR
- WRITING LOAD REGISTER OF CHA. :wD1sN/
/oA, WRITTEN;: #O068A,
READ: SO68N/
/SAERROR
- WRITING HOLD REGISTER OF CHA. :sD1sN/
/oA, MRITTEN: S068A,
READ:
SO68N/
7SAERROR
- CAN NOT CLEAR 'EN' BIT NR: SOSN/
/SAERROR
- CAN NOT SET ‘EN’ BIT NR: #OsN/
/SAERROR - CAN NOT CLEAR 'INT' BIT NR: sDsN/
/SAERROR - CAN NOT SET ‘INT' BIT NR: sOsN/
/8AERROR - *INT' BIT NR: #D1sA HAS RESETSN/
/SAERROR - UNEXPECTED INTERWUPT DETECTEDSN/
/8AERROR - EXPECTING ONE INTERRUPT, ENCOUNTERED sDS#N/
/8AERROR - BAD INTERRUPT VECTOR DETECTEDSN/
/8ASET UP VECTOR :14038A FOUND VECTOR :%03eN/
/8ACOUNTER #D1sA
OID NOT INCREMENTSN/
/SANEXPECTED OIFFERENCE BETWEEN COUNTERS SN/
/8ASHOULD NOT BE GREATER THAN 2N/
/8ACOUNT DOWN FROM 10,000 AT S MHZ FOR 3 NOP INSTRUCTIONS.sN/
/#ACOUNTER #D1sA VALUE: #D6MN/

GLOBAL AREAS

MACRO V05.00 Wednesdey 03-Oct-84 14:03 Page 25

SEQ 0044

GLOBAL SUBROUTINES SECTION

2018

.SBTTL

2020
2021

deo
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

2019

202%

;

202

20262025

2024

2027

2028
2029
2030
gg
gg

THAT

GLOBAL SUBROUTINES SECTION
ARE

USED

IN MORE

SUBROUTINE REGTST

THAN ONE

TEST.

- GENERAL PURPOSE REGISTER TEST.

joe

+ FUNCTIONAL DESCRIPTION:
H
:
CHECKS THAT ALL READ/WRITE BITS OF THE SELECTED REGISTER CAN BE
:

SET,

CLEARED,

AND INDIVIDUALLY SET (SLIDING ONES PATTERN).

INPUTS:

2035
2036
2037

:
:
:

IF ENTERED AT LOCATION REGTST, THE LOCATIONS FOLLOWING THE
SUBROUTINE CALL MUST CONTAIN THE READ/WRITE BIT MASK, THE
ADORESS OF THE REGISTER TO BE TESTED, AND THME FIRST FRROR NUMBER

2040
2041
2042

:
;
;

IF ENTERED AT LOCATION REGTS1. THE READ/MRITE BIT MASK, REGISTER
ADORESS TO BE TESTED, AND THE FIRST ERROR NUMBER MUST BE LOADED
INTO LOCATIONS MASK, REGAOD. AND ERRNBR RESPECTIVELY. THIS

2045

: IMPLICIT INPUTS:

2047

;

ggg

2233

20‘6

TO BE USED (SEE CALLING SEQUENCE).

ALLOMS THE ARGUMENTS TO BE VARIED AT RUN TIME.

NONE.

2049

: OUTPUTS:

2051

%52

: IMPLICIT OUTPUTS:

2055

;
:

2057

20520589

2060

;
$

ERROR MESSAGES IF ERRORS OCCUR.

IF ENTERED AT LOCATION REGTST,
MASK
- CONTAINS THE READ/WRITE BIT MASK

REGADD - CONTAINS THE ADDRESS OF THE REGISTER BEING TESTED

2062

;
;

ALWAYS,
MASCOM - CONTAINS THE COMPLEMENT OF THE MASK

2064
2065
2066
2067

;
;
:
;

BAD
- CONTAINS LAST ACTUAL DATA
ERARNBR - CONTAINS THE INPUT ERROR NUMBER + 2
ERRTYP - CONTAINS 3 (SOFT ERROR)
ERRBLK - CONTAINS ADORESS OF REGERR (REGISTER ERROR MESSAGE)

2061

2063

2O‘r,am"g
zzg;g

2072
2073
2074

;

GOOD

- CONTAINS LAST EXPECTED DATA

ERRMSG - CONTAINS 3RD REGISTER ERROR MESSAGE

; SUBORDINATE ROUTINES USED:
H

;
;
H

INSERT - ERROR INSERTION ROUTINE
CHKMAX - ERROR COUNT CHECKING ROUTINE
ORS ERROR MACRO

G4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

2075
2076

SEQ 0045

Page 25-1

FUNCTIONAL

SIDE EFFECTS:

2077
2078

CALLING SEQUENCE
:

NONE.

EITHER FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL

€G.

CALL
177

REGTST

BIT MASK OF R/W BITS
REGISTER ADDRESS

CSR

FIRST ERROR NUMBER

OR PARAMETERS ARE SET DYNAMICALLY

EG.

B8IT MASK OF R/MW BITS

MOV

MOV
MOV
CALL

€177,MASK

CSR,REGADD
#200. ,ERRNBR
REGTS1

1 REGISTER ADORESS

FIRST ERROR NUMBER

B¢

200.

2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098 013474
2099 013474
2100 013502
2101 013506
2102 013514
2103 013520
2104 013526
2105 013532
2106 013532
2107 013540
013544
013352
013560

017637
062716
017637

062716
017637
062716

000000
0062002
000000
000002
000000
000002

013737
005137
612737
012737
012737

014046
014050
000003
014054
014122

014046

REGTST:
:

014052

005714
014050

REGTS)::

005712
005720
005716

MOV
ADD
MOV
ADD
MOV
ADD

8(SP),MASK
2,(SP)
8(SP) ,REGADD
0,(SP)
8(SP) ,ERRNBR
#2,(SP)

GET R/W BIT MASK
JMP OVER ARGUMENT
GET REGISTER ADDRESS
JUMP OVER ARGUMENT

MOV
con
MOV
MOV

MASK , MASCOM
MASCOM
#3,ERRTYP
OREGERR , ERRBLK

SET UP
OF R/MW
SET UP
SET UP

MOV

ORERR1 , ERRMSG

GET FIRST ERROR NUMBER
JMP OVER ARGUMENT

COMPLEMENT
BIT MASK
FOR SOFT ERROR
ERROR MESSAGE ROUTINE

FIRST ERROR MESSAGE

s CHECK THAT ALL R/W BITS CAN BE SET

013566
013574
013376
013604
013612
013620
013626
013632
013634
013636

013737

014046

002474

033777
017737
043737
023737
004737
001401

002474
000242
014050
002476
015240

000246
002476
002476
002474

MOV

BGNSEG
8IS

MOV
8IC

ce
CALL
BEQ
104 :

ERROR
ENDSEG

MASK , GOOD

SET UP EXPECTED DATA

G000,SREGADD

SET ALL R/MW BITS
READ THE RESWLT

SREGADD,BAD

MASCOM, BAD

BAD.GOOO
INSERT
104

KEEP ONLY R/W BRITS

ALL R/W BITS SET?
ALLOW FORCED ERROR PRINTOUT
IF 0K, BRANCH
ELSE REPORT ERROR

+ CHECK THAT ALL R/W BITS CAN BE CLEARED
013640
013644
013650
013656

005037
005237
012737

002474
005714
014174

005716

CLR

G000

MOV

ORERR2 , ERRMSG

INC

BGNSEG

ERRNBR

SET UP EXPECTED DATA
NEXT ERROR NUMBER
NEXT ERROR MESSAGE

H4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
2132 013660
2133 013666
2134 013674
2135 013702
2136 013710
2137 013714
2138 013716
2139 013720
2140
2141
2142
2143 013722
2144 013726
2145 013734
2146 013742
2147 013750
2148 013752
2149 013756
2150 013760
2151
2132 013762
2153 013764
2154 013772
2155 014000
21356 014006
2157 014014
2158 014022
2159 014026
2160 014030
2161 014032
2162 014034
2163
2164
2165
21€6
2157
2168
2169
2170
2171
2172
2173
2174

014036
014044

043777

017737
043737
023737
004737
001401

014046
000160
014050
002476
015240

Uednesdey 03-Oct-84
000164

002476
002476
002474

2178
2179 014122
2180 014174
2181 014252
2182
2183 014341
2184
2185
2186

SEQ 0046

Pege 25-2

8IC
MOV
8IC

MASK , SREGADD
SREGADD ,BAD
MASCOM, BAD

+ CLEAR ALL R/W BITS
; READ THE RESWLT
+ KEEP ONLY R/M BITS

CALL
BEQ
ERROR
ENDSEG

INSERT
204

s ALLOW FORCED ERROR PRINTOUT
s+ IF OK, BRANCH
1+ ELSE REPORT ERROR

o, J

204 :

B8AD,GOOD

+ ALL R/W BITS CLEAR?

;1 CHMECK THAT EACH R/W BIT CAN BE SE7
005237
012737
012737
033737
001004
006337
103427
000770

043777
053777
017737
043737
023737
004737
001401

005714
014252

002474

005716
002474

014046

014046
002474

014050
002476
015240

SO¢:
002476
002476
002474

ERRNBR
#RERRS , ERRMSG
#1,G000
GOOD , MASK
S04

3
t
;
s
s

8Cs
BR

704
30¢

s IF ALL DONE, RETURN
s+ ELSE CHECK IF NEXT IS R/W

ASL

BGNSEG

MASK::
MASCOM:

ELSE FIND NEXT R/W BIT

s CLEAR ALL R/W BITS
;s SET ONE BIT
3 READ IT BACK

(0,

B8AD, GOOD

s ALL OTHER BITS CLEAR?

B8EQ

60¢

s IF OK, BRANCH

ENDSEG
aR

404

TEST NEXT BIT

8IC

MASK , SREGADD

LEAVE THE R/W BITS CLEAR

,WORD
.WORD

0
0

s
3

BIT MASK OF READ/WRITE BITS
COMPLEMENT OF MASK

BGNMSG

REGERR

JSR

PC ., CHI(MAK

ERROR

RETURN

PRINTB

014434

MASK , SREGADD
GOOD , SREGADD
SREGADD ,B8A0

REGADD:: .WORD

004737

G000

NEXT ERROR NUMBER
NEXT ERROR MESSAGE
FIRSTY BIT TO TEST
R/W BIT?
IF YES, TEST IT

8IC
8IS
MOV

CALL

708

014046

INC
MOV
MOV
8IT
BNE

8IC

604 :

000746

043777
000207

304 :
40¢:

002474

014046
014050
014052

014054
014054
014114
2175 014120
2176
2177

14:03

ENDMSG

MASCOM,BAD
INSERT

; KEEP ONLY R/W BITS

: ALLOW FORCED ERROR PRINTOUT
s+ ELSE REPORT ERROR

s+ ADDRESS OF REGISTER TO BE TESTED

#REGMSG,REGADD,GOOD,BAD
,MASK

s CHECK FOR TOO MANY ERRORS

.NLIST BEX

105

107
107
107

RERRL:
RERR2:
RERR3:

.ASCIZ
.ASCIZ
,ASCIZ

¢REGISTER READ/WRITE BITS COULD NOT BE SETs
#REGISTER READ/WRITE B8ITS COULD NOT SE CLEAREDw
#REGISTER READ/WRITE BITS COULD NOT BE INDIVIDUALLY SETs

101

REGMSG:

.ASCIZ

.#AADDRESS: s068A,

122

105

122
045

.LIST BEX
.EVEN

GOOD: s#068A, BAD: #06%A,

R/W BITS:

#O6%N.

14
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84

14:03

SUBROUTINE CHKMAX

- ERROR COUNT CHECKING ROUTINE,

FUNCTIONAL DESCRIPTION:

SUBROUTINE TO UPDATE UNIT ERROR COUNT. IF THE PROGRAM IS LOOPING
ON AN ERROR, THE SUBROUTINE DOES NOTHING. OTHERWISE, THE ERROR
COUNT FOR THE UNIT IS INCREMENTED. IF THE ERROR COUNT EXCEEDS S
AND THE USER FLAG EVL HAS BEEN SELECTED AND THE FLAG IDU IS NOT

SELECTED,

THE UNIT IS DROPPED FROM THE TEST CYCLE.

INPUTS:

NONE.
IMPLICIT INPUTS:

LSLUN CONTAINS THE NUMBER OF THE UNIT CURRENTLY BEING TESTED.
ECNT IS THE ADDRESS OF THE ERROR COUNT FOR UNIT 0.
OUTPUTS:
NONE .

IMPLICIT OUTPUTS:
THE ERROR COUNT FOR THE LOGICAL UNIT BEING TESTED IS

INCREMENTED IF THE PROGRAM IS NOT LOOPING.
SUBORDINATE ROUTINES USED:
NONE
FUNCTIONAL SIDE EFFECTS:

IF THE ERROR COUNT EXCEEDS S AND THE USER EVL FLAG IS SELECTED,

AND THE

‘LOOP ON TEST'

NOT SELECTED,

AND

‘'INMIBIT DROPPING OF UNITS’'

THE UNIT WILL BE OROPPED FROM TESTING.

CALLING SEQUENCE:

JSR PC, CHKMAX

B0 A0

TP Ve

OGP

2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203

SEQ 0047

Page 26

2233 014434
2234 014436
2236 014440
2237 014444
2238 014446
2239 014452
2240 014460
2241
2242 014462
2243 014464
2244 014470

CHKXMAX: : INLOOP
BCOMPLETE 10%

013700

002074

MOV

005260
026027
003425

002514
002514

INC
cHP

032700
001021

000005

+ LOOPING ON ERROR?
+ IF YES, EXIT

LSLUN,RO

GET CURRENT UNIT

ECNT(RO)
ECNT(RO), #5

TOO MANY ERRORS?

ASL

BLE

104

CONVERT TO ERROR COUNT OFFSET
UPDATE THE ERROR COUNT
IF NOT,

JUP

RFLAGS

BNE

104

+ IF YES, EXIT

BIT

#I0V,RO

GET OPERATOR FLAGS

+ IS DROPPING INHIBITED?

FLAGS ARE

J4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

2245 016472

2‘3’:3 014476

2
2248 014500

032700
001416

Wednesday 03-Oct-84 14:03

000004

BIT

8eQ
PRINTF

gggg 014524

pooV

gggé 014532

DOCLN

2253 014534
2254

2255

2256 014536
2257

2258

2259
2260
2261

10$:

000207
045

116

04S

NERRS:

9EVL ,RO

1 IF NOT, EXIT

ONERRS,LS$LUN

LSLUN

'TOO MANY ERRORS’

i DROP THE UNIT

i END THE SUBPASS

NLIST

BEX

LIST

BEX

.EVEN

1+ EVALUATE FLAG SELEC D ?

10$

RTS
.ASCIZ

SEQ 0048

Page 26-1

/#N#AMORE THAN S ERRORS ON UNIT#D2/

I<4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0049

Page 27

2263

: SUBROUTINES WT25M, WTSOO AND WT25 - DELAY ROUTINES.

2265

jee

2264

2266

1 FUNCTIONAL DESCRIPTION:

2268
2269

H
:

2267

2270

2275

22M
2272
2273
2274

H
:
H
3

2276

NOTE. BECAUSE OF THE SMALL NUMBER OF PROGRAM WAIT LOOPS USED FOR
THE 25 MICROSECOND COUNTER, THE ACCURACY OF THE WT2S ROUTINE
IS LOW. THE DELAY MAY LAST UP TO SO MICROSECONDS ON SOME
SLOW PROCESSORS.

s INPUTS:

2277

2278

2279

NONE.

22:0

3 IMPLICIT INPUTS:

2281

2282
2283

3
H

2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296

THE VARIABLES CNT25M, CNTS00, AND CNT2S MUST MAVE BEEN SET UP BY

ROUTINE SETCLK.

H
s OUTPUTS:
3
3
NONE.
3
s IMPLICIT OUTPUTS:
H
3
NONE.
H
1 SUBORDINATE ROUTINES USED:
3
H
NONE.
:

2297
2298
2299
2300
gggé

s FUNCTIONAL SIDE EFFECTS:
:
3
NONE.
:
; CALLING SEQUENCE:
§

2303
2304
2305
2306
2307
2308

SUBROUTINE TO WAIT FOR 25 MILLISECONDS, SN0 MICROSECONDS OR 25
MICROSECONDS .

:
3
:
H
i--

OR JSR
OR JSR

JSR

PC.WT25M
PC,.WTS00
PC.WT2S

1 WAIT FOR 25 MILLISECONDS
i WAIT FOR SO0 MICROSECONDS
1 WAIT FOR 25 MICROSECONDS

2309 014600
ggig 014604

013700
000405

014626

WT25M:: MOV
B8R

CNT25M,RO
WAIT

1 GET 25 MILLISECOND WAIT COUNT
:

2312 014606
ggiz 014612

013700
000402

014630

WTS00:: MOV
B8R

CNTS00,R0O
WAIT

3 GET SO0 MICROSECOND WAIT COUNT
3

ggig 014614

013700

014632

WT25::

MOV

CNT2S.RO

; GET 25 MICROSECOND WAIT COUNT

2317 014620
2318 014622
2319 014624

005300
001376
000207

WAIT:

DEC
BNE
RTS

RO
WAIT
PC

s ALL DONE?
s IF NOT, WAIT SOME MORE
+ ELSE RETURN

L4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
2320

2321 014626
2322 014630
2323 014632
2324

000000
000000
000000

CNT2SM: : . WORD
CNTSQ0: : . WORD
CNT2S:: .WORD

SEQ 0050

Page 27 1

Wednesdsy 03-Oct 84 14:03

0
0
0

t COUNTER FOR 25 MILLISECOND DELAY
3 COUNTER FOR 500 MICROSECOND DELAY
+ COUNTER FOR 25 MICROSECOND DELAY

M4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03
«

2326

2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350

SUBROUTINE CRLF - ROUTINE TO PRINT CARRIAGE RETURN, LINE FEED.

; FUNCTIONAL DESCRIPTION:

PRINTS A CARRIAGE RETURN AND LINE FEED.

INPUTS:

O8O

IMPLICIT INPUTS:

NONE.

OUTPUTS
:

V¢

NONE.

IMPLICIT OUTPUTS:

A CARRIAGE RETURN AND LINE FEED ARE PRINTED.

SUBORDINATE ROUTINES USED:

NONE.

SUPERVISOR PRINTF MACRO.

2351
2352
2353

FUNCTIONAL

SIDE EFFECTS:

2354

CALLING SEQUENCE :
JSR

PC,CRLF

NONE.

®E

2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368

Page 28

::
CRLF

014634
014634
014654

000207

014656

045

116

000

LF:

PRINTF

&LF

RTS

.ASCIZ
.EVEN

/#N/

SEQ 0051

N4
GLOBAL AREAS

MACRO v05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84

@
Vo

2373

SUBROUTINE

TO WAIT FOR OPERATOR READY

FUNCTIONAL

DESCRIPTION:

2374
2375

SEQ 0052

Page 29

SUBROUTINE WROY

2370
2371
2372

THIS PRINTS A MESSAGE FOR THE OPERATOR TO TYPE ‘CARRIAGE RETURN'
TO CONTINUE. THE ROUTINE IS NORMALLY USED TO ALLOW A MESSAGE TO
BE READ BEFORE PROCEDING.

2376

2377

2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399

THE ROUTINE DOES NOTHING.

INPUTS:

IF MANUAL INTERVENTION IS NOT ALLOWED,

IMPLICIT INPUTS:

®¢

NONE
.

OUTPUTS:

V¢

NONE.

‘'CARRIAGE RETURN'

TO CONTINUE OR

'CONRTOL C'

TO ABORT.

IMPLICIT OUTPUTS:

‘TYPE

SUBORDINATE ROUTINES USED:

NONE.

SUPERVISOR GMANID MACRO.
FUNCTIONAL SIDE EFFECTS:

2400
2401
2402
2403
2404
2405
2406
2407
2408
2409

2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422

14:03

CALLING SEQUENCE:
JSR

PC,WRDY

NONE.

014662
014662
014664
014666
014735

000207

10¢:

RTS

014710

000000

WFLG:

.WORD

014712

124

NLIST
.ASCIZ
LIST
.EVEN

B8EX

MANUAL

131

120

WRDY1:

BNCOMPLETE 104
GMANID
ggDYl.HFLG.A.377.0.1.YES
s+

6;795
X

+
s
:

IS MANUAL INTERVENTION ALLOWED ?
IF NOT, EXIT
'TYPE RETURN TO CONTINUE'

FLAG FOR WARNING MESSAGE

“CARRIAGE RETURN”

TO CONTINUE OR

INPUT

"CONTROL

C”

TO ABORT./

TEST SELECT ROUTINE

FUNCTIONAL DESCRIPTION:

SEQ 0053

Pege 30

SUBROUTINE SELECT

THIS IS CALLED B8Y EACH TEST 7O DECIOE WETMER THE TEST SHMOWLD
BE RUN BASED ON THE DFVICE TYPE AND THE TEST MODE SELECTED IN
THE STARTUP QUESTIONS. A TEST SELECT MASK SUPPLIED BY THE TEST
IS COMPARED WITH A CONTROL MASK SET UP BY THE INITIALISATION
ROUTINE TO DECIDE WMETHER THE TEST IS RUN,

IF THE SOFTWARE FAULT INSERTION FLAG SFI IS SET, ALL NON-SPECIFIC

INPUTS
THE LOCATION FOLLOWING THE swaoumt CALL CONTAINS THE

SELECT MASK IN THE FOLLOWING FORMAT

TEST

B8IT O IS SET IF DIGITAL INPUT MODULES ARE TO BE TESTED
IF OIGITAL OUTPUT MODWES ARE TO BE TESTED
IF ANALOGUE INPUT MODULES ARE TO BE TESTED
IF ANALOGUE
OUTPUT MODWLES ARE TO BE TESTED
IF FIVE OWANNEL COUNTER ARE 70O BE TESTED

8IT
B8IT
8IT
B8IT

7 ARE UNUSED

8 IS SET TO INDICATE A BASIC INTERNAL LOGIC TEST
9 IS SET FOR FIELDO INPUT/OQUTPUT TESTS
10 IS SEY FOR LOOPBACK TESTS
11 IS SET FIR ANALOGUE INPUT/OUTPUT TESTS USED BY

MANUFACTURING AND FIELD SERVICE
BIT 12 IS SET FOR SPECIFICALLY SELECTABLE TESTS
8ITS 13, 14 AND 13 ARE UNUSED

THE SECOND LOCATION FOLLOWING THE SUBROUTINE CALL CONTAINS THE

ADORESS OF A TEST MEADER MESSAGE TO BE PRINTED IF THE TEST IS
SELECTED AND THE USER 'PNT' FLAG IS SELECTED.
IMPLICIT INPUTS:

CONMSK - TEST CONTROL MASK SET UP BY INITVT CODE AT THE BEGINING
OF EACH SUBPASS. THE FORMAT IS AS FOLLOWS :
SET
S SET
BIT 2 IS SET
S SET
SET

IF
IF
IF
IF
IF

WT
WT
WT
WT
WT

IS DIGITAL J«PUT
IS DIGITAL OUTPUT
IS ANALOGUE TNPUT
IS ANALOGUE OUTPUT
&ggi CHANNEL COUNTER

OGP

C¢

TESTS ARE SELECTED.

BIT 8 IS ALWAYS SET TO SELECT BASIC INTERNAL

G0
GO
VI
G
e
®5

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

MACRO V05.00

GLOBAL AREAS

BIT 9 SET TO SELECT FIELD INPUT/OUTPUT TESTS
B8IT 10 IS SET IF LOOPBACK TESTING IS SELECTED
AND ALLOMED FOR CURRENT WT

B8ITV 11 IS SEV IF MANUFACTURING MAVE SELECTED LOOPBACK
AND 1/0 TESTS

BIT 12 IS SET IF A SPECIFICALLY SELECTABLE TEST
IS CHOSEN

cs
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

BITS 13,

14 AND 15 ARt UNUSED

SF1

THIS IS NON ZERO,

ALL

TESTS ARE

SELECTED.

OUTPUTS :

2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510

IF THE TEST MATCHES THE DEVICE TYPE AND TEST MODE CHOSEN VIA THE
STARTUP QUESTIONS, THE ROUTINE EXITS WITM THE CARRY BIT CLEAR.
IN THIS CASE, IF THE 'PNT* FLAG IS SELECTED, THE TEST MEADER IS

PRINTED AND THE FLAGS TSTFLG AND TSUFLG ARE SET TO SHOMW THAT A
TEST HAS BEEN SELECTED.

G¢

IF THE TEST IS NOT SELECTED, THE CARRY BIT IS SET AND, IF THE
"PNT’ FLAG IS SELECTED, A MESSAGE ' TES! DISABLED BY STARTUP
QUESTIONS' IS PRINTED.

IF THE TEST IS NOT SPECIFICALLY SELECTABLE (BIT 11 IS CLEAR IN
THE TEST SELECT MASK), BIT 11 IS CLEARED IN T'E CONTROL MASK TO

PREVENT SUBSEQUENT SPECIFICALLY SELECTABLE TESTS FROM BEING RUN.

IMPLICIT OUTPUTS:

SUBORDINATE ROUTINES USED:

RO, R1 AND R2 ARE CORRUPTED.

FUNCTIONAL SIDE EFFECTS:

CALLING SEQUENCE:
FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL

€G.

2511

CALL
m

TSTEND

s TEST SELECT MASK (BASIC TEST
s+ ON ALL DEVICE TYPES
+ ADDRESS OF TEST HEADER
' BRANCH IF TEST NOT SELECTED

TNAME
8CS

SELECT

2312
2513
2514
2515
2516
2517
2518
2518
2520
2521
2522
2523
2524
2525
2526
2527
2528
2329
2530
2331
2332
2333
2534
2535
2536
2537

StQ 0054

Pege 30-1

2481
2482

Wedneesdey 03-Oct-84 14:03

013006
015006
013012
013016
015022

017601
062716
017602
062716

SELECT::
000002
000002

015026
015030
015034

032701

001003

010000

MOV
ADD
MOV
ADO

8(SP),R1

i SAVE TEST SELECT MASX

RFLAGS

+ READ OPERATOR FLAGS INTO RO

817
BNE

#10000,R1
10¢

s SPECIFICALLY SELECTABLE TEST ?
1 IF YES, BRANCH

02,(SP)
8(SP),R2
02,(SP)

i AMP OVER THE ARGUEMENT
+ SAVE TEST MEADER ADORESS
i JMP OVER THE ARGUEMENT

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
2538 015036
2539 015044
2540 0135050
2541 015032
2542 0135056
2543 015060
2544 015062
2545 015066

042737
005737
001007
130137
001426
105001
030137
001422

010000
002500

Wednesdey 03-Oct-84 14:03

002702

10%:

8IC

010000 , CONMSK

BNE

208

8EQ
CLRS

304
R1

ELSE PREVENT SUCH TESTS
SOFTWARE FAULT INSERTION ?
IF YES, SELECT TME TEST
IS DEVICE THE CORRECT TYPE
IF NOT, BRANCH
IF YES, DISCARD LOW BYTE

304

IF WRONG, BRANCH

187

8IT8

002702

8I7

002702

SEQ 0055

Pege 30-2

BEQ

SFI

R1, CONMSK

AND CHECK TEST TYPE

+ TEST IS SELECTED
2549 015070
2550 015076
2551
2552 015104
2553 015110
2554 015112
2555 015130
2556 015132
2557

2558
2559
2560 015134
2561 015140
2562 015142
2563 015162
2564
2565 015164
2566
2567
2568 015166
2569
2570

012737
012737

000001
000001

032700
001425

001000

002634

002636

20¢:

MOV

#1,.1STFLG

FLAG THAT

81T

#PNT RO

PRINT TEST HEADER ?

PRINTF

S0¢

MOV
B8EQ
CLC

000241
000414

o1,TSUFLG
SO¢

TEST

IS SELECTED

IF NOT, EXIT (CARRY 1S CLEAR)
ELSE PRINT THE MHEADER
CLEAR THE CARRY
AND EXIT

s TEST IS NOT SELECTED
032700
001410

30¢:

001000

817
8EQ

000261

40%:

PRINTF
SEC

000207

504 :

RETURN

045

101

040

TNA:

.NLIST
.ASCIZ
LIST
.EVEN

®PNT RO
404
@TNA

PRINT TEST HEADER

COMMON RETURN

8EX
/8A

BEX

IF NOT, EXIT
ELSE PRINT 'NOT APPLICABLE’
SET THE CARRY BIT

TEST DISABLED B8Y STARTUP QUESTIONSSN/

ES
GLOBAL AREAS

MACRO vV05.00

2572

2574

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

2573

SUBROUTINE INSERT

- SUBROUTINE TO FORCE ERROR PRINTOUTS

FUNCTIONAL DESCRIPTION:

G°

2575
2576
2577
2578

SEQ 0056

Pege 31

THIS SUBROUTINE CAN BE USED TO FORCE PRINTOUT OF ERROR MESSAGES
FOR QUALITY CHECKING. IF THE FLAG 'SFI' IS NONE ZERO, THE BRANCM

INSTRUCTION FOLLOWING THE SUBROUTINE CALL IS SKIPPED OVER,
CAUSING THE ERROR MESSAGE TO BE PRINTED. IF ‘SFI' IS SET 710 1,
THE ADODRESS OF THE SUBROUTINE CALL IS COMPARED WITH THAT OF THE
LAST CALL AND, IF IT HAS NOT CHANGED, THE MESSAGE IS NOT

OO GV G

2579

2580
2581
2582
2583

PRINTED.

INPUTS:

2585

IF ZERO, THE ROUTINE DOES NOTHING.
IF ONE, ERROR MESSAGES ARE PRINTED ONCE.
IF ANY OTHER VALUE, ERROR MESSAGES ARE ALWAYS PRINTED.

IMPLICIT INPUTS:

Vo GO

SFI

OUTPUTS:

B¢

SEE CALLING SEQUENCE.

IF THE ERROR MESSAGE IS TO BE PRINTED ONCE ONLY, LASTFA
IS LOADED WITH THIS SUBROUTINE RETURN ADDRESS.

IMPLICIT OUTPUTS:

LASTFA -

SUBORDINATE ROUTINES USED:

NONE.

FUNCTIONAL SIDE EFFECTS:

NONE.

2610

'SFI'

IS NONE ZERO,

THE ROUTINE RETURN ADORESS IS INCREMENTED

CALLING SEQUENCE :
A ONE WORD BRANCH INSTRUCTION MUST FOLLOW THE SUBROUTINE CALL

BEFORE THE ERROR PRINT CALL.

€G.

cp
CALL
BEQ
ERROR

MFPS

-(SP)

t+ SAVE CONDITINN CODES

204

B8AD, GOOD
INSERT
10¢

1
:
:+
:+

B0 GL

BY ONE WORD.

2627 015242
2628 015250

106746
023727
103413

INSERT: ;
002500

000001

cHP
8LO

SFI,el

1+ INSERT FAWLTS ?
IF NOT,

BRANCH

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638

001007

015252
015254
015262
015264
015272
015300
015302

001406
016637
062766
106426
000207

015304

000000

026637

Wednesdey 03-Oct-84 14:03

000002

015304

000002
000002

015304
000002

BNE
cre
6EQ
MOV
ADD

10$:
20¢:

MTPS

LASTFA:

. WORD

RETURN

SEQ 0057

Pege 31-1
104
2(SP),LASTFA
204
2(SP),LASTFA
#2,2(SP)

ALWAYS,

BRANCH

IS THIS FAULT ALREADY PRINTED?
IF YES, EXIT
ELSE, SAVE FAULT ADORESS
SKIP BRANCH TO FORCE PRINTOUT

(SP).

RESTORE CONDITION COOES
AND RETURN

ADDRESS OF ROUTINE CALL

2693
2694
2695
2696

S
G0
V¢
Vo
Vo
GF
V¢

P TABLE FOR UNIT L$LUN. FOR ADORESSES OVER 171400, A VECTOR
ASSUMED BASED ON THE LOW 8 BITS OF THE DEVICE ADORESS.

EACH CALL TO THE ROUTINE WILL CAUSE ONE MNORE UNIT TO BE SEARCHED FOR.
IF THE UNIT FOUND IS THE LAST IN THE IDV/IAV-11 RANGE, LSUNITS IS SET T0
THE TOTAL NUMBER OF UNITS. IF NO UNIT IS FOUND,
WITH THE CARRY BIT SET AND LSUNIT SET TO LSLWN.

THE PROGRAM EXITS

MOOWES WITH MODE REGISTER CONTENTS NOT CORRESPONDING TO AN 1DV/IAV1i
ARE SET UP,

BUT CAUSE AN 'UNIDENTIFIED MOOULE'

MESSAGE TO BE OUTPUT.

INPUTS:
LSLUN - NUMBER FOR THE NEXT UNIT FOUND.
IMPLICIT INPUTS:

STADDO MUST BE SET TO 171000 PRIOR TO THE FIRST CALL TO INITIALISE
THE SEARCH AREA.
ADORESSES DEFINED BY

“IXSTA” TO “IXEND" OF THE I/0 PAGE ARE READ.

THE WORD L$LUNe2 AFTER LABEL GPADD MUST CONTAIN THE PARAMETER
TABLE ADDRESS FOR THE UNIT.
OUTPUTS:

THE HARDWARE P TABLE AND LSUNIT ARE SET UP TO INCLUDE UP TO 16

UNITS FOUND IN THE ABOVE ADDRESS RANGE.
A MESSAGE
PRINTED.

'UNIDENTIFIED MODWLE FOUND AT ADDRESS nnnnnn'

MAY BE

THIS ROUTINE SEARCHES THE IDV/IAV-11 ADORESS RANGE (171000-171770) FOR A
RESPONDING ADORESS. FOR THE FIRST ADORESS ON A 4 WORD BOUNDARY (171XX0)
WHICH DOES NOT CAUSE AN NXM TRAP, AN ENTRY IS MADE IN THE HARDWARE

IMPLICIT OUTPUTS:

VS
Ve
TS

2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692

FUNCTIONAL DESCRIPTION:

IF THE UNIT FOUND IS THE LAST IN THE IOV/IAV-11 RANGE, LSUNIT IS SET WP
TO CONTAIN THE TOTAL NUMBER OF UNITS FOUND (LS$LUN.1).

2664

2647

2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663

2644
2645
2646

SUBROUTINE CONFIG - ROUTINE TO FIND THE DEVICE CONFIGURATION AUTOMATICALLTY.

IF NO MORE UNITS ARE FOUND,

PLACED IN LSUNIT,

THE CARRY BIT IS SET AND LS$LUN IS

2643

2640
2641
2642

SEQ 0058

Pege 32

SUBORDINATE ROUTINES USED:

GLOBAL SUBROUTINES SECTION

Wednesdesy 03-Oct-84 14:03

MACRO V05.00

GLOBAL AREAS

NXM - WON EXISTANT MEMORY TRAP ROUTINE.
WRDY - ROUTINE TO WAIT FOR OPERATOR TO TYPE
FUNCTIONAL SIDE EFFECTS:

NXMFLG MAY BE SET.

‘RETURN'.

HS
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

JSR
8cCs

PC,CONFIG

INIWT

IF NO MORE UNITS,

START AGAIN

®0

€G.

2703

2704

001041
005237

TST

002470
015574

TST

015574

CLEAR THE NXM FLAG
CHECK THE ADORESS

(R2)

ANYTHING THERE

NXMFLG
20¢
NOUNIT
304

IF
IF
IF
IF

10¢

OIXSTA,R2

L OLWiL SUNIY

ELSE WE HAVE THE LAST UNIT

002012

021127
103413

177400

004737

014662

015500

013700

002074

015504
015506
015512

006300
016003
010123

015514
015520
015524
015526
015530
015532
015534
015540

042701
032701
001001
005001
010123
001402
012701
010123

177000
000400

010237

015572

TRY NEXT DEVICE ADORESS
IS IT THE 2ND ONE THIS CALL
SET UP THE P TABLE
THE FIRST, FLAG UNIT FOUND

GET THE NEXT ADDRESS
OUT OF THE IXV11 RANGE °?
IF NOT, GO BACK
ELSE START AGAIN NEXT CALL
SAVE THE UNIT NUMBER
WERE ANY UNITS FOUND ?
IF NOT, EXIT

R2, #IXEND

002012

NOT,
YES,
YES,
IT'S

AND SAVE THE ADDRESS

#10,R2

208:

171770

171000
002074
015574

NXMFLG

NOUNIT
R2.R1

000010

015444
015450
015452
015474

2746
2747
2748
2749
2750
2731
2752 015542
2753 015546

CLR
TS7

#CO01,R1

IS MODWLE ID OK ?
IF YES, BRANCH
ELSE PRINT 'UNIDENTIFIED’

LSLUN,RO

FORM OFFSET FOR LUN

GPADO(RO)
,R3

GET P TABLE ADORESS IN R3
SAVE THE DEVICE ADDRESS

#177000,R1
#400,R1
50¢
R1

CALCULATE THE VECTOR ADORESS
ADORESS OVER 171400 ?
IF YES, BRANCH
ELSE ZERO THE VECTOR

(R1),€177400

30¢:

404

WAIT FOR OPERATOR TO TYPE

PC.,WROY
40¢:

002554

8IC

504
:

000200

B8IT
BNE
CLR
MOV

604
#200,R1
R1,(R3).

MOV
CLRVEC

R2,STADD

MOV

70¢:

R1,(R3).

8EQ
MOV

062702
020227
003757
012702
013737
005737

10%:

START SEARCH FROM THIS ADODRESS
ASSUME NO UNIT WILL BE FOUND
SET UP NXM TRAP

015424
015432
015436
015440

002470

STADO,R2

€1 ,NOUNIT
04, ONXM, 0340

2725 015412
2726 015416
2727 015420

005037
005712
005737
001006
005737
001422
005037
010201

MOV
MOV
SETVEC

015574

®e

2723
2724 015406

015572
000001

2714
2715 013356
2716 015362
2717 015364
2718 015370
2719 015372
2720 015376
2721 015400
2722 015404

013702
012737

SAVE R1 TO R4

R2, -(SP)
RS, -(SP)

2711 013316
2712 015322
2713 015330

MOV
MOV
MOV
MOV

2710

CONFIG::

010146
010246
010346
010446

2705 015306
2706 015306
2707 015310
2708 015312
2709 015314

2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745

CALLING SEQUENCE :

2697
2698
2699
2700
2701
2702

SEQ 0059

(Fage 32-1

'RETURN’

AND SAVE IT

IF O, BRANCH
ELSE SET UP DEFAULT PRIORITY
SAVE THE PRIORITY

SAVE THE NEXT SEARCH ADDRESS

RESTORE THE NXM TRAP CATCHER

15
GLOBAL AREAS

MACRO v05.00

GLOBAL SUBROUTINES SECTION
2754 015554
2755 015556
2756 015560
2757 015562
2738 015564
2759 015570
2760
2761 015572
2762 015574
2763
2764
2765 015576
2766
2767

012604
012603
012602
012601
006237
000207

Wednesdey 03-0Oct-84

015574

STADD::
NOUNIT:
116

045

(CO1:

SEQ 0060

Pege 32-2

(SP)+,RA
(SP)+ ,R3
(SP)+,R2
(SP)+,R1

1 RESTORE R4 T0O R1
;
3
:

RTS

AND RETURN

.WORD
.WORD

IXSTA
0

s
1

START ADDRESS OF SEARCH AREA
SET TO SHOW NO UNIT FOUND

NLIST
.ASCIZ
LIST
.EVEN

BEX

MOV
MOV
MOV
MOV
ASR

171000
000000
045

14:03

NOUNIT

IF NO UNIT,

SET

THE CARRY BIT

6:?'AUNIDENTIFIED MODWE FOUND AT ADDRESS ®06sA./

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

SEQ 0061

Page 33

i SUBROUTINE CONPRI - SUBROUTINE TO PRINT A CONFIGURATION TABLE.
G

2769
2770
2771

V¢

2772

FUNCTIONAL DESCRIPTION:

2773
2774
2775

LK)

THIS ROUTINE PRINTS A CONFIGURATION TABLE OF ALL UNITS LISTED IN
THE HARDWARE PARArETER TABLE. LISTED ARE THE MODE REGISTER ADORESS,
VECTOR AND
DEVICE TYPE.

INPUTS:

2776
2777
2778
27719
2780
2781
2782
2783

IMPLICIT INPUTS:

V¢

NONE
.

THE HARDWARE P TABLE.

2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804

THE GLOBAL MESSAGE LABELLED

“NODEV"

OUTPUTS

V¢

IF NO UNITS ARE CONFIGURED,
IS PRINTED.

IMPLICIT OQUTPUTS:

THE CONFIGURATION TABLE IS PRINTED.

IF NO UNITS ARE CONFIGURED (LS$UNIT = O),
IS PRINTED.

A MESSAGE

'NO DEVICES

SUBORDINATE ROUTINES USED:

FOUND'

FUNCTIONAL SIDE EFFECTS:

NXM - NON EX1STANT MEMORY TRAP ROUTINE.
CRLF - LINE FEED PRINT ROUTINE.

CALLING SEQUENCE :
JSR

PC,CONPRI

TG0

REGISTERS R1 TO RS ARE CORRUPTED.

2813
2814
2815
2816

015656
015656
015704
015710

2817 015712
2818 015732
2819
2820 015736
2821 015756
2822 015776
2823 016016
2824 016036
2825 016040

CONPRI::
005737
001012

002012

000137

016452

204:

@4,0NXM, 0340

CONEX

1 AND EXIT

ST
BNE
PRINTF

LSUNIT
104
ONODEV

PRINTF

#CP1

JP
10¢:

005001
010100

SETVEC

PRINTF
PRINTF
PRINTF

CLR
MOV

#CP1A
#CP18
oCP1C

R1
R1,RO

3
s
+

CATCH REFERENCES TO NXM

ANY UNITS CONFIGURED ?
IF YES, BRANCH
ELSE PRINT 'NO DEVICES FOUND'

i PRINT CONFIGURATION HEADER

i
'
'

+
;

START WITH FIRST UNIT
FORM PARAMETER TABLE OFFSET

IKS
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
2826 016042
2827 016044
2828 016050
2829 016052
2830 016076
2031 016100
2832 016102
20833 016126
2834 016130
2835
2836 016150
2837 016134
2838 016156
2639 016160
2840 016164
2641 016170
2842 016172
2643 016212

2844 016232
2845
2846 016234
2847
2848 016260
2849 016264
2830 016266
2851 016272
2852 016314
2853 016316
2854 016322

28355 016324
2856 016330
2857 016332
2858 016336
2859 016340
2860 016344
2861 016346
2862 016352
2863 016354
2864 016350
2865 016362
2866 016366
2867 016370
2668 016374
2869 016416
2870
2871

2872
2873
2874
2875
2876
2877
2878
2879
2880

016436
016440
016444
016446
016452
016456
016464

2881
2882 016466

00€ 300

016002
012203

Wednesday 03-Oct-84 14:03
ASL

MOV
MOV

002554

000410

005037
112305
111304
042704
005737
001421

30%:

PRINTF

#CP3, -2(R2)

GET THE UNIT P TABLE
SAVE THE UNIT ADDRESS
PRINT UNIT NO. AND ADDRESS
IS THERE A VALID VECTOR ?
IF NOT, BRANCH
ELSE PRINT THE VECTOR

oCPa

NXMFLG

GET READY FOR NXM TRAP
GET MODE REGISTER LOW BYTE

PRINTF

40%:

002470

177400

002470

S0$:

000450

101003

012703
000421

020427
101003

012703
000413

101003

000300

55¢:

017200

020427
101013
012703

000277

WAS THERE AN NXM TRAP ?
IF NOT, BRANCH
ELSE PRINT UNKNOWN ID/MODE
AND UNKNOWN MODULE TYPE
AND SEE IF LOOPED

oCPS,R4,R5

PRINT OUT ID/MODE

9300,R4

IS MOOWLE A FIVE CHA. COUNTER ?
IF NOT, BRANCH
ELSE SAVE 'FIVE CHA. COUNTER' STRING
PRINTOUT DEVICE TYPE

R4, #37

IS MOOUWLE DIGITAL INPUT ?
IF NOT, BRANCH

ELSE SAVE ‘DIG. IN' STRING
GO TO PRINT MODUWLE TYPE

IS MOOWLE DIGITAL OUTPUT ?
IF NOT, BRANCH
ELSE SAVE '‘DIG OUT’ STRING
GO TO PRINT MODLE TYPE
IS MODULE ANALOGUE INPUT ?
IF NOT, BRANCH
ELSE SAVE ‘AN IN' STRING
GO TO PRINT MODWLE TYPE
IS MODULE ANALOGUE OUTPUT ?
IF NOT, BRANCH
ELSE SAVE 'AN OUT' STRING
PRINT OUT DEVICE TYPE
PRINT ‘CANNOT BE TESTED'

704¢:

017211

904:
1004:

PREPARE FOR NEXT UMIT

CLRVEC

RTS

PC.CRLF
4
PC

PRINT A LIME FEED
RESTORE SUPERVISOR NXM TRAP CATCHER

NLIST

8EX

.ASCIZ

\SNSS248AIDV/IAV-11 MODULE CONFIGURATION.\

B8GE

016040
014634

116

R1
R1,LSUNIT

110¢:

002012

CONEX:

000207

045

504
oCP10
#CP10A
1104

017167
000177

045

CP1:

AND HIGM BYTE

OISCARD REGISTER MIGH BYTE

604
:

000077

' NONE '’

#177400,R4
NXMFLG

017156

012703

005201
020137
002002
000137
004737

40¢

554
#OCNT,R3
#CP6,R3
1104

017222
000037

304

(R3)+,RS
(R3),R4

000501

022704
101014
012703

RO
GPADO(RO),R2

(R2)+,R3
#CP2,R1,R3
(R2).

TST
BEQ

005722
001413

SEQ 0062

Pege 33-1

JSR

CONEX
204

ALL UNITS DONE ?
IF YES, EXIT
ELSE DISPLAY THE NEXT

L5
MACRO V05.00
GLOBAL AREAS
SECTION
INES
SUBROUT
GLOBAL
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2694
2895
2896
2897
2898
2899
2900

016537

016611

016707
016741
016752
016761
016773
017010
017016
017066
017077
017110
017125
017143
017147

017156
017167
2901 017200
2902 017211
2903 017222
2904
2905
2906

Wednesday 03-Oct-84 14:03

045
045
045
045
045
045
045
045
045
045

116
123
123
123
123
101
101
101
101
101
117
123

045
062
061
045
065
064
063
063
040
040
040
040
040
071
065

CP1A:
cPiB:
CPiAC:
cP2:
CcP3:
CPa:
CPS:
CcPé6:
cP7:
crP8:
CP9:
CP10:
CP10A:
CP11:
CcP12:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASC12Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

104
104
101
101
106

111
111
116
116
111

107
107
056
056
126

0I:
00:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

045
045

045
045
045

116
116

123

Al:

AO:

DC&T:

.LIST
.EVEN

SEQ 0063

Peage 33-2
/ONRS24BA - - - - - - oo

MODWLE
\SN2¥AUNIT
ADORESS
VECTOR
ID/MOD
\#S158AASSUMEDSS
1 38AT YPESN\
\ssNw0 3509\
\855803\
\#SASANONE
\
\#S38038A/503\
\$538T\
\#A
& CANNOT BE TESTED WITH THIS DIAG e\
\S$A
YES\
NO\
\sA

\$A
UNKNOWN\
UNKNOWN \
\sA
\80N
\#SS#03\

/01IG.

/0IG.

IN /

OUT/

/AN,
IN /
OUT/
/AN,
/FIVE CHA. COUNTER/

BEX

COMMENT 8N\

M5
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

SUBROUTINE DACON - DIGITAL

TO ANALOGUE CONVERSION ROUTINE.

FUNCTIONAL DESCRIPTION:

2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925

INPUTS:

V¢

_So

THIS CONVERTS A 12 BIT DIGITAL PATTERN INTO A 2 WORD ANALOGUE
OUTPUT VALUE,

MODE

O = UNIPOLAR (O TO 10 VOLTS)

1 = BIPOLAR
(-10 TO +10 VOLTS)
2 =0 - 20 mA
-20mA

OFFSET BINARY COOED
BINARY CODED
BINARY COODED

GAIN

7 = GAINS 1,2.5,10,20,50,100,200

12 BIT

3 =4

BINARY CODED

INPUT PATTERN.

2926

IMPLICIT INPUTS:

2927
2928
2929
2930
2931
2932

DIGITAL/ANALOGUE CONVERSION TABLES.

OUTPUTS:

VITAB AND ITAB

- MILLIVOLTS (MODE S 0 AND 1)
MICROAMPS
(MODE S 2 AND 3)

G¢

2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956

IMPLICIT OUTPUTS:

R2 - MICROVOLTS (MODES O AND 1)
NANOAMPS
(MOOES 2 AND 3)

SUBORDINATE ROUTINES USED:

V¢

.
NONE

FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:

€G.

MOV

#1,MODE

JSR

PC.DACON

MOV
MOV
MoV

R3,-(SP)
R4, -(SP)
MODE ,R3

:83

:‘fi%f&

i BIPOLAR CONVERSION

; %ENeitgoger

NONE.

2957
2958
2959
2960
2961
2962
2963
2964

SEQ 0064

Page 34

Wednesday 03-Oct-84 14:07

017244
017244
017246
017250
017254

010346
010446
013703
005703

DACON:
:

002704

187

:+ SAVE R3
: AND R4
:+ GET MODE

MODE O

NS
MACRO V05.00

GLOBAL SUBROUTINES SECTION
2965 017256
2966 017260
2967 017264
2968

001003
012700

000414

Wednesdsy 03-Oct 84 14:03

104
OVUPTAB,RO
PSDA

GET CONVERSION TABLE FOR MOOE O

DEC
BNE
MOV
BR

MOOE

OVBPTAB,RO
PSDA

GET CONVERSION TABLE FOR MODE

204:

OEC
BNE
MOV
BR

R3
30¢
¢IOTAB,RO
PSDA

MOOE 2 ?
IF NOT, BRANCH
GET CONVERSION TABLE FOR MOOE ¢

MOV

#IATAB,RO

/SE

GARIN,R3

GET THE GAIN

104:

005303
001003
012700
000407

2974 017300
2975 017302
2976 017304
2977 017310

005303
001003
012700
000402

2979 017312

012700

005112

304:

2981 017316

013703
005303
100403
062700
000773

G02706

PSOA:
30¢:

JLLY

017322
2983 017324
017326

2985 017332
2987 017334
017336
2989 017340

003512

004312

404
:

011004
010103

017342
2991 017344
2992 017346

sgfesgsresesggeistss
ity

2993 017350

017352
50¢:

017354
017356
017360
017364
017370

204

001750

604:
704
:

000002

R3
40¢
#48. RO
30¢

002704

017440
017446
017450

023727
001002
062701

002704

017454

012604

BRANCH

IATAB FOR MOOE

(RO),R4

SHIFT OUT UNUSED BITS
( BITS 15 - 12 )

TEST A BIT

IF CLEAR, BRANCH
ELSE ADD IN LOW VALUE
OVERFLOW OF LOW WORD ?
IF NOT, BRANCH
ELSE CARRY FROM LOW WORD
T0 HIGH WORD
AND ADD IN HIGH VALUE
GET NEXT TABLE ENTRY
ALL BITS PROCESSED ?
IF NOT, DO MORE BITS

R2,#1000.
604
€1000. ,R2
R1

(RO),R1

#2,.RO
R3

BIPOLAR VOLTAGE CONVERSION ?
IF NOT,BRANCH
ELSE MAKE BIPOLAR
IF STILL POSITIVE, BRANCH
DECIMAL PART ZERO ?
IF YES, BRANCH
ELSE BORROW FROM HIGH PART

000001

804:

MOOE
, 01

000003

904
:

MOOE
, 03
1004
#4000. ,R1

1004

(SP)+,R4

RESTORE R4

Ve
We
®e
Be
@e
®s

007640

TABLE

SAVE HIGH BIT VALUE
SAVE THE BIT PATTERN
CLEAR THE OUTPUT REGISTERS

R3
704

001750

THE CORRECT

AND TRY AGAIN

R1.R3
R1
R2
R3
R3
R3
R3

20 mA MODE

IF YES, BRANCH
ELSE INCREASE THE TABLE OFFSET

023727
001007
160401
002005
005702
001403
162702
005201

HAYE WE GOT

50%¢

017412
017420
017422
017424
017426
01743¢
017432
017436

IF NOT,

24 .{RO),R2

000030
001750

017372
017376
017400
017402
017406
017410

BRANCH

IF NOT,

BNE
MOV
BR

002712

2969 017266
2970 017270
2971 017272
2972 017276

2973

SEQ 0065

Page 34-1

GLOBAL AREAS

IF NOT, BRANCH
ELSE ADD IN BASE VALUE

B6
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3022 017456
3028 017460

012603
000207

Wednesdey 03-Oct 84 14:03
MOV

RTS

SEQ 0066

Page 34-2
(SP).,R3

TM
r

AND RS

C¥,
MACRO V05.00

GLOBAL SUBROUTINES SECTION
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034

Wednesdey 03-Oct

14:03

Page

SUBROUTINE ADCON

SEQ 0067

- ANALOGUE

TO DIGITAL

CONVERSION ROUTINE
.

+ FUNCTIONAL DESCRIPTION:

INPUTS

G4 G2

THIS CONVERTS A 2 WORD ANALOGUE VALUE INTO A 12 B8IT DIGITAL
PATTERN. THME INPUT IS ROUNDED UP OR DOWN TO THE NEAREST LSF

MODE

= UNIPOLAR (0 TC 10 VOLTS)
* BIPOLAR
(-10 TO «17 VOLTS)
*
=

- 20 mA
-

20 mA

BINARY CODED
OFFSET BINARY CODED
BINARY CODED
BINARY CCOED

G+

3035
3036
3037
3038
3039

WU
- O

GLOBAL AREAS

0 -

7 = GAINS 1,2,5,10,20,50,100,200

GAIN

- MILLIVOLTS (MOCES O AND 1
MICROA®S
(MODES 2 AND
3

TG0

B¢

R2 - MICROVOLTS (MODES O AND
1

(MODES 2 AND
3

IMPLICIT INPUTS:

NANOAMPS

DIGITAL/ANALOGUE CONVERSION TABLES.

oUTPUTS:
R1

12 BIT INPUT PATTERN.

IMPLICIT OUTPUTS:

GBS

VO O0

VITAB AND ITAB

SUBORDINATE ROUTINES USED:

NONE.

FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:
€EG.

MOV

#1 ,M00€E

MOV
MOV

06 ,GAIN
o-4,R}

JSR

PC . ADCON

MOV
MOV
MOV

RS, -(SP)
R4, -(SP)
MOOE .R3

BIPOLAR CONVERSION

GAIN -

100

-4,001 MILLIVOLTS

IN R1/R2

CE T

NONE.

3077
3078 017462
3079 017462
3060 017464
3081 017466

010346
010446
013703

ADCON
002704

SAVE R3

AND R4

GET MODE

OUTPUT
VALUE.

Dt
MACRO v05.00

GLOBAL SUBROUTINES SECTION
3082 017472
3083 017474
3084 017476
3085 017502

005703
001003
012700
000416

3087 017504
3088 017506
3089 017510
3090 017514

005303
001003
012700
000411

017516
017520
017522
017526

005303
001003
012700
000404

3086

3091

3092
3093
3094
3095

3096
3097 017530
3098 017534
3099

3100 017540
35101 017544

3102 017346
3103 017350
3104 017554
3105
3106 017356
3107 0173564
3108 017566
3109 017370
3110 017374
3111 017376
3112 017600
3113 017602
3114 017606
3115
3116 017610
3117 017614
3118 017620
3119 017622
3120 017624
3121 017630
3122 017632
3123 017634
3124 017640
3125 017642
3126 017646
3127 017650
3128 017652
3129
3130 017656
3131 017660
3132 017662
3133 017664
3134 017670
3135
3136 017672
3137 017676
3138 017700

Wednesdey 03-Oct-84

14:05

002712
10¢:

003512
0%

SEQ 0068

Pege 35-1
R3
104
#VUPTAB,RO
PSAD

MODE O ?

204

MOOE 1 7
IF NOT, BRANCH

OVBPTAB,RO
PSAD

GET CONVERSION TABLE FOR MODE

MODE 2

304

IF NOT,

BRANCH

GET CONVERSION TABLE FOR MODE O

IF NOT, BRANCH
GET CONVERSION TABLE FOR MODE 2

0ona3)2

€IOTAB,RO
PSAD

012700

005112
007640

€IATAB,RO
#4000. ,R1

USE IATAB FOR TMMOOE 3

013703
005303
100403
062700
000773

002706

GAIN,RS3

GET THE GAIN

204

“8. .Ro

IF YES, BRANCH
ELSE INCREASE THE TABLE OFFSET

023727
001011

002704

MOOE
., #1
304
(RO),R1

BIPOLAR MODE ?
IF NOT, BRANCH
ELSE CONVERT SIPOLAR TO UNIPOLAR

30¢
R2
30¢

IS DECIMAL PART ZERO ?

162701

PSAD:
10¢:

10¢

:
208

R1,010000.

023420

#1000. ,R2
R1

001750
304:

001000

404
:

001750
001750
000020

S04:

000030
000030
001750

704

ghe R3IBRI 28EETIE $8R¢%

GLOBAL AREAS

22.(RO),R3
R4
46.(RO)

R3
40¢
R4
91000,
R4
R4 ,R2

R2,#1000.

AND SUBTRACT BASE VALUE

HAVE ME GOT THE CORRECT

TABLE

AND TRY AGAIN

WAS PREVIOUS VALUE NEGATIVE
IF NOT, BRANCH

IF YES, BRANCH
ELSE BORROM FROM MIGH PART

GET ROUNDING VALUES FROM LOWEST
SIGNIFICANT BIT
OIVIDE BY 2
IF NO CARRY SKIP NEXT COMMAND
ADD CARRY
OIDIDE BY 2
ROUND UP THE INPUT VALUE
LOMER PART IS MOODWLO 1000

IF OVERFLOW, CARRY OVER TO

HIGH PART

ADD IN MIGM PART OF RCUNDING FACTOR
INITIALISE WORKING REGISTER

704
R2,24.(RO)
904

COMPARE MIGH VALUE MITH TABLE ENTRY
IF LESS, DON'T SET BIT
IF MORE, SET THE BIT
OTHERWISE, MUST CHECK THE LOMW VALUE
IF LESS, DON'T SET THE BIT

24.(RO),R2
80¢

SUBTRACT THE TABLE ENTRIES
BRANCH IF NO BORROMW NEEODED

#1000, ,R2

ELSE ADD TO LOW WORD

E6
GLOBAL AREAS

MACRO V0S5.00

GLOBAL SUBROUTINES SECTION
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150

017704
017706
017710
017714
017720
017722

005301
161001
052703
062700
006303
103355

017724
017726
017730
017732
017734

006203
010301
012604
012603
000207

000001
000002

Wednesdey 03-Oct-84 14:03

80¢:

:
904

DEC
SUB
8IS
ADD
ASL

8cC
100$:

ASR

MOV
MOV
MOV

RTS

SEQ 0069

Page 35-2
Rl

(RO),R1

#1,R3
#2,R0
R3
604
R3
R3,R1

(SP). R4
(SP)+,R3

FROM HIGHM WORD
AND LOMW WORDS
AND SET THE OUTPUT BI7
AND NEXT TABLE ENTRY

READY FOR NEXT BIT
IF 12 BITS NOT DONE,

GO BACK

GET THE PATTERN AGAIN
SET UP OUTPUT REGISTER
RESTORE R4
AND R3

GLOBAL AREAS

MACRO v05.00

GLOBAL SUBROUTINES SECTION

SUBROUTINE DECIN

SIGNED DECIMAL

INPUT ROUTINE.

FUNCTIONAL DESCRIPTION:

V¢

SEQ 0070

Page 36

INPUTS:

OS¢

THIS SOLICITS A SIGNED DECIMAL NUMBER FROM THE OPERATOR.

THE ADORESS OF

THE PROMPT

STRING FOR THE INPUT,

PADD

THE OPERATOR IS PROMPTED FOR A NUMBER WHICH CAN BE UP TO 10 DIGITS

IMPLICIT INPUTS:

V¢

STRING SHOULD BE IN /PRINT FORMAT ( T€.-ASCIZ /aNWAINPUT VACUE/ ).
OUTPUTS:

V¢

NONE.

- INTEGER PART OF OPERATOR INPUT
- DECIMAL PART OF OPERATOR INPUT

IMPLICIT OUTPUTS:

V¢

R1
R2

ERROR MESSAGES ARE PRINTED IF THE OPERATOR TYPES AN ILLEGAL CHARACTER,
OR A DECIMAL PART WITH MORE THAN 3 DIGITS.

AN INTEGER PART OVER 32767,

SUBORDINATE ROUTINES USED:

B¢

AN EXAMPLE STRING IS APPENDED TO THE INPUT PROMPT.

FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:

€G. MCv

JSR

PC,DECIN

#MADD, PADD

+ LOAD THE PROMPT MESSAGE ADDRESS

MOV
MOV
CLR

#NR1,RO
#7,R1
(RO).

; CLEAR NUMBER AND STRING LOCATIONS
;1 2 WORDS FOR INTEGER AND DECIMAL
; PARTS AND 10 BYTES FOR THE INPUT

NONE.

3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208

Wednesdey 03-0Oct-84 14:03

017736
017736
017742
017746
017750
017752

017754
017774
020014

012700
012701
005020
005301
001375

020310
000007

:
DECIN:

10%:

DEC
BNE
PRINTF

012700

020314

GMANID
MOV

10¢

; STRING,
:

PADD

]

PRINT THE PROMPT

GETNUM,SMUM,A,-1,0,10.,N0 ; GET THE NUMBER STRING
i POINT TO THE START
#SNUM RO

GE
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct 84 14:03

S5EQ 0071

Pege 36-1

3209 020020

012701

020310

MOV

ONR1,R1

ASSUME

3211 020024
3212 020030
3213 020032
3214 020036
3215 020040
3216 020044
3217
3218 020046
3219 020052
3220 020056
3221 02006C
3222 020066
3223 020072

121027
001430
121027
001425
121027

000053

cHP8

(RO),#'

IS
IF
IS
IF
IS
IF

001017

012701
105760
001003
112760
105760
001007
112760
000403

604

8EQ

604

0 (RO),

000056

204

cMP8
BNE

020312
000002

30¢:

MOV

ONR2 ,R1

BNE
MOV8

404
#'0,2(RO)

000060
000003

000002

000060

000003

40%:

TST8

75718

(RO),®' .
S04

1ST CHARACTER A
YES, BRANCH
IT A -2
YES, BRANCH
IT A .2
NOT, BRANCH

FIRSY

START ON DECIMAL PART

FORCE TO 3 DIGITS

2(RO)

IE.

S(RO)

REPLACE NWLLS

BNE
MOV8
BR

604
¢'0,3(RO)
604

WITH ZEROS

105710
001451
000402

8eQ
B8R

7578

(RO)

END OF STRING ?
IF YES, FINISH UP
ELSE GET NEXT DIGIT

005200
000751

INC
BR

RO
20%

SKIP OVER THE SIGN OR POINT

(RO), #60

IS CHARACTER A VALID NUMBER
IF TOO LOW, ASK AGAIN

121027

002403

121027

003411

70%:

021127
101013

crP8
BLT

crPs
BLE

000071
80¢:

000671

006314

110¢
704

804

(RO), 871
904

B8R

OECIN

#DECIN3

PRINT ' ILLEGAL CHARACTER®
AND ASK AGAIN

crp

(R1),03276.

NUMBER TOO HIGH ?
IF YES, BRANCH

ASL
MOV
ASL
ASL

(R1)
(R1),R2
(R1)
(R1)

ELSE MALTIPLY BY 10

PRINTF

BHI

1004

R2,(R1)

112002
162702
060211
100401

MOV8
SuB
ADD
B8MI

(RO)+ ,R2
#60,R2
R2,(R1)
1004

SAVE THE CHARACTER
CONVERT TO NUMBER

000714

204

AND GET NEXT CHARACTER

020310
020312
001750

READY FOR NEXT CHARACTER

®e

ADD

013701
013702
020227
103411

AND ADD TO ACCUMULATOR

IF OVERFLOW, REPORT ERROR

1004

PRINTF

DECIN

#DECIN1

PRINT ‘'NUMBER TOO BIG'
AND GET ANOTHER

110¢:

MOV
MOV
cHe

NR1,R1
NR2,R2
R2,#1000.

SET UP OUTPUT REGISTERS

PRINTF

#DECIN2

BLO

1204

IF NOT TOO HIGH, BRANCH

006311
011102
006311
006311
060211

000642

3263 020242
3264 020246
3265 020250

8EQ

crP8

000055

INTEGER PART

3210

DECIMAL PART T0OO BIG ?
IF NOT, BRANCH
PRINT

'ONLY

3 OIGITS ALLOWED®

H6
GLOBAL AREAS

MACRO v05.00

GLOBAL SUBROUTINES SECTION
3266 020270
3267
3268 020272
3269 020300
3270 020302
3271 020304

123727
001002
005401
005402

3273 020306

000207

3272

3274
3275
3276

3277 020310
3278 020312
3279 020314
3280

3281 020327
3282 020347
3283 020405
3284 020466
3285
3286
3287

Uednesday 03-Oct-84

14:03

SEQ 0072

Page 36 2
DECIN

000622

020314

000055

1204
:

’ SNUM0,
130¢
R1
Re2

IF NOT, BRANCH
ELSE NEGATE THE OUTPUT

130¢:

AND RETURN

WAS STRING NEGATIVE

BEX
NR1:
NR2:

055

061

050
045

105
116
116
116

045

107
045
045

GETNUM:
OECIN1:
DECIN2:
DECINS:

0
o)
/-12345.678/

.
.
.
.

STORE FOR INTEGER PART
STORE FOR DECIMAL PART
STORE FOR INPUT STRING

/(EG. 12345.678)/
i PROMPT FOR INPUT
/%NSAMUST BE LESS THAN 32768%N/
/8NSAONLY 3 DIGITS MAY FOLLOW THE DECIMAL POINTSN/
/8NSAILLEGAL CHARACTERSN/

8EX

16
GLOBAL ARERS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03
+

SUBROUTINE DECOUT

- SIGNED DECIMAL OUTPUT ROUTINE

FUNCTIONAL DESCRIPTION:

G¢

3289

SEQ 0073

Pege 37

TO PRINT A SIGNED DECIMAL NUMBER .

INPUTS:

ROUTINE

- INTEGER PART OF NUMBER TO BE PRINTED
- DECI .AL PART OF NUMBER TO BE PRINTED

IMPLICLT INPUTS:

R1
R2

oUTPUTS:

NONE.

THE NUMBER IS PRINTED AS FOLLOWS

-12345.678

IMPLICIT OUTPUTS:

( NO SIGN IS PRINTED FOR POSITIVE NUMBERS )
}g %N?Eglzgl.-qgflszs(fl?) IS ZERO, THE NUMBER

SUBORDINATE ROUTINES USED:

NONE.

FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:

€G. MOV
MOV
JSR

#-10.,.R1
%-1,R2
PC.DECOUT

i PRINT -10.001
:

MOV
MOV

R1,-(SP)
R2,-(SP)

] SAVE R1
3 SAVE R2

TST

208
R1
R2

' IF YES, BRANCH
3 ELSE MAKE POSITIVE

G¢

NONE.

3331
3332
3333
3334
3335
3336
3337

3338

020516
020516
020520

020522
020524
020526
020530
020532
020534
020536

3339
3340
3341
3342
3343
3344 020556
3345 020600

010146
010246

005701
002402
005702
002012
005402

005702

DECOUT: :

10¢:

204 :

BLY
TST

104
R2

PRINTF

#DECO1

8GE
NEG
NEG

PRINTF
TsT

0DECO2,R1

H
H

H
'

» 07?

IF NOT, BRANCH

R2 POSITIVE

AND PRINT

‘-’

: PRINT THE INTEGER PART

DECIMAL PART

= 0 ?

Jo
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358

020602
020604
020626
020630
020632
020634
020640
020644

Wednesday 03-Oct-84 14:03
8EQ

001411

PRINTF

DECEX:

012602
012601
000207
045
045
045

101
104
101

055
065
056

DECO1:
DECO2:
0ECO3:

MOV
MOV
RTS

NLIST
.ASCIZ
.ASCIZ
.ASCI1Z
.LIST
.EVEN

SEQ 0074

Page 37-1
DECEX
00ECO3,Re
(SP)+,Re
(SP)+,R1

8EX

/%A -/

/%05/
/%A %23/

BEX

IF YES BRANCH
ELSE, PRINT DECIMAL PART
RESTORE R2
AND R1
AND RETURN

I<6&
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3360
3361
3362
3363
3364
3365
3366

Wednesday 03-Oct-84 14:03

®e

SPEEO

SEQ 0075

Page 38

0000000000000 000000000000000000000000000000000000000000000000000

SUBROUT INE

RANDOM

FUNCTIONAL DESCRIPTION:
THIS ROUTINE GENERATES A RANDOM PATTERN.

STORED IN LOCATION RB.

3367

THE PATTERN IS

INPUTS:

3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378

NONE.

IMPLICIT INPUTS:
RA AND RB

OUTPUTS:

R8 - CONTAINS THE RANDOM PATTERN
RA

CONTAINS A SECOND RANDOM PATTERN

IMPLICIT OUTPUTS:
NONE.

SUBORDINATE ROUTINES USED:
NONE.

CALLING SEQUENCE
:
CALL RANDOM
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408

020654
020660
020664
020666
020670
020672
020674
020676
020700
020704
020710

013746
013700
006316
005500
006200
005516
061600
005600
012637
010037
000207

020712
020714

024674

135753

020712
020714

RA, -(SP)

R8.RO
8SP

RO
RO

8sP
8SP RO
020712
020714

(SP)+,RA

RETURN

RO,R8

JSR PC,RANDOM

1PUSH RA TO STACK
:GET THE LAST RANDOM PATTERN
sSIFT SP (=RA) LEFT
+IF CARRY IS SET ADD TO RO (=RB)
t THEN SHIFT THE RESWT RITH
1IF CARRY IS SET ADD TO SP (=RA)
;ADD SP (=RA) AND RO (=R8)
tSUBTRACT CARRY IF SET FROM R8
sLOAD NEW VALUE INTO LOCATION RA
tLOAD LOCATION R8 WITH NEW PAT.
:

135753
24674

1 START PATTERN FOR RB
1 STORAGE FOR RANDOM PATTERN

LE
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

3‘10

SUBROUTINE - FLASH
OSSR
S S SSSPidhdtdddddeddd

;

3414

3415
3416
3417

H
H
H
:

3420
3421

H
: INPUTS:

3413

; FUNCTIONAL DESCRIPTION:

3418
3419

3
:

3422

THIS SUBROUTINE FLASHES THE SELECTED MODWLE
LED ON AND OFF WHILE READING THE CONSOLE KEYBOARD INPUT.
THE EXPECTED INPUTS ARE ‘Y' OR ‘N’ ANC THEN A CR OTHER INPUTS

(EXEPT THE CNTL C) WILL CAUSE A PROMT TO REPEAT
WITH THE CORRECT CHARACTER.

3423

3425

3 IMPLICIT INPUTS:
3
:
NONE.

3424

3426
3427
3428
3429

3431
3432
3433
3434
3435
3436
3437
3438
3439

H
NONE.
3
1 SUBORDINATE ROUTINES USED:

3440

3441

3463 021000
3464 021006
3465 021014
3466 021022

PRINTF- DRS MACRO, THIS MACRO PRINTS A MESSAGES ON THE CONSOLE

s CALLING SEQUENCE:

3445

3457 020750
3458 020752
3459 020760
3460 020762
3461 020770
3462 020772

BREAK - DRS MACRO (THIS MACRO LOOKS FOR CNTL C)

3444

3450 020722
3451 020724
3452 020726
3453 020730
3454 020736
345S 020742
3456 020746

CONSOLE KEYBOARD INPUT,

:
s OUTPUTS:
:
:
FLSANS - CONTAINS THE KEYBOARD INPUT YES OR NO
H
FLSANS ZERO = NO
H
FLSANS ONE
= YES
:
s IMPLICIT OUTPUTS:
H

3430

3449 020716

SEQ 0076

Page 39

‘QQQOQ0000000000000000000000000000000000000000000000000000000000000000

3411
3412

3446
3447
3448

H
:
:
R

105737

177560

000421
042777
012701
004737
005301

000100
000012
014600

161460

000100

161436

000100

151426

000001

021170

100002

001374
032777
001356
052777
000762
012737

013737
042737
122737
001432

177562
000200
000131

FLASH::

002476
002476
002476

10¢:
404
30%:

20%:

CALL FLASH OR
TSTB

JSR PC,FLASH

TKS

8PL
BREAK
BR
8IC
MOV
CALL
DEC

20¢
€100, 8M00
#10. ,R1
WT25M
R1

Mov
8IC
cHPB
BEQ

#200,8A0D
#'Y,BAD
S04

BNE
BIT
BNE
8IS
BR
MOV

10¢

30¢
4100, 8M00D
FLASH
4100, 8M00
404
#1 ,FLSANS

TKB,BAD

R et
1TEST THE KEYBOARD STATUS REG.

$1BRANCH IF NOTHING FOUND
;LOOK FOR 'CNTL C'
3
1SWITH MODULE LED OFF
1SET UP WAIT COUNTER
1WAIT FOR 25 MS
sARE 250 MS OVER

1BRANCH IF NO
1IS THE MODWWLE LED SWITCHED ON
1BRANCH IF YES
tOTHERWISE SWITCH IV ON
sAND BRANCH TO WAIT LOOP
1SAVE ‘'YES' ANSWER

1GET CHARACTER

1DISCARD PARITY BIT
1WAS THE TYPED CHARACTER A 'Y’
1BRANCH IF YES

————

—

——

———

M6
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3467
3468
3469
3470
3471

021024

021032
021034
021040
021046
3472 021050
3473 021056
3474 021060
3475 021066
3476 021106
3477 021110
3478 021116

3479
3480
3481
3482
3483
3484
3485
3486

021122
021124
021132
021140
021146

021150
021156
021160

3487 021166
3488
3489
3490

122737
001426
005037
122737
001420
122737
001414

013737

000703
013737
105737

100375
013737
042737
122737
001404
013737
000657
013737
000207

000171

021170

Wednesday 03-Oct-84 14:03
cMP8

002476

000116

002476

000156

002476

177562

177566

177562
177560

177566

177562
000200
000015

002476
002476
002476

177562

177566

177562

177566

B8EQ

S04 :
60¢:

FLSANS
#'N,BAD
S04
#'n,BAD
S04
T8, TP8

BR
MoV
TST8
BPL
MOV
8IC
cMP8

FLASH
T8, TP8
TKS
604
TKB,BAD
#200,8AD
#15,8AD

MOV
BR

T8, TP8
FLASH

8€EQ

704 :

MOV

RETURN

tWAS IT A LOWESCASE

¢'y,BAD

S04

CLR
cMPB
8EQ
cHP8
8EQ
MOV

PRINTF

SEQ 0077

Page 39-1

1BRANCH IF YES
$SAVE

'NO’

'y’

ANSWER

tWAS THE TYPED CHARACTER A 'N'
1BRANCH IF YES
tWAS IT A LOMERCASE 'n' ?
tBRANCH IF YES
;ECHO THE CHARACTER
1IF NO PRINT A PROMT
1AND GO BACK
;ECHO THE CHARACTER
s TEST THE KEYBOARD STATUS REG.
1BRANCH IF NOTHING FOUND
1GET FOUND CRARACTER
1tMASK OUT PARITY BIT

#PROMT

1MAS IT A <CR>

704

:BRANCH IF YES
$ECHO THE CHARACTER
tECHO THE CHARACTER

T8, TP8

:+ CONSOLE EQUATES

021170
021172

FLSANS: .

000000
045

sKEYBOARD STATUS REGISTER
1KEYBOARD DATA REGISTER
1tPRINTER OATA BUFFER

TIKS = 177560
TKB = 177562
TPB = 177566

177560
177562
177566

116

045

PROMT:

.MORD

.NLIST
_ASCIZ
LIST
.EVEN

:SAVE LOCATION FOR KEYBOARD B\FFER

BEX
/#NsSAUNAUTHORIZED CHARACTER,
BEX

TYPE ONLY

'Y'

‘N’

THEN <CR>

N6
GLOBAL AREAS

MACRO V0S5.00

GLOBAL SUBROUTINES SECTION

SEQ 0078

Pege 40

Wednesday 03-Oct-24 14:03

;000000000000000000000000000000000.000000000000000000000000000000000000

3502

3503

: SUBROUTINE CALRET - CONSOLE READ ROUTINE

30’000000000000000000000.0‘0.000.0‘000000000000000000000000000000000000
:

35“
3505

3506

. FUNCTIONAL DESCRIPTION:

3507

THIS SUBROUTINE READS THE CONSOLE KEYBOARD WITHOUT

3509
3510
3511
3512

:
:
;
;

THE PROGRAM SEQUENCING. THE READING WILL BE DONE WHEN YOU
CALL THIS SOUBROUTINE BUT NOT UNDER INTERRUPT.
CALRET AFFECTS THE CARRY BIT. IF THE OPERATOR TYPED A CARRIGE
RETURN, THE CARRY BIT WILL BE SET. IF THE OPERATOR TYPED

3514

THE ROUTINE WILL ALSO TAKE CARE OF TME 'CNTL C'.

3508

3513

;

3515

3516

3517

3518

ANY OTHER CHARACTERS OR NO CHARACTER, THE CARRY BIT WILL BE CLEARED.

INPUTS:

3519

3520
3521
3522
3523
gggg

CONSOLE KEYBOARD BUFFER AND STATUS

: IMPLICIT INPUTS:
H
:

NONE

:
: OUTPUTS:

3526

gggg

;

3527
3528

:
:

IF READ CHARACTER WAS A CARRIGE RETURN, THE CARRY BIT IS SET.

IF READ CHARACTER WAS ANY OTHER CHARACTERS
WAS TYPED, THE CARRY BIT WILL BE CLEARED.

: SUBORDINATE ROUTINES USED:

gggz

: CALLING SEQUENCE:

ggg;

3539

3540 021270
3541 021270
3542 021274

3557

021300
021302
021304
021312
021320
021326
021330
021336
021340
021346

021366
021372

OR NO CHARACTER

IF READ CHARACTER WAS A CNTL C, THE SUPERVISOR WILL HANOLE IT.

gggé

3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
gggz

STOPPING

BREAK - DRS MACRO
CALL CALRET

; THIS MACRO TAKES CARE OF CNTL C
JSR PC.CALRET

;000000000000000000000000000000000000000000000000000000000000000000000000

CALRET::

005037
105737
100032

021374
177560

013737
042737

177562
000200
000015

002476
002476

000001

021374

177562

177566

022737
001004
012737
000413
013737
006237
000207

021374

002476

208:

106:

CLR
TsT8
BPL
BREAK
MOV
BIC

CARRFL
TKS
104

ASR
RE TURN

CARRFL

cHP
BNE
MOV
BR
MOV
PRINTF

KB, BAD
0200, BAD
#15,8AD
204
01 .CARRFL
104
KB, TP8
#RETMEL

; CONSOLE EQUATES

; TEMPORY STORE FOR CARRY BIT
1 TEST THE KEYBOARD STATUS REG.
JBRANCH IF NOTHING WAS TYPED
WAS THE TYPED CHAR. A 'CNTL C
1GET OPERATOR INPUT
1CLEAR KEYBOARD BUFFER PARITY BIT

{WAS THE TYPED CHARACTER A RETURN ?
;BRANCH IF NO
1SET CARRY FLAG
JAND BRANCH
;ECHO THE CHARACTER
sPRINT THAT ONLY CARRIGE RETURN WILL
;D0 SOME THING
AFFECT THE CARRY

B7
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

3559
3560

TKS = 177560
TKB = 177562

177560
177562

SEQ 0079

Pege 40-1

Wednesdey 03-Oct-84 142:03

TP8 = 177566

I1KEYBOARD STATUS REGISTER
sXEYBOARD DATA REGISTER

tPRINTER DATA BUFFER

;25

177566

gsszz 021374

000000

CARRFL: .WORO

045

LNLIST
RETMEL: .ASCIZ
.LIST
.EVEN

BEX
/#NsSATYPE CNTL C TO ABORT OR RETURN TO GO TO THE NEXT STEP/
BEX

3565
3566 021376
3567
3568
3569

116

045

1SAVE LOCATION FOR CARRY BIT

GLOBAL AREAS

MACRO vV05.00

GLOBAL SUBROUTINES SECTION

UWedneedey 03-0Oct-84 14:03

SUBROUTINE AMREST

3571

3575
3576

REFERENCE
TVE AM9S1S COUNTER WOOULE . 17RESETS
ThaT

3577
3578
3579
3580
3581
3582
3583

- AMIS13 MODWLE RESET ROUTINE.

"FUNCTIONAL DESCRIPTION:

3574

3572
3573

SEQ 0080

Page 4!

INPUTS:

MODULE AND PLACES I7 INTO A KNOWN STATE.

NONE.

IMPLICIT INPUTS:

3585

THE

INTERFACE

OUTPUTS:

R1 CONTAINS THE BASE AOORESS OF

IMPLICIT OUTPUTS:

NONE.

SUBORDINATE ROUTINES USED:

THE ERROR COUNT FOR THE LOGICAL UNIT BEING TESTED IS
INCREMENTED IF THE PROGRAM IS NOT LOOPING.

FUNCTIONAL SIDE EFFECTS:

NONE.

IF THE ERROR COUNT EXCEEDS S AND TME USER EVL FLAG IS SELECTED,

AND THE

'LOOP ON TEST’

AND ' INMIBIT OROPPING OF UNITS'

THE UNIT WILL BE DROPPED FROM TESTING.

FLAGS ARE

CALLING SEQUENCE:

NOT SELECTED,

JSR PC,AREST

3612 021470
3613 021470
3614 021516

3627 021634

AMREST:
:

012761
012761
012761
012761
012761
012761
012761
012761
012761

012761
012761
012761
012761
012761

SETVEC

64,0NXM, PRIO?

000010

MOV
MoV
MOV
MOV
MOV
MoV
MOV
MoV
MOV

¢COINL . MREA(RL)
0CIN2,MREA(R])
0177637 ,MREA(RL)
0177427 ,MREA(R])
070000, MREA(RL )
0177411 . MREA(RL)
#10,MREB(R1 )
0177412 ,MREA(RL)
010,MREB(R1)

000010
177414
000010

MOV
MOV
MOV

#10,MREB(R1)
0177414 ,MREA(R])
#10,MREB(RY)

17
177730

177737
177637
177427

070000
177411
000010

177412

177413

MoV

0177777, MREA(R]L)

0177413, ,MREA(RY)

1SETUP TO CATCH TRAPS
tMASTER RESET

s INITIALIZE COMMAND @1
1 INITIALIZE COMMAND 62
10ISARM ALL COUNTERS
1 SELECT FREQ.OUTPUT REG.
+ INIT FREQ.OUTPUT REG.
1SET LOAD REGISTER

1SET LOAD REGISTER
1SET LOAD REGISTER
1SET LOAD REGISTER

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3628 021642

3629 021630
3630 021656
3631 021664

3632 021672
3633 021700
3634 021706
3635 021714
3636 021722
3637 021730
3638 021736
3639 021744
3640 021732
3641 021760
3642 021764
3643

012761
012761
012761
012761
012761
012761
012761
012761
012761
012761
012761
012761
012761
005037
000207

177415

000010
177421
000000
177422
000000

177423

000000
177424
000000

177425

000000

177537

002510

Wednesdey 03-Oct-84 14:03
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV
MOV
MOV
CLR
R7S

SEQ 0081

Pege 41-1
€177413,MREA(R])
#10,MREB(R]1)
0177421 ,MREA(R])

sSET LOAD RE” ISTER

€0 ,MREB(RY)

1CLEAR HOLD REGISTER

#0,MREB(R1)

;CLEAR HOLD REGISTER

0177422 ,MREA(R])

0177423 ,MREA(R])
€0,MREB(RY)
0177424 ,MREA(R])
00,MREB(R])
0177425 ,MREA(R])
€0, MREB(R1)
0177337 ,MREA(R])

INTFLA

tCLEAR HOLD REGISTER

1CLEAR HOLD REGISTER
sCLEAR HOLD REGISTER
1LOAD ALL COUNTERS
s INIT INTERRUPT COUNT

E7
GLOBAL AREAS

MACRO V0S5.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

Pege 43
10006000080 008800000060880009;

INTERRUPT SERVICE ROUTINES

;

1060800408000 0000000088800004;

i INTERRUPT SERVICE ROUTINE NXM - NON EXISTANT MEMORY TRAP,
e

THIS ROUTINE SETS A FLAG NXMFLG TO 1.

IT IS EXECUTED WHEN A NON

EXISTQ'S‘TNX'EMV TRAP OCCURS IF VECTOR 4 HAS BEEN LOADED WITH THE
NXMFLG SHOWLD BE CLEARED IMMEDIATELY BEFORE EXECUTING CODE WHICH MAY

ADORESS NON EXISTANT MEMORY.

021766
021766
021774

012737

000001

BGNSRV

MOV

002470

ENDSRV

NXM

€1 ,NXMFLG

1+ FLAG NXM TRAP

0000000000000 0000000000000000000000000000000000000%00000000

+ INTERRUPT SERVICE ROUTINE - INTSR
§ROVCCNICPPBV00000000000000000000800000800000000000000000000000

joe

1 THIS ROUTINE INCREMENTS A FLAG (INTFLA).

JWHEN AN INTERRUPT MAS OCCURRED.
‘

021776
021776
022002

005237

IT WILL BE EXECUTED

BGNSRV

INC
ENDSRV

002510

INTSR

INTFLA

s COUNT INTERRUPTS

§OOCOGSCCCCOPD000000000000000000000000000000000000000000000

+ INTERRUPT SERVICE ROUTINE - BADIV
§OCCOPGCCPP000000000000000000000000000000000000000000000000

1 THIS ROUTINE LOADS VECTOR ADDRESS INTO BIV. IT IS EXECUTED
sMHEN AN INTERRUPT OCCURS TO THE WRONG VECTOR.
:

18IV SHOULD BE CLEARED IMMEDIATELY BEFORE EXECUTING COOE WHICH MAY
1CAUSE THE INTERRUPT
‘--

022004
022004
022010
022016
022022

011637
162737
062706

002472
000004
000004

BGNSRV

002472

MOV

suB
ADO

ENDSRV

BADIV

(SP),BIV
#4,81IV
04,5P

sLOAD INTERRUPT VECTOR ADDRESS

1BACK UP TO CORRECT ADDRESS
1CLEAR STACK

§O00COCICOCIIOPOCOCNIONPOPPINIVIPGNVIVPDP
0000000000000 0000000000000000000000

s INTERRUPT SERVICE ROUTINE - CLINT

§0C000000000000000000000050000080000000000000000000000000800000000

F7
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3703

3704

e
3707

3798 022024

3710 022024

311 022026
3713

Wednesday 03-Oct-84 14:03

SEQ 0083

Pege 43-1

jeee

1 THIS ROUTINE IS A DUMY SERVICE FOR THE LINE TIME CLOCK INTERRUPT

T WILL BE EXECUTED WHEN AN INTERRUPT AT VECTOR 10615 OCCRED, -

‘---

BGNSRV CLINT

ENOSRV

ENOMOD

ACTION IN THIS ROUTINE
tNO ACT

G/
MISCELLANEOUS SECTIONS MACRO V0S5.00
GLOBAL SUBROUTINES SECTION
3725

3726

wWednesday 03-Oct 87 14:03

.TITLE MISCELLANEOUS SECTIONS

.SBTTL

3754

3757

; PRINT ROUTINE

3758
3759

§eo

3761

3760

3762
3763
3764
3765

3766
3767
3768
3769
3770
3771
3772

3773
3774

;;75

s FUNCTIONAL DESCRIPTION:
:
:
:

PRINTS OUT TEST TITLES, A CONFIGURATION TABLE OR A STATISTICS
TABLE FOR THE UNITS UNDER TEST. WMICH TO PRINT IS DETERMINED BY
USER INPUT.

3
3
H
3
:
H

THE CONFIGURATION TABLE SHOWS THE HAROWARE CHARACTERISTICS OF
THE UNIT UNDER TEST AND IF PRESENT, OF THE UNIT T0O WHICH IT IS
CONNECTED FOR LOOPBACK TESTING. IF THE FIRST UNIT MODE ADORESS
IS ZERO (IE. NO TESTS HMAVE BEEN RUN AND NO MAROWARE PARAMETERS
HAVE BEEN SET UP) THE AUTOMATIC CONFIGURATION ROUTINE °*CONFIG’
IS CALLED TO ASCERTAIN THE HARDWARE CONFIGURATION.

3
3

THE STATISTICS TABLE DISPLAYS THE NUMBER OF ERRORS WMICH THE
OIAGNOSTIC HAS DETECTED FOR EACH UNIT, AND WHETHER THE UNIT MAS

3778

3777

3779
3780

g?’:é

g;gz
3785

g;gf;

g;gg
3790
3791

g;g«g
3794
3795
3796
g;g;
3799
33:80
1

3802
3803
3804
3805
3806
3807
3808

REPORT CODING SECTION

B8GNMOD

3755 022026

3756

Page 44

H
3

BEEN DOROPPED FROM TESTING.
INPUTS:

THE USER IS ASKED TO TYPE A CHARACTER INDICATING WHETHER 10
PRINT THE TEST TITLES, THE CONFIGURATION TABLE, THE STATISTICS

TABLE OR HOW TO REESTABLISH THE SYSTEM CONFIGURATION.

s IMPLICIT INPUTS:
:

:
H

:
3

THE HARODWARE PARAMETER TABLE IS READ FOR THE CONFIGURATION

PRINTOUT .,

THE ERROR TABLE 'ECNT’ IS USED FOR THE CSTATISTICS PRINTOUT.
TEST TITLES ARE ASSUMED TO BE LABELLED WITH THE FORMAT TDHDnn,
WHERE nn IS THE TEST NUMBER. NTESTS AT THE START OF THE ROUTINE

MUST EQUAL THE NUMBER OF TESTS IN THE DIAGNOSTIC.

s OUTPUTS:
:
3
EITHER A LIST OF TEST TIT_ES, A CONFIGURATION TABLE OR A
H
STATISTICS TABLE ARE OUTFUT,
H

$
$

IF ANY UNIT HAS BEEN DROPPED OR DESELECTED USING THE “UNITS"
SWITCH, A MESSAGE “PLEASE TYPE ADD” MAY BE PRINTED.

s IMPLICIT OUTPUTS:
s
3
NONE.
3
;1 SUBORDINATE ROUTINES USED:
5
H
CONFIG - AUTOMATIC CONFIGURATION ROUTINE.

SEQ 0084

H7
MISCELLANEOUS SECTIONS
REPORT COOING SECTION

MACRO VOS.00

Wednesday 03-Oct-84 14:03
CONPRI
CRLF

3809
3810
3811
3812
3813
3814
3815
3816
3817
3818

SEQ 0085

Page 44-1

- CONFIGURATION PRINT ROUTINE.
- LINE FEED PRINT ROUTINE.

FUNCTIONAL SIDE EFFECTS:

IF NO HARDWARE PARAMETERS ARE SET UP, THE AUTOMATIC
CONFIGURATION ROUTINE IS CALLED TO GENERATE A HARDWARE P TABLE.
REGISTERS R1 TO RS ARE CORRUPTED.
CALLING SEQUENCE :
INVOKED BY THE OPERATOR PRINT COMMAND.

NTESTS=11.

000013
3827 022026
3828 022026
3829 022030
3830 022032
3831 022052
3832 022056
3833 022076
3834 022104
3835 022106
3836 022114
3837 022116
3838 022124
3839 022126
3840 022134
3841 022136

3843
3844
3845
3846
3847

022142
022162
022202
022222
022242

3849
3850
3851
3852
3853

022244
022264
022304
022324
022344

3855 022350
3856 022370
3857 022374
3858
3859 022400
3860
3861 022404
3862 022426
3863 022444
3864 022450
5865 022452

ASK
:

BGNRPT

MANUAL

BCOMPLETE 104
PRINTF

023727
001457
023727
001515
023727
001574
023727
001002
000137

023162

000122

023162

000124

023162

000103

023162

000123

EXIT

#PR2
#PR2A
#PR28
#PR2C
ASK

OTHERWISE, PRINT THE HELP MESSAGE

PRINTF
PRINTF
PRINTF
PRINTF

#PR20
SPR2E
SPR2F

PRINT HOM TO REESTABLISH
THE SYSTEM CONFIGURATION

PREX

AND EXIT

MOV

oTT
01,R1
#TADS ,R2

START WITH TEST 1
START OF LIST OF TITLE ADDRESSES

10¢:

MOV

#18. .R3

WAIT AFTER 18 LINES

:
204

PRINTF

#TNUM,R1

PRINT TEST NUMBER
AND TITLE

o,4

#2,R2
R1
R1,ONTESTS

RECON:

000001
023172

012703

000022

062702
005201
020127

TITLE:

PRINTF

000002

000013

EXIT PRINT ROUTINE

PRINTF
PRINTF
PRINTF
PRINTF

BNE
JHP

000671

012701
012702

PRINT THAT UAM MAS TO BE SET

PR1, CHAR A,377,1,4,YES; PROMPT FOR A COMMAND

HEL:

023152

IS MANUAL INTERVATION ALLOMED ?
IF YES, BRANCH (UAM NOT SET)

GMANID
cp
BEQ
crP
8EQ
cHp
8EQ
cHe

10¢:

022766

000137

#PRA
RPT

11 TESTS FOT TITLE PRINTOUT

RECW

CHAR,®'T
TITLE

CHAR,
&' C
CON
CHAR,#'S
HE L
STAT

#PR2G

(R2)

REESTABLISH SYSTEM CONFIG. ?
IF YES, QUTPUT INFORMATION
TEST LIST REQUESTED ?
IF YES, OUTPUT TITLES
CONFIGURATION REQESTED
?
IF YES, OUTPUT CONFIGURATION
STATISTICS REQUESTED
?
IF NOT, PRINT THE !'ELP MESSAGE
IF YES, OUTPUT STATISTICS

AND PROMPT FOR COMMAND AGAIN

TEST LIST HEADER

GET ADDRESS OF NEXT TITLE
AND NEXT TEST NUMBER
ALL PRINTED ?

17
MISCELLANEOUS SECTIONS

REPORT COODING SECTION

MACRO V0S5.00

Wednesday 03-Oct-84 14:03

B8GT
OeC
BNE

SEQ 0086

Page 44-2

30¢
R3
204

IF YES, EXIT
18 LINES OUTPUT ?
IF NOT, BRANCH
ELSE WAIT FOR OPERATOR TO READ
PRINT A LINE FEED

3866 022456
3867 022460
3868 022462

003015
005303
001350

3870 022504
3871 022510

004737
000733

014634

3873 022512

000137

023152

30¢:

JHP

PREX

EXIT

3875 022516
3876 022522
3877 022526
3878 022532
3879 022534

005037
005037

CON:

005737
001402
005237

023156
023160
002554

CLR
CLR

STFLG
GPFLG

ASSUME DIAGNOSTIC IS NOT STARTED
FLAG NO GPHARDS YzT EXECUTED

3881 022540
3882 022544
3883 022546
3884 022554
3885 022556

005737
001404
023727
003403
012737

002012

3887 022564
3888 022570

013746
005037

002074
002074

013701
005711
001003
012737

002554

013701
006301
005761
001010

002074

005237

023160

005771
001002
004737

002554

S04
:

015306

55¢:

3909 022672
3910 022674

003237
023737
002747
012657

002074
002074

3912 022700

004737

015656

3914
3915
3916
3917
3918
3919

005737
001520
005737
001515

023156

3869 022464
3872

3874

3880

022704
022710
022712
022716
022720
022740

3921 022742
3922 022762

GMANID
JSR
BR

10¢:

002012

TST
8EQ

LSUNIT
204

ANY UNITS SET WP

IF NOT, GRANCH

MOV

€16. ,LSUNIT

30¢:

MOV

LSLUN, -(SP)
LSLUN

SAVE THE UNIT NUMBER BEING TESTED
START WITH UNIT O

MOV

GPADD,R1

GET FIRST PARAM.

BNE
MOV

404
#171000,STADD

ELSE START FOR FIRST IAV/IDV ADOR.

LSLUN,RL

FORM OFFSET FOR UNIT

GPADO(R1)

PARAMETER ADORESS SET UP

BLE

CLR
TST

015572
404
:

MOV
BNE

S0¢

SET UP 16 UNITS

ANYTHING IN IT
IF YES, BRANCH

ADORESS

TABLES
?

TST

GPFLG

FLAG THAT GPHARD HAS BEEN USED

BNE
JSR

60¢
PC.CONFIG

S8GPADO(R1)

MODE ADORESS OF UNIT = 0 ?

INC
crP

LSLUN
LSLUN,LSUNIT

IF NOT, BRANCH
00 AUTO CONFIGURATION

BLT

404

(SP)e+ ,LSLUN

NEXT UNIT
ALL DONE ?
IF NOT, DO THE NEXT
RESTORE THE UNIT NUMBER

JSR

PC.,CONPRI

PRINT THE CONFIGURATION

STFLG

8EQ

PREX

BEQ

PREX

WAS DIAGNOSTIC STARTED ?
IF NOT, EXIT
HAVE WE USED ANY GPHARDS
IF NOT, EXIT

PREX

AND EXIT

PRINTF
JP

OPR6
PREX

TST

804

GPHARD
L $LUN,GPADD(R1)
BNCOMPLETE ASKADD

TST

023160

TOO MANY UNITS SEY WP
IF NOT, BRANCH

IF YES, BRANCH
ELSE, GET P TABLE ADDRESS
IF DESELECTED, REQUEST OPERATOR ADD

MOV
704
:

(R1)

INC

002012

304

ASL

TS7

002074

023152

STFLG

ARE ANY PARAMETFR ADDRESSES SET UP
IF NOT, BRAWNCH
ELSE FLAG DJ"GNOSTIC IS STARTED

20$:

ASKADD:
000137

INC

104

LSUNIT,#16.

002554

000504

GPADD

AND THEN CONTINUE

cHP

000020
002012

171000

TST

8EQ

023156

ROY,RFLG,A,377,0,1,YES
PC.CRLF
104

PRINTF

GPFLG
#PR7

ELSE PRINT

'USE STA OR RES’

ASK OPERATOR TO ADD UNITS
AND EXIT

J7/
MISCELLANEOUS SECTIONS

REPORT COOING SECTION

MACRO V0S5.00

3923

3924 022766
3925 023006
3926

3927 023026
3928

3929 023030

STAT:
005001

020137

3930 023034

001444

3932 023040

006304

3931 023036

002012

204 :

010104

SEQ 0087

Page 44-3

PRINTF
PRINTF

oPR3
OPR3A

1 PRIMT STATISTICS HEADER
;

CLR

s+ START WITH FIRST UNIT

cre

R1,L$UNIT

MOV

R1,.R4

8EQ
ASL

3 ALL UNITS REPORTED ?

604

+ IF YES, EXIT

#NO,R3
OROPED(R1)

1 ASSUME UNIT IS NOT DROPPED
+ CHECK IF IT IS

1 FORM OFFSET TO ERROR COUNT

016405
005705
100423

002514

MOV
TST
8MI

3937 023052
3938 023056

012703
105761

025006
002614

MOV
TST8

3940 023064
3941 023070
g:g 023116

012703

025002

30¢:

MOV
PRINTF
BR

304
#YES,R3
#PRS5,R1,R5,R3
S0

40¢:

PRINTF

#PR4,R1

s+ PRINT 'UNTESTED’

INC

s PREPARE FOR NEXT UNIT

604 :

JSR

PC,CRLF

: PRINT A LINE FEED

PREX:

EXIT

RPT

STFLG:
GPFLG:
CHAR:

.WORD
.WORD
.ASCIZ

O
O
/M

RFLG:

.WORD

TADS:

TITLES

3939 023062

001402

8EQ

000411

394; 023120
94

3946 023142

005201

gg?) 023146

004737

ga; 023144

S04 :

000731

014634

gggé 023152
3953 023156
3954 023160
3955 023162

023165
ggssg 023170

000000
000000
110

040
000000

040

000

3986

023172
023174
023176
023200
023202
023204
023206
023210
023212
023214
023216

55555555558

3981
3982 023172

030206
030574
031216
032120
033474
034076
034576
035270
036110

037122
037350

3989 023220

204

+ GET UNIT'S ERROR COUNT
+ IS IT NEGATIVE ?
+ IF YES, REPORT UNTESTED

s+ IF IT IS NOT, BRANCH

1 OTHERWISE PRINT YES
1 ELSE PRINT STATISTICS
s+ AND LOOK FOR MORE UNITS

t
i
:+

IF NOT, REPORT THE NEXT

SET IF DIAGNOSTIC HAS BEEN >TARTED
SET IF ANY GPHARDS ARE FYECUTED
STORE FOR OPERATOR INPUT

:+ FLAG FOR 'TYPE RETURN FOR MORE TITLES
;

LIST OF TEST TITLE ADORESSES

TSHD10
TSHD11

.NLIST BEX

3987

3988

ECNT(R4),RS
RS
404

3933 023042
3934 023046
39;2 023050

Wednesdey 03-Oct-84 14:03

gg’?o 023240

045

116

045

TT:

LASCII

/WNSATEST TITLES./

3992 023264

124

131

120

ROY:

.ASCIZ

/TYPE "RETURN“ FOR MORE TITLES/

LASCIZ /WNSA--------uu--uN2/

K7
MISCELLANEOUS SECTIONS

REPORT CODING SECTION

MACRO V0S.00

Wednesday 03-Oct-84 14:03

SEQ 0088

Page 44-4

ggg: 023322
2”942 023326
ggg; 023420

045
045
124

104
116
131

063 TNUM:
045 PRA:
120 PR1:

.ASCIZ /%D3/
.ASCIZ /#NsATO USE THE PRINT COMMAND, PLEASE CLEAR THE "UAM"” FLAG/
.ASCIZ /TYPE T,R,C.,S OR HELP/

4002 023552
4003 023651
4004 023743

045
045
045

116
116
116

045
045
045

PR2A:
PR28:
PR2C:

LASCIZ
.ASCIZ
LASCIZ

/#NeAC - PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC/
/#NsAR - PRINT HOM TO REESTABLISH THE SYSTEM CONFIGURATION/
/uNsAS - PRINT STATISTICS TABLESN/

400€ 024004
4007 024074

045
045

116
116

045
045

PR2D:
PR2E:

ASCIZ
ASCIZ

/#NsATO REESTABLISH THE SYSTEM CONFIGURATION, ANSWER THE/
/#NsAHARDWARE QUESTION TYPING “0” AS THE MOOE ADMRESS FOR 16 UNITS./

PROG.

ASCIZ

/sensA

PRIA:

"ASCIZ /HNBA- =
m o mmmmmemmmmaamaaion
ASCIZ raeAIT
ERRORS
OROPPEDRNY

4005

4008 024177
4009 024273
4010 024367

4011 024431
4012 024474
401

4012 024533

045
045

116

045
085

045
045

116
116

045
03

045

116

062

PRoF:
PR3:

.ASCIZ
.ASCII

/MAEG

MODE REGISTER ADDRESS (0) O ? O,0v0v svvvnveoes/
ToeoTER TEUEESS REL T D Trranr ot f

\¢N2¢A10vzxav 11 MODULE STATISTICS.

04S

116

045

PR&:

.ASCIZ

/#NsD3%A

4016 024564

045

116

045

PRS:

.ASCIZ

/SNSO3SSSNO3NS7ST/

4018 024605

045

116

045

PR6:

.ASCII

/s#NSAUNIT DROPPED OR DESELECTED - PLEASE TYPE “ADD"/

4021 024706

045

116

045

PR7:

.ASCIZ

/#NSAPLEASE TYPE “START" OR "RESTART" TO CONTINUE TESTING.®N/

4023 025002
4024 025006

131
116

105
117

123
000

YES:
NO:

.ASCIZ
"ASCIZ

/YES/
/MO/

401

4019 024667

4626

040

101

116

ASCIZ

"EVEN

4028
4029 025012

ENORPT

NO/

7/ AND TRY AGAIN/

.LIST BEX

4027

UNTESTED

L7
MISCELLANEOUS SECTIONS

PROTECTION TABLE

4031

MACRO v05.00

Wednesday 03-Oct-84 14:03
.SBTTL

4032

Page 45

PROTECTION TABLE

4033

4035

;+ TO PROTECT THE LOAD MEDIA.

4034

: THIS TABLE IS USED BY THE RUNTIME SERVICES

4036
4037

HER

BGNPROT

4038 025014
4039

4040 025014
4041 025016
404§ 025020
404

4044 025022
4045

000000
1777717
177777

1
-1

ENDPROT

;OFFSET INTO P-TABLE FOR MODE ADDRESS
1OFFSET INTO P-TABLE FOR MASSBUS ADORESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

SEQ 0089

M7
MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO V05.00

Wednesdey 03-Oct-84 14:03
.SBTTL

4060
4061
4062
4063
4064

SEQ 0090

Page 46

INITIALIZE SECTION

R
HE

: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

THE BEGINNING OF EACH PASS.

4065

4066

BGNINIT

4067 025022
4068

4092

4093

4094
4095
4096
4097
4098
4099
4100

4101
4102
4103
4104
4105
4106
4107
4108
4109

4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121
4122

4123

4124
4125
4126

4127

4128
4129

4130
4131
4132
4133
4134
4135
4136
4137
4138
4139

005037

START:

026214

PRINTF

004737
004737

O14654

004737

026650

005737
001404
023727
003403
012737

002012
002vuil

000020

002012

005037

026212

012700
012701

002640
000020

005020

005301
001375

012700
012701
105020
005301
001375
012700
012701
012720
005301
001374
000404

005037
005037
000534

LOOPEX
CLEAR LOOP FLAG
CLR
F
. START
READEF
OE
IS THIS A
NEW START ?
IF NOT, BRANCH
BNCOMPLETE RESTRT
SETVEC
#14,0113240,4340; sss JUST FOR DEBUG PROGRAM ses
IGNORE FURTHER INTERRUPTS TO VECTOR 100
SETVEC
@100,#CLINT,#340
PRINTF
SMARN
1CONNECT TEST CONNECTOR

002614
000020

1AND VOLTAGE SOURCE
tHALIT FOR OPERATORTO TYPE RETURN

PC.WROY
PC,CRLF

BRESET
JSR

PC,.SETCLK

LSUNIT

ANY UNITS CONFIGURED

204:

c
BLE
MOV

LSUNIT,016.
304
#16. ,LSUNIT

IF NOT, BRANCH
ELSE, SET UP 16 UNITS

304
:

CLR

ACFLG

CLEAR AUTO CONFIGURATION FLAG

#LOPFLG,RO
016. ,R1
(RO).
R1
S0¢

FLAG THAT LOOP CONFIGURATION IS NOT CHECKED
FOR POSSIBLE 16 UNITS

S0¢:

MOV
MOV
CLR
OEC
BNE

MOV
MOV
CLRB
DEC
BNE
MOV
MOV
MOV
OEC
BNE
BR

RO
#DROPED,
#16. ,R1
(RO).
R1
5S¢
#ECNT RO
#16. ,R1
#100000,(RO)
R1
604
STARES

GET UNIT OROPPED TABLE ADDERSS

10¢:

8€EQ

SSs:

002514
000020
100000

002634
002636

SWARN]

JSR
JSR

204

tPRINT A LINE FEED

H
:

RESET THE SYSTEM

SET UP CLOCK COUNTER
?

IF NOT, BRANCH
TOO MANY UNITS SET UP ?

CLEAR THE FLAG
ALL DONE ?
IF NOT, DO THE NEXT

THERE ARE 16 UNITS

CLEAR ALL 16 DROPPED UNIT FLAGS
GET ERROR COUNT FOR WT O
THERE ARE 16 WT'S

INIT THE ERROR COUNT
ALL CLEARED ?
IF NOT, CLEAR NEXT COUNT
ELSE, START TESTING WITH FIRST WT

RESTRT:

#EF .RESTART
READEF
BNCOMPLETE NEWST

IS THIS A RESTART
IF NOT, BRANCH

STARES:

CLR
CLR
BR

SHOW NO TESTS HAVE BEEN RUN THIS PASS
OR FOR THIS UNIT
START TESTING WITH FIRST WT

ISTFLG
TSUFLG
INIWUT

N7
MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO V0S5.00

4140

NEWST:

414} 025320

4142
4143
4144
4145
4146
4147
4148
4149

4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160

025326
025330
025334
025336
025356
025360
025364
025370
025372
025376
025402
025406

025410
025416
025420
025446
025454
4161 025462

4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175

025466
025474
025476
025524
025532
025540

025544
0235550
023552
023576
023602
025606

4176
4177 025610

4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192

025616
025622
025630
025632
025652
025654
025660
025666
025670

025674

025676
025706
025710
4193 025714
4194 025716
4195 625720
4196 025724

Wednesday 03-Oct-84 14:03

005737
001011

002634

READEF
OEF , NEW
BNCOMPLETE CONT

TST
BNE

ONTEST

CLR
TST

TSTFLG
ACFLG

CLR

ACFLG

DOCLN
005037
005737
001507
005037
004737
004737

002634
026212

10¢:

BEQ

026212

015656
014662

JSR
JSR

CONT:
052777

000100

000137

026202

154742

PWRFL:

052777

000100

000137

026162

005737
001014

002636

004737
005037
000422

014662
002636

012737
005237
022737
001011

177777

026214
000002

NXTWT:

002074

002074
002074

013705
006305

002074

002012

015306
000001

BNCOMPLETE NXTWT
SETVEC &4, 0NXM, #PRIO7
BIS
#100,8M00
o4
CLRVEC

#EF.PWR

PSEWL1

IS THIS A POMER FAIL
IF NOT, MUST BE NEXT UNIT
IGNORE NXM TRAPS
ELSE, LIGHT WT LED
RESTORE THE SUPERVISOR NXM VECTOR

TST

TSUFLG
104

WERE ANY TESTS RUN ON THE LAST UNIT

BNE

JSR

CLR

DOCLN

INC
cHP
B8GE
ASL

ONTEST1,LSLUN

PC,WRDY
TSUFLG
NEXT

®-1,LILUN

IF YES, BRANCH
ELSE PRINT A WARNING
LET THE OPERATOR READ IT
SHOW NO TESTS FOR NEXT UNIT

AND TEST THE NEXT UNIT

INITIALIZE LOGICAL UNIT NUMBER.

ARE \uf IN A UNIT LOOP

#WRSEL

BRANCH IF NO
IF YES PRINT NOT CORRECT UNIT SELECTED

LSLUN
LSLUN,LSUNIT
INIWT

NEXT LOGICAL UNIT TO BE TESTED ?
ALL UNITS TRIED ?
IF YES, START AGAIN

LSLUN,RS

MOV

R1,GPADD(RS)

L
T

JSR
MOV

PC,CONFIG
#1 ACFLG

TST

AND CONTINUE

LOOPEX
#2,L00PEX
NEXT

GPHARD
LSLUN,R1
BNCOMPLETE NEXT

026212

'RETURN’

READEF

MOV

002554

PRINT THE CONFIGURATION
WAIT FOR OPERATOR TO TYPE
THEN TEST THE FIRST UNIT

END

INC
cHP
BNE

INIWT

INIT TEST FLAG AGAIN
JUST DONE A RUN OF AUTO CONFIGURATION ?
IF NOT, TEST FIRST UNIT
ELSE, FLAG THAT THE RUN IS FINISHED

INIWT: MOV

026214

PC,CONPRI
PC,WROY

IS THIS A CONTINUE ?
IF NOT, BRANCH
IGNORE NXM TRAPS
ELSE, LIGHT WT LED
RESTORE THE SUPERVISOR NXM VECTOR
AND CONTINUE

PRINTF

10¢:

INIWT

IS THIS A NEW PASS ?
IF NOT, BRANCH
WERE ANY TESTS SELECTED LAST TIME
IF YES, BRANCH
IF NOT, TELL THE USER
AND RETURN TO THE SUPERVISOR

READEF
#EF.CONTINUE
BNCOMPLETE PWRFL
&4, 0NXM, SPRIO?
SETVEC
8IS
100, 800
TM
CLRVEC

PRINTF

005237
023737
002350

010165
005711
001024
304737
012737

154664

TSTFLG
104

PRINTF

SEQ 0091

Page 46-1

(R1)
3

AND RETURN TO THE SUPERVISOR

SAVE UNIT NUMBER

FORM OFFSET

GET PARAMETER TABLE ADDRESS IN R1
IF DROPPED, GET THE NEXT
ELSE SAVE THE ADDRESS
MODE ADORESS = O ?
IF NOT, BRANCH

ELSE DO AUTO CONFIGURATION FOR THIS UNIT
AND FLAG THAT WE ARE DOING IT

016501

002554

025770

011137
011137
062737
011137
062737
012137
062737

002416

002422

012137
012137

005037

002470

017701

154316

4207 026000
4208

4209 026012

4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220

4221
4222
4223
4224
4225
4226

4227

4228
4229
4230
4251
4232
4233
4234
4235
4236

4237

4238
4239
4240

4241
4242

002424

026371

4251
4252 026332
4253 026614

002420
002422
002424

SETVEC
MOV

000301
005737
001006
120127
001254
032777
04276S
012702
000402
012702
032702
010237

010000

002702

604
:

005037

002700

PSEWLL:

032700
001402
003237

000010

002700

005037

026214

002470
000300
000100
000420

154264
002514

704
:

S04:

‘w
e
@

ARE THERE ANY UNITS TO TEST

IF YES, START AGAIN WITH THE FIRST UNIT
ELSE PRINT "NO UNITS FOUND"

GPADO(RS),R1

' GET PARAMETER TABLE ADORESS IN R}

AND RETURN TO THE SUPERVISOR

(R1),M00
(R1),CSR

SAVE NEW MODE REGISTER ADORESS

(R1),CCR
. CCR
o4
¢
, INR
(R1)
06, INR

SAVE NEW CCR REGISTER ADORESS

(R1).,VEC
(R1).,PRIO

SAVE MEW VECTOR ADORESS
SAVE NEW PRIORITY

02,CSR

SAVE NEW INR REGISTER ADORESS

NOFLG
04, 0N, OPRIO7
8100
. R1
o4

IGNORE NIt TRAPS
GET MODE REGISTER CONTENTS
RESTORE N TRAP CATCHER

R1
NOF LG
704
R1,0300
NEXT
€100, 800

SWAB MOD REGISTER CONTENS
IS THE USED ADORESS ACCESSABLE ?
BRANCH IF NOT
IS IT A FIVE CHANNEL COUNTER ?
IF NOT BRANCH
SWITCH ON WT LED

FLAG UNIT IS BEING TESTED

#100000,ECNT(RS)

SET UP FOR FIVE CHANNEL COUNTER
HERE IF ID IS 300 (FIVE CHA. COUNTER)

#420,R2

604

910000,
R2

ASSUME SPECIFICALLY SELECTED TEST
SAVE TEST CONTROL MASK

LOTFLA
RO
0T ,RO
END
LOTFLA

INIT LOOP ON TEST FLAG
GET OPERATOR FLAGS
LOOP ON TEST SELECTED ?

R2 . CONPSK

IF NOT,

BRANCH

ELSE SET FLAG

LOOPEX
INIT

BEX
116
116
116
116
116
101

BRANCH IF ANOTHER UNIT FOUND

ONODEV

0
0

4243

4244
4245
4246
4247
4248 026216
4249 026276

108:

104
LSUNIT
INTWUT

OOCLN

SEQ 0092

Page 46-2

PRINTF

025764

4206 025774

1ST

3% §3g2833 g

025742
025762

8CC
002012

b -}

4200
4201
4202
4203
4204
4205

103014
005737
001323

Wednesdey 03-Oct-84 14:03

4197 025732
4198 025734
419 025740

MACRO V05.00

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

'
'

SET IF AUTO CONFIGURATION IS TC BE DONE
SET IF NOT THE COORECT UNIT IS SELECTED
IN THE START COMMAND

/9NsACONNECT TEST CONNECTOR AND REQUIRED VOL TAGE/

/9NsATO FIVE CHANNEL COUNTER MOOWLES THAT SHMOMLD BE TESTED./
/9NSAND TESTS MERE RUN - CHECK ANSWERS Y0 STARTUP QUESTIONS./
/9NSAND TESTS WERE RUN ON UNIT sD3#A./
/9NSASELECTED UNIT IS NOT A FIVE CHANNEL COUNTER.sN/
/8A0R I0 CODE

IS INCORRECT/

e
MISCELLANEOUS SECTiONS
INITIALIZE SECTION
4254
4255
4256
4257 026646
4258
4270

MACRO v05.00

Wednesdey 03-Oct-84 14:03
.LIS?
.EVEN

ENDINIT

BEX

Pege 46-3

SEQ 0093

DE
MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO V05.00

Pege 47

Wednesdey 03-Oct-84 14:03

1 St eSabelel el el el et el el 000l el i elel abebul el ol el el abal el o el el el el el 0000 96 08

4274

+ Seleleleieieluaieleiebeiatuieiaielalaiaialaiebelaiebeialalaialalsaiaivialaleee

373

4275

4276

4277

4278

1 SUBROUTINES USED DURING INITIALISATION. s
.SBTTL

SETCLK - ROUTINE YO SET UP DELAY COUNTS

goe

4279

1 FUNCTIONAL DESCRIPTION:

4281
4282
4283

H
3
:

4285

4290

4280

4284

4286
42:;
4289

THIS ROUTINE SETS UP 3 DELAY VARIABLES CALLED CNT25M, CNTSOO, AND
CNTSS. THESE GIVE DELAYS OF APPROXIMATELY 25 MILLISECONDS. SO0

MICROSECONDS OR 25 MICROSECONDS RESPECTIVELY IF USED AS FOLLOWS:

MOV

1¢: DEC
BNE

:
:

CNTXXX,RO

RO
14

THE COUNTS ARE DERIVED FROM AN L CLOCK IF THERE IS ONE.

OTHERWISE, THE OPERATOR IS ASKED TO TYPE 2 CHARACTERS ON THE

4291
4292
4293

:
CONSOLE 6 SECONDS APART.
3
3 INPUTS:

4295

4294

4296

:2223

:233
:3385
:fi

:%
4307

4308

:;(1’3
:gg
4313

:%{;
!

:g{g

:gig
4320
4321

4324
4325

4326
4327

NONE.

s IMPLICIT INPUTS:
3

IF CONT25M IS NOT ZERO (ALREADY SET UP), THE ROUTINE DOES NOTHING.

;1 OUTPUTS:

CONSOLE MESSAGE IF THERE IS NO L CLOCK ON THE SYSTEM.

; IMPLICIT OUTPUTS:
3

ONT25M CONTAINS THE COUNT REQUIRED FOR 25 MILLISECONDS.

CNT2S CONTAINS THE COUNT REQUIRED FOR 25 MICROSECONDS.

CNTS00 CONTAINS THE COUNT REQUIRED FOR 500 MICROSECONDS.

;s SUBORDINATE ROUTINES USED:
H

CRLF

- LINE FEED PRINY ROUTINE.

CLINT - DUMMY CLOCK INTERRUPT SERVICE ROUTINE

s FUNCTIONAL SIDE EFFECTS:
H

'
3

3
s

’

RO TO RS ARE CORRUPTED.
IF A LINE TIME CLOCK IS FOUND, VECTOR 100 IS SET UP SO THAT
INTERRUPTS TO IT ARE IGNORED. THE SETVEC MACRO CAN BE USED TO

SET UP THE VECTOR FOR A DEVICE INTERRUPT,

3 CALLING SEQUENCE:
3
'
JSR
PC,SETCLK
H

SEQ 0094

E8
MACRO v05.00 Wednesday 03-Oct-84 14:03
SET
DELAY COUNTS
UP
TO
NE
SETCLK - ROUTI

MISCELLANEOUS SECTIONS
4329

4330
4331
4332
4333
4334
4335
4336
4337

026650
026654
026656

026662
026664
026670
026674
026704
026732
026736
026742

005737
001402
000137

014626

SETCLK: TST

027524

CNT2SM

1 COUNTERS ALREADY SET UP?

SETEX

s IF YES, EXIT

CLR
GETPRI

Re
R2

3 CLEAR A COUNTER
3 SAVE CURRENT PRIORITY IN R2

CLoCX
SETVEC

L,R1
#4,0NXM,0340

s+ GET ADORESS OF CLOCKX TABLE
1 SET UP CLOCX CSA TRAP

BEQ

10¢:

005004

CLR

10¢

005037

027526

005037
005771
005737
005737
001005
005237
012771

002470

CLR

NIFLG

002470

TST
BNE

NXMFLG
LCLOCK

000000
002470

027526
000100

TST
TST

INC

00G000

SEQ 0095

Pege 47-1

MOV

CLKFLG

8(R1)
NXMFLG

CLKFLG

€100,8(R1)

IF NOT, BRANCH

s+ ASSUME THERE IS NO CLOCK WITH A CSR
1 CLEAR NXM FLAG

s+ ACCESS THE CLOCK ADDRESS
s sDON'T DELETE, NEEDED FOR FALCONe
;1 DOES THE CLOCK HAVE A REGISTER ?
s+ IF NOT, BRANCH

s+ ELSE FLAG THERE IS A CLOCK CSR
s AND SET IT UP TO INTERRUPT

s+ USE THE L CLOCK
026766
026774
027000
027006
027010

027012
027014

012703
026127
001401
005203

000006
000006

027174
30¢:
404 :

027102
027104

KLINT:

027110
027114
027142
027144
027150
027152

404 ;

4379
4380
4381
4382
4383
4384 027156
4385 027160

022626
005737
001402
005071

SETPRI

000241

006005

s
s+
3
3
;1

TO WAIT FOR 1ST INTERRUPT
AND DROP THE PRIORITY

RO
R3.RS
304
RO
204
USCLOK

CLR
INC
BNE

RS
R4
404

s CLEAR THE HMIGH COUNTER
s COUNT THE DELAY FOR S OR 6 INTERRUPTS
$

DEC

BEQ

RS
404
USCLOK
404

CLEAR RO AND THE CARRY BIT
HAS COUNT BEEN DROPPED ?
IF YES, START THE COUNTERS
1 WAITED TOO LONG ?
;s IF NOT, WAIT LONGER
s IF YES, ASSUME NO CLOCK

3
s
s IF TOO LONG, ASSUME NO CLOCK
S OR 6 INTERRUPTS?

s+ IF YES, TIDY WP

1+ ELSE KEEP COUNTING

SETPRI
SETVEC

R2
;1 RESTORE THE PRIORITY
@0100,0CLINT,#340; IGNORE FURTHER INTERRUPTS TO VECTOR 100

TS7

CLKFLG

CLR

S04 :

s IF SO HZ, 100 MS = S INTERRUPTS
:+ SO MZ CORRECT?

CLR
ov
BNE
DEC
BNE
JP

8tQ

000000

1+ IF YES, BRANCH
3 ELSE ALLOW 6 INTERRUPTS

R3.RS
i1 SAVE NUMBER OF INTERRRUPTS
#100,0KLINT,0340; SET UP THE CLOCK VECTOR

crP

027526

10¢
R3

MOV
SETVEC

RTI

027106

s SET VECTOR 4 TO UNUSED POOL

6 ,R3
6(R1),050.

INCB
BNE
B8R

027100

MOV
c

8€EQ
INC

204

027066
027070
4368 027072
4369 027074
4370 027076
4371
4372
4373
4374
4375
4376
4377
4378

000062

10¢:

010305

027042
027050
027052
027054
027056
027060
027062

LCLOCK: CLRVEC

CLC

ROR

(SP)+,(SP).

s+ TIOY UP THE STACK

S04

+ IF NOT, BRANCH

(R1)
RS

s CAN WE DISABLE A CLOCK ?

s+ ELSE, DISABLE CLOCK INTERRUPTS
s+ DIVIDE THE 100 MILLISECOND COUNTERS
; BY 4 TO GIVE 25 MILLISECONDS

027170
027172

ROR
ROR

RS
R4

CLC

SAVCNT

AND SAVE THE COUNT

; COME MERE IF NOT ENOUGH CLOCK INTERRUPTS OCCUR BEFORE THE COUNTERS OVERFLOW
027174
027200
027226
027232
027234

USCLG(
005737
001402
005071

SETPRI
SETVEC
TST

027526

8EQ
CLR

R2
+ RESTORE THE PRIORITY
#100,8CLINT, 0340: IGNORE FURTHER INTERRUPTS TO VECTOR 100
CLKFLG
CAN WE DISABLE A CLOCK ?
IF NOT, BRANCH
NOCL 0K
ELSE DISABLE CLOCK INTERRUPTS
8(R1)

+ USE THE CONSOLE FOR TIMING

4400
4401

4402
4403

4404

4405
4406
4407 027240
4408 027266
4409
4410 027306

4411 027312
4412 027314

177560
177562
177564
177566
NOCLOK :

105737
100375

10¢;

177560

013700
042700
020027
001001

177562
177600
000003

013737

177562

177566

027350

012737

000100

177560

027356
027362

012705
005305
001376
005204
000772

000360

4413 027320
4414 027324
4415 027330
4416 027332
4417
4418 027334
4419 027342
4421

ROR

4387 027164
027166

4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399

006004
000241
006005
006004
000524

®e

4386 027162

SEQ 0096

Pege 47-2

MACRO V05.00
Wednesday 03-Oct-84 14:03
SETCLK - ROUTINE TO SET UP DELAY COUNTS

MISCELLANEOUS SECTIONS

027364

027366
027370

027372
027376
027404
027406
027412
027416

027422
027426
027430
027432

027440

022626
005037
013700
042700
020027
001001

013737
004737

TKS=177560
TKB=177562
TPS=177564
TPB8=177566

KEYBOARD STATUS REGISTER
KEYBOARD CATA BUFFER
PRINTER STATUS REGISTER
PRINTER DATA BUFFER

SETVEC

#60,0TTINT, 8340

SET UP INTERRUPT VECTOR

TSTB

TKS

8IC
cP

#177600,R0
RO, #3

IS FIRST CHARACTER READY?
IF NOT, WAIT
ELSE GET THE CHARACTER
OISCARD UNMANTED BITS
IF tC, RETURN TO SUPERVISOR

PRINTF

8PL
MOV

BNE

OOCLN

204

K8, TP8

€100, TKS

NOW ECHO THE CHARACTER
OROP THE PRIORITY
ALLOW INTERRUPTS

304:
404
:

MOV
0€eC
BNE
INC
BR

9240. ,R5
RS
404
R4
304

SET UP MODWLO 240 COUNTER
START COUNTING
RS IS MODUL.O 240 COUNTER
UPDATE THE COUNTER
6 SECONDS/240 = 25 MILLISECONDS

TTINT:

SETPRI
CLRVEC

R2
60

RESTORE THE PRIORITY

MOV

ce
CLR
MOV
8IC

000003

177566

104
Tx8,RO

‘' TYPE 2 CHARACTERS 6 SECONDS APART’

SETPRI

:
204

177560
177562
177600

177562
014634

MOV

#TIMMSG

10¢:

(SP)e,(SP)e
TKS
T8, RO

#177600,R0

[ 4
BNE

RO, #3
10¢

MOV

T8, TP8

DOCLN
JSR

PC,CRLF

AND THE KEYBOARD VECTOR
TIOY UP THE STACK

OISABLE INTERRUPTS
ELSE GET THE CHARACTER
DISCARD UNWANTED BITS
IF t+C, RETURN TO SUPERVISOR
ELSE,

ECHO THE CHARACTER

AND PRINT A LINE FEED

3 SAVE THE COUNTERS
027444

010437

014626

SAVCNT

MOV

R4 ,CNT25M

SAVE THE 25 MILLISECONDS COUNTER

G&
MACRO v0S5.00
Wednesday 03-Oct 84
SETCLK - ROUTINE TO SET UP DELAY COUNTS

MISCELLANEOUS SECTIONS
4443 027450
4444 027454
4445 027460

4446 027462

012700
062704
005001
160004
005201
000774
010137

027476
027502
027506
027510
027512
027514
027516
027520

012700
062701
005002
160001
002402
005202
0C0774
010237

4461 027524
4462

4463 027526

4464
4465
4466 027530

4467

4468

204
:

30¢%:

MOV
ADO
CLR
suB

108

002402

027464
027466
027470
027472

4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460

MOV
ADD
CLR
SuB
BLY
INC
B8R
MOV

000062
000031

014630
000024
000012

T
INITIALISE RESW
REMAINDER < O ?
IF YES, BRANCH
ELSE INCREMENT RESWLT
AND TRY AGAIN
SAVE THE 500 MICROSECONDS COUNTER

NOW DIVIDE 8Y 20
TO NEAREST 20

RETURN

. WORD

SET IF DRS FINDS A CLOCK WITH A CSR

.NLIST
.ASCIZ
.LIST
.EVEN

B8EX

000000

CLKFLG:
TIMMSG:

TO NEAREST S50

SETEX:

045

NOW DIVIOE B8Y S0

RTS

000207

116

#20. ,RO
#10.,R1
R2
RO,R1
404
R2

SEQ 0097

R2,CNT25

404
:

045

#50. ,RO

025. R4
R1
RO,R4
204
Ri
104
R1,CNT500

Pege 47

INITIALISE RESWLT
REMAINDER <« O ?
IF YES, BRANCH
ELSE INCREMENT RESWLT
AND TRY AGAIN
SAVE THE 25 MICROSECONDS COUNTER

BLT
INC
B8R
MOV

014632

14:03

304

/8NSATYPE 2 CHARACTERS 6 SECONDS APART

BEX

HE
MISCELLANEOUS SECTIONS
AUTODROP SECTION

MACRO v0S5.00

Wednesdey 03-Oct-84 14:03
.SBTTL

4470
4471
4472
4473
4474
4475
4476
4477
4478

Page 48

AUTOOROP SECTION

+
+
i
+

THIS COOE IS EXECUTED IMMEODIATELY AFTER THE INITIALIZE CODE IF
THE UNIT(S) UNDER TEST ARE CHECKED TO
THE "ADR* FLAG WAS SET.
THOSE THAT DON’'T ARE IMMEDIATELY
SEE IF THEY WILL RESPOND.
DROPPED FROM TESTING.

4479 027600

BGNAUTO

4487 027600
4488 027626
4489 027632

SETVEC
CLR

4480

4490
449)
4492
4493
4494
4495
4496
4497
4498
4499
4500

S€EQ 0098

005037

005777

002470
152560

TSt

&4, O8NXM,#PRIO7
NXMFLG
8M00D

SET UP NON - EXISTENT MEMORY TRAP VECTOR.
CLEAR NON - EXISTENT MEMORY FLAG
REFERENCE MEMORY ADDRESS FOR THE DEVICE
TO SEE IF IT EXISTS.

i IF THE DEVICE DOESN'T EXIST, THE RESULTANT TRAP TO VECTOR 04 WILL
: CAUSE THE FLAG NXMFLG TO BE SET (SEE INTERRUPT ROUTINE NXM).
027636
027642
027644
027652
027654
027662

005737
001404

TST

002470

10s:

NXMFLG

104
BEQ
ooV
LSLUN
OOCLN
o4
CLRVEC
ENDAUTO

WAS THERE A TRAP

BRANCH IF NOT
ELSE OROP THE DEVICE
CLEAN WP COOE
.

RETURN VECTOR O4 TO NORMAL STATE

18
MISCELLANEOUS SECTIONS
CLEANUP CODING SECTION
4502
4503

4504

MACRO v05.00

Wednesdey 03-Oct-84 14:03
.SBTTL

SEQ 0099

Page 49

CLEANUP COOING SECTION

ges

4505

+ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED

4507

4506
4508

i AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

4509 027664

BGNCLN

4520 027664
4521 027665

BRESET
EXIT

4510
4519

4522

4534

4535

.EVEN

4537 027672

ENDCLN

4536

CLN

;1 DO A BUS RESET TO SWITCH OFF ALL LEDS

e ———

J8
MISCELLANEOUS SECTIONS
DROP UNIT SECTION

MACRO V05.00

.SBTTL

4539
4540
4541
4542
4543

SEQ 0100

Page S0

DROP UNIT SECTION

+ THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
+ TO NO LONGER BE TESTED.

112760

014600

000001

002614

027730

027734

027764

045

116

045

DROPD:

MOV
MOVB
MOV
PRINTF

RO,(SP).
#1,0ROPED(RO)

EXIT

NLIST
.ASC1Z
.LIST
.EVEN

BEX
égNiAUNIT #D2#%A OROPPED/

ENODU

010026

027674
027676
027704
027706

8GNOU

027674

RO
#OROPD,

4544
4545
4546
4547
4556
4557
4558
4559
4560
4561
4562
4563
4564
4576
4577
4578
4579
4580
4581
4582

Wednesday 03-Oct-84 14:03

SAVE RO CONTENTS

FLAG UNIT DROPPED IN PARAM TABLE

GET ORIGINAL RO CONTENTS
*UNIT DROPPED’

I<8
MISCELLANEOUS SECTIONS
ADD UNIT SECTION

MACRO V0S.00

4584

.SBTTL

4585

4586
4587

:+
;

4590

i--

4591

4592 027766

4603 027766

ADD UNIT SECTION

TC BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE TEST CYCLE.
BGNAU

CLRB

OROPED(RO)

4605 027772

EXIT

4619

.EVEN

4621 02777¢

ENDAU

4623 030000

ENOMOD

4604

4606
4618

4620
4622
4624

SEQ 0101

Page 51

pee
+ THE ADD-UNIT SECTION CONTAINS ANY COOE THE PROGRAMMER WISHES

4588
4589

4593
4602

Wednesday 03-Oct-84 14:03

105060

002614

i FLAG UNIT NOT DROPPED IN PARAM TABLE

L8
HAROMARE TESTS

ADD UNIT SECTION

MACRO V0S5.00

Wednesdey 03-Oct-84 14:03

.TITLE HARDWARE TESTS

4627
4638
4639
4674
4675 030000
4676
4677
4678
4679
4680

4687
4693
45694
4695
4696

4697

4696
4699
4700

4701
4702

4703
4704
4705

4706
4707
4708
4709
4710
a1
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4733
4734
4746
4747
4748
4749

4750
4751
4752
4753
4754

SEQ 0102

Pege 52

.SBTTL

TEST 1: Register NXM Test.

BGNMOO
1088468400 80800028000080008000200000008000000080082000080088048800640000000¢08

Test
:

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

10680880808 00800000088880888088080880000004
00800808808 0000000008080060080480000

004737

000420
030206

103467
005037

013701
162701
012702
005003
062701
005004
005711
005704
ona737
001407

004737
005203

BGNTST

CALL

015006

ITRAC1:

002416
000002

10¢:

015240

204

005302
001355
005703
001404
005737
001007
0035237

023737

001401
000726

8CS
CLR
SETVEC
MOV

ExQvl
ITRCNT
o4,8.0CATE, #PRIO7
MOOD,R1

SUB
MOV

30¢:

002504
002506

002504
EXQV1:
TSTEN1:

1SET COUNTER FOR 4 REGISTERS
tCLEAR LOCATION FOR ERROR MARK
1GET REGISTER ADDRESS

CALL
8€EQ

INSERT
204

TST
7ST

(R1)
R4

CALL
INC

ENDSEG
DEC
BNE

R2
104

ERAHMRD

TSHD1::
E€E101:

101,E101,EERA

304

LSLUN

TST
BNE
INC
cP
8EQ
BR

QvP
ExQvi
ITRONY
ITROEF , ITRCNT
EXQvi
ITRAC1

OOCLN

CLRVEC
EXIT

o4
TST

LOCATE

1 TEST REGISTER ADDRESS
1WAS THERE A TRAP?
1SKIP BRANCH IF “SFI” IS SET
1 IF _NO, BRANCK
s SKIP BRANCH IF “SFI* IS SET

tMARK THE ERROR

;ERROR HANDLER
:

tALL REGISTERS TESTED
1 IF NO, BR ANCH
tWAS THERE AN ERROR
sIF NO, DON'T DROP THE UNIT
tOROP THE UNIT UNDER TEST
tRUN THE CLEAN UP ROUTINE
1IS QUICK VERIFY PASS SELECTED?
sIF YES EXIT TEST
s ITERATION COUNTER « 1

sDEFAULT ITERATION EXECUTED
1 IF YES EXIT TEST
1IF NO, TEST ITERATION
8

1 SERVICE ROUTINE LOCATE
1 INCREMENTS R4 IF A TRAP TO 4
1tHAS OCCURRED

INC

.NLIST
.ASCIZ
ASCIZ
.LIST
EVEN

BEX
/#S2#AREGISTER NXM TEST.#N/
/REGISTER ADDRESSING ERROR - TRAP TO 4/
BEX

ENDSRV

062
107

INSERT

DOoOV

BGNSRV

123
105

R3
#2,R1

TST

002164

”2,R1
#,R2

sCALL SELECT ROUTINE
1GIVE TEST PARAMETER
1GIVE TEST HEADER ADORESS
sIF CARRY IS SET, EXIT TEST
tCLEAR ITERATION COUNTER
1SET UP INTERRUPT ROUTINE
1GET FIRST REGISTER ADORESS

CLR
ADD
BGNSEG
CLR

8EQ

005204

045
122

420

TSHD1

002504

SELECT

.WORD

M8
HARDWARE TESTS

MACRO V0S5S.00

TEST 1: Register NXM Test.

4755 030306

Wednesdey 03-Oct-84 14:03
ENDTST

Pege 52 1

SEQ 0103

N8
HARDWARE TESTS

MACRO V05.00

TEST 2: Reset Test
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
A775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787

.SBTTL

4803
4804
4805
4806
4807

4808

4809

4810
4811

4812

4813

SEQ 0104

Pege 53
Reset

Test

080800888883580002 0882004008808 80808808800000080800000480080800000800

Test 2

Reset Test.

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES
1905600000884 0808084004868042080486880480008880088400080080086080000800008004

030310
030310
030314
030316
030320
030322
030326
030330
030334
030340
030342
030344
030346
030350
030352

4790 030432
4791 030434
4792
4793
4794
4795

4799
4800
4801
4802

TEST 2:

180 4 860208

030354
030360
030362
030364
030372
030376
030400
030410
030412
4788 030420
4789 030426

4796
4797
4798

wednesdey 03-Oct-84 14:03

004737
000420
030574
103523
005037
005001

012701

012702

005202

BGNTST
CALL
. WORD

015006

TSHD2

002504

ITRAC2:
:

000001

177777

10¢:
:
204

006201

103375
006302
006302
006302
012703

ASL
ASL
ASL
MOV

000004
000100
015240

152024

052777
032777
004737

000100
000100
015240

151776
151770

013705
062702

002424
000006

016237
011537
023737
004737
001404

031016
002476
002474
015240

005737
001007
005237
022737

BGNSEG
BRESET

30¢:

404
:

002474

S0¢:

002476

000002
000002
002164

002504
000002

8IT
CALL
BEQ
ERRSOFT
CKLOOP

8IS
BIT
CALL
BNE

Exave
ITRCNT

CONMSK ,R1
#1,R1

R2
R1
204
R2
R2
R2
04 ,R3

#1950, 8400

INSERT
304
201,E201,EERG
#100, 8M00
€100, 8M00

INSERT

404

202 ,E202,EERG
INR,RS
#6,R2

RSAV(R2),G000D
8R5,6AD
G000 ,BAD
INSERT
704

704
:

022703

001406
005203
062702
062705
000747

ASR

8CC

032777
004737
001404

001004

8CS
CLR
CLR
MOVB
MOV
MOV
INC

SELECT

420

804:

203,£203,EERB
#4,R3
804
R3
#2,R2
#2,RS5
50¢

Qvp
Exave
TTRCNT

#2,ITRCNT

sCALL SELECT ROUTINE
tGIVE TEST PARAMETER
:GIVE TEST HEADER ADORESS
+IF CARRY IS SET, EXIT TEST
1CLEAR ITERATION COUNTER
1CLEAR TEMPORARY STORE
:GET MODUWE TYPE (FOR LATER USE)
tCNMASK FOR 5 CHA. COUNTER
1MODULE IDENTIFICATION
Po..

sMULTYPLY BY 10 TO GET TABLE
;OFFSET

:START WITH INR REGISTER
100 A BUS RESET
+1IS LED BIT CLEARED ?
:SKIP BRANCH IF "SFI" IS SET
:BRANCH IF YES
1ERROR HANDLER
:

;:SWITCH ON THE MOOWLE LED
+IS LED BIT NOW SET ?
s SKIP BRANCH IF "SFI” IS SET
1BRANCH IF YES
;ERROR HANDLER
;

:GET INR REGISTER ADDRESS
;POINT TABLE OFFSET TO INR CONT.

1GET FIRST COMPARE CONTENTS FROM TABLE
:GET FIRST REGISTER CONTENTS
1CHMP TABLE CONT.WITH REG. CONT.
1SKIP BRANCH IF “SFI” IS SET
L

1ERROR HANDLER
:

sALL REGISTER TESTED ?
tBRANCH IF YES
1COUNTER FOR NEXT REGISTER
1LOAD NEXT TABLE ADDR.
1LOAD NEXT REGISTER ADDR.
i
:

+IS QUICK VERIFY PASS SELECTED?
+IF YES EXIT TEST
s ITERATION COUNTER » 1
1 TWO ITERATION EXECUTED

B9
HAROMWARE TESTS

MACRO vV0S5.00

TEST 2: Reset Test
030564
030566
030570

001401

030574
030617
4820 030704
4821 030751

045
114
114
122

4814
4815
4816
4817
4818
4819

4822
4823
4824
4825 031016
4826
4827
4828 031026

Wedneesdey 03-Oct 84 14:03

000657

Exave
ITRAC2

105
105

104
104

107

TSHD2::

€201:
€20¢2:
€203

RSAV:

+IF YES EXIT TES?
1 IF NO, TEST ITERATION

1S7

EXQVe:

123

SEQ 0105

Pege S3 1

X
B8E

/8SQUARESET

EST.MN/

/ZLED BIT IN MOD REGISTER NOT CLEARED AFTER BUS RESET
/LED BIT IN MOD REGISTER CAN'T BE SET/
/REGISTER INCORRECT AFTER BUS RESET

léflEG. . 2.REG.,
BEX

3., 4,
0,

60340

;REG.

MASKS FOR S CHA.

COUNTER

HARDMARE TESTS

MACRO v0S5.00

TEST 3: Register R/W BRit Test.

.SBTTL

4830
4831

5EQ 0106

Pege S4

Wednesdey 03-Oct-84 14:03
TEST 3.

18800000004 0000000000000000080800000000000000000000000000000000000000000000000

Test

- Register R/W Bit

FOR TEST DESCRIPTION SEE 6.0 TEST

031030
031030
031034
071036
031040
031042
031046
031052
031060

§8% ERCISESAlfieptpsaspnagasans

000001

10¢:

014052
005714
014046

208:

005737
001010
0035237
023737
001402
000137

031216

045

117400

002164
002506
031052

123

EXQVS:
062

TSHD3: :

#PRIO?
R1

sOISABLE INTERMPTS
;CLEAR TEMPORARY STORE

304
R3
02 ,R2

1BRANCH IF YES
sCOUNTER FOR NEXT REGISTER
s1LOAD NEXT TABLE ADOR.

CONMSK ,R1
o ,Ri
¢-1,R2
R2
Ri
10¢
R2
R2
R2
01,.R3
MOD , REGADD
9301. ,ERRNBR
RWMAK(R2 ) , MASK
REGTS1
4, ,R3

ADO
B8R

02 ,REGADD
204

IST
BNE
INC

Qvp
EXQV3
ITRCNTY

$1IS QUICK VERIFY PASS SELECTED?
1IF YES, EXIT TEST
1ITERATION COUNTER - 1

8EQ
P

Exavs
ITRACS

sIF YES, EXIT TEST
s1IF NO, TEST ITERATION

L.NLIST
ASCIZ
LIST
.EVEN

BEX
/uS2¢8AR-W BIT TESTEN/
BEX

(o,

002504

:TEST MEADER AOORESS
sIF CARRY IS SE°, OON’'T BRANCH
1EXIT TEST IF CARRY IS SET
tCLEAR ITERATION COUNTER

nove
MOV
MOV
INC
ASR
8CC
ASL
ASL
ASL
MoV
MOV
MoV
Mmov
CALL
o

BEQ
INC
ADD

014052

SUMMERIES

+CALL SELECT ROUTINE
s TEST SELECT MASK

14
TST
ITRONT

ITRACS: SETPRI

000001

002416
000435
031242
013532
000004

SELECTY
420

75M03
8CcC
EXIT
CLR
LR

031164
031170
031172
031176
031204
031206
031212

031252

18:

002504

031062
031066
031072
031074
031076
031100
031102
031104
031106
031112
031120
03112¢
031134
031140
031144
031146
031130
031134
031162

031242
031250

CALLTM
LMORD

015006

Test.

EXIT T1ST

sNEXT REGISTER ADORESS
1TEST AGAIN WITH NEW PARNETER

ITROEF , ITRCNT

1.REG., 2.REG., 3.
0,
0.
0
.EVEN
ENDTST

$GET MODULE TYPE (FOR LATER USE)
tMASK FOR S CHA. COUNTER
s
sMODWLE IDENTVIFICATION
fevo
Feoo
MATYPLY B8Y 8. TO GET TABLE
1OFFSET
3
1START WITH FIRST REGISTER
sLOAD FIRST REGISTER ADDRESS
;LOAD FIRST ERROR NUMBER
1GET R/W MASK FORM TABLE
1CALL REGISTER TESY
14 REGISTERS TESTED ?

sOEFAMAT ITERATION EXECUTED

.4,
117400 ;R/W MASKS FOR S CHA. CNT

D9
HARDMARE TESTS
TEST &4

MACRO V0S5.00

Wednesdey 03-Oct-84 14:03

AM 9513 SUBREGISTER TESTS

SEQ 0107

Pege 55

4886
4887

SBTTL TEST &4
-AM 9513 SUBREGISTER TESTS
100000000000000000000000008006000000000000008000000000000008086000000000¢

4891

190000000000008000000060066000600000000000000004800006000000800080000080

4888
4889
4890

3
:
3

TEST &4

4899 031286
4900 031272
4901 031276
4902 031302
4903 031306
:% 031312

004737
000420
032120
103002

015006

005037
013701
004737
013701
005037

002504
002416
021470
002416
002470

.DOSABLE LSB
BGNTST
CALL
SELECT
LHORD
420

TSHD4
8CC
EXIT
18:
CLR
MoV
JSR
ITRACA: MOV
CLR
3

4%
4

4908 031316
:323 031324
4911 93313%2
4912 031334
4913 031340
4914 031344
4915 031350
4916 031356
4917 031362

4918 031360
4919 031372
4920 031376
4921 031402
4922 031406

4923 031410
4924 031420

4925 031422
4926 031424
4927 031426
4928 031432
4929 031436
4930 031442
4931 031446
4932 031452
4933 031456
4934 031460

012737
012737

000002
000001

012700
063700
010061
012761
012700
063700
010061
016102
033702
004737
001405

177400
002442
000002
000042
177740
002442
000002
000002
002434
015240

10¢:

000004

BOGNSEG
MOV
ADD
MOV
MOV
MoV
ADD

8EQ

ERRHRD
L ooP

ENDSEG
BGNSEG
MoV
ADD
MoV
MOV
81T
CALL
BNE
ERRMRD

::gg 031472

30¢:
'

012700
063700
010061
016102

Mov
MOV

MoV
MOV
8IT
CALL

177750
002442
000002
000002
002434
015240

4935 031470

4938 031474
4939 031476
4940 031502
4941 031506
4942 031512

002434
002442

177740
002442
000002
000002

1
ST
ITRONT
MO0 ,R1
PC.AMREST
MOD,R1
NOFLG

sCALL SELECT ROUTINE
s TEST SELECT MASK
sTEST HEADER ADORESS
sIF CARRY IS SET, DON’'T BRANCH
1EXIT TEST IF CARRY IS SET
sCLEAR ITERATION COUNTER
t1GET FIRST REGISTER ADDRESS
;RESET THE MOCALE
;1GET FIRST REGISTER ADORESS
170 DETECT IF A TRAP OCCURRED

TEST LOADING CONTROL & STATUS REGISTER AND READING RESWLTS

204 ;
012700
063700
010061
016102
033702
004737
001005

9513 SUBREGISTER TESTS

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

4892

4893
4894 031254
4895 031254
4896 031260
4897 031262
4898 031264

-- AM

CxXLOOP

92.8ITMSK
01 ,NUMBER
08 ,.R0
NUMBER , RO
RO, MREA(RY)
MITOG ,MREB(RL1)
OCICTN RO
MUMBER , RO
RO . MREA(R])
MREA(RL ), R2
BITMSK,R2
INSERT
204
401, ,ERR104

#CHISTN, RO
NUMBER, RO
RO,MREA(R])
MREA(R]) R2
B8ITMSK,R2
INSERT
30¢

402, ,ERR10S

ENDSEG

BGNSEG
MOV
ADD
MOV
MOV

1BIT MASK
sCOUNTER CMHANNEL
1BEGINNING OF LOOP ON ERROR SEGMENT
1LOAD MASK FOR MODE REGISTER AND
sADD CHANNEL NR
1SELECT MODE REGISTER
1SET TO TOGGLE MODE
1GET TOUT COMMAND
1ADD OHANNEL NUMBER

sLOAD INTO MREA (CSR)
1GET RESILT
s TEST THAT OUTX BIT IS CLEARED
s TEST IF ERROR MESSAGE IS REQUIRED
1 OK

1ERROR HANDLER
1+IF LOOP ON ERROR

sEND SEGMENT
1OEGINMING OF LOOP ON ERROR SEGMENT
1SET TOUT COMMAND
18IT NMUMBER (1-S)
1LOAD INTO MREA
1GET RESWLT
s TEST THAT OUTX BIT IS SET
t1TEST IF ERROR MESSAGE IS REQUIRED
1 0K
1ERROR HANDL.ER

1IF LOOP ON ERROR

1END SEGMENT
OCICTN,RO
NUMBER, RO
RO, MREA(R])
MREA(RL),R2

1BDEGINNING OF LOOP ON ERROR SEGMENT
1CLEAR TOUT COMMAND
18IT NUMBER (1-5)
1LOAD INTO MREA
1GET RESWLT

4943 031516
4944 0313522
4945 031526

4946 031530

033702
004737
001405

002434
015240

4947 031540
031542

4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4960
4961
4982
4963
4964
4985
4986
4947
4968
49689
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999

031544
031550
031554
031562

404
:

006337
005237
023727
003663

8IT
CALL
8EQ
ERRHRD
CXLOOP
ENDSEG
ASL

002434
002442
002442

INC
cHe
BLE

SEQ 0108

Pege 55-1

HARDMARE TES 1S MACRO v0S5.00 Wednesdey 03-Oct-84 14:03
-M 9513 SUBREGISTER TESTS
TEST 4

BITMSK,R2
INSERT
404

1 TEST

THAT OUT BIT

IS CLEARED AGAIN

séEST IF ERROR MESSAGE IS REQUIRED
s

403, ,ERR104

tERROR MANDLER
1IF LOOP ON ERROR
1END SEGMENT

BITMSK

1 SHIFT MASK BIT
1GET NEXT CHA. NUMBER
tALL CHA, DONE ?

NUMBER
NUMBER,
95
10¢

1NO,

THEN BRANCH

:+ LOAD AND READ LOAD REGISTERS
031564
031572
031600

012737
012737
012737

177410
000001
000002

031606
031610
031614
031620
031624
031632
031636
031642
031646
031652

013700
063700
010061
013761
010061
016103
020337
004737

002450
002446
000002

001410

002450
002444

S04:
604:

002444
000002
000004
002444
015240

#8!10,ELEMNT

1GET LOAD REGISTER MASK
sGET CHA. NUMBER
s INITIAL VALUE TO LOAD

ELEMNT,RO
, RO
GROUP
RO,MREA(R1)
COUNTR,MREB(R1)
RO,MREA(RL)

;BUILD ADDRESS
;ADD CHA. NUMBER
;sSELECT ADORESS
sLOAD VALUE
s SELECT ADORESS
1GET RESWLY
;IS IT THE SAME VALUE?
sEEST IF ERROR MESSAGE IS REQUIRED

MOV
MOV
MOV

BGNSEG
MoV
ADO
MOV
MOV
MOV
MOV
o
CALL
8EQ

€1 ,GROUP
92 ,COUNTR

MREB(R1),R3
R3,COUMTR

INSER

704

: ERROR DETECTED
031654
031664
031666
031672

031674
031702
031704
031706
031712
031720

;

004737

062737
103342

015240
002444

708
:

T73¢:

003237
023727
003727

ERRHRD
CxLOOP
CALL
BR

404, ,ERR106

INSERT

734

1ERROR HANDLER
1 IF LOOP ON ERROR
1SKIP BRANCH IF ~SFI~ IS SET
s TAKE NEXT CHANNEL
18UMP COUNTER
1GO UNTIL OVERFLOW

ADO
8CC
ENDSEG
INC
cP
BLE

A
. NUMBER
18UMP CH
sHIGH LIMITY
1GO0 FOR NEXT CHANNEL

;

: LOAD AND READ HOLD REGISTERS
031722
031730
031736

012737
012737
012737

031744
031746
031752
031736
031762
031770
031774
032000

013700
063700
010061
013761
010061
016103
020337

002450
002446
002444

:
804
904
:

MOV
MOV
MOV

BGNSEG
MOV
ADO
MOV
MOV
MoV
MOV

cHP

#8:20,ELEMNT

1GET HOLD REGISTER MASK
1GET CHANNEL NUMBER
+INITIAL VALUE TO LOAD

ELEMNT
RO
GROUP RO
RO,MREA(R])
COUNTR ,MREB(R1)
RO,MREA(R])

sBUILD ADDRESS
sADD CHANNEL NUMBER

#1,GROUP
#2,COUNTR

MREB(R1),R3
R3,COUNTR

tSELECT ADORESS
;1LOAD VALUE
1SELECT ADORESS
tGET RESWLT
$1IS IT THE SAME VALUE?

F9
HARODWARE TESTS
TEST 4

S000
5001
5002
5003
S004
5005
5006

032004
032010

032012
032022
S007 032024
S008 032030
5009
5010 032032
5011 032040
5012 032042
S013 032044
3014 032050
S015 032056
5016
S017 032060
5018 032064
5019 032066
5020 032072
021 032100
5022 032102
5023
5024 032106
5025 032114
5026
5027
5028 032120
5029

5030
5031
5032 032162
5033

MACRO V0S5.00

\Wednesdsy 03-Oct-84 14:03

9513 SUBREGISTER TESTS
004737

001410

INSERT
1004

sg’)&ST IF ERROR MESSAGE IS REQUIRED

ERRHRD
CxLOOP
CALL
B8R

40S, ,ERR107

1ERROR HANDLER
+IF LOOP ON ERROR
1SKIP BRANCH IF "SFI” IS SET
1LEAVE TEST

ADD
8CC
ENDSEG
INC
cHe
BLE

0201,COUNTR

1BUMP COUNTER
1G0 UNTIL OVERFLOW

GROUP
, #5
GROUP

18UMP GROUP NUMBER
sHIGH LIMIT
160 FOR NEXT GROUP

QveP
EXS4

tsgsWICK VERIFY PASS SELECTED

CALL
8EQ

015240

SEQ 0109

Pege 55-2

: ERROR DETECTED
3

004737
000404

015240

062737
103342

000201

005237
023727
003727

002446
002446

005737
001010
005237
023737

002164

001402
000137

002506

002444

1004:
110%:

1ST

BNE
INC
cre
8EQ
JP

002504

031306
EXSA

045

123

INSERT
1104

90+

804

ITRACA

1BUMP ITERATION COUNT
tOEFAMAT ITERATION COUNT
s TIME TO EXIT
100 THE TEST AGAIN

CLRVEC

{RESET TRAP VECTOR

NLIST

8EX

.LIST

8EX

EXIT

TSHDA
: .ASCIZ

.EVEN

ENDTST

ITRCNT
ITROEF ,

EXS4

TST

ITRCNT

/8S28AAM 9513 SUBREGISTER TEST sN/

G9
MACRO V05.00 Wednesdey 03-Oct-84 14:03
9513 SUBREGISTER TESTS
.SBTTL TEST S

SEQ 0110

Pege 56

INTERRUPT TEST

1009008880008 0000¢000008008000800008008000000000800000800000800000000000¢0202

H
;

;

TEST S

INTERRUPT TEST

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

10004680880 6600008840000000080080800000800800000800000000000000060008000¢0¢

004737

BGNTST
CALL
. WORD

015006

TSHDS

033474
103002
005037

002504

004737

021470

005037
005037
005037

1$:

8cC
EXIY
CLR

ITRCNT

JSR
SETVEC

PC,AMREST
VEC, #INTSR, #PRIO7

CLRVEC
SETVEC
SETVEC
GETPRI
SETPRI
ITRACS: CLR
CLR

002510

002470
002472

SELECT

420

CLR

14
TST

&400

VEC, #INTSR, #PRIO7
#4,08ADIV, #PRIO?

SAVPR1
0

INTFLA

NXMFLG

31V

+CALL SELECT ROUTINE
s TEST SELECT MASK
s TEST HEADER ADORESS
+IF CARRY IS SET, DON’'T BRANCH
1EXIT TEST IF CARRY IS SET
sCLEAR ITERATION COUNTER
sRESET THE MODWLE
$SETUP INTERRUPT SERVICE ROUTINE
1CATCH SUPERVISOR BUG

1SETUP TO CATCH TRAPS
s SAVE CURRPENT PRIORITY IN R2
:+ AND DROP THE PRIORITY
sINIT INTERRUPT FLAG
;s 70 DETECT IF A TRAP OCCURRED
;sZERO COUNT

; TEST IR’ BITS WITHOUT MASTER ENABLE SET
012737

002434
002474

012737
012737

002442

10¢:

005077

012702
063702
010277
012702
063702
010277
017737
022737
004737

S087
5088
5089
5090
5091

032506
032510
032516
032524
032532

#400,BITHMSX
#1,G000
#1 ,NUMBER

BGNSEG
CLR

SINR

ADO

MOV
MOV
ADO
MOV
MOV

002476
002476

cre
CALL
8EQ

001406
012702

MOV

204:

013777
013777
012777
012702

MOV
MOV
MOV

150010
150004

013777
012777

S083 032470
S084 032474
S085 032504

002434
002442
000042
177740

147706
147674
147670

ERRHRD
ENDSEG
BGNSEG
MOV
MOV
MOV
MOV

8CSR
, ER
NUMB
#M$70G, 8CCR

#CICTIN,R2
NUMBER,
R2
R2,8CSR
#CISTN,R2
NUMBER,
R2

R2,8CSR
8INR,BAD
#60340,B8A0
INSERT
204
#60340,Re2
501, ,ERR501

BITMSK, BINR
NUMBER
, B8CSR
#4706, 8CCR

#CICTN,R2

sMASK FOR

'EN’

BITS

tMASK FOR ' IR’ BITS
$MASK FOR CHANNEL NUMBER
1BEGINNING OF LOOP ON ERROR SEGMENT
+DISABLE ENABLE BITS

;SELECT MODE REGISTER AND CHANNEL
1LOAD TOGGLE MODE
1GET CLEAR TOUT COMMAND
1ADD CHANNEL NUMBER

1OUTPUT TO DEFINATE STATE (CLEAR TOUT)
1GET SET TOUT COMMAND
1ADD CHANNEL NUMBER
1SET TOUT (COURS IR SET)
1GET INTERRUPT REGISTER CONTENTS
+IR BITS SHOWLD BE CLEARED
3&51 IF ERROR MESSAGE IS REQUIRED
'

1SET UP FOR ERROR MESSAGES

;ERROR MANDLER

$tEND SEGMENT

1SET ENABLE BIT
1 SELECT MODE REGISTER AND CHANNEL
1SET TO TOGGLE MODE
1tGET CLEAP TOUT COMMAND

HY
MARDMARE TESTS
TEST S

MACRO V0S5.00

INTERRUPT TEST

S092 032536

5093
S09%4
S095
5096
S097
5098
5099
$100
5101
5102
5103
5104
5105
5106
5107

063702
010277
012702
063702
010277
012777
017737
013702
052702
020237
004737
001404

Wednesdey 03-Oct-84 14:03
ADD
MOV
MOV
ADD
MOV
MOV
MOV

002442

147652
177750
002442
147636
000037
147630

002474
060340
002476
015240

147634

002476

30%:

043777
017737
022737
004737
001406
012702

002474

147556
060340

015240

147562
002476
002476

023727

002434
002474
002442
002442

000137

032374

cp
CALL

R2,BA0
INSERT

BEQ
ERRHRD
ENDSEG

304
502, ,ERRS501

G000, SINR

cP
CALL

#60340,8AD
INSERT

8INR,BAD

8EQ

404

ERRHRD

503, ,ERRS02

sADD CHANNEL NUSER
tOUTPUT TO DEFINATE STATE (CLEAR TOUT)
tGET SET TOUT COMMAND

1ADD CHANNEL NUMBER

1SET TOUT (COUSE IR SET)
sCLEAR EN BIT ONLY (LEAVE IR BITS)
1GET INTERRUPT REGISTER CONTENTS
1SET UP FOR ERROR MESSAGES
1SET UNUSED BITS
sIR BITS SHOULD BE SETY
l(T,EST IF ERROR MESSAGE IS REQUIRED
'

sERROR MANDLER

tCLEAR IR B17
1GET INR CONTENTS
+IR BIT SOULD BE CLEARED
a‘T,E‘ST IF ERROR MESSAGE TS REQUIRED
'

#60340,R2

$1SET UP FOR ERRO MESSAGES
1ERROR HANDLER

ASL
ASL

BITMSK
G000

8GT

504

sSHIFT *EN' MASK BIT
sSHIFT ‘IR MASK BIT
s INCREMENT CHA. BIT NUMBER
sALL S CHANNELS DONE ?

ENDSEG

INC
cHP

000005

#60340,R2

BGNSEG
8IC

MOV
404 :

006337
006337
005237

GOO0D,R2

MOV

060340

NUMBER ,R2
R2,8CSR
#CSISTN,R2
NUMBER,R2
R2,8CSR
#37,8INR
S8INR,BAD

MOV

8IS

SEQ 0111

Page 56-1

NUMBER
NUMBER, #5

104

$BRANCH IF NO
s YES

s NO INTERRUPTS SHOLD HAVE BEEN GENERATED UP TO TH1S POINT
005737
004737
001404

S0$:

002510
015240

TST

CALL
8EQ

ERRHMRD

INTFLA

INSERT
604

504, ,ERRSO3

s TEST INTERRUPT COUNT
s TEST IF ERROR MESSAGE IS REQUIRED
1 OK
1ERROR MANDLER

: TEST THAT INTERRUFTS CAN BE GENERATED
3

S134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144

032754
032756
032764
032766

032772
032776
033000

033010
033012
5145 033020
5146 033026
S147
5148 033034

012777
000240
005737
004737
001404

012737
012737
012737

117400

147440

604 :

BGNSEG

MOV
NOP

T1S7

002510
015240

CALL
8EQ

ERRHRD

000001
000001

002434
002474
002442

704 :

2004:

ENDSEG

MOV
MOV
MOV

BGNSEG

€117400,8INR
INTFLA

INSERY
704

505, ,ERR503

#400,B8I TMSK
#1,G000
01 ,NUMBER

18608SET MASTER ENABLE AND INT ENBesss

;1VERY SHORT WAIT

1NO INTERRUPT SHOWLD APEARE
ch’G(ST IF ERROR MESSAGE IS REQUIRED
3

tERROR MANDLER
tMASK FOR

'EN’'

BITS

tMASK FOR ' IR’ BITS
1MASK FOR CHANNEL NUMBER
1BEGINNING OF LOOP ON ERROR SEGMENT

19
HARDMARE TESTS
TEST S

S149
5150
S151
51352
S153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
S164
5165
5166
5167
5168
5169
S170
aan
S172
5173
5174
S175
5176
5177
5178
5179
5180
S181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205

MACRO V05.00

INTERRUPT TEST

033036
033042
033050
033054
033060
033066
033074
033102
033106
033112
033116
033122
033126
033132
033140
033144
033146
033132
033154
033160
033164
033170
033174
033176
033206
033210
033214
033216
033226
033230
033234
033240
033244

033260
033264

Wednesdey 03-Oct-84 14:03

MOV
SETPRI
CLR
CLR
8IS
MOV
MOV
MOV
ADD
MOV
MOV
ADD
MOV

012701

005037
005037
0352777
013777
012777
012702
063702
010277
012702
063702
010277

147336
147324
147320

023727
004737
001431
005737
001021
162701

000001

110%:

020127
004737
001356
004737
000444

cre
CALL
BEQ
TST
BNE
suB
SETPRI
c
CALL
BNE
ERRHRD
CKLOOP
CALL

100¢:

062701
020137
004737
001430
000005

#PRIO7,R1
#PRIO7

8Iv
INTFLA

€100000, 8INR

NUMBER, BCSR
#M470G,8CCR

OCICTN,R2
NUMBER,
R2
R2,8CSR
#CISTN
R2
NUMBER,
R2
R2,3CSR

INTFLA,
0
INSERT

904

81V
100¢

#40,R1
R1
R1,#PRIO2

INSERT
110¢
506 , , ERRSO4

INSERT

1204
507, .ERRS05
#40,R1
R1,PRIO

904
:

INSERT
1204
S

010137
013737
000005

R1,BAL
gRIO.GOOO

002474

G000

033316

SEQ 0112

Page 56-2

tLOAD R1 WITH PRIORITY NUMBER
tOISABLE INTERRUP
., AT THIS POINT
:

sCLEAR INTERRUPT FLAG
1SET MASTER ENABLE IN INR
1SELECT MODE REGISTER AND CHANNEL
1SET TO TOGGLE MODE
1GET CLEAR TOUT COMMAND
s ADD CHANNEL NUMBER
tOUTPUT TO DEFINATE STATE (CLEAR TOUT)
$1GET SET TOUT COMMAND
sADD CHANNEL NUMBER
1SET TOUT (GENERATE INTERRUPT)
10ID INTERRUPT OCCUR
s TEST IF ERROR MESSAGE IS REQUIRED
$ OK
10ID AN INTERRUPT OCCUR?
s1YES, AT ANOTHER ADDRESS
;DECREMENT PRIORITY
1SET PRIORITY
+IS PRIORITY OVER 2 ?
1TEST IF ERROR MESSAGE IS REQUIRED
;BRANCH IF YES
;ERROR HANDLER
s TEST IF ERROR MESSAGE IS REQUIRED
+JOIN COMMON COOE
tERROR MANDLER
:

1CORRECT PRI FOR CMP
?
1PRIORXTY CORRECT
s TEST IF ERROR MESSAGE IS REQUIRED
1BRANCH IF YES
1SET UP DATA FOR ERROR MESSAGES
Beo

$SET UP DATA FOR ERROR REPORT
beoo
:
:
:

508, .ERR506

1ERROR HANDLER

SINR,BAD
4100000, GO0D
GOUD,BAD
INSERT
1224
509, .ERR507

;GET INR REGISTER CONTENS
1SET UP FOR ERROR HANDLER
;IS MASTER ENABLE CLEARED ?
;1TEST IF ERROR MESSAGE IS REQUIRED
1BRANCH IF YES
tERROR HANDLER

B8ITHMSK

1SHIFT ‘EN' MASK BIT
1 INCREMENT CHANNEL B8IT NUMBER
tALL CHANNELS DONE ?

:
1204

033326

033330
033336
033344
033352
033356
033360

017737
012737
033737
004737
001404

147070
100000
002474
015240

033370
033374
033400

006337
005237
023727

002434

002442
002442

002476
002474
002476

1224

000005

ASL

NUMBER
NUMBER,
#5

J9
HARDWARE TESTS
TEST 5

MACRO V0S5.00

INTERRUPT TEST

5206 033406
5207 033410
5208
5209 033414
5210 033420
Sell 033422
Sel12 033426
5213 033434
5214 033436
5215
5216 033442
S217 033446
5218 033454
5219 033462
5220 033470
Se21
3222
5223 033474

033524

003002
000137

8GT

033034

005737
001010
005237
023737
001402
000137

032336

005077

146756

045

Wednesday 03-Oct-84 14:03

130%:

002164
002504
002506

123

002504

EXSS:

062

SEQ 0113

Page 56-3

2004

130¢

s IF YES TERMINATE TEST

TST
BNE
INC
cHe
8EQ
JHP

QvP
EXSS

ITRCNT
ITRDEF , ITRCNT
EXSS
ITRACS

1 IS QUICK VERIFY PASS SELECTED
s YES
;BUMP ITERATION COUNT
sOEFAULT ITERATION COUNT
;TIME TO EXIY
1D0 THE TEST AGAIN

CLR
SETPRI
CLRVEC
CLRVEC
EXIT

SINR
SAVPRI

sDISABLE INTERRUPTS
; RESTORE THE PRIORITY

.NLIST
TSHDS:: .ASCIZ
LIST
.EVEN

s NO

o~
¥§$

sRESET TRAP VECTOR
1DEVICE INTERRUPT ADDRESS

8EX

/98S28AINTERRUPT

BEX

ENDTST

4 7\

TEST sN/

I<9
HARDWARE TESTS MACRO vV05.00
INTERRUPT TEST
-TEST S

Wednesdey 03-Oct-84 14:03

S229
5230
S231
S232
5233
S234
5235

LSBTTL

REFERENCE FREQUENCY TEST

1680080868000 0808000828000000808084806000080868000048080600000084884600880808000¢

3
¢

TEST 6

REFERENCE FREQUENCY TEST

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

188088888 0008800000008066408060888080800008080408048006000000888088880448080808¢

S238 033526
5239 033526
5240 033532
S241 033534
5242 033536
S243 033540
S244 033544
5246
5247
5248
S249

TEST 6

SEQ 0114

Page S7

033550
033554
033560
033560

004737
000420
034076
103002

015006

005037

002504

013701
004737

021470

012737

000001

.DSABLE LS8
BGNTST

CALL

002416

002442

ITRACG:

sCALL SELECT ROUTINE

420

8CC
EXIT
CLR

1¢
TST
ITRCNT

MOV

MOD,R1

1GET FIRST REGISTER ADORESS

MOV

#1 ,NUMBER

s CHANNEL NUMBER

TSHD6

1¢:

SELECT

.WORD

JSR

PC,AMREST

1 TEST SELECT MASK

s TEST HEADER ADDRESS

1IF CARRY IS SET, DON'T BRANCH
$EXIT TEST IF CARRY IS SET
tCLEAR ITERATION COUNTER

sRESET THE MOOWLE

$1SET UP ALL COUNTERS FOR 5 MMZ AND LOAD VALUE 10000
3253 033566
5254 033572
5255 033576
3256 033602
3257 033610
5258 033614
5239 033620
S260 033624
5261 033632
5262 033636
5263 033644
5264
5265
5266
5267 033646
3268 033654
5269 033662
5270 033664
5271 033666
5272 033670
5273
S274
5275
5276 033676
5277 033702
S278 033710
5279 033714
5280 033720
5281 033724
5282 033730
5283 033734
5284 033742
5285

104:

012700
063700
010061
012761
012700

MOV
ADD
MOV
MOV
MOV

#8,R0
NUMBER, RO
RO,MREA(R])
0005440, MREB(R1)
#8:10,R0

s SELECT MODE REGISTER
: ADD IN CHANNEL NR
1 SELECT MODE REGISTER
s SELECT SMH2
s SELECT LOAD REGISTER

INC
crP
BLE

NUMBER

1BUMP CHANNEL NUMBER

ADO
MOV
MOV

063700

010061
012761

005237
023727
003750

000005

NUMBER, RO
RO,MREA(R])
#10000. ,MREB(R1)
NUMBER, #5
104

s SELECT CHANNEL
s ADDRESS
;LOAD VALUE
sALL CHANNELS?
sMORE TO DO

s+ LOAD AND ARM ALL COUNTERS
012761
012761
000240
000240
000240
012761

012704
012737
012700
063700
010061
016124
003237
023727
003762

177537
177477

000002
000002

MOV
w

#CSILOA!37 ,MREA(RL)
#CHARM! 37 ,MREA(R])

;LET COUNTERS RUN

g
177637

002452
000001
177420
002442
000002
000004
002442
002442

MOV

000002

002442

000005

1START ALL COUNTER
iSTART ALL COUNTER

#CS0AS!37 ,MREA(RY)

1 SAVE COUNTERS

: READ OUT COUNTERS AND SAVE IN CNTVAL TABLE
‘
MOV
SCNTVAL ,R4
1 SAVE VALUES MERE
20%:

MOV
MOV
ADD
MOV
MOV
INC
CHP
BLE

#1,NUMBER

#8:20,R0

NUMBER, RO
RO,MREA(R])
MRFEB(R1),(R4).
NUMBER
NUMBER, #5
20¢

:f A. NUMBER
+
T HOLD REGISTER
{ANNEL NUMBER
ELECT COUNTER
1GET COUNTER VALUE
18UMP CHANNEL NUMBER
1ALL CHANNELS?
tMORE TO DO

V05.00 Wednesdey 03-Oct-84 14:03 Page 57-1
HARDWARE TESTS MACRO
CE FREQUENCY TEST
TEST 6

REFEREN

5286
5287

012702
012703
012700

5288 033744
5289 033750
290 033754

005004

5291 033760

5292 033762

5312 034032
5313 034034

5314 034044
S31S 034050
5316 034052
5317 034056
53168 034064
ggg 034066

304:

011200
020412
003001
011204
005722

5299 034000
!_,.‘isoow1 034002
S304 034004
5305 034010
5306 034012
5307 034014
5308 034016
5309 034020
S310 034022
5311 034026

MOV
MOV
MOV

002452
000005
023420

020012

5294 033766
5295 033770
5296 033772
5297 033774
5298 033776
3338‘3

; COMPUTE MIN AND MAX VALUES OF ALL COUNTERS
H

003401

5293 033764

404 :
S04 :

005303
001367

5328 034140
5329

cwe

RO,(R2)

MOV
cw
8GT
MOV
TST

(R2),R0O
R4,(R2)
S04
(R2),R4
(R2).

BLE

DEC
BNE

404

R3
304

f
;LOAD LOOP COUNT
tMIN
1 MAX

sLOAD NEW MINIMUM?

1NO

sLOAD NEW MINIMUM
sNEW MAXIMUM?
tNO
sNEW MAXIMUM
1BUMP POINTER

:
sLOOP TO FIND MAX & MIN

; SEE IF THE COUNTER VALUES WERE IN EXPECTED RANGE

020427
002015
005700
003413
010402
160002
020227
004737
003404

005737
001010
005237
023737
001402
000137

023420

045

cp
8GE
TST
BLE
MOV
SuUB
cHp
CALL

R4, #10000.
708
RO
704
R4 ,R2
RO,R2
R2, #2
INSERT

704 :

ERRHRD

TST
BNE
INC
cp
BEQ
JP

601, ,ERR130

EXS6:

EXIT

TST

000002
015240

BLE

002164
002504
002506

002504

033560

5321 034072
5323
5324 034076
5325
5326

CLR

#CNTVAL ,R2
#5,R3
#10000. ,R0O

5322

S327

SEQ O

123

062

.NLIST
TSHDG6::.ASCIZ
.LIST
.EVEN
ENDTST

704

Qvp
EXS6
ITRCNT
ITROEF , ITRCNT
EXS6
ITRAC6

s0I0 COUNTER MOVE?
sSTRANGE VALUES
;ROUGH TEST
:
;GET DIFFERENCE (MAX-MIN)
sALLOWABLE OIFFERENCE
1SKIP BRANCH IF ~SFI~ IS SET

t1BRANCH IF YES (LESS THEN 3)

+IS QUICK VERIFY PASS SELECTED
s YES
;BUMP ITERATION COUNT
tDEFAULT ITERATION COUNT
s TIME TO EXIT
100 THE TEST AGAIN

BEX
/#S2ewAREFERENCE FREQUENCY TEST sN/
BEX

115

M9
HARDWARE TESTS
TEST 7

5331
5332
5333
5334
5335
5336
5337
5338
S339
S340
5341
5342

S343
S344
5345
5346
5347
5348
5349
5350
S3351
S$352

MACRO V05.00

Wednesde

03-Oct-84 14:03

SIGNAL GENERATION ON COUNTER INPUT

SEQ 0116

Page S8

.SBTTL TEST 7

SICHAL GENERATION ON COUNTER INPUT

10680 840 8 8800080048000008008400000800000080000080000000000800080000000000

:
:

TEST 7

SIGNAL GENERATION ON COUNTER INPUT

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

190 0 0 40 0 020008000488080808888080002840800048044000048000800808008480600

004737
000420
034576
103002

.DSABLE LSB
BGNTST

CALL

015006

1¢:

013701
004737

012737
012737
012700
063700
010061
012761
012700
063700
010061
005061
012700
063700
010061
013737
006237
013702
005302
001005
012702
012737
012700
060200
010061
012761
012700
060200
010061
012761
012700
063700
010061
012700
063700
063700
010061

420

8CC
EXIT
CLR

1
TSY
ITRCONT

sCALL SELECT ROUTINE
s TEST SELECT MASK
s TEST HEADER ADDRESS
s IF CARRY IS SET, DON'T BRANCH
sEXIT TEST IF CARRY IS SET
1CLEAR ITERATION COUNTER

MOV
JSR

MO0 ,R1
PC.AMREST

1GET FIRST REGISTER ADORESS
tRESET THE MODWLE

MOV
MOV

€1 ,NUMBER
91,BITMHSK

1 CHANNEL NUMBER

ADD
MOV
MOV
MOV
ADD
MOV

NUMBER ,RO
RO,MREA(R])
€000050 ,MREB(R1)
#8!10,R0
NUMBER,
RO
RO,MREA(R])

ADO
MOV

BITMSK,RO
RO,MREA(RY)

TSHD?

005037

002442
002434

ITRAC?:

177410

002442
000002
000004

CLR
MOV

177300
002434

000002

002434

002436
002442

000005
177420
177400
000002
005440
177410
000002

000003
177500
002436
000002

177440

002436
002434
000002

BGNSEG

MoV
ASR
MOV

002436

204 :

SELECT

LHORD

DEC
BNE
MOV
MOV
MOV
ADD
MOV
MOV
MOV
ADD
MOV
MOV
MOV
ADD
MOV
MOV
ADD
ADD

MOV

MREB(R1)
#CILOA,RO

BITMSK,BITMS1
BITMS]
NUMBER ,R2

R2
204
#5,R2
#8!20,8ITMS)
#8.R0
R2,.RO
RO,MREA(R1)
#5440 ,MREB(R])
#8!10,R0
R2.RO
RO,MREA(R1)
#3,MREB(R1)
#CILOA,RO
BITMS1,RO
RO,MREA(R1)
S#CS$ARM,
RO
BITMS1,RO
BITMSK,RO

RO,MREA(R1)

1 SELECT MODE REGISTER
1ADD IN CHANNEL NR
+ SELECT MODE REGISTER
1 SELECT INTERNAL LOOP BACK
s SELECT LOAD REGISTER
1 SELECT CHANNEL
H ADORESS

s INIT COUNTER
s LOAD

;ADD IN CHANNEL NR
$STARTS CNUNTER
tBEGINNING OF LOOP ON ERROR SEGMENT
1BUILD SECOND BIT MASK

;COMPUTE TCN-1
s WRAP AROUND

$BIT MASK
;1SELECT MODE REGISTER
1ADD IN CHANNEL “R
1SELECT MODE REGISTER
;SELECT SMHZ FREQUENCY
tLOAD AND ARM TAK COUNTER
s CHANNEL NUMBER
s ADDRESS
:SETUP COUNTER
i START COUNTER

:ADD IN CHANNEL NR
1 START COUNTER

N9
HARDWARE TESTS MACRO V05.00 Wednesday 03-Oct-84 14:03
-~ SIGNAL GENERATION ON COUNTER INPUT
TEST 7
5386
5389
5390
5391
5392
5393
5394
5395
5396
S397
5398
5399
S400
5401
5402

034420
034422
034424
034426
034430

034432
034436

034442
034446
034452
034456
034462
034466

034472

5403 034476

5404
5405
5406
5407
5408
5409
5410
5411
5412
5413
S414
5415
5416

034502
034506
034510
034520
034522
034524
034530
034534
034542

034544
034550
034352
5417 034556
5418 034564
5419 034566
5420
5421 034572
5422
5423
S424 034576
5425
5426
5427
5428 034652
5429

000240
000240
000240
000240
000240
012700
063700
010061
012700
063700
010061
012700
063700
010061

016103
004737
001005

NOP
NOP
NOP
NOP

NOP

177700
002436
000002
177600
002434
000602

MOV
ADD
MOV

177420

MOV

ADD

MOV

ADD

002442
000002
000004
015240

11%:

MOV
MOV
CALL
BNE
ERRHRD
CKLOOP
ENDSEG

006337
005237
023727

002434
002442
002442

005737
001010
005237
023737
001402
000137

002164

TST

002504
002506

INC

003622

000005

BLE

002504

034174
EXS7:

045

123

062

ASL

;:LET COUNTER GO
#CS$0AC,RO
BITMS1,RO

;OISARM COUNTER
: CHANNEL NUMBER

9C4DAS ,RO
BITMSK,RO

; CHANNEL NUMBER

#8!20,R0

:HOLD REGISTER

RO,MREA(R1)

NUMBER ,RO
RO,MREA(RL)
MREB(R1),R3
INSERT
114

701, ,.ERR115

BITMSK
NUMBER
NUMBER, 05
104
QvP
EXS7?
ITRCNT

ITROEF , ITRCNT

8EQ

EXS7
ITRAC?

EXIT

TST

NLIST
TSHD?::. ASCIZ
.LIST
.EVEN
ENDTST

SEQ 0117

Page 58-1

BEX

:DISARM COUNTER

sCOUNTER -> HOLD REGISTER

s TEST IF ERROR MESSAGE IS REQUIRED
:DID CLOCK TICK
;ERROR HANDLER
;:IF LOOP ON ERROR
;END SEGMENT
tSHIFT TO NEXT BIT
1BUMP CHANNEL NUMBER
sALL CHANNELS?
:MORE TO DO
S$SSWICK VERIFY PASS SELECTED
:

;8UMP ITERATION COUNT
:OEFAULT ITERATION COUNT
;:TIME TO EXIY
;00 THE TEST AGAIN

/9%S28ASIGNAL GENERATION ON COUNTER INPUT sN/

BEX

B10
03-Oct-84 14:03
HARDMARE TESTS MACRO VO0S.00
TEST 8 -- EXTERNAL LOOPBACK, NOT ISOLATED
481

S€Q 0118

Pege 59

432
$433
S434

LSBTTL TEST 8
-EXTERNAL LOOPBACK, NOT ISOLATED
100006000000000000060000000000000080080000000000800:00000000000000000000
i
TEST 8 -- EXTERNAL LOOPSACK, NDT ISOLATEL
3

S436

100000000000000000000000000000000000000000000000000000000000000000000000

5435

S437

SA38
S439 034654

S440 034654

004737

S442 034662
S443 034664

035270
103002

S441 034660
S444 034666

000420

FOR TEST DESCRIPTION SEE 6.0 TES:1 > ®THIES

.OSABLE LS8
BGNTST

015006

CALL

SELECY

;CALL SELECT ACUTINE

s TEST MEADER ADORESS
1IF CARRY IS SET, OONM'T BRANCH

CLR

ITRCNT

sCLEAR ITERATION COUNTER

MOV
JSR
MOV
MOV

0D, RL
PC.NMEST
#0127 ,MREA(RY)
061000, ,MREB(R])

sGET FIRST REGISTER ADORESS
sRESET TME MODWLE
1SELECT FREQ OUTPUT ONTRL REG
1 SELECT S LOOPSACK FREQUENCY

MOV
MOV
MoV
MoV
OGNSEG
MoV
ADO
2 7
MOV

01 ,NUFBER
01 ,8ITMSK
0400, SRC
010. ,LOOP

1CHANMNEL NUFBER

LMORD

TSHDS
8cC
ExIT

TST

1 TEST SELECT MASK

1EXIT TEST IF CARRY IS SET

S44S 034672

005037

002504

SA47 034676
S448 034702
S449 034706
S4S50 034714

013701
004737
012761
012761

002416
021470
177427
061000

000002
000004

S4%2 034722
S4S3 034730
S4AS4 034736
SASS 034744
5456 034732
S457 034754
S458 034760
S459 034764
5460 034770

012737
012737
012737
012737

000001
000001
000400
000012

002442
002434
002464
002466

5461 034774
S462 035000
S463 035004
S464 035010
5465 035014
S466 035020
S467 035024
S468 035030
5469 035034
S470 055040
S471 035044
:_‘g 0350350

012700
063700
010061
012700
063700
010061
012700
063700
010061
005061
012700
063700
010061
012700
063700
010061

177400
002442
000002
000010
002464
0O0N0OO4
177410
002442
000002
000004
177500
002434
000002
177440
002434
000002

S474 035054

000240

S478 035062
S479 035066
;:2 035072

012700
063700
010061

177600
002434
000002

MOV
ADD
MOV

OCIDAS RO
B8ITMSK,RO
RO,MREA(RL)

1OISARM COUNTER
s CHANNEL NUMBER

5482 035076
S483 035102
5484 035106
5485 035112
5486 035116
5487 035122

012700
063700
010061
016103
004737
001026

177420
002442
000002
000004
015240

MOV
ADO
MoV
MOV
CALL
BNE

#8120,R0
.
RO, MREA(RY)
MREB(R1),R3
INSERY
S0¢

sHOLD REGISTER

S4S1 034722

S47S 035056

1¢:

420

ITRACS:

108:
204 :

ADD
MOV
MOV
ADD
MOV
CLR

MoV
ADOD

MOV
mov
ADD
MOV

#8,.R0
MNUMBER , RO
RO, MREA(RL)
€10,R0

SRC,RO
RO, MREB(R]
#8!10,R0
NUMBER, RO
RO,MREA(R])
MREB(RY)
OCSLOA RO
8ITMSX,RO
RO ,MREA(R]1)
C AR, RO
8ITMSK,RO
RO,.MREA(R])

NOP

000240

NOP

s INIT SOURCE
;SETUP LOOP COUNT
;BEGINNING OF LOOP ON ERROR SEGMENT
s SELECT MODE REGISTER
1ADD IN CHANMEL NR
sSELECT MOOE REGISTER
sCOUNT P
1SOURCE OR GATE
1SELECT SOURCE
sSELECT LOAD REGISTER
sSELECT CHANNEL
s ADDRESS
1 INIT COUNTER
sLOAD
tADD IN CHANNEL MR

1STARTS COUNTER
s ARM
1ADD IN CHANNEL NR
1STARTS COUNTER
1LET COUNTER GO

tCOUNTER -> MOLD REGISTER

1TEST IF ERROR MESSAGE IS REQUIRED
1010 CLOCKX TICK

C10
MACRO V0S5.00 MWednesdey 03-Oct-84 14:03
EXTERNAL LOOPBACK, NOT ISOLATED

HAROMARE TESTS
TEST

5488 0335124
5489 035130
5490 035132
5491 035136
5492 035142
5493 033146
5494 033150
5495 033160
5496 035162
S497 0335166
S498 0335176
5499 035200
5500

5501 033202
5502 033210
5503 035214
5504

013702
000302
042702
020227
004737
003005
000402

162702

1SOURCE OR GATE
tGET 70 LOW ORDER

SRC,R2

002464

R2
€177740,R2

177740
000005
015240

Re, 05

INSERT
30¢
801, ,ERR116

30¢:

000005

404 ;

SuUB

ERRHRD

404

1CLEAR OTHER BITS
1 SOURCE
1 TEST IF ERROR MESSAGE IS REQUIRED
sNO, GATE
1ERROR MANDLER

o5,.R2

802, ,ER116A

+IF LOOP ON ERROR

1END SEGMENT
062737
005337
001256

002466

006337
003237
023727

002434

005737
001010
003237
023737

002164

003640

001402
000137

002464

ADO

1OUMP TO NEXT SOURCE
sADOMSST LOOP COUNT
sLOOP FOR MNEXT SOURCE

0400, SRC

LOOP
20¢

1SHIFT T0 NEXT 8IT
sure

002442

JQSMCK VERIFY PASS SELECTED

TS7

;1OUMP ITERATIOM COUNT
sOEFALT ITERATION COUNT
sTIME T0 EXIT
100 THE TEST AGAIN

034722

ExS8:

123

5524 035344

SEQ 0119

Page 59 1

062

EXIY

LNLIST
TSHDS8::.ASCI2
LIST
.EVEN

8EX

/9S2uAEXTERNAL LOOPBACK TEST, NOT ISOLATEDsN/

BEX

ENDTST

N1
N

D10
HARDMWARE TESTS
TEST

MACRO v05.00

Wednesde

EXTERNAL LOOPBACK, ISOLATE

14:03

SEQ 0120

Pege 60

.SBTTL TEST 9

5527
5528
5529
5530
5531
SS3
5533
S534

S$S3S 035346

03-Oct-84

EXTERNAL LOOPBACK,

ISOLATED

1008800000008 008000000000000008000000000000000080000004600000606000000800000

TEST 9

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

EXTERNAL LOOPBACK,

ISOLATED

1000086008000 0080008000800004000008008000000000000400800000000808008006000009

004737

000420
036110
103002

015006

1%:

005037

013701
004737
012761
012761

CLR

18
1S7

ITRCNY

sCALL SELECT ROUTINE
1 TEST SELECT MASK
s TEST HEADER ADORESS
1 IF CARRY IS SET, DON'T BRANCH
1EXIT TEST IF CARRY IS SET

tCLEAR ITERATION COUNTER

002416
021470

M00,R1
PC.AMREST

070000

#70000,MREB(R1)

1GET FIRST REGISTER ADORESS
sRESET THE MODWLE
1SELECT FREQ OUTPUT CNTRL REG
1SELECT 3MM LOOPBACK FREQ. FOUT=OFF

01 ,NMBER
01,8ITHSK
0400

sCHANNEL NUMBER (FOR INC)
sCHANNEL NUIMBER (FOR SMIFT)
s INIT SOURCE

177427

012737
0127%7
012737

08:27,MREA(R]L)

002442

ITRACY:

002434

010061
012761

013737
006337
013702

002442

020227

000005

012702
012737

000001
000001

012704

000002

012700
060200
010061
012700
063700
010061
012700
060200

177400

005202
003405

5581 035372
3582 035376
5583 035602

002434
002436

000002
000050
002464
000004

177410

002436

:
204
30¢:

NUMBER,
RO, MREA(R])

MREB(R1)

10¢:

012700
063700
010061
012761
012700
063700

3228338288 92 RIR3E3 p 3383338

1SETUP FIRST COUTER FOR 100 KHMZ GENERATION ON COUNTER OUTPUT.

#8:10,R0
NUMBER,
RO
RO,MREA(RL)

025. ,MREB(R1)

1GET +DE REGISTER MASK
1ADD IN CHANNEL NR

s SELECT MODE REGISTER
sLOAD TOGGLE AT S MMZ ,
$GET LOAD REGISTER MASK
s ADD IN CHANNEL NR
+SELECT LOAD REGISTER
:LOAD COUNT VALUE

COUNTER
BITMSK,BITMS]
8ITMS)

NUMBER ,R2

R2
R2,85
204

01,R2
€1,8ITHS)

sNEXT COUNTER
sNEXT COUNTER
sUSE N}

s TEST FOR WRAP AROUND (ALL CONT DONE?)
$BRANCH 17 NOT
$START OVER MWITH FIRST COUNTER
'...

+00 TWICE

RO, MREB(R1)

8:10,R0

R2,RO

+BEGINNING OF LOOP ON ERROR SEGMENT
1GET MODE REGISTER MASK
NR
tADC IN CHANNEL
s SELECT MODE REGISTER
1GEY COUNT UP MASK
1SOURCE OR GATE
lSELECT COUNT uP
1tGET LOAD REGISTER MASK
MDO IN CHA. NUMBER

E1C
HAROWARE TESTS MACRO vV05.00 Wedneesde5 03-0Oct-84 14:03
EXTERNAL LOOPBACK, ISOLATE
TEST 9
--

MOV

S584 035604
5585 035610
5586 035614
5587 035620
SS88 035624

010061
005061
012700
063700
010061

000002
000004

177500
002436
000002

MOV
ADD
MOV

5590 035630
5591 035634
5592 035640

012700
063700

177500
002434
000002

MOV
ADD
MOV

5589

5593
5594
5595

010061

RO, MREA(RY)

$AND LOAD IT
+ INIT COUNTER
1GET LOAD COMMAND
$ADO IN CHANNEL NR

MPEB(R1)

OCILOA
RO
BITMS1,RO
RO, MREA(RL)

sREADY TO START SECOND COUNTER

O®CILOA,RO
BITMSX,RO
RO.MREA(RY)

1GET LOAD MASK
1ADO IN CHANNEL NR
1READY TO START FIRST COUNTER

tENABLE BOTH COUNTER FOR COUNTING

5596 035644
5597 035630
5598 033654
5599 035660

012700
063700
063700
010061

S601 0335664
5602 035670
5603 035672

012700
000240
000240
000240
005300
001373

5600

S604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
3622
5623

CLR

SEQ 0121

Peage 60-:

035674
035676
035700

177440
002436
000144

404 :

MOV
ADOD
ADD
MOV

OCSARM
RO
BITMSK,RO
BITMS1.RO
RO,.MREA(RL)

1GET ARM COMMAND
1ADD IN COUNTER NR
1ADO IN SECOND COUNTER NR
1START BOTH COUNTER (LOAD ARM)

MOV

€100. RO

1LET COUNTER RUN AT 100 xZ

NOP
NOP
NOP

DEC
BNE

sLET COUNTER GO

RO
404

1SHORT LOOP COUNT

OCS0DAS
, RO
BITMSK,RO
B8ITMS1,RO
RO,MREA(RY)

:GET DISARM COMMAND
1tADD IN COUNTER NR
sADD IN SECOND COUNTER NUMBER
1STOP BOTH COUNTER (DISARM)

;STOP COUNTERS
035702
035706
035712
035716

MoV

012700
063700
063700
010061

ADD
ADD
MOV

sCHECK SECOND COUNTER CONTENTS
035722
035726
035730
035734
035740
033744
033746

5624 035752
5625 035754

5626 035760
5627 035764
5628 035766
3629 035776
5630 036000

012700
060200
010061
016103
004737
001024
013703
000303
042703
020327
003006

#8120,R0
R2,RO
RO,MREA(R])
MREB(R1).R3
INSERT
604
SRC,R3
R3
#177740,R3
R3, 85
S04

S04 :

B8R
SUB

604
#5,R3

604 :

ENDSEG

000002
000004
015240
002464

177740
000005

ERRMRD
CxLOOoP

000406

162703

062737

002464

001246

006337
005237

MOV
ADD
MOV
MOV
CALL
BNE
MOV
SWAB
B8IC
cw
8GT

177420

002434
002442

tHOLO REGISTER
sADD ONT NUMBER
tCOUNTER -> HOLD REGISTER
1GET COUNTER CONTENTS

1 TEST IF ERROR MESSAGE IS REQUIRED
101D CLOCK TICK

1SOURCE OR GATE

$tGET TO LOW ORDER
1CLEAR OTHER BITS
] SOURCE

tNO, GATE

1ERROR HANDLER FOR SORCE
1 IF LOOP ON ERROR

901, ,ER1168

'
:

1ERROR HANDLER FOR GATE

ERRHRD

902, ,ER116C

ADD
DEC
BNE

6400, SRC
R4
304

1BUMP TO NEXT SOURCE
1ADDJUST LOOP COUNT
+LOOP FOR NEXT SOURCE

ASL

B8ITMSK

tSHIFT TO NEXT COUNTER
1BUMP CHANNEL COUNTER

INC

tEND SEGMENT

NUMBER

F10
MARDMARE TESTS

TEST 9

MACRO V0S5.00

Wednesde6 03-0Oct-84 14:03

EXTERNAL LOOPBACK, ISOLATE

S641 036042
5642 036050
S643 036052

023727
003002
000137

002442

5645 036056
5646 036062
S647 036064
5648 036070
5649 036076
5650 036100

005737
001010
005237
023737
001402
000137

002164

S644

5651

035436

002504
002506

5659 036160

704%:

002504

035414
EXS9:

5652 036104
5655 036110

cHe
8GT

000005

045

123

SEQ 0122

Page 60-2
NUMBER,
#5

sALL COUNTERS DONE ?
1EXIT IF YES
tMORE 10 00

Qve
EXS9
ITRCNT
EF
. ITRCNT
ITRO
EXS9
ITRACYS

B$ESOUICK VERIFY PASS SELECTED

704
104

1BUMP ITERATION COUNT
tOEFAMAT ITERATION COUNT
s TIME T0 EXIT

100 THE TEST AGAIN

TSt

6EX

/9%S2uAEXTERNAL LOOPBACK TEST,ISOLATED.#N/

8EX

G10

.SBTTL TEST 10

5661

SEQ 0123

Page 61

HARDWARE TESTS MACRO V05.00 Wednesdey 03-Oct-84 14:03
UP/DOWN COUNTING APPLICATION TEST
TEST 10

UP/DOMN COUNTING APPLICATION TEST

1006800000880 000008000000000088000080808000000000020008000088020000800000

:
i

TEST 10

UP/DOWN COUNTING APPLICATION TEST

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

108000806008 08000800008800004000008048000800060000800000400000000088¢08000800

BGNTST
CALL
. WORD

004737
000420
037122
103002

015006

012737
005037
013701
004737

002504
000004
0000006
002416

012761
012761
012761
012761
012761
012761
012761
012761
004537
000344
004537
000343
012761
005061
012761
012761
012751
005061
012703
012751
012761
004737
0003554
004537
000353
004537
000344
004537
000343

177427

TSHD10

021470

1¢:

ITR10:

070000
177403
000042
177404
000042
177401
042450
037022

8cC
EXIT
MOV
CLR
MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV

037022

177411

000002

177402
122450
177412

000002

000004

023420
177503
177443
037022

10¢:

#8!27,MREA(R])

#70000,MREB(R1)

#8!3,MREA(R])

#42,MREB(R1)

#8!4 ,MREA(RL)

042 ,MREB(R1)

#8!1,MREA(R])

942450 ,MREB(R1)
RS,SETMRA
344
RS, SETMRA
343

037022

000002
000002

ERRHRD

1LOOP COUNT

344
RS,SETMRA
343
R3,10¢

;1LOOP

#CSDAS!3,MREA(RL)
#9821 ,MREA(RL)

;1OISARM AND SAVE COUNTERS
1COUNTER -> HOLD REGISTER o1

INSERT
204
1001, .ERR120

1 TEST IF ERROR MESSAGE IS REQUIRED
1 IF EXPECTED NUMBER OF COUNTS
1ERROR HANDLER

MREB(R1),RS
RS, #10000.

023420
015240

1SELECT FREQ OUTPUT CNTRL REG
1FOUT OFF
s SELECT MODE REGISTER
1OUT TOGGLE
s SELECT MODE REGISTER
;OUT TOGGLE
s SELECT MODE REG
tACTIVE MIGH LEVEL, GATE 2, SRC S
1SET € TEST MREA
sTOUT N = 4
1SET & TEST MREA
sTOUT N = 3
1SELECT 1 LOAD REGISTER
sINIT COUNTER
s SELECT MODE REG
tACTIVE LOM, GATE 2, SRC S
sSELECT 2 LOAD REGISTER
1INIT COUNTER
1STARTS COUNTER
1STARTS COUNTER
1SET & TEST MREA
:1SET TOUT N = 4
1SET € TEST MREA
;SET TOUT N = 3
1SET € TEST MREA
sCLEAR TOUT N = 4
$1SET €& TEST MREA
tCLEAR TOUT N = 3

RS,SETMRA

037022

000004

PC.AMREST

#8:2 ,MREEA(R]L)
€122450,MREB(R1)
#8:12,MREA(R])
MREB(R1)
#10000. ,R3
OCSLOA!S MREA(RL)
OCIARM!
3 ,MREA(R])
RS,SETMRA
354
RS, SETMRA
353

037022

177603
177421

14
TST
04, ITRCNT
WORFLA
MO0 ,R1

#8!11,MREA(R])

077316
012761
012761
016105
020527
074737
001404

sCALL SELECT ROUTINE
s TEST SELECT MASK
s TEST HEADER ADDRESS
sIF CARRY IS SET, DON'T BRANCH
1EXIT TEST IF CARRY IS SET
s ITERATION COUNTER
1CLEAR WORKING FLAG
tGET FIRST REGISTER ADORESS
tRESET THE MODWLE

MREB(R1)

000002

000002
000002

SELECT

420

H10
HARDWARE TESTS
TEST

MACRO vV05.00

Wednesde

UP/DOMN COUNTING APPLICAT ¥

036474
036502
036506
036510
036514
5723 036516
5718
5719
5720
S721
5722

012761
016105
005705
004737
001404

177422
000004

000002

015240

8EQ
ERRHRD

012761

177411
000004
177412
000004

INSERT

30¢
1002, .ERR121

012761
01276)
01610.
005705
004737
001404
012761
016105
020527
004737
001404

30%:

CLR

#!11 ,MREA(R]L)

MREB(R1)

023420
037022
037022

JSR

RS,SETMRA

MOV
MoV
JSR

SCILOA!
3, MREA(RL)
OCINRM!3
, MREA(R]L)
RS,SETMRA

037022

JSR

RS, SETMRA

037022

JSR

RS.SETMRA

037022

JSR

RS,SETMRA

S08

R3,40¢

MOV
MoV
MOV

OCSDAS
! 3,MREA(R]L)
#6121 ,MREA(RL)
MREB(R1).RS

477603
177421
000004

000002

MOV

#8112, MREA(RYL)
MREB(R1)
#10000. ,R3
RS,SETMRA

037022

5748

200002

MOV
CLR
MOV
JSR

177503
177443

077315

S749
S750
S751
5732
S753
S754
S755
S756
S757
S758
5759
5760
5761
5762
5763
S764
57635
5766
S767
S768
5769
S770
S771
S772
5773 037012
S774

822 .MREA(RL)
MREB(R1),RS

1 SELECT HOLD REGISTER #2

tOTHER SHOUWLD HAVE NOT COUNTED
1 TEST IF ERROR MESSAGE IS REQUIRED
1 IF EXPECTED NUMBER OF COUNTS
1ERROR HANDLER

: NOW DO THE SAME TEST WITH OTHER PMASE

5746

S747

MOV
MOV

SEQ 0124

Pege 61-1

5740

5741
5742
5743
S744
5745

20%:

TS7T
CALL

S724

5725
5726
S727 036526
5728
5729
5730
S731
5732
S733
S734
S73S
5736
S737
S738
5739

03-Oct-84 14:03
ON TEST

WORD

000002
000002

LWORD

404 :

.WORD

.WORD
LMORD

000002
000002

015240

sos
177422

000004
023420
015240

000002

005737
001026

002164

005737
001012

0000006

003237
003237
023737
001402
000137

0000006
002504
002504
002506

036222

.WORD

353
354

343

344

sOISARM AND SAVE COUNTERS
sCOUNTER -> MHOLD REGISTER @1

;sOTHER SMOULD HAVE NOT COUNTED
s TEST IF ERROR MESSAGE IS REQUIRED
10ID CLOCK TICK
;ERROR HANDLER

MoV
MoV

#8122 .MREA(R]L)
MREB(R1).RS

tCOUNTER -> HOLD REGISTER o1

INSERT
604

INSERT
S0¢
1003, .ERR122

RS, #10000.

ERRHRD

1004, ,ERR123

1 TEST IF ERROR MESSAGE IS REQUIRED
10ID CLOCK TICK
$ERROR HANDLER

Qve

SISSWICK VERIFY PASS SELECTED

WORFLA

+IS WORKING PRINTED ONCE ?
1BRANCH IF YES
1PRINT TEST IS WORKING

1ST

BNE

BREAK
TST

BNE

PRINTF

1204 :

343

CALL
8EQ
ERRHRD

CALL
8€aQ
604 :

344

+SELECT 1 LOAD REGISTER
s INIT COUNTER
$SELECT 2 LOAD REGISTER
s INIT COUNTER
sLOOP COUNT
$SET € TEST MREA
sCLEAR TOUT N = 4
1SET € TEST MREA
tCLEAR TOUT N = 3
1 STARTS COUNTER
$STARTS COUNTER
1SET & TEST MREA
1SET TOUT N = 3
:1SET & TEST MREA
$SET TOUT N = 4
1SET & TEST MREA
tCLEAR TOUT N = 3
+1SET & TEST MREA
stCLEARTOUT N = 4

EXS10

1204

&WOR

INC
INC
c

WORFLA
ITRCNTY
ITROEF , ITRCNT

ITR10

BEQ

EXS10

]

1BUMP ITERATION COUNT

1DEFALT ITERATION COUNT
1 TIME VYO EXIT
100 THE TEST AGAIN

110
HARODMARE TESTS
TEST

Wednesde

03-Oct-84

UP/DOWN COUNTING APPLICATION TEST

5775 037016
5776
S177 037022
ST78 037024
S179 037030
5780 037034
5781 037040
5782 037042
S783 037046
S784 037050
S$785 037054
5786 037060
S787 037062
5788 037066
5789 037070
5790 037072
5791 037076
ST92
S793
S794
S795
579

MACRO v05.00

011500
052700
010061
016100
011502
042702
011546
042716
022627

177400
000002
000002

EXIT

TST

SETMRA:

MOV
8IS
MOV
MOV
MOV

(RS),RO
#8,R0
RO,MREA(R])
MREA(R1),RO

8IC
MOV
81C

177407

000350

045
045

123
116

(SP).,#350

$1SET?

#177407,(SP)

BITMAP-1(R2),.RO
10¢
1005, ,ERR124
(RS).

3s:
10¢:
010

BITMAP:

062
045

TSHD10:

WOR:

$1GET NUMBER

1WHAT TYPE OF COMMAND

104
3

14:

1SET HIGH ORDER BYTE
1SET OUTPUT
1GET VALUE BACK

(R3),-(SP)
14

037113

037114
037117

(R3),R2

#177770,R2

BITMAP-1(R2),R0

037113

SEQ 0125

Pege 61-2

EXS10:

177770

037100
037110
037112

5797
5798
S799
5800 037122
5801 037174
5802
5803
5804
5805 037212

14:03

1GET COMMAND

1NO
sIS SOURCE SET?

sYES,

AS IT SHOWLD BE

s ERROR
tOUTPUT CLEARED?
sYES, AS IT SHOWLD BE
1ERROR HANDLER

: .ASCIZ

8EX

/98S28AUP\DOWN COUNTING APPLICATION TEST sN/
/SN AWORK INGSN/

B8EX

J10
HARDMWARE TESTS MACRO V05.00 Wednesdey 03-Oct-84 14:03
Visual LED Test - Specificelly Selectable.
TEST 11:
$807

.SBTTL

SEQ 0126

Pege 62

TEST 11:

Visual LED Test

- Specificelly Selectable.

5808
S809

1888066000080 000000008088082808006000008086608800080848008080808066800008808080804
;
Test 11 - Visual LED Test - Specifically Selectable.

S810

5812

(60600000 0882000008680028080400080004080808480008040040008808080880080840480

5811

5813

5814 037214

5815 037214

004737

S816 037220

010377

S818 037224
S819 037226

103002

S817 037222
S820

BGNTST

015006

CALL

.MORD

037350

TSHO11

: START B8Y SWITCHING LEDS ON

ADD
BIC

#100,R1
#200,R1

s+ IF BIT 6 IS CLEAR, SET IT
s IF IT IS SET, CLEAR I7

CLR
MOV
ASL
MOV
BNE

LS$LUN
LSLUN,R3
R3
GPADD(R3),R2
354

s
3
:
;1
s+

MOV

R2,GPADO(R3)

s AND SAVE IT IN THE TABLE

20%:

5826 037244
5827 037250
5828 037254
5829 037256
S830 037262

005037
013703
006303
016302
001006

002074
002074

30¢:

S832 037274

010263

002554

S834 037302
S835 037304
S836 037310
S837 037314
S838 037320
S839 037326

001002
004737
010172
005237
023737
002750

S841 037330
S842 037334
S843 037340
S844 037342
S84S5 037344

012703
004737
005303
001374

Sszg 037346

S848
S849 037350
S850
5851

5852
5853 037432
5854
S855 037434
5856

002554

GPHARD

35¢:

40%:
002012

000024
014600

S04 :

000732

045

TS7

062

LSLUN,R2
(R2)

BNE
JSR
MOV
INC
cP
BLY

404
PC,CONFIG
R1,8{R2)
LSLUN
LSLUN,LSUNITS
304

MOV
JSR
DEC
BNE
BREAK

#20. ,R3
PC,WT25M
R3
S04

123

s+ TEST HEADER ADORESS

000100
000200

015306
000000
002074
002074

+ SPECIFIC TEST, ALL DEVICES

CLR

062701
042701

005712

s CALL THE SELECT ROUTINE

10¢:

S823 037234
5824 037240

S833 037300

10377
10¢
TST

005001

S831 037264

SELECT

8CC
EXIT

S821 037232
5822

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

.NLIST
TSHD11::.ASCIZ
.LIST
.EVEN
ENDTST
ENDMOC

204

:+ BRANCH IF THE TEST IS SELECTED
;: OTHERWISE, EXIT THE TEST

START WITH UNIT O
FORM OFFSET FOR PARAMETER ADORESS
GET PARAMETER ADDRESS IN R2
IF ADDRESS IS SET UP, BRANCH

: ELSE, GET PARAM ADDRESS FROM DRS
s+ MODE ADDRESS = 0 ?

s
s
s+
:
s
s+

IF NOT, BRANCH
ELSE DO AUTO CONFIGURATION FOR THIS UNIT
SWITCH THE LED OVER
GO TO NEXT UNIT
ALL CHANGED ?
IF NOT, SWITCH OVER THE NEXT

s+
3+
;
:
1

WAIT FOR ¢.S SECONDS
25 MILLISECONDS WAIT ROUTINE
¢ 20 = 0.5 SECONDS
GO ON IF 0.5 SEC. ARE OVER
ALLOW OPERATOR INPUT

DO IT ALL AGAIN

BEX
/#S2#AVISUAL LED TEST - SPECIFICALLY SELECTABLE.®N/
BEX

14:03 Page 64
Wednesdey 03-Oct-84
v0S.00
MACRO
SECTION
CLOSE
Selectable.
Spocificolly
TEST 11: Visual LED Test
5860

BGNMOD

5901 037434
5902

$PATCH::

5905
5912

5914 040634
5916 041000
041004
S917 041004

SEQ 0127

_TITLE CLOSE SECTION

5871
5900

5903 037434
5904 037434

IK10

LS$LAST::

BuKW

500

.BLKB
LASTAD

400-<.£377>

ENOMOD

. SHIFT TO CORRECT FOR LSI BUG

L10O
CLOSE SECTION
TEST

11:

MACRO V05.00

Wednesdey 03-Oct-84 14:03

Visual LED Test - Specificelly Selectable.

5919
5920
5921
5934
5935 041004
5936
5937
5938
5939
5940
5941 041504
5942

000020

000001

.END

SEQ 0128

Pege 65

BGNSE TUP
16.
LREPT
16.
BGNPTAB
.WORD
0,0,0,0,0,0,0,0
ENDPTAB
.ENDR
ENDSETUP

CALRET
CARRFL
CCR
CHAR
CHKMAX
CLINT
CLKFLG
CNTVAL
CNTXT
CNT2S
CNT25M
CNT500

004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
002472
= 000400

021270
021374
002422
023162
014434
022024
027526
002452
012403
014632
014626
014630

177740 G
000036
177700

177600

00
DROPD
DROPED
ECNT
EERA
EERS
EERG
EERL
EER2
EER3
EERG
EF .CON-

017167
027734
002614
002514
006250
006300
006340
006064
006122
006164
006216
000036

OO0
O

(212121212

OOOOOOOOOOOOOOOOOOO

000062
000012
000035
000006

000044
000051
000024
000053
000003
000055

[%)
~

016611

016707
017110
017125
017143
017147
016741
016752
016761
016773
017010
017016
017066
017077
014634
002420
177440
000052
000061
000022
000004
000002
000045

€110

016537

E104
€105
€106
E106A
€107
E107A
€108
€109

€111
El12

€113
El14
E114A
El146
€115
E116
E116A
E1168

€120
€121
€124
€201
€202
€203
€501
€502
€506
€507
ESO7A

FLASH
FLSANS
FSAU
=
F$AUTQ=
FSBGN =
FSCLEA=

FSOU
=
FSEND =
F $HARD
=
Férd
=
FS$INIT=
FSAP =
F$MOO =
FIMSG F$PROT=
FSPWR =
FSRPT =
F4$SEG =
F4SOFT=
F$SRY =

010732
011007
011062
011140
011201
011257
011321
011373
011443
011516
011567
011641
011713
012000
012052
012126
012442
012525
012606
012662
012747

013030
030617
030704
030751
013113
013146
013235
013333

013432
020716

021170
000015

(217

=
=
=
=
=
=
=
=
=
=
=
=
=

000040
000100
000200
000400
001000
000002
002000

crP12
crP2
cP3
CP4

016466

8IT11
8IT12
8IT13
8IT14
8IT15
BIT2
8IT3
BIT4
BITS
B8IT6
BIT7
8IT8
8IT9
81V
BOE

=
=
=
=
=
=
=

CP10A
cP11

G
G
G
c

C4GETUC4GMAN=
CIGPHR=
C4GPLO=
CSGPRI=
CSINITe
CSINLPC4INL =
CIINZ =
CSLOA CSMAN]
=
CIMAR =
CMEN CIMSG CSOPENC$PNTB=
=
CIPNTF
C4PNTS=
CHPNTXe 000015
C4QIO0 - 000377
CSROBU= 000007
COREFGe 000047
CORESE- 000033
CSREVI= 000003
CSRFLA= 000021
CIRPT = 000025
C4SEFGe 000046
CSSPRI= 000041
C4STN = 177750 G
C4SVECe 000037
C$TPRI= 000013
017244 G
OACON
017¢22
OCNT
020626
OECEX
017736 G
DECIN
OECINL
020347
DECIN2 020405
DECINS 020466
OECOUT 020516 G
020634
DECOL
020640
DECO2
DECO3
020644
002154 G
OFPTBL
017156
0I
DIAGMC= 000000

(212121212121
2121 21~}

B8ITOS
B8IT06
8IT07
BITO8
8IT09
B8IT1
8IT10

002436
002440
000001
000001
000002
000004
000010
000020

cP1C
CcP10

022516
016452
0135306
002702
013656
023410
002444
015576

(2121

BITMS1
BITMS2
=
8ITO
81700 =
8IT01 =
81702 =
81703 =
81704 =

002476
022004
037114
002434

CON
CONEX
CONFIG
CONMSK
CONPRI
CONT
COUNTR
co1
cP1
CP1A
CcP18

SEQ 0129

Wednesdey 03-Oct-84 14:03

(A1)

B8AD
BADIV
BITMAP
BITMSK

OO0

017200
021470
002502
017211
022026
022742
000010
177400

O0OOOOOOOONOOOOOOOOOOOOOOOOOOOOOD

Al
AMREST
ANS
AO
ASK
ASKADD
ASSEMB=
=
8

026212

017462
ADCON
= 000020
ADR

ACFLG

Symbol teble

MACRO V0S5.00

OO0

CLOSE SECTION

000020

000040
000007
000016
000041
000004
000013
000006

000050

000000
000011
000021
000017
000012
000003
000005
000010
FeSUB = 000002
F$SW
= 000014
F$TEST= 000001
002706 G
GAIN
020327
GE TNUM
GOOBAD
010306
002474 G
G000

N1O
CLOSE SECTION

Symbol tesble

GPADD
GPFLG

Wednesdey 03-Oct-84 14:03

SEQ 0130

Pege 65-2

IsDU = 000041
I$HRD = 000041

LSHPLP
LSHPTP

002016 G
002022 G

L10037
L10040

007760
010032

L10131
L10132

041440
041434

GE¢CNTO= 000200
GS$DELM= 000372
G$DISP= 000003

I$M00 = 000041
I$MSG = 000041
I$PROT= 000040

L$ICP
LSINIT
LSLADP

002104 G
025022 G
002026 G

L10042
L10043
L10044

010132
010162
010232

L10134
L10136
MASCOM

041460
041504
014050

G$NO = 000000
G$0FFS= 000400
G$OFSI= 000376
G$PRMA= 000001
G$PRMD= 000002
GS$PRML= 000000

I$SEG = 000041
I$SETU= 000041
I$SFT = 000041
I$SRV = 000041
I$SUB = 000041
I$TST = 000041

L$MREV
LSNAME
LSPRIO
L$PROT
L$PRT
LSREPP

002050 G
002000 G
002042 G
025014 G
002112 G
002062 G

L10050
L10051
L100S52
L100S3
L1005S
L10056

GS¢RADL= 000120
G$RADO= 000020
G$XFER= 000004
G$YES = 000010
Gl
002222
G16
002374
G2
002250
G3
002270
HEL
022142
HELP = 000000
HOE
= 100000 G
IBE
= 010000 G

KLINT
LASTFA
LCLOCK
LF
LOCATE
LOE
=
LOOP
LOOPEX
LOPFLG
LOT
=
LOTFLA
LSACP

027102
015304
026766
014656
030202 G
040000 G
002466 G
026214
002640 G
000010 G
002700 G
002110 G

LISPC
LISPCP
L$SPTP
LISTA
LeSHW
LS$TEST
LeTIML
LSUNIT
L10000
L10001
L10002
L10003

LSAUTO

027600 G

GROUP

002554 G
023160

MACRO V05.00

002446 G

GS$EXCP= 000400
G$HILI= 000002
G$LOLI= 000001

GS$RADA= 000140
GS$RADB= 000000
GS$RADD= 000040

ISINIT= 000041

ISPTAB= 000041
I$PWR = 000041
ISRPT = 000041

IOTAB
004312 6
IATAB
005112 G
JSP = 000167

IOU
= 000040 G
IER
= 020000 G
INTUWT 025610

LSAPT
LA
LSAUT

INSERT
INTFLA

015240 G
002510 G

L$CCP
LSCLEA

INTSR
021776 G
ISR
= 000100 G
ITRAC1
030044

LSDEPO
LSDESC
LSDESP

002011 G
005732 G
002076 G

L$OLY
L$OTP

002116 G
002040 G

INR

002424 G

INTFL2

002512 G

ITRAC2
ITRACS
ITRAC4A
ITRACS
ITRAC6

030326
031052

LSOEVP
L$DISP

033560

L$OTYP

031306
032336

ITRAC7

034174

ITROEF
ITR10
IXE
=
IXEND =
IXSTA =
Is$AU =
I$AUTO=
ISCLN =

002506 G
036222
004000 G
171770 G
171000 G
000041
000041
000041

ITRAC8
ITRAC9
ITRONT

L4$CO

034722
035414
002504 G

L$OV

LeOUT
L$OVTY
L$EF

LSENVI
LSERPT
LSETP
LSEXPL
LSEXP4
LS$EXPS
LSHARD
LSHIME

002036 G
027766 G
002070 G
002106 G
027664 G

002032 G

002060 G
002124 G

002034 G

027674 G

002072 G
005722 G
002052 6

002044 G
005712 G
002102 G
V02046 G
002064 G
002066 G
002170 G
002120 G

LérMd

LSLAST
LSLOAD
LSLUN

LSREV
LSRPT
L$SOFT

L10004
L1000S
L10006

L10007

002154 G

041004 G
002100 G
002074 G

002010 G
022026 G
002366 G

002056 G
002020 G
002024 G
002030 G
002164 6
002114 G
002014 G
002012 G
002162
002166
002222
002374
006120
006162
006214

006246

L10010
L10011

006276
006336

L10013
L10014
L1001S

006376
006430
006510

L10012

L10016
L10017
L10020
L10021

L10022

L10023

L10024
L10025
110026

L10027
L10030
L10031
L10032
L10033
L10034
L1003S
L10036

006344

006570
006622
006654
006706

006740

006772

007046
007122
007150

007202
007260
007336
007410
007442
007556
007632
007706

L10041

L10045
L10046
L10047

L10057
L10060
L10061
L10062
L10063
L10064
L1006S
L10066
L10067
L10070
L10071
L10072
L10073
L10074
L1007S

L10076
L10077
L10100

L10101

L10102
L10103

L10104

010102

MASK
MOD
MODE

027672
027764
027776

NEXT
NH
NO

041010
041034
041030

ONEFIL= 000001
O$APTS= 000001
O$AU
= 000001

022002
022022
022024
025012
026646
027662

030306
030204
031026
031252
032162
033524
034140
034652
035344
036160
037212
037432

041060
041054
041104

041100

041130
041124
041154

L10112
L10113

041174
041224

L10114

L10115S

L10116
L10117
L10120

L10121
L10122
L10123
L10124
L10125
L10126
L10127
L10130

041464

010304
014120
021774

L1010S
L10106
L10107

L10110
L10111

L10133

041150
041200
041220

MREA
MREB
MREC
M$TOG
NERRS
NEWST

= 000002 G
= 000004 G
= 000006 G
= 000042 G
014536
025320

025654
= 000014
025006

NOCLOK
NODEV
NOUNIT
NR1
NR2
NTEST
NTESTS=
NTEST1
NUMBER
NXM
NXMFLG
NXTWT

027240
005772 G
015574
020310
020312
026371
000013
026465
002442
021766 G
002470
025544

O$BGNR= 000001
0$BGNS= 000001
otV
= 000001

O$ERRT= 000001

O$GNSW= 000001
0$POIN= 000001
0$SETU= 000001

PADD
PNT

002710 G
s 001000 G

PRI

= 002000 G

PRA
PREX

041250

PRIO

041320
041314
041344
041340
041370
041364
041414
041410

PRIO3
PRIO4
PRIOS
PRI0O6
PRIOT7
PROMT
PR1
PR2

041244
041274
041270

014046 G
002416 G
002704 G

023326
023152

002430 G

PRIOO = 000000 G
PRIO1 = 000040 G
PRIO2 = 000100 G

=
=
=
=
=

000140 G
000200 G
000240 G
000300 G
000340 G
021172
023420
023445

B1l1
S€0 013

CLOSE SECTION MACRO v05.00 Wednesdey 03-Oct-84 14:03 Pege 65 3

Sysbol tadle

PR2A

023552

RSAV

031016

TPS

PR2B
PR2C
PR20
PR2E
PRIF
PR2G
PR3
PR3A
PRS
PRS
PRG
' PRY?

023651
023743
024004
024074
024177
024273
024367
024474
024533
024564
024605
024706

RMAX
SAVONT
SAVPRI
SELECY
SETQLK
SETEX
SETMRA
SF1
SFPTBL
SN
SRC
STADD

031242
027444
002432 G
013006 G
026630
027324
037022
002500 G
002164 G
020314
002464 G
015372 6

TSHM01
1S4010
194011
1902
TSOS
S04
T1SHOS
TSH06
TSHD7
TS908
1S09
TSTENY

PSODA
PSEUL1
PURFL
| QP

017316
026162
025466
002164 G

START
STAY
STAVA2
STFLG

023022
022766
012%07
02315

PSAD

RA
| RAMDOMN

RDY

017540

STRVAL 012173
STRYA2= esecees GX

023264

SVCINS= 177777

020714 G
022244
014052 G

REGMSG
REGTST

014341
013474 G

REGTS1
RERR]1

| RERR2
RERRS

RESTRT
RETME1
' RFLG
.

ABS.

ses

Worxw
Mork

SVCGBL= 000000

014054 G

0295276
021376
023170
041504

000000

Agsesbler

000

001

TodLI= 000001

T6LSYN= 010000
T6LTNO= 000013

TONESTe 177777
TINSO = 000000

TeNS1 = 000001
TSNS2 = 000003
T$PCNT= 000000

(RwW,I.GBL,ABS.O0VR)

(RW.I.LCL,.REL,.CON)

233
236

Size of work file: 20944 Words

Size of core pool:
Opereting system:

( 114 Peges)

19990 Words
(
RSX-11M/PLUS

00:08:43.64

76 Peges)

ZIDVAO .8IN, ZIDVAO . SEQ/ -SP=([50,200)SVC/M,(53,53)ZIDVAO. SRC
L 4

014710
037174

Toord « 030000

TFLAG= 000040

stetistics

file
reeds:
file writes:

Elepeed time:

015166
023322
= 177566

LG
WOR

T¢EXCP= 000000

T¢CODE= 000132
T¢ERAN= 0017SS

T0VU = 010060
Te8rAR= 010002

002712 6
014620
026216
026276

MORFLA® esscee GX

T60IMI» 010033

WROY

014662 G

T06PR0= 010054

W12s

014614 G

Te0PTA- 010133
TRPT= 010053

THNA
TMM
TP8

002426 6

WPTAS
MALY
WARN
WARNL

T47S7Se 000001

TSLAST= 000001
THLOLI= 000000

= 177362
= 177560

veC

ToSAU = 010061
TooAUT= 010036
T$8CLE= 010057
T600AT=- 010136

002634 G

SsLSYM= 010000
TADS
023172
NGB
TMS

036162 G

TSAUFLG 002636 G
7
023220
TTINT
027372
TOARGC= 000001

T06MS5G= 010046
T46PC = 000020

027530
022350

110

11
037214 G
12
030310 G
TS
031030 G
0312%4 G
T4
1S
032164 G
16
033326 G
17
034142 G
18
034634 G
79
033346 G
UMt
= 000200 G
USQLOX 027174
vOPTAS 003512 G

TOFREE- 041504
T6GWN= 000000

TDMSG
TITLE

014174
014252

TPTAB- 010133

TePTHVe 000020
TPTNU= 000020
TSAWL= 177777
TISE@.» 177777
TISEXO= 010000
T4SIZE= 000240
TeSUBN= 000000
TOTAGL 177777
ToTAGNe 010137
T4TE®+ 000000
TOTEST= 000013
ToTISTMe 177777

TSTFLG

030206 G
037122 6
037350 G
030574 G
031216 G
032120 6
033474 G
034076 G
034576 G
0335270 G
036110 G
030176

SYCSUB= 177777
SYCTAGe 177777

SYCTIST= 177777

013532 6
014122

l Errors detected:
|

023306

020712 G
020654 G

RECON
REGADD

REGERR

STARES

= 1773564

T44SEG= 010000
T44S0F= 010003
TI$SRVe 010063
TS = 010001

TS8TES= 010073
LPA
030000 G

WROY1
WRSEL
W12Sh
WTS00

014712
026532

014600 G
014606 G

X$ALWA= 000000
X$FALSe 000040

X$0FFS- 000400
X$TRUE= 000020

YES
SPATCH

025002
037434 G