Digital PDFs

AH-8783F-MC

March 1980

132 pages

Original

7.7MB

view download

OCR Version

6.3MB

view download

Document:	CZDZAF0 DZ11 DZ11 LN ASYNC MUX TST MAR 1980 bw
Order Number:	AH-8783F-MC
Revision:	000
Pages:	132
Original Filename:	CZDZAF0__DZ11__DZ11_LN_ASYNC_MUX_TST__AH-8783F-MC__MAR_1980_bw.pdf

OCR Text

MUX

TST AH-B783F-MC

FICHE 1

MACY1Y 30A1 gSZ)
26=NOV~-79 1 1:0

26=NJv=-79

11:06

PAGE 2

$EQ 0001

.RtM X

D e

80@\‘0‘\”5“'\)—‘0‘00\10‘\”5“'\)4

(IDIA-FO
CZDZAt .PNN

—

) e

aad

IDENTIFICATION

PRODUCT CODE:

AC-8781F
-m(

PRODUCT NAME:

CIDZAFO DZ'1

PROD JCT DATF:

NCVEMBER,

MAINTAINER -

DIAGNOSTIC ENGINEERING

THE

INFORMATION

THIS

DOCUMENT

LN ASYNC MUX

TSTS

1979

SUBJECT

(AANG.

W]THOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT (ORPORATION.
DIGITAL EQUIPMENT (ORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN “HIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY
OF SOF TWARE ON FQUIPMENT THAT [S NOT SUPPLIED BY DIGITAL
OR ITS AFFILIATED COMPANIES.

(C)

1976,1979 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

TRADEMARKS OF

DIGITAL

PDP

UNIBUS

DEC

DECUS

DECTAPE

EQUIPMENT

(ORPORATION:

MAS SBUS

CIDZA-FO
CIDZAF . P11

LB L IR RRI LS

45
)
47
48
4«9

MACY11 30A( 1 gSZ)
26=NOV-79 11 :0

26=NOV=79

11:06

}

PAGE 3

SEQ 000.]

ABSTRACT

THE

FUNCTION OF

ACCORDING

THE 211 DIAGNOSTICS IS TO VERIFv

TO SPECIFICATIONS.

THE

OPTION

DIAGNOSTICS ALSO VERIFY

THAT

OPERATES
THE

D211

SIZING'

CONTROLLED AT

ANY

OPERATES IN [TS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED.
PARAMETERS MAY BE

SUPPLIED TO THE PROGRAM BY

TO CERTAIN VALUES

(SEE

EITHER

‘AUTu

INPUT FROM THE USER ON THE TONSOLE BY HAVING SWOO=1 AT START TIME.
AUTO
SIZING WILL BE DONE ONLY THE FIRST
TIME
THE
PROGRAM
[S
STARTED
AND
SW07=0 AND
SW00=0 AND SWO3=0.
THE AUTOSIZER IS DESIGNED
TO
DETE(CT
DZ11 DEVICE ADDRESSES MD VECTORS AND TO DETERMINE WHE THER THE D211 THAT
IS DETEC'ED IS AN EIA OR 20MA BOARD.
ALL REMAINING PARAMETERS
DEFAULT
SEC.B.5).

START TIME THROUGH THE USE OF SWOO

FOR A DETAILED DESCRIPTION OF

(ONSOLE

THESE

SWwOI,

INPUT MAY BE

SWU4,

SwWITCHES).

AND SWO6 (SEE SEC. 4.1.1

REREBIIIFANANIITEIRSRUR

CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), ONE SYSTEM
;fifgg( XS};ZéDZM), AND AN UNL INE OVERLAY FOR DZITA (1TEP) - DZDZR.
CZDZA WILL TEST ALL FARTS OF
INTERFACE MODULE ITSELF.

THE

D211

SUCH AS (CABLES,

DIST PNL.,

REQU!REMENTS

EQUIPMENT
ANY PDP11 FAMILY (PU (WITH MINIMUM BK MEMORY)
ASR 33 (UR EQUILIVALENT FOR CONSOLE)

DZ11

H3271

H3190
H325
H315
NOTE:

INTERFACE MODULE

(M7819(tIA), M7814(20MA))

STAGGERED TURNAROUND C(ONNECTOR FOR EIA MOODULE.

STAGGFRED TURNAROUND (ONNE(CTOR FOR 20MA MODULE.
CABLE TURNAROUND AND DiST PNL TESTING FOR EIA MODULE.
THIS MAY BE SUBSITUTED FOR H325.
A STALGERED

TURNAROUND (ONNECTOR

PARITY AND BREAK LOGIC.

IS NEEDED

IN ORDER TJO TEST

THE

(Z02A-F0
CZDZAt .P1Y

26-NOV=-79

2.2

BS33RCRSR
88 SRIR

MAY BE CHANGED IF THE
USER
PARAMETERS ARE REWUIRED.

ALL PROGRAMS ARE

LOADER.

NOTE:

IN ABSOLUTE

THE

FORMAT AND ARE LOADED

DIAGNOSTICS

JMAGTAPE ,DECTAPE, OR CASSETTE;

AND

DIFFERENT

ARE

USING

MEDIA

THE

ABSOLUTE

INSTRUCTIOl..,

FOR

SUCH

THE

DISK

MONITOR

ABSOLUTE LOADER STARTING ADDRESS *500

MEMORY

16K

12K

117

20K
24K
28k

137

157

SIZE

MEANING

WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA.

)

THEIR

ME THOD

UNDERSTANDS

LOADING PROCEEDURE

SEQ 00C3

STORAGE

3.1

PLACE

3.1.2

DEPRESS

3.1.3

DEPRESS 'START KEY'
LOADING INTO CPU)

ADDRESS OF

b
b

NS LAY

PAGE

UNTOUCHED BY OPERATOR AFTER PARAMCTERS
HAVE
BEEN
INPUT
FROM
(ONSOLE
(SW00=1);
OR
AFTER
THE 'AUTO SIZING' HAS PEEN DONE.
THESE LOCAT]IONS

d =D

11:06

PROGRAM WILL USE ALL BK OF MEMORY EXLEPT WHERE ABL AND BOOTSTRAP
L OADER
RESIDE.
LOCATION
1500
THRU 2000 ARE ESPECIALLY TO BE NOTED AND TO BE

8%
86
87
88
89

MACY1Y 30A(1052)
26-N3V=-7G 11:03

ABS LOADER

(ALSO PLACE

‘HALT'

'LOAD ADDRESS'
ON

INTO

SW UP)

SWITCH REGISTER.

KEY ON CONSOLE AND RELEASE.
C(ONSOLE

AND

RELEASE

(PROGRAM

SHOULD

NOW

BLEARUKLEERY

d o
ed =D
D
d ad
d
b
p—y

MACY11 30A(1052)
26=N0OV=79 11:03

'26-NOV-79

11:06

PAGE 5

SEQ 0004

STARTING PROCEEDURE
A.

SET SWITCH REGISTER TO 000200

B.
C.

DEPRESS 'LOAD ADDRESS®' KEY AND RELEASE
SET SWR TO ZERO FOR 'AUTO SIZING'
OR SET SwO0=1 FOR USER PARAMETER
INPUT FROM CONSOLE TERMINAL.
ON
FIRST
START IF SW07=1 AND SwW00=0

DEPRESS

£
oV

CIDZA-FO
CZDZAF .P1N

THE

PROGRAM WILL DEFAULT

PARAMETER

INPUT

(SW00=1).

THE PROGRAM WILL TYPE MAINDE(

NAME

WwOULD

TABLE

AND
PROGRAM
NAME (IF THIS WAS THE FIRST START UP OF THE PROGRAM OR
PARAMETERS WERE CHANGED BY SW00=1) AND ALSO THE FOLLOWING:

'MAP OF DZ11

141

1500

1502

1504
1506

1510
512
THE

TO CONSOLE

'START KEY' AND RELEASE,

ABOVE

STATUS'

160100

000300

000005
000377

017470
000000

IS ONLY AN EXAMPLE!

THIS

|INDICATE

THE

STATUS

STARTING
AT
ADD.
1 00
IN
THE
PROGRAM,
THE
STATUS TABLE MUST BE
VERIFIED BY THE USER IF AUTO SIZING IS DONE.
FOR INFORMATION OF
STATUS
TABLE SEE SECTION 8.4 FOR HELP.
THE PROGRAM WILL TYPE 'RUNNING'' AND PROCEED TO RUN THE DIAGNOSTIC.
CONTROL

SWITCH SETTINGS

NOTE :

IF THERE IS MO REAL
SWR
(177570);
SWR
LOC:176 OR BY HITTING CONTROL "'G'' <*G> ON

SW 15

SET:

HALT ON ERROR

SW
SW
SW
SW
SWw
SW
SwWw

13
12
11
10
09
08
07

SET:
SET:
SET:
SET:
SET:
SET:
SET:

INHIBIT ERROR PRINT OUT
INHIBIT s«ALL%~ TYPF OUT/BELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
NO AUTO SIZE.
IF 1ST START OF
PROGRAM AFTER

SWw 06
SW 05
Sw 04

SET:
SET:
SET:

*SW 00

SET:

SW 14

SW 03
SW Q2
*+SW 01

SET:

SET:
SET:
SET:

MAY BE
MODIFIED
"ONSOLE TERMIMNAL.

LOOP ON CURRENT TEST

LOADING THE

OPERATOR MUST INPUT ADDRESS AND VECTOR FROM CONSOLE.
RESELECT DZ11°'S DESIRED ACTIVE

RESERVED
SELECT DELAY PARAMETER (SEE SEC. 4.1.1 )
EXTRA PARAMETER INPUT
(SEE SEC. 4.1.1 )
LOCK ON SELECTED TeST
RESTART PROGRAM AT SELECTED TEST
GET USERS PARAMETERS FROM (ONSOLE

FOR

ECHO OR

FOR ECHO OR

CABLE

TESTS

(PROGRAM STARTED AT

SWITCH
SET TO 1 ALLOWS
THE USER TO
CSR FOR THE DZ11 UNDER TEST.
CABLE

OF EITHER THE
UNDER TEST.

TEST

THIS

ECHO OR CABLE

SWITCH SET

TYPE
TO

LOC.

210)

THIS

IN THE VECTOR AND THE

TEST, BAUD RATE,

ALLOWS

THE

AND THE

SELECTION

LINE NUMBER

(ID2/~F0

CZDZAF .P11

MACY11

30A(1052)

26=N0V=79 11:03

26=NOV=/79

11:06

PAGE 6

SEQ 0005

183

184

185
186
187
188
189
190
19N
192
193
194
195
196
197

198
199
200

SWITCH REGISTER CONTROL OF

Sw 00

PARAMETER INPUT FROM (ONSOLE

GET USERS PARAMETERS FROM CONSOLE.
SETTING THIS SWIT(H AT STARY
UP
TIME
ALLOWS
THE USER TO INPUT AT THE CONSOLE TERMINAL
THE
FOLLOWING PARAMETERS:

BASE

DEVICE ADDRESS,

BASE

VECTOR ADDRESS,

BUS REQUEST LEVEL, DECLARE EIA GR 20MA MODULE, MODE OF OPERATION
(EXTERNAL
, INTERNAL, OR STAGGERED), AND THE NUMBER OF DZ11'S THAT
ARE RUNNING.
USING
THIS
SWITCH
ALONE DEFAULTS THE FOLLOWING
PARAMETERS:

ALL

DEFAULT BAUD RATE

8 LINES ARE

FOR
THE MAJORITY
OF
WITH TWO STOP BITS.

Sw 03

EXTRA PARAMEIER INPUT.

TESTING

TO BE

TESTED ON EACH DZ11,

THE

IS SET AT EIGHT BITS PER CHARACTER

SETTING

THIS

SWITCH

PROVIDES
THE
USER WITH THE ABILITY TO StT THE
TESTING AND TO SET THE DEFAULT
BAUD RATE USED

OF THE DIAGNOSTIC
TESTS.
ADJUSTED TO THE BAUD RATE

Sw 04

SET

IS SET AT 19.2 kBAUD, AND THE CHARACTER LENGTH

THE DELAY PARAMETER
GIVEN BY THE USER.

START UP TIME

LINES ACTIVE FOR
FOR THE MAJORITY

S AUTOMATICALLY

SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS
DETERMINES THE LENGTH OF TIME "HE PROGRAM STALLS WAITING
FOR
A
CHARACTER
TO BE COMPLETELY TRANSMITTED OR RECEIVED.
THIS DELAY
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME
FOR THE
DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN 11/45
WITH
BIPOLAR
MEMORY.
WHEN
RUNNING
THI5
PROGRAM ON A FASTER
PROCESSOR THE DELAY
PARAMETER SHOULD BE ADJUSTED PROPORTIONA! LY
HIGHER THAN THE FOLLOWING DEFAULTED VALUES:

2450

;TIME FOR

0750
0660
0330
0150
0060
0040
0030
0020
0010
0001
0001
0001
0001

;TIME
;TIME
;TIME
;TIME

1560
1120

;TIME FOR
;TIME FOR

;TIME
;TIME
;TIME
;TIME

;TIME
;TIME
;TIME
;TIME
;TIME

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

50 BAUD

75 BAUD
110 BAUD

134
150
300
600
1200
1800
2000
2400
3600
480V
7200
9600
19.2

BAUD
BAUD
BAUD
BAUD

BAUD
BAULD
BAUD
BAUD
kBAUD

CIDZA-FO
CZDZAF .P11

MACY11 30A(1052)
26-NOV=79 11:03

26-NOV-79

11:06

6.1.2

PAGE 7

SEQ 0006

SWITCH REGISTER RESTRICTIONS

Sw 06

RESELECT DZ11'S DESIRED ACfIVE.
TYPED
OUT
FOR
SETTING
ACTIVE.
THIS
MEANS
IF

00,01,02,03

WwILL

SET

THE
THE

PLEASE NOTE THAT A MESSAGE

SWITCH
REGISTER
EQUAL TO DZ11°'S
SYSTEM
HAS
FOUR
DZ11S;
BITS

LOC

'DZACTV'

THIS
SWITCH(SWO6)
FOUR DZ11S ARE IN THE

FROM

THE

SWIT(H

THIS

WOULD

EXAMPLE:

1=1

ALTERS
THAT
SYSTEM w#x2DQ NOTwee

SET SWITCHES GREATER THAN SWw 03 IN THE UP POSITION.

BE A FATAL ERROR.
DO NOT SELECT MORE ACTIVE DZ11S THAN HAS BEEN
GIVEN INFORMATION ABCOUT IN PARAMETER INPUT (SW00=1)

LOAD ADDRESS 200
START WITH SW 06=1

ME THOD :

PROGRAM WILL TYPE MESSAGE
SET THE BINARY NUMBER OF

D211,

3=2

D2171;

DZ11S

7=3 DZ11;

DESIRED

17=4 DZ11

ACTIVE

37=5 DZ11 ETC/AA PRESS

CONT INUE.
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05)
SET WITH ANY OTHER SWITCH SETTINGS DESIRED.
PRESS CONTINUE.

SWw 01

RESTART PROGRAM AT SELECTED TEST
IT IS STRONGLY SUGGESTED
THAT
AT LEAST ONE PASS HAS
BEEN MADE BEFORE TRYING TO SELECT A
TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE
REASON
BEING
IS
THAT
THE
PROGRAM
HAS
TO
CLEAR
AREAS AND SET UP PARAMETERS.

NOTE:

RUNNING MULTIPLE DZ11'S;

THE DZ11

JUNDER TEST MUST BE SELECTED BY THE USE OF

YOU

DESIRE

SWO6 BEFORE LOCKING ON

THE TEST.
IN OTHER WORDS,
EACH TIME THE
PROGRAM
IS
STARTED;
THE
FIRST DZ11 WILL BE SELECTED TO Bt UNDER TEST UNLESS SW06 15
USED TO SELECT ONLY ONE.

SwW 09

LOOP ON CURRENT DATA:
THIS
SWITCH
WILL
ONLY
WORK
IF
(ALL
'SCOP1*
IS IN THAT TEST.
THE REASON BEING THAT MOST TESTS DEAL

WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE
THUS IN BLCCK DATA, ONE PATTERN CAN'T BE SINGLED OUT.
THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLESHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT, MEANT
TO BE USED AS A GENERAL USER CONTROL SWITCH.

SW 04

SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED
WITH
CARE
AS TOO SHORT A DELAY WILL CAUSE VALID TESTS TN FAiL ON CERTAIN
PROCESSORS.
IT IS
RECOMMENDED THAT THIS SWITCH
ONLY 8E USED

IN CONJUNCTION WITH SCOPE LOOPS,

E.G,

2,1 SET.
THE SHORTEST PARAMETER IS 1;
177776. (SEE SEC. 4.1.1)

SW 14,9,4,1

SET;

SW 9.4,

THE LONGEST ACCEPTED IS

CIDZA~FQ
CZDZAF .P1

MACY11

30A(1052)

26=-NOV=-79 11:03

26=-NOV=79

6.1 .3

11:06

PAGE 8

SEQ 0007

SWITCH REGISTER PRIORITIES

e
e
s
v
«

WSS NPND —

EROR SWITCHES

SCOPE

SW
SW
SW
SWw
SW

3.
4.2

DELETE PRINT OUT/BELL ON ERROR.
DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST(ON ERROR).
GOTO NEXT TEST(ON ERROR).

SWITCHES

SW 09 (IF ENABLED BY °'SCOP1').
IF AN '+' IS PRINTED IN FRONT OFf
THE
TEST
NO. ON AN ERROR REPORT (EX. *TEST
NO.
10 ) SW09 IS
INCORPORATED IN THAT TEST AND THEREFORE SW09
IS
*USUALLY*
THE
BEST SWITCH FOR THE SCOPE LOOP
(SW14=0, SW10=0, SW09-1, Sw08=0)
IF
THE
PROGRAM
USER 1S
TECHNICALLY TRAINED TO ELECTRONICALLY
ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE.

12
13
15
08
10

SW09

NOT

ENABELED;

AND

THERE

zikb AREO
WARE

THE

MAJOR

TESTING

SA 210 - CABLE/ECHO - TERMINAL TESTS.
s
g B

0O~NON
S W

+~HARD*

ERROR

DIAGNOSTIC.

THIS

STARTING ADDRESS

SA 200 - ADDRESS 200 IS FOR NORMAL EXECUTION OF

INWWNWWNNIWN

(CONSTANT).;
SWO8 IS BEST.
FOR_INTERMITTENT
ERRORS EITHER START THE PROGRAM WITH SWO1 AND
SWO02
SET WHICH WILL ALLOW THE
USER TO LOCK ON A SELECTED TEST,
OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL.
SW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN
ERROR OCCURS.
SW 14
LOOP ON CURRENT TEST.

THE
USER THE OPTION TO VERIFY
¥Eg1£;11A TRUE LINK TO ANY DEC
H

NOTE :

NECESSARY

THE

FOR

VERIFICATION

STARTING AT ADDRESS 210 W LL GIVE

THE EIA CABLES AT THE DIST PNL OR
SUPPORTED
TERMINAL SUPPORTED BY

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES

UNDER

ACT11 OR
XXDP CONTROL
AND
WILL
ACT ACCORDINGLY.
AFTER *ALL*
GX?{L??QE DZ11°S ARE TESTED THE PROGRAM WILL RETURN TO 'XXDP' OR

OPERATING PROCEDURE
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION
WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING THE DIAGNOSTIC.

FOUR

CZDZA-FO
CIDZAF .PIN
326
327
%gg

MACY11 30A(1052)
26=-NOV=79 11:03

26=NOV=79

5.1

11:06

PAGE 9

NORMAL START OF DIAGNOSTIC

230
33
%g%
%%g

ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS
200;
IF
AUTO
SIZING
IS NOT USED OR WHENEVER SW00=-1;
THE FOLLOWING QUESTIONS
ARE ASKED AND MUST BE ANSWERED.
*"IST

336

'*1ST

"BR LEVEL

3¢1
362
363

(4:6):

TYPE

332;

355
356
357
358
:3')28

VECTOR ADDRESS

RANGE:

(300:770):

UNDER TEST.

346

351
352
%gz

*°

(SR

THE

SYSTEM

YOU

WISH

RANGE 300:770

FIRST

D211

THE

SYSTEM

THAT

THE

ABOVE

THE

PRIORITY

LEVEL

INFORMATION HAS BEEN GIVEN ABOUI.

“'TYPE

160000:163700

YOU MUST TYPE IN THE VECTOR OF THE

332%

%g?)

(160000:163700):

TESTING TO BEGIN AT.

341

?3)22

CSR ADDRESS

YOU MUST TYPE IN THE FIRST DZ11

%%g

%28

SEQ 0008

"‘A"" FOR EIA MODULE OR 'B'' FOR 20MA

THE

D211

RANGE & OR S OR 6.

(A:B):

‘'

TYPE “‘A"' IF RUNNING A DZ211-A,B.E (EIA).
"YPE ‘B’ IF RUNNING A DZ211-C.D.F (20MA).
TYPING A <CR> DEFAULTS TO EIA MODULES.

'MAINTENANCE MODE
[EXTERNAL
<H325>~E]A ONLY
[INTERNAL
<DZCSRO3=1>
[STAGGERED <H3271>-E]A ONLY
[STAGGERED <H3190>-20MA ONLY

(E)]
(1]
(S)]
(S)]

TYPE “E'OR ''I'" OR ''S"* DEPENDING ON WHICH MODE YOU WISH TO RUN
IN.
IF
RUNNING 'EXTERNAL'':
ALL
SELECTED LINES MUST BE
TERMINATED BY AN H325 TEST CONNECTOR.

(ZDZA~FO

CIDZAF .P11

MACY11 30A(1052)
26=NOV=-79 11:03

26-N?V~79

M :06

PAGE

"W OF

SEQ 0009

DZ11°'S <IN OCTAL>
TYPE

IS 1

wnwnwanar

(1:20):

TOTAL NUMBER OF

DZ11°S

THRU 20 IN OCTAL.
[F

SWO3=T

THEN

TO BE

TESTED

IN THE

SYSTEM.

RANGE

tawannnne

IF SW03=1 THE FOLLOWING WILL BE PRINTED.
"LINES ACTIVE BY BIT <IN OCTAL> (001:377):"'"
EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES
MAY
BE
SELECTED
(HOWEVER
IN STAGGERED MODE TWO ADJACENT LINES MUST BE

SELECTED (0-1, 2-3, 4-5, 6-7))..

"DEFAULT BAUD RATE <IN OCTAL>
THIS GIVES

(00:17):

THE USER A CHANCE

°*°

TO CHANGE

THE

USED IN APP. 90 PERCENT OF THE TEST. BAUD
"00''(
50 BAUD),'01''(
75 BAUD),'02''( 110
"04°'( 150 BAUD),'05''( 300 BAUD),'06''( 600
*10°°(1800 BAUD),'*11°''(2000 BAUD),’*12°''(2400

DEFAULT

BAUD

RATE

RATE CHOICES ARE:
BAUD).,'03''( 134 BAUD),
BAUD),'07''(1200 BAUD),
BAUD),'*13''(3600 BAUD),

""14''(4800 BAUD),'"15''(7200 BAUD),'"16''(9600 BAUD),'"17''(19.2 KBAUD)

LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE
TIME

TO COMPLETE A PROGRAM PASS DRAMATICALLY.

AN ARRARAARNRA AR

AN AR AR

THEY LENGTHEN THE

AR RARRAANRANRRAAY

IT IS IMPORTANT TO NOTE THAT ALL DZ11'S IN THE
SYSTEM MUST
BE
CONTIGIOUS
FOR
BOTH
ADDRESS
AND VECTORS.
ALSO ALL THE EXTRA

PARAMETERS OTHER THAN CSR AND VECTORS ARE

DZ11'S IN THE SYSTEM.

THE MODE OF OPERATION IS DIFFERENT
"PATCHED''
INTO THE CORRECT STATUS
START TIME.
AN ALTERNATIVE IS TO
ANSWER
QUESTIONS ABOUT DZ11 UNDER

IN THE SYSTEM.

GIVEN TO THE

EXISTING

IF NOT ALL DZ11°'S ARE SAME PRIORITY OR IF

FOR EACH DZ11;
THIS MUST
BE
MAP ENTRY WHICH IS PRINTED AT
PUT
SWO0=1
AT
START
TIME;
TEST AND INDICATE ONLY 1 DZ11

[IF THE STATUS MAP IS TO BE ‘PATCHED'' IT MUST

DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE.

CZDZA-FO
CZDZAE .P11

MACY11

30A(1052)

26=NOV=-79 11:03

26-NGV=79

" :06

PAGE

SEQ 0010

403

404

405
406
407

408
409
410
AR
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426

427

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

5.2

HOW TO RUN THE

NORMAL STARTING FOR THE FIRST TIME WwOULD BE:
WITH THE SWR EQUAL TO 003.
NOTE :
SW00=1
ASKS FOR 'VECTOR'' AND ''CSR'’

SW01=1

447

450

451
452

453
454
455

LOAD ADDRE"S

210;

START

ASKS FOR 'WHICH TEST ECHO OR CABLE'', 'RAUD RATE'’, "LINE'’

UNDER TEST.

PROGRAM WwILL FRINT OUT:

‘*VECTOR ADDRESS-''
YOU TYPE

VECTOR WITH A <(CR>.

"'CONTROL REGISTER ADDRESS-~"'
YOU

'WHICH TEST

TYPE

IN DZCSR UNDER

ECHO OR CABLE

LETS DO THE CABLE
T?E

EIA

VERSION

TEST.

(E OR O

TEST FIRST.
OF

THE

DZ11

=«THIS TEST
NOT

THE

300,

600,

IS ONLY TO BE DONE ON

20MA VERSION''.

TYPE

''C'’

<CR>

‘BAUD RATE- '’
TYPE EITHER 50,

3600, 4800,

"LINE:

EITHER 0,
"'CABLE

110,

135,

150,

7200, 9600 FOLLOWED BY <CR>

1200 1800,

2000,

2400,

'
YOU TYPE

THE LINE WHICH HAS

1, 2,

5, 6,

THE

H325

TEST

CONNECTOR.

(TYPE

PROGRAM WILL THEN PRINT:

TEST"'
AND

EVERYTHING

IS WORKING;

THE

FOLLOWING WILL BE PRINTED:

"PASS DONE.''

'Pé¥g DONE."'

L46

448
449

''CABLE/ECHO'' TESTS.

TO CHANGE LINES;

WHILE

THE PROGRAM

HIT ANY PRINTING KEY ON YOUR CONSOLE
S RUNNING AND

THE

FOLLOWING WILL BE

TERMINAL

PRINTED:

"LINE:
NOW CHANGE
NEW LINE.

"'CABLE TEST''
"PASS DONE.''
"PASS DONc.'’

CONTINUE

THE H325

TEST CONNECTOR TO ANOTHER LINE AND

PROGRAM WILL

THEN PRINT:

THIS OPERATION UNTIL ALL

LINES ARE

TESTED.

TYPE

THE

CZDZA-FQ
CZDZAF .P11
456
457

458
459
460
461
462
4E3
464
465
466

467

468
469

MACY11 30A(1052)
26=-NOV=79 11:03

26=-NOV=79

5.3

11:06

PAGE 12

ECHO TEST

IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE
VECTOR
AND
ADDRESS
HAVE
BEEN
TYPED IN;
JUST LOAD ADDRESS 210 AND START WITH SWR EQUAL TO

002.

476

477
478
479
480
481
482
483
484
485
486
487
488
489
490
(9N
492

493
494
495

496

497
498
499
500
501
502

503
504
505

PROGRAM WILL PRINT:

"WHICH TEST

ECHO OR CABLE

(E OR OO’

NOW TYPE AN "E'' TO DO THE ECHO TEST.

PROGRAM WILL PRINT:

"BAUD RATE-"'

470
174
472

473
474
475

SEQ 0011

TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECIED TO
THE DZ11 DIST PNL.
BAUD RATE CHOICES ARE: 50, 75, 110, 135, 150

300, 600 ,

1200,

PROGRAM WILL

1800,

THEN PRINT:

2000, 2400,

3600, 4800, 7200, 9600.

THE

LINE:
TYPE THE LINE THE TERMINAL
THE PROGRAM WILL PRINT:

CONNECTED

7O AT

THE

DIST PNL

THEN

"'TERMINAL ECHO TEST"
#xx AT

THIS POINT

THE MESSAGE:

"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789""

SHOULD BE PRINTED ON THE TERMINAL CONNECTED
THIS__MESSAGE

IS DESIRED

TO 377 (SWR=377) WHILE IT
1S REQUESTED ABOVE.

EQUAL TO 377;
"TYPE A CHAR.

TO BE

IS BEING OUTPUT

WHEN THIS MESSAGE

THE CONSOLE WILL PRINT:

ON DZ11

THE

DZ11.

CONTINIOUSLY OUTPUT;

SET

THE

SWR

WHEN THE LINE NO.

IS DONE AND THE

SWR

IS NOT

TERMINAL''

ANY PRINTABLE CHAR HIT ON DZ11 TERMINAL SHOULD BE ECHOED BACK ON
THE
TERMINAL.
wx]F
YOU HIT CNTRL C <*(> ON THE DZ11 TERMINAL
THE PROGRAM WILL PRINT:

"PASS DONE.''

ON THE CONSOLE TERMINAL
PRINTED

RUNNING.

DZ11

TO CHANGE

AND

TERMINAL
LINES:

THE

AGAIN

'QUICK
AND

BROWN

THE

TYPE ANY PRINTABLE

CONSOLE TERMINAL (NOT THE DZ11 TERMINAL).
TYPE "LINE:
‘' AND WAIT FOR A RESPONSE.

ECHO

FOX''

WILL

TEST WILL BE

CHARACTER

ON THE

THE PROGRAM WILL AGAIN

CZDZA-FO
CZDZAF .P1

MACY11 30A(1052)
26-NOV~79 11:03

26-NOV-79

d o
d
it
—d
—

PAGE

SEC 7012

PROGRAM AND/OR OPERATOR ACTION

THE
VARIETY
OF
PROGRAM
(CONTROL SWITCHES PROVIDED IN THIS
DIAGNOSTIC
PACKAGE
IS DESIGNED TO
PROVIDE THE USER
WITH A WIDE RANGE OF TROUBLESHOOTING TECHNIQUES.
BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE
SHOULD BECOME
FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR
RESTRICTIONS.
(SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3)

[0 R NTo IV, ¥NUI].§)

VIV, IV, IV, IV TV, 1V,

5.4

11:06

WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE
TYPED
OUT AND POSSIBLY
AN ERROR MESSAGE
(DEPENDING ON THE PARTICULAR ERROR:.

IT IS NECESSARY TO KNOW MORE

THEN LOOK
PC OF THE

IN THE
ERROR

INFORMATION

PROGRAM LISTING FOR THAT
REPORT.
THE
REASON FOR

CLEARER WHEN READING THE

COMMENTS

CONCERNING THE ERROR REPORT

TEST NUMBER AND THEN NOTE THE
THE
ERROR REPORT WILL BECOME

IN THE PROGRAM LISTING.

ERRORS
AS DESCRIBED PREVIOUSLY

OUT

THE

THERE WILL ALWAYS BE A TEST NUMBER AND PC

TIME OF AN ERROR

(PROVIDING SW 13=0 AND SW 12-0).

CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR.

6.2

ERROR

TYPED

[N MOST

MESSAGE

ERROR RECOVERY

IF FOR SOME REASON THE DZ11 SHOULD 'HANG THE BUS' (GAIN CONTROL
OF
BUS
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL
OF
CPU,
IF
THIS
SHOULD
HAPPEN;
LOOK
IN
LOCATION °'TSTNO' (ADDRESS 1216)FOR THE NUMBER OF THE
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC
ERROR.
IN
THIS
WAY
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZ11 WAS DOING AT THE
TIME OF THE ERROR.

RESTRICTIONS

STARTING RESTRILTIONS

SEE SECTION 4.1.2
STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW PROGRAM

WAS
STARTED.
ALSO
IT
IS
IMPORTANT
TO
USE THIS LISTING ALONG WITH THE INFORMATION
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS.

CIDZA-FO
CZDZAF .PT

MACY11

30A(1052)

26-NOV-79 11:03

26-NOV~79

7.2

11:06

PAGE

SEQ 0013

OPERATING RESTRICTIONS
PARAMETER MUST BE

INPUT FROM USER OR APT

‘'AUTO SIZING'' IS NOT USED.

MISCELLANEOUS

EXECUTION TIME
ALL DZ11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS'
MESSAGE
(PROVIDING
NO
ERRORS
AND
SW12=0)
WITHIN 2 MIN. THIS IS ASSUMING Sw11=1 (INHIBIT
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION.
THE
ACTUAL
EXECUTION TIME DEPENDS GREATLY ON THE PDP11 CPU CONFIGURATION.
AN 11/40
WITH
CORE MEMORY WILL TAKE AROUNC 100 SECONDS TO EXECUTE A PASS WITH NO
ITERATIONS AND ABOUT
400 SECONDS TO EXECUTE A FULLY ITERATED PASS.
ANY
OTHER
PDP11 CPU_
TYPE WILL EXECUTE A PASS IN
TIME PROPORTIONAL TO THE
EXECUTION SPEED OF THE CPU 'S MEMORY IN RELATION TO THAT OF AN 11/40.
8.2

PASS COMPLETE

NOTE:
SW11

+EVERY+ TIME T'{€ PROGRAM IS STARTED;
(DELETE
ITERATIONS)
WAS
(®
(=1).

ERRORS' AS SOON AS

PROGRAM

POSSIBLE.

STARTED-

WILL BE A

THEREFORE

THE TESTS WILL
RUN
AS
[F
THIS IS TO 'VERIFY NO *HARD+

THE

'QUICK PASS'

FIRST

PASS

ARE TESTED.
WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE
AN EXAMPLE OF THE PRINT OUT TO BRE EXPECTED.

END PASS (ZDZA-F

NOTE :

(SR:

160010

VEC:

300

PASSES:

000001

DEVICE.

THEY ARE

ONLY

FOR

THIS EXAMPLE.

TIME

IN SYSTEM

FOLLOWING

ERRORS:

THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE

THE

-EACH

UNTIL ALL DZ11'S

VALUES

FOR

CIDZA-F]

(202/F .PY,

582
83

ggg

MACYTT1 30A(1052)

26=NOV=-79 11:03

26-NOV=79

11:06

8.4

PAGE 15

KEY LOCATIONS

586
S87

SLPADR (1126)

€89
590

NEXT
(1360)
TSTNM (1122)

SR8
591
€62
573
L9

595

596

567

‘

RUN

(1406)

STATUS MAP

(1500)
= (2000)

598

599
600
601

602
603

CONTAINS THE ADDRESS
ITERATION COUNT
IS

DZACTV (1404)

CONTAINS THE ADDRESS OF THE NEYT TEST TO BE PEFORMED.
CONTAINS THE NUMBER OF THE TEST MOW BEING PEFORMED.
THE BIT
IN
CURRENTLY

'RUN'
ALWAYS
POIN'S
ONE
PAST
THE
BE ING
TESTED.
EXAMPLE :
1304/0000000001000000 MEANS THAT DZ11 NO.05 IS THE

D211
(RUN)

THCSE LOCATIONS CONTAIN THE

TEST

NOW RUNNING

INFORMATION NEEDED

TO 16 (DECIMAL) DZ11S SEOUENTIALY.

CSR,VECTOR AND STATUS CONCERNING
EACH DZ11.
EACH

BIT

SET

THIS

THE

WILL

CONFIGURATION OF

INDICATES

TESTED.

EXAMPLE :

(1310)

g?si;AINS THE RECEIVER (SR

CURRENT

THE

THAT

THE

TURN.
EXAMPLE:
THAT DZ11
NO.

132%8006000000010001 MEANS THAT DZ11 NO.

$BASE

D0Z11

THEY CONTAIN THE

LOCATION

ASSOCIATED DZ11 WILL BE TESTED IN
(DZACTV) 1300/0000000000011111 MEANS

00,01,02,03,04

WHERE PROGRAM WILL RETURN WHEN
REACHED OR IF LOOP ON TEST IS

ASSERTED.

604
g?)g

SEQ 0014

(DZACTV)

00.04 WILL BE
DZ11

UNDER

(IDZA-F0
C(ZDZAF P11
610
611
61
61
614

MACY11 30A(1052)
26-NOV-79 11:03

26~NOV-"9

8.4A

11:06

PAGE 16

MORE ON THAT

SEQ 0015

°STATUS TABLE'

(1500-2000)

MAP OF DZ11 STATUS®
160 100
1502
000300
1504
000005

1500

615

616

61?7
618

1506

1510
1512
THE
THE

1500

000377

017470
000000

ABOVE
INFORMATION WILL Bt
REPEATED FOR EACH OF UP TO 16 DZ11°'S
SYSTEM(THESE WILL FOLLOW UNDER THIS TABLE).
EXPLANATION:

160100

1502
1506

000300
000005

1506

000377

1510

0176470

;HéSSgTE:E SYSTEM CONTROL REGICTER FOP iHE 1ST D211
M

THIS IS VECTOR ‘A’ FOR THE FIRST D211 IN THE SYSTEM,
THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF
THE
DZ11.
BITIS
OF
THIS LOCATION INDICATES EITHER EIA OR
COMA, IF BIT'5=0 MODULE
SHOULD BE AN M7819, [F BIT15=1

MODULE SHOULD BE AN

M7R14,

;g1§5§§fg* BINARY REPRESENTATION OF WMAT LINES

ARE

THIS IS THE PARAMETER

THE

TESTS.,

_IT

LOCATION

USED

INDICATES PARAMETERS OF:

KX ON,

MOST

SPEFD

17 (19.2x BAUD) EIGHT BITS PER (HAR, AND TWO STOP

SELECT

BIJTS,

THE
USER MAY ALTER THE STOP BITS AND THE SPEED. BUT THE
REMAINING PARAMETERS SHOUWLD BE LEFT ALONE.
THIS
LOCATION
IS
USED TO LOAD THE DZ11 LINE PARAMETER

1512

000000

BITS IN THE DEVICE LINE PARAMETER REGISTER.

THIS LOCATION WILL CONTAIN EITHER ALL

Z2EROS

IT WILL CONTAIN 10000 INDICATING THAT

‘'STAGGERED

THAT

WAS

INTERNAL

SELECTED

INDICATING

LOOP WAS SELECTED AS MODE

INDILATING THAT

IT WILL

CONTAIN 000200

"EXTERNAL'" WAS THE MODE SELECTED.

THE ABOVE [S REPEATED FOR EACH DZ11 IN THE SYSTEM.
FILLED
BY
AUTO SIZING OR BY THE MANUAL PARAMETER
AS
DESCRIBED
PREVIOUSLY.
ALSO
IF
DESIRED
BY

LOCATIONS
MAY
BE
ALTERED
SPECIFIC CONFIGURATION.

HAND

(TOGGLED

OPERATION OR

MODE'’

THE TABLE S
[NPUT PROGRAM
USER.
THE

IN)

TO SUIT

THE

CZDZAF P11

MACYTY

30?((1)(3)52)

26=NOV=79 1

11:06

26=-NOV~79

PAGE 17

SEQ 0016

8.5

vee METHOD OF AUTO SIZING =+

8.5.1

FINDING THE CONTROL STATUS REGISTER.
THE PROGRAM WiLL START AT ADDRESS
160000 AND
ADDRESS
IN
THE
POINTER.
IF A NON-EX MEMORY

(HOLDING 160000)

IS UPDATED BY

ADDRESS 163700 IS REACHED.

AND

THE

START
‘REFERENCING'
THE
TRAP OCCURES, THE POINTER
ABOVE
¢
REPEATED
UNTIL

IF A 'SLAVE SYNC RESPONSE' WAS ISSUED BY THE

DZ11 (OR ANY OTHER DEVICE) (NO
NXM
TRAP),
°'MASTER
SCAN
ENABLE''
IS
ATTEMPTED TO BE SET AND THE 'TCR''BIT FOR LINE 7 IS SET.
°'‘TRDY'' IS THEN
TESTED TO BE SET AND BOTH 'TCRO7'' AND ‘MASTER SCAN ENABLE'' ARE TESTED TO
BE
STILL
SET.
|IF ALL OF THIS WORKED,
THEN A 'DEVICE CLEAR'' IS ISSUED
TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER SOME TIME
IT
SELF

CLEARS.

ALL

DZ11.

IF ANY OF

NOTE :

THE

THE ABOVE WORKED,

THIS DEVIC'

IS ASSUMED TO BE A

UPDATING OF

THE POINTER IS DONE

AND

THE PROGRAM DOES NOT FIND YOUR D711;

SOMETHING IS WRONG

AND

SEQUENCE

THE ABOVE FAILED;

IS REPEATED.

AUTO SIZING SHOULD NOT BE DONE.
AFTER IDENTIFYING A DZ11 THE PROGRAM THEN ATTEMPTS

TO SET ALL

DTR

BITS

IN DEVICE REGISTER 4.
IF _ANY DTR BITS DID SET THE MODULE IS ASSUMED TO
BFEVS?‘EIA MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR
20MA
¢

8.5.2

FINDING THE VECTOR
THE

VECTOR AREA

(ADDRESS

300-776)

IS FILLED WITH

THE

INSTRUCTION

10T AND

'.+2'
(NEXT
ADDRESS).
BIT14 AND BITS (TX INTERUPT ENABLE AND MSTSCAN
ENABLE) ARE SET INTO THE DZCSR.
“TCRO7'' IS THEN SET.
A DELAY
IS MADE

AND
IF
NO INTERUPT OCCURES (BECAUSE OF A BAD DZ11) THE PROGRAM ASSUMES
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED
IN
THE
DIAGNOSTIC.
ONCE
THE PROBLEM IS FIXED,
THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET
CORRECT VECTOR.
IF AN INTERUPT OCCURRED,;
THE ADDRESS TO WHICH THE DZ11
INTERUPTED
TO
IS
PICKED UP AND REPORTED AS THE VECTOR.
NOTE:
[F THE
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU;
THERE IS A PROBLEM AND
AUTO SIZING SHOULD NOT BE

8.5.3

DONE.

PARAMETER ASSUMPTIONS.
SINCE

TOO MUCH HARDWARE WOULD NEED TO BE

TURNED ON TO SIZE

THE

REST

THE
PARAMETERS;
THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS.
RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION
MAY
BE
ALTERED
BY

(TOGGLE IN)
WAS DONE BY

IF DESIRED).
THE PROGRAM,

THEREFORE
:
1)
B> PRIORITY

2)
3
6)
FOR

ALL

IN THIS WAY 95 PERCENT OF
AND S5 PERCENT BY YOU.

SET

OFf

THE
HAND

THE PARAMETER SETUP

TO LEVELS.

ALL EIGHT LINES ARE ASSUMED TO BE TESTED.
DEFAULT BAUD RATE IS SET T0O 17 (19.2 K).

MODE

PARMMETER

OPERATION

ADJUSTMENTS

IS ''INTERNAL MODE''.

PLEASE

REFER

SECTION 8.4A

FOR

GREATER

DETAIL.

(IDZA-FO
P
CZDZ.AF
707
708

MACY11

30A(1052)

26-NOV-79 11:03

26=-NOV=79

11:06

PAGE

1§
SE.

709

9.0

RUNNING THE DZ11

713
714
715

9.1 A

THE APT

719
[4)
712

AUTOMATED

717
716
719
720
721
722
723
724
725
726
727
728
729
730
731

750
751
752
753
754
755
756
757
758
759
760
761
762

TEST

TO BE

SYSTEM.

ASIDE

FOR APT

INTERFACING.

BEGIN WITH A DOLLAR SIGN

COMPATIBLE WITH THE AF IT

9.1 .3

($),

THESE

E.G.,

SETTING UP THE

DIAGNOSTIC USING APT

THE

USES

DIAGNOSTIC

SEVERAL

'APT MAILBOX-ETABLE'.

733
734
735
736
737
738
739

748
749

PRODUCT

CAN BE

RUN AS A STANDALONE

DIAGNOSTIC OR IN EITHER OF THE APT MODES.
CERTAIN
VARIABLES
IN
THE
ORIGINAL
APT MODULE WERE REASSIGNED TO THE AREAS SET

732

747

INTERFACE

CZDZA HAS BEEN REDESIGNED

716

740
741
762
743
7464
745
746

DIAGNOSTIC UNDER APT

THESE

NEW

SDEVM,

VARIABLES

GENERALLY

S$BASE.

THE

VARJABLES ARE:

SUBTITLED

$SWREG -

USED IF A SOFTWARE
UNDER APT

SVECT1

USED TO SPECIFY
VECTOR ADDRESS

$BASE

USED TO INDICATE BOTTOM ADDRESS OF

$DEVM

A BIT MAP REPRESENTING WHICH DZ11°'S WILL BE

$CDW1

USED TO

INDICATE WHICH LINES

$ODWO

EACH OF

THE

(LPR,

RUNNINC UNDER

THE

$DDW

SWITCH REGISTER

REGION

IS DESIRED

INTERRUPT LEVEL

WORDS

AND

D211

THE

UNDER

TO RUN ON ALL

DESCRIBES

FOR A PARTICULAR DZ11,

THE

WHILE
FIRST

TEST

TESTED
DZ211°S

PARAMETERS

GOING UP TO 16 DZ211'S

APT

THE USER SHOULD BE
TIMING
PARAMETERS

FAMILIAR WITH
THE
APT
SYSTEM.
THE
APT
FOR
THE
DZ11 DIAGNOSTIC WERE BASED ON AN

11740 PROCESSOR.
IT MAY
BE
NECESSARY
TO
ADD
A
FEW
SECONDS IF THE DIAGNOSTIC IS OUT ON AN 11/05 PROCESSOR.
ALL OF THE VARIABLES MENTIONED IN SECTION 9.1.2
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT,

SHOULD BE

SET

NOTE

SURE $BASE POINTS

BASED ON THESE

VALUES,

TO THE FIRST DZ11 BEFORE RUNNING

THE

DIAGNOSTIC WILL

SET UP

THE

STATUS

0017

CIDZA-FO
CZDZAF .P11
763

MACY11 30A(1052)
26-NOV=~79 11:03

26-NOV=~79

11:06

PAGE

TABLE.

19
THE

SEQ 0018
USER

THEN FREE

TO MCNITOR UNDER APT

AS NORMA|
.

CIDZA-FO
CZDZAF P11

MACY11 30A(1052)
26=NOV=-79 11:03

764
765
766
767

26=-NOvV=79

11:06

10.0

768
769
770

SEQ 0019

CHANGE HISTORY
NOTE:

HISTORY

STARTS WITH REV.

REV

771

772
773
774
775
776
777
778
779
780
781
782
783
784
785

CHANGE

FO:

ALTER
TO ALLOW MORE

FO
DESCRIPTION

TRANSMITTER
TIME

FOR

iINTERRUPT

THE

TCR BIT

SERVICE
TO

ROUTINE

CLEAR BEFORE

LOWERING THE BUS PRIORITY TO ENABLE DZ11

INTERRUPTS.

TITLE
(ZDZA=FO
:*COPYRIGHT (C) 1976,1979
:*DIGITAL EQUIPMENT (ORP.
: *MAYNARD,

MASS.

01754

786

787
788
789

PAGE 20

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

SYSMAC

000001

$TN=1

. STARTING PROCEDURE
;LOAD PROGRAM

;LOAD ADDRESS 000200

;PRESS START
;PROGRAM WILL TYPE '‘CZDZA-F0/<200>/CZDZAFO DZ11 LN ASYNC MUX TS°S **

;PROGRAM WILL TYPE 'RUNNING'' TO INDICATE THAT TESTING HAS STARTED
JAT

THE

END OF

A PASS,

PROGRAM WILL

JAND THEN RESUME TESTING
.SBTTL

D
D
b
—h
b
-k

L o1e

00 0o 0o 0o 0o 00 0o 0o

N o RV, POV I],N)

809
810
81

STACK=

000011
000012
000015
000200
177776

HT=

1727772
177570
177570

PASS

COMPLETE MESSAGE

BASIC DEFINITIONS

*INITIAL ADDRESS OF THE STACK POINTER #x% 1120 wx#x

001120

177774

TYPE

LEQUIV
.EQUIV

1120

EMT,ERROR
10T.SCOPE

;:BASIC DEFINITION OF
2:BASIC DEFINITION OF

;*MISCELLANEOUS DEF INITIONS

LF=
CR=
CRLF=

PS=
.EQUIV

;:CODE

177776
PS,PSW

::PROCESSOR STATUS WORD

12
15
200

FOR HORIZONTAL

ERROR CALL
SCOPE CALL
TAB

::CODE FOR LINE FEED
© CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN=-LINE FEED

STKLMT= 177774

::STACK LIMIT REGISTER

DSWR=
DDISP=

: *HARDWARE SWITCH REGISTER
. HARDWARE DISPLAY REGISTER

PIRQ=

177772

177570
177570

. :PROGRAM INTERRUPT REQUEST REGISTER

s *GENERAL PURPOSE REGISTER DEF INITIONS

820

MACY11 30A(1052)
26-NOV-79 11:03

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

100000

040000

002000

26-NOV=-79

11:06

RO=
R1=
RZ=

%0
%1
22

PAGE 21

SEQ 0020

BASIC DEFINITIUNS

R3=

RS=
R6=
R7=
SP=
PC=

x5
26
%7
X6
x7

Ré4=

:*PRIORITY

PRO=
PR1=
PR¢=
PR3=
PRé=

PRS5=
PR6=
PR7=

;s GENERAL REGISTER
; ; GENERAL REGISTER
5 : GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
; ; GENERAL REGISTER
;s GENERAL REGISTER
;:STACK POINTER

0
40
100
140
200

; sPROGRAM (OUNTER

LEVEL DEFINITIONS

240
300
340

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
;;PRIORITY LEVEL
;.PRIORITY
;sPRIORITY
;;PRIORITY
ssPRIORITY
;:PRIORITY
:.PRIORITY
;.PRIORITY

;%' 'SW'TCH REGISTER'' SWITCH DEFINITIONS
SW15=
100000
SW14=
40000
Sw13=
20000
Sw12=
10000
SWi1=
4000
Sw10=
2000
SW09=
1000
Sw08=
400
SW07=
200
Swo6=
100
SW05=
40
SWo4=
20
sw03=
10
4
SWO2Swo1=
2
Swoo=
1
.EQUIV
SWO9,SW9
.EQUIV
SW08,Sw8
SWO7,SW7
.EQUIV
.EQUIV
SWO6,Sw6
.EQUIV
SWO5,SW5
.EQUIV SWO4, SWé
.EQUIV
SWO03,Sw3
.EQUIV
SWO2,SW?2
.EQUIV
SWO1,Sw1
.EQUIV SW00, SWO
, *DATA BIT DEFINITIONS
100000
40000

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=

20000
10000
4000
2000

(BITOO TO BIT15)

NOWVMsSs
LW
—=O

CZDZA-FO
CZDZAF .PIN

CZDZA~FO

CZDZAF .P11
876
877
878

MACY11 30A(1052)
26=NOV-79 11:03

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

26=NOV=79

11:06

BIT09=
BIT08=
BIT07=
BIT06=
BIT05=
BIT04=
BIT03=
BITO2=
BITO01=

1000
400
200
100
40
20
10
&
2

.EQuUIV
.EQUIV
.EQulv
.EQUIV
.EQUIV

BIT09,BIT9
BIT08,BI1T8
BITO07.BIT7
BIT06,BIT6
BITO5,BITS

BIT00=

.EQUIV
.EQulv
.EQuIV
.EQuIv
.EQuIv
000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

PAGE 22

SEQ 0021

BASIC DEFINITIONS

BITO04,BIT4
BIT03.81T3
BIT02.BIT?
BIT01.BIT]
B8ITO0N,BITO

;*BASIC '‘CPU'" TRAP VECTOR ADDRESSES

ERRVEC= &4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14

;:TIME OUT AND OTHER ERRORS
;;RESERVED AND ILLEGAL INSTRUCTIONS
;0rhelr
;:TRACE TRAP
: :BREAKPOINT TRAP (RPT)

PWRVEC= 24

:;POWER FAIL

IOTVEC= 20

;3 INPUT/0UTPUT TRAP (JOT)

EMTVEC= 30

::EMULATOR TRAP (EMT)

TRAPVE(C=34

TKVEC=
TPVEC=

::"'TRAP'' TRAP

x=SCOPE=x=

=+ERROR**

::TTY KEYBOARD VECTOR

;:TTY PRINTER

PIRQVE(C-240

VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR

;INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPRQ=12600
PUSH2SP=24646
POP2SP=22626

;DECREMENT PROCESSOR STACK 1
s INCREMENT PROCESSOR STACK 1
;SAVE RO ON STACK
JRESTORE RO FROM STACK
;DECREMENT STACK TWICE

s INCREMENT

WORD
WORD

STACK TWICE

;D211 CONTROL AND STATUS REGISTER DEF INITIONS
BIT DEFINITIONS
; (DZCSR)
000010
000020
000040
000100
000200
010000

MAINT - BIT3
DCLR=BIT4
MSENAB=BITS
RIE=BIT6

RDONE=BIT7
SILOEN= BIT12

;MAINTENANCE MODE ENABLE
;DEVICE CLEAR
;MASTER SCAN ENABLE

JRECEIVER

INTERRUPT ENABLE

JRECEIVER DONE
;SILO ALARM ENABLE

020000
040000
100000

26-N0OV=79

11:06

PAGE 23

GENERAL DEFINITIONS AND EQUIVALENCES

SILOAL = BIT13
TIE=BIT14
TRDY=BIT15

;SILO ALARM

sTRANSMITTER INTERRUPT ENABLE
:TRANSMITTER READY

;DZCSR WORD DEF INITIONS
WO

TLO=0
s TRANSMIT LINE
; TRANSMIT LINE
TL1=B]IT8
TL2=BIT9
s TRANSMIT L INE
TL3=BIT9!BIT8
s TRANSMIT LINE
;TRANSMIT LINE
TL4=BIT10
TL5=BIT10!B]T8
s TRANSMIT LINE
TL6=BIT10!BIT9
: TRANSMIT L INE
TL7=BIT10!BIT9!BIT8 ;TRANSMIT LINE
AN

000000
000400
001000
001400
002000
002400
00300C
003400

. DZRBUF BIT DEFINITIONS
010000
020000
040000
100000

PARER=BIT1?
FRMERR=BIT1 2
OVRRUN=BIT1 4

CVALID=BIT1 5

;PARITY ERROR
;FRAME

ERROR

;OVERRUN ERROR
;DATA VALID

.CZRBUF WORD DEFINITIONS

000000
000400
001000
001400
002000
002400
003000
003400

RLO=0
RL1=BITS8
RL2=BIT9

RL3=B]IT9!BIT8
RL4=BIT10
RLS=BIT10!BIT8

JRECEIVER
JRECEIVER
JRECEIVER
JRECEIVER
JRECEIVER
JRECEIVER
JRECEIVER

L_INE
LINE
LINE
LINE
LINE
LINE

VIS W= O

932
933
934
935
936
937

MACY11 30A(1052)
26-NOV=-79 11:03

RL6=BIT10'!BIT9
LINE
RL7=BIT10!BIT9!BIT8 ;RFCEIVER LINE

;DZLPR WORD DEF INITIONS

LPO-0
;LINE
LP1-8ITO
sLINE
LP2-BIT1
JLINE
LP3=B]T1'!'BITO
sLINE
LP4=BIT?2
cLINE
LP5=BIT2!BIT0
:LINE
LP6=BIT2!BIT1
;LINE
LP7=BIT2!BIT1!BI 70

PARAMETER
PARAMETER
PARAMETER
PARAMETER

PARAMETER
PARAMETER
PARAMETER

NN
W
— O

CZDZA-FO
CZDZAF .P1T

;LINE PARAMETER 7

FIVE=0

:FIVE BITS/CHAR.1 STOP BIT

FIVES=BITS

‘FIVE BITS/CHAR,2 STOP BITS

SIX=BIT3
*SIX BITS/CHAR,1 STOP BIT
SEVEN=BIT4
*SEVEN BITS/CHAR,1 STOP BIT
EIGHT=BIT4!BIT3 “EIGHT BITS/CHAR.1 STOP BIT
SIXS=BIT5!BIT3
*SIX BITS/CHAR,2 STOP BITS
SEVENS=BIT5!BIT4
-SEVEN'BITS/CHAR, 2 STOP BITS
EIGHTS=BIT5!BIT4 'BIT3
:EIGHT BITS/CHAR. 2 STOP BITS

SEQ 0022

MACY11 30A(1052)
26=NCv~79 11:03

26-NOV=-79

11:06

ODDPAR=BIT7
ONESTOP=0

TWOSTOP=BITS

g
nN) [ 0] ,9] ¢ Qo P Puur-Phur Phur G
W N=O 0NN

Gl Shar Ghus Py

WN—=0O

D
b e

b e

EVEPAR=0
RCVON=BIT12

2
SEQ 0023

GENERAL DEFINITIONS AND EQUIVALENCES

PARITY=BIT6

lololololelelelolelololelale]

PAGE 24

;PARITY ENABLED

;00D PARITY ENABLED
;ONE

STOP BIT ENABLED

;TWO STOP BITS ENABLED
;EVEN PARITY ENABLED
;ENABLE RECEIVER (RECEIVER ON)

$50=0
;SPEED
S75=BIT8
;SPEED
$110=B179
;SPEED
S134=8179!BIT8
;SPEED
S150=81710
;SPEED
S300=BIT10!BIT8
;SPEED
S600=81T10!BIT9
;SPEED
$1200=8IT710!B179!BIT8
;SPEED
S1800=B1T11
;SPEED
S2000=B1711!8BIT8
:SPEED
$2400=8I1T11!8BIT9
;SPEED
S3600=BIT11!BIT9!BIT8
;SPEED
%4800=B1T11!8BIT10
;SPEED
S7200=8IT11.8IT10!BIT8
;SPEED
5¥000=BIT11!BIT10!BIT9
;SPEED
$19200=BIT11!BIT10!BIT9!B1T8

50 BAUD
75 BAUD
110 BAUD
134.5 BAUD
150 BAUD
300 BAUD
600 BAUD
1200 BAUD

1800 BAUD
2000 BAUD
2400 BAUD
3600 BAUD
4800 BAUD

7200 BAUD
9600 BAUD
;SPEED 19200 BAUD

;DZTCR BIT DEF INITIONS
TCRO=BITO
TCR1=BIT1

TCR2=BIT?
TCR3=BIT3

TCR4=BIT4
TCR5=BITS
TCR6=BIT6
TCR7=BIT?7
DTRO=BIT8

DTR1=BIT9
DTR2=8BIT10
DTR3=8BIT11
DTR4=BIT12
DTR5=BIT13
DTR6=BIT14
DTR7=BIT15

RINGO=BITO
RING1=BIT1

RING2=BIT?2
RING3=8IT3

RING4=B]
T4

RINGS5=BITS
RING6=BIT6
RING7=BIT7

C00=BIT8
(01-BIT9

JRING INDICATED
;JRING INDICATED

;RING
;RING
JRING
;RING

INDJCATED
INDICATED
INDICATED
INDICATED

;RING INDJCATED

;RING INDICATED

22222822

CZDZA-FO
CZDZAF .P11

LINE
L INE
L INE
L INE
LINE
LINE
L INE

LINE

;CARRIER PRESENT ON LINE O

;CARRIER PRESENT ON LINE 1

1081

C04=BIT1?2
C05=BIT13
C06=BIT14
C07=BIT15

PAGE 2

2
SEQ 0024

:CARRIER PRESENT ON LINE 2
:CARRIER PRESENT ON LINE 3

sCARRIER PRESENT ON LINE 4

;CARRIER PRESENT ON LINE S
;CARRIER PRESENT ON LINE 6
;CARRIER PRESENT ON LINE 7

:DZTDR BIT DEFINITIONS
BRKO=BIT8
BRK1=BIT9
BRK2=BIT10
BRK3=BIT11
BRK4=BIT12

BRK5=BIT13
BRK6=BIT14
BRK7=BIT15

;TABLE OF

—

1073
1074
1075
1076
1077
1078
1079
1080

(02=8IT10
C03=8IT11

1067
1068
1069
1070
1071
1072

11:06

GENERAL DEFINITIONS AND EQUIVALENCES

VNN,

1064
1065
1066

002000

26=NOV=79

BBy

1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063

MACY11 30A(1052)
26-NOV=-79 11:03

(ZDZA-FO
CZDZAF .P11

;BREAK
;BREAKN
;BREAK
;BREAK
;BREAK

FOR
FOR
FOR
FOR
FOR
;BREAK FOR
;BREAK FOR
;BREAK FOR
LOOP AROUND FUNCTIONS

LINE
LINE
LINE
LINE
LINE

O
1
2
3
&

LINE S

LINE 6
LINE 7

(H325)

CZDZA~FO
rZDZAF PN

MACY11 30A(1052)
26~NOV-79 11:03

26=NOV=79

PAGE 26

TRAPCATCHER FOR UNEXPECTED

1082
1083
1084
1085

SEQ 0025

INTERRUPTS

;:t'fiti*.tfi.tttfifit*ti'tt'Qt't*ttfitttttitttlt'tt'fitttt'ttfittt*ttttt.fitt

s TRAPCATCHER FOR ILLEGAL INTERRUPTS
;THE STANDARD ‘‘TRAP CATCHER'' IS _PLACED

JBETWEEN ADDRESS O TO ADDRESS 776.
;1T LOOKS LIKE 'PC+2 HALT'.

)

[o-]

383333 W)
33833
= \Og\l=

D —

11:06

e e

.=0

SET.PS
PR?7

;FAKE 'MTPS'' INSTRUCTION TRAP
;MAKE SURE PS IS PRIORITY 7

.SCOPE
PR7
$PWRDN

;SCOPE LOOP HANDLER
JHAMNDLE AT PRIORITY 7
;POWER FAIL HANDLER

$ERROR

;ERROR HANDLER

PaYeYelalayale) 8

b b b p=

ed
d e

d d d i

)
D
) e
)
d

340

e
APONINLAIAOINININIAININ) =

;SERVICE AT PRIORITY LEVEL 7

340

=D b d d d e

D
d
eed
e
) e
d
d

D d d d

D
e

e
D
D e

)

o~ d

—)

.=20

.SBTTL

;SERVICE AT PRIORITY LEVEL 7

. TRPSRV
4
340

;GENERAL HANDLER DISPATCH SERVICE

ACT11 HOOKS

I RNRAARR A A AR AR A AR R AR AR

000046

000052

000210

001000

001000
005200

000200

*HOOKS REQUIRED BY ACT11

000040
000046
004726
000052
000000
000040

000174
000000
000000
000200
000137
000210
000137

000174
000176

b e e

b nd

) d

)

) D d d e

D d

)

=10

; STANDARD INTERRUPT VECTORS

;SERVICE AT PRIORITY LEVEL

AN A AN RRA AR AN AR RARN AN AR AR

A AN RN

ssxzc=.

:SAVE PC

iEgng

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

WORD

"=$SVPC

=174
DISPREG:0
SWREG:
0

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

:SOF TWARE DISPLAY REGISTER FOR SWITCHLESS 11S
*SOFTARE SWITCH REGISTER FOR SWITCHLESS 11§

002150

) 210

JMP

.START

;GO TO START OF PROGRAM

023770

XSTART

:GOTO CABLE TEST/ECHO TEST

.=1000
MTITLE:

.ASCIZ

<200><12>/(2DZA-F0/<200>/CZDZAFO DZ11

055103

055104

LN ASYNC MUX TSTS /<200>

MACY11 30A(1052)
26-NOV=79 11:03

AR AR RN

A AR AN

AR AN

AN AR AN AR N AN RARARA RN AN

;cAUTOMATIC MODE INDICATOR
;. INTERRUPT MODE INDICATOR
o

;;ADDRESS OF SWITCH REGISTER
..ADDRESS OF DISPLAY REGISTER

2:7TY KBD BUFFER
J:TTY PRINTER STATUS REG.

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

$REGO:
$REG1:
$REG2:
$REG3:
SREG4:
$REGS:
$TMPO:
$STMP1:
$TMP2:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

$CRLF:
$LF:

.ASCII
.ASCIZ

$TMP3:
_WORD
$TIMES: O
$QUES:
L.ASCII

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF 'GOOD' DATA
. ;CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS 'GOOD* DATA
;;CONTAINS 'BAD' DATA
; sRESERVED--NOT TO BE USED
;;CONTAINS
;;CONTAINS
;s CONTAINS
;;CONTAINS
;s CONTAINS
. sCONTAINS
;;CONTAINS
;JCONTAINS
:;CONTAINS

;:TTY KBD STATUS

OO=MNCO

o
~nN

SNULL:
$FILLS:
$FILLC:
$TPFLG:
$REGAD:

1727560
1727562
177564
177566

;START OF COMMON TAGS

22
0

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

\rivivlelolelelelelolalel jololelolelele o)

$STSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
SERTTL:
$ITEMB:
$ERMAX:
$ERRP(C:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

.=1120

—-—

3
—

—

~N
b

~nN

OO NOA VS NN 2O
WA
—

OCOO0OO0O0OOOO0O0O

WINWWNNINWNW

D
d o d

d e
D
D

ed
D e
b

d e
d

)
b

e
e

d
) e

D e
D

d e

d ed
D

b cad ved

)

d e

D e
d
)

D
)
D

e
)

D i

SCMTAG:

$TKS:
$TKB:
$TPS:
$TPR:

)

crd

001120

b e

SEQ 0026

COMMON TAGS

.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR :
.WORD
DISPLAY: .WORD

D
D
d
)
b

PAGE 27

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
:*USED IN THE PROCKAM.

000000
000

d e
d
d

11:06

COMMON TAGS

SRR RR N AN

d e
D

D —d oD

d —d —d ed ad e
b e

)
d —d
b e

d rd
—t

d ——d nd wd cd md wmd
—

26=NOV=79

.SBTTL

D wnd

CZDZA-FO
CZDZAF .P11

/?/

<15

<12>

J:TTY PRINTER BUFFER REG.

ADDRESS

;s CONTAINS NULL CHARACTER FOP FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;2 INSERT FILL CHARS. AFTER A "LINE FEED''
;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
. sCONTAINS THE ADDRESS FROM

J:WHICH (SREGO) WAS OBTAINED
+0)
; :CONTAINS ((SREGAD)
;;CONTAINS ((SREGAD)+2)
+4)
;;CONTAINS ((SREGAD)
;2CONTAINS ((SREGAD)+6)
;s CONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+12)
;sUSER DEF INED
2 JUSER DEF INED
:JUSER DEF INED
::USER DEF INED
JsMAX. NUMBER OF ITERATIONS
;s QUESTION MARK

; cCARRIAGE RETURN

JsLINE FEFD

':ttfii'ttttifi'ttttttt'tt't'ttttfifit*fifi*tttitttttltttltt't'ttttttt'

"SBTTL

APT MAILBOX-ETABLE

IDZA-FO
IDZAF P11

MACY11 30A(1052)
26-NOV-79 11:03

1186

001234
001234

1192

001262

201236
0012640

1163
119¢

001244
001266

1196
I
1197
;1198

001252

1200
1201
1202

001256
001260
001262

1195

1199

1203
1204

1210

1211

1212
1213
1214
1215
1216
1217

001250

001254
001254
001255

AMSGTY

: APT MAILBOX
;. MESSAGE TYPE CODE

000000

$PASS:

.WORD

APASS

[ ;PASS COUNT

SMSGAD:

.WORD

000000
000000

000000
000000
000000

000000
000
000

000000
000000
000000

000
000

1220
1221

001270
00127}
001272
001274
001275

000
000
000000
000
000

1223
12264

001300
001301

00
000

1222

1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235

1236
1237
1238

1239
12640
1241

$"ATAL:
TESTN:

$DEVCT:
SUNIT:

.WORD
.WORD

AFATAL
ATESTM

.WORD
_WORD

ADEVCT
AUNIT

SMSGLG: .WORD
SETABLE :
SENV:
BYTE

AMSGLG

SCWREG:
SUSWR.
$CPUOP:

ASWREG
AUSWR
ACPUOP

SENVM:

.
*

_BYTE

.WORD
_WORD
.WORD

AMSGAD

AENV
AENVM

001264
001265

001276

000000

o
0t
;*
SMAMST:
$MTYP1:
o

;Y
.
.
SMADR1:
*
SMAMS?2:

_BYTE
BYTE

AMADR1

SMAMSS:
SMTYP3:

.BYTE
_BYTE
.WORD
BYTE
_BYTE

AMAMS?
AMTYP2
~ AMADR2
AMAMS3
AMTYP3I

SMAMSS:
SMTYP4&:

.BYTE
_BYTE

AMAMSS
AMTYPG

SMADRZ:

SMADRS:

.WORD

000000
000000
000000
160010
000000
000000
000000
000000
000000
000000
000000

SMADRG:
SVECT1:
SVECTZ:
SBASE:
SDEVM:
SCOW1:
$(DW2:
$DDWO:
$ODW]:
$ODW>:
$ODW3:

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

001336
001340
001342

000000
000000
000000

$DDW7:
$ODW8:
$ODW9:

.WORD
. WORD
.WORD

000000
000000
000000

AMAMS]
AMTYP1

.WORD

SMTYP2:

$ODW4:
$ODWS5:
$ODWG:

;;FATAL ERROR NUMBER
;. TEST NUMBER

;;DEVICE COUNT
;:1/0 UNIT NUMBER
;. MESSASC

ADDRES.

. ;MESSAGE LENGTH
:;APT ENVIRONMENT TABLE
; ;EN'IRONMENT BYTE

;[ ENVIRONMENT MODE BITS
. APT SWITCH REGISTER
;;USER SWITCHES
;.(PU TYPE,OPTIONS

8ITS 15-11-CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45 05
11/70=06,PDQ=07,Q=10

001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326

001330
001332
001334

RN NN A E AN N R RR AN R ORI N OGN NGO ONNRRE

.WORD

000000

1218

SEQ 0027

000000

00126¢

1219

. EVEN
SMAIL :
$MSGTY:

1205

1206
1207
1208
1209

NN AN AN RN NN AN NN N RN RN AR NN

1187
1188
1189
1190
1191

26-NOV-79
11:06 PAGE 28
APT MAILBOX-~E TABLE

. WORD
.WURD
. WORD

AMADR3

BIT 10=REAL TIME CLICK
BIT
9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
. HIGH ADDRESS.M.S. BYTE
;. MEM.

TYPE BLK

MEM_TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
;.HIGH ADDRESS,BLKA1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOw OF
; HIGH ADDRESS.M.S. BYTE

; MEM.TYPE ,SLKA?

; MEM.LAST ADDRESS,BLKA?

;. HIGM ADDRESS M.S.BYTE
;. MEM.TYPE ,BLKA3

. MEM.LAST ADDRESS,BLKA3

HIGH ADDRESS.M.S.BYTE
; ;MEM.TYPE ,BLKAG

AMADR4 ; MEM LAST ADDRESS,BLKAG
AVECT1
;;INTERRUPT VECTORA1,BUS PRIORITYM
AVECT2
. INTERRUPT VECTOR#2BUS PRIORITYAH?
ABASE
;.BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;.DEVICE MAP
ACDW1
;;CONTROLLER DESCRIPTION WORD#1
ACDW2
:.CONTROLLER DESCRIPTION WORD#2
ADDWO
;.DEVICE DESCRIPTOR WORDAO
ADDW1
;:DEVICE DESCRIPTOR WORDA1
ADDWZ
;;DEVICE DESCRIPTOR WORD#?2
ADDW3
;;DEVICE DESCRIPTOR WORD#3

ADDW4
ADDW5
ADDWG
ADDW7
ADDW8
ADDWY

. DEVICE DESCRIPTOR WORDA4
.DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORDA6

;;DEVICE DESCRIPTOR WORDA?7
;;DEVICE DESCRIPTOR WORDA8
;;DEVICE DEICRIPTOR WORDA9

'‘TYPE'' ABIVE

(IDIA-FO
.P11
CIDZAF
1242
1243
1246

1245
1246

12647

1248
1249
1250
1251

MACY11

30A(1052)

26-NOV-79 11:03

26-NOV-79

11:06
PAGF 29
APT “ALBOX~ETABLE

001344
001346
001350
00°352
001354
001356

$O0DW10:
$DDW11:
$ODW12:

.WORD
.WORD
.WORD

ADDW10
ADDW11
ADDW12

$ODW14:
$ODW15:

. WORD
.WORD

ADDW14
ADDWI1S

001360

$ScTEND:

$ODW13:

.WORD

ADDW13

SEC 0028

;;DEVICE DESCRIPTOR WORD#'(C
;:DEVICE DESCRIPTOR WORDA11
;;CEVICE DESCRIPTOR WORD®E1?

;;DEVICE DESCRIPTOR WORD#H13
;:DEVICE DESCRIPTOR WORD#14
;:DEVICE DESCRIPTOR WORD#1S

CZDZA-FO
CIZDZAF .P11

MACY11

1252
1253
1264
1255
1256
1257
1258

26=NOvV-79
11 06
PAGE 30
ERROR POINTER TABLE
.SBTTL

SEQ 0029

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
J*NOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

;*NOTE?:

1259

1260
1261

1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290

30A(10S2)

26-NOV=79 11:03

*
*

M
;v
001360

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

EM
DH

;. sPOINTS
;;POINTS

DT
DF

.;POINTS TO THE DATA
;POINTS TO THE DATA FORMAT

$ERRTB:
;PROGRAM

001360
001362

001 364
001366

001370
001372
001374
001376
001400
001402
001404
001406
001410
001641

001412

TO THE ERROR MESSAGE
TO THE CATA HEADER

000377
017470
VA

PARAMETERS

NEXT:
LOCK :

0
0

.ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LUCK ON CURRENT DATA

LINE:

37?7

JDEFAULT ALL EIGHT LINES RUNNING

PAR:
MODE :
SAVLIN:
XMTLIN:

17470
0
0
O

XMTCNT:
REGIST:
SAVPC:
DZACTV:

O
O
O
.BLKW

DINUM:
S?VEAJ“:
.EVEN

_.BLKB 1
.BYTE 1

RUN:

001500

(CONTROL

ACTIVE:

DZ.MAP

JPARAMETERS: 8 BITS/CHAR,2 STOP BITS.19200 BAUD.NO PAR]T
;DEFAULT MAINTENANCE MODE
cLINE NUMBER
;TRANSMISSION LINE NUMBER

;COUNT OF WORDS IN A TRANSMISSION PATTERN
*DEVICE ADDRESS STORAGE LOCATION
;PROGRAM COUNTER STORAGE
;*D211°'S SELECTED ACTIVE.

;*POINTER ONE PAST RUNNING DEVICE.
;«0CTAL NUMBER Ot DZ11°'S.
. *WORKABLE NUMBER.
. TABLE

POINTER.

CIDZA~FO
CZDZAF .PIN

MACY11

30A(1052)

26=NOV=79 *1: 03

11:06 PAGE 31
26=NOV=79
ERROR POINTER TABLE

1291

1292

;PROGRAM (ONTROL

1263

FLAGS

001414
0014615
0014616
001417
001420

e
D e
e
D e
D
)
D e
d e
e
e
e
e
D e
)
d =D
e
)
D e

.BYTE
.BYTE
.BYTE

.BYTE

;0=EIA

0
0
0

TD2:

.WORD

TRC:
TR1:

WORD
.WORD

O
O

TR3:
TRG :
TRS:
TR6:
TR7:
STOP:
.SBTTL

.WORD
.WORD
.WORD
. WORD
. WORD

O
0
0
0
0

TD3.
D04 :
TDS:
T1D6:
D7:

TR?2:

;PROGRAM INITIALIZATION FLAG FOR HEADER MAP
JMAINTENANCE BIT SET FLAG
;TRANSMISSION COMPLETION FLAG

.WORD
.WORD
.WORD
.WORD
LWORD

.WORD

0
0
0
0
O

APT PARAMETER BLOCK

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

".'.‘""Q"'..'.'."Q"."."'..fl"""'.fi‘Q.."""'."..'Q"."

e
d e

001462
000024
000200
000044
001462
001462

L8X=,

=24
200
.—44

;s SAVE

CURRENT LOCATION

:2SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START WP
.sPOINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;;POINT TO APT HEADER BLOCK
-.8X
;:RESET LOCATION COUNTER
.

'.."'"'..Qt'.’".*"""'."‘fi.'fi"fi".'.'tfi'.Qfii'fi.‘fi.'.ttt"t.'

SETUP APT PARAMETER BLOCK AS DEFINED
JINTERFACE SPEC.

BEIENR
LWN—=O0
N

100000=20MA

;PROGRAM INITIALJZATION FLAG

.'."*"'..'Q'."".".""'t"'.fififit'fi"..."t.."'.."""Q".'fi'

)

NN AN AN N N N NN NN N NN N
NN NN = = b b e ek d b b D
SN
rR—=2OVO
NI VNS WN—=O

001424
001426
001430
001432
001434
001436
001440
001442
001444
001446
001450
001452
001454
007456
001460
001462

000044

HDRFLG:
MNTFLG:
DgNEhG:
v

e
D e
b
d
b med
d
d ed e
)
d
b

.BYTE

;DATA VARIABLES
TDO.
.WORD
0
101:
.WORD
0

001422

000024

RRRRRRY N AN AN N NN

—

EIAFLG:

INIFLG:

) e

D o

)

BEERERCEEYLERIR

SEQ 0030

001462
001462
001464
001466
001470
001472
001474

0015C0

000000
001234
000132
000137
000137
000052

001500

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:

.=1500

DZ .MAP:

.WORD
.WORD
.WORD
_WORD
_WORD

0
SMAIL
90.
95.
95.

IN THE

APT-PDP11

DIAGNOSTIC

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; ;ADDRESS OF APT MAILBOX (BITS "=15)
;;RUN TIM OF LONGEST TEST
;2RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
:;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

.WORD
SETEND-SMAIL/2 ,;LENGTH MAILBOX-ETABLE (WORDS)
;DZ11 STATUS TABLE AND ADDRESS ASSIGNMENTS

26-NOV-79 11:03

26-NOV=79

11:06

D2CRO:
DZ2v(0:
DZLVO:
LINEO:

.BLkw
.BLKW
.BLKW
.BLKW

1
1
1
1

MANTO:

.BLKW

PARQ:

FLEFELEES
OV W =20V
NOWNBWN=2000

SEgsaaaahbhi

b
D
d
D
d
D
d

d —d
b
d
d e
d
d
) —d —d D il
d —d
b md
d
e
—

WWWNW
~N NN

1360

PAGE 32

SEQ 0031

APT PARAMETER BLOCK

.BLKW

1
1
1
1
}

DZCR2:

.BLKW

MANTZ:

.BLKW

PARZ :

DZCR3:
DZv(3:
DZLV3:
LINE3:

PAR3:

BLKW

.BLKW
.BLKW
.BLkW
.BLkW

.BLKW

MANT3:

.BLKW

DICR4:
DZv(C4:
DZLV4:
LINE4:

.BLKW
.BLKW
.BlLKw
.BLKW

PARS :
MANTS4:

.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW

DZCR6:
DZvC6:
DZLV6:
LINE6:

.BLKW
.BLkW
.BLKW
.BLKW

PARG:

BLKW

DZCR7:
DZv(C7:
DILV7:
LINE7:

.BLKW
.BLKW
.BLKW
.BLKW

MANTG:

PAR7:

MANT7:

1
1
1
1

1
)
1
1

}

.BLKW

BLKW

_BLKW

FOR DZ11 NUMBER 0

AND EIJA FLAG

;ALL LINES SELECTED

SELECTOR

;MAINTENANCE MODE FOR THIS DEVICE

;PRIORITY LEVEL

AND EIA FLAG

SJALL LINES SELECTED

SELECTOR

;PARAMETERS

sMAINTENANCE MODE FOR THIS DEVICE
;CONTROL STATUS REGISTER FOR DZ11 NUMBER 2
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 2
;PRIORITY LEVEL

AND EIA FLAG SELECTOR

;ALL LINES SELECTED

; PARAMETERS

;MAINTENANCE MODE

FOR

THIS DEVICE

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 3
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 3
;PRIORITY LEVEL

AND EIA FLAG

;ALL LINES SELECTED

;PARAMETERS
JMAINTENANCE MODE

FOR

SELECTOR

THIS DEVICE

; CONTROL STATUS REGISTER FOR DZ11 NUMBER 4
;RECEIVER AND BASE

;PRIORITY LEVEL

VECTOR

FOR DZ11

NUMBER

AND EIA FLAG SELECTOR

;ALL LINES SELECTED

BLKW
BLKW

DZCRS:
DZVCS:
DZLVS:
LINES:
PARS :
MANTS:

;PRIORITY LEVEL

. CONTROL STATUS REGISTER FOR DZ11 NUMBER 1
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
_.BLKW

.BLKW
.BLKW
.BLKW

;RECEIVER AND BASE VECTOR
; PARAMETERS

DZCR1:
0D2vC1:
D2LV1:
LINEYT:
PAR1T :
MANT1:

DZVC2:
DZLVZ:
LINE2:

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 0

; PARAMETERS

JMAINTENANCE MODE FOR THIS DEVICE
;CONTROL STATUS REGISTER FOR DZ11 NUMBER 5
JRECEIVER AND BASE VECTOR FOR DZ11 NUMBER
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED

; PARAMETERS

SMAINTENANCE MODE FOR THIS DEVICE
1

1
i
1

1
D —d

30A(1052)

—d

MACY11

.P 1M
CIDZAF

—

(ZDZA-FO

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 6
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
JMAINTENANCE MODE FOR ThiS DEVICE
. CONTROL STATUS REGISTER FOR DZ11 NUMBER 7
FOR DZ11 NUMBER
;RECEIVER AND BASE VECTOR
;PRIORITY LEVEL

AND EIA FLAG SELECTOR

;ALL LINES SELECTED

; PARAMETERS

:MAINTENANCE MODE FOR THIS DEVICE

1441

1442
1443
1444

1445
1446
1447
1448
1449
1450
1451
1452

1453
1454

1455
1456
1457
1458

001676

001700
001702
001704
001706
001710
001712
001714
001716
001720
001722
001724
001726
001730
001732

001734
001736
001740
001742
001744
001746

001750
001752
001754
001756
001760
001762
001764
001766
001770
001772
001774
001776

PAR12:

MANT1Z:

DZCR13:
D2v(C13:

DZLV13:

LINE13:
PAR13:

MANT13:
DZCR14:
DZv(C14:
D2LV14:
LINE1S:

PAR14:

MANT14:

DZCR15:
DZVC15:
DZLV15:
LINE1S:

PAR15:
MANT1S:

DZCR16:
DZv(C16:
DZLV16:
LINET6:
PAR16:

MANT16:

DZCR17:
DZVC17:
DZLV17:
LINE1?Z:

PAR17:
MANT17:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

.BLKW
.BLKW
.BLKW
.BLKw
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

AND

JALL LINES SELECTED

EIA

FLAG

SELECTOR

—d D
— h D

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

b d =D —D

DZCR12:
DZv(C12:
DZLVI1Z:
LINE1Z:

LEVEL

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 11
JRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 11
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAME TERS
;MAINTENANCE MODE FOR THIS DEVICE

— e

001670
001672
001674

JPRIORITY

;PARAMETERS

QP W

PAR11:
MANT11:

; CONTROL STATUS REGISTER FOR DZ11 NUMBER 10
JRECEJVER AND BASE VECTOR FOR DZ11 NUMBER 10

1
1

RN\

001664
001666

.BLKW
.BLKW
.BLKW
.BLKW
.Bi KW
.BLKW

1
1
1

) s —d —2

1434
1435
1436
1437
1438
1439
1440

MANT10:

JMAINTENANCE MODE

FOR

THIS DEVICE

s CONTROL STATUS REGISTER FOR DZ11 NUMBER 12
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 12
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED

;PARAMETERS

JMAINTENANCE MODE

FOR

THIS DEVICE

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 13
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 13
;PRIORITY LEVEL AND EJA FLAG SELECTOR

JALL LINES SELECTED

;PARAMETERS

JMAINTENANCE MODE FOR THIS DEVICE
;CONTROL STATUS REGISTER FOR DZ11 NUMBER 14
JRECEIVER AND BASE VECTOGR
FOR DZ11 NUMBER 14
;PRIORITY LEVEL

AND EIA FLAG

JALL LINES SELECTED

SELECTOR

; PARAME TERS

—_—

1433

PAR10:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

JMAINTENANCE MODE FOR THIS DEVICE

b —d

1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1630
1431
1432

DZ2CR10:
DZVC10:
DZLV10:
LINETO:

DICR11:
DZVv(C11:
DZLV11:
LINETY:

001654
001656
001660
001662

SEQ 0032

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 15
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 15
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED

— d

1413

1414

PAGE 33

;PARAMETERS

—b

1408
1409
1410
1411
1412

11:06

APT PARAMETER BLOCK

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 16

1407

000001

26-NCV=79

1405
1406

26=NOV=~79 11:03

1404

001640
001642
001644
001646
001650
001652

30A(1052)

—

1403

MACY11

RN
U
I

(ZDZA-FO
(ZDZAF .P1

;MAINTENANCE MODE FOR THIS DEVICE
;RECEIVER AND BASE VECTOR

FOR DZ11 NUMBER 16

;PRIORITY LEVEL AND EIA FLAG SELECTOR

;ALL LINES SELECTED

; PARAMETERS

;MAINTENANCE MODE FOR THIS DEVICE

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 17
;JRECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 17
;PRIORITY LEVEL AND EIA FLAG SELECTOR

JALL LINES SELECTED

. PARAMETERS
;MAINTENANCE

MODE

FOR

THIS DEVICE

CZDZA~FO
CZDZAF .P11
1459

002000

MACY11 30A(1052)
26-NOV=-79 11:03
177777

26-NOV=79
11:06
PAGE 34
APT PARAMETER BLOCK
DZ.END:

177777

SEQ 0033

(ZDZA-FQ
(ZDZAT .PIN

MACY11

1460

1462
1463

1464

1496

1497
1498
1499
1500
1501

26=N0OV=-79

11:06

PAGE 35

SEQ 0034

APT PARAMETER BLOCK

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
JIN THE TABLE "MMEDIATEL Y FOLLOWING THE DEF INITIONS

1461

1465
1466
1467
1468
1469
1470
1471
14,2
14,73
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495

30A(1052)

26=-NOV~-79 11:03

;:'ttfittttti'fit’Qtt'ttlt't'fitfiit L2282 dRRRRRRRRRRRRRRRRRRARENSRR
2}

002002

106401

ADVANCEL TRAP+0
scop1=TRé§Ei:TCE

:CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE)
;CALL TO LOOP ON CURRENT DATA HANDLER

104402

rvpe:rRAf;ng

;CALL

’”S’":'“ffifiéra

;CALL TO ASCII

strER=r§?z§?ER

:CALL

TO INPUT ERROR HANDLER

PARAMzTRég;gAM

;CALL

TO NUMERICAL DATA INPUT ROUTINE

SETFLG=TRAPYE

;CALL

SAVOS=TRAP+7

;CALL TO REGISTER SAVE ROUTINE

CONVRT=TRAP+11

;CALL

pAUCH:Tng;lgH

;SET FLAG

DCLASM=TRAP+17

;CLEAR DEVICE,

106400

00232

006724

002004

005236

002006

005262
104403
006030

002010
002012
002014

002016

002020
002022
002024

002026

002030

002032
002034
002036
002040

104404

006134
104405
006154
104406
010500

104407

006354
104410
006414

104411
006446
104412

006452
104413
006652
104414

006704
104415
025516
104416
025712
104417
006672

RESOS=TR§E§E§:
CNVRT=TRAP TS |
osv1cs.c££§¥zzp+13
pELAY=TRAPS T4 L
PARMDzTRéEEzsg
.DCLASM

TO TELETYPE OUTPUT ROUTINE

STRING INPUT ROUTINE

SET FLAG ROUTINE

;CALL TO REGISTER RESTORE ROUTINE
TO DATA OUTPUT ROUTINE

;CALL TO DATA OQUTPUT ROUNTINE WITHOUT CR/LF.
:CALL TO ISSUE A DEVICE CLEAR
:CALL TO DELAY FOR FAST CPU'S
;CONVERT DECIMAL STRING TO OCTAL
ECHO OR

CABLE

SET MAINT. BIT

I MODE

s HERRRAARNARRAANRA
RN
RN RAR LA RSRS2R2SRRARARRSRRR
SRR Rs2RRRRZ 2]

MACY11

(ZIDZA-FO
CZDZAF .P1

30A(1052>

26-NOV=-79 11:03

26=NOV=79

11:06

PAGE 36

APT PARAMETER BLOCK

SEQ 0035

;DZ11 VECTOR AND REGISTER INDIRECT POINTERS
;WORKING AREA
002044
002046

WN-JOOW\IO\\AJ\WN—'Ogg

PNONNIN)
= Db Db D

Gy
QU
W
S
W
W
Y
QU
W
S
N
T

(AL LV, IV, LV, L, LV, LV RV, LV, LU RV, [V LV, R0, 1V, AV,

1506
07

160040
DICSR:
HDZCSR: 160041
: 160042
DZRBUF
:
HDZRBUF
160042
DZLPR:
HDZLPR: 160043
160044
DZTCR:
HDZTCR: 160045
160046
DZMSR:
HDZTDR:

160047
160046
160047

DZRIV:
DZRIS:
DZTIv:
D2T1S:

302
304
306

HDZMSR:

DZTDR:

JR/W
JR/W

JREAD ONLY

160043

;READ ONLY

SWRITE ONLY

;WRITE ONLY
JR/W
JR/MW

JREAD ONLY
sREAD ONLY

JWRITE ONLY

JWRITE ONLY
DEFAULT DZ VECTORS

200

JREC INTR VECTOR
JREC INTR STATUS
JXMIT INTR VECTOR
JXMIT INTR STATUS

(ZDZA~FO
CZDZAF .P1

MACY11 30A(1052)
26=NOV-79 11:03

26=NOV=79

11: 06

PAGE 37

APT PARAMETER BLOCK

002144
002146

000000
000000
000000
000000
000000
000000
000000
000000

TSEVEN:
TSIX:
TFIVE:

OO0

SOBIFHRRY

TMTBL

T50:
175:
T110:
1134
T150:
T13C0:
1600:
11200:
T1800:
12000:
T2400:
13600:
T4800:
17200:
19600
TEIGHT:0

OOCOOOCOOOOOOOOO

;TIME

TABLE

SEQ 0036
FOR RELATIVE

TIMING

TESTS

MACY1]

30A(1052)

26-NOV=79 11:03

26=NOV=79

11:06

PAGE

3
SEQ 0037

PROGRAM INITIALIZATION AND START UP.

;PROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
sSET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS
v

—
—

.START:

~NON
on

sTYPE

nonro

2g Volo TNTe JV, W NV TS

|
S
S
Y
O\
[

\n AN AN
1V, VI
AN NN

CZDZA-FO
CZDZAF .P11

012737

013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
105737
001010

023727
001402
104402
105337
105737
100006
004737

001120
000340
007646
001410
001242
001123
001500
000001
001132
001136
001122
002150
000006
000004
002274
177777

000024
001411

CLR
CLRB
MOV
MoV
CLR
CLR
CLR
MOV

001412
001406

001126

001160
001162

000042

004726

001000
001415
001255

20%:
22%:
21%:

#PR7
N#SPWRDN
,a# 24
DZNUM, SAVNUM
$PASS
SERFLG

#DZ.MAP ,ACTIVE

#1,RUN
SERTTL

$ERRPC
$TSTNM

#.START ,SLPADR

CMP
BEQ
BR

22%
21s

(SP)+,6
INIFLG

JMTITLE

INIFLG
SENVM

308

176560

000377

001415

sCLEAR THE WORLD. START NEW ENVIRONMENT
;SET UP STACK

;LOCK OUT INTERRUPTS

;SET UP POWER FAIL VECTOR
;SAVE NUMBER OF DEVICES IN SYSTEM.
:CLEAR PASS COUNT
;CLEAR ERROR FLAG
;GET MAP POINTER.
;POINT POINTER TO FIRST DEVICE.
;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE

;TESTING STARTS

PC,SETAPT
HDRFLG

30%:

16$
#SW00,aswR

32%

#377,INIFLG

.41

32%:
65%:

JCAN 177570 BE REFER-NCED?
2IF SO AND IT IS =1, TREAT LIKE SWITCHLcoS
sIF YES,SKIP AROUND THE SETUP
JREMOVE THE TRAP FROM THE STACK

N#SWREG, SWR
;IF NO,TRAP COMES HERE.POINT TO SOF TWARE
#DISPREG,DISPLAY ;POINT TO SOF TWARE DISPLAY REGISTER
JRESTORE THE BUS ERROR VECTOR
(SP)+.,4

aN62
, #SENDAD
318

176542

005020

#STACK,SP

29%

31%:

011440
001416
004270
000001

003114
001500
001416

JSET UP FOR gMALL 11 SWITCH REGISTER COMPATIBILITY
MOV
6.,-(SP)
; SAVE BUS ERROR PS
Mov
4,~(SP)
;SAVE BUS ERROR PC
#208,4
MOV
sSET UP_TO TRAP TO "HIS ROUTINE

000004
176670

000176
000174
000004
000006
001415

RESET

MoV
MTPS
MOV
mMovs

TITLE MESSAGE

#DZ.MAP
RO
HDRFLG
(RO)+

SWR

sTITLE ALREADY PRINTED?
;BRANCH IF YES
JRUNNING UNDER ACT?
;1F YES DONT PRINT TITLE

;PRINT THE DIAGNOSTIC'S TITLE

;SET THE ONCE ONLY FLAG
;DETERMINE WHETHER APT SIZING SHOULD BE DONE
cIF NOT, GO CHECK FOR AUTO-SIZING
;OTHERWISE, GO DO APT SIZING FROM ETABLE
;JMAKE SURE STATUS TABLE IS PRINTED
;GO PRINT DZ STATUS TABLE
JRESELECT ?
sIF YES, GO SET UP THE INFORMATION
JON 1ST START; MUST ANSWER QUESTION
;IF NOT ANSWERING QUESTIONS
JARE U AUTO SIZING?

;NO AUTO SIZE! NO SWOO=1 ON 1ST START.
;IF NO, SKIP THE INTERROGATION
;POINT TO THE BEGINNING OF THE MAP TABLE
;MAKE SURE A MAP GETS PRINTED
;CLEAR A TABLE LOCATION

CZDZA-FO
CZDZAF .PI1N
1605

SN
PPNl
Sl SNl

OO NOWNEWN—O

(0,3 o Yo Yo Yo Yo Yo Yo Yo Yo

N
G g
I
G S S G |

228

1606

002436
002442
002444

MACY11 30A(1052)
26-NOV-79 11:03

020027
001374
105337

26=-NOV=79

11:06

PAGE 39

3
SEQ 0038

PROGRAM INITIALIZATION AND START UP.

cTMP
BNE

002000
001415

DECB

RO,#DZ.END
65§
INIFLG

:HAVE THE TABLE BOUNDARIES BEEN EXCEEDED?
“IF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE
*INSURE NO AUTO SIZING IF QUESTIONS ANSWERED'

;THE FOLLOWING ARE PARAMETERS USED
;TABLE AND SET UP THE DIAGNOSTIC.

TO FILL

IN THE MAP

;GET THE BASE ADDRESS OF THE DZ11'S
104403
003334
104405
160000
163770
001500
007
001
013737

33%:

INSTR
66%

;CALL THE STRING INPUT ROUTINE
JPOINTER TO MESSAGE TO BE PRINTED

160000
163770
DZCRO
.BYTE
BYTE
MoV

JLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
JHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
JPOINTER TO MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE
. COPY BASE ADDRESS TO ETABLE

PARAM

001500

001310

sCALL

1
DZCRO, $BASE

THE

OCTAL

TO ASCII

CONVERT ROUTINE

;CALL

THE

STRING INPUT ROUTINE

suALL

THE OCTAL

;GET THE BASE VECTOR ADDRESS
34%:

104403
003400
104405

INSTR

67%

.POINTER TO MESSAGE TO BE PRINTED

300

JLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE

PARAM

000300
000776

776

001502

DZv(Co

oM
013737

.BYTE
MOV

003

BYTE

001502

001304

10 ASCII

CONVERT ROUTINE

JHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

I
DZvCO,$VECT1

JPOINTER TO MAP LOCATION TO BE FILLED
;MASK OF

INVALID BITS FOR THIS PARAMETER

;NUMBER OF PARAMETERS TO STORE
;COPY VECTOR TO ETABLE

;JGET THE BUS REQUEST LEVEL
104403

INSTR

;CALL

THE STRING INPUT ROUTINE

PARAM

sCALL

THE

68%

;POINTER TO MESSAGE TO BE PRINTED

4
7

106337

001504
001305
001305
001305
001305
001305

001305

OCTAL

TO ASCII

100375

004130
001220

176360

0
1
DZLVO,SVECT1+1
SVECT1+1

;POINTER TO MAP LOCATION TO BE FILLED
sMASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE
GET BUS REQUEST LEVEL INTO ETABLE
SALIGN THE BITS PROPERLY

ASLB
ASLB

SVECT1+1
SVECT1+1

JALIGN THE BITS PROPERLY
JALIGN THE BITS PROPERLY

ASLB
ASLB

TYPE

80%:

ROUTINE

DZLVO
.BYTE
.BYTE
MOVE
ASLB

SVECT1+1
SVECT1+1

:ALIGN THE BITS PROPERLY
JALIGA THE BITS PROPERLY

SFIND OUT IF MODULE IS EIA OR 20 MA,
104402
005037
105777

CONVERT

sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
JHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

CLR
T1STB
BPL

L7748

$TMP1
a$TKS
80%

sPRINT EIA MESSAGE

;USE $TMPI
;1S KEYBOARD DONE?
;IF NOT, WAIT FOR IT

CZDZA-FO
CZDZAF .PI

1660
1661
1662

002606

MACY11

26=NOV~=79 11:03
017746

1663

1681
1682

1683
1684
1685

26~NOV=79

176354

Gy
—d
b
)
d
—2

VIS W= O

- (SP)
a$TKB,

#240, (SP)
#15,(SP)+

818

-(SP) ,a$TPB

001504

#1715,02Lv0

100000

001504

80%
#81T15,DZLVO
80%

#102,(SP)+

81$:

3
SEQ 0039

:1F YES, PUT CHARACETR ON STACK
;STRIP DOWN CHARACTER
JIS IT 2
JIF SO, GET OUT
;IF NOT, PRINT CHARACTER
;CLEAR EIA FLAG
JIS IT A B?
;JF NOT, GO BACK FOR INPUT
;IF SO, SET FLAG
;GET MORE INPUT

;GET THE MODE OF OPERATION (E,I.S)
INSTR
72%

;CALL THE STRING INPUT ROUTINE
sPOINTER TO THE MESSAGE TO BE PRINTED
;CALL THE MAINTENANCE FLAG SETUP ROUTINE
sTHIS IS THE FLAG BEING SETUP

SETFLG
MANTO

001512

;GET THE NUMBER OF DZ11°'S RUNNING
104403
003610
104405
000001
000020
001220
000
001

INSTR
718

;CALL THE STRING INPUT ROUTINE
;POINTER TO MESSAGE TO BE PRINTED
sCALL THE OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
SJHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

7ARAM

16.
$TMP1
.BYTE
.BYTE

;MASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE
sSET UP DEFAULT LINES
;SET UP DEFAULT LPR PARAMETER

000377
017470

001506
001510

#377 ,LINEO
#17470,PARO

012737
032777

00C001
0006010

006722

#1,DLYCNT

176226

62%:

001312
001312
001500
001514
001320

001222
001222177777

004244

001222
001404

61%:

#SW03,aSWR
408
PC,23%

#1,$DEVM

$TMP1,DZNUM
$TMP1,SAVNUM
$TMP1
61%

$DEVM
628
SDEVM, STMP?2
$DEVM DZACTV

#D2CRO,RO

#DZCR1.R1
#$DDWO
- R2

64%:

;POINTER TO MAP | OCATION TO BE FILLED

012737
012737

001312

100000

000102

001220

PAGE 40

MOV
BI(C
cMP8

40%:

[

11:06

PROGRAM INITIALIZATION AND START UP.

000240
000015
176342

1664
1665
1666
1667
1668
1669
1670
1671
1672

1673
1674
1675
1676
1677
1678
1679
1680

30A(1052)

$TMP?2
$TMP2

418
#=1,(R1)

63%

SRECEIVER ON; 19.2 KBAUD; 2STOP BITS; 8 BIT/CHAR
SINITIALIZE DELAY COUNT
;DO YOU WANT PARAMETERS?
;IF NO, SKIP THE PARAMETER CALL
;GET PARAMETERS
;INITIALIZE ACTIVE DEVICE SELECTION PARAMETER
. COPY THE NUMBER OF DEVICES
;COPY A BACKUP NUMBER
;$TMP1 CONTAINS THE COUNT OF UNINITIALIZED
; SELECTED DEVICES
sSET A BIT FLAG TO INDICATE AN ACTIVE DEVICE
sPOINT TO THE NEXT DEVICE
;GO DO _THIS PROCEDURE AGAIN
;¥ OF

TIMES

;COPY THE ACTIVE DEVICE PARAMETER
sSET A POINTER TO THE SPECIFIED INFORMATION
;POINT R1 TO THE REST OF THE MAP TABLE
sPOINT TO ETABLE'S DEVICE DESCRIPTOR WORDS

JINITIALIZE THE ''C'* BIT FOR A ROTATION
;SKIF MAPPING SETUP FOR DEVICE O- IT'S DONE
;ISOLATE A SELECTION FLAG IN THE ''C'’ BIT

;1S THIS DEVICE SELECTED? IF YES, GO LOAD TABLE

sTERMINATE

THE LIST

;GO TO THE NEXT BLOCK

CZDZA-FO
CIDZAF .P11
1716

003054

MACY11 30A(1052)
26=NOV-79 11:03
0120M

1717
1718

003056
003062

062721
012011

1720

003070

012021

1719

003064

000010

177774

003072
003076

012021
016072

1726

003104

051022

1723

003100

04271c

003106
003110
903112
0031164

012021
01202°
000751
032777

000010

1730

00312¢

000137

004244

003140

000137

004270

1731
1732

};;2

003122

003130
003134

001002

004737
105337

003144
001415

003144
003144
003146

104403
003464

1741
1742
1743

003152
003154
003156

000001
000377
001506

003162

105037

};29

423:

003150
003160
003161

104405

000
001

005737
100021

1754

003200

006003

003204

001414

003212
003216
003222

104402
104402
000750

003226
003230
003232

006203
103370
000241

003174

003202

1757
1758

303206
003210

1762

0032264

1763
1764
1765

};gg
1770

SADD PARAMETERS TO DEVICE

JMP

638

423

PC.23$
INIFLG

168

S ISOLATE

THAT FLAG

*PARAME TERS
SMAINTENANCE MODE

DESCRIPTOR WORD

;ASK PARAMETERS ?
S1F NO,

GO DO AUTO SIZING

:GO SET UP FOR AUTO SIZING

SGO ASK PARAMETERS
SINSURE NO AUTO SIZE

:GO TO THE NEXT BLOCK

QUESTIONS ANSWERED

THE ACTIVE LINES PARAMETER

INSTR
698

;CALL THE STRING INPUT ROUTINE
*POINTER TO MESSAGE TO BE PRINTED

1
377
L INEO

:LOWEST LEGITIMATE VALUE OF EXPECTED RESPCSE
SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
:POINTER TO MAP LOCATION TO BE FILLED

CLRB

003234

013703

001512
001506

103410

006203
103373

001772

001250
010423

248

27%:
258

000761

};gg
1771

(RO, (R2)+

(RO)+, (R1)+
(RO) ¢+ (R1)+
64$
#SW03, ASWR

.BYTE
BYTE

001416

VECTOR VALUE

SLINES
SGET THE EIA FLAG FROM THE PRIORITY WORD

MOV
MOV
B8R
BIT
JSR
DECB

TO THE NEXT

(RO)+, (R1)+
-4 (RO) , (R2)

877777, (R2)

BNE

SPOINT

SCALL THE OCTAL TO ASCII CONVERT ROUTINE
0
1

HDRFLG
CHECKS

O MAKE

‘MASK OF INVALID BITS FOR THIS PARAMETER
‘NUMBER OF PARAMETERS TO STORE
SMAKE SURE THE CHANGES ARE PRINT.
SURE

THE LINE PARAMETER JUST ENTERED

©IS LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED

003166
003172

1759
1760
1761

(R1)+

BIC

;THIS SEGMENT

1751
1752

1756

*LEVEL

#10,

PARAM

};gg

1755

(ROS+, (R1)+

JMP

238

1748

1753

MOV

:GET

1737
1738
1739

1744
1745

SPOINT TO THE NEXT DZ11 ADDRESS VALUE
SVECTOR

BIS

73%:

;ADDRESS

#10, (R1)+
(RO)+, (R1)

MOV
MOV

176036

(RO)+, (R1)

SEQ N040

ADD
MOV
ADD

};gz

17640

[ 0)")

077777

1725
1726
1727
1728

1729

418,

000010

062721

1721
1722

8 4
26-NOV=79
11:06 PAGE &1
PROGRAM [NITIALIZATION AND START UP.

1031
BPL
MOV
ROR

MANTO
263

;1S STAGGERED THE MODE OF OPERATION?
SIF NOT, SKIP THIS SEGMENT

SGET A LINE SELECTION BIT(EVEN NUMBER LINE)

BEQ

268

8CS

LINEO.R3
25%

SGET A SCRATCH COPY OF THE ACTIVE LINES
SIF
:IF

(T IS SELECTED, CHECK TO SEE IF

ALL HAVE BEEN CHECKED,

ASR
BCC

R3
243

SIF
;IF

BEQ

278

*IF

B8R

248

:GO TEST THE NEXT PAIR OF FLAGS

TYPE
TYPE
BR
ASR
BCC
cLC

,$QUES
MBADLN
238

R3
273

003236

104403

26%:

INSTR

IS TOO

IT IS O,CHECK TO SEE IF THE NFXT IS TOO
THIS ONE'S O TOO, GO CHECK THE NEXT PAIR

STHIS IS AN INCORRECT PARAMETER
SLET THE USER KNOW ABOUT |T
:GO GET THE CORRECT PARAMETER
ANOTHER FLAG ISN'T ScT,

THERE'S AN FRROR

SGET THE NEXT FLAG
ZIF IT ISN'T SET, THERE'S AN ERROR
CINITIALIZE THE “C"* BIT FOR TESTING OF

:GET THE LINE PARAMETER REGISTER ARGUMENT
003236

THE NEXT

CONTIMNUE PROCESSING

JCALL

THE

STRING

INPUT

ROUTINE

THE NEXT PAIR

26=NOV=-79 11:03

26-NOV-79

003540

000000
000017
01510

SREFER

708-

JMASK OF

1
#LINEO,R2

748
:
75%:
.EVEN
648:

—

[o
Y,
¥)

16%:

#PARO ,R3

sPOINT TO THE CHOSEN PARAMETERS

:ALIGN INDEX ON WORD BOUNDARY

#14 ,R2

JPOINT

R3,#PAR17
283

THAVE THE TABLE BOUNDARIES BEEN EXCEEDED?
;IF NOT, GO LOAD SOME MORE PARAMETERS

<200>/BR LEVEL

(4:6):

;USE BAUD RATE AS AN INDEX [N DELAY TABLE

DLYTBL(RG) ,DLYCNT ,SET THE DELAY COUNT FOR THIS BAUD RATE
(R3)
sPLACE IN HIGK BYTE
#10070, (R3)
JPLACE EXTRA PARAMETERS INTO LOC
(R2) ,14(R2)
;LOAD THE LINES
(R3) ,14(R3)
cLOAD THE PARAMETERS

ars

5%:

001222
17%:

000042

200100

1%:

174¢04

;

TO THE NEXT SET

.. OF BOTH PARAMETERS

RETURN TO CALLING B8LOCK
<200>/1<7 CSR ADDRESS (160000:163700):
7/
<200>/1ST VECTOR ADDRESS (300:770):
/

<200>/LINES ACTIVE B8Y BIT <IN OCTAL>(001:377):
<200>/DEFAULT BAUD RATE <IN OCTAL>(00:17):
/
<200>/# OF DZ211°'S <IN OCTAL> (1:200:
7/
<200>/MAINTENANCE MODE/

<200>/ C[EXTERNAL
<200>/ [INTERNAL

<200>/ [STAGGERED <H3271>-EIA ONLY

<200>/ [STAGGERED <H3190>~20MA ONLY

(E))/
(NY/
(S)):

(S)]:

<200>/TYPE “'A’' FOR EIA MODULE
OR "B'' FOR 20 MA
<200>/ENTER DELAY PARAMETER: /

1227.1N1FLG

JONLY DO AUTO SIZE ON 1ST

MIT7.aSWR

‘8IT7=122

:BR IF NO AUTO SIZE
:GO DO THE AUTO SIZE
:HAS THE TABLE BEEN TYPED YET?
“IF SO, DON'T TYPE IT AGAIN

#D7 .MAP RO
RO,$TMP1

:SET POINTER
ZPOINT TO THE MAP LOCATION

(R6)0 $TMP?

1,$7mMp2

ane?
#SW06 ,3SWR

SINDICATE THAT THE
STYPE MAP HEADER

TABLE

(A:B):

START

168
PC,AUTO.SIZE
HDRFLG
18

HDRF LG
,XHEAD

b b = O

\l"t;'\)\hub &~ o

—

S
005737
001026
032777

88828 2

105737

001021
105337
104402
012700
010037
012037
022737
001403
104411
010466
000765

004737

INVALID BITS FGR THIS PARAME "ER

;NUMBER OF PARAMETERS TO STORE
sPOINT TO THE LINE SELECTION PARAMETER

(R3) ,R4

g B

21s.
72%:

000377

—

66%:
67%683:

052123
052123
051102
067711
043105
047440
044501
055440
055440
055440
055440
050131
052116

SEQ (D41

;sPOINTER TO MESSAGE TO BE PRINTED
JCALL THE OCTAL TO ASCII CONVERT ROUTINE
LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
JHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
JPOINTER TO MAP LOCATION TO BE FILLED

#1464 ,R3

Nt o ot N A\ N\ =D
Nt N N
Nt N

PR,
R
(V. LV
o]

START uP.

MOV
MOV
ASL
MOV
SWAS

]

PARO
.BYTE
.BYTE
MOV

02
03

o Nt N Nt N

PN P
b b
N PN PN PN PN PN P
el e wd
) d e
N PN
d )
PN SN
S d

708
PARAM

104405

28%-

put-Gutr-Quir-urrd

PAGE 42

PROGRAM INITIALIZATION AND

006722

11:06

s NG NI NG NI NI N

1774
177€

003240
003242
003244
003246
003255
003252
004253
003254

30A(1052)

NN N Bt

1772

1773

MACY11

CIZDZA~FO
CZDZAF P11

WILL

TYPED

*SET DATA

“END OF LIST?
‘BR

YES

cCALL THE OCTAL TO ASCII CONVERSION ROUTINE
;CONVERT THE DATA AT THIS ADDRESS
;GO PRINT THE NEXT PARAMETER

;1S PROGRAM RUNNING UNDER MON]TOR
JYES
;DESELECT

SPECIFIC DEVICES??

(2DZA-FO
CZDZAF .P11
1814

1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840

1841
1842
1843
1844
1845
1846

1847

1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

004354
004356
004362
004 364
004366
004374
004376
004402
004404
006406
004414
004420
006422

MACY11 30A(1052)
26-NOV~79 11:03

001422
104402

005000
000000
027737
1014604
104402

000000
000776
017737
013700
000000
032777
001407

11:06
PAGE 43
PROGRAM INITIALIZATINN AND START UP,

BEQ

010317
1746566

26=-NOV=79

TYPE

(LR
HALT
(TMP
B8LOS

001312

010171

9% :

174546
001404

001404

2s:

000020

174530

TYPE
HALTY

B8R
MOV

MOV
HALT

8l7

BEQ
INSTR
75%

JMNEW
RO
aSwR ,SDEVM

.MERR3

9%
aSWR,DZACTV

18%:

001000

MOV
MOV
MOV

CLR
o
o,
o,4
BNE

THE MESSAGE.

;JERQ DATA DISPLAY
;WAIT FOR USER TO TELL WHAT DEVICES TO RUN
;1S THE NUMBER VALID?
;B8R IF NUMBER [S OK.
;TELL USER OF INVALID NUMBER.
;STOP EVERY THING.
JRESTART

THE PROGRAM AGAIN.

#SW04 ,aSWR
18%

JHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;FOINTER TO MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
JNUMBER OF PARAMETERS TO STORE
JPREPARE TO CLEAR THE FLOATING
JVECTOR AREA. 300-776

RO
DZACTV,

00030¢
000732

:BR IF NO.

;TYPE

;GET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
JCONTINUE DYNAMIC SWITCHES.
JCHECK TO SEE IF DELAY COUNT CHANGES
;IF NOT, GO CLEAR VECTOR AREA
;CALL THE STRING INPUT ROUTINE
JPOINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE

PARAM

177777
DLYCNT
.BYTE
.BYTE

SEQ 0042

;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE

#300,R0O
#302 R}
R1,(RO)+
(R1)+
(RO)+,(R1)+
#1000,RO
43

JSTART PUTTING "PC+2 - HALT"

JIN VECTOR AREA.
;POP POINTERS
;ALL DONE??
;BR IF NO.

sTEST START AND RESTART
001120
000340
000042
000004

.BEGIN:

174440

010215
000240

005010

005232
011070

005010
001126

010106
174344

MOV

#STACK,SP

TST
BNE
BIT
BEQ

an6?
2%
#BIT2,3SWR

MOV
BR
MOV

l?OP.TTST

MTPS

TYPE

1%:

2$:

MOV

TYPE

JMP

#PR7

MLOCK

BRW,TTST

#CYCLE ,SLPADR
MR

a$LPADR

sSET UP STACK
;LOCK OUT INTERRUPTS
;1S PROGRAM UNDER MONITOR CONTROL
;BR IF YES
;CHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
;TYPE LOCK SELECTED.
JADJUST SCOPE ROUTINE.
;CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE
JSTART AT "'CYCLE'' FIND WHICH DEVICE

JTYPE "RUNNING''

;START TESTING

TO TEST

(ZDZA-FO

MACY11

CZDZAF .P11

30A(1052)

26-NOV=-79 11:03

26-NOV=79

11:06
PAGE 44
END OF PASS ROUTINE

1860
1861
1862
1863

SEQ 0043

JEND OF PASS
;TYPE NAME

1864

TEST

;UPDATE PASS COUNT
JCHECK FOR EXIT TO ACT-11
RESTART TEST

1865

.SBTTL

1867
1868
1869
1870
1871
1872
1873
1874
1875
1876

'.'t.t'..t't..tttt.'fi't"'t"'tfi'ttfit't't.t.ttt't"'Qt'..t'.t"ttt

1866

s*]F THERES A MONITCR GO TO [T
;v]F THERE ISN'T JUMP TO CYCLE

105037
104402
104402
104412
104402
104412

005337

104402
104412
105337

001030
113737
005037
005237
042737
005327
000001
003C13
012737

SEOP:

001136
001123
010063
010244
004742
010252
004750
001242
010260
004756
001242
01027
004764
00141
001410
001226
001262

100000

~N
&H

000001
006
002042
000001
003
002072

—=O

b
b
d md e
e
d
ol md

000137
011070

TYPE
TYPE

CNVRT
TYPE

CNVRT
INC
TYPE

0014M
001242
$EOP(CT:

000001

004704
013700
001405
000005
004710
000240
000240
000240

000042

002
002

SCOPE
(LR
CLRB

CNVRT
DEC
TYPE
CNVRY
DECB
BNE
MOVB
CLR
INC
BIC
DEC
.WORD

B8GT

MOV
SENDCT: .WORD
SEOPCT
$GET4?2: MOV
BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
SRTNAD: .WORD
XCSR:
XVEC:

1
BYTE

DZCSR

$ERRP(
SERFLG

.BYTE
DZRIV

.CLEAR LAST ERROR P(C
.CLEAR ERROR FLAG

.MEPASS
+MCSRX
XCSR
LMVECX

;TYPE

$PASS

sRAISE PASS COUNT
. TYPE PASSES

XVEC

~MPASSX
. XPASS

$PASS

.MERRX
XERR

SAVNUM
$DOAGN
DZNUM, SAVNUM
STIMES
$PASS

#100000, $PASS
;PC)*

$DOAGN
%PC)*,S(PC)+

a#6?2 RO
$DOAGN
PC, (RO)

END PASS

;TYPE CSR

JSHOW IT
;TYPE VECTOR
JSHOM 1T
JSHOW IT

JRESTORE PASS COUNT

;TYPE

ERRORS

JSHOW IT

JARE ALL DEVICES TESTED?
;BR IF NO.
JRESTORE

o (P(C)+
CYCLE

6.2
3.2

THE

COUNT

;. JERO THE NUMBER OF ITERATIONS
;¢ INCREMENT THE PASS NUMBER

;;DON'T ALLOW A NEG. NUMBER
;. LOOP?
2 YES
. ;RESTORE COUNTER

;:GET MONIJTOR ADDRESS

JsBRANCH IF NO MONITOR
;;CLEAR THE WORLD
;.G0 TO MONITOR
;s SAVE ROOM

;:FOR
JCACTI

—

000004
005037

104402
104412

—md
cmd
-

PASS ROUTINE

I *INCREMENT THE PASS NUMBER ($PASS)

005237

—

END OF

. .RETURN

CIZDZA-FO

CZDZAF .P1
1916
1917
1918
1919
1920
1921

1922
1923
1924
1925

1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948

004756

MACY11

30A(1052)

26=-NOV=-79 11:03

000001

006
001242
000001
006
001132

26=NOV=79

11:06

PAGE 45

SEQ 0044

END OF PASS ROUTINE
XPASS:

002

XERR:

002

.BYTE
$PASS
1

BYTE

SERTTL

6,2

6.2

:SCOPE LOOP AND ITERATION HANDLER
.SBTTL

SCOPE HANDLER ROUTINE

:.'t.'tttttfitt.t'tt"t"t'i'tttttttttltttfitlttitttttt'ttt'fitt.tttt

;*THIS ROUTINE

CONTROLS

THE

LOOPING OF

SUBTESTS.

WILL

INCREMENT

J*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
J*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

LaSWi4= 1
SaSWll=
SaCALL

e
004737
005037
022716
001413
000406

007360
001136
012376

017766
032777
001060

174142
040000

105777
100067

$SCOPE:
.SCOPE:

TTST:

174146

177776
174124

SCOPE

$XTSTR:

013746
012737
005737
012637
000436
022626
012637
000441

000004
005064
177060
000004

105737
001404
105037
005037
032777

001123

000004

PC.SERV.G
$ERRPC

SFIND OUT IF <*G> WAS HIT
*CLEAR LAST ERROR PC.

BR
TSTB
8PL

18
@$TKS
SOVER

2GOTO 18
(IF LOCK SW02=1; THIS LOC =240)
*KEYBOARD DONE?
‘BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST)

#B1T14,aSWR

:;LO0OP ON PRESENT

CMP
BEQ

MOV
BIT

BNE

48 :

174040

001242

001124
001226

#TST1+2.(SP)
$XTSTR

2IS THIS THE SCOPE AT THE BEGINNING OF
“IF SO, DON'T LOOP ON IT

a$TKB,-2(SP)
$OVER

CODE

FOR

THE

:CLEAR DONE BIT
XOR

MOV
MOV

SNERRVEC,-(SP)
#5$ ,SNERRVEC

MOV

(SP)+ ,3#ERRVEC

an127060

SIYES IF Sw14=1

TST1?

TEST?

TESTERANANN

:IF RUNNING
ON THE ''XOR'' TESTER CHANGE
SSTHIS INSTRUCTION TO A 'NOP'' (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR

S:SET FOR TIMEOUT

S:TIME OUT ON XOR?
- :RESTORE

THE ERROR VECTOR

B8R

$SVLAD

::GO TO THE NEXT TEST

CLRB
CLR

S$ERFLG
$TIMES

:2ERO THE ERROR FLAG
..CLEAR THE NUMBER OF

$PASS

..IF

P
(SP)+,(SP)+
S CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)
¢+ @#ERRVEC
::RESTORE THE ERROR VECTOR
BR
$OVER
SLOOP ON THE PRESENT (EST
6$: ;AMMAREND OF CODE FOR THE XOR TESTERMANAN
28:
TSTB
S$ERFLG
..HAS AN ERROR OCCURRED?
BEQ
3s
‘BR IF NO

000004

001123
001226
004000

TST

5¢:

;:SCOPE=10T

JSR
CLR

SMNMANSTART OF

000416

001011
005737
001406
005237
023737
002015

1$:

LOOP ON TEST
INHIBIT ITERATIONS

BIT
BNE

#BIT11,aSwR
18

BEQ
INC

1%
$ICNT

001124

CMP

BGE

$7TIMES,SICNT
$OVER

;INHIBIT [TERATIONS?
‘BR IF YES
FIRST PASS OF

ITERATIONS

TO MAKE

PROGRAM

INHIBIT ITERATIONS
“INCREMENT ITERATION COUNT

SCHECK THE NUMBER OF ITERATIONS MADE

;;BR

IF MORE

ITERATION REQUIRED

(IDZA-FO

CZDZAF .P11

1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984

005144

MACY1]1 30A(1052)
26-NOV-79 11:03

012737
013737
105237
113737

011637
013777
013716
105037

005737
001003
112737
000002
000406
000005

1985
1986
1987
1988
1989
1990
1991

000001

005234
001122
001122
001126
001122
001126
001417
001370
000010

26-NOV=-79

11:06

PAGE 46

SEQ 0045

SCOPE HANDLER ROUTINE

001124
001226
001240
173756

001417

18:

MOV

$SVLAD:

#1,81CNT

JoREINITIALIZE

$TSTNM

;o COUNT TEST NUMBERS

MOV

SMXCNT ,$TIMES

MOovB

$TSTNM STESTN

INCB

SOVER:

MOV
MOV

CLRB

MNTFLG

BNE

MOV
TST

MovB
RTI

. ;SET NUMBER OF

THE

ITERATION COUNTER

ITERATIONS TO DO

[ ;SET TEST NUMBER IN APT MA]LBOX

(SP) ,$LPADR
;. SAVE SCOPE LOOP ADDRESS
$TSTNM,IDISPLAY ;;DISPLAY TEST NUMBER

$LPADR, (SP)

. .FUDGE RETURN ADDRESS

MODE

;HAS

AMAINT

MNTFLG

BRW:
406
SMXCNT: 5

;CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST
THE MODE BEEN CHANGED?

;IF NOT INTERNAL

GO DO A TEST

s JMAX.

ITERATIONS

;IF INTERNAL MODE NOW,
;GO DO THE TFST

NUMBER OF

SET

THE MAINTENANCE BIT

;CHECK FOR FREEZE ON CURRENT DATA

1992
1993
1994
1995
1996

1997
1998
1999

2000
2001
2002
2003

032777
001405
005737
001402
013716
000002

001000

032777
001403
062716
000002

010000

173714

.SCOP1- BIT

#SW09,aSwR

;1S SWO9=1(SET)?

TST

LOCK

;IS

MOV
RT1

LOCK, (SP)

BIT
BEQ
ADD

#SW12,aSWR
1%
#2,(SP)

BEQ

001362

BEQ

001362

1%:

173670

000002

LTYPE:
’s

RTI

.SBTTL

TYPE ROUTINE

2SR

RRRRRRRRRdR

JBR IF NOT SET.
THER A

TIGHT

J1F NO, RETURN
*1F YES, GOTO
;60 BACK.

LOOP SPECIFIED?

THE

ADDRESS

JINHIBIT ALL PRINTOUT??
;IF NOT, GO TYPE
;SKIP OVER MESSAGE POINTER

JRETURN

TO WHERE

PROCEDURE

RS2

220002232222

IN LOCK.

WAS

2222222222

INVOKED

$*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TETMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

:'NOTE1:

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

J*NOTE?2:
;*«NOTE3:
.

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*CALL:
*1) USING A TRAP INSTRUCTION
OR

TYPE

.MESADR

:csMESADR

FIRST

ADDRESS OF

J
o

TYPE
ME SADR

* %

105737
100002
000000

005314

005320

005330

000430
010046
017600

001177

$TYPE:

HALT

1%:

122737

000002
000001

001254

132737

000100

001255

001011

TSTB

8PL

B8R

MOV

MOV
(MPB
BNE
BITB

$TPFLG

;;1S

THERE A TERMINAL?

.;BR

. LEAVE

RO,-(SP)

a2 (SP) ,RO
#APTENV,$ENV
623
#APTSPOOL ,$ENVM

[IF

YES

.oHALT HERE

;:SAVE RO

TERMINAL

;;GET ADDRESS OF ASCIZ STRING
JcRUNNING IN APT MODE
;;NO,GO CHECK FOR APT CONSOLE
;;SPOOL MESSAGE TO APT

AN ASCIZ

STRING

(ZDZA-FO
CZDZAF .P11

2028
2029
2030
2031
2032
2033
2034
2035

005350

MACYT) 30A(1052)
26-NOV-79 11:03

001405
010037
004737
000000

062716
000002
122716
001430

122716
001006
005726

26=NOV=79

TYPE

005350
005570
000040

001255

11:06

ROUTINE

61%:
62%:

PAGE 47

8EQ
MOV
JSR
.WORD

BIT8B

105366
002770
004737
105337
000770

62%

RO,61%

SC,SATVS
#APT(SUP, SENVM

60%
(RO)+,~(SP)

2$:

MOVB

000002

60%:
3%:

MOV
ADD

48
(SP)
+
(SP)+ ,RO
#2,(SP)

000011

4%:

tmMP8

#HT
, (SP)

000200

005512
001176

5%:
6%

JJRETURN

JIBRANCH JF <HT>

ACRLF
, (SP)

;:BRANCH IF NOT <(RLF>

(SP)+

<CR><LF> EQUIV
;:POP
JoTYPE A (R AND LF

$CHARCNT

;s CLEAR CHARACTER COUNT
;;GET NEXT CHARACTER
;.60 TYPE THIS (HARACTER
;IS IT TIME FOR FILLER (HARS.?
;.1F NO GO GET NEXT CHAR.
;.GET # OF FILLER CHARS. NEEDED
J;AND THE NULL CHAR.
:;DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF
260 TYPE A NULL
2.D0 NOT COUNT AS A COUNT
;.LO0P

001174
000001

’%:

005512

005556

JSR
(MPR

PC,S$TYPEC

$FILLC,(SP)+

BNE
MOV

$NULL ,=(SP)
1(SP)

DECB
BLT
JSR
DECB
BR

OUT

. ;PUSH CHARACTER TO BE TYPED ONTO STA(K
::BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP [T OFF THE STACK
;.
;;RESTORE RO
. sADJUST RETURN P(C

005556

;:NO,GO CHECK FOR CONSOLE
;. SETUP MESSAGE ADDRESS FOR APT
;. SPOOL MESSAGE TO APT
; cMESSAGE ADDRESS
;. APT CONSOLE SUPPREZSED

J;YES,SKIP TYPE

104402

001231
105037
000755
004737
123726
001250
013746

SEQ 0046

6$
PC,STYPEC
SCHARCNT
{

STA(CK

JHORIZONTAL TAB PROCE SSOR
112716
004737
132737
001372
005726
000724
105777
100375

000040
005512
001007

005556

173452

000002
000015

8%:
9% :

$TYPEC:

MOVB
JSR
ClB

#' ,(SP)
PC.STYPEC

47 ,$CHARCNT
9s
+
(SP)

BNE
TST
BR
TSTB

a$TPS
$TYPEC

173444

2(SP) ,a%$TPB

000002

qu.Z(SP)

005556
000012

000002

1%:

S$SCHARCNT
$STYPEX

#LF ,2(SP)

(MPB

$CHARCNT
: . WORD
$TYPEX: RTS
LSBTTL

APT

$TYPEX
(PC)+

COMMUNICATIONS

;sREPLACE

. TYPE

TAB WITH SPACE

A SPACE

;BRANCH IF NOT AT
;. TAB STOP

. .POP SPACE OFF

STACK

;sGET NEXT CHARACTER
J;WAIT UNTIL PRINTER

IS READY

;sLOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;sBRANCH IF NO
::Ei?;-CLEAR CHARACTER COUNT
;1S CHARACTER A LINE FEED?

; JBRANCH IF YES
;s COUNT THE CHARACTER
;o CHARACTER COUNT STORAGE
ROUTINE

";ti!tt'ttttt.Qttt.!ttt"".'llfi'tfit.tt'ttl.'t'fittttit.l'tt"tttl

(ZDZA-FO

.P "
CZDZAF

2087

005562
005570
005576
005600

MACY11 30A(1052)
26-NOV-79 11:03

26-NOV=-79
APT

112737
112737

000001
000001

006026
006024

$SATY1:

112737

000001

006026

$ATYSL:
SATY(:

000403
010046

010146
105737
001450
122737
001031
132737
001425

017600
062766
005737
001375
010037

105720
001376
163700
006200
010037
012737
= OVONOWNEBIWNN=O

md cmad —d
ed
D
D

b cd
nd amd
— ed

md DD ed D d D

[aN1aS1aN 101,81, N 1a0 1N 1, N 1,8 1,81,8]

2109

11:06

001254

000100

001255

000004
000002
001234

000004

001250

001252
000004

000004
000002
177776
005300

105737

006026

001416
005737

001254

005737

001234

017637
062766
005237

000004
000002
001234

006026
006025
006024

MOVB

” L SFFLG

BR
MOVR

SATY(
”,$FFLG

MOVB

18:

5%:

10%:

11%:

001236
000004
12%:

FATAL

ERROR

WMFLG
b} 3

;.PUSH RO ON STACK
;;PUSH R1 ON STACK
;:SHOULL TYPE A MESSAGE?
;sIF NOT:
BR

;:1F NOT:

BITR
BEQ
MCV
ADD

HAPTSPOOL ,$ENVM ; ; SHOULD SPOOL MESSAGES?
33
;o1F NOTBR
@4 (SP) ,RO
;;GET MESSAGE ADDR.
#2,4(SP)
; .BUMP RETURN ADDR.

BNE
MOV
TSTB
BNE
suB

1%
RO, SMSGAD
(RO)
+
2%
$MSGAD,
RO

MOV
MOV
BR
MOV
ADD

RO, SMSGLGT
#4 . SMSGTYPE
5¢
34 (SP) 4%
#2,4(SP)

JSR
.WORD

PC.STYPE
0

177776,-(SP)

::PUSH 177776 ON STACK

TSTR

$FFLG

:sSHOULD REPORT FATAL ERROR?

TST

$ENV

TST

SMSGTYPE

MOV

@4 (SP) ,$FATAL

TST

BEQ
BEQ
BNE

ADD
INC

CLRB
CLRB
(LRB
MOV

MOV
$MFLG:
$LFLG:
$FFLG:

2;TO ONLY REPORT

KAPTENV,$ENV

MOV
4%:

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

(MPR

ASR

001234

”,IMFLG

RO,-(SP)
R1,-(SP)

BNE

2%:

005736
000004

SEQ 0047

MOV
MOV

T1STB
B8EQ

001250

017637
062766
013746
004737

105037
105037
105037

$ATY3:

006024
000001

PAGE 48

COMMUNICATIONS ROUTINE

RTS

.BYTE
.BYTE
.BYTE
.EVEN
APTS1ZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

SMSGTYPE

128
12%
118

#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1

(SP)+ RO

0
0
0

;STRING INPUT ROUTINE

; ;OPERATING UNDER APT?

;:SEE IF DONE W/ LAST XMISSION?
WAIT
;:IF NOT:
;<PUT ADDR IN MA]LBOX
;sFIND END OF MESSAGE

.2SUB START 0~ MESSAGE
;.GET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX

;s TELL

APT

;;PUT MSG ADDR

TAKE MSG.

IN JSR L INKAGE

. (BUMP RETURN ADDRESS

1:CALL T/PF MACRO

BR
.;]F NOT:
APT?
UNDER
;RUNNING
.
BR
NOT:
IF
;.
;oFINISHED LAST MESSAGE?
WAIT
J:IF NOT:
#
R
ERRO
T
;sGE
. :BUMP RETURN ADDR.
;:TELL APT

TO TAKE

ERROR

;s CLEAR FATAL FLAG
. sCLEAR LOG FLAG
.. CLEAR MESSAGE FLAG
2 ;POP STACK INTO R1

;.POP STACK
;RETURN

INTO RO

;. +MESSG. FLAG
..LOG FLAG

.;FATAL

FLAG

006030
006032
006034
006042
006050
006052
006054
006040
0060¢
006070
00607°2
006076
006102
006106
006110
006114
006116
006124
006126
006130
006132
006134
006136
006140
006144
006146
006150
006152

010346
010446
017637

26-NOV=79
APT

11:06

. INSTR: MOV

000004
000002

006052
000004

.INSTY:

.MSG:

010620
000007
173074

MOV
MOV
ADD
TYPE

173070
000200
000015

173044

R3,-(SP)

R4 ,=(SP)
a4 (SP), .MSG
#2,4(SP)

a$TkB,a$T7PB
R3

.INSTE:

MOV
MOV
TYPE
BR
INSTR2: MOV
MOV

RT1

(SP)+ ,R3
R3,-(SP)
R4 ,-(SP)

012537
112537
11" 37

.PARAM:

000004
006344
06346
006350
006352

006353
000004

0
Oive
000015
000060
002067

000060
000075

PARAM1:

1%:

MoV

TO INSTRUCTION AFTER ADDRESS POINTER
THE MESSAGE

;IF

SO,

TERMINATE THE

INPUT SEQUENCE

;IF WE CAN'T, WAIT UNTIL WE CAN
JECHO THE CHARACTER BACK

JREDUCE THE NUMBER _OF (HARACTERS RECEIVED

;IF WE DON'T _HAVE 7, GO GET SOME MORE
;1F WE HAVE 7, RESTORE R4
JRESTORE R3

;SAVE R3 ON THE STACK
;SAVE R4 ON THE STACK

,$QUES

PRINT A QUESTION MARK...

(SP)+ ,R4

JRESTORE R4

LINST1

(SP)+,R3

s CONVERT ASCII
010546
010446
016605
012537
012537

sPOINT
JPRINT

;IF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT

173046

:SAVE R4 ON STA(CK
;GET THE ADDRESS OF THE MESSAGE TO BE PRINTED

a$TPS

INSTR2

2%:

;SAVE R3 ON STA(CK

9$TKB, (R4)
#200, (R4)
(RG)+,#15

1%
(SP)+ R4

001230

SEQ 0048

JMESSAGE IS POINTED TO FROM HERE
JPOINT R4 TO THE INPUT BUFFER
;SET THE MAXIMUM NUMBER OF CHARA(TERS ALLOWED
JHAS A CHARACTER BEEN RECEIVED?
:IF NO, KEEP WAITING FOR IT
¢IF YES, SAVE IT IN THE INPUT BUFFER
JKEEP ONLY THE 7-BIT ASCII INFORMATION
;IS THIS CHARACTER A LINE FEED?

# INBUF ,R4
#7,R3
as$TKS
19

1$:

173054

PAGE 49

COMMUNICATIONS ROUTINE

;RESTORE R3

JRETURN TO THE MAIN PROCEDURE

STRING TO OCTAL

R5,-(SP)
R4 ,-(SP)
4(SP) RS
(R5)+,LOLIM
(R5)+ ,HILIM
(R5) +,DEVADR
(R5)+,LOBITS
(RS)
+ ,ADRCNT
R5,4(SP)
RS

#INBUF
R4
#15,(R4)
PARERR
(R4) ,#60
PARERR

(R&) 467

PARERR

WHAT'S GOING ON?

;GO0 PRINT THE MESSAGE AGAIN

#60, (R4)
(R4) +,RS
#15, (R4)
LIMITS
RS

;SAVE R5 ON THE STACK

;SAVE R4 ON THE STACK
;GET THE SETUP INFORMATION POINTER
JSET THE LOW LIMIT FOR THE INPUT
sSET THE HIGH LIMIT FOR THE INPUT
sSAVE THE ADDRESS WHERE THE RESULT WILL BE STORED
;GET THE MASK OF THE INCORRECT BITS
;sGET THE COUNT OF ITEMS TO BE STORED
;POINT TO WHERE MAIN LINE PROGRAM WILL RESUME
JINITIALIZE THE ASCII TO OCTAL RESULT WORD
;POINT TO THE INPUT BUFFER
;1S THIS CHARACTER A CARRIAGE RETURN?
;IF SO, PRINT THE MESSAGE AGAIN
;IS THIS CHARACTER BELOW THE NUMERIC RANGE’
;IF SO, GO PRINT THE MESSAGE AGAIN
IS THIS CHARACTER ABOVE THE NUMERIC RANGE?
n

2143
2144
2145
2146

MACY11 30A(1052)
26-NOV-79 11:03

l—-

C(ZDZA-FO
CZDZAF .P11

SO,

GO PRINT THE MESSAGE AGAIN

:1SOLATE THE NUMBER THE CHARACTER REPRESENTS
s CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING

*1S THE NEXT C(HARACTER A CARRIAGE RETURN?
;IF SO, GO SEE IF NUMBER IS WITHIN LIMITS
;CLEAR BIT POSITION O, MOVE EXISTING STRING TO LEFT

CZDZA~FO
CZDZAF .PIN
2196

2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208

MACY11

30A(1052)

26=NOV-79 11:03

006262
006264

006305
006305

006266
006270
006272

000760

26=NOV=79

11:06
PAGE 50
APT COMMUNICATIONS ROUTINE

104404

PARERR:

000750

ASL
ASL

RS
RS

BR
INSTER
BR

1%
PARAM1

SEQ 0049
;CLEAR POSITION 1, MOVE STRING TO LEFT AGAIN

JMOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR
JNEXT THREE BITS
GO GET THE NEXT CHARACTER
;THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN
sTRY GETTING THE PARAMETERS AGAIN

JTEST TO SEE IF NUMBER IS WITHIN LIMITS
020537

006346

020537

006344

101373

103770
133705

2209
2210
2211
2212
2213
2214

001365

RS HILIM

LIMITS:

PARERR

R5,LOLIM

PARERR

006352

LOBITS,RS
PARERR

sDOES RESULT EXCEED [TS MAXIMUM CORRECT VALUE?
;1F YES, GO PRINT THE MESSAGE AGAIN
;IS THE RESULT LOWER THAN ALLOWED?
;IF YES, GO PRINT THE MESSAGE AGAIN
SJARE ANY INCORRECT BITS SET IN THE RESULT?
;IF SO, GO PRINT THE MESSAGE AGAIN

;STORE NUMBER AT SPECIFIED ADDRESS

2215

013704
010524
062705

2216
2217
2218
2219
2220
2221

105337

001372
012604
012605
000002

006350

1%:

00000¢

006353

MOV
MOV
ADD

DECB
BNE

MOV
MOV
RTI

000000

LOL IM:
HILIM:
DEVADR:

LOBITS:

:
ADRCNT

0
0
0

.BYTE
.BYTE

DEVADR
R4
R5, (R&4)+

#2 RS
ADRCNT
1%
(SP) +,Ré4
(SP)+,R5

0
0

JPOINT

TO THE

016637

000004

001402

.SAV(0S: MOV

4(SP) ,SAVPC

JRESTORE

006372
006376
006402

006412

010537
010437
010337

010237
010137
010037
000002

001214
001212
001210
001206
001204
001202

SVO5:

MOV
MOV

R5,$REGS
R4, SREG4

MOV
MOV
MOV

RZ,$REG2
R1,SREG]
RC, $SREGO

MOV

RTI

R3,$REG3

;LOWEST ACCEPTABLE VALUE
JHIGHEST ACCEPTABLE
sLOCATION WHERE RESULT WILL BE STORED
s INCORRECT BITS MASK
;COUNT OF ITEMS TO BE STORED

;SAVE R7 (PC)

;SAVE
;SAVE
;SAVE
:SAVE

RS
R4
R3
R2

;SAVE R1

:SAVE RO
;LEAVE.

JRESTORE RO-RS
006414
006420

006430
006434

001202
001204
001206
001210
001212

.RESOS: MOV

MOV

MOV
MOV

MOV

$REGO,RO
$REG1,R1
SREGZ,R?

JRESTORE RO

$REG4 R4

;RESTORE R4

$REG3,R3

RESULT WILL

JRESTORE RS
JRETURN TO THE MAIN PROGRAM

s SAVE RO-R5
006362

THE

sCALCULATE THE NEXT DATUM
;REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED?
;IF NOT, GO STORE THE NEXT DATUM

;SAVE PC OF TEST THAT FAILFDP AND RO-RS
006554

LOCATION WHERE

;STORE THE RESULT

JRESTORE R1
JRESTORE R2

JRESTORE R3

STORED

(2DZA-FO
.P n
CZDZAF
00644C
006444

MACY11

30A(1052)

013705

001214

26=NOV~79 11:03
000002

26=-NOV-79

11:06

PAGE 51

SEQ 0050

APT COMMUNICATIONS ROUTINE
MOV
RTI

$REG5,RS

;RESTORE RS

JLEAVE

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
104402

010046
010146

001231

000012
000002
006622

006624
177770
000060

.CONVR: TYPE
.CNVRT: MOV
MOV

000012
1%:

3%:

MOV
MOV
MoV
MOV
ADD
MOV

Movs

MovB
MOV
mMovB
MOV

8IC

ADD
MOvB
ROR

ASR
ASR
DEC

010724
006624

4%:

BNE
MOV
MOovB
DECB
TSTB

000040

010724
006622

BEQ

5%:

MOVB
DECB

6%:

CLRB

TYPE
DEC

BNE

MOV
MoV
MOV
MOV
RT!

WRDCNT: 0
: .BYTE
CHRCNT
SPACNT: .BYTE

000000

,$CRLF

RO,-(SP)
R1,-(SP)

R3.~(SP)
RG.=(SP)
RS.=(SP)
,R1
312(SP)
n2,12(SP)

(R1)+,WRDCNT
(R1)+.RS
(R1)+.RO
a(R1)+,R4
RS, CHRCNT
#2C<7> ,R3

#060,R3

R3,~(SP)

R4
R4
R4
RS

AMDATA,R3
(SP)+,(R3)+
CHRCNT
48
RO
6%
#040, (R3) +
RO
5%
(R3)

.MDATA

WRDCNT
18
(SP)
+ ,RS
(SP)+ R4
(SP)+ ,R3
(SP)+ ,R1
(SP)+,RC

BINWRD:

s TRAP DISPAT(CH SERVICE

JPRINT A CARRIAGE RETURN
:SAVE RO
:SAVE R]
;SAVE R3
;SAVE Ré
;SAVE RS
;PLACE THE ADDRESS OF THE ARGUMENTS IN R1
JPOINT

TO WHERE MAIN PROGRAM WILL

sPRINT

THE

RESUME

;GET NUMBER OF WORDS TO BE PRINTED
;GET THE NUMBER OF CHARACTERS TO BE PRINTED
sGET THE NUMBER OF SPACES TO PRINT
;COPr THE WORD TO BE CONVERTED
;COPY THE CHARACTER COUNT
;COPY THE ARGUMENT WORD AGAIN
;ISOLATE THREE BITS TO BE TREATED AS A CHARACTER
JMAKE AN ASCII CHARACTER OUT OF THEM
:SAVE THAT CHARACTER
;MOVE THE NEXT THREE BITS INTO PLACE
;MOVE THEM AGAIN
cAND FINALLY A THIRD TIME
;REDUCE CHARACTER COUNT.ARE ALL CHARACTERS
;BUILT?
;IF NO, GO BUILD THE NEXT ONE.
;NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM
;STORE THE CHARACTER, STARTING WITH THE MOST
JREDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED?
;IF NO. GO TRANSFER ANOTHER
;ARE ANY SPACES TO BE PRINTED?
;JIF NO, DON'T SET UP ANY
;ADD A SPACE TO THE OUTPUT BUFFER
SJREDULE THE COUNT. SHOULLD WE PRINT MORE?
;IF YES, 6o ADD ANOTHER SPACE
JTERMINATE THE OUITPUT BUFFER WITH A ZERO
STRING wt

JUST BUILT

JREDUCE THE WORD COUNT. ARF ANY MORE WORDS LEFT?
sIF YES, GO CONVERT THEM

JRESTORE RS
;RESTORE R4

JRESTORE R3

sRESTORE R1
JRESTORE RO

JRETURN TO THE MAIN PROGRAM

;NUMBER OF CHARA(CTERS TO PRINT
JNUMBER OF SPACES TO PRINT

CZDZA~FO
CZDZAF .P1?

MACY11

30A(1052)

26-NOV=79 11:03

26=-NOV-79

11:06

PAGE 52

SEQ 0051

APT COMMUNICATIONS ROUTINE

JARGUMENT OF TRAP IS EXTRACTED

JAND USED AS OFFSET

TO OBTAIN POINTER

sTO SELECTED SUBROUTINE
.TRPSR: MOV
MOV

000002

RO, =(SP)
2(SP) RO

ST
MOVB
ASL
MOV

002002

-(RO)
(RO).RO
RO
.TRPTAB(RO)
,RO
RO

RTS

;SAVE RO. USE RO TO FIND TRAP ROUTINE

;GET TRAP ADDRESS
;GET TRAP
;GET RIGHT BYTE OF TRAP(TRAP OFFSET)
JPOSITION OFFSET FOR

TABLE

INDEXING

;PLACE INDEXED ADDRESS OF TABLE IN RO
s TRANSFER

TO THAT ADDRESS AND RESTORE OLD RO

:DEVICE CLEAR ROUTINE

:ISSUE A DEVICE CLEAR

052777
032777
001374
000002

000020
000020

173162
173154

_DEVICE. (LR
BIS
18$:
8IT
BNE

#DCLR,aDZCSR
#DCLR.aDZCSR
1%

RTI

JROUTINE

104413
153777
000002

010046
013700

005300
001376

001417

173140

006722

RT1

1%:

012600
000002
000001

DLYCNT:

MOV
MOV
DEC
BNE
MOV
RTI

;0ID

IT CLEAR’

:BR IF NO
SEXIT ROUTINE

TO HANDLE MAINTENANCE BIT

.DCLASM:DEVICE.CLR
BISE
MNTFLG,aDZCSR

.DELAY:

:SET DCLR

RO, =~(SP)
DLYCNT,RO
RO
18
(SP)+,R0

.WORD

SETTING WITH DEVICE

;ISSUE A DEVICE CLEAR
cLOAD THE MAINTENANCE BIT

JRETURN TO CALLING ROUTINE

CLEAR

IT IS I MODE

;SAVE RO
;SET COUNT
:DELAY

*RESTORE RO

*LEAVE ROUTINE
*PATCHABLE LOC FOR MORE TIME

;ADVANCE TO NEXT TEST HANDLER

013716
005037
000002

001360
001362

.ADVANCE:MOV
CLR
RT]

NEXT, (SP)
LOCK

;CRUNCH STACK WITH ADDRESS OF SCOPE CALL

SRESET

TIGHT LOOP ADDRESS

;CHECK TO SEE IF OLD TEST GETS REPEATED

;:ERROR HANDLFR

007360
010000

172210

$ERROR:

172212

000207
020000

001136

172204

172164

XBX:

JSR
BIT
8EQ
TSTB
BPL
MOVB

PC,SERV.G
#SW12,aSWR
XBX
as$TPS
XBX
#207,3$TP8

BNE
(MP

HALTS
(SP)
, $ERRPC

8IT

BEU

#SW1%,3SWR
18

sFIND OUT IF <*G> WAS HIT
;BELL ON ERROR?
;SR IF NO BELL

;TTY READY.

JDON'T WAIT IF TTY NOT READY.
JPUSH A BELL AT THE TTY.

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

pr—

CZDZA-FC

CZDZAF P

2364
2365
2366
2367
2368
2369
2370
237N
2372
2373
2374
2375
2376
2377
2378

007004
007010
007014
007016
007020
007024
007026
007032
007034
007036
007040
007044
007050
007054
007060

MACY11 30A(1052)
26-NOV-79 11:03

011637
105037
104407
011605
162705
011504
110437

26-NOV-79

11:06

PAGE 53

001136
001123

1%:

(SP) ,$ERRPC
$ERFLG
(SP)

000002

#2 RS

001134

R4,SITEMB
R4
(RS) ,R&4
R4
#177001 ,R4
#.ERRTAB,R4
(R4)
+ ,ERRMSG

(RS) .R4

177001

(R&4)
+ ,DATAHD
(R4) ,DATABP
$ERFLG

001123

TYPMSG

007220

001231
001231
001362

TYPMSG:

177777
007174

DATABP
TYPDAT

.SCRLF
. SCRLF

LOCK
18

010314
010302
007352
010371
007344
010244
00474¢

001231

1%:

MTSTN

XTSTN

.MERRPC
.ERTABO
.MCSRX
XCSR
.SCRLF

001123

#-1,SERFLG
ERRMSG
WIBS.FM

WTBS.FM:

007206

DATAHD:
TYPDAT:

000001

001254

001134
005600

007246

004726

000042

DATABP:
RESREG:

HALTS:

7%:
8%:
2%:

;DOUBLE IT

JMULT AGAIN
s CLEAR JUNK
;GET POINTER
_ :GET ERROR MESSAGE
;GET DATA HEADRER
;GET DATA TABLE
:TYPE HEADER

JBR IF YES
;DOES DATA TABLE EXIST?
;BR IF YES.

;TYPE A CARRIAGE RETURN

JAND TYPE ANOTHER

JSHOW IT
;TYPE PC.

JSHOW IT

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

:TYPE

;

DATAHD
TYPDAT

007220

sRECORD BEING HERE
;PREPARE HEADER
;SAVE ALL PROC REGISTERS
sGET THE PC OF ERROR
sGET ADDRESS OF TRAP (CALL
JGET ERROR INSTRUCTION
;COPY TEST NUMBER FOR APT HANDL ING
JMULT BY TWO

JMASTEK

ERRMSG:

171672

SEQ 0052

APT COMMUNICATIONS ROUTINE

ERROK MESSAGE

;DATA HEADER?
;BR IF NO
:TYPE

DATABP
RESREG

DATA HEADER
.
;DATA TABLE?
;BR IF NO.

géPTENV,SENV

DATA TABLE
:
;RESTORE PROC REGISTERS
;IS APT RUNNING?

SITEMB,7%

;COPY ERROR NUMBER

PC,SATYS

0
8%
ngNDAD,3#42
aSWR
EXITER

< SHOW

;SKIP APT CALL

NOT

;CALL APT SERVICE
cERROR NUMBER STUCK HERE
;LOCK UP HERE
JCHECK TO SEE IF IN ACT-11 MODE
JIF SO, HANDLE ACCORDINGLY
JHALT ON ERROR?

;BR IF NO HALT ON ERROR

CZDZA-FO
CZDZAF .PIN

2620
2621
2422
2623
<24

2425
2626
2627
2428
429
2630
2431
2432
2433
2634
2435
2436
2437
2438
2439
2440
2641
2442
2443
2444
2445

007270

26-NOV-79

MACY11

30A(1052)

016677
000000

000002

171664

001132
000400

171646

002000

171636

001360

001126

26-NOV=-79 11:03

005237
032777
001007
032777
001407
013737

001120
171564

002

MOV
MALT
EXITER: INC
8l7

BNE

8IT

001160

2448

171550

177536
007640
007620
007632
007642
171512

007640
171526

JMP
RT]

oSLPADR

.BYTE

6.2

XTSTN:

SAVP(
1

BYTE

2.2

CMP
8EQ
MOV

#177570,SWR
63
a88TKB,~(SP)

P8
BNE

#7,(SP)+
63

MOV

aSWR ,90%

SERV.G:

18%:

2%:
171460

1714640
17143
1714650

017746
042716
122726

177776

000060

177776

000067

177770
177776
171372

177776
171372

171366

000200
000015

STSTNM

MOV
TYPE

#STACK ,SP

MIT7,(SP)

#4000,88TKS
SERY.G
908 ,aSWR
.89%

SEQ 0053

,918
e37KS

BiC
(P8
8tQ

MIT7,(SP)
215,(SP)+
5%

L
ROL
ROL
ROL

aSWR
aSWR
oSWR

o, o

~2(SP) ,#60

cMP

=2(SP) ,#67

CLR
TST8
8PL
nog

BCS
BLT

=4
88$TKB,-(SP)

18
1%

1}
#4C<7>,=2(SP)
-2(SP) ,aSwWR

8PL
MOV

=4
8$T1K8,—(SP)

8IC
(MP8

;B8R IF YES
,G0TO NEXT TEST?
.BR IF NO
JSET FOR NEXT TEST
JRESET SP
.GOTO SPEL.IFIED TEST
JRETURN

;IS THE SWITCH REGISTER HARDWIRED?
;1r SO, IGNORE “G
JOTHERWISE, GET THE LAST CHARACTER TYPED
STRIP PARITY(cJGHTH) BT
JIS IT *G?
;IF NOT, IGNORE INPUT
.RX BUSY?
;BR IF YES
;SAVE (SWR),

"WAIT FOR DONE.

aSWR
asTPS
=4
~2(SP) ,887P8

BGT
BIC
8IS

T1ST8

:SHO¥ ERROR PC IN DATA DISPLAY
JHAL
JUPDATE ERROR COUNT
.GOTO TOP OF TEST?

,88%

TYPE
TST8

BPL
MOV

171506

105777
100375

MOV

8IT
BNE

000200
000015

177776

#SW10,85WR

2%:

18:

CNVRT

171462
171466

SERTTL

#SW08 ,aSwR

3
NEXT,SLPADR

B8IC

004000

2(SP) ,80D1SPLAY

BEQ
MOV

171572
000200
000007

2446
2447

PAGE 54

1$:

€E°14/80:

002

177570

11:06

APT COMMUNICAT.ONS ROu. INE

a88TKS

MIT7,(SP)
#15,(SP)+

*ERROR

MACY11 30A(1052)
26-NOv=-79 11:03

C0IA-FQ
(ZDZAF .P1Y

051450
000057

007632
007634
007636

000G
006
007640
000000
036457

007640
007642

051127

5%:
6% :

BNE
TYPE
RTS

23
LSCRLF
P(

89%.

LASCIZ

<200>?

1
.BYTE
90%

6.0

LASCIZ

/=02

90$:

918%:

000057

PAGE SS

1°:06

SEQ 005¢

COMMUNICATIONS ROUTINE

.EVEN
88%:

000

.EVEN
.SBTTL

.WORD

(SWR)=/?

POWER DOWN AND UP ROUTINES

JINAAARNARNAARNANAANNARA
ARV AN A RRARRANCANAANNAANAANORONNVVOVVOVO R RNN

012737 "010012
012737 000340

2493

2654
2495
2496
2497
2498
2499
2500
2501
2502
250%
250~
25C5
2506
2507
2508
2509
2510
2511
2512
2513
2514

010046
010146
010246
010346
010446
010546

017746
010637
012737
000000
000776

000026
000026

;POWER DOWN ROUT INE
S$PWRDN: MOV
FSILLUP ,@#PWRVEC ;;SET FOR FAST UP
MOV
#3460 ,30PWRVEC+2 ;;PR]IO:7

000024

2515

2516

2517
2518

104402

88888§
N) ~d —d b =d
oo
NO

—

jelelelelele

b —d —d

010004

010020
012716
011434
000002
000000
000776
000000
050200

b
—
b
—

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737

007646
000340

RO,=-(SP)

;sPUSH RO ON STACK

MOV
MOV

aSWR,-(SP)
SP ,$SAVR6

;;PUSH @SWR ON STACK
. :SAVE SP

000026

;;PUSH
;:PUSH
;.PUSH
;:PUSH
;JPUSH

R1
R2
RS
R4
RS

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

mvr

#SPWRUP ,@#PWRVEC ;,;SET UP VECTOR

B8R

.~2

RN R AR A A AR

SPWRUP: MOV

MOV

1%:

000024
000026

$PWRAD :

$ILLUP:

043040

R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
RS,-(SP)

; JHANG UP
A N

N A R A N AA R AR AN RN

AR AN AN R A RN AN AN

RANNNNY

,POWER UP ROUT INE

SPWRMG:

051127

MOV
MOV
MOV
MOy
Moy
MoV

171256

010016
007720

2488
2489
2490
2491
2492

020200
03645

APT

2487

007620
7626

n 3838

2484
2485
2486

000207

001231

—b bk
b

2683

104402

OO00O0O

24682

00133,

007610
007612
007676

2676
2677
2478
2479
2480
<481

26-NOV=79

$SAVR6:

MPFAJL:

(LR
INC

#SILLUP ,@#PWRVEC ;.SET FOR FAST DOWN

$SAVR6, SP

;.GET SP

$SAVR6

;:WAIT FOR

$SAVR6

J:WAIT LOOP FOR THE
THE

INC

TTY

BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

13
;:0F
WORD
(SP) +,aSwR
;:POP STACK INTO aSWR
(SP)+ RS
;;POP STACK INTO RS
(SP)+ ,R&
;:POP STACK INTO R4
(SP)+ ,R3
;;POP STACK INTO R3
(SP)+ ,R2
;;POP STACK INTO R2
(SP) + ,R1
;.POP STACK INTO R1
(SP)+ RO
;;POP STACK INTO RO
NSPWRDN ,a#PWRVEC ;,SET UP THE POWER DOWN VECTOR
#3640 ,a#PWRVEC+2 ;:PRIO:7

.WORD
MOV
é¥?RD

MPFAIL
(PC)+, (SP)
RESTART

TYPE

HALT

;cREPORT

THE

POWER FAILURE

. POMER FAIL MESSAGE POINTER
. ;RESTART AT RESTART
;;RESTART ADDRESS

;. THE POWER UP SEQUENCE WAS STARTED

B8k

.~2

.ASCIZ

<200>/PWR FAILED. RESTART AT LAST TEST /

;. BEFORE THE POWER DOWN WAS COMPLETE

;.PUT

THE

SP HERE

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

(2)

2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2562

010063
010106
010122
010171
010215
010244
010252
010260
010271
010302
010314
010317
010371
010376
010423

MACY11

30A(1052)

26-NOvV-79 11:03

200
051200
050200
200
200
051503

11 :06 PAGE 56
POWER DOWN AND UP ROUTINES

26=-NOV=79

SARRRRR

(IDZA~FO
.P n
CIDZAF

MEPASS:
MR:

.ASCIZ
ASCIZ

MCSARX:
MVECX:
MPASSX:
MERRX:
MTSTN:
MASTEK:

LASCIZ
LASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
LASCIZ

<200>/END PmSS CZD2A-F
/
<200>/RUNNING
/
<200>/PROGRAM INDICATES NO DEVICES PRESENT./
<200>/INSUFFICIENT DATA!/
<200>/L0CK ON SELECTED TEST/

MNEW:
MERRP(C:

LASCIZ
.ASCIZ

<200>/SET SWITCH REG TO DZ11°S DESIRED ACTIVE./
/PC: /

XSTATQ:

2
.BYTE

6.3

MERR?:
MERR3:
MLOCK:

020124
000040
047440
042514

010466

010470
010472
010474
010476

SEQ 0055

XHEAD:
H?C?hN:

.EVEN

.ASCIZ
LASCIZ

STMPI
BYTE
STMP?

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/+» /

<200>/MAP OF D211 STATUS/<200>
<200>/1LLEGAL ENTRY N STAGGERED MODE/<200>

6,2

JTHIS ROUTINE

ESTABLISHES WHICH MAINTENANCE MODE

THE

DEVICE

JE=EXTERNAL LOOP BA(K
;I=INTERNAL LOOP BACK

000000

2543
2544
2545
25646
2547
2548
2549

000105

010620
010620

;S=STAGGERED LOOP BACK
.SETFLG:MOV
8(SP) RS
BIC
#40, INBUF

010612
001417
010620

010614
000010

0014617

000123

010620

010616
001417
000002

#'E ., INBUF
4 3

CLRB
B8R
M8
BNE

MNTFLG
7%
#°'1, INBUF
5%

JSET MAINT BIT =0
;GET OUT
;1S IT INTERNAL LOOP BA(CK °?
;NO

.JERO BITS

MOV
MOVB
BR
CMP8
BNE
MOV

1%. (RS)

2%, (RS)
MMAINT MNTFLG

;IS IT EXTERNAL LOOP BACK °
sNO
JYES STORE

JYES STORE INFO
JSET UP THE MAINTENANCE FLAG LOADER
JGET oUT
;IS IT STAGGERED LOOP BACK °
JWHAT ?
JYES STORE INFO

7%:

3??

CLRB

68 :

INSTER
BR

LSETFLG

;RETRY
;DITTO

0
100000

JINTERNAL =
;STAGGERED

1%:

2%:
7$:

.WORD

. WORD
.WORD

#2,(SP)

200

<POP AROUND

JEXTERNAL

JBUFFERS FOR INPUT-OUTPUT
000000
010662
000000

INFO

7%
#'S, INBUF
63
38.(RS)
MNTFLG

5%:

INBUF:
. .+40

TEMP:

TAG

M8
BNE
MOV

000111

;PICK UP ADDRESS OF
;STRIP LOWER CASE

O
0

]

(ZDZA~FO
CZDZAF .P1

2571
2572
2573
2574
2575
2576
2577
2573
2579
2580
2581
2582
2583
2584

010724

010766
010772
011000
011006
011014
011016
011022
011024
011032
011034

MACY11

30A(1052)

26-NOV=79 11:03

26-NOV-79

010724
000000
010766

011637
162737

017737
022737
001003
011637
000412
022737
001401
000000

011637
017737

062716
017766
000002
000000
000000

11:06

.=.+40
MDATA:

.=.+40

SET.PS: MOV

000060
106427

MOV
o, o
BNE
MOV
BR

011064

011064
000016

000002
000004

011066

011064
000002

1%:

e ¥
38:

A ¥

SEQ 0056

011064

000002

106437

PAGE 57

POWER DOWN AND UP ROUTINES

(SP),3%

SuUB

#2,3%

MP
BEQ
HALT
MOV

#106437,4%
. +4
JRESERVED

MOV

ADD
MOV
RT]

23%,6%
2106427 .48
19
(SP),3%
23

(SP)

23s,
58

#2,(SP)
83%.2(SP)

INSTRUCTION NOT 'MTPS'’

CZDZA-FO
CZDZAF P11

MACY11 30A(1052)
26=NOV-79 11:03

26-NOV-79
11:06
PAGE S8
POWER DOWN AND UP ROUTINES

2592
2593
2594
2595

2596
2597
2598
2599
2600

2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613

2614
2615

2616

2617
2618
2619
2620
2621
2622

2623
2624
2625

2626
2627
2628
2629

2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647

SEQ 0057

;
:ROUTINE USED TO ''CYCLE'' THROUGH UP TO SIXTEEN DZ11'S
:THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC

;AND RUNS THE SPECIFIED DZ11°'S.
THIS ROUTINE sMUST+
;BE RUN FIRST BEFORE ENTERING THE DIAGNOST!I(C FOR THE
;SETUP NECESSARY.
;

011070
C11074
011076
011102
011104
011106
011114
011122
011124
011126
011132
011136
011144

011152
011154

011162

011164
011166
011172
011176
011202
011210
011216
011220
011226
011232
011236
011242
011250
011256
011262
011266
011272
011276
011302
011304
011312
011314
011320
011322
011324
011326
011330
011332
011334
011335

005737
001004
104402
000000
000776
013737
033737
001020
000241

001404

CYCLE:

010122
005234
001406

001226
001404

006137
005537
062737
022737

001406
001406
000014
002000

001412
001412

012737

001500

001412

000241
006137
005537
013700
062737
022737

001406
001406
001412
000014
002000

001355

000751

001003
012737
012037
012037
012037
113737
042737
012037
012037
012037
004737
005737
001051
032777
001445
104402
104403
010302
104405
000001
001000
001122
. 000
001

001500
001310
002072
027060
027061
100000
001364
001366
001370
026652
000042

000002
001237

1%:

TST
BNE
TYPE
HALT

SMXCNT,$TIMES
RUN,DZACTV
2%

:ARE ANY DZ11°'S TO BE TESTED?
;BR IF 0OK.
JNO DZ11°'S SELEC o.'’
;STOP THE SHOW.
:DISQUALIFY CONT. SW.
;RESTORE THE NUMBER OF ITERATIONS TO MAKE
;IS THIS ONE '‘ACTIVE''
;BR IF GOOD ONE FOUND.

ROL
ADC
ADD
cMP

RUN
RUN
#14 ACTIVE
#DZ.END,ACTIVE

:UPDATE POINTER
;CATCH CARRY FROM RUN
;UPDATE ADDRESS POINTER.
;HAVE WE PASSED THE END OF

MOV

#DZ .MAP ,ACTIVE

cLC
ROL
ADC
MOV
ADD
(MP

:KEEP LOOKING FOR ACTIVE DZ1

RUN
RUN
ACTIVE,RO
#1464 ACTIVE
#DZ .END ,ACTIVE

:UPDATE POINTER.
:CATCH CARRY.
:GET ADDRESS POINTER.
JUPDATE.

B8R
MOV
BI:
BNE
(LC

BNE

2s:

001412
001412
001412

001414
027060

167646
7%:

B8R

BNE
MOV
MOV
MOV
MOV
MOVB
BIC
MoV
MOV
MOV
JSR
TST
BNE
BIT
BEQ
TYPE
INSTR
MTSTN
PARAM
1
1000
TSTNM
BYTE
BYTE

DZACTV
1%
,MERR?

3s
#DZ .MAP ACTIVE
(RO) +,$BASE
(RO)+,DZRIV
(RO) +,DZPRT
DZPRT+1,EIAFLG
#B]IT15,DZPRT
(RO)+,LINE
(RQ) + ,PAR
(RO) +,MODE
PC.DZLEV
=Y 74
48
#SW01,aSwR
48
LSCRLF

0
1

THE MAP?

;IF NO, KEEP GOING: NOT ALL TESTED FOR.
;RESET ADDRESS POINTER.

;ALL DONE?
;BR IF NO.
;RESTORE POINTER.

;LOAD SYSTEM CTRL.
;LOAD VECTOR
;LOAD PRIORITY
;EIA OR 20MA

REG

;CLEAR FLAG
;SET UP LINE DZ LINES ACTIVE
;SET UP PARAMETER[ZATION
:SET UP MAINTENANCE MODE
JSET UP
JARE WE UNDER MON]ITOR CONTROL?
;IF YES, SKIP THIS SETUP
JIF SWO1=1, GET STARTING TEST #
;BR IF NO TEST IS TO BE INPUTTED
:CALL THE STRING INPUT ROUTINE
;POINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;HIGHEST LEGITIMATE VALUt OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED
:MASK OF INVALID BITS FOR THIS PARAMETER
NUMBER OF PARAMETERS TO STORE

(ZDZA-FQ
CZLZAF .P1N

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

011336
011342
011346
011350
011356
011360
011366
011370
011374
011402
011406
011410
011412
011416
011420
011424
0114626
011434
011434

MACY1]1

30A(1052)

26-NOV~79 11:03
012700
022710
001020
022760

26-NOV=79

11:06

012374

000004

5%:

012737

000002

001122

000004

001126
000002
00123

001126

(MP

000177

167466

SEQ 0058

#TST1,RO

#4, (RO)
63

63
SISTNH,&(RO)
6

;IS THIS THE TEST ?
21F NOT, DON'T PROCESS NUMBER

#2.3LPADR

;POP OVER SCOPE

RO.SLPADR

$CRLF

1ST

;SAVE

(RO)+
RO,#TLAST+10

5%
$QUES

001230

012374

#12737,2(R0O)

63%:

023002

012737

PAGE

POWER DOWN AND UP ROUTINES

001126

(%:
8%:

MOV

RESTART
: yMpP

#TST1,$LPADR

;PREPARE

a$LPADR

;GO START TESTING.***WARNING!
xxn+
JTHIS

TEST ADDRESS

JUMP

IS USED BY FWER UP ROUTINE

MACY1]1 3CA(1052)
26-NOV=79 11:03

(ZDZA-FO

CZDZAF P11

11:06

;

011440
011644
011450
011454

012700
013701
013702
042702

0037500
001310
001304

SEQ 0059

011460
011464
0114666

113703
106003
106003
106003
106003
106003
042703

001305

011470
011472
011474
011476
011502
011506
011512

011516

011520
011522

012704
013705
010537
006005

103407
001425
005724
062701

b —d

062702
000767
010120
010220
010320
013720
012420
100006

—

aed

052760
042760
005020
000754
012710
012737
000207

001320
001312
001404

1%:

2%:

000010
000010

3%:

001314

127777

001256

17777;
17777¢

001160

;POINT

TO THE

DEVICE MAP TABLE

;BUILD DEVICE ADDRESSES IM R1

MovB
RORB
RORG
RORB
RORB

SVECT1+41,R3

:LOAD THE INTERRUPT PRIOR!TY FROM R3
;JALIGN THE NUMBER

81C
MOV
MOV

#4(<7>,R3
#$DDWO
R4
$DEVM,RS
RS,DZACTV

RORB

177770

#D02 .MAP RO

ITS PARAMETERS FROM THE ETABLE.

$BASE ,R1
$VECT1,R2
n*C<?70>
,R2

MOV
MOV
BIC

177007

100000
100000

THE PROGRAM WILL LOAD

SETAPT: MOV

2709
2710
2711

MOV
ROR

BCS
BEQ
TST
ADD
ADD
BR
MOV
MOV
MOV
MOV
MOV
BPL
BIS
8I1C
CLR
B8R
MOV
MOV
RTS

;BUILD DEVICE VECTORS IN R2
;STRIP AWAY OTHER INFORMATION

JALIGN THE NUMBER
JALIGN THE NUMBER
JALIGN THE NUMBER

R1,(R0O)+
R2., (RO)+
R3,(RO)+
$CDOW1, (RO) +
(R4)+,(RO)+
43
#100000,-6(RO)
#100000,~2
(R0O)
+
(RO)

#-1,(R0O)
#$SWREG,
SWR
PC

;JALIGN THE NUMBER

;REMOVE ALL BUT BUS LEVEL NUMBER

;POINT

THE BEGINNING OF

J*NOTE:
L3
.

. &

. %

2716

PARAMETERS

;LOAD DEVICE ADDRESS
;LOAD THE VECTOR ADDRESS

JLOAD THE INTERRUPT PRIORITY LEVEL
;GET THE NUMBER OF LINES IN OPERATION
;LOAD DEVICE PARAMETERS
;1IF 20MA MODE SELECTED, SET IT UP
;SET THE 20MA FLAG IN DZLWN
;CLEAR THE FLAG IN DZPARN
DEFAULT OPERATION TO INTERNAL MAINTENANCE MODE
;GO BUILD THE NEXT ADDRESS
;TERMINATE THE DEVICE MAP
;SET TO SOFTWARE APT SWITCH REGISTER
JRETURN
TO PRINT STATUS TABLE

THE

CSR MAY BE ANY WHERE

AND

THE

ADDRESS RANGE

DEVICE

JGET THE MAP OF ACTIVE DEVICES
;SAVE THE BIT MAP
JGET A DEVICE SELECTION BIT
JIF IT 1S SELECTED, GO SET UP A MAP
;IF NO MORE ARE SELECTED, GET OUT OF SETUP
;POINT TO NEXT DEVICE DESCRIPTOR
;SET UP THE NEXT ADDRESS
;SET UP THE NEXT VECTOR GROUP
;GO SEE IF MORE DEVICES REMAIN

J*ROUTINE USED TO “‘AUTO SIZE'' THE DZ11
;*CSR _AND VECTOR.

2712
2713
2714
2715

[N THE

(160000:163700)

VECTOR MAY BE ANY WHERE

FLOATING VECTOR RANGE

(300:770)

FLOATING
IN THE

nNC O8N

Gur Grur ghurd
G

lolalelololele

—d
d —d
b —b —2

jw Qinr G

2717
2718
2719
2720
2721
2722
2723
2724

PAGE 60

POWER DOWN AND UP ROUTINES

;=ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT,
; IF BIT7 IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET,

lelelolololelola]la]

2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708

26=-NOV=79

000005

105337

012702
012703
005022
022702

AUTO.SIZE:

001415
001500
001320

002000

\RESET

CSRMAP:
1%:

DECB
MOV
MOV
CLR
(MP

INIFLG
#D7 .MAP ,R2
#$DDWO,R3
(R2)
+

#DZ.END,R2

2 INSURE A BUS INIT.
;SHOW THAT

WAS HERE

;LOAD MAP POINTER.
;POINT TO ETABLE DEVICE DESCRIPTCR WORDS
;sZERO ENTIRE MAP
JALL DONE?

MACY1]1 30A(1052)
26-NOV=79 11:03

(ZDZA-FO
CZDZAF .P1

2755

2756

2757
2758
2759

2760
2761
2762

NOORSENOONNOROONESOO

b
b
b
b
b
Db
b
b

ONNNNNNNNNNNNNNN
N

2746
2747
2748
2749
2750
2751
2752
2753
2754

PAmaoa—aad.iasaa33a3350

2743
2764
2745

2738
2739
2740
2741
2742

001374

105037

012702
012701
012737
052711
05276°
005000
005711
005300
001374
000463
032761
001457
032711
001454
005000
052711
032711
001446
032711
001404
104414
005200
001372
000437
005011
005061

010122
005722
012722
052761

032761
001003

052762
012722

2763

012712

2765
2766
2767
2768
2769
2770
277
2772
2773
2774

005022
012712
105237
122737
001405
062701
022701
001275

2764

2775
2776
2777
2778
2779
2780

160000

000004

000004
7%:

012223

000200

8$:

000020
000020
000020

BIS
BIS
CLR
ST
BM]

000004

1$
DINUM
#D7 .MAP ,R2
#160000,R1
ST

#BITS, (R1)
#MIT7.L(RT)
RO
(R1)
8s

;TRY
;TRY

TO SET MASTER SCAN ENABLE
TO TRANSMIT ON LINE 7

;HAS

TRANSMITTER READY

JUSE RO AS A COUNTER

COME

;IF SO, GO GET A FINAL CHECK
JREDUCE COUNT. TIME UP?
;IF NOT, KEEP WAITING
JASSUME IT'S NOT A D211

MOV

K1,(R2)+

MOV

#5,(R2)+

;STORE CSR iN CORE TABLE.
;POP OVER VECTOR STORE AREA
;SET THE DEFAULT BUS LEVEL

BIT
BNE

#177400.4(R1)
9%

sIF ANY SET ASSUME EIA BOARD
;IF NONE SET ASSUME BOARD IS

UP?

JIS LINF 7 ENABLE STILL SET? IT SHOULD BE
JIF IT'S NOT, ASSUME IT'S NOT A D211
;1S MASTER SCAN ENABLE STILL SET?

;IF NOT, ASSUME IT'S NOT A DZ11
;SET DEVICE CLEAR
;SHOULD STAY SET FOR A WHILE

JBR IF NOT DZ11
JWAIT FOR BIT

[F DZ

TO CLEAR

.BR WHEN CLEARED

;BIT NOT CLEARED! MUST NOT BE DZ11
;GET RID OF MASTER SCAN ENABLE
;GET RID OF LINE 7 ENABLE

;AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A D211 CSR ADDRESS.
TST

(R2)
+

100000

177776

BIS

#MIT15,-2(R2)

MOV

217470, (R2)

000004

98 :

MOV

MOV
CLR
MOV

INCB

001410

000010

163700

001410
001411
000001

;SET FOR FIRST ADDRESS TO BE TESTED
JSET FOR NON-EXISTENT DEVICE TIME OUT

RO
=12
3s
(R1)
4(R1)

BIS

113701
110137

JSET OCTAL NUMBER OF DZ11'S 10 0

INC
BNE
BR
CLR
CLR

000004

1777277
001410
000020

;BR IF NO

RO
78
3s
#MIT7.64(R1)
3
#BITS, (R1)
3$
RO
#20, (R1)
#20, (R1)
3
#20, (R1)
L4112

000005
177400
177400

000377
017470

SEQ 0060

DEC
BNE
BR
BIT
BEQ
BIT
BEQ
(LR
BIS
BIT
BEO
BIT
BEQ

DELAY

001410

012737
005301
001404

000004

000040

105737

001422

PAGE 61

BNE
CLRB
MOV
MOV
MOV

001410
001500

012174
000040
000200

11:06

POWER DOWN AND UP ROUTINES

100403

2730
2731
2732
2733
273%,
2735
273%
2737

—

2729

011636
011640
011644
011650
011654
011662

eololoeBRololeloleleBlelolelolalelolola

2725
2726
2727
2728

26-NOV=79

100%:

001404

4$:

#177400,4(R1)

#377,(R2)+

(R2)+, (R3) +
(R2)
+
#-1, (R2)
DINUM

;TRY

TO SET ALL DTR BITS

;20 MA, SET 20 MA FLAG
;SET THE DEFAULT LINE SELECTION PARAMETER
sSET THE DEFAULT PARAMETERS
; COPY PARAMETERS INTO ETABLE DESCRIPTOR
;SET THE DEFAULT MODE OF OPERATION
s TERMINATE LIST
;UPDATE DEVICE COUNTER
;ARE MAX. NO. OF DEV FOUND?
JYES DON'T LOOK FOR ANY MORE.

(MPB
BEQ
ADD

#20,DINUM
100$
#10,R1

BNE

;BR IF MORE ADDRESS TO CHECK.

DINUM

JWERE ANY DZ11'S FOUND AT ALL?

CMP

TSTB

#163700,r1

BEQ
MOVB
MOVB
MOV

13
DZNUM,R1
R1,SAVNUM
#1.DZACTV

BEQ

98$

DEC

;UPDATE (SR POINTER ADDRESS

;ERROR AUTO SIZER FOUND NO DZ11°'S IN THIS SYS.

; SAVE NUMBER OF DEVICES

(IDZA-FO
.P n
CZDZAF

Sihr G- Sihr Sihrgir gl

000261

[aS1aN T,V 1,8 1,8 1,81,8]1,9}

3DA(1052)

26-NOV=79

SEC

ROL

001310
001314
000004
001312

010122

010120
012721

022021
020127
101771
013704
000241

000340
012326
001500
000300
000302

2813
2816

2819
2821

2824

2826

012276
012304
012306
012310
012516
012320
012324

012326

012332
012340
012346
012350
012354
012372

2%:

MOV

B8R
TYPE
CLR
HALT
B8R
MOV
RT!

000004

000002

000014

000002
000002

;GO FIND THE VECTOR NOW.

;MAKE DATA DISPLAY ZERO

.MERR?

.=2

#3%,(SP)

JPOINT

TO THE ADDRESS OF

3%:
4%

FIRST DEVICE

;INDICATE TO ETABLE WHAT MODE IS BEING USED
JRESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER

JNOTIFY OPR THAT NO DZ11'S FOUND.
;STOP THE

SHOW

;DISABLE CONT.

SW.

JENTERED BY NON-EXISTENT TIME-OUT

JRETURN TO MAINSTREAM

#340,3#22
#eS ,an20
#D7 .MAP ,R?2
#300,R0
#302.R1
R1,(R0O)+
#6,(R1)+

DZACTV.,R4

;SET 10T TRAP PRIORITY TO 7
;SET 10T TRAP VECTOR
;SET SOFTWARE POINTER
;FLOATING VECTORS

JHAS THE VECTOR AREA BEEN EXCFEDED?
;BR IF MORE TO FILL
;STORE TEMPORARILY

#MIT7,4(R1)

JSET THE

RO2

STALL

JATTEMPT

TCR BIT!

TO FORCE

FOR TIME

INTERRUPT

#300,2(R2)

T21§~TERRUPT ASSUME

n14 R2

:POP SOF TWARE POINTER

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

;GET VECTOR ADDRESS

HERE.

JWITH . +2; 10T
JADD 2 TO RO +R1

;BRING OUT A BIT
:BR IF ALL CONE
:JERO CPU PRIO

START

;PC OF JOT INSTR.
;START FILLING VECTOR AREA

#BIT14+BITS,a(R2)
(R2) ,R1
;GET CSR

012316
001304
000020

SEQ 0061

DZCRO,$BASE
MANTO, $CDW1
46,86
DZACTV,SDEVM
VECMAP

000200

001502
004772

MOV

DZACTV
3

000000

162762

PAGE 62

(RO)+,(R1)+
R1,47000

040040

000002
000010
000007

000207

VECMAP:

18:

001404

000300

042762
022626
012716
000002
013737
012737

000022
000020

BR
MOV

MOV

001000

005200
001376
012762
000005
062702

000753
011662

99%:

6%:

000004

J00000
011201
112761

v¥8%:

5%:

012056
012737
012737
012702
012700
012701

11:06

POWER DOWN AND UP ROUTINES

001404
001500
001512
200006
001404

v Sl

Qs Ganyuer GunPunr Gur Punr

012122
elolalelololels)]

~
oo
~

2781
2782

MACY11

26-NOV-79 11:03

300 AND FIX DZ11

LATER

;KEEP GOING

#3$,(SP)

cPOINT BACK TO THE CORRECT VECTOR
;CLEAR JUNK
;POP 10T JUNK OFF STACK
;SET FOR RETURN

DZVCO,$VECT
56$COPE,IOTVEC

:COPY VECTOR OF FIRST DEVICE
:RESTORE THE SCOPE TRAP

SALL DONE WITH "“AUTO SIZING''

INTO ETABLE

(ZDZA-FOQ
CZDZAF .P11

MACY11 30A(1052)
26-NOV~79 11:03

26=NOV=79

11:06

CZDZA D211

2831
2832
2833

PAGE 63

DEVICE DIAGNOSTICS.

SEQ 0062

JanRnrnaanneensrenntnnans

TEST

]

wannnnennannnnanenctoeneneennne

;*THIS TEST PROVES THE SLAVE SYNC RESPONSE
;*DURING A READ OR WRITE TO THE FOLLOWING ADDRESS:

RPN

rss§'1

DZCSR, DIZRBUF,

D2TCR,

DIMSR

:'"tti"tt"ttfi"'t.'fi't"'t"fi‘ttti'."'fi 2322232223222 3 XX RN

012374
012376
012404
012412
012420
012426
012434
012440
012442
012444
012446
012450
012456
012462
012464
012466
012470
012472
012500
012504
012506
012510
012512
012514
012522
012526
012530
012532
012534
012536
012544
012550
012552
012554
012556
012560
012562

000001
012564
012552
000340
012434
002042

001122
001360
000004
000006
001362

TST1:

SCOPE

MOV

#1,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

2584

*SET

MOV

1%:

MOV
MOV
MOV

MOV

NOP

012456
002046

001362

#2% .1 0CK

"8%

(RO) ,R1

MOV

000006
000006

001362

*SET ADDncSS

TO TEST

‘WASTE

TIME

*WASTE

TIME

‘WRITE

THE ADDRESS

“SET RETURN ADDRESS FOR SWO9

*SET ADDRESS TO TEST
*READ

THE ADDRESS

#38,L0CK
DZTCR.RO
(RO) ,R1

“SET RETURN ADDRESS FOR SW09
*SET ADDRESS TO TEST
*READ THE ADDRESS

chg

“WASTE

TIME

(RO)

:WRITE

THE ADDRESS

MOV

#4$,10CK

:SET RETURN ADDRESS

cbg

(RO)

MOV
zgg

ADVANCE

MOV
CMP
ERROR
SCOP1
JMP

DZMSR RO
(RO) ,R1

26,4

(SP) ,R1
(SP)+,(SP)+
1
(R1)

TEST

*READ THE ADDRESS

MOV
MOV
ngg

?fx

“SET PRIORITY TO LEVEL
*SET RETIRN IF SW09=11

“WRITE THE ADDRESS

000004

THE NEXT

TRAP VECTOR

(RO)

48:

DZRBUF ,RO

*POINT TO THE START OF

CLR

012522
002062

(RO) ,R1

MOV

NOP

DZCSR,RO

(RO)

012500
002056

#PR7 6
#18,(0CK

CLR

NOP

#TST2 NEXT

*SET ADDRESS TO TEST
*READ FROM ADDRESS

:WRITE THE ADDRESS
M

“SET

TRAP CATCHER BACK

TO NORMAL

*SCOPE THIS TEST

*SAVE PC OF TRAP
*POP TRAP OFF STACK
**NO SLAVE SYNC RESPONSE.
LSWN9=1?
RTI

JARNARRRFARARRANANRARKRAR

TEST

aanaa

a et

A e A NN AN RO ANRY

;*THIS TEST PROVES THAT BIT 'DCLR"’
;:x

;~CAN BE SET AND THAT IT WILL CLEAR
:*BY ITSELF AFTER A PERIOD OF TIME.

TEST 2

""t""fl'.*fi**fi"'***'*"*'t""*.‘*t‘fifi'fi".."..fi.t'*"i."'.".'fl

000004
012737
012737
013700
012705

010510

000002
012650
002042
000020

001122
001360

T1S72:

SCOPE

MOV
MOV

#2,8TSTNM
#TST3 NEXT

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXY TEST

MOV

#DCLR RS

;SET DCLR

MOV

DZCSR,R0O

RS, (RO)

JSET POINTER

*WRITE DCLR INTO DZCSR

CIDZA-FO
CZDZAF .P1

MACY11 30A(1052)
26-NOV=-79 11:03

26=-NOV=79
11:06 PAGE 64
CZDZA DZ11 DEVICE DIAGNOSTICS.

2887
2888
2889
2890
2891
2892
2893
28%%
2895
2896
2897
2898
2899

012614
012616
012620
012622

011004
020504
001601
104002

012624
012626
012630
012632
012634
012636

005002
005005
005003
011004
001405
005203

2900
2901

012640

BNE

2902
2903
2904

012642

001374

012644
012646
012650

001372
104002

BNE
ERROR

2905

1%:
2%:

3%:

2913
2916
2915
2916
2917

012650
012652
012660
012666
012672

2919
2920
2921
2922
2923
2926
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936

012700
012702
012704
012706
012710
012712
012714
012716
012720
012722
012724
012726
012730
012732
012734
012736
012740
012742

2918

2937

2938
2939
2940
2941
2942

012676

000004
012737
012737
013700
012705

010510

011004
020504
001401
104002
040510
011004
001404
010546
005005
104002
012605
010510
104413
011004
001402
005005
104002

000003
012742
002042
000010

001122
001360

TST3:

1%:

’%:

;THE COUNTER

239

DEC

2912

SEQ 0063

MOV
(RO) R4
JREAD BACK DZ(CSR
(MP
R5,R4
;DZCSR 0K?
BEQ
13
JIF IT IS SET SKIP THE ERROR CALL
ERROR
2
;*DCLR SHOULD BE SET..MOMENTARILY
JNOW LETS WATCH IT DISAPPEAR
CLR
R2
JSET COUNTER TO O
CLR
RS
JSET EXPECTED TO O
(LR
R3
;sDUAL LOOP COUNTER
MOV
(RO) R4
;1S DCLR CLEAR?
BEQ
33
;IF YES , GO TO THE NEXT TEST
INC
R3
;IF NO,COUNT 1 OF 65535 TICKS
. THE WORD CREATED BY THE IMMEDIATE O WILL BE

005302

2906
2907
2908
2909
2910
2911

JHAS THE TIME EXPIRED? [F NO, GO TEST BIT AGAIN

JHAS THE TOTAL TIME EXPIRED?

pd 3
P

cIF NO, CHECK THE BIT AGAIN
c*DCLR FAILED TO CLEAR

JREREARRAARANRARENAAARtan

TEST

aannnnanannnnanennnanenanannans

J*«TEST TO VERIFY THAT BIT 'MAINT'' CAN
;*«BE SET. THEN VERIFY THAT BIT 'MAINT'' (AN
;*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
J*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;*CLEARED BY A 'DEVICE CLEAR'
TEST 3
AR

ARA AN

SCOPE
MOV
MOV
MOV
MOV

A A AR AN AR AN A AN RN

#3,$TSTNM
#TSTL NEXT
DZCSR,RO
MMAINT RS
MOV
RS, (RO)
MOV
(RO) R4
CMP
RS ,R4
BEQ
1%
ERROR
P4
BIC
RS, (RO)
MOV
(RO) R4
BEQ
2%
MOV
RS,-(SP)
CLR
RS
ERROR
2
MOV
(SP)+ ,R5
MOV
RS, (RO)
DEVICE.CLR
MOV
(RO) R4

BEQ
CLR
ERROR

3%
RS
2

A NN ARKANR A ANA NN

;LOAD THE NUMBER OF THIS TEST
;POINT TO THE START OF THE NEXT TEST
.GET BASE ADDRESS
;SET BIT
JSET SET IN DEVICE
JREAD THE BIT FROM DEVICE
JWAS BIT SET?
;BR IF YES
;*BIT R/W FAILURE
;CLEAR THE BIT.
JREAD DEVICE
;BR IF BITS WERE CLEARED.
;SAVE THE BIT
JSET EXPECTED RESULTS TO0 O
;*BIT FAILED TO CLEAR
JRESTORE THE BIT.
;SET THE BIT AGAIN
;ISSUE DEVICE CLEAR
JREAD THE BIT.

;BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
JSET EXPECTED TO ZERO
;*BIT NOT CLEARED BY DEVICE CLEAR

JENERRAAARAARARANCRAARANRE

TEST

SAnananaaatanantatnanantnennnne

J*TEST TO VERIFY THAT BIT "MSENAB'' CAN
J*BE SET. THEN VERIFY THAT BIT 'MSENAB’'' CAN
;*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
J*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;*CLEARED BY A 'DEVICE CLEAR'

MACY11 30A(1052)
26=NOV-79 11:03

CIDZA-FO
CZDZAF P11

m 5
11:06
PAGE 65
CZDZA DZ11 DEVICE DIAGNOSTICS.

26-NOV=79
;i

TEST 4

NN R

012742
012744
012752
012760
012764
012770
012772
012774
012776
013000
013002
013004
013006
013010
013012
013014
013016
013020

000004
013034
002042
000040

001122
001360

TST4:

2%:

013022
013024
013026
013030
013032
013034

R AR

R R AR AR AR

SCOPE

MOV

#6,8TSTNM

tmMP

RS .,R4

MOV
MOV
MOV
MOV
MOV

1%:

SEQ 0064

8EQ
ERROR
B8IC
MOV
BEQ
MOV
CLR
- ERROR
MOV

MOov

PN A AR R A A R A AR

RN ARAN RN

;LOAD THE NUMBER OF THIS TEST

#TSTS NEXT
DZCSR,RO
#MSENAB RS
RS, (RO)
(RO) R4

JPOINT TO THE START OF THE NEXT TEST
;GET BASE ADCRESS
JSET BIT
JSET SET IN DEVICE
JREAD THE BIT FROM DEVICE

1%
2
RS, (RO)
(RO) R4
23
R5,-(SP)
RS
P
(SP) + RS

JBR IF YES
;*BIT R/W FAILURE
;CLEAR THE BIT.
;READ DEVICE
cBR IF BITS WERE CLEARED.

JWAS BIT SET?

;SAVE

THE BIT

JSET EXPECTED RESULTS TO O
;+BIT FAILED TO CLEAR
JRESTORE THE BIT.
JSET THE BIT AGAIN

RS, (RO)

DEVICE.CLR
MOV
(RO) ,R4
BEQ
38
(LR
R5

ERROR

R A NN AN AN RN N AN

. ISSUE DEVICE CLEAR
;READ THE BIT.
¢BR IF BIT CLEARED BY INIT
JSET EXPECTED TO ZERO

(DEVICE CLEAR)

;*BIT NOT CLEARED BY DEVICE CLEAR

JNRRARNARAREAR
AR
nnnss

TEST

CARRRRRRRARARARARRARARARRR
RN

J*TEST TO VERIFY THAT BIT 'SILOEN''
(AN
J*BE SET. THEN VERIFY THAT BIT ''SILOEN'' CAN

;*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
;*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;:x
IR

000005

013126
002042
010000

001122
001360

TST5:

:*CLEARED BY A ‘DEVICE CLEAR'

TEST S

A AR AR R AR R R

SCOPE

NOO&NO&
NN
= —=d bt =2

pur Qhr-Qhur
G Purd

2%:

AR AR AN RA NN AR R RAN NN NN NNAANRANRANAR

#5,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

DZ2CSR.RO

;GET BASE ADDRESS

#TSTE NEXT

MOV
MOV
MOV
tMP
BEQ
ERROR

#SILOEN.RS
RS, (RO)
(RO) R4
RS.R4
13
2

MOV
BEQ

(RO) ,R4
’$

BIC

MOV

R AR A

MOV

1%:

AN R A AN

RS, (RO)

R5.,-(SP)

CLR
RS
ERROR
P
MOV
(SP) + RS
MOV
RS, (RO)
DEVICE.CLR
MOV
(RO) ,R4
BEQ
33
CLR
RS

;POINT TO THE START OF

THE NEXT TEST

JSET BIT
cSET SET IN DEVICE
JREAD THE BIT FROM DEVICE
JWAS BIT SET?
;BR IF YES
;*BIT R/W FAILURE
;CLEAR THE BIT.

JREAD DEVICE
;BR IF BITS WERE CLEARED.

;SAVE THE BIT

JSET EXPECTED RESULTS TO O
,*BIT FAILED TO CLEAR
JRESTORE THE BIT.
JSET THE BIT AGAIN
s ISSUE DEVICE CLEAR
JREAD THE BIT.
;BR IF BIT CLEARED BY INIT (DEVICE
JSET EXPECTED TO ZERO

CLEAR)

CZDZA-FO
CZDZAF P11

2999
3000

3001

0131246
013126

MACY11 30A(1052)
26-NOV=~79 11:03

N 5
26-NOV=79
11:06 PAGE 66
CZDZA D211 DEVICE DIAGNOSTICS.

104002

3%:

3002
3003
3004
3005
3006
3007

J:*

3008

3009
3010
3011
3012

3013
3014
3015

013126
013130
013136
013144

3017
3018

013150
013154
013156
013160
013162
013164

3020
3021
3022
3023
30246
3025
3026
3027
3028
3029
3030
3031
3032

013170
013172
013174
013176
013200
013202
013204
013206
013210
013212
013214
013216
013220

3016

3019

2033

013166

000004
012737
012737
013700

012705
010510
011004

000006
013220
002042
000100

001122
001360

020504
001401
104002

040510

1%:

011004
001404
010546
005005
104002
012605
010510
104413
011004
001402
005005
104002

2%:

3%:

3034
3035
3036
3037
2038
3039

2040

013220
013222
013230
013236
013242
013246

000004
012737
012737
013700
012705
010510

3048
3049
3050
3051
3052
3053

01}252
0132564
013256
013260
013262
013264

020504
(01401
104002
040510
011004
001404

3054

013250

013266

000007
013312
002042
040000

001122
001360

TST7:

011004

010546

TEST 6

wnnntanannannntrrnratrtntanen

;*TEST TO VERIFY THAT BIT 'RIE'' CAN
;*E SET. THEN VERIFY THAT BIT 'RIE'' CAN
J*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
J*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;*CLEARED BY A 'DEVICE CLEAR''
TEST 6
AN RN AR AN AN RN AN C

SCOPE
MOV
MOV
MOV

MOV
MOV
MOV
CTMMP
8EQ
ERROR
BIC

R AN AR AN AN A RANARAANNANANANANANARNARRNR
AR

#6,$TSTNM
;LOAD THE NUMBER OF THIS TEST
#1ST7 NEXT
JPOINT TO THE START OF THE NEXT TEST
DZCSR,RO
;GET BASE ADDRESS
#RIE,RS ;SET BIT
RS, (RO)
JSET SET IN DEVICE
(RO) R4
sREAD THE BIT FROM DEVICE

RS ,R4
19
2

JWAS BIT SET?
;BR ]F YES
;*BIT R/W FAILURE

RS, (RO)

;CLEAR THE BIT.

MOV
(RO) R4
BEQ
’$
MOV
RS,=(SP)
CLR
RS
ERROR
2
MOV
(SP)+ ,RS
MOV
RS, (RO)
DEVICE.CLR
MOV
(RO) R4
BEQ
33
CLR
RS
ERROR
P4

;READ DEVICE
;BR [F BITS WERE CLEARED.
;SAVE THE BIT
JSET EXPECTED RESULTS TO O
;*BIT FAILED TO CLEAR
JRESTORE THE BIT.
;SET THE BIT AGAIN
;ISSUE DEVICE CLEAR
;READ THE BIT.
;BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
JSET EXPECTED TO ZERO
;*BIT NOT CLEARED BY DEVICE CLEAR

INERRRNRANRARAAAANARLIANREN

TEST

ANt n AR A A N AR AN R AN AR AN

;*TEST TO VERIFY THAY BIT "TIE'' CAN
;*BE SET. THEN VERIFY THAT BIT 'TIE'' CAN
;*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
;*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
s*CLEARED BY A 'DEVICE CLEAR''
TEST 7
R NN NN

N RN A RR AR AR ARARRAANRANRNANNNN
RN

SCOPE
MOV
MOV
MOV
MOV
MOV

#7.8STSTNM
;LOAD THE NUMBER OF THIS TEST
#TST10,NEXT
JPOINT TO THE START OF THE NEXT TEST
DZCSR,RO
;GET BASE ADDRESS
NTIE,RS ;SET BIT
RS, (RO)
JSET SET IN DEVICE

(MP
BEQ
ERROR
BIC
MOV
BEQ

RS,R4
1%
2
RS, (RO)
(R0O) ,R4
2%

MOV
1%:

;«B]T NOT CLEARED BY DEVICE CLEAR

JRNRRNRRAARRNRERENRRRANARY

NN AR A AR RN R

3041
3042
3043
3044
3045
3046

3047

TST6:

ERROR

SEQ 0065

MOV

(R) R4

RS, -(SP)

*READ THE BIT FROM DEVICE

JWAS BIT SET?
;BR IF YES
;*BIT R/W FAILURE
;CLEAR THE BIT.
JREAD DEVICE
;BR IF BITS WERE CLEARED.

“SAVE THE BIT

CIDZA-FO
CZDZAF P

MACY11

30A(1 052)

26-NOV-79 11:0 3

26-NOV=79 11:06 PAGE 67
CZDZA D211 DEVICE DIAGNOSTICS.

013270
013272
013274
013276
013300
013302
013304
013306
013310
013312

RS
2

:SET EXPECTED RESULTS
:«BIT FAILED TO CLEAR

MOV

RS, (RO)

“SET THE BIT AGAIN

MOV
BEQ
CLR
ERROR

(RO) ,R4
38
RS
2

*READ THE BIT.
S8R IF BIT CLEARED BY INIT (DEVICE CLEAR)
*SET EXPECTED TO 2ERO
:«81T NOT CLEARED BY DEVICE CLEAR

(SP)+ K5

*1SSUE DEVICE CLEAR

Jrensnnnananenecnecanennn

s*THIS TESTS

.0 0

:RESTORE THE BIT.

DEVICE.CLR

b3 ¥

SEQ 0066

CLR
ERROR

MOV

2s:

THAT ALL OF

TEST

ancnnaenncenncncncannennnnnnee

THE FOLLOWING

;*BITS CAN BE: SET, CLEARED, CLEARED BY 'DEVICF CLEAR '’

s*BITS TESTED ARE:
:* TCRO, TCR1, TCR2,
Test 10

TCR3,

TCR4,

TCRS,

TCR6,

T(R?7

""t'.QQQ.t..Q.'.l".t""'t"..tt..'t.tfi."'t'.'.Q'Q'Q.t.t"tt‘t'

013312
013314
013322
013330
013334
013340
013346
013350
013352
013356

000010
013450
002056
000001
013346

001122
001360

TST10:

18:

177400

ey RERRRRRRR
ROSH ’Exasohbfihohfifld

Gaurd
G
Qer Qheur Qanr Pur Gur Qanr
e

2929

CEEEEEER
IRIRFREC2E
o

AN AN AN AN

e
b
!
e
h
il
d

AN AN N AN AN AN

177400

BEQ
ERROR
BIC
MOV

28
2
RS, (RO)
(RO) ,R4

BEQ
MOV
CLR
ERROR
MOV

(RO)

*POINT TO THE START OF
SSET DEVICE ADDRESS
“SET EXPECTED RESULTS
“SET FOR Sw09

RS.R&4

‘WAS BIT OK?

#~c<877> R4

*CLEAR HIGH BYTE

3¢
RS, =(SP)
RS
2
(SP)+ RS

‘BR IF YES
+«BIT FAILED TO SET.
*CLEAR THE BIT
*READ THE REGISTER
‘BITS

CLEAR?

‘BR IF YES
*SAVE GOOD RESULTS
$SET EXPECTED TO 0
*«REPORT GIT NOT CLEAR
*RESTORE RS

RS, (R)

8IC

#~C<$77> R4

BEQ

‘BR IF

RS
2
(SP) +,RS

*SET EXPECTED 1O 0
*«REPORT BIT NOT CLEAR
*RESTORE RS

DEVICE.CLR
MOV
(RO)

CLR
ERROR
MOV
SCOP?

RS, =-(SP)

ASLB
BNE
CLR

RS
1%
LOCK

c*THIS

TESTS THAT ALL OF

THE NEXT TEST

SREAD THE BIT FROM THE DEVICE
SCLEAR HIGH BYTE

MOV

001362

SSET THE BIT

(RO) R4
#~C<877>.R4

TST

RS,

MOV
BIC

MOV

TST

;LOAD THE NUMBER OF THIS TEST

#TST11 NEXT
0ZTCR.RO
#TCRO RS
#1$ . L0CK

8IC

177400

#10,8TSTNM

MOV
MOV
MOV
MOV

cTMP

28:

013410

SCOPE

MOV

SSET THE BIT AGAIN.

*ISSUE DEVICE CLEAR
*READ THE REGISTER

“CLEAR HIGH BYTE
:BITS CLEAR?

YES

*SAVE GOOD KESULTS
*LOCK ON BI.?

SET

Sw09=1

*CHANGE TO NEXT BIT
*CONTINUE TESTING
*MAKE SURE TIGHT LOOP IS CLEANED UP

Janannnnnnnnnreanntnrnnen

TEST

THE

enennntanesnnannnnannnnanenene

FOLLOWING

;*RITS CAN BE: SET, CLEARED, CLEARED BY 'RESET INSTR «NOT+ DEVICE CLEAR °°
J*BITS TESTED ARE:

;% DTRO, DTR1, DTR2, DTR3, DTR4, DTRS,

000011

85>ggrow>8pAuNAgpnxpnu~
(LR
VLSY@ Rele
- RNTo
JV,P JVII,N}

) el wd e

)

N AN AN N AN AN N NN

i
b
)
)

AAAAAAAAA AL LAALAAAMAALAAARR

1$T11:

13632

002056
000400
013514
001414

SCOPE

MOV
MOV
MOV
MOV
MOV

#11,$TSTNM
ATST12, NEXT
DZTCR,RO
#DTRO RS
#18,L0CK

8PL

1ST8

18:

AD vANCE

2%:

RS, (RO)
(RO) ,R4

TM
BEQ
ERROR
8IC
MOV
CLR8B

R5,R4
2%
2
RS, (RO)
(RO) ,R4
R&

TST

3s:

006305
001347
012710
005005
005227
001375
000005
011004

A ¥

177400

000000

005704
001401

104002

BEQ
MOV
CLR
ERROR
MOV
MOV

MOV
CLR
INC
BNE

#177400, (RO)
RS
#0
5%

MOV
CLRB

(RO) ,R4
R4

TST
BEQ

001362

33
RS,-(SP)
RS
2
(SP)+,R5
RS, (RO)
DEVICE.CLR
MOV
(RO) ,R4
Ré
CLRB
BIT
RS, (RO)
BNE
48
ERROR
2
SCoP1
ASL
RS
18
BNE

RESET

105004

005037

5%:

EIAFLG

MOV
MOV

CLRB

104002
104401

—

SEQ 0067

DTR6, DTR?

rssfl?ls TEST 1S NOT DONE 1F MODULE IS SOMA VERSION

3139

AN AN AN AN AN N

cC
6
11:06
26-NOV=79
PAGE 68
CZDZA D211 DEVICE DIAGNOSTICS.

—b

MACY1T 30A(1 gSZ)
26-NOV=79 11:0

}ghflsfifl’!UflcLNZ%XHU”J%HUFUHJNNUE;—‘4-‘—“‘-‘—‘—‘
ENT.
NVD
Nt
¢
O
NN WA
=
D0~
N & iny

AN LA U

— ed e

)

N L

ol e

L U U

d e

)

D o

) ud e

N N N N N N N N N N N NN N N W

C2ZDZA-FO
CZDZAF .PIN

ERROR

Ré
.t

AR d ARl
Rl ))

;LOAD THE NUMBER OF THIS TEST
;POINT TO THE START OF THE NEXT TEST
;SET DEVICE ADDRESS
JSET EXPECTED RESULTS

;SET FOR SWO9
J20MA OR EJA
JBR IF EIA
SEXIT TEST

:SET THE BIT
JREAD THE BIT FROM THE DEVICE
;CLEAR LOW BYTE
JWAS BIT 0K?
;BR IF YES
;*BIT FAILED TO SET.
CLEAR THE BIT
JREAD THE REGISTER
JCLEAR LOW BYTE
;BITS CLEAR?
JBR IF YES
;SAVE GOOD RESULTS

JSET EXPECTED TO O
s*REPORT BIT NOT CLEAR

;RESTORE RS

;SET THE BIT AGAIN.
;ISSUE DEVICE CLEAR

;READ THE REGISTER
JCLEAR LOW BYTE
JWAS BIT CLEARED BY DEVICE.CLR?
JBR IF NO (IT SHOULDN'T BE CLEAR)
:+8]T CLEARED BY DEVICE.CLR
JLOCK ON BIT? SW09=1
;CHANGE TO NEXT BIT
;1F NOT DONE LOOP
sSET ALL DTR BITS
;CLEAR LOCATION FOR ERROR PRINTOUT
;ACT DELAY LOOP FOR
JRESET INSTRUCTION
;ISSUE A BUS INIT
JREAD REGISTER
;CLEAR LOW BYTE
;DTR BITS CLEAR?
;IF YES CONTINUE
;IF NO PRINT FRROR
sMAKE SURE TIoHT LOOP IS CLEANED UP

CLR

LOCK

J*THIS

TEST PERFORMS RESET

JRrRnsRRannrarrenennnannn

TEST

anennnvnnnnncannesnnennnsnnanes

TESTING &

s*TESTING OF WRITE ONLY OR READ ONLY BIT

.+ TEST BITS "RDONE, BIT11, BIT10, BIT9, BIT8, BIT?2, BITI
J*
BITO, SILOAL"TM ARE READ ONLY AND THAT TRDY IS
ot
ZERO UNTIL A LINE IS SELECTED AND MSENAB [S SET.
bR

[

CZD0ZA-FOQ

CZDZAF P11

MACY11 30A(1052)

26-NOV=-79 11:03

26=NOV=79

3167

3169
3172

3173
3176
3175
3176
3177
3178
3179

3180
3181
3182
3183
3186
3185
3186

sie

013632

013634
013642

01350
013654
013656

013662
013664
013666
013670

013674
013676
013700
013702
013706
013712
013720

0137264
013730
013732
013734

3193
3194

013742
013744

3195
3196

3197

TEST

SEQ 0068

.‘"'.'l'...'.'..'.'.""""".."'Q..'.'.Q..'...'..."..'t..."'.

3187
3188
3189
3190
3191
3192

PAGE 69

CZDZA D211 DEVICE DIAGNOSTICS.

3168

3170
3171

11:06

013736
0137640

013746
013750

000004

012737
012737

013700
005005
012710

011004
001401
104002
012710

011004
001401
104002
012705
005077
052777
052710

052705
005002
011004
020504

000012
0137506

002042

001122
001360

TST12:

SCOPE

MOV
MOV
MOV

#12,8TSTNM
#TSTI13 NEXT

;LOAD THE NUMBER OF THIS TEST
cPOINT TO THE START OF THE NEXT TEST

(RO) ,R4
4 3
2
#TRDY RS
aDZLPR
#TCRO,aDZT(CR
MSENAB, (RO)

JREAD TRLY
;BR IF NOT SET
i
JSET EXPECTED BIT
;LOAD LINE O
;SET TCR BIT
.

:BR IF YES
JSTALL TIME

027607

CLR
MOV

100000

1%:

MOV
BEQ
ERROR
MOV

DZCSR,RO
;SET ADDRESS TO RO
R5
JSET EXPECTED T0 O
#RDONE+BIT11+8IT10+81T9+8]T8+BIT2+BIT1+81T0+SILOAL,
(RO)
;WRITE THE BITS
(RO) R4
JREAD BACK THE BITS
18
JBR IF NONE ARE SET.
2
;*BITS WERE SET.
#TRDY, (RO)
SATTEMPT TO WRITE TRDY

100000
166140
000001
000040
000040

28:

BIS
CLR
MOV
MP

#MSENAB RS
R2
(RO) R4
RS .R4

INC
BNE
ERROR

R2
33

MOV
BEQ
ERROR
MOV
(LR
8IS
8IS

166136

3%:

001404
104414

BEQ
DELAY

005202
001372

104002

;SET SCAN ENABLE
;SET COUNTER TO 2ERO
;READ THE REGISTER
;BIT SET?
;UPDATE COUNTER
;BR IF COUNTER NOT DONE.

;*TRDY NOT SET!

Jurnaneannnnnantennavnnnt

TEST

annnnnnnsannnnenenannrcavrantnr

3198

;*THIS TEST PERFORMS RESET TESTING AND

2200
3201
3202
3203
3204

% IN REGISTER DZI(SR
J*VERIFY THAT °“‘TIE'", "SILOEN'’, 'RIE'’, 'MSENAB'’, ‘MAINT''
c*ARE THE ONLY R/W BITS IN THE DIZCSR.
J*THEN VERIFY THAT A RESET WILL CLEAR THESE BITS
;%THIS TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR

3199

;*TESTING OF READ ONLY AND WRITE ONLY BITS

3205

;:x

3206

3207

013750

000004

3208
3209
3210
3211
3212
3213
14

013752
013760
013766
013770
013774
014000
0164004

012737
012737
104413
013700
012710
012705
011004

3216
3217
3218
3219
3220

014010
014012
014014
0164016
014020

001401
104002
105010
105005
011004

3222

014024

3215

3221

014006

014022

000013
014100

001122
001360

TST13:

002042
177757
050150

020405

020405
0016407

TEST 13

AR AR RN R AN A RN AR

1%:

RN AN AR R AN N RN AN AR A AN RN RN RANA AN RNRAARNRRER

SCOPE

MOV
#13,$TSTNM
sLOAD THE NUMBER OF THIS TEST
MOV
#TST14 NEXT
;POINT TO THE START OF THE NEXT TEST
DEVICE.CLR
MOV
DZCSR,RO
;SET UP FOR ERROR MESSAGE
MOV
#2C<DCLR>,(RO)
;TRY TO WRITE
MOV
HTIE'SILOEN'RIE !MSENAB'MAINT ,RS ;MAKE EXPECTED
MOV
(RO) ,R4
ACTUAL

CMP

R4 RS

:CMP EXPECTED VS ACTUAL

CMP

R4 ,R5

:COMPARE ACTUAL TO EXPECTED

BEQ
ERROR
CLRB
CLRB
MOV
BEQ

1%
2
(RO)
RS
(RO) ,R4
33

S YES
2 *NO
;CLEAR LOWER BYTE OF CSR
JSET EXPECTED
JREAD (SR BITS
;BRANCH IF SAME

(ZDZA-FO
CZDZAF .P11

3223
3224
3225
3226
3227
3228

014026
014030
014034
014040

014044
014046
014050
014052
014054
014060
014062
014066
014070
014072
014074
014076

MACY11

30A{10S2)

26-NOV-79 11:03
104002

012710

105077

012705

E
6
26-NOV=79
11:06 PAGE 70
C20ZA DZ11 DEVICE DIAGMUSTICS.

177757
166004
000150

ERROR
MOV

2
#*C<DCLR>,(RO)

;OTHERWISE PRINT ERROR
,RESET (SR BITS

MOV

(RO)

JREAD (SR

CLRB
MOV

011004

4%:

000000

5%:

R4 RS

ERROR

MOV

(SR

;SET RS TO EXPECTED RESULTS

;ACTUAL = EXPECTED?

JBRANCH [F

#*C<DCLR>,(RO)

SAME

;OTHERWISE PRINTOUT ERROR
RESET (SR BITS

CLR
INC

RS
#0

JSET RS TO EXPECTED RESULTS
;DELAY TIMER FOR

RESETY
MOV
BEQ
ERROR

(RO) R4
23

;ISSUE BUS INIT
JREAD CSR REGISTER
JBRANCH IF CSR IS CLEAR
sIF NOT PRINT ERROR

BNE

014100

aHDZCSR
;CLEAR HIGH BYTE OF
#RIE !MSENAB!MAINT
RS

BEQ

177757

SEQ 0069

JACT=11 COMPATIBILITY

JNNNRRARRANARRRRRNNRRRR
Ry

JEST

R R

J*THIS TEST PERFORMS RESET TESTINC AND
L*TESTING OF READ ONLY REGISTER DZRBUF
Tfsi‘?ro TESTING OF WRITE ONLY REGISTER DZLPR
cox

000004
012737
012737

104413
01370y

011005
012777
011004
042705
020405
001401

:'"ttttttt'ttQttttttttt't'tttttttttt.t.ttt'ttttttttQtttttttfittfittt
000014
014170

001122
001360

177777

0146166
014170

165716

104000

#146,3TSTNM
#TSTI1S NEXT

;LOAD THE NUMBER OF THIS TEST
cPOINT TO THE START OF THE NIrxT TEST

cMP

R4 RS

;CMP ACTUAL VS EXPECTED

MOV

R4 ,R3

.GET A COPY OF

8EQ
ERROR

1%:

165672

104002

SCOPE

MOV
MOV

DEVICE.CLR
;CLEAR DZM
MOV
DZRBUF RO
JSET UP FCR ERROR ME SAGE
MOV
(RO) ,RS
JSET EXPECTED
MOV
#-1,aDZLPR
;TRY TO WRITE ALL 1°'S
MOv
(RO) R4
sACTLAL
BIC
#DVALID'BIT11,RS ;DITTO

002046

104002

010403
005103
010377
011004
020405
001401

TST14:

(oM
MOV
MOV
WP

R3
R3,aDZLPR
(RO) R4
R4 RS

ERROR

BEQ

1%
2

;IF YES,GO CONTINUE PROCESSING
.*ERROR- BIT PATTERN NOT CORRECT
ACTUAL BI~TM

JGET THE LOGICAL INVERSE OF
cTRY TO WRITE
cACTUAL
;CMP ACTUAL VS EXPECTED

Pt 3

PATTERN

HE BIT PATTERN

cIF YES, GET OQUT OF THIS TES®
2 *NO

seantngkrnnnsrnnnennnntnns

J*THIS

THE

TEST PERFORMS RESET

TEST

anannnnnnennnennanenentnantensnn

TESTING AND

J*TESTING OF READ ONLY REGISTER DZMSR

TES%*?QD

TESTING OF

WRITE ONLY REGISTER DZTDR

--'

014170
014172
014200
014206
014210
014214

:;t-ttt-tntttattttttttot"tt'-t-tt-tttntttttttttntt-attnnttn---tn
000004
012737
012737
104413
013700
011005

000015
014254

002062

001122
001360

TST15:

SCOPE

MOV

#15,8TSTNM

MOV

(RO,
RS

MOV
HTST16,NEXT
DEVICE.CLR
MOV
DZMSR,RO

;LOAD THE NUMBER OF THIS TEST

JPOINT TO THE START OF THE NEXT TEST
JCLEAR DZMN
,SET UP FOR ERROR MESSAGE

:SET EXPECTED

CZDZA~fO
CZDZAF .P1

3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291

014216
014224
014226
014230
014232
014234
014236
014240
014244
014246
014250
014252
0146254

MACY11 30A(1052)
26-NOV-79 11:03

012777
011004
020405
00101

177777

11:06 PAGE 71
26-NOV-79
C2DZA DZ11 DEVICE DIAGNOSTICS.
165642

104002

010403
005103
010377
011204
020405
001401

MOV

#-1,aD2TDR

ERROR
MOV
(oM
MOV
MOV

2
R(,R3
R>
R3,aDZ2TDR
(RO) R&

MOV
) o
B8EQ
1%:

165622

104002

BEQ
ERROR

2%:

(RO)C?Q
R4 ,F>5
19

R4 ,RS
2%
2

SEQ 0070
JTRY

TO WRITE

ALL

1°'S

s ACTUAL
;CMP ACTUAL VS EXPECTED
JIF YES,GO CONTINUE PROCESSING

;*ERROR- BIT PATTERN NOT CORRECT
JGET A (OPY OF THE ACTUAL BIT PATTERN

;GET THE LOGICAL
;TRY TO WRITE
;ACTUAL

INVERSE OF

THE BIT PATTERN

SCMP ACTUAL VS EXPECTED
;IF YES, GET OUT OF
. *NO

JNRRRARRR
AR kAt nkranrnanhn

TEST

THIS TEST

annennvnannenonnnnvarnnonnnnnsn

;*VERIFY THAT IF WE ARE [N '‘STAGGERED'' MODE
J*THAT SETTING 'DTR'' FOR A LINE WILL

J*BRING UP "RING'' AND ''CARRIER’'' FOR THE
;*ASSOCIATED LINE [N WHICH WE ARE STAGGERED'

;v
;v
:*
;*

LINEO
LINEY
LINEZ2
LINE3

. %

3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327

014254
014256
014264
014272
014300
014304
014306
014310
014314
014316
014320
014324
014330
014332
014340
014344
014350
014352
014354
014356
014360

000016
014450
014344
001414

001122
001360
001362

J:x

TEST

A AR R

TST16:

164562

001364

AR AN R AT AN

A AT RN A AN RAANNANRNR A NAANARNNRANNANNIANA
AN R

MOV
MOV

#16,3TSTNM
#TST17 NEXT

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

TST8

EIAFLG

;EIA OR 20MA?

#18,L0CK

108

10%:

ADVANCE
MOV

DZMSR,RO

TST

MODE

1%:

aMl
MOV
JMP
BIT8B

001126

2%:

DEVICE.CLR
CLR
R3
MOV
#1 ,R2

BNE
INC

ASLB

8(CC
000001

SCOPE

MOV

000001
001370

001360

LINE1 RING AND CARRIER
LINEQ RING AND CARRIER
LINE3 RING AND CARRIER
LI?$C4 RING AND CARRIER

8PL

002062

DTR=
DTR=
DTR=
DTR=

ADVANCE

5%:

THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED

;BR IF EIA

JEXIT TEST
;SET REGISTER

JINIT D211
;ZERO LINE NUMBER
JSET POINTER
JARE WE

IN STAGGERED MODE?

1%
NEXT,$LPADR
aSLPADR
R2.LINE

JYES WE ARE!
;LEAVE THIS TEST!
SJEXIT
JTEST THIS LINE?

;GET NEXT LINE

3s
R3

JKEEP TESTING
;ADVANCE

THIS

R2,R4
#MIT0,R3
43

;

JSET EXPECTED

ASL

CLR

NOT STAGGERED

;YES
JLINE #

MOV
8IT
8EQ
ASR

JUSE

TEST

;SAVE BINARY BIT FOR LINE #
;GET STAGGERED COMPANION L INE
;BR IF LINE EVEN
;ADJUST LINE

JADJUST LINE

CIDZA-FO
CIDZAF P11

MACY1] 30A(1052)
26-NOV=79 11:03

3335 -016402
3336 014404
3337 014406
3338 0164410
3339 0146414
3340 014416
3341
(014420
3342
014422
3343 014424

150405
000305
150405
150277
104414
011004
020504
001401
104002

3345
3346
3347
3348
3349
3350
%%2;

011004
001402
005005
104002
104600
000761

3364

014426
014432

014434
014436
014440
014442
014444
014446

1460277
104414

G 6
26-NOV-79
11:06 PAGE 7?2
cIDZA DZ11 DEVICE DIAGNOSTICS.

81S8
SWAB
8158
BIS8
DELAY
MOV
cMP

165444

165426

BEQ
ERROR

6% :

BICB
DELAY

MOV
BEQ
CLR
ERROR
SCOP1
BR

7%:

R4 RS
RS
R4 RS
R2,aHDZTCR
(RO) ,R4
RS,R4
6$
2

RZ2,aHDZTCR
«( 3),R4
’$
RS
2
2%

SEQ 0071

;
;
;
;SET DIR
;CABLE DELAY
;READ MSR REGISTER
J0K?

JYES
;*ERROR IN RING OR CARRIER

;CLEAR DTR
;CABLE DELAY

;READ MSR
;BR IF THEY CLEARED
;SET EXPECTED TO O
;*BITS NOT CLEARED
JLOCK ON SIGNAL?
;CONTINUE TEST

3353

JRNRRRRnRRnrnnsanntrnnttn

3354
3355
3356
3357
3358
3359
3360
3361

s*TEST TO VERIFY THAT IF IN "EXTERNAL''
;*MODE; SETTING DTR FOR SELECTED LINES
;*WILL BRING UP '‘CARRIER'® AND 'RING''
;*FOR THAT SAME LINE. NOTE: IF YOU HAVE
;*SELECTED MODE AS "EXTERNAL''; THE H325 TEST CONNECTLR
;*MUST BE USED ON ALL SPECIFIED LINES.
;*LINES MAY BE SPECIFIED BY SWR03=1
;*AND SWR00=1 AT START TIME OR ALTERING

3362

3363

;:v

2364

3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378

014450
014452
014460
014466
014474
014500
014502
014504
014510
014512
014516
014522
014526
014530

000004
012737
012737
012737
105737
100401
104400
105737
100774
013700
012702
130237
001003
106302

3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390

014534
014536
014540
014542
014544
014546
0714552
014554
014556
014560
014562

104400
005005
150205
00030¢
15020
150277
104414
011004
020504
001401
104002

3379

014532

000017
014606
014522
001370

001122
001360
001362

1%:
2%:

002062
000001
0013564

3%:

103373

5%:

165306

aannnnnnncnnnannennnnnannnaenn

1 «STATUS MAP.

TEST 17

AR R AR R AR R RN N AR R AN R R R RN N AR A AR RN AR RN RARARANNNRNR RN NN RN

TST17:

001414

TEST

SCOPE
MOV
MOV
MOV
TSTB
BMI]
ADVANCE
1ST8
BMI
MOV
MOV
BITB
BNE
ASLB
BCC

ADVANCE
CLR
81SB
SWAB
BIS8
BISB
DELAY
MOV
CMP
BEQ
ERROR

417 ,$TSTNM
#TST20,NEXT
#3%,10CK
MODE
2%
EIAFLG
1$
DZMSR RO
#1.R2
RZ.LINE
5%
R2
3s

RS
RZ.R5
RS
R2.R5
R2,aHDZTCR

(RO) ,R4
R5,R6
6s
2

A NS

;LOAD THE NUMBER OF THIS TEST
;POINT TO THE START OF THE NEXT TEST
;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED
JEXTERNAL?
;BR IF YES
JEXIT TEST
;YOU BETTER BE IN
;EIA MODE FOR THIS TEST.
;SET REGISTER
;SET LINE POINTER
sLINE SELECTED?
;BR IF YES
JNEXT LINE
;CONTINUE

TEST

;ADVANCE THIS TEST
;SET EXPECTED
;
;
:
;SET DIR
:CABLE DELAY
JREAD MSR
;BITS 0OK?
;BR IF YES
;CARRIER OR RING ERROR

CIDZA-FOQ
CZDZAF .PIN

3391
3392
3393
3394
3395
3396
3397
3358

MACY11

30A(1052)

140277

165270

26-NOV=-79 11:03

016564
014570
014572
014574
014576

104414

11:06
PAGE 73
26=-NOV-79
CZDZA D211 DEVICE DIAGNOSTICS.

6%:

BI(B

DELAY
MOV

7%:

SEQ 0072

R2,aHDZT(R

:CLEAR DTR

(RO) R4

.CABLE DELAY
;READ MSR

CLR
ERROR

RS
2

;CLEAR EXPECTED LOC.
JBITS NOT CLEARED.

B8EQ

014600
014602
014604

SCOP1

;BR IF BITS (LEARED
;LOCK ON LINE?

JCONTINUE TEST

JERRNRRANRANRRCRRRNRERRan

THIS

TEST

VERIFIES

THAT

TEST

TRDY

reannnnnrannnnAn
e AN TR AT T ANRS

SET WHEN A L INE

;% IS READY TO Bt LOADED, AND THAT THE LINE SPECI-

;* FIED IN BITS 8-10 OF DZCSR CORRESPOND

;:x

;% TO THE
TEST 20

R gy RRRR LR
LTI
RIRIR
SRNRINN FR@IGARARS

3409

3420

014606
014610
014616

014624
014626
014632
014636
014642
014646

014652
014654

014660
014664
014666
014672
014674
014676
014700
014702
014704
014706
014710
014712
014714
01472Q
014722
014726
014730
014732

000004
012737
012737
104413
013700
012705
005037
012702
130237
001420
050277
052710
005004
032710
001004

000020
014732

001122
001360

TST20:

1%:

165176
000040

2%:

100000

3%:

104414

104002

MOV

100040

A RN

4%:

001372
68

A N

AR AN RAANAANAAN AR

;LOAD THE NUMBER OF THIS TEST

DZCSR.,RO

JSET POINTER

sPOINT TO THE START OF THE NEXT
;ISSUE A "DEVICE CLEAR'' (RESET)

CLR

;SET FOR DELAY

:DELAY
;COUNTER

BIS
BIT
BNE

ERROR

MOV

MP
B8EQ
ERROR

TR AN

#20,8TSTNMTM

#MSENAB!TRDY
,RS
SAVLIN
#1,R2
R2.LINE
5%
R2,aDZTCR

B8NE

000400

IN DZTCR

MOV
(LR
MOV
BITB
BEQ
8IS

DELAY
INC

005204
001372
104003
011004
020405
001401

062705
104413
005237
106302
103346

AR A A AR AR N

SCOPE

SELECTED

MOV
#TST21 NEXT
DEVICE.CLR

002042
001372
006001
001364

LINE

#MMSENAB, (R0O)
#TRDY, (RO)
TM 3

3%
3

(RO) ,R4

R4 RS
5%
2

ADD
#400,RS
DEVICE.CLR
INC
SAVLIN
ASLB
R2
BCC
1%

TEST

;START THE EXPECTED LINE NUMBER AT O
cSET UP FOR ERROR PRINTOUTS
JUSING R2 AS A BIT POINTER, POINT TO LINE O
;1S THIS LINE SELECTED?
;IF NO, SKIP THE STARTUP
cSET THE GO BIT FOR THIS LINE

;START THE SCANNER

;TX READY?
;BR IF YES

;BR IF <>0!

;*TX NOT READY!

JGET

THE LINE POINTED

TO BY

THE

SCANNER

;IS THE LINE NUMBER WHAT [T SHOULD BE”
;IF YES,GO WORK ON THE NEXT LINE
;*LINE NUMBER DID NOT MAT(CH T(CR BIT

;POINT TO THE NEXT EXPECTED LINE
JISSUE A "DEVICE CLEAR'® (RESET)
;ADJUST FOR NEXT LINE
JPOINT TO THE NEXT LINE.ARE ALL LINES TESTED?
JIF NOT, GO DO THE NEXT LINE

JERRRRRARARANE
AR antnnnn

TEST

sussansnnsnanansnentnavannenany

;*TEST TO TRANSMIT ONE CHAR AND
;*RECEIVE ONE (CHAR ON ONE L INE
.*AT A TIME. THE CHAR IS '252'" AND
s*ALL SELECTED LINES WILL BE TURNED ON
J*ONE AT A TIME. THIS IS THE FIRST TIME ANY
;*DATA IS CHECKED IN THE RECEIVER.
;*USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP

;*WHICH TRANSMITS A STEADY
TEST 21

STREAM OF

(HARA(CTERS.

".‘tfitt'itttttifitittti'ttt"itttitt!tttttlfilitfitt‘ttl.fi.t'fi!ttit't

MACY11

C(ZDZA-FO
CIDZAF .PI

26~-NOV=-79 11:03

014732
014734
014742
014750
014756
014760
014764
014770
014774
014776

015002
015004
015006
015010
015014
015020
015026
015032
015034
015040
015046
015050

015052
015054
015062
015064
015066
015070
015072
015074

000004

012737
012737
012737

104417
013701
012702

030237
001402
010177
005201

106302
103370
005037
012702
052777
030237
001462
010277
032777
001401
104020

000021
015270
015246

11:06
PAGE 74
(ZDZA D211 DEVICE DIAGNOSTICS.

001122
001360
001362

001366
000001
001364

TST21:

SCOPE
MOV
MOV

MCvV

1%:

165050

001372
000001
000040
001364

26-NOV-79

2%:

DCLASM
MOV
MOV

165014

3%:

165016
000200

164774

¥
A

100000

164760

5%:
6%:

MOV
BIS
BIT
BEQ
MOV
BIT
BEQ
ERROR

#1,R2
#MSENAB ,aDZ(CSR
R2,LINE
148
R2,aDZTCR
#RDONE ,aDZCSR
5%
20

MOV
INC
ASLB

001372

7%:

SAVLIN

CLR

BNE

BIT

INCB

164764

#16%,L0(K

BC~

BIT
BEQ

DELAY

000252

#21,8TSTNM
HTST22 NEXT
PAR,R1
#1,R2
R2.LINE
2%
R1,aDZLPR
R1
R2
1%

CLR

001371

.LOAD THE NUMBER OF THIS TEST
;sPOINT TO THE START OF THE NEXT TEST
cUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED
;CLEAR DEVICE AND SET MAINT BIT IF | MODE
;PICK UP PARAMETERS
JPICK UP INIT POINTER
JSSOULD THIS LINE BE SET UP ?
JSET UP LINE PARAMETERS
JPOSITION POINTER

TSTR

MODE +1

3
#252,3DZTDR
SAVL IN,RS
108

b
D
o
b

l\NOgNOO J\NbN&NgOJ\NOOJ\

b —D

NIMNONIN)
= —
W

b
od
o

8%:

b
b
—
b

9%:
10%:

000252

100000

[0,Y0 JVALV IV, P ¥

ek
d
e

—

b —h
—d
b
D
) wed ——d
b
)

VIV IV IV IV IV IV IV IV IV 1V

b
b —d
b
d
d cod
b

IV IV IV IV VIV IV

)
—

(VI

ASR
BCS

RS
8%

B8R

SEC

000200

164656

001401

104006

164670

11%:

CLC
ROL

SWAB
BISB
8IS
CLR

RS
#252,RS
#DVALID.RS
R3

INC
BNE
ERROR
MOV
cMP
BEQ
ERROR

R3
11%
&

BIT
BNE
DELAY

THE NEXT

LINE

JGOT 'EM ALL ?
;IF NO, GO SET UP THE NEXT LINE
;sCLEAR LINE # INDICATOR

sJLINE POINTER
s START SCANNER
JVALID LINE ?
JNO SET UP NEXT LINE
cSET TCR BIT
;IS REC DONE = 0 ?
;IF YES, ALLOW TIME FOR TRDY TO SET
O
;*REC DONE SHOUL"

BEQ

SEQ 0073

#TRDY ,aDZCSR

8NE

ERROR
movs
MOV

;*TRDY FAILED TO SET!
;LOAD CHARACTER
sMAKE EXPECTED LINE #
;1S THIS TEST IN STAGGERED MODE?
;IF NOT, SKIP STAGGERED SETUP

;WE MUST NOW INVERT THE LAST BIT OF
olelelelalelelelaleolololololololololele

34647

30A(1052)

THE LINE NUMBER

;GET THE LAST BIT INTO THE CARRY BIT
JIF IT IS SET, GO CLEAR IT
JIF IT IS CLEAR SET IT HERE
sSKIP THE CLEARING
;CLEAR THE CARRY BIT (INVERSION OF LINE PARITY?
;GET THE NEW BIT BACK INTO RS
;JMOVE THE LINE NUMBER TO THE UPPER BYTE
sADD CHARA(CTER
;ADD DATA VALID

#RDONE ,aDZ(SR
12%

aDZRBUF
R4
R4 RS

138
6

;*RDONE FAILED TO SET.
;LOAD THE VALUE ACTUALLY RECEIVED
;COMPARE ACTUAL VS EXPECTED. ARE THEY THE
;IF YES, GO DO THE NEXT LINE
.*NO DATA/CONTENTS DID NOT COMPARE

SAME?

CZDZA-FO
CZDZAF P11

3503
3504
3505

3506
3507
3508
3509
3510
3511
3512
3513
3514
3515

3516
%g}g

015176
015200
015204

015210
01%214
015216
015220
015222
015226
015226
015230
015232
015240

015242
015244

MACY11 30A(1052)
26=-NOV=79 11:03

104401
040277
005237

013700
006300
106302
103302
005003
104414
105203
001375
032777
001601

J
6
26~-NOV=79
11:06 PAGE 75
CZDZA DZ11 DEVILE DIAGNOSTICS.
13%:
14%:
15%:

164652
001372

001372

17%:
000200

164602

104020
104400

%g}g

3521
3522
3523
3524
gggg

015246
015254
015256
015264
015266

032777
001774
112777
104401
000744

100000

164566

000252

164602

SCOP1
8IC
INC

MOV
ASL
ASLB
8(C(
CLR
DELAY
INCB
B8NE
BIT
BEQ

JCHECK TO SEE IF SWITCH NINE IS SET
;CLEAR TCR BIT FOR THAT LINE.
JINC EXPECTED LINE
JSET UP (HARACTER OFFSET
;MAKE THE OFFSET A POWER OF TWO
JSHIFT THE LINE POINTER. ARE WE ALL DONE~

R2,aDZTCR
SAVLIN

SAVLIN,RO
RO
R2
3%
R3
R3
17%
#RDONE ,aDZCSR
18$%
20

18%:

ERROR
ADVANCE

;TIGHT

SCOPE LOOP FOR

16$%:

BIT
8tQ
MOVB
SCOP1
BR

THIS

;IF NO, GO AROUND AGAIN FOR NEXT LINE
;THIS CODE HAS BEEN INSERTED
.TO DETECT A PROBLEM FOUND IN FAULT
;INSERTION. IF AN ERROR OCCURS MORE
;THAN ONE WORD WAS RECIEVED ON
;LINE 7.
:GO TO NEXT TEST

TEST.

#TRDY ,aDZCSR
16$
#252,3DZTDR
14%

SEQ 0074

LOOP TRANSMITS CHARACTERS ONLY

;1S TRANSMITTER READY?
LIF NOT, WAIT FOR T
;LOAD THE (CHARACTER
;LOOP AGIN IF SW09=1
JOTHERWISE, GO PICK UP THE TEST NORMALLY

3527

JRRRRNARRANANRAACRRARANAR

3528

3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558

015270
015272
015300
015306
015314
015316
015322
015326
015332
015334
015340
015342
015344
015346
015352
015356
015360
015364
015366
015370
015376
015402
015610
015414
015416

000004
012737
012737
012737
104417
013701
012702
030237
001402
010177
005201
106302
103370
005037
012700
005020
022700
001374
005000
013737
012702
052777
030237
001465
010277

000022
015616
015422

001122
001360
001362

001366
000001
001364

164512

001372
001422

001462
002046
000001
000040
001364
164434

001400
164432

TECT

THIS TEST PROVES THAT THE

Ao nanaaaananaaa
A n e v vttt nen

TRANSMITTER TRANSMITS

;*CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE)
;«(ONE LINE AT A TIME
BASED UPON VALID LINES)
;*THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED
;i
TEST 22
IR R AR AR AR RN AR AR R AR AN AN AR R AN AR AN ANANA NN RN AR RAANARRNR
TST22:
SCOPE
MOV
#22,8TSTNM
;LOAD THE NUMBER OF THIS TEST
MOV
HTST23 NEXT
;POINT TO THE START OF THE NEXT TEST
MOV
#4681 0CK
JUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED
DCLASM
;CLEAR DEVICE AND SET MAINT BIT IF | MODE
MOV
PAR ,R1
JPICK UP PARAMETERS
MOV
# ,R2
;PICK UP INIT POINTER
1%:
8IT
R2.LINE
;SHOULD THIS LINE BE SET LP ?
BEQ
’3
;NO
Mov
R1,aDZLPR
cSET UP LINE PARAMETERS
2%:
INC
R1
JPOSITION POINTER TO THE NEXT LINE
ASLB
R2
;GOT "EM ALL ?
B8C(C
19
JIF NO, GO SET UP THE NEXT LINE
CLR
SAVLIN
JCLEAR LINE # INDICATOR
MOV
#TD0,RO
JPOINT TO THE DATA AREA
CLR
(RO) +
;CLEAR A DATA WORD
(MP
#STOP,RO
;FINISHED ?
FANE
.=6
;NO
(LR
RO
JCLEAR OFFSET
MOV
DZRBUF ,REGIST
;SAVE FOR ERROR M5G
MOV
# _,R2
JLINE POINTER
BIS
MMSENAB,aDZCSR
;START SCANNER
3%:
BiT
R2,LINE
JVALID LINE ?
BEQ
149
JNO SET UP NEXT LINE
MOV
R2,aDZT(R
JSET TCR BIT

CIDZA-FO
CZDZAF .P11
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
gg;g

015422
015430
015632
015434
015436
015444
0156446
015450
015452
015454
015456
015464
015470
015474

MACY11 30A(1052)
26=-NOV=-79 11:03
032777
001401
104020
005005
032777
001004
104414
105205
001371
104003
116077
013705
105737
001406

K
6
26-NOV-79
11:06 PAGE 76
CZDZA DZ11 DEVICE DIAGNOSTICS.

000200

164412

4$:

100000

164376

5%:
6%:

001422
001372
001371

164407

7%:

%g;g

015476
015500
015502
015504
015506
015510
015512

006205
103402
000261
000401
000241
006105
000305

015526

032777

647
2288
2589
X590
3591
3,92
3573
3%
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
%ggg

015514
015520
015524

01553
015536
015%0
015542
015544
015546
015552
015554
015556
015560
015562
015566
015570
015574
015600
015604
015606
015610
015612

156005
052705
005003
001004
104414
005203
001371
104004
017704
020405
001601
104006
104401
105260
001315
040277
005237
013700
006300
106302
103277
005037

8%:
9%:
108:

001422
100000
000200

164274

001422
164262
001372
001372

164306

11%:

12%:

13
14%:
15%:

001362

3607

3608

3609
3610
3611
3612
3613
3614

#RDONE ,aD?CSR
5%
20
RS
#TRDY ,aDZ(CSR
78
RS
6%
3
TDO(RO) ,aDZTDR
SAVLIN,RS

MODE +1
108

JWE MUST NOW INVERT

3576
3577
3578
3579
3580
3581
3582

3583
3584
26T

BIT
BEQ
ERROR
CLR
BIT
BNE
DELAY
INCB
BNE
ERROR
MOvB
MOV
TST8
BEQ

ASR
8(S
SEC
BR
CLC
ROL
SWAS
BISB
BIS
CLR
BIT

BNE
DELAY
INC
BNE
ERROR
MOV
CMP
BEQ
ERROR
SCOP1
INCB
BNE
8IC
INC
MOV
ASL
ASLB
8C(C
CLR

;IS REC DONE = 0 ?
JIF YES, ALLOW TIME tOR TRDY TO SET
J*REC DONE SHOULD = 0

s*TRDY FAILED TO SET.
;LOAD (HARA(TER
JMAKE EXPECTED LINE #

;IS THIS TEST IN STAGGERED MODE.
;IF NOT, SKIP STAGGERED SETUP

THE LAST BIT OF

RS
8%
9%

RS
RS
TDO(RO) ,RS
#DVALID,RS
k3

SEQ 0075

LINE NUMBER

;GET THE LAST BIT INTO THE CARRY BIT
JIF IT IS SET, GO CLEAR 17
JIF IT IS CLEAR SET [T HERE
;SKIP THE CLEARING
cCLEAR THE CARRY BIT (INVERS'ON OF LINE PARITY)
JGET THE NEW BIT BACK INTO RS
JMOVE THE LINE NUMBER TO THE UPPER BYTE
;ADD CHARACTER
;ADD DATA VALID

#RDONE ,aDZ (SR

12%

118
4
aDZRBUF R4

R4 RS
138
6

TDO(RO)
43
R2,aDZTCR
SAVLIN
SAVLIN,RO
RO
R2
3
LOCK

;*RDONE FAILED TO SET!
;LOAD THE VALUE ACTUALLY RECEIVED

;sCOMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME?
;IF YES, GO DO THE NEXT LINE
;*NO DATA/CONTENTS DID NOT COMPARE
sCHECK TO SEE IF SWITCH NINE IS SET
. INCREMENT BINARY PATTERN FOR THIS LINE
;GO 'ROUND AGAIN FOR NEXT CHARACTER
;CLEAR TCR BIT FOR THAT LINE.
JINC EXPECTED LINE
sSET UP (CHARACTER OFFSET
JMAKE THE OFFSET A POWER OF TWO
JSHIFT THE LINE POINTER. ARE WE ALL DONE?
;1F NO, GO AROUND AGAIN FOR NEXT LINE
JMAKE SURE LOCK IS CLEAR FOR NEXT

JERRANARRNAACARRARRAANRNSY

THE

TEST

Attt

aaaaaaa

s*xTHIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN
;*BE DISABLED BY SETTING THE RCVON BIT TO 7ERO
;*FOR EACH LINE IN THE LPR REGISTER.
IT ALSO
s*VERIFIES THAT MASTER CLEAR WILL ZERO DVALID FOR
: *CHARACTERS STORED IN THE SILO.
TEST 23

TEST

A et vt v e nennnn

(IDZA-FO
CZDZAF .P11

3675

3616

3617

MACY11 30A(1052)
26=NOV=79 11:03

6
L
26=NOV=79 11:06 PAGE 77
CZDZA D211 DEVICE DIAGNOSTICS.
WA

015616
015620
015626
015634
015640

000004
012737
012737
105037

005027
104417

013701

00002 3
01615 8
00142
001372

0011 22
00136 0

001366
010000
000001

78123:

1%:

2%:

164164

SCOPE
MOV
MOV
CLRB
CLR
DCLASM
MOV
BIC
MOV
MOV
INC

ARl

#23,8TSTNM
W#TST24 NEXT
DONFLG
SAVLIN
PAR ,R1
#RCVON,R1
#1,R2
R1,aDZLPR

ASLB

BCC
MOV
MOV

000252
001364

164146

000040

164116

164102

000001
177770

MOV

164124

4$:

5%:

20%:
21s:
164064

164056

6%:

164036

7%:

8%:
164006

001372

010437

177770
001372

MOV
BIC

BEQ

zgSENAB,QDZCSR

aDZCSR
5%
RS
48

aHDZCSR,RS
#1,R3
#*C<7>
RS
218
R3
RS
20%
R3,R2
6%
R3,aDZTCR

001420

163776

BIS
CLR
TST
BMI]
DELAY
INC
BNE
ERROR
MOVB

10%:

DONFLG
12%
73
R1,aDZTDR

R3.R2
33

aDZT(R
R5

RS
8%
aDZCSR
108
SAVLIN

aDZRBUF ,R4
118
R4

#*(C<7> ,R4
R&,SAVLIN

SEQ 0076
0t 22382322002

;LOAD THE NUMBER OF THIS TEST
JPOINT

TO THE

START OF

THE NEXT

JINITIALIZE FOR FIRST TEST LOOP
;ZERO LINE NO. FOR ERROR REPORT
JEXECUTE MASTER CLEAR
:STORE DEFAULT PARAMETERS
;CLEAR RCVON BIT
JINIT LINE POINTER
;LOAD LINE PARAMETER REGISTER
;SET R1 FOR NEXT LINE
JSHIFT R2 TO NEXT LINE
JALL LINES LOADED?
;LOAD TRANSMITTING CHARACTER
;COPY ACTIVE LINE BITS
.LOAD TCR BITS
. SET SCANNER
JINIT DELAY COUNTER
;TRDY SET?
;IF YES BRANCH

TEST

JIF NOT THEN WA]T

- INCREMENT DELAY COUNTER
;DELAY DONE?
.IF YES TRDY FAILED TO SET
;MOVE LINE NO. INTO RS
JINIT TCR POINTER
cISOLATE LINE NO.

JIF LINE O GO TEST TRANSM. FLAG
JPOINT R3 TO NEXT T(CR BIT
;DECREMENT RS UNTIL R3 POINTS
;TO CORRECT TCR BAT
JHAS THIS LINE BEEN SERVICED?

;IF
;IF
;1F
JIF
;IF

NOT GO SEND CHARACTER
YES CLEAR TCR BIT
MORE LINES SET BRANCH
ALL LOADED IS THIS SECOND PASS
YES BRANCH TO SECOND PART OF TEST

JOTHERWISE CONTINUE WITH FIRST PART
;TRANSMIT CHARACTER
;CLEAR FLAG FOR THIS LINE
;GO WAIT FOR NEXT LINE
;CLEAR TCR BITS
;CLEAR DELAY COUNTER
;WAIT FOR LAST CHARACTER
s INCREMENT DELAY COUNTER
;IF NOT FINISHED CONTINUE WAITING
;RDONE BIT SET?
;IF NO CONTINUE
JIF YES SET LINE NO. TO ZERO
;AND PRINT ERROR

JREAD SILO

;IF DVALID IS ZERO BRANCH
JIF SET THEN
; ISOLATE LINE NO. IN R4
;SET SAVLIN FOR ERROR REPQRT

CZDZA-FO
CIDZAF P11

3671
3672
3673
3676
3675
3676
3677
3678
3679

3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
ggg;

016064
016066
016070
016074
016100
016102
016104
016106
016110

016112
016114
016116
016120
016124
016126
016132
016134
016140
016142
016146
016150

MACY11 30A(1052)
26-NOV~79 11:03

104017
000766
105237
013701
000666
005005
104414
005205
001375

104413
000240
000240
105777
100003
005037
104020
017704
100003
005037
104017

m 6
26-NOV=79
11:06 PAGE 78
C2ZDZA DZ11 DEVICE DIAGNOSTICS.

001420
001366

ERROR
B8R
INCB
MOV
B8R
CLR
DELAY
INC
BNE

11$:
12%:
13%:

RS
13%
DEVICE.CLR
NOP
NOP
1S18
aDZ(CSR
8PL
148
CLR
SAVLIN
ERROR
20
MOV
aDZRBUF R4
B8PL
15%
CLR
SAVLIN
ERROR
17

163716
001372

163706

17
108
DONFLG
PAR,R1
1
RS

14%:

001372
15%:

SEQ 0077

;DATA VALID SHOULD NOT BE SET
GO READ SILO AGAIN
JPREPARE FOR SECOND PART OF TEST
;MOVE DEFAULT PARAMETERS TO R1
;GO LOAD LR REGTSTER
JINIT DELAY (v
ER
;WAIT FOR LAST (nARA(CTER
;TO BE RECEIVED
;DELAY FINISHED?
;IF YES EXECUTE MASTER (LEAR

;RDONE SET?
;s IF NOT BRANCH
JIF YES THEN PRINT OUT
;REPORT
JREAD SILO
;DATA VALID SET?
cIF YES THEN PRINT 0OUT
.ERROR REPORT

2693

JRRRANARRARAARAARNAANNNNR

3694
3695
3696

J*THIS TEST WILL PROVE THAT:
;% 1) THE TRANSMITTER 'BREAK BIT'' WORKS
;% 2) THE RECEIVER CAN FLAG 'FRAMING ERRORS''

3697
3698
3699
3700

3701

s:x

3702

3703
37046
3705
3706
3707
3708
3709
3710
3711
3712

3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3726
3725
3726

016220
016224
016226
016232
016234
016236
016240
016244
016250
016256
016264
016270
016272
016276

000004
012737
012737
012737
005737
001510
104417
013701
052701
012700

030037
001402
010177
005201
106300
103370
005037
012702
052777
013737
030237
001446
010277
110277

000024
016426
016264
001370

001122
001360
001362

001366
000300
000001

001364

163620

001372
000001
000040
002046
001364

163560
163566

TST24:

1%:
2%:

163564
001400

3s:

aanananaa
e da aaaaa ot A a e v
nnn

;* 3) THE RECEIVER CAN FLAG 'PARITY ERRORS''
s*ONLY ONE LINE AT A TIME WILL BE EXERCISED.
J*THIS TEST WILL NOT BE
EXERCISED UNLESS
;*CONNECTED BY AN H325, H3271, OR H3190 CONNECTOR
TEST 24

JIRRARARARR AR

016150
016152
016160
016166
016174
016200
016202
016204
016210
016214

TEST 24

SCOPE
MOV
MOV
MOV
TST
BEQ
DCLASM
MOV
8IS
MOV

BIT
8EQ
MOV
INC
ASLB
8CC(
(LR
MOV
BIS
MOV
BIT
BEQ
MOV
MOVB

AR RN AR

RN A AN R RAR R AR

AR AR RA AR NANAANA NN ANR AR

#2464 ,STSTNM
#TST25 ,NEXT
#38,L0CK
MODE
12%

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST
;SET FOR LOOP
;ARE WE RUNNING IN INTERNAL MODE?
JIF SO, SKIP THIS TEST
JCLEAR DEVICE AND SET MAINT BIT IF 1 MODE
PAR ,R1
;PICK UP PARAMETERS
#ODDPAR'PARITY,R1 :FORCE ODD PARITY
#1,R0O
JPICK UP INIT POINTER

RO, L INE
23
R1,aDZLPR
R1
RO
1¢
SAVLIN
M R2
#MSENAB ,aDZCSR
DZRBUF ,REGIST
R2,LINE
1%
R2.aDZT(R
R2,aHDZTOR

;SHOULD THIS LINE BE SET UP ?
JIF NOT,DON'T SET IT UP
;OTHERWISE, SET UP LINE PARAMETERS

;GOT 'EM ALL ?
;NO
JCLEAR LINE #
sLINE POINTER
;SET MASTER SCAN ENABLE
;SAVE FOR ERRR MESSAGE

JSET TCR BIT
;SET BREAK BIT

CIZDZA-FO
CZDZAF .PY

3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739

016302
016310
016314
016320

MACY11 30A(1052)
26-NOV-79 11:03

112777
013705
105737
0014006

163556

4$:

Mov8e
MOV
75718
BEQ

#377,aD2TOR
SAVL IN,RS
MODE +1
7%

6
SEQ 0078

;LOAD CHARACTER
;MAKE EXPECTED DATA
;1S THIS TEST IN STAGGERED MODE?
;IF NOT, SKIP STAGGERED SETUP

JWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
016322

006205

ASR

B(CS

103402

5%:

130000

3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763

000200

163466

B8R

(3 1

;SKIP THE CLEARING

ROL

CLC

#RDONE ,aDZCSR
9%

001372
163440

11%:

001362

12%:

113777

001372
027060
001364

BNE
ERROR
MOV
cMP
BEQ
ERROR
CLRB
SCoP1
INC
8IC
ASLB
8CC
CLR

SAVLIN
R2.,aDZTCR
R2
3s
LOCK

;MAKE SURE LOCK IS CLEAR FOR NEXT TEST

aHDZTDR

TEST 25
AR

R AN AN AN RN AN AR

;CLEAR BREAK BITS
;LOOP?
JINC LINE #
JCLEAR TCR BIT

TEST

AN aanaanaaaatanaan
e anaeananenn

SCOPE

AR N A AR R N A NR RN NN

NRARANANR RN

AN RRAN RN

MOV
MOV

#25,8TSTNM
HTST26 NEXT

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST

MOV
MOV

PAR.,R1
#1,R2

JPICK UP PARAMETERS
;PICK UP INIT POINTER

MOV
INC

R1,aDZLPR
R1

JSET UP LINE PARAMETERS
;POSITION POINTIZR TO THE NEXT LINE

BC(C
CLR

1%
SAVLIN

JIF NO, GO SET UP THE NEXT LINE
sCLEAR LINE # INDICATOR

gég

ASLB

MTPS

3s:

.*RDONE FAJLED TO SET.
sACTUAL
.CMP ACTUAL VS EXPECTED. DO THEY MAT(CH?
;IF YES, GO CLEAN UP
;*DATA/CONTENTS FAILED TO COMPARE

;% THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT
;*WHILE THE PROCESSOR STATUS IS SET EXACTLY
;+TO WHAT THE DZ11 PRIORITY IS SET TO.
;«DEFAULT PRIORITY IS AT S (240).

DCLASM

e ¥

LINE PARITY)

R4
83
4
aDZRBUF ,Ré&
R4 RS
108
6

JRRRRNRANRAARARAERANANNRAE

TSi125:

18%:

163342

(INVERSION OF

JGET THE NEW BIT BACK INTO RS

8IT
BNE

;:x

016502
016506
016514

;CLEAR THE CARRY BIT

8$:

10%:

163362

IT HERE

RS
JPUT LINE NUMBER IN UPPER BYTE
gEVALID.PARER!FRMERR.RS JADD EXPECTED

163464

001364

IT IS CLEAR SET

SWABR
?Ig

9%:

001366
000001

JIF

7%:

163454

001122
001360

JGET THE LAST BIT INTO THE CARRY BIT

JIF IT IS SET, GO CLEAR IT

DELAY
INC

000025
016736

SEC

6$%:

3740
3741
3742

3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782

0003;7
001372
001371

26=NOV=79 11:06 PAGE 79
CZDZA D211 DEViCE DIAGNOSTICS.

MOv8

SE.LINE

a#D/PRT

LINE,a’DZT(CR

JCLEAR DEVICE AND SET MAINT BIT

:SSOULD THIS LINE BE SET UP ?

;GOT

‘EM ALL ?

;SET CPU STATUS TO DZ11

;ENABLE THE VALID LINES

PRIO,

]

MODE

(IDZA-FO
CZOZAF .P11

3783

3784

016514

MACY11 30A(1052)
26=NOV-79 11:03

012777

8 7
26-NOV=79 11:06 PAGE 80
CZDZA D211 DEVICE DIAGNOSTICS.

016604

MOV

#68,802T1V

%ig

glE!HSENAB,aDZCSR JENABLE THE DEVICF

MOV
MOV
MOV

3785

163260

43:

BIT

BEQ

NOP
NOP

B8R

5%:

Sidi e

3807

163216
163244
163232
163226
163224
163160
163176

8%:

163142

0% :

10
(SP)+,(SP)+

J*TRANSMITTER SHOULD NOT INTERRUPT
<POP FOR FAKE RTI

s*RECEIVER SHOULD NOT INTERRUPT

0,
BIC
MOV
MOV
MOV
MOV

(SP)+,(SP)+
#TIE,SD2CSR
#118,802T71V
#128,80ZR]V
DZPRT ,8DZRIS
DZPRT ,802T1S

8I7

#RDONE ,aDZCSR

JCONTINUE TEST

;POP FOR FAKE RTI
SRESET TRANSMITTER INTERRUPT ENABLE

JSET
;SET
;SET
sSET

UP THE TRANSMITTER INTERRUPT VE(CTOK
UP THE RECFIVER INTERRUPT VECTOR
THE INTERRUPT VECTOR STATUS
TRANSMITTER INTERRUPT PRIORITY

#RIE 'MSENAB,8DZCSR ENABLE THE DEVICE
;gO.BDZTDR
;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER

108

138

INC

ERROR

;*NO RX DONE'!

ERROR
0 o

10
(SP)+,(SP)+

J*TRANSMITTER SHOULD NOT
,POP FOR FAKE RTI

ERROR
4 4

12
(SP)+,(SP)+

DELAY

BNE
BR

104413

B8R

NOP
NOP

022626

;*TRDY NOT SET!

BEQ

12%:
138

BIS
?EXB

11%:

#TRDY ,8D7CSR

gSRm

ERROR

10%:

JSET UP THE TRANSMITTER INTERRUPT VECTOR

;SET UP THE RECEIVER INTERRUPT VECTOR
;SET THE [NTERRUPT VECTOR STATUS
;SET TRANSMITTER INTERRUPT PRIORITY

ERROR
(MP

7$:

#78 DRIV
DZPRT ,’DZRIS
CZPRT,aD2TI1S

DELAY
INC

BNE
6% :

SEQ 0079

9%
138
138

DEVICE.CLR

JCONTINUE TEST

(NOT SLT)
INTERRUPT

;CONT TEST

s*RECEIVER SHOULD NOT INTERRUPT
;POP FOR FAKE RT]
sISSUE DEVICE CLEAR

JRNRRNRARANNRAERRANARRAAN

JEST

(RESET)

ANttt atananaaava
et nasvteane

;% THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT
;*WHILE THE PROCESSOR STATUS IS SET TO EXACTLY
;«ONE LEVEL LOWER THAN THE DZ11. DZ11 PRIORITY

TES%'BEMUU TO LEVEL 5 MINUS ONE LEVEL
.

016736
016740
016746

IS LEVEL 4.

:-;nnttatntatttttttttttttttttttnntttttnttttttttn-atatnt-nttttttttn
000026
017264

001122
001360

TST26:

SCOPE

MOV
MOV

#26,3TSTNM
#TST27 NEXT

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST

(IZDZA-FO
CZDZAF .PIN

016754
016756
016762
016766
016772
016774
017000
017002

MACY11

26-NOV~79 11:03
104417

013701
012702
030237
001402
010177

005201
106302

103370

005037
106437
113777

012777
012777
013777
013777
052777
005005
032777
001404
000240
000240
104007
000416
104414
005205
001365
104003
000411
022626
042777
106437

000402
104012
022626
042777

1$:

MOV
MOV
BIT
BEQ
MOV

PAR,R1
#1,R2
R2.LINE
2%
R1,80ZLPR

B((

DCLASM

163032

017116
017134
027060
027060
040040

163044
163032
163026
163024
162760

100000

162750

4$:

5%:

162714

6$:

000200

162674

162722
162710
162704
162702
162636
162654

162620

8S$:

9S$:

108:

001365

104004
000406
104010

CLEAR DEVICE AND SET MAINT BIT IF
PICK UP PARAMETERS
;PICK UP INIT POINTER
:zOHOULD THIS LINE BE SET UP ?

LESS]
LINE,8DZ2TCR

SAVL IN

MOV
MOV
MOV
MOV
BIS
CLR
BIT
BEQ
NOP
NOP
ERROR
BR
DELAY
INC
BNE
ERROR
BR
POP2SP
8IC

#63 80271V
#78,8DZRIV
DZPRT ,80ZRIS
DZPRT ,aDZTIS

JSET
;SET
;SET
JSET

BR
ERROR
M
BIC

JMAKE CPU ONE LEVEL LOWER THAN D211
JENABLE THE VALID LINES

N#TIE !MSENAB,aDZCSR

UP THE TRANSMITTER INTERRUPT VECTOR
UP THE RECEIVER INTERRUPT VECTOR
THE INTERRUPT VECTOR STATUS
TRANSMITTER INTERRUPT PRIORITY

;ENABLE

THE DEVICE

#TRDY ,aDZ(SR

7
8%

;*TRANSMITTER FAILED TO INTEKRUPT

#TIE ,aDZCSR
SLESST

8%
12
(SP)+,(SP)+
#TIE,@DZCSR

SET!

JREMOVE THE INTERRUPT FROM THE STACK
;DON'T LET ANY MORE INTERRUPTS OCCUR
JMAKE CPU ONE LEVEL LOWER THAN D211
JRETURN TO THE NORMAL FLOW
;*RECEIVER SHOULD NOT INTERRUPT
;POP FOR FAKE RT!

JRESET TRANSMITTER INTERRUPT ENABLE
JSET UP THE TRANSMITTER INTERRUPT VECTOR
;SET UP THE RECEIVER INTERRUPT VECTOR
cSET THE INTERRUPT VECTOR STATUS
;SET TRANSMITTER INTERRUPT PRIORITY

W#RIE 'MSENAB,aD2ZCSR ;ENABLE THE DEVICE
TD0,8DZTDR
;PUT ANY RANDOM CHARACTER

BIT

#RDONE ,3DZCSR

BEQ
NOP
NOP
ERROR
BR
DELAY
INC

ERROR
BR
ERROR

#118,802T1V
#12%,80ZR1V
DZPRT ,80ZR1S
DZPRT,a02T1S

;*TRDY NOT

MOV
0V
MOV
MOV
BIS
MOVB

CLR

| MODE

;SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LiNE

MTPS
Mov8

BNE

118:

R1
R

SEQ 0080

;GOT ‘EM ALL ?
;IF NO, GO SET UP THE NEXT LINE
sCLEAR LINE # INDICATOR

MTPS

7$:

032777

INC
ASLB
CLR

027062
001364

027062

CZDZA D211 DEVICE DIAGNOSTICS.

001372

017246
017254
027060
027060
000140
001422

001404
000240
000240
104011
000413
104414
005205

26-NOV=-79

163052

040000

PAGE 81

11:06

001366
000201
001364

012777
012777
013777
013777
052777
113777

5005

017232
017234
017236
017240
017242
017244
017246

30A(1052)

IN TRANSMITTER BUFFER

108

11
13%

s*RECEIVER FAILED TO INTERRUPT

4
138
10

;*NO RX DONE. (NOT SET)
JCONTINUE TEST
;*TRANSMITTER SHOULD NOT INTERRUPT

CIDZA-FO
CZDZAF .PI

3895
3896
3897
3898
3899
3900

017250
017252
017254
017256
017262
017262

MACY1]1

30A(1052)

26-NOV-79 11:03
022626
000403
022626
005077

o 7
26-NOV=-79
11:06 PAGE 82
CZDZA D211 DEVICE DIAGNOSTICS.

(0, o
B8R

12%:
138

162560

POP2SP
CLR

104413

(SP)+,(SP)+
13%

SEQ 0081

;POP F(R FAKE RT]
;CONT "EST

JREMOVE THE INTERRUPT FROM THE STAC(CK
JDON'T ALLOW ANY MORE INTERRUPTS

&DZCSR

DEVICE.CLR

;ISSUE DEVICE CLEAR

JRnnnnakenannrnnrenwnetnnn

TEST

;«THIS

THE

TEST VERIFIES

THAT

(RESET)

annnanannnnonannontnannenrnnen

RECEIVER WILL

J*INTERRUPT BEFORE THE TRANSMITTER EVEN

;*THOUGH THE TRANSMITTER WAS ENABLED
J«FJRST.
SET PS TO LEVEL 7;

;*GET RDONE AND TRDY TO SET.

JSET TX 1E AND RX IE;
TES%'S&EAR PS AND EXPECT RX TO INTERRUPT FIRST
M

RN A

3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
390
391
3942
3943
3%4
35
3%6
3%7
3948
3949
3950

017264
017266
017274
017302
017304
017310
017314
017320
017322
017326
017330
017332
017334
017340
017346
017354
017362
017370
017376
017402
017406
017410
017414
017416
017420
C1742¢4
017426
017430
017434
017440
017442
017444
017450
017452
017454
017456
017460
017464
017466

000027
017716

001122
001360

001366
000001
001364

2%:

162422
162406
5%:

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST

cSHOULD THIS LINE BE

R1,aDZLPR

JPICK UP INIT POINTER
:NO

JSET UP LINE PARAMETERS

JPOSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?
;I NO, GO SET UP THE NEXT LINE

#8% ,aDZRIV
DZPRT ,aDZRIS

;SETUP INTERRUPT STUFF
:

SAVLIN

#128,3D2T1V
DZPRT ,aD2T1S
MMSENAB ,aDZCSR

MTPS
NOP
NOP

#PR7

TST
8PL
ERROR
ggIB

oD ZRBUF
R
17
SD£CSR

#1.R2
R2,LINE
43
SAVLIN
R2

SET uP ?

R1
R?2
18

MOV
MOV
81S
MOV
BIT
BNE
INC
ASLB

B8R

R2.LINE

INC
ASLB
B8(CC

N A RN AN AN R AN RN RN RN AN

JCLEAR DEVICE AND SET MAINT BIT
;PICK UP PARAMETERS

BEQ

MOV

R AN AN A AN RN

PAR ,R1

# ,R2

BIT

#27 ,8$TSTNM
#TST30,NEXT

MOV

MOV
MOV

3s:

162372

SCOPE

MOV
MOV

CLR

162524
162520
162514
162510
162444

000340

RN RN

DCLASM
MOV
1%:

162524

001372
017570

TST27:

cCLEAR LINE # INDICATOR

cLINE POINTER
JVALID LINE ?

MOvVB

R2,aDZTCR

ERROR
(LR

20
RS

IST

oDZ(SR

;SET T(R BIT

:VALID DATA?
;1T BETTER NOT BE SET
;DATA VALID SHOULD NOT BE SET
JRECEIVER DONE ?

162356

99% :

CLR

BMI

DELAY

100%

JRECEIVER DONE BIT SHOULD NOT BE SET

JWAIT FOR TRDY

.BR [F READY
JSTALL

TIME

MODE

(ZDZA-FO
CZDZAF .P11
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
gg;z
3977
3978
3979
3980
3981
3982
%ggz

MACY11 30A(1052)
26-NOV-79 11:03

017470
017472
017474
017476
017502
017504
017512
017514
017516
017520
017522
0175264
017530
017532

005204
001372
104003
105777
005004
032777
001004
104414
005204
001371
104004
005777
100401
104003

01753
017542
017550
017554
017556
017560
017562

052777
052777
106427
000240
000240
104007
1040M

040000
000100
000000

017564

000137

017664

017570
017574
017576

017704
010403
000303

162252

017606
017610

105737
001406

017600

042703

26-NOV-79
11:06 PAGE 83
CZDZA DZ11 DEVICE DIAGNOSTICS.

162364
000200

1008:
162330

162312

6%:

’$:

162300
162272

8%:

177770

3987
3988
3989
3990
3991
3992

3993
3994
3995
3996
3997
3998
3999

4000
4001
4002
4003
4004
4005
4006

;RECEIVER INTERRUPT ROUTINE
MOV
aDZRBUF ,Ré
MOV
R4 ,R3
SWAB
R3
TSTB
BEQ

%ggg

#4(<7>,R3

MODE +1
118

;WE MUST NOW INVERT

017612
017614
017616
017620
017622
017624

017626
017632
017634
017636
017642
017644
017646
017650
017654
017656

006203
103402
000261
000401
000241
006103

020337
001401
104015
042704
120504
001401
104005
040277
022626
000402

017660

104011

017662

022626

001372

0%:
108:
11%-

177400

162202

12%:

SEQ 0082

'NC
R&
;
oNE
99%
ERROR
3
;TRDY FAILED TO SET
CLRB
aDZTDR
CLR
R4
BIT
#RDONE ,aDZ (SR
BNE
7$
DELAY
INC
R&
BNE
6s
ERROR
&
;*RDONE FAILED TO SET!
TST
aDZCSR
;TRANS DONE BIT =1 ?
B8M]
.+
JYES
ERROR
3
;*NO
TRANS DONE FAILED TO SET
JNOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT -1
;SET INTERRUPT ENABLES AND WATCH THE FUR FLY
BIS
W#TIE,aDZCSR
BIlS
W#RIE ,aDZCSR
MTPS
#0
NOP
NOP
ERROR
7
;*TRANSMITTER FAILED TO INTERRUPT
ERROR
11
;*RECEIVER FAILED TO INTERRUPT
;CHECK BR LEVEL
JMP
138
;GET ouT

BIC

CM1371

ASR
BCS
SEC
BR
CLC
ROL
rMP
BEQ
ERROR
8IC
(MP8
BEQ
ERROR
8IC
POP2SP

R3
9s

108
R3
R3,SAVLIN
. t4
15
#~C<377> R4
R5,R4
.+
5
R2,aDZTCR

BR
138
; TRANSMITTER
ERROR
11
POP2SP

sACTUAL

;STRIP JUNK

;IS THIS TEST IN STAGGERED MODE?
;IF NOT, SKIP STAGGERED SETUP
THE LAST BIT OF

THE LINE NUMBER

;GET THE LAST BIT INTO THE CARRY BIT
JIF IT IS SET, GO CLEAR IT
sIF IT IS CLEAR SET IT HERE
;SKIP THE CLEARING
.CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)
;GET THE NEW BIT BACK INTO R3
;IS THIS A VALID LINE
JYES
;*INVALID LINE
;STRIP JUNK
;DATA (COMPARE ?
JYES
;*DATA DOES NOT COMPARE
;CLEAR TCR BIT
sREMOVE HE INTERRUPT VECTOR FROM THE STACK

;GO GET OUT OF INTERRUPT MODE
INTERRUPT SVC ROUTINE
;THE RECEIVER INTERRUPT FAILED
;TO OVERRIDE THE TRANSMITTER
JREMOVE THE INTERRUPT VECTOR FROM THE

STA(K

(ZDZA~FO
CZDZAF .P11

017664
017672
017700
017704
017712

MACY11 30A(1052)
26-NOV~-79 11:03

042777
013777
005077
013777
005077

26-NOV-79 1°:06 PAGE 84
CZDZA DZ11 DEVICE DIAGNOSTICS.

040100
002074

162150
162172

002100

162164

162170

162162

13%:

SEQ 0083

#TIE!RIE,ADZCSR

8IC
MOV

MOV
CLR

DZRIS,aDZRIV
aDZRIS
DZT1S,aDZTIV
aDZTIS

;*TEST

TO VERIFY

CLR

;CLEAR INTERRUPT ENABLES
JRESTORE TRAPCAT(CHER

canknnnrannnranrennennett

THAT

TEST

°'RDONE

)

wvnnnnnsannnrnansnnennnnnneann

DOES NOT

SET

;*]F THE SCANNER IS DISABLED.
*TURN ON SCANNER, WAIT FOR TRDY,
;*TURN OFF SCANNER, TRANSMIT A (HARACTER

017716
017720
017726
017734
017736
017742
017746
017752
017754
017760
017762
017764
017766
017772

000030
020104

00112¢
001360

001366
000001
001364

001372
000040
000001
001364

TEST 30

NSRS

AARASAA

75130:

1%:

162072

2%:

162042

.
3%

001372
¥
'A

162006

5%:

162006

161766
7%:

000200
020102

104020
104400

161744

8%:

SCOPE
MOV
MOV
OCLASM
MOV
MOV
BIT
BEQ
MOV
INC
ASLB
B8CC
CLR
BIS
MOV

BIT
BNE
INC

ASLB

162030

000040

. *'RDONE SHOULD NOT SET.

BR
MOovB
CLR
TST
B8MI
DELAY
INC
BNE
ERROR
BIC
CLRB
CLR
DELAY
INC
BNE
BIT
BEQ
ERROR
ADVANCE

ARttt

#30,$TSTNM

#TST31 NEXT

PAR,R1’
#1,R2

R2.LINE

R1,aDZLPR

R1
R2
18
SAVLIN

#MSENAB.ggZCSR
n,

R2.
43
SAVLIN
R2

LINE

R2.
RS
aDZCSR

aDZT(R

8$
20

THE

START OF

THE

TEST

| MODE

JSET UP LINE PARAMETERS
JPOSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?
;IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE # INDICATOR
s TURN ON SCANNER
LINIT LINE COUNTER
sFIND A VALID LINE

;1F WE FOUND ONE GO TO TEST
.

;SET TCR BIT
;IS TRDY SET

;CON'T TESTING IF IT IS
JIF

aDZCSR

IT NOT WAIT A WHILE

;WE WAITED LONG ENOUGH-ERROR
sTURN OFF SCANNER
;TRANSMIT A (HARACTER

;CLEAR COUNTER
JWAIT

SUFFICIENT

JRDONE TO SET

RS
7$

#RDONE,

JPOINT

;CLEAR DEVICE AND SET MAINT BIT [F
;PICK UP PARAMETERS
JPICK UP INIT POINTER
:zSOULD THIS LINE BE SET UP ?

;KEEP LOOKING

RS
gS

ggZTDR

;LOAD THE NUMBER OF THIS TEST

:IF NOT

#MSENAB,

sttt iRttt
ddl)

aDZCSR

TIME

FOR

JRDONE SET
21T SHOULDN'T BE-~CONT INUE
JIF IT IS THERE'S AN ERROR

Jrxknnnnnnnnnennrnnnesnnt

TEST

snnnnnnnneantnsnnnneanennntens

J*THIS TEST VERIFIES OVERRUN AND SILO ALARM
-~ BASED UPON VALID LINES
*ONE LINE AT A TIME
;*AS EACH OF THE FIRST 16 CHARS ARE SENT.; SILO ALARM [S
J*TESTED TO BE CLEARED. ON THE 16TH (HAR THE PROGRAM THEN

(ZDZA-FO
CZDZAF.P

MACY11

30A(1052)

26-NOV=-79 11:03

7
G
26=NOV-79 11:06 PAGE 85
CZDZA D211 DEVICE DIAGNOSTICS.

4063

6064
6065
4066
067
4068
4069
4070
4071
4072
4073
4074
4075
4076
6077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
40N
4092

;i
A

000031
020632
020536

001122
001360
001362

000001
001364

1%:

161676

4093

SCOPE
MOV

2 2323223223222
3 X2
X2 ]

#31,8TSTNM

NTST32 NEXT
#18%,L0CK
PAR,R1
#1 ,R2

gg.LINE

=6
RO

161614
161574

A ¥

IND]ICATOR

;CLEAR A DATA WORD

sFINISHED

:NO
;CLEAR OFFSET

SCANNER £ SET

:YES

SAVLIN,RO
RO
R2.aDZTCR
SDECSR

JMAKE OFFSET
JMAKE POWER OF TWO
;SET TCR BIT
JREC DONE = 1 ?

100000

161556

JTRY NEXT LINE

;REC DONE SHOULD NOT - 1

;SET CHARACTER COUNT

#TRDY ,aDZ(SR

b
b —d
b
b
—ed

o]
[0 B NTe NV, F YV, S

—a

4109

020324
020326

020330
020332

001422
001422
000017

161562

020000

161516

7%:

.*TRDY FAILED TO SET

#SILOAL ,aDZCSR
. +4

;SILO ALARM = (0
S YES

TDO(RO) ,aDZTDR
TDO(RO)
32,415.

8$:

[ MODE

;POINT TO THE DATA AREA

5%:
6%:

JPOSITION POINTER TO THE NEXT LINE
;GOT ‘€M ALL ?
JIF NO, GO SET UP THE NEXT LINE

. +6

TEST

:SSOULD THIS LINE BE SET uP ?

#1,R2
JLINE POINTER
MMSENAB'SILOEN,aDZCSR
;START
R2,LINE
JVALID LINE?

2¢c$

001372

;PICK UP PARAMETERS
JPICK UP INIT POINTER

;CLEAR LINE #

(RO)+

THE NEXT

.CLEAR DEVICE AND SET MAINT BIT

SAVLIN

#STOP,RO

JPOINT TO THE START QF
:SET FOR LOOP

JSET UP LINE PARAMETERS

R1
R2
1%

001462

161624

;LOAD THE NUMBER OF THIS TEST

R1,aDZLPR

#TD0,R0O

020520

4097

TEST 3

001372
001422

000001
010040
001364

4094
4095
4096

2%:

J*EXPECTS SILO ALARM TO SET. THEN THE ENTIRE
;*SILO o FILLED AND AN OVERRUN IS EXPECTED ON THE 65TH
;*CHAR PULLED OUT OUT THE SILO.
Js*USING SWITCH NINE FOR TH&S TEST SENDS 20. CHARACTERS
;*ON DZ LINE PREVIOUSLY SE ECTED CONTINUOUSLY WHILE Sw09=1.
;*USED TO SCOPE SILO ALARM PULSES, ETC.

18731

001366

SEQ 0084

;LOAD A CHARACTER
JSET UP NEXT CHARACTER
;16 CHARALTERS ?

;+SILO ALARM SHOULD NOT

JUNTIL 16. DATA (CHARACTERS

SILO ENABLE

(2DZA~FO
CIDZAF .P11

4119

6120
6121
6122
4123
4124
6125
4126
4127
6128
6129
4130
4131
4132
4133
4134
4135

4136

2}%%

020354

MACY?1 30A(1052)
26=-NOV=-79 11:03

032777

020342
Q20344
020346
020350
020352

001004
104414
005204
00137
104014

020354
020356
020362
020364
020366

005203
022703
001334
005004
104414

020374

013705

020404

001406

020370
020372

020400

020000

H
7
26-NOV=79
11:06
PAGE 86
CZDZA D211 DEVICE DIAGNOSTICS.

161500

9%:

000102
.

105204
001375

105737

001372

001371

4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

4164
4165
4166
4167
4168
4169
4170
4171
4172
173
4174

8NE
DELAY
INC
BNE
ERROR

#SILOAL ,aDZCSR
10%

R4
9%
14

INC
R3
(MP
#66. ,R3
BNE
b} 3
CLR
R4
DELAY
INCB
R4
BNE
.~4
:NOW LETS READ THE
MOV
SAVLIN.RS

TSTR

BEQ

2;23
4141
41462
4143
4144
414S
4146
4147
4148

B8IT

SEQ 0085

:«SILO ALARM FAILED TO SET.
;SILO ALARM SHOULD =1 AFTER 16.
:DATA CHARACTERS
>
JINC CHAR COUNT
JFINISHED SENDING CHARACTERS ?
JNO

SILO

MODE +1
13%

;MAKE EXPECTED LINE #

;IS THIS TEST IN STAGGERED MODE?
;IF NOT,

SKIP STAGGERED SETUP

;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
020406
020410
020412
020414
020416
020420
020422
0204c/

006205
103402
000261
000401
000241
006105
000305
052705

020430
020434
020436
020440
020442
020450
020452
020454
020456
020462
020464
020466
020472
020476

017704
020405
001401
104006
032777
001401
104016
005205
120527
101762
005205
052705
120527
001754

020504
020506
020510
020512
02051
020520
020526
020526
020530
020534

005704
100001
104017
040277
104401
005237
106302
103402
000137
104400

020500

017704

11%:
128
13%:

100000
161412

02G000

000077

14%:

161372

15%:
16%:

040000
000101
161342

161340

17%:

001372

22%:

020216

ASR
BCS
SEC
BR
cLC
ROL
SWAR
BIS
MOV
cMP
BEQ
ERROR
BIT
BEQ
ERROR
INC
MPB
BLOS
INC
BIS
CMPB
BEQ
MOV
TST
B8PL
ERROR
BIC
SCOP1
INC
ASLB
B(CS
JMP
ADVANCE

RS
118
12%
RS
RS
#DVALID,RS

aDZRBUF R4
R4 RS
15%
6
#SILOAL.,aDZCSR
16%
16
RS
RS5,463.
148
RS
#OVRRUN ,RS
RS, #65.
14%
aDZRBUF ,R4

R4
17%
17
R2.aDZTCR
SAVLIN
R?2
.+6
3%

;GET THE LAST BIT INTO THE CARRY BIT
JIF IT IS SET, GO CLEAR [T
JIF IT IS CLEAR SET IT HERE
;SKIP THE CLEARING
:CLEAR THE CARRY BIT (INVERSION OF LINE
;GET THE NEW BIT BACK INTO RS
;PUT IN UPPER BYTE
;ADD DATA VALID

JACTUAL
JACTUAL VS. EXPECTED
IYES
:*DATA/CONTENTS DID NOT COMPARE
;SILO ALARM= ( ?
IYES
JREADING DZRBUF DID NOT CLEAR SILO ALARM
;UP CHARACTER
JLAST SILO CHAR ?....64TH (CHAR
;ADD 1 MORE FOR THE CLOBBERED CHAR
;ADD OVERRUN TO EXPECTED
;LAST CHARACTER ?
;FOR GOOD MEASURE

:DATA VALID SHOULD - O
cYES
;DATA VALID SHOULD - 0
;CLR TCR BIT
.LOOP?
;INC EXPECTED LINC
JNEXT LINE
JNO
:YES
;GO TO NEXT TEST

PARITY)

(ZDZA-FO
CZDZAF .P11

6175
6176
677
4178
6179
4180
k)
4182
4183

26-NOV=79 11:03

052777
012777
012737
050277

052777
106427
000001
005337
001374
042777

4187
4188
4189
4190
19N
4192
4193
4194
4195
4196
6197
4198
4199
4200
4201
4202
4203
4204

104401

000137

112777
000002

11:06

CZDZA DZ11

PAGE 87

DEVICE DIAGNOSTICS.

SEQ 0086

161276

161324

18%:

BIS

198

WAIT

MOV
MOV
BIS
BIS
MTPS

001216
161250

001216
050040

161226

020512
000252

161236

DEC
BNE

;SETUP DEVICE

#208,aD2T1V
#20.,8TMPO
R2,aDZT(R
NTIE ,aDZCSR
#0

sSETUP TRANSMITTER VECTOR
: TEMPORARY COUNT OF (HARA(CTER BURST
;ENABLE LINE
;ENABLE INTERRUPTS
;LOWER PRIORITY

$TMPO
193

JREDUCE COUNT. ALL CHARA(TERS SENT?
IF NO, WAIT FOR MORE

SALLOW INTERRUPTS

BIC
SCOP1

#SILOEN!MSENAB!TIE ,aDZCSR ;RESET SILO COUNTER,
:LOOP AGAIN?

MOvVB

#252,3DZTDR

JMP

20$:

#MSENAB!SILOEN,aDZCSR

RTI

17%

;IF NOT, RETURN TO WHERE YOU LEFT OFF

;SEND A CHARA(TER

cALLOW MORE

IRNRERARRRAARANAARRAANRAR

;*THIS

TEST

CLFAR STROBE

TEST

320

CHARACTERS

(OME

At aaaaanaansaanantntnanttnvannn

THAT "'SILO ENABLE'' WILL

INHIBIT

J*RECEIVER INTERRUPTS AND THAT ON THE
;*16TH CHAR THAT °‘'SILO ALARM'' WILL

;*INTERRUPT WITH 'RIE"" SET.

TES%'ESIS WILL DO ALL

CAUSE AN

SELECTED LINES ONE AT A TIME.

4211
4212
4213
4214
4215
4216
€217
4218

106302
103370

4219

020752
020760
020764
020766
020772
020776
021000

005037
012700
005020
022700
001374
005000
012702
012777
012777
052777
030237
001002
000137
005777
100775
106427

001366
000001
001364

TST32:

161150

2%:

02 “74

161,50

000000

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST

DCLASM
MoV
MOV
BIT

PAR,R1
#1,R2
R2.LINE

JCLEAR DEVICE AND SET MAINT BIT
;PICK UP PARAMETERS
JPICK UP INIT POINTER
JSHOULD THIS LINE BE SET uP ?

MOv
INC
ASLB

R1,aDZLPR
R1
R2

JSET UP LINE PARAMETERS
JPOSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?

CLR
MOV

SAVLIN
#1D0,RO

BEQ

3%:

#3%,L0CK

;SET FOR LOOP

;NO

JIF NO, GO SET UP THE NEXT L INE

BIS

JCLEAR LINE # INDICATOR
;POINT TO THE DATA AREA
(RO)+
;CLEAR A DATA WORD
#STOP,F)
cFINISHED ?
=6
;NO
RO
JCLEAR OFFSET
#1,R2
;LINE POINTER
#118,aDZRIV
cSET FOR UNEXPECTED INTER.
#PR7 ,aDZRIS
;SET PR]IO.
WMSENAB!SILOEN!RIE,aDZCSR

BIT
BNE
JMP

RZ,LINE
.6
22%

CLR
cMP

001462

001364

#32,8TSTANM
NTST33,.NEAT

8(CC

001372
001422

000001
021156
000340
010140

SCOPE

MOV
[, 0)"

MOV

1%:

—_—

4210

001122
001360
001362

Q=
oron
[AN1aNT
0 )

4208

4209

000032
021214
020736

—_—

4206
4207

'-‘-nnntttttnttttqt-tttttt'tttttttttttttttttat-nntnttn-tnan-«-ttt--

[ Yo Yo

000004
012737
012727
012737
104417
013701
012702
030237
001402
010177
005201

4205

4227
4228
4229
4230

26-NOV-79

30A(1052)

;TIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. (HARA(CTERS
;ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE Sw0%-1.
;USED TO SCOPE SILO ALARM PULSES, ETC.

4184
4185
4186

4220
4221
4222
4223
4224
4225
4226

MACY11

BNE
CLR
MOV

MOV
MOV

TST

BM]

MTPS

aDZRBUF
. =4
#0

;START SCANNER & SET SILO ENABLE
JVALID LINE?
JYES
s TRY NEXT LINE

JEMPTY

;BR

THE

SILO

DATA VALID

IS SET!
;SET PROCESSOR PRIORITY TO O

MODE

MACY11 30A(10S2)
26-NOV~79 11:03

(ZDZA-FO
CZDZAF P11

42644
4245

021026
021030
021032
021034
021036
021040
021046
021052
021060
021062
021070
021072
021074
021076
021104
NPON)
= =

4240
6241
4264¢
4243

021004
021010
021012
021016
021020

ASERKRNRR

4231
6232
4233
4234
4235
4236
6237
4238
4239

7
J
11:06
PAGE 88
26=-NOV=79
CZDZA DZ11 DEVICE DLAGNOSTICS.

001372

MOV

161040

MOV
CLR
BIT

100000

ASL

161014

5%:
6%:

DELAY
INC

161020

001422
001422
000017

001422

020000

160752

7%:

BNE
ERROR
MOVB

INC

CMP

BEQ
BIT
BEQ

ERROR

021164
100000

160766

001422

160744

020000

160710

160730

8%:

9% :

BR
MoV
BIT
BEQ
MOV
(LR
BIT
BNE

DELAY
INC
BNE

ERROR
BR
10%:

11%:

021210

BNE

160664

12%:
17%:

001372

22%:

020736
001362

SAVLIN,RO
RO
RZ2.aDZT(CR
R4
#TRDY ,aDZCSR

INC
ASLB
BCS
JMP
CLR

JMAKE OFFSET
;MAKE POWER OF
sSET TCR BIT

TWO

R4
63
3

TDO(RO)
,aDZ TDR

TDC(RO)

#15.,T1D0(RO)

8%
#SILOAL ,aDZ(SR
A

5%
#12%,aDZR1V
#TRDY ,aDZCSR
.~6
TDO(RO) ,aDZTDR
R/
#SILOAL ,aDZCSR
10%
R4
9%

14
17$

NOP
NOP

ERROR
BR
CMP
ERROR
BR
cMP
BIC
SCoP1

SEQ 0087

17%
(SP)+,(SP)+
12
17%
(SP)+,(SP)+
R2.aDZT(CR

SAVLIN
RZ2
.+6
33
LOCK

;*TRDY

FAILED

TO SET

;LOAD A CHARACTER
JSET UP NEXT (CHARA(TER
;15 CHARS YET?

:Ségo ALARM = 0 ?
;Y

;*SILO ALARM SHOULD NOT - 1

JUNTIL 16. DATA (CHARACTERS
;SET NEW VECTOR
JREADY FOR 16TH (HAR

JLOAD THE 16TH (HAR.

;*SILO ALA~m TATIED TO SET!
;SILO ALARM SHOULD -1 AFTER 16.
:DATA CHARA(CTERS
s STALL

;SILO ALARM NOT INTERRUPTING.
JCONTINUE TEST.
;FAKE RTI
JRX SHOULD NOT INTERRUPT
s CONT INUE
;GOOD INTERRUPT TO HERE.

;CLR TCR BIT
.LooP?
JINC EXPECTED L INE
JNEXT LINE

,'NO

JYES
JCLEAR TIGHT LOOP FOR NEXT TEST

CZDZA~FO
CZDZAF P11

MACYT 30A(1052)
26-NOV=-79 11:03

7
K
26=NOV-79
11:06 PAGE 89
(2ZDZA D211 DEVICE DIAGNOSTICS.

L4278

JENANRARRRRRTERRR
AR R

4279
4280
4281
4282
4283

4284

021214
021216
021224
021232

012737
012737
104417

000033
022022

001122
001360

4290
4291
(292

021242
021246
021252

013701
012700
030037

001364

001366
000001
001364

022020

021234

4293
6294
4295
4296
4297

021256
021260
021264
021266
021270

4299

021276

4298

(021272

013737

001402
010177
005201
106300
103370

160566

012700

001422

005020

4300
4301
4302

021300
021304
021306

022700
001374
012777

001462

4308
4309
2%}?

021352
021360
021366

052777
113777
106437

000040
001364
027062

4303
4304
4305
6306
4307

(312
4313
4314
4315
6316
4317
4318
4319
4320
6321
4322
4323
4324
4325

2%59
(328

4329

4330
4331
6332
4333

TEST

AR RN RO NP AN AR R ARSI N AR RN RO

J*THIS TEST RUNS ALL LINES FULL BORE
;*BASED UPON QUALIFIED LINES
;*.
. THIS IS AN INTERRUPT TEST ON THE RECEIVER AND
J*TRANSMITTER
TEST 33

CARRARNRARN AR RN AR NN AN AN PR P A AR AR AN AR AN A RN A NN RN N AN

4285
4286
4287
(288

4289

SEQ 0088

021314
021322
021330
021336
021344

012777
012777
012777
052777
052777

021542

000340
021444
000340
000100
040000

021372
021376
021402
021404
021410
021412
021416
021420
021424
021430
021432
021434
021436

005037
013727
000000
005337
001375
105737
001002
000137
005237
001362
104007
104011
000137

021442
006722

(021444

005777

160372

021442

021450
021452
021454

000000

100401
104003
117703

021402

TST33:

MOV

RSTART: MOV
MOV
INIT:
BIT
1%:

INIT1:

160556

160552
160546
160542
160476
160470

021772

160364

BEQ
MOV
INC
ASLB
BCC

160462
160470

SNAP :
67%:
65%:

3%:

66$ :

#33,8TSTAM
#TST34 NEXT

LINE RXT(CR

PAR R
#1,R0O
RO, L INE

1%
R1,aDZLPR
R1
RO
INIT

MOV

#1D0,R0O

cTMMP
BNE
MOV

#STOP,RO
INIT
#RXSVC ,aDZR]IV

BIS
MOVB
MTPS

#MSENAB ,aDZ(SR
LINE,aDZTCR
a#LESST

CLR
MOV
0
DEC
BNE
TST8B
BNE
JMP
INC
BNE
ERROR
ERROR
JMP

66$
DLYCNT, (PC) +

(LR

MOV
MOV
MOV
BIS
BIS

022020

021720
021442

SCOPE
MOV
MOV
DCLASM

(RO)+

#PR7 ,aDZRIS
#TXSVC,aDZTIV
#PR7,aDZT1S
#R1E ,aDZCSR
#TIE,aDZCSR

68%
~4
RXTCR
3s
ourT
663
67%
7
11
FINI

. TRANS [INTR SVC ROUTINE
TXSvC:

TST

aDZCSR

BM]
. +4
ERROR
3
MOvB
aHDZCSR ,R3
JNOW TEST FOR LINE # ETC

NCINRA RN

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE START OF THE NEXT TEST
cCLEAR DEVICE AND SET MAINT BIT IF ] MODE

;SET IMAGE OF T(CR BITS

;PICK UP PARAMETER
;:PICK UP INIT POINTER
;SHOULD THIS LINE BE SET UP
;NO
SET UP LINE PARAM REGISTER

;GOT ‘EM ALL ?
;NO
;CLEAR TRANS DATA POINTER & REC PCINTERS

JFINISHED ?
.NO, CONTINUE CLEARING
JSET UP REC INTR VECTOR
;STATUS
:SET UP TRANS INTR VECTOR
;STATUS
JSET REC INTR ENABLE
;SET TRANS INTR ENABLE
;SET MASTER SCAN ENABLE
JSET TCR BITS...UP UP AND AWAY

;ALLOW INTERRUPTS

;SET FOR DELAY

JWAIT FOR ALL RECIEVERS TO FINISH
:

J*TRANSMITTER FAILED TO INTERRUPT
J*RECEIVER FAILED TO INTERRUPT

. TRANS

INTR ?

;*TRANSMITTER FAILED
JSAVE [T

(ZDZA~FO

.P "
CZDZAF

4334
4335
6336
4337
4338
4339
6340
4341
6342
6343
64344
4345
6346
4347
4348
4349
4350
6351
4352
4353
4354
4355
6356
4357
4358
4359
64360
4361
4362

4363
4364
4365
4366
' 4367

4368
4369
4370
4371
4372

4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389

30A(1052)
1 1:03
26-NOV=79
MACY11

177770

021460
021464
021466

021502
021504
021506
021512
021514

001364

021516

001422
001422

021552
021556

021560
021562

021566
021572
021600

105777
100401
104004
017704
010403
000303
042703
010337

032777
001401
104000
005704
100401
104023
032704

021620

001401

DE(B

8M]

001372
020000

BR
BIT

BNE
ERROR

INCB
BNE
BIC
RT]

160242

TSTB

BM]
ERROR
MOV
MOV
SWAB
BIC
MOV

005263

JSTRIP JUNK

:SAVE
JADJUST LOCAT]ON FOR ERROR PRINTOUT

R3
43
R2
33
R2.LINE

JIS IT THIS LINE ?
JYES
JUP THE LINE #
;GO "ROUND AGAIN
JVALID LINE?

+4
10

R4
TDO(R4) ,aDZTDR
TDO(R4)
5%

R2.aDZT(CR

JSET UP POSITION POINTER

JYES
JNO,INVALID LINE!'!.!

.MAKE POWER OF 2
;LOAD CHARACTER
JSET UP NEXT CHARACTER
;LAST CHARACTER ?

JYES ,CLEAR T(CR BIT

aDZ(SR

JREC DONE

JFALSE

.44

aDZRBUF ,R4

R3
#°C<?>,R3
R3,SAVLIN

#SILOAL ,aDZCSR

. +4

JYES

JSAVE

INTERRUPT

;STRIP JUNK
;SAVE LINE NUMBER
;SILO ALARM?

;NO

;SILO ALARM SHOULD NOT =1
;DATA VALID SET?

JYES

;YOU LOSE

#OZRRUN!FRMERR!PARER,Ré

070000

...DATA VALID WAS'NT SET

5%:

6%:

RECEIVER ERROR FLAG/S WERE SET
;SET UP POSITION POINTER

DECB

JRE POSITION POINTER
;GO "ROUND AGAIN
sLINE VALID ?

EIT

; YES

SAVLIN,R3
R3
TRO(R3) ,R4

001442

104005

SEQ 0089

R3.R4
R3,SAVLIN

001372

042704

#2C<7>,R3

;REC INTR SVC ROUT INE

RXSvVC:

177770

000001

021644
021646

5%:

160270

001364

021672
021674

MOV

ASL
MOVB

160340

160274

021630
021632

021652
021654
021660
021662
021666

4%:

160316

021540

021550

Lt ¥

ASL

021520
021526
021532
021534

021546

8IC
MOV
MOV

001372
000001

021472
021476
021500

021542

7
L
26-NOV=79 11:06 PAGE 90
C2ZDZA DZ11 DEVICE DIAGNOSTICS.

001442

177400

TRO(R3)
RS
#*4(C<377>,R4

001442

5
TRO(R3)

2%:

INC

sINVALID LINE #

;GET THE LINE NUMBER AGAIN
;USE R3 AS A POINTER IN THE DATA TABLE
:eggs THE DATA (HARACTER COMPARE
;SAVE EXPECTED
s CLEAR JUNK

:R2 = LINE # BY BIT POSITION
;R4 = ACTUAL DATA

;RS = EXPECTED DATA
;*NO, DATA DOES NOT COMPARE

:SET UP FOR NEXT CHARACTER

C2ZDZA-FO

CZDZAF P11
4390
4391
6392
6393
4394
4395
4396
(397
4398
4399
00
4401
4602
4403
44
440
4606
4607

MACY11 30A(1052)

26-NOV=79 11:03

021700
021704
021706
021712
021716

105763
001002
040237
012716
000002

021720
021724

106427
104413

11:06

TST8B
BNE
BIC
MOV
RT]

022020
021372

000340

005003
005037
012702
030237
001405
022763
001401
104027

6609 021760
4610
021764
4611
021766
4612 .021770
4613
021772
4614
021772
4415
022000
4616
022004
44617
022012
4418
022016
22;8 022020

005237
005723
106302
103363

001372

013777
005077
013777
005077
104400
000000

002074
160070
002100
160062

ouT:

001372
000001
001364
000400

PAGE 91

CZDZA DZ11 DEVICE DIAGNOSTICS.

001442

021726
021730
021734
0217640
021744
021746
021754
021756

4408

26=NOV=79

1$:
001442

2$:

160072

FINI:

160064

RXTCR:

4421

SEQ 0090

TRO(R3) ;ALL CHARS DONE?
.+6
R2.RXTCR
;ZERO LINE DONE INDICATOR.
#SNAP, (SP)
JRESET THE BACKGROUNL TIMING LOOP

JFINISH UP ROUTINE
MTPS
#PR7
DEVICE.CLR

JSTOP ALL INTERRUPTS
sCLEAR ALL INTERRUPTS AWAY

BIT

JVALID LINE

(LR
CLR
MOV

R3
SAVLIN
#1,R2

BEQ
CMP
BEQ
ERROR

2%
#400,TRO(R3)
. +4
27

RZ.LINE

INC
TST
ASLAB
8CC

SAVLIN
(R3) +
R?
13

MOV
CLR
MOV
CLR
ADVANCE
O

DZRIS,aDZRIV
aDZRIS
DZT1S,aDZT]V
aDZTIS

JNO
JRECEIVED A BINARY COUNT PATTERN ?
. YES
;THE LINE FAILED TO RECEIVE A FULL

;BINARY COUNT PATTERN

JSET UP FOR NEXT LINE
JADD 2
JSET UP NEXT LINE POINTER
sJFINISHED ?
<RESTORE

TRAPCAT(CHER

.GO TO THE NEXT

;RX IMAGE OF

4422

JERRNRARANANRRAARANARAANRE

4423
4424
4425
4426
4427
4428
4429
4430
4431
4432

;«DZ11 RELATIVE TIMING TEST.
o%EACH SELECTED LINE WILL IN TURN RUN 16. CHARS
;%AT ALL BAUD RATES AND THEN THE HIGHEST BAUD
;*WITH ALL CHAR LENGTHS. EACH NEW PARAMETER SHOULD
;*DECREASE IN TIME FROM THE PREVIOUS PARAMETERS SELECTED.
J*THE TIME IS CHECKED AGAINST THE LAST PARAMETER USED
;% AND A LOWER TIME IS EXPECTED ON THE CURRENT PARAMETER.
. *PARAMETERS ARE:
;*
EIGHT BITS/PER/CHAR - TWO STOP BITS AT
J*
50,
75,
110, 134.5, 150, 300, 600, 1200, 1800, 2000

4634
4435

;19,2 K BAUD - TWO STOP BITS AT
M
SEVEN, SIX, FIVE BITS/PER/(CHAR.

4433

4436

4437
4438
46439
4640
4441
4442
4443

4444
4445

TEST

TCR BITS

vt n A

vt A v

vt a

2400, 5600, "4800, 7200, 9600 BAUD-

J*AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS

022022
022024
022032
022040

022046
022054

000004
012737
012737
012737

012737
005037

000034
003002
022532

022172
023766

001122
001226
001360

001362

J*THE NEXT SELECTED LINE
TEST 34

TST34:

A AR AN AR

SCOPE
MOV
MOV
MoV

MOV
CLR

IS THE

TESTED.

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

#36 ,STSTNM
#2,8TIMES
#TST3S5 NEXT

#3%,L0CK
OFFSET

;LOAD THE NUMBER OF

THIS TEST

JPOINT TO THE STAR: OF
;SET FOR LOOP
JRESET THIS VARIABLE

THE NEXT

TEST

(IDZA~FO
CZDZAF .P11

MACY11 30A(1052)
26=NOV-79 11:03

005037
005037
012737
012737
033737
001027
012737
012700
005020
022700
001374
005237
042737
053737
005037
106337

L4646

L4647
4448
4449
4450
4451
4452
4653
4454
4455
4456
4457
4458
4459
4460
4461
4642
4463

103346
104400

4464

4465

4466

001372
001374

CLR
CLR

000001
010070
001216

001216
022530
001364

1%:

010070
001422

022530

2$:

001462

001374
000007
001374
023766
001216

022530

010000
022530
022530
177770
000007
001374
022530
001422

4478
4479
4480
4481
4482
4483

1008:

ADVANCE

364
022372
022400
022406
022414
022420
022426

001220
001224
000020
023410
023554
027060
027060
001216
040140
000000
000100

157502
157500
157450
157426
157414

#RCVON,7%
7% .,aDZLPR

MODE

CLC
ROR

100$

BCC

98%

B8R

99%

SEC

ROL

’$

TO TRANSMIT

;MAKE SURE TEMPORARY PARAMETERS POINT TO O

JPOINT TO THE NEXT LINE

sPROCESS THE NEXT LINE
JTEST

TO SEE

THIS

TEST GETS REPEATED

JCLEAR DEVICE AND SET MAINT BIT

. JERO PARAMTERS FCR TX LINE
;LOAD PARAMTERS FOR TX

I MODE

;STAGGERED?

JBR IF NO

JSET UP LINE
:

;BR IF LINE WAS EVEN
JPREPARE

:CONT INUE

TO MKE LINE EVEN

<PREPARE TO MAKE LINE ODL
;SET ALTERED LINE

BIS
[ 01Y)
MOV
BIC
BIC
BiS
MOV

#RCVON, 7S
7%.,38DZLPR
7%.SAVLIN
#4C<7>,SAVLIN
n?,7%
XMTLIN,7$
78 ,REGIST

:SET RX ON
;LOAD RX PARAMETERS
;ADJUST LOCATION FOR ERROR PRINTOUT
;STRIP JUNK
JCLEAR OLD LINE #
JSET LINE UP AGAIN
;SAVE PARAMETERS FOR PRINTOUT

CLR
o
BNE
CLR
CLR
CLR

(RO)+
#STOP,RO
.=6
R2
R3
STMP

:CLEAR A DATA WORD
JFINISHED ?
;NO
JUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS
JUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS
JINITIALIZE THE TIMER

CLR
MOV
MOV
MOV

001376
157520
157506

$STMPO

MOV

001462

JADD DESIRED LINE NUMBER

8CC

DCLASM

99% .

XMTLIN,7%

OFFSET

BPL

022530
157576
001372
001372
022530
022530
001400

<NO
JPOINT TO THE NEXT LINE

CLR

BIC
MOV

98S$:

=6
XMTLIN

TRANSMITTED

n?,7%

CLC

4475
4476
4477

JRESET LINE NUMBER INDICATOR
JUSE THIS WORD TO TELL WHAT LINE

BIC

ASLB

022530

SAVLIN
XMTLIN

#1,8TMPO
JUSE STMPO AS A BIT POINTER
#RCVON'SSO'EIGHT
! TWOSTOP, 7% .BUILD TEMPORARY PARAMETERS
$TMPO, L INE
;IS THIS LINE ACTIVE?
33
;IF SO, GO GFT STARTED
#RCVON!SSO'EIGHT
! TWOSTOP,7$ ;LOAD PARAMETERS TEMPORARILY
#1D0,R0
JPOINT TO THE DATA AREA
(RO)+
;CLEAR A DATA WORD
#STOP,RO
JFINISHED ?

BIS

022530
157642

SEQ 0091

MOV
MOV
8IT
BNE
MOV
MOV
CLK
0, o
BNE
INC

010000
022530
001370

4467
4468
4469
4470
4471
4472
4473
4474

N 7
26=-NOV=79 11:06 PAGE 92
CZDZA D211 DEVICE DIAGNOSTICS.

MOV
MOV
MOVB
BIS
MTPS
BIT
BEQ

#1D0,R0O

$TMP3
#20,XMTCNT
#XMTSRV,aDZTIV
#RXISR1,aDZRIV

;POINT TO THE DATA AREA

JINITIALIZE THESE BITS ALSO
;SET HOW MANY CHARACTERS TO TRANSMIT

DZPRY ,aDZRIS
DZPRT ,aD2TIS
$TMPO,aDZTCR
JSTART THE VALID LINE
#TIE'RIE'MSENAB,aDZ(CSR
#0
JLOWER THE PRIORITY TO ALLOW INTERRUPTS
#RIE ,aDZCSR
;1S ROUTINE DONE?
5%
SWHEN ALL IS DONE RX IE IS CLEARED IN ISR.

CIZDZA-FOQ

CZDZAF .P11

4502

MACY11 30A(1052)

26-NOV-79 11:03

022430

005237

001220

105237

001224

4503

022434

4505
4506
4507
4508
4509

022442
022444
022446
022452
022454

001366
104011
004737
1044601
062737

4511

0226466

042700

6504

4510

«512
4513
4514
(515
4516

4517
4518
4519
4520
4521

022436

022462

022472
022476

022500
022506
022510

022516
022520
022526
022530

001371

013700

022700
001010
032737
001602
162737

000625
062737
000621
000000

26-NOV=-79

11:06

PAGE 93

CZDZA DZ11 DEVICE DIAGNOSTICS.

INC

5%:

000002
022530
170377

023766

cCONTINUE TEST

BNE
ERROR
JSR
SCOP1
ADD

43
1
PC,SERV.G

;CONTINUE TEST
;s INTERRUPTS NOT FINISHED
1<A6>?
. LOOP?

070030

022530

000010

022530

000400

022530

MOV
RIC

007400

7%:

$TMP3

;DOUBLE COUNT

#2,0FFSET
7$ RO
221 70400> RO

CME
BNE

#<17+400>,R0
63
-

B8R
ADD
BR
0

3s
#400,7%
3s

8IT
BEQ
SuR

6%:

;COUNT TIME

BNE

INCB

007360

STMP1

SEQ 0092

MIT4+B1T3,7S
23
MIT3,7%

sennnntnsnnnnarrentnnnnnan

TEST

annnannennnnnnnrannantnnnnenen

(522
(523
4524
4525
4526

;% THIS TEST VERIFIES THAT EVEN PARITY WORKS
;% FOR ALL ODD LINES SELECTED AND THAT 0DD PARITY WORKS FOR ALL
;* EVEN LINES SELECTED.
;*THE MAIN FUNCTION OF THIS TEST IS TO VERIFY
;*THAT *PE’’ (PARITY ERROR) CAN BE FLAGGED BY

4529
4530

;*40(8) CHARS ARE USED FOR THIS TEST.
s%ALL SELECTED LINES WILL BE ENABLED

4527
4528

;*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS
;*YOU ARE IN '‘STAGGERED'' MODE.

4531
4532

;:x

4533

4534
4535
4536
¢537
<538
4539
45640
4541

022532
022534
022542
022550
022554
022556
022560
022564

000004
012737
012737
005737
100105
104417
013701
042701

45646

0226
v

0:02°7

4542
4543

4545

4546
4547
4548
4549
4550
4551
4552
LS55
4554
4555
4556
4557

022570
022574

02?004

072606
(22612
(22614
(22620
(22624
22630
022632
022634
022636
022642
022644
022646

(‘)?701
O‘c.’QZ

00161

032/
001002
052701
010177
042701
005201
106302
103361
005037
005002
005003
012737

000035
022772
001370

001122
001360

001364

18:

000001

000200
157226
000200

2%:
3%

001372

000040

001376

AR AN

TST35:

001366
000200

000100
000001

;AT THE SAME TIME!
TEST 35
AN R AN AR AN

SCOPE
MOV
MOV
TST
8PL
DCLASM
MOV
8IC

B!S
MOV
BIT

BEQ

BIT
BNE
BIS
MOV
B8IC
INC
ASLB
8C(C
CLR
CLR
CLR
MOV

AAANE

AN AR RN AR AN

#35,8TSTNM
HTST36,NEXT
MODE
63
PAR ,R1
#0DDPAR ,R1

RN RANRR AN

R ANANE NN RRANRRASN

;LOAD THE NUMBER OF THIS TEST
;POINT TO THE START OF THE NEXT TEST
;1S THIS STAGGERED MODE?
IF NOT, DON'T DO THIS TEST
JCLEAR DEVICE AND SET MAINT BIT IF | mODE
JUSE R1 TO BUILD PARAMETERS TO BE LOADED
:MAKE SURE ODD PARITY ISN'T SET

#PARITY R
f ,R2

JMAKE SURE PARITY IS TURNED ON
JUSE R2 AS A LINE POINTER

JIF NOT, SKIP TO THE NEXT LINE

R2.LINE

#BIT0,R1
’3
#ODDPAR ,R1
R1,a8DZLPR
#0DDPAR ,R1
R1
R2
1%
SAVLIN
R2
R3
#4C , XMTCNT

;IS THIS A VALID LINE?

;IS THIS LINE AN ODD LINE?
JIF IT°S ODD, USE EVEN PARITY
JIF IT'S EVEN, USE ODD PARITY
;LOAD THE LINE PARAMETER REGISTER
JSET UP THE NEXT PARITY TO EVEN
JPOINT TO THE NEXT LINE
JMOVE THE BIT POINTER IN R2 TO THE NEXT LINE
;IF WE'RE NOT DONE, GO CHECK THE NEXT LINE
JCLEAR THE LINE NUMBER INDICATOR
JUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS
;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS
;TRANSMIT A BINARY COUNT PATTERN(00-40)

CI0ZA-FO
CZDZAF .P11
4558
4559
4560
4561

022654
022660
022662
022666

012700
005020
022700
001374

022672
022700
022706
022714
022722
022730
022736

012777
012777
013777
013777
052777
113777
106427

022750
022752
022756
022760
022764
022766
022770

001407
005237
102771
105237
100366
10401
104400

4562

022670

4570

022742

4563
4564
4565
(566
4567
(568
4569

4571
2572
4573
4574
4575
(576
4577
4578

MACY11 30A(1052)
26~N0OV-79 11:03

5000

032777

c
8
26=-NOV-79
11:06 PAGE 94
(ZDZA D211 DEVICE DIAGNOSTICS.

001422

001462
023410
023232
027060
027060
040140
001364
000000
000100

157072

MOV
CLR
mP
BNE

#TD0,RO
(RO) +
#STOP,RO
.~6

MOV
MOV
MOV
MOV
BIS
MOVB
MTPS

MXMTSRV,S0ZTIV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
#PARESE ,@DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT ,80ZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT ,aDZ2T1S
sSET TRANSMITTER INTERRUPT PRIORITY
#RIE'TIE!MSENAB,a8DZCSR ENABLE THE DEVITE
LINE ,’0DZTCR
JENABLE ALL SELECTED LINES
#0
JALLOW INTERRUPTS

BEQ
INC
8vS
INCB
BFL
ERROR
ADVANCE

63
COUNTO
5%
COUNT1
5$
n

(LR

157176
157164
157160
157156
157112
157120
5%:

8IT

023404
023406
6$:

SEQ 0093

#RIE,aDICSR

JPOINT TO THE DATA AREA
;CLEAR A DATA WORD
JFINISHED ?
sNO

sCLEAR OFFSET

JWHEN RX DONE:

;BR IF ALL DONE

RIE WILL =0

J*RX FAILED TO FINISH (INTERRUPT)
;ADVANCE LOOP

JARRRNARRRARERNRRRR
RN R an

TEST

AN AR AR

AR NARRNRANRARRENRRAAS

4579
4580

s*THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL ODD LINES
;x SELECTED AND THAT _VEN PARITY WORKS FOR ALL EVEN LINES SELECTED

4584

;*YOU ARE

(586

s*ALL SELECTED LINES WILL BE ENABLED

4581
(582
4583

;*THE MAIN FUNCTION OF THIS TEST IS TO VERIFY
;*THAT ‘PE'’ (PARITY ERROR) CAN BE FLAGGED BY
;*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS

4585

;*60(8)

4587

4588

;:»

4589

4590

022772

4591
4592
4593
4594
4595
4596
4597
4598
4599

022774
023002
023010
023014
023016
023020
023024
023030
023034

4602

023046

4600
4601
4603
4604
4605
4606

4607
4608
4609
4610

4611
4612
4613

012737
012737
005737
100105
104417
013701
0427C1
052701
012702

000036
004562
001370

032701

000001

023054
023060
023064

052701
010177
042701

000200
156766
000200

023076

005037

001372

023040
023044

030237
001411

023052

001402

023070
023072
0230764
023102
023104
023106

005201
106302
103361

005002
005003
012737

001122
001360

001366
000200
000100
000001

001364

000040

;AT THE SAME

TEST 36

RANA AR

TST36:

18:

SCOPE

8IT
BEQ

BEQ

3s:

001376

NARRARRA

MOV
MOV
TST
8PL
DCLASM
MOV
BIC
BIS
MOV
BIT

2$:

[N ‘'STAGGERED'' MODE.

CHARS ARE USED FOR THIS TEST.

BIS
MOV
8IC

INC
ASLB
B8C(C
(LR
CLR

CLR
MOV

TIME!

RN AT AR

#36,8$TSTNM
#SEOP NEXT
MODE
6$
PAR ,R1
#0DDPAR ,R1
#PARITY ,R1
#1,R2
R2,LINE
33
#MITO.R1
23
#0ODDPAR ,R1
R1,aDZLPR
#0DDPAR ,R1
R1
R2
18
SAVLIN
R2

R3
#60, XMTCNT

RRARR RN

ANNARNANINNRNNNNNNNNNNANNS

;LOAD THE NUMBER OF THIS TEST
JPOINT TO THE END-OF-PASS HANDLER
;IS THIS STAGGERED MODE?
;IF NOT, DON'T DO THIS TEST
JCLEAR DEVICE AND SET MAINT BIT IF I MODE
JUSE R1 70 BUILD PARAMETERS TO BE LOADED
JMAKE SURE ODD PARITY ISN'T SET
JMAKE SURE PARITY IS TURNED ON
JUSE R2 AS A LINE POINTER

;1S THIS A VALID LINE?
JIF NOT, SKIP TO THE NEXT LINE
2IS THIS LINE AN ODD LINE?

;IF

IT'S EVEN, USE EVEN PARITY

JIF IT'S ODD, USE ODD PARITY
;LOAD THE LINE PARAMETER REGISTER
JSET UP THE NEXT PARITY TO EVEN

JPOINT TO THE NEXT LINE
JMOVE THE BIT POINTER IN R2 TO THE NEXT LINE
JIF WE'RE NOT DUNE, GO CHECK THE NEXT LINE
;CLEAR THE LINE NUMBER INDICATOR

LUSE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS
JUSE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS
;TRANSMIT A BINARY COUNT PATTERN(00-40)

CIDZA-FO
CZDZAF .PIN
4614

4615

4616

4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633

023114

023120
023122
023126
023130
023132
023140
023146
023154
023162

023170
023176
023202
023210
023212
023216

023220

023224
023226
023230

MACY11 30A(1052)
26-NOV=-79 11:03

012700
005020
022700
001374
005000
012777
012777
013777
013777
052777
113777

D
8
11:06
PAGE 95
26-NOvV-79
CZDZA D211 DEVICE DIAGNOSTICS.

0014622

MOV

CLR
CMP
BNE
CLR

001462
023410
023232
027060
027060
040140
001364
000000
000100

156736
156724
156720
156716
156652

156632

5$%:

023404

#XMTSRV ,8D2TIV
#PSE
AR
,8DZRI
E
V

MTPS
8IT
BEQ

#0
#RIE,IDZCSR

INC

8VS

023406
6%:

.=6

MOV
MOV
MOV
MOV

BIS
MOv8

156660

#1700 ,RO
+
(RO)
#STOP ,RO

INCB
BPL
ERROR
ADVANCE

SEQ 0094

;POINT TO THE DATA AREA
;CLEAR A DATA WORD
sFINISHED ?

:NO

;CLEAR OFFSET
sSET UP THE TRANSMITTER INTERRUPT VECTOR
;SET UP THE RECEIVER INTERRUPT VECTOR

DZPRT ,@DZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT ,302T11S
;SET TRANSMITTER INTERRUPT PRIORITY
#RIE!TIE!MSENAB, @DZCSR ENABLE THE DEVICE

LINE,’DZTCR

JENABLE ALL SELECTED LINES
JALLOW INTERRUPTS

63
COUNTO
5%
COUNT1
5%

;BR [F ALL DONE

;WHEN RX DONE;

RIE WILL =0

;*RX FAILED TC FINISH (INTERRUPT)
;ADVANCE

LOOP

CZDZA-FO
.P"
CZDZAF

MACY11 30A(1052)
26=NOV=-79 11:03

26-NOV-~79

11:06

CZDZA DZ11

4634

4635
4636
4637

4638

4639
4640
4641
4642
4643

4656
4657

DEVICE DIAGNOSTICS.

SEQ 0095

JRECEIVER SERVICE ROUTINE (PARITY TEST ONLY)
023232
023236
023240
023242
023246

156610

177770

001372

4644

4645
4646
Lo47
4648
4649
4650
4651
4652
4653
4654
4655

PAGE 96

010000
002046

023300
023304

SE : MOV
PARE
MOV
SWAB
BIC
MOV
TST
BM]

R4
aDZRBUF
R4 R
R1
#C<7>
R
R1,SAVLIN
R4

10%:

001400

#PARER ,R4

118
DZRBUF ,REGIST
R4 RS

TRO(R1) RS
;GET THE CORRECT CHARATTER
#DVAL
1D PARER,RS ;BUILD WHAT WAS EXPECTED

001442

023324

BIT

11$:

001442

177400
177400

001442

12%:

023404
023406
040000

156454

000100

156440

TRO(R1) ,R4
128
TRO(R1) ,RS
#*C<377>.,RS
#*C<377>,R4

‘S

TRO(R1)
R3
COUNTO
COUNT

#TI1E ,aDZCSR

13%
R2,R3
138

13%:
COUNTO:
COUNT1:

#RIE,aDZCSR

;TRANSMITTER

117701
100411
013700

156430

XMTSRV:

001372
177770
001372

INTERRUPT

aHDZCSR,R1
18

SAVL IN,RO

RAC<?>
R
§1.SAVLIN

001372

177770

001422
001422

;WAS DATA VALID?

:BRANCH IF YES
;ERROR - DATA VALID NOT SET!
JALIGN IT ON A WORD BOUNDARY
;PARITY ERROR SHOULD BE SET. IS IT?
:IF SO, GO CHECK CHARACTER
;SET UP FOR THE ERROR MESSAGE

#377.RS

000377
001442
110000

023314

ERROR

ASL

108

;GET THE CHARA(CTER
;COPY THE RECEIVED INFORMATICWN
JGET THE LINE NUMBER IN THE LOWER BYTE
s ISOLATE THE LINE NUMBER
sFILL LOC. FOR ERROR PRINTOUT

1%:

156412

RO,SAVLIN
2°C<7> ,R1
R1
TDO(R1) ,aDZTDR
TDO(R1)

;*ERROR= DID NOT GET CORRECT INFORMATION
;CHECK THE CHARACTER. IS IT CORRE"T?
;IF SO, GO SET UP NEXT CHARACTE"
;LOAD THE CHARACTER FOR ERROR REPORTING
;CLEAR SIGN EXTEND
JREMOVE THE JUNK FROM R4,

THE ACTUAL CHARACTER

;DATA ERROR
;SET UP THE NEXT CHARACTER
;ADD TO THE TOTAL RECEIVED COUNT
JRESET COUNTERS TO NEXT
;RECIEVER INTERRUPT
JARE TRANSMISSIONS DONE?
;IF NO, GO RECEIVE SOME MORE
JARE ALL CHARACTERS RECEIVED?
;IF NO, GO RECEIVE SOME MORE
;DISABLE RECEIVER INTERRUPTS
;GO BACK TO RECEIVER WAIT LOOP

SERVICE

;GET THE LINE NUMBER. IS THE TRANSMITTER
JREALLY READY? IF SO, GO LOAD THE CHARACTER
;ADJUST LOCATION SAVLIN
s ISOLATE THE LINE NUMBER
;FOR ERROR PRINTOUT

s *TRANSMITTER NOT READY- FALSE

JRESET SAVLIN TO PREVIOUS VALUE
s ISOLATE THE LINE NUMBER

INTERRUPT

:MAKE SURE IT REFERENCES A WORD BOUNDARY
;LOAD THE CURRENT CHARACTER FOR THIS LINE
;SET UP NEXT CHARACTER FOR THIS LINE

"ttttfitttttttttttitttttlt'ttttti'tfittittttttttt'ttittt'l"fitltt

;(REV. FO: DELETED

INC

(IDZA-FO
CZDZAF .PIN

MACY11 30A(1052)
26-NOV-79 11:03

F
8
26-NOV=79
11:06
PAGE 97
CZDZA DZ11 DEVICE DIAGNOSTICS.

4690

4691
4692
4693
64694
4695
4696
4697
4698
4699

023460
023466
023470
023474
023476
023500
023502
023504
023506

023761
001376
001015
012700
000001
006201
005301
100402 .006300
000774
140077
156344

001422

4701

023514

042777

156320

4700
4702

023512

001003

4703

023522

005202

2;82

023524

000002

L4704

040000

3$:
RN

4709

U
BNE
MOV

XMTCNT,TDO(R1)
43
#1.RO

BR
BI(CB
BNE

2%
RO,aDZTCR
43

BIC

AN AR

4%:

RN AN

INC

012737
006037
006037
005337

023550
023552

001371
000207

#TIE,’DZCSR
AR AN

R AT

000004
001224
001220
001222

001222

BUILD:
18:

;HAVE WE DONE ALL PATTERNS ON THIS LINE?
;1F NOT, KEEP ON TRANSMITTING
JSET UP A DESELECTION POINTER
;GET THE LINE NUMBER AGAIN
JREDUCE THE COUNT. WAS THIS THE LINE>
s1F SO, GO DISABLE THE ENABLE BIT FOR IT
cMOVE THE POINTER TO THE NEXT LINE
;60 CHECK THE NEXT LINE
;DISABLE THE LINE POINTED TO BY RO
;IF MORE LINES ARE ACTIVE , GO CONTINUE

:1F NOT, DISABLE TRANSMITTER INTERRUPTS

A R AR A N

AR N A AN R RA NN NN RN

;UP THE NUMBER OF

JRETURN TO THE

RELATIVE

TRANSMIT

ANNNARR AR ANRN W

TRANSM]SSIONS

A AN AN AN AN R AN RN R N R AN AN AN N AN A NN NN RNARAN AN NN NN AR RANRRAAR AR

;
023526
022534
023540
023544

AN AR

R1
R1
33
RO

RTI

4707

4710
4711
4712
4713
W74
4715
4716
4717

LI
R R Y )

ASR
DEC
BMI
ASL

2$:

SEC 0096

(REV.

TIMING LOOP

TIME BUILDING ROUTINE

MOV
ROR
ROR
DEC

6 ,$TMP2
$TMP3
$TMP1
$TMP?

BNE
RTS

1%
PC

;ROTATE 4 BITS BACK INTO $TMP1
JGET THE BITS FROM $TMP3, THE HIGH BYTE
;OF THE RELATIVE TIME COUNTER. PUT THEM BA(K
JINTO $TMP1 USING THE CARRY BIT WITH
;ROTATE INSTRUCTIONS
JREDUCE COUNT. ALL BITS BACK? [F NOT, GET MORE
JRETURN TO CALLING TEST

FO)

CIDZA-FQ
CZDZAF .P1

MACY11 30A(1052)
26-NOV-79 11:03

G 8
26-NOV-79
11:06
PAGE 98
CZDZA DZ11 DEVICE DIAGNOSTICS.

4;}3

JRECEIVER SERVICE ROUTINE

4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
64733
4734
4735

023554
023560
023562
023564
023570
023572
023574
023600
023602
023606
023610
023612
023614
023620
023622
023626

4738
4739

023640
023644

116105
042705
042704
010137

4743
47644
4745

023662
023664
023672

005203
032761
001402

4736
4737

47640
47641
47642

023630
023634

023650
023654
023656

47646
4747
4748

0235674
023676
023700

4751

4757
4758
4759

22?8
4752
4753
4756
4755
4756

4760
4761
4762
47€3
4764

SEQ 0097

023702

105777
100401
104004
017704
100401
104023
032704
001403
013700
104002
010401
000301
042701
006301
120461
001413

006237
104005
005261

020203
001401
000002

156262

RXISR1:

156256

18:

070000

2%:

002046
3%:
177770

001442

001442
177400

177400
001372
001372

001442
000020

004737

023526

023706

013700

023766

023736
023740
0237644

101007
016005
010137

023712
023720
023724
023726
023730

023750
023754
023756
023764
023766

013760
005737
001414
005740
026037

006237
104021
042777
000002
000000

4%:
001442

5%:

6%:

001220
023766

002102

001220

156056

7%:

OFFSET:

aDZCSP
;IS THE RECEIVER REALLY READY?
1%
;IF SO0, GO SERVICE IT
4
;*ERROR- RECEIVER DONE FLAG ISN'T SET
aDZRBL" RS
;SAVE THE RECEIVER INFORMATION
2%
;1F 1T WAS VALID, GO PROCESS IT
23
.ERROR- DATA VALID WASN'T SET
#OVRRUN.FRMERR
! PARER ,R4 ;ARE ANY ERROR FLAGS SET?
3s
cIF NOT, GO CONTINUE PROCESSING
DZRBUF ,RO
;SET UP FOR ERROR REPORTING
2
;ERROR- RECEIVER ERROR FLAG SET
R4 ,R1
;COPY THE RECEIVER INFORMATION
R1
;JGET THE LINE NUMBER IN THE LOWER BYTE
#4C<7> ,R1
;ISOLATE THE LINE NUMBER
R1
JALIGN IT ON A WORD BOUNDARY
R4, TRO(RY)
;1S THE CHARACTER WHAT [T SHOULD BE?
43
;IF SO,GO CONTINUE PROCESSING

MOVB
8IC
B8IC
MOV

TRO(R1) ,RS
#~(C<377>,R5
#2C<377> R4
R1,SAVLIN

;GET WHAT WAS EXPECTED FOR ERROR REPORTING
;JELIMINATE PROPAGATED SIGN

INC
BIT
BEQ
cMP
BEQ
RTI

R3
#20,TRO(RY)
5%

s INCREMENT THE COUNT OF RECEIVED (HARACTERS
JHAVE ALL CHARACTERS BEEN RECEIVED?
;IF NOT, GO RECEIVE SOME MORE

ASR
ERROR
INC

SAVLIN
5
TRO(R1)

R2.R3
63

JSR

PC,BUILD

MOV

OFFSET,RO

s ISOLATE THE ACTUAL CHARACTER
;JGET THE LINE NUMBER OF THE RECEIVER ERROR
JALIGN IT CORRECTLY FOR REPORTING
;*DATA ERROR
;SET UP THE NEXT EXPECTED CHARACTER

JHAVE WE RECEIVED ALL CHARA(CTERS?
;1F SO,GO DETERMINE THE TIMING
;GO CONTINUE TIMING AND ALLOW INTERRUPTMS

;GET THE RELATIVE TIME

(SIGNIFICANT BITS)

;GET POINTER

MOV
TST
BEQ
TST
cMP

$TMP1,TMTBL(RO)
OFFSET
7$
-(R0)
TMTBL
(RO) ,$TMP1

ASR
ERROR
BIC
RTI
O

SAVLIN
JMAKE SURE IT'S THE LINE NUMBER
21
. TIMING ERROR
#RIE .MSENAB,aDZ(CSR ;DISABLE THE DEVICE
JRETURN TO THE PROGRAM

BHI
MOV
MOV

002102
001372
001372
000140

TSTB
8M]
ERROR
MOV
B8M]
ERROR
BIT
BEQ
MOV
ERROR
MOV
SWAB
BIC
ASL
CMPB
BEQ

7$
TMTBL (RO) ,RS
R1,SAVLIN

; SAVE THIS TEST'S TIME
JFIRST TEST?
;IF NOT, GO CHECK THE TIME
JPOINT TO THE PREVIOUS
TIME TAKEN
;IS THIS TIME WHAT [T SHOULD BE?

;1F SO, GO TO THE NEXT TEST
JPLACE WHAT WAS EXPECTED IN RS
;GET THE LINE NUMBER OF THE RECEIVER

CZDZA-FO
CZDZAF.PIN

MACY11 30A(1052)
26=-NOV=-79 11:03

26-NV=79

11:06

CZDZA DZ11

DEVICE DIAGNOSTICS.

SEQ 0098

;D211 ECHO/CABLE TEST

L4765
4766
L7267
4768
4L769
4770
«N
6772
4773
6774
6775
4776
w777
4778

;*STARTING PROCEDURE

:*LOAD PROGRAM

;*LOAD ADDRESS 000210

;*PRESS START
s *PROGRAM WILL TYPE DZ11 ECHO/CABLE TEST
;*PROGRAM WILL TYPE
WHICH TEST- ECHO OR CABLE
;*TYPE IN
E
OR
C
RESPECTIVELY
; *PROGRAM WILL TYPE 'VECTOR ADDRESS-''
;*TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
s*FOR THE DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>

; *PROGRAM WILL TYPE ‘‘CONTROL REGISTER ADDRESS-''

;*TYPE IN THE ADDRESS OF THE
c*FOR THE DZ11 TO BE TESTED,

4779
4780
4781

SYSTEM CONTROL REGISTER
FOLLOWED BY <CARRIAGE RETURN>

;*PROGRAM WILL TYPE ‘LINE NUMBER-''

;*TYPE

4782

IN THE

LINE NUMBER

TO BE

;*,FOLLOWED BY <CARRIAGE RETURN>

4783
4784

TESTED

:*PROGRAM WILL TYPE ‘'BAUD RATE-''
;*TYPE

4785

IN THE BAUD RATE OF

THE DZ11

;*,FOLLOWED BY <CARRIAGE RETURN>

4786
4/87
4788
4759
4790
479
4792
4793

BBR

;*THE

2N
B3R

135
150

¥
%

LK)
.

%
%

<800
7200
9600

134.5)

2000
2400
3600

IN DECIMAL

1200
1800

;*ALL

(ROUNDED OFF

ACCEPTED

300
600

4796
4797
4798
4799
4800
4801
4802

(IN OCTAL)

TERMINAL

FO%EOUING BAUD RATES ARE

75
110

4794
4795

4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820

PAGE 99

OTHERS ARE REJECTED

;*PROGRAM WILL

TYPF

"¥ECHO''

''CABLE

TEST'® TO INDICATE

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
JSET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
;CLEAR PROGRAM FLAGS AND COUNTS

023770
023774

024026

012706

106427

012737
005037
005037
005037
105037
005037

001120
000340

023770

026164
001242
001132
001123
026170

XSTART:

001126

MOV

#STACK,SP

MOV

#XSTART ,$LPADR

MTPS
CLR
CLR

(LR

CLRB
CLR

#PR7

;SET UP PROCESSOR

;LOCK OUT
;SET UP

STA(CK

INTERRUPTS

IN CASE

POWER FAIL

STFLG
$PASS

;CLEAR TEST START FLAG
;CLEAR PASS COUNT

$ERFLG
LAST

;CLEAR ERRCR FLAG
;C_EAR LAST ERROR P(

S$ERTTL

;CLEAR ERROR COUNT

THAT

TESTING HAS STARTE

(ZDZA-FO
CZOZAF .P1
4821
4822
4823
64824
64825
4826
4827
4828
4829

4830
4831
4832
4833
4834

4835
4836
4837
4838
4839
4840
4841
4842
4843
64844
4845
(846
4847
4848
4849
4850
4851
4852
4853

4854

024032
024040
(26042
024046
024052
024054
024056
024060
024064

024066
024070
024072
024074
024076
024100
024102
024103
024104
024106
024110
0264112
0264114
024116
024120
024121
026122
024130
024136
026144
026152
024160
026166
024172

024200

4855
4856

024206
024214

4858
4859
4860
4861
4862

024224
024226
024230
024232
024234

4857

4863

486+
4865
4866
4867

4868
4869
4870
4871
4872
4873
4874
4875
4876

024222

024236

024240
024242
024244
024246

024250
024251
024252
024254
0264260
024262
024264
024266
024270

MACY11 30A(1052)
26-NOV-79 11:03
032777
001465
012701
012702
010221
005022
022122
020127
001372

000001

26-NOV=79
11:06
PAGE 100
CZDZA DZ11 DEVICE DIAGNOSTICS.
155120

000300
000302

Vveci:

VEC2:
1%:

001000

104403
026216
104405
000300
000770
002072
003
004
104403
026240

BYTE
BYTE

104405
160000
163700

013737
062737
013737
013737
062737
013737
005237
013737
062737
013737
032777
001427
104403
026424
104416
026162
104403
026346
104415
000062
022600
026200
000
001
104413
005037
104403
026336
104405
000000
000007

INSTR
MVECTOR
PARAM
300
770
DZRIV
3
4
INSTR
MREGAD

#SW00,aSwR
OTHER
#300,R1
#302 ,R2
R2,(R1)+
(R2)+
(R1)+,(R2)+
R1,4#1000
1%

PARAM
160000
163700

002042

007
001

BIT
BEQ
MOV
MOV
MOV
CLR
(MP
CMP
BNE

002042
000002
002046
002046
000002
002056
002060
002056
000002
002066
000002

002046
002046
002052
002056
002056
002060

BYTE
.BYTE

002066

002066
(02062
154736

OTHER:

BAUD :

026164

BYTE
BYTE
LINEX:

DZCSR
7
1

MOV
DZCSR,DZRBUF
ADD
#2,DZRBUF
MOV
DZRBUF ,DZLPR
MOV
DZRBUF ,DZTCR
ADD
#2,DZTCR
MOV
DZTCR,HDZTCR
INC
HDZTCR
MOV
DZTCR,DZTDR
ADD
#2,DZTDR
MOV
DZTDR,DZMSR
BIT
#SW01,aSWwR
BEQ
XBEGIN
INSTR
MWHICH
PAWCH
WCHFLG
INSTR
MSPEED
PARMD
50.
9600.
L INESP
O
1
DEVICE.CLR
CLR
STFLG
INSTR
ML INE
PARAM
0
I4

8
SEQ 0099
;IF SW00-1,
JAND (SR

GET NEw \ECTOR

JRESTORE TRAPCAT(CHER
:IN FLOATING VECTOR AREA
JUPDATE THE POINTERS

s INPUT ADDRESS OF DEVICE VECTCR
JMESSAGE 'VECTOR ADDRESS-''
s CONVERT STRING TO OCTAL
;LOW LIMIT
JHIGH
LIMIT

;LOCATIONS TO BE FILLED
;LSB MASK
JNUMBER OF LOCATIONS
s INPUT ADDRESS OF DEVICE CSR
JMESSAGE ''CONTROL REGISTER ADDRESS-''
s CONVERT STRING TO OCTAL
;LOW LIMIT
JHIGH LIMIT
JLOCATIONS TO BE FILLED
;LSB MASK
JNUMBER OF LOCATIONS
;BEGIN BUILDING DEVICE ADDRESSES
;FORM THE READ BUFFER ADDRESS
;REMEMBER THAT THIS IS ALSO LINE PARAMETER REG.
;BEGIN BUILDING TRANSMITTER CONTROL REGISTER
;FORM THE TRANSMITTER CONTROL REGISTER POINTER
JBEGIN FOPMING TRANSMITTER DATA REGISTER

;FORM THE

TRANSMITTER DATA REGISTER

JRESELECT OF TEST?
¢IF NOT, SKIP ASKING WHICH ONE

;INPUT WHICH TEST YOU ARE RUNNING
;ECHO OR CABLE
;SET FLAG
sTHIS FLAG
; INPUT BAUD RATE
;MESSAGE 'BAUD RATE-''
; CONVERT DECIMAL STRING TO OCTAL
;LOW LIMIT
JHIGH LIMI”
;LOCATION TO BE FILLED
JLSB MASK
;JNUMBER OF LOCATIONS
;CLEAR DEVICE
;CLEAR PROGRAM START FLAG
JINPUT LINE NUMBER
;MESSAGE "LINE NUMBER-''
;CONVERT
STRING TO OCTAL
JLOW LIMIT
JHIGH LIMIT

(ZDZA-FO
CZDZAF .P11
4877

4878

4879
4880
4881
4882
4883

024272
024274
024275
024276

024302

024332
024336
024340
024344
024350
024352
024360
024364
024366
024372
024376

MACYT1

30A(1052)

26-N0OV=-79 11:03
001372
000
001
004537
106427

012706
005037
005737
001413
012737
005737
001017
005137
104402

000412
012737
005737
001004
005137
104402
000177

26-NOV-79
11:06 PAGE 101
C2DZA D211 DEVICE DIAGNCSTICS.
BYTE

025766

XBEGIN: MTPS

000340
001120
026166
026162
025040
026164

026164
026472
154524

1%:

1
RS,SET
#PR7

FILLED

*LSB MASK
*NUMBER OF LOCATIONS
;LOCK OUT

INTERRUPTS

*SET UP PROCESSOR STACK
*CLEAR TIMEOUT
:ECHO OR CABLE TEST ?

STFLG

*ARE

2s
#TEST2 SLPADR
1%

*ECHO
:CABLE TEST
YYES

YOU LOOPING

COM

STFLG

MOV

#TEST1,$LPADR

;SFT UP ECHO TEST

BNE

SYES

;;Pf

28%:

;LOCATION TO BE

#STACK, SP
LOCKUP
WCHFLG

BNE

001126

SEQ 0100

MOV
CLR
ST

BEQ
MOV

001126

026164
026517

024402
026164

SAVLIN

0
BYTE
JSR

chABLE

STFLG

*NO

STYPE

*ARE

CABLE

TEST

YOU LOOPING

COM
STFLG
*NO
TYPE
_MTERM
STYPE ECHO TEST
JMP
aSLPADR
*START TESTING
STHIS TEST WILL ACCEPT 1 CHARACTER AT A TIME
S (IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER,

SONE LINE AT A TIME, ANY LINE O THRU 7 (OCTAL)

024402
024404
024412
024420

024426
024434

024442
024450
024452
024456
024462
024464
024466
024470
024472
024474
024476
024502
024504
024510
024516
024520
024522
024526

104413

012737
013777
013737

053737

013777
012777
005004
012705
005777
100404
104414

000001
026206
026204

026202
001366
060040

001122
155436

TEST1:

MOV

NUML IN.PAR

155410
155372

001366

026534

155360

BiS

104003
112577

#1,$TSTNM
NUMTCR,a02ZTCR

001366

005304
001372
005004

DEVICE.CLR

MOV
MOV

2s:

155364

007360
000377

154442

000340
025476

001360

024534
024536
024544

053737

026204
026202

001366
001366

024552
024560

052737
013777

010000
001366

001366
155264

;CLEAR DZ11

:SET TCR BIT

*SET PARAMETERS

MOV
?8;

SPEED, PAR

PAR.aDZLPR
;TSENAB,SDZCSR

*SET BAUD RATE

MOV
ST
8M]
DELAY
DEC
BNE

AMQUICK RS
aDZCSR
2
Ré
3s

:SET MESSAGE BUFFER
STRDY?
“BR IF YES
SWAIT
;
:

PC,SERV.G

.
1<AG>?

ERROR
CLR
MOVB

BNE
JSR

(MPB

3
R4
(R5)+,aDZTDR
3s

#377.aSwWR

BEQ
TESTH
DEVICE.CLR
MTPS
#PR7
MOV
#XEOP ,NEXT
DEVICE.CLR
MOV
NUML IN, PAR

BIS

SPEED,PAR

BIS

#RCVON, PAR

MOV

PAR,aDZLPR

*LOAD PARAM.
SSET SCANN ENABLE

*NO TRDY SET! WHY?
ZRESET COUNTER TO 0
:LOAD CHAR

*RE~DO QUICK BROWN?

*BR IF REPEAT PATTERN
;LOCK OUT

INTERRUPTS

;SELECT LINE # & SET
SSET LINE SPEED AND

INTERRUPT ENABLE

*CHARACTER LENGTH (TRANS. & REC.)
*MAKE SURE RECEIVER IS TURNED ON

*LOAD THE LINE PARAMETER REGISTER

CIDIA-FO
CZDZAF .P11
4933
4934
4935
4936
4937
4938
4939
4940
6941
4942
4943
6944
4945
4946
4947
4948
4949
4950
6951
4952
4953
4954
4955
4956

4957
4958
4959
4960
4961
4962
4963
4964
4965
4966

4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988

024566
024574
024602

MACY1]1 30A(1052)
26=NOV-79 11:03

012777
013777
106437
012777
104402
105777
100375

024632

024662

024674

024676
024704
024712

024720
024726
024732
0264740
024742
024744
024752

024642
026210
027062
000140
026364
154340

005777
004737
000137

154334
007360
024252

105777
100401
104004

155174

017737
100401
104023
032737
001401

18:

042737
042737
000337
023737
001401
104015

026212

020000

026212

026212
026212
177600

026214
010620
010620
026212

001372

026212

174377
026212

025476

025036

012716
000002
005003
013777
005777
100403
005203
001373
104003
113777
012777
005077
000002

;IF

JSR
JMP

PC,SERV.G
LINEX

JMAKE SURE
;

1$
as$TkB

FOLLOWING

aozcsn

SOMBODY HITS A KEY- GET NEW LINE #

;LOOP HERE
;CLEAR (CHAR

THE

RECEIVER

IT WASN'T <*G>

INTERRUPT

:TEST REC.

FLAG

SVC ROUTINE

ERROR

;ERROR = INTERRUPT NOT CAUSED BY FLAG

ERROR
BIT

23
#BIT13,RECDAT

;NON- VALID CHARACTER
;CHECK FOR FRAMING ERROR

MOV
BM]

BEQ
ERROR

aDZRBUF ,RECDAT
R

R
25

:BR IF NO ERROR
;EITHER SOMBODY HIT THE

MOVB
MOVB

RECDAT, TBUF
RECDAT, INBUF

;MOVE
;MOVE

CHARACTER TO OUTPUT AREA
CHARACTER TO CHECK FOR “C

BIC

#174377 ,RECDAT

:DOES

THE LINE # COMPARE?

BIC

SWAB
g?g

026206
155034

ERROR

155070
000003

155054

026214
000140
155020

MOV

CMPB

1$:

108 :

#-C<177>, INBUF
RECDAT
SAZLIN.RECDAT

;'BREAK KEY'' OR YOU HAVE AN ERROR.
:STRIP JUNK PLUS PARITY
NUMBER
;SAVE ONLY LINE

000340
000002
025476

001122
001360

AMSENAB,aDZCSR

INBUF 43

; *WRONG LINE NUMBER
-START

THE

TRANSMITTERS SCANNER

SIS IT A “C 2

BNE
1%
DEVICE.CLR

:NO

S?Y

AXEOP, (SP)

:CRUNCH STACK

CLR
MOV

R3
NUMTCR,8DZTCR

;INITIALIZE DELAY
:ENABLE THE LINE

BM]
INC
BNE
ERROR
MOVB

2$
R3
108
3
TBUF.,aDZTDR

*IF YES BRANCH
*INCREMENT DELAY
*DELAY DONE?
*TRANSMIT READY NOT SET!
“TRANSMIT THE CHARACTER

aDZTCR

;CLEAR T(CR BIT

MoV

g%?

;THIS

025044
025052

a$TKS

8PL
TST

024760

025040

#INTSVC,aDZRIV
;SET UP INTERRUPT SERVICE
PRIO,aDZRIS
sAND LEVEL
a¥LESST
cALLOW INTERRUPTS
W#RIE !MSENAB,IDZCSR ;SET RECEIVER INTERRUPT ENABLE
. MCHAR
;TYPE ''ANY CHARA(CTER''

INTSVC: égIB

155170

000040
010620

104413

SEQ 0101

MOV
MOV
MTPS
MOV
TYPE
1ST8

;THE

104025

113737
113737

012777
123727
001004

024762
024764
024770
024772
024774

26~NOV~79 11:06 PAGE 102
CZDZA D211 DEVICE DIAGNOSTICS.

TEST

aDZCSR

*TRANSMITTER READY?

#RIE .MSENAB,aDZCSR

TRANSMITS A BINARY

RESTART

COUNT PATTERN

THE

RtCEIVER

sVIA INTERRUPT MODE TO THE RECEIVER
;...THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR
TEST2:
MTPS
HPR?7
sCISABLE INTERRUPTS
MOV

MOV

#2,3TSTNM

#XEOP NEXT

CZDZA~FO
CZDZAF .PV
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001

5002
5003

025060

MACY11

30A(1052)

26=NOV=79 11:03

11:06
PAGE 103
26-NOV-79
CZDZA DZ11 DEVICE DIAGNOSTICS.

104413

DEVICE.CLR
s*TEST

TO VERIFY

SEQ 0102

THAT SETTING DTR FOR A GIVEN LINE

;*WILL BRING UP ''CO'* AND 'RING'' FOR THE SAME LINE
S*THE

012737
113777
005005

154762

1%:

026206

MOV

?EXB

ggnrcn.anozrcn

#18,L0CK

;LOOP

81S8
SWAB
81s8

NUMTCR,RS
RS
NUMTCR,RS

;BUILD EXPECTED
cPUT IN HIGH BYTE
;

DELAY
MOV
0

BEQ
ERROR

026202
026204

010002
040140

025276
026210
025456
026210

013777
105777
100006
005777
004737
000137

005237
001364
104011
104413

000137
005037
105777
100401
104004
017737
100401
104023
032737
001401
104024

001366
027062
026206

001366
001366
001366

2%:
3s:

154660
154702
154676
154672
154666
154626

154620

153722

SPIN:

153716

007360
024252
026166

18:
QUITS:

025476
026166
154534
154530

INTREC:

026212

JUMPER FROM DTR

;*IN ORDER FOR THIS TEST TO WORK!

154742

025126
025130
025132
025140
025146
025154
025162
025170
025176
025204
025212

025236
025242

001362

026206

025112
025114
025120
025122
025124

025214
025216
025224
025230

025070
026206

DIST PNL MUST HAVE

aDZMSR, R4
RS,R¢

2%
22

TO RQST

;SET DTR

:WAIT FOR CABLE DELAY
;READY MODEM BITS
JARE THEY 0OK?

JBR IF YES
;1S THE TEST CONNECTOR ON?

JHAS RIGHT LINE BEEN SELECTED?

;IF SO- YOU HAVE A PROBLEM!
;MODEM BITS NOT RIGHT

SCOP1
DEVICE.CLR

;LOOP
JINIT DZ11
;SET LINE SPEED
sJSELECT LINE # & REC.

CLR

:TX DATA POINTER- SET

MOV
BIS
BIS
BIS
MOV
MOV
MOV
MOV
CLR

SPEED ,PAR
NUML IN,PAR
INTERRUPT ENABLE
#RCVON,PAR
;ENABLE THE RECEIVER FOR THIS LINE
NHTIE!RIE!MSENAB,aDZCSR ;SET TRANSMITIER INTERRUPT ENABLE
#INTREC,aDZRIV
;SET UP INTR SERVICE
PRIO,aDZRIS
sSET UP LEVEL
#INTRAN,a@DZTIV
;SET UP INTR SERVICE
PRIO,aDZTIS
¢SET UP LEVEL
R1
JRX DATA POINTER- SET T0 0O

MOV
MTPS
MOV

PAR,aDZLPR
a#LESST
NUMTCR,aDZTCR

026212

T0 0

;SET THE PARAMETERS AND TURN ON RECEIVER
;ALLOW INTERRUPTS
;SET UP TCR BIT

:YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT
T1STB
a$TKS
;IF SOMEBODY HITS A KEY- GET A NEW LINE #

8PL

;BR IF NO KEY HIT

TST
JSR

a$TKB
PC,SERV.G

INC
BNE
ERROR

LOCKUP
SPIN
1

sINC TIMEOUT FLAG
;IF _NOT O
RETURN SPINNING
:*RECEIVER FAILED TO INTERRUPT

XEOP
LOCKUP

;CALL FOR END OF PASS
;CLEAR TIMEOUT FLAG
sTEST REC DONE
JYES
;*FALSE INTERRUPT
;SAVE WORD

JMP

LINEX

DEVICE.CLR

JMP
CLR
1ST8
BM]
ERROR
ggy

aDZCSR

.+
4
BDERBUF,RECDAT

;CLEAR CHAR
IMAKE SURE IT WASN'T <G>

. Sw02=1

040000

TO SEND

ERROR

BiT
BEQ

ERROR

s*NON VALID CHARACTER

*YES

#BIT14,RECDAT
R

:DATA OVERRUN ?
:NO

CHECK CABLE/TERMINATOR

(ZDZA-FO
CZDZAF .PIN

5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076

025336
025344
025346
025350

MACY11 30A(1052)
26=-NOV-79 11:03

26=NOV=79 11:06 PAGE 104
CZDZA DZ11 DEVICE DIAGNOSTICS.

0327%7
001401

020000

026212

032737
001401

010000

026212

042705

1774600
026212
177400

104025

106026
110105
113704

042704
020504
001401
104005

174377
026212
001372

BIT
BEQ
ERROR
8IT
BEQ
ERROR

MovB
BIC
MOvVB
BIC
cMP
8tQ
ERRUR
BIC

026212

#B1T13 RECDAT
. th

25
#8IT12,RECDAT
YA

R1,RS
#-C<377>,RS
RECDAT R4

#AC<377>
R4

RS.R4
;0K?
.+
5
#1764377 ,RECDAT
RECDAT
SAZLIN,RECDAT
x

025454
025456
025462
025464
025466
025472
025474

SEQ 0103

;FRAMING ERROR ?

.NO

J*YES
;PARITY ERRCR ?
;NO
J*YES
JSET EXPECTED
JCLEAR HIGH BYTE
;GET FOUND
.CLEAR HIGH BYTE
;DATA ERROR

;SAVE ONLY LINE NUMBER

;DOES THE LINE # COMPARE ?
; YES

S *WRONG LINE #

000377

15
R1,4377

025270

#QUITS, (SP)

"LAST CHARACTER ?
;NO
;CRUNCH STACK

R1
#SPIN, (SP)

;UPDATE EXPECTED DATA
sCRUNCH STACK

025236
154360

1%:

2$:
INTRAN:

SD£CSR

;TEST

TRANSMIT FLAG

154374

R2.aDZTDR
R2
JRETURN

;*FALSE INTERRUPT

;TRANSMIT A CHARACTER

JUPDATE TX DATA

CIDZA-FO
CZDZAF P11

5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089

MACY11 30A(1052)
26-NOV~79 11:03

26-NOV=79

11:06 PAGE 105
CZDZA D211 DEVICE DIAGNOSTICS.

SJEND OF PASS
JRESTART

025476

XEOP:

026170
201123
024302

025512

RSTRT:

025702
025704
025706
025710
025711

000060

O NOAWVNB NN =O VO NOWNEB WO

~NOWn

ek
md
b
b o
b
b
D
od
b o
b md
h
b
b md
b
b mad
b
b

N —

JMP

;TYPE NAME OF

LAST
$ERFLG

2%:

19%:

3s:

000744

(SP) RS
(R5)+,6%
(RS)+,7%
(R5)+,8%
(RS)+,9%

MOV

zg.(SP)

MOV

M8
BEQ
CMPB
BLT
CMPB
8GT
BICB
CLR
BISB
ADD

000015

BEQ
ASL
MOV
ASL
ASL
ADD
BR
INSTER
BR

(R5)+,10%

# INBUF ,R&

#15, (R4)
33
(R4).#'0
3s
(R4).A'Y
33
#'0.(R4)
R2
(R4)+,R2
R2,RS

#15, (RG)
4
RS
R5,R2
RS
RS
R2.RS
1%

020537
101373
020537
103770
133705
001365

025704
025702

025710

A ¥

cMP
BHI
CMP
BLO
BITB
BNE

X2
:SAVE X2
1X4
X8
:TIMES 10

;TEST TO SEE

025644
025650
025652
025656

IF NUMBER IS WITHIN LIMITS

RS,7$
_.3%
RS,6$
38
9%.RS
3s

;STORE NUMBER AT SPECIFIED ADDRESS

025672

TEST

s CLEAR LAST ERROR P(
;CLEAR ERROR FLAG

XBEGIN

MOV
MOV
MOV
MOVB

MOov8

000060

b
d

CLR
CLRB

: MOV
.PARMD

000071

TYPE
MPASS

TEST

;CONVERT DECIMAL ASCII STRING TO OCTAL

025516

010620
000015

(WL VL LV LV TV AV LU LV [V [V, LW LV LV TV, LV, LV LV LV U, LV LV, JV, LV, LV, IV, IV, LV 1V IV, ]

SEQ 0104

013704
010524
062705

105337

025706

000002
225711

MOV
MOV
ADD
DECB

88 .R4
RS (R4)+
#2 RS
108

—

)

D and

d e

)

) e

[V IV 1V LV, 1V, JV VIV, ]V [V I ] N

b —

RERZESEIB
AR W
W

CZDZA-FO
CZDZAF .P1
025676
025700
025702
025704
025706
025710
025711

MACY1]

30A(1052)

1 1:03
26=NOV~79

8 9
26-NOV=79 11:06 PAGE 106
C2ZDZA D211 DEVICE DPIAGNOSTICS.

001372
000002
000000
000000
000000
000
000

BNE

68:

7%:

8$:

9¢%:

10%:

SEQ 0105

RTI

BYTE 9

.BYTE O

;COMPARE THE FIRST CHARACTER IN "HE TELETYPE INPUT
;BUFFER TO THE CHARACTERS 'E'' AND *'C*'
;IF
oIt

5145

025712
025716
025724
025732

000000
000040
000105

000103

010620
010620

V10620

177777
000002

THE CHARACTER IS f"CLEAR THE FLAG
THE CHARACTER IS ''C'' SET THE FLAG

: M0V
.PAWCH
BICB
cMP8

2s:

3s:

BNE
CLRB
B8R
€,2:)
BNE
MOVB
ADD
RTI

INSTER

a(SP) RS

#40, INBUF

JSET FOR LOUER CASE

#'E, INBUF

IS IT "

(RS)
2%

;000

#'C, INBUF

JIS IT 'C'' 2

#-1,(RS?
#2,(SP)

;3177

INPUT

;RETRY

.PAWCH

sTHIS ROUTINE CONVERTS LINE SPEED (LINESP) AND
sLINE NUMBER (SAVLIN)

BAERRIN2EI

—t el ed

d wmd

NN
NN VIWAWW

REGISTER USAGE.
013737
013700
005037
012702
00530y
© 100402
006302
000774
012701
010237
022137
001407
005721
001373
104402
012705
000402
011137
000205

001372
001372
026206
000001

026062
026206
026200

026204

SCT:
XTCRO:

MOV
MOV

XTCR1:

DEC

SET1:

MOV

1%:

CMP

026310
024234

026202

2%:
3s:

MOV
RTS

FOR DZLPR, DZTCR AND DZCSk

SAVLIN ,NUML IN
SAVLIN,RO
NUMTCR
#1,R2
RO
SET1
R2
XTCR1
#TABLE?2
R1

;SAVE SAVLIN
;COPY THE LINE NUMBER FOR L 00P CONTROL

;SET A DEFAULT OF LINE O OR NO LINES
;SET A BIT POINTER TO THE F IRST LINE
;REDUCE THE INDICATOR.IS IT MINUS YET?
;IF SO, R2 POINTS TO THE RIGHT L.NE

;IF NOT, MOVE THE POINTER TO THE NEXT LINE
;GO SEE IF THIS LINE 1S THE ONE

R2 ,NUMT(R
§R1)*.LINESP
$
(R1)+
1%

;COPY THE CORRECT BIT POINTER

(R1),SFEED
R5

;SET UP BAUD RATE

JMINVAL
#BAUD ,RS
33

;IS IT THE END OF
:NO

TABLE?

s INVALID BAUD RATE ,BEGIN AGAIN
;JUMP TO BAUD THRU RS

C2ZDZA-FO

CZDZAF .P1

5189

MACYT] 30A(1052)

26-NOV~79 11:03

5190
5191
5192
5193
5196
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207

026062
026064
026066
026070
026072
026074
026076
026100
026102
026104
026106
026110
026112
026114
026116
026120
026122
026124

000062
010070
000113
010470
000156
011070
000207
011470
000226
012070
000454
012430
001130
013030
002260
013430
003410
014030

5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
255(1)

026130
026132
026134
026136
026140
026142
026144
026146
026150
026152
026154
026156

014430
004540
015030
007020
015430
011300
016030
016040
016430
022600
017070
177777

5208

5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232
25332
5235
5236
5237
5238
5239

026126

26-NOV~79

11:06

PAGE 107

003720

000000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORC
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

50.
10070
75.
10470
110,
11070
135,
11470
150.
12070
300,
12430
600.
13030
1200,
13430
1800.
14030

;50 B8AUD
;
;75 BAUD
;
;110 BAWD
;TW0 STOP BITS
;134.5 BAUD
;TWO STOP BITS
1150 BAUD
T\\O STOP BITS
;300 BAUD
SONE STOP BIT
1600 BAUD
:ONE STOP BIT
;1200 BAUD
SONE STOP BIT
1800 BAUD
;JONE STOP BIT

LWGRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

14430
2400.
15030
3600.
15430
4800.
16030
7200.
16430
9600.
1707C
-1,0

;ONE STOP BIT
;2400 BAUD
JONE STOP BIT
;3600 BAUD
;ONE STOP BIT
;4800 BAUD
JONE STOP BIT
;7200 BAUD
;ONE STOP BIT
;9600 BAUD
:
;TABLE TERMINATOR

026162
026164
026166
026170
026172
026174
026176
026200
026202

000000
000000
000000
000000
000000
000000
000000
000156
006307

WCHFLG:0
STFLG: O
LOCKUP: 0
LAST:
0
TDATA:
0
RDATA:
0
BYTCNT: O
LINESP: 110.
SPEED:
6307

026204

000100

NUMLIN:

026206
026210
026212
026214
026216
026240
026274
026310
026336
026366

000001
000240
000000
000000
053200
041600
050200
044600
046200
041200

NUMTCR: 1
PRIO:
240
RECDAT: 0
TBUF:
0
MVECTO: .ASCI”
MREGAD: .ASCIZ
MPASS:
_ASCIZ
MINVAL: .ASCIZ
MLINE:
.ASCIZ
MSPEED: .ASCIZ

047524

051124
020123
046101
035105
020104

SEQ 0106

;iHE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR)

LWORD

047117
051501
053116
047111
052501

CZDZA D211 DEVICE DIAGNOSTICS.
TABLE2:

041505

100

2000.

;2000 BAUD

JECHO OR CABLE FLAG
;PROGRAM START FLAG
;TIMEOUT FLAG
;LAST ERROR PC

;DEFAULT BAUD RATE
;DEFAULT 110 BAUD, 8 BITS/(HAR,

;FDX, 2 STOP BITS
;DEFAULT VALUE, REC.

INTERRUPT ENABLED

;DEFAULT VALUE,TCR BIT 0
;DEFAULT DEVICE PRIORITY S
<200>/VECTOR ADDRESS- /

<200>/CONTROL REGISTER ADDRESS- /
<200>/PASS DONE./
<200>/INVALID BAUD RATE - /
<200>/LINE: /
<200>/BAUD RATE - /

CIDZA-FO
CZDZAF .PI

026364

MACY1]1

30A(1052)

26-NOV-79 11:03

26-NOV=79
11:06 PAGE 108
CZDZA DZ11 DEVICE DIAGNOSTICS.

050131

020105
044103
044515
046102

042510

050440
177412

177777

1774612

MCHAR:
MWHICH:
MTERM:
MCABLE:
MQUICK:

EVE

.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
._ASCII
LASCII

SEQ 0107

<200>/TYPE A CHAR. ON DZ11 TERMINAL /
<200>/WHICH TEST ? ECHO OR CABLE (E OR () 7/
<200>/TERMINAL ECHO TEST /
<200>/CABLE TEST /
<377><15><377><377><12><377><377>
/THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/

JASCIT

«377><155<377><377><12><377><377><377><0>

":tttttttttttttttttt"t"'ttt'.QQQ.'.Q.Q'.Q.QQQ.!.QQ'Qt.t'ttt

SUTILITIES

" 2232202222203

026652
026656
026662
026666
026672
026676
026704
026712
026720
026724
026730
026734
026740
026744
026750

027060
027060
027060
027060
027060
027060
000001
000037
002072
000002
002074
000002
002076
000002
002100

027062
027062
027062

026772
026774

001310
002042

2233232222323

223223

]

;THIS UTILITY CALCULATES PRIORITY LEVEL,SETS UP CSR'S,.SETS UP VECTORS.
DILEV:
ASL
DZPRT
;BUILD PRIORITY IN THIS LOCATION
ASL
DZPRT
SUSING ARITHMETIC SHIFTS, ROTATE
ASL
DZPRT
:
THE PRIORITY LEVEL PAST
ASL
DZPRT
:
THE BIT POSITIONS CORREASL
DZPRT
SPONDING TO THE CONDITION CODES

MOV
SUB

DZPRT,LESST
#1,LESST

IMOVE THiS TO LESS?
*CREATE THE NEXT LOWEST PRICRITY

MOV
ADD
MOV
ADD
MOV
ADD
MOV

DZRIV,RO
#2 RO
RO.DZRIS
#2,RO
RO.DZTIV
#2.RO
RO.DZITIS

:PLACE THE BASE VECTOR ADDRESS IN RO
*CALCULATE THE RECEIVER INTERRUPT STATUS ADDR.
:STORE IT MERE
SCALCULATY THE TRANSMITTER INTERRUPT VECTOR
SSTOBE IT HERE
*CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS
SSTORE IT HERE

BIC

;THIS

026754
026760
026764
026766

2222220232328 82222232

*OF

SEGMENT

THE DEVICE

002044

002046
002052

MOV
MOV
INC
MOV
INC
MOV
MOV

INC
MOV
MOV
INC
MOV
INC
MOV
INC
MOV
MOV
INC
MOV
MOV

002050
002054

002056
002060
002062
002066

002064
002070
DZPRT:
LESS1:

RTS

PRS
PRé&

#37,LESS1

SETS UP POINTERS

$BASE ,RO
RO,DZCSR
RO
RO,HDZCSR
RO
RO, DZRBUF
RO.DZLPR
RO
RO, HDZRBUF
RO.HDZLPR
RO
RO,DZTCR
RO
RO,HDZTCR
RO
RO,DZMSR
RO.DZTDR
RO
RO.HDIMSR
RO.HDZTDR

:LEVEL

SINSURE THAT THE

FOR

THE

GIVEN NZ11.

TNZVC BITS ARE CLEAR

$SBASE

THE

BASE

ADDRESS

;COPY THE ADDRESS BEING LOADED
*XXX0

S XXX
SXXX2
SXXX2

S XXX3
SXXX3
S XXX
XXXS
: XXX6
S XXX6
S XXX7
S XXX7

TO ALLOW INTERRUPTS

CIZDZA-FO
CZD2AF .PI

MACY11

30A(1052)

26=NOV=79 11:03

5286

26=NOV=79 11:06 PAGE 109
CZDZA D211 DEVICE DIAGNOSTICS.
.ERRTAB:

9
SEQ 0108

;ERROR ERROR TABLE
8

;ERROR

027070

027072
027074
027076

:ERROR

030752

em
DH1
PR

027100
027102
027104

027357
030577
030764

EM?
DH2
DT2

;ERROR

027106
027110
027112

027405
030632
031002

EM3

;ERROR

027114
027116
027120

027444
030632
031002

EM4
DH3
D13

;ERROR

027122
027124
027126

027473
030644
031010

EMS

;ERROR

027130
027132
027134

027522
030644
031010

EM6E

:ERROR

027136
027140
027142

027560
0306%2
031002

EM7
LH3
D73

;ERROR

027144
027146
027150

027621
030632
031002

EM8

;ERROR 10

027152
027154
027156

027663
030632
031002

EM9
DH3
DT3

;ERROR 1

027160
027162
027164

027721
030632
031002

EM10
DH3
DT3

;ERROR 12

027166
027170
027172

027760
030632
031002

EM13
DH3
DT3

;ERROR 13

027174
027176
027200

030011
030632
031002

EM14

;ERROR 14

027202
027204
027206

030043
000000
000000

5M15

sERROR 15

DH3
D73

DHé
DTS4

DHS
DT

DH3
DT3

DH3
D73

CZDZA=FO
CZDZAF.P11

MACY11 30A(1052)
26-NOV-79 11:03

26-NOV=79
11:06
PAGE 110
(ZDZA DZ11 DEVICE DIAGNOSTICS.

5342
5343
5344
3345

027210
027212
027214

030105
030632
031002

EM16
DH3
D3

5347
5348
2349

027216
027220
027c22

030156
030632
031002

EM17
DH3
D3

5351
5352
3353

027224
027226
027230

030214
030632
031002

EM20
DH3
D13

6355
5356
3337

027232
027234
0272%

030255
030673
031026

EM21
DHS
DTS

;ERROR 21

5359
€300
3361

027240
027242
027244

030305
030644
031010

EM22
DH4
DT4

;ERROR 22

5363
5364
2365

027246
027250
027252

030347
030632
031002

EM23
DH3
DT3

ERROR 23

5367
5368
339

027254
027256
027260

030377
030632
031002

EM24
DH3
DT3

5371
5372

027262
027264

027266

030425
030632

031002

EM2S
b3

5375
5376
3377

027270
027272
027274

030455
030632
031002

EM26
DH3
pT3

5379

027276

030504

EM27

2373

5380
5381

027300
027302

030632
031002

DT3

DH3
DT3

SEQ 0109

:ERROR 17

(IDZA~FQ
(ZDZAF .P1N
5382
5383

027304
027357
027405
027444

027473
027522

027560
027621
027663
027721
027760

MACY11 30A(1052)
26=-NOV~79 11:03

047200
200
200
051200
200

042200
052200
200
200

020117
042522
051124
041505
040504

EM1:

044523
041501
042522
052101
041505

040522
054105
047111
050130
054124

;ERROR MESSAGES
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
LASCIZ

0461M

030554
C30577
0.,0632
030644
030673

030764
030766
030770
030772
030774
030776
031000

046123
044507
047101
044505

030532
040522
047125
042522
047125

042522
047515
040504
040504
051106
040520
046125

030752
030754
030756
030760
030762

11:06
PAGE 11
26=NOV=79
CZDZA D211 DEVICE DIAGNOSTICS.

LASCIZ
.ASCIZ

LASCIZ
LASCIZ

LASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

044522
020114

LASCIZ
LASCIZ

020120
042520
020105
041505

.ASCI2
LASCIZ
LASCIZ
LASCIZ
LASCIZ

046040

<2C0>/NO SLAVE

001202

001

000003
006
001214
006
001212
006
001202

000001
003
001372
000003
006
001214
006
061212

.BYTE
$REG!
.BYTE
$REGO

004

DT?2:

001

.BYTE
$REGS
.BYTE
$REGO

001

004

001

3
.BYTE
$REGS

DT3:

DT4:

.BYTE
$REGS
.BYTE
$REG4

SYNC RESPONSE

FROM DZi1

<200>/TRANSMIT READY (TRDY) NOT SET/
<200>/RECEIVER DONE NOT SET/
<200>/DATA COMPARISON ERROR/

200>/D211

«RECEIVER BUFFER* ERROR/

~.JO>/TRANSMITTER FAILED TO INTERRUPT/

<200>/UNEXPECTED TRANSMITTER INTERRUPT/
<200>/RECEIVER FAILED TO INTERRUPT/

<200>/UNEXPECTED RECEIVER INTERRUPT/
<200>/SILO ALARM SET TOO SOON/
<200>/SILO ALARM FAILED TO SET/
<200>/ACTION DETECTED ONSINVALID LINE./
<200>/READING DZRBUF DID NOT CLEAR SILO ALARM/
<200>/DATA VALID SHOULD NOT BE SET/
<200>/RECEIVER DONE SHOULD NOT BE SET/

<200>/RELATIVE TIMING ERROR./
<200>/MODEM SIGNAL ERROR ON CABLE
<200>/DATA VALID IS NOT SET!/
<200>/DATA OVERRUN IS SET!/
<200>/FRAMING ERROR OCCURRED/
<200>/PARITY ERROR OCCURRED/

<200>/FULL BINARY COUNT PATTER*

TEST/

NOT RECEIVED/

<200>/TRAP PC
D211 REG/
<200>/EXPECTED
FOUND
REGISTER/
<200>/LINE NO./
<200>/EXPECTED
FOUND
LINE/
<200>/TX LINE PREVIOUS TIME
ACTUAL

6.3
6.1

6.4

6.1
6.1

BYTE
SAVLIN

SEQ 0110

<200>?REGISTER R/W FAILURE?

éDATA TABLES

003

3.1

6.4

6.1

FOR ERROR MESSAGES

TIME

PARAMETER/

(ZDZA-FO
CZDZAF .P1N

031022
031024

MACY11

30A(1052)

003
001372

001

26-NOV=79 11:03

005

11:06
PAGE 112
CZDZA DZ11 DEVICE DIAGNOSTICS.
.BYTE
SAVLIN

DTS:

007
001

SEa 0111

3.1

.BYTE
SAVLIN
.BYTE
$REGS
.BYTE
$TMP

JBYTE

REGIST

3.5
6.9.
6.7
6.1

;TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES
FOR
FOR
;TIME
JTIME FOR
JTIME

cTIME
. TIME
; TIME
. TIME
;TIME

FOR

FOR
FOR
FOk
FOR
:TIME FOR
;TIME FOR
;TIME FOR

50 BAUD
75 BAUD
110 BAUD

134 BAUD

150
300
600
1200
1800
2000
2400

BAUD
BAUD
RAUD
BAUD
BAUD
BAUD
BAUD

. TIME FOR 3600 BAUD
;TIME FOR 4800 BUAD
. TIME FOR 7200 BAUD

DLYTBL:

—_— )

002450
001560
001120
000750
000660
000330
000150

—SPNOWESO AN
b OO OOOOCOOOOOO

FOR 9600 BAUD
OF
DELAY FOR 19200 BAUD
s TIME

; TIME

031050
031052
031054
031056
031060
031062
031064
031066
031070
031072
031074
031076
031100
031102
031104
031106

=N
se

031026 000004
031030
003
031032 001372
031034
006
031036 001214
031040 s
006
031042 001220
006
(41044
031046
001400

26=NOV=79

;DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE

;FOR ALL
<MEMORY.

031110
002362
002364
001512
011572

002362
000240
000240
001512

CORMAX:

.=2362

NOP
NOP

.=1512

100000

105720

TSR

011572
000001

TESTS TO FUNCTION CORRECTLY ON A PDP11/45 WITH BIPOLAR
THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10.

.=11572

.END

+
(RO)

)

b —d

d e

)

) —d

wd comd ad

b ok e

d e

b oD e

=D —

AENV
=
AENWM =

puy b

)

b —d —d

G0 00 00 00 G0 o 0o 0o Q0 OO 00 o
SNNNNNNNNNNNN ~N

—

SNNNNNNNNNNNNNNNNNY

2
3'

3
2

2218«
2869

2613
2615+
2620
2621
2622
2625+

22284
3123
3313
3327
33N
3380
3517
4057

21374
2093
21354
2410

2095

2136w

8383

2612

IASIASLAS LN B R
e A S AN JAS oS 1 S 1, S 1,8 N By —
O NN =2 =00 OOV
=ONIN) — N S =2PVOVRNNONOWVNOWN

26=NOV=-79 11:03

30A(1052)

8@@@\‘
NNNO

[N Y Y
S
S
N
g
S
i
G
R
S
—
—l—l-—‘—.—h—l—l—l—l—‘—l—l—l—‘—)—l—l—‘f\)—l—d —~
oo 00 00 G0 00 00 0o Co 0o 0o GO OO GO OO 00 0o 00 00 OO

ADDWO =
ADDW1 =

ded e

ACT]IVE

160010

md emd

ABASE
ACDW1
ACDW2

CZDZAF .P1N

MACY11

—

CZDZA-FO

26-NOV-79
CROSS REFERENCE

2718#
1200
11N
1194
1201

11:06
PAGE 114
9

TABLE == USER SYMBOLS

SEQ 0112

1228

4173
4418
4463

6577

BIT11

= 004000

BIT12
BIT13
81714
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8

=
=
=
=
=
=
=
=
=
=
=

874N
3174
8734
8724
871
8704
8934
8924
8914
890~
8894
8884

BIT9

= 001000

BPTVEC=
BRKO
=
BRK1
=
BRK2
=
BRK3
=
BRK4
=
BRKS
=
BRK6
=
BRK7 =
BRW
BUILD

BYTCNT
CHRCNT
CNVRT =
CONVRT=
CORMAX
COUNTO
COUNTT
C00
=
col1
=
02
=
co3

010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

000014
000400
001000
002000
004000
010000
020000
040000
100000
005232
023526

026176
006624
104412
104411
031110
023404
023406
000400
001000
002000

23044

8954
8854
884a
883#
8824
8814
880#
8794
878#
8774
8764
894k
8754

1008

978

1015

1034

3174

974
943
1010
1005

977

978
945
1025
1007

1016

1035

3174

1008

1009

1010

1027
1047
1048
1049
978
985
986

1046

1058

5048

951
952
953
954
976
981
982

984

989
990
941

887#

1009

1005

8864

SEQ 0113

974

1010

944
1011
1006

994
1028
1029
1030
977
983

985
1021
1022

1011
944

1187
1187
(8624

000000
000000
024234
006626
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

AVECT1=
AVECT2=
BAUD
BINWRD
=
BITO
B1T00 =
BIT01 =
BIT02 =
BITO3 =
BIT04 =
BITO5 =
BIT06 =
BIT07 =
BITO8 =
BITO09 =
BIT1
=
BIT10 =

11:06
PAGE 115
CROSS REFERENCE TABLE == USER SYMBOLS

26-NOV-79 11:03

26-NOV~79

30A(1052)

MACY11

(IZDZA~FO
CZDZAF .P11

1040
1041
945
1023

1011

1024

1880

1883

1886

4662+
4663~

46704
L6714

3329

4546

4602

966

1000

1001

1002

1003

1026

1045

1057

1965

5042
2630
3174

2761

4514
6514
1039

4516

2730

2740

2811

2474

966

2731
997

2738
999

2813
1001

1003

966

998

999

1002

1003

19844
4749

2283«
1878
1808

4628+
4630+

23014

2407

2389

2391

2393

2448

(ZDZA~FO
CZDZAF .P11
(04
=
(0S5
=
(06
=
C07
=
=
CR
CRLF
=
CSRMAP
CYCLE
DATABP
DATAHD
DCLASM=
DCLR

010000
020000
040000
100000
000015
000200
011620
011070
007220
007206
104417

= 000020

ODISP = 177570

DELAY = 104414

DEVADR
006350
DEVICE= 104413
DM1
DHZ
DH3

030554
C30577
030632

DH4
DHS
DISPLA
DISPRE
DLYCNT

030644
030673
001162
000174
006722

DONFLG
DSWR
=
DTRO =
DTR1
=
DTR2
=

001420
177570
000400
001000
002000

DTR4
DTRS
DTR6
DTR7?
T

010000
020000
040000
100000
030752

DLYTBL

DTR3

= 004000

=
=
=
=

D12
D13

DT4
DTS
DVAL ID=
DZACTV
DZCRO
DZCR1
DZCR10
DZCR11
DZCR12
DZCR13

DZCR14

031050

030764
031002

031010
031026
100000
001404
001500
001514
001640
001654
001670
001704

MACY11

30A(1052)

26-NOV-79 11:03

10464
10474
10484
10494
8104

8114
27214
1857

2378+
2377+

14974
4539
9274
81/#
164914

3636

6121

2179«

14894

3410
5033
5292
5296
5300
5372
5308
5356

11584
11204
1693~

1783

12994
8164
10234
10244
10254
10264
10274
10284

K
9
11:06
PAGE 116
CROSS REFERENCE TABLE == USER SYMBOLS

26-NOV-79

2071
2042

2081
2081

2381
26401
3651

1908

2601#
2405
2604H
3538

2324

2748
3659

4595

1158

2215
2331
3631
53834
53834
5304
537¢
5312
53834
1580+
1580
1783+

53834
3619«
1157

SEQ 0114

24084

3915

4023

4075

4205

3422
3889

3472
3950

3495
3958

4044

4051

4105

4967

3250

3276
4989

3315
5009

5348

5352

5364

9368

5345

5349

5353

5365

5369

2782+

2787

2806

3621

3709

3770

3839

2325

2885

3212

3224

3232

3192
3677
4237

3339
3745

4257

3345
3794

6914

3386
3817
5000

3392
3864

3680

2963
3828

2995

3900

4399

4870

4903

4924

4927

5316
5380
5360

5320
53834
53834

5324

5328

5332

5336

5344

1977«

2420

1833

2337

23424

4314

3651

3673«

5317
5381
5361

5321
53834
53834

5325

5329

5333

5337

3491
1823~
1622

3584

3741
2601
2784

4148

4652

2778+«

22264
2931

3027

3059

3094

3140

3210

3511

4288

3565

4465

3588

3119

1824
1707

2607

2687+

CZDZA-FOQ
CZDZAF .PY
DZCR1S
DZCR1&
DZCRI?
DZCkg
DZ.R3
DZCR4
DZCRS

DZCR6
DZCR7
DZCSR

001734
001750
001764
001530
001544
001560
001574
001610
001624
002042

MACY1]1 30A(1052)
26-NOV~-79 11:03

9
11:06
PAGE 117
CROSS REFERENCE TABLE == USER SYMBOLS

26-NOV=79

1438#
14454
1452#
13614

13684
13754
13824
1389#
13964

15054
3211

1912

3411

3662

3880+

4048
4245
4623+

DZILEV
DZLPR

026652
002052

DZLVO
DZLV1
DZLVIO
DZLV11
DZLV12
DZLV13
DZLV14&
DZLV1S
DZLV16
DZLV17

001504
001520
001644
001660
001674
001710
001724
001740
001754
001770

DZLV3
DZLV4
DZLVS
DZLV6
DZLV7
DZMSR
DZNUM
DZPRT

001550
001564
001600
001614
001630
002062
001410
027060

DZLVZ2

DZRBUF

SEQ 0115

2324+
3462%
3683
3883

4964+

4054
4251
4626
4972

6294
1644

4467
1647

L4778
1665+

2862

3277

2629

2630+

52444
3184

3253«

2844
3493
3787+
3943
4103
4307«

2325
3466
3721«
3898+
4091+

4255

4701«

4664
4978«

5036

3261+«

3543«

4605+

2884
351«
3789
3948
4113
4308+

4720

5071

3625

2916

352
3804+
3956
6119
4329
4762+
5263+

3715«

4848+

4908+

2768
3807

5001

2948
3555+«
3809+
3962
4153
4354

4179«
4362
4846

4183+
4498«
4909+

3775«
4932+

3844w
5020+

3920+
5268+

3855
5246+

3878
5247«

4843

2980
3559
3812
3967+

3012
3563

3856+
3968+

3044
3858

3172
3632+
3870+
4033+

4007+
4188+
4500
4912

4223+
4567
493G+

4028+

4080+

«On
YU

001534

002046

DZRIS

002074

DZRIV

002072

DZTCR

002056

DZTDR

002066

DZTIS

002100

77N

914

3374
2726+
3785

4855+

4566

4621

4622

5277+
2774
3808
5244~

4495

4496

3314
1889
3780«
4565

2850

3251
4357

4637

3499

3553
4648

3592
4723

3666
4728

3687
4846+

4847

4848

4849

4949

3785+«
4621+
1915
4564+

3807«
4934
2627+
4620+
3075

3854«
5015+
3784
4835
3118
3850«
4624+

3878+
5254+
3806+
4933+
3185+
3939«
4699+

3926

4008

4009+

4222+

4303~

3853+
5014+
3417+

3877«
525¢
3465+
4040+
4850«

3925+«

4008+

4097+
4851

3504+

3558+
4167~
4853

3654+
4854«
4010

3727+
4855
4011+

64919+
4305+

1561

4228

2856
3756+
4497+
3279
4241
3786+
5017+

1698«

3781«

4568+

3286+
4253
3808+

5258+

3476«

43466

3855+

3523«

4686+
3879~

2767+
3786

4849+

3569+

4853«

3928«

2776
3854

5245+

3722

3810«

3879

3926

5248+

5249

3978

4149

44614

44615

4495+

4221+

4250+

4302+

4414w

4182+
4905+

3599«

3631+
4233+
4971«

3649+
4271«
4979+

3657+
4309+
5022+

3881+«
L4977+
64616

3954+
5074+
L4417

4049+
5278+
4496+

4109+

3749

3940

5039

4566*

C2ZDZA-FO
C2ZDZAF P11
DZTIV
D2V

MACY11 30A(1052)
26=-NOV=79 11:03

002076
=

wennne

;gggfi

2522'

3805+

3852«

1632

1635

2827

2613
1564
3121
4452

001502
001516
001642
001656
001672
001706
001722

13484
13554
14044
16114
16418#
14254
14324

DZVC16

001752

16464

001576
001612
001626
002000
001500
001414
000030
000070
000030
027304

13834
13904
1397#
14594
1290
12954
9834
9874
9054
5291

1604
13454
2629+
4449

030156

5347

53834

D2VC17
DZv(2
DZVC3
DZV(C4

DZVCS
DZvC6
DZVC7?
DZ.END
DZ.MAP
EIAFLG
EIGHT =
EIGHTS=
EMTVEC=
EM1

EMTO
EM13
EM14
EM15
EM16

eEm?

EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM4
EMS
EM6
EM7
EM8
EM9
ERRMSG
ERRVEC=
ERTABO
EVEPAR=
EXITER
FINI

001736

001766
001532
001546
001562

027721
027760
030011
030043
030105

027357
030214
030255
030305
030347
030377
030425
030455
030504
027405
027444
027473
027522
027560
027621
027663
007174
000004
007344

007300

021772
FIVE
= 000000
FIVES = 000040

SEQ 0116

3876«

3927+

4010+

4180+

4304r

4416+

4493%

2622
1601
3311

2724
1803
3372

2615

2625

2673

2721

2727

2798

1955«

1958+

2575

DZVvCO
DZv(
DZvC10
DZVC11
DZvC12
0ZvC13
DZVC14

DZVC1S

26-NOV=-79 11:06 PAGE 118
CROSS REFERENCE TABLE =-- USER SYMBOLS

14354

14534
13624
13694
13764

5327
5331
5335
5339
5343

5295
5351
5355
5359
5363
5367
5371
5375
5379
5299
5303
5307
5311
5315
5319
5323
2376
8984
2391
99
2419
4325
9804
9844

53834
53834
53834
53834
53834
5383

5383«
53834
53834
53834
53834
5383«
53834
53834
5383«
53834
53834
53834
53834
5383#
53834

53834
2396
1952
24314

24224

44134

23994
1953

4563

4619+

MACY11 30A(1052)
26-N0OV-79 11:03

FRMERR= 020000

010620

= 0000

O8#

11:06
PAGE 119
CROSS REFERENCE TABLE -- USER SYMBOLS

3225+
5271«
5280+
5270
3338%
3726+
2206
2040
2184

4332

1746 *

1799
4677

1801+
5265+

3344w
3753«
22254
2081
2543«

3385 |
5281 ]

3391«

4851+

4852+

4995+

5275+

2544

2549

2554

25684

4957+

4958+

4965

5096

5148+

5149

1588+

1596

1606+

1732+

1794

2720+

2560

115
639

5158
1674

1681

1738

1771

1828

2640

4830

4838

4858

4935 L 4

5021+

5249+

5250+

5251»

52844

3376
3918
4403

3415
3931
4450

4026
4544

3454

3463
4035
4568

4078

4600

4092

4624

3630
4208

4225

1753

1779

2385
3605+

2855+

2861+
4204~

4277+

1592«

001415
021252
021276
104404
104403

1583
4297
4301

INSTR2
INTRAN
INTREC
INTSVC
10TVEC=
LAST
LESST
LF
=
LIMITS
L INE

006146
025456
025276
024642
000020
026170
027062
000012
006274
001364

21674

026200
024252
001506
001522
001646
001662
001676
001712
001726
001742
001756
001772
001536
001552
001566
001602

4726

4368

INIFLG
INIT
INITY
INSTER=
INSTR =

LINESP
LINEX
LINEO
LINET
LINETO
LINET1
LINET?
LINET3
LINET4
LINETS
LINET6
LINE17
LINE2
LINEZ
LINE4
LINES

SeQ 0117

371
24104

2200
1614

4872

50714
50354
L946N
2828«
5083+
3871~
2075
2206¥
2631«
3842
4342
5177
4942
1690

1602+

1627

52264
4310+
2081
3322
3850
4376
52304
5029
1743

3541

3556

3713

3723

3773

4289

4292

3120+

3159+

4 34n
4 414

4554
3
3

2210

2227H

3368+
5030«
2208

3450+
5035+
2224H

1992

1994

Vi~ oo
Ny »»

INBUF

006346

A=t —d b d
b
IV, 1V, ]V, 1V, 1V, 1V,]

HTY

HILIM

007224
001416
002044
002054
002064
002050
002060
002070

HALTS
HORFLG
HDZCSR
HDZLPR
HOIMSR
HOZRBU
HDZTCR
HDZTDR

26-NOV=79

|9, IV ,8)
[AS AV,
1V 7]
O

«IDZA~FQ
CZDZAF P11

2843+
3706+

2849+
3759«

4074+

3077+

3106+

4444

4994+

CIZDZA-FO

CZDZAF P11

LP2
LP3

LPG
LPS

LPR

LP?7

= 00K,
= 000007

000010
001512
001526
001652
001666
(01702
001716
001732
001746
001762
001776
001542
001556
001572
001606
001622
001636
010314
010423
026517
026364
010244
010724

010063
010371
010271
010122
010171

026310

“ 0OCK
M EW
MJITFLG

010215
010317
001417

MODE

MPASS
MPASSX
MPFAIL
MAUICK

PAGE 120
11:06
CROSS REFERENCE TABLE -- USER SYMBOLS

MTERM
MTITLE
MTSTN
MVECTO
MVECX

2917
2785

3213

3226

2633«

1982+

2332
3318

2547
3369

2552+
3478

2557«
3571

3186
3880

3187
3929

3213
4033
4964

3226
4048
4978

40N

2531
2531»
52394

52394
2392
2291
2531»

25314
25314

25314
25724

2789

026336

001370

3707

3729

3982

4136

3462

3555
4223

4308

4468

4537

026274
010260
010020
026534

010106

MREGAD
026240
MSENAB= 000040

MSPEED

SEQ 0118

= 000004
=
5

MINVAL

ML INE

8 10

26=-NOV=79

= 000002
= 000003

MAINT =
MANTO
MANT
MANT10
MANTT11
MANT1?2
MANT13
MANT14
MANT1S
MANT16
MANT17?
MANT?
MANT3
MANTS
MANTS
MANTo
MANT?
MASTEXK
MBADIN
MCABLE
MCHAR
MCSRX
MDATA

MEPASS
MERRPC
MERRX
MERRZ2
MERR3

MACY11 30A(1052)
26-NOV~7% 11:03

4909

(026346

026472
001000
010302
026216
010252

25314
52394
2531»

2641

4936

3612
5013

3418

6179

4188

3632

372

4498

3787

4567

CZDZA-FO

CZDZAF .PN
MMHICH

001360

NOLIST=

nevnnn

NUMLIN
026204
NUMTCR 026206
ODDPAR= 000200

OFFSET

PAR

023766

000000
024214
021720
040000
001366

PARAM = 104405
PARAM1
006214
PARER = 010000
PARERR
006270

PARESE
PARITY=
PARMD =
PARO
PAR1
PAR10
PAR11
PAR12
PAR13
PAR14
PAR1S
PAR16
PAR17

023232
000100
104415
001510
001524
001650
001664
001700
001714
001730
001744
001760
001774

PAR3
PARS
PARS
PARG
PAR7
PAWCH =
PIRQ
=
PIRQVE=

001554
001570
001604
001620
001634
104416
177772
000240

PARZ2

POPRO =
POP1SP=
POP2SP=
PRIO
PRO
=

001540

012600
005726
(022626
026210
000000

PR1
PRZ
PR3
PR4
PRS
PR6
PR7

=
=
=
=
=
=
-

= 177776

3CA(1052)

26-NOV-79 11:03

4859
1714

026424

ONFSTO=
OTHER
ouT
OVRRUN=

MACY11

3209+
3914+
781

4906
4905
990#
4445+
9914
4822

c 10

26=-NOV-79

11:06
PAGE 121
CROSS REFERENCE TABLE =-- USER SYMBOLS

52394

2347
3249

24627
3275+

4928
4971

5011
4995

4022

371

4660

4073

4541

4509+

2840+
3309«

4203

5167«

4997
(548
4751

2047«
3409+

SEQ 0119

6443

4536+

2979+
3449+
4592+

4999
4550
4755

5022
4597
L7644

5169+
L604

4606

2883«
3320

4287+

52334

2915+
3367«

3011w
3536«

4926+

5176+

52354

3043+
3618+
4988+

3074+
3705+

3117«
3769+

3171«
3838«

4206

48564

43984
4160
2632+«
4540

(368
3452
4596

4726

4906%

4907+

3622

3674
4908

3710
4928~

4929+

4931+

3840

3916
4932

4024
5010+

4076
5011«

1616

1629

1641

1683

1740

1773

1830

2642

4832

4840

4874

4368
2170
46374
4542

4646
22004

4652
2207

4726

2209

221

4598

1776

1780

2824
5017

3869
52364

3897

4001

4006

1101

1559«

1848«

2842

3936+

6222

4303

4305

4398+

4814+

2201
3741
2188

4620
3711
4864

1691

3539

377

5012+

1790

4860

1578
5015

000040
000100

000140

000200
000240
000300
000340

5284
5283
1097

4986+

813

4882+

CZDZA-FO

CZDZAF .P1

PSW
=
PUSHRO=
PUSH1S=
PUSH2S=

177776
010046
005746
024646

QUITS

025270

PWRVEC= 000024

RCVON =
RDATA
RDONE =
RECDAT

010000
026174
000200
026212

REGIST
RESREG
RESTAR
RESVEC=
RESOS =
RIE
=

001400
007222
011434
000010
104410
000100

RINGO = 000001
RING1 = 000002
RINGZ = 000004

RING3
RING4
RINGS
RINGS
RING7
RLO

RL1
RLZ
RL3
RL4
RLS

=
=
=
=
=
=

MACY11 30A(1052)
26-NOV-79 11:03
8134
9174
9154
9194

D 10

26-NOv=79

11:06
PAGE 122
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0120

2493w

2494

2503+

2509

2521+

2522+

3623

44649

4452

4466

44677

5012

3174
4952
060

3466
4956

4957

4959+

4960+

3586

3743

3812
5042

3883
5045

5048

3956

4054

5053

5058+

4487+

L6487

5383

4762

3968

4007
5013

4223

4306

4498

4500

4567

3547+
3848+

3570
3924

3601
3992

4407«
4759+

3620+
4032+
4409+
4760+

L446%
4877

4168

4189

6272

3553«
26094
26664

52374
3722+

3493

3514

3559

2409
3013
4623

4626

3213

3226
4668

1565+~

2607

2610+

4392+

L4194

4135
4554
5167
1699~

4169+
4610~
5168
1887+

4231
4679

3103

3146

24374

2444

3809

3880

4961

4936

4978

2618+

2619+

3505+
3755+

3506
3779«

5039«

000010
000020
000040
000100
000200
000000

= 000400
= 001000
= 001400
= 002000

= 002400
= 003000
= 003400
RSTART
021242
RSTRT
025512
RUN
001406
RXISR1
023554
RXSVC
021542
RXTCR
022020
SAVLIN 001372

RL6
RL7

SAVNUM

001411

SAVPC
001402
SAVOS = 104407
SCOP1 = 104401
SERV.G
SET
SETAPT
SETFLG=
SET.PS
SET1

007360
025766
011440
104406
010766
026020

4354

3632+
3689+

2433

3460+
3719«

4273+
4681+

4336w
4683~

6361
4739+

3600+
3933«
4379
4740+

3397

3503

3524

3596

3754

4921

4941

5028

4037+

2777+

(IDZA-FO
CZDZAF .PN
SEVEN =
SEVENS=
SILOAL=
SILOEN=
SIX
=
SIXS
=

000020
000060
020000
010000
000010
000050

SPACNT
SPEED
SPIN
STACK =
STFLG
STKLMT=
STOP
SVOS
SWR

006625
026202
025236
001120
026164
177774
001462
006362
00:'60

SNAP

021372

MACY11 30A(1052)
26-NOV=79 11:03
9824
9864
9324
9314
9814
9854

43134

23024
4907
50254
8034
4816+
8144
13184
22374
11574
1947

2461
SWO
SWO0
SwWO1
SwW0Z
Sw03
SWO4
SWO5
SwO6
Sw07
SwO8
SWO9
Sw1
Sw10
SW11
SWi2

=
=
=
=
=
=
=
=
=
=
=
=
=
=

000001
0000G1
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

8674
8574
8564
8554
8544
8534
8524
8514
- 8504
8494
848«
8664
BL7a
8464
8454

SW14

= 040000

8434

=
=
=
=
=

8654
8644

SW13
Sw15

W2
Sw3
Swé
W5
w6

= 020000
- 100000

Sw7
=
SwW8
Sw9
=
$110
=
$1200 =
S134
=
$150 =
S1800 =
$19200=
S2000 =
S2400 =
=
S
$3600 =
S4800 =

000004
000010
000020
000040
00V1C0

000200
000400
001000
001000
003400
001400
002000
004000
007400
004400
005000
002400
005400
006000

844

8424

5634

8624
8614

859
8584
9984
10034
99
10004
10044
10114
10054
10064
10014
10074
“008¥

E 10

26-NOV=79
11:06 PAGE 123
CRNSS REFERENCE TABLE -- USER SYMBOLS

3174
2981

4113
3213

6119
4091

6153
6179

4265
4188

4255
6223

4929
SO31
1558
4B71+

5010
5068
1847
4888

5184~

5234

2428
489Cr

4813
4894

4883
6896

5224m

3550

4087

6217

4300

4455

4486

1575

1579«

1594

2462+

2463+

2470+

867
866
865
864
863
862
861
860
859
858

1594
2637

4821
4856

1694
1826

1728

SEQ 0121

6362

4393

1965

1990

1812
2423
1990

2425

1997
2360

2355

1997

1598

2355

2501

1694

2360

2514~

1728

2418

2637

4560
1796

2423

2706*

4616
1813

2425

4821

1818

2437

4856

1823

2445

4922

1826

2646

1851

24656+

(ZDZA-FO

CZDZAF .PI

S50
S600
$7200
S75
S9600

TABLE?2

TCR?

11:06
PAGE 124
CROSS REFERENCE TABLE

nnhn

-- USER SYMBOLS

SEQ 0122

4452

51904
4977
3076

523
318

TCR4
TCRS
TCP6

26=NOV=79
6449

TBITVE=
TBUF
TCRO

TCR1
TCR2
TCR3

30A(1052)
26-NOvV=/37 11:03

TDATA

D1
D2
103
D4

3548

3569

4253

4298

49038
49864

4923

3583
4346

3597«

6347

4453

4484

3881

4085
4558

4109
4614

4110+
4686

6215
4687

6241
4691

4242+

4701

3804

3856
5013

3870

3875

3967

4007

4183

4188

4307

4235

4251

4736

4762+

3810

105

TEIGHT
TEMP
TEST1

TESTZ2

TFIVE
TIE

TKVEC
TLAST

TLO
T

3045

4567

3213

3787

4623

4664

4752+

4756

4758

3179

3183

3412

3420

3470

3521

3563

3789

3858

6103

4381

4383

4389+

4390

4405

4651

4654

4656

4660+

754

53834

L2
TL3
TLG
TLS
TLé

TL7

TMTBL
TPVEC =
TRAPVE
=

CZDZA~FO
CZDZAF P11

TR?7

00214«
012374
013312
013450
013632
013750

TST15
TST16
TST17
YST2
TST20
TST21

014170
014254
014450
012564
014606
014732

TST14

015270
015616

T1ST24

016150

TST25 ~
1ST26
1S127
TST3

016426
016736
017264
012650

TST32
TST33
TST3,
TST3S
TST36

020632
021214
(022022
022532
022772

TST30
ST

TTST
TWOSTO=
TXSVC
TYPDAT
TYPE
-~

005010
000040
021444
007210
104402

71200
1134
T150
71800

12600

002126

14800

002132

17200

29454
29774
30094
30414
1856

013220

007100
002106
002120
002110
002112
002122

150
1600

40204
40714
42014
42854
L440M
4534a
45904

mexennn

012742
013034
013126

1300
13600

PAGE

125

G 10

TABLE == USER SYMBOLS

SEQ 0123

002124

002114
002130

002102
002116

002134

2664

2838#

3703
372674
3836w
39124
29134

017716
020104

TST4
TSTS
1ST6

12000

11:06

CROSS REFERENCE

2648
30724
31154
31694
3207#
32474
32734
33074
33654
2881#
3407#
34470
3534
36164

014100

1ST22
TST23

TYPMSG
1110

26=NOV-79 11:03

26=NOV=79

002142

TSIX
ST
TST1I0
TST11
T1ST12
TST13

T1S17

30A(1052)

001460

TSEVEN

TST37

MACY11

4449
43294

2402
1587
1885
2398
(937

23834

5
5
5
5
5404
414
5
p)
5

5383

1943

4452

24054
1656
2045
2403
5081

1759
2146

2647
5181

1760
2165

2449

1802
2258

2677

1815

2291
2523

1820

2383
2603

1853

2384
2639

1858

2387
2657

1876

2388
266!

1877

2390
2789

1879

2392

4861

(Z0ZA~FQ
C2DZAF PN
175
19600

0G2104
002136

VECMAP
VEC)

(012202
024032

VEC?2

024042

WCHFLG
WRDCNT
WIBS.F

026162
006622
007176

*3X

006766

XBEGIN

XCSR
XEOP
XERR
XHEAD
XMTCNT
XMTLIN
XMTSRY
XPASS
XSTART
XSTATQ
XTCRO
XTCR1
XTSTN
XVE(

- 000020

000500

SAPTHD

001462

$ATY(
$ATY

005606
005562

$ATYSL
$AUTOB

00 500
001154

$CMTAG
$CM1
$CM2
$CM3
$CM4
=
SCPUOP
$CRAP

$CRLF
$ODW0

17:06
PAGE 126
CROSS REFERENCE TABLE

H 10
»

"SEQ 0124

== USER SYMBOLS

2788

4821#
4823
4861

2266

2397°

1878
4926
1886
1802
1282#

160210

26=-NOV=79

15304
15434

004742
025476
004764
010376
0C1376
001374
023410
004756
023770
010466
025774
026010
007352
004750

$BASE
$8DADR
$BDDAT
$COW1
$CDWZ2
$CHARC

26=NOV=79 11:03

4857

$ATY3

30A(1052)

024302

SASTAT=

MACY11

2356

“1281#4
44693
1883
1125
1809

52234
23004

5085
23604
2393

4988

5034

5081«

4557«
L4657
4619

4613
64659
N6774

4691
4482

4815

51684
51714

2389

1880
13464
14374
13464
14374

13604
14514
13604
1451
13604
1451a

13744

13814

13884

13954

14024

14094

16164

1423

14304

13744

13814

13884

13954

14024

14094

164164

14234

14304

13742

13814

13884

13954

1602#

14094

14164

14234

14300

2784

5262

29654
3205#
35274

29754
32414
35324

30014
32454
36084
40654

3007#

sennen

005570
001310
007172
001”46
001314
001316
005556

001120
000006
000014
000006
000004
001262
177777

001231
001320

2626+

2674

2785+
2064

20784

11714
11714

11734
11734

11774

11794

28364
30654
33044
37604

28794
31074
33634
38294

2081
2685

2383

42834

44384

29374
31674
34364
39104

40184

2477

2657

4578#

40584

144
4193

(ZDZA-FO
CZDZAF .P11

$O0W1
$0DW10
$ODW11
$ODW12
$ODW13
$ODW14
$00W15
$O0W?2
$0DW3

$0Dws
$0DWS
$ODW6
$ODW?7
$00W8
$0DW9
$DEVCT
$DEVM
$D0AGN
$E

001322
001344
001346
001350
001352
001354
001356
001324
001326
001330
001332

001334
001336
001340
001342
001244
001312
004736
000040

MACY1]

30A(10S52)

26-NOV=-79 11:03

26~-NOV=79

11:06
PAGE 127
CROSS REFERENCE TABLE

110
SEQ 0125

== USER SYMBOLS

12334
12424
12463
12444
12454
12464

12474
12344

12354
12364

12374

12384
12394
12404
12414
11934
12294
1888
779#

1733+
1900

28414
3C74
33114
3769

1706

1818

2686

2787+

28844

2915
31184
3409
38394

29164
N
36104
3914

2947
31724
3449
39154

33694

3011
32504
3618

29484
3209
36514

4536

45378

46592

6022
45934

1875+

1963+

1986

2365+

2379

2395+

4819+

5084+

$ERRP(

1874+

2364

SERTTL
$E TABL
$ETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

1921

1985

2427

2429

2655+

2656+

2664+

$ENDAD
SENDCT
SENV
SENVM
$EOP
$EOPCT
$ERFLG

$E RMAX
$ERROR
$ERRTB

$GET42
$HD
=
$HIBTS
$ICNT
SILLUP
$INTAG
$ITEMB
$LF
SLFLG
$LPADR

$LPERR
$MADR1

42884
19024

4444

40744

3012#
3275
36194

4203

2093
2027

2115
2081

1972+

1985

1859
4887+

1976«
4893+

1978
4898

2666

26=NOV=79

(ZDZA-~FO
CZDZAF .P11

2 =2 SOwnannng
2ronn

J 10

TABLE == USER SYMBOLS

SEQ 0126

D D
d d ed D e e

Velo
V.1V]
REns»

001464
006024
001250
001252
001234
001265
001271
001275
001301
005234
000036

d b (\) b

001300

128

1336

1340

1975

2025

2091
2101+

2126
2104

21304

2099

2107~

2119

2123+

2832
2975
31184
3294
3532
38394

2836
2y804
3160
3305
3538#
3902

28414
3001
3167
33114
3608
3910

2884

2875
3007
31724
3353
3614
3915#

44622

2879
30124
3197
3363
3619
4012

2884n
3033
3205
33694
3693
4018

28804
33644
44394
1948
1562+

29124
34064
45334
1959
1881+

2944m
3446
45894
1971
1884+

29764
35334
19774
1891+«

1560

24934

252

1759

2081

2165

2242%
22641+

2247
2248

5383
5383

2238+
2237«

2251
2252

5383
5383

2510

2511«

2512«

2530«

1179
1961

1180
1962

1869
1963

VNI

SMXCNT

001270
001274

wWHNN—*—*O&OO
4
o
;E

MTYP?
SMTYP3
MTYP4

001234
001264

d d e

SMBADR
MFLG
SMSGAD
MSGLG
MSGTY
MTYP

001272
001276
001302

PAGE

(ROSS REFERENCE

b e v

SMADR?
$MADR3
$MADR¢
SMAIL
TMAMS
SMAMS2
SMAMS
3
SMAMSS

11:06

774

4278

1939
19744
117
790
1959

2978
3535

4283

3010
3617

3042
3704

2911
30444
3241
3405
37064

29164

3245
34104
3760

2937
3070
32504
3765

2943
3C75#4
3267

37704

YYYY

4058

4532

4069
45374

40744
4578

4193
4588

30084
36154

30404
37024

31144
38354

31684
39114

32064
40194

40704

1892+«

1909

1967

1986

4817«

1890
1964

1901
1965

4438

32464

2662

3073
3768

3116
3837

3170
3913

1907

1977
3208
4021

1909
1985

3248

4072

1933

2839
3308

4286

1934

2882
3366

L4441

1935

2914
4535

1711
6504

1712+
4711

1805+

2880
30734

2882#
3114

37684

3835

4940
5025

5027

1804~

2533

4490+

4502+

4712+

4752

4756

1806

2535

4710+

4713n

2914m
3168
34084
39N
45354
2459+

2944
31704
3446
39134

29464
3206
34484

2976
32084
3533

2978#
3246

3008
32488
3615

30104
3272
36174

1700+

2158+

2156

2357

2457

1974»

1975

1977

4021#

2436
3208«

2645
3248+

2653

3170+
39713«

4021+

4072+

1648+

1650«

1651«

1652+

2675

14714
14974

&»
~N
~N

20684

1986

4589

4019
45914

2063
20794

3073+
3768+

4497

3116«
3837«

14794

14814

—

2069

006724
004474
006446

4950

—=N)

— O

= O\ =

gmgowo
x !ti:il SR

ik ek
=

b od e

88NN

SE\ACD\A
VOO
RPN

) c=d
b
b e
)
b
o

4953

174

S
NNNN—
N NN
OO NN

—
—

:g Qo

SN
ONO

d
b md
b e

J\W—‘Og
TETEITINY
:NOCDSZ
NN

4317
4617
52394

16154
14314
16464
1909

13554
13704
13854

WOOND

t~:~a4utugyuhuc>
00~ 000 \neg<)
133313314

b
—d
b el
md
d
—

10994

25734

.ADVAN
.BEGIN
.CNVRT
.CONVR

2473

30420
3704

44420
4938

4439

2081

2606+

LA22424

011574

T4 =
$$GE
$40CAT=

1699

SEQ 0127

2452
2471

—d

2443

1985

2439
2450

2912
3116r
3406
38374
4533
2359«

3010~
3617«

4987+

1973

2158

1931

2152
2150

NN
=
NANA)
-

b
D
b
e

LL61v

2070+
2081
2081

$TYPE
$TYPEC
$TYPEX
SUNIT
SUNITM
SUSWR
$VECTI
Y

4450

42864

$TPB
$TPFLG
$TPS
$TSTM
$TSTNM

SVECT?2
$XTSTR

4448
1698

28394
3071
3308+

1970

1964«
1946
1944
4186+
1686

SN
-b

$TN

'y SReI2ug
g‘\\‘\

$TMP2
$TMP3

—

$TKS
$TMPO
$TMPY

d —d

$TxB

001256
000000
001240
001226
001166
001164
001216
001220

$SWREG
$SWRMK
=
$TESTIN
$TIMES

A\ )

CZDZAF .PI1

K 10
11:06
PAGE 129
CROSS REFERENCE TABLE -~ USER SYMBOLS

26=NOV=79

MACY11 30A(1052)
26=-NOV~79 11:03

~N
N

CZDZA~FO

3274

4202+

3535#
4070

40720

4200

2839+
3308+

2882+
3366+

2914+

4286+

4441

3408+
4535+

rIDZA-FO
CZDZAF .PI
.DCLAS
.DELAY
.DEVIC
.ERRTA
. INSTE
. INSTR

<INST1

.MSG
.PARAM
.PARMD
.PAWCH

.RESOS
. SAVOS

.SCOPE
.SCOP
SSETFL
.START
. TRPSR
.TRPTA
.TYPE

.SASTA~
. $X

MACY11 30A(1052)
26-N0OV=79 11:03

26=NOV=79

11:06

PAGE 130

(ROSS REFERENCE

1498
16492
1490

2375

1476
1474

5159

2828
2561

1569

L 10

TABLE -- USER SYMBOLS

SEQ 0178

CIDZA-FO
CZDZAF .PIN
COMMEN
ENDCOM

ERROR

MACY11 30A(1052)
26-NOV=79 11:03
4
‘4

804#
3031
3223
3498
3799
3964

ESCAPE

GETPR]
GE TSWR
MULT
NEWTST
PASEND
POP
PRGEND
PRGFRT
PUSH
REPORT

SC
SCOPE

sC1

SETPRI
SETUP

SK1pP

SLASH

SPA(CE

STARS

SWRSU

TYPBIN
TYPDEC
TYPNAM
TYPNUM

TYPOCS
TYPOCT
TYPTXT

$BUFFE
$CYCLE
$EOP
SGETFL
$GETPA
SHEADE
$INTSE

$JUNK

$LINEU
$LVLTS

4240
4407
4951

1»

1
»
»
AL

3306

4533
7794
»
7794
7794
»
»

7794
805#

3307

4534

7794
»
»

9104

2837
3406

»
1L
IL4
¥
14
14
104

7794
7794
7794
7794
7794
7794
7794

7794

1444

7794
7794

9104
9104

2872
3050
3231
3502
3802
3972

6247
4506
6954
9104
9104
9104
9104
9104

3364
4589
1873

910#
1860
781
9104
7794
1939
1873

3365
4590

26-NOV=~79

11:06
PAGE 132
CROSS REFERENCE TABLE

2890
3056
3239
3516
3820
3973

2928
3091
3283
3591
3862

2935
3101
3290
3595
3867

m10
-- MACRO NAMtS

2954
3129
3343
3639
3873

2960
3137
3349
3665
3887

SEQ 0129

2967
3145
3390
3671
3892

2986

3942

4004
6323
4653

5032

6047
6324
4659
5038

4056
33
4682

4100
4344
£722

5044

6356
6725
5047

2837
3406

2964
3615

2976
3702

3008
3766

3040
3835

3071
3911

2127

2515

2088

2495

2501

2945
3616

2977
3703

3009
3767

3041
3836

3072
3912

1186

1321

1330
3114
4019

1867
3168
4070

4200

1602

1409

4260
4576
4963

9104

2838
3407

2881
3447

5041

2992
3178
3425

4108

5050

3115

4124
4367
4741
5057

4152
4370
4761
5062

3168
4070

4200

3169

3024
3217
3475
3797
3961

2999
3182
3429
3748
3945

3206

3207

6166

5073

3246
4284

3247

4388
4948

3272
4439

3273

4020

4071

4201

4285

4440

1928

2004
3246

4439

2491
3306
4533

2507

4284

2083
3272

1416

1423

1430

1437

1979
9104
9104
9104
9104
9104

2880
3446
9104

1110

1132

1183

2976
3702

3008
3766

3040
3835

1323
3071
39N

1639

1681

1737

1770

1828

2640

3805

3851

3876

1367

4563
1374

4619
1381

1388

1395

3538

3770

3839

3915

4023

4075

4205

2912
3533

2944
3615

1626

4589

2104
9104

1353

3829

1360

CZDZA~FO
CZDZAF .P11
779
4595

779%

SMRRW
SMRWD
WMSG

7794
7794
7794

$SCOPE
SSETFL
$STAG
$STAGF
$TCR
STLINE
$TRPDE

7794
7794
7794
7794
7794
7794
7794
1495
77%4
3363

NNIBU
SVARIA
X2

7794

4588
1 79N
7794
7794

3065
3363
3902

.SAPTB
.$APTH
LSAPTY
.$ASTA

»
»
Y
»

.SACT

.BCATC(C
.SC(MTA

.$08.D
.$0820
.01V

2969

3001

3033

3729

398¢

6136

451
1922

2537
3478

3267

357

3899

3915

4023

4075

4205

4288

4464

4539

1491

1493

3107
16469

1671

1473

1475

1477

1479

1481

1483

1485

1487

1489

2836
3405

2879
3445

2911
3532

2943
3614

2975
3701

3007
3765

3039
3834

3070
3910

4018

3113

3167
4069

3205
4199

4283

4438

2832
1127
2832
3070
3400
3910

2836
3107

2875
3113
3436

2879
3160
3445

2905

2911
3197
3532

2937

2943
4278

4283

2975
3267
3701

3001
3271
3760

3007
3294
3765

3033

4199

2969
3245
3693

3008

3040

3071

16467
1497

1169
1175
9104
9104
3364
4589
9104
7794
7794

3167

3527

3405
4012

4018

4058

4069

6193

1170
1176

1171
1177

1172
1178

173

1174

2837
3406

2880
3446

2912
3533

2944
3615

2976
3702

800
781

7794

1130

I¥
iy 4
1
¥

3839

3065
3400

7794
7794

SEQ 0130

4578

»
1
1
"

. SRAND
. SRDDE
. $RDOC
.$READ

. $SPOWE

2937

3160
2905
3241
2521

7794
7794
7794
7754

.$ERRT
JEMULT

. $ERRO

3827

iyJ
IX
I¥
i
#

.$EOP

3770

) —d —3 —a

$$SKIP
.EQUAT
.HEADE
KT
.SETUP
.SWRH]

4588
11304
11304
14
»
3306
4533
1Y
»
Y4
»
1Y4
»

$SCMRE
SECMTM
$SESCA
SINEWT

3709

$TSTN

3538

S$PARTS

3651

26=NOV=79 11:03

ot3 oo

$SMRR

30A(1052)

QW=
—

SMRE SE

N 10
11:06
PAGE 133
CROSS REFERENCE TABLE == MACRO NAMES

26=-NOV=79

MACY11

7794
7794

1865

7794

2489

3205
3608

3766

3241
3614

3835

391

6622

3114

4019

3245

3271

3829

4438

4521

4532

3168

3206
4200

4284

4070

3246

3305

4532

3039

3353

4578

3272

4439

CZDZA-FO
CZDZAF .P°1

.SR2AZ

. $SSAVE

.$582D
.$5820
.$5C0P
.$SIZE
.$SUPR

MA cYn

30?(1052)
26-NOV=-79 11:03

1»
»
»
»
1L

.$TYPC

. ABS.

PAGE 134

CROSS REFERENCE

»
»
1L

7794

1926

7794
7794

2001

»
»
031110

ERRORS DETECTED:

B 11

TABLE == MACRO NAMES

\LJ

.$40CA
.1170

11:06

-STRAP

.$TYPB
.STYPD
.STYPE

26-NOV=79

000

CZDZAF .BIN,CZDZAF .LST/CRF/SOL/NL
: TOC=CZDZAF .SML ,CZDZAF .P11
RUN-TIME: 60 8O 6 SECONDS
RUN-TIME RATIO: 408/148=2.7
(99 PAGES)
CORE USED:
50K

SEQ 0131