Digital PDFs

AH-T977A-MC

April 1985

132 pages

Original

56MB

view download

OCR Version

68MB

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

OCR Text

TOVIL0 &
I10YA

llm e

i i

I
[T
i
i

B1
USER DOCUMENTATION

MACRO V05.00

Wednesdey 03-Oct-84 14:03

Pege 2

.REM £

IDENTIFICATION
Product Code:

AC-T976A-MC

Product Neme:

CZIDVAO IDV11-D

Product Date:

SEP 1984

Mainteiner:

CSS Munich

Authors:

Peter Seebech

equipment corporstion.

S CHA. CONT DIAG

Digital equipment corporation sesumes no

responsibility for any errors thet mey appeer in this document.

No responsibility is sseumed for
softwere on equipment thet is not
effilisted compenies.

the uee
euwpplied

or
by

re lisbility
of
digitel or its

COPYRIGMT (C) 1984 BY DIGITAL EQUIPMENT CORPORATION
The following ere tredemerks of digital equipment corporstion:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO V05.00

Wednesdey 03-Oct-84 14:03

Pege 3

Generel informetion

Sys

em ebstrect

requirements

Running the diegnostic
on @ FALCON.
Releted documents
and stendards

Disgnostic hiererchy prerequisites
Execution time
Opereting instructions
Commends
Switches

Flege

Herdwere questions

Softwere gquestions

Extended p-table dislogue

Clock questions
Gfidqnwgagflm“un

Using the
Error

o SETUP utility

informetion

Performence and progress reports

Print commend utilizetion

Device informetion
tebles

NNNNNNNNNN

VANOVBWNHO

5o b e ps o pos o

OVBWN=O

TABLE OF CONTENTS

Specificelly Selectable Test.

USER DOCUMENTATION

Test

summeries

SEQ 0002

D1
USER DOCUMENTATION

MACRO V0S.00

Wednesday 03-Oct-84 14:03

1.0

information

General

Page 4

The CZIOV?2? diwti:.:m-m e series of tests to verify the
integrity end functi
ity of the IDV11-D five chennel counter.
This diegnostic can be used by field service for functionel testing,

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

The dirfic is set
for field service 90 that if the user
types
"N" to the
HARDUARE" end
SOF TWARE "
questions, en sutomatic configuretion routine will be run. This
finds all devices in the sddrees r

e list of all IAV/IDV11 devices f
five channgl counter test

171000 to 171770, prints

. and coerries out the

if @ counter ie found .

this festure

hes special significance when the XXDP+ SETUP utility is used
(see section 2.9).

The “PRINT” commend can be used to obtein @ list of test titles,
e printout of the IAV/IDVi1 configuretion thet Wtic
is using, or a printout of the error statistice
ated by
the disgnostic. Help on how
to repest the sutoconfiguration cen

also be ocbteined. For more information, see section 4.0.

If the eveluste fleg “EVL" is set,
unit on which more then S
errors sre detected following @ "START" commend is dropped from
The progrea supports uwp 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

runtise services softwere (supervisor).

these services provide

the interfece to the operetor and to the softwere environment.
this progrea cen be used with XXDP.,

For @ complete description of the runtime services, refer to the
XXDP+ user's menual.
there is o brief description of the
runtime services in section 2 of this document.

. LSI proceseor with @ minimum of 28k of memory.

b. Console terminal with interface address 777560.
c. XXDP+ loed device (RX,RK,RL ECT.)
d. IDV11-D five channel counter module to be checked.

e. Test connector (2G-MOOBA-00) end voltege source (21-24V DC)

El
MACRO V0S.00

1.3

Wednesday 03-Oct-84 14:03

Pege 4-1

Running the diegnostic on a FALCON

To run the wtoe on & FALCON boood oyotu. @ bootstrep
om is
in eddition to the N?aiomnto.
his could be in the FALCON MACRO ODT rom (KXT11-A2), or on

a MXV-11 boerd.

If you have instailed the Felcon Mecro-0DT rom KXT11-A2 for
booting
the XXDP+ media with the :.zmtue
on it, some of the
IAV/IDV-11 default addresses ere

diegnostics sutometic configuration routine
rm work ing
correctly. To use the duwtic.

manually using the stertup questions.

' USER DOCUMENTATION

NOTE:

A) theo the XXDP+ med
s booted, the console "BREAK” key should
not be preesed as
cummmotchprmtcd
8) I/0 P
eddresses from 160000 to 173776 ere used by the
KXY:;

0DT prom, so the first IAV/IDV11 eddress must be 174000

C) FAL
dose not support vecters over 374, Therefore you cen’'t use
IAV/IDV11 vectors over 374,

1.4

Releted documents and stenderds

XXDP+ User menual (CHQUS)

IAV/IDV11 Option description YG-COSNC-00

1.5

Diegnostic hierarchy prerequisites

Before rumning this d-m. the appropriaste LSI-11 CPU,
memory and peripheral
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 @
11723 ¢+ system for one unit:
quick verify = no ,execution time for 1 pass = 30 sec.
quick verify = yes.,execution time for 1 pess =
9 sec.

SEQ 0004

F1
MACRO Vv05.0C

2.0

Wednesday 03-Oct-84 14:03

SEQ 0005

Page S

Operating instructions

This section contains @ brief description of the runtime

services. for deteailed information, refer to the XXDP+ user's
menual (CHQUS)

There are eleven legel commands for the di

services (supervisor).

tic runtime

this section lists

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

commends end

The XXDP+ user's menusl

COMMAND

EFFECT

START
RESTART
CONTINUE
PROCEED

start the diegnostic from an initiel state
stert the diegnostic without initiolizin’
continue st test that wes interrupted (after tc)
continue from en error halt

ADD

ectivaete @ unit for testing (all units ere
ec
stert time

return to XXDP+ monitor (XXDP+ operation only!)

EXIT

' USER DOCUMENTATION

V-11 configuration,

or how to reconfigure.

FLAGS
ZFLAGS

type
the state of all flege (eee section 2.3)
clesr all flegs (see section 2.3)

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

you may, for example, type "STA” instesd of "START",

/TESTS:LIST

/PASS : DODDD
/FLAGS :FLGS

/EOP :DDODD
:

/UNITS:LIST

execute only

those tests epecified

the list.
ist is @ string of test
nusbers, for example - /tests:1:5:7-10.
this list will couse tests 1,5,7,.8,9,10 to
be run.
all other tests will not be run,

execute ddoddd pesees (ddddd = 1 to 64000)
set opecified flege.

mtm 263'

ddddd

flege sre described

pess messege

only.

after

ever

(ddddd = 1 to 64000)

TEST/ADD/DROP only those units specified

Gl
USER DOCUMENTATION

MACRO v05.00

Wednesday 03-Oct-84 14:03
in the list.

SEQ 0006

Pege 5-1

list exemple

/UNITS:0:5:10-12

Exemple of switch usege:

START/TESTS:1-S/PASS:1000/7E0P: 100
The effect of this commend will be:

1) tests 1 through S will be

oxocutcd 2) all units will tested 1000 times and 3) the end of

pess messeges will be printed after each 100 pesses only.

switch cen be recognized by

for example, type "/TES:1-5"

the first three cherecters.
instesd of "/TESTS:1-5~.

You mey,

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

START
RESTART

CONTINUE

PROCEED
DROP
ADD

TESTS

PASS

FLAGS

EOP

UNITS

X
X

DISPLAY

FLAGS

ZFLAGS
EXIT

Flegs ere used to set up certain

ational perameters such ss

looping on error.
All flegs ere
clesred st startup end nnm
clesred until explicitly set using the flags switch.
Fl
also clesred after 8 stert commend unless set using
.Y

switch. Tmmwmoluhwuclur eall flags.
With the exception of the stert and zflegs commends. no

commends affect the state of the flegs;:

they remain set or

clesred as specified by the lest fl.gswitch,
FLAG

EFFECT

HOE

halt on error - control ie returned to

LOE

loop on error

IERs

IBE+
IXEs
PRI

B0E

runtime services commend mode
inhibit all error reports

inhibit sll error reports except

first level

(first level contains

error type, number, pc, test and unit)

inhibit extended error reports (those

celled by PRINTX mecros)

direct messages to line printer

“Bell” on error

H1
MACRO V05.00

Wednesdey 03-Oct-84 14:03

Page 5-2

PNT

print test number as test executes

ADR
LOT

required since units ere only dropped if
EVL is used.
execute autodrop code
loop on test

UAM
ISR
IDR

