Digital PDFs

AH-E232A-MC

September 1979

201 pages

Original

103MB

view download

OCR Version

138MB

view download

Document:	CZDMRA0 M8203,LUNT M8203 STATIC DIAG. 1 SEP 1979 bw
Order Number:	AH-E232A-MC
Revision:	000
Pages:	201
Original Filename:	CZDMRA0__M8203,LUNT__M8203_STATIC_DIAG._1__AH-E232A-MC__SEP_1979_gray.pdf

OCR Text

M 8203 ’ L U N T

cM:?gn;Ta?\comG ¢

SEP 1979

: :::2;2:? C197s mm
FICHE1 OF1

MADE IN USA

(ZDMRA M8203 STATIC DIAG #1

CZDMRA.P11
3298

3299

3300

18=-4UL=79 09:44

MACY11

30A(1052)

18-JuUL=-79

PROGRAM DOCUMENT

1
PAGE 2

SEQ 0001

.REM 3

3301

3302
3303

09:53

IDENTIFICATION

%gglg

PRODUCT CODE:

AC-E231A-M(

%%89

PRODUCT NAME:

CZDMRAO M8203 STATIC DIAG #1

g%gg

PRODUCT DATE:

JUNE 1979

_353]'?

MAINTAINER:

DIAGNOSTIC ENGINEERING

3312
3313
3314
3315

AUTHOR :

DAVID HOFFMAN

3318
3319
3320
ggg;

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO CHANGE WITHOUT
NOTICE
AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

3323
3324
%%gz

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

ggsg

g%%g

3331
3332

THE
USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL
OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACY11 30A(1052)

18-JuL=-79

09:53

PROGRAM DOCUMENT

1
PAGE 3

CONTENTS

1.0 INTRODUCTION

2.0 HARDWARE REQUIREMENTS
3.0 PRELIMINARY PROGRAM REQUIREMENTS

4.0 GENERAL PROGRAM CONSIDERATIONS
4.1 DIAGNOSTIC SUPERVISOR
4
EXECUTION TIME
4

[0 AV, P WAT,N)

4
4 .7
.

XXDP+
ACT/SLIDE
APT
MEMORY MANAGEMENT

MEMORY PARITY OPTION

4.8 ERROR LOGGING

5.0 PROGRAM LOAD MEDIA
6.0 OPERATING INSTRUCTIONS
6.1 LOADING AND STARTING PROCEDURES
6.1.1 LOADING PROCEDURES

'DLNWULNW > WW'D uuwn WWWDWWWWW
Pl
O

.1.1 TESTS SWITCH
. " 2 PASS SWITCH
- N 3 FLAGS SWITCH
1

4 END OF PASS SWITCH

.
5 EFFECT OF START COMMAND
ESTART C COMMAND
Qo 1 TESTS, PASS, AND FLAG SWITCHES
ofe 2 UNITS SWITCH
o€s 3 EFFECT OF RESTART COMMAND
"CON TINUE COMMAND

egel PASS SWITCH
FLAGS SWITCH
.
. A EFFECT
F
OF CONTINUE COMMAND
ROCE E? COMMAND
D C

LAGS SWITCH
E FFECT OF PROCEED COMMAND
O

4. 1
b2

ode
UNITS SWITCH
A = 2 EFFECT OF ADD COMMAND
1

OP
C

LN
LN

\JOO‘OO‘O*VIO*O#O*O*O*WO‘O*O‘NO*O‘OOQ

LN
W

O'~

6.1.2 STARTING PROCEDURES
6.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION
6.2 INITIAL DIALOGUE
6.3 zngsqwq OPTIONS

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

.6. 1 UNITS SWITCH
.6. 2 EFFECT OF DROP COMMAND

"PRIN T COMMAND

SEQ 0002

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P1
18=JUL=79 09:44

3390
3391
3392
3393
3394

MACY11

30A(1052)
18=JUL=79
PROGRAM DOCUMENT

09:53

PAGE 3-1

6.3.7.1 EFFECT OF PRINT COMMAND
6.3. 8 DISPLAY COMMAND
6.3.8.1 UNITS SWITCH
6.3.8.2 EFFECT OF DISPLAY COMMAND
6.3.9 FLAGS COMMAND
6.3.9.1 EFFECT OF FLAGS COMMAND
6.3.10_ZFLAGS COMMAND
6.3.10.1 EFFECT OF ZFLAGS COMMAND

g %.11

CONTROL CHARACTERS

6.3.
6.3.14
3.
EXTENDED DISCUSSION OF P-TABLE DIALOGUE
7.0 DEVICE

INFORMATION TABLES

8.0 TEST DESCRIPTIONS
8.1 DATA PATTERNS USED
9.0 ERROR INFORMATION
9.1 ERROR REPORTING

SEQ 0003

CZDMRA M8203 STATIC DIAG #7

V00 NONN SN

Ry Ry D>

CZDMRA.P11

RRR RRERRRRRR RRR

Seey FAROKLEY AS o

20
21
22

18=JUL=79 09:44

MACYT1

30A(1052)

18-JUL-79

09:53

PROGRAM DOCUMENT

PAGE 4
SEQ 0004

1.0 INTRODUCTION

THE

MB203

SINGLE-LINE

SYNCHRONOUS LINE UNIT MODULE

WHICH SUPPORTS BOTH CHARACTER-ORIENTED (DDCMP, BSC,
ETC.)
AND
BIT-ORIENTED (SDLC, HDLC, ETC.) PROTOCOLS, AND WHICH IS

CURRENTLY EMPLOYED IN THE DMP-11

THE PURPOSE OF

OF ALL M8203 LOGIC
FOLLOWING

DDCMP

MULTIDROP

PROJECT.

THIS PROGRAM IS TO PERFORM DIAGNOSTIC TESTING

FUNCTIONS

RELATIVELY

STATIC

WILL BE PERFORMED:

MANNER.

THE

LINE UNIT REGISTER

ADDRESSING, USYRT ADDRESSING,
STATIC
BIT
INTERACTION AND
READ/WRITE
LOGIC
TESTS,
BASIC
TRANSMITTER
AND
RECEIVER
SEQUENCING AND
DATA BUFFERING
AND
STATIC
OPERATIONS
IN
CHARACTER AND BIT-STUFFING MODES.
IN ADDITION DATA MESSAGES
WILL BE SENT AT SPEEDS OF 2400
BAUD
TO
1
MEGABAUD,
WITH
LOOPBACK
IN
THE
USYRT,
ON THE LINE UNIT AT TTL LEVEL, OR
THROUGH AN EXTERNAL

INTERFACE SELECTED.

TEST

CONNECTOR

WITH

SPECIFIC

MODEM

THE
STATIC
LOGIC
TESTS
WILL
PROVIDE
EXTENSIVE
TROUBLESHOOTING CAPABILITIES, SUCH
AS
TIGHT
SCOPE
LOOPS,
SWITCH
OPTIONS,
AND
ABILITY
TO
'LOCK'' ONTO INTERMITTENT

ERRORS.

IN ADDITION TESTS WILL BE DESIGNED

AND

STRUCTURED

TO
ACHIEVE
MAXIMUM
FAULT
RESOLUTION
AND
FACILITATE
REPLACEMENT OF THE SMALLEST FIELD REPLACEABLE UNIT.

THIS
PROGRAM
WILL
BE
IMPLEMENTED
USING
THE
DIAGNOSTIC
SUPERVISOR
AND
A STRUCTURED PROGRAMMING APPROACH.
BECAUSE
THE

DESIGN

WILL

CONFORM

THE

SUPERVISOR

THROUGH DIALOGUE WITH THE OPERATOR,

THE PROGRAM

(STANDALONE

ngsgfll))ETHE PROGRAM WILL BE COMPATIBLE WITH ACT, APT, XXDP+,
WILL

ALLOW

MODIFICATION OF
DEVICE PARAMETERS, SUCH AS UNIBUS ADDRESS,
VECTOR ADDRESSES AND
DEVICE
PRIORITY.
IN
ADDITION,
THE
OPERATOR
CAN
SPECIFY
PARTICULAR
TESTS
TO BE
RUN AND A
VARIETY OF LOOPING, RUNNING, AND REPORTING MODES.
DEVICE ERRORS WILL BE REPORTED AS THEY
OCCUR.
THE
REPORT
WILL
INCLUDE
A
TEST
NUMBER AND DESCRIPTION OF THE ERROR,
g&ogs:fig BAD
TEST
DATA,
AND
APPLICABLE
DEVICE
REGISTER

2.0 HARDWARE REQUIREMENTS
THE

FOLLOWING

LOGIC TESTS:

HARDWARE

IS REQUIRED

TO RUN THE M8203 STATIC

PDP-11/04,05,10,20,30,34,35,40,45,50,60,

16K MEMORY

OR 70

(ZDMRA MB203 STATIC DIAG #1
18=JUL=79 09:44
(ZDMRA.P11

M:CY11

30A(1052)

18=JuUL=-79

PROGRAM DOCUMENT

CONSOLE

09:53

1
PAGE 4=1

SEQ 0005

TERMINAL

DMC=11 OR KMC=11 MICROPROCESSOR
M8203 LINE UNIT AND BCO8S-1 CABLE AND BERG CONNECTORS

3.0 PRELIMINARY PROGRAM REQUIREMENTS
THIS PROGRAM
OPERATES
THE
MICROPROCESSOR
EXTENSIVELY
IN
ORDER
TO
TEST
THE
LINE
INIT.
FOR
THIS
REASON,
THE
MICROPROCESSOR DIAGNOSTIC
AND
SUBSYSTEM
FUNCTIONAL
TESTS
SHOULD
BE
RUN
FIRST,
AND
ANY
FAULTS
FOUND
IN
THE
MICROPROCESSOR MODULE SHOULD BE REPAIRED, PRIOR
TO
RUNNING
THE M8203 STATIC LOGIC TESTS.

4.0 GENERAL PROGRAM CONSIDERATIONS
4.1
THIS

DIAGNOSTIC SUPERVISOR
PROGRAM

COMPATIBLE WITH THE

STANDALONE DIAGNOSTIC

SUPERVISOR, AND MUST BE LOADED TO BE
CO-RESIDENT
WITH
THE
SUPERVISOR,
OR
BE
PREVIOUSLY COMBINED WITH THE SUPERVISOR

AND LOADED AS A SINGLE FILE.
IN EITHER CASE,
PROGRAM WILL NOT EXCEED 16K OF MEMORY.

THE

COMBINED

4.2 EXECUTION TIME
THE MAXIMUM TIME REQUIRED TO RUN THE M8203 STATIC LOGIC

IS ABOUT 45 SECONDS PER PASS FOR EACH UNIT.

TESTS

4.3 XXDP+
THIS PROGRAM MAY BE LOADED UNDER XXDP+,
DUMP MODE OR CHAIN MODE.

AND

MAY

RUN

4.4 ACT/SLIDE

THIS PROGRAM MAY BE LOADED UNDER ACT OR SLIDE AND MAY BE RUN

IN DUMP MODE OR CHAIN MODE.

4.5 APT
THIS PROGRAM MAY BE LOADED
BY
THE
APT
SYSTEM
APT=RD) AND RUN IN PROGRAM MODE OR SCRIPT MODE.

(INCLUDING

4.6 MEMORY MANAGEMENT
MEMORY MANAGEMENT

IS NOT UTILIZED

IN THIS PROGRAM.

CZDMRA MB203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

MACY11

30A(1052)

18=JuUL=79

PROGRAM DOCUMENT

INSTALLED,

09:53

PAGE 4=2

SEQ 0006

IT IS DISABLED BY THE PROGRAM.

4.7 MEMORY PARITY OFTION
IF PARITY MEMORY
IS
INSTALLED,
DISABLED BY THE PROGRAM.

MEMORY

PARITY

TRAPS

ARE

4.8 ERROR LOGGING
AT THE END OF EACH PASS ON ALL
THE CUMULATIVE TOTAL NUMBER OF
RESTART COMMAND.

UNITS, THE PROGRAM PRINTS QUT
ERRORS SINCE THE LAST START OR

5.0 PROGRAM LOAD MEDIA
THIS PROGRAM

ABSOLUTE

CAN

LOADED

LOADER OR FROM ACT,

ANY MEDIA SUPPORTED BY XXDP+.

FROM

PAPER

TAPE

USING

THE

PAPER

TAPE

SLIDE, OR APT SYSTEMS, OR FROM
WHEN

USING

ABSOLUTE
LOADER,
THE
PROGRAM
SHOULD
BE
LOADED
FIRST,
FOLLOWED BY THE DIAGNOSTIC SUPERVISOR.
WHEN USING XXDP+, THE
DIAGNOSTIC
SUPERVISOR
SHOULD
BE LOADED FIRST, FOLLOWED BY
THE DIAGNOSTIC PROGRAM.

6.0 OPERATING INSTRUCTIONS
6.1

LOADING AND STARTING PROCEDURES

6.1.1

LOADING PROCEDURES

THIS PROGRAM
MAY
BE
LOADED
FROM
PAPER
TAPE
USING
THE
ABSOLUTE
LOADER.
IT MAY ALSO BE LOADED FROM ANY XXDP+ LOAD
MEDIA. WHEN LOADED UNDER XXDP+, THE DIAGNOSTIC SUPERVISOR
WILL BE LOADED AUTOMATICALLY.

6.1.2 STARTING PROCEDURES
THE
PROGRAM
STARTS
AT
LOCATION
PROCEDURES TO START THE PROGRAM.

200.

USE

STANDARD

DEC

6.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION
THE
DIAGNOSTIC
CAN
BE EXECUTED STANDALONE UNDER XXDP+,
WITHOUT READING THE REMAINDER OF THIS DOCUMENT, AS FOLLOWS:

LOAD AND START DIAGNOSTIC USING RUN COMMAND

B) RECEIVE DIAGNOSTIC SUPERVISOR IDENTIFICATION AND PROMPT
() ENTER STA<CR>

(DRS=(>)

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11
3579
3580
3581
3582
3583
3584
3585

18=JUL=79 09:44

MACY11

30A(1052)

18=JUL=79

PROGRAM DOCUMENT

09:53

1
PAGE 4-3

SEQ 0007

D) ANSWER HARDWARE AND SOF TWARE QUESTIONS
E) GET END OF PASS MESSAGES OR ERROR MESSAGES
F)

TO END EXECUTION, ENTER CONTROL/C

6.2 INITIAL DIALOGUE
AFTER THE PROGRAM AND THE SUPERVISOR ARE LOADED AND THE PROGRAM
IS STARTED, THE FOLLOWING IDENTIFICATION IS TYPED :
DRS LOADED
DIAG. RUN-TIME

SERVICES

CZDMR-A-0
M8203 STATIC LOGIC TESTS = PART 1 OF 2
DU;IT 1S m8203
>

THE OPERATOR THEN PROCEEDS BY TYPING ONE OR MORE OF THE
COMMANDS DESCRIBED IN THE FOLLOWING SECTION 6.3. (FOR MORE
DETAILED INFORMATION, REFER TO THE DIAGNOSTIC SUPERVISOR
FUNCTIONAL SPECIFICATION).

6.3 PROGRAM OPTIONS
6.3.1
AR AR

START COMMAND
S

sl i3
2222223232¢

STA(RT)/TESTS:<TEST=LIST>/PASS:<PASS~CNT>/FLAGS:

g AN NN AN
RO VO NO WV WN -

3610

<FLAG=LIST>/EOP:<INCR>

SR SRRttt
I3 2223323232

6.3.1.1

TESTS SWITCH (/TESTS:<TEST=LIST>)

<TEST=-LIST>

A SEQUENCE OF

DECIMAL NUMBERS

(1:2 ETC.)

RANGES OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT
SPECIFY
THE
TESTS
TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS RANGE FROM 1

TO THE LARGEST

TEST NUMBER

THE

DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY ORDER.
TESTS WILL
BE EXECUTED IN NUMERICAL ORDER REGARDLESS OF
THE
ORDER
OF
SPECIFICATION.
THE
DEFAULT
IS
TO EXECUTE ALL TESTS.
ON
THIS AND ALL SWITCHES, THE ANGLE BRACKETS <> ARE PUNCTUATION
USED
IN THE DEFINITION ON! Y, AND ARE NOT TO BE TYPED BY THE
OPERATOR.
SEE EXAMPLE AT END OF 6.3.1.5.

6.3.1.2 PASS SWITCH (/PASS:<PASS=CNT>)
<PASS=CNT>

IS A DECIMAL

NUMBER

INDICATING

THE

DESIRED NUMBER

OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL
DIAGNOSTIC (ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULT IS NON-ENDING EXECUTION.
IN THIS CASE EXIT FROM
THE PROGRAM IS ACCOMPLISHED EITHER BY

OCCURANCE

TYPING A CONTROL/C

OF AN ERROR WITH THE HALT ON ERROR FLAG BE ING

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

MACYT1 30A(1052)

18=JUL=79

PROGRAM DOCUMENT

SET.

09:53

1
PAGE 4=4

SEQ 0008

THE EXIT IS A RETURN TO COMMAND MODE.

END OF 6.3.1.5.

SEE EXAMPLE

6.3.1.3 FLAGS SWITCH (/FLAGS:<FLAG=LIST>)
<FLAG-LIST>
IS
A
SEQUENCE OF ELEMENTS OF THE FORM <FLAG>,
<FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS

ONE OF

THE FOLLOWING VALUES:

HOE

HALT ON ERROR,

CAUSING COMMAND MODE TO BE

ENTERED WHEN AN ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY WITHIN THE SMALLEST DEFINED BLOCK
OF CODING (SEGMENT, SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

LOE

IER
IBE
IXE

PRI

DIRECT ALL MESSAGES

PNT
BOE
UAM

TO A LINE PRINTER

PRINT NUMBER OF TEST BEING EXECUTED
BELL ON ERROR
RUN_IN UNATTENDED MODE, BYPASSING MANUAL
INTERVENTION TESTS

ISR
IDU
LOT

INHIBIT STATISTICAL REPORTS
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
LOOP ON TEST

THE
FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 9
ARE CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF Ti1E FLAGS
g:})l’gf-{ 6I§ 1N(5)T GIVEN ALL FLAGS ARE CLEAREL.
SEE EXAMPLE AT

6.3.1.4 END OF PASS SWITCH (/EOP:<INCR>)
<INCR>

IS A DECIMAL NUMBER

PASSES)
PRINTED.

INDICATING HOW OFTEN

IT
IS
DESIRED
THAT
THE
END
THE DEFAULT IS AT THE
END
OF

EXAMPLE AT END OF 6.3.1.5.

(IN TERMS OF

OF PASS MESSAGE BE
EVERY
PASS.
SEE

6.3.1.5 EFFECT OF START COMMAND
THE
EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE
PARAMETER DIALOGUE, THE
SOFTWARE
PARAMETER
DIALOGUE,
AND
THEN THE DIAGNOSTIC TESTS THEMSELVES.

THE
HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION
"# UNITS?'' TO WHICH THE
OPERATOR REPLIES
WITH A DECIMAL
NUMBER
N FROM 1 TO 16. THE TERM "UNIT'' REFERS TO THE DEVICE
TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED.
FOLLOWING
THIS
ARE THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL

BE BUILT.
ALL

THE

EACH P-TABLE

HARDWARE

IS A CORE-RESIDENT TABLE

INFORMATION

MUST SUPPLY N (NUMBER OF UNITS)

FOR ONE UNIT.

VALUES

FOR

CONTAINING

THE OPERATOR

EACH

OQUESTION.

CZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 05:44

MACY11

30A(1052)

18=JUL=79

PROGRAM DOCUMENT

09:53

1
PAGE 4=5

SEQ 0009

HE
MAY
DO_THIS
BY GIVING ONE ANSWER TO EACH QUESTION (IN
WHICH CASE THE SERIES OF QUESTIONS WILL BE POSED N TIMES) OR
BY
GIVING N _ VALUES, SEPARATED BY COMMAS, TO EACH QUESTION
(SERIES WILL BE POSED ONCE).
EACH QUESTION IS
FOLLOWED
BY
THE
RESPONSE
RADIX
(D
FOR_
DECIMAL,
B FOR BINARY, O FOR
OCTAL, L FOR YES/NO) IN PARENTHESES AND
THE
DEFAULT
VALUE
AFTER THE PARENTHESES.
FOLLOWING
THE HARDWARE QUESTIONS ARE THE SOF TWARE QUESTIONS
TO BUILD THE SOFTWARE TABLES, WHICH DEFINE THE
MODE
(QUICK
VERIFY ETC.) THAT THE DIAGNOSTIC WILL EXECUTE IN.

WHEN

THE QUESTION “# UNITS?'' IS ANSWERED, MEMORY STORAGE IS

ALLOCATED FOR THE P-TABLES, AND IF THERE IS
NOT
ENOUGH
ACCOMMODATE THEM THE MESSAGE '‘TOO MANY UNITS'' IS ISSUED.
}gé? fitff&?;SDIAWSUC MUST BE EXECUTED MORE THAN ONCE

TO
IN
TO

:
EXAMPLE

STA/TESTS:1:2-4:6:8-10/PASS:3/FLAGS
: IER:HOE=1:UAM: LOE
THIS

COMMAND

CONSISTING OF

ALL UNITS.

WILL CAUSE THREE PASSES TO BE MADE, EACH PASS

TESTS 1,2,3,4,6.8,9, AND 10

THERE

SAYING <FLAG=1>.

EXECUTED

AGAINST

IS NO DIFFERENCE BETWEEN SAYING <FLAG> AND

THE NOTATION <FLAG=0> IS MEANINGFUL ONLY ON

A
COMMAND
OTHER
THAN
START
TO
CLEAR
A
FLAG
THAT WAS
PREVIOUSLY SET.
NOTE THAT ON ALL COMMANDS
ONLY
THE
FIRST
THREE LETTERS ARE SCANNED.

6.3.2 RESTART COMMAND
LA

d sttt
2222222222

RES(TART) /TESTS:<TEST=LIST>/PASS:<PASS~CNT>/FLAGS:
<FLAG=LIST>/UNITS:<UNIT-LIST>

ddddd ittt
I3 222322323232

6.3.2.1 TESTS, PASS, AND FLAGS SWITCHES
<TEST=LIST>,

COMMAND.

<PASS=CNT>,

AND <FLAG-LIST> ARE AS

IN THE

START

6.3.2.2 UNITS SWITCH (/UNITS:<UNIT=LIST>)
SUNIT-LIST>

A SEQUENCE OF

DECIMAL NUMBERS

(0,1

ETC.)

RANGES OF DECIMAL NUMBERS (0-5, 8-10 ETC.)

THAT SPECIFY

THE NUMBERS MAY RANGE FROM O THRU N=1

UNITS

TESTED.

THE

THE NUMBERS ARE SEPARATED BY COLONS.
(N

THE

NUMBER

UNITS
SPECIFIED IN THE PREVIOUS START COMMAND).
THE NUMBER
INDICATES THE POSITION OF
THE
P-TABLE
AS
THE
DATA WAS
ENTERED DURING THE HARDWARE DIAGLOGUE.
THE UNITS WHICH ARE
SELECTED MUST NOT HAVE BEEN DROPPED BY
THE
DROUP
COMMAND.
SEE
THE DISCUSSION OF ADD AND DROP COMMANDS BELOW.
DEFAULT

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JuUL=79 09:

3747
3748
3749
3750
%;212
3753
3754
3755

3756
3757
3758
3759

3760

3761
%;g%
3764

MACY11 30A(1052)
18-JUL-79
PROGRAM DOCUMENT

09:53

1
PAGE 4=6

SEQ 0010

IS TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY
COMMAND.

6.3.2.3 EFFECT OF RESTART COMMAND

;

THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT
THE P-TABLES FROM THE PREVIOUS START COMMAND
(THERE MUST
HAVE BEEN ONC)
ARE USED, INSTEAD OF NEW ONES BEING BUILT.

THE UNITS SWITCH GIVES THE ABILITY TO

SELECT

SUBSET

MADE

THESE.
THE SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED
(OPERATOR WILL BE ASKED). THE
COMMAND CAN BE USED AFTER
COMMAND MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL

WAYS:

A) THE REQUESTED NUMBER OF PASSES HAVE BEEN

AN ERROR WAS ENCOUNTERED WITH THE HALT ON ERROR FLAG SET ()
A CONTROL/C WAS ENTERED BY THE OPERATOR.

%;gg

6.3.3 CONTINUE COMMAND

3767

3768

CON(TINUE) /PASS : <PASS=CNT/F LAGS : <FLAG-LIST>

AR A A AR AR AR AR A AR A A A AR

R AR A AR AR AR AR AR AN AR

AR AR A AR

3769
3770
L7144
%;;%

6.3.3.1 PASS SWITCH (/PASS:<PASS~CNT>)

3774

<PASS=CNT> IS SAME AS IN START COMMAND, BUT THE

IF NONE REMAINS, THE DEFAULT IS NON-ENDING EXECUTION.

3775

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

6.3.3.2 FLAG SWITCH (/FLAGS:<FLAG=LIST>)

3781

<FLAG-LIST> IS SAME AS IN

3784
;;gg

6.3.3.3 EFFECT OF CONTINUE COMMAND

3787

AR AR AN

DEFAULT

THE UNSATISFIED PASS=CNT FROM THE PREVIOUS START OR RESTART.

3778
g;g
%;g%

DROP

START

FLAGS RETAIN THEIR CURRENT VALUE.

CONTINUE

COMMAND,

BUT

UNSPECIFIED

MUST

A START OR RESTART, AND COMMAND MODE

THE

EFFECT

3788

MUST HAVE

3790
3791

BEGINNING OF THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY OPTIONALLY

3789

CONTROL/C.

BEEN

ENTERED

gg%

BE REEXECUTED.

3794
g%

6.3.4 PROCEED COMMAND

3797

LA Al

3798

3800
3801

3802

DUE

HALT

COMMAND

ERROR

ettt

e It

6.3.4.1 FLAGS SWITCH (/FLAGS:<FLAG=LIST>)

GO TO THE

HARDWARE PARAMETERS MAY NOT BE CHANGED.

PRO(CEED)
/FLAGS : <FLAG-LIST>
LA

THE

2223233322%;

212233222%

SEERES EEERRE SREZEREReE

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44

VooO~NCVIS~
W

3803

MACY1T 3%(1052)

(1:8-JUL-79

09:53

OGRAM DOCUMENT

A3
PAGE 4-7

<FLAG=LIST> IS AS IN
THE
START
FLAGS RETAIN THEIR CURRENT VALUE.

SEQ 0011

COMMAND,

BUT

UNSPECIFIED

6.3.4.2 EFFECT OF PROCEED COMMAND
PROCEED

MUST FOLLOW A START, RESTART, OR CONTINUE.

COMMAND

MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFFECT
OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT
THE LOCATION
FOLLOWING THE ERROR CALL.
NEITHER
HARDWARE
NOR
SOF TWARE
PARAMETERS MAY BE ALTERED.

6.3.5 ADD COMMAND
AR AR A AR

A AR

AR A AR AR AR AR A AR AR AR

AR AR AR AR

A AR AR ARk h

ADD/UNITS:<UNIT=LIST>
LA

AR dd

Rttt

sttt ittt
2223222222%3

6.3.5.1 UNITS SWITCH (/UNITS:<UNIT=-LIST>
<UNIT=LIST> IS AS IN THE RESTART COMMAND.

6.3.5.2 EFFECT OF ADD COMMAND
THE UNITS SPECIFIED ARE ADDED TO THE
TEST
SEQUENCE.
EACH
UNIT
MUST
HAVE
A
P-TABLE
IN MEMORY
DUE
TO AN EARLIER
HARDWARE DIALOGUE.
THIS
COMMAND MUST
BE
FOLLOWED
8Y
A
RESTART
OR
CONTINUE.
THE UNITS SWITCH MUST BE SPECIFIED.
THE ADD COMMAND IS
MEANINGFUL
ONLY
FOR
UNITS
THAT
WERE
PREVIOUSLY DROPPED.

6.3.6 DROP COMMAND
AR AR

RRI AR RRR AR ARARRRRRRRRRRRARNRANRRAN
AR

DRO(P) /UNITS:<UNIT-LIST>
AR RN AR

R AR

R AA R R

R R AR R

RRRRR AR RRRARRARRRARRRARRS

6.3.6.1 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<SUNIT=LIST> IS AS

IN THE RESTART COMMAND.

6.3.6.2 EFFECT OF DROP COMMAND
THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING.
THE UNITS
WILL BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR
START
COMMAND.
THE
UNITS
SWITCH MUST BE ENTERED.
THIS COMMAND
MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND.

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44
3859

MACY11 3%(1052)

18-JUL-79

09:53

OGRAM DOCUMENT

PAGE 4-8

SEQ 0012

6.3.7 PRINT COMMAND
AR

R RRRRARAR AR RR AR

ERRR AR RRRAARRRRRRARRARRRRRRRRA
AR

PRI (NT)
AR AAR AR AR AR

RAR

AR AR RARRR AR AR

AR RRRRANAA

AN RN

6.3.7.1 EFFECT OF PRINT COMMAND
THE TOTAL NUMBER OF ERRORS FOR
EACH UNIT
START
OR
RESTART
COMMAND
ARE
PRINTED.
STATISTICAL REPORTING) FLAG IS CLEARED.

SINCE
THE
LAST
THE ISR (INHIBIT

6.3.8 DISPLAY COMMAND
AR AR A AR AR AR AR AR AR A AR AR

AR R AR

AR AR AR AN AR AR AR AR

DIS(PLAY) /UNITS:<UNIT-LIST>
AR

AR AR AR AR

RARRA R AR AR RRR AR

RN RN RANARNRARAARAA

6.3.8.1 UNITS SWITCH (/UNITS:<UNIT=LIST>)
<UNIT=LIST>

IS AS

IN THE RESTART COMMAND.

6.3.8.2 EFFECT OF DISPLAY COMMAND
THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST

OUT_IN

THE

FORMAT

ARE

IN WHICH THEY WERE ENTERED.

THAT WERE DROPPED BY THE

DESIGNATED.

OPERATOR

°‘DROP''

COMMAND

PRINTED

ANY UNITS
ARE

6.3.9 FLAGS COMMAND
AR

AR AR

AR A AR AR A AR A AR AR AR

R A AR R AR AR AR AR

RAA AR AR

RANRNARARARARN

FLA(GS)
AR AR AR AR AR

R AR AR AR AR AR RRRRRRRR AR AR

6.3.9.1 EFFECT OF FLAGS COMMAND
THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

6.3.10 ZFLAGS COMMAND
AR AR AR AR AN A AR A AR AR AR AR A AN

ZFL (AGS)
LRl

AARN AR AR R AR AR AR AR AR AN

eIttt

6.3.10.1 EFFECT OF ZFLAGS COMMAND

31323233232]

CZDMRA M8203 STATIC DIAG #
CZDMRA.P11
18-JUL=79 09:44

MACY11 30A(1052)
18-JUL-79
PROGRAM DOCUMENT

1
PAGE 4=9

09:53

SEQ 0013

ALL FLAGS ARE CLEARED.

6.3.11

CONTROL

CHARACTERS

A CONTROL C_(C) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES
A RETURN
TO
COMMAND MODE.
A CONTROL
Z
(Z)
ENTERED DURING ONE OF THE THREE OPERATOR
DIALOGUES= HARD CORE QUESTIONS (SEE
6.2) ,HARDWARE
DIALOGUE

(SEE 6.3.1.5), OR SOF TWARE DIALOGUE (SEE 6.3.1.5) CAUSES THE

DEFAULTS TO BE TAKEN FOR THE REMAINDER OF THAT DIALOGUE.

A CONTROL O (0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC
CAUSES
ALL
TELETYPE
OUTPUT
TO BE
SURPRESSED
FOR
THE
REMAINDER OF THE DIAGNOSTIC OR UNTIL
ANOTHER
0
IS
TYPED,
WHICH RESTORES NORMAL TELETYPE OUTPUT.

6.3.12 HARDWARE PARAMETERS
THE
FOLLOWING 4 QUESTIONS WILL BE ASKED ON A START COMMAND.
THE VALUE LOCATED TO THE LEFT OF THE QUESTION MARK
IS
THE
gggs&gf VALUE
THAT
WILL
BE
TAKEN ON A CARRIAGE RETURN

DEVICE CSR ADDRESS

(0)

160170?

THIS IS THE ADDRESS AT WHICH THE CSR REGISTERS (SELO) RESIDE

ON
THE
UNIBUS.
THE_
ALLOWABLE
RANGE
(OCTAL), AND THE DEFAULT VALUE IS 160170.

DEVICE VECTOR ADDRESS :

160000-177776

(0) 300 ?

THIS IS THE ADDRESS OF THE INPUT INTERRUPT VECTOR

DEVICE.
THE
ALLOWABLE
DEFAULT VALUE IS 300.

RANGE

DEVICE PRIORITY LEVEL :

IS 000-674

FOR

THIS

(OCTAL), AND THE

(0) 5 ?

THIS IS THE CPU PRIORITY AT WHICH THE INTERRUPT HANDLERS
OF
THIS
DEVICE
WILL BE EXECUTED.
THE ALLOWABLE RANGE IS 0-7,
AND THE DEFAULT VALUE IS 5.

MICROPROCESSOR RUN SWITCH - TYPE O IF OFF, 1

THIS TELLS THE PROGRAM IF

IS SET OR NOT.

IFON :

(O)

THE RUN SWITCH ON THE MICROPROCESSOR

IF IT IS SET, RUN IS NOT INHIBITED, AND TESTS

REQUIRING THE RUN STATE CAN BE EXECUTED. THE ALLOWABLE VALUES

ARE O AND1, AND THE DEFAULT VALUE IS 1

(RUN IS NOT INHIBITED).

6.3.13 SOF TWARE PARAMETERS
NO SOF TWARE PARAMETER QUESTIONS ARE ASKED BY PART 1
STATIC LOGIC TESTS.

THE

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACY11

30A(1052)

18-JUL-79

PROGRAM DOCUMENT

09:53

PAGE 4=10

SEQ 0014

6.3.14 EXTENDED DISCUSSION OF P-TABLE DIALOGUE
THE

FULL

CAPABILITY OF

THE HARDWARE DIALOGUE

IS REVEALED BY

THE FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION '# UNITS?'' IS ANSWERED
(WITH
THE
NUMBER N,
SAY)
SPACE IN CORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES ARE OF THE SAME FORMAT, AND THERE
IS
A
ONE-TO
ONE
CORRESPONDENCE
BETWEEN
THE HARDWARE PARAMETER
QUESTIONS AND THE SLOTS

IN THE P-TABLE FORMAT.

ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF

THE

SLOTS

ALL
OF
THE
P-TABLES ARE FILLED.
IF THE OPERATOR TYPES IN
LESS THAN N EXPLICIT VALUES
IN RESPONSE
TO
A
PARTICULAR
QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES (ONE VALUE
GOING INTO THE PROPER SLOT OF EACH
P-TABLE
BEGINNING
WITH
THE
FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED.
THE LAST VALUE IN THE STRI.VG BECOMES THE NEW DEFAULT AND
IS

USED TO FILL THAT SLOT IN THE REMAINING P-TABLES.

ON
SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS
CARRIED OUT, EXCEPT THAT THE EARLIEST P-TABLE
NOT
TO
HAVE
RECEIVED
AN
EXPLICIT VALUE IN ANY OF ITS SLOTS NOW ASSUMES
THE ROLE THAT TABLE NUMBER ONE PLAYED IN THE FIRST TRIP.
THE SERIES OF QUESTIONS
IS
REISSUED
UNTIL
AT
LEAST
ONE
QUESTION HAS RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

IN
GIVING
A
STRING
OF VALUES, COMMAS WITHOUT INTERVENING
VALUIE)SV'A‘&YJEBE USED TO INDICATE
A
REPETITION
OF
THE
LAST
A

STRING

EXAMPLE).
SAMPLE

VALUES

MAY

GIVEN

TRANSLATES

THE

A RANGE

(610 FOR

IF THE VALUES REPRESENT PURE NUMERICAL DATA,

RANGE

INCREMENT OF

1).

IF THE VALUES

ARE

STRING

6,7.8,9.10

ADDRESSES,

THE

THIS

(AN

SAMPLE

RANGE TRANSLATES TO THE STRING 6,8,10 (AN INCREMENT OF 2).

NOW
LET
US
SEE
HOW WE
COULD
USE THESE CAPABILITIES TO
CONSTRUCT A SET OF P-TABLES.
ASSUME THAT WE HAVE 16 UNITS,
AND THAT THERE ARE THREE HARDWARE PARAMETERS FOR EACH (THREE
SLOTS IN
THE
P-TABLE,
THREE
HARDWARE
QUESTIONS
IN
THE
DIALOGUE).
LET THE DESIRED VALUE FOR THE FIRST PARAMETER BE
THE NUMBER 75 FOR ALL 16 TABLES.
LET THE DESIRED VALUE
FOR
THE

_SECOND

~PARAMETER

BE_

EQUAL

THE

UNIT

NUMBER

(0,1,2,...,15) EXCEPT FOR UNIT 12, WHICH SHOULD RECEIVE
THE
VALUE
11.
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE
THE NUMBER 76 FOR THE FIRST 7 UNITS AND THE NUMBER

THE LAST 9 UNITS.
THE

FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL:

# UNITS

UNIT 0

(D)

FOR

CZDMRA.P11
4027
4028
4029
4030
4031
4032

4033
4034

18=JUL=79 09:44

MACY11

30A(1052)

18-JUL=79

PROGRAM DOCUMENT

09:53

€

PAGE 4=11
SEQ 0015

<QUESTION 1> ? 75
<QUESTION 2> ? 0-6
<QUESTION 3> ? 76

UNIT 7

<QUESTION 1> ?
<QUESTION 2> 7 7=11,,13-15
<QUESTION 3> ? 77
B
BRSNS
B

(ZDMRA M8203 STATIC DIAG #1

THE

FIRST

TIME

THE SERIES IS ASKED,

SLOT ONE RECEIVES A 75

IN ALL 16 TABLES.
SLOT TWwO RECEIVES THE VALUES 0,1.2.....6
IN TABLES O THRU 6 AND A CONSTANT 6 IN TABLES 7 THRU 15.

SLOT THREE RECEIVES A CONSTANT 76 IN ALL

16 TABLES.

THE SECOND TIME THRU THE SERIES, TABLES 7 THRU THE END
ARE
GOING TO BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS

PRINTED OUT FOR THE THE OPERATOR IN THE FORM
‘UNIT
XX'' AT
THE
BECINNING
OF EACH SERIES).
QUESTION 1 IS RESPONDED TO
BY A <CR>, SO SLOT ONE STAYS AT CONSTANT
75
IN
TABLES
7

THRU 15, SINCE NO NEW EXPLICIT VALUES ARE TYPED IN.
SLOT TWwO
GETS THE VALUES 7,8,9.10,11 IN TABLES 7
THRU
11,
AND
GETS AN 11 IN SLOT 12, AND GETS THE VALUES 13,14,15 IN

¥ang?s13 THRU 15. SLOT THREE GETS THE VALUE 77 IN TABLES 7

THE DIALOGUE IS TERMINATED WHEN THE SOF TWARE RECOGNIZES THAT
16 EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION
(NAMELY QUESTION 2).

CZDMRA M8203 STATIC DJAG #1
CZDMRA.P11
18-JUL=79 09:44

4057
4058

4059
4060
4061
4062
4063
4054
4065
4066

4067

4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079

4080
4081
4082

MACY11

30A(1052)

18-JUL-79

PROGRAM DOCUMENT

09:53

PAGE 5

SEQ 0016

7.0 DEVICE INFORMATION TABLES

A AR

R AR

A A

R AR

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

* MAINTENANCE REGISTER - BSEL1
:*Qttt.itttfittitfi't'tQfit't'tfittt!tlfii*fittt.titttttttttttt*ttti'tttt'tittfit't"'

RUN

= BIT7

MCLR

= BIT6

ROMO
ROMI

= BIT2
= BIT

= BIT4
= BIT3

STEPLU
LULOOP

STEPMP
AR

= BITO

ettteIl
2222222222223 223222222

* 0BUS REG 10 - TRANSMITTER BUFFER
MR

X7
X6
TX5
TX4
TX3
X2
X1
X0

=
=
=
=
=
=
=
=

BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

s it
2222222222222222

:ttt.tt't'ttttttt**t!fitttt'ttttt'ttfiittttti*tit*tttttttittttttttfi"'tt't't't.t!

* 0BUS REG 11
:ttttt'ttttttt*tt*tttt*ittttttttttttttfitilfiitttfitittttttttt'fitt't't'i'..'t"ti'

0C
GOAH
ABORT
EOM
SOM

= BIT7
= BIT3

= BITZ2
= BIT
= BITO

;ttfittttt'*fifi'tttttt*ttt'tttit*tfitttt*t.fitttfittittttfitttittQ'ttttttlttt'.t"ttt

* 0BUS REG 12
Ml

BPOLL

LULP
MLAA R

eIl 2223222222332222222222

= BITS
s

* 0BUS REG 13

POLL
DTR

= BIT7
= BIT6

HDX
MAINT1

=
=
=
=

MAINT?
SELSBY

et 232222222222222222322222222

= BIT6

AR AR

SELFR

= BIT7

= BITS

BIT4
BIT3

BIT?
BIT1

22222232222222223223

CZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11

MACY11

30A(1052)

18=JUL=79

PROGRAM DOCUMENT

09:53

PAGE 5-1

SEQ 0017

:Qttlttt'tti"ti.ii"QQ"Qtttt.tfitttfitttt.tttt'QQtttt'ttt't'it..t'..'t".tttt'i

* 0BUS REG 14
:ttttttt.t"'i't'ti*'.'."i.'fit'tttttttifittitt.ttfi*tttttt'tl'tt'tttit.".tt'.'t

TXEN

= BITé

DISSI

= BITS

WAX
ENAX
AX2
AX1

=
=
=
=

RDAX

= BIT4

BIT3
BIT2
BIT]
BITO

SRR

ittt

* 0BUS REG 17
ML

RDALL
IERR
DDCMP
AR

BIT7
BITé
BITS
BIT4
BIT3

=
=
=
=
=

CRC2
CRC1
IDLE
SECA
STRIP

et sttt eIl
2222222222 222222 23

= BIT2
= BIT1
= BITO
R

g eI
T2 2222222222

* IBUS REG 10 - RECEIVER BUFFER
A

RX7
RX6
RXS
RX4
RX3

RX?2

RX1
RX0

A AR

=
=
=
=
=

A A A

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

AR AR AR

R®

BIT7
BIT6
BITS
BIT4
BIT3

= BIT?

= BIT1
= BITO

:'tttltt...tt.t*'.t'*fitttt'tt'ttt'..Q‘ttt'tfi't"'ttttttt'tt'ttt.ttttt'fi"ttt"t

IBUS REG 11

;Qtttttt..t'i"ttt'tfifitttt'tttfi.tttt*tttt't*tfl.ttfit*"tttttti'ttt‘tttt.ttttt"t

oC
OACT

= BIT7
= BIT6

ORDY

= BIT4

Sw3

4159
4160

Sw2
Sw1
SW0
UNRR

= BITS

=
=
=
=

BIT3
BIT2
BIT1
BITO

* IBUS REG 12

233222222322222222222

;itt'tt'*ttt*tttfitttttttttttttttt.tttt*fitttttttitlttiitt!tfi"tfit't'tt.tt't'."'

4163
4165

4167
4168

IC
IACT
LULP
IRDY
OVRR

RAB

=
=
=
=
=

BIT7
BITé
BITS
BIT4
BIT3

= BIT2

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
4169
4170
LG
6172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185

MACY11

30A(1052)

18-JuL-79

PROGRAM DOCUMENT

09:53

PAGE 5-2

SEQ 0018

= BITI
= BITO

EBLK
BCC

:'t't'tt"fi'fitfifi't'..*t"'ttifii*fifitt'.'tttfit'*fl"'.'.t"QQ'Q.‘Q..Q'.Q.'.Q.Q'Q'.

* 1BUS REG 13

:fi"'ifitl'ifitfi*t**t**tt."t'tfiQi.fi'tfi'fi.tttii*..t'!fi..t'tfttttfifittfittfiltttttfitt

RING
DTR
RTS

STBY
CARR

=
=
=
=
=
=
=
=

ARt

HDX

MODR
cs

BIT?
BITé
BITS
BIT4
BIT3
BIT2
BIT1
BITO

* IBUS REG 14

eI 2223222232222222222222222%;

;'ttfitttttfi'tttfittt't.*fiiiifit*ttt'*tttfi'tttttttifi.ttttt.ttttfittt'ttt'tttt.'t'tt

READY
TXEN

DISSI

RDAX

= BIT7

= BITé

= BITS
= BIT4

WAX

= BIT3

AX2
AX1

= BIT1
= BITO

ENAX

= BIT?2

;*itfitfittlt'.tttttt"ttt'ttttttfi*tttitt*ttttfiittt'*t..tttit.t."tttt""t.t'.'

* IBUS REG 17

;*tfiitti*ttt't*tfittttttttttitfitttttittttt.fitt.fiQ't't*'t'lti'tttttttt"'tt.'tt.

SIGR
SIGQ
TXDATA
OCOR
ICIR
TESTMD

=
=
=
=

BIT7
BIT6
BITS
BIT4

= BIT3

= BIT?
MCLK
= BIT1
DDCMP
= BITO
:ti**t*t.tttfitfitt**ttttt'i'fittfittt*tttfifitttfit'tt..t"ttttttittttt.ttt"t.tt.ttt

* AX0=-15 - USYRT REG O (READ ONLY)
:"t't*t"t*ttttt*ttittt'ttt.tfittfittt't!lfi'tit.fitttt.t"tt'ttt'.t..'t't.'tlt'tt

RX7

= BIT7

RX6

= BIT6

RX4
RX3

= BIT4
= BIT3

RXS

RX?2
RX1
RX0

= BITS

= BIT?
= BIT1
= BITO

* AX0-16 = USYRT REG 1 (READ ONLY)

2223232333223 22233233232223222232233133%
%

R L
nnmmmmmmmmTTMTM

RERR

ASB(2

BIT7

BIT6

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

4225
4226
4227
4208
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241

4242

4243
42064
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256

4257
4258
4259
4260
4261
4262
4263
4064
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280

18=JUL=79 09:44

MACYT1

30A(1052)

18=JUL=-79

PROGRAM DOCUMENT

ASBC1
ASBCO
ROR
RABT

=
=
=
=

REOM
RSOM

09:53

PAGE 5-3
SEQ 0019

BITS
BIT4
BIT3
BITZ2

= BIT
= BITO

:Q'tt*"t.tfifi*tfi.'Q'.QtttttQ'.Qtttt'tttl'ti.t"'.itt.t'fit!iQ'tt't!'.t'..tt't.

* AX1=15 = USYRT REG 2

;lQ"tfi'fi'tt.ti.fit.'ttt'tt'Qittt*ttRQ'Q.Q.tttti‘t'ttfittt'tti.t.ttt'ii'ttt.'tt

X7
X6
X5
TX4

=
=
=
=

TX3
TX2
X1
X0

BIT7
BIT6
BITS
BIT4

=
=
=
=

BIT3
BIT?
BIT1
BITO

* AX1-16 = USYRT REG 3

I3 23232222323222322222222222222222223

;tti'tfiiiti'.tt.tfitttttt"t'tttii.tttttfittt.'tttt"tfitt'tt'tttttt.t't"'ttt.i

TERR
TXGA
TXAB
TEOM
TSOM
A

=
=
=
=
=
SR

BIT?7
BIT3
BIT?Z
BIT
BITO

* AX2-15 = USYRT REG 4

22222232232222222222222

:fifitt‘tt.tttttitit'tt*tt"'ttfitfitltttfittttt't..tttitt."fittt'ttt'.tttt..t.t't

SYN7
SYN6
SYNS
SYN4
SYN3
SYN2
SYN1
SYNO

SYNCH

=
=
=
=
=
=
=
=

BIT?7
BIT6
BITS
BIT4
BIT3
BIT?
BIT1
BI10

= 226

:'Qtt*ttt*."ifittt.tt'ttt.ttfiQttttt&fitttttt'ttttttt'tttttt.tttfi"ttttt.'tt"'

* AX2-16 = USYRT REG 5

:Qtt"ttt.ttt.fitttt.ttt*"tfi*.ttt*fitQ"ttfitttt"tt!t.ltttt'tt'ttt't't.t..tfit'

APA
DDC

= BIT?7
= BITé

SEC

= BIT4

STR

IDL
CRCTY2
CRCTY1
CRCTYO

= BITS

=
=
=
=

BIT3
BIT2
BITI
BITO

:t'fi".t.tt.t.t..tttttttt't't.ttttl"tt'tt'.'tt.'.t.t'tt'..""'.'.tt.ttt'.'t

* AX3-15 - USYRT REG 6

;.t".*..t.t'tit.tttt't!tt.'i"ttt.t..tt't.t.ttt.tt'.'.fi'.'tt'.t.tt'.""'.'.

(ZDMRA MB8203 STATIC D]AG #1
CZDMRA.P11
18=JUL=79 09:44
4281
4282
4283
4284
4285
4286
25%;

4291

4292
4293

4294

4295
4296

4297
4298
4299
4300

4301

30A(1052)
18=JUL=79
PROGRAM DOCUMENT
1422
XYz
v35
INTGRL
OP
TEST
AX315U

4289

MACY11

=
=
=
=
=
=
=

09:53

2
PAGE 5-4

SEQ 0020

BIT?7
BIT6
BIT4
BIT3
BITI
BITO
1422!XYZ!V35!INTGRL'!OP

AX3-16 = USYRT REG 7

TXLEN2
TXLENT

= BIT7
= BITé

TXLENO

= BITS

RXLENO

= BITO

RXLEN2
RXLENT

= BIT?
= BIT1

(ZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=-JUL=79 09:44

MACY11

30A(1052)

18-JuL-79

PROGRAM DOCUMENT

09:53

PAGE 6

SEQ 0021

4308

8.0 TEST DESCRIPTIONS

4314
4315

SRR R AR A A A
A A A
AR AR A A A AR AR A AR AR AR R AR AR R AR AR AR AR AR AR RN AR
TEST 1 = MICROPROCESSOR CSR ADDRESSING TEST (SELO)

4317
4318
4319

* THIS TEST ADDRESSES THE FIRST MICROPROCESSOR CSR (SELO), TO MAKE SURE
* THAT A NON-EXISTENT MEMORY TIME-OUT TRAP DOES NOT OCCUR WHILE
* ATTEMPTING TO ADDRESS THE MICROPROCESSOR.

‘326

4320

LA AL

4327

AR A

e ettt sttt

AR AR RSt sttt

I 2222222222222 2

ettt

222222222222223

TEST 2 = INBUS/0OUTBUS REG 14 INITIALIZATION TEST
*

4329
4330

* MASTER CLEAR (MCLR) IS SET IN THE MICROPROCESSOR, IBUS REG 14 IS READ
* AND COMPARED TO 200.

‘337

MR AR sttt

‘331

LA R

AR St ddd

ittt

22232222222%223

gty

T2223222%3;

TEST 3 - INBUS/OUTBUS REG 14 READ/WRITE BIT TEST

WRITE, READ, AND COMPARE ALL WORDS OF DATA PATTERN A INTO REG 14,
A BYTE AT A TIME. NON-R/W BITS ARE MASKED OFF TO O BEFORE WRITING AND
READ ING

—_

4338

AR RS

4351

4352

DATA PATTERN A = 125,252,000 377,001,002,004,010,020,040,100,200,376,
$75.573.%67.357,%37,%77.177.
Al s

A A

R A A A AR A A AR

I3 3322222232323322222222223

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

TEST 4 - REG 14 MASTER CLEAR TEST

2%22

* %1550377 INTO REG 14,

4355

.
SRR

AR AR A AR AR

ISSUE MASTER CLEAR, READ REG 14 AND COMPARE

AR AR

A AR RN AR AN AR AR R AR R AR

AR R R R AR

A AR RN

R AR AN RN RN

CZDMRA M8203 STATIC DIAG M
CZDMRA.P11
18-JUL=79 09:44

MACY11 30A(1052)
18-JuL=79
PROGRAM DOCUMENT

09:53

PAGE 6~1

SEQ 0022

4360
4361

23322’

* %1550377 INTO REG 14, ISSUE UNIBUS RESET (INIT), READ REG 14 AND COMPARE

4362

4365

4366
4367
4368
4369
4370
4371

TEST_5 = REG 14 UNIBUS RESET (INIT) TEST

2%;%

L LI

T T

TEST 6 = LINE UNIT FALSE SELECTION TEST
B

4374
4375
4376
4377
4378

*
*
*
~
*

FIRST, A MASTER CLEAR IS PERFORMED. THEN, THE PROGRAM SINGLE-STEPS THE
MICROPROCESSOR THROUGH AN INSTRUCTION WHICH LOADS 041 (OCT) INTO THE MAR
REGISTER (0BUS* ADRS 14). THEN, THE LINE UNIT REGISTER 14 IS READ AND CHECKED
TO BE UNAFFECTED (STILL = 0). THIS TEST IS INTENDED TO DETECT A FALSE
SELECTION OF THE LINE UNIT REGISTERS, WHEN THE LINE UNIT IS NOT BEING

4379
4380

* ACCESSED.
R

4386
2332;

R
e
T L T
T
TEST 7 = INBUS REG MASTER CLEAR TEST

4381
4382
4383
4384
4385

~
W

439

4393
439%
4395

‘.3%

4397
4398
4399
4400
4401
4402

* FIRST, ALL READ/WRITE BITS OF REGS 10-17 ARE SET BY LOADING A
~ DIFFERENT WORD OF PATTERN G INTO EACH REG.
THEN,

* A MASTER CLEAR IS ISSUED AND EACH REG IS READ AND COMPARED TO A WORD OF
2

4389
4390

4411
“412

4413
4414

THE REGS.

(UNPREDICTABLE

.'tIttttttttfittttttttt*tt.ttttttttifitttfittfifit.ifi'tfitttt.lti.titt"itfitt.t't.ttt'
*

“10

INITIALIZED STATES OF

3ttt'tttttttttt"ttttttt"tttfittit..fi"fittfilittttt.ttt.l.Qttt.ttfit.t'tt'.tt'.t'

403
4405
4406
4407
4408
4409

PATTERN M, WHICH CONTAINS THE

*~ BITS ARE MASKED OFF TO 0 BEFORE COMPARISON).
*
PATTERN G = 000,000, 240,120, 177,000,000, 001
*
PATTERN M = 000.020,000.000,200.000.000.051

*
*
«
«
*

TEST 8 - REGISTER 10-17 ADDRESSING TEST
FIRST, A MASTER CLEAR IS ISSUED. THEN,
WRITE A DIFFERENT WORD OF DATA PATTERN B INTO EACH OF REGS 10-17,
AND AFTER EACH WRITE, READ AND COMPARE ALL REGS TO EXPECTED VALUES.
UNPREDICTABLE BITS ARE MASKED OFF TO O WHEN READ FOR COMPARISON.
PATTERN B = 000,000,040, 100,220,000,000,051

-..tI'Q'Qtt.fitl....ttt..fi"'tt.fi..tfi.fi...ti...t.l't!‘fi.t.!t't.i.'."ltt..t"fit.t

A A

2
PAGE 6~2

SEQ 0023

AR A AR A AR AR AR AR AR AR AR AR AR

AR AR AR AR

AR AR AR

TEST 9 = REG 11 READ/WRITE BIT TEST
*
L]

WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN C INTO REG 11

DATA PATTERN C = 020,020,020.

SRR

AR AR A A A AR A

A A A

A A

A A AR AR A AR

AR AR R A AR AR AR AR AR AR AR

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

AR AR

AR AN AR

AR AR

TEST 10 - REG 12 READ/WRITE BIT TEST
*

WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN D INTO REG 12

DATA PATTERN D = 000,040,000.

*
R

A AR AR

AR A AR AR A AR AR AR AR AR AR AR AR AR AR AR

TEST 11

AR AR AR A AR AR

2222222

- REG 13 READ/WRITE BIT TEST

*
*

WRITE,

READ, AND COMPARE EACH WORD OF

DATA PATTERN E

DATA PATTERN E = 000,120,020,100,120,000.

*
MR

INTO REG 13
eI

eIt

TIII

2222222222

222222222

TEST 12 - REG 17 READ/WRITE BIT TEST
*

*
*

WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN F
DATA PATTERN F = 050,051,050.

2B 2

4621
4422
4423
G624

4619
4420

OGRAM DOCUMENT

09:53

INTO REG 17 :
I3

22222222223

IT2132232322323222233

TEST 13 - MAINTENANCE CLOCK BIT TEST
FIRST, A MASTER CLEAR IS ISSUED TO INIT ALL REGS.

THEN, THE MICROPROCESSOR

IS PLACED IN A LOOP ON AN INSTRUCTION, BY SETTING THE INSTRUCTION IN SEL6

AND SETTING ROMI AND RUN IN BSEL1.

THE INSTRUCTION IS ONE WHICH REPETITIVELY

2N 2B 2

4617
4618

18-JUL-79

READS LINE UNIT REG 17 INTO BSEL2. THE PDP-11 CAN THEN SCAN BSEL2 TO MONITOR
;#&{?&%{E CLOCK BIT, MCLK. THE FOLLOWING SEQUENCE IS THEN PERFORMED

4616

18=JUL=79 09:44

= THE PROGRAM REPEATEDLY CHECKS THE MCLK BIT FOR THE 1 STATE, AND IF IT IS
NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC (DEPENDING ON THE PROCESSOR)
AN ERROR IS REPORTED. (THE MAINTENANCE CLOCK HAS A PERIOD OF 41.6 MICRO-

CZDMRA.P11

MACY11 383(1052)

CZDMRA MB203 STATIC DIAG #1

CZDMRA MB203 STATIC DIAG M
CZDMRA.P11 ~ “18=JUL=79 09:44
4472
4473
4474
4475

MACY11 30A(1052)
18-JUL-79
PROGRAM DOCUME

09:53

2
PAGE 6-3

*
SEC).
* = THE PROGRAM NEXT REPEATEDLY CHECKS THE MCLK BIT FOR THE O STATE, AND IF
*
IT IS NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC AN ERROR IS REPORTED.
* - THE PROGRAM NEXT REPEATEDLY CHECKS MCLK BIT FOR THE 1 STATE AGAIN, AND

IF IT IS NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC, AN ERROR IS REPORTED.

4478
4479
4‘80

* IF THE P-TABLE FOR THIS UNIT INDICATES THAT THE MICROPROCESSOR RUN SWITCH
« IS OFF, THE TEST WILL BE SKIPPED.

,t.ttttQti"titttt.t.tfiit"ttQ.fit.'t.....t'.tt.'.lt'fiQfit'tfi..'."..'.ttt..'t"'

4481
4482
4483

4as

4486

;iQ't!tti'tQ.t'.Q.ltfittt'Qtfi..fitttttt.Qlt'tt'ltt'..'.t.tt.'fi.t'ttfi'ti.'%..ttt't

waer

TEST 14 - EXTENDED REGISTER MASTER CLEAR TEST
*

4489
4490
4491
4492
4493
449%
4‘95

4496
4497
4498
4499
4500

4501

*
*
*
+
*
*

FIRST, ALL READ/WRITE BITS OF EXTENDED REGS AX0-AX3 ARE SET
87 LOADING
A DIFFERENT WORD OF PATTERN M INTO EACH REG. THEN, A MASTER CLEAR IS

ISSUED AND EACH REG IS READ AND COMPARED TO A WORD OF PATTERN I, WHICH
CONTAINS THE INITIALIZED STATES OF AL THE EXTENDED REGS.
PATTERN H = 000,000,377,017,377,377,375,377
PATTERN I = 000,000,000,000,000,103.000.000

.t'*titit'ttttttfi...tttt'i.iittfi!ttfittt.t!.fit.*fi.t.'ttfi.i.ltt...t.t..'t.i.ttt"

:tttQtttttfitititt'fi'tttfi'tt.fifi.i't.tt.l't.....ttfi.‘fi.i'Qtt."fi.ltttt't*t..'tt.'

4302

TEST 15 - EXTENDED REGISTER ADDRESSING TEST
*

4504
4505

* FIRST, ISSUE A MASTER CLEAR TO PUT REGS INTO INITIALIZED STATES SHOWN IN
* PATTERN I. THEN, WRITE A DIFFERENT WORD OF PATTERN J INTO EACH EXTENDED (AX)

4506

* REG, AND AFTER EACH WRITE, READ AND COMPARE ALL EXTENDED REGS TO EXPECTED

4508

4510

'ttttQtttt.'*t.fi.ttfittti.t"tlfi'fii.Qfitt.tfiit'tl'..Q.fifiiQtt'fitttt'fi"tt"t'.t..!

4509

PATTERN 1 = 000,000,000,000,000,103,000.,000

PATTERN J = 000,000,001,002.004.103.040.100

4511
4512
4513

{315

4516

:Q'..ttttttt'.tt'ttfi'tt.tttfi.fififitt.fit.'tfi"t.fit.t."tttfi'tl'it'.t'..'tt"t't'..

4817

TEST 16 - REGS 15,16 / AX2-15,AX2-16 READ/WRITE BIT TEST
*

4519

4520
4521
4522
4523
4524
4525
4526
4527

* USING REGS 15,16, THE INDIRECT REGS AX2-15,AX2-16 (USYRT REGS 4,5) ARE

* WRITTEN AND READ USING EACH_ WORD OF PATTERN K. AX2-15 IS_COMPARED
* TO THE WORD WRITTEN, AND AX2-16 IS ALWAYS COMPARED TO 103. (AX2-16 IS NOT
* WRITEABLE).
*
PATTERN K =
.
FOR REG 15: 000.377,125.252.001.002.004.010.020.040.100.200.900.000,
.
000.000.000.000.000.000.376.375.373.,367,357.337.277.177.
.
377.377.377.377.377.377.377.377
.
FOR REG 16: 000.377.125.252.000,000,000.000.000,000,000,000,001,002

SEQ 0024

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=-JUL=79 09:44

MACY11 30A(1052)

18-JUL=79

09:53

PROGRAM DOCUMENT

4528
4529

*
*

‘S}o

AR A

A A

LA ARt AR

Rttt

2
PAGE 6=4

SEQ 0025

004,010,020,040,100,200,377,377,377,377,377,377,377,377,
376,375,373,367,357,337,277
,177.

A A A

AR A A AR AR AR AR AR

AR AR R AR AR AR AR AR AR AR AR ARSI AR

4531
4532
4533
4536

22%

ittt

T2 2222222}

TEST 17 = AX0-15,AX0-16 READ/WRITE BIT TEST
*

4539

* IN THIS TEST, A MASTER CLEAR IS DONE, AND THEN A WRITE, READ, AND COMPARE

4540
4541
4542
4543
4544
4545

* ARE PERFORMED IN REGS AX0-15,AX0-16 USING EACH WORD OF PATTERN L.
* ANY BITS IN AX0-15,AX0-16 WHICH ARE NOT READ/WRITE ARE MASKED OFF (TO 0)
* IN THE EXPECTED VALUE BEFORE COMPARISON.
*
PATTERN L =
*
FOR REG 15: 000,377,000
*
FOR REG 16: 000,377,000.

4546

SRR AR A AR A

AR AR A

A A AR A A

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

AN AR R AR AR

4547
4548
4549
‘Ssz

ARttt

zggz

ittt

1322222222223

TEST 18 - AX1-15,AX1-16 READ/WRITE BIT TEST
*

4555

* IN THIS TEST, A MASTER CLEAR IS DONE, AND THEN A WRITE, READ, AND COMPARE

4556

* ARE PERFORMED IN REGS AX1-15,AX1-16 USING EACH WORD OF PATTERN K.

4559

4557
4558

* ANY BITS IN AX1-15,AX1-16 WHICH ARE NOT READ/WRITE ARE MASKED OFF
* IN THE EXPECTED VALUE BEFORE COMPARISON.
E SRttt

ittt

(TO 0)

T3 132322222233

4560
4561
4562
4565

25529

MR d A g

ettt ettt

IT3232323222322232323

TEST 19 - AX3-15,AX3-16 READ/WRITE BIT TEST
L1

4568
4569
4570

* IN THIS TEST A MASTER CLEAR_IS DONE AND THEN A WRITE, READ, AND COMPARE ARF
* PERFORMED IN REGS AX3-15,AX3-16 USING EACH WORD OF PATTERN V FOR WRITING,
* AND PATTERN U FOR _COMPARING.

4572
4573

* IN THE EXPECTED VALUE BEFORE COMPARISON.
*
PATTERN V =

4571

* ANY BITS IN AX3-15,AX3-16 WHICH ARE NOT READ/WRITE ARE MASKED OFF

4574
4575

*
*

4577
4578
4579
4580
4581
4582

*
*
*
*
*
*

4576

4583

(TO 0)

FOR REG 15 : 000,333,331,323,313,233,133,000,000,000,000,
»000,000,000,000,000,000,000

FOR REG 16 : 000,000,000,000,000,000,000,001,002,004,040,

100,200,346,345,343,307,247,147
PATTERN U =
FOR REG 15 : 000,001,013,011,021,101,301,000,000,000,000,
000,000,000,000,000,000,000,000
FOR REG 16 : 000.000.000.008.002.200.
.001,002,004,040,
100,200,346,345,343,307,247,147

AR R A

ittt I T

1133222323 22232223}

1 8-JUL-79
PROGRAM DOCUMENT

MACY11 30A(1052)

LA AR

09:53

2
PAGE 6~5

SEQ 0026

e ettt
I
2222222240

2R JEBF

2B J

TEST 20 = REG 17 = AX2-16 READ/WRITE, MASTER CLEAR TEST
THIS TEST CONSISTS OF 2 SUBTESTS.

IN THE FIRST SUBTEST, EACH BYTE OF PAT O

IS WRITTEN INTO REG 17 AND AFTER EACH WRITE, AX2-16 IS READ AND COMPARED

TO A BYTE OF PAT P,
PATTERN 0 = 000,041,004,010,020,040,100,101,200,201,300,111,301,375
PATTERN P = 000,113,200,040,020,010,001,104,007,105,007,144,107,157

IN THE_SECOND SUBTEST, REG 17 IS LOADED WIiTH 575, A MASTER CLEAR IS ISSUED,

AND AX2-16 IS COMPARED TO ITS INITIALIZED STATE (103).

LR AR

ittt

d ittt
eIt
123122222223222 2222203

AR AR AR RN AR

R AN AR AN

AR AR

TEST 21 = TRANSMITTER BUFFER DATA TEST
A MASTER CLEAR IS DONE FIRST, AND THEN A BYTE OF PATTERN N IS LOADED INTO
REG 11 AND THE NEXT BYTE IS LOADED TWICE INTO REG 10. THE PROGRAM THEN WAITS
AT LEAST 50 MICRO-SEC, AND THEN IT READS AND COMPARES AX1-15 TO THE BYTE WHICH

WAS LOADED INTO REG 10, AND IT READS AND COMPARES AX1-16 TO THE BYTE WHICH WAS
LOADED INTO REG 11.

THIS PROCESS IS REPEATED (INCLUDING THE MASTER CLEAR)

FOR EACH PAIR OF BYTES IN PATTERN N.
PATTERN N =

FOR REG 10: 000,125,252,377,000,000,000
FOR REG 11: 000,000,000,000,005,012,017

»
%

SRR AR AR A AR RN AR A A AR AR AR AR

st st

sttt

ittt

IT113%123222224223

Rl ittt
Il
I Il
1322222222223

TEST 22 = TRANSMITTER BUFFER SEQUENCING TEST
FIRST, A MASTER CLEAR IS DONE, AND THE PROGRAM CHECKS FOR ORDY=1, OCOR=0.

THEN, 2 TSOM CHARS ARE LOADED INTO THE TX SILO, AND ALLOWED TO RIPPLE
DOWN TO THE OUTPUT. THE PROGRAM CHECKS FOR ORDY=1, OCOR=1.
NEXT, THE PROGRAM CYCLES THE STEPLU BIT UNTIL OCOR=0 AGAIN, AND CHECKS FOR
THIS TO OCCUR WITHIN 3 CYCLES.
THE SILO IS THEN FILLED WITH 64 BYTES OF A 256-BYTE BINARY COUNT PATTERN

(000-377) AND THE PROGRAM CHECKS FOR ORDY=0 AFTER THE €4TH CHAR IS LOADED.

THE PROGRAM CYCLES STEPLU FOR 8 CYCLES AND CHECKS THAT AFTER THE 8TH, ORDY=1,

AX1-15 IS READ AND COMPARED TO EXPECTED DATA.

THE REST OF THE BINARY COUNT DATA BYTES ARE LOADED, CYCLED 8 CLOCKS, READ AND
5%‘\8539 ? BSZ&A(I; A TIME. UPON COMPLETION, THE SILO IS CHECKED TO BE EMPTY

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

ettt

1213232222323

22222222322

CZDMRA 8203 STATIC DIAG #1

CZDMRA.P11
4640
L6461
4642

4643

18=JUL=79 09:44

MACYT1 30A(1052)

PROGRAM DOCUMENT

4652
4653

4654
4655
4656

3
PAGE 6-6

SEQ 0027

TEST 23 = Tx M5G TIMING TEST, CHAR MODE, WITH CRC

4650
4651

09:53

R LI
I

2&?

4646
4647
4L64LB
4649

18-JuL=79

*
*
*
*

*
*
*
*
*
*

THE FOLLOWING STEPS ARE DONE:
A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN CHAR MODE.

SOM IS SET TWICE TO SEND 2 SYNCH CHARS.
THEN 2 TERMINATING SYNCHS ARE SENT.

THEN, 2 000 CHARS ARE SENT, AND

THE TRANSMITTER IS THEN DISABLED, USING OC, AND OACT IS MONITORED FOR THE
CLEARED STATE AFTER THE 3RD SYNCH COMPLETES.

I I

4657

4658
4659
4660
4661

4662

2222
*

4665
4666
4667
4668
4669

4670
4671
4672
4673

4674
4675

4676
4677
4678
4679
4680

4,681

22g§

4684
4685

A AR AR AR AR AR

AR RRRARRRRRRRRR AR

RRAARRRRRAANRRAAAN AR

R RN

TEST 24 - TX MSG TIMING TEST, BIT MODE, WITH CRC

* IN THIS TEST, AN ENTIRE MESSAGE IS TRANSMITTED (USING STEPLU AND LULOOP)
AND THE PROGRAM MONITORS THE OCCURRENCE OF USYRT TX BUFFER EMPTY FLAGS
(BY SCANNING ORDY AND OCOR) AND OACT, AT EACH STEP. THE TEST IS DONE IN
BIT ORIENTED PROTOCOL MODE, USING 8-BIT CHARS AND CRC-CCITT=-1.
THE FOLLOWING STEPS ARE DONE
:

*
*
*
*

A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN BIT MODE.
SOM IS SET TWICE TO SEND 2 FLAG CHARS. THEN, 2 000 CHARS ARE SENT, AND
THEN 2 TERMINATING FLAGS ARE SENT.
THE TRANSMITTER IS THEN DISABLED, USING OC, AND OACT IS MONITORED FOR THE

* CLEARED STATE.
R

B
"

I I

T T R R LTI

TEST 25 = TX MSG TIMING TEST, CHAR MODE, WITH NO CRC

* IN THIS TEST, AN ENTIRE MESSAGE IS TRANSMITTED (USING STEPLU AND LULOOP)
* AND THE PROGRAM MONITORS THE OCCURRENCE OF USYRT TX BUFFER EMPTY FLAGS

4686
4687
4688
4689
4690

* (BY SCANNING ORDY AND OCOR) AND OACT, AT EACH STEP. THE TEST IS DONE IN
* CHARACTER ORIENTED PROTOCOL MODE, USING 8-BIT CHARS AND NO ERROR CHECKING.
* THE FOLLOWING STEPS ARE DONE:
* A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN CHAR MODE.
* SOM IS SET TWICE TO SEND 2 SYNCH CHARS. THEN, 2 000 CHARS ARE SENT, AND

4693
4694

* THAT THIS HOLDS RTS HIGH PAST THE END OF THE MESSAGE.
* THE TRANSMITTER IS THEN DISABLED, USING OC, AND OACT IS MONITORED FOR THE

4691
4692
4695

* THEN 2 TERMINATING SYNCHS ARE SENT.
* THE TEST IS PERFORMED WITH TXEN (REG 14, BIT6) SET, AND THE PROGRAM CHECKS

* CLEARED STATE.

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
4696

MACY11

30A(1052)
18-JuUL-79
PROGRAM DOCUMENT
PR

R AR AR R R R

09:53

R R AR R

PAGE 6-7

SEQ 0028

AR AR R R R RN AR AN R AR AR AR AR

R AR AR RN AR RRRAR NN AR RARRRS

4697
4698
4699

470
4702

2;82
*

R AR AR AR AR AR R AR AR AR

AR AR AR A AR AR

R AR AR AR R

AA RN A

AR AR RRARARNRRR AR AR

TEST 26 = TX UNDERRUN SET AND CLEAR TEST = CHAR MODE

4705
4706
4707
4708
4709
4710
4711
4712
4713
4714

*
*
*
~
*
*
*
~
*
*

4716
4717
4718
4719
4720
4721
2;5%

SRR AR AR AR R AR AR AR AN AR AR AN AR R AR AR NN AR AR AR A AR AR AN RRANARAARA AR AR
TEST 27 = TRANSMIT CHAR LENGTH TIMING TEST = CHAR MODE, CRC

4715

IN THIS TEST, A TX UNDERRUN ERROR IS FORCED IN EACH OF 2 SITUATIONS,
AND THEN CLEARED DIFFERENTLY IN EACH.
IN THE FIRST, A MESSAGE IS INITIATED, A 000 CHAR IS SENT, AND THE TX
BUFFER IS NOT SERVICED IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG,
UHICH CAUSES UNRR TO SET IN REG 11. THEN, SOM IS SET TO CLEAR THE ERROR
AND THIS IS VERIFIED.
IN THE SECOND SITUATION, A MSG IS INITIATED, A 000 CHAR IS SENT, AND THE TX
BUFFER IS NOT SERVICED IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG, WHICH
AGAIN CAUSES UNRR TO SET. THEN, A MASTER CLEAR IS DONE, AND THE UNRR BIT
]S CHECKED TO BE CLEARED.

SRR AR AR AR R AR AR R

AR R AR RN

A AR

AR AR AR AR AR AR

RRARA AR

AR AR RN

AR AR

4724
4725

4726

4727
4728

4729

4730
4731
4732
4733
4734
4735

* THE LINE UNIT IS PLACED IN CHAR MODE (DDCMP) AND A MESSAGE IS INITIATED
* WITH AN 8-BIT SYNCH AND A 5-BIT SYNCH CHAR. NEXT, A 000 CHAR IS SENT WITH

* EACH OF THE FOLLOWING TX CHAR LENGTHS : S BITS, b BITS, 7 BITS, 8 BITS.

~ (FOR EXAMPLE, A S-BIT CHAR REQUIRES 5 CLOCK CYCLES TO BE TRANSMITTED).
* TERMINATING SYNCHS ARE SENT AFTER THE DATA.
SRR

SRR R

AR AR

2;%9
*

AR A AR AR AR AR AR AN R A AR

AR RN

AR AR R R

R AR RA AR AR AR AR AN

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

RN RAA RN

TWO
AR

ARSI AR

TEST 28 = TRANSMIT CHAR LENGTH TIMING TEST - BIT MODE, CRC

4738
4739
4740
4741

* THE LINE UNIT IS PLACED IN BIT MODE AND A MESSAGE IS INITIATED
* WITH 2 FLAG CHARS. NEXT, 2 8-BIT 000 CHARS ARE SENT, FOLLOWED BY 000 CHARS
* UITH EACH OF THE FOLLOWING TRANSMITTER CHAR LENGTHS:
*
1 8IT, 2 BITS,
3 BITS, 4 BITS, 5 BITS, 6 BITS, 7 BITS, AND 8 BITS.

4743

* TWO TERMINATING FLAGS ARE SENT AFTER THE DATA.

4742

4744

4745
4746
4747
4748
4749
4750

4751

* (FOR EXAMPLE, A 5-BIT CHAR REQUIRES 5 CLOCK CYCLES TO BE TRANSMITTED).
SRR AR

SRR AR

AR AR AR AR AR A AR R A AN AR AR R AR AR AR AR AR AR R

A AR AR

AR A AR AR AN AR AR R A AR R AR AR R AR AR R AR

TEST 29 = TXDATA BIT TFST - CHAR MODE, NO CRC

AR AR AR R AR AR AR AR

RN R

AR R R RN R R AR AR AR RRANA RN RN R R

4779
4780
4781

4782
4783
4784
4785
4786
4787

4788
4789
4790
4791
4792

4793
4794

PAGE 6~8

SEQ 0029

SRR

»
%
%
%
»*

SRt ettt
I222222222222222 2

THE LINE UNIT

INITIALIZED AND A MESSAGE

INITIATED

(USING STEPLU)

WITH

LULP (REG 12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, AND WITH CRC-16

SELECTED. TWO SYNCHS, 000,125,252,377,000, AND FOUR TERMINATING SYNCHS ARE
SENT. THE PROGRAM MONITORS IACT, AND THE RCV'D CHARS AND CRC BYTES ARE READ
FROM AX0-=15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR IACT

= 0 AFTER RECEIVER SHUTDOWN.
SRS

MLAAA

LSRR

23222223232222232222222223

322212332222322222223222222223

TEST 31 = USYRT RECEIVER MSG TEST - BIT MODE, CRC

SRsttt
i
eI
222222322322222222222223

TEST 30 - USYRT RECEIVER MSG TEST - CHAR MGDE, CRC

THE LINE UNIT

INITIALIZED AND A MESSAGE

IS INITIATED

(USING STEPLU) WITH

LULP (REG_12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, AND WITH CRCCCITT=1. TWO FLAGS, 000,125,252,377,000, AND TWO TERMINATING FLAGS ARE THEN
* SENT. THE PROGRAM MONITORS IACT, RSOM, AND THE RCV'D CHARS ARE READ

* FROM AXO-15 AND COMPARED TO EXPECTED VALUES.

THE PROGRAM THEN CHECKS FOR

* JACT = 0, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT STILL = O.
MALAL AR

4795

d a2
22322222222233322222

s st
2222232232222222;

TEST 32 = USYRT RECEIVER MSG TEST - CHAR MODE, NO CRC
THE LINE UNIT

INITIALIZED AND A MESSAGE

INITIATED

(USING STEPLU)

LULP (REG 12) SET TO LOOP THE DATA_INTERNALLY IN THE USYRT, AND WITH NO
ERROR DETECTION. TWO SYNCHS, 000,125,252,377,000, AND TWO SYNCHS ARE
THEN SENT.

THE PROGRAM MONITORS

WITH

IACT, AND THE RECEIVED CHARS ARE READ FROM

AXO=15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR IACT
STILL = 0, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT = 0.

AR AR RS

4796
4797
4798
4799
4800

09:53

THE LINE UNIT IS INITIALIZED AND A MSG IS INITIATED (USING STEPLU) WITH CRC=
16 SELECTED IN CHAR MODE. TWO SYNCHS, 000,125,252,377.000, AND 2 TERMINATING
SYNCHS ARE THEN SENT. THE PROGRAM CHECKS EACH BIT OF THE TRANSMITTVED
DATA CHARS, BY MONITORING TXDATA (REG 17) AS THE DATA IS CLOCKED OUT OF
THE USYRT TRANSMITTER.

4767
4768
4769
4770
4771
4772
4773
4774
4775
4776
4777
4778

PROGRAM DOCUMENT

4766

18-JuL-79

4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
L762
4763
4764
4765

MACY11 30A(1052)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

s 22232223233232322222323222222222122%

CZDMRA M8203 STATIC DJAG #1

CZDMRA.P11
4808

4809

18=JUL=79 09:44

MACY11 30A(1052)

4819
4820
4821
4822
4823
4824

*
*
*
*
*
*

AR AR

PAGE 6~9

SEQ 0030

R AR R AR AR AR AR R AR

RRRRRRRRA

TEST 33 - USYRT RECEIVER MSG TEST - BIT MODE, NO CRC

4818

09:53

PROGRAM DOCUMENT

ll:g‘}?

4812
4813
4814
4815
4816
4817

18=JuL=79

THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU) WITH
LULP (REG 12) SET TO LOOP THE DATA INTERNALLY_ IN THE USYRT, AND WITH ERROR

DETECTION INHIBITED. TWO FLAGS, 000,125,252,377,000, AND TWO TERMINATING FLAGS
ARE THEN SENT. THE PROGRAM MONITORS IACT, RSOM, AND THE RCV'D CHARS ARE
READ FROM AXO=15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR
IACT = 0, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT STILL = 0.

SRR

23222

KRR AR AR AR AR AR RA A AR

AR AR

R AR R

R AR AR R AR

RN AR

RN R

RN AR

AR AR RN

RRF

AR AR

AR RN

RRRRAREARRRNE

R AR

AR AN

TEST 34 = SILO-DISABLED TRANSMITTER LOAD TEST
*

4827

* THIS TEST DISABLES THE SILOS, LOADS A 125 CHARACTER INTO THE TX SILO, AND

4830

:-'..nt-;t'n-tttt-ttn-nnttttattttttttttttttttttttttttttttttnt-tt'tttt-.t.--.-n--

23228

4831
4832
4833
4834
4835

4,836
23%

. %??ERAH-H AND CHECKS THAT THE DATA DID NOT GET LOADED INTO THE USYRT TX
*

*
~
*
*
.

4,846

4852

R
*

232;

4859

4860
4861
4862
4863

R AR AR

NA R RN R RN RAR AR

WITH LULP (REG 12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, WITH SILO
DISABLE SET, AND WITH NO ERROR DETECTION. TWO FLAGS, 000,125,252, AND
TERMINATING FLAGS ARE THEN SENT BY LOADING THE TRANSMITTED CHARS INTO
REG AX1. THE PROGRAM MONITORS OACT, IACT, RSOM, REOM, ORDY, OCOR, ICIR,
I:LD&SAM THE RECEIVED CHARS ARE READ FROM AXO AND COMPARED TO EXPECTED

;t!ttt.t;tttttttttttttttt!"tttttl.tttttt'tQ'tttttttttttttttt'tttttttt'tttttt'Q

2222

4855
4856

AR R AR AR AR AR AR AR R

* THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU)

4840
4841
4842
4843
2222

4847
4848
4849
4850
4851

R R AR AR

TEST 35 = SILO-DISABLED MESSAGE TEST - BIT MODE, NO CRC

4839

R R AR

A AR

R R A AN AR AN AR R AN NN R AR AR AR R R ARRR R R AN RARARRRRANAR

TEST 36 - RECEIVER BUFFER TEST - CHAR MODE, CRC

* FIRST, A MASTER CLEAR IS DONE AND THE PROGRAM CHECKS FOR ICIR = 1 AND IRDY
* = 0. THEN, 2 SOM CHARS ARE LOADED AND CLOCKED INTO THE USYRT, AND 64

. ?;gf?xoglftf%qeflf BINARY COUNT DATA PATTERN (000-377) ARE LOADED INTO

* THE LINE UNIT IS THEN CLOCKED UNTIL IRDY = 1, AND THE PROGRAM CHE(CKS FOR

*
*
*
*

THIS TO OCCUR WITHIN 40-43 CYCLES. THE PROGRAM READS THE RCV SILO, CHECKS THE
CHAR FOR 000, AND CHECKS FOR IRDY = 0 AGAIN,
THE LINE UNIT IS THEN CLOCKED IN GROUPS OF 8 CYCLES, AND AFTER EACH, THE
PROGRAM CHECKS FOR ICIR = 1, IRDY = 1, UNTIL THE 64TH GROUP, AFTER WHI(H

®
»
*
®
¥

IRDY = 1,

SEQ 0031

THE SECOND DATA CHAR IS READ FROM THE
THEN,

THE PROGRAM (CHECKS FOR ICIR = 1,

THE REST OF THE BINARY COUNT DATA BYTES ARE CYCLED 8 CLOCKS AND READ AND
COMPARED A BYTE AT A TIME.

ARl

A
B
N
B
B
B
R
LR

THE LINE UNIT

ettt i1
2222222

IN CHAR MODE,

WITH NO ERROR DETECTION, AND A MSG

TRANSMITTER SILO. THE LINE UNIT IS THEN CLOCKED USING STEPLU WITH LULOOP
SET, WHILE THE RECEIVER CHAR LENGTH IS SET TO THE FOLLOWING VALUES : 5,6,7.8.
FOR EACH RCV_CHAR LENGTH, THE PROGRAM CHECKS TO MAKE SURE THET USYRT RECEIVER

FLAGS OCCUR THE PROPER NO.

CYCLES APART,

FOR EACH RCV CHAR LENGTH.

(FOR EXAMPLE A 5-BIT CHAR TAKES 5 CLOCK CYCLES TO BE RECEIVED).
CLEAR IS THEN DONE TO TERMINATE THE OPERATION.

MALAE AL

IS PLACED

INITIATED WITH 2 SYNCH CHARS. NEXT, FIFTEEN 000 CHARS ARE LOADED INTO THE

LA AL AL

4890
4891
4892
4893
4894
4895
4896
4897
4898
4,899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919

3
PAGE 6-10

TEST 37 = RECEIVER CHAR LENGTH TIMING TEST = CHAR MODE, NO CRC

4,886
4887
4888
4889

IT CHECKS FOR ICIR = 0,

?SS$IVE? iék?NAND COMPARED TO 001.

LA AA LRSS

4884
4885

09:53

A ARSI
eI I
222222222222222222222%;

4870
4,871
4872
4873
4874
4875
4L876
4L877
4,878
4L879
4880
4,881
4,882
4883

18=JUL-79

PROGRAM DOCUMENT

4864
4865
4866
4867
4868
4869

18-JUL=79 09:44

30A(1052)

CZDMRA.P11

MACY11

CZDMRA M8203 STATIC DIAG #1

SRR

A MASTER

2232222222223222222222%;

Rttt ettt
I3 22322222223322223

TEST 38 - RECEIVER CHAR LENGTH TIMING TEST - BIT MODE, NO CRC
THE LINE UNIT

INITIATED

IS PLACED IN BIT MODE WITH NO ERROR DETECTION, AND A MESSAGE

WITH 2 FLAG CHARS. NEXT, FIFTEEN 000 CHARS ARE LOADED INTO THE

TRANSMITTER SILO. THE LINE UNIT IS THEN CLOCKED USING STEPLU WITH LULOOP
SET, WHILE THE RCV CHAR LENGTH IS SET TO THE FOLLOWING VALUES : 8,8.8.7.6.5.

4,3,2,1. FOR EACH RCV CHAR LENGTH, THE PROGRAM CHECKS TO MAKE SURE THAT THE
USYRT RECEIVER FLAGS OCCUR THE PROPER NO. OF CYCLES APART, FOR EACH RCV
CHAR LENGTH. (FOR EXAMPLE, A 5 BIT CHAR TAKES 5 CLOCK CYCLES TO BE RECEIVED).

A MASTER CLEAR IS THEN DONE

AR S

TO TERMINATE

TEST 39 - TRANSMITTER UNDERRUN ERROR,

THE OPERATION.

i3 22222323232222223222222222%;

223222222222203

iDLE MARKING, CHAR MODE ,NO CRC

* THE LINE UNIT IS PLACED IN CHAR MODE, AND THE
* MSG IS INITIATED, A 000 CHAR IS SENT, AND THE

IDLE BIT IS SET.
TX BUFFER IS NOT

THEN, A
SERVICED

* IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG, WHICH CAUSES A TX UNDERRUN
* ERROR. THEN, THE RECEIVER IS CLOCKED AND CHECKED FOR TWO 377 CHARS TO BE
* RECEIVED

(LINE MARKING) BEFORE SHUTTING DOWN WITH A MASTER CLEAR.

:.tttt'tfi.ttttttttt"fittfit.'fifi!tt'.ttt't.fi'tttfittt"tttt.'ttttittt"'t'fit.tt"t

(ZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

MACY11

30A(1052)
18-JuL-79
PROGRAM DOCUMENT

09:53

PAGE 6-11

SEQ 0032

4920
4921
SRR

*
i

*
*
*
*

*
*
*

A R A AR AR AR

AR A A A AR

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

AR AR R AR AR AR AR R

TEST 40 = MSG TERMINATION WITH GA CHARS = BIT MODE,NO CRC

*
*

A A

THE DEVICE IS ENABLED FOR TRANSMIT AND RECEIVE, AND A MESSAGE
INITIATED IN BIT MODE.

2 FLAG CHARACTERS ARE SENT, FOLLOWED BY
THE FOLLOWING DATA CHARACTERS

000,

125,

252,

377, 000.

THEN THE LOOP

MODE BIT (STRIP) IS SET AND 2 TERMINATING GO-AHEAD CHARACTERS ARE
SENT. EACH USYRT RCV FLAG IS TIMED AS IT IS RECEIVED, AND THE 5 DATA
WORDS ARE READ AND COMPARED TO EXPECTED VALUES.
ALSO, THE FIRST GA (HAR IS CHECKED BY SCANNING THE TXDATA BIT AS THE GA
IS BEING TRANSMITTED (GA = 376 OCTAL).
THE

TEST ALSO CHECKS FOR SETTING OF

IN LOOP MODE.

RAB AND EBLK

eI 222323223223223232222222322222222%;

:tt'ttt'ttttttttttttttt*it"fifi‘Q*t.tttfit.i'tfifittttttl.tttfittt'ttt'.'tt.

BF BE

TEST 41

- IDLE SYNCHS TEST - CHAR MODE

THE DEVICE

IS ENABLED FOR TRANSMIT AND RECEIVE,

AND A MESSAGE

INITIATED IN CHAR MODE. 24(DEC) SYNCHS ARE SENT.
EACH SYNCH IS TIMED AS IT IS RECEIVED, AND THE BITS ARE CHECKED

FOR A VALID SYNCH CHAR FOR EACH OF THE 22 SYNCHS WHICH FOLLOW
THE FIRST TWO (THESE PERFORM SYNCHRONIZATION, AND ARE NOT READ).
WHILE THE LAST SYNCH IS BEING TRANSMITTED, 0C IS SET. AND THE

NEXT CHAR RCV'D AFTER THE SYNCH IS CHECKED TO BE 377 (LINE MARKING).
THEN, A MASTER CLEAR IS ISSUED.
THE

SYNCH CHAR USED

SRR A

MLAA

AR A

IS 226

A A A AR A

(OCTAL).

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

RSttt

A AR AR AR R A AR

T332

222222

TEST 42 - STRIP SYNCH TEST
THE DEVICE

IS ENABLED FOR TRANSMIT AND RECEIVE, AND A MESSAGE

INITIATED IN CHAR MODE AND WITH THE STRIP SYNCH
BIT SET. THEN 24 (DEC) SYNCHS ARE SENT
FOLLOWED BY THE FOLLOWING DATA CHARACTERS

AND THEN 2 TERMINATING SYNCHS.

377, 000,

125,

252.

EACH OF THE 23 SYNCHS AFTER THE FIRST ARE CHECKED AT THE TRANSMITTER OUTPUT,

BY SCANNING THE TXDATA BIT.
EACH USYRT RCV FLAG IS TIMED AS IT IS RECEIVED, AND THE &4 DATA WORDS
ARE READ AND COMPARED TO EXPECTED VALUES.
FINALLY,

THE LINE UNIT

IS CLOCKED FOR SEVERAL

CHAR TIMES,

AND A CHECK

IS MADE FOR OACT
= 0 (TEOM SHOULD CAUSE TX ENABLE TO DROP).
THE ABOVE

TEST

IS REPEATED FOR EACH OF

THE

FOLLOWING SYNCH CHAR DATA

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=-79 09:44

4976

4977

MACY11

30A(1052)

18-=JUL-79

PROGRAM DOCUMENT

* PATTERNS
TR

09:53

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

8.1 DATA PATTERNS USED

xxxxx DATA PATTERN A waxxs

PATA:

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

125
252
000
377
001
002
004
010
020
040
100
200
376
375

373
367
357
337
277
177

sxxxx DATA PATTERN B *xxxx

PATB:

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

000
000
040
100
220
000
000
051

sxxxx DATA PATTERN (
PATC:

.BYTE
.BYTE
.BYTE

#xxxx

020
020
020

wxxwx DATA PATTERN D xxxxx

PATD:

PAGE 6-12

: 226,000,125,252,376,177.

4978

4979
4980
4981
4982
4983

.BYTE
.BYTE
.BYTE

000
040
000

SEQ 0033
R AR

R R AR AR AR AR AR

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045

5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056

5057
5058
S059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084

5085
5086
5087

MACYT1

30A(1052)
18-JuL=79
PROGRAM DOCUMENT

09:53

wxxxv DATA PATTERN E wxnwn
PATE:
.BYTE
000
BYTE
120
BYTE
020
BYTE
100
BYTE
120
BYTE
000
wxxxs DATA PATTERN F #awxax
PATF:
.BYTE
050
BYTE
051
.BYTE

050

sxxxx DATA PATTERN G w*xwxx
PATG:
.BYTE
000
.BYTE
000
BYTE
240
BYTE
120
BYTE
177
.BYTE
000
.BYTE
000

.BYTE

001

sxxxx DATA PATTERN H *xnxx#
PATH:
.BYTE
000
.BYTE
000
.BYTE
377
BYTE
017
.BYTE
377
.BYTE
377
.BYTE
375
.BYTE
377

xxxxx DATA PATTERN | mxnxxx
PAT]:
.BYTE
000
.BYTE
000
.BYTE
000
BYTE
000
.BYTE
000
BYTE
103
.BYTE
000
.BYTE
000
wxxxx DATA PATTERN J #xxxx
PATJ:
BYTE
000
BYTE
000
BYTE
010
.BYTE
002
BYTE
004

PAGE 6-13

SEQ 0034

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18-JUL=79 09:44

MACY11 30A(1052)

18=JUL-79

PROGRAM DOCUMENT

.BYTE
.BYTE
.BYTE

09:53

103
001
100

wxwxx DATA PATTERN K wannw
PATK:
.BYTE
000

.BYTE

.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE

RR RR G

A A

SR 3 S i

5 S

2 3333835

viviviuiuvuiviiainiiiviviiivia
i
i
i
i
i
v
i

5102

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

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

000

377
377
125
125
252
252
001
000
002
000
004
000
010
000
020
000
000
100
000
200
000
000
001
000
002
000
004
000
010
000
020
000
040
000
100
000
200
376

377
375
377
373
377
367
377
357
377
337

PAGE 6=14

SEQ 0035

CZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79

09:44

MACY11 30A(1052)

PROGRAM DOCUMENT

d e
e
e
d e
o
D e
e
d
e
o

BRURR RO

—

28 BEIRRRAT2B
I NNNNNNNOONO

5144
5145

ViV
i
i aiaiainanawn viviviiviisiiviziviii
i
v
A

18-JUL-79

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

09:53

377
277
377
177
377
377
376
377
375
377
373
377
367
377
357
377
337
377
277
377
177

sxxxx DATA PATTERN L w*awxxx

PATL
:

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

000
000
377
377
000
000

sxxxx DATA PATTERN M nanwx
PATM:

.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE

.BYTE
BYTE

000
020
000
000
200
000

000
051

sxwxsx DATA PATTERN N #*xxxx
PATN:

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

000
000
000
125
000
252
000
377
005
000
012
000

PAGE 6-15

SEQ 0036

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACY11 30A(1052)

18-JuL=79

PROGRAM DOCUMENT

.BYTE
.BYTE

09:53

017
000

wxwxx DATA PATTERN O x#xxx

PATO:

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

.BYTE

000
041
004
010
020
040
100
101
200
201
300
111
301
375

sxxxx DATA PATTERN P %xxxx
PATP:

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

000
113
200
040
020
010
001
104
007
105
007
144
107
157

sxxxx DATA PATTERN U sxsxs
PATU:
.BYTE
000

.BYTE
.BYTE
.BYTE

000
001
000

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

000
011
000
021
000
101

.BYTE
.BYTE

301
000

.BYTE
.BYTE
.BYTE

001
000
002

PAGE 6-16

SEQ 0037

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79
09:44

MACY11 30A(1052)
18-JUL-79
PROGRAM DOCUMENT

5256
5257
5258
5259
5260
5261
5262

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

5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273

5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294

5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306
5307
5308
5309

5310
5311

.BYTE
BYTE

09:53

000
004
000
040
000
100
000

200
000
346
000
345
000
343
000
307
000
247
000
147

w#xexx DATA PATTERN V swxanw

PATV:

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

.BYTE
.BYTE

000
000
333
000
331
000
223
000
313
000
233
000
133
000
000
001
000
002
000
004
000
040
000
100
000
200
000
346
000
345
000
343
000

307

3
PAGE 6-17

‘

SEQ 0038

CZDMRA MB203 STATIC DIAG #1

CZDMRA.P11
5312
5313
5314
5315
5316
5317
5318
5319
5320
5321

18=JUL=79 09:44

MACYT1 30A(1052)

18-JUL=79

PROGRAM DOCUMENT
.BYTE
BYTE
.BYTE
BYTE

000
247
000
147

09:53

3
PAGE 6~18

SEQ 0039

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

MACYT1

30A(1052)

18-JuL-79

09:53

PROGRAM DOCUMENT

4
PAGE 7

SEQ 0040

9.0 ERROR INFORMATION
9.1 ERROR REPORTING
ERRORS
ARE
REPORTED BY
THE PROGRAM AS THEY OCCUR (IF NOT
INHIBITED). THE REPORT CONFORMS TO THE DIAGNOSTIC SUPERVISOR
ERROR
REPORT
FORMAT,
AND CONSISTS OF A DESCRIPTION OF THE

ERROR,

THE

TEST NUMBER,

CALL,
DEVICE
INFORMAT ION.

SUBTEST

ADDRESS,

AND

NUMBER,

BASIC

AND

THE

EXTENDED

ERROR

THE FOLLOWING EXAMPLE PROVIDES A TYPICAL ERROR REPORT, WHICH

DESCRIBES

'‘'IRDY

NOT SET'' ERROR, AND PROVIDES THE PC OF

THE ERROR CALL AND THE PC OF

?g’:%;#’sfi IT,

THE

CALL

THE

SUBROUTINE

THE FAILING REGISTER NAME, AND DEVICE REGISTER

CZDMR DVC FTL ERR 00017 ON UNIT 00 TST 034 SuB 000 PC:
IRDY NOT SET

PC OF

SUBR CALL:

DEVICE CSR ADDRESS
FAILING REG:

030044

160170

INBUS/0UTBUS REG 12

LINE UNIT INBUS REGS:

REG1I0

000

REG11

120

REG14

024

006210

REG12

000

REG15S

REG13

257

REG16

377

REG17

035

LINE UNIT EXTENDED REGS:
AX0=15
AX0-16 AX1-15
AX1-16

000

AX2-15

000

AX2-16

Ax3-15

000

Ax3-16

000

FOR OTHER ERRORS, THE REPORT
MAY
BE
MORE
REQUIRE ADDITIONAL DATA TO BE REPORTED.

EXTENSIVE,

AND

IF
EXTENDED
ERROR INFORMATION HAD BEEN INHIBITED USING THE
IXE FLAG PRIOR TO RUNNING THE TEST, THE
ABOVE
ERROR
WOULD
HAVE BEEN REPORTED IN THE FOLLOWING SHORTENED FORM :

CZDMR DVC FTL ERR 00017 ON UNIT 00 TST 034 SuB 000 PC:006210
IRDY NOT SET

PC OF

SUBR CALL:

DEVICE CSR ADDRESS
FAILING REG:

030044

160170

INBUS/0OUTBUS REG 12

(ZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

5379

MACY11

30A(1052)
18=JUL=79
PROGRAM DOCUMENT

09:53

&
PAGE 7-1

SEQ 004!

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

5389
5398

002000

MACY11

30A(1052)
18=JuL=79
PROGRAM DOCUMENT

09:53

+MCALL
SvC

SVC

5412

002000

BGNMOD

LUTMOD

000001
000001
000001

SLSTIN= 1
SLSTTAG= 1
SVCINS= ]'

5419

000001

Sv(SuB= }

5420

5423

5424

000001

SVCTST=

Sv(GaL=

LR TR

5415
5416
5417

IRTR

002000

000001

4
PAGE 7-2

SEQ 0042

.TITLE CZDMRA MB203 STATIC DIAG #1
.=2000

5405
5406

5418

LIS T
LIST
LIST
LIST
LIST

;

INSTRUCTIONS,

INITIALIZE SUPERVISOR MACROS

SHIFTED RIGHT

TEST TAGS, SHIFTED RIGHT
SUBTEST TAGS, SHIFTED RIGHT
GLOBAL TAGS, SHIFTED RIGHT
OTHER TAGS, SHIFTED RIGHT

CHANGE THE VALUES OF THE SVC...

SYMBOLS TO BE ZERO IF YOU WISH

TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS.

CHANGE THE

SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS.
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM.

YOU MAY

(ZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11

6)
(6)

(5)
(4)
(5)
(4)
(5)
(4)

(5)

(4)
(5)
(4)

(5)

(4)
(5)
(4)

(5)

(4)

(5)
(4)

(5)

(4)

(5)

(4)
(5)
(4)

(5)

(4)

(5)
(4)
(5)
(4)

(5)

(4)

09:53

&
PAGE 7-3

SEQ 0043

PROGRAM HEADER

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

POINTER BGNAU,BGNDU
ZZX2XXZX1112ZX111122XXl!ZZZ21222!121!l2!XZZZZIXZXXXZZZZZXXZZZZZZZZXXZZZXZZZZZZZZZ
IF ANY OPTIONAL POINTERS ARE TO BE USED IN THE ‘HEADER'', CHANGE

'POINTER” TO CONTAIN THE CORRECT ARGUMENTS.
OIN

ARE TO BE USED,

IF ALL OPTIONAL

CHANGE 'POINTER'' TO BE 'POINTER

ALL''.

ZZZX122ZX!ZZXXXXZIZI22ZZZXZZiZIZZZZ1XXXZXX2ZXZZXZZZl!ZZZZXXXXZXXXZZIZXZ!XZXZXZZZZ
HEADER
NOW

(ZDMR,A,0,45.,0

::
LSNAME

(4)
(4)
(4)
(4)
(4)

;
;

002000

18-JuL=79

PROGRAM HEADER

.SBTTL

883333

5440
5441
5442
5443
5445
5446
4)

30A(1052)

I+t

5430
5431
5432
5433
5434
5435
5436
5437
5439

18=JUL=79 09:44

MACY11

000
101

060
000000
000055

035514
000000
002252

000000

036172
000000
000000
000000

000000
002124
000000

000000

LSREV::

LSDEPO::
LSUNIT::

LSTIML::
L$HPCP::

L$SPCP::
LSHPTP::
LS$SPTP::

LSLADP::
LS$STA::

L$CO::
LSDTYP::

LSAPT::

LSDTP::

LSEXP1::
LSEXP2::

LASCII
LASCII
.ASCII
LASCII
LASCII

/C/
72/
/D/
/M/
/R/

JASCII

/A/

LASCII

70/

WORD

.WORD

4S5.

.WORD

LS$HARD

.WORD

L$HW

WORD

.WORD

LSLAST

.WORD

WORD

.WORD

LSDISPATCH

.WORD

BYTE
BYTE
BYTE

O
O
O

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JuL~79 09:44

(5)

(&)

(5)

MACY11

30A(1052)

18=JUL=79

PROGRAM HEADER

09:53

4
PAGE

7-4

002046
00204

SEQ 0044

LSEXP3::
LSMREV::

(4)

(3)

(5)
(%)

LSEF::

(5)
(€)

LSSPC::

(5)

LSDEVP::

()

(&)
(S)
(&)

:
LSREPP:

(5)

:
LSEXP4:

%)
(5)
(4)

:
LSEXPS:

(5)

021606

%)
(5)
)

(5)

(%)

(5)

(%)

5447
5449
5450
5451
5453
5454
5455
5456
5457
5458
5459
5460

b
i
i
b

. WORD
.WORD

0
0

.WORD

LSDVTYP

.WORD

LSAU

.WORD

L$DU

.WORD

021522

ESLOAD
0
LSINIT
LSCLEAN

LSACP::

021442

LSAUTO

LSPRT::

021064

L$PROT

LSTEST::

000000

LSDLY::

000000

LSHIME::

000000

CSEDIT

LSDESC

L$CCP::

e
d cd

CSREVISION

L$ICP::

021072

O‘l‘bf\)'\)oog

(&)
(5)
(4)

.BYTE
.BYTE

LSETP::

000000

(5)

:
LSLOAD:

104035

)

(5)

LSDESP::

003470

(5)

(4)

LSLUN::

000000

(%)
(5)
(4)

(5)

LSDUT::

021524

(5)

(%)
(5)
(&)
(5)
(&)

LSAUT::

.WORD

0
.WORD

Z222212221222!22!XZZXZZXZZXX!21222212221ZZZ!!!2ZXXZZZZXZXZZZZZXZZZZZZ!ZZXZZZ%ZZZZ

THE 'HEADER'' TO CONTAIN THE PROPER ARGUMENT

ZZZZZZZZZXZXZXZZZXZZZZZXZZZZZZZX2ZZllZ222ZZZX1221ZZZZZXZZZZZZZZZX!ZX!X!%ZZZZZZZZI
.EVEN

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JuUL=79 09:44

MACYT1

30A(1052)

DISPATCH TABLE

3462
5464
5465
5466
3467
002122
002122
002124
002124
002126
002130
002132
002134
002136
002140
002142
002144

021610
021672
021756
022102
022204
022324
022444
022620
023054

(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)

002150
002152
002154
002156
002160
002162
002164
002166
002170
002172
002174
002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
002234
002236
002240
002242
002244

023310
023426
023544
024174
024526
025016
025226
025432
025636
02
026320
026572
027250
027370
027500
027674
030240
030450
031000
031100
031450
032012
032262
032624
032754
03
034150
034350
034650
034740
0351C2

;{6
5472

5473
5474

09:53

4
PAGE 7-5

SEQ 0045

.SBTTL DISPATCH TABLE
g
:/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
:/ 1T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
SI1111771777717117771777717777717717171777717717777117717171711111071111717117

5469
(4)
(3)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)

18-JuL=79

002146

002246

000052

DISPATCH 42

.WORD

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

T1
T2
T3
T4
TS
T6
T7
T8
T9
T10
T11
T12

.WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD

T13
T14
T15
T16
T17
T18
T19

WORD
WORD

T20
T21

WORD
.WORD
WORD

122
T3
T24

.WORD
.WORD
WORD

TS
126
T27

WORD
WORD

T28
T29

.WORD
WORD

T30
T31

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

132
133
T34
T35
T36
137
T38
T39
T40
T41

JWORD

T42

LSDISPATCH::
.WORD

023172

035250

CHANGE THE ARGUMENT OF 'DISPATCH'‘ TO BE THE

NUMBER OF HARDWARE TESTS IN YOUR PROGRAM.

A K AR AR R

CZDMRA MB203 STATIC DIAG #1

CZDMRA.P11

22;;

5478
5479
5480
5481

18=JUL=79 09:44

MACYT1

30A(1052)

18-JuL=79

DISPATCH TABLE

09:53

PAGE 7-6

Yy 2 222002232398 822223 3388888993233 33%%2933333339%%333333333%33333333443433333%4

SEQ 0046

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.PT1
18=JUL=79 09:44

MACY11

30A(1052)
18-JuL=-79 09:53
DEFAULT HARDWARE P-TABLE

PAGE 7-7

SEQ 0047

3483

.SBTTL

5485
5486
5487
5,88

SIIITTITTITITI77777777777777777777777777777777777777777777777777777777777777777
:/ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
:/ THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
/ 1S IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

gzgg

///////////////////////////////////////////////////////////////////////////

5491
(3)

002250
002250

000013

5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
3508

002252
002254
002256
002260
002262
002264
002266
002270
002272
002274
002276

000007
160170
000300
005000
000003
000056
000000
000000
000000
000004
000001

5505
(3)
5506
5507
5508
5509

002300
002300

(3)
o(3)

DEFAULT HARDWARE P-TABLE

002252
002252

BGNHW

DFPTAL

LSHW::
DFPTBL
: :
.WORD
.WORD
-WORD
WORD
-WORD
-WORD
-WORD
-WORD
" WORD
-WORD
-WORD
ENDHW

7
160170
300
5000
3
056
000
000
0
4
1

.WORD

L 10000~L $HW/2

:MICROPROCESSOR TYPE = MB207
:DMC11 OR KMC11 CSR UNIBUS ADDRESS
:DMC11 OR KMC11 INTERRUPT VECTOR
:DMC11 OR KMC11 INTERRUPT PRIORITY LEVEL = 5
LINE UNIT = M8203
SWITCH PACK #1 (REG 11)
:SWITCH PACK #2 (REG 15)
SWITCH PACK #3 (REG 16)
:H32548H3255 USED
:BAUD RATE = 56 K
RUN SWITCH ON MICROPROCESSOR 1S ON
L10000:

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACY11

30A(1052)
18-JuL=79
SOF TWARE P-TABLE

09:53

&
PAGE 7-8

SEQ 0048

5512

.SBTTL

SOF TWARE P-TABLE

5514
5515

SIITITTTTTT7777777777777777777777777777777777777777777777777777777777777
;/ THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

;/ PARAMETERS THAT (AN BE CHANGED BY THE OPERATOR.
SIITITITITTIITII7 7777777077777 77077777777770777777777777777777777777777

(3)
(3)

002
002300
002302
002302

5522
(3)

0023C?2
002302

000000

BGNSW

SFPTBL
L$SW::
SFPTBL
::

ENDSW

L10001:

.WORD

L10001-L$Sw/2

(ZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

MACY11 30A(1052)

18-JuL=79

SOF TWARE P-TABLE

09:53

PAGE 7-9

SEQ 0049

5530
5531
5532
5533
5534
5535
5536
5537
5538
5539

5540
5541

.SBTTL

5544

SIIITITIITT777777777777777777777777777777777777777777777777777777777777777777177

5546

3343
5545

ggzg
5??‘)9

GLOBAL EQUATES SECTION

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE USED IN MORE THAN ONE TEST.

SII1111177707777177177771117717771777177117171717177771770070071001104110717017
002302

EQUALS

; BIT DIFINITIONS

(1)
(1)
(1
(1)
(1
(1)
(1)
(1)
(1
(1)

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BIT07==
BITO6==

(1N
(1

000020
000010

BIT04== 20
BIT03== 10

(1)

000002

BIT01== 2

(1)
(1N
(1)
(1)
(1)
(1)
(1
(1)
(1)
H;

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

(1)

f};

000001

(1)

BiT05== 40

BIT02== 4

BITO0== 1

BIT09
BITO8
BIT07
BIT06
BIT05
BIT04
BIT03
BIT02
BITO1
BITO0

; EVENT FLAG_DEF INITIONS

fl;

(1)
(1)

100000
40000
20000
10000
4000
2000
1000
400
200
100

000040
000037

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==

.
N,

: START COMMAND WAS [SSUED
: RESTART CCMMAND WAS ]SSUED

N
B O

P
N o

NIV e cd cd

N W

) cnd cd o

e e W N

)

N N N N N N

i cd il i o

i i

N N S

D i

i i

D i i

N N N N S

VWL AN AN N N N PN PN PN PN PN PN PN PN PN PN PN PN NN PN PN PN PN PN PN

i o

D i ol

o S S

b —_—

CZDMRA M8203 STATIC D AG #1
18-JuL~
CZDMRA.P11
09:44

000036
000035
000034

MACY11 30A(1052)

18=JuL=79

09:53

GLOBAL EQUATES SECTION

EF .CONTINUE==
EF .NEW==
EF PWR==

(S
PAGE 7-10

SEQ 0050

30.
29.
28.

; CONTINUE COMMAND WAS ISSUED
; A NEW PASS HAS BEEN STARTED
; A POWER=FAIL/POWER=UP OCCURRED

* PRIORITY LEVEL DEFINITIONS
PRIO7== 340

PRIO6== 300
PRIQS== 240
PRI04== 200

PRIO3==
PRIO2==
PRIO1==
PRI0OO==

140
100
40
0

;OPERATOR FLAG BITS
&
10
20
40
100
200
400

EVL==
LOT==
ADR==
IDU==
ISR==
==
BOE
PNT
PR]==

1000
2000

IXE==
IBE==
IER==
LOE==
HOE==

4000
10000
20000
40000
100000

A A

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

:* PROGRAM EVENT FLAG DEFINITIONS

AR A

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

AR RN RAN

AR AR AR

222322232222

222222.

;* MAINTENANCE REGISTER - BSEL1
;:tfit"tttttttt'tt'tttfit.tt'fil'ttfitttit.fi.Qit..tttttttttttt'ttfi'fitti'i!'t"."t'

RUN
MCLR
STEPLU

= BIT7
= BIT6

ROMO
ROMI

= BIT?
= BIT1

LULOOP
*

STEPMP

= BIT4
= BIT3

= BITO

::ttfit.t.ttttt.it.ttt't.tttttttt'l.-t.ttttfifi....tttt.ttt."tt.'lti'.'ti'.'t.ttt'

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
5574
SS?S

5576

5577

000200

= BITS

TX4
X3
X2
X1
X0

000004
000002
000001

5585

4
PAGE 7-11

= BIT6

= BIT4
= BIT3

= BIT?
= BIT1
= BIT)

..tttttttttttttt'ttttttttttttttttttttittttttttttttttttttttttttttt'tttttttttitt.t

586

;* 0BUS REG 11

5587

'.tttfittttttttttttttttttttt'ttfit’ttttttttfi.ttt'tt.tttt.ttttt.ttttttt'ttttt"tttt

000200
000010
000004
000002
000001

5594

0C
GOAH
ABORT
EOM
SOM

=
=
=
=
=

BIT7
BIT3
BIT2
BIT1
BITO

,'tttttttttttttttttittttttttlttttttttttttttt'ttttt'fit'ttfittttt'tttttttttttt'tttt

5595

:* 0BUS REG 12

5596

5597
5598
gggg

= BIT7

000020
000010

5581
5582
gggz

5588
5589
5590
5591
ggg%

tx?

TX6

000040

:* 0BUS REG 10 = TRANSMITTER BUFFER
ttttttttttttt.ttttitttt!tttttfitfitttfittttttt.tttttttttttttt.ttttttt'.tttttt....

000100

5578

5579
5580

MACYT1 30A(1052)
18=JuL=79 09:53
GLOBAL EQUATES SECTION

;;tttttttttttttttttttt'tfi'ttttttttttttttttttttt'tttttttttttfit'ttttttttt'tttttttt

000200
000100
000040

1C
BPOLL
LULP

= BIT?7
= BIT6
= BITS

5601

..ttttfitttittttittttttttttttttttt.tttttttttttttttttttttQttttttttttttt'ttttttt'tt

5602

;* 0BUS REG 13

5603

5604
5605
5606
5607
5608
5609
gg}?

;:tttttttttt.ttttttttfittttttttttfittttt'ttttltttttttttttttttttttttttttttttttttttt

000200
000100
000040
000020
000010
000004
000002

5612
5613

ggg}

= BIT?
= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1

ttttttttttfittttttttttttttttttttttttttttfittttttntttttAQttt'ttttt'tttttttt'ttttt
% 0BUS REG 14

561‘

5615
5616
5617
5618
5619

POLL
DTR
SELFR
HDX
MAINT1
MAINT2
SELSBY

tttttttttttt.ttttttttttttttttttttttttttttttttttttttt"tttttttttttttt't'fitttt..

000100
000040
000020
000010
000004
000002
000001

TXEN
DISSI
RDAX
WAX
ENAX
AX2
AX1

= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1
= BITO

5623

2 tttt'tttttttttttttfittttttttttttfitttttttttttttttttttt'ttt't'ttttttttt!ttfitttttt

5624

.- 0BUS REG 17

5625

5626

5627
5628
5629

000200

000100
000040
000020

ttttttttt.tttttttttttttttttttttttt.ttttitttttttttttfitttttt'ttt‘tttttttt'ttitt'

CR2

CRC1
IDLE
SECA

= BIT?

= BIT6
= BITS
= BIT4

SEQ 0051

CZDMRA MB203 STATIC DIAG #1

CZDMRA.P11

5630
5631
5632
2633

18=JUL=79 09:44

000010
000004
000002
000001

MACY11 30A(1052)

18=JuL=79

09:53

GLOBAL EQUATES SECTION

STRIP
RDALL
IERR
DDCMP

&
PAGE 7-12

= BIT3
= BIT2
= BIT1
= BITO

5635

..'t'tt.ttttt".t"tttfi.'i'tit.titttt.t.*.tttitttfittttttt..ttttit't..'ttttt.".l

5636

% IBUS REG 10 = RECEIVER BUFFER

5637

..i'.ittfi.'t'fi'*."..t..'t‘Q*tfifiQtttfit'i'.*t.t'.'fi..t'fi"Q..Q.tt't""'...t't.'.

5638
5639
5640
5641
5642
5643

000200
000100
000040
000020
000010
000004

RX?
RX6
RXS
RX4
RX3
RX2

3645

000001

RXO

5644

000002

56‘7

=
=
=
=
=
=

BITS
BIT4
BIT3
BIT2
BIT
BITO

'.t."’.*tfitttfi*.tiQtttttii.ififi*tt.l.fit!t.Qt"t.i'ttfifi.*"t.t.t"Q.'...'t'tfi""

5648

% IBUS REG 11

5649

5650

RX1

= BIT?
= BITé

..fitfitit*fit.t't'*.Q.*ttt't'i.fit*tt*ttt't*tfififit'iiQ.ttttt'i'.!.'t'fi"'.i.'i"t't.

000200

= BIT7

5651

000100

OACT

= BITé

5654
5655
5656
3657

000010
000004
000002
000001

swo
w1
SW0
UNRR

=
=
=
=

5652
5653

000040
000020

5659

= BITS
= BIT&

BIT3
BIT2
BIT1
BITO

..'t.Qfifi."ttt"fi'ttt..'*'Qt*.fit.itifittfi*fifi*iti'Qi*"tit.tfifi'tt*t'.t't't"t't'.'

5660

% IBUS REG 12

5661

5662
5663
5664
5665
5666
5667
5668
3669

sw3
ORDY

'.'tfi..ti'fi..t.tttttfiiQfiittttt.fifittttttttfi.fifi*.t'ttt.*fi'..'tfiti".i'itttfitt""t

000200
000100
000040
000020
000010
000004
000002
000001

it
IACT
LUP
IRDY
OVRR
RAB
¢BLK
8CC

= BIT?
= BITé
= BITS
= BIT4
= BIT3
= BIT2
= BIT]
= BITO

5671

..'.."..Qtt't.tfi.t'fii.itt't.fi'ifiti"fiiitQ!fi..tfi.ttfi.t'tttt'ttt'tt'fi.tt"t."'t'

5673

.'i.'tt.t.'Q.Qtttt.'fi't.'fit.t'ttifittI*..fittfitttti'iittt'..ti‘ttttttfit.'ti"fi"tt

5672

5674
5675
5676
5677
5678
5679

5680
3681
5683

568%

5685

:* IBUS REG 13

000200
000100
000040
000020
000010
000004

000002
000001

RING
DTR
RTS
HDX
MODR
cs

STBY
CARR

= BIT?
= BITé
= BITS
= BITé
= BIT3
= BIT2

= BIT1
= BITO

.'t'titttt'tttt.ttt.fiitttfi'ttttttiti.tt'fifi'tfii.ttt.'t'itt'.t't.'t'tt"'.ttt..".

% IBUS REG 14

.'t'ttttt'.'tttt'ittttt.'tttfit'tfitt.'fi‘.fitttttt'ttfit'itt.tllt'..‘.t"'t"ttt.'.!

SEQ 0052

(ZDMRA M8203 STATIC DIAG #1

(ZDMRA.P11

18=JUL=7% 09:44

5686
5687

000200
000100

5689
5690
5691
5692

000020
000010
000004
000002

5688

000001

o
0

gggz

000040

30A(1052)

18-JuL=79

09:53

GLOBAL EQUATES SECTION

READY
TXEN
DISSI
RDAX
WAX
ENAX
AX2

AX1
MR

PAGE 7-13

= BIT7
= BIT6

= BITS

=
=
=
=

BIT4
BIT3
BITZ
BIT1

= BITO

AR AR AR AR

000200
000100
000040
000020
000010
000004
000002
000001

SIGR
SIGQ_
TXDATA
OCOR
ICIR
TESTMD
MCLK
DDCMP

:* AX0-15 = USYRT REG O (READ ONLY)

5709

5?19
5720
5721
5722
5723
5724
5725
5726
5727
5728
g;%g

22222222222%

= BITS
= BIT4
=BIT3
= BIT2
= BIT1
= BITO

5708

g;}g

222232223 232222222

= BIT?
= BIT6

5712
5713
5714
5715
5716

;:ttttt'tt'ttttttttttttlttttttttttt!tttttt'ttttttt'ttt'tttfitt'tttt.tt'ttttt..tt

5707

5710
5711

SEQ 0053

;% [BUS REG 17

5697

5698
5699
5700
5701
5702
5703
5704
2;82

MACYT1

000200
000100

000040
000020
000010
000004
000002

RX7
RX6

RXS
RX4
RX3
RX2
RX1

AR RS R

= BIT7
= BIT6

=
=
=
=
=

222222222222

Y222

222222

22222222222

BITS
BIT4
BIT3
BIT2
BIT1

000001

RXO0

000200
000100
000040
000020
000010
000004
000002
000001

;:Qtttttttt'tktttttttttttt'tttttfittttttttfitt'tttttt'tttttittlQ!ttttttttt't"tt'fi
;* AX0=16 = USYRT REG 1 (READ ONLY)
;;tttttttt'tttitttlttttt'ttttttttfi'ttttttt'tttttt'tfi"iQttt'tttttttttttti'ttt't'
RERR_
= BIT?
ASB(2
= BITé
ASBC1
= BITS
ASBCO
= BIT4
ROR
= BIT3
RABT
= BIT2
REOM
= BIT]
RSOM
= BITO

= BITO

5731

5732
5733
5734
5735
5736
5737
5738
5739
5740
5741

;* AX1-15 = USYRT REG 2
;:tttQtttt'ttt'ttttttttntttfiittfitttttttttttttttttttittttttttt'ttttttttittt'ttt
X7
= BIT7
X6
= BIT6
TXS
= BITS
TX4
= BIT4
X3
= BIT3
X2
= BIT2
X1
= BIT1
X0
= BITO

000200
000100
000040
000020
000010
000004
000002
000001

2122232222322

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44

5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758

5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775

MACYT1

30A(1052)
18-JUL=79 09:53
GLOBAL EQUATES SECTION
A

PAGE 7-14

‘% AX1=16 = USYRT REG 3

SEQ 0054
i

2222232322332

22323223322232232238.

':tt..tfitfi'ttt'i'ttttt.tt"tttQti.tttt'fit'tfittfifit.*ttltttifitfitt"t.tttttt'tt'.

TERR
TXGA
TXAB
TEOM
TSOM

=
=
=
=
=

BIT?7
BIT3
BIT2
BIN
BITO

::i'fittitt"ttt't*.t.t!t't't'ttttttittt'ttQQtQt.titttttii.Qt"*'i..t..i'.t'.'t

;* AX2=15 = USYRT REG 4
';tti'ttfi'tt.fififii.Qfi'ttt""ittt'ttfi.ttt'fittt‘ttttt'fi'l't.ttttt"i."‘..QQ".'

=
=
=
=
=
=
=
=
=

SYN7
SYN6
SYNS
SYN4
SYN3
SYN2
SYN1
SYNO
SYNCH
MR

BIT7
BITE
BITS
BIT4
BIT3
BIT?
BIT1
BITO
226

i3 2222322222222222232222222222;

;* AX2=16 = USYRT REG 5

:;Qttfi'ittt.fit.ttttti.lt"ttttt'fitttt'.tfi.Qt.ttt'tt'ttttkt.fitti..tt.'tt'ttttfi'

APA
DDC
STR
SEC

IDL
CRCTY2
CRCTY!
CRCTYO

=
=
=
=

BIT7
BIT6
BITS
BIT4

= BIT3
= BIT?
=8BIT
= BITO

:;.Q"'.'."..‘*..'Q..*".'fi*‘fl..fi"'Qfi.*...fi.QfiQ'fit.fi.""".‘*'Q*"..'."".

;* AX3-15 = USYRT REG 6

;:'t'.*t'.fi"tt'fi.fi.fi*‘.""".fifi*‘t"‘.'i't'.'*fi""'.‘.*"'."'.'fi".'.."'.

1422

XyZ

= BIT7

= BIT6

v35
INTGRL

= BIT4
= BIT3

TEST

= BITO

= BIT

1422'!XYZ!V35!
INTGRL ! OP

::'fi.fi..ttttt.tt't'tttt"'tit‘t'ttfit'tt.Qit.tt'lifit'.!.tttttt'ttttttt"tt"tt

;* AX3-16 = USYRT REG 7

::".Qtttt'fi"tt.t'tfitfittt'ttfi..tlttttt'tt'ltttfi"ttfitfitltttt.fi"t'tttttt'ttt

TXLEN2
TXLENT

TXLENO
RXLENZ
RXLEN1

RXLENO

= BIT7
= BIT6é

= BITS
= BIT?
= BIT1

= BITO

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

5798
5799
5800
5801
5802
5803
5804
5805

18=JUL=79 09:44

MACY11

30A(1052)
18=JuUL=79 09:53
GLOBAL EQUATES SECTION

PAGE 7-15

SEQ 0055

:tttfit'tt't.fifi'.'Q.Qfi*tttQ'Q..ttttfittt'tlttttttltfiittt.'ttttti.'t"t'tt.'...'t.t

;* TX CONTROL BITS DEFINED ON WORD BASIS

;t't't*ttttfifi't.fi**tt.fit'Q'QQttttfittttfi.t't't‘tttit.tt'.t.t.tt'tt.it't'.t...'.'.

004000
002000
001000
000400

TXGOA
TXABT
TXEOM
TXSOM

=
=
=
=

A A

BIT1
BIT10
BIT9
BIT8

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

AR AN

:* RCV CONTROL BITS DEFINED ON WORD BASIS
004000
002000
001000
000400

RXOVR

= BIT11

RXABT
RXEBL
RXBCC

AR AR AR AR AR A

A AR A AR A AR AR R A AR AR AR AR R AR AR AR R AR AR AR AT hhd

= BIT10
= BITY
= BIT8

SRSt eI
212232222223 2233333222222322222;

% ADDRESS EQUATES FOR REGISTER STORAGE TABLE (LUREG:)
LA

st it
2222222220

LURT0
LURT1
LURT12
LUR13
LURT4
LURTS
LUR16

=
=
=
=
=
=
=

LUREG+0
LUREG+2
LUREG+4
LUREG+6
LUREG+10
LUREG+1?2
LUREG+14

sLINE
sLINE
sLINE
;LINE
sLINE
sLINE
sLINE

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

IBUS
IBUS
IBUS
IBUS
IBUS
IBUS
IBUS

AX0.15
AX0.16
AX1.15
AX1.16
AX2.15
AX2.16
AX3.15
AX3.16

=
=
=
=
=
=
=
=

LUREG+20
LUREG+22
LUREG+24
LUREG+26
LUREG+30
LUREG+3?
LUREG+34
LUREG+36

sUSYRT
;USYRT
sUSYRT
;USYRT
;USYRT
;USYRT
sUSYRT
;USYRT

REG
REG
REG
REG
REG
REG
REG
REG

0
1
2
3
4
5
6
7

100000

CHPCHK

= BIT15

100000

BCCCHK
CRCCHK

= BIT15
= BIT1S

LURT

100000

= LUREG+16

REG
REG
REG
REG
REG
REG
REG

10
11
12
13
14
15
16

;LINE UNIT IBUS REG 17

CZDMRA MB8203 STATIC DIAG #1
18-JUL=79 09:44
CZDMRA.P11

MACY11

30A(1052)

18-JuL=79

09:53

GLOBAL EQUATES SECTION

AASE

AR SRS

5
PAGE 7-16

SEQ 0056

“» MICROINSTRUCTION DEF INITIONS

2222222222222

22222232222222222;

888

—_N) =2

—l-do
noroOrND

:tttt'ttt".."'t.."..tt.'tt'QQ'QQt.".Q..Qt..'.fifi..l".tfi.i"'ti"'ttt'tttt.tt

MvIOX
MVIXO
MVIXOX

000001

RRDYTO
WRDYTO

savxwx

= 021000
= 122000
= 121000

FRRORT

= BITOQ
= BIT?

BIT

sMOVE
sMOVE
;MOVE

FLAG

DEFINITIONS

IBUS TO OBUS*
IBUS* TO 0BUS
[BUS* TO O0BUS*

#wwnx

CZDMRA MB8203 STATIC D]AG #1
CZDMRA.P11
18=JUL=79 09:44

5876
5877
5878
5879
5880
5881
5882
5883

MACY11

30A(1052)
18-JUL-79
GLOBAL DATA SECTION
.SBTTL

09:53

9
PAGE 7-17

SEQ 0057

GLOBAL DATA SECTION

SIITITTITTTT777777777777777777777777777777777777777777777777777777777777777777

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

o/
IN MORE THAN ONE TEST.
SIIIII11711777717777177717777771117177717071001171077707177007117117710717111717
e

AR A

A A

AR A

AR A AN AR R AR AR AR AR AR R AR

AR AR R AR AR AR AR AR AR R

i STORAGE FOR DEVICE REGISTERS
R

002302

000020

(UREG:

A A

A A A

.BLKW

A A

AR AR AR AR A AR A A AR AR AR A AR AR AR AR AR AR RN

AR AR AR

R®

h®

16.

:tttt"*tttttttt*'tit..Qttt'fi!ttfittt"tfitt'ifiitttlt"'t..tttt'."t.tttt'

;* MISCELLANEOUS STORAGE

;tttttttttttifitittttt*titfittfitttt*ttt.'*tQt.tt.tt't'tt.."tt..'tit..ttt'

SCRACH:
LOGDEV:

.WORD
.WORD

O
0

;GEN'L PURPOSE SCRATCH WORD
sLOGICAL DEVICE NUMBER

SUBRPC:
INTFLG:

.WORD
.WORD

0
O

sPC OF SUBR CALL FOR ERROR REPORTS
- INTERRUPT RECEIVED FLAGS

s SUBROUTINE ERROR FLAG

PSTACK:
PRIOR:

ERRFLG:

.WORD

.WORD
.WORD
.WORD
.WORD

O
O
O
O

WAX16:
REGNUM:
AXNUM:
GOODAT:
BADDAT:

.WORD
.WORD
_WORD
.WORD
.WORD

O
O
O
O
O

LOADAT:

.WORD
.WORD
.WORD

.WORD

sCONTAINS BASE LEVEL PROGRAM STACK POINTER
;CPU PRIORITY FOR PRINTOUT

;

BIT O FOR TX, BIT 1 FOR RCV

sEVENT TIME-OUT FLAG
;SUBR ERROR RETURN ADDRESS
;LO BYTE CONTAINS BYTE READ FROM LU REG
sLO BYTE CONTAINS BYTE TO LOAD INTO LU REG

O
0
O

;LO BYTE CONTAINS BYTE READ FROM REG 15
;LO BYTE CONTAINS BYTE READ FROM REG 16
;LO BYTE CONTAINS BYTE TO LOAD INTO REG 15

;L0 BYTE CONTAINS BYTE TO LOAD INTO REG 16
sNUMBER (10-17) OF LINE UNIT REG BEING TESTED
JNUMBER (0-7) OF EXTENDED REG BYTE BEING TESTED
;STORAGE FOR EXPECTED DATA
;STORAGE FOR ACTUAL DATA

;CONTAINS TEST DATA LOADED INTO REG

FRSTIM:

.WORD

sFLAG=0 IF PROGRAM JUST LOADED

TXWORD:
RXWORD:

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

9
O

0
O
O
0
O

;BITS 0-11
;BITS 0-11

.WORD

sCONTAINS UNIT NO.

sFLAG=0 IF FIRST PASS AFTER STA OR RES

SAVE4:
SAVE6:
ERRORT1:

DISILO:
CHPTYP:
SAVLEN:
DEVMAP:
DEVPTR:

.WORD
.WORD
.WORD

UNIT:

WORD

STARES:

.WORD

TSTNUM:

sanwnxwwnx

160170
160171
160172

0
O

TIMFLG:
RETADR:
REDBYT:
WRIBYT:

RAX15:
RAX16:
WAX15:

000000

.WORD
.WORD

MPCSR:
BSEL1:
BSEL2:
BSELS:

.wORD
.WORD
.WORD

O
O
0

CURRENT

;SAVE LOC 4 HERE (ERROR TRAP VECTOR)
sSAVE LOC 6 HERE (ERROR TRAP VECTOR)
sSUBR ERROR BIT FLAGS (DEF'D IN GLOBAL EQUATES)
CONTAIN DATA TO LOAD INTO TX SILO
CONTAIN DATA READ FROM RCV SILO

;CONTAINS CURRENT STATE OF DISSI IN BIT 5
sUSYRT CHIP TYPE, =0 FOR SIG, ELSE =1
sSAVED TX AND RCV CHAR LENGTHS
;BIT MAP OF ACTIVE DEVICES
sDEVICE MAP BIT POINTER

(1 TO N)

sCONTAINS TEST NUMBER FOR SOME

DEVICE

160170
160171
160172

PARAMETERS

TESTS

wxxtwswntsnnnnw

;POINTER TO MICROPROCESSOR CSR'S
JPOINTER TO BSEL1
JPOINTER TO BSELZ

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
160174

160176

000300
000304
000240
000000
000000
000000
000000
000000

SELG:
.WORD
SELG6:
WORD
MPIVEC: . WORD
: .WORD
MPOVEC
MPRIOR:

LUSWIT:
LUSWIZ2:
LUSWI3:

TSTCON:
RUNINH:
*hhkhwk

000
C00
000
000
000
000
000
000

REDDAT:

;:tttt

000000
000000
000000
000000
000000
000000
000000
000000

REGO:
REG1:
REG2:
REG3:

REG4:

REGS:
REG6:
REG?7:
;:tttt

828 §

000000
000000
000000
000000
000000
000000
020000

TMPO:
TMP1
:
TMP?:
TMP3:
TMP4:

TMPS:
TMP6:
TMP7:
TRRk RN

UPBITS:

5934

002454
002456
002460
002462
002464
002466
002470
002472
002474
002476

30A(1052)
18-JuL=79
GLOBAL DATA SECTION

5932

5933

MACY11

377
377
306

200

R14NRW:
chRRRR
R

ANBITS

09:53

.WORD
.WORD
.WORD

160174
160176
300
304
240
0
0
0

.WORD

PAGE 7-18

SEG 0058

;POINTER TO SEL4
;POINTER TO SEL6
sMICROPROCESSOR INPUT INTERRUPT VECTOR
sMICROPROCESSOR OUTPUT INTERRUPT VECTOR
sMICROPROCESSOR DEVICE PRIORITY

sLINE UNIT SWITCH PACK #1
sLINE UNIT SWITCH PACK #2
sLINE UNIT SWITCH PACK #3

sTEST CONNECTOR INDiCATOR
JRUN SWITCH INDICATOR

STORAGE FOR DATA READ IN ADDRESS TESTS wawws

BYTE

.BYTE
BYTE

0
0

.BYTE
BYTE
BYTE

0
0
0

GEN'L PURPOSE SCRATCH STORAGE
WORD
0
WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
O
.WORD
0
SCRATCH
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

xxw=

STORAGE FOR MESSAGE REPORTING
0
0
0
0
0
0
0
0

wwwa=s

INBUS LU KREG BIT MASKS FOR UNPREDICTABLE BITS nwxwe«

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

000
056
000
257
100
377
377
306

;MASK
;MASK
sMASK
;MASK
;MASK
;MASK
sMASK
:MASK

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

REG
REG
REG
REG
REG
REG
REG
REG

10
11
12
13
14
15
16
17

.BYTE

200

;REG 14 NON-R/W BITS

MASKS FOR EXTENDED REGISTER NON-READ/WRITE BITS

swan»

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P1T ~
18=JUL=79 09:44
5988
5989
5990
5991
5992
5993
5994
gggg

002561
002562
002563
002564
002565
002566
002567
002570

5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011

002571
002571
002572
002573
002574
002575
002576
002577
002600
002601
002602
002603
002604
002605

6016
6017

002612
002613

6012
6013
6014
6015

gg}g

002606
002607
002610
002611
002614

6020
6021
6022
6023
5024
6025
6026
6027
6028
gg%g

002617
002620
002621
002622
002623
002624

6031
6032
6033
6034
gggg

002625
002625
002626
002627

6037
6038
6039
6040
282;

002630
002630
002631
002632

6043

002615
002615

002616

377
377
000
360
000
000
004
030

125
252
000
377
001
002
004
010
020
040
100
200
376

375
373
367
357

337
277
177

000
000

040
100
220
000
000
051

MACYT1

30A(1052)
18-JuL=79
GLOBAL DATA SECTION
BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE

09:53

377
377
000
360
000
000
004
030

;evwex DATA PATTERN A swess
PATA:
BYTE
125
BYTE
252
.BYTE
000
.BYTE
377
BYTE
001
BYTE
002
.BYTE
004
.BYTE
010
BYTE
020
BYTE
040
BYTE
100
BYTE
200
BYTE
376

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

375
373
367
357

337
277
177

;**xxx DATA PATTERN B #xwxs
PATB:
.BYTE
000

.BYTE

.BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE

000

040
100
220
000
000
051

020
020
020

;*xxxx DATA PATTERN ( #exex
PATC:
.BYTE
020
BYTE
020
.BYTE
020

000
040
000

;*xxxx DATA PATTERN D #x#*s
PATD:
.BYTE
000
BYTE
040
.BYTE
000

sxxxxx DATA PATTERN E *neex

S
PAGE 7-19

sMASK
sMASK
JMASK
:MASK
sMASK
;MASK
JMASK
;MASK

SEQ 0059

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

AX0-15
AX0-16
AX1-=15
AX1-16
AX2-15
AX2-16
AX3-15
AX3-16

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

002633

MACY11

30A(1052)
18=JuUL=79
GLOBAL DATA SECTION
PATE:

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

000
120
020
100
120
000

;xxxxx DATA PATTERN

PATF
:

.BYTE
.BYTE
.BYTE

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

.BYTE
.BYTE

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

377

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

2 2 3
LA

001

LE 2

2 2

000
000

377
017
377
377
375
377

;xxxxx DATA PATTERN

PAT]:

000
000
240
120
177
000
000

;xxxxx DATA PATTERN

PATH:

LE R

050
051
050

Jxxxxx DATA PATTERN

PATG:

09:53

L2 2 22]

000
000
000
000
000
103
000
000

;xxxxx DATA PATTERN
PATJ:

.BYTE
BYTE
.BYTE
BYTE
.BYTE

000
000
010
002
004

.BYTE

001

L8284

5
PAGE 7-20

SEQ 0060

(ZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

6100

100

6101
6102
6103
6104

6105

6106

VONOVSWN—=O

b
i e

e
b

i
i

s cld

b cai

oo.ooorororOr
O OO

6107
6108

002703
002704
002705
002706
002707
002710
002711
002712
002713

MACYT1

30A(1052)
18-JuUL-79
GLOBAL DATA SECTION

.BYTE
jsess

PATK:

100

DATA PATTERN

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

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

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

09:53

00
000
377
377
125
125
252

252

001
000
002
000
004
000
010
000
020
000
040
000
100
000
200
000
000
001
000
002
000
004
000
010
000
020
000
040
000
100
000
200
376
377
375
377
373
377
367
377
357
377
337
377
277

*xxew

PAGE 7-21

SEQ 0061

M8203 STATIC DIAG #1
PI

002771
002772
002773
002774
002775
002776
002777
003000
003001
003002
003003
3004
003005
003006
003007
003010
003011
003012
003013
003014
003014
003015
003016
003017
003020
003021
003022
003022
3023

003024
003025
003026
003027
003030
003031

003032
003032
003033
3034
003035
003036
003037
003040
003041
003042

003043
003044
003045
003046
003047

18=-JUL=79 09:44

MACY11

30A(1052)
18=JuUL-79
GLOBAL DATA SECTION

377
177
377
377
376
377
375
377
373
377

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

367
377
357
377
337
377
277
377
177

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

377
177
377
377
376
377
375
377
373
377
367
377

357
377
337
377
277
377
177

;xxxxx DATA PATTERN

000

PATL:

377
377
000
000

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE

020
000
000
200
000
000
051

000
000
000
125
000
252
000

377
005

000
012
000
017
000

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

#xwxx

wxtnn

*xxxx

000
020
000
000
200
000
000
051

;xxxxx DATA PATTERN
PATN:

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

000
000
377
377
000
000

sxxxxx DATA PATTERN

PATM:

09:53

000
000
000
125
000
252
000
377
005
000
012
000
017
000

5
PAGE 7-22

SEQ 0062

CZDMRA M8203 S TATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
6212
6213

MACY11 30A(1052)

18-JuL-79

09:53

GLOBAL DATA SECTION

;xxxxx DATA PATTERN

PATO:

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

wxwwn

000
041
004
010
020
040
100
101
200
201
300
111
301
375

;xxxxx DATA PATTERN P xxxnx
PATP:

38882828288
£838888¢8

b
b
b
b
b
b
b
-

NOWVSWN=O

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

000
113
200
040
020
010
001
104
007
105
007
144
107
157

;x%xxxx DATA PATTERN

PATU:

.BYTE

000

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

000
001
000
013
000
011
000
021
000
101
000

.BYTE
BYTE
.BYTE

000
002
000

BYTE
BYTE
BYTE
.BYTE

.BYTE

301
000
000
001

004

*xxwx

5
PAGE 7-23

SEQ 0063

CZDMRA M8203 STATIC DIAG #
CZDMRA.P11
18=JUL=79 09:44

30A(1052)
18=JUL=79
GLOBAL DATA SECTION

000
040
000

.BYTE
BYTE
.BYTE
BYTE

§38¢8 8585838

100

346

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

345

343

307

SCBL8Y8E88838E8R8

247

&~
~N

senxxx

PATTERN

PATV:

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

000
000
333
000
331
000
323
000
313
000
233
000
133
000
000
001
000
002
000
004
000
040
000
100
000
200
000
346
000

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE

000
343
000
307
000
247

BYTE

09:53

000
040
000
100
000
200
000
346
000
345
000
343
000
307
000
247
000
147

.BYTE
.BYTE
.BYTE

200

003130
003131
003132

MACY11

*txxx

345

PAGE 7-24

SEQ 0064

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

6324

003216

003217

6327
6328
6329
6330
6331
6332
6333

003220

6336
6337
6338
6339
6340
6341
6342

003220
003222
003224
003226
003230
003232
003234

6344
6345
ggzg

003240
003242
003244

3236

001000

6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
€359
ggg?

003246
003250
003252
003254
003256
003260

000377
000000
000125
000252
001000
001000

003262

000100

.BYTE

147

BYTE

09:53

5
PAGE 7-25

SEQ 0065

000

147

ENDPAT:
.EVEN

g%%g

6362
6363
6364
6365
6366
6367
6368
6369

30A(1052)
18=JuL=79
GLOBAL DATA SECTION

000

2%52

6343

MACYT1

sx*x
000400
000400

MSG1:

000125
000252
000377

TEST MESSAGES TO BE TRANSMITTED

##«

TXSOM
TXSOM
000
125
252
377
000

TXEOM

001000
001000
001000

TXEOM
TXEOM
TXEOM
MSG4:

377
000
125
252
TXEOM
TXEOM

;xx* RECEIVED DATA BUFFER (64. WORDS)
RCVBUF: .BLKW
64.

wwx=

CZDMRA MB203 STATIC DIAG M
CZDMRA.P11
18=JUL=79 09:44

MACYT1

30A(1052)
18-JUL-79
GLOBAL TEXT SECTION

09:53

6
PAGE 7-26

SEQ 0066

6372

.SBTTL

6374
6375
6376

2ZZXZ1222X!XXZ2ZZ!1112XZZZZXZ!XX!12ZXX22ZZZXXXZX!ZXXZZX!!XZXZXZZZZXZ!X!ZZXXZZ
i%
THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

6373

GLOBAL TEXT SECTION

HESSAGES AND ASCII INFORMATION THAT ARE USED IN

i%
MORE T
ONE TEST
:XZXXIXZZZXZZX!X%XZXX!XXXXXXZZZ!IZZZZXZZXZXXXZZZZZZZ1XZX!ZZX!XXZZXZZZZXZZZZZZZZ
A

SRSt

222232222233222232222222228;

.* NAMES OF DEVICES SUPPORTED BY PROGRAM
MRS AR

030062

LSDVTYP::
.ASCIZ
.EVEN

000063

/M8203/

SRS
2233232323223 22322223223222222

‘w

034115

eI 222323222222222222222223

<M8203>

DEVTYP

TITLE OF

003462
003462
003462

ARl

PROGRAM
s

DESCRIPT

030062
052101
043517
051505
050040
020061
000

2333233333233 233323323233232322322322222222223222222222222%2%;

"".ASCIZ

020063
041511
041511
051524

/M8203 STATIC LO

051101
043117
.EVEN

* FORMAT STATEMENTS USED IN PRINT CALLS
AR AR AR RN AN AR RN AN XXX XXX N RN A XXX AKX AR A XA XXX XXX XXX XA AKX X XX XX%%%
:
INSERL THESE?QMQ}A?EagEMENTS USED IN THE VARIOUS PRINT CALLS.
ZZZZX%ZXZZXXZZXXZIZZZZZZXXZ222ZXXZZZXZZZZXZZZZZXX222!Z222ZZZZXXXZXZZXZZXZZZZZXIZZ

30A(1052)
18=JuL=79
GLOBAL SUBROUTINES

09:53

6
PAGE 7-27

SEQ 0067

GLOBAL SUBROUTINES

SIITTITITIIITTI777777777777777777777777777777777777777777777777777777777777777777
3/
THE GLOBAL SUBROUTINES ARE CALLED BY MORE THAN ONE TEST
S11111177171777777177777717177777717777771711777771777777771771771711771771171717

e SN,

sttt

122232222222222232222222222%;

;* STPCLK = THIS SUBROUTINE FORCES THE DMC11 OR KMC11 MICROPROCESSOR TO
. *
EXECUTE AN INSTRUCTION WHICH IS PASSED IN THE WORD FOLLOWING THE CALL.
R

062716
000207

000006
000000
000007
000007
000002

176702
176702
176666

STPCLK:

BISB

#ROMO!ROMI ,@B8SEL1

:SET ROMO, ROMI BITS IN BSEL1

BISB

#ROMO!ROMI
! STEPMP ,aBSEL1

;SET ROMO, ROMI, STEPMP IN BSEL1

MOV

176660

BI{B
ADD
RTS

a(SP) ,aSEL6

sRETURN

010146

000100
000300
000024

176642
176634

000010

176614

2%:

T T

:SAVE R1

MOV
gg?

#20..R1
o

sINITIALIZE STALL COUNTER
sSTALL IN LOOP FOR SEVERAL MICRO-SEC

2%
#LULOOP,@BSEL1
(SP)+,R1
SAVLEN

;SET LU LOOP
sRESTORE R1
;CLEAR CHAR LENGTH FROM SETUP

RTS

R1,-(SP)

BNE
BISB
MOV
CLR

002432

MOV

MOvB
BICB

STEPMP [N BSEL1

;* MSTCLR = THIS SUBROUTINE ISSUES A MASTER CLEAR AND SETS LULCOP
MSTCLR:

;PUT INSTRUCTION INTO SEL6

#ROMO!ROMI
! STEPMP,aBSEL1 ;CLEAR ROMO, ROMI,
#2,(SP)
sFIX UP RETURN PC

TTIIILTTM

#MCLR,aBSEL1
sSET MASTER CLEAR BIT
#RUN!MCLR,@BSELT ;CLEAR RUN AND MCLR BITS

sRETURN

ittt 223322222222332223222322322

:* READLU - THIS SUBROUTINE FORCES THE DMC11 OR KMC11 MICROPROCESSOR
TO EXECUTE AN INSTRUCTION WHICH READS THE LINE UNIT REG WHOSE
.
NUMBER IS PASSED IN REGNUM, INTO REDBYT.
tttttQ'Qttt"tttt.'ttifi"'itfi'Qfi.t.'t..t'ttfittfi!!ttt..t"'tlttt'.t't'tt..!!Q"'

WW =

CD‘OOJ\

003574

152777
017677
152777
142777

003540
003540
003546
003554
003562
003570

6424

MACY11

.SBTTL

§§°°

nN-=OO O NNV
NNy —

g2
2222 RERRL2R RRRL
o38%

CZDMRA M8203 STATIC DIAG #1
CZDMRA. PIN
18=JUL=79 09:44

READLU:

002400

MOV

R1,-(SP)

MOV

REGNUM,R1

:SAVE R1

:GET LINE UNIT REG NUMBER

:SHIFT INTO SOURCE BITS 4-7

(ZDMRA M8203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P11
6463

6664

003656

006301
006301
052701
052701
010137
004737
000000
117737
105037

012601
000207

MACY11

30A(1052)
18-4UL=79
GLOBAL SUBROUTINES
ASL

003540
176544

002365

002364

ASL
BIS
BIS
MOV
JSR
.WORD
MOvB
CLRB
MOV

2%:

RTS

09:53

6
PAGE 7-28
SEQ 0068

R1
#4 ,R1
#MVIOX ,R1
R1,2%
PC,STPCLK
0
@BSELS ,REDBYT
REDBYT+1
(SP) +,R1

sSET DESTINATION = BSEL4
sSET REST OF MOVE INSTRUCTION

sSET INSTRUCTION AS SUBROUTINE ARGUMENT
sEXECUTE MOVE INSTRUCTION
s INSTRUCTION GOES HERE
;GET LU REG CONTENTS INTO REDBYT
;CLR HI BYTE OF STORAGE
sRESTORE R1

sRETURN

eIl

;* WRITLU = THIS SUBROUTINE FORCES THE DMC11

OR KMC11

2332222222222222322220

MICROPROCESSOR TO

EXECUTE AN INSTRUCTION WHICH LOADS THE BYTE CONTAINED IN WRIBYT
INTO THE LU REG WHOSE NUMBER IS PASSED IN REGNUM,

* %

. %

AL SRttt
i
T332 223222322222222323223223

003722
003722
003724
003730
003734
003740
003744
003750
003756
003762
003764
003766

WRITLU:

010146
013701
052701
052701
010137
105037
113777
004737
000000
012601
000207

MOV

;SAVE R1

REGNUM,R1
#100,R1
#MVIXO0,R1

;GET LINE UNIT REG NUMBER
sSET SOURCE = BSEL4
sSET REST OF MOVE INSTRUCTION

MOvB
Jsgno

WRIBYT,aBSEL4
SC.STPCLK

;LOAD BYTE INTO BSEL4
*EXECUTE MOVE INSTRUCTION

(SP)+,R1

:RESTORE R1

MOV
CLRB

2%:

R1,-(SP)

MOV
BIS
BIS

MOV
RTS

R1,2$
WRIBYT+1

sSET INSTRUCTION AS SUBROUTINE ARGUMENT
;CLR HI BYTE OF STORAGE

*RETURN

ettt

22222222223322232233222223

;* GETREG = THIS SUBROUTINE READS THE LINE UNIT REGISTERS 10=17 INTO THE
*
REGISTER STORAGE TABLE (LUREG:).

010146
013746
012701

012737
004737
113721
105021

Sttt it
222223222222332222223

GETREG: MOV

MOV

002400

000020

3%:

MOV
JSR
MOvB
CLRB
INC
CMP
BLT
MOV
MOV
RTS

R1,-(SP)

;SAVE R1

#10,REGNUM
PC ,READLU
REDBYT, (R1)+
(R1)+
REGNUM
REGNUM, #20
3%
(SP) + ,REGNUM
(SP)+,R1

sINIT LU REG NO. TO 10
JREAD A LINE UNIT REG
;PUT BYTE READ INTO TABLE
;CLEAR UPPER BYTE OF TABLE ENTRY
s INCREMENT REG NO.
sSEE IF ALL REGS READ YET
:BR IF NOT
sRESTORE CURRENT REG NO.
;RESTORE R1

REGNUM, - (SP)

sSAVE CURRENT REG NO.
sINIT POINTER TO REG STORAGE TABLE

;RETURN

M8203 STATIC DIAG #1
18-JUL=79 09:44
P11

MACY11

30A(1052)
18-JUL=79
GLOBAL SUBROUTINES

09:53

PAGE 7-29

SEQ 0069

ttiit.t'tttt.tit'ttttttttttttttfit*tttifit!l.ttt".tti.ttt'tttt.'t't.!'.tt.tt't"

:* LOOPIN = THIS SUBROUTINE PLACES THE MICROPROCESSOR IN A LOOP ON AN

i
*

INSTRUCTION, BY MOVING THE INSTRUCTION FROM THE WORD FOLLOWING THE CALL
INTO SEL6, AND SETTING RUN AND ROMI IN BSEL1. THE SUBROUTINE RETURNS

WITH THE HICROPROCESSOR STUCK IN THE LOOP, AND IF

BSEL1, OR CALL SUBROUTINE MSTCLR TO DO THIS.

IS DESIRED TO

TERMINATE THE LOOP, THE PDP-11 PROGRAM MUST CLEAR THE RUN BIT IN

;tttttitt'tfitttfi"*t.tit*t.tttttfit.fi.t'*.*'t*Qtttttt"'fit"'tt"i.tQtfittt'ttt"'

152777

017677

152777
062716
000207

000006
000000
000206
000002

176374
176374
176360

OOPIN:

BISB

MOV
BISB

ADD

RTS

#ROMO!'ROMI ,aBSEL1

#2,(SP)
PC

sFIX UP RETURN PC

JRETURN WITH MICROPROCESSOR STUCK IN SINGLE

i
i

INSTRUCTION LOOP

eIt

;* READAX = THIS SUBROUTINE READS

;SET ROMO, ROMI BITS IN BSEL1

a(SP) ,aSEL6
sPUT MICROINSTRUCTION INTO SEL6
#RUN!ROMO
iROMI ,@BSEL1 ;SET RUN, ROMO, ROMI IN BSEL1

22222222222222222322223

THE USYRT REG PAIR WHOSE NUMBER

(0-3)

IS PASSED IN BITS 1,2 OF AXNUM ON ENTRY, AND RETURNS THE BYTES READ IN

RAX1S AND RAX16. IF THE LINE UNIT DOES NOT RESPOND WITH READY IN REG 14,
RRDYTO BIT IS SET IN ERROR1 ON RETURN.

010146
013746
042737
012737
113737
006237
152737

053737
004737

002400
000001
000014
002402
002366
0000
202426
003722
003644
000200

002420
002400
002366

READAX: MOV
MOV

002366
002366

002364

6$:

FeN

&HO

rnonD

002420
002400

JSR

BITB

BIS

98:

002370

BR
MOV
JSR

MOVB

002400

002372

012637

BIC
MOV
MOVB
ASR
BISB
BIS
JSR
CLR

BNE
INC
BNE

b e cd e

i cd

<3 53 R R R R R R R R SRR RRE
3 ENFRES NIIFERRNEENRISTRE <

.ttti.ti.ttfi'fi't*.'tt*!t't'*tfifii.itfi'fifi*i'itfit.*tt‘t"fitfiQt'iitit.i'ittttttt'tit

128:

CLRB
MOV
JSR
MOVB
CLRB
MOV

R1,=(SP)
REGNUM,-(SP)
#RRDYTO,ERROR1

#14 ,REGNUM
AXNUM,WRIBYT

:SAVE R1
:STORE CURRENT REG NO.
;CLEAR ERROR BIT

:SET LU REG NO. = 14
:SET UP AX REG NO. BITS

WRIBYT
#RDAX!ENAX,WRIBYT ;SET UP BITS TO LOAD INTO REG 14
DISILO,WRIBYT ~ ;SET PROPER STATE OF DISSI BIT
PC,WRITLU
:SET RDAX AND ENAX IN REG 14

R1
PC ,READLU
#READY,REDBYT
9%
R1
6$
#RRDYTO,ERROR1
128
#15 ,REGNUM
PC,READLU
REDBYT,RAX15
RAX15+1
#16,REGNUM
PC ,READLU
REDBYT,RAX16
RAX16+1
(SP)+,REGNUM

(INIT TIMER
:READ REG 14
:SEE IF READY BIT SET IN REG 14 YET
:BR IF READY SET
:INCR TIMER
:BR IF TIMER DIDN'T TIME OUT YET
:SET ERROR FLAG FOR TIME OUT ON READ RDY
:BR TO RETURN
:SET REG NO. = 15
:READ REG 15
:STORE REG AX=15
:CLR HI BYTE OF STORAGE
:SET REG NO, = 16
:READ REG 16
:STORE REG AX=16
:CLR HI BYTE OF STORAGE
:RESTORE CURRENT REG NO.

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
004260
004262

30A(1052)

18-JuL=79

GLOBAL SUBROUTINES

012601
000207

MOV

09:53

6
PAGE 7-30

(SP)+,R1

RTS

SEQ 0070

JRESTORE R1

sRETURN

;* WRITAX = THIS SUBROUTINE WRITES THE USYRT REG PAIR WHOSE NUMBER (0-3)
i*

PASSED

s®
i

002420
002400
002366

DATA FROM WAX15 AND

L I

;SAVE R1
s SAVE CURRENT REG NO.
;CLEAR ERROR BIT
:SET LU REG NO. = 14

ASR
BIS
JSR

WRIBYT
DISILO,WRIBYT
PC,WRITLU

;SET PROPER STATE OF DISSI BIT
*SET AX NO. BITS IN REG 14

WAX15+1
WAX15,WRIBYT
PC,WRITLU

*CLR HI BYTE OF STORAGE
:SET UP BYTE TO WRITE INTO REG 15
*WRITE BYTE INTO REG 15

MOovB

AXNUM, WRIBYT

MOV

#15 ,REGNUM

CLRB
MOVB
JSR

002366

INC

CLRB
MOVB
JSR
MOV

002366
002400
002366

MOvVB

6%:

9%:

AXNUM, WRIBYT

;SET AX REG NO. BITS

= 16

:CLR HI BYTE OF STORAGE
:SET UP BYTE TO WRITE INTO REG 16
:WRITE BYTE INTO REG 16
:SET REG NO. = 14

#ENAX
!WAX ,WRIBYT ;SET UP BITS TO LOAD INTO REG 14
DISILO,WRIBYT
;SET PROPER STATE OF DISSI BIT
PC.WRITLU
sSET ENAX AND WAX IN REG 14
R1
s INIT PROGRAM TIMER
PC,READLU
;READ REG 14
#READY ,REDBYT
;SEE IF READY BIT SET IN REG 14 YET
9%
:BR IF READY SET
R1
s INCR TIMER
6%
:BR IF TIMER DIDN'T TIME OUT YET
#WRDYTO,ERRORT
;SET ERROR FLAG BIT FOR TIME OUT ON WRITE RDY
(SP) +,REGNUM
:RESTORE CURRENT REG NO.
(SP)+,R1
:RESTORE R1

RTS

AR AR RS

:SET REG NO. = 15

*SET REG NO.

WRIBYT

BISB
BIS
JSR
CLR
JSR
BITB
BNE
INC
BNE
BIS
MOV
MOV

;SET AX REG NO. BITS

RE GNUM

WAX16+1
WAX16,WRIBYT
PC,WRITLU
#14 ,REGNUM

ASR

002366
002366

002420

WITH THE

R1,-(SP)
REGNUM, - (SP)
#WRDYTO,ERRORT
#14 ,REGNUM

002400

000002
002400

AXNUM ON ENTRY,

WRITAX: MOV
MOV
BIC
MOV

002366

002364

IN BITS 1,2 OF

WAX16. IF LINE UNIT DOES NOT RESPOND WITH READY IN REG 14, WRDYTO BIT
IS SET IN ERRORT ON RETURN.

010146
013746
042737
012737
113737

Sen.N,
8,

6575
6576
6577

MACY11

sRETURN

2222323223232 2332322322222223223%

;* GETALL = THIS SUBROUTINE READS THE LINE UNIT REGS 10-17 AND THE EXTENDED
;*
REGISTERS AX0-AX3 INTO REGISTER STORAGE TABLE (LUREG:’

004500
004502
004506

002402
0144M

GETALL: MOV

002530

MOV

ire

SRSt

+-40

S04t

R1,-(SP)

;SAVE R1

#DH5, TMPQ

sSET AX LO BYTE NO.

AXNUM, - (SP)

SPe>eh

oSS SUUTPEP

:SAVE CURRENT AX REG BYTE NO.

PPN

(ZDMRA M8203 STATIC DJAG #1
CZDMRA.P11
18-JUL=79 09:44

6631

6632

6633
6634
6635
6636
6637
6638
6639

004514

004522

004524
004532
004536
004544
004550
004554
004560

6640
6641
6642

004564
004566
004572

6644
6645
6646

004602
004610
004612

6643

6647
6648

6649
6650

6651
6652
6653
6654

032737

MACY11

30A(1052)
18-JUL=79
GLOBAL SUBROUTINES

000001

002402

014414

002530

BIT
BEQ

003770
000010
002322
002402

004574

175704

38:

002402
000010

004616
004620

(4)
(5)
(5)
(5)

6679
6680
6681
6682

6
PAGE 7-31

#8170, AXNUM
1$

MOV
JSR
BICB
MOV
CLR
JSR
MOVB
CLRB
MOVB
CLRB

#DH6, TMPQ
PC,GETREG
#LULOOP,aBSEL1
#AX0, 15, R1
AXNUM
PC ,READAX
RAX15,(R1)+
(R1)+
RAX16,(R1)+
(R1)+

ADD

#2 , AXNUM

CMP
BLT

AXNUM, #10
38
(SP)+ ,AXNUM
(SP)+.R1
AXNUM, TMP1
TP

MOV
MOV
MOV
ASR

002532

004626
004632

RTS

6655
6656

6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678

18:

09:53

SEQ 0071

;SEE IF LO OR WI BYTE
:BR_IF LO BYTE
:SET AX HI BYTE NO.
:READ AND STORE REGS 10-17
:CLEAR LULOOP

:INIT POINTER TO REG STORAGE TABLE

:INIT AX REG BYTE NO.

TO 0

:READ 2 AX REG BYTES
:PUT L0 BYTE READ INTO TABLE
:CLEAR UPPER BYTE OF TABLE ENTRY
:PUT HI BYTE READ INTO TABLE

:CLEAR UPPER BYTE OF TABLE ENTRY
:INCR AX REG BYTE NO.

:SEE IF ALL REGS READ YET
:BR IF NOT
:RESTORE CURRENT AX REG BYTE NO.
:RESTORE R1
:GET EXTENDED REG NO.

RETURN

3ARttt

FOR PRINTOUT

222222233323 2323222223232222222222222127%

:* OSIRDY - THIS SUBROUTINE CHECKS FOR THE PROPER STATES OF ORDY (REG 11)
i
AND OCOR (REG 17) AND REPORTS AN ERROR IF EITHER IS NOT PROPERLY SET
i
AS PASSED IN BIT 0 (ORDY) AND BIT 1 (OCOR) OF THE WORD FOLLOWING THE
. %

IF ANERROR OCCURS, A RETURN IS MADE TO THE TEST. AT THE ADDRESS IN

004634
004640
094644
004650
004652
004660
004666
004674
004700
004706
004710
004716
004720

013746
013746
005737
001006
016637

:'t.fit.ttttiQQtttttt.ttt!ttt'tttt'tttfiiti!ttttttttttfi'.t't.t"t'fi.tt"t..tttt"t'

002400
002352
002352

OSIRDY:

REGNUM,-(SP)
SUBRP(
, = (SP)

BNE
MOV
SuB
MOV
JSR
BIT
BEQ
BITB
BNE
JSR

1$
4 (SP)
, SUBRP(
#4 , SUBRPC
#11,REGNUM
PC ,READLU
#8IT0,84(SP)
3$
WORDY,REDBYT
9%
PC,GETALL

TST

000004
000004
000011
003644
000001

000004

000020

002364

002352
002352
002400

004500

18:

SUBRP(

:REPORT ORDY NOT

004724

ERRDF

004724
004726
004730
004732

004734
004736
004744
004746

MOV
MOV

SET

;SAVE LU REG NO.
:SEE

THIS

:BR IF YES

IS A NESTED CALL

:GET PC OF SUBROUTINE CALL
:SET REG NO, TO 11
:READ REG 11

:GET EXPECTED STATE OF ORDY
:BR_IF EXPECTED ORDY = 0
:SEE IF ORDY
=1
:BR IF ORDY =
:GET REGS FOR PRINTOUT

7,EM7 ,ERR4
TRAP

.WORD
.WORD

000020
004500

002364

38:

BITB

BEQ
JSR

168

WORDY,REDBYT
9%
PC,GETALL

;TAKE ERROR RETURN

:SEE IF JRDY = 0

:BR IF ORDY = 0
{2E
T RECS FOR PRINTOUT

.WORD

CSERDF

7
EM7

ERR&

CZDMRA M8203 STATIC DJAG #1

CZDMRA.P1

18=JUL=79 09:44

MACY11

6683
6684

30A(1052)
18-JuL=79
GLOBAL SUBROUTINES

09:53

6
PAGE 7-32

SEQ 0072

sREPORT ORDY NOT CLEARED

(4)

ERRDF

8,EM8,ERR4

16%

CSERDF
8

(%)
(5
002400

000017
003644

000002

000004

737

000020

002364

37
37

004500

9%:

MOV
JSR
BITB
BEQ
BITB

#17 ,REGNUM
PC,READLU
#BIT1,a4(SP)
12%
#0COR REDBYT

JSR

PC,GETALL

ERRDF

9,EM9,ERR4

BNE

208

;REPORT OCOR NOT

SET

ERR4

. TAKE ERROR RETURN

;SET REG NO. =_17

sREAD LU REG 17

sGET EXPECTED STATE OF OCOR
;BR_IF EXPECTED OCOR = 0
sSEE IF OCOR = 1

;BR IF OCOR = 1

;GET REGS FOR PRINTOUT
CSERDF

EM9

000020

002364

004500

000407
062766

12%:

16%
#0COR,REDBYT
20%
PC,GETALL

sREPORT OCOR NOT CLEARED
ERRDF
10C,EM10,ERR4

000002

002400

16%:

000002
002352
002400

000004

20%:

002346
002362

BR
BITB
BEQ
JSR

MOV
MOV
MOV

BR
ADD

23%
#2,4(SP)

RTS

MOV
MOV

23%:

2(SP) ,REGNUM
PSTACK,SP
RETADR,=(SP)

(SP) +,SUBRP(
(SP)
+ ,REGNUM

ERR4

: TAKE ERROR RETURN
;SEE IF OCOR = 0
s8R IF OCOR = 0
;GET REGS FOR PRINTOUT
TRAP

.WORD
.WORD
.WORD

JRESTORE LU REG NO.
JRESTORE STACK POINTER TO BASE LEVEL
sFIX ERROR RETURN PC

CSERDF

EM10
ERR4

sFIX UP ERROR-FREE RETURN PC
;RESTORE LU REG NO.

JRETURN

:tt"tttttti'tttttfi'.tti"*ttl!t..*t'ifitt.'tt't'.tl.'tttltttt'tt.'tt"t'..""'t

;* WAIT50 = THIS SUBROUTINE STALLS FOR AT LEAST 50 MICRO-SEC, AND THEN RETURNS.
A

010146
012701
005301
001376
012601
000207

00031C

WAITS0: MOV
MOV

3%:

DEC
BNE

MOV

RTS

R1,=-(SP)

#200.
R
R1

(SP)+ ,R1
PC

:SAVE R1

2223223332222323322222222222232323331

sINIT COUNTER
;DECREMENT COUNTER
;BR IF NOT DONE YET

;RESTORE R1
sRETURN

M8203 STATIC DIAG #1
18=JUL=79 09:44
P11

MACY11

18-JUL=79
30A(1052)
GLOBAL SUBROUTINES
S

ALAE

09:53

LSRRl

ARE

NOP
NOP
T
o

RSl

LDTXSI: MOV

#170000, TXWORD

MOV

#10,REGNUM

JSR

PC,WRITLU

RTS

MOVB

002400

REGNUM, - (SP)

BIC

MOV
MOVB
JSR

002400
002366

222222222222

2223222232323 22232222322222¢%;

ARl

002422
002400
002366

STALLS FOR ABOUT A MICRO-SEC.

;* LDTXSI = THIS SUBROUTINE LOADS THE
;®
IN BITS 0=11 OF TXWORD.

013746
042737
012737
113737

SEQ 0073

NOP
(%]

STALL:

PAGE 7-33

;* STALL = THIS SUBROUTINE

005136
005140
005142
005144

MOV

Y2322 32323223232222222222¢%

TX SILO (REGS 10,11) WITH THE DATA PASSED

T22222223

2232222222222

;SAVE LU REG NO.

: CLEAR UNUSED BITS

#11 ,REGNUM
“SET REG NO. = 11
TXWORD+1,WRIBYT :SET DATA TO BE WRITTEN INTO REG 11
PC,WRITLU
*LOAD DATA INTO REG 11
TXWORD,WRIBYT

(SP)+,REGNUM

:SET REG NO. = 10

:SET DATA TO BE WRITTEN INTO REG 10

*LOAD DATA INTO REG 10
:RESTORE LU REG NO.

*RETURN

'ttttfittttttttttitttfitt.lit".ttttt't'.'it't't..'..t.tt't..'Q.tl.."tt".'t't't'

;* STPLU - THIS SUBROUTINE CLOCKS THE LINE UNIT FOR THE NO. OF CYCLES PASSED
o
IN BITS 0-14 OF THE WORD FOLLOWING THE CALL.
i
IF BIT 15 = 1, A CHECK IS MADE TO DETERMINE IF THE USYRT CHIP TYPE
i
REQUIRES DECREMENTING THE NO. OF CYCLES BY 1.

.tttitttfi"tttttttfit.tttt't'fit.'ttt.fifittt'..t'ttt...'...'tttt.ttt't...Q't'tt.t.'

010146
017601
001426
100006

042701

STPLU:

000002
100000

002430

000010
005136
000020
005136

000002

MOV

2%:
38

175146

000002

*SEE

R1
#LULOOP,aBSEL1

:DECREMENT CYCLE COUNT
:SET LU LOOP BIT

BEQ

BI(B
JSR
DEC

6$:

CHPTYP

6$
2$
#81T15.R1

DEC
BISB
BISB
JSR

BNE
ADD
MOV
RTS

:SAVE R1

:GET DESIRED NO. OF CYCLES

BEQ
BPL
BIC
ST

175166
175160

R1,-(SP)

a2(sP) ,R1

#STEPLU,@BSEL1

PC,STALL
#STEPLU,@BSEL1
PC,STALL
R1
3s
#2,2(SP)
(SP)+.R1
PC

:IF DESIRED CYCLES = 0, RETURN
:BR IF CHIP TYPE CHECK NOT NECESSARY
*CLEAR FLAG BIT
IF

SIG USYRT

‘BR IF YES

:SET THE STEPLU BIT (CLOCK THE TRANSMITTER)

SSTALL
:CLEAR THE STEPLU BIT (CLOCK THE RECEIVER)
*STALL
*DECREMENT CYCLE COUNTER
*BR IF NOT DONE YET
*FIX UP RETURN PC
*RESTORE R1

*RETURN

CZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11

MACY11

18=JUL=79
30A(1052)
GLOBAL SUBROUTINES

09:53

PAGE 7-34

SEQ 0074

6783

MRS

AL LRSSt

Y2222 222322322222222%;

;* OACTIV = THIS SUEROUTINE CHECKS FOR THE PROPER STATE OF OQACT

'P
;e

SRR

013746

002400

OACTIV: MOV

005737
001006
016637

002352

TST

013746

162737

002352

000011
003644
000001
000100

A A

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

REGNUM, - (SP)

SUBRP(
, = (SP)

SUBRPC

BITB
BNE

#OACT ,REDBYT
9%

;SEE IF OACT =1
:BR IF OACT = 1

ERRDF

11,EM11,ERR4

BEQ

JSR

6%
#OACT ,REDBYT
9%
PC,GETALL

sREPORT OACT NOT CLEARED

000002
002346
002362

002400

000002

000004

6%:

;BR_IF EXPECTED OACT = 0
:GET REGS FOR PRINTOUT

TRAP

:TAKE ERROR RETURN
;SEE IF OACT = 0
:BR IF OACT
= 0

MOV

2(SP) ,REGNUM

JRESTORE LU REG NO.

?S;ADRR(SP)

sFIX UP ERROR RETURN PC

PSTACK,SP

ADD

#2,4(SP)

sFIX UP ERROR-FREE RETURN PC

RTS

sRETURN

11
EM11
ERR4

TRAP
.WORD
.WORD

CSERDF
12
EM12

.WORD

MOV

(SP) +,SUBRP(
(SP) + ,REGNUM

CSERDF

.WORD
.WORD
.WORD

;GET REGS FOR PRINTOUT

12,EM12,ERR4

MOV
MOV

12%:

:BR IF YES

ERRDF

Bngv

9%:

THIS IS A NESTED CALL

:GET PC OF SUBROUTINE CALL
:SET REG NO. = 11
sREAD REG 11
;GET EXPECTED STATE OF OACT

BR
BITB

3$:

sSEE IF

1%
4 (SP) ,SUBRPC
#4 ,SUBRP(
#11 ,REGNUM
PC,READLU
#BITO,a4 (SP)

JSR
PC,GETALL
;REPORT OACT NOT SET

002364

;SAVE LU REG NO.

BNE
MOV
SuB
MOV
JSR
BIT
BEQ

002364

004500

002352
002400

1$:

000004

004500

000100

A A

MOV

002352
002352
002400

(REG 11) AND

REPORTS AN ERROR IF IT IS NOT PROPERLY SET TO THE STATE OF BIT O IN THE
WORD FOLLOWING THE CALL.

ERR4

sRESTORE PROGRAM STACK TO BASE LEVEL

JRESTORE LU REG NO.

2332222322322

222322232;

:* INITRN = THIS SUBROUTINE INITIATES TRANSMISSION OF A MESSAGE, BY DOING A
;*
;®

MASTER CLEAR, LOADING AX2=15 AND REG 17 WITH THE DATA PASSED IN THE 2
WORDS FOLLOWING THE CALL, LOADING 2 SOM CHARS INTO THE TX SILO, AND

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

18=JUL~79 09:44

MACY11 30A(1052)

GLOBAL SUBROUTINES

6831
6832
6833
6834
6835

;>
i
,x
i

68“

005512
005514

010146
013746

002400

6840

005524

016637

000006

005520

013746

162737

002402

000004

002352

005532

6843
6844
6845
6846
6847
6848
6849
6850
6851
6852

005544
005550
005552
005556
005560
005566
005574
005602
005610
005614

004737
000001
004737
000000
012737
117637
012737
113737
005037
004737

000004
000006
000400
002374
002376
004264

002402
002374
002422
002422

6854
6855
6856

005626
005634
005642

062766
117637
004737

000002
000006
003722

000006
002366

6858
6859
6860
6861

005652
005656
005662
005666
005670

004737
004737
004737
000003
004737

005146
005120
004634

6857

6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886

6
PAGE 7-35

CLOCKING THE LINE UNIT UNTIL THE FIRST SYNCH OR FLAG HAS BEEN SERIALIZED
IN THE USYRT. THE PROGRAM MONITORS ORDY,OCOR, AND OACT FOR VALID STATES,
THROUGHOUT THE PROCESS.
IF THE SUBROUTINE DETECTS AN ERROR, A RETURN IS MADE TO THE TEST, AT THE
ADDRESS CONTAINED IN RETADR.

INITRN: MOV
MOV

6841

6842 005540 004737 003576

6853

09:53

'tttttttttQ.tt.tt..ttt.t"'ttt't.tttt.tttifiittQtti.tttti.'t.tt't't'ttifi.'.t"

6837
6838

6839

18-JuUL=79

005620

005646

005674
005676
005700
005706
005714
005722
005726
005732
005740
005742
005750
005754
005756
005762
005764
005770
005772
006000
006004
006010
006016
006020
006026
006034

012737

004737

000000
005001
012737
152777
152777
004737
004737
132737
001014
142777
004737
005201
020127
002751
004737
000001
012737
005037
004737
132737
001403
012737
142777
004737

005324

000017

AXNUM, = ( SP)

SUB

#4, SUBRPC

:GET PC OF SUBR CALL

JSR
1
JSR
0
MOV
MOVB
MOV
MOVB
CLR
JSR

PC,OSIRDY

*CHECK ORDY=1, OCOR=0

PC,OACTIV

:CHK OACT=0

#4 , AXNUM
6(SP),WAX15
#TXSOM,TXWORD
WAX15,TXWORD
WAX16
PC,WRITAX

;SET
:SET
:SET
:SET

;LOAD AX2

#2,6(SP)
@6(SP),WRIBYT
PC,WRITLU

:INCR POINTER TO NEXT DATA BYTE
:SET DATA BYTE TO LOAD INTO REG 17
:LOAD REG 17

PC.LDTXSI
PC.WAIT50
PC.0SIRDY

:LOAD ANOTHER SOM INTO SILO
:WAIT FOR DATA TO RIPPLE
:CHK ORDY=1, OCOR=1

JSR

004634

002400

MOV

000011
000010
000020
005136
003644
000100

002364

000020

174500

ADD
MOVB
JSR
JSR
JSR
JSR
JSR
3
JSR
0
CLR
MOV
BISB
BISB
JSR
JSR
BITB
BNE
BICB

000017
002430
003644
000020

002400

CMP
BLT
JSR
1
MOV

000001
000020
005136

002430
174414

005146

005324

005136

002400
174534
174526

68:

JSR
INC

000003

005324
9$:

002364

CLR
JSR

BITB
12%:

:SAVE R1
:SAVE LU REG NO.

MOV

002352

R1,=(SP)
REGNUM,=(SP)

BEQ
MOV

BI(B

JSR

6(SP)
, SUBRPC

PC.MSTCLR

#17 ,REGNUM

PC.LDTXSI

:SAVE AX BYTE NO.

:ISSUE
A MASTER CLEAR

AX BYTE NO. = 4 FOR AX2
DATA BYTE TO LOAD INTO AX2-15
TSOM BIT
SYNCH CHAR

:SET REG NO. = 17

:LOAD THE SILO WITH SOM CHAR

PC,OACTIV

;CHK FOR OACT = 0

R1
#11 ,REGNUM
#LULOOP,@BSEL1
#STEPLU.@BSEL1
PC,STALL
PC ,READLU
WOACT,REDBYT
98
#STEPLU,@BSEL1

;INIT CYCLE COUNTER
:SET LU REG NO. = 11
:SET LINE UNIT LOOP BIT
:SET CLOCK BIT
:STALL FOR MICRO-SEC
:READ REG 11
-SEE IF OACT
= 1 YET
:BR IF OACT
= 1
:CLEAR CLOCK BIT

R1,43
61
PC,OACTIV

:SEE IF 3 CYCLES DONE YET
:BR
IF NOT
:CHK FOR OACT
= 1

#17 ,REGNUM
CHPTYP
PC ,READLU
#OCOR,REDBYT
128
#1,CHPTYP
#STEPLU,@BSEL1
PC,STALL

;SET REG NO. = 17
:CLEAR USYRT CHIP INDICATOR
:READ REG 17

PC.STALL
R

:STALL FOR A MICRO-SEC
:INCR CYCLE COUNT

:CHK FOR OCOR CLEARED YET

:BR IF YES = IT IS SIG CHIP
:SET INDICATOR FOR OTHER CHIP TYPE
:CLEAR CLOCK BIT

:STALL FOR MICRO-SEC

SEQ 0075

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

006040
006044
006046
006054
006060
006064
006066
006072

004737
000001
062766
012637

18-JUL=79
MACY11 30A(1052)
GLOBAL SUBROUTINES

004634
000002
002402
002400

000006

002352

PAGE 7-36

SEQ 0076

{SR

PC,OSIRDY

sCHK FOR ORDY = 1, OCOR = 0

ADD
MOV
MOV
MOV
CLR

#2,6(SP)
(SP) + ,AXNUM
(SP) + ,REGNUM
(SP)+ ,R1

sFIX UP RETURN PC
sRESTORE AX BYTE NO.
sRESTORE LU REG NO.
sJRESTORE R1

RTS

09:53

SUBRP(
PC

;CLEAR SUBR CALL PC
sRETURN

AE AR ALttt
I
1222212223222 222223322222223;

TXCHAR = THIS SUBROUTINE INITIATES TRANSMISSION OF A CHARACTER, BY LOADING
THE TX SILO WITH DATA PASSED IN BITS O-11 OF THE WORD FOLLOWING THE CALL

i
i
i
i
i

AND CLOCKS THE LINE UNIT WITH THE NUMBER OF CYCLES PASSED IN BITS 0-14
OF

THE SECOND WORD FOLLOWING THE CALL.

IF BIT 15 = 1, A CHK IS MADE

DETERMINE IF THE USYRT CHIP TYPE REQUIRES DECREMENTING THE NO. OF CYCLES
BY 1. THE PROGRAM CHECKS FOR VALID STATES OF ORDY,
OCOR, AND OACT THROUGHOUT THE PROCESS.
IF AN ERROR IS DETECTED, A RETURN IS MADE TO THE TEST, AT THE ADDRESS
CONTAINED IN RETADR.

’QtfittQfiQt.fit't"t..!*.t".tfit.Q'.fit.".Qi't..iit'.tfi..'t'itfit'.t..'..ttt.ttitt.

010146

TXCHAR:

005146
005120
000002

002352
002352
002422

MOV

MOV
SUB
MOV
JSR
JSR
ADD
CLR
MOV
TST
BPL

000004

100000

R1,=(SP)

R2,=(SP)

4(5P)
, SUBRPC
#4, SUBRPC
®(SP)
, TXWORD
PC,LDTXSI
PC.WAIT50
#2.4(SP)
R1
@ (SP) ,R2
R2
9%

:SAVE R1

{SAVE R2
;GET PC OF SUBR CALL
:GET DATA TO BE TRANSMITTED
:LOAD THE TX SILO WITH THE DATA
:WAIT FOR DATA TO RIPPLE DOWN SILO
*INCK POINTER
$INIT CYCLE COUNT
:GET DESIRED NO. OF CYCLES

:SEE IF CHIP TYPE CHK SHOULD BE MADE
:BR IF NOT

BIC

#BIT15,R2

*CLEAR FLAG BIT

BEQ
DEC

98
R2

BR IF YES
:DECREMENT NO. OF CYCLES

004634

cMP
BEQ
JSR

R1,R2
128

;SEE IF REQUIRED CYCLES DONE YET
BR IF YES

005226

JSR

PC,STPLU

;STEP LU ONE CYCLE

INC
BR

;INCR CYCLE COUNT

JSR

R1
9$
PC,0SIRDY

:CHK ORDY=1, OCOR=0

ADD
CLR
MOV
MOV

#2,4(SP)
SUBRPC
(SP)+,R2
(SP)+.R1

;FIX UP RETURN PC
:CLEAR SUBR CALL PC
RESTORE R2
*RESTORE R1

002430

TST

005324

004634
000002
002352

128:

000004

JSR

CHPTYP

PC,OACTIV

PC,OSIRDY

*SEE

SIG USYRT

:CHK OACT
= 1

*CHK ORDY=1, OCOR=1

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P1
18=JUL=79 09:44

006244

MACY11 30A(1052)

18-JUL=79
GLOBAL SUBROUTINES

000207

RTS

09:53

6
PAGE 7-37

SEQ 0077

;RETURN

.ttt.tt.'.'fitfi.."t.'.."".t..tfil.....QQ.Q.....t.'...QQ..t.tt.'...i.."....""

:* ENDTRN = THIS SUBROUTINE CLEARS THE TRANSMITTER BY SETTING OC. THE PROGRAM
i
WAITS FOR 50 US, AND CHECKS FOR ORDY=1, OCOR=0, OACT=0, RTS=0.

.iQ.'ttltfi'Q.t't..tt'.fifi.'fi..fi....t..‘.Q't...'..t..'..ttfi'.Q..'l.t...'.'.."'.'.

010146

002400
000004
000004
000011
000200
003722
005120
004634

ENDTRN: MOV

002352
002352
002400
002366

000013
003644
000040
004500

002352
002400

002400
002364

ISR

PC,OACTIV

;CHK OACT = 0

MOV
JSR
BIT

#13 ,REGNUM
PC ,READLU
#RTS ,REDBYT

:SET REG NO, = 13
:READ REG 13
:CHK FOR RTS =

PC.OSIRDY

BEQ
3$
JSR
PC,GETALL
:REPORT RTS NOT CLEARED
ERRDF 65,EM65 ,ERR4

38:

:SAVE R1

REGNUM,-(SP)
4(SP)
, SUBRPC
#4 , SUBRP(
#11,REGNUM
#0C . WRIBYT
PC,WRITLU
PC.WAITS0

JSR

005324

R1,=(SP)

MOV
MOV
SUB
MOV
MOV
JSR
JSR

CLR
MOV
MOV
RTS

SUBRPC
(SP)+,REGNUM
(SP)+.R1

:SAVE LU REG NO.
:GET PC OF SUBROUTINE CALL
:SET LU REG NO. = 11
:SET OC IN DATA
:SET OC IN REG 11
:STALL FOR >S50 US.
:CHK ORDY=1, OCOR=0

:BR IF RTS
=
:GET REGS FOR PRINTOUT
TRAP

.WORD
-WORD
-WORD

:CLEAR SUBR CALL PC
:RESTORE LU REG NO.
:RESTORE R1

CSERDF

65
EM65
ERR4

*RETURN

2212223222322 22222232223

;* ISIRDY = THIS SUBROUTINE CHECKS FOR THE PROPER STATES OF ICIR (REG 17)
;*
AND IRDY (REG 12) AND REPORTS AN ERROR IF EITHER IS NOT PROPERLY SET
I
AS PASSED IN BIT O (ICIR) AND BIT 1 (IRDY) OF THE WORD FOLLOWING THE
o*
CALL.
:.
IF AN ERROR OCCURS, A RETURN IS MADE TO THE TEST AT THE ADDRESS
IN RETADR.
i
e

006402
06
006412

20
006426

013746
013746
005737
001006
016637
162737

002400
002352
002352

1SIRDY: MOV

MOV
ST

BNE
MOV
suB

REGNUM, - (SP)

SUBRPC
.~ (SP)

SUBRP(

1s
4(SP)
, SUBRPC
#4, SUBRPC

i3 333223223223222222222223

sSAVE LU REG NO.

sSEE IF THIS IS A NESTED CALL
:BR IF YES
;GET PC OF SUBR CALL

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.PT
18=JUL=79 09:44

012737
004

MACY11 30A(1052)

18-JUL=79
GLOBAL SUBROUTINES

000012
003644
000002

000004

000020

002364

002400

004500

18:

09:53

MOV

#12 ,REGNUM

BIT
BEQ
BITB
BNE

#BIT1,34(SP)
33
#IRDY ,REDBYT
9%

JSR

PC ,READLU

PC,GETALL

;REPORT IRDY NOT SET
ERRDF
17,EM17,ERR4

6
PAGE 7-38

SEQ 0078

;SET REG NO, TO 12
sREAD REG 12
sGET EXPECTED STATE OF IRDY
:BR_IF EXPECTEDIIRDY =0
:SEE IF IRDY =
;BR_IF IRDY = 1
;GET REGS FOR PRINTOUT
CSERDF
17

EM17
000020

002364

004500

3%:

BR
BITB
BEQ
JSR

16$
#IRDY ,REDBYT
9%
PC,GETALL

:REPORT IRDY NOT CLEARED
ERRDF
18,EM18,ERR4

ERR4

s TAKE ERROR EXIT

;SEE IF IRDY = 0
¢BR IF IRDY = 0
;GET REGS FOR PRINTCUT
CSERDF

EM18

000017
003644
000001

000004

000010

002364

002400

004500

000010

002346
002362

000002
002352
002400

BITB
BNE
JSR

16%
#17 ,REGNUM
PC,READLU
#BI1T0,94 (SP)
12%

#1CIR REDBYT
208

PC,GETALL

:REPORT ICIR NOT SET
ERRDF
19,EM19,ERR4

002364

004500

000002

9%:

BR
MOV
JSR
BITB
BEQ

12%:
sREPORT

002400

000004

16$%:

BR
BITB
BEQ
JSR

16%
#1CIR,REDBYT
20%
PC,GETALL

ERRDF

20,EM20,ERR4

ICIR NOT CLEARED

MOV

MOV
MOV

2(SP) ,REGNUM
PSTACK,SP
RETADR,=(SP)

20%:

BR
ADD

23%
#2,4(SP)

23%:

RTS

MOV
MOv

(SP) +,SUBRPC
(SP)
+ ,REGNUM

ERR4

s TAKE ERROR RETURN
sSET REG NO, = 17

;READ REG 17

;GET EXPECTED STATE OF ICIR
;BR _IF EXPECTED ICIR = 0
;SEE IF ICIR =1
:BR IF ICIR = 1
;GET REGS FOR PRINTOUT

CSERDF
19
EM19
ERR4

:TAKE ERROR RETURN

sSEE IF ICIR = 0
:BR IF ICIR = 0
:GET REGS FOR PRINTOUT
TRAP
.WORD

sRESTORE LU REG NO.

.WORD
.WORD

JRESTORE STACK POINTER TO BASE LEVEL

sFIX ERROR RETURN PC

sFIX UP ERROR-FREE RETURN PC(

sRESTORE LU REG NO.
TURN

CSERDF
20
EM20
ERR4

CZDMRA M8203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P1

18-JUL=79
MACY11 30A(1052)
GLOBAL SUBROUTINES

09:53

PAGE 7-39

SEQ 0079

7035
7036

7037
7038
7039
7040

ARSI
I
T332 2222222222232.

;* JACTIV = THIS SUBROUTINE CHECKS FOR THE PROPER STATE OF IACT (REG 12) AND
. %
REPORTS AN ERROR IF IT IS NOT PROPERLY SET TO THE STATE OF BIT 0 IN THE
*
WORD FOLLOWING THE CALL.
*
IF AN ERROR OCCURS, A RETURN IS MADE TO THE TEST AT THE ADDRESS IN
*
RETADR.

7041

7042
7043
7044
7045

7046
7047

013746
013746
005737
001006
016637

RSttt il

MOV
MOV
ST
BNE
MOV
SUB
MOV

IACTIV:

002352
002352
002400

1%:

JSR
BIT
BEQ
BITB
BNE

000004
002364

000100

002364

004500

0004

062766

012637
012637

000207

PC ,READLU
ggno,ausp)

#IACT ,REDBYT
9%
JSR
PC,GETALL
sREPORT IACT NOT_SET
ERRDF
21,EM21,ERR4

BR
BITB
BEQ

3%:

6%
#1ACT ,REDBYT
9%

JSR

PC,GETALL

ERRDF

22,EM22,ERR4

;REPORT IACT NOT CLEARED

104455

012730
015576
016637
013706
013746

REGNUM, - (SP)
SUBRPC
.= (SP)
SUBRP(
1s
4(SP),SUBRPC
#4, SUBRPC
#12,REGNUM

000002
002346
002362

002400

000002
002352
002400

000004

6%:

MOV

MOV
MOV

9%:

ADD
MOV
MOV
RTS

12%:

2(SP) ,REGNUM
PSTACK,SP
?S;ADR.-(SP)

#2,4(SP)
(SP)+,SUBRPC
(SP)
+ ,REGNUM
PC

2122232222222222323232222

;SAVE LU REG NO.

;SEE IF THIS IS A NESTED CALL
IF YES

;GET PC OF SUBR CALL
;SET REG NO, = 12
;READ REG 12
sGET EXPECTED STATE OF IACT

:BR_IF EXPECTED IACT = 0
;SEE IF IACT
=
:BR _IF IACT = 1
;GET REGS FOR PRINTOUT

TRAP

.WORD
.WORD
.WORD

s TAKE ERROR EXIT
;SEE IF IACT = 0
:BR_IF IACT = 0
;GET REGS FOR PRINTOUT

TRAP

.WORD
.WORD
.WORD

sRESTORE LU REG NO.
sRESTORE PROGRAM STACK TO BASE LEVEL

CSERDF

21
EM21
ERR4

CSERDF

22
EM22
ERR4

sFIX UP ERROR RETURN PC

sFIX UP ERROR-FREE RETURN PC
sRESTORE LU REG NO.
sRETURN

det
et
eIt
2222232223202

;* RSEOM - THiS SUBROUTINE CHECKS FOR THE PROPER STATES OF

RSOM AND REOM IN

;% AXO-16, AND REPORTS AN ERROR IF EITHER IS NOT SET TO THE STATE PASSED IN BITS

r1r5441

MACY11

7083

30A(1052)
18-JUL=79
GLOBAL SUBROUTINES

0,1

AR AR

RSEQOM:

002352
002352
002402

162737

000004

002372

000001

002372

004500

000002

000004

000002

002372

004500

MOV
MOV
TST

MOV
1%:

SuB

MOV
JSR

BIT

AXNUM, - (SP)

SUBRP(
, = (SP)
?gBRPC

4 (SP) ,SUBRP(

#4 ,SUBRPC
#1 ,AXNUM

PC ,READAX

g§170.34(SP)

BEQ
BITB
#RSOM,RAX16
BNE
9%
JSR
PC,GETALL
SET
sREPORT RSOM NOT

3%:

ERRDF

29,EM29,ERR6

BR
BITB
BEQ
JSR

16%
#RSOM_,RAX16

ERRDF

28,EM28,ERR6

09%:

BR
BITB
BEQ
BITB
BNE
JSR

o o PN
e wd o

000002

Sttt Attt
2222232223 2232222222222

16%
#BIT1,94(SP)
12%
#REOM,RAX16
208
PC,GETALL

sREPORT REOM NOT_SET
ERRDF
31,EM31,ERR6

002372

004500

12%:

BR
BITB
BEQ
JSR

16$
#REOM_,RAX16
20%

PC,GETALL

sREPORT REOM NOT_CLEARED
ERRDF
30,EM30,ERR6

NNNNNN

SEQ 0080

THE WORD FOLLOWING THE CALL.

PC,GETALL
;REPORT RSOM NOT_CLEARED

—

NNNNY

VNNV
dadad oy mamaaa
OV
NI VIV
v
NN —=O

RESPECTIVELY, OF

7
PAGE 7=40

:' If AN ERROR OCCURS, A RETURN IS MADE TO THE TEST AT THE ADDRESS IN RETADR.
013746
013746
005737
001006
016637

7109

09:53

;SAVE AX BYTE NO.

;SEE IF THIS IS A NESTED CALL
;BR IF YES
JGET PC OF SUBR CALL
;SET AX BYTE NO. FOR AX0=16
JREAD AX0
JGET EXPECTED STATE OF RSOM

;BR IF EXPECTED RSOM = 0
;SEE IF Rson = 1
*BR IF RSOM = 1

:GET REGS FOR PRINTOUT

sTAKE FRROR EXIT
JSEE IF RSOM = 0

TRAP
.WORD
.WORD
.WORD

CSERDF
29
EM29
ERR6

TRAP

CSERDF

;BR IF RSOM = 0
;GET REGS FOR PRINTOUT

;TAKE ERROR RETURN

.WORD
.WORD
.WORD

28
EM28
ERR6

TRAP

CSERDF

;GET EXPECTED STATE OF REOM
sBR IF EXPECTED REOM = 0
;SEE IF REOM = 1
BR IF REOM
= 1
;GET REGS FOR PRINTOUT

;TAKE ERROR RETURN

.WORD
.WORD
.WORD

31
EM31
ERR6

TRAP

CSERDF

SEE IF REOM
= 0
BR IF REOM
= 0
;GET REGS FOR PRINTOUT

.WORD
.WORD

(5)
000002
002346

002402

16%:

MOV
MOV

2(SP) ,AXNUM
PSTACK,SP

.WORD
JRESTORE AX BYTE NO.
sRESTORE STACK POINTER TO BASE LEVEL

30
EM30

ERR6

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

CZDMRA.P11
7123
7126
7125
7126
7127

;} gg

007300
007304
007306
007314
007320

007324

18=JUL=79 09:44
013746
000407
062766
012637
012637

000207

MACYT1

30A(1052)

GLOBAL SUBROUTINES

002362
000002
002352
002402

000004

18-=JUL=-79

MOV
BR
ADD
Mov
Mov

20%:

23%:

09:53

PAGE 7-41

RETADR,=(SP)
23%
#2,4(SP)
(SP)+,SUBRP(
(SP)+ ,AXNUM

RTS

SEQ 0081

sFIX ERROR RETURN PC
;FIX UP ERROR-FREE RETURN PC
;RESTORE AX BYTE NO.

sRETURN

7130

7131

73
3
7134

SRR AR

7135

:* RDRXSI = THIS SUBROUTINE READS THE RCY SILO (REGS 10,12) AND RETURNS THE

7137

SRR

7136
7138

7139

7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150
7151
7152

007326

013746

007340
007344
007352
007360
007366
007372
007400
007404

004737
113737
042737
012737
004737
113737
012637
000207

007332

012737

002400

000012

003644
002364
170000
000010
003644
002364
002400

002400

AR AR AR AR AR R AR

AR AR A A

MOV

JSR
MOVB
BIC
MOV
JSR
MOVB
MOV
RTS

002424

AR AR R

AR A AR AR AR RN RAA N

SILO ENTRY IN BITS 0-11 OF RXWORD.

RDRXSI: MOV

002425
002424
002400

7153

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

REGNUM,=-(SP)

#12 ,REGNUM

PC ,READLU
REDBYT ,RXWORD+1
#170000,RXWORD
#10,REGNUM
PC ,READLU
REDBYT ,RXWORD
(SP) + ,REGNUM
PC

RN R

AR AR ARRRRN AR RRARARR R AR AR

sREAD LU REG 12
;GET HI BITS OF SILO ENTRY
;CLEAR UNUSED BITS
;SET REG NO. = 10
sREAD REG 10
;GET LOW BITS OF SILO ENTRY
JRESTORE LU REG NO.
sRETURN

AN AR AR AR RANRAARRRARARARR

CYCLES AFTER THE NO. OF CYCLES PASSED IN THE WORD FOLLOWING THE CALL.

7160

CONTAINED IN RETADR.

:®

7161

SRR

007406

007410

010146

010346

7164
7165
7166

007412
007416
007424

013746
016637
162737

7168
7169
7170

007440
007442
007446

005001
017603
062703

7167

7171

7172
7173
7174
7175
7176
7177
7178

RRR

:* RCVIST = THIS SUBROUTINE RECEIVES THE FIRST CHAR OF A MESSAGE, AND MONITORS
o
STATUS OF THE RECEIVER. FIRST, A CHECK IS MADE FOR IACT = 0, IRDY
= 0,
"
ICIR = 1, AND RSOM = 0. THEN, THE LINE UNIT IS CLOCKED USING
:®
STEPLU UNTIL IRDY = 1. THE PROGRAM CHECKS FOR THIS TO OCCUR WITHIN 3

7159

7163

;SAVE LU REG NO,

7158

7162

:SET REG NO. = 12

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

7154
7155
7156
7157

RN RRARRAR AR AR

007432

007452

007456
007460
007464
007466
007472
007474
007500

012737

005776

001414
004737
000000
004737
000001
004737
000000

IF AN ERROR OCCURS, A RETURN IS MADE TO THE TEST, AT THE ADDRESS

RCV1IST: MOV

002400
000006
000004

000012

000006
000003

000006

006666

006402

007054

MOV

002352
002352

002400

MOV
MoV
SuB

MOV
CLR
MOV
ADD

TST

BEQ
JSR
0
JSR
1
JSR
0

AR AR AR

R1,-(SP)

AR R AR AR R AR AR AR AR AR AR AR RN RA AR AR RN AR AR AR RN

R3,-(SP)

REGNUM, - (SP)
6(SP), SUBRPC
#4 , SUBRPC

né REGNUM
%(SP) R3
#3,R3

96 (SP)

;SAVE R1

:SAVE R3

sSAVE LU REG NO.

:GET PC OF SUBROUTINE CALL

:SET LU REG NO. = 12

JINIT CYCLE COUNT TO O
sGET CYCLE COUNT LIMIT

sSEE IF DESIRED CYCLES =0

8$
PC,IACTIV

:BR IF YES
;CHK FOR IACT = 0

PC,ISIRDY

;CHK FOR ICIR = 1,

PC ,RSEOM

;CHK RSOM = 0, REOM = 0 IN AX0-16

IRDY = 0

AR AR

TMTM

CZDMRA M8203 STATIC DIAG #1

CZDMRA M8203 STATIC DIAG #1
CZOMRA.P11
18=JUL=79 09:44
7179
7180
7181
7182
7183
7184

007502
007506
007510
007514
007516
007522

004737
000001
004737
005201
004737
132737

7186
7187

007532
007534

020103
002762

004737

006402

7190
7191
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201

007544
007550
007552
007556
007560
007564
007566
007572
007574
007602
007606
007610

020176
002003
004737
000001
004737
000001
004737
000003
062766
012637
012603
012601

000006

7203
7204
7205
7206
7207
7208

007616

7185

188

7202

007530

88;223

007612

001005

005037
000207

MACY11

18-JUL=79
30A(1052)
GLOBAL SUBROUT INES

005226

6$:

005120

8s:

003644
000020

002364

006666

128:

006402
000002
002400

000006

002352

PAGE 7-42

SEQ 0082

PC,STPLU

;CLOCK LU FOR 1 CYCLE

PC,WAITS0
R1
PC ,READLU
#IRDY,REDBYT

;ALLOW SILO DATA TO RIPPLE
: INCREMENT CYCLE COUNT
*READ REG 12
-SEE IF IRDY = 1 YET

CMP
BLT

R1,R3
6%

PC,ISIRDY

:SEE IF LIMIT EXCEEDED
BR IF NOT YET

*CHK FOR ICIR
= 1, IRDY = 1

P
BGE
JSR
1
JSR
1
JSR
3
ADD
MOV
MOV
MOV

R1,86(SP)
12§
PC,ISIRDY
'
PC,IACTIV

:SEE IF LESS THAN REQUIRED CYCLES
:BR
IF NOT
*CHK FOR ICIR = 1, IRDY = 0
;CHK FOR IACT = 1

PC,ISIRDY

;CHK FOR ICIR = 1,

#2,6(SP)
(SP)+,REGNUM
(SP)+.R3
(SP)+.R1

:FIX UP RETURN PC
:RESTORE LU REG NO.
‘RESTORE R3
*RESTORE R1

*RETURN

JSR

006402

JSR
1
JSR
INC
JSR
BITB

BNE

98 :

09:53

CLR

RTS

SUBRP(

:BR IF IRDY = 1

IRDY = 1

:CLEAR SUBR CALL PC

?209

"ttt*t.t"ttfifi*fi'.ttttQ'tti*t.Qt'tfiQtt'i*fifii.fi'tfi.t't"...ifit.'t'fi'.""'tt't"

7210
7211
7212

;% STPERR = THIS SUBROUTINE LOADS THE CONTENTS OF THE FIRST WORD FOLLOWING THE
i
CALL INTO REG 17, AND SETS THE IERR BIT, AND CLOCKS THE LINE UNIT
i
FOR THE NO. OF CYCLES PASSED IN THE 2ND WORD FOLLOWING THE CALL. THEN,

7214

:QttQt'ttfittit.ttt*.ttfit*t".fit*.fiti'fi"tfi'fi.i.t'..'t.tfit't'i'.tt'tt..tt.."tt"

7213

7215
7216
7217
7218

7219
7220
7221

7222

7223
7224
7225
7226
7227
7228

7229
7230
7231
7232
7233
7234

007620
007624
007632
007640

007646

007652
007660

007666

007672
007674
007702
007706
007714
007720

013746
012737
017637
152737

004737

062766
017637

004737

000000
142737
004737
062766
012637
000207

002400
000017
000002
000002

002400
002366
002366

000002
000002

000002
007672

003722
005226

000002
003722
000002
002400

002366

000002

IT RESTORES REG 17 TO ITS ORIGINAL CONTENTS, CLEARING THE IERR BIT.

STPERR: MOV
MOV
MOV
BISB

JSR

ADD
MOV

38:

JSR

.WORD
BICB
JSR
ADD
MOV
RTS

REGNUM,-(SP)
#17,REGNUM
@2(SP),WRIBYT
WIERR,WRIBYT

;SAVE LU REG NO.
:SET LU REG NO. = 17

#2.2(SP)
a2(sP),3s

: INCREMENT SUBR ARGUMENT POINTER
:GET DESIRED NO. OF CYCLES

0
AIERR,WRIBYT
PC,WRITLU
#2,2(SP)
(SP)+,REGNUM
PC

:NO. OF CYCLES GOES HERE

PC,WRITLU

PC,STPLU

:SET IERR BIT IN REG 17

:CLOCK LU FOR DESIRED NO. OF CYCLES

:CLEAR IERR BIT IN REG 17
*FIX UP RETURN PC
:RESTORE LU REG NO.
*RETURN

:"t"'!’tttfitt't'ttt.fiit"t'ttti.ltli'tt.'ittttt.tl..ltt.'t"'...t.".t."'t'.t'

M8203 STATIC DIAG #1
R
18=JUL=79 09:44

MACY11

30A(1052)
18-JuUL=-79
GLOBAL SUBROUTINES

09:53

7
PAGE 7-43

SEQ 0083

;* CKDATA = THIS SUBROUTINE READS THE RCV SILO AND COMPARES THE SILO ENTRY
TO BITS 0=11 OF THE FIRST WORD FOLLOWING THE CALL. IF THERE IS A
. %
MISMATCH, THE ERROR IS REPORTED AND A RETURN IS MADE TO THE TEST AT THE
;*
ADDRESS CONTAINED IN RETADR. IF BIT 15 = 0 IN THE FIRST WORD
. %

FOLLOWING THE CALL,

. %
=

AL AE AR

010146

suB
MOV

#4 , SUBRPC
@4 (SP) ,R1

;GET PC OF SUBR CALL
;GET EXPECTED SILO ENTRY

JSR

PC ,RDRXSI

;READ RCV SILO

#8177 ,R1

;MASK OFF BIT 8TH BIT

CMP
BNE

BIC

4$:

sREPORT

#170000,R1

:SAVE LU REG NO.
;CLEAR UNUSED BITS FOR COMPARE

SAVLEN, #TXLEN2! TXLENT! TXLEN
' RXLEN2 ' RXLEN1
O ' RXLENO
3
:BR IF CHAR LENGTH NOT = 7

#BIT7 ,RXWORD
R1,RXWORD
6%

MOvB

R1,GOODAT

;GET EXPECTED DATA

RXWORD ,BADDAT
#11 ,REGNUM
PC,READLU

;GET ACTUAL DATA
;SET REG NO. = 1
;READ REG 11

GOODAT

CLR

BADDAT

BITB
BEQ

#UNRR ,REDBYT
5%

MOvB
MOV
JSR

002364

4 (SP) ,SUBRPC

BIC
(MPB
BEQ
CLR

002406
002400

;SAVE R1

RE GNUM, = (SP)

BIC

002424

R1,-(SP)

MOV

000347

JSR

PC,GETALL

TX UNDERRUN ERROR

ERRDF

s COMPARE EXPECTED BITS 0-7 TO ACTUAL
:BR IF MATCH

;SEE IF TX UNDERRUN ERROR
:BR IF NOT
;GET REGS FOR PRINTOUT

54 ,EM54,ERR4

TRAP

ngRDF

.WORD
.WORD

EMS4
ERR4

TRAP
.WORD
.WORD
.WORD

CSERDF
34
EM34
ERR8

.WORD

010552
000010
004500

002400

5%:

JMP
MOV
JSR

ERRDF

000012
002425

002400

010526

032776

36%
#10,REGNUM
PC,GETALL

;REPORT RCV'D DATA MISCOMPARE

010552

6$%:

7%:

002406
000004

(SILO

ARttt eI
I3
222

CKDATA: MOV

002352
002352

THE SUBROUTINE WILL NOT CHECK THE BCC BIT

BIT 8). IF THERE ARE NO ERRORS, THE LINE UNIT IS CLOCKED FOR THE
NUMBER OF CYCLES PASSED IN THE SECOND WORD FOLLOWING THE CALL.

JMP

SWAB
MOV
CMPB
BNE
JMP
CLR

MOvB

;GET REGS FOR PRINTOUT

34 ,EM34 ,ERRS8

36%

s TAKE ERROR EXIT

R1
#12 ,REGNUM
R1,RXWORD+1
7$
22%

sSET LU REG NO. FOR ERROR REPORTS
s COMPARE EXPECTED SILO BITS 8-11 TO ACTUAL
;BR IF MISMAT(CH
s CONT INUE

R1,GOODAT

sSET EXPECTED DATA

GOODAT

(LR

BADDAT

BIT

#BCCCHK
@4 (SP)

MOvVB

;TAKE ERROR EXIT
;SET REG NO. = 10

RXWORD+1,BADDAT ;SET ACTUAL DATA
;SEE

IF BCC SHOULD BE

IGNORED

MB8203 STATIC DIAG #1
18=JUL=79 09:44
PN

010174
010176

001433

132701
001014
132737
001424

004737

010220
010220
010222
010224
010226
010230
010234
010242
010244
010250
010250
010252
010254
010256
010260
010264
010264
010270
010272
010300
010302

010306
010306
010310
010312
010314
010316

MACY11

BEQ
BITS
BNE
BITB
BEQ

000601

000001

002425

004500

JSR

09:53

ERRDF

104455

PAGE 7-44

108
#BCC.R1
8%
#BCC,RXWORD+1
10%
PC,GETALL

sREPORT BCC NOT CLEARED

SEQ 0084
;BR IF YES
;SEE IF EXPECTED BIT
=
:BRIF YES
;SEE IF ACTUAL BIT
= 0
:BR_IF YES
;GET REGS FOR PRINTOUT

35,EM35,ERR8

TRAP

000043
013322
010552
000001

002425

004500

8%:

104455

000044
013342
020076
000137
132701
001014
132737
001424
004737

010552

10%:

000002
000002

JMP
BITS
BNE

36%
#B8CC ,RXWORD+1
108

ERRDF

36 ,EM36,ERRS

JMP

36%

:TAKE ERROR EXIT

BITB

#EBLK ,R1

;SEE IF EXPECTED BIT
:BR IF YES

JSR
PC,GETALL
;REPORT BCC NOT
SET

BNE
BITB
BEQ

002425

004500

12%
#EBLK ,RXWORD+1
14%

JSR

PC,GETALL

ERRDF

37,EM37 ,ERRS8

;REPORT EBLK NOT CLEARED

104455

:TAKE ERROR EXIT

.WORD
.WORD
.WORD

010552
000002

002425

12%:

JMP

36%

BITB

#EBLK ,RXWORD+1

JSR

PC,GETALL

ERRDF

38,EM38,ERR8

BNE

14%

CSERDF
36
EM36
ERRS8

;SEE IF ?gTUAL BIT =0
:BR IF

;GET REGS FOR PRINTOUT

CSERDF
37
EM37
ERR8

;TAKE ERROR EXIT

;SEE IF ACTUAL BIT =1
:BR_IF YES
;GET REGS FOR PRINTOUT

CSERDF
38

— e

NOWN

NN~ v

:REPORT EBLK NOT_SET

CSERDF
35
EM35
ERRS8

sSCE IF ACTUAL BIT = 1
:BR IF YES
;GET REGS FOR PRINTOUT

000045
013356

004500

b AN

18=JUL=79
30A(1052)
GLOBAL SUBROUTINES

EM38

010352
010352
010356
010360
010366
010370
010374
010374
010376

010552

14%:

000004

000004
004500

002425

JMP

36%

;TAKE

BITB
BNE

#RAB,R1
16$

JSR

PC,GETALL

;SEE IF EXPECTED BIT
= 1
:BR IF YES
s SEE IF ?§TUAL BIT =0
:BRIF
;GET REGS FOR PRINTOUT

BITB
BEQ

#RAB ,RXWORD+1
18%

sREPORT RAB NOT CLEARED
ERRDF
39,EM39 ,ERR8

ERR3

ERROR EXIT

TRAP

. WORD

CSERDF

(ZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P1

(%)

(5)
7321
7322
7323
7324
7325
7326

010400
010402
010404
010410
010416
010420

013414
020076
000137

132737
001010
004737

010552
000004

MACYT1

202425

004500

(%)
(%)

(5)
7327

7328

7330

000050
013434
020076
000137

010552

132701

000010

132737

000010

001014

001424
004737

16%:

JMP

09:53

36%

BITB

#RAB ,RXWORD+1

JSR

PC,GETALL

BNE

PAGE

18%

;REPORT RAB NOT SET
ERRDF
40,EM40,ERRS

104455

(4)

30A(1052)
18=JuL=79
GLOBAL SUBROUTINES

7-45

SEQ 0085

sTAKE

ERROR EXIT

EM39
ERRS8

JSEE IF ACTUAL BIT =1
;BR IF YES
;GET REGS FOR PRINTOUT
CSERDF

40
EM4LO
18%:

002425

004509

JMP

36$

;TAKE ERROR EXIT

BITR
BNE
8ITB

#0VRR ,R1
20%
#OVRR ,RXWORD+1

;SEE IF EXPECTED BIT =1
.;BR IF Y ES

JSR

PC,GETALL

ERRDF

&1,EM41,ERRS

BEQ

22%

;REPORT OVRR NOT CLEARED

104455

;SEE

ERRS

IF ACTUAL BIT = 0

:BR IF YES
;GET REGS FOR PRINTOUT

TRAP

000051
013450

010472
010476
010504
010506

.WORD
.WORD

.WORD

010552
000010

002425

004500

010512
010512
010514
010516
010552

000002
000004
005226

000004
010546

000002
002400

002352

;REPORT

JSR
PC,GETALL
OVRR NOT SET

22%:

36%:

000004

36%

BITB

24%:

002400
002346
002362

~MP

20%:

38%:
40%:

BNE

ERRDF

#0OVRR ,RXWORD +1

22%

:TAKE

ERROR EXIT

.WORD

42,EM42 ,ERR8

TRAP

.WORD
.WORD
.WORD

36%

:TAKE ERROR EXIT

ADD
MOV
JSR
.WORD

#2,4(SP)
@4 (SP) ,24%
PC,STPLU
0

s INCR SUBROUTINE ARGUMENT POINTER
;GET DESIRED CYCLE COUNT
sCLOCK LU FOR DESIRED CYCLES

MOV
MOV
MOV

(SP) ,REGNUM
PSTACK,SP
RETADR,=(SP)

38%

BR
ADD

40%
#2,4(SP)

MOV
CLR
RTS

(SP)
+ ,R1
SUBRP(
PC

MOV

(SP)
+ ,REGNUM

EM41T
ERR8

sSEE IF ACTUAL BIT =1
:BR IF YES
;GET REGS FOR PRINTOUT

JMP

CSERDF

; TAKE ERROR-FREE EXIT
sRESTORE LU REG NO.

;RESTORE PROGRAM STACK TO BASE LEVEL

sFIX UP ERROR RETURN P(

sFIX UP ERROR-FREE RETURN P(

JRESTORE LU REG NO.
JRESTORE R1

;CLEAR SUBROUTINE PC
JRETURN

CSERDF
42
EML2

ERR8

M8203 STATIC DIAG #1
P11

18=JUL=7% 09:44

MACY11

30A(1052)
18=JUL=79
GLGBAL SUBROUT INES

09:53

PAGE 7-46

SEQ 0086

'tttt.t.ttttt..QtQt'.'fi.'t'l.t'!"t't...ttt.t'....'.Qtt."..'t'..t'..tt.'Q.t.tt

:*» SETUP = THIS SUBROUTINE LOADS THE FIRST WORD AFTER THE CALL INTO AX2-15
i
(SYNCH CHAR), LOADS THE SECOND WORD AFTER THE CALL INTO REG 17
i
LOADS THE THIRD WORD INTO AX3-15, AND LOADS THE FOURTH INTO AX3-16.

.'tttt'ttQtttt.tlt'ttltt'tQtlttt.fit.tt."..t'.t'tt"tt..t.'ttt..ttt.'ttt'tttt.Qt

013746
013746
012737
017637
005037

SETUP:

MOV

AXNUM, = (SP)

?ox

m(.;.z).ums

JSR

PC,WR]TAX

;SET SYNCH CHAR IN AX2-15,

#2.4(SP)

*INCREMENT ARGUMENT POINTER

MOV
MOV

002402
002374

MOV
ADD

84 (SP) ,WRIBYT
PC,WRITLU
#6 . AXNUM

MOV

84 (SP)
, WAX15

MOV
MOV
JSR

@4 (SP) ,WAX16
WAX16,SAVLEN
PC,WRITAX

MOV
MOV
CLR

(SP) + ,REGNUM
(SP) + ,AXNUM
SUBRP(

ADD

RTS

MLAALAALE

:SAVE LU REG NO.
*SET AX BYTE NO. FOR AX2

#17 ,REGNUM

MOV
JSR
MOV
ADD

:SAVE AX BYTE NO.

REGNUM,-(SP)
#4 , AXNUM

:LOAD REG 17
*SET AX BYTE NO. FOR AX3

#2.4(SP)

*INCREMENT ARGUMENT POINTER

#2.4(SP)

;INCR ARGUMENT POINTER

sSTORE TX AND RCV CHAR LENGTH
;LOAD AX3-15, AX3-16

#2,4(SP)

sFIX RETURN PC

JRESTORE LU REG NO.
sRESTORE AX BYTE NO.
;CLEAR SUBROUTINE PC STORAGE

SRSl

;RETURN

;* LODMSG - THIS SUBROUTINE LOADS THE NO.

3®

CLEAR AX2-16

“SET LU REG NO. = 17

OF WORDS PASSED

IN THE SECOND WORD

FOLLOWING THE CALL FROM THE MSG BUFFER WHOSE ADDRESS IS IN THE FIRST

WORD FOLLOWING THE CALL,

INTO THE TRANSMITTER SILO.

.tttt'titlttttt.*ttttt'fitt'tQt'fifiQi"t.tt.'.fi'il.ttt.'ttl.*t'ttit"tt.t.tl"tt

010146
010246
017601

LODMSG: MOV

000004
000004

005146
005120

R1,-(SP)

MOV

R2,=(SP)

ADD

#2,4(SP)

MOV

@4 (SP) ,R1

;SAVE R1

:SAVE R2

;GET MSG POINTER INTO R1
:INCR ARG POINTER

MCV

@4 (SP) ,R2

;GET WORD COUNT INTO R2

MOV

(R1)+, TXWORD

sGET NEXT MSG WORD

6%
PC,WAITS50
(SP)+ ,R2
(SP) +,R1

:BR IF NOT DONE YET
;WAIT FOR SILO TO RIPPLE
:RESTORE R2
:RESTORE R1

ADD

JSR
DEC

BNE
JSR
MOV
MOV
RTS

#2,4(SP)

PC.LDTXSI
R2

sFIX UP RETURN PC

;LOAD A WORD INTO TX SILO
;DECR COUNT

sRETURN

(ZDMRA M8203 STATIC DJAG #1
CZDMRA.P11
18=JUL=79 09:44

MACYT1

30A€1052)
18=JUL=79
GLOBAL SUBROUT INES

09:53

PAGE 7-47

SEQ 0087

7‘19

:i'tt..t..'QQl...QtQQQ..'".!...Q..tt.'.'..'..."'.fi'.t'.'.Ii."t."'...'

7420
7421
7422
;252

:* RXCHAR = THIS SUBROUTINE READS THE RCV SILO AND CLOCKS THE LINE
t
FIRST, IT READS THE CHAR FROM THE RCV SILO, AND CHECKS FOR
i
=1, IRDY = 0. IT THEN CLOCKS THE LINE UNIT FOR THE NO. OF
e
PA?SE?Rév THE WORD FOLLOWING THE CALL, AND THEN CHECKS FOR

7(’25
7426

:'tttttt't";ttfiQifitl..ifi'.'Q.t.fit.tt.t..t't"'t.ti...l"t."ttfitt"'tt‘.t"
RXCHAR: MOV
R1,=(SP)
;SAVE R1

7427

7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440

7441
7442
7443
7444
7445
7446
7447
7448
7449
7450

: %

011046

011050

011056
011064
011070
011074
011076
011102
011104
011110
011112
011116
011120
011122
011124

011130
011132
011140
011144
011146

010146

016637

162737
004737
004737
005001
020176
001410
004737
000001
004737
000001
005201
000765
004737

000003
062766
005037
012601
000207

000002

000004
007326
005120

002352

MOV

002352

000002

98:

006402
005226

006402

000002
002352

128:

000002

SUB
JSR
JSR
CLR
CMP
BEQ
JSR
1
JSR
1
INC
BR
JSR
3
ADD
CLR
MOV
RTS

UNIT.
ICIR
CYCLES
ICIR

2(SP)
, SUBRPC

#4 , SUBRPC
PC.RDRXS|
PC.WAIT50
R
R1,82(SP)
128
PC, ISIRDY

:GET PC OF SUBR CALL
:READ RCV SILO
:ALLOW SILO TO RIPPLE
$INIT CYCLE COUNT
:SEE IF REQUIRED CYCLES DONE YET
:BR IF YES
*CHK ICIR = 1, IRDY = 0

PC.STPLU

;CLK LU 1

R1
9s
PC, ISIRDY

:INCR CYCLE COUNT

#2,2(SP)
SUBRPC
(SP)+,R1
PC

;FIX RETURN PC
:CLEAR SUBR CALL PC
RESTORE R1
*RETURN

CYCLE

;CHK ICIR = 1

IRDY = 1

7451

"ttt'tt.Qfitttit'ttitttl’t'tt.tfit*lQflt.t.Q.t'..'"t'.tt..'Q'.'......Q.t"tt'.'.tt

7452
7453
7454

;% CKTBIT - THIS SUBROUTINE CLOCKS THE LINE UNIT FOR 8 CYCLES, AND AFTER EACH
i
CYCLE, THE TXDATA BIT IN REG 17 IS EXAMINED, AND COMPARED TO A BIT OF
i
THE CHAR PASSED IN THE WORD FOLLOWING THE CALL.

;222

7‘.57

7458

:‘tttQi.'t.t*tfit.fit.lt't.tt'itt.fi.'iQfi'tt.'t"t.l.t!tt'.!.t.!'...'tt'tl.ttt't.l.
011150

013746

002400

7460

011156

016637

000004

7462
7463
7464
7465
7466
7467
7468
7469
7470

011172
011176
011204
011210
011212
011216
011222
0112264
011232

012701
012737
004737
000001
004737
030176
001013
132737
001422

000001
000017
005226

7459

7461

7471

7472
7473
(4)

éETQgRERROR OCCURS, A RETURN IS MADE TO THE TEST AT THE ADDRESS IN

- %

011154

011164

011234

011240
011240

010146

162737

004737
104455

000004

CKTBIT: MOV

002352

004500

MOV

002352
002400

003644
000004

000040

MOV

002364

SUB

4$:

MOV
MOV
JSR
1
JSR
BIT
BNE
BITB
BEQ

JSR

REGNUM,-(SP)

R1,=-(SP)

4(SP)
, SUBRPC

#4 , SUBRP(

;SAVE LU REG NO.

:SAVE R1

:GET PC OF SUBROUTINE CALL

#8170 ,R1
#17 ,RE GNUM
PC.STPLU

:INIT BIT POINTER
:SET REG NO. = 17
:CLOCK LINE UNIT 1 CYCLE

PC ,READLU
R1.34(SP)
9%
ATXDATA,REDBYT
12%

:READ REG 17
:SEE IF EXPECTED BIT = 1

PC,GETALL

;REPORT TXDATA NOT CLEARED
ERRDF
32,EM32,ERR4

:BR IF YES
:SEE IF ACTUAL BIT = 0
:BR IF YES

*GET REGS FOR PRINTOUT

TRAP

(SERDF

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(5)

011242

(5)

011244

76474
7475
76476
7477
7478
76479
(4)
(5)
(5)
(5)
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
76492
7493
7494
7495
7496
7497
7498

011250
011252
011260
011262

(5)

011246

MACYT1 30A(1052)

GLOBAL SUBROUTINES

7504

000040

002364

004500

7505
7506
7507
7508
7509
7510

7511
7512
7513
7514
7515
7516
7517
7518
7519
7520

7521

9%:

011266
011270
011272
011274
(011276

SEQ 0088

20%

;TAKE ERROR RETURN

12%

:BR IF YES

#TXDATA REDBYT

JSR

PC,GETALL

ERRDF

33,EM33,ERR4

TXDATA BIT NOT

SET

;SEE

.WORD
.WORD
.WORD

ERR4

12%:

000400

002346
002362
000002

20%:
000004

002400
002352

22%:
40%:

AAEE

TRAP

ggERDF

sGET REGS FOR PRINTOUT

AR RS

010146

003224
003262

3%:

003236
100400
000160
000034

177776

EM33

ERR4

s TAKE ERROR EXIT

(MP
BNE
BR
MOV

R1,#400
4%
22%
PSTACK,SP

;SEE IF 8 BITS SCANNED YET
;BR IF NO

QSIADR,-(SP)

sRESTORE PROGRAM STACK POINTER TO BASE LEVEL
sFIX UP RETURN PC

ADD
MOV
MOV
CLR

#2,4(SP)
(SP) +,R1
(SP) + ,REGNUM
SUBRP(

sFIX UP ERROR-FREE RETURN PC
sRESTORE R1
sRESTORE REG NO.
;CLEAR SUBR CALL PC

ggv

RTS

sSHIFT BIT POINTER

JRETURN

eI 222233232223222222222222

= THIS SUBROUTINE LOADS THE TRANSMITTER SILO WITH MSG1, AND LOADS

THE DATA CHARS INTO THE RCV MSG BUFFER
FOR LATER COMPARISON.

LDMSG1: MOV
MOV
JSR
8561

010770

.WORD

20%

ASL

;* LDMSG]
*

32
EM3?2

IF ACTUAL BIT = 1

.WORD

011374
011400
011402
011410
011414
011420
011422
011424

7
PAGE 7-48°

.WORD

011300
011302
011306
011310
011312
011316
011322
011324
011332
011334
011340
011344

011352
011356
011360
011362
011366
011372

BITB

BNE

;REPORT

011266

011346
011350

09:53

000040

013222
015576
0004

7499

7500
7501
7502
7503

18=JUL=79

MOV
MOV
MOV
(MP
BLO
BIS
MOV
MOV
MOV
MOV
RTS

R1,-(SP)
R2,=(SP)
PC.LODMSG

:SAVE R1
:SAVE R2
;LOAD MSG1

(RCVBUF:), AS EXPECTED DATA
I

INTO TX SILO

#MSG1+4 ,R1
:GET POINTER TO MSG1
#RCVBUF ,R2
:GET POINTER TO MSG BUF
(R1)+,(R2)+
;LOAD A CHAR INTO MSGC BUF
R1,AMSG1+14.
;SEE IF DID LAST DATA (HAR YET
3%
:BR IF NOT
#CRCCHK !RXBCC,=2(R2) ;SET EXPECTED BCC
#160, (SP)+
sLOAD HI CRC BYTE
#034, (SP) +
sLOAD LO CRC BYTE
(SP)+,R2
;RESTORE R2
(SP) +,R1
;RESTORE R1

JRETURN

2222322222222222223¢

(ZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
7523

MACYT1

30A(1052)
18=JuUL=79
GLOBAL SUBROUTINES

09:53

PAGE 7-49

SEQ 0089

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACY11

M7
30A(1052)
18-JuL=79 09:53 PAGE 7-50
GLOBAL ERROR REPORT SECTION

SEQ 0090

;ggz

.SBTTL

7527

SIITITIITIIT77777777777777777777777777777777777777777777777777777777

7529

7528

;gg?
7532
7533

7534

011426

000116
047045
046111
042522

047445

022466

FMT1:

ASCIZ

/XTX06XN/

040445
047111
035107

040506
020107
000040

FMT2:

_ASCIZ

/INXAFAILING REG: /

011466
011474
011502
011510
011516

052103
047445
040445
046101
022463

042105
022463
041501
020072
000116

011530
011535
011542

052045
045
022465
022465

047045
031517
031517

045

011620
011626
011630
011636

052045
000116
040445
042116

011664

052045

7536

011522

7539
7540

7541

7542

THAT ARE USED IN MORE THAN ONE TEST,

011434
011436
011444
011452

011460

7538

THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES

SIIIIIIIT17117770777717711717177171777177717071717177117177107111177

7535

7537

GLOBAL ERROR REPORT SECTION

052045

040445

7045

011550
011556
011564

022465
000

011572
011600
011606
011614

022463
022463
022463
022463

011565

011644
011652
011660

7543

011671
011676
011704
011712
011720
011722

7544

011761

7545

012012

011730
011736
011744
011752
011760

011766
011774
012002
012010

054105

042520

FMT3:

_ASCIZ

/%AEXPECTED:

052045

047045

000
051445
051445

FMT4:

_ASCIZ

/ANXTANXTAN/

FMT5:

_ASCIZ

/%03%S5%03%S5%03%SS5X03%N/

032123

047445

FMT6:

.ASCIZ

/%S4%03%S5%03%S5%03%S5%03%N/

047445

022462

FMT7:

_ASCIZ

/%T%02%IN/

054105

042524

FMT8:

_ASCIZ

/XAEXTENDED REG AXX01%A-XTIN/

FMT9:

_ASCIZ

/XTIN/

031517
031517

032523
032523
032523
000116

020072
032523
052524
047445

X03XSSXAACTUAL:

051445
047045

047445
047445
047445

042105
040440
040445
000116

051040
022530
022455

050101
051440
040503
047445

020103
041125
046114
022466

042522

020107

FMT11:

_ASCIZ

/%AREG %02%A LOADED WITH:

045

022516

052101

FMT19:

_ASCIZ

/INXATEST %D2XA NOT RUNZN/

047045

040445

046120

FMT24:

.ASCIZ

/XNXAPLEASE

043505
030517
022524

045
043117
020122
020072
000116
040445

047045

047445
047514
053440
022440
000

022462
042101
052111
031517

051505
022462
020124
000116

020124
020101
052522

XO3IN/

020101
042105
035110
047045
042045
047516
022516

FMT10:

.ASCIZ

/%APC OF SUBR CALL: XO6IN/

X03%N/

INSURE RUN SWITCH ON MICROPROCESSOR IS ONXN/

CZDMRA M8203 STATIC DIAG M
18-JuL~
CZDMRA.P11
09:44

VIS
WWN =0 O
~
N

i
il

b
e

b
b

e
e

s
s

09:53

GLOBAL ERROR REPORT SECTION

7
PAGE 7-51

SEQ 0091

053523
047440
051103
042503
044440
047045

) e

012174

18-JuL=-79

044440
020105

)

7552

040505
051516
052522
052111
020116
050117
051523
020123
000

i
e b

7551

—_ —

7550

n SIS LS NS LN LS N1 NN )

7546
7547
7548
7549

o elelolelelololelels]

012020
012026

MACYT1 30A(1052)

020124
020107
046517
000
043505

7553

EM1:

LASCIZ

/CSR ADDRESS

EM2:

LASCIZ

/REG NOT

044515
040520

EM3:

LASCIZ

/REG MISCOMPARE/

047040
044516
055111
020131
051525
052105
05211

EM4:

LASCIZ

/REG NOT

020124

EMS:

LASCIZ

/MAINT

040440
051523
026505
051450
000
047040
044516
055111
020131
046103

TIME-OUT

(SELO)/

INITIALIZED BY MST CLR/

INITIALIZED BY UNIBUS RESET

CLK BIT STUCK AT 0/

052101
7554

044501
045514
051440
040440

052116
041040
052524
020124

EM6:

LASCIZ

/MAINT CLK BIT

7555

054504
051440

047040
052105

EM7:

LASCIZ

/ORDY NOT

7556

042122
020124
042522
051117
051440

020131

EM8:

LASCIZ

/0RDY NOT CLEARED/

04
052105

EM9:

LASCIZ

/0COR NOT SET/

047503
020124
042522

020122
046103
000104

EM10:

LASCIZ

/0COR NOT

7557
7558

STUCK AT

SET/

CLEARED/

(INIT)/

7559

012444
012452

040517
052117

052103

051440

7560

7561

7562

7563

7571
7572

7573

7574

7575

B ) =

b \ )=

7570

047

—t b))t e O =

7569

052

e \J)

7568

047

)= e

7567

N=20ON
=
=2 O\ =
= N

2 O = =2 )

7566

0405

047040
052105

EM11:

LASCIZ

/0ACT NOT SET/

020124
046103
000104

EM12:

.ASCIZ

/0ACT NOT CLEARED/

EM13:

.ASCIZ

/UNRR NOT CLEARED BY SOM/

EM14:

LASCIZ

/UNRR NOT SET/

EM15:

LASCIZ

/UNRR NOT CLEARED BY 0C/

EM16:

.ASCIZ

/UNRR NOT CLEARED/

EM17:

.ASCIZ

/IRDY NOT SET/

051440

052105

051116

020124

020122
046103
020104
000103
047040
042514
000
020131
042523

054504
041440
042105
044503
020124

047040
042514
000
020122
042523

EM18:

.ASCIZ

/IRDY NOT CLEARED/

EM19:

LASCIZ

/ICIR NOT SET/

05111
041440
042105
041501
020124

042514
000
020124
042523

047040

EM20:

LASCIZ

/ICIR NOT CLEARED/

EM21:

.ASCIZ

/IACT NOT SET/

052103

047040

EM22:

.ASCIZ

/IACT NOT CLEARED/

EM23:

LASCIZ

/DSSI NOT CLEARED/

EM24:

.ASCIZ

/DSSI NOT SET/

020111
046103
020104
052123
n00
051117
042040
044103
053103

EM25:

LASCIZ

/DSSI

EM26:

.ASCIZ

/INCORRECT DATA CHAR RCV'D/

051117
041440

EM27:

LASCIZ

/INCORRECT CRC BYTE RCV'D/

7564
7565

18-JUL=79 09:53 PAGE 7-52
MACY11 30A(1052)
GLOBAL ERROR REPORT SECTION

042514

000
020111
046103
000104
047040
052105

NOT CLEARED BY MST CLR/

SEQ 0092

TMM~

CZDMRA M8203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P11

\flbbgf\)f\’—'—‘
SN
OO

7576

-h

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JuL- 79 09:44

041522
020105
000104
051522
052117
051101
122
047516
000124

18-JUL=79 09:53 PAGE 7-53
GLOBAL ERROR REPORT SECTION

MACY11 30A(1052)

041040
041522

046517
041440
042105
047523
020124

EM28:

.ASCIZ

/RSOM NOT CLEARED/

EM29:

.ASCIZ

/RSOM NOT SET/

EM30:

LASCIZ

/REOM NOT CLEARED/

EM31:

LASCIZ

/REOM NOT SET/

EM32:

.ASCIZ

/TXDATA BIT NOT CLEARED/

EM33:

LASCIZ

/TXDATA BIT NOT SET/

020104
046440
050115

EM34:

LASCIZ

/RCV'D DATA MISCOMPARE/

047516
040505

EM35:

LASCIZ

/BCC NOT CLEARED/

7584

EM36:

.ASCIZ

/BCC NOT SET/

7585

EM37:

LASCIZ

/EBLK NOT CLEARED/

EM38:

.ASCIZ

/EBLK NOT SET/

EM39:

.ASCIZ

/RAB NOT CLEARED/

EM4O0:

.ASCIZ

/RAB NOT SET/

:
EM41

LASCIZ

/0VRR NOT CLEARED/

EM42:

.ASCIZ

/0VRR NOT SET/

7591

EM43:

LASCIZ

/SW PACK #1

7592

EM44:

.ASCIZ

/SW PACK #2 INCORRECT/

7577
7578
7579

046517
041440
020124

7580

040504
052111

7581

020124
7582

023526

7583

7586

020124

7587
v RRY PR
R IR FBER

Jour4

7590

222 2222

7589

013430

7588

020102
046103

013546

051122

INCORRECT/

SEQ 0093

CZDMRA MB203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P11

013554

041501
04

NON =W

§? §—a..a_n~°

oonN

7596

7597

so—=0O

7595

N =W

7594

09:53

8
PAGE 7-54

SEQ 0094

EM&S:

.ASCIZ

/SW PACK #3 INCORRECT/

EM4L6:

LASCIZ

/RCV SILO NOT

EM4G7:

LASCIZ

/ASSEMB BIT

EM4S8:

LASCIZ

/0DD VRC PARITY BIT NOT SET/

EM4LY:

LASCIZ

/0DD VRC PARITY BIT NOT

EMS0:

.ASCIZ

/EVEN VRC PARITY BIT NOT SET/

EM51:

LASCIZ

/EVEN VRC PARITY BIT NOT CLEAKED/

CLEARED BY

COUNT

IC/

INCORRECT/

020124
051126

7598

18-JUL=-79

GLOBAL ERROR REPORT SECTION

NO =

7593

MACYT1 30A(1052)

040520

7599

CLEARED/

051101
7600

054504
051440
052106
020130
051127

EMS2:

.ASCIZ

/READY NOT SET AFTER AX REG WRITE/

7601

020131
042523
042524
051040
040505

EMS53:

.ASCIZ

/READY NOT

7602

042116
020116

EM54:

.ASCIZ

/TX UNDERRUN ERROR/

EM60:

LASCIZ

/RTS NOT

SET/

EM6ES:

LASCIZ

/RTS NOT

CLEARED/

000122
047516

7603
7604

020124

040505

SET AFTER AX REG READ/

CZDMRA M8203 STATIC DIAG #1
18-JuUL- 79 09:44
CZDMRA P11
7605
7606
7607
7608

014234

042522

000104

014240

047111
052517
051040
044514
044516
052502
051507

052502
041124

7609

7610

043505

18-JUL-79 09:53 PAGE 7-55
GLOBAL ERROR REPORT SECTION

MACY11 30A(1052)

027523
051525

DH1:

LASCIZ

€INBUS/0OUTBUS REG &

DH2:

LASCIZ

/LINE UNIT

DH3:

.ASCIZ

/REG10

DH4 :

LASCIZ

DH5:

LASCIZ

/15/
/16/

SEQ 0095

INBUS REGS

REG11

REG12

REG13/

031461
7611

051040

7612
7613
7614

020105
042440
042504
051507

DH6:
DH7:

LASCIZ
LASCIZ

/LINE

REG14

UNIT

REG15S

EXTENDED REGS

7615

030455

DH8:

LASCIZ

/AX0-15

7616

054101
020040
033061
026463
054101
000

DH9:

LASCIZ

BGNMSG

ERR1

PRINTB

#FMT1,#ADDRES ,MPCSR

014546

014554

014554
014554
014554
014554
014560
014564
014570

013746
012746
012746
012746

AX0-16

AX2=-15

REG16

Ax1-15

AX2-16

REG17/

AX1-16/

Ax3-15

AXx3-16/

.EVEN

002446
035560
011426
000003

ERR1::
MPCSR,=(SP)

#ADDRES ,=(SP)

#FMT1 ,-(SP)

#3,-(SP)

CZDMRA M8203 STATIC DIAG #1 .
CZDMRA.P11
18-JUL=79 09:4
(3)

(4)
(4)
7626

014574

014576
014600

(3)
(3)

014604
014604

(3)

014606

7627
7628
7629
7630

7631
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7632
(7)
(6)

(3)
(4)
(4)
7633
(9)
(8)
(7)
(6)
(3)
(4)
(4)

7634
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7635
(9)
(8)
(7)
(6)

(3)

(4)
(4)
7636
(11)
(10)
(9)
(8)
(7)
(6)

104414

062706

014636

012746
012746
010600

014656
014662
014666
014672
014676
014700

014702

014706
014712
014716
014722
014726
014730
014732

014736
014742
014746
Q714752
01475
014760
014762
014766
014772
014776
015002
015006
015012

000010

ENDMSG

SEQ 0096

L10002:

104423

013746
012746
012746
012746
010600

014646
014650
014652

F
8
18-JUL=79 09:53 PAGE 7-56
30A(1052)
GLOBAL ERROR REPORT SECTION

010600

014606
014612
014616
014622
014626
014630
014632
014642

MACY11

002446
035560
011426
000003

BGNMSG

ERRZ2

PRINTB

#FMT1,#ADDRES ,MPCSR

#10,SP

TRAP

C$MSG

ERRZ2::
MPCSR,=(SP)
#ADDRES ,=(SP)
#FMT1,-(SP)
#3,-(SP)

SP,RO
CSPNTB

104414

062706

PRINTB

HFMT2

#10,SP

#FMT2,-(SP)
#1,-(SP)

SP,RO
CSPNTB

104414
062706

PRINTB

013746
012746
012746
012746
010600

#FMT7 ,#DH1 ,REGNUM

#4,SP

REGNUM, = (SP)

#DH1,-(SP)

#FMT?,-(SP)

#3,-(SP)

SP,RO
CSPNTB

104414

062706

PRINTB

013746
013746
012746
012746
010600
104414

SP,RO
CSPNTB

MOV
TRAP
ADD

#FMT3,GOODAT ,BADDAT

#10,SP

BADDAT ,~(SP)
GOODAT ,=(SP)
#FMT3,-(SP)
#3,-(SP)

062706

000010

012746

014311
014262
011522
000003

SP,RO
CSPNTB

PRINTX

HFMT4 ,#DH2 ,#DH3

#10,SP

#DH3,~(SP)
#DHZ2,~(SP)

#EMTS ,-(SP)
#3,-(SP)

SP,RO
CSPNTX

013746
013746
01374¢
013746
012746
012746

PRINTX

#FMTS5,LURT0,LURTT,LURT2,LURT3

#10,SP

LUR13,=-(SP)
LUR12,=(SP)
LUR11,=-(SP)
LUR1Q,=(SP)

#FMTS
- (SP)
#5,-(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(3)

(4)
(4)
7637

(8)
(7)
(6)
(3)
(4)
(&)

015016
015020
015022
015026
015026
015032
015036
015042
015044

7638
an
10)
(9)
(8)
(7)

104415

062706

000014

012746
012746
012746

014347
011664
000002

010600
104415
062706

(3)

(4)
(4)
7639

000006

002320
002316
002314
002312
011565
000005
000014

013746
012746
012746
012746
010600
104414
062706

TN
~o8]

i
i
i
i
oD
i
b
b
D
b
d
D
i
i
o
i
i
b
i
i
i
bl
o
e

viwvwnawna LRV AN AV LV LV LV LV LV AV LV LV LV LV LV IV LV, [V, LV, IV,

elelelolelelelelelolelolalolelalelololelololalele]

(3)

015214

30A(1052)
18-JuUL=79 09:53 PAGE 7-57
GLOBAL ERROR REPCRT SECTION

SEQ 0097

010600

013746
013746
013746
013746
012746

(6)

MACYT1

MOV
TRAP

PRINTX

#FM, TS
#DH4

ADD

#14,SP

MOV
MOV
MOV

#DH4 , = (SP)

TRAP
ADD

#FMT6,LURT4,LURT5,LURT6,LURT7

L10003:

BGNMSG

ERR3

PRINTB

#FMT1 ,#ADDRES ,MPCSR

#FMTS,
- (SP)

#2,-(SP)

SP,RO
CSPNTX

MOV
MOV
MOV
MOV
MOV
MOV
MOV

LUR17,-(SP)
LUR16,=(SP)
LUR15,=(SP)
LUR14,~(SP)

ADD

#14,SP

TRAP

C$MSG

TRAP

ENDMSG

SP,RO

CSPNTX

#FMT6,-(SP)

#5,-(SP)

SP,RO
CSPNTX

ERR3::
MPCSR,~(SP)
#ADDRES ,=(SP)
#FMT1,-(SP)

PRINTB

012746

#FMT2

#3,-(SP)
SP,RO
CSPNTB
#10,SP

#FMT2,-(SP)
#1,-(SP)

SP RO
CSPNTB

PRINTB

013746
013746
012746
012746
010600

#FMT8,TMP1,
TMPO

TMPQ,~(SP}
TMP1

- (SP)

#5418, ~(SP)

#3,-(SP)

SP RO
CSPNTB

104414

062706

013746
013746
012746

w4 ,SP

PRINTB

011460

#FMT3,GOODAT ,BADDAT

#10,SP

BADDAT ,~(SP)
GOODAT ,=(SP)
#FMT3,~(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(6)
(3)
(4)
(4)
7650
(9)
(8)

000003

015244
015244

012746
010600
104414
062706
012746

014311

(7)

01525¢

012746

011522

(3)

015264

(6)

015230
01523
015236
015240
015250

012746

000010

MACY1?

H 8
30A(1052)
18-JuL=79 09:53 PAGE 7-58
GLOBAL ERROR REPORT SECTION

PRINTX

#FMT4 ,4DH2 ,#DH3

014262

SEQ 0098
MOV
MOV
TRAP
ADD

#3,-(SP)
SP,RO
CSPNTB
#10,SP

MOV

#DH3,=(SP)

MOV

#FMT4 ,=(SP)

MOV

SP,RO

MOV

015260

012746

(4)
(4)
7651
(11)
(10)

015266
015270
015274
015274
015300

104415
062706

000010

013746
013746

002310
002306

(8)
(7)
(6)
(3)
(4)
(4)
7652
(8)

015310
015314
015320
015324
015326
015330
015334
015334

013746
012746
012746
010600
104415
062706

002302
011535
000005

(6)
(3)
(4)
(4)
7653
(11)
(10)
(9)
(8)
(7)

015344
015350
015352
015354
015360
015360
015364
015370
015374
015400

013746
013746
013746
013746
012746

(3)
(4)
(4)

015410
015412
015414

010600
104415
062706

(9)
(8)

015420
015424

012746
012746

014451
014417

(6)

015434

012746

000003

MOV

#EMTS
= (SP)

000010

MOV
TRAP
ADD

SP.RO
CSPNTX
#10,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

AX1.16,=(SP)
AX1.15.=(SP)
AX0.16.~(SP)
AX0.15.=(SP)
#FMTS.=(SP)
#5,-(SP)

(9)

(7)

(6)

7654
(7)

(3)
(&)
(4)
7655
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)

015306

015340

015404

015420
015430

015440
015442
015444
015450
015450
015454
015460
015464
015470
015474
015500
015502

010600

013746

000003

000014
014347

012746
010600
104415
062706

012746

010600
104415
062706
013746
013746
013746
013746
012746
012746
010600
104415

PRINTX

#FMTS,LUR10,LURTT,LUR1T2,LURT3

002304

012746

MOV

#DH2
.= (SP)

TRAP
ADD

CSPNTX
#10,SP

MOV
MOV

LUR13,=(SP)
LUR12,=(SP)

MOV
MOV
MOV
MOV
TRAP
ADD

LUR10,=(SP)
#FMTS
.~ (SP)
#5,-(SP)

MOV

PRINTX

#FMTO,#DH4

011664

#3,-(SP)

MOV

LUR11,=(SP)

SP,RO
CSPNTX
#14,SP

#DH4 , - (SP)

000002

MOV

#FMTS,
- (SP)

000006

MOV
TRAP
ADD

SP,RO
CSPNTX
#6,SP

MOV
MOV
MOV
MOV
MOV

LUR17,=(SP)
LUR16,=(SP)
LUR1S.,=(SP)
LUR14.=(SP)
#FMT6,~(SP)

MOV
TRAP
ADD

SP,R0
CSPNTX
#14,SP

MOV
MOV

#DH8,
- (SP)
#DH7
.- (SP)

002320
002316
002314
002312
011565

PRINTX

#FMT6,LUR14,LURTS,LUR16,LURT?

000005

MOV

000014

PRINTX

#FMT4 #DH7 ,#DH8

011522

002330
002326
002324
002322
011535
000005

PRINTX

#FMTS5,AX0.15,AX0.16,AXx1.15,AX1.16

#2,-(SP)

#5,-(SP)

#3,-(SP)

SP.RO
(SPNTX

(ZDMRA M8203 STATIC DIAG #1

CZDMRA. P11
(&)

7656
(8)

(7)
(6)

(3)

(4)
(4)
7657
an

(3)

(3)
7659
7660
7661
7662
7663
7664
(3)
7665
(8)
(7)
(6)
(3)

062706

000014

012746
012746
012746
010600
104415
062706

014510
011664
000002

015570
015574
015574
015574

015576
015576
015576
015576

062706

(6)

002446
035560
011426
000003

(4)
(4)

000010

(4)
7668
(9)

(8)

(7)
(6)

(3)

(4)

104414

ADD

#14,SP

MOV

#DH9, - (SP)

MOV
MOV
TRAP
ADD

#2,-(5P)

MOV
MOV
MOV
MOV

L 10004:

104423

013746
012746

(4)

HFMT6,AX2.15,AX2.16,AX3.15,AX3.16

ENDMSG

000006

7667
(7)
(6)
(3)

#FMTS ,#DH9

104415

062706

(3)

PRINTX

SEQ 0099

MOV
MOV
TRAP

002352
011671
000002

(9)
(8)
(7>

012746
010600

013746
012746
012746
010600

(4)
(4)
7666

18-JUL=79 09:53 PAGE 7-59
30A(1052)
GLOBAL ERROR REPORT SECTION

PRINTX

013746
013746
013746
013746
012746

10
(9
(8)
(7)
(6)
(3)

(4)
(4)
7658

18=JUL=79 09:44

MACY11

011436
000001
000004

002400
014240
011620
000003

BGNMSG

ERRS

PRINTB

#FMT10, SUBRP(

RFMTS,-(SP)
SP,RO
CSPNTX

#6,SP

AX3.16,-(SP)
AX3.15,-(SP)
AX2.16,-(SP)

AX2.15,-(SP)

#FMT6,-(SP)

#5,-(SP)

SP,RO
CSPNTX

ADD

#14,SP

TRAP

($MSG

ERRS
::

SUBRP(C ,~(SP)

#FMT10,-(SP)
#2,-(SP)

PRINTB

#FMT1 ,#ADDRES ,MP(CSR

SP,RO
CSPNTB
#6,SP

MPCSR,=(SP)

#ADDRES ,~(SP)

PRINTB

#FMT2

#FMT1,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP
#FMT2,-(SP)
#1,-(SP)

SP,RO
(SPNTB

PRINTB

#FMT7 ,ADH1,REGNUM

#4,SP

REGNUM,
= (SP)

#DH1 ,-(SP)

#FMT7,-(SP)

#3,-(SP)
SP,RO
CSPNTR

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(4)

7669
(9
(8)
(7)
(6)

(3)

(4)
(4)
7670
11)
10
(9
(8)
(7)
(6)

015716

062706

000010

012746
012746
012746
012746
010600

014311
014262
011522
000003

MACY11

30A(1052)
18=JuUL=79 09:53 PAGE 7-60
GLOBAL ERROR REPORT SECTION
PRINTX

#FMT4 ,#DH2 ,#DH3

(8)
(7)
(6)

(3)

(4)
(4)
7672
11)

10
(9)
(8)
(7)

(6)

(3)

(4)
(4)
7673
(9)

#FMTS ,-(SP)
#3,-(SP)

PRINTX

013746
013746
013746
013746

#FMTS5,LURT0,LURTT,LURT2,LURT3

012746

(8)
(7)
(6)
(3)

(4)
(4)
7674
1
(10)
(9)

(8)
(7)
(6)
(3)
(4)
(4)
7675
(8)

012746
012746
012746
010600

014347
011664
000002

062706

000006

013746
013746
013746
013746
012746
012746
010600

002320
002316
002314
002312
011565
000005

062706

000014

012746
012746
012746
012746
010600

014451
014417
011522
000003

LUR13,~(SP)
LUR12,=(SP)
LURT1,=(SP)
LUR10,~(SP)
SP,RO
CSPNTX

PRINTX

H#FMT9 ,#DH4

#14,SP

#DH4 , - (SP)

#FMTO,
- (SP)
#2,-(SP)

SP.RO
CSPNTX

PRINTX

#FMT6,LURT4,LURTS,LURT6,LURT7

#6,SP

LUR17,-(SP)
LUR16,-(SP)

LUR15,-(SP)
LUR14,-(SP)

#FMT6,~(SP)
#5,-(SP)

SP.,RO
CSPNTX

PRINTX

HFMT4 ,#DH7 ,#DH8

#14,SP

#DH8,~(SP)
#DH7 ,-(SP)

#FMTS ,-(SP)
#3,-(SP)

SP,RO
CSPNTX

104415

062706

PRINTX

013746
013746
013746
013746
012746
012746
010600
104415

#10,SP

HFEMTS,-(SP)

000014

104415

#DH3,-(SP)

SP,RO
CSPNTX

104415
062706

104415

#10,SP

#DH2,=(SP)

(3)

(4)
(4)
7671

SEQ 0100

#FMT5 _,AX0.15,AX0.16,AX1.15,AX1.16

#10,SF

AX1.16,=(SP)
AX1.15,-(SP)
AX0.16,-(SP)
AX0.15,=(SP)
#FMTS ,-(SP)

#5.,-(SP)

062706

000014

012746

014510

SP,RO
CSPNTX

PRINTX

#FMTS ,4#DH9

#14,SP

#DH9 ,-(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=-JUL=79 09:44
(7)

016172
016176
(3)
016202
(4)
016204
(4)
016206
7676 016212
an 016212
10 016216
(6)

(9)
(8)

(7)

(6)
(3)
(4)
(4)
7677

012746
012746
010600
104415
062706

18-JuUL-79

09:53

GLOBAL ERROR REPORT SECTION

8
PAGE 7-61
#FMT9 ,-(SP)
#2,-(SP)

PRINTX

013746
013746
013746
013746
012746
012746
010600

013746
012746
012746
012746
010600
104414
062706

013746
013746
012746
012746
010600

012746
012746
010600

HFMT6,-(SP)

SP,RO
CSPNTX

#14,SP

ENDMSG

L10005:

002446
035560
011426
000003
000010

BGNMSG

ERRS

PRINTB

#FMT1 ,#ADDRES ,MP(CSR

013746
013746
012746
012746
010600

PRINTB

#FMT11 ,REGNUM,LOADAT

ERRS::

#FMT1,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

LOADAT ,~(SP)
REGNUM,~(SP)
#FMT11,-(SP)
#3,-(SP)
SP,RO

CSPNTB

PRINTB

#FMT2

#10,SP

HFMT2 ,~(SP)
#1,-(SP)

SP,RO
CSPNTB

PRINTB

#FMT8,TMP1,TMPO

#4,SP

TMPO,
= (SP)
TMP1 =-(SP)

#FMT8,
=~ (SP)

#3,-(SP)
SP RO
CSPNTB

104414

062706

CSMSG

MPCSR,~(SP)
#ADDRES ,-(SP)

104414

062706

AX3.16,-(SP)
AX3.15,-(SP)
AX2.16,=(SP)
AX2.15,=(SP)
#5,-(SP)

104414

062706

SP,RO
CSPNTX
#6,SP

#FMT6,AX2.15,AX2.16 ,AX3.15,AX3.16

104423

016254
016254
016254
016254
016260

SEQ 0701

011664
000002

104415
062706

(3)
(3)

MACYT1 30A(1052)

PRINTB

#FMT3,GOODAT ,BADDAT

#10,SP

CZDMRA M8203 S TATIC DJAG #1
18-JuL~ 79 09:44
CZDMRA.P1
(9)
(8)

(7)
(6)
(3)
(&)
(4)
7689
(9)
(8)
(7)
(6)
(3)
(4)

(4)
7690
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7691
(8)
(7)
(6)
(3)
(4)
(4)
7692
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7693
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7694
(11)
(10)
(9)
(8)
(7)

016404
016410

016414
016420
016424
016426
016430
016434
016434
016440
016444
016450
016454
016456

016460
016464
016464
016470
016474
016500
016504
016510
016514
016516
016520
016524
016524
016530
016534
016540
016542
016544
016550
016550
016554
016560
016564
016570
016574
016600
016602
016604
016610
016610
016614
016620
016624
016630
016632
016634
016640
016640
016644
016650
016654
016660

MACY11

30A(1052)

18-JUL-79

09:53

GLOBAL ERROR REPORT SECTION

PAGE 7-62

013746
013746
012746
012746
010600
104414

BADDAT ,~(SP)
GOODAT ,=(SP)
#FMT3,-(SP)
#3,-(SP)

06706

000010

012746
012746
012746

014311
014262
011522
000003

012746
010600

CSPNTB

PRINTX

HFMTS ,4DH2 ,#DH3

062706

012746
012746
012746
010600
104415

014347
011664
000002

062706

000006

013746
013746
013746
013746
012746
012746
010600

002320
002316
002314
002312
011565
000005

062706

000014

012746
012746
012746
012746
010600

014451
014417
011522
000003

104415

#FMT5,LUR10,LURT1,LURT2,LURT3

#10,SP

LUR13,-(SP)
LUR12,=(SP)
LUR11,-(SP)
LUR10,-(SP)

HFMTS5,-(SP)
#5,-(SP)
SP.RO
CSPNTX
PRINTX

#FMT9 ,ADH4

#14,SP

#DH4
, = (SP)
#FMT9,-(SP)
#2,-(SP)

SP,RO
CSPNTX

PRINTX

#FMT6,LURTS,LURTS ,LURT6,LURT7

#6,SP

LUR17,-(SP)
LUR16,~(SP)
LUR15,~(SP)
LUR14,~(SP)

HFMT6,-(SP)
#5,-(SP)

SP,RO
CSPNTX

PRINTX

H#FMT4 ,ADH7 ,#DHB

#14,SP

#DH8,~(SP)
#DH7 ,~(SP)

#EMT4
- (SP)

#3,-(SP)
SP,RO

104415

CSPNTX

062706
013746
013746
013746
013746
012746

#DH3,~(SP)
#DH2,=(SP)
SP,RO
CSPNTX

PRINTX

000014

#10,SP

#FMTS
- (SP)
#3,-(SP)

104415

013746
013746
013746
013746
012746
012746
010600
104415
062706

SEQ 0102

PRINTX

011535

#FMTS ,AX0.15,AX0.16,AX1.15,AX1.16

#10,SP

AX1.16,-(SP)
AX1.15,-(SP)
AX0.16,-(SP)
AX0.15,=(SP)

#FMTS ,=(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(6)
(3)
(4)
(4)
7695

016664
016670
016672
016674
016700

012746
010600
104415
062706

000014

MACY11

m 8
30A(1052)
18=JuL=79 09:53 PAGE 7-63
GLOBAL ERROR REPORT SECTION

000005

PRINTX

#FMT9,4#DH9

(8)

016700

012746

014510

(6)
(3)
(&)
(4)
7696
(11)
(10)
(9)
(8)
(7)
(6)
(3)
&)

016710
016714
016716
016720
016724
016724
016730
016734
016740
016744
016750
016754
016756

012746
010600
104415
062706

000002

7697
(3)

016764
016764

7698
7699
7700
7701
7702
7703

016766

BGNMSG

7704
(8)
(7)
(6)

016766
016766
016772
016776

013746
012746
012746

PRINTB #FMT10, SUBRPC

017006

104414

(7)

(4)

(3)

(3)
(4)

(4)

7705
(9)
(8)
(7)
(6)

(3)
(4)

(4)

7706

(7)

(6)
(3)
(4)

(4)
7707

(9)

(8)
(7)

016706

016760
016764

012746

013746
013746
013746
013746
012746
012746
010600
104415

062706

011664

000006
002340
002336
002334
002332
011565
000005

000014

017006

010600

002352
011671
000002

017012
017012
017016
017022
017026

062706

000006

013746
012746
012746
012746

002446
035560
011426
000003

017036

062706

000010

012746

011436

017032
017034

017042

017046
017052
017054
017056
017062

017062

017066
017072

010600
104414

012746
010600
104414
062706

013746

013746
012746

PRINTX

#FMT6,AX2.15,AX2.16,AX3.15,AX3.16

L10006:

ERR6

MOV

#DH9, - (SP)

MOV
MOV
TRAP
ADD

#2,-(SP)
SP.RO
CSPNTX
#6,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

AX3.16,=(SP)
AX3.15.=(SP)
AX2.16.=(SP)
AX2.15.=(SP)
#FMT6,=(SP)
#5,-(SP)
SP.RO
CSPNTX

TRAP

($MSG

MOV
MOV
MOV

SUBRPC ,=(SP)
#FMT10.~(SP)
#2,-(SP)

TRAP

PRINTB

#FMT1_,4#ADDRES ,MPCSR

#FMT2

#FMT8,TMP1,TMPO

SP.RO

CSPNTB

#6,SP

MOV
MOV
MOV
MOV

MPCSR,~(SP)
#ADDRES
, - (SP)
#FMT1,~(SP)
#3,-(SP)

ADD

#10,SP

MOV

#FMT2,=(SP)

MOV
MOV
TRAP

PRINTB

#14,SP

ADD

MOV
TRAP

PRINTB

#FMTS,
=~ (SP)

ERRG::

MOV

000004

002532
011630

#5,-(SP)
SP,RO
CSPNTX
#14,SP

ADD

ENDMSG

000001

002530

MOV
MOV
TRAP
ADD

MOV

104423

016766

017002

SEQ 0103

SP.RO
CSPNTB

#1,-(SP)

SP.RO
CSPNTB

ADD

#4,SP

MOV

TTMMPQ,
- (SP)

MOV
MOV

TMMP1 =(SP)
#FMT8,~(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(6)

(3)

(8)
(7)
(6)
(3)

062706

000010

012746
012746
012746
012746

014311
014262
011522
000003

010600
104415
062706

(4)
(4)
7709
11)
a0
(9
(8)
(7)
(6)
(3)
(4)
(4)
771G

(4)
(4)
711
an
10)
(9)
(8)
(7)
(6)

(3)

(8)
(7)
(6)
(3)

(4)
(4)
7713
(1)
10)
(9)
(8)
(7)
(6)

017350

#DH3,~(SP)
#DH2 ,=(SP)

#FMTS ,-(SP)

PRINTX

#FMTS,LURT0,LURTT,LURY2,LURT3

#10,SP

LUR13,-(SP)
LUR12,=(SP)
LUR1T1,-(SP)
LUR10,=(SP)

#FMTO ,ADH4

#14,SP

#DH4 , = (SP)

#FMTS,
- (SP)

#2,-(5P)

002320
002316
002314
002312
011565
000005

062706

000014

012746
012746
012746
012746
010600

014451
014417
011522
000003

062706

000010

013746

002330
002326
002324
002322
011535
000005

104415

#3,-(SP)
SP,RO
(SPNTB
#10,SP

SP,RO
CSPNTX

013746
013746
013746
013746
012746
012746
010600
104415

(4)
(4)
7712
(9)

#FMT4 ,ADH2 ,ADH3

SEQ 0104

N#FMTS ,=(SP)
#5,-(SP)

012746
012746
012746
010600
104415
062706

(3)

PRINTX

104415
062706

(6)

N 8
30A(1052)
18=JUL=79 09:53 PAGE 7-64
GLOBAL ERROR REPORT SECTION

CSPNTX

013746
013746
013746
013746
012746
012746
010600

(8)
(7)

(3)

000003

104414

(4)
(4)
7708
(9

(4)

012746
010600

MACY11

PRINTX

#FMT6,LURT4,LURTS,LURT6,LURT7

SP_RO
CSPNTX
#6,SP

LUR17,-(SP)

LUR16,-(SP)
LUR1S5,=(SP)
LUR14,~(SP)

HFMT6,~(SP)
#5,-(SP)
SP,RO

CSPNTX

PRINTX

W#FMT4 ,ADH7 ,#DH8

#14,SP

#DHB,~(SP)
#DH7 ,~(SP)

#EMT4 ,-(SP)

#3,-(SP)
SP,RO
CSPNTX
PRINTX

#FMTS ,AX0.15,AX0.16,AX1.15,AX1.16

AX1.16,-(SP)
AX1.15,-(SP)
AX0.16,-(SP)
AX0.15,-(SP)
#FMTS,-(SP)
#5,-(SP)

CSPNTX

CZDMRA M8203 STATIC DJAG #1
18-JuL~ 79 09:44
CZDMRA.P11

017352

062706

000014

012746
012746
012746
010600

014510
011664
000002

B 9
18-JUL=79 09:53 PAGE 7-65
MACY11 30A(1052)
GLOBAL ERROR REPORT SECTION
PRINTX

SEQ 0105
#14,SP

#FMTS ,#DH9

#DH9, - (SP)

#FMTS,
= (SP)

#2,-(5P)

SP_RO
CSPNTX

104415

062706

PRINTX

013746
013746
013746
013746
012746
012746
010600

017444
017444
017444
017444
017450
017454
017460
017464
017466
017470
017474
017474
017500
017504
017506
017510
017514
017514

#5,-(SP)
SP,RO

CSPNTX

#14,SP

ENDMSG

L10007:

104423

013746
012746
012746
012746
010600

002446
035560
011426
000003

062706

000010

012746
012746

011436
000001

104414

000004
013746
012746
012746
012746
01060C

002400
014240
011620
000003

062706

000010

012746
012746
012746
012746
010600

014311
014262
011522
000003

104414

AX3.16,=-(SP)
AX3.15,=-(SP)
AX2.16,-(SP)
AX2.15,=(SP)

#FMT6,-(SP)

104415
062706

017442

#6,SP

#FMT6,AX2.15,AX2.16,AX3.15,AX3.16

BGNMSG

ERR7

PRINTB

#FMT1 ,#ADDRES ,MPCSR

C$MSG

ERR7::
MPCSR,=(SP)
#ADDRES ,-(SP)
#FMT1,-(SP)
#3,-(SP)

SP,RO
CSPNTB

PRINTB

#FMT2

#10,SP
#FMT2,-(SP)
#1,-(SP)

SP,RO
CSPNTB

PRINTB

H#FMT7 ,#DH1 ,REGNUM

#4,SP

REGNUM,
- (SP)
#DH1,-(SP)

#EMT?
.= (SP)
SP,R0
CSPNTB

PRINTX

#FMT4 ,#DH2 ,#DH3

#10,SP

#DH3,~(SP)
#DHZ2 ,~(SP)

#FMTS
- (SP)
#3,-(SP)
SP.RO

CZDMRA M8203 STATIC DIAG #1
18-JuL- 79 09:44
CZDMRA.P11
(4)
(4)
7727
(11)
(10>
9
(8)
(7)
(6)

(3)

(4)
(4)

7728

(8)
(7)
(6)
(3)
(4)
(4)
7729
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(&)
7730
(9)
(8)
(7)
(6)
(3)
(4)
(&)
7731
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7732
(8)
(7)
(6)
(3)
(4)
(4)
7733
(11)

017566
017570
017574
017574
017600
017610
017614
017620

017624

017626
017630

017634

017634
017640
017644
017650
017652
017654
017660
017660
017664
017670
017674
017700
017704
017710
017712
017714
017720
017720
017724
017730
017734
017740
017742
017744
017750
017750
017754
017760
017764
017770
017774
020000
020002
020004
020010
020010
020014
020020
020024
020026
020030
020034
020034

104415
062706

MACYT1

30A(1052)

18-JUL-79

09:53

GLOBAL ERROR REPORT SECTION

9
PAGE 7-66
CSPNTX

PRINTX

013746
013746
013746
013746
012746
012746
010600

#FMTS5,LURT0,LURTT,LURTZ,LURT3

LUR10,=(SP)
SP,RO
CSPNTX

PRINTX

012746
012746
012746
010600

HFMTO ,#DH4

#FMTS,
- (SP)

#2,-(5P)

SP.RO
CSPNTX

262706

PRINTX

000014

012746
012746
012746
012746
010600

014451
014417
011522
000003

062706

000010

104415

012746
012746
012746
010600

014510
011664
000002

062706

000006

013746

002340

LUR17 ,-(SP)
LUR16,-(SP)
LUR1S5,-(SP)
LUR14,-(SP)

#FMT6,-(SP)

SP,RO
CSPNTX

PRINTX

H#FMT4 ,ADH7 ,#DH8

#14,SP

#DH8,~(SP)
#DH7 ,-(SP)

#FMTS
- (SP)
#3,-(SP)
SP,RO
CSPNTX

PRINTX

#FMT5,AX0.15,AX0.16,AX1.15,AX1.16

011535
000005

000014

#6,SP

#5,-(SP)

062706

104415

#FMT6,LURT4,LURTS5,LURT6,LURT7

011565
000005

062706

013746
013746
013746
013746
012746
012746
010600

#14,SP
#DH4 = (SP)

104415

LUR13,-(SP)
LUR12,-(SP)
#FMTS5,=-(SP)
#5,-(SP)

062706

104415

#10,SP

LUR11,=(SP)

104415

013746
013746
013746
013746
012746
012746
010600

SEQ 0106

PRINTX

#FMT9 ,#DH9

#10,SP

AX1.16,=(SP)
AX1.15.=(SP)
AX0.16.=(SP)
AX0.15.~(SP)
HEMTS,
- (SP)
#5,-(5P)
SP,RO
CSPNTX

#14,SP

#DH9 , - (SP)

#FMTS,-(SP)

#2,-(SP)

SP,RO
CSPNTX

PRINTX

#FMT6,AX2.15,AX2.16 ,AX3.15,AX3.16

#6,SP

AX3.16,-(SP)

CZDMRA M8203 STATIC DIAG 01
CZDMRA.P11
18=JUL=79 09:4
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
773

(3)
(3)

020040
020044
020050
020054

013746
013746
013746
012746

020060

012746

020066
020070
020074

104415
062706

020064

020074
020074

010600

CSMSG

(4)
7742
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7743
(7)
(6)

020116
020122
020122
020126
020132
020136
020142
020144
020146
020152
020152
020156

062706

000006

013746
012746
012746
012746
010600
104414

002446
035560
011426
000003

(4)
(4)
7744
(9)
(8)

020164
020166
020172
020172
020176

104414
062706

000004

013746
012746

002400
014240

(6)

020206

012746

000003

(3)

(7)

(3)

(4)
(4)
7745
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7746

020162

020202

020212

020214
020216
020222
020222
020226
020232
020236
020242
020244
020246
020252

010600

012746

010600

104414
062706
013746
013746
012746
012746
010600
104414
062706

SP,RO

TRAP

002352

012746
012746

MOV

CSPNTX
#14,5P

013746

062706

AX3.15,=(SP)
AX2.16.,=(SP)
AX2.15.=(SP)
#FMT6,
= (SP)

000014

ENDMSG

L10010:

104423

012746
012746
010600
104414

MOV
MOV
MOV
MOV
TRAP
ADD

020076

020102
020106
020112
020114

SEQ 0107

MOV

(8)

(7)
(6)
(3)
(4)

000005

020076

020076
020076

30A(1052)
18=JuL=79 09:53 PAGE 7-67
GLOBAL ERROR REPORT SECTION

002336
002334
002332
011565

7735
7736
7737
7738
7739
7740

(3)
7741

MACYT1

BGNMSG

ERRS

PRINTB

#FMT10,SUBRP(C

011671
000002

#FMT1 _,#ADDRES ,MPCSR

PRINTB

#FMT2

000010

011436
000001

ERRS::

MOV

MOV
MOV
MOV
TRAP
PRINTB

#6,SP

MOV
MOV
MOV
MOV
MOV
TRAP

MPCSR,=(SP)
#ADDRES
, =~ (SP)
#FMT1,-(SP)
#3,-(SP)
SP.RO
CSPNTB

MOV
MOV

#FMT2,~(SP)
#1,-(SP)

TRAP
ADD

(CSPNTB
#4,SP

MOV
MOV

REGNUM, = (SP)
#DH1,-(SP)

MOV

#3,-(SP)

MOV
#FMT7,#DH1,REGNUM

011620

MOV

MOV
000010
002406
002404
011460
000003

PRINTB

#FMT3,GOODAT ,BADDAT

000010

PRINTX

#FMT4 , #DH2 ,#DH3

SUBRPC ,=(SP)

#FMT10.-(SP)
#2,-(SP)
SP.RO
CSPNTB

ADD

PRINTB

#5,-(SP)

#10,SP

SP,RO

#EMT?,-(SP)

SP.RO

TRAP
ADD

CSPNTB
#10,SP

MOV
MOV
MOV
MOV

BADDAT ,~(SP)
GOODAT .=(SP)

MOV
TRAP
ADD

SP.RO
CSPNTB
#10,SP

#FMT3,=(SP)
#3,-(SP)

CZDMRA M8203 STATIC DJIAG #1
CZDMRA.P11
18=JUL=79 09:44
(9
(8)
(7)
(6)
(3)

020252

(4)
(4)
7747
1
10

#DH3,-(SP)

#DH2,=(SP)

#FMT4 ,-(SP)
#3,-(SP)

PRINTX

#FMT5,LUR10,LURTT,LURT2,LURT3

PRINTX

H#FMTS ,ADH4

7750
(9

(8)
(7>

(6)
(3)
(4)
(4)
7751
(11
(10)
(9

062706
013746
013746
013746
013746
012746
012746
010600
104415
062706

002320
002316
002314
002312
011565
000005

012746
012746
012746
012746
010600

014451
014417
011522
000003

062706

000010

104415

(8)

020516
020516
020522
020526

#14,SP

, = (SP)
#DH4

104415

(4)
(4)

LUR13,-(SP)
LUR12,=(SP)
LUR11,-(SP)
LUR10,=(SP)

CSPNTX

012746
012746
012746
010600

(3)

#10,SP

#FMTS5,-(SP)
#5,-(SP)

104415

7749 0
an
(10)
(9)
(8)
(7)
(6)

SEQ 0108

SP,RO
CSPNTX

062706

(4)
(4)

7752
(8)
(7)
6)

18-JUL=79
30A(1052)
09:53
PAGE 7-68
GLOBAL ERROR REPORT SECTION

014311
014262
011522

013746
013746
013746
013746
012746
012746
010600

9
(8)
(7)
(6)
(3)
(4)
(4)
7748
(8)
(7)
(6)
(3)

(7)
(6)
(3)
(4)
(4)

012746
012746
012746
012746
010600
104415
062706

MACY11

000014

013746
013746
013746
013746
012746
012746
010600
104415
062706

000014

012746
012746
012746

014510
011664
000002

PRINTX

#FMT6,LURT4,LURTS,LURT6,LURT7

H#FMT9,-(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP

LUR17,-(SP)
LUR16,-(SP)
LUR15,-(SP)
LUR14,~-(SP)

#FMT6,-(SP)

PRINTX

HFMT4 ,ADH7 ,#DHS8

#5,-(SP)
SP,RO
CSPNTX
#14,SP

#DH8,~(SP)
#DH7 ,-(SP)

#FMTL ,-(SP)
#3,-(SP)
S¥,RO

CSPNTX

PRINTX

#FMT5,AX0.15,AX0.16 ,AX1.15,AX1.16

#10,SP

AX1.16.-(SP)
AX1.15,-(SP)
AX0.16.-(SP)
AX0.15,-(SP)
#FEMTS5,-(SP)
#5,-(SP)

SP,RO
CSPNTX

PRINTX

#FMT9 ,4DH9

#14,SP

#DH9 , - (SP)

#FM-TS
(SP)
#2.-(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
(3)
(4)

020532

(4)
7753
11)
10)
9
(8)
(7)
(6)

(3)

(4)
(4)
7754

(3)
(3)
7755
7756
7757
7758

(6)

MoV

062706

PRINTX

013746
013746
013746
013746

062706

ENDMSG

(4)
7763
(9)
(8)
(7)
(6)
(3)
(4)
(4)
7764
(9
(8)

(7)
(6)
(3)

(4)
(4)
7765
1 020734
(10) 020740

L10011:

104423

013746
012746
012746

002446
035560
011426
000003

BGNMSG

ERR9

PRINTB

#FMT1,#ADDRES ,MPCSR

SP,RO
CSPNTX

#6,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

AX3.16,-(SP)
AX3.15,-(SP)
AX2.16,-(SP)
AX2.15,-(SP)

TRAP

CIMSG

HFMT6,-(SP)
#5,-(SP)

SP,RO
CSPNTX

#14,SP

ERR9::
MPCSR,=(SP)
#ADDRES ,~(SP)
#FMT1,-(SP)
#3,-(SP)

SP,RO

(4)

(3)

#FMT6,AX2.15,AX2.16,AX3.15,AX3.16

104415

(3)

(4)

TRAP
ADD

012746
012746
010600

(4)

7762
(7)
(6)

SEQ 0109

104415

(3)

(8)
(7)

F
9
30A(1052)
18-JuUL-79 (09:53 PAGE 7-69
GLOBAL ERROR REPORT SECTION

010600

7759
7760
7761
(9

MACY1T

000010

012746
012746
010600

011436
000001

062706

000004

013746
012746
012746
012746
010600

002400
014240
011620
000003

062706

000010

012746
012746
012746
012746
010600

014311
014262
011522
000003

062706

000010

013746
013746

002310
002306

104414

104415

PRINTB

HFMT2

CSPNTB
#10,SP
HFMT2 ,-(SP)
#1,-(SP)

SP.RO
CSPNTB

PRINTB

H#FMT7 ,#DH1 ,REGNUM

#4 ,SP

REGNUM,
= (SP)

#DH1,~(SP)

#FMT?,-(SP)

#3,-(SP)

PRINTX

#FMT4 ,#DH2 ,#DH3

#DH3,~-(SP)
#DH2 ,~(SP)

#FMTSL ,-(SP)

#3,-(SP)
SP,RO

CEPNTX

PRINTX

#FMTS,LURT0,LURTT,LURTZ,LURT3

#10,SP
LUR13,=(SP)

LURY2,~(SP)

CZDMRA M8203 STATIC DIAG #1
CZDMRA. P11
18=-JUL=79 09:44
(9

(8)

(7)

(6)

(3)

(4)

(4)
7766
(8)
(7)
6)
(3)
(4)
(4)
7767
an
10)
(9
(8)
(7)
(6)
(3)

020744
020750
020754
020760
020764
020766
020770
020774
020774
021000
021004

013746
013746
012746
012746
010600

002304
002302
011535
000005

062706

000014

012746
012746
012746

014347
011664
000002

104415

000006

013746
013746
013746
013746
012746
012746

(&)
(4)

7768
(3)

(3)

7769
7770
7771
7772
7773

002320
002316
002314
002312
011565
000005
000014

104423

MACY?1

30A(1052)

18-JuL=79

09:53

GLOBAL ERROR REPORT SECTION

PRINTX

PAGE 7-70

SEQ 0110
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

#FMT9,#DH4

MOV
MOV
MOV
MOV

PRINTX

TRAP
ADD

#FMT6,LURT4,LURTS,LURT6,LURT7

MOV
MOV
MOV
MOV
MOV
MOV
MOV

ENDMSG

L10012:

LUR11,=(SP)
LUR10,=(SP)
#FMTS,=-(SP)
#5,-(SP)
SP,RO

CSPNTX

#14,SP

#DH4 ,~(SP)
#FMT,~-(SP)
#2,-(SP)

SP,RO
CSPNTX

#6,SP

LUR17,=-(SP)
LUR16,-(SP)
LUR15,-(SP)
LUR14 ,-(SP)
HFMT6,-(SP)

#5,-(SP)

SP,RO
CSPNTX

TRAP
ADD

#14,SP

TRAP

C$MSG

(ZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11

18=JUL=79 09:44

7775
7776
7777

7784

30A(1052)

18=JuL=79

REPORT CODING SECTION

.SBTTL

7778

7779
7780
7781
7782
7783

MACYT1

09:53

9
PAGE 7-71

SEQ@ 0111

REPORT CODING SECTION

SITITIITTITI777 7777777777777 77777777777777770777777777777777777777777777777
;/ THE REPORT CODING SECTION CONTAINS THE

:/ "PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

SIITITIITTIIITT7777777
70777777777 777777077707777777777777777777717777777777

021062
021062

BGNRPT

021062
021062
021062

ENDRPT

104425

LSRPT::

L10013:

TRAP

C$RPT

(ZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11
7792

7798

(3)

7800

7801

7802
7803

7804
7805

7806

7807

7808

30A(1052)
18=JuL=79 09:53 PAGE 7-72
LOAD DEVICE PROTECTION TABLE
.SBTTL

7793
7794
7795
7796
7797
7799

MACYT1

SEQ 0112

LOAD DEVICE PROTECTION TABLE

SIIIITITITTII777777777777777777777777777777777777777777777277777777/777777777777
:/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR, SO THAT IT CAN BE
;/ PROTECTED FROM TESTING, IF DESIRED.
JIITITTTTTIITITI77 7777777777777 777777077777777777777777777777777777777777777777

021064
021064

021064
021066
021070

021072

BGNPROT
177777
177777
177777

.WORD
=1
WORD
=1
.WORD
=1
ENDPROT

;DON'T CHK CSR ADRS
;DON'T CHK MASSBUS UNIT NO.
sDON'T CHK DRIVE NO.

:
L$PROT:

CZDMRA M8203 STATIC DIAG #1
CZDMRA P11
18=JUL=79 09:44

MACY11 30A(1052)
18=-JuL-79
INITIALIZE SECTION

7810

.SBTTL

7811
7812
7813

7814

7816
(3)

9
PAGE 7-73

SEQ 0113

INITIALIZE SECTION

SIIIITTITTIIIT777777777777777777777777777777777777777777777777777777777
;/ THE INITIALIZE SECTION CONTAINS THE CODING THAT [S PERFORMED
:/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT.
SIIITTTITIIIIITI7
7777777777777 777777777777777777777777777777777777777

7815

7817

09:53

021072
021072

BGNINIT

005737
001007
013737
013737
000406
013737
013737
012737

002416

000004
000006
002412

6%:
9%:

021200
021200
021204
021206
021206

021210
021210
021214
021216
021216
021220
021220
021224
021226
021226
021230
021232
021232

021236
021242
021242
021250

SP,PSTACK
SUBRP(
DISILO
CHPTYP
ERROR1
SAVLEN

BNE
MOV
MOV
BR
MOV
MOV
MOV

6%
N6, SAVES
a#6, SAVES
9%
SAVE4 ,a#4
SAVEG, an6
#1,FRSTIM

READEF

#EF .START

FRSTIM

;SAVE BASE-LEVEL STACK POINTER
;CLEAR SUBR CALL PC
;CLEAR CURRENT STATE OF DISSI
;CLEAR USYRT CHIP TYPE INDICATOR
:CLEAR ERROR FLAG
;CLEAR CHAR LENGTH FROM SETUP
;SEE IF FIRST TIME THROUGH AFTER LOAD
;BR IF NOT

*SAVE ERROR TRAP VECTOR
sRESTORE ERROR TRAP VECTOR

:;MARK FLAG FOR NEXT TIME THROUGH

;SEE IF PROGRAM JUST STARTED, BR IF YES

012700
021176
021176

MOV
CLR
CLR
CLR
CLR
CLR
TST

002414

LSINIT::

104447
BCOMPLETE

103415

012700

104447

READEF

012700

104447

STARST

JSEE IF THIS IS A NEW PASS, BR IF YES
READEF

000035

NEWST

;SEE IF PROGRAM WAS JUST CONTINUED
READEF #EF . CONT INUE

000036

BCOMPLETE

103504

000414
005037

002444

005037

002434

012737
005237

177777

002444

STARST:

ENDIT

GE TPRM

C LR

STARES

CLR

DEVMAP

MOV
INC

#-1,LOGDEV
STARES

;CLEAR DEVICE MAP

002344

NEWST:

BCS

STARST

MOV
TRAP

#EF .RESTART
RO

BCS

STARST

MOV

TRAP

#EF .NEW,RO
C$REFG

B8(CS

NEWST

MOV

#EF . CONT INUE ,RO

BCS

ENDIT

CSREFG

#EF .NEW

BCOMPLETE

103411

012700

STARST

#EF .RESTART

BCOMPLETE

103411

#EF .START
RO

TRAP

;SEE IF PROGRAM JUST RESTARTED, BR IF YES
000037

MOV

TRAP

;CLEAR FLAG TO SHOW JUST HAD STA OR RES

I 3 TC =1
JRESET LOGICAL PEVIC
s INCR NO. OF PASSE S ) INCE STA OR RES

CSREFG

CZDMRA MB203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P11
021254

021262

012737

000001

MACY11 30A(1052)
18=JUL=79
INITIALIZE SECTION

002436

;

005237
023737
002362

002344
002344

013700

002344

104442

002012

002436

021412
021416
021424
021430
021434
021440
021440
021440
021440

011137

104411

INC

CMP
BGE
GPHARD

LOGDEV

LOGDEV,LSUNIT
NEWST
LOGDEV,R1

BCOMPLETE

002446
002450
002450
002450
002452
002454
000004
002456
000006
002460
002462
000004
002464

002476

9
PAGE 7-74

SEQ 0114

__CONNECTOR INFORMATION FOR THIS LOGICAL DEVICE

GETPRM:

002434

MOV
#31T0,DEVPTR
;INIT DEVICE MAP BIT POINTER
GET UNIBUS ADDRESS, VECTOR, PRIORITY LEVEL, SWITCH PACKS, TEST

010001

002436
002436

09:53

10%:

ASL
BR
BIS
ASL

ADD
MOV
MOV

INC
MOV
INC
MOV

002452

002454
002456

002462

ENDIT:

ADD
MOV
ADD
MOV
MOV
ADD
MOV
ADD
MOV

ENDINIT

108

DEVPTR
GETPRM
DEVPTR,DEVMAP
DEVPTR

#2,R1
(R1) ,MPCSR
(R1) ,BSEL1
BSEL1
BSEL1,BSEL?2
BSEL2
(R1),SEL4

s INCREMENT LOGICAL DEVICE NUMBER
sSEE IF MAXIMUM UNIT NO. EXCEEDED
sBR IF YES
sGET P-TABLE POINTER INTO R1

:BR IF DEVICE AVAILABLE
sSHIFT DEVICE POINTER

MOV
TRAP
MoV

LOGDEV ,RO
C$GPHRD
RO.R1

BCS

108

:SKIP THIS DEVICE

;SET BIT FOR THIS DEVICE

sSHIFT BIT POINTER

: INCREMENT R1 PAST MICROPROCESSOR TYPE
sSTORE POINTER TO MICROPROCESSOR CSR'S
;GET POINTER TO BSELT

(MAINTENANCE REGISTER)

;GET POINTER TO BSELZ

#4,SELS
(R1)+,SEL6
#6,SEL6

;GET POINTER TO SEL4

#4 ,MPOVE
C
(R1)+ ,MPRIOR
#14 ,R1
(R1) ,RUNINH

;GET MICROPROCESSOR OUTPUT INTRPT VECTOR
;GET MICROPROCESSOR DEVICE PRIORITY

(R1) ,MPIVEC
(R1)
+ ,MPOVEC

;STORE POINTER TO SEL6
;GET MICROPROCESSOR INPUT INTRPT VECTOR

sPOINT R1

TO RUN SWITCH INDICATOR

;GET STATE OF MICROPROCESSOR RUN SWITCH
L10015:

TRAP

CSINIT

(ZDMRA M8203 STATIC DJAG #1

CZDMRA.P11

18=JUL=79 09:44

MACY11

30A(1052)

18=JuL=79

09:53

AUTO DROP UNIT SECTION

PAGE 7-75

SEQ 0115

;gg;

.SBTTL

7893

sI117777777777777777777777777777777777777777777777777777777777777777/777777777777

7895
7896
7897
(3)
7898
7899
(3)
(3)
7900
7901
7902
7903

021442
021442
021446
021450
021456
021464
021470

s/ WAS JUST OBTAINED IS READY FOR TESTING, AND IT IS DROPPED IF NOT READY.
/1111777777777 77777777777777777777777777777777777777777777777777777/77777777/7777
BGNAUTO
LSAUTO::
JESTABLISH CPU PRIORITY = 7
SETPR]I
#PR]07
MOV
#PRI107,RO
TRAF
C$SPRI
MOV
#6S a6
sSET UP NON-EXISTENT MEMORY ERROR TRAP VECTOR
MOV
#PRIO7 ,an6
TST
aMP(SR
;ADDRESS SELO
BR
9%
sTAKE THIS BR IF DEVICE RESPONDS

7905
7906
(3)
(3)
7907
7908
7909
(3)
(3)

021472
021476
021476
021502
021504
021512
021520
021520
021520

7894

7904

7910
7911
7912
7913

AUTO DROP UNIT SECTION

s/ THE AUTO DROP CODING DETERMINES WHETHER OR NOT THE DEVICE WHOSE P-TABLE

021442
021442
012700
104441
012737
012737
005777
000405

000340

062706

000004

013700
104451
013737
013737

002344

104461

021472
000340
160756

002414
002416

000004
000006

;COME HERE IF DEVICE CSR IS NON-EXISTENT

6%:

000004
000006

9%:

ADD
DODU

#4 ,SP
LOGDEV

MOV
SAVES4 ,a#4
MOV
SAVEG,a#6
ENDAUTO

sCLEAN UP THE STACK POINTER
;DROP THIS UNIT FROM TESTING
;RESTORE ERROR TRAP VECTOR
L10016:

MOV
TRAP

LOGDEV,RO
C$DODU

TRAP

(SAUTO

(ZDMRA MB8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11

MACY11

30A(1052)
18=JuL=79 09:53
CLEANUP CODING SECTION
.SBTTL

M9
PAGE 7-76

SEQ 0116

CLEANUP CODING SECTION

SIITTTTTITTTIT77777777777777777777777777777777777777777777777777777777
:/ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED
;/ AT THE END OF THE TEST SEQUENCE ON A PARTICULAR UNIT.
SIIIITTTIITITI07777777777777777777777777777777077777777777777777777777

021522
021522

BGNCLN

021522
021522
021522

ENDCLN
104412

LSCLEAN::

L10017:

TRAP

C$CLEAN

alal

DMRA MB8203 STATIC DIAG #1
18-JuL~ 79 09:44
DMRA PN

MACYT1

30A(1052)
18=JuL=79
DROP UNIT SECTION
.SBTTL

09:53

N 9
PAGE 7-77

SEQ 0117

DROP UNIT SECTION

SITITTITIITITITIII 707777770777 77770770777707777707777777777777777277777777777
:/ THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
:/ TO NO LONGER BE TESTED.
SIIITTITTTITITIIITTIT7
7770007770700 7 7077777772070 7777777777777777777777777777

021524
021524
021524
021524

021526

BGNDU

s ISSUE UNIBUS RESET TO CLEAN UP
BRESET

104433

013746
012746
012746
010600

002344
021554
000002

;PRINT "UNIT XX DROPPED''
PRINTF
#FMT27,LOGDEV

104417
062706

7948
7950
7951
7952
7953

021552

104453

021554
021562
021570
021576
021604

047045

L$DU::
TRAP

CSRESET

MOV
MOV
MOV

#FMT27 ,-(SP)
#2,-(SP)

TRAP

ENDDU

040445
022440
042040
042105

FMT27:

.EVEN

LASCIZ

L10020:
/INXAUNIT %D2XA DROPPEDZN/

LOGDEV,=(SP)
SP,RO
CSPNTF

ADD

#6,SP

TRAP

($bU

CZDMRA M8203 STATIC DJAG #1

CZDMRA.P11

18=JUL=79 09:44

MACYT1

30A(1052)

18-JuL-79

ADD UNIT SECTION

09:53

8 10

PAGE 7-78

SEQ 0118

77322

.SBTTL

7957
7958
7959
7960

SIIITIITTIIITIII77777777777777777777777777777777777777777777777777777
:/ THE ADD=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
s/ TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING
IF
:/ "EF.AUNIT'' IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT

77'325

7963
(3)
7964
(3)
(3)
7965

7966

7967
7968

7969

ADD UNIT SECTION

////////////////////////////////////////////////////////////////////

021606
021606
021606
021606
021606

BGNAU
ENDAU

104452

LSAU::
L10021:

TRAP

C$AU

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACY11

30A(1052)
18=JuL=79
HARDWARE TESTS

c 10

PAGE 7-79

SEQ 0119

7972
7973
7974
7975
7976
7977

.SBTTL

7979

SBTTL

7981
7982
7983

.- THIS TEST ADDRESSES THE FIRST MICROPROCESSOR CSR (SELO), TO MAKE SURE
;* THAT A NON-EXISTENT MEMORY TIME-OUT TRAP DOES NOT OCCUR WHILE
:* ATTEMPTING TO ADDRESS THE MICROPROCESSOR.

7978

021610
021610

7987
(3)
(3)
7988
7989
7990
7991
7992

021610
021610
021614
021616
021624
021632
021636

012700
104441
012737
012737
005777
000406

021640

062706

7994
7995
(4)
(5)
(5)
(5)
7996
7997
7998

(3)
(3)

7999
8000

TEST 1 = MICROPROCESSOR CSR ADDRESSING TEST

021644
021644
021646
021650
021652
021654
021662
021670

021670
021670

BGNTST

T1::

;ESTABLISH CPU PRIORITY = 7

104455
000001
012101
014554

013737
013737

SETPRI

000340
021640
000340
160610

000004
000006

000004

002414
002416

#PR107

ADD

#4,SP

;REPORT CSR ADDRESS TIME-OUT
ERRDF
1,EM1,ERR1

000004
000006

MOV
#PR107,RO
TRAP
C$SPRI
;SET UP NON-EXISTENT MEMORY ERROR TRAP VECTOR

MOV
#6$, N6
MOV
#PRIO7,a#6
TST
aMP(SR
:ADDRESS SELO
BR
9%
:TAKE THIS BR IF DEVICE RESPONDS
:COME HERE IF DEVICE CSR IS NON-EXISTENT

6$:

9%:

ENDTST

MOV
MOV

SAVE4 , a#é
SAVEG, a#6

;CLEAN UP THE STACK POINTER

:RESTORE ERROR TRAP VECTOR

L10022:

104401

8001
8002
8003
m

TRAP
.WORD

CSERDF
1

.WORD
.WORD

EM1
ERR1

TRAP

CSETST

tt't'ttt'lt.ttttttttttit'ttttttttttttttfitttttt'ttttttt.tttttttttttttttttttttt'

gggg

SBTTL

8007
8008

.- MASTER CLEAR (MCLR) IS SET IN THE MICROPROCESSOR,
:* AND COMPARED TO 200.

8009

8010
(3)
8011
8012
8013
8014
8015
8016
8017

(SELO)

lttQt'ttQttttQttt.tttttttttttttt.ttttttttttttt't'tttttttttttt.t'tttttt"ttt'tt

7985
(3)

7993

TESTS

tttt.Qtt.'Qtt.ttt!tttttttttttttttttttt.itttt..ttttfitittltt't"ttt'tt'tt"tit't

798[.

7986

HARDWARE

09:53

TEST 2 = INBUS/OUTBUS REG 14 INITIALIZATION TEST
IBUS REG 14 IS READ

tttttttttttttttttttttttt.tttttttttttttttttttttttt'lt'ttttttt!tt'tt'ttti'titttt

021672
021672
021672
021700
021704
021710
021716
021720
021724

BGNTST
012737
004737
004737
123737
001416
005037
113737

000014
003576
003644
002364

002404
003026

002400
003026

002404

MOV
JSR
JSR
(MPB
BEQ
CLR
MOVB

#14 ,REGNUM
PC,MSTCLR
PC .READLU
REDBYT,PATM+4
6%
GOODAT
PATM+4 ,GOODAT

T2::
:SET LU REG NO. = 14
:I1SSUE MASTER CLEAR
:READ REG 14
:CHK FOR INITIALIZED STATE
‘BR IF YES
;SET EXPECTED REG CONTENTS
= 000
;SET EXPECTED DATA

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

021732
021740

021744
021744
021746
021750
021752
021754
021754
021754
021754

013737
004737

002364
003770

MACY11
002406

30A(1052)

_18=JuL-79

09:53

D 10
PAGE 7-80

TEST 2 = INBUS/OUTBUS REG 14 INITIALIZATION TEST

SEQ 0120

MOv
REDBYT ,BADDAT
;SET ACTUAL REG CONTENTS
JSR
PC,GETREG
;GET REGS FOR PRINTOUT
sREPORT REG NOT CLEARED BY MASTER CLEAR

ERRDF

104455

2,EM2,ERR2

000002

012135

014606

ENDTST

L10023:

104401

AR R

LSBTTL

. %

A A A

AR A A A AR R AR

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

TEST 3 - INBUS/OUTBUS REG 14 READ/WRITE BIT TEST

TRAP
.WORD

SSERDF

.WORD

ERR2

.WORD

EM2

TRAP

CSETST

AR AR AR AR AR AR AR

:* WRITE, READ, AND COMPARE ALL WORDS OF DATA PATTERN A INTO REG 14,
e 352515@“7 A TIME.
..

TO O BEFORE WRITING AND

DATA PATTERN A = 125,252,000,377,001,002,004,010,020,040,100,200,
376,

021756
021756
021756
021762
021770
021774
021774
021774
021776

NON-R/W BITS ARE MASKED OFF

SERE s

375,373,367,357,3%7,277.177.

BGNTST

003576
000014
002571

002400

JSR

’

002364
002366

6%:

(R1) ,WRIBYT

;GET A BYTE OF PAT A

022072

002615

TRAP

R14NRW, WRIBYT
PC,WRITLU
PC ,READLU

;MASK OFF NON-READ/WRITE BITS
;sWRITE DATA BYTE INTO REG 14
;READ DATA BYTE FROM REG 14

CMPB
BEQ
MOV
MOV
JSR

REDBYT ,WRIBYT
6%
WRIBYT,GOODAT
REDBYT ,BADDAT
PC,GETREG

;COMPARE BYTE READ TO BYTE WRITTEN
:BR IF BYTES MATCH
;SET EXPECTED REG CONTENTS
;SET ACTUAL REG CONTENTS
;GET REGS FOR PRINTOUT

R14NRW, REDBYT

TRAP
.WORD

ENDSEG

10000%:

R1,4PATB

;INCREMENT DATA PATTERN POINTER
;SEE

ALL WORDS OF

giERDF

.WORD

EM3

TRAP

CSESEG

.WORD

INC

($B8SEG

;MASK OFF NON-READ/WRITE BITS

104405

005201
020127

*SET LU REG NO. = 14
*GET POINTER TO DATA PAT IN R1

;REPORT LINE UNIT REG MISCOMPARE
ERRDF
3,EM3,ERR2

022056

;ISSUE MASTER CLEAR

BICB
JSR
JSR

BI(CB

002404
002406

PC,MSTCLR

#14 ,REGNUM
#PATA.R1

BGNSEG
MOovB

002366

022052

"
MOV
MOV

22323322232332322222322232322222;

PATTERN A USED YET

ERRZ2

(ZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

8061

022076
022100
022100
022100

MACY11

103736

30A(1052)

_18-JuL=79

E 10

09:53

PAGE 7-81

TEST 3 - INBUS/OUTBUS REG 14 READ/WRITE BIT TEST

BLO

ENDTST

SEQ 0121

;BR IF NOT DONE YET

L10024:

104401

CSETST

TRAP

R i

.SBTTL

TEST 4 = REG 14 MASTER CLEAR TEST

e ?81550377 INTO REG 14,
..

BGNTST

022102
022102
022102
022106
022114
022122
022126
022132
022136
022144
022146
022152
022160
022166

003576
000377
003722

A A R

002400
002366

002404
003026

003770

A A A AR AR A

003026

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

:PERFORM MASTER CLEAR
*SET LU REG NO. = 14

JSR
JSR
JSR
(MPB

PC,WRITLU
PC.MSTCLR
PC,READLU
REDBYT,PATM+4

:WRITE 377 INTO REG 14
*ISSUE MASTER CLEAR
*READ REG 14
:CHK FOR INIT'D STATE

GOODAT
PATM+4,GOODAT
REDBYT.BADDAT
PC,GETREG

:SET EXPECTED DATA
-SET ACTUAL DATA
*GET REGS FOR PRINTOUT

#377,WRIBYT

CLR
MOVB
MOV
JSR

;REPORT REG NOT

022172
022172
022174
022176
022200
022202
022202
022202
022202

PC,MSTCLR
#14 ,REGNUM

BEQ

002404
002406

JSR
MOV

MOVB

003576
002364

ISSUE MASTER CLEAR, READ REG 14 AND COMPARE

ERRDF

R AR AR

T4::

:BR IF REG GOT CLEARED

CLEARED BY MASTER CLEAR

2,EM2,ERR2

TRAP

L10025:

A AR R

.SBTTL

:SET DATA BYTE = 377

6%:
ENDTST

AR AR AR AR

AR AR

R R AR TR AR AR R AR AR AR

TEST 5 = REG 14 UNIBUS RESET

2
EM2
ERR2

TRAP

CSETST

AR AR AR R AN AR AR AR AR AR ANN

(INIT)

CSERDF

.WORD
.WORD
.WORD

R R

R R RS

TEST

;e #81550377 INTO REG 14, ISSUE UNIBUS RESET (INIT), READ REG 14 AND COMPARE
-

022204
022204
022204
022210
022216
022224
022230
022230

AR A

BGNTST
004737
012737
112737
004737
104433

003576
000014
000377
003722

002400
002366

I3 3233322332232222222222222221%;

IS::

JSR
MOV

PC,MSTCLR
#14 ,REGNUM

;:PERFORM MASTER CLEAR
SSET LU REG NO. = 14

JSR
BRESET

PC,WRITLU

SWRITE 377 INTO REG 14
*ISSUE UNIBUS RESET (INIT)

MOVB

#377,WRIBYT

*SET DATA BYTE = 377

TRAP

CSRESET

(ZDMRA MB203 STATIC DIAG #1
(ZDMRA.P11
18=JUL=79 09:44

022232

142777
012701

003644
002364

) e

00 00 0o 0o 0o Co 0o 0o OO

NWWN
NN
D
aa s aaaa
POV
ONONVS W —=O

8109

)

002404
003026
002364
003770

)
D e
PN
o
D d o

0o 0o

N
o
—

000200
000024

MACY11
160210

30A(1052)

18-JuL=79

09:53

F 10
PAGE 7-82

TEST 5 = REG 14 UNIBUS RESET

BICB
MOV
NOP
DEC
BNE

)
2%:

003026

fo
2%

;DECR COUNTER
;BR TO STALL

;BR IF REG GOT CLEARED

PATM+4 ,GOODAT

;SET EXPECTED DATA

CLR

GOODAT

MOV
JSR

SEQ 0122

;CLEAR RUN BIT
JINIT LOOP COUNTER

PC ,READLU
REDBYT ,PATM+4

mMovB

002404
002406

TEST

#RUN,aBSEL1
#20. ,R1

JSR
CMPB

BEQ

(INIT)

REDBYT,BADDAT
PC,GETREG

JREAD REG 14
;CHK FOR INIT'D STATE

;SET ACTUAL DATA
:GET REGS FOR PRINTOUT

;REPORT REG NOT CLEARED BY UNIBUS RESET (INIT)

022312
022312
022314
022316
022320
022322
022322
022322
022322

ERRDF

& ,EM4 ,ERRZ2

TRAP
.WOFD

6%:

ENDTST

L10026:

ESERDF

.WOF.D
. WORD

EM4
ERR2

TRAP

CSETST

Q".'..'..'.'..'...""t'.'.."'...'.'...'..".'...'Q..".'.".'.'...'."."..

SBTTL

.'
:*
;*
:*

TEST 6 = LINE UNIT FALSE SELECTION TEST

.' zg%gggégN OF
AR

022324
022324

BGNTST

004737
012737
013701
052701
052701
010137
112777

004737
000000
004737
123737

001416
005037
113737

022426

AR R

THE LINE UNIT REGISTERS, WHEN THE LINE UNIT IS NOT BEING

013737
004737

003576
000014
002400
000100

002400

121000

022370
000041
003540

003644
002364
002404
003026
002364
003770

160070

2%:

003026

002404
002406

JSR
MOV
MOV

PC,MSTCLR
#14 ,REGNUM
REGNUM,R1

JSR
CMPB
BEQ
(LR
MOvB
HOV
JSR

PC ,READLU
REDBYT ,PATM+4
43
GOODAT
PATM+4 ,GOODAT
REDBYT ,BADDAT
PC,GE TREG

BIS
BIS
MOV
MOVB
JSR
.WORD

#100,R1
lflVIXOX.R1
R1,2%
l041 aBSEL4
PC, STPCLK
O

;REPORT REGISTER M]SCOMPARE

T6::
;ISSUE A MASTER CLEAR
;SET LU REG NO. = 14
JSET DESTINATION = 0BUS* REG 14

22223222222222232;

;SET SOURCE = BSEL4
;SET REST OF MOVE INSTRUCTION
JSET INSTRUCTION AS SUBROUTINE ARGUMENT
;SET DATA BYTE = 041
JEXECUTE MOVE INSTRUCTION
JINSTRUCTION GOES HERE
JREAD LU REG 14
JCHECK FOR LU REG 14 UNCHANGED
BR IF LU REG 14 UNCHANGED
JSET EXPECTED DATA

;SET ACTUAL DATA
;GET REGS FOR PRINTOUT

(ZDMRA MB203 STAYIC DIAG #1
(ZDMRA. P11
18=JUL=79 09:44

8154
(4)

(%)
(%)
(5)

8155
8156

(3)
(3)
8157
8158

022432
022432
022434
022436
022440
022442
022442
022442
022442

MACYT11

304(1052>

18=4UL=79

(09:53

TEST 6 = LINE UNIT

ERRDF

104455

G 10
PAGE 7-83

FALSE

SELECTION TEST

SEQ 0123

3,EM3,ERR2

TRAP

000003

012174

014606

4%:

CSERDF

.WORD
.WORD
.WORD

3
EM3

TRAP

CSETST

ERRZ2

ENDTST

L10027:

1064401

8159

8160
8161
8162
8163

:......Q..'..'...'..."..'.t'.'.".'."'..."".'...."..'......Q".'..".".."

LSBTTL

8164
8165
8166
8167
8168
8169

8170
8171
8172
8173
(3)
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190

8191
8192
8193
8194
8195
8196
(4)
(5)

(5)
(5)

8197
(3

TEST 7 = INBUS REG MASTER CLEAR TEST

‘%

FIRST,

ALL

READ/WRITE BITS OF

REGS

:* PATTERN M,

WHICH CONTAINS THE

INITIALIZED STATES OF

10-17 ARE

SET BY LOADING A

;* DIFFERENT WORD OF PATTERN G INTO EACH REG.
THEN,
;* A MASTER CLEAR IS ISSUED AND EACH REG IS READ AND COMPARED TO A WORD OF
;* BITS ARE MASKED OFF TO O BEFORE_COMPARISON).

:*
;*
S

JSR

002400

2%:

003644
002364
002364

022562
022566
022566
022570
022572
022574
022576
022576

002404
002404
002364
003770

PC MSTCLR

”

PC,WRITLU

;WRITE BYTE

(MP

R1,4PATH

;SEE

PC ,MSTCLR

s ISSUE MASTER CLEAR

(R1)+,WRIBYT

RE GNUM
2%

;SET DATA PATTERN BYTE TO BE WRITTEN
INTO REG

s INCREMENT REG NO. FUR WRITING
IF ALL BYTES WRITTEN YET

:BR IF NOT DONE WRITING YET

MOV
MOV

#10,REGNUM
#PATM,R2

JSR

PC,READLU

sREAD A LINE UNIT REG

CMPB
BEQ
CLR
MOvB
MOV
JSR

REDBYT, (R2)
6%
GOODAT
(R2) ,GOODAT
REDBYT ,BADDAT
PC,GETREG

; COMPARE MASKED DATA TO EXPECTED
;BR IF DATA READ IS OK

ERRDF

2,EMZ2,ERR2

MOV

sREPORT REG NOT

#UPBITS R1

(R1)+ ,REDBYT

2INIT LU REG NO. TO 10
:INIT DATA PATTERN POINTER

sINIT POINTER TO UNPREDICTABLE BITS

sMASK OUT UNPREDICTABLE BITS FOR THIS REG

sSET EXPECTED DATA
;SET ACTUAL DATA
:GET REGS FOR PRINTOUT

CLEARED BY MASTER CLEAR

TRAP

5$ERDF

.WORD

EM2
ERRZ2

TRAP

($ESCAPE

.WORD
.WORD

ESCAPE

s ISSUE MASTER CLEAR

JSR

MOvVB

BI(CB

002406

A A AR AR AR A AR R AR R AR AR AR AR AR AR AR AR AR AN RAR

sINIT REG NO. TO 10
sINIT DATA PATTERN POINTER

JSR

A A A A

#10 ,REGNUM
#PATG,R1

BLO

002400

MOV
MOV

INC

0000
003022
002550

(UNPREDICTABLE

PATTERN G = 000,000,240,120,177,000,000,001
PATTERN M = 000,020,000,000,200,000,000,051

BGNTST

022444
022444
022444
022450
022456
022462
022466
022472

THE REGS.

TST

MB8203 STATIC DIAG #1
18=JUL=79 09:44
P11
022600
022602
022606
022610
022614
022616
022616
022616

000016
005237
005202
020227
103744

MACYT1

002400

30A(1052)

_18=JuL=79

09:53

H 10

PAGE 7-84

TEST 7 = INBUS REG MASTER CLEAR TEST

6%:

INC
INC

003032

CMP

ENDTST

RE GNUM
R2

s INCREMENT REG NO.
;INCR DATA PATTERN POINTER

;BR IF NOT DONE YET

R2,#PATN

BLO

SEQ 0124

;SEE

IF ALL DONE

.WORD

L10030-.

TRAP

CSETST

YET

L10030:

104401

::..'.fi...'.".Qt‘fi‘...'.'Q..R"'Q"fi"..‘..'..fi"'.'..".....'."'.....Q.."'.'

.SBTTL

IS LYY
nN=O Nalo A

8223

TEST 8 = REGISTER 10-17 ADDRESSING TEST

FIRST,

A MASTER CLEAR

IS ISSUED.

THEN,

022620

022620
022620
022624
022630

022634
022640
022642

;* WRITE A DIFFERENT WORD OF DATA PATTERN B INTO EACH OF REGS 10-17,
;* AND AFTER EACH WRITE, READ AND COMPARE ALL REGS TO EXPECTED VALUES.
;* UNPREDICTABLE BITS ARE MASKED OFF TO O WHEN READ FOR COMPARISON.
*

RRRS B0 RRRRAER

NTo AV, F YWV S

8210

MLALALAAE LSS

PATTERN B = 000,000,040,100,220,000,000,051

003576
002500
003022
000010

JSR
MOV

3s:

002400

98 :

002364
002500
002500

023016
023016

002404
002406

108:

’
718::
;ISSUE MASTER CLEAR
*INIT POINTER TO EXPECTED DATA AREA

#8. RS

*SET COUNTER

#PATM R2

MOVB
DEC
BNE

(R2)+,(R1)+
R3
33

:LOAD BYTE OF PATRN INTO EXPECTED DATA AREA
*DECR COUNTER
:BR IF NOT DONE LOADING YET

#10 ,REGNUM

;:GET REG NO. FOR WRITING

*INIT DATA PAT INDEX FOR READS

CLR
MOV

ADD

CLR

MOV

R1
R1,REGNUM

*GET POINTER TO PATTERN M

*INIT DATA PATTERN INDEX FOR WRITING

PATB(R1) ,WRIBYT :SET DATA BYTE TO BE WRITTEN
WRIBYT ,REDDAT(R1) ;SET EXPECTED DATA FOR READ
UPBITS(R1) ,REDDAT(R1) ;MASK OUT UNPREDICTABLE BITS
PC.WRITLU
;WRITE DATA BYTE INTO REG

R3,REGNUM

ADD

#10 ,REGNUM

BICB
cMP
BNE
BICB
BI(B

UPBITS(R3),REDBYT ;MASK OUT UNPREDICTABLE BITS
REGNUM, #11
:SEE IF READING REG 11
108
‘BR IF NOT
#ORDY ,REDBYT
sMASK ORDY BIT IN ACTUAL BYTE
#ORDY ,REDDAT (R3) :MASK ORDY BIT IN EXPECTED BYTE

JSR

002364
000011

PC,MSTCLR
#REDDAT ,R1

MOV

MOVB
MOvB
8I(B
JSR

023004

ittt eI
221222232322

BGNTST

6% :

023012

SRttt

PC ,READLU

:GET REG NO. FOR READING

*READ A LINE UNIT REG

CMPB

REDBYT ,REDDAT (R3)

CLR
MOVB

GOODAT
REDDAT(R3) ,GOODAT ;SET EXPECTED DATA

BEQ

MOV
JSR

;BR IF DATA MAT(HES

REDBYT ,BADDAT
PC,GETREG

;SET ACTUAL DATA
;READ AND STORE REGS 10-17 FOR PRINTOQUT

sREPORT REG MISCOMPARE

ERRDF

;COMPARE BYTE READ TC EXPECTED

12%

3,EM3,ERR2
TRAP

CSERDF

(ZDMRA MB203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11
(%)

MACYT1

I 10

30A(1052)
18-JuL=79 09:53_ PAGE 7-85
TEST 8 = REGISTER 10-17 ADDRESSING TEST

000003
012174
014606
000022
005203
020327
002724
005201
020127
002677
023052

12%:

000010
000010

ENDTST

WORD
.WORD
.WORD

TST

ESCAPE

104410

SEQ 0125

TRAP

INC

(MP
BLT
INC

; INCREMENT DATA PATTERN INDEX FOR READING

R1,#10
6%

;SEE IF ALL REGS WRITTEN YET
;BR IF NOT

JSEE IF ALL REGS READ YET
;BR IF NOT
;s INCREMENT DATA PAT INDEX FOR WRITING

L10031:

A A

L10031~-.

104401

.SBTTL

CSESCAPE

.WORD

R3,#10
9%
R1

CMP
BLT

A A A A

3
EM3
ERRZ

A AR A

R R A R

A A A A AR

TRAP

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

CSETST

TEST 9 - REG 11 READ/WRITE BIT TEST

. %

:* WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN C INTO REG 11 :
s

BGNTST
003576

000011
002625

002400

DATA PATTERN C = 020,020,020.

AR A A

A A A A A

A A

A A A A A AR

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

JSR

PC,MSTCLR

s ISSUE MASTER CLEAR

MOV

#PATC ,R1

;GET POINTER TO DATA PAT

MOV

#11 ,REGNUM

JSET LU REG NO.

= 11

R AR AR AR AR AR AR

19::

IN R1

BGNSEG

002366
003722
003644
002551
002364

002366
002364
003770

023142
023146
023146
023150

023152
023154
023156
023156
023156
023156
023160
023162
023166

104455

000003
012174
014606

104405
005201
020127
103741

MOvVB

002364
002366

PC,WRITLU
PC ,READLU
UPBITS+1,REDBYT
REDBYT ,WRIBYT

MOV
MOV
JSR

WRIBYT,GOODAT
REDBYT ,BADDAT
PC,GETREG

sREPORT LINE UNIT REG MISCOMPARE
ERRDF
3 ,EM3,ERR2

6%:

002630

JSR
JSR
eICB
CMPB

BEQ

002404
002406

(R1) ,WRIBYT

TRAP

;GET A BYTE OF PAT C

;BR IF BYTES MATCH

sSET EXPECTED REG CONTENTS
sSET ACTUAL REG CONTENTS
;GET REGS FOR PRINTOUT
TRAP
.WORD

10000%:

INC

; INCREMENT DATA PATTERN POINTER

BLO

;BR IF NOT DONE YET

R1,4PATD

($BSEG

;WRITE DATA BYTE INTO REG 11
;READ DATA BYTE FROM REG 11
;MASK OUT UNPREDICTABLE BITS
;COMPARE BYTE READ TO BYTE WRITTEN

ENDSEG

CMP

R AR

JSEE

giERDF

.WORD
.WORD

EM3
ERR2

TRAP

CSESEG

IF ALL WORDS OF PATTERN C USED YET

CZDMRA MB203 STATIC DIAG #1
18=JuUL=79 09:44
CZDMRA.P11

8290
(3)
(3)

8291
8292
8293
8294

023170
023170
023170

MACYT1

30A(1052)

18-JuUL=79

TEST 9 = REG 11

09:53

J 10

PAGE 7-86

READ/WRITE BIT

TEST

SEQ 0126

ENDTST

L10032:

104401

TRAP

CSETST

'tt.'Q.ttt.t.'t...tt'.'Q.Q..'Q..Q.t.Qfi'..Qlt'.'.Q'Qt'..t'iitt'ttt..tttit..".'

SBTTL

TEST 10 = REG 12 READ/WRITE BIT TEST

:' WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN D INTO REG 12
:
o

DATA PATTERN D = 000,040,000.

'Qttt.tQQ'tt!t'ttfiti't"'ttQt..t..fittt*t..tfit.'ittfi't'.*'t't.'.'t'ttt."t'tt"

023172
023172

BGNTST

004737
012737
012701
104404
111137

004737
004737
143737
123737
001414
013737
013737

004737

003576
€00012
002630

002400

JSR

PC,MSTCLR

MOV

#12 ,REGNUM

MOV

#PATD ,R1

s ISSUE MASTER CLEAR

;SET LU REG NO. = 12
;GET POINTER TO DATA PAT IN R1

BGNSEG

002366
003722
003644
002552
002364
002366
002364
003770

104455

000003
012174
014606

MOvB

(R1) ,WRIBYT

JSR
JSR

PC,WRITLU
PC,READLU

;WRITE DATA BYTE INTO REG 12
cREAD DATA BYTE FROM REG 12

CMPB

REDBYT ,WRIBYT

:COMPARE BYTE READ TO BYTE WRITTEN
:BR IF BYTES MATCH
sSET EXPECTED REG CONTENTS
sSET ACTUAL REG CONTENTS
;GET REGS FOR PRINTOUT

002364
002366

BI(B

002404
002406

MOV
MOV
JSR

WRIBYT ,GOODAT
REDBYT ,BADDAT
PC,GETREG

sREPORT LINE UNIT REG MISCOMPARE
ERRDF
3,EM3,ERR2

ENDSEG

103741

002633
ENDTST

INC
CMP
BLO

($BSEG

UPBITS+2 REDBYT sMASK OUT UNPREDICTABLE BITS

BEQ

6%:

TRAP

;GET A BYTE OF PAT D

100008%:

104405

005201
020127

T10::

R1
R1,#PATE
3%

TRAP
.WORD
.WORD
.WORD

CSERDF
3
EM3
ERRZ2

TRAP

CSESEG

TRAP

CSETST

s INCREMENT DATA PATTERN POINTER
sSEE IF ALL WORDS OF PATTERN D USED YET
;BR IF NOT DONE YET
L10033:

104401

;;.tttttt..t...tttt'tltt'.tt.ttttfi'ttt!ttt.ltfi't.fit.t't...tt.t.'t.'t..'.'ttt'.t'

.SBTTL
. %

TEST 11

- REG 13 READ/WRITE BIT

TEST

‘* WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN E INTO REG 13 :

CZDMRA M8203 STATIC DJAG #1
CZDMRA.P11
18=JUL=79 09:44

MACYT1

8334

8335

023310
023310
023310

8339
8340

023322
023326

8341
(3)
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
(4)

(5)
(5)
(S)
8353
8354
(3)
(3)
8355
8356
8357
8358
(3)
(3)
8359
8360
8361
8362
8363

SEQ 0127

DATA PATTERN E = 000,120,020,100,120,000.

:.'Q"."Qfi""...Q.'."."'...Q."..*Q...Q.fi.fi...Q....'QQ.I'.Q"........".Q.".

8336
(3)
8337

8338

K 10
30A(1052)
18=JuUL=79_ 09:53 PAGE 7-87
TEST 11 = REG 13 READ/WRITE BIT TEST

023314

023326
023326
023330
023334
023340
023344
023352
023360
023362
023370
023376
023402
023402

023404
023406
023410
023412
023412
02312
023412
023414
023416
023422
023424
023424
023424

BGNTST

004737

003576

012701

002633

012737
104404
111137
004737
004737
143737
123737
001414
013737
013737
004737

000013

002400

002366
002364
003770

MOV
3%:

002366
003722
003644
002553
002364

JSR

002404
002406

104455

;GET POINTER TO DATA PAT IN R1

;SET LU REG NO. = 13

(R1) ,WRIBYT
PC,WRITLU

;GET A BYTE OF PAT E
:WRITE DATA BYTE INTO REG 13

TRAP

JSR
PC,READLU
JREAD DATA BYTE FROM REG 13
BICB
UPBITS+3,REDBYT ;MASK OUT UNPREDICTABLE BITS
CMPB
REDBYT ,WRIBYT
;COMPARE BYTE READ TO BYTE WRITTEN
BEQ
6%
;BR IF BYTES MATCH
MOV
WRIBYT,GOODAT
sSET EXPECTED REG CONTENTS
MOV
REDBYT ,BADDAT
sSET ACTUAL REG CONTENTS
JSR
PC.GETREG
JGET REGS FOR PRINTOUT
JREPORT LINE UNIT REG MISCOMPARE
ERRDF
3,EM3,ERRZ

TRAP

000003
012174
014606

6%:

104405

(05201
020127
103741

#PATE ,R1

BGNSEG

MOVB
JSR

002364
002366

;ISSUE MASTER CLEAR

#1% REGNUM

MOV

T11::

PC ,MSTCLR

002641

ENDTST

ENDSEG
INC
CMP
BLO

C$BSEG

CSERDF

.WORD
.WORD
.WORD

3
EM3
ERR2

TRAP

C$ESEG

TRAP

CSETST

10000%:

R1
R1,4#PATF
3%

s INCREMENT DATA PATTERN POINTER
sSEE IF ALL WORDS OF PATTERN E USED YET
;BR IF NOT DONE YET
L10034:

104401

8“‘

.'.'.Q'"*".....t'..".....'fi.'fiQ.fiQ'Q"'..Q.*.Q'."'.*'Q'Q'fi'.""'.t'*.""".'

g%gg

LSBTTL

8367
8368

;* WRITE, READ, AND COMPARE EACH WORD OF DATA PATTERN F
o*
DATA PATTERN F = 050,051,050.

8“9

023426
023426
023426

004737

003576

8373

023440

012701

002641

8374
8375

8377

INTO REG 17 :

""'t..fitl"t'.'tttfi.Q*QQ't'fi'*fi..fi‘."'..fi"fi*t".fifiQi"!'t'*t"."".t""'t'.t

8370
(3)
8371

8372

TEST 12 = REG 17 READ/WRITE BIT TEST

023432

023444
023444

023452

BGNTST

012737

104404
111137

(004737

000017

002366

003722

002400

PC ,MSTCLR

;ISSUE MASTER CLEAR

MOV

#PATF ,R1

sGET POINTER TO DATA PAT IN R1

(R1) ,WRIBYT

;GET A BYTE OF PAT F

MOV
3%:

T12::

JSR

#17 ,REGNUM

;JSET LU REG NO. = 17

BGNSEG
MOvB

JSR

PC,WRITLU

;WRITE DATA BYTE INTO REG 17

TRAP

($BSEG

CZDMRA M8203 STATIC DIAG #7
CZDMRA.P11
18=JUL=79 09:44

004737
143737

023514
023520
023520
023522
023524
023526
023530
023530
023530

123737
001414
013737
013737
004737

002366
002364
003770

30A(1052)

JSR

002364
002366

L 10
PAGE 7-88

09:53

PC,READLU

SEQ 0128

sREAD DATA BYTE FROM REG 17

BI(8

UPBITS+7 ,REDBYT ;MASK OUT UNPREDICTABLE BITS

BEQ

CMPB

002404
002406

REDBYT,WRIBYT

MOV
MOV
JSR

WRIBYT,GOODAT
REDBYT ,BADDAT
PC,GETREG

ERRDF

3,EM3,ERR?2

;REPORT LINE UNIT REG MISCOMPARE

000003
012174
014606

;COMPARE BYTE READ TO BYTE WRITTEN

:BR_IF BYTES MATCH

;SET EXPECTED REG CONTENTS
;SET ACTUAL REG CONTENTS
:GET REGS FOR PRINTOUT

6%:

ENDSEG

002644
ENDTST

10000$:

INC

s INCREMENT DATA PATTERN POINTER

BLO

;BR IF NOT DONE YET

(MP

R1,#PATG

;SEE

IF ALL WORDS OF

gSERDF

.WORD

EM3

TRAP

CSESEG

L10035:

ERRZ2

PATTERN F USED YET

104401

TRAP

CSETST

LRSSt eI
2222222333%3

SBTTL
l

TRAP

.WORD

104405
163741

18-JuUL=-79_

TEST 12 = REG 17 READ/WRITE BIT TEST

106455

005201
020127

023542

003644
002557
002364

MACYT1

TEST 13 - MAINTENANCE CLOCK BIT TEST

FIRST,

A MASTER CLEAR

IS ISSUED TO INIT ALL REGS.

THEN,

THE MICROPROCESSOR

= THE PROGRAM REPEATEDLY CHECKS THE MCLK BIT FOR THE 1 STATE, AND IF IT IS
NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC (DEPENDING ON THE PROCESSOR)
gchRROR IS REPORTED. (THE MAINTENANCE CLOCK HAS A PERIOD OF 41.6 MICRO= THE PROGRAM NEXT REPEATEDLY CHECKS THE MCLK BIT FOR THE O STATE, AND

l’

002442

002444

000001

T332

323%2222232222223222%;

—

2%
003576
000015
002476

STATE AGAIN, AND

IT IS NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC, AN ERROR IS REPORTED.

IF THE P-TABLE FOR THIS UNIT INDICATES THAT THE MICROPROCESSOR RUN SWITCH
IS NOT ON, THE TEST WILL BE SKIPPED.

ARl

023544
023544
023544
023550
023556
023562
023564

IT IS NOT FOUND WITHIN SEVERAL HUNDRED MILLI-SEC AN ERROR IS REPORTED.

= THE PROGRAM NEXT REPEATEDLY CHECKS MCLK BIT FOR THE 1

IS PLACED IN A LOOP ON AN INSTRUCTION, BY SETTING THE INSTRUCTION IN SEL6
AND SETTING ROMI AND RUN IN BSEL1. THE INSTRUCTION IS ONE WHICH REPETITIVELY
READS LINE UNIT REG 17 INTO BSEL2. THE PDP-11 CAN THEN SCAN BSEL2 TO MONITOR
}gf&{?&%{i CLOCK BIT, MCLK. THE FOLLOWING SEQUENCE IS THEN PERFORMED

JSR

MOV
TST

BNE
CMP

PC ,MSTCLR

#15. TSTNUM
RUNINH

1%
STARES,#1

:PERFORM MASTER CLEAR

*SET TEST NO.
“SEE IF RUN SWITCH IS SET

*BR IF YES, TO RUN TEST
*SEE IF THIS IS FIRST PASS SINCE STA OR RES

CZDMRA M8203 STATIC DIAG #1
18-JuL- 79 09:44
CZDMRA.P11

023572

MACY11

M 10
30A(1052)
18-JuL=79 09:53 PAGE 7-89
TES T 13 = MAINTENANCE CLOCK BIT TEST

001012

013746
012746
012746
0600

BNE
PRINTF

002442
011761
000002
000006
024166

000360
000002
021000
023656
004046

002400

40%:

1%:

2%:

40%
#FMT19,TSTNUM

:BR IF NOT, TO SKIP PRINTING
;PRINT MSG TO SAY TEST NOT RUN

SEQ 0129

MOV
MOV
MOV
MOV

TRAP
ADD

JMP

;GO _TO SKIP TEST
:SET REG NO. = 17
:SET INSTRUCTION SOURCE = INBUS REG 17
sSET INSTRUCTION DESTINATION = BSELZ2
:SET REST OF MOVE INSTRUCTION
sSET INSTRUCTION AS SUBROUTINE ARGUMENT

MOV
MOV
BIS
BIS
MOV
JSR

TSTNUM,
= (SP)
#FMT19,-(SP)
#2,-(SP)
SP,RO

CSPNTF
#6,SP

:GET MICROPROCESSOR LOOPING ON MOVE INSTRUCTION
JINSTRUCTION GOES HERE

.WORD

* WAIT FOR MCLK BIT TO BE SET T0 1
005037
117737

023710
023716
023724

002510
156562

132737
001031
005237
001366

000002

012737
013737
004737

000002
002364
003770

002364
002364

3%:

REGO
3%

002404
002406

#MCLK
, GOODAT
REDBYT ,BADDAT
PC,GETREG
JSR
;REPORT MCLK BIT STUCK AT 0

ERRDF

014606

012746
012746

REGO
@BSEL2,REDBYT

g?CLK.REDBYT

002510

104455
000005
012266

023740
023740
023744
023750
023752
023754
023760

CLR

5.EM5,ERR?2

012012
000001

JMP

117737
132737

024014

001430
005237
001366
005037

156456
00000

002510
002404

6%:
002364
002364

8%:

;ESCAPE TO END OF TEST

* WAIT FOR MCLK BIT TO BE
002510

TRAP

;TYPE "PLEASE INSURE MICROPROCESSOR RUN SWITCH IS ON''
PRINTF
HFMT24

000004
024166

005037

s INIT PROGRAM TIMER
:GET REG 17 INTO REDBYT
;SEE IF MCLK BIT =1 YET
;BR IF MCLK = 1
s INCREMENT TIMER
:BR_IF PROGRAM TIMER DID NOT TIME OUT YET
: (TIME OUT = SEVERAL HUNDRED MILLI-SEC)
sSET EXPECTED REG CONTENTS
sSET ACTUAL REG CONTENTS
;GET REGS FOR PRINTOUT

REGO

BITB
BEQ
INC
BNE
CLR

#MCLK ,REDBYT

@BSEL2,REDBYT

10%
REGO
8$
GOODAT

5
EMS
ERR2

MOV

#FMT24 ,-(SP)

MOV
MOV
TRAP
ADD

CLEARED TO O

CLR

MOVB

sINIT PROGRAM TIMER
;GET REG 17 INTO REDBYT
;SEE IF MCLK BIT =0 YET

:BR IF MCLK
= 0
s INCREMENT TIMER
:BR IF TIMER DID NOT TIME OUT YET
sSET EXPECTED REG CONTENTS

CSERDF

WORD
.WORD
.WORD

#1,-(SP)
SP,RO
CSPNTF
#4,SP

CZDMRA M8203 S TATIC DIAG #1
CZDMRA. P11
18-JUL=79 09:44

(%)
(%)
(5)
8470
8471
(7)
(6)

(3)

(4)
(4)

8472
8473
8474
8475
8476
8477

024020
0246026

013737
004737

002364
003770

002406

024032
024032
024034
024036
024040
024042
0246042
024046
024052
024054
024056
024062

§39.9

8466
8467
8468
8469

N 10
MACY11 30A(1052)
18=JuL=79 09:53 PAGE 7-90
TEST 13 = MAINTENANCE CLOCK BIT TEST

000004
024166

003770

024136
024136
024140
024142
024144
024146
024146
024152
024156
024160
024162
024166
024166
024172
0246172
024172

6,.EM6,ERR2

JMP

JGET REGS FOR PRINTOUT

TRAP

i
002364
002

WAIT FOR MCLK BIT

108:

CLR
MOVB
BITB

12%:

BNE
INC
BNE
MOV
MOV

002510
000002

ERRDF

JSET ACTUAL REG CONTENTS

sTYPE "PLEASE INSURE M]CROPROCESSOR RUN SWITCH IS ON''
PRINTF
#FMT24

012012
000001

002510
156354
000002

REDBYT ,BADDAT

JSR
PC,GETREG
JREPORT MCLK BIT STUCK AT 1

024066
024066
024072
024100
024106
024110
024114
024116
024124
024132

MOV

SEQ 0130

002404
002406

JESCAPE TO END OF
TO BE

SET

JINIT PROGRAM TIMER
;GET REG 17 INTO REDBYT
;SEE IF MCLK BIT = 1 YET
JBE IF MCLK = 1

#MCLK, GOODAT
REDBYT BADDAT

JSET EXPECTED REG CONTENTS
;SET ACTUAL REG CONTENTS

PC,GETREG

JREPORT MCLK BIT STUCK AT 0
.+ ERRDF
5,EMS,ERR2

000004
003576

TRAP

CSERDF

.WORD
.WORD
.WORD

5
EMS
ERR2

MOV
MOV
MOV

#FMT24 ,-(SP)
#1,-(SP)
SP,RO

ADD

#4 ,SP

TRAP

CSETST

TRAP

JSR

PC,MSTCLR

CSPNTF
#4 ,SP

*GET REGS FOR PRINTOUT

;TYPE 'PLEASE INSURE MICROPROCESSOR RUN SWITCH IS ON''
PRINTF
#FMT24

ENDTST

#FMT24 ,-(SP)
#1,-(SP)
SP,RO

s INCREMENT TIMER
BR IF TIMER DID NOT TIME OUT YET

‘

012012
000001

MoV
MOV
MoV

AGAIN

REGO
aBSEL2,REDBYT
#MMCLK ,REDBYT
Al
REGO
12%

."JSR

TO 1

6
EM6
ERR2

TRAP
ADD

TEST

CSERDF

.WORD
.WORD
.WORD

CSPNTF

;ISSUE MASTER CLEAR

L10036:

. ""..."..-'"'fi"""""'.".."fi'.'..fi"fi'.."'Q"'i’"'fi.'."'..""

'."'

SBTTL

TEST

14 - EXTENDED REGISTER MASTER CLEAR TEST

CZDMRA M8203 STATIC DIAG #1

CZDMRA. P11

18=JUL=79 09:44

MACYT1

8502
8503

B 11

30A(1052)
18-JuUL=79 09:53 PAGE 7-91
TEST 14 - EXTENDED REGISTER MASTER CLEAR TEST

SEQ 0131

;* FIRST, ALL READ/WRITE BITS OF EXTENDED REGS AXO-AX3 ARKE SET BY LOADING
i« A DIFFERENT WORD OF PATTERN H INTO EACH REG.

THEN, A MASTER CLEAR IS

i+ ISSUED AND EACH REG IS READ AND COMPARED TO A WORD OF PATTERN I, WHICH
i» CONTAINS THE INITIALIZED smes OF ALL THE EXTENDED REGS.

i«
i«

PATTERN H = 000,000,377,017,377,377,375.377
PATTERN I = 000.000.000.000.000.103.000.000

',tfitt.ttt'Q.ttQt'fi..'.Q'Qttfittt'ti'tt.'...'fit'ttt...QQ'Q.Q.Q.Q'Qtfittt'.tt"'tt.

BGNTST

024174
003576
002402
002654

002374
002376

1$:

000014
003770

002400

024246
024246
024250

PC,MSTCLR
AXNUM
#PATH,R1

MOVB

(R1)+.WAX16

:SET BITS TO LOAD INTO HI BYTE

MOVB

JSR

002420

024242

JSR
CLR
MOV

.
;ISSUE AN INITIAL MASTER CLEAR
*INIT AX REG BYTE V0. 10O 0
*INIT DATA PATTERN POINTER

BIT
BEQ

MOV

ESCAPE

002402

8$:

000014
003770

002420

:SEE [F READY FAILED TO SET
*BR IF NOT

*SET LU REG NO = 14

2%:

002400

52,EMS2,ERR9

TRAP

.WORD
.WORD
.WORD

TST

TRA®P

JSR
CLR
MOV
JSR

PC . MSTCLR
AXNUM
#PATI R1
PC ,READAX

*1SSUF MASTER CLEAR
:INIT EXTENDED REG BYTE NO. 10 0
“INIT DATA PAT POINTER FOR READS
*READ AN EXTENDED REG

MOV

#14 ,REGNUM

*SET LU REG NO. = 14

BIT
BEQ

JSR

#RRDYTO,ERROR1
108
PC,GETREG

:INCR REG BYTE NO.
*SEE IF ALL REGS WRITTEN YET

CSERDF

52
EMS”
ERR9

CSESCAPE

.WORD

L10037-.

TRAP

CSERDF

:BR IF NOT DONE WRITING YET

-SEE IF READY FAILED TO SET
*BR IF NOT
*GET REGS FOR PRINTOUT

:REPORT READY NOT SET AFTER AX REG READ

ESCAPE

000006

002370

013737

#14 ,REGNUM

*WRITE EXTENDED FEG

#2 , AXNUM
R1.#PAT]

ERRDF

024410

MJRDYTO,ERROR1
8%

ADD
CMP

BLO

003576
002402
004076
000001

PC,WRITAX

*SET BITS TO LOADP INTO LO BYTE

JSR
PC,GETREG
*GET REGS FOR PRINTOUT
;REPORT READY NOT SET AFTER AX REG WRITE

ERRDF

000002
002664

(R1)+.WAX15

002406

108:
3$:

CTMP

BNE

53,EMS3,ERR9

.WORD
.WORD
.WORD

TST

AXNUM, #6

TRAP

:SEE IF AX3-15

.WORD

*BR IF NOT

(MPB

RAX15.(R1)

*COMPARE LO BYTE TO EXPECTED VALUE

MOV

RAX15,BADDAT

BICB

BEQ
CLR
MOVB

WAX315U,RAX15
4
GOODAT
(R1),GOODAT

:MASK OFF UNPREDICTABLE BITS
:BR IF DATA MATCHES

;GET EXPECTED DATA BYTE

:GET ACTUAL DATA BYTE

53
EMS3
ERR9

CSESCAPE

L10037-.

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

8545
8546
8547
(4)
(5)
(5)
(5)
8548
(3)
(3)

8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
(4)

(5)
(5)
(5)
8559
(3)
(3)
8560
8561
8562
8563
8564
(3)
(3)
8565
8566
8567
8568
8569

024416
024422
024422
024424
024426
024430
024432
024432
024434

024436
024442
024444
024450
024452
024456
024462
024470
024474
024474

024476
024500
024502
024504
024504
024506
024510
024514
024516
024522
024524
024524
024524

004737

cn
MACY11 3OA(1052)
18=JUL=79 09:53 PAGE 7-92
TEST 14 - EXTENDED REGISTER MASTER CLEAR TEST

004500

JSR
PC,GETALL
:GET REGS FOR PRINTOUT
sREPORT REG NOT INITIALIZED BY MASTER CLEAR
ERRDF
2,EM2,ERR3

104455
000002
012135
015114

104410
000070
005237
005201
123711
001417
005037
111137
013737
004737

ESCAPE

002402

4%:

002372
002404
002404
002372
004500

104455

002406

INC
INC
(MPB
BEQ
CLR
MovB
MOV
JSR
sREPORT REG NOT
ERRDF

000002
012135
015114
104410
000016
005237
005201
020127
103673

002402

SEQ 0132

6%:

002674
ENDTST

TST

CSERDF
2
EM2
ERR3

TRAP
.WORD

CSESCAPE
L10037-.

AXNUM
s INCREMENT AX BYTE NO.
R1
s INCREMENT PAT POINTER
RAX16, (R1)
:COMPARE HI BYTE TO EXPECTED VALUE
6%
;BR IF DATA MATCHES
GOODAT
(R1),GOODAT
;GET EXPECTED DATA BYTE
RAX16 ,BADDAT
sGET ACTUAL DATA BYTE
PC,GETALL
;GET REGS FOR PRINTOUT
INITIALIZED BY MASTER CLEAR
2,EM2,ERR3

TRAP

ESCAPE

TST

INC
INC
CMP
BLO

AXNUM
R1
R1,4PATJ
2%

s INCR AX BYTE NO.
;INCR PAT POINTER
;SEE IF ALL REGS READ YET
;BR IF NOT DONE READING YET
L10037:

104401

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

2
EM2
ERR3

TRAP
.WORD

CSESCAPE
L10037-.

TRAP

CSETST

gg;}

SBTTL

8573
8574

.' FIRST, ISSUE A MASTER CLEAR TO PUT REGS INTO INITIALIZED STATES SHOWN IN
:* PATTERN 1. THEN, WRITE A DIFFERENT WORD OF PATTERN J INTO EACH EXTENDED (AX)

8577
8578

:*
o

AR AR AN AR AR AR

TEST 15 - EXTENDED REGISTER ADDRESSING TEST

:* SEEUEQND AFTER EACH WRITE, READ AND COMPARE ALL EXTENDED REGS TO EXPECTED
'

8579

8580
(3)
8581
8582
8583
8584
8585

A A A A

CSERDF

.WORD
.WORD
.WORD

85?0

gg;z

A A R

TRAP
.WORD
.WORD
.WORD

PATTERN
I = 000,000,000,000,000,103,000,000
PATTERN J = 000,000,010,002,004,103,001,100

23.tfitQQtfi'fil't'Qt.ttt'Qt't.tt'tt.fit.'tfittttl."..!".'tt.tfit't.t"'t'tfit..t'.tt

024526
024526

024526
024532
024536
024542
024544

BGNTST

004737
012701
012702
112122
020127

003576
002664
002500
002674

3%:

JSR
MOV
MOV
MOvB
(MP

PC,MSTCLR
#PATI R1
#REDDAT ,R2
(R1)+,(R2)+
R1,4#PATJ

T15::

s ISSUE MASTER CLEAR
sINIT POINTER TO PAT |
sINIT POINTER TO EXPECTED DATA AREA
sMOVE PAT | INTO REDDAT TABLE

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

8586

18=JUL=79 09:44

MACY11

D1
30A(1052)
18=JUL=79 09:53 PAGE 7-93
TEST 15 = EXTENDED REGISTER ADDRESSING TEST

024550
002374
002376

6%:

002520
Vaew

9%:

002370
002500

10%:

0C2406

024700
024700
024702
024704
024706
024710
024710
024712
024714
024720
024726
024730
024734
024742
024750

024754
024754
024756
024760
024762
024764
024764
024766
024770
024774
025000
025002
025006
025012
025014
025014
025014

3s
R1
R1,AXNUM

MOV
MOVB
MOVB
MOVB

MOVB

WAX15,REDDAT(R1)

JSR

CLR
MOV

PC,WR]TAX

R3
R3, AXNUM

(MP

JSR

PATJ(R1) ,WAX1S
:SET LO AX BYTE TO BE WRITTEN
PATJ+1(R1),WAX16 :SET HI AX BYTE TO BE WRITTEN

PC ,READAX

013737
004737

002404
002501
002372
004500

002404
002406

ERRDF

ESCAPE

104410

000002
000010

IF AX3-15

GOODAT

PC,GETALL

*GET REGS FOR PRINTOUT

3,EM3,ERR3

TRAP

.WORD
.WORD
.WORD

TST

AXNUM

TRAP

.WORD

- INCR AX BYTE NO.

(CSERDF

3
EM3
ERR3

CSESCAPE

L10040-.

RAX16,REDDAT+1(R3) ;COMPARE HI BYTE READ TO EXPECTED

158
:BR IF HI BYTE MATCHES EXPECTED
GOODAT
REDDAT+1(R3),GOODAT ;:GET EXPECTED HI BYTE
RAX16,BADDAT
:GET ACTUAL DATA
JSR
PC,GETALL
*GET REGS FOR PRINTOUT
;REPORT REG MISCOMPARE

012174
015114

104401

INC

CMPB

BEQ
CLR
MOVB
MOV

104455
00000 3

000026
062703
020327
002706
062701
020127
002660

*SEE

REDDAT(R3),GOODAT :GET EXPECTED LO BYTE
RAX15,BADDAT
;GET ACTUAL DATA

JSR

12%:

*READ 2 AX BYTES

MOVB
MOY

ESCAPE

002501

;WRITE DATA BYTES INTO EXTENDED REG

*INIT INDEX FOR READING
:GET AX BYTE NO. FOR READING

108
*BR IF NOT
#AX315U,RAX15
:MASK OFF UNPREDICTABLE BITS
RAX15,REDDAT(R3) ;COMPARE LO BYTE READ TO EXPECTED
12%
;BR IF LO BYTE MATCHES EXPECTED

ERRDF

002402
002372

:SET EXPECTED LO BYTE IN TABLE

WAX16,“REDDAT+1 (R1} :SET EXPECTED HI BYTE IN TABLE

JREPORT REG MISCOMPARE

104455
000003
012174
015114

;INIT INDEX FOR WRITING
:GET AX BYTE NO. FOR WRITING

BNE
BICB
CMPB
BEQ
CLR

002404

024674

BLO
CLR

SEQ 0133

15%:

ADD
CMP

BLT

000002
000010
ENDTST

ADD
CMP
BLT

3,EM3,ERR3

TRAF

.WORD
.WORD
.WORD

TST
#2 ,R3
R3.410
9%
#2 .R1
R1,#10
X

TRAP

;INCR INDEX FOR READS
:SEE IF ALL AX BYTES READ YET
:BR IF NOT DONE READING YET
*INCR INDEX FOR WRITES
:SEE IF ALL AX BYTES WRITTEN YET
:BR IF NOT DONE WRITING YET

L10040:

CS$ERDF

3
EM3
ERR3

CSESCAPE

.WORD

L10040-.

TRAP

CSETST

HBZOS STATIC DIAG #1
18-JuL~ 79 09:44

MACY11

30A(1052)
18=JUL=79 09:53 PAGE 7-94
TEST 15 = EXTENDED REGISTER ADDRESSING TEST

AL AL SRRt

‘¢
$8TTL

SEQ 0134

22222222222

TEST 16 = REGS 15,16 / AX2=15,AX2-16 READ/WRITE BIT TEST

Z- USING REGS 15,16, THE INDIRECT REGS AX2-15,AX2-16 (USYRT REGS 4.5) ARE
:* WRITTEN AND READ USING EACH WORD OF PATTERN
K.

AX2-15 IS COMPARED

i 531;?5332§D WRITTEN, AND AX2-16 IS ALWAYS COMPARED TO 103.
%

‘*
x

(AX2-16 IS NOT

PATTERN K =
FOR REG 15: 000,377.,125.252.001.,002,004,010,020,040,100,200,000,000,

000.000.000.000.000.000. 376 375.373.367.357.337.277.177.

377.377.377.377.377.377.377.377"

FOR REG 16: 000,377.125.252.000.000.000.000,000,000,000,000,001,002,

004,010,020.040.,100.200.377.377.377.377.377.377.377.377.

376.375.373.367.357.337.277.177.

. tttt't'tttt't.ttt.t!tttittfitttfittt*t'*titttttttQ'tttttttttt'!'tttt'tt"ttt'tt.

BGNTST

025016

025016
025016
025022
025026

004737
012701

012737
111137

;ISSUE MASTER CLEAR
*INIT DATA PATTERN POINTER

#4 , AXNUM

:SET BYTE NO. = 4

002376

MOVB

1(R1),WAX16

:SET DATA TO WRITE INTO HI BYTE

002404
002406

004737

MOVB

(R1),WAX15

BICB
BICB

ANBITS+4,WAX15
ANBITS+5.WAX16

(MPB

RAX1S5,WAX15

JSR
JSR

BEQ
MOV
MOV
JSR

PC,WR] AX
PC . READAX

X3
WAX15,GOODAT
RAX15.BADDAT
PC,GETALL

;REPORT REG MISCOMPARE
ERRDF
3,EM3.ERR3

104455

000003
012174
015114

ESCAPE

104410

002402
002372
002404
002671
002372
004500

TRAP

MOV

002374

025200
025200

PC.MSTCLR
#PATK R1

002402

002374
002376

025174

JSR
MOV

BGNSEG

104404

025124

INC

002671

CMPB
BEQ

002404
002406

MOVB
MOV

CLR

JSR

:SET DATA TO WRITE INTO LO BYTE

:MASK OFF NON-READ/WRITE BITS IN LO BYTE
-MASK OFF NON-READ/WRITE BITS IN HI BYTE
:LOAD DATA INTO AX2-15,AX2-16
*READ AX2-15 AND AX2-16

*COMPARE LO BYTE DATA READ

*BR IF DATA MATCHES
-SET EXPECTED DATA
:SET ACTUAL DATA

*GET REGS FOR PRINTOUT
TRAP

SEG

AXNUM

RAX16,PATI+S
9
GOODAT

PATI+5,GOODAT
RAX16,BADDAT
PC,GETALL

;REPORT REG MISCOMPARE
ERRDF
3,EM3,ERR3

(S$BSEG

:SET AX BYTE NO.

= §

CSERDF

.WORD
.WORD
.WORD

3
EM3
ERR3

TRAP

CSESCAPE

TRAP

(SERDF

.WORD

10000%-.

:COMPARE HI BYTE DATA READ
*BR IF DATA MATCHES

:SET EXPECTED DATA
:SET ACTUAL DATA

“GET REGS FOR PRINTOUT

(ZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11
(5)
. (5)
(5)
8675
8676

(3)
(3)
8677
8678
8679
8680
(3)
(3)
8681
8682
8683
8684
8685

025202
025204
025206
025210
025210

025210
025210
025212
025216
025222
025224
025224
025224

18=JUL=79 09:44

MACYT1 30A(1052)

104405
062701
020127
103701

9%:

000002
003014
ENDTST

09:53

F1N

PAGE 7-95
TEST 16 = REGS 15,16 /7 AX2=15,AX2-16 READ/WRITE BIT TEST

000003
012174
015114

18-JUL=79

ENDSEG
ADD
CMP
BLO

10000% :

#2.R1
R1,4#PATL
3s

JINCR PATTERN POINTER
JSEE IF ALL DATA WRITTEN YET
;BR IF NOT DONE YET
L10041:

104401

SEQ 0135
.WORD
.WORD
.WORD

3
EM3
ERR3

TRAP

C$ESEG

TRAP

CSETST

'fi*'fit..t'.fifi'..'.t'*""'fi.Q'.'fi.'.l’fi"..fifi'fi".fl."Qi'.'.'fi'.'.tfi'.'...t."t

8687

SBTTL

8689
8690

.* IN THIS TEST, A MASTER CLEAR IS DONE, AND THEN A WRITE, READ, AND COMPARE
;% ARE PERFORMED IN REGS AX0=15,AX0-16 USING EACH WORD OF PATTERN L.

8692
8693
8694
8695

:* IN THE EXPECTED VALUE BEFORE COMPARISON.
%
PATTERN L =
o
FOR REG 15: 000,377,000
I*
FOR REG 16: 000,377,000.

8691

;% ANY BITS IN AX0-15,AX0-16 UHICH ARE NOT READ/WRITE ARE MASKED OFF

025226
025226
025226
025232
025236
025236
025236
025240
025246

8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715

025260
025266
025274
025300
025304
025312
025314
025322
025330

(4)
(5)
(5)
(5)

8716
(3)

(TO 0)

,...‘*'..."'.*'..'*.t*."'.t.'fi..fi..'fi'tfi't.."."*""'..'fi".'i..".."'.""

8697
(3)
8698
8699
8700
8701
(3)
8702
8703

8704

TEST 17 - AX0=15,AX0-16 READ/WRITE BIT TEST

025252

025334

BGNTST

004737
012701
104404
012737

3%:

000001

002376

MOVB

1(R
15 WAX16

002374

002374
002370

002404
002406

025344

104410

TRAP

#0 , AXNUM

002561
002562
004264
004076
002370

004500

002374
002376

T17::
s ISSUE MASTER CLEAR
JINIT DATA PATTERN POINTER

BGNSEG
MOV

143737
143737
004737
004737
123737
001416
013737
013737
004737
104455
000003
012174
015114

PC_,MSTCLR
#PATL ,R1

002402

002374

116137

JSR
MOV

000000

111137

025334
025336
025340
025342

025344

003576
003014

MOvVB

(R1) ,WAX15

BICB
NBITS*O WAX15
BICB
ANBITS+1,WAX16
JSR
PC.IRITAX
JSR
PC ,READAX
CMPB
RAX15,WAX15
BEQ
6%
MOV
WAX15,GOODAT
MOV
RAX15 ,BADDAT
JSR
PC,GETALL
JREPORT REG MISCOMPARE
ERRDF
3 _,EM3,ERR3

ESCAPE

SEG

($BSEG

;SET BYTE NO. = 0

;SET DATA TO WRITE INTO LO BYTE

sSET DATA TO WRITE INTO HI BYTE

;MASK OFF NON-READ/WRITE BITS IN LO BYTE
;MASK OFF NON-READ/WRITE BITS IN HI BYTE
;LOAD DATA INTO AX0-15,AX0-16
JREAD AX0-=15 AND AX0-16
;COMPARE LO BYTE DATA READ
:BR IF DATA MATCHES
JSET EXPECTED DATA
;SET ACTUAL DATA
;GET REGS FOR PRINTOUT
TRAP

CSERDF

.WORD
.WORD
.WORD

3
EM3
ERR3

TRAF

($ESCAPE

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

(3)
8717
8718
8719
8720
8721
8722
8723
8724

025404

8726
(3)
(3)
8727
8728

025414
025414
025414
025416
025422

(4)
(5)
(5)
(5)
8725

8729

8730
(3)
(3)

8731
8732
8733
8734
8735

025346
025350
025354
025362
025364
025372
025400
025404
025406
025410
025412
025414

18=JUL=79 09:44

000046
005237
123737
001414
013737
013737
004737

002376
002372
004500

002376
002404
002406

104455
000003
012174
015114

025426

104405
062701
020127
103703

025430
025430

104401

025430

002402
002372

MACY11

30A(1052)

18-JuL=79

09:53

G 1
PAGE 7-96

TEST17 - AX0=15,AX0-16 READ/WRITE BIT TEST

6%:

AXNUM
RAX16,WAX16
9%
WAX16,GO0ODAT
RAX16 ,BADDAT
PC,GETALL
;REPORT REG MISCOMPARE
ERRDF
3,EM3,ERR3

9%:

000002
003022

ENDTST

INC
{MPB
BEQ
MOV
MOV

ENDSEG
ADD
CMP
BLO

’
;SET AX BYTE NO. = 1
;COMPARE HI BYTE DATA READ
;BR IF DATA MATCHES
sSET EXPECTED DATA
;SE1 ACTUAL DATA
;GET REGS FOR PRINTOUT

:
#2.R1
R1,4PATM
3%

SEQ 0136

10000%:

;INCR PATTERN POINTER
JSEE IF ALL DATA WRITTEN YET
;BR IF NOT DONE YET
L10042:

.WORD

10000%-.

TRAP
.WORD
.WORD
.WORD

CSERDF
3
EM3
ERR3

TRAP

(S$ESEG

TRAP

CSETST

87“

23222

g;gg

SBTTL

8739
8740

.‘ IN THIS TEST, A MASTER CLEAR IS DONE, AND THEN A WRITE, READ, AND COMPARE
;% ARE PERFORHED IN REGS AX1-15,AX1-16 USING EACH WORD OF PATTERN K.

8742

.' IN THE EXPECTED VALUE BEFORE COMPARISON.

8741

8753

8754
8755
8756
8757
8758
8759
8760
8761

;% ANY BITS IN AX1-15,AX1-16 WHICH ARE NOT READ/WRITE ARE MASKED OFF (TO 0)

87‘3

8744
(3)
8745
8746
8747
8748
(3)
8749
8750
8751
8752

2323232332333 23323323332232222222232222222222222223311

TEST 18 - AX1-15,AX1-16 READ/WRITE BIT TEST

t*.""***fi"t.tt*.'fi""ifiQfl’**..fi.’.'fififififi'*'fi'.fi'."‘fi*fi."..’.""""fi"""

(025432
025432

025432
025436
025442
025442
025442
(025444
025452
025456
025464

025472
025500
025504
025510
025516
025520
025526
025534

BGNTST

004737
012701
104404
012737
111137
116137
143737

143737

004737
004737
123737
001416
013737
013737
004737

003576
002704

000002
002374
000001
002563

002564
004264
004076
002370
002374
002370
004500

3s:

002402
002376
002374

002376
002374

002404
002406

JSR
MOV

PC,MSTCLR
#PATK ,R1

BGNSEG
MOV
MOVB
MOVB
BI(B

#2 ,AXNUM
(R1) ,WAX15
1(R1) ,WAX16
ANBITS+2,WAX15

BICB
ANBITS+3,WAX16
JSR
PC,WRITAX
JSR
PC ,READAX
(MP8B
RAX15,WAX15
BEQ
6%
MOV
WAX15, GOODAT
MOV
RAX15 ,BADDAT
JSR
PC,GETALL
;REPORT REG MISCOMPARE

T18::

;s ISSUE MASTER CLEAR
JINIT DATA PATTERN POINTER

TRAP

;SET BYTE NO. = 2
;SET DATA TO WRITE INTO LO BYTE
sSET DATA TO WRITE INTO HI BYTE
;MASK OFF NON-READ/WRITE BITS IN LO BYTE

;MASK OFF NON-READ/WRITE BITS IN HI BYTE
;LOAD DATA INTO AX1-15,AX1-=16
JREAD AX1-15 AND AX1-16
;COMPARE LO BYTE DATA READ
:BR IF DATA MATCHES
sSET EXPECTED DATA
*SET ACTUAL DATA
*GET REGS FOR PRINTOUT

C$BSEG

CZDMRA M8203 STATIC DIAG M
CZDMRA.P11
18=JUL=79 09:44
8762
(4)
(5)
(5)
(5)
8763
(3)
(3)
8764
8765
8766
8767
8768
8769
8770
8771
(4)

(5)
(5)
(5)
8772
8773
(3)
(3)
8774
8775
8776
8777
(3)
(3)
8778
8779
8780
8781
8782

025540
025540
025542
025544
025546

025550
025550
025552
025554
025560
025566
025570
025576
025604
025610
025610

025612
025614
025616
025620
025620
025620
025620
025622
025626
025632
025634
025634
025634

H 11
MACY11 30A(1052)
18-JuL=79 09:53 PAGE 7-97
TEST 18 - AX1-15,AX1-16 READ/WRITE BIT TEST

104455
000003
012174
015114

104410
000046
005237
123737
001414
013737
013737
004737

002402
002372
002376
002372
004500

104455

000003
012174
015114

104405
062701
020127
103703

002376
002404
002406

ERRDF

% FM3,ERR3

ESCAPE

SEG

6%:

INC
AXNUM
(MPB
RAX16,WAX16
BEQ
9%
MOV
WAX16,GOODAT
MOV
RAX16 ,BADDAT
JSR
PC,GETALL
;REPORT REG MISCOMPARE
ERRDF
3,EM3,ERR3

9%:

SEQ 0137

JSET AX BYTE NO. = 3
;COMPARE HI BYTE DATA READ
;BR IF DATA MATCHES
;SET EXPECTED DATA
;SET ACTUAL DATA
;GET REGS FOR PRINTOUT

ENDSEG

000002
003014
ENDTST

ADD
CMP
BLO

10000%:
#2 ,R1
R1,4PATL
3s

s INCR PATTERN POINTER
;SEE IF ALL DATA WRITTEN YET
;BR IF NOT DONE YET
L10043:

104401

AR AR AR A AR A AR R R

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

TRAP
.WORD
.WORD
.WORD

CSERDF
3
EM3
ERR3

TRAP
.WORD

CSESCAPE
10000%-.

TRAP

C$ERDF

.WORD
.WORD
.WORD

3
EM3
ERR3

TRAP

(SESEG

TRAP

CSETST

8783

g;gé

SBTTL

AR R AR R R AR RN IR AN RN AR

8786
8787
8788

.' IN THIS TEST A MASTER CLEAR IS DONE AND THEN A WRITE, READ, AND COMPARE ARE
;* PERFORMED IN REGS AX3-15,AX3-16 USING EACH WORD OF PATTERN V FCR WRITING,
;% AND PATTERN U FOR COHPARING

8789
8790
8791

;* ANY BITS IN AX3-15,AX3-16 WHICH ARE NOT READ/WRITE ARE MASKED OFF
;% IN THE EXPECTED VALUE BEFORE COMPARISON.
FL
PATTERN V =

8793
8794
8795
8796
8797
8798
8799

i
o
3¢
*
*
.
.

8792

8800

8801

8802
(3)

AR AR

TEST 19 - AX3-15,AX3-16 READ/WRITE BIT TEST

(TO Q)

FOR REG 15 : 000,333,331,323,313,233,133,000,000,000,000,

000,000.000.000.000.000.000.000
FOR REG 16 : 000.000.000.000.000.000.000. 001 002,004,040,
100,200,346,345,343,307,247
1
PATTERN U =
FOR REG 15 : 000,001,013,011,021,101,301,000,000,000,000,
000.000.000.000.000.0C0.000.000
FOR REG 16 : 000,000,000,000,000,000,000, 001 002,004,040,
100,200, 346,345,343,307,247,147

. ttttt'tttttttttttt'tttttttttt'!Qttttt.tltt.t.t.'t"'.t'!ttt'.ttl'ttttttt't'.tt

025636
025636

BGNTST

T19::

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

8803
8804
8805

004737

8807

003576
000010
003152
003104

000006
002374
000001
004264
004076
000001

000332
002370
025736
025742
025746
025754
025760
025760
025762
025764
025766
025770
025770
025772

002404
002404
002370
004500

MACY11

18-JUL=79
30A(1052)
09:53
PAGE 7-98
TEST 19 - AX3-15,AX3-16 READ/WRITE BIT TEST

JSR
BICB

154600

MOV
3%:

002402

002374
4%:

123761
001416
005037
116137
013737

004737

PC,WR]TAX
PC . READAX
#TEST,.WAX1S
43
#AX315U,RAX1S
RAX15.(R1)

BNE
BICB
CMPB
BEQ

JSR

ESCAPE

002402
002372
002404
000001

002372
004500

000001

6%:

002404
002406

(R2),WAX15
1{R2),WAX16

GOODAT
(R1),GOODAT

RAX15 BADDAT

PC,GETALL

INC
CMPB
BEQ
CLR
MOVB
MOV
JSR

AXNUM
RAX16.1(R1)
9
GOODAT
1(R1),GOODAT
RAX16 .BADDAT
PC,GETALL

ERRDF

3,EM3,ERR3

:
9%

ENDSEG

062702
062701
020127
103676

ADD
ADD
CMP

ENDTST

($BSEG

TRAP

CSERDF
3
EM3
ERR3

TRAP

CSESCAPE
10000%~.

TRAP

.WORD
.WORD
.WORD

CS$ERDF
3
EM3
ERR3

TRAP

CSESEG

TRAP

CSETST

sSET EXPECTED DATA
sSET ACTUAL DATA
;GET REGS FOR PRINTOUT

.WORD
. WORD
.WORD

.WORD

:SET AX BYTE NO. = 7

. COMPARE HI BYTE DATA READ
;BR IF DATA MATCHES

sSET EXPECTED DATA
JSET ACTUAL DATA
;GET REGS FOR PRINTOUT

10000%
:

#2,R2
#2,R1
gl,lPATV

TRAP

JSET BYTE NO. = 6
;SET DATA TO WRITE INTO LO BYTE
sSET DATA TO WRITE INTO HI BYTE
;LOAD DATA INTO AX3-15,AX3=16
;READ AX3-15 AND AX3-16
sSEE IF AN INTERFACE IS SELECTED
;BR IF YES
JMASK OFF UNPREDICTABLE BITS
;COMPARE LO BYTE DATA READ
;BR IF DATA MATCHES

104405

104401

s CLEAR LULOOP
sINIT PATTERN V PCINTER
;INIT PATTERN U POINTER

SEG

sREPORT REG MISCOMPARE

104455

000003
012174
015114

JSR
JSR
BITB

MOV

104410

005237

#6 , AXNUM

;REPORT REG MISCOMPARE
ERRDF
3,EM3,ERR3

104455
000003
012174
015114

000052

R1
#PATU

MOV

CLR
MOVB

002406

#PATY ,R2

s ISSUE MASTER CLEAR

BGNSEG

MOVB
MOVB

002376

002370

MOV

PC,MSTCLR
#LULOOP,aBSEL1

SEQ 0138

s INCR PATTERN V POINTER
JINCR PATTERN U POINTER
sSEE IF ALL DATA WRITTEN YET
;BR [F NOT DONE YET

L 10044

CZDMRA MB203 STATIC DIAG #1
CZDMRA P11
18=JUL=79 09:44

MACY11

30A(10?§)

18-JUL=79

J 1N
PAGE 7-99

09:53

T 19 - AX3-15,AX3-16 READ/WRITE BIT TEST

SEQ 0139

':ttttt.'tt.ttt.'ttit.'t"ttifittitttttt.t..'*'Qfittt..Q't.t.t'i."'t'.t"t'."'.'

SBTTL

TEST 20 = REG 17 - AX2-16 READ/WRITE, MASTER CLEAR TEST

;% THIS TEST CONSISTS OF 2 SUBTESTS. IN THE FIRST SUBTEST, EACH BYTE OF PAT O
;* IS WRITTEN INTO REG 17 AND AFTER EACH WRITE, AX2-16 IS READ AND COMPARED
;*

TO A BYTE OF

PAT P,

PATTERN 0 = 000,041,004,010,020.,040,100,101,200,201,300,111,301,375

PATTERN P = 000,113,200,040,020,010,001,104 007,105,007,144,107,157

:* IN THE_SECOND SUBTEST, REG 17 IS LOADED WiTH 375,°A MASTER CLEAR IS ISSUED,

;* AND AX2-16 IS COMPARED TO ITS INITIALIZED STATE (103).
S e

A A A A

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

BGNTST

026102
02611C

004737
012701
012702
012737
012737

003576
003050
003066
000017
000005

002400
002402

A A AR

AR A AR AR AR AR R

AR R

128
JSR
MOV
MOV

PC,MSTCLR
#PATO,R1
#PATP ,R2

;ISSUE MASTER CLEAR
JINIT PAT O POINTER
:INIT PAT P POINTER

MOV

#5 , AXNUM

sSET AX BYTE NO. = 5 FOR AX2-16

MOV

#17 ,REGNUM

sSET LU REG NO. = 17

; WRITE REG 17, READ AND COMPARE AX2-16
026116
026116
026116
026120
026120
026120
026122
026126
026132
026136
026142
026144
026150
026154
026160
026164
026172

026176

BGNSUB

3%:

BGNSEG
MOVB
JSR
JSR
CMPB
BEQ
CLR
MOVB
CLR

(R1) ,WRIBYT
PC,WRITLU
PC ,READAX
RAX16, (R2)
6%
LOADAT
(R1) ,LOADAT
GOODAT

MOV
JSR

RAX16 ,BADDAT
PC,GETALL

ERRDF

3,EM3,ERRS

MOVB

002406

120.1:

(R2) ,GOODAT

;REPORT REG MISCOMPARE

104455

000003
012174
016254

6%:

JSET BYTE TO BE WRITTEN
:WRITE DATA BYTE INTO REG 17
;READ AX2
:;COMPARE AX2=16 TO EXPECTED DATA
:BR IF DATA MATCHES

026220
026222

103737

003066

BLC

ENDSUB

C$BSEG

TRAP

CSERDF

;SET ACTUAL DATA READ
;GET REGS FOR PRINTOUT

10000%:
R1
R2
R1,#PATP

TRAP

sSET EXPECTED DATA READ

ENDSEG
INC
INC
CMP

c$B8sSuB

;SET DATA WHICH WAS WRITTEN

104405

005201
005202
020127

TRAP

JINCR PAT O POINTER
:INCR PAT P POINTER
:SEE IF ALL BYTES LOADED YET

:BR IF NOT

.WORD
.WORD
.WORD

3
EM3
ERRS

TRAP

C$ESEG

mM8203 S TATIC DIAG #1
18=JUL=79 09:44
P11
026222
026222

MACYT1

30A(1052)

18-JyuUL=79_

09:53

K 11
PAGE 7-100

TEST 20 = REG 17 = AX2-16 READ/WRITE, MASTER CLEAR TEST

L10046:

104403

SE@ 0140
TRAP

C$ESUB

TRAP

c$8sSuUB

: LOAD REG 17, DO MASTER CLEAR, READ AND COMPARE AX2-16
026224
026224
026224
826226

BGNSUB

002366

MOVB

;SET DATA TO BE LOADED

RAX16,PAT]I+5

;SEE IF AX2-16 WAS INIT'D CORRECTLY

PC,WRITLU
PC,MSTCLR
PC ,READAX

BEQ

CLR

002404
002406

#375,WRIBYT

JSR
JSR
JSR

CMPB

002671

120.2:

GOODAT

MOVB
MOV

PATI+S,GOODAT
RAX16 ,BADDAT

JSR

PC.GETALL

;sLOAD DATA INTO REG 17
;PERFORM MASTER CLEAR
JREAD AX2-15,AX2-16

;BR IF YES

;SET EXPECTED DATA
;SET ACTUAL DATA
;GET REGS FOR PRINTOUT

;REPORT REG NOT INITIALIZED BY MASTER CLEAR
ERRDF
2.EM2 ERR3

6%:
026314
026316
026316
026316

TRAP

ENDSUB

L10047:

ENDTST

L10045:

C$ERDF

.WORD
.WORD
.WORD

2
EM2
ERR3

TRAP

C$ESUB

TRAP

CSETST

Rt i
I
2222222333322 232 23232222233

.SBTTL

TEST 21

- TRANSMITTER BUFFER DATA TEST

:* A MASTER CLEAR IS DONE FIRST, AND THEN A BYTE OF PATTERN N IS LOADED INTO
:* REG 11 AND THE NEXT BYTE IS LOADED TWICE INTO REG 10. THE PROGRAM THEN WAITS

;%
:*
:*
:*

AT LEAST 50 MICRO-SEC, AND THEN IT READS AND COMPARES AX1-15 TO THE BYTE
WHICH WAS LOADED INTO REG 10, AND IT READS AND COMPARES AX1-16 TO THE BYTE
WHICH WAS LOADED INTO REG 11. THIS PROCESS IS REPEATED (INCLUDING THE MASTER
CLEAR) FOR EACH PAIR OF BYTES IN PATTERN N.
PATTERN N =

FOR REG 10: 000,125,252,377,000,000,000

i*
MR

026320

FOR REG 11:
SRR R

000,000,000,000,005,012,017
e

BGNTST

012701
012737
104402

004737

003032
026566

003576

002362

3%:

2122232222222

MOV
MOV
BGNSUB

#PATN,R1
#A2 ,RETADR

T21::
JINIT PATTERN POINTER
;SET SUBROUTINE ERROR RETURN ADDRESS
20 1

JSR

PC ,MSTCLR

s ISSUE MASTER CLEAR

TRAP

($8SUB

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44

8931

MACY11 30A(1052)

ST 21

004634
000011
002366
003722
0000

09:53

LN
PAGE 7=101

= TRANSMITTER BUFFER DATA TEST

SEQ 0141

#sn

PC,0SIRDY

sCHECK ORDY AND CCOR FOR EXPECTED STATES

002400

MOV

#11 ,REGNUM

sSET LU REG NO. = 11

002400
002366

MOV

#10,REGNUM

;WRITE BYTE INTO REG 11
sSET LU REG NO. = 10

PC.WAITS0

JWRITE BYTE INTO REG_10
SWRITE IT AGAIN (SO 2 ENTRIES ARE IN SILO)
sWAIT FOR SILO DATA TO RIPPLE
sCHECK ORDY AND OCOR FOR EXPECTED STATES

MOVB
JSR

MOVB
JSR
JSR
JSR

002402

1(Ri),WRIBYT
PC,WRITLU
PC.WRITLU
PC.OSIRDY

MOV

#2 , AXNUM

CMPB

RAX15,1(R1)

BEQ
CLR
MOVB

002404
002406

(R1J,WRIBYT
PC,WRITLU

%sn

JSR

000001

004737

18-JUL=79

MOV
JSR

PC .READAX

6%
GOODAT
1(R1),GOODAT

RAX15 .BADDAT

PC,GETALL

:REPORT REG MISCOMPARE
ERRDF
3,EM3,ERR3

104455

:SET DATA BYTE TO BE WRITTEN

sSET DATA BYTE TO BE WRITTEN

;SET BYTE NO. FOR AX1-15

;READ AX1-15, AX1-16

;COMPARE AX1-15 TO EXPECTED
;BR IF MATCH

sSET EXPECTED DATA
sSET ACTUAL DATA
:GET REGS FOR PRINTOUT
TRAP

000003
012174

.WORD
.WORD
.WORD

015114

ESCAPE

104410
000064

005237
123711
001417
005037

6%:

111137

013737
004737
026540
026540
026542
026544

104455

104403

026570
026570

104401

JSR

PC,GETALL

ESCAPE

104410

103663

AXNUM
RAX16, (R1)
9
GOODAT
(R1),GOODAT

RAX16,BADDAT

sREPCRT REG MISCOMPARE
ERRDF
3,EM3.ERR3

000003
012174
015114
000014
062701
020127

INC
CMPB
BEQ
CLR
MOVB

MOV

002406

SUB

000002
003050

9%:

A2:

ENDTST

ADD

CMP

BLO

ENDSUB

TRAP

;INCR AX BYTE NO.
;s COMPARE AX1-16 TO EXPECTED
JBR IF MATCH

#2.R1

3
EM3
ERR3

CS$ESCAPE

.WORD

L10051-.

TRAP

CSERDF

JSET EXPECTED DATA
sSET ACTUAL DATA
;GET REGS FOR PRINTOUT

SUB

RT.4PATO

CSERDF

.WORD
.WORD
.WORD

3
EM3
ERR3

TRAF

CSESCAPE

:INCR DATA PATTERN POINTER
sSEE IF ALL DATA BYTES WRITTEN YET
;BR IF NOT DONE YET
L10051:

L10050:

TRAP

C$ESUB

TRAP

CSETST

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18~JUL=79 09:44

MmN
MACY11 30A(1052)
_18=JuL=79 09:53 PAGE 7-102
TEST 21 - TRANSMITTER BUFFER DATA TEST

8971
8972
8973
8974

8975

ttt'tttiiti'fittt'.flttttttfiifitt*.'tt.'..i..itt'tt..'t'tt'.'tt'QQ..Q'.QQ'.'.'.tt

gg;g

"SBTTL

8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989

:*
:*
:*
:*
i+
;%
:*
:*
:*
:*
:*
i*

gggg

BGNTST
012737

027246

002362

026600
026604

026610

004737
004737

000001

003576
004634

JSR
JSR

026612
026620
026624
026630
026634
026640

026642
026644
026652

9015
9016

026660
026664

9024

9025

122::
;SET SUBR ERROR RETURN ADDR

PC,MSTCLR
PC.OSIRDY

;ISSUE MASTER CLEAR
:CHK ORDY=1, OCOR=0

012737
004737
004737
004737
004737
000003

000400
005146
005146
005120
004634

002422

MOV
JSR
JSR
JSR
JSR
3

#TXSOM,TXWORD
PC,LDTXSI
PC.LDTXSI
PC.WAIT50
PC.0SIRDY

:;SET DATA TO WRITE INTO SILO
:LOAD THE SILO WITH SOM
:LOAD ANOTHER SOM
‘WAIT FOR DATA TO RIPPLE
:CHK ORDY=1, OCOR=1

: CLOCK LINE UNIT, CHK FOR OCOR = O WITHIN 3 CYCLES

9011
9012
9013

9017
9018
9019
9020
9021
gggg

#A3,RETADR

: LOAD 2 SOM CHARS, ALLOW SILO TO RIPPLE, CHK ORDY=1, OCOR=1

gggg

9014

MOV

: SET MASTER CLEAR, CHECK FOR ORDY=1, OCOR=0

388?
9002
9003
9004
9005
9006
9007

FIRST, A MASTER CLEAR IS DONE, AND THE PROGRAM CHECKS FOR ORDY=1, OCOR=0.
THEN, 2 TSOM CHARS ARE LOADED INTO THE TX SILO, AND ALLOWED TO RIPPLE
DOWN TO THE OUTPUT. THE PROGRAM CHECKS FOR ORDY=1, OCOR=1.
NEXT, THE PROGRAM CYCLES THE STEPLU BIT UNTIL OCOR=0 AGAIN., AND CHECKS FOR
THIS TO OCCUR WITHIN 3 CYCLES,
THE SILO IS THEN FILLED WITH 64 BYTES OF A 256-BYTE BINARY COUNT PATTERN
(000-377)
AND THE PROGRAM CHECKS FOR ORDY=0 AFTER THE 64TH CHAR IS LOADED.
THE PROGRAM CYCLES STEPLU FOR 8 CYCLES AND CHECKS THAT AFTER THE 8TH, ORDY=1.
AX1-15 IS READ AND COMPARED TO EXPECTED DATA.
THE REST OF THE BINARY COUNT DATA BYTES ARE LOADED, CYCLED 8 CLOCKS, READ AND
COMPARED, A BYTE AT A TIME. UPON COMPLETION, THE SILO IS CHECKED TO BE EMPTY
WITH ORDY=1, OCOR=0.

-QtttttttQ*.t*tttttitfitttfittfitfittttttttfi'fi"tttttt.'tt.'i'filtt.tit'i.itttt't."

026572
026572
026572

gggg
899
8997

TEST 22 - TRANSMITTER BUFFER SEQUENCING TEST

- %

8991
(3)
gggg

SEQ 0142

026656

026672
026674
026676
026702
026704
026710

005001
012737
004737
000001
004737
132737
001404
005201
020127
002763
004737
000001

000017
005226
003644
000020

002400

3s:

002364

000003
004634

6%:

CLR
MOV
JSR

R1
#17 ,REGNUM
PC,STPLU

;INIT CYCLE COUNTER TO 0
:SET REG NO. = 17
:STEP LU 1 CYCLE

JSR
BITB

PC ,READLU
#OCOR,REDBYT

;READ REG 17
-SEE IF OCOR
= 0 YET

BEQ
INC
CMP
BLT
JSR
1

6$
R1
R1,43
3$
PC,0SIRDY

:BR IF OCOR = 0
*INCR CYCLE COUNT
:SEE IF 3 CYCLES DONE YET
:BR IF NO
*CHK ORDY=1, OCOR=0

: LOAD 64 BINARY COUNT CHARS INTO SILO, CHK ORDY=0

CZDMRA M8203 STATIC DIAG 01

CZDMRA.PT

18-JUL=79 09:4

MACYTT

026712

30A(1052)

09:53

N1
PAGE 7-103

TEST 22 = TRANSMITTER BUFFER SEQUENCING TEST

8%:

026760
026760

_18=JuL-79

9%:

12%:
14%:

026770

CLR
MOV

R3
R3, TXWORD

CMP

R3,#63.

JSR
JSR

PC.LDTXSI
PC,WAIT50

SEQ 0143

sINIT PATTERN FOR WRITING
;SET DATA TO BE WRITTEN

sLOAD DATA CHAR INTO TX SILO
;WAIT FOR DATA TO RIPPLE IN SILO

;SEE IF 64TH CHAR JUST LOADED

BNE
ggv

9%
155143

:BR _IF NO
sSET UP TO CHK ORDY=0,0COR=1

MOV

#3,148

;SET UP TO CHK ORDY=1,0C0R=1

INC
cMP

R3
R3,464.
8%

JSR
.WORD

BLT

PC,OSIRDY
O

;CHK ORDY, OCOR

s INCR PATTERN FOR WRITES
;SEE IF 64 CHARS LOADED YET
:BR IF NO

; CLOCK LINE UNIT, CHECK ORDY = 1 WITHIN 8 CYCLES
026772

012737
005001
004737
000001
004737
132737
001004

005201
020127
002763
004737
000003

000011

002400

005226

16$:

000020 002364
000010

004634

19%:

MOV
CLR
{SR

#11 ,REGNUM
R1

PC,STPLU

;SET REG NO. = 1T
INIT CYCLE COUNT
sCLOCK LU FOR 1 CYCLE

JSR
BITB

PC ,READLU
#ORDY ,REDBYT

;READ REG 11
;SEE IF ORDY = 1

BNE
INC
CMP
BLT
iSR

19%
R1
R1,48.
16$
PC,OSIRDY

YET

:BR IF YES
sINCR CYCLE COUNT
:SEE IF 8 CYCLES YET
:BR IF NOT YET
;CHK ORDY
= 1, OCOR = 1

: READ AND COMPARE FIRST CHARACTER IN AX1-15
000002
004076
002370

002404
002370
004500

027076

027102
027102
027104
027106
027110
027112
027112
027114
027116

104455

CLR

002402

#2 , AXNUM
PC . READAX
RAX15.Ré4
208

MOV

RAX15,BADDAT

MOV

002406

JSR

R4, GOODAT
PC,GETALL

;REPORT REG MISCOMPARE
ERRDF
3,EM3.ERR3

000003
012174
015114

ESCAPE

104410

000132

MOV
JSR
CMPB
BEG

sINIT PATTERN FOR READING

:SET AX BYTE NO. FOR AX1-15
*READ AX1-15
*COMPARE AX1-15 TO EXPECTED
:BR IF MATCH
*SET EXPECTED DATA

:SET ACTUAL DATA

“GET REGS FOR PRINTOUT
TRAP

LWORD
"WORD
.WORD

TST

TRAP

.WORD

20%:
: LOAD AND COMPARE REST OF CHARS, MONITOR ORDY, OCOR

027116
027122
027124

020327
003010
010337

000377
002422

24%:

CMP

R3,4255.

MOV

R3, TXWORD

BGT

26$

;SEE IF ALL CHARS LOADED YET

‘BR IF YES

*SET DATA TO BE WRITTEN

CSERDF

3
EM3
ERR3

CSESCAPE

L10052-.

004737
005203
004737
000002
005204
004737
000010

MACY11

B 12

30A(1?52)
18-JUL=-79 09:53 PAGE 7-104
EST 22 = TRANSMITTER BUFFER SEQUENCING TEST

005146

JSR

PC.LDTXSI

004634

éSR

PC,OSIRDY

INC

26 $:

005226
004076
002370
002404
002370
004500

INC
gsa

R4
PC.STPLU

:INCR PAT FOR READING
:CLOCK LINE UNIT FOR 8 CYCLES

JSR

PC ,READAX

:READ AX1-15

MOV
HOV

R4 ,GOODAT
RAX15 BADDAT

;SET EXPECTED DATA
sSET ACTUAL DATA

RAX15,Ré4
27%

PC, GETALL

ESCAPE

104410

000377

27%:

004634

;CHK ORDY=0, OCOR=1

*COMPARE AX1-15 TO EXPECTED
;BR _IF MAT(CH
;GET REGS FOR PRINTOUT

TRAP

.WORD
.WORD
.WORD

TST

CMP

R4 ,#255.

BNE

TRAP

sSEE IF WE READ LAST CHAR YET

#SR

29%

PC,O0SIRDY

‘BR IF NOT

29%:

BR
%SR

A3
PC,O0SIRDY

;CHK ORDY=1, OCOR=1

24%

: CONT INUE

004634

027242
027244
027246
027246
027246
027246

:INCR DATA TO BE WRITTEN

;REPORT REG M1 SCOMPARE
ERRDF
3,EM3,ERR3

104455
000003
012174
015114

;LOAD DATA CHAR INTO TX SILO

(MPB
BEQ
002406

SEQ 0144

CSERDF

3
EM3
ERR3

CSESCAPE

.WORD

L10052-.

TRAP

CSETST

;CHK ORDY=1, OCOR=0

ENDTST

L10052:

fitfifi.fi'fi'tfifi"fi'fi.**'fi"t*"'.‘.fi**'.'.'Q**..fi..'*""'*""‘.‘"'.fi'."""

SBTTL

TEST 23 = TX MSG TIMING TEST, CHAR MODE, WITH CRC

IR BB

AT A TR

BF IR

AT
AT A

IR BE 2

IR TR IR

SOM IS SET TWICE TO SEND 2 SYNCH CHARS.
THEN 2 TERMINATING SYNCHS ARE SENT.

027250
027250
027250

IN THIS TEST, AN ENTIRE MESSAGE IS TRANSMITTED (USING STEPLU AND LULOOP)
AND THE PROGRAM MONITORS THE OCCURRENCE OF USYRT TX BUFFER EMPTY FLAGS
(BY SCANNING ORDY AND OCOR) AND OACT, AT EACH STEP. THE TEST IS DONE IN
CHARACTER ORIENTED PROTOCOL MODE, USING 8-BIT CHARS AND CRC-16.
THE FOLLOWING STEPS ARE DONE
:
A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN CHAR MODE.

=)
VT

)
D
d
-

Nele .ENTo NV, F NP

* %

THE TRANSMITTER IS THEN DISABLED, USING OC, AND OACT

CLEARED STATE AFTER THE 3RD SYNCH COMPLETES.
E

SRR

BGNTST

012737

027362

002362

THEN, 2 000 CHARS ARE SENT, AND

MOV

#A4 ,RETADR

sSET

IS MONITORED FOR THE

eIt

123::
TEST EXIT ADDRESS FOR ERRORS

2222202222222;

OTM

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

027256

004737

€12

18=JUL=79 09:53 PAGE 7-105
MACY11 30A(1052)
TEST 23 = TA MSG TIMING TEST, CHAR MODE, WITH CRC

0C551¢

JSR
PC,INITRN
SYNCH
STRIP!DDCMP

006074

338

006074

638

CHPCHK
' 8.

;DO MASTER CLR, LOAD 2 SOM'2
;:LOAD A 000 CHAR,

TX FIRST SYNCH (226)

PC, TXCHAR

;LOAD 2ND 000 CHAR,

JSR

PC, TXCHAR

;LOAD EOM CHAR,

006074

JSR

PC, TXCHAR

:LOAD EOM CHAR, TX 2ND 000 CHAR

006074

#ég

PC, TXCHAR

:LOAD EOM, TX CRC=16 CHAR

006074

16.
JSR
gxeon

PC, TXCHAR

:LOAD EOM,

JSR

PC, TXCHAR

:LOAD EOM, TX 2ND TERMINATING SYNCH

JSR

PC,ENDTRN

:SET OC, MONITOR OCOR

PC,MSTCLR

:ISSUE MASTER CLEAR TO CLEAN UP

006074

gxeon

TXEOM

006074

gxson

006246

003576

ENDTST

"SBTTL
.

.
-

.
.

BN B

.
.
.

LRB

L4
-

A AR A AR

A A A A A A

000000
004737

006074

TRAP

AR AN AR A AR AR A AR A AN AR AR AR R AR A AR AR AR AN RAA

CSETST

ANR

AR RRS

IN THIS TEST, AN ENTIRE MESSAGE IS TRANSMITTED (USING STEPLU AND LULOOP)
AND THE PROGRAM MONITORS THE OCCURRENCE OF USYRT TX BUFFER EMPTY FLAGS
(BY SCANNING ORDY AND OCOR) AND OACT, AT EACH STEP. THE TEST IS DONE IN
BIT ORIENTED PROTOCOL MODE, USING 8-BIT CHARS AND CRC-CCITT-1.
THE FOLLOWING STEPS ARE DONE
:
A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN BIT MODE.
SOM IS SET TWICE TO SEND 2 FLAG CHARS. THEN, 2 000 CHARS ARE SENT, AND

THEN 2 TERMINATING FLAGS ARE SENT.
THE

TRANSMITTER IS THEN DISABLED, USING OC, AND OACT

CLEARED STATE.

002362

TX FIRST TERMINATING SYNCH

TEST 24 = TX MSG TIMING TEST, BIT MODE, WITH CRC

027472
005512

TX FIRST 000 CHAR

L10053:

BGNTST

012737
004737

TX 2ND SYNCH

BNBB 2

027370
027370
027370
027376
027402
027404
027406

PC, TXCHAR

SEQ 0145

MOV

IS MONITORED FOR THE

2232322322222

T24::

22222222222232222

#AS ,RETADR
PC,INITRN

;JSET TEST EXIT ADDRESS FOR ERRORS
;DO MASTER CLR, LOAD 2 SOM'?2

PC,TXCHAR

;LOAD A 000 CHAR, TX FIRST FLAG

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

CZDMRA M8203 STATIC DIAG #1
CZDMRA. P11
18=JUL=79 09:44
9176
9177
9178
9179
9180
9181
9182
9183
9184
9185
9186
9187
9188
9189
9190
919N
9192
9193
9194
9195
9196

(3)

(3)
9197
9198
9199
9200
9201
9202
9203
9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215

027412
027414
027416
027422
027424

MACYT1

D 12

30A(1052)
_18=JuL-79 09:53 PAGE 7-106
TEST 24 = TX MSG TIMING TEST, BIT MODE, WITH CRC

0C0
CHPCHK
! 8.

006074

333

PC,TXCHAR

:LOAD 2ND 000 CHAR,

006074

8.
JSR

PC, TXCHAR

;LOAD EOM CHAR,

006074

JSR

PC, TXCHAR

:LOAD EOM, TX 2ND 000 CHAR AND CRC=-CCITT=1 CHAR

006074

JSR

PC, TXCHAR

:LOAD EOM, TX FIRST TERMINATING FLAG

JSR

PC, TXCHAR

:LOAD EOM, TX 2ND TERMINATING FLAG

JSR

PC,ENDTRN

;SET OC, MONITOR OCOR

JSR

PC ,MSTCLR

:ISSUE MASTER CLEAR TO CLEAN UP

gxeon

006074

;xeon

006246

027472
027472
027476
027476
027476

SEQ 0146

003576

ENDTST

TX 2ND FLAG

TX FIRST 000 CHAR

L10054:

TRAP

CSETST

*ttttttttttttQtttti't*ttiit'tttt*i.tfit.'tt'ttt.'ttfi.ttfit.t.'!'t!i'tttt"fitit

“SRTTL

TEST 25 = TX MSG TIMING TEST, CHAR MODE, WITH NO CRC

- %

:*
:*
:*
;%

i«

FOLLOWING STEPS ARE oo~e:

:* A MASTER CLEAR IS DONE, AND THE LINE UNIT IS PLACED IN CHAR MODE.
;% SOM IS SET TWICE TO SEND 2 SYNCH CHARS. THEN, 2 000 CHARS ARE SENT. AND

:* THEN 2 TERMINATING SYNCHS ARE SENT.
;% THE TEST IS PERFORMED WITH TXEN (REG14, BIT6) SET, AND THE PROGRAM CHECKS

i*
;%

THAT THIS HOLDS RTS HIGH PAST THE END OF THE MESSAGE.
THE TRANSMITTER IS THEN DISABLED, USING OC, AND OACT IS MONITORED FOR THE

:* CLEARED STATE.

. 3t!tttttttttttiI.t..ttfi"'.ttfitti"Q't...t."tt"t.tt"tt..tt.tt'."'t't.'tt".

BGNTST

012737

027544

027666
005512

002362

000014
000100
003722
006074

002400
002366

e
MOV

ééfi
b

#A6 ,RETADR
PC, INITRN

CRC2!CRC1!STRIP!DDCMP

MOV
MOV
JSR
538

#14 ,REGNUM
#TXEN,.WRIBYT
PC,WRITLU
PC . TXCHAR

CHPCHK
! 8.

:SET TEST EXIT ADDRESS FOR ERRORS

:DO MASTER CLR,

LOAD 2 SOM'2

:SET REG NO. = 14
:SET TXEN BIT
*LOAD TXEN BIT IN REG 14

*LOAD A 000 CHAR,

TX FIRST SYNCH

(226)

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

004737
000000
000010
004737
001000

E 12

18-JUL=79 09:53 PAGE 7-107
30A(1052)
TEST 25 = TX MSG TIMING TEST, CHAR MODE, WITH NO CRC

006074

538

;:LOAD 2ND 000 CHAR,

JSR
gxeon

PC,TXCHAR

;LOAD EOM CHAR,

JSR

PC., TXCHAR

;LOAD EOM CHAR, TX 2ND 000 CHAR

JSR

PC, TXCHAR

;LOAD EOM, TX FIRST TERMINATING SYNCH

JSR

PC, TXCHAR

;LOAD EOM, TX 2ND TERMINATING SYNCH

5§R

PC,STPLU

:CLK PAST END OF MSG

002400

MOV

#13 ,REGNUM

:SET REG NO, = 13

002364

BIT
BNE

#RTS,REDBYT
3

“CHK FOR RTS STILL SET
*BR IF RTS SET

ERRDF

60,EM60,ERR7

006N74

006074

;xson

006074

—

n
NNO~N
WWWW
NNON

004737
027652
027652
027654
027656
027660

;xeon

006074

gxson

005226

000013
003644
000040
004500

006246

003576

SEQ 0147

PC, TXCHAR

Raas 8888 g o2

027546

MACY11

JSR

PC,READLU

JSR
PC, GETALL
:REPORT RTS NOT SET

TX 2ND SYNCH

TX FIRST 000 CHAR

*READ REG 13

*GET REGS FOR PRINTOUT

TRAP

zg:

JSR

PC,ENDTRN

;SET OC, MONITOR OCOR

;

PC,MSTCLR

;ISSUE MASTER CLEAR TO CLEAN UP

ENDTST

L10055:

027672

CSERDF

.WORD
.WORD
.WORD

60
EM60
ERR7

TRAP

CSETST

.ttttiQ!Qttttttt'ttt'tt"tt'ittfiiit*t.iQ'Qttttti'Qitt'tltt.t't'ttti"tt'tttttt

‘SBTTL
- %

:*
i*
i
i+
:*
‘i«
;%
:*
:*
;%
027674
027674

TEST 26 - TX UNDERRUN SET AND CLEAR TEST - CHAR MODE

IN THIS TEST, A TX UNDERRUN ERROR IS FORCED IN EACH OF 2 SITUATIONS.
AND THEN CLEARED DIFFERENTLY IN EACH.
IN THE FIRST, A MESSAGE IS INITIATED. A 000 CHAR IS SENT. AND THE TX
BUFFER IS NOT SERVICED IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG.
WHICH CAUSES UNRR TO SET IN REG 11. THEN, SOM IS SET TO CLEAR THE ERROR.
AND THIS IS VERIFIED.
IN THE SECOND SITUATION, A MSG IS INITIATED, A 000 CHAR IS SENT. AND THE TX
BUFFER IS NOT SERVICED IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG, WHICH
AGAIN CAUSES UNRR TO SET. THEN, A MASTER CLEAR IS DONE, AND THE UNRR BIT
IS CHECKED TO BE CLEARED.

. 3A

BGNTST

2222222333323 3333223232232

22323222222222222222222222223

126::

M8203 STATIC DIAG #1
18-JUL=79 09:44
PN

F 12
18-JuL=79 09:53 PAGE 7-108
TEST 26 = TX UNDERRUN SET AND CLEAR TEST = CHAR MODE

MACY11 30A(1052)

SEQ 0148

; CAUSE TX UNDERRUN, CHK UNRR = 1; SET SOM, (CHK UNRR = 0
027674
027702
027706

030232
005512

002362

MOV

JSR
SYNCH

027756
027756
027760
027762
027764
027766
027772
027776

002400
002364

004500

003644
000001

6%:

002364

004500

030232

PC,TXCHAR

;LOAD A 000 CHAR, TX FIRST SYNCH

{iR

PC.STPLU

MOV
JSR
BITB
BEQ

#11 ,REGNUM
PC,READLU
#UNRR ,REDBYT
6%

CLOCK THE TRANSMITTER UNTIL 7 BITS OF
THE 000 CHAR HAVE BEEN TRANSMITTED
SET LU REG NO. = 1

ERRDF

16,EM16,ERR7

JSR
PC,GETALL
sREPORT UNRR NOT CLEARED

030232
005226

002422

JMP

éSR

PC.STPLU

JSR
BITB

PC ,READLU
#UNRR ,REDBYT
BNE
9%
JSR
PC,GETALL
;REPORT UNRR NOT SET
ERRDF
14 ,EM14 ERR7

9%:

JMP

MOV
JSR

JSR
%SR

JSR
BITB

002364

;SET TEST EXIT ADDRESS FOR ERRORS
;DO MASTER CLEAR, LOAD 2 SOM'S

JSR

000
CHPCHK
! 8.

005226

027752

PC,INITRN

STRIP!DDCMP

006074

000011
003644
000001

#A7 ,RETADR

BEQ

#TXSOM, TXWORD
PC,LDTXSI

PC,WAITS50
PC,STPLU

PC,READLU
#UNRR ,REDBYT

12%

:READ REG 11

:CHK FOR UNRR = 0
JBR IF UNRR = 0
:GET REGS FOR PRINTOUT
TRAP

;SKIP TO END OF TEST
;CLOCK LAST BIT OF 000 CHAR

CSERDF

.WORD
.WORD
.WORD

16
EM16

ERR7

TRAP
.WORD

CSERDF
14

;READ REG 11
sCHK FOR UNRR = 1
;BR IF UNRR = 1
;GET REGS FOR PRINTOUT

;SKIP TO END OF TEST
;SET SOM CHAR TO BE WRITTEN
;LOAD SOM CHAR INTO TX SILO
;WAIT FOR SILO DATA TO RIPPLE

.WORD
.WORD

EM14
ERR7

TRAP

CSERDF

;CLOCK LU FOR 2 CYCLES
;READ REG 11
;CHK FOR UNRR
= 0

:BR IF UNRR = 0

JSR
PC,GETALL
;GET REGS FOR PRINTOUT
:REPORT UNRR NOT CLEARED BY_SOM

ERRDF

030232

12%:
CAUSE

13,EM13,ERR7

A7
TX UNDERRUN,

;SKIP TO END OF
CHK UNRR |5

DO MASTER CLR,

TEST
CHK UNRR
= 0

WORD
.WORD
.WORD

13
EM13
ERR7

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
9322
9323

004737
000226
000051
004737
000000
100010

004737
000021
004737

132737

001010
004737

MACY11

G 12

30A(1052)
_18-JuL=79 09:53 PAGE 7-109
TEST 26 = TX UNDERRUN SET AND CLEAR TEST = CHAR MODE

005512

g?:CH

006074

IDLE!STRIP'DDCMP
888
PC,TXCHAR

;LOAD A 000 CHAR,

005226

CHPCHK '8.
#;R
PC,STPLU

JSTEP THE LU UNTIL 000 HAS BEN TRANSMITTED

003644
000001

JSR
BITB

002364

004500

BNE
JSR

PC,INITRN

SEQ 0149

.DO MASTER CLEAR, LOAD 2 SOM'S

PC ,READLU
#UNRR ,REDBYT
16%
PC,GETALL

JREPORT UNRR NOT SET
ERRDF
14 ,EM14 ,ERR7

TX FIRST SYNCH

:READ REG 11
;CHK FOR UNR =
*BR IF UNRR = 1
;GET REGS FOR PRINTOUT
TRAP

030232
003576
003644
000001

030214
030216

002364

004500

030222
030222
030224
030226
030230
030232
030236
030236
030236

JMP
A7
JSR
PC,MSTCLR
JSR
PC ,READLU
BITB
#UNRR ,REDBYT
BEQ
A7
JSR
PC,GETALL
sREPORT UNRR NOT CLEARED BY 0OC
ERRDF
15,EM15 ,ERR7
16%:

003576

A7:

ENDTST

JSR

PC,MSTCLR

;SKIP TO END OF TEST
;s ISSUE MASTER CLEAR
JREAD REG 11
;CHK FOR UNRR
= 0
BR IF UNRR = 0
JGET REGS FOR PRINTOUT

;ISSUE CLEAN-UP MASTER CLEAR
L10056:

CS$ERDF

.WORD
.WORD
.WORD

14
EM14
ERR7

TRAP

CSERDF

.WORD
.WORD
.WORD

15
EM15
ERR7

TRAP

CSETST

"'*".."“'Q".*.*'.'."."‘fi.fi...*'.".'***.'.."'Q‘.*.""'.""".""""'

SBTTL

.'
;%
;*
;%
.'

TEST 27 = TRANSMIT CHAR LENGTH TIMING TEST - CHAR MODE,

CRC

THE LINE UNIT IS PLACED IN CHAR MODE (DDCMP) AND A MESSAGE IS INITIATED
WITH AN 8-BIT SYNCH AND A 5-BIT SYNCH CHAR. NEXT, A 000 CHAR IS SENT WITH
EACH OF THE FOLLOWING TX CHAR LENGTHS : S BITS, 6 BITS, 7 BITS, 8 BITS.
(FOR EXAMPLE, A 5-BIT CHAR REQUIRES S CLOCK CYCLES T0 BE TRANSH!TTED). TWO
TERMINAT ING SYNCHS ARE

SENT AFTER

THE DATA.

. '....'.".'Q'.fi..'t*'."'.".'.".'t.."".."..'fi‘.fi'....."......'....'.'i"

BGNYST

012737
004737
000000
000041
012737
012737

030446
005512

002362

000006
000000

002402
002374

127

MOV
688

#A8 ,RETADR
PC,INITRN

IDLE!DDCMP
MOV
#6 , AXNUM
MOV
#000,wAX15

JSET TEST EXIT ADDRESS FOR ERRORS
;DC MASTER CLR, LOAD 2 SOM'S
;SET BYTE NO. = 6 FOR AX3
:SET DATA FOR AX3 15 =0

M8203 STATIC DJAG #1

18=JUL=79 09:44

000240
004264

MACY11

30A(1052)

_18-JUL=79

H 12
PAGE 7-110

TEST 27 = TRANSMIT CHAR LENGTH TIMING TEST = CHAR MODE, CRC

002376

006074

MOV
JSR
JSR

006074

JSR

000300
004264
006074

09:53

#TXLEN2' TXLENO,WAX16 :SET TX LENGTH = 5 FOR AX3-16
PC,WR]TAX
:LOAD AX3-15,AX3-16

PC . TXCHAR

*L0AD S5-BIT 000 CHAR, TX 8-BIT SYNCH

PC., TXCHAR

:LOAD 6-BIT 000 CHAR, TX 5-BIT SYNCH

000
CHPCHK
' 8.
000
5

002376

MOV
JSR
JSR

#TXL
' TXLENT,WAX
EN2
16

MOV
JSR
JSR

ATXL
TXLENT!
EN2!
TXLENO, WAX16

PC,WRI TAX
PC . TXCHAR

000
5

002376

PC,WRITAX
PC . TXCHAR

000

6
MOV
JSR
JSR

002376

#000,WAX16

:SET TX CHAR LENGTH = 6
*LOAD 7-BIT 000 CHAR, TX

:SET TX CHAR LENGTH = 7
:LOAD 8-BIT 000 CHAR, TX 6-BIT 000 CHAR

;SET TX CHAR LENGTH = 8
*LOAD EOM, TX 7-BIT 000 CHAR

PC, TXCHAR

:LOAD EOM,

TX 8-BIT 000 CHAR

8.
JSR

PC, TXCHAR

;LOAD EOM,

TX CRC-16 CHAR

16.
JSR

PC, TXCHAR

:LOAD EOM,

PC,ENDTRN

;CLEAR

TXEOM

I XEOM

JSR

FIRST

TERMINATING SYNCH

TRANSMITTER

L10057:

104401

ALAE

TSBTTL

2222323322232

22222222223

CRC

:* THE LINE UNIT IS PLACED IN BIT MODE AND A MESSAGE IS INITIATED

9410

;* WITH 2 FLAG CHARS. NEXT, 2 8-BIT 000 CHARS ARE SENT, FOLLOWED BY 000 CHARS

“* WITH EACH OF THE FOLLOWING TRANSMITTER CHAR LENGTHS:
:

1 BIT, 2 BITS

3 BITS, 4 BITS, S BITS, 6 BITS, 7 BITS, AND 8 BITS.

i (FOR EXAMPLE, A 5 -BIT CHAR REQUIRES 5 CLOCK CYCLES TO BE TRANSMITTED).
;% TWO TERMINATING FLAGS ARE SENT AFTER THE DATA.

:'0ttt".'..'.ttt....tt...ttt.lt."it.t.'.t"'...'.".'..t...'.Q"'t....tt..Qt"

BGNTST
37
37

D00~
YON N
NN -

CSETST

TRAP

TEST 28 - TRANSMIT CHAR LENGTH TIMING TEST = BIT MODE,

ERLRRPRERR

5-BIT 000 CHAR

PC,WRITAX
PC . TXCHAR

TXEOM
7
JSR

A8:
ENDTST

SEQ 0150

030776
00 5512

002362

MOV
JSR

#A9 RETADR

PC,INITRN

128::
JSET TEST EXIT ADDRESS FOR ERRORS
;DO MASTER (LR, LOAD 2 J0M*S

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=-JUL-79 09:44

9422

030466

004737

MACYT1

112

18=JUL=79
09:53
PAGE 7-111
30A(1052)
TEST 28 = TRANSMIT (CHAR LENGTH TIMING TEST - BIT MODE, (RC

000
000

006074

JSR

PC, TXCHAR

;LOAD FIRST 8-BIT 000 CHAR,

JSR

PC,TXCHAR

;LOAD 2ND 8-BIT 000 CHAR, Tx 2ND FLAG

JSR

PC, TXCHAR

;LOAD 1-BIT 000 CHAR, TX FIRST 8-BIT 000 CHAR

MOV
MOV
MOV
JSR

#6 , AXNUM
#000,WAX15
#TXLENO,WAX16
PC,WRITAX
PC,TXCHAR

sSET BYTE NO. = 6 FOR AX3
;SET DATA FOR AX3-15 = 0
;SET TX CHAR LENGTH = 1 FOR AX3-16
;LOAD Ax3-15,AX3-16
;LOAD 2-BIT 000 CHAR, TX 2ND 8-BIT 000 CHAR

002376

MOV
JSR
JSR

#TXLENT ,WAX16
PC,WRITAX
PC,TXCHAR

;SET TX CHAR LENGTH = 2
;LOAD 3-BIT 000 CHAR, TX 1-BIT 000 CHAR

002376

MOV

H#TXLENT!TXLENO,WAX16

002376

MOV
JSR

#TXLEN2 ,WAX16
PC,WRITAX

MOV

#TXLEN2! TXLENO,WAX16

000
CHPCHK !8.

006074

gCO
000
002402
002374
002376

JSR

9441
9442
9443
P44
9645
9446
9447

030572
030574
030576
030610
030614
030616

1
012737
004737
004737

000140
004264
006074

JSR
JSR

JSR

002375

9473

030752

PC,TXCHAR

PC,WRITAX
PC,TXCHAR

sSET TX CHAR LENGTH = 3
;LOAD 4-BIT 000 CHAR, TX 2-BIT 000 CHAR

sSET TX CHAR LENGTH = 4
;LOAD 5-BIT 000 CHAR, Tx 3-BIT 000 CHAR

sSET TX CHAR LENGTH = 5

;LOAD 6-BIT 000 CHAR, TX 4-BIT 000 CHAR

002376

MOV
JSR
JSR

#TXLENZ! TXLENT ,WAX16
PC,WRITAX
sSET TX CHAR LENGTH = 6
PC,TXCHAR
;LOAD 7-BIT 000 CHAR, TX 5-BIT 000 CHAR

002376

MOV
JSR
JSR

#TXLENZ!
TXLENT! TXLENO,WAX16
PC.,WRITAX
sSET TX CHAR LENGTH = 7
PC,TXCHAR
;LOAD 8-BIT 000 CHAR, TX 6-BIT 000 CHAR

002376

006074

MOV
JSR
JSR

#000,WAX16
PC,WRITAX
PC,TXCHAR

JSET TX CHAR LENGTH = 8

006074

JSR

PC,TXCHAR

;LOAD EOM, Tx 8-BIT 000 CHAR, CRC=CCITT=1 CHAR

000000
001000
000007
004737
001000
000031

JSR
JSR

PC,WRITAX
PC,TXCHAR

TX FIRST FLAG

;LOAD EOM, TX 7-BIT 000 CHAR

SEQ 0151

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JuL=79 09:44

030762

004737
001000
000010
004737

MACYT1

30A(1052)

09:53

J 12
PAGE 7-112

TEST 28 - TRANSMIT CHAR LENGTH TIMING TEST = BIT MODE.

006074
006246

_18-JuL=79

PC., TXCHAR

:LOAD EOM, TX FIRST TERMINATING FLAG

JSR

PC,ENDTRN

:CLEAR TRANSMITTER

ENDTST

L 10060:

104401

"SRTTL

SEQ 0152

JSR

gxson

CRC

ARl

]

2222323332233

TEST 29 = TXDATA BIT TEST = CHAR MODE., NC CRC

TRAP

(SETST

22332222233333

s* THE LINE UNIT IS INITIALTZED AND A MSG IS INITIATED (USING STEPLU) WITH (R(;* 16 SELECTED IN CHAR MODE. TWO SYNCHS, 000,125,252.377,000, AND 2 TERMINATING
:* SYNCHS ARE THEN SENT. THE PROGRAM CHECKS EACH BIT OF THE TRANSMITTED
:* DATA (HARS, BY MONITORING TXDATA (REG 17) AS THE DATA IS CLOCKED OUT OF

THE

USYRT

TRANSMITTER.

'"t"".'t......t'."tl."'......Q‘Q'.'.QQ..Q'Qt.'.t..'t."'.....'."Q..tt.""'

BGNTST
005512

JSR
PC,INITRN
SYNCH
STRIP'!DDCMP
MOV
#MSG1+4 R

003224
002422
005146
003242

3%:

000002
003236
003576

R1,.R3
(R1)+,TXWORD

JSR
CMP

PC,LDTXSI
R1,#MSG1+18.

BLO
JSR

005120
005226

031056
011150

MOV
MOV

MOV

8%:

.WORD
ADD
CMP

16%:
ENDTST

031076

JSR

BLO
JSR

JGET POINTER TO DATA
;LOAD A DATA CHAR INTO Tx SILO
;SEE IF ALL CHARS LOADED Y[T

3%
PC,WAITS0

;BR IF NOT YET
JWAIT FOR SILO TO RIPPLE

(R3),8%

;GET EXPECTED DATA (HAR

O
#2,R3
R3,#MSG1+14,

JEXPECTED CHAR GOES HERE
sINCR PATTERN POINTER
JSEE IF ALL CHARS CHECKED YET

JSR
PC,STPLU
CHPCHK
! 16.

6%:

129::
;DO MASTER CLR, LOAD 2 SOM'S

PC,CKTIBIT

6%
PC,MSTCLR

JCLOCK LU UNTIL

SYNCHS ARE

TX'D

JCHECK TXDATA FOR CHAR BITS

;BR IF NOT YET
- ISSUE MASTER CLEAR

TO CLEAN UP

L10061:

TRAP

CSETST

.':....Q..'t..tt.'..'..'tt""......"...'...'Qt.'.."....".."".'..'...l'.""

SBTTL

TEST 30 - USYRT RECEIVER MSG TEST = CHAR MODE,

CRC

i* THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU) WiTh
:* LULP (REG 12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, AND wlTH (R(=16

M8203 STATIC DIAG #1
18=JUL=79 09:44
P11

MACY11

K 12

30A(1052)
_18-JuL=79 09:53 PAGE 7-113
TEST 30 = USYRT RECEIVER MSG TEST = CHAR MODE,

CRC

SEQ 0153

;* SELECTED. TWO SYNCHS, 000,125,252,377,000, AND FOUR TERMINATING SYNCHS ARE
:» SENT. THE PROGRAM MONITORS IACT, AND THE RCV'D CHARS AND CRC BYTES ARE READ
;* FROM AX0-15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHE(CKS FOR IACT

;* = 0 AFTER RECEIVER SHUTDOWN.
AL

SRS

2222322222222

BGNTST

002362

130

MOV
JSR

#24% ,RETADR
PC ,MSTCLR

sSET TEST EXIT ADDRESS FOR ERRORS
s ISSUE MASTER CLEAR
;PROGRAM THE USYRT

002400

000
000
MOV

#12 ,REGNUM

sSET LU REG NO. = 12

002366

mMovB

#LULP ,WRIBYT

JSR
PC,SETUP
SYNCH
STRIP!IERR!DDCMP

CLR

3%:

005226

003224
006666

108:

004076
002370
177776

002370
004500

JSR
CMP

PC.LDTXSI
R1,AMSG1+22.

;LOAD CHAR INTO TX SILO
sSEE IF ALL MSG CHARS LOADED YET

JSR

PC,STPLU

sCLOCK LU FOR 40 CYCLES

MOV

(R1) +, TXWORD

3s
PC,WAITS0

:GET CHAR TO BE LOADED

:BR IF NOT YET
;ALLOW DATA TO RIPPLE IN SILO
:

PC.IACTIV

;CHK IACT = 0

gSR

PC.STPLU

;CLOCK LU UNTIL

MOV

#MSG1+4
R1
PC,IACTIV

sCHK JACT =1

JSR

PC ,READAX

;READ AXO0

MOV
MOV
JSR

=2(R1) ,GOODAT
RAX15 ,BADDAT
PC,GE TALL

;GET EXPECTED DATA
sGET ACTUAL DATA

ERRDF

26,EM26 ,ERR3

{SR

RAX15,(R1)+
12%

(UNTIL FIRST

DATA CHAR IS ABOUT TO BE RECEIVED)

6SR

CMP
BEQ

002404
002406

= 0 FOR AX0

sSET LULP IN REG 12
;GET POINTER TO MSG DATA TABLE

40.

006666

;SET AX BYTE NO.

PC,WRITLU
#MSG1,R1

BLO
JSR

005120
005226

031254
031262

JSR
MOV

AXNUM

1ST DATA (CHAR IS RCV'D

; COMPARE RCV D CHAR TO EXPECTED
:BR_IF RCV'D DATA OK

:GET REGS FOR PRINTOUT

031442

222222222

:REPORT INCORRECT DATA CHAR RCV'(

031266
031266
031270

TRAP

ggERDF

.WORD

EM26
ERR3

.WORD
.WORD

005226

12%:

003236

248
PC,STPLU

;CLOCK LU 8 CYCLES

CMP

R1,4MSG1+14.

:SEE IF CHECKING HI

#sn

PC,IACTIV

“CHK IACT
= 1

JSR
CMPB
BEQ
MOV

PC ,READAX
RAX15,4160
16%
#160,GOODAT

BLO

006666

002376 000160
000160

BR
éSR

002404

10§

*BR IF NOT YET

CRC BYTE YET

;READ AX0
:CMP RCV'D CHAR TO EXPECTED HI CRC BYTE
*BR IF HI CRC BYTE RCV'D OK
sGET EXPECTED DATA

CZDMRA M8203 STATIC DIAG #1
18-JuL~ 79 09:44
CZDMRA.P11

9578
9579
9580
9581
(4)

031344
031352
031356

(%)
(5

013737
004737

002370
004500

L 12

MACY11 30A(1052)
_18=JuL=79 09:53 PAGE 7-114
TEST 30 = USYRT RECEIVER MSG TEST = CHAR MODE, CRC
002406

000010
00473{

005226

000034
004076
002370

MOV
JSR

B8R

168:

002404
000034

003576

24%:

ENDTST

;SET ACTUAL DATA
“GET REGS FOR PRINTOUT
TRAP

24$

PC,STPLU

;CLOCK LU FOR 8 CYCLES

#éa

PC,IACTIV

;CHK IACT =1

MOV

#034 , GOODAT
PC,READAX
RAX15,4034
14$
PC,STPLU

;GET EXPECTED LO CRC BYTE

*READ AX0
:CMP RCV'D CHAR TO EXPECTED LO CRC BYTE
*BR IF LO CRC INCORRECT
*CLOCK LU 8 CYCLES

3éa

PC,IACTIV

:CHK IACT = 0

JSR

PC,MSTCLR

;ISSUE CLEAN-UP MASTER CLEAR
L10062:

SRR

.SBTTL

CSERDF

27
EM27
ERR3

.WORD
.WORD
.WORD

gsn

JSR
CMPB
BNE
gsn

005226

031446
031446
031446

RAX15,BADDAT
PC,GE TALL

;REPORT INCORRECT CRC BYTE RCV'D
ERRDF
27.EM27,ERR3

104455

000033
013075
015114
000425
004737

148:

SEQ 0154

A A A A A AR A A

TRAP

AR R AR A AR R AR A AR AR AR AR AR AR AR AR R AR R P AR AN A RA N AR

TEST 31 - USYRT RECEIVER MSG TEST - BIT MODE, CRC

CSETST

AR AR RN

:* THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU) WITH

;*
;*
;*
:*
;*

LULP (REG_12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, AND WITH CRCCCITT=1. TWO FLAGS, 000,125,252,377,000, AND TWO TERMINATING FLAGS ARE THEN
SENT. THE PROGRAM MONITORS IACT, RSOM, AND THE RCV'D CHARS ARE READ
FROM AX0-15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR
IACT = 0, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT STILL = 0.

031450
031450
031450

BGNTST
032004
003576
010612

E it
It
I
1132332233222 2232223;

MOV

002362

JSR
JSR

000

#24$,RETADR

;SET TEST EXIT ADDRESS FOR ERRORS

PC.MSTCLR
PC,SETUP

s ISSUE MASTER CLEAR
:PROGRAM THE USYRT

#12 ,REGNUM

sSET LU REG NO. = 12

IERR

000
000
MOV

002400
002366

031532

3%:

CLR
MovB
JSR
MOV

MOV
JSR

AXNUM
#LULP ,WRIBYT
PC,WRITLU
#MSG1,R1

(R1)+, TXWORD

PC,LDTXSI

:SET AX BYTE NO. = 0 FOR AX0

sSET LULP IN REG 12

;GET POINTER TO MSG DATA TABLE

;GET CHAR TO BE LOADED

;LOAD CHAR INTO Tx SILO

CZDMRA M8203 STATIC DIAG M
CZDMRA.P11
18=JUL=79 09:44
031536
031542
031544
031550
031554

Mm12

MACY11 30A(1052)
_18=/UL-79 09:53 PAGE 7-115
TEST 31 = USYRT RECEIVER MSG TEST = BIT MODE, CRC

003242

cMP
BLO
JSR

005120
005226

8SR

PC,RSEOM

;CHK RSOM = 0, REOM = 0

ZSR

PC.STPLU

sCLOCK LU UNTIL 1ST DATA CHAR IS RCV'D

MOV
CMP
BNE

#MSG1+4 ,R1
R1,AMSGT +4
6%
PC,IACTIV

;SEE IF 1ST CHAR RCV'D
:BR IF NO

sCHK IACT

#SR

PC,RSEOM

;CHK RSOM = 1, REOM = 0

BR
CMP
BNE

9%
R1,AMSG1+12.
8%

sSEE IF LAST CHAR RCV'D
:BR IF NO

006666

007054
005226

003224
003224

5%:

006666

#SR

007054

6%:

003234
006666

007054
8%:

006666

007054
004076
002370

031716

PC,IACTIV

SEE IF ALL MSG CHARS LOADED YET
BR IF NOT YET
ALLOU DATA TO RIPPLE IN SILO
sCLOCK LU FOR 50 CYCLES (UNTIL FIRST
:
DATA CHAR IS ABOUT TO BE RECEIVED)
sCHK IACT = 0

JSR
50.
8SR

177776
002370
004500

9%:

002404
002406

005226

12%:

003236

8SR

PC,IACTIV

;CHK FOR IACT = 0

3SR

PC,RSEOM

;CHK RSOM = 0, REOM = 0

#SR

PC,IACTIV

;CHK FOR IACT =1

6SR

PC.RSEOM

sCHK RSOM = 0, REOM = 0

JSR

PC ,READAX

sREAD AX0

MOV
JSR

RAX15 ,BADDAT

:GET ACTUAL DATA

CMP
BEQ
MOV

RAX15,(R1)+
12%
=2(R1) ,GOODAT
PC,GE TALL

: COMPARE RCV D CHAR TO EXPECTED
:BR IF RCV'D DATA OK
;GET EXPECTED DATA
:GET REGS FOR PRINTOUT

002366

24%:

248

TRAP

.WORD
.WORD
.WORD

gsn

PC.STPLU

:CLOCK LU 8 CYCLES

cMP

R1,4#MSG1+14.

;SEE IF ALL DATA CHARS CHECKED YET

(J)sn

PC,IACTIV

“CHK IACT
= 0

(J)sn

PC,RSEOM

;CHK RSOM = 0, REOM = 0

MOV
JSR
5SR

#1C,WRIBYT
PC,WRITLU
PC,IACTIV

sSET IC (INPUT CLEAR)
;CHK IACT = 0

JSR

PC,MSTCLR

s ISSUE CLEAN-UP MASTER CLEAR

BLO

007054

003576

:REPORT INCORRECT DATA CHAR RCV'D
ERRDF
26 ,EM26.ERR3

031722
031722

000200
003722
006666

R1,#MSG1+18.
3%
PC.WAITS0
PC,STPLU

SEQ 0155

:BR IF NOT YET

IN REG 12

CSERDF
26
EM26
ERR3

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P1
18=JUL=79 09:44

9679
(3
(3)

032010
032010
032010

N 12
18-JUL=79 09:53 PAGE 7-116
MACY11 30A(1052)
TEST 31 = USYRT RECEIVER MSG TEST - BIT MODE, CRC
ENDTST

L10063:

104401

SEQ 0156

AR A

R R A

AR AR AR AR AR AR AR AR AR AR

AR AR

TRAP

RN R

AR AR

CSETST

TEST 32 = USYRT RECEIVER MSG TEST - CHAR MODE, NO CRC

.SBTTL

't THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU) WITH
;* LULP (REG 12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, AND WITH NO

:* ERROR DETECTION. TWO SYNCHS, 000,125,252,377,000, AND TWO SYNCHS ARE
;* THEN SENT.

THE PROGRAM MONITORS IACT. AND THE RECEIVED CHARS ARE READ FROM

;* AX0-15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR IACT
;* STILL = O, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT = 0.

ttttttttt'.tttttt.t'QtttQQfittt.ttitttQfi.tttQttQ.Q.t'.t.tttt"'...'t"t't'.Q.'i

BGNTST

032254
003576
010612

002362

MOV
JSR
JSR
SYNCH

#24$ ,RETADR

PC,MSTCLR
PC,SETUP

132::

;SET TEST EXIT ADDRESS FOR ERRORS

+ISSUE MASTER CLEAR
;PROGRAM THE USYRT

CRC2!CRC1!STRIP!IERR!DDCMP
000
000

177776

032174
032200
032200
032202

sSET LULP IN REG 12
;GET POINTER TO MSG DATA TABLE
;GET CHAR TO BE LOADED

PC,JACTIV

SCHK TACT
= 0

JSR

PC,STPLU

sCLOCK LU UNTIL 1ST DATA CHAR IS RCV'D

#LULP ,WRIBYT
PC,WRITLU

PC.LDTXSI

§1.0H561*18.

PC,STPLU

;CLOCK LU FOR 24 CYCLES (UNTIL FIRST
;

DATA CHAR IS ABOUT TO BE RECEIVED)

#MSG1+4 ,R1
MoV
JSR
PC,IACTIV
;CHK IACT =1
1
PC ,READAX
JSR
sREAD AX0
CMP
RAX15, (R1) +
:COMPARE RCV'D CHAR TO EXPECTED
12%
BEQ
:BR IF RCV'D DATA OK
MOV
=2(R1) ,GOODAT
;GET EXPECTED DATA
MOV
RAX15 ,BADDAT
sGET ACTUAL DATA
PC,GETALL
JSR
:GET REGS FOR PRINTOUT
sREPORT INCORRECT DATA CHAR_RCV'D
ERRDF
26 ,EM26 ,ERR3

10%:

004076
002370

002370
004500

#MSG1,R1
(R1)
+, TXWORD

PC,WAIT50

003224
006666

.SET LU REG NO. = 12
sSET AX BYTE NO. = 0 FOR AXO

sLOAD CHAR INTO TX SILO
sSEE IF ALL MSG CHARS LOADED YET
:BR IF NOT YET
sALLOW DATA TO RIPPLE IN SILO

005226

#12 ,REGNUM
AXNUM

MOV
CLR
MOvB
JSR
MOV
MOV
JSR
CMP
BLO
JSR
JSR
24.
JSR

002404
002406

TRAP

.WORD

CSERDF

(5)
(5)

013043
015114
000421

004737
000010
020127
103745

004737
000001
012737
004737

004737
000000
004737

MACY11

005226

B8 13

30A(1052)
_18-JuL-79 09:53 PAGE 7-117
TEST 32 = USYRT RECEIVER MSG TEST - CHAR MODE, NO CRC

12%:

003236

000200
003722
006666

003576

24%:

ENDTST

LWORD
.WORD

BR
gsn

248
PC,STPLU

;CLOCK LU 8 CYCLES

CMP

R1,AMSG1+14.

;SEE IF ALL 5 DATA CHARS RCV'D YET

#sn

PC,IACTIV

“CHK FOR IACT STILL = 1

MOV
JSR
5SR

#1C,WRIBYT
PC,WRITLU
PC.IACTIV

:SET IC (INPUT CLEAR)
“CHK IACT = 0

JSR

PC,MSTCLR

;ISSUE CLEAN-UP MASTER CLEAR

BLO

002366

SEQ 0157

108

*BR IF NOT YET

IN REG 12

L10064:

104401

AL LSRRttt Rl

.SBTTL

EM26
ERR3

TRAP

1222222222222

CSETST

222322222222]

TEST 33 - USYRT RECEIVER MSG TEST - BIT MODE, NO CRC

. %

s*
:*
;*
:*
;*

THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU) WITH
LULP (REG 12) SET TO LOOP THE DATA INTERNALLY_IN THE USYRT, AND WITH ERROR
DETECTION INHIBITED. TWO FLAGS, 000,125,252,377,000, AND TWO TERMINATING FLAGS
ARE THEN SENT. THE PROGRAM MONITORS IACT, RSOM, AND THE RCV'D CHARS ARE
READ FROM AX0=15 AND COMPARED TO EXPECTED VALUES. THE PROGRAM THEN CHECKS FOR
;* JACT = 0, SETS IC TO CLEAR THE RECEIVER, AND CHECKS FOR IACT STILL = O.
S

032262
032262
032262
032270

BGNTST
012737

032616
003576
010612

AR A A

AR AR AR AR

002362

MOV

002400

CRC2'CRC1!'IERR
000
000
MOV
#12 ,REGNUM

JSR
588

002366
3%:

#24% ,RETADR
PC,MSTCLR
PC,SETUP

A AR

AR AR R AR AR RN R R AR RN AR

;SET LU REG NO. = 12

JSR

PC,LDTXSI

;LOAD CHAR INTO TX SILO

BLO
JSR

3s
PC,WAITS0

;BR IF NOT YET
JALLOW DATA TO RIPPLE IN SILO

J§R

33.

(R1)+,TXWORD

R1,#MSG1+18.

PC,STPLY

6SR

PC,IACTIY

JSR

PC ,RSEOM

AAA AR

;ISSUE MASTER CLEAR
;PROGRAM THE USYRT

AXNUM
#LULP ,WRIBYT
PC,WRITLU
#MSG1,R1

MOV

T33::

CLR
MOVB
JSR
MOV

CMP

032376

A A A A

;SET AX BYTE NO.

= 0 FOR AX0

;SET LULP IN REG 12
;GET POINTER TO MSG DATA TABLE

;GET CHAR TO BE LOADED

;SEE IF ALL MSG CHARS LOADED YET
sCLOCK LU FOR 33 CYCLES (UNTIL FIRST

DATA CHAR IS ABOUT TO BE RECEIVED)

:CHK IACT =0

;CHK RSOM = 0, RECM = 0

AN RN

TMTM

CZDMRA M8203 STATIC DIAG #1
18-JuL~79 09:44
CZDMRA.P11

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44
9781
9782
9783
9 784
9785
9786
9787
9788
9789
9770
97N
9792

032402
032404
032410

000000
004737
000006
012701

MACY11

005226

PC,STPLU

003224
003224

#MSG1+4
,R1

R1,A#MSG1+4

006666

PC,IACTIV

;SEE IF 1ST CHAR RCV'D
:BR IF NO
;CHK IACT

007054

PC,RSEOM

;CHK RSOM

9794
9795
9796
9797
9798
9799
9800
9801
9802
9803

006666

PC,IACTIV

;SEE IF LAST CHAR RCV'D
;BR IF NO
;CHK FOR IACT =0

007054

PC,RSEOM

;CHK RSOM = 0, REOM = 0

007054

JSR

004076
002370
177776
002370
004500

9830

8%:

002404
002406

(4)

(5
(5
(5)
9811
9812
9813
9814
9815
9816
9817
9818
9819
9820
9821
2
9823
9824
9825
(3)
(3)
9826
9827
9828

1, REOM = 0

006666

9805
9806
9807
9808
9809
9810

9%
R1,AMSG1+12.

6%:

SEQ 0158

;CLOCK LU UNTIL 1ST DATA (CHAR IS RCV'D

003234

9793

c13

18-JUL=79 09:53 PAGE 7-118
30A(1052)
TEST 33 = USYRT RECEIVER MSG TEST - BIT MGDE, NO CRC

PC,IACTIV

:CHK FOR IACT = 1

PC .RSEOM

;CHK RSOM = 0, REOM = 0

PC ,READAX
JSR
;READ AXO0
RAX15, (R1)+
CMP
: COMPARE RCV D CHAR TO EXPECTED
BEQ
12%
:BR IF RCV'D DATA OK
MOV
=2(R1) ,GOODAT
;GET EXPECTED DATA
MOV
RAX15 ,BADDAT
;GET ACTUAL DATA
PC,GETALL
JSR
:GET REGS FOR PRINTOUT
;REPORT INCORRECT DATA CHAR RCV'D
26,EM26,ERR3
ERR DF
TRAP

005226

12%:

003236

007054
000200
003722
006666
003576
032622

002366

24%:
ENDTST

24%

JSR

PC,STPLU

CMP

R1,AMSG1+14.

.WORD
.WORD
.WORD

CSERDF
26
EM26
ERR3

;CLOCK LU 8 CYCLES
;SEE IF ALL DATA CHARS CHECKED YET

BLO
JSR

PC,IACTIV

;BR IF NOT YET

JSR

PC,RSEOM

;CHK RSOM = 0, REOM = 0

JSR
JSR

#1C,WRIBYT
PC,WRITLU
PC,IACTIV

sSET IC (INPUT CLEAR)
sCHK IACT = 0

PC ,MSTCLR

;ISSUE CLEAN-UP MASTER CLEAR

;CHK IACT = 0

IN REG 12

L10065:

TRAP

CSETST

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACYT1

%31

D13

30A(1052)
_18-JuL-79 09:53 PAGE 7-119
TEST 33 = USYRT RECEIVER MSG TEST = BIT MODE, NO CRC

SEQ 0159

tQ"tQ't"tt".t.tttt'tttt"ttt.'Q.'Qtttt't..tttt"'tttttt'."t.ttt.ttt.t.tt't

gg;g

SBTTL

9834

,- THIS TEST DISABLES THE SILOS, LOADS A 125 CHARACTER INTO THE TX SILO,

9837
9838
(3)
9839
9840
9841
9842
9843
9844
9845

p tttQtttttt.ttttt't.ttttQtttttt!tttttt!ttt'tt.ttit'tt.t"t.ttfitt"tt"tt'ttt'tt
BENTST
134::
JSR
PC MSTCLR
:ISSUE MASTER CLEAR
MOV
#14 ,REGNUM
*SET REG NO. = 14
MOV
#D1SSI,WRIBYT
:SET DISSI BIT
JSR
PC,WRITLU
MOV
#DISSI,DISILO
;SET DISABLE SILO FLAG
MOV
#125, TXWORD
:LOAD 125 INTO TX SILO
JSR
PC,LDTXSI

gggg

:® SLE;IF)ERA)U
=15 AND CHECKS THAT THE DATA DID NOT GET LOADED INTO THE USYRT TX
- %

032624
032624
032624
032630
032636
032644
032650
032656
032664

003576
000014
000040
003722
000040
000125
005146
000002
004076
002370

002426
002422

032710
032712

004737
012737
012737
004737
012737
012737
004737
012737
004737
123727
001414
012737

000000

002404

9852

032726

004737

004500

9854

032732

(5)

032734

9846
9847
9848

9849
9850

9851

9853
(4)

(5)
(5)
9855
9856
9857
(3)
(3)
9858
9859
9860
9861
9862

TEST 34 = SILO-DISABLED TRANSMITTER LOAD TEST

032670
032676
032702

032720

032732

032736
032740
032742
032746
032752
032752
032752

013737

002370

002400
002366

002402

MOV
JSR
CMPB

000000

#2 . AXNUM
PC .READAX
RAX15,4000

BEQ
MOV

00406

3
#000, GOODAT

MOV

RAX15,BADDAT

JSR

PC,GETALL

ERRDF

3,EM3,ERR3

JREPORT REG MISCG'PARE

104455

:SET REG NO. FOR AX1
*READ AX1-15, AX1-16
*CHECK FOR AX1-15 UNCHANGED

*BR IF UNCHANGED
*GET EXPECTED DATA

:GET ACTUAL DATA

*GET REGS FOR PRINTOUT

000003

012174
0215114
005037
004737

TRAP

CSERDF

.WORD
.WORD

EM3
ERR3

TRAP

CSETST

.WORD

002426
003576

3%:
ENDTST

104401

9863

CLR
JSR

DISILO
PC.MSTCLR

;CLEAR DISABLE SILO FLAG
:ISSUE MASTER CLEAR TO CLEAN UP
L10066:

tttttttttttttttfitttt'tttttttttttttttttttt*tttttt'ttttttttt'.itttt'tfitt.ttttttt

gggg

SBTTL

9866
9867

;t THE LINE UNIT IS INITIALIZED AND A MESSAGE IS INITIATED (USING STEPLU)
:* WITH LULP (REG 12) SET TO LOOP THE DATA INTERNALLY IN THE USYRT, WITH SILO

9869
9870

:* TERMINATING FLAGS ARE THEN SENT BY LOADING THE TRANSMITTED CHARS INTO
:* REG AX1. THE PROGRAM MONITORS OACT, IACT, RSOM, REOM., ORDY, OCOR, ICIR.

9873
9874
(3)
9875
9876
9877
9878

p tttttttttttttttttttttfi'ttttttttttttttttt.ttititttttttttttttttttttttt'tttt"ttfi
BENTST
T35::
MOV
#18%,RETADR
;SET TEST EXIT ADDRESS FOR ERRORS
JSR
PC, INITRN
SFIND OUT WHICH USYRT CHIP
0
0

9868

TEST 35 = SILO-DISABLED MESSAGE TEST - BIT MODE, NO CRC

;% DISABLE SET, AND WITH NO ERROR DETECTION. TWO FLAGS, 000.125.252. AND

gg;;

i 6§ELESAND THE RECEIVED CHARS ARE READ FROM AXO AND COMPARED TO EXPECTED
%

032754

032754
032754
032762
032766
032770

012737
004737
000000
000000

033654
005512

002362

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11

032772

18=JUL=79 09:44

004737
004737
000000
000302
000000

MACY11

E 13

18=JUL=79 09:53 PAGE 7-120
30A(1052)
TEST 35 = SILO-DISABLED MESSAGE TEST = BIT MODE, NO CRC

003576

JSR
JSR
000

010612

s ISSUE MASTER CLEAR

;PROGRAM THE USYRT

6RC2!CRC1!IERR

002400
002366

;SET REG NO. = 14

"2, REGNUM

TXEN AND DISSI IN REG 14
;SET DISABLE SILO FLAG
;SET LU REG NO. = 12

#MSG1,R1

sSET LULP IN REG 12
;GET POINTER TO MSG

#LULP,WRIBYT
PC,WRITLU

002402

4%:

MOVB

PC,OSIRDY

;CHK ORDY =1

#2 ,AXNUM
(R1)+,WAX15
(R1)+ ,WAX16

;SET AX BYTE NO. FOR AX1
;GET A (CHAR

PC.WRITAX
PC,OSIRDY

;LOAD CHAR INTO USYRT TX BUFFER
;CHK ORDY = 0

PC,O0ACTIV

;CHK OACT =0

PC,STPLU

;CLOCK LU FOR 3 CYCLES

PC,OACTIV

;CHK OACT =1

#4 ,R3
(R1)+,WAX15
(R1)+ ,WAX16

sINIT COUNTER

5%
CHPTYP
5%

002430

000002
004634

#14 ,REGNUM

#TXENIDISSI,WRIBYT
PC,WRITLU
sSET
#TXEN!DISSI,DISILO

002426
002400
002366

002376

#TEOM,WAX16
PC,OSIRDY

:GET ANOTHER CHAR
;SEE IF LOADING LAST DATA CHAR YET
:BR_IF NOT

;SEE IF SIG USYRT
‘BR IF YES
JSET TEOM WITH LAST DATA CHAR
= 1
;JCHK ORDY

004264
004634

PC,WRITAX
PC,OSIRDY

;LOAD ANOTHER CHAR INTO USYRT TX BUFFER

006666

PC,IACTIV

;CHK IACT = 0

007054

PC,RSEOM

JCHK RSOM = 0, REOM = 0

005226

PC,STPLU

;CLOCK LU FOR 8 CYCLES

005324

PC,O0ACTIV

;CHK OQACT =1

004634

PC,OSIRDY

;CHK ORDY = 1

R3
4%

;DECR COUNTER
;BR IF NOT DONE YET

CHPTYP

sSEE IF SIG USYRT

DEC

006402

033272

PC,MSTCLR
PC,SETUP

002430

PC,ISIRDY

TST

;CHK ORDY =

;CHK IRDY = 0

SEQ 0160

MB8203 STATIC DIAG #1
18=JUL=79 09:44
PN
033276

001007
105037
112737

004737
004737
000003
004737
000002
004737

000001
004737
000001
004737
000001
004737
000000

012737
123727
001415
012737
012737

004737

MACY11

SEQ 0161

BNE
CLRB
MOVB
JSR

1%
WAX1S

#TEOM,WAX16
PC,WRITAX

;LOAD EOM CHAR
:LOAD ANOTHER CHAR INTO USYRT TX BUFFER

006402

5SR

PC,ISIRDY

;CHK IRDY = 1

005324

#SR

PC,OACTIV

:CHK OACT = 1

006666

{sn

PC,IACTIV

;CHK IACT = 1

007054

{sn

PC ,RSEOM

;CHK RSOM = 1,

006402

5SR

PC,ISIRDY

:CHK IRDY = 0

MOV

#0 , AXNUM

;SET AX BYTE NO. FOR AX0

002374
000002
004264

002376

005226

118:

000000
002370

002402
000000

000000
002370
004500

002404
002406

6$:

%sn

CMPB
BEQ
MOV
MOV
JSR

PC.STPLU

RAX15,#000
9%
#0.GOODAT
#RAX15,BADDAT
PC,GETALL

:BR [F NOT

“CLOCK LU FOR 3 CYCLES

REOM = 0

*COMPARE RCV'D CHAR TO 000
*BR IF MATCH
“SET EXPECTED DATA
-SET ACTUAL DATA
*GET REGS FOR PRINTOUT

:REPORT INCORRECT DATA CHAR RCV'D
ERRDF
26,EM26,ERR3

104455

TRAP

.WORD
.WORD
.WORD

BR
gsa

18%
PC,STPLU

:CLOCK LU FOR 8 CYCLES

006402

één

PC,ISIRDY

:CHK IRDY = 1

005324

4sn

PC,OACTIV

;CHK OACT = 1

006666

{sa

PC,IACTIV

;CHK

007054

6SR

PC ,RSEOM

;CHK RSOM = 1, REOM = 0

006402

5SR

PC,ISIRDY

:CHK IRDY = 0

CMPB
BEQ
MOV

RAX15,#125
12%
#125,GOODAT

:COMPARE 2ND RCV'D CHAR TO 125
*BR IF MATCH
*SET EXPECTED DATA

gsn

PC.STPLU

*CLOCK LU FOR 8 CYCLES

006402

sén

PC,ISIRDY

:CHK IRDY = 1

005324

{sn

PC,OACTIV

:CHK OACT = 1

006666

5SR

PC,IACTIV

:CHK

007054

gsn

PC,RSEOM

;CHK RSOM = 0, REOM =

006402

JSR

PC,ISIRDY

:CHK

005226

9%:

002370

000125

002404

005226

033554

F13
30A(1052)
18=JUL=79 09:53 PAGE 7-121
TEST 35 = SILO-DISABLED MESSAGE TEST = BIT MODE, NO CRC

12%:

B8R

IACT = 1

*BR TO REPORT ERROR

IACT = 0

IRDY = 0

CSERDF

26
EM26
ERR3

M8203 STATIC DIAG #1
18-JUL=79 09:44
PN

033560
033562
033570
033572
033600
033602
033610

MACYT1

002370

000252

002404

000014

002400
002366

30A(1052)

_18-JuL=79

G 13

PAGE 7-122

TEST 35 = SILO-DISABLED MESSAGE

0
(MPB
BEQ
14%:

002400
002366

18%:

ENDTST

6%
#14 ,REGNUM

:BR TO REPORT ERROR
:SET REG NO. = 14

MOV
JSR

#DISSI ,WRIBYT
PC,WRITLU

MOV

#11,REGNUM

JSR

PC,WAITSO

sSET EXPECTED DATA

#0C ,WRIBYT
PC,WRITLU

CLR
JSR

;CLEAR TX ENABLE

;SET REG NO. = 1

;SET OC TO SHUT DOWN TRANSMITTER
;WAIT FOR SHUTDOWN

PC.OACTIV

SEQ 0162

;COMPARE 3RD RCV'D (HAR TO 252
:BR IF MATCH

#252,GO0ODAT

MOV
JSR

TEST = BIT MODE, NO CRC

RAX15 ,4252
14%

MOV

BR
MOV

JSR

002426
003576

09:53

;CHK FOR OACT = 0

DISILO
PC,MSTCLR

;CLEAR DISABLE SILO FLAG
;ISSUE MASTER CLEAR TO CLEAN UP

L10067:

TRAP

CSETST

g tt'tttt't*tttitttttQttti'ttti.tfittfit.fit.l'ttt'tt!tttfit'lttflttt'.tt'.'tt..t"'t

LSBTTL

TEST 36 - RECEIVER BUFFER TEST - CHAR MODE, CRC

e
IR I TR
R IR

A MASTER

CLEAR

IS DONE AND

AND

IRDY

IT CHECKS FOR ICIR = O,

'Q
l
e

002362

CHAR FOR 000, AND CHECKS FOR IRDY = 0 AGAIN.
IRDY = 1.

THE REST OF

THE SECOND DATA CHAR IS READ FROM THE
THEN,

THE PROGRAM CHECKS FOR ICIR = 1,

THE BINARY COUNT DATA BYTES ARE

COMPARED A BYTE AT A TIME.
s

MOV

#A10 ,RETADR

CYCLED 8 CLOCKS AND READ AND
2232233232222

%222223232222222;

T36::
;SET TEST EXIT ADDRESS FOR ERRORS

* DO MASTZR CLR, CHK FOR ICIR = 1, IRDY = 0
033674
033700
033704

004737
004737
00. 201

003576
006402

J3R
#SR

PC,MSTCLR
PC,ISIRDY

s ISSUE MASTER CLEAR
;sCHK ICIR = 1, IRDY = 0

: LOAD AND CLOCK 2 SOM'S, LOAD 64 BYTES OF BINARY COUNT PATTERN INTO TTMX SILO,
;

033706

004737

005512

THE

THE LINE UNIT IS THEN CLCCKED IN GROUPS OF 8 CYCLES, AND AFTER EACH, THE
PROGRAM CHECKS FOR ICIR = 1, IRDY = 1, UNTIL THE 64TH GROUP, AFTER WHICH

AL SRS

N34142

ICIR =

THE LINE UNIT IS THEN CLOCKED UNTIL IRDY = 1, AND THE PROGRAM CHECKS FOR
THIS TO OCCUR WITHIN 40-43 CYCLES. THE PROGRAM READS THE RCV SILO, CHECKS

B GNTST
012737

PROGRAM CHECKS FOR

0. THEN, 2 SOM CHARS ARE LOADED AND CLOCKED INTO THE USYRT, AND 64
?LEE¥X0§If0256-BYTE BINARY COUNT DATA PATTERN (000-377) ARE LOADED INTO

?SgslvE? zék?NAND COMPARED TO 001.

033666
033666
033666

THE

LAB BIRBB BB

FIRST

Nan,

* %

CLOCK LINE UNIT,
JER

CHK FOR IRDY 1 WITHIN 40-43 CYCLES

PC, INITRN

;LOAD 2 SOM'S,

CLOCK THEM INTO USYRT

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

033712
033714
033716
033720
033724
033730

MACY11

30A(1052)

09:53

000226

SYNCH
STRIP!DDCMP

002422
005146

H13

PAGE 7-123

TEST 36 ~ RECEIVER BUFFER TEST = CHAR MODE, CRC

000011

2%:

000100

CLR
MOV

R3
R3, TXWORD

s INIT BINARY COUNT DATA FOR WRITING

R3,#64.
2%

;SEE IF 64 BYTES LOADED YET
;BR IF NOT YET

Pg.LDTXSI
R

;LOAD A DATA BYTE
s INCR DATA

INTO TX SILO

23R

PC,RCVIST

JRECEIVE AND TIME FIRST CHARACTER

; READ RCV SILO, COMPARE FIRST (CHAR TO 000, CHK FOR ICIR = 1,

033746
033750
033754
033756
033760
033762
033766

007722

006402

3%:
16%:

SEQ 0163

<SR
*NC

CMP
BLT

007406

033744

18=JuUL=79

CLR
JSR

R4
PC,CKDATA

INC
JSR

R4
PC,ISIRDY

0
0
7

IRDY

;INIT PATTERN FOR READING
sREAD RCV SILO, COMPARE DATA

;EXPECTED DATA = 000
sDON'T CLOCK LINE UNIT

s INCR DATA FOR READING
;CHK FOR ICIR = 1, IRDY = 0

* CLOCK 63 CHARS INTO RCV SILO, CHK ICIR = 1, IRDY = 1
033770
033774
033776
034002
034006
034010
034014
034016
034022

005226

188%:

éSR

MOV

002422
005146

JSR

INC
%SR

006402

000177

CMP
BLT

PC,STPLU

R3, TXWORD

:g.LDTXSI

;CLOCK LU FOR 8 CYCLES

;LOAD ANOTHER WORD INTO TX SILO

PC,ISIRDY

:INCR PATTERN FOR WRITING
;CHK ICIR = 1, IRDY =1

R3,4127.
18%

;SEE IF 63 MORE CHARS CLOCKED YET
:BR IF NOT YET

: CLOCK 1 MORE CHAR INTO RCV SILO, CHK ICIR = 0, IRDY = 1
034024
034030
034032
034036

004737
000010

004737
000002

005226

gSR

PC,STPLU

;CLOCK LU FOR 8 CYCLES

006402

5SR

PC,ISIRDY

;CHK ICIR = 0,

IRDY =1

sREAD, COMPARE, CLOCK REST OF DATA (CHARS
010437
004737
000000
000000
005204
020427

001427
004737
000003
004737
000010
020327
003007
010337

034050
007722

000400

006402
005226

000377

002422

208:
21%:
22%:

MOV
JSR

0
0

R4,21$

PC,CKDATA

INC
CMP

R4
R4 ,#400

%SR

PC,ISIRDY

gSR

PC.STPLU

CMP

R3,4377

BEQ

BGT
MOV

32%

24$
R3, TXWORD

;SET EXPECTED DATA

sREAD AND COMPARE DATA

SEXPECTED SILO ENTRY GOES HERE
;DON'T CLOCK LINE UNIT
s INCR DATA PATTERN FOR READS
sSEE IF ALL DONE READING YET

;BR IF DONE READING
;CHK ICIR = 1,

IRDY =1

;CLOCK LU FOR 8 CYCLES
sSEE IF ALL CHARS LOADED INTD TX SILO YET
:BR IF YES

(ZDMRA M8203 STATIC DIAG #1
CZOMRA.P1T
18=JUL=79 09:44

KILLRAC2S

JSR

002422

003576

PC.LDTXSI

SEQ 0164

;LOAD ANOTHER CHAR INTO TX SILO

INC
JMP
MOV

s INCR DATA PATTERN FOR WRITING

328

JSR
JMP

R3
20%
#TXEOM, TXWORD
PC,LDTXSI
20%

;LOAD EOM INTO TX SILO

A10:

JSR

PC ,MSTCLR

s ISSUE MASTER CLEAR TO CLEAN UP

24%:

ENDTST

L10070:

104401

VNN
W =000~

i e
D
) D
e

A A

A AR A A AR

A A AR AR AR AT A AR R AR R AR AR AR AR R AR AR AR

;*
:x
;#
:*

TEST 37 - RECEIVER CHAR LENGTH TIMING TEST = CHAR MODE, NO CRC

INITIATED WITH 2 SYNCH CHARS. NEXT, FIFTEEN 000 CHARS ARE LOADED INTO THE

:* FLAGS OCCUR THE PROPER NO.

CYCLES APART,

FOR EACH RCV CHAR LENGTH.

:* (FOR EXAMPLE A 5-BIT CHAR TAKES 5 CLOCK CYCLES TO BE RECEIVED). A MASTER
:* CL°AR IS THEN DONE TO TERMINATE THE OPERATION.

034342
005512

WWWWWWW

b
b

b acb

e
i

b
b
b cd

b and

eleloleololeolele)

TRANSMITTER SILO. THE LINE UNIT IS THEN CLOCKED USING STEPLU WITH LULOOP
SET, WHILE THE RECEIVER CHAR LENGTH IS SET TO THE FOLLOWING VALUES : 5.6,7.8.
FOR EACH RCV_CHAR LENGTH, THE PROGRAM CHECKS TO MAKE SURE THET USYRT RECEIVER

;:ttt

10129

AR AR AR

:* THE LINE UNIT IS PLACED IN CHAR MODE, WITH NO ERROR DETECTION, AND A MSG IS

d e e

)

A A

22233332323233322322132232222222222222222222223

BGNTST

CSETST

—d e

—

A A A A A A

.SBTTL

D e

D d

e R

10120

TRAP

113

30A(1052)
_18=JuUL=79 09:53 PAGE 7-124
TEST 36 = RECEIVER BUFFER TEST = CHAR MODE, CRC

005146

034040
001000
005146
034040

004737

2 = OOO

D
D
e
) D
)
D
D
e
—d

034112
034116
034120
034124

D
N PN

cld cld
s
b
b

(elolelolololeololalelolololols)]

(olelelele]

10096
10097

MACY11

002362

000017
002422
005146

005120
000006
000000
000005
004264
005226

MOV

ISR

38:

002402
002374
002376

000006
004264
007406

002376

000007
004264
011046

002376

000000
004264

002376

#24$ ,RETADR

PC,INITRN

;SET TEST EXIT ADRS FOR ERRORS

:DO MASTER CLR,

LOAD 2 SOM'S

CRC2!CRC1!
IDLE ! DDCMP
MOV
#15. Ri

:INIT COUNTER

JSR

PC,LDTXSI

:LOAD A 000 CHAR INTO TX SILO

PC,WR] TAX

:LOAD AX3

CLR

TXWORD

DEC
BNE
JSR
MOV
MOV
MOV

R1
:DECR COUNTER
3$
:BR IF NOT DONE LOADING YET
PC,WAIT50
:WAIT FOR SILO TO RIPPLE
#6 AXNUM
:SET BYTE NO. = 6 FOR AX3
#000,WAX15
:SET DATA FOR AX3-15 = 0
#RXLEN2
' RXLENO,WAX16 ;SET RCV LEN = S

JSR

PC.STPLU

JSR

:CLK LU UNTIL

TX'ING 1ST DATA CHAR

CHPCHK ! 10.
MOV
#RXLEN2 'RXLENT,WAX16 ;SET RCV LEN = 6

JSR

PC,WR] TAX

:LOAD AX3

JSR

PC,RCVIST

MOV

#RXLEN2 ! RXLEN1 'RXLENO,WAX16 ;SET RCV LEN = 7

JSR

PC ,RXCHAR

JSR

MOV
JSR

:CLOCK 5-BIT DATA CHAR

PC,WR] TAX

;LCAD "AX3

#0,WAX16

;SET RCV_LEN = 8

PC,WRITAX

:RCV 5-BIT DATA CHAR,
:LOAD AX3

CLK 6=BIT

(ZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
10149
10150

10151
10152
10153
10154
10155

10156

(3)

10157

004737
000007
004737
000010
004737
000010
004737

MACYT1

J 13

30A(1052)
_18=JuL=79 09:53 PAGE 7-125
TEST 37 = RECEIVER CHAR LENGTH TIMING TEST = CHAR MODE, NO CRC

011046

;sn

PC ,RXCHAR

;RCV 6=BIT DATA CHAR,

CLK 7-BIT

011046

ésa

PC ,RXCHAR

;RCV 7-BIT DATA CHAR,

CLK 8-BIT

011046

één

PC ,RXCHAR

;RCV 8-BIT DATA CHAR

JSR

PC,MSTCLR

;ISSUE MASTER CLEAR TO CLEAN UP

24%:

003576

ENDTST

L10071:

104401

SEQ 0165

TRAP

CSETST

10158
10159

10160

10161
10162
10163
10164
10165

.,
..

10170
10171
10172
10173
10174

10180

10181
10182
10183
10184

10185

10186

10187
10188
10189
10190
10191
10192
10193
10194

10195

10196
10197
10198
10199
10200

10201

l'l.l'.

10169

10176
10177
10178
10179

AL AL ALALE

SBTYL

10166
10167
10168

(%)
10175

THE

ARl

00c362

000017
002422
005146

LINE UNIT

005120
000006
000000
007406

002402
002374

000000
004264
011046

002376

000007
004264
011046

002376

000006
004264
011046

002376

000005

002376

IS PLACED

IN BIT MODE WITH NO ERROR DETECTION,

AND A MESSAGE

WITH 2 FLAG CHARS. NEXT, FIFTEEN 000 CHARS ARE LOADED INTO THE

SET, WHILE

THE RCV CHAR LENGTH IS SET TO THE FOLLOWING VALUES

TRANSMITTER SILO.

THE LINE UNIT

IS THEN CLOCKED USING STEPLU WITH LULOOP

8,8,8,7.6.5.

A R R

MOV

533

3%:

INITIATED

BGNTST
034642
005512

TEST 38 = RECEIVER CHAR LENGTH TIMING TEST = BIT MODE, NO CRC

:» A MASTER CLEAR IS
S

THEN DONE

#24% ,RETADR
PC, INITRN

TO TERMINATE

THE OPERATION.

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

:DO MASTER CLR,

LOAD 2 SOM'S

sINIT COUNTER

JSR
DEC
BNE
JSR
MOV

PC,LDTXSI
R1
3$
PC.WAITSO
#6 .AXNUM

:LOAD A 000 CHAR INTO TX SILO
*DECR COUNTER
*BR IF NOT DONE LOADING YET
:WAIT FOR SILO TO RIPPLE
*SET BYTE NO. = 6 FOR AX3

ign

PC,RCVIST

:CLOCK FIRST 8-BIT DATA CHAR

MOV
MOV

JSR
ésn

MOV
JSR
éSR

TXWORD

#000, WAX15
#0,WAX16

PC.WR]TAX
PC.RXCHAR

*SET DATA FOR AX3-15 = 0
;SET RCV LEN = 8

*LOAD AX3
*RCV FIRST 8-BIT DATA CHAR,

PC,WR]TAX
PC _RXCHAR

:LOAD "AX3
*RCV SECOND 8-BIT DATA CHAR,

#RXLEN2 'RXLENT, WAX16

%sa

PC .RXCHAR

MOv

CLK SECOND 8-8IT

#RXLENZ 'RXLENT!RXLENO ,WAX16 :SET RCV LEN =

MOV

JSR

AR AR AR

:SET TEST EXIT ADRS FOR ERRORS

CRC2!CRC1
MOV
#15. R
CLR

PC,WR]TAX

3RD 8-BIT

-SET RCV LEN = 6

;LOAD Ax3

*RCV 3RD 8-BIT DATA CHAR,

#RXLENZ !RXLENO,WAX16

CLK

sSET RCV LEN = 5

(LK 7-BIT

MB202 STATIC DIAG #1

18=JUL=79 09:44

004737
004737
000006

MACY11

K13

30A(1052)
_18=JUL=79 09:53 PAGE 7-126
TEST 38 = RECEIVER CHAR LENGTH TIMING TEST = BIT MODE. NO CRC

004264
011046
000004
004264
011046

002376

000003
004264
011046

002376

000002
004264
011046

002376

000001
004264
011046

002376

JSR
ésn

PC,WRITAX
PC .RXCHAR

;LOAD AX3
*RCV 7-BIT DATA CHAR,

CLK 6-BIT

MOV
JSR

#RXLEN2 ,WAX16
PC,WR]TAX

:SET RCV LEN = 4
*LOAD AX3
*RCV 6-BIT DATA CHAR,

(LK 5-BIT

MOV

#RXLENT 'RXLENO, WAX16

iSR

PC .RXCHAR

%sn

JSR

011046

003576

PC.RXCHAR

248:

ENDTST

SEQ 0166

-SET RCV LEN = 3

PC,WRITAX

:LOAD AX3

*RCV 5-BIT DATA CHAR,

CLR 4=-BIT

MOV
JSR
ésa

#RXLENT,WAX16
PC,WRITAX
PC.RXCHAR

:SET RCV LEN = 2
:LOAD AX3
tRCV 4=-BIT DATA CHAR,

CLK 3-BIT

MOV
JSR
ésn

#RXLENO,WAX16
PC,WR]TAX
PC.RXCHAR

:SET RCV LEN = 1
:LOAD AX3
*RCV 3-BIT DATA CHAR, CLK 2-BIT

4sn

PC,RXCHAR

;RCV 2-BIT DATA CHAR,

JSR

PC,MSTCLR

;ISSUE MASTER CLEAR TO CLEAN UP

CLK 1-BIT

L10072:

104401

TRAP

CSETST

:;tittttttfittt*tfitfitttt.ittfittttfifittttfi*tQtttfittfit'Qttfittt.tttifi'tittttt.t'ttQ..

SBTTL

TEST 39 - TRANSMITTER UNDERRUN ERROR,

IDLE MARKING, CHAR MODE.NO CRC

. %

;* THE LINE UNIT IS PLACED IN CHAR MODE,
;* MSG IS INITIATED, A 000 CHAR IS SENT,

IDLE BIT IS SET. THEN, A
TX BUFFER IS NOT SERVICED
;* IN RESPONSE TO THE USYRT TX BUFFER EMPTY FLAG, WHICH CAUSES A TX UNDERRUN
;* ERROR. THEN, THE RECEIVER IS CLOCKED AND CHECKED FOR TWO 377 CHARS TO BE
;* RECEIVED (LINE MARKING) BEFORE SHUTTING DOWN WITH A MASTER CLEAR.
R

SRR R

R ittt
22222322

BGNTST

012737

034732
005512

002362

000000
005146
005226

002422

007326
007722
007722

AND THE
AND THE

MOV
JSR

SYNCH

#24% ,RETADR
PC,INITRN

CRC2'!CRC1!IDLE'DDCMP
MOV
#000, TXWORD

T39::
sSET TEST EXIT ADDRESS FOR ERRORS
;MST CLR, LOAD 2 SOM'S

JSR
g?R

PC,LDTXSI
PC.STPLU

:LOAD 000 CHAR INTO TX SILO
*CLOCK LINE UNIT UNTIL LINE GOES MARKING

JSR

PC ,RDRXSI

;READ 000 CHAR

PC,CKDATA

;READ AND CHECK FOR ANOTHER MARK CHAR

i??

000

%gg

000

PC . CKDATA

*READ AND CHECK FOR MARK CHAR

(377)

CZDMRA MB8203 STATIC DJAG #1
CZDMRA.P11
18=JUL=79 09:44
10255
10256
(3)

(3)

10257

034732
034736
034736
034736

004737

MACY11

003576

L 13

30A(1052)
_18=JuL-79 09:53 PAGE 7-127
TEST 39 - TRANSMITTER UNDERRUN ERROR,

24%:

JSR

ENDTST

PC,MSTCLR

IDLE MARKING, CHAR MODE ,NO CRC

s ISSUE MASTER CLEAR TO (LEAN uP

L10073:

104401

A A A

.SBTTL

A AR AR

SEQ 0167

AR A AR AR R AR AR AN AR AR

AR AR AR A AR AR

AR AR AR AR

TRAP

CSETST

ARk

TEST 40 = MSG TERMINATION WITH GA CHARS - BIT MODE,NO CRC

. %

i* THE DEVICE IS ENABLED FOR TRANSMIT AND RECEIVE, AND A MESSAGE IS
i» INITIATED IN BIT MODE.
i% 2 FLAG CHARACTERS ARE SENT, FOLLOWED BY
:*

ix
;%
:*
:%
i»
ix
:»

THE FOLLOWING DATA CHARACTERS

000,

125,

252,

377,

000.

THEN THE LOOP

MODE BIT (STRIP) IS SET AND 2 TERMINATING GO-AHEAD CHARACTERS ARE
SENT. EACH USYRT RCV FLAG IS TIMED AS IT IS RECEIVED, AND THE 5 DATA
WORDS ARE READ AND COMPARED TO EXPECTED VALUES.
ALSO, THE FIRST GA CHAR IS CHECKED BY SCANNING THE TXDATA BIT AS THE GA
IS BEING TRANSMITTED (GA = 376 OCTAL).
THE TEST ALSO CHECKS FOR SETTING OF RAB AND EBLK
IN LOOP MODE.

;:'t*ttfit'tfiitt't.'ttfittittttttfittfittttfittt'.*tfit*ittttttfifittt'tttt't'tt

BGNTST

012737
004737
000000
000
004737
003224
000005

035074
005512

MOV

333

#24$,RETADR
PC, INITRN

CRC2!CRC1!STRIP

010770

:SET TEST EXIT ADRS FOR ERRORS
*MST CLR,

LOAD 2 SOM'S

JSR
gsc1+4

PC,LODMSG

MOV
JSR
JSR
JSR
JSR

#TXGOA
! TXEOM, TXWORD
PC,LDTXSI
;LOAD A GA CHAR INTO TX SILO
PC.LDTXS]
*LOAD ANOTHER GA
PC.WAIT50
*ALLOW SILO TO RIPPLE
PC.STPLU
*CLOCK LU UNTIL GA CHAR IS TX'ING

%?2

PC,CKTBIT

;SCAN TXDATA BIT FOR GA CHAR

JSR

PC,CKDATA

;RCV 000 CHAR,

CLK 125

007722

{gg

PC,CKDATA

:RCV 125 CHAR,

CLK 252

007722

JSR
552

PC,CKDATA

:RCV 252 CHAR, CLK 377

007722

JSR
377

PC,CKDATA

:RCV 377 CHAR

JSR

PC,CKDATA

;RCV 000 CHAR, CHK RAB = 1, EBLK = 1

005000
005146
005146
005120
005226
011150

007722

035070
035072

002362

007722

002422

CHPCHK
! 57.

800

3000

:LOAD DATA CHARS INTO TX SILO

CZDMRA MB8203 STATIC DIA603144
CZDMRA.P11
18=JUL=79
10308
10309
(3)
(3)
10310
10311
10312
10313
10314

035074
035100
035100
035100

004737

Mm13
MACY11 30A(1052)
18-JuL=79 09:53 PAGE 7-128
TEST 40 - MSG TERMINATION WITH GA CHARS = BIT MODE,NO CRC

003576

24%:
ENDTST

JSR

PC,MSTCLR

s ISSUE MASTER CLEAR
L10074:

104401

10315

SEQ 0168

TRAP

CSETST

tt'*.fitQit'fi'!tt*..'."'i'tfi.fi'.fi"'Qt.t..fi....fi.fit.'.'.l.".t.'..'..'

}8%}9

SBTTL

TEST 41 - IDLE SYNCHS TEST = CHAR MODE

- %

10318
10319
10320
10321
10322
10323
10324
10325
10326

s+
;%
;%
;*
;%
;%
:*
;%
:*

10327

10328
(3)
10329
10330
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10347
10342

10343
10344
10345
10346

10347
10348
10349
10350
10351
10352
10353
10354
10355
10356

10357

10358
10359
(3)

THE DEVICE IS ENABLED FOR TRANSMIT AND RECEIVE, AND A MESSAGE IS
INITIATED IN CHAR MODE. 24(DEC) SYNCHS ARE SENT.
EACH SYNCH IS TIMED AS IT IS RECEIVED, AND THE BITS ARE CHECKED
FOR A VALID SYNCH CHAR FOR EACH OF THE 22 SYNCHS WHICH FOLLOW
THE FIRST TWO (THESE PERFORM SYNCHRONIZATION, AND ARE NOT READ).
WHILE THE LAST SYNCH IS BEING TRANSMITTED, o¢ IS SET, AND THE
NEXT CHAR RCV'D AFTER THE SYNCH IS CHECKED TO BE 377 (LINE MARKING).
THEN, A MASTER CLEAR IS ISSUED.
THE SYNCH CHAR USED IS 226 (OCTAL).

-M2

035102
035102
035102
035110
035114
035116
035120
035124
035132
035136
035140
035142
035146
035152
035154
035160

035164
035166
035170
035172

035174
035200
035202
035204
035212
035220
035224
035230
035232
035236

035240

035242
035246
035246

BGNTST

012737
004737
000226
000341
012701
012737
004737
005301
001374
004737
004737

000030
012701
004737

000226
000010
005301
001372

035242
005512
000026
000226
005146

002362

002422

6%:

BNE
JSR
JSR

005120
007406
000025
007722

004737
000226

007722

012737
112737
004737
004737
000014
004737
000377

000011
000200
003722
005226

004737

003576

MOV
#24% ,RETADR
JSR
PC,INITRN
SYNCH
CRC2!CRC'IDLE'DDCMP
MOV
#22..R1
MOV
#SYNCH TXWORD
JSR
PC, LDTXSI
DEC
R1

8%:

24.
MOV
JSR

SYNCH
8.
DEC
BNE

JSR
SYNCH
4
MOV

002400
002366

MOVB
JSR
JSR
12.
JSR
377

007722
24%:
ENDTST

JSR

3323332333332 3122222222222322222222222222

T41::
sSET TEST EXIT ADRS FOR ERRORS
sMST CLR, LOAD 2 SOM'S
JINIT COUNTER
;LOAD AN SOM INTO TX SILO
;DECR COUNTER

6%
PC,WAITS0
PC,RCVIST

BR IF MORE TO LOAD
JALLOW SILO TO RIPPLE
JCLK LU UNTIL 3RD SYNCH RCV'D (RCVR IS ACTIVE)

#21..R1
PC,CKDATA

JINIT COUNTER
JREAD A SYNCH, CLK NEXT ONE

R1
8%
PC.CKDATA

;DERC COUNTER
;BR IF NOT ALL CHECKED
sCHECK LAST SYNCH

#11 ,REGNUM
#0C ,WRIBYT
PC,WRITLU
PC,STPLU

;SET REG NO. = 11
;SET OC IN REG 11
JFINISH CLOCKING CHAR, AND THEN SOME

PC,CKDATA

JRCY A MARK CHAR, CHK IT

PC_MSTCLR

;s ISSUE MASTER CLEAR TO CLEAN UP
L10075:

CZDMRA M8203 STATIC DIAG #1

CZDMRA.P11
(3)
10360
10361
10362
10363
10364

035246

18=JUL=79 09:44

MACY11

30A(1052)

18=JUL=79

09:53

N13

PAGE 7-129

TEST 41 = IDLE SYNCHS TEST = CHAR MODE

104401

TRAP

10“5

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

;8332(7)

.SBTTL

TEST 42 = STRIP SYNCH TEST

;* BIT SET. THEN 24 (DEC) SYNCHS ARE SENT
;* FOLLOWED BY THE FOLLOWING DATA CHARACTERS
;* AND 2 TERMINATINC SYNCHS.

10373

: 377, 000,

125, 252,

;* EACH OF THE 23 SYNCHS AFTER THE FIRST ARE CHECKED AT THE TRANSMITTER OUTPUT,

10374
10375
10376
10377
10378

:*
:*
:*
s*
:*

10279
10380

BY SCANNING THE TXDATA BIT.
EACH USYRT RCV FLAG IS TIMED AS IT IS RECEIVED, AND THE 4 DATA WORDS
ARE READ AND COMPARED TO EXPECTED VALUES.
FINALLY, THE LINE UNIT IS CLOCKED FOR SEVERAL CHAR TIMES, AND A CHECK
IS MADE FOR OACT = 0 (TEOM SHOULD CAUSE TX ENABLE TO DROP).

;% THE ABOVE TEST IS REPEATED FOR EACH OF THE FOLLOWING SYNCH CHAR DATA
;* PATTERNS : 226,000,125,252,376,177.

10381

10391
10392
10393
10394
10395
10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
106406
10407
10408
10409
10470
104%1
10412
10413

A AR AR R AR R A AR AR RN

:* THE DEVICE IS ENABLED FOR TRANSMIT AND RECEIVE, AND A MESSAGE IS
;* INITIATED IN CHAR MODE AND WITH THE STRIP SYNCH

10370
10371
10372

10390

AR AR

CSETST

10368
10369

10382
(3)
10383
10384
10385
10386
10387
10388
10389

SEQ 0169

e AR

035250
035250
035250
035256
035262
035266
035272
035274
035276

035304

035310
035314
035316
035320
035324
035326
035330
035336
035342
035346
035352
035356
035362
035366
035370
035374
035376
035400
035402
035406
035410
035414
035416

AR A A A A A A A

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

BGNTST
012737
012701
011137
004737
000000
000311
012737

012702

004737
005302
007374
004737
003246
000006
012737
004737
004737
004737
011137
012702
004737
100010
004737
000000
005302
001373
004737
000010
004737
000377
000010

035470
035476
035272
005512

002362

000400

002422

000026

2%:
3$:

005146

6%:

010770
001000
005146
005146
005120
035374
000027
005226
011150

007406
007722

002422

14%:
16%:

R AR AR AR AR AR AR

MOV
#24$ RETADR
MOV
#SYNPAT ,R1
MOV
(R1),3%
JSR
PC,INITRN
.WORD
0
CRC2!CRC1!STRIP!DDCMP
MOV
#TXSOM, TXWORD

MOV

#22. R2

JSR
PC,LDTXSI
DEC
R2
BNE
6%
JSR
PC.LODMSG
MSG4
6
MOV
#TXEOM, TXWORD
JSR
PC.LDTXSI
JSR
PC,LDTXSI
JSR
PC,WAIT50
MOV
(R1),16%
MOV
#23. ,R2
JSR
PC,.STPLU
CHPCHK!8.
JSR
PC,CKTBIT
.WORD
O
DEC
R2
BNE
14%
JSR
PC,RCVIST
8.
JSR
PC,CKDATA
37
8.

T42::
sSET TEST EXIT ADRS FOR ERRORS
:GET POINTER TO DATA
sGET A SYNCH PATTERN
sMST CLR, LOAD 2 SOM'S
sSYNCH PATTERN GOES HERE

;LOAD 22 SOM'S INTO TX SILO

;LOAD DATA CHARS INTO TX SILO

;LOAD A TEOM
;LOAD ANOTHER TEOM
sALLOW SILO TO RIPPLE
sGET CURRENT SYNCH PATTERN
sINIT COUNTER
sCLOCK OUT FIRST SYNCH
;CV°CK TX'D SYNCH
sSYNUH PATTERN GOES HERE
;DECR_COUNTER
sBR _IF NOT DONE CHECKING LAST 23 SYNCHS
;CLOCK UNTIL 000 CHAR RCV'D

;RCv 377, CLOCK 000

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
10414
10415

10416
10417
10418
10419
10420
10421
10422
10423
10424

10425
10426
10427
10428
10429
(3)
(3)
10430
10431
10432
10433
10434

10435
10436
10437
10438
10439
10440
10441

035420
035424
035426
035430

004737
000000

MACYT1

007722

CLk

JSR
125

PC,CKDATA

;RCV 125,

(Lk 252

JSR

PC,CKDATA

;RCV 252,

CLK END OF MSG

JSR

PC,OACTIV

;CHK FOR OACT = 0

ADD
(MP
BLO
JSR

#2,R1
R1,#SYNPAT+12.

sINIT SYNCH PATTERN POINTER
;SEE IF ALL PATTERNS CHECKED YET

000002
035512

24%:

ENDTST

035474

035510

;RCv 000,

252
32.

005324

035476

PC.CKDATA

007722

:
SYNPAT

SEQ 0170

JSR

000
8'

007722

003576

B 14

18-JUL=-79 (%:53 PAGE 7-130
TEST 42 = STRIP SYNCH TEST

30A(1052)

PC,MSTCLR

125

;BR IF NOT YET

; ISSUE MASTER CLEAR TO CLEAN UP

L10076:

TRAP

CSETST

09:53

C 14

PAGE 7-131

HARDWARE PARAMETER CODING SECTION

.SBTTL

HARDWARE PARAMETER CODING SECTION

SIIITIIITTT777777777777777777777777777777777777777777777777777777777777777777
:/ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

;/ THAT ARF USED BY THE SUPERVISOR TO BUILD P-TABLES.

THE

:/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
:/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE

:/ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

;/ WITH THE OPERATOR.
SIITIITITITT7777777777777777077777777777777777777777777777777777777777777777

GPRMA

01031
035560

ADDRES,2,0,160000,:77776,YES

160000

GPRMA

002031
035606
000000
000674

GPRMD

003032
035637
007000
000004
000007

TSHILIM

VECTOR,4,0,0,674,YES

T$CODE
VECTOR
TSLOL
IM
TSHILIM

PRIRTY,6,0,7000,4,7,YES

T$CODE

PRIRTY

GPRMD

012032
035670
000007
000000
000007

7000
TSLOL IM
TSHILIM

ISRUN,24,0,7,0,7,YES

T$CODE
;SRUN

TSLOLIM
TSHILIM

ENDHRD

L10077:

035652

T$CODE
ADDRES

IM
TSLOL

177776

10467

.WORD L10077-L$HARD/2

L$HARD:

BGNHRD

000022

L44526
051123
042522
000040
044526
041505
042101
020123

042503
040440
051523

ADDRES:

.ASCIZ

/DEVICE

CSR ADDRESS

042503
047524
051104
020072

VECTOR:

.ASCIZ

/DEVICE

VECTOR ADDRESS

053105
051120
054524

041511
047511
046040

PRIRTY:

.ASCIZ

/DEVICE PRIORITY LEVEL

10443
10444
10445
10446
10447
10448

SEQ@ 0171

o=|

18-JuUL=79

EEEEEE

MACYT1 30A(1052)

CZDMRA M8203 STATIC DIAG #1
18=JuL- 79 09:44
CZDMRA.F11

ISRUN:

.EVEN

.ASCIZ

/MICROPROCESSOR RUN SWITCH = TYPE O IF OFF,

SEQ 0172

IF ON : /

~ma~

PAGE 7-132
HARDWARE PARAMETER CODING SECTION

NTNR

050117
051523
047125
041524
054524
044440
026106
020106
000040

D 14

I I T IO TN IO NN IO TN TN IO NN O NI NN TN TN AMTM O

051103

09:53

P o]

035040

18=JUL=79

bbbool
o B Y

10469
10470
10471
10472
10473
10474
10475

046105

30A(1052)

10468

053105
000040
044515
047522
051117
051440
020110
042520
020106
030440
047117

MACY11

(ZDMRA MB8203 STATIC DIAG #1
(ZDMRA.P11
18=JUL=79 09:44

(ZDMRA M8203 STATIC DIAG #
18-JuL~ 79 09:44
CZDMRA.P11
10477

MACY11

E 14

30A(1052)
18-JUL=79 09:53 PAGE 7-133
SOF TWARE PARAMETER CODING SECTION
.SBTTL

SEQ 0173

SOF TWARE PARAMETER CODING SECTION

SIIITTTITITIITTI77777777000777770070777770777777777777777777777777777717
;/ THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
:/ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
;/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
:/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
:/ MACROS ALLOW THE SUPERVISOR TO ESTABLISI{ COMMUNICATIONS
:/ WITH THE OPERATOR.
SIITTITITITITIIII7
7777770770070 077777707777777777777777777777777777777

035756
035756
035760

BGNSFT

035760

ENDSFT

L$SOFT::

035760

L10100:

.WORD L10100-L$SOFT/2

.EVEN

senxxxx PATCH AREA FOR DEBUG **xwxwx

035760

PATCH:

036160
036162
036164

.=.+200

NOP
NOP
NOP

IRRAARARA
AR RRRRRRANRRRR AR AR
RS

036166

ENDMOD

036166

LASTAD

036166
036170
036172

LSLAST::

000001

.END

.EVEN
WORD
.WORD

O
O

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44
ABORT = 000004
ADDRES 035560
ADR
= 000020 G

ANBITS
APA
=
ASBCO =
ASBC1 =
ASBC2 =
ASSEMB=
AXNUM

002561
000200
000020
000040
000100
000010
002402

AX0.15=
AX0.16=
AX1
=
AX1.15=
AX1.16=
AX2
=
AX2.15=
AX2.16=
AX3.15=
AX3.16=
AX315U=
a1
A10

[
AS
A6
A7
A8
A9

BADDAT

7631

7646

7666

7684

7705

,
7723

SEQ 0174
7742

7761

10458

10465#

6644

6646

6648

6839

6847+

7745

8018~

8052+«

8083«

8115+

8831+
9955+

8879+

8902+

8949+

8959+

8654

8655

8705

8706

8752

8753

6553

6591

6604

6629

6631

6637«

6643+

002322
002324
000001
002326
002330
000002
002332
002334
002336
002340
000332
024166
034142

58364
58374
56214
58384
58394
56204
58404
58414
58424
58434
57864
8427
10028

6636
7655
56934
7655
7655
56924
7657
7657
7657
7657
8539
8453
101034

7655
7674

7674
7694

7694
7713

7713
7731

7731
7751

7751

7674
7674

7694
7694

7713
7713

7731
7731

7751
7751

7676
7676
7676
7676
8599

7696
7696
7696
7696
8816
8481

7715
7715
7715
7715

7733
7733
7733
7733

7753
7753
7753
7753

84914

027362
027472
027666
030232
030446
030776

9122
9171
9219
9280
9361
9418

91484
91944
92544
9296
94004
94804

9305

9317

9336

9340

93444

8151«

7258«

B193«

7259«

8315+

7634

7649

B671+
9563%
7286

8281+

7281%

B661+
9087«
7284
7282
5571
5741
7462

8245+

7280+

B721~
9661x

B759%
9726+

8768+
9807+

8821+
9851+

8447+

BLbbr

5583
5750
7853

5592
5762

5621
5775

5633
5785

5645
5796

5657
5868

5669
6631

5681
6672

5693
6801

5705
7013

5717
7054

5570
5728

5582
5740

5591
5749

5610
5761

5620
5774

5632
5784

5644
5795

5656
5869

5668
6688

5680
6997

5692
7108

5704

6890+
8549+
8826

026566
027246

8928
8992

002406

59104

BITOO = 000001 G
BITO1 = 000002 G

=
=
=
=
=
=
=
=
=

F 14
30A(1052)
18-JuL=79 09:53 PAGE 8
CROSS REFERENCE TABLE == USER SYMBOLS

59874
57684
57254
57244
57234
5406
59084

BCC
= 000001
BCCCHK= 100000
BITO = 000001 G

BITO2
BITO3
BIT04
BITO5
ITO6
1T07
ITO08
ITO9
ITT

55904
7625
55494

MACYT1

000004
000010
000020
000040
000100
000200
000400
001000
000002

G
G
G
G
G
G
G
G

8614+
9064*
56694
58514
55494
5729
7094
55494
55494
55494
55494
55494
55494
55494
55494
55494
5544
55494
5716

7086
B560+
8863+

89674

7092«
8588+
8943+

8472

7121«
8595+«
B89S54*

7127«
8597
9059+

7368
8609+
9365+

7370~
8651+
9431+

7378«
B666*
9541«

7387+«
8702+
9621*

8511«
B717+
9704+

8523«
8749+
9767+«

8527+«
8764+
9846+

8537
8809+
9895+

91004

8712«
9578+
7292

8349+

8383%

7688

B4BS*

8544+

8555+

8604+

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G

55494
55494
55454

BIT14 = 040000 G
BIT1S = 100000 G
BIT2
= 000004 G

55494
55454
g;?gl

= 000040 G

BIT6

= 000100 G

g;??w

BIT7

= 000200 G

55494
5710
55494
55494

9177

5679

5691

5703

5642

5654

5666

5678

5690

5702

5653

5665

5677

5689

5701

5713

5628

5652

5664

5676

5688

5700

5712

5615
5781
5604
5768

5639

5651

5663

5675

5687

5699

5638
5791

5650
7252

7253

5662

5674

5686

5698

6439«

6532+
8105+

6534+
8804*

6635+

6773

6774

6776+

9371
9912
10296

9424
9934
10299

9508

10138

10290

10404

10302

10305

10342

10347

10355

10281
10281

10332
10332

10388
10388

7025

7060

7869

8479

10420
10405

9286
6924
10252

9700
9700

9763
9763

9882
9882

10243
10243

54064
54064
54064

8273
8893

8307
8929

8341

8375

8650

8701

8748

8808

8869

54064
54064
54064

6684

6694

6700

6807

6813

6971

7003

7009

7019

54064
54064
54064
54064
54064
54064
54064
54064
54064

9327
7822+
10293

S775#4
S774H
S773#4
56274
56264
56794
54064
54064

6880+

10083
10417
10291

6884*
10249

NN
Co 0o

C$DU = 000053
CSEDIT=
CS$ERDF= 000055

7871«
6491

5667

CRC1
= 000100
CRC2 = 000200
(S
= 000004
C$AU = 000052
C$AUTO= 000061
C$BRK = 000022
($B8SEG= 000004
($8s5UB= 000002
CS$CEFG= 000045
C$CLCK= 000062
C$CLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
CSDCLN= 000044
C$DODU= 000051
CSDRPT= 000024

7868+
8460

5655

CRCTY2= 000004

6438+

5643

d cad

011150
100000
000001
000002

59314
56814
58454
59194
72434
10411
74584
58524

6424+
6872«

5619
5773
5618
5772
5629

non
(o e 2

CKTBIT
CRCCHK=
CRCTYO=
CRCTY1=

6866+
59304

002452
002454
000001
100000
002430
007722

55494
55984
59294

BSELZ2
BSEL4
CARR
=
CHPCHK=
CHPTYP
(KDATA

5724

WV JWNCONOOWN

BITS

\l\ns WOVOOV——

= 000020 G

6923

=N WWNNW
L ela P Yo NV, ] NN

BIT4

55454
5714
55494
5725
55494

000400 G
001000 G
000400 G
000100
002450

5818
5817

= 000010 G

=
=
=
=

SEQ 0175

55494

BIT3

BIT8
BIT9
BOE
BPOLL
BSEL1T

5806
5805

G 14

30A(1052)
18-JuL=79 09:53 PAGE 8-1
CROSS REFERENCE TABLE == USER SYMBOLS

00 00 YWV NIV NWVIiSyiNywn

BIT13 = 020000 G

MACY11

(ZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11T
18=JUL=79 09:44

MACY11

7066
7335

H 14
30A(1052)
18-JuUL=79 09:53 PAGE 8-2
CROSS REFERENCE TABLE == USER SYMBOLS
7106

7114

8318
8674

CSERHR= 000056
C$ERRO= 000060

CSERSF= 000054
C$ERSO= 000057
CSESCA= 000010

CSESEG= 000005
CSESUB= 000003
CSETST= 000001

CSEXIT=
C$GETB=
C$GETW=
CSGMAN=
C$GPHR=
C$GPLO=
C$GPRI=
C$INIT=
CSINLP=
CSMANI=
CSMEM =
C$MSG =
CSOPEN=
CSPNTB=

000032
000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014

CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015

($Q10 = 000377
C$RDBU= 000007
CSREFG= 000047

CSRESE=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
DDC
=
{oocme =

000033
000003
000021
000025
000046
000041
000037
000013
000100
000001

DEVMAP
DEVPTR

002434
002436

9252
54064
54064
54064
54064
3406¢

54064
54064
54,064
8493
9345

10256
54064
54064
54064
54064
54,064
54064
54064
54064
54064
54064
54064
54064
54064
54064
7668
7741
54064
54064
54064
7669
769%
7728
7753
54064
54064
54064

54064
54064
54064
54064
54064
54,064
54064
54064
57694
56334
10332
50214
59024

9401
10309

7120
7995

7266
8021

SEQ 0176

7271

7296

7305

8469
8771
9335

8488
8824
9343

8055
8521
8834
9566

8536

8548

8559

8608

8618

8354

8388

8676

8726

8088
8730

8120
8777

8156
8841

8202
8908
9825

9857

9101
10003

7697

7716

7734

7754

7768

7688
7761

7634

7646
7704
7762

7647
7705
7763

7706

7648

9596

10359

10429

7626

7639

7658

7677

7625
7684
7742
7944

7631
7685

8426

7632
7686
7744

7687
7745

7635
7670
7695
7729
7764

7636
7671
7696
7730
7765

7834
7942

8104

9679

9742

8118
8547
8905

9664

8154
8558
8952
9729

731
8196

8607
8962

7320

8248
8617

7326
8284
8664
9090

9810

9854

8665

8716

8763

8825

8773

8836

8884

8256
8969

8290

8358

8392
9256

8324

9958

9150

10104

9196
10156

10224

7649
7707

7665
7723

7666
7724

7667
7725

7654

7692
7726

7656

7657
7693

7751

7727
7752

10126

10243

7860

7883

5446

7743

7837

7633

8452

8471

8490

7637

7731
7766

7638
7673
7709
7732
7767

7650
7674
7710
7733

7651
7675
7711
7746

7652
7676
7712
7747

7653
7689
7713
7748

7714
7749

7655
7691
7715
7750

7840

7843

9222

9283

9324

9364

9499

9537

9700

10041

7864

7865+

7672
7708

7785
7899

7987

57054
10388
7849+
7853+

9125
7864
*

7862+

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=JuUL=79 09:44

014311

DH4
014347
DHS
01441
DH6
014414
DH7
014417
DH8
014451
DHS
014510
DIAGMC= 000000
DISILO 002426
DISSI = 000040
DTR
= 000100
EBLK
= 000002
EF .CON= 000036
EF .NEW= 000035
EF .PWR= 000034
EF .RES= 000037
EF .STA= 000040
EM1
012101
EM10
012423
EM11
012444
EM12
012461

EM13

EM14
EM15
EM16
EM17
EM18
EM19
EM2
EM20
EM21
EM22
EM23
EM24

EM25
EM26
EM27
EM28
EM29
EM3

EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM38
EM39
EM4
EM4O

012502

012532
012547
012576
012617
012634
012655
012135
012672
012713
012730
012751
012772

013007
013043
013075
013126
013147
012174
013164
013205
013222
013251
013274
013322
013342
013356
013377
013414
012213
013434

I 14

30A(1052)

18-JUL=79
09:53
PAGE 8-3
CROSS REFERENCE TABLE == USER SYMBOLS

54914
76084
76094
76104
76114
6630

7668
7650
7650
7652

7725
7669
7669
7671

7744
7689
7689
7691

7763
7708
7708
7710

76144
76154
76164

7673
7673
7675

7693
7693
7695

7712
7712
7714

7730
7730

7732

7750
7750
7752

6593
9841

6607
9843

7821
9886

9843+
9888

9855«
9993

7301

7307

8905

6633

7726
7726

7728

SEQ 0177

7746
7746

7764
7764

7748

7766

9888+

10001+~

8386
8962

8607
9067

9335

8086

8196

8547

8558

9664

9729

9810

9958

8154
8771

8248
8824

8284
8834

8318
8882
-

DH3

002252 G
014240
014262

(alalalala)

DFPTBL
DH1
DH2

MACY11

8352
8952

8617
9090

8664

9854

8674

8715

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
EM&T
EM42
EM43
EM4S
EM4S

013450
013471
013506
013533
013560

EM47
EM48
EM4S

013640
013673
013726

EM&L6

7335
7341
75914
75924
75934
75944
75954
75964
75974

013605

EMS

012266

EMS0
EMS1

013765
014021

EMS?2

012365
012406
000004
021440
003220
006246
000002
002356
002420
014554
014606

ERR3

015114

758954
75904

8488

015576

ERRS
ERRG
ERR7
ERR8
ERR9

016254
016766
017444
020076
020604

OO0

6555

ERR4

ESEND = 002100
ESLOAD= 000035

FMT19
FMT2
FMT24
FMT27
FMT3
FMT4

SEQ 0178

014122
014162
012317
014204
014220
012350

EM8
EMS
ENAX
=
ENDIT
ENDPAT
ENDTRN
EOM
=
ERRFLG
ERRORT
ERR1
ERR2

FMT1
FMT10
FMT11

J 14

30A(1052)
18-=JUL=79 09:53 PAGE 8-4
CROSS REFERENCE TABLE == USER SYMBOLS

014061

EMS3
EMS54
EM6
EM60
EMES
EM?

EVL

MACY11

011426
011671
011722

9193

9399

9479

6564

6615«

7823«

8530

8055

8118

8154

8248

8284

8318

8352

8386

8450

8558
8962
6694

9090

8617

8664
9566

8715

8724
9729

8762
9810

8771
9854

8824

8834

7025

7060

7066

6807

6813

9664
7003

77034
9316
7311

9335
7320

7335

7341

77404

7631

7666

7684

7723

7742

7761

7647

7686

7706

7743

7762

7479

7114
9295

8535

7704

7009

7019

011761
011436
012012
021554
011460
011522

8471

7649
7650

7745
7669

7673

7689

7693

7708

7712

7726

7730

7746

FMTS

011535

7651

7670

7674

7690

7694

7709

7713

7727

731

7747

FMT6

011565

7653

7672

7676

7692

7696

711

7715

7729

7733

7749

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

FMT?7

FMT8
FMT9

011620

011630
011664

7753

MACY11

K 14
30A(1052)
18-JUL=79 09:53 PAGE 8-5
CROSS REFERENCE TABLE == USER SYMBOLS
7725
7707
7656

7744

7763

7671

7675

7691

SEQ 0179

7695

7710

7714

7728

7732

7748

FRSTIM 002412
F$AU
= 000015

FSAUTO= 000020

FSBGN = 000040

10239
F$CLEA= 000007

F$DU
= 000016
FSEND = 000041

F$HARD=
F$HW =
FSINIT=
F$JMP =
F$MOD =
FSMSG =

000004
000013
000006
000050
000000
000011

F$PROT=
F$PWR =
F$RPT =
F$SEG =

000021
000017
000012
000003

7754

10174

10224

10239

10256

10277

10309

9417
9857
10328

7658

7664

7677

7683

7697

7703

7716

8354

8375

8388

8650

8676

8358
8744

8120
8370
8777

F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001
9196

GETALL

004500

9218

10122

9612
10156

10174

7001

7007

7017

(ZDMRA MB8203 STATIC DIAG #
CZDMRA.P11
18=JUL=79 09:44
7064

7333

GETPRM
GETREG

021262
003770

GOAH = 000010
GOODAT
002404

8769
9333
7845
6505#

8448

55894
59094
8082+
8446+
8670«

8947«

GSCNTO= 000200
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GS$YES = 000010
HDX
= 000020
HELP

HOE
IACT

IACTIV

= 000001

= 100000 G
= 000100

006666

IBE
= 010000 G
IC
= 000200
ICIR = 000010
IDL
= 000010
IDLE = 000040
IDU
= 000040
IER
= 020000
IERR = 000002
INITRN 005512

INTFLG
INTGRL=
IRDY =
ISIRDY

002354
000010
000020
006402

ISR
= 000100 G
ISRUN
035670

9954»
54064
54064
54064
54064
54064
54064
54064
54064
54064
54064
54064
54064

54064
54064
54064
54064
54064
54064
56074
5392#
55494

56634
70464
9676

55494
55974
57024
57724
5628#
55494
55494
56324

68374

10241

58
57834
56654
69854
9986
55494
10461

L 14
MACYT1 30A(1052)
18-JuL=79 09:53 PAGE 8-6
CROSS REFERENCE TABLE == USER SYMBOLS
7098
7339

8822
9341

78564

6634
8467

7256%

8113%

7118
8545
8903
9662

7104
7471

8832
9564
7863
8019
8486
7257«

8114+

7294

8662
9956

8384

7279

7745

8016+
8280+

8051+
8348+
8660+
8900+

8081+
8382+
8669+
8901+

10458

10459

10461

10458

10459

10461

5448

6395

7056
7173
9715
9982

7062
7194
9720

9557
9739

56624
7015

9674
7021

9820

9324

9364

10243

10332

7218
9123
10279

7224
9172
10330

9617
9281

7196
10077

10089

104684

9293

7324
8760
9314

8350

10459
10459
10459
10461

10033

7318

8316

10458
10458
10458
10460

7005
7188
10058

9250

8722
9302

8282

B4B4+
8720+
8957«
9990+

5786
6999
7175

7309
8713

8246

8150~
8543
8767%
9063+

10460
10460

7303

8672

8084
8533

8465
8711~
8948+
9974x

56774
5438

SEQ 0180

8244
8603+
8830

8612+
8877

8017+
8314+
8613+
8878+
9725+

9806+

9587

9660+

9850+

10461
10461

9572
9778

9585
9787

9593
9794

9632
9799

9641
9816

9648
9822

9920

9653

9670
9945

9700
9322

9763
9362

9882
9419

9497

9876

10039

10124

10176

7434

7440

9932

9941

9949

9962

9970

9978

I$PROT=
I$PTAB=
ISPWR =
ISRPT =
I$SEG =

I$SETU=
ISSFT =
I$SRV =
I1$SUB =

MACY11 30A(1052)

18-JuL=79

09:53

M 14
PAGE 8-7

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0181

W
wh

IXE
= 004000
I$AU_ = 000041
I$AUTO= 000041
ISCLN = 000041
ISDU = 000041
I$HRD = 000041
I$INIT= 000041
i$MOD = 000041
ISMSG = 000041

(2]

CZDMRA M8203 S TATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44

79644

76454
77684

000040
000041
000041
000041
000041

76584

76644

76774

76834

80574
83414
87014
88694
9532

76974

77034

77164

8217
8419

8268
8509
87734
9121
10027

82734
8802
9170
10122

8336
89074

8370
8926

8763
9874

000041
000041
000041
000041

9496
10382

I$TST = 000041

1422 = 000200
JSJMP = 000167
LDMSG1
011346
LDTXSI
005146
LOADAT
LODMSG
LOE
=
LOGDEV
LOOPIN
LOT
=
LULOOP=
LULP =

LUREG

002410
010770
040000
002344
004046
000010
000010
000040
002302

LUR10 = 002302
LURT1 = 002304
LUR12 = 002306

LURT3 = 002310
LUR14 = 002312

81364
83584
8618

906
%174
98574
10328#

103594

100034
103824

6916
10044

7407
10066

10096

9003

104294

9004

10100

9532

81564
83704
86254
89264

95324
101044

101224

101564

101744

102244

92764
97424
102394

9028
10129

9076
10181

9307
10245

10286

9503

9546
10287

9626
10335

5835

5837

5838

5839

5840

7727
7747
7747
7747
7749

7765

8876+

10394

7858

CZDMRA MB8203 STATIC DIAG #1
CZDMRA.P11
18=-JUL=79 09:44
LURTS = 002314
LUR16 = 002316

LUR17 = 002320
LUSWIT1
002466
LUSWIZ2 002470
LUSWI3 002472
LUITMOD 002000 G
LSACP
002110 G

LSAPT

LS U
LSAUT
LSAUTO
LSCCP
LSCLEA

L$CO
LSDEPO
LSDESC
LSDESP

58334
58344

7638

021606 G
002070 G
021442 G
002106 G

5446
S4464
5446
564464

79634

002032 G
002011 G
003470 G
002076 G

54464
54464
5446
54464

002036 G

021522 G

54464

5446

002060
002124
002116
002040
002034

G
G
G
G
G

54464
5446
54464
54464
54464

LSDUT
LSDVTY

002072 G
003462 G

54464
5446

LSEF

LSETP
LSEXP1
LSEXP2
LSEXP3
LSEXP4

LSEXPS
LSHRD
L” .IME
LSHPCP
LSHPTP
LSHW
L$ICP
LSINIT

7638
7638

58354
59374
59384
59394
54124
56464

LSDEVP
LSDISP
LSDLY
L$DTP
LSDTYP

L$DU

N 14
MACY11 30A(1052)
18-JuL=79 09:53 PAGE 8-8
CROSS REFERENCE TABLE == USER SYMBOLS

021524 G
002052 G
002102
002042
002044
002046

G
G.
G G

002064 G

002
G
035514 G
002120 G
002016 G
002022 G
002252 G
002104 G
021072 g
G
G
G
G
G

G
G
G
G
G
G
G
G
G
G

5446

S4464

78974
79234

63884
54694

79404
63834

54464
54464
54464
S44¢4
54464

54464
5446
54464
54464
54464
5446
54464
5446
5446

104564

54914
78174
105154

7653
7653

7653

7672
7672

7672

7692
7692

7692

71
[44)

7729
7729

7729

SEQ 0182

7749
7749

7749

7767
7767

7767

MACY11 30A(1052)

LSSW
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004

55154
S446n
54464
54464
5491
5519
76264
76394
76584

7858
55054
55224

8197
8249

82024
82564

8522
8608

8536
8618

8548
86254

8953
906

8963
9091

89684
91014

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0183

002302 G
002114 G
002014 G
002012 G
002300
002302
014604
015112
015574

09:44

B 15
PAGE 8-9

18=JUL=79

09:53

TRRTRTT

CZDMRA.P11

18-JuL=79

TM~

CZDMRA MB203 STATIC DIAG #1

8559

85644

CZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11

L10065

18=JUL=79 09:44

c15

MACYT1 30A(1052)
18-JuL-79 09:53 PAGE 8-10
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0184

98254
98574
100034
101044
101564
102244

8441

8446

8461

8480

8484

7625

7631

7646

7666

7684

7705

7723

7742

7761

7867+«

7902

9544
9733

9547
9770

9556
9773

9570
9784

9624
9785

9792

8137
8647

9515
10032

8174
8698
9534

10103

8182
8745
9595
10155

8218
8803
9614

10223

8269
8859
9678

10255

8303
8896
9697

9905

9926

9943

8941

8997

9006

9021

9035

9627

MSG4

002571
002615
002625

6845

6862

6877

6927

6963

9901

6674
6843
9078

6680
6860
9094

8239
6887
9097

8240
6931
9893

9048
6937
9899

6961
9915

9928

CZDMRA MB8203 STATIC DIAG #1

CZDMRA.P11
PATCH
PATD
PATE

PATF
PATG
PATH
PATI
PATJ

PATK
PATL
PATM
PATN
PATO
PATP
PATU
PATV
PNT

POLL

18=JUL=79 09:44

035760
002630
002633

105044
60384
60444

002641
002644
002654
002664
002674

002704
003014
003022
003032
003050
003066
003104
003152
= 001000 G

= 000200

PRI
=
PRIOR
PRIRTY
PRIOO =
PR:01 =
PRIO2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PSTACK
RAB
=
RABT
=
RAX15

002000
002350
035637
000000
000040
000100
000140
000200
000240
000300
000340
002346
000004
000004
002370

RAX16

002372

G
G
G
G
G

G
G
G
G

60534
60594
60704
60814
6092#

61034
6177#
61864
61974
62144
62314
62484
62884
55494

MACYT1

30A(1052)

8288
8322

8305
8339

8356
8176
8180
8524
8562

8648
8678
8014
8200
8860
8861
8806
8805

18-JuL-79

CROSS REFERENCE

8373
8390
8512
8528
8585

8746
8699
8017
8927

09:53

D 15
PAGE 8-11

TABLE == USER SYMBOLS

SEQ 0185

8582
8589

8667
8590

8670

8898

8901

8775
8079

8082

8111

8114

8147

8150

8184

8220

8728

8658

8661

8965
8887

8839

5604#

55454
58944
10460
55494
55494
55454
55494
55494
55494
55494
55494
58934
56674
57274
59034

8712
83?;

5904w

104674

7899
6702
7314

7901
6815
7316

7987
7027
7322

7989
7068

7122

7350

7485

7819«

6568+

6569+

6639

8539«

8540

8544

8599+«

8600

8604

9064
9807

9084
9848

9087
9851

9560
9952

6572+

6573+

6641

8765

7096

8768

7102

8827

7110

8831

7116

8873

8551

8555

8610

8614

8667

10048

10141

10187

10339

10409

76429
7093

10248
8529

8596

8657

8708

8755

8813

8872

8897

8944

9060

6559
7140

6567
7144

6571
7183

6610
7261

6671
7466

9047

6687
8013

9247

6800
8047

9290

6869
8078

9299

6881
8110

93N

6966
8146

9330

6996
8187

8756
gg;g

8817
9658

8821
9661

8945
9723

8949
9726

9061
9804

8671
63604
71624
56314

RDRXSI
READAX

007326
004076

71384
65494

7249
6638

003644

64584
7012

6509
7053

59014

6470

6471+

6510

6560

6568

6572

6611

6674

6680

6690

6696

6803

7262

7469

7475

8014

8018

8048+

8049

8052

8079

8083

8278
8447

8111

8281
8460+

8115

8311~
8461

8147

8312
8466

8230+

8240+

8241

8244

8583

8591~

8592«

8600

8603

8610

READLU

= 000020

READY = 000200

REDBYT

REDDAT

002364

002500

56174

9083

8235
56864

6809

8721

8816+
9589

RCVBUF
003262
RCVIST
007406
RDALL = 000004
RDAX

8718
7509

8759
gggg

56894

6555

9559

9574

8276
6560
6870

8310
6611
6882

8151
8315

8188+
8345+

8189
B346

59448

B219

8229+

9588
8344

6967
8193
8349

9657

8378

6999

8236+
8379«

9722

9015
7005

8239«
8380

9803

7015

8241
8383

9847

7021

8245
8440%

8879

7056

8277«
B441

8898

7062

8902

7141

8955

8709

7145

8959

9338
7184

(ZDMRA MB203 STATIC DIAG #1

CZDMRA.P11

REGNUM

002400

18=JUL=79 09:44

8613
59074
6588
6749
6965~
7143«
7354+

8011«
8234+
9043«

REGO
REG1
REG2
REG3
REG4
REGS
REG6
REG7

002510
002512
002514
002516
002520
002522
002524
002526

10350«
59544

59554

MACY11

6460
6590+
6752+

6973«
7146*
7369

E 15

18-JUL=79 09:53 PAGE 8-12
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

6486
6595+
6793
6989

6506
6599+
6799+
6995+

6508+
6603+
6814+

8074+
8270+
9246+

8101~
8304+
9289+

8138+
8338«

9540+

8175+
8428+
9703+

8443+

8459+

8463

8482+

7028
9533«

7069
9613

7123
9696+

6425

6532
6532

6534
6534

9650

7164
7374

REOM
= 000002
RERR
= 000200
RETADR
002362

RING

ROMI
ROMO
ROR

= 000200

= 000002
= 000004
= 000010

6425

RRDYTO= 000001
RSEOM
007054

RSOM
RTS

7167+
7386+

8530

9643

7011~
7199«
7458

6512+
6616+

SEQ 0186

6513

6550

6820+

6865+

6552
6701
6879*

6566+
6707+
6891+

6570+
6744
6954

8183+
8532+«

7260
7685
8198+
8862«

7268+
7725
8226+
8933«

7274
7744

7052+
7244

7216%
7490+

9840+

7067«

9885+

7073«

9889+

6574+
6746+
6957+
7139+
7349+
7763

8227+

8233+

8936+
9992+

9012+
9995+

7351
9759«

7486
9875+

10028+

10123+

10175+

9122+

9171
10240*

9219+
10278+

9655

9672

9780

9789

9796

9801

9818

9922

10153

10191

10195

10199

10203

10207

1021

10215

10219

10193
10193
10143

10201
10197
10193

10209
10209
10197

10213
10201

10205

7253

7254

7259

7275

7281

7286

7292

7301

7307

8928+

8992«

= 000001
= 000040

RUN
=
RUNINH
RXABT =
RXBCC =
RXCHAR

000200
002476
002000
000400
011046

RXEBL = 001000

RXLENO=
RXLEN1=
RXLEN2=
RXOVR =
RXWORD

000001
000002
000004
004000
002424

RX0
RX1
RX2
RX3
RX4

000001
000002
000004
000010
000020

=
=
=
=
=

RXS
=
RX6
=
RX7
=
14NRW
SAVE4

000040
000100
000200
002560
002414

8048

7830

7907

7996

10217

(ZDMRA MB203 STATIC DIAG #1

CZDMRA.P11
SAVE6G

SAVLEN
SCRACH
SEC
=
SECA =

18=JUL=79 09:44

002416

002432
002342
000020
000020

59144

59204
58914
S7714
56294

SELFR =
SELSBY=
SEL4
SEL6
SETUP
SFPTBL
SIGQ =
SIGR =

000040
000002
002454
002456
010612
002302 G
000100
000200

56064
56104
59324
59334
73684
55194
56994
56984

STALL

005136

67314

sSaM

STARES
STARST
STBY
=
STEPLU=
STEPMP=

STPCLK
STPERR
STPLU

002444
021232
000002
000020
000001

55924

59254
7835
56804
S5678
55714

MACYT1 30A(1052)

18-JUL=79

09:53

CROSS REFERENCE TABLE == USER SYMBOLS

7828+

7831

7250

7383%

7824~

7872«
6423«
9535

7873+
6533«
9615

7874
9698

7875+
9761

9880

6775

6777

6868

6873

6886

;
:
6872

6885

6446+

7847«
7838

7852
78464

79C8

8424

6774
6424
6468

6776
6425
6492

6867

6933
9328
9776

7179
9507
9782

7222
9550
9812

7346
9554
9903

7436
9568
9924

7464
9583
9939

9013
9591
9960

9045
9630
9976

9081
9636
10063

9244
9666
10075

9499
6706

9537
6794

9700
6795

10041
6797+

10281
6798+

10388
6819

7088
7443
5491
7783

7090%
7460%
5519
7799

7091*
7461*
6383
7817

7126%
7491x
6388
7897

7165+
7665
7624
7923

64214
72154
67654
9309
9731

STR
= 000040
STRIP = 000010
SUBRPC 002352

S7704
56304
58954

9125
6665

9222
6666

9283
6668*

9324
6669*

7048
7246%
56064
7683

7050«
7356
5412
7703

7051«
7388%
54204
7722

7072«
7427%
5446
7740

7087
7428
5469
7760

SVCGBL= 000000

SVCINS= 000001

564064
6813
7271
7631
7650
7669
7688
7707

7726
7745
7764
7844
7995

8154
8318
8452
8559
8701
8824
8908
9150

SEQ 0187

7997

003540
007620
005226

6893

F 15
PAGE 8-13

6913%

54178
6971
7290
7632

6914%

5446
7003
7296
7633

8144

6940+

5469
7009
7305
7634

6955+

6956+

5491
7019
7311
7635

5519
7025
7320
7636

7651
7670
7689
7708

7652
7671
7690
7709

7653
7672
7691
7710

7654
7673
7692
7711

7765
7860
7998

7766
7861
8021

7767
7883
8023

7768
7899
8043

7727
7746

8156
8320
8469
8564
8715
8825
8929
9196

7728
7747

8196
8324
8471
8607
8716
8834
8952
9252

7729
7748

8197
8341
8488
8608
8724
8836
8953
9256

7730
7749

8202
8352
8490
8617
8726
8841
8962
9295

7655
7674
7693
7712
7731
7750
7785
7906
8055

8248
8354
8493
8618
8730
8867
8963
9304

6972+

6990

6991

6993+

9287
9713
10091

9297
9717
10137

7166%
7704
7630
7940

6840+
7031+
7202%
7741
7645
7963

6841+
7047
7245+
7820+
7664
10456

6994+

6383
7060
7326
7637

6388
7066
7335
7638

6678
7100
7341
7639

6684
7106
7473
7646

6694
7114
7479
7647

6700
7120
7625
7648

6807
7266
7626
7649

7732
7751

7657
7676
7695
7714
7733
7752
7835
7926
8061

7658
7677
7696
7715

7665
7684
7697
7716

7667
7686
7705
7724

7668
7687
7706
7725

7837
7942
8086

7838
7944
8088

7666
7685
7704
7723
7742
7761
7840
7945
8104

7656
7675
7694
7713

7834
7909
8057

8249
8358
8521
8625
8748
8869
8968
9316

8256
8375
8522
8650
8762
8882
8969
9335

7734
7753

8273
8386
8535
8664
8763
8884
9067
9343

7741
7754

8284
8388
8536
8665
8771
8889
9068
9345

8286
8392
8547
8674
8773
8893
9090
9401

7743
7762

7744
7763

7841
7964

7843
7987

8118

8120

8290
8426
8548
8676
8777
8905
9091
9481

8307
8450
8558
8680
8808
8907
9101
9516

CZDMRA M8203 STATIC DIAG #1
18-JuL- 79 09:44
CZDMRA.P11

MACYT1

9566
10104
10489

9581
10156
10492

SvCsuB= 000001
SVCTAG= 000001

54064
56064

56194

G 15

30A(1052)
18-JuL=79 09:53 PAGE 8-14
CROSS REFERENCE TABLE == USER SYMBOLS

9596

9664
10256

886

8893

10224
10515

9679
10309

9729
10359
7639
7964

8324
8777
9345

10256

SVCTST= 000001
10277

10328

SYNCH = 000226

9221

9282

9323

9498

SYNPAT
SYNO =
SYN1
=
SYN2 =
SYN3 =
SYN4 =
SYN5 =
SYN6 =

104314

76264
79454

76394
79644

76584
79984
83414
88084
94014
103094

SWO
Sw1
Sw2

Sw3

SYN7

= 000002
= 000004
= 000010

= 000040

035476
000001
000002
000004
000010
000020
000040
00010C

= 000200

S$LSYM= 010000

86804

TEOM = 000002
TERR
= 000200
TEST
= 000001
TESTMD= 000004
TIMFLG 002360
TMPO
002530
TMP1
002532
TMP2
002534
TMP3
002536
TMP4
002540
TMP5
002542
TMP6
002544
TMP7
002546
TSOM =
1
TSTCON
002474
TSTNUM 002442
TXAB

TXABT = 002000

91014
100034
57454
57464

57854
57034
58994
59644
59654

59664
59674
59684
59694

55054
79094
82734
87014
91504

55224
79264
82904

87304

83244
87774
93454

91964
101564
9937

102244

102564

6630
6648+

6633
6649+

7648
7648

7687

7707
7707

8421+

8426

9126
9226
9390

9129
9229
9393

9132

9135
9235
9422

9138
9238
9425

101044
9914

9742

10429

7658

10309

8099
8744
9612

9536

SEQ 0188
9810
10456

7677

8023
8358

9825
10458
7697

8057
8388
8884

9854
10459

9857
10460

9958
10461

10003
10463

7716

7734

7754

7768

10331

10334

10343

8061
8392
8889

8841
9481
10359

9516
10429

9695

8858
9758

9699

10040

10242

76974

77164
80614
83924
88894
95964

80884
84934
89074

8136
8802

80434
83754
886954

8173

9596
10463
8217

8926

9838

77344

94814
103594

95164
104294

104634

96794
104924

9141
9241
9428

9144
9284
9435

9175
9325
9440

9178
9369
9445

77544

8120#
85644
89084
97424

7768#%

81564
86254
98254

77854

82024
86504
89694
98574

8814

9232
9396

9181

9372
9450

9184
9377
9455

9187
9382
9460

(ZDMRA M8203 STATIC DIAG #1
CZDMRA. P11
18-JuUL=79 09:44
TXDATA=
TXEN
TXEQM

TXGA

TXGOA
TXLENO=
TXLEN1=
TXLENZ=
TXSOM =
TXWORD

X0
X1
X2
X3
X4
1L $)
X6
X7
T$ARGC

9465
5700#
56154
58074
9185
9477
S7474
S805#
57934
57924
57914
5808#
59164
9545«
10334+
55834
5582#
5581#
55804
SS79#
5578#
S577#
55764
S446H

TSGMAN=
TSHILI=
TSLAST=
TSLOLI=
TSLSYM=

6343

6344

10099

10285

9188

104584
54064
70664
73354

92524
104584

92954
104594

93044
104604

104594
105154
104594
5505
7909

104604

104614

104604
5522
7926

104614
7626
7945

8968

8969

83524
87154

82494
90684

8324

T$L TNO= 000052
TONEST= 177777

9136
9391

9191

76314
76514
76714
76914
77114
77314
77514
B4714
104604
6684#
71064
74734

84264

9825

54124

76834

SEQ 0189

9476

76254
76504
76708
76904
77104
77304
77504
84524
104594
66784
71004
73418

76494
76694
76894
77094

83184
86744

TSEXCP=
T$FLAG=

9473
7475
9224

10397«

77494

TSERRN= 000032

9470
7469
56874

H 15

30A(1052)
18-JUL=79 09:53 PAGE 8-15
CROSS REFERENCE TABLE == USER SYMBOLS

10285
7250
7250
7250
6336
6745«
9625+
10389«

772%%

T$CODE= 012032

MACYT1

9367

9443
9443
9448

9375
9367
6337
6747
9708+

9453

9306

6850~

10043+~

10065+

9458

9463

7606+
10095+

9002+
10099+

76354
76554
76754
76954
77154
77424
77624

76374
76574
76844
77044
7724M

67004

68134

70034

83864
87244

84694
87714
93354

80554
85214
88344
95664

95814

81184
85474
89054

96644

85224
90914

85484

86084

86184

86654

8358

7639
7964

8493
9150

8564

9857

10104

54914

55194

55224
77224

80434
82684

80574
82734

76974

77164
78974

10156

79094

9145
9471

9182
9474

9027*
10128+

10180+

9075+

9306+
10244+

9502+
10285+

76484

77444

77644

72714

7658
7998

9142
9397

9463

76334
76534
76734
76934
77134
77334
77534

71204
79954

9139

9394

7734

8120
8777

9481
10359

7639
77604
79454
80994
83074

7785

8256
8907
10492

76644
77854
7985#

8156#
83364

(ZDMRA MB203 STATIC DIAG #1
(ZDMRA.P11
18=JUL=79 09:44

83614
Bo4or
88084
89684

TSNSO = 000000

TSNS1

= 000005

TSNS3 = 000003

T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777

T$SEKO= 010000
T$SUBN= 000000

T$TAGL= 177777
T$TAGN= 010101

T$TEMP= 000000

10513

7697
78174

77034
7883

54914

T$TSTM= 177777

115

30A(1052)
18=JuL=79 09:53 PAGE 8-16
CROSS REFERENCE TABLE == USER SYMBOLS

83584
B676H
BB41#
89914

94178
98574
10328#

481X
98744
103594

5505

55194

80384
8290
86464
9101

8061
83027
8680
91214

7716
7897#

B3704
BOBON
8B5BH
91014

83754
B6974
BBG74
91214

7626

76304

7639

76458

80724
8324
86974
9150

80994
8358
87448
9196

96124
10156
10489%
8320
88674

8120
83704
8777
92184

9679
101744
10492
83414
8889

96954
10226

9742
102394

97584
10256

9825
10277#

98384
10309

9857
103284

8354
88934

83754
8907

8388
89294

86504
8968

8676

87014

83074

83204

83414

83544

83754

83884

86504

83414

88844

8665

8320

88694

8354

8676

BO99#

BOS7#

82734

82864

80434

8057

82734

8286

33074

79854

80104

80384

54064

87264
87484

87484
8763

8072#

77408
7926

8763

8773

7754
79404

87734

88084

77604
7945

81364
8392
88024
9256

88084
8825

7768
79634

8156
84194
8841
92764

8825

83754

97428
10239%#

7658

76648

86254
88024
89294
93604

76248

7734
79234

96954
102244
105134

85804
87774
89264
93454

5522

77228
7909

BO43¥

8726

BS64#
8773
89084
92764

96794
101744
10492#

54064
54064
54064

8716

B8S094
87484
89074
92564

96128
101564
104894

95324
10104
104564
8286
88084

87014

84934
8744w
88934
92184

9596
10122¢
104634

9516
100274
10429
82734
8773

8716

B4194
B7304
BBBO¥
91964

95324
101044
104564

94964
10003
103824
8057
87484
8884

87014

B394
B7264
8BB4
91704

95164
100274
10429#

9481
98744
10359
80434
8726
88694

86764

83884
B7014
BBLON
91504

SEG 0190

9496
100034
103824

8088
83364
8730
91704
9596
10122#
10463
83074
8836

77834
7964

81734
8493
88584
9345

88364

7785
79854

8202
85094
8908
93604

97584
102564

98254
102774

7677

76834

77994
7998

82174
8564
89264
9401

8836

88694

8388

86504

8665

8884

7803
8010#

8256
85804
8969
94174

B509%
91704
101224

B5804
92184
101744

B646H
92764
10239%

BGI7A
93604
102774

B744M
941784
10328#

B1364

BBO2K
94964
103824

81734

B8B584
95328

88674
96124

82174

82684

83004

8336w

89294
98384

89914
9874#

54914

55194

76244

76304

76454

76644

76834

77034

77228

77408

77608

7783#

8217#
88674
182;8‘

82684
8B934
96954

83024
BI264
97584

79854

80104

80384

80994

81364

81734

54694

55054

55224

84194
91214
10027#
54064
26064

7799%

78174

7B97A

79234

79404

79634

83364
B9294
98384

83704
89914
98744

84194
91214
10027#

BS094
91704
10122¢

76264

76394

76584

7677R

78034
81974

78834
82024

79094
82494

104594
34064

104604
79854

104614
80104

104634
80384

104924
8072¢

105134
80994

91214
10027#

91704
101224

92184
101744

92764
10239#

93
10277#

7066

7100

7106

7114

7120

85224
87304
89684
96794

T$TEST= 000052

83544
BOSON
88364
89694

94014
98384
103094
5412#

8023
82684
8625
89914

T$NS2 = 000002

MACY11

84194
54064

B5364
87634
BIH
97424

85094

6678

85484
87734
90684
98254

B5804

6684

79264
B2564

85594
87774
90914
98574
B646H

6694

79454
B2864

B5644
88254
91014
100034
BE974

6700

79644
82904

B60BH
8B36#
91504
101044

79984
83204

BS804
92184
101744
T7697M

80234
83244

Bb4bH
92764
102394
7716

80574
83544

88934
96954

80724

B697H
93604
102774
77348

80614
83584

BO1BH
88414
91964
101564

B62SH
88844
92564
102244

BLESH
88894
93454
102564

B6764
89074
94014
103094

81364

81734

82174

82684

96178
103284

94964
103824

953284
10515

96124

96954

7266

7271

7290

B744M

6807

BBO2N

6813

88584

6971

8867
7003

7296

8893

7009

7305

89264
97584

B7444
94174
103284
7754

80884
83884

88024
94964
103824
77684

81204
83924

83704

38584
95324
104564
77854

81564
8493

B68ON
89084
94814
103594

87164
89534
95164
10429

87264
89634
95964
104584

83024

83364

83704

97584

98384

9874#

89264
7019

8929
7025

7320

8991#

7060

7326

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

MACYT1

7695
7714
7733
7752
7837
7987

7696
7715
7734
7753
7840
7995

8120
8307 -+
8450
8558
8680
8808
8907

J 15

30A(1052)
18-JuL=79 09:53 PAGE 8-17
CROSS REFERENCE TABLE == USER SYMBOLS
7697
7716
7741
7754
7843
7998

7706
7725
7744
7763
7899
8043

9196
9581

9252
9596

8197
8341
8488
8608
8724
8836
8953

2202
4352
3490
R617
2726
8841
8962

79854

80104

80384

10277#
7964
7909
7926
7945
10463
5505
7883
7626
77404

103284

103824

76304

T$$PRO= 010014
T$$RPT= 010013
T$$SEG= 010000

102394
79634
78974
79238
79404
104564
54914
78174
76248
7734
7799
77834
80434

T$$SOF=
T$$SUB=
T$$SW =
T$$7CS=

10489%
8867#
55194
79854

10492
8889
5522
7998

9874#

10003

10027#

5469
5469

79854
83024

T$TSTS= 000001

T$$SAU =
T$$AUT=
T$$CLE=
T$$DU =
T$SHAR=
T$$HW =
T$SINI=
T$$MSG=

T
T10

11
T12
T13
T14
T15

T16

117
T18
719
T2

54064

84194
92764

010021
010016
010017
010020
010077
010000
010015
010012

87014

010100
010051
010001
010076

8197
84194
8680
9091

021610 G
023172 G

023310
023426
023544
024174
024526

025016

025226
025432
025636
021672

G
G
G
G
G
G
G
G
G
G

5469
5469
5469
5469
5469
5469
5469
5469
5469
5469

8156
8320
8469
8564
8715
8825
8929

7705
7724
7743
7762
7883
8023

8196
8324
8471
8607
8716
8834
8952

9101
9516

8154
8318
8452
8559
8701
8824
8908

7704
7723
7742
7761
7860
8021

9150
9566

85094
93604

7785
BOS7#

8716

8202
8493
86974
9101

83364
83704
84194
85094
85804
86464
86974
87444
88024
80104

7707
7726
7745
7764
7906
8055

SEQ 0191
7708
7727
7746
7765
7909
8057

7709
7728
7747
7766
7926
8061

7710
7729
7748
7767
7942
8086

7711
7730
7749
7768
7944
3088

7712
7731
7750
7785
7945
8104

7713
7732
7751
7834
7964
8118

9295
9679

8248
8354
8493
8618
8730
8867
8963

9304
9729

8249
8358
8521
8625
8748
8869
8968

8256
8375
8522
8650
8762
8882
8969

8273
8386
8535
8664
8763
8884
9067

80724

8099%

81364

81734

BBSBN
97584

82174

89264
98384

89914
98744

91214
100274

91704
101224

92184
101744

7639

76454

7658

76644

7677

76834

7697

77034

7716

7722#

7754

77604

7768

82734

82864

83074

83204

83414

83544

83754

88934

8907

89294

8953

8963

8968

80104

8023

80384

8061

80724

8088

85804
94174

87264

82174
85094
8730
91214

B646H
94964

87484

8249
8522
8744k
9150
9532
10104

9256
9664

B6I7A4
95328

8763

8256
8536
8777
91704
9596
10122#

B744m
96124

87734

82684
8548
88024
9196
96124
10156

8BBO2H4
96954

88084

8290
8559
8841
92184
96,
101744

9316
9742

8825

83024
8564
88584
9256
96954
10226

9335
9810

9343
9825

8284
8388
8536
8665
8771
8889
9068

9345
9854

8286
8392
8547
8674
8773
8893
9090

8290
8426
8548
8676
8777
8905
9091

82684

83024

83364

83704

9401
9857

9481
9958

88364

88694

B3884

86504

8665

86764

8099#

8120

81364

8156

81734

8324
85804
8908
92764
9742
102394

83364
8608
89264
9345
8¢
10256

88844

8358
8618
8969
93604
9825
10277#

83704
8625
89914
9401
98384
10309

8392
86464
9068
94174
9857
10328#

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44

121
121.1
122

026320
026332
026572

124

027370

126
127
128
129
T3
130
731
132

027674
030240
030450
031000
021756
031100
031450
032012

123

027250

125

133

T34
T35
136
137
138
139
T4
140
T41
T42
TS
6
17
T8
9
UAM

027500

032262

032624
032754
033666
034150
034350
034650
022102
034740
035102
035250
022204
022324
022444
022620
023054
= 000200

UNIT
UNRR =
UPBITS
VECTOR
v35
=
WAIT50
WAX

WAX15

WAX16

002440
000001
002550
035606
000020
005120

= 000010

89264

89914

9300
8236

9312

8277

9331
8311

9339
8345

8379

6960

7181
10132

7410
10184

7430
10288

8940
10338

9005
10400

9308

9506

9549

7371
8750+

7380+

8513«
8756

8589+
8758

8652+
8814

8654+
9366+

9432+

8514+
8811+
9897+

8653+
9380+
9937«

8655+
9385+

10135+

6597+

6601~

9998

8752+

002376

004264

SEQ 0192

88584

002374

WRDYTO= 000002
WRIBYT
002366

WRITAX

5469

RN~

026066 G

alqlalalalalalalalalalalalalalalalalalalalalalalalalalal~

120

K 15
MACY11 30A(1052)
18-JuL=79 09:53 PAGE 8-18
CROSS REFERENCE TABLE == USER SYMBOLS

6554+
6750+
8177«
8380
9820+
8515

10201+

9468+
10205+

10209+

8590+
9367+
9909+
10213+

6555+

6556+

6591~

6592+

8274

8278
8934+

7217+

7218+

9993+

8754

7376+

8308+

8812

9224+
10351+
9368

8044
8312

8658

8704+

9433+
10139+

6604+
8045+

9542+

8314
9622+

9376

9381

CZDMRA M8203 S TATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
9386

WRITLU

003722

10140

64844

L 15

MACY11 30A(1052)
18=JuL=79 09:55 PAGE 8-19
CROSS REFERENCE TABLE == USER SYMBOLS
9434

9449

9454

9459

10190

10194

10198

10202

8076

8103

8178

8231

8275

8309

6557
9225

$LSTIN= 000001
$LSTTA= 000001
.
= 036172

9444

10148

10352

XyZ
= 000100
X$ALWA= 000000
X$FALS= 000040
X$OF
F S= 000400
X$TRUE= 000020

9439

10146

6594

9543

6598
9623

6602

6608

9675

9706

76184
8825

79484
8953

6748

SEQ 0193
9464
10206

6751
8343

9738

9769

8197
8963

8249
9068

9938

10136

8935

7225

7377
8938

8559

8608

9891

9994

5786

S4164
53984
8618

58864
8665

63604
8716

63884
8763

8522

9091

8536

105054

8548

CZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMRA.P11

BCOMPL

102#

BERROR
BGNAU
BGNAUT

1104
1184
1324

BGNDU
BGNHRD

1594
1724

BGNINI

2034

BGNCLN

BGNHW

BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSF T
BGNSRV
BGNSUB
BGNSW
BGNTST

7835

MACY11 30A(1052)

18=JuL=79

09:53

M 15
PAGE 9

CROSS REFERENCE TABLE == MACRO NAMES

7838

7841

7844

SEQ 0194

7861

7963

1464

1874

215#

2324
2454
2594
2974
3114
3254
352#
3674
3804
4084
4234
8509
9496

7630

7683

7703

7722

7740

8273

8375

8650

8701

8748

8136
8926

8173
8991

8217

8808

8869

8893
8010
8697
9695

10027

10122

9121
10174

8268

8302

10239

10277

9170

9218

8104

6388
6383
5469

7639

7658

7677

7697

7716

7734

7754

7768

8286

8320

8354

8388

8676

8726

8773

8836

8884

8336

9276

10328

8370

9360

10382

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18-JUL=79 09:44

ENDSRV
ENDSUB
ENDSW
ENDTST
EQUALS
ERRDF

ERRHRD
ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE

EXIT

9324
9524
974k
9884
8564
9516
1009#
10874
7100
7479
8488
8882
9729
1099#
11094
11184
11304
11404
11564
8963
11864

54064
54064
54064
54064
8625
9596
54064
54064
7106
7995
8521
8905
9810
54064
54064
54064
54064
54064
54064
9068
54064

FEQUAL
GETBYT
GETPRI
GETWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER
INLOOP
IOSETU
IOSTAR
KT11

1228#
12464
12644
12564
1286#
1299#%
13154
1328#
13404
13728
1640748
14324
14464
1453#
14664
14884

54064

MANUAL

1677#

54064

LASTAD

MEMORY
MSBYTE
MSCHEC
MSCNTO
MSCOUN

MSDATA

IMSDECR

1659#

16854
29014
32064
32794
31244
76504
76728
7694H
77234
77458
77678
26144

30634
78834
82904
87774
94814

MACY11 30A(1052)

09:53

N 15
PAGE 9-1

CROSS REFERENCE TABLE == MACRO NAMES

8889
5522
7998
8680
9679
5549
6678
7114
8021
8535
8952
9854

8197
9091

18=JuL=79

SEQ 0195

8968

8061
8777

8120
8908

8202
9101
10156

8493
9481

9825

10003

10104

6694

6807

6813

8086
8558
9067

8154
8617
9252

8196
8664
9295

8548

8559

8608

76354
76574

76364
76654
76874
77094
77314
77534

76464
76684
76904
77124
77414
77634

76454
76714
76934
77154
774464
77664

76974

77544
81564

82864

91964

94014

7266

8249

8156
8969

7290

8522

8536

104604

104614

10224

7025
7335

7296

7066
7473
8469

8386
8771
9566

8618

8665

8716

8763

8825

8953

54064
54064

54064
54064
54064

54064
54064
54064
54064

54064
54064
54064
54064
54064
54064

54064

54064
54064
54064
54064
54064
76514
76738
76954
7724M
T7468
7944K
54064
54064
79094
83204

88364
95164

7860
10458
10460

10459
10461

5446

10515
54464

104584
76254
76524
7674M
76964
77254
77474
BL26N
54464
55054
79264
83244

88414
95964

104594

77524
76774

84
98574

80574
84934
89684

100034

80614
85644
89694

101044

101564

102244

78034

86804

102564

8773

103054

10429#

(ZDMRA M8203 STATIC DIAG #1
CZDMRA.P1T
18=JUL=79 09:44
MSDEFA
MSENDE

104663#
3263#
3145#

10492
5406#
5406#
79268

105134
10458#
55054
79458

95168
10492#
23654
71004
7,798
84884
88824
97208
29214
89634
293¢

95968
105134
54068
7106#
79958
85214
89054
9B10#
5406%
9068¢
54064

96794

3186#
2943#
0965#
2954#
3087#
76458
77854

54064
54064
54064
54064
54068
76588
7799

83204
88364

MSERRI

MSESCA
MSESCS
MSEXCP
MSEXIT
MSEXSE
MSEXTJ
MSGEN

89634

80234
82864
85808

88674

MSGENB
MSGETS

91964
96958
10256¢
2764#
3079#

7883¢
82904

87308

MSGETT

MSGNGB

MSGNIN

83048
83414

9068¢

B354#

76774
80614
85644
896954

76974

77164

77684

77854

78834

81204

82564

91014
101564

91504
102244

93454
10359#

9014
104294

94814
104634

6684n

69714

70254
7335#

70604
73414
84504

70664
7473

95664

9581#

101044

8088#
86254

82864
87734

8290#
87774

86084

86184

87634

88254

89534

82494

86084

86184

87634

8825#

8953+

10458#

1046594

54124
76648
7817

54464

5469%
76834

80614
83204
86764
88934
92764
98254
10328#

80724
83244
86804
8907#
93454
98384
10355#

98574
103824

55224
79454
83544
87774
9014
104294
82494

76264
79644

76394
79984

90914

92184
97428
10277#

92564
97584
103094

8889#
55054
79264

832N
8773
9345H

103594
81974

2689%
77208
31014
70034
73118
76378
7658¢
76854
77064
77278
77488
77854
79068

54064
77408
54064
70094
73200
76388
7665#
76864
7707#
T728K
77498
7834w
79428

S412#
77608
54464
70194
73264
7639
7
76874
77084
7729
77504
78354
7944

8104#
83074

76584

82484
86744
93044

10309#
54068

8088¢
8290#

104604

80554
85474
89624
99584
82454

9196#
10256¢
2634#

89634

104594
5522:
7964
83584
8885
97424

SEQ 0196

70034
73114
82844
87154
93164

80574
B304
BbLON

83204
8763#
92564

18-JUL=79 09:53 PAGE 9-2
30A(1052)
CROSS REFERENCE TABLE == MACRO NAMES

66784
71148
80214
B535#
8954
9854
81974
90914
B197#

80384
82904
B625#

54064
5406#
79094

B 16

MACY11

90914

81184
83184

7120#

76774
78834

73054

55224

79234
8095+
83544
87264
89264

81364
83704
8744
89684

77034

78974

83584

55054

83884
88364
95164

104924

85364
54914
78174
55194
70664
747348
76484
76694
76904
77114
77324
77534
78404

9014
98744
L2

76244
77544
79644

77224
79404

8929

%174
100034
104564

76774
8057#
84934

94814
100274
104634

83864
8771#

101044
104894

82024
84194
88024
91014
95324
101564
10515#

76304
77684
79984

101744

82564
85094
88414
91504
96124

102244

80614
85644
88894
97424

77164
80884
86254
89074
98254

100034

101044

101564

86084

86184

87164

87654

88254

76244
79634
66844
71204
76314
76524
76734

76454
1048954

76644
105154

76974

77544

81564

86764
89684

00#

77684

82024
86804
89654

68074

72904
76344
76554
76764
76974
77244

7785#4

82564
87164
9101#

84694
88344
96644

(ZDMRA M8203 STATIC DIAG 01

CZDMRA.P11

18-JUL~-79 09:4

BL528
8607#
87264
88694
90674

MSGNLS
MEGNSU
MEGNTA

%014
100C3#
10492#
2717#
2679#
2659#

83924

MSGNTE
MSHAPT
MSHNAP
MSINCR

91964
102564
2669%#

85094
N

24778
25654
3054#

7025#
73350
76384
76584
76834
77034
77238
77438
77638
78834
79954

MSIOSE
MSLDRO
MEMASK

MSMCHI

LO
SK1

81184
82844
83864
85354
B664LH
87634
88844
90674
93164
96644
101044
24314
27714
23904
874

2327#
2402%#
206464
78834
82904

87774

IMSPRIN

94814
104634
2349#

BLEON
B6O84
B7304
88824 .
90684

94814
10104#
105154
54064
54064
54064

79264
84934

92564
103094
54064

B5804
95324

S4064
54064
54064

70604
73414
76394
76644

7684
77044
7724k
77448
7764k
78974
79984

81204
82864
83884
85364
BOOSH
87714
88894

93354
101224
54064
54064
54064

BL714
86174
B748#
8884#
90904

18=JUL=79 09:53 PAGE 9-3
CROSS REFERENCE TABLE == MACRO NAMES

84884

95164
101564

664
102244

8057#
88674
55054

82864
88934
55224

79454
B564#

93454
10359
79854

B64bH
96124

54464
54464
54124

70664
74734
76454
76654

C 16

MACY11 30A(1052)

SEQ 0197

91504
95964
103094

85214
86644
87734
89074
91964
96644
103594

85224
86654
87774
89084
92524
96794
104294

9729
104564

92954
97424
104584

104594

8354#

83884

86764

87264

87734

88364

76584

76774
80884
88414
96794

76974
81204
88894
97424

81564
89074
98254

77164

77340
82024
89084

84934
86504
87714
89054

80614
87774
95964

79644

86254

94014
104294
80104
86974

85354
86744
88084
89294
92564

81734
89914

96954

101224

54914

67004

72714
76314
76514
76714
76914
7114
77314
77514
779%
79424

76854
77054
77254
77454
77654
7899
BO10#

85364

89524

103284

78994

25064

79874

76774

76974

77164
80884
86254

98104
102564

98254
102774

7834#

78374

78404

78434

78604

55054

55224

76264

76394
79984

69714
73054
7634n
76544

76924
77124
77324
775248
78174
7944H

10309#

102394

83244

102774

68074
72904
76324
76524
76724

83364

102244

77854

98574

91214
101744

80614
82174
83414

97294
101744

104634

82174

80574
82024

81364
B290#
83924
85474
B674M
8773
88934
920904
93434
96954
101564

85594
87164
88414
89684
93434
98574

86764
88244

98544

85644
87244
88674
89694
93454

99584
104894

ronly

8358~

91014
101564

91504
102244

83704

84194
94174

70094
73204
76364
76564
76764
76964
77164
77414
77614
78434
79854
80994

70194

93604
10382#

98574
103594

73264
76374
76574
767748
76974
772248
77428

77624
78004
79874
81044
82734
83754
8522#
86504
87624
8882#
89914
93044
9612#

10027#
104854

54064

54064
54064

54064

79094
83204
95164
104924
54064

79264
83244

88414

95964
105134
76254

79454

80574
84934
89684

83544
88844
96794

83584
88894
97424

98254

98574

100034

76314

76324

76334

76344

76354

83884
89074

80614
85644
89694

77344

81204
86764

77854

78034

82564
87304
93454

87734

101044

91014
101564

91504
102244

103594

94014
104294

76364

76374

76384

76484

76454

CZDMRA MB203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
76504
76728
7694
77238

MSPUSH

MSPUT

MSPUTT

77458
77678
23374
7799

77528

T665
76874
77094
7731

77534

76668
76884
7710
7732M
776\M

T667M
76894
7711
77338
77628

76684
76904
77128
7741
77638

76698
76914
77134
77428
77648

76708
76924
7714@
77438

76714
76934
77154
77444

76304
79854

7645H
80104

76648
80384

BS094
8929
10027#

77038
80724

BS804
89914
101224

77228
80994

86464
91214
101744

77408
81364

B6SO¥
91704
102394

7760
81734

86974
92184
102774

77834
82174

88674

84194
B9264
98744

76838
80434

87014
92764
103284

95324

96128

96954

76314
76534
TE7S5H
77044

76324
T654M
TOG76M
77054

76334
7655
768B4M
77064

7634
76568
76854
77074

7729
7751

76354
T657H
76B6M
77084
7730
7752k

76364
76654
76874
77094

7637h
76668
76884
7710

77328
776\M

763BR
T667TR
76894
7711
77338
77628

76468
76684
76904
7712

T6LTR
76698
76914
77138

77428
77648

76488
76708
76924
77148
77438
77658

7644
76714
76934
77154

76348

76354

76368

T637H

76388

76468

T6LTR

T64LBE

76494

77328
776\M

77338
77628

7741
77638

77428
77648

77438
77658

7744M
77664

2B42#

54064

77238
77458

T72LK
776468

BBO2#

BBO8#

88584

7724M
776468
7944K

775K
T747K
BL26H

T720M
7748
B4S2K

7727
7749k
B471A

7728
7750
B4SOH

76514
76738
765K

7652
76748
T6I6H

7653
7675
7704M

T654M
76764
77054

7655
7684M
77064

10459#

104604

84904
104614

76254

T725M
T747K

54064

84264
10458#

54064

78604

76314

77268
TT48K

76324

777K
7749

76334

7728
7750

7751

83754
BBI3N
98384

7656
76B5H
77074

7657M
768B6H
77084

7729
7751

7731M
7753M

7730
77528

76654
76874
77094

7731
77538

76668
76884
77104

76454
80104

7664LH
80384

76834
80434

77418
77638

76678
7689
7711

76684
76908
77128

77034
80724

7722
80994

76694
76914
77138

76704
76924
7714k

77448
77664

76714
76934
77154

54124
78974
83024
BBO2N
966N

54914
7923
83074
8B084
95324

55194
79404
83364
BB8584
96124

76244
79634
83414
8B674
96954

76304
79854
83704
BBGON
97584

83754
B8BI34
98384

84194
B9264
98744

85094
89294
100274

BS5804
89914
101224

B8646#
91214
101744

86504
91704
102394

8697¢
92184
102774

87014
92764
103284

24684
27464
7100
7479
76498
76704
76918
77120

54064
54064
7106
76254
76504
76718
76924
77138

6678
7114
76268
76514
76724
76934
T714K

6684
7120
76318
76528
T673M
T694A
7715

6694
7266
76324
7653
T674M
76954
77168

6700
7271
76334
7654
TO7SH
76964
77238

6807
7290
76348
T655H
T676M
76974
T724M

6813
7296
7635
7656
T677H
7704
7725

6971
7305
76368
T6S7R
7684M
77054
7726

7003
7311
7637
76584
T6BSH
77064
T727M

7009
7320
76388
76658
76864
77074
77288

7019
7326
76398
76668
76878
77084
7729

7025
7335
764L6N
76678
76888
77094
7730

7060
7341
7647H
76688
7689
7710
77314

7066
7473
76484
76694
76904
77114
77324

77540
78834

77614
789

77628
79064

77638
TO0M

7764
79264

7765
T9L2R

77664
7944M

77678
7T94SH

77684
7964H

77854
79878

7834w
7995

78374
79984

78404
8021

78434
80234

78604
80434

88084
89294

8824
8952

82454
8386
8547
86804
88254
89534

9729

9742¢

9810

70254

70604

70664

TTLIN

77428

T743M

8055
82564
83884

80574
82734
83924

80614
8284
84264

8086
82864
8450

80884
82904
gzggl

87014
8834
8962
9316
98254

8715
88364

87164
88414
89684
9343
98574

8724
BB674

87264
BB6IN
906
94014
100034

2739%

9335
9854

54064

66784

93454
9958

66844

66944

T744M

81044
83074
8469
86084
B7304
8882
90684
94814
101044
67004

T7454

TTLOM

T747R

T74L8E

8118
8318
84714

81204
83204
8488

8154
83244
84904

81564
83414
84934

87484
88844

8762
88894

87634
88934

95164
101564

9566
102244

9581
102564

68074

68134

69714

77498

7750

8771
8905

8196
8352
8521
8664
87734
89074

81974
83544
8522¢
86654
87774
89084

95964
103094

9664
103594

%6794
104294

70034

70094

70194

7751

82024
8358#
8535

7760
81734

77664

54064
78174
82734
B7484
96178

T734K

77408
81364

77658

30714
7799
82684
87444
93604

77338

MSTLAB

< T657TH
76B6H
77084
7730

B3704
BBEO#
97584

76254
76528
T674M
76964

28024

76568
76854
77074
7729

77508
B4OOW
7624
79634
83414

54064
76514
TO673M
7695

MSRNRO

7655
7684
77064
7728

7749
B471H
55194
79404
83364

2B19#
76504
76728
(894

76504
76728
76944

T654M
7676
77054
7727

7748
B4S52K
54914
7923
83074

18238:

7723k
77658
77678

76538
7675
7704k
T726M

SEQ 0198

T747H
BL26H
54124
78978
83024

82734
B7484
182;2:

31514

MESTAR
M$SVC

77468
7944K
54064
78174

76528
7674k
76968
775K

82684
8744k
18;33:

MSRADI
MSSETS

76514
7673k
76954
7724m

D 16
MACYT1 30A(1052)
18-JuUL=79 09:53 PAGE 9-4
CROSS REFERENCE TABLE == MACRO NAMES

77528

8248
83754
85364

77834
82174

77534

CZDMRA M8203 STATIC DIAG #1
CZDMRA.P11
18=JUL=79 09:44
71004
76798
76498
76708
76914
77120
77338
77548
78834

MSTSTL

MSWORD

MSXFER
OPEN
POINTE
PRINTB
PRINTF
PRINTS
[PRINTX

READBU

71064
76258
76504
76714
76924
77138
77348
77618
7899

80554
82564
83884
85484
87014
88344
89624
93164
98254

80574
82734
83924
85584
87154
88364
89634
93354
98544

80554
82564
83884
85484
87014
88344
89624
93164

80574
82734
83924
85584
87154
88364
89634
93354

2728¢
71004
764798
76494
76704
76914
77128
77334
77548
78834

98254
28884
70604
73418
84504
4
95814
24104
16944
1702#¢
1768¢
7684
7744
18114
18544
1897%¢
7670
7708
7733
19404

54064
71064
76254
76504
76714
76924
77138
7734k
77618
7899

98544
54064

74738
B4GO¥
8834w
96644
54064
54064
54064
5406#
7685
7745
54064
54064
54064
7671
7709
7746
54064

71144
76264
76514
76724
76934
77144
7741#
77624

E 16

18-JUL=79 09:53 PAGE 9-5
MACY11 30A(1052)
CROSS REFERENCE TABLE == MACRO NAMES

71204

76314

72664
76324
76534

72904
7634
76554
76764

72964

SEQ 0199

73054

80614
B284#
BL26#
8559
87164
88414
89684
93434
98574

66784
71144
76264
76514
76724
76934
77144
7741
77624

80614
82844
B426#
8559
87164
88414
89684
93434

98574
54464
71004
7474
B4BBH
8882
97294
5436
7625
7686
7761
7944
7635
7672
7710
7747

7654
7765

7655
7693
7729
7766

7656
7767

CZDMRA M8203 STATIC DIAG #1
18=JUL=79 09:44
CZDMPA.P11
READEF

RFLAGS

SETPRI
SETVEC
SLASH
STARS
SvC
XFER

1945#

19674

56064

19774
1986#
19984
20154
20364

23104
23154

. ABS.

036172

ERRORS DETECTED:

7834

7837

7899

7987

30A(1052)

18-JuUL=79

CROSS REFERENCE

7840

7843

5406

229954

XFERF
XFERT

MACY11

SAIL : CZDMRA, CZDMRA/CRF /NL : TOC=CZDMP .MLB, (ZDMRA.P11
RUN=-TIME: 145 173 13 SECONDS
RUN-TIME RATIO: B876/332=2.6
(ORE USED:
1 8k
(35 PAGES’>

09:53

F 16

PAGE 9-6

TABLE == MACRO NAMES

SEQ 0200