Digital PDFs

AH-8783I-MC

October 1985

124 pages

Original

62MB

view download

OCR Version

82MB

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

OCR Text

Eobzan
o

Tor1 oot 1ess

~ COPYRIGHT® 1976-85

ENSANEN
MADE IN USA

Til"w

SEQ 1

CZIDZA-1I0

CIDZAI.P11

MACY11 30A(1052)

02-JUL -85 16:17

02-JUL-85

5607

'6:19

PAGE S9

.REM «

5615

IDENTIFICATION

5619

PRODUCT CODE:

AC-8781I-MC

5621

PRODUCT NAME:

CZDZAIO DZ11 LN ASYNC MUX TSTS

5623

PRODUCT DATE:

JUNE 1985

5625

MAINTAINER:

NAC SOFTWARE ENGINEERING

5627

AUTHOR :

DAVE HOFFMAN

5629
5630
5631
5632
5633

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

5635
5636
5637

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

5640

CZDZA-I0
CZDZAI.P11
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653

5654
5655
5656
5657
5658
5659
5660

MACY11 30A(1052)

02-JUL -85 16:17

02-JUL-85

16:19

SEQ
2

PAGE 60

ABSTRACT
THE
FUNCTION OF THE DZ11 DIAGNOSTICS IS TO VERIFY THE
OPTION
OPERATES
ACCORDING
TO SPECIFICATIONS.
THE DIAGNOSTICS ALSO VERIFY THAT THE DZ11
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED.
PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY

EITHER

‘AUTO

SIZING'

TO CERTAIN VALUES (SEE SEC.8.5).

CONSOLE INPUT MAY BE CONTROLLED AT ANY

START TIME THROUGH THE USE OF SWOO,

FOR

DETAILED DESCRIPTION OF

THESE

SWO3,

SWO4, AND SWO06 (SEE SEC. 4.1.1

SWITCHES).

5661

CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), ONE SYSTEM
:(I)?E[P)E)C xs%zgozn). AND AN ONLINE OVERLAY FOR DZITA (ITEP) - DZDZB.

5665

CZDZA WILL TEST ALL PARTS OF THE DZ11 SUCH AS CABLES, DIST PNL.,
INTERFACE MODULE ITSELF.

5662
5663
5664

5666
5667
5668
5669
5670
5671
5672
5673

5674
5675

5676
5677
5678
5679
5680
5681
5682

INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO=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

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

DZ11

H3271
H3190
H325
H31S

NOTE:

INTERFACE MODULE (M7819(EIA), 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 TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST

PARITY AND BREAK LOGIC.

THE

5691
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

02-JUL -85 16:17

02-JUL-85

5684
5685
5686
5687
5688
5689
5690

MACY11 30A(1052)

bes]

CZDZA-I0
CZDZAI.P11

16:19

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 BE NOTED AND TO BE

UNTOUCHED BY OPERATOR AFTER PARAMETERS
HAVE
BEEN
INPUT
FROM CONSOLE
(SWO00=1);
OR
AFTEP
THE 'AUTO SIZING' HAS BEEN DONE.
THESE LOCATIONS

MAY BE CHANGED IF T4E
USER
PARAMETERS ARE REQLIRED.

UNDERSTANDS

THEIR

MEANING

AND

DIFFERENT

LOADING PROCEEDURE
METHOD

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED
USING
THE
LOADER.
NOTE:
IF
THE
DIAGNOSTICS
ARE
ON
A
MEDIA
SUCH

+MAGTAPE ,DECTAPE, OR CASSETTE;
FOLLOW
INSTRUCTIONS
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA.

FOR

THE

ABSOLUTE
AS
DISK
MONITOR

ABSOLUTE LOADER STARTING ADDRESS #500
MEMORY

s« SIZE

4K
8K

17
37

12K
16K
20K
24K
28K

57
77
117
137
157

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.

3.1.2

DEPRESS

3.1.3

DEPRESS '‘START KEY'
LOADING INTO CPU)

(ALSO PLACE ‘HALT'
'LOAD ADDRESS’'

SW UP)

KEY ON CONSOLE AND RELEASE.

CONSOLE

AND

RELEASE

(PROGRAM

SHOULD

NOW

CZDZA-IO0
CZDZAI.P11

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

02-JUL-85

16:19

SEQ 4

PAGE 62

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
5775
5776
5777
5778
5779
5780

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 SW00=1 FOR
USER PARAMETER
INPUT FROM CONSOLE TERMINAL.
ON
FIRST
START IF SWO7=1 AND SW00=0
THE PROGRAM WILL DEFAULT TO CONSOLE PARAMETER INPUT (SWO00=1
).
DEPRESS 'START KEY' AND RELEASE, 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 FOLLOWING:
‘MAP OF DZ11 STATUS'

1500
1502
1504
1506
1510
1512

160100
000300
000005
000377
017070
000000

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

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 15
SW 14
SW 13
SW 12
SW 11
SW 10
SW 09
SW 08
SW 07

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

SW 06
SW 05
SW 04
SW 03
SW 02
*4SW 01
«SW 00

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

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
1INHIBIT s#ALL#* 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

a2k

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 UNDER TEST.
FOR ECHO OR CABLE TEST THIS SWITCH SET TO 1 ALLOWS THE SELECTION
OFDEgT?ERTTHE ECHO OR CABLE TEST, BAUD RATE, AND THE LINE NUMBER

UNDER

TEST.

CZDZA-I0
CZDZAI.P11
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797

5798
5799
5800
5801
5802
5803

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

02-JUL-85

4.1.1

16:19

SEQ 5

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
(EXTERNA
, INTERNAL,
L 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 STOP BITS.

SW 03

EXTRA PARAMETER INPUT.
SETTING
THIS
SWITCH
AT
START UP TIME
PROVIDES
THE
USER 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 11745
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
50 BAUD
1560
;TIME FOR
75 BAUD
1120
;TIME FOR
110 BAUD
0750
;:TIME FOR
134 BAUD
0660
;TIME FOR
150 BAUD
0330
;TIME FOR
300 BAUD
0150
;TIME FOR
600 BAUD
0060
;TIME FOR 1200 BAUD

0040

0030
0020
0010
0001
0001
0001
0001
k%

NOTE

; TIME FOR 1800 BAUD

;TIME
;TIME
:TIME
;TIME
;TIME
;TIME
;:TIME

FOR
FOR
FOR
FOR
FOR
FOR
FOR

2000
2400
3600
4800
7200
9600
19.2

BAUD
BAUD
BAUD
BAUD
BAUD
BAUD
KBAUD

#%%

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

MACY11l 30AC1052)
02-JUL -85 16:17

02-JUL-85

16:19

4.1.2

PAGE 64

SEQ 6

SWITCH REGISTER RESTRICTIONS
SW 06

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(SWO06)
ALTERS
THAT
LOCATION; THEREFORE
IF FOUR DZ11S ARE IN THE SYSTEM #44D0 NOT#4s+
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 (SW00=1)
LOAD ADDRESS 200
START WITH SW 06=1
PROGRAM WILL TYPE MESSAGE
SET THE BINARY NUMBER OF
DZ11S
DESIRED
ACTIVE
EXAMPLE:
1=1
gg#%iNUEs‘z
DZ11:
7=3 DZ11;
17=4 DZ11 37=5 DZ11 ETC/AA PRESS

METHOD:

CZDZA-I0
CZDZAI.P11

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.
1IN OTHER WORDS;
EACH TIME THE
PROGRAM
IS
STARTED;
THE
FIRST DZ11 WILL BE SELECTED TO BE 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

16:19

SEQ 7

PAGE 65

SWITCH REGISTER PRIORITIES
ERROR SWITCHES
-

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
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927

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

NI H W

CZDZA-IO0
CZDZAI.P11

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

4.2

SW 09 (IF ENABLED BY 'SCOP1’').
IF AN ‘s’ IS PRINTED IN FRONT OF
THE
TEST
NO. ON AN ERROR REPORT (EX. #TEST
NO.
10 ) SW09 IS
INCORPORATED IN THAT TEST AND THEREFORE SW09
IS
#USUALLY+
THE
BEST SWITCH FOR THE SCOPE LOOP
(SW14=0, SW10=0, SW09=1, SW08=0)
IF
THE
PROGRAM
USER IS
TECHNICALLY TRAINED TO ELECTRONICALLY
ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE.
IF
SW09
IS
NOT
ENABELED;
AND
THERE
IS
A
#+HARD+
ERROR
(CONSTANT);
SWO8 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.
SW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN
ERROR OCCURS.
SW 14
LOOP ON CURRENT TEST.

STARTING ADDRESS
SA 200 - ADDRESS 200 IS FOR NORMAL EXECUTION OF
THE
DIAGNOSTIC.
THIS
H{kt ARDO
THE
MAJOR
TESTING
NECESSARY
FOR
VERIFICATION
OF
HARDWARE

SA 210
- CABLE/ECHO - TERMINAL TESTS.
STARTING AT ADDRESS 210 WILL GIVE
THE
USER THE OPTION TO VERIFY THE EIA CABLES AT THE DIST PNL OR
¥ESIS;11A TRUE LINK TO ANY DEC
SUPPORTED
TERMINAL SUPPORTED BY
H

NOTE:

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

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

FOUR

CZDZA-I0
CZDZAI.P11
5929
5930

5931

5932
5933
5934
5935
5936
5937
5938

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

02-JUL-85

5.1

16:19

NORMAL START OF DIAGNOSTIC

ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS
200;
1IF
AUTO
SIZING
IS NOT USED OR WHENEVER SWO0O=1:
THE FOLLOWING QUESTIONS
ARE ASKED AND MUST BE ANSWERED.
“1ST CSR ADDRESS (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
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966

SEQ 8

PAGE 66

“1ST VECTOR ADDRESS (300:770):

SYSTEM

YOU

WISH

YOU MUST TYPE IN THE VECTOR OF THE
UNDER TEST.
RANGE 300:770

FIRST

DZ11

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 (4:6):

“TYPE

"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
<DZCSR03=1>
<H3271>-EIA ONLY
<H3190>-20MA ONLY

(E))
(I)]
(S)]
(S))

TYPE “E” OR “I" OR “S* DEPENDING ON WHICH MODE YOUVHISH'

IN.
IF
RUNNING
“EXTERNAL“;
ALL
TERMINATED BY AN H325 TEST CONNECTOR.

SELECTED

LINES

MUST

RUN
BE

CZDZA-IO0
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
6006
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.
khskkbhis

SWO3=1

THEN

SYSTEM.

RANGE

setssskss

IF SW03=1 THE FOLLOWING WILL BE PRINTED.
“LINES ACTIVE BY BIT <IN OCTAL> (001:377):

EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES
MAY
BE
SELECTED
(HOWEVER
IN STAGGERED MODE TWO ADJACENT LINES MUST BE
SELECTED (0-1, 2-3, 4-5, 6-7))..

"DEFAULT BAUD RATE <IN OCTAL> (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”(
75 BAUD),“02"( 110 BAUD), “03“( 134 BAUD),
"04"( 150 BAUD), “05”( 300 BAUD), “06“( 600 BAUD), “07“(1
200 BAUD),
"10"(1800 BAUD), “11”(2000 BAUD), “12”(2400 BAUD), "13“(3
600 BAUD).
"14"(4800 BAUD), “15"(7200 BAUD), “16"(9600 BAUD),“17“(19.
2 KBAUD)
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN
THE
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY.
sx&

NOTE

#%«

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.

L
T PP PP TP

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
DZ11'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
SW0O=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-I0
CZDZAI.P11
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
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

MACY1l 30AC1052)
02-JUL-85 16:17

02-JUL-85

5.2

16:19

SEQ 10

PAGE 68

HOW TO RUN THE “CABLE/ECHO" TESTS.
NORMAL STARTING FOR THE FIRST TIME WOULD BE:
WITH THE SWR EQUAL TO 003.

NOTE:

LOAD ADDRESS

SWO0=1
ASKS FOR “VECTOR” AND "CSR"
SWO1=1
ASKS FOR “WHICH TEST ECHO OR CABLE”,
UNDER TEST.
PROGRAM WILL PRINT OUT:

210;

“BAUD RATE”,

START

“LINE"

“VECTOR ADDRESS-"
YOU TYPE VECTOR WITH A <CR>.

“CONTROL REGISTER ADDRESS-"
YOU TYPE IN DZCSR UNDER TEST.
“WHICH TEST

ECHO OR CABLE (E OR C)”

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

“BAUD RATE-

TYPE EITHER 50,

3600, 4800,
“LINE:

110,

135,

150,

300,

600,

7200, 9600 FOLLOWED BY <CR>

1200 1800,

2000,

2400,

”
YOU TYPE THE LINE WHICH HAS
THE
H325
TEST
CONNECTOR.
EITHER 0, 1, 2, 3, 4, 5, 6, 7) PROGRAM WILL THEN PRINT:

(TYPE

“CABLE TEST”
AND IF EVERYTHING IS WORKING;

THE FOLLOWING WILL BE PRINTED:

“PASS DONE.
"

"Pé?é DONE. “

T0 CHANGE LINES;

HIT ANY PRINTING KEY ON YOUR CONSOLE

TERMINAL

WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED:

“LINE:

NOW CHANGE THE H325 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-IO0
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

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

02-JUL-85

5.3

16:19

SEQ 11

PAGE 69

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

ECHO OR CABLE (E OR C)”

NOW TYPE AN “E” 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: S0, 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 IS CONNECTED TO AT THE DIST PNL
THE PROGRAM WILL PRINT:

THEN

“TERMINAL ECHO TEST”
ss4 AT

THIS POINT

THE MESSAGE:

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

SHOULD BE PRINTED ON THE TERMINAL CONNECTED
TO
THE
DZ11.
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;
THE CONSOLE WILL PRINT:
“TYPE A CHAR.

ON DZ11 TERMINAL"

ANY PRINTABLE CHAR HIT ON DZ11 TERMINAL SHOULD BE ECHOED BACK ON
THE
TERMINAL.
#&«IF
YQU HIT CNTRL C <tC> ON THE DZ11 TERMINAL
THE PROGRAM WILL PRINT:

“PASS DONE."

ON THE CONSOLE TERMINAL

PRINTED
RUNNING.

AND

THE

“QUICK

BROWN

FOX*

WILL

ON
DZ11
TERMINAL
AGAIN
AND
THE
ECHO
TEST WILL BE
TO CHANGE LINES:
TYPE ANY PRINTABLE CHARACTER
ON THE

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

THE PROGRAM WILL AGAIN

CZDZA-I0
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
FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR
RESTRICTIONS.
(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

OUT _AND POSSIBLY
AN ERROR MESSAGE
(DEPENDING ON THE PARTICULAR ERROR).
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT

THEN LOOK IN THE
PC OF THE
ERROR

PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE
REPORT.
THE
REASON FOR THE
ERROR REPORT WILL BECOME

CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING.

ERRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND PC
TYPED
OUT
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

WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR.
6.2

ERROR

MESSAGE

ERROR RECOVERY
IF FOR SOME REASON THE DZ11 SHOULD 'HANG THE BUS' (GAIN CONTROL
OF
BUS
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL
OF
CPU.
IF
THIS
SHOULD
HAPPEN;
LOOK
IN
LOCATION ‘$TSTNM'
(BYTE 1122) FOR THE NUMBER OF THE
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC
ERROR.
1IN
THIS
WAY
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZ11 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.

CZDZA-I0
CZDZAI.P11

6178

6179
6180
6181
6182
6183
6184
6185
6186

———

6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177

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

EXECUTION TIME

ALL DZ11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS'
MESSAGE
(PROVIDING
NO ERRORS AND SW12=0)
WITHIN 2 MIN. THIS IS ASSUMING SWii=1 (INMIBIT
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION.

THE

EXECUTION TIME DEPENDS GREATLY ON THE PDP11 CPU CONFIGURATION.
WITH

ACTUAL

AN 11/40

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
POP11 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:
<EVERY# TIME THE PROGRAM IS STARTED;
THE TESTS WILL RUN AS
IF
SWil
(DELETE ITERATIONS)
MWAS UP (=1).
THIS IS TO 'VERIFY NO sHARD#
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

CZDZA-I0
CZDZAI.P11

6188
6189
6190
6191
6192
6193
6194
6195
619
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214

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

02-JUL-85

8.4

16:19

SEQ 14

PAGE 72

KEY LOCATIONS

SLPADR (1126)

(1360)

RUN

(1406)

$TSTNM (1122)

STATUS MAP
(1500)-(2000)

CONTAINS THE ADDRESS
ITERATION
COUNT
IS

WHERE
PROGRAM
WILL
RETURN
WHEN
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/7000000001000000 MEANS THAT DZ11 NO.0S IS THE
DZ11
NOW RUNNING.

THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO
TEST
UP
TO 16 (DECIMAL) DZ11S SEQUENTIALY.
THEY CONTAIN THE

gig.vgglgfl AND STATUS CONCERNING
DZACTV (1404)

THE

CONFIGURATION

EACH
BIT
SET
IN
THIS
LOCATION
INDICATES
THAT
THE
ASSOCIATED
DZ11
WILL
BE
TESTED
IN
TURN.
EXAMPLE:
(DZACTV)
1300/0000000000011111
MEANS
THAT
DZ11
NO.
00,01,02,03,04
WILL
BE
TESTED.
EXAMPLE:
(DZACTV)
%EO$/8000000000010001 MEANS THAT DZ11 NO.

$BASE

(1310)

STED.
$22}AINS THE RECEIVER CSR

THE

CURRENT

00,04 WILL BE

DZ11

UNDER

CZDZA-I0
CZDZAI.P11

6216
6217
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
6254
6255
6256
6257
6258
6259

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

02-JUL-85

8.4A

16:19

SEQ 15

PAGE 73

MORE ON THAT

'STATUS TABLE'

(1500-2000)

"MAP OF DZ11 STATUS'
160100
000300

1500
1502
1504
1506
1510
1512

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:
1500
THIS IS THE SYSTEM CONTROL REGISTER FOR THE 1ST DZ11
160100
1IN
THE SYSTEM.
000300
1502
THIS IS VECTOR ‘A’ FOR THE FIRST DZ11 IN THE SYSTEM.
000005
THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF
1504
THE
DZ11.
BIT1S
OF
THIS LOCATION INDICATES EITHER EIA OR
20MA. IF BIT15=0 MODULE
SHOULD
BE AN M7819, IF BIT1S=1
MODULE SHOULD BE AN
M7814.
1506
000377
THIS IS THE BINARY REPRESENTATION OF WHAT LINES
ARE
TO
BE TESTED.
1510
THIS IS THE PARAMETER
017070
LOCATION
USED
IN
MOST
OF
THE
TESTS.
IT INDICATES PARAMETERS OF:
RX ON, SPEED SELECT

16 (9600 BAUD) EIGHT BITS PER CHAR,

1512

000000

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 MODE OF OPERATION OR
IT WILL CONTAIN 100000 INDICATING THAT “STAGGERED
MODE“
WAS
SELECTED
OR IT WILL CONTAIN 000200 INDICATING THAT
“EXTERNAL” WAS THE MODE SELECTED.

THE ABOVE IS REPEATED FOR EACH DZ11 IN THE SYSTEM.
THE TABLE IS
FILLED
BY
AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PROGRAM
AS
DESCRIBED
PREVIOQUSLY.
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

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

02-JUL-85

16:19

8.5

ss¢s METHOD OF AUTO SIZING ##++

8.5.1

FINDING THE CONTROL STATUS REGISTER.

6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
627
6279

6280
6281
6282
- 6283
6284

6285

6286

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

ADDRESS 163700 IS REACHED.

IF A

DZ11 (OR ANY OTHER DEVICE) (NO

AND

THE

ABOVE

'SLAVE SYNC RESPONSE'

NXM

TRAP),

“MASTER

REPEATED

UNTIL

WAS ISSUED BY THE

SCAN

ENABLE"

ATTEMPTED TO BE SET AND THE “TCR” BIT FOR LINE 7 IS SET.
“TRDY” IS THEN
TESTED TO BE SET AND BOTH "TCRO7” AND “MASTER SCAN ENABLE“ ARE TESTED TO
BE
STILL
SET.
IF ALL OF THIS WORKED;
THEN A “DEVICE CLEAR” IS ISSUED
TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER SOME TIME
IT
SELF
CLEARS.
IF
ALL
OF
THE ABOVE WORKED;
THIS DEVICE IS ASSUMED TO BE A
DZ11.
1IF ANY OF THE ABOVE FAILED;
UPDATING OF THE POINTER IS DONE
AND
THE SEQUENCE IS REPEATED.
NOTE:
IF THE PROGRAM DOES NOT FIND YOUR DZ11;
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
?E7AN4§IA MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR
20MA
M7814).

8.5.2

6287

FINDING THE VECTOR
THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND

6288
6289
6290
6291
6292

6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311

SEQ 16

PAGE 74

‘.+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 OAD DZ11) THE PROG'’
. ASSUMES
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE 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.

8.5.3

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 IF NOT TO YOUR SPECIFIC CONFIGURATION

MAY

ALTERED

HAND

(TOGGLE IN) IF DESIRED). IN THIS WAY 95 PERCENT OF THE PARAMETER SETUP
WAS DONE BY THE PROGRAM, AND S PERCENT BY YOU.
THEREFORE:
1)
BUS PRIORITY IS SET TO LEVELS.
2)
ALL EIGHT LINES ARE ASSUMED TO BE TESTED.
3)
DEFAULT BAUD RATE IS SET TO 16 (9600 BAUD).
4)
MODE OF OPERATION IS “INTERNAL MODE".

FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO 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
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
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

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

02-JUL-85

16:19

SEQ 17

PAGE 75

9.0

RUNNING THE DZ11 DIAGNOSTIC UNDER APT

9.1.1

THE APT INTERFACE

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE APT-

AUTOMATED

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

SETTING UP THE DIAGNOSTIC USING APT

$SWREG

USED IF A SOFTWARE SWITCH REGISTER IS DESIRED

WHILE

USED TO SPECIFY THE INTERRUPT LEVEL
VECTOR ADDRESS

FIRST

UNDER APT
$VECT1

9.1.3

AND

THE

$BASE

USED TO INDICATE BOTTOM ADDRESS OF DZ11 UNDER TEST

$DEVM

A BIT MAP REPRESENTING WHICH DZ11'S WILL BE TESTED

$COW1

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

$DDWO

EACH OF THE

$DDW

WORDS

DESCRIBES

THE

PARAMETERS

(LPR) FOR A PARTICULAR DZ11, GOING UP TO 16 DZ11'S

RUNNING UNDER APT

THE USER SHOULD BE FAMILIAR WITH
THE
APT
SYSTEM.
THE
APT
TIMING
PARAMETERS
FOR
THE
DZ11 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 OF THE VARIABLES MENTIONED IN SECTION 9.1.2 SHOULD BE

UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT.

SET

NOTE

BE SURE $BASE POINTS TO THE FIRST DZ11 BEFORE RUNNING
BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP
THE
STATUS
TABLE.
THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL.

CZDZA-I0
CZDZAI.P11
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)

hor

MACYi1l 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 TO CLEAR BEFORE
LOWERING THE BUS PRIORITY TO ENABLE DZ11 INTERRUPTS.

GO:

MAY 1981 - INCORPORATE XON/XOFF FEATURES (BY ASSEMBLING WITH
LATEST SYSMAC - CS5) 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
NUHBEgAgF CHARACTERS TRANSMITTED IS WITHIN A RANGE, THE TEST
WILL
S.

;

.TITLE

-PRGFRT-=====2=2=2=z=z=2zz2=zz3=zzzsz=zss=s=s=s===

CZDZA-IO0

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

:*MAYNARD,

MASS.

01754

.
i %

:#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

:#PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.
R

000001

$TN=1

.SBTTL

;STARTING PROCEDURE
;LOAD PROGRAM
;LOAD ADDRESS 000200
;PRESS START
;PROGRAM WILL TYPE “CZDZA-I10/<200>/CZDZAIO DZ11 LN ASYNC MUX TSTS *
;:PROGRAM WILL TYPE "RUNNING” TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
;AND THEN RESUME TESTING
BASIC DEFINITIONS

;#INITIAL ADDRESS OF THE STACK POINTER ##% 1120 ##&

001120

STACK=
.EQUIV
.EQUIV

000011

HT=

1120
EMT,ERROR
IO0T,SCOPE

: sBASIC DEFINITION OF ERROR CALL
: sBASIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS
11

: :CODE FOR HORIZONTAL TAB

(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)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

MACY11 30A(1052)
02-JUL -85 16:17
000012
000015
000200
177776

177774
177772
177570
177570

SEQ 19

02-JUL-85
16:19
PAGE 83
BASIC DEFINITIONS
LF=
CR=
CRLF=

PS=

12
15
200

177776

.EQUIV
PS,PSW
STKLMT= 177774

PIRQ=
DSWR=

DDISP=

177772
177570

177570

:sCODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
:;CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD
:sSTACK LIMIT REGISTER
: sPROGRAM INTERRUPT REQUEST REGISTER

; sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

; *GENERAL PURPOSE REGIST ER DEFINITIONS
s sGENERAL RECISTER
R1=
%1
: sGENERAL REGISTER
R2=
%2
: sGENERAL REGISTER
R3=
%3
: sGENERAL REGISTER
R4=
%4
: iGENERAL REGISTER
RS5=
%5
: iGENERAL REGISTER
R6=
%6
: sGENERAL REGISTER
R7=
%7
: iGENERAL REGISTER
SP=
%6
: s STACK POINTER
PC=
%7
: iPROGRAM COUNTER

000000
000040
000100
000140
000200
000240
000300
000340

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

100000
040000
020000

SW15=

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

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

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

LEVEL

;#“SWITCH REGISTER” SWITCH DEFINITIONS

SWi4=
SW13=
SWi2=

SWil=
SW10=
SW09=
SWo8=
SW07=
SWo6=
SWO5=
SWo4=
SWo3=
SWo2=
SWo1=

SWoo=
.EQUIV

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100000

40000
20000
10000

4000
2000
1000
400
200
100
40
20
10
4
2

1
SW09,SW9
SW08,SuW8
SWO7,SW7
SWO06,SWé
SWO5,SWS
SW04,S5uW4
SWO3,SW3

NouNswWN-LO

CZDZA-I0
CZDZAI.P11

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

(2)
(2)

.EQUIV
.EQUIV
.EQUIV

T Yy,
el ol
e

PNONONININPNONONINININ

NANININININININININIOND

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

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

SEQ 20

02-JUL-85
16:19
PAGE 83-1
BASIC DEFINITIONS

SW02,SW2
SWO1,SuW1
SW00,SWo

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT15=
100000
40000
BIT14=
BIT13=
20000
BIT12=
10000
BIT11=
4000
BIT10=
2000
BIT09=
1000
BITO8=
400
BITO7=
200
BITO06=
100
BITOS=
40
BIT04=
20
BITO3=
10
4
BITO2=
BITO1=
2
BITOO=
1
.EQUIV
BIT09,BIT9
.EQUIV
BIT08,BIT8
.EQUIV
BIT07,BIT7
.EQUIV
BIT06,BIT6
.EQUIV
BITO0S,BITS
.EQUIV
BIT04,BIT4
.EQUIV
BIT03,BIT3
.EQUIV
BIT02,BIT2
.EQUIV
BIT01,BIT1
.EQUIV
BIT00,BITO
;*BASIC “CPU” TRAP VECTOR ADDRESSES
ERRVEC= 4
s s TIME OUT AND OTHER ERRORS
RESVEC= 10
33R$SES¥$D AND ILLEGAL INSTRUCTIONS
TBITVEC=14
TRTVEC= 14
: s TRACE TRAP
BPTVEC= 14
: ;BREAKPOINT TRAP (BPT)
IOTVEC= 20
: s INPUT/0UTPUT TRAP (IOT) #«*SCOPE##
PWRVEC= 24

: sPOWER FAIL
i ;EMULATOR TRAP (EMT) ##ERROR##

EMTVEC= 30
TRAPVEC=34

i: "TRAP” TRAP

TKVEC=
60
TPVEC=
64
PIRQVEC=240

::TTY KEYBOARD VECTOR
;s TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

s INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH15P=5746
POP1SP=5726
PUSHR0=10046
POPR0=12600
PUSH25P=24646
POP25P=22626

;DECREMENT PROCESSOR STACK 1 WORD
: INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

PNPNINPNIN NN INIONINININININONINONINONONONONONONONINONONINONONON
NN NN NN NN NN
PN NP P~ lalalatalatel ~
0 (0 (et (o b b e b (b (b et o e e ot (h (h d b et e b b b (b h (h b (b b e b b b b (et (b (b s e e 5 1 et et ot ot ot et o e ot e et e [

\JUUVU\J\JVVVVVVVVVUVUU\JVUVV\JVU\J\J\JVUVVVVUVUUVVVVVVUVVUUUUV ~

CZDZA-I0
CZDZAI.P11

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

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

:DZ11 CONTROL AND STATUS REGISTER DEFINITIONS
: (DZCSR)
BIT DEFINITIONS
‘ ..............................

000010
000020
000040
000100
000200
010000
020000
040000
100000

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

SILOEN= BIT12
SILOAL = BIT13
TIE=BIT14
TROY=BIT1S

000021
000023

$XON=21
$XOFF=23

RDONE=BIT?7

:MAINTENANCE MODE ENABLE
:DEVICE CLEAR
:MASTER SCAN ENABLE
;RECEIVER INTERRUPT ENABLE

;RECEIVER DONE

;SILO ALARM ENABLE
;SILO ALARM
; TRANSMITTER INTERRUPT ENABLE
: TRANSMITTER READY

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

TLO=0
;s TRANSMIT LINE ©
TL1=BIT8
: TRANSMIT LINE 1
TL2=BIT9
s TRANSMIT LINE 2
TL3=BIT9!BIT8
;TRANSMIT LINE 3
TL4=BIT10
; TRANSMIT LINE 4
TL5=BIT10!BIT8
;TRANSMIT LINE 5
TL6=BIT10!BIT9
;TRANSMIT LINE 6
TL7=BIT10!BIT9!BIT8 ;TRANSMIT LINE 7

;:DZRBUF BIT DEFINITIONS
010000
020000
040000
100000

PARER=BIT12
FRMERR=BIT13
OVRRUN=BIT14
DVALID=BIT15

;PARITY ERROR
;FRAME ERROR
;:OVERRUN ERROR
:DATA VALID

:DZRBUF WORD DEFINITIONS
000000
000400
001000
001400
002000
002400
003000
003400

RLO=0
;RECEIVER LINE O
RL1=BIT8
;RECEIVER LINE 1
RL2=BIT9
;RECEIVER LINE 2
RL3=BIT9!BIT8
;RECEIVER LINE 3
RL4=BIT10
;RECEIVER LINE 4
RL5=BIT10!BIT8
;RECEIVER LINE 5
RL6=BIT10!BIT9
;RECEIVER LINE 6
RL7=BIT10!BIT9!BIT8 ;RECEIVER LINE 7

~ ;DZLPR WORD DEFINITIONS
000000
000001
000002

LPO=0
LP1=BITO
LP2=BIT1

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

SEQ 21

lalalalalalalalealalalalelalalalalalalalalalalalalal
el ot ol ot ol atalalalalalealalealalalealalalalela o) alealalalealele
0 0 (b (e P P o b d (h 8 e B b b b b b (et P Pt e b et e et et h (b h (e e e b e et b e b (b b e e 0 s s ot o ot b b ot o e s -

VUVVUVVUUVVUVUUVVUVUUVUVVVVVUVVVVVVVUUVVVUUVUVVVVVUVVUV ~

CZDZA-I0
CZDZAI.P11

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

SEQ 22

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

000003
000004
000005
000006
000007

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

000000
000010
000020
000030
000040
000050
000060
000070

FIVE=0

:FIVE BITS/CHAR,1 STOP BIT

SIX=BIT3
SEVEN=BIT4
EIGHT=BIT4!BIT3

:SIX BITS/CHAR,1 STOP BIT
:SEVEN BITS/CHAR,1 STOP BIT
;;EIGHT BITS/CHAR,1 STOP BIT

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

FIVES=BITS
SIXS=BITS5!BIT3

SEVENS=BITS5!BIT4

PARAMETER 3
PARAMETER 4
PARAMETER S
PARAMETER 6
;LINE PARAMETER 7

;FIVE BITS/CHAR,2 STOP BITS
;SIX BITS/CHAR,2 STOP BITS

EIGHTS=BITS!BIT4!BIT3

:SEVEN BITS/CHAR, 2 STOP BITS
;EIGHT BITS/CHAR,

PARITY=BIT6
ODDPAR=BIT7
ONESTOP=0
TWOSTOP=BITS

;PARITY ENABLED
;00D PARITY ENABLED
;ONE STOP BIT ENABLED
:TWO STOP BITS ENABLED

$50=0
S75=BIT8
5110=BIT9
S134=BIT9!BIT8

:SPEED
:SPEED
;SPEED
:SPEED

EVEPAR=0
RCVON=BIT12

S$150=BIT10

:EVEN PARITY ENABLED
;ENABLE RECEIVER (RECEIVER ON)

[

TCRO=BITO
TCR1=BIT1
TCR2=BIT2
TCR3=BIT3
TCR4=BIT4
TCR5=BITS
TCR6=BIT6
TCR7=BIT7
DTRO=BIT8
DTR1=BIT9
DTR2=BIT10
DTR3=BIT11
DTR4=BIT12
DTR5=BIT13
DTR6=BIT14

50 BAUD
75 BAUD
110 BAUD
134.5 BAUD

:SPEED 150 BAUD

S300=BIT10!BIT8
:SPEED
S$600=BIT10!BIT9
:SPEED
S$1200=BIT10!BIT9!BIT8
;SPEED
$1800=BIT11
:SPEED
$2000=BIT11!BIT8
:SPEED
$2400=BIT11!BIT9
:SPEED
$3600=BIT11!BIT9!BIT8
;SPEED
S54800=BIT11!BIT10
:SPEED
$7200=BIT11!BIT10!BIT8
;SPEED
S9600=BIT11!BIT10!BIT9
;SPEED
$19200=BIT11!BIT10!BIT9!BITS

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

2 STOP BITS

300 BAUD

600 BAUD

1200 BAUD

1800 BAUD
2000 BAUD
2400 BAUD
3600 BAUD

4800 BAUD

7200 BAUD
9600 BAUD
:SPEED 19200 BAUD

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

100000

SEQ 23

02-JUL-85
16:19
PAGE 83-4
GENERAL DEFINITIONS AND EQUIV"' “NCES

DTR7=BIT1S

;:DTR7

C02=BIT10
CO3=BIT11
C04=BIT12
COS5=BIT13
C06=BIT14
C07=BIT15

;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;RING INDICATED ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE
;CARRIER PRESENT ON LINE

000400
001000
002000
004000
010000
020000
040000
100000

BRKO=BIT8
BRK1=BIT9
BRK2=BIT10
BRK3=BIT11

BRK4=BIT12

BRK5=BIT13

BRK6=BIT14

BRK7=BIT15

;BREAK FOR LINE
;BREAK FOR LINE
;BREAK FOR LINE
;BREAK FOR LINE
;BREAK FOR LINE
;BREAK FOR LINE
:BREAK FOR LINE
;:BREAK FOR LINE

; TABLE OF LOOP AROUND FUNCTIONS (H325)

NS WO

:DZTDR BIT DEFINITIONS

NOUNESWN
-

RINGO=BIT
RING1=BIT1
RING2=BIT2
RING3=BIT3
RING4=BIT4
RING5=BITS
RING6=BIT6
RING7=BIT7
C00=BIT8
C01=BIT9

N~Nouneswn-O

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

:DZMSR BIT DEFINITIONS

’\f\"\f\fiflflflflfiflflfif\f\flflflflfiflfiflfiflfl"\f\fi fiflflflflfififlfiflfihflf\flfiflfl
lalalalate)
0 et et (s o b d d ot P o s et P b b h b b b P e e i s
ol
UUVVVVVUVVVVVVUVVUUVUVUU NI 8 ot s o d b o o o o b ot e et it b b e sl adad
UVVV\JVUVVVUVVVVVVV N

CZDZA-I0
CZDZAI.P11

(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)
(2)
(2)
(3)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(2)
(2)
(2)
(2)

MACY11l 30A(1052)

02-JUL -85 16:17

02-JUL-85

16:19

SEQ 24

PAGE 83-5

TRAPCATCHER FOR UNEXPECTED INTERRUPTS
3:‘tt‘.“‘.tt““..‘.“‘t‘t“.““‘t‘t“‘t““‘.“‘.t

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

s TRAPCATCHER FOR ILLEGAL INTERRUPTS
:THE STANDARD “TRAP CATCHER" IS PLACED
;BETWEEN ADDRESS O TO ADDRESS 776.
+IT LOOKS LIKE “PCec HALT".
R

000000

.=0

LL
Y T
y
Tttt
T

:STANDARD INTERRUPT VECTORS
‘

000010
000012

000010
011430
000340

.=10

000020
000022
000024
000026
000030
0C0032
000034
000036

000020
005122
000340
010310
000340
007220
000340
007112
000340

.=20

.SBTTL

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

SET.PS
PR7

iFAKE "MTPS” INSTRUCTION TRAP
sMAKE 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

et
L
L t
T T
T
T
T

000046
000052

000040
000046
005056
000052
00C000
000040

000210

000174
000000
000C00
000200
000137
000210
000137

001000

001000
005200

000174
000176
000200

;HOOKS REQUIRED BY ACT11
osx:c-.

:SAVE PC

ieggno

:31)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

JWORD

. =$SVPC

=174
DISPREG: 0
suaeg:
.=20

002150

.=210

025244

055103

055104

.=1000
MTITLE:

t
TTTTTTTryrYyYTY

:32)SET LOC.52 TO ZERO

RESTORE PC

:SOF TWARE DISPLAY REGISTER FOR SWITCHLESS 11S

;SOFTARE SWITCH REGISTER FOR SWITCHLESS 11S

JMP

.START

;GO TO START OF PROGRAM

JMP

XSTART

:GOTO CABLE TEST/ECHO TEST

.ASCIZ

<200><12>/CZDZA-I0/<200>/CZDZAIO DZ11 LN ASYNC MUX TSTS /<200>

CZDZA-I0
CZDZAI.P11

SEQ 25

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

.SBTTL

COMMON TAGS

PIRRARARAAAARAA AR AR AN AR AR AL

EARA 4000000000000

0404 000040444

+#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

:#*USED IN THE PROGRAM.

001202
001204
001206
001210
001212

001214

001216
001220
001222
001224
001226
001230
001231
001232

.BYTE
.WORD
SWR:
.WORD
DISPLAY: . WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL
:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD
$REGO:
$REG1:
$REG2:
$REG3:
$REG4:
$REGS:
$TMPO:
$TMPL:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$TMP2:
.WORD
$TMP3:;
.WORD
$TIMES: 0
$QUES:
.ASCII
$CRLF:
.ASCII
$LF:
.ASCIZ

$AUTOB:
$INTAG:

DDISP

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX
: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD

o OCO0OO0O000O0O0O0COROOOO00O0O0O
w

.=1120

$CMTAG:

OOHNO

001120
001120
001122
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

OCO0OO0O0O000O00O

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

alalalelelelalelelelololelolelelelale lalalelelelalalelelealalelalealelelalale]

o N N o N

o o N o o o

alelelealalelalalalalalelelalelals]
SHBUUUKULILILILILIVIVIVIVIVINW WNWWWWW
N W NN
W WWWW WWWHWWWNWNEN
NN NN DS W
N N N N N N N N N N N N N N N
D N N

(3)

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

/7?7

<15
12>

.SBTTL

APT MAILBOX-ETABLE

AR AL L4400

::START OF COMMON TAGS

: s CONTAINS THE TEST NUMBER
: s CONTAINS ERROR FLAG
: s CONTAINS SUBTEST ITERATION COUNT
: sCONTAINS SCOPE LOOP ADDRESS
: s CONTAINS SCOPE RETURN FOR ERRORS
: s CONTAINS TOTAL ERRORS DETECTED
: s CONTAINS ITEM CONTROL BYTE
: ;CONTAINS MAX. ERRORS PER TEST
; s CONTAINS PC OF LAST ERROR INSTRUCTION
; s CONTAINS ADDRESS OF 'GOOD‘ DATA
: sCONTAINS ADDRESS OF ‘BAD' DATA
: s CONTAINS ‘GO0D’ DATA
: ;sCONTAINS 'BAD’' DATA
s sRESERVED--NOT TO BE USED
i s AUTOMATIC MODE INDICATOR
+ s INTERRUPT MODE INDICATOR
: s ADDRESS OF SWITCH REGISTER
: s ADDRESS OF DISPLAY REGISTER
;s TTY KBD STATUS
::TTY KBD BUFFER

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

0000804004000 00000000400000000000004044

CZDZA-I0
CZDZAI.P11

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

02-JUL-85

16:19

APT MAILBOX-ETABLE
1108884044840

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

001234
001234
001236
001240
001242
001244
001246
001250
001252
001254
001254
001255
001256
001260
001262

44 0400000000000t
00ttt btbbbbt bbbttt

.EVEN
$MAIL:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:

$ENV:

$ENVM:
$SWREG:
$USWR:
$CPUOP:

.BYTE

.BYTE
.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

&
A
L]
1 ®
i1 ®

(4)
(4)

$MAMS1:

$MTYP1:

.BYTE

AMAMS1
AMTYP1

.WORD

AMADR1

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

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4
AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACOW2
ADDWO
ADDW1
ADDW2
ADDW3

.BYTE

i ®
1 *
i *

i1 *

1
i

(4)

001266

$MADR1:

(4)

001270

$MAMS2:
$MTYP2:
$MADR2:
$MAMS3:
$MTYP3:
$MADR3:
$MAMS4:
$MTYP4:
$MADR4:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$COW1:
$COM2:
$DDWO:
$DDW1:
$DDW2:
$ODW3:
$ODW4:
S$DDMS:
$0DW6:
$DOW7:
$0DWé:
S$DDM9:

(4)
(4)
(4)

001271
001272
001274

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

001276
001300
001301
001302
001304
001306
001310
001312
001314

(4)
(8)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

001320
001322
001324
001326
001330
001332
001334
001336
001340
001342

(4)

001275

(8) 001316

;sAPT MAILBOX
s sMESSAGE TYPE CODE
:sFATAL ERROR NUMBER
s s TEST NUMBER
: s PASS COUNT
s sDEVICE COUNT
:3170 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
:sAPT ENVIRONMENT TABLE
: sENVIRONMENT BYTE
: sENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER
: sUSER 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

0C1264
001265

SEQ 26

PAGE 83-7

i1 *

ADDWS
ADOW7

BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

s sHIGH ADDRESS,M.S. BYTE
s sMEM. TYPE,BLK®1

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

+ sHIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE

+ sHIGH ADDRESS,M.S. BYTE
s sMEM. TYPE ,BLK®2
+ sMEM.LAST ADDRESS,BLK®&2
+ sHIGH ADDRESS,M.S.BYTE
s sMEM. TYPE ,BLK®3
3+ sMEM.LAST ADDRESS,BLK#3
+ sHIGH ADDRESS,M.S.BYTE
s sMEM. TYPE ,BLK®4
+ sMEM.LAST ADDRESS,BLK®#4
+ s INTERRUPT VECTOR#1,8US PRIORITY#1
+ s INTERRUPT VECTOR®2BUS PRIORITY®2
+:BASE ADDRESS OF EQUIPMENT UNDER TEST
1 sDEVICE MAP
+ sCONTROLLER DESCRIPTION WORD#1
+ sCONTROLLER DESCRIPTION WORD#2
+ sDEVICE DESCRIPTOR WORD&O
+ sDEVICE DESCRIPTOR WORD#1
+ sDEVICE DESCRIPTOR WORD#2

+ sDEVICE DESCRIPTOR WORD#3
+sDEVICE DESCRIPTOR WORD&4
+sDEVICE DESCRIPTOR WORD®S
+;DEVICE DESCRIPTOR WORD®6

+sDEVICE DESCRIPTOR WORD#7
+sDEVICE DESCRIPTOR WORD#8
+ sDEVICE DESCRIPTOR WORD#9

CZDZA-I0
ZCTAILP1L
(4)
(4)
(4)
(4
(4)
(4)
(4)
(4)

(4)
(4)

001344
001346
001350
001352
001354
001356

001360

MACY11 30A(1052)

02-JUL -85 16:17
000000
000000
000000
000000
000000
000000

SEQ 27

02-JUL-85
16:19
PAGE 83-8
APT MAILBOX-ETABLE
$DDW10:

s$DDM11:

sODW12:
$ODW13:
sDDW14:
SODW1S:

SETEND:

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

ADDW10
ADDW11
ADDW12

ADDW13

ADDW14
ADDW15

+ sDEVICE
1sDEVICE
+sDEVICE
+sDEVICE
+ sDEVICE
+ sDEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD®10
WORD#11
WORD#®12
WORD#13
WORD®14
WORD®1S

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL -85 16:17

.SBTTL

ERROR POINTER TABLE

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

RN
N NN RN
~
P

WHNWWWWWNWwW w

alalalelialelalalele ~

(3)
(3)
(3)
(3)

SEQ 28

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

:#NOTEL:
:*NOTE2:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

: sPOINTS
: sPOINTS
:sPOINTS
:sPOINTS

EM
DH
DT
DF

001360

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

:PROGRAM CONTROL PARAMETERS
001360
001362

000000
000000

NEXT:
LOCK:

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

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

000377
017070
000000
000000
000000
000000
000000
000000
000001
000001
000001
001

LINE:
PAR:
MODE
:
SAVLIN:
XMTLIN:
XMTCNT:
REGIST:

;:DEFAULT ALL EIGHT LINES RUNNING
:PARAMETERS: 8 BITS/CHAR,2 STOP BITS, 960C BAUD,NO PARIT

001412

001500

SAVPC:
DZACTV: .BLKW
RUN:
DZNUM:
.BLKB 1
SAVNUM: .BYTE 1
.EVEN
ACTIVE: DZ .MAP

:DEFAULT MAINTENANCE MODE
;LINE NUMBER
: TRANSMISSION LINE NUMBER
;COUNT OF WORDS IN A TRANSMISSION PATTERN
;:DEVICE ADDRESS STORAGE LOCATION
:PROGRAM COUNTER STORAGE
:#DZ11'S SELECTED ACTIVE.
:#POINTER ONE PAST RUNNING DEVICE.
:#0CTAL NUMBER OF DZ11'S.

: *WORKABLE NUMBER.

: TABLE POINTER.

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)

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

SEQ 29

02-JUL-85
16:19
PAGE 83-10
ERROR POINTER TABLE
;PROGRAM CONTROL FLAGS

001414
001415
001416
001417
001420

EIAFLG:
INIFLG:
HDRFLG:
MNTFLG:
DchhG:

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

TD0:
T01:
TD2:
TD3:
T04:
TDS:
TD6:
TD7:
TRO:
TR1:
TR2:
TR3:
TR4:
TRS:
TR6:
TR7:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
O
8
0

;DATA VARIABLES

000000
000000
000000
000000
000000
000000

STOP:
:

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

O
O

.WORD

.SBTTL
R

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

.WORD
.WORD

END

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

MACRO

=====z2==z=zs=23z===3==

APT PARAMETER BLOCK
T

PP PP

PP P PFPre

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
L L

000024
000044

001462
000024
000200
000044
001462
001462

T P
P PP PP P PP PYPre

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

: ; SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP
: sPOINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

‘

LT T
T P P PP P PP PP PP PP PPrPes

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

000000
001234
000132
000137
000137
000052

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

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

;:DZ11 STATUS TABLE AND ADDRESS ASSIGNMENTS
‘

001500

O
;s TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
$MAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
90.
;:RUN TIM OF LONGEST TEST
95.
:sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
95.
: sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLE(CWORDS)

.=1500
DZ.MAP:

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

CZDZA-I0
CZDZAI.P11

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

NWOWWWHNWNWNANNWWNNNWN
NN N NN NN NN NN NN
NN NN NN NN W
VVUVUVV\J\J\JUVU\JVVUVUUVVU\JVVVV\JVVUV\JVUUVUVVVVVVVU\JVVVUUV\J

gg)

001500
001502
001504

000001
000001
000001

DZCRO:
DZVCO:
DZLVO:

.BLKW
.BLKW
.BLKW

(3)
3)

001510
001512

000001
000001

PARO:
MANTO:

.BLKW
.BLKW

PNPNPNANANINANIN NN NN ONONONONONONONONONONONONONONONONONCNONONCONONCNCNCONNNPN
NN
PN PN PP~

001506

000001

LINEO:

;

END

.BLKW

:CONTROL STATUS REGISTER FOR DZ11 NUMBER 0
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 0
;PRIORITY LEVEL AND EIA FLAG SELECTOR

1
1

;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE

MACRQ

;ALL LINES SELECTED

======2=z2zzzz=zz3az333
:

001514
001516
001520
001522
001524
001526

000001
000001
000001
000001
000001
000001

DZCR1:
DZVC1:
DZLV1:
LINE1l:
PAR1:
MANT1:

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

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

: -- ém-o MACR) ==2==zz=z=zzzzz=zzassa==

DZCR2:
DZvC2:
DZLV2:
LINE2:
PAR2:
MANT2:
:

END

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
O

MACR)

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

DZCR3:
DZVC3:
DZLV3:
LINE3:
PAR3:
MANT3:

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

1
1
1
1
1
1

======2=z=2=zz23z23z=23=

000001
000001
000001
000001
000001
000001

; -~ Em.o MACR) ======zzzzz33z33s3=z=33

DZCR4:
DZVC4:
DZLV4:
LINE4:
PAR4 :
MANT4:

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

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

~-$JUNK-=2====3=zzzz=zssssss=s=sssssss=======3==3

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

; -- Em.o MACR) ======zz=zzzs3s3ss=zss33=
:

001574
001576
001600
001602
001604
001606

~$JUNK-====s=2=2=2=222222=z=2szzz=z===zsss==s==2

;CONTROL STATUS REGISTER FOR DZ11 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
:

001560
001562
001564
001566
001570
001572

-’Jum-..--‘...'--'..-.”-.-.'.I"""-.-..

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

001544
001546
001550
001552
001554
001556

-‘wm--:-----.:::-----:l--.slaas--s.-lla--

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

001530
001532
001534
0C1536
001540
001542

“$JUNK-22s23sssssssssssssss3sssssssssssssss

1
1
1

3)
3)
3)

(3)
(3)
(3)
(3)

SEQ 30

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

DZCRS:
DZVC5:
DZLVS:
LINES:
PARS:
MANTS:

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

1
1
1
1
1
1

~$JUNK-====2=2=z33z=zzzz3sszsssssss=ss=s======2

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

; -- Em.o MACRQ ====23=z=zzzs3z=z3zz33s=
:

-$JUNK-2=2=2=2=22z3s====zs333=33s=ssssssssssss==

CZDZA-IO0

CZDZAI.P11

NHWWWWHNWHNNNANNANNNNANNNNNNN
NN NN NN NN NN NN NN NN W
\.lVV\JV\JUUVU\JVU\JVUVVVUVUVU\JVUVVVVMVUU\!UVVVVVVUVUVVVVUUUV

(3)
(3)
(3)
(3)
(3)
(3)

001610
001612
001614
001516
001620
001622

MACY11 30A(1052)

02-JUL-85

02-JUL -85 16:17

16:19

APT PARAMETER BLOCK

000001
000001
000001
000001
000001
000001

DZCR6:
DZVC6:
DZLV6:
LINE6:
PAR6 :
MANT6:
i

END

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
O

MACRQ

1
1
1
1
1
1

PNANINONANINIONININONIONINONONONONONIONONONONONONONONONONONCNCONCNNCNCNONCONONN
N NN\

3)
3)
3)
3)
3)
3)

—

SEQ 31

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

===s===2s3=2=23==23zsz3=z==
i

001624
001626
001630
001632
001634
001636

000001
000001
000001
000001
000001
000001

DZCR7:
DZVC7:
DZLV7:
LINE7:
PAR7:
MANT7:
;

END

.BLkW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
0

1
1
1
1
1
1

MACRQ)

;CONTROL STATUS REGISTER FOR DZ11 NUMBER 7
;RECEIVER AND BASE VECTOR
FOR DZ11 NUMBER 7
;PRIORITY LEVEL AND EIA FLAG SELECTOR
;ALL LINES SELECTED
;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE
====2=z=2=zzzz3=2=3=3=3=s=
i

001640
001642
001644
001646
001650
0C1652

000001
000001
000001
000001
000001
000001

DZCR10:
DZVC10:
DZLV10:
LINE1O0:
PAR10:
MANT10:

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

1
1
1
1
1
1

001664
001666

000001
000001
000001
000001
000001
000001

; -- END.O MACRO ======zzz2=zzs=zs=zzss3=

DZCR11:
DZVC1l:
DZLV11:
LINE1l:
PAR11:
MANT11:

.BLKW
.BLKW
.BLKW
.BLKW

.BLKW
.BLKW

1
1
1
1

1
1

000001
000001
000001
000001
000001
000001

;PARAMETERS
;MAINTENANCE MODE FOR THIS DEVICE

; -- END.O MACR) =====z=zzzs3z3zzz=s3=s

DZCR12:
DZVC12:
DZLvVi2:
LINE12:
PAR12:
MANT12:

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

1
1
1
1
1
1

000001
000001
000001
000001
000001
000001

: -- Em.o MACRQ) ======z=zzz=zzz3zz=3=s3s

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

END

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
O

MACR)

1
1
1
1
1
1

000001
000001

DZCR14:
DZVC14:

.BLKW
.BLKW

1
1

-’Jum--.‘I.-I-.-.".'..”........".’8”’.

;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

=====s===z=zzzszz=333
i

001720
001722

-‘Jum-..-I‘..'.'.-.--....-’..a.--’.-I-’-"

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

001704
001706
001710
001712
001714
001716

“$JUNK-===2===ssz2==3=2=2=2z=2=2s=zz==zsz==sss=s==

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

‘

001670
001672
001674
001676
001700
001702

“$JUNK-====22222=22222zszzzzszs=ssss=ss====22

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

001654
001656
001660
001662

“$JUNK-===2223s=2s2s2s22z22s=sssssssssssss=2=s2

“$JUNK-=2==s=s=szsss=s=2ssss=2=23s3333333s333=3

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

hor

N NI NI NI NI NI N NI NI NS N
N N N N

NI NI
NI NN NI
N N N N N N N N

lalalelalalalelealealelalealeolelelelalale] lalelalalalalalalalealelalale]

FHEWWNWNWNWWWWNNWNWNWNN
W WW WHWWAHNWAWNWNNNNW
N

CZDZA-I0
CZDZAI.P11
001724
001726
001730
001732

MACY11 30A(1052)
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:
MANT14:
;

END

.BLKW
.BLKW
.BLKW
.BLKW
O

MACRQ

1
1
1
1

sPRIORITY LEVEL AND EIA FLAG SELECTOR
sALL LINES SELECTED
:PARAMETERS
sMAINTENANCE MODE FOR THIS DEVICE

=====ss3ssssssszz3=2=
i

001734
001736
001740
001742
001744
001746

000001
000001
000001
000001
000001
000001

DZCR15:
DZVC15:
DZLV1S:
LINE1S:
PAR15:
MANT1S:
i

END

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
O

MACR)

1
1
1
1
1
1

;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

======zs=ss=s23z2=z33==
i

001750
001752
001754
001756
001760
001762

000001
000001
000001
000001
000001
000001

DZCR16:
DZVC16:
DZLV16:
LINE16:
PAR16:
MANT16:
;

END

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

MACR)

1
1
1
1
1

000001
000001
000001
000001
000001
000001

DZCR17:
DZVC17:
DZLV17:
LINE17:
PAR17:
MANT17:
;

002000

177777

END

DZ.END:

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

MACRQ

177777

1
1
1
1
1
1

“$JUNK-=22=2=2z=2sszs=ss222s=22z3sssss2sazszzszz

;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
iMAINTENANCE MODE FOR THIS DEVICE

=====zzsz=zssss=z=2z=z=z==
‘

001764
001766
001770
001772
001774
001776

“$JUNK-22332s=ssssssz22s2zzssssssssssszzzzss

-‘Jum-.'.---..I-.-...--..-...’-’.’-'-.--'.

;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

============2z2=2z=z=z==

————

CZDZA-I0
CZDZAI.P11

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

(1)
(1)

;:DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND

g{;

:IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS

(1;

B
(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)

gi;

SEQ 33

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

;:‘.“‘.““““““““.‘t‘““““““t.““‘l““t“

002002

104400
007206

e s e
e
.TRPTAB:
ADVRNCE'TRAPOO
.ADVANCE

002004

104401
005376

SCOP1=TRAP+1
.SCOP1

002006

104402
005422

TYPE=TRAP+2
.TYPE

002010

104403
006242

INSTR=TRAP+3
.
.INSTR

002002

;

END

MACR)Q

MACR)

002012

104404
006416

0C2014

104405
006436

PARAM=TRAP +5
.PARAM

002016

104406
011142

SETFLG=TRAP+6
.SETFLG

002020

104407
006636

SAVO5=TRAP+7
.SAVOS

002022

104410
006676

RESOS'TRAP010
.RESOS

INSTER TRAP+4
.INSTER
;

;

END

MACR)

"ACRO

MACR)

"ACRO

;CALL TO TELETYPE OUTPUT ROUTINE
==========2zz=zzz=z=z==

;CALL TO ASCII STRING INPUT ROUTINE
========2=2=zz=z=z=z=z=z===

;CALL TO INPUT ERROR HANDLER
======z=3z=z3z==z=z=z==

;:CALL TO NUMERICAL DATA INPUT ROUTINE
=====sss=szs3z3zssz====

;CALL TO

;CALL TO REGISTER SAVE ROUTINE
=======z==zzzzz=zzs=s=

ZTs=sss=SssssTTIT=S

002030

104413
007134

DEVICE.CLR=TRAP+13
.DEVICE.CLR

002032

104414
007166

002034

104415
026772

002036

002040

104417
007154

END

MACR)

;CALL TO DATA OUTPUT ROUTINE
===========zz=zzs=zz==

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.
=====z=z==s==z=2=zz=3==z=

;CALL TO ISSUE A DEVICE CLEAR

========zzzzss=z=z===

DELAY=TRAP+14
;CALL TO DELAY FOR FAST CPU'S
.DELAY
;i -- END 0 MACRQ ==========zzzz=zzz==
PARHD'TRAPOIS
;CONVERT DECIMAL STRING TO OCTAL
.PARMD
;

104416
027166

)

;:CALL TO REGISTER RESTORE ROUTINE

CNVRT'TRAPOIZ
.CNVRT
;

SET FLAG ROUTINE

Ssszssssss=ssszss=s

002026

MACRQ

END

HACRO

PAWCH=TRAP+16
.PAWCH
;

END

MACRQ

DCLASM=TRAP+17
.DCLASM
;

END

"ACRO

e S

====ss==z=2zzzzzszs==

104412
006734

““““‘t.““

;CALL TO LOOP ON CURRENT DATA HANDLER

002024

END

=======2zzzzz=zss=s==

CONVRT=TRAP+11
.CONVRT
--

1 8

;CALL TO ADVANCE TO NEXT TESTC OR SCOPE THIS ONE)

104411
006730

;

=sszsssSS=SI=SsSIIST=S

;SET FLAG

ECHO OR

CABLE

====z=s=====zzzs=zzz=z==

;:CLEAR DEVICE, SET MAINT. BIT IF I MODE
STZ=zZsTsTsT=TSISSST===

CZDZA-I0
CZDZAI.P11

(1)
(1)

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

SEQ 34

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

R Ly
P P
P T TP TSIy

CZDZA-I0
CZDZAI.P11

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

(1)

:DZ11 VECTOR AND REGISTER INDIRECT POINTERS

gi;
(1)
(1)
(1)

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
E{;
(1

SEQ 35

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

;WORKING AREA
002042
002044
002046

160040
160041
160042

002052
002054
002056
002060
002062
002064
002066
002070

160042
160043
160044
160045
160046
160047
160046
160047

DZLPR:
HDZLPR:
DZTCR:
HDZTCR:
DZMSR:
HDZMSR:
DZTDR:
HDZTDR:

002072
002074
002076
002100

000300
000302
000304
000306

DZRIV:
DZRIS:
DZTIV:
DZTIS:

002050

160043

DZCSR:
160040
HDZCSR: 160041
DZRBUF: 160042

HDZRBUF :

;R/W
;R/W
;READ ONLY

160043

;READ ONLY

160042
;WRITE ONLY
160043
;WRITE ONLY
160044
;R/W
160045
;R/W
160046
;READ ONLY
160047
;READ ONLY
160046
;WRITE ONLY
160047
;WRITE ONLY
;:DEFAULT DZ VECTORS
300
;REC INTR VECTOR
302
;REC INTR STATUS
304
;XMIT INTR VECTOR
306
;XMIT INTR STATUS

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

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

VVVUVUUVUVUUVVVVUVVVUUV ~

;:TIME TABLE FOR RELATIVE TIMING TESTS

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

000000
000000

TMTBL:
T150:
T75:
T110:
T134:
T150:
T300:
T600:
T1200:
T1800:
T2000:
T2400:
T3600:
T4800:
T7200:
T9600:
TEIGHT:0
TSEVEN:
TSIX:
TFIVE:

OO0O0O0OO0OO0OO0OOOCOOOOOCO

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

OO0

0 (d (e

ot o

s o ot ot (o

s o

b o

et P

fifififlflflflfiflflfiflhflflflflfiflflflfifl ~

CZDZA-I0
CZDZAI.P11

SEQ 36

CZDZA-I0
CZDZAI.P11

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

02-JUL-85

16:19

SEQ 37

PAGE 83-18

PROGRAM INITIALIZATION AND START UP.

(1)

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
+SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS
s TYPE TITLE MESSAGE
002150
002150
002152
002156
002162
002170
002176
002204
002212
002220
002226
002234
002242
002250
002256
0C2262
002266
002274
002302
002306
002312
002316
002324

000005
012706
106427
012737
012737
012737
012737
012737
012737
012737
012737
012737
113737
005037
105037
012737
012737
005037
005037
005037
012737
013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637

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

001010
023727
001402
104402
105337
105737
100006
004737

002442
002444

000240
000240

105737

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

000006
000004
002354
177777

000176
000174
000004
000006
001415
000042
001000
01415
001255
012102

RESET
MOV

;:CLEAR THE WORLD. START NEW ENVIRONMENT
:SET UP STACK
MTPS
#PR7
;LOCK OUT INTERRUPTS
000024
MOV
#$PWRDN, 8424
;SET UP POWER FAIL VECTOR
000020
MOV
#$SCOPE, 8¢I0OTVEC
:SET VECTOR FOR SCOPE ROUTINE
000022
MOV
#340,80I0TVEC.2
sLEVEL 7
000030
MOV
#$ERROR, BOEMTVEC
;SET VECTOR FOR ERROR ROUTINE
000032
MOV
©#340,89EMTVEC.2
;LEVEL 7
000034
MoV
&. TRPS
8¢ TRAPVEC
R,
;SET VECTOR FOR TRAP CALLS
000036
MOV
©340,89TRAPVEC+2
;LEVEL 7
000024
MoV
@$PWRDN, 80PWRVEC
:SET VECTOR FOR POWER FAIL ROUTINE
000026
MOV
€340, 34PWRVEC+2
;LEVEL 7
001411
MOovB
DZNUM, SAVNUM
:SAVE NUMBER OF DEVICES IN SYSTEM.
CLR
$PASS
;CLEAR PASS COUNT
CLRB
$ERFLG
;CLEAR ERROR FLAG
001412
MOV
#DZ.MAP,ACTIVE
;GET MAP POINTER.
001406
MOV
#1,RUN
;POINT POINTER TO FIRST DEVICE.
CLR
$SERTTL
;CLEAR ERROR COUNT
CLR
$ERRPC
;CLEAR LAST ERROR POINTER
CLR
$TSTNM
;SET UP FOR TEST 1
001126
MOV
@.START, $LPADR
:SET UP FOR POWER FAIL BEFORE
;TESTING STARTS
;SET UP FOR SMALL 11 SWITCH REGISTER COMPATIBILITY
MOV
6 -(SP)
:SAVE BUS ERROR PS
MOV
4,-(SP)
iSAVE BUS ERROR PC
000004
MOV
204 .4
:SET UP TO TRAP TO THIS ROUTINE
176610
CMP
¢-1,8S5WR
:CAN 177570 BE REFERENCED?
BEQ
22%
+IF SO AND IT IS -1, TREAT LIKE SWITCHLESS
BR
21
+IF YES,SKIP AROUND THE SETUP
208 :
POP2SP
;REMOVE THE TRAP FROM THE STACK
001160
22%:
MOV
@SWREG, SWR
;IF NO,TRAP COMES HERE.POINT TO SOFTWARE SWR
001162
MOV
¢DISPREG,DISPLAY ;POINT TO SOF TWARE DISPLAY REGISTER
21$:
MOV
(SP)+.4
;RESTORE THE BUS ERROR VECTOR
MOV
(SP)+,6
TSTB
INIFLG
s TITLE ALREADY PRINTED?
BNE
294
:BRANCH IF YES
005056
CMP
8042 ,0$ENDAD
sRUNNING UNDER ACT?
BEQ
314
:IF YES DONT PRINT TITLE
TYPE
JMTITLE
sPRINT THE DIAGNOSTIC'S TITLE
314:
DECB
INIFLG
:SET THE ONCE ONLY FLAG
29¢:
TSTB
$ENVM
;DETERMINE WHETHER APT SIZING SHOULD BE DONE
BPL
30¢
:IF NOT, GO CHECK FOR AUTO-SIZING
JSR
PC,SETAPT
;OTHERWISE, GO DO APT SIZING FROM ETABLE
SREPLACENSSLRB HDRFLG” WITH NOP'S
:

NOP

CLRB

#STACK,SP

HDRFLG

iMAKE SURE STATUS TABLE IS PRINTED

CZDZA-I0
CZDZAI.P11

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(1)
(1)
(1)
(1)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(1)
(1)
(1)
(2)
(2)
(2)
£2)
(2)
(2)

002446
002452
002460
002462
002470
002472
002476
002500
002504
002510
002514
002516
002522
002524

MACY11 30A(1052)
02-JUL -85 16:17
000137
004420
032777
000001
001011
122737 . 000377
001003
105777
176462
100402
000137
003244
012700
001500
105037 001416
005020
020027
002000
001374
105337
001415

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

176500

JMP

30¢:

164
#SW00, 8SWR
324
#377,INIFLG
.+10
SWR
324
73
#DZ.MAP,RO
HDRFLG

BIT

BNE
CMPB
BNE

001415

TST8

BMI
JMP
MOV
CLRB
CLR
CMP
BNE
DECB

32%:
65%:

SEQ 38

;GO PRINT DZ STATUS TABLE
sRESELECT ?
+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
sINSURE NO AUTO SIZING IF QUESTIONS ANSWERED!

(RO)+

RO,#DZ.END
654
INIFLG

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

33s:
i

002530
ocas532
002534
002536
002540
002542
002544
002545

104403
003464
104405
160000
163770
001500
007
001

002546

013737

001500

END

001310

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

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

MACR)

MOV

-$GETPAR-=s3s3zsssssssssssssssssssssssssas

7
1

+HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
:POINTER TO MAP LOCATION TO BE FILLED
:MASK OF INVALID BITS FOR THIS PARAMETER
iNUMBER OF PARAMETERS TO STORE

=s=ssssssssssssssss

DZCRO, $BASE

:COPY BASE ADDRESS TO ETABLE

:GET THE BASE VECTOR ADDRESS
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

DZVCo
i

001502

001304

END

;CALL THE STRING INPUT ROUTINE

:POINTER TO MESSAGE TO BE PRINTED

;CALL THE OCTAL TO ASCII CONVERT ROUTINE

.BYTE

3
1

MOV

DZVCO, $VECT1

MACR)

-$GETPAR-=s2332sssssssssssssssssssssssssss

sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
+HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
:POINTER TO MAP LOCATION TO BE FILLED
sMASK OF INVALID BITS FOR THIS PARAMETER
iNUMBER OF PARAMETERS TO STORE

==sssszssszssssz=zss

:COPY VECTOR TO ETABLE

:GET THE BUS REQUEST LEVEL
’
002600
002602
002604
002606
002610

104403
003571
104405
000004
000007

;

INSTR
68$

PARAM
4

-$GETPAR-=sssssssssssssssssssssssssssssass

;CALL THE STRING INPUT ROUTINE
sPOINTER TO MESSAGE TO BE PRINTED
;CALL THE OCTAL TO ASCII CONVERT ROUTINE

;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

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

002612
002614
002615

001504
000
001

002616
002624
002630
002634
002640
002644

113737
106337
106337
106337
106337
106337

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

;

001504
001305
001305
001305
001305
001305

END

001305

DZLVO
.BYTE
.BYTE

0
1

MOVB

DZLVO, $VECT1.1

MACRQ

ASLB
ASLB
ASLB
ASLB
ASLB

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

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

=s=ssssssssssssssss

$VECT1.1
$VECT1.1
$VECT1.1
$VECT1.1
$VECT1.1

100375
117716

042716
122716
001366
005726
000752
122716
001002
005726
000745
122726
001414
014677
042737
122726
001332
052737
000726

TYPE

004260
001220
176300

:GET BUS REQUEST LEVEL INTO ETABLE

;ALIGN
sALIGN
sALIGN
;ALIGN
sALIGN

THE BITS PROPERLY
THE BITS PROPERLY

THE BITS PROPERLY

804:

:PRINT EIA MESSAGE

TSTB
BPL

93 TKS
80$

+IS KEYBOARD DONE?
+IF NOT, WAIT FOR IT

BNE

CMPB

#$XOFF ,(SP)
834

MOVB
BIC

MOV
BIC

176274
177600
000023
101¢:

176254

$THPL

847KB, -(SP)
€177600,(SP)

TSTB
BPL

176250
177600
000021

83s:

000015

102¢:

814:

101$
(SP)e

sGET NEXT CHAR IF NOT
;+POP STACK

804

CMPB
BNE
BIS
BR

001504

3+ sDSH-BHL
3+ s DSH-BHL

BIC

000102

;+GET CHARACTER
;STRIP DOWN CHARACTER

@$XON, (SP)

1024
(SP)«

015,(SP)+
81

MOV

176212
100000

9$TKB, (SP)
#177600,(SP)

804
@$XON, (SP)

CMPB
BEQ

+IF YES, PUT CHARACETR ON STACK
;STRIP DOWN CHARACTER
+ sDSH-BHL

: s DSH-BHL
3 :DSH

BR
cMPB
BNE
ST

;USE $TMP1

;IS IT A XOFF?
;:BR IF NOT

93 TKS
1014

CMPB

BNE
TST

000021

100000

744

CLR

-(SP),84TPB

#B8IT15,0ZLVO

€102,(SP)+
804
eB8IT15,0ZLVO
804

sWAIT FOR A CHARACTER

sWAIT FOR A XON?

;WAIT FOR A CHAR
;IS IT A RANDOM XON
1BR IF NO
;ELSE, POP STACK

;GO GET NEXT CHAR
;IS IT <CR> ?
;IF SO, GET OUT

+ s DSH-BHL
+ ;sOSH-BHL

s sDSH-BHL

s sDSH-BHL
1 3DSH

:3sDSH
3+ s DSH-BHL
3+ sDSH-BHL
3+ s DSH-BHL

3+ s DSH-BHL

:IF NOT, PRINT CHARACTER

;CLEAR EIA FLAG
:IS IT A B?

+IF NOT, GO BACK FOR INPUT
+IF SO, SET FLAG
:GET MORE INPUT

;GET THE MODE OF OPERATION (E,I,S)
f

003004
003010
003012

104403

INSTR
724

001512

MANTO

004002
104406

SETFLG

END

MACR)

~-$GETFLG-=ssssssssssssssssssassssssssss

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

sCALL THE MAINTENANCE FLAG SETUP ROUTINE
:THIS IS THE FLAG BEING SETUP

s=sssssssssssssssss

:GET THE NUMBER OF DZ11'S RUNNING

Nl N
N

;POINTER TO MAP LOCATION TO BE FILLED

;FIND OUT IF MODULE IS EIA OR 20 MA.

NP N

NP N N N N NP N

50 5 10 1O IO D D D ) = 1t 1o

b b b (b b (b o o

b o

N N N NP N N NP N N N N N NP N

i s s b b b o

NP NP NP N NP N NP N

b b b i b i P

NP NP N N

b (b o

N N

NI NI N

i i i b b o

lalalalalalalal ol ol ol ol ol ol ol al ol ol ol ol ol ol ol ol ol ol ol ol el ol ol ol ol al ol al ol alal ol alalalalalalalealalealalealale e

i i i Pt Pt D )

NN NI NINININI NG

CZDZA-I0
CZDZAI.P11

003014

104403

INSTR

~3GETPAR-sssssssssssssssssssssssssssssssns

sCALL THE STRING INPUT ROUTINE

CZDZA-I0
CZDZAI.P11

Nt N N N N N NP N NI NI NI NN NI NI NI NININININININI ~s

f'\’\f\t‘\"\flf\f\flF\fi’\’\flfif\flflfiflflfl'\flfififl’\fl flfiflflfififlflfifififlflfifififihflfl
~
el e
e e e e
e O S
A A P
A b= po ps pa pa Po 1o b b et et (ot s s P8 P b
Pt o ps Pt P oo po ) n
\JV\JUUVV\JVUV\JVV\IUVUU\JVVVV

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

003016
033020
003022
003024
003026
003030
003031

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

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

003740
104405

714
PARAM
1
16.
$TMPL

000001
000020
001220
000
001

.BYTE

003032
003040

012737
012737

003046
003054
003062
003064
003070
003076
003104
003112
00311¢€
003120
003122
0C3126
0C3130
003136
003144
003150
003154
003160
003162
003166
003172
003174
003200
003204
003206
003212
003214
003220
003222
003224
003230
003234
003236
003240
003242
003244
003252
002254
003260
003264
00327¢

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

017070

000377

001506
001510

000001
000010

007204
176076

003274
000001
001220

001220

001312
001410
001411

40¢:

62$:

BIT
BEQ
JSR

MOV
MOVB

MOvVB

001222
001404

61$:

001222
001222

yrreTm
004374
41s:

000010
000010

177774
077777

175706

73s:

42s:

@377 ,LINEO
€17070,PARO
@1,0LYCNT

45W03, 8SWR
408
PC,23$
@1,30EVM
$TMP1,DZNUM

$TMP1, SAVNUM

$TMPL
61¢

BR
MOV
MOV

623
$DEVM, $TMP2
$DEVM,DZACTV

MOV
MOV
MOV
CLC
ROR
ASR

BCS
MOV
JMP
MOV

ADD
MOV
ADD
MOV
MOV
MOV
BIC
BIS
MOV
MOV
BR
BIT
BNE
JMP
JSR

DECB
JMP

+POINTER TO MESSAGE TO BE PRINTED
sCALL 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
+MASK OF INVALID BITS FOR THIS PARAMETER
:NUMBER OF PARAMETERS TO STORE

2sss=zzsssszssssssss

DEC
BEQ
SEC

ROL

001320

004374
003274
001415
004420

MACR)

MOV

001514

000010

MOV
MOV

001312
001312
001312
001500

END

.BYTE

SEQ 40

$DEVM

#DZCRO,RO
#DZCR1,R1
@30DWO ,R2

$TMP2
$TMP2

41
@-1,(R1)
63$
(RO)+,(R1)

#10,(R1).
(RO)+,(R1)
€10,(R1)+
(RO)+,(R1).
(RO)+,(R1)+
-4(R0O),(R2)
@77777.(R2)
(RO),(R2).
(RO)+,(R1)+
(RO)+,(R1)+
643
4#SWO03, 3SWR
423
638
PC,23$

INIFLG
16%

:SET UP DEFAULT LINES
:SET UP DEFAULT LPR PARAMETER
sRECEIVER ON; 9600 BAUD; 2STOP BITS; 8 BIT/CHAR
sINITIALIZE DELAY COUNT
;00 YOU WANT PARAMETERS?
:IF NO, SKIP THE PARAMETER CALL
:GET PARAMETERS
sINITIALIZE 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 ACTIVE 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
sINITIALIZE THE “C” BIT FOR A ROTATION
:SKIP MAPPING SETUP FOR DEVICE O- IT‘S DONE
s ISOLATE A SELECTION FLAG IN THE “C” BIT
;IS THIS DEVICE SELECTED? IF YES, GO LC’
O TABLE
sTERMINATE THE LIST
;GO TO THE NEXT BLOCK
;ADDRESS
;POINT TO THE NEXT DZ11 ADDRESS VALUE
;VECTOR
;POINT TO THE NEXT VECTOR VALUE
;LEVEL
;sLINES
;GET THE ETA FLAG FROM THE PRIORITY WORD
;ISOLATE THAT FLAG
;ADD PARAMETERS TO DEVICE DESCRIPTOR WORD

;PARAMETERS

sMAINTENANCE MODE
;ASK PARAMETERS ?
:IF NO, GO DO AUTO SIZING
;GO SET UP FOR AUTO SIZING
;GO ASK PARAMETERS
:INSURE NO AUTO SIZE IF QUESTIONS ANSWERED
;GO TO THE NEXT BLOCK

:GET THE ACTIVE LINES PARAMETER

CZDZA-I0
CZDZAI P11

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

N NI NI NINININININININII
OD

RN N

VL O V) PO N
e
e el el el
VLYY UV ILVL

o 0o o o o ha ot o pd P |

-8 P

b ot Pt (ot B8 o b8 6 ot ot o "N

NP NI NI NININI NI NI NINI NI NINININI NI NININININIINININI
NG s

NNINPNINNININNINININN e lalalale PNONPNININININNONPONPCNINIONINIONININONIONIONPNONINONININ ~r

(2)
(2)
(2)

MACY11 30A(1052)

02-JUL -85 16:17

02-JUL-85

003312

23s:

104403

003614
104405
000001
000377
001506
000
001

105037

SEQ 41

PAGE 83-22

PROGRAM INITIALIZATION AND START UP.

003274
003274
003276
003300
003302
003304
003306
003310
003312

16:19

END

INSTR
69
PARAM
1
377
LINEO
BYTE
.BYTE
O

MACR)

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 TO MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
;NUMBER OF PARAMETERS TO STORE

.
©
1

-$GETPAR-2sssssssssssssssssssssssssssssass

==s=sszsssz=sssssssss

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
000750
001772
006203
103370
000241
000761

001512
001506

24s:

MANTO
26$
LINEO,R3

;IS STAGGERED THE MODE OF OPERATION?
:IF NOT, SKIP THIS SEGMENT
:GET A SCRATCH COPY OF THE ACTIVE LINES

BCS
BEQ
ASR
8CC

25s
268
R3
24

;IF
+IF
:IF
:IF

ROR

278%;

001230
011065

TST
BPL
MOV

TYPE

25s:

. $QUES

MBADLN

;:GET A LINE SELECTION BITCEVEN NUMBER LINE)

IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO
ALL HAVE BEEN CHECKED, CONTINUE PROCESSING
IT IS O,CHECK TO SEE IF THE NEXT IS TOO
THIS ONE'S O TOO, GO CHECK THE NEXT PAIR

:THIS IS AN INCORRECT PARAMETER
;LET THE USER KNOW ABOUT IT

23$

ASR

;GET THE NEXT FLAG

;INITIALIZE THE “C" BIT FOR TESTING OF THE NEXT PAIR
;GO TEST THE NEXT PAIR OF FLAGS

BEQ

27%

B8CC

27%

CLC
BR

;GO GET THE CORRECT PARAMETER

:IF ANOTHER FLAG ISN'T SET, THERE'S AN ERROR

+IF IT ISN'T SET, THERE'S AN ERROR

;GET THE LINE PARAMETER REGISTER ARGUMENT
26%:

003366
003366
003370
003372
003374
003376
003400
003402
003403

003404
003410
003414
003416
03420
003426
003430
003434
003440
003444

INSTR
708
PARAM
0

104403
003670
104405
000000
000017
001510
000

;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED

BYTE
BYTE

0
1

001506
001510

MOV
MOV

#LINEO,R2
#PARO,R3

032444

ASL
MOV
SWAB

R4
;ALIGN INDEX ON WORD BOUNDARY
DLYTBL(R4),DLYCNT ;SET THE DELAY COUNT FOR THIS BAUD
(R3)
;PLACE IN HIGH BYTE

001

012702
012703
011304
006304
016437
000313
052713
011262
011363
062702

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

PARO

-$GETPAR-2=2223sszssssssssssssssssssssss==3

;

010070
000014
000014
000014

END

MOV

007204

28%:

BIS
MOV
MOV

ADD

MACR)

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

==s=s==z==ssssssazss

(R3),.R4

;POINT TO THE LINE SELECTION PARAMETER
;POINT TO THE CHOSEN PARAMETERS

;USE BAUD RATE AS AN INDEX IN DELAY TABLE

#10070,(R3)
(R2),14(R2)

;PLACE EXTRA PARAMETERS INTO LOC
;LOAD THE LINES

#14 ,R2

;POINT TO THE NEXT SET

(R3),14(R2)

;LOAD THE PARAMETERS

'ATE

PO O D 0 =0 10 ot b hb p

o s b (b (b b ot b b (b i b b i Pt B0t s e b ed b et el P (s s pd 8 8 Pt s et e

ININONININONONONONINONINONONCNNCNCNNNNCNPNCNON PNONINONONONONONINONIONINONCNCNONON
NN~

PNINIONPNPNPNINPN ~

P s et et et Pt et P et Pt s —
VV\JV\JVUUUVUUVVVV\JVU\JVU\JU\J UVVVVUUVV\JVVUUVVVVVVVU
Nt NS NN
NI s

CZDZA-10
CZDZAI.P11
003450
033454
003460
003462
003464
003530
003571
003614
003670
003740

004002

004023
004071
004137
004207

004260

004342
004374
004374
004402

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

062703
020327
001365
000207
030600
030600
200
046200
042200
021600
046600
200
200
200
200
052200
042600
004374

004552
004560

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
017737
013700
000000
032777
001407

004562
004564

104403
004342

004404

004412
0C4414
004420
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

000014
001774

052123
052123
051102

047111

043105
047440
044501
055440
055440
055440
055440
050131
052116

000377
000200

041440
053040
046040
051505
052501
020106
052116
054105
047111
052123
052123
020105
051105

001415

66$:
678:
68$:
69¢:
708:
718:
72¢%:

74%:
75¢%:

.EVEN
63s:

174546

012254
001416
001416
011040
001500
001220
001222
177777

16¢:

S¢:
001222

17s:
000042
000100

1$:

174454

010761

174436

SEQ 42

02-JUL-85
16:19
PAGE 83-23
PROGRAM INITIALIZATION AND START UP.
ADD
CcMP
BNE
RTS
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ

284
PC
<200>/1ST CSR ADDRESS (160000:163700):
/
<200>/1ST VECTOR ADDRESS (300:770):
7/
<«200>/BR LEVEL (4:6):
/
<200>/LINES ACTIVE BY BIT <IN OCTAL>(001:377):
/
<200>/DEFAULT BAUD RATE <IN OCTAL>(00:16):
/
<200>/& OF DZ11'S <IN OCTAL> (1:20):
7/
<200>/MAINTENANCE MODE/
<200>/ [EXTERNAL
<H325>-EIA ONLY
(
<200>/ [INTERNAL
<DZCSRO3=1>
(
<200>/ [STAGGERED <H3271>-EIA ONLY
/
(
<200>/ [STAGGERED <H3190>-20MA ONLY
(
s /
<200>/TYPE “A” FOR EIA MODULE OR “B” FOR
A (A:B):
<200>/ENTER DELAY PARAMETER: /

CMPB
BNE
BIT
BNE
JSR

#377,INIFLG
16$
#B8IT7,8SWR
16%
PC,AUTO.SIZE

TSTB
BNE
DECB
TYPE
MOV
MOV
MOV

cMP
BEQ
CONVRT

XSTATQ
BR
TST
BNE
BIT
BEQ
TYPE
CLR

HALT

001312

010633
9s:

174416
001404

001404

2$:

000020

174400

3s:

CcMP
BLOS
TYPE
HALT
BR

MoV
MOV
HALT

BIT
BEQ

INSTR
75¢

#14,R3
R3,0PARL7

HDRFLG
1$
HORFLG
« XHEAD
#DZ.MAP,RO

RO, $TMP1

(RO)+, $TMP2

#-1,$TMP2
1s

3
#SW06, 3SWR
3s
+MNEW
RO

3SWR, $DEVM
2%
+MERR3

9
8SWR,DZACTV
DZACTV,RO
#SW04, 3SWR

18$

i .. OF BOTH PARAMETERS
+HAVE THE TABLE BOUNDARIES BEEN EXCEEDED?
+IF NOT, GO LOAD SOME MORE PARAMETERS
:RETURN TO CALLING BLOCK

;ONLY DO AUTO SIZE ON 1ST START
H

:BIT7=12?
;BR IF NO AUTO SIZE
;GO DO THE AUTO SIZE
;HAS THE TABLE BEEN TYPED YET?
:IF SO, DON'T TYPE IT AGAIN
;:INDICATE THAT THE TABLE WILL BE TYPED

:TYPE MAP HEADER

;SET POINTER
;POINT TO THE MAP LOCATION
;SET DATA
;END OF LIST?
;BR IF YES
;CALL. THE OCTAL TO ASCII CONVERSION ROUTINE
:CONVERT THE DATA AT THIS ADDRESS
;GO PRINT THE NEXT PARAMETER
:IgSPROGRA" RUNNING UNDER MONITOR
:Y

;:DESELECT SPECIFIC DEVICES??
;BR IF NO.
;:TYPE THE MESSAGE.
:+ZERO DATA DISPLAY
;WAIT FOR USER TO TELL WHAT DEVICES TO RUN
;IS THE NUMBER VALID?
;BR IF NUMBER IS OK.
;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, GO CLEAR VECTOR AREA
:

-$GETPAR-====zz=s=ss32z2z3z233z=zzzzssss==zzs==s===

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

CZDZA-I0
CZDZAI.P11

(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)

3644

004566
004570
004572
004574
004576
004577

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

104405

PARAM

000001
177777
007204
000
001

004600
004604
004610
004612
004614
004616
004622

012700
012701
010120
005021
022021
022700
001372

SEQ 43

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

000300

END

18¢:

000302

MACR)

MOV
MOV

4s:

MOV
CLR

CMP
CMP
BNE

001000

;CALL THE OCTAL TO ASCII CONVERT ROUTINE

1
177777
DLYCNT
.BYTE
.BYTE

sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE
;POINTER TO MAP LOCATION TO BE FILLED
;MASK OF INVALID BITS FOR THIS PARAMETER
:NUMBER OF PARAMETERS TO STORE

0
1

===z=zs3ssss==z=233=22z3=

#300,R0O
#302,R1

R1,(RO)+
(R1)+

(RO)+,(R1)+
#1000,R0O
44

;PREPARE TO CLEAR THE FLOATING
:VECTOR AREA. 300-776

:START PUTTING “PC+2 - HALT”
:IN VECTOR AREA.
;:POP POINTERS
;sALL DONE??
;BR IF NO.

;TEST START AND RESTART
jocccccccccccccccncaces

004624
004630
004634
004640
004642
0C4650
004652
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

MOV
MTPS
TST

BNE
BIT
BEQ

TYPE
MOV
BR
MOV
MOV
TYPE
JMP

1s:
2%:

;

END

MACRQ

#STACK,SP
#PR7
942

2%
#BIT2,3SWR
1s

+MLOCK
#NOP, TTST
2%
BRW, TTST
#CYCLE, $LPADR
MR
9$LPADR

: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
:TYPE “RUNNING”
:START TESTING

=====z=z=zs=======z==z=

;

-PRGEND-a:salu;ass:a:stasasl:sa:t:::::

F‘.

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL -85

16:17

Nl N

N N

NI N NI NI NI NI NI NI NI NI NI NI NN N

N N

N NI NI NI NI NI NI NI

RPNV WWWWNWWWWNWWNWEHWWWWWUONWD vunuuuuutunununuunuunun VTWWWWWELW

PNPNINONPNONONPNNONONONPNON
NN PN ON NN NN NN PN NN [alalalelolelelalelealolelelele) PNPNPNANPNN
NN

(2)

hor

SEQ 44

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

.SBTTL

:END OF PASS
:TYPE NAME OF TEST
;UPDATE PASS COUNT
;CHECK FUR EXIT TO ACT-11
;RESTART TEST

END OF PASS ROUTINE

R Ty
P P TP PP Y P Yeren

;#INCREMENT THE PASS NUMBER ($PASS)
;#IF THERES A MONITOR GO TO IT
;#IF THERE ISN'T JUMP TO CYCLE
004712
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

$EOP:

”

000004
005037

105037
104402
104402
104412
104402
104412
005237
104402
104412
005337
104402
104412
105337
001030
113737
005037
005237
042737
005327
000001
003013
012737
000001
005034
013700
001405
000005
004710
000240
000240
000240

001136
001123
010525
010706
005072
010714
005100
001242
010722
005106
001242
010733
005114
001411
001410
001226
001242
100000

000001
006
002042
000001
003

001242

$ENDCT:
$GET42:

$ENDAD:

$DOAGN:

000137
011532

$RTNAD:

002

CNVRT
TYPE
CNVRT
INC

+XCSR
+MVECX
+XVEC
$PASS

CNVRT
DEC
TYPE
CNVRT
DECB
BNE
MOVB
CLR
INC
BIC
DEC
.WORD
BGT
MOV
.WORD

+XPASS
$PASS
+MERRX
+XERR
SAVNUM
$DOAGN
DZNUM, SAVNUM
$TIMES
$PASS
#100000, $PASS
(PC)+
1
$DOAGN
(PC)+,8(PC)+
1

;SHOW IT
;RESTORE PASS COUNT
;:TYPE ERRORS
;SHOW IT
;ARE ALL DEVICES TESTED?
;BR IF NO.
;RESTORE THE COUNT
:+ZERO THE NUMBER OF ITERATIONS.
: s INCREMENT THE PASS NUMBER
;sDON'T ALLOW A NEG. NUMBER
;:LOOP?

a®42,R0
$DOAGN

:sGET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
:sCLEAR THE WORLD
;:G0 TO MONITOR
; : SAVE ROOM
::FOR
;:ACT11

TYPE

$EOPCT:

000042

$ERRPC
$ERFLG

TYPE
TYPE

001411

XCSR:

XVEC:

-PASEND-ll-nt-l:...!...s.--all'-sss-'-.sa’

SCOPE
CLR
CLRB

$EOPCT
MOV
BEQ
RESET
JSR
NOP
NOP
NOP

JMP
.WORD

1
.BYTE
DZCSR
1
MYTE

+MEPASS
+MCSRX

+MPASSX

PC.(RO)

8(PC)+
CYCLE

6,2
3.2

;:CLEAR LAST ERROR PC
;CLEAR ERROR FLAG

;TYPE END PASS
;TYPE CSR

;SHOW IT
;:TYPE VECTOR
;SHOW IT
;RAISE PASS COUNT
; TYPE PASSES

s YES
; sRESTORE COUNTER

; sRETURN

CZDZA-IO0
CZDZAI.P11
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

005104
005106
005110
005112
005114
005116
005120

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

002

.BYTE
$PASS
1
.BYTE
$ERTTL

XERR:

002

6,2
6,2

:SCOPE LOOP AND ITERATION HANDLER
.SBTTL
R

SCOPE HANDLER ROUTINE
L

’
T

T ST

;#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 ($ERFLG) INTO DISPLAY<15:08>
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;#SW14=1
LOOP ON TEST
;#SW1i=1
INHIBIT ITERATIONS

N N N N N N N

WNHWWWWHWWHWEWEWHWEWWEHWWHWHWHEUIVIVVIVTVTEVTUTNTIUT
U U
OO

DZRIV

XPASS:

(2)
(2)
(2)

;#CALL

SCOPE

: : SCOPE=IOT

N
N
N N N N N N
N N N N N N N N N N N N N N N N N N N N N N N N
N N

PNPNONONPONINONINONONONONPNCONONPNONCN
NN NN NN ONON NN NN NN PN
PN PN PN~~~

SEQ 45

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

$SCOPE :

0C5122

‘

005122
005126
005132
005136
005140
005142
005146
005150
005156
005160

004737
005037
022716
001417
000412
105777
100073
127727
001467
017766

007642
001136
013040

005166
005174

032777
001060

005176

000416

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

JSR
CLR

PC,SERV.G
$ERRPC

CMP

174012

000021

174002

177776

040000

173764

;

#TST1+2,(SP)

BEQ
BR
TSTB
BPL
CMPB
BEQ

TTST:

174016

END

1$:

MOV
O

$XTSTR
1$
98 TKS
$OVER
8$TKB, #$ XON
$OVER

MACR)

BIT

BNE

9$TKB, -2(SP)

S EE S

SS S

000004
005224
177060
000004

105737

001123

000004

;IS THIS THE SCOPE AT THE BEGINNING OF TST1?

:IF SO, DON'T LOOP ON IT
;GOTO 1$
(IF LOCK SW02=1; THIS LOC =240)
;KEYBOARD DONE?
;BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST)
;IS CHAR A RANDOM XON ?
: :DSH
;BR IF YES
::DSH

========s====3=2=z=3=z==

#B8IT14,8SuWR
$OVER

001123
001226

004000

MOV
MOV

S¢ERRVEC, -(SP)
#5$, 94ERRVEC

MOV
BR

(SP)+,94ERRVEC
$SVLAD

Lt 1

5¢:

000004

CcMP

MOV

S EZSSSESSSSZISSSISSZIISSTSISS

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

;:LOOP ON PRESENT TEST?
;s YES IF SWi4=1

;#0084START OF CODE FOR THE XOR TESTER##4#4¢

$XTSTR:

013746
012737
005737
012637
000436
022626
012637
000441

001404
105037
005037
032777
001011

.SCOPE:

a#177060

(SP)+,(SP)+

:sIF RUNNING ON THE

"XOR" TESTER CHANGE

:3s THIS INSTRUCTION TO A “NOP” (NOP=240)

;;SAVE THE CONTENTS OF THE ERROR VECTOR
:3SET FOR TIMEOUT

;: TIME OUT ON XOR?

;;RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST

;sCLEAR THE STACK AFTER A TIME OUT

(SP)+,84ERRVEC

;;RESTORE THE ERROR VECTOR

$ERFLG

:sZERG THE ERROR F

BR
$OVER
::LOOP ON THE PRESENT TEST
6%:; #4440END OF CODE FOR THE XOR TESTER###4¢
2%:
TSTB
$ERFLG
; sHAS AN ERROR OCCURRED?
BEQ
33
:3BR IF NO
4s:

173700

34:

CLRB

CLR
BIT
BNE

$TIMES
#BIT11,8SWR
1
)

: ;CLEAR THE NUMBER
ITERATIONS TO MAKE
; s INHIBIT ITERATIONS?
;3BR IF YES

CZDZA-I0
CZDZAI.P11

NI NI NI NI NI NININININININING
NS

005262
005266
005270
005274
005302
005304
005312
005320
005324
005332
005336
005344

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

005350
005354
005360
005362
005370
005372

105037
005737
001003
112737
000002
000406

001124
001226
000001
005374
001122
001122
001126
001122

001126

TST
BEQ
INC

CcMP

001124
001124
001226
001240

173616

MOvVB

$OVER:

$PASS
1
$ICNT

:sIF FIRST PASS OF PROGRAM
)
INHIBIT ITERATIONS
: s INCREMENT ITERATION COUNT

$OVER
#1,8ICNT
$MXCNT, $TIMES
$TSTNM

::BR IF MORE ITERATION REQUIRED
; sREINITIALIZE THE ITERATION COUNTER
:3SET NUMBER OF ITERATIONS TO DO
: sCOUNT TEST NUMBERS

$TIMES, $ICNT

BGE
1$:
MOV
MOV
$SVLAD: INCB

s sCHECK THE NUMBER OF ITERATIONS MADE

MOV
MOV
MOV

(SP),$LPADR
:sSAVE SCOPE LOOP ADDRESS
$TSTNM,8DISPLAY ;;DISPLAY TEST NUMBER
$LPADR,(SP)
"Fggfie RETURN ADDRESS

$TSTNM,STESTN

:3SET TEST NUMBER IN APT MAILBOX

CLRB
ST
BNE
MOVB

MNTFLG
MODE
43
#MAINT ,MNTFLG

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

001417
001370
000010

3s:
001417

4s:
BRW:
i

005374

000005

END

$MXCNT:

RTI
406
O

----....'-'...---'.-..’....’-.'-

;GO DO THE TEST
MACR)

====ss===2=zz=z=z=z=z=z=3=

:sMAX.

NUMBER OF ITERATIONS

;CHECK FOR FREEZE ON CURRENT DATA
,

005376
005404
005406
005412
005414
005420

032777
001405
005737
001402
013716
000002

005422
005430
005432
005436
005440

032777
001403
062716
000002

001000

173554

001362

.SCOP1: BIT
BEQ
TST

1$:

173530

.TYPE:

000002

1$:
.SBTTL

4SW09,8SWR
1%

;IS SW09=1(SET)?
:BR IF NOT SET.

LOCK

;IS THER A TIGHT LOOP SPECIFIED?

MOV
RTI

LOCK,(SP)

:IF YES, GOTO THE ADDRESS IN LOCK.
;GO BACK.

BIT
BEQ
ADD
RTI

#SW12,8SWR
1
#2,(SP)

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

BEQ

001362

010000

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

:IF NO, RETURN

TYPE ROUTINE

sikkdhbk
kbbb
hhhk
kb kb kb bk kbbhhh
kb bk bk bk bk hkbb
khh kb kb kb bkb
hk kb d

N NN N N

D N

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
+#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LIMNE FEED.
;*NQTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTEZ2:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

i %

N
N

i ®

i &

TYPE

MESADR

N N

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

3‘0R

i *

(2)
(2)

SEQ 46

02-JUL-85
16:19
PAGE 83-27
SCOPE HANDLER ROUTINE

001242

DLW PO =0 oo ot ot ot ot pt ot b b et et et et

PNANANANANANPNAN PN\~ PNONINONONONONINONONONONONPNP~N

(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(5)
(5)
(5)
(5)
(5)
(5)
(5)
(3)
(1)
(1)

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

005440
005444

105737
100002

001177

$TYPE:

TYPE

TSTB

BPL

,MESADR

$TPFLG

1¢

; sMESADR

IS FIRST

ADDRESS OF

::IS THERE A TERMINAL?

;:BR IF YES

AN ASCIZ STRING

CZDZA-I0
CZDZAI.P11

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

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
005606
005612
005614
005620
005624

MACY11l 30A(1052)
02-JUL-85 16:17
000000
000430
010046
017600
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

001174

105366

000001

002770
004737

105337
000770

02-JUL-85

TYPE ROUTINE

1$:

000002
000001

001254

000100

001255

005510
006002
000040

16:19

001255

61%:
62%:
2%:
60¢:

3s:

000002

4s:

000011

000200

005770

S$:
6$:

005652
001176

7%:

005652
005770

HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

.WORD
BITB
BNE
MOVB
BNE
ST
MOV

ADD

RTI

CcMPB
BEQ
CMPB
BNE
ST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV
DECB
BLT
JSR
DECB
BR

SEQ 47

PAGE 83-28
-

3
RO,-(SP)
82(SP),RO
@APTENV, $ENV
624
QAPTSPOOL
, $ENVM
62%
RO,61$
PC,$ATY3
0
#APTCSUP, $ENVM
60¢
44

;sHALT HERE IF NO TERMINAL
:sLEAVE
: sSAVE RO

:sGET ADDRESS OF ASCIZ STRING
: sRUNNING IN APT MODE

;3sNO,GO CHECK FOR APT CONSOLE
:;SPOOL MESSAGE TO APT

:3NO,GO CHECK FOR CONSOLE
;s SETUP MESSAGE ADDRESS FOR APT
;3 SPOOL MESSAGE TO APT
: sMESSAGE ADDRESS
;s APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
: ;PUSH CHARACTER TO BE TYPED ONTO STACK

:3BR IF IT ISN'T THE TERMINATOR

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

;:IF TERMINATOR POP IT OFF THE STACK
; sRESTORE RO

#HT, (SP)
8$
#CRLF, (SP)
S$
(SP)+

; ;BRANCH IF NOT <CRLF>

$CHARCNT
28
PC,$TYPEC
$FILLC,(SP)+
2%
$NULL, -(SP)

1(SP)

6$
PC,$TYPEC
;gHARCNT

: s ADJUST RETURN PC

; sRETURN
: ;BRANCH IF <HT»>

:;POP <CR><LF> EQUIV
;sTYPE A CR AND LF

: sCLEAR CHARACTER COUNT
:sGET NEXT CHARACTER
:3GO0 TYPE THIS CHARACTER
:3IS IT TIME FOR FILLER CHARS.?
:3IF NO GO GET NEXT CHAR.
:;GET & OF FILLER CHARS. NEEDED
:sAND THE NULL CHAR.
:sDOES A NULL NEED TO BE TYPED?
;3BR 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
005650
005652
005652
005656
005660
005664
005670
005674
005676
005676

112716
004737

132737

001372
005726
000724

105777
100022

017746
042716

122716
001012
105777

000040
005652
000007

173306

005770

8%:
9%:

$TYPEC:

173302
177600
000023

173262

101¢:

MOVB

¢ ,(SP)
PC,$TYPEC
#7, $CHARCNT
9

: sREPLACE TAB WITH SPACE
;s TYPE A SPACE

BIC
CMPB
BNE

9$TKS
10¢
8$TKB, -(SP)
#177600, (SP)
#$XOFF ,(SP)
1024

; ;CHAR IN KYBD BUFFER?
::sBR IF NOT
:sGET CHAR
: s STRIP EXTRANEOUS BITS
: sWAS CHAR XOFF

:sBR IF NOT

:MJDOO1

TSTB

8$TKS

; sWAIT FOR CHAR

:MJDOO1

JSR
BITB
BNE
TST
BR
TSTB
BPL
MOV

(SP)+
2%

: ;BRANCH IF NOT AT
;:TAB STOP
:;POP SPACE OFF STACK
:sGET NEXT CHARACTER

:MJDOO1
:MJDOO1
:MJDOO1
:MJDOO1
:MJDO01

:MJDOO1

(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-JUL-85

TYPE ROUTINE

173256
177600
000021
102%:

005726

105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000

16:19

10¢:

173240
000002
000015

173232
000002

005770
000012

000002

000207

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

112737
112737
000403
112737
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

000001
000001

006240
006236

$ATYL:
$ATY3:

000001

006240

$ATY4:
$ATYC:

101
8$TKB, (SP)
#177600, (SP)
#$XON, (SP)
101¢

TST

(SP)«

:sFIX STACK

93TPS
10¢
2(SP),8$TPB
#CR,2(SP)
1$
$CHARCNT

;s WAIT UNTIL PRINTER IS READY

001254

000100

001255

000004
000002
001234

000004

001250

RIS

000004

000002
177776
005440

1%:

TST

2%:

TSTB

006240

34:

MOV

4s:

.WORD

108:

TSTB

5%:

;MJDO01

:3BR IF NOT

;MJDOO1

:MJDOO1

;sLOAD CHAR TO BE TYPED INTO DATA REG.

;3 IS CHARACTER A CARRIAGE RETURN?
: ;BRANCH IF NO
;s YES--CLEAR CHARACTER COUNT

s sEXIT

$TYPEX

; ;BRANCH IF YES
: ; COUNT THE CHARACTER
: ;sCHARACTER COUNT STORAGE

(PC)+

::IS CHARACTER A LINE FEED?

E RS

R SRS RS S

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

R SRS

SR SRR S SR

+:T0 REPORT FATAL ERROR
::TO TYPE A MESSAGE

RS 2 2 2 L 3 3

:3TO ONLY REPORT FATAL ERROR

::PUSH RO ON STACK
;:PUSH R1 ON STACK
;s SHOULD TYPE A MESSAGE?
BR
;3IF NOT:
: ;sOPERATING UNDER APT?
BR
$
;3IF NOT:
OePTSPOOL.SENVH ; s SHOULD SPOOL MESSAGES?
BR
3
:3IF NOT:
84(SP),RO
:sGET MESSAGE ADDR.
#2,4(SP)
: ;BUMP RETURN ADDR.
$MSGTYPE
::SEE IF DONE W/ LAST XMISSION?
WAIT
1$
;s IF NOT:
RO, $MSGAD
:sPUT ADDR IN MAILBOX
(RO)+
::FIND END OF MESSAGE

RO,-(SP)
R1,-(SP)
$MFLG
54
;APTENV.OENV

001234
006150
000004

;s WAS IT XON?

$TYPEX

oLF,2(SP)

E S A SRS S

MOvVB
MOvVB

001250
001252
000004

:;GET CHAR
;s STRIP IT

APT COMMUNICATIONS ROUTINE

006236
000001

sMJDOO1
;MJDOO01
:+MJDO01

BPL
MOVB
8IC
CMPB
BNE

TSTB
BPL
MOvVB
CMPB
BNE
CLRB
BR
CMPB
1s:
BEQ
INCB
$CHARCNT
: . WORD
$TYPEX: RTS

.SBTTL

SEQ 48

PAGE 83-29

CZDZA-IO0
CZDZAI.P11

24
$MSGAD ,RO
RO
RO, $MSGLGT
4, $MSGTYPE
S5

::SUB START OF MESSAGE
+sGET MESSAGE LNGTH IN WORDS
: :PUT LENGTH IN MAILBOX
:sTELL APT TO TAKE MSG.

84(SP),4%
#2,4(SP)
177776, -(SP)
SC.OTYPE

:sPUT MSG ADDR IN JSR LINKAGE
; ;BUMP RETURN ADDRESS
:3sPUSH 177776 ON STACK
:sCALL TYPE MACRO

$FFLG

: s SHOULD REPORT FATAL ERROR?

:MJDOO01
;MJDO01
:MJD001

CZDZA-I0
CZDZAI.P11

F\f\fifl’\"\fihflf\f\fifl’\flfiflflf\flflflflfiflflflflf\ PNONINNONN
P
0 d (0 (e b et b b b (d e e b o b b b e (b (et b b b et i o s e s s s s s )
\JVVVUUVV\JVVUV\IVU\JVUUUVVUUUVU\JVU\JVV 7

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

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

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

001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000

001254
001234
000004
000002
001234
006240
006237
006236

SEQ 49

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

118:
001236
000004

12%:

$MFLG:
S$LFLG:
$FFLG:

000
000
006242
000200
000001
000100
000040

BEQ
TST
BEQ
TST
BNE
MOV

ADD
INC
CLRB
CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
.BYTE

.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

12$

$ENV

124
$MSGTYPE
11
94(SP),$FATAL
#2,4(SP)
$MSGTYPE
$FFLG
$LFLG
$MFLG

(SP)+,R1
(SP)+,R0

PC
0
0
0

::IF NOT:
BR
: ;sRUNNING UNDER APT?
BR
:3IF NOT:
s sFINISHED LAST MESSAGE?

::IF NOT:

WAIT

;sGET ERROR #
: :BUMP RETURN ADDR.
;s TELL APT TO TAKE ERROR
:sCLEAR FATAL FLAG

;sCLEAR LOG FLAG

: ;CLEAR MESSAGE FLAG
::POP STACK INTO R1
;:POP STACK INTO RO

; sRETURN

; sMESSG. FLAG
::L0G FLAG

;sFATAL FLAG

i 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
0065376

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

MOV
MOV
MOV
ADD
.INST1: TYPE
.MSG:
0
MOV
MOV

172656
000200
000023
172636

101$:

172632
000200
000021

000021

83s:

000015

102s:

172572

2%:

TSTB

BPL
MOVB
BICB
CMPB
BNE
TST8
BPL
MOVB
BICB
CMPB
BNE
TST8
BR
CMPB
BNE
TSTB
BR
CMPB
BEQ
TST8
BPL

R4, -(SP)
84(SP), .MSG
©2,4(SP)

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

;PRINT THE MESSAGE

¢INBUF ,R4
#7,R3
d$TKS
1
83TKB, (R4)
#200,(R4)
#$XOFF ,(R4)
834
9$TKS
101$
8$TKB, (R4)
©200,(R4)
@$XON, (R4)
101$

(R4).

1s
#$XON, (R4)
102$

(R4).

14
#15,(R4)INSTR2
9$TPS

+MESSAGE IS POINTED TO FROM HERE
;POINT R4 TO THE INPUT BUFFER
:SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED

+HAS 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?
: s DSH-BHL
;BR IF NOT
: :DSH
;WAIT FOR A CHARACTER
: s DSH-BHL
: s DSH-BHL
;GET CHARACTER
;: s DSH-BHL
;STRIP DOWN CHARACTER
; s DSH-BHL
;WAIT FOR A XON?
: s DSH-BHL
;GET NEXT CHAR IF NOT
: s DSH-BHL
;POP STACK
::DSH

;WAIT FOR A CHAR

::DSH

;IS IT A RANDOM XON
: s DSH-SHL
;BR IF NO
; s DSH-BHL
;ELSE, POP STACK
: s DSH-BHL
;GO0 GET NEXT CHAR
: s DSH-BHL
+IS IT <CR> ?
:IF SO, TERMINATE THE INPUT SEQUENCE
:IF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT
+IF WE CAN'T, WAIT UNTIL WE CAN

VVUVVVVUUUVUUV\JVUUUVVUUUUVVVVVVVVVVVVVUVU\JUVUUUVVVUVUVU ~—

lalalalalalalalelelalalalalalalalalalalalalal
ol ol el ol ol
o talalalealealalealelalealelalala
lalalalatatatal
0 (et (et e P P b b (o e b i e b b e e o P b e e s o e e (e (b (b b e e e e e b (b b (b (b b P e P Pt e (s (s s e e Pt et s i [

CZDZA-I0
CZDZAI.P11
006400
006406
006410
006412
006414
006416
006420
006422
006426
006430
006432
006434

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

017777
005303
001332
012604
012603
010346
010446
104402
000715
012604
012603
000002

172562

001230

SEQ S0

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

172564

MOV
DEC
BNE

MOV
MOV
.INSTE: MOV
MOV
TYPE
BR
INSTR2: MOV
MOV
RTI

94$TKB,33TPB
R3
13
(SP)+,R4
(SP)+,R3

+ $QUES

.INST1
(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
sPRINT 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
006544
006546

001406
006305
006305
006305

006550
006552
006554

000760
104404
000750

010546
010446
016605
012537
012537

012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714

.PARAM:

000004
006626
006630
006632
006634
006635
000004
011262
000015
000060

R4,-(SP)
4(SP),RS

(R5)+,LOLIM
(RS5)+,HILIM
(R5)+,DEVADR
(R5)+,LOBITS
(RS5)+,ADRCNT

R5,4(SP)
RS
®INBUF ,R4
15,(R4)
PARERR

PARAM]1:

1s:

000067

(R4),460

CMPB
BGT
BICB
BISB
CMPB
BEQ

000060

000015

ASL
ASL
ASL

PARERR:

BR
INSTER
BR

PARERR

(R4),467

PARERR
60, (R4)

(R4)+,RS

15, (R4)
LIMITS
RS
RS
RS

13
PARAM1

:SAVE RS ON THE STACK
:SAVE R4 ON THE STACK
;GET THE SETUP INFORMATION POINTER
;SET THE LOW LIMIT FOR THE INPUT
sSET _THE HIGH LIMIT FOR THE INPUT
:SAVE THE ADDRESS 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
sINITIALIZE THE ASCII TO 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 SO, 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
sCONCATENATE 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, MOVE STRING TO LEFT AGAIN
+MOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR
sNEXT THREE BITS
;GO GET THE NEXT CHARACTER
:THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN
:TRY GETTING THE PARAMETERS AGAIN

s 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
BITB
BNE

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

;DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE?
:IF YES, GO PRINT THE MESSAGE AGAIN
:IS THE RESULT LOWER THAN ALLOWED?
:IF YES,

GO PRINT THE MESSAGE AGAIN

sARE ANY INCORRECT BITS SET IN THE RESULT?

:IF SO, GO PRINT THE MESSAGE AGAIN

:STORE NUMBER AT SPECIFIED ADDRESS

flflflflflflfiflflflflfif\flfl’\flflP'\’\flflflflflflflflflflflflflfi’\flflflflflfififlflflflflfiflflfififlflfi ~
0 et b (e P b (b b b (b o o P b b o (o (b o (o o e P ot Pt e it b b b e P (b b P b i et b (b b e b i P P b b
- e et s Pt pea o
Nt Nl N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N N NI NI NI NI NI NS ~

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL-85 16:17
013704
010524
062705
105337
001372
012604
012605
000002

SEQ 51

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

006632

1s:

000002
006635

000000
000000
000000
000
000

MOV
MOV
ADD
DECB
BNE
MOV
MOV
RTI

DEVADR,R4
RS,(R4).
#2,RS5
ADRCNT
1

(SP)+,R4
(SP)+,RS

LOLIM:

0
0
DEVADR: 0
LOBITS: .BYTE
ADRCNT: .BYTE
HILIM:

0
0

;POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED
:STORE THE RESULT
;CALCULATE THE NEXT DATUM
sREDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED?
:IF NOT, GO STORE THE NEXT DATUM
;RESTORE R4
;RESTORE RS
;RETURN TO THE MAIN PROGRAM
;LOWEST ACCEPTABLE VALUE
sHIGHEST ACCEPTABLE
;LOCATION WHERE RESULT WILL BE STORED
s INCORRECT BITS MASK
;COUNT OF ITEMS TO BE STORED

:SAVE PC OF TEST THAT FAILED AND RO-RS
016637

000004

001402

.SAVO0S:

MOV

4(SP),SAVPC

:SAVE R7 (PC)

:SAVE RO-RS
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,$REG1
RO, $REGO

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

;RESTORE RO-RS
013700
013701
013702
013703
013704
013705
000002

001202
001204
001206
001210
001212
001214

.RESOS5:

$REGO,
RO
$REG1,R1
$REG2,R2
$REG3,R3
$REG4,R4
$REGS,RS5

;RESTORE
;RESTORE
;RESTORE
;RESTORE
;RESTORE
;RESTORE
;LEAVE

RO
R1
R2
R3
R4
RS

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT 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:

» $CRLF
R1,-(SP)
R3,-(SP)
RS,-(SP)

812(SP),R1
€2,12(SP)

1$:

(R1)+,WRDCNT
(R1)+,RS
(R1)+,RO
8(R1)+,R4

;PRINT A CARRIAGE RETURN

:SAVE RO
:SAVE R1
:SAVE R3
;SAVE R4
:SAVE RS
sPLACE THE ADDRESS OF THE ARGUMENTS IN R1
;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

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

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
007052
007054
007056
007062
0C7066
007070
007072
007074
007076
007100
007102
007104
007106
007107

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

012600
000002
000000
000
000

007110

000000

02-JUL-85

007106

3s:

177770
000060

011366

e (o
P

NP N

(e P (b (e e

MOV

PAGE 83-33

RS ,CHRCNT
R4 ,R3
#tC<7> ,R3

;COPY THE CHARACTER COUNT
;COPY THE ARGUMENT WORD AGAIN
sISOLATE THREE BITS TO BE TREATED AS A CHARACTER
sMAKE AN ASCII CHARACTER OUT OF THEM
:SAVE THAT CHARACTER
sMOVE THE NEXT THREE BITS INTO PLACE
sMOVE THEM AGAIN
sAND FINALLY A THIRD TIME
s:‘egfis CHARACTER COUNT.ARE ALL CHARACTERS

34
OMDATA,R3

+IF NO, GO BUILD THE NEXT ONE.
sNOW POINT TO WHERE NUMBER WILL BE PRINTED FROM
;STORE THE CHARACTER, STARTING WITH THE MOST

(SP)+,(R3)+
CHRCNT

007106

S$:

011366
007104

012601

(SP)+,RO
WRDCNT :
CHRCNT:

SPACNT:

;

;REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED?

+IF NO, GO TRANSFER ANOTHER
sARE ANY SPACES TO BE PRINTED?
+IF NO, DON'T SET UP ANY
sADD A SPACE TO THE OUTPUT BUFFER
sREDUCE THE COUNT. SHOULD WE PRINT MORE?
+IF YES, GO ADD ANOTHER SPACE
s TERMINATE THE OUTPUT BUFFER WITH A ZERO
;PRINT THE STRING WE JUST BUILT
sREDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT?
+IF YES, GO CONVERT THEM
iRESTORE RS
sRESTORE R4
tRESTORE R3
;RESTORE R1
;RESTORE RO
;RETURN TO THE MAIN PROGRAM
+NUMBER OF CHARACTERS TO PRINT

tNUMBER OF SPACES TO PRINT

BINWRD:

: TRAP DISPATCH SERVICE

sARGUMENT OF TRAP IS EXTRACTED

:AND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBROUTINE
007112
007114
007120
007122
007124
007126
007132

010046
016600
005740

111000
006300
016000

000200

.TRPSR: MOV

000002

MOV

RO, -(SP)
2(SP),RO

:SAVE RO. USE RO TO FIND TRAP ROUTINE
:GET TRAP ADDRESS

MOve

(RO),RO

:GET RIGHT BYTE OF TRAP(TRAP OFFSET)

TST

-(RO)

ASL

RTS

MOV

002002

s e P

N N N N
N N N
N

D s P P

16:19

APT COMMUNICATIONS ROUTINE

i (b s (b (e (b (o

i (e P

b (e

N N N N NP N N N N NI N N N N N N N N N N N

Pt b (e

s (e

N N N N N

(b (e

N N N

S b (e

b (b P

e (i P

e (e

b (e P

N N N N N N NI NN NI NIININININING ~

lalalalalalalalal ol ol ol ol ol ol alal ol ol ol ol ol ol ol ol ol ol ol ol ol ol ol ot ol ol ol ot ol ol ol elalalalalalalalalalalalalalale] ~

CZDZA-I0
CZDZAI.P11

.TRPTAB(RO),RO

iGET TRAP

sPOSITION 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
007134
007134
007142

052777
032777

000020
000020

172700
172672

.DEVICE. CLR:
1s:

BIS
BIT

#0CLR,80ZCSR
®0OCLR,8DZCSR

;SET DCLR
;0ID IT CLEAR?

VVUVVVVVVVV\J\JVU\JUVU\J\JUUUVVUV\I\JUUUU\JVVUV\JVVV\JVVV NN

NI NN

I s

INANANANANANINININANANINININONINONONINONONINONONONONONONONCNCNCNCONNCNON
NN NN NN
5N NP 0TM PN~ PNPNPNINIS
el
el el el el el e e e
e e e e e
e e e e e
e S S
A T
o s Pt ot put e Pt e [

CZDZA-I0
CZDZAI.P11

007150
007152

MACY11 30A(1052)

02-JUL -85 16:17

SEQ 53

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

001374
000002

BNE
RTI

1BR IF NO

;EXIT ROUTINE

tROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR
'

007154
007156
007164
007166
007166
007170
007174

007176

007200
007202
007204

104413
153777
000002
010046
013700
005300
001376
012600
000002
000001

001417

172656

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

.DCLASM:DEVICE.CLR
BISB
MNTFLG,8DZCSR
RTI
.DELAY:

MOV
MOV
18:
DEC
BNE
MOV
RTI
DLYCNT: .WORD

007204

RO, -(SP)
DLYCNT,RO
RO
1s
(SP)+,RO
1

:ISSUE A DEVICE CLEAR
sLOAD THE MAINTENANCE BIT IF IT IS I MODE

tRETURN TO CALLING ROUTINE

;SAVE RO
:SET COUNT

;sDELAY
;

;RESTORE RO
;LEAVE ROUTINE

:PATCHABLE LOC FOR MORE TIME

;ADVANCE TO NEXT TEST HANDLER
007206
007212
0C7216

013716
005037
000002

001360
001362

.ADVANCE
: MOV
CLR
RTI

NEXT,(SP)
LOCK

sCRUNCH STACK WITH ADDRESS OF SCOPE CALL
;RESET TIGHT LOOP ADDRESS
;CHECK TO SEE IF 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
007332
007336
007342
007346
007352
007354

004737
032777

007642
010000

105777
100003
112777
032777
001113
021637

171730

001406

001404

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

000207
020000

171726

171722
171702

$ERROR:

BEQ

XBX:

001136

001136
001123
000002
001134

177001
030340
007456
007470
007502
001123
007502

JSR
BIT

1s:

TSTB
BPL
MOVB
BIT

BNE

CMP
BEQ
MOV
CLRB
SAVOS
MOV
suB
MOV
Move
ASL
ADD
ASL
8IC
ADD
MOV
MOV
MOV
TSTB
BEQ
TST

PC,SERV.G
#SW12, 3SWR
XBX
3$TPS
XBX
©207,947PB
#SW13,3SWR

HALTS

(SP), $ERRPC
1$
(SP), $ERRPC
$ERFLG

(SP),.RS
@2,R5
(R5).R4
R4,$ITEMB
R4
(RS).R4
R4
€177001,R4
#.ERRTAB,R4
(R4)+,ERRMSG
(R4)+,DATAHD
(R4) ,DATABP
$SERFLG
TYPMSG
DATABP

sFIND OUT IF <tG> WAS HIT
:BELL ON ERROR?
:BR IF NO BELL

:TTY READY.

;DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY.
;DELETE ERROR PRINT QUT?
:BR IF NO PRINT QUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
:BR IF YES
;:RECORD BEING HERE
;PREPARE HEADER
:SAVE ALL PROC REGISTERS
:GET THE PC OF ERROR
:GET ADDRESS OF TRAP CALL
;GET ERROR INSTRUCTION
;COPY TEST NUMBER FOR APT HANDLING
;MULT BY TWO
;:DOUBLE IT
sMULT AGAIN
:CLEAR JUNK
:GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER
;:GET DATA TABLE
: TYPE HEADER
;BR IF YES
;:DOES DATA TABLE EXIST?

UU\JVU\J\JVV\JVVUUUVVVV\J\JUV\JVVUUVVUVVV\JUUVV\JVU\J\JV\J\JUV NS ~

f\F\f\flfif\f\fif\f\fif‘\flf\fiF\flf\f\’\fifl"\fif\fll‘\"\flf\flflfiflf\flf\flflflfififlfifi’\flflfififlfiflfifi ~
el
el el e e e e e e el el e e e e e e e e e e e e e S S S
N T T T S
Sy S
STty o et s ps o po '

CZDZA-I0
CZDZAI.P11
007360
007362
007366
007372
007376
007400
007404
007410
007414
007420
007424
007430
007434
007440
007446
007452
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

MACY11l 30A(1052)
02-JUL -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
012706
000177

000002
000001
006
001402
000001
002
001122
022737

TYPMSG:

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

1$:

CNVRT

001123

ERRMSG:
WTBS.FM:

TYPE
CNVRT
TYPE
Move
TST
BEQ
TYPE
0

TST
BEQ
TYPE
DATAHD
: Y
TYPDAT: TST
BEQ

007502

000001

001254

001134
006012

007530

005056

000042

DATABP:
RESREG:
HALTS:

78:

2s:

171410

171402

001132
000400

171364

002000

171354

001360
001120
171302

001126

002

177570

BNE
TYPE
TYPE
TST
BEQ
TYPE
TYPE
CNVRT
TYPE

007470

000002

SEQ S4

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

001160

CONVRT

0
RESOS
CMPB
BNE
MOve
JSR
.WORD
BR
CcMP
BEQ
TST
BPL

1s:

MOV
HALT

EXITER:

INC
BIT
BNE
BIT
BEQ
MOV

1s8:

MOV

JMP
2s:
RTI
ERTABO: 1
.BYTE
SAVPC
XTSTN:
1
.BYTE
$TSTNM
SERV.G: cMP

TYPDAT
+$CRLF

+ $CRLF

1.OCK
13
+MASTEK
MTSTN

+XTSTN

;BR IF YES.

;TYPE A CARRIAGE RETURN
;AND TYPE ANOTHER

sSHOW IT

+MERRPC

;TYPE PC.

#-1,$ERFLG
ERRMSG
WTBS.FM

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

.ERTABO
+MCSRX
+XCSR
+ $CRLF

DATAHD
TYPDAT

DATABP

RESREG

g?PTENV.‘ENV

$ITEMB,7$
PC,$ATY4
0
8s
::ENDAD.9042
SSWR
EXITER
2(SP),80ISPLAY
SERTTL

#SW08, 3SWR

1$
@SW10, 3SWR

2$
NEXT, $LPADR
#STACK,SP

dSLPADR

sSHOW IT

; TYPE
:
ERROR MESSAGE

;DATA HEADER?

;:BR IF NO

;sTYPE
DATA HEADER
3
;DATA TABLE?
:BR IF NO.
: SHOW
3
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
;HALT ON ERROR?
;BR IF NO HALT ON ERROR
;SHOW ERROR PC IN DATA DISPLAY

sHALT

;UPDATE ERROR COUNT
;GOTO TOP OF TEST?
;:BR IF YES
;GOTO NEXT TEST?
;BR IF NO
;SET FOR NEXT TEST
;RESET SP
;GOTO SPECIFIED TEST
;RETURN

6.2

2.2
#177570,SWR

;IS THE SWITCH REGISTER HARDWIRED?

001002
000137
017746
042716
122716
001012

007674
007700
007702
007706
007712
007716

105777
100375
117716
042716
122716
001366

007720
007724
007726
007730

001002
005726
000553

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

122726
001150
032777
001335
017737
013777
104402
104412
104402
105777
100375
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

010062
010066
010070
010074
010100
010102
010110
010112
010116

122726
001472
005077
105777
100375
016677
000241
006177
006177

000015

8$:

171064
171070

2%:

122716

010260
171304

177600

000023

171264

101s:

171260
177600
000021
102¢:

7%:

000007
004000

171216

171204
010302
010262
010274
010304
171160

010302
171174

1¢:

9s:

171154
177600

000023

171134

111s:

171130
177600

000021

171042
171036

99
64
88TKB, -(SP)
177600, (SP)
Q$XOFF ,(SP)
1024

T1ST8
BPL

9$TKS
101$
83TKB, (SP)
177600, (SP)
#$XON, (SP)
101

MOVB
BIC
CMPB
BNE

000021

177776

BNE
JMP
MOV
8IC
CMPB
BNE

112¢:

171062

CMPB
BNE
TST
BR

CMPB
BNE
BIT
BNE
MOV

MOV
TYPE

CNVRT
TYPE

TSTB
BPL
MOV

#$XON, (SP)
7%

(SP)+

#7,(SP)«
6
#4000,
88 TKS
SERV.G
8SWR,90$
90¢,8SWR
.89
.88

918

9$TKS
.-4

9$TKB, -(SP)

:IF SO, IGNORE tG

;: s DSH-BHL
;OTHERWISE, GET THE LAST CHARACTER TYPED
:STRIP CHAR
;: s DSH-BHL
:IS IT A XOFF
s s DSH-BHL
;:BR IF NO
; s DSH-BHL
;WAIT FOR A CHAR

; s DSH-BHL
; sDSH-BHL
; s DSH-BHL
; s DSH-BHL

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

::DSH
::DSH
::DSH
;:DSH

:IS IT tG?
:IF NOT, IGNORE INPUT

;RX BUSY?

;:BR IF YES
;SAVE (SWR).
:
s
:
:

;WAIT FOR DONE.
3

BIC
CMPB
BNE

#177600,(SP)
#$X0FF ,(SP)
112

;STRIP CHAR
;IS IT A XOFF
;:BR IF NO

TSTB
BPL
MOVB
BIC
CMPB
BNE

F$TKS
111
93$TKB, (SP)
177600, (5P)
#3$XON, (SP)
111

;:WAIT FOR A CHAR

CMPB
BNE
TST
BR

#$XON, (SP)
8%

CMPB
BEQ
CLR
TST8
BPL
MOV
CLC
ROL
ROL.

(SP)+

1
SSWR
as$TPS
.-4
-2(SP),98TPB

aSWR
ASWR

: s DSH-BHL

; sDSH-BHL

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

: s DSH-BHL

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

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

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

: :DSH
; :DSH
; :DSH
::DOSH

007650
037652
007656
007662
007666
007672

02-JUL -85 16:17

SEQ 55

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

®s

MACY11 30A(1052)

fifl'\fl'\fl"\f‘\f\f\fi/‘\flf\fiflflf\f\f\fif\flfiflflflflflfififlflflfiflflflflfiflfifififlfiflfiflfiflf\fiflflfifl ~
P8 et b e e et ot eh e b b el b e b h (b (b el e e e (h b e hh b Pd (b b e b e et (e (et et e e e 8 (b b b et
o s s et ot e Pt e P [
VVVUU\JU\JVUVVVUV\IU\JU\JU\IV\'VVVUUUVUVUUV\JV\JVVVV\JVU\JVVVVUVVV ~

CZDZA-I0
CZDZAI.P11

CZDZA-I0
CZDZAI.P11
(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)
(2)
(2)
(3)
(2)
(2)
(2)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(2)
(2)

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

010122
010126
010130
010136
010140
010146
010150
010156
010164
010170
o:0172
010176
010202
010206

006177
103713
026627
002707
026627
003303
042766
056677
105777
100375
017746
042716
122716
001012

010210
010214
010216
010222
010226
010232

105777
100375
117716
042716
122716
001366

010234
010240
010242
010244

122716
001002
005726
000747

000021

010246
010252
010254
010260

122726
001310
104402
000207

000015

10s:

001231

010262
010270

020200
036451

010274
010276
010300
010302
010304

000001
006
010302
000000
036457

171032
177776

177776
177770
177776
170774

ROL
B8CS
cHP
BLT
CMP
BGT
8IC
BIS
TSTB
BPL
MOV
BIC
CMPB
BNE

000060
000067

177776
170774

12%:

170770
177600
000023
170750

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737

010454
000340

170614
010460
010362

000024

H
P

98 TKS
.-4
93$TKB, -(SP)

H
:

-2(SP),#67

-2(SP) ,8SuWR

;

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

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

CMPB
BNE
TST
BR

#$XON, (SP)

;IS IT RANDOM XON ?

;:0SH

(SP)+

;POP STACK

;:DSH

S$:

CMPB
BNE

64:

TYPE
RTS

#15,(SP)+
2s
. $CRLF
PC

H
H

89s:

.ASCIZ

<200>? (SWR)=/?

1
.BYTE
90¢
.WORD
.ASCIZ

90§
:
91§:
.EVEN
.SBTTL

000024
000026

1s
#tC<7>,-2(SP)

98 TKS
121
9$TKB,(SP)
#177600,(SP)
#$XON, (SP)
121

10$

124

;BR IF NOT

::0SH

;IGNORE XON CHAR

;:DSH

6,0
0
/=/?

POWER DOWN AND UP ROUTINES

010310
010316
010324
010326
010330
010332
010334
010336
010340
010344
010350

-2(SP),#60

T1ST8
BPL
MOvB
BIC
CMPB
BNE

.EVEN
88s:

000057

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

122%:

000

3
;ERROR

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

121%:

051127

8SWR
1

#177600,(SP)
#$XOFF ,(SP)
1224

170744
177600
000021

051450
000057

SEQ 56

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

;POWER DOWN ROUTINE

$PWRDN:
.

MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#$ILLUP, 9#PWRVEC ;;SET ;OR FAST UP
#340,94PWRVEC+2 ;;PRIO:
RO, -(SP)
; : PUSH RO ON STACK
R1,-(SP)
; : PUSH R1 ON STACK
R2,-(SP)
: s PUSH R2 ON STACK
R3,-(SP)
; ; PUSH R3 ON STACK
R4,-(SP)
; s PUSH R4 ON STACK
RS, -(SP)
: s PUSH R5 ON STACK
OSWR, -(SP)
; ;s PUSH @SWR ON STACK
SP,$SAVR6
;s SAVE SP
#$PWRUP, 84PWRVEC ;;SET UP VECTOR

CZDZA-I0
CZDZAI.P11
(2)

gg;

010360

SEQ 57

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

000000

HALT

000776

BR
R

;POWER UP ROUTINE
$PWRUP: MOV
#$ILLUP,84PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVR6,SP
::GET SP
CLR
$SAVR6
;s WAIT LOOP FOR THE TTY
1$:
INC
$SAVR6
;s WAIT FOR THE INC
BNE
1$
::0F
WORD
MOV
(SP)+,8SWR
:sPOP STACK INTO aSWR
MOV
(SP)+,RS
;sPOP STACK INTO RS
MOV
(SP)+,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)+,R0
;:POP STACK INTO RO
MOV
#$PWRDN, 84PWRVEC ;;SET UP THE POWER DOWN VECTOR
MOV
#340,34PWRVEC+2 ;;PRIO:7
TYPE
: sREPORT THE POWER FAILURE
$PWRMG: .WORD
MPFAIL
;s POWER FAIL MESSAGE POINTER
MOV
(PC)+,(SP)
; sRESTART AT RESTART
$PWRAD: .WORD
RESTART
; sRESTART ADDRESS
RTI
$ILLUP: HALT
: s THE POWER UP SEQUENCE WAS STARTED
BR
-2
;s BEFORE THE POWER DOWN WAS COMPLETE
$SAVR6: 0
;:PUT THE SP HERE
MPFAIL: .ASCIZ
<200>/PWR FAILED. RESTART AT LAST TEST /
MEPASS: .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: /
XHEAD:
.ASCIZ
<200>/MAP OF DZ11 STATUS/<200>
MBADLN: .ASCIZ
<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200>
.EVEN
XSTATQ: 2
.BYTE
6,3
$TMP1
BYTE
6.2
$TMP2
.EVEN

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
044516
051107
052523
045503
000040
000040
051505
051117
047040

003
002

020124
000040
047440
042514

; sHANG UP

010362
010370
010374
010400
010404
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

L I

(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)
(2)

fi.__

010356

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

Y YT

TITITIIIIIIIIYSY

-$SETFLG-=s3=s=22=2=22=z=3333z3z333z3333sz233

Eg;

;THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN

(2)
(2)
(2)

SE'EXTERNAL LOOP BACK
; I=INTERNAL LOOP BACK
:S=STAGGERED LOOP BACK

—

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)
(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
011212
011220
011222
011230
011232
011236
011242
011246
011250
011252
011254
011256
011260

MACY11l 30A(1052)

02-JUL -85 16:17
017605
042737

122737
001005
013715
105037
000422
122737
001006
013715
112737
000410
122737
001007
013715
105037
062716

000002

000000
000040
000105

011262
011262

.SETFLG:MOV
BIC

8(SP),RS

€40, INBUF
@' E, INBUF
4%

011254
001417
000111

SEQ 58

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

1$,(RS)

011262

011256
000010

001417

000123

011262

011260
001417
000002

104404
000733
000200
000000
100000

4s:

MNTFLG
7%
@' I, INBUF
5

CMPB

2%,(RS)

;?AINT.HNTFLG

5¢:

CMPB

78:

ADD

6$:

INSTER
BR
.WORD
.WORD

1¢:
2%:

3s:
;:

END

.WORD
0

@'S, INBUF
64
3$,(R5)
MNTFLG
@2,(SP)

MACR)

;PICK UP ADDRESS OF TAG
sSTRIP LOWER CASE
:53 IT EXTERNAL LOOP BACK ?
’

;:YES STORE INFO
;SET MAINT BIT =0
;GET OUT
:zg IT INTERNAL LOOP BACK ?
:

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

;POP AROUND
;RETRY

:DITTO
;EXTERNAL = E
sINTERNAL = I
:STAGGERED = S

.SETFLG
200
0
100000

======2z2z=z=z=z33333=z3=

;

-$BUFFER-========2z2=22zzzsz=2szzzssssss=z==2=2=2

;BUFFERS FOR INPUT-OUTPUT
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
106437

011526

000016

000002
000004

O
0

O
MOV
SuB
MOV
CcMP
BNE

#2,38
93%,4%
#106427,4%
1s

BR
CMP
BEQ

24
#106437,4¢
. +4

MOV

011530

011526
000002

1$:

2%:

3s:
4% :

HALT
MOV
MOV
ADD
MOV
RTI
0
0

(SP),3s

(sP),3s

(SP),3s

;RESERVED INSTRUCTION NOT “MTPS”

93%,3$
#2,(SP)
83$,2(SP)

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

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

SEQ 59

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

END

MACR)

==zzzs3ssssssssazss

-$CYCLE-=22=ssssssaszssszsssssssssszzas

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

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

005737
001004
104402
000000
000776
013737
033737
001020

001404

CYCLE:

010564

005374
001406

001226
001404

001406
001406
000014
002000

001412
001412

001500

001412

001406
001406
001412
000014
002000
001500
001310
002072
030334
030335
100000
001364
001366
001370
030126
000042
000002
001231

1s:

HALT
BR

MOV
BIT
BNE
CLC
ROL

RUN
RUN
ACTIVE,RO
#14 ,ACTIVE

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

BR
CLC

ROL
ADC

MOV
MOV
MOV

MOV

BIC

MOV
MOV
MOV
JSR
TST
BNE

74:

ggN.DZACTV

;RESET ADDRESS POINTER.
;KEEP LOOKING FOR ACTIVE DZ11

MOove

167204

-2
$MXCNT, $TIMES

:DZ.HAP.ACTIVE

BNE

001414
030334

+MERR2

MOV

cMP

3s:

+ARE ANY DZ11'S TO BE TESTED?
:BR IF OK.
iNO 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
:BZ.END.ACTIVE

MOV
ADD

001412
001412

DZACTV
1$

ADC
ADD

CMP
BNE

2%:

001412

TST
BNE
TYPE

BIT
BEQ
TYPE
INSTR
MTSTN
PARAM
1000

#DZ.END,ACTIVE

3
¢DZ.MAP,ACTIVE
(RO)+, $BASE
(RO)+,DZRIV
(RO)+,DZPRT
DZPRT+1,EIAFLG
#B8IT15,DZPRT
(RO)+,LINE
(RO)+,PAR
(RO)+,MODE

PC,DZLEV
9442
45
#SWO01,3SWR
43

+ $CRLF

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

;ALL DONE?
;BR IF NO.
;RESTORE POINTER.
;LOAD SYSTEM CTRL. REG
;LOAD VECTOR
;LOAD PRIORITY
;EIA OR 20MA

;CLEAR FLAG
: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 #
:BR IF NO TEST IS TO BE INPUTTED
;i

-$SGETPAR-====s=z=z=z=z=ssss=22=zz3zzs33ssszsz=3=

;CALL THE STRING INPUT ROUTINE
:POINTER 7O MESSAGE TO BE PRINTED
;CALL Ti4€ OCTAL TO ASCII CONVERT ROUTINE

sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE
+HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE

CZDZA-I0
CZDZAI.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

$TSTNM
.BYTE
.BYTE

0
1

MOV
CMP
BNE

#TST1,RO
#4,(RO)
6%

BNE
CMP
BNE
MOV
ADD

63
$TSTNM,4(RO)
63
RO, $LPADR
#2,3LPADR

CcMP

RO,#TLAST+10

000
001

;

013036
000004
012737

SEQ 60

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

S$:

000004

001126
000002
001231

001126

BNE

001230

MACRQ

TYPE

6$:

023730

CcMP

000002

001122

END

TYPE

001126

BR
MOV

:3:
$:
RESTART: JMP

;POINTER TO MAP LOCATION TO BE FILLED
sMASK._ OF INVALID BITS FOR THIS PARAMETER
:NUMBER OF PARAMETERS TO STORE

====s==sssz2=zzzz=zz=z=ss

#12737,2(RO)

+ $CRLF

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

(RO)+

» $QUES

74
#TST1, $LPADR
S$LPADR

:PREPARE TEST ADDRESS

;GO _START TESTING.##+*WARNING!#&444
:THIS JUMP IS USED BY POWER UP ROUTINE!!!!

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.
+ IF BIT7 IN THE ENVIRONMENT MODE ($ENVM) BYTE IS SET,
+ THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE.
012102
012106
012112
012116

012700
013701
013702
042702

001500
001310
001304
177007

SETAPT: MOV
MOV
MOV
BIC

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
052760
042760
005020
000754
012710
012737
000207

001305

MOvVB
RORB
RORB
RORB
RORB
RORB

177770
001320
001312
001404
1¢:

000010
000010

177777
001256

001160

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

;LOAD THE INTERRUPT PRIORITY FROM R3
;ALIGN THE NUMBER
;ALIGN THE NUMBER
;ALIGN THE NUMBER
sALIGN 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

#10,R1
#10,R2
1$

R1,(RO)+
R2,(RO)+
R3,(RO)+
$COW1,(RO)+
(R4)+,(RO)»
43
#100000, -6(RO)

001314

177772
177776

;POINT
;BUILD
;BUILD
:STRIP

$BASE,R1
$VECT1,R2
#tC<770>
,R2

(R4).

2%:
3s:

100000
100000

#0Z.MAP,RO

#100000, -2(RO)

(RO)+
28
#-1,(RO)

4%:

5$:

RTS

#$SWREG
SWR
,

+*ROUTINE USED TO

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

+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

"AUTO SIZE” THE DZ11

;#CSR AND VECTOR.
+*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING
ADDRESS RANGE (160000:163700)
AND THE VECTOR MAY BE ANY WHERE IN THE
FLOATING VECTOR RANGE (300:770)

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
CMP

INIFLG
#DZ.MAP,R2
#$DDWO,R3

(R2)+
#DZ.END,R2

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

N
N
N
N
N
N
N
N
N
N
N
N
N
N
N

e lelelalelelelalalelalelelale)

SISV
VLV VLV VL VR VL VY V) Y

CZDZA-I0
CZDZAI.P11

MACY11l 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
012532
012536
012540
012544
012550
012556
012560

010122
005722
012722
052761
032761
001003
052762
012722
012712
012223
005022
012712
105237
122737
001405
062701
022701
001275
105737
001432
113701
110137
012737
005301
001404

001410
001500
160000
012636
000040
000200

000004
000004

2%:

7%:

000200

SEQ 62

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

000004

8s:

000040

000020
000020
000020

000004

BNE
CLRB
MOV
MOV
MOV
BIS
BIS
CLR
TST
BMI
DEC
BNE

BR
BIT
BEQ
BIT
BEQ
CLR
BIS
BIT

1s
DZNUM
#DZ.MAP,R2
#160000,R1
#64$,8904
#BITS,(R1)
#8IT7,4(R1)
RO
(R1)
8¢
RO
74

3
#B8IT7,4(R1)
34
#BITS,(R1)
34
RO
4#20,(R1)
#20,(R1)

BEQ
BIT
BEQ
DELAY
INC
BNE
BR
CLR
CLR

3
#20,(R1)
.+12
RO
.-12
3
(R1)
4(R1)

MOV
ST
MOV
BIS
BIT
BNE
BIS

R1,(R2)+
(R2)0
#5,(R2)+
#177400,4(R1)
#177400,4(R1)
94
#BIT1S,-2(R2)

MOV
MOV
CLR

#17070,(R2)
(R2)+,(R3)+
(R2)+

;BR IF NO
+SET OCTAL NUMBER OF DZ11'S TO O
+SET FOR FIRST ADDRESS TO BE TESTED
+SET FOR NON-EXISTENT DEVICE TIME OUT
sTRY 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
sREDUCE COUNT. TIME UP?
+IF NOT, KEEP WAITING
sASSUME I7'S NOT A DZ11
+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 DZ11
:SET DEVICE CLEAR
iSHOULD STAY SET FOR A WHILE IF DZ
:BR IF NOT DZ11
;WAIT FOR BIT TO CLEAR
iBR WHEN CLEARED

:BIT NOT CLEARED! MUST NOT BE DZ11

iGET RID OF MASTER SCAN ENABLE

;GET RID OF LINE 7 ENABLE

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

000005
177400
177400
100000
000377
017070
177777
001410
000020

000004
000004
177776

3%:

100¢:

001410

MOV

MOV
INCB
CMPB

001410

000010
163700

001410
001411
000001

9s:

001404
44

#377,(R2)+

BEQ
ADD
CMP
BNE

#-1,(R2)
DZNUM
#20,DZNUM
100$
#10,R1
#163700,R1
24

TST8

DZNUM

BEQ
MOVB
MOVB
MOV

DEC
BEQ

S$
DZNUM,R1
R1,SAVNUM
#1,DZACTV

R1
984

:STORE CSR IN CORE TABLE.
:POP OVER VECTOR STORE AREA
+SET THE DEFAULT BUS LEVEL
sTRY TO SET ALL DTR BITS
: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
; TERMINATE LIST
sUPDATE DEVICE COUNTER
+ARE MAX. NO. OF DEV FOUND?
:YES DON'T LOOK FOR ANY MORE.
iUPDATE CSR POINTER ADDRESS

:BR IF MORE ADDRESS TO CHECK.

sWERE ANY DZ11'S FOUND AT ALL?
;ERROR AUTO SIZER FOUND NO DZ11'S IN THIS SYS.

:SAVE NUMBER OF DEVICES

CZDZA-I0
CZDZAI.P11
012562
012564
012570
012572
012600
012606
012614
012622

012624

012630
012632
012634
012636
012642

012644
012652
012660
012664
012670

1)
L

W L

VRPN

PNPNPNONINPNPNPNPNPN
PN NN PN PN NN

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

012676
012702
012704
012710
012712
012716
012720
012722
012724
012730
012736
012740

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

012674

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

SEC

001404
001500
001512
000006
001404

SEQ 63

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

001310
001314
000004
001312

010564

06,804
DZACTV, $DEVM
VECMAP

;RESTORE TRAP VECTOR
:SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.

iMAKE DATA DISPLAY ZERO

BR
MOV

.2
3%,(SP)

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

HALT

012520

2%ACTV

BR
MOV
MOV
MOV
MOV
BR
TYPE
CLR

DZCRO, $BASE
MANTO, $COW1

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

+MERR2

sNOTIFY OPR THAT NO DZ11‘S FOUND.

:STOP THE SHOW

;RETURN TO MAINSTREAM
000340
012770
001500
000300
000302

#340,8¢6¢22

000022
000020

:SET IOT TRAP VECTOR

#300,R0
#302,R1
R1,(RO).
®4,(R1).

iFLOATING VECTORS START HERE.
;PC OF IOT INSTR.
iSTART FILLING VECTOR AREA
sWITH .+2; IOT

R1,#1000
14

+HAS THE VECTOR AREA BEEN EXCEEDED?
:BR IF MORE TO FILL

®DZ.MAP,R2

000004

(RO)+,(R1)+

001000

+SET IOT TRAP PRIORITY TO 7

43,8620

:SET SOF TWARE POINTER

:ADD 2 TO RO +R1

001404

DZACTV,R4

000000
040040

000000

R4
:BRING OUT A BIT
5
:BR IF ALL DONE
#0
;ZERO CPU PRIO
#8IT14+BI75,8(R2)

000200

000004

#B8IT7,4(R1)

000002

RO
©300,2(R2)

FOR TIME TO INTERRUPT
s?flIINTERRUPT ASSUME 300 AND FIX DZ11 LATER

@14 ,R2

;POP SOFTWARE POINTER

000300

(R2),R1

MOV

RESET
ADD

000014

000002
000010
000007

BR
MOV
SuB
BIC
POP2SP
MOV

000002
000002

012760

001502
005122

RTI

001304
000020

MOV
MOV

RTS
i

END

MACR)

2
(SP),2(R2)

:STORE TEMPORARILY

:GET CSR

:SET THE TCR BIT!

sATTEMPT TO FORCE AN INTERRUPT

3STALL

iKEEP GOING
:GET VECTOR ADDRESS

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

;POINT BACK TO THE CORRECT VECTOR
:CLEAR JUNK

:SET FOR RETURN

DZVCO, $VECT1

;COPY VECTOR OF FIRST DEVICE INTO ETABLE

#.SCOPE,IOTVEC
PC

;POP IOT JUNK OFF STACK

;RESTORE THE SCOPE TRAP
;ALL DONE WITH "AUTO SIZING"

#====z=z=z=zsss=3z2=z2=3

MACY11l 30A(1052)

02-JUL-85 16:17

SEQ 64

02-JUL-85
16:19
PAGE 83-45
CZDZA DZ11 DEVICE DIAGNOSTICS.

“$UNIBUS-s=sszsssssssssssassssssssss-ssss

]

-.xz-....-.-.-......llI.I.l...ll..

;488 sttsddtttttsitstttss TEST | ssstsstssssssssssssssdssstssss

lalala ¥l

gflflflflflflflfiflflflflflflflfiflflflflflflfiflflflflflflfififlflflfififlflflflfifl'\
10 i e ot Bt (b o P (b P (b e o e i e b i (b s e o e i (e e s e i s et ot et G O G D O G ) B e g
30
vvvvvvwvvvvvvuuvuuwuvuvuvuvuuvvvuuvvvvvuvvvvvv

CZDZA-I0
CZDZAI.P11

+#THIS TEST PROVES THE SLAVE SYNC RESPONSE
;*DURING A READ OR WRITE TO THE FOLLOWING ADDRESS:
i
DZCSR, DZRBUF, DZTCR, DZMSR
;

s:¢
013036
013040

000004
012737

013046
013054
013062
013070
013076
013102
013104
013106
013110
013112
013120
013124
013126
013130
013132
013134
013142
013146
013150
013152
013154
013156
013164
013170
013172
013174
013176
013200
013206
013212
013214
013216
013220
013222
013224

012737

012737
012737
012737
013700
011001

000001

001122

013226
013214
000340
013076
002042

001360
000004
000006
001362

TST1:

SCOPE
MOV

#1,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV
MOV

#TST2,NEXT
#54,4
#PR7,6

;POINT TO THE START OF THE NEXT TEST
:SET TRAP VECTOR
:SET PRIORITY TO LEVEL 7

MOV
MOV
NOP
CLR
NOP
MOV
MOV
:gg

DZCSR,RO
(RO),R1

CLR

(RO)

END

011001
000240
005010
000240
012737
013700
011001
000240
005010
000240
012737
013700
011001
000240
005010
000240
012737
005037
104400
011601
022626
104001
104401
000111

013120
002046

013142
002056

013164
002062

000006
000006

001362

MACR)

MOV

1%:

000240

005010
000240
012737
013700

“$Xl-ssssssssssssssssssssszsasssss

TEST 1

24:

NOP

MOV

34:

#34%,L0CK

;WRITE THE ADDRESS

sWASTE TIME

;SET RETURN ADDRESS FOR SW09

;WRITE THE ADDRESS

#44,L0CK

+SET RETURN ADDRESS

(RO),R1

;READ FROM ADDRESS

MOV

DZMSR,RO

fibg

(RO)
:6.4

MOV

END

#24,L0CK
DZRBUF ,RO
(RO),R1

;SET ADDRESS TO TEST
;READ THE ADDRESS
;WASTE TIME
;WRITE THE ADDRESS
sWASTE TIME
;SET RETURN ADDRESS FOR SW09
:SET ADDRESS TO TEST
;READ THE ADDRESS

(RO)

ADVANCE

Ss:

(RO)

;SET RETURN IF SW09=11

gb:

28;

000004

#14$,L0CK

DZTCR,RO
(RO).R1

:8;

CMP
ERROR
SCOP1
JMP
O

MACRQ

IY T

====s=zzssssssszss=s

MOV
:gx

MOV

43:

P Yy Y Y YT

:SET ADDRESS TO TEST
;:READ THE ADDRESS

:SET ADDRESS TO TEST

;WRITE THE ADDRESS
;

:SET TRAP CATCHER BACK TO NORMAL
i

(SP),R1

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

:SCOPE THIS TEST

:SAVE PC OF TRAP

:POP TRAP OFF STACK
:#NO SLAVE SYNC RESPONSE.
1SH09=1?
iRTI

=ssssssssssssssssss
'

(800 asatsttittttstties

-.xz.-....-.-...--......-..-..--..

TEST

ssssssssssssssssssssssssssssss

;#THIS TEST PROVES THAT BIT “DCLR*”
:#CAN BE SET AND THAT IT WILL CLEAR

;#BY ITSELF AFTER A PERIOD OF TIME.
‘

;:%

TEST 2

—.xz-.-..l-..-...--.-.--'.-.-..-'.

CZDZA-I10
CZDZAI.P11
F

;188848804 88848048480008488888848888828088888888008080080008440

(4)
8;

013226
013230

000004
012737

(2)
8656
8657
8658
8659
8660

013236
013244
013250
013254
013256
013260

012737
013700
012705
010510
011004
020504

013266
013270
013272

005002
005005
005003

8668
8669
8670

013276
013300

001405
005203

8672
8673

013302
013304

8667

871

8674
8675

013262
013264

013274

013306
01331n

867 013312

000002

001122

013312
002042
000020

001360

T1ST12:
'

14:

011004

2%:

;LOAD THE NUMBER OF THIS TEST

SESSSSSSSSSSaSSSSSES

OTST3,NEXT
DZCSR,RO
#0CLR,RS
RS,(RO)
(RO),R4
RS.R4

;POINT TO THE START OF THE NEXT TEST
;SET POINTER
:SET DCLR
;WRITE DCLR INTO DZCSR
;READ BACK DZCSR
;DZCSR OK?

BEQ
14
sIF IT IS SET SKIP THE ERROR CALL
ERROR
2
;#DCLR SHOULD BE SET..MOMENTARILY
;NOW LETS WATCH IT DISAPPEAR
CLR
R2
;SET COUNTER TO O
CLR
RS
;SET EXPECTED T0 O
CLR
R3
;OUAL LOOP COUNTER

001374
005302

001372
104002

SCOPE
Ewngvmcmoz.nsrm

MOV
MOV
MOV
MOV
MOV
CMP

001401
104002

8680

MOV

BEQ
INC

34
R3

(RO),R4

;IS DCLR CLEAR?

BNE
DEC

24
R2

;HAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN
sHAS THE TOTAL TIME EXPIRED?

BNE ERRO

24
o

(3)

sIF YES , GO TO THE NEXT TEST
;IF NO,COUNT 1 OF 65535 TICKS
;THE WORD CREATED BY THE IMMEDIATE O WILL BE

s THE COUNTER

3IF NO, CHECK THE BIT AGAIN
;#DCLR FAILED TO CLEAR
3

-$MRRY-=ssssssssssssssssssssssssssssssssss

“$Xl-sssssssssssssssssssssssssssss

(8)

jebtddsAsstsbttisssssssts TEST 3 444448808 088088000000080000044

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

;#TEST TO VERIFY THAT BIT “MAINT” CAN
;#BE SET. THEN VERIFY THAT BIT “MAINT” CAN
;#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
;#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;+#CLEARED BY A "DEVICE CLEAR"

(3)

(4)
7

013312
013314

000004
012737

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

013322
013330
013334
013340
013342
013344

012737
013700
012705
010510
011004
020504

(2)

013354

011004

(2)

(2)
(2)

(2)

;:¢

TEST 3

TST3:

SCOPE
Ew'%V"ACROOS.OTSTNH

;10 0

(6)
g:;

(2)
(2)
(2)

SEQ 65

02-JUL-85 16:19 PAGE 83-46
CZDZA DZ11 DEVICE DIAGNOSTICS.

(s)

8661
8662
8663
8664
8665
8666

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

013346
013350
013352
013356

001122

013404
002042
000010

001360

001401
104002
040510

010546
005005

013366
013370

012605
010510

14:

2%:

;LOAD THE NUMBER OF THIS TEST

SSSSSSaSraSSSSSassss

BEQ
ERROR
BIC

MOV

#TST4 ,NEXT
DZCSR,RO
OMAINT RS
RS,(RO)
(RO),R4
RS,.R4

sPOINT TO THE START OF THE NEXT TEST
;:GET BASE ADDRESS
;SET BIT
:SET SET IN DEVICE
;READ THE BIT FROM DEVICE
sWAS BIT SET?

(RO),.R4

;READ DEVICE

1
2
RS,(RO)

BEQ

ERROR

MOV
CLR

104002

e
e
e

as 0000000000040
00 0000000040000 00 000008040000 000000008

MOV
MOV
MOV
MOV
MOV
CcMP

001404

013360
013362
013364

000003

-$X]-sssssssssssssssssssssssssssss

MOV
MOV

1BR IF YES
:#BIT R/W FAILURE
;CLEAR THE BIT.

;BR IF BITS WERE CLEARED.

RS,-(SP)
RS

;:SAVE THE BIT
sSET EXPECTED RESULTS T0 0

(SP)+,RS
RS,(RO)

;RESTORE THE BIT.
;SET THE BIT AGAIN

;#BIT FAILED TO CLEAR

—

e —

CZDZA-I0
CZDZAI.P11

(2)
(2)
(2)

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

013372
013374
013376
013400
013402
013404

MACY11 30A(1052)

02-JUL -85 16:17
104413
011004
001402
005005
104002

DEVICE.CLR
MOV
(RO),R4

(4)

BEQ
CLR
ERROR

3s:

34
RS
2

s ISSUE DEVICE CLEAR
sREAD THE BIT.
:BR _IF BIT CLEARED BY INIT (DEVICE CLEAR)
+SET EXPECTED TO ZERO
+#BIT NOT CLEARED BY DEVICE CLEAR

END

MACRQ

zssssssssssssszssss

END

MACRQ

=ssszssssssssssssss

~SMRRW-=2323s33z3333s3ssssssasssssssasanzs

-$X7-s23ssszssszsssszsssssssssszzszs

00000t dbtbbbtttttstis

TEST

4§

sstttttttsddttttidbdbtbbtbbnts

+#TEST TO VERIFY THAT BIT "MSENAB” CAN
;#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
:+#CLEARED BY A "DEVICE CLEAR”
i

(4)

(7)
(6)
(4)
(4)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(22
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(2)
(3)
(4)
(27
(2)
(2
(2)
(2)
(3)

SEQ 66

02-JUL-85
16:19
PAGE 83-47
CZDZA DZ11 DEVICE DIAGNOSTICS.

;:e

-$XZ-=2233s232223333223szssszss2z22

TEST 4

1808080888480 42802480004 0008040000000

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
001402
005005
104002

000004

013476
002042
000040

001122

TST4:
i

END

001360

#4,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV
MOV
MOV
MOV

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

;POINT TO THE START OF THE NEXT TEST
;GET BASE ADDRESS
;SET BIT
:SET SET IN DEVICE
;+READ THE BIT FROM DEVICE

MACR)

CMP
BEQ

ERROR

18:

BIC
MOV

3%:

==s=2232sazsaszs=z33s

RS.R4
1s

;WAS BIT SET?
;:BR IF YES

RS5,(RO)
(RO),.R4

;CLEAR THE BIT.
;READ DEVICE

BEQ
2%
MOV
RS, -(SP)
CLR
RS
ERROR
2
MOV
(SP)+,RS
MOV
RS,(RO)
DEVICE.CLR
MOV
(RO),R4
BEQ
3
CLR
RS
ERROR
2

2%:

0 000000000kttt bhbbbtbbbns

SCOPE
MOV

;#BIT R/W FAILURE

:BR IF BITS WERE CLEARED.
;SAVE THE BIT
:SET EXPECTED RESULTS TO 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
+#BIT NOT CLEARED BY DEVICE CLEAR

END

MACR)

=ssz=zs=zz333z33333=2

;

END

MACRQ

===2===23z3=z3z33z3333%

‘
,

ihhbbbbbbbbbbbbbbbbbibtts

-‘MRH-IIllll..ll‘..l:l'l’l'lllll’fl’tll.lt
-’xz-'llll.lllflil'll.lll!l]lllll’.

TEST

stssstdsbbsdbdbdbdbbdbbbbhbiis

;#TEST TO VERIFY THAT BIT “SILOEN“” CAN
;#BE SET. THEN VERIFY THAT BIT “SILOEN“” CAN
;#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
:#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;#CLEARED BY A "DEVICE CLEAR"”
:

;:¢

TEST S

-‘xz-a::a:aa:a:ass:.sl::aaaa:lssaa

CZ0ZA-10
CZDZAI.P11
(7
(6)
(4)
(4)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)

MACY11

02-JUL -85

30A(1052)

16:17

02-JUL-85

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.
3 0 8 08 0 4

013476
013500

013506
013514
013520
013524

013526
013530
013532
013534
013536
013540
013542
013544
013546
013550
13552
013554
01355¢é
013560
013562
013564
013566
013570

000004
012737

012737
013700
012705
010510
011004
020504
001401
104002
040510
011004
001404
010546
005005
104002
012605
010510
104413
011004

000005

013570
002042

SEQ 67

PAGE 83-48

001122

0000 0008880084808 0800840808020880040000000000000000400

1S75:
s

END

001360

SCOPE
MOV
O

MACRQ

MOV
MOV
MOV
MOV
MOV

010000

cMP

BEQ
ERROR
BIC

18:

;LOAD THE NUMBER OF THIS TEST

#TST6,NEXT
DZCSR,RO
#SILOEN,RS
RS,(RO)
(RO),R4
RS ,.R4
1s

;POINT TO THE START OF THE NEXT TEST
;GET BASE ADDRESS
;SET BIT
:SET SET IN DEVICE
;READ THE BIT FROM DEVICE

===3szzz3ssszss2za3=s

2
RS,(RO)

MOV

(RO),.R4

BEQ
2%
MOV
RS, -(SP)
CLR
RS
ERROR
2
MOV
(SP)+,RS
MOV
RS,(RO)
DEVICE.CLR

2%:

MOV

001402
005005
104002

05,8TSTNM

(RO),R4

BEQ
CLR
ERROR

3s:

3s
RS
2

;WAS BIT SET?

;:BR IF YES
;#BIT R/MW FAILURE
;CLEAR THE BIT.

;:READ DEVICE

;BR IF BITS WERE CLEARED.
;SAVE THE BIT
;SET EXPECTED RESULTS T0 O
;#BIT FAILED TO CLEAR
sRESTORE THE BIT.
;SET THE BIT AGAIN
;sISSUE DEVICE CLEAR
;READ THE BIT.

;:BR IF BIT CLEARED BY INIT (DEVICE CLEAR)
sSET EXPECTED TO ZERO
;#BIT NOT CLEARED BY DEVICE CLEAR

END

MACRQ

===2=22=2z2233z3=33=3=

END

MACRQ

======zz=zs3zzz:z2333=

:
;

;480880

akdtdattbtttttttd

-‘mn“-..-..I..-.....l”'l"...l’ll'..ll’:
-’xz-'..l...'ll'..l..l'.l.'l....l'

TEST

ststtsbbssbsbbbistsbbdbbsbtsiss

;#TEST TO VERIFY THAT BIT “RIE” CAN
;#BE SET. THEN VERIFY THAT BIT "“RIE” CAN
;#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY

;#VERIFY

THAT

AFTER BEING

SET

;#CLEARED BY A "DEVICE CLEAR"

AGAIN IT

CAN BE

-’xz-l.'....""'.'ll.”'."..l."

;:%

TEST 6

18 0828080480

013570
013572

000004
012737

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

5000 0000000404000 00404000000tk btRbbbbbbbbbibbbibitbd

TSTé:

000006

013662
002042
000100

001122

001360

END

SCOPE
MOV

#6,3TSTNM

MOV
MOV
MOV

#TST7 ,NEXT
;POINT TO THE START OF
DZCSR,RO
:GET BASE ADDRESS
#RIE,RS ;SET BIT

MACR)

MOV

RS5,(RO)

ol 14

RS,R4

MOV

1%:

BEQ
ERROR
BIC

MOV

;LOAD THE NUMBER OF THIS TEST

===2=z2zz2zzzz==z=z333=

;SET SET IN DEVICE

(RO),R4

;READ THE BIT FROM DEVICE

1s
2
R5,(RO)

;BR IF YES
:#BIT R/W FAILURE
;CLEAR THE BIT.

;WAS BIT SET?

(RO),R4

;READ DEVICE

MOV

RS, -(SP)

;SAVE THE BIT

ERROR

BEQ
CLR

THE NEXT TEST

:BR IF BITS WERE CLEARED.
:SET EXPECTED RESULTS TO 0

;#BIT FAILED TO CLEAR

CZDZA-I0
CZDZAI.P11
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(1)
(2)
(3)
(4)
(2)
(2)
(2)
(2)
(2)
(3)
(4)
7
(6)
(4)
(4)
(4)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(23
(2)
(2)
(2)
(2
(2)
(2)
(2)
(2)
(2)
(2)
(2)

013644
013646
013650
013652
013654
013656
013660
013662

MACY11 30A(1052)

02-JUL -85 16:17

SEQ 68

02-JUL-85
16:19 PAGE 83-49
CZDZA DZ11 DEVICE DIAGNOSTICS.

012605
010510
104413
011004

MOV
(SP)+,RS
MOV
RS,(RO)
DEVICE.CLR
MOV
(RO),R4
BEQ
3s
CLR
RS
ERROR
2

2%:

001402

005005
104002

;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
;#BIT NOT CLEARED BY DEVICE CLEAR

END

MACRQ

=2==2=2z3zz=z2==zzzas=s=s

;

END

MACR)

======2zz2zzz2zzszs3=
;i

-SMRRW-===22322323222zszzs3ssssssss23ss=3=2

-$X7-s=2szz2=33zz3szs3sssss=s====22

ittt ddddbdbibbditittttits

TEST

ttttttttbsbsbsbbbbbtbbbbbbbdss

;#TEST TO VERIFY THAT BIT “TIE” CAN
;#BE SET. THEN VERIFY THAT BIT “TIE” CAN
:#BE CLEARED (WRITTEN TO A ZERO). AND FINALLY
;*#VERIFY THAT AFTER BEING SET AGAIN IT CAN BE
;#CLEARED BY A "DEVICE CLEAR"
‘

;:¢
R

013662
013664
013672
013700
013704
013710
013712
013714
013716
013720
013722
013724
013726
013730
013732
013734
013736
013740
013742
013744
013746
013750
013752
013754

000004
012737
012737
013700
012705
010510
011004
020504
001401
104002
040510
011004
001404
010546
005005
104002
012605
010510
104413
011004
001402
005005
104002

000007

001122

013754
002042
040000

001360

1S7T7:
;

-’xz-.'.......'."-..-...-I.I'.’-’

TEST 7

END

T TP

MOV
MOV
MOV

#TST10,NEXT
;POINT TO THE START OF THE NEXT TEST
DZCSR,RO
;GET BASE ADDRESS
#TIE,RS ;SET BIT

MACRO

;LOAD THE NUMBER OF THIS TEST

=====22azz=22=2zz33z3=

MOV

RS,(RO)

cMP

R5,R4

(RO).R4

BEQ
ERROR
BIC
MOV
BEQ
MOV
CLR
ERROR

1s
2
RS,(RO)
(RO).R4
2
RS, -(SP)
RS
2

MOV

RS5,(RO)

ERROR

(SP)+,RS

DEVICE.CLR
MOV
(RO),R4
BEQ
33
CLR
RS

Py P

#7,8$TSTNM

MOV

2%:

SCOPE
MOV

MOV

1s:

;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 TO O
;#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
:+#BIT NOT CLEARED BY DEVICE CLEAR

$:
;

END

MACRQO

======z==z=2=z=2=z==z=33z3=

END

MACRO

======2=zz=zzzz==z=z=3=z=2=

:
3

shhbkbbbbbhbhbhbhbbbhbbbbs

-‘TCR-IIIISIII"IIII'ISllllflalflfllflfll."I'.IIISIC
-’xz-lllIlISSIIIIS.’!IIISII:'ISI.I

TEST

sttt sdbbbbbbbbbbbbbbbbbbbbbbbk

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

-$XZ-2==23=zz23zs=z3333szrs3sz3zz====

CZDZA-I0
CZDZAI.P11

;:+
R

013754
013756

000004
012737

013764
013772
013776
014002
014010
014012

012737
013700
012705
012737
010510
011004
042704
020504
001401
104002
040510
011004
042704
005704

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

000010

001122

014112
002056
000001
014010

001360
001362

TEST 10

TST10:
;

END

18:

177400

2%:

3s:

177400

4s:

001362
;

END

PP T

TIIIIIIIIINIY

#10,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV
MOV
MOV
MOV
MOV
BIC

@TST11,NEXT
DZTCR,RO
#TCRO,RS
#1$,L0CK
RS,(RO)
(RO),R4
#tC<377>,R4

;POINT TO THE START OF THE NEXT TEST
+SET DEVICE ADDRESS
:SET EXPECTED RESULTS
;SET FOR SW09
;SET THE BIT
;READ THE BIT FROM THE DEVICE
;CLEAR HIGH BYTE

BEQ
ERROR

24
2

;BR IF YES
;#BIT FAILED TO SET.

MACRQ

BIC

177400

Py P

SCOPE
MOV

CMP

001404
010546
005005

104002
012605
010510
104413
011004
042704
005704
001404
010546
005005
104002
012605
104401
106305
001341
005037

SEQ 69

02-JUL-85
16:19
PAGE 83-50
CZDZA DZ11 DEVICE DIAGNOSTICS.

==sz=z=2z=zzzz3z=zz==2s3=

R5,.R4

;WAS BIT OK?

RS5,(RO)

;CLEAR THE BIT

MOV
(RO),R4
BIC
#tC<377> ,R4
ST
R4
BEQ
3s
MOV
RS,-(SP)
CLR
RS
ERROR
2
MOV
(SP)+,RS
MOV
R5,(RO)
DEVICE.CLR
MOV
(RO),R4
BIC
#tC<377>,R4
TST
R4
BEQ
43
MOV
RS, -(SP)
CLR
RS
ERROR
2
MOV
(SP)+,RS
SCoP1
ASLB
RS
BNE
1
CLR
LOCK
0

HACRO

;READ THE REGISTER
;CLEAR HIGH BYTE
;:BITS CLEAR?
;:BR IF YES
:SAVE GOOD RESULTS
:SET EXPECTED T0 0

;#*REPORT BIT NOT CLEAR
;RESTORE RS
;SET THE BIT AGAIN.

:+ISSUE DEVICE CLEAR
;READ THE REGISTER
;CLEAR HIGH BYTE
;BITS CLEAR?
;:BR IF YES
:SAVE GOOD RESULTS
:SET EXPECTED T0 O
:*REPORT BIT NOT CLEAR
;RESTORE RS

;LOCK ON BIT? SET SW09=1
;CHANGE TO NEXT BIT

;CONTINUE TESTING
;MAKE SURE TIGHT LOOP IS CLEANED UP

ZZZSSSSSSISZISITSTTSITIS

Q®

f\flf\’\fiflflflflflfi’\f\fififl@f\fiflflflflf\flfif\flfififlflflflflflflfiflflflfifififififlflflflfifl ~
o 0 O O CN U ON QN D B 1o o et bt () OD 15 10 (ot (ot ot (o ot ot i ot ot (o (e o B b o o b b ot ot o ot o o o o ot o et et pe () O w
Nl NI NI NI NI NININININIOININININION NUUVVVUVVVUVVUUVUVVVVVVUV
N NI NI NININIININININIING ~

(3)
(6)
(S)

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

;

-$TCR-====2=22=s3=2=z=2z2232z=zz3=3ss=sszszzs=s==========

-$XZ-s=3=2333233z3z3333z33z23333333=

shbhbbhhbbhbbbbibbbhbbhd

TEST

sssdsbbshdsbbbdbbbbbbhbbhbhbihs

:#THIS TESTS THAT ALL OF THE FOLLOWING
;#BITS CAN BE: SET, CLEARED, CLEARED BY “RESET INSTR *NOT+ DEVICE CLEAR *
:#BITS TESTED ARE:
;# DTRO, DTR1, DTR2, DTR3, DTR4, DTRS, DTR6, DTR?7
;#THIS TEST IS NOT DONE IF HOgULE IS 20MA VERSION
:

s:e
L

014112
014114
014122
014130
014134

000004
012737

012737
013700
012705

000011

014274
002056
000400

TST11:
001122
;

001360

-$X7-==s==2=z3z333zzzs3T=3IITIIII=T

TEST 11

END

SCOPE
MOV
O

MOV
MOV
MOV

MACRO

#11,8TSTNM

PP TR TS TR TSI

ITITTITITITIIIIY]Y

;LOAD THE NUMBER OF THIS TEST

======zzzz=zz=zs3a3z=z==

#TST12 ,NEXT
DZTCR,RO
#DTRO,RS

;POINT TO THE START OF THE NEXT TEST
;SET DEVICE ADDRESS
:SET EXPECTED RESULTS

CZDZA-I0
CZDZAI.P11

(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)

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

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

012737

105737
100001
104400
010510
011004
105004
020504
001401
104002
040510
011004
105004
005704
001404

014156
001414

001362

1%:

2%:

‘

3s:

4
177400
000000

S$:

001362

;

MOV

#1$,L0CK

MOV
CLR

RS5,-(SP)
RS

TST8
EIAFLG
BPL
1$
ADVANCE
MOV
RS5,(RO)
MOV
(RO),.R4
CLRB
R4
CMP
RS5,.R4
BEQ
24
ERROR
2
BIC
RS5,(RO)
MOV
(RO),R4
CLRB
R4
TST
R4
BEQ
3

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

END

ERROR
2
MOV
(SP)+,RS
MOV
RS,(RO)
DEVICE.CLR
MOV
(RO),R4
CLRB
R4
BIT
R5,(RO)
BNE
4%
,
ERROR
2
SCOP1
ASL
RS
BNE
1$
MOV
#177400,(RO)
CLR
RS
INC
#0
BNE
5$
RESET
MOV
(RO),R4
CLRB
R4
TST
R4
BEQ
.+4
ERROR
2
CLR
LOCK
0

MACR)

6683

(3)

;

’"RR-ll'.l.ll.8"..."!888.3...!II'IIIIIS.!

~$XZ-====2=zzz=zzzs=s=3=zz333z=zz==z=

TEST

sttsbbdbbhbbhbbhhbbbhhbhbhbbbs

;#THIS TEST PERFORMS RESET TESTING &
s#TESTING OF WRITE ONLY OR READ ONLY BIT
i# TEST BITS "RDONE, BIT11, BIT10, BIT9, BIT8, BIT2, BIT1
i&
BITO, SILOAL” ARE READ ONLY AND THAT TRDY IS

gi;

ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET.

1 &

(2)

(3)

(6)

(3)

:SAVE GOOD RESULTS
+SET EXPECTED TO O
:*#REPORT BIT NOT CLEAR
;sRESTORE RS
:SET THE BIT AGAIN.
;ISSUE DEVICE CLEAR
;READ THE REGISTER
;CLEAR LOW BYTE
;WAS BIT CLEARED BY DEVICE.CLR?
:BR IF NO (IT SHOULDN'T BE CLEAR)
:#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
;MAKE SURE TIGHT LOOP IS CLEANED uP

kbbb bbdhhhhbdhbhhhhkht

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

(3)

:SET FOR SW09

;20MA OR EIA
;BR IF EIA
;EXIT TEST
:SET THE BIT
;READ THE BIT FROM THE DEVICE
;CLEAR LOW BYTE
;WAS BIT OK?
;:BR IF YES
+#BIT FAILED TO SET.
;CLEAR THE BIT
;READ THE REGISTER
;CLEAR LOW BYTE
;:BITS CLEAR?
;BR IF YES

======z==zs=s===z=z=z=z=

(2)

(5)

SEQ 70

02-JUL-85
16:19 PAGE 83-51
CZDZA DZ11 DEVICE DIAGNOSTICS.

014274

014276

000004

012737

TEST 12

Rttt

000012

001122

TST12:
;

END

SCOPE

MOV
0

MACRQ

b L T T T T B

#12,$TSTNM

-$X7-====zzzzzzs==zzz3zzzz=zszzs==3

o A

A O O O O 0 O O A A A A A A A A A A A AR A APy

;LOAD THE NUMBER OF THIS TEST

======s======zzz=zzz=z==

PNPNINNIN ~

ngfi F\fififlfiflflflflflflflfiflflfiflflflfl
0 Bt e et fh et et et e e e et b et s e
o s s s e et et e %)
) te VUVVVVUVUVUUUUUVUVVVUVVVV

CZDZA-I0
CZDZAI.P11

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

014304
014312
014316
014320

012737
013700
005005
012710

014324
014326
014330

011004
001401
104002
012710
011004
001401
104002
012705
005077
052777
052710
052705
005002
011004
020504
001404
104414
005202
001372
104002

014332
014336
014340
014342
014344
014350
014354
014362
014366
014372
014374
014376
014400
014402
014404
014406
014410

014412

014412
002042

001360

027607

100000

1s:

100000
165476
000001
000040
000040

2%:

(RO),R4
1$

#TRDY, (RO)
(RO),R4
2%

2
#TRDY,RS

8DZLPR
#TCRO,8DZTCR
#MSENAB, (RO)
#MSENAB, RS
R2
(RO),R4
R5,R4
4

CLR
MOV
CMP
BEQ
DELAY
INC
BNE

3s:

"
;

R2
3

ERROR

$:
END

;WRITE THE BITS

;READ BACK THE BITS
:BR IF NONE ARE SET.

BIS
BIS

MACR)

+*BITS WERE SET.

sATTEMPT TO WRITE TRDY
;:READ TRDY
;BR IF NOT SET

i
:SET EXPECTED BIT
;LOAD LINE O
:SET TCR BIT

H
:SET SCAN ENABLE

;SET COUNTER TO ZERO
;READ THE REGISTER
;:BIT SET?
;:BR IF YES
;STALL TIME
;UPDATE COUNTER
:BR IF COUNTER NOT DONE.

;*#TRDY NOT SET!
=======s=zzz3zz=z=z=z=
:

ihkbbbbbbbbhbbhhbbbbbhtbs

-‘xz-.--.-l..'.-....l.'l’..'.’.’-.
TEST

sbtbbbddbbbbhbbbbbbbbbbbbbbbbss

;#THIS TEST PERFORMS RESET TESTING AND
;#TESTING OF READ ONLY AND WRITE ONLY BITS
:# IN REGISTER DZCSR

&
&

8695
*8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
87C6

MOV
BEQ

ERROR
MOV
CLR
BIS

165474

;#VERIFY 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 gPERATIONS ON THE CSR

8691
8692
8693

8694

OTST13 ,NEXT
;POINT TO THE START OF THE NEXT TEST
DZCSR,RO
;SET ADDRESS TO RO
RS
:SET EXPECTED TO O
¢RDONE+BIT11+BIT10+BIT9+BIT8+BIT2+BIT1+BITO+SILOAL,(RO)

MOV
MOV
BEQ

8687
3688
8689

(2)
(2)
(2)

MOV
MOV
CLR
MOV

ERROR

8685

(5)
(4)

SEQ 71

02-JUL-85
16:19
PAGE 83-52
CZDZA DZ11 DEVICE DIAGNOSTICS.

;:%
014412
014414

000004
012737
012737
104413
013700
012710
012705
011004
020405
001401
104002
105010
105005
011004
020405
001401

-$X7-===2=z3z3zzzsssssz=2z=zzzzzzzz====

et
L L L T
T
Y
t
P T
Y T I
IITTTTrTT
t
ITIYYYYTYTY

000013

001122

TST13:
:

014422
014430
014432
014436
014442
014446
014450
014452
014454
014456
014460
014462
014464
014466

TEST 13

014542

001364,

END

SCOPE
MOV
O

MACRQ

#13,8TSTNM

;:LOAD THE NUMBER OF THIS TEST

=====z=z=z=zzss==z====z=z=2=

MOV
#TST14 ,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
#TIE!SILOEN!RIE!MS
!MAINT
ENAB
,RS ;MAKE EXPECTED
MOV
(RO),R4
sACTUAL
CMP
R4 ,RS
;CMP EXPECTED VS ACTUAL

002042
177757
050150

BEQ

1s:

ERROR
CLRB
CLRB
MOV
CMP

BEQ

2
(RO)
RS
(RO),R4
R4 ,R5

i YES

: *NO
;CLEAR LOWER BYTE OF CSR
:SET EXPECTED
:READ CSR BITS
;COMPARE ACTUAL TO EXPECTED

;BRANCH IF SAME

CZDZA-I0
CZDZAI.P11
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

014470
014472
014476
014502

104002
012710
105077
012705

014506
014510
014512
014514

011004
020405
001401
104002

014516
014522
014524
014530
014532
014534
014536
014540
014542

012710
005005
005227
001375
000005
011004
001401

177757
165342
000150

ERROR
MOV
CLRB
MOV

3s:

177757

4s:

000000

5$:

104002

MOV
CMP
BEQ
ERROR

MOV
CLR
INC
BNE
RESET
MOV
BEQ

ERROR

2
;OTHERWISE PRINT ERROR
#tC<DCLR>,(RO)
;RESET CSR BITS
SHDZCSR
;CLEAR HIGH BYTE OF CSR
ORIE !MSENAB!MAINT,RS
:SET RS TO EXPECTED RESULTS
(RO),R4
;READ CSR
R4 ,RS
sACTUAL = EXPECTED?
43
;BRANCH IF SAME
2
;OTHERWISE PRINTOUT ERROR
#+C<DCLR>,(RO)
;RESET CSR BITS
RS
:SET RS TO EXPECTED RESULTS
#0
;DELAY TIMER FOR
54
;ACT-11 COMPATIBILITY
;ISSUE BUS INIT
(RO),R4
;READ CSR REGISTER
24
;BRANCH IF CSR IS CLEAR
2
;IF NOT PRINT ERROR
:

(2)

(3)

ihdbbhbbbbdbbnbbdtdbbbbis

(1)
(1)
(1)

(3)

;:+

(6)

(5)
(3)

014542
014544

000004
(12737

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

014552
014560
014562
014566
014570
014576
014600
014604
014606
014610
014612
014614
014616
014622
014624
014626
014630
014632

012737
104413
013700
011005
012777
011004
042705
020405
001401
104002
010403
005103
010377
011004
020405
001401
104002

(1)

~-$MRUD-====2=2=23zzzzzszsssss=s2=2===

-‘xz------s-a-----l.----aaan------

TEST

sssssbsdsdtbdbsbbbbbtbbbihbtss

:*#THIS TEST PERFORMS RESET TESTING AND
;#TESTING OF READ ONLY REGISTER DZRBUF
;*AND TESTING OF WRITE ONLY REGISTER DZLPR

(2)

(3)

SEQ 72

02-JUL-85
16:19 PAGE 83-53
CZDZA DZ11 DEVICE DIAGNOSTICS.

000014

001122

014632

001360

TEST 14

LI R

;

END

165254

104000

1¢:
165230

2%:
s

SCOPE
MOV
0

"ACRO

#14,$TSTNM

P YT TP T TTTTTTTITIITIIIIIIY

;LOAD THE NUMBER OF THIS TEST

ZTssssSEsSsSSSSsISSS=s

MOV
#TST1S ,NEXT
;POINT TO THE START OF THE NEXT TEST
DEVICE.CLR
;CLEAR DZ11
MOV
DZRBUF ,RO
:SET UP FOR ERROR MESSAGE
MOV
(RO),RS
:SET EXPECTED
MOV
#-1,8DZLPR
;TRY TO WRITE ALL 1'S
MOV
(RO),R4
:ACTUAL
BIC
#DVALID!BIT11,RS ;DITTO
CMP
R4 ,RS
;:CMP ACTUAL VS EXPECTED
BEQ
1$
:IF YES,GO CONTINUE PROCESSING
ERROR
2
:*ERROR- BIT PATTERN NOT CORRECT
MOV
R4,R3
;:GET A COPY OF THE ACTUAL BIT PATTERN
COM
R3
;GET THE LOGICAL INVERSE OF THE BIT PATTERN
MOV
R3,8DZLPR
;TRY TO WRITE
MOV
(RO),R4
sACTUAL
CcMP
R4 ,RS
;CMP ACTUAL VS EXPECTED
BEQ
2$
:IF YES, GET OUT OF THIS TEST
ERROR
2
: #NO

002046
177777

TST14:

~$XZ-s=s=ssz=223222222223323sz3zss=

END

MACRQ

====z=3z==zz333z=z3=3=

8726

~SMRWD-s===s==z=233=2==23=3z=z3z3333=

(2)

-$XZ-=22z23zzz3z3z3szz=z33ssss3ssss==

(2)

shdkkhbhhbdkhkhhhhbhbbhhbk

(1)
(1)

E%;

TEST

sssstbdbdbbbbbbdbbdbbhhhbhbbhs

;#THIS TEST PERFORMS RESET TESTING AND
;*TESTING OF READ ONLY REGISTER DZMSR

;*#AND TESTING OF WRITE ONLY RgGISTER DZTDR
'

-’x

-« SSSSSSISTSZITITTTISTTITTITTITITIITTZIZ

CZDZA-I0
CZDZAI.P11

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

N = i s s s ot ot et e o et Pt b et e
NN
~N UVVVUVUVVVV\JVUVVUVV

]

-~ lalalalalalalal
¥ o Y Talalealelealalal]

s:¢
014632
014634

000004
012737

012737
104413
013700
011005
012777
011004
020405
001401
104002
010403
005103
010377
011004
020405
001401
104002

TEST 1S

Rt
e
L L T T
t
L L L LTI
t
YT

000015

TST15:

001122

014642
014650
014652
014656
014660
014666
014670
014672
014674
014676
014700
014702
014706
014710
014712
014714
014716

014716

END

001360

MACR)

#15,8TSTNM

;LOAD THE NUMBER OF THIS TEST

====z=ss=ss=ssss=zz2=2==2=

MOV
#TST16 ,NEXT
DEVICE.CLR
MOV
DZMSR, RO
MOV
(RO),RS
MOV
#-1,8DZTDOR
MOV
(RO),R4

002062

177777

SCOPE
MOV

165200

CcMP

1s:

1s
2

MOV
COM
MOV
MOV
CMP
BEQ
ERROR

165160

2%:

R4 ,RS

BEQ
ERROR

END

R4,R3
R3
R3,30ZTDR
(RO),R4
R4 ,R5
2%
2

MACRO

;CMP ACTUAL VS EXPECTED

======s==s==z=zzz===

;

(2)

ihbkdbbhbhkhbhhhbbhhhhhbhd

8730

-$XZ-===2322z3=zssss==2s=2=2zz=zz=z=s===
TEST

shdshbbbbbhhbbbbhbhhbbbbbhhhdd

+#VERIFY THAT IF WE ARE IN "STAGGERED” MODE

8731
8732
8733
8734
8735

i#THAT SETTING

“DTR” FOR A LINE WILL

i#BRING UP "RING” AND “CARRIER” FOR THE
+#ASSOCIATED LINE IN WHICH WE ARE STAGGERED!
i# LINEO DTR= LINE1 RING AND CARRIER
i# LINE1 DTR= LINEO RING AND CARRIER
i* LINE2 DTR= LINE3 RING AND CARRIER
i# LINE3 DTR= L12$c4 RING AND CARRIER

8736

8737
8738
8739
8740
8741

8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752

;POINT TO THE START OF THE NEXT TEST
;CLEAR D211
;SET UP FOR ERROR MESSAGE
:SET EXPECTED
:TRY TO WRITE ALL 1'S
sACTUAL

+IF YES,GO CONTINUE PROCESSING
:*ERROR- BIT PATTERN NOT CORRECT
:GET A COPY OF THE ACTUAL BIT PATTERN
sGET THE LOGICAL INVERSE OF THE BIT PATTERN
:TRY TO WRITE
sACTUAL
;CMP ACTUAL VS EXPECTED
+IF YES, GET OUT OF THIS TEST
i #NO

8728
8729

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

SEQ 73

02-JUL-85
16:19
PAGE 83-54
CZDZA DZ11 DEVICE DIAGNOSTICS.

coe

;:%

TEST 16

014716
014720

000004
012737

000016

001122

014726
014734
014742
014746
014750
014752
014756
014760
014762
014766
014772
014774
015002

012737
012737
105737
100001
104400
013700
104413
005003
012702
005737
100405
013737
000177

015112
015006
001414

END

MACR)

TST8B

A A

#16, $TSTNM

;LOAD THE NUMBER OF THIS TEST

#TST17 ,NEXT
#1$,L0CK

;POINT TO THE START OF THE NEXT TEST
;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED

===sszsss=z===zz==z=3=z=z=

EIAFLG

;EIA OR 20MA?

BPL
10
ADVANCE
MOV
DZMSR,RO
DEVICE.CLR

;BR IF EIA
;EXIT TEST
:SET REGISTER
;INIT DZ11

MOV
ST
BMI
MOV
JMP

;SET POINTER
:ARE WE IN STAGGERED MODE?
;YES WE ARE!
;LEAVE THIS TEST! NOT STAGGERED
SEXIT

CLR

001126

T T

SCOPE
MOV
MOV
MOV

10¢:

000001
001370
001360
164120

001360
001362

002062

TST16:
i

~$XZ-====zzzzzz==ssss333z2zzz3z3===2

#1,R2
MODE
1$
NEXT, $LPADR
9$LPADR

:+ZERO LINE NUMBER

CZDZA-I0
CZDZAI.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
8777
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

MACY11l 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

02-JUL-85

001364

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.
1$:

BITB
BNE
INC
ASLB
BCC

2%:

ADVANCE
MOV
BIT
BEQ
ASR
BR
ASL
CLR
BISB
SWAB
BISB
BISB
DELAY
MOV

3$:

000001

4s:

S$:

165002

CcMP

BEQ

164764

6%:

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

8796
8797
8798
8799
8800
88C1

R2,R4
#B8ITO,R3
4%
R4
5%
R4
RS
R4 ,RS5
RS
R4 ,RS
R2,3HDZTCR
(RO),R4

R5,R4

;TEST THIS LINE?
:YES
;LINE &
;GET NEXT LINE
;KEEP TESTING
;ADVANCE THIS TEST
;SAVE BINARY BIT FOR LINE #
;GET STAGGERED COMPANION LINE
;BR IF LINE EVEN
;sADJUST LINE
:

sADJUST LINE
;SET EXPECTED
;
;
H

;SET DTR
;CABLE DELAY
;READ MSR REGISTER
;0K?

2
R2,8HDZTCR

DELAY
MOV
BEQ
CLR
ERROR
SCOP1
BR

74:

R2,LINE
3
R3
R2
1

ERROR
BICB

(RO),R4
7%
RS
2

; YES
;#ERROR IN RING OR CARRIER
;CLEAR DTR
;CABLE DELAY
;READ MSR
;BR IF THEY CLEARED
;SET EXPECTED TO O
;#BITS NOT CLEARED
;LOCK ON SIGNAL?
;CONTINUE TEST
;

(2)
8785

8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
(3)
(4)

SEQ 74

PAGE 83-55

ihkhhh
kbbb bbbhhhhbhhids
khh

-$XZ-==s=2ss3=22323z3=z=zz2z3==33=3==3

TEST

sktbtbbbbbbbdbbbbhbbhbbbhhhbhis

;#TEST TO VERIFY THAT IF IN "EXTERNAL"
;#MODE; SETTING DTR FOR SELECTED LINES

;#WILL BRING UP

“CARRIER”

;#FOR THAT SAME LINE.

AND

NOTE:

"RING”

IF YOU HAVE

;#SELECTED MODE AS “EXTERNAL”; THE H325 TEST CONNECTER
;#*MUST BE USED ON ALL SPECIFIED LINES.
;#LINES MAY BE SPECIFIED BY SWR03=1
;#AND SWRO0=1 AT START TIME OR ALTERING
;#STATUS MAP.
;

;:%

TEST 17

015112
015114
015122
015130
015136
015142
015144
015146
015152
015154

000004
012737

012737
012737
105737
100401
104400
105737
100774
013700

000017
015250
015164
001370

001414

002062

001122

LI R

TST17:
;

001360
001362

1$:
2%:

END

-$XZ-==22zz3=z3333zzz3szsszssszssss=z

TITITTYTITITITIY]

SCOPE
MOV

#17,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV

#TST20,NEXT
#3$,L0CK

;POINT TO THE START OF THE NEXT TEST
+USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED
;EXTERNAL?
;:BR IF YES
;EXIT TEST
;YOU BETTER BE IN
;EIA MODE FOR THIS TEST.
:SET REGISTER

MACRO

======z==z==zzs3===zs=z==

TST8B

MODE

MOV

DZMSR,RO

BMI
24
ADVANCE
TSTB
EIAFLG
BMI
1s

CZDZA-I0
CZDZA’.

8F 07

”f\'

804
8805
8806
8807
8808
8809
8810
8811

8812

8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827

415160
15164
015170
015172
015174
Ci5176
C15200
(13202
015204
015206
015210
015214
015216
015220
015222
015224
015226
015232
015234
015236
015240
015242
015244
015246

MACY11l 30A(1052)

02-JUL -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

000001
001364

MOV
BITB
BNE

38:
4s:

ASLB

8CC
ADVANCE
CLR
RS
B8ISB
R2,R5
SWAB
RS
BISB
R2,RS
BISB
R2,8HDZTCR
DELAY
MOV
(RO),R4
RS,R4
CcMP
BEQ
6%
ERROR
2
BICB
R2,8HDZTCR
DELAY
MOV
(RO),R4
BEQ
7%
CLR
RS
ERROR
2
SCoP1
BR
4%

5¢:

164644

164626

®1,R2
R2,LINE
S
R2
3s

6%:

74:

flf\fififlf\f\flfififlflf\flfif\flfiflf\flf\fififi’\flfif\

VVVUVUVUV\JVUUVVVUUVVUUVUVVUVV

+SET LINE POINTER
;LINE SELECTED?
:BR IF YES
sNEXT LINE
sCONTINUVE TEST
sADVANCE THIS TEST
:SET EXPECTED
;
i

:SET DTR
:CABLE 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?
;CONTINUVE TEST
i

(2)
lalatatiatiatatatatiaioiatiatiatatatiatat
s 1L L L
L T o ol
TM

SEQ 75

02-JUL-85
16:19
PAGE 83-56
CZDZA DZ11 DEVICE DIAGNOSTICS.

;
ihbkdbbbbbbbdhbbhhbbbbbit

~STLINE-===3z2ss=ss2=22zz3zz3ssssssszzzzzz
s
-$XZ-=2=2z233zzz3zss=2s23=z33333z3=2=2

TEST

stssbbhbbdbhbrbbbdbdbbbbbbbsdtd

:# THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE
i# IS READY TO BE LOADED, AND THAT THE LINE SPECI-

;# FIED IN BITS 8-10 OF DZCSR CORRESPOND

;% TO THE LINE SELECTED IN DZTCR
:

015250
015252

000004
012737
012737
104413
013700
012705
005037
012702
130237
001420
050277
052710
005004
032710
001004
104414
005204
001372
104003
011004

-$XZ-3sz2zzzz=zs2s23z3zszss=ss=sszz22

R et
LT T L T T T
t
T
Lt
TI

000020

001122

TST20:
i

015260
015266
015270
015274
015300
015304
015310
015314
015316
015322
015326
015330
015334
015336
015340
015342
015344
015346

TEST 20

015374

002042
100040
001372
000001
001364

001360

END

SCOPE
MOV
O

MACR)

#20, $TSTNM

iLOAD THE NUMBER OF THIS TEST

=====z=zs=z==s=s=2=z==2z33=

MOV
#TST21 ,NEXT
;POINT TO THE START OF THE NEXT TEST
DEVICE.CLR
:ISSUE A "DEVICE CLEAR” (RESET)
MOV
DZCSR,
RO
;SET POINTER
MOV
®MSEN
TRDY
AB!
,RS :START THE EXPECTED LINE NUMBER AT 0

1$:

164534
000040

2%:

100000

3s:

4 :

CLR
MOV
BITB
BEQ
BIS
BIS
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
MOV

SAVLIN
#1,R2
R2,LINE
54
R2,8DZTCR
#MSENAB, (RO)
R4
#TRDY, (RO)
43

R4
3
3
(RO).R4

;SET UP FOR ERROR PRINTOUTS
;USING 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?

;:BR IF YES
;DELAY
; COUNTER

iBR IF <>0!

;#TX NOT READY!
;GET THE LINE POINTED TO BY THE SCANNER

NN NINININININING ~

e et et s et s et s s —

PNPNPNPNININININPN ~

CZDZA-I0
CZDZAI.P11

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

015350
015352
015354
015356
015362
015364
015370
015372,
015374

020405
001401
104002
062705
104413
005237
106302
103346

SEQ 76

02-JUL-85
16:19
PAGE 83-57
CZDZA DZ11 DEVICE DIAGNOSTICS.

000400

CMP
BEQ
ERROR
ADD

R4 ,RS
1
2
#400,R5
DEVICE.CLR
INC
SAVLIN
ASL3
R2
BCC
1

S$:

001372
o
;

END

MACR)

8828

+IS THE LINE NUMBER WHAT IT SHOULD BE?
sIF YES,GO WORK ON THE NEXT LINE
:#LINE NUMBER DID NOT MATCH TCR BIT
;POINT TO THE NEXT EXPECTED LINE
:ISSUE A "DEVICE CLEAR” (RESET)
sADJUST FOR NEXT LINE
;POINT TO THE NEXT LINE.ARE ALL LINES TESTED?
:IF NOT, GO DO THE NEXT LINE

====ssss=2=s3zzsss==
;

ikbhbb bbb bbbhbbibbtiitis

-$XZ-223zsssss2222322zsssssssssszs

TEST

stssststsbbtsbtbsdttttdbsstdas

;#TEST TO TRANSMIT ONE CHAR AND
;#*RECEIVE ONE CHAR ON ONE LINE
;#AT A TIME. THE CHAR IS “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.
+*USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP
;#*WHICH TRANSMITS A STEADY ?TgEAH OF CHARACTERS.
i

;:e

015374
015376

000004
012737
012737
012737

“$XZl-=222323z323333s3s3s22zszssz2s

] ;““t““tt‘t‘““““t‘ttt".“t“““““"

000021

001122

015732
015710

tb.““‘t.““.“‘

TST21:
SCOPE
I
‘

015404
015412

TEST 21

iLOAD THE NUMBER OF THIS TEST

ESSSSTTTSSTTTIITITISTSTS

001360
001362

MOV
MOV

#TST22 ,NEXT
€164 ,LOCK

;POINT TO THE START OF THE NEXT TEST
:2E§NEUES ACDRESS IF A TIGHT SCOPE LOOP IS SELECTED

@
el atatlalelealea)
@~ lalalalal
P o s s e Pt et ps s pa PO T
[« X NI NI NI NINININININININD

8841
8842

8843
8844
8845

8846
8847
8848

8849
8850
8851
8852
8853

015420

104417
;

015422
015426
015432
015436
015440
015444
015446
015450
015452

013701
012702
030237
001402
010177
005201
106302
103370

005037

001366
000001
001364

012702
052777
030237
001462
010277
032777
001401
104020
005005
032777
001004
104414
105205
001371

END

164406
2%:
001372

000001
000040
001364

164352

3s:

164354
000200

164332

4s:

100000

164316

5%:
63:

DCLASM
O

HACRO

MOV
MOV
BIT
BEQ
MOV
INC
ASLB
BCC

1%:

015456
015462
015470
015474
015476
015502
015510
015512
015514
015516
015524
015526
015530
015532

END

MACR)

MOV
BIS
BIT
BEQ
MOV
BIT
BEQ
ERROR
CLR
BIT
BNE
DELAY
INCB
BNE

SISISINISISITSS

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

SE3ISTITTIxSITITITITISS

PAR,R1
#1,R2
R2,LINE
24
R1,3DZLPR
R1
R2
1

CLR

~232332IITITIIIITISITIITIIT

-SMRESET-2=2s3=333ssssssz3sszasssssszas

SAVLIN

;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

==s=s=szsssssassssas

#1,R2
OMSENAB,8DZCSR
R2,LINE
144
R2,8DZTCR
®RDONE ,8DZCSR
S$
20
RS
#TRDY,8DZCSR
74

RS
6$

;LINE POINTER
;START SCANNER
;VALID LINE ?
iNO SET UP NEXT LINE
:SET TCR BIT
:IS REC DONE = 0 ?
:IF YES, ALLOW TIME FOR TRDY TO SET
:#REC DONE SHOULD = 0

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL -85 16:17

015534
015536
015544

104003
112777
013705

015550
015554

105737
001406

000252
001372

02-JUL-85

16:19

SEQ 77

PAGE 83-58

CZDZA DZ11 DEVICE DIAGNOSTICS.

164322

ERROR

78:

MOVB
MOV

+#TRDY FAILED TO SET!

#252,80ZTDR
SAVLIN,RS

:LOAD CHARACTER
lflhngEéPECTED LINE ¢

et (et i et e

et et e

NININININININININON

S P

lalalaleal
el el e ta e
a

8887
8888
8889
8890
8891
8892

8893
8894
8395
8896

(2)

001371

TST8

MODE -1

BEQ

10¢

-3

2323

SSSS SIS SIISTTIISISTISSSSSS

+IS THIS TEST IN STAGGERED MODE?

:IF NOT, SKIP STAGGERED SETUP

;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
001371
104004
017704
020405
001401
104006
104401
040277
005237
013700
006300
106302
103302
005003
104414
105203
001375
032777
001401
104020
104400

ASR

BCS
SEC

8s:
94:
;

10¢:

000252
100000

000200

164226

164214

11¢:

12%:

13s:

164210
001372
001372

145

15%:

17¢:
000200

164140

18%:

END

BR
CLC
ROL
0

CcMP

;GET THE LAST BIT INTO THE CARRY BIT

+SKIP THE CLEARING
;CLEAR THE CARRY BIT (INVERSION OF LINE PARITY)
:GET THE NEW BIT BACK INTO RS

8¢

MACR)

SWAB
BISB
BIS
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
MOV

:IF IT IS SET, GO CLEAR IT
sIF IT IS CLEAR SET IT HERE

===szz3zsssssssssss

RS
#252,RS
#DVALID,RS
R3
®RDONE ,8DZCSR
12%
R3
11
4
8DZRBUF ,R4

;MOVE THE LINE NUMBER TO THE UPPER BYTE
;ADD CHARACTER
;ADD DATA VALID

s+*RDONE FAILED TO SET!
:LOAD THE VALUE ACTUALLY RECEIVED

R4 ,RS

:COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME?

BIC

R2,8DZTCR

;CLEAR TCR BIT FOR THAT LINE.

MOV
ASL
ASLB
BCC
CLR
DELAY
INCB
BNE
BIT
BEQ
ERROR
ADVANCE

SAVLIN,RO
RO
R2
34
R3

+SET UP CHARACTER GFFSET
+MAKE THE OFFSET A POWER OF TWO
;SHIFT THE LINE POINTER. ARE WE ALL DONE?
:IF NO, GO AROUND AGAIN FOR NEXT LINE
:THIS CODE HAS BEEN INSERTED
:TO DETECT A PROBLEM FOUND IN FAULT
;INSERTION. IF AN ERROR OCCURS MORE
: THAN ONE WORD WAS RECIEVED ON
;LINE 7.

BEQ
ERROR

SCoP1
INC

13
6

SAVLIN

R3
17¢
ORDONE ,8DZCSR
18
20

+IF YES, GO DO THE NEXT LINE
:#NO DATA/CONTENTS DID NOT COMPARE

;CHECK TO SEE IF SWITCH NINE IS SET
+INC EXPECTED LINE

;GO TO NEXT TEST

;sTIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY
015710
015716
015720
015726
015730

032777
001774
112777
104401
000744

100000

164124

000252

164140

16%:

BIT
BEQ

MOvVB

SCoP1
BR

4TRDY,8DZCSR
164

;IS TRANSMITTER READY?
:IF NOT, WAIT FOR IT

144

;LOOP AGIN IF SW09=1
;OTHERWISE, GO PICK UP THE TEST NORMALLY

#252,80ZTDR

:L.0AD THE CHARACTER

;

158008888000 0000008000008

-$XZ-=232333333s3333333ssssssnsnss

TEST

444804000800 00000bb0bbbbbbbits

CZDZA-I0
CZDZAI P11

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

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)
s#(ONE LINE AT A TIME
BASED UPON VALID LINES)
+#THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED
‘

;:+

TEST 22

1088888884488

015732
015734

000004
012737

000022

001122

015742
015750

012737
012737

016260
016064

001360
001362

015756

104417

015760
015764
015770
015774
15776

001366
000001
001364

016010

013701
012702
030237
001402
010177
005201
106302
103370
005037

016014
016020
016022
016026
016030
016032
016040
016044
016052
016056
016060
016064
016072
016074
016076
016100
016106
016110
016112
016114
016116
016120
016126

012700
005020
022700
001374
005000
013737
012702
052777
030237
001465
010277
032777
001401
104020
005005
032777
001004
104414
105205
001371
104003
116077
013705

001422

001422
001372

016132
016136

105737

001371

848888888888488 888884284088 0848008 0848008000000 00404048

TST22:
;

SCOPE

MOV

END

MACR)

MOV
MOV

922, $TSTNM

;LOAD THE NUMBER OF THIS TEST

#TST23 ,NEXT
#4%,L0CK

;POINT TO THE START OF THE NEXT TEST
;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED

==sssssssssssssssss

iSLINEUP -2ssssssssssssssssssssssssssssasss
i

N NINININININININIO
N

28~ 5 s s s e e s s b PO
a8C

lalalalalalalealatatal

(2)

016002
016004
016006

24:

001372

;

001462

002046
000001
000040
001364

END

1%:

164050

001400

163770

3%:

163772
000200

163750

4s:

100000

163734

S$:
64:

163740

7%:

END

DCLASM
0

MACRQ

~$MRESET -sssssssssssssssssssssssssass

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

==ssszsssssssssssss

MOV
MOV
BIT
BEQ
MOV
INC
ASLB
BCC
CLR

PAR,R1
#1,R2
R2,LINE
24
R1,8DZLPR
R1
R2
18
SAVLIN

;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

MOV
CLR
CMP
BNE
CLR
MOV
MOV
BIS
BIT
BEQ
MOV
BIT
BEQ
ERROR
CLR
BIT
BNE

#T00,RO
(RO)«
#STOP,RO
.-6
RO
DZRBUF ,REGIST
#1,R2
OMSENAB,8DZCSR
R2,LINE
143
R2,8DZTCR
ORDONE ,8DZCSR
S$
20
RS
#TRDY,8DZCSR
74

;POINT TO THE DATA AREA
;CLEAR A DATA WORD
;FINISHED ?
sNO
;CLEAR OFFSET
;SAVE FOR ERROR MSG
;LINE POINTER
;START SCANNER
sVALID LINE ?
iNO SET UP NEXT LINE
;SET TCR BIT
;IS REC DONE = 0 ?
;IF YES, ALLOW TIME FOR TRDY TO SET
;#REC DONE SHOULD = 0

MOV

RS
64
3
TDOCRO),80ZTDR
SAVLIN,RS

TST8
BEQ

MODE +1
104

MACR)

DELAY
INCB
BNE
ERROR
MOVB

=ssssssssssssssssss

;#TRDY FAILED TO SET!
;LOAD CHARACTER

3HA§§TEEPECTED LINE ¢
:

001406

-‘xz-.--...-...-..--..-.-........-

S SSSSSISSSSSSSESS
SIS SEINEINNNSESNS

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

sME MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
016140

006205

ASR

;GET THE LAST BIT INTO THE CARRY BIT

o po po
o

N
N

lalalalalal

CZDZA-I0
CZDZAI.P11

8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
(2)
8955
8956
8957
8958
8959
8960
8961
(S)
(4)
(2)
(2)
(2)
8962
8963
8964
8965
8966
89€7
8968
8969
8970
8971

016142
016144
016146
016150
016152
016154
016156
016162
016166
016170
016176
016200
016202
016204
016206
016210
016214
Cl6216
016220
016222
016224
016230
016232
016236
016242
016246
016250
016252
016254

MACY11 30A(1052)

02-JUL -85

16:17

02-JUL-85

156005

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

8s:

9s:
:

END

10$:

001422
100000
000200

SEQ 79

PAGE 83-60

CZDZA DZ11 DEVICE DIAGNOSTICS.

103402
000261
000401
000241
006105
000305

16:19

163644

118:

163620

145
15s:

001372
001372

MACRQ

;GET THE NEW BIT BACK INTO RS

==s2zsassszssszsss=s

SWAB

sMOVE THE LINE NUMBER TO THE UPPER BYTE

ERROR

R3
11
4

:#RDONE FAILED TO SET!

CMP

R4 ,RS

;COMPARE ACTUAL VS EXPECTED.

TDO(RO),RS
#0VALID,RS
R3
®RDONE ,8DZCSR
12¢

8DZRBUF ,R4

;ADD CHARACTER
;ADD DATA VALID

;LOAD THE VALUE ACTUALLY RECEIVED

ARE THEY THE SAME?

BEQ
ERROR
SCoP1
INCB
BNE
BIC
INC
MOV
ASL
ASLB

TDOCRO)
4
R2,3DZTCR
SAVLIN
SAVLIN,RO
RO
R2

+IF YES, GO DO THE NEXT LINE
:#NO DATA/CONTENTS DID NOT COMPARE
;CHECK TO SEE IF SWITCH NINE IS SET
: INCREMENT BINARY PATTERN FOR THIS LINE
;GO 'ROUND AGAIN FOR NEXT CHARACTER
;CLEAR TCR BIT FOR THAT LINE.
:INC EXPECTED LINE
:SET UP CHARACTER OFFSET
+MAKE THE OFFSET A POWER OF TWO
;SHIFT THE LINE POINTER. ARE WE ALL DONE?

CLR

LOCK

sMAKE SURE LOCK IS CLEAR FOR NEXT TEST

B8CC

001362

+IF IT IS SET, GO CLEAR IT
3IF IT IS CLEAR SET IT HERE
;SKIP THE CLEARING
sCLEAR THE CARRY BIT (INVERSION OF LINE PARITY)

MOV

13s:

001422

BISB
BIS
CLR
BIT
BNE
DELAY
INC
BNE

12¢:

163632

BCS
SEC
BR
e
ROL

13
6

:IF NO, GO AROUND AGAIN FOR NEXT LINE

‘

;d8btbdtsbbbtbtbbbibittts

-‘xz-..-I’l.'llltl"l.llll'll.llll

TEST

sssssssdbbsbbbbbbbbbbbbbbastssd

;#THIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN
;*BE DISABLED BY SETTING THE RCVON BIT TO ZERO

;#FOR EACH LINE

IN THE LPR REGISTER.

ALSO

;#VERIFIES THAT MASTER CLEAR WILL ZERO DVALID FOR
;#CHARACTERS STORED IN THE SILO.
'

;:+

-‘xz-..-...-.-I-...-:"-.-‘.....'.

TEST 23

18 48 8 08 8 402040404040400000
0000408000000 0000bbtbttbbbibhbbiid

016260
016262
016270
016276
016302
016306
016310
016314
016320
016324
0156330
016332
016334

000004
012737

012737
105037
005037
104417
013701
042701
012702
010177

005201
106302
103373

000023

016612
001320
001372

001366
010000
000001
163522

001122

TST23:
;

001360

END

SCOPE
MOV

#23,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

#TST24 ,NEXT

;POINT

CLRB
CLR
DCLASM

DONFLG
SAVLIN

;INITIALIZE FOR FIRST TEST LOOP
:ZERO LINE NO. FOR ERROR REPORT
;EXECUTE MASTER CLEAR

MACRO

MOV

18:
2%:

BIC
MOV
MOV
INC
ASLB
BCC

===zz3z2z3z3sz33333=33

PAR,R1

#RCVON,R1
#1,R2
R1,3DZLPR
R1
R2
2$

TO THE START OF

THE NEXT

TEST

;STORE DEFAULT PARAMETERS

;CLEAR RCVON BIT
:INIT LINE POINTER
;LOAD LINE PARAMETER REGISTER
;SET R1 FOR NEXT LINE
;SHIFT R2 TO NEXT LINE
;ALL LINES LOADED?

CZDZA-10
CZDZAI.P11
8972
8973
8974
8975
8976
8977
8978
8°79
8980
8981
8982
8983

8984

8985
8986
8987
8988
8989
8990
8991
8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002
9003
9004
2005
9006
9007

9008
9009

9010
9C11
9012
9013
9014

9015

9016
9017
9018
9019
9020
9021
9022
9023
9024
9025
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
016536
016542
016544
016546
016550
016552
016554
015556
016560
016562
016566

MACY11l 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
110177
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

000252
001364
163504

000040

163454

163440

000001

MOV

163462

as.

Ss$:

21s:
163422

163414

6$:

163374

7s8:
8s:

162244

001372

10s:

177770
001372

11s:

12s:
13s:

163254

9252,R1

LINE,R2
R2,80ZTCR
OMSENAB, 8DZCSR

CLR

BMI
DELAY
INC
BNE
ERROR

TST

MOvB
MOV

BIC
BEQ
ASLB
DEC
BNE
BIT
BNE
BICB
BNE

T1STB

001420

001420
001366

SEQ 80

PAGE 83-61

MOV
MOV
BIS

208:

163334

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

177770

104413

000240
000240
105777
100003

02-JUL-85

BNE
BR
MOvB
BIC
BR
CLR
CLR
DELAY
INC
BNE

80ZCSR

RS
43
3

9HDZCSR,RS
#1,R3

@tC<7>,RS
21s
R3
RS
20
R3,R2
63
R3,8D0ZTCR
33

DONFLG

12%
78
R1,3DZTDR
R3.R2

3
30ZTCR
RS
RS
8s

TSTB
BPL
CLR
ERROR
MOV
BPL
SWAB
BIC
MOV
ERROR
BR
INCB
MOV
BR

SAVLIN
20
80ZRBUF ,R4
11¢
R4
#tC<7>
R4
R4,SAVLIN
17
10$
DONFLG
PAR,R1
1

TSTB

aDZCSR

aDZCSR
10¢

CLR
RS
DELAY
INC
RS
BNE
13¢
DEVICE.CLR
NOP
NOP

BPL

143

;LOAD TRANSMITTING CHARACTER
:COPY ACTIVE LINE BITS
;LOAD TCR BITS
:SET SCANNER
s INIT DELAY COUNTER
:TROY SET?
:IF 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.
sIF LINE O GO TEST TRANSM. FLAG
;POINT R3 TO NEXT TCR BIT
;DECREMENT RS UNTIL R3 POINTS
:TO CORRECT TCR BIT
sHAS 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
s 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?
: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 OF TEST
:MOVE DEFAULT PARAMETERS TO R1
;GO LOAD LPR REGISTER
s INIT DELAY COUNTER
;WAIT FOR LAST CHARACTER
:TO BE RECEIVED
;DELAY FINISHED?
+IF YES EXECUTE MASTER CLEAR
:RDONE SET?
:IF NOT BRANCH

CZDZA-10
CZDZAI P11
9028
9029
9030
9031
9032
9033
9034

9035
9036

016570
016574
016576
016602
016604
016610
016612

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

005037
104020
017704
100003
005037
104017

02-JUL-85

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

001372

CLR

163244

001372
15s:

(1)
(1)

9050
9051
9052
9053
9054
9055
9056
9057
9058
9C59
9060
9061
9062
9063
9064

9065

9066
9067

s
b
s
s

PNANNINNN

9068
9069

20
8DZRBUF ,R4
15
SAVLIN
17

:IF YES THEN PRINT OUT

sREPORT
;READ SILO
;DATA VALID SET?
:IF YES THEN PRINT QUT
;ERROR REPORT

ihhbbbbbbbbbbtbdbdtdbitts

-$Xl-=sz=22z32333z33z33s=3z333s3=22

TEST

ssssssssstssbbbdbbbdbbtbsbssts

;#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"”
;#ONLY ONE LINE AT A TIME WILL BE EXERCISED.
;#THIS TEST WILL NOT BE EXERCISED UNLESS
;#*CONNECTED BY AN H32S, H327§i OR H3190 CONNECTOR

9038
9039
9040
9041
9042
9043
9044
9045

9047
9048
2049

SAVLIN

ERROR
MOV
BPL
CLR
ERROR

(2)
9037

(S)
(4)
(2)
(2)
(2)
9046

SEQ 81

PAGE 83-62

;

;:%
LI

016612
016614

000004
012737

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

013701
052701
012700
030037
001402
010177
005201
106300
103370
005037
012702
052777
013737
030237
001446
010277
110277
112777
013705

000024

001122

017070
016726
001370

001360
001362

001366

163116
163124
000377
001372

SCOPE
MOV

END

1¢:

END

DCLASM
O

163114

3s:

4s:

105737
001406

001371

PR Y

YT T T

;POINT TO THE START OF THE NEXT TEST
;SET FOR LOOP
;ARE WE RUNNING IN INTERNAL MODE?
;IF SO, SKIP THIS TEST

-$MRESET-======2zzz3z2=2=zzsssss=s==ss==2==

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

====z=z=z=z2zzz33=z=z=z=z=z3=

MOV

PAR,R1

;PICK UP PARAMETERS

_MOvV

#1,RO

;PICK UP INIT POINTER

R1,8DZLPR

;OTHERWISE,

BIT
BEQ

INC
ASLB
BCC
CLR
MOV
BIS
MOV
BIT
BEQ
MOV
MOVB
MOVB
MOV
TSTB
BEQ

ITIIIIIIINY

;LOAD THE NUMBER OF THIS TEST

#0DDPAR!PARITY,R1

RO,LINE
2%

R1
RO
1$
SAVLIN
#1,R2
#MSENAB,3DZCSR
DZRBUF ,REGIST
R2,LINE
11¢
R2,3DZTCR
R2,9HDZTDR
#377,3DZTDR
SAVLIN,RS
MODE.1
74

;FORCE ODD PARITY

;SHOULD THIS LINE BE SET UP ?
:IF NOT,DON'T SET IT UP
SET UP LINE PARAMETERS

;GOT 'EM ALL ?
:NO
;CLEAR LINE #
;LINE POINTER
;SET MASTER SCAN ENABLE
:SAVE FOR ERRR MESSAGE

;SET TCR BIT
;SET BREAK BIT

;LOAD CHARACTER

3HAK§T§éPECTED DATA
:

016756
016762

-232Z32ITITTIITITTTISTISIIISIISTIISES

====z3zzz=z=zz=zzsz=z=3=

#TST25,NEXT
#3$,L0CK
MODE
12%

MACR)

MOV

2%:

163122
001400

#24,$TSTNM

MACR)

BIS

163156

001372
000001
000040
002046
001364

MOV
MOV
ST
BEQ

;

000300
000001
001364

TST24:
:

TEST 24

-8

-2 33TITITTIITTTISISISIIISITTIIISISISZITSI=S

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

;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
016764

006205

ASR

;:GET THE LAST BIT INTO THE CARRY BIT

CZDZA-I0
CZDZAI.P11
016766
016770
016772
016774
016776

103402
000261
000401
000241
006105
000305
052705
005004
032777
001004
104414
005204
001371
104004
017704
020405

S$:
6%:
:

END

78:

130000
000200

163024

163012

8s:

040277
106302
103321
005037

10$:

001372
162776

11s8:

MACRQ

====2==22=z2z=z33z=z3s3s3

#RDONE ,8DZCSR
9¢

R4
8s
4

;*RDONE FAILED TO SET!
sACTUAL

8DZRBUF ,R4

CcMP

R4 ,RS5

:CMP ACTUAL VS EXPECTED. DO THEY MATCH?

BEQ
ERROR
CLRB
SCOP1

10¢
6
SHDZTOR

:IF YES, GO CLEAN UP
;#*DATA/CONTENTS FAILED TO COMPARE

BIC

R2,8DZTCR

SAVLIN

;INC LINE #

INC

;CLEAR BREAK BITS
;:LOOP?
;CLEAR TCR BIT

BCC
CLR

12%:

RS
;PUT LINE NUMBER IN UPPER BYTE
;EVALID!PARER!FRHERR.RS ;ADD EXPECTED

ASLB

001362

+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 BIT BACK INTO RS

INC
BNE
ERROR
MOV

9s:

163022

BCS
SEC
BR
CLC
ROL

SWAB
813
L
BIT
BNE
DELAY

001401

104006
105077
104401
005237

SEQ 82

02-JUL-85
16:19
PAGE 83-63
CZDZA DZ11 DEVICE DIAGNOSTICS.

3
LOCK

sMAKE SURE LOCK IS CLEAR FOR NEXT TEST
;

-SLVLTST-==2=2=2==z=22z2z=zszsszsszsss===s==

-$X7-==z3z=zz3zzsssssssssz=sz===z=3=

ihhkbdbhhbbbhbhhibbihbiis

PNINININONINONIONIONIONINIONONONININININININ

017000
017002
017006
017010
017016
017020
017022
017024
017026
017030
017034
017036
017040
017042
017046
017050
017054
017060
017062
017064

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

R
D

S L

S T

WWWUNION NN

s:¢

stttsdtbsbbbhbbbbbbbdbbbbhdtts

017070
017072
017100

000004
012737

012737

000025
017400

001122

TST25:
;

-$XZ-===2z2z=zz33zzz3szssss=ssz=====

TEST 25

N
L
L

TEST

:# THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT
;*#WHILE THE PROCESSOR STATUS IS SET EXACTLY
:#T0 WHAT THE DZ11 PRIORITY IS SET TO.
;#DEFAULT PRIORITY IS AT
S (240).

END

001360

PP PPy

SCOPE

MOV
O

MACR)

MOV

#25,$TSTNM

;LOAD THE NUMBER OF THIS TEST

=====z==z=z=zz3sz=3=z==

#TST26 ,NEXT

;POINT TO THE START OF THE NEXT TEST

NPV

3‘LINEUP-:::::::-:a:a-a-a:--a:--aa--laaaa:

(2)

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

030334
001364

017144
017150

END

DCLASM
o

"ACRO

MOV

MOV
BIT
BEQ
MOV
INC

1$:

162720

2%:

001372

END

ASLB
BCC
CLR
O

MACR)O

MTPS

162700

MOVB

-SMRESET-===2==23=2=z2=2==2=2=2z332=23=z3z=3=z3=3=

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

SEITSISSSSZISISSS=ZI==S

PAR,R1

#1,R2
R2,LINE
2
R1,3DZLPR
R1

;PICK UP PARAMETERS
;PICK UP INIT POINTER
;SHOULD THIS LINE BE SET UP ?
;NO
;SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE

R2
1$
SAVLIN

;GOT 'EM ALL ?
:IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE # INDICATOR

4DZPRT

:SET CPU STATUS TO DZ11 PRIO,

=======z=z=z3=zz=z==z3=3=

LINE,8DZTCR

;ENABLE THE VALID LINES

CZDZA-I0
CZDZAI.P11

(1) 017156
(2)
(2)
017156
(2)
017164
(2)
017172
(2)
017200
(2)
017206
(2)
(1)
017214
(1)
017216
(1)
017224
(1)
017226
(1)
017230
(1)
017232
(1)
017234
(i)
017236
(1)
017240
(1)
017242
(1)
017244
(1)
017246
(1)
017250
(1)
o17252
(1)
017254
(1)
017256
(1)
017260
(2)
(2)
017266
(2)
017274
(2)
017302
(2)
017310
(2). 017316
(2)
(1)
017324
(1)
017332
(1)
017334
(1)
017342
(1)
017344
(1)
017346
(1)
017350
(1)
017352
(1)
017354
(1)
017356
(1)
017360
(1)
017362
(1)
017364
(1)
017366
(1)
017370
(1)
017372

(1)
(1)

9209

(2)
(2)
(1)

017374
017376

017376

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

02-JUL-85

16:19

PAGE 83-64

SEQ 83

CZDZA DZ11 DEVICE DIAGNOSTICS.

3s:

012777
012777
013777
013777
052777

017246
017254
030334
030334
040040

162712
162700
162674
162672
162626

MOV

005005
032777
001403
000240
000240
000412
104414
005205
001366
104003
000405
104010
022626
000402
104012
022626
042777

100000

162616

END

6%:

MACRQ

==2s==zssss=s=zzzz=zs=

8
RS
4%
:‘

:*TRDY NOT SET!

;*TRANSMITTER SHOULD NOT INTERRUPT

CMP
BR

(SP)+,(SP)+
8s

;POP FOR FAKE RTI
;CONTINVE TEST

CMP

(SP)+,(SP)+

;POP FOR FAKE RTI

ERROR

8s:

:SET UP THE TRANSMITTER INTERRUPT VECTOR

#7%,8DZRIV
:SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
OTIE!MSENAB,BDZCSR ;ENABLE THE DEVICE
RS
#TROY,8DZCSR
S

ERROR

78:

162554

CLR
BIT
BEQ
NOP
NOP
BR
DELAY
INC
BNE
SSROR

4s:

5%:

040000

#6$,80ZT1IV

MOV
MOV
MOV
BIS

~$INTSET-==23s2sssssssssssssssssssssas

BIC

+#RECEIVER SHOULD NOT INTERRUPT

¢TIE,8DZCSR

:RE%E;T;2¢NSHITTER INTERRUPT ENABLE

‘

012777
012777
013777
013777
052777
113777
005005
032777
001403
000240
000240
000412
104414
005205
001366
104004
000405
104010
022626
000402
104012
022626

104413

017364
017372
030334
030334
000140

162602
162570
162564
162562
162516

001422

162534

000200

162500

END

9¢:

MOV

DZPRT,aDZTIS

;SET TRANSMITTER INTERRUPT PRIORITY

BIS
O

DZPRT,8DZRIS

MACR)

12%:
.
13s:
i

END

;

END

;ENABLE THE DEVICE

======sss=s==2z=s=z=z=z=

;gO.GDZTDR

BIT

#RDONE ,3DZCSR

BR
DELAY
INC

13¢

ERROR
BR
ERROR
CMP
BR
ERROR
CMP

;SET THE INTERRUPT VECTOR STATUS

#RIE!MSENAB,8DZCSR

gE;B

BNE

11%:

TTTISITSIITTITITTIZITTIITIIITI_ISTS

:SET UP THE TRANSMITTER INTERRUPT VECTOR
:SET UP _THE RECEIVER INTERRUPT VECTOR

BEQ
NOP
NOP

10%:

#11$,80ZTIV
#12% ,8DZRIV

MOV

MOV
MOV

;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER

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)

MACRQ

====z==ss====z=z==zzz==

MACRQ

=====z=z=s=s=z====3=z=z=3=
i

shbkdhbbhhhhdhbhihhbibbhhs

-SLVLTST-=====z=3zz3=z=3ss222z23zzs=3z====

-$XZ-=====2=zz3zzz3z3s==s33=z=3z==33==

TEST

#sstkhhhdbbbbbbbbbbbbbbbbbbiss

~NS

PNPNONONININPNNINPNPNPN
NN~ ~
oo WWWNWWWUIO
W
s s
e
N
N Nl N N N N N N N N N N N N N N

CZDZA-I0
CZDZAI.P11

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

02-JUL-85

i# THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT
i*WHILE THE PROCESSOR STATUS IS SET TO EXACTLY
+#ONE LEVEL LOWER THAN THE DZ11. DZ11 PRIORITY
+#DEFAULT TO LEVEL 5 MINUS ONE LEVEL IS LEVEL 4.
;i

;:+
017400
017402

017410

000004
012737
012737

N N N NI NI NI NI NI NI NI NINININING
N
N N N
N

TEST 26

~$Xl-2322z233z33sss2sszasszazssssnss

R bt
b L T T T Tt
A
O A A A
Wt
P O
AP
Y

000026
017726

001122

TST26:
i

END

001360

SCOPE
MOV
O

MACRQ

MOV

26, $TSTNM

;LOAD THE NUMBER OF THIS TEST

===s===ss=2=s2zzz3=z==

#TST27 ,NEXT

;POINT TO THE START OF THE NEXT TEST

sSLINEUP -2=2222sz223222222223sssss2z2ssssss

017416

104417
;i

017420
017424
017430
017434
017436
017442
017444
017446
017450

013701
012702
030237
001402
010177
005201
106302
103370
005037

017454
017460
017466

106437
113777

017466
017474
017502
017510
017516

012777
012777
013777
013777
052777

017524
017526
017534
017536
017540
017542
017544
017546
017550C
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

001366
000001
001364

END

1$:

162410

2%:

001372
030336
001364

162370

END

DCLASM
O

MACRQ

MOV
MOV
BIT
BEQ
MOV
INC
ASLB
BCC
CLR
O

MACR)

MTPS
MOVB

3
$:

040040

162402
162370
162364
162362
162316

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

PAR,R1
#1,.R2
R2,LINE
24
R1,3DZLPR
R1
R2
1$
SAVLIN

;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

=====z=s=s==z=z=zs=z=zz3=

PLESS1
LINE,8DZTCR

MOV
MOV

100000

162306

4%:

5%:

040000
030336

162252

6$:

8%:

END

MOV
MOV
BIS
O

MACR)

~SMRESET-==2=ss=s=z=s3ssz2sszsssssszz=22

=====zz=zss=zszs=zz=z=z3=

:MAKE CPU ONE LEVEL LOWER THAN DZ11
;ENABLE THE VALID LINES
i

017560
017576
030334
030334

PNINIONONONONONONONINONONONONONONONONONPN

SEQ 84

PAGE 83-65

CZDZA DZ11 DEVICE DIAGNOSTICS.

;

TO O =5 10 et b bbb b o o b (o (b (b b b ot ot et

16:19

~$INTSET-====23=s=s=2s=2z2zszsssssss===2z

#6$,80ZTIV
:SET UP THE TRANSMITTER INTERRUPT VECTOR
#7%,8DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
:SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
@TIE!MSENAB,8DZCSR ;ENABLE THE DEVICE
=====s====zszzz=z=z===

CLR
BIT
BEQ
NOP
NOP
ESROR

;’

i*TRANSMITTER FAILED TO INTERRUPT

DELAY
INC
BNE
g:ROR

RS
4%
g‘

;#TRDY NOT SET!

POP2SP
BIC
MTPS
BR
ERROR

#TIE,8DZCSR
9#LESS1
8
12

BIC

(SP)+,(SP)+

: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
i *RECEIVER SHOULD NOT INTERRUPT

#TIE,8DZCSR

:POP FOR FAKE RTI

MOV

#11$,80ZTIV

:SET UP THE TRANSMITTER INTERRUPT VECTOR

CcMpP

RS
#TRDY,8DZCSR
5

;RE?%LTgE¢NSHITTER INTERRUPT ENABLE

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

017616
017624
017632
017640

012777
013777
013777
052777

017716
030334
030334
000140

162246
162242
162240
162174

017646
017654
017656
017664
017666

113777
005005
032777
001404
000240
000240
104011
000413
104414
005205
001365
104004
000406
104010
022626
000403
022626
005077

001422

162212

000200

162156

017670

;

9s:

;gO.GOZTDR

BIT

#RDONE ,8DZCSR

ERROR

13¢
RS
9s
4
13
10
(SP)+,(SP)+
13¢

ERROR

cMP
BR
POP2SP
CLR

12%:
13$:
;s

END

zsssssssssTssssI=sss

;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER

10¢

BR
DELAY
INC
BNE
ERROR
BR

114:

104413

#12% ,8DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
#RIE!MSENAB,SDZCSR ;ENABLE THE DEVICE

BEQ
NOP
NOP

10¢:

162116

MOV
MOV
MOV
BIS

EflongngCRo

@DZCSR

DEVICE.CLR

;*RECEIVER FAILED TO INTERRUPT

;#*NO RX DONE! (NOT SET)
;CONTINUE TEST

;#*TRANSMITTER SHOULD NOT INTERRUPT

;POP FOR FAKE RTI
;CONT TEST
;REMOVE THE INTERRUPT FROM THE STACK
;DON'T ALLOW ANY MORE INTERRUPTS
;ISSUE DEVICE CLEAR (RESET)

MACRQ

=======z=s==s==zz====2

MACR)

===========z=2z===z=23=

:
shkkhbbhdbbbbbhbkbbhhdbhbk

(4)
(2)

017726
017730

000004
012737

000027

001122

(2)

017736

012737

020360

001360

(2)

017744

104417

NININININININIIN

017746
017752
017756
017762
017764
017770
017772
017774

013701
012702
030237
001402
010177
005201
106302
103370

;:%

TEST 27

TST27:

s
s e
s
s
s s

sbhddhdbbbbhbhbhbbhbhhbhbbhdts

END

P T

162062

T T

#27,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

#TST30,NEXT

;POINT TO THE START OF THE NEXT TEST

MACR)O

========zz=z=zssz33=3=33=

3‘LINEUP-'-::-..I-.aa-----a.-ln.--a:-a-ata

;

001366
000001
001364

-$X7-2222223z3z=333333z3s3sss3383=

SCOPE
MOV

;*INTERRUPT BEFORE THE TRANSMITTER EVEN
;#THOUGH THE TRANSMITTER WAS ENABLED
;#FIRST.
SET PS TO LEVEL 7;
:#GET RDONE AND TRDY TO SET;
:#SET TX IE AND RX IE;
;#CLEAR PS AND EXPECT RX TO INTERRUPT FIRST
:

lalalalaleleleale)

-$X7-2==2z=z3z3zz3sss=zss33sz=ssss=
TEST

;#THIS TEST VERIFIES THAT THE RECEIVER WILL

8
3

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

017672
017674
017676
017700
017702
017704
017706
017710
017712
017714
017716
017720
017724
017724

SEQ 85

02-JUL-85
16:19
PAGE 83-66
CZDZA DZ11 DEVICE DIAGNOSTICS.

8~88
PNINONONONONIONINONONONININONNNCNNPNPN
- L
e e e e e
e e
N T T T T
TMy,
BT8R
N N N N N N N NI NI NI NN NN NININININI NG

CZDZA-I0
CZDZAI.P11

1$:
2%:

END

DCLASM
O

MACR)

-$MRESET -==22=2==22=2z=zzss3z==3s3333z33333

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

=======zz=zzz==z==zsz=z=z=

MOV

PAR,R1

;PICK UP PARAMETERS

BIT
BEQ

R2,LINE
23

;SHOULD THIS LINE BE SET UP ?
;NO

INC
ASLB
BCC

R1
R2
1$

MOV

#1,.R2

R1,3DZLPR

;PICK UP INIT POINTER

;SET UP LINE PARAMETERS

;POSITION POINTER TO THE NEXT LINE
;GOT ‘EM ALL ?
;IF NO, GO 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

9148
9149
9150
9151
9152
9153
9154
9155
9156
9157

MACY11 30A(1052)

02-JUL -85 16:17

017776

005037

001372

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

v12777
013777
012777
013777
052777
2702
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

020232
030334
020322
030334

020176
020204
020212
020216
020220
020222
020224

052777
052777
106427
000240
000240
104007
104011

040000
000100
000000

020226

000137

020232

017704

000040
000001
001364

SEQ 86

02-JUL-85
16:19
PAGE 83-67
CZDZA DZ11 DEVICE DIAGNOSTICS.
:

162062
162056
162052
162046
162002
3s:

001372
4s:

000340

161760
161744

161730

5¢:

END

CLR
0

SAVLIN

;CLEAR LINE # INDICATOR

#8%,80ZRIV
DZPRT,8DZRIS
#12%,80ZTIV
DZPRT,8DZTIS
O#MSENAB, 8DZCSR
#1,R2
R2,LINE
4%
SAVLIN

:SETUP INTERRUPT STUFF
;
;
f

R2,3DZTCR
8DZRBUF

:SET TCR BIT
;VALID DATA?

MACR)

MOV
MOV
MOV
MOV
BIS
MOV
BIT
BNE
INC

ASLB
BR
MTPS
NOP
NOP
MOvB
TST
BPL
ERROR
ggIB

====2==2==z=zsz==zz=z===

;LINE POINTER
;VALID LINE ?

R2
3
#PR7

.+4
17
80§CSR

:IT BETTER NOT BE SET
:DATA VALID SHOULD NOT BE SET
;RECEIVER DONE ?

161714

99%:

161722
000200

100%:
161666

161650

78:

161636
161630

ERROR
CLR
CLR
TST
BMI
DELAY
INC
BNE
ERROR
CLRB
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
TST
BMI
ERROR

20
RS
R4
8DZCSR
100$

;RECEIVER DONE BIT SHOULD NOT BE SET

;WAIT FOR TRDY

R4
99
3
8DZTOR
R4
#RDONE
, 8DZCSR
7$

R4
6%
4
8DZCSR
.+4
3

:BR IF READY
:STALL TIME
;

;TRDY FAILED TO SET

:#RDONE FAILED TO SET!
:TRANS DONE BIT = 1 ?
: YES
;#*NO
TRANS DONE FAILED TO SET

:NOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1
s SET INTERRUPT ENABLES AND WATCH THE FUR FLY

BIS
BIS
MTPS
NOP
NOP
ERROR
ERROR

#TIE,8DZCSR
#RIE,8DZCSR
#0

020326

JMP

13¢

161610

MOV

7
11

;#TRANSMITTER FAILED TO INTERRUPT
;#*RECEIVER FAILED TO INTERRUPT

:GET 0ouT

;CHECK BR LEVEL

;RECEIVER INTERRUPT ROUTINE
8DZRBUF ,R4

;ACTUAL

CZDZA-I0
CZDZAI.P11
9158
9159
9160
9161

-~ PNPNIONPNPNINIONNININ

O
oP
e (et (s s et et e et
N~ NI NI NININININININIING

(1)

9163
9164
9165
9166
9167
9168
9169
9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180

9181
(2)
9182
9183
9184
9185
9186
9187
9188
(5)
(4)

(2)
(2)
(2)

NNINININ

PNINONINN

9189

MACY11 30A(1052)

02-JUL -85 16:17

020236
020240
020242

010403
000303
042703

177770

020246
020252

105737

001371

001406

SEQ 87

02-JUL-85
16:19
PAGE 83-68
CZDZA DZ11 DEVICE DIAGNOSTICS.
MOV
SWAB
BIC

R4 ,R3
R3
#tC<7>,R3

;STRIP JUNK

TSTB
BEQ

MODE +1
11¢

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

;

-$STAG-====s=2ssss222z2z3323ssz3szsssssszasss

;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
020254
020256
020260
020262
020264
020266

000401
000241
006103

020270
020274
020276
020300
020304
020306
020310
020312
020316
020320

020337
001401
104015
042704
120504
001401
104005
040277
022626
000402

020322

104011

020324
020326
020334
020342
020346
020354

022626
042777
013777
005077
013777
005077

006203
103402
000261
9¢:
10$:
;i

001372

END

11¢:

161540

002100
161520

161522

161526

;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 BIT BACK INTO R3

10$
MACRQ

=====s=z==z=z==zz=z3=3==

R3,SAVLIN
.+4
15
#tC<377>,R4
R5,R4
.+4

13$

;IS THIS A VALID LINE
sYES
;*INVALID LINE
;STRIP JUNK
;:DATA COMPARE ?
s YES
;#DATA DOES NOT COMPARE
;CLEAR TCR BIT
;REMOVE HE INTERRUPT VECTOR FROM THE STACK
;GO GET OUT OF INTERRUPT MODE

;THE RECEIVER INTERRUPT FAILED

R2,8DZTCR

; TRANSMITTER INTERRUPT SVC ROUTINE

12%:

161506
161530

R3
9s

CMP
BEQ
ERROR
BIC
CMPB
BEQ
ERROR
BIC
POP2SP
BR

177400

040100
002074

ASR
BCS
SEC
BR
CLC
ROL

ERROR

POP2SP

13s:

;TO OVERRIDE THE TRANSMITTER

;REMOVE THE INTERRUPT VECTOR FROM THE STACK

BIC

#TIE!RIE,SDZCSR ;CLEAR INTERRUPT ENABLES

CLR
MOV
CLR

8DZRIS
DZTIS,aDZTIV
aDZTIS

MOV

DZRIS,aDZRIV

;RESTORE TRAPCATCHER

-l
‘

shbkdbkbhhhkhhhhhhkbhhhkhbbhdk

TEST

«~

ST SSTTIITTTITITTTTTTITITTITT

sbsbdbbbnbbbdhbbbhbbbbhbbbbtss

;#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.
;:+
020360
020362

000004
012737

000030

001122

020370

012737

020546

001360

;

TEST 30

L Ly
Y PP
P YT T I T

TST30:

SCOPE
MOV

#30,$TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

#TST31,NEXT

;POINT TO THE START OF THE NEXT TEST

END

MACR)

=s==ss=sz=zs=3333332

;’LINEUP-laa----aa:sa:a-a'slaaalscl:-a:-su

020376

104417

020400
020404
020410

013701
012702
030237

001366
000001
001364

-$XZ-==23333z333zs33=3333s33333333=

1s;

END

DCLASM
O

MOV
MOV
BIT

MACR)

-$MRESET-==2==23z333z333s3333333333333%

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

=====z=2=s=z=s3za3zz=z33=

PAR,R1
#1,R2
R2,LINE

;PICK UP PARAMETERS
;PICK UP INIT POINTER

;SHOULD THIS LINE BE SET UP ?

CZDZA-I0
CZDZAI.P11
(1)
(1)
(1)
(1)
(1)
(1)

(1)

9190

9191
9192

020414
020416
020422
020424
020426
020430
020434

020442
020446

9193
9194
9195
9196
9197
9198

020452
020454
020460
020462
020464
020470

9200
9201
9202
9203
9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214

020476
020500
020502
020504
020506
020510
020516
020522
020524
020526
020530
020532
020540
020542
020544

9199

9215

020472

MACY11 30A(1052)
02-JUL -85 16:17
001402
010177
005201
106302
103370
005037

001372

052777

000040

012702
030237

001004
005237
106302
000771
110277
005005

005777

100404
104414
005205
001372
104003
042777
105077
005005
104414
005205
001375
032777
001401
104020
104400

161430

000001
001364

;

3%:

4s:

161344

S5$:

161324

6%:
7%:

161302

8%:

#MSENAB,8DZCSR

;TURN ON SCANNER

BNE
INC
ASLB
BR
MOVB
CLR

44
SAVLIN
R2
3$
R2,
RS

;IF WE FOUND ONE GO TO TEST
;IF NOT
;KEEP LOOKING

BMI
DELAY
INC
BNE
ERROR
BIC
CLRB
CLR
DELAY
INC
BNE
BIT
BEQ
ERROR
ADVANCE

MACRQ

8DZTCR

8DZCSR

;SET TCR BIT

;IS TRDY SET

;CON'T TESTING IF IT IS
;IF IT NOT WAIT A WHILE

RS
54
3
#MSENAB,
8DZTDR
RS
RS
74
#RDONE,
8¢
20

;INIT LINE COUNTER
;FIND A VALID LINE

@DZCSR

8DZCSR

;WE WAITED LONG ENOUGH-ERROR
;TURN OFF SCANNER
; TRANSMIT A CHARACTER
;CLEAR COUNTER
;WAIT SUFFICIENT TIME FOR
;RDONE TO SET
;RDONE SET
;IT SHOULDN'T BE-CONTINUE
:IF IT IS THERE'S AN ERROR
:

;

;:%

-$XZ-2=2322223zz333z23z333333s33=2s

TEST

sssbtsbdsbbbbbbbbbbbdbbbbbibss

(4)
(2)

020546
020550

000004
012737

000031

001122

(2)

020556

012737

021274

001360

020564

012737

021200

L Iy
Py
P
P Py P P P N T P T P TSI

TST31:
;

END

001362

SCOPE
MOV

#31,8TSTNM

;:LOAD THE NUMBER OF THIS TEST

MOV

#TST32,NEXT

;POINT TO THE START OF THE NEXT TEST

MACRQ)

MOV

========s==2=233333=3=

#18%,LOCK

;SET FOR LOOP

"LINEW-II..IIJIIII.J..II’SIS'IIlllllll'l

020572

104417

“$XZ-==3333ss33ssssss3sssassz333333

TEST 31

(2)

_—

R2
LINE

;#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 65TH
;#CHAR PULLED OUT OUT THE SILO.
;#*USING SWITCH NINE FOR THIS TEST SENDS 20. CHARACTERS
;#ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SW09=1.
;#USED TO SCOPE SILO ALARM PULSES, ETC.

(s)

(2)

1,
R2,

;#THIS TEST VERIFIES OVERRUN AND SILO ALARM
;+#ONE LINE AT A TIME
- BASED UPON VALID LINES

9227

(2)

=====s===z=2=2=zsz=z3=z==

ihbddb bbb db bbbk ibhkbbhdts

9226

9229

BIS

9216
9217
9218
9219
9220
9221
9222
9223
9224
9225

9228

;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

MOV
BIT

(2)

24
R1,8DZLPR
R1
R2
1s
SAVLIN

END

161400

161366

000200

BEQ
MOV
INC
ASLB
B8CC
CLR

2%:

001372

000040
161344

SEQ 88

02-JUL-85 16:19 PAGE 83-69
CZDZA DZ11 DEVICE DIAGNOSTICS.

END

DCLASM
O

MACRQ

~SMRESET-==s3s323=2s23=s33z33323z33333333

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

========zzs3=zz333333

CZDZA-I0
CZDZAI.P11

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
9230
9231
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

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

020574
020600
020604
020610
020612
020616
020620
020622
020624

013701
012702
030237
001402
010177
005201
106302
103370
005037

020630
020634
020636
020642
020644
020646
020652
020660
020664
020666
020672
020676

012700
005020
022700
001374
005000
012702
052777
030237
001002
000137
013700
006300

020700

020704
020710

020712
020714
020716
020720
020726
020730
020732
020734
020736
020740
020746

020752

010277

105777
100001

104020
005003
005004
032777
001004
104414
105204
001371
104003
116077
005260

020327

020756
020760
020766
020770

103006
032777
001401
104013

020772
020774

000411
005004

020776
021004

021006
021010
021012
021014

032777
001004
104414

001366
000001
001364

MOV
PAR,R1
;PICK UP PARAMETERS
MOV
#1,R2
;PICK UP INIT POINTER
1s:
BIT
R2,LINE
;SHOULD THIS LINE BE SET UP ?
BEQ
24
;NO
MOV
R1,8DZLPR
:SET UP LINE PARAMETERS
2%:
INC
R1
;POSITION POINTER TO THE NEXT LINE
ASLB
R2
;GOT 'EM ALL ?
BCC
1
:IF NO, GO SET UP THE NEXT LINE
CLR
SAVLIN
;CLEAR LINE ¢ INDICATOR
i -- END O MACR) ====ss==22zzzzzz=zs==

161234

001372
001422
001462
000001
010040
001364

161162

3s:

021162
001372
161152

161132

100000

001422
001422

4s:

161114

161120

S5$:
6$:

7%:

000017

020000

MOV
CLR
CMP
BNE
CLR
MOV
BIS
BIT
BNE
JMP
MOV
ASL

MOV

TST8
BPL
ERROR
CLR
CLR
BIT
BNE
DELAY

INCB
BNE
ERROR
MOVB
INC
CMP

BHIS
BIT
BEQ
ERROR

161054

161036

8%:

9%:

005204
001371
104014

BR
CLR
BIT
BNE
DELAY

INC
BNE
ERROR

#TD0,RO
;POINT TO THE DATA AREA
(RO)»
;CLEAR A DATA WORD
#STOP,RO
;FINISHED ?
.-6
:NO
RO
;CLEAR OFFSET
#1,R2
;LINE POINTER
#MSENAB ! SILOEN,8DZCSR
;START SCANNER & SET SILO ENABLE
R2,LINE
;VALID LINE?
.+6
;YES
22%
; TRY NEXT LINE
SAVLIN,RO
sMAKE OFFSET
RO
+MAKE POWER OF TWO

R2,8DZTCR

9273
9274
9275

;SET TCR BIT

8DZCSR
.+4

;REC DONE = 1 ?

20
R3
R4
#TRDY,8DZCSR
7%

;REC DONE SHOULD NOT = 1
;SET CHARACTER COUNT

R4
63
3
TDOCRO),8DZTDR
TDOCRO)
R3,#15.

8$
#SILOAL,3DZCSR
.+4
13

10$
R4

;#TRDY FAILZD TO SET
;LOAD A CHARACTZR
:SET UP NEXT CHARACTER

;16 CHARACTERS

;SILO ALARM = 0 ?
s YES
:#SILO ALARM SHOULD NOT = 1
;UNTIL 16. DATA CHARACTERS

#SILOAL,3DZCSR
10¢

R4
9s
14

;#SILO ALARM FAILED TO SET!

:SILO ALARM SHOULD

9271

9272

SEQ 89

02-JUL-85
16:19 PAGE 83-70
CZDZA DZ11 DEVICE DIAGNOSTICS.

021016

021020
021024
021026

005203

022703
001334
005004

000102

10s$:

INC

CMP
BNE
CLR

#66. ,R3
1]
R4

;DATA CHARACTERS

:INC CHAR COUNT

=1 AFTER

16.

;FINISHED SENDING CHARACTERS ?
:NO

CZDZA-I0
CZDZAI P11
9276
9277
9278
9279
9280
9281
s e e
b et (s
b
b
s
o

lalalalal
ot al ot ot et

NN NININININININO
N

(1)

MACY11 30A(1052)

02-JUL -85 16:17

021030
021032
021034

104414
105204
001375

021036

013705

SEQ 90

02-JUL-85
16:19
PAGE 83-71
CZDZA DZ11 DEVICE DIAGNOSTICS.

DELAY
INCB
BNE

R4
.-4

MOV

SAVLIN,RS

;NOW LETS READ THE SILO

001372

;HA?ETEéPECTED LINE ¢
‘

021042
021046

105737
001406

001371

TST8
BEQ

MODE+1
13

SSSS

SIS

SSSSSSSSISSSSSST

SRS

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

sWE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER
021050
021052
021054
021056
021060
021062

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

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

ASR

SEC
BR

123

B8CS

11%:

12%:
;

13s:

100000
160750

020000

160730

CcLC

END

ROL
0

MACR)

SWAB
BIS
MOV
cMP
BEQ

15s¢:

BIT

164:

000077
040000
000101

160676

17%:

001372

22%:

020660

RS
#DVALID,RS
8DZRBUF ,R4
R4 ,RS
15¢

BEQ

16$

ERROR

INC
CMPB
BLOS
INC
BIS

BEQ
MOV
TST
BPL
ERROR
BIC
SCoP1
INC
ASLB
BCS
JMP
ADVANCE

;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 BIT BACK INTO RS

==sssszszszsssss=sss

ERROR

CcMPB

160700

11%

#SILOAL,8DZCSR
16

RS
RS, #63.
14
RS
#0VRRUN,RS

RS, #65.

14
8DZRBUF ,R4
R4
174
17
R2,8DZTCR
SAVLIN
R2
.+6
34

:PUT IN UPPER BYTE
;ADD DATA VALID
;ACTUAL
;ACTUAL VS. EXPECTED
;YES
;#DATA/CONTENTS DID NOT COMPARE

;SILO ALARM= 0 ?
:YES

;READING DZRBUF DID NOT CLEAR SILO ALARM

;UP CHARACTER
;LAST SILO CHAR ?7....64TH CHAR

;ADD 1 MORE FOR THE CLOBBERED CHAR
;ADD OVERRUN TO EXPECTED

;LAST CHARACTER ?

;FOR GOOD MEASURE
;DATA VALID SHOULD = 0
:YES
;DATA VALID SHOULD = 0

;CLR TCR BIT
;:LOOP?
;INC EXPECTED LINE
;NEXT LINE
:NO
;YES
;GO TO NEXT TEST

s TIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS
:ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SW09=1.
;USED TO SCOPE SILO ALARM PULSES, ETC.
021200
021206
021214
021222
021226
021234

052777
012777
012737
050277
052777
106427

010040
021264
000024

160634
160662
001216

040000
000000

160606

160630

18%:

8IS

MOV
MOV
BIS
BIS

MTPS

OMSENAB!SILOEN,8DZCSR

€204 ,80ZTIV
920.,$TMPO
R2,80ZTCR
@TIE,8DZCSR
€0

;SETUP DEVICE

;SETUP TRANSMITTER VECTOR
s TEMPORARY COUNT OF CHARACTER BURST
;ENABLE LINE
;ENABLE INTERRUPTS

;LOWER PRIORITY

CZDZA-I0
CZDZAI P11

9320
9321
9322
9323
9324
9325
9326
9327
9328
(2)
9329
9330
9331
9332
9333
9334
9335
(S)
(4)

(2)
(2)
(2)

9336
9337

3 &C

o et (et (e et Pt Pt

s )n

NI NI NININININININIING ~

w~ lalalalalalalalalale) ~

(2)

9339

9341
9342
9343
9344

9345
9346
9347

9348

9349
9350
9351
9352
9353
9354
9355
9356

021240
021242
021246
021250
021256
021260
021264
021272

MACY11 30A(1052)
02-JUL -85 16:17
000001
005337
001374
042777
104401
000137
112777
000002

SEQ 91

02-JUL-85 16:19 PAGE 83-72
CZDZA DZ11 DEVICE DIAGNOSTICS.

19%:

001216
050040

160564

021154
000252

160574

WAIT
DEC

$TMPO

BNE

19%

BIC
SCoP1

:IF NO, WAIT FOR MORE

OSILOEN'"SENAB'TIE 8DZCSR ;RESET SILO COUNTER, CLEAR STROBE
zLOOP AGAIN?

JMP
MOVB

208:

;sALLOW INTERRUPTS
sREDUCE COUNT. ALL CHARACTERS SENT?

17%
9252 ,8D0ZTDR

RTI

:IF NOT, RETURN TO WHERE YOU LEFT OFF
:SEND A CHARACTER

'AL%gg MORE CHARACTERS TO COME
;-

ittt

batstttttits sttt

TEST

[

~SSSSESSSSSSSsIsSISESSSESSESINSS

$8840080880800000000000008d80s

;#THIS TEST THAT “"SILO ENABLE” WILL INMIBIT
+*RECEIVER INTERRUPTS AND THAT ON THE
:#16TH CHAR THAT “SILO ALARM” WILL CAUSE AN
;#INTERRUPT WITH "RIE” SET.
;+#THIS WILL DO ALL SELECTED.§§NES ONE AT A TIME.
‘

s:¢

021274
021276

021304
021312
021320

000004
012737

012737
012737

000032
021656
021400

001122

END

001360
001362

021356
021362
021364
021370
021372
021374
021400
021406
021414

012700
005020
022700
001374
005000
012702
012777
012777
052777

021422
021426
021430
021434
021440
021442
021446
021452
021454

030237
001002
000137
005777
100775
106427
013700
006300
010277

““.‘..

SCOPE
MOV

932,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV

OTST3I3 ,NEXT

sPOINT TO THE START OF THE NEXT TEST

MACR)

MOV

==ssssssssssasssssss

#34,L0CK

001366
000001
001364

END

1s:

160506

24:

001372
i

001422
001462
000001
021620
000340
010140

001364
021636
160406

000000
001372
160376

160464
160460
160420

3%:

END

DCLASM
O

MACR)

:SET FOR LOOP

“SMRESET-2s2ssssssssssssssssassssssss

sCLEAR DEVICE AND SET MAINT BIT IF I MODE

=ssszssssssssssasas

MOV
MOV
gé;

PAR,R1
01.R2
g%.LINE

;PICK UP PARAMETERS
;PICK UP INIT POINTER
lSSOULD THIS LINE BE SET LP ?

MOV
INC
ASLB
BCC
CLR

R1,8DZLPR
R1
R2
1
SAVLIN

+SET UP LINE PARAMETERS
;POSITION POINTER TO THE NEXT LINE
;GOT 'EM ALL ?
+IF NO, GO SET UP THE NEXT LINE
;CLEAR LINE @ INDICATOR

MACR)

==sssssssssssssssss

MOV
CLR
CMP
BNE
CLR
MOV
MOV
MOV
BIS

#TD0,RO
:POINT TO THE DATA AREA
(RO)o
;CLEAR A DATA WORD
#STOP,RO
sFINISHED ?
.-6
:NO
RO
;CLEAR OFFS"T
#1,R2
;LINE POINTER
#11$ ,8DZRIV
:SET FOR UNEXPECTED INTER.
#PR7,8DZRIS
;SET PRIO.
OMSENAB!SILOEN!RIE,8DZCSR

BIT
BNE

R2,LINE
.+6

sVALID LINE?
;YES

80ZRBUF
.4

;:EMPTY THE SILO
:BR IF DATA VALID IS SET!

JMP

TST
BMI

MTPS
MOV
ASL

MOV

iSLINEUP -2sssssssssssssssssssssssssssssnss
i

013701
012702
030237
001402
010177
005201
106302
103370
005037

-..-...........-.........-....

F 3‘0‘.“.“‘““‘..‘....“‘.““.‘.“““‘“..“.“‘.‘.“

TST32:

104417

021322
021326
021332
021336
021340
021344
021346
021350
021352

TEST 32

228

&0
SAVLIN,RO
RO

R2,8DZTCR

sSTART SCANNER € SET SILO ENABLE

s TRY NEXT LINE

;SET PROCESSTM. PRIORITY TO0 O
sMAKE OFFSET
sMAKE POMER OF TWO

:SET TCR BIT

C20ZA-10
CZDZAI.P11
9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368

9369

9370
9371
9372
9373
9374
9375
9376
9377
9378
9379
9380
9381
9382
9353
2384
9385
9386
9387
9388
9389
9390
9391
9392
9393
9394
9395
9396
9397
9398
9399
9400

021460
021462
021470

021472
021474
021476
021500
021502
021510
021514
021522
021524
021532
021534
021536
021540
021546
021554
021556
021564

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

005004
032777
001004
104414
005204
001371
104003
116077
005260
022760

001406

032777
001401
104013

021566
021574
021576
021600
021602
021604
021606

000750
012777
032777
001774
016077
005004
032777
001005
104414
005204
001371
104014
000410

021610
021612
021614
021616
021620
021622
021624
021626
021630
021634
021636
021642
021644
021646
021652

000240
000240
104000
000404
022626
104012
000401
022626
040277
104401
005237
106302
103402
000137
005037

100000

001422
001422

160352

160356

000017

001422

020000

160310

021626
100000

160324

001422

160302

020000

160246

S$:

63:

7s$:

160266

9s3:

10s:

11s:

160222

12s:
17s:

001372

22%:

021400
001362

SEQ 92

02-JUL-85
16:19 PAGE 83-73
CZDZA DZ11 DEVICE DIAGNOSTICS.

CLR
BIT
BNE
DELAY
INC
BNE
ERROR
MOvB
INC
CHP
BEQ
BIT
BEQ
ERROR
BR
MOV
BIT
BEQ
MOV
CLR
BIT
BNE
DELAY
INC
BNE
ERROR
BR
NOP
NOP
ERROR
BR
CMP
ERROR
BR
CMP
BIC
SCoP1
INC
ASLB
BCS
JMP
CLR

R4
gIRDY.flDZCSR

R4
63
3
TDOCRO),8DZTDR
TDOCRO)
:15..TDO(RO)
$

OS£LOAL.GOZCSR

13
5s
212% ,3DZRIV
#TRDY, 8DZCSR
.-6
TDO(RO),8DZTOR
R4
#SILOAL,3DZCSR
10¢
R4
9s
14
17¢

17$
(SP)+,(SP)+
12
17¢
(SP)+,(SP)«

R2,8DZTCR

SAVLIN
R2
.+6
3
LOCK

:#TRDY FAILED TO SET
;LOAD A CHARACTER
:SET UP NEXT CHARACTER
:15 CHARS YET?
;SILO ALARM = 0 ?
sYES
;#SILO ALARM SHOULD NOT = 1
;UNTIL 16. DATA CHARACTERS

:SET NEW VECTOR

;READY FOR 16TH CHAR

;LOAD THE 16TH CHAR.

;#SILO ALARM FAILED TO SET!
;SILO ALARM SHOULD =1 AFTER 16.
;DATA CHARACTERS
sSTALL
;SILO ALARM NOT INTERRUPTING.
;CONTINUE TEST.

sFAKE RTI
;RX SHOULD NOT INTERRUPT

sCONTINUE

;GOOD INTERRUPT TO HERE.

;CLR TCR BIT
;LOOP?
;INC EXPECTED LINE
sNEXT LINE

;NO

;YES
;CLEAR TIGHT LOOP FOR NEXT TEST

[
d o

CZDZA-10
CZDZAI.P11

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

02-JUL-85

16:19

SEQ 93

PAGE 84

CZDZA DZ11 DEVICE DIAGNYSTICE.

9402
9303

(2)

AR08

9404

941

(1)
(1)

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
94128
9439
9440
9441
9442
9443
9444
9445
9446
9447
9443
2349

-‘xz-.I.l.......'-....I-..-.,.-.I.
TEST

atsststsstsbtststsbsbbssbstsss

;#THIS TEST RUNS ALL LINES FULL BORE
;#BASED UPON QUALIFIED LINES
i¢..THIS IS AN INTERRUPT TEST ON THE RECEIVER AND

9405
9406
9407
9408
94309

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

000000000048

;#TRANSMITTER

s:¢
021656
021660

000004
012737

012737

000033

001122

022464

END

001360

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

SCOPE
MOV
O

MACR)

MOV

#33,8TSTNM

;LOAD THE NUMBER OF THIS TEST

====ss=zss:z2z3zz233s=%

@TST34 ,NEXT

;POINT TO THE START OF THE NEXT TEST

021674

104417

021676
021704
021710
021714
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
012777
052777
052777
052777
113777
106437

022034
022040
022044
022046
022052
022054
022060
022062
022066
022072
022074
022076
022100
022104

005037
013727
000000
005337
001375
105737
001002
000137
005237
001362
104007
104011
000137
000000

-$XZ-222232233s3s22323333z2zss2z222

ishe “0‘.““.“““..0“.“...‘.t‘.t.-\‘t

TST33:
i

021666

TEST 33

001364
001366
000001
001364

022462

END

RSTART:

INIT:

160124

1s:
001422
INIT1:

001462
022204
000340
022106
000340
000100
040000
000040
001364
030336

022104
007204

022044

160114
160110
160104
160100
160034
160026
160020
160026

SNAP ;
678:
68$:

022462

022362
022104

3s:

022434
€68:

DCLASM
O

MACR)

MOV
MOV

MOV
BIT
BEQ
MOV
INC

ASLB

BCC
MOV
CLR
CMP
BNE
MOV
MOV
MOV
MOV
BIS
BIS
BIS
MOVB

==z=ss=2z=sz22222

LINE,RXTCR
PAR,R1

#1,.RO
RO,LINE
13
R1,8DZLPR
R1

INIT
#TD0,RO
(RO)+
#STOP,RO
INIT1
#RXSVC,8DZRIV
#PR7,8DZRIS
#TXSVC,8DZTIV
#PR7,8DZTI1S
#RIE,8DZCSR
#TIE,9DZCSR
#MSENAB, 3DZCSR
LINE,8DZTCR

-SMRESET-===2=2zsss2ss22233zsssss=222=2

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

;SET IMAGE OF TCR BITS
;PICK UP PARAMETER
:sPICK UP INIT POINTER
zSSOULD THIS LINE BE SET UP

;SET UP LINE PARAM REGISTER

;GOT ‘EM ALL ?
;N

;CLEAR TRANS DATA POINTER & REC POINTERS
;FINISHED

MTPS

PLESS1

;NO, 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 !
;ALLOW INTERRUPTS

CLR
MOV
0
DEC
BNE
TST8
BNE
JMP
INC
BNE
ERROR
ERROR
JMP
0

66$
DLYCNT,(PC)-

:SET FOR DELAY

68$
.-4
RXTCR
3s
ouT
66
67%
:4
11
FINI

;WAIT FOR ALL RECIEVERS TO FINISH

i#TRANSMITTER

FAILED

INTERRUPT

;*RECEIVER FAILED TO INTERRUPT

CZDZA-10
CZDZAI P11
9450
9451
9452
9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
94383
9484
94385
9486
9487
9488
9489
9490
9491
9492
9493
9494
9495
9496
9497
9498
9499

9500
9501
9502
9503
9504
95C5

MACY11 30A(1052)

02-JUL -85 16:17

022106
022112
022114
022116

005777
100401
104003
117703

022122
022126
022130
022134
022140
022142
022144
022146
022150
022154
022156
022160
022162
022170
022174
022*°2
022202

042703
010304
010337
012702
105303
100402
006302
000774
030237
001001
104010
006304
116477
105264
001002
050277
00002

022204
022210
022212
022214
022220
022222
022224
022230
022234
022242
022244
022246
022250
022252
022254
022260
022262
022264
022270
022272
022274
022276
022300
022304
022306
022310
022314
022316
022322
022324

105777
100401
104004
017704
010403
000303
042703
010337
032777

001401
104000
005704
100401

104023
032704
001401
104000
012702
105303
100402
006302
000774
030237
001001
104011
013703
006302
126304
001405
016305

02-JUL-85

; TRANS INTR SVC ROUTINE

TXSVC:

157722
177770
001372
000001

001364

157676

157654

8DZCSR
.+4
3
8HDZCSR,R3
;NOW TEST FOR LINE & ETC
#tC<7> ,R3
BIC
MOV
R3,R4
R3,SAVLIN
MOV
MOV
#1,R2
R3
38:
DECB
BMI
4
ASL
R2
BR
3
4s:
R2,LINE
BIT
BNE
.+4
ERROR
10
ASL
R4
MOvVB
TDO(R4),3DZTDR
TDOCR4)
INCB
BNE
S$
B8IC
R2,3DZTCR
5s:
RTI

RXSVC:

157626

TSTB
BMI
ERROR
MOV
MOV
SWAB
BIC

MOV

157600

BIT
BEQ
ERROR
TST
BMI
ERROR
BIT
BEQ
ERROR

070000

000001

TST
BMI
ERROR
MOvB

;REC INTR SVC ROUTINE

157632

177770
001372
020000

Ss:

MOV

DECB
BMI
ASL

001364

001372
001442
001442

SEQ 94

PAGE 84-1

CZDZA DZ11 DEVICE DIAGNOSTICS.

157730

001422
001422

16:19

6$:

BR
BIT
BNE
ERROR
MOV
ASL
CMPB
BEQ
MOV

aDZCSR
.+4

8DZRBUF ,R4

R4 ,R3
R3
#tC<7> ,R3
R3,SAVLIN
OSELOAL.SOZCSR

: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?
;s YES
;NO,INVALID LINE!!!!?

;MAKE POWER OF 2

;LOAD CHARACTER
;SET UP NEXT CHARACTER
;LAST CHARACTER ?
;YES ,CLEAR TCR BIT

;REC DONE ?
;YES
;FALSE INTERRUPT
;:SAVE IT

;STRIP JUNK
;SAVE LINE NUMBER
;SILO ALARM?

:NO

;SILO ALARM SHOULD NOT =1
;DATA VALID SET?
s YES
;YOU LOSE
...DATA VALID WAS'NT SET

R4
.+4
23
#0VRRUN!FRMERR !PARER,R4
.+4
#1,R2
R3

6%
R2
S$
R2,LINE
.+4
11
SAVLIN,R3
R3
TRO(R3),R4
24
TRO(R3),RS

;RECEIVER ERROR FLAG/S WERE SET
:SET UP POSITION POINTER
;RE POSITION POINTER
;GO 'RCUND AGAIN
;LINE VALID ?
; YES
;INVALID LINE ¢
;GET THE LINE NUMBER AGAIN
;USE R3 AS A POINTER IN THE DATA TABLE
:DgES THE DATA CHARACTER COMPARE ?

;YES

;SAVE EXPECTED

Tfi CZDZA-I0

CZDZAI.P11
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517

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

022330

042704

022334
022336
022342
022346
022350
022354
022360

104005
005263
105763
001002
040237
012716
000002

022362
022366
022370
022372
022376
022402
022406
022410
022416
022420

106427
104413
005003
005037
012702
030237
001405
022763
001401
104027

022422

005237

SEQ 95

02-JUL-85
16:19 PAGE 84-2
CZDZA DZ11 DEVICE DIAGNOSTICS.

177400

001442
001442

2%:

022462
022034

BIC

#tC<377> ,R4

ERROR
INC
TST8
BNE
BIC
MOV
RTI

5
TRO(R3)
TROCR3)
.+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
;ALL CHARS DONE?
:ZERO LINE DONE INDICATOR.
;RESET THE BACKGROUND TIMING LOOP

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

022426

022430
022432
022434
022434
022442
022446
022454
022460
022462

005723

000340

ouT:

001372
000001
001364

1%:

000400

001442

001372

2%:

106302
103363

013777
005077
013777
005077
104400
000000

002074
157426
002100
157420

157430

FINI:

157422

RXTCR:

;FINISH UP ROUTINE
MTPS
#PR7
DEVICE.CLR
CLR
R3
CLR
SAVLIN
MOV
#1,R2
BIT
R2,LINE
BEQ
24
cMP
#400,TRO(R3)
BEG
.+4
ERROR
27
INC

SAVLIN

ASLB
BCC

R2
1

DZRIS,8DZRIV
8DZRIS
DZTIS,aDZTIV
aDZTIS

TST

(R3)+

95“

(2)

;VALID LINE ?
:NO
;RECEIVED A BINARY COUNT PATTERN ?
;YES
;THE LINE FAILED TO RECEIVE A FULL
;BINARY COUNT PATTERN
:SET UP FOR NEXT LINE
;ADD 2
:SET UP NEXT LINE POINTER
;FINISHED ?

;RESTORE TRAPCATCHER

;GO TO THE NEXT TEST
:RX IMAGE OF TCR BITS
:

ihbbkbb bbb kb hhbhbbhbihbbd

-’xz-llllltlSIISIIIIIISIaI88”88’.

TEST

sbstdbhbisbbbbbbhsbbdbbbbbbbds

9545
9546
9547
9548
9549
9550
9551
9552
9553
9554
9555

;#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
i* AND A LOWER TIME IS EXPECTED ON THE CURRENT PARAMETER.
: *PARAMETERS ARE:
;#
EIGHT BITS/PER/CHAR - TWO STOP BITS AT
e
50, 75, 110, 134.5, 150, 300, 600, 1200, 1800, 2000
i *
2400, 3600, 4800, 7200, 9600 BAUD.

9557
9558
9559

i
SEVEN, SIX, FIVE BITS/PER/CHAR.
i*AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS
;#THE NEXT SELECTED LINE IS THE TESTED.

9556

95690

Eb—

;STOP ALL INTERRUPTS
;:CLEAR ALL INTERRUPTS AWAY

THEN,

9600 BAUD - TWO STOP BITS AT

;

-$XZ-======zzzz===ss==zzzz=zz=z=z======

CZDZA-I0
CZDZAI.P11

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

9561

;:%

(s)

(4)
(2)

(2)

(1)
(2)

022474
022502

000004
012737
012737
012737

9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582

022510
022516
022522
022526
022532
022540
022546
022554
022556
022564
022570
022572
022576
022600
022604
022612
022620
022624
022630
022632
022634

012737
005037
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

[—

022464
022466

TEST 34

] ;‘..‘“..‘..“..‘.““““.“.“.“““‘.‘.“...““‘.““

000034
000002
023174

001122

TST34:
i

001226
001360

022634
025242
001372
001374
000001
010070
001216

001216
023172
001364

1$:

010070

023172

2%:

001422

END

001362

001462
001374
000007

001374

025242
001216

‘..“.

SCOPE
MOV

#34,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
MOV

#2,$TIMES
#TST3S,NEXT

;POINT TO THE START OF THE NEXT TEST

MACR)Q

MOV
CLR
CLR
CLR
MOV
MOV
BIT
BNE
MOV
MOV
CLR
CMP
BNE
INC
BIC
BIS
CLR
ASLB
BCC
ADVANCE

023172

3s:

====zssssss2s22s=2z==z==

#3$,L0CK
;SET FOR LOOP
OFFSET
;RESET THIS VARIABLE
SAVLIN
sRESET LINE NUMBER INDICATOR
XMTLIN
;USE THIS WORD TO TELL WHAT LINE TRANSMITTED
#1,$TMPO
;USE $TMPO AS A BIT POINTER
#RCVON!SSO!!EIGH
TWOSTOP,7
T
$ ;BUILD TEMPORARY PARAMETERS
$TMPO,LINE
;IS THIS LINE ACTIVE?
3s
;IF SO, GO GET STARTED
#RCVON!SSO!!EIGH
TWOSTOP,7$
T ;LOAD PARAMETERS TEMPORARILY
#TD0,RO
;POINT TO THE DATA AREA
(RO)+
;CLEAR A DATA WORD
#STOP,RO
;FINISHED ?
.-6
;:NO
XMTLIN
;POINT TO THE NEXT LINE TO TRANSMIT
87,78
;MAKE SURE TEMPORARY PARAMETERS POINT TO 0
XMTLIN,7$
;ADD DESIRED LINE NUMBER
OFFSET
$TMPO
;POINT TO THE NEXT LINE
1s
:PROCESS THE NEXT LINE
;TEST TO SEE IF THIS TEST GETS REPEATED
i

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
005037

SEQ 96

02-JUL-85
16:19 PAGE 84-3
CZDZA DZ11 DEVICE DIAGNOSTICS.

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$:
99s:
100$:

END

DCLASM
O

BIC
MOV
TST
BPL
CLC
ROR
BCC
CLC
BR
SEC
ROL
BIS
MOV
MOV
BIC
BIC
BIS
MOV
MOV
CLR
CMP
BNE
CLR
CLR
CLR

MACR)

~$MRESET-=====z=s==ss=z=223zzzzzzsss====2=

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

======z=====2=2=2=z=z=3z==

#RCVON, 7%
74%,3DZLPR
MODE
100¢
74
98¢
99
7%
#RCVON, 78
74%,3DZLPR
7% ,SAVLIN
#tC<7>,SAVLIN
#7,7%
XMTLIN,7$
7% ,REGIST
#TD00,RO

(RO)+

#STOP,RO
.-6
R2
R3
$TMP1

:ZERO PARAMTERS FOR TX LINE
;:LOAD PARAMTERS FOR TX
: STAGGERED?
;BR IF NO
:SET UP LINE
:
;BR IF LINE WAS EVEN
;PREPARE TO MKE LINE EVEN
;sCONTINUE
;PREPARE TO MAKE LINE 0ODD
: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
CZDZAI.P11
9608
9609
9610
9%11
%12
9613
9614
9615
9616
9617
918
9619
9620
9621
9622
9623
9624
9625
9626
- 9627
9628
9629
9630
9631
9632

9633
9634
9635
9636

023000
023004

023012

023020

023026
023034
023042
023050
023056
023062
023070
023072
023076
023100
023104
023106
023110
023114

023116

023124
023130
023134
023140
023142
023150
023152
023160
023162
023170
023172

MACY11l 30A(1052)

02-JUL -85 16:17
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

001224
000020
024664
025030
030334
030334
001216
040140
000000
000100

SEQ 97

02-JUL-85
16:19
PAGE 84-4
CZDZA DZ11 DEVICE DIAGNOSTICS.

CLR
MOV
MOV
MOV
MOV
MOV

001376
-57055
157044
157040
157036
157006
156764

156752

43:

S5s:

‘025242

000030

023172

000010

023172

000400

023172

$TMPO,SDZTCR

BIS
MTPS
BIT
BEQ
INC
BNE
INCB
BNE
ERROR

001224

000002
023172
170377
007000

MOvB

001220

007642

$TMP3
920, XMTCNT
#XMTSRV,8DZTIV
#RXISR1,80ZRIV
DZPRT,8DZRIS
DZPRT,8DZTIS

PC,SERV.G

SCoP1

ADD
MOV
BIC

B8R

;<*G>?

#400,7$
3
;

-‘;;RTST-I’IIIIIII..‘Il..lllll.’l...!.l.l

-s

SSSSESSZSSSSSIESEISI=SSSSS=SZTSSS=

ssdddbdbdbdbbbbhbbhbbhbhbhbhhbhhk

;% FOR ALL ODD LINES SELECTED AND THAT ODD PARITY WORKS FOR ALL

;# EVEN LINES SELECTED.
;#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY

D =5 10 = (o 1ob oo (o
o G O G4 LT ON G
=

= 0 PO T

TEST

;% THIS TEST VERIFIES THAT EVEN PARITY WORKS

o (o pa

NI NI NI NI NI NI NI NINI NI NININININININININININIIND

shkhhhbkhhbhhhkhbhhhhkbhhkhs
alalalalalealealealealalealealelealelelelealealeleleala)

;LOOP?

ADD
BR
0

#2 ,0FFSET
7% ,RO
#tC<17+400>,R0
#<16+400>,R0
64
#BIT4+BIT3,7$
24
#BIT3,
78

CMP
BNE
BIT
BEQ
SuB

6%:

;START THE VALID LINE

#TIE!RIE!MSENAB,3DZCSR
#0
;LOWER THE PRIORITY TO ALLOW INTERRUPTS
#RIE,8DZCSR
;IS ROUTINE DONE?
S$
;WHEN ALL IS DONE RX IE IS CLEARED IN ISR.
$TMP1
;COUNT TIME
4%
;CONTINVE TEST
$TMP3
;DOUBLE COUNT
4%
;CONTINUE TEST
11
s INTERRUPTS NOT FINISHED
.

JSR

;INITIALIZE THESE BITS ALSO
:SET HOW MANY CHARACTERS TO TRANSMIT

;#THAT

"“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 WILL BE ENABLED
;#AT THE SAME TIME!
;:%
;e

sikbkbihbkbhkbh

023174
023176

000004
012737

023204
023212
023216

012737
005737
100112

023220

104417

023222

013701

000035

001122

023446
001370

001360

;

001366

kbbb kb

TST35:
;

-‘xz-..-...-’-.’-'-"’I.-".-’--,'

TEST 35

END

khkkh kb

bk hkkhk kb hh

kb khhk kb kb hkh

kb hhhkhk kb kkk

SCOPE
MOV

#35,8TSTNM

;LOAD THE NUMBER OF THIS TEST

MOV
TST
BPL

#TST36 ,NEXT
MODE
6%

;POINT TO THE START OF THE NEXT TEST
;IS THIS STAGGERED MODE?
;IF NOT, DON'T DO THIS TEST

MACR)

DCLASM
O

MOV

MACRQ

=======s==s====s=s==z====

-$MRESET-===:=2=32333s3z33s333z3s==33==

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

==s===ss==c==s======

PAR,R1

;USE R1 TO BUILD PARAMETERS TO BE LOADED

CZDZA-I0
CZDZAI.P11

—

TO $0 1o bt b ot ot et ot Bt G IND QN = b Bt (s et s (ot ot b Pt et i )
N N N N NP N NI NI N N N N D N NI NI NI NI NI NINININININI D

I\f\fiflfl’\flflflf\fiflg"\’\f\flflfif\f\fiflflflfi

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

023226
023232
023236
023242
023246
023250
023254
023256
023262
023266
023272
023274
023276
023300
023304
023306
023312
023316
023320
023326
023332
023334
023340
023342

MACY11 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

023344
023352
023360
023366
023374

012777
012777
013777
013777
052777

023402
023410
023414
023422
023424
023426
023432
023434
023440
023442
023444

113777
106427
032777
001410
104414
005237
102770
105237
100365
104011
104400

000200
000100
000001
001364

1$:

000001

000200
156564
000200

2$:
3s:

001376

001462

030334
030334
040140
001364
000000

000100

#0DDPAR,R1
OPARITY,R1
#1,R2
R2,LINE
3
#8ITO,R1
2%
#0DDPAR, R1

:MAKE SURE ODD PARITY ISN'T SET
sMAKE 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 ODD, USE EVEN PARITY
;IF IT'S EVEN, USE ODD PARITY

BIC
INC
ASLB
BCC
CLR
CLR

#0DDPAR,R1
R1
R2
1s
SAVLIN
R2

;SET UP THE NEXT PARITY TO EVEN
;POINT TO THE NEXT LINE
sMOVE 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

CLR
CLR

COUNT1
R3

i ::2-10-84 ECB REV I
;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS

CLR

024660
024662

024664
024506

BIC
BIS
MOV
BIT
BEQ
BIT
BNE
BIS
MOV

001372

000040
001422

SEQ 98

02-JUL-85
16:19
PAGE 84-5
CZDZA DZ11 DEVICE DIAGNOSTICS.

156524
156512
156506
156504
156440

156446

156420

5¢%:

024660
024662

6%:

END

R1,80ZLPR

COUNTO

;LOAD THE LINE PARAMETER REGISTER

::2-10-84 ECB REV I

MOV
MOV
CLR
CMP
BNE
CLR

(RO)+
#STOP,RO
.-6
RO

MOV
MOV
MOV
MOV
BIS

#XMTSRV,@DZTIV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
#PARESE,8DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
DZPRT,8DZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
¢RIE!TIE!MSENAB,SDZCSR ;ENABLE THE DEVICE

#40, XMTCNT
#TD0,RO

MACRO

MOvB
MTPS
BIT
BEQ
DELAY
INC
BVS
INCB
BPL
ERROR
ADVANCE

s TRANSMIT A BINARY COUNT PATTERN(00-40)
;POINT TO THE DATA AREA

;:CLEAR A DATA WORD
;FINISHED ?
;NO
;CLEAR OFFSET
i

~$INTSET-=s==2==sss=s33s2=2s3=zss333==z3=2=

=======3==z=z=z3=zz333=

LINE,8DZTCR
#0
#RIE,9DZCSR
6%

COUNTO
S$
COUNT1
S5
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 LOOP

: :- END 0 MACR) =======3z3zzz33s=3=3=
;i

:
ihbbkkhbhhihbhihbbbbbbnbks

-$PARTST-====3sss=zszasssssssszzzzs3333333=

-$XZ-=2333zz33zszz33333s3a333333333
TEST

#tsdsbbhbbhhbbbbbhbhbbhhbbbbdd

;#THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL ODD LINES
;# SELECTED AND THAT EVEN PARITY WORKS FOR ALL EVEN LINES SELECTED
;#THE MAIN FUNCTION OF THIS TEST IS TO VERIFY
;#THAT “PE” (PARITY ERROR) CAN BE FLAGGED BY
;#THE UARTS. THIS TEST WILL NOT BE DONE UNLESS
;#YOU ARE IN “STAGGERED” MODE.
:#40(8) CHARS ARE USED FOR THIS TEST.
;#ALL SELECTED LINES WILL BE ENABLED

;#AT THE SAME TIME!

‘

-’xz-’.'."""".'I.'I'.'."”’.:

CZDZA-I0
CZDZAI.P11

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

;:%«
023446
023450

000004
012737

)
)
)
)
;

023456
023464
023470

012737
005737
100112

;

023472

104417

000036

TST36:
SCOPE
ENDHgvHACR0.36.‘TSTN"

001122

s s e

N Nl N N N N N N N N N N N NI NI NN NININI NG

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
023706
023712
023714
023716

113777

023720
001370

032777
001410
104414
005237
102770
105237
100365
104011
104400

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

;LOAD THE NUMBER OF THIS TEST

=zszzzzssssssssz=ss=

001360

MOV
ST
BPL

#TST37 ,NEXT
MODE
6$

;POINT TO THE START OF THE NEXT TEST
:IS THIS STAGGERED MODE?
:IF NOT, DON'T DO THIS TEST
i

001366
000200
000100
000001
001364

END

000001

000200
156312
000200

2%:
3$:

001372

024660
024662
000040
001422

001376

001462

024664
024506
030334
030334
040140

156252
156240
156234
156232
156166

001364

000000

000100

MTPS

024660

PAR,R1
#0DDPAR,R1
#PARITY,R1
#1,R2
R2,LINE
3$
#B8IT0,R1
24
#0DDPAR,R1
R1,8DZLPR
#0DDPAR,R1
R1
R2
1$
SAVLIN
R2
COUNTO
COUNT1
R3
#40, XMTCNT
#TDO,RO
(RO)+
#STOP,RO
.-6
RO

024662

#RIE,8DZCSR
6$

BVS
INCB

S$
COUNT1

BPL

END

LINE,®DZTCR

BIT
BEQ
DELAY
INC

Sssssss=Tsssssss=ss=

;USE R1 TO BUILD PARAMETERS TO BE LOADED
;MAKE SURE CDD PARITY ISN'T 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 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
i ::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(00-40)
;POINT TO THE DATA AREA
;CLEAR A DATA WORD
;FINISHED ?
;NO
3CL§22T22$SET

=zszsszssssssszs==z

5%:

;CLEAR DEVICE AND SET MAINT BIT IF I MODE

HACRO

MOVB

6$:

~$MRESET-2===s=s2s=2ss23sssssssszz2szzz=

MOV
#XMTSRV,80ZTIV
;SET UP THE TRANSMITTER INTERRUPT VECTOR
MOV
#PARESE,8DZRIV
;SET UP THE RECEIVER INTERRUPT VECTOR
MOV
DZPRT,8DZRIS
;SET THE INTERRUPT VECTOR STATUS
MOV
DZPRT,8DZTIS
;SET TRANSMITTER INTERRUPT PRIORITY
ENoagsHACROORIE!TIE!"SENAB.OOZCSR ;ENABLE THE DEVICE

156174
156146

DCLASM

MOV
BIC
BIS
MOV
BIT
BEQ
BIT
BEQ
BIS
MOV
BIC
INC
ASLB
BCC
CLR
CLR
CLR
CLR
CLR
MOV
MOV
CLR
CMP
BNE
CLR

1s:

106427

TEST 36

;g“.‘.‘“““.‘.““““‘“““..“.“‘..“

)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)
)

SEQ 99

02-JUL-85
16:19
PAGE. 84-6
CZDZA DZ11 DEVICE DIAGNOSTICS.

COUNTO

;WHEN RX DONE; RIE WILL =0
;BR IF ALL DONE
i ¢s 2-10-84 ECB REV I

ERROR
11
ADVANCE
O

;ENABLE ALL SELECTED LINES

;ALLOW INTERRUPTS

MACR)

:#RX FAILED TO FINISH CINTERRUPT)
;ADVANCE LOOP

========s===z=z==z=z=zz==

CZDZA-I0
CZDZAI.P11

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

9641

(2)

ihdbdd bbb bbbhbhbbbiiitns

9642
9643
9644
9645
9646
9647
9648
9649.
9650
9651
9652
9653

(5)
(4)
(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

SEQ 100

02-JUL-85
16:19
PAGE 84-7
CZDZA DZ11 DEVICE DIAGNOSTICS.

i«
i#
i*
i#
i &

-$XZ-=223s==222222223sssssss2s23333
TEST

stsststbstssbstbstdddbbbdtssns

ECB 21-FEB-84
BAUD RATE TIMING TEST.
THIS TEST ADDED IN ORDER TO TEST CRYSTAL
SPEEDS.
IT LOOKS FOR EITHER A KW1iL OR KW11P.
IF EITHER IS AVAIL.
THEN THE TEST IS RAN.
IF NEITHER AVAILABLE, THEN TEST IS NOT RAN.

;% KR
18-JUN-84
i* ADDED NUMBERS IN TTABLE AND NOW TEST ALL LINES AT ALL BAUD RATES
i# INSTEAD OF JUST LINE O AT ALL BAUD RATES.

i1 &

TEST 37

;;ttttt‘tt‘it‘tt“t‘t"t‘t‘tt‘“t‘t““‘.

023720
023722

000004
012737

000037

001122

023730

012737

004712

001360

MOV

023736
023744
023746
023750
023750
023754
023760
023766
023772
024000
024006
024012
024016

032777
001001
104400

000040

155214

BIT
#BITS,
BNE
1$
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

024062

012711

024066

000451

024070
024072
024076

022626
010037
104400

024100
024104

005237
000002

-$XZ-=22zzzz3zzzss3=223zszszzsss===22

TST37:
SCOPE
ENDHgVHACR0037.3TSTNH

024070
024100
000340
172540
177777

MTPS
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOV

000004
000100
000102

000004
000104
000106

10¢:

000002

000133

000004

024106

#$EOP,NEXT

aSWR

#0
844 ,RO
#10%,8944
#177546,R1
#CLKSRV, 8#100
#340,84102
BCOUNT
CCOUNT
#100,(R1)

‘tt‘tlt“““‘ttt‘t“t‘.

;LOAD THE NUMBER OF THIS TEST
;POINT TO THE END-OF -PASS HANDLER

;RUN THIS TEST?
: BRANCH IF YES
; OTHERWISE, BYE
;:DROP PRIORITY TO O
:SAVE CONTENTS OF LOCATION 4.
;SET TO TRAP IF NOT KW1iL
:GET KW11iL ADDRESS.
:SET FOR INTERRUPT.
;PRORITY 7 ON INTERRUPT.
;OUR OWN CLOCK TICK COUNTER
:CHAR SENT COUNTER
;THIS WILL CAUSE A BOMB TO OCCUR IF

:THE KW11iL DOES NOT EXIST
;BUT IF ITS THERE, THEN WE'RE STARTED.

TCCONT

;START TEST

CMP
MOV
MOV
MOV
MOV
MOV

(SP)+,(SP)+
#20% ,944
#CLKSRV,8#104
#340,84106
#172540,R1
#-1,2(R1)

;READJUST STACK
;SET TO TRAP IF NO KW11iP
;SET FOR INTERRUPT.
;PROITY 7 ON INTERRUPT.
:KW11P ADDRESS.
:SET THE & OF COUNTS FOR INTERRUPT (1)

;NOTE, IF KW11P DOES NOT EXIST, THEN
;WE WILL BOMB FROM THIS PLACE.

MOV

#133,(R1)

:SET INTERRUPT ENABLE,UP COUNT,REPEATED

TCCONT

:START TEST.

: INTERRUPT,LF CLOCK, AND RUN.

20$:

CMP
(SP)+,(SP)+
MOV
RO,844
ADVANCE

;READJUST STACK, NO CLOCKS AT ALL!
;RESTORE LOCATION 4
;GET 0UT.

CLKSRV:

INC
RTI

;CLOCK INTERRUPTS TO HERE,
;THEN EXIT.

CCOUNT

UPDATE COUNT.

CZDZA-I0
CZDZAI.P11
9691
9692
9693
329;
9

024106
024110
024112
024114

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

CCOUNT:
BCOUNT:
DCOUNT:
ECOUNT:
;¢

3233

;

.WORD
.WORD
.WORD
.WORD

;TTABLE: .WORD
:
.WORD
H
JMORD
:
.WORD

g;gg

O
©
O
O

;INCREMENTED BY CLKSRV. #CLOCK TICKS.
;USED BY TCCONT AS TIMER.
;USED BY TCCONT AS TIMER.
;USED BY ERROR REPORTING.

THESE NUMBER WHERE WORKING GREAT ON A PDP-11/24 RUNNING AT 60 HERTZ

9698
9699
9700
9701

SEQ 101

02-JUL-85
16:19
PAGE 84-8
CZDZA DZ11 DEVICE DIAGNOSTICS.

:
:

.WORD

5., 7.
7., 9.
11., 18.
13., 15.

;COUNT
;COUNT
;COUNT
;COUNT

OF
OF
OF
OF

CHAF.S
CHARS
CHARS
CHARS

OUT
OUT
OUT
OUT

FOR
FOR
FOR
FOR

SO BAUD
75 BAUD
110 BAUD
134.5 BAUD

15.,

17.

;COUNT OF CHARS OUT FOR 150 BAUD

9704
9705
9706
9707

3
3
:
:

.WORD
.WORD
.WORD
.WORD

29., 32.
59., 62.
119., 122.
179., 182.

;COUNT
;COUNT
;COUNT
;COUNT

OF
OF
OF
OF

CHARS
CHARS
CHARS
CHARS

OUT
OUT
OUT
OUT

FOR
FOR
FOR
FOR

300 BAUD
600 BAUD
1200 BAUD
1800 BAUD

9710
9711
9712
9713
g;lg
1
9716
9717
9718
9719
9720
g;z;
2
9723
g;z;
2
9726
9727
9728
9729
9730

:
:
:
:
3
)

.WORD
.WORD
.WORD
.WORD
.WORD

239.,
359.,
479.,
719.,
959.,

;COUNT
;COUNT
;COUNT
;COUNT
;COUNT

OF
OF
OF
OF
OF

CHARS
CHARS
CHARS
CHARS
CHARS

OUT
OUT
OUT
OUT
OUT

FOR
FOR
FOR
FOR
FOR

2400
3600
4800
7200
9600

3;83

000005
000007
000013
000014

000007
000014
000021
000024

024142
024146

000035
000072

9735
9736

024152
024156

g;;?
8
9739

2
9733
9734

9740
9741
9742
9743
9744
9745
9746

—

199., 202.
242.
362.
482.
722.
962.

;COUNT OF CHARS OUT FOR 2000 BAUD

;e
; THESE NUMBER WHERE MODIFIED SO THEY WOULD WORK ON
; 50 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.
3
; THIS TABLE WAS REDONE TO INCLUDE THE 2% ALLOWABLE
; POSSIBILITY OF AN INCOMPLETE TICK AT THE START OF
‘024116
024122
024126
024132

g;gl

.WORD

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 OF
;COUNT OF

024162

000300

000364

.WORD

192.,

244.

;COUNT OF CHARS OUT FOR 2000 BAUD

024166

000347

000444

.WORD

231.,

292.

;COUNT OF CHARS OUT FOR 2400 BAUD

024172
024176
024202
023206

000533
000716
001265
001635
024212

.WORD

000664
001104
001544
002204
ENDTTB

.WORD
.WORD
.WORD
.WORD
=.

14., 21.

347.,
462.,
693.,
925.,

40.
76.

436.
580.
868.
1156.

OUT
OUT
OUT
OUT

FOR
FOR
FOR
FOR

PLUS THE

;COUNT
;COUNT
;COUNT
;COUNT

000025

CHARS
CHARS
CHARS
CHARS

ERROR RATE,
THE TIMING.

5., 7.
7., 12.
11., 17.
12., 20.

000016

OF
OF
OF
OF

A
60 HERTZ.

.WORD
.WORD
.WORD
.WORD

024136

TTABLE:

BAUD
BAUD
BAUD
BAUD
BAUD

S0 BAUD
75 BAUD
110 BAUD
134.5 BAUD

;COUNT OF CHARS OUT FOR 150 BAUD

CHARS OUT FOR
CHARS OUT FOR

;COUNT OF CHARS
;COUNT OF CHARS
;COUNT OF CHARS
;COUNT OF CHARS
;END OF TTABLE

OUT
OUT
QUT
OUT

FOR
FOR
FOR
FOR

1200 BAUD
1800 BAUD

3600
4800
7200
9600

BAUD
BAUD
BAUD
BAUD

CZDZA-I0
CZDZAI.P11
9747
9748
9749
9750
9751
g;gg

9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
336;
6
9769
9770
9771
3;;%

;
H

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

SEQ 102

02-JUL-85
16:19 PAGE 84-9
CZDZA DZ11 DEVICE DIAGNOSTICS.
CHECK OUT THE CLOCK

TCCONT:

MOV
CLR
MOV

RO ,8944
CCOUNT
#-30,BCOUNT

;RESTORE LOCATION 4.
;START WITH LINE CLOCK AT ZERO COUNT
:30-18MS LOOPS TO WAIT

10s:

TS7
BNE
INC
BNE
INC
BNE
CLR
ADVANCE

CCOUNT
20%
DCOUNT
10$
BCOUNT
10¢
(R1)

sWAIT FOR COUNT TO GO TO 1 TO AVOID
sUSING THAT DANGEROUS FIRST COUNT!
;BUT AS A SAFE GUARD,
;DON'T HANG HERE

024110

024112

024110

;CLEAR CLOCK
;CLOCK NOT WORKING RIGHT- ABORT TEST
;NOT THE FAULT OF THE DZ!

H
i START XMITTING CHARACTERS TO ALL 8 LINES AT ALL BAUD RATES.
; IF THE NUMBER OF CHARACTERS TRANSMITTED IS BETWEEN THE
i TWO NUMBERS IN TTABLE THEN THE LINE IS OK, ELSE ERROR
H
024256
024264

024270

012777
012700

000050
000030

012703

000001

155556

20%:

MOV
MOV

MOV

#50,8D2CSR
#30,R0

#1,R3

;SET MSE AND MAINT.
;SET BAUD RATE S0, 8 BIT CHAR LEN

:HOLDS CURRENT LINE, START AT LINE 0

9774
3;;2

024274
024300

110377
012702

155556
024116

30$:

MOVB
MOV

R3,8DZTCR
#TTABLE,R2

;ENABLE THE NEXT LINE TO XMIT
:GET TABLE OF EXPECTED RESULTS

9777
9778
g;zg

024304
024310
024314

010077
005037
005037

155542
024110
024106

40%:

MOV
CLR
CLR

RO,8DZLPR
BCOUNT
CCOUNT

;UPDATE THE BAUD RATE AND NEXT LINE
;REUSE TIMER AS XMIT CHAR COUNTER
;CLEAR CLOCK INTERRUPT COUNTER

9781
9782
9783
9784
9785
9786
9787
9788
9738
97
9791

024320
024326
024330
024334
024336
024344
024350
024352
024354

022737
001413
005777
100371
112777
005237
102363
005011
104400

000074

50%:

CMP
BEQ
TST
BPL
MOVB
INC
BVC
CLR
ADVANCE

#60. ,CCOUNT
60$
8DZCSR
S0¢
#101,80ZTDR
BCOUNT
S0$
(R1)

;LOOP FOR 60 CLOCK TICKS
;EXIT WHEN THAT OCCURS.
;READY TO XMIT A CHAR?
;NO, THEN WAIT
;XMIT A CHAR
:UPDATE XMIT COUNT, SHOULD NOT OVERFLOMW.
;IF NO OVERFLOW, CONTINUE
;IF OVERFLOW, CLOCK COULD BE BAD, CLEAR IT
;ABORT THIS TEST IF CLOCK 10-2.°'

CLR

CCOUNT

BEQ
TST
BPL
CMP
BLO
CMP
BHI
ADD
ADD
CMP

654
8DZCSR
60$
BCOUNT,(R2)
708
BCOUNT,2(R2)
708
#400,R0O
#4 ,R2
#ENDTTB,R2

9792

9793
9794
9795
9796
9797
9798
9799
9800
9801
98C2

}b—

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

024356

024362

024370
024372
024376
024400
024404
024406
024414
024416
024422
024426

005037

022737

001403
005777
100367
023712
103422
023762
101016
062700
062702
022702

024106

155506
000101
024110

155522

024106

000074

024106

60$:

CMP

155444

024110
024110

000400
000004
024212

65%:
000002

#60. ,CCOUNT

;LOCP FOR 60 CLOCK TICKS

;EXIT WHEN THAT OCCURS.
; WAIT FOR LAST CHARACTER TO GO
; SPIN IF NOT DONE
;IF COUNT < LOW
:
THEN ERROR
;IF COUNT > HI
:
THEN ERROR
;NEXT BAUD RATE
;GET NEXT PAIR OF NUMBERS
;HIT END OF TTABLE?

CZDZA-I0
CZDZAI P11
024432
024434
024440

024442

024444
024446
024450

MACY11l 30A(1052)

02-JUL-85 16:17
001324
042700
005200
106303
103313
005011
104400

SEQ 103

02-JUL-85
16:19
PAGE 84-10
CZDZA DZ11 DEVICE DIAGNOSTICS.

BNE
BIC
INC

007400

ASLB

404
#7400,R0
RO
R3
304

BCC
(R1)
CLR
ADVANCE

sNO, CONTINUE TESTING (HIS LINE
;:BRING THE BAUD RATE BACK TO S0
sAND GET NEXT LINE NUMBER
sMOVE ONTO THE NEXT LINE
;IF NOT DONE WITH ALL LINES THEN CONTINUVE
;ELSE STOP CLOCK
;AND DO THE NEXT TEST

; ERROR - COUNTER NOT IN THE RANGE OF THE NUMBERS IN TTABLE
024452
024454
024460
024466
024472
024476
024500
024504

005011
011237
016237
042700
010037
104030
004737
104400

024114
000002
177770
001372

708:
024112

007642

CLR
MOV
MOV
BIC
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 ROUTINECPARITY TEST ONLY)
9828
9829

9831
9832
9833
9834
9835
9836
9837
9838
9839
9840
9841
9842
9843
9844
9845
9846

9847
9848

9849
9850
9851
9852
9853
9854
9855
9856
9857
9858

024506
024512
024514
024516
024522
024526
024530
024532
024534
024536
024542
024544
024552
024554
024560
024564
024570
024572
024576
024600
024604
024610
024614
024616
024622
024624
024630
024634
024642
024644
024646

017704
010401
000301
042701
010137
005704
100401
104023
006301
032704
001013
013737
010405
042705
156105
052705
104006
126104
001407
116105
042705
042704

104005

005261
005203
005037
005037
032777
001005
020203
001003

155334

PARESE:

177770
001372

10s:

010000
002046

001400

000377
001442

110000

001442

11%:

001442
177400
177400
001442

024660
024662
040000

12%:

155200

MOV

MOV
SWAB
8IC
MOV
TST
BMI
ERROR

ASL

BIT
BNE
MOV
MOV
8IC
BISB
BIS
ERROR
CMPB
BEQ
MOvVB
8IC
8IC
ERROR
INC
INC
CLR
CLR
BIT
BNE
CMP
BNE

8DZRBUF ,R4

R4 ,R1

R1
#tC<7> ,R1
R1,SAVLIN
R4
10$

DZRBUF ,REGIST

R4 ,R5
#377.RS

;:GET THE CHARACTER
:COPY THE RECEIVED INFORMATION
;GET THE LINE NUMBER IN THE LOWER BYTE
;ISOLATE THE LINE NUMBER
sFILL LOC. FOR ERROR PRINTOUT
;WAS DATA VALID?
:BRANCH IF YES
;ERROR - DATA VALID NOT SET!
sALIGN IT ON A WORD BOUNDARY
;PARITY ERROR SHOULD BE SET. IS IT?
+IF SO, GO CHECK CHARACTER
:SET UP FOR THE ERROR MESSAGE

TROCR1),RS
:GET THE CORRECT CHARACTER
@DVALID!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
TROCR1),RS
;LOAD THE CHARACTER FOR ERROR REPORTING
@tC<377>,RS
;CLEAR SIGN EXTEND

;fC¢377>.R4
TRO(R1)
R3
COUNTO

COUNT1

¢TIE,8DZCSR
13¢
R2,R3

sREMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER
;:DATA ERROR
:SET UP THE NEXT CHARACTER
:ADD TO THE TOTAL RECEIVED COUNT
;RESET COUNTERS TO NEXT
;RECIEVER INTERRUPT
;ARE TRANSMISSIONS DONE?
:IF NO, GO RECEIVE SOME MORE

sARE ALL CHARACTERS RECEIVED?

:IF NO, GO RECEIVE SOME MORE

CZDZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL -85 16:17

024650

024656
024660
024662

042777
000002

000100

02-JUL-85

16:19

SEQ 104

PAGE 84-11

CZDZA DZ11 DEVICE DIAGNOSTICS.

155164

000000
000000

13s:

8IC

RTI

ORIE,S8DZCSR

:DISABLE RECEIVER INTERRUPTS

:GO BACK TO RECEIVER WAIT LOOP

s TRANSMITTER 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
001372
177770
001372

001422
001422

XMTSRV: MOVB
BMI
MOV

SHDZCSR,R1
13
SAVLIN,RO

;GET THE LINE NUMBER. IS THE TRANSMITTER
sREALLY READY? IF SO, GO LOAD THE CHARACTER
sADJUST LOCATION SAVLIN

MOV

R1,SAVLIN

:FOR ERROR PRINTOUT

MOV

RO,SAVLIN

sRESET SAVLIN TO PREVIOUS VALUVE

MOV

TDO(R1),80ZTOR

;LOAD THE CURRENT CHARACTER FOR THIS LINE

8IC

ERROR

001372
177770

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

1%:
155136

8IC
ASL
INC

#tC<7> ,R1
3

#tC<7> ,R1
R1
TDO(R1)

s ISOLATE THE LINE NUMBER

s#TRANSMITTER NOT READY- FALSE INTERRUPT

sISOLATE THE LINE NUMBER
sMAKE SURE IT REFERENCES A WORD BOUNDARY
$SET UP NEXT CHARACTER FOR THIS LINE

(8888888888448 8884844584848488884880888048888008000000008000004
0

1888888884 88888854884880 8488888488088 048 0080040028440

024734
024742
024744

024750
024752

024754
024756
024760
024762
024766
024770

024776

023761
001015
012700
006201
005301
100402
006300
000774
140077
001003
042777

001376

001422

000001
24:

CMP
BNE
MOV
ASR
DEC
BMI

XMTCNT,TDO(R1)

BR
BICB
BNE
BIC

2
RO,8DZTCR

ASL

155070
040000

3$:

155044

005202

s(REV. FO: DELETED

tHAVE WE DONE ALL PATTERNS ON THIS LINE?

+IF NOT, KEEP ON TRANSMITTING
+SET UP A DESELECTION POINTER
;GET THE LINE NUMBER AGAIN

OTIE,8DZCSR

sREDUCE THE COUNT. WAS THIS THE LINE?
+IF SO, GO DISABLE THE EMABLE BIT FOR IT
tMOVE THE POINTER TO THE NEXT LINE
;GO CHECK THE NEXT LINE
;DISABLE THE LINE POINTED TO BY RO
+IF MORE LINES ARE ACTIVE , GO CONTINUE TRANSMIT
:IF NOT, DISABLE TRANSMITTER INTERRUPTS

1885504000008

4400088000080 80 004408840084 020008000 000000000000 0000408

INC

tUP THE NUMBER OF TRANSMISSIONS

(5258885804848 8058 8440508405888 8 0858040400840

025000

0808080084 0

000002

RTI

0000 00000000 00004000 4048

(REV. FO)

;RETURN TO THE TIMING LOOP

+ RELATIVE TIME BUILDING ROUTINE
025002
025010
025014
025020

012737
006037
006037
005337

025024
025026

001371
000207

000004
001224
001220
001222

001222

BUILD:
14:

MOV
ROR
ROR
DEC

04,3THP2
$THP3
$TMPL
$TMP2

BNE

13
PC

RTS

sROTATE 4 BITS BACK INTO $TMP1

:GET THE BITS FROM $TMP3, THE HIGH BYTE
;OF THE RELATIVE TIME COUNTER. PUT THEM BACK
sINTO $TMP1 USING THE CARRY BIT WITH
sROTATE INSTRUCTIONS
sREDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE
;RETURN TO CALLING TEST

INC

CZDZA-10
CZDZAI.P11
9910
9911
9912
9913
9914
9915
9916
9917
2918

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

9951
9952
9953
9954
9955
9956

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

SEQ 105

02-JUL-85
16:19
PAGE 84-12
CZDZA DZ11 DEVICE DIAGNOSTICS.

+RECEIVER SERVICE ROUTINE
025030
025034

105777

025036
025040
025044
025046
025050
025054
025056
025062
025064
025066
025070
025074
025076
025102
025104
025110
025114
025120
025124
025130
025132
025136
025140
025146
025150
025152
025154
025156

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

025162
025166
025174
025200
025202
025204
025212
025214
025220
025224
025230
0235232
025240
025242

013700
013760
005737
001414
005740
026037
101007
016005
010137
006237
104021
042777
000002
000000

155006

RXISR1:

155002

18:

070000

2%:

TST8
BMI
ERROR
MOV

BMI
ERROR
BIT

002046

TRO(R1)
R3
#20,TRO(R1)
S$
R2,R3
6%

001442

Ss$:
6$:

025242
001220
025242

PC,BUILD
MOV
MOV
TST

002102

BEQ
002102

TST

CMP
BHI

001220

002102
001372
001372

000140

154602

7s:

OFFSET:

MOV
MOV
ASR
ERROR

BIC

RTI

+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

23
Q0VRRUN!FRMERR !PARER,R4 ;ARE ANY ERROR FLAGS SET?
3s
:IF NOT, GO CONTINUE PROCESSING
gZRBUF.RO
:SET UP FOR ERROR REPORTING

43
:

001442
177400
177400
001372
001372

025002

#0ZRBUF ,R4
23

R4 ,R1
R1
#tC<7?> ,R1
R1
R4,TRO(R1)
43
TROCR1),RS
&tC<377>,RS
#tC<377>
R4
R1,SAVLIN
gAVLIN

001442

000020

3s:

177770

001442

80ZCSR
1s

:ERROR- RECEIVER ERROR FLAG SET
;COPY THE RECEIYER INFORMATION
:GET THE LINE NUMBER IN THE LOWER BYTE
sISOLATE THE LINE NUMBER
sALIGN IT ON A WORD BOUNDARY
;IS THE CHARACTER WHAT IT SHOULD BE?
:IF SO,GO0 CONTINUE PROCESSING
;GET WHAT WAS EXPECTED FOR ERROR REPORTING
;ELIMINATE PROPAGATED SIGN
;ISOLATE THE ACTUAL CHARACTER
;GET THE LINE NUMBER OF THE RECEIVER ERROR
;ALIGN IT CORRECTLY FOR REPORTING
;*DATA ERROR
:SET UP THE NEXT EXPECTED CHARACTER
s 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)

OFFSET,RO

:GET POINTER
i SAVE THIS TEST'S TIME
OFFSET
;FIRST TEST?
78
:IF NOT, GO CHECK THE TIME
-(RO)
;POINT TO THE PREVIOUS
TIME TAKEN
TMTBL(RO), $TMPL :IS THIS TIME WHAT IT SHOULD BE?
78
:IF SO, GO TO THE NEXT TEST
TMTBL(RO),RS
iPLACE WHAT WAS EXPECTED IN RS
R1,SAVLIN
:GET THE LINE NUMBER OF THE RECEIVER
SAVLIN
;MAKE SURE IT'S THE LINE NUMBER
2l
; TIMING ERROR
$TMP1, TMTBL(RO)

#RIE!MSENAB,3DZCSR

;DISABLE THE DEVICE

;RETURN TO THE PROGRAM

ans

Z0ZA-I0
CZDZAI.P11

MACY11 30A(1052)

02-JUL -85 16:17

02-JUL-85

9958
9959

16:19

SEQ 106

PAGE 85

CZDZA DZ11 DEVICE DIAGNOSTICS.

:0Z11 ECHO/CABLE TEST
;#STARTING PROCEDURE
:#LOAD PROGRAM
:#LOAD ADDRESS 000210
;#PRESS START

;#PROGRAM WILL

TYPE

;#PROGRAM WILL TYPE

;oTYPE IN
E
OR
C
;*PROGRAM WILL TYPE

DZ11

ECHO/CABLE

TEST

WHICH TEST- ECHO OR CABLE
RESPECTIVELY

“VECTOR

ADDRESS-*

;#TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR

;#FOR THE DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>

;#PROGRAM WILL

TYPE

“CONTROL REGISTER ADDRESS"

;#TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
;#FOR THE DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>

;*PROGRAM WILL

TYPE

“LINE

NUMBER-“

;¢TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL)
;¢,FOLLOWED BY <CARRIAGE RETURN>
:#PROGRAM WILL TYPE “BAUD RATE-*

;#TYPE

IN THE BAUD RATE

THE DZ11

TERMINAL

;¢ ,FOLLOWED BY <CARRIAGE RETURN>
:#THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL
50
it

i e

i*
9985
9987
9988
9989
9991
9992

9993

9994

9996
9997
9998

10002
10003
10004
10005
10006
10007
10008
10009
10010
10011
10012
10013
10014
10015
10016

110

1338

i*
Y
L
i*
H

150
300
600
1200
1800

L
Y
L
B
i%

2400
3600
4800
7200
9600

;#ALL

OTHERS

(ROUNDED OFF

134.5)

ARE REJECTED

;#*PROGRAM WILL TYPE "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
#PR7
@XSTART, SLPADR

STFLG
$PASS
SERTTL
$ERFLG

:SET UP PROCESSOR STACK
;LOCK OUT INTERRUPTS
;SET UP IN CASE OF POWER FAIL

;:CLEAR
;:CLEAR
;CLEAR
;:CLEAR

TEST START FLAG
PASS COUNT
ERROR COUNT
ERROR FLAG

CZDZA-I0
CZDZAI 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
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065
10066
10067
10068
10069
10070
10071
10072

025302
025306
025314
025316
025322
025326
025330
025332
025334

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

005037
027444
032777
000001
001465
012701
000300
012702
000302
010221
005022
022122
020127
001000
025340
001372
025342
104403
025344
027472
025346
104405
025350
000300
025352
000770
025354
002072
025356
003
025357
004
025360
104403
025362
027514
025364
104405
025366
160000
025370
1677170
025372
00
°
025374
ou7
025375
001
025376
013737
002042
025404
062737
000002
025412
013737
002046
025420
013737
002046
025426
062737
000002
025434
013737
002056
025442
005237
002060
025446
013737
002056
025454
062737
000002
025462
013737
002066
025470
032777
000002
025476
001427
025500
104403
025502
027700
025504
104416
025506
027436
025510
104403
025512
027622
025514
104415
025516
000062
025520
022600
025522
027454
025524
000
025525
001
025526
104413
025530
005037
027440
025534
104403
025536
027612
025540
104405
025542
000000

SEQ 107

02-JUL-85
16:19
PAGE 85-1
CZDZA DZ11 DEVICE DIAGNOSTICS.

153644

VEC1:
VEC2:
1$:

CLR

BIT
BEQ
MOV
MOV
MOV
CLR

cMP
cMP
BNE

INSTR
MVECTOR
PARAM

LAST

4SWO00, ISWR

OTHER

#300,R1
#302,R2

R2,(R1)+
(R2)+

(R1)+,(R2)+
R1,%#1000
1s

300

770

.BYTE
.BYTE

002046
002046
002052
002056
002056
002060

BYTE
.BYTE

DZRIV
3
4
INSTR
MREGAD
PARAM
160000
163700
DZCSR
7
1
MOV

@2 ,0ZRBUF

DZRBUF ,DZLPR
DZRBUF ,DZTCR

#2,0ZTCR

DZTCR,HDZTCR
HDZTCR
DZTCR,DZTOR

002066
002066
002062

153462

DZCSR, DZRBUF

#2,0ZTDR
DZTDR,DZMSR
#SWO01,3SWR
XBEGIN

OTHER:

;CLEAR LAST ERROR PC
+IF SWO0=1, GET NEW VECTOR
:AND CSR

;RESTORE TRAPCATCHER
:IN FLOATING VECTOR AREA
;UPDATE THE POINTERS
: INPUT ADDRESS OF DEVICE VECTOR
;MESSAGE "VECTOR ADDRESS-*
;CONVERT STRING TO OCTAL
;LOW LIMIT
sHIGH LIMIT
;LOCATIONS TO BE FILLED
;LSB MASK
:NUMBER OF LOCATIONS
: INPUT ADDRESS OF DEVICE CSR
+MESSAGE “CONTROL REGISTER ADDRESS-“
;CONVERT STRING TO OCTAL
;LOW LIMIT
;HIGH LIMIT
;LOCATIONS 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

;FORM THE TRANSMITTER CONTROL REGISTER POINTER

:BEGIN FORMING TRANSMITTER DATA REGISTER
;FORM THE 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

BAUD:

iMESSAGE

.BYTE
.BYTE
LINEX:

0
1
DEVICE.CLR
CLR
STFLG
INSTR

MLINE
PARAM
0

"“BAUD RATE-"

;CONVERT DECIMAL STRING TO OCTAL
;LOW LIMIT
;HIGH LIMIT
;LOCATION TO BE FILLED
:LSB MASK
:NUMBER OF LOCATIONS
;CLEAR DEVICE
;CLEAR PROGRAM START FLAG
: INPUT LINE NUMBER
sMESSAGE “LINE NUMBER-“
;CONVERT
STRING TO OCTAL
;LOW LIMIT

CZDZA-IO0

CZDZAI.P11
025544
025546
025550
025551
025552

000007
001372
000
001
004537

10079
10080
10081
10082
10083
10084
10085
10086
10087
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097
igggg

025556
025562
025566
025572
025576
025600
025606
025612
025614
025620
025624
025626
025634
025640
025642
025646
025652

106427
012706
005037
005737
001413
012737
005737
001017
005137
104402
000412
012737
005737
001004
005137
104402
000177

10100
10101
10102
10103
10104
10105

025656
025660
025666
025674
025702
025710

025716
025724
025726
025732
025736
025740
025742
025744
025746
025750
025752
025756
025760
025764
025772
025774
025776
026002
026010
026012
026020

104413
012737
013777
013737
053737
013777
012777
005004
012705
005777
100404
104414
005304
001372
104003
005004
112577
001365
004737
122777
001731
104413
106427
012737
104413
013737
053737

025026

052737

10108
10109
10110
10111
10112
10113
10114
10115
10116
10117
10118
10119
10120
10121
10122
10123
10124
10125
10126
10127
10128

02-JUL -85S 16:17

10073
10074
10075
10076
igg;;

10106
10107

MACY11 30A(1052)

02-JUL-85

16:19

CZDZA DZ11 DEVICE DIAGNOSTICS.

.BYTE

027242
000340
001120
027442
027436

026314
027440

XBEGIN:

001126

027440
027773
025656
027440

001126

027440
027746
153250

2%:

1¢:

TEST1:

7
SAVLIN
0
.BYTE
JSR

1
RS,SET

007642
000377

153166

000340
026752

001360

027460
027456

001366
001366

010000

001366

BIS

001122
154162
001366
001366
154134
154116

030010
154104

3s:

2%:

154110

sHIGH LIMIT
;LOCATION TO BE FILLED
;LSB MASK
:+NUMBER OF LOCATIONS

MTPS
4PR7
;LOCK OUT INTERRUPTS
MOV
#STACK,SP
;SET UP PROCESSOR STACK
CLR
LOCKUP
;CLEAR TIMEOUT
TST
WCHFLG
;ECHO OR CABLE TEST ?
BEQ
2%
;ECHO
MOV
#TEST2, $LPADR
;CABLE TEST
TST
STFLG
;ARE YOU LOOPING ?
BNE
1$
:YES
COM
STFLG
;:NO
TYPE
+MCABLE
;TYPE CABLE TEST
BR
1
MOV
#TEST1, $LPADR
;SET UP ECHO TEST
18T
STFLG
;ARE YOU LOOPING ?
BNE
1s
;YES
COM
STFLG
;NO
TYPE
+MTERM
;:TYPE ECHO TEST
JMP
9$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 COCTAL)
DEVICE.CLR
MOV
#1,$TSTNM
MOV
NUMTCR,3DZTCR
MOV
NUMLIN,PAR
BIS
SPEED,PAR
MOV
PAR,3DZLPR
MOV
#MSENAB,3DZCSR
CLR
R4
MOV
#MQUICK,RS
TST
8DZCSR
BMI
24
DELAY
DEC
R4
BNE
3$
ERROR
3
CLR
R4
MOVB
(R5)+,3DZTDR
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

000001
027462
027460
027456
001366
000040

SEQ 108

PAGE 85-2

#RCVON,PAR

;CLEAR D211

;SET TCR BIT
;:SET PARAMETERS
;SET BAUD RATE
;LOAD PARAM.
;SET SCANN ENABLE
:SET MESSAGE BUFFER
;TRDY?
;BR IF YES
sWAIT
:
H
;:NO TRDY SET! WHY?
;RESET COUNTER TO 0
;LOAD CHAR
:
;<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.)
;MAKE SURE RECEIVER IS TURNED ON

CZDZA-I0
CZDZAI.P11
10129
10130
10131
10132
10133
10134
10135
10136
10137
10138
10139
10140
10141
10142
10143
10144
10145
10146
10147
10148
10149
10150
10151
10152
10153
10154
10155
10156
10157
10158
10159
10160
10161
10162
10163
10164
10165
10166
10167
10168
10169
10170
10171
10172
10173
10174
10175
10176
10177
10178
10179
10180
10181
10182
10183
10184

*b—

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

026034
026042
026050
026056
026062
026070
026074
026100
026102
026106
026112

013777
012777
013777
106437
012777
104402
105777
100375
005777
004737
000137

026116
026122
026124
026126
026134
026136
026140
026146
026150

105777
100401
104004
017737
100401
104023
032737
001401
104025

026152
026160
026166
026174
026202
026206
026214
026216
026220
026226
026234
026236
026240
026244
026246
026250
026256
026262
026264
026266
025270
026272
026300
026306
026312

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

026314
026320

106427
012737

001366
026116
027464
030336
000140
027640
153064

02-JUL-85
16:19 PAGE 85-3
CZDZA DZ11 DEVICE DIAGNOSTICS.
154010
154022
154016
153752
1%:

153060
007642
025526

153720

INTSVC:

153714

027466

020000

027466

027466
027466
177600
174377
027466
001372

027470
011262
011262
027466
027466

000040
011262

153614
000003

026752

027462
153560

153600

027470
000140
153544

153566
153534

000340
000002

1s:
10%:

001122

2%:

MOV
MOV
MOV
MTPS
MOV
TYPE
TSTB
BPL
TST
JSR
JMP

PAR, 3DZLPR
;LOAD THE LINE PARAMETER REGISTER
#INTSVC,8DZRIV
;SET UP INTERRUPT SERVICE
PRIO,8DZRIS
sAND LEVEL
SOLESS1
;ALLOW INTERRUPTS
#RIE !MSENAB,SDZCSR ;SET RECEIVER INTERRUPT ENABLE
+MCHAR
:TYPE "ANY CHARACTER”
83 TKS
+IF SOMBODY HITS A KEY- GET NEW LINE &
13
;LOOP HERE
93$TKB
;CLEAR CHAR
PC,SERV.G
iMAKE SURE IT WASN‘T <tG>
LINEX
:

; THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE
TSTB
8DZCSR
;TEST REC. FLAG
BMI
.+4
ERROR
4
;ERROR - INTERRUPT NOT CAUSED BY FLAG
MOV
8DZRBUF ,RECDAT
BMI
.+4
ERROR
23
iNON- VALID CHARACTER
BIT
#8IT13,RECDAT
;CHECK FOR FRAMING ERROR
-BEQ
.+4
:BR_IF NO ERROR
ERROR
25
;EITHER SOMBODY HIT THE
i "BREAK KEY” OR YOU HAVE AN ERROR!
MOvB
RECDAT, TBUF
:MOVE CHARACTER TO OUTPUT AREA
MOve
RECDAT, INBUF
:MOVE CHARACTER TO CHECK FOR tC
BIC
#tC<177>,INBUF
;STRIP JUNK PLUS PARITY
BIC
#174377,RECDAT
;SAVE ONLY LINE
NUMBER
SWAB
RECDAT
CMP
SAVLIN,RECDAT
;DOES THE LINE # COMPARE?
BEQ
.+4
ERROR
15
i*WRONG LINE NUMBER
MOV
#MSENAB,SDZCSR
;START THE TRANSMITTERS SCANNER
CMPB
INBUF, #3
+IS IT A tC ?
BNE
13
iNO
DEVICE.CLR
MOV
#XEOP, (SP)
;CRUNCH STACK
RTI
CLR
R3
s INITIALIZE DELAY
MOV
NUMTCR,8DZTCR
;ENABLE THE LINE
TST
8DZCSR
i 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, 3DZCSR
;RESTART THE RECEIVER
CLR
aDZTCR
;CLEAR TCR BIT
RTI

i 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
TEST2:
MTPS
#PR7
iDISABLE INTERRUPTS
MOV
#2,$TSTNM

SEQ 109

CZDZA-I0
CZDZAI.P11

10185
10186
10187
10188
10189
10190
10191
10192
10193
10194
10195
10196
10197
10198
10199
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

026326
026334

026336
026344
026352
026354
026360
026362
026366
026370
026374
026376
026400

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

012737
113777
005005
153705
000305
153705
104414
017704
020504

026752

026344
027462

001360

001362
153506

OXEOP,NEXT
MOV
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!

1s:

027462
027462

104401
104413
013737
053737
052737
052777
012777
013777
012777
013777
005001
005002
013777
106437
013777

026512
026516
026520
026524
026530
026534
026540
0256542
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

MOV
MOvB

@1$,L0CK
NUMTCR,®HDZTCR
RS
NUMTCR,RS
RS
NUMTCR,RS

CLR
BISB
SWAB
BISB
DELAY

MOV

153466

80ZMSP.,R4

CMP
BEQ

001401
104022

026402
026404
026406
026414
026422
026430
026436
026444
026452
026460
026466
026470
026472
026500
026504

SEQ 110

02-JUL-85
16:19
PAGE 85-4
CZDZA DZ11 DEVICE DIAGNOSTICS.

R5,R4
2%

ERROR

027456
027460
010000
040140
026552
027464
026732
027464

001366
001366
001366
153404
153426
153422
153416
153412

001366
030336
027462

153352

2%:
3s:

153254

027466

040000

027466

:
:BUILD EXPECTED
;PUT IN HIGH BYTE
;
;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
sINIT DZ11

SPEED, PAR
:SET LINE SPEED
NUMLIN,PAR
;SELECT LINE ¢ &€ REC.
INTERRUPT ENABLE
#RCVON,PAR
;ENABLE THE RECEIVER FOR THIS LINE
#TIE!RIE!MSENAB,SDZCSR ;SET TRANSMITTER INTERRUPT ENABLE
#INTREC,8DZRIV
;SET UP INTR SERVICE
PRIO,8DZRIS
:SET UP LEVEL
#INTRAN,8DZTIV
;SET UP INTR SERVICE
PRIO,8DZTIS
:SET UP LEVEL
R1
:RX DATA POINTER- SET TO 0
R2
;TX DATA POINTER- SET TO O
PAR,8DZLPR
:SET THE PARAMETERS AND TURN ON RECEIVER
JMLESS1
;ALLOW INTERRUPTS
NUMTCR,8DZTCR
;SET UP TCR BIT

;YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT

TSTB
BPL
TST
JSR

JMP
INC
BNE
ERROR

@$TKS
14
9$TKB
PC,SERV.G

LINEX
LOCKUP
SPIN
11
QUITS:
DEVICE.CLR
JMP
XEOP
INTREC: CLR
LOCKUP
TSTB
8DZCSR
BMI
.+4
ERROR
4
MOV
8DZRBUF ,RECDAT
BMI
.+4
ERROR
23
BIT
#BIT14 ,RECDAT
BEQ
.+4
1$:

026752
027442
153260

MOV
BIS
BIS
BIS
MOV
MOV
MOV
MOV

MOV
MTPS
MOV

SPIN:

152442
007642
025526
027442

SCoP1
DEVICE.CLR

CLR
CLR

153344

152446

;LOOP
;SET DTR

;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 TIMEOUT FLAG
;TEST REC DONE
s YES
;#FALSE INTERRUPT
;SAVE WORD

:*NON VALID CHARACTER
;DATA OVERRUN ?
iNO

occnmn

124

CZDZA-I0
CZDZAI.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

026610
026612
026620
026622
026624
026632
026634
026636
026640
026644
026650
026654
026656
026660
026662
026670
026674
026702
026704
026706
026712
026714
026720

MACY11l 30A(1052)
02-JUL -85 16:17
104024
032737
001401
104025
032737
001401
104026
110105
042705
113704
042704

026730

020504
001401
104005
042737
000337
023737
001401
104015
120127
001003
012716
000403
105201
012716
000002

026732
026736
026740
026742
026746
026750

005777
100401
104003
110277
105202
000002

026722
026724

020000
010000

ERROR
BIT
BEQ
ERROR
BIT
BEQ
ERROR
MOvB
BIC
MOV
BIC

027466
027466

177400
027466
177400

174377
027466
001372

027466

000377
026544

026512

1s:
2%:

153104

153120

SEQ 111

02-JUL-85
16:19
PAGE 85-5
CZDZA DZ11 DEVICE DIAGNOSTICS.

INTRAN:

CMP
BEQ
ERROR
BIC
SWAB
CMP
BEQ
ERROR
CMPB
BNE
MOV
BR
INCB
MOV
RTI

TST
BMI
ERROR
MOvBe
INCB
RTI

24
#BIT13,RECDAT
.+4
25
#BIT12,RECDAT
.+4
26
R1,RS
#tC<377>,RS5
RECDAT,R4
#1C<377>,R4
R5,R4
;0K?
.+4
5
#174377 ,RECDAT
RECDAT
SAVLIN,RECDAT
.+4
15
R1,#377
1s
#QUITS,(SP)
2%
R1
#SPIN, (SP)

3‘YES

;FRAMING ERROR

:NO

;*YES

;PARITY ERROR ?
:NO

;1*YES

;SET EXPECTED
;CLEAR HIGH BYTE
;:GET FOUND
;CLEAR HIGH BYTE

;:DATA ERROR
:SAVE ONLY LINE NUMBER
:Dggs THE LINE # COMPARE ?

;*WRONG LINE ¢
;LAST CHARACTER ?
;N
;CRUNCH STACK

;UPDATE EXPECTED DATA
:CRUNCH STACK

8DZCSR
;TEST TRANSMIT FLAG
.+4
;#*FALSE INTERRUPT
3
R2,3DZTDR
i TRANSMIT A CHARACTER
R2
;UPDATE TX DATA
;:RETURN

CZDZA-I0
CZDZAI 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 DIAGNOSTICS.

;:END OF PASS
;RESTART TEST
026752
026754
026756
026762
026766

026772
026774
027000
027004
027010
027014

027020
027022
027024
027030
027034
027036
027042
027044
027050
027052
027056
027060
027062
027064
027070
027072
027074
027076
027100
027102
027104
027106
027110

104402
027550
005037

105037
000137
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

XEOP:

027444
001123
025556

RSTRT:

TYPE
MPASS
CLR

CLRB
JMP

:TYPE NAME OF TEST

LAST
$ERFLG
XBEGIN

;:CLEAR LAST ERROR PC

;CLEAR ERROR FLAG

; CONVERT DECIMAL ASCII STRING TO OCTAL

027156
027160
027162
027164
027165
011262
000015
000060

.PARMD: MOV
MOV

1$:

000071

000060

000015

3s:

(R5)+,6%

MOV
MOV
MOVB

(R5)+,7$
(R5)+,8$
(RS5)+,9$

MOV

RS,(SP)

MOV
CMPB
BEQ
CMPB
BLT
CMPB
BGT
BICB
CLR
BISB
ADD
CMPB
BEQ
ASL
MOV
ASL
ASL
ADD
BR
INSTER
BR

#INBUF ,R4
#15,(R4)
3$
(R4),#'0
3
(R4),%4'9
34
#'0,(R4)
R2
(R4)+,R2
R2,R5
#15,(R4)
43
RS
i X2
RS,R2
;SAVE X2
RS
i X4
RS
i X8
R2,RS
;TIMES 10
1s

MOvVB

2%:

(SP),RS

CLR

(R5)+,10%

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
027112
027116
027120
027124
027126
027132

020537
101373
020537

103770
133705
001365

027160

4%
:

CMP
BHI

CcMP

027156

BLO
BITB
BNE

027164

RS,7¢
3

R5,6$

3s.
9%.R5
3

;STORE NUMBER AT SPECIFIED ADDRESS
027134
027140
027142
027146

013704
010524
062705
105337

027162
000002
027165

S$:

MOV
MOV
ADD
DECB

8%.R4
R5,(R4)+
#2,R5
10¢

CZDZA-I0
CZDZAI.P11
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10341
10342
10343
10344
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(1052)
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%:

BNE
RTI
0
0

9¢:
10¢:

.BYTE 0
.BYTE 0

8s:

;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
105015
000406
122737
001005
112715
062716
000002
104404
000752

000000
000040
000105

000103

011262
011262

011262

177777
000002

.PAWCH:MOV
BICB
CMPB
BNE
CLRB
BR
1¢:
CMPB
BNE
2%:
3s:

MOVB
ADD
RTI
INSTER

8(SP),RS
#40, INBUF
#'E, INBUF
14
(RS)
2%
#' C, INBUF
3
#-1,(RS)
#2,(SP)

.PAWCH

;SET FOR LOWER CASE INPUT
338 31 "§* ¢

;000
+23 I¥

*q* ¥

;3177

;RETRY

:THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND
;LINE NUMBER (SAVLIN) FOR DZLPR, DZTCR AND DZCSR

;REGISTER 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
104402

012705
000402
011137
000205

001372
001372
027462
000001

027336
027462
027454

027460

SET:
XTCRO:

XTCR1:

SET1:
1$:

027564
025510

027456

24%:
3s:

MOV
MOV
CLR
MOV
DEC
BMI
ASL
BR
MOV
MOV

SAVLIN,NUMLIN
SAVLIN,RO
NUMTCR
#1,R2
RO
SET1
R2
XTCR1
#TABLE2,R1
R2 ,NUMTCR

;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
;GO SEE IF THIS LINE IS THE ONE

TST
BNE
TYPE
ggv

(R1)+
13
+MINVAL
geAUD.RS

;IS IT THE END OF TABLE?
:NO
; INVALID BAUD RATE,BEGIN AGAIN
:JUMP TO BAUD THRU RS

MOV
RTS

(R1),SPEED
RS

:SET UP BAUD RATE

CMP
BEQ

(R1)+,LINESP
28

;COPY THE CORRECT BIT POINTER

CZDZA-I0
CZDZAI P11

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

SEQ 114

02-JUL-85
16:19
PAGE 86-2
CZDZA DZ11 DEVICE DIAGNOSTICS.
TABLE2:

: THE FOngHING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR)

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

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

.WORD
.WORD

000000

.
10070
75.
10470
110.
11070
135.
11470
150.
12070
300.
12430
600.
13030
1200.
13430
1800.

;50 BAUD
:
;75 BAUD
;
;110 BAUD
;TWO STOP BITS
;134.5 BAUD
;TWO STOP BITS
;150 BAUD
;TWO STOP BITS
;300 BAUD
;ONE STOP BIT
;600 BAUD
;ONE STOP BIT
;1200 BAUD
;ONE STOP BIT
;1800 BAUD

14030
2000.
14430
2400.
15030
3600.
15430
4800.
16030
7200.
16430
9600.

;ONE STOP BIT
;2000 BAUD
;ONE STOP BIT
;2400 BAUD
;ONE STOP BIT
;3600 BAUD
;ONE STOP BIT
;4800 BAUD
;ONE STOP BIT
;7200 BAUD
;ONE STOP BIT
;9600 BAUD

17070
-1,0

:
;TABLE TERMINATOR

027436
027440
027442
027444
027446
027450
027452
027454
027456

000000
000000
000000
000000
000000
000000
000156
006307

;DEFAULY BAUD RATE
;DEFAULT 110 BAUD, 8 BITS/CHAR,

027460

000100

NUMLIN:

100

;DEFAULT VALUE, REC.

027462
027464
027466
027470
027472
027514
027550
027564
027612
027622

000001
000240
000000
000000

NUMTCR:
PRIO:
RECDAT:
TBUF ;
MVECTO:
MREGAD:
MPASS:
MINVAL:
MLINE:
MSPEED:

1
240
0
0
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

000000

053200
041600
050200
044600

046200
041200

041505
047117
051501
053116
047111
052501

047524
051124
020123
046101
035105
020104

;ECHO OR CABLE FLAG
;PROGRAM START FLAG
; TIMEQUT FLAG
;LAST ERROR PC

;FDX, 2 STOP BITS

INTERRUPT ENABLED

;DEFAULT VALUE,TCR BIT O
;DEFAULT DEVICE PRIORITY S

<200>/VECTOR ADDRESS- 7/
<200>/CONTROL REGISTER ADDRESS<200>/PASS DONE./
<200>/INVALID BAUD RATE - /
<200>/LINE: /
<200>/BAUD RATE - /

CZDZA-I0
CZDZAI .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 DZ11 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 ECHO TEST /
<200>/CABLE TEST /

<377><15>¢377>¢3775¢12><377><377>
/THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/
<377>¢15>¢377>¢377>¢12>¢377>¢377>¢377><0>

K] ‘tt.‘tttttttttt‘tt‘t.tt‘tt‘t‘t“t"tt

030126
030132
030136
030142
030146
030152
030160
030166
030174
020200
030204
030210
030214
030220
030224

030230
030234
030240
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

tt‘t‘ttt‘ttt“tttt.“t

sUTILITIES

T T

TTTTTrrr yYYIYY

s THIS UTILITY CALCULATES PRIORITY LEVEL,SETS UP CSR‘S,SETS UP VECTORS.

DZLEV:

030336
030336
030336

ASL
ASL
ASL
ASL
ASL

DZPRT
DZPRT
DZPRT
DZPRT
DZPRT

;BUILD PRIORITY IN THIS LOCATION
sUSING ARITHMETIC SHIFTS, ROTATE
H
THE PRIORITY LEVEL PAST
:
THE BIT POSITIONS CORRE;
SPONDING TO THE CONDITION CODES

MOV

DZPRT,LESS1

:MOVE THIS TO LESS1

BIC
MOV
ADD
MOV
ADD
MOV
ADD
MOV

#37,LESS1
DZRIV,RO
#2,R0
RO,DZRIS
#2,R0
RO,DZTIV
#2,R0
RO,DZTIS

:INSURE THAT THE
TNZVC BITS ARE CLEAR
+PLACE THE BASE VECTOR ADDRESS IN RO
;CALCULATE THE RECEIVER INTERRUPT STATUS ADDR.
sSTORE IT HERE
;CALCULATE THE TRANSMITTER INTERRUPT VECTOR
:STORE IT HERE
;CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS
:STORE IT HERE

SuUB

#1,LESS1

;CREATE THE NEXT LOWEST PRIORITY

s THIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZ11.
:OF THE DEVICE
MOV
MOV
INC
MOV
INC
MOV
MOV
INC
MOV

002044
002046
002052

002050
002054

MOV
INC
MOV
INC
MOV
INC
MOV

002056
002060

002062
002066

MOV

INC
MOV

002064
002070

DZPRT:
LESS1:

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

:COPY THE ADDRESS BEING LOADED
: XXX0

1 XXX1
i XXX2
§ XXX2
§ XXX3

§ XXX3

i XXX4
: XXX5

: XXX6

RO,DZTODR

i XXX6

RO,HDZTDR
PC

§ XXX7

RO
RO ,HDZMSR

$BASE IS THE BASE ADDRESS

§ XXX7

;LEVEL TO ALLOW INTERRUPTS

CZDZA-I0
CZDZAI 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

h—

MACY11l 30A(1052)

02-JUL -85 16:17

02-JUL-85
16:19 PAGE 86-4
CZDZA DZ11 DEVICE DIAGNOSTICS.

;ERROR EgROR TABLE

030340
030342
030344

000000
000000
000000

030346
030350
030352

030566
032073
032324

;ERROR

030354
030356
030360

030641
032116
032336

EM2
DH2
oT2

;ERROR

030362
030364
030366

030667
032151
032354

EM3

;ERROR

030370
030372
030374

030726
032151
032354

EM4

030376
0320400
030402

030755
032163
032362

EMS

030404
030406
030410

031004
032163
032362

EM6

030412
030414
030416

031042
932151
032354

EM7

030420
030422
030424

031103
032151
032354

EM8

030426
030430
030432

031145
032151
032354

EM9

030434
030436
030440

031203
032151
032354

EM10

030442
030444
030446

031242
032151
032354

EM13

030450
030452
030454

031273
032151
032354

EM14

030456
030460
030462

031325
000000
000000

EM15

.ERRTAB:

0
0

;ERROR

oT1

DT3

;ERROR

DT3

:ERROR

DT4

:ERROR

074
;ERROR

D73

;:ERROR 10

D73

;ERROR 11

DT3

;:ERROR 12

DT3

;ERROR 13

D73

:ERROR 14

DT3

;ERROR 15

SEQ 116

CZDZA-I0
CZDZAI.P11
10561
10562
10563
10564
10565
10566
10567
10568
10569

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
D73

030472
030474
030476

031440
032151
032354

EM17
DH3
D73

030500
030502
030504

031476
032151
032354

EM20
= DH3
T3

030506
030510
030512

031537
032212
032400

EM21

;ERROR 21

030514
030516
030520

031567
032163
032362

EM22
DH4
T4

;ERROR 22

030522
030524
030526

031631
032151
032354

EM23
DH3
D73

;ERROR 23

030530
030532
030534

031661
032151
032354

EM24
DH3
oT3

030536
030540
030542

031707
032151
032354

EM25
DH3
oT3

030544
030546
030550

031737
032151
032354

EM26
DH3
DT3

030552
030554
030555

031766
032151
032354

EM27
DH3
oT3

030560

032036
032271
032422

EM30
DH6
D76

030562
030564

DHS
0TS

;ERROR 17

SEQ 117

CZDZA-I0
CZDZAI.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
10639

030566
030641
030667
030726
030755
031004
031042
031103
031145
031203
031242
031273
031325
031367
031440
031476
031537
031567
031631
031661
021707
031737
031766
032036
032073
032116
032151
032163
032212
032271

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

032224
032326
032330
032332
032334

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:
EMS8:
EM9:
EM10:

EM13:
EM14:
EM1S:
EM16:
EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM2S:
EM26:
EM27:
EM30:
DH1:
DH2:
DH3:
DH4:
DHS:
DH6:
.EVEN

DT1:

004

1ERROR MESSAGES

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.BYTE
$REGO

DT2:

001

000001
003
001372

032362
032264
032366
032370

000003
006
001214
006

001

004

001

DT3:

DT4:

FAILED

INTERRUPT/

INVALID LINE./

<200>/UNEXPECTED RECEIVER INTERRUPT/
<200>/SILO ALARM SET TOO SOON/
<200>/SILO ALARM FAILED TO SET/

<200>/ACTION DETECTED

<200>/READING DZRBUF DID NOT CLEAR SILO ALARM/
<200>/DATA VALID SHOULD NOT BE SET/

<200>/RECEIVER

DONE

SHOULD

NOT

SET/

<200>/RELATIVE TIMING ERROR./
<200>/MODEM SIGNAL ERROR ON CABLE TEST/
<200>/DATA VALID IS NOT SET!/
<200>/DATA OVERRUN IS SET!/
<200>/FRAMING ERROR OCCURRED/
<200>/PARITY ERROR OCCURRED/
<200>/FULL BINARY COUNT PATTERN NOT RECEIVED/
<200>/BAUD RATE TIMING TEST ERROR/
<200>/TRAP PC
DZ11 REG/
<200>/EXPECTED
FOUND
REGISTER/
<200>/LINE NO./
<200>/EXPECTED
FOUND
LINE/
<200>/TX LINE PREVIOUS TIME
ACTUAL TIME
PARAMETER/
<200>/HIGH
LOW
COUNT
LINE/

6.3
6.1

6,1

.BYTE

6,1

1
.BYTE
SAVLIN

3.1

SREGO

032354
032356
032260

<200>/RECEIVER

3
.BYTE
$REGS
.BYTE
SREG4

001

<200>/N0 SLAVE SYNC RESPONSE FROM DZ11 REGISTER/
<200>?REGISTER R/W FAILURE?
<200>/TRANSMIT READY (TRDY) NOT SET/
<200>/RECEIVER DONE NOT SET/
<200>/DATA COMPARISON ERROR/
<200>/DZ11 sRECEIVER BUFFERs ERROR/
<200>/TRANSMITTER FAILED TO INTERRUPT/
<200>/UNEXPECTED TRANSMITTER INTERRUPT/

;DATA TABLES FOR ERROR MESSAGES

2
.BYTE

$SREG1

001

032336
032340
032342
032344
032346
032350
032352

SEQ 118

02-JUL-85
16:19
PAGE 87
CZDZA DZ11 DEVICE DIAGNOSTICS.

6.4

3
.BYTE

6.4

.BYTE

6,1

$REGS

10640
10641
10642
10646
10647
10648
10649
10650
10651
10652
10653
10654
10655
10656
10657
10658
10659
10660
10661
10662
10663
10664
10665
10666
10667
10668

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

ArA

aan

CZDZA-I0
CZDZAI.P11
106€9
10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690
10691
10699
10700
10701
10702
10703
10704
10705
10706
10707
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

032372
032374
03237

01212
003
001372

001

032400
032402
032404
032406
032410
032412
032414
032416
032420
032422
032424
032426
032430
032432
032434
032436
032440
032442

000004
003
001372

005

$REG4
.BYTE

SAVLIN
DTS:

011

6.9.

.BYTE

6,7

.BYTE
QEGIST

6.1

.BYTE
DCOUNT
.BYTE
ECOUNT
.BYTE
BCOUNT
.BYTE
SAVLIN

6,1

$TMPL

001

DT6:

001
001
001

3.1

4
.BYTE
SAVLIN
.BYTE
$REGS

007

001

SEQ 119

02-JUL-85
16:19
PAGE 87-1
CZDZA DZ11 DEVICE DIAGNOSTICS.

3'5

6.1
6,1

1,1

;FOR BAUD RATE ERROR MESSAGE

sHIGH COUNTER
;LOW COUNTER

sACTUAL XMIT COUNT

: THE LINE NUMBER ERROR OCCURED ON
;TABLE OF DELAY 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
: TIME FOR
75 BAUD
; TIME FOR
:TIME FOR 110 BAUD
; TIME FOR
134 BAUD
;:TIME FOR 150 BAUD
300 BAUD
; TIME FOR
;:TIME FOR 600 BAUD
;TIME FOR 1200 BAUD
; TIME FOR 1800 BAUD
;sTIME FOR 2000 BAUD
; TIME FOR 2400 BAUD
;sTIME FOR 3600 BAUD
; TIME FOR 4800 BUAD
; TIME FOR 7200 BAUD
;sTIME FOR 9600 BAUD
;s 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

sMEMORY.
032504

001512

001512
100000
000001

CORMAX:

.END

.=MANTO
100000

THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10.

CZDZA-I0
CZDZAI.P11
ABASE = 160010

ACONW1 =
ACDMZ =
ACPUOP=
ACTIVE

020000
000000
000000
001412

ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ACDW14= 000000
ADDW1S5= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDWE = 000000
ADDW? = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADRCNT
0C6635
ADVANC= 104400
AENV
= 000000
AENVM = 000000

AFATAL=
AMADR1=
AMADR2=
AMADR3=
AMADR4=

AUT0.S

AVECT =
AVECT1=
AVECT2=
BAUD

012254

000300
000000
000000
025510

BCOUNT
024110
BINWRD
007110
BITO
= 000001
BITO0 = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BITO4 = 002020
BITOS = 000040
BIT06 = 000100
BITO7 = 000200
BIT08 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT1i1 = 004000
BIT12 = 010000
8IT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2
= 000004
BIT3
= 000010

Coo

Cco1
coe
co3
Cco4

=
=
=
=
=

000020
000040
000100
000200
000400

DISPLA
DISPRE
DLYCNT
DLYTBL
DONFLG

AMAMS2=
AMAMS3=
AMAMS4=
AMSGAD=

000000
000000
000000
000000

BPTVEC=
BRKO
=
BRK1
=
BRK2
=

000014
000400
001000
002000

DTRO
DTR1
DTR2
DTR3

AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPO=

000000
000000
000000
000000
000000
000000
000000
000040
000001
000200
000100

BRK4
=
BRKS
=
BRK6
=
BRK7
=
BRW
BUILD
BYTCNT
CCOUNT
CHRCNT
CLKSRV
CNVRT =

010000
020000
040000
100000
005372
025002
027452
024106
007106
024100
104412

CORMAX

032504

AMSGLG= 000000

ASWREG= 000000
ATESTN= 000000

AUNIT = 00000
AUSWR

= 000000

BRK3

= 001000

= 004000

CONVRT= 104411
COUNTO
COUNT1

024660
024662

= 000400

=
=
=
=

001000
002000
004000
010000

cos
= 020000
Coé
= 040000
Cco7
= 100000
CR
= 000015
CRLF
= 000200
CSRMAP
012262
CYCLE
011532
DATABP
007502
DATAHD
007470
DCLASM= 104417
DCLR
= 000020
DCOUNT
024112
DDISP = 177570
DELAY = 104414
DEVADR
006632
DEVICE= 104413
DH1
032073
DH2
032116
DH3
032151
DH4
032163
DHS
032212
DH6
032271

BIT4
BITS
BITé
BIT7
BIT8

BIT9

SEQ 120

02-JUL-85
16:19 PAGE 88
SYMBOL TABLE

000000
000000
000000
000000
000000

AMAMS1= 000000

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

DZCR12

DZCR13
DZCR14
DZCR1S
DZCR16

DZCR17
DZCR2
DZCR3
DZCR4
DZCRS
DZCRé6
DZCR?7
DZCSR
DZLEV
DZLPR
DZLVO
CZLv1l
DZLV10
DZLV11
DZLV12
DZLV13
DZLV14
DZLV1S
DZLV16
DZLV17
DZLve2
DZLV3

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

DZvCa

DZVvCs
DZVCé
DZvVC7
DZ.END

001562
001576
001612
001626
002000

DZ.MAP
001500
ECOUNT
024114
EIAFLG
001414
EIGHT = 000030
EIGHTS= 000070
EMTVEC= 000030
EM1
030566
EM10
031203
EM13
031242
EM14
031273
EM1S
031325
EM16
031367
EM17
031440
EM2
030641
EM20
031476
EM21
031537
EM22
031567
EM23
031631
EM24
031661
EM2S
031707
EM26
031737
EM27
021766

001162
000174
007204
032444
001420

DZLV4
DZLVS
DZLVé
DZLV7
DZMSR

001564
001600
001614
001630
002062

EM3
EM30
EM4
EMS
EM6

=
=
=
=

000400
001000
002000
004000

DZPRT
DZRBUF
DZRIS
DZRIV

030334
002046
002074
002072

EM8
031103
EM9
031145
ENDTTB= 024212
ERRMSG
007456

DTRS
=
DTR6é
=
DTR7?
=
DT1
DT2
DT3
DT4
DTS
DTé6
DVALID=
DZACTV

020000
040000
100000
032324
032336
032354
032362
032400
032422
100000
001404

002066
002100
002076
001502
001516
001642
001656
001672
001706
001722
001736

ERTABO
EVEPAR=
EXITER
FINI
FIVE
=
FIVES =
FRMERR=
HALTS
HDRFLG
HDZCSR
HDZLPR

007626
000000
007562
022434
000000
000040
020000
007506
001416
002044
002054

HDZRBU

002050

DSWR

DTR4

DZCRO
DZCR1

DZCR10
DZCR11

= 177570

= 010000

001500
001514

001640

001654

DZNUM

DZTCR

DZTDR
DZTIS
DZTIV
DZVCo
DZvC1
DZVC10
DZVC11
DZvC12
DZVC13
DZVCi14
DZVC1S

DZVC16
DZVC17

DzZvc2
DZVC3

001410

002056

001752

001766

001532

001546

EM7

030667
032036
030726
030755
031004

031042

ERRVEC= 000004

HDZMSR
HDZTCR

HDZTDR

002064

002060

002070

CZDZA-I0
CZDZAI.P11
HILIM
006630
HT
= 000011

INBUF
011262
INIFLG
001415
INIT
021714
INITL
021740
INSTER= 104404
INSTR = 104403
INSTR2
006430
INTRAN
026732
INTREC
026552
INTSVC
026116
IOTVEC= 000020
LAST
027444
LESS1
030336
LF
= 000012
LIMITS
006556
LINE
001364
LINESP
027454
LINEX
025526
LINEO
001506
LINE1L
001522
LINEL1O
001646
LINE11
0C1662
LINE12
001676
LINE13
001712
LINE14
001726
LINE1S
001742
LINE16
001756
LINE17
001772
LINE2
001536
LINE3
001552
LINE4
001566
LINES
001602
LINE6
001616
LINE7
001632
LOBITS
006634
LOCK
001362
LOCKUP
027442
LOLIM
006626
LPO
= 000000
LP1
= 000001
LP2
= 000002
LP3
= 000003
LP4
= 000004
LPS
= 000005

LP6
=
LP7
=
MAINT =
MANTO
MANT1
MANT10
MANT11

;b—-

000006
000007
000010
001512
001526
001652
001666

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

SEQ 121

02-JUL-85
16:19
PAGE 88-1
SYMBOL TABLE
001702
001716

MANT14
MANT15
MANT16
MANT17
MANT2
MANT3
MANT4
MANTS
MANT6
MANT7
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

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

OTHER
ouT
OVRRUN=
PAR

025470
022362
040000
001366

0DDPAR= 000200
OFFSET
025242
ONESTO= 000000

PARAM = 104405
PARAM1
006476

PARER = 010000
PARERR
006552
PARESE
024506
PARITY= 000100
PARMD = 104415
PARO
001510
PAR1
001524
PAR10
001650
PAR11
001664
PAR12
001700
PAR13
001714
PAR14
001730
PAR1S
001744
PAR16
001760
PAR17
001774
PAR2
001540
PAR3
001554
PAR4
001570
PARS
001604
PAR6
001620
PAR7
001634
PAWCH = 104416
PIRQ
= 177772
PIRQVE= 000240
POPRO = 012600
POP1SP= 005726
POP2SP= 022626
PRIO
027464
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PR4
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSW
= 177776
PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646
PWRVEC= 000024
QUITS
026544
RCVON = 010000

RDATA
RDONE =
RECDAT
REGIST
RESREG
RESTAR
RESVEC=

027450
000200
027466
001400
007504
012076
000010

RESOS = 104410
RIE
= 000100

RINGO = 000001
RING1 = 000002
RING2 = 000004
RING3 = 000010
RING4 = 000020
RINGS = 000040
RING6 = 000100
RING7 = 000200
RLO
= 000000
RL1
= 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
=%000006
R7
=%000007
SAVLIN
001372
SAVNUM
001411
SAVPC
001402
SAVOS = 104407
SCOP1 = 104401
SERV.G
007642
SET
027242
SETAPT
012102
SETFLG= 104406
SET.PS
011430
SET1
027274
SEVEN = 000020
SEVENS= 000060
SILOAL= 020000
SILOEN= 010000
SIX
= 000010
SIXS
= 000050
SNAP
022034
SPACNT
007107
SPEED
027456

SPIN
026512
STACK = 001120
STFLG
027440
STKLMT= 177774
STOP
001462
SVo5
006644
SWR
001160

SWREG
000176
SWO
= 000001

SWO0
=
SWO01
=
SW02
=
SWO3
=
SWO04
=
SWO5
=
SW06
=
SWO7
=
SWO08
=
SW09
=
SW1
=
SW10
=
SW1l
=
SWi2
=
SW13
=
SWi4
=
SW1S
=
SW2
=
SW3
=
SW4
=
SWS
=
SW6
=
SW7
=
SW8
=
SW9
=
S$110
=
51200 =
S134
=
S$150
=
$1800 =
$19200=
$2000 =
52400 =
S300
=
S$3600 =
54800 =
S§50
=
S600
=
§7200 =
S§75
=
$9600 =
TABLE2
TBITVE=
TBUF

TCCONT
TCRO
=
TCR1
=
TCR2
=
TCR3
=
TCR4
=
TCRS
=

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
001000
003400
001400
002000
004000
007400
004400
005000
002400
005400
006000
000000
003000
006400
000400
007000
027336
000014
027470

024212
000001
000002
000004
000010
000020
000040

CZDZA-I0
CZDZAI.P11
TCR6é
= 000100
TCR7
= 000200
TDATA
027440
100
001422
T01
001424
TD2
001426
703
001430
TD4
001432
TDS
001434
D6
001436
T07
001440
TEIGHT
002140
TEMP
011324
TEST1
025656

TST21
TST22
TST123
TST24
TST25
TST26
18127
TST3
TST30
TST31
TST32
TST33
TST34
TST3S

TFIV:
TIE
TKVEC
TLAST
TLO

TEST?

026314

=
=
=
*

002146
040000
000060
023720
000000

TL2
=
L3
=
TLS
=
TLS
=
TL6
=
TL?
=
TMTBL
TPVEC =
TRAPVE=

001000
001400
0C2000
002400
003000
003400
002102
000064
000034

TLL1

= 000400

TRDY
=
TRTVEC=
TRO
TR1
TR2
TR3
TR4
TRS
TR6
TR7
TSEVEN
TSIX
TST1
1ST10
TST11

TST12

TST13
15714
TST1S
TST16
5717
TS72
TST20

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

100000
000014
001442
001444
001446
001450
001452
001454
001456
001460
002142
002144
013036
013754
014112

014274

014412
014542
014632
014716
015112
013226
015250

015374
015732
016260
016612
017070
017400
017726
013312
020360
020546
021274
021656
022464
023174

XHEAD
XMTCNT
XMTLIN
XMTSRV
XPASS
XSTART
XSTATQ
XTCRO
XTCR1
XTSTN
XVEC
XX
=
Y
=
22
=

TST37
1574
TSTS
TSTé6
TS77

023720
013404
013476
013570
013662

$ATYC
$ATY1
$ATY3
$ATY4
$AUTOB

006020
005774
006002
006012
001154

TTST
TWOSTO=
TXSVC
TYPDAT
TYPE
=
TYPMSG
T110
T1200
T134

005140
000040
022106
007472
104402
007362
002106
002120
002110

$BDADR
$BDODAT
$CDW1
$COW2
$CHARC
$CMTAG
$CM1
=
$CM2
=
$CM3
=

001142
001146
001314
001316
005770
001120
000006
000014
000006

TST36

TTABLE

T150
T1800
T2000
T2400
T300
T3600
T4800
750
T600
177200
175
T9600
VECMAP
VEC1
VEC2
WCHFLG
WRDCNT
WTBS.F
XBEGIN
XBX
XCSR

XEOP
XERR

SEQ 122

02-JUL-85
16:19 PAGE 88-2
SYMBOL TABLE

023446

024116

002112
002122
002124
002126
002114
002130
002132
002102
002116
002134
002104
002136
012644
025306
025316
027436
007104
007460
025556
007250
005072

026752
005114

$APTHD

$BASE

011040
001376
001374
024664
005106
025244
011130
027250
027264
007634
005100
160210
000500
000020

001462

001310

$CM4
= 000004
$CPUOP
001262
$CRAP = 177777
$CRLF
001231
$DDWO
001320
$DDW1
001322
$DDW10
001344
$DDW11
001346
$DDW12
001350
$DDW13
001352
$DDW14
001354
$DDW1S
001356
$DDW2
001324
$DDOW3
001326
$DDW4
001330
$DDUWS
001332
$DDW6
001334
$DDW7
001336
$DDW8
001340
$DDW9
001342
$DEVCT
001244

$DEVM
$DOAGN

G01312
005066

$E
=
$ENDAD
$ENDCT
$ENV
$ENVM
$EOP
$EOPCT
$ERFLG
$SERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL
$ETABL

000041
005056
005042
001254
001255
004712
005034
001123
001135
007220
001136
001360
001132
001254

$NWTST=
$OVER
$PASS
$PASTM
$PWRAD
$PWRDN
$PWRMG
$PWRUP
$QUES
$REGAD
$REGO
$REG1
$REG2
$REG3

$FATAL
$FFLG
$FILLC
$FILLS
$GDADR

001236
006240
001176
001175
001140

$REGS
$RTNAD
$SAVR6
$SCOPE
$SETUP=

001214
005070
010460
005122
000000

$GET42
$HD
=
$HIBTS
$ICNT
$ILLUP
$INTAG
$ITEMB
$LF
SLFLG

005046
000001
001462
001124
010454
001155
001134
001232
006237

$SVPC =
$SWR
=
$SWREG
$SWRMK=
$TESTN
$TIMES
$TKB
$TKS
$TMPO

000040
164000
001256
000000
001240
001226
001166
001164
001216

$ETEND

$GDDAT

$LPADR
$LPERR
$MADR1
$MADR2
$MADR3
$MADR4
$MAIL
$MAMS1
$MAMS2
$MAMS3
$MAMS4
$MBADR
$MFLG
$MSGAD
$MSGLG
$MSGTY
$MTYP1
$MTYP2
$MTYP3
$MTYP4
$MXCNT

001360

001144

001126
001130
001266
001272
001276
001302
001234
001264
001270
001274
001300
001464
006236
001250
001252
001234

001265
001271
001275
001301
005374

$N
= 000037
$NULL
001174

$REG4

$SVLAD

$TMP1
$TMP2
$TMP3
$TN
=
$TPB
$TPFLG
$TPS
$TSTM
$TSTNM
$TYPE
$TYPEC
$TYPEX
$UNIT
$UNITM
$USWR

000000
005336
001242
001470
010450
010310
010444
010362
001230
001200
001202
001204
001206
001210

001212

005320

001220
001222
001224
000040
001172
001177
001170
001466
001122
005440
005652
005772
001246
001472
001260
$VECT1
001304
$VECT2
001306
$XOFF = 000023
$XON
= 000021
$XTSTR
005176
$Y
= 000020

$$GET4= 000000
3
= 001514

CZDZA-I0
CZDZAI.P11
.ADVAN
.BEGIN

.CNVRT
.CONVR
.DCLAS

007206
004624
006734
006730
007154

032504

ABS.

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

ERRORS DETECTED:

.DELAY
.DEVIC
.ERRTA
.INSTE
.INSTR

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)

SEQ 123

02-JUL-85
16:19
PAGE 88-3
SYMBOL TABLE
.INST1
.MSG
.PARAM

.PARMD
.PAWCH

006262
006264
006436
026772
027166

.RESOS
.SAVOS
.SCOPE
.SCOP1
.SETFL

006676
006636
005122
005376
011142

.START
.TRPSR
.TRPTA
.TYPE
.$X

002150
007112
002002
005422
001462