unattended mode (no menual intervention)
inhibit statistical reports (not epplicable)
ithibit progrem dropping of units (not

EVL

execute evaluation ie. drop unit if more
then
on:\derrors occur after a START or RESTART
¢

serror messages are described in section 3.1

See the XXDP+ user's manuasl for more details on flegs.
You may
specify more then one flag with the flag switch.
For example,
to cause the progrem to loop on error, inhibit error reports
and type @ "bell” on error, you may use the following string:
/FLAGS:LOE
: IER:BOE

2.4

Hardware questions

When the diegnostic is sterted, the runtime services will prompt
the user for herdwere information by typing “CHANGE MM (L) ?*
This disgnostic hes been preloaded such thet

if you enswer "N”"

to the gquestion, it will Mon.tnc.lli search for
to 16
i
i
71000 to 171770. Default

modules with sddresses
over 171
To run the d diegnostic with epecific modules which need not be in

the sbove addrees

HARDMARE 8" question.

. yOU must answer "Y" to the “CHANGE

Mti-o services will then ask for the

mumber of units (in decimel). To keep down memory requirements,
imm nusber of units supported ie 16. You will then be
asked the following questions for each unit:

i
§

USER DOCUMENTATION

MODE REGISTER ADDRESS (0) 171400 ?
In reply,
160000 to

should enter sen address in octal
177770.

in the range

VECTOR ADDRESS (0) 400 ?
PRIORITY LEVEL (FOR OUTPUT mes.

TYPE *0*) (0) 4 ?

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

The following illustrates the response to the hardware

questions.

In this example, the user response

CHANGE HARDMARE (L) ? Y <cr>

is underlined :-

11
' USER DOCUMENTATION

MACRO V05.00

Wednesday 03-Oct-84 14:03

SEQ 0008

Pege 5-3

OUNITS (D) ? 2 <cr>

wITo
MODE REGISTER ADDRESS (0) 171400 ? <cr>

VECTOR ADDRESS (0) 400 ? <cr>
PRIORITY LEVEL (FOR OQUTPUT MODUWLES,

TYPE "0”) (0) 4 ? 0 <cr>

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

------

UNIT 1

MODE REGISTER ADDRESS (0) 171000 ? 171410 <cr>
VECTOR ADDRESS (0) O ? 410 <cr>
PRIORITY LEVEL (FOR OUTPUT MODULES,

TYPE RETURN) (0) O ? 4 <cr>

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

ccee--

Notice that the defsult value for the priority level chmr.

when 8 non-default response is given. This is true for all
of
thgth?mon questions, 80 be careful when specifying multiple
units!

2.5

Softwere questions

After you heve enswered the herdware questions or after o

restart or continue command, the runtime services will ask for
softuere perameters.
These peramesters 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 ?”. This is intended
for @ quick test of the module integrity before comnecting up
test equipment for full tests.

QUICK VERIFY MODE (L) N ?
If the answer to this guestion is "Y", only one iteration of
esch test will be performed. Otherwise, some testing is done
more then once. Repestedly testing
e piece of logic in this way

often detects faults which

o oin:!o test would not. Therefore,

:: f.;‘olly test the hardwere, the answer to this gquestion should
The followi

questions. The

illustrates the response to the softwere

user response is underlined:

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

J1
USER DOCUMENTATION

MACRO V05.00

2.6

Wednesday 03-Oct-84 14:03

Page 5-4

Extended p-table dislogue

When you answer the hardware questions, you are building entries
in a table that dncnbn the devices under test.
The simplest

way to build this table is to enswer all questions for each
unit to be tested.
If you ere testing several identical devices,
t:‘u:: boc:no tedious since most of the enswers are the same for
3

uni

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

CHANGE MARDMARE (L) ? Y <cr>

OUNITS (D) ? & <cr>
wiItTo
MODE REGISTER ADORESS (0) 171400 ? 171400,171410,171420,171430 <cr>

PRIORITY LEVEL (FOR OUTPUT MODWLES,

TYPE

“0") (0) 4 ? <cr>

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

—wn

cen see in the sbove do.l.oguc the runtime services will

build es many entries s it can with the information

any one pass through the questions. In this example,

given in

4 IDV11-D

m ot sddresees 174000, 174010, 174020 and 174030 sre set
up with vectors 400,410,420 and 430. All have priority level 4
2.7 Clock questions

If there is no line time clock on the system, the user is asked
to type 2 cheracters 6 seconds apart on the console. This should
be done es accurately es presible 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 end answer XXDP + questions

K1
| USER DOCUMENTATION

MACRO V05.00

Wednesday 03-Oct-84 14:03

SEQ 0010

Pege 5-5

3. Type "R ZIDV??". ( Normally the revision and patch
level ere typed insted of the

question marks. The form shown

here ceuses the latest version to
be run., )
4.

Type "“START"

S. For stenderd eenh!wotom using addresses 171400 to

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

6. Answer the "CHANGE SW” question with “N”

[Ea% 2
follow this procedure you will be using only the
defaults for flegs and softwere peremeters.
These defaults
ere described in sections
2.3 and 2.5.
2.9 Using the XXDP+ SETUP utility
To ensble the di
ic_to sutomaticelly establish the IXVil
eonh'unt
in
hou. the herdwere p table is preset for
16 units, each with & mode eddress of 0.
If the XXDP. SETUP
utility is uood preset the p teble for e perticuler

confi

ion, then the disgnostic will not sutometicelly

establish the configuration st stertup. In this cese, the
diegnostic cen be made to do sutometic configuration by
answer ing the hardwere questions to give 16 units with mode
eddresses of 0.

<cr>
(L) ? YRE
. CHANGE MARDMA

OUNITS (D) ? 16 <ecr>
wITo
MODE REGISTER ADORESS (0) O ? 0,0.0.0,0,0.0,0,0,0.0.0,0,0,0,0 <cr>

PRIORITY LEVEL (FOR OUTPUT MODWWLES,

TYPE

“0") (0) 4 ? 0 <cr>

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

-----

L1
USER DOCUMENTATION

MACRO V05.00
3.0 Error

Wednesday 03-Oct-84 14:03

Page 6

information

There are three levels of error messages that may be issued by o
diegnostic : general, besic and extended.
General error
messeges ere alweys printed unless the "IER” flag is set
(section 2.3). The general error message is of the form :
NAME
TYPE NUMBER
ERROR MESSAGE
where

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

NAME = disgnostic name

TYPE = error type (SYS FATAL, DEV FATAL, HARD or SOFT)
NUIMBER = error number

UNIT NMBER = O - N (N is lest unit in ptable)
ST

s test and subtest where error occurred

PC: XXXXXX = address of error messege cell

Besic error messeges ere
that conteain some additionel
informetion about the error.
are
printed unless
the "IER” or "IBR” flegs ere set (section 2.3).
These messages
sre printed after the sssocisted general message.

Extended error
such es
ister con

contein
s or

lementery error informetion
deta.
These
ere slways

printed un
the "IER”, "IBR” or "IXR” flege ere set (section
2.3). Theeoe messages ere printed after the ssesociated general
error message and any eesociated besic error messages.

All specific error

descriptions in section !.o.

are expleined with the test

SEQ 0011

M1
| USER DOCUMENTATION

MACRO V0S.00

Wednesdey 03-Oct-84 14:03

SEQ 0012

Page 7

4.0 Performance end progress reports

At the end of each pass, the pess count is given along with the

total nusber of errors reported since the di

tic wes sterted.

The "EOP” switch can be used to control how often the end

of poss message is printed.

Section 2.2 describes switches.

4.1 Print commend utilizetion

The “PRINT” commend cen be used to find out how maeny errors have

occurred on each unit since the diegnostic wes sterted.

In eddition, the commaend cen be used to displey the
configuration that the diegnostic is currently using, to print e
list of test titles, or to show how to meke
di
tic
reestablish the configuretion.. The following examples show how
the print commaend cen be u9ed. User input is underlined :

TYPE T,R,.C.S OR MELP (S) H ? <cm>
THE FOLLOWING
COMMANDS ARE ACCEPTED :-

T - PRINT TEST TITLES
R - PRINT MOMW TO REESTABLISH THE SYSTEM CONFIGURATION

C - PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC
S - PRINT STATISTICS TABLE
TYPE T,R,C.S OR MELP (S) W ?

If you tgu *H*", "MELP”" or eny cherecter other then “T", "R",
“C" or "S", the routine prints the sbove help messege listing
the ecceptable commends.

——

RESET TESY
R-M BIT TESY
AM 9513 SUBREGISTER TEST

TEST

g
$

INTERRUPY TEST

CveaNGVAW N

TEST TITLES.

LOOPBACK
EXTERNAL LOOPBACK, ISOLAT
UP/DOMN COUNTING APPLICATION TEST
VISUAL LED TEST

- SPECIFICALLY SELECTABLE

| USER DOCUMENTATION

MACRO v05.00

Wednesdey 03-Oct-84 14:03

SEQ 0013

Page 7-1

DR> PRINT <cr>

IDV/IAV11 MODULE STATISTICS.
UNIT

ERRORS

DROPPEDL

0
1
2

NO
YES
NO

WTESYED

Here,

unit 0 has shown
no feults, unit 1 hes had 6 errors and

UNIT

ADDRESS

VECTOR ID/MODE
ASSUMED

MODULE
TYPE

VAL
O

IDV/IAV1]1 MODLLE CONFIGURATION.

171000

NONE

DIG. OUT

171410
171010

171700
171400

0607000

410
NONE
420

0307002
2607000
1007000

NONE

UNKNOWN

NONE

400

3207000

3007000

DIG. IN
AN.
OUT
AN.
IN

COMMEND
CANNOT BE TESTED WITH THIS DIAG
CANNOT BE TESTED WITH THIS DIAG
CANNOT BE TESTED WITH THIS DIAG
CANNOT BE TESTED WITH THIS DIAG

ess CANNOT BE TESTED WITH THIS DIAG sse

UNKNOWN

FIVE CHA. CONT

The third column is labeled "VECTOR ASSUMED"” for the following
dizootac is confi
uutout.eouy by

answering "NO” to

*CHANGE

* QUESTION, davices with

addresses lower than 171400 sre essumed to have no vector. Above

The sbove example is selected to illustrate the different
feastures of the configuration printout.

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

If addressing the unit under test ceuses & bus timeout,

then

“UNKNOWN" is printed for the ID/MODE end MODWW.E TYPE. Thao is
shown for unit S. This would normally only occur .f the address
wes

incorrectly typed in the hardwere questions.

——
- —

B2
MACRO v0S5.00

Wednesdey 03-Oct-84 14:03

Pege 7-2

DR> PRINT <cr>

To reestablish the system configuretion, enswer the
herdwere quastion typing "0” as the mode address for 16 units.

eg. mode register address (0) O 2 Ouuvvnvencnncnne
Typing "R" 'im you information on how to reestablish the
system configuretion. This is necesnery if the H/W questions
have been answered or the herdwere iteelf hes been chenged
and
you want to find out whaet is in the system wi
reboot ing the
diegnostic.

USER DOCUMENTATION

MACRO v05.00

Wednesday 03-Oct-84 14:03

Pege 8

S.0 Device information tables
The herdwere p tables contain 3 words for eech device. These ere
used to seve the anewers to the stertup herdwere questions, and

cen be displeyed on the console by using either the "DISPLAY"
commend described in section 2.1 or the "PRINT" commend described

tee

e o

at—

Using the XXDP+ SETUP utility, the tsbies cen be preloeded to
contein informetion for epecific systems. MHowever, specisl cere
sust be teken if it is desired to restore the self configuring
feature of the disgnostic. See section 2.9.

De
USER DOCUMENTATION

MACRO V0S.00

Wednesday 03-Oct-84 14:03

Pege 9

6.0 Test mmu

This test checks thet accessing the device MODE,

INR registers does not ceuse & NXM trep.

CSR, CCR eno

The following error may be printed :

Error 101 :

This could mean thet the device eddress switch

incorrectly set, thet the eddrees wes entered incorrectly in
the stertup quastions, or that the device does not respond.
Test 2 - Reset Test.
ter
o

In the
register, only the LED bit is tested.
NOTE: The CSR end the
CH
ister can not be cleered by

Error 201

init

LED BIT IN MOD REGISTER NOT CLEARED AFTER BUS RESET

Error 202 : LED BIT IN MOD REGISTER CAN'T BE SET
Error 203 : REGISTER INCORRECT AFTER BUS RESET

ADORESS
: AMMAAA, GOOD
: GGGGGG, BAD:B88888

Test 3 - Register R/MW Bit Test.
This test checks thet the resd/write bits of esch register cen

all be set, all clesred and individuelly set.
the following errors mey be printed :

Error 301 :
Error 302 :

REGISTER READ/MRITE BITS COLD NOT BE SE
ADORESS:AMMAAA, GOOD
; GGGGGG w:uun IN BITS:RRRRRR
REGISTER READ/MRITE BITS COULD NOT BE CLEARED

ADDRESS
: AMMAAA, GOOD
s GGGGGG, BAD:BBBBBB, R/W BITS:RRRRRR

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

TEST 4

- AM 9513 SUBREGISTER TEST - FIVE CHANNEL COUNTER

E2
| USER DOCUMENTATION

MACRO V05.00

Wednesday 03-Oct-84 14:03

Page 9-1

THIS IS THE FIRST TEST TO REFERENCE THE AM9S13

SUBREGISTERS.

FOR ALL FIVE CHANNELS IT TESTS

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

ERROR
- UNABLE TO CLEAR 'OUT' BIT , CHA.: X

403

IN TOGGLE
A 'CLEAR TOUT' CMWOHASLOADED

THE STATE WAS READ BACK AS

ERROR 402

ERROR - UNABLE TO SET 'OUT' BIT

, CHA.:
X

‘SET TOUT' COMMAND
MWAS LOADED, AND THE STATE

MSE&M‘SCLEMED

ERROR 404

ERROR MRITING TO LOAD REGISTER OF CHA.: X
WRITTEN: XXXXXX,

READ: XXXXXX

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

ERROR 405

ERROR WRITING TO MOLD REGISTER OF CHA.: X
WRITTEN: XXXXXX,

READ: XXXXXX

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

TEST S -

INTERRUPT TEST - FIVE CHANNEL COUNTER

THIS TES?OEGSMYMMD‘WT LOGIC IS ABLE
TO CAUSE
AN INTERRUPT 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

ERROR 501,502

ERROR - INR REGISTER INCORRECT AFTER LOAD ‘CLEAR TOUT' COMMAND

ERROR 503

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

SEQ 0017

Fe
| USER DOCUMENTATION

MACRO V0S5.00

ERROR 504,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, ENCOUNTERED :XXX

A 'SET TOUT' COMMAND WAS LOADED TO PRODUCE ONE

INTERRUPT, MOMEVER, THEN INDICATED NUMBER WAS
DETECTED.
ERROR 507

ERROR - BAD INTERRUPT VECTOR DETECIED

ERROR 508

ERROR - INTERRUPT DID NOT OCCURED AT THE CORRECT PRIORITY LEVEL

ERROR 509

ERROR - MASTER CLEAR BIT IN INR REGISTER NOT RESETED AFTER INTERRUPT
INR CONTENS
IS : NNNNNN

SET UP VECTOR:NNN

SET UP:NNN

FOUND VECTOR:NNN

FOUND
: NNN

TEST 6 - AM 9513 REFERENCE FREQUENCY TEST - FIVE CHANNEL COUNTER

AND
THE LOAD
HAVE A VALUE DIFFERENT
THAT 10000
AND THAT THE

DIFFE?&FE BETWEEN ALL FIVE COUNTERS IS NOT GREATER

ERROR 601

UNEXPECTED DIFFERENCE BETWEEN COUNTER
SHOULD NOT BE GREATER
THAN 2

COUNT DOMN FROM 10,000 AT S MMZ FOR 3 NOP INSTRUCTIONS
COUNTER 1
COUNTER 2
COUNTER 3
COUNTER 4
COUNTER 5

VALUE:
VALUE:
VALUE:
VALUE:
VALUE:

XXXXXX
XXXXXX
XXXXXX
XXXXXX
XXXXXX

TEST 7 - SIGNAL GENERATION ON COUNTER INPUT - FIVE CHANNEL COUNTER
THIS IS A TEST OF SIGNAL GENERATION ON TIMER INPUT.

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.

G')
-

USER DOCUMENTATION

MACRO v0S5.00

Wednesday 03-Oct-84 14:03

Page 9-3

THIS IS REPEATED FOR ALL FIVE COUNTER,

ERORO 701

COUNTRE X DID NOT INXCREMENT
THE COUNTER SHOULD MAVE INCREMENTED AWAY FROM ZERO.

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
WGRTEWS“WMASWTOWE
COUNTER. THE COUNTER
IS ALLOWED TO RUN FOR THREE
NOP INSTRUCTIONS, AND A TEST IS MADE 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 MAVE 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 ISSEYWFOINWSMW?IO‘N
ouTL. MIISLMTOMIOQUW

TEMN THE COUNTER IS ALLOMED TO RUN FOR 100 PASSES OF A

THREE
NOP LOOP.
A TEST IS THEN MADE THAT THE COUNTER INCREMENTED.
THIS SEQUENCE ABOVE IS REPEATED WITH ALL COUNTERS.

T0 SOURCE

COUNTER
3,

COUNTER
3 IS USED FOR SIGNAL muounoours
gSLWYOMSoGAYE
THE LOOPBACK SIGNAL FREQUENCY IS APPOXIMATLY 100 kMz.

ERROR 901,

902

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 V05.00

Wednesdey 03-Oct-84 14:03

Page 9-4

TEST 10 - UP/DOWN COUNTING APPLICATION TEST
THIS IS AN UP/DOWN APPLICATION TEST.

THIS TEST

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

THIS
SYNCHRONOUS SETTING AND CLEARING OF TOUT N=3 AND 4,°

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 MIGH MODE.

A COUNT

OF 10000 SHOULD HAVE RESWLTED, BUT THE INDICATED
VALUE WAS DETECTED.

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

MIMSQTOKTM LOW, AND THESE SIGNALS

SHOULD NOT HAVE INCREMENTED
THE COUNTER.

BAD COUNTER VALUE, EXPECTED 10000, DETECTED XxX
OUTPUTS 3 AND 4 MERE TOGGLED TO PRODUCE A COUNT
OF 10000. THESE SIGNALS WERE INPUTED TO COUNTER 2
WHICH WAS SET TO THE ACTIVE MIGH MODE.

A COUNT

OF 10000 SHOULD MAVE RESWLTED, 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.

SEQ 0020

12
| USER DOCUMENTATION

MACRO V05.00

Wednesdey 03-Oct-84 14:03

Page 9-5

6.1 SECIFICALLY SELECTABLE TEST
O

This test is @ visual test. It fleshes the LED on end off on
every module in the system that is found by the sutomatic
configuration routine or selected in the hardware questions.
The test runs until "CNTL C”

Errors :

is typed.

This test has no error messages.
&

SEQ 0021

Je
PROGRAM HEADER AND TABLES

1081

1083

1084 002000
1085

1086
1087
1088
1089
1090

1091 002000

1092
1109
1110 002000
1111

Wednesdey 03-Oct-84

14:03

Page

.TITLE PROGRAM HEADER AND TABLES
PROGRAM MEADER
.SBTTL

1046
1047
1073
1078

1080 000000

MACRO V05.00

.ENABL

002000

ABS,AMA

jee

+ THE PROGRAM HEADER IS THE INTERFACE BETWEEN
+ THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
8

- -

POINTER ALL
HEADER

CZIDV,A,0,150,0,340

SEQ 0022

K2
| PROGRAM HEADER AND TABLES

| DISPATCH TABLE

1123
1124
1125
1126
1127
1128
1129
1130 002122
1131

MACRO V05.00

.SBTTL

Wednesdey 03-Oct-84 14:03

Pege 11

DISPATCH TABLE

jee

1 THE_DISPATCH TABLE CONTAINS THE STARTING

| IT 15 USED BY THE SUPERVISOR T0 DISPATCH 10
EACH TEST. '~
DISPATCH 11.

SEQ 0023

L2
| PROGRAM HEADER AND TABLES
| DEFAULT HARDWARE P-TABLE

.SBTTL

1139

1140
1141
1142

Peage 12

DEFAULT HARDWARE P-TABLE

+ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VAL

+ THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THItS!?AgLE
+ IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,
: AND IS USED AS A "TEMPLATE"” FOR BUILDING THE P-TABLES.

1144

1145
1146

1147

1162
1163 002162

Wednesday 03-Oct-84 14:03

jee

1143

1148 002152
1149
1159 002154
1160 002156
1161 002160

MACRO V0S5.00

8GN

DFPTBL
.WORD
.WORD
.WORD

171400

ENOHW

171400
400
PRIO4

+ MODE REGISTER ADDRESS
+ VECTOR ADORESS
+ PRIORITY LEVEL

M2
. PROGRAM MEADER

AND TABLES

' SOF TWARE P-TABLE

MACRO V05.00

1165

.SBTTL

1167
1168
1169
1170
1171
1172
1173
1174 002162
1175
1183
1184 002164
1185
1186 002166

1166

Wednesday 03-Oct-84 14:03

Page 13

SOFTWARE P-TABLE

+ THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE
+ PROGRAM AS OPERATIONAL PARAMETERS.

THESE PARAMETERS ARE

+ SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR
AT RUN TIME.

'--

BGNSW
000000

QvP::

SFPTBL
.WORD

ENOSW

+ QUICK VERIFY ? (0 = NO)

SEQ 0025

N2
MACRO v05.00

. PROGRAM MEADER AND TABLES

| HARDMARE PARAMETER CODING SECTION

1188

.SBTTL

1190

1189

;

Pege 14

HARDWARE PARAMETER CODING SECTION

1191

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

1194
1195

:+ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
;: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

1192
1193

Wednesdey 03-Oct-84 14:03

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
i+ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

1196

; WITH THE OPERATOR.

1197
1198

goe

1199 002166

BGNHRD

1211 002170

GPRMA

(C1,0,0,5,177776,YES

+ MODE ADDRESS

5{2 002210

GPRMD

(G3,4,0,340,0,6,YES

s+ PRIORITY

1200
1210

1215 002222

10%:

1216
1223

1224
1225 002222
1226 002250
1227 002270
1228 002307

115

126
120
012

117

105
122
015

104

103
111
050

G1:

G2:
G3:

ENDHRD

.NLIST
.ASCIZ
.ASCIZ
.ASCII
.&gz

BEX
/MODE REGISTER ADDRESS/
/VECTOR ADDRESS /
/PRIORITY LEVEL /
&13)(15’/(?@ LSI WITH FIXED PRI. USE LEVEL 4 ONLY)/

—

——————

—

H——

B3
MACRO V0S.00

PROGRAM HEADER AND TABLES

SOF TWARE PARAMETER CODING SECTION

.SBTTL

1232

1233
1234
1235

1
+
+
+
+
t

Wednesdey 03-Oct-84 14:03

SEQ 0027

Pege 15

SOFTWARE PARAMETER CODING SECTION

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED
MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

‘..

BGNSFT

s+ QUICK VERIFY MODE ?

108:
.EVEN

ENDSFT

002374

002416

121

125

111

Glé6:

LMNLIST

.ASCIZ
.LIST
.EVEN

BEX

‘Eo’{xcx VERIFY MODE/

GLOBAL AREAS

MACRO V05.00

Wednesdey 03-Oct-84 14:03

SEQ 0028

Page 16

SOF TWARE PARAMETER CODING SECTION

.TITLE GLOBAL AREAS
.SBTTL GLOBAL EQUATES SECTION

1326 002416
gee

+ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
+ ARE USED IN MORE THAN ONE TEST.
.--

EQUALS
i

+ BIT DIFINITIONS
]

B8IT1S==
8IT14==
8IT13==
8IT12==
8IT11==
8IT10==
8IT09=+
8IT08-=
8IT07=+
8I706-=
8IT0S==
B8IT04=+
8IT03=+
B8IT02=~
B8ITOle==
8IT00==
001000

B8IT9==
8IT8==
8IT7==
8IT6=+
B8ITSe=
BIT4==
B8ITS==
B8IT2+=
8ITi==
8ITO==

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

BITO9
BITOS
BITO7?
BIT06
BITOS
BITO4
BITO3
BITO2
BITO01
BIT00

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

€F .START s

s2.

EF - NEWes
EF .PR=e

29
28

EF RESTARTes
€F .CONTIMUE=>
B
'

31
30,

s PRIORITY LEVEL DEFINITIONS

‘lIO"" 340

START COMMAND MAS ISSUED

CONTY

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

D3
. GLOBAL AREAS

MACRO V05.00

GLOBAL EQUATES SECTION
000300

000240
000200
000140
000100

Wednesdey 03-Oct-84 14:03

Pege 16-1

PRIO6== 300
PRIOS== 240
PRIO4== 200

PRIO3== 140

PRIO2== 100
PRIO1== 40
PRIOO== 0
:

1OPERATOR FLAG BITS
H

EVLee
LOTes
ADR= I0U=.
ISRee
UAM=BOE-PNTee

PRIss
IXE==
IBE==
IER==
LOE==
HOE=s

4
20
40
100
200
400
1000

2000
4000
10000
20000
40000
100000

tCOUNTER COMMAND AND STATUS REGISTER
1COUNTER CONTROL REGISTER
sCOUNTER INTERRUPT REGISTER
sMIGH BITS MUST BE SET
1LOAD COUNTER
r.ie
tARM ALL SELECTED COUNTERS
.
1SAVE AND DISARM ALL SELECTED COUNTERS tMASTER RESET

177400
177500
177440
177600
177777
177750
177757
177740
177750
177700

COUNTERS
1COUNTER MODE REGISTER, OUT TOGGLE

000042

171000
171770

IXSTA== 171000
IXEND== 171770

s FIRST STANDARD IOV/IAV-11 ADORESS

+ LAST STANDARD IDV/IAV-11 ADORESS

E3
- GLOBAL AREAS

MACRO V0S5.00

| GLOBAL DATA SECTION
1373
1374

.SBTTL

000000
000000
000000
000000
000000
000000

1387
133::
1

GLOBAL DATA SECTION

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

1375
1376
1377

1380 002416
1381 002420
1382 002422
1383 002424
1384 002426
1& 002430

SEQ 0030

Pege 17

Wednesdey 03-Oct-84 14:03

MOD: :
CSR::
CCR::
INR::
VEC::
PRIO: :

LMORD
MORD
LMORD
LMORD
MORD
LMORD

O
O
O
O
O
O

1+ MODE REGISTER ADDRESS OF CURRENT WT
+ COMMAND AND STATUS REGISTER ADDRESS OF WT
s+ COUNTER CONTROL REGISTER A ADDRESS OF WUT
1+ INTERRUPT REGISTER ADDRESS OF CURRENT WUT
+ VECTOR ADDRESS OF CURRENT WT
s+ PRIORITY LEVEL OF CURRENT WT

:
+ WORKING STORAGE

1390 002432
1391 002434
1392 002436
1393 002440

000000
000000
000000
000000

SAVPRI : :
BITMSK::
BITMS1::
BITMS2::

LMORD
MORD
LMORD
LMORD

O
O
O
O

s+
1
s+
s+

1395 002444

000000

COUNTR: :

MORD

s+ GENERAL COUNTER

000000

ELEMNT::
ONTVAL : :

LMORD
BLKW
LMORD

1394 002442
1396 002446

1397 002450
1398 002452
1399 002464

000000
000000
000000

LMORD

MORD

LMORD

O
S

+ GENERAL NUMBER
1+ CURRENT GROUP

s+ CURRENT ELEMENT
s HOLDS VALUES FROM COUNTERS
+ SOURCE FOR A TEST

{4‘3 002466

000000

LOOP: :

1402 002470
1403 002472
1404
i&

000000
000000

NXMFLG: :
BIV:

LMORD
L.MORD

O
O

s SET IF XM TRAP OCCURS
+ HOLD VECTOR OF INTERRUPT
[l
T DID NOT OCCUR THROUGH
s+ SPECIFIED VECTOR

1407 002474
1408 002476
{:g: 002500

000000
000000
000000

GOO0D: :
BAD: :
SFI::

.MORD
LMORD
. WORD

O
O

1+ EXPECTED CONTENTS
1 AC
S
s+ FLAG TO FORCE ERROR PRINTOUTS

000000
000000
000010
000000
000000

ANS: :
ITRONT: :
TROEF : ;
INTFLA: :
INTFL2::

LMORD
LMORD
.MORD
LMORD
LMORD

O
O
10
O
O

1+
s+
s+
]
1+

TEMPORARY STORE FOR MANUAL INPUTS
ITERRATION
ITERRATION DEFAULT
INTERRUPT FLAG
ERROR INTERRUPT FLAG

100000
100000
100000
100000
100000
100000
100000

ECNT::

LMORD
LMORD
WORD
LMORD
LMORD
LHORD
LMORD

100000
100000
100000
100000
100000
100000
100000

;
;
;
;
;
;
;

ERROR COUNT FOR WT O - BIT 1S IS SET TO
ERROR COUNT FOR WT 1 - FLAG NOT TESTED.
ERROR COUNT FOR WT 2
ERROR COUNT FOR WT 3
ERROR COUNT FOR WT 4
ERROR COUNT FOR WT S
ERROR COUNT FOR WT 6

1411

1412 002502
1413 002504
1414 002506
1415 002510
{:5 002512

SAVED PRIORITY
FOR BIT MW
GENERAL BIT .MASK
GENERAL BIT MASK

1 GENERAL L

1418
1419
1420

1422

1423 002514
1424 002516
1425 002520
1426 002522
1427 002524
1428 002526
1429 002530

| GLOBAL AREAS

MACRO V0S5.00 Wednesdey 03-Oct-84 14:03 Page 17-1

F3
SEQ 003

| GLOBAL DATA SECTION

'
’
’

1430 002532
1431 002534
1432 002536
1433 002540
1434 002542
1435 002544
1436 002546
1437 002350
1:333 002552

100000
100000
100000
100000
100000
100000
100000
100000
100000

1440 002554
1441 002556

000000
000000

GPADD: :

1442 002560 000000
1443 002562 000000
1444 002564 000000
1445 002566 000000

100000
100000
100000
100000
100000
100000
100000
100000
100000

; ERROR COUNT FOR WT 7
; ERROR COUNT FOR WT 8
; ERROR COUNT FOR WT 9
; ERROR COUNT FOR WT 10
; ERROR COUNT FOR WT 11
; ERROR COUNT FOR WT 12
; ERROR COUNT FOR WT 13
; ERROR COUNT FOR WT 14
; ERROR COUNT FOR WT 15

WORD
WORD

O
O

s PARAMETER ADDRESS FOR UNIT 0
s PARAMETER ADORESS FOR UNIT 1

WORD
.WORD
MORD
WORD
WORD
WORD
WORD
MORD
MORD
WORD

O
O
O
O
O
O
O
O
O
O

t
s
s
s
s
s
s
+
1
s

.MORD
MORD
WORD
WORD

1446 002570 000000
1447 002572 000000
1448 002574 000000
1449 002576 000000
1450 002600 000000
1451 002602 000000
1452 002604 000000
1453 002606 000000
1454 002610 000000
{:g 002612 000000
{:gz 002614

.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
.MORD
.WORD

O
O
O
O

ODROPED: :

BLXB

PARAMETER ADDRESS FOR UNIT 2
PARMETER ADORESS FOR UNIT 3
PARNMETER
ADDRESS FOR UNIT 4
PARAMETER ADODRESS FOR UNIT 5

PARNMETER ADDRESS FOR UNIT 6
PARAMETER ADDRESS FOR UNIT 7
PARAMETER ADDRESS FOR UNIT 8
PARAMETER ADDRESS FOR UNIT 9
PARAMETER ADDRESS FOR UNIT 10
PARAMETER ADORESS FOR UNIT 11
PARAMETER
ADDRESS FOR UNIT 12
PARNETER ADDRESS FOR UNIT 13
PARAMETER ADDRESS FOR UNIT 14
PARAMETER ADDRESS FOR UNIT 15

+ UNIT DROPPED FLAGS

1459 002634
1460
1461 002636
1462

000000

TSTFLG: :

MORD

000000

TSUFLG: :

. WORD

1466 002640
1467 002642
1468 002644
1469 002646
1470 002650
1471 002652
1472 002654
1473 002656
1474 002660
1475 002662
1476 002664
1477 002666
1478 002670
1479 002672
1480 002674
{% 002676

000000
000000
000000
000000
000000
030000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

LOPFLG::

.WORD
.WORD
WORD
MORD
MORD
.WORD
MORD
.WORD
WORD
.WMORD
.WORD
.WORD
MORD
WORD
WORD
MORD

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s

{&3 002700

000000

LOTFLA::

.WORD

s SET BY INIT CODE IF LOOP ON TEST IS SELECTED

}4.“2 002702

000000

CONMSK: :

.MORD

+ TEST CONTROL MASK SET UP BY INIT CODE

1463

1
+
1
+

s+ CLEARED AT START OF EACH PASS

s SET IF ANY TEST IS SELECTED
s CLEARED AT START OF EACH UNIT'S PASS
s SET IF ANY TEST IS SELECTED

SET IF LOOP CHECK ROUTINE CALLED FOR UNIT O
SET IF LOOP CHECK
INE CALLED
FOR UNIT 1
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 2
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 3
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 4
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT S5
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 6
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 7
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 8
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 9
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 10
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 11
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 12
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 13
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 14
SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 15

G3
. GLOBAL AREAS

MACRO V0S5.00

GLOBAL DATA SECTION
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501

Wednesdey 03-Oct-84 14:03

SEQ 0032

Pege 17-2

: LOW BYTE IS DEVICE CODE
ABOVE
BITS 5,

S
S
S
S
S

SET
SET
SET
SET
SET
6

IF
IF
IF
IF
IF

WT
WT
WT
WT
WT

IS
IS
IS
IS
IS

DIGITAL INPUT
DIGITAL OUTPUT
ANALOGUE
INPUT
ANALOGUE OUTPUT
NONE OF THE

AND 7 ARE UNUSED

BIT 8 IS ALWAYS SET TO SELECT BASIC
INTERNAL LOGIC TESTS

BIT 9 SET TO SELECT FIELD INPUT/OUTPUT
TESTS

BIT 10 IS SET IF LOOPBACK TESTING IS
SELECTED AND ALLOMED FOR CURRENT WT

BIT 11 IS SET IF MANUFACTURING LOOPBACK
AND INPUT/OUTPUT 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::

.WORD
.WORD

O
O

MODE FOR DIGITAL/ANALOGUE CONVERSIONS
GAIN FOR DIGITAL/ANALOGUE CONVERSIONS

002710

000000

PADD::

.WORD

ADDRESS OF PROMPT FOR DECIMAL INPUT ROUTINE

.EVEN

emang i

H3
GLOBAL AREAS

MACRO V05.00

' GLOBAL DATA SECTION

1522

1523

.RADIX

000012

LNLIST

1524

BEX

1525

+ ANALOGUE/DIGITAL CONVERSION TABLES USED BY ROUTINES DACON AND ADCON.

1527

:+ VOLTAGE UNIPOLAR TABLE MODE O (0-10V)

1529

s BITS

1526

1528

1530

1531 002712

78,

39,

19,

9.,

2 ; mv G=1

39,

19,

1 ; mv G=2

004704

002342

1534 002772

004704

002342

001161

2500,1250, 625, 312, 156,

1537 003052
issgg 003102

001750
000000

000000

000754

000372
000000

1000, S00, 250, 125, 62, 31,
1S,
7.
8§,
1.
0,
O ; mv G=5
0.
0,
O,
0, S00, 250, 625, 813, 906, 953, 977, 488 ; uwv

1S540 003132
{;% 003162

000764
000000

000372
000000

000175
000000

S00, 250, 125,
62,
31,
15,
7,
3,
1,
O,
O,
O ; mv G=-10
0,
0,
0, S00, 250, 625, 813, 906, 953, 977, 488, 244 ; W

1543 003212
%;; 003242

000372
000000

000175
O00GO00

000076
000764

250, 125, 62,
31,
15,
7,
3,
1,
O,
O,
O,
O ; =v G=20
0.
O, S00, 250, 625, 813, 906, 953, 977, 488, 244, 122 ; WV

1546 003272
{az 003322

000144
000000

000062
000000

000031
000000

100,
0,

S0,
O,

1549 003352
{%i 003402

000062
000000

000031
000000

000014
000764

50,
0.

25,
12,
6,
3,
i,
0,
O,
O,
O, S00, 250, 125, S63, 781, 391, 195,

1552 003432
1553 003462

000031
000000

000014
000764

000006
000372

25,
12,
6,
3,
i,
0,
O,
0, S00, 250, 125, S63, 781, 391,

{& 003022

1554

000000

VUPTAB:: 5000,2500,1250, 625, 312, 156,

011610

Pege 18

Wednesday 03-Oct-84 14:03

78,

O, S00, 250, 125,

63, 531, 766, 883, 441, 221 ; W

25,
12,
6,
3,
i,
0,
0,
O,
0, S00, 250, 125, S63, 781, 391, 195,

O,
195,

O,
98,

O ; mv G50
49 ; wW

O,
98,

O,
49,

O ; = G=100
24 ; w

O,
49,

O,
24,

O ; mv G=200
12 ; w

13
SEQ 0034

| GLOBAL AREAS __ MACRO V05.00 Wednesdey 03-Oct-84 14:03 Page 19
GLOBAL DATA SECTION

(=]

1560 003512
1325 003542

023420
000000

011610
000000

004704
000000

1563 003572
1;2; 003622

011610
000000

004704
000000

002342
000000

5000,2500,1250, 625, 312, 156, 78,
o,
0,
0,
0, 500, 250, 125,

1566 003652

003720

001750

000764

2000,1000, 500, 250, 125,

62,

31,

1569 003732

001750

000764

000372

1000, 500, 250, 125,

31,

15,

1572 004012
{;;3 004042

000764
000000

000372
000000

000175
000000

500, 250, 125, 62,
31,
15,
7,
0o,
O,
0, 500, 250, 625, 813,

977, 488

1575 004072
{g;g 004122

000310
000000

000144
000000

000062
000000

200, 100,
0.
0,

S0,
0,

25,
12,
6,
3,
0, 509, 250, 125,

391,

1578 004152
ig;z 004202

000144
000000

000062
000000

000031
000000

100,
0,

S0,
0,

25,
12,
6,
3,
1,
0, 500, 250, 125, S63,

195,

1581 004232
{Ss:g 004262

000062
000000

000031
000000

000014
000764

S0,
0.

25,
12,
6,
3,
1,
0,
0, 500, 250, 125, 563, 781,

1;2: 003702
1

{g;g 003762

000000
000000

000000

000000
000000

VBPTAB::10000,5000,2500,1250, 625, 312, 156, 78,
0,
.
'
0,
s
. 125,

o0,

0O,

0, 500,

62,

63,

mV G=1
v

mV Gr2
uv
mV G=S
uv

f
3

s BITS

1558
1559

~NO

tVOLTAGE BIPOLAR TABLE (-10 - +10V) MODE 1

1557

0, 500, 250, 625,

%o 30 80 Po 8o 3

1556

aV G=10
uv

aV G=100
uv

——

J3
MACRO V05.00

GLOBAL DATA SECTION

011610
000000

004704

1592 004372
1593 004422

011610
000000

004704
000000

002342

5000,2500,1250, 625, 312,
500,

1595 004452
1596 004502

003720
000000

002750
000000

000764

2000,1000, 500, 250, 125,
o.
o.
o.
o.
o. m

1598 004532
1599 004562

001750
000000

000764
000000

000372

1000, 500, 250,

0O,

125,

62,

000764
©00000

000372
000000

000175

500, 250,
0,
0,

62,

31,

0n0310
000000

000144

200,

100,

50,

25,

12,

000031

100,

S0,

25,

12,

000014
000764

S0,
«

25,
12,
6,
3,
0, 500, 250, 125,

1597

000144
000000

78,
IOTAB:: 10000,5000,2500,1250, 625, 312, 156,
0, 500 250 125,
0,
0,
o0,
o,

023420
000000

1594

0, 500, 250

0, 500, 250, 625

0, 500, 250

0, 500, 250,

125,

63,

531,

~NO

Bo 80 %o go §o

¢ BITS

5, 8. o

tCURRENT 0-20 mA TABLE - MODE 2

1589 004312
1590 004342

1591

—

SEQ 0035

Page 20

1585
1586
1587
1588

Wednesday 03-Oct-84 14:03

. GLOBAL AREAS

vA G=10
nA

vA G=20
nA

vA G=S0
nA

: VA G=100
nA

vA G=200
nA

IK3
| GLOBAL AREAS

MACRO V0S5.00

' GLOBAL DATA SECYION
1614

SEQ 0036

Page 21

Wednesday 03-Oct-84 14:03

1615

TABLE (MODE 3)
4 - 20 MANT
+ CURRE

1617

: BITS

IATAB::

161¢€

1618

8000,4000,2000,1000, S00, 250, 125, 62,
0,
0,
0,
0,
0.
0,
0, 500,

31,
o

15,
7,
3 ; vA G=1
, 813, 906 ; nA

1619 005112
1620 005142

017500
000000

007640
000000

003720
000000

1622 005172

007640

003720

001750

4000,2000,1000, S00, 250, 125,

62,

31,

15,

1 ; VA G=2

1625 005252

003100

001440

000620

1600, 800, 400, 200, 100,

50,

25,

12,

0 ; vA G=5

1628 005332
{:233 005362

001440
000000

000620
000000

000310
000000

800, 400, 200, 100,
o,
0,
O,
O,

SO0,
O,

25,
12,
6,
3,
1,
0,
0 ; vA G=10
O, S00, 250, 125, 563, 781, 390 ; nA

1631 005412

000620

000310

000144

400, 200, 100,

SO0,

25,

12,

1634 005472
{:g 005522

000240
000000

000120
000000

000050
000000

160,
0,

80,
0O,

40,
0,

20,
0,

10,
0,

0, S00, 250,

0,
0,
0,
. 313, 156,

78 ; nA

1637 005552

000120

000050

000024

80,

40,

20,

10,

S5,

O ; wAG=100

1640 005632

000050

000024

000012

40,

20,

10.

S5,

2,
1,
O,
O,
O,
O, S00, 250, 625, 313, 156,

O,
78,

O,
39,

O ; vAG=200
20 ; nA

.RADIX
LIST

8
BEX

1621

1:222 005222
1

%aé 005662
1643

1544
1645

000000

000000
000010

000000

o0,

0, S00, 250,

. 813, 906, 953 ; nA

0 ; vA G=20
0 ; vA G50

L3
. GLOBAL AREAS

MACRO V0S5.00

' GLOBAL DATA SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0037

Page 22

,—————

000000

ERRTYP: :

000000
000000

ERRMSG: :
ERRBLK: :

ERRTBL

.WORD
.WORD
.WORD

0000

1647

1660
1661 005712
005712
005714
005716
005720

M3
MACRO V05.00
| GLOBAL AREAS
| GLOBAL TEXT SECTION

;

Wednesdey 03-Oct-84 14:03
.SBTTL

1663
1664
1665
1666

+ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
+ MORE THAN ONE TEST.

1668

1669

'-.

1670
1671
1672
1673
1674
1675
1676 005722
1677
1683
1644
1685
1686 005732
1687
1694
1695

LNLIST

1713
1714

SEX

s NAMES OF DEVICES SUPPORTED BY PROGRAM
DEVTYP

<IDV11-D»

+ TEST DESCRIPTION
'

DESCRIPT

s FORMAT STATEMENTS USED IN PRINT CALLS

1659
1697
1655

1712

GLOBAL TEXT SECTION

1667

1709
1710 005772
1711

SEQ 0038

Page 23

045

NODEV::

.ASCIZ

\sNsAsss NO DEVICES FOUND IN RANGE 171000 TO 171770 ssssN\

.LIST
.EVEN

BEX

MACRO V0S5.00
GLOBAL AREAS
GLOBAL ERROR REPORT SECTION
1723

Wednesdey 03-Oct-84 14:03
.SBTTL

1724

Pege 24

GLOBAL ERROR REPORT

SECTION

1725

1728
1729

: (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES.
==

1726
1727

: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS
: USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION.
PRINTB

1730

1731
1747
1748 006064
1749 006064

17S0 006114

1751 006120
1752
1753
1754 006122
1755 006122

1756 006156
{g 006162
1759 006164
1760 006164
1761 006210

1762 006214
1763
1764
1765
1766 006216
1767 006216
1768 006242
1769 00c24L
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
1789
1790
1791
1792
1793 006346
1794 006346

004737

014434

004737

014434

004737

014434

BGNMSG

EER1

JSR

PC . CHKXMAX

BGNMSG
PRINTB

EER2
@EMG3,GO0D,BAD,
8M0D

PRINTB

ENDMSG

#GOOBAD,GOOD,BAD

JSR
ENDMSG

PC, CHKMAX

BGNMSG
PRINTB
JSR

EER3
#EMGA,8CSR
PC, CHKMAX

BGNMSG
PRINTB
JSR
ENDMSG

EER6
#EMGA,BAD
PC, CHKMAX

BGNMSG
PRINTB
JSR
ENDMSG

EERA
#EMG1.R1
PC, CHKMAX

BGNMSG
PRINTB
JSR
ENDMSG

EERS
#EMG2,RS,GO0D,BAD
PC , CHKMAX

BGNMSG
JSR
ENDMSG

EERG
PC, CHKMAX

BGNMSG
PRINTB

ERR104
€E104 ,NUMBER

ENDMSG

+ PRINT GOOD AND BAD

:+ CHECK FOR TOO MANY ERRORS

1ERROR MESSAGE

m———

B4
GLOBAL AREAS

MACRO V05.00

' GLOBAL ERROR REPORT SECTION
1795 006372
1796 006376

Page 24-1

014434

PC,CHKMAX

014434

ERR105
#€105, NUMBER
PC ., CHXMAX

1ERROR MESSAGE

014434

ERR106
#€106,GROUP
#E106A, COUNTR,RS
PC, CHXMAX

1ERROR MESSAGE
1ERROR MESSAGE

014434

#€107,GROUP
#E107A,COUNTR,RS
PC , CHKMAX

Cl4434

ERR108
0€108 , NUMBER
CHICMAX

1ERROR MESSAGE

014434

ERR109
0€109, MUMBER
PC ., CHXMAX

1ERROR MESSAGE

014434

ERR110
0€110,NUMBER
PC , CHXMAX

1ERROR MESSAGE

014434

ERR111
#€111,NUMBER
CHKMAX

:ERROR MESSAGE

004737

014434

ERR112
0€112,NUMBER
PC , CHKMAX

;ERROR MESSAGE

004737

014434

004737

1807 006510

Wednesdey 03-Oct-84 14:03

004737

1808

1809 006512
1810 006512
004737

1815 006572
1816 006572
1817 006616
1818 006622

004737

1819

004737

1849 007116
1850 007122
1851

004737

014434

1ERROR MESSAGE
1ERROR MESSAGE

1ERROR MESSAGE

1ERROR MESSAGE
1ERROR MESSAGE

——

—

———————
—
.
o
=

——

Ca
GLOBAL AREAS

MACRO V05.00

GLOBAL ERROR REPORT SECTION
1852 007124
1853 007124
1854 007144
1855 007150

004737

014434

1856

1857 007152
1858 007152
1859 007176
1860 007202

1868
1869 007262
1870 007262
1871 007302
1872 007332
1873 007336
1874
1875
1876 007340
1877 007340
1878 007360
1879 007404
1880 007410

004737

014434

ENDMSG

Ol4434

004737

014434

012702
012701
012103

000001
002452

004737

PRINTB

ERRSOS
€113
PC . CHXMAX

ERRSO4

014434

1ERROR MESSAGE

#E114, INTFLA

1ERROR MESSAGE

ERRSOS
0E114A
#€1148, VEC,.BIV
PC, CrXMAX

1ERROR MESSAGE
1ERROR MESSAGE

PC, CHKXMAX

1ERROR MESSAGE
1ERROR MESSAGE

1ERROR MESSAGE

OCONTXT ,R2,R3
R2
R2,05
0l4434

SEQ 004]

Pege 24-2

014434

004737

003761
004737

1907 007634
1908 007634

PRINTB
JSR

BGNMSG

1061
1862 007204

1863 007204
1864 007224
1865 007254
1866 007260
1867

Wednesdey 03-Oct-84 14:03

PC, CHIXMAX
ERR116
#€116,NUMBER,R2
0€1168

PC, CHIXMAX

ER116A
#E116A,NUMBER
,R2

sCHANNEL NUMBER
sALL CHANNELS?
tMORE TO PRINT

+ SOURCE

D4
GLOBAL AREAS

MACRO V05.00

' GLOBAL ERROR REPORT SECTION
1909 007662
1910 007702
1911 007706

004737

014434

1912

1913 007710
1914 007710
1915 007734
1916 007754
1917 007760

004737

N14434

Wednesday 03-Oct-84 14:03
PRINTB

PC, CHKMAX

BGNMSG

ER1168
#€116,R2,R3
#E1168

PRINTB
PRINTB

JSR
ENDMSG

1918

1919 007762
1920 007762
1921 010006
1922 010026
1923 010032

004737

014434

1924

1925 010034
1926 010034
1927 010056

1928 010076
1929 010102
1930
1931 010104
1932 010104
1933 010126
1934 010132
1935
1936 010134
1937 010134
1938 010156

1939 010162
1940
1941 010164
1942 010164
1943 010206
1944 010226
1945 010232
1946
1947 010234
1948 010234
1949 010260
1950 010300
1951 010304
1952
1953
1954
1955
1956
1957
1958

1959
1960
1961 010306
1962 010336
1963 010405
1964 010455
1965 010542

004737

014434

PRINTB
PRINTB
JSR
ENDMSG
PRINTB
PRINTB
JSR
ENDMSG

BGNMSG
004737

014434

PRINTB

JSR
ENDMSG

BGNMSG

004737

014434

#€1168

JSR

ENDMSG

PRINTS
JSR
ENDMSG

004737

014434

101
101
101
10i
101

s SOURCE

PC , CHXMAX

ER116C
#€116A,R2,R3
#€1168
PC , CHXKMAX

ERR120
#€120,RS
#€1168

1ERROR MESSAGE

PC, CHKXMAX
ERR121
#€121,R5

PC, CHKMAX
ERR122
#€121,RS
PC, CHIMAX

BGNMSG
004737

SEQ 0042

Pege 24-3

1ERROR MESSAGE

sERROR MESSAGE

1ERROR MESSAGE

PRINTB
PRINTB

JSR
ENDMSG

PRINTB
PRINTB

JSR
ENDMSG

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

ERR124
#€124,(R5),RO
#€1168
PC, CHKXMAX

1ERROR MESSAGE

+ BAD:806%N/
,
A
, MOD REGISTER CONTENTS:®O6%N/
18068
/iACSI EGISTER CWENTS IS 906N/

MACRO V0S5.00
OBAL AREAS
OBAL ERROR REPORT SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0043

Page 24-4

.LIST BEX
.EVEN

101
101
101
101
101
101

2003 013333
2004 013432
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016

101
101
101
101

JNLIST
.ASCIZ

€104:
€10S:
€106:

.ASCIZ
.ASCIZ
.ASCIZ

€103:

E106A:
€107;
E107A:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

€108:
€109:

.ASCIZ
.ASCI2

€i111:
€112:

.ASCIZ
.ASCIZ

€110:

€113:

€l114:

E114A:
€1148:
€11S:
STRVAL:

STAVA2:
T:

€116:
E116A:
€1168:

€120:
€121:
€124:
€%01:
€S02:
€506 :
€ES07:

ESO7A:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ

.ASCIZ

.EVEN
.ASCIZ
.ASCIZ2
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
NLIST

BEX
/ERROR- SPECIAL MODULE BIT IN MADR IS NOT SET/
JERROR - 'CT MOD’' BIT IN MEDR IS NOT SET/
/SAERAOR
- UNABLE TO CLEAR ‘OUT’' BIT NR: sOSN/
/SAERRCR- UNABLE TO SET 'OUT’ BIT NR: SOWN/
/SAERROR
- WRITING LOAD REGISTER OF CHA.:wD18N/
/8A, WRITTEN; #O68A,
READ: SO6WN/

Wxfim ITING HOLD REGISTER OF CMA. :wD1#N/
/8AERROR - CAN NOT CLEAR 'EN’ BIT NR: wOWN/
CAN NOT SET 'EN’ BIT NR: WOWN/
T CLEAR 'INT' BIT NR: SOWN/

283

€102:

T SET 'INT' BIT NR: wOWN/

' BIT NR: WD18A MAS RESETSN/
UNEXPECTED INTERRUPT DETECTEDSN/
EXPECTING ONE INTERRUPT, ENCOUNTERED OSSN/

INTERRUPT VECTOR DETECTEDSN/

1972 010662
1973 010732
1974 011007
1975 011062
1976 011140
1977 011201
1978 011257
1979 011321
1980 011373
1981 011443
1982 011516
1983 011567
1984 011641
1985 011713

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

1970
1971 010604

OR :80S6A

FOUND VECTOR :8O3SN/

/#ACOUNTER wD18A DID NOT INCREMENTSN/
/7SNINEXPECTED DIFFERENCE lmm COUNTERS %N/
/8ASHOULD NOT BE GREATER THAN 29N/
/8ACOUNT DOMN FROM 10,000 AT S MMZ FOR 3 NOP INSTRUCTIONS.®N/

/#ACOUNTER #D1sSA

VALUE: wD6eN/

COUNTER VALUE,

EXPECTED O, DETECTED: sDSeN/

/SAERROR LOADING TOGGLE, WRITTEN

TM/

: SO68N/

l GLOBAL AREAS

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

| GLOBAL SUBROUTINES SECTION
22813
1

f
|

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
: THAT ARE USED IN MORE THAN ONE TEST.

2025

: SUBROUTINE REGTST - GENERAL PURPOSE REGISTER TEST.

2023

2027

i--

2028

+ FUNCTIONAL DESCRIPTION:

2030

;

g;z

;

CHECKS THAT ALL READ/MRITE BITS OF THE SELECTED REGISTER CAN BE
SET, CLEARED, AND INDIVIDUALLY SET (SLIDING ONES PATTERN).

s INPUTS:
H

2035
2036
2037

:
:
:

IF ENTERED AT LOCATION REGTST, THE LOCATIONS FOLLOWING THE
SUBROUTINE
CALL MUST CONTAIN
THME READ/MRITE BIT MASK, THE
ADDRESS OF TME REGISTER TO BE TESTED, AND THE FIRST ERROR NUMBER

2040
2041
2042
2043

:
:
;
;

IF ENTERED AT LOCATION REGTS1, THE READ/MRITE BIT MASK, REGISTER
ADDRESS TO BE TESTED, AND THE FIRST ERROR NUMBER MUST BE LOADED
INTO LOCATIONS MASK, REGADD, AND ERRNBR RESPECTIVELY. THIS
ALLOMS THE ARGUMENTS TO BE VARIED AT RUN TIME.

2232

: IMPLICIT INPUTS:

ggg

2044

;

TO BE USED (SEE CALLING SEQUENCE).

2047

2049

: OUTPUTS:

2050

2051

2052

2053
2054

2055

;

NONE.
ERROR MESSAGES IF ERRORS OCCUR.

: IMPLICIT OUTPUTS:
H

2057

;
H
:

2060

;

ALMAYS,

:
;
;
;
;
;

MASCOM - CONTAINS THE COMPLEMENT OF THE MASK
GOOD
- CONTAINS LAST EXPECTED DATA
BAD
- CONTAINS LAST ACTUAL DATA
ERRNBR - CONTAINS THE INPUT ERROR NUMBER + 2
ERRTYP - CONTAINS 3 (SOFT ERROR)
ERRBLK - CONTAINS ADDRESS OF REGERR (REGISTER ERROR MESSAGE)

20“
%

GLOBAL SUBROUTINES SECTION

2020
2021
2022

.SBTTL

;

2061

;

2062
2063
2064
2065
2066
2067

;

gg;g

2072

2073

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

REGADD - CONTAINS THE ADDRESS OF THE REGISTER BEING TESTED

ERRMSG - CONTAINS 3RD REGISTER ERROR MESSAGE

s SUBORDINATE ROUTINES USED:
H

;
i

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

FUNCTIONAL SIDE EFFECTS:

2077

@
'

2078
2079
2080
2081
2082
2083
2084
2085
2086

CALLING SEQUENCE :
EITHER FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL

EG.

2087
2088
2089
2090
2091
2092

017637
062716
017637
062716
017637
062716

013737
005137
012737
012737
012737

014046

REGTST::

014052

005714
014050

014122

REGTS1::

177
CSR
200.

REGTST

BIT MASK OF R/W BITS
REGISTER ADDRESS

FIRST ERROR NUMBER

EG.

BIT MASK OF R/W BITS
REGISTER ADDRESS

MOV

MOV
MOV
CALL

#177,MASK
CSR,REGADD
9200, ,ERRNBR
REGTS1

FIRST ERROR NUMBER

MOV
ADD
MOV
ADD
MOV
ADO

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

GET R/W BIT MASK
JUMP OVER ARGUMENT
GET REGISTER ADDRESS
JUMP OVER ARGUMENT
GET FIRST ERROR NUMBER
JUMP OVER ARGUMENT

MOV
coM

MASK ,MASCOM
MASCOM

SET UP COMPLEMENT
OF R/W BIT MASK
SET UP FOR SOFT ERROR
SET UP ERROR MESSAGE ROUTINE

MOV
MOV
MOV

005712
005720
005716

CALL

OR PARAMETERS ARE SET DYNAMICALLY

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
2108 013544
2109 013552
2110 013560
2111
2112
2113
2114 013566
2115 013574
2116 013576
2117 013604
2118 013612
2119 013620
2120 013626
2121 013632
2122 013634

Pege 25-1

#3,ERRTYP
+ ERRBLK
ORERR1
, ERRMSG

FIRST ERROR MESSAGE

THAT ALL R/M BITS CAN BE SET

013737

014046

053777
017737
043737
023737
004737
001401

002474

015240

002474

MOV

002476
002476
002474

MOV

BGNSEG
8IS
8IC

cP
CALL
BEQ
10¢:

ERROR
ENDSEG

MASK
, GOOD

SET UP EXPECTED DATA

GOOD
, SREGADD

SET ALL R/MW BITS
READ THE RESWLT
KEEP ONLY R/W BITS
ALL R/MW BITS SET?
ALLOW FORCED ERROR PRINTOUT
IF OK, BRANCH
ELSE REPORT ERROR

SREGADD
, BAD

MASCOM, BAD

8AD, GOOO
INSERT
104

[

3+ CHECK THAT ALL R/MW BITS CAN BE CLEARED
005037
005237
012737
2131 013656

002474
005714
014174

005716

CLR
INC

MOV
BGNSEG

ERRNBR

#RERR2
, ERRMSG

SET UP EXPECTED DATA
NEXT ERROR NUMBER
NEXT ERROR MESSAGE

H4
MACRO V0S5.00
. GLOBAL AREAS
SECTION
INES
SUBROUT
' GLOBAL

.
l

2132 013660
2133 013666
2134 013674
2135 013702

2136 013710
2137 013714

2138 013716
2139 013720

043777
017737
043737
023737
004737
001401

2186

BIC
MOV
8IC
(o,
CALL
BEQ
ERROR
ENDSEG

Pege 25-2

MASK , SREGADD
SREGADD ,BAD
MASCOM,BAD

BAD, GOOD
INSERT
204

s+ CLEAR ALL R/W BITS
1+ READ THE RESWLT
s+ KEEP ONLY R/W BITS

s
s+
s
1+

ALL R/W BITS CLEAR?
ALLOW FORCED ERROR PRINTOUT
IF OK, BRANCH
ELSE REPORT ERROR

ERRNBR
ORERRS , ERRMSG
#1,G0O0D
GOOD , MASK
S0¢
GO0D
704
30¢

3
s+
s
s+
s
s
s
s+

NEXT ERROR NUMBER
NEXT ERROR MESSAGE
FIRST BIT TO TEST
R/MW BIT?
IF YES, TEST IT
ELSE FIND NEXT R/W BIT
IF ALL DONE, RETURN
ELSE CHECK IF NEXT IS R/M

MASK , SREGADD
GOOD,
SREGADD ,BAD
MASCOM,

s
s+
s+
s+

CLEAR ALL R/W BITS
SET ONE BIT
READ IT BACK
KEEP OMLY R/W BITS

604

s IF OK, BRANCH
s+ ELSE REPORT ERROR

;+ CHECK THAT EACH R/W BIT CAN BE SETY

2143 013722
2144 013726
2145 013734
2146 013742
2147 013750
2148 013752
2149 013756
2150 013760
2151
2152 013762
2153 013764
2154 013772
2155 014000
2156 014006

000164
002476
002476
002474

204 :

2140
2141
2162

005714

014252
002474

005716
002474

014046

014046
002474

014050
002476
015240

30%:

40%:

002474

SOs¢:
002476
002476
002474

604 :
704 :

014046

MASK::

INC
MOV
MOV
BIT
BNE
ASL
8Cs
BR
BGNSEG
8I1C
8IS

MOV
8I1C
(o, 4
CALL
BEQ
EHVDR

ENDSEG

s ALL OTHER BITS CLEAR?
s ALLOW FORCED ERROR PRINTOUT

40¢

s+ TEST NEXT BIT

8IC

MASK , SREGADD

; LEAVE THE R/W BITS CLEAR

.WORD

s+ BIT MASK OF READ/WRITE BITS

RETURN

O
O

BGNMSG

REGERR

JSR

PC . CHKMAX

PRINTB

014434

B8AD, GOOD
INSERT

MASCOM: .WORD
REGADD:: .WORD

ENDMSG

s+ COMPLEMENT OF MASK
+ ADDRESS OF REGISTER TO BE TESTED

OREGMSG,REGADD,GOOD,BAD
,MASK

:+ CHECK FOR TOO MANY ERRORS

.NLIST BEX

& RRR

2157 014014
2158 014022
2159 014026
2160 014030
2161 014032
2162 014034
2163
2164 014036
2165 014044
2166
2167
2168 014046
2169 014050
2170 014052
2171
2172 014054
2173 014054
2174 014114
2175 014120
2176
2177
2178
2179 014122
2180 014174
2181 014252
2182
2183 014341
2184
2185

014046
000160
014050
002476
015240

Wednesdey 03-Oct-84 14:03

105

107
107
107

RERRL1:
RERR2:
RERR3:

.ASCIZ
.ASCIZ
.ASCIZ

#REGISTER READ/WRITE BITS COULD NOT BE SET#
#REGISTER READ/WRITE BITS COUWLD NOT SE CLEARED=
#REGISTER READ/WRITE BITS COULD NOT BE INDIVIDUALLY SET#

101

REGMSG:

.ASCIZ

.#AADDRESS: #06%A, GOOD: #06#A, BAD: #068A, R/W BITS: #06%N.

105

.LIST BEX
.EVEN

14
| GLOBAL AREAS

MACRO V05.00

| GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

SEQ 0047

Page 26

SUBROUTINE CHXMAX - ERROR COUNT CHECKING ROUTINE.
‘e

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:

TC GO

GO G

VP V0

GO GO

Ve G

Ve Ve

Ge G

Ge S8

2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199

SUBORDINATE ROUTINES USED:

NONE.
FUNCTIONAL SIDE EFFECTS:

G0 G0

SC GO

2216

THE ERROR COUNT FOR THE LOGICAL UNIT BEING TESTED IS

INCREMENTED IF THE PROGRAM IS NOT LOOPING.

2237 014444
2238 014446
2239 014452
2240 014460
2241
2242 014462
2243 014464
2244 014470

AND 'INHMIBIT DROPPING OF UNITS'

THE UNIT WILL BE DROPPED FROM TESTING.

CALLING SEQUENCE:

JSR PC, CHKMAX

2230
2231
2232
2233 014434
2234 014436
2235
2236 014440

NOT SELECTED,

G0 B0

2227

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

AND THE 'LOOP ON TEST'

CHIXMAX : : INLOOP

BCOMPLETE 10¢

002074

002514
002514

000005

+ LOOPING ON ERROR?
+ IF YES, EXIT

MOV

ASL
INC
cP
BLE

LSLUN,RO
RO
ECNT(RO)
ECNT(RO), 05
10¢

+ GET CURRENT UNIT

RFLAGS

+ GET OPERATOR FLAGS

BNE

104

+ IF YES, EXIT

BIT

¢IDV,RO

+
1
+
i

CONVERT TO ERROR COUNT OFFSET
UPDATE THE ERROR COUNT
TOO MANY ERRORS?
IF NOT, JUP

+ IS DROPPING INMIBITED?

FLAGS ARE

J4
MACRO V05.00
| GLOBAL AREAS
| GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

SEQ 0048

Page 26-1

|
|

]

|
!

|
|

2245 014472

2246 014476
2247
2248 014500
2249 014524

032700

001416

000004

2254
2235

2256 014536
2257
2258
2259
2260
2261

+ EVALUATE FLAG SELEC":D ?

PRINTF

ONERRS ,L $LUN
LSLUN

s 'TO0 MANY ERRORS’
s+ DROP THE UNIT

104

000207
045

116

045

10%:

RTS

NERRS:

NLIST
.ASCIZ

BEX

.EVEN

IF NOT, EXIT

+ END THE SUBPASS

DOCLN

2251 014532
2253 014534

OEVL ,RO

000V

2250

2252

BIT

BEQ

S:X“ME THAN S ERRORS ON UNITwD2/

]

K4
MACRO V05.00
GLOBAL SUBROUTINES SECTION
GLOBAL AREAS

SEQ 0049

Page 27

: SUBROUTINES WT25M, WTS00 AND WT25 - DELAY ROUTINES.

2263

Wednesdsy 03-Oct-84 14:03

2264
2265
2266

FUNCTIONAL DESCRIPTION:

2267
2268
2269
2270

SUBROUTINE TO WAIT FOR 25 HILLISEC“S. S00 MICROSECONDS OR 25

MICROSECONDS.

NOTE. BECAUSE OF THE SMALL NUMBER OF PROGRAM WAIT LOOPS USED FOR

2271

THE 25 MICROSECOND COUNTER,

2272
2273
2274
2275
2276
2277

THE ACCURACY OF THE WT25 ROUTINE

IS LOW. THE DELAY MAY LAST UP TO SO0 MICROSECONDS ON SOME
SLOW PROCESSORS.
INPUTS:
NONE
.

IMPLICIT INPUTS:
THE VARIABLES CNT25M, CNTS00,

ROUTINE SETCLK.

AND CNT25 MUST HMAVE BEEN SET UP BY

OUTPUTS::
NONE.

IMPLICIT OUTPUTS:
NONE
.

SUBORDINATE ROUTINES USED:
NONE.
FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:

JSR
OR JSR
OR JSR

2314
2315 014614
2316
2317 014620
2318 014622
2319 014624

PC,.WT25M
PC,.WTS500
PC.WT25

3 WAIT FOR 25 MILLISECONDS
+ WAIT FOR 500 MICROSECONDS
+ WAIT FOR 25 MICROSECONDS

013700
000405

014626

WT25M:: MOV
BR

CNT25M,RO
MAIT

s GET 25 MILLISECOND WAIT COUNT
:

013700
000402

014630

WT500:: MOV
BR

CNTS00.RO
WAIT

+ GET 500 MICROSECOND WAIT COUNT
'

013700

014632

WT25::

MOV

CNT2S5.RO

i GET 25 MICROSECOND WAIT COUNT

WAIT:

DEC
BNE

RO
WAIT

+ ALL DONE?

005300
001376
000207

RTS

+ IF NOT, WAIT SOME MORE
+ ELSE RETURN

L4
MACRO V0S.00

' GLOBAL SUBROUTINES SECTION
2320

2321 014626
2322 014630
2323 014632
2324

000000
000000
000000

Wednesdesy 03-Oct-84 14:03
: . WORD
CNT25M:
:
: . WORD
CNTS500
CNT25:: .WORD

Page 27-1

00O

GLOBAL AREAS

+ COUNTER FOR 25 MILLISECOND DELAY
1 COUNTER FOR 500 MICROSECOND DELAY
+ COUNTER FOR 25 MICROSECOND DELAY

—

]

M4
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

Page 28

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

2326

2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340

:.;WTIM DESCRIPTION:
PRINTS A CARRIAGE RETURN AND LINE FEED.

INPUTS:

NONE.
IMPLICIT INPUTS:
NONE
.

OUTPUTS:

2341

A CARRIAGE RETURN AND LINE FEED ARE PRINTED.

IMPLICIT OUTPUTS:
NONE.

SUBORDINATE ROUTINES USED:
SUPERVISOR PRINTF MACRO.
FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE
:
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368

014634
014634
014654

000207

014656

045

CRLF :

116

000

LF:

JSR

PC.CRLF

PRINTF
RTS

OLF
PC

.ASCIZ
.EVEN

/#N/

SEQ 0051

N4
| GLOBAL AREAS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0052

Page 29

i SUBROUTINE WRDY - SUBROUTINE TO WAIT FOR OPERATOR READY

2370
2371
2372

FUNCTIONAL DESCRIPTION:

2373

2374
2375

THIS PRINTS A MESSAGE FOR THE OPERATOR TO TYPE 'CARRIAGE RETURN'
TO CONTINUE. THE ROUTINE IS NORMALLY USED TO ALLOW A MESSAGE TO

2376
2377

BE READ BEFORE PROCEDING.

2378
2379
2380
2381
2382

IF MANUAL INTERVENTION IS NOT ALLOWED,

THE ROUTINE DOES NOTHING.

INPUTS:

2383

IMPLICIT INPUTS:

OUTPUTS:
‘TYPE 'CARRIAGE RETURN’'

TO CONTINUE OR ‘CONRTOL C'

TO ABORT.

IMPLICIT OUTPUTS:

SUBORDINATE ROUTINES USED:
SUPERVISOR GMANID MACRO.
FUNCTIONAL SIDE EFFECTS:

CALLING SEQUENCE:

2410
2411 014662
2412 014662
2413 014664
2414 014666
2415 014735
2416
2417 014710
2418
2419
2420 014712
2421
2422

PC.WRDY

JSR

MANUAL

BNCOMPLETE 104

000207

10¢:

000000

WFLG:

124

131

120

WRDY1:

+ IS MANUAL INTERVENTION ALLOWED ?
s IF NOT, EXIT

amrs

’CWYI.WLG.A.S'N.O.I.YES t

.MORD

NLIST

c.;»gz

.EVEN

BEX

'TYPE RETURN TO CONTINUE'

s+ FLAG FOR WARNING MESSAGE INPUT

‘gn “CARRIAGE RETURN” TO CONTINUE OR “CONTROL C* TO ABORT./

B5
. GLOBAL AREAS

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

GLOBAL SUBROUTINES SECTION

SEQ 0053

Pege 30

+ SUBROUTINE SELECT - TEST SELECT ROUTINE

FUNCTIONAL DESCRIPTION:
THIS IS CALLED BY EACH TEST TO DECIDE WHETHER THE TEST SHMOWLD

BE RUN BASED ON THE DEVICE 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 WHMETHMER TME TEST IS RUN.

IF THE SOFTWARE FAULT INSERTION FLAG SFI IS SET, ALL NON-SPECIFIC
TESTS ARE SELECTED.
INPUTS:
THE LOCATION FOLLOWING THE SUBROUTINE CALL CONTAINS THE TEST

SELECT MASK IN THE FOLLOWING FORMAT :

BIT O IS SET IF DIGITAL INPUT MODULES ARE TO BE TESTED
BIT 1 IS SEY IF DIGITAL OUTPUT MODWLES ARE T0O BE TESTED
BIT 2 IS SET IF ANALOGUE INPUT MODULES ARE TO BE TESTED
BIT 3 IS SET IF ANALOGUE OUTPUT MODWLES ARE TO BE TESTED
BIT 4 IS SET IF FIVE CHANMNEL COUNTER ARE TO BE TESTED
BITS S, 6 AND 7 ARE UNUSED
BIT 8 IS SEY TO INDICATE A BASIC INTERNAL LOGIC TEST
BIT 9 IS SET FOR FIELD INPUT/OUTPUT TESTS
BIT 10 IS SET FOR LOOPBACK TESTS
BIT 11 IS SET FOR ANALOGUE INPUT/OUTPUT TESTS USED BY
MANUFACTURING
AND FIELD SERVICE

BIT 12 IS SET FOR SPECIFICALLY SELECTABLE TESTS
BITS 13, 14 AND 13 ARE UNUSED

THE SECOND LOCATION FOLLOWING THE SUBROUTINE CN.L 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 INIT CODE AT THE BEGINING
OF EACH SUBPASS. THE FORMAT IS AS FOLLOWS
:

8IT O IS SET IF WT IS DIGITAL JX4PUT
BIT 1 IS SET IF WT IS DIGITAL OUTPUT
BIT 2 IS SET IF WT IS ANALOGUE TTMNPUT
BIT 3 IS SET IF WT IS ANALOGUE OUTPUT
BIT 4 IS SET IF WT IS FIVE CHANNEL COINTER
BITS S, 6 AND 7 ARE UNUSED
BIT 8 IS ALMAYS SET TO SELECT BASIC IMTERNAL
LOGIC TESTS
BIT 9 SET TO SELECT FIELD INPUT/OUTPUT TESTS
BIT 10 IS SET IF LOOPBACK TESTING IS SELECTED
AND ALLOMED FOR CURRENT WT

BIT 11 IS SET IF MANUFACTURING MAVE SELECTED LOOPBACK
AND I/0 TESTS

BIT 12 IS SET IF A SPECIFICALLY SELECTABLE TEST
IS CHOSEN

e
.
e

. ————— -

—

e 8

—a———

—

——

—

——— -

——————

o—

——

GLOBAL AREAS

MACRO v0S5.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

StQ 0054

Pege 30-1
BITS 13,

14 AND 15 ARE UNUSED

SF1 - IF THIS IS NON ZERO, ALL TESTS ARE SELECTED.
OUTPUTS:

IF THE TEST MATCHES THME DEVICE TYPE AND TEST MODE CMOSEN VIA THE
STARTUP QUESTIONS, THE ROUTINE EXITS WITH THME CARRY BIT CLEAR.

IN TMIS CASE, IF THME 'PNT’ FLAG IS SELECTED, THE TEST MEADER 1S

PRINTED AND THE FLAGS TSTFLG AND TSUFLG ARE SET TO SMOW THAT A

TEST MAS BEEN SELECTED.

IF THE TEST IS NOT SELECTED, THE CARRY BIT IS SET AND, IF THE
'PNT'

FLAG IS SELECTED, A MESSAGE 'TEST DISABLED BY STARTWP

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.

RO, R1 AND R2 ARE CORRUPTED.
IMPLICIT OUTPUTS:

SUBORDINATE ROUTINES USED:

FUNCTIONAL SIDE EFFECTS:

CALLING SEQUENCE:
FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL

€G.

CALL

SELECT

TNAME

8Cs

017601
062716
017602
062716

2535
2536 015030
2537 015034

032701
001003

SELECT::

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

TSTEND

MOV
ADD
MOV
ADO

&(SP),R1
02,(SP)
&(SP),R2
02,(SP)

s
1+
1
i

RFLAGS

s READ OPERATOR FLAGS INTO RO

8IY
BNE

#10000,R1
104

+ SPECIFICALLY SELECTABLE TEST ?
1 IF YES, BRANCH

—

SAVE TEST SELECT MASK
JUMP OVER THE ARGUEMENT
SAVE TEST HEADER ADDRESS
JUMP OVER THE ARGUEMENT

—

————
.

———

—

——
] ————— - ———
. ——

s T

——

D5
- GLOBAL AREAS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION
2538 015036
2539 015044

042737
005737
001007
130137
001426
105001
030137
001422

2548
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
2365 015164
2566
2567
2568 015166
2569
2570

Wednesdey 03-Oct-84 14:03

010000
002500

002702

10%:

002702

Pege 30-2

8IC

910000, CONMSK

BNE
8ITe
BEQ
CLRS
B8IT
BEQ

204
R1,CONMSK
304
[t
R1, CONMSK
304

TST

SFI

ELSE PREVENT SUCH TESTS

SOF TWARE FAULT INSERTION ?
IF YES, SELECT THE TEST
IS DEVICE THE CORRECT TYPE ?
IF NOT, BRANCH
IF YES, DISCARD LOW BYTE

AND CHECK TEST TYPE

IF WRONG, BRANCH

s+ TEST IS SELECTED
012737
012737

000001
000001

032700
001425

001000

002634
002636

20%:

MOV
MOV
BIT

BEQ

FLAG THAT TEST IS SELECTED

#PNT RO

PRINT TEST HEADER ?

S04

PRINTF

S04

cLC

000241
000414

01,TSTFLG
01, TSUFLG

IF NOT, EXIT (CARRY IS CLEAR)
ELSE PRINT THE HEADER
CLEAR THE CARRY
AND EXIT

s+ TEST IS NOT SELECTED
032700
001410

30%:

001000

000261

40%:

000207

SO0$:

045

101

040

TNA:

BIT
BEQ

PRINTF

SEC

#PNT RO
404
@TNA

RE TURN
LNLIST
.ASCIZ
LIST
.EVEN

PRINT TEST HEADER ?
IF NOT, EXIT
ELSE PRINT 'NOT APPLICABLE’

SET THE CARRY BIT

COMMON RETURN

BEX
‘E:

TEST DISABLED BY STARTUP QUESTIONSSN/

ES
| GLOBAL AREAS
MACRO V0S5.00
GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0056

Page 31

2572

+ SUBROUTINE INSERT - SUBROUTINE TO FORCE ERROR PRINTOUTS

2574

jee

2573

2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588

¢+ FUNCTIONAL DESCRIPTION:
:
3
THIS SUBROUTINE CAN BE USED TO rm PRINTOUT OF ERROR MESSAGES
:
FOR QUALITY CHECKING. IF THE FLAG ‘SFI' IS NONE ZERO, THE BRANCH
:
INSTRUCTION FOLLOWING THE SUBROUTINE CALL IS SKIPPED OVER,
:
CAUSING THE ERROR MESSAGE TO BE PRINTED. IF *'SFI' IS SET TO 1,
:
THE ADDRESS OF THE SUBROUTINE CALL IS COMPARED WITH THAT
OF THE
:
LAST CALL AND, IF IT HAS NOT CHANGED, THE MESSAGE IS NOT
3
PRINTED.
3
1 INPUTS:
:
:
SFI- IF ZERO, THE ROUTINE DOES NOTHING.
:
IF ONE, ERROR MESSAGES ARE PRINTED ONCE.

25”2509

IF ANY

OTHER VALUE, ERROR MESSAGES ARE ALMWAYS PRINTED.

2591
2592
2593

: IMPLICIT INPUTS:
:
3
SEE CALLING SEQUENCE.

2594
2595

3
3 OUTPUTS:

22;:

2596
2597

:
3

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

2600
2601
2602
2603
2604
2605
2606
2607
2608

s IMPLICIT OUTPUTS:
3
3
NONE.
:
+ SUBORDINATE ROUTINES USED:
:
3
NONE.
:
s FUNCTIONAL SIDE EFFECTS:

2610
2611
2612

:
3
3

2609

2615

:
:

2618
2619
2620
2621
2622
2623

2624
2625 015240

2626 015240
2627 015242
2628 015250

’
:
:
$
3
$-106746
023727
103413

INSERT::

002500

000001

IF 'SFI' IS NONE ZERO, THE ROUTINE RETURN ADDRESS IS INCREMENTED
BY ONE WORD.

A ONE WORD BRANCH MTMTIO‘ MUST FOLLOW THE SUBROUTINE CALL
€G.

ce
CALL
BEQ
ERROR

MFPS
cHp
8LO

-(SP)
SFI,0
204

B8AD , GOOD
INSERT
10¢

s+
s+
3+
3+

1+ SAVE CONDITION CODES
1+ INSERT FAWLTS ?
+ IF NOT, BRANCH

FS
GLOBAL AREAS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION
2629 015252
2630 015254
2631 015262
2632 015264
2633 015272
2634 015300
2635 015302
2636
2637 015304
2638

001007

026637

001406
016637
062766
106426
000207
000000

Wednesdey 03-Oct-84 14:03

000002

015304

000002
000002

015304
000002

BNE

cHP

10$:

:
204
LASTFA:

BEQ
MOV
ADO

MTPS

RETURN

SEQ 0057

Pege 31-1

104

2(SP),LASTFA

204
2(SP),LASTFA
02,2(SP)
(SP).

IF ALWAYS, BRANCH

IS THIS FAULT ALREADY PRINTED?
IF YES, EXIT
ELSE, SAVE FAULT ADDRESS
SKIP BRANCH TO FORCE PRINTOUT
RESTORE CONDITION COOES
AND RETURN

ADDRESS OF ROUTINE CALL

——————

et
.

—

——

G5
GLOBAL AREAS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0058

Pege 32

+ SUBROUTINE CONFIG - ROUTINE TO FIND THE DEVICE CONFIGURATION AUTOMATICALLY.
FUNCTIONAL DESCRIPTION:

THIS ROUTINE SEARCHES THE IDV/IAV-11 ADDRESS RANGE (171000-171770) FOR A

RESPONDING ADORESS. FOR THE FIRST ADDRESS ON A 4 WORD BOUNDARY (171XX0)
WHICH DOES NOT CAUSE
AN NXM TRAP, AN ENTRY IS MADE IN THE HARDWARE
P TABLE FOR UNIT LSLUN. FOR ADDRESSES OVER 171400, A VECTOR IS
ASSUMED BASED ON THE LOW 8 BITS OF THE DEVICE ADDRESS.

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

THE PROGRAM EXITS

MODULES WITH MODE REGISTER CONTENTS NOT CORRESPONDING TO AN 1DV/IAV11
ARE SET UP, BUT CAUSE AN 'UNIDENTIFIED MODULE'

MESSAGE TO BE OUTPUT.

INPUTS:
LOLUN - NUMBER FOR THE NEXT UNIT FOUND.

IMPLICIT INPUTS:
STADD MUST BE SET TO 171000 PRIOR TO THE FIRST CALL TO INITIALISE

THE SEARCH AREA.

ADDRESSES DEFINED BY "IXSTA"TM TO “IXEND” OF THE I/0 PAGE ARE READ.
THE WORD LS$LUNe2 AFTER LABEL GPADD MUST CONTAIN THE PARAMETER
TABLE ADDRESS FOR THE UNIT.

OUTPUTS:

THE HARDMARE P TABLE AND LSUNIT ARE SET UP TO INCLUDE UP TO 16
UNITS FOUND IN THE ABOVE ADDRESS RANGE.
A MESSAGE 'UNIDENTIFIED MODULE FOUND AT ADDRESS nnmnnn'

PRINTED.

MAY BE

IMPLICIT OUTPUTS:

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

IF NO MORE UNITS ARE FOUND, THE CARRY BIT IS SET AND LSLWN IS

PLACED IN LSUNIT,

SUBORDINATE ROUTINES USED:
NXM - NON EXISTANT MEMORY TRAP ROUTINE.
WROY - ROUTINE TO WAIT FOR OPERATOR TO TYPE 'RETURN'.
FUNCTIONAL SIDE EFFECTS:

NXMFLG MAY BE SET.

HS
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0059

Page 32-1

CALLING SEQUENCE:

PC,CONFIG
INIWT

€G. JSR
8Cs

CONFIG::

SAVE R1 TO R4

2707 015310
2708 015312
2709 015314

2747 015530
2748 015532
2749 015534
2750 015540
2751
2752 015542
2753 015546

002470

CLEAR THE NXM FLAG
CHECK THE ADORESS

10%:

ANYTHING THERE ?

002470

015574

171000
002074
015574

T THE NEXT ADDRESS
THE IXV11 RANGE
T,
GO BACK

20%:

000010
171770

LOLUN,LSUNIT
NOUNIT

002012

704

LSUNIT

002012

177400

002074

40¢:

002554
177000
000400
S04:

000200
015572

(R1),#177400

30%:

014662

604
:
704
:

gpg
R Zwss
&3 T

IF NOT, TRY NEXT DEVICE ADORESS
YES, IS IT THE 2ND ONE THIS CALL ?
S, SET UP THE P TABLE
'S THE FIRST, FLAG UNIT FOUND
VE THE ADORESS

015574

g 3303CRoR 3308 ¢

2734 015450
2735 015452
2736 015474
2737
2738 015500
2739 015504
2740 015506
2741 015512
2742
2743 015514
2744 015520
2745 015524
2746 013526

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

015574

VEC

2714
2715 015356
2716 015362
2717 015364
2718 015370
2719 015372
2720 015376
2721 015400
2722 015404
2723
2724 015406
2725 015412
2726 015416
2727 015420
2728 015424
2729 015432
2730 015436
2731 015440
2732
2733 015444

015572
000001

2710

2711 015316
2712 015322
2713 015330

IF NO MORE UNITS, START AGAIN

404
#CO01,R1

PC.WRDY

START AGAIN NEXT CALL

THE UNIT NUMBER
WERE ANY UNITS FOUND ?
IF NOT, EXIT
ELSE WE HAVE THE LAST UNIT
IS MODWE ID OK ?
IF YES, BRANCH
ELSE PRINT 'UNIDENTIFIED’
WAIT FOR OPERATOR TO TYPE 'RETURN'

LSLUN,RO
RO
GPADD(RO),R3
R1,(R3).

FORM OFFSET FOR LUN

#177000,R1
#400,R1
S04
R1

CALCULATE THE VECTOR ADDRESS
ADORESS OVER 171400 ?

R1,(R3).
604

#200,R1
R1,(R3).

R2,STADD
@4

GET P _TABLE ADDRESS IN R3
SAVE THE DEVICE ADORESS

IF YES, BRANCH
ELSE ZERO THE VECTOR
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

INES SECTION

| GLOBAL SUBROUT

|
|

2754 015554

2755 015556
2756 015560
2757 015562
2758 015564
2759 015570
2760

MACRO V05.00

012604
012603
012602
012601
006237
000207

2761 015572
2762 015574
2763

000000

2765 015576

045

2764

2766

2767

Wednesdey

03-Oct-84 14:03

MOV
MOV
MOV
MOV
ASR

015574

RTS

STADD: :

171000

NOUNIT:
116

04S

CO1:

NLIST
.ASCI1Z
.LIST
.EVEN

SEQ 0060

(2p) RS

: RESTORE R4 TO R1

(SP)+,R2

NOUN

IF NO UNIT, SET THE CARRY
ss AND
RETURN
.
-T

IXSTA
0

s+ START ADDRESS OF SEARCH AREA
3 SET TO SHOW NO UNIT FOUND

(SP)iiRI

BEX
;:':MIDENTIFIED MODULE FOUND AT ADDRESS ®O06sA./

J5
| GLOBAL AREAS

MACRO V05.00

| GLOBAL SUBROUTINES SECTION
2769

Page 33

: SUBROUTINE CONPRI - SUBROUTINE TO PRINT A CONFIGURATION TABLE.

2770

’

Wednesday 03-Oct-84 14:03

2771

jee

t+ FUNCTIONAL DESCRIPTION:

2772

2773

2776

2774
2775

:
3

2777

THIS ROUTINE PRINTS A CONFIGURATION TABLE OF ALL UNITS LISTED IN
THE HARDWARE PARAMETER TABLE. LISTED ARE THE MODE REGISTER ADORESS,

VECTOR AND

2778
2779
2780

: INPUTS:
:
NONE.
:

2782

: IMPLICIT INPUTS:

2781

DEVICE TYPE.

2783

2;:;

THE HARDWARE P TABLE.

2786
2787
2788

:
3
:

IF NO UNITS ARE CONFIGURED, THE GLOBAL MESSAGE LABELLED "NODEV"
IS PRINTED.

2790
3;35

:
:

2789

: OUTPUTS:

THE CONFIGURATION TABLE IS PRINTED.

g;z‘B

s IMPLICIT OUTPUTS:
:

2795
g;%

:
3

IF NO UNITS ARE CONFIGURED (LSUNIT = 0), A MESSAGE 'NO DEVICES
FOUND' IS PRINTED.

g;;g

: SUBORDINATE ROUTINES USED:

2800
g&%

:
:

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

g&z

;s FUNCTIONAL SIDE EFFECTS:
3

REGISTERS R1 TO RS ARE CORRUPTED.

2807
2808
2809

;s CALLING SEQUENCE:
:
:
JSR
PC.CONPRI

2813 015656
2814 015656

CONPRI: :

2810
2811
2812

2815 015704
2816 015710
2817 015712
g{g 015732
2820 015736
2821 015756
2822 015776
2823 016016
26824 016036

2825 016040

:
$--

005737
001012

002012

000137

016452

#4,0NXM, 0340

3+ CATCH REFERENCES TO NXM

PRINTF
PRINTF
PRINTF
PRINTF
CLR

oCP1
#CP1A
#CP1B
&CP1C
R1

+ PRINT CONFIGURATION HEADER
:
[
:
1 START WITH FIRST UNIT

TST
BNE
PRINTF
JP
10¢:

005001
010100

SETVEC

204 :

MOV

LSUNIT
10¢
@ONODEV
CONEX

R1,RO

3+
1+
s+
:+

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

s+ FORM PARAMETER TABLE OFFSET

IKS
MACRO V05.00

| GLOBAL SUBROUTINES SECTION

2639 016160
2840 016164
2641 016170
2842 016172
2643 016212
2844 016232
2845
2846 016234
2647
2848 016260
2649 016264

2850 016266
2851 016272
2852 016314
2853 016316

005037
112305
111304
042704
005737
001421

40¢

30¢:
40¢:

002470

S04
:
000300
017222

000037
017156
000077

60$:

017167
704:

000177
017200

000277
017211

904 :

1004 :

1104:

002012

016040
014634

CONEX :

RTS

SAVE THE UNIT ADDRESS
PRINT UNIT NO. AND ADDRESS

IS THERE A VALID VECTOR ?
IF NOT, BRANCH
ELSE PRINT THE VECTOR

PRINT ‘NONE'

NXMFLG

(R3)+,RS
(R3),R4

GET READY FOR NXM TRAP
GET MODE REGISTER LOW BYTE
AND HIGH BYTE

oCP10
#CP10A
110¢

AND UNKNOWN MODULE TYPE
AND SEE IF LOOPED

#CP5,R4,R5

PRI
OUT ID/MODE
NT

#177400,R4
NXMFLG
504

177400
002470

GET THE UNIT P TABLE

oCP4

VAg

2836 016150
2837 016154
2838 016156

005722
001413

DISCARD REGISTER MIGH BYTE
WAS THERE AN NXM TRAP ?
IF NOT, BRANCH
ELSE PRINT UNKNOWN ID/MODE

IS MODUWLE A FIVE CHA. COUNTER ?
IF NOT, BRANCH
ELSE SAVE 'FIVE CHA. COUNTER' STRING
PRINTOUT DEVICE TYPE
IS MODWLE DIGITAL INPUT ?
IF NOT, BRANCH
ELSE SAVE ‘DIG. IN' STRING
GO TO PRINT MODWLE TYPE
IS MODWLE DIGITAL OUTPUT ?
IF NOT, BRANCH
ELSE SAVE 'DIG OUT' STRING
GO TO PRINT MODUWLE TYPE

ELSE SAVE ‘AN IN' STRING
GO TO PRINT MODUWLE TYPE

GPADD(RO)
,R2
(R2)+,R3
oCP2,R1,R3
(R2)+
304
#CP3, -2(R2)

000410

SEQ 0062

Page 33-1
RO

002554

2 3

20;45 016130

00€ 300
016002
012203

2232303TISITIBITIBIAT]

2826 016042
2827 016044
2828 016050
2829 016052
2830 016076
2831 016100
2832 016102
2833 016126

Wednesday 03-Oct-84 14:03

ZINeE

GLOBAL AREAS

BRANCH
ELSE SAVE 'AN OUT' STRING
PRINT OUT DEVICE TYPE

PRINT ‘CANNOT BE TESTED'
PREPARE FOR NEXT UMIT

ALL UNITS DONE ?
IF YES, EXIT
ELSE DISPLAY THE NEXT
PRINT A LINE FEED

RESTORE SUPERVISOR NXM TRAP CATCHER

NLIST

116

045

CP1:

.ASCIZ

\SNsS24%AIDV/IAV-11 MODULE CONFIGURATION.\

L5
, GLOBAL AREAS

MACRO V0S5.00

| GLOBAL SUBROUTINES SECTION

116
116
123
116
123
123
123
123

2883 016537
2884 016611
2885 016707
2886 016741
2887 016752
2888 016761
2889 016773
2890 017010

045
045
045
045
045
045
045
045
045
045
045
045
045
045
045

101
101
101
101
101
117
123

2899 017156
2900 017167
2901 017200
2902 017211
2903 017222

104
104
101
101
106

111
111
116
116
111

2891 017016
2892 017066
2893 017077
2894 017110
2895 017125
2896 017143
g?”? 017147

2905

2%06

Wednesdey 03-Oct-84 14:03

040
040
040
040
040
071
065

CP1A:
CP1B:
CP1C:
CP2:
CP3:
CP4:
CPS:
CP6:

CP7:
CP8:
CP9:
CP10:
CP10A:
CP11:
CP12:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

/#NsS24®A----------cccccanan. ............. /
\#N2#AUNIT ADDRESS VECTOR ID/MODE
MODULE
\#S15#AASSUMEDSS13#ATYPESN\
\wNsD3#09\
\#S5#03\
\#SASANONE\
\#S3#03#A/#03\
\#S3sT\

107
107
056
056
126

DOI:
DO:
AI:
AO:
DCNT:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/DIG. IN /
/DIG. OUT/
/AN.
1IN/
/AN.
OUT/
/FIVE CHA. COUNTER/

.LIST

BEX

045
062
061
045
065
064
063
063

ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.EVEN

SEQ 0063

Pege 33-2

\sA o CANNOT BE TESTED WITH THIS DIAG =\
YES\
\sA
NO\
\sA
UNKNOWN\
\s#A
UNKNOWN \
\sA
\sO9\
\wS5#03\

COMMENT SN\

M5
| GLOBAL AREAS

MACRO V05.00

| GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:07

SEQ 0064

Page 34

: SUBROUTINE DACON - DIGITAL TO ANALOGUE CONVERSION ROUTINE.

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

: FUNCTIONAL DESCRIPTION:
THIS CONVERTS A 12 BIT DIGITAL PATTERN INTO A 2 WORD ANALOGUE

OUTPUT VALUE.

3
:

INPUTS:

:
:

MODE : O = UNIPOLAR (O TO 10 VOLTS)
1 = BIPOLAR (-10 TO +10 VOLTS)

2=0-20mA

3=4-20mA

BINARY CODED
OFFSET BINARY CODED

BINARY CODED
BINARY CODED

GAIN : O - 7 = GAINS 1,2,5,10,20,50,100,200

: 12 BIT INPUT PATTERN.

: IMPLICIT INPUTS:
:

VITAB AND ITAB : DIGITAL/ANALOGUE CONVERSION TABLES.

: OUTPUTS:
:

3
3

R1 - MILLIVOLTS (MODES O AND 1)
MICROAMPS (MODES 2 AND 3)

:
3

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

: IMPLICIT OUTPUTS:
:

NONE.

: SUBORDINATE ROUTINES USED:

NONE.

: FUNCTIONAL SIDE EFFECTS:
3

NONE.

:
H

:+ CALLING SEQUENCE:
3

;
:
H
:

EG.

MOV
MOV
MOV
JSR

#1,MODE
#6,GAIN
07777.R1
PC,.DACON

:+ BIPOLAR CONVERSION
s+ GAIN = 100
s ALL BITS SET

MOV
MOV
MOV

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

+ SAVE R3
1 AND R4
s+ GET MODE

’
'-o

2960 017244
2961 017244
2962 017246
2963 017250
2964 017254

DACON:
:

010346
010446

013703
005703

002704

s MODE 0 ?

N5
MACRO v05.00

GLOBAL SUBROUTINES SECTION

Wednesday 03-Oct-84 14:03

012700
000407

2974 017300
2975 017302
2976 017304
2977 017310

005303
001003
012700
000402

2979 017312
2980
2981 017316

012700

005112

30¢:

013703
005303
100403
062700
000773

002706

PSDA:

2973

2978

001003
012700
000414
005303
001003

002712

104:

3001 017372
3002 017376
3003 017400
3004 017402
3005 017406
3006 017410
3007
3008 017412
3009 017420
3010 017422
3011 017424
3012 017426
3013 01743C
3014 017432
3015 017436
3016
3017 017440
3018 017446
3019 017450
7020

3021 017454

R3
204
OVBPTAB,RO
PSDA

MODE 1 ?

DEC
BNE
MOV
BR

MODE 2 ?
IF NOT, BRANCH

MOV

#IATAB,RO

USE IATAB FOR MODE 3

GAIN,R3

GET THE GAIN
HAVE WE GOT THE CORRECT TABLE ?
IF YES, BRANCH
ELSE INCREASE THE TABLE OFFSET

DEC
BNE
BR

204:

004312

OVUPTAB,RO
PSDA

304
¢IOTAB,RO

PSDA

30¢:

IF NOT, BRANCH
GET CONVERSION TABLE FOR MODE 1

GET CONVERSION TABLE FOR MODE 2

AND TRY AGAIN

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

40%:

011004
010103

2993 017350
2994 017352
2995
2996 017354
2997 017356

IF NOT, BRANCH
GET CONVERSION TABLE FOR MODE O

MOV

003512

SEQ 0065

Page 34-1
104

BNE
MOV
BR

2965 017256
2966 017260
2967 017264
2968
2969 017266
2970 017270
2971 017272
2972 017276

SHIFT OUT UNUSED BITS
( BITS 1S - 12 )

TEST A BIT

S0$:

IF CLEAR, BRANCH
ELSE ADD IN LOW VALUE
OVERFLOW OF LOW WORD ?

000030
001750
001750

604:
70%:

000002

002704

001750

002704

000003

904:

007640

1004 :

g ER3 A2DZRERT R48ERS

| GLOBAL AREAS

IF NOT, BRANCH
ELSE CARRY FROM LOW WORD
70 HIGH WORD
AND ADD IN HIGH VALUE

GET NEXT TABLE ENTRY
ALL BITS PROCESSED ?
IF NOT, DO MORE BITS

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

20 mA MODE ?

IF NOT, BRANCH
ELSE ADD IN BASE VALUE

(SP)+,R4

RESTORE R4

——

MACRO V05.00 Wednesdey 03-Oct-84 14:03 Page 34-2
GLOBAL AREAS
SUBROUTINES SECTION

012603

3028 017460 000207

MOV

RTS

(SP)..R3
BC

”~

—

——

= 050

GLOBAL

3022 017456

o i

L6
GLOBAL AREAS
MACRO v05.00
GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0067

Pege 35

3025

+ SUBROUTINE ADCON - ANALOGUE TO DIGITAL CONVERSION ROUTINE.

3027

gee

3026

3028

s+ FUNCTIONAL DESCRIPTION:

3029

3030

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

3031

PATTERN. TME INPUT IS ROUNDED UP OR DOWN TO THE NEAREST LS8 VALUE.

3032

s!ggz

INPUTS:

3035
3036
3037

MODE : O = UNIPOLAR (O TC 10 VOLTS)
1 = BIPOLAR (-10 TO «19 VOLTS)
2°*0-20m

X042
3043

R1 - MILLIVOLTS (MOCES O AND 1)
MICROAMPS (MODES 2 AND 3)

3045

R2 - MICROVOLTS (MODES O AND 1)

;8333

S4-20m

gg:g

NANOAMPS

3048

BINARY CODED

(MODES 2 AND 3)

IMPLICIT INPUTS:

3049
3050
3051
3052
3053
3054
3055
3056
3057

VITAB AND ITAB : DIGITAL/ANALOGUE CONVERSION TABLES.

OUTPUTS:
R1

12 BIT INPUT PATTERN.

IMPLICIT OUTPUTS:

3058

NONE.

3059

3060
3062
3063
3064
3065
3066
3067
3068

SUBORDINATE ROUTINES USED:
NONE.
FUNCTIONAL SIDE EFFECTS:
NOME
CALLING SEQUENCE:

3070

€G. MOV

3071
3072
3073
3074
3075
3076

3077
3078 017462
3079 017462
3080 017464
3081 017466

BINARY CODED
OFFSET BINARY CODED
BINARY CODED

b
010346
010446
013703

ADCON::
002704

MOV
MOV
MOV
JSR

#6,GAIN
0-4,R1
0-1,R2
PC,ADCON

#1,MODE

» BIPOLAR CONVERSION

MOV
MOV

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

1 SAVE RS
1+ AND R4
s GET MODE

MOV

1 GAIN = 100
) -4.001 MILLIVOLTS
s IN'R1/R2

3082 017472
3083 017474
3084 017476
3085 017502

005703
001003
012700

3087 017504
3088 017506
3089 017510
3090 017514

005303
001003
012700

3092 017516
3093 017520
3094 017522
3095 017526

005303
001003
012700
000404

3097 017530
3098 017534

012700
162701

005112
007640

30s:

3100 017540
35101 017344
35102 017346
3103 017350
35104 017554

013703
005303
100403
062700
000773

002706

PSAD:
10¢:

3106 017556

023727
001011

002704

3086

3091

3096

3099

3105

3107 017364
3108 017366
3109 017570
3110 017574
3111 017576
3112 017600
3113 017602
3114 017606
3115
3116 017610
3117 017614
3118 017620

000416

000411

002712
10%:

003512
:
208
004312

:
208

023420

001750

001000

404

001750

001750
3128 017652
3129
3130 017656
3131 017660
3132 017662
3133 017664
3134 017670
3135
3136 017672
3137 017676
3138 017700

:
S0

000030
001750

708:

gRe TI8NT 3BRSTIBLERLIZ RERGRIERT PBARI 33 B[R 3IRF 3R

p—

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03
-

MACRO V0S5.00

GLOBAL AREAS

SEQ 0068

Pege 35-1
R3

104
OVUPTAB,RO

PSAD
R3

204

#VBPTAB,RO
PSAD

304
#I0TAB,RO
PSAD

MODE 0 ?
IF NOT, BRANCH

GET CONVERSION TABLE FOR MODE O

MODE 1 7
IF NOT, BRANCH

GET CONVERSION TABLE FOR MODE 1

MODE
2 ?
IF NOT, BRANCH

GET CONVERSION TABLE FOR MODE 2

#IATAB,RO
#4000. ,R1

USE IATAB FOR MODE 3

GAIN,RS

GET
THE GAIN

R3
204

#48. ,RO
10¢

MODE
, #1
30¢
(RO),R1

46.(RO),R4

AND SUBTRACT BASE VALUE

HAVE WE GOT THE CORRECT TABLE ?

IF YES, BRANCH
ELSE INCREASE
THE TABLE OFFSET

AND TRY AGAIN

BIPOLAR MODE ?
IF NOT, BRANCH

ELSE CONVERT BIPOLAR TO UNIPOLAR
WAS PREVIOUS VALUE NEGATIVE ?
IF NOT, BRANCH
IS DECIMAL PART ZERO ?
IF YES, BRANCH
ELSE BORROW FROM HIGH PART

GET ROUNDING VALUES FROM LOMEST
SIGNIFICANT BIT
OIVIDE BY 2

IF NO CARRY SKIP NEXT COMMAND

ADD CARRY
OIDIDE BY 2
UP TTMHE
LOMER PART IS

VALUE
0 1000

IF OVERFLOM, CARRY OVER TO
HIGH PART

ADD IN MIGH PART OF RCUNDING FACTOR
INITIALISE WORKING REGISTER

COMPARE MIGH VALUE WITH TABLE ENTRY
IF LESS, DON'T SET BIT
IF MORE, SET THE BIT
OTHERWISE, MUST CHECK THE LOW VALUE
IF LESS, DON'T SET THE BIT
24.(RO),R2
80¢
#1000. ,R2

SUBTRACT THE TABLE ENTRIES
BRANCH IF NO BORROW NEEDED
ELSE ADD TO LOW WORD

E6
,

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
!
i

3139 017704

005301

]

3141 017710

052703

3146 017724
3147 017726

006203
010301

.
!

3140 017706

3142 017714
3143 017720
g%:; 017722
3148 017730
3149 017732
3150 017734

161001

062700
006303
103355
012604
012603
000207

000001

000002

Wednesdey 03-Oct-84 14:03

80¢:

SEQ 0069

Pege 35-2

DEC

+ FROM HIGH WORD

8IS

1,R3

s+ AND SET THE OUTPUT BIT

SUB

(RO),R1

904 :

ADD
ASL
8cc

#2,R0
R3
604

1008:

ASR
MOV
MOV
MOV
RTS

R3
R3,R1

(SP)+.R4
(SP)+,R3
PC

s AND LOW WORDS

3 AND NEXT TABLE ENTRY
s+ READY FOR NEXT BIT
s IF 12 BITS NOT DONE, GO BACK.
+ GET THE PATTERN AGAIN
s SET UP OUTPUT REGISTER

+ RESTORE R4
s+ AND R3
i

F6
' GLOBAL AREAS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

Page 36

3152

:+ SUBROUTINE DECIN - SIGNED DECIMAL INPUT ROUTINE.

3154

3153

3155

s+ FUNCTIONAL DESCRIPTION:

3157

glzg

s+ INPUTS:

3161

3156

3158

THIS SOLICITS A SIGNED DECIMAL NUMBER FROM THE OPERATOR.

3162
3163

PADD - THE ADDRESS OF THE PROMPT STRING FOR THE INPUT,

:
3

3164
3165

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

:
:

166

LONG INCLUDING AN OPTIONAL + OR - SIGN AND DECIMAL POINT. THE
STRING SHOULD BE IN 'PRINT’' FORMAT ( IE..ASCIZ /#NSAINPUT VALUE/ ).

3167
3168
3169

s IMPLICIT INPUTS:
3
:
NONE.

3171

s OUTPUTS:

3170

3172

3173
3174
3175

:
:
3

gi;;

: IMPLICIT OUTPUTS:

3176

R1 - INTEGER PART OF OPERATOR INPUT
R2 - DECIMAL PART OF OPERATOR INPUT

:
H

3179

3
3

;{gg

ERROR MESSAGES ARE PRINTED IF THE OPERATOR TYPES AN ILLEGAL CHARACTER,

AN INTEGER PART OVER 32767. OR A DECIMAL PART WITH MORE THAN 3 DIGITS.

gig

AN EXAMPLE STRING IS APPENDED TO THE INPUT PROMPT.

3184
3185
3186

s+ SUBORDINATE ROUTINES USED:
H
H
NONE.

3188

s+ FUNCTIONAL SIDE EFFECTS:

3187

3189

3190

3191

gigg

3 CALLING SEQUENCE:
3

3194
3195
3196

3197
3198
3199 017736

3200 017736
3201 017742
3202 017746
3203 017750
3204 017752
3206 017754
3207 017774
3208 020014

NONE.

P
3
:

EG. MCV
JSR

#MADD, PADD
PC, DECIN

: LOAD THE PROMPT MESSAGE ADDRESS

MOV
MOV
CLR
DEC
BNE

ONR1 ,RO
#7,R1
(RO)R1
104

:+
:
:
3
}

PRINTF
GMANID
MOV

PADD
1 PRINT THE PROMPTY
GETNUM,SNUM,A,-1,0,10. .'0 1 GET THE NUMBER STRING
#SNUM, R
3 POINT TO THE START

012700
012701
005020
005301
001375

012700

020310
000007

020314

DECIN:
:

10¢:

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

G6
MACRO V05.00

| GLOBAL SUBROUTINES SECTION

020310

#NR1,R1

ASSUME INTEGER PART FIRST

121027

000053

(RO),0'»

121027

000055

121027

000056

20%:

IS 1ST CHARACTER A +
IF YES, BRANCH
IS ITA -2
IF YES, BRANCH
ISITA.?
IF NOT, BRANCH

012701

020312

30¢:

000060
000003

40%:

001430
001425

001017

105760
001003
112760
105760

001007
112760
000403

START ON DECIMAL PART
IE. REPLACE NWLLS

WITH ZEROS

000060

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

S0%:

105710
001451
000402

SKIP OVER THE SIGN OR POINT

005200
000751

121027

002403
121027
003411

IS CHARACTER A VALID NUMBER ?

70%:

IF TOO LOW,

000071

904
:
ASL

3523 378

006311
011102
006311
006311
060211
112002

162702

060211
100401

000714
100¢:

000642

013701
013702
020227
103411

SDECINS

PRINT ‘ILLEGAL CHARACTER'
AND ASK AGAIN

(R1),03276.
1004

NUMBER TOO HIGH ?

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

ELSE MULTIPLY BY 10

DECIN

006314

020310
020312
001750

ASK AGAIN

IF NOT TOO HIGH, BRANCH

000671

021127
101013

FORCE TO 3 DIGITS

110¢:

NTF

35338 3

3210

Page 36-1

012701

3 %

3209 020020

Wednesdey 03-Oct-84 14:03

' GLOBAL AREAS

IF YES, BRANCH

READY FOR NEXT CHARACTER

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

SAVE THE CHARACTER
CONVERT TO NUMBER

204

AND GET NEXT CHARACTER

#DECINL
DECIN

PRINT 'NUMBER TOO BIG'
AND GET ANOTHER

NR1,R1
NR2,R2

SET UP OUTPUT REGISTERS

1204
#DECINZ

AND ADD TO ACCUMULATOR

IF OVERFLOW, REPORT ERROR

DECIMAL PART TOO BIG ?

IF NOT, BRANCH
PRINT 'ONLY 3 DIGITS ALLOWED'

H6
MACRO V0S5.00
GL OBAL AREAS
GL OBAL SUBROUTINES SECTION
3266 020270
3267
3268 020272

3269 020300

3270 020302

3271 020304

Wednesdey 03-Oct-84 14:03

000622

123727

001002
005401

020314

000055

3272

130¢:

3273 020306

3274
3275
3276

3277 020310
3278 020312
3279 020314
3280

3281 020327
3282 020347

1208:

061

105

116
116
116

062

107

045
045
045

SEQ 0072

Page 36-2

B8R

DECIN

CMPB
BNE
NEG
NEG

SNUM, o' 130¢

R1
R2

RTS

WAS STRING NEGATIVE ?

IF NOT, BRANCH

ELSE NEGATE THE OUTPUT

AND RETURN

NLIST

BEX

NR1:

. WORD

SNUM:

. WORD

.ASCIZ

0
0
/-12345.678/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/(EG. 12345.678)/
+ PROMPT FOR INPUT
/9NSAMUST BE LESS THAN 32768sN/
/¥NSAONLY 3 DIGITS MAY FOLLOW THE DECIMAL POINTSN/
/¥NSAILLEGAL CHARACTER®N/

NR2:

GETNUM:
DECIN1:
DECIN2:
DECIN3:

LIST
.EVEN

1 STORE FOR INTEGER PART
+ STORE FOR DECIMAL PART
s+ STORE FOR INPUT STRING

16
| GLOBAL AREAS

MACRO V0S5.00

| GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0073

Page 37

+ SUBROUTINE DECOUT - SIGNED DECIMAL OUTPUT ROUTINE
.

FUNCTIONAL DESCRIPTION:

ROUTINE TO PRINT A SIGNED DECIMAL NUMBER.
INPUTS:
R1 - INTEGER PART OF NUMBER TO BE PRINTED
R2 - DECIMAL PART OF NUMBER TO BE PRINTED

IMPLICIT INPUTS:
NONE.
OUTPUTS:
THE NUMBER IS PRINTED AS FOLLOWS :

-12345.678

( NO SIGN IS PRINTED FOR POSITIVE NUMBERS )

IF THE DECIMAL PART (R2) IS ZERO, THE NUMBER
IS PRINTED AS -12345
IMPLICIT OUTPUTS:
NONE.

SUBORDINATE ROUTINES USED:
NONE.
FUNCTIONAL SIDE EFFECTS:

NONE.

CALLING SEQUENCE:
EG. MOV

MOV

DECOUT: :

H PRINT -10.001

PC.DECOUT

MOV

R1,-(SP)

H SAVE R1

TST

3 R1>07

BLY
ST
BGE
NEG
NEG

PRINTF

204 :

#-1,R2

JSR

10%:

€-10..R1

PRINTF
TS7

o'(

)

104
R2
208
R1
R2

@DECO1

@DECO2,R1

H SAVE R2

H
[
'
:
:

IF NOT, BRANCH

R2 POSITIVE ?

IF YES, BRANCH
ELSE MAKE POSITIVE
AND PRINT ‘-’

: PRINT THE INTEGER PART
' DECIMAL PART = 0 ?

J6
. GLOBAL AREAS

MACRO V05.00

| GLOBAL SUBROUTINES SECTION
3346 020602
3347 020604
3348 020626
3349 020630
3350 020632

001411

3353 020634
3354 020640
3355 020644
3356

045
045
045

3351
3352

3357
3358

Wednesdey 03-Oct-84 14:03

DECEX:

012602
012601
000207

DECEX
0DECO3,R2
(SP)+,R2
(SP)+,R1

101
101

055
065

SEQ 0074

Page 37-1

BEX

/%A-/
/%05/
/%A 823/

BEX

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

K6
| GLOBAL AREAS

MACRO VO05.00

| GLOBAL SUBROUTINES SECTION
3360
3361
3362
3363
3364

Wednesday 03-Oct-84 14:03

SEQ 0075

Page 38

PR 000000000000000000000000000000000000000000000000080000080%0000000

SUBROUTINE - RANDOM
F UNCTIONAL DESCRIPTION:
THIS ROUTINE GENERATES A RANDOM PATTERN.

THE PATTERN IS

STORED IN LOCATION RB.

NONE .

RB - CONTAINS THE RANDOM PATTERN

RA - CONTAINS A SECOND RANDOM PATTERN

IMPLICIT OUTPUTS:

NONE
.
SUBORDINATE ROUTINES USED:

®5 ©0

0 90 B0 90 W0 W0 S0 90 G0 @ @0 W0 S0 S0

0 e

IMPLICIT INPUTS:

013746
013700
006316
005500

005516
061600
005600
012637
010037
000207
135753
024674

020712
020714

RANDOM: : MOV

MOV
ASL
ADC
ASR
ADC
ADD
S8C
MOV
MOV
RETURN

020712
020714
RA::

RB::

.WORD

LHORD

RA, -(SP)

tPUSH RA TO STACK

R8.RO
8sP
RO
RO
8sP
8SP RO
RO
(SP)+,RA
RO,R8

1GET THE LAST RANDOM PATTERN
sSIFT SP (=RA) LEFT
+IF CARRY IS SET ADD TO RO (=RB)
s THEN SHIFT THE RESULT RITH
+IF CARRY IS SET ADD TO SP (=RA)
sADD SP (=RA) AND RO (=RB)
1SUBTRACT CARRY IF SET FROM R8B
sLOAD NEW VALUE INTO LOCATION RA
tLOAD LOCATION R8 WITH NEW PAT.
'

135753

1START PATTERN FOR R8

24674

1STORAGE FOR RANDOM PATTERN

L6
| GLOBAL AREAS

MACRO V05.00

| GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

3410
3411
3412
3413
3414
3415

SEQ 0076

Page 39

B0 00000000000000000 0000000000008 00000008000000000000000000000

SUBROUTINE - FLASH
FUNCTIONAL DESCRIPTION:

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

3416

3417
3418
3419

(EXEPT THE CNTL C) WILL CAUSE A PROMT TO REPEAT

WITH THE CORRECT CHARACTER.

3420
3421
3422

INPUTS:

3424
3425
3426

IMPLICIT INPUTS:

CONSOLE KEYBOARD INPUT.

3423

3427
3428
3429
3430
3431

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

3432
3433
3434
3435

IMPLICIT OUTPUTS:

SUBORDINATE ROUTINES USED:
BREAK - DRS MACRO (THIS MACRO LOOKS FOR CNTL C)
PRINTF- DRS MACRO,

THIS MACRO PRINTS A MESSAGES ON THE CONSOLE

CALLING SEQUENCE:
CALL FLASH OR
3449 020716

3450 020722
3451 020724
3452 020726
3453 020730
3454 020736
34355 020742
3456 020746
3457 020750
3458 020752
3459 020760

105737

100002

000421
042777
012701
004737
005301
001374
032777

001356
052777

012737
013737
122737
001432

1 TEST THE KEYBOARD STATUS REG.
1BRANCH IF NOTHING FOUND
1LOOK FOR 'CNTL C’

177560

00010C

161460

014600
000100

161436

000100

i81426

000001

021170
002476
002476
002476

177562

000200
000131

JSR PC,FLASH

:
204

+SWITH MODULE LED OFF
1SET UP WAIT COUNTER
tWAIT FOR 25 MS
1ARE 250 MS OVER
1BRANCH IF NO
+IS THE MODULE LED SWITCHED ON
1BRANCH IF YES
tOTHERWISE SWITCH IT ON
sAND BRANCH TO WAIT LOOP
1SAVE ‘'YES' ANSWER
1GET CHARACTER
1DISCARD PARITY BIT
1MAS THE TYPED CHARACTER A 'Y' ?
1BRANCH IF YES

M6
MACRO V05.00
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION
3467 021024
3468 021032
3469 021034
3470 021040
3471 021046
3472 021050
3473 021056
3474 021060
3475 021066
3476 021106
3477 021110
3478 021116
3479 021122
3480 021124
3481 021132
35482 021140
3483 021146
3484 021150
3485 021156
3486 021160
3487 021166
3488
3489
3490
3491
3492
3493
3494
3495 021170
3496
3497
3498 021172
3499
3500

122737
001426
005037
122737
001420
122737
001414
013737
000703
013737
105737
100375
013737
042737
122737
001404
013737
000657
013737
000207

Wednesdey 03-Oct-84 14:03

000171

002476

021170
000116

002476

000156

002476

177562

177566

177562
177560

177566

177562
000200
000015

002476
002476
002476

177562

177566

177562

177566

CMPB
BEQ
CLR
CcMPB
BEQ
cHPe
BEQ
MOV
SO0$:
604:

PRINTF
B8R
MOV

0".8A0
Y
FLSANS
@' N,BAD
504
#'n,BAD
S04
TKB, TPB

tWAS IT A LOWESCASE 'y’ ?
aoamcn IF YES
1SAVE 'NO’ ANSMER
1WAS THE TYPED CHARACTER
A 'N’'
1BRANCH IF YES
lUAS IT A LOMERCASE 'n’' ?
1BRANCH IF YES
1ECHO THE CHARACTER

FLASH
TKB, TP8

+IF NO PRINT A PROMT
+AND GO BACK
1ECHO THE CHARACTER

BPL
MOV

604
TK8,BAD

1BRANCH IF NOTHING FOUND
1GET FOUND CHARACTER

cHPe
BEQ
MOV
BR
MOV

#15,8AD
704
TKB, TP8
FLASH
K8, TP8

tWAS IT A <CR>
$BRANCH IF YES
sECHO THE CHARACTER

1578

8IC

704

SEQ 0077

Page 39-1

RETURN

TKS

s TEST THE KEYBOARD STATUS REG.

9200,BAD

tMASK OUT PARITY BIT

1ECHO THE CHARACTER

+ CONSOLE EQUATES
TKS = 177560
TKB = 177562
TPB = 177566

177560
177562
177566

045

.WORD

FLSANS::

000000

116

045

LNLIST

.ASCIZ

BEX

+KEYBOARD STATUS REGISTER
+KEYBOARD DATA REGISTER
;PRINTER DATA BUFFER

:SAVE LOCATION FOR KEYBOARD BIUFFER

/#NSAUNAUTHORIZED CHARACTER, TYPE ONLY 'Y’

OR 'N’

THEN <CR>

N6
MACRO V05.00
| GLOBAL AREAS
| GLOBAL SUBROUTINES SECTION
|

3502

3503

Wednesdey 03-Oct-24 14:03

3PP RRR02000000000000000000000000000000008080000000800000000500000

: SUBROUTINE CALRET - CONSOLE READ ROUTINE

00
FEPCRRRLPP00000000000000000000000000000080000000000080000000000000000
b

3504
3505

» FUNCTIONAL DESCRIPTION:

3506

3507

;

3509
3510
3511
3512

:
;
;
;

3508

;

3513
3;1;

:
:

351

3516

ggig

3520
3521
3522
3523
g%

i
:
:

;.'sbgg

:
v

IF READ CHARACTER WAS A CARRIGE RETURN, THE CARRY BIT IS SET.
IF READ CHARACTER WAS ANY OTHER CHARACTERS OR NO CHARACTER
WAS TYPED, THE CARRY BIT WILL BE CLEARED.

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

BREAK - DRS MACRO

s THIS MACRO TAKES CARE OF CNTL C

;g;z

+ CALLING SEQUENCE:
i

ggg

:
i

3541 021270

005037

3543 021300
3544 021302
3545 021304
3546 021312
3547 021320
3548 021326
3549 021330
3550 021336
3551 021340
3552 021346
3553

100032

3558

CONSOLE KEYBOARD BUFFER AND STATUS

+ SUBORDINATE ROUTINES USED:

gg-;oz

3557

ANY OTHER CHARACTERS OR NO CHARACTER, THE CARRY BIT WILL BE CLEARED.
THE ROUTINE WILL ALSO TAKE CARE OF THE 'CNTL C'.

3335

3554 021366
;ggz 021372

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

: IMPLICIT INPUTS:
;
;
NONE
:
s OUTPUTS:

3526
3527
3528

3542 021274

THIS SUBROUTINE READS THE CONSOLE KEYBOARD WITHOUT STOPPING

s INPUTS:

3517

3539
3540 021270

SEQ 0078

Page 40

105737

013737
042737
022737
001004
012737
000413
013737

006237
000207

177560

JSR PC,CALRET

CLR

CARRFL

s TEMPORY STORE FOR CARRY BIT

BPL
BREAK
MOV
8IC
cHe
BNE
MOV
BR
MOV
PRINTF

10¢

$BRANCH IF NOTHING WAS TYPED
tWAS THE TYPED CHAR. A ‘CNTL C'
1GET OPERATOR INPUT
1tCLEAR KEYBOARD BUFFER PARITY BIT
tWAS THE TYPED CHARACTER A RETURN ?
1BRANCH IF NO
1SET CARRY FLAG
1AND BRANCH
1ECHO THE CHARACTER
sPRINT THAT ONLY CARRIGE RETURN WILL
100 SOMETHING

TST8

000200

000015

002476
002476
002476

000001

021374

177562

177566

021374

3PP 0000000000000000000000000000000020000000000000000000000
000000
CALRET::

021374

177562

CALL CALRET

20%:

10¢:

ASR
RETURN

TKS

TKB,BAD

#15,8AD
204
01, CARRFL
104
TKB, TPB
ORETMEL

CARRFL

s CONSOLE EQUATES

s TEST THE KEYBOARD STATUS REG.

1AFFECT THE CARRY

—
|

—

o
c—

—_—

B7
GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION
3559
3560
3561
3562

Wednesdey 03-Oct-84 14:03

TKS = 177560
TKB = 177562
P8 = 177566

177560
177562
177566

CARRFL:

3563 021374
3564

3565

3566 021376

3567
3568
3569

045

116

045

RETMELl:

———

SEQ 0079

Pege 40-1
tXEYBOARD STATUS REGISTER
1KEYBOARD DATA REGISTER
1PRINTER DATA BUFFER

.WORD

1SAVE LOCATION FOR CARRY BIT

LNLIST
.ASCIZ
.LIST
.EVEN

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

GLOBAL AREAS

MACRO V05.00

GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SUBROUTINE AMREST

3571
3572

3573

SEQ 0080

Pege 41
- AM9513 MODWLE RESET ROUTINE.

FUNCTIONAL DESCRIPTION:

3574
3575
3576
3577
3578
3579

THIS SUBROUTINE IS CALLED AT THE START OF TEST WMICH

RODULE
AND PLACES 1 TNTO A KNOWN STATE, oo> 0!
INPUTS:
NONE.

IMPLICIT INPUTS:
R1 CONTAINS THE BASE ADDRESS OF THE INTERFACE

OUTPUTS:
NONE.

IPLICIT 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 5 AND THE USER EVL FLAG IS SELECTED,
AND ‘' INMIBIT OROPPING OF UNITS' FLAGS ARE
NOT SELECTED, THE UNIT WILL BE DROPPED FROM TESTING.
AND THE 'LOOP ON TEST'

CALLING SEQUENCE:
JSR PC,AMREST
AMREST:
:

012761
012761
012761
012761

012761

012761
012761
012761
012761
012761
012761
012761
012761

SETVEC

64, 8NXM, SPRIO?

sSETUP TO CATCH TRAPS

MOV
MOV

nduu)
uo.mim

1SET LOAD REGISTER
1SET LOAD REGISTER

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

0177777 .MREACRY)
0CoINL, MREACRL)
oCoIN2 mmlu)
0177637, MREA(
omm.man
070000, MREACR1)
omcu MREACR])
ndm)
12,MREACRL)
MREACR])
0177414, MREACRL)
#10,MREB(R] )

JMASTER RESET
s INITIALIZE COMMAND o1
s INITIALIZE COMMVAND 02
;OISARM ALL COUNTERS
1SELECT FREQ.OUTPUT REG.
+INIT FREQ.OUTPUT REG.
1SET LOAD REGISTER

1SET LOAD REGISTER

3628 021642

3629 021650
3630 021656
3631 021664
3632 021672
3633 021700
3634 021706
3635 021714

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

+23883833833838

MACRO V0S.00

&M wms SECTION
O0BAL ARE

Page 41-1
#177415,MREA(R])
OIO.M( 1)
0177421."5!(“1)
MREB(R1)

1CLEAR HOLD REGISTER

00, MREB(R1)

;CLEAR HOLD REGISTER

00, MREBCR1 )

1CLEAR HOLD REGISTER

n’mza MREACR] )

n'mas.mucn)
ounalmemu)

0177425, MREA(R1 )

OO.M( R1)

0177537, ,MREA(R])
’I::JTFLl

sSET LOAD REGISTER

1CLEAR HOLD REGISTER

sCLEAR HOLD REGISTER
1LOAD ALL COUNTERS
s INIT INTERRUPT COUNT

E7
MACRO V05.00

AREAS
| GLOBAL
GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0082

Page 43

+ INTERRUPT SERVICE ROUTINES ;
IEEEEL T

EES LRI

EXIST:;TNPSUV TRAP OCCURS IF VECTG 4 HAS BEEN LOADED WITH THE

®0
0

3661 021766
3662 021766
3663 021774

012737

000001

NXMFLG SHOULD BE CLEARED IMMEDIATELY BEFORE EXECUTING CODE WMICH MAY

ADDRESS NON EXISTANT MEMORY.

THIS ROUTINE SETS A FLAG NXMFLG TO
1. IT IS EXECUTED WHEN A NON

+ INTERRUPT SERVICE ROUTINE NXM - NON EXISTANT MEMORY TRAP,

BGNSRV

MOV

002470

ENDSRV

NXM

€1 ,NXMFLG

s+ FLAG NXM TRAP

FPPRARRRRR0000000000000000000000000000000000
0000008000000

+ INTERRUPT SERVICE ROUTINE - INTSR

FOPRRRGRRRRV00000000000000000000000000000000000000000000000
0

:"HIS WTI'E INCREMENTS A FLAG (INTFLA). IT WILL BE EXECUTED

sWHEN AN INTERRUPT HAS OCCURRED.
'--

3675 021776
3676 021776
3677 022002
3678
3679

005237

BGNSRV

INC

002510

ENDSRV

INTSR

INTFLA

s COUNT INTERRUPTS

FOPORARRCNNRNNVNNRPPP0000000000000000000000000000000000000000

+ INTERRUPT SERVICE ROUTINE - BADIV

FOPOVRNNCNVNNRP0000000000000000000000000000000000000000
00000

joe

s THIS ROUTINE LOADS VECTOR ADDRESS INTO BIV. IT IS EXECUTED
.m AN INTERRUPT OCCURS TO THE WRONG VECTOR.

l.IV SHOULD BE CLEARED IMMEDIATELY BEFORE EXECUTING CODE WHICH MAY
1CAUSE THE INTERRUPT
'-.

011637
162737
062706

002472
000004
000004

BGNSRV

002472

MOV
SuB
ADD

ENDSRV

BADIV

(SP) BI
4,81V
04,5P

sLOAD INTERRUPT VECTOR ADDRESS
1BACK UP TO CORRECT ADDRESS
1CLEAR STACK

JROCCVCVCNRRNRNNPNRDNINPNINPNNNINPRR0000000000000000000000000000000000
00

s INTERRUPT SERVICE ROUTINE - CLINT

FP0000000000000000000000000000000000000000000000000000000 00000

F7
GLOBAL AREAS

MACRO V05.00
| GLOBAL SUBROUTINES SECTION

Wednesdey 03-Oct-84 14:03

3703

jeee

3704
3705
3706

: THIS ROUTINE IS A DUMY SERVICE FOR THE LINE TIME CLOCK

BGNSRV

3710 022024
3711 022026

ENDSRV
ENOMOD

3712

3713

INTERRUPT

+IT WILL BE EXECUTED WHEN AN INTERRUPT AT VECTOR 100 IS &C\ERED. :

3707
3708 022024

3709

SEQ 0083

Pege 43-1

CLINT

tNO ACTION IN THIS ROUTINE

- MISCELLANEOUS SECTIONS

MACRO V05.00

' GLOBAL SUBROUTINES SECTION
3725

3726

3754
3755 022026
3756
3757
3758
3759
3760
3761
3762

3763

3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793

Wednesday 03-Oct-87

14:03

Page 44

.TITLE MISCELLANEOUS SECTIONS
.SBTTL REPORT CODING SECTION
BGNMOD
:

PRINT ROUTINE
‘e

FUNCTIONAL DESCRIPTION:

PRINTS OUT TEST TITLES,

A CONFIGURATION TABLE OR A STATISTICS

TABLE roatrr: UNITS UNDER TEST. WHICH TO PRINT IS DETERMINED BY

THE CONFIGURATION TABLE SHOWS THE HARDWARE CHARACTERISTICS OF
THE UNIT UNDER TEST AND IF PRESENT, OF THE UNIT TO WHICH
IT IS

CONNECTED FOR LOOPBACK TESTING. IF THE FIRST UNIT MODE ADORESS
IS ZERO (IE. NO TESTS HAVE BEEN RUN AND NO HARDWARE PARAMETERS
HAVE BEEN SET UP) THE AUTOMATIC CONFIGURATION ROUTINE ‘CONFIG’

IS CALLED TO ASCERTAIN THE HARDMARE CONFIGURATION.

THE STATISTICS TABLE DISPLAYS THE NUMBER OF ERRORS WHICH THE

DIAGNOSTIC HAS DETECTED FOR EACH UNIT, AND WHETHER THE UNIT HAS
BEEN DROPPED FROM TESTING.
INPUTS:

THE USER IS ASKED TO TYPE A CHARACTER INDICATING WHETHER TO
PRINT THE TEST TITLES, THE CONFIGURATION TABLE, THE STATISTICS
TABLE OR HOM TO REESTABLISH THE SYSTEM CONFIGURATION.
IMPLICIT INPUTS:
THE HARDWARE PARAMETER TABLE IS READ FOR THE CONFIGURATION
PRINTOUT.
THE ERROR TABLE 'ECNT’

IS USED FOR THE STATISTICS 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.

OUTPUTS:

EITHER A LIST OF TEST TITLES, A CONFIGURATION TABLE OR A
STATISTICS TABLE ARE OUTFUT,

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

SUBORDINATE ROUTINES USED:

CONFIG - AUTOMATIC CONFIGURATION ROUTINE.

k. —a, 4

H7
| MISCELLANEOUS SECTIONS

[ REPORT CODING SECTION

MACRO V0S5.00

3809

3811

3810

|
!

Wednesday 03-Oct-84 14:03

3812

3813

:
3-000013

3828 022026
3829 022030

ASK :

3830 022032

023727
001457
023727
001515
023727
001574
023727
001002
000137

023162

000122

023162

000124

023162

000103

023162

000123

3847 022242

023152

3855 022350
3856 022370

012701

000001

30593‘“ 022400

012703

000022

3857 022374

3861 022404
3862 022426
3863 022444
3864 022450
3865 022452

012702

062702
005201
020127

PRINTF

#PR2

; OTHERWISE, PRINT THE HELP MESSAGE

ASK

s AND PROMPT FOR COMMAND AGAIN

PRINTF
PRINTF
PRINTF

#PR2D
#PR2E
#PR2F

s+ PRINT HOW TO REESTABLISH
s THE SYSTEM CONFIGURATION
b
s

PREX

s+ AND EXIT

PRINTF
MOV

oTT
o1,R1

s+ TEST LIST HEADER
¢ START WITH TEST 1

10¢:

MOV

018. .,R3

:+ WAIT AFTER 18 LINES

204

PRINTF
PRINTF
ADD
INC
ce

OTNUM,R1
(R2)
#2,.R2
R1
R1,ONTESTS

1+
s
1+
1+
1+

TITLE:

023172

000002

000013

3+ PRINT THAT UAM MAS TO BE SET

TITLE
CHAR,#'C
CON
CHAR,®'S
HEL
STAT

RECON:

000137

#PRA

BEQ
cp
BEQ
cHp
BNE
JP

000671

3853 022344

PRINTF

s+ IS MANUAL INTERVATION ALLOWED ?
s IF YES, BRANCH (UAM NOT SET)

3 EXIT PRINT ROUTINE
PROMPT FOR A COMMAND
s+ REESTABLISH SYSTEM CONFIG. ?
s IF YES, OQUTPUT INFORMATION
s TEST LIST REQUESTED ?
s IF YES, OUTPUT TITLES
3+ CONFIGURATION REQUESTED
?
s IF YES, OUTPUT COFIGRAYIW
: STATISTICS REQUESTED ?
s IF NOT, PRINT THE HELP MESSAGE
s IF YES. OUTPUT STATISTICS

10¢:

HEL :

3849 022244
3850 022264
3851 022304

BGNRPT

MANUAL
BCOMPLETE 104

s+ 11 TESTS FOT TITLE PRINTOUT

EXIT
RPT
GMANID PRI.M A,377,1,.4,YES;
cp
CHAR, ¢
BEQ
RECOJ
cHP
CHAR,®'T

022766

3843 022142

3844 022162
3845 022202
3846 022222

INVOKED BY THE OPERATOR PRINT COMMAND.

NTESTS=11.

3827 022026

3836 022114
3837 022116
3838 022124
3839 022126
3840 022134
3841 022136

- LINE FEED PRINT ROUTINE.

3822
3823

3831 022052
3832 022056
3833 022076
3834 022104
3835 022106

CONPRI - CONFIGURATION PRINT ROUTINE.

CRLF

:
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.
3
s+ CALLING SEQUENCE:

3821

3824

SEQ 0085

Page 44-1

s+ FUNCTIONAL SIDE EFFECTS:

3814
3815
3816
3817
3818
”3.201?

3825”26

PRINTF
PRINTF
PRINTF

MOV

#PR2A
#PR2B
#PR2C

OTADS ,.R2

3
3
:

s START OF LIST OF TITLE ADDRESSES

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

17
| MISCELLANEOUS SECTIONS
REPORT CODING SECTION

MACRO V05.00

Wednesday 03-Oct-84 14:03

003015
005303
001350

8GT
DEC
BNE

30¢
R3
204

JSR
BR

PC,CRLF
10¢

GMANID

SEQ 0086

Pege 44-2

ROY,RFLG,A,377,0,1,YES

IF YES,

EXIT

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

004737
000733

014634

000137

023152

30¢:

JHP

PREX

EXIT

005037
005037
005737
001402
005237

023156
023160
002554

CON:

CLR
CLR

STFLG
GPFLG

ASSUME DIAGNOSTIC IS NOT STARTED
FLAG NO GPHARDS YzT EXECUTED
ARE ANY PARAMETFA ADDRESSES SET WP ?

005737
001404
023727
003403
012737

002012

013746
005037

002074
002074

013701
005711
001003
012737

10¢:

INC

STFLG

IF NOT, BRAWNCH
ELSE FLAG DJ"GNOSTIC IS STARTED

TST

LSUNIT

ANY UNITS SET UP ?

104

204
LSUNIT,016.
30¢
#16. ,LSUNIT

MOV
CLR

LSLUN, -(SP)
LSLUN

SAVE THE UNIT NUMBER BEING TESTED
START WITH UNIT O

002554

MOV

GPADD ,R1

GET FIRST PARAM. ADORESS

171000

BNE
MOV

40¢
#171000,STADD

IF YES, BRANCH
ELSE START FOR FIRST IAV/IDV ADOR.

MOV
ASL

LSLUN,R1
R1

FORM OFFSET FOR UNIT TABLES

BNE

S04

IF YES, BRANCH
ELSE, GET P TABLE ADDRESS
IF DESELECTED, REQUEST OPERATOR ADD
FLAG THAT GPHARD HAS BEEN USED

002012

20%:
30¢:

TST

015572

40%:

TST

INC

023160

005771
001002
004737

002554

504 :

015306

S554:

003237

002074
002074

015656

005737
001520
005737
001515

023156

002012

ANYTHING IN IT

PARAMETER ADORESS SET WP ?

SGPADD(R1)

MODE ADDRESS OF UNIT = 0 ?
IF NOT, BRANCH
00 AUTO CONFIGURATION

604 :

INC
cp
BLT
MOV

LSLUN
LSLUN,LSUNIT
404
(SP)e+,LSLUN

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

704:

JSR

PC,CONPRI

PRINT THE CONFIGURATION

STFLG

PREX

WAS DIAGNOSTIC STARTED ?
IF NOT, EXIT
HAVE WE USED ANY GPHARDS ?
IF NOT, EXIT
ELSE PRINT 'USE STA OR RES'
AND EXIT

#PR6

ASK OPERATOR TO ADD UNITS

TST

BEQ
TST

80¢:

023152

GPFLG

SET UP 16 UNITS

60¢
PC.CONFIG

023160

000504

GPADD(R1)

IF NOT, BRANCH

TOO MANY UNITS SET WP ?
IF NOT, BRANCH

BNE
JSR

002074

004737

(R1)

GPHARD LSLUN,GPADD(R1)
BNCOMPLETE ASKADD

005237

000137

GPADD

BEQ
ce
BLE
MOV

002012

013701 002074
006301 .
005761 002554
001010

023737
002747
012657

TST

BEQ

023156

AND THEN CONTINUE

BEQ

PRINTF

ASKADD: PRINTF

JHP

PREX

GPFLG

PREX
#PR7

PREX

AND EXIT

J7
| MISCELLANEOUS SECTIONS
| REPORT CODING SECTION

MACRO V05.00

Wednesday 03-Oct-84 14:03

3923
3924 022766
3925 023006
3926

3927 023026
3928

3929 023030
3930 023034
3931 023036
3932 023040
3933 023042
3934 023046
3935 023050
3936
3937 023052
3938 023056

STAT:
005001

020137

001444
010104

016405
005705
100423
012703

208

002012

PRIMT STATISTICS HEADER

CLR

START WITH FIRST UNIT

cHP
BEQ

R1,LSUNIT
60¢

ALL UNITS REPORTED ?
IF YES, EXIT

MOV

R1.R4

FORM OFFSET TO ERROR COUNT

MOV

ECNT(R4),RS

404

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

ONO,R3

ASSUME UNIT IS NOT DROPPED

TST

002614

012703

025002

MOV

DROPED(R1)

PRINTF

&PRS,R1,RS,R3

CHECK IF IT IS
IF IT IS NOT, BRANCH
OTHERWISE PRINT YES
ELSE PRINT STATISTICS

PRINTF

&PR4,R1

PRINT ‘UNTESTED’

INC

PREPARE FOR NEXT UNIT

60%:

JSR

PC.CRLF

PRINT A LINE FEED

PREX:

EXIT

RPT

STFLG:
GPFLG:
CHAR:

LMORD
.MORD
.ASCIZ

O
O
/M

RFLG:

L.MORD

TADS :

TITLES

40%:

S0$:

005201
000731

014634

3957
3981
3982 023172

TST8

30¢:

000411

023172

@oPR3
OPR3A

BMI

105761

004737

PRINTF
PRINTF

ASL

002514

SEQ 0087

Page 44-3

BEQ
MOV

B8R

.WMORD
LMORD
LMORD
.MORD
LMORD
.MORD
LMHORD
.MORD
.MORD
LMORD
LMORD

030206
030574
031216

033474
034076
034576
035270
036110
037122
037350

304
OYES,R3

S04

204

AND LOOK FOR MORE UNITS

IF NOT, REPORT THE NEXT

SET IF DIAGNOSTIC HAS BEEN STARTED
SET IF ANY GPHARDS ARE EXECUTED
STORE FOR OPERATOR INPUT
FLAG FOR 'TYPE RETURN FOR MORE TITLES

LIST OF TEST TITLE ADDRESSES

TSHD1
TSHD2
TSHD3
TSHDA
TSHDS
TSHD6
TSHD7
TSHDS
TSHD9
TSHD10
TSHD11

—

.NLIST BEX
045
045

116
116

045
045

TT:

LASCII
LASCIZ

/#NSATEST TITLES./
/¥NSA----ccccceus wN2/

124

131

120

RDY:

.ASCIZ

/TYPE "RETURN” FOR MORE TITLES/

I<7
| MISCELLANEOUS SECTIONS

I REPORT CODING SECTION

3994 023322
3996 023326
§§é 023420

4000 023445
4001 023517

MACRO V05.00

Wednesday 03-Oct-84 14:03

045
045
124

104
116
131

063 TNUM:
045 PRA:
120 PR1:

ASCIZ /%03/
.ASCIZ /8NSATO. USE THE PRINT COMMAND, PLEASE CLEAR THE "UAM" FLAG/
.ASCIZ /TYPE T,R,C,S OR HELP/

045
045

116
116

045 PR2:
062

.ASCII
.ASCIZ

/9¥NSATHE FOLLOWING COMMANDS ARE ACCEPTED :-/
/8N2#AT - PRINT TEST TITLES/
/9NsAC- PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC/
/¥NSAR
- PRINT HOW TO REESTABLISH THE SYSTEM CONFIGURATION/
/8NsAS
- PRINT STATISTICS TABLESN/

.ASCIZ

/8NSATO REESTABLISH THE SYSTEM CONFIGURATION, ANSWER THE/
/9NSAHARDWARE QUESTION TYPING "0” AS THE MODE ADDRESS FOR 16 UNITS./

4002 023552
4003 023651
4004 023743

045
045
045

116
116
116

045
045
045

PR2A:
PR28:
PR2C:

400€ 024004

045

116

045

PR20:

4007 024074

4008 024177
4009 024273
4010 024367

4011 024431
4012 024474
4014 024533
4016 024564
4018 024605
4019 024667
4021 024706
4023 025002
4024 025006

045
045
045
045

045
045
04s
045
045
040
045
131
116

116
116
116
116

116
116
116
116
116
101
116
105
117

045
045
045
062

045
062
045
045
045
116
045
123

000

.ASCIZ
.ASCIZ
.ASCIZ

PR2E:
PR2F:
PR2G:
PR3:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

PR3A:
PRE:
PRS:
PR6:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ

PR7:
YES:

NO:

/ms.

MODE REGISTER ADDRESS (0) O ?

DUWLE STATISTICS. \
MO
11
VIA
I
V
e
m
\
AOCIE /9NAABEM-cccocsssescoscasccscsscscssna

.ASCIZ

------------

Ousvvvvvvvvvnnese/

/#N2#AUNIT ERRORS DROPPEDSN/
/#NWD3SA UNTESTED
NO/
/#NSD3SSSND3SSTST/
/#NSAUNIT DROPPED OR DESELECTED - PLEASE TYPE “ADD"/
/ AND TRY AGAIN/
/#NSAPLEASE TYPE “START” OR “RESTART“ TO CONTINUE TESTING.sN/
/YES/
/MO’

4026
4027

.LIST BEX
-EVEN

4029 025012

ENORPT

4028

SEQ 0088

Page 44-4

L7
| MISCELLANEOUS SECTIONS
| PROTECTION TABLE

‘

MACRO V05.00

Wednesdsy 03-Oct-84 14:03

4031

.SBTTL

4033

joe

4036

3--

4032

4034
4035

BGNPROT

Oggg 025014

4040 025014

4041 025016
:sg 025020

4044 025022

PROTECTION TABLE

+ THIS TABLE IS USED BY THE RUNTIME SERVICES
: TO PROTECT THE LOAD MEDIA.

4037

Page 45

000000
177777
177777

-1
-1

ENDPROT

tOFFSET INTO P-TABLE FOR MODE ADDRESS

tOFFSET INTO P-TABLE FOR MASSBUS ADDRESS
sOFFSET INTO P-TABLE FOR DRIVE NUMBER

SEQ 0089

M7
MISCELLANEOUS SECTIONS

INITIALIZE SECTION

MACRO V05.00

Wednesday 03-Oct-84 14:03
.SBTTL

4060

SEQ 0090

Page 46

INITIALIZE SECTION

4061

jee

+ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
s

AT THE BEGINNING OF EACH PASS.

BGNINIT
005037

026214

004737
004737

014662
014634

START:

10¢:

005737

LOOPEX
OEF . START

PRINTF

OWARNL

CLEAR LOOP FLAG
IS THIS A NEW START ?
IF NOT, BRANCH
BNCOMPLETE RESTRT
SETVEC 014,0113240,6340; ¢s+ JUST FOR DEBUG PROGRAM sss
SETVEC #100,0CLINT,#340; IGNORE FURTHER INTERRUPTS TO VECTOR 100
sCONNECT TEST CONNECTOR
PRINTF SUWARN

BRESET

+ WROY
+CRLF

1AND VOLTAGE SOURCE
tHAIT FOR OPERATORTO TYPE RETURN
tPRINT A LINE FEED
RESET THE SYSTEM
SET UP CLOCK COUNTER

JSR

PC,SETCLK

TST

LSUNIT

LSUNIT,016.

30¢
016. ,LSUNIT

IF NOT, BRANCH
ELSE, SET UP 16 UNITS

BEQ

012737

:
204

BLE
MOV

30¢:

CLR

ACFLG

CLEAR AUTO CONFIGURATION FLAG

S0$:

MOV
MOV
CLR
DEC
BNE

OLOPFLG,RO
016. ,R1
(RO)»
R1
S04

FLAG THAT LOOP CONFIGURATION IS NOT CHECKED
FOR POSSIBLE 16 UNITS

MOV

#OROPED, RO

GET UNIT DROPPED TABLE ADDERSS

CLRB
DEC
BNE
MOV

(RO)+
R1
554
#ECNT,RO

GET ERROR COUNT FOR WT 0

MOV
DEC
BNE
BR

9100000, (RO)+
R1
604
STARES

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

023727
002012

012700
012701
005020
005301
001375

012700
012701

002614

SS¢:

002514
100000

005037
005037
000534

002634
002636

604
:

MOV

204

ANY UNITS CONFIGURED ?
IF NOT, BRANCH
TOC MANY UNITS SET WP ?

001404

005037

4139 025316

CLR

JSR
JSR

004737

4108 025176

READEF

016. ,R1

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

THERE ARE 16 UNITS
CLEAR ALL 16 DROPPED UNIT FLAGS

THERE ARE 16 WT'S

OEF .RESTART
RESTRT: READEF
BNCOMPLETE NEWST

IS THIS A RESTART ?
IF NOT, BRANCH

STARES: CLR

SHOM NO TESTS HAVE BEEN RUN THIS PASS
OR FOR THIS UNIT
START TESTING WITH FIRST WUT

CLR
B8R

TSTFLG
TSUFLG
INIWT

N7
| MISCELLANEOUS SECTIONS
| INITIALIZE SECTION
|

MACRO V05.00

4140
4141 025320

4142 025326

NEWST:

4143 025330
4144 025334
4145 025336
4146 025356

005737
001011

4148 025360
4149 025364
4150 025370
4151 025372
4152 025376

005037
005737
001507
005037
004737
004737
000500

4147

Wednesday 03-Oct-84 14:03

002634

READEF

OEF .NEW

TST

TSTFLG

PRINTF

ONTEST

BNCOMPLETE CONT

BNE

DOCLN
10¢:

002634
026212

CLR

104

TSTFLG

INIWT
ACFLG
PC,CONPRI
PC,WRDY
INIWT

100,
#4

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

#EF .PWR
READEF
BNCOMPLETE NXTWT
SETVEC &4, 0NXM, PRIO7
8IS
€100, 8M00
CLRVEC o4

PSEUL1

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

WERE ANY TESTS RUN ON THE LAST UNIT ?

PRINTF

ONTEST1,LSLUN

JSR
BR

ACFLG

CONT:

052777

000100

8IS
CLRVEC

154742

000137
PWRFL:

052777

000100

000137

026162

005737
001014

002636

004737
005037

014662

012737
005237

177777
026214
000002

000422

022737

001011

4192
4193
4194
4195
4196

025710
025714
025716
025720
025724

10¢:

V02074

BNE

JSR
CLR
BR

INIWT: MOV

INC
cHP
BNE

026214

PRINTF

002074
002074

013705
006305

002074

004737
012737

NXTUWT:

002636

005237
023737
002350

010165
005711
001024

154664

002012

DOCLN

INC

END

104

PC,WRDY
TSUFLG
NEXT

0-1,LILUN
LOOPEX
#2,L00PEX
NEXT
OWRSEL

LSLUN

026212

AND CONTINUE

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

INITIALIZE LOGICAL UNIT NUMBER.

ARE l?i IN A UNIT LOOP

BRANCH IF NO
IF YES PRINT NOT CORRECT UNIT SELECTED
AND RETURN TO THE SUPERVISOR

cHP
B8GE

LSLUN,LSUNIT
INIWT

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

MOV
ASL

LSLUN,RS
RS

FORM OFFSET

GPHARD

LSLUN,R1

TST

R1,GPADD(RS)
(R1)

%CVMEYE NEXT

002554
015306
000001

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

INIT TEST FLAG AGAIN
JUST DONE A RUN OF AUTO CONFIGURATION ?
IF NOT, TEST FIRST UNIT
ELSE, FLAG THAT THE RUN IS FINISHED
PRINT THE CONFIGURATION
WAIT FOR OPERATOR TO TYPE 'RETURN’
THEN TEST THE FIRST UNIT

TST

BEQ
CLR
JSR

026212
015656
014662

SEQ 0091

Page 46-1

BNE
JSR
MOV

}24
Po,CONFIG
#1_ACFLG

SAVE UNIT NUMBER

GET PARAMETER TABLE ADDRESS IN R1
IF DROPPED, GET THE NEXT
ELSE SAVE THE ADDRESS

MODE ADDRESS = 0 ?

IF NOT, BRANCH
ELSE DO AUTO CONFIGURATION FOR THIS UNIT
AND FLAG THAT WE ARE DOING IT

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

4197 025732
4198 025734
4199 025740

4200 025742

103014
005737
001323

SEQ 0092

MACRO V05.00 Wednesdey 03-Oct-84 14:03 Pege 46-2
8CC
TST
BNE

002012

104
LOUNIT
INIWT

+ BRANCH IF ANOTHMER UNIT FOUND
s ARE THERE ANY UNITS TO TEST ?
s IF YES, START AGAIN WITH THE FIRST UNIT

PRINTF ONODEV

4201 025762

s ELSE PRINT “NO UNITS FOUND"

OOCLN

s+ AND RETURN TO THE SUPERVISOR

4203 025764

016501

002554

108:

MOV

GPADD(RS ) ,R1

1 GET PARAMETER TABLE ADDRESS IN Rl

4205 025770
4206 025774
4207 026000
4208 026006
4209 026012
4210 026020

062737

002416
002420
000002
002422
000004
002424

204 :

gg 026024

011137
011137
062737
011137
062737
012137

MOV
MOV
ADO
MOV
ADD
MOV

(R1),M0D
(R1),CSR
02,CSR
(R1),CCR
o4 ,CCR
(R1)+,INR

+ SAVE NEW MODE REGISTER ADDRESS
'
i
1 SAVE NEW CCR REGISTER ADORESS
5
s SAVE NEW INR REGISTER ADORESS

4213 026032
g{; 026036

012137
012137

002426
002430

MOV
MoV

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

s+ SAVE NEW VECTOR ADDRESS
s SAVE NEW PRIORITY

4216 026042

005037

002470

CLR

4218 026074

017701

154316

MOV

4221 026106
4222 026110
4223 026114
4224 026116
4225 026122
4226 026124
4227 026132
4228 026140
4229 026144
4230 026146

000301
005737
001006
120127
001254
032777
042765
012702
000402
012702
032702
010237

000040
010000
002702

508 :
60¢:

4234 026162
4235 026166

005037

002700

4237 026174
4238 026176

032700
001402
003237

000010

PSEW.1: CLR
RFLAGS

4240 026202

005037

026214

4243 026212
4244 026214
4245
&

000000
000000

4248 026216

045

116

045

101

4204

4217 026046
4219 026100

4231 0261352
gg 026156

4236 026170

4241 026206

4249 026276
4250 026371
42351 026465
4252 026332
4253 026614

045
045
045
045

000006

002420
002422
002424

ADD

002470
000300
000100
100000
000420

154264
002514

70%:

045

045
045
045
045
117

NOFLG

SETVEC

64,000, 0PRI0O7

; IGNORE MM

CLRVEC

s+ RESTORE XM TRAP CATCHER

SHAR
TS7
BMNE
e
BNE
8IS
8I1C
MOV
BR
MOV
8IS
MoV

800, R1

s GET MODE REGISTER CONTENTS

R1
1
NOFLG
s
704
1
R1,0300
s
NEXT
s
€100, 8100
s
#100000,ECNT(RS);
#420,R2
s
604
s+
#40,R2
i

SWAB MOD REGISTER
ENS
IS THE USED ADDRESS ACCESSABLE ?
BRANCH IF NOT
IS IT A FIVE CHANNEL COUNTER ?
IF _NOT BRANCH
SWITCM ON WT LED
FLAG UNIT IS BEING TESTED
SET UP FOR FIVE CHANNEL COUNTER
MERE IF ID IS 300 (FIVE CHA. COUNTER)

#10000,R2
R2,

+ ASSUME SPECIFICALLY SELECTED TEST
s SAVE TEST CONTROL MASK

LOTFLA

s INIT LOOP ON TEST FLAG
s+ GET OPERATOR FLAGS

8IT
BEQ
INC

oLOT,.RO
END
LOTFLA

END:

CLR

LOOPEX

ACFLG:
LOOPEX:

.WORD
.WORD

O
O

NLIST

BEX

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

.ASCIZ

/«#NsACONNECT TEST CONNECTOR AND REQUIRED VOL TAGE/

.ASCIZ

/#AOR ID CODE IS INCORRECT/

002700

116
116
116
116

06, INR

WARN:

WARNL:
NTEST:
NTEST1:
:

EXIT

.ASCIZ
.ASCIZ
.ASCIZ
JASCII

s+ LOOP ON TEST SELECTED ?

s IF NOT, BRANCH
s ELSE SET FLAG

INIT

/#NsATO FIVE CHANNEL COUNTER MOOULES THMAT SHOULD BE TESTED./
/#NsAND TESTS WERE RUN - CHECK ANSUERS YO STARTUP QUESTIONS./
/#NsAND TESTS WERE RUN ON UNIT #D3#A./
/#NsASELECTED UNIT IS NOT A FIVE CHANNEL COUNTER.sN/

MISCELLANEOUS SECTIONS
INITIALIZE SECTION

LIST
.EVEN

4257 026646

ENDINIT

4258

!
i

|
|

!
|
:

i
?

Wednesdey 03-Oct-84 14:03

4254
4255

4270

MACRO v05.00

BEX

Pege 46-3

SEQ 0093

D8
MISCELLANEOUS SECTIONS

. INITIALIZE SECTION

MACRO V0S.00

Wednesdey 03-Oct-84 14:03

4274

USED DURING INITIALISATION.
| SUBROUTINES
RS RLENES D EEEsr SuusEReE oS aal e g

278

prisd

prde
4377
P

4579
281

SEQ 00%4

Pege 47

ot et 7 gl ol el o g et ot 0! T el ol ettt gl ol o gl gl

§ BEECE

_SBTTL SETCLK - ROUTINE TO SET UP DELAY COUNTS
FUNCTIONAL DESCRIPTION:
THIS ROUTINE SETS UP 3 DELAY VARIABLES CALLED CNT25M, CNTS00, AND
CNTZS. THESE GIVE DELAYS OF APPROXIMATELY 25 MILLISECONDS, 500
MICROSECONDS OR 25 MICROSECONDS RESPECTIVELY IF USED AS FOLLOWS:-

MOV

CNTXXX,RO

BNE

1¢: DEC

RS o S
L AT N
CONSOLE 6 SECONDS APART.

INPUTS:
NONE
.

IMPLICIT INPUTS:

:gg
4313

:g{;

:3{_6’

4320
4321

:33%

IF CNT25M IS NOT ZERO (ALREADY SET UP), THE ROUTINE DOES NOTHING.
OUTPUTS:

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

CNT25M CONTAINS THE COUNT REQUIRED FOR 25 MILLISECONDS.
CNTS00 CONTAINS THE COUNT REQUIRED FOR 300 MICROSECONDS.
CNT25 CONTAINS THE COUNT REQUIRED FOR 25 MICROSECONDS.
SUBORDINATE ROUTINES USED:
CRLF

- LINE FEED PRINT ROUTINE.

CLINT - DUMMY CLOCK INTERRUPT SERVICE ROUTINE
FUNCTIONAL SIDE EFFECTS:

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,

4324

CALLING SEQUENCE:

4326

JSR

4325

PC,SETCLK

E8
SEQ 0095

| MISCELLANEOUS SECTIONS MACRO V0S5.00 Wednesday 03-Oct-84 14:03 Page 47-1

| SETCLK - ROUTINE TO SET UP DELAY COUNTS
|

|
|
i
|

4329

4330 026650
4331 026654
0% 026656
43
4334 026662
4335 026664
4336 026670

005737 014626
001402
000137 027524
005004
005037 027526

4339 026732
4340 026736
4341 026742
4342 026746
4343 026752
4344 026754
:33:2 026760

005037 002470
005771 000000

4337 026674
4338 026704

005737
005737
001005
005237
012771

SETCLK: TST
BEQ
P
108
CLR
GETPRI
CLR

CNT25M
10
SETEX
Re
R2
CLKFLG

s COUNTERS ALREADY SET UP?
+ IF NOT, BRANCH
s IF YES, EXIT
s CLEAR A COUNTER
s SAVE CURRENT PRIORITY IN R2
s ASSUME THERE IS NO CLOCK WITH A CSR

NXMFLG
#(R1)

s CLEAR NXM FLAG
s ACCESS THE CLOCK ADDRE

CLOCK
L ,R1
SETVEC #4,0NXM, 0340

CLR
ST

002470
002470

027526
000100 000000

:33:;

18T
ST
BNE
INC
MOV

NXMFLG
NXMFLG
LCLOCK
CLKFLG
#100,8(R1)

+ GET ADDRESS OF CLOCK TABLE
s SET UP CLOCK CSA TRAP

s sDON'T DELETE, NEEDED FOR FALCONe
+ DOES THE CLOCK MAVE A REGISTER ?
s IF NOT, BRANCH
s ELSE FLAG THERE IS A CLOCK CSR
: AND SET IT WP TO

: USE THE L CLOCK
5

4349 026766

4350 026774 012703
4351 027000 026127
4352 027006 001401

000006
000006

LCLOCK: CLRVEC

000062

:gs 027010 005203
108 :

4356 027014

4357

4358 027042

4359 027050
4360 027052
4361 027054
4362 027056
4363 027060

005000
020305
001004
005300
001374

204 :

:33:; 027062 000137 027174
4366 027066 005005
4367 027070 005204
4368 027072 001376
4369 027074

105205

4370 027076
:3;5 027100

001374
000435

4373 027102

005303

g;z 027106

000002

4374 027104

4379 027142
4380 027144
4381 027150

KLINT:

001401

027526

:335 027152 005071 000000
4384 027156 000241
4385 027160 006005

R3,RS

+ SAVE NMBER OF INTERRRUPTS

SETPRI

SETVEC

—
o e
e ———

3 ELSE ALLOW 6 INTERRUPTS

#100,0KLINT,0340; SET UP THE CLOCK VECTOR

s TO WAIT FOR 1ST INTERRUPT
s AND DROP THE PRIORITY

RO
R3,RS
304
RO
204

CLR
INC
BAHE

RS
R4
40¢

s CLEAR THE MIGH COUNTER
+ COUNT THE DELAY FOR S OR 6 INTERRUPTS
'

BHE
B8R

404
USCLOK

'
s IF TOO LONG, ASSUME NO CLOCK

DEC

USCLOX

3 CLEAR RO AND THE CARRY BIT
s MAS COUNT
DROPPED ?
+ IF YES, START THE COUNTERS
: WAITED TOO LONG ?
s IF NOT, MAIT LONGER

+ IF YES, ASSUME NO CLOCK

: S OR 6 INTERRUPTS?

BEQ

404

SETPRI

+ RESTORE THE PRIORITY

cie
TST
8taQ

(SP)e,(SP)e
CLKFLG
S04

8C(R1)

: TIDY UP THE STACK
s CAN WE DISABLE A CLOCK ?
+ IF NOT, BRANCH

s ELSE, DISABLE CLOCK INTERRUPTS

cLC
ROR

+ DIVIDE THE 100 MILLISECOND COUNTERS
+ BY & TO GIVE 25 MILLISECONDS

SETVEC

CLR

S04 ;

CLR
cP
BNE
DEC
BNE

RTI

404 :
022626
005737
001402

MOV

INCB

4377 027110

4378 027114

s IF SO MZ, 100 MS = S INTERRUPTS
s SO HZ CORRECT?
s IF YES, BRANCH

308 :
40$:

: SET VECTOR & TO UNUSED POOL

#6,R3
6(R1),050.
10

INC

4355 027012 010305

MOV
o
BEQ

s IF YES, TIDY WP

+ ELSE KEEP COUNTING

#100,0CLINT,#340; IGNORE FURTHER INTERRUPTS TO VECTOR 100

)

F&
| MISCELLANEOUS SECTIONS MACRO VO0S.00 Wednesday 03-Oct-84 14:03
| SETCLK - ROUTINE TO SET UP DELAY COUNTS
4386 027162
4387 027164
4388 027166

4389 027170
4390 027172

4391
4392
4393

4394 027174
4395 027200
4396 027226
4397 027232
4398 027234

4399
4400
4401
4402
4403
A404
4405
4406
4407 027240
4408 027266
4409
4410 027306
4411 027312
4412 027314
4413 027320
4414 027324
4415 027330
4416 027332
4417
4418 027334
4419 027342
4420 027350
4421
4422 027356
4423 027362
4424 027364
4425 027366
4426 027370
4427
4428 027372
4429 027376
4430 027404
4431 027406
4432 027412
4433 027416
4434 027422
4435 027426
4436 027430
4437 027432
4438 027440
4439
4440
444]

4442 027444

ROR
CLC
ROR
ROR
BR

006004
000241
006005
006004
000524

Page 47-2

RS
R&
SAVCNT

'
'
'
:
' AND SAVE THE COUNT

+ COME MERE IF NOT ENOUGH CLOCK INTERRUPTS OCCUR BEFORE THE COUNTERS OVERFLOW

USCLOK: SETPRI
005737
001402
005071

SETVEC

TST
BEQ
CLR

027526

§ RESTORE THE PRIORITY
#100,#CLINT,#340; IGNORE FURTHER INTERRUPTS TO VECTOR 100
CLKFLG
[ CAN WE DISABLE A CLOCK ?
NOCLOK
' IF NOT, BRANCH
8(R1)
’ ELSE DISABLE CLOCK INTERRUPTS

s+ USE THE CONSOLE FOR TIMING
3

177560
177562
177564
177566

105737
100375
013700
042700
020027

177562
177600
000003

013737

177562

177566

012737

000100

177560

012705
005305
001376
005204
000772

000360

001001

177560

177560
177562
177600
000003

013737
004737

177562
014634

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

#60,#TTINT,0340 ; SET UP INTERRUPT VECTOR
#TIMMSG
: *TYPE 2 CHARACTERS 6 SECONDS APART’

10¢:

TST8
BPL
MOV
8IC
cp
BNE
DOCLN

TKS
104
TKB,RO
#177600,R0
RO, #3
204

SETPRI

MOV
DEC
BNE
INC
BR

9240. RS
RS
40%
R4
30¢

SETPRI

cp
CLR
MOV
8IC
cHp
BNE
DOCLN
MOV
JSR

(SP)e+,(SP)
TKS
TK8,RO
#177600,R0
RO, #3
104

MOV

30¢:
408 :

177566

’
:
’
:

NOCLOX: SETVEC
PRINTF

TTINT:

022626
0035037
013700
042700
020027
001001

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

10¢:

CLRVEC

€100, TKS

#60

TKB,TPB
PC.CRLF

:
:
:
3
:
:
:

IS FIRST CHARACTER READY?
IF NOT, WAIT
ELSE GET THE CHARACTER
DISCARD UNMANTED BITS
IF *C, RETURN TO SUPERVISOR

NOW ECHO THE CHARACTER
’ OROP THE PRIORITY
: ALLOW INTERRUPTS

5 SET UP MODULO 240 COUNTER
’ START COUNTING
3 R3 IS MODULO 240 COUNTER

: UPDATE THE COUNTER
$ 6 SECONDS/240 = 25 MILLISECONDS
’ RESTORE THE PRIORITY
: AND THE KEYBOARD VECTOR
: TIDY UP THE STACK

:
:
'
:
:
:
’
3

DISABLE INTERRUPTS
ELSE GET THE CHARACTER
DISCARD UNWANTED BITS
IF tC, RETURN TO SUPERVISOR
ELSE, ECHO THE CHARACTER
AND PRINT A LINE FEED

3+ SAVE THE COUNTERS
010437

014626

SAVCNT: MOV

R4 ,CNT25M

' SAVE THE 25 MILLISECONDS COUNTER

G8
| MISCELLANEOUS SECTIONS

MACRO V05.00

Wednesdey 03-Oct-84 14:03

SETCLK - ROUTINE TO SET UP DELAY COUNTS
012700
062704

000062
000031

4449 027470
4450 027472

000774
010137

014630

4452 027476
4453 027502
4454 027506
4455 027510
4456 027512
4457 027514
4458 027516
4459 027520

012700
062701
005002
160001
002402
005202
0C0774
010237

4451

4460
4461 027524
4462
4463 027526
4464
4465
4466 027530
4467

4468

TO NEAREST SO

INITIALISE RESWLT
REMAINDER < 0 ?
IF YES, BRANCH
ELSE INCREMENT RESWLT
AND TRY AGAIN
SAVE THE 3500 MICROSECONDS COUNTER
NOW DIVIDE BY 20
TO NEAREST 20

000012

30¢:

SuB

40%:

MOV

R2,CNT2S

000207

SETEX:

RTS

000000

CLKFLG:

TIMMSG:

.ASCIZ

045

014632

116

045

INITIALISE RESWLT
REMAINDER < O ?
IF YES, BRANCH
ELSE INCREMENT RESWLT

4446 027462
4447 027464
4448 027466

NOW DIVIDE BY S50

4443 027450
4444 027454
4445 027460

SEQ 0097

Pege 47-3

BEX

AND TRY AGAIN

SAVE THE 25 MICROSECONDS COUNTER

RETURN
H

SET IF DRS FINDS A CLOCK WITH A CSR

/SNSATYPE 2 CHARACTERS 6 SECONDS APART >/
BEX

H8
MISCELLANEOUS SECTIONS
AUTODROP SECTION

MACRO v05.00

Wednesday 03-Oct-84 14:03
.SBTTL

4470
4471
4472
4473
4474
4475
4476
4477
4478

AUTODROP SECTION

jee

+ THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
+

THE "ADR” FLAG WAS SET.

s SEE IF THEY WILL RESPOND.
+ DROPPED FROM TESTING.

4487 027600
4488 027626
4489 027632

THE UNIT(S) UNDER TEST ARE CHECKED TO

THOSE THAT DON'T ARE IMMEDIATELY

BGNAUTO

4479 027600

4480

4490
449).
4492
4493
L4734
4495
4496
4497
4498
4499
4500

SEQ 0098

Page 48

005037
005777

SETVEC
CLR
TST

002470

152560

&4,0NXM,PRIO7
NXMFLG

s
s+
+
s+

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

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

005737
001404

002470

10s:

NXMFLG
TST
BEQ
104
O0ooV
LSLUN
DOCLN
CLRVEC
ENDAUTO

s
s+
s+
s+
s+

WAS THERE A TRAP ?
BRANCH IF NOT
ELSE DROP THE DEVICE
CLEAN UP CODE.
RETURN VECTOR O4 TO NORMAL STATE

i8
| MISCELLANEOUS SECTIONS
' CLEANUP CODING SECTION
.

4502

4508

4504

4505
4506

4507

Wednesdey 03-Oct-84 14:03
.SBTTL

jee

+ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED
+ AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

i--

BGNCLN

4520 027664
4521 027665

BRESET
EXIT

4535

.EVEN

4537 027672

ENOCLN

4522
4534

4536

SEQ 0099

Page 49

CLEANUP CODING SECTION

4509 027664

4510
4519

e e

MACRO V0S5.00

CLN

s+ DO A BUS RESET TO SWITCH OFF ALL LEDS

MISCELLANEOUS SECTIONS
DROP UNIT SECTION

MACRO V05.00

.SBTTL

4539
4540
4541
4542
4543
4544
4545

4546 027674
4547
4556
4557 027674
4558 027676
4559 027704
4560 027706
4561
4562
4563 027730
4564
4576
4577
4578 027734
4579
4580
4581
4582 027764

Wednesday 03-Oct-84 14:03

SEQ 0100

Page S0

DROP UNIT SECTION

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

010026

112760

000001

002614

045

116

045

014600

SAVE RO _CONTENTS

FLAG UNIT DROPPED IN PARAM TABLE

GET ORIGINAL RO CONTENTS
‘UNIT DROPPED’

DROPD:

K8
| MISCELLANEOUS SECTIONS
| ADD UNIT SECTION

:
2

MACRO V05.00

Wednesday 03-Oct-84 14:03
“

4584

.SBTTL

4586

goe

4585

4587
4588
4589

4590

§=-

4592 027766

4603 027766

ADD UNIT SECTION

:+ THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
: TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
: TO THE TEST CYCLE.

4591

as02

BGNAU

CLRB

DROPED(RO)

4605 027772

EXIT

4619

.EVEN

4621 027776

ENDAV

4623 030000

ENDMOD

4606
4618

4620

4622
4624
4625

SEQ 0101

Page 51

105060

002614

s+ FLAG UNIT NOT DROPPED IN PARAM TABLE

L8
MARDMARE TESTS

MACRO V05.00

ADD UNIT SECTION

Wednesdey 03-Oct-84 14:03

SEQ 0102

Pege 52

4627
4638
4639
4674

.TITLE HARDMWARE TESTS

4676

10 0 0 40 0 0080000000860000000000000000000000008800080000006008808¢64888888004

4678
4679

.SBTTL

BGNMOD

4675 030000

4677

Test 1 - Register NXM Test.
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

10 60 0 0 0 000088000000000000088800008008080000008880000000806600008880608888888

BGNTST

CALL

004737

LMORD

TSHD1
8CS
CLR
SETVEC
ITRACL: g

103467
005037

013701

162701

012702

10¢:

062701

005004
005711
005704
0N4737
001407
004737
005203

4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727

TEST 1: Register NXM Test.

030130
030132
030134
030142
030144
030150
030152
030156
030164
030166
030170

015240

204

005302
001355
005703
001404

005737
001007
0035237
023737
001401
000726

30¢:

002504
EXQvVl:

4734
4746 030202
4747 030202
4748 030204
4749
4750
4751 030206
4752 030240
4753
4704

123
105

062
107

TSHD1::
E101:

INSERT
204
INSERT
R3

1SKIP BRANCH IF “SFI” IS SET
+IF _NO, BRANCH
sSKIP BRANCH IF “SFI* IS SET
1MARK THE ERROR

ENDSEG
DEC
BNE

R2
10¢

:
sALL REGISTERS TESTED
+IF NO, BRANCH

ERARMRD

BEQ
DOV
DOCLN
TST
BNE
INC
c
BEQ
BR

CLRVEC

#4,R2
R3
#2.R1

CALL
BEQ
CALL
INC

(R1)
Ra

101,E101,EERA

30¢
LSLUN
QvpP
ExQvl
ITRONT
ITRDEF , ITRCNT
ExQvi
ITRAC1
&4

TST

BGNSRV

LOCATE

.NLIST

BEX

INC
ENDSRV
045
122

sGIVE TEST HEADER ADDRESS
+IF CARRY IS SET, EXIT TEST
tCLEAR ITERATION COUNTER
1SET UP INTERRUPT ROUTINE
tGET FIRST REGISTER ADDRESS

TSTEN1: EXIT

4733 030176

Exavi
ITRCNT
&4,8L0CATE, #PRIO7
'.izbégi

1GIVE TEST PARAMETER

1SET COUNTER FOR 4 REGISTERS
sCLEAR LOCATION FOR ERROR MARK
tGET REGISTER ADDRESS
3
3

002164

sCALL SELECT ROUTINE

MOV
CLR
ADD
BGNSEG
CLR
TST
TST

015240

SELECT

420

.ASCIZ
.ASCIZ
.LIST
.EVEN

s TEST REGISTER ADDRESS
1WAS THERE A TRAP?

;ERROR HANDLER

1HWAS THERE AN ERROR

sIF NO, DON'T DROP THE UNIT
;OROP THE UNIT UNDER TEST
tRUN THE CLEAN UP ROUTINE
1IS QUICK VERIFY PASS SELECTED?
+IF YES EXIT TEST
s ITERATION COUNTER + 1
1DEFAULT ITERATION EXECUTED
+IF YES EXIT TEST
+IF NO, TEST ITERATION
'

1 SERVICE ROUTINE LOCATE

s INCREMENTS R4 IF A TRAP TO 4
tHAS OCCURRED

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

| HARDWARE TESTS MACROTest.
V05.00 Wednesday 03-Oct-84 14:03 Page 52-1 TEST 1: Register NXM

4755 030306

ENDTST

o—

N8
IHARDUARE TESTS

MACRO V05.00

| TEST 2: Reset Test

Wednesday 03-Oct-84 14:03

SEQ 0104

Page 53

4757
4758

.SBTTL TEST 2: Reset Test
19884000008 0008080080588880880800888880088000088800000000840088088004888800444

4760

{

‘

4759

4761
4762
4763 030310

4764 030310

004737

4766 030316
4767 030320
4768 030322

030574
103523
005037

4765 030314

4769 030326

4770
4771 030330
4772 030334
4773 030340
4774 030342
4775 030344
4776 030346

4777 030350
4778 030352
4779 030354
4780 030360

4781 030362
4782 030364
4783 030372
4784 030376
4785 030400

4786 030410
4787 030412
4788 030420
4789 030426
4790 030432

4791 030434

4792 030444

000420

005001

012701
012702
005202
006201
103375
006302
006302
006302
012703
032777
004737
001404
052777
032777
004737
001004

002424
000006

4796 030460
4797 030466
4798 030472
4799 030500
4800 030504
4801 030506
4802 030516
4803 030520
4804 030524

016237
011537
023737
004737
001404

031016
002476
002474
015240

022703
001406
005203
062702
062705
000747

000004

005737
001007
005237
022737

002164

4805 030526
4806 030530
4807 030534
4808 030540
4809 030542
4810 030544
4811 030550
4812 030552

4813 030556

10$:
20§ :

TSHD2
B8CS
CLR

ExQve
ITRCNT

:GIVE TEST HEADER ADDRESS
+IF CARRY IS SET, EXIT TEST
sCLEAR ITERATION COUNTER

CONMSK ,R1
o1,.R1
@-1.R2
R2
R1
20¢%
R2

sGET MODULE TYPE (FOR LATER USE)
sCNMASK FOR S CHA. COUNTER
sMODULE IDENTIFICATION
Bvea
v
TM
sMULTYPLY BY 10 TO GET TABLE

MOVB
MOV
MOV
INC
ASR
B8CC
ASL

BGNSEG

152024

151776
151770

30¢:

404 :

002474

SO0$:

002476

70%:

000002
000002

002504
000002

sCALL SELECT ROUTINE

ASL
ASL
MOV

000004

013705
062702

SELECT

ITRAC2: CLR

000001
177777

000100
000100
015240

CALL

.WORD

002504

4793 030446
4794 030452
4795 030456

3
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES
10080000000040008088808080888080808888000088080008800008088888080888808880884
BGNTST

015006

000100
015240

Test 2 - Reset Test.

804:

002504

420

R2
R2
o4 ,R3

1GIVE TEST PARAMETER

;CLEAR TEMPORARY STORE

;OFFSET
oo
;START WITH INR REGISTER

BRESET
BIT
CALL
BEQ

€190, 8M00
INSERT
304

;00 A BUS RESET
+IS LED BIT CLEARED ?
;1SKIP BRANCH IF "SFI” IS SET
:BRANCH IF YES

CKLOOP
8IS
BIT
CALL
BNE

#100,8M00
€100, 8M0D
INSERT
404

:
;SWITCH ON THE MODULE LED
:+IS LED BIT NOW SET ?
1SKIP BRANCH IF "SFI" IS SET
1BRANCH IF YES

ERRSOFT 201,E201,EERG

ERRSOFT 202,E202,EERG

ENDSEG

MOV
ADD

BGNSEG

INR,RS
#6,R2

MOV
RSAV(R2),G00D
MOV
8RS,BAD
cHP
GOOD,BAD
CALL
INSERT
BEQ
704
ERRSOFT 203,E203,EERB
CKLOOP
cHpP
o4 ,R3
BEQ
80¢

INC
ADD
ADD
BR
ENDSEG
TST

BNE
INC
cHe

R3
02,.R2
#2,.RS
S04

Qve
ExQve
ITRCNT
#2,ITRCNT

;:ERROR HANDLER

;GET INR REGISTER ADDRESS
sPOINT TABLE OFFSET TO INR CONT.
tGET FIRST COMPARE CONTENTS FROM TABLE
;:GET FIRST REGISTER CONTENTS
;1CMP TABLE CONT.WITH REG. CONT.
:1SKIP BRANCH IF “SFI” IS SET
H
;:ERROR HANDLER
H
sALL REGISTER TESTED ?
;:BRANCH IF YES

;COUNTER FOR NEXT REGISTER
;LOAD NEXT TABLE ADDR.
s1LOAD NEXT REGISTER ADDR.
H
:
1 IS QUICK VERIFY PASS SELECTED?
1IF YES EXIT TEST
s ITERATION COUNTER + 1

:TWO ITERATION EXECUTED

B9
MARDMARE TESTS

MACRO v05.00

TEST 2: Reset Test

4814 030564
4815 030566

4816 030570
4817
4818 030574
4819 030617
4820 030704
4821 030751
4822

Wednesdey 03-Oct-84 14:03

001401
000657
123
105
105
105

062
108
108
107

000000

4823

4824

4825 031016
4826
4827
4828 031026

ExQve
ITRAC2

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

EXIT
LNLIST
TSHD2:: .ASCIZ
E201:
.ASCIZ
E202:
.ASCIZ
.zfi'l‘l
E203:

TS7
BEX
/wS2wARESET TEST.wN/
NOT CLEARED AFTER BUS RESET /
~LED BIT IN MOD
CAN'T BE SET/
/LED BIT IN MOD REGI
/
/REGISTER INCORRECT AFTER BUS RESET

1.REG., 2.REG., 3. . 8,

ExQve:

045
114
114
122

BEQ
B8R

SEQ 0105

Pege 53-1

RSAV:

.WORD
LIST
.EVEN
ENDTSY

0.
BEX

0. 60340 ;REG. MASKS FOR S CHA. COUNTER

SE0 0108

V0S.00 Wednesdey 03-Oct-84 14:03 Pege 54
HARDWARE TESTS MACROBit
Test.
TEST 3: Register R/W
4830

.SBTTL

TEST 3: Register R/W Bit Test.

‘.sx

...‘0............‘...O‘....................0‘.‘..0..00.“0...‘.00.0000...0‘0

4832
4833

:
:

4835

100000000000000000000000000000000000000000000000000000000000000000000000%000

4834

4836 031030
4837 031030
4838 031034

4839 071036
4840 031040
4841 031042
4842 031046
4843 031052
4844 031060
Proe
4846 031062
4847 031066
4848 031072
4849 031074
4850 031076
4851 031100
4852 031102
4853 031108
4854 031106
48SS 031112
4856 031120
4857 031126
4858 031134
4859 031140
4860 031144
4861 031146

004737
000420

4867 031164
4868 031170
4869 031172
4870 031176
4871 031204
4872 031206
g‘g 031212
4875
4376 031216
4877
4878
4879

4880

4881 031242

4882

031250

4883 031252
4884

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

BGNTST
CALL
LMORD

015006

031216
103002
005037 002504
005001
012701 000001
012702 177777
005202
006201
103375
006302

TSHOS
8cC
EXIT
18:
CLR
ITRACS: SETPRI
CLR
:
MOVE
MOV
MOV
108:
INC
ASR
8cC
ASL
006302
ASL
006302
ASL
012703 000001
MOV
O13737 002416 014052
MOV
012737 000455 005714 208:
MOV
016237 031242 014046
MOV
004737 013532
CALL
000004
coe
001407
8EQ
005203
INC

4862 031150 062702 000002
4863 031154 062737 000002 014052
% 031162 000756

4866

Test 3 - Register R/W Bit Test.

ADD
ADD
8R

SELECT
420

sCALL SELECT ROUTINE
s TEST SELECT MASK

s TEST MEADER mss
+IF CARRY 1§
T BRANCH
JEXIT TEST IF cnbvIS SET
sCLEAR ITERATION COUNTER
;OISABLE INTERRUPTS
;CLEAR TEMPORARY STORE
;GET MODWLE TYPE (FOR LATER USE)
{MASK FOR S CMA. COUNTER
;
sMODULE IDENTIFICATION
-~
i
JMALTYPLY BY 8. TO GET TABLE

14
TST
ITRONT
@PRIO7
R1
CONMSK,R1
o1,R1
e-1,R2
R2
R1
104
R2
R2
R2
#1,R3
MOD , REGADD
9301 . , ERARNBR
RWAK(R2) , MASK
REGTS1
#4,R3
304
R3S

JOFFSET
:
:START WITH FIRST REGISTER
;LOAD FIRST REGISTER ADDRESS
sLOAD FIRST ERROR
1GET R/W MASK FORM TABLE
sCALL REGISTER TEST
14 REGISTERS TESTED ?
1BRANCH IF YES
sCOUNTER FOR NEXT REGISTER
'LOAD NEXT TABLE AODR.
INEXT REGISTER ADDRESS
s TEST AGAIN WITH NEW PARAMETER

0Q2,R2
02 .REGADD
204

005737
001010
005237
023737
001402
000137

002164
308:
TST
awp
BNE
EXQV3
002504
INC
ITRONT
002506 002504
oe
ITROEF , ITRCNT
8EQ
Exavs
031052
P
ITRACS
EXQVS: EXIT TST
JMLIST BEX
04s
123
062 TSHD3:: .ASCIZ /#S28AR-W BIT TESTSN/
‘LIST BEX
.EVEN

000000
117400

000000

;

RWMAK:

.WORD

1.REG., 2.REG.., 3.
O,

;IS QUICK VERIFY PASS SELECTED?
+IF YES, EXIT TEST
s ITERATION COUNTER»
sOEFAULT ITERATION exzcutso
:IF YES, EXIT TEST
'IF NO, TEST ITERATION

.4,

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

LEVEN

ENDTST

- ——

—

——

ere——

D9
MACRO v05.00

UWednesdey 03-Oct-84 14:03

AM 9513 SUBREGISTER TESTS

SBTTL TEST 4

-- AM

SEQ 0107

Pege 55

AM 9513 SUBREGISTER TESTS

TI
m

TEST &4

9513 SUBREGISTER TESTS

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

T
I
I
m

004737

.DSABLE LS8
BGNTST

015006

103002

013701
005037

SELECT

sCALL SELECT ROUTINE

TSHD4
8cC

s TEST HMEADER MSS
sIF CARRY IS SET, DON’'T BRANCH

LWMORD

032120

005037
013701

CALL

18:

EXIT

CLR
MOV
JSR
ITRACA: MOV
CLR

002416

021470
002416
002470

420

TST

ITRONT
MOD,R1
PC,AMREST
MOD,R1
NOFLG

s TEST SELECT MASK

sEXIT TEST IF cm IS SET

sCLEAR ITERATION COUNTER
1GET FIRST REGISTER ADDRESS
sRESET THE MOCALE
1GET FIRST REGISTER ADDRESS
s70 DETECT IF A TRAP OCCURRED

s+ TEST LOADING CONTROL € STATUS REGISTER AND READING RESWLTS
012737
012737

012700
063700
010061
012761
12700
063700

000001

177400

MOV
MOV

0024 34

10¢:

MOV
ADD
MOV
MOV
817
CALL
geQ

010061
016102
033702
004737
001405

ERRMRD

208
4928 031432
4929 031436
4930 031442

4931 031446
4932 0314352

4933 031456

4934 031460
4935 031470
4936 031472
4937
4938 031474
4939 031476
4940 031302
4941 031306
4942 031512

30¢:
'

012700
063700
010061
016102

BGNSEG
MOV
[ )
MOV
MOV

CxLOOP

02,.8ITMSK
01 ,NUMBER

#8,R0
NUMBER, RO
RO, MREA(R])
MIT0G,MREB(R]L)
OCICTN,RO
NUMBER, RO
RO, MREA(R])
MREA(RL) ,R2
BITMSK ,R2
INSERT
204

401, .ERR104

18IT MASK
s COUNTER
sBEGINNING OF LOOP ON ERROR SEGMENT
sLOAD MASK Ffl MODE REGISTER AND
1ADD CHANNEL
NR
s SELECT MODE REGISTER
lSET 70 TOGGLE MODE

1GET TOUT COMMAND
1ADD CHANNEL NUMBER
sLOAD INTO MREA (CSR)
1GET RESWLT
sTEST THAT OUTX BIT IS CLEARED
s TEST IF ERROR MESSAGE IS REQUIRED
s 0K
$ERROR MANDLER

B NSEG
MoV
O#CISTN,RO
ACD
NUMBER,
MOV
RO,MREA(R] )
MOV
MREA(RL) .R2
BITMSK ,R2
8IT
CALL
INSERT
g€
30¢
402, ,ERR105
CxXLOOP
ENDSEG

+IF LOOP ON ERROR
sEND SEGMENT
sBEGINNING OF LOOP ON ERROR SEGMENT
1SET TOUT COMMAND
18IT NUIMBER (1-S)
sLOAD INTO MREA
1GET RESWLT
s TEST THAT OUTX BIT IS SET
s TEST IF ERROR MESSAGE IS REQUIRED
10K
1ERROR HANDL.ER
1IF LOOP ON ERROR
'
SEGMENT

BGNSEG
MOV
ADD
MOV
MOV

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

OCICTN,RO
NUMBER, RO
RO,MREA(RL)
MREA(RL1),R2

ES
HARDMARE TESTS

TEST4

MACRO v05.00

Wednesdey 03-Oct-84 14:03

MM 9513 SUBREGISTER TESTS

4943 031516
4944 031522
4945 031526
4946 031530
4947 031540
4948 031542

033702
004737
001405

4950 031544
4951 0313550
4952 031354
4953 031562

006337
005237
023727
003663

4349

454

002434
015240

BITMSK,R2

ERRHRD
CKLOOP

403, ,ERR104

tERROR HANDLER
+IF LOOP ON ERROR
1END SEGMENT

BITMSK
NUMBER
NUMBER,
95
10¢

1SHIFT MASK BIT
1GET NEXT CHA. NUMBER
sALL CHA. DONE ?

INSERT
404

ENDSEG

ASL
INC
cw
BLE

002434

1 TEST THAT OUT BIT IS CLEARED AGAIN

BIT

CALL
BEQ
40%:

SEQ 0108

Pege 55-1

l‘T’E‘ST IF ERROR MESSAGE IS REQUIRED
:

+ LOAD AND READ LOAD REGISTERS
012737
012737
012737

177410
000001

002450

S0¢:
604 :

013700
010061
013761
010061
016103

004737
001410

MOV
MOV
MOV
BGNSEG

MOV
AD
MOV
MOV
MOV
MOV
ow
CALL
BEQ

#8!10,ELEMNT
., GROUP
#2,COUNTR

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

ELEMNT,RO
GROUP ,RO
RO,MREA(R1)
COUNTR,MREB(R1)
RO,MREA(R1)
MREB(R1),R3
R3,COUNTR
T
704

1BUILD ADDRESS
1ADD CHA. NUMBER
1SELECT ADDRESS
sLOAD VALUE
s SELECT ADDRESS
sGET RESWLT
+IS IT THE SAME VALUE?
s&ESY IF ERROR MESSAGE IS REQUIRED
s

:+ ERROR DETECTED
4974 031654
4975 031664
4976 031666
4977 031672
4978
4979 031674
4980 031702
4981 031704
4982 031706

4983 031712

4984 031720
4985
4986
4987
4968 031722
4989 031730

4990 031736
4991
4992 031744
4993 031746

4994 031752
4995 031736
4996 031762
4997 031770
4998 031774
4999 032000

CALL
BR

INSERT
734

708:

ADD

9201 ,COUNTR

73%:

ENDSEG

004737
062737
103342

003237
023727
003727

ERRHRD 404, .ERR106
CxXLOOP

8CC

INC
P

BLE

GROUP

, 95
GROUP

S04

1ERROR HANDLER
+IF LOOP ON ERROR
1SKIP BRANCH IF “SFI” IS SET
flME NEXT CHANNEL
1G0 UNTIL OVERFLOW

1BUMP CHA.NUMBER

sHIGH LIMIT
1GO FOR NEXT CHANNEL

s+ LOAD AND READ HOLD REGISTERS
012737
012737
012737
013700
063700
010061
013761
010061
016103
020337

177420

002450

80¢:
904 :

MOV
MOV
MOV
BGNSEG

MOV
ADD
MOV
MOV
MOV
g

00!20 ELEMNT
W
oa.coum

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

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

1BUILD ADDRESS
1ADD CHANNEL NUMBER
1SELECT ADORESS
1LOAD VALUE
1SELECT ADDRESS
1GET RESULT
1IS IT THE SAME VALUE?

MREB(R1),R3
R3,COUNTR

F9
HARDWARE TESTS

' TEST &4

MACRO v05. 00

AM 9513 SUBREGISTER TESTS

S000 032004
S001 032010
5002
5003

004737
001410

S005 032012
S006 032022
S007 032024

S008 032030
S010 032032
S011 032040

CALL

015240

BEQ

SEQ 0109

Peage 55-2

INSERT

l(T’E‘ST IF ERROR MESSAGE IS REQUIRED

1004

: ERROR DETECTED
ERRMRD 40S, ,ERR107
'

S004

5009

Wednesdey 03-Oct-84 14:03

004737

CxLOOP

015240
1008:

062737
103342

1108:

005237
023727
003727

005737
001010
005237
023737
001402
000137

045

CALL
BR

INSERT
110¢

ADD

9201 ,COUNTR

904

1BUMP COUNTER
1GO UNTIL OVERFLOW

INC
cw
BLE

GROUP
GROUP, 05
80¢

1BUMP GROUP NUMBER
sHIGH LIMIT
1GO FOR NEXT GROUP

QvpP

lsgsWICK VERIFY PASS SELECTED

8CcC

ENDSEG

BNE
INC

EXS4
ITRCONT

ITRACA

cP
BEQ
EXS4:

123

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

ITRDEF , ITRCNT
EXS4

CLRVEC
EXIT

&4
TST

.NLIST
TSHD4 : : .ASCIZ

BEX

.LIST
.EVEN

1BUMP ITERATION COUNT
tDEFALT ITERATION COUNT
s TIME TO EXIT
100 THE TEST AGAIN
sRESET TRAP VECTOR

/9S28AAM 9513 SUBREGISTER TEST =N/

BEX

ENDTST

©£

69
MARDWARE TESTS
TEST 4

V05.00
MACRO

AM 9513 SUBREGISTER TESTS

S035S

5036

SEQ 0110

Page 56

Wednesdey 03-Oct-84 14:03

5037

1008008080000 0080800000080088000000000800000000280000040880480800000080000002

.SBTTL TEST S

INTERRUPT TEST

SN38

INTERRUPT TEST

S039

S040
5041

3
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES
1000000000800 0008800000800802800000000008808088000000000088080008006020880842

S042

S043 032164

SO44 032164
S04S 032170
S046 032172
SO047 032174

004737
000420
033474
103002

015006

005037

002504

SO0S1 032206

004737

021470

S0S58 032336
S0S9 032342
% 032346

005037
005037
005037

002510
002470
002472

S048 032176
S049 032202

S052 032212
S053 032240
S054 032246
S0SS 032274
S056 032322
S0S7 032330

BGNTST

CALL
.MORD
TSHDS
8CC
1$:

ITRACS: CLR
CLR
CLR

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

PC.AMREST

sRESET THE MODWLE

INTFLA
NXMFLG
S1v

s INIT INTERRUPT FLAG
:TO DETECT IF A TRAP OCCURRED
;sZERO COUNT

TS7
ITRCNT
VEC,#INTSR,#PRIO?7
@400
VEC,#INTSR,#RIO7
#4,08AD1IV,#PRIO7
SAVPRI
&0

sEXIT TEST IF CARRY IS SET
sCLEAR ITERATION COUNTER

$SETUP INTERRUPT SERVICE ROUTINE
1CATCH SUPERVISOR BUG
1SETUP TO CATCH TRAPS
3+ SAVE CURRENT PRIORITY IN R2
s+ AND DROP THE PRIORITY

012737
012737
012737

000400
000001
000001

S068 032374
Ssggz 032376

005077

150022

013777
012777
012702
063702
010277
012702
063702
010277
017737
022737
004737
001406
012702

002442
000042
177740
002442
147766
177750
002442
147752
147752
060340
015240

SO088 032510
SO89 032516
S090 032524
S091 032532

SELECTY
420

s TEST 'IR’ BITS WITHOUT MASTER ENABLE SET

S064 032352
S065 032360
% 032366

S087 032506

EXIY
CLR

SETVEC
CLRVEC
SETVEC
SETVEC
GETPRI
SETPRI

S071 032402
S072 032410
SO73 032416
S074 032422
SO7S 032426
S076 032432
SO77 032436
S078 032442
SO79 032446
SO080 032454
S081 032462
S082 032466
SO83 032470
S084 032474
S08S 032504

TEST S

002434
002474
002442

10%:

150010
150004

002476
002476

060340
204 :

013777
013777
012777
012702

002434
002442
000042
177740

147706
147674
147670

MOV
MOV
MOV
BGNSEG

#400,BITMSX
#1,G00D
€1 ,NUMBER

sMASK FOR 'EN’' BITS
tMASK FOR 'IR' BITS
tMASK FOR CHANNEL NUMBER
;1BEGINNING OF LOOP ON ERROR SEGMENT

CLR

SINR

MOV
MOV
MOV
ADOD
MOV
MOV
ADD
MOV
MOV
c
CALL
BEQ
MOV

NUMBER, 8CSR
M$T0G,8CCR
OCICTN,R2
’
R2,8CSR
OCISTN,R2
.
R2,8CSR
8INR,BAD
#60340,BA0
T
204
#60340,R2
SOI..ERRSOI

s SELECT MODE REGISTER AND CHANNEL
1LOAD TOGGLE MODE
1GET CLEAR TOUT COMMAND
sADD CHANNEL NUMBER
tOUTPUT TO DEFINATE STATE (CLEAR TOUT)
sGE? SET TOUT COMMAND
1ADD CHANNEL NUMBER
sSET TOUT (COURS IR SET)
1GET INTERRUPT REGISTER CONTENTS
s+IR BITS SHOULD BE CLEARED
;TEST IF ERROR MESSAGE IS REQUIRED
1 0K
:SET UP FOR ERROR MESSAGES
;1ERROR MANDLER
t:END SEGMENT

BITMSK,SINR
NUMBER, 8CSR
M4$70G,8CCR
#CICTN,R2

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

ENDSEG
BGNSEG

MOV
MOV
MOV
MOV

sDISABLE ENABLE BITS

HY
--

INTERRUPT TEST

002442
147652
177750
002442
147636
000037

5092 032536
S093 032542
S094 032546
S095 032552
S096 032556
S097 032562
S098 032570
S099 032576
S$100 032602
5101 032606
5102 032612
5103 032616
5104 032620
5105 032630

063702
010277
012702
063702
010277
012777
017737
013702
052702
020237
004737

5108 032634
S109 032642
5110 032650
S111 032656

043777
017737

002474
147556

004737
001406
012702

015240

5106
5107 032632

S112 032662
5113 032664
S114 032670
5115 032700
5116
5117 032702
5118 032706
5119 032712
5120 032716
5121 032724
5122 032726
5123

001404

147630

002474
060340
002476
015240

147634
002476

30¢:

147562
002476
002476

005237

037,

8INR,BAD
GOO0D,
060340,
R2
R2,BAD
INSERT
304
502, .,ERRS01

1SET TOUT (COUSE IR SET)
sCLEAR EN BIT ONMLY (LEAVE IR BITS)
1GET INTERRUPT REGISTER CONTENTS
1SET UP FOR ERROR MESSAGES
1 SE
sIR BITS SHOULD BE SET
s TEST IF ERROR MESSAGE IS REQUIRED
s OK

sim HANDLER

, SINR
GOOD
8INR,BAD
#60340,8A0
INSERT

sCLEAR IR BIT
1GET INR CONTENTS
:+IR BIT SOULD BE CLEARED
sLE(SY IF ERROR MESSAGE JS REQUIRED

503, .ERRS02

1SET UP FOR ERRO MESSAGES
;ERROR HANDLER

sSHIFT 'EN‘ MASK BIT

002434
002474

sSHIFT IR’ MASK BIT

023727

000137

1ADD CHANNEL NUSER
sOUTPUT TO DEFINATE STATE (CLEAR TOUT)
1GET SET TOUT COMMAND
. ADD CHANNEL NUMBER

NUMBER
, R2

R2,8CSR
OCHSTN,R2
NUMBER,R2
R2,8CSR

404

40%:

006337

SEQ 0111

Pege 56-1

Wednesdey 03-Oct-84 14:03

253 gyess

" TEST S

MACRO V05.00

733338338

MARDWARE TESTS

s INCREMENT CHA. BIT NUMBER
s&L S CHANNELS DONE
?
NO
IF
H
1BRANC
s YES

S04
10¢

032374

:'OINTEWTS SHOULD HAVE BEEN GENERATED UP TO TH1S POINT
005737
004737
001404

S0$:

002510
015240

TST

CALL
BEQ
ERRHRD

INTFLA
INSERT
604
504, ,ERRS03

s TEST INTERRUPT COUNT
1 TEST IF ERROR MESSAGE IS REQUIRED
s 0K
;1ERROR HANDLER

s+ TEST THAT INTERRUFTS CAN BE GENERATED
[

5135 032754
5136 032756
5137 032764
5138 032766
5139 032772
5140 032776
5141 033000
S142
5143 033010
5144 033012
5145 033020
5146 033026
5147
5148 033034

012777
000240
005737
004737

001404

012737
012737
012737

117400
002510
015240

000001

INTFLA
INSERT

186eSET MASTER ENABLE AND INT ENBeses
1 VERY SHORT WAIT
i1NO INTERRUPT SHOULD APEARE
uYEST IF ERROR MESSAGE IS REQUIRED

505, ,ERRSO3

aim HANDLER

€117400,8INR

147440

704

002434
002474
002442

704 :

#400,BITMSK

#1,G000
01 ,NUMBER

10K

tMASK FOR 'EN' BITS
tMASK FOR 'IR’' BITS
tMASK FOR CHANNEL NUMBER

1BEGINNING OF LOOP ON ERROR SEGMENT

2004:

| TESTS

INTERRUPT TEST

5149

5150 033036
S151 033042

S157 033102
5158 033106
S159 033112
5160 033116
S161 033122
S162 033126
5163
S164 033132
5165 033140
5166 033144
5167 033146
5168 033152
5169 033154
5170 033160

S171 033164
S172 033170
5173 033174
5174 033176
5175 033206
5176 033210
5177 033214
S178 033216
5179 033226
5180 033230

5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192

MACRO V0S5.00

033234
033240
033244

033260
033264

012701

000340

005037
005037
052777
013777
012777
012702
063702
010277
012702
063702
010277

002472
002510
100000
002442
000042
177740
002442

023727
004737
001431
005737

002510
015240

001021

#PRIO7,R1
#PRIO7

8Iv
INTFLA
#100000, 8INR
NUMBER, 8CSR
470G, 8CCR
OCSICTN,R2
NUMBER, R2

147336
147324
147320

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

147302
177750

002442
147266

110%:

002472

162701

020127

000100
015240

004737
000444

015240

004737
001356

062701
020137
004737
001430
000005
010137
013737
000005

100¢:
90¢:

015240

002476
002430

002474

033316

—————————

120¢:
5196 033330
5197 033336
5198 033344
5199 033352
5200 033356
5201 033360
5202
5203 033370
5204 033374
5205 033400

017737
012737
033737
004737
001404

006337
005237
023727

147070
100000

002474
015240

002434
002442
002442

002476
002474
002476

INTFLA,
01
INSERT

sLOAD R1 WITH PRIORITY NUMBER
1DISABLE INTERRUPIS AT THIS POINT
3

MOOE

1GET CLEAR TOUT COMMAND
3 ADD CHANNEL MUCER
sOUTPUT TO DEFINATE STATE (CLEAR TOUT)
1GET SET TOUT COMMAND
1ADD CHANNEL NUMBER
$SET TOUT (GENERATE INTERRUPT)
1DID INTERRUPT OCCUR
s TEST IF ERROR MESSAGE IS REQUIRED
3 OK
s1DID AN INTERRUPT OCCUR?
1YES, AT ANOTHER ADDRESS
sDECREMENT PRIORITY
1SET PRIORITY
+IS PRIORITY OVER 2 ?
1 TEST IF ERROR MESSAGE IS REQUIRED

s TEST IF ERROR MESSAGE IS REQUIRED
+JOIN COMMON CODE
tERROR HANDLER
3

sCORRECT PRI FOR CMP
sPRIORITY CORRECT ?
s TEST IF ERROR MESSAGE IS REQUIRED
1BRANCH IF YES
1SET UP DATA FOR ERROR MESSAGES
$ece
$ece

:SET UP DATA FOR ERROR REPORT
$eve

sERROR HANDLER

ENDSEG

ERRHRD

8INR,BAD
2100000, G000
G000 ,BAD
INSER
1224
509, .ERR507

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

ASL

BITMSK

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

8IT
CALL

122¢:

SEQ 0112

Page 56-2

Wednesdey 03-Oct-84 14:03

fisgRgRaeany
R Eyess 4ERalpy 3p3ERasnEns

HARDMARE TESTS

NUMBER, #5

- —
e
e

——

J9
TESTS
| HARDMARE

| TEST S

INTERRUPT TEST

5206 033406
5207 033410
5208

5209 033414
5210 033420
S211 033422
S212 033426
S213 033434
S214 033436
5215

003002
000137

033034

005737

002164

001010
005237

023737
001402
000137

S216 033442
5217 033446
5218 033454
5219 033462
5220 033470

005077

5223 033474
5224
5225

045

5221
Se22

5226
5227 033524

———

MACRO V05.00

Wednesday 03-Oct-84 14:03

1308:

BGT

1304
2004

sIF YES TERMINATE TEST
sNO

TST

QvP

+IS QUICK VERIFY PASS SELECTED

ITRCNT

;BUMP ITERATION COUNT

002504
002506

EXSS

032336

EXSS:

CLR
SETPRI
CLRVEC

CLRVEC
EXIT

123

EXSS

ITRDEF , ITRCNT

146756

062

SEQ 0113

Page 56-3

NLIST
TSHDS::.ASCIZ
LIST
.EVEN
ENDTST

s YES

sDEFAULT ITERATION COUNT
;TIME TO EXIT

ITRACS

100 THE TEST AGAIN

SIMR
SAVPR]
84
\ngg

sDISABLE INTERRUPTS
3+ RESTORE THE PRIORITY
sRESET TRAP VECTOR
sDEVICE INTERRUPT ADDRESS

BEX
6:§MINTEWT TEST #N/

IK9
HARDMARE TESTS MACRO V05.00
INTERRUPT TEST
-S
| TEST

Wednesday 03-0Oct-84 14:03

5229
5230
Se3l
Se3e
5233
5234
5235
5236
5237

S238 033526
5239 033526
S240 033532
S241 033534
S242 033536
S243 033540
S244 033544

5245
S246 033550
S247 033554
5248 033560
5249 033560
3250
5251
32352

5253 033566
5254 033572
3255 033576
3256 033602
5257 033610
5258 033614
3239 033620
5260 033624
5261 033632

5262 033636
5263 033644

5264
3265
3266
3267 033646
5268 033654
3269 033662
35270 033664
5271 033666
5272 033670
5273
5274
3275
5276 033676
5277 033702

5278 033710
5279 033714
5280 033720
5281 033724
5282 033730
3283 033734
5284 033742
5285

SEQ 0114

Page 57

.SBTTL

TEST 6

REFERENCE FREQUENCY TEST

TEST 6

REFERENCE FREQUENCY TEST

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

H 2208080880800 000 2002200088008 00000 0000000080080 0008080000088000008008082

;‘.‘..O‘..“‘.‘.‘..‘.“““.‘.."‘.“.‘.“‘.‘."“....“‘....“...0....‘

004737
000420
034076
103002

015006

.DSABLE LSB
BGNTST
CALL
SELECT
.MORD
420

sCALL SELECT ROUTINE
:TEST SELECT MASK

BCC
EXIT

:IF CARRY IS SET, DON'T BRANCH
sEXIT TEST IF CARRY IS SET

TSHD6

18:

CLR
MOV
Pl JSR
" MoV

005037
013701
004737

012737

14
TST

ITRCNT
MOD,R1
PC,AMREST
#1,NMBER

s TEST HEADER ADORESS

;CLEAR ITERATION COUNTER
:GET FIRST REGISTER ADDRESS
;RESET THE MODULE
s CHANNEL NUMBER

+SET UP ALL COUNTERS FOR S MMZ AND LOAD VALUE 10000

108:

012700
063700
010061
012761
012700

063700

010061

012761
005237
023727
003750

012761
012761
000240

000240
000240
012761

012704
012737
012700
063700
010061
016124
005237
023727
003762

MOV
ADD
MOV
MOV
MOV
ADD
MOV
MOV
INC
cP
BLE

#8,RO
NUMBER, RO
RO, MREACR1)
0005440, MREB(R1)
#8110,R0
NUMBER, RO
RO, MREACR1)
#10000. ,MREB(R1)
NUMBER
NUMBER, 05
104

OCSARM! 37, MREACR] )

: LOAD AND ARM ALL COUNTERS
.
MOV
OCSLOA! 37, MREACR] )

177537
177477

v'g
177637

002442

;SELECT MODE aesxsrsa
sADD IN CHANNEL
NR
+SELECT MODE REGISTER
YSELECT SMHZ
+SELECT LOAD REGISTER
1SELECT CHANNEL
s ADDRESS
sLOAD VALUE
JBUMP CHANNEL NUMBER
JALL CHANNELS?
sMORE TO DO

sSTART ALL COUNTER

:START ALL COUNTER
;LET COUNTERS RUN

MOV

#C$DAS ! 37 ,MREACR])

1SAVE COUNTERS

MOV
MOV
ADD
MOV
MOV
INC
cHP
BLE

01, NMBER
#8120,R0
NUMBER, RO
RO, MREACR1)
MREB(R1),(R4)+
NUMBER
NUMBER, 05
204

if A,
R
7 MOLD REGISTER
IANNEL NUMBER
ZLECT COUNTER
1GET COUNTER VALUE
1BUMP CHANNEL NUMBER
1ALL CHANNELS?
sMORE TO DO

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

03-Oct-84 14:03 Page 57-1
V05.00NCYWednesdey
HARDMARE TESTS MACRO
TEST
NCE FREQUE
TEST 6

SEQ 0

REFERE

5286

s COMPUTE MIN AND MAX VALUES OF ALL COUNTERS

S287

5288 033744
5289 033750
5290 033754
5291 033760
5292 033762
5293 033764
5294 033766
5295 033770

012702
012703
012700
005004
020012
003401
011200
020412

5296 033772
5297 033774
5298 033776
5299 034000
5300 034002

532
5304 034004
5305 034010
5306 034012
5307 034014
5308 034016
5309 034020

5310 034022
5311 034026
5312 034032
5313 034034
5314 034044
5315 034050
5316 034052
5317 034056
5318 034064
3319 034066

002452
000005
023420

308:
408:

003001
011204
005722
005303
001367

s0s:

5323
5325
5326

5328 034140
5329

TST
DEC
BNE

OCNTVAL,R2
#5,R3
#10000.,RO
R4
RO,(R2)
404
(R2),RO
R4,(R2)
S04
(R2).R4
(R2)+
RS
304

:
sLOAD LOOP COUNT
sMIN
s MAX
sLOAD NEW MINIMUM?
sNO
sLOAD NEW MINIMUM
sNEW MAXIMUM?

iNO
sNEW MAXIMUM
1BUMP POINTER
1LOOP 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

000002
015240
002164
002504
002506

706:
002504

033560
EXS6:

5322

5324 034076

MOV
MOV
MOV
CLR
(W
BLE
MOV
CW
8GT
MOV

5321 034072

5327

045

123

062

C
BGE
TST
BLE
MOV
S8
P
CALL
BLE
ERRMRD
TST
BNE
INC
C®
BEQ
P

R4, 910000.
704
RO
704
R4.R2

s0ID COUNTER MOVE?
s STRANGE VALUES
sROUGH TEST
:
1GET DIFFERENCE (MAX-MIN)

R2.82
INSERT
70¢
601, ,ERR130
QP
EXS6
ITRONT
ITRDEF,ITRCNT
EXS6
ITRACG

sALLOMABLE DIFFERENCE
1SKIP BRANCH IF “SFI* IS SET
1BRANCH IF YES (LESS THEN 3)

EXIT

TST

RO.R2

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

NLIST BEX
/®WS2#AREFERENCE FREQUENCY TEST sN/
.LIST BEX
"EVEN

TSHD6::.ASCIZ

ENDTST

115

M9
| HARDMARE TESTS MACRO v05.00 Wednesde 03-Oct-84 14:03
-SIGNAL GENERATION ON COUNTER INPUT
| TESY 7
5331
5332
5333
5334
5335
5336
5337
5338
5339

S340 034142
S341 034142
5342 034146
S343 034150
S344 034152
S345 034154
5346 034160
5347
S348 034164
5349 034170
S350 034174
S351 034174
5352 034202
5353 034210
5354 034214
5355

.SBTTL TEST 7

TEST 7

SIGHNAL GENERATION ON COUNTER INPUT

LERALINBEEAERBL LA RGO NBEREC

'
}

SEQ 0116

Peage 58

NSRRI BLEHB SRRV AFERL60BEL4020682 048044

SIGNAL GENERATION ON COUNTER INPUT

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

(RS0 ERABEBHRREERERARAVCRABBABEELRLRHVBCABLLOELAUVCRELOSECHVBER
IR ANBRCEEDS

004737
000420
034576
103002

.DSABLE LSB
BGNTST

CALL

015006

1$:

013701
004737
002442

012737
012737
012700
063700
010061
012761

002434

ITRAC?:

10¢:

8CC
EXIT

14
TST

ITRCNT

s TEST SELECT MASK
s TEST HEADER ADDRESS
+IF CARRY IS SET, DON'T BRANCH
$EXIT TEST IF CARRY IS SET
tCLEAR ITERATION COUNTER

MOV
JSR

MOD,R1
PC,AMREST

1GET FIRST REGISTER ADDRESS
sRESET THE MODWLE

MOV
MOV

#1 ,NUMBER
@1 ,BITMSK

1 CHANNEL NUMBER

ADD
MOV
MOV
MOV
ADD
MOV
CLR
MOV
ADD
MOV

NUMBER
, RO
RO,MREA(RL)
#000050,MREB(R1)
#8!10,R0
NUMBER,
RO
RO,MREA(R]1)
MREB(R1)
#CSLOA,RO
BITMSK,RO
RO, PflEA(Rl)

5371 034312
5372 034316
5373 034324
5374 034330
5375 034332
3376 034336

010061
012761

000002
005440
000002
000003

5386 034410
5387 034414

010061
012761
012700
063700
010061
012700
063700
063700
010061

177420
177400

177410

177500
002436

000002

177440
002436
002434
000002

002436

CLR

MOV

BGNSEG

002436

204 :

sCALL SELECT ROUTINE

420

TSHD?7

005037

SELECT

LWORD

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

BITMSK,BITMS]1
BITMS1
NUMBER,R2
R
204
#5,R2
#8:20,BITMS]1
#8,.R0
R2,RO
RO,MREA(RL)
#5440 ,MREB(R1)
#8!10,R0
R2,RO
RO,MREA(RL)
#3,MREB(R1)
OCSILOA,RO
BITMS1,RO
RO,MREA(R1)
OCS$ARM,RO
BITMS1,.RO
BITMSK,RO
RO, PREA(RI)

+SELECT MODE REGISTER
tADD IN CHANNEL NR

s SELECT MODE REGISTER

s SELECT INTERNAL LOOP
1SELECT LOAD REGISTER
1 SELECT CHANNEL
s ADDRESS

sINI'l COUNTER

sLOAD
;ADD IN CHANNEL NR

aSTMTS CNOUNTER

sBEGINNING OF LOOP ON ERROR SEGMENT
1BUILD SECOND BIT MASK

;COMPUTE TCN-1

1SELECT MODE REGISTER

sADD IN CHANNEL NR

1SELECT MODE REGISTER
;1SELECT SMMZ FREQUENCY
;LOAD AND ARM TAK COUNTER

aCHAML NUMBER

s ADDRESS
:SETUP COUNTER

1 START COUNTER
+ADD IN CHANNEL NR
1 START COUNTER

N9
; HARDWARE TESTS
' TEST 7

MACRO v05.00

Wednesda

03-0ct-84 14:03

SIGNAL GENERATION ON COUNTER INPUT

5386 034420
5389 034422
S390 034424
5391 034426
5392 034430
5393 034432
5394 034436
S395 034442
S396 034446
S397 034452
S398 034456
5399

S400 034462
5401 034466
5402 034472
S403 034476
5404 034502

S405 034506
5406 034510
S407 034520
5408 034522
5409 034524
5410 034530
5411 034534
5412 034542
5413
5414 034544
5415 034550
5416 034552
5417 034556
5418 034564
5419 034566
5420
5421 034572
5422
5423
5424 034576
5425
5426
5427
5428 034652
5429

000240
000240
000240
000240
000240
012700

063700
010061
012700
063700

010061

012700
063700
010061
016103
004737
001005

;LET COUNTER GO
177700
000002
177600
002434

177420
002442

#C$DAC,RO
BITMS1,RO
RO,MREA(R1)
@CS$DAS ,RO
BITMSK,RO
RO,MREA(R1)

:DISARM COUNTER

#8:20,R0
NUMBER,
RO
RO,MREA(R1)

;HOLD REGISTER

MREB(R1),R3

INSERT
114
701, ,ERR115

015240

006337
005237
023727
003622

002434

005737
001010
005237
023737
001402
000137

002164

045

SEQ 0117

Page 58-1

002442

114:

NUMBER, 05
10¢

000005

QvP
EXS7
ITRCNY
ITROEF , ITRCNT
EXS7
ITRAC?

034174

123

BITMSK

NUMBER

062

s CHANNEL NUMBER
:DISARM COUNTER
s CHANNEL NUMBER

sCOUNTER -> HOLD REGISTER
sTEST IF ERROR MESSAGE IS REQUIRED
:0ID CLOCK TICK
;ERROR HANDLER
:IF LOOP ON ERROR
sEND SEGMENT
1SHIFT TO NEXT BIT
1BUMP CHANNEL
sALL CHANNELS?
:MORE TO DO
'$§sm°‘ VERIFY PASS SELECTED
3

;BUMP ITERATION COUNT
;DEFAULT ITERATION COUNT
s TIME TO EXIT
;00 THE TEST AGAIN

EXS7:

TST

TSHD7::.

BEX
;EiMSIGNAL GENERATION ON COUNTER INPUT N/

B10
MARDMARE TESTS MACRO V05.00 Wedneedey 03-Oct-84 14:03
TEST 8 -- EXTERNAL LOOPBACX, NOT ISOLATED

sas)
“u
‘$433
434
5435

