Digital PDFs

AH-8783I-MC

October 1985

124 pages

Original

6.7MB

view download

OCR Version

6.1MB

view download

Document:	CZDZAI0 DZ11 DZ11 ASYNCH MUX TST OCT 1985 bw
Order Number:	AH-8783I-MC
Revision:	000
Pages:	124
Original Filename:	CZDZAI0__DZ11__DZ11_ASYNCH_MUX_TST__AH-8783I-MC__OCT_1985_bw.pdf

OCR Text

Eobzan
o

Tor1 oot 1ess

~ COPYRIGHT® 1976-85

ENSANEN
MADE IN USA

Tl w

CZDZA-10
<DZAl1.P1Y

MACY1!

OA(1052)

JWL -85

°6:19

SEQ 1

PAGE S9

02-JWL -85 16:17
.REM «

IDENTIFICATION

5622
5623
5624
5625
5626

5627
5628
5629
5630

5631

5632
5633
5634
5635
563~
5638
5629

5640
5641
5642

PRODUCT

CODE:

RC-8781I-MC

PRODUCT

NAME:

CZDZAIO DZ11 LN ASYNC MUX TSTS

PRODUCT

DATE:

JUNE

1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

AUTHOR:

DAVE HOFFMAN

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

DOCUMENT.
NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
SOFTWARE
ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS
AFFILIATED
COMPANIES

(C)

1976,1981,1985 BY DIGITAL EQUIPMENT CORPORATION

C2DZA-T10
CZD0ZAI.P1L
Se44
5645
5646
5647
5648
5649
5650

5651
5652
5653
5654

MACY11l

30A(10S52)

02-JuL 85 16:17

02 JW 85

16:19

SEQ 2

PAGE 60

ABSTRACT
THE
FUNCTION OF THE DZ11 DIAGNOSTICS IS TO VERIFY THE
OPTION
ACCORDING
TO SPECIFICATIONS.
THE DIAGNOSTICS ALSO VERIFY THAT

OPERATES IN ITS ENVIRONMENT
PARAMETERS

MAY

SUPPLIED

OPERATES
THE 0211

SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED.

THE

PROGRAM BY

EITHER

‘AUTO

SIZING'

INPUT FROM THE USER ON THE CONSOLE BY HAVING SW00=1 AT START TIME.
AUTO
SIZING WILL BE DONE ONLY THE FIRST
TIME
THE
PROGRAM
IS
STARTED
AND
SWO7=0
AND
SWO0=0
AND SWO03=0,
THE AUTOSIZER IS DESIGNED
TO
DETECT
DZ11 DEVICE ADDRESSES AND VECTORS AND TO DETERMINE WHETHER THE DZ11 THAT
IS DETECTED IS AN EIA OR 20MA BOARD.
ALL REMAINING
PARAMETERS
DEFAULT
TO CERTAIN VALUES (SEE SEC.8.5).
CONSOLE INPUT MAY BE CONTROLLED AT ANY
START TIME THROUGH THE USE OF SWO0O, SWO3, SWO4, AND SW06 (SEE SEC. 4.1.1
FOR A DETAILED DESCRIPTION OF THESE SWITCHES).
CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), ONE SYSTEM
FOR DEC x/11 (DZAAR), AND AN ONLINE OVERLAY FOR DZITA (ITEP)
DZDZB.

(ITEP)

DZDzB.

CZDZA WILL TEST ALL PARTS OF THE DZ11 SUCH AS CABLES,
INTERFACE MODULE

ITSELF.

DIST PNL.,

REQUIREMENTS

EQUIPMENT
ANY PDOP11 FAMILY CPU (WITH MINIMUM 8K MEMORY)
ASR 33 (OR EQUILIVALENT FOR CONSOLE)

0Z11

INTERFACE MODULE (M7819(EIA),

H3271
H3190
H325
H315

NOTE :

M7814(20MA))

STAGGERED TURNAROUND CONNECTOR FOR EIA MODULE.
STAGGERED TURNAROUND CONNECTOR FOR 20MA MODULE.
CABLE TURNAROUND AND DIST PNL TESTING FOR EIA MODULE.
THIS MAY BE SUBSITUTED FOR H32S.

A STAGGERED TURNARQUND CONNECTOR IS NEEDED IN ORDER TO TEST
PARITY

AND BREAK LOGIC.

THE

CZDZA-I0
CZDZAI.P14
5684
5685
5686
5687
5688
5689
5690
5691

MACY11l 30A(1052)
02-JWL 85 16:17

02 JUL-8S

2.2

SEQ 3

PAGE 61

STORAGE
PROGRAM WILL USE ALL 8
OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP
LOADER
RESIDE.
LOCATION
1200
THRU 2000 ARE ESPECIALLY TO BF NOTED AND TO BE
UNTOUCHED BY OPERATOR AFTER PARAMETERS
HAVE
BEEN
INPUT
FROM
CONSOLE
(SW00=1);
OR
AFTER
THE 'AUTO SIZING' HAS BEEN DONE.
THESE LOCATIONS

MAY BE CHANGED IF T'4€
USER
PARAMETERS ARE REQUIRED.

5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713

5714
5715
5716
5717
5718
5719
5720
5721
5722
5723
5724

16:19

UNDERSTANDS

THEIR

MEANING

AND

ODIFFERENT

LOADING PROCEEDURE
METHOD

ALL PROGRAMS ARE IN ABSOLUTE FORMAT

LOADER.

NOTE:

THE

AND ARE LOADED

DIAGNOSTICS

MAGTAPE ,DECTAPE, OR CASSETTE;
WHICH HAS BEEN PROVIDED ON THAT

ARE

USING

THE

MEDIA

FOLLOW
INSTRUCTIONS
SPECIFIC MEDIA.

SUCH

FOR

THE

ABSOLUTE

DISK

MONITOR

ABSOLUTE LOADER STARTING ADDRESS #500
MEMORY

4K
8K

17
37
57
77
117

12K
16K
20K
24K
28K

3.1.1

PLACE

SIZE

137
157

ADDRESS OF

ABS LOADER INTQ SWITCH REGISTER.

(ALSO PLACE
3.1.2

DEPRESS

3.1.3

DEPRESS 'START KEY*
LOADING INTO CPU)

'HALT'

'LOAD ADDRESS'

SW UP)

KEY ON CONSOLE AND RELEASE.

CONSOLE

AND

RELEASE

(PROGRAM

SHOULD

NOW

CZDZA-I0
CZDZA1.P1}
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758

5759
5760
5761
5762
5763

5764
5765

5766
5767
5768

5769
5770
5771
5772
5773
5774
S775
5776
5777
5778
5779
5780

MACY11l 30A(1052)
02-JU -85 16:17

02-JUL -85

16:19

SEQ 4

PAGE 62

STARTING PROCEEDURE
A.
B.
C.

SET SWITCH REGISTER TO 000200
DEPRESS 'LOAD ADDRESS' KEY AND RELEASE
SET SWR TO ZERO FOR ‘AUTO SIZING'
OR SET SW0O=1 FOR
USER PARAMETER
INPUT FROM CONSOLE TERMINAL.
ON
FIRST
START IF SW07=1 AND SW00:0

DEPRESS

THE PROGRAM WILL DEFAULT

'START KEY'

TO CONSOLE PARAMETER

AND RELEASE,

INPUT

(SW00=1).

THE PROGRAM WILL TYPE MAINDEC

NAME

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

'MAP OF DZ11 STATUS'
1500
160100
1502
000300
1504
000005
1506
000377
1510
017070
000000
1512

THE ABOVE IS ONLY AN EXAMPLE!
THIS
WOULD
INDICATE
THE
STATUS
TABLE
STARTING
AT
ADD.
1500 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 NO REAL
SWR
(177570);
SWR
MAY
BE
MODIFIED
LOC:176 OR BY HITTING CONTROL “G" <tG> ON CONSOLE TERMINAL.

SW
SW
SW
SW
SW
SW

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

15
14
13
12
11
10

SW 09

SW 08
SW 07
SW
SW
SW
SW
SW

06
05
04
03
02

sSW 01

«SW 00

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

HALT ON ERROR

LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT ssALLss TYPE 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
LOADING THE
OPERATOR MUST INPUT ADDRESS AND VECTOR FROM CONSOLE.
RESELECT DZ11'S DESIRED ACTIVE
RUN BAUD RATE TEST
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 CONSOLE

FOR

ECHO OR
CABLE TESTS
(PROGRAM STARTED AT LOC. 210)
THIS
SWITCH
SET TO 1 ALLOWS
THE USER TO
TYPE IN THE VECTOR AND THE
CSR FOR THE DZ11 UNCER TEST.

L3]

FOR ECHO

CABLE

TEST

THIS

SWITCH

OFDEITHER THE ECHO OR CABLE TEST,
UNDER TEST.

SET

BAUD RATE,

ALLOWS

THE

SELECTION

AND THE LINE NUMBER

CZ0ZA-1I0

CZDZAI.P1}
5782
5783
S784
5785
S786
5787
5788
5789
5790
5791
5792
5793
S794
5795
5796
5797
5798
5799
5800
5801
5802

5803
5804
S80S
5806
5807
S8G8
5809
5810
5811
S81c
5813
5814
5815
5816
5817
5818
S819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830

MACY11 30A(1052)

02-JUL-85 16:17

02-JUL-85

4.1.1

16:19

SEQ S

PAGE 63

SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE

SW 00

GET USERS PARAMETERS FROM CONSOLE.
SETTING THIS SWITCH AT START
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 OR 20MA MODULE, MODE OF OPERATION
(EXTE
, RNAL
INTERNAL, OR STAGGERED), AND THE NUMBER OF DZ11'S THAT
ARE RUNNING.
USING
THIS
SWITCH
ALONE DEFAULTS THE FOLLOWING
PARAMETERS:
ALL 8 LINES ARE SET TO BE TESTED ON EACH DZ11,
THE
DEFAULT BAUD RATE IS SET AT 9600 BAUD, AND THE CHARACTER LENGTH
FOR
THE MAJORITY
OF TESTING IS SET AT EIGHT BITS PER CHARACTER
WITH TWO SYOP BITS.

SW 03

EXTRA PARAMETER INPUT.
SETTING
THIS
SWITCH
AT
START UP TIME
PROVIDES
THE
WUSER WITH THE ABILITY TO SET THE LINES ACTIVE FOR
TESTING AND TO SET THE DEFAULT
BAUD RATE USED
FOR THE MAJORITY
OF THE DIAGNOSTIC
TESTS.
THE DELAY PARAMETER
IS AUTOMATICALLY
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER.

SW 04

SELECT

DELAY

PARAMETER.

THE

DELAY PARAMETER

THIS

SWITCH CONTROLS

DETERMINES THE LENGTH OF TIME THE 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
THIS
PROGRAM ON A FASTER
PROCESSOR THE DELAY
PARAMETER SHOULD BE ADJUSTED PROPORTIONALLY
HIGHER THAN THE FOLLOWING DEFAULTED VALUES:
2450
; TIME FOR
S0 BAUD
1560
;TIME FOR
75 BAUD
1120
;TIME FOR
110 BAUD
0750
:TIME FOR
134 BAUD
0660
;TIME FOR
150 BALD
0330
;:TIME FOR
300 BAUD
0150
;TIME FOR
600 BAUD
0060
;:TIME FOR 1200 BAUD
0040
;TIME FOR 1800 BAUD
0030
; TIME FOR 2000 BAUD
0020
;:TIME FOR 2400 BAUD
0010
;:TIME FOR 3600 BAUD
0001
;TIME FOR 4800 BAUD
0001
;TIME FOR 7200 BAUD
0001
; TIME FOR 9600 BAUD
0001
;TIME FOR 19.2 KBAUD
ks NOTE *4»
19.2K BAUD IS AN UNSUPPORTED BAUD RATE.
9600 BAUD IS THE SPECIFIED MAXIMUM.

IT SHOULD NOT NORMALLY BE USED.

5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85

16:19

4.1.2

SEQ 6

PAGE 64

SWITCH REGISTER RESTRICTIONS
SW 06

METHOD:

CZDZA-I0
CZDZAI1.P11

RESELECT DZ11'S DESIRED ACTIVE.
PLEASE NOTE THAT A
MESSAGE
IS
TYPED
OUT
FOR
SETTING
THE
SWITCH
REGISTER
EQUAL TO DZ11‘S
ACTIVE.
THIS
MEANS
IF
THE
SYSTEM
HAS
FOUR
DZ11S;
BITS
00,01,02,03
WILL
BE
SET
IN
LOC
‘'DZACTV'
FROM
THE
SWITCH
REGISTER.
USING
THIS
SWITCH(SWO6)
ALTERS
THAT
LOCATION; THEREFORE
IF FOUR DZ11S ARE IN THE SYSTEM #44D0 NOT##s
SET SWITCHES GREATER THAN SW 03 IN THE UP POSITION.
THIS
WOULD
BE A FATAL ERROR.
DO NOT SELECT MORE ACTIVE DZ11S THAN HAS BEEN
GIVEN INFORMATION ABOUT IN PARAMETER INPUT (SWO00=1)
LOAD ADDRESS 200
START WITH SW 06=1
PROGRAM WILL TYPE MESSAGE
SET THE BINARY NUMBER OF
DZ11S
DESIRED
ACTIVE
EXAMPLE:
1=1
DZ11;
3=2
DZ11;
7=3 DZ11:
1724 DZ11 37=5 DZ11 ETC/AA PRESS
CONTINUE.
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05)
SET WITH ANY OTHER SWITCH SETTINGS DESIRED.
PRESS CONTINUE.

SW 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:
IF RUNNING MULTIPLE DZ11'S;
THE DZ11 YOU
DESIRE
TO
BE
UNDER TEST MUST BE SELECTED BY THE USE OF SW06 BEFORE LOCKING ON
THE TEST.
IN OTHER WORDS;
EACH TIME THE
PROGRAM
IS
STARTED;
THE
FIRST DZ11 WILL BE SELECTED TO BL UNDER TEST UNLESS SW06
IS
USED TO SELECT ONLY ONE.

SW 09

LOOP ON CURRENT DATA:
THIS
SWITCH
WILL
ONLY
WORK
IF
CALL
‘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 BLOCK 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 TO FAIL ON CERTAIN
PROCESSORS.
IT IS
RECOMMENDED THAT THIS SWITCH
ONLY BE USED
IN CONJUNCTION WITH SCOPE LOOPS, E.G, SW 14,9,4,1 SET; SW 9.4,
2,1 SET.
THE SHORTEST PARAMETER IS 1: THE LONGEST ACCEPTED IS

177776.

(SEE SEC.

4.1.1)

02-JUL -85

4.1.3

SEQ 7

PAGE 65

SWITCH REGISTER PRIORITIES

ERROR SWITCHES
=

SW
SW
SW
SW
SW

12
13
15
08
10

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

SCOPE SWITCHES
1.

SW 09 (IF ENABLED BY

IF AN

‘s'

IS PRINTED IN FRONT OF

(CONSTANT);

SW08 IS BEST.

FOR
INTERMITTENT
ERRORS EITHER START THE PROGRAM WITH SWO1 AND
SW02
SET WAICH WILL ALLOW THE
USER TO LOCK ON A SELECTED TEST,
OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL.
SWi4 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN
ERRGR OCCURS.
SW 14
LOOP ON CURRENT TEST.

3.
4.2

’'SCOP1’').

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, SW0820)
IF
THE
PROGRAM
USER IS
TECHNICALLY TRAINED TO ELECTRONICALLY
ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE.
IF
SW09
IS
NOT
ENABELED;
AND
THERE
IS
A
+HARD*+
ERROR

5906

5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927

16:19

5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905

MACY11 30A(10S52)
02 JUL-85 16:17

VI &

CZDZA-I0
CZDZAI.P11

STARTING ADDRESS
SA 200

SA 210

- CABLE/ECHO -

ADDRESS 200 IS FOR NORMAL EXECUTION OF
THE
DIAGNOSTIC.
THIS
WILL
DO
THE
MAJOR
TESTING
NECESSARY
FOR
VERIFICATION
OF
HARDWARE.

THE

VERIFY

A TRUE LINK TO ANY DEC

THE DZ11.
NOTE:

TERMINAL TESTS.

STARTING AT ADDRESS 210 WILL GIVE

USER THE OPTION TO VERIFY THE EIA CABLES AT

SUPPORTED

THE DIST PNL

TERMINAL SUPPORTED BY

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES
IT
IS
UNDER
ACT11 OR
XXDP CONTROL
AND
WILL
ACT ACCORDINGLY.
AFTER #ALL#
AVAILABLE DZ11'S ARE TESTED THt PROGRAM WILL RETURN TO ‘XXDP' OR
'ACT-11',

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

FOUR

5.1

i6:19

NORMAL START OF DIAGNOSTIC
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

“1ST CSR ADDRESS

5954
5955
5956

5957
5958
5959
5960
5961
5962
5963
5964
5965
5966

ANSWERED.

(160000:163700):

YOU MUST TYPE IN THE FIRST DZ11
CSR
IN
THE
TESTING TO BEGIN AT.
RANGE:
160000:163700

5939
5940

5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953

SEQ 8

PAGE 66

SYSTEM

YOU

WISH

“1ST VECTOR ADDRESS (300:770):
YOU MUST TYPE IN THE VECTOR OF THE
UNDER TEST.
RANGE 300:770

0Z11

THE

SYSTEM

TYPE
IN
THE
PRIORITY
LEVEL
OF
THE
DZ11
THAT
THE
INFORMATION HAS BEEN GIVEN ABOUT.
RANGE 4 OR S OR 6.

ABOVE

“BR LEVEL

“TYPE

FIRST

(4:6):

“A" FOR EIA MODULE OR

"B” FOR 20MA

(A:B):

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

"MAINTENANCE MODE

[EXTERNAL
[INTERNAL
[STAGGERED
(STAGGERED

<H325>-EIA ONLY
<DZCSRO3=1>
<H3271>-EIA ONLY
<H3190>-20MA ONLY

(e)
(I)
(S)
(S)

02-JuUL -85

el e

5929
5930
5931
5932
5933
5934
5935
5936
5937
5938

MACY11 30A(1052)
02-JUL -85 16:17

CZDZA-10
CZDZAI.P11

JYPE “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.

CZ0ZA-I0
CZDZAI.P11
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
06006
6007

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85

16:19

SEQ 9

PAGE 67

“# OF DZ11'S <IN OCTAL>

(1:20):

TYPE TOTAL NUMBER OF DZ11‘'S TO BE TESTED IN THE
IS 1 THRU 20 IN OCTAL.,
dhsbbssss

SWO3=1

THEN

SYSTEM.

RANGE

ssssksssa

IF SWO3=1 THE FOLLOWING WILL BE PRINTED.
“LINES ACTIVE BY BIT

(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))..
“DIFAULT BAUD RATE <IN OCTAL>

(00:16):

THIS GIVES THE USER A CHANCE TO CHANGE
THE
DEFAULT
BAUD
RATE
USED IN APP. 90 PERCENT OF THE TEST. BAUD RATE CHOICES ARE:
"00”(
50 BAUD),"01"C
75 BAUD),*02"( 110 BAUD), "03”( 134 BAUD),
“04"( 150 BAUD), "05“( 300 BAUD), "06"( 600 BAUD), "07(12
00 BAUD),
“10"(1800 BAUD),”11~(2000 BAUD), “12”(2400 BAUD), "13”(36
00 BAUD),
"14"(4800 BAUD), "15"(7200 BAUD), "16"(9600 BAUD), "17”(19
.2 KBAUD)
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHE
N THE
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY.
s34

NOTE

sa»

SPEED SELECT CODE 17 CAN BE USED TO SELECT 19.2K BAUD, BUT THIS
SPEED IS NOT SPECIFIED BY DEC, AND SHOULD NOT NORMALLY BE
USED.

dkbkbbhdkbbb
bbbh
bbb bh
hbdb
bbb hhhht
d

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 GIVEN TO THE
EXISTING
0Z11'S IN THE SYSTEM.
IF NOT ALL DZ11'S ARE SAME PRIORITY OR IF
THE MODE OF OPERATION IS DIFFERENT FOR EACH DZil;
THIS MUST
BE
"PATCHED”
INTO THE CORRECT STATUS MAP ENTRY WHICH IS PRINTED AT
START TIME.
AN ALTERNATIVE IS TO
PUT
SWO0=1
AT
START
TIME;
ANSWER
QUESTIONS ABOUT DZ11 UNDER TEST AND INDICATE ONLY 1 DZ11
IN THE SYSTEM.
IF THE STATUS MAP IS TO BE "PATCHED" IT MUST
BE
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO
SIZE.

CZDZA-I10
CZDZA1.P11
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024

MACY11 30A71052)
02 JUW -85 16:17

02-JUL-85

5.2

16:19

HOW TO RUN THE

“CABLE/ECHO"

TESTS.

NORMAL STARTING FOR THE FIRST TIME WOULD BE:
LOAD ADDRESS
210;
WITH THE SWR EQUAL TO 003.
NOTE :
SWO00=1
ASKS FOR "VECTOR” AND "CSR*
SWOl=1
ASKS FOR "WHICH TEST ECHO OR CABLE"”, "“BAUD RATE",
UNDER TEST.
PROGRAM WILL PRINT OUT:

"VECT.-

START

“LINE”

ADDRESS-"

YOU TYPE VECTOR WITH A <CR>.
“CONTROL REGISTER ADDRESS-*
YOU TYPE IN DZCSR UNDER TEST.

6025

6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060

SEQ 10

PAGE 68

"WHICH TEST

ECHO OR CABLE (E OR C)*

LETS DO THE CABLE TEST FIRST.
4#THIS TEST IS ONLY TO BE DONE ON
THS
EIA
VERSION
OF
THE DZ11 NOT THE 20MA VERSION”.
TYPE “C*
<CR>

"BAUD RATE-

TYPE EITHER 50, 110, 135, 150, 300, 600,
3600, 4800, 7200, 9600 FOLLOWED BY <CR>
"LINE:

1200 1800,

2000,

2400,

YOU TYPE THE LINE WHICH HAS

EITHER 0,

THE

H325

TEST

CONNECTOR.

(TYPE

7) PROGRAM WILL THEN PRINT:

"CABLE TEST”
AND IF EVERYTHING IS WORKING;

THE FOLLOWING WILL BE PRINTED:

"PASS DONE.
"
"PASS DONE.
"
ETC.

TO CHANGE LINES;

WHILE

"LINE:

HIT ANY PRINTING KEY ON YOUR CONSOLE

THE PROGRAM IS RUNNING AND

THE FOLLOWING WILL

TERMINAL

BE PRINTED:

NOW CHANGE THE H32S TEST CONNECTOR TO ANOTHER LINE AND TYPE
NEW LINE.
PROGRAM WILL THEN PRINT:
"CABLE TEST"
"PASS DONE."
"PASS DONE."
CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED.

THE

CZDZA-I0
CZDZAI.P11
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110

her

MACY1l

02-JUL -85

30A(1052)

02-JWL -85

16:19

SEQ 11

PAGE 69

16:17

5.3

ECHO TEST

IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE
VECTOR
AND
ADDRESS
HAVE
BEEN
TYPED IN;
JUST !OAD ADDRESS 210 AND START WITH SWR EQUAL TO
002.
PROGRAM WILL PRINT:
“WHICH TEST

ECHO OR CABLE

NOW TYPE AN

“E”

(E OR C)~

TO DO THE ECHO TEST.

PROGRAM WILL PRINT:

“BAUD RATE-*
TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECTED TO
THE DZ11 DIST PNL.
BAUD RATE CHOICES ARE: SO, 75, 110, 135, 150
300, 600 , 1200,
1800,
2000, 2400, 3600, 4800, 7200, 9600. THE
PROGRAM WILL THEN PRINT:

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

IS CONNECTED TO AT

THE DIST PNL

THEN

“TERMINAL ECHO TEST”
ss4

THIS

"THE QUICK BROWN FOX

POINT

THE

MESSAGE:

JUMPED OVER

THE LAZY DOGS BACK 0123456789"

SHOULD BE PRINTED ON THE TERMINAL CONNECTED
TO
THE
D211.
IF
THIS
MESSAGE IS DESIRED TO BE CONTINIOUSLY OUTPUT;
SET THE SWR
TO 377 (SWR=377) WHILE IT IS BEING OUTPUT
OR
WHEN THE LINE NO.
IS REQUESTED ABOVE. WHEN THIS MESSAGE IS DONE AND THE SWR IS NOT
EQUAL TO 377;
THF CONSOLE WILL PRINT:
"TYPE A CHAR.

ON DZ11

TERMINAL"

ANY PRINTABLE CHAR HIT ON 0Z11
THE
TERMINAL.
ssIF
YOU HIT
THE PROGRAM WILL PRINT:

TERMINAL SHOULD BE ECHOED BACK ON
CNTRL C «<tC> ON THE DZ11 TERMINAL

“PASS DONE.
"

ON THE CONSOLE TERMINAL

PRINTED
RUNNING.

AND

ON
DZ11
TERMINAL
TO CHANGE LINES:

THE

*“QUICK

BROWN

FOX”

WILL

AGAIN
AND
THE
ECHO
7TEST WILL BE
TYPE ANY PRINTABLE CHARACTER
ON THE

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

THE PROGRAM WILL AGAIN

CZDZA-10
CZDZAI.P11
6112
6113

6114
6115
6116
6117
6118

6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85

5.4

16:19

SEQ 12

PAGE 70

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

FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR
(SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3)

WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL
BE

TYPED

QUT AND POSSIBLY
AN ERROR MESSAGE
(DEPENDING ON THE PARTICULAR ERROR).
IF IT IS NECESSARY TQ KNOW MORE INFORMATION
CONCERNING THE ERROR REPORT
THEN LOOK IN THE
PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE

PC OF

THE

ERROR

REPORT.

THE

REASON FOR

THE

ERROR REPORT

CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING.

WILL BECOME

ERRORS
AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND
PC
TYPED
QUT
AT
THE
TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0).
IN MOST
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE
ERROR
MESSAGE
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR.

6.2

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
SHOULC

HAPPEN;
~LOOK
IN
LOCATION ‘'$TSTNM'
(BY1E 1122) 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 0211 WAS DOING AT
THE

TIME OF THE ERROR.

RESTRICTIONS
STARTING RESTRICTIONS

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.

CZ0ZA-I0
CZDZAI.P11
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186

MACY11 30A(1052)
02-JuL -85 16:17

02-JUL-85

7.2

16:19

SEQ 13

PAGE 71

OPERATING RESTRICTIONS
PARAMETER MUST BE INPUT FROM USER OR APT IF

"AUTO SIZING” IS NOT USED.

MISCELLANEOQUS

EXECUTION TIME

ALL DZ11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS'
MESSAGE
(PROVIDING
NO
ERRORS
AND
SW12=0)
WITHIN 2 MIN. THIS IS ASSUMING SWil=1 (INHIBIT
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION.
THE
ACTUAL
EXECUTION TIME DEPENDS GREATLY ON THE POP11 CPU CONFIGURATION.
AN 11/40
WITH
CORE MEMORY WILL TAKE AROUND 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 CPVU 'S MEMORY IN RELATION TO THAT OF AN 11/40.
8.2

PASS COMPLETE

NOTE:
«EVERYs TIME THE PROGRAM IS STARTED;
THE TESTS WILL
RUN
AS
IF
SW1l1
(DELETE
ITERATIONS)
WAS
UP
(=1).
THIS IS TO ‘'VERIFY NO sHARDs
ERRORS' AS SOON AS
POSSIBLE.
THEREFORE
THE
FIRST
PASS
-EACH
TIME
PROGRAM
IS
STARTEDWILL BE A ‘QUICK PASS' UNTIL ALL DZ11'S IN SYSTEM
ARE TESTED.
WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE
FOLLOWING
IS
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED.

END PASS CZDZA-I
NOTE:

CSR:

160010

VEC:

300

PASSES:

000001

ERRORS:

THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE
THE DEVICE.

THEY ARE ONLY FOR THIS EXAMPLE.

VALUES

FOR

C20ZA-I0
CZDZAI.P11
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197

6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
62i2
6213
6214

MACY11

30A(1052)

02-JW -85 16:17

JW -85

8.4

16:19

SEQ 14

PAGE 72

KEY LOCATIONS

$LPADR

(1126)

NEXT
(1360)
$TSTNM (1122)
RUN
(1406)

STATUS MAP
(1500) (2000)

DZACTV (1404)

$8ASE

(1310)

CONTAINS THE ADDRESS
WHERE
PROGRAM
WILL
RETURN
WHEN
ITERATION
COUNT
IS
REACHED
OR
IF
LOOP
ON
TEST IS
ASSERTED.
CONTAINS THE ADDRESS OF THE NEXT TEST TO BE PEFORMED.
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED.
THE BIT
IN
RUN’
ALWAYS
POINTS
ONE
PAST
THE
DZ11
CURRENTLY
BEING
TESTED.
EXAMPLE :
(RUN)
1304//)000000001000000 MEANS THAT DZ11 NO.0S IS THE
DZ11

NOW RUNNING.

THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO
TEST
UP
7O 16 (DECIMAL) DZ11S SEQUENTIALY.
THEY CONTAIN THE
CSR,VECTOR AND STATUS CONCERNING
THE
CONFIGURATION
OF
EACH DZ11.
EACH
BIT
SET
IN
THIS
LOCATION
INDICATES
THAT
THE
ASSOCIATED
0211
WILL
BE
TESTED
IN
TURN.
EXAMPLE:
(DZACTV)
1300/0000000000011111
MEANS
THAT
D0Z11
NO.
00,01,02,03,04
WILL
BE
TESTED.
EXAMPLE :
(DZACTV)
1300/0000000000010001 MEANS THAT DZ1ii1 NO.
00,04 WILL BE
TESTED.
CONTAINS THE RECEIVER CSR
OF
THE
CURRENT
DZ11
UNDER
TEST.

CZ0ZA I0
CZDZAI.P1L
6216
621"
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
0254
6255
6256
625”
6256
6259

MACY11 30A(1052)
02-JwL -85 16:17

JW -85

8.4A

16:19

SEQ 15

PAGE 73

MORE ON THAT

'STATUS TABLE'

'MAP OF DZ11

15900

1502
1504
1506

1510
1512

(1500-2000)

STATUS'

160100

000300
000005
000377

017070
000000

THE
ABOVE
INFORMATION WILL BE
REPEATED FOR EACH OF UP TO 16 DZ11'S IN
THE SYSTEM(THESE WILL FOLLOW UNDER THIS TABLE).
EXPLANATION:
160100
;Hés IngHE SYSTEM CONTROL REGISTER FOR THE 1ST DZ11
1IN
1500
HE
SYSTEM,
000300
THIS IS VECTOR ‘A’ FOR THE FIRST DZ11 IN THE SYSTEM.
1502
000005
THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF
1504
THE

DZ11.
20MA,

1506

000377

1510

017070

1512

0CN000

BIT1S
OF
THIS LOCATION INDICATES EITHER EIA OR
IF BIT15=0 MODULE
SHOULD
BE AN M7819, IF BIT1S=1

MODULE SHOULD BE AN
M7814.
;HIS IS THE BINARY REPRESENTATION OF
€ TESTED.

WHAT LINES

ARE

THIS IS THE PARAMETER
LOCATION
USED
IN
MOST
OF
THE
TESTS.
IT INDICATES PARAMETERS OF:
RX ON, SPEED SELECT
16 (9600 BAUD) EIGHT BITS PER CHAR, AND TWO STOP
BITS.
THE
USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE

REMAINING PARAMETERS SHOULD BE LEFT ALONE.
THIS
LOCATION
IS
USED TO LOAD THE DZ11 LINE PARAMETER
REGISTER FOR EACH LINE.
THE MEANING OF THE BITS SET IN
THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED
BITS IN THE DEVICE LINE PARAMETER REGISTER.
THIS LOCATION WILL CONTAIN EITHER ALL
ZEROS
INDICATING
THAT
INTERNAL LOOP WAS SELECTED AS TMMODE OF OPERATION OR

IT WILL CONTAIN 100000 INDICATING THAT

WAS
SELECTED
EXTERNAL" WA>

‘STAGGERED

MODE“

OR IT WILL CONTAIN 000200 INDICATING THAT
THE MODE SELECTED,

THE ABOVE IS REPEATED FOR EACH DZ11 IN THE SYSTEM.
THE TABLE IS
FILLED
BY
AUTO SIZING OR BY THE MANUAL rPARAMETER INPUT PROGRAM
AS
DESCRIBED
PREVIDUSLY.
ALSO
IF
DESIRED
BY
USER;
THE
LOCATIONS
MAY
BE
ALTERED
BY
HAND
(TOGGLED
IN) TO SUIT THE
SPECIFIC CONFIGURATION.

CZDZA-I0

CZDZAI.P11
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
63C7
6308
6309
6310
6311

MACY1l

30A(1052)

02-JW -85 16:17

16:19

02 JWL-85

PAGE

SEQ 16

8.5

ses

8.5. 1

FINDING THE CONTROL STATUS REGISTER.

METHOD

AUTO

SIZING

#ss

THE PROGRAM WILL START AT ADDRESS
160000 AND
START
‘REFERENCING'
THE
ADDRESS
IN
THE
POINTER.
IF A NON-EX MEMORY TRAP OCCURES, THE POINTER

(HOLDING 160000) IS UPDATED BY

AND

THE

ABOVE

REPEATED

UNTIL

ADDRESS 163700 IS REACHED.
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.
1IF 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.
IF
ALL
OF
THE ABOVE WORKED;
THIS DEVICE IS ASSUMED TO BE A
DZ11.
IF ANY OF THE ABOVE FAILED;
UPDATING OF THE POINTER IS DONE
AND

THE SEQUENCE IS REPEATED.
NOTE:
IF THE PROGRAM DOES NOT FIND YOUR DZ1ii;
SOMETHING IS WRONG
AND
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
BE AN %IA MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR
20MA
(M7814).
8.5.2

FINDING THE VECTOR
THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT 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
ANC
IF
NO INTERUPT OCCURES (BECAUSE OF A DAD DZ11) THE PROG
ASSUMES
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD Bf. FIXED
IN
THE
. AGNOSTIC.
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:
IF THE
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU;
THERE IS A PROBLEM AND
AUTO SIZING SHOULD NOT BE DONE.

PARAMETER ASSUMPTIONS.
SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE
REST
OF
THE
PARAMETERS;
THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS.
THE
RESULT

NOT

TO YOUR SPECIFIC

(TOGGLE IN) IF DESIRED).

WAS DONE BY
THEREFORE:

1
2)
3)
4)
FOR

ALL

THE PROGRAM,

CONFIGURATION

MAY

IN THIS WAY 95 PERCENT OF

AND S5 PERCENT BY

ALTERED

HAND

THE PARAMETER SETUF

YOU,

BUS PRIORITY IS SET TO LEVELS.
ALL EIGHT LINES ARE ASSUMED TO BE TESTED.
DEFAULT BAUD RATE IS SET TO 16 (9600 BAUD).
MODE OF OPERATION IS “INTERNAL MODE'.

PARAMETER

ADJUSTMENTS

PLEASE

REFER

SECTION

8.4A

FOR

GREATER

DETAIL.

CZDZA-I0
CZDZAI.P11
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6233
6334
6335
6336
6337
6338
6339
6340
6341
6342

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL 85

SEQ 17

PAGE 75

9.0

RUNNING THE 0Z11 DIAGNOSTIC UNDER APT

9.1.1

THE APT INTERFACE

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE APTAUTOMATED
PRODUCT TEST SYSTEM.
IT CAN BE RUN AS A STANDALONE

DIAGNOSTIC OR IN EITHER OF THE APT MODES.

CERTAIN

VARIABLES

THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION
‘APT MAILBOX-ETABLE'.
THESE VARIABLES ARE:

SUBTITLED

IN
THE
ORIGINAL
APT MODULE WERE REASSIGNED TO THE AREAS SET
ASIDE FOR APT
INTERFACING.
THESE
NEW
VARIABLES
GENERALLY
BEGIN WITH A DOLLAR SIGN ($), E.G., $DEVM, $BASE.

9.1.2

6343
6344

6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368

16:19

SETTING UP THE DIAGNOSTIC USING APT

$SWREG

USED IF A SOFTWARE SWITCH REGISTER IS DESIRED
UNDER APT

WHILE

$VECT1

USED TO SPECIFY
VECTOR ADDRESS

FIRST

$BASE

USED

$DEVM

A BIT MAP REPRESENTING WHICH DZ11'S WILL BE TESTED

$COW1

USED TO INDICATE WHICH LINES TO RUN ON ALL DZ11'S

$OOWO

EACH OF

THE

INTERRUPT LEVEL

TO INDICATE BOTTOM ADDRESS OF DZ11

THE

$DDW

WORDS

DESCRIBES

(LPR) FOR A PARTICULAR DZ11,

9.1.3

AND

THE

UNDER

TEST

PARAMETERS

GOING UP TO 16 DZ11'S

RUNNING UNDER APT
THE USER SHOULD BE FAMILIAR WITH
THE
APT
SYSTEM.
THE
APT
TIMING
PARAMETERS
FOR
THE
0DZ11 DIAGNOSTIC WERE BASED ON AN
11/40 PROCESSOR.
IT MAY
BE
NECESSARY
TO
ADD
A
FEW
MORE
SECONDS IF THE DIAGNOSTIC IS OUT ON AN 11/05 PROCESSOR.
ALL

THE

UP PRIOR

VARIABLES MENTIONED IN SECTION 9.1.2

TO RUNNING THE DIAGNOSTIC UNDER APT.

SHOULD BE

SET

NOTE

BE SURE

$BASE POINTS TO THE FIRST DZ11 BEFORE RUNNING

BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET LP
THE
STATUS
TABLE.
THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL
.

CZD2ZA-10
CZDZAI.P11

g -y

6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
8633
8634
8643
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
2)

MACY:l 30A(1052)
02-JUL -85 16:17

02-JUL-85

16:19

10.0

SEQ 18

PAGE 76

CHANGE HISTORY
NOTE:

HISTORY STARTS WITH REV.

REV

CHANGE DESCRIPTION

FO:

ALTER TRANSMITTER

INTERRUPT

SERVICE ROUTINE

TO ALLOW MORE TIME FOR THE TCR BiT TC CLEAR BEFORE
LOWERING THE BUS PRIORITY TO ENABLE DZ11 INTERRUPTS.
GO:

MAY 1981 - INCORPORATE XON/XOFF FEATURES (BY ASSEMBLING WITH
LATEST SYSMAC - CS) AND CHANGE ”.=" CODE MODIFIERS AT END
OF PROGRAM FROM ABSOLUTE ADDRESS MODE TO RELATIVE. ALSO, THE
DEFAULT BAUD RATE WAS CHANGED TO 9600 BAUD, SINCE 19.2K BAUD IS
NOT SUPPORTED, AND TEST 34 WAS CHANGED TO REMOVE 19.2K TESTING.

HO:

JUNE 1984
ADDED BAUD RATE TIMING TEST.
ADCED IN ORDER
TO TEST CRYSTAL SPEEDS.
TRANSMITTS CHARACTERS TO ALL 8 LINES
AT ALL BAUD RATES (EXCEPT 19200 BAUD) FOR 1 SECOND AND IF THE
NUMBER OF CHARACTERS TRANSMITTED IS WITHIN A RANGE, THE TEST
WILL PASS.

.TITLE

-PRGFRT-===2=zzz2222zz2233x3zz23aszazzsszs2x3332

CZDZA-10

;#COPYRIGHT (C) 1976,1984,1985
;#DIGITAL EQUIPMENT CORP.

;#MAYNARD,

MASS.

01754

&
HE

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

000001

$TN=1

;:STARTING PROCEDURE
;LOAD PROGRAM
;:LOAD ADDRESS 000200
;PRESS START

;PROGRAM WILL TYPE
;PROGRAM WILL TYPE

;AT

THE

END

“CZDZA-10/<200>/CZDZAI0 DZ11 LN ASYNC MUX TSTS *
"RUNNING” TO INDICATE THAT TESTING HAS STARTED

PASS,

PROGRAM

WILL

TYPE

PASS

COMPLETE

;AND THEN RESUME TESTING
.SBTTL

001120

000011

BASIC DEFINITIONS

;#INITIAL ADDRESS OF THE STACK POINTER 44% 1120 ##x

STACK=
.EQUIV
.EQUIV

1120
EMT,ERROR
10T,SCOPE

; :BASIC DEFINITION OF ERROR
: sBASIC DEFINITION OF SCOPE

; *MISCELLANEOUS DEFINITIONS

HT =

;:CODE FOR HORIZONTAL

TAB

CALL
CALL

MESSAGE

MACY1l 30A(1052)
02-JWL -85 16:17

(2)
(2)
(2)

000012
000015
000200
177776

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

177774
177772
177570
177570

(2)
(2)

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

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

SEQ 19

02 JUL-85
16:19
PAGE 83
BASIC DEFINITIONS

LF=
12
CR=
15
CRLF =
200
PS=
177776
.EQUIV
PS,PSW
STKLMT= 177774
PIRQ=

DSWR=
ODISP=

177772

177570
177570

: :CODE FOR LINE FEcD
; :CODE FOR CARRIAGE RETURN
: :CODE FOR CARRIAGE RETURN-LINE FEED
: ;PROCESSOR STATUS WORD
;s STACK LIMIT REGISTER
: ;:PROGRAM INTERRUPT REQUEST REGTSTER

; sHARDWARE SWITCH REGISTER
; s HARDWARE DISPLAY REGISTER

000000
000001
000002
000003
000004
000005
000006
000007
000006

000007

: *GENERAL PURPOSE REGISTER DEFINITIONS
%0
; ; GENERAL RECISTER
%1
: s GENERAL REGISTER
R2=
%2
; ; GENERAL REGISTER
R3=
%3
; s GENERAL REGISTER
R4 =
%4
; ; GENERAL REGISTER
RS=
%5
: s GENERAL REGISTER
R6=
%6
; ; GENERAL REGISTER
R7=
¥
: s GENERAL REGISTER
SP=
%6
: s STACK POINTER
PC=
%7
; ;PROGRAM COUNTER

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

100000
040000
020000

SW1S=
SW14=
SW13=
SW12=
SWll=
SW10=
SW09=
SW08=
SWO7=
SWo6=
SW0S=
SWo4 =
SW03=
SW02=
SW01=
SW00=
.EQUIV
.EQUIV
LEQUIV
.EQUIV
LEQUIV
LEQUIV
.EQUIV

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

RO=
R1=

; *PRIORITY LEVEL DEFINITIONS
0
; sPRIORITY
40
: :PRIORITY
100
; sPRIORITY
140
; s PRIORITY
200
240
300
340

LEVEL
LEVEL
LEVEL
LEVEL

; ;PRIORITY LEVEL

: sPRIORITY LEVEL

: iPRIORITY LEVEL

: sPRIORITY LEVEL

;#"SWITCH REGISTER” SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,SW9
SW08,S5W8
SWO07,SW?7
SW06,SWé
SWO05,SWS
SW04,5u4
SW03,SW3

NOVNEWNRO

CZDZA-I0
CZDZAI.P11

CZDZA-10
CZDZAI.P11

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

.EQUIV
L.EQUIV
.EQUIV

SWO02,SW2
SWO1,SW1
SWO00,SWO

;#DATA BIT DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10

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

BIT15=
BIT14=
BIT13=
BIT12=
B8IT11=
BIT10=
8IT09=
BIT08=
B8IT07=
8IT06=
BITOS=
8IT04=
8IT03=
BIT02=
8ITO01=
BIT00=
.EQUIV
.EQUIV
LEQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
LEQUIV

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20

(BITOO TO BIT1S)

2
1
8I109,B1T9
BIT08,BIT8
8IT07,8IT7
8I1706,B8IT6
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
81701,BIT1
BIT00,B8ITO

; *BASIC “CPU” TRAP VECTOR ADDRESSES

;: TIME OUT AND OTHER ERRORS
: s RESERVED AND ILLEGAL INSTRUCTIONS

i "T" BIT

;s TRACE TRAP
; : BREAKPOINT TRAP (BPT)
: s INPUT/0UTPUT TRAP (IOQT) #+SCOPExs
; ;POWER FAIL
: :EMULATOR TRAP (EMT) »4ERROR##
;: "TRAP” TRAP
;3 TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
; ; PROGRAM INTERRUPT REQUEST VECTOR

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

PIRQVEC=240

SEQ 20

02-JUL-85
16 :19
PAGE 83-1
BASIC D EFINITIONS

b N

;INSTRUCTION DEFINITIONS

Nad
N
ol o
Nl
Nl N

N
NN PN

b et

NN
NN

et gt et

PN
—

b pb P

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

MACY11l 30A(1052)
02-JUL-85 16:17

005746
005726
010046
012600
024646
022626

PUSH15P=5746
POP1SP=5726
PUSHR0=10046

;DECREMENT PROCESSOR STACK 1 WORD
: INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK

PUSH2SP=24646
POP25P=22626

;:DECREMENT STACK TWICE
: INCREMENT STACK TWICE

POPR0O=12600

:RESTORE RO FROM STACK

e —
o
o
s s
o
o

Nt Nl Nl NS Nt NS N ~

MACY11 30A(1052)
02-JuL -85 16:17

000010
000020
000040
000100
000200
010000
020000
040000
100000
000021
000023

MAINT

= BIT3

DCLR=8BIT4

MSENAB=BITS

RIE=BIT6

RDONE=BIT?
SILOEN= BIT12

SILOAL

= BIT13

TIE=BIT14
TROY=BIT1S

;MAINTENANCE MODE ENABLE

;DEVICE CLEAR

:MASTER SCAN ENABLE

;RECEIVER INTERRUPT ENABLE
;RECEIVER DONE
;SILO ALARM ENABLE

;SILO ALARM

:TRANSMITTER INTERRUPT ENABLE
: TRANSMITTER READY

$XON=21
$XOFF =23

;DZCSR WORD DEFINITIONS
000000
000400
001000
001400
002000
002400
003000
003400

TLO=0

; TRANSMIT LINE O

TL1=BIT8
TL2=BIT9

:TRANSMIT LINE 1
:TRANSMIT LINE 2

TL3=BIT9!BIT8
:TRANSMIT LINE 3
TL4=BIT10
:TRANSMIT LINE &
TLS=BIT10!BIT8
;TRANSMIT LINE 5
TL6=BIT10!BIT9
;TRANSMIT LINE 6
TL7=BIT10!BIT9!BIT8 ;TRANSMIT LINE

il ekl

ol ol ol e e el

e e e e e e e e S ol o e

02 JUL-85
16:19
PAGE 83-2
GENERAL DEFINITIONS AND EQUIVALENCES

;0Z11 CONTROL AND STATUS REGISTER DEFINITIONS
: (DZCSR)
BIT DEFINITIONS

T T T

VV\J\J\JUVVVVV\JVV\JUV\I\JU\J\JVV\JVVVUVVV\J\J\JV\JUVV\JVV\JVUV S

Gy o

f\/\fi"\f\f\f\"\f\flfififif\"\flf'\f\fi’\"\"\"\f\fififi"\f\’\fif\flflflfifififlfififififlflfi’\f\f\f\h PNNININN

CZDZA-I0
CZDZAI.P11

;DZRBUF BIT DEFINITIONS
010000
020000
040000

100000

PARER=BIT12
FRMERR=BIT13

;PARITY ERROR
;:FRAME ERROR

OVRRUN=BIT14
DVALID=BIT15

;OVERRUN ERROR
;:DATA VALID

;DZRBUF WORD DEFINITIONS
000000
000400
001000
001400
002000
002400

003000
003400

RLO=0
RL1=BIT8
RL2=BIT9
RL3=BIT9!BIT8
RL4=BIT10
RL5=BIT10!BIT8
RL6=BIT10!BIT9

;RECEIVER
;RECEIVER
;RECEIVER
;RECEIVER
;RECEIVER
;RECEIVER
;RECEIVER

RL7=BIT10!BIT9!BIT8

LINE
LINE
LINE
LINE
LINE
LINE
LINE

;RECEIVER LINE

;:DZLPR WORD DEFINITIONS
000000
000001
000002

LPO=0
LP1=BITO
LP2=BIT1

;:LINE PARAMETER 0
;LINE PARAMETER 1
;:LINE PARAMETER 2

SEQ 21

o pe

N NS
Nl N
Nl N
N

VVVVV\JVVVVVVVUVVVV\J\JVVVVVV\JVVVVVUVVVUUVVUVV\IVV\JV S

fif\fifi"\f\f\flf\"\fifiF\F\fl"\fifi"\f'\f\fifi/\fi’\f\f\fififif\f‘\flfl’\’\fiflfif\f\fihfifif\fif\fi’\f\ ITNIN
P (0 (et (et (e b P b o 8 8 b b b (e P b d fh od s ot b b b8 A b s e et b b b b P (b b b b il et (b et b b b e e o =t o s b

CZDZA-10
CZDZAI.P11

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85
16:19
PAGE 83-3
GENERAL DEFINITIONS AND EQUIVALENCES

000003
000004
000005
000006
000007

LP3=BIT1!8ITO
;LINE
LP4=BIT2
;:LINE
LP5=BIT2!BITO
;LINE
LP6=BIT2!BIT1
;LINE
LP7=BIT2!BIT1!BITO

000000
000010
000020
000030
000040
0C0050
000060
000070

FIVE=0
;FIVE BITS/CHAR,1 STOP BIT
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
FIVES=BITS
;FIVE BITS/CHAR,2 STOP BITS
SIXS=BITS!BIT3
;SIX BITS/CHAR,2 STOP BITS
SEVENS=BITS!BIT4
;SEVEN BITS/CHAR, 2 STOP BITS
EIGHTS=BITS!BIT4!BIT3
;EIGHT BITS/CHAR, 2 STOP BITS

000100
000200
000000
000040
000000
010000

PARITY=BIT6
ODDPAR=BIT7
ONESTOP=0
TWOSTOP=BITS
EVEPAR=0
RCVON=BIT12

;PARITY ENABLED
;00D PARITY ENABLED
;:ONE STOP BIT ENABLED
;:TWO STOP BITS ENABLED
;EVEN PARITY ENABLED
;ENABLE RECEIVER (RECEIVER ON)

000000
000400
001000
001400
002000
002400
003000
003400
004000
004400
005000
005400
006000
006400
007000
007400

§50=0
$75=B1T8
S110+8179
$134=BI79!BIT8
S150=81T10

;:SPEED
;SPEED
:SPEED
;SPEED
:SPEED

S$300=BIT10!BIT8
S5600=8I710!BIT9

$1200=BIT10!BIT9!BIT8

PARAMETER 3
PARAMETER 4
PARAMETER 5
PARAMETER 6
;LINE PARAMETER 7

:SPEED 300 BAUD
:SPEED 600 BAUD

;:SPEED 1200 BAUD

$1800=BIT11

;SPEED 1800 BAUD

$2400=8IT11!81T9
5$3600-BIT11!BIT9!BIT8
S4800=BIT11!BIT10
$7200=BIT11!BIT10!BIT8
$9600=8BIT11!BIT10!BIT9

:SPEED
;SPEED
;SPEED
;SPEED
;SPEED

52000=8IT11!'BIT8

:SPEED 2000 BAUD

S519200=BIT11!BIT10!BIT9!BITS

;:DZTCR BIT DEFINITIONS
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

50 BAUD
75 BAUD
110 BAUD
134.5 BAUD
150 BAUD

TCRO=BITO
TCR1=BIT1
TCR23BIT2
TCR3=BIT3
TCR4=BIT4
TCR5=BITS
TCR6=BIT6
TCR7=BIT?
DTRO=BITS
DTR1=BIT9
DTR2=81T10
DTR3-BIT11
DTR4=BIT12
DTR5=81T13
DTR6=BIT14

; TCRO
:TCR1
;TCR2
;TCR3
;TCR4
: TCRS
; TCR6
: TCR?
;:DTRO
;:DTRL
;D7R2
;:DTR3
;:DTR4
;DTRS
;:DTRE

2400
3600
4800
7200
9600

BAUD
BAUD
BAUD
BAUD
BAUD

;SPEED 19200 BAUD

SEQ 22

CZDZA-10
CZDZAI.P11
gl;
1

(1;
(1
(1)
(1
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
El;
1

MACY11l 30A(1052)
02-JUL -85 16:17

02-JUL-85
16:19
PAGE 83-4
GENERAL DEFINITIONS AND EQUIVDTR7=BIT15

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

;DZMSR BIT DEFINITIONS
PTTecteesseeseeaeaaas
RINGO=BITO
;RING INDICATED ON LINE 0
RING1=BIT1
iRING INDICATED ON LINE 1
RING2=BIT2
:RING INDICATED ON LINE 2
RING3=BIT3
;RING INDICATED ON LINE 3
RING4=BIT4
;RING INDICATED ON LINE 4
RING5=BITS
;RING INDICATED ON LINE 5
RING6=BIT6
;RING INDICATED ON LINE 6
RING7=BIT?
:RING INDICATED ON LINE 7
C00=8IT8
;CARRIER PRESENT ON LINE ©
C01=BIT9
;CARRIER PRESENT ON LINE 1
C02=BIT10
;CARRIER PRESENT ON LINE 2
C03=8IT11
;CARRIER PRESENT ON LINE 3
C04=BIT12
:CARRIER PRESENT ON LINE 4
C05=BIT13
;CARRIER PRESENT ON LINE S
C06=BIT14
:CARRIER PRESENT ON LINE 6
C07=BIT1S
;CARRIER PRESENT ON LINE 7

b b (=0 =8 ot b (b P

b b b (b b (b b n e Pt b b et b b b b

\-‘UVVVVVV\JUV\JV\JVV\JVVVV\JV\JUVVVV

f\"\flflfiF\flflf\flf\flfifl’\fifif\f\f\’\flfiflfif\fiflf\

;DTR7

;DZTDR BIT DEFINITIONS

P2 10 e o

~NCES

100000

Elg

TM~

SEQ 23

000400
001000
002000
004000
010000
020000
040000
100000

BRKO=BIT8
BRK1=BIT9
BRK2=BIT10
BRK3=BIT11
BRK4=BIT12
BRKS=BIT13
BRK6=BIT14
BRK7=BIT15

;BREAK
:BREAK
:BREAK
;:BREAK
:BREAK
;BREAK
;:BREAK
;BREAK

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

LINE
LINE
LINE
LINE
LINE
LINE
LINE
LINE

;TABLE OF LOOP AROUND FUNCTIONS (H325)

;

:
:

;

REC
DATA

TRANS
DATA

RTS

;

RING

OTR

0
1
2
3
4
S
6
7

MACY11 30A(1052)
02-JUL-85 16:17

o s 4t ot ot ot s ot pot ot ot o Pt o b Pub b Pt ot P

Nl N Nad Nt N Nl Nd N N N NP NP Nd N

;TRAPCATCHER FOR ILLEGAL INTERRUPTS

:THE STANDARD “TRAP CATCHER" IS PLACED
:BETWEEN ADDRESS . TO ADORESS 776.
:IT LOOKS LIKE *Fiec HALT".

77777

;;“ittttttttt‘tttt“ttt‘t‘t‘ttttt““ittt‘tt‘

t“tt‘tt“t“tt“‘t.‘t“

000000

.20

i STANDARD INTERRUPT VECTORS

000010
000012

000020
000022
000024
000026
000030
0C0032
000034
000036

000010
011430
000340

.=10

000020
005122
000340
010310

.=20

000340
007220
000340
007112
000340

Nt Nl Nt N

.SBTTL

RIS

W LW R et N
LR
AT AW
e

‘.‘.“‘..‘.“‘.‘

000046

000052

000174
000176

;FAKE “MTPS"” INSTRUCTION TRAP
iMAXE SURE PS IS PRIORITY 7

. SCOPE
PR7
$PWRDN
340
$ERROR
340
. TRPSRV
340
ACT11 HOOKS

:SCOPE LOOP HANDLER
;HANDLE AT PRIORITY 7
;POWER FAIL HANDLER

:SERVICE AT PRIORITY LEVEL 7
;ERROR HANDLER
:SERVICE AT PRIORITY LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
:SERVICE AT PRIORITY LEVEL 7

;HOOKS REQUIRED BY ACT11

000040
000046
005056
000052
00€000
000040

$SVPC=.
.=46
$ENDAD
.=52
.WORD
O
.=$SVPC

000174
000000

.=174
DISPREG: 0

000C€00

SWREG:

000210

000200
000137
0002:0
000137

025244

001000

001000
00520C

055103

000200

SET.PS
PR?7

.=200

002150

.=210

LIy

ITTYTITYYYYYTTYY

;SAVE PC

i31)SET LOC.46 TO ADDRESS OF

$ENDAD IN

. SEOP

::2)SET LOC.S2 TO ZERO
;; RESTORE PC

:SOF TWARE DISPLAY REGISTER FOR SWITCHLESS

11S

:SOFTARE SWITCH REGISTER FOR SWITCHLESS 11$

JMP

.START

;GO TO START OF PROGRAM

JMP

XSTART

:GOTO CABLE TEST/ECHO TEST

.ASCIZ

<200><12>/CZDZA 10/<20C>/CZDZAIO DZ11 LN ASYNC MUX TSTS

;:““““““““““““.““““‘““““““““‘.

NN PN PN N NN~

PO RO N PO =0 o et o ot ps gt o o N N P MO GIN N

A AT A

PONATN NN NN

SEQ 24

02-JUL-85
16:19
PAGE 83-S
TRAPCATCHER FOR UNEXPECTED INTERRUPTS

b e pb Pt s pa

D Nt Nl Sl ol Nl N Nl N Nd NP Nt

fif\’\f\f\f\fif\f\f\fififlfifif\ fififif\fihf\f\"\fl’\f\flfl

CZDZA-10
CZDZAI.P11

055108

.=1000
MTITLE:

/<200>

ETNTNITNITN NN

MACY11 30A(1052)
02-JUL -85 16:17

SEQ 25

02-JUL-85
16:19
PAGE 83-6
COMMON TAGS

.SBTTL

COMMON TAGS

PSR ARAAAAARAAAR
LA ARR0E000
ASA04440000
ARE00000008
RARRA
40444

;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;#USED IN THE PROGRAM,
.=1120

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
077
015
000012

$REGO:
$REG1:
$REG2:
$REG3:
$REG4:
$REGS:
$TMPO:
$TMPL:
$TMP2:
$TMP3:
$TIMES:
$QUES:
$CRLF:
$LF:

177570

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
0
.ASCII
.ASCII
.ASCIZ

0000

.SBTTL

o OCOO0OO0OO0OO0OO0O0OOOHOOOOOOO0O
[72]
=
P

001202
001204
001206
001210
001212
001214
001216
001220
001222
001224
001226
001230
001231
001232

000000
000000
000000
000000
000
000
000000
177570

; s START OF COMMON TAGS

: sCONTAINS THE TEST NUMBER
;i ;CONTAINS ERROR FLAG
: ; CONTAINS SUBTEST ITERATION COUNT
; sCONTAINS SCOPE LOOP ADDRESS
: i LONTAINS SCOPE RETURN FOR ERRORS
s s CONTAINS TOTAL ERRORS DETECTED
: ; CONTAINS ITEM CONTROL BYTE
; i CONTAINS MAX. ERRORS PER TEST
i ;CONTAINS PC OF LAST ERROR INSTRUCTION
: ; CONTAINS ADDRESS OF ‘GOOD‘ DATA
; s CONTAINS ADDRESS OF 'BAD' DATA
; s CONTAINS 'GOOD' DATA
: ;CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED
: sAUTOMATIC MODE INDICATOR
: s INTERRUPT MODE INDICATOR
: ; ADDRESS
; : ADDRESS
;:TTY KBD
::TTY KBD

177560
177562
177564
177566
000
002
012
000
000000

.WORD
$TSTNM: .BYTE
$SERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL
: .WORD
$ITEMB: .BYTE
$ERMAX
: .BYTE
$ERRPC: .WORD
$GDADR
; .WORD
$B8DADR: .WORD
$GDDAT
: .WORD
$8DDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$SFILLS: .BYTE
$SFILLC: .BYTE
$TPFLG: .BYTE
$REGAD
: .WORD

$CMTAG:

OOrrMNO

001120
001120
¢01122
001123
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
0C1152
001154
001155
001156
001160
001162
001164
001166
001170
001172
001174
001175
001176
001177
001200

OCO0OO0OO0OO0O0O0OO0O0OO

N NN PN

NN PN PN PN PN PN PN PN ONNNININININNONNONNN
PN PN PN PN N

ININNINININININNNN
N

CZDZA-10
CZDZAI.P11

R0A0AAb0ASR

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER

;3 TTY PRINTER STATUS REG. ADDRESS
;s TTY PRINTER BUFFER REG. ADDRESS
; : CONTAINS NULL CHARACTER FOR FILLS
; sCONTAINS ¢ OF FILLER CHARACTERS REQUIRED
: s INSERT FILL CHARS. AFTER A "LINE FEED"
;s "TERMINAL AVAILABLE” FLAG (BIT<07>=0sYES)
; ;CONTAINS THE ADDRESS FROM
;s WHICH
($REGO) WAS OBTAINED
: ; CONTAINS (($REGAD)+0)
: : CONTAINS (($REGAD)+2)
: ;CONTAINS (($REGAD)+4)
; i CONTAINS (($REGAD)+6)
: s CONTAINS ((S$REGAD)+10)
: i CONTAINS (($REGAD)+12)
; ; USER DEFINED
: ; USER DEFINED
: ; USER DEFINED
: s USER DEFINED
: sMAX. NUMBER OF ITERATIONS
;s QUESTION MARK
; ;sCARRIAGE RETURN
:sLINE FEED

0040050400008 0000088002840000800000000048448

APT MAILBOX-ETABLE

CZDZA-10
CZDZAI.P11
(3)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

MACY11 30A(1052)
02-JUL-85 16:17

02-JUL-85

16:19

SEQ 26

PAGE 83-7

APT MAILBOX-ETABLE

(1088800400000
RS AA RS SRR LS AR ARR A AR AL NS00 000 0A4A40A

001234
001234

.EVEN

001236
001240
001242
001244
001246
001250
001252

000000
000000
000000
000000
000000
000000
000000
000000

001254
001255
001256
001260
001262

000
000
000000
000000
000000

0C1264
001265

000
000

001266

001270
001271
001272
001274
001275
00127€
001300
001301
001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326
001330
001332
001334
001336
001340
001342

001254

$MAIL:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$OEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
$ENVM:
.BYTE
$SWREG: .WORD
$USKR:
.WORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWRES
AUSHR
ACPUOP

.BYTE
.BYTE

AMAMS]1
AMTYPL

000000

.WORD

AMADR1

000
000
000000
000
000
000000
000
000
000000
000000
000000
160010
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

.BYTE
.BYTE
.WORD
.BYTE
.BYTE

AMAMS2
AMTYP2

$MAMS]
:
$MTYPL:

$MAMSA;
MTYPA:

$MADR4:
$VECTL:
$VECT2:
$BASE;
$DEVM:
$COWL:
sCoM2:
$0DWO:
$O0M1:
$0DW2:
$DDW3:
$00U4:
$DDMWS:
$00W6:
$OD0M7:
$0DWe:
$00M9-

.WORD
.BYTE

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

AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4
AVECT1
AVECT2
ABASE
ADEVM
ACOMW1
ACOM2
ADDWO
ADDW1
ADDW2
AODW3
ADDWA
ADDWS
ADDW6
ADDW?
ADDWS
ADDOW9

;s APT MAILBOX
; sMESSAGE TYPE CODE

: sFATAL ERROR NUMBER

;s TEST NUMBER
; sPASS COUNT
;s sDEVICE COUNT
::1/0 UNIT NUMBER
; ;MESSAGE ADDRESS
s sMESSAGE LENGTH
;i APT ENVIRONMENT TABLE
: s ENVIRONMENT BYTE
; s ENVIRONMENT MODE BITS
;s APT SWITCH REGISTER
;s USER SWITCHES
:;CPU TYPE,OPTIONS

BITS 15-11=CPVU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10
BIT 10=REAL TIME CLOCK
BIT
9sFLOATING POINT PROCESSOR
B8IT
8=MEMORY MANAGEMENT

: sHIGH ADDRESS,.M.S. BYTE
;s MEM. TYPE,BLK®1

MEM.TYPE BYTE
-(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003

1 ;HIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF

: sHIGH ADDRESS,M.S. BYTE

s s MEM, TYPE ,BLK @2

s sMEM.LAST ADDRESS,BLK#®2
; ;HIGH ADDRESS,M.S.BYTE
s s MEM. TYPE ,BLK®3

s sMEM.LAST ADDRESS,BLK#3
s sHIGH ADDRESS ,M.S.BYTE

s sMEM.TYPE ,BLKO4
: sMEM.LAST ADDRESS,BLK#®4

: sINTERRUPT VECTOR®1,8US PRIORITY#1
s s INTERRUPT VECTOR®2BUS PRIORITY®2
s ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;s sDEVICE MAP
: s CONTROLLER DESCRIPTION WORD#1
s sCONTROLLER DESCRIPTION WORD#2
;s sDEVICE DESCRIPTOR WORD#0O
s sDEVICE DESCRIPTOR WORD#1
s ;DEVICE DESCRIPTOR WORD#2
: : DEVICE DESCRIPTOR WORD®3
: ;DEVICE DESCRIPTOR WORDM
: ;DEVICE DESCRIPTOR WORD®S
+;DEVICE DESCRIPTOR WORD®®
s ;DEVICE DESCRIPTOR WORD®7
s sDEVICE DESCRIPTOR WORD®S
; ; OEVICE DESCRIPTOR WORD#®9

“TYPE" ABOVE

C2DZA-10
CIC7AI.P 11
(4)
(4)
(4)
(4
(4)
(8)
(4
(4)
(4)
(4

001344
001346
091350
001352
001354
001356

001360

MACY11 30A(10S52)
02-JuL 85 16:17
000000
000000
000000
000000
000000
000000

02-JUL

SEQ 27

85
16:19
PAGE 83 8
APT MAILBOX-ETABLE
$0DW10:
s$ODW!1L:
$0DW12:
$DDW13:
$DDW14:

$DDW1S:

SETEND
:

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

ADDW10
ADDW11
ACDW12
ADDW13
ADDOW14
ADDW15

: sDEVICE
+sDEVICE
+ sOEVICE
s sDEVICE
:sDEVICE
: sDEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DEJCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD#10
WORD#11
WORD#12
WORD413
WORD&14
WORD#15

C2DZA-I0
CZDZAI.P 11

MACY11l 30A(1052)
02-JWL -85 16:17

SBTTL

S ~
S
P

-0

SN
DN
A

se¢NOTEL:
;seNOTE2:

-~ et

EM
OH
07
OF

; sPOINTS
::POINTS
;:POINTS
;sPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

;:PROGRAM CONTROL PARAMETERS
001360
001362

000000
000000

001364
001366
001370
001372
001374
001376
001400
0014C2
001404
001406
001410
001411

000377
017070
000000
0000600
000000
000000
000000
000000
000001
0000C:
000001
001

001412

001500

NEXT:
LOCK:

0
o

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

LINE:

377
17070
0

;DEFAULT ALL EIGHT LINES RUNNING
:PARAMETERS: 8 BITS/CHAR,2 STOP BITS,
;DEFAULT MAINTENANCE MODE

0
0
0
0
0

;LINE NUMBER
; TRANSMISSION LINE NUMBER
;COUNT OF WORDS IN A TRANSMISSION PATTERN
;DEVICE ADDRESS STORAGE LOCATION
;PROGRAM COUNTER STORAGE

001360

IF $ITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

LV R, VRVY,

~eNA

(2)

ERROR POINTER TABLE

1¢THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;o THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

NN
o~ NN

[\ N, V) PO G

Nt N

G L L Lo U U (N (7 X7 XV ]

NN PN ~Ne~S

(3)

SEQ 28

02 JU 85
PAGE 83-9
16:19
ERROR POINTER TABLE

(2)
(2)
(2)
(¢)
(2)
(2
(2)
()
(23
(2)
(2)
(2)
(2)
(2)
23

PAR:
MQODE:

SAVLIN:

XMTLIN:
XMTCNT:
REGIST:
SAVPC:
DZACTV:
RUN:
DZNUM:
SAVNUM:
.EVEN
ACTIVE:

BLKW

1
.BLKB
‘BYTE

DZ.MAP

1
1
1

:4DZ11'S SELECTED ACTIVE.

:«POINTER ONE PAST RUNNING DEVICE.
:40CTAL NUMBER OF DZ11'S.
: #WORKABLE NUMBER.

:TABLE POINTER.

960C BAUD,NO PARIT

CZDZA-I0
CZDZAI.P11
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(3
(2)
(3)
(2)
(2
(2)
(2)
(2)
(2)
(3
(2)
(2)
(2)

(2)
(2)
(2)
(2)
(2
ot T
o ot

\W A WAWAWLAwAY]

Y XX
Xan X

(2)

MACY1l 30A(1052)
02-JWL -85 16:17

02-JUL-85
16:19
PAGE 83
ERROR POINTER TABLE

SEQ 29

; PROGRAM CONTROL FLAGS

001414
001415
001416
001417
001420

000
000
000
000
000
001422

EIAFLG:
INIFLG:
HDRFLG:
MNTFLG:
DgNEkG:
.EV

001422
001424
001426
001430
001432
001434
001436
001440
001442
001444
001446
001450
0C1452
001454
001456
001460
001462

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

T00:
TD1:
T02:
T03:
T04:
TDS:
T06:
T07:
TRO:

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

TR1:
TR2:
TR3:
TR4:

O
O
0
O
0
O
O
0
O

.WORD
.WORD

0
O

TR6:
TR7:

.WORD
.WORD

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

:DATA VARIABLES

.WORD
.WORD

TRS:

.WORD

STOP:
:

END

MACR)O

O
O
0
O
©

:0=EIA
100000=20MA
;PROGRAM INITIALIZATION FLAG
:PROGRAM INITIALIZATION FLAG FOR HEADER MAP
;MAINTENANCE BIT SET FLAG
; TRANSMISSION COMPLETION FLAG

O
O

O
©
==z23=zzxzz333zz2xz3=2

.SBTTL

APT PARAMETER BLOCK

ST T

TTTTrryryryTy

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
LY

000024
000044

001462
000024
000200
000044
001462
001462

L8X=,
.=24
200
.=44
$APTHDR
.=.8X
L

N Ty

; s SAVE CURRENT LOCATION
;sSET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
; :POINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION CQUNTER

LTIy

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFACE SPEC.
001462
001462
0C 1464
001466
001470
001472
001474

001500

000000
001234

000132
000137
000137
000052

001500

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

.WORD
.WORD
_WORD
.WORD
.WORD

0
$MAIL
90.
9S.
95.

;; TWO HIGH BITS

; ; ADDRESS OF
;:RUN TIM OF

18 BIT

MAILBOX

APT MAILBOX (BITS 0O
LONGEST TEST

ADDR.

15)

;sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
; ; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL

.WORD
SETEND $MAIL/2 ;;LENGTH MAILBOX-ETABLE(WORDS)
;D211 STATUS TABLE AND ADDRESS ASSIGNHENTS

.=*1500
DZ .MAP:

UNIT

MACY1l 30A(1052)
02-JUL -85 16:17

JUL -85

16:19

SEQ 30

PAGE 83-11

APT PARAMETER BLOCK

001574
001576
001600
001602
001604
001606

000001
000001
000001
000001
000001
000001

DZCR3:
DZVC3:
DZLV3:
LINE3:

PAR3:
MANT3:
:
- END

DZCR4:
DZVC4:
DZLV4:
LINES:

s
s
b
et
-

s e
b

;PARAMETERS

"ACRO

;sMAINTENANCE MODE FOR THIS DEVICE

ZEEZXITEZTXZITEZXTESEZIESIEZ

s
s
s
-

.BLKW
.BLKW
.BLKW
. BLKW

.BLKW
.BLKW

-$JUNK-zz2sz2zzssz3z22sasz2223s3333c=2238233%2

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

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

MACRO

-$JUNK-2xsxz233=2222233223232233axx323azzza3x2

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

==zzszzzxz2xzxzzs3z232

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
. BLKW
0

000001
000001

PAR2:
MANTZ2:
: -- END

000001
000001

DZCRe:
Dpzvce:
DzZLvZ:
LINEZ:

;MARINTENANCE MODE FOR THIS DEVICE

ITXZXEZITZETTEZTTARTTES

"ACRO

;CONTROL STATUS REGISTER FOR 0Z11 NUMBER 3
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 3
:PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
:PARAMETERS

;MAINTENANCE MODE FOR THIS DEVICE
:

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

PAR4
:
MANT4:
; -- END 0 "ACRO

DZCRS:
.BLKW
DZVCS:
.BLKW
DZLVS:
.BLKW
LINES:
.BLKW
PARS
:
.BLKW
MANTS:
. BLKW
:
- END 0 HACRO

$JUNK-z333232222333==x222x=3=2=zxx32x=3=332

2EXI-ZITITTIZTTIZIIIZIIE

-$JUNK-za3zzz3==zazxz3332==2z22=23=33===2=-2-.=2-2

:CONTROL STATUS REGISTER FOR DZ11 NUMBER 4
;RECETVER AND BASE VECTOR
FOR DZ11 NUMBER 4
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED

000001
000001

PARL:
MANTL:
:
END

HACRO

2zzx3zs3s233333ssxazsassaszsssszszanzs

;PARAMETERS

001560
001562
001564
001566
001570
001572

000001
000001
000001
000001
000001
000001

DZCR1:
DZVC1:
DZLV1:
LINEL:

~$JUNK

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

001544
001546
001550
001552
001554
001556

000001
000001
000001
000001
000001
000001

PARO:
MANTO:
; -- END

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

001530
001532
001534
0C1536
0C1540
001542

000001

000001
000001

DZCRO:
DZVCO:
DZLVO:
LINEO:

;PARAMETERS

001514
001516
001520
001522
001524
001526

000001
000001
000001

;MAINTENANCE MODE FOR THIS DEVICE

- ST "STT_ZTBXXXIIZS
:

$JUNK--==x23323=z-2x2233232222323==323c333=22

;CONTROL STATUS REGISTER FOR DZi1 NUMBER S
;RECEIVER AND BASE VECTOR

FOR DZ11 NUMBER S

;PRIORITY LEVEL AND EIA FLAG SELECTOR

ol el

001500
001502
001504
001506
001510
001512

V\JV\JU\J\J\JUU\JVVV\JV\JU\J\J\JV\J\JVVVU\J\J\JVV\JVVVV\J\JUVVVVVV\JUVVUVV s

fif\fifif\f\f\fififlf\fiflf\f\fif\f\/\f\fif\fif\fiAf\f\fl"\fifififlf\fififlfififl\f\fiflf\fif\fi/\f\n NN
O Gl O O O O O (O O O G (O G (N O O B G G O (O N O O N O N O G QN (N O QN G G (N G O O O G N N 8 W NWWWWWWHNW [Z X7)

CZ0ZA-I0
CZDZAI.P11

ZTZ" XTI T

;ALL LINES SELECTED
;PARAMETERS
;sMAINTENANCE MODE FOR

T oI

II=TZ22 :

THIS DEVICE

$JUNK-z23xx=222332=-

T33a~z2=2z2o..3==2-=2=2s=22

C20ZA-I0
CZDZAI.P11
(3)
(3)
(3)
(3)
(3)
(3)

000001
000001
000001
000001
000001
000001

02-JUL-85
16:19
PAGE 83
APT PARAMETER BLOCK
DZCR6:
0ZVC6:
DZLV6:
LINE6:
PARG:
MANT6:
:

END

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
0

HACRO

1
1
1
1
1
1

D NS

3)
3)
3)
3)

001624
001626
001630
001632

000001
000001
000001
000001

001636

000001

001634

000001

N N N
N N
N

;:CONTROL STATUS REGISTER FOR DZ11 NUMBER 6
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 6
;PRIORITY LEVEL AND EIA FLAG SELECTOR
:ALL LINES SELECTED
;:PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE

AXZXTIXTXZIITSIBISRITISE

001640
001642
001644
001646
001650
0C1652

000001
000001
000001
000001
000001
000001

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

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

MANT7:

BLKW

;MAINTENANCE MODE FOR THIS DEVICE

PAR7Y:

.BLKW

;PRRAMETERS

-- END.O MACRQ =z=zzzzzzzz3z2xzx32=x2

DZCR10:
0ZVC10:
DZLV1O:
LINE1O:
PAR10:
MANT10:

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

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

- END.O MACRO =xzzasz2z-zxzzazzx=x22

DZCR11l:
DZVC11:
DZLV11:
LINE1l:
PAR11:
MANT11:

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

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

-- E&D.O MACRO) ==x=zzzxzz3x3szzzzxxx

DZCR12:
DZVC12:
DZLV12:
LINEL12:
PAR12:
MANT12:

.BLXW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

END.O MACRO ==z3=z=z2xzzx2zz=z23

DZCR13:
DZVC13:
DZLV13:
LINE13:
PAR13:
MANT13:

;

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

1
1
1
1
1
1

000001
000001

-$JUNK

zzzz2z2zxxxx-3332223332333233=22x23x22=2

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 13
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 13
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE

-- END.O MACRQ ==szz2zzzazxszzsszzzzs
:

001720
001722

-$JUNK-z2zz3xazx-z33azazzxazssaxz-z=232z2323=

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 12
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 12
;PRICRITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
:PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE
:

001704
001706
001710
001712
001714
001716

-$JUNK-=xz33223zaz2x2332x23x2====223333x333=

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 11
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 11
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE
:

001670
001672
001674
001676
001700
001702

$JUNK-z2z23323s32z32azzss3z23s3szcxasasz~x~3%

;:CONTROL STATUS REGISTER FOR DZ11 NUMBER 10
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 10
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE
:

001654
001656
001660
001662
001664
001666

-$JUNK-z233223s2333332323232233 325323322222 "

DZCR7:
DZVC7:
DZLV7:
LINE?:

il N
D N Nl N N N N N N Nl Nl N
N N

NI NN NN WA
DI

Nl Nl N Nl N Nl N

SEQ 31

Nl N S

NN NN NN NN NN NN NN NN I NN NI

Sl N Sl N N

ol Nl NS N

W NN NN W

"\flfifif\f\f\f\f\fif‘\fi/\f\f\fifi’\fi’\f\l\f\fif\fifif\f\f\f\’\f\fifififlfifif\f\fifif\fi’\f\fifi

(3)

001610
0901612
001614
001516
001620
001622

MACY11l 30A(10S2)
02-JUL -85 16:17

DZCR14:
DZVC14:

.BLKW
.BLKW

1
1

$JUNK-zzxx=3xsxx23x232222-235~zz322333332=3

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 14
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 14

CZDZA-10
CZDZAI.P11

= = O

N N N O OGN O

NN O

S NNt Nt N N Nl N N N N N N M Nl N Sl N N N N Nl o N N o o

D D ot

N O8N W N N N N NN NN

fif\flf\flf\flfif\flflhf\fifif\fififif\fififi ININININSNNNN

(3)

001724
001726
001730

001732

MACY11 30A(10S2)
02-JUL -85 16:17
000001
000001
000001
000001

SEQ 32

02-JUL-85
16:19
PAGE 83-13
APT PARAMETER BLOCK

DZLV14 :
LINE14 :
PAR14:
MANT 14 :
:

END

.BLKW
JBLKW
.BLKW
BLKW
O

"ACRO

1
1
1
1

;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;:PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE

ZZ3xT3IZER2TITTTSSTTI2SE

001734
001736
001740
001742
001744
001746

000001
000001
000001
000001
000001
000001

DZCR15 :
DZvC15 :
0ZLV15 :
LINELS :
PAR1S:
MANT 1S :
:

JBLKW
JBLKW
.BLKW
BLKW
BLKW
JBLKW

END

1
1
1
1
1
1

MACR)O

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 15
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 15
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
:MAINTENANCE MODE FOR THIS DEVICE

=z==z=zzz2zazzzzxsszzazax

001750
001752
001754
001756
001760
001762

000001
000001
000001
000001
000001
000001

DZCR16:
DZVC16:
DZLV16:
LINE16:
PAR16:

MANT
16 :

.BLKW
BLKW
.BLKW
.BLKW
BLKW
BLKW

1
1
1
1
1
1

EfiD-o HACRO ZTEEXEFIZRTIBTBRTTZRTETE

001764
001766
001770
001772
001774
001776

000001
000001
000001
000001
000001
000001

DZCR17:
DZVC17:
DZLV17:
LINEL7:
PAR17:
MANT17:

BLKW
.BLKW
.BLKW
BLKW
.BLKW
BLKW

002000

177777

DZ.END :

177777

~$JUNK-zsssasxzsszszsxaszszzzaszsassazsaxzazss

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 16
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 16
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE
:

~$JUNK-ss3sszzsszasssasszzassxsssssnassanzns

1
1
1
1
1
1

-$JUNK-z22z22233s223x22232sx32233xaT3333222=

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 17
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 17
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODF FOR THIS DEVICE

END'O MACRO =z===z2z2_z33z2=2z3=2=2=

C20ZA-10
CZDZAI.P11

MACY11 30A(1052)
02-JUL -85 16:17

(1)
(1L
gi;

;OEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
:IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS

(1)

(1)
(1)
(3)
(2)
(2)

(3
(2)

(2)

(3
(2)

(2)

(3)
(2)
(2)
(3
(2)

(2)

3)
(2)

(2)

(3)
(2)
(2)
(3)
(2)

(2)

(3
(2)
(2)
(3
(2)

(2)

(3
(2)
(2)

(3)
(2)

(2)

(3
(2)
(2)

(3)
(2)
(2)

(3)
(2)

Ef%

SEQ 33

02-JUL.-85
16:19
PAGE 83-14
APT PARAMETER BLOCK

““““““““““““““““““““““““fi““

““““‘“““

002002

104400
007206

e i
LT
TRPTAB
ADVANCE TRAP+0
;CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE)
.ADVANCE

002004

104401
005376

SCOPI TRAP.1
.SCOP1

002006

104402
005422

TYPE=TRAP+2
.TYPE

002010

104403
006242

INSTR=TRAP+3
;CALL TO ASCII STRING INPUT ROUTINE
.INSTR
: -~ END O HACRO TzZzzxTIITITITITI=T=x=

002012

104404
006416

INSTER=TRAP+4
.INSTER

0C2014

104405
006436

002002

;

END

MACRO

MACR)

MACRO

zz2zzzz2x3z=233z22332=

;CALL TO LOOP ON CURRENT DATA HANDLER
=sz23sz2xzazazxszazxs

;:CALL TO TELETYPE OUTPUT ROUTINE
==zzz22z2zzxazzxz2x=223

;:CALL TO INPUT ERROR HANDLER
z=zz3zz2z3sz=zxz2x3222

PARAM=TRAP +5
.PARAM
:

END

MACRQ

;CALL TO NUMERICAL DATA INPUT ROUTINE
zzzzzzsszss3z33x222

002016

104406
011142

SETFLG=TRAP+6
:CALL TO
SET FLAG ROUTINE
.SETFLG
: -- END O MACRQ ==x==z2=zz22:xzxasz_zaz=z2

002020

104407
006636

SAVOS=TRAP.+7
.SAVOS

002022

104410
006676

RESOS'TRAP'IO
;:CALL TO REGISTER RESTORE ROUTINE
.RESO5
: -- END 0 MACRO zz=x=zz3x=3s223z323322

002024

104411
006730

CONVRTsTRAP+11
.CONVRT

002026

104412
006734

CNVRT=TRAP+12
.CNVRT

002030

104413
007134

DEVICE CLR=TRAP+13
.DEVICE.CLR

002032

104414
007166

DELAY=TRAP+14
.DELAY

002033

104415
026772

PARHD TRAP+15
.PARMD

;

002036

104416
027166

002030

104417
007154

~--

END

"ACRO

MACR)

HACRO

;CALL TO REGISTER SAVE ROUTINE
22SZIISTIZIITIERXISIIAET

;CALL TO DATA OUTPUT ROUTINE
EET2TITZIITTIIRTITEIRNST

;CALL TO DATA QUTPUT ROUNTINE WITHOUT CR/LF.
==s=szzsszssszazszxa

=szsssaszssssssssxzzs

;CALL TO DELAY FOR FAST CPU'S
s=xsszzzszszzsssszzs=s

sCONVERT DECIMAL STRING TO OCTAL
S SEZZ3E3SSEEISIEEES

PAWCH=TRAP+16
.PAWCH
:

END

"ACRO

DCLASM=TRAP+17
.DCLASH
i

END

MACR)

;:CALL TO ISSUE A DEVICE CLEAR

;SET FLAG
S

ECHO OR

CABLE

ESSESERZSESEXZZISIE

;CLEAR DEVICE,
sz=szsszxssszxzsazznas

SET MAINT.

BIT IF I MODE

CZ0ZA 10
CZDZAI.P11

(1)
(1

MACY11 30A(1052)
02-JuL -85 16:17

02-JUL-85

16:19

SEQ 34

PAGE 83-15

APT PARAMETER BLOCK
Hdd

LIS

RIS

RS S

TP IR

YRR P

PP Y

PPy P

Y Y

PTIVT

YY)

CZDZA-I0
CZDZAI.P11

(1)
gl;
1
(1)
(1)
(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
51;
1

MACY11l 30A(1052)
02-JUL-85 16:17

02-JUL -85
16:19
PAGE 83-16
APT PARAMETER BLOCK

iDZ11 VECTOR AND REGISTER INDIRECT POINTERS
;WORKING AREA
002042
002044
002046
002050
002052
002054
002056
002060
002062
002064
002066
002070

160040
160041
160042

DZCSR:
160040
HDZCSR: 160041
DZRBUF: 160042

160043
160042
160043
160044
160045
160046
160047
160046
160047

HDZRBUF :
DZLPR:
160042
HOZLPR: 160043
DZTCR:
160044
HDZTCR: 160045
DZMSR:
160046
HDZMSR: 160047
DZTDR:
160046
HDZTOR: 160047

002072
002074
002076
002100

000300
000302
000304
000306

DZRIV:
DZRIS:
DZTIV:
DZTIS:

;R/W
;R/W
;READ ONLY

160043
;READ ONLY
;WRITE ONLY
;WRITE ONLY
;R/W
;R/W
;READ ONLY
;READ ONLY
;WRITE ONLY
;WRITE ONLY

;:DEFAULT DZ VECTORS
300
;REC INTR VECTOR
302
;REC INTR STATUS
304
;XMIT INTR VECTOR
306
i XMIT INTR STATUS

SEQ 35

MACY1l 30A(1052)
02-JW -85 16:17

02-JUL -85

16:19

PAGE 83-17

APT PARAMETER BLOCK

002102
002102
002104
002106
002110
002112
002114
002116
002120
002122
002124
002126
002130
002132
002134
002136
002140
002142
002144
0C2146

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

TMTBL:
150:
175:
T110:
T134:
T150:
T300:
T600:
T1200:
T1800:
T2000:
T2400:
T73600:
T4800:
T7200:
19600:
TEIGHT:0
TSEVEN:
TSIX:
TFIVE:

OO00QCO0OOCOO0OO0OO0COOOO0OO

; TIME TABLE FOR RELATIVE TIMING TESTS

OO0

o P

=t et ot (ot ol o (oh e

b el Pt P (et ot b b b et e s b [

VVVVUVVVVVVVVVVUUVVVVVV A

fif\fif\fififlfififififififlfifififififlfiflfi ”~

C2DZA-I10
CZDZAI.P 11

SEQ 36

CZDZA-10
CZDZAI.P11

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85
16:19
PAGE 83-18
PROGRAM INITIALIZATION AND START UP.

(1)
(1)
1)
(1)
(1)
(1)
gi;
1

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

(1)
(1)
{1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

SEQ 37

:PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS
:TYPE TITLE MESSAGE

002150
002150
002152
002156
002162
002170
002176
002204
002212
002220
002226
002234
002242
002250
002256
0C2262

002266
002274
002302
002306
002312

000005
012706
106427
012737
012737
012737
012737
012737
012737
012737
012737
012737
113737
005037
105037

002316

012737
012737
005037
005037
005037
012737

002324
002330
002334
002342
002350
002352
002354
002356
002364
002372
002376
002402
002406
002410
002416
002420
002424
002430
002434
002436

013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
105737
001010
023727
001402
104402
105337
105737
100006
004737

002442
002444

000240
000240

.START:
001120
000340
010310
005122
000330
007220
000340
007112
000340
010310
000340
001410
001242
001123
001500
000001
001132
001136
001122
002150

001126

000006
000004
002354
177777

000004
176610

000024
000020
000022
000030
000032
000034
000036
000024
000026
001411
001412
001406

000176
000174
000004
000006
001415

001160
001162

000042

005056

001000
(01415
001255
012102

RESET
MOV
MTPS
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOvV8
CLR
CLRB
MOV
MOV
CLR
CLR
CLR
MOV

:CLEAR THE WORLD. START NEW ENVIRONMENT
#STACK,SP
:SET UP STACK
#PR7
;LOCK OUT INTERRUPTS
4$PWRDN, 8424
;:SET UP POWER FAIL VECTOR
4$SCOPE, B4IOTVEC
;SET VECTOR FOR SCOPE ROUTINE
9340,80I0TVEC+2
;LEVEL 7
@$ERROR, BOEMTVEC
;SET VECTOR FOR ERROR ROUTINE
©340,80EMTVEC.2
;LEVEL 7
@.TRPSR, 84TRAPVEC
;SET VECTOR FOR TRAP CALLS
@340,80TRAPVEC+2
sLEVEL 7
@$PWRDN, 84PWRVEC
;SET VECTOR FOR POWER FAIL ROUTINE
9340,84PWRVEC+2
;LEVEL 7
DZNUM, SAVNUM
:SAVE NUMBER OF DEVICES IN SYSTEM.
$PASS
:CLEAR PASS COQUNT
$SERFLG
:CLEAR ERROR FLAG
#DZ.MAP ,ACTIVE
;GET MAP POINTER.
41,RUN
;POINT POINTER TO FIRST DEVICE.
$ERTTL
:CLEAR ERROR COUNT
$ERRPC
;CLEAR LAST ERROR POINTER
$TSTNM
;SET UP FOR TEST 1
#.START,$LPADR
;SET UP FOR POWER FAIL BEFORE
; TESTING STARTS
;SET UP FOR SMALL 11 SWITCH REGISTER COMPATIBILITY
MOV
6 -(SP)
;iSAVE BUS ERROR PS
MOV
4,-(SP)
iSAVE BUS ERROR PC
MOV
204 ,4
;SET UP TO TRAP TO THIS ROUTINE
CMP
4-1,8SWR
:CAN 177570 BE REFERENCED?
BEQ
224
;IF SO AND IT IS -1, TREAT LIKE SWITCHLESS
BR
214
;IF YES,SKIP AROUND THE SETUP
204:
POP2SP
;REMOVE THE TRAP FROM THE STACK
22%:
MOV
@SWREG, SWR
;IF NO,TRAP COMES HERE.POINT TO SNFTWARE SWR
MOV
40ISPREG,DISPLAY ;POINT TO SOF TWARE DISPLAY REGISTER
21$:
MOV
(SP)+,4
;RESTORE THE BUS ERROR VECTOR
MOV
(SP)+,6
TST8
INIFLG
sTITLE ALREADY PRINTED?
BNE
29
;BRANCH IF YES
CMP
8042 ,9$ENDAD
;RUNNING UNDER ACT?
BEQ
31%
;IF YES DONT PRINT TITLE
TYPE
JMTITLE
:PRINT THE DIAGNOSTIC‘'S TITLE
318:
OECB
INIFLG
;SET THE ONCE ONLY FLAG
29¢:
TSTB
$ENVM
;:DETERMINE WHETHER APT SIZING SHOULD BE DONE
8PL
30
:IF NOT, GO CHECK FOR AUTO SIZING
JSR
PC,SETAPT
;OTHERWISE, GO DO APT SIZING FROM ETABLE
;REPLACE "CLRB HDRFLG" WITH NOP'S
NOP
NOP
H
CLRB
HDRFLG
;MAKE SURE STATUS TABLE IS PRINTED

PO N >=o =0 =0 10 1o oo =t ot pt (ot Pt put Pt ps P

Pttt
et pa [

UVVV\JVUV\JV\JV\JVV\J\JV Nt Nl ot Nt

fiflflf\f\f\fif\f\flf\flflflfififlf\fif\f\fi ~~

CZ0ZA-10
CZDZAI P11
002446
002452
002460
002462
002470
002472
002476
002500
002504
002510
002514
002516
002522
002524

MACY11 30A(1052)
02-JUL -85 16:17
000137
032777
001011
122737
001003
105777
100402
000137
012700
105037
005020
020027
001374
105337

02-JUL-85
16:19
PAGE 83-19
PROGRAM INITIALIZATION AND START UP.

004420
000001

176500

000377

001415

003244
001500
001416

32%:

65¢:

002000

324
@377,INIFLG
.+10
ISHR
324
73%
4DZ.MAP,RO
HORFLG
(RO)»
RO, #DZ.END
654
INIFLG

CLR

CMP
BNE
DECB

001415

;GO PRINT DZ STATUS TABLE
;RESELECT ?
:IF YES, GO SET UP THE INFORMATION
:ON 1ST START; MUST ANSWER QUESTION
;IF NOT ANSWERING QUESTIONS
;ARE U AUTO SIZING?
iNO AUTO SIZE! NO SWOO=1 ON 1ST START!
;IF NO, SKIP THE INTERROGATION
;POINT TO THE BEGINNING OF THE MAP TABLE
iMAKE SURE A MAP GETS PRINTED
;:CLEAR A TABLE LOCATION
+HAVE THE TABLE BOUNDARIES BEEN EXCEEDED?
:IF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE
:INSURE NO AUTO SIZING IF QUESTIONS ANSWERED!

i THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP
;TABLE AND SET UP THE DIAGNOSTIC.
:GET THE BASE ADDRESS OF THE DZ11'S
002530

33$:
i

002530
0C2532
002534
002536
002540
002542
002544
002545

104403
003464
104405
160000
163770
001506
007
001

002546

013737

001500

INSTR
66$
PARAM
160000
163770
DZCRO
.BYTE
.BYTE
END

001310

MACRQ

MOV

-$GETPAR-s=3sszssssssssssssssassansssssnns

;CALL THE STRING INPUT ROUTINE
;POINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE
iLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
+HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED
iMASK OF INVALID BITS FOR THIS PARAMETER
iNUMBER OF PARAMETERS TO STORE

7
1

=szzasssszsszsasas=s

DZCRO, $BASE

;COPY BASE ADDRESS TO ETABLE

:GET THE BASE VECTOR ADDRESS

"
Nd N
D N
"

PN NN PN PN PN

o
N
Nl Nl Nl N
Nl N

N INNPNIN NN NI

"l ol "D "
Nl Aol Nt "

RO MO PR

PNPNTN NN

16%
@SWO00, SKR

BNE
CMPB
BNE
TST8
BMI
JMP
MOV
CLRB

176462

= =2 = AN RO R PO R TN NN = e o s pa

JMP
BIT

30¢:

SEQ 38

002554

34
:

002554
002556
002560
002562
002564
002566
002570
002571

104403
003530
104405
000300
000776
001502
003
001

002572

013737

INSTR
67%
PARAM
300
776

DZVvCo
:

001502

001304

END

.BYTE
.BYTE
O

MACRO

MOV

-$GETPAR-z=ssssssssssssssssasanssassssnsss

;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 VALUE OF EXPECTED RESPONSE

;POINTER TO MAP LOCATION TO BE FILLED

3
1

:MASK OF INVALID BITS FOR THIS PARAMETER
:NUMBER OF PARAMETERS TO STORE

=z2=2ssszsxszsszszasss

DZVCO, $VECT1

;:COPY VECTOR TO ETABLE

:GET THE BUS REQUEST LEVEL
;i

002600
002602
002604
002606
002610

104403
003571
104405
000004
000007

INSTR
684
PARAM
4
7

-SGETPAR-sassssssssasssssnsssassssssassans

;CALL THE STRING INPUT ROUTINE
iPOINTER TO MESSAGE TO BE PRINTED
:CALL THE OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

CZDZA-10
C202AI.P11

002615

001504
000
001

002616
002624
002630
002634
002640
002644

113737
106337
106337
106337
106337
106337

02-JUL-85

END

N
o Nf N
N
b Nud N
Nl Nl
S
N

N
N
N

Nt Nl

sl Nl N

0 o (o P P (o (i (b (o [

Nl Nl N

DZLVO
.BYTE
.BYTE
O

MACRO

Move
ASLB
ASLB
ASLB
ASLB
ASLB

001305

0
b

;POINTER TO MAP LOCATION TO BE FILLED

;MASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE

»ssssssssssssssssss

DZLVO, $VECT1.1
$VECT1.1
$VECT1.1
$VECT1.1
$VECT1.1
$VECT1.1

;GET BUS REQUEST LEVEL INTO ETABLE
;ALIGN THE BITS PROPERLY

;ALIGN THE BITS PROPERLY
;ALIGN THE BITS PROPERLY
;ALIGN THE BITS PROPERLY
;:ALIGN THE BITS PROPERLY

;FIND OUT IF MODULE IS EIA OR 20 MA.
002650
002654
002660

002664
002666

002672
002676
002702
002704
002710
0C2712
002716
002722
002726
002730
002732
002734
002740
002742
002744
002746
002752
002754
002760
002766
002772
002774
003002
003004

104402
005037
105777
100375
017746
042716
122716
001014
105777
100375
117716
042716
122716
001366
005726
000752
122716
001002
005726
000745
122726
001414
014677
042737
122726
001332
052737
000726

004260
001220
176300

TYPE
CLR
TSTB
BPL
MOV
8IC
CMPB
BNE
7578
8PL
Move
8IC
CcMPB
BNE
TST
BR
CcMPB
BNE
TST
B8R
cMPB
BEQ
MOV
BIC
CMPB
BNE
8IS
BR

804:

176274
177600
000023
101s:

176254
176250
177600
000021

834:

000021

000015

1024:

176212
100000

001504

100000

001504

000102

81¢:

Nl N

PO RO =2 0= 10 A PO PO RO RO ) 10 =0 = foi (i (b (ot (o o

SEQ 39

PAGE 83-20

PROGRAM INITIALIZATION AND START UP.

001504
001305
001305
001305
001305
001305

16:19

NP NoF N

Nod Nl NP

P N NS

b o (= (o Pt (o Pt P (b (b fb bbb (= P P (i i b bt o \)

002612
002614
PN NINININININININININONINONONININONINOONTNINONINTNTN
TN
NN N NN ONINN NN
ONN NN NN PN OO PN PN PN

MACY11 30A(1052)
02-JUL -85 16:17

744
$THP1
93 TKS
80$

;PRINT EIA MESSAGE
;USE $TMP1

(SP)«

+POP STACK

: :OSH

:IS IT A RANDOM XON
+BR IF NO

; s OSH-BHL
: s OSH-BHL

88$1KB, -(SP)
9177600, (SP)
#$XOFF ,(SP)
83
83 TKS
1014
84TKB, (SP)
9177600, (SP)
@$XON, (SP)
1014
804
©$XON, (SP)
1024

(SP)«

804
#15,(SP).
81
-(SP),83TPB
®8IT15,0ZLVO
€102,(SP)+
804
®8IT15,0ZLVO
804

;IS KEYBOARD DONE?
:IF NOT, WAIT FOR IT
+IF YES, PUT CHARACETR ON STACK
:+STRIP DOWN CHARACTER
: s OSH-BHL
;IS IT A XOFF?
s s OSH-BHL
;:BR IF NOT
:;OSH
;WAIT FOR A CHARACTER
:+ ; DSH-BHL
s ; DSH-BMHL
:1GET CHARACTER
+ s OSH-BML
:+STRIP DOWN CHARACTER
+ s OSH-BHL
;WAIT FOR A XON?
s s DSH-BHL
:GET NEXT CHAR IF NOT
s s DSH-BHL
;WAIT FOR A CHAR

;ELSE,

POP STACK

;GO GET NEXT CHAR
$IS IT <CR> ?
sIF SO, GET OUT
:IF NOT, PRINT CHARACTER
;CLEARR EIA FLAG
;IS IT A 8?
$IF NOT, GO BACK FOR INPUT
:IF SO, SET FLAG
:GET MORE INPUT

: sOSH

: 1 DSH-BHL

;: 1DSH-BHL

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

104403

004002

104406
001512

Vol Nl

) Nl Nl N

003004
003006
003010
003012

MANTO
-«

END

MACR)

sassssasssssszsssss

;GET THE NUMBER OF DZ11‘'S RUNNING

el W
N

~$GETF|LG-=sssassssasssssnsssssssssasssss

;CALL THE STRING INPUT ROUTINE
:POINTER TO THE MESSAGE TO BE PRINTED
;CALL THE MAINTENANCE FLAG SETUP ROUTINE
$THIS IS THE FLAG BEING SETUP

-$GETPAR

003014

104403

INSTR

szsssssassasssssssssssssscsssssssas

:CALL THE STRING INPUT ROUTINE

C202A-10
CZDZA1.P11L
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1>
(1)
(1)
(1)
(1)
(1)
(1)

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

003016
003020
003022
003024
003026
003030
003031

MACY11 30A(10S2)
02-JUL-85 16:17

003740
104405
000001
000020
001220
000
001

71
PARAM

003032
<C03040

012737
012737

003046
003054
003062
003064
003070
003076
003104
o03112
003116
003120
003122
oC3126
0C3130
003136
003144
003150
003154
003160
003162
003166
003172
003174
003200
003204
003206
003212
003214
003220
003222
003224
003230

012737
032777
001402
004737
012737
113737
113737
005337
001404
000261
006137
000771
013737
013737
012700
012701
012702
000241
006037
006237
103404
2711
000137
012011
062721
012011
062721
012021
012021
016012
042712
051022
012021
012021
000751
032777
001002
000137
004737
105337
000137

003234
003236
003240
003242
003244
003252
002254
003260
003264
00%27¢C

END

1
16,
$TMPL
.BYTE
.BYTE
O

HACRO

0
1

000377

001506
001510

MOV
MoV

0377,LINEO
#17070,PARO

000001
000010

007204
176076

MOV

¢1,0LYCNT
9SW03, 8SWR
408

003274

001220

001312
001410
001411

408
:

001222
001404

MOV
MOV8

MovBe

624:

001312
001312
001312
001500
001514
001320

B8IT
BEQ
JSR

61$:

DEC
BEQ
SEC

ROL
BR
MOV
MOV
MOV
MOV
MOV

cLc

001222
001222

644
:

ROR
ASR

8Cs

177

MOV

004374

41s:

000010

JMP

MOV

ADD
MOV
ADD
MOV
MOV
MOV

000010

177774

077777

BIC
BIS

MOV
MoV

000010

004374
003274
001415

004420

175706

73s:

424
:

BR
8IT
BNE
JMP
JSR
DECB
JMP

tPOINTER TO MESSAGE TO BE PRINTED
1CALL THE OCTAL TO ASCII CONVERT ROUTINE
1LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
1POINTER TO MAP LOCATION TO BE FILLED
iMASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE

SsssxssssazsExsasms

017070

000001
001220
001220

SEQ 40

02-JW -85
16:19
PAGE 83-21
PROGRAM INITIALIZATION AND START UP,

PC,23%

@1,30EVM
$TMP1,DZNUM
$TMP1, SAVNUM
$THMP]

614
$DEVM

62
$DEVM, $TMP2
$DEVM,DZACTV

#DZCRO,RO
#DZCR1 ,R1

@$DDWO,R2

$TMP2
$THP2
41

63
(RO).,(R1)
#10,(R1).

(RO)+,(R1)

€10,(R1j.
(RO).+,(R1).

(RO)+,(R1).

-4(R0),(R2)
#77777,(R2)
(RO).(R2).

(RO)+,(R1).
(RO)+,(R1)»

64
45W03,9SWR
424

:SET UP DEFAULT LINES
;SET UP DEFAULT LPR PARAMETER
;RECEIVER ON; 9600 BAUD; 2STOP BITS;

sINITIALIZE DELAY COUNT
;00 YOU WANT PARAMETERS?
+IF NO, SKIP THE PARAMETER CALL

8 BIT/CHAR

:GET PARAMETERS
s INITIALIZE ACTIVE DEVICE SELECTION PARAMETER
;COPY THE NUMBER OF DEVICES
;COPY A BACKUP NUMBER
;$TMP1 CONTAINS THE COUNT OF UNINITIALIZED
; SELECTED DEVICES
;SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE
;POINT TO THE NEXT DEVICE
;GO DO THIS PROCEDURE AGAIN

;@ OF

TIMES

:COPY THE ACYIVE DEVICE PARAMETER
:SET A POINTER TO THE SPECIFIED INFORMATICN
;POINT R1 TO THE REST OF THE MAP TABLE
;POINT TO ETABLE'S DEVICE DESCRIPTOR WORDS
;INITIALIZE THE “C* BIT FOR A ROTATION

;SKIP MAPPING SETUP FOR DEVICE O-

IT'S DONE

;ISOLATE A SELECTION FLAG IN THE “C” BIT
;IS THIS DEVICE SELECTED? IF YES, GN L0Y TABLE
;TERMINATE THE LIST
;GO TO THE NEXT BLOCK
; ADDRESS

;POINT

TO THE NEXT DZ1i

ADDRESS

VALUE

;VECTOR
;:POINT TO THE NEXT VECTOR VALUE
sLEVEL
;LINES
;GET THE ETA FLAG FROM THE PRIORITY WORD
;ISOLATE THAT FLAG

;ADD PARAMETERS
;PARAMETERS

TO DEVICE

DESCRIPTOR WORD

;sMAINTENANCE MQODE

633

;ASK PARAMETERS ?
:IF NO, GO DO AUTO SIZING
;GO SET UP FOR AUTO SIZING

INIFLG
16

; INSURE NO AUTO SIZE IF QUESTIONS ANSWERED
;GO TN THE NEXT BLOCK

PC,23$

;G0 ASK PARAMETERS

;GET THE ACTIVE LINES PARAMETER

2DZA-10

CZDZA1.P11
(1)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2
(1)
(1)
(1)
(1)
()
(1)
(1)

(1)
(1)
(1)
(1)
(1)
(1)
(i)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1
(1
(1
(1)
(22
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(&)
(e)
(1)
(1)

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

(1)
(1)
(1)
1)

MACY11

30A(1052)

02-JWL -85 16:17

02 JUWL-85

16:19

PROGRAM INITIALIZATION AND START UP,

23s:

003274

003274
003276
003300
003302
003304
003306
003310
00331:

104403
003614
104405
000001
000377
001506
000
001

003312

105037

SEQ 41

PAGE 83 22

END

INSTR
694
PARAM
1
377
LINEO
.BYTE
.BYTE
O

MACRQ

CLRB

001416

;CALL THE STRING INPUT ROUTINE
;POINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER 7O MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
;:NUMBER OF PARAMETERS TO STORE

‘
0
1

-‘GETPAR--nan-n---nla.-l-s--l-n..-n.:nn--'

=2sszszszzzazsssasss

HORFLG

;MAKE SURE THE CHANGES ARE PRINTED

;THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED
;IS LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED
003316

003322

003324
003330
003332
003334
003336
0C3340
0C3342
003346
003352
003354
003356
003360
003362
003364

005737
100021
013703
006003
103410
001414
006203
103373
104402
104402
00C750
001772
006203
103370
000241
000761

TST
BPL
MOV

MANTO
26%
LINEO,R3

;1S STAGGERED THE MODE OF OPERATION?
:IF NOT, SKIP THIS SEGMENT
;sGET A SCRATCH COPY OF THE ACTIVE LINES

27%:

ASR
8cc
TYPE

R3
244

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

25$:

BR
BEQ

23
278

;GO GET THE CORRECT PARAMETER
;IF ANOTHER FLAG ISN'T SET, THERE'S AN ERROR

8CC
CLC
BR

273

;IF IT ISN'T SET, THERE'S AN ERROR
;INITIALIZE THE “C* BIT FOR TESTING OF THE NEXT PAIR
;GO TEST THE NEXT PAIR OF FLAGS

001512
001506

248 :

001230
011065

ROR
BCS
BEQ

TYPE

ASR

R3
25%
268

. $QUES

MBADLN

;:GET A LINE SELECTION BIT(EVEN NUMBER LINE)
;IF IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO
;IF ALL HAVE BEEN CHECKED, CONTINUE PROCESSING
; THIS IS AN INCORRECT PARAMETER
;LET

;GET

THE

USER KNOW ABOUT

THE NEXT FLAG

;:GET THE LINE PARAMETER REGISTER ARGUMENT
268
:

003366

003366
003370
003372
003374
003376
003400
003402
003403
003404
003410
003414
003416
C03420
003426
003430
003434

002440

003444

104403
003670
104405

0000900
000017
001510
000
001

012702
012703
011304
006304
016437
000313
052713
011262
011363
062702

- -

001506
001510

032444

010070
000014
000014
000014

007204

28¢4:

END

$SGETPAR-3s33333233xxxx22as2s2333333333333

INSTR
70$
PARAM
0
17
PARO
.BYTE
.BYTE

0
1

MOV
MOV
MOV
ASL
MOV
SWAB
8IS
MOV

#LINEO,R2
;POINT TO THE LINE SELECTION PARAMETER
AP HARO,R3
;POINT TO THE CHOSEN PARAMETERS
(R3).R4
;USE BAUD RATE AS AN INDEX IN DELAY TABLE
R4
;ALIGN INDEX ON WORD BOUNDARY
DLYTBL(R4),DLYCNT ;SET THE DELAY COUNT FOR THIS BAUD
ATE
(R3)
;PLACE IN HIGH BYTE
#10070,(R3)
;PLACE EXTRA PARAMETERS INTO LOC
(R2),14(R2)
;LOAD THE LINES
(R3),14(R2)

;LOAD

ADD

#14,R2

sPOINT TO THE NEXT SET

MOV

MACR)

;CALL THE STRING INPUT ROUTINE
;POINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE QF EXPECTED RESPONSE
;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
;sNUMBER OF PARAMETERS TO STORE

==2sszz22zazzz3333=x3

THE

PARAMETERS

PO PO PO 0 =0 10 1t jt b ot

V\J\JUV\JV\JUVV\JVVUVU\J\JVVV\J -~

VVVU\JVU\JVV\J\JV\JVV\-‘VU\JU\JVV\J\JV\JV\J\JU Po Bt

8 8 s ps 8 PO s b b s e ps Pt b P

fl’\fifl"\fif\f\flf\f\flf\fi"\fi"\f‘\f\flf‘\fiflf\"\flf\flflflfiflflflflfiflf\fiflfiflfififi’\fif\fif\fl/\fl’\fi
0 b0 Bt ot Pt pb b fb b b} b b b Pt pot ot b pd b ot

b Pt s ps b pe [

C2DZA-10
CZDZA1.P11
003450
003454
003460
003462
003464
003530
003571
003614
003670
003740
004002
004023
004071
004137
004207
004260
004342

004374
004374
004402
004404
004412
0C4414
0C4420
004424
004426
004432
004436
004442
004446
004452
004460
004462
004464
004466
004470
004474

004476
004504
004506
004512
004514
004516
004524
004526
004532

004534
004536
004544
004550
004552
003560
004562
004564

MACY11l 30A(1052)
02-JW -85 16:17

062703
020327
001365
000207
030600
030600
200
046200
042200
021600
046600
200
200
200
200
052200
042600
004374
122737
001006
032777
001002
004737
105737

001021

105337
104402

012700
010037
012037
022737
001403
104411
011130
000765
005737
001026
032777
001422
104402
005000
000000
027737
101404
104402
000000
000776
01773?
013700
000000
032777
001407

000014
001774

052123
052123
051102
047111
043105
047440

041440
053040

055440
055440
055440
055440
050131
052116

046040
051505
052501
020106
052116
054105
047111
052123
052123
020105
051105

000377

001415

000200

174546

044501

012254
001416

668%:
67%:
68%:
69%:
708:
718:
72%:

744
:
75%:
.EVEN

63s:

16$:

001416
011040
001500
001220
001222

177777

Ss:

001222
17s:

ADD
cMP
BNE
RTS
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII1
.ASCII
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ

CMPB
BNE
BIT
BNE
JSR
TST8
BNE
DECB
TYPE
MOV
MOV
MoV

CcMP
BEQ
CONVRT

@14 ,R3

4377 ,INIFLG
16
®BIT7,85WR
16
PC,AUTO.SIZE
HORFLG
1

;ONLY DO AUTO SIZE ON 1ST START

000042

1s:

174454

010761

174436
010633

9s:

001404

000020

174400

2$:

3s:

CMP
BLOS
TYPE
HALT
BR
MoV
MOV
HALT

BIT
BEQ
INSTR
75

BOTH PARA

ETERS

:BIT7=1272

:G0 DO THE AUTO SIZE

;HAS THE TABLE BEEN TYPED YET?
:IF 50, DON'T TYPE IT AGAIN

:INDICATE THAT THE TABLE WILL BE TYPED

+ XHEAD

; TYPE MAP HEADER

4DZ .MAP,RO

:SET POINTER

RO, $TMP1L

;POINT TO THE MAP LOCATION

9-1,8THMP2

;END OF LIST?

(RO)+,$TMP2

5%
042
3
#5W06, dSWR
3

+MNEW

;:SET DATA

;:BR IF YES

;CALLL THE OCTAL TO ASCII CONVERSION ROUTINE
;:CONVERT THE DATA AT THIS ADORESS

;G0 PRINT THE NEXT PARAMETER
:IS PROGRAM RUNNING UNDER MONITOR
; YES
:DESELECT SPECIFIC DEVICES??
;BR IF NO.

; TYPE THE MESSAGE.

;ZERO DATA DISPLAY

JSWR, $DEVM
2

;IS THE NUMBER VALID?
;BR IF NUMBER IS OK.

+MERR3
9
SSWR,DZACTV
DZACTV,RO

#5UW04, ISWR
18

;WAIT FOR USER TO TELL WHAT DEVICES TO RUN

; TELL USER OF INVALID NUMBER.
;STOP EVERY THING.

;:RESTART THE PROGRAM AGAIN.
;:GET NEW DEVICE PATTERN
;:SHOW THE USER WHAT HE SELECTED.

;:CONTINUE DYNAMIC SWITCHES.
;CHECK TO SEE IF DELAY COUNT CHANGES

;IF NOT,
:

104403
004342

:BR IF NO AUTO SIZE

HORFLG

HALT

001312

174416
001404

BR
TST
BnE
BIT
BEQ
TYPE
CLR

R3,0PARL7
;HAVE THE TABLE BOUNDARIES BEEN EXCEEDED?
284
:IF NOT, GO LOAD SOME MORE PARAMETERS
PC
;RETURN TO CALLING BLOCK
<«200>/1ST CSR ADDRESS (160000:163700):
/
<200>/1ST VECTOR ADDRESS (300:770):
/
<«200>/BR LEVEL (4: 6):
/
<200>/LINES ACTIVE BY BIT <IN OCTAL>(001:377):
/
<200>/DEFAULT BAUD RATE <IN OCTAL>(00:16):
/
<200>/4 OF DZ11'S <IN OCTAL> (1:20):
/
«200>/MAINTENANCE MODE
/
<200>/ [EXTERNAL
<H325>-EIA ONLY
(
<200>/ [INTERNAL
<DZCSRO3=1>
(
<200>/ [STAGGERED <H3271> EIA ONLY
(
<200>/ [STAGGERED <H3190>-20MA ONLY
(
<200>/TYPE “A” FOR EIA MODULE OR “B” FOQ R
<«200>/ENTER DELAY PARAMETER: /

XSTATQ

000100

SEQ 42

02 JUW-85
16:19
PAGE 83 23
PROGRAM INITIALIZATION AND START UP.

GO CLEAR VECTOR AREA

-$GETPAR--sz323x3s3s3xzx3x3sxx32z23axx2x=3=%~

;CALL THE STRING INPUT ROUTINE
;POINTER 1O MESSAGE TO BE PRINTED

CZ0ZA-10
CZDZAI.P1!
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

86443

004566
004570
004572
004574
004576
004577

MACY11 30A(1052)
02-JUL -85 16:17

104405

PARAM
1
177777
DLYCNT
BYTE
.BYTE

000001

177777
007204
000
001
:

004600
004604
004610
004612
004614
004616
004622

012700
012701
010120
005021
022021
022700
001372

SEQ 43

02-JU. -85
16:19
PAGE 83-24
PROGRAM INITIALIZATION AND START UP.

000300
000302

END

MOV

4s:

MOV
MOV
CLR

CMP

cHpP

001000

0
1

HACRO

18¢:

BNE

;CALL THE OCTAL 10 ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED
:MASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE

Z2EERTZITIITISTSITTSS

4300,R0O

;PREPARE TO CLEAR THE FLOATING

9302 ,R1
R1,(RO).
(R1).

;VECTOR AREA. 300-776
;START PUTTING “PC+2 - HALT"
:IN VECTOR AREA.
:POP POINTERS
;:ALL DONE??
;B8R IF NO.

(RO)+,(R1)-

€1000,R0O

;TEST START AND RESTART
004624
004630
004634
004640
004642
0C4650
0c4652
004656
004664
004666
004674
004702
004706

012706
106427
005737
001015
032777
001406
104402
012737
000403
013737
012737
104402
000177

001120
000340
000042

.BEGIN:

000004

174310

010657
000240

005140

005372
011532
010550
174214

005140
001126

1$:
2%:

;

END

MOV
MTPS
TST
BNE
BIT
8EQ
TYPE
MOV
BR
MOV
MoV
TYPE
JMP
O

HACRO

4STACK,SP
APR7
9042
23
#B8IT2,SWR
13
«MLOCK
4NOP, TTST
2%
BRW, TTST
#CYCLE, $LPADR
MR
9$LPADR
EEEE
TER
JUF

:SET UP STACK
;LOCK OUT INTERRUPTS
;IS PROGRAM UNDER MONITOR CONTROL
;:BR IF YES
;CHECK FOR LOCK ON TEST
:BR IF NO LOCK DESIRED.
;TYPE LOCK SELECTED.
;ADJUST SCOPE ROUTINE.
;CONTINUE ALONG.
:PREPARE NORMAL SCOPE ROUTINE
;START AT 'CYCLE" FIND WHICH DEVICE TO TEST

;sTYPE

“RUNNING”

;START TESTING

CZDZA-I0
CZDZAI.P11

MACY1l 30A(1052)
02-JUL -85 16:17

.SBTTL
P

:UPDATE PASS COUNT
;CHECK FuR EXIT TO ACT-11
:RESTART TEST

END OF PASS ROUTINE

AAAAARARARRR RS

R RARAAAAAAARARRRARARRbbbbbbdbdbhbhdbhhbbbbbbbis

;#INCREMENT THE PASS NUMBER ($PASS)
;#IF THERES A MONITOR GO TO IT
;#IF THERE ISN'T JUMP TO CYCLE

o
Nl N

PNPNININNNN

Nt Mol "

Nl
N
N
Nl N
Nl N Nl N
Ml "l N

Nd N
N
N
N
D N
N
Nl N
N
N
N
e
N
N
N
N
Nl Nl N
s N

~ PNANANNINANAN
NN
NN N NN NN NN
N N
[alalatalalalalaleleleatale

;:END OF PASS

; TYPE NAME OF TEST

NS ~

NN ~r

(2)
(2)
(2)
(2)
(2)
[ASE,V) PO WWWWWWNWONNWNWNWNWNWNWNWD vttty
n VIVTNNNWWWWNW
SW N

SEQ 44

02-JUL-85
16:19
PAGE 83-25
END OF PASS ROUTINE

(2)

004712

$EOP:
:

004712
004714
004720
004724
004730
004734
004740
004744
004750
0C4754
004760
004764
004770
004774
005000

005004
005006
005014
005020
005024
005032
005034
005036
005040
005042
005044
005046
005052

005054

005056
005060
005062
005064
005066
005066
005070
005072
005074
005076
005100
005102

000004
005037

001136

104402
104402
104412
104402
104412
005237

010525
010706
005072
010714
005100
001242

105037

001123

-PASEND-z::ssa:z::lx::a::zz:z::-s::::a::::

SCOPE
CLR

$ERRPC

:CLEAR LAST ERROR PC

TYPE
TYPE
CNVRT
TYPE
CNVRT
INC

+MEPASS
+MCSRX
+XCSR
+MVECX
«XVEC
$PASS

;:TYPE END PASS
; TYPE CSR
;SHOW IT
;TYPE VECTOR
;SHOW IT
;RAISE PASS COUNT

CLRB

$SERFLG

;CLEAR ERROR FLAG

104402

010722

TYPE

+MPASSX

; TYPE

104412
005337
104402
104412
105337
001030

005106
001242
010733
005114
001411

CNVRT
DEC
TYPE
CNVRT
DECB
BNE

«XPASS
$PASS
MERRX
+XERR
SAVNUM
$DOAGN

:SHOW IT
;RESTNRE PASS COUNT
;TYPE ERROKS
;SHOW IT
:ARE ALL DEVICES TESTED?
;BR IF NO.

005037
005237
042737
005327

001226
001242
100000

$TIMES
$PASS
#100000, $PASS
(PC)+

;s ZERO THE NUMBER OF ITERATIONS
; ; INCREMENT THE PASS NUMBER
;:D0ON'T ALLOW A NEG. NUMBER
;:LOOP?

113737

001410

000001

001242

$ENDCT:
000042

004710

$GET42:

$ENDAD:

000240
000240
000240

MOvVB

DZNUM, SAVNUM

.WORD

MOV
.WORD
$EOPCT
MOV
BEQ
RESET

(PC)+,8(PC)1

CLR
INC
BIC
DEC
SEOPCT:

003013

012737
000001
005034
013700
001405
000005

001411

B8GT

;RESTORE THE COQUNT

$DOAGN

; s YES

%42 ,RO

:;GET MONITOR ADDRESS

$DOAGN

JSR

PC,.(RO)

JHP
.WORD

9(PC)»
CYCLE

NOP
NOP
NOP

PASSES

; ;RESTORE COUNTER

; ;BRANCH IF NO MONITOR
: ;CLEAR THE WORLD
::G0 TO MONITOR

; s SAVE ROOM
;;FOR
;:ACTLL

$DOAGN:

000137
011532
000C01
006
002042
000001

003

$RTNAD:
XCSR:

002

XVEC:

1
.BYTE
DZCSR
1

.BYTE

6.2

3,2

; ;RETURN

CZDZA-I0
CZDZAI.P11

Af\fiflf\fiflf\f\fl’\fififififlf\flflf\fififlfififififif\fififlhfiflflflF\flfi"\fifif\f\fi’\f\"\
NWNHWWHNWHWHWENWNEHWWWWWEACRWOUINIIVIUVITVNUVNVVNN
DWW NN NN WS WL
VU\J\J\J\/\JV\J\J\J\JUVVVUVVVUVVUVVV\JV\JUVVVVVU\J\JVUV\JVVUVUV

(2)
(2)

005104
005106
005110
005112
005114
005116
005120

MACY11 30A(1052)
02-JUL -85 16:17
002072
000001
006
001242
000001
006
001132

SEQ 45

JUW. -85
16:19
PAGE 83-26
END OF PASS ROUTINE

XPASS:

002
XERR:
002

DZRIV
1
.BYTE
$PASS
1

6,2

.BYTE
$ERTTL

6,2

:SCOPE LOOP AND ITERATION HANDLER
.SBTTL

SCOPE HANDLER ROUTINE

LTl

ryYTYYWm

;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:®*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;#AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08>
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;aSW14x1
LOOP ON TEST
FaSW1, =1
INHIBIT ITERATIONS
;#CALL

0C5122

SCOPE

s SCOPE=I0T

$SCOPE:
;

005122
005126
005132
005136
005140
005142

004737
005037
022716
001417
000412
105777

007642
001136
013040

005156
005160

127727
001467
017766

174012

000021

174002

177776

005166
005174

032777
001060

005140
005150

005176
005200
005204
005212
005216
005222
005224
005226
005232
005234
005234
005240
005242
005246
005252
005260

100073

.SCOPC:

040000

173764

cHMp

#TST1+2,(SP)

TST8B

98 TKS

;

1¢:

END

013746
012737
005737
012637
000436
022626
012637
000441

000004
005224
177060
000004

105737

001123

105037
005037
032777
001011

001123
001226
004000

MOV

000004

001404

173700

HACRO

BIT
BNE

;IS THIS THE SCOPE AT THE BEGINNING OF TST1?

;IF SO, DON'T LOOP ON IT
;GOTO 1
(IF LOCK SW02=1;

;:KEYBOARD DONE?

$OVER
8$TKB, #$XON
$OVER

BEQ
MOV

THIS LOC

=240)

:BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST)
;1S CHAR A RANDOM XON ?
; :DSH
;:BR IF

YES

: ;DSH

83TKR, -2(SP)
ZEXXTIITZIZTITIXIRT=

#8I714,89S5WR
OF

-SC-zz22zzzzzazsazzzsas3z2333233233333888833

;FIND OUT IF <tG> WAS HIT
;CLEAR LAST ERROR PC.

$XTSTR
1$

BPL
cMPB

; #0084START
$XTSTR: BR

000416

PC,SERV.G
$ERRPC

BEQ
BR

TTST:

174016

JSR
CLR

SOVER

CODE FOR
6%

THE

;:LOOP ON PRESENT TEST?
XOR

S9ERRVEC,-(SP)

;s YES IF SW14=1

TESTER#&40&
::IF RUNNING ON THE

“XOR"

TESTER CHANGE

: s THIS INSTRUCTION TO A “NOP" (NOP=240)
;;SAVE THE CONTENTS OF

#53%,80ERRVEC

:sSET FOR TIMEOUT

#BIT11,8SUWR

: : INHIBIT ITERATIONS?

THE ERROR VECTOR

TST
a€177060
:; TIME OUT ON XOR?
MOV
(SP)+,84ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
;::G0 TO THE NEXT TEST
S$:
cMP
(SP)+,(SP)«
;;CLEAR THE STACK AFTER A TIME O0UT
MOV
(SP)+,B4ERRVEC
; ;RESTORE THE ERROR VECTOR
BR
$OVER
;:;LOOP ON THE PRESENT TEST
68:;00000END OF CODE FOR THE XOR TESTER&¢&0d
2$:
TST8
$ERFLG
; :HAS AN ERROR OQOCCURRED?
BEQ
33
;:BR IF NO
44:
CLRB
$ERFLG
::ZERG THE ERROR F
CLR
$TIMES
: ;CLEAR THE NUMBER OF
ITERATIONS TO MAKE

3$:

BIT

BNE

)

::BR IF YES

005344

b NN
o
o
o "
"~

005737
001406
005237
023737
002015
012737
013737
105237
113737
011637
013777
013716

001242

001124
001226
000001
005374
001122
001122
001126
001122
001126

001124
001124
001226
001240

173616

1$:

$SVLAD:

SOVER:

TST
BEQ
INC
CHP
BGE
MOV
MOV
INCB
Move
MOV
MOV

$PASS
13
$ICNT
$TIMES, $ICNT
$OVER
@1, $ICNT
$MXCNT, $TIMES
$TSTNM
$TSTNM, $TESTN
(SP),$LPADR
$STSTNM,8DISPLAY

SLPADR, (SP)

+iFUDGE RETURN ADDRESS

CLRB
LR
BAE

MNTFLG
MODE
43

;:CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST
;HAS THE MODE BEEN CHANGED?
:IF NOT INTERNAL , GO DO A TEST

MOV

005362
005370
005372

d N

105037
005737
001003
112737

000002
000406

001417
001370
000010

3s:

001417

BRNW:
:

005374

HOVB
RTI

000005

END

$MXCNT:

OMAINT ,MNTFLG

406
0

HACRO

;:
IF FIRST PASS OF PROGRAM
i
INHIBIT ITERATIONS
i s INCREMENT ITERATION COUNT
: ;CHECK THE NUMBER Of ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
i ;REINITIALIZE THE ITERATION COUNTER
;s SET NUMBER OF ITERATIONS TO DO
: ;sCOUNT TEST NUMBERS
i :SET TEST NUMBER IN APT MAILBOX
; SAVE SCOPE LOOP ADDRESS
;;DISPLAY TEST NUMBER

;

-SCl-sszszsssssssasszszzsaxzzzazzazsazsas

; IF INTERNAL MODE NOW,
;GO DO THE TEST

SET

THE MAINTENANCE BIT

EZTXZTTIITIIITTITIIZ=ZTE

; iMAX.

NUMBER OF

ITERATIONS

;CHECK FOR FREEZE ON CURRENT DATA

e N NP Nad N

N NP N\ Nt Nl Nl Nl Nl Nh

005350
005354
005360

SEQ 46

JU -85
16:19
PAGE 83-27
SCOPE HANDLER ROUTINE

Nt "

005262
005266
005270
005274
005302
005304
005312
005320
005324
005332
005336

MACY11 30A(1052)
02-JWL -85 16:17

Nt N N
Nl N
Nt Ml Nl N

005376
005404
005406
005412
005414
005420

032777
001405
005737
001402
013716
000002

005422
005430
005432
005436
005440

032777
001403
062716
000002

001000

173554

.SCOP1:

BIT
BEQ
TST
BEQ

1s$:

RTI

.TYPE:

BIT

001362
001362

010000

173530

#5W09, 3SWR
1
LOCK
14

MOV

LOCK,(SP)

#5KW12,9SWR

BEQ
ADD
RTI

000002

1
#2,(SP)

1$:

.SBTTL

PO R

FNATN N NN SN NN

s o bt ot ot ot b Pt b o

NN NN PN PN PN PN PN

b b (b b b pa WUTUNITUNITUNITNITUNITUITU
(NN
WWWWNW

f\fif\flfiflfifi’\fif\f\fif\hf\"\"\fi’\ ~

CZ0ZA-I0
CZDZA1 P11

;IS
:BR
;IS
;IF

5W09=1(SET)?
IF NOT SET.
THER A TIGHT LOOP SPECIFIED?
NO, RETURN
;IF YES, GOTO THE ADDRESS IN LOCK.

;GO BACK,

:INHIBIT ALL PRINTOUT??

;:IF NOT, GO TYPE
; SKIP OVER MESSAGE POINTER
;RETURN TO WHERE PROCEDURE WAS INVOKED

TYPE ROUTINE
I

SRR

Lyt

LTI

TTIITITYTYYY

;#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LIME FEED.

PNANANANANANANNN
N

PPN

; &«NQTEL:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;#NOTEZ:
;«NOTE3:

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

;&CALL:

;1) USING A TRAP INSTRUCTION

i
;%0R

;4
.

005440
005444

105737
100002

001177

$TYPE:

TYPE

+MESADR

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1

;:IS THERE A TERMINAL?
;:BR IF YES

TYPE
MESADR

TST8B
BPL

CZDZA-I0
CZDZA1.P11
(2
(2)
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

(WA
R W W W]

LSRACE
VI VI, CR SRV ) V)

e lalealelalalele

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

MACY11 30A(1052)

02-Jw -85 16:17

02 JUL-85

TYPE ROUTINE

122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104402
001231
105037
000755
004737
123726
001350
013746

005606
005612
005614
005620
005624

105366
002770
004737
105337
000770

010046
017600

1s:
000002
000001

001254

000100

001255

000040

BR
MOV

MoV

CcMPB
BNE
8IT8
BEQ
MOV

005510
006002

001255

61$:
62%:
2%:

000002

60$:
3s:

000011

000200

005770
5¢:
64:

005652
001176

001174
7%:

000001

005652
005770

JSR
.WORD
BIT8
BNE
MovB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV

DECB
BLY
JSR
DECB
BR

SEQ 47

PAGE 83-28

; ;HALT HERE IF NO TERMINAL

HALT

000000
000430

005446
005450
005452
005454
005460
005466
005470
005476
005500
005504
005510
005512
005520
005522
005524
005526
005530
005532
005536
005540
005544
005546
005552
0C5554
005556
005560
005562
005566
005570
005574
005600
005602

16:19

3
RO, -(SP)
82(SP),RO
SAPTENV, $ENV
624
#APTSPOOL
, $SENVM
624
RO,61$
PC,$ATY3
0
#APTCSUP, $ENVM
60%

(RO)+, -(SP)

(S5P)+
(SP)+,RO

@2,(SP)

MMT,(SP)
8s
#CRLF, (SP)
Ss
(sP).

;s LEAVE
: s SAVE RO

: sGET ADDRESS OF ASCIZ STRING

: :RUNNING IN APT MODE
: sNO,GO CHECK FOR APT CONSOLE
; : SPOOL MESSAGE TO APT
: NO,GO CHECK FOR CONSOLE
; : SETUP MESSAGE ADDRESS FOR APT
; ; SPOOL MESSAGE TO APT
; ;sMESSAGE ADDRESS
; s APT CONSOLE SUPPRESSED
:: YES,SKIP TYPE OQUT
; :PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
;:
IF TERMINATOR POP IT OFF THE STACK
; ;RESTORE RO

; :ADJUST RETURN PC
; s RETURN
; ;BRANCH IF

<HT»>

; :BRANCH IF NOT <CRLF>
;;POP

;s TYPE A CR

EQUIV

AND LF

$NULL, -(SP)

: ;CLEAR CHARACTER COUNT
:sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
::IS IT TIME FOR FILLER CHARS.?
;:IF NO GO GET NEXT CHAR.
;3GET & OF FILLER CHARS. NEEDED

1(SP)

;;DO0ES A NULL NEED TO BE TYPED?

$CHARCNT
2%
PC,$TYPEC
$FILLC,(SP).
2%

PC,$TYPEC
$CHARCNT
74

: s AND THE NULL

CHAR.

::BR IF NO- GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
: ;00 NOT COUNT AS A COUNT
; ;LOOP

;HORIZONTAL TAB PROCESSOR
005626
005632
005636
005644
005646

112716
004737
132737
001372
005726
000724

000040
005652
000007

005652
005656
005660
005664
005670
005674
005676
005676

105777

173306

122716

173302
177600
000023

005650
005652

100022
017746
042716

001012

105777

8%:
9s:

005770

$TYPEC:

173262

101s:

JSR
BIT8

& ,(SP)
PC.S$TYPEC
#7, $CHARCNT

BNE
TST
BR

MOV

(SP)+

: :REPLACE TAB WITH SPACE
;s TYPE A SPACE
; s BRANCH IF NOT AT
;: TAB STOP
: :POP SPACE OFF STACK
:sGET NEXT CHARACTER

9$TKB, -(SP)
#177600, (SP)
#$XOFF,(SP)
1024

; ;CHAR IN KYBD BUFFER?
;;BR IF NOT
;:GET CHAR
:; STRIP EXTRANEOUS BITS
; ;WAS CHAR XOFF
:;BR IF NOT

:MJDOO1
;MJDO01
:MJDOO1
;MJDO01
:+MJDOO1
:MJDO01

8$TKS

;s WAIT FOR CHAR

:MJD001

TST8
BPL
MOV
BIC
CHMPB
BNE

93TKS
10¢

1578

:MJD001

CZDZA-I0
CZDZAI.P11

)
W
R
R
W
R
IV
EW
(W

ANANANANANAN
N

PUILGIGURVE
VR VY VR SRV

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(3)
(2)
(2)
(2)
(2)
(2)
(4)
(4)
(2)

005702
005704
005710
005714
005720
005722
005722
005724
005724
005730
005732
005740
005746
005750
005754
005756
005764
005766
005770
005772

MACY11 30A(1052)
02-JUL -85 16:17

100375
117716
042716
122716
001366

02-JW 85

TYPE ROUTINE

173240
000002
000015

173232
000002

005770
000012

000002

010046
010146

105737

001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000
105737

BIC
cMPB
BNE

#177600, (SP)
#$XON, (SP)
101

TST

(SP).

:sFIX STACK

sTPS
10%

; s WAIT UNTIL PRINTER IS READY

TSTB
BPL
MOVB
CcMPB
BNE
CLR8
BR
1%:
CMPB
BEQ
INCB
$CHARCNT
: . WORD
$TYPEX: RTS

112737
112737
000403
112737

000001
000001

006240
006236

$ATYL:
SATY3Z:

000001

006240

$ATY4:
$ATYC:

000001

001254

000100

001255

000004
000002
001234

000004

001250

24:

001250

001252
000004

000004
000002
177776
005440

006240

3s:

4%:
5%:

10;:

;s LOAD CHAR TO BE TYPED INTO DATA REG.
::IS CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
:s YES--CLEAR CHARACTER COUNT

4CR,2(SP)
13
$CHARCNT
$TYPEX
#LF,2(SP)
$TYPEX

s EXIT

IS CHARACTER A LINE FEED?
::

; ;BRANCH IF YES

: ; COUNT THE CHARACTER
: ;sCHARACTER COUNT STORAGE

(PC)+

0
PC

SRR

RS S

VIR

PSRRI

ER 2SR

RIS

LRSS

TSRS

MOVB
MOVB
BR
MovB

&1,$FFLG
#1,8MFLG
$ATYC
#1,8FFLG

T0 REPORT FATAL ERROR
;:
;: 70 TYPE R MESSAGE

MOV
MOV

RO, -(SP)
R1,-(SP)
$MFLG
5%
FAPTENV, $ENV
33
SAPTSPOOL
, $ENVM
34
84(SP),.RO
#2,4(SP)
$MSGTYPE
1$
RO, $MSGAD

: ;PUSH RO ON STACK
;::PUSH R1 ON STACK
: ;SHOULD TYPE A MESSAGE?
BR
::IF NOT:
; ; OPERATING UNDER APT?

TST
BNE
MOV
T1ST8
BNE
SuUB
ASR
MoV
MOV

001234
006150
000004

MOV
ADD

1s:

2(SP),8s71PB

;MJDOOL

APT COMMUNTICATIONS ROUTINE

TST8
8EQ
CMPB
BNE
BITB
8EQ

006236

;MJDO01
;MJDOO1
:MJ0001
;MJD001
;MJDOO1
:MJDO01
;:MJDOO1

: :GET CHAR
+sSTRIP I7
;s WAS IT XON?
;:BR IF NOT

10¢:

.SBTTL

005774
006002
006010
006012
006020
006020
006022
006024
006030
006032
006040
006042
006050
006052
006056
006064
006070
006072
006076
006100
006102
006106
006110
006114
006122
006124
006132
006140
006144
006150
006152
006152

101
8$TKB, (SP)

8PL

:
1024

SEQ 48

PAGE 83-29

Move

173256
177600
000021

005726

105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

16:19

BR
MOV
ADD

(RO«

2%
$MSGAD,RO
RO
RO, $MSGLGT
44, $MSGTYPE
5%

R Y 2

::TO ONLY REPORT FATAL ERROR

;3IF NOT:

; : SHOULD SPOOL MESSAGES?
BR
::IF NOT:
; ;GET MESSAGE ADDR.
; ;BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
WAIT
IF NOT:
;i
: sPUT ADDR IN MAILBOX
:sFIND END OF MESSAGE

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

MOV
JSR
.WORD

84(SP),4
#2,4(SP)
177776, -(SP)

PC.$TYPE
0

+:PUT MSG ADDR IN JSR LINKAGE
; :BUMP RETURN ADDRESS
;sPUSH 177776 ON STACK
::CALL TYPE MACRO

1578

SFFLG

; : SHOULD REPORT FATAL ERROR?

;MuD001

CZDZA-10
CZDZAI.P11}

NP NS N

006156
006160
006164
006166
006172
006174
006202
006210
006214
006220
006224
006230
006232
006234
006236
006237
006240

b ot a non

fl"\fif\"\f\fl"\fl’\"\"\’\fl"\fi"\f\fifi"\f\fif\flfif\fifi’\f\flfifi ~

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(4)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

MACY11 30A(1052)
02 JUL-85 16:17

001416
005737

001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
006242
000200
000001
000100
000040

001254
001234

000004
000002
001234
006240
006237
006236

SEQ 49

02-JUL-85
16:19
PAGC 83-30
APT COMMUNICATIGNS ROUTINE

11s:
001236
000004

BEQ
TST
BEQ
TST
BNE
MOV
ADD
INC

12¢:

CLRB
CLRB
CLRB
MOV
MOV
RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$FFLG:
.BYTE
.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

12%
$SENV
124

$MSGTYPE

11$
84(SP), $FATAL

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

PC
0
0
0

;:IF NOT:

:3IF NOT:

;s IF NOT:

WAIT

; s RUNNING UNDER APT?

: sFINISHED LAST MESSAGE?

;;GET ERROR #
: :BUMP RETURN ADDR.
;: TELL APT TO TAKE ERROR
; ;CLEAR FATAL FLAG
; sCLEAR LOG FLAG
: :CLEAR MESSAGE FLAG
; ;POP STACK INTO R1
;;POP STACK INTO RO

; sRETURN

: sMESSG. FLAG
:;LOG FLAG

;s FATAL FLAG

P01t 8 Pt (=8 (b pt b b (o (0 b e

b s b i

b o

b s b b b e

VVVVV\J\JVVVVvVVVVVUVvVVVVVVV St N

o (=

;STRING INPUT ROUTINE
006242
006244
006246
006254
006262
006264
006266
006272
006276
006302
006304
006310
006314
006320
006322
006326
006330
006334
006340
006344
006346
006350
006352
006356
006360
006362
006364
006370
006372
006376

010346

010446
017637

062766
104402
000000
012704
012703
105777
100375
117714
142714
122714
001014
105777
100375
117714
142714
122714
001366
105724
000752
122714
001002
105724
000745
122724
001417
105777
100375

.INSTR:

000004
000002

011262
000007
172662

006264
000004
.INST1:
MSG:

1s:

172656
000200
000023
172636

101¢:

172632
000200
000021

MOV
MOV
MOV
ADD
TYPE

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

MOV
MOV
TST8
B8PL
Move

4INBUF ,R4
©7,R3

8ICB
CMPB
BNE
TST8
8PL
MOV8

BICB
CMPB
BNE

83s:

000015

102s:

172572

2%:

;PRINT THE MESSAGE

TST8

000021

84(SP), .MSG

9#2,4(SP)

BR
cMP8
BNE
TSTB
CMPB
8EQ
TS78
BPL

:SAVE R3 ON STACK
:SAVE R4 ON STACK
:GET THE ADDRESS OF THE MESSAGE TO BE PRINTED
;POINT TO INSTRUCTION AFTER ADDRESS POINTER

93 TKS
1
83$TKB, (R4)
#200,(R4)

#$X0FF ,(R4)

834
9$TKS
1014
83TKB, (R4)
¢200,(R4)

@$XON, (R4)

101

(R4).

1
¢$XON, (R4)
102¢

(R4).

13
#15,(R4)INSTR2

$TPS
23

sMESSAGE IS POINTED TO FROM HERE
;POINT R4 TO THE INPUT BUFFER
:SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED
iHAS A CHARACTER BEEN RECEIVED?
;:IF NO, KEEP WAITING FOR IT
;IF YES, SAVE IT IN THE INPUT BUFFER
;KEEP ONLY THE 7-BIT ASCII INFORMATION
;IS IT A XOFF?
: : DSH-BHL
;BR IF NOT
; :OSH

;WAIT FOR A CHARACTER

; ; DSH-BHL

;GET CHARACTER
;STRIP DOWN CHARACTER
;WAIT FOR A XON?
;GET NEXT CHAR IF NOT
;POP STACK

; s DSH-BHL
: i DSH-BHL
; ; DSH-BHL
: ; DSH-BHL
; :OSH-BHL
; ;OSH

;IS IT A RANDOM XON
;BR IF NO
;ELSE, POP STACK

; ;OSH SrL
; ; OSH-BHL
; ;DOSH-BHL

;WAIT FOR A CHAR

;GO GET NEXT CHAR

:IS
;IF
:IF
:IF

;:OSH

; 1 DSH-BHL

IT <CR> ?
S0, TERMINATE THE INPUT SEQUENCE
NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT
WE CAN'T, WAIT UNTIL WE CAN

CZDZA-I0
CZDZAI.P11

UVVV\J\J\I\JVUV\JVVV\I\JV\JV\J\J\-lV\JVUVVVVVVVVVVVUVV\JVVVVV

PNINONININININONANINONINONINNINONINONONINONONINCNLNONINPNN
PN NN NN NN PN PN PN NN PN PN PN PN PN N
P (s P P (0 (=0 (=8 8 P8 P (= Pt =t pb P8 (B P Pd b b i i P Pt e P b (b fb (b P (b (b i i i P et e b o Pt et b b b

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

006400
00€406
006410
006412
006414
006416
006420
006422
006426

006430
006432
006434

MACY11 30A(1052)
02-JUL -85 16:17
017777
005303
001332
012604
012603
010346
010446
104402
000715

172562

172564

.INSTE:
001230

012604
012603
000002

SEQ 50

02-JUL -85
16:19
PAGE 83-31
APT COMMUNICATIONS ROUTINE

INSTR2:

MoV
DEC
BNE
MOV
MOV
MOV
MOV
TYPE
BR

MOV
MoV
RTI

9$TKB,3$TPB
R3
13
(SP)+,R4
(SP)+,R3
R3,-(SP)
R4,-(SP)
. $QUES
LINST1
(sP)+,R4
(SP)+,R3

;ECHO THE CHARACTER BACK
;REDUCE THE NUMBER OF CHARACTERS RECEIVED
;IF WE DON'T HAVE 7, GO GET SOME MORE
;IF WE HAVE 7, RESTORE R4
;RESTORE R3
;SAVE R3 ON THE STACK
;SAVE R4 ON THE STACK
;PRINT A QUESTION MARK... WHAT'S GOING ON?
‘GO PRINT THE MESSAGE AGAIN

;RESTORE R4
;RESTORE R3
;RETURN TO THE MAIN PROCEDURE

;CONVERT ASCII STRING TO OCTAL
006436
006440
006442
006446
006452
006456
006462
0C6466
006472
006476
006500
006504
006510
006512
006516
006520
006524
006526
006532
006534
006540
006542

010546
010446
016605
012537
012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714
001406
006305

006544

006305

006546
006550
006552
006554

.PARAM:

RS, -(SP)
R4, -(SP)
4(SP),RS
(R5)+,LOLIM
(R5)+,HILIM
(R5)+,DEVADR
(R5)+,L0BITS
(RS)+,ADRCNT
R5,4(SP)
RS
OINBUF R4
@15, (R4)
PARERR
(R4),460
PARERR
(R4),467
PARERR
€60, (R4)
(R4)+,RS
@15, (R4)
LIMITS
R5

;SAVE RS ON THE STACK
;SAVE R4 ON THE STACK
:GET THE SETUP INFORMATION POINTER
;SET THE LOW LIMIT FOR THE INPUT
;SET THE HIGH LIMIT FOR THE INPUT
:SAVE THE AODRESS WHERE THE RESULT WILL BE STORED
;GET THE MASK OF THE INCORRECT BITS
;:GET THE COUNT OF ITEMS TO BE STORED
;POINT TO WHERE MAIN LINE PROGRAM WILL RESUME
;INITIALIZE THE ASCII 7O OCTAL RESULT WORD
;POINT TO THE INPUT BUFFER
;IS THIS CHARACTER A CARRIAGE RETURN?
;IF SO, PRINT THE MESSAGE AGAIN
;IS THIS CHARACTER BELOW THE NUMERIC RANGE?
;:IF S0, GO PRINT THE MESSAGE AGAIN
;IS THIS CHARACTER ABOVE THE NUMERIC RANGE?
:IF SO, GO PRINT THE MESSAGE AGAIN
;ISOLATE THE NUMBER THE CHARACTER REPRESENTS
;CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING
;IS THE NEXT CHARACTER A CARRIAGE RETURN?
:IF SO, GO SEE IF NUMBER IS WITHIN LIMITS
;CLEAR BIT POSITION O, MOVE EXISTING STRING TO LEFT

:CLEAR POSITION 1,

006305

MOV
MoV
MOV
MOV
MOV
MOV
MOvB
Move
MOV
CLR
MOV
cMP8
BEQ
CHPB
BLT
cMPB
BGT
8ICB
BISB
CMPB
BEQ
ASL
ASL
ASL

:MOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR

000760
104404
000750

BR
INSTER
BR

000004
006626
006630
006632
006634
006635
000004
011262
000015

000060

PARAM1:

1s:

000067
000060

000015

PARERR:

PARAM1

MOVE

STRING TQ LEFT

AGAIN

;NEXT THREE BITS

:GO GET THE NEXT CHARACTER
; THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN
:TRY GETTING THE PARAMETERS AGAIN

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
006556
006562
006564
006570
006572
006576

020537
101373
020537
103770
133705
001365

006630
006626
006634

LIMITS:

CMP
BHI
CMP
BLO
8IT8
BNE

RS, HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS
PARERR

;:DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE?
sIF YES, GO PRINT THE MESSAGE AGAIN
;IS THE RESULT LOWER THAN ALLOWED?
:IF YES, GO PRINT THE MESSAGE AGAIN
;ARE ANY INCORRECT BITS SET IN THE RESULT?
;:IF SO, GO PRINT THE MESSAGE AGAIN

;:STORE NUMBER AT SPECIFIED ADDRESS

50 1 (i [ Pt b b i e P P (8 P

b b P (e (b (b b o b P

b b P P

b b b (d P (b b e (e b b b b o (b b (b b e

i Pt b b Pt P

b et b [

VVVVVVVVVVVVV\JV\JUVV\JVVVV\J\J\JVUV\J\JV\JVVVVVUUVVVVVVU\JVVVVV\J ~

Ahfif\f‘\f\’\flf\fi"\fi’\’\’\flf\fl"\fif\h’\hfif\"\"\’\flflf\fif\f\fifif\fiflf\flf\'\f\f\flfif\f\fififif\fi ~

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL-85 16:17

006600
006604
006606
006612
026616
006620
006622
006624

013704
010524
062705
105337
001372
012604
012605
000002

006626
006630
006632
006634
026635

000000
000000

02-JWL-85

006632

16:19

APT COMMUNICATLONS ROUTINE

MOV
1s:

000002
006635

MOV

ADD
DECB
BNE
MOV
MoV
RTI
0
0
DEVADR: 0
LOBITS: .BYTE
ADRCNT: .BYTE

DEVADR,R4

;POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED

@2,R5
ADRCNT
13
(SP)+,R4
(SP)+,RS

;CALCULATE THE NEXT DATUM
;REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED?
:IF NOT, GO STORE THE NEXT DATUM
;:RESTORE R4
;RESTORE RS
;RETURN TO THE MAIN PROGRAM

RS5,(R4).

LOLIM:

HILIM:

000000
000
000

SEQ 51

PAGE 83-32

0
O

:STORE THE RESULT

;LOWEST ACCEPTABLE VALUE
;HIGHEST ACCEPTABLE
;LOCATICN WHERE RESULT WILL BE STORED
; INCORRECT BITS MASK
;COUNT OF ITEMS TO BE STORED

;SAVE PC OF TEST THAT FAILED AND RG-RS
006636

016637

000004

001402

.SAVOS:

MOV

4(SP), SAVPC

;SAVE R7 (PC)

;SAVE RO-RS
0C6644
006650
006654
006660
£06664
006670
006674

010537
010437
010337
010237
010137
010037
000002

001214
001212
001210
001206
001204
001202

SVO0S:

MOV
MOV
MOV
MOV
MOV
MOV
RTI

RS, $REGS
R4, $REGA
R3,$REG3
R2,$REG2
R1,$REGL
RO, $REGO

;SAVE R5
;SAVE R4
:SAVE R3
;SAVE R2
;SAVE R1
;SAVE RO
;LEAVE.

;RESTORE RO-RS
006676
006702
006706
006712
006716
006722
006726

013700
013701
013702
013703
013704
013705
000002

001202
001204
001206
001210
001212
001214

.RESOS:

MOV
MOV

$REGO, RO
$REG1,R1

;RESTORE RO
;RESTORE R1

MoV
MOV
MOV
MOV
RTI

$REG2,R2
$REG3,R3
$REG4,R4
$REGS, RS

;RESTORE
;RESTORE
;RESTORE
;RESTORE
;LEAVE

R2
R3
R4
RS

;CONVERT OCTAL NUMBER TO ASCII AND GUTPUT TO TELEPRINTER
006730
006734
006736
006740
006742
006744
006746
006752
006760
006764
006766
006770

104402
010046
010146
010346
010446
010546
017601
062766
012137

112105

112100
013104

001231

000012
000002
007104

.CONVR:
.CNVRT:

1%:

TYPE

+ $CRLF

;PRINT

MOV
MOV

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

:SAVE RO
;SAVE Rl

A CARRIAGE RETURN

MOV
MOV
MOV
MOV
ADD
MOV
MOVB
MOVB
MOV

R3,-(SP)
R4,-(SP)
RS, -(SP)
812(SP),R1
@2,12(SP)
(R1)+,WRDCNT
(R1)+,RS
(R1)+,RO
8(R1)+,R4

:SAVE R3
;SAVE R4
:SAVE RS
:PLACE THE ADDRESS OF THE ARGUMENTS IN R1i
;POINT TO WHERE MAIN PROGRAM WILL RESUME
;:GET NUMBER OF WORDS TO BE PRINTED
;GET THE NUMBER OF CHARACTERS TO BE PRINTED
;GET THE NUMBER OF SPACES TO PRINT
;COPY THE WORD TO BE CONVERTED

b~
N
o Nl o N
o N
b N
N
N

NN
ION
NN NIV

N Nt Nl N N

MACY11 30A(10S52)
02-JUL -85 16:17

006772
006776
007000
007004
007010
007012
007014
007016
007020

110537
010403
042703
062703
110346
006004
006204
006204
005305

007022
007024
007030
007032
007036
007040
007042
007044
007050

001365
012703
112623
105337
001374
105700
001404
112723
105300
001374
105013
104402
005337
001336
012605
012604
012603

007052
007054
007056
007062
0€7066
007070
007072
007074
007076
007100
007102
007104
007106
007107
007110

02-JUL-85

16:19

007106

3s:

177770
000060

011366

007106

Ss:

000040

64:

011366
007104

;COPY THE CHARACTER COUNT

DEC

;COPY THE ARGUMENT WORD AGAIN
sISOLATE THREE BITS TO BE TREATED AS A CHARACTER
;MAKE AN ASCII CHARACTER QUT OF THEM
;SAVE THAT CHARACTER
;MOVE THE NEXT THREE BITS INTO PLACE
:MOVE THEM AGAIN
;AND FINALLY A THIRD TIME

BNE

MOVB
DECB

(SP)+,(R3)+
CHRCNT

;STORE THE CHARACTER, STARTING WITH THE MOST
;REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED?

MOV

OMMDATA,R3

BNE

BEQ
MOVB
OECB
BNE
CLR8
TYPE

6%
€040,(R3).
RO
St
(R3)
+MDATA

MOV

012601

R4 ,R3
tCc?> ,R3
#060,R3
R3,-(SP)
R4
R4
R4

;gfigggg CHARACTER COUNT.ARE ALL CHARACTERS
;8U
;IF NO, GO BUILD THE NEXT ONE.

BNE
MOV
MOV
MOV
MOV
RTI

012600
000002
000000
000
000

WRDCNT: 0

CHRCNT:
SPACNT:

.BYTE
.BYTE

000000

BINWRD:

WRDCNT

1
(SP)+.RS
(SP)+,R4
(SP)+,R3

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

sNOW POINT TO WHERE NUMBER WILL BE PRINTED FROM
:IF NO,

GO TRANSFER ANOTHER

;ARE ANY SPACES TO BE PRINTED?

;IF NO, DON'T SET UP ANY
sADD A SPACE TO THE OQUTPUT BUFFER
s+REOUCE THE COUNT. SHOULD WE PRINT MORE?
sIF YES, GO ADD ANOTHER SPACE
s TERMINATE THE OUTPUT BUFFER WITH A ZERO
;sPRINT THE STRING WE JUST BUILT

s+REDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT?
;IF YES, GO CONVERT THEM
;+RESTORE RS
sRESTORE R4
;sRESTORE R3

;RESTORE R1
sRESTORE RO
;RETURN TO THE MAIN PROGRAM

;:NUMBER OF CHARACTERS T0 PRINT
tNUMBER OF SPACES TO PRINT

; TRAP DISPATCH SERVICE
:ARGUMENT OF TRAP IS EXTRACTED

N N

RS ,CHRCNT

MOV
BIC
ADD
MOVB
ROR
ASR
ASR

OEC

;AND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBROUTINE

s (i (i Pt P

it Nt N
) Nt Nt N

s (i P (i (s e (o

Sl N

i P

NN PN NN TN TN NN NN

Move

T1ST8

007112
007114
007120
007122
007124
007126
007132

010046
016600
005740
111000
006300
016000
000200

.TRPSR:

000002

002002

MOV
MOV
TST
MOVB
ASL
MOV
RTS

RO, -(SP)
2(SP),RO
-(RO)
(RO),RO
RO
.TRPTAB(RO),RO
RO

;SAVE RO.

USE RO TO FIND TRAP ROUTINE

$GET TRAP ADDRESS
;GET TRAP

;GET RIGHT BYTE OF TRAP(TRAP OFFSET)
;POSITION OFFSET FOR TABLE INDEXING

;PLACE INDEXED ADDRESS OF TABLE IN RO
; TRANSFER TO THAT ADDRESS AND RESTORE OLD RO

;DEVICE CLEAR ROUTINE
:ISSUE A DEVICE CLEAR

P P

Nt St

PN PN TN PN

SEQ 52

PAGE 83-33

APT COMMUNICATIONS ROUTINE

b [

NN NN NN

b i (b i P (e e e (e P

s P

NN NN

) Nl o Nl N

St N

s P (o P

et P

Nl Nt N Nl N

D P

NN NN N PN PN PN

b Pt b P

b Pt b o

b P (i P P

b \ud

NN PN PN PN PN PN PN PN PN ~

CZDZA-I0
CZDZAI.P11

007134
007134
007142

052777
032777

000020
000020

172700
172672

.DEVICE.C
BIS

1%:

BIT

#DCLR,®0ZCSR
®OCLR, 802CSR

$SET DCLR

sDID IT CLEAR?

YTM

037150
007152

MACY11

30A(1052)

02-JW. -85 16:17

02-JUL-85

16:19

SEQ 53

PAGE 83-34

APT COMMUNICATIONS ROUTINE

001374
000002

BNE

RTI

:BR IF NO
:EXIT ROUTINE

tROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR
007154
007156
007164

000002

007166
007166
007170
007174
007176
007200
007202
007204

010046
013700
005300
001376
012600
000002
000001

104413
153777

001417

172656

.DCLASM;

.DELAY:
007204
1%:

DLYCNT:

BISB
RT1

MNTFLG,802CSR

sLOAD THE MAINTENANCE BIT IF
;RETURN TO CALLING ROUTINE

MOV
MOV

RO, -(SP)
DLYCNT,RO
RO
13
(SP)+,RO

:SAVE RO
;SET COUNT

DEC
BNE
MOV
RTI
.WORD

IT IS I MODE

;DELAY

:
;RESTORE RO
;LEAVE ROUTINE
;PATCHABLE LOC FOR MORE TIME

;sADVANCE TO NEXT TEST HANDLER
007206
007212
0C~216

013716
005037
000002

001360
001362

.ADVANCE : MOV
CLR
RTI

NEXT,(SP)
LOCK

;CRUNCH STACK WITH ADDRESS OF SCOPE CALL
;sRESET TIGHT LOOP ADDRESS
;CHECK

TO SEE

OLD

TEST

GETS REPEATED

;ERROR HANDLER
007220
007224
007232
007234
007240
007242
007250
007256
007260
007264
007266
007272
007276
007300
007302
007306
007310
007314
007316
007320
007322
007326
007232
007336
007342
007346
007352
007354

004737
032777

007642
010000

105777
100003
112977
032777
001113
021637

171730

001406

000207
020000

171726

171722
171702

$ERROR:

011637
105037
104497
011605
162705
011504
110437
006304
061504
006304
042704
062704
012437
012437
011437
105737
001403
005737

XxBX:

001136
001136
001123

000002

001134

JSR

BIT

007502

<tG>

WAS HIT

7578

3sTPS

BPL
MOV8
BIT
BNE
cMP
BEQ

XBX
#207,887PB
#SW13,95WR
HALTS
(SP), SERRPC
1

;TTY READY.

;OON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY.
;DELETE ERROR PRINT QUT?
;BR IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
;BR IF YES

(SP),$ERRPC

;RECORD BEING HERE

XBX

CLRB

$ERFLG

MOV
Sus

(SP).RS
#2,RS

SAVO0S

;B8R IF NO BELL

;PREPARE HEADER

;SAVE ALL PROC REGISTERS

;:GET THE PC OF ERROR
;GET ADDRESS OF TRAP CALL

MOV

(RS),R4

;GET

MOVB
ASL

R4,$ITEMB
R4

;COPY TEST NUMBER FOR APT MANDLING
sMULT BY TWO

ASL

sMULT AGAIN

BIC

#177001,R4

ADD

177001
030340
007456
007470
007502
001123

;FIND OUT

;BELL ON ERROR?

MOV

1s:

PC.SERV.G

#S5W12,dSHWR

BEQ

001404

i,_ _

“

U\JUU\J\JU\JVU\J\J\J\J\JUUvU\JV\J\JV\JV\JVU\JVUU\JV\JVUUU\JV\JUVVVV\J\J\JUUVVV

flflf\flf\flf\f\flfl\fl\f\f\flf\f\fi’\f\f\fl"\f\’\flflf\f\flf\fififl’\h’\fi’\fifif\fififlfififl’\F\"\’\fi"\flf‘\fi

slalicicisisisisisisiaisicioielaialaiaialialolialaialial
ool ol ol o) Ty S oy S
NSy S Oy Oy S Sy S O
e O S eGadh

C20ZA-I0
CZ0ZA1.P11

ADD
MOV
MOV
MOV
7578
BEQ
TST

(RS),.R4

&.ERRTAB,R4
(R4).,ERRMSG
(R4)+ ,DATAHD
(R4),DATABP
SERFLG
TYPMSG
DATABP

ERROR

INSTRUCTION

;DOUBLE IT

;CLEAR JUNK

:GET POINTER
;GET ERROR MESSAGE
;:GET DATA HEADRER
;GET DATA TABLE
; TYPE HEADER
;BR IF YES
;D0ES DATA TABLE EXIST?

TM -

S
A
o

V\JVV\JV\J\J\J\J\J\JVU\JVVUV\J\-JUVV\IV\JVV\JUVU\JVVVVVVV\JU\JU\JV\JVV Nt Nt "t

ININNINANONININCNININNNINONINNINTNINONONONINONENINCNONCN
NN N PNPNIN NN PN PNCN NN PN PN PN NN N PN PN PN PN NN

slalisictisisisiciaicicicialaiaiaiaiaiaiaiadalat
ol ol ol Xy ol g
e el S e
N S S O
T TN TN
SN

2DZA-10
CZDZAI.P11

037360
007362
007366
007372
007376
007400

007404
007410
007414
007420
007424

007430
007434
007440
007446
7452
007454
007456
007460
007460
007464
007466
007470
0C7472
0C7476

007500
007502
007504
007506
007514
007516
007524
007530
007532
007534
007542
007544
007550
007552
007560
007562
007566
007574
007576
007604
007606
007614
007620
007624
007626
007630
007632
007634
007636
007640
007642

MACY1l 30A(1052)
02-JW -85 16:17

001044
104402
104402
005737
001402
104402
104402
104412
104402
104412
104402
104412
104402
112737
005737
001402
104402
000000

005737
001402
104402
000000
005737
001402
104411
000000
104410
122737
001007

113737

004737
000000
000777
022737
001403
005777
100004
016677
000000
005237
032777
001007
032777
001407
013737
612706
000177
000002
000001
006
001402
000001
002
001122
022737

02-JWL -85

001231
001231
001362
010756
010744
007634
011033
007626
010706
005072
001231
177777
007456

1s:

001123

007502

000001

001254

001134
006012

007530

000042

171410
000002

171402

001132
000400

171364

002000

171354

001360
001120
171302

001126

BNE

TYPE
TYPE
TS7
BEQ
TYPE
TYPE

CNVRT

TYPE
CNVRT
TYPE
CNVRT
TYPE
HMove
TST
BEQ
TYPE
ERRMSG: 0
WTBS.FM:
TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ
CONVRTY
DATABP: 0
RESREG: RESOS
HALTS:
CcMPB
BNE
Move
JSR
7%:
.WORD
8s:
BR
2$:
CMP
BEQ
TST
8PL
1¢:

EXITER:

MOV
HALT
INC

BIT
BNE
BIT
BEQ
1s:
2s:

ERTABO:
002

XTSTN:
002

177570

MOV
MOV

JMP
RTI
1
.BYTE
SAVPC
1

SERV.G:

TYPDAT
. $CRLF
. $CRLF
1.OCK
1s
+MASTEK
LMTISTN
XTSTN

MERRPC
.ERTABO
MCSRX
+XCSR
. $CRLF

9-1,3ERFLG

ERRMSG
WTBS.FM

:BR IF YES,

;:TYPE

CARRIAGE

:AND TYPE ANOTHER

RETURN

;sSHOW IT

;TYPE PC.

;SHOW IT

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

:TYPE

:
DATAHD
TYPDAT

DATABP
RESREG

QAPTENV, SENV

23
$TTEMB,7$
PC,$ATY4
0
8s
9$ENDAD, 3042
1
SSWR

EXITER
2(SP),SDISPLAY
SERTTL
45SWO08, ISWR
1s
45W10, ISKR
23
NEXT, $LPADR
OSTACK,SP
AsLPADR

ERROR MESSAGE

;DATAR HEADER?
;:BR IF NO
:TYPE

DATA HEADER
H
sOATA TABLE?

:BR IF NO.
s SHOW
:
DATA TABLE

;RESTORE PROC REGISTERS
:IS APT RUNNING?
;SKIP APT CALL IF NOT
;COPY ERROR NUMBER

;CALL APT SERVICE

;ERROR NUMBER STUCK HERE
;LOCK UP HERE
;CHECK TO SEE IF IN ACT-11 MODE
;IF SO, HANDLE ACCORDINGLY
;sHALT ON ERROR?
;BR IF NO HALT ON ERROR
;SHOW ERROR PC IN DATA DISPLAY
sHALT
;UPDATE ERROR COUNT
;GOTO TOP OF TEST?
;B8R IF YES
;GOTO NEXT TEST?
:BR IF NO

;SET FOR NEXT TEST
;RESET SP
;GOTO SPECIFIED TEST
;RETURN

6,2

.BYTE

2.2

CHP

2177570,
SWR

$TSTNM

001160

SEQ =4

PAGE 83-35

APT COMMUNICATIONS ROUTINE

TYPMSG:

007470

005056

16:19

;1S THE SWITCH REGISTER HARDWIRED?

007650
037652
007656
007662
007666
007672

001002
000137
017746
042716
122716
001012

007674
007700
007702
007706
007712
007716

105777
100375
117716
042716
122716
001366

007720
007724
007726
007730

122716
001002
005726
000553

000021

007732
00773¢
007740
007746
0C7750
007756
007764
007770
007774
010000
010004
010006
010012
010016
010022

122726
001150
032777
001335
017737
013777
104402
104412
104402
105777

000007

017746
042716
122716
001022

010024
010030
010032
010036
010042
010046

105777
100375
117716
042716
122716
001366

010050
010054
010056
010060

122716
001002
005726
000747

000021

122726

000015

010062
010066
010070
010074
0190100
010102
010110

010112

010116

100375

001472
005077
105777

100375

016677
000241
006177
006177

85
APT

010260
171304
177600
000023

16:19

COMMUNICATIONS

993

1018

994
64

MOV

83TKB, -(SP)

1578
BPL

MOovB

171260
177600
000021

8IC
CMPB
BNE
1028

7%:

004000

171216

171204
010302
010262
010274
010304
171160

010302
171174

1$:

000023

171130
177600
000021

112

8s$:

171064
171070

177776
171042
171036

2%:
171062

3$TKB, (SP)

; ;DSH BHL
;OTHERWISE, GET THE LAST CHARACTER TYPED
:STRIP CHAR
; s DSH-BHL

;IS IT A XOFF

; s DSH-BHL

;WAIT FOR A CHAR

: s DSH-BHL
; :DSH BHL

;BR IF NO

;GET THE CHAR

; : DSH-BHL

; sOSH BHL

: s DSH-BHL
; s DSH-BHL
; ; DSH-BHL

&3 XON, (SP)
73
(SP).
6%

:IS IT RANDOM XON ?
;BR IF NOT
;POP STACK

::DSH
;s DOSH
; ;DSH

cMPB

27,(SP)«

BNE
BIT
BNE
MOV
MOV
TYPE
CNVRT
TYPE

63
94000, 38TKS
SERV.G
9SWR,908
904, 9SWR
.89
.88
L9118

;IS IT tG?
;IF NOT, IGNORE INPUT

1ST8

cMPB
BNE
TST
8r

BNE

111

93TKS
101

IGNORE tG

;STRIP CHAR
;IS IT A XON
;BR IF NO

CMPB

171134

8177600, (SP)
Q3 X0FF ,(SP)
102

;IF SO,

8177600, (SP)
Q$XON, (SP)
101

8PL
MOV
BIC

171154
177600

ROUTINE

BNE
JHP

81C
CHPB
BNE

171264

SEQ S5

PAGE 83-36

TKS

. 4
93TKB, (SP)
€177600,(SP)

; IGNORE XON CHAR

:BR IF YES
;SAVE (SWR).

;WAIT FOR DONE.
;:STRIP CHAR

4$XOFF ,(SP)

;IS IT A XOFF
;BR IF NO

1124

: ; DSH

:RX BUSY?

; s DSH-BHL

; s DSH-BHL
: s DSH-BHL

1ST8
BPL
MOVS
BIC
cMPB
BNE

s TKS
111

;WAIT FOR A CHAR

F$TKB, (5P)
2177600, (5P)

;GET THE CHAR
;STRIP CHAR
;IS IT A XON
;BR IF NO

: s DSH-BHL
; ; DSH-BHL
: ; DSH-BHL
; ; DSH-BHL
s s OSH-BHL

CMPB
BNE
18T
BR

#$XON, (SP)
83
(SP)»
94

IS IT RANDOM XON ?
;BR IF NOT

; ;DSH
; ;DSH

cMPB

215,(SP)+

8EQ
CLR
1ST8
8PL
MOV
CLC
ROL

ROL.

@$XON, (SP)
111

Ss
ISWR
s TPS
.-4
-2(SP),9$TPB
ASWR

JSWR

;POP STACK
; IGNORE XON CHAR
we

16:17

02 JWw

02-Ju 85

30A(1052)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(i)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1,
(1)
(1)
(1)
(1>
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

MACY11l

C20ZA-I0
CZD2AI.P11

: ; DSH-BHL

; ;sOSH
; s OSH

NELLLELLD POV
NI R =0 1=t oo o (b s 10 b 2 ol 18 ot Pt b b fd Pt P Pt ot Pt b b b Pt 8 b P e Pt Pt ot P
Pt e =t s Pt o
"t "t "l "
D N N NS
\J\JVV\J\JVV\J\JUVV\JVV\JV\JVVVV\JUVVVUVVV\J\J\J\JVV\J et Nl Nt Nt o N N

AN
A

"\f\fif\f\"\"\f\fl"\"\fif\f‘\fi’\’\flflf\fifif\fifififif\fiflfifififififlflflfiflf\f\’\fi"\fifl

CZDZA-I0
CZDZAI.P11

)

010122
010126
010130
010136
010140
010146
010150
010156
010164
010170
010172
010176
010202
010206

MACY11l 30A(1052)
02-JUL -85 16:17
006177

103713
026627

002707
026627
003303
042766
056677
105777

100375

177776

000060

177776

000067

177770
177776
170774

177776
170774

170770
177600
000023

105777
100375
117716

170750

010210
010214
010216
010222
010226
010232

122716
001366

010234
010240
010242
010244

001002
005726
000747

010246
010252
010254
010260

122726
001310
104402
000207

010262
010270

020200
036451

010274
010276
010300
010302
010304

000001
006
010302
000000
036457

042716

122716

ROL
B8CS

171032

017746
042716
122716
001012

H
H

BIS
TS18

2(SP),8SWR
88 TKS

H
H

MOV

83TKB, -(SP)

BNE

1223

;BR IF NO

; ; DSH-BHL

1578
BPL

98 TKS
121

;WAIT FOR A CHAR

: ; DSH-BHL
; ; DSH BHL

8IC

4177600, (SP)

;STRIP CHAR

CcMP
B8GT
B8IC
12%:

010316
010324
010326
010330
010332
010334
010336
010340
010344
010350

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737

-2(SP), 067
14
AtCc?>,-2(SP)

B8PL

B8IC
cMPB8

121¢:

MOVB
cMPB

BNE

122%:

000021

000024

#$XON, (SP)

;IS IT A XON

; ;OSH BHL

;IS IT RANDOM XON ?

; ; DSH

#$X0ON, (SP)

B8R

RTS

89s:

LASCIZ

<200>?

: ; DSH-BHL

; ; DSH-BHL

:BR IF NO

6$:

.EVEN

170614
010460
010362

;sGET THE CHAR

cMPB

TYPE

; ; DSH-BHL
; : DSH-BHL

838TKB, (SP)

;

88s:

000024
000026

;STRIP CHAR
;IS IT A XOFF

215,(SP).
2

5$:

010454
000340

2177600, (SP)
A$XOFF ,(SP)

cMPB
BNE

001231

000057

;BR IF NOT
;POP STACK

10$:

000

.-4

121

BNE
TST

H
:
:

10
(SP).

000015

051127

;
;ERROR

-2(SP), %60
13

; s DSH-BHL

; IGNORE XON CHAR

. $SCRLF

; ;OSH

(SWR)=/?

904 :
91s:

.EVEN
.SBTTL

POWER DOWN AND UP ROUTINES

6,0
O
?2/=2/?

bRt A

AR AR AR AR AR AR AR AR RA R bbb

bbb bk bbbkt hdbbbddd

;POWER DOWN ROUTINE

$PWRDN:

; ;0SH
; :DSH

.BYTE
904
.MORD
LASCIZ

(i kRdRARA AR

010310

8SKWR
1

CMP
BLT

170744
177600
000021

051450
000057

SEQ 56

02 JUL-85
16:19
PAGE 83-37
APT COMMUNICATIONS ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV

#$ILLUP,IFPWRVEC ;;SET FOR FAST UP
#340,349PWRVEC+2 ;;PRIO:?7
RO, -(SP)
; :PUSH RO ON STACK
R1,-(SP)
: iPUSH R1 ON STACK
R2, (SP)
;:PUSH R2 ON STACK
R3,-(SP)
::PUSH R3 ON STACK
R4, (SP)
::PUSH R4 ON STACK
RS, -(SP)
: :PUSH RS ON STACK

MOV
MOV
MOV

ISWR, -(SP)
: :PUSH @SWR ON STACK
SP, $SAVR6
: s SAVE SP
¢$PWRUP, 9¢PWRVEC ;;SET UP VECTOR

CZDZA-10
C2DZAI.P1Y
(2)
Eg;

010356
010360

MACY11 30A(1052)
02-JUL -85 16:17

SEQ 57

02-JUA.-85
16:19
PAGE 83-38
POWER DOWN AND UP ROUTINES

000000
000776

HALT
BR

: s HANG UP

(3)

;0 08 0 8

(2)
(2)
(2)
(2)
(2)
(2)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)

;POWER UP RQUTINE
SPWRUP: MOV
A$ILLUP,B80PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVR6,SP
;:GET SP
CLR
$SAVR6
;:WAIT LOOP FOR THE TTY
1%:
INC
$SAVR6
; s WAIT FOR THE INC
BNE
1
;:;0F
WORD
MOV
(SP)+,aSWR
; :POP STACK INTO &SWR
MOV
(SP)+,RS
: ;POP STACK INTO RS
MOV
(5P)+,R4
;:POP STACK INTO R4
MOV
(SP)+,R3
; :POP STACK INTO R3
MOV
(SP)+,R2
: ;POP STACK INTO R2
MOV
(sP).,R1
;;POP STACK INTO R1
MOV
(SP)+,RO
::POP STACK INTO RO
MOV
Q$PWRDN, 84PWRVEC ; ;SET UP THE POWER DOWN VECTOR
MOV
4340 ,90PWRVEC+2 ;;:PRIO:7
TYPE
; ;REPORT THE POWER FAILURE
$PWRMG: .WORD
MPFAIL
: ; POWER FAIL MESSAGE POINTER
MOV
(PC)+,(SP)
; ;RESTART AT RESTART
$PWRAD: .WORD
RESTART
;: ;RESTART ADDRESS
RTI
$SILLUP: HALT
:: THE POWER UP SEQUENCE WAS STARTED
BR
.-2
;: BEFORE THE POWER DOWN WAS COMPLETE
$SAVR6: O
;;PUT THE SP HERE
MPFAIL: .ASCIZ
<200>/PWR FAILED. RESTART AT LAST TEST /
MEPARSS: .ASCIZ
<200>/END PASS CZDZA-I
/
MR:
.ASCIZ
<200>/RUNNING
/
MERR2:
.ASCIZ
<200>/PROGRAM INDICATES NO DEVICES PRESENT./
MERR3:
.ASCIZ
<200>/INSUFFICIENT DATA!'/
MLOCK:
.ASCIZ
<200>/LOCK ON SELECTED TEST/
MCSRX:
.ASCIZ
/CSR: /
MVECX:
.ASCIZ
/VEC: /
MPASSX: .ASCIZ
/PASSES: /
MERRX:
.ASCIZ
/ERRORS: /
MTSTN:
.ASCIZ
/TEST NO: /
MASTEK: .ASCIZ
/% /
MNEW:
.ASCIZ
<200>/SET SWITCH REG TO DZ11'S DESIRED ACTIVE./
MERRPC: .ASCIZ
/PC: 7/
XHEAD:
.ASCIZ
<200>/MAP QF DZ11 STATUS/<200>
MBADLN: .ASCIZ
<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200>
.EVEN
XSTATQ: 2
.BYTE
6,3
$TMP1
.BYTE
6.2
$TMP2
.EVEN

(2)

010362
010370
010374
010400
010804
010406
010412
010414
010416
010420
010422
010424
010426
010434
010442
010444
010446
010450
010452
010454
010456
010460
010462
010525
010550
010564
010633
010657
010706
010714
010722
010733
010744
010756
010761
011033
011040
011065

011130
011132
011134
011136
011140

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104402
010462
012716
012076
000002
000000
000776
000000
050200
200
051200
050200
200
200
051503
042526
040520
105
042524
020052
200
120
046600
200
011130
000002
006
001220
006
001222

010454
010460
010460
010460

000024

170546

010310
000340

000024
000026

051127
047105
047125
047522
047111
047514
035122
035103
051523
051122
052123
000
042523
035103
050101
046111

043040
020104
043516
051107
052523
045503
000040
000040
0515C5
051117
047040

003
002

020124
000040
047440
042514

dkdtddtdt bt bbb bbb d bbb bbbbbdkdbbbbdbbbdbbdbbbbtbbtd

~$SSETFLG-23z3zzz2x23x3333xas3asssszaxsss

Eg;

; THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN

(2)
(2)
(2)

;sE=EXTERNAL LOOP BACK
;I=INTERNAL LOOP BACK
:5=STAGGERED LOOP BACK

~—

CZ0ZA-10
CZDZAI.P11

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

011142
011146
011154
011162
011164
011170

011174
011176

011204
011206
o0l1212
011220
011222
011230
011232
011236
011242
011246
011250
011252
011254
011256
011260

MACY11l 30A(1052)

02-Jun -85 16:17
017605
042737
122737
001005
013715
105037
000422
122737

001006
013715

112737
000410
122737
001007
013715
105037
062716
000002
104404
000733

000000
000040
000105

011262
011262

011254
001417
000111

SEQ 58

02-JUL-85
16:19
PAGE 83-39
POWER DOWN AND UP ROUTINES

.SETFLG:MOV
B8IC
CMPB
BNE
MOV

011262

011256
000010

001417

000122

011262

CLRB
BR
cHPB
BNE

MOV
MOvBe
BR

S$:

CMPB
BNE

011260
001417
7$:

000002

6$:

000200
000000
100000

1s:
2$:
3s:
:

8(SP).R5
940, INBUF
&' E, INBUF
43

1%,(RS)

;YES STORE INFO

5%
2% ,(RS)

;NO

MNTFLG
7
&' I,INBUF

AMAINT ,MNTFLG
7
@' S, INBUF
64

MoV

38,(RS)

CLRB
ADD
RTI
INSTER
BR

MNTFLG

.WORD

.WORD
.WORD
END

MACRO

;PICK UP ADDRESS OF TAG
;STRIP LOWER CASE
;ig IT EXTERNAL LOOP BACK ?
;SET MAINT BIT =0
;GET OUT
;IS IT INTERNAL LOOQP BACK ?

;YES STORE INFO
;SET UP THE MAINTENANCE FLAG LOADER
;GET OUT
;IS IT STAGGERED LOOP BACK ?

sWHAT ?
;YES STORE INFO

;ZERQO BITS
;POP AROUND

@2,(SP)

;RETRY

:0ITTO
E
;EXTERNAL =
sINTERNAL = 1
;STAGGERED = S

.SETFLG
200
0
100000

s2a3zzzz3s33333233%

-$BUFFER-z3z23x3zz2z3sxx33asz22233282332322

;BUFFERS FOR INPUT-QUTPUT
(2)
(2
(2)

(2)
(2)
(2)

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

011262
011324

000000
011324
000000

011366

011366
000000
011430

011430
011434
011442
011450
011456
011460
011464
011466
011474
011476
011500
011504
011512
011516
011524
011526
011530

011637
162737
017737
(022737
001003
011637
000412
022737
001401
000000
011637
017737
062716
017766
000002
000000
000000

INBUF:
.=,+40
TEMP
:
.=,+40
MDATA:
.=.+40

011526
000002
000060
106427

011526
011530
011530

SET.PS:

011526
000016
000002
000004

MOV
sus
MoV

CMP
BNE

011526

106437

MOV

011530

1¢:

011526
2%:

000002

3s:
44
:

(SP),3s

92,38
934,48
2106427,4%
14

(SP),3s

BR
CHMP
BEQ
HALT

23
#106437,4
.+4

MOV
MOV
ADD
MOV
RT1

(SP),3¢

;RESERVED INSTRUCTION NOT

93%,3$
&2,(SP)
93¢,2(SP)

“MTPS*

CZ0ZA I0
CZDZAI.P1}

MACY11 30A(1052)
02-JUL 85 16:17

SEQ 59

02-JUL -85
16:19
PAGE 83-40
POWER DOWN AND UP ROUTINES

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

;

END

MACR)

zzz223sz3s2333233222

-’CYCLE-llllitlflllllllllllIIIIII’IIIII

;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 #MUSTs
:BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
;SETUP NECESSARY.
011532
011536
011540
011544
011546
011550
011556
011564
011566
011570
011574
011600
011606
011614
011616
011624
011626
011630
011634
011640
011644
011652

005737
001004
104402
000000
000776
013737
033737
001020
000241
006137
005537
062737
022737
001355
012737
000751
000241
006137
005537
013700
062737
022737

011660
011662
011670
011674
011700
011704
011712
011720
011724
011730
011734
011740
011744
011746
011754
011756

001003
012737
012037
012037
012037
113737
042737
012037
012037
012037
004737
005737
001051
032777
001445
104402

011762
011764
011766
011770
011772

104403
010744
104405
000001
001000

001404

CYCLE:

010564

005374
001406

001406
001406
000014
002000

001500

001406
001406
001412
000014

002000

001500
001310
002072
030334
030335
100000
001364
001366
001370
030126
000042
000002
001231

001226
001404

1s:

TST
BNE
TYPE
HALT
BR
MOV
BIT
BNE

ROL
ADC
ADD

001412
001412

cMp

001412
2$:

BNE
MOV
ch
L
ROL
ADC
MOV
ADD

001412
001412

CMP

001412

BNE
MOV

001414
030334

MOV
MOV
MOV
MOVB

8IC

MOV
MOV
MOV
JSR
TST
BNE
BIT

167204
7%:

BEQ

TYPE

DZACTV
1¢
+MERR2

RUN,DZACTV
2%

;ARE ANY DZ11'S TO BE TESTED?
:BR IF 0K,
;NO DZ11'S SELECTED!'!
;STOP THE SHOW.
;DISQUALIFY CONT. SW.
;RESTORE THE NUMBER OF ITERATIONS TO MAKE
;IS THIS ONE “ACTIVE"”
:BR IF GOOD ONE FOUND.

RUN
RUN
€14 ,ACTIVE
#DZ.END,ACTIVE
13
@DZ.MAP,ACTIVE
14

;UPDATE POINTER
;CATCH CARRY FROM RUN
;UPDATE ADDRESS POINTER.
;HAVE WE PASSED THE END OF THE MAP?
;IF NO, KEEP GOING; NOT ALL TESTED FOR.
;RESET ADDRESS POINTER.
;KEEP LOOKING FOR ACTIVE D211

RUN
RUN
ACTIVE,RO
14 ,ACTIVE

;:UPDATE POINTER.
;CATCH CARRY,
;GET ADDRESS POINTER.
;UPDATE.

3s
#DZ.MAP,ACTIVE

;B8R IF NO.
;RESTORE POINTER.

.-2
$MXCNT, STIMES

¢0Z.END,ACTIVE

;ALL DONE?

(RO)+, $BASE
(RO)+,DZRIV
(RO)+,DZPRT
DZPRT+1,EIAFLG

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

(RO)+,LINE
(RO)+,PAR
(RO)+,MODE
PC.DZLEV
8442
43
#5W01,aSWR

:SET UP LINE DZ LINES ACTIVE
;SET UP PARAMETERIZATION
;SET UP MAINTENANCE MODE
;SET UP
;ARE WE UNDER MONITOR CONTROL?
;IF YES, SKIP THIS SETUP
:IF SWO1=1, GET STARTING TEST #

#8IT15,0ZPRT

« $CRLF

;CLEAR FLAG

:BR IF NO TEST IS TO BE INPUTTED

INSTR
MTSTN
PARAM
1
1000

REG

$GETPAR-222z222zs22x3332323222323asass23x3a

;CALL THE STRING INPUT ROUTINE
:POINTER 7O MESSAGE TO BE PRINTED
;CALL T4€ OCTAL TO ASCII CONVERT ROUTINE
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

CZDZA-I10
C20ZAI.P11

(3)
(3)
(3)
(3)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

(2)

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

MACY11l 30A(1052)
02-JUL -85 16:17

011774
011776
011777

001122

012000
012004
012010
012012
012020
012022
012030
012032
012036
012044
012050
012052
012054
012060
012062
012066
012070
012076
012076

012700
022710
001020
022760
001014
023760
001010
010037
062737
104402
000412
005720
020027
001351
104402
000733
012737

013036

000177

167024

SEQ 60

JU -85
16:19
PAGE 83-41
POWER DOWN AND UP ROUTINES

000

001
;

013036
000004

S5$:

012737

000002

001122

000004

001126
000002
001231

001126

6$:

023730
001230

END

$TSTNM
.BYTE
.BYTE
0

"ACRO

MoV

CMP

BNE
CMP
BNE
CMP
BNE
MOV
ADD
TYPE
BR
TST

TZIEXTIZAEIRTZTTISS

44,(RO)

63
#12737,2(RO)
6
$TSTNM,4(RO)
6
RO, $LPADR
92, $LPADR
+$CRLF
8s

;IS THIS THE TEST ?
:IF NOT, DON'T PROCESS NUMBER
;SAVE PC
;:POP OVER SCOPE

(RO«

RO,#TLAST+10
S

4
MOV
8s:
RESTART : JMP

;POINTER TO MAP LOCATION TO BE FILLED
iMASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE

#TST1,RO

CMP
BNE

TYPE

001126

0
1

« $QUES

#TST1, $LPADR

:PREPARE TEST ADDRESS

J$LPADR

;GO START TESTING. #44WARNING'& 444

; THIS JUMP IS USED BY POWER UP ROUTINE!!!!

CZDZA-10
CZDZAI.P11

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

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

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

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

MACY11 30A(1052)
02-JUL -85 16:17

SEQ 61

02-JUL-85
16:19
PAGE 83-42
POWER DOWN AND UP ROUTINES

: -ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT.

:
;
012102
012106
012112
012116

012700
013701
013702
042702

001500
001310
001304
177007

012122
012126
012130
012132
012134
012136
012140
012144
012150
012154
012160
012162
012164
012166
012170
012174
012200
012202
012204
012206
012210
012214
012216
012220
012226
012234
012236
012240
012244
012252

113703
106003
106003
106003
106003
106003
042703
012704
013705
010537
006005
103407
001425
005724
062701
062702
000767
010120
010220
010320
013720
012420
100006

001305

052760

042760
005020
000754
012710
012737
000207

SETAPT:

177770
001320
001312
001404

IF BIT7 IN THE ENVIRONMENT MODE ($ENVM) BYTE IS SET,
THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE.

MOV
MOV
MoV

0DZ.MAP,RO

BIC

#tC<770>
,R2

MovB
RORB
RORB
RORB
RORB
RORB

$VECT1+1,R3
R3
R3
R3
R3
R3

BIC

1¢:

MOV
MOV
MoV
ROR

BCS
BEQ

000010
000010

2$:

3s:

001314

100000
100000

177772
177776
44.

177777

001256

001160

S$:

TST
ADD
ADU
BR
MOV
MOV
MOV
MOV
MOV

8PL
81S
8IC
CLR
BR
MOV
MOV
RTS

$BASE,R1
$VECTL,R2

#tC<7>,R3
#$0DWO,R4
$DEVM,
RS
R5,DZACTV
R5
3

(R4).

#10,R1
¢10,R2

1s
R1,(RO).
R2,(RO)+
R3,(RO).
$COW1, (RO)+
(R4)+,(RO).
4
#100000, -6(RO)
#100000, -2(RO)
.
(RO)
2%
.
#-1,(RO)

#3$SWREG,
SWR
PC

;POINT
;BUILD
;:BUILD
:STRIP

TO THE DEVICE MAP TABLE
DEVICE ADDRESSES IN R1
DEVICE VECTORS IN R2
AWAY OTHER INFORMATION

;LOAD THE INTERRUPT PRIORITY FROM R3
;ALIGN THE NUMBER
;ALIGN THE NUMBER
;ALIGN THE NUMBER
;ALIGN THE NUMBER
;ALIGN THE NUMBER
;REMOVE ALL BUT BUS LEVEL NUMBER
;POINT TO THE BEGINNING OF DEVICE PARAMETERS
;GET THE MAP OF ACTIVE DEVICES
;SAVE THE BIT MAP
;GET A DEVICE SELECTION BIT
:IF IT IS 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
;LOAD DEVICE ADDRESS
;LOAD THE VECTOR ADDRESS
:LOAD THE INTERRUPT PRIORITY LEVEL
;GET THE NUMBER OF LINES IN OPERATION
:LOAD DEVICE PARAMETERS
;IF 20MA MODE SELECTED, SET IT UP
;SET THE 20MA FLAG IN DZLVN
;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
iRETURN TO PRINT STATUS TABLE

;*ROUTINE USED TO "AUTO SIZE" THE DZ11
;#«CSR AND VECTOR.
i#NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING

(2)
(2)

LR
K

]

012254
012254
012256
012262
012266
012272
012274

000005
105337
012702
012703
005022
022702

001415
001500
001320

002000

AUTO.SIZE:
RESET
DECB
CSRMAP: MOV
MOV
1$:
CLR

CcMp

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

INIFLG
#DZ .MAP,R2
4$0DWO,R3

(R2)+

#DZ.END,R2

;INSURE A BUS INIT,
;SHOW THAT I WAS HERE
;LOAD MAP POINTER.
:POINT TO ETABLE DEVICE DESCRIPTOR WORDS
;:ZERO ENTIRE MAP
;ALL DONE?

CZ0ZA-10
CZDZAI.P11

P
ot M

Nl "l N

PRV

ANNANN
NN NN

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

MACY11 30A(1052)
02-JUL -85 16:17

012300
012302
012306
012312
012316
012324
012330
012336
012340
012342
012344
012346
012350
012352
012360
012362
012366
012370
012372
012376
012402
012404
012410
012412
012414
012416
012420
012422
012424

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

012430
012432
012434
012440
012446
012454
012456
012464
012470
012474
012476
012500
012504
012510
012516
012520
012524
012530
012532

010122
005722
012722
052761
032761
001003
052762
012722
012712
012223
005022
012712
105237
122737
001405
062701
022701
001275

012532
012536
012540
012544
012550
012556
012560

105737
001432
113701
110137
012737
005301
001404

001410
001500
160000
012636
000040
000200

000004

2%:

7%:

000200

000004

8s:

000040

000020
000020
000020

000004

000005
177400
177400

100000
000377
017070

177777
001410
000020

000004
000004

9s:

001410
38

100s:

001410

BNE
CLRB
MOV
MOV
MOV
8IS
BIS
CLR
TST
BMI
DEC
BNE
BR
BIT
BEQ
81T
BEQ
CLR
BIS
BIT
8EQ
BIT
8EQ
DELAY
INC
BNE
BR
CLR
CLR

RO
.-12
34
(R1)
4(R1)

BIT
BNE
BIS
MOV
MOV
MOV
CLR

#177400,4(R1)
93
#BIT1S,-2(R2)
#377,(R2)
#17070,(R2)
(R2)+,(R3)»
(R2)«

INCB
cMPB
BEQ
ADD
cMp
BNE

DZNUM
920, 0ZNUM
1004
#10,R1
#163700,R1
2

7578
BEQ

DZNUM
S
OZNUM,R1
R1,SAVNUM
41,DZACTYV

1s
DZNUM
402 .MAP,R2
#160000,R1
#6$,004
48ITS,(R1)
®8IT7,4(R1)
RO
(R1)
8s
RO
7%
3
#8I77,4(R1)
3
#BITS,(R1)
34
RO
420,(R1)
420, (R1)
34
€20,(R1)
.+12

;B8R IF NO
;SET OCTAL NUMBER OF DZ11'S TO O

;SET FOR FIRST ADDRESS TO BE TESTED
:SET FOR NON-EXISTENT DEVICE TIME OUT
:TRY TO SET MASTER SCAN ENABLE

;sTRY TO TRANSMIT ON LINE 7

;USE RO AS A COUNTER
;HAS TRANSMITTER READY COME UP?
:IF SO, GO GET A FINAL CHECK
;REDUCE COUNT. TIME UP?
:IF NOT, KEEP WAITING
;ASSUME I7'S NOT A D211
:IS LINE 7 ENABLE STILL SET? IT SHOULD BE
+IF IT'S NOT, ASSUME IT‘'S NOT A DZ11
;IS MASTER SCAN ENABLE STILL SET?
:IF NOT, ASSUME IT'S NOT A D211
:SET DEVICE CLEAR
;iSHOULD STAY SET FOR A WHILE IF DZ
:BR IF NOT DZ11
;WAIT FOR BIT 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 DZ11 CSR ADDRESS.
MOV
R1,(R2).
:STORE CSR IN CORE TABLE.
TST
(R2)+
:POP OVER VECTOR STORE AREA
MOV
#5,(R2)+
;SET THE DEFAULT BUS LEVEL
8IS
#177400,4(R1)
;TRY TO SET ALL DTR BITS

177776

000010
163700

001410
001411
000001

SEQ 62

02-JUL. -85
16:19
PAGE 83-43
POWER DOWN AND UP ROUTINES

001404
4 :

MOVB
MOVB
MOV
DEC

BEQ

984

:IF ANY SET ASSUME EIA BOARD

: IF NONE SET ASSUME BOARD IS
i20 MA, SET 20 MA FLAG
;SET THE DEFAULT LINE SELECTION PARAMETER
:SET 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?
;YES DON'T LOOK FOR ANY MORE.
;UPDATE CSR POINTER ADDRESS
:BR IF MORE ADDRESS TO CHECK.
;WERE ANY DZ11°'S FOUND AT ALL?
:ERROR AUTO SIZER FOUND NO DZ11'S IN THIS SYS.

:SAVE NUMBER OF DEVICES

CZOZA-10
CZ0ZAI.P11
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

MACY11 30A(1052)
02-JUL -85 16:17

012562
012564
012570
012572
012600
012606
012614
012622
012624
012630
012632
012634
012636
012642

000261
006137
000772
013737
013737
012737
013737
000410
104402
005000
000000
000776
012716
000002

012652
012660
012664
012670
012674
012676
012702
012704
012710
012712
012716
012720
012722
012724
012730
012736
012740

012644

012737
012737
012702
012700
012701
010120
012721
022021
020127
101771
013704
000241
006004
103036
106427
012772
011201
112761

012746
012750
012752
012760
012762
012766
012770
012774
013002
013010
013012
013016
013020
013026
013034

005200
001376
012762
000005
062702
000753
011662
162762
042762
022626
012716
000002
013737
012737
000207

SEC
ROL

001404

001500
001512
000006
001404

001310
001314
000004
001312

010564

98 :

MoV
MOV
MOV
MOV
BR
TYPE

99s:

Ss$:

012520

HALT
BR
MOV
RTI

6$:

000022
000020

VECMAP:

1¢:

000004

MQV
MoV
MOV
MOV
MoV
MoV
MoV

CMP
CMP
8LOS

001000
001404

MOV

2%:

CcLC

ROR

8cc

000000
040040

000000

000200

000004

000300

INC
BNE
MOV
RESET
ADD
BR
MOV
sSus
BIC
POP2SP
MOV
RTI
MOV

000002
3s:

000014
000002
000010
000007

MTPS
MOV
MoV
MOv8

000002
000002

012760
001502
005122

001304
000020

Ss:

MOV
RTS
--

Fe-

CLR

000340
012770
001500
000300
000302

SEQ 63

02-JUL-85
16:19
PAGE 83 44
POWER DOWN AND UP ROUTINES

END

VZACTV
44
DZCRO, sBASE

MANTO, $COW1

;POINT TO THE ADDRESS OF FIRST DEVICE
; INDICATE TO ETABLE WHAT MODE IS BEING USED

DZACTV, $DEVM
VECMAP

:SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.

%6,804

.MERR2

iNOTIFY OPR THAT NO DZ11'S FOUND.

;MAKE DATA DISPLAY ZERO

.-2
#3%,(SP)

;DISABLE CONT. SW.
;ENTERED BY NON-EXISTENT

;STOP THE SHOW

;RETURN TO MAINSTREAM
#340,8622
44%,8¢20

Q0Z.MAP ,R2
4300,R0
4302,R1
R1,(RO)~
#4,(R1)»

(RO)+,(R1).

R1,61000
1

DZACTV,R4

TIME-OUT

:SET IOT TRAP PRIORITY TO 7
:SET IOT TRAP VECTOR
;:SET SOFTWARE POINTER
;FLOATING VECTORS START HERE.
;PC OF IOT INSTR.
;START FILLING VECTOR AREA
sWITH . +2; IOT

:ARDD 2 TO RO +R1

;HAS THE VECTOR AREA BEEN EXCEEDED?
;BR IF MORE TO FILL

:STORE TEMPORARILY

R4
;BRING QUT A BIT
5%
:BR IF ALL DONE
#0
;ZERO CPU PRIO
#8IT14.BIT5,8(R2)

(R2),R1
#8I77,4(R1)
RO
.-2
4300,2(R2)
@14 ,R2
2%

(SP),2(R2)

:GET CSR
:SET THE TCR BIT!
;ATTEMPT TO FORCE AN INTERRUPT

.STALL

FOR TIME TO INTERRUPT
NSI¥NTERRUPT ASSUME 300 AND FIX DZ11 LATER
;1
;POP SOFTWARE POINTER
;KEEP GOING

;:GET VECTOR ADDRESS

€10,2(R2)
@7,2(R2)

:POINT BACK TO THE CORRECT
;:CLEAR JUNK

3%,(SP)

;:SET FOR RETURN

0ZvCo, $VECT1

;COPY VECTOR OF FIRST DEVICE INTO ETABLE

#.SCOPE,IOTVEC
PC
MACRO

;RESTORE TRAP VECTOR

VECTOR

;POP IOT JUNK OFF STACK

;RESTORE THE SCOPE TRAP
;ALL DONE WITH 'AUTO SIZING”

#zz2zz2zz33x322x33323

CZ0ZA-10
CZDZAI.P11

MACY11 30A(1052)

02-JUWL -85 16:17

8648
8649

;
:

AN el at el el alalalolalialaliaielalalalalalal
ol ol Y Y Sy O
o O N T N O S T Oy YT Y. YT YOO - (N
o VVVUVVUVVUVVUVVVV\J\JV\J\JVVV\J\JVVV\JVVV\JUVVUUU\JVV o~

b d

OAflfiflflf\’\flflfi’\f\fif\flfif\flfiflf\flf\fif\f\f\f\fififlflf\f\fifif\f\f\fif\fl\f\fi ~e~

(2)

(08840 akdbbbtbsbbbtinstss

~-$UNIBUS-ssssssssssszssessssanssanan "ssss
-$4XZ-ssszzsszszsszsssanssanssssaanss
TEST

s68¢88000d0000s0ddsni’bsbttsss

:#THIS TEST PROVES THE SLAVE SYNC RESPONSE
;#DURING A READ OR WRITE TO THE FOLLOWING ADDRESS:
HJ
DZCSR, DZRBUF, DZTCR, DZMSR

-$XZ-sssassssssussssssssasszsssssss

013036
013040

000004
012737

013046
013054
013062
013070
013076
013102
013104
013106
013110
013112
013120
013124
013126
013130
013132
013134
013142
013146

012737
012737
012737
012737
013700
011001
000240
005010
000240
012737
013700
011001
000240
005010
000240
012737
013700
011001

013154
013156
013164
013170
013172
013174
013176
013200
013206
013212
013214
013216
013220
013222
013224

000240
012737
013700
011001
000240

013150
013152

;:¢

TEST

;i e

AAE AR RAARSAAAARSERARAA
400040 R00440040000008004808004000448

TST1:

000001

001122

013226
013214
000340
013076
002042

001360
000004
000006
001362

013120
002046

013142
002056

001362

;

END

2%:

005010
000240
012737
005037
104400
011601
022626
104001
104401
000111}

001362

SCOPE
MOV
O

HACRO

CLR
NOP
MOV
MoV
:Og
J
Cbg

000240
005010

013164
002062

MOV
MOV
MOV
MOV
MOV
MOV
NOP
CLR
NOP
MOV
MOV
:gg

1$:

MOV

MOV
Hgg
N

CLR

000006
000006

NOP
gog
L
ADVANCE
MOV
cMP
ERROR
SCOP1
JMP

000004

END

MACRO

01,8TSTNM

;:LOAD THE NUMBER OF THIS TEST

#TST2,NEXT
45%,4
#PR7,6
014,L0CK
DZCSR,RO
(RO),R1

;POINT TO THE START OF THE NEXT TEST
sSET TRAP VECTOR
;SET PRIORITY TO LEVEL 7
;SET RETURN IF SW09=11
;SET ADDRESS TO TEST
;READ THE ADDRESS
sWASTE TIME
;WRITE THE ADDRESS
sWASTE TIME
;SET RETURN ADDRESS FOR SWO09
;SET ADDRESS TO TEST
;:READ THE ADDRESS

SESEESESEIEESSNSSISS
SR

(RO)
#24,L0CK
DZRBUF ,RO
(RO),R1
(RO)

[

#34,L0CK
DZ7CR,RO
(RO).R1

;WRITE THE ADDRESS
:WASTE TIME
;SET RETURN ADDRESS FOR SW09
:SET ADDRESS TO TEST
;READ THE ADDRESS

(RO)

+WRITE THE ADDRESS

#44,L0CK

:SET RETURN ADDRESS

DZMSR,RO
(RO),R1

:SET ADDRESS TO TEST
;READ FRQM ADDRESS

(RO)

;WRITE THE ADDRESS

%6.4
6

(SP),RY
(SP)s,(SP).
1
(R1)

:
:SET TRAP CATCHER BACK TO NORMAL
:
:SCOPE THIS TEST
;SAVE PC OF TRAP
;POP TRAP OFF STACK
:&NO SLAVE SYNC RESPONSE.
;SW09=17?
iRTI

=ssssssazzazzszssasss

(2)
8651

8652
6653
8554
8655

SEQ 64

02-JUL-85
16:19
PAGE 83-45
CZ0ZA DZ11 DEVICE DIAGNOSTICS.

;68080 ss00s0808800000b68

-’XZ-I.IIIIIIOIQ.II.II.'.'.IIII.‘I

TEST

;#THIS TEST PROVES THAT BIT

2488400808080 0080040830080880448

“DCLR"

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

TEST 2

-‘xz-"ll....’.-....ll..-......I..

CZ0ZA-I0
CZDZAI.P11

(3)
(4)
(2)
(2)
(2)
8656

8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675

MACY11 30A(1052)
02-JUL -85 16:17

SEQ 65

02-JWL -85
16:19
PAGE 83-46
CZ0ZA DZ11 DEVICE DIAGNOSTICS.
1:00848484448488448848880803
8488848588880 884884088880888880008804040

013226
013230

000004
012737

013236
013244
013250
013254
013256
013260
013262
013264

012737
013700
012705
010510
011004
020504

013266
013270
013272
013274
013276
013300

005002
005005
005003
011004
001405
005203

013302
013304
013306
013310
013312

001374
005302
001372
104002

000002

001122

013312
002042
000020

001360

TST2:
;s

END

SCOPE
MOV
O

MACR)

MOV
MoV
Mov
MOV
MoV
cHP
BEQ
ERROR

001401

104002
1%:

#2,3TSTNM

;:LOAD THE NUMBER OF THIS TEST

OTST3, NEXT
DZCSR,RO

;POINT TO THE START OF THE NEXT TEST
:SET POINTER
:SET DOCLR
sWRITE DCLR INTO DZCSR
;:READ BACK DZCSR
:DZCSR 0K?
;IF IT IS SET SKIP THE ERROR CALL
+sOCLR SHOULD BE SET..MOMENTARILY

ssssssszsasnsassszsss

#DCLR,RS
R5,(RO)

(RO),R4
R5,R4
13
2

;:NOW LETS WATCH IT DISAPPEAR

2%:

CLR
CLR
CLR
MOV
BEQ
INC

R2
RS
R3
(RO),R4
34
R3

BNE
DEC
BNE
ERROR

2
R2
24
2

:SET COUNTER T0 O
+SET EXPECTED TO O
;:OUAL LOOP COUNTER
;IS DCLR CLEAR?
;IF YES , GO TO THE NEXT TEST
;IF NO,COUNT 1 OF 65535 TICKS
sTHE WORD CREATED BY THE IMMEDIATE O WILL BE

s THE COUNTER

;HAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN
+HAS THE TOTAL TIME EXPIRED?
;IF NO, CHECK THE BIT AGAIN
:#DCLR FAILED TO CLEAR
i
§

;hdtddAssbdsstbssbbdtties

-$MRRW{-=2sscasssssssssssssssssnsssssssusnssss
~$X]-sssusssussssazssssssassssssss

TEST

4444488040880440004840084000008

NS
S

NN PN PN

;#«CLEARED BY A "DEVICE CLEAR”
{

D o
D Nl NP

NN PN PN
NN

14BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
1#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE

;:%

~$Xl-sssssssssssssussssnsssssssses

TEST 3

;160855888040 04855888384054800888000808480050040000004800000808000000

013312
013314

000004
012737

013322
013330
013334
013340
013342
013344
013346
013350
013352
013354
013356
013360
013362
013364
013366
013370

012737
013700
012705
01¢510
011004
020504
001401
104002
040510
011004
001404
010546
005005
104002
012605
010510

TST3:

000003

001122

013404
002042
000010

001360

S
S

NI
NN

Nl NP N
o
N

NN PN

N
N
o

NN
N TN

Nt Nl o

Nl ol o

RN
WMNN

+#TEST TO VERIFY THAT BIT “MAINT” CAN
;#BE SET. THEN VERIFY THAT BIT “MAINT” CAN

SCOPE

END

MOV

03,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV

@TST4,NEXT
DZCSR,RO

;POINT TO THE START OF THE NEXT TEST
1GET BASE ADORESS

MOV
MOV
CMP
BEQ
ERROR
8IC

R5,(RO)
(RC),R4
RS,R4
13
2
R5,(RO)

:SET SET IN DEVICE
;READ THE BIT FROM DEVICE
;WAS BIT SET?
tBR IF YES
;#BIT R/W FAILURE
;CLEAR THE BIT,

8EQ

RS, -(SP)

;SAVE

CLR

sSET EXPECTED RESULTS T0 0

MoV

RS.(RO)

:SET THE BIT AGAIN

HACRO

MOV

1%:

MOV
MOV

ERROR
MoV

2s:

EpassassrassSsSsSsssas

MAINT RS

(RO).,R4

2
(SP)+,RS

:SET BIT

:READ DEVICE

:BR IF BITS WERE CLEARED.
THE BIT

;eBIT FAILED TO CLEAR
sRESTORE THE BIT.

<DZA-1I0
CZDZAI.P1Y
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1
(2)
(3)

(4)
()
(2
(2)
(2
(2)
(3)
(4)
7
(6)
(4)
(8)
(4)
(2)
(2)

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(22

013372
C13374
013376
013400
013402
013404

MACY11

02-JUL -85

30A(1052)

16:17

02 JUL

104413
011004
00140
005005
104002

16:19

SEQ 66

PAGE 83-47

CZDZA DZ11 DEVICE DIAGNOSTICS.
DEVICE.CLR
MoV
(RO).R4

BEQ
CLR

34
RS

ERROR

3s:

1ISSUE DEVICE CLEAR
1READ THE BIT,

s8R IF BIT CLEARED BY INIT (DEVICE CLEAR)
:SET EXPECTED TO ZERO

1#BIT NOT

END

MACRQ

ssssassssssssszszas

END

MACRQ

sssszsassssssssesssss

CLEARED BY DEVICE CLEAP

-$MRRW-s2sz2ssssssssssssxsssasssassnsssazs

;

-‘XZ-It'-.lIlIIIIltl’ll'l.lI'Illl’

160084884044 8008440004004848

TEST

;oTEST TO VERIFY THAT BIT

“MSENAB" CAN

4§

sttssdtdtsdddsttddddttdtdbbass

;#BE SET. THEN VERIFY THAT BIT "MSENAB” CAN
;#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
:#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
ssCLEARED BY A “DEVICE CLEAR"
-’xz

::¢

I E R

EE R ERE R

PR SRR R

R RS REEEEERER Y]

TEST 4

$:008088488400844020880404000824080000048448088080000088%808040dR0

013404
013406

013414
013422
013426
013432
013434
013436
013440
013442
013444
013446
013450
013452
013454
013456
013460
013462
013464
013466
013470
013472
013474
013476

000004
01277~

012737
013700
012705
010510

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

TST4:

000004

001122

013476
002042
000040

001360

SCOPE
MOV
END

HACRO

MOV
MOV
MOV
MOV
MOV

1s:

;LOAD

ISSITSITTITIRE

(RO),R4

THE NUMBER OF

THIS

;POINT TO THE START OF THE NEXT
;:GET BASE ADDRESS
;SET BIT
sSET SET IN DEVICE
:READ THE BIT FROM DEVICE

TEST

;:WAS BIT SET?
;BR IF YES
;#BIT R/W FAILURE
;CLEAR THE BIT.

;READ DEVICE

;BR IF BITS WERE CLEARED.

CLR
ERROR
MOV

RS
2
(SP)+,RS

;SET EXPECTED RESULTS T0 O
;4BIT FAILED TO CLEAR
;RESTORE THE BIT.

RS, -(SP)

;SAVE

THE BIT

MOV

DEVICE.CLR
MOV
(RO),R4
6EQ
I$
CLR
RS

RS5,(RO)

;:SET THE BIT AGAIN

;:ISSUE DEVICE CLEAR
;READ THE BIT.
;BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
;SET EXPECTED TO ZERO

ERROR

;4BIT NOT

;

END

HACRO

32T EEEITTRITITSTEXR

;

END

MACRO

=zzzs323xx3223322223%2

;
:

CLEARED BY

-sxz-ll.l.I..I."l”l”!’::l':lfl!l

;00 bsbbbbbbstbbbbbdtsbsds

TEST

;sTEST

“SILOEN”

VERIFY

THAT

BIT

TEST S

DEVICE CLEAR

-‘"RRU-’3”’8"’!3”‘38'83"”"8’888.8‘88

ssssdssddbsdbstddsdbdbdbbssdas

CAN

;#BE SET. THEN VERIFY THAT BIT “SILOEN" CAN
;#BE CLEARED (MWRITTEN TO A ZERO). AND FINALLY
;:#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;#CLEARED Br A “DEVICE CLEAR'
;:4

TEST

BEQ
MOV

2333222

RS,R4
1s
4
RS,(RO)

MOV

2%:

44,8 TSTNM

QTSTS,NEXT
DZCSR,RO
MMSENAB, RS
RS,(RO)
(RO),R4

tmp
BEQ
ERROR
8IC

001402

005005
104002

-’XZ

22Z3IZITITIITISEZLBI.-TT2TS33IX3

C20ZA-10
CZDIAI.P11
(7
(6)
(4)
)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(2)
(3)
(4)
(2)

MACY11

02-JW -85

30A(1052)

16:17

3108086080800 040048040004800000440048048484000000088444040040040028400800408

013476
013500

000004
012737

000005

001122

1S75:
3

013506
013514
013520
013524

013526
C13530
013532

013534
0:3536
013540
013542
013544
013546
013550
13552
013554
01355¢€
013560
013562
013564
013566
013570

12737
013700
012705
010510
011004
020504
001401
104002
040510
011004

013570
002042
010000

SCOPE

MOV
END

001360

(2)

rmron

(2
(2)
(2)
(2)
(2)
(2)
(2
(2)
(2)
re)

05,8TSTNM
HACRO

MOV
MOV
MOV

RS5,(RO)

MOV

010546
005005
104002
012605
010510
104413
011004
001402
005005
104002

:READ DEVICE

MOV

RS, -(5P)

CLR
RS
ERROR
2
MOV
(SP).,RS
MOV
R5,(RO)
DEVICE.CLR
MOV
(RO),R4
BEQ
3
CLR
RS
ERROR
2

2s:

3s:

TEST

;#BIT R/W FAILURE
;CLEAR THE BIT.

(RO),R4

BEQ

THE NEXT

:WAS BIT SET?
;:BR IF YES

2
RS, (RO)

MOV

001404

;POINT TO THE START OF
;:GET BASE ADDRESS
;SET BIT

TEST

sREAD THE BIT FROM DEVICE

RS.,R4
1

ERROR
8IC

1%:

THIS

;SET SET IN DEVICE

(RO),R4

CcMpP
B8EQ

;LOAD THE NUMBER OF

sEsEEsEEssSSESSEETEISRS

#TST6,NEXT
DZCSR,RO
9SILOEN,RS

MOV

;BR IF BITS WERE CLEARED.

;SAVE

THE BIT

;SET EXPECTED RESULTS 70 0
:#BIT FAILED TO CLEAR
;RESTORE THE BIT.
:SET THE BIT AGAIN
;ISSUE DEVICE CLEAR
:READ THE BIT.
:BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
:SET EXPECTED TO ZERO
;:4BIT NOT CLEARED BY DEVICE CLEAR

;

- -

END

MACR(Q

=s3z2sz23z2z23333233238

END

MACROQ

=z=zzz2z22323222

223232

:
:
108088882400 04804484004488

$MRRW-z2222zsssassassssssssasssssaanssnxxz
-$XZ-sszz2ssssuszassssssszasssassss
TEST

s40880d4044040040000000d00040048

;4TEST TO VERIFY THAT BIT “RIE” CAN
;4BE SET. THEN VERIFY THAT BIT “RIE” CAN
;4BE CLEARED (WRITTEN TO A ZERO). AND FINALLY

(2)

(2)
(2)
(2
(3
(4)
(7
(6)
(4)
(4)
(4)
(2)
(2)

SEQ 67

02 JW-85
16:19
PAGE 83-48
CZDZA DZ1}1 DEVICE DIAGNOSTICS.

;¢VERIFY

THAT

;*CLEARED BY A
;:¢

AFTER BEING SET

'DEVICE CLEAR"

AGAIN IT CAN BE

-‘xz-l“.’l’:l."'.I’."":l.l..'.

TEST 6

1588388042404 54408088880008404 4843880008043 0000000000040008000044

013570
013572

000004
012737

TSTé6:
000006

001122
:

013600
013606
013612
013616
013620
013622
013624
013626
013630
013632
013634
013636
013640
013642

012737
013700
012705
010510
011004
020504
001401
104002
040510
011004
001404
010546
005005
104002

013662
002042
000100

001360

END

SCOPE
MOV
O

MACR)

MOV
MOV
MOV
MOV
MOV

1s:

CMP
BEQ
ERROR
8IC
MOV
BEQ
MOV
CLR
ERROR

06,38 TSTNM

;LOAD THE NUMBER OF THIS TEST

==z=zz2zzzxz223333323%2

QTST7,NEXT
;POINT TO THE START OF
DZCSR,RO
;GET BASE ADDRESS
RIE,RS ;SET BIT
RS,(RO)
(RO),R4

RS,R4
1s
2
RS, (RO)
(RO),R4
2
RS, -(SP)

RS
2

THE NEXT

:SET SET IN DEVICE
:READ THE BIT FROM DEVICE

;WAS BIT SET?
;BR IF YES
;#BIT R/W FAILURE
;:CLEAR THE BIT.
;READ DEVICE
:BR IF BITS WERE CLEARED.
;SAVE THE BIT
;SET EXPECTED RESULTS T0 O
;#BIT FAILED TO CLEAR

TEST

ZDZA 10
CZDZA1.P1t

(2)
(2)
(2)

013644
013646

013650
013652
013654
013656
013660
013662

MACY11

30A(1052)

02-JUWL -85 16:17

SEQ 68

02 JUL 85
16:19
PAGE 83-49
CZDZA DZ11 DEVICE DIAGNOSTICS.

012605

010510
104413
011004
001402
005005
104002

MoV
(5P)+ ,RS
MOV
RS,(RO)
DEVICE.CLR

2%:

MOV
BEQ
CLR
ERROR

3s:

;RESTORE THE BIT.
:SET THE BIT AGAIN
:ISSUE DEVICE CLEAR

(RO).,R4
3
RS
2

:READ THE BIT.
.BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
;SET EXPECTED TO ZERO
;#BIT NOT

- -

END

MACRO

ssszxszssxsxzzz2322a3

END

MACRD

s+*zzs3z2z2zz3x223332s%

i
;i

;8088224408408 000as00848¢

CLEARED BY DEVICE CLEAR

$MRRW-3s23zssssasssssssssassssansssasasass
-$X.-sssssazzazassssszassssssssssas

TEST

4842400848240 400000040040080408

;4TEST TO VERIFY THAT BIT "TIE” CAN
;#BE SET. THEN VERIFY THAT BIT “TIE” CAN
:4BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
;#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;#CLEARED BY A "DEVICE CLEAR"”

-$4XZ-sszsz3zxsssx3asasssxsnssansss

;:4

TEST 7

013662
013664

000004
012737

000007

TS7T7:
001122

NS N

f\gf\rnflfnfir\fluflr\fw\f\r\

D Nt P2

) N

el N

Nl N

D N

o (N Moo=
o
s

o N

NN\

)

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

013754
002042
040000

MOV
;

013672
013700
013704
013710
013712
013714
013716
013720
013722
013724
013726
013730
013732
013734
013736
013740
013742
013744
013746
013750
013752
013754

SCOPE

END

001360

HACRO

MOV
MOV
MOV

MOV

2s:

97,$TSTNM

;LOAD THE NUMBER OF THIS TEST

#TST10,NEXT
DZCSR,RO
#TIE,RS ;SET

;POINT TO THE START QOF
;GET BASE ADDRESS

AZEEXIEEZZIESIZTIIXISISIRS

RS5.(RO)

;:SET SET IN DEVICE

;READ THE BIT FROM DEVICE

BEQ
ERROR
81C
MOV
BEG
MOV
CLR
ERROR

1s
2
RS,(RO)
(RO).R4
2
RS, (5P)
RS
2

MOV

(SP)+,RS

;:BR IF YES
;#8IT R/W FAILURE
;CLEAR THE BIT.
:READ DEVICE
:BR IF BITS WERE CLEARED.
;sSAVE THE BIT
;SET EXPECTED RESULTS 10 0O
:4BIT FAILED TQ CLEAR

RS5,.R4

MOV
RS,(RO)
DEVICE.CLR
MOV
(RO),R4
BEQ
3
CLR
RS
ERROR
2

BIT

THE NEXT TEST

(RO),R4

cMp

1s:

YL IrrrrrrrrrrrryyTmMm

;WAS BIT SET?

;RESTORE

THE BIT.

;SET THE BIT AGAIN
:ISSUE DEVICE CLEAR
;READ THE BIT.
;BR IF BIT CLEARED B8Y INIT (DEVICE CLEAR)
;SET EXPECTED T0 ZERO
:#BIT NOT CLEARED BY DEVICE CLEAR

END

MACRO

=zazzzzzz=z23z2323=2x

END

MACRO

=33zzz=z2zxzzz2zz32z22
;

STCR-SS=I-3883:83::88:::332888:88883’8!2::88388

’xz-:8:332:-::8:':33333::3333::83

etk bbbt hbhdkidabdbddbts

TEST

sssdstdsddbtddbbbbdbddbbbhbbdsd

;#THIS TESTS THAT ALL OF THE FOLLOWING
;#BITS CAN BE: SET, CLEARED, CLEARED BY “DEVICE CLEAR
;#BITS TESTED ARE:
;# TCRO, TCR1, TCR2, TCR3, TCR4, TCRS, TCR6, TCR?
;

sxz

. --

az=-"zz-z2z=z2Tx3==~

CZDZA-10
CZDZAI.P11

MACY11

30A(10S52)

02-JUL -85 16:17

::¢

TEST

ol Nt
et

NV\J\JV\JV\J\J\JVVVV\JV\JVVVVVVV\JVV\JV\J N

000010

014002
014010
014012
014014
014020
014022
014024
014026
014030
014032
014036
014040
014042
014044
014046
014050
014052
014054
014056
014060
014064
014066
014070
014072

014074
014076

014100
014102
014104
014106

012737
013700
012705
012737
010510
011004
042704
020504
001401
104002
040510
011004
042704
005704
001404
010546
005005
104002
012605
010510
104413
011004
042704
005704
001404
010546
005005
104002
012605
104401
106305
001341
005037

014112
002056
000001
014010

END

001360

1$:

210, $TSTNH

HACRO

2%:

177400

3s.

dTSTL1 ,NEXT
DZTCR,RO
4TCRO,RS
#14,L0CK
RS,(RO)
(RO),R4

CMP
BEQ

RS,R4
2%

#1C<377>,R4

:WAS BIT OK?
;BR IF YES

ERROR

R5,(RO)
(RO),R4
9tC<377> ,R4
R4
3s
RS, -(SP)
RS
2
(SP)+,RS
RS,(RO)

; #REPORT BIT NOT CLEAR
;RESTORE RS
;SET THE BIT AGAIN.

MOV
8IC
787
BEQ
MOV
CLR

(RO),R4
#tC<377>,R4
R4
43
RS, (sP)
RS

MOV

;READ THE REGISTER
;CLEAR HIGH BYTE
:BITS CLEAR?
:BR IF YES
;SAVE GOOD RESULTS
;SET EXPECTED TO O

;#REPORT BIT NOT CLEAR

(SP)+,R5

;RESTORE RS

RS
1s
LOCK

:CHANGE TO NEXT BIT
;CONTINUE TESTING
¢{MAKE SURE TIGHT LOOP IS CLEANED UP

SCorP1

001362
--

;CLEAR HIGH BYTE

BIC
MOV
8IC
TST
BEQ
MOV
CLR
ERROR
MOV
MOV

ERROR

4 ;

END

THIS TEST

;:POINT TO THE START OF THE NEXT TEST
;:SET DEVICE ADDRESS
:SET EXPECTED RESULTS
;SET FOR SW09
;SET THE BIT
;:READ THE BIT FROM TME DEVICE

;#BIT FAILED TO SET.

;CLEAR THE BIT
;:READ THE REGISTER

;CLEAR HIGH BYTE

:BITS CLEAR?

;BR IF YES
:SAVE GOOD RESULTS
:SET EXPECTED TO ©

ODEVICE.CLR

177400

;LOAD THE NUMBER OF

ZSE2ZEXEIEZITSTITSTISRSE

MOV
MOV
MOV
MOV
MOV
MOV

81IC

177400

ASLB
BNE
CLR
0

MACRO

:ISSUE DEVICE CLEAR

;LOCK ON BIT? SET SW09=1

=zxz3z3=3z22x223323=

;

~$XZ-szx3=zs33z3333FT333322333233232

bbbk tb bbb bbb dbkhbdhbhhbk

TEST

st sdsssssdbdbssbsbsbbhbbbhbhhd

ud Nt N

:#THIS TESTS THAT ALL OF THE FOLLOWING
;#BITS CAN BE: SET, CLEARED, CLEARED BY “RESET INSTR &«NOT# DEVICE CLEAR
;:#BITS TESTED ARE:
:+« DTRO, DTRL, DTR2, DTR3, DTR4, DTRS, DTR6, DTR7?

;#THIS

Nl Nt Nd
S
N

SCOPE
MOV

001122
:

013764
013772
013776

0840040 04020004000 8042000 4000004400400 400004 00440044

TST10:

NP NS

AN NN IO -2 o 0 10 b0 (N PO QD -5 bt b s pot et Pt ot Pt pot Pt (o (ot i (o P o oh b P p

000004
012737

TEST

NOT

DONE

MODULE

20MA

VERSION

$XZ-2-=-==z3z3zxz3=xzxxx3z3zz=2333°T

s+
HE

014112
014114

000004
012737

000011
:

014122
014130
014134

012737
013700
012705

TEST

LIRS

TST11:

e E

Nt Nt N

b o o0 b et Pt Pt Pt el

f\fifif\f\f‘\fifififlfifif\fi"\"\a\"\fi"\/\f\f\fi’\/\Af\"\fif\’\f\f\fi’\fifl’\’\fiflfififif\flflflf\fififl

yrymTM

i NS Nt

3828 080 08

013754
013756

SEQ 69

02-JUL-85
16:19
PAGE 83-50
CZDZA 0Z11 DEVICE DIAGNOSTICS.

014274
002056
000400

END

PP TR

P Ve

SCOPE
MOV

#11,8TSTNM

;LOAD THE NUMBER OF

MOV
MOV
MOV

#TST12 ,NEXT
DZTCR,RO
#DTRO,RS

;:POINT TO THE START OF
;SET DEVICE ADDRESS
;SET EXPECTED RESULTS

HACRO

ZIZTTITTXTISTIIITIT=
o

TSI

TIY

THIS TEST
THE NEXT

TEST

i
Nt Nt Nt

f\flf\fif\’\f\flf\f\fif\fifififififlfififlf\ PN PN PN

014140
014146
014152
014154
014156
014160
014162
014164
01416¢€
014170
014172
014174
014176
014200
014202
014204
014206
014210
014212
014214
014216
014220
014222
014224
014226
014230
014232
014234
014236
014240
014244
014246
014252
014254
014256
014260
014262
014264
014266
014270

MACY1!

30A(1052)

02-JUL-85 16:17
012737
105737
100001
104400
010510
011004
105004
020504
001401
104002
040510
011004
105004
005704
001404
010546
005005
104002
012605
010510
104413
011004
105004
030510
001001
104002
104401
006305
001347
012710
005005
005227
001375
000005
011004
105004
005704
001401
104002
005037

014156
001414

SEQ 70

02-JUL-85
16:19
PAGE 83-51
CZDZA DZ11 DEVICE DIAGNOSTICS.
001362

MOV
414,L0CK
TSTB
EIAFLG
8PL
13
ADVANCE
MoV
RS, (RO)
MOV
(RO),R4

13:

CLRB
CMP

2%:

;CLEAR LOW BYTE
sWAS BIT OK?

:BR IF YES

ERROR

BIC

RS,(RO)

CLRB

;CLEAR LOW BYTE

BEQ
MOV
CLR
ERROR
MOV
MoV

3
RS,-(SP)
RS
2
(SP)+,RS
RS,(RO)

:BR IF YES
;SAVE GOOD RESULTS
;SET EXPECTED TO 0O
;#REPORT BIT NOT CLEAR
;RESTORE RS
;SET THE BIT AGAIN.

(RO),R4

;READ THE REGISTER

MOV

;#BIT FAILED

;READ THE REGISTER

;BITS CLEAR?

DEVICE.CLR

MoV

CLRB
BIT
BNE

001362
:

END

;CLEAR LOW BYTE
;WAS BIT CLEARED BY DEVICE.CLR?
;:BR_IF NO (IT SHOULDN'T BE CLEAR)

RS
1s
#177400, (RO)
RS
#0
1)

BNE
MOV
CLR
INC
BNE
RESET
MOV
CLRB
TST
8EQ
ERROR
CLR

5$:

; ISSUE DEVICE CLEAR

R4
RS,(RO)
43

ERROR
SCoP1
ASL

(RO),R4

R4
R4
.+4

MACR)

TO SET.

;CLEAR THE BIT

(RO),R4

TS8T

3$:

;SET FOR SWO9
:20MA OR EIA
;BR IF EIA
;EXIT TEST
;SET THE BIT
;READ THE BIT FROM THE DEVICE

R4
RS,R4
2

BEQ

;#BIT CLEARED BY DEVICE.CLR
;LOCK ON BIT? SW09=1
:CHANGE TO NEXT BIT

:IF NOT DONE LOOP
;SET ALL DTR BITS
;CLEAR LOCATION FOR ERROR PRINTOUT
;ACT DELAY LOOP FOR
:RESET INSTRUCTION
;ISSUE A BUS INIT
;READ REGISTER

;CLEAR LOW BYTE
;DTR BITS CLEAR?
:IF YES CONTINUE
;IF NO PRINT ERROR
iMAKE SURE TIGHT LOOP IS CLEANED UP

2
LOCK

saxz=z=zz2=223-22x_z222=22

OV N R - e et =0 1t e G R O
IO

Aflfi’\flfif\f\f\’\fifi’\fimfi"\fifi"\f\fifi’\’\f\fi"\

0 =0 b b pob it ot et b b Pt Pt ot P8 0 b (b (b (o ot ot Pt Pt 8 fD b b et b i b pn P

s
et o o pt pa —
\JV\J\J\J\JVU\JV\JVVVw\J\JV\J\JV\JVVV\JU\J VU\JVVVVVVVVUVVV\J\JVVVVV

CZ02A-10
CZDZA1.P11}

$MRR-*z3=z333xs33zxx33z2x32333233223x2333

;

ihbbbbbbabsdbhbbbbbbhbbbhd

sxz-::sa::::s8888838:383238883888

TEST

sssbsdsbhhbbhbbbbbbbbbdbbbbbds

;#THIS TEST PERFORMS RESET TESTING &
;#TESTING OF WRITE ONLY OR READ ONLY BIT
i« TEST BITS "RDONE, BIT11, BIT10, BIT9, BIT8, BIT2, BIT1
i *

BITO,

%
1 &

;:%

TEST

Rttt

014274
014276

000004
012737

000012

001122

TST12:
:

END

SILOAL'

ARE READ ONLY AND THAT TROY IS

ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET.
;

-sxz-::x33333333828:3’!3388’88’288

12
R

SCOPE
MOV
O

MACRQ

#12,$TSTNM

LTI

;LOAD THE NUMBER OF

2==zz=zz=z==222=zz3z222

THIS TEST

222

U\JV\J\JV\J\JVVVV\J\JVVVVV Nt N
~

[

Pt s o =t Pt b Pt p

fif\f\fl\flfifi’\flfififlfi"\fi"\fif\flflfi PN NN
N~
~

s b o8 b s et i b pb e po Pt Pt pt Pt Pt P w

ol ok ot NS ~

CZDZA-10
CZDZA1.P14

8684
(2
8685
8686
8687
3688
8689
8690
3691
8692
8693
(5)
(4)

(2)
(2)
(2)

8694
8695
*8696
8697
8698
8699
8700
8701

8702
8703
8704
8705
87C6

MACY11 30A(1052)
02-JUL -85 16:17

014304
014312
014316
014320

012737
013700
005005
012710

014324
014326
014330
014332
014336
014349
014342
014344
014350
014354
014362
014366
014372
014374
014376
014400
014402
014404
014406
014410
014412

011004
001401
104002
012710
011004
001401
104002
012705
005077
052777
052710
052705
005002
011004
020504
001404
104414
005202
001372
104002

014412
002042

SEQ 71

02-JUL -85
16:19
PAGE 83-S2
CZDZA DZ11 DEVICE DIAGNOSTICS.
001360

MOV
MOV

4TST13 ,NEXT
DZCSR,RO

MOV

OROONE +BIT11+BIT10+BIT9+BIT8+BIT2+BIT1+BITO+SILOAL,(RO)

;SET EXPECTED TO ©

MOV
BEQ
ERROR
MOV
MoV
BEQ
ERROR
MOV
CLR
BIS
8IS

(RO),R4
13
¢
@TRDY, (RO)
(RO),R4
24
2
4TRDY,RS
80ZLPR
4TCRO, 8DZTCR
#MSENAB, (RO)

;READ BACK THE BITS
:BR IF NONE ARE SET.
;*BITS WERE SFT.
;ATTEMPT TO WRITE TRDY
;:READ TRDY
:BR IF NOT SET
is
:SET EXPECTED BIT
;LOAD LINE O
;SET TCR BIT
i

CLR
MOV
CMP

R2
(RO),R4
RS,R4

;SET COUNTER TO ZERO
;READ THE REGISTER
;BIT SET?

CLR

027607

100000

1s:

100000
165476
000001
000040
000040

2%:

165474

BIS

3s:

;

END

THE NEXT

TEST

;SET SCAN ENABLE

;B8R IF YES
;STALL TIME
;UPDATE COUNTER
;B8R IF COUNTER NOT DONE.
;#TRDY NOT SET!

R2
3
2

MACR)

;WRITE THE BITS

#MSENAB, RS

BEQ
DELAY
INC
BNE
ERROR

43
;

;POINT TO THE START
;SET ADDRESS T0 RO

=3z22zz23x22s2x33233

:
istdbbbbbbbititbibbtanbtss

-sxz-:::::::::al:::::s::x::za:s:s:
TEST

shsdsdbdddbhbtsbbdbdbhhibbssdd

;#THIS TEST PERFORMS RESET TESTING AND
;#«TESTING OF READ ONLY AND WRITE ONLY BITS
;& IN REGISTER D2CSR

i#VERI®Y THAT

"TIE”,

"“SILOEN“,

“RIE”,

"MSENAB”,

“MAINT"

;#ARE THE ONLY R/W BITS IN THE DZCSR.
;#THEN VERIFY THAT A RESET WILL CLEAR THESE BITS
;#THIS TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR
-sxz

;:%«

TEST

014412
014414

000004
012737

000013

001122

014422
014430
014432
014436
014442
014446
014450
014452
014454
014456
014460
014462
014464
014466

012737
104413
013700
012710
012705
011004
020405
001401
104002
105010
105005
011004
020405
001401

014542

TST13:
--

001364,

sl LI

LTI

SCOPE
MOV

END

223 ZIZTTIZITITTTIAETIETIZIINTITTITRSS

"ACRO

213, $TSTNM

:LOAD THE NUMBER OF THIS TEST

SXZTXIZTITTIXRILTTTIRIX

MOV
ATST14 ,NEXT
;:POINT TO THE START OF THE NEXT TEST
DEVICE.CLR
MOV
DZCSR,RO
;SET UP FOR ERROR MESSAGE
MOV
#tC<DCLR>,(RO)
;TRY TO WRITE
MOV
OTIE!SILOEN'RIE!MSENAB 'MAINT,RS ;MAKE EXPECTED

002042
177757
050150

MOV

cHpP

1¢:

BEQ
ERROR
CLRB

CLRB

MOV
CMP
BEQ

(RO),.R4

R4 ,RS

s ACTUAL

:CMP EXPECTED VS ACTUAL

1s
2
(RO)

; YES
; #NO
;CLEAR LOWER BYTE OF CSR

(RO),R4
R4 ,RS
3s

;READ CSR BITS
;COMPARE ACTUAL
;BRANCH IF SAME

;:SET EXPECTED

TO EXPECTED

CZDZA-I0
CZDZAL P11
014470
014472
014476
014502

104002
012710
105077
012705

014506
014510
014512
014514
014516
014522
014524
014530
014532
014534
014536
014540
014542

011004
020405
001401
104002
012710
005005
005227
001375
000005
011004
001401
104002

i s o o (N O O U O G

ONNINNNN DY IONINION N INNTTNITNION NN IONION NN NN NN PN PN NN PN

TN 0 0=t pn G D ) =0 10 =0 0ot (et 1o 1t b0 Pt (ot ot =t it P

SEQ 72

02-JUL -85
16:19
PAGE 83 53
CZDZA DZ11 DEVICE DIAGNOSTTICS.

177757
165342

ERROR
MOV

3s:

CLR8

000150

177757

4% :

000000

S$:

2
#tC<DCLR>,(RO)

;OTHERWISE PRINT
;RESET CSR BITS

9HDZCSR

;CLEAR HIGH BYTE OF CSR

MOV

QRIE'MSENAB!MAINT,
RS

MOV

(RO),R4

CMP
BEQ

ERROR
MOV

:SET RS TO EXPECTED RESULTS

R4 .,RS
44

;ACTUAL = EXPECTED?
;BRANCH IF SAME

(RO),R4

;OTHERWISE PRINTOUT ERROR
;RESET CSR BITS
:SET RS TO EXPECTED RESULTS
;:DELAY TIMER FOR
;ACT-11 COMPATIBILITY
;ISSUE BUS INIT
;READ CSR REGISTER

;IF NOT PRINT ERROR

2%:

ERROR

;READ CSR

2
#+C<DCLR>,(RO)
RS
20
S$

CLR
INC
BNE
RESET
MOV
BEQ
ERROR

;BRANCH IF CSR IS CLEAR

) = et b (N n

V\J\JVV\JO\JVU\J\JUV\JVVVVVU\JVVUV\JV\JVV\J\JVVU ~

N PN PN PN PN ~

8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725

MACY11 30A(1052)
02-JUL -85 16:17

-$MRWD-sssszzzssszzzassssazssssasss

-$X7-sz2z2z3azsx33sssssssnsssssansanx

et bbb hbhkndbbddhsbhdds

TEST

sssstdbdsbsbdbbsssddtdddsddsds

;#THIS TEST PERFORMS RESET TESTING AND
;#TESTING OF READ ONLY REGISTER DZRBUF

;%AND TESTING OF WRITE ONLY REGISTER DZLPR
:

;:¢

014542
014544

000004
12737

000014

012737
104413
013700
011005
012777
011004
042705
020405
001401
104002
010403
005103
010377
011004
020405

014632

TST14:

SCOPE
MOV

001122
--

END

001360

"ACRO

#14,$TSTNM

P Y

PRSP

ISy

TIIIIIY]Y

;:LOAD THE NUMBER OF THIS TEST

ZEZZITTTITXITIIITIRISR

cMp
BEQ
ERROR
MOV

;POINT TO THE START OF THE NEXT TEST
;CLEAR DZ11
DZRBUF ,RO
:SET UP FOR ERROR MESSAGE
(RO),RS
;:SET EXPECTED
#-1,30ZLPR
:TRY TO WRITE ALL 1'S
(RO),R4
sACTUAL
#OVALID!BIT11,RS ;DITTO
R4 ,R5
:CMP ACTUAL VS EXPECTED
1
:IF YES,GO CONTINUE PROCESSING
2
:+ERROR- BIT PATTERN NOT CORRECT
R4 ,R3
;GET A COPY OF THE ACTUAL BIT PATTERN

MOV
MOV
CMP
BEQ
ERROR

R3,3DZLPR
(RO).R4
R4 ,RS
2
2

MOV
MOV
MOV
MOV
BIC

165254

104000

1s:

COoM

165230

001401

104002

MOV
#TST15,NEXT
DEVICE.CLR

002046

177777

LI IR

014552
014560
014562
014566
014570
014576
014600
014604
014606
014610
014612
014614
014616
014622
014624
014626
014630
014632

TEST

+$4X7-sz3zzz22333z33328s2TT2TBSIanS

;:GET THE LOGICAL INVERSE OF THE BIT PATTERN

;TRY TO WRITE
s ACTUAL
:CMP ACTUAL VS EXPECTED
;IF YES, GET OUT OF THIS
:*NO

TEST

2%:
;

END

MACRO

=zxzazzazazazzzzaz=z

-QHRHD-lx:za:t::::x:::z:a:x:sa::::

-’xz-llltxllfllllfllszalIISIIII'IIII

bbb bbb khbbihddbnhbk

TEST

ssssbsdddssdsdbdbbbdbbbbbbdhts

;#THIS TEST PERFORMS RESET TESTING AND

;*TESTING OF READ ONLY REGISTER DZMSR

;#AND TESTING OF WRITE ONLY REGISTER DZTOR
:

<$4XZ-sszzz3zssszzzessszzzzzaTITITEIRDT

CZDZA-10
CZDZAI.P11

MACY11 30A(1052)
02-JUL-85 16:17

(3)

;:s

(6)

(5)
(3;

(3)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

014632
014634

000004
012737

TEST 15

;;“““““t“““‘“‘t““t“‘“““‘tt‘#‘i“““‘t“t‘t‘tt

000015

012737
104413
013700
011005
012777
011004
020405
001401
104002
010403
005103
010377
011004
020405
001401
104002

014716

001122

MACR)

001360

165200

1¢:
165160

2%:
i

END

MACRO

;LOAD THE NUMBER OF THIS TEST

*=zz2z233z2s2333z22x3322

MOV
#TST16 ,NEXT
DEVICE.CLR
MOV
DZMSR, RO
MOV
(RO).,RS
MOV
¢-1,3DZTDR
MOV
(RO),R4
CMP
R4 ,RS
BEQ
1
ERROR
2
MOV
R4 ,R3
CoM
R3
MOV
R3,8DZTOR
MOV
(RO),R4
CMP
R4 RS
BEQ
24
ERROR
2

002062
177777

“t‘

TST15:
SCOPE
£ DHgV
R #15,$TSTNM
--

014642
014650
014652
014656
014660
014666
014670
014672
014674
014676
014700
014702
014706
014710
014712
014714
014716

SEQ 73

02-JUL-85
16:19
PAGE 83-54
CZ0ZA DZ11 DEVICE DIAGNOSTICS.

;POINT TO THE START OF THE NEXT TEST
;CLEAR DZ11
:SET UP FOR ERROR MESSAGE
:SET EXPECTED
;:TRY TO WRITE ALL 1'S
s ACTUAL
:CMP ACTUAL VS EXPECTED
;IF YES,GO CONTINUE PROCESSING
;#*ERROR- BIT PATTERN NOT CORRECT
;GET A COPY OF THE ACTUAL BIT PATTERN
;GET THE LOGICAL INVERSE OF THE BIT PATTERN
:TRY TO WRITE
s ACTUAL
:CMP ACTUAL VS EXPECTED
;:IF YES, GET OUT OF THIS TEST
: «NO

=3xzaxzzsx2zzz2zz2=2=x

8727
8728

8729

(2)

hdkdkddbhbdhbbbbhkrhkhs

;#VERIFY THAT IF WE ARE IN "STAGGERED" MODE
;#«THAT SETTING “DTR” FOR A LINE WILL

8733
8734
8735
8736

;#ASSOCIATED LINE IN WHICH WE ARE STAGGERED!
:# LINEO DTR= LINE1 RING AND CARRIER
:# LINEL1 DTR= LINEO RING AND CARRIER
;« LINE2 DTR= LINE3 RING AND CARRIER

;#BRING UP

8737

"RING” AND

8739

8741

;:«

(5)

(2)
(1)

8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752

P Y Y

)

“CARRIER” FOR THE

(2)

P Y

ETC. ..

8740

(4)
(2)

;# LINE3 DTR= LINE 4 RING AND CARRIER

8738

8730
8731

8732

-$XZ-zz23z3s322ssuzassuszusasssasns

TEST

014716
014720
014726
014734

014742
014746
014750
014752
014756
014760
014762
014766
014772
014774

015002

000004
012737
012737
012737

105737
100001
104400
013700
104413
005003
012702
005737
100405
013737
000177

~-$4X7-z2z3s2xz2zsanzzsaszss

zsasasssans

TEST 16

H ;““#‘t‘t‘##tt“‘tt“tt"t“&‘t“‘t“‘tt““#t‘i“it““t““‘t

000016
015112
015006
001414

001122

10%:

000001
001370

164120

001360
001362

002062

001360

TST16:

001126

END

SCOPE
MOV

€16, $TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV

#TST17 ,NEXT
414,L0CK

;POINT TO THE START OF THE NEXT TEST
;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED

HACRO

ZZZIBETEETZTITTTITITETITZTS

7518
EIAFLG
BPL
10¢
ADVANCE
MOV
DZMSR,RO
DEVICE.CLR
CLR
R3
MOV
#1 ,R2
ST
MODE
BMI
13
MOV
NEXT, $LPADR
JMP
S$LPADR

;EIA OR 20MA?
;BR IF EIA
{EXIT TEST
;SET REGISTER
+INIT DZ11
;ZERO LINE NUMBER
:SET POINTER
;ARE WE IN STAGGERED MODE?
;:YES WE ARE!
;LEAVE THIS TEST! NOT STAGGERED
$EXIT

CZDZA-I10
CZDZAl P11
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
81177
8778
8779
8780
8781
8782
8783
8784

015006
015012
015014
015016
015020
015022
015024
015026
015032
015034
015036
015040
015042
015044
015046
015050
015052
015056
015060
015062
015064
015066
015070
015074
015076
015100
015102
015104
015106
015110

MACY11 30A(1052)
02-JUL -85 16:17
130237
001004
005203
106302
103372
104400
010204
032703
001402
006204
000401
006304
005005
150405
000305
150405
150277
104414
011004
020504
001401
104002
140277
104414
011004
001402
005005
104002
104401
000741

14:

001364

BIT8B

BNE
INC
ASLB
8CC
ADVANCE
MOV
BIT
BEQ
ASR
BR
ASL
CLR
BISB
SWAB

2s:

3
000001

44:
5%:

BISB

165002

8ISB
DELAY
MOV

cMpP

164764

BEQ
ERROR
BIC8
DELAY
MOV
BEQ
CLR
ERROR
SCoP1
BR

6%:

78:

;TEST THIS LINE?

3s
R3
R2
1$

:YES
;LINE &
;GET NEXT LINE
;KEEP TESTING
:ADVANCE THIS TEST
:SAVE BINARY BIT FOR LINE ¢
;GET STAGGERED COMPANION LINE
;BR IF LINE EVEN
;ADJUST LINE
:
;ADJUST LINE
;SET EXPECTED
:
H

R2,R4
#8I70,R3
43
R4
5%
R4
RS
R4 ,R5
RS

R4 ,RS5

R2,3HDZTCR

;SET DTR
;CABLE DELAY
;READ MSR REGISTER

(RO),R4

RS,R4

;0K?

6$
2
R2,8HDZTCR

;YES
;#ERROR IN RING OR CARRIER
:CLEAR DTR
;CABLE DELAY
:READ MSR
;BR IF THEY CLEARED

(RO),R4
7%
RS
2

;SET EXPECTED 70 O

:#BITS NOT CLEARED
:LOCK ON SIGNAL?
;CONTINVE TEST

shdbbbhbhdbdbhddbbhdbdbbhd

8785
8786
8787
8788
8789

~$XZ-s2zxms3z3xz33332333333x233TT223

TEST

sessshbsbsttdbbbbbsbbbbbbdhss

;#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 MHAVE

;#SELECTED MODE AS “EXTERNAL”; THE H325 TEST CONNECTER
;#MUST BE ULSED ON ALL SPECIFIED LINES.
;#LINES MAY BE SPECIFIED BY SWR03=1
;#AND SWROO=1 AT START TIME OR ALTERING
:#STATUS MAP.

8790
8791

8792
8793
8794

8795

8796
8797
8798
8799
6800
88C1

R2,LINE

(2)

(S)
(4)
(2)
(2)
(2)
(1)

SEQ 74

02-JUL-85
16:19
PAGE 83-55
CZDZA DZ11 DEVICE DIAGNOSTICS.

TEST

(ihbabhAhbhhb bbbk

015112
015114

000004
012737

TST17:

000017

001122
;

015122
015130
015136
015142
015144
015146
015152
015154

012737
012737
105737
100401
104400
105737
100774
013700

015250
015164
001370

001414
002062

001360
001362

1s8:

2%:

END

-$4X7-32x3z33xzx332z2333c333233383N2

SCOPE
MOV
O

MACRO

b kbt

hb kbbb hhhhbhhbbbhbbbbhbbbbdbbbbdbbbbdd

#17,$TSTNM

MOV
MOV
TST8
BMI

#T1ST20,NEXT
#3$,LOCK
MODE

TST8
BMI
MOV

EIAFLG
18
DZMSR,RO

ADVANCE

;LOAD THE NUMBER OF

~z3szzzz=zzz3=z333_=2=

THIS TEST

;POINT 70 THE START OF THE NEXT TEST
;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED
;EXTERNAL?
;BR IF YES
sEXIT TEST
;YOU BETTER BE 1IN
;EIA MODE FOR THIS TEST.
;SET REGISTER

CZDZA-1
czoza’
.
8fv8.t
850
8805
8806
8807
8808
8809
8810
8811

8312

8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827

.
415160
J15164
015170
015172
215174
\ 15176
€15200
(:23202
015204
Q15206
015210
015214
015216
015220
015222
015224
015226
015232
015234
015236
015240
015242
015244
015246

MACY11 30A(1052)
02-JU.-85 16:17

012702
130237
001003
106302
103373
104400
005005
150205
000305
150205
150277
104414
011004
020504
001401
104002
140277
104414
011004
001402
005005
104002
104401
000751

SEQ 75

02-JUL-85
16:19
PAGE 83 S6
CZDZA DZ11 DEVICE DIAGNOSTICS.

000001
001364

MOV

41,R2
R2,LINE
5
R2
3

BITB
BNE
ASLB
8CcC
ADVANCE
CLR
8IS8
SWAB
BISB
BISB
DELAY

44
.

5%¢:

164644

RS
R2,R5
RS
R2,RS
R2,8HDZTCR

MOV

R5|R4
63
2
R2,8HDZTCR

ERROR
BICB
DELAY
MOV
BEQ
CLR
ERROR
SCoP1
BR

6%:

7s:

;SET DTR
;CRABLE DELAY
;READ MSR
:BITS OK?
;BR IF YES
;:CARRIER OR RING ERROR
;CLEAR DTR
;:CABLE DELAY
;READ MSR
;BR IF BITS CLEARED
;CLEAR EXPECTED LOC.
;BITS NOT CLEARED.
;LOCK ON LINE?
;:CONTINVE TEST

(RO),R4

CMP
BEQ
164626

:SET LINE POINTER
;LINE SELECTED?
;BR IF YES
:NEXT LINE
;CONTINUE TEST
:ADVANCE THIS TEST
sSET EXPECTED

(RO) ,R4

78
RS

2
43

P NP D N N

N N T O G D b

D Nt Nad D N N NP N Nh
Nl N Nt " NS N

00 =0 o (s (=t (b (b (b b b ot ot B P po et et O

Nt Nt Nl N

—

;

~STLINE-zzx3z2z2s323333s33zssasssasnnzaans

«$4X7-3szxazzxz223222322%

idhbbbbbbbbbtbasbbbtbidt

D N N

s s s O

flfiflflf\fiflf\f\flf\fifififif\f\fif\’\fifif\fififif\f\f\

(2)

THIS

TEST

VERIFIES

FIED

IN BITS

8-10

TEST

THAT

;# IS READY TO BE LOADED,

TROY

-3z2masmzx:s

ssssddbdsrbbabdbbddddbbbdtsdss

SET

WHEN

LINE

AND THAT THE LINE SPECI-

DZCSR

CORRESPOND

;% TO THE LINE SELECTED IN DZTCR
;:«
015250
015252

000020

001122

T5720:
:

015260
015266
015270
015274
015300
015304
015310
015314
015316
015322
015326
015330
015334
015336
015340
015342
015344

015346

012737
104413
013700
012705
005037
012702
130237
001420
050277

052710
005004

032710
001004
104414
005204
001372

104003
011004

015374

002042
100040
001372
000001
001364

001360

1s:

164534
000040

2%:

100000

3s:

-$XZ-3sz33332333853333332s38sams2s

TEST 20

bttt tdhnhn

000004
012737

;

il L

SCOPE
MOV

END

920, $TSTNM

MACR)

R LTIy
TIYTY

iLOAD THE NUMBER OF THIS TEST

s=zaz22a2xz32:xzx3322332

MOV
#TST21,NEXT
DEVICE.CLR
MOV
DZCSR,
RO
MoV
#MSENAB!
TRDY ,RS
CLR
SAVLIN
MOV
#1,R2
BITB
R2,LINE
BEQ
5¢
BIS
R2,8DZTCR
BIS
#MSENAB, (RO)
CLR
R4
BIT
4TRDY, (RO)
BNE
4%
DELAY
INC
R4

BNE
ERROR
MOV

3
3
(RO).R4

;POINT TO THE START OF THE NEXT TEST
;ISSUE A "DEVICE CLEAR” (RESET)
;SET POINTER
;:START THE EXPECTED LINE NUMBER AT 0O
;SET UP FOR ERROR PRINTOUTS
sUSING R2 AS A BIT POINTER, POINT TO LINE O
:IS THIS LINE SELECTED?
;IF NO, SKIP THE STARTUP
:SET THE GO BIT FOR THIS LINE
;START THE SCANNER
;SET FOR DELAY

;TX READY?

;sBR IF YES
;DELAY
; COUNTER

;BR IF

;#TX

NOT

READY!

;GET THE LINE POINTED TO BY THE SCANNER

[
Qo 7TM~ PN NN
NN N ”~
)
e pa et o s s e [Ty
[+ R Nt ot ol e Nad N Nt b S

CZ0ZA-10
CZDZAI.P11
015350
015352
015354
015356
015362
015364
015370
015372
015374

MACY11

30A(1052)

02-JUL -85 16:17
020405
001401
104002
062705
104413
005237
106302
103346

CMP

"t Nt ot

alalalale)

®
®»
@ PN TN IO TN NN PN PN PN PN PN ~
- o e o et et Pt s pa s ) D N W
O w Nl Nl Nl Nl N Nod Nl o N NS NS ~ O

8841
8842
8843

8844
8845
8846
8847
8848
8849
8850
8851
8852
8853

R4 ,RS

BEQ
000400

6$:
--

END

MACR)

THE LINE NUMBER WHAT

IT SHOULD BE?

;IF YES,GO WORK ON THE NEXT LINE

; *LINE NUMBER DID NOT MATCH TCR BIT

ADD
#400,R5
DEVICE.CLR
INC
SAVLIN
ASL3
R2
BCC
1s

001372

:IS

ERROR

S%:

;POINT TO THE NEXT EXPECTED LINE
;ISSUE A "DEVICE CLEAR” (RESET)
;ADJUST FOR NEXT LINE
;POINT TO THE NEXT LINE.ARE ALL LINES TESTED?
;IF NOT, GO DO THE NEXT LINE

=zzsszz2szz2zsxazass2
:

(2)
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838

(1)

SEQ 76

02-JUL -85
16:19
PAGE 83-57
CZDZA DZ11 DEVICE DIAGNOSTICS.

(hhbbbsbdbbbbhbibbrbtatsst

-sz-sa:::aa:::sa:::-:t:ata:aa-a:t

TEST

sssdddddsbsdstsdsbnsdbdbdbstngs

;#TEST TO TRANSMIT ONE CHAR AND
;#RECEIVE ONE CHAR ON ONE LINE

:#AT A TIME.

THE CHAR

“252”

AND

;#ALL SELECTED LINES WILL BE TURNED ON
;#ONE AT A TIME. THIS IS THE FIRST TIME ANY
;#DATA IS CHECKED IN THE RECEIVER.
i#USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP
;#WHICH TRANSMITS A STEADY STREAM OF CHARACTERS.
;:¢
015374
015376

000004
012737
012737
012737

TEST 21

3;““tt“t‘“tt‘t‘t‘ttttttt‘t‘tt“tttt‘

000021

001122

TST21:
:

15404
015412

-$4Xl-2szasasssussasasusssunssenans

015732
015710

t‘ttt“t‘t‘t““‘t‘t““‘

SCOPE
MOV

END

001360
001362

"ACRO

MOV
MOV

#21,$TSTNM

;:LOAD THE NUMBER OF THIS TEST

#TST22 ,NEXT
#16%,L0CK

;POINT TO THE START OF THE NEXT TEST
;USE THIS ACORESS IF A TIGHT SCOPE LOOP IS SELECTED

S2ZZEZTTITZTTTXISTTIIZTTTS

;sLINEUp-IIIIIItII’I’IIlIlllItI...’ll”l’.

015420

104417
:

015422
015426
015432
015436

015440
015444
015446
015450
015452

013701
012702
030237
001402
010177
005201
106302
103370
005037
012702
052777
030237
001462
010277
032777
001401
104020
005005
032777
001004
104414
105205
001371

END

001366

000001
001364

1s:

164406
2%:

000001

000040
001364

HACRO

END

CLR

SAVLIN

164354
000200

164332

4s:

100000

104316

5¢:
6$:

"ACRO

MOV

164352

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

PAR,R1
#1,.R2
R2.LINE
2
R1,8DZLPR
R1
R2

8IS
BIT
BEQ
MOV
81T
BEQ
ERROR
CLR
BIT

BNE
DELAY
INCB
BNE

-snRESET-aa::a:suaa:-a:sl:::la:a:a:ls

ZI2IETTXTTITIZIITTIZTTITISS

MOV
MOV
BIT
BEQ
MOV
INC
ASLB

B8CC

001372
;

015456
015462
015470
015474
015476
015502
015510
015512
015514
015516
015524
015526
015530
015532

OCLASM

;:PICK UP PARAMETERS
;PICK UP INIT POINTER
; SHOULD THIS LINE BE SET uP ?
:NO
;SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
:GOT 'EM ALL ?

;IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE & INDICATOR

EESZ2ZIZTSTIRRAETSERRS

1,R2

#MSENAB,B8DZCSR
R2,LINE
14
R2,8DZTCR
®RDONE ,3D2CSR
Ss
20
RS
#TROY,8DZCSR

RS
6

;LINE POINTER

;START SCANNER
;VALID LINE ?
:NO SET UP NEXT LINE

:SET TCR BIT
+IS REC DONE = 0 ?
;IF YES, ALLOW TIME FOR TRDY TO SET
;4REC DONE SHOULD = 0

CZ0ZA-10
CZDZAI.P11

b Pt pn Pt

Nt Nl Nl St N
Nl ok N

Pt et et et Pt
[ o

~ Nt

~ NN
NN PN NN

8854
8855
8856
8857
(1)

8858
8859
8860
8861
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886

3887
8888
8389
8890
8891
8892
8893
8894
8395
8896
(2)

MACY11 30A(1052)
02-JUL-85 16:17

015534
015536
015544

104003
112777
013705

015550
015554

105737
001406

000252
001372

SEQ 77

02-JWL -85
16:19
PAGE 83-58
CZDZA DZ11 DEVICE DIAGNOSTICS.

164322

7%:

001371

Move
MoV

ERROR

3
9252 ,80ZT0R
SAVLIN,RS

;¢TROY FAILED TO SET!
.LOAD CHARACTER
:MAKE EXPECTED LINE ¢

TST8
BEQ

MODE 1
10

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

-$STAG-sszsszszsssszssssssnsssssnsanssssaznss

;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
015556
015560
015562
015564
015566
015570
015572
015574
015600
015604
015606
015614
015616
015620
015622
015624
015626
015632
015634
015636
015640
015642
015646
015652
015656
015660
015662
015664
015666
015670
015672
015674
015702
015704
015706

006205
103402
000261
000401
000241
006105

000305
152705
052705
005003
032777
001004
104414
005203
001374
104004
017704
020405
001401
104006
104401
040277
005237
013700
006300
106302
103302
005003
104414
105203
001375
032777
001401
104020
104400

ASR

8s:
9$:
;

10¢:

000252
100000
000200

164226

164214

11s:

12¢:

13s:

164210
001372
001372

14¢:

15¢:

8CS
SEC
BR
CLC

8%
9

ROL
END

RS
HACRO

SWAB
81S8
8IS
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
MOV

CHP

BEQ
ERROR
SCOP1
8IC
INC
MOV

000200

164140

18s:

032777
001774
112777
104401
000744

100000

164124

000252

164140

16¢%:

INTO THE CARRY BIT

;GET THE NEW BIT BACK

EEEZIZTZEZISZITESISSTISESSS

RS
#252.RS
#OVALID,RS
R3
QRDONE ,80DZCSR
124

R3
11
4
80 RBUF ,R4

R4 ,RS5

13
¢

R2,8DZTCR
SAVLIN
SAVLIN,RO

INTQ RS

;MOVE THE LINE NUMBER TO THE UPPER BYTE
;ADD CHARACTER
:ADD DATA VALID

;#RDONE FAILED TO SET!
;:LOAD THE VALUE ACTUALLY RECEIVED

;COMPARE ACTUAL VS EXPECTFD.

ARE THEY THE SAME?

:IF YES, GO DO THE NEXT LINE
;#*NO DATA/CONTENTS DID NOT COMPARE
;CHECK TO SEE IF SWITCH NINE IS SET
;CLEAR TCR BIT FOR THAT LINE.
;INC EXPECTED LINE
;:SET UP CHARACTER GFFSET

RO
Re

:MAKE THE OFFSET A POWER OF TwO
;SHIFT THE LINE POINTER. ARE WE ALL DONE?

CLR
DELAY
INCB
BNE
BIT
8EQ

: THIS CODE HAS BEEN INSERTED
;70 DETECT A PROBLEM FOUND IN FAULT
;INSERTION. IF AN ERROR OCCURS MORE
: THAN ONE WORD WAS RECIEVED ON
;LINE 7.

R3
174
ORDONE ,8DZCSR
184

ERROR
20
AOVANCE

;IF NO, GO AROUND AGAIN FOR NEXT LINE

;GO TO NEXT TEST

; TIGHT SCOPE LOOP FOR THIS TEST.
015710
015716
015720
015726
015730

THE LAST B8IT

ASL
ASLB

8CcC

17%:

;GET

:IF IT IS SET, GO CLEAR IT
:IF IT IS CLEAR SET IT HERE
;SKIP THE CLEARING
;:CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)

BIT
BEQ
HMOve
SCoP1
BR

@TROY,8DZCSR
16¢
9252 ,80ZTDR

LOOP TRANSMITS CHARACTERS ONLY
;IS TRANSMITTER READY?
;IF NOT, WAIT FOR IT
;. 0AD THE CHARACTER

;LOOP AGIN IF SW09=1
;OTHERWISE,
;

188088804884 80488000848804

GO PICK UP THE TEST NORMALLY

-’xz-’."""ll..'."'.III-I’-".l

TEST

#468¢4400808880400400008080000

CZDZA-I0
CZDZAl P11
8897
8898
8899
8900
8901
8902
(5)
(4)

Nt ~

SEQ 78

02-JUL -85
16:19
PAGE 83-59
CZDZA DZ11 DEVICE DIAGNOSTICS.

;¢ THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS
;#CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE)
;#(ONE LINE AT A TIME
BASED UPON VALID LINES)
;#THIS

THE FIRST

TIME

THAT

ALL

DATA

CHECKED

-‘xz-----.-.....-.IIIIIIIIIIDIIIOO

TEST 22

1088888044848 8884888808888488848888808884808088880080008004884402

TST122:

015732
015734

000004
012737

000022

001122

015742
015750

012737
012737

016260
016064

001360
001362

015756

104417

015760
015764
015770
015774
C15776
016002
016004
016006
016010

013701
012702
030237
001402
010177
005201
106302
103370
005037

001366
000001
001364

016014

012700
005020
022700
001374
005000
013737
012702
052777
030237
001465
010277
032777
001401
104020
005005
032777
001004
104414
105205
001371
104003
116077
013705

001422

;

END

SCOPE
MOV

022,3TSTWM

;:LOAD THE NUMBER OF THIS TEST

MOV

#TST23 NEXT

;POINT

MOV

#44,L0CK

;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED

MACR)

s=s=ssszsssssaasssss

;

016020
016022
016026
016030
016032
016040
016044
016052
016056
016060
016064
016072
016074
016076
016100
016106
016110
016112
016114
016116
016120
016126
016132
016136

105737

001406

1%:

164050

2%:

001462

000001
000040

001364

163770

34:

163750

100000

163734

S$:
64:

001371

163740

7%:

THE NEXT

sssssssazsszssssassss

PAR,R1
#1,R2
R2.LINE
23
R1,8DZLPR

;PICK UP PARAMETERS
;PICK UP INIT POINTER
;SHOULD THIS LINE BE SET UP
:NO
;SET UP LINE PARAMETERS

ASLB

;GOT

SAVLIN

;CLEAR LINE & INDICATOR

CLR
0

"ACRO

TEST

-‘"RESET--sans-s.-c.as..s-ant---n--..

MOV
MOV
BIT
8EQ
MOV

INC

END

START

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

MACRO

;POSITION POINTER TO THE NEXT LINE
'EM ALL

;IF NQ, GO SET UP THE NEXT LINE

S SESESSEESSSSSSSSSS

MOV
CLR
o[
BNE

#700,RO
(RO)#STOP,RO
.-6

;POINT TO THE DATA AREA
;CLEAR A DATA WORD
;FINISHED ?
:NO

MOV
8IS
BIT
BEQ
MOV
81T
BEQ
ERROR
CLR
817
BNE
DELAY
INCB
BNE
ERROR
MOVB
MOV

#1,R2
MSENAB,BDZCSR
R2.LINE
144
R2,8DZTCR
#ROONE ,3DZCSR
54
20
RS
#TROY,8D2CSR
74

;LINE POINTER
;START SCANNER
;VALID LINE ?
;NO SET UP NEXT LINE
;SET TCR BIT
;IS REC DONE = 0 ?
;IF YES, ALLOW TIME FOR TRDY TO SET
;#REC DONE SHOUWLD = O

CLR
MOV

001400

163772
000200

001422
001372

8ccC

001372

002046

END

OCLASHM

TO THE

;’LINEUP-..Ill..l..ll.lll'.ll.l'..lll.ll.l

o PN) D n
o

Nl N

o
! Nl Nt St
Nt S

Pt futt st s P

NN INONPNNNPN
PN N ~

(2)
(2)
(2)
(1)
8903

MACY11 30A(1052)
02-JUL-85 16:17

1518
BEQ

RO
DZRBUF ,REGIST

RS
64

TDOCRO),80ZTDR
SAVLIN,RS

MODE +1
10

;CLEAR OFFSET
;:SAVE FOR ERRQR MSG

;#TROY FAILED TO SET!

;LOAD CHARACTER
:HAKETEéPECTED LINE ¢
3

-‘

EE EEEEEEESEREENRENERREEREERERRERRRERE R

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

sWE MUST NOW INVERT THE LAST B8IT OF THE LINE NUMBER
016140

006205

ASR

;GET

THE LAST BIT INTO THE CARRY BIT

N J

ot ot
it

1
1
1
1
1

PN NN
N

C2DZA-TI0
C2D2AI.P1L

(1)
8928

8929
8930
8931
8952
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
894~
8948
8949
8950
3951
8952
8953
9954
(2
8955
3956
8957
8958
8959
8960
8961
(s
(4)
(2
(2)
(2)
8962
6963
8964
8965
8966
89¢7
8968
8969
8970
8971

016142
016144
Cl6146
016130
016152

016154
016156
016162
016166
016170

16176
016200
016232

016204

016206
016210
016214
16216
016220
016222
016224
016230
016232
016236
016242
016246
016250
016252
016254

MACY11

02-JW -85

30A(1052)

16:17

B8CS

103402

000261
000401
000241
006105

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

END

10$:

001422

163632

11¢:

12¢:

163620

SWAB

:MOVE THE LINE NUMBER TO THE UPPER BYTE

BIS
CLR
BIT
BNE
DELAY
INC
BNE

#OVALID,RS
R3
®RDONE ,80ZCSR
124

;ADD DATA VALID

ZESESESSASENISSITUEENS

TDO(RO),RS

THE NEW BIT BACK INTO RS

;ADD CHARACTER

R3
118

ERROR
MOV

4
9D ZRBUF R4

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

BEQ
ERROR

13
6

:IF YES, GO DO THE NEXT LINE
;#NO DATA/CONTENTS DID NOT COMPARE

INCB
BNE
81C
INC
MOV

TDO(RO)
4%
R2,9DZTCR
SAVLIN
SAVLIN,RO

ASL
ASLB

RO
R2

s INCREMENT BINARY PATTERN FOR THIS LINE
;GO 'ROUND AGAIN FOR NEXT CHARACTER
;:CLEAR TCR BIT FOR THAT LINE.
:INC EXPECTED LINE
:SET UP CHARACTER OQFFSET

:MAKE THE OFFSET A POMWER OF TWO
;SHIFT THE LINE POINTER. ARE WE ALL DONE?

CLR

LOCK

sMAKE SURE LOCK IS CLEAR FOR NEXT TEST

8CcC

001362

;IF IT IS CLEAR SET IT HERE
:SKIP THE CLEARING
;CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)

:GET

HACRO

SCOP1L

14
1Ss:

001372
001372

sIF IT IS SET, GO CLEAR IT

CHp

13s:

001422

ROL

B81S8

100000
163644

SEC
BR
CLC

8s:
9.

000200

SEQ 79

02 JW 85
16:19
PAGE 83-60
CZDZA DZ11 DEVICE DIAGNOSTICS.

R4 ,RS5

;COMPARE ACTUAL VS EXPECTED.

ARE THEY THE SAME?

;CHECK TO SEE IF SWITCH NINE IS SET

;IF NO, GO AROUND AGAIN FOR NEXT LINE

;0085080080800 08040040408

-’xz-afll88883’8383!!3’33!!883883!2

TEST

ssststbthsbdbbsbbbtbdtbbdsdddd

:#THIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN
;#BE DISABLED BY SETTING THE RCVON BIT TO ZEROQ
:#FOR EACH LINE IN THE LPR REGISTER.
1IT ALSO
;4VERIFIES THAT MASTER CLEAR WILL ZERO DVALID FOR
;«CHARACTERS STORED IN THE SILO.

-sxz-al::::ssa:xz:s:::::::::z::s::

;:4¢

TEST 23

3024888088804 0044088484004408504835048000880080404000d000dktds

016260
016262
016270
016276
016302
016306
016310
016314

0156320
015324
016330
c163ze
016334

000004
012737

012737
105037
005037
104417
013701
042701
012702
010177
005201
106302
103373

TST2%:

000023

001122
;

0le612
001320
001372
001366
010000
000001
163522

001360

END

SCOPE
MOV
O

MACRD

MOV

CLRB
CLR
DCLASM

MOV

1$:

2s:

B8IC

MOV

INC
ASLB
BCC

#23,8TSTNM

;LOAD

=s3sx3azzzxazszzzzz2z

ATST24 ,NEXT

DONFLG
SAVLIN

;POINT

THE NUMBER QF
TO

THE

START

THIS
QF

:STORE DEFAULT

#1,R2

;INIT LINE POINTER

R1
Re
2$

;SET R1 FOR NEXT LINE
;SHIFT R2 TO NEXT LINE
;ALL LINES LOADED?

R1,.9DZLPR

THE NEXT

;INITIALIZE FOR FIRST TEST LOOP
;ZERQ LINE NOQ. FOR ERROR PEPORT
:EXECUTE MASTER CLEAR

PAR,R1

SRCVON,R1

TEST
TEST

PARAMETERS

;:CLEAR RCVON BIT

;LOAD LINE PARAMETER REGISTER

CZ0ZA-10
CZDZAI P11
8072
8973
8974

8975
8976
8977
8978
8079
8980
8981
8982
8983
8984
8985
8986

8987
8988
8989
8990
8991
8992
8993
8994
8995
3996
8997
8998
8999
9000
9001
9002
90G3
9004

92005

9006
9007
9008
9009
9010
9C11
9012
9013
9014
9015

9016

9017

90138

9019
9020
9021
9022
9022
9024
9C25

9026
9027

016336
016342
016346
016352
016360
016362
016366
016370
016372
016374
016376
016400
016404
016410
016414
016416
016420
016422
016424
016426
016430
016434
016436
016442
016444
016446
016452
016454
016456
016462
016464
016466
016470

016472

016476
016500
016504
016506
016512
016514
016516
016522
016526
016530
015532
016526
016542
016544
016546
016550
016552
01£554
016556
016560
016562
016566

MACY1l 30A(1052)
02-JUL -85 16:17

012701
013702
010277
052777
005005
005777
100404
104414
005205
001372
104003
117705
012703
042705
001403
106303
005305
001375
030302
001007
140377
001351
105737
001040
000404
11177
040302
000741
005077
005005
104414
005205
001375

105777

100003
005037
104020
017704
100007
000304
042704
010437
104017
000766
105237
013701
000666
005005
104414
005205
001375
104413
000240
000240
105777
100003

16:19
PAGE 83-61
CZDZA DZ11 DEVICE DIAGNOSTICS.

000252
001364

163504

000040

163454

163440
000001

163462

MJV
MoV
MOV

3s:
43

Ss$:

17777

20s$:

2ls:

163422

163414

6$:

163374

7s:

as:

162744
001372

10s:

11s:

123:
13s:

163254

CLR

157
BMI
DELAY
INC
BNE
ERROR
MOVB
MOV

BIC
BEQ

ASLB
DEC
BNE
BIT
BNE
BICB
BNE

BNE
BR
MovB
8IC
BR
CLR
CLR
DELAY
INC
BNE
TSTB
BPL
CLR
ERROR
MoV

8PL
SWAB
BIC
MoV

177770
001372

001420
001366

8IS

TS7T8

001420

163334

SEQ 80

02-Ju 85

9252 ,R1
LINE,R2
R2,8DZTCR
OMSENAB, 8DZCSR

90ZCSR
5%
RS
43
3
aHDZCSR,RS
Q1,R3

§tC<7>,RS
21s
R3
RS
20
R3,R2
6%
R3,8DZ7CR
3

DONFLG

124
78
R1,3DZTDR
R3,R2

3
J0ZTCR
RS
RS
83
@0 ZCSR
108
SAVLIN
20

IDZRBU
, R4
F

11%
R4
&tC<7>
P4
R4 ,SAVLIN

ERROR
BR
INCB
MoV
BR

17
10¢
DONFLG
PAR,R1
1s

CLR
DELARY

INC
R5
BNE
13
DEVICE.CLR
NOP
NOP
TST8
80ZCSR
BPL
14

sLOAD TRANSMITTING CHARACTER

;COPY ACTIVE LINE BITS

;LOAD TCR BITS
:SET SCANNER
sINIT DELAY COUNTER

sTROY

:IF

SET?

YES BRANCH

;IF NOT THEN WAIT
s INCREMENT DELAY COUNTER
;DELAY DONE?
:IF YES TRDY FAILED TO SET
;MOVE LINE NO. INTO RS
;INIT TCR POINTER
s ISOLATE LINE NO.
:IF LINE 0 GO TEST TRANSM. FLAG
;POINT R3 TO NEXT TCR BIT
; DECREMENT RS UNTIL R3 POINTS
;7O CORRECT TCR BIT
:HAS THIS LINE BEEN SERVICED?
:IF NOT GO SEND CHARACTER
:IF YES CLEAR TCR BIT
: IF MORE LINES SET BRANCH
;IF ALL LOADED IS THIS SECOND PASS
:IF YES BRANCH TO SECOND PART OF TEST
;OTHERWISE 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
; INCREMENT DELAY COUNTER
:IF NOT FINISHED CONTINUE WAITING
:RDONE BIT SET?
s IF NO CONTINUE

:IF YES SET LINE NO.

TO ZERO

;AND PRINT ERROR
;READ SILO
:IF DVALID IS ZERO BRANCH
;IF SET THEN
;ISOLATE LINE NO. IN R4
:SET SAVLIN FOR ERROR REPORT
:DATA VALID SHOULD NOT BE SET
;GO READ SILO AGAIN

;PREPARE FOR

SECOND PART

TEST

:MOVE DEFAULT PARAMETERS T0 R1
;GO LOAD LPR REGISTER
:INIT DELAY COUNTER
;WAIT FOR LAST CHARACTER
;7O BE RECEIVED
;DELAY FINISHED?
;IF YES EXECUTE MASTER CLEAR

;RDONE SET?
;IF NOT BRANCH

C20ZA-10
CZDZAI P11
9028
9029
9030
9031
9032
9033
9034
9035
9036
(2
9037
9038
9039

016570
016574
016576
016602
016604
016610
016612

MACY11 30A(1052)
02-JUL -85 16:17

0CS037
104020
017704
100003
005037
104017

001372

CLR

163244

9046
9047
9048
9049

(1)
(1)

9050
9051
9052
9053
9054
9055
9056
9057
9058
9C59
9060
9061
9062
9063
9064
9065

001372
15s:

;PEPORT
;READ SILO
;DATA VALID SET?
;:IF YES THEN PRINT 0QuT
;ERROR REPORT

;0084000840040 00840440884

-’XZ-:--::::::la::s:::::::t:z:::::

TEST

sttt sstsstbbsdttdbtbdssdsstbss

;#THIS TEST WILL PROVE THAT:
;¢ 1) THE TRANSMITTER 'BREAK BIT" WORKS
;¢ 2) THE RECEIVER CAN FLAG "FRAMING ERRORS"”
;¢ 3) THE RECEIVER CAN FLAG "PARITY ERRORS”
;#0ONLY ONE LINE AT A TIME WILL BE EXERCISED.
;#THIS TEST WILL NOT BE
EXERCISED UNLESS
;#CONNECTED BY AN H32S, H3271, OR H3190 CONNECTOR
:

-sxz-:::::::::s:a:a:::ss:::::z:xx:

TEST 24

13]

128 8 3404080 0040044808008840484030800040845400000000bdtbtkbbbbdntd

016612
016614

000004
012737

TST24:
000024

016622
016630
016636
016642

012737
012737
005737
001510

016644

104417

016646
016652
016656
016662
016€66
016670
016674
016676
016700
016702
016706
016712
016720
016726
015732
016734
016740
016744
016752

016756
016762

017070
016726
001370

163116
163124
000377
001372

105737

001371

001406

001366
000300
000001
001364

MOV
MoV
ST
BEQ

END

1¢:

2%:

MACRO

MOV
BIT
BEQ
MoV
INC
ASLB
8CC

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

PAR,R1
;PICK UP PARAMETERS
Q0DDPAR!PARITY,R1 ;FORCE ODD PARITY

¢1,R0

MoV

TST8
BEQ

MODE
1
78

BIS

BIT
BEQ
MOV
MovB
HMOVB

$MRESET-zzxz3=z3z2zxazxz2zz33z2x3223z33223223

=zx=z3zxs2z233zz2222%

RO,LINE
2
R1,3DZLPR
R1
RO
13
SAVLIN
¢1,R2
OMSENAB, aDZCSR
DZRBUF ,REGIST
R2,LINE
11
R2,3DZTCR
R2,3HDZTDR
#377,90ZT0R
SAVLIN,RS

MOV

DCLASM

CLR

3s:

;POINT TO THE START OF THE NEXT TEST
;SET FOR LOOP
;ARE WE RUNNING IN INTERNAL MOMC?
;IF SO, SKIP THIS TEST

12¢

MOV

163122
001400

;LOAD THE NJMBER OF THIS TEST

zz=szzszszzzxzx22z22:23

QTST2S NEXT
43%,L0CK
MODE

8IS

163114

224, $TSTNM

MACR)

MOV

163156

001372
000001
000040
002046
001364

END

001360
001362

013701
052701
012700
030037
001402
010177
005201
106300
103370
005037
012702
052777
013737
030237
001446
010277
110277
112777
013705

SCOPE
MOV

001122

;PICK UP INIT POINTER
:SHOULD THIS LINE BE SET UP ?
:IF NOT,DON'T SET IT UP
;OTHERWISE, SET UP LINE PARAMETERS

;GOT

;NO

'EM ALL

;CLEAR LINE ¢
;LINE POINTER
;SET MASTER SCAN ENABLE
;SAVE FOR ERRR MESSAGE

:SET TCR BIT
;SET BREAK BIT
;:LOAD CHARACTER

:MAKE EXPECTED DATA

-$STAG-=22zxz3z223z3z23x32x3332233=82323333

:IS THIS TEST IN STAGGERED MODE?
:IF NOT, SKIP STAGGERED SETUP

Nt N

;IF YES THEN PRINT OUT

20
8D ZRBUF R4
15
SAVLIN
17

;WE MUST

NOW INVERT

THE LAST BIT

THE LINE NUMBER

N
N

NN
NN
TN
PN

[
Y

9066
9067
9068
9069

SAVLIN

ERROR
MOV
8PL
CLR
ERROR

14¢:

9040
9041
9042
9043
9044
9045

(5)
(3)
(2)
(2
(2)

SEQ 81

02-JW. -85
16:19
PAGE 83-62
CZ0ZA DZ11 DEVICE DIAGNOSTICS.

016764

006205

ASR

;:GET THE LAST BIT INTO THE CARRY BIT

R
A

Pt pt ptt )t Pt

A
A

PN
PN N

CZDZA-I10
CZ02A1.P11

02-JUL

103402
000261
000401
000241
006105

017026
017030
017034
017036
017040
017042
017046
017050
017054
017060
017062
017064

000305
052705
005004
032777
001004
104414
005204
001371
104004
017704
020405
001401
104006
105077
104401
005237
040277
106302
103321
005037

6s:

END

163024

163012

8s:

9s.

10¢:

001372
162776

11¢:

001362

;GET

SWAB

#DVALID'!'PARER!FRMERR,RS
R4
#RDONE ,30ZCSR
9s
R4
8s
4

;«RDONE FAILED TO SET!

MOV

aDZRBUF ,R4

sACTUAL

:PUT

Nl N ~

= 2 pa e (N n

INTO RS

LINE NUMBER

IN UPPER BYTE

;ADD EXPECTED

cMpP

R4 .,RS

;CMP ACTUAL VS EXPECTED. vu 1HeY MATCH?

ERROR

CLRB
SCOP1
INC
8IC
ASLB

SHDZTDR

;#*DATA/CONTENTS FAILED

CLR

LOCK

10¢

+IF YES,

GO CLEAN UP

;:CLEAR BREAK BITS
:LO0P?
:INC LINE #
;CLEAR TCR BIT

SAVLIN

R2.8DZTCR

TO COMPARE

;MAKE SURE LOCK IS CLEAR FOR NEXT
:

TEST

-’LgLTST-:a::s:sxs:::s:s::a::a::::aa:

-$4X/-z33333s332xTZIZTITITRTTITTRTTRS

;hhbkbs bbb datbtbhabsnsdibs

TEST

sssssdsdsssbbsdddbbbbdsbdhidss

Nl N

;# THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT
;#WHILE THE PROCESSOR STATUS IS SET EXACTLY
;%70 WHAT THE DZ11 PRIORITY IS SET TO.

5 (240).
-’xz

;#DEFAULT PRIORITY IS AT
;:&¢

S
N
Sl N

THE NEW BIT BACK

ZI-EXTIZTITITTTITITIERS

BIS
CLR
BIT
BNE
DELAY
INC
BNE
ERROR

eccC

12¢:

;SKIP THE CLEARING
;CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)

RS
HACRO

8EQ

163022

;IF IT IS SET, GO CLEAR IT
:IF IT IS CLEAR SET IT HERE

ROL

130000
000200

B8R
CLC

S5$:
:

017000
017002
017006
017010
017016
017020
017022
017024

SEQ 82

85
16:19
PAGE 83-63
CZDZA DZ11 DEVICE DIAGNOSTICS,

8CS
SEC

NN LT ON

Ml N
N

"l N

Nt N

Nl N

Nt N

- LV ILACE VR VNV O PO PO N

NN
N alolalale) ANANANANANN
NN AN SN
NN NN NS
~

9071
9072
9073
9074
9075
9076
9077
9078
9079
9080
9081
9082
9083
9034
9085
9086
9087
9088
9089
9090

016766
016770
016772
016774
016776

MACY11 30A(1052)
02-JUL -85 16:17

017070
017072
017100

000004
012737

000025

001122

017400

TST25:

END

001360

PRy

PP N

P YR P

YN YRR

SRS

ISTYITILS

SCOPE
MOV

012737

Z2ZZEXTTETZTEITZTITIEEZIZTLIZTTIZIIIREITIT

TEST 25

#25,$TSTNM
MACRQ

MOV

;LOAD

THE NUMBER OF

s=2zzz2=z-z33z2x2=2zx3

#TST26 ,NEXT

:POINT

THIS TEST

70 THE START OF

THE NEXT

TEST

;‘LINEUP-:::a:az:::zx:s:x:a::::a:a::ss:::x
:

017106

104417
:

017110
017114
017120
017124
017126
017132
017134
017136
017140

013701
012702
030237
001402
010177
005201
106302
103370
005037

001366
000001
001364

106437
113777

END

162720
2%:

001372
030334
001364

162700

DCLASM
O

"ACRO

END

22222z2333x333333332233322332

:CLEAR DEVICE AND SET MAINT BIT IF I MODE

ZTZITTIX=TT=T=====333

MOV

PAR,R1

;PICK UP PARAMETERS

BIT
BEQ
MOV
INC
ASLB
BCC
CLR

R2,LINE
2%
R1,30ZLPR
R1
R2
1$
SAVLIN

;SHOULD THIS LINE BE SET UP ?
:NO
;SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?
:IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE # INDICATOR

MTPS

JEDZPRT

MOVB

LINE,9DZTCR

MOV

1s:

017144
017150

-S$MRESET

HACRO

#1.,R2

TETT

T ITSTZ-=TT

;PICK UP INIT POINTER

ST T

;SET

CPU STATUS

;ENABLE

T0 DZ11

THE VALID LINES

PRIO,

CZDZA-I10
CZDZAI.P11

~r~
PN NN
NN NN NN NN PN PN PN PN e lalaYe)
LS IVE,V) b b Pl o ot et ot 8 B 8 b ph pes e et s s o
~
UVUVVUVVUVVVUV\J\IUVVV

(1)
(2)

GITO O 2 PO N

o =t 1t o (b =0 =0 | ot b Pt 2

o b o bt oa [aalAS
NAV ] A V)

VV.“VV\JVVV\JV\J\JVV\JVV\J\J\JVV (W)

O
flf\of\f\f\/\fl’\flfifif\f\flflf\fiflf\f\’\f\ A

(2)

MACY11 30A(1052)
02-JUWL -85 16:17

02-JUL-85

SEQ 83

PAGE 83-64

CZDZA DZ11 DEVICE DIAGNOSTICS.

017156

3s:
;

017156
017164
017172
017200
017206

013777
052777

017214
017216
017224
017226
017230
017232
017234
017236
017240
017242
017244
017246
017250
017252
017254
017256
017260

005005
032777
001403
000240
000240
000412
104414
005205
001366
104003
000405
104010
022626
000402
104012
022626
042777

040000

162554

017266
017274
017302
017310
017316

012777
012777
013777
013777
052777

017364
017372
030334
030334
000140

162602
162570
162564
162562
162516

012777

012777
013777

017246
017254
030334
030334
040040

162712
162700
162674
162672
162626

MOV
MOV
MOV
MOV
8IS
¢

100000

162616

END

MACRQ

CLR

Ss:

DELAY
INC
BNE
ERROR
BR
ERROR

RS
43
3
8s
10

B8R

#TROY,8DZCSR
S$

CcMP

78:

;#TRDY NOT SET!
;#TRANSMITTER SHOULD NOT INTERRUPT
;POP FOR FAKE RTI
;CONTINVE TEST
;#RECEIVER SHOULD NOT INTERRUPT
;POP FOR FAKE RTI
;RESET TRANSMITTER INTERRUPT ENABLE

(SP)+,(SP)+

ERROR

CMP

8s:

(SP)+,(SP)+

8IC

#TIE,8DZCSR

MOV
MOV
MOV
MOV

€114,802T1IV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
9124 ,9DZRIV
;:SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
OZPRT,aDZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
#RIE !MSENAB,aDZCSR ;ENABLE THE DEVICE

113777
005005
032777
001403
000240
000240
000412
104414
005205
001366
104004
000405
104010
022626
000402
104012
022626

104413

001422

000200

END

162500

BIS
0

HACRO

MOove

162534

CLR

9¢:

8I7

BEQ
NOP

NOP
BR
DELAY
INC
BNE
ERROR
BR
ERROR
CMP
BR
ERROR

10¢:

11s:

12¢:

cMP

13s:

EEEEEE
R R R ¥ I F I P
ERE
P g
E

szzz2zzzasx32zz2233s

BIT
BEQ
NOP
NOP

6$:

-SINTSET

96$,802T1IvV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
@73%,8DZRIV
:SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,aDZRIS
;:SET THE INTERRUPT VECTOR STATUS
DZPRT,80ZTIS
; SET TRANSMITTER INTERRUPT PRIORITY
4TIE!MSENAB,80DZCSR ;ENABLE THE DEVICE

017324
017332
017334
017342
017344
017346
017350
017352
017354
017356
017360
017362
017364
017366
017370
017372
017374
017376
017376

16:19

-$INTSET-z22z3ssx33s2xx3z2z2322333232322

EZXTTXIZIST=TT=SXT
T

TD0,3DZTDR

:PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER

#RDONE ,8DZCSR

10¢

RS
9s
4
13
10
(SP)+,(SP)+
13
12
(SP)+,(SP)«

DEVICE.CLR

;#NO RX DONE! (NOT SET)
;CONTINUE TEST

:#TRANSMITTER

SHOULD NOT

INTERRUPT

:POP FOR FAKE RTI
;CONT TEST
;#*RECEIVER SHOULD NOT INTERRUPT

;POP FOR FAKE RTI

; ISSUE DEVICE CLEAR (RESET)

END

MACRO

=z=zzzz_xzs=233237212

;

END

MACRO

=z==2=xzzz2zxs2z2=3zz2x332

:
;
shdddbhb
bbb hdbbbhsh
dhbd
a

~$LVLTST-z=2=s=zaxs322sssz2z2sz2zzaz22322
-$XZ-=3xzx3z333333333323333333axz23
TEST

bbb hhbbbdbbdbbdbhbddbbbbbdbdis

CZDZA-10
CZD2AI.P11
(1)
(1)
(1)
(1)
(2)
(3
(6)
(3)
(3)
(3)
(3)
(2
(3)
(3)
(3)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)

MACY11 30A(1052)
02-JUL -85 16:17

i# THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT
;sWHILE THE PROCESSOR STATUS IS SET TO EXACTLY
;#ONE LEVEL LOWER THAN THE DZ11. DZ11 PRIORITY
i#DEFAULT TO LEVEL 5 MINUS ONE LEVEL IS LEVEL 4.
:

;2%

017400
017402

000004
012737

000026

001122

012737

017726

«$4Xl-sszzzsszzasszsazsssssssazaszrazx

it“lt“tttttt‘lt‘ttt‘

SCOPE
MOV

END

001360

MACRQ

MOV

826, $TSTNM

;LOAD THE NUMBER OF

zzz2z2sz3zsssaz332322

#TST27,NEXT

;POINT

THIS TEST

TO THE START OF

THE NEXT

TEST

:SLINEUP-l:a:zs:::::::l:z:::a::::::

sna:as:

017416

;

104417
:

017420
017424
017430
017434
017436
017442
017444
017346
017450

013701
012702
030237
001402
010177
005201
106302

001366
000001
001364

DCLASM
END

"ACRO

MOV
MOV
817

1s:

MOV
INC
ASLB

2%:

(1)
(1)

017454
017460
017466

106437
113777

030336
001364

(2)
(2)

017466
017474
017502
017510
017516

012777
012777
013777
013777
052777

017524
017526
017534
017536
017540
017542
017544
017546
01755¢
017552
017554
017556
017560
017562
017570
017574
017576
017600
017602

005005
032777
001404
000240
000240
104007
000416
104414
005205
001365
104003
000411
022626
042777
106437
000402
104012
022626
042777

040000

162232

017610

012777

017710

162260

;

BCC
CLR
END

162370
34

"ACRO

162402
162370
162364
162362
162316

;PICK UP PARAMETERS
:PICK UP INIT POINTER
;iSHOULD THIS LINE BE SET UP ?
:NO
:SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
:GOT 'EM ALL ?
;IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE # INDICATOR

EEE2ZXRZEETTETTTSTIBRSN

MTPS
MOvB

ICLESS]
LINE,8DZTCR

MOV

#64%,80ZTIV

100000

162306

4s:

S$:

040000
030336

162252

MOV
MOV
MoV
8IS
END

MACR)

CLR
BIT
BEQ
NOP
NOP
ESROR

2zsz3sxszz2zx2zzz233223233322323

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

;MAKE CPU ONE LEVEL LOWER THAN DZ11
;ENABLE THE VALID LINES
:

017560
017576
030334
030334
040040

-SMRESET

ZEXZTTTITISTTTTIRZREX

PAR,R1
€1,R2
R2,LINE
28
R1,3DZLPR
R1
R2
13
SAVLIN

BEQ

162410

001372

(2
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(2)
(2)

TST26:
;

0:7410

TEST 26

H ;“ttt“tt"tttt"tttt‘t“t‘t““t‘tt‘tt‘t

103370
005037

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

SEQ 84

02-JUL -85
16:19
PAGE 83-65
CZDZA DZ11 DEVICE DIAGNOSTICS.

-$INTSET-2azss22zazs232222232332223322

;:SET UP THE TRANSMITTER INTERRUPT VECTOR

#7%,80ZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
:SET TRANSMITTER INTERRUPT PRIORITY
¢TIE!MSENAB,3DZCSR ;ENABLE THE DEVICE
==zzszsz23za33sxzx2=x32

RS
#TRDY,8DZCSR
S$

7
8s

; #TRANSMITTER FAILED TO INTERRUPT

DELAY
INC
BNE
ERROR
BR
POP2SP
8IC
MTPS
BR
ERROR

#TIE,3DZCSR
S8LESS]
8%
12

8s:

BIC

#TIE,8D0ZCSR

;RESET TRANSMITTER INTERRUPT ENABLE

MOV

#11¢,90ZTIV

;SET UP THE TRANSMITTER INTERRUPT

6$:

CcMP

RS
43
3
8s

(SP)+,(SP)+

:*TRDY NOT SET!
;:REMOVE THE INTERRUPT FROM THE STACK
;DON'T LET ANY MORE INTERRUPTS OCCUR
;MAKE CPU ONE LEVEL LOWER THAN DZ11
;RETURN TO THE NORMAL FLOW
;#RECEIVER SHOULD NOT INTERRUPT

;POP FOR FAKE RTI
:

-$INTSET

zzzzx=z===3z2c_=-2_.z232=2z~-3_=2=2

VECTOR

MACY11

30A(1052)

017616
017624
017632
017640

012777
013777
013777
052777

017716
030334
030334
000140

017646

113777
005005
032777
001404
000240
000240
104011
000413
104414
005205
001365
104004
000406
104010
022626
000403
022626
005077

001422

162212

000200

162156

PO R

PN TN TN TN

NN PN NN

o o o ot (ot ot e ot o0 (b b (ot Pt Pt b b pt s Pt

NN PN PN PN PN PN PN PN PN

CZDZA-10
CZD2ZAI.P11

017654
017656
017664
017666
017670
017672
0L7674
017676
017700
017702
017704
017706
017710
017712
017714
017716
017720
017724
017724

02-JUL-85 16:17

162246
162242
162240
162174

MOV

END

11$:

12%:
138

104413

(1)

DZPRT,80DZRIS

#12% ,80ZRIV

;SET UP THE RECEIVER INTERRUPT

MOV

OZPRT,8DZTIS

:SET

81S

ORIE !MSENAB,3DZCSR

HACRO

END
END

Nt N
Nt N

USSRV

9094
9095
9096
9097
9098
9099
9100
9101
9102

Nt N ~
Nt Naf Nl
Nt Nt Nt Nt Nl

e PO T n
s
s b
s s et
-

PN NN
NN TM ~

TRANSMITTER

INTERRUPT

PRIOQRITY

;ENABLE THE DEVICE

3XEREZZIITIETTITITIRE

T00,80ZTDR
RS
#RDONE ,80ZCSR
10¢

;PUT ANY RANDOM CHARACTER IN TRANSMITTER B UFFER

11
13

;#RECEIVER FAILED TO

INC
BNE
ERROR
BR
ERROR
cMP
BR
POP2SP
CLR

RS
9
4
13
10
(SP)+,(SP)«
13¢

aDZCSR

DEVICE.CLR

INTERRUPT

;#NO RX DONE'!' (NOT SET)
;CONTINUE TEST
s#TRANSMITTER SHOULD NQOT INTERRUPT
;POP FOR FAKE RTI
;:CONT TEST
;REMOVE THE INTERRUPT FROM THE STACK
;OON'T ALLOW ANY MORE INTERRUPTS

:ISSUE DEVICE CLEAR (RESET)

MACRO

==2xz2zz23zxzx=23z3232223

MACRQ

=2333zx3zz2zxz3223x32

(2)

VECTOR

;SET THE INTERRUPT VECTOR STATUS

MOVB
CLR
BIT
BEQ
NOP
NOP
ERROR
BR

DELAY

10s:

162116

MOV

9092
9093

9103

SEQ 85

02-JUL-85
16:19
PAGE 83 66
CZDZA DZ11 DEVICE DIAGNOSTICS.

-$X/-2sxz3z3z3z3zzsssEssszanszsEsnas

jebddbbbddabhsnksbinsbdis

TEST

;*#THIS

THE RECEIVER

TEST

VERIFIES

THAT

srsbssbssdsssdsbsdisddddtsssss

;«INTERRUPT BEFORE THE TRANSMITTER EVEN

WILL

;*THOUGH THE TRANSMITTER WAS ENABLED

;#FIRST.

SET PS TO LEVEL

;#GET RDONE AND TRDY TO SET;
;#SET TX IE AND RX IE;
;#CLEAR PS AND EXPECT RX TO INTERRUPT FIRST
:

;:4
000004
012737

017736

012737

TST27:

000027

001122
:

020360

zz2zz322333333222333S33uS22883

TEST 27

sidbkbbkbhbkbhb

017726
017730

~-$X7

END

001360

kbbb bbbk bbb kb b ki b

kb hkr bbb bbbk kkhrdbbhbbdbhkbbibsbhd

SCOPE
MOV

#27,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

#TST30,NEXT

;POINT

HACRO

ZoSxTZTT_.=ZTTITTTSTS=32

TO THE

START OF

THE NEXT TEST

;sLINEUP-:::::::s:x:saa:az::::slt::szz:a::

017744
017746
017752
017756
017762
017764
017770
017772
017774

104417
013701
012702
030237
001402
010177
005201
106302
103370

;

001366
000001
001364

162062

END

DCLASM
O

MACRQ

MOV
MOV
BIT
BEQ
MOV
INC
ASLB
8CC

$MRESET-sszzzaxzzz2zzs233x22332322222

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

===z3x3=zzzzz=z-zz2.2

PAR,R1
#1,R2
R2.LINE
23
R1,3DZLPR
RI
R2
1$

;PICK UP PARAMETERS
:PICK UP INIT POINTER
;SHOULD THIS LINE BE SET UP ?
:NO
:SET UP LINE PARAMETERS
:POSITION POINTER TO THE NEXT LINE
:GOT 'EM ALL ?
;IF NO, G SET UP THE NEXT LINE

CZDZA-I0
CZDZAI.P11

(1)
(1

9104
9105
9106
9107
9108
9109
9110
9111
9112
9113
9114
9115
9116

9117
9118
9119
9120
9121
9122
9123
9124
9125
9126
9127
9128
9129
9130
9131
9132
9133
9134
9135
9136
9137
9138
9139
9140
9141
9142
9143
9144
9145
9146

9147
91438
9149
9150
9151
9152
9153
9154
9155
9156
9157

017776

020002
020010
020016
020024
020032
020040
020044
020050
020052
020056
020060
020062
020066
020070
020072
020076
020102
020104
020106
020112
020114
020116
020120
020122
020126
020130
020132
020134
020136
020140
020144
020146
020154
020156
020160
020162
020164
020166
020172
020174

MACY11 30A(1052)
02-JUL -85 16:17

005037

001372

vi12777
013777
012777
013777
052777

020232
030334
020322
030334
000040

0T2702

030237
001004
005237
106302
000771
106427
000240
000240
110277
005777
100001

104017
105777

100001

104020
005005
005004
005777
100404
104414
005204
001372
104003
105077
005004
032777
001004
104414
005204
001371
104004
005777
100401
104003

END

CLR
O

MACR)

MOV
MOV
MOV
MOV
8IS
MOV

162062
162056
162052
162046
162002

001364

001372

BIT
BNE

INC
ASLB

000340

4%
;

161760
161744

5¢:

161730

161714

99%:

MTPS
NOP
NOP
MOvB
TST
BPL

ERROR
7STB
BPL
ERROR
CLR
CLR
TST
BMI
DELAY
INC
BNE
ERROR

161722

100$:
161666

161650

040000
000100
000000

020176
020204
020212
020216
020220
020222
020224

052777
052777

020226

000137

020326

020232

017704

161610

106427
000240
000240
104007
104011

000001

000200

SEQ 86

02-JUL-85
16:19
PAGE 83-67
CZDZA DZ11 DEVICE DIAGNOSTICS.

78:

CLRB
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
TST
BMI
ERROR

SAVLIN

:CLEAR LINE # INDICATOR

%8¢ ,8DZRIV

;SETUP INTERRUPT STUFF

==zaszxxxzxsza=zzz2xzx

DZPRT,80ZTIS

MMSENAB, 8DZCSR
@1,R2
R2,LINE
4
SAVLIN
R2
3
#PR7

R2,3DZTCR
8DZRBUF
.+4

17
8DZCSR
.+4
20
RS

;:LINE POINTER
;VALID LINE ?

;SET TCR BIT
;:VALID DATA?
:IT BETTER NOT BE SET
;DATA VALID SHOULD NOT BE SET
;RECEIVER DONE ?

;RECEIVER DONE BIT SHOULD NOT BE SET

R4
9DZCSR

100

R4
99
3
30ZTOR
R4
;RDONE.QDZCSR

;WAIT FOR TRDY
:BR IF READY
:STALL TIME

;TRDY FAILED TO SET

R4
63
4

;#RDONE FAILED TO SET!
; TRANS DONE BIT = 1 ?

aDZCSR
.+4
3

; YES

; *NO
TRANS DONE FAILED TO SET
:NOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1
:SET INTERRUPT ENABLES AND WATCH THE FUR FLY

161636
161630

8%:

BIS
BIS
MTPS
NOP
NOP
ERROR
ERROR

4TIE,9DZCSR
4RIE,8DZCSR
#0

JMP

;GET QUT

;#TRANSMITTER FAILED TO INTERRUPT
;#RECEIVER FAILED TO INTERRUPT
;CHECK BR LEVEL

;RECEIVER INTERRUPT ROUTINE
MoV
30DZRBUF ,R4

s ARCTUAL

CZDZA-I0
CZDZAI P11
9158
9159
9160
9161
NS

105737

001406

MOV
SWAB

9162
9163
9164
9165
9166
9167
9168
9169
9170
9171
9172
9173
9174
9175
9176
9177

9178

9179
9180
9181

81IC

177770

;STRIP JUNK

MODE +1

BEQ

sSTAG-xsta’8!888!!888!8"8:lttlalsll:atll

;IS THIS TEST IN STAGGERED MQDE?

114

;WE MUST NOW INVERT
020254
020256
020260
020262
020264
020266

006203
103402
000261
000401
000241
006103

9 :

;IF NOT,

SKIP STAGGERED SETUP

10s:
:

020270
020274
020276
020300
020304
020306

020310
020312
020316
020320

020337
001401
104015
042704
120504
001401

001372

040277
022626
000402

161540

104005

020322

104011

020324
020326
020334

022626
042777
013777
005077
013777
005077

020342

020346
020354

END

11¢:

161526

002100
161520

(S)
(4)

(2)
(2)
(2

9189

(2)
(2)

;GET

;IF IT IS SET, GO CLEAR IT
;IF IT IS CLEAR SET IT HERE

B8R

ROL

HACRO

CMPB

BEQ
ERROR
BIC
POP2SP
BR

161506
161530

THE LAST BIT INTO THE CARRY BIT

;:SKIP THE CLEARING
;:CLEAR

THE CARRY BIT

(INVERSION OF LINE PARITY)

;GET THE NEW BIT BACK INTO R3

ZZZTITZRTTRTTTTIZIISRR

R3,SAVLIN
.+4
15
#1C<377> ,R4

;IS THIS A VALID LINE
s YES
:#«INVALID LINE
;STRIP JUNK

.+4
)
R2,8DZTCR

:YES
:#DATA DOES NOT COMPARE
;CLEAR TCR BIT
;REMOVE HE INTERRUPT VECTOR FROM THE STACK
;GO GET OQUT OF INTERRUPT MODE

RS5.R4

;DATA COMPARE ?

; TRANSMITTER INTERRUPT SVC ROUTINE

12¢:

040100
002074

ASR

cMP
BEQ
ERROR
8IC

177400

THE LAST BIT OF THE LINE NUMBER

8CS
SEC
CLC

ERROR

POP25SP

13$:

8IC

161522

;:THE RECEIVER INTERRUPT FAILED

#TIE!'RIE,Q8DZCSR

:TO OVERRIDE THE TRANSMITTER
;REMOVE THE TINTERRUPT VECTOR FROM THE STACK
;CLEAR INTERRUPT ENABLES

MOV

DZRIS,aDZRIV

CLR

8DZRIS

MOV
CLR

(2)

e
N

#tC<7> ,R3

1ST8B

001371

DZTIS,aDZTIV
aDZTIS

;RESTORE

shbbshhbbddbhkhdbhbkbibdbid

9182
9183
9184
9185
9186
9187
9188

PN NN
N

R4 ,R3
R3

020246
020252

010403
000303
042703

SEQ 87

02-JUL-85
16:19
PAGE 83-68
CZ0ZA DZ11i DEVICE DIAGNOSTICS.

s Pt P
ot

Nl Nd NS N
N

0 Pt et
[ P

~ ot St

~ PN TNTNON
NN SN NN PN

(1)

020236
020240
020242

MACY11 30A(1052)
02-JUL -85 16:17

TRAPCATCHER

-’xz-a:88883338833:8:83!8:38:!8883

TEST

sbsbdssbndbbddddbddbddbbbsdsdsd

;#TEST TO VERIFY THAT 'RDONE DOES NOT SET
;#IF THE SCANNER IS DISABLED.
;#TURN ON SCANNER, WAIT FOR TRDY,
;:#TURN OFF SCANNER, TRANSMIT A CHARACTER
;& 'RDONE SHOULD NOT SET.
:

;:&

$XZ-s=233z3x32z23x=2xx283322 2333322

TEST 30

sihtbbhbddhdbbdtdbih
kb dbdh bbbk b bbb bh kb bhdh bbb nhbdbbbbbbbbnbitba

020360
020362

020370

000004
012737
012737

TS730:

000930

001122

020546

001360

;

END

SCOPE
MOV

#30, $TSTNM

MOV

#TST31,NEXT

MACRO

Z3IIITI=ISTTL==T2

;LOAD THE NUMBER OF

;POINT TO THE START OF
;sLINEUP
:

020376
020400
020404
020410

104417
013701
012702
030237

001366
000001
001364

1s:

END

OCLASM
O

MOV
MOV
BIT

MACRO

THIS TEST
THE NEXT TEST

Z23IIZ_TITTIIIISTZIITIISZIXATTIZTLITERT

$MRESET -323=3s233233xx33x33333338333

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

=x==z=zz=zz=zzz3xz=za=xx

PAR,R1
#1,R2
R2 ,LINE

;PICK UP PARAMETERS
;PICK UP INIT POINTER
:SHOULD THIS LINE BE SET uUP

CZDZA-I0
CZDZAI.P 11
020414
020416
020422
020424
020426
020430

9195
9196

9200
9201

9204
9205
9206

9209
9210

9214

020434
020442
020446
020452
020454
020460
020462
020464
020470
020472
020476
020500
020502
020504
020506
020510
020516
020522

020524

020526
020530
020532

020540
020542
020544

MACY11 30A(1052)
02-JUWL 85 16:17
001402
010177
005201
106302
103370
005037
052777
012702
030237
001004
005237
106302
000771
110277
005005
005777
100404
104414
005205
001372
104003
042777
105077
005005
104414
005205
001375
0327717
001401
104020
104400

161430

BEQ
MOV
INC
ASLB
8CC
CLR

2%:

001372
000040
000001
001364

END

161400
3s:

001372

RS
8DZCSR
64

161344

CLR
TST
8MI

161344

DELAY
INC
BNE
ERROR
BIC
CLRB
CLR

7%:

000200

DELAY
INC
BNE

161302

BIT
BEQ
ERROR
ADVANCE

8s:

ZEEZZITIITTITIZITIITILATIRR

#MSENAB,80ZCSR
1,
R2
R2,
LINE
4%
SAVLIN
R2
34

Move

6s:

;NO
;SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?
:IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE & INDICATOR

8IS
MOV
BIT
BNE
INC
ASLB
BR

4% :

161324

2
R1,80ZLPR
R1
R2
1$
SAVLIN

HACRO

161366

000040

SEQ 88

02-JUL-85
16:19
PAGE 83 69
CZDZA DZ11 DEVICE DIAGNOSTICS.

R2,

dDZTCR

;SET TCR BIT
:IS TRODY SET
;CON'T TESTING IF IT IS
:IF IT NOT WAIT A WHILE

RS
S$
3
AMSENAB,
8DZTDR

8DZCSR

RS
74
#ROONE,
8
20

; TURN ON SCANNER
;INIT LINE COUNTER
;FIND A VALID LINE
;:IF WE FOUND ONE GO TO TEST
;IF NOT
;KEEP LOOKING

:WE WAITED LONG ENOUGH-ERROR
;TURN OFF SCANNER
; TRANSMIT A CHARACTER

;CLEAR COUNTER

sWAIT SUFFICIENT
;RDONE TO SET

8DZCSR

TIME FOR

;RDONE SET
;IT SHOULDN‘'T BE-CONTINUE
;IF IT IS THERE'S AN ERROR
:

shbdkb bbbt hdnbhdbbsbdts

«$4XZ-3z333x22333333T3222 235323
TEST

ssdssssbsdbbsbbtdbbbdbbbsdbbss

;4THIS TEST VERIFIES OVERRUN AND SILO ALARM
;#ONE LINE AT A TIME
- BASED UPON VALID LINES
;#AS EACH OF THE FIRST 16 CHARS ARE SENT; SILO ALARM IS
;#TESTED TO BE CLEARED. ON THE 16TH CHAR THE PROGRAM THEN
;#EXPECTS SILO ALARM TO SET. THEN THE ENTIRE
;#SILO IS FILLED AND AN OVERRUN IS EXPECTED ON THE 6STH
;#CHAR PULLED OUT OUT THE SILO.
;#USING SWITCH NINE FOR THIS TEST SENDS 20. CHARACTERS
;0N DZ LINE PREVIOUSLY SELECTED CONTINUQUSLY WHILE SWO09=1.
;#USED TO SCOPE SILO ALARM PULSES, ETC.

-‘XZ-::as:ass:s:::::aa-aa:-asusaa-

;:&
R

020546
020550
020556

025564

000004
012737

000031

001122

012737
012737

021274
021200

001360
001362

TEST 31

LI TR T

TST31:
:

END

TR TS P E

Ry Py

104417

END

P P

Y P PR

YYY Y

MOV

#TST32 ,NEXT

;POINT

ZEZZITTTIITTTIITITIIT

#18s%,L0CK

DCLASM
-~

:LOAD THE NUMBER OF THIS TEST

HACRO

MOV

;

PR T

#31,$TSTNM

MACRO

TO THE START OF THE NEXT

;SET FOR LOOP
;’LINEUP

020572

SCOPE
MOV

TEST

ZSEZITZIIZIIIITISEITTIITIZITISSSETISSIS

-$MRESET -*sxsx33z3szsz22zsss2ssanzsaz23s

;:CLEAR DEVICE AND SET MAINT BIT
zsx23zz=2323=3233332

IF I MODE

Nt S ~
Nl Nd Nl NP N
ot Nt

N
NN
NN

b P
Pt
[ P

”~~ NN

ol Pt Pt P [

CZDZA-I0
CZDZAI.P1t

[

O
n
W

9230
9232
9233
9234
9235
9236
9237
9238
9239
9240
9241
9242
9243
9244
9245
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257
9258
9259
9260
9261
9262
9263
9264
9265

9266
9267
9268
9269
9270
9271
9272
9273
9274
9275

020574
020600
020604
020610
020612
020616
020620
020622
020624

MACY11 30A(1052)
02-JUW -85 16:17
013701
012702
030237
001402
010177
005201
106302
103370
005037

001366
000001
001364

020646
020652
020660
020664
020666
020672
020676
020700
020704
020710
020712
020714
020716
020720
020726
020730
020732
020734
020736
020740
020746
020752
020756
020760
020766
020770

012700
005020
022700
001374
005000
012702
052777
030237
001002
000137
013700
006300
010277
105777
100001
104020
005003
005004
032777
001004
104414
105204
001371
104003
116077
005260
020327
103006
032777
001401
104013

020772
020774
020776
021004
021006
021010
021012
021014

000411
005004
032777
001004
104414
005204
001371
104014

021016
021020
021024
021026

005203
022703
001334
005004

020642
020644

MOV
MOV
8IT
BEQ
MOV
INC
ASLB

1s:

161234
2%:

- -

001422

000001
010040
001364

161162
3s:

021162
001372

161152
161132

100000

44
:

161114

001422
001422
000017

161120

020000

161054

020000

000102

END

HACRO

MOV
CLR

001462

161036

S$:
6$:

7s:

8s:
94:

10s:

PAR,R1
#1,R2
R2,LINE
2%
R1,8DZLPR
R1
R2

8CC
CLR

001372
:

020630
020634
020636

SEQ 89

02-JUL-85
16:19
PAGE 83-70
CZDZA DZ11 DEVICE DIAGNOSTICS.

oy
BNE
CLR
MOV
BIS
817
BNE
JMP
MOV
ASL
MOV
TST8
BPL
ERROR
CLR
CLR
BIT
BNE
DELAY
INCB
BNE
ERRUR
MOVB
INC
cMP
BHIS
BIT
BEQ
ERROR
BR
CLR
81T
BNE
DELAY
INC
BNE
ERROR

INC
CMP

BNE
CLR

13
SAVLIN

Z2ATEZZITTITTTITES

#TD00,RO
(RO)

#STOP,RO
.-6
RO

;PICK UP PARAMETERS
;PICK UP INIT POINTER
;SHOULD THIS LINE BE SET UP ?
;:NO
sSET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
;:GOT 'EM ALL ?
:IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE & INDICATOR

;POINT TO THE DATA AREA
;CLEAR A DATA WORD
;FINISHED ?

:NO

;CLEAR OFFSET
#1,R2
;LINE POINTER
@MSENAB!SILOEN,8DZCSR
;START SCANNER & SET SILO ENABLE
R2.LINE
;VALID LINE?

.+6
228
SAVLIN,RO
RO
R2 ,80ZTCR
80ZCSR
.+4
20
R3
R4
#TRDY,aDZCSR
74
R4
6%
3

TOO(RO),80ZTDR
TDO(RO)
R3,015.
8
#SILOAL,8DZCSR
.+4
13

10$
R4
#SILOAL,dDZCSR
10$
R4
9s
14

R3
966. ,R3
S$
R4

;YES

;TRY NEXT LINE

;MAKE OFFSET

;MAKE POWER OF TJ10
;SET TCR BIT
;REC DONE = 1 ?

;REC DONE SHOULD NOT = 1
:SET CHARACTER COULNT

;#*TROY

FAIL:D

SET

;:LOAD A CHARACTZR
;SET UP NEXT CHARACTER
316 CHARACTERS ?

:SILO ALARM = 0 ?
;s YES
;:#SILO ALARM SHOULD NOT = 1
;UNTIL 16. DATA CHARACTERS

;#SILO ALARM FAILED TO SET!
;SILO ALARM SHOULD =1 AFTER 16.
;:DATA CHARACTERS
;INC CHAR COUNT

;+FINISHED SENDING CHARACTERS ?

:NO

CZ0ZA-10
CZDZAI P11

O
N~ PN TN NN NN NN PN PN ”~
Qo - o Pt b Pt b (o et P
s P —
LV R Nt Sl N ot Nl o N NS N ot S

9276
9277
9278
9279
9280
9281

9283
9284
9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295

9296
9297
9298
9299
9300
9301
9302

9303
9304

9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319

MACY11 30A(1052)
02-JW -85 16:17

021030
021032
021034

001375

021036

013705

SEQ 90

02-JUL-85
16:19
PAGE 83 71
CZD0ZA DZ11 DEVICE DIAGNOSTICS.

104414
105204

DELAY
INCB
BNE

R4
.-4

MOV

SAVLIN,RS

;NOW LETS READ THE SILO

001372

;MAKE EXPECTED LINE #

-$STAG-=2s2sssszs2szssssanssssszsszssazsssssnass

021042
021046

105737

001406

001371

TSTB
BEQ

;WE MUST NOW INVERT

021050
021052
021054
021056
021060
021062

006205
103402
000261
000401
000241
006105

000305
052705
017704
020405
001401
104006
032777
001401
104016
005205
120527
101762
005205
052705
120527
001754
017704
005704
100001
104017
040277
104401
005237
106302
103402
000137
104400

RS
114

RS
QDVALID,RS

:PUT IN UPPER BYTE
;ADD DATA VALID

cMp

R4 ,RS5

8DZRBUF ,R4

s ACTUAL

15%:

ERROR
BIT

6
4SILOAL,80ZCSR

16%:

ERROR
INC

16
RS

;READING DOZRBUF DID NOT CLEAR SILO ALARM
:UP CHARACTER

BLOS
INC

144
RS

;ADD 1 MORE FOR THE CLOBBERED CHAR

13s:
14

160730

000077

OF THE LINE NUMBER

SWAB
BIS

END

124

MACR)

MOV

BEQ

020000

THE LAST BIT

SKIP STAGGERED SETUP

11¢:
12%:

100000
160750

;IF NOT,

;GET THE LAST BIT INTO THE CARRY BIT
:IF IT IS SET, GO CLEAR IT
:IF IT IS CLEAR SET IT HERE
:SKIP THE CLEARING
;:CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)
;GET THE NEW BITl BACK INTO RS

;

021064
021066
021072
021076
021100
021102
021104
021112
021114
021116
021120
021124
021126
021130
021134
021140
021142
021146
021150
021152
021154
021160
021162
021166
021170
021172
021176

ASR
BCS
SEC
BR
CLC
ROL

;IS THIS TEST IN STAGGERED MODE?

MODE +1
134

BEQ

CHMPB

=ssaszsszzzzszsszssass

15%

164

R5,063.

;ACTUAL VS. EXPECTED
; YES

:3DATA/CONTENTS DID NOT COMPARE
;SILO ALARM= 0 ?

s YES

;LAST SILO CHAR ?....64TH CHAR

040000
000101

8IS
CMPB

#0VRRUN, RS
RS,#65.

;ADD OVERRUN TO EXPECTED
:LAST CHARACTER ?

160700

MOV
TST

80ZRBUF ,R4
R4

;FOR GOOD MEASURE
:DATA VALID SHOULD

BEQ

160676

17¢:

001372

22%:

020660

8PL
ERROR
BIC
SCoP1
INC
ASLB
8CS

JMP
ADVANCE

144

174
17
R2 .8DZTCR
SAVLIN
R2
.+6
34

= 0
;YES
;DATA VALID SHOULD = 0
;CLR TCR BIT
:LOOP?
:INC EXPECTED LINE
;NEXT LINE
:NO
s YES
:GO TO NEXT

TEST

; TIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS
:ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SW09=1.
;USED TO SCOPE SILO ALARM PULSES,
021200
021206
021214
021222
021226
021234

052777
012777
012737
050277
52777
106427

010040
021264
000024

160630
040000
000000

160634
160662
001216
160606

18%:

8IS

#MSENAB! SILOEN,8DZCSR

MOV

€204 ,80ZTIV

8IS
8IS
MTPS

R2,80ZTCR
¢TIE,8DZCSR
@0

MOV

ETC.

920.,3THMPO

;SETUP DEVICE

;SETUP TRANSMITTER VECTOR

: TEMPORARY COUNT OF CHARACTER BURST

;ENABLE LLNE
;:ENABLE INTERRUPTS
;LOWER PRIORITY

CZ0ZA-1I0
CZDZAI.P11
9320
9321
9322
9323
9324
9325
9326
9327
9328

021240
021242
021246
021250
021256
021260
021264
021272

MACY11 30A(1052)
02-JUWL -85 16:17
000001
005337
001374
042777
104401
000137
112777
000002

19%:

001216

050040

160564

021154
000252

160574

WAIT
DEC
BNE
8IC
SCoP1
JMP
MovBe
RTI

20%:

(2)
(2)
(2)

O
W~ NN NN NN PN PN PN P ~
(7 X = =0 4t ot P
ot ot et o ) n
[« X&) Nl N Nl Nl Nl N N N Nt NS ~

9336
9337
(2)

9339
9340
9341
9342
9343
9344
9345
9346
9347
9348
9349
9350
9351
9352
9353
9354
9355
9356

;ALLOW INTERRUPTS
$TMPO
;REDUCE COUNT. ALL CHARACTERS SENT?
19¢
:IF NO, WAIT FOR MORE
OSILOEN!MSENAB!TIE,8DZCSR ;RESET SII.O COUNTER, CLEAR STROBE
;:LOOP AGAIN?
174
;IF NOT, RETURN TO WHERE YOU LEFT OFF
©252,80ZTOR
;SEND A CHARACTER
;ALLOW MORE CHARACTERS TO COME
:

(2)

9329
9330
9331
9332
9333
9334
9335
(5)
(4)

SEQ 91

02-JUL-85
16:19
PAGE 83-72
CZDZA DZ11 DEVICE DIAGNOSTICS.

ihebdbatbnsisntsssdisssss

-'xz------.-..--.-.-----l----u-!t-

TEST

2800888000800 00000b0008s00008s

;#THIS TEST THAT "SILO ENABLE" WILL INWIBIT
;#RECEIVER INTERRUPTS AND THAT ON THE
;:#16TH CHAR THAT “SILO ALARM* WILL CAUSE AN
;¢ INTERRUPT WITH "RIE“ SET.
;#THIS WILL DO ALL SELECTED LINES ONE AT A TIME.
i:s

021274
021276

000004
012737

PP REAEAAARA
000000040004
RRE
0040404000
RAR
4488480400AAS
400080008000880
A

000032

001122

TST32:
:

021304
021312

012737
012737

-$4Xl-ssvssszssasssssssaunssasssasss

TEST 32

021656
021400

SCOPE
MOV

END

HACRO

MOV

001360
001362

MOV

#32,8TSTNM

:LOAD THE NUMBER OF THIS TEST

QTST3I3 NEXT

;POINT TO THE START OF THE NEXT TEST

SssssssmssssEsssssass

#34,L0CK

;SET FOR LOOP

tSLINEUP -saznzsssnssssusssssssassasssnnssnss

021320

104417

021322
021326
021332
021336
021340

021346
021350
021352

013701
012702
030237
001402
010177
005201
106302
103370
005037

021356
021362
021364
021370
021372
021374
021400
021406
021414

012700
005020
022700
001374
005000
012702
012777
012777
052777

000001
021620
000340
010140

021422
021426
021430
021434
021440
021442
021446
021452
021454

030237

001364

;

021344

001366
000001
001364

106427

013700
006300
010277

END

1s:

001372
--

001422

CMpP

R1
R2

"ACRO

BNE
CLR

160464
160460
160420

rd )
R1.,8DZLPR

8CC
CLR
MOV
CLR

001462

160376

END

MOV

Essssszssssassssasss

#1,.R2
R2,.LINE

INC
ASLB

-$MRESET -sssssssassssassssasssasssssas

:CLEAR DEVICE AND SET MAINT BIT IF I MODE

PAR,R1

BEQ
MOV

24:

000000
001372

HACRO

MOV
BIT

160506

021636
160406

MOV

001002
000137
005777
100775

DCLASM

;:PICK UP PARAMETERS

;PICK UP INIT POINTER
;:SHOUWD THIS LINE BE SET UP ?

:NO
$SET UP LINE PARAMETERS

:POSITION POINTER TO THE NEXT LINE
:GO0T 'EM ALL ?

14
SAVLIN

;IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE & INDICATOR

#T00,RO
(RO).

;POINT TO THE DATA AREA
:CLEAR A DATA WORD

SEsssszsssSSssnsssusas

#STOP,RO

.-6
RO

#1.R2

sFINISHED ?

;NO
;CLEAR OFFETMT

;LINE POINTER

MOV
MOV
8IS

911% ,80ZRIV
:SET FOR UNEXPECTED INTER.
#PR7,8DZRIS
;SET PRIO.
#MSENAB!SILOEN!RIE,SDZCSR

BIT
BNE
JMP
TST
BMI
MTPS

R2,LINE
.+6
224
80ZRBUF
.-4
&0

MOV
ASL
MOV

SAVLIN,RO
RO
R2,8DZTCR

:START SCANNER & SET SILO ENABLE

;VALID LINE?
;YES
s TRY NEXT LINE
;EMPTY THE SILO
:BR IF DATA VALID IS SET!
:SET PROCESSM PRIORITY TO O

;MAKE OFFSET
;MAKE POWER OF
:SET TCR BIT

TWO

C20ZA-10
CZDJAI.P11}
9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368
9369
9370

9371

9372
9373
9374
9375
9376
9277
9378
9379
9380

021460
021462
021470
021472
021474
021476
021500
021502
021510
021514
021522
021524
021532
0721534
021536
021540
021546
021554
0c1556
021564
021566
021574
021576

MACY11 30A(1052)
v2-JW -85 16:17
005004
032777

001004
104414
005204
001371

104003
116077
005260
022760

001406
032777
001401

160352

160356

001422
001422
000017

001422

020000

160310

7%:

000750
012777
032777
001774
016077
005004

032777

9381

021600

9382
93563
9384
9385
386
9387
9388
9389
9390
9391
9392

021602
021604
021606

021610
021612
021614
021616
021620
0Q21€2c
021624
021626
021630
021634
021636
021642
021644
021646
521652

000240
000240
104060
000404
022626
104012
000401
022626
040277
104401
005237
106302
103402
000137
005077

160324

021626
100000

160266

001422

160302

020000

1602456

8s:

11s:

160222

12%:
17:

001372

22%:

B8EQ
ERROR

MOV

124 ,30ZRIV
@TRDY,8DZCSR
.-6

MovB
INC
cMp
BEQ

MCV
9s:

R4
4TROY, 80ZCSR

R4
63
3
TDO(RO),8D0ZTDR
TDO(RO)
€15.,TD0(RO)
8s
#SILOAL,802CSR
.*4
13

817
BEQ

10s:

021400
001362

CLR
BIT
BNE
DELAY
INC
BNE
ERROR

8I7

104013

001005
104414
005204
001371
104014
000410

9393
9394
9395
9396
9397
9398
9399
9400

Ss:

100000

SEQ 92

02-JWL -85
16:19
PAGE 83-73
CZDZA DZ11 DEVICE DIAGNOSTICS.

CLR
BIT
BNE
DELAY
INC
BNE
ERROR
BR
NOP
NOP
ERROR
BR
CMP
ERROR
BR
cmp
BIC
SCoP1
INC
ASLB
BCS
JMP
CLR

TDOCRO),3DZTOR
R4
#SILOAL,3DZCSR

:#TROY FAILED TO SET
;LOAD A CHARACTER
;SET UP NEXT CHARACTER
;15 CHARS YET?
;SILO ALARM = 0 ?
; YES
;:¢5IL0O ALARM SHOULD NOT = |
;UNTIL 16. DATA CHARACTERS

;SET NEW VECTOR
:READY FOR 16TH CHAR
;LOAD THE 16TH CHAR.

10¢
R4
9
14
17

;4SILO ALARM FAILED TO SET!

;SILO ALARM SHOULD =1 AFTER 16.
;:DATAR CHARACTERS
s STALL
;SILO ALARM NOT INTERRUPTING.

;CONTINVE TEST.

(SP)+,(SP).
12
17%

sFAKE

R2,30ZTCR

;+CLR TCR BIT
;:LOOP?
:INC EXPECTED LINE
sNEXT LINE

(SP)+,(SP).

SAVLIN
R2
.+6
3
LOCK

;RX

RTI
SHOULD NOT

: CONTINUE

INTERRUPT

;GO0D INTERRUPT TO HERE.

;:NO
; YES

;CLEAR TIGHT LOJP FOR NEXT TEST

[ Ao

e ¥ 4

C2DZA-10
C202Al P11

MACY11 30A(1052)
02 JWL-85 16:17

JUW -85

16:19

SEQ 93

PAGE 84

CZDZA D0Z11 DEVICE DIAGN3TICS,

9402
403

()

9404

9406
949~
9408
9409

(5)

021656
021660

TEST 33

000033

001122

TS733:
-

012737

(1)
()

021674

104417

021676
021704
01710
21714
021720
021722
021726
021730
021732
021734
021740
021742
021746
021750
021756
021764
021772
022000
022006
022014
022022
022030

013737
013701
012700
030037
001402
010177
005201
106300
103370
012700
005020
022700
001374
012777
012777
012777
0i2?7?
052777
052777
052777
113777
106437

022034
022040
022044
022046
022052
022054
022060
022062
22066
022072
022074
022076
022100
022104

005037
013727
000000
005337
001375

9418
9439
9440
9441
9442
9443
9444
9445
9446
9447
9449
n349

TEST

SESFSANSEENSSasSENSanNE

404880640 8440000004400804080000800

-‘XZ-lllll.lllllllt-Illllllllllllfl

;;..t‘.‘t“““‘tt““t‘t““‘t

000004
012737

001666

9411
9412
9413
9414
9415
9416
9417
9418
9419
9420
9421
9422
9423
9424
9425
9426
9427
9428
9429
9430
9431
9432
9433
9434
9425
9476
9437

TAS 2SI

;:+

(2)

9410

.‘xz

:¢THIS TEST RUNS ALL LINES FULL BORE
:#BASED UPON QUALIFIED LINES
i+, THI5 IS AN INTERRUPT TEST ON THE RECEIVER AND
;s TRANSMITTER

9408

(8)
("
(2)

;
$000668040000400840000484840

022464

END

001360

““tt.é““‘!t‘..““““‘.“‘.“

SCOPE
MOV
O

MACRO

MoV

933, $TSTNM

;LOAD THE NUMBER OF THIS TEST

#TST34 NEXT

;POINT TO THE START OF THE NEXT TEST

ss2z2s3s2z23222223322%

105737

001002
000137
005237
001362
104007
104011
000137
000000

001364
001366
000001
001364

END

022462
RSTART:
INIT:

160124
1s:

DCLASH
0

HACRO

MOV
MOV
MOV
BIT
BEQ
MOV
INC
ASLB

001422
INIT1:

001462
022204
000340
022106
000340
000100
040000
000040
001364
030336

022104
007204

022044

160114
160110
160104

160100

160034
160026
160020
160026

SNAP ;
h78:
68s:

022362

022362
022104

022434
€6

ZEXIXRITTITTTTIXTZIIX

LINE ,RXTCR
PAR,R1
#1,R0
RO,LINE
13
R1,30ZLFR
R1
RO

-SMRESET-2z22323322s-22233233383n33

3232

;CLEAR DEVICE AND SET MAINT BIT IF I MODE
;SET IMAGE OF TCR BITS
;PICK UP PARAMETER
;:PICK UP INIT POINTER
;SHOULD THIS LINE BE SET uP

sNO

sSET UP LINE PARAM REGISTER
;:GOT

'EM ALL

8CC
MOV
CLR
CMP
BNE
MOV
MOV
MOV
MOV
8IS
BIS
BIS
MOV8
MTPS

INIT
#TD0,RO
(RO)»
4STOP,RO
INIT1
MXSVC,aDZRIV
#PR7,8DZRIS
2TXSVC,80ZTIV
PR7,802T1IS
#RIE,8DZCSR
#T1E,3DZCSR
#MSENAB, 8DZCSR
LINE,SDZTCR
CLESS1

;FINISHED ?
;sNO, CONTINUE CLEARING
;SET UP REC INTR VECTOR
:STATUS
:SET UP TRANS INTR VECTOR
:STATUS
:SET REC INTR ENABLE
;SET TRANS INTR ENABLE
:SET MASTER SCAN ENABLE
;SET TCR BITS...UP UP AND AWAY !
sALLOW INTERRUPTS

CLR
MOV
0
DEC
BNE
15718
BNE
JMP
INC
BNE
ERROR
ERROR
JMP
0

66%
OLYCNT ,(PC).

;SET FOR DELAY

684
.-4
RXTCR
3
ouT
663
67
7
11
FINI

:NO

;:CLEAR TRANS DATA POINTER € REC PQINTERS

;WAIT FOR ALL RECIEVERS TO FINISH

;#TRANSMITTER FAILED TO INTERRUPT
;#RECEIVER FAILED TO INTERRUPT

CZDZA-I10

CZDZA1.P1L
022106

005777

9452

022112

100401

9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471

022162
022170
022174
022°°7

022114
022116

104003
117703

022122
022126
022130
022134
022140
022142
022144
022146
022150

042703
010304
010337
012702
105303
100402
006302
000774
030237

022154
022156
022160

001001
104010
006304

: TRANS
TXSvC:

177770

001372
000001

001364

9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
94383
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
9494

022202

“CouI0L2

022204
022210
022212
022214
022220
022222
022224
022230
022234
022242
022244
022246
022250
022252
022254
022260
022262
022264
022270

105777
100401
104004
017704
010403
000303
042703
010337
032777
001401
104000
(05704
100401
104023
0327094
001401
104000
012702
105303

157632

9495
9495
9497
9498
9499

022272
(022274
022276
022300
022304

100402
006302
000774
030237
001001

9500
9501
95C2

022306
022310
022314

9503

022316

104011
013703
006302
126304
001405
016305

157676

157654

070000

000001

001364

001372

001442
001442

SEQ 94

PAGE 84 1|

157600

INTR
T71ST

SVC ROUTINE
902ZCSR

B8MI

.+4

ERROR
3
MOvB
OHDZCSR,R3
:NOW TEST FOR LINE & ETC
8IC
#tC<7>,R3
MOV
R3,R4
MOV
R3,SAVLIN
MOV
#1,R2
3s:
DECB
R3
BMI
44
ASL
R2
BR
3
43:
BIT
R2,LINE
BNE
.+4
ERROR
10
ASL
R4
MOVB
TDO(R4),3DZTDR
INCB
TDO(R4)
BNE
5¢
BIC
R2,aDZTCR

5s:

157626

177770
001372
020000

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

157722

001422
001422

022322
022324

02 JW 85

157730

116477
105264
001002
0450277

9504
95C5

Lh:

02-JW -85 16:17

9450
9451

9472

MACY11 30A(1052)

RTI

: TRANS

INTR

;#TRANSMITTER FAILED
;SAVE IT
:STRIP JUNK
: SAVE
;ADJUST LOCATION FOR ERROR PRINTOUT
;SET UP POSITION POINTER
;IS IT THIS LINE ?
: YES
;UP THE LINE &
;GO 'ROUND AGAIN
;VALID LINE?

; YES
:NO, INVALID LINE!!!!
;MAKE POWER OF 2

;LOAD CHARACTER
;SET UP NEXT CHARACTER
;:LAST CHARACTER ?
;:YES ,CLEAR TCR BIT

;REC INTR SVC ROUTINE
RXSvC:
TST8
IDZCSR
;REC DONE ?
BMI
.+4
; YES
ERROR
4
:FALSE INTERRUPT
MOV
80ZRBUF ,R4
;SAVE 1T
MOV
R4 ,R3
SWAB
R3
BIT
@1C<7>,R3
:STRIP JUNK
MOV
R3,SAVLIN
:SAVE LINE NUMBER
BIT
#SILOAL,3DZCSR
;SILO ALARM?
BEQ
.+4
;NO
ERROR
;SILO ALARM SHOULD NOT =1
TS7T
R4
;DATA VALID SET?
8MI
.+4
; (ES
ERKOR
23
;YOU LOSE
...DATA VALID WAS'NT
BIT
#OVRRUN!FRMERR !PARER,R4
BEQ
.+4
ERROR
;RECEIVER ERROR FLAG/S WERE SET
MOV
#1,R2
:SET UP POSITION POINTER
S$:
DECB
R3

6$:

8MI
ASL
BR
BIT
BNE

654
R2
58
R2,LINE
.+4

ERROR
MOV
ASL
CMPB
BEQ
MOV

11
SAVLIN,R3
R3
TRO(R3),R4
2%
TRO(R3),R5

SET

;RE POSITION POINTER
;GO 'ROUND AGAIN
;LINE VALID ?
; YES

;INVALID LINE &
;GET THE LINE NUMBER AGAIN
;USE R3 AS A POINTER IN THE DATA

TABLE

;:DOES THE DATA CHARACTER COMPARE

; YES
;SAVE EXPECTED

CZDZA-I0
CZDZAI P11
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520
9521
9522
9523
9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544

(2)

9545
9546
9547
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
95690

MACY11 30A(1052)
02-JUL -85 16:17

022330

042704

022334
022336
022342
022346
022350
002354
022360

104005
005263
105763
001002
040237
012716
000002

022362
022366
022370
022372
022376
0c2402
022406
022410
022416
022420

106427
104413
005003
005037
012702
030237
001405
022763
001401
104027

022422
022426
022430
022432
022434
022434
022442
022446
022454
022460
022462

005237
005723
106302
103363
013777
005077
013777
005077
104400
000000

177400

001442
001442

2%:

022462
022034

000340

OuT:

001372
000001
001364

's:

000400

001442

001372

002074
157426
002100
157420

SEQ 95

02 JUL -85
16:19
PAGE 84 2
CZDZA DZ11 DEVICE DIAGNOSTICS.

2$:

157430

FINI:

157422

RXTCR:

BIC

AtC<377>,R4

ERROR
INC
1ST8
BNE
81C
MOV
RTI

5
TRO(R3)
TROCR3) ;ALL
.+6
R2 ,RXTCR
#SNAP, (SP)

;CLEAR JUNK
iR2 = LINE & BY BIT POSITION
:R4 = ACTUAL DATA
;RS = EXPECTED DATA
;#NO, DATA DOES NOT COMPARF
; SET UP FOR NEXT CHARACTER

CHARS DONE?

:ZERC LINE DONE INDICATOR.
;RESET THE BACKGROUND TIMING LOOP

;FINISH UP ROUTINE

MTPS
#PR7
DEVICE.CLR
CLR
R3
CLR
SAVLIN
MOV
#1.R2
81T
R2 ,LINE
BEQ
2
rMp
#400,TRO(R3)

BEG
ERROR

.+4
27

INC
TST
ASLB

SAVLIN
(R3).
R2

B8CC

;STOP ALL INTERRUPTS
;CLEAR ALL INTERRUPTS AWAY

;VALID LINE ?
:NO
:RECEIVED A BINARY COUNT PATTERN ?

;s YES

;THE LINE FAILED TO RECEIVE A FULL
;BINARY COUNT PATTERN
;SET UP FOR NEXT LINE
;ADD 2
:SET UP NEXT LINE POINTER
;CINISHED ?

”~

MOV
CLR
MOV
CLR
ADVANCE
0

DZRIS,8DZRIV
9DZRIS
D2TIS,aDZTIV
aDZTIS

;RESTORE TRAPCATCHER

;GO TO THE NEXT TEST

iRX IMAGE OF TCR BITS
;

—sxz-’Il”’:888888383’3’:38”’8’3’

shkdbdbbbbbbdbrbrdbdbdddsd

TEST

ssttrkkbnabsbbbbdbbbbbdbbdsbds

;#DZ11 RELATIVE TIMING TEST.
;#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.
;#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
i &

L
HE

50, 75, 110, 134.5, 150, 300, 600,
2400, 3600, 4800, 7200, 9600 BAUD.

THEN,

9600 BAUD

SEVEN,

SIX,

1200,

1800,

2000

TWO STOP BITS AT

FIVE BITS/PER/CHAR.

;#AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS

+#THE

SELECTED

LINE

THE

~-$8X7

TESTED.

Tzz=z=zzzz3:z_=233_=Z-=32.33=2z_2=233

C20ZA-10
CZDZAI.P1}

MACY11 30A(1052)
02-JUL -85 16:17

9561

;:¢

(S)

(4)
(2)

(2)

(1)
(2)
9562
9563

022464
022466
022474
022502
022510
022516

000004
012737
012737
012737
012737
005037

9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582

022522
022526
022532
022540
022546
022554
022556
022564
022570
022572
022576
022600
022604
022612
022620
022624
022630
022632
022634

005037
005037
012737
012737
033737
001027
012737
012700
005020
022700
001374
005237
042737
053737
005037
106337
103346
104400

(1)

022634

104417

(1)

9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593
9594
9595
9596
9597
9598
9599
9600
9601
9602
9603
9604
9605
9606

96C7

000002
023174
022634
025242

001372
001374
000001
010070
001216
010070
001422

001122

TST34:
:

- -

END

001226
001360
001362

001216
023172
001364

1$:

023172

2%:

001462
001374
000007
001374
025242
001216

023172
023172

010000
023172
001370

023172
157200

023172

023172
010000
023172
023172
177770
000007
001374
023172
001422

001462

001220

023172
157134
001372
001372
023172
023172
001400

98¢ :
99 ;
100s$:

Y Y Y T

IIITTITTI

#34,$TSTNM

:LOAD THE NUMBER OF THIS TEST

MOV
MOV
MOV
CLR

#2,$TIMES
ATST3IS NEXT
#3$,L0CK
OFFSET

;:POINT TO THE START OF THE NEXT TEST
;SET FOR LOOP
;RESET THIS VARIARBLE

MACRO

=aszssxz3zs223z2222

:
:

005037

R R I T T

SCOPE
MOV

CLR
SAVLIN
;RESET LINE NUMBER INDICATOR
CLR
XMTLIN
;USE THIS WORD TO TELL WHAT LINE TRANSMITTED
MOV
#1,$TMPO
;USE $TMPO AS A BIT POINTER
MOV
#RCVON!SSO!!EIGH
TWOSTOP,7$
T ;BUILD TEMPORARY PARAMETERS
BIT
$TMPO, LINE
;IS THIS LINE ACTIVE?
BNE
3
;IF SO, GO GET STARTED
MOV
YRCVON!SS50!EIG
! TWOSTOP,
HT
7$ ;LOAD PARAMETERS TEMPORARILY
MOV
#TD0,RO
;POINT TO THE DATA AREA
CLR
(RO)»
:CLEAR A DATA WORD
CMP
9S5TOP,RO
sFINISHED ?
BNE
.-6
;NO
INC
XMTLIN
;POINT TO THE NEXT LINE TO TRANSMIT
8IC
87,7
;MAKE SURE TEMPORARY PARAMETERS POINT TO ©
8IS
XMTLIN,7$
;:ADD DESIRED LINE NUMBER
CLR
OFFSET
ASLB
$TMPO
:POINT TO THE NEXT LINE
8cC
1
;PROCESS THE NEXT LINE
ADVANCE
:TEST TO SEE IF THIS TEST GETS REPEATED

3s:

022636
042737
022644
013777
022652
005737
022656
100011
022660
000241
022662
006037
022666
103002
022670
000241
022672
000401
022674
000261
022676
006137
022702
052737
022710
013777
022716
013737
022724
042737
022732
042737
022740
053737
022746 . 013737
022754
012700
022760
005020
022762
022700
022766
001374
022770
005002
0227/2
005003

022774

TEST 34

Rttt I I R T I

000033

SEQ 96

02-JUL-85
16:19
PAGE 84-3
CZDZA DZ11 DEVICE DIAGNOSTICS.

END

DCLASM
O

BIC
MOV
TST
8PL
CcLC
ROR
8CC
CLC
BR
SEC
ROL
BIS
MOV
MOV
BIC
8I1C
BIS
MOV
MOV
CLR
CMp
BNE
CLR
CLR

CLR

MACRO

-$MRESET-22z32z22=2x3xzaszazzs222332=22x

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

=3z223~a3z22=3=_=z222=

PRCVON, 7¢
7$%,3DZLPR
MODE
100

74
98
99
74
#RCVON, 7
7% ,8DZLPR
7% ,SAVLIN
#tC<7>,SAVLIN
87,7
XMTLIN,7$
7$ ,REGIST
#700,R0O
(RO) .
#5T0P,RO
.-6
R2
R3

$TMP1

:ZERO PARAMTERS FOR TX LINE
;LOAD PARAMTFRS FOR TX
; STAGGERED?
;BR IF NO
;SET UP LINE
;
;BR IF LINE WAS EVEN
;PREPARE TO MKE LINE EVEN
; CONTINUE
;PREPARE TO MAKE LINE 0DD
;:SET ALTERED LINE
;SET RX ON
;LOAD RX PARAMETERS
+ADJUST LOCATION FOR ERROR PRINTOUT
;STRIP JUNK
;:CLEAR OLD LINE ¢
:SET LINE UP AGAIN
;SAVE PARAMETERS FOR PRINTOUT
;POINT TO THE DATA AREA
;:CLEAR A DATA WORD
+FINISHED ?
:NO
;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS
;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS

;INITIALIZE THE TIMER

CZDZA-I0
CZ0ZAl P11

000002
023172

025242

000030

023172

000010

023172

000400

023172

CLR
MOV
MOV
MOV
MOV
MOV
MOVB
8IS
MTPS
BIT
BEQ
INC
BNE
INCB
BNE
ERROR
JSR

$TMP3
;INITIALIZE THESE BITS ALSO
420, XMTCNT
:SET HOW MANY CHARACTERS TO TRANSMIT
#XMTSRV,80ZT1V
ORXISR1,aDZRIV
OZPRT,8DZRIS
OZPRT,8D2T1S
$TMPO,aDZTCR
;START THE VALID LINE
4TIE'RIE'MSENAB,aDZCSR
40
;LOWER THE PRIORITY TO ALLOW INTERRUPTS
#MIE,DZCSR
:IS ROUTINE DONE?
S
;WHEN ALL IS DONE RX IE IS CLEARED IN ISR.
$TMPL
;COUNT TIME
44
;CONTINUE TEST
$TMP3
;D0UBLE COUNT
4
;sCONTINUE TEST
11
;INTERRUPTS NOT FINISHED
PC,SERV.G
;<*G?

ADD
MOV
BIC
CMP
BNE
BIT
BEQ
suB
8R
ADD
BR
0

42 ,0FFSET
7% ,R0O
#tC<17+400>,R0O
#<16+400>,R0
6
48IT4.BIT3,7$
2
#BIT3,
7
3
4400,7$
3s

sCorPl

170377
007000

6$:
7%:

Nt N

s -

S$:

007642

;LOOP?

;

-$PARTST-==szsza2x2332xssssszazssssxazszsssxs

;

-sxz-flsl888!:888888.8888!!8’.’Illt

ihbbdbbkdbbhhhbhhddbbhbss

TEST

35S

desbbsdsssdbbbbbbidsbdsbddbhbs

;& THIS TEST VERIFIES THAT EVEN PARITY WORKS

NN N

001224

FOR

ALL

ODD LINES

SELECTED

AND THAT

ODD PARITY

;% EVEN LINES SELECTED.
;#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY

001220

;*THAT

"PE"”

(PARITY

ERROR)

WORKS FOR ALL

CAN BE FLAGGED BY

;#THE UARTS., THIS TEST WILL NOT BE DONE UNLESS
;#YOU ARE IN "STAGGERED' MODE.
;#40(8) CHARS ARE USED FOR THIS TEST.

NI NN

43 :

;#ALL SELECTED LINES
;AT THE SAME TIME!

NP N

s ot

SEQ 97

PAGE 84-4

2 12 10

156752

(IO

00137
57055
157044
137040
157036
157006
156764

N
N
N
Nl Nd N
Nl N

LUV O

023124
023130
023134
023140
023142
023150
023152
023100
023162
023170
023172

001224
000020
024664
025030
030334
030334
001216
040140
000000
000100

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

IR I

e (N

023116

005037
012737
012777
012777
013777
013777
113777
052777
106427
032777
001407
005237
001371
105237
001366
104011
004737
104401
062737
013700
042700
022700
001010
032737
001602
162737
000625
062737
000621
000000

023174
023176

000004
012737

023204
023212
023216

012737
005737
100112

FE R

001122
:

023446
001370

WILL
:

END

001360

PR T

ST XTI R

SCOPE
MOV
O

MACR)

MOV
TST
BPL

22T SRR

#35,$TSTNM

104417

;

023222

013701

001366

$X7-=zxx==zz==22z2x22=323xxx2x=333323

END

#TST36 ,NEXT
MODE
6%

OCLASM
0

MOV

HACRO

:LOAD

PSS VRSP

YRV S

PR R

THE NUMBER OF THIS TEST

zx=x==3zzz=2=_-=z-=-=

;POINT TO THE START OF THE NEXT
;IS THIS STAGGERED MODE?
;IF NOT, DON'T DO THIS TEST
:

023220

BE ENABLED

TEST 35

TST35:

000035

023000
023004
023012
023020
023026
023034
023042
023050
023056
023062
023070
023072
023076
023100
023104
023106
023110
023114

02-JUL-85

;:%

= PO RN

INININININTNININTNNININTNTNNITNIN
NN NN ~Nes

9608
9609
9610
9611
9%12
9613
914
9615
9616
9617
%18
9619
9620
9621
9622
9623
9624
9625
9626
9627
9628
9629
9630
9631
9632
9633
9634
9635
9636
9637
9638

MACY11 30A(1052)
02-JUL-85 16:17

=zz~==z=s=z==

PAR,R1

-s"RESET-:::

TEST

ZITTITTIITTIITI=TIITIT=TITA

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

==zz__.x==

;USE R1

TO BUILD PARAMETERS

TO BE LOADED

’\’\fif\fifif\fififlflfio\f\fiflflfififlhfiflflfifififl ~ fififlfifif\fif\fiflf\flflfif\"\fif\f\fif\f\’\fif\f\fi
PO 4=t 00 bt o o 1o bo 10 b (A N (N 10 (=0 1o it ot (b s ot i Pt b e PO D nn PORI T s o =t o 1=t 10 10 12 |6 0 b ot ot o i et Pt Pt | o Pt Pt i st
V\JVUV\JV\JVV\JUO\JVV\J\JVU\JUUVVVV ~ VU\JVUUVVVV\J\JVV\J\JV\JVVVVV\IV\J\J

CZDZA-10
CZDZAI.P11
023226
023232
023236
023242
023246
023250
023254
023256
023262
023266
023272
023274
023276
023300
023304
023306
023312
023316
023320

023326
023332
023334
023340
023342

MACY11l 30A(1052)
02-JUL -85 16:17
042701
052701
012702
030237
001411
032701
001002
052701
010177
042701
005201
106302
103361
005037
005002
005037
005037
005003
012737
012700
005020
022700
001374
005000

000200
000100
000001
001364

8IC
BIS
MOV

8IT
BEQ
BIT
BNE
BIS

000001

000200
156564
000200

MOV

BIC
INC

ASLB
8CC

001372

CLR
CLR
CLR
CLR
CLR

024660
024662

000040
001422

SEQ 98

02-JUL-85
16:19
PAGE 84-5
CZDZA DZ11 DEVICE DIAGNOSTICS.

001376

;MAKE SURE ODD PARITY ISN'T

#8ITO,R1
2s
#000PAR,R1
R1,80ZLPR
#000PAR,R1

;IF IT'S EVEN, USE 0DD PARITY
;LOAD THE LINE PARAMETER REGISTER
;SET UP THE NEXT PARITY TO EVEN
;POINT TO THE NEXT LINE

R1
R2
1$

;MOVE THE BIT POINTER IN R2 TO THE NEXT LINE

;IF WE'RE NOT DONE, GO
;CLEAR THE LINE NUMBER
;USE R2 TO COUNT TOTAL
; ::2-10-84 ECB REV I
; ::2-10-84 ECB REV I
;USE R3 TO COUNT TOTAL

COUNTO
COUNT1

R3
240, XMTCNT
#T00,RO
(RO)«
#STOP,RO
.-6
RO

CMP
BNE
CLR

012777
012777
013777
013777
052777

024664
024506
030334
030334
040140

023402
023410
023414
023422
023424
023426
023432
023434
023440
023442
023444

113777
106427
032777
001410
104414
005237
102770
105237
100365
104011
104400

001364
000000

000100

156524
156512
156506
156504
156440

END

156446
156420

MACRD

:NC

;CLEAR OFFSET

024660
024662

END

INC
8vS
INCB
BPL
ERROR
ADVANCE
O

MACRO

-$INTSET-3s=2zx3x3z333=223z33332=x2x=

;SET
:SET
:SET
;SET

UP THE TRANSMITTER INTERRUPT VECTOR
UP THE RECEIVER INTERRUPT VECTOR
THE INTERRUPT VECTOR STATUS
TRANSMITTER INTERRUPT PRIORITY

DZPRT,8DZRIS
DZPRT,80ZT1S
¢RIE!TIE!MSENAB,8DZCSR
=z23z3=3=z=z2233=zx

LINE,3DZTCR
40
#RIE,30ZCSR
6%

COUNTO
5%
COUNT1
5¢
11

NUMBER OF RECEPTIONS

;:POINT TO THE DATA AREA
;CLEAR A DATA WORD
sFINISHED ?

#XMTSRV,aDZTIV
#PARESE, 8DZRIV

MOVB
MTPS
BIT
BEQ
DELAY

5¢:

MOV
MOV
MOV
MoV
BIS

CHECK THE NEXT LINE
INDICATOR
NUMBER OF TRANSMISSIONS

; TRANSMIT A BINARY COUNT PATTERN(COO 40)

;

023344
023352
023360
023366
023374

SET

:MAKE SURE PARITY IS TURNED ON
:USE R2 AS A LINE POINTER
:IS THIS A VALID LINE?
:IF NOT, SKIP TO THE NEXT LINE
;IS THIS LINE AN ODD LINE?
;IF IT'S 00D, USE EVEN PARITY

SAVLIN
R2

MOV
MOV
CLR

001462

#00DPAR,R1
#PARITY,R1
¢1,R2
R2,LINE
2

;ENABLE THE DEVICE

;ENABLE ALL SELECTED LINES

;ALLOW INTERRUPTS

;WHEN RX DONE; RIE WILL =0
;BR IF ALL DONE
i +: 2-10 84 ECB REV I

;#RX

FAILED

;ADVANCE LOQP

FINISH

(INTERRUPT)

zza2zxzzx3szxzxszxxz32
;
;

ihbkkkdbdbdhdbhhbbhin
bbbk

-spARTST-3:”.’.388388’83’IS”SSISSS’:’::
-sxz-”!:’8:"8!3!’88’8833:88":’8

TEST

sbsssbbbbbbhbbsdbhhbhkbddhdbdbds

;*THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL 0ODD LINES
;% SELECTED AND THAT EVEN PARITY WORKS FOR ALL EVEN LINES SELECTED
;#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY

;tTHAT

"PE” (PARITY ERROR) CAN BE FLAGGED BY
;#THE UARTS. THIS TEST WILL NOT BE DONE UNLESS

:#YOU ARE IN “STAGGERED" MODE.
:#40(8) CHARS ARE USED FOR THIS TEST.

;#ALL SELECTED LINES
;#AT THE SAME TIME!

WILL BE ENABLED
:

<$X7

Zrzzzx_zz=x33332T3z33zTT323T2=

CZDZA-I0
CZDZAI.P11

V\JVVVVVUVVV\JVVVUV\J\JVVUVU\JV

Nt N N Nl Sl N N

D N N N " N

il Nl N S "o "d o

D d " o "

f\f\f\’\fi"\f\fl"\fififlfififif\fifif\f\fifififif\f\fif\fi
ININONONINONLNINSNININONPNINNINPN
NN N~ ~
o s = b b et b e et e et e PO D N N PO N N = o ot b ot s
P 1
0 s o b pt et P ek b b b s
e PO
e e (NN

it ot

(3
(6)

MACY11 30A(1052)
02 JUL-85 16:17

;¢

TEST 36

bttt

023446
023450

000004
012737

000036

TST36:

001122

;

023456
023464
023470

012737
005737
100112

023472

104417

023720
001370

- -

bbbt

SCOPE
MoV

END

001360

MACRO

MOV
TST
BPL

et L L LY

936, $TSTNM

023474
023500
023504
023510
023514
023520
023522
023526
023530
023534
023540
023544
023546
023550
023552
023556
023560
023564
023570
023572
023600
023604
023606
023612
023614

013701
042701
052701
012702
030237
001411
032701
001402
052701
010177
042701
005201
106302
103361
005037
005002
005037
005037
005003
012737
012700
005020
022700
001374
005000

023616
023624
023632
023640
023646

012777
012777
013777
013777
052777

023654
023662
023666
023674
023676
023700
023704

113777
106427
032777
001410
104414
005237
102770
105237
100365
104011
104400

001366
000200
000100
000001
001364

#TST37 ,NEXT
MODE
6

000001

2s:
3s:

001372
024660
024662
000040
001422

HACRO

MOV
BIC
BIS
MOV
BIT
BEQ
BIT
BEQ
BIS
MOV
8IC
INC
ASLB
8cc
CLR
CLR
CLR
CLR
CLR
MOV
MOV
CLR

1s:

000200
156312
000200

001376

001462

CMP

156252
156240
156234
156232
156166
;

001364
000000
000100

END

156174

156146

024660

6$:
:

END

-$MRESET-3z2xz223323322333232s2szzamzxx

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

PAR,R1
#0DDPAR,R1
#PARITY,R1
#1,R2
R2.LINE
3
#BITO,R1
2$
#00DPAR,R1
R1,8DZLPR
#0DDPAR,R1
R1
R2
1
SAVLIN
R2
COUNTO
COUNT1
R3
#40, XMTCNT
#T00,RO
(RO)~

#STOP,RO

;USE R1 TO BUILD PARAMETERS TO BE LOADED
;MAKE SURE GOD PARITY ISN'T SET
iMAKE SURE PARITY IS TURNED ON
:USE R2 AS A LINE POINTER
;IS THIS A VALID LINE?
:IF NOT, SKIP TO THE NEXT LINE
;IS THIS LINE AN O0DD LINE?
;IF IT'S EVEN, USE EVEN PARITY
;IF IT'S ODD, USE ODD PARITY
;LOAD THE LINE PARAMETER REGISTER
:SET UP THE NEXT PARITY TO EVEN
;POINT TO THE NEXT LINE
;MOVE THE BIT POINTER IN R2 TO THE NEXT LINE
;IF WE'RE NOT DONE, GO CHECK THE NEXT LINE
;CLEAR THE LINE NUMBER INDICATOR
;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS
; ::2-10-84 ECB REV I
;i ::2 10-84 ECB REV I
;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS
; TRANSMIT A BINARY COUNT PATTERN(C00-40)
;POINT TO THE DATA AREA
;CLEAR A DATA WORD

:FINISHED ?

.-6
RO

MOV
MOV
MOV
MOV
BIS

#XMTSRV,8DZTIV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
#PARESE,3DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;:SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
sSET TRANSMITTER INTERRUPT PRIORITY
#RIE!TIE!MSENAB,80ZCSR ;ENABLE THE DEVICE

"ACRO

BVS
INCB

024662

THIS TEST

BNE
CLR

MOvB
MTPS
BIT
BEQ
DELAY
INC

5¢:

PPN

Zx=FTzTTTZTTZITTIZISISTE

;NO
;CLEAR OFFSET
:

024664
024506
030334
030334
040140

;POINT TO THE START OF THE NEXT TEST
;IS THIS STAGGERED MODE?
;IF NOT, DON'T DO THIS TEST

DCLASM
END

;LOAD THE NUMBER OF

=*zszazzxaxzzxzaxaz2222

;

023706
023712
023714
023716

SEQ 99

02-JUL-85
16:19
PAGE 84 6
CZDZA DZ11 DEVICE DIAGNOSTICS.

BPL
ERROR
ADVANCE
O

MACRQ

-$INTSET-:a::::s:::::s:::::::::::z:::

Z32TXZTTITTTSTETITIETXZ

LINE,9DZTCR
#0
#RIE,3DZCSR
6%
COUNTO
5%
COUNT1
5%
11

;ENABLE ALL SELECTED LINES
;ALLOW INTERRUPTS
;WHEN RX DONE; RIE WILL =0
;:BR IF ALL DONE
i i: 2-10-84 ECB REV I

;#RX FAILED TO FINISH (INTERRUPT)
;ADVANCE LOQP

2z=-szzz23=s=2=2==z=2=

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL-85

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

9641
(2
9642

:
ihhdhbbbrdbbbbhtnbitinitss

(S)

(2)
(2)
(1)

9654
9655
9656
9657
9658
9659
9660
9661
9662
9663
9664
9665
9666
9667
9668
9669
9670
9671
9672
9673
9674
9675
9676
9677
9678
9679
9680
9681

9682
9683
9684
9685
9686
9687
9688
9689
9690

-$XZ-sr33xxz2x232ss323ssssxusuznanz
TEST

1 &

9643
9644
9645
9646
9647
9648
9649
9650
9651
9652
9653

(4)

SEQ 100

PAGE 84-7

ssstsbdbsbabsntddbddbbbbbdbidsns

21-FEB-84
:» ECB
;% BAUD RATE TIMING TEST.
THIS TEST ADDED IN ORDER TO TEST CRYSTAL
i SPEEDS.
IT LOOKS FOR EITHER A KW1iL OR KW11P.
IF EITHER IS AVAIL.

THEN

THE

TEST

RAN.

NEITHER

AVAILABLE,

THEN

TEST

NOT

RAN.

;% KR
18-JUN-84
:* ADDED NUMBERS IN TTABLE AND NOW TEST ALL LINES AT ALL BAUD RATES
i* INSTEAD OF JUST LINE O AT ALL BAUD RATES.

s:%

023720
023722

000004
012737

TEST 37

;;ttttt‘tt“tttttttttt‘tt“‘tttttttt‘

000037

001122

TS737:
;

t‘t“tt‘tttt“‘tiiiit“““t

SCOPE
MOV

END

MACR)

#37,$TSTNM

;LOAD THE NUMBER OF THIS TEST

SS$EQP,NEXT

;POINT TO THE END-OF -PASS HANDLER

=z=xzzz=x=32zxz23233322

023730

012737

004712

001360

MOV

023736
023744
023746
023750
023750
023754
023760
023766
023772
024000
024006
024012
024016

032777
001001
104400

000040

155214

8IT
#BITS,
BNE
1s
ADVANCE

106427
013700
012737
012701
012737
012737
005037
005037
012711

000000
000004
024024
177546
024100
000340
024110
024106
000100

024022

000473

024024
024026
024034
024042
024050
024054

022626
012737
012737
012737
012701
012761

-$X7-2s3222332338x33323sssxssanaaxs

024070
024100
000340
172540
177777

1$:

MTPS
MOV
MOV
MOV
MOV
MOV
CLR

000004
000100
000102

CLR
MOV

000004
000104
000106

10$:

000002

ASWR

40
844 ,R0
£10¢,804
#177546 ,R1
#CLKSRV, 84100
#340,94102
BCOUNT

CCOUNT
#100,(R1)

;RUN THIS TEST?
; BRANCH IF YES
; OTHERWISE, BYE
;:OROP PRIORITY TO O
;:SAVE CONTENTS OF LOCATION 4.
;SET TO TRAP IF NOT KW1ilL
;GET KW11L ADDRESS.
;SET FOR INTERRUPT.
;PRORITY 7 ON INTERRUPT.
;OUR OWN CLOCK TICK CCUNTER

;CHAR SENT COUNTER
;THIS WILL CAUSE A BOMB TO OCCUR IF

;THE KW11lL DOES NOT EXIST
;BUT IF ITS THERE, THEN WE'RE STARTED.

TCCONT

;START TEST

CMP
MOV
MOV
MOV
MOV
MOV

(SP)+,(SP)«
#20$,844
#CLKSRV, 84104
#340,84106
#172540,P1
#-1,2(R1)

;:READJUST STACK
;SET TO TRAP IF NO KW11P
:SET FOR INTERRUPT.
;PROITY 7 ON INTERRUPT.
;KW11P ADDRESS.
:SET THE & OF COUNTS FOR INTERRUPT

;NOTE,

024062

012711

024066

000451

024070
024072
024076

022626
010037
104400

024100
024104

005237
000002

000133

000004

024106

208 :

CLKSRV:

IF KW11P DOES NOT EXIST,

(1)

THEN

MOV

#133,(R1)

;WE WILL BOMB FROM THIS PLACE.
;SET INTERRUPT ENABLE,UP COUNT,REPEATED

TCCONT

;START

cMP
(SP)+,(SP)+
MOV
RO,8%4
ADVANCE

INC

RTI

CCOUNT

: INTERRUPT
,LF CLOCK,
TEST.

AND RUN.

;READJUST STACK, NO CLOCKS AT ALL!
;RESTORE LOCATION 4
;:GET 0UT.

;:CLOCK INTERRUPTS TO HERE.,

:THEN EXIT.

UPDATE COUNT.

CZDZA-1I0

CZDZAI.P11
9691

9692
9693
9694
9695
9696

024106

024110
024112
024114

MACY11 30A(10%2)

02-JUL -85 16:17
000000

16:19

SEQ 101

PAGE 84-8

CZDZA DZ11 DEVICE DIAGNOSTICS.
CCOUNT:

000000
000000
000000

BCOUNT:
DCOUNT:
ECOUNT:

.WORD
.WORD
.WORD
.WORD

; INCREMENTED BY CLKSRV.

C
0
0

#CLOCK TICKS.

;USED BY TCCONT AS TIMER.
;USED BY TCCONT AS TIMER.
;USED BY ERROR REPORTING.

i
; THESE NUMBER WHERE WORKING GREAT ON A PDP-11/24 RUNNING AT 60 HERTZ

9697

02 JUW -85

9698
9699
9700
9701
3;05
0
9704
9705
9706
9707
9708
9709
9710
9711
9712
9713
9714
9715
9716
9717
9718
9719
9720
9721
9722
9723
9724
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734

;TTABLE: .WORD
:
.WORD
H
.WORD
H
.WORD
H
.WORD
H
:
.WORD
H
.WORD
:
.WORD
:
.WORD
H
.WORD
:
:
.WORD
H
.WORD
:
.WORD
:
.WORD
:
.WORD
i -

024116
024122
024126
024132
C24136

000005
000007
000013
000014
000016

000007
000014
000021
000024
000025

024142
024146

000035
000072

9735
9736

024152
024156

9737
9738
9739
9740
9741
9742
9743
9744
9745
9746

S.., 7.
7.. 9.
11., 13,
13., 15,
15., 17.

;COUNT
;COUNT
;COUNT
;:COUNT
;COUNT

OF
OF
OF
OF
OF

CHAFS
CHARS
CHARS
CHARS
CHARS

OUT
OUT
OUT
QUT
OUT

FOR S0 BAUD
FOR 75 BAUD
FOR 110 BAUD
FOR 134.5 BAUD
FOR 150 BAUD

29., 32.
59., 62.
119., 122.
179., 182.
199., 202.

;COUNT
:COUNT
;COUNT
;COUNT
;COUNT

OF CHARS
OF CHARS
OF CHARS
OF CHARS
OF CHARS

OUT
OUT
QUT
QUT
OUT

FOR 300 BAUD
FOR 600 BAUD
FOR 1200 BAUD
FOR 1800 BAUD
FOR 2000 BAUD

239.,
359.,
479.,
719.,
959.,

;COUNT
;COUNT
;COUNT
;COUNT
;COUNT

OF
OF
OF
OF
OF

QUT
QUT
OUT
QUT
OUT

FOR
FOR
FOR
FOR
FOR

242.
362.
482,
722.
962.

CHARS
CHARS
CHARS
CHARS
CHARS

;e
; THESE NUMBER WHERE MODIFIED SO THEY WOULD WORK ON
; S0 HERTZ MACHINE (TESTED ON PDP-11/70) AS WELL AS
; AT 9600 BAUD THERE IS ABOUT 17«¢ ERROR.
; THE LOWER THE BAUD RATE THE LESS THE ERROR.
:
: THIS TABLE WAS REDONE TO INCLUDE THE 2% ALLOWABLE
; POSSIBILITY OF AN INCOMPLETE TICK AT THE START OF
HE
TTABLE:

ERROR RATE,
THE TIMING.

000050
000114

.WORD
.WORD

29.,
58.,

;COUNT OF CHARS OUT FOR 300 BAUD
;COUNT OF CHARS OUT FOR 600 BAUD

000164
000255

000224
000334

.WORD
.WORD

116.,
173.,

148.
220.

:COUNT
;COUNT

OF
OF

CHARS OUT
CHARS QUT

024162

000300

000364

.WORD

192.,

244,

;:COUNT

CHARS QUT FOR 2000 BAUD

024166
024172
024176
024202
024206

000347
000533
000716
001265
001635
024212

000444
000664
001104
001544
002204

.WORD
.WORD
.WORD
.WORD
.WORD
=.

231.,
347.,
462.,
693.,
925.,

292.
436.
580,
8638,
1156,

;COUNT OF CHARS
;COUNT OF CHARS
;COUNT QF CHARS
;COUNT OF CHARS
;COUNT OF CHARS
;END OF TTABLE

OUT
OUT
QUT
OUT
QUT

FOR
FOR
FOR
FOR
FOR

PLUS THE

;COUNT
;:COUNT
;COUNT
;COUNT
;:COUNT

OUT
QUT
OUT
OUT
OUT

A
60 HERTZ.

5., 7.
7., 12.
11., 17,
12.. 20.
14., 21.

ENDTTB

CHARS
CHARS
CHARS
CHARS
CHARS

BAUD
BAUD
BAUD
BAUD
BAUD

.WORD
.WORD
.WORD
.WORD
.WORD

40,
76.

OF
OF
OF
OF
OF

2400
3600
4800
7200
9600

FOR
FOR

FOR
FOR
FOR
FOR
FOR

SO BAUD
75 BAUD
110 BAUD
134.5 BAUD
150 BAUD

1200 BAUD
1800 BAUD

2400
3600
4800
7200
9600

BAUD
BAUD
BAUD
BAUD
BAUD

CZDZA-I0
CZ0ZAI P11
9747
9748
9749
9750
9751
9752
9753
9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767
9768
9769
9770
9771
9772
9773
9774
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792

9793
9794
9795
9796
9797
9798
9799
9800
9801
98C2

MACY11 30A(1052)
02-JUL -85 16:17

SEQ 102

02-JUL-85
16:19
PAGE 84-9
CZDZA DZ11 DEVICE DIAGNOSTICS.

; CHECK OUT THE CLOCK
024212
024216
024222

010037
005037
012737

000004
024106
177750

024230
024234
024236
024242
024244
024250
024252
024254

005737
001010
005237
001372
005237
001367
005011
104400

024106

TCCONT:
024110
10s:

024112

024110

MOV
CLR

RO, 844

MOV

#-30,8COUNT

TST
BNE
INC
BNE
INC
BNE
CLR

ADVANCE

;RESTORE LOCATION 4.
:START WITH LINE CLOCK AT ZERO COUNT
:30-18MS LOOPS TO WAIT

CCOUNT

;WAIT FOR COUNT T0 GO TO 1 TO AVOID
;USING THAT DANGEROUS FIRST COUNT!
;BUT AS A SAFE GUARD,
;:DON’'T HANG HERE

20$

DCOUNT
10¢
BCOUNT
10¢
(R1)

;:CLEAR CLOCK
;CLOCK NOT WORKING RIGHT- ABORT TEST
;NOT THE FAULT OF THE D2!

START XMITTING CHARACTERS TO ALL 8 LINES AT ALL BAUD RATES.
IF THE NUMBER OF CHARACTERS TRANSMITTED IS BETWEEN THE
TWO NUMBERS IN TTABLE THEN THE LINE IS OK, ELSE ERROR

024256
024264
024270

012777
012700
012703

000050
000030
000001

024274
024300

110377
012702

024304
024310
024314

155556

208:

MOV
MoV
MOV

450, 8D2CSR
#30,R0
#1.R3

:SET MSE AND MAINT,
;SET BAUD RATE S50, 8 BIT CHAR LEN
;HOLDS CURRENT LINE, START AT LINE O

155556
024116

30¢:

Move
MOV

R3,80ZTCR
#TTABLE,R2

;ENABLE THE NEXT LINE TO XMIT
:GET TABLE OF EXPECTED RESULTS

010077
005037
005037

155542
024110
024106

40%

MOV

RO ,80ZLPR

;UPDATE THE BAUD RATE AND NEXT LINE
;REUSE TIMER AS XMIT CHAR COUNTER
;CLEAR CLOCK INTERRUPT COUNTER

024320
024326
024330
024334
024336
024344
024350
024352
024354

022737
001413
005777
100371
112777
005237
102363
005011
104400

000074

#60. ,CCOUNT

;LOOP FOR 60 CLOCK TICKS
;EXIT WHEN THAT OCCURS.
;READY TO XMIT A CHAR?
;NO, THEN WAIT

024356
024362
024370
024372
024376
024400
024404
024406
024414
024416
024422
024426

005037
022737
001403
005777
100367
023712
103422
023762
101016
062700
062702
022702

CLR
CLR
024106

SOs$:

155506
000101
024110

155522

CMP
8EQ
TST
BPL
Move

INC
8vC
CLR

ADVANCE

024106
000074

024106

60$:

155444
024110
024110
000400
000004
024212

65%:
000002

CLR
CMP
BEQ
TST
BPL

CHp
BLO
CMP
BHI

ADD
ADD

cMP

BCOUNT
CCOUNT

604
80ZCSR
50
#101,80ZTDR

BCOUNT
50¢

(R1)

;XMIT

A CHAR

;UPDATE XMIT COUNT, SHOULD NOT OVERFLOW.
;IF NO OVERFLOW, CONTINUE
;IF OVERFLOW, CLOCK COULD BE BAD, CLEAR IT
;ABORT THIS TEST IF CLOCK 10-2.°

CCOUNT

BCOUNT, (R2)
708
BCOUNT ,2(R2)
708
#400,R0

¢4 ,R2

®ENDTTB,R2

;LOCP FOR 60 CLOCK TICKS
;EXIT WHEN THAT OCCURS.

;

WAIT FOR LAST

CHARACTER TO GO

; SPIN IF NOT DONE
:IF COUNT < LOW
H
THEN ERROR
;IF COUNT > HI
;
THEN ERROR
;NEXT BAUD RATE
;GET NEXT PAIR OF NUMBERS
;HIT END OF TTABLE?

CZDZA-I0

CZDZ2A1.P11
9803
9804
9805

9806
9807
9808
9809
9810
9811
gelg
81

024432
024434
024440
024442
024444
024446
024450

MACY11 30A(1052)

02-JUL -85 16:17
001324
042700
005200
106303
103313
005011
104400

02-JUL-85

BNE
BIC
INC
ASLB
8cC
CLR
ADVANCE

007400

H
;
H

9835
9836

9837
9838

9839
9840
9841
9842
9843
9844
9845
9846
9847
9848
9849

9850
9851
9852
9853
9854
9855
9856
9857
9858

'b—-

024452
024454
024460
024466
024472
024476
024500
024504

005011
011237
016237
042700
010037
104030
004737
104400

024114
000002
177770
001372

SEQ 103

PAGE 84-10

CZ0ZA DZ11 DEVICE DIAGNOSTICS.

9814

9815
9816
9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828
9829
9830
9831
9832
9833
9834

16:19

ERROR

708:
024112

007642

408
47400,R0
RO
R3
304
(R1)

:NO, CONTINUE TESTING ,HIS LINE
:BRING THE BAUD RATE BACK TO 50
sAND GET NEXT LINE NUMBER
+MOVE ONTO THE NEXT LINE
;IF NOT DONE WITH ALL LINES THEN CONTINUE
;ELSE STOP CLOCK
;AND DO THE NEXT TEST

COUNTER NOT IN THE RANGE OF THE NUMBERS IN TTABLE

CLR
MOV
MOV
8IC
MOV
ERROR
JSR
ADVANCE

(R1)
(R2) ,ECOUNT
2(R2),DCOUNT
#tC<7>,RO
RO,SAVLIN
30
PC,SERV.G

;STOP CLOCK.
:MOVE LOW COUNT FOR ERROR MESSAGE
:MOVE HIGH COUNT FOR ERROR MESSAGE

;:STRIP EVERYTHING BUT LINE NUMBER
;MOVE LINE NUMBER FOR ERROR MESSAGE
;COUNT TOO HIGH OR LOW
;<G>
;D0 NEXT

TEST

;
:RECEIVER SERVICE ROUTINE(PARITY TEST ONLY)
.
024506
024512
024514
024516
024522
024526
024530

024532
024534

017704
010401
000301
042701
010137
005704
100401

104023
006301

024536
024542
024544
024552
024554
024560
024564
024570
024572
024576
024600
024604
024610
024614

032704
001013
013737
010405
042705
156105
052705
104006
126104
001407
116105
042705
042704
104005

024622
024624
024630
024634
024642
024644
024646

005203
005037
005037
032777
001005
020203
001003

024616

005261

155334

PARESE:

177770
001372

10%:

010000
002046

001400

000377
001442
110000
001442

118:

001442
177400
177400

001442
024660
024662
040000

12¢%:

155200

MQY
MOV
SWAB
8IC
MOV
TST
BMI

80ZRBUF ,R4
R4 ,R1
R1
#tC<?> ,R1
R1,SAVLIN
R4
104

81T
BNE
MOV
MoV
8IC
BISB
8IS
ERROR
CMPB
BEQ
MOv8
81C
BIC
ERROR

OPARER,R4
;:PARITY ERROR SHOULD BE SET. IS IT?
11
:IF SO0, GO CHECK CHARACTER
DZRBUF ,REGIST
:SET UP FOR THE ERROR MESSAGE
R4 ,RS
#377,.RS
TRO(R1),R5
;GET THE CORRECT CHARACTER
QDVALID!PARER,RS ;BUILD WHAT WAS EXPECTED
6
:#ERROR- DID NOT GET CORRECT INFORMATION
TRO(R1),R4
;CHECK THE CHARACTER. IS IT CORRECT?
124
:IF SO, GO SET UP NEXT CHARACTER
TRO(R1),RS
;LOAD THE CHARACTER FOR ERROR REPORTING
#tC<377>,RS
;CLEAR SIGN EXTEND
otC<377>,R4
;:REMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER
S
:DATA ERROR

INC
CLR
CLR
81T
BNE
CMP
BNE

R3
COUNTO
COUNT1
@TIE,8DZCSR
13
R2,R3
13$

ERROR
ASL

INC

23
R1

TRO(R1)

;GET THE CHARACTER
;COPY THE RECEIVED INFORMATION
;:GET THE LINE NUMBER IN THE LOWER BYTE
;ISOLATE THE LINE NUMBER
sFILL LOC. FOR ERROR PRINTQUT
;WAS DATA VALID?
;BRANCH IF YES

;ERROR - DATA VALID NOT SET!
;ALIGN IT ON A WORD BOUNDARY

;:SET UP THE NEXT CHARACTER

sADD TO THE TOTAL RECEIVED COUNT
;RESET COUNTERS TO NEXT
;RECIEVER INTERRUPT
sARE TRANSMISSIONS DONE?
:IF NO, GO RECEIVE SOME MORE
$ARE ALL CHARACTERS RECEIVED?
+IF NO, GO RECEIVE SOME MORE

CZ0ZA-I0
CZDZAI P11
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880
9881
9832
98383
9884
9885
9886
9887
9888
9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904
9905
9906
9907
9908

024650

024656
024660
024662

MACY11 30A(1052)

02-JW -85 16:17
042777
000002
000000
000000

000100

SEQ 104

02-JWL -85
16:19
PAGE 84-11
CZDZA DZ1) DEVICE DIAGNOSTICS.

155164

133
COUNTO:
COUNT1:

8IC

RTI
0
O

#RIE,S80ZCSR

;:DISABLE RECEIVER INTERRUPTS

;GO BACK TO RECEIVER WAIT LOOP

; TRANSHMITTER INTERRUPT SERVICE
024664
024670
024672

024676

024702
024706
024710
024714
024720
024722
024730

117701

100411
013700
042701
010137

104003
010037
042701
006301
116177
005261

155154

XMTSRV:

001372
177770
001372
001372
177770

001422
001422

14:

MOVB
BMI
MOV
8IC
MoV
ERROR
MOV
BIC
ASL

8HDZCSR,R1
1s
SAVLIN,RO
@tC<7> ,R1
R1,SAVLIN
3
RO,SAVLIN
€tC<7>,R1
R1

INC

TOO(R1)

mMove

155136

TDO(R1),80ZTOR

;GET THE LINE NUMBER. IS THE TRANSMITTER
;REALLY READY? IF SO, GO LOAD THE CHARACTER
;ADJUST LOCATION SAVLIN
;ISOLATE THE LINE NUMBER
;FOR ERROR PRINTOUT
1 TRANSMITTER NOT READY- FALSE INTERRUPT
sRESET SAVLIN TO PREVIQUS VALUE
;sISOLATE THE LINE NUMBER
sMAKE SURE IT REFERENCES A WORD BOUNDARY

;LOAD THE CURRENT CHARACTER FOR THIS LINE
:SET UP NEXT CHARACTER FOR THIS LINE

105808882880 48840444088808084008484840080840088888888800800008000040

1080880800420 8888 4488884808440 880040000085800848888402000888080004

024734
024742
024744
024750
024752
024754
024756
024760
024762
024766
024770

023761
001015
012700
006201
005301
100402
006300
000774
140077
001003
042777

001376

001422

CMP
BNE

000001

2%:

3%:

155070
040000

155044
(SRR

024776

005202

44:

XMTCNT,TDO(R1)
43

000002

025002
025010
025014
025020

012737
006037
006037
005337

1,RO
R1
R1

;SET UP A DESELECTION POINTER
iGET THE LINE NUMBER AGAIN
:REDUCE THE COUNT. WAS THIS THE LINE?

ASL

iMOVE THE POINTER TO THE NEXT LINE

;GO CHECK THE NEXT LINE

BNE
8IC

44
#TIE,802CSR

:IF MORE LINES ARE ACTIVE , GO CONTINUE TRANSMIT
;IF NOT, DISABLE TRANSMITTER INTERRUPTS

BMI

B8IC8

025024
0235026

001371
000207

001222

BUILD:
1%:

;IF SO,

RO,80ZTCR

GO DISABLE THE EMABLE BIT FOR IT

:DISABLE THE LINE POINTED TO BY RO

AARERRAAS AR RMARSRARAAASRAEA0A4A0AE
400000004000 000000004042

INC

RTI

000004
001224
001220
001222

;HAVE WE DONE ALL PATTERNS ON THIS LINE?
+IF NOT, KEEP ON TRANSMITTING

MOV
ASR
DEC

(BEERAARAE AR RANARERMNARL

025000

:(REV, FO: DELETED

;UP THE NUMBER OF TRANSMISSIONS
A EAA0A

0000000000000 00000d00

(REV.

000000000448

;RETURN TO THE TIMING LOOP

MOV
ROR
ROR
DEC

#4,3TMP2
$TMP3
$THPL
$THP2

BNE
RTS

13
PC

tROTATE 4 BITS BACK INTO $TMPQ
:GET THE BITS FROM $TMP3, THE MIGH BYTE
;:OF THE RELATIVE TIME COUNTER. PUT THEM BACK
;INTO $TMP1 USING THE CARRY BIT WITH

;ROTATE INSTRUCTIONS

;REDUCE COUNT. ALL BITS BACK? IF NOT,
;RETURN TO CALLING TEST

GET MORE

FO)

INC

C2D2A-10
CZD2AI P11
9910
911
9912
9913

9914
9915
9916
9917
918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936
9937
9938
9939
9940
9941
9942
9943
9944
9945
9946
9947
9948
9949
S0
9951
9952
9953
9954
9955
9956

MACY11 30A(10S2)
02-JUL -85 16:17

SEQ 105

02 JU -85
16:19
PAGE 84-12
CZDZA DZ11 DEVICE DIAGNOSTICS.

+RECEIVER SERVICE ROUTINE
025030
025034
025036
025040
025044
025046
025050
025054
025056
025062
025064
025066
025070
025074
025076
025102
025104
05110
025114
025120
025124
025130
025132
025136
025140
025146
025150
025152
025154
025156

025162

025166
025174
025200
025202
025204
025¢12
025214
025220
025224
025230
025232
025240
CcsS242

105777
100401
104004
017704
100401
104023
032704
001403
013700
104002
010401
000301
042701
006301
120461
001413
116105
042705
042704
010137
006237
104005
005261
005203
032761
001402
020203
001401
000002
004737

013700
013760
005737
001414
005740
026037
101007
016005
010137
006237
104021
042777
000002
000000

155006

RXISRL:

155002

18:

070000

2s:

MOV

3s:

177770

ERROR
MOV
SWAB
BIC
ASL

001442

CMPB
8EQ

001442
177400
177400
001372
001372

MOVB

BIC
B8IC
MOV
ASR

001442

025242
001220
025242

002102

001220

INC

S$:
6$:

INC
B8IT
BEQ
CMP
BEQ
RTI
JSR

7s:

OFFSET:

8DZCSR
18

¥VZRBUF ,R4
¢

8tC<?> ,R1

R1
R4,TRO(R1)
43
TROCR1),RS
9tC<377>
RS
9tC<377>
R4
R1,SAVLIN
gAVLIN

TRO(R1)
R3
€20, TRO(R1)
5$
R2,R3
64
PC,BUILD

OFFSET RO

TST
BEQ

OFFSET
7

1o
o,
BHI

TMTBL(RO), $TMP1
74
TMTBL(RO),RS
R1,SAVLIN
SAVLIN
21

+IS THE RECEIVER REALLY READY?
+IF SO, GO SERVICE IT
1#ERROR- RECEIVER DONE FLAG ISN'T SET
:SAVE THE RECEIVER INFORMATION
:IF IT WAS VALID, GO PROCESS IT
;ERROR
DATA VALID WASN'T SET

QOVRRUN!FRMERR!PARER.R4 ;ARE ANY ERROR FLAGS SET?
3
:IF NOT, GO CONTINUE PROCESSING
DZRBUF ,RO
;SET UP FOR ERROR REPORTING
2
;ERROR- RECEIVER ERROR FLAG SET
R4 ,R1
;:COPY THE RECEIYER INFORMATION
R1
:GET THE LINE NUMBER IN THE LOWER BYTE

MOV
MOV

TS7T

002102
001372
001372

154602

ERROR

43 :

001442

025002

000140

BIT

B8EQ

002046

000020

TST8
BMI
ERROR
MOV
BMI
ERROR

$TMP1, TMTBL(RO)

-(RO)

;ISOLATE THE LINE NUMBER
:ALIGN IT ON A WORD BOUNDARY
;IS THE CHARACTER WHAT IT SHOULD BE?
:IF 50,G0 CONTINUE PROCESSING
:GET WHAT WAS EXPECTED FOR ERROR REPORTING
;ELIMINATE PROPAGATED SIGN
sISOLATE THE ACTUAL CHARACTER
;:GET THE LINE NUMBER OF THE RECEIVER ERROR
sALIGN IT CORRECTLY FOR REPORTING
:*DATA ERROR
:SET UP THE NEXT EXPECTED CHARACTER
; INCREMENT THE COUNT OF RECEIVED CHARACTERS
sHAVE ALL CHARACTERS BEEN RECEIVED?
:IF NOT, GO RECEIVE SOME MORE
;HAVE WE RECEIVED ALL CHARACTERS?
:IF SO,GO DETERMINE THE TIMING
;GO _CONTINUE TIMING AND ALLOW INTERRUPTS

;GET THE RELATIVE TIME (SIGNIFICANT BITS)

:GET POINTER

;s SAVE THIS TEST'S TIME
;FIRST TEST?
:IF NOT, GO CHECK THE TIME
;:POINT 7O THE PREVIOUS
TIME TAKEN
:IS THIS TIME WHAT IT SHOULD BE?
:IF SO, GO TO THE NEXT TEST
;PLACE WHAT WAS EXPECTED IN RS
;GET THE LINE NUMBER OF THE RECEIVER

+MAKE SURE

IT'S

; TIMING ERROR

4RIE !MSENAB,3DZCSR

;DISABLE

THE

THE LINE NUMBER

DEVICE

;:RETURN TO THE PROGRAM

A
A

ans

C20ZA-10
CZ02A1.P 11

MACY1!

30A(1052)

02 JWL -85 16:17

02 JUW

9958
9959
9960
9961
9962
9963
9964
9965
9966
9967
9968
9969
9970
9971
9972
9973
9974
9975
9976
9977
9978
9979
9980
9981
9982
9983
9964
9985
9986
9987
9988
9989
9990
9991
9992
9993
9994
9995
9996
9997
9998

;0211 ECHO/CABLE TEST

;¢STARTING PROCEDURE
;¢LOAD PROGRAM
:*LOAD ADDRESS 000210

; #PRESS

START
; sPROGRAM WILL TYPE DZ11 ECHO/CABLE TEST
WHICH TEST- ECHO OR CABLE
: *PROGRAM WILL TYPE
;oTYPE IN
€
OR
C
RESPECTIVELY
WILL TYPE 'VECTOR ADDRESS-*
;«TYPE IN THE ADDRESS OF THE RECEIVER INT“RRUPT

; ¢PROGRAM
;s TYPE IN

;:sFOR THE

; sPROGRAM
;s TYPE IN

VECTOR
0Z11 TO BE TESTED, FOLLOWED € <CARRIAGE RETURN>
WILL TYPE “CONTROL REGISTER ADDRESS-"
THE ADDRESS OF THE SYSTEM CONTROL REGISTER
DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
WILL TYPE “LINE NUMBER-‘
THE LINE NUMBER TO BE TESTED (IN OCTAL)

:¢,FOLLOWED B8Y <CARRIAGE RETURN>
:¢PROGRAM WILL TYPE “BAUD RATE-"

;#TYPE

THE

BAUD

RATE

THE

DZ11

TERMINAL

;¢,FOLLOWED BY <CARRIAGE RETURN>
;#THE FCLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL
W

O
W
s
We

BRI
N

@
W

BN BN BN

@
Wt
We

134.5)

4800
7200
9600
ALL OTHERS ARE REJECTED

®e

(ROUNDED OFF

150
300
600
1200
1800
2000
2400
3600

BRI

75
110
135

;#PROGRAM WILL TYPE

16002
10003
16004
10005
10006
10007
10008
10009
10510
10011
10012
10012
10014
10015
10016

SEQ 106

85
16:19
PAGE 85
CZ0ZA DZ11 DEVICE DIAGNOSTICS.

“ECHO”

“CABLE TEST” TO INDICATE THAT TESTING HAS STARTE

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
;:SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM FLAGS AND COUNTS
025244
025250
025254
025262
025266
025272
025276

012706
106427
012737
005037
005037
005037

105037

001120
000340
025244
027440
001242
001132

001123

XSTART:
001126

MOV
MTPS
MoV
CLR
CLR
CLR

CLRB

#STACK,SP
aPR7
OXSTART, $LPADR
STFLG
$PASS
$ERTTL

$SERFLG

:SET UP PROCESSOR STACK
;LOCK OUT INTERRUPTS
;SET UP IN CASE OF POWER FAIL
sCLEAR TEST START FLAG
;CLEAR PASS COUNT
sCLEAR ERROR COUNT

sCLEAR ERROR FLAG

CZ02A-10
CZD2AI P11
10017
10018
10019
10020
10021
10022
10023
10024
10025
10026
10027
10028
10029
10030
10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10041
10042
10043
10044
10045
10046
10047
10048
10049
10050
10051
10052
10053
10054
10055
10C56
10057
10058
10059
15060
10061
10062
10063
10064
10065
10066
10067
100¢€8
10069
10070
106071
10072

025302
025306
025314
025316
025322
025326
025330
025332
025334
025340
025342
025344
025346
025350
025352
025354
025356
025357
025360
025362
025364
025366
025370
025372
025374
025375
025376
0.5404
025412
025420
025426
025434
025442
025446
025454
025462
025470
025476
025500
025502
025504
025506
025510
025512
025514
025516
025520
025522
025524
025525
025526
025530
025534
025536
025540
025542

MACY11 30A(1052)
02-JUL -85 16:17

005037
027444
032777
000001
001465
012701
000300
012702
000302
010221
005022
022122
020127
001000
001372
104403
027472
104405
000300
000770
002072
003
004
104403
027514
104405
160000
167710
00.
°
Ou?
001
013737
002042
000002
062737
013737
002046
013737
002046
062737
000002
013737
002056
005237
002060
013737
002056
062737
000002
013737
002066
032777
000002
001427
104403
027700
104416
027436
104403
027622
104415
000062
022600
027454
000
001
104413
005037
027440
104403
027612
104405
000000

SEQ 107

02-JUL 85
16:19
PAGE 8S-1
CZDZA DZ11 DEVICE DIAGNOSTICS.

153644

VEC1:

CLR
BIT
BEQ

VEC2:

MOV

1%:

MOV
MOV

CLR
CMP
CHMP
BNE
INSTR

LAST
4SW00, 3SWR

OTHER
€300,R1
4302 ,R2

R2,(R1).
(R2)»

(R1)+,(R2)»
R1,4#1000

300
DZRIV
3
4

INSTR
MREGAD
PARAM
160000

002046
002046
002052
002056
002056
002060
002066
002066
002062
153462

1
MoV
ADD

DZCSR, DZRBUF

MOV
MOV

DZRBUF ,DZLPR
ODZRBUF ,DZTCR

INC

MOV
ADD
MoV

OTHER:

BAUD:

.BYTE
.BYTE
LINEX:

;CONVERT STRING TO OCTAL

163700
DZCSR

ADD
MoV

TRAPCATCHER

:IN FLOATING VECTOR AREA
;UPDATE THE POINTERS

:INPUT ADDRESS OF DEVICE VECTOR
:MESSAGE "“VECTOR ADDRESS-"
;CONVERT STRING TO OCTAL
;LOW LIMIT
;HIGH
LIMIT
;LOCATIONS 70 BE FILLED
;LS8 MASK
sNUMBER OF LOCATIONS
: INPUT ADDRESS OF DEVICE CSR
sMESSAGE "CONTROL REGISTER ADDRESS

770

.BYTE
.BYTE

;RESTORE

MVECTOR
PARAM

.BYTE
.BYTE

;CLEAR LAST ERROR PC
;IF SWO0=1, GET NEW VECTOR
;AND CSR

&2 ,DZRBUF

;LOW LIMIT
sHIGH LIMIT
sLOCATIONS TO BE FILLED
;LSB MASK
:NUMBER OF LOCATIONS
;:BEGIN BUILDING DEVICE ADDRESSES
:FORM THE READ BUFFER ADDRESS
;REMEMBER THAT THIS IS ALSO LINE PARAMETER REG.
:BEGIN BUILDING TRANSMITTER CONTROL REGISTER

#2,0ZTCR

;FORM

@2 ,0ZTDR
DZTDR,DZMSR
#5W01, aSWR
XBEGIN

;:FORM THE TRANSMITTER DATA REGISTER

DZTCR,HDZTCR
HDZTCR
DZTCR,DZTDR

BIT
8EQ
INSTR
MWHICH
PAWCH
WCHFLG
INSTR
MSPEED
PARMD
50.
9600
.
LINESP
0
1
DEVICE.CLR
CLR
STFLG
INSTR
MLINE
PARAM
0

THE

TRANSMITTER

CONTROL

;BEGIN FORMING TRANSMITTER DATA REGISTER

;RESELECT OF TEST?
; IF NOT, SKIP ASKING WHICH ONE
; INPUT WHICH TEST YOU ARE RUNNING
;:ECHO OR CABLE
:SET FLAG
; THIS FLAG
: INPUT BAUD RATE

iMESSAGE

“BAUD RATE

; CONVERT DECIMAL STRING TO OCTAL

;:LOW LIMIT
sHIGH LIMIT
;LOCATION TO BE FILLED
:LSB MASK
;:NUMBER OF LOCATIONS
;:CLEAR DEVICE
:CLEAR PROGRAM START FLAG
s INPUT LINE NUMBER
;MESSAGE “LINE NUMBER “

; CONVERT
STRING TO OCTAL
;LOW LIMIT

CZDZA-I0
CZDZAI.P1}
10073
10074
10075
10076
100;;
100
10079
10080
10081
10082
10083
10084
10085
10086
1CC87
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097

025544
025546
025550
025551
025552

025556

MACY11 30A(1052)
02-JUL-85 16:17
000007
001372
000
001
004537

106427

.BYTE
027242

000340

025562
025566
025572
025576
025600
025606
025612
025614
025620
025624
025626
025634
025640
025642
025646
025652

012706
005037
005737
001413
012737
005737
001017
005137
104402
000412
012737
005737
001004
005137
104402
000177

027440
027746
153250

025656
025660
025666
025674
025702
025710

104413
012737
013777
013737
053737
013777

000001
027462
027460
027456
001366

XBEGIN:

001120
027442
027436
026314
027440

001126

027440
027773
025656
027440

001126

2%:

1s:

10098

100699
10100
10101
10102
10103
10104
10105

10106

10107
17108
10109
10110
10111
10112
10113
10114
10115
10116
10117
10118
10119
10120
10121
10122
10123
10124
10125
10126
10127
10128

025716

012777

025724
025726
025732
025736
025740
025742
025744
025746
025750
025752
025756
025760
025764
025772
025774
025776
026002
026010
026012
026020

005004
012705
005777
100404
104414
005304
001372
104003
005004
112577
001365
004737
122777
001731
104413
106427
012737
104413
013737
053737

026026

052737

000040

SEQ 108

02-JUL-85
16:19
PAGE 85-2
CZDZA DZ11 DEVICE DIAGNOSTICS.

001122
154162
001366
001366
154134

TEST1:

154116

7
SAVLIN
0
.8YTE
JSR

1
RS,SET

MTPS

APR7

DEVICE.CLR
MOV
#1,$TSTNM
MOV
NUMTCR,aDZTCR
MOV
NUMLIN,PAR
BIS
SPEED,PAR
MOV
PAR,3DZLPR

Mov

AMSENAB,BDZCSR

007642
000377

153166

000340
026752

001360

027460
027456

001366
001366

010000

001366

BIS

3s:

2%:

154110

:LOCK QUT INTERRUPTS

MOV
#STACK,SP
:SET UP PROCESSOR STACK
CLR
LOCKUP
;CLEAR TIMEQUT
TST
WCHFLG
:ECHO OR CABLE TEST ?
BEQ
23
;ECHO
MOV
#TEST2, $LPADR
;CABLE TEST
TST
STFLG
;ARE YOU LOOPING ?
BNE
1s
s YES
CoM
STFLG
:NO
TYPE
+MCABLE
;TYPE CABLE TEST
BR
1
MOV
#TEST1, $LPADR
;:SET UP ECHO TEST
1ST
STFLG
;ARE YOU LOOPING ?
BNE
1s
; YES
COoM
STFLG
;NO
TYPE
MTERM
; TYPE ECHO TEST
JMP
8$LPADR
:START TESTING
;THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME
; (IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER,
:ONE LINE AT A TIME, ANY LINE O THRU 7 (OCTAL)

CLR
R4
MOV
4MQUICK,RS
TST
aDZCSR
BMI
23
DELAY
DEC
R4
BNE
I
ERROR
3
CLR
R4
MOVB
(RS)+,3DZTOR
BNE
3
JSR
PC,SERV.G
CMPB
#377,8SWR
BEQ
TEST1
DEVICE.CLR
MTPS
#PR7
MOV
#XEOP, NEXT
DEVICE.CLR
MOV
NUMLIN,PAR
BIS
SPEED,PAR

030010
154104

sHIGH LIMIT
;LOCATION TO BE FILLED
;LSB MASK
;NUMBER OF LOCATIONS

#RCVON,PAR

;CLEAR D211
:SET TCR BIT
;:SET PARAMETERS
;SET BAUD RATE
;LOAD PARAM.

;SET SCANN ENABLE
:SET MESSAGE BUFFER
; TRDY?
;B8R IF YES
;WAIT
:
;
iNO TRDY SET! WHY?
;RESET COUNTER TO 0O
:LOAD CHAR
;
i <tG>?
:RE-DO QUICK BROWN?
;BR IF REPEAT PATTERN
;LOCK OUT INTERRUPTS

;SELECT LINE # & SET INTERRUPT ENABLE
;SET LINE SPEED AND
;CHARACTER LENGTH (TRANS. & REC.)
iMAKE SURE RECEIVER IS TURNED ON

C2DZA-10
C20ZA1 P11
10129
026034
10130
026042
10131
026050
10132
026056
026062
10133
026070
10134
10135
026074
026100
10136
10137
026102
10138
026106
10139
026112
10140
10142
10142
10143
026116
10144
026122
10145
026124
10146
026126
10147
026134
10148
026136
10149
026140
10150
026146
10151
026150
10152
10153
026152
10154
026160
10155
026166
026174
10156
026202
10157
026206
10158
10159
026214
10160
026216
10161
026220
026226
10162
10163
026234
10164
026236
10165
026240
10166
026244
026246
10167
10168
026250
026256
10169
10170
026262
10171
026264
10172
026266
10173
025270
10174
026272
10175
026300
10176
026306
10177
026312
10178
10179
10180
10181
10182
10183
10184

026314
026320

MACY11 30A(10S52)
02-JUL -85 16:17

013777
012777
013777
106437
012777
104402
105777
100375
005777
004737
000137

105777
100401
104004
017737
100401
104023
032737
001401
104025

113737
113737
042737
042737
000337
023737
001401
104015
012777
123727
001004
104413
012716
000002
005003
013777
005777
100403
005203
001373
104003
113777
012777
005077
000002

106427
012737

001366
026116
027464
030336
000140
027640
153064

154010
154022
154016
153752
1$:

153060
007642
025526

153720

INTSVC:

153714

027466

020000

027466

027466
027466
177600
174377
027466
001372

027470
011262
011262
027466

000040
011262

BIC
8IC

SWAB

CMP
BEQ

ERROR
MOV

153614

CcMPB

000003

153600

027470
000140
153544

153566
153534

1¢:
10s:

2s:

PAR,30DZLPR
;LOAD THE LINE PARAMETER REGISTER
#INTSVC,3DZRIV
;SET UP INTERRUPT SERVICE
PRIO,8DZRIS
;AND LEVEL
90LESS1
;ALLOW INTERRUPTS
4RIE !MSENAB, 8DZCSR ;SET RECEIVER INTERRUPT ENABLE

.MCHAR

9$TKS
1$
9$TKB
PC.SERV.G
LINEX

:TYPE "ANY CHARACTER”
;IF SOMBODY HITS A KEY- GET NEW LINE @&
;LOOP HERE
;CLEAR CHAR
;MAKE SURE IT WASN'T <tG>

i THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE
DZCSR
;TEST REC. FLAG

TST8B
BMI
ERROR
MOV
BMI
ERROR
8IT
BEQ
ERROR
MOVB

027466

027462
153560

MOV
MoV
MoV
MTPS
MOV
TYPE
TSTB
8PL
TST
JSR
JMP

MOvVB

026752

000340
000002

SEQ 109

02-JUL-85
16:19
PAGE 85-3
CZDZA DZ11 DEVICE DIAGNOSTICS.

.+4
4
aDZRBUF ,RECDAT
.+4
23
#BIT13,RECDAT
.+4
25
RECDAT,T8BUF

RECDAT,INBUF

#1C<177> ,INBUF
£174377,RECDAT

RECDAT

SAVLIN,RECDAT
.+4

15
MMSENAB, 9DZCSR

INBUF,
#3

;ERROR - INTERRUPT NOT CAUSED BY FLAG

iNON- VALID CHARACTER
;CHECK FOR FRAMING ERROR
;:BR IF NO ERROR
;EITHER SOMBOOY HIT THE
: "BREAK KEY” OR YOU HAVE AN ERROR!
;MOVE CHARACTER TO OUTPUT AREA
iMOVE CHARACTER TO CHECK FOR tC
;STRIP JUNK PLUS PARITY
:SAVE ONLY LINE
NUMBER

;DOES THE LINE & COMPARE?
: *WRONG LINE NUMBER

iSTART THE TRANSMITTERS SCANNER
;IS IT A #C ?

BNE
1s
;:NO
DEVICE.CLR
MOV
#XEOP, (SP)
;CRUNCH STACK
RTI
CLR
R3
s INITIALIZE DELAY
MOV
NUMTCR,8DZTCR
;ENABLE THE LINE
TST
aDZCSR
; TRANSMITTER READY?
BMI
2%
:IF YES BRANCH
INC
R3
; INCREMENT DELAY
BNE
10¢
;DELAY DONE?
ERROR
3
: TRANSMIT READY NOT SET!
MOVB
TBUF ,8DZTDR
: TRANSMIT THE -CHARACTER
MOV
#RIE 'MSENAB,DZCSR
;RESTART THE RECEIVER
CLR
aDZTCR
;:CLEAR TCR BIT
RTI

; THIS TEST TRANSMITS A BINARY COUNT PATTERN
;VIA INTERRUPT MODE TO THE RECEIVER
i...THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR

001122

TEST2:

MTPS
MOV

HPR7
#2,$TSTNM

;DISABLE INTERRUPTS

CZ0ZA-I0
CZDZAI.P11
10185
10186
10187
10188
10189
10130
10191
10192
10193
10194
10195
10196
10197
10198
1199
10200
10201
10202
10203
10204
10205
10206
10207
10208
10209
10210
10211
10212
10213
10214
10215
10216
10217
10218
10219
10220
10221
10222
10223
10224
10225
10226
10227
10228
10229
10230
10231
10232
10233
10234
10235
10236
10237
10238
10239
10240

MACY11 30A(1052)
02 JUL-85 16:17

026326
026334

012737
104413

026752

026336
026344
026352
026354
026360
026362
026366
026370
026374
026376
026400

012737
113777
005005

026344
027462

026402
026404
026406
026414
026422
026430
026436
026444
026452
026460
026466
026470
026472
026500

153705

000305
153705
104414
017704
020504
001401
104022

026504

104401
104413
013737
053737
052737
052777
012777
013777
012777
013777
005001
005002
013777
106437
013777

026512
026516
026520
026524
026530
026534
026540
025542
026544
026546
026552
026556
026562
026564
026566
026574
026576
026600
026606

105777
100006
005777
004737
000137
005237
001364
104011
104413
000137
005037
105777
100401
104004
017737
100401
104023
032737
001401

SEQ 110

02-JUL-85
16:19
PAGE 85-4
CZDZA DZ11 DEVICE DIAGNOSTICS.
001360

001362
153506

MOV
OXEQP, NEXT
DEVICE.CLR

:
;#TEST TO VERIFY THAT SETTING DTR FOR A GIVEN LINE
;«WILL BRING UP “CO"” AND
RING' FOR THE SAME LINE
;#THE DIST PNL MUST HAVE JUMPER FROM DTR TO RQST TO SEND
;#IN ORDER FOR THIS TEST TO WORK!

1¢:

027462
027462

153466

MOV
Move

CLR
8ISB

001366
001366
001366

001366
030336
027462

;PUT

SWAB

NUMTCR,RS

CHpP

R5,R4

BEQ
ERROR

027456
027460
010000
040140
026552
027464
026732
027464

:
;BUILD EXPECTED

BISB
DELAY

MOV

2$:
3s:

#1%,L0CK
NUMTCR,9HDZTCR
RS
NUMTCR, RS

80ZMSP ,R4

23
22

SCoP1
DEVICE.CLR

;LOOP
;SET DTR

IN HIGH BYTE

H
;WAIT FOR CABLE DELAY

;:READY MODEM BITS

;ARE THEY OK?

;BR IF YES
;IS THE TEST CONNECTOR ON?

:HAS RIGHT LINE BEEN SELECTED?
;IF SO- YOU HAVE A PROBLEM!
:MODEM BITS NOT RIGHT

;LOOP
;INIT DZ11

MoV

SPEED,PAR

153352

8IS
BIS
BIS
MOV
MOV
MOV
MOV
CLR
CLR
MOV

153344

MTPS
MOV

NUMLIN,PAR
;SELECT LINE # & REC.
INTERRUPT ENABLE
#RCVON,PAR
;ENABLE THE RECEIVER FOR THIS LINE
#TIE!RIE!MSENAB,8DZCSR ;SET TRANSMITTER INTERRUPT ENABLE
#INTREC.QDZRIV
;SET UP INTR SERVICE
PRIO,8DZRTS
;SET UP LEVEL
#INTRAN,8DZTIV
;SET UP INTR SERVICE
PRIO,80ZTIS
:SET UP LEVEL
R1
;RX DATA POINTER- SET T0 O
R2
;:TX DATA POINTER- SET T0 O
PAR,3DZLPR
:SET THE PARAMETERS AND TURN ON RECEIVER

153404
153426
153422
153416
153412

152446

SPIN:

152442
007642
025526
027442

1s:

QUITS:

026752
027442
153260

INTREC:

153254

027466

040000

027466

a#LESSL
NUMTCR,8DZTCR

;SET LINE

SPEED

;ALLOW INTERRUPTS
:SET UP TCR BIT

;YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT

TSTB
3$TKS
BPL
13
ST
I$TKB
JSR
PC,SERV.G
JMP
LINEX
INC
LOCKUP
BNE
SPIN
ERROR
11
DEVICE.CLR
JMP
XEQP
CLR
LOCKUP
TST8
8DZCSR
BMI
.+4
ERROR
4
MOV
dDZRBUF ,RECDAT
BMI
.+4
ERROR

BIT
BEQ

#BIT14 ,RECDAT
.+4

;:IF SOMEBODY HITS A KEY- GET A NEW LINE ¢
;:BR IF NO KEY HIT
;CLEAR CHAR
;MAKE SURE IT WASN'T <tG>
;:SW02=1
:INC TIMEOUT FLAG
;:IF NOT O
RETURN SPINNING
; *RECEIVER FAILED TO INTERRUPT
CHECK CABLE/TERMINATOR

;CALL FOR END OF PASS
;CLEAR TIMEQUT FLAG
;TEST REC DONE
: YES
;#FALSE INTERRUPT
;SAVE WORD
;*NON VALID CHARACTER

;DATA OVERRUN
;NO

49491

CZDZA-1I0
CZ0ZAI P11
10241
10242
10243
10244
10245
10246
10247
10248
10249
10250
10251
10252
10253
10254
10255
10256
10257
10258
10259
10260
10261
10262
10263
10264
10265
10266
10267
10268
10269
10270
10271
10272
10273

MACY11 30A(1052)
02-JuL 85 16:17

026610
026612
026620
026622
026624
026632
026634
026636
026640
026644
026650
026654
026656
026660
026662
026670
026674
026702
026704
026706
026712
026714
026720
026722
026724
026730

105201
012716
000002

026732
026736
026740
026742
026746
026750

005777
100401
104003
110277
105202
000002

104024
032737
001401
104025
032737
001401
104026
110105
042705
113704
042704
020504
001401
104005
042737
000337
023737
001401
104015
120127
901003

012716
000403

020000

010000

027466

177400
027466
177400

027466

001372

027466

25
#BIT12,RECDAT
.+4
26
R1,RS
$tC<377>,RS

BIC
CMP
BEQ

#tC<377>,R4
RS,R4
;0K?
.+4

ERROR

BIC
SWAB
CMP
BEQ
ERROR
CMPB
BNE
ggv

000377
026544
1s:

2%:

153104

ERROR
BIT
BEQ
ERROR
BIT
BEQ
ERROR
MovB
BIC

MOovs

174377
027466

026512

INCB
MOV
RTI

INTRAN:; ;ST
MI

153120

SEQ 111

02-JUL-85
16:19
PAGE 85-S
CZDZA DZ11 DEVICE DIAGNOSTICS.

ERROR

MOvVB

INCB
RTI

24
#BIT13,RECDAT

.+4

RECDAT ,R4

2174377 ,RECDAT
RECDAT
SAVLIN,RECDAT
.+4
15
R1,4377
1$
#QUITS,(SP)
24
R1
#SPIN, (SP)

9DZ2CSR
. +4

;NO

s+ YES
;PARITY ERROR ?
:NO
:+YES
;SET EXPECTED
;CLEAR HIGH BYTE

;GET FOUND

;CLEAR HIGH BYTE

;DATA ERROR

;SAVE ONLY LINE NUMBER

;:DOES THE LINE & COMPARE ?
; YES

;*WRONG LINE ¢
;LAST CHARACTER
;:NO
;CRUNCH STACK

;UPDATE EXPECTED DATA
;CRUNCH STACK

;TEST TRANSMIT FLAG

R2,aDZTDR
R2
sRETURN

;*YES
;FRAMING ERROR

; #FALSE INTERRUPT

; TRANSMIT A CHARACTER

;UPDATE TX DATA

CZDZA-I0
CZD2Al P11
10275
10276
10277
10278
10279
10280
10281
10282
10283
10284
10285
10286
10287
10288
10289
10290
10291
10292
10293
10294
10295
10296
10297
10298
10299
10200
10301
10302
10303
10304
10305
10306
10307
10308
10309
10310
10311
10312
10313
10314
10315
10316
10317
10318
10319
10320
10321
10322
10323
10324
10325
10326
10327
10328
10329
10330

MACY11l 30A(1052)
02-JUL -85 16:17

SEQ 112

02-JUL-85
16:19
PAGE 86
CZDZA DZ11 DEVICE DOIAGNOSTICS.

;END OF PASS
;RESTART TEST
026752
026754
026756
026762
026766

104402
027550
005037
105037
000137

026772
026774
027000
027004
027010
027014
027020
027022
027024
027030
027034
027036
027042
027044
027050
027052
027056
027060
027062
027064
027070
027072

011605
012537
012537
012537
112537
112537
010516
005005
012704
122714
001424
121427
002421
121427
003016
142714
005002
152402
060205
122714
001410
006305
010502
006305
006305
060205
000754
104404
000744

027074

027076
027100
027102
027104
027106
027110

XEOP:

027444
001123
025556

027156
027160
027162
027164
027165

RSTRT:

.PARMD:

2%:

011262
000015
000060

TYPE
MPASS
CLR

CLRB
JMP

000071
000060

000015

CLR

CMPB
BEQ
CMPB
BLT
CMPB
BGT
BICB
CLR
BISB
ADD
CMPB
BEQ
ASL
MOV

LAST
$ERFLG
XBEGIN

TEST

;:CLEAR LAST ERROR PC
;CLEAR ERROR FLAG

; CONVERT DECIMAL ASCII STRING TO OCTAL

MOV
MOV
MOV
MOV
MOVB
MOVB
MOV
MOV

1$:

; TYPE NAME OF

ASL
ASL
ADD
BR
INSTER
BR

(SP).RS
(R5)+,6%
(R5)+,7$
(R5)+,84
(R5)+,9
(R5)+,10%
RS,(SP)

#INBUF
R4

#15,(R4)
3
(R4),4'0
3
(R4),%#'9
3
#'0,(R4)
R2
(R4)+,R2
R2,RS
#15,(R4)
43
RS
: X2
RS,R2

RS
RS
R2,R5
1$

:SAVE X2

;X4
: X8
: TIMES 10

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
027112
027116
027120
027124
027126
027132

020537
101373
020537

103770
133705

027160

4 :

027156
027164

001365

CMP
B8HY
CMP
BLO
BITB
BNE

R5,7$
34
R5,6%
3.
9% ,R5
3

;:STORE NUMBER AT SPECIFIED ADDRESS
027134
027140
027142
027146

013704
010524
062705
105337

027162
S$:

000002
027165

MOV
MOV
ADD

DECB

8% ,R4
R5,(R4)+
#2,R5
10¢

CZDZA-10
CZDZAI.P11
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10341
10342
lggzz
1
10345
10346
10347
10348
10349
10350
10351
10352
10353
10354
10355
10356

10357
10358
10359
10360
10361
10362
10363
10364
10365
10366

10367
10368
10369
10370
10371
10372
10373
10374
10375
10376
10377
10378
10379
10380
10381
10382
10383
10384
10385
10386

027152
027154
027156
027160
027162
027164
027165

MACY11 30A(10S2)
02-JUL -85 16:17

SEQ 113

02-JUL-85
16:19
PAGE 86-1
CZDZA DZ11 DEVICE DIAGNOSTICS.

001372
000002
000000
000000
000000
000
000

6$:
7%:
8s:
94
10¢:

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
;BUFFER TO THE CHARACTERS "E” AND “C".
:IF THE CHARACTER IS “E” CLEAR THE FLAG
:IF THE CHARACTER IS “C" SET THE FLAG

027166
027172
027200
027206
027210
027212
027214
027222
027224
027230
027234
027236
027240

017605
142737
122737
001002
10501S
000406
122737
001005
112715
062716
000002
104404
000752

000000
000040
000105

000103

011262
011262

011262

1777177
000002

.PAWCH:MOV
sICB
CMPB
BNE
CLRB
BR
1$:
CMPB
BNE
MOVB
2$:
ADD
RTI
3s:
INSTER
BR

9(SP),RS
€40, INBUF
&' E, INBUF
1
(RS)
2$
#' C,INBUF
3
4-1,(R53
82,(SP)

.PAUCH

;SET FOR LOWER CASE INPUT
IS IT "e” ?
;1000
:+IS IT

»C»"

;3177

;:RETRY

: THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND
:LINE NUMBER (SAVLIN) FOR DZLPR, DZTCR AND DZCSR
;sREGISTER USAGE.
027242
027250

027254
027260
027264
027266
027270
027272
027274
027300
027304
027310
027312
027314
027316
027322
027326
027330
027334

013737
013700

005037
012702
005300
100402
006302
000774
012701
010237
022137
001407
005721
001373
104302
012705
000402
011137
000205

001372
001372

027462
000001

027336
027462
027454

027460

SET:
XTCRO:

XTCR1:

SET1:
1s:

027564
025510
027456

2$:
34

MOV
MOV

CLR
MOV
DEC
BMI
ASL
BR
MOV
MOV
cMP
BEQ
TST
BNE
TYPE
MOV
BR
MOV
RTS

SAVLIN,NUMLIN
SAVLIN,RO

NUMTCR
#1,R2
RO
SET1
R2
XTCR1
OTABLEZ2,R1
R2 ,NUMTCR
(R1)+,LINESP
2%
(R1).
1
JMINVAL
#BAUD RS

3
(R1),SPEED
RS

:SAVE SAVLIN
;COPY THE LINE NUMBER FOR LOOP CONTROL

;SET A DEFAULT OF LINE O OR NO LINES
;SET A BIT POINTER TO THE FIRST LINE
;REDUCE THE INDICATOR.IS IT MINUS YET?
;IF SO, R2 POINTS TO THE RIGHT LINE
;IF NOT, MOVE THE POINTER TO THE NEXT LINE
;GO0 SEE IF THIS LINE IS THE ONE
;COPY THE CORRECT BIT POINTER

;IS IT THE END OF TABLE?
:NO
s INVALID BAUD RATE,BEGIN AGAIN
;JUMP TO BAUD THRU RS
;SET UP BAUD RATE

10387
10388
10389
10390
10391
10392
10393
10394
10395

10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10411
10412

10413
10414

10415
10416
10417
10418
10419
10420
10421
10422
10423
10424
10425
10426
10427
10428
10429
10430
10431
10432
10433
10434
10435
10436
10440
10441
10442
10443
10444
10445

027336
027340
027342
027344
027346
027350
027352
027354
027356
027360
027362
027364
027366
027370
027372
027374
027376
027400
027402
027404
027406
027410
027412
027414
027416
027420
027422

027424
027426
027430
027432

MACY11 30A(1052)
02-JUL -85 16:17

000062
010070
000113
010470
000156
011070
000207
011470
000226
012070
000454
012430
001130
013030
002260
013430
003410
014030
003720
014430
004540
015030
007020
015430
011300
016030
016040
016430
022600
017070
177777

027436
027440
027442
027444
027446
027450
027452
027454
027456

000000
000000
000000
000000
000000
000000
000000

027460
027462
027464
027466
027470
027472
027514
027550
027564
027612
027622

TABLEZ2:

000000

;ngoFOLLOHING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR)
W
50.
;50 BAUD
10070
.WORD
H
75.
.WORD
;75 BAUD
.WORD
10470
:
.WORD
110.
;110 BAUD
.WORD
11070
;:TWO STOP BITS
.WORD
135.
:134.5 BAUD
.WORD
11470
;TWO STOP BITS
.WORD
150.
;150 BAUD
.WORD
12070
;TWO STOP BITS
300.
.WORD
;300 BAUD
.WORD
12430
;ONE STOP BIT
.WORD
600.
;600 BAUD
.WORD
13030
;ONE STOP BIT
.WORD
1200.
;1200 BAUD
.WORD
13430
;:ONE STOP BIT
.WORD
1800.
;1800 BAUD
.WORD
14030
;ONE STOP BIT
.WORD
2000.
;2000 BAUD
.WORD
14430
;ONE STOP BIT
.WORD
2400.
;2400 BAUD
.WORD
15030
;ONE STOP BIT
.WCRD
3600.
;3600 BAUD
.WORD
15430
;ONE STOP BIT
4800.
.WORD
;4800 BAUD
.WORD
16030
;ONE STOP BIT
.WORD
7200.
;7200 BAUD
.WORD
16430
;ONE STOP BIT
9600.
.WORD
;9600 BAUD
.WORD
17070
i
.WORD
-1,0
;:TABLE TERMINATOR

WCHFLG:
0

STFLG: 0
LOCKUP:
LAST:
TDATA:
RDATA:

BYTCNT:

000156
006307

;ECHO OR CABLE FLAG

LINESP:
SPEED:

1 10.
6 307

000100

NUMLIN:

1 00

000001
000240
000000
000000
053200
041600
050200
044600
046200
041200

NUMTCR: 1
PRIO:
2 40
RECDAT: 0
TBUF
:
0
MVECTO: .ASCIZ
MREGAD
: .ASCIZ
MPASS:
.ASCIZ
MINVAL
: .ASCIZ
MLINE:
.ASCIZ
MSPEED: .ASCIZ

041505
047117
051501
053116
047111
052501

SEQ 114

02-JUL -85
16:19
PAGE 86-2
CZDZA DZ11 DEVICE DIAGNOSTICS.

OCOO0OO0OO0

CZDZA-10
CZDZAI.P11

047524
051124
020123
046101
035105
020104

;PROGRAM START FLAG

; TIMEOUT FLAG
;LAST ERROR PC

;DEFAULT BAUD RATE
;DEFAULT 110 BAUD, 8 BITS/CHAR,
;FDX, 2 STOP BITS
;:DEFAULT VALUE,
;DEFAULT

REC.

INTERRUPT ENABLED

VALUE,TCR BIT O

;:DEFAULT DEVICE PRIORITY S
<200>/VECTOR ADDRESS- /
<200>/CONTROL REGISTER ADDRESS<200>/PASS DONE./
<200>/INVALID BAUD RATE - /
<200>/LINE: /
<200>/8BAUD RATE - /

[

CZDZA-I10
CZDZAl .F11
10446
10447
10448
10449
10450
10451
10452
10453
10457
10458
10459
10460
10461
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472
10473
10474
10475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10485
10486
10487
10488
10489
10490
10491
10492
10493
10494
10495
10496
10497
10498
10499
10500
10501
10502
10503

027640
027700
027746
027773
030010
030017
030114

MACY11 30A(1052)
02-JuL -85 16:17
052200
053600
052200
200
006777
124
006777
030126

050131

044510
051105
040503

177777
042510
177777

SEQ 115

02-JUL -85
16:19
PAGE 86-3
CZDZA 0Z11 DEVICE DIAGNOSTICS.

020105
044103
044515
046102
177412
050440
177412

MCHAR:
MWHICH:

MTERM:
MCABLE:
MQUICK:

.EVEN

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

<«200>/TYPE A CHAR. ON DZ11 TERMINAL /
<«200>/WHICH TEST ? ECHO OR CABLE (E OR C) /

<200>/TERMINAL

ECHOQ

TEST

<200>/CABLE TEST /
«3775¢15>¢377><3775<12><377><377>

/THE QUICK BROWN FOX

JUMPED OVER

THE LAZY DOGS BACK 0123456789/

€377>¢15><¢377><¢377>¢125¢377>¢377><377><0>

H :‘ttt‘t‘t‘tt‘tttt‘t“‘ttt“tt‘tt“t“tt“

030126
030132
030136
030142
030146
030152
030160
030166
030174
020200
030204
030210
030214
030220
030224

030230
030234
020240
030242
030246
030250
030254
030260
030262
030266
030272
030274
030300
030302
030306
030310
030314
030320
030322
030326
030332
030334
030336

006337
006337
006337
006337
006337
013737
162737
042737
013700
062700
010037
062700
010037
062700
010037

013700
010037
005200
010037
005200
010037
010037
005200
010037
010037
005200
010037
005200
010037
005200
010037
010037
005200
010037
010037
000207
000240
000200

030334
030334
030334
030334
030334
030334
000001
000037
002072
000002
002074
000002
002076
000002
002100

001310
002042

t“‘tt‘tt"tt‘tt“‘

;UTILITIES
Ly

s THIS UTILITY CALCULATES PRIORITY LEVEL,SETS UP CSR’'S,SETS UP VECTORS.

OZLEV:

030336
030336
030336

ASL
ASL
ASL
ASL
ASL
MOV
suB
BIC
MOV
ADD
MOV
ADD
MoV
ADD
MOV

DZPRT
DZPRT
DZPRT
DZPRT
DZPRT

DZPRT,LESS1

;BUILD PRIORITY IN THIS LOCATION
;USING ARITHMETIC SHIFTS, ROTATE
;
THE PRIORITY LEVEL PAST
H
THE BIT POSITIONS CORRE:
SPONDING TO THE CONDITION CODES
;MOVE THIS TO LESS1

41,LESSL
#37,LESS1

;CREATE THE NEXT LOWEST PRIORITY
;INSURE THAT THE
TNZvC BITS ARE CLEAR

#2,R0
RO,DZRIS
#2,R0
RO,DZTIV
#2,RO
RO,DZTIS

iCALCULATE THE RECEIVER INTERRUPT STATUS ADDR.
;STORE IT HERE
;CALCULATE THE TRANSMITTER INTERRUPT VECTOR
;STORE IT HERE
;CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS
:STORE IT HERE

DZRIV,RO

iPLACE THE BASE VECTOR ADDRESS IN RO

;THIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZ11.
;OF THE DEVICE
MOV
MoV
INC
MOV
INC

002044
002046
002052

MOV
MOV
INC
MOV
MOV

002050
002054

INC

002056
002060
002062
002066
002064
002070
DZPRT:
LESS1:

MOV
INC
MOV
INC
MOV
MOV
INC
MOV
MOV
RTS
PRS
PR4

$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 ,HDZMSR
RO,HDZTDR
PC

$BASE IS THE BASE ADDRESS

;COPY THE ADDRESS BEING LOADED
$ XXXO0
$ XXX1
$ XXX2
P XXX2

$ XXX3
$ XXX3

i XXX4
: XXXS
: XXX6
i XXX6
§ XXX7
§ XXX7

;LEVEL TO ALLOW INTERRUPTS

CZDZA-I0
CZ0ZAI P11
10505
10506
10507
10508
10509
10510
10511
10512
10513
10514
10515
10516
10517
10518
10519
10520
10521
10522
10523
10524
10525
10526
10527
10528
10529
10530
10531
10532
10533
10534
10535
10536
10537
10538
10539
10540
10541
10542
10543
10544
10545
10546
10547
10548
10549
10550
10551
10552
10553
10554
10555
10556
10557
10558
10559
10560

MACY11l

30A(1052)

02-JUL -85 16:17

030340
030342
030344

000000
000000
000000

030346
030350
030352

SEQ 116

02-JU-85
16:19
PAGE £6-4
CZDZA DZ11 DEVICE DIAGNOSTICS.

.ERRTAB:

;ERROR ERROR TABLE
0
0
0

;ERROR

030566
032073
032324

EM1
DH1
DT1

;ERROR

030354
030356
030360

030641
032116
032336

M2
DH2
DT2

;ERROR

030362
030364
030366

030667
032151
032354

EM3
OH3
013

;ERROR

030370
030372
030374

030726
032151
032354

EM4
DH3
013

;ERROR

030376
020400
030402

030755
032163
032362

EMS
DH4
0T4

;ERROR

030404
030406
030410

031004
032163
032362

EM6
DH4
0T4

;ERROR

030412
030414
030416

031042
332151
032354

EM7
DH3
013

;ERROR

030420
030422
030424

031103
032151
032354

EM8
DH3
DT3

;ERROR

030426
030430
030432

031145
032151
032354

EM9
DH3
DT3

;ERROR

030434
030436
030440

031203
032151
032354

EM10
DH3

;ERROR

030442
030444
030446

031242
032151
032354

EM13
DH3
DT3

;ERROR

030450
030452
030454

031273
032151
032354

EM14
DH3
013

;ERROR

030456
030460
030462

031325
000000
000000

EM1S

sERROR

013

CZ0ZA-10
CZDZAI.P11
10561
10562
10563
10564
10565
10566
10567
10568
10569
10570
10571
10572
10573
10574
10575
10576
10577
10578
10579
10580
10581
10582
10583
10584
10585
10586
10587
10588
10589
10590
10591
10592
10593
10594
10595
10596
10597
10598
10599
10600
10601
10602
10603
10604
10605

MACY11 30A(1052)
02-JUL -85 16:17

02-JUL -85
16:19
PAGE 86-5
CZDZA DZ11 DEVICE DIAGNOSTICS.

030464
030466
030470

031367
032151
032354

EM16
DH3
0T3

030472
030474
030476

031440
032151
032354

EM17
OH3
0T3

030500
030502
030504

031476
032151
032354

030506
030510
030512

031537
032212
032400

EM21
DHS
0TS

;ERROR 21

030514
030516
030520

031567
032163
032362

EM22
OH4
0T4

;ERROR 22

030522
030524
030526

031631
032151
032354

EM23
OH3
D13

iERROR 23

030530
030532
030534

031661
032151
032354

EM24
DH3
DT3

030536
030540
030542

031707
032151
032354

EM25
DH3
013

030544
030546
030550

031737
032151
032354

EM26
DH3
oT3

030552
030554
030555

031766
032151
032354

EM27
DH3
073

030560

032036
032271
032422

EM30
DH6
0Té6

030562

030564

;ERROR 17

EM20
DH3
073

SEQ 117

C2DZA-10
CZD2AI P11
10607
10608
10612
10613
10614
10615
10616
10617
10618
10619
10620
10621
10622
10623
10624
10625
10626
10627
10628
10629
10630
10631
10632
10633
10634
10635
10636
10637
10638
106329

10640

10641
10642
10646
10647
10648
10649
10650
10651
10652
10653
10654
10655
16656
10657
10658
10659
10660
10661
10662
10663
10664
10665
10666
10667
106¢€8

030566
030641
030667
030726
030755
031004
031042
031103
031145
031203
031242
031273
031325
031367

MACY11 30A(1052)
02-JU -85 16:17

047200
200

200
051200
200
042200
052200
200
200

031440
031476
31537
031567
031631
031661
021707
021737
031766
032036
032073
032116
032151
032163
032212
032271

032124
032326
032230
032332
032334

020117
042522
051124
041505
040504
030532
040522
047125
042522
047125
046111
044523
041501
042522
052101
041505
042522
047515
040504
040504
051106
040520
046125
052501
051124
050130
044514
054105
020130
044510

003

046123
044507
047101
044505
040524
020061
051516
054105
042503
054105
020117
047514
044524
042101
020101
044505
040514
042504
040524
040524
046501
044522
020114
020104
050101
041505
042516
042520
044514
044107

EM1:
EM2:
EM3;
EM4;
EMS:
EM6:
EM7:

004

032362
032264
032366
032370

000003
006
001214
006

001

004
C01

<200>/TRANSMITTER FAILED TO INTERRUPT/
<200>/UNEXPECTED TRANSMITTER INTERRUPT/

EMI:
EM10:
EM13:
EM14;
EM1S:
EM16:
EM17:

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

<200>/RECEIVER FAILED TO INTERRUPT/
<200>/UNEXPECTED RECEIVER INTERRUPT/
<200>/SILO ALARM SET TOO SOON/
<200>/SILO ALARM FAILED TO SET/
<200>/ACTION DETECTED ON INVALID LINE.~/
<200>/RERDING DZRBUF DID NOT CLEAR SILO ALARM/
<200>/DATA VALID SHOULD NOT BE SET/

.ASCIZ

<200>/RELATIVE TIMING ERROR.’/

.ASCIZ
.ASCIZ

<200>/DATA VALID IS NOT SET!/
<200>/DATA OVERRUN IS SET!/

EM26:
EM27:

.ASCIZ
.ASCIZ

<200>/PARITY ERROR OCCURRED/
<200>/FJLL BINARY COUNT PATTERN NOT RECEIVED/

DH1:
DH2:
DH3:
DH4 ;
OHS:
DH6 :
.EVEN

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ

<200>/TRAP PC
DZ11 REG/
<200>/EXPECTED
FOUND
REGISTER/
<200>/LINE NOQ./
<200>/EXPECTED
FOUND
LINE/
<200>/TX LINE PREVIOUS TIME
ACTUAL TIME
<200>/HIGH
LOW
COUNT
LINE/

0T1:

2
.BYTE

E£EM20:
EM21:

EM22:

EM23:
EM24

EM2S:;

£EM30:

.ASCIZ

LASCIZ

.ASCIZ

0T2:

DT3:

DT4:

<200>/RECEIVER DONE SHOULD NOT BE SET/

<200>/MODEM SIGNAL ERROR ON CABLE TEST/

<200>/FRAMING ERROR OCCURRED/

<200>/BAUD RATE TIMING TEST ERROR/

PARAMETER/

;DATA TABLES FOR ERROR MESSAGES

$REG1L
.BYTE
$REGO

001

000001
003
001372

<200>/NO SLAVE SYNC RESPONSE FROM DZ11 REGISTER/
<200>?REGISTER R/W FAILURE?
<200>/TRANSMIT READY (TROY) NOT SET/
<200>/RECEIVER DONE NOT SET/
<200>/DATA COMPARISON ERROR/
<200>/0211 sRECEIVER BUFFERs ERROR/

.ASCIZ

001

032354
032356
032260

;ERROR MESSAGES

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

£M8:

001

032336
032340
032342
032344
032346
032350
032352

SEQ 118

02-JUL 85
16:19
PAGE 87
CZDZA DZ11 DEVICE DIAGNOSTICS.

3
.BYTE
$REGS
.BYTE
$REG4Y
.BYTE
$REGO
1
BYTE
SAVLIN

3
.BYTE
$REGS

.BYTE

6.3
6,1

6.4
6,1
6,1

3.1

6,4

6,1

ArFA

aan

CZDZA-I0
CZ02AI P11
106€9
10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690

032372
032374
03237%

0CLele
003
001372

001

032400
032402
032404
032406
032410
032412
032414
032416

000004
003
001372

005

032420
032422
032424
032426
032430
032432
032434
032436
03244C
032342

10€91
10699
10700

10701
107062
10703
10704
1070S
10706
107C7
10708
10709
10710
10711
10712
10713
10714
10715
10716
10717
10718
16719
10720
10721
10722
10723
10727
10728
10729

MACY11 30A(1052)
02-JUL-85 16:17

$REG4
.BYTE
SAVLIN

07S:

011
007

001

0Té6:

001
001
001
001372

SEQ 119

02 JUL-85
16:19
PAGE 87-1
CZDZA DZ11 DEVICE DIAGNOSTICS.

001

4
.BYTE
SAVLIN
.BYTE

$REGS
.BYTE
$TMP1
.BYTE
REGIST

.BYTE
DCOUNT
.BYTE
ECOUNT
.BYTE
BCOUNT
.BYTE
SAVLIN

3.1

3.5
6.9.
6,7
6,1

;FOR BAUD RATE ERROR MESSAGE
;HIGH FCOUNTER

;LOW COUNTER

;ACTUAL XMIT COUNT
:THE LINE NUMBER ERROR OCCURED ON
TIMES FOR INDIVIDUAL BAUD RATES

032444
032446
032450
032452
032454
032456
032460
032462
032464
032466
032470
032472
032474
032476
032500
032502

002450
001560
001120
000750
000660
000330
000150
000060
000040
000030
000020
000010
000001
000001
000001
000001

DLYTBL:

2450

1560

1120
750
660
330

150

50 BAUD
;sTIME FOR
75 BAUD
; TIME FOR
110 BAUD
;sTIME FOR
134 BAUD
;s TIME FOR
150 BAUD
s TIME FOR
300 BAUD
;sTIME FOR
600 BAUD
; TIME FOR
;sTIME FOR 1200 BAUD
;sTIME FOR 1800 BAUD

;sTIME FOR 2000 BAUD
;s TIME FOR 2400 BAUD
;TIME FOR 3600 BAUD
; TIME FOR 4800 BUAD
:TIME FOR 7200 BAUD
;sTIME FOR 9600 BAUD

; TIME OF DELAY FOR 19200 BAUD

;DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE
:FOR ALL TESTS TO FUNCTION CORRECTLY ON A PDP11/45 WITH BIPOLAR
:MEMORY. THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10.
032504
001512

001512
100000
000001

CORMAX:

.END

.=MANTO
100000

C2DZA-I0
CZD2AI.P11
ARBASE + 160010
ACDW1 = 030000
ACONW2
000000
ATPUOP= 000000
ACTIVE
001412
ADDWO = 000000
ADDW1
000000
ADDW10= 000000
ADDW11= 000000
ADDM12= 000000
ADDW13= 000000
ACDOW14= 000000
ADDM15= 000000
ADDW2
000000
ADDW3
000000
ADDW4
000000
ADDWS
000000
ADDW6
000000
ADDW?
000000
ADDW8
000000
ADDW9
00000¢
ADEVCT= 000000
ADEVM
000000
ADRCNT
0C6635
ADVANC= 1C4400
AENV
000000
AENVM
000000
LFATAL= 000000
AMADR1
= 000000
AMADR?
= 000000
AMADR3
= 000000
AMADR4
= 000000
AMAMS]
= 000000
AMAMS2
= 000000
AMAMS3
= 000000
AMAMSY
= 000000
AMSGAD
= 000000
A% 5GLG= 000000
AMSGTY= 000000
AMTYPL= 000000
AMTrP2= 000000
AMTYP3= 000000
AMTYP4
= 000000
APASS
000000
RPRIOR= 002000
APTCSU= 000040
APTENV= 000001
AP7SIZ= 000200
APTSPO= 000100
ASUREG= 000000
ATESTN= 000000
AUNIT
000000
AJSWR
009000

MACY11 30A(1052)
02-JUL -85 16:17
AUTO.S
AVECT
AVECT1
AVECT2»

BAUD
BCOUNT
BINWRD
8ITO
BIT00
BITO1
BIT02
BITO3
8IT04
BITOS5
81706
BITO7
8I708
8IT09
BIT1
BIT10
BIT11
BIT12
8IT13
B8IT14
BIT1S
BIT2
BIT3
8IT4
BITS
BIT6
BIT7
BIT8
BIT9
BPTVEC
BRKO
BRK1
BRK2
BRK3
BRK4

BRKS
BRK6
BRK?
BRW
BUILD
BYTCNT
CCOUNT
CARCNT
CLKSRV
CNVRT
CONVRT
CORMAX
COUNTO
COUNT1

SEQ 120

02-JUL -85
16:19
PAGE 88
SYMBOL TABLE

012254
000300
000000
000000
025510
024110
007110
000001
000001
000002
000004
000010
009020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
000400
001000
002000
004000
010000
020000
040000
100000
005372
025002
027452
024106
007106
024100
104412
104411
032504
024660
024662

cco
co1
coe
co3
co4
Co5
coé
co7
CR
CRLF
CSRMAP
CYCLE
DATABP

000400
001000
002000
004000
010000
020000
040000
100000
000015
000200
012262
011532
007502
DATAHD
007470
DCLASM= 104417
OCLR
= 000020
DCOUNT
024112
DOISP = 177570
DELAY = 104414
DEVADR
006632
DEVICE= 104413
DH1
032073
DH2
032116
DH3
032151
DH4
032163
DH5
032212
DH6
032271
DISPLA
001162
DISPRE
000174
DLYCNT
007204
DLYTBL
032444
DONFLG
001420
DSWR
177570
DTRO
000400
DTR1
001000
DTR2
002000
DTR3
004000
DTR4
010000
DTRS
020000
DTR6
040000
DTRY
100000
0T1
032324
DT2
032336
DT3
032354
0T4
032362
D15
032400
DT6
032422
DVALID= 100000
DZACTV
001404
DZCRO
001500
DZCR1
001514
DZCR10
001640
DZCR11
001654

DZCR12
DZCR13
DZCR14
DZCR1S
DZCR16
DZCR17
DZCR2
DZCR3
DZCR4
DZCRS
DZCR6
DZCR7
DZCSR
DZLEV
DZLPR
DZLVO
CZLV1

0ZLV10
DZLV11

DZLvi2
DZLV13
DZLV14
0ZLV1S
DZLV16
OZLV17
DZLve2
DZLV3
DZLV4
DZLVS
DZLV6
DZLV7
DZMSR
DZNUM

DZPRT
DZRBUF
DZRIS
DZRIV
DZTCR
DZTDR
0DZT1S
DZTIV
DZVCOo
DZvC1
DZVC10
DZvC11
DZvCi1e
DZVC13
DZvC14
DZvC1S
DZvC1l6
DzZvC17
DZvC2
DZve3

001670
001704
001720
001734
001750
001764
001530
001544
001560
001574
001610
001624
002042
030126
002052
001504
001520
001644
001660
001674
001710
001724
001740
001754
001770
001534
001550
001564
001600
001614
001630
002062
001410
030334
002046
002074
002072
002056
002066
002100
002076
001502
001516
001642
001656
001672
001706
001722
001736
001752
001766
001532
001546

DZvCa
DZVCS
DZvCé
DzZvC7
DZ.END
DZ .MAP
ECOUNT
EIAFLG
EIGHT =
EIGHTS=

001562
001576
001612
001626
002000
001500
024114
001414
000030
000070
EMTVEC= 000030
EM1
030566
EM10
031203
EM13
031242
EM14
031273
EM15
031325
EM16
031367
EM17
031440
EM2
030641
EM20
031476
EM21
031537
EM22
031567
EM23
031631
EM24
031661
EM25
031707
EM26
031737
EM27
021766
EM3
030667
EM30
032036
EM4
030726
EMS
03075S
EM6
031004
EM7
031042
EM8
031103
EM9
031145
ENDTTB= 024212
ERRMSG
007456
ERRVEC= 000004
ERTABO
007626
EVEPAR= 000000
EXITER
007562
FINI
022434
FIVE
= 000000
FIVES = 000040
FRMERR= 020000
HALTS
007506
HDRFLG
001416
HDZCSR
002044
HDZLPR
002054
HDZMSR
002064
HOZRBU
002050
HDZTCR
002060
HDZTDR
002070

CZ0ZA-I0
CZDZAI.P11
HILIM
006630
HT
= 020011
INBUF
011262

INIFLG
INIT
INIT1
INSTER=
INSTR =
INSTR2
INTRAN

001415
021714
021740
104404
104403
006430
026732

INTREC
INTSVC
IOTVEC=
LASY
LESS1T
LF
=
LIMITS
LINE
LINESP
LINEX
LINEO
LINE1
LINE1O
LINE11l
LINE12
LINE1Z
LINE14
LINE1S
LINE16
LINE17
LINE2
LINE3
LINE4A
LINES
LINE6
LINE7
LOBITS
LOCK
LOCKUP
LOLIM
LPO
=
LP1
=
LP2
=
LP3
=
LP4
=
LPS
=
LP6
=
LP?
=
MAINT =

000020
027444
030336
000012
006556
001364
(27454
0c5526
001506
001522
001646
0C1662
0C1676
001712
001726
001742
001756
001772
001536
001552
001566
001602
001616
001632
006634
001362
027442
006626
000000
000001
000002
000003
000004
000005
000006
000007
000010

MANTO
MANTI
MANT10
MANT11

001512
001526
001652
001666

026552
026116

MACY11 30A(1052)
02-JUWL -85 16:17
MANT12
MANT13
MANT 14
MANT 1S
MANT 16
MANT17
MANT2
MANT3
MANT4
MANTS
MANT6
MANT?
MASTEK
MBADLN
MCABLE
MCHAR
MCSRX
MDATA
MEPASS
MERRPC
MERRX
MERR2
MERR3
MINVAL
MLINE
MLOCK
MNEW
MNTFLG
MODE
MPASS
MPASSX
MPFAIL
MQUICK
MR
MREGAD
MSENAB=
MSPEED
MTERM
MTITLE
MTSTN
MVECTO
MVECX
MWHICH
NEXT
NUMLIN
NUMTCR
0ODPAR=

SEQ 121

02 JUL -85
16:19
PAGE 88-1
SYMBOL TABLE

001702
001716
001732
001746
001762
001776
001542
001556
001572
001606
001622
001636
010756
011065
027773
027640
010706
011366
010525
011033
010733
010564
010633
027564
027612
010657
010761
001417
001370
027550
010722
010462
030010
010550
027514
000040
027622
027746
001000
010744
027472
010714
027700
001360
027460
027462
000200
025242
OFFSET
ONESTO= 000000
025470
OTHER
022362
ouT
OVRRUN= 040000
PAR
001366

PARAM =
PARAM1
PARER =
PARERR
PARESE
PARITY=
PARMD =
PARO
PAR1
PAR10
PAR11
PAR12
PAR13
PAR14
PAR1S
PAR16
PAR17
PAR2
PAR3
PAR4
PARS
PARG6
PAR?
PAWCH =
PIRQ
=
PIRQVE=
POPRO =
POP1EP=
POP2SP
=
PRIO
PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR?
PS
PSW
PUSHRO=
PUSH1S=
PUSH2S
=
PWRVEC=

104405
006476
010000
005552
024506
000100
104415
001510
001524
001650
001664
001700
001714
001730
001744
001760
001774
001540
001554
001570
001604
001620
001634
104416
177772
000240
012600
005726
022626
027464
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
010046
005746
024646
000024
026544
QUITS
RCVON = 010000
RDATA
027450
RDONE = 000200
RECDAT
027466
REGIST
001400
RESREG
007504
RESTAR
012076
RESVEC= 000010

RESOS
104410
RIE
000100
RINGO
000001
RING1
000002
RING2
000004
RING3
000010
000020
RING4
RINGS
000040
RING6
000100
RING?
000200
RLO
000000
RLL
000400
RL2
001000
RL3
001400
RL4
002000
RLS
002400
RL6
003000
RL7
003400
RSTART
021704
RSTRT
026766
RUN
001406
RXISR1
025030
RXSVC
022204
RXTCR
022462
R6
=4000006
R7
=%000007
SAVLIN
001372
SAVNUM
001411
SAVPC
001402
SAVOS = 104407
SCOP1L = 104401
007642
SERV.G
SET
027242
012102
SETAPT
SETFLG= 104406
011430
SET.PS
SET1
027274
SEVEN = 000020
SEVENS= 000060
SILOAL= 020000
SILOEN= 010000
= 000010
SIX
SIXS
= 000050
SNAP
022034
SPACNT
007107
SPEED
027456
SPIN
026512
STACK = 001120
STFLG
027440
STKLMT= 177774
STOP
001462
5vV05S
006644
001160
SWR

SWREG
SWo
SWoo
SWO1
SWO02
SWO3
SWo4
SWO0S
SWo6
SWO7
SWo8
SWO09

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
SW1
000002
SW10
002000
SW11
004000
SW12
010000
SW13
020000
SW1i4
040000
SW1s
100000
SW2
000004
SW3
000010
SW4
000020
SWS
000040
SW6
000100
SW7
000200
SW8
000400
SW9
001000
S110
001000
$1200
003400
5134
001400
5150
002000
51800
004000
519200= 007400
52000
004400
52400
005000
5300
002400
53600
005400
54800
006000
S50
000000
003000
5600
§7200
006400
5§75
000400
59600
007000
TABLE?2
027336
TBITVE= 000014
TBUF
027470
TCCONT
024212
TCRO
000001
TCR1
000002
TCR2
000004
TCR3
000010
TCR4
000020
TCRS
000040

C2DZA-I0
CZDZAI.P11

)

TCR6
= 000100
TCR7
= 000200
TDATA
027440
T00
001422
701
001424
102
001426
03
001430
104
001432
T05
001434
106
001436
T07
001440
TEIGHT
002140
TEMP
011324
TEST1
025656
TEST
026314
TFIV:
002146
TIE
040000
TKVEC
000060
TLAST
023720
TLO
000000
TL1
000400
TL2
001000
TL3
001400
TL4
0€2000
TLS
002400
TL6
003000
L7
003400
TMTBL
002102
TPVEC = 000064
TRAPVE
= 000034
TROY
= 100000
TRTVEC= 000014
TRO
001442

TR1

TR2
TR3
TR4
TRS
TR6
TR7
TSEVEN
TSIX
TST1
TST10
TST11
75712
TST13
15714
TS71S
15716
3717
TS72
TS720

001444

001446
001450
001452
001454
001456
001460
002142
002144
013036
013754
014112
014274
014412
014542
014632
014716
015112
013226
015250

MACY11l 30A(10S2)
02-JUL -85 16:17

SEQ 122

02-JUL-85
16:19
PAGE 88-2
SYMBOL TABLE

TS121
015374
TS722
015732
TST23
016260
15724
016612
TS125
017070
15726
017400
15727
017726
TST3
013312
15730
020360
TST31
020546
15732
021274
TST33
021656
TST34
022464
TST35
023174
TST36
023446
TST37
023720
TST4
013404
T1STS
013476
1576
013570
1577
013662
TTABLE
024116
TTST
005140
TWOSTO= 000040
TXSVC
022106
TYPDAT
007472
TYPE
= 104402
TYPMSG
007362
7110
002106
71200
002120
T134
002110
7150
002112
71800
002122
72000
002124
T2400
002126
7300
002114
73600
002130
T4800
002132
750
002102
7600
002116
77200
002134
T75
002104
19600
002136
VECMAP
012644
VEC1
025306
VEC2
025316
WCHFLG
027436
WRDCNT
007104
WTBS.F
007460
XBEGIN
025556
XBX
007250
XCSR
005072
XEQP
026752
XERR
005114

XHEAD
XMTCNT
XMTLIN
XMTSRV
XPASS
XSTART
XSTATQ
XTCRO
XTCR1
XTSTN
XVEC
XX
=
Yy
=
22
=
$APTHD
SATYC
$ATY1
$SATY3
$ATY4
$AUTOB
$BASE
$BDADR
$BDDAT
$COW1
$COW2
$CHARC
$CMTAG
$CML1
=
$CM2
=
$CM3
=
$CM4
=
$CPUOP
$CRAP =

$CRLF

$DDWO
$0DW1
$DDW10
$DOW11
$DOW12
$ODW13
$0DW14
$DDW1S
$00W2
$DDW3
$00W4
$DDWS
$DDW6
$ODW7
$O0W8
$0DW9
$DEVCT
SDEVM
$DOAGN

011040
001376
001374
024664
005106
025244
011130
027250
027264
007634
005100
160210
000500
000020
001462
006020
005774
006002
006012
001154
001310
001142
001146
001314
001316
005770
001120
000006
000014
000006
000004
001262
177777
001231
001320
001322
001344
001346
001350
001352

001354
001356
001324
001326
001330
001332
001234
001336
001340
001342
001244
(01312
005066

SE
$ENDAD
$ENDCT
SENV
$ENVM

SEOP
$EOPCT
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
$ETABL
$SETEND
$FATAL
$FFLG

$FILLC
$SFILLS
$GDADR
$GDDAT
$GET42
$HD
$HIBTS
$ICNT
S$ILLUP
$INTAG
$ITEMB
SLF

SLFLG

SLPADR
$LPERR
$MADR1

$MADR2
$MADR3
$MADR4
$MAIL
$MAMS1
$MAMS2
$MAMS3
$MAMS4
$MBADR
$MFLG
$MSGAD
$MSGLG
$MSGTY
$MTYP1
$MTYP2
$MTYP3
$MTYP4
$MXCNT
$N
$NULL

000041
005056
005042
001254
001255
004712
005034
001123
001135
007220
001136
001360
001132
001254
001360
001236
006240
001176
001175
001140
001144
005046
000001
001462
001124
010454
001155
001134
001232
006237
001126
001130
001266
001272
001276
001302
001234
001264
001270
001274
001300
001464
006236
001250
001252
001234
001265
001271
001275
001301
005374
000037
001174

$NWTST= 000000
SOVER
005336
$PASS
001242
$PASTM
001470

$PWRAD
010450
$PWRON
010310
$PWRMG
010444
$PWRUP
010362
$QUES
001230
$REGAD
001200
$REGO
001202
SREG1
001204
$REG2
001206
$REG3
001210
SREG4
001212
$REGS
001214
$RTNAD
005070
$SAVR6
010460
$SCOPE
005122
$SETUP= 000000
$SVLAD
005320
$SVPC = 000040
$SWR
= 164000
$SWREG
001256
$SWRMK= 000000
$TESTN
001240
$TIMES
001226
$TKB
001166
$TKS
001164
$TMPO
001216
$TMP1
001220
$TMP2
001222
$TMP3
001224
$TN
= 000040
$TPB
001172
$TPFLG
001177
$TPS
001170
$TSTM
001466
$TSTNM
001122
STYPE
005440
$TYPEC
005652
$TYPEX
005772
SUNIT
001246
SUNITM
001472
$USWR
001260
SVECT1
001304
$VECT2
001306
$XOFF = 000023
$XON
= 000021
$XTSTR
005176
$Y
= 000020
$$GET4= 000000
.
= 001514

CZDZA-10
CZDZ2AI.P11
.ADVAN
.BEGIN
.CNVRT
.CONVR
.DCLAS

037206
024624
006734
006730
007154

032504

ABS.

MACY11

30A(1052)

02-JUL -85 16:17

ERRORS DETECTED:

.DELAY
.DEVIC
.ERRTA
.INSTE
.INSTR

SEQ 123

02-JUL-85
16:19
PAGE 83-3
SYMBOL TABLE

007166
007134
030340
006416
006242

000

CZDZAI. BIN,CZDZAI.SEQ=SYSMAC.SML,CZDZAI.P11
RUN-TIME: 20 23 .7 SECONDS
RUN TIME RATIO: 64/45=:1.4
CORE USED:
52K
(103 PAGES)

.INST1
.MSG
.PARAM
.PARMD
.PAWCH

006262
006264
006436
026772
027166

.RESOS
.SAVO5
.SCOPE
.SCoP1
.SETFL

006676
006636
005122
005376
011142

.START
.TRPSR
.TRPTA
.TYPE
.$X

002150
007112
002002
005422
001462