JSBTTL TEST 8 -- EXTERNAL LOOPBACK, NOT ISOLATED 0288280000800 000080R G
:
TEST 8 -- EXTERNAL LOOPBACK, NOT ISOLATED
3
:
FOR TEST DESCRIPTION SEE 6.0 TES! S.**TAIES
] 2080008209000 200280084 220000048002 ¢0R00RRCER002 2R R0 0020

““

(080 0 08

Sa37

cm——
<—————
—
et
e

Se42 034662
Se443 034664
Saea 034666
S44S 034672
Se47 034676
S48 034702
S449 034706
S4SO 034714
SaS1 034722

004737
000420

035270
103002
005037
013701
004737
012761
012761

S475 035056
54172 035060
$478 035062
S479 035066
s‘sczg 035072
S482 035076
S483 035102
S484 035106
S485 035112
S486 035116
S487 035122

002504
18:
002416
021470
177427 000002
061000 000004

000240

000240
000240
012700
063700
010061
012700
063700
010061
016105
004737
001026

BGNTST
CALL
LMORD

015006

S4S2 034722 012737 000001
S4S3 034730 012737 000001
S4S4 034736 012757 000400
S4SS 034744 012737 000012
S456 034752
S4S7 034754 012700 177400
5458 034760
002442
S459 034764 010061 000002
S460 034770 012700 000010
S461 034774 063700
S462 035000 010061 000004
Se63 035008 012700 177410
S464 035010 063700 002642
S465 035014 010061 000002
S466 035020 005061 000004
S467 035024 012700 177500
S468 035030 063700 002434
$469 035034 010061 000002
S470 035040 012700 177440
S471 035044 063700 002434
;g 035050 010061 000002
S4784 035054

LRARRBERG NN GEBLGDLIDEADOERIVNORI0LRILRVEONECODIONAORAGRBOLBEB2
00

.OSABLE LSB

Sa38

S439 034654
S440 034654
S44] 034660

SEQ 0118

Pege 59

ITRACS:

002442
002434
002464 108:
002466
208:

SELECT
420

JCALL SELECT ROUTINE
s TEST SELECT MASK

TSHD8
8cc
EXIT
LR
MoV
JSR
MOV
MoV

1
TSt
ITRONT
MOD,R1
PC, NREST
08127, MREACR])
061000, MREB(R1 )

s TEST MEADER ADDRESS
IS SET, DON'T BRANCH
sEXIT TEST IF CARRY IS SET
;CLEAR ITERATION COUNTER
sGET FIRST REGISTER ADORESS
JRESET THE MODWLE
sSELECT FREQ OUTPUT CNTRL REG
s SELECT
LOOPBACK FREGUENCY

MoV
MOV
MOV
MOV
OGNSEG
MOV
ADD
MoV
MOV
ADD
oY
MOV
ADD
MOV
aRr
MOV
ADD
MOV
MOV
ADD
MOV

\
01.8ITHSK
. SRC
010. .LOOP
8,70
RO
RO, MREA(R1 )
010,R0
SRC , RO
RO, MREB(R1 )
08:10,R0
NUBER, RO
RO, MREACR])
MREB(R])
OCHLOA, RO
8ITHSXK.RO
RO, MREA(R])
oC AR,
RO
BITMSX.RO
RO, MREA(R])

;CHMOEL MPBER
INIT SOURCE
sSETUP LOOP COUNT
;0EGINING
OF LOOP ON ERROR SEGMENT
+SELECT MODE REGIS
+ADD IN CHAMEL MR
+SELECT MODE REGISTER
sCOUNT P
sSOURCE OR GATE
s SELECT
sSELECT LOAD REGISTER
s
SELECT
;
JINIT COUNTER
sLOAD
;ADD IN CHAMEL
MR
1STARTS COUNTER
CHANNEL NR
1STARTS COUNTER

NOP

177600
002434
000002
177420
002442
000002
000004

015240

NOP
NOP
MOV
ADD
MOV
MOV
ADD
MOV
MOV
CALL
BNE

JLET COUNTER GO
0C$DAS , RO
BITMSK,
RO, MREACR1)
08120,R0
RO
RO.MREACR1)
MREB(R1),R3S
INSERT
S04

;DISARM COUNTER
1CHANNEL NUMBER

JHOLD REGISTER
JCOUNTER -> MOLD REGISTER
;TEST IF ERROR MESSAGE IS REQUIRED

s0ID CLOCK TICK

C10
MARDMARE TESTS MACRO v05.00 Wednesday 03-0Oct-84 14:03
EXTERNAL LOOPBACK, NOT ISOLATED
TEST 8
--

S488 035124
S489 035130
S490 035132
S491 035136
S492 035142
5493 035146
S494 035150
5495 035160
S496 035162
S497 0335166
S498 033176

013702
000302
042702
020227
004737
003005
000402
162702

002464

5499 035200
5500

1SOURCE OR GATE

SRC,R2

177740
000005
015240

000005

SEQ 0119

Page 59-1

#177740,R2

R2,05
INSERT
304
801, .,ERR116

30¢:
404:

suB
ERRHRD

S04 :

ENDSEG

404

5,R2
802, .ER116A

1GET TO LOW ORDER
1CLEAR OTHER BITS
s SOURCE
1 TEST IF ERROR MESSAGE IS REQUIRED
sNO, GATE
tERROR MANDLER

+IF LOOP ON ERROR
1END SEGMENT

SS01 035202
SS02 035210
SS03 035214

062737
005337
001256

000400
002466

0400, SRC

LOOP
204

1BUMP TO NEXT SOURCE
sADDJUST LOOP COUNT
sLOOP FOR NEXT SOURCE

SSO5 035216
SS06 033222
SS07 035226
5508 0335234

006337
005237
023727
003640

002434
002442
002442

BITMSK
NUMBER
NUMBER,
05
10¢

sSMIFT TO NEXT BIT
10UMP CHANNEL NUMBER
sALL CHANNELS?
sMORE 70 DO

S510 033236
5311 035242

005737
001010

002164

Qw
EXS8
ITRONTY

.;gsmox VERIFY PASS SELECTED

5314 033256

001402

S512 035244
S513 035250
SS1S 035260

53516
5517 035264
5518
3519

5520 035270

3521
5322
3523
5524 035344

005237
023737

002504
002506

000137

034722

ITROEF , ITRCNT
EXS8
ITRACS

1BUMP ITERATION COUNT
sDEFALT ITERATION COUNT
s TIME 70 EXIT
100 THE TEST AGAIN

045

123

BEX
g?EXYM LOOPBACK TEST, NOT ISOLATEDsN/

N1N

——

O C—

————

—

D10
. HARDMARE TESTS

'TEST 9

MACRO v05.00

EXTERNAL LOOPBACK,

ISOLATE

5327
5528
5529
5530
S531
5532
5333
5534

03-0Oct-84 14:03

SEQ 0120

Peage 60

.SBTTL TEST 9

EXTERNAL LOOPBACK, ISOLATED

] 008000000000 00000000000000000000000000000000000000004000000000000800000
)

TEST 9

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

H 0000000000000 0202000200000020000000000000000000000000000000000000000000000

.DSABLE LS8
BGNTST
CALL
SELECT
LMORD
420

015006

5336
5537

TSHD9
8CcC
EXIT
18:
CLR
MOV
JSR
0V
ol MOV
H
MoV
MOV
MOV

002416

021470
177427

LRI EEE
LT
i

5339
5540 035360
5541 035364
S542
5543 035370
S544 033374
5545 033400
S546 033406
S547 033414
5548 035414

22322:

108:

MOV
ADD
MOV
MOV
MOV
ADD
MOV
MOV

#8.R0
NUMBER, RO
RO, MREACR1 )
05442, MREB(R1)
08110,R0
NUHESR , RO
RO, MREACR1)
025. ,MREB(R1)

;GET +0DE ussxsm MASK
;ADD IN CHANNEL
NR
sSELECT MODE REGISTER
sLOAD TOGGLE AT S MMZ .,
sGET LOAD REGISTER MASK
sADD IN CHANNEL NR
sSELECT LOAD REGISTER
sLOAD COUNT VALUE

s SELECT SECOND COUNTER
002436

133

~§ =~

s TEST MEADER ADORESS
+IF CARRY IS SET, DON‘T BRANCH
JEXIT TEST IF CARRY IS SET
sCLEAR ITERATION COUNTER
GET FIRST REGISTER ADORESS
JRESET THE MOOWLE
sSELECT FREQ OUTPUT CNTRL REG
sSELECT SMM¥ LOOPBACK FREQ. FOUT=OFF
;CHANMEL MUBER (FOR INC)
sCHANNEL NUPBER (FOR SMIFT)
sINIT SOURCE

+SETUP FIRST COUTER FOR 100 KMZ GENERATION ON COUNTER OUTPUT.

208:

306:

(-3}

g‘” s

1
TsT
ITRONT
MOD, R1
PC, MREST
08127 ,MREACR])
#70000,MREB(R1)
01.NPBER
01.8ITMSK
0400, SRC

sCALL SELECT ROUTINE
s TEST SELECT MASK

177410

MY
ASL

BITMSK,BITMS1
8ITMS)

sNEXT COUNTER
sNEXT COUNTER

e
BLE
MOV
MOV

R2,05
204
01.R2
01.81THS1
*2,Re
#8,RO
R2.RO
RO.MREACR])
#50,RO
SRC, RO
RO, MREB(R1)
08110, R0
R2,RO

1 TEST FOR WRAP AROUND (ALL CNT DONE?)
1BRANCH
IF NOT
ISTART OVER WITH FIRST COUNTER
it
;00 TWICE
n:cnmorworoumsemv
1GET MODE n:cxsm
1ADC IN CHANNEL
NR
1SELECT MODE REGISTER
1GET COUNT UP MASK
1SOURCE OR GATE
sSELECT COUNT WP
1GET LOAD REGISTER MASK
1ADD IN CHMA. NUMBER

MOV

BGNSEG

MOV
ADD
MOV
MOV
ADD
MOV
MOV
ADD

E10
' HARDMARE TESTS

TEST 9

MACRO v05.00

-- EXTERNAL LOOPBACK,

ISOLATE

03-Oct-84 14:03

SEQ 0121

Peage 60-1

MOV
CLR
MOV
ADD
MOV

RO,MREA(RL)
MREB(R1)
OCSILOA,RO
8ITMS1,RO
RO ,MREACRL)

CHANNEL NR
i
tREADY TO START SECOND COUNTER

MOV
ADO
MOV

OCILOA, RO
BITMSK,RO
RO, 'flEA(Rl)

1GET LOAD MASK
sADD IN CHANNEL NR
tREADY TO START FIRST COUNTER

tENABLE BOTH COUNTER FOR COUNTING

40%:

MOV
ADO
ADD
MOV

OCIARM RO
BITMSK,RO
BITMS1,RO
RO, “l(fll)

1GET nmcm

MOV
NOP

#100. ,RO

1LET COUNTER RUN AT 100 K2

DEC
BNE

RO
404

sSHORT LOOP COUNT

OCS$DAS RO
BITMSK,RO
BITMS1,RO
RO, M(Rl)

1GET DISARM cm

Lo
NOP

1ADD IN COUNTER
NR

WINSECOOCGNTENM
iSTMT B0TH COUNTER (LOAD ARM)

sLET COUNTER GO

:STOP COUNTERS

MOV

012700

ADD
ADD
MOV

010061

[

IN COUNTER
NR

sADD IN SECOND COUNTER NUMBER
sSTQ BOTH COUNTER (DISARM)

sCHECK SECOND COUNTER CONTENTS
012700
060200
010061
016103
004737
001024
013703
000303
042703
020327
003006

MOV
ADD
MOV
MOV
CALL
BNE
MOV
SWAB
8I1C

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

8GT

S04

000406

ERRMRD
CxXLOOP

162703

604 :
062737
001246

006337
005237

002434
002442

ENDSEG

R3,05

901, .ER1168

604
902, .ER116C

sHOLD REGISTER

sADD CNT NUMBER

1COUNTER -> HOLD REGISTER

1GET_COUNTER CONTENTS
s TEST IF ERROR MESSAGE IS REQUIRED
10ID CLOCK TICK
1SOURCE OR GATE
tGET TO LOW ORDER
tCLEAR OTHER BITS
L SOURCE

iNO, GATE
1ERROR HANDLER FOR SORCE

lIF LOOP ON ERROR
]
'

1ERROR HANDLER FOR GATE

tEND SEGMENT

ADD
DEC
BNE

#400, SRC
B4
30¢

1BUMP TO NEXT SOURCE
1ADDJWUST LOOP COUNT
1LOOP FOR NEXT SOURCE

ASL

BITMSK

tSHIFT TO NEXT COUNTER
1BUMP CHANNEL COUNTER

INC

NUMBER

F10
HARDWARE TESTS

TEST 9

MACRO V05.00

EXTERNAL LOOPBACK, ISOLATE
002442

S641 036042
S642 036050
5643 036052

023727
003002
000137

035436

S64S 036056

005737

002164

S646 036062
S647 036064
S648 036070
S649 036076
56505 036100
5651

001010
005237
023737
001402
000137

002504
002506

002504

5655 036110
5656
5657
5658
5659 036160

045

123

sEXIT IF YES

Qvp

+IS QUICK VERIFY PASS SELECTED

ITRONT
ITRDEF , ITRCNT

1BUMP ITERATION COUNT
sDEFALT ITERATION COUNT

ITRACY

;D0 THE TEST AGAIN

062

EXS9

035414

sALL COUNTERS DONE ?

704

104

70%:

SEQ 0122

Page 60-2

NUMBER, 05

000005

5652 036104
5653
5654

03-Oct-84 14:03

sMORE TO DO
1 YES

s TIME TO EXIT

EXS9:

TST

TSHD9::.

BEX
‘g‘;‘?’“XTEM LOOPBACK TEST,ISOLATED.®N/

G10
Page 61

5661

LSBTTL TEST 10

S663

:
TEST 10 -- UP/DOWN COUNTING APPLICATION TEST
3
3
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES
T
I
m
BGNTST

TEST 10

MACRO V05.00

Wednesdey

SEQ 0123

03-Oct-84 14:03

HARDMARE TESTS

UP/DOWN COUNTING APPLICATION TEST

S664

5665
5666
S667 036162

S668 036162

004737

S670 036170
S671 036172

037122
103002

S673 036200
S674 036206
S67S 036212
S676 036216

012737
005037
013701
004737

000004 002504
000000G
002416
021470

S678 036222
S679 036230
S680 036236
S681 036244
S682 036252
S683 036260
036266
S68S 036274
S686 036302

012761
012761
012761
012761
012761
012761
012761
012761
004537

177427
070000
177403

S688 036310

004537

037022

S690 036316
S691 036324
036330
S693 036336
S694 036344
S695 036352
036356
S697 036362
S698 036370
036376

012761
005061
012761
012761
012761
005061
012703
012761
012761
004537

177411
000004
177402
122450
177412
000004
023420
177503
177443
037022

S669 036166
S672 036174

S677 036222

S687 036306

S689 036314

S700 036402
S701 036404
S702 036410
S703 036412
S704 036416
S705 036420
S706 036424
S707 036426

UP/DOWN COUNTING APPLICATION TEST

1008084080000 0000000080000000000000088080000000800048008000000080000800000

000420

000344

000343

000354
004537
000353
004537
000344
004537
000343

g;g 036430

077316

S710 036432
S711 036440
S712 036446
S713 036452
5714 036456
S71S 036462
5716 036464

012761
012761
016105
020527
074737
001404

015006

CALL

SELECT

sCALL SELECT ROUTINE

s TEST HEADER ADDRESS
sIF CARRY IS SET, DON’'T BRANCH

MOV
CLR
MOV
JSR

&4, ITRCNT
A
MOD,R1
PC.AMREST

sITERATION COUNTER
1CLEAR WORKING FLAG
sGET FIRST REGISTER ADDRESS
sRESET THE MODULE

MOV
MmOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR

827 ,MREA(RY)
#70000,MREB(R1)
#8!3,MREA(RL)
42 ,MREB(R1)
#8!4 ,MREA(R]L)
842 ,MREB(R1)
#8!1,MREA(RL)
#42450 ,MREB(R1)
RS,SETMRA

+SELECT FREQ OUTPUT CNTRL REG
sFOUT OFF
aSELECT MODE REGISTER
sOUT TOGGLE
s SELECT MODE REGISTER
sOUT TOGGLE
s SELECT MODE REG
sACTIVE MHIGH LEVEL. GATE 2, SRC S
1SET € TEST MRE

JSR

RS,SETMRA

sSET € TEST MREA

MOV
CLR
MOV
MOV
MOV
CLR
MOV
MOV
MOV
JSR

#8511 ,MREACRL)
MREB(R1)
#8112, MREA(CRL)
#122450, ,MREB(R1)
98112 ,MREA(R]L)
MREB(R1)
#10000. ,R3
OCILOA!S ,MREA(R]L )
SCIARM! 3 ,MREA(R])
o
A

WMORD

420

EXIT

TST

TSHD10
8CC

177404
177401
042450
037022

000002
000004
000002
000004
000002
000004
000002
000004

1§:

ITR10:

LMHORD
.HORD

000002
000002
000004
000002
000002
000002

037022
037022
037022

10%:

000002
000002

1EXIT TEST IF CARRY IS SET

344

343

sTOUT N = 4

sTOUT N = 3

RS,SETMRA
3

+SELECT 1 LOAD REGISTER
s INIT COUNTER
s+SELECT MODE REG
sACTIVE LOMW, GATE 2, SRC S
1SELECT 2 LOAD REGISTER
s INIT COUNTER
sLOOP COUNT
1STARTS COUNTER
1STARTS COUNTER
$1SET € TEST MREA
$1SET TOUT N = 4
1SET € TEST MREA
t;SET TOUT N = 3
$1SET € TEST MREA
sCLEAR TOUT N = 4
1SET € TEST MREA
tCLEAR TOUT N = 3

S08

R3,10¢

1 LOOP

MOV
MOV
MOV
cHp
CALL
BEQ
ERRHRD

OCIDAS!3,MREA(RL)
#8121 ,MREA(RL)
MREB(R1),.RS
RS, #10000.
INSERT
204
1001, ,.ERR120

:1DISARM AND SAVE COUNTERS
1COUNTER -> HOLD REGISTER @1

.WORD
JSR
. WORD
JSR
. WORD
JSR
. WORD
BREAK

177603
177421
000004
023420
015240

s TEST SELECT MASK

RS,SETMRA
3
RS,SETMRA

Y
W

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

——
e
.—

.+
e

—

——d

H10
| HARDWARE TESTS

TEST 10 --

03-Oct-84 14:03

MACRO v05.00

UP/DOMN COUNTING APPLICATION TEST

S718 036474
S719 036502
5720 036506
S721 036510
S722 036514
5723 036516

012761
016105
005705
004737
001404

177422
000004

000002

20%:

MOV
MOV

#8:22,MREA(RL)
MREB(R1),R5

TST

ERRHRD

1002, ,ERR121

CALL
BEQ

015240

SEQ 0124

Pege 61-1

INSERT
304

+SELECT HOLD REGISTER @2

sOTHER SHOULD HAVE NOT COUNTED
s TEST IF ERROR MESSAGE IS REQUIRED
1 IF_ EXPECTED NUMBER OF COUNTS
$ERROR HANDLER

+ NOW DO THE SAME TEST WITH OTHER PHASE

MOV
CLR
MOV
CLR
MOV
JSR

#8!11,MREA(RL)
MREB(R1)
#8112,MREA(R]L)
MREB(R1)
#10000. ,R3
RS,SETMRA

JSR

RS,SETMRA

MOV
MOV
JSR

OCILOA!
3 ,MREA(R]L)
OCIARM!
3, MREA(R])
RS,SETMRA

037022

JSR

R3,SETMRA

037022

JSR

RS,SETMRA

037022

JSR

RS,SETMRA

S08

R3,40¢

MOV
MOV
MOV

#CSDAS
! 3,MREA(RL)
#6121 ,MREA(R]L)
MREB(R1).RS

CALL
BEQ

INSERT
S04

30%:

000002

WORD

037022

177503
177443
037022

177603
177421

000004

000002
000002

.WORD

40¢:

.WORD

WORD

.WORD

000002
000002

TS7

015240

177422

5758 036712
5759 036716
5760 036722
5761 036724
5762
5763 036734
5764 036740
5765 036742
5766 036744
3767 036750
5768 036752
5769 036772
S770 036776
5771 037002
5772 037010
S773 037012
5774

000004

.WORD

000002

ERRHRD

MOV
MOV
cP
CALL
BEQ

023420

015240

ERRHRD

60¢:

002164

iST

BNE

BREAK
TST

BNE

002504

1204:

344

343

353
354

343

344

1003, ,ERR122

sOTHER SHOULD HMAVE NOT COUNTED
:TEST IF ERROR MESSAGE IS REQUIRED
:0ID CLOCK TICK
sERROR HANDLER
$COUNTER -> HOLD REGISTER @1

1004, ,ERR123

s TEST IF ERROR MESSAGE IS REQUIRED
:0ID CLOCK TICK
1ERROR HANDLER

Qvp

.ggsnumt VERIFY PASS SELECTED

EXS10

1204

+IS WORKING PRINTED ONCE ?
1BRANCH IF YES

WORFLA

#WOR

INC

ITRCNT

ce
BEQ
JP

sDISARM AND SAVE COUNTERS

sCOUNTER -> HOLD REGISTER @01

#8:22 ,MREA(RL)
MREB(R1),.RS
RS, #10000.
INSERT
60¢

PRINTF

INC

+SELECT 1 Lg.Q REGISTER
sINIT COUNT
sSELECT 2 LOAD REGISTER
s INIT COUNTER
sLOOP COUNT
1SET € TEST MREA
tCLEAR TOUT N = &4
1SET € TEST MREA
tCLEAR TOUT N = 3
s STARTS COUNTER
1STARTS COUNTER
1SET € TEST MREA
1SET TOUT N = 3
$1SET € TEST MREA
:SET TOUT N = 4
:SET € TEST MREA
sCLEAR TOUT N = 3
aSET & TEST MREA
;CLEARTOUT N = &4

tPRINT TEST IS WORKING

ITROEF
, ITRCNT
EXS10
ITR10

T4 A

1BUMP ITERATION COUNT
tDEFAULT ITERATION COUNT
' TIME YO EXIT
100 THE TEST AGAIN

177411

000004
177412
000004
023420
037022

200002

I10
| HARDMARE TESTS

| TEST 10
l

MACRO V05.00

Wednesde

UP/DOWN COUNTING APPLICATION TEST
EXS10:

S7g 037016

S777 037022
S778 037024
S779 037030
S780 037034
S781 037040
S782 037042
S783 037046
S784 037050
S785 037054
5786 037060
S787 037062
S788 037066
S789 037070
S790 037072
S791 037076
S792 037100
S793 037110
;m 037112
5796 037114
037117
5797

011500
052700
010061
016100
011502
042702
011546
042716
022627
001004
136200
001010
000403
136200
001404

5799
5800 037
5801 037174
5802
5803
5805 037212

EXIT

TST

(R5),RO
#8,R0
RO,MREA(R])

037113
037113

1%:

BITMAP-1(R2),RO

177400
000002
000002
177770

177407
000350

34:
10¢:

005725
000205
002
020

004
040

010

045
045

123
116

062
045

BITMAP:

BNE
BR
8IT8
BEQ
ERRHRD
TST
RTS

SEQ 0125

Pege 61-2

SETMRA: MOV
8IS
MOV
MOV
MOV
8IC
MOV
8IC
c
BNE
8IT8

MREA(R1),RO

(RS),R2

#177770,R2

1SET HIGH ORDER BYTE
1SET OUTPUT
1GET VALUE BACK
1GET NUMBER

(RS),-(SP)

sWHAT TYPE OF COMMAND

(SP)+,#350

$SET?

#177407,(SP)

14
BITMAP-1(R2),RO
10
34

1GET COMMAND

sNO
+IS SOURCE SET?
sYES, AS IT SHOULD BE
ERRDAR

10¢
100S, ,ERR124
(RS).
RS

.BYTE
.EVEN

5798

5804

03-0Oct-84 14:03

NLIST
TSHD10::.ASCIZ
WOR:
.ASCIZ
.LIST
.EVEN
ENDTST

/9S24AUP\DOWN COUNTING APPLICATION TEST sN/
/SNSAWORK INGSN/

BEX

J10
' MARDMARE TESTS

| TEST 11:

MACRO V05.00WI 03-Oct-84 14:03

Visual LED Test -

ifically Selectable.

5807

.SBTTL

TEST 11:

Visuel LED Test - Specifically Selectable.

;

FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES

5503
$809
S810

I IR R R R
R R R R
R
L
e e Y Y P R E RNV RS
;
Test 11 - Visual LED Test - Specifically Selectsble.
3

5812

(RELERGEARABERBLARBI
LU R LG O ARV SSRGS EPEAL LS LSRG VD LAN NS BRROIRSEADED

S811

5813
5814 037214

BGNTST

S815 037214 004737 015006
S816 037220
S817 037222

5818 037224

5819 037226

S821 037232

CALL

SELECT

s CALL THE SELECT ROUTINE

8CcC

10$

+ BRANCH IF THE TEST IS SELECTED

10¢:

CLR

3 START BY SWITCHING LEDS ON

010377
037350

.WORD
TSHD11

103002

EXIT

005001

10377
TST

s+ SPECIFIC TEST, ALL DEVICES
s+ TEST HEADER ADDRESS
+ OTHERWISE, EXIT THE TEST

S823 037234 062701
S824 037240 042701

000100
000200

20%:

ADD
8IC

€100,R1
#200,R1

s IF BIT 6 IS CLEAR, SET IT
s IF IT IS SET, CLEAR IT

5826 037244 005037
5827 037250 013703
5828 037254 006303

002074
002074

304:

CLR
MOV
ASL

LSLUN
LSLUN,R3
R3

3 START WITH UNIT O
s FORM OFFSET FOR PARAMETER ADORESS
:

BNE

354

s IF ADDRESS IS SET UP, BRANCH

S829 037256

S830 037262
5831 037264

S832 037274

S833 037300
S834 037302
S835 037304
S836 037310
S837 037314
S838 037320
S839 037326
S841 037330
S842 037334
S843 037340
S844 037342
S84S5 037344
&_6, 037346

5848
5849 037350
5850
5851
5852
5853 037432
S854
5855 037434
5856

SEQ 0126

Peage 62

016302

001006

010263

005712
001002
004737
010172
005237
023737
002750
012703
004737
005303
001374

002554

MOV

002554

015306
000000
002074
002074

354:
40%:
002012

000024
014600

S0$:

000732
045

123

062

GPADD(R3),R2

GPHARD

LSLUN,R2

TST
BNE
JSR
MOV
INC
cP
BLT

(R2)
404
PC,CONFIG
R1,8(R2)
LSLUN
LSLUN,LSUNITS
304

MOV
JSR
DEC
BNE
BREAK
BR

020. ,R3
PC,WT25M
R3
S04

MOV

.NLIST
TSHD11::.ASCIZ
.LIST
.EVEN
ENDTST
ENDMOC

R2,GPADD(R3)

20%

3+ GET PARAMETER ADDRESS IN R2

s ELSE, GET PARAM ADDRESS FROM DRS

s AND SAVE IT IN THE TABLE

3 MODE ADDRESS = 0 ?
s IF NOT, BRANCH
s ELSE DO AUTO CONFIGURATION FOR THIS UNIT
: SWITCH THE LED OVER
s GO TO NEXT UNIT
3 ALL CHANGED ?
3 IF NOT, SWITCH OVER THE NEXT
+
3
;
s+
:
+

WAIT FOR 0.5 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

Page 64
dey 03-Oct-84 14:03
v05.00_Wednes
= MACROTest
SECTION
| CLOSE
.
Selectable
ifically
TEST 11: Visual LED

K10

SEQ 0127

.TITLE CLOSE SECTION

5860
S871
$900

BGNMOD

S901 037434
5902

S903 037434
S904 037434

$PATCH::

5905

040634
33{3
5916 041000

041004

5917 041004

.BLKN

BLKB 400-<,.E377 >
LASTAD
y

LSLAST::

S00

SHSHIFT TO CORRECT FOR LSI ®BUG

—

————

ee———

L1O
A

CLOSE SECTION
TEST 11:

MACRO V05.00

Visual LED Test -

5919
5920
5921
5934
5935 041004
5936
5937
5938
5939
5940
5941 041504
5942

Wednesde

03-0Oct-84 14:03

-hcol!y Selectable.

BGNSE TUP

000020

.END

SEQ 0128

Page 65

16.

.WORD
0,0,0,0,0,0,0,0
ENDPTAB
.ENDR
ENDSETUP

M10
CLOSE SECTION

Symbol teble

ACFLG
026212
ADCON
017462 G
ADR
= 000020 G
Al
AMREST

017200
021470 G

NACRO V05.00

Wednesday 03-Oct-84 14:03

CON
CONEX
CONFIG

022516
016452
015306 G

CONMSK
CONPRI

002702 G
015656 G

SEQ 0129

Page 65-1

C$GETW= 000027
CSGMAN= 000043
C$GPHR= 000042

EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G

€104
€105
E106

010732
011007
011062

E107A
€108
€109
€110
El11

011257
011321
011373
011443
011516

C$GPLO= 000030
CSGPRI= 000040

EF.STA= 000040 G
ELEMNT 002450 G

ANS
002502 G
A0
017211
ASK
022026
ASKADD 022742
ASSEMB= 000010

CONT
025410
COUNTR 002444 G
Co1
015576
CcP1
016466
CP1A
016537

CS$INIT= 000011
CSINLP= 000020
CSIN1 = 177750 G
CeIN2 = 177757 G
CSLOA = 177500 G

EMG1
EMG2
EMG3
EMGA
END

010336
010405
010455
010542

BITMAP 037114
BITMSK 002434 G
BITMS1 002436 G
BITMS2 002440 G
8ITO = 000001 G
B8IT00 = 000001 G
B8ITO1 = 000002 G
B8IT02 = 000004 G
BITO3 = 000010 G
81704 = 000020 G
BITOS = 000040 G
BIT06 = 000100 G
BITO7 = 000200 G
BITO8 = 000400 G
BIT0%9 = 001000 G
BIT1 = 000002 G

CP10A
017125
CcP11
017143
cP12
017147
cP2
016741
cP3
016752
CcP4
016761
CPS
016773
CPé
017010
cP?
017016
cP8
017066
cP9
017077
CRLF
014634 G
CSR
002420 G
CSARM = 177440 G
C$AU = 000052
CS$AUTO= 000061

CP10

C$MEM = 000031

ERRNBR

005714 G

BIT13 = 020000 G

CS$CEFG= 000045

8
= 177400 G
BAD
002476 G
BADIV
022004 G

BIT10 = 002000 G
B8IT11 = 004000 G
BIT12 = 010000 G

BIT14
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

=
=
=
=
=
=
=
=
=
=

BOE

= 000400 G

BIV

CALRET
CARRFL
CCR

040000 G
100000 G
000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G

002472 G

016611
016707

017110

C$BRX = 000022
C$B8SEG= 000004
C$85UB= 000002
C$CLCK=
CS$CLEA=
C$CLOS=
CsCLP1=
CSCTN =
C$CVEC=
CSDAC =
CSDAS =
C$DCLN=
C4D0DU=

000062
000012
000035

177740 G
000036
177700 G
177600 G
000044
000051

C$DRPT= 000024
CsOV

= 000053

021270 G
021374
G

CS$EDIT= 000003
CS$ERD¥= 000055
CSERHR= 000056

002452 G

CS$ESEG= 000005

CHAR
CHKMAX
CLINT
CLXFLG

023162
014434 G
022024 G
027526

CNTXT
CNT2S
CNT25M
CNTS00

012403
014632 G
014626 G
014630 G

CNTVAL

cP18
cP1C

CS$ERRO= 000060
CS$ERSF= 000054
CS$ERSO= 000057
CS$ESCA= 000010

CS$ESUB= 000003
CS$ETST= 000001
CS$EXIT= 000032
C$GETB= 000026

CS$MANI= 000050
CIMAR = 177777 G

C$MSG = 000023
CSOPEN= 000034
C$PNTB= 000014
C4PNTF= 000017
CSPNTS= 000016
C$PNTX= 000015
C4QI0 = 000377
C$RDBU= 000007
CSREFG= 000047
CSRESE= 000033
CS$REVI= 000003
CS$RFLA= 000021
CSRPT = 000025
CS4SEFG= 000046
CS$SPRI= 000041
C4STN = 177750 G

CS$SVEC= 000037
C$TPRI= 000013
DACON
017244 G

DCNT

DECEX
DECIN
DECIN1
DECIN2
DECINS
DECOUT
DECO1
DECO2
DECO3S
DFPTBL

1) ¢

017222

020626
017736 G
020347
020405
020466
020516 G
020634
020640
020644
002154 G

017156

DIAGMC= 000000

D0
DROPD
DROPED

017167
027734
002614 G

ECNT
002514 G
EERA
006250 G
EERS
006300 G
EERG
006340 G
EER1
006064 G
EER2
006122 G
EER3
006164 G
EER6
006216 G
EF .CON= 000036 G

ERRBLK
ERRMSG

005720 G
005716 G

ERRTYP
ERR104
ERR10S
ERR106
ERR107
ERR108
ERR109
ERR110
ERR111
ERR112
ERR11S
ERR116
ERR120
ERR121
ERR122
ERR123

005712 G
006346 G
006400 G
006432 G
006512 G
006572 G
006624 G
006656 G
006710 G
006742 G
007412 G
007560 G
010034 G
010104 G
010134 G
010164 G

ERRSO2

007050 G

ERR124
ERR130
ERRSO1
ERRSOS
ERRSO4
ERRSOS
ERRSO6
ERRSO7
ER116A
ER1168
ER116C
EVL
=
EXQvl

EXQve
EXQvs

EXS10
EXS4
EXSS

EXS6
EXS?
EXS8
EXS9

010234 G
007444 G
006774 G

007124 G
007152 G
007204 G
007262 G
007340 G
007634 G
007710 G
007762 G
000004 G
030170

030570
031212

037016
032106
033442

034072
034572
035264
036104

ESEND = 002100

ESLOAD= 000035
E101
030240
€102
010604
E103
010662

E106A
€107

011140
011201

El112
E113

011567
011641

El1l4

011713

E114A
E1148
E11S
E116
E116A
E1168
€120
El121
El124
E201
€202
€203
ES01
ES02
ES06
ES07

ESO7TA
FLASH
FLSANS

F$AU

012000
012052
012126
012442
012525
012606
012662
012747
013030
030617
030704
030751
013113
013146
013235
013333

013432
020716 G
021170 G

= 000015

F$AUTO=
F$BGN =
F$CLEA=
F$DU =
FSEND =
F $HARD=
F$Hd
=
F$INIT=
F$MP =
F$MOD =

000020
000040
000007

000016
000041
000004
000013
000006

000050
000000

F$MSG = 000011
F$PROT= 000021

F$PWR = 000017
FSRPT = 000012
F$SEG = 000003

F$SOFT= 00000S
F$SRV = 000010
F$SUB = 000002
F$SW = 000014
F$TEST= 000001

GAIN
GETNUM
GOOBAD
G000

002706 G
020327
010306
002474 G

N10
CLOSE SECTION
Symbol teble

MACRO V0S5.00

Wednesdey 03-Oct-84 14:03

Page 65-2

| GPADD
002554 G
| GPFLG
023160
| GROP
002446 G
| GS$CNTO= 000200

ISOU = 000041
I$HRD = 000041
I$INIT= 000041
I$MOD = 000041

LIMPCP
LSHPTP
L$HW
L$ICP

002016 G
002022 G
002154 G
002104 G

L10037
L10040
L10041
L10042

007760
010032
010102
010132

L10131
L10132
L10133
L10134

041440
041434
041464
041460

G$DISP= 000003
GS$EXCP= 000400

I$PROT= 000040
I$PTAB= 000041

LSLADP
LSLAST

002026 G
041004 G

L10044
L10045

010232
010304

MASCOM
MASK

014050
014046 G

GSLOLT= 000001
GSNO = 000000
GS$OFFS= 000400
G$OFSI= 000376

I$RPT = 000041
I$SEG = 000041
I$SETU= 000041
ISSFT = 000041

MODE
MREA
MREB
MREC

002704 G
= 000002 G
= 000004 G
= 000006 G

L10061 027776

025006

L10065
L10066
L10067
L10070
L10071
L10072

Ny
020310
N2
020312
NTEST 026371
NTESTS= 000013
NTEST1 026465
NUMBER 002442
NXM
021766

| GSDELM= 000372

GSHILI= 000002

GS$PRMA= 000001
G$PRMD= 000002
GS$PRML= 000000
GSRADA= 000140
GSRADB= 000000

GSRADD= 000040

GSRADL= 000120
G$RADO= 000020
G$XFER= 000004

I$MSG = 000041

ISPWR = 000041

I$SRV = 000041
145U = 000041
I$TST = 000041
IOTAB
004312 G
IATAB
005112 G

JSMP = 000167

KLINT
LASTFA
LCLOCK

027102
015304
026766

G$YES = 000010
Gl
002222
G16
002374
G2
002250
G3
002270
HEL
022142

LF
014656
LOCATE 030202 G
LOE = 040000 G
LOOP
002466 G
LOOPEX 026214
LOPFLG 002640 G

HOE
=
IBE
=
IDU
=
IER
=
INIWT

100000 G
010000 G
000040 G
020000 G
025610

LOTFLA
LSACP
LSAPT
LAV
LSAUT

INSERT
INTFLA
INTFL2
INTSR
ISR
=
ITRAC1
ITRAC2
ITRACS

015240 G
002510 G
002512 G
021776 G
000100 G
030044
030326
031052

LSCCP
LICLEA
L$CO
LSDEPO
LDESC
LSDESP
LSDEVP
LSDISP

ITRACS
ITRAC6
ITRAC?T
ITRACS
ITRACO
ITRCNT
ITRDEF
ITR1I0

032336
033560
034174
034722
035414
002504 G
002506 G
036222

LSOTP
LIOTYP
LU
LSOUT
LSOVTY
L$EF
LSENVI
LSERRT

HELP = 000000

INR

002424 G

ITRACA 031306

IXE
= 004000 G
IXEND = 171770 G
IXSTA = 171000 G
ISAU = 000041

I$AUTO= 000041
I$CLN = 000041

LOT

= 000010 G

002700 G
002110 G
002036 G
027766 G
002070 G

LSETP
LSEXPL
LEXPA
LSEXPS

025022 G

LSLOAD 002100 G
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT

002074 G
002050 G
002000 G
002042 G

025014 G
002112 G
002062 G
002010 G
022026 G

L$SOFT 002366 G
L$SPC
LSPCP
LS$SPTP

LISTA
LISW
LSTEST
LSTIML.
LSUNIT
L10000

002056 G
002020 G
002024 G

002030 G
002164 G
002114 G
002014 G
002012 G
002162

L1000 002166

L10043

010162

L10053
L10055
L10056
L10057
L10060

M$TOG = 000042 G
NERRS
014536
NEMST
025320
NEXT
025654
NH
= 000014

L10062
L10063
L10064

021774
022002
022022
022024
025012
026646
027662
027672
027764
030306
030204
031026

031252
032162
033524
034140
034652
035344

L10073 036160

L10074
L10075
L10076
L10077
L10100

037212
037432
041010
041034
041030

002106 G
027664 G
002032 G
002011 G
005732 G
002076 G
002060 G
002124 G

L10010
L10011
L10012
L10013
L10014
L1001S
L10016
L10017

006276
006336
006344
006376
006430
006510
006570
006622

L10102
L10103
L10104
L10105
L10106
L10107
L10110
L10111

041054
041104
041100
041130
041124
041154
041150
041200

002040 G
002034 G
027674 G
002072 G
005722 G
002052 G
002044 G
005712 G

L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030

006706
006740
006772
007046
007122
007150
007202
007260

L10113
L10114
L10115
L10116
L10117
L10120
L10121
L10122

041224
041220
041250
041244
041274
041270
041320
041314

002116 G

002102 G
002046 G
002064 G
002066 G

LSHARD 002170 G
LSHIME 002120 G

L10020 006654

L10031
L10032
L10033
L10034

007336
007410
007442
007556

L10035 007632
L10036 007706

041504

MOD

L10047
L10050
L10051
L10052

002222
002374
006120
006162
006214

L10007 006246

L10136

L10046 014120

L10002
L10003
L10004
L10005
L10006

LSAUTO 027600 G

LSOLY

LS$INIT

L10101 041060

002416 G

NOCLOK
NODEV
NOUNIT

027240
005772
015574

NXMFLG
NXTWT
ONEFIL=
0$APTS=
0$AU =

002470
025544
000001
000001
000001

0$BGNS=
00U =
O$ERRT=
O$GNSW=
0$POIN=
0$SETU=
PADD
PNT
=

000001
000001
000001
000001
000001
000001
002710 G
001000 G

0$8GNR= 000001

L10112 041174

PRA

L10123
L10124
L10125
L10126

=
=
=
PRIOS =
PRIO6 =
PRIO? =
PROMT

041344
041340
041370
041364

L10127 041414
L10130 041410

PREX
PRI
PRIO
PRIOO
PRIOL
PRIO2
PRIO3
PRIOA

PR1
PR2

023326

023152
= 002000 G
002430 G
= 000000 G
= 000040 G

000100 G
000140 G
000200 G
000240 G
000300 G
000340 G
021172

023420
023445

Bll

CLOSE SECTION
MACRO V05.00 MWednesdey 03-Oct-84 14:03 Pege 65-3
teble

Sysbol

PR2A
PR2B
PR2C
PR2D
PRE
PRF
PR2G

023552
023651
023743
024004
024074
024177
024273

RSAV
R
SAVONT
SAVPRI
SELECT
SETOLK
SETEX

031016
031242
027444
002432 G
015006 G
026650
027524

PS
« 17734
TSHD1
030206 G
TS010 037122 G
TS011 037350 G
TS02
030574 G
TSOS
031216 G
TSD4
032120 G

TIPTAB. 010135
TIPTHVe 000020
ToPTMU= 000020
TeSALe 177777
TeSEGLe 177777
T4SEXC= 010000
TISIZE= 000240

110
711
12
T3
14
TS
16

PR3A
PRE
PRS
PR6
PR7
PSAD
PSDA

020474
024533
024564
024605
024706
017540
017316

&I
SFPTBL
Sam
SRC
STADD
STARES
START

002500 G
002164 G
020314
002464 G
015572 G
025306
025022

TS06
TSO?7
TS08
TSO9
TSTEMI
TSTFLG
TSUFLG

ToTAGLe 177777
T4TAGNe 010137
T4TEP- 000000
T4TEST= 000013
T4TSTHe 177777
T4TSTSe 000001
TOSAU « 010061

T8
034654 G
19
035346 G
UM
= 000200 G
USCLOX 027174
VePTAS 003512 G
VEC
002426 G
WPTAS 002712 G

PURFL
QW

025466
002164 G

STAVA2
STFLG

012307
023156

T4SCLE> 010057
T40DAT. 010136

WARN
WARNL

RAOOM
e
ROY
RECON

020654 G
020714 G
023264
022244

REGERR
REGMSG
REGTST

014054 G
014341
013474 G

PR3

024367

SETMRA

PSEWL1 026162

STAT

020712 G

013532 6
014122
014174
014252
025276
021376

041504

RFLG

ABS.

Work
Work

141

023220

TosAUTe 010056

T4CODE= 000152

T400U = 010060

034076 G
034576 G
033270 G
036110 G
030176
002634 G
002636 G

TTINT
027372
TOARGC= 000001

SVCTSTe 177777
SSLSYM= 010000
TADS
023172

TOMILI= 000001
THLAST= 000001
THLOLI= 000000

TM8

001

033474 G

TOERRN= 001755
THEXCP= 000000
TOFLAG> 000040
TOFREE= 041504

TDMSG
TINE
n®
TMS
=
TM
TMM

000

TSOS

STRVA2= seesss GX
SVCGBL* 000000
SVCDNSe 177777
SVCSUB= 177777

SVCTAGs 177777

023170

000000

022766

STRVAL 012173

REGADD 014052
G
REGTS1
RERR1
RERR2
RERRS
RESTRT
RETME1

037022

027530
022350
177362
177560
015166
023322

- 177566

file
resds: 233
file writes: 236

Size of work file: 20944 Words ( 114 Peges)
Size of core pool: 19990 MWords ( 76 Pages)
Opersting systes: RSX-11M/PLUS

ZIDVAO.BIN,ZIDVAO.SEQ/ -SP=(50,200)SVC/M., (53,53 )ZIDVAO. SRC

014620

WLG

014710

026216
026276

WT2S
WT25H
WTS00

T44SEG=
T44SOF=
T#SSRVe
T44SH =
T44TES>
1§

(Rw,I.LCL.REL.CON)

WAIT

T46PRO= 010054
T49PTA= 010135
T44APTe 010053

THLSYMe
ToLTND=
TINESTe
TINSO =
TINS1 =
TINS2 =

TSPCNT= 000000

034142 G

WOR
037176
MORFLA= eecsse GX
VDY
014662 G
WRDY1
014712

T44PC « 000020

010000
000013
177777
000000
000001
000008

T48HARe 010002
To0M4 = 010000
T44DO- 010055
T44MSGe 010046

T4GWN- 000000

(RM,I.GBL,ABS.OVR)

Elapeed time: 00:08:43.64

TISUBN- 000000

036162 G
037214 G
030310 G
031030 G
031254 G
032164 G
033526 6

010000
010003
010063
010001
010075
030000 G

MRSEL

026532

X$ALMA=
X$FALS>
X$OFFSX$TRUE=
YES
SPATCH

000000
000040
000400
000020
025002
037434 G

014614 G
014600 G
014606 G

